Index: LMDZ5/branches/testing/DefLists/config.def_LMDZ5_AGCM
===================================================================
--- LMDZ5/branches/testing/DefLists/config.def_LMDZ5_AGCM	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/config.def_LMDZ5_AGCM	(revision 2160)
@@ -11,6 +11,4 @@
 OK_instan=n
 ok_LES=n
-#ok_regdyn : y/n calcul/non des regymes dynamiques sur regions pre-definies
-ok_regdyn=y
 # A transformer en la ligne ci-dessous quand ce sera compatible avec libIGCM
 phys_out_filekeys=       y       y       y       n       n
@@ -113,6 +111,4 @@
 # Parametres simulateur ISCCP
 #######################################
-### ok_isccp=y/n flag simulateur ISCCP
-ok_isccp=n
 ### top_height = flag choix calcul nuages par le simulateur en utilisant 
 # -              les donnees IR et/ou VIS et l algorithme ISCCP-D1
Index: LMDZ5/branches/testing/DefLists/context_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/context_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/context_lmdz.xml	(revision 2160)
@@ -17,4 +17,7 @@
   <file_definition src="./file_def_histdayNMC_lmdz.xml"/>
   <file_definition src="./file_def_histhfNMC_lmdz.xml"/>
+  <file_definition src="./file_def_histmthCOSP_lmdz.xml"/>
+  <file_definition src="./file_def_histdayCOSP_lmdz.xml"/>
+  <file_definition src="./file_def_histhfCOSP_lmdz.xml"/>
   
   <!-- Define domains and groups of domains -->
@@ -33,5 +36,5 @@
     </axis>
     <axis id="Ahyb" standard_name="Ahyb comp of Hyb Cord" unit="Pa">
-    </axis>
+    </axis> 
     <axis id="Bhyb" standard_name="Bhyb comp of Hyb Cord" unit="">
     </axis>
@@ -40,4 +43,14 @@
     <axis id="plev" standard_name="model_level_number" unit="Pa">
     </axis>
+<!--    <axis id="height" standard_name="Cosp levels" unit="m"> -->
+<!--    </axis> -->
+<!--    <axis id="height_mlev" standard_name="height_mlev" unit="m"> -->
+<!--    </axis> -->
+<!--    <axis id="sza" standard_name="solar_zenith_angle" unit="degrees"> -->
+<!--    </axis> -->
+<!--    <axis id="pressure2" standard_name="pressure" unit="mb"> -->
+<!--    </axis> -->
+<!--    <axis id="column" standard_name="column" unit="count"> -->
+<!--    </axis> -->
   </axis_definition>
 </context>
Index: LMDZ5/branches/testing/DefLists/cosp_input_nl.txt
===================================================================
--- LMDZ5/branches/testing/DefLists/cosp_input_nl.txt	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/cosp_input_nl.txt	(revision 2160)
@@ -26,15 +26,10 @@
 ! Namelist that sets up the main COSP options
 &COSP_INPUT
-  CMOR_NL='./cmor/cosp_cmor_nl.txt', ! CMOR namelist
-!  NPOINTS=9026,! Number of gridpoints (klon dans LMDZi : ici correspond a klon de 96x95)
   NPOINTS_IT=10000,! Max number of gridpoints to be processed in one iteration
   NCOLUMNS=20,  ! Number of subcolumns
-  NLEVELS=39,   ! Number of model levels 
-  USE_VGRID=.true., ! Use fixed vertical grid for outputs? (if .true. then you need to define number of levels with Nlr)
+  USE_VGRID=.false., ! Use fixed vertical grid for outputs? (if .true. then you need to define number of levels with Nlr)
   NLR=40,       ! Number of levels in statistical outputs (only used if USE_VGRID=.true.)
-  CSAT_VGRID=.true., ! CloudSat vertical grid? (if .true. then the CloudSat standard grid is used for the outputs.
+  CSAT_VGRID=.false., ! CloudSat vertical grid? (if .true. then the CloudSat standard grid is used for the outputs.
                      !  USE_VGRID needs also be .true.)
-  FINPUT='histday.nc', ! NetCDF file with 1D inputs
-!  FINPUT='cosp_input_um_2d.nc', ! NetCDF file with 2D inputs
   !----------------------------------------------------------------------------------
   !--------------- Inputs related to radar simulations
Index: LMDZ5/branches/testing/DefLists/field_def_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/field_def_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/field_def_lmdz.xml	(revision 2160)
@@ -1,9 +1,9 @@
-<field_definition level="1" prec="4" operation="average" freq_op="1ts" enabled=".FALSE.">
+<field_definition level="1" prec="4" operation="average" freq_op="1ts" enabled=".true.">
     
-    <field_group id="fields_1D" grid_ref="vertical">
-        <field id="Ap"   long_name="Hybrid coordinate: pressure part"    unit="Pa" />
-        <field id="Bp"   long_name="Hybrid coordinate: sigma part"    unit="-" />
-        <field id="Alt"  long_name="Pseudo-altitude (for an 8km scale height)"    unit="km" />
-    </field_group>
+<!--    <field_group id="fields_1D" grid_ref="vertical">  -->
+<!--        <field id="Ap"   long_name="Hybrid coordinate: pressure part"    unit="Pa" />  -->
+<!--        <field id="Bp"   long_name="Hybrid coordinate: sigma part"    unit="-" />  -->
+<!--        <field id="Alt"  long_name="Pseudo-altitude (for an 8km scale height)"    unit="km" />  -->
+<!--    </field_group>  -->
     
     <field_group id="fields_2D" domain_ref="dom_glo">
@@ -20,4 +20,6 @@
         <field id="t2m_max"    long_name="Temp 2m max"    unit="K" />
         <field id="t2m_ter"    long_name="Temp 2m ter"    unit="K" />
+        <field id="t2m_max_mon"   long_name="Monthly average max 2m temperature" unit="K" />
+        <field id="t2m_min_mon"   long_name="Monthly average min 2m temperature" unit="K" />
         <field id="t2m_lic"    long_name="Temp 2m lic"    unit="K" />
         <field id="t2m_oce"    long_name="Temp 2m oce"    unit="K" />
@@ -50,4 +52,10 @@
         <field id="v10m_sic"    long_name="Vent meredien 10m sic"    unit="m/s" />
         <field id="qsol"        long_name="Soil watter content"         unit="mm" />
+        <field id="JrNt"        long_name="1 if Day 0 if Night"         unit="-" />
+        <field id="cldhjn"      long_name="High-level cloudiness Day"         unit="-" />
+        <field id="cldmjn"      long_name="Mid-level cloudiness Day"         unit="-" />
+        <field id="cldljn"      long_name="Low-level cloudiness Day"         unit="-" />
+        <field id="cldtjn"      long_name="Total cloudiness Day"         unit="-" />
+        <field id="rnebjn"      long_name="Cloud fraction in day"         unit="-" />
         <field id="ndayrain"    long_name="Number of dayrain(liq+sol)"  unit="-" />
         <field id="precip"      long_name="Precip Totale liq+sol"       unit="kg/(s*m2)" />
@@ -285,5 +293,5 @@
         <field id="OD550_AIBCM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
         <field id="OD550_AIPOMM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
-        <field id="OD550_STRAT"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_STRAT"    long_name="Aerosol Optical depth at 550 nm "    unit="1" enabled="FALSE" />
         <field id="od550aer"    long_name="Total aerosol optical depth at 550nm"    unit="-" />
         <field id="od865aer"    long_name="Total aerosol optical depth at 870nm"    unit="-" />
@@ -361,6 +369,6 @@
         <field id="cldemi"    long_name="Cloud optical emissivity"    unit="1" />
         <field id="tke_max"    long_name="TKE max"    unit="m2/s2" />
-        <field id="kz"    long_name="Kz melange"    unit="m2/s" />
-        <field id="kz_max"    long_name="Kz melange max"    unit="m2/s" />
+        <field id="kz"    long_name="Kz melange"    unit="m2/s" enabled="FALSE" />
+        <field id="kz_max"    long_name="Kz melange max"    unit="m2/s" enabled="FALSE" />
         <field id="concso4"    long_name="Concentration of Sulfate "    unit="kg/m3" />
         <field id="concoa"    long_name="Concentration of Organic Aerosol "    unit="kg/m3" />
@@ -446,4 +454,6 @@
         <field id="ratqs"    long_name="RATQS"    unit="-" />
         <field id="dtthe"    long_name="Thermal dT"    unit="K/s" />
+        <field id="duthe"    long_name="Thermal du"    unit="m/s2" />
+        <field id="dvthe"    long_name="Thermal dv"    unit="m/s2" />
         <field id="f_th"    long_name="Thermal plume mass flux"    unit="kg/(m2*s)" />
         <field id="e_th"    long_name="Thermal plume entrainment"    unit="K/s" />
@@ -472,12 +482,12 @@
         <field id="dtlif"    long_name="Orography dT"    unit="K/s" />
         <field id="dthin"    long_name="Hines GWD dT"    unit="K/s" />
-        <field id="rsu"    long_name="SW upward radiation"    unit="W m-2" />
-        <field id="rsd"    long_name="SW downward radiation"    unit="W m-2" />
-        <field id="rlu"    long_name="LW upward radiation"    unit="W m-2" />
-        <field id="rld"    long_name="LW downward radiation"    unit="W m-2" />
-        <field id="rsucs"    long_name="SW CS upward radiation"    unit="W m-2" />
-        <field id="rsdcs"    long_name="SW CS downward radiation"    unit="W m-2" />
-        <field id="rlucs"    long_name="LW CS upward radiation"    unit="W m-2" />
-        <field id="rldcs"    long_name="LW CS downward radiation"    unit="W m-2" />
+        <field id="rsu"    long_name="SW upward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rsd"    long_name="SW downward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rlu"    long_name="LW upward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rld"    long_name="LW downward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rsucs"    long_name="SW CS upward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rsdcs"    long_name="SW CS downward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rlucs"    long_name="LW CS upward radiation"    unit="W m-2" enabled="FALSE" />
+        <field id="rldcs"    long_name="LW CS downward radiation"    unit="W m-2" enabled="FALSE" />
         <field id="tnt"    long_name="Tendency of air temperature"    unit="K s-1" />
         <field id="tntc"    long_name="Tendency of air temperature due to Moist Convection"    unit="K s-1" />
@@ -522,8 +532,129 @@
       <field id="vphi" long_name="vphi" unit="m2/s" />
       <field id="wT" long_name="wT" unit="K*Pa/s" />
-      <field id="uxu" long_name="u2" unit="m2/s2" />
-      <field id="vxv" long_name="v2" unit="m2/s2" />
-      <field id="TxT" long_name="T2" unit="K2" />
+      <field id="u2" long_name="u2" unit="m2/s2" />
+      <field id="v2" long_name="v2" unit="m2/s2" />
+      <field id="T2" long_name="T2" unit="K2" />
     </field_group>
-    
+
+    <field_group id="fields_trac" domain_ref="dom_glo">
+          <field id="cumRN"    long_name="Cumulated tracer  RNVL1"    unit="-" />
+          <field id="cumPB"    long_name="Cumulated tracer  PBVL1"    unit="-" />
+          <field id="cumAga"    long_name="Cumulated tracer  Aga"    unit="-" />
+    </field_group>
+
+    <field_group id="fields_trac" domain_ref="dom_glo" axis_ref="presnivs">
+      <field id="RN"    long_name="Tracer RNVL1"    unit="-" />
+      <field id="dRN_vdf"    long_name="Tendance tracer RNVL1"    unit="-" />
+      <field id="dRN_the"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_con"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_lessi_impa"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_lessi_nucl"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_insc"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_bcscav"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_evapls"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_ls"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_trsp"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_sscav"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_sat"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="dRN_uscav"    long_name="Tendance tracer  RNVL1"    unit="-" />
+      <field id="PB"    long_name="Tracer PBVL1"    unit="-" />
+      <field id="dPB_vdf"    long_name="Tendance tracer PBVL1"    unit="-" />
+      <field id="dPB_the"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_con"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_lessi_impa"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_lessi_nucl"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_insc"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_bcscav"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_evapls"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_ls"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_trsp"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_sscav"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_sat"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="dPB_uscav"    long_name="Tendance tracer  PBVL1"    unit="-" />
+      <field id="Aga"    long_name="Tracer AgaVL1"    unit="-" />
+      <field id="dAga_vdf"    long_name="Tendance tracer Aga"    unit="-" />
+      <field id="dAga_the"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_con"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_lessi_impa"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_lessi_nucl"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_insc"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_bcscav"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_evapls"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_ls"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_trsp"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_sscav"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_sat"    long_name="Tendance tracer  Aga"    unit="-" />
+      <field id="dAga_uscav"    long_name="Tendance tracer  Aga"    unit="-" />
+    </field_group>
+
+    <field_group id="fields_COSP_CALIPSO" domain_ref="dom_glo">
+      <field id="cllcalipso"    long_name="Lidar Low-level Cloud Fraction"   unit="1" />
+      <field id="clhcalipso"    long_name="Lidar Hight-level Cloud Fraction"   unit="1" />
+      <field id="clmcalipso"    long_name="Lidar Mid-level Cloud Fraction"   unit="1" />
+      <field id="cltcalipso"    long_name="Lidar Total Cloud Fraction"   unit="1" />
+      <field id="clcalipso"  long_name="Lidar Cloud Fraction (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="parasol_refl"  long_name="PARASOL-like mono-directional reflectance" unit="1" axis_ref="sza" />
+      <field id="parasol_crefl"  long_name="PARASOL-like mono-directional reflectance (integral)" unit="1" axis_ref="sza" />
+      <field id="c01_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c02_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c03_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c04_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c05_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c06_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c07_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c08_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c09_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c10_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c11_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c12_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c13_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c14_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c15_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c16_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c17_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c18_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c19_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c20_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="presnivs" />
+      <field id="c01_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c02_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c03_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c04_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c05_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c06_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c07_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c08_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c09_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c10_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c11_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c12_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c13_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c14_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c15_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c16_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c17_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c18_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c19_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="c20_atb532" long_name="Lidar Attenuated Total Backscatter (532 nm)" unit="1" axis_ref="height_mlev" />
+      <field id="beta_mol532" long_name="Lidar Molecular Backscatter (532 nm)" unit="m-1 sr-1" axis_ref="height_mlev" />
+    </field_group>  
+
+    <field_group id="fields_COSP_ISCCP" domain_ref="dom_glo">
+      <field id="sunlit" long_name="1 for day points, 0 for nightime" unit="1" />
+      <field id="c01_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="c02_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="c03_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="c04_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="c05_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="c06_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="c07_clisccp2" long_name="Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" axis_ref="pressure2" />
+      <field id="boxtauisccp" long_name="Optical Depth in Each Column as Calculated by the ISCCP Simulator" unit="1" axis_ref="column" />
+      <field id="boxptopisccp" long_name="Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator" unit="Pa" axis_ref="column" />
+      <field id="tclisccp" long_name="Total Cloud Fraction as Calculated by the ISCCP Simulator" unit="1" />
+      <field id="ctpisccp" long_name="Mean Cloud Top Pressure as Calculated by the ISCCP Simulator" unit="Pa" />
+      <field id="tauisccp" long_name="Optical Depth as Calculated by the ISCCP Simulator" unit="1" />
+      <field id="albisccp" long_name="Mean Cloud Albedo as Calculated by the ISCCP Simulator" unit="1" />
+      <field id="meantbisccp" long_name="Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator" unit="K" />
+      <field id="meantbclrisccp" long_name="Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator" unit="K" />
+    </field_group>
+
 </field_definition>
Index: LMDZ5/branches/testing/DefLists/file_def_histLES_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histLES_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histLES_lmdz.xml	(revision 2160)
@@ -4,9 +4,9 @@
             
             <!-- VARS 1D -->
-            <field_group operation="once">
-              <field field_ref="Ap" level="1" />
-              <field field_ref="Bp" level="1" />
-              <field field_ref="Alt" level="1" />
-            </field_group>
+<!--            <field_group operation="once">    -->
+<!--              <field field_ref="Ap" level="1" />    -->
+<!--              <field field_ref="Bp" level="1" />    -->
+<!--              <field field_ref="Alt" level="1" />    -->
+<!--            </field_group>    -->
         
             <!-- VARS 2D -->
Index: LMDZ5/branches/testing/DefLists/file_def_histdayCOSP_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histdayCOSP_lmdz.xml	(revision 2160)
+++ LMDZ5/branches/testing/DefLists/file_def_histdayCOSP_lmdz.xml	(revision 2160)
@@ -0,0 +1,76 @@
+<file_definition>
+     <file_group id="defile">
+        <file id="histdayCOSP" name="XhistdayCOSP" output_freq="1d" output_level="10"  enabled=".FALSE.">
+
+            <!-- VARS 2D -->
+            <field_group operation="instant" freq_op="1ts">
+                <field field_ref="cllcalipso"         level="1" />
+                <field field_ref="clmcalipso"         level="1" />
+                <field field_ref="clhcalipso"         level="1" />
+                <field field_ref="cltcalipso"         level="1" />
+                <field field_ref="clcalipso"  level="1" axis_ref="presnivs" />
+                <field field_ref="parasol_refl"  level="1" axis_ref="sza" />
+                <field field_ref="parasol_crefl"  level="1" axis_ref="sza" />
+		<field field_ref="c01_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c02_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c03_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c04_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c05_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c06_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c07_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c08_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c09_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c10_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c11_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c12_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c13_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c14_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c15_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c16_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c17_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c18_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c19_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c20_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+                <field field_ref="c01_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c02_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c03_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c04_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c05_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c06_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c07_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c08_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c09_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c10_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c11_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c12_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c13_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c14_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c15_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c16_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c17_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c18_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c19_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c20_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="beta_mol532" level="10" axis_ref="height_mlev" />
+                <field field_ref="sunlit" level="1" />
+                <field field_ref="c01_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c02_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c03_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c04_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c05_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c06_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c07_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="boxtauisccp" level="10" axis_ref="column" />
+                <field field_ref="boxptopisccp" level="10" axis_ref="column" />
+                <field field_ref="tclisccp" level="1" />
+                <field field_ref="ctpisccp" level="10" />
+                <field field_ref="tauisccp" level="10" /> 
+                <field field_ref="albisccp" level="10" />
+                <field field_ref="meantbisccp" level="10" />
+                <field field_ref="meantbclrisccp" level="10" />
+            </field_group>
+
+        </file>
+     </file_group>
+</file_definition>
+   
Index: LMDZ5/branches/testing/DefLists/file_def_histdayNMC_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histdayNMC_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histdayNMC_lmdz.xml	(revision 2160)
@@ -22,7 +22,7 @@
                 <field field_ref="vphi" level="6" />
                 <field field_ref="wT" level="6" />
-                <field field_ref="uxu" level="6" />
-                <field field_ref="vxv" level="6" />
-                <field field_ref="TxT" level="6" />
+                <field field_ref="u2" level="6" />
+                <field field_ref="v2" level="6" />
+                <field field_ref="T2" level="6" />
             </field_group>
         </file>
Index: LMDZ5/branches/testing/DefLists/file_def_histday_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histday_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histday_lmdz.xml	(revision 2160)
@@ -4,9 +4,9 @@
             
             <!-- VARS 1D -->
-            <field_group operation="once">
-              <field field_ref="Ap" level="1" />
-              <field field_ref="Bp" level="1" />
-              <field field_ref="Alt" level="1" />
-            </field_group>
+<!--            <field_group operation="once">  -->
+<!--              <field field_ref="Ap" level="1" />  -->
+<!--              <field field_ref="Bp" level="1" /> -->
+<!--              <field field_ref="Alt" level="1" /> -->
+<!--            </field_group> -->
         
             <!-- VARS 2D -->
Index: LMDZ5/branches/testing/DefLists/file_def_histhfCOSP_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histhfCOSP_lmdz.xml	(revision 2160)
+++ LMDZ5/branches/testing/DefLists/file_def_histhfCOSP_lmdz.xml	(revision 2160)
@@ -0,0 +1,76 @@
+<file_definition>
+     <file_group id="defile">
+        <file id="histhfCOSP" name="XhisthfCOSP" output_freq="6h" output_level="10"  enabled=".FALSE.">
+
+            <!-- VARS 2D -->
+            <field_group operation="instant" freq_op="1ts">
+                <field field_ref="cllcalipso"         level="1" />
+                <field field_ref="clmcalipso"         level="1" />
+                <field field_ref="clhcalipso"         level="1" />
+                <field field_ref="cltcalipso"         level="1" />
+                <field field_ref="clcalipso"  level="1" axis_ref="presnivs" />
+                <field field_ref="parasol_refl"  level="1" axis_ref="sza" />
+                <field field_ref="parasol_crefl"  level="1" axis_ref="sza" />
+		<field field_ref="c01_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c02_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c03_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c04_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c05_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c06_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c07_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c08_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c09_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c10_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c11_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c12_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c13_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c14_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c15_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c16_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c17_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c18_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c19_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c20_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+                <field field_ref="c01_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c02_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c03_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c04_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c05_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c06_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c07_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c08_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c09_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c10_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c11_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c12_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c13_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c14_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c15_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c16_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c17_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c18_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c19_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c20_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="beta_mol532" level="10" axis_ref="height_mlev" />
+                <field field_ref="sunlit" level="1" />
+                <field field_ref="c01_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c02_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c03_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c04_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c05_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c06_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="c07_clisccp2" level="1" axis_ref="pressure2" />
+                <field field_ref="boxtauisccp" level="10" axis_ref="column" />
+                <field field_ref="boxptopisccp" level="10" axis_ref="column" />
+                <field field_ref="tclisccp" level="1" />
+                <field field_ref="ctpisccp" level="10" />
+                <field field_ref="tauisccp" level="10" /> 
+                <field field_ref="albisccp" level="10" />
+                <field field_ref="meantbisccp" level="10" />
+                <field field_ref="meantbclrisccp" level="10" />
+            </field_group>
+
+        </file>
+     </file_group>
+</file_definition>
+   
Index: LMDZ5/branches/testing/DefLists/file_def_histhfNMC_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histhfNMC_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histhfNMC_lmdz.xml	(revision 2160)
@@ -22,7 +22,7 @@
                 <field field_ref="vphi" level="6" />
                 <field field_ref="wT" level="6" />
-                <field field_ref="uxu" level="6" />
-                <field field_ref="vxv" level="6" />
-                <field field_ref="TxT" level="6" />
+                <field field_ref="u2" level="6" />
+                <field field_ref="v2" level="6" />
+                <field field_ref="T2" level="6" />
             </field_group>
         </file>
Index: LMDZ5/branches/testing/DefLists/file_def_histhf_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histhf_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histhf_lmdz.xml	(revision 2160)
@@ -4,9 +4,9 @@
             
             <!-- VARS 1D -->
-            <field_group operation="once">
-              <field field_ref="Ap" level="1" />
-              <field field_ref="Bp" level="1" />
-              <field field_ref="Alt" level="1" />
-            </field_group>
+<!--            <field_group operation="once"> -->
+<!--              <field field_ref="Ap" level="1" /> -->
+<!--              <field field_ref="Bp" level="1" /> -->
+<!--              <field field_ref="Alt" level="1" /> -->
+<!--            </field_group> -->
         
             <!-- VARS 2D -->
Index: LMDZ5/branches/testing/DefLists/file_def_histins_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histins_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histins_lmdz.xml	(revision 2160)
@@ -4,9 +4,9 @@
             
             <!-- VARS 1D -->
-            <field_group operation="once">
-              <field field_ref="Ap" level="1" />
-              <field field_ref="Bp" level="1" />
-              <field field_ref="Alt" level="1" />
-            </field_group>
+<!--            <field_group operation="once">    -->
+<!--              <field field_ref="Ap" level="1" />    -->
+<!--              <field field_ref="Bp" level="1" />    -->
+<!--              <field field_ref="Alt" level="1" />    -->
+<!--            </field_group>    -->
         
             <!-- VARS 2D -->
Index: LMDZ5/branches/testing/DefLists/file_def_histmthCOSP_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histmthCOSP_lmdz.xml	(revision 2160)
+++ LMDZ5/branches/testing/DefLists/file_def_histmthCOSP_lmdz.xml	(revision 2160)
@@ -0,0 +1,76 @@
+<file_definition>
+     <file_group id="defile">
+        <file id="histmthCOSP" name="XhistmthCOSP" output_freq="5d" output_level="10"  enabled=".FALSE.">
+
+            <!-- VARS 2D -->
+            <field_group operation="instant" freq_op="1ts">
+                <field field_ref="cllcalipso"         level="1" />
+                <field field_ref="clmcalipso"         level="1" />
+                <field field_ref="clhcalipso"         level="1" />
+                <field field_ref="cltcalipso"         level="1" />
+                <field field_ref="clcalipso"  level="1" axis_ref="presnivs" />
+                <field field_ref="parasol_refl"  level="1" axis_ref="sza" />
+                <field field_ref="parasol_crefl"  level="1" axis_ref="sza" />
+		<field field_ref="c01_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c02_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c03_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c04_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c05_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c06_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c07_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c08_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c09_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c10_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c11_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c12_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c13_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c14_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c15_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c16_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c17_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c18_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c19_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+		<field field_ref="c20_cfad_lidarsr532"  level="10" axis_ref="presnivs" />
+                <field field_ref="c01_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c02_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c03_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c04_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c05_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c06_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c07_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c08_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c09_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c10_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c11_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c12_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c13_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c14_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c15_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c16_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c17_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c18_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c19_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="c20_atb532" level="10" axis_ref="height_mlev" />
+                <field field_ref="beta_mol532" level="10" axis_ref="height_mlev" />
+                <field field_ref="sunlit" level="10" />
+                <field field_ref="c01_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="c02_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="c03_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="c04_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="c05_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="c06_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="c07_clisccp2" level="10" axis_ref="pressure2" />
+                <field field_ref="boxtauisccp" level="10" axis_ref="column" />
+                <field field_ref="boxptopisccp" level="10" axis_ref="column" />
+                <field field_ref="tclisccp" level="10" />
+                <field field_ref="ctpisccp" level="10" />
+                <field field_ref="tauisccp" level="10" /> 
+                <field field_ref="albisccp" level="10" />
+                <field field_ref="meantbisccp" level="10" />
+                <field field_ref="meantbclrisccp" level="10" />
+            </field_group>
+
+        </file>
+     </file_group>
+</file_definition>
+   
Index: LMDZ5/branches/testing/DefLists/file_def_histmthNMC_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histmthNMC_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histmthNMC_lmdz.xml	(revision 2160)
@@ -22,7 +22,7 @@
                 <field field_ref="vphi" level="6" />
                 <field field_ref="wT" level="6" />
-                <field field_ref="uxu" level="6" />
-                <field field_ref="vxv" level="6" />
-                <field field_ref="TxT" level="6" />
+                <field field_ref="u2" level="6" />
+                <field field_ref="v2" level="6" />
+                <field field_ref="T2" level="6" />
             </field_group>
         </file>
Index: LMDZ5/branches/testing/DefLists/file_def_histmth_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histmth_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histmth_lmdz.xml	(revision 2160)
@@ -4,9 +4,9 @@
 
             <!-- VARS 1D -->
-            <field_group operation="once">
-              <field field_ref="Ap" level="1" />
-              <field field_ref="Bp" level="1" />
-              <field field_ref="Alt" level="1" />
-            </field_group>
+<!--            <field_group operation="once">  -->
+<!--              <field field_ref="Ap" level="1" />  -->
+<!--              <field field_ref="Bp" level="1" />  -->
+<!--              <field field_ref="Alt" level="1" />  -->
+<!--            </field_group>  -->
         
             <!-- VARS 2D -->
Index: LMDZ5/branches/testing/DefLists/file_def_histstn_lmdz.xml
===================================================================
--- LMDZ5/branches/testing/DefLists/file_def_histstn_lmdz.xml	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/file_def_histstn_lmdz.xml	(revision 2160)
@@ -4,9 +4,9 @@
 
             <!-- VARS 1D -->
-            <field_group operation="once">
-              <field field_ref="Ap" level="1" />
-              <field field_ref="Bp" level="1" />
-              <field field_ref="Alt" level="1" />
-            </field_group>
+<!--            <field_group operation="once">  -->
+<!--              <field field_ref="Ap" level="1" />  -->
+<!--              <field field_ref="Bp" level="1" />  -->
+<!--              <field field_ref="Alt" level="1" />  -->
+<!--            </field_group>  -->
         
             <!-- VARS 2D -->
Index: LMDZ5/branches/testing/DefLists/guide.def
===================================================================
--- LMDZ5/branches/testing/DefLists/guide.def	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/guide.def	(revision 2160)
@@ -3,6 +3,5 @@
 guide_modele=y
 # inversion de l'ordre des niveaux verticaux
-ok_invertp=y
-ncep=y
+guide_invertp=y
  ######################################
  #### guidage de u #####
Index: LMDZ5/branches/testing/DefLists/physiq.def_L39_AR40.0
===================================================================
--- LMDZ5/branches/testing/DefLists/physiq.def_L39_AR40.0	(revision 2116)
+++ LMDZ5/branches/testing/DefLists/physiq.def_L39_AR40.0	(revision 2160)
@@ -9,5 +9,4 @@
 ok_limitvrai=n
 #Cdrags 
-f_cdrag_stable=1.
 f_cdrag_ter=1.
 f_cdrag_oce=0.8
@@ -66,6 +65,4 @@
 #flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
 iflag_con=30
-#niveau de sorties des diagnos sur la conservation energie
-if_ebil=0
 #efficacite de precepitation maxim (D:.993)
 epmax=0.999
Index: LMDZ5/branches/testing/arch/arch-CICLADifort-seq.fcm
===================================================================
--- LMDZ5/branches/testing/arch/arch-CICLADifort-seq.fcm	(revision 2116)
+++ 	(revision )
@@ -1,15 +1,0 @@
-%COMPILER            ifort
-%LINK                ifort
-%AR                  ar
-%MAKE                make
-%FPP_FLAGS           -P -traditional
-%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_FFTW
-%BASE_FFLAGS         -real-size 64 -ip -mkl=sequential -fp-model precise -align common -mcmodel=large
-%PROD_FFLAGS         -O2
-%DEV_FFLAGS          -O2
-%DEBUG_FFLAGS        -g -no-ftz -check -traceback -ftrapuv -fp-stack-check
-%MPI_FFLAGS          
-%OMP_FFLAGS          
-%BASE_LD             -mkl=sequential 
-%MPI_LD              -lmkl_core -lfftw3
-%OMP_LD              
Index: LMDZ5/branches/testing/arch/arch-CICLADifort-seq.path
===================================================================
--- LMDZ5/branches/testing/arch/arch-CICLADifort-seq.path	(revision 2116)
+++ 	(revision )
@@ -1,10 +1,0 @@
-NETCDF_LIBDIR="-L/opt/netcdf/ifort/lib -lnetcdf"
-NETCDF_INCDIR=-I/opt/netcdf/ifort/include
-IOIPSL_INCDIR=/home/spiga/IOIPSL_SVN/modipsl/lib
-IOIPSL_LIBDIR=/home/spiga/IOIPSL_SVN/modipsl/lib
-ORCH_INCDIR=$LMDGCM/../../lib
-ORCH_LIBDIR=$LMDGCM/../../lib
-OASIS_INCDIR=$LMDGCM/../../prism/SX/build/lib/psmile.$couple
-OASIS_LIBDIR=$LMDGCM/../../prism/SX/lib
-INCA_LIBDIR=$LMDGCM/../INCA3/config/lib
-INCA_INCDIR=$LMDGCM/../INCA3/config/lib
Index: LMDZ5/branches/testing/arch/arch-CICLADifort.fcm
===================================================================
--- LMDZ5/branches/testing/arch/arch-CICLADifort.fcm	(revision 2116)
+++ 	(revision )
@@ -1,15 +1,0 @@
-%COMPILER            /usr/lib64/openmpi/1.4.3-ifort/bin/mpif90
-%LINK                /usr/lib64/openmpi/1.4.3-ifort/bin/mpif90
-%AR                  ar
-%MAKE                make
-%FPP_FLAGS           -P -traditional
-%FPP_DEF             NC_DOUBLE
-%BASE_FFLAGS         -real-size 64 -ip -mkl=parallel -fp-model precise -align common -mcmodel=large 
-%PROD_FFLAGS         -O2
-%DEV_FFLAGS          -O2
-%DEBUG_FFLAGS        -fpe0 -g -no-ftz -check -traceback -ftrapuv -fp-stack-check
-%MPI_FFLAGS          -I/usr/lib64/openmpi/1.4.3-ifort/include
-%OMP_FFLAGS          
-%BASE_LD             -mkl=parallel
-%MPI_LD              -L/usr/lib64/openmpi/1.4.3-ifort/lib -lmpi -lmkl_core 
-%OMP_LD              
Index: LMDZ5/branches/testing/arch/arch-CICLADifort.path
===================================================================
--- LMDZ5/branches/testing/arch/arch-CICLADifort.path	(revision 2116)
+++ 	(revision )
@@ -1,10 +1,0 @@
-NETCDF_LIBDIR="-L/opt/netcdf/ifort/lib -lnetcdf"
-NETCDF_INCDIR=-I/opt/netcdf/ifort/include
-IOIPSL_INCDIR=/home/spiga/IOIPSL_SVN/modipsl/lib
-IOIPSL_LIBDIR=/home/spiga/IOIPSL_SVN/modipsl/lib
-ORCH_INCDIR=$LMDGCM/../../lib
-ORCH_LIBDIR=$LMDGCM/../../lib
-OASIS_INCDIR=$LMDGCM/../../prism/SX/build/lib/psmile.$couple
-OASIS_LIBDIR=$LMDGCM/../../prism/SX/lib
-INCA_LIBDIR=$LMDGCM/../INCA3/config/lib
-INCA_INCDIR=$LMDGCM/../INCA3/config/lib
Index: LMDZ5/branches/testing/arch/arch-X64_ADA.fcm
===================================================================
--- LMDZ5/branches/testing/arch/arch-X64_ADA.fcm	(revision 2116)
+++ LMDZ5/branches/testing/arch/arch-X64_ADA.fcm	(revision 2160)
@@ -4,5 +4,5 @@
 %MAKE                gmake
 %FPP_FLAGS           -P -traditional -I/smplocal/pub/FFTW/3.3.3_dyn/include/
-%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_FFTW
+%FPP_DEF             NC_DOUBLE FFT_FFTW
 %BASE_FFLAGS         -auto -mcmodel=large -integer-size 32 -real-size 64 -align all 
 %PROD_FFLAGS         -O2 -ip -fp-model strict -axAVX,SSE4.2
Index: LMDZ5/branches/testing/arch/arch-X64_ADA.path
===================================================================
--- LMDZ5/branches/testing/arch/arch-X64_ADA.path	(revision 2116)
+++ LMDZ5/branches/testing/arch/arch-X64_ADA.path	(revision 2160)
@@ -10,4 +10,4 @@
 OASIS_LIBDIR=$LMDGCM/../../oasis3-mct/BLD/lib
 INCA_LIBDIR=$LMDGCM/../INCA/config/lib
-INCA_INCDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/inc
 
Index: LMDZ5/branches/testing/arch/arch-X64_CURIE.fcm
===================================================================
--- LMDZ5/branches/testing/arch/arch-X64_CURIE.fcm	(revision 2116)
+++ LMDZ5/branches/testing/arch/arch-X64_CURIE.fcm	(revision 2160)
@@ -4,8 +4,8 @@
 %MAKE                gmake
 %FPP_FLAGS           -P -traditional
-%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MKL
+%FPP_DEF             NC_DOUBLE FFT_MKL
 #%BASE_FFLAGS         -xHost -i4 -r8 -auto -align all -I$(MKL_INC_DIR) -I$(MKL_INC_DIR)/intel64/lp64
-%BASE_FFLAGS         -i4 -r8 -auto -align all -I$(MKL_INC_DIR) -I$(MKL_INC_DIR)/intel64/lp64
-%PROD_FFLAGS         -O3
+%BASE_FFLAGS         -i4 -r8 -auto -align all -I$(MKL_INC_DIR) -I$(MKL_INC_DIR)/intel64/lp64 -fp-model strict
+%PROD_FFLAGS         -O2
 %DEV_FFLAGS          -p -g -O2 -traceback -fp-stack-check
 %DEBUG_FFLAGS        -p -g -traceback -fp-stack-check -ftrapuv
Index: LMDZ5/branches/testing/arch/arch-X64_CURIE.path
===================================================================
--- LMDZ5/branches/testing/arch/arch-X64_CURIE.path	(revision 2116)
+++ LMDZ5/branches/testing/arch/arch-X64_CURIE.path	(revision 2160)
@@ -8,5 +8,5 @@
 OASIS_LIBDIR=$LMDGCM/../../oasis3-mct/BLD/lib
 INCA_LIBDIR=$LMDGCM/../INCA/config/lib
-INCA_INCDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/inc
 XIOS_INCDIR=$LMDGCM/../XIOS/inc
 XIOS_LIBDIR=$LMDGCM/../XIOS/lib
Index: LMDZ5/branches/testing/arch/arch-gfortran_CICLAD.fcm
===================================================================
--- LMDZ5/branches/testing/arch/arch-gfortran_CICLAD.fcm	(revision 2160)
+++ LMDZ5/branches/testing/arch/arch-gfortran_CICLAD.fcm	(revision 2160)
@@ -0,0 +1,15 @@
+%COMPILER            /usr/lib64/openmpi/1.4.5-gfortran/bin/mpif90
+%LINK                /usr/lib64/openmpi/1.4.5-gfortran/bin/mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE 
+%BASE_FFLAGS         -c -fdefault-real-8 -fcray-pointer
+%PROD_FFLAGS         -O3
+%DEV_FFLAGS          -O -Wall -fbounds-check
+%DEBUG_FFLAGS        -ffpe-trap=invalid,zero,overflow -Wall -fbounds-check -g3 -O0 -fstack-protector-all
+%MPI_FFLAGS
+%OMP_FFLAGS          -fopenmp
+%BASE_LD             -Wl,-rpath=/opt/netcdf42/gfortran/lib
+%MPI_LD
+%OMP_LD              -fopenmp
Index: LMDZ5/branches/testing/arch/arch-gfortran_CICLAD.path
===================================================================
--- LMDZ5/branches/testing/arch/arch-gfortran_CICLAD.path	(revision 2160)
+++ LMDZ5/branches/testing/arch/arch-gfortran_CICLAD.path	(revision 2160)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="-L/opt/netcdf42/gfortran/lib -lnetcdf -lnetcdff"
+NETCDF_INCDIR=-I/opt/netcdf42/gfortran/include
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../prism/SX/build/lib/psmile.$couple
+OASIS_LIBDIR=$LMDGCM/../../prism/SX/lib
+INCA_LIBDIR=$LMDGCM/../INCA3/config/lib
+INCA_INCDIR=$LMDGCM/../INCA3/config/lib
Index: LMDZ5/branches/testing/arch/arch-ifort_CICLAD.fcm
===================================================================
--- LMDZ5/branches/testing/arch/arch-ifort_CICLAD.fcm	(revision 2160)
+++ LMDZ5/branches/testing/arch/arch-ifort_CICLAD.fcm	(revision 2160)
@@ -0,0 +1,15 @@
+%COMPILER            /usr/lib64/openmpi/1.4.5-ifort/bin/mpif90
+%LINK                /usr/lib64/openmpi/1.4.5-ifort/bin/mpif90
+%AR                  ar
+%MAKE                make
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE FFT_MKL
+%BASE_FFLAGS         -real-size 64 -ip -fp-model precise -align all -mcmodel=large -auto
+%PROD_FFLAGS         -O2 -ip
+%DEV_FFLAGS          -p -g -O1 -fpe0 -traceback
+%DEBUG_FFLAGS        -p -g -O0 -fpe-all=0 -traceback -ftrapuv -fp-stack-check -check all -debug
+%MPI_FFLAGS          -I/usr/lib64/openmpi/1.4.5-ifort/include
+%OMP_FFLAGS          -openmp
+%BASE_LD             -Wl,-rpath=/opt/netcdf42/ifort/lib
+%MPI_LD              -L/usr/lib64/openmpi/1.4.5-ifort/lib -lmpi -L/opt/intel/composer_xe_2011_sp1.9.293/mkl/lib/intel64 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core
+%OMP_LD              -openmp
Index: LMDZ5/branches/testing/arch/arch-ifort_CICLAD.path
===================================================================
--- LMDZ5/branches/testing/arch/arch-ifort_CICLAD.path	(revision 2160)
+++ LMDZ5/branches/testing/arch/arch-ifort_CICLAD.path	(revision 2160)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="-L/opt/netcdf42/ifort/lib -lnetcdf -lnetcdff"
+NETCDF_INCDIR=-I/opt/netcdf42/ifort/include
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../prism/SX/build/lib/psmile.$couple
+OASIS_LIBDIR=$LMDGCM/../../prism/SX/lib
+INCA_LIBDIR=$LMDGCM/../INCA3/config/lib
+INCA_INCDIR=$LMDGCM/../INCA3/config/lib
Index: LMDZ5/branches/testing/bld.cfg
===================================================================
--- LMDZ5/branches/testing/bld.cfg	(revision 2116)
+++ LMDZ5/branches/testing/bld.cfg	(revision 2160)
@@ -24,6 +24,6 @@
 src::dyn     %SRC_PATH/%DYN
 src::phys    %SRC_PATH/%PHYS
-#src::sisvat  %SRC_PATH/%PHYS/sisvat
-#src::rrtm  %SRC_PATH/%PHYS/rrtm
+src::sisvat  %SISVAT
+src::rrtm    %RRTM
 src::grid    %SRC_PATH/grid
 src::filtrez %SRC_PATH/filtrez
Index: LMDZ5/branches/testing/create_make_gcm
===================================================================
--- LMDZ5/branches/testing/create_make_gcm	(revision 2116)
+++ LMDZ5/branches/testing/create_make_gcm	(revision 2160)
@@ -124,14 +124,14 @@
 
    if [ -d $diri ] ; then
-   if [ "`ls $diri/*.F $diri/*/*.F`" != "" ] || [ "`ls $diri/*.F90 $diri/*/*.F90`" != "" ]  ; then 
+   if [ "`ls $diri/*.F $diri/*/*.F`" != "" ] || [ "`ls $diri/*.[fF]90 $diri/*/*.[fF]90`" != "" ]  ; then 
 #      cd $diri >/dev/null 2>&1
       echo
       listlib=""
 # Liste des fichiers .F et .F90 n'etant pas des programmes principaux
-      for fili in `ls $diri/*.F $diri/*/*.F` ; do
+      for fili in `ls $diri/*.[fF] $diri/*/*.[fF]` ; do
          test=` (  head $fili | grep '      PROGRAM' ) `
          if [ "$test" = "" ] ; then listlib=$listlib" "$fili ; fi
       done
-      for fili in `ls $diri/*.F90 $diri/*/*.F90` ; do
+      for fili in `ls $diri/*.[fF]90 $diri/*/*.[fF]90` ; do
          test=` (  head $fili | grep 'PROGRAM' ) `
          if [ "$test" = "" ] ; then listlib=$listlib" "$fili ; fi 
@@ -190,8 +190,8 @@
                elif [ -f $dirinc/$strj ] ; then
                   str2='$(LIBF)/'$dirstr/$stri
-               elif [ -f $dirinc/$strj.F90 ]  || [ -f $dirinc/$strj.F ]  ; then 
+               elif [ -f $dirinc/$strj.[fF]90 ]  || [ -f $dirinc/$strj.[fF] ]  ; then 
                   strlib=`echo $libstr | awk -F/ ' { print $1 } '`
                   str2='$(LIBO)/lib'$strlib'.a('$strj'.o)'
-               elif [ -f $dirinc/$stri.F90 ]  || [ -f $dirinc/$stri.F ]  ; then 
+               elif [ -f $dirinc/$stri.[fF]90 ]  || [ -f $dirinc/$stri.[fF] ]  ; then 
                   strlib=`echo $libstr | awk -F/ ' { print $1 } '`
                   str2='$(LIBO)/lib'$strlib'.a('$stri'.o)'
Index: LMDZ5/branches/testing/libf/bibio/handle_err_m.F90
===================================================================
--- LMDZ5/branches/testing/libf/bibio/handle_err_m.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/bibio/handle_err_m.F90	(revision 2160)
@@ -39,5 +39,5 @@
           end if
        end if
-       stop 1
+       call abort_gcm("NetCDF95 handle_err", "", 1)
     end if
 
Index: LMDZ5/branches/testing/libf/bibio/wxios.F90
===================================================================
--- LMDZ5/branches/testing/libf/bibio/wxios.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/bibio/wxios.F90	(revision 2160)
@@ -161,5 +161,5 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-    SUBROUTINE wxios_set_cal(pasdetemps, calendrier, annee, mois, jour, heure)
+    SUBROUTINE wxios_set_cal(pasdetemps, calendrier, annee, mois, jour, heure, ini_an, ini_mois, ini_jour, ini_heure)
         IMPLICIT NONE
         INCLUDE 'iniprint.h'
@@ -167,6 +167,6 @@
      !Paramètres:
      CHARACTER(len=*), INTENT(IN) :: calendrier
-     INTEGER, INTENT(IN) :: annee, mois, jour
-     REAL, INTENT(IN) :: pasdetemps, heure
+     INTEGER, INTENT(IN) :: annee, mois, jour, ini_an, ini_mois, ini_jour
+     REAL, INTENT(IN) :: pasdetemps, heure, ini_heure
      
      !Variables:
@@ -197,10 +197,18 @@
         END SELECT
         
-        !Formatage de la date de départ:
-        WRITE(date, "(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") annee, mois, jour
-        
-        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: Initial time: ", date
-        
-        CALL xios_set_context_attr_hdl(g_ctx, start_date= date)
+        !Formatage de la date d'origine:
+        WRITE(date, "(i4.4,'-',i2.2,'-',i2.2,' ',i2.2,':00:00')") annee, mois, jour, int(heure)
+        
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: Time origin: ", date
+        
+        CALL xios_set_context_attr_hdl(g_ctx, time_origin = date)
+
+        !Formatage de la date de debut:
+
+        WRITE(date, "(i4.4,'-',i2.2,'-',i2.2,' ',i2.2,':00:00')") ini_an, ini_mois, ini_jour, int(ini_heure)
+        
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: Start date: ", date
+        
+        CALL xios_set_context_attr_hdl(g_ctx, start_date = date)
         
         !Et enfin,le pas de temps:
@@ -424,5 +432,5 @@
     ! Pour déclarer un champ      !!!!!!!!!!!!!!!!!
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-    SUBROUTINE wxios_add_field_to_file(fieldname, fdim, fid, fname, fieldlongname, fieldunit, field_level, op)
+    SUBROUTINE wxios_add_field_to_file(fieldname, fdim, fid, fname, fieldlongname, fieldunit, field_level, op, nam_axvert)
         IMPLICIT NONE
         INCLUDE 'iniprint.h'
@@ -437,4 +445,5 @@
         
         CHARACTER(len=20) :: axis_id ! Ehouarn: dangerous...
+        CHARACTER(len=20), INTENT(IN), OPTIONAL :: nam_axvert
         CHARACTER(len=100) :: operation
         TYPE(xios_file) :: f
@@ -450,4 +459,9 @@
         ELSE
           axis_id="plev"
+        ENDIF
+ 
+        IF (PRESENT(nam_axvert)) THEN
+           axis_id=nam_axvert
+           print*,'nam_axvert=',axis_id
         ENDIF
         
@@ -550,5 +564,5 @@
     SUBROUTINE wxios_closedef()
         CALL xios_close_context_definition()
-        CALL xios_update_calendar(0)
+!        CALL xios_update_calendar(0)
     END SUBROUTINE wxios_closedef
     
Index: LMDZ5/branches/testing/libf/cosp/cosp_constants.F90
===================================================================
--- LMDZ5/branches/testing/libf/cosp/cosp_constants.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/cosp/cosp_constants.F90	(revision 2160)
@@ -31,5 +31,5 @@
 ! 
 MODULE MOD_COSP_CONSTANTS
-!    use netcdf, only: nf90_fill_rea
+    use netcdf, only: nf90_fill_real
     IMPLICIT NONE
     
@@ -47,6 +47,7 @@
     ! Missing value
 !!    real,parameter :: R_UNDEF = -1.0E30
-     real,parameter :: R_UNDEF = 9.96921e+36
-!      real,parameter :: R_UNDEF = nf90_fill_rea
+!     real,parameter :: R_UNDEF = 9.96921e+36
+      real,parameter :: R_UNDEF = nf90_fill_real
+
     ! Number of possible output variables
     integer,parameter :: N_OUT_LIST = 27
Index: LMDZ5/branches/testing/libf/cosp/cosp_output_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/cosp/cosp_output_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/cosp/cosp_output_mod.F90	(revision 2160)
@@ -17,5 +17,5 @@
       INTEGER, DIMENSION(3), SAVE  :: nhoricosp, nvert, nvertmcosp, nvertcol, nvertisccp, nvertp
       REAL, DIMENSION(3), SAVE                :: zoutm_cosp
-!$OMP THREADPRIVATE(nhori, nvert, nvertmcosp, nvertcol, nvertisccp, nvertp, zoutm_cosp)
+!$OMP THREADPRIVATE(nhoricosp, nvert, nvertmcosp, nvertcol, nvertisccp, nvertp, zoutm_cosp)
       REAL, SAVE                   :: zdtimemoy_cosp
 !$OMP THREADPRIVATE(zdtimemoy_cosp) 
@@ -78,8 +78,5 @@
            by the ISCCP Simulator","K", (/ ('', i=1, 3) /))
 
-!   LOGICAL, SAVE :: cosp_varsdefined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
-  LOGICAL, SAVE        :: cosp_varsdefined
-  INTEGER, save        :: Nlevout,Ncolout
-!$OMP THREADPRIVATE(Nlevout) 
+   LOGICAL, SAVE :: cosp_varsdefined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
 
 CONTAINS
@@ -91,5 +88,5 @@
 
   SUBROUTINE cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
-                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, &
+                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml,  &
                               ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
 
@@ -110,11 +107,12 @@
   real,dimension(Nlevlmdz) :: presnivs
   real                     :: dtime, freq_cosp, ecrit_day, ecrit_hf, ecrit_mth 
-  logical                  :: ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, use_vgrid                    
+  logical                  :: ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, use_vgrid, ok_all_xml                    
   type(cosp_vgrid)   :: vgrid   ! Information on vertical grid of stats
 
 !!! Variables locales
   integer                  :: idayref, iff, ii
-  real                     :: zjulian
+  real                     :: zjulian,zjulian_start
   real,dimension(Ncolumns) :: column_ax
+  CHARACTER(LEN=20), DIMENSION(3)  :: chfreq = (/ '1day', '1d', '3h' /)            
 
 !!! Variables d'entree
@@ -126,10 +124,11 @@
     INTEGER :: x_an, x_mois, x_jour
     REAL :: x_heure
+    INTEGER :: ini_an, ini_mois, ini_jour
+    REAL :: ini_heure
 #endif
 
     WRITE(lunout,*) 'Debut cosp_output_mod.F90'
+    print*,'cosp_varsdefined',cosp_varsdefined
     ! Initialisations (Valeurs par defaut)
-    Nlevout = vgrid%Nlvgrid
-    Ncolout = Ncolumns
 
     do ii=1,Ncolumns
@@ -158,18 +157,38 @@
     CALL getin('cosp_outfilenames',cosp_outfilenames)
     CALL getin('cosp_outfilekeys',cosp_outfilekeys)
-    CALL getin('cosp_outfiletimesteps',cosp_ecritfiles)
+    CALL getin('cosp_ecritfiles',cosp_ecritfiles)
     CALL getin('cosp_outfiletypes',cosp_outfiletypes)
 
     WRITE(lunout,*)'cosp_outfilenames=',cosp_outfilenames
     WRITE(lunout,*)'cosp_outfilekeys=',cosp_outfilekeys
-    WRITE(lunout,*)'cosp_outfiletimesteps=',cosp_ecritfiles
+    WRITE(lunout,*)'cosp_ecritfiles=',cosp_ecritfiles
     WRITE(lunout,*)'cosp_outfiletypes=',cosp_outfiletypes
- 
-#ifdef CPP_XIOS
-    ! ug Réglage du calendrier xios
+    
+    idayref = day_ref
+    CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+    CALL ymds2ju(annee_ref, 1, day_ini, start_time, zjulian_start)
+
+#ifdef CPP_XIOS
+    ! ug R\'eglage du calendrier xios
     !Temps julian => an, mois, jour, heure
-    CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
     CALL ju2ymds(zjulian, x_an, x_mois, x_jour, x_heure)
-    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure)
+    CALL ju2ymds(zjulian_start, ini_an, ini_mois, ini_jour, ini_heure)
+    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure, ini_an, &
+                       ini_mois, ini_jour, ini_heure )
+       ! ug dï¿½claration des axes verticaux de chaque fichier:
+    if (use_vgrid) then
+        CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z)
+    else
+         WRITE(lunout,*) 'wxios_add_vaxis "presnivs", vgrid%Nlvgrid ',vgrid%Nlvgrid
+        CALL wxios_add_vaxis("presnivs", vgrid%Nlvgrid, presnivs)
+    endif
+    WRITE(lunout,*) 'wxios_add_vaxis height_mlev, Nlevlmdz ',Nlevlmdz
+    CALL wxios_add_vaxis("height_mlev", Nlevlmdz, vgrid%mz)
+    WRITE(lunout,*) 'wxios_add_vaxis sza, PARASOL_NREFL ',PARASOL_NREFL
+    CALL wxios_add_vaxis("sza", PARASOL_NREFL, PARASOL_SZA)
+    WRITE(lunout,*) 'wxios_add_vaxis pressure2 ',7
+    CALL wxios_add_vaxis("pressure2", 7, ISCCP_PC)
+    WRITE(lunout,*) 'wxios_add_vaxis column ',Ncolumns
+    CALL wxios_add_vaxis("column", Ncolumns, column_ax)
 #endif
    
@@ -180,16 +199,24 @@
 
        IF (cosp_outfilekeys(iff)) THEN
-           idayref = day_ref
-           CALL ymds2ju(annee_ref, 1, idayref, 0., zjulian) 
-           CALL histbeg_phy(cosp_outfilenames(iff),itau_phy,zjulian,&
+           CALL histbeg_phy_all(cosp_outfilenames(iff),itau_phy,zjulian,&
              dtime,nhoricosp(iff),cosp_nidfiles(iff))
-
+           print*,'histbeg_phy nhoricosp(iff),cosp_nidfiles(iff)', &
+                    nhoricosp(iff),cosp_nidfiles(iff)
+
+#ifdef CPP_XIOS
+        IF (.not. ok_all_xml) then
+         WRITE(lunout,*) 'wxios_add_file ',cosp_outfilenames(iff)
+         CALL wxios_add_file(cosp_outfilenames(iff),chfreq(iff),10)
+        ENDIF
+#endif
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
 ! Definition de l'axe vertical
        if (use_vgrid) then
 ! Axe vertical Cosp 40 niveaux (en m)
-      CALL histvert(cosp_nidfiles(iff),"height","height","m",Nlevout,vgrid%z,nvert(iff))
+      CALL histvert(cosp_nidfiles(iff),"height","height","m",vgrid%Nlvgrid,vgrid%z,nvert(iff))
        else
 ! Axe vertical modele LMDZ presnivs
-      CALL histvert(cosp_nidfiles(iff),"presnivs","Vertical levels","Pa",Nlevout,presnivs,nvert(iff),"down")
+      CALL histvert(cosp_nidfiles(iff),"presnivs","Vertical levels","Pa",vgrid%Nlvgrid,presnivs,nvert(iff),"down")
        endif
 ! Axe vertical niveaux modele (en m)
@@ -201,16 +228,4 @@
 
       CALL histvert(cosp_nidfiles(iff),"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol(iff))
-
-#ifdef CPP_XIOS
-    ! ug déclaration des axes verticaux de chaque fichier:
-    if (use_vgrid) then
-      CALL wxios_add_vaxis("height", cosp_outfilenames(iff), Nlevout, vgrid%z)
-    else
-      CALL wxios_add_vaxis("presnivs", cosp_outfilenames(iff), Nlevout, presnivs)
-    endif
-    CALL wxios_add_vaxis("height_mlev", cosp_outfilenames(iff), Nlevlmdz, vgrid%mz)
-    CALL wxios_add_vaxis("sza", cosp_outfilenames(iff), PARASOL_NREFL, PARASOL_SZA)
-    CALL wxios_add_vaxis("pressure2", cosp_outfilenames(iff), 7, ISCCP_PC)
-    CALL wxios_add_vaxis("column", cosp_outfilenames(iff), Ncolumns, column_ax)
 #endif
 
Index: LMDZ5/branches/testing/libf/cosp/cosp_output_write_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/cosp/cosp_output_write_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/cosp/cosp_output_write_mod.F90	(revision 2160)
@@ -8,4 +8,6 @@
    INTEGER, SAVE  :: itau_iocosp
 !$OMP THREADPRIVATE(itau_iocosp)
+   INTEGER, save        :: Nlevout, Ncolout
+!$OMP THREADPRIVATE(Nlevout, Ncolout)
 
 !  INTERFACE histwrite_cosp
@@ -15,5 +17,6 @@
    CONTAINS
 
-  SUBROUTINE cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, cfg, gbx, sglidar, stlidar, isccp)
+  SUBROUTINE cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, &
+                               cfg, gbx, vgrid, sglidar, stlidar, isccp)
 
     USE ioipsl
@@ -21,6 +24,6 @@
 
 #ifdef CPP_XIOS
-    ! ug Pour les sorties XIOS
-    USE wxios
+    USE wxios, only: wxios_closedef
+    USE xios, only: xios_update_calendar
 #endif
 
@@ -33,7 +36,8 @@
   type(cosp_isccp)      :: isccp   ! Output from ISCCP simulator
   type(cosp_lidarstats) :: stlidar ! Summary statistics from lidar simulator
+  type(cosp_vgrid)      :: vgrid   ! Information on vertical grid of stats
 
 !!! Variables locales
-  integer               :: icl, iinitend=1
+  integer               :: icl
   logical               :: ok_sync
   integer               :: itau_wcosp
@@ -41,31 +45,46 @@
 
   include "temps.h"
-
-  IF (MOD(itap,NINT(freq_COSP/dtime)).EQ.0) THEN
-       
+  include "iniprint.h"
+
+  Nlevout = vgrid%Nlvgrid
+  Ncolout = Ncolumns
+
 ! A refaire
        itau_wcosp = itau_phy + itap + start_time * day_step / iphysiq
+        if (prt_level >= 10) then
+             WRITE(lunout,*)'itau_wcosp, itap, start_time, day_step, iphysiq =', & 
+                             itau_wcosp, itap, start_time, day_step, iphysiq
+        endif
 
 ! On le donne a  cosp_output_write_mod pour que les histwrite y aient acces:
        CALL set_itau_iocosp(itau_wcosp)
+        if (prt_level >= 10) then
+              WRITE(lunout,*)'itau_iocosp =',itau_iocosp
+        endif
 
     ok_sync = .TRUE.
     
-    IF(.NOT.cosp_varsdefined) THEN
-        iinitend = 2
-    ELSE
-        iinitend = 1
-    ENDIF
-
-! ug la boucle qui suit ne sert qu'une fois, pour l'initialisation, sinon il n'y a toujours qu'un seul passage:
-DO iinit=1, iinitend
-#ifdef CPP_XIOS
+!DO iinit=1, iinitend
+! AI sept 2014 cette boucle supprimee
+! On n'ecrit pas quand itap=1 (cosp)
+
+   if (prt_level >= 10) then
+         WRITE(lunout,*)'DO iinit=1, iinitend ',iinitend
+   endif
+
+#ifdef CPP_XIOS
+ !$OMP MASTER
 IF (cosp_varsdefined) THEN
-     CALL wxios_update_calendar(itau_iocosp)
-END IF
+   if (prt_level >= 10) then
+         WRITE(lunout,*)'Apell xios_update_calendar cosp_varsdefined iinitend ', &
+                         cosp_varsdefined,iinitend
+   endif 
+    CALL xios_update_calendar(itau_wcosp)
+ENDIF
+  !$OMP END MASTER
+  !$OMP BARRIER
 #endif
 
  if (cfg%Llidar_sim) then
-
 ! Pb des valeurs indefinies, on les met a 0
 ! A refaire proprement
@@ -109,4 +128,5 @@
    enddo
 
+   print*,'Appel histwrite2d_cosp'
    CALL histwrite2d_cosp(o_cllcalipso,stlidar%cldlayer(:,1))
    CALL histwrite2d_cosp(o_clhcalipso,stlidar%cldlayer(:,3))
@@ -201,4 +221,5 @@
  IF(.NOT.cosp_varsdefined) THEN
 !$OMP MASTER
+#ifndef CPP_IOIPSL_NO_OUTPUT
             DO iff=1,3
                 IF (cosp_outfilekeys(iff)) THEN
@@ -206,25 +227,28 @@
                 ENDIF ! cosp_outfilekeys
             ENDDO !  iff
-#ifdef CPP_XIOS
+#endif
+! Fermeture dans phys_output_write
+!#ifdef CPP_XIOS
             !On finalise l'initialisation:
-            CALL wxios_closedef()
-#endif
+            !CALL wxios_closedef()
+!#endif
+
 !$OMP END MASTER
 !$OMP BARRIER
             cosp_varsdefined = .TRUE.
  END IF
-END DO  !! iinit
-
-!    IF(cosp_varsdefined) THEN
+
+    IF(cosp_varsdefined) THEN
 ! On synchronise les fichiers pour IOIPSL
+#ifndef CPP_IOIPSL_NO_OUTPUT 
 !$OMP MASTER
-   DO iff=1,3
+     DO iff=1,3
          IF (ok_sync .AND. cosp_outfilekeys(iff)) THEN
              CALL histsync(cosp_nidfiles(iff))
          ENDIF
-   END DO
+     END DO
 !$OMP END MASTER
-
-   ENDIF ! if freq_COSP
+#endif
+    ENDIF  !cosp_varsdefined
 
     END SUBROUTINE cosp_output_write
@@ -251,4 +275,6 @@
     INCLUDE "dimensions.h"
     INCLUDE "temps.h"
+    INCLUDE "clesphys.h"
+    include "iniprint.h"
 
     INTEGER                          :: iff
@@ -279,7 +305,16 @@
 
 #ifdef CPP_XIOS
+     IF (.not. ok_all_xml) then
+       IF ( var%cles(iff) ) THEN
+         if (prt_level >= 10) then
+              WRITE(lunout,*)'Appel wxios_add_field_to_file var%name =',var%name 
+         endif
         CALL wxios_add_field_to_file(var%name, 2, cosp_nidfiles(iff), cosp_outfilenames(iff), &
-        var%description, var%unit, 1, typeecrit)
-#endif
+                                     var%description, var%unit, 1, typeecrit)
+       ENDIF
+     ENDIF
+#endif
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
        IF ( var%cles(iff) ) THEN
           CALL histdef (cosp_nidfiles(iff), var%name, var%description, var%unit, &
@@ -287,4 +322,5 @@
                typeecrit, zstophym,zoutm_cosp(iff))
        ENDIF
+#endif
 
   END SUBROUTINE histdef2d_cosp
@@ -305,4 +341,6 @@
     INCLUDE "dimensions.h"
     INCLUDE "temps.h"
+    INCLUDE "clesphys.h"
+    include "iniprint.h"
 
     INTEGER                        :: iff, klevs
@@ -315,17 +353,21 @@
     CHARACTER(LEN=20) :: nom
     character(len=2) :: str2
+    CHARACTER(len=20) :: nam_axvert
 
 ! Axe vertical
       IF (nvertsave.eq.nvertp(iff)) THEN
           klevs=PARASOL_NREFL
+          nam_axvert="sza"
       ELSE IF (nvertsave.eq.nvertisccp(iff)) THEN
           klevs=7
+          nam_axvert="pressure2"
       ELSE IF (nvertsave.eq.nvertcol(iff)) THEN
           klevs=Ncolout
+          nam_axvert="column"
       ELSE
-          klevs=Nlevout
+           klevs=Nlevout
+           nam_axvert="presnivs"
       ENDIF
-      
-         
+
 ! ug RUSTINE POUR LES Champs 4D
       IF (PRESENT(ncols)) THEN
@@ -358,7 +400,16 @@
 
 #ifdef CPP_XIOS
-        CALL wxios_add_field_to_file(nom, 3, cosp_nidfiles(iff), cosp_outfilenames(iff), &
-        var%description, var%unit, 1, typeecrit)
-#endif
+      IF (.not. ok_all_xml) then
+        IF ( var%cles(iff) ) THEN
+          if (prt_level >= 10) then
+              WRITE(lunout,*)'Appel wxios_add_field_to_file 3d nom variable nam_axvert = ',nom, nam_axvert 
+          endif
+          CALL wxios_add_field_to_file(nom, 3, cosp_nidfiles(iff), cosp_outfilenames(iff), &
+                                       var%description, var%unit, 1, typeecrit, nam_axvert)
+        ENDIF
+      ENDIF
+#endif
+
+#ifndef CPP_IOIPSL_NO_OUTPUT
        IF ( var%cles(iff) ) THEN
           CALL histdef (cosp_nidfiles(iff), nom, var%description, var%unit, &
@@ -367,4 +418,6 @@
                zstophym, zoutm_cosp(iff))
        ENDIF
+#endif
+
   END SUBROUTINE histdef3d_cosp
 
@@ -376,5 +429,5 @@
 
 #ifdef CPP_XIOS
-  USE wxios
+  USE xios, only: xios_send_field
 #endif
 
@@ -382,4 +435,5 @@
   INCLUDE 'dimensions.h'
   INCLUDE 'iniprint.h'
+  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN) :: var
@@ -393,4 +447,6 @@
     CHARACTER(LEN=20) ::  nomi, nom
     character(len=2) :: str2
+    LOGICAL, SAVE  :: firstx
+!$OMP THREADPRIVATE(firstx)
 
     IF (prt_level >= 9) WRITE(lunout,*)'Begin histrwrite2d ',var%name
@@ -417,20 +473,38 @@
 
 ! La boucle sur les fichiers:
+      firstx=.true.
       DO iff=1, 3
            IF (var%cles(iff) .AND. cosp_outfilekeys(iff)) THEN
                 ALLOCATE(index2d(iim*jj_nb))
+#ifndef CPP_IOIPSL_NO_OUTPUT
         CALL histwrite(cosp_nidfiles(iff),var%name,itau_iocosp,Field2d,iim*jj_nb,index2d) 
-#ifdef CPP_XIOS
-                IF (iff == 1) THEN
-                   CALL wxios_write_2D(var%name, Field2d)
-                ENDIF
-#endif
-
+#endif
                 deallocate(index2d)
-           ENDIF !levfiles
-      ENDDO
+#ifdef CPP_XIOS
+              IF (.not. ok_all_xml) then
+                 if (firstx) then
+                  if (prt_level >= 10) then
+                    WRITE(lunout,*)'xios_send_field variable ',var%name
+                  endif
+                  CALL xios_send_field(var%name, Field2d)
+                   firstx=.false.
+                 endif
+              ENDIF
+#endif
+           ENDIF
+      ENDDO 
+
+#ifdef CPP_XIOS
+      IF (ok_all_xml) THEN
+        if (prt_level >= 10) then
+              WRITE(lunout,*)'xios_send_field variable ',var%name
+        endif
+       CALL xios_send_field(var%name, Field2d)
+      ENDIF
+#endif
+
 !$OMP END MASTER   
   ENDIF ! vars_defined
-  IF (prt_level >= 9) WRITE(lunout,*)'End histrwrite2d_cosp ',nom
+  IF (prt_level >= 9) WRITE(lunout,*)'End histrwrite2d_cosp ',var%name
   END SUBROUTINE histwrite2d_cosp
 
@@ -444,5 +518,5 @@
 
 #ifdef CPP_XIOS
- USE WXIOS
+  USE xios, only: xios_send_field
 #endif
 
@@ -451,4 +525,5 @@
   INCLUDE 'dimensions.h'
   INCLUDE 'iniprint.h'
+  INCLUDE 'clesphys.h'
 
     TYPE(ctrl_outcosp), INTENT(IN)    :: var
@@ -465,4 +540,6 @@
     CHARACTER(LEN=20) ::  nomi, nom
     character(len=2) :: str2
+    LOGICAL, SAVE  :: firstx
+!$OMP THREADPRIVATE(firstx)
 
   IF (prt_level >= 9) write(lunout,*)'Begin histrwrite3d ',var%name
@@ -498,19 +575,32 @@
     CALL grid1Dto2D_mpi(buffer_omp,field3d)
 
-
 ! BOUCLE SUR LES FICHIERS
+     firstx=.true.
      DO iff=1, 3
         IF (var%cles(iff) .AND. cosp_outfilekeys(iff)) THEN
            ALLOCATE(index3d(iim*jj_nb*nlev))
+#ifndef CPP_IOIPSL_NO_OUTPUT
     CALL histwrite(cosp_nidfiles(iff),nom,itau_iocosp,Field3d,iim*jj_nb*nlev,index3d) 
-
-#ifdef CPP_XIOS
-           IF (iff == 1) THEN
-               CALL wxios_write_3D(nom, Field3d(:,:,1:klev))
+#endif
+
+#ifdef CPP_XIOS
+          IF (.not. ok_all_xml) then
+           IF (firstx) THEN
+               CALL xios_send_field(nom, Field3d(:,:,1:nlev))
+               IF (prt_level >= 9) WRITE(lunout,*)'xios_send_field ',var%name
+               firstx=.FALSE.
            ENDIF
+          ENDIF
 #endif
          deallocate(index3d)
         ENDIF
       ENDDO
+#ifdef CPP_XIOS
+    IF (ok_all_xml) THEN
+     CALL xios_send_field(nom, Field3d(:,:,1:nlev))
+     IF (prt_level >= 9) WRITE(lunout,*)'xios_send_field ',var%name
+    ENDIF
+#endif
+
 !$OMP END MASTER   
   ENDIF ! vars_defined
Index: LMDZ5/branches/testing/libf/cosp/phys_cosp.F90
===================================================================
--- LMDZ5/branches/testing/libf/cosp/phys_cosp.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/cosp/phys_cosp.F90	(revision 2160)
@@ -6,5 +6,5 @@
   subroutine phys_cosp( itap,dtime,freq_cosp, &
                         ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                        ecrit_mth,ecrit_day,ecrit_hf, &
+                        ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, &
                         Nptslmdz,Nlevlmdz,lon,lat, presnivs,overlaplmdz,sunlit, &
                         ref_liq,ref_ice,fracTerLic,u_wind,v_wind,phis,phi,ph,p,skt,t, &
@@ -84,6 +84,4 @@
   character(len=64),PARAMETER  :: cosp_input_nl='cosp_input_nl.txt'
   character(len=64),PARAMETER  :: cosp_output_nl='cosp_output_nl.txt'
-  character(len=512), save :: finput ! Input file name
-  character(len=512), save :: cmor_nl
   integer, save :: isccp_topheight,isccp_topheight_direction,overlap
   integer,save  :: Ncolumns     ! Number of subcolumns in SCOPS
@@ -121,5 +119,5 @@
   integer :: ii
   real    :: ecrit_day,ecrit_hf,ecrit_mth
-  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
+  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml
 
   logical, save :: debut_cosp=.true.
@@ -140,6 +138,6 @@
   
 !
-   namelist/COSP_INPUT/cmor_nl,overlap,isccp_topheight,isccp_topheight_direction, &
-              npoints_it,ncolumns,nlevels,use_vgrid,nlr,csat_vgrid,finput, &
+   namelist/COSP_INPUT/overlap,isccp_topheight,isccp_topheight_direction, &
+              npoints_it,ncolumns,use_vgrid,nlr,csat_vgrid, &
               radar_freq,surface_radar,use_mie_tables, &
               use_gas_abs,do_ray,melt_lay,k2,Nprmts_max_hydro,Naero,Nprmts_max_aero, &
@@ -297,9 +295,11 @@
      if (debut_cosp) then
 
+      !$OMP MASTER
         print *, ' Open outpts files and define axis'
         call cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
-                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, &
+                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml, &
                               ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
-
+      !$OMP END MASTER
+      !$OMP BARRIER
         debut_cosp=.false.
       endif ! debut_cosp
@@ -313,5 +313,6 @@
 !!!!!!!!!!!!!!!!!! Ecreture des sorties Cosp !!!!!!!!!!!!!!r!!!!!!:!!!!!
        print *, 'Calling write output'
-        call cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, cfg, gbx, sglidar, stlidar, isccp)
+        call cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, &
+                               cfg, gbx, vgrid, sglidar, stlidar, isccp)
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -343,5 +344,4 @@
       CLOSE(10)
     ENDIF
-    CALL bcast(cmor_nl)
     CALL bcast(overlap)
     CALL bcast(isccp_topheight)
@@ -349,9 +349,7 @@
     CALL bcast(npoints_it)
     CALL bcast(ncolumns)
-    CALL bcast(nlevels)
     CALL bcast(use_vgrid)
     CALL bcast(nlr)
     CALL bcast(csat_vgrid)
-    CALL bcast(finput)
     CALL bcast(radar_freq)
     CALL bcast(surface_radar)
Index: LMDZ5/branches/testing/libf/dyn3d/abort_gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/abort_gcm.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d/abort_gcm.F	(revision 2160)
@@ -28,7 +28,7 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character(len=*) modname
-      integer ierr
-      character(len=*) message
+      character(len=*), intent(in):: modname
+      integer, intent(in):: ierr
+      character(len=*), intent(in):: message
 
       write(lunout,*) 'in abort_gcm'
@@ -54,5 +54,5 @@
         stop
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
         stop 1
       endif
Index: LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F	(revision 2116)
+++ 	(revision )
@@ -1,939 +1,0 @@
-!
-! $Id$
-!
-!
-!
-      SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
-!
-      USE control_mod
-#ifdef CPP_IOIPSL
-      use IOIPSL
-#else
-! if not using IOIPSL, we still need to use (a local version of) getin
-      use ioipsl_getincom
-#endif
-      USE infotrac, ONLY : type_trac
-      use assert_m, only: assert
-
-      IMPLICIT NONE
-!-----------------------------------------------------------------------
-!     Auteurs :   L. Fairhead , P. Le Van  .
-!
-!     Arguments :
-!
-!     tapedef   :
-!     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
-!     -metres  du zoom  avec  celles lues sur le fichier start .
-!      clesphy0 :  sortie  .
-!
-       LOGICAL etatinit
-       INTEGER tapedef
-
-       INTEGER        longcles
-       PARAMETER(     longcles = 20 )
-       REAL clesphy0( longcles )
-!
-!   Declarations :
-!   --------------
-#include "dimensions.h"
-#include "paramet.h"
-#include "logic.h"
-#include "serre.h"
-#include "comdissnew.h"
-#include "temps.h"
-#include "comconst.h"
-
-! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
-! #include "clesphys.h"
-#include "iniprint.h"
-!
-!
-!   local:
-!   ------
-
-      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
-      REAL clonn,clatt,grossismxx,grossismyy
-      REAL dzoomxx,dzoomyy, tauxx,tauyy
-      LOGICAL  fxyhypbb, ysinuss
-      INTEGER i
-      LOGICAL use_filtre_fft
-!
-!  -------------------------------------------------------------------
-!
-!       .........     Version  du 29/04/97       ..........
-!
-!   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
-!      tetatemp   ajoutes  pour la dissipation   .
-!
-!   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** 
-!
-!  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
-!    Sinon , choix de fxynew  , a derivee sinusoidale  ..
-!
-!   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
-!         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
-!                de limit.dat ( dic)                        ...........
-!           Sinon  etatinit = . FALSE .
-!
-!   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
-!    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
-!   celles passees  par run.def ,  au debut du gcm, apres l'appel a 
-!    lectba .  
-!   Ces parmetres definissant entre autres la grille et doivent etre
-!   pareils et coherents , sinon il y aura  divergence du gcm .
-!
-!-----------------------------------------------------------------------
-!   initialisations:
-!   ----------------
-
-!Config  Key  = lunout
-!Config  Desc = unite de fichier pour les impressions
-!Config  Def  = 6
-!Config  Help = unite de fichier pour les impressions 
-!Config         (defaut sortie standard = 6)
-      lunout=6
-      CALL getin('lunout', lunout)
-      IF (lunout /= 5 .and. lunout /= 6) THEN
-        OPEN(UNIT=lunout,FILE='lmdz.out',ACTION='write',                     &
-     &          STATUS='unknown',FORM='formatted')
-      ENDIF
-
-!Config  Key  = prt_level
-!Config  Desc = niveau d'impressions de débogage
-!Config  Def  = 0
-!Config  Help = Niveau d'impression pour le débogage
-!Config         (0 = minimum d'impression)
-      prt_level = 0
-      CALL getin('prt_level',prt_level)
-
-!-----------------------------------------------------------------------
-!  Parametres de controle du run:
-!-----------------------------------------------------------------------
-!Config  Key  = planet_type
-!Config  Desc = planet type ("earth", "mars", "venus", ...)
-!Config  Def  = earth
-!Config  Help = this flag sets the type of atymosphere that is considered
-      planet_type="earth"
-      CALL getin('planet_type',planet_type)
-
-!Config  Key  = calend
-!Config  Desc = type de calendrier utilise
-!Config  Def  = earth_360d
-!Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
-!Config         
-      calend = 'earth_360d'
-      CALL getin('calend', calend)
-
-!Config  Key  = dayref
-!Config  Desc = Jour de l'etat initial
-!Config  Def  = 1
-!Config  Help = Jour de l'etat initial ( = 350  si 20 Decembre ,
-!Config         par expl. ,comme ici ) ... A completer
-      dayref=1
-      CALL getin('dayref', dayref)
-
-!Config  Key  = anneeref
-!Config  Desc = Annee de l'etat initial
-!Config  Def  = 1998
-!Config  Help = Annee de l'etat  initial 
-!Config         (   avec  4  chiffres   ) ... A completer
-      anneeref = 1998
-      CALL getin('anneeref',anneeref)
-
-!Config  Key  = raz_date
-!Config  Desc = Remise a zero de la date initiale
-!Config  Def  = 0 (pas de remise a zero)
-!Config  Help = Remise a zero de la date initiale 
-!Config         0 pas de remise a zero, on garde la date du fichier restart
-!Config         1 prise en compte de la date de gcm.def avec remise a zero
-!Config         des compteurs de pas de temps
-      raz_date = 0
-      CALL getin('raz_date', raz_date)
-
-!Config  Key  = nday
-!Config  Desc = Nombre de jours d'integration
-!Config  Def  = 10
-!Config  Help = Nombre de jours d'integration
-!Config         ... On pourait aussi permettre des mois ou des annees !
-      nday = 10
-      CALL getin('nday',nday)
-
-!Config  Key  = starttime
-!Config  Desc = Heure de depart de la simulation
-!Config  Def  = 0
-!Config  Help = Heure de depart de la simulation
-!Config         en jour
-      starttime = 0
-      CALL getin('starttime',starttime)
-
-!Config  Key  = day_step
-!Config  Desc = nombre de pas par jour
-!Config  Def  = 240 
-!Config  Help = nombre de pas par jour (multiple de iperiod) (
-!Config          ici pour  dt = 1 min ) 
-       day_step = 240 
-       CALL getin('day_step',day_step)
-
-!Config  Key  = nsplit_phys
-       nsplit_phys = 1 
-       CALL getin('nsplit_phys',nsplit_phys)
-
-!Config  Key  = iperiod
-!Config  Desc = periode pour le pas Matsuno
-!Config  Def  = 5
-!Config  Help = periode pour le pas Matsuno (en pas de temps)
-       iperiod = 5
-       CALL getin('iperiod',iperiod)
-
-!Config  Key  = iapp_tracvl
-!Config  Desc = frequence du groupement des flux 
-!Config  Def  = iperiod
-!Config  Help = frequence du groupement des flux (en pas de temps) 
-       iapp_tracvl = iperiod
-       CALL getin('iapp_tracvl',iapp_tracvl)
-
-!Config  Key  = iconser
-!Config  Desc = periode de sortie des variables de controle
-!Config  Def  = 240  
-!Config  Help = periode de sortie des variables de controle
-!Config         (En pas de temps)
-       iconser = 240  
-       CALL getin('iconser', iconser)
-
-!Config  Key  = iecri
-!Config  Desc = periode d'ecriture du fichier histoire
-!Config  Def  = 1
-!Config  Help = periode d'ecriture du fichier histoire (en jour) 
-       iecri = 1
-       CALL getin('iecri',iecri)
-
-
-!Config  Key  = periodav
-!Config  Desc = periode de stockage fichier histmoy
-!Config  Def  = 1
-!Config  Help = periode de stockage fichier histmoy (en jour) 
-       periodav = 1.
-       CALL getin('periodav',periodav)
-
-!Config  Key  = output_grads_dyn
-!Config  Desc = output dynamics diagnostics in 'dyn.dat' file
-!Config  Def  = n
-!Config  Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file
-       output_grads_dyn=.false.
-       CALL getin('output_grads_dyn',output_grads_dyn)
-
-!Config  Key  = dissip_period
-!Config  Desc = periode de la dissipation 
-!Config  Def  = 0
-!Config  Help = periode de la dissipation 
-!Config  dissip_period=0 => la valeur sera calcule dans inidissip       
-!Config  dissip_period>0 => on prend cette valeur
-       dissip_period = 0
-       CALL getin('dissip_period',dissip_period)
-
-!cc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
-!cc
-
-!Config  Key  = lstardis
-!Config  Desc = choix de l'operateur de dissipation
-!Config  Def  = y
-!Config  Help = choix de l'operateur de dissipation
-!Config         'y' si on veut star et 'n' si on veut non-start !
-!Config         Moi y en a pas comprendre ! 
-       lstardis = .TRUE.
-       CALL getin('lstardis',lstardis)
-
-
-!Config  Key  = nitergdiv
-!Config  Desc = Nombre d'iteration de gradiv
-!Config  Def  = 1
-!Config  Help = nombre d'iterations de l'operateur de dissipation 
-!Config         gradiv
-       nitergdiv = 1
-       CALL getin('nitergdiv',nitergdiv)
-
-!Config  Key  = nitergrot
-!Config  Desc = nombre d'iterations de nxgradrot
-!Config  Def  = 2
-!Config  Help = nombre d'iterations de l'operateur de dissipation  
-!Config         nxgradrot
-       nitergrot = 2
-       CALL getin('nitergrot',nitergrot)
-
-
-!Config  Key  = niterh
-!Config  Desc = nombre d'iterations de divgrad
-!Config  Def  = 2
-!Config  Help = nombre d'iterations de l'operateur de dissipation
-!Config         divgrad
-       niterh = 2
-       CALL getin('niterh',niterh)
-
-
-!Config  Key  = tetagdiv
-!Config  Desc = temps de dissipation pour div
-!Config  Def  = 7200
-!Config  Help = temps de dissipation des plus petites longeur 
-!Config         d'ondes pour u,v (gradiv)
-       tetagdiv = 7200.
-       CALL getin('tetagdiv',tetagdiv)
-
-!Config  Key  = tetagrot
-!Config  Desc = temps de dissipation pour grad
-!Config  Def  = 7200
-!Config  Help = temps de dissipation des plus petites longeur 
-!Config         d'ondes pour u,v (nxgradrot)
-       tetagrot = 7200.
-       CALL getin('tetagrot',tetagrot)
-
-!Config  Key  = tetatemp 
-!Config  Desc = temps de dissipation pour h
-!Config  Def  = 7200
-!Config  Help =  temps de dissipation des plus petites longeur 
-!Config         d'ondes pour h (divgrad)   
-       tetatemp  = 7200.
-       CALL getin('tetatemp',tetatemp )
-
-! Parametres controlant la variation sur la verticale des constantes de
-! dissipation.
-! Pour le moment actifs uniquement dans la version a 39 niveaux
-! avec ok_strato=y
-
-       dissip_factz=4.
-       dissip_deltaz=10.
-       dissip_zref=30.
-       CALL getin('dissip_factz',dissip_factz )
-       CALL getin('dissip_deltaz',dissip_deltaz )
-       CALL getin('dissip_zref',dissip_zref )
-
-! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
-!                   iflag_top_bound=0 for no sponge
-!                   iflag_top_bound=1 for sponge over 4 topmost layers
-!                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
-       iflag_top_bound=1
-       CALL getin('iflag_top_bound',iflag_top_bound)
-
-! mode_top_bound : fields towards which sponge relaxation will be done:
-!                  mode_top_bound=0: no relaxation
-!                  mode_top_bound=1: u and v relax towards 0
-!                  mode_top_bound=2: u and v relax towards their zonal mean
-!                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
-       mode_top_bound=3
-       CALL getin('mode_top_bound',mode_top_bound)
-
-! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
-       tau_top_bound=1.e-5
-       CALL getin('tau_top_bound',tau_top_bound)
-
-!Config  Key  = coefdis
-!Config  Desc = coefficient pour gamdissip
-!Config  Def  = 0
-!Config  Help = coefficient pour gamdissip  
-       coefdis = 0.
-       CALL getin('coefdis',coefdis)
-
-!Config  Key  = purmats
-!Config  Desc = Schema d'integration
-!Config  Def  = n
-!Config  Help = Choix du schema d'integration temporel.
-!Config         y = pure Matsuno sinon c'est du Matsuno-leapfrog
-       purmats = .FALSE.
-       CALL getin('purmats',purmats)
-
-!Config  Key  = ok_guide
-!Config  Desc = Guidage
-!Config  Def  = n
-!Config  Help = Guidage
-       ok_guide = .FALSE.
-       CALL getin('ok_guide',ok_guide)
-
-!    ...............................................................
-
-!Config  Key  =  read_start
-!Config  Desc = Initialize model using a 'start.nc' file
-!Config  Def  = y
-!Config  Help = y: intialize dynamical fields using a 'start.nc' file
-!               n: fields are initialized by 'iniacademic' routine
-       read_start= .true.
-       CALL getin('read_start',read_start)
-
-!Config  Key  = iflag_phys
-!Config  Desc = Avec ls physique 
-!Config  Def  = 1
-!Config  Help = Permet de faire tourner le modele sans 
-!Config         physique.
-       iflag_phys = 1
-       CALL getin('iflag_phys',iflag_phys)
-
-
-!Config  Key  =  iphysiq
-!Config  Desc = Periode de la physique
-!Config  Def  = 5
-!Config  Help = Periode de la physique en pas de temps de la dynamique.
-       iphysiq = 5
-       CALL getin('iphysiq', iphysiq)
-
-!Config  Key  = ip_ebil_dyn
-!Config  Desc = PRINT level for energy conserv. diag.
-!Config  Def  = 0
-!Config  Help = PRINT level for energy conservation diag. ;
-!               les options suivantes existent :
-!Config         0 pas de print
-!Config         1 pas de print
-!Config         2 print,
-       ip_ebil_dyn = 0
-       CALL getin('ip_ebil_dyn',ip_ebil_dyn)
-!
-
-      DO i = 1, longcles
-       clesphy0(i) = 0.
-      ENDDO
-
-!cc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
-!     .........   (  modif  le 17/04/96 )   .........
-!
-      IF( etatinit ) GO TO 100
-
-!Config  Key  = clon
-!Config  Desc = centre du zoom, longitude
-!Config  Def  = 0
-!Config  Help = longitude en degres du centre 
-!Config         du zoom
-       clonn = 0.
-       CALL getin('clon',clonn)
-
-!Config  Key  = clat
-!Config  Desc = centre du zoom, latitude
-!Config  Def  = 0
-!Config  Help = latitude en degres du centre du zoom
-!Config         
-       clatt = 0.
-       CALL getin('clat',clatt)
-
-!
-!
-      IF( ABS(clat - clatt).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',     &
-     &    ' est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-
-!Config  Key  = grossismx 
-!Config  Desc = zoom en longitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la longitude
-       grossismxx = 1.0
-       CALL getin('grossismx',grossismxx)
-
-
-      IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ',       &
-     &  'run.def est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-
-!Config  Key  = grossismy
-!Config  Desc = zoom en latitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la latitude
-       grossismyy = 1.0
-       CALL getin('grossismy',grossismyy)
-
-      IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ',        &
-     & 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-      
-      IF( grossismx.LT.1. )  THEN
-        write(lunout,*)                                                        &
-     &       'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-         STOP
-      ELSE
-         alphax = 1. - 1./ grossismx
-      ENDIF
-
-
-      IF( grossismy.LT.1. )  THEN
-        write(lunout,*)                                                        &
-     &       'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
-         STOP
-      ELSE
-         alphay = 1. - 1./ grossismy
-      ENDIF
-
-      write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
-!
-!    alphax et alphay sont les anciennes formulat. des grossissements
-!
-!
-
-!Config  Key  = fxyhypb
-!Config  Desc = Fonction  hyperbolique
-!Config  Def  = y
-!Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
-!Config         sinon  sinusoidale
-       fxyhypbb = .TRUE.
-       CALL getin('fxyhypb',fxyhypbb)
-
-      IF( .NOT.fxyhypb )  THEN
-         IF( fxyhypbb )     THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** fxyhypb lu sur le fichier start est ',     &
-     &       'F alors  qu il est  T  sur  run.def  ***'
-              STOP
-         ENDIF
-      ELSE
-         IF( .NOT.fxyhypbb )   THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' ***  fxyhypb lu sur le fichier start est ',     &
-     &        'T alors  qu il est  F  sur  run.def  ****  '
-              STOP
-         ENDIF
-      ENDIF
-!
-!Config  Key  = dzoomx
-!Config  Desc = extension en longitude
-!Config  Def  = 0
-!Config  Help = extension en longitude  de la zone du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomxx = 0.0
-       CALL getin('dzoomx',dzoomxx)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ',         &
-     &  'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!Config  Key  = dzoomy
-!Config  Desc = extension en latitude
-!Config  Def  = 0
-!Config  Help = extension en latitude de la zone  du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomyy = 0.0
-       CALL getin('dzoomy',dzoomyy)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ',          &
-     & 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-      
-!Config  Key  = taux
-!Config  Desc = raideur du zoom en  X
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  X
-       tauxx = 3.0
-       CALL getin('taux',tauxx)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de taux passee par ',           &
-     & 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!Config  Key  = tauyy
-!Config  Desc = raideur du zoom en  Y
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  Y
-       tauyy = 3.0
-       CALL getin('tauy',tauyy)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de tauy passee par ',           &
-     & 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!c
-      IF( .NOT.fxyhypb  )  THEN
-
-!Config  Key  = ysinus
-!Config  IF   = !fxyhypb
-!Config  Desc = Fonction en Sinus
-!Config  Def  = y
-!Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
-!Config         sinon y = latit.
-       ysinuss = .TRUE.
-       CALL getin('ysinus',ysinuss)
-
-        IF( .NOT.ysinus )  THEN
-          IF( ysinuss )     THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** ysinus lu sur le fichier start est F',     &
-     &       ' alors  qu il est  T  sur  run.def  ***'
-            STOP
-          ENDIF
-        ELSE
-          IF( .NOT.ysinuss )   THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** ysinus lu sur le fichier start est T',     &
-     &        ' alors  qu il est  F  sur  run.def  ****  '
-              STOP
-          ENDIF
-        ENDIF
-      ENDIF ! of IF( .NOT.fxyhypb  )
-!
-!Config  Key  = offline
-!Config  Desc = Nouvelle eau liquide
-!Config  Def  = n
-!Config  Help = Permet de mettre en route la
-!Config         nouvelle parametrisation de l'eau liquide !
-       offline = .FALSE.
-       CALL getin('offline',offline)
-     
-!Config  Key  = type_trac
-!Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
-!Config  Def  = lmdz
-!Config  Help = 
-!Config         'lmdz' = pas de couplage, pur LMDZ
-!Config         'inca' = model de chime INCA 
-!Config         'repr' = model de chime REPROBUS
-      type_trac = 'lmdz'
-      CALL getin('type_trac',type_trac)
-
-!Config  Key  = config_inca
-!Config  Desc = Choix de configuration de INCA
-!Config  Def  = none
-!Config  Help = Choix de configuration de INCA :
-!Config         'none' = sans INCA
-!Config         'chem' = INCA avec calcul de chemie
-!Config         'aero' = INCA avec calcul des aerosols 
-      config_inca = 'none'
-      CALL getin('config_inca',config_inca)
-
-!Config  Key  = ok_dynzon 
-!Config  Desc = calcul et sortie des transports 
-!Config  Def  = n 
-!Config  Help = Permet de mettre en route le calcul des transports 
-!Config          
-      ok_dynzon = .FALSE. 
-      CALL getin('ok_dynzon',ok_dynzon) 
-
-!Config  Key  = ok_dyn_ins
-!Config  Desc = sorties instantanees dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ins = .FALSE. 
-      CALL getin('ok_dyn_ins',ok_dyn_ins) 
-
-!Config  Key  = ok_dyn_ave
-!Config  Desc = sorties moyennes dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ave = .FALSE. 
-      CALL getin('ok_dyn_ave',ok_dyn_ave) 
-
-      write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres du gcm: '
-      write(lunout,*)' planet_type = ', planet_type
-      write(lunout,*)' calend = ', calend
-      write(lunout,*)' dayref = ', dayref
-      write(lunout,*)' anneeref = ', anneeref
-      write(lunout,*)' nday = ', nday
-      write(lunout,*)' day_step = ', day_step
-      write(lunout,*)' iperiod = ', iperiod
-      write(lunout,*)' nsplit_phys = ', nsplit_phys
-      write(lunout,*)' iconser = ', iconser
-      write(lunout,*)' iecri = ', iecri
-      write(lunout,*)' periodav = ', periodav 
-      write(lunout,*)' output_grads_dyn = ', output_grads_dyn
-      write(lunout,*)' dissip_period = ', dissip_period
-      write(lunout,*)' lstardis = ', lstardis
-      write(lunout,*)' nitergdiv = ', nitergdiv
-      write(lunout,*)' nitergrot = ', nitergrot
-      write(lunout,*)' niterh = ', niterh
-      write(lunout,*)' tetagdiv = ', tetagdiv
-      write(lunout,*)' tetagrot = ', tetagrot
-      write(lunout,*)' tetatemp = ', tetatemp
-      write(lunout,*)' coefdis = ', coefdis
-      write(lunout,*)' purmats = ', purmats
-      write(lunout,*)' read_start = ', read_start
-      write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' iphysiq = ', iphysiq
-      write(lunout,*)' clonn = ', clonn 
-      write(lunout,*)' clatt = ', clatt
-      write(lunout,*)' grossismx = ', grossismx
-      write(lunout,*)' grossismy = ', grossismy
-      write(lunout,*)' fxyhypbb = ', fxyhypbb
-      write(lunout,*)' dzoomxx = ', dzoomxx
-      write(lunout,*)' dzoomy = ', dzoomyy
-      write(lunout,*)' tauxx = ', tauxx
-      write(lunout,*)' tauyy = ', tauyy
-      write(lunout,*)' offline = ', offline
-      write(lunout,*)' type_trac = ', type_trac
-      write(lunout,*)' config_inca = ', config_inca
-      write(lunout,*)' ok_dynzon = ', ok_dynzon 
-      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
-      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-
-      RETURN
-!   ...............................................
-!
-100   CONTINUE
-!Config  Key  = clon
-!Config  Desc = centre du zoom, longitude
-!Config  Def  = 0
-!Config  Help = longitude en degres du centre 
-!Config         du zoom
-       clon = 0.
-       CALL getin('clon',clon)
-
-!Config  Key  = clat
-!Config  Desc = centre du zoom, latitude
-!Config  Def  = 0
-!Config  Help = latitude en degres du centre du zoom
-!Config         
-       clat = 0.
-       CALL getin('clat',clat)
-
-!Config  Key  = grossismx 
-!Config  Desc = zoom en longitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la longitude
-       grossismx = 1.0
-       CALL getin('grossismx',grossismx)
-
-!Config  Key  = grossismy
-!Config  Desc = zoom en latitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la latitude
-       grossismy = 1.0
-       CALL getin('grossismy',grossismy)
-
-      IF( grossismx.LT.1. )  THEN
-        write(lunout,*)'conf_gcm: ***ATTENTION !! grossismx < 1 . *** '
-         STOP
-      ELSE
-         alphax = 1. - 1./ grossismx
-      ENDIF
-
-
-      IF( grossismy.LT.1. )  THEN
-        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
-         STOP
-      ELSE
-         alphay = 1. - 1./ grossismy
-      ENDIF
-
-      write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
-!
-!    alphax et alphay sont les anciennes formulat. des grossissements
-!
-!
-
-!Config  Key  = fxyhypb
-!Config  Desc = Fonction  hyperbolique
-!Config  Def  = y
-!Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
-!Config         sinon  sinusoidale
-       fxyhypb = .TRUE.
-       CALL getin('fxyhypb',fxyhypb)
-
-!Config  Key  = dzoomx
-!Config  Desc = extension en longitude
-!Config  Def  = 0
-!Config  Help = extension en longitude  de la zone du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomx = 0.0
-       CALL getin('dzoomx',dzoomx)
-
-!Config  Key  = dzoomy
-!Config  Desc = extension en latitude
-!Config  Def  = 0
-!Config  Help = extension en latitude de la zone  du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomy = 0.0
-       CALL getin('dzoomy',dzoomy)
-
-!Config  Key  = taux
-!Config  Desc = raideur du zoom en  X
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  X
-       taux = 3.0
-       CALL getin('taux',taux)
-
-!Config  Key  = tauy
-!Config  Desc = raideur du zoom en  Y
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  Y
-       tauy = 3.0
-       CALL getin('tauy',tauy)
-
-!Config  Key  = ysinus
-!Config  IF   = !fxyhypb
-!Config  Desc = Fonction en Sinus
-!Config  Def  = y
-!Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
-!Config         sinon y = latit.
-       ysinus = .TRUE.
-       CALL getin('ysinus',ysinus)
-!
-!Config  Key  = offline
-!Config  Desc = Nouvelle eau liquide
-!Config  Def  = n
-!Config  Help = Permet de mettre en route la
-!Config         nouvelle parametrisation de l'eau liquide !
-       offline = .FALSE.
-       CALL getin('offline',offline)
-
-!Config  Key  = type_trac
-!Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
-!Config  Def  = lmdz
-!Config  Help = 
-!Config         'lmdz' = pas de couplage, pur LMDZ
-!Config         'inca' = model de chime INCA 
-!Config         'repr' = model de chime REPROBUS
-      type_trac = 'lmdz'
-      CALL getin('type_trac',type_trac)
-
-!Config  Key  = config_inca
-!Config  Desc = Choix de configuration de INCA
-!Config  Def  = none
-!Config  Help = Choix de configuration de INCA :
-!Config         'none' = sans INCA
-!Config         'chem' = INCA avec calcul de chemie
-!Config         'aero' = INCA avec calcul des aerosols 
-      config_inca = 'none'
-      CALL getin('config_inca',config_inca)
-
-!Config  Key  = ok_dynzon 
-!Config  Desc = sortie des transports zonaux dans la dynamique
-!Config  Def  = n 
-!Config  Help = Permet de mettre en route le calcul des transports 
-!Config          
-      ok_dynzon = .FALSE. 
-      CALL getin('ok_dynzon',ok_dynzon) 
-
-!Config  Key  = ok_dyn_ins
-!Config  Desc = sorties instantanees dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ins = .FALSE. 
-      CALL getin('ok_dyn_ins',ok_dyn_ins) 
-
-!Config  Key  = ok_dyn_ave
-!Config  Desc = sorties moyennes dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ave = .FALSE. 
-      CALL getin('ok_dyn_ave',ok_dyn_ave) 
-
-!Config  Key  = use_filtre_fft
-!Config  Desc = flag d'activation des FFT pour le filtre
-!Config  Def  = false
-!Config  Help = permet d'activer l'utilisation des FFT pour effectuer
-!Config         le filtrage aux poles.
-! Le filtre fft n'est pas implemente dans dyn3d 
-      use_filtre_fft=.FALSE.
-      CALL getin('use_filtre_fft',use_filtre_fft)
-
-      IF (use_filtre_fft) THEN
-        write(lunout,*)'STOP !!!'
-        write(lunout,*)'use_filtre_fft n est pas implemente dans dyn3d'
-        STOP 1
-      ENDIF
-      
-!Config key = ok_strato
-!Config  Desc = activation de la version strato
-!Config  Def  = .FALSE.
-!Config  Help = active la version stratosphérique de LMDZ de F. Lott
-
-      ok_strato=.FALSE.
-      CALL getin('ok_strato',ok_strato)
-
-      vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
-      CALL getin('vert_prof_dissip', vert_prof_dissip)
-      call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1,        &
-     &     "bad value for vert_prof_dissip")
-
-!Config  Key  = ok_gradsfile
-!Config  Desc = activation des sorties grads du guidage
-!Config  Def  = n
-!Config  Help = active les sorties grads du guidage
-
-       ok_gradsfile = .FALSE.
-       CALL getin('ok_gradsfile',ok_gradsfile)
-
-!Config  Key  = ok_limit
-!Config  Desc = creation des fichiers limit dans create_etat0_limit
-!Config  Def  = y
-!Config  Help = production du fichier limit.nc requise
-
-       ok_limit = .TRUE.
-       CALL getin('ok_limit',ok_limit)
-
-!Config  Key  = ok_etat0
-!Config  Desc = creation des fichiers etat0 dans create_etat0_limit
-!Config  Def  = y
-!Config  Help = production des fichiers start.nc, startphy.nc requise
-
-      ok_etat0 = .TRUE.
-      CALL getin('ok_etat0',ok_etat0)
-
-      write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres de cel0'                &
-     &             //'_limit: '
-      write(lunout,*)' planet_type = ', planet_type
-      write(lunout,*)' calend = ', calend
-      write(lunout,*)' dayref = ', dayref
-      write(lunout,*)' anneeref = ', anneeref
-      write(lunout,*)' nday = ', nday
-      write(lunout,*)' day_step = ', day_step
-      write(lunout,*)' iperiod = ', iperiod
-      write(lunout,*)' iconser = ', iconser
-      write(lunout,*)' iecri = ', iecri
-      write(lunout,*)' periodav = ', periodav 
-      write(lunout,*)' output_grads_dyn = ', output_grads_dyn
-      write(lunout,*)' dissip_period = ', dissip_period
-      write(lunout,*)' lstardis = ', lstardis
-      write(lunout,*)' nitergdiv = ', nitergdiv
-      write(lunout,*)' nitergrot = ', nitergrot
-      write(lunout,*)' niterh = ', niterh
-      write(lunout,*)' tetagdiv = ', tetagdiv
-      write(lunout,*)' tetagrot = ', tetagrot
-      write(lunout,*)' tetatemp = ', tetatemp
-      write(lunout,*)' coefdis = ', coefdis
-      write(lunout,*)' purmats = ', purmats
-      write(lunout,*)' read_start = ', read_start
-      write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' iphysiq = ', iphysiq
-      write(lunout,*)' clon = ', clon
-      write(lunout,*)' clat = ', clat
-      write(lunout,*)' grossismx = ', grossismx
-      write(lunout,*)' grossismy = ', grossismy
-      write(lunout,*)' fxyhypb = ', fxyhypb
-      write(lunout,*)' dzoomx = ', dzoomx
-      write(lunout,*)' dzoomy = ', dzoomy
-      write(lunout,*)' taux = ', taux
-      write(lunout,*)' tauy = ', tauy
-      write(lunout,*)' offline = ', offline
-      write(lunout,*)' type_trac = ', type_trac
-      write(lunout,*)' config_inca = ', config_inca
-      write(lunout,*)' ok_dynzon = ', ok_dynzon
-      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
-      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-      write(lunout,*)' ok_strato = ', ok_strato
-      write(lunout,*)' ok_gradsfile = ', ok_gradsfile
-      write(lunout,*)' ok_limit = ', ok_limit
-      write(lunout,*)' ok_etat0 = ', ok_etat0
-!
-      RETURN
-      END
Index: LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F90	(revision 2160)
@@ -0,0 +1,922 @@
+
+! $Id$
+
+SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
+
+  USE control_mod
+#ifdef CPP_IOIPSL
+  use IOIPSL
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  use ioipsl_getincom
+#endif
+  USE infotrac, ONLY : type_trac
+  use assert_m, only: assert
+
+  IMPLICIT NONE
+  !-----------------------------------------------------------------------
+  !     Auteurs :   L. Fairhead , P. Le Van  .
+
+  !     Arguments :
+
+  !     tapedef   :
+  !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
+  !     -metres  du zoom  avec  celles lues sur le fichier start .
+  !      clesphy0 :  sortie  .
+
+  LOGICAL etatinit
+  INTEGER tapedef
+
+  INTEGER        longcles
+  PARAMETER(     longcles = 20 )
+  REAL clesphy0( longcles )
+
+  !   Declarations :
+  !   --------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "logic.h"
+  include "serre.h"
+  include "comdissnew.h"
+  include "temps.h"
+  include "comconst.h"
+
+  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+  ! include "clesphys.h"
+  include "iniprint.h"
+
+  !   local:
+  !   ------
+
+  CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
+  REAL clonn,clatt,grossismxx,grossismyy
+  REAL dzoomxx,dzoomyy, tauxx,tauyy
+  LOGICAL  fxyhypbb, ysinuss
+  INTEGER i
+  LOGICAL use_filtre_fft
+
+  !  -------------------------------------------------------------------
+
+  !       .........     Version  du 29/04/97       ..........
+
+  !   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
+  !      tetatemp   ajoutes  pour la dissipation   .
+
+  !   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** 
+
+  !  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
+  !    Sinon , choix de fxynew  , a derivee sinusoidale  ..
+
+  !   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
+  !         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
+  !                de limit.dat ( dic)                        ...........
+  !           Sinon  etatinit = . FALSE .
+
+  !   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
+  !    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
+  !   celles passees  par run.def ,  au debut du gcm, apres l'appel a 
+  !    lectba .  
+  !   Ces parmetres definissant entre autres la grille et doivent etre
+  !   pareils et coherents , sinon il y aura  divergence du gcm .
+
+  !-----------------------------------------------------------------------
+  !   initialisations:
+  !   ----------------
+
+  !Config  Key  = lunout
+  !Config  Desc = unite de fichier pour les impressions
+  !Config  Def  = 6
+  !Config  Help = unite de fichier pour les impressions 
+  !Config         (defaut sortie standard = 6)
+  lunout=6
+  CALL getin('lunout', lunout)
+  IF (lunout /= 5 .and. lunout /= 6) THEN
+     OPEN(UNIT=lunout,FILE='lmdz.out',ACTION='write',                      &
+          STATUS='unknown',FORM='formatted')
+  ENDIF
+
+  !Config  Key  = prt_level
+  !Config  Desc = niveau d'impressions de débogage
+  !Config  Def  = 0
+  !Config  Help = Niveau d'impression pour le débogage
+  !Config         (0 = minimum d'impression)
+  prt_level = 0
+  CALL getin('prt_level',prt_level)
+
+  !-----------------------------------------------------------------------
+  !  Parametres de controle du run:
+  !-----------------------------------------------------------------------
+  !Config  Key  = planet_type
+  !Config  Desc = planet type ("earth", "mars", "venus", ...)
+  !Config  Def  = earth
+  !Config  Help = this flag sets the type of atymosphere that is considered
+  planet_type="earth"
+  CALL getin('planet_type',planet_type)
+
+  !Config  Key  = calend
+  !Config  Desc = type de calendrier utilise
+  !Config  Def  = earth_360d
+  !Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
+  !Config         
+  calend = 'earth_360d'
+  CALL getin('calend', calend)
+
+  !Config  Key  = dayref
+  !Config  Desc = Jour de l'etat initial
+  !Config  Def  = 1
+  !Config  Help = Jour de l'etat initial ( = 350  si 20 Decembre ,
+  !Config         par expl. ,comme ici ) ... A completer
+  dayref=1
+  CALL getin('dayref', dayref)
+
+  !Config  Key  = anneeref
+  !Config  Desc = Annee de l'etat initial
+  !Config  Def  = 1998
+  !Config  Help = Annee de l'etat  initial 
+  !Config         (   avec  4  chiffres   ) ... A completer
+  anneeref = 1998
+  CALL getin('anneeref',anneeref)
+
+  !Config  Key  = raz_date
+  !Config  Desc = Remise a zero de la date initiale
+  !Config  Def  = 0 (pas de remise a zero)
+  !Config  Help = Remise a zero de la date initiale 
+  !Config         0 pas de remise a zero, on garde la date du fichier restart
+  !Config         1 prise en compte de la date de gcm.def avec remise a zero
+  !Config         des compteurs de pas de temps
+  raz_date = 0
+  CALL getin('raz_date', raz_date)
+
+  !Config  Key  = resetvarc
+  !Config  Desc = Reinit des variables de controle
+  !Config  Def  = n
+  !Config  Help = Reinit des variables de controle
+  resetvarc = .false.
+  CALL getin('resetvarc',resetvarc)
+
+  !Config  Key  = nday
+  !Config  Desc = Nombre de jours d'integration
+  !Config  Def  = 10
+  !Config  Help = Nombre de jours d'integration
+  !Config         ... On pourait aussi permettre des mois ou des annees !
+  nday = 10
+  CALL getin('nday',nday)
+
+  !Config  Key  = starttime
+  !Config  Desc = Heure de depart de la simulation
+  !Config  Def  = 0
+  !Config  Help = Heure de depart de la simulation
+  !Config         en jour
+  starttime = 0
+  CALL getin('starttime',starttime)
+
+  !Config  Key  = day_step
+  !Config  Desc = nombre de pas par jour
+  !Config  Def  = 240 
+  !Config  Help = nombre de pas par jour (multiple de iperiod) (
+  !Config          ici pour  dt = 1 min ) 
+  day_step = 240 
+  CALL getin('day_step',day_step)
+
+  !Config  Key  = nsplit_phys
+  nsplit_phys = 1 
+  CALL getin('nsplit_phys',nsplit_phys)
+
+  !Config  Key  = iperiod
+  !Config  Desc = periode pour le pas Matsuno
+  !Config  Def  = 5
+  !Config  Help = periode pour le pas Matsuno (en pas de temps)
+  iperiod = 5
+  CALL getin('iperiod',iperiod)
+
+  !Config  Key  = iapp_tracvl
+  !Config  Desc = frequence du groupement des flux 
+  !Config  Def  = iperiod
+  !Config  Help = frequence du groupement des flux (en pas de temps) 
+  iapp_tracvl = iperiod
+  CALL getin('iapp_tracvl',iapp_tracvl)
+
+  !Config  Key  = iconser
+  !Config  Desc = periode de sortie des variables de controle
+  !Config  Def  = 240  
+  !Config  Help = periode de sortie des variables de controle
+  !Config         (En pas de temps)
+  iconser = 240  
+  CALL getin('iconser', iconser)
+
+  !Config  Key  = iecri
+  !Config  Desc = periode d'ecriture du fichier histoire
+  !Config  Def  = 1
+  !Config  Help = periode d'ecriture du fichier histoire (en jour) 
+  iecri = 1
+  CALL getin('iecri',iecri)
+
+  !Config  Key  = periodav
+  !Config  Desc = periode de stockage fichier histmoy
+  !Config  Def  = 1
+  !Config  Help = periode de stockage fichier histmoy (en jour) 
+  periodav = 1.
+  CALL getin('periodav',periodav)
+
+  !Config  Key  = output_grads_dyn
+  !Config  Desc = output dynamics diagnostics in 'dyn.dat' file
+  !Config  Def  = n
+  !Config  Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file
+  output_grads_dyn=.false.
+  CALL getin('output_grads_dyn',output_grads_dyn)
+
+  !Config  Key  = dissip_period
+  !Config  Desc = periode de la dissipation 
+  !Config  Def  = 0
+  !Config  Help = periode de la dissipation 
+  !Config  dissip_period=0 => la valeur sera calcule dans inidissip       
+  !Config  dissip_period>0 => on prend cette valeur
+  dissip_period = 0
+  CALL getin('dissip_period',dissip_period)
+
+  !cc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
+  !cc
+
+  !Config  Key  = lstardis
+  !Config  Desc = choix de l'operateur de dissipation
+  !Config  Def  = y
+  !Config  Help = choix de l'operateur de dissipation
+  !Config         'y' si on veut star et 'n' si on veut non-start !
+  !Config         Moi y en a pas comprendre ! 
+  lstardis = .TRUE.
+  CALL getin('lstardis',lstardis)
+
+  !Config  Key  = nitergdiv
+  !Config  Desc = Nombre d'iteration de gradiv
+  !Config  Def  = 1
+  !Config  Help = nombre d'iterations de l'operateur de dissipation 
+  !Config         gradiv
+  nitergdiv = 1
+  CALL getin('nitergdiv',nitergdiv)
+
+  !Config  Key  = nitergrot
+  !Config  Desc = nombre d'iterations de nxgradrot
+  !Config  Def  = 2
+  !Config  Help = nombre d'iterations de l'operateur de dissipation  
+  !Config         nxgradrot
+  nitergrot = 2
+  CALL getin('nitergrot',nitergrot)
+
+  !Config  Key  = niterh
+  !Config  Desc = nombre d'iterations de divgrad
+  !Config  Def  = 2
+  !Config  Help = nombre d'iterations de l'operateur de dissipation
+  !Config         divgrad
+  niterh = 2
+  CALL getin('niterh',niterh)
+
+  !Config  Key  = tetagdiv
+  !Config  Desc = temps de dissipation pour div
+  !Config  Def  = 7200
+  !Config  Help = temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour u,v (gradiv)
+  tetagdiv = 7200.
+  CALL getin('tetagdiv',tetagdiv)
+
+  !Config  Key  = tetagrot
+  !Config  Desc = temps de dissipation pour grad
+  !Config  Def  = 7200
+  !Config  Help = temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour u,v (nxgradrot)
+  tetagrot = 7200.
+  CALL getin('tetagrot',tetagrot)
+
+  !Config  Key  = tetatemp 
+  !Config  Desc = temps de dissipation pour h
+  !Config  Def  = 7200
+  !Config  Help =  temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour h (divgrad)   
+  tetatemp  = 7200.
+  CALL getin('tetatemp',tetatemp )
+
+  ! Parametres controlant la variation sur la verticale des constantes de
+  ! dissipation.
+  ! Pour le moment actifs uniquement dans la version a 39 niveaux
+  ! avec ok_strato=y
+
+  dissip_factz=4.
+  dissip_deltaz=10.
+  dissip_zref=30.
+  CALL getin('dissip_factz',dissip_factz )
+  CALL getin('dissip_deltaz',dissip_deltaz )
+  CALL getin('dissip_zref',dissip_zref )
+
+  ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
+  !                   iflag_top_bound=0 for no sponge
+  !                   iflag_top_bound=1 for sponge over 4 topmost layers
+  !                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
+  iflag_top_bound=1
+  CALL getin('iflag_top_bound',iflag_top_bound)
+
+  ! mode_top_bound : fields towards which sponge relaxation will be done:
+  !                  mode_top_bound=0: no relaxation
+  !                  mode_top_bound=1: u and v relax towards 0
+  !                  mode_top_bound=2: u and v relax towards their zonal mean
+  !                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
+  mode_top_bound=3
+  CALL getin('mode_top_bound',mode_top_bound)
+
+  ! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
+  tau_top_bound=1.e-5
+  CALL getin('tau_top_bound',tau_top_bound)
+
+  !Config  Key  = coefdis
+  !Config  Desc = coefficient pour gamdissip
+  !Config  Def  = 0
+  !Config  Help = coefficient pour gamdissip  
+  coefdis = 0.
+  CALL getin('coefdis',coefdis)
+
+  !Config  Key  = purmats
+  !Config  Desc = Schema d'integration
+  !Config  Def  = n
+  !Config  Help = Choix du schema d'integration temporel.
+  !Config         y = pure Matsuno sinon c'est du Matsuno-leapfrog
+  purmats = .FALSE.
+  CALL getin('purmats',purmats)
+
+  !Config  Key  = ok_guide
+  !Config  Desc = Guidage
+  !Config  Def  = n
+  !Config  Help = Guidage
+  ok_guide = .FALSE.
+  CALL getin('ok_guide',ok_guide)
+
+  !Config  Key  =  read_start
+  !Config  Desc = Initialize model using a 'start.nc' file
+  !Config  Def  = y
+  !Config  Help = y: intialize dynamical fields using a 'start.nc' file
+  !               n: fields are initialized by 'iniacademic' routine
+  read_start= .true.
+  CALL getin('read_start',read_start)
+
+  !Config  Key  = iflag_phys
+  !Config  Desc = Avec ls physique 
+  !Config  Def  = 1
+  !Config  Help = Permet de faire tourner le modele sans 
+  !Config         physique.
+  iflag_phys = 1
+  CALL getin('iflag_phys',iflag_phys)
+
+  !Config  Key  =  iphysiq
+  !Config  Desc = Periode de la physique
+  !Config  Def  = 5
+  !Config  Help = Periode de la physique en pas de temps de la dynamique.
+  iphysiq = 5
+  CALL getin('iphysiq', iphysiq)
+
+  !Config  Key  = ip_ebil_dyn
+  !Config  Desc = PRINT level for energy conserv. diag.
+  !Config  Def  = 0
+  !Config  Help = PRINT level for energy conservation diag. ;
+  !               les options suivantes existent :
+  !Config         0 pas de print
+  !Config         1 pas de print
+  !Config         2 print,
+  ip_ebil_dyn = 0
+  CALL getin('ip_ebil_dyn',ip_ebil_dyn)
+
+  DO i = 1, longcles
+     clesphy0(i) = 0.
+  ENDDO
+
+  !cc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
+  !     .........   (  modif  le 17/04/96 )   .........
+
+  test_etatinit: IF (.not. etatinit) then
+     !Config  Key  = clon
+     !Config  Desc = centre du zoom, longitude
+     !Config  Def  = 0
+     !Config  Help = longitude en degres du centre 
+     !Config         du zoom
+     clonn = 0.
+     CALL getin('clon',clonn)
+
+     !Config  Key  = clat
+     !Config  Desc = centre du zoom, latitude
+     !Config  Def  = 0
+     !Config  Help = latitude en degres du centre du zoom
+     !Config         
+     clatt = 0.
+     CALL getin('clat',clatt)
+
+     IF( ABS(clat - clatt).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &
+             ' est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     !Config  Key  = grossismx 
+     !Config  Desc = zoom en longitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la longitude
+     grossismxx = 1.0
+     CALL getin('grossismx',grossismxx)
+
+     IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &
+             'run.def est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     !Config  Key  = grossismy
+     !Config  Desc = zoom en latitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la latitude
+     grossismyy = 1.0
+     CALL getin('grossismy',grossismyy)
+
+     IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &
+             'run.def est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     IF( grossismx.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
+        STOP
+     ELSE
+        alphax = 1. - 1./ grossismx
+     ENDIF
+
+     IF( grossismy.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
+        STOP
+     ELSE
+        alphay = 1. - 1./ grossismy
+     ENDIF
+
+     write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
+
+     !    alphax et alphay sont les anciennes formulat. des grossissements
+
+     !Config  Key  = fxyhypb
+     !Config  Desc = Fonction  hyperbolique
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
+     !Config         sinon  sinusoidale
+     fxyhypbb = .TRUE.
+     CALL getin('fxyhypb',fxyhypbb)
+
+     IF( .NOT.fxyhypb )  THEN
+        IF( fxyhypbb )     THEN
+           write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+           write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &
+                'F alors  qu il est  T  sur  run.def  ***'
+           STOP
+        ENDIF
+     ELSE
+        IF( .NOT.fxyhypbb )   THEN
+           write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+           write(lunout,*)' ***  fxyhypb lu sur le fichier start est ', &
+                'T alors  qu il est  F  sur  run.def  ****  '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = dzoomx
+     !Config  Desc = extension en longitude
+     !Config  Def  = 0
+     !Config  Help = extension en longitude  de la zone du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomxx = 0.0
+     CALL getin('dzoomx',dzoomxx)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = dzoomy
+     !Config  Desc = extension en latitude
+     !Config  Def  = 0
+     !Config  Help = extension en latitude de la zone  du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomyy = 0.0
+     CALL getin('dzoomy',dzoomyy)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = taux
+     !Config  Desc = raideur du zoom en  X
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  X
+     tauxx = 3.0
+     CALL getin('taux',tauxx)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(taux - tauxx).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de taux passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = tauyy
+     !Config  Desc = raideur du zoom en  Y
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  Y
+     tauyy = 3.0
+     CALL getin('tauy',tauyy)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !c
+     IF( .NOT.fxyhypb  )  THEN
+
+        !Config  Key  = ysinus
+        !Config  IF   = !fxyhypb
+        !Config  Desc = Fonction en Sinus
+        !Config  Def  = y
+        !Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
+        !Config         sinon y = latit.
+        ysinuss = .TRUE.
+        CALL getin('ysinus',ysinuss)
+
+        IF( .NOT.ysinus )  THEN
+           IF( ysinuss )     THEN
+              write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+              write(lunout,*)' *** ysinus lu sur le fichier start est F', &
+                   ' alors  qu il est  T  sur  run.def  ***'
+              STOP
+           ENDIF
+        ELSE
+           IF( .NOT.ysinuss )   THEN
+              write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+              write(lunout,*)' *** ysinus lu sur le fichier start est T', &
+                   ' alors  qu il est  F  sur  run.def  ****  '
+              STOP
+           ENDIF
+        ENDIF
+     ENDIF ! of IF( .NOT.fxyhypb  )
+
+     !Config  Key  = offline
+     !Config  Desc = Nouvelle eau liquide
+     !Config  Def  = n
+     !Config  Help = Permet de mettre en route la
+     !Config         nouvelle parametrisation de l'eau liquide !
+     offline = .FALSE.
+     CALL getin('offline',offline)
+
+     !Config  Key  = type_trac
+     !Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
+     !Config  Def  = lmdz
+     !Config  Help = 
+     !Config         'lmdz' = pas de couplage, pur LMDZ
+     !Config         'inca' = model de chime INCA 
+     !Config         'repr' = model de chime REPROBUS
+     type_trac = 'lmdz'
+     CALL getin('type_trac',type_trac)
+
+     !Config  Key  = config_inca
+     !Config  Desc = Choix de configuration de INCA
+     !Config  Def  = none
+     !Config  Help = Choix de configuration de INCA :
+     !Config         'none' = sans INCA
+     !Config         'chem' = INCA avec calcul de chemie
+     !Config         'aero' = INCA avec calcul des aerosols 
+     config_inca = 'none'
+     CALL getin('config_inca',config_inca)
+
+     !Config  Key  = ok_dynzon 
+     !Config  Desc = calcul et sortie des transports 
+     !Config  Def  = n 
+     !Config  Help = Permet de mettre en route le calcul des transports 
+     !Config          
+     ok_dynzon = .FALSE. 
+     CALL getin('ok_dynzon',ok_dynzon) 
+
+     !Config  Key  = ok_dyn_ins
+     !Config  Desc = sorties instantanees dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ins = .FALSE. 
+     CALL getin('ok_dyn_ins',ok_dyn_ins) 
+
+     !Config  Key  = ok_dyn_ave
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ave = .FALSE. 
+     CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     write(lunout,*)' #########################################'
+     write(lunout,*)' Configuration des parametres du gcm: '
+     write(lunout,*)' planet_type = ', planet_type
+     write(lunout,*)' calend = ', calend
+     write(lunout,*)' dayref = ', dayref
+     write(lunout,*)' anneeref = ', anneeref
+     write(lunout,*)' nday = ', nday
+     write(lunout,*)' day_step = ', day_step
+     write(lunout,*)' iperiod = ', iperiod
+     write(lunout,*)' nsplit_phys = ', nsplit_phys
+     write(lunout,*)' iconser = ', iconser
+     write(lunout,*)' iecri = ', iecri
+     write(lunout,*)' periodav = ', periodav 
+     write(lunout,*)' output_grads_dyn = ', output_grads_dyn
+     write(lunout,*)' dissip_period = ', dissip_period
+     write(lunout,*)' lstardis = ', lstardis
+     write(lunout,*)' nitergdiv = ', nitergdiv
+     write(lunout,*)' nitergrot = ', nitergrot
+     write(lunout,*)' niterh = ', niterh
+     write(lunout,*)' tetagdiv = ', tetagdiv
+     write(lunout,*)' tetagrot = ', tetagrot
+     write(lunout,*)' tetatemp = ', tetatemp
+     write(lunout,*)' coefdis = ', coefdis
+     write(lunout,*)' purmats = ', purmats
+     write(lunout,*)' read_start = ', read_start
+     write(lunout,*)' iflag_phys = ', iflag_phys
+     write(lunout,*)' iphysiq = ', iphysiq
+     write(lunout,*)' clonn = ', clonn 
+     write(lunout,*)' clatt = ', clatt
+     write(lunout,*)' grossismx = ', grossismx
+     write(lunout,*)' grossismy = ', grossismy
+     write(lunout,*)' fxyhypbb = ', fxyhypbb
+     write(lunout,*)' dzoomxx = ', dzoomxx
+     write(lunout,*)' dzoomy = ', dzoomyy
+     write(lunout,*)' tauxx = ', tauxx
+     write(lunout,*)' tauyy = ', tauyy
+     write(lunout,*)' offline = ', offline
+     write(lunout,*)' type_trac = ', type_trac
+     write(lunout,*)' config_inca = ', config_inca
+     write(lunout,*)' ok_dynzon = ', ok_dynzon 
+     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
+     write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+  else
+     !Config  Key  = clon
+     !Config  Desc = centre du zoom, longitude
+     !Config  Def  = 0
+     !Config  Help = longitude en degres du centre 
+     !Config         du zoom
+     clon = 0.
+     CALL getin('clon',clon)
+
+     !Config  Key  = clat
+     !Config  Desc = centre du zoom, latitude
+     !Config  Def  = 0
+     !Config  Help = latitude en degres du centre du zoom
+     !Config         
+     clat = 0.
+     CALL getin('clat',clat)
+
+     !Config  Key  = grossismx 
+     !Config  Desc = zoom en longitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la longitude
+     grossismx = 1.0
+     CALL getin('grossismx',grossismx)
+
+     !Config  Key  = grossismy
+     !Config  Desc = zoom en latitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la latitude
+     grossismy = 1.0
+     CALL getin('grossismy',grossismy)
+
+     IF( grossismx.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
+        STOP
+     ELSE
+        alphax = 1. - 1./ grossismx
+     ENDIF
+
+     IF( grossismy.LT.1. )  THEN
+        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
+        STOP
+     ELSE
+        alphay = 1. - 1./ grossismy
+     ENDIF
+
+     write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
+
+     !    alphax et alphay sont les anciennes formulat. des grossissements
+
+     !Config  Key  = fxyhypb
+     !Config  Desc = Fonction  hyperbolique
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
+     !Config         sinon  sinusoidale
+     fxyhypb = .TRUE.
+     CALL getin('fxyhypb',fxyhypb)
+
+     !Config  Key  = dzoomx
+     !Config  Desc = extension en longitude
+     !Config  Def  = 0
+     !Config  Help = extension en longitude  de la zone du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomx = 0.0
+     CALL getin('dzoomx',dzoomx)
+
+     !Config  Key  = dzoomy
+     !Config  Desc = extension en latitude
+     !Config  Def  = 0
+     !Config  Help = extension en latitude de la zone  du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomy = 0.0
+     CALL getin('dzoomy',dzoomy)
+
+     !Config  Key  = taux
+     !Config  Desc = raideur du zoom en  X
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  X
+     taux = 3.0
+     CALL getin('taux',taux)
+
+     !Config  Key  = tauy
+     !Config  Desc = raideur du zoom en  Y
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  Y
+     tauy = 3.0
+     CALL getin('tauy',tauy)
+
+     !Config  Key  = ysinus
+     !Config  IF   = !fxyhypb
+     !Config  Desc = Fonction en Sinus
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
+     !Config         sinon y = latit.
+     ysinus = .TRUE.
+     CALL getin('ysinus',ysinus)
+
+     !Config  Key  = offline
+     !Config  Desc = Nouvelle eau liquide
+     !Config  Def  = n
+     !Config  Help = Permet de mettre en route la
+     !Config         nouvelle parametrisation de l'eau liquide !
+     offline = .FALSE.
+     CALL getin('offline',offline)
+
+     !Config  Key  = type_trac
+     !Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
+     !Config  Def  = lmdz
+     !Config  Help = 
+     !Config         'lmdz' = pas de couplage, pur LMDZ
+     !Config         'inca' = model de chime INCA 
+     !Config         'repr' = model de chime REPROBUS
+     type_trac = 'lmdz'
+     CALL getin('type_trac',type_trac)
+
+     !Config  Key  = config_inca
+     !Config  Desc = Choix de configuration de INCA
+     !Config  Def  = none
+     !Config  Help = Choix de configuration de INCA :
+     !Config         'none' = sans INCA
+     !Config         'chem' = INCA avec calcul de chemie
+     !Config         'aero' = INCA avec calcul des aerosols 
+     config_inca = 'none'
+     CALL getin('config_inca',config_inca)
+
+     !Config  Key  = ok_dynzon 
+     !Config  Desc = sortie des transports zonaux dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = Permet de mettre en route le calcul des transports 
+     !Config          
+     ok_dynzon = .FALSE. 
+     CALL getin('ok_dynzon',ok_dynzon) 
+
+     !Config  Key  = ok_dyn_ins
+     !Config  Desc = sorties instantanees dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ins = .FALSE. 
+     CALL getin('ok_dyn_ins',ok_dyn_ins) 
+
+     !Config  Key  = ok_dyn_ave
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ave = .FALSE. 
+     CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     !Config  Key  = use_filtre_fft
+     !Config  Desc = flag d'activation des FFT pour le filtre
+     !Config  Def  = false
+     !Config  Help = permet d'activer l'utilisation des FFT pour effectuer
+     !Config         le filtrage aux poles.
+     ! Le filtre fft n'est pas implemente dans dyn3d 
+     use_filtre_fft=.FALSE.
+     CALL getin('use_filtre_fft',use_filtre_fft)
+
+     IF (use_filtre_fft) THEN
+        write(lunout,*)'STOP !!!'
+        write(lunout,*)'use_filtre_fft n est pas implemente dans dyn3d'
+        STOP 1
+     ENDIF
+
+     !Config key = ok_strato
+     !Config  Desc = activation de la version strato
+     !Config  Def  = .FALSE.
+     !Config  Help = active la version stratosphérique de LMDZ de F. Lott
+
+     ok_strato=.FALSE.
+     CALL getin('ok_strato',ok_strato)
+
+     vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
+     CALL getin('vert_prof_dissip', vert_prof_dissip)
+     call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1, &
+          "bad value for vert_prof_dissip")
+
+     !Config  Key  = ok_gradsfile
+     !Config  Desc = activation des sorties grads du guidage
+     !Config  Def  = n
+     !Config  Help = active les sorties grads du guidage
+
+     ok_gradsfile = .FALSE.
+     CALL getin('ok_gradsfile',ok_gradsfile)
+
+     !Config  Key  = ok_limit
+     !Config  Desc = creation des fichiers limit dans create_etat0_limit
+     !Config  Def  = y
+     !Config  Help = production du fichier limit.nc requise
+
+     ok_limit = .TRUE.
+     CALL getin('ok_limit',ok_limit)
+
+     !Config  Key  = ok_etat0
+     !Config  Desc = creation des fichiers etat0 dans create_etat0_limit
+     !Config  Def  = y
+     !Config  Help = production des fichiers start.nc, startphy.nc requise
+
+     ok_etat0 = .TRUE.
+     CALL getin('ok_etat0',ok_etat0)
+
+     write(lunout,*)' #########################################'
+     write(lunout,*)' Configuration des parametres de cel0' &
+          //'_limit: '
+     write(lunout,*)' planet_type = ', planet_type
+     write(lunout,*)' calend = ', calend
+     write(lunout,*)' dayref = ', dayref
+     write(lunout,*)' anneeref = ', anneeref
+     write(lunout,*)' nday = ', nday
+     write(lunout,*)' day_step = ', day_step
+     write(lunout,*)' iperiod = ', iperiod
+     write(lunout,*)' iconser = ', iconser
+     write(lunout,*)' iecri = ', iecri
+     write(lunout,*)' periodav = ', periodav 
+     write(lunout,*)' output_grads_dyn = ', output_grads_dyn
+     write(lunout,*)' dissip_period = ', dissip_period
+     write(lunout,*)' lstardis = ', lstardis
+     write(lunout,*)' nitergdiv = ', nitergdiv
+     write(lunout,*)' nitergrot = ', nitergrot
+     write(lunout,*)' niterh = ', niterh
+     write(lunout,*)' tetagdiv = ', tetagdiv
+     write(lunout,*)' tetagrot = ', tetagrot
+     write(lunout,*)' tetatemp = ', tetatemp
+     write(lunout,*)' coefdis = ', coefdis
+     write(lunout,*)' purmats = ', purmats
+     write(lunout,*)' read_start = ', read_start
+     write(lunout,*)' iflag_phys = ', iflag_phys
+     write(lunout,*)' iphysiq = ', iphysiq
+     write(lunout,*)' clon = ', clon
+     write(lunout,*)' clat = ', clat
+     write(lunout,*)' grossismx = ', grossismx
+     write(lunout,*)' grossismy = ', grossismy
+     write(lunout,*)' fxyhypb = ', fxyhypb
+     write(lunout,*)' dzoomx = ', dzoomx
+     write(lunout,*)' dzoomy = ', dzoomy
+     write(lunout,*)' taux = ', taux
+     write(lunout,*)' tauy = ', tauy
+     write(lunout,*)' offline = ', offline
+     write(lunout,*)' type_trac = ', type_trac
+     write(lunout,*)' config_inca = ', config_inca
+     write(lunout,*)' ok_dynzon = ', ok_dynzon
+     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
+     write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+     write(lunout,*)' ok_strato = ', ok_strato
+     write(lunout,*)' ok_gradsfile = ', ok_gradsfile
+     write(lunout,*)' ok_limit = ', ok_limit
+     write(lunout,*)' ok_etat0 = ', ok_etat0
+  end IF test_etatinit
+
+END SUBROUTINE conf_gcm
Index: LMDZ5/branches/testing/libf/dyn3d/gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/gcm.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d/gcm.F	(revision 2160)
@@ -178,4 +178,6 @@
 !#ifdef CPP_IOIPSL
       CALL conf_gcm( 99, .TRUE. , clesphy0 )
+      if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
+     s "iphysiq must be a multiple of iperiod", 1)
 !#else
 !      CALL defrun( 99, .TRUE. , clesphy0 )
Index: LMDZ5/branches/testing/libf/dyn3d/getparam.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/getparam.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d/getparam.F90	(revision 2160)
@@ -11,6 +11,7 @@
 
    INTERFACE getpar
-     MODULE PROCEDURE ini_getparam,fin_getparam,getparamr,getparami,getparaml
+     MODULE PROCEDURE getparamr,getparami,getparaml
    END INTERFACE
+   private getparamr,getparami,getparaml
 
    INTEGER, PARAMETER :: out_eff=99
Index: LMDZ5/branches/testing/libf/dyn3d/guide_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/guide_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d/guide_mod.F90	(revision 2160)
@@ -71,4 +71,7 @@
     INCLUDE "netcdf.inc"
 
+    ! For grossismx:
+    include "serre.h"
+
     INTEGER                :: error,ncidpl,rid,rcod
     CHARACTER (len = 80)   :: abort_message
@@ -89,4 +92,7 @@
     CALL getpar('guide_add',.false.,guide_add,'for�age constant?')
     CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale')
+    if (guide_zon .and. abs(grossismx - 1.) > 0.01) &
+         call abort_gcm("guide_init", &
+         "zonal nudging requires grid regular in longitude", 1)
 
 !   Constantes de rappel. Unite : fraction de jour
@@ -109,7 +115,9 @@
     ! frequences f>0: fx/jour; f<0: tous les f jours; f=0: 1 seule fois.
     IF (iguide_sav.GT.0) THEN
-        iguide_sav=day_step/iguide_sav
+       iguide_sav=day_step/iguide_sav
+    ELSE if (iguide_sav == 0) then
+       iguide_sav = huge(0)
     ELSE
-        iguide_sav=day_step*iguide_sav
+       iguide_sav=day_step*iguide_sav
     ENDIF
 
@@ -125,6 +133,8 @@
 ! Parametres pour lecture des fichiers
     CALL getpar('iguide_read',4,iguide_read,'freq. lecture guidage')
-    CALL getpar('iguide_int',4,iguide_int,'freq. lecture guidage')
-    IF (iguide_int.GT.0) THEN
+    CALL getpar('iguide_int',4,iguide_int,'freq. interpolation vert')
+    IF (iguide_int.EQ.0) THEN
+        iguide_int=1
+    ELSEIF (iguide_int.GT.0) THEN
         iguide_int=day_step/iguide_int
     ELSE
@@ -1002,4 +1012,6 @@
         enddo
     ENDIF ! guide_reg
+
+    if (.not. guide_add) alpha = 1. - exp(- alpha)
 
   END SUBROUTINE tau2alpha
Index: LMDZ5/branches/testing/libf/dyn3d/iniacademic.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/iniacademic.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d/iniacademic.F90	(revision 2160)
@@ -4,12 +4,12 @@
 SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
 
-  USE filtreg_mod
+  USE filtreg_mod, ONLY: inifilr
   USE infotrac, ONLY : nqtot
   USE control_mod, ONLY: day_step,planet_type
 #ifdef CPP_IOIPSL
-  USE IOIPSL
+  USE IOIPSL, ONLY: getin
 #else
   ! if not using IOIPSL, we still need to use (a local version of) getin
-  USE ioipsl_getincom
+  USE ioipsl_getincom, ONLY: getin
 #endif
   USE Write_Field
@@ -40,13 +40,14 @@
   !   ----------
 
-  real time_0
-
-  !   variables dynamiques
-  REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
-  REAL teta(ip1jmp1,llm)                 ! temperature potentielle
-  REAL q(ip1jmp1,llm,nqtot)               ! champs advectes
-  REAL ps(ip1jmp1)                       ! pression  au sol
-  REAL masse(ip1jmp1,llm)                ! masse d'air
-  REAL phis(ip1jmp1)                     ! geopotentiel au sol
+  REAL,INTENT(OUT) :: time_0
+
+  !   fields
+  REAL,INTENT(OUT) :: vcov(ip1jm,llm) ! meridional covariant wind
+  REAL,INTENT(OUT) :: ucov(ip1jmp1,llm) ! zonal covariant wind
+  REAL,INTENT(OUT) :: teta(ip1jmp1,llm) ! potential temperature (K)
+  REAL,INTENT(OUT) :: q(ip1jmp1,llm,nqtot) ! advected tracers (.../kg_of_air)
+  REAL,INTENT(OUT) :: ps(ip1jmp1) ! surface pressure (Pa)
+  REAL,INTENT(OUT) :: masse(ip1jmp1,llm) ! air mass in grid cell (kg)
+  REAL,INTENT(OUT) :: phis(ip1jmp1) ! surface geopotential
 
   !   Local:
@@ -76,4 +77,14 @@
   character(len=80) :: abort_message
 
+
+  ! Sanity check: verify that options selected by user are not incompatible
+  if ((iflag_phys==1).and. .not. read_start) then
+    write(lunout,*) trim(modname)," error: if read_start is set to ", &
+    " false then iflag_phys should not be 1"
+    write(lunout,*) "You most likely want an aquaplanet initialisation", &
+    " (iflag_phys >= 100)"
+    call abort_gcm(modname,"incompatible iflag_phys==1 and read_start==.false.",1)
+  endif
+  
   !-----------------------------------------------------------------------
   ! 1. Initializations for Earth-like case
Index: LMDZ5/branches/testing/libf/dyn3d/integrd.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/integrd.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d/integrd.F	(revision 2160)
@@ -107,5 +107,5 @@
          write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
      &                   " lat = ",rlatu(j)*180./pi, " deg"
-         stop
+         call abort_gcm("integrd", "", 1)
         ENDIF
       ENDDO
Index: LMDZ5/branches/testing/libf/dyn3d_common/caldyn0.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/caldyn0.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/caldyn0.F	(revision 2160)
@@ -6,4 +6,5 @@
      $  phi,w,pbaru,pbarv,time )
 
+      USE control_mod, ONLY: resetvarc 
       IMPLICIT NONE
 
@@ -83,5 +84,6 @@
       ENDDO
 
-        CALL sortvarc0
+      resetvarc=.true. ! force a recomputation of initial values in sortvarc
+      CALL sortvarc
      $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )
 
Index: LMDZ5/branches/testing/libf/dyn3d_common/control_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/control_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/control_mod.F90	(revision 2160)
@@ -10,18 +10,33 @@
   IMPLICIT NONE
 
-  REAL    :: periodav, starttime
-  INTEGER :: nday,day_step,iperiod,iapp_tracvl,nsplit_phys
-  INTEGER :: iconser,iecri,dissip_period,iphysiq,iecrimoy
-  INTEGER :: dayref,anneeref, raz_date, ip_ebil_dyn
-  LOGICAL :: offline
-  CHARACTER (len=4)  :: config_inca
-  CHARACTER (len=10) :: planet_type ! planet type ('earth','mars',...)
-  LOGICAL output_grads_dyn ! output dynamics diagnostics in
-                           ! binary grads file 'dyn.dat' (y/n)
-  LOGICAL ok_dynzon  ! output zonal transports in dynzon.nc file
-  LOGICAL ok_dyn_ins ! output instantaneous values of fields
-                     ! in the dynamics in NetCDF files dyn_hist*nc
-  LOGICAL ok_dyn_ave ! output averaged values of fields in the dynamics
-                     ! in NetCDF files dyn_hist*ave.nc
+  REAL,SAVE :: periodav
+  REAL,SAVE :: starttime
+  INTEGER,SAVE :: nday ! # of days to run
+  INTEGER,SAVE :: day_step ! # of dynamical time steps per day
+  INTEGER,SAVE :: iperiod ! make a Matsuno step before avery iperiod-1 LF steps
+  INTEGER,SAVE :: iapp_tracvl ! apply (cumulated) traceur advection every
+                              ! iapp_tracvl dynamical steps
+  INTEGER,SAVE :: nsplit_phys ! number of sub-cycle steps in call to physics
+  INTEGER,SAVE :: iconser
+  INTEGER,SAVE :: iecri
+  INTEGER,SAVE :: dissip_period ! apply dissipation every dissip_period
+                                ! dynamical step
+  INTEGER,SAVE :: iphysiq ! call physics every iphysiq dynamical steps
+  INTEGER,SAVE :: iecrimoy
+  INTEGER,SAVE :: dayref
+  INTEGER,SAVE :: anneeref ! reference year #
+  INTEGER,SAVE :: raz_date
+  INTEGER,SAVE :: ip_ebil_dyn
+  LOGICAL,SAVE :: offline
+  CHARACTER(len=4),SAVE :: config_inca
+  CHARACTER(len=10),SAVE :: planet_type ! planet type ('earth','mars',...)
+  LOGICAL,SAVE :: output_grads_dyn ! output dynamics diagnostics in
+                                   ! binary grads file 'dyn.dat' (y/n)
+  LOGICAL,SAVE :: ok_dynzon  ! output zonal transports in dynzon.nc file
+  LOGICAL,SAVE ::  ok_dyn_ins ! output instantaneous values of fields
+                              ! in the dynamics in NetCDF files dyn_hist*nc
+  LOGICAL,SAVE :: ok_dyn_ave ! output averaged values of fields in the dynamics
+                             ! in NetCDF files dyn_hist*ave.nc
+  LOGICAL,SAVE :: resetvarc  ! allows to reset the variables in sortvarc
 
 END MODULE
Index: LMDZ5/branches/testing/libf/dyn3d_common/disvert.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/disvert.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/disvert.F90	(revision 2160)
@@ -25,5 +25,8 @@
 !-------------------------------------------------------------------------------
 ! Read    in "comvert.h":
-! pa                         !--- PURE PRESSURE COORDINATE FOR P<pa (in Pascals)
+
+! pa !--- vertical coordinate is close to a PRESSURE COORDINATE FOR P
+! < 0.3 * pa (relative variation of p on a model level is < 0.1 %)
+
 ! preff                      !--- REFERENCE PRESSURE                 (101325 Pa)
 ! Written in "comvert.h":
Index: LMDZ5/branches/testing/libf/dyn3d_common/grid_atob.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/grid_atob.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/grid_atob.F	(revision 2160)
@@ -52,4 +52,5 @@
       REAL zzmin
 #endif
+      include "iniprint.h"
 c
       IF (imar.GT.2200 .OR. jmar.GT.1100) THEN
@@ -118,5 +119,5 @@
          sortie(i,j) = sortie(i,j) / number(i,j)
          ELSE
-         PRINT*, 'probleme,i,j=', i,j
+         if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc         CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
@@ -135,5 +136,6 @@
          j_proche = (ij_proche-1)/imdep + 1
          i_proche = ij_proche - (j_proche-1)*imdep
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          sortie(i,j) = entree(i_proche,j_proche)
          ENDIF
@@ -449,4 +451,5 @@
       REAL zzmin
 #endif
+      include "iniprint.h"
 c
       IF (imar.GT.400 .OR. jmar.GT.400) THEN
@@ -512,5 +515,5 @@
             sortie(i,j) = EXP(sortie(i,j))
          ELSE
-            PRINT*, 'probleme,i,j=', i,j
+            if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc            CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
@@ -529,5 +532,6 @@
          j_proche = (ij_proche-1)/imdep + 1
          i_proche = ij_proche - (j_proche-1)*imdep
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          sortie(i,j) = entree(i_proche,j_proche)
          ENDIF
@@ -574,4 +578,5 @@
       REAL zzmin
 #endif
+      include "iniprint.h"
 c
       IF (imar.GT.400 .OR. jmar.GT.400) THEN
@@ -641,5 +646,5 @@
            ENDIF
          ELSE
-           PRINT*, 'probleme,i,j=', i,j
+           if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc           CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
@@ -658,5 +663,6 @@
          j_proche = (ij_proche-1)/imdep + 1
          i_proche = ij_proche - (j_proche-1)*imdep
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          IF (NINT(glace01(i_proche,j_proche)).EQ.1 ) THEN
             frac_ice(i,j) = 1.0
@@ -710,4 +716,6 @@
       INTEGER i_proche, j_proche, ij_proche
 c
+      include "iniprint.h"
+
       IF (immod.GT.2200 .OR. jmmod.GT.1100) THEN
          PRINT*, 'immod ou jmmod trop grand', immod, jmmod
@@ -874,5 +882,5 @@
          rugs(i,j) = EXP(rugs(i,j))
          ELSE
-         PRINT*, 'probleme,i,j=', i,j
+         if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc         CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(xmod(i),ymod(j),xtmp,ytmp,imtmp,jmtmp,distans)
@@ -891,5 +899,6 @@
          j_proche = (ij_proche-1)/imtmp + 1
          i_proche = ij_proche - (j_proche-1)*imtmp
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          rugs(i,j) = LOG(MAX(0.001_8,cham2tmp(i_proche,j_proche)))
          ENDIF
Index: LMDZ5/branches/testing/libf/dyn3d_common/infotrac.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/infotrac.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/infotrac.F90	(revision 2160)
@@ -5,4 +5,6 @@
 ! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
   INTEGER, SAVE :: nqtot
+!CR: on ajoute le nombre de traceurs de l eau
+  INTEGER, SAVE :: nqo
 
 ! nbtr : number of tracers not including higher order of moment or water vapor or liquid
@@ -228,4 +230,11 @@
          endif ! of if (planet_type=="earth")
        END IF
+
+!CR: nombre de traceurs de l eau
+       if (tnom_0(3) == 'H2Oi') then
+          nqo=3
+       else
+          nqo=2
+       endif
        
        WRITE(lunout,*) trim(modname),': Valeur de traceur.def :'
@@ -253,4 +262,5 @@
           tnom_0(iq)=tracnam(iq-2)
        END DO
+       nqo = 2
 
     END IF ! type_trac
Index: LMDZ5/branches/testing/libf/dyn3d_common/interpre.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/interpre.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/interpre.F	(revision 2160)
@@ -29,5 +29,5 @@
       real   masse(iip1,jjp1,llm) 
       real   massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)      
-      real   w(iip1,jjp1,llm+1)
+      real   w(iip1,jjp1,llm)
       real   fluxwppm(iim,jjp1,llm)
       real   pbaru(iip1,jjp1,llm )
Index: LMDZ5/branches/testing/libf/dyn3d_common/sortvarc.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/sortvarc.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3d_common/sortvarc.F	(revision 2160)
@@ -5,5 +5,8 @@
      $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
      $ vcov )
+
+      USE control_mod, ONLY: resetvarc 
       IMPLICIT NONE
+
 
 c=======================================================================
@@ -22,25 +25,30 @@
 c   -------------
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "comconst.h"
-#include "comvert.h"
-#include "comgeom.h"
-#include "ener.h"
-#include "logic.h"
-#include "temps.h"
+      INCLUDE "dimensions.h"
+      INCLUDE "paramet.h"
+      INCLUDE "comconst.h"
+      INCLUDE "comvert.h"
+      INCLUDE "comgeom.h"
+      INCLUDE "ener.h"
+      INCLUDE "logic.h"
+      INCLUDE "temps.h"
+      INCLUDE "iniprint.h"
 
 c   Arguments:
 c   ----------
 
-      INTEGER itau
-      REAL ucov(ip1jmp1,llm),teta(ip1jmp1,llm),masse(ip1jmp1,llm)
-      REAL vcov(ip1jm,llm)
-      REAL ps(ip1jmp1),phis(ip1jmp1)
-      REAL vorpot(ip1jm,llm)
-      REAL phi(ip1jmp1,llm),bern(ip1jmp1,llm)
-      REAL dp(ip1jmp1)
-      REAL time
-      REAL pk(ip1jmp1,llm)
+      INTEGER,INTENT(IN) :: itau
+      REAL,INTENT(IN) :: ucov(ip1jmp1,llm)
+      REAL,INTENT(IN) :: teta(ip1jmp1,llm)
+      REAL,INTENT(IN) :: masse(ip1jmp1,llm)
+      REAL,INTENT(IN) :: vcov(ip1jm,llm)
+      REAL,INTENT(IN) :: ps(ip1jmp1)
+      REAL,INTENT(IN) :: phis(ip1jmp1)
+      REAL,INTENT(IN) :: vorpot(ip1jm,llm)
+      REAL,INTENT(IN) :: phi(ip1jmp1,llm)
+      REAL,INTENT(IN) :: bern(ip1jmp1,llm)
+      REAL,INTENT(IN) :: dp(ip1jmp1)
+      REAL,INTENT(IN) :: time
+      REAL,INTENT(IN) :: pk(ip1jmp1,llm)
 
 c   Local:
@@ -51,10 +59,19 @@
       REAL cosphi(ip1jm),omegcosp(ip1jm)
       REAL dtvrs1j,rjour,heure,radsg,radomeg
-      REAL rday, massebxy(ip1jm,llm)
+      REAL massebxy(ip1jm,llm)
       INTEGER  l, ij, imjmp1
 
       REAL       SSUM
+      LOGICAL,SAVE :: firstcal=.true.
+      CHARACTER(LEN=*),PARAMETER :: modname="sortvarc"
 
 c-----------------------------------------------------------------------
+! Ehouarn: when no initialization fields from file, resetvarc should be
+!          set to false
+       if (firstcal) then
+         if (.not.read_start) then
+           resetvarc=.true.
+         endif
+       endif
 
        dtvrs1j   = dtvr/daysec
@@ -115,5 +132,5 @@
      *               cosphi(ij)
           ENDDO
-          angl(l) = radsg *
+          angl(l) = rad *
      s    (SSUM(ip1jm-iip1,ge(iip2),1)-SSUM(jjm-1,ge(iip2),iip1))
       ENDDO
@@ -129,12 +146,10 @@
       ang   = SSUM(     llm,  angl, 1 )
 
-c      rday = REAL(INT ( day_ini + time ))
-c
-       rday = REAL(INT(time-jD_ref-jH_ref))
-      IF(ptot0.eq.0.)  THEN
-         PRINT 3500, itau, rday, heure,time
-         PRINT*,'WARNING!!! On recalcule les valeurs initiales de :'
-         PRINT*,'ptot,rmsdpdt,etot,ztot,stot,rmsv,ang'
-         PRINT *, ptot,rmsdpdt,etot,ztot,stot,rmsv,ang
+      IF (firstcal.and.resetvarc) then
+         WRITE(lunout,3500) itau, rjour, heure, time
+         WRITE(lunout,*) trim(modname),
+     &     ' WARNING!!! Recomputing initial values of : '
+         WRITE(lunout,*) 'ptot,rmsdpdt,etot,ztot,stot,rmsv,ang'
+         WRITE(lunout,*) ptot,rmsdpdt,etot,ztot,stot,rmsv,ang
          etot0 = etot
          ptot0 = ptot
@@ -144,16 +159,37 @@
       END IF
 
-      etot= etot/etot0
+      ! compute relative changes in etot,... (except if 'reference' values
+      ! are zero, which can happen when using iniacademic)
+      if (etot0.ne.0) then
+        etot= etot/etot0
+      else
+        etot=1.
+      endif
       rmsv= SQRT(rmsv/ptot)
-      ptot= ptot/ptot0
-      ztot= ztot/ztot0
-      stot= stot/stot0
-      ang = ang /ang0
-
-
-      PRINT 3500, itau, rday, heure, time
-      PRINT 4000, ptot,rmsdpdt,etot,ztot,stot,rmsv,ang
-
-      RETURN
+      if (ptot0.ne.0) then
+        ptot= ptot/ptot0
+      else
+        ptot=1.
+      endif
+      if (ztot0.ne.0) then
+        ztot= ztot/ztot0
+      else
+        ztot=1.
+      endif
+      if (stot0.ne.0) then
+        stot= stot/stot0
+      else
+        stot=1.
+      endif
+      if (ang0.ne.0) then
+        ang = ang /ang0
+      else
+        ang=1.
+      endif
+
+      firstcal = .false.
+
+      WRITE(lunout,3500) itau, rjour, heure, time
+      WRITE(lunout,4000) ptot,rmsdpdt,etot,ztot,stot,rmsv,ang
 
 3500   FORMAT(10("*"),4x,'pas',i7,5x,'jour',f9.0,'heure',f5.1,4x 
Index: LMDZ5/branches/testing/libf/dyn3d_common/sortvarc0.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d_common/sortvarc0.F	(revision 2116)
+++ 	(revision )
@@ -1,141 +1,0 @@
-!
-! $Id$
-!
-      SUBROUTINE sortvarc0
-     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
-     $ vcov)
-      IMPLICIT NONE
-
-c=======================================================================
-c
-c   Auteur:    P. Le Van
-c   -------
-c
-c   Objet:
-c   ------
-c
-c   sortie des variables de controle
-c
-c=======================================================================
-c-----------------------------------------------------------------------
-c   Declarations:
-c   -------------
-
-#include "dimensions.h"
-#include "paramet.h"
-#include "comconst.h"
-#include "comvert.h"
-#include "comgeom.h"
-#include "ener.h"
-#include "logic.h"
-#include "temps.h"
-
-c   Arguments:
-c   ----------
-
-      INTEGER itau
-      REAL ucov(ip1jmp1,llm),teta(ip1jmp1,llm),masse(ip1jmp1,llm)
-      REAL vcov(ip1jm,llm)
-      REAL ps(ip1jmp1),phis(ip1jmp1)
-      REAL vorpot(ip1jm,llm)
-      REAL phi(ip1jmp1,llm),bern(ip1jmp1,llm)
-      REAL dp(ip1jmp1)
-      REAL time
-      REAL pk(ip1jmp1,llm)
-
-c   Local:
-c   ------
-
-      REAL vor(ip1jm),bernf(ip1jmp1,llm),ztotl(llm)
-      REAL etotl(llm),stotl(llm),rmsvl(llm),angl(llm),ge(ip1jmp1)
-      REAL cosphi(ip1jm),omegcosp(ip1jm)
-      REAL dtvrs1j,rjour,heure,radsg,radomeg
-      REAL rday, massebxy(ip1jm,llm)
-      INTEGER  l, ij, imjmp1
-
-      REAL       SSUM
-      integer  ismin,ismax
-
-c-----------------------------------------------------------------------
-
-       dtvrs1j   = dtvr/daysec
-       rjour     = REAL( INT( itau * dtvrs1j ))
-       heure     = ( itau*dtvrs1j-rjour ) * 24.
-       imjmp1    = iim * jjp1
-       IF(ABS(heure - 24.).LE.0.0001 ) heure = 0.
-c
-       CALL massbarxy ( masse, massebxy )
-
-c   .....  Calcul  de  rmsdpdt  .....
-
-       ge=dp*dp
-
-       rmsdpdt = SSUM(ip1jmp1,ge,1) - SSUM(jjp1,ge,iip1)
-c
-       rmsdpdt = daysec* 1.e-2 * SQRT(rmsdpdt/imjmp1) 
-
-       CALL SCOPY( ijp1llm,bern,1,bernf,1 )
-       CALL filtreg(bernf,jjp1,llm,-2,2,.TRUE.,1)
-
-c   .....  Calcul du moment  angulaire   .....
-
-       radsg    = rad /g
-       radomeg  = rad * omeg
-c
-       DO ij=iip2,ip1jm
-          cosphi( ij ) = COS(rlatu((ij-1)/iip1+1))
-          omegcosp(ij) = radomeg   * cosphi(ij)
-       ENDDO
-
-c  ...  Calcul  de l'energie,de l'enstrophie,de l'entropie et de rmsv  .
-
-       DO l=1,llm
-          DO ij = 1,ip1jm
-             vor(ij)=vorpot(ij,l)*vorpot(ij,l)*massebxy(ij,l)
-          ENDDO
-          ztotl(l)=(SSUM(ip1jm,vor,1)-SSUM(jjm,vor,iip1))
-
-          DO ij = 1,ip1jmp1
-             ge(ij)= masse(ij,l)*(phis(ij)+teta(ij,l)*pk(ij,l)  +
-     s        bernf(ij,l)-phi(ij,l))
-          ENDDO
-          etotl(l) = SSUM(ip1jmp1,ge,1) - SSUM(jjp1,ge,iip1)
-
-          DO   ij   = 1, ip1jmp1
-             ge(ij) = masse(ij,l)*teta(ij,l)
-          ENDDO
-          stotl(l)= SSUM(ip1jmp1,ge,1) - SSUM(jjp1,ge,iip1)
-
-          DO ij=1,ip1jmp1
-             ge(ij)=masse(ij,l)*AMAX1(bernf(ij,l)-phi(ij,l),0.)
-          ENDDO
-          rmsvl(l)=2.*(SSUM(ip1jmp1,ge,1)-SSUM(jjp1,ge,iip1))
-
-          DO ij =iip2,ip1jm
-             ge(ij)=(ucov(ij,l)/cu(ij)+omegcosp(ij))*masse(ij,l) *
-     *               cosphi(ij)
-          ENDDO
-          angl(l) = radsg *
-     s    (SSUM(ip1jm-iip1,ge(iip2),1)-SSUM(jjm-1,ge(iip2),iip1))
-      ENDDO
-
-          DO ij=1,ip1jmp1
-            ge(ij)= ps(ij)*aire(ij)
-          ENDDO
-      ptot0  = SSUM(ip1jmp1,ge,1)-SSUM(jjp1,ge,iip1)
-      etot0  = SSUM(     llm, etotl, 1 )
-      ztot0  = SSUM(     llm, ztotl, 1 )
-      stot0  = SSUM(     llm, stotl, 1 )
-      rmsv   = SSUM(     llm, rmsvl, 1 )
-      ang0   = SSUM(     llm,  angl, 1 )
-
-      rday = REAL(INT (time ))
-c
-      PRINT 3500, itau, rday, heure, time
-      PRINT *, ptot0,etot0,ztot0,stot0,ang0
-
-3500   FORMAT(10("*"),4x,'pas',i7,5x,'jour',f5.0,'heure',f5.1,4x 
-     *   ,'date',f10.5,4x,10("*"))
-      RETURN
-      END
-
Index: LMDZ5/branches/testing/libf/dyn3dmem/abort_gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/abort_gcm.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/abort_gcm.F	(revision 2160)
@@ -23,7 +23,7 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character(len=*) modname
+      character(len=*), intent(in):: modname
       integer ierr, ierror_mpi
-      character(len=*) message
+      character(len=*), intent(in):: message
 
       write(lunout,*) 'in abort_gcm'
@@ -46,5 +46,5 @@
         write(lunout,*) 'Everything is cool'
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
 #ifdef CPP_MPI
 C$OMP CRITICAL (MPI_ABORT_GCM)
Index: LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F	(revision 2116)
+++ 	(revision )
@@ -1,997 +1,0 @@
-!
-! $Id$
-!
-c
-c
-      SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
-c
-      USE control_mod
-#ifdef CPP_IOIPSL
-      use IOIPSL
-#else
-! if not using IOIPSL, we still need to use (a local version of) getin
-      use ioipsl_getincom
-#endif
-      use misc_mod
-      use mod_filtre_fft, ONLY : use_filtre_fft
-      use mod_filtre_fft_loc, ONLY : use_filtre_fft_loc=>use_filtre_fft
-      use mod_hallo, ONLY : use_mpi_alloc
-      USE infotrac, ONLY : type_trac
-      use assert_m, only: assert
-
-      IMPLICIT NONE
-c-----------------------------------------------------------------------
-c     Auteurs :   L. Fairhead , P. Le Van  .
-c
-c     Arguments :
-c
-c     tapedef   :
-c     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
-c     -metres  du zoom  avec  celles lues sur le fichier start .
-c      clesphy0 :  sortie  .
-c
-       LOGICAL etatinit
-       INTEGER tapedef
-
-       INTEGER        longcles
-       PARAMETER(     longcles = 20 )
-       REAL clesphy0( longcles )
-c
-c   Declarations :
-c   --------------
-#include "dimensions.h"
-#include "paramet.h"
-#include "logic.h"
-#include "serre.h"
-#include "comdissnew.h"
-#include "temps.h"
-#include "comconst.h"
-
-! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
-! #include "clesphys.h"
-#include "iniprint.h"
-c
-c
-c   local:
-c   ------
-
-      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
-      REAL clonn,clatt,grossismxx,grossismyy
-      REAL dzoomxx,dzoomyy, tauxx,tauyy
-      LOGICAL  fxyhypbb, ysinuss
-      INTEGER i
-      character(len=*),parameter :: modname="conf_gcm"
-      character (len=80) :: abort_message
-#ifdef CPP_OMP
-      integer,external :: OMP_GET_NUM_THREADS
-#endif
-c
-c  -------------------------------------------------------------------
-c
-c       .........     Version  du 29/04/97       ..........
-c
-c   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
-c      tetatemp   ajoutes  pour la dissipation   .
-c
-c   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** 
-c
-c  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
-c    Sinon , choix de fxynew  , a derivee sinusoidale  ..
-c
-c   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
-c         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
-c                de limit.dat ( dic)                        ...........
-c           Sinon  etatinit = . FALSE .
-c
-c   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
-c    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
-c   celles passees  par run.def ,  au debut du gcm, apres l'appel a 
-c    lectba .  
-c   Ces parmetres definissant entre autres la grille et doivent etre
-c   pareils et coherents , sinon il y aura  divergence du gcm .
-c
-c-----------------------------------------------------------------------
-c   initialisations:
-c   ----------------
-      
-!Config  Key  = lunout
-!Config  Desc = unite de fichier pour les impressions
-!Config  Def  = 6
-!Config  Help = unite de fichier pour les impressions 
-!Config         (defaut sortie standard = 6)
-      lunout=6
-      CALL getin('lunout', lunout)
-      IF (lunout /= 5 .and. lunout /= 6) THEN
-        OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write', 
-     &          STATUS='unknown',FORM='formatted')
-      ENDIF
-
-      adjust=.false.
-      call getin('adjust',adjust)
-
-#ifdef CPP_OMP
-      ! adjust=y not implemented in case of OpenMP threads...
-!$OMP PARALLEL
-      if ((OMP_GET_NUM_THREADS()>1).and.adjust) then
-        write(lunout,*)'conf_gcm: Error, adjust should be set to n'
-     &,' when running with OpenMP threads'
-        abort_message = 'Wrong value for adjust'
-        call abort_gcm(modname,abort_message,1)
-      endif
-!$OMP END PARALLEL         
-#endif
-
-      itaumax=0
-      call getin('itaumax',itaumax);
-      if (itaumax<=0) itaumax=HUGE(itaumax)
-
-!Config  Key  = prt_level
-!Config  Desc = niveau d'impressions de débogage
-!Config  Def  = 0
-!Config  Help = Niveau d'impression pour le débogage
-!Config         (0 = minimum d'impression)
-      prt_level = 0
-      CALL getin('prt_level',prt_level)
-
-c-----------------------------------------------------------------------
-c  Parametres de controle du run:
-c-----------------------------------------------------------------------
-!Config  Key  = planet_type
-!Config  Desc = planet type ("earth", "mars", "venus", ...)
-!Config  Def  = earth
-!Config  Help = this flag sets the type of atymosphere that is considered
-      planet_type="earth"
-      CALL getin('planet_type',planet_type)
-
-!Config  Key  = calend
-!Config  Desc = type de calendrier utilise
-!Config  Def  = earth_360d
-!Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
-!Config         
-      calend = 'earth_360d'
-      CALL getin('calend', calend)
-
-!Config  Key  = dayref
-!Config  Desc = Jour de l'etat initial
-!Config  Def  = 1
-!Config  Help = Jour de l'etat initial ( = 350  si 20 Decembre ,
-!Config         par expl. ,comme ici ) ... A completer
-      dayref=1
-      CALL getin('dayref', dayref)
-
-!Config  Key  = anneeref
-!Config  Desc = Annee de l'etat initial
-!Config  Def  = 1998
-!Config  Help = Annee de l'etat  initial 
-!Config         (   avec  4  chiffres   ) ... A completer
-      anneeref = 1998
-      CALL getin('anneeref',anneeref)
-
-!Config  Key  = raz_date
-!Config  Desc = Remise a zero de la date initiale
-!Config  Def  = 0 (pas de remise a zero)
-!Config  Help = Remise a zero de la date initiale 
-!Config         0 pas de remise a zero, on garde la date du fichier restart
-!Config         1 prise en compte de la date de gcm.def avec remise a zero
-!Config         des compteurs de pas de temps
-      raz_date = 0
-      CALL getin('raz_date', raz_date)
-
-!Config  Key  = nday
-!Config  Desc = Nombre de jours d'integration
-!Config  Def  = 10
-!Config  Help = Nombre de jours d'integration
-!Config         ... On pourait aussi permettre des mois ou des annees !
-      nday = 10
-      CALL getin('nday',nday)
-
-!Config  Key  = starttime
-!Config  Desc = Heure de depart de la simulation
-!Config  Def  = 0
-!Config  Help = Heure de depart de la simulation
-!Config         en jour
-      starttime = 0
-      CALL getin('starttime',starttime)
-
-!Config  Key  = day_step
-!Config  Desc = nombre de pas par jour
-!Config  Def  = 240 
-!Config  Help = nombre de pas par jour (multiple de iperiod) (
-!Config          ici pour  dt = 1 min ) 
-       day_step = 240 
-       CALL getin('day_step',day_step)
-
-!Config  Key  = nsplit_phys
-       nsplit_phys = 1 
-       CALL getin('nsplit_phys',nsplit_phys)
-
-!Config  Key  = iperiod
-!Config  Desc = periode pour le pas Matsuno
-!Config  Def  = 5
-!Config  Help = periode pour le pas Matsuno (en pas de temps)
-       iperiod = 5
-       CALL getin('iperiod',iperiod)
-
-!Config  Key  = iapp_tracvl
-!Config  Desc = frequence du groupement des flux 
-!Config  Def  = iperiod
-!Config  Help = frequence du groupement des flux (en pas de temps) 
-       iapp_tracvl = iperiod
-       CALL getin('iapp_tracvl',iapp_tracvl)
-
-!Config  Key  = iconser
-!Config  Desc = periode de sortie des variables de controle
-!Config  Def  = 240  
-!Config  Help = periode de sortie des variables de controle
-!Config         (En pas de temps)
-       iconser = 240  
-       CALL getin('iconser', iconser)
-
-!Config  Key  = iecri
-!Config  Desc = periode d'ecriture du fichier histoire
-!Config  Def  = 1
-!Config  Help = periode d'ecriture du fichier histoire (en jour) 
-       iecri = 1
-       CALL getin('iecri',iecri)
-
-
-!Config  Key  = periodav
-!Config  Desc = periode de stockage fichier histmoy
-!Config  Def  = 1
-!Config  Help = periode de stockage fichier histmoy (en jour) 
-       periodav = 1.
-       CALL getin('periodav',periodav)
-
-!Config  Key  = output_grads_dyn
-!Config  Desc = output dynamics diagnostics in 'dyn.dat' file
-!Config  Def  = n
-!Config  Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file
-       output_grads_dyn=.false.
-       CALL getin('output_grads_dyn',output_grads_dyn)
-
-!Config  Key  = dissip_period
-!Config  Desc = periode de la dissipation 
-!Config  Def  = 0
-!Config  Help = periode de la dissipation 
-!Config  dissip_period=0 => la valeur sera calcule dans inidissip       
-!Config  dissip_period>0 => on prend cette valeur
-       dissip_period = 0
-       CALL getin('dissip_period',dissip_period)
-
-ccc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
-ccc
-
-!Config  Key  = lstardis
-!Config  Desc = choix de l'operateur de dissipation
-!Config  Def  = y
-!Config  Help = choix de l'operateur de dissipation
-!Config         'y' si on veut star et 'n' si on veut non-start !
-!Config         Moi y en a pas comprendre ! 
-       lstardis = .TRUE.
-       CALL getin('lstardis',lstardis)
-
-
-!Config  Key  = nitergdiv
-!Config  Desc = Nombre d'iteration de gradiv
-!Config  Def  = 1
-!Config  Help = nombre d'iterations de l'operateur de dissipation 
-!Config         gradiv
-       nitergdiv = 1
-       CALL getin('nitergdiv',nitergdiv)
-
-!Config  Key  = nitergrot
-!Config  Desc = nombre d'iterations de nxgradrot
-!Config  Def  = 2
-!Config  Help = nombre d'iterations de l'operateur de dissipation  
-!Config         nxgradrot
-       nitergrot = 2
-       CALL getin('nitergrot',nitergrot)
-
-
-!Config  Key  = niterh
-!Config  Desc = nombre d'iterations de divgrad
-!Config  Def  = 2
-!Config  Help = nombre d'iterations de l'operateur de dissipation
-!Config         divgrad
-       niterh = 2
-       CALL getin('niterh',niterh)
-
-
-!Config  Key  = tetagdiv
-!Config  Desc = temps de dissipation pour div
-!Config  Def  = 7200
-!Config  Help = temps de dissipation des plus petites longeur 
-!Config         d'ondes pour u,v (gradiv)
-       tetagdiv = 7200.
-       CALL getin('tetagdiv',tetagdiv)
-
-!Config  Key  = tetagrot
-!Config  Desc = temps de dissipation pour grad
-!Config  Def  = 7200
-!Config  Help = temps de dissipation des plus petites longeur 
-!Config         d'ondes pour u,v (nxgradrot)
-       tetagrot = 7200.
-       CALL getin('tetagrot',tetagrot)
-
-!Config  Key  = tetatemp 
-!Config  Desc = temps de dissipation pour h
-!Config  Def  = 7200
-!Config  Help =  temps de dissipation des plus petites longeur 
-!Config         d'ondes pour h (divgrad)   
-       tetatemp  = 7200.
-       CALL getin('tetatemp',tetatemp )
-
-! Parametres controlant la variation sur la verticale des constantes de
-! dissipation.
-! Pour le moment actifs uniquement dans la version a 39 niveaux
-! avec ok_strato=y
-
-       dissip_factz=4.
-       dissip_deltaz=10.
-       dissip_zref=30.
-       CALL getin('dissip_factz',dissip_factz )
-       CALL getin('dissip_deltaz',dissip_deltaz )
-       CALL getin('dissip_zref',dissip_zref )
-
-! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
-!                   iflag_top_bound=0 for no sponge
-!                   iflag_top_bound=1 for sponge over 4 topmost layers
-!                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
-       iflag_top_bound=1
-       CALL getin('iflag_top_bound',iflag_top_bound)
-
-! mode_top_bound : fields towards which sponge relaxation will be done:
-!                  mode_top_bound=0: no relaxation
-!                  mode_top_bound=1: u and v relax towards 0
-!                  mode_top_bound=2: u and v relax towards their zonal mean
-!                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
-       mode_top_bound=3
-       CALL getin('mode_top_bound',mode_top_bound)
-
-! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
-       tau_top_bound=1.e-5
-       CALL getin('tau_top_bound',tau_top_bound)
-
-!Config  Key  = coefdis
-!Config  Desc = coefficient pour gamdissip
-!Config  Def  = 0
-!Config  Help = coefficient pour gamdissip  
-       coefdis = 0.
-       CALL getin('coefdis',coefdis)
-
-!Config  Key  = purmats
-!Config  Desc = Schema d'integration
-!Config  Def  = n
-!Config  Help = Choix du schema d'integration temporel.
-!Config         y = pure Matsuno sinon c'est du Matsuno-leapfrog
-       purmats = .FALSE.
-       CALL getin('purmats',purmats)
-
-!Config  Key  = ok_guide
-!Config  Desc = Guidage
-!Config  Def  = n
-!Config  Help = Guidage
-       ok_guide = .FALSE.
-       CALL getin('ok_guide',ok_guide)
-
-c    ...............................................................
-
-!Config  Key  =  read_start
-!Config  Desc = Initialize model using a 'start.nc' file
-!Config  Def  = y
-!Config  Help = y: intialize dynamical fields using a 'start.nc' file
-!               n: fields are initialized by 'iniacademic' routine
-       read_start= .true.
-       CALL getin('read_start',read_start)
-
-!Config  Key  = iflag_phys
-!Config  Desc = Avec ls physique 
-!Config  Def  = 1
-!Config  Help = Permet de faire tourner le modele sans 
-!Config         physique.
-       iflag_phys = 1
-       CALL getin('iflag_phys',iflag_phys)
-
-
-!Config  Key  =  iphysiq
-!Config  Desc = Periode de la physique
-!Config  Def  = 5
-!Config  Help = Periode de la physique en pas de temps de la dynamique.
-       iphysiq = 5
-       CALL getin('iphysiq', iphysiq)
-
-!Config  Key  = ip_ebil_dyn
-!Config  Desc = PRINT level for energy conserv. diag.
-!Config  Def  = 0
-!Config  Help = PRINT level for energy conservation diag. ;
-!               les options suivantes existent :
-!Config         0 pas de print
-!Config         1 pas de print
-!Config         2 print,
-       ip_ebil_dyn = 0
-       CALL getin('ip_ebil_dyn',ip_ebil_dyn)
-!
-
-
-ccc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
-c     .........   (  modif  le 17/04/96 )   .........
-c
-      IF( etatinit ) GO TO 100
-
-!Config  Key  = clon
-!Config  Desc = centre du zoom, longitude
-!Config  Def  = 0
-!Config  Help = longitude en degres du centre 
-!Config         du zoom
-       clonn = 0.
-       CALL getin('clon',clonn)
-
-!Config  Key  = clat
-!Config  Desc = centre du zoom, latitude
-!Config  Def  = 0
-!Config  Help = latitude en degres du centre du zoom
-!Config         
-       clatt = 0.
-       CALL getin('clat',clatt)
-
-c
-c
-      IF( ABS(clat - clatt).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',
-     &    ' est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-
-!Config  Key  = grossismx 
-!Config  Desc = zoom en longitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la longitude
-       grossismxx = 1.0
-       CALL getin('grossismx',grossismxx)
-
-
-      IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ',
-     &  'run.def est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-
-!Config  Key  = grossismy
-!Config  Desc = zoom en latitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la latitude
-       grossismyy = 1.0
-       CALL getin('grossismy',grossismyy)
-
-      IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ',
-     & 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-      
-      IF( grossismx.LT.1. )  THEN
-        write(lunout,*)
-     &       'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-         STOP
-      ELSE
-         alphax = 1. - 1./ grossismx
-      ENDIF
-
-
-      IF( grossismy.LT.1. )  THEN
-        write(lunout,*)
-     &       'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
-         STOP
-      ELSE
-         alphay = 1. - 1./ grossismy
-      ENDIF
-
-      write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
-c
-c    alphax et alphay sont les anciennes formulat. des grossissements
-c
-c
-
-!Config  Key  = fxyhypb
-!Config  Desc = Fonction  hyperbolique
-!Config  Def  = y
-!Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
-!Config         sinon  sinusoidale
-       fxyhypbb = .TRUE.
-       CALL getin('fxyhypb',fxyhypbb)
-
-      IF( .NOT.fxyhypb )  THEN
-         IF( fxyhypbb )     THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** fxyhypb lu sur le fichier start est ',
-     *       'F alors  qu il est  T  sur  run.def  ***'
-              STOP
-         ENDIF
-      ELSE
-         IF( .NOT.fxyhypbb )   THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' ***  fxyhypb lu sur le fichier start est ',
-     *        'T alors  qu il est  F  sur  run.def  ****  '
-              STOP
-         ENDIF
-      ENDIF
-c
-!Config  Key  = dzoomx
-!Config  Desc = extension en longitude
-!Config  Def  = 0
-!Config  Help = extension en longitude  de la zone du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomxx = 0.0
-       CALL getin('dzoomx',dzoomxx)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ',
-     *  'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!Config  Key  = dzoomy
-!Config  Desc = extension en latitude
-!Config  Def  = 0
-!Config  Help = extension en latitude de la zone  du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomyy = 0.0
-       CALL getin('dzoomy',dzoomyy)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ',
-     * 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-      
-!Config  Key  = taux
-!Config  Desc = raideur du zoom en  X
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  X
-       tauxx = 3.0
-       CALL getin('taux',tauxx)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de taux passee par ',
-     * 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!Config  Key  = tauyy
-!Config  Desc = raideur du zoom en  Y
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  Y
-       tauyy = 3.0
-       CALL getin('tauy',tauyy)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de tauy passee par ',
-     * 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-cc
-      IF( .NOT.fxyhypb  )  THEN
-
-!Config  Key  = ysinus
-!Config  IF   = !fxyhypb
-!Config  Desc = Fonction en Sinus
-!Config  Def  = y
-!Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
-!Config         sinon y = latit.
-       ysinuss = .TRUE.
-       CALL getin('ysinus',ysinuss)
-
-        IF( .NOT.ysinus )  THEN
-          IF( ysinuss )     THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** ysinus lu sur le fichier start est F',
-     *       ' alors  qu il est  T  sur  run.def  ***'
-            STOP
-          ENDIF
-        ELSE
-          IF( .NOT.ysinuss )   THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** ysinus lu sur le fichier start est T',
-     *        ' alors  qu il est  F  sur  run.def  ****  '
-              STOP
-          ENDIF
-        ENDIF
-      ENDIF ! of IF( .NOT.fxyhypb  )
-c
-!Config  Key  = offline
-!Config  Desc = Nouvelle eau liquide
-!Config  Def  = n
-!Config  Help = Permet de mettre en route la
-!Config         nouvelle parametrisation de l'eau liquide !
-       offline = .FALSE.
-       CALL getin('offline',offline)
-       IF (offline .AND. adjust) THEN
-          WRITE(lunout,*) 
-     &         'WARNING : option offline does not work with adjust=y :'
-          WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ', 
-     &         'and fluxstokev.nc will not be created'
-          WRITE(lunout,*) 
-     &         'only the file phystoke.nc will still be created ' 
-       END IF
-       
-!Config  Key  = type_trac
-!Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
-!Config  Def  = lmdz
-!Config  Help = 
-!Config         'lmdz' = pas de couplage, pur LMDZ
-!Config         'inca' = model de chime INCA 
-!Config         'repr' = model de chime REPROBUS
-      type_trac = 'lmdz'
-      CALL getin('type_trac',type_trac)
-
-!Config  Key  = config_inca
-!Config  Desc = Choix de configuration de INCA
-!Config  Def  = none
-!Config  Help = Choix de configuration de INCA :
-!Config         'none' = sans INCA
-!Config         'chem' = INCA avec calcul de chemie
-!Config         'aero' = INCA avec calcul des aerosols 
-      config_inca = 'none'
-      CALL getin('config_inca',config_inca)
-
-!Config  Key  = ok_dynzon 
-!Config  Desc = calcul et sortie des transports 
-!Config  Def  = n 
-!Config  Help = Permet de mettre en route le calcul des transports 
-!Config          
-      ok_dynzon = .FALSE. 
-      CALL getin('ok_dynzon',ok_dynzon) 
-
-!Config  Key  = ok_dyn_ins
-!Config  Desc = sorties instantanees dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ins = .FALSE. 
-      CALL getin('ok_dyn_ins',ok_dyn_ins) 
-
-!Config  Key  = ok_dyn_ave
-!Config  Desc = sorties moyennes dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ave = .FALSE. 
-      CALL getin('ok_dyn_ave',ok_dyn_ave) 
-
-      write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres du gcm: '
-      write(lunout,*)' planet_type = ', planet_type
-      write(lunout,*)' calend = ', calend
-      write(lunout,*)' dayref = ', dayref
-      write(lunout,*)' anneeref = ', anneeref
-      write(lunout,*)' nday = ', nday
-      write(lunout,*)' day_step = ', day_step
-      write(lunout,*)' iperiod = ', iperiod
-      write(lunout,*)' nsplit_phys = ', nsplit_phys
-      write(lunout,*)' iconser = ', iconser
-      write(lunout,*)' iecri = ', iecri
-      write(lunout,*)' periodav = ', periodav 
-      write(lunout,*)' output_grads_dyn = ', output_grads_dyn
-      write(lunout,*)' dissip_period = ', dissip_period
-      write(lunout,*)' lstardis = ', lstardis
-      write(lunout,*)' nitergdiv = ', nitergdiv
-      write(lunout,*)' nitergrot = ', nitergrot
-      write(lunout,*)' niterh = ', niterh
-      write(lunout,*)' tetagdiv = ', tetagdiv
-      write(lunout,*)' tetagrot = ', tetagrot
-      write(lunout,*)' tetatemp = ', tetatemp
-      write(lunout,*)' coefdis = ', coefdis
-      write(lunout,*)' purmats = ', purmats
-      write(lunout,*)' read_start = ', read_start
-      write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' iphysiq = ', iphysiq
-      write(lunout,*)' clonn = ', clonn 
-      write(lunout,*)' clatt = ', clatt
-      write(lunout,*)' grossismx = ', grossismx
-      write(lunout,*)' grossismy = ', grossismy
-      write(lunout,*)' fxyhypbb = ', fxyhypbb
-      write(lunout,*)' dzoomxx = ', dzoomxx
-      write(lunout,*)' dzoomy = ', dzoomyy
-      write(lunout,*)' tauxx = ', tauxx
-      write(lunout,*)' tauyy = ', tauyy
-      write(lunout,*)' offline = ', offline
-      write(lunout,*)' type_trac = ', type_trac
-      write(lunout,*)' config_inca = ', config_inca
-      write(lunout,*)' ok_dynzon = ', ok_dynzon 
-      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
-      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-
-      RETURN
-c   ...............................................
-c
-100   CONTINUE
-!Config  Key  = clon
-!Config  Desc = centre du zoom, longitude
-!Config  Def  = 0
-!Config  Help = longitude en degres du centre 
-!Config         du zoom
-       clon = 0.
-       CALL getin('clon',clon)
-
-!Config  Key  = clat
-!Config  Desc = centre du zoom, latitude
-!Config  Def  = 0
-!Config  Help = latitude en degres du centre du zoom
-!Config         
-       clat = 0.
-       CALL getin('clat',clat)
-
-!Config  Key  = grossismx 
-!Config  Desc = zoom en longitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la longitude
-       grossismx = 1.0
-       CALL getin('grossismx',grossismx)
-
-!Config  Key  = grossismy
-!Config  Desc = zoom en latitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la latitude
-       grossismy = 1.0
-       CALL getin('grossismy',grossismy)
-
-      IF( grossismx.LT.1. )  THEN
-        write(lunout,*)
-     &   'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-         STOP
-      ELSE
-         alphax = 1. - 1./ grossismx
-      ENDIF
-
-
-      IF( grossismy.LT.1. )  THEN
-        write(lunout,*)
-     &  'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
-         STOP
-      ELSE
-         alphay = 1. - 1./ grossismy
-      ENDIF
-
-      write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
-c
-c    alphax et alphay sont les anciennes formulat. des grossissements
-c
-c
-
-!Config  Key  = fxyhypb
-!Config  Desc = Fonction  hyperbolique
-!Config  Def  = y
-!Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
-!Config         sinon  sinusoidale
-       fxyhypb = .TRUE.
-       CALL getin('fxyhypb',fxyhypb)
-
-!Config  Key  = dzoomx
-!Config  Desc = extension en longitude
-!Config  Def  = 0
-!Config  Help = extension en longitude  de la zone du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomx = 0.0
-       CALL getin('dzoomx',dzoomx)
-
-!Config  Key  = dzoomy
-!Config  Desc = extension en latitude
-!Config  Def  = 0
-!Config  Help = extension en latitude de la zone  du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomy = 0.0
-       CALL getin('dzoomy',dzoomy)
-
-!Config  Key  = taux
-!Config  Desc = raideur du zoom en  X
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  X
-       taux = 3.0
-       CALL getin('taux',taux)
-
-!Config  Key  = tauy
-!Config  Desc = raideur du zoom en  Y
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  Y
-       tauy = 3.0
-       CALL getin('tauy',tauy)
-
-!Config  Key  = ysinus
-!Config  IF   = !fxyhypb
-!Config  Desc = Fonction en Sinus
-!Config  Def  = y
-!Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
-!Config         sinon y = latit.
-       ysinus = .TRUE.
-       CALL getin('ysinus',ysinus)
-c
-!Config  Key  = offline
-!Config  Desc = Nouvelle eau liquide
-!Config  Def  = n
-!Config  Help = Permet de mettre en route la
-!Config         nouvelle parametrisation de l'eau liquide !
-       offline = .FALSE.
-       CALL getin('offline',offline)
-       IF (offline .AND. adjust) THEN
-          WRITE(lunout,*) 
-     &         'WARNING : option offline does not work with adjust=y :'
-          WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ', 
-     &         'and fluxstokev.nc will not be created'
-          WRITE(lunout,*) 
-     &         'only the file phystoke.nc will still be created ' 
-       END IF
-
-!Config  Key  = type_trac
-!Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
-!Config  Def  = lmdz
-!Config  Help = 
-!Config         'lmdz' = pas de couplage, pur LMDZ
-!Config         'inca' = model de chime INCA 
-!Config         'repr' = model de chime REPROBUS
-      type_trac = 'lmdz'
-      CALL getin('type_trac',type_trac)
-
-!Config  Key  = config_inca
-!Config  Desc = Choix de configuration de INCA
-!Config  Def  = none
-!Config  Help = Choix de configuration de INCA :
-!Config         'none' = sans INCA
-!Config         'chem' = INCA avec calcul de chemie
-!Config         'aero' = INCA avec calcul des aerosols 
-      config_inca = 'none'
-      CALL getin('config_inca',config_inca)
-
-!Config  Key  = ok_dynzon 
-!Config  Desc = sortie des transports zonaux dans la dynamique
-!Config  Def  = n 
-!Config  Help = Permet de mettre en route le calcul des transports 
-!Config          
-      ok_dynzon = .FALSE. 
-      CALL getin('ok_dynzon',ok_dynzon) 
-
-!Config  Key  = ok_dyn_ins
-!Config  Desc = sorties instantanees dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ins = .FALSE. 
-      CALL getin('ok_dyn_ins',ok_dyn_ins) 
-
-!Config  Key  = ok_dyn_ave
-!Config  Desc = sorties moyennes dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ave = .FALSE. 
-      CALL getin('ok_dyn_ave',ok_dyn_ave) 
-
-!Config  Key  = use_filtre_fft
-!Config  Desc = flag d'activation des FFT pour le filtre
-!Config  Def  = false
-!Config  Help = permet d'activer l'utilisation des FFT pour effectuer
-!Config         le filtrage aux poles. 
-      use_filtre_fft=.FALSE.
-      CALL getin('use_filtre_fft',use_filtre_fft)
-      use_filtre_fft_loc=use_filtre_fft
-      
-      IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
-        write(lunout,*)'WARNING !!! '
-        write(lunout,*)"Le zoom en longitude est incompatible",
-     &                 " avec l'utilisation du filtre FFT ",
-     &                 "---> FFT filter not active"
-       use_filtre_fft=.FALSE.
-      ENDIF
-      
- 
-      
-!Config  Key  = use_mpi_alloc
-!Config  Desc = Utilise un buffer MPI en mï¿½moire globale
-!Config  Def  = false
-!Config  Help = permet d'activer l'utilisation d'un buffer MPI
-!Config         en mï¿½moire globale a l'aide de la fonction MPI_ALLOC.
-!Config         Cela peut amï¿½liorer la bande passante des transferts MPI
-!Config         d'un facteur 2  
-      use_mpi_alloc=.FALSE.
-      CALL getin('use_mpi_alloc',use_mpi_alloc)
-
-!Config key = ok_strato
-!Config  Desc = activation de la version strato
-!Config  Def  = .FALSE.
-!Config  Help = active la version stratosphérique de LMDZ de F. Lott
-
-      ok_strato=.FALSE.
-      CALL getin('ok_strato',ok_strato)
-
-      vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
-      CALL getin('vert_prof_dissip', vert_prof_dissip)
-      call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1,
-     $     "bad value for vert_prof_dissip")
-
-!Config  Key  = ok_gradsfile
-!Config  Desc = activation des sorties grads du guidage
-!Config  Def  = n
-!Config  Help = active les sorties grads du guidage
-
-       ok_gradsfile = .FALSE.
-       CALL getin('ok_gradsfile',ok_gradsfile)
-
-!Config  Key  = ok_limit
-!Config  Desc = creation des fichiers limit dans create_etat0_limit
-!Config  Def  = y
-!Config  Help = production du fichier limit.nc requise
-
-       ok_limit = .TRUE.
-       CALL getin('ok_limit',ok_limit)
-
-!Config  Key  = ok_etat0
-!Config  Desc = creation des fichiers etat0 dans create_etat0_limit
-!Config  Def  = y
-!Config  Help = production des fichiers start.nc, startphy.nc requise
-
-      ok_etat0 = .TRUE.
-      CALL getin('ok_etat0',ok_etat0)
-
-      write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres de cel0'
-     &             //'_limit: '
-      write(lunout,*)' planet_type = ', planet_type
-      write(lunout,*)' calend = ', calend
-      write(lunout,*)' dayref = ', dayref
-      write(lunout,*)' anneeref = ', anneeref
-      write(lunout,*)' nday = ', nday
-      write(lunout,*)' day_step = ', day_step
-      write(lunout,*)' iperiod = ', iperiod
-      write(lunout,*)' iconser = ', iconser
-      write(lunout,*)' iecri = ', iecri
-      write(lunout,*)' periodav = ', periodav 
-      write(lunout,*)' output_grads_dyn = ', output_grads_dyn
-      write(lunout,*)' dissip_period = ', dissip_period
-      write(lunout,*)' lstardis = ', lstardis
-      write(lunout,*)' nitergdiv = ', nitergdiv
-      write(lunout,*)' nitergrot = ', nitergrot
-      write(lunout,*)' niterh = ', niterh
-      write(lunout,*)' tetagdiv = ', tetagdiv
-      write(lunout,*)' tetagrot = ', tetagrot
-      write(lunout,*)' tetatemp = ', tetatemp
-      write(lunout,*)' coefdis = ', coefdis
-      write(lunout,*)' purmats = ', purmats
-      write(lunout,*)' read_start = ', read_start
-      write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' iphysiq = ', iphysiq
-      write(lunout,*)' clon = ', clon
-      write(lunout,*)' clat = ', clat
-      write(lunout,*)' grossismx = ', grossismx
-      write(lunout,*)' grossismy = ', grossismy
-      write(lunout,*)' fxyhypb = ', fxyhypb
-      write(lunout,*)' dzoomx = ', dzoomx
-      write(lunout,*)' dzoomy = ', dzoomy
-      write(lunout,*)' taux = ', taux
-      write(lunout,*)' tauy = ', tauy
-      write(lunout,*)' offline = ', offline
-      write(lunout,*)' type_trac = ', type_trac
-      write(lunout,*)' config_inca = ', config_inca
-      write(lunout,*)' ok_dynzon = ', ok_dynzon
-      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
-      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-      write(lunout,*)' use_filtre_fft = ', use_filtre_fft
-      write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
-      write(lunout,*)' ok_strato = ', ok_strato
-      write(lunout,*)' ok_gradsfile = ', ok_gradsfile
-      write(lunout,*)' ok_limit = ', ok_limit
-      write(lunout,*)' ok_etat0 = ', ok_etat0
-c
-      RETURN
-      END
Index: LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/dyn3dmem/conf_gcm.F90	(revision 2160)
@@ -0,0 +1,978 @@
+
+! $Id$
+
+SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
+
+  USE control_mod
+#ifdef CPP_IOIPSL
+  use IOIPSL
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  use ioipsl_getincom
+#endif
+  use misc_mod
+  use mod_filtre_fft, ONLY : use_filtre_fft
+  use mod_filtre_fft_loc, ONLY : use_filtre_fft_loc=>use_filtre_fft
+  use mod_hallo, ONLY : use_mpi_alloc
+  USE infotrac, ONLY : type_trac
+  use assert_m, only: assert
+
+  IMPLICIT NONE
+  !-----------------------------------------------------------------------
+  !     Auteurs :   L. Fairhead , P. Le Van  .
+
+  !     Arguments :
+
+  !     tapedef   :
+  !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
+  !     -metres  du zoom  avec  celles lues sur le fichier start .
+  !      clesphy0 :  sortie  .
+
+  LOGICAL etatinit
+  INTEGER tapedef
+
+  INTEGER        longcles
+  PARAMETER(     longcles = 20 )
+  REAL clesphy0( longcles )
+
+  !   Declarations :
+  !   --------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "logic.h"
+  include "serre.h"
+  include "comdissnew.h"
+  include "temps.h"
+  include "comconst.h"
+
+  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+  ! include "clesphys.h"
+  include "iniprint.h"
+
+  !   local:
+  !   ------
+
+  CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
+  REAL clonn,clatt,grossismxx,grossismyy
+  REAL dzoomxx,dzoomyy, tauxx,tauyy
+  LOGICAL  fxyhypbb, ysinuss
+  INTEGER i
+  character(len=*),parameter :: modname="conf_gcm"
+  character (len=80) :: abort_message
+#ifdef CPP_OMP
+  integer,external :: OMP_GET_NUM_THREADS
+#endif
+
+  !  -------------------------------------------------------------------
+
+  !       .........     Version  du 29/04/97       ..........
+
+  !   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
+  !      tetatemp   ajoutes  pour la dissipation   .
+
+  !   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** 
+
+  !  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
+  !    Sinon , choix de fxynew  , a derivee sinusoidale  ..
+
+  !   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
+  !         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
+  !                de limit.dat ( dic)                        ...........
+  !           Sinon  etatinit = . FALSE .
+
+  !   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
+  !    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
+  !   celles passees  par run.def ,  au debut du gcm, apres l'appel a 
+  !    lectba .  
+  !   Ces parmetres definissant entre autres la grille et doivent etre
+  !   pareils et coherents , sinon il y aura  divergence du gcm .
+
+  !-----------------------------------------------------------------------
+  !   initialisations:
+  !   ----------------
+
+  !Config  Key  = lunout
+  !Config  Desc = unite de fichier pour les impressions
+  !Config  Def  = 6
+  !Config  Help = unite de fichier pour les impressions 
+  !Config         (defaut sortie standard = 6)
+  lunout=6
+  CALL getin('lunout', lunout)
+  IF (lunout /= 5 .and. lunout /= 6) THEN
+     OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write',  &
+          STATUS='unknown',FORM='formatted')
+  ENDIF
+
+  adjust=.false.
+  call getin('adjust',adjust)
+
+#ifdef CPP_OMP
+  ! adjust=y not implemented in case of OpenMP threads...
+  !$OMP PARALLEL
+  if ((OMP_GET_NUM_THREADS()>1).and.adjust) then
+     write(lunout,*)'conf_gcm: Error, adjust should be set to n' &
+          ,' when running with OpenMP threads'
+     abort_message = 'Wrong value for adjust'
+     call abort_gcm(modname,abort_message,1)
+  endif
+  !$OMP END PARALLEL         
+#endif
+
+  itaumax=0
+  call getin('itaumax',itaumax);
+  if (itaumax<=0) itaumax=HUGE(itaumax)
+
+  !Config  Key  = prt_level
+  !Config  Desc = niveau d'impressions de débogage
+  !Config  Def  = 0
+  !Config  Help = Niveau d'impression pour le débogage
+  !Config         (0 = minimum d'impression)
+  prt_level = 0
+  CALL getin('prt_level',prt_level)
+
+  !-----------------------------------------------------------------------
+  !  Parametres de controle du run:
+  !-----------------------------------------------------------------------
+  !Config  Key  = planet_type
+  !Config  Desc = planet type ("earth", "mars", "venus", ...)
+  !Config  Def  = earth
+  !Config  Help = this flag sets the type of atymosphere that is considered
+  planet_type="earth"
+  CALL getin('planet_type',planet_type)
+
+  !Config  Key  = calend
+  !Config  Desc = type de calendrier utilise
+  !Config  Def  = earth_360d
+  !Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
+  !Config         
+  calend = 'earth_360d'
+  CALL getin('calend', calend)
+
+  !Config  Key  = dayref
+  !Config  Desc = Jour de l'etat initial
+  !Config  Def  = 1
+  !Config  Help = Jour de l'etat initial ( = 350  si 20 Decembre ,
+  !Config         par expl. ,comme ici ) ... A completer
+  dayref=1
+  CALL getin('dayref', dayref)
+
+  !Config  Key  = anneeref
+  !Config  Desc = Annee de l'etat initial
+  !Config  Def  = 1998
+  !Config  Help = Annee de l'etat  initial 
+  !Config         (   avec  4  chiffres   ) ... A completer
+  anneeref = 1998
+  CALL getin('anneeref',anneeref)
+
+  !Config  Key  = raz_date
+  !Config  Desc = Remise a zero de la date initiale
+  !Config  Def  = 0 (pas de remise a zero)
+  !Config  Help = Remise a zero de la date initiale 
+  !Config         0 pas de remise a zero, on garde la date du fichier restart
+  !Config         1 prise en compte de la date de gcm.def avec remise a zero
+  !Config         des compteurs de pas de temps
+  raz_date = 0
+  CALL getin('raz_date', raz_date)
+
+  !Config  Key  = resetvarc
+  !Config  Desc = Reinit des variables de controle
+  !Config  Def  = n
+  !Config  Help = Reinit des variables de controle
+  resetvarc = .false.
+  CALL getin('resetvarc',resetvarc)
+
+  !Config  Key  = nday
+  !Config  Desc = Nombre de jours d'integration
+  !Config  Def  = 10
+  !Config  Help = Nombre de jours d'integration
+  !Config         ... On pourait aussi permettre des mois ou des annees !
+  nday = 10
+  CALL getin('nday',nday)
+
+  !Config  Key  = starttime
+  !Config  Desc = Heure de depart de la simulation
+  !Config  Def  = 0
+  !Config  Help = Heure de depart de la simulation
+  !Config         en jour
+  starttime = 0
+  CALL getin('starttime',starttime)
+
+  !Config  Key  = day_step
+  !Config  Desc = nombre de pas par jour
+  !Config  Def  = 240 
+  !Config  Help = nombre de pas par jour (multiple de iperiod) (
+  !Config          ici pour  dt = 1 min ) 
+  day_step = 240 
+  CALL getin('day_step',day_step)
+
+  !Config  Key  = nsplit_phys
+  nsplit_phys = 1 
+  CALL getin('nsplit_phys',nsplit_phys)
+
+  !Config  Key  = iperiod
+  !Config  Desc = periode pour le pas Matsuno
+  !Config  Def  = 5
+  !Config  Help = periode pour le pas Matsuno (en pas de temps)
+  iperiod = 5
+  CALL getin('iperiod',iperiod)
+
+  !Config  Key  = iapp_tracvl
+  !Config  Desc = frequence du groupement des flux 
+  !Config  Def  = iperiod
+  !Config  Help = frequence du groupement des flux (en pas de temps) 
+  iapp_tracvl = iperiod
+  CALL getin('iapp_tracvl',iapp_tracvl)
+
+  !Config  Key  = iconser
+  !Config  Desc = periode de sortie des variables de controle
+  !Config  Def  = 240  
+  !Config  Help = periode de sortie des variables de controle
+  !Config         (En pas de temps)
+  iconser = 240  
+  CALL getin('iconser', iconser)
+
+  !Config  Key  = iecri
+  !Config  Desc = periode d'ecriture du fichier histoire
+  !Config  Def  = 1
+  !Config  Help = periode d'ecriture du fichier histoire (en jour) 
+  iecri = 1
+  CALL getin('iecri',iecri)
+
+  !Config  Key  = periodav
+  !Config  Desc = periode de stockage fichier histmoy
+  !Config  Def  = 1
+  !Config  Help = periode de stockage fichier histmoy (en jour) 
+  periodav = 1.
+  CALL getin('periodav',periodav)
+
+  !Config  Key  = output_grads_dyn
+  !Config  Desc = output dynamics diagnostics in 'dyn.dat' file
+  !Config  Def  = n
+  !Config  Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file
+  output_grads_dyn=.false.
+  CALL getin('output_grads_dyn',output_grads_dyn)
+
+  !Config  Key  = dissip_period
+  !Config  Desc = periode de la dissipation 
+  !Config  Def  = 0
+  !Config  Help = periode de la dissipation 
+  !Config  dissip_period=0 => la valeur sera calcule dans inidissip       
+  !Config  dissip_period>0 => on prend cette valeur
+  dissip_period = 0
+  CALL getin('dissip_period',dissip_period)
+
+  !cc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
+  !cc
+
+  !Config  Key  = lstardis
+  !Config  Desc = choix de l'operateur de dissipation
+  !Config  Def  = y
+  !Config  Help = choix de l'operateur de dissipation
+  !Config         'y' si on veut star et 'n' si on veut non-start !
+  !Config         Moi y en a pas comprendre ! 
+  lstardis = .TRUE.
+  CALL getin('lstardis',lstardis)
+
+  !Config  Key  = nitergdiv
+  !Config  Desc = Nombre d'iteration de gradiv
+  !Config  Def  = 1
+  !Config  Help = nombre d'iterations de l'operateur de dissipation 
+  !Config         gradiv
+  nitergdiv = 1
+  CALL getin('nitergdiv',nitergdiv)
+
+  !Config  Key  = nitergrot
+  !Config  Desc = nombre d'iterations de nxgradrot
+  !Config  Def  = 2
+  !Config  Help = nombre d'iterations de l'operateur de dissipation  
+  !Config         nxgradrot
+  nitergrot = 2
+  CALL getin('nitergrot',nitergrot)
+
+  !Config  Key  = niterh
+  !Config  Desc = nombre d'iterations de divgrad
+  !Config  Def  = 2
+  !Config  Help = nombre d'iterations de l'operateur de dissipation
+  !Config         divgrad
+  niterh = 2
+  CALL getin('niterh',niterh)
+
+  !Config  Key  = tetagdiv
+  !Config  Desc = temps de dissipation pour div
+  !Config  Def  = 7200
+  !Config  Help = temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour u,v (gradiv)
+  tetagdiv = 7200.
+  CALL getin('tetagdiv',tetagdiv)
+
+  !Config  Key  = tetagrot
+  !Config  Desc = temps de dissipation pour grad
+  !Config  Def  = 7200
+  !Config  Help = temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour u,v (nxgradrot)
+  tetagrot = 7200.
+  CALL getin('tetagrot',tetagrot)
+
+  !Config  Key  = tetatemp 
+  !Config  Desc = temps de dissipation pour h
+  !Config  Def  = 7200
+  !Config  Help =  temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour h (divgrad)   
+  tetatemp  = 7200.
+  CALL getin('tetatemp',tetatemp )
+
+  ! Parametres controlant la variation sur la verticale des constantes de
+  ! dissipation.
+  ! Pour le moment actifs uniquement dans la version a 39 niveaux
+  ! avec ok_strato=y
+
+  dissip_factz=4.
+  dissip_deltaz=10.
+  dissip_zref=30.
+  CALL getin('dissip_factz',dissip_factz )
+  CALL getin('dissip_deltaz',dissip_deltaz )
+  CALL getin('dissip_zref',dissip_zref )
+
+  ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
+  !                   iflag_top_bound=0 for no sponge
+  !                   iflag_top_bound=1 for sponge over 4 topmost layers
+  !                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
+  iflag_top_bound=1
+  CALL getin('iflag_top_bound',iflag_top_bound)
+
+  ! mode_top_bound : fields towards which sponge relaxation will be done:
+  !                  mode_top_bound=0: no relaxation
+  !                  mode_top_bound=1: u and v relax towards 0
+  !                  mode_top_bound=2: u and v relax towards their zonal mean
+  !                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
+  mode_top_bound=3
+  CALL getin('mode_top_bound',mode_top_bound)
+
+  ! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
+  tau_top_bound=1.e-5
+  CALL getin('tau_top_bound',tau_top_bound)
+
+  !Config  Key  = coefdis
+  !Config  Desc = coefficient pour gamdissip
+  !Config  Def  = 0
+  !Config  Help = coefficient pour gamdissip  
+  coefdis = 0.
+  CALL getin('coefdis',coefdis)
+
+  !Config  Key  = purmats
+  !Config  Desc = Schema d'integration
+  !Config  Def  = n
+  !Config  Help = Choix du schema d'integration temporel.
+  !Config         y = pure Matsuno sinon c'est du Matsuno-leapfrog
+  purmats = .FALSE.
+  CALL getin('purmats',purmats)
+
+  !Config  Key  = ok_guide
+  !Config  Desc = Guidage
+  !Config  Def  = n
+  !Config  Help = Guidage
+  ok_guide = .FALSE.
+  CALL getin('ok_guide',ok_guide)
+
+  if (ok_guide .and. adjust) call abort_gcm("conf_gcm", &
+       "adjust does not work with ok_guide", 1)
+
+  !Config  Key  =  read_start
+  !Config  Desc = Initialize model using a 'start.nc' file
+  !Config  Def  = y
+  !Config  Help = y: intialize dynamical fields using a 'start.nc' file
+  !               n: fields are initialized by 'iniacademic' routine
+  read_start= .true.
+  CALL getin('read_start',read_start)
+
+  !Config  Key  = iflag_phys
+  !Config  Desc = Avec ls physique 
+  !Config  Def  = 1
+  !Config  Help = Permet de faire tourner le modele sans 
+  !Config         physique.
+  iflag_phys = 1
+  CALL getin('iflag_phys',iflag_phys)
+
+  !Config  Key  =  iphysiq
+  !Config  Desc = Periode de la physique
+  !Config  Def  = 5
+  !Config  Help = Periode de la physique en pas de temps de la dynamique.
+  iphysiq = 5
+  CALL getin('iphysiq', iphysiq)
+
+  !Config  Key  = ip_ebil_dyn
+  !Config  Desc = PRINT level for energy conserv. diag.
+  !Config  Def  = 0
+  !Config  Help = PRINT level for energy conservation diag. ;
+  !               les options suivantes existent :
+  !Config         0 pas de print
+  !Config         1 pas de print
+  !Config         2 print,
+  ip_ebil_dyn = 0
+  CALL getin('ip_ebil_dyn',ip_ebil_dyn)
+
+  !cc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
+  !     .........   (  modif  le 17/04/96 )   .........
+
+  test_etatinit: IF (.not. etatinit) then
+     !Config  Key  = clon
+     !Config  Desc = centre du zoom, longitude
+     !Config  Def  = 0
+     !Config  Help = longitude en degres du centre 
+     !Config         du zoom
+     clonn = 0.
+     CALL getin('clon',clonn)
+
+     !Config  Key  = clat
+     !Config  Desc = centre du zoom, latitude
+     !Config  Def  = 0
+     !Config  Help = latitude en degres du centre du zoom
+     !Config         
+     clatt = 0.
+     CALL getin('clat',clatt)
+
+     IF( ABS(clat - clatt).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &
+             ' est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     !Config  Key  = grossismx 
+     !Config  Desc = zoom en longitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la longitude
+     grossismxx = 1.0
+     CALL getin('grossismx',grossismxx)
+
+     IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &
+             'run.def est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     !Config  Key  = grossismy
+     !Config  Desc = zoom en latitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la latitude
+     grossismyy = 1.0
+     CALL getin('grossismy',grossismyy)
+
+     IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &
+             'run.def est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     IF( grossismx.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
+        STOP
+     ELSE
+        alphax = 1. - 1./ grossismx
+     ENDIF
+
+     IF( grossismy.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
+        STOP
+     ELSE
+        alphay = 1. - 1./ grossismy
+     ENDIF
+
+     write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
+
+     !    alphax et alphay sont les anciennes formulat. des grossissements
+
+     !Config  Key  = fxyhypb
+     !Config  Desc = Fonction  hyperbolique
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
+     !Config         sinon  sinusoidale
+     fxyhypbb = .TRUE.
+     CALL getin('fxyhypb',fxyhypbb)
+
+     IF( .NOT.fxyhypb )  THEN
+        IF( fxyhypbb )     THEN
+           write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+           write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &
+                'F alors  qu il est  T  sur  run.def  ***'
+           STOP
+        ENDIF
+     ELSE
+        IF( .NOT.fxyhypbb )   THEN
+           write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+           write(lunout,*)' ***  fxyhypb lu sur le fichier start est ', &
+                'T alors  qu il est  F  sur  run.def  ****  '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = dzoomx
+     !Config  Desc = extension en longitude
+     !Config  Def  = 0
+     !Config  Help = extension en longitude  de la zone du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomxx = 0.0
+     CALL getin('dzoomx',dzoomxx)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = dzoomy
+     !Config  Desc = extension en latitude
+     !Config  Def  = 0
+     !Config  Help = extension en latitude de la zone  du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomyy = 0.0
+     CALL getin('dzoomy',dzoomyy)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = taux
+     !Config  Desc = raideur du zoom en  X
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  X
+     tauxx = 3.0
+     CALL getin('taux',tauxx)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(taux - tauxx).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de taux passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = tauyy
+     !Config  Desc = raideur du zoom en  Y
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  Y
+     tauyy = 3.0
+     CALL getin('tauy',tauyy)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !c
+     IF( .NOT.fxyhypb  )  THEN
+
+        !Config  Key  = ysinus
+        !Config  IF   = !fxyhypb
+        !Config  Desc = Fonction en Sinus
+        !Config  Def  = y
+        !Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
+        !Config         sinon y = latit.
+        ysinuss = .TRUE.
+        CALL getin('ysinus',ysinuss)
+
+        IF( .NOT.ysinus )  THEN
+           IF( ysinuss )     THEN
+              write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+              write(lunout,*)' *** ysinus lu sur le fichier start est F', &
+                   ' alors  qu il est  T  sur  run.def  ***'
+              STOP
+           ENDIF
+        ELSE
+           IF( .NOT.ysinuss )   THEN
+              write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+              write(lunout,*)' *** ysinus lu sur le fichier start est T', &
+                   ' alors  qu il est  F  sur  run.def  ****  '
+              STOP
+           ENDIF
+        ENDIF
+     ENDIF ! of IF( .NOT.fxyhypb  )
+
+     !Config  Key  = offline
+     !Config  Desc = Nouvelle eau liquide
+     !Config  Def  = n
+     !Config  Help = Permet de mettre en route la
+     !Config         nouvelle parametrisation de l'eau liquide !
+     offline = .FALSE.
+     CALL getin('offline',offline)
+     IF (offline .AND. adjust) THEN
+        WRITE(lunout,*)  &
+             'WARNING : option offline does not work with adjust=y :'
+        WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ',  &
+             'and fluxstokev.nc will not be created'
+        WRITE(lunout,*)  &
+             'only the file phystoke.nc will still be created ' 
+     END IF
+
+     !Config  Key  = type_trac
+     !Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
+     !Config  Def  = lmdz
+     !Config  Help = 
+     !Config         'lmdz' = pas de couplage, pur LMDZ
+     !Config         'inca' = model de chime INCA 
+     !Config         'repr' = model de chime REPROBUS
+     type_trac = 'lmdz'
+     CALL getin('type_trac',type_trac)
+
+     !Config  Key  = config_inca
+     !Config  Desc = Choix de configuration de INCA
+     !Config  Def  = none
+     !Config  Help = Choix de configuration de INCA :
+     !Config         'none' = sans INCA
+     !Config         'chem' = INCA avec calcul de chemie
+     !Config         'aero' = INCA avec calcul des aerosols 
+     config_inca = 'none'
+     CALL getin('config_inca',config_inca)
+
+     !Config  Key  = ok_dynzon 
+     !Config  Desc = calcul et sortie des transports 
+     !Config  Def  = n 
+     !Config  Help = Permet de mettre en route le calcul des transports 
+     !Config          
+     ok_dynzon = .FALSE. 
+     CALL getin('ok_dynzon',ok_dynzon) 
+
+     !Config  Key  = ok_dyn_ins
+     !Config  Desc = sorties instantanees dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ins = .FALSE. 
+     CALL getin('ok_dyn_ins',ok_dyn_ins) 
+
+     !Config  Key  = ok_dyn_ave
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ave = .FALSE. 
+     CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     write(lunout,*)' #########################################'
+     write(lunout,*)' Configuration des parametres du gcm: '
+     write(lunout,*)' planet_type = ', planet_type
+     write(lunout,*)' calend = ', calend
+     write(lunout,*)' dayref = ', dayref
+     write(lunout,*)' anneeref = ', anneeref
+     write(lunout,*)' nday = ', nday
+     write(lunout,*)' day_step = ', day_step
+     write(lunout,*)' iperiod = ', iperiod
+     write(lunout,*)' nsplit_phys = ', nsplit_phys
+     write(lunout,*)' iconser = ', iconser
+     write(lunout,*)' iecri = ', iecri
+     write(lunout,*)' periodav = ', periodav 
+     write(lunout,*)' output_grads_dyn = ', output_grads_dyn
+     write(lunout,*)' dissip_period = ', dissip_period
+     write(lunout,*)' lstardis = ', lstardis
+     write(lunout,*)' nitergdiv = ', nitergdiv
+     write(lunout,*)' nitergrot = ', nitergrot
+     write(lunout,*)' niterh = ', niterh
+     write(lunout,*)' tetagdiv = ', tetagdiv
+     write(lunout,*)' tetagrot = ', tetagrot
+     write(lunout,*)' tetatemp = ', tetatemp
+     write(lunout,*)' coefdis = ', coefdis
+     write(lunout,*)' purmats = ', purmats
+     write(lunout,*)' read_start = ', read_start
+     write(lunout,*)' iflag_phys = ', iflag_phys
+     write(lunout,*)' iphysiq = ', iphysiq
+     write(lunout,*)' clonn = ', clonn 
+     write(lunout,*)' clatt = ', clatt
+     write(lunout,*)' grossismx = ', grossismx
+     write(lunout,*)' grossismy = ', grossismy
+     write(lunout,*)' fxyhypbb = ', fxyhypbb
+     write(lunout,*)' dzoomxx = ', dzoomxx
+     write(lunout,*)' dzoomy = ', dzoomyy
+     write(lunout,*)' tauxx = ', tauxx
+     write(lunout,*)' tauyy = ', tauyy
+     write(lunout,*)' offline = ', offline
+     write(lunout,*)' type_trac = ', type_trac
+     write(lunout,*)' config_inca = ', config_inca
+     write(lunout,*)' ok_dynzon = ', ok_dynzon 
+     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
+     write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+  else
+     !Config  Key  = clon
+     !Config  Desc = centre du zoom, longitude
+     !Config  Def  = 0
+     !Config  Help = longitude en degres du centre 
+     !Config         du zoom
+     clon = 0.
+     CALL getin('clon',clon)
+
+     !Config  Key  = clat
+     !Config  Desc = centre du zoom, latitude
+     !Config  Def  = 0
+     !Config  Help = latitude en degres du centre du zoom
+     !Config         
+     clat = 0.
+     CALL getin('clat',clat)
+
+     !Config  Key  = grossismx 
+     !Config  Desc = zoom en longitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la longitude
+     grossismx = 1.0
+     CALL getin('grossismx',grossismx)
+
+     !Config  Key  = grossismy
+     !Config  Desc = zoom en latitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la latitude
+     grossismy = 1.0
+     CALL getin('grossismy',grossismy)
+
+     IF( grossismx.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
+        STOP
+     ELSE
+        alphax = 1. - 1./ grossismx
+     ENDIF
+
+     IF( grossismy.LT.1. )  THEN
+        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
+        STOP
+     ELSE
+        alphay = 1. - 1./ grossismy
+     ENDIF
+
+     write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
+
+     !    alphax et alphay sont les anciennes formulat. des grossissements
+
+     !Config  Key  = fxyhypb
+     !Config  Desc = Fonction  hyperbolique
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
+     !Config         sinon  sinusoidale
+     fxyhypb = .TRUE.
+     CALL getin('fxyhypb',fxyhypb)
+
+     !Config  Key  = dzoomx
+     !Config  Desc = extension en longitude
+     !Config  Def  = 0
+     !Config  Help = extension en longitude  de la zone du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomx = 0.0
+     CALL getin('dzoomx',dzoomx)
+
+     !Config  Key  = dzoomy
+     !Config  Desc = extension en latitude
+     !Config  Def  = 0
+     !Config  Help = extension en latitude de la zone  du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomy = 0.0
+     CALL getin('dzoomy',dzoomy)
+
+     !Config  Key  = taux
+     !Config  Desc = raideur du zoom en  X
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  X
+     taux = 3.0
+     CALL getin('taux',taux)
+
+     !Config  Key  = tauy
+     !Config  Desc = raideur du zoom en  Y
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  Y
+     tauy = 3.0
+     CALL getin('tauy',tauy)
+
+     !Config  Key  = ysinus
+     !Config  IF   = !fxyhypb
+     !Config  Desc = Fonction en Sinus
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
+     !Config         sinon y = latit.
+     ysinus = .TRUE.
+     CALL getin('ysinus',ysinus)
+
+     !Config  Key  = offline
+     !Config  Desc = Nouvelle eau liquide
+     !Config  Def  = n
+     !Config  Help = Permet de mettre en route la
+     !Config         nouvelle parametrisation de l'eau liquide !
+     offline = .FALSE.
+     CALL getin('offline',offline)
+     IF (offline .AND. adjust) THEN
+        WRITE(lunout,*)  &
+             'WARNING : option offline does not work with adjust=y :'
+        WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ',  &
+             'and fluxstokev.nc will not be created'
+        WRITE(lunout,*)  &
+             'only the file phystoke.nc will still be created ' 
+     END IF
+
+     !Config  Key  = type_trac
+     !Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
+     !Config  Def  = lmdz
+     !Config  Help = 
+     !Config         'lmdz' = pas de couplage, pur LMDZ
+     !Config         'inca' = model de chime INCA 
+     !Config         'repr' = model de chime REPROBUS
+     type_trac = 'lmdz'
+     CALL getin('type_trac',type_trac)
+
+     !Config  Key  = config_inca
+     !Config  Desc = Choix de configuration de INCA
+     !Config  Def  = none
+     !Config  Help = Choix de configuration de INCA :
+     !Config         'none' = sans INCA
+     !Config         'chem' = INCA avec calcul de chemie
+     !Config         'aero' = INCA avec calcul des aerosols 
+     config_inca = 'none'
+     CALL getin('config_inca',config_inca)
+
+     !Config  Key  = ok_dynzon 
+     !Config  Desc = sortie des transports zonaux dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = Permet de mettre en route le calcul des transports 
+     !Config          
+     ok_dynzon = .FALSE. 
+     CALL getin('ok_dynzon',ok_dynzon) 
+
+     !Config  Key  = ok_dyn_ins
+     !Config  Desc = sorties instantanees dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ins = .FALSE. 
+     CALL getin('ok_dyn_ins',ok_dyn_ins) 
+
+     !Config  Key  = ok_dyn_ave
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ave = .FALSE. 
+     CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     !Config  Key  = use_filtre_fft
+     !Config  Desc = flag d'activation des FFT pour le filtre
+     !Config  Def  = false
+     !Config  Help = permet d'activer l'utilisation des FFT pour effectuer
+     !Config         le filtrage aux poles.
+     use_filtre_fft=.FALSE.
+     CALL getin('use_filtre_fft',use_filtre_fft)
+     use_filtre_fft_loc=use_filtre_fft
+
+     IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
+        write(lunout,*)'WARNING !!! '
+        write(lunout,*)"Le zoom en longitude est incompatible", &
+             " avec l'utilisation du filtre FFT ", &
+             "---> FFT filter not active"
+        use_filtre_fft=.FALSE.
+     ENDIF
+
+     !Config  Key  = use_mpi_alloc
+     !Config  Desc = Utilise un buffer MPI en mï¿½moire globale
+     !Config  Def  = false
+     !Config  Help = permet d'activer l'utilisation d'un buffer MPI
+     !Config         en mï¿½moire globale a l'aide de la fonction MPI_ALLOC.
+     !Config         Cela peut amï¿½liorer la bande passante des transferts MPI
+     !Config         d'un facteur 2  
+     use_mpi_alloc=.FALSE.
+     CALL getin('use_mpi_alloc',use_mpi_alloc)
+
+     !Config key = ok_strato
+     !Config  Desc = activation de la version strato
+     !Config  Def  = .FALSE.
+     !Config  Help = active la version stratosphérique de LMDZ de F. Lott
+
+     ok_strato=.FALSE.
+     CALL getin('ok_strato',ok_strato)
+
+     vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
+     CALL getin('vert_prof_dissip', vert_prof_dissip)
+     call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1, &
+          "bad value for vert_prof_dissip")
+
+     !Config  Key  = ok_gradsfile
+     !Config  Desc = activation des sorties grads du guidage
+     !Config  Def  = n
+     !Config  Help = active les sorties grads du guidage
+
+     ok_gradsfile = .FALSE.
+     CALL getin('ok_gradsfile',ok_gradsfile)
+
+     !Config  Key  = ok_limit
+     !Config  Desc = creation des fichiers limit dans create_etat0_limit
+     !Config  Def  = y
+     !Config  Help = production du fichier limit.nc requise
+
+     ok_limit = .TRUE.
+     CALL getin('ok_limit',ok_limit)
+
+     !Config  Key  = ok_etat0
+     !Config  Desc = creation des fichiers etat0 dans create_etat0_limit
+     !Config  Def  = y
+     !Config  Help = production des fichiers start.nc, startphy.nc requise
+
+     ok_etat0 = .TRUE.
+     CALL getin('ok_etat0',ok_etat0)
+
+     write(lunout,*)' #########################################'
+     write(lunout,*)' Configuration des parametres de cel0' &
+          //'_limit: '
+     write(lunout,*)' planet_type = ', planet_type
+     write(lunout,*)' calend = ', calend
+     write(lunout,*)' dayref = ', dayref
+     write(lunout,*)' anneeref = ', anneeref
+     write(lunout,*)' nday = ', nday
+     write(lunout,*)' day_step = ', day_step
+     write(lunout,*)' iperiod = ', iperiod
+     write(lunout,*)' iconser = ', iconser
+     write(lunout,*)' iecri = ', iecri
+     write(lunout,*)' periodav = ', periodav 
+     write(lunout,*)' output_grads_dyn = ', output_grads_dyn
+     write(lunout,*)' dissip_period = ', dissip_period
+     write(lunout,*)' lstardis = ', lstardis
+     write(lunout,*)' nitergdiv = ', nitergdiv
+     write(lunout,*)' nitergrot = ', nitergrot
+     write(lunout,*)' niterh = ', niterh
+     write(lunout,*)' tetagdiv = ', tetagdiv
+     write(lunout,*)' tetagrot = ', tetagrot
+     write(lunout,*)' tetatemp = ', tetatemp
+     write(lunout,*)' coefdis = ', coefdis
+     write(lunout,*)' purmats = ', purmats
+     write(lunout,*)' read_start = ', read_start
+     write(lunout,*)' iflag_phys = ', iflag_phys
+     write(lunout,*)' iphysiq = ', iphysiq
+     write(lunout,*)' clon = ', clon
+     write(lunout,*)' clat = ', clat
+     write(lunout,*)' grossismx = ', grossismx
+     write(lunout,*)' grossismy = ', grossismy
+     write(lunout,*)' fxyhypb = ', fxyhypb
+     write(lunout,*)' dzoomx = ', dzoomx
+     write(lunout,*)' dzoomy = ', dzoomy
+     write(lunout,*)' taux = ', taux
+     write(lunout,*)' tauy = ', tauy
+     write(lunout,*)' offline = ', offline
+     write(lunout,*)' type_trac = ', type_trac
+     write(lunout,*)' config_inca = ', config_inca
+     write(lunout,*)' ok_dynzon = ', ok_dynzon
+     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
+     write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+     write(lunout,*)' use_filtre_fft = ', use_filtre_fft
+     write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
+     write(lunout,*)' ok_strato = ', ok_strato
+     write(lunout,*)' ok_gradsfile = ', ok_gradsfile
+     write(lunout,*)' ok_limit = ', ok_limit
+     write(lunout,*)' ok_etat0 = ', ok_etat0
+  end IF test_etatinit
+
+END SUBROUTINE conf_gcm
Index: LMDZ5/branches/testing/libf/dyn3dmem/gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/gcm.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/gcm.F	(revision 2160)
@@ -174,4 +174,6 @@
 !#ifdef CPP_IOIPSL
       CALL conf_gcm( 99, .TRUE. , clesphy0 )
+      if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
+     s "iphysiq must be a multiple of iperiod", 1)
 !#else
 !      CALL defrun( 99, .TRUE. , clesphy0 )
Index: LMDZ5/branches/testing/libf/dyn3dmem/getparam.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/getparam.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/getparam.F90	(revision 2160)
@@ -11,6 +11,7 @@
 
    INTERFACE getpar
-     MODULE PROCEDURE ini_getparam,fin_getparam,getparamr,getparami,getparaml
+     MODULE PROCEDURE getparamr,getparami,getparaml
    END INTERFACE
+   private getparamr,getparami,getparaml
 
    INTEGER, PARAMETER :: out_eff=99
Index: LMDZ5/branches/testing/libf/dyn3dmem/guide_loc_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/guide_loc_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/guide_loc_mod.F90	(revision 2160)
@@ -68,6 +68,7 @@
 
   SUBROUTINE guide_init
-    
+
     USE control_mod
+
     IMPLICIT NONE
   
@@ -75,4 +76,7 @@
     INCLUDE "paramet.h"
     INCLUDE "netcdf.inc"
+
+    ! For grossismx:
+    include "serre.h"
 
     INTEGER                :: error,ncidpl,rid,rcod
@@ -94,4 +98,7 @@
     CALL getpar('guide_add',.false.,guide_add,'for�age constant?')
     CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale')
+    if (guide_zon .and. abs(grossismx - 1.) > 0.01) &
+         call abort_gcm("guide_init", &
+         "zonal nudging requires grid regular in longitude", 1)
 
 !   Constantes de rappel. Unite : fraction de jour
@@ -114,7 +121,9 @@
     ! frequences f>0: fx/jour; f<0: tous les f jours; f=0: 1 seule fois.
     IF (iguide_sav.GT.0) THEN
-        iguide_sav=day_step/iguide_sav
+       iguide_sav=day_step/iguide_sav
+    ELSE if (iguide_sav == 0) then
+       iguide_sav = huge(0)
     ELSE
-        iguide_sav=day_step*iguide_sav
+       iguide_sav=day_step*iguide_sav
     ENDIF
 
@@ -1517,6 +1526,7 @@
             enddo
         enddo
-    
     ENDIF ! guide_reg
+
+    if (.not. guide_add) alpha = 1. - exp(- alpha)
 
   END SUBROUTINE tau2alpha
Index: LMDZ5/branches/testing/libf/dyn3dmem/iniacademic_loc.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/iniacademic_loc.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/iniacademic_loc.F90	(revision 2160)
@@ -4,15 +4,15 @@
 SUBROUTINE iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0)
 
+  USE filtreg_mod, ONLY: inifilr
   use exner_hyb_m, only: exner_hyb
   use exner_milieu_m, only: exner_milieu
-  USE filtreg_mod
   USE infotrac, ONLY : nqtot
   USE control_mod, ONLY: day_step,planet_type
-  USE parallel_lmdz
+  USE parallel_lmdz, ONLY: ijb_u, ije_u, ijb_v, ije_v
 #ifdef CPP_IOIPSL
-  USE IOIPSL
+  USE IOIPSL, ONLY: getin
 #else
   ! if not using IOIPSL, we still need to use (a local version of) getin
-  USE ioipsl_getincom
+  USE ioipsl_getincom, ONLY: getin
 #endif
   USE Write_Field
@@ -41,13 +41,14 @@
   !   ----------
 
-  real time_0
-
-  !   variables dynamiques
-  REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm) ! vents covariants
-  REAL teta(ijb_u:ije_u,llm)                 ! temperature potentielle
-  REAL q(ijb_u:ije_u,llm,nqtot)               ! champs advectes
-  REAL ps(ijb_u:ije_u)                       ! pression  au sol
-  REAL masse(ijb_u:ije_u,llm)                ! masse d'air
-  REAL phis(ijb_u:ije_u)                     ! geopotentiel au sol
+  REAL,INTENT(OUT) :: time_0
+
+  !   fields
+  REAL,INTENT(OUT) :: vcov(ijb_v:ije_v,llm) ! meridional covariant wind
+  REAL,INTENT(OUT) :: ucov(ijb_u:ije_u,llm) ! zonal covariant wind
+  REAL,INTENT(OUT) :: teta(ijb_u:ije_u,llm) ! potential temperature (K)
+  REAL,INTENT(OUT) :: q(ijb_u:ije_u,llm,nqtot) ! advected tracers (.../kg_of_air)
+  REAL,INTENT(OUT) :: ps(ijb_u:ije_u) ! surface pressure (Pa)
+  REAL,INTENT(OUT) :: masse(ijb_u:ije_u,llm) ! air mass in grid cell (kg)
+  REAL,INTENT(OUT) :: phis(ijb_u:ije_u) ! surface geopotential
 
   !   Local:
@@ -80,4 +81,13 @@
   character(len=80) :: abort_message
 
+  ! Sanity check: verify that options selected by user are not incompatible
+  if ((iflag_phys==1).and. .not. read_start) then
+    write(lunout,*) trim(modname)," error: if read_start is set to ", &
+    " false then iflag_phys should not be 1"
+    write(lunout,*) "You most likely want an aquaplanet initialisation", &
+    " (iflag_phys >= 100)"
+    call abort_gcm(modname,"incompatible iflag_phys==1 and read_start==.false.",1)
+  endif
+  
   !-----------------------------------------------------------------------
   ! 1. Initializations for Earth-like case
Index: LMDZ5/branches/testing/libf/dyn3dmem/integrd_loc.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/integrd_loc.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/integrd_loc.F	(revision 2160)
@@ -147,6 +147,5 @@
 !     &                   MPI_LOGICAL,MPI_LOR,COMM_LMDZ,ierr)
       IF( .NOT. checksum ) THEN
-          write(lunout,*) "integrd: negative surface pressure ",
-     &                                                ps(stop_it)
+         write(lunout,*) "integrd: ps = ", ps(stop_it)
          write(lunout,*) " at node ij =", stop_it
          ! since ij=j+(i-1)*jjp1 , we have
@@ -155,4 +154,5 @@
 !         write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
 !     &                   " lat = ",rlatu(j)*180./pi, " deg"
+         call abort_gcm("integrd_loc", "negative surface pressure", 1)
       ENDIF
 
@@ -183,5 +183,5 @@
      .                dq(:,:,j))
         enddo
-      STOP
+        call abort_gcm("integrd_loc", "", 1)
       ENDIF
     
Index: LMDZ5/branches/testing/libf/dyn3dmem/mod_filtreg_p.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dmem/mod_filtreg_p.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dmem/mod_filtreg_p.F	(revision 2160)
@@ -6,8 +6,10 @@
      &     ifiltre, iaire, griscal ,iter)
       USE parallel_lmdz, only : OMP_CHUNK
-      USE mod_filtre_fft_loc
-      USE timer_filtre
-      
-      USE filtreg_mod
+      USE mod_filtre_fft_loc, ONLY: use_filtre_fft, filtre_u_fft,
+     &                              filtre_v_fft, filtre_inv_fft
+      USE timer_filtre, ONLY: init_timer, start_timer, stop_timer
+      
+      USE filtreg_mod, ONLY: matrinvn, matrinvs, matriceun, matriceus,
+     &                       matricevn, matricevs
       
       IMPLICIT NONE
@@ -57,16 +59,15 @@
 #include "coefils.h"
 c
-      INTEGER jjb,jje,ibeg,iend,nlat,nbniv,ifiltre,iter
+      INTEGER,INTENT(IN) :: jjb,jje,ibeg,iend,nlat,nbniv,ifiltre,iter
+      INTEGER,INTENT(IN) :: iaire
+      LOGICAL,INTENT(IN) :: griscal
+      REAL,INTENT(INOUT) ::  champ( iip1,jjb:jje,nbniv)
+      
       INTEGER i,j,l,k
       INTEGER iim2,immjm
       INTEGER jdfil1,jdfil2,jffil1,jffil2,jdfil,jffil
-      
-      REAL  champ( iip1,jjb:jje,nbniv)
-      
-      LOGICAL    griscal
-      INTEGER    hemisph, iaire
-      
+      INTEGER    hemisph
       REAL :: champ_fft(iip1,jjb:jje,nbniv)
-      REAL :: champ_in(iip1,jjb:jje,nbniv)
+!      REAL :: champ_in(iip1,jjb:jje,nbniv)
       
       LOGICAL,SAVE     :: first=.TRUE.
@@ -216,7 +217,7 @@
      &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
 #else
-                     champ_fft(:,j,1:nbniv_loc)=
-     &                    matmul(matrinvn(:,:,j),
-     &                    champ_loc(:iim,j,1:nbniv_loc))
+                     champ_fft(1:iim,j,1:nbniv_loc)=
+     &                    matmul(matrinvn(1:iim,1:iim,j),
+     &                    champ_loc(1:iim,j,1:nbniv_loc))
 #endif
                   ENDDO
@@ -230,7 +231,7 @@
      &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
 #else
-                     champ_fft(:,j,1:nbniv_loc)=
-     &                    matmul(matriceun(:,:,j),
-     &                           champ_loc(:iim,j,1:nbniv_loc))
+                     champ_fft(1:iim,j,1:nbniv_loc)=
+     &                    matmul(matriceun(1:iim,1:iim,j),
+     &                           champ_loc(1:iim,j,1:nbniv_loc))
 #endif
                   ENDDO
@@ -244,7 +245,7 @@
      &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
 #else
-                     champ_fft(:,j,1:nbniv_loc)=
-     &                    matmul(matricevn(:,:,j),           
-     &                           champ_loc(:iim,j,1:nbniv_loc))
+                     champ_fft(1:iim,j,1:nbniv_loc)=
+     &                    matmul(matricevn(1:iim,1:iim,j),           
+     &                           champ_loc(1:iim,j,1:nbniv_loc))
 #endif
                   ENDDO
@@ -262,7 +263,7 @@
      &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
 #else
-                     champ_fft(:,j,1:nbniv_loc)=
-     &                    matmul(matrinvs(:,:,j-jfiltsu+1),
-     &                           champ_loc(:iim,j,1:nbniv_loc))
+                     champ_fft(1:iim,j,1:nbniv_loc)=
+     &                    matmul(matrinvs(1:iim,1:iim,j-jfiltsu+1),
+     &                           champ_loc(1:iim,j,1:nbniv_loc))
 #endif
                   ENDDO
@@ -277,7 +278,7 @@
      &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
 #else
-                     champ_fft(:,j,1:nbniv_loc)=
-     &                    matmul(matriceus(:,:,j-jfiltsu+1),
-     &                           champ_loc(:iim,j,1:nbniv_loc))
+                     champ_fft(1:iim,j,1:nbniv_loc)=
+     &                    matmul(matriceus(1:iim,1:iim,j-jfiltsu+1),
+     &                           champ_loc(1:iim,j,1:nbniv_loc))
 #endif
                   ENDDO
@@ -292,7 +293,7 @@
      &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
 #else
-                     champ_fft(:,j,1:nbniv_loc)=
-     &                    matmul(matricevs(:,:,j-jfiltsv+1),
-     &                           champ_loc(:iim,j,1:nbniv_loc))
+                     champ_fft(1:iim,j,1:nbniv_loc)=
+     &                    matmul(matricevs(1:iim,1:iim,j-jfiltsv+1),
+     &                           champ_loc(1:iim,j,1:nbniv_loc))
 #endif
                   ENDDO
@@ -344,4 +345,5 @@
             DO l = 1, nbniv
                DO j = jdfil,jffil
+                  ! add redundant longitude
                   champ( iip1,j,l ) = champ( 1,j,l )
                ENDDO
@@ -406,4 +408,5 @@
                DO j=jdfil,jffil
 !            champ_FFT( iip1,j,l ) = champ_FFT( 1,j,l )
+                  ! add redundant longitude
                   champ( iip1,j,l ) = champ( 1,j,l )
                ENDDO
Index: LMDZ5/branches/testing/libf/dyn3dpar/abort_gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/abort_gcm.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/abort_gcm.F	(revision 2160)
@@ -27,7 +27,7 @@
 C         ierr    = severity of situation ( = 0 normal )
 
-      character(len=*) modname
+      character(len=*), intent(in):: modname
       integer ierr, ierror_mpi
-      character(len=*) message
+      character(len=*), intent(in):: message
 
       write(lunout,*) 'in abort_gcm'
@@ -53,5 +53,5 @@
         write(lunout,*) 'Everything is cool'
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
 #ifdef CPP_MPI
 C$OMP CRITICAL (MPI_ABORT_GCM)
Index: LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F	(revision 2116)
+++ 	(revision )
@@ -1,995 +1,0 @@
-!
-! $Id$
-!
-c
-c
-      SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
-c
-      USE control_mod
-#ifdef CPP_IOIPSL
-      use IOIPSL
-#else
-! if not using IOIPSL, we still need to use (a local version of) getin
-      use ioipsl_getincom
-#endif
-      use misc_mod
-      use mod_filtre_fft, ONLY : use_filtre_fft
-      use mod_hallo, ONLY : use_mpi_alloc
-      USE infotrac, ONLY : type_trac
-      use assert_m, only: assert
-
-      IMPLICIT NONE
-c-----------------------------------------------------------------------
-c     Auteurs :   L. Fairhead , P. Le Van  .
-c
-c     Arguments :
-c
-c     tapedef   :
-c     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
-c     -metres  du zoom  avec  celles lues sur le fichier start .
-c      clesphy0 :  sortie  .
-c
-       LOGICAL etatinit
-       INTEGER tapedef
-
-       INTEGER        longcles
-       PARAMETER(     longcles = 20 )
-       REAL clesphy0( longcles )
-c
-c   Declarations :
-c   --------------
-#include "dimensions.h"
-#include "paramet.h"
-#include "logic.h"
-#include "serre.h"
-#include "comdissnew.h"
-#include "temps.h"
-#include "comconst.h"
-
-! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
-! #include "clesphys.h"
-#include "iniprint.h"
-c
-c
-c   local:
-c   ------
-
-      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
-      REAL clonn,clatt,grossismxx,grossismyy
-      REAL dzoomxx,dzoomyy, tauxx,tauyy
-      LOGICAL  fxyhypbb, ysinuss
-      INTEGER i
-      character(len=*),parameter :: modname="conf_gcm"
-      character (len=80) :: abort_message
-#ifdef CPP_OMP
-      integer,external :: OMP_GET_NUM_THREADS
-#endif
-c
-c  -------------------------------------------------------------------
-c
-c       .........     Version  du 29/04/97       ..........
-c
-c   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
-c      tetatemp   ajoutes  pour la dissipation   .
-c
-c   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** 
-c
-c  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
-c    Sinon , choix de fxynew  , a derivee sinusoidale  ..
-c
-c   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
-c         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
-c                de limit.dat ( dic)                        ...........
-c           Sinon  etatinit = . FALSE .
-c
-c   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
-c    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
-c   celles passees  par run.def ,  au debut du gcm, apres l'appel a 
-c    lectba .  
-c   Ces parmetres definissant entre autres la grille et doivent etre
-c   pareils et coherents , sinon il y aura  divergence du gcm .
-c
-c-----------------------------------------------------------------------
-c   initialisations:
-c   ----------------
-      
-!Config  Key  = lunout
-!Config  Desc = unite de fichier pour les impressions
-!Config  Def  = 6
-!Config  Help = unite de fichier pour les impressions 
-!Config         (defaut sortie standard = 6)
-      lunout=6
-      CALL getin('lunout', lunout)
-      IF (lunout /= 5 .and. lunout /= 6) THEN
-        OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write', 
-     &          STATUS='unknown',FORM='formatted')
-      ENDIF
-
-      adjust=.false.
-      call getin('adjust',adjust)
-
-#ifdef CPP_OMP
-      ! adjust=y not implemented in case of OpenMP threads...
-!$OMP PARALLEL
-      if ((OMP_GET_NUM_THREADS()>1).and.adjust) then
-        write(lunout,*)'conf_gcm: Error, adjust should be set to n'
-     &,' when running with OpenMP threads'
-        abort_message = 'Wrong value for adjust'
-        call abort_gcm(modname,abort_message,1)
-      endif
-!$OMP END PARALLEL         
-#endif
-
-      itaumax=0
-      call getin('itaumax',itaumax);
-      if (itaumax<=0) itaumax=HUGE(itaumax)
-
-!Config  Key  = prt_level
-!Config  Desc = niveau d'impressions de débogage
-!Config  Def  = 0
-!Config  Help = Niveau d'impression pour le débogage
-!Config         (0 = minimum d'impression)
-      prt_level = 0
-      CALL getin('prt_level',prt_level)
-
-c-----------------------------------------------------------------------
-c  Parametres de controle du run:
-c-----------------------------------------------------------------------
-!Config  Key  = planet_type
-!Config  Desc = planet type ("earth", "mars", "venus", ...)
-!Config  Def  = earth
-!Config  Help = this flag sets the type of atymosphere that is considered
-      planet_type="earth"
-      CALL getin('planet_type',planet_type)
-
-!Config  Key  = calend
-!Config  Desc = type de calendrier utilise
-!Config  Def  = earth_360d
-!Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
-!Config         
-      calend = 'earth_360d'
-      CALL getin('calend', calend)
-
-!Config  Key  = dayref
-!Config  Desc = Jour de l'etat initial
-!Config  Def  = 1
-!Config  Help = Jour de l'etat initial ( = 350  si 20 Decembre ,
-!Config         par expl. ,comme ici ) ... A completer
-      dayref=1
-      CALL getin('dayref', dayref)
-
-!Config  Key  = anneeref
-!Config  Desc = Annee de l'etat initial
-!Config  Def  = 1998
-!Config  Help = Annee de l'etat  initial 
-!Config         (   avec  4  chiffres   ) ... A completer
-      anneeref = 1998
-      CALL getin('anneeref',anneeref)
-
-!Config  Key  = raz_date
-!Config  Desc = Remise a zero de la date initiale
-!Config  Def  = 0 (pas de remise a zero)
-!Config  Help = Remise a zero de la date initiale 
-!Config         0 pas de remise a zero, on garde la date du fichier restart
-!Config         1 prise en compte de la date de gcm.def avec remise a zero
-!Config         des compteurs de pas de temps
-      raz_date = 0
-      CALL getin('raz_date', raz_date)
-
-!Config  Key  = nday
-!Config  Desc = Nombre de jours d'integration
-!Config  Def  = 10
-!Config  Help = Nombre de jours d'integration
-!Config         ... On pourait aussi permettre des mois ou des annees !
-      nday = 10
-      CALL getin('nday',nday)
-
-!Config  Key  = starttime
-!Config  Desc = Heure de depart de la simulation
-!Config  Def  = 0
-!Config  Help = Heure de depart de la simulation
-!Config         en jour
-      starttime = 0
-      CALL getin('starttime',starttime)
-
-!Config  Key  = day_step
-!Config  Desc = nombre de pas par jour
-!Config  Def  = 240 
-!Config  Help = nombre de pas par jour (multiple de iperiod) (
-!Config          ici pour  dt = 1 min ) 
-       day_step = 240 
-       CALL getin('day_step',day_step)
-
-!Config  Key  = nsplit_phys
-       nsplit_phys = 1 
-       CALL getin('nsplit_phys',nsplit_phys)
-
-!Config  Key  = iperiod
-!Config  Desc = periode pour le pas Matsuno
-!Config  Def  = 5
-!Config  Help = periode pour le pas Matsuno (en pas de temps)
-       iperiod = 5
-       CALL getin('iperiod',iperiod)
-
-!Config  Key  = iapp_tracvl
-!Config  Desc = frequence du groupement des flux 
-!Config  Def  = iperiod
-!Config  Help = frequence du groupement des flux (en pas de temps) 
-       iapp_tracvl = iperiod
-       CALL getin('iapp_tracvl',iapp_tracvl)
-
-!Config  Key  = iconser
-!Config  Desc = periode de sortie des variables de controle
-!Config  Def  = 240  
-!Config  Help = periode de sortie des variables de controle
-!Config         (En pas de temps)
-       iconser = 240  
-       CALL getin('iconser', iconser)
-
-!Config  Key  = iecri
-!Config  Desc = periode d'ecriture du fichier histoire
-!Config  Def  = 1
-!Config  Help = periode d'ecriture du fichier histoire (en jour) 
-       iecri = 1
-       CALL getin('iecri',iecri)
-
-
-!Config  Key  = periodav
-!Config  Desc = periode de stockage fichier histmoy
-!Config  Def  = 1
-!Config  Help = periode de stockage fichier histmoy (en jour) 
-       periodav = 1.
-       CALL getin('periodav',periodav)
-
-!Config  Key  = output_grads_dyn
-!Config  Desc = output dynamics diagnostics in 'dyn.dat' file
-!Config  Def  = n
-!Config  Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file
-       output_grads_dyn=.false.
-       CALL getin('output_grads_dyn',output_grads_dyn)
-
-!Config  Key  = dissip_period
-!Config  Desc = periode de la dissipation 
-!Config  Def  = 0
-!Config  Help = periode de la dissipation 
-!Config  dissip_period=0 => la valeur sera calcule dans inidissip       
-!Config  dissip_period>0 => on prend cette valeur
-       dissip_period = 0
-       CALL getin('dissip_period',dissip_period)
-
-ccc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
-ccc
-
-!Config  Key  = lstardis
-!Config  Desc = choix de l'operateur de dissipation
-!Config  Def  = y
-!Config  Help = choix de l'operateur de dissipation
-!Config         'y' si on veut star et 'n' si on veut non-start !
-!Config         Moi y en a pas comprendre ! 
-       lstardis = .TRUE.
-       CALL getin('lstardis',lstardis)
-
-
-!Config  Key  = nitergdiv
-!Config  Desc = Nombre d'iteration de gradiv
-!Config  Def  = 1
-!Config  Help = nombre d'iterations de l'operateur de dissipation 
-!Config         gradiv
-       nitergdiv = 1
-       CALL getin('nitergdiv',nitergdiv)
-
-!Config  Key  = nitergrot
-!Config  Desc = nombre d'iterations de nxgradrot
-!Config  Def  = 2
-!Config  Help = nombre d'iterations de l'operateur de dissipation  
-!Config         nxgradrot
-       nitergrot = 2
-       CALL getin('nitergrot',nitergrot)
-
-
-!Config  Key  = niterh
-!Config  Desc = nombre d'iterations de divgrad
-!Config  Def  = 2
-!Config  Help = nombre d'iterations de l'operateur de dissipation
-!Config         divgrad
-       niterh = 2
-       CALL getin('niterh',niterh)
-
-
-!Config  Key  = tetagdiv
-!Config  Desc = temps de dissipation pour div
-!Config  Def  = 7200
-!Config  Help = temps de dissipation des plus petites longeur 
-!Config         d'ondes pour u,v (gradiv)
-       tetagdiv = 7200.
-       CALL getin('tetagdiv',tetagdiv)
-
-!Config  Key  = tetagrot
-!Config  Desc = temps de dissipation pour grad
-!Config  Def  = 7200
-!Config  Help = temps de dissipation des plus petites longeur 
-!Config         d'ondes pour u,v (nxgradrot)
-       tetagrot = 7200.
-       CALL getin('tetagrot',tetagrot)
-
-!Config  Key  = tetatemp 
-!Config  Desc = temps de dissipation pour h
-!Config  Def  = 7200
-!Config  Help =  temps de dissipation des plus petites longeur 
-!Config         d'ondes pour h (divgrad)   
-       tetatemp  = 7200.
-       CALL getin('tetatemp',tetatemp )
-
-! Parametres controlant la variation sur la verticale des constantes de
-! dissipation.
-! Pour le moment actifs uniquement dans la version a 39 niveaux
-! avec ok_strato=y
-
-       dissip_factz=4.
-       dissip_deltaz=10.
-       dissip_zref=30.
-       CALL getin('dissip_factz',dissip_factz )
-       CALL getin('dissip_deltaz',dissip_deltaz )
-       CALL getin('dissip_zref',dissip_zref )
-
-! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
-!                   iflag_top_bound=0 for no sponge
-!                   iflag_top_bound=1 for sponge over 4 topmost layers
-!                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
-       iflag_top_bound=1
-       CALL getin('iflag_top_bound',iflag_top_bound)
-
-! mode_top_bound : fields towards which sponge relaxation will be done:
-!                  mode_top_bound=0: no relaxation
-!                  mode_top_bound=1: u and v relax towards 0
-!                  mode_top_bound=2: u and v relax towards their zonal mean
-!                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
-       mode_top_bound=3
-       CALL getin('mode_top_bound',mode_top_bound)
-
-! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
-       tau_top_bound=1.e-5
-       CALL getin('tau_top_bound',tau_top_bound)
-
-!Config  Key  = coefdis
-!Config  Desc = coefficient pour gamdissip
-!Config  Def  = 0
-!Config  Help = coefficient pour gamdissip  
-       coefdis = 0.
-       CALL getin('coefdis',coefdis)
-
-!Config  Key  = purmats
-!Config  Desc = Schema d'integration
-!Config  Def  = n
-!Config  Help = Choix du schema d'integration temporel.
-!Config         y = pure Matsuno sinon c'est du Matsuno-leapfrog
-       purmats = .FALSE.
-       CALL getin('purmats',purmats)
-
-!Config  Key  = ok_guide
-!Config  Desc = Guidage
-!Config  Def  = n
-!Config  Help = Guidage
-       ok_guide = .FALSE.
-       CALL getin('ok_guide',ok_guide)
-
-c    ...............................................................
-
-!Config  Key  =  read_start
-!Config  Desc = Initialize model using a 'start.nc' file
-!Config  Def  = y
-!Config  Help = y: intialize dynamical fields using a 'start.nc' file
-!               n: fields are initialized by 'iniacademic' routine
-       read_start= .true.
-       CALL getin('read_start',read_start)
-
-!Config  Key  = iflag_phys
-!Config  Desc = Avec ls physique 
-!Config  Def  = 1
-!Config  Help = Permet de faire tourner le modele sans 
-!Config         physique.
-       iflag_phys = 1
-       CALL getin('iflag_phys',iflag_phys)
-
-
-!Config  Key  =  iphysiq
-!Config  Desc = Periode de la physique
-!Config  Def  = 5
-!Config  Help = Periode de la physique en pas de temps de la dynamique.
-       iphysiq = 5
-       CALL getin('iphysiq', iphysiq)
-
-!Config  Key  = ip_ebil_dyn
-!Config  Desc = PRINT level for energy conserv. diag.
-!Config  Def  = 0
-!Config  Help = PRINT level for energy conservation diag. ;
-!               les options suivantes existent :
-!Config         0 pas de print
-!Config         1 pas de print
-!Config         2 print,
-       ip_ebil_dyn = 0
-       CALL getin('ip_ebil_dyn',ip_ebil_dyn)
-!
-
-
-ccc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
-c     .........   (  modif  le 17/04/96 )   .........
-c
-      IF( etatinit ) GO TO 100
-
-!Config  Key  = clon
-!Config  Desc = centre du zoom, longitude
-!Config  Def  = 0
-!Config  Help = longitude en degres du centre 
-!Config         du zoom
-       clonn = 0.
-       CALL getin('clon',clonn)
-
-!Config  Key  = clat
-!Config  Desc = centre du zoom, latitude
-!Config  Def  = 0
-!Config  Help = latitude en degres du centre du zoom
-!Config         
-       clatt = 0.
-       CALL getin('clat',clatt)
-
-c
-c
-      IF( ABS(clat - clatt).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',
-     &    ' est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-
-!Config  Key  = grossismx 
-!Config  Desc = zoom en longitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la longitude
-       grossismxx = 1.0
-       CALL getin('grossismx',grossismxx)
-
-
-      IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ',
-     &  'run.def est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-
-!Config  Key  = grossismy
-!Config  Desc = zoom en latitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la latitude
-       grossismyy = 1.0
-       CALL getin('grossismy',grossismyy)
-
-      IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ',
-     & 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-      ENDIF
-      
-      IF( grossismx.LT.1. )  THEN
-        write(lunout,*)
-     &       'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-         STOP
-      ELSE
-         alphax = 1. - 1./ grossismx
-      ENDIF
-
-
-      IF( grossismy.LT.1. )  THEN
-        write(lunout,*)
-     &       'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
-         STOP
-      ELSE
-         alphay = 1. - 1./ grossismy
-      ENDIF
-
-      write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
-c
-c    alphax et alphay sont les anciennes formulat. des grossissements
-c
-c
-
-!Config  Key  = fxyhypb
-!Config  Desc = Fonction  hyperbolique
-!Config  Def  = y
-!Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
-!Config         sinon  sinusoidale
-       fxyhypbb = .TRUE.
-       CALL getin('fxyhypb',fxyhypbb)
-
-      IF( .NOT.fxyhypb )  THEN
-         IF( fxyhypbb )     THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** fxyhypb lu sur le fichier start est ',
-     *       'F alors  qu il est  T  sur  run.def  ***'
-              STOP
-         ENDIF
-      ELSE
-         IF( .NOT.fxyhypbb )   THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' ***  fxyhypb lu sur le fichier start est ',
-     *        'T alors  qu il est  F  sur  run.def  ****  '
-              STOP
-         ENDIF
-      ENDIF
-c
-!Config  Key  = dzoomx
-!Config  Desc = extension en longitude
-!Config  Def  = 0
-!Config  Help = extension en longitude  de la zone du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomxx = 0.0
-       CALL getin('dzoomx',dzoomxx)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ',
-     *  'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!Config  Key  = dzoomy
-!Config  Desc = extension en latitude
-!Config  Def  = 0
-!Config  Help = extension en latitude de la zone  du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomyy = 0.0
-       CALL getin('dzoomy',dzoomyy)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ',
-     * 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-      
-!Config  Key  = taux
-!Config  Desc = raideur du zoom en  X
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  X
-       tauxx = 3.0
-       CALL getin('taux',tauxx)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de taux passee par ',
-     * 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-!Config  Key  = tauyy
-!Config  Desc = raideur du zoom en  Y
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  Y
-       tauyy = 3.0
-       CALL getin('tauy',tauyy)
-
-      IF( fxyhypb )  THEN
-       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
-        write(lunout,*)'conf_gcm: La valeur de tauy passee par ',
-     * 'run.def est differente de celle lue sur le fichier  start '
-        STOP
-       ENDIF
-      ENDIF
-
-cc
-      IF( .NOT.fxyhypb  )  THEN
-
-!Config  Key  = ysinus
-!Config  IF   = !fxyhypb
-!Config  Desc = Fonction en Sinus
-!Config  Def  = y
-!Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
-!Config         sinon y = latit.
-       ysinuss = .TRUE.
-       CALL getin('ysinus',ysinuss)
-
-        IF( .NOT.ysinus )  THEN
-          IF( ysinuss )     THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** ysinus lu sur le fichier start est F',
-     *       ' alors  qu il est  T  sur  run.def  ***'
-            STOP
-          ENDIF
-        ELSE
-          IF( .NOT.ysinuss )   THEN
-            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
-            write(lunout,*)' *** ysinus lu sur le fichier start est T',
-     *        ' alors  qu il est  F  sur  run.def  ****  '
-              STOP
-          ENDIF
-        ENDIF
-      ENDIF ! of IF( .NOT.fxyhypb  )
-c
-!Config  Key  = offline
-!Config  Desc = Nouvelle eau liquide
-!Config  Def  = n
-!Config  Help = Permet de mettre en route la
-!Config         nouvelle parametrisation de l'eau liquide !
-       offline = .FALSE.
-       CALL getin('offline',offline)
-       IF (offline .AND. adjust) THEN
-          WRITE(lunout,*) 
-     &         'WARNING : option offline does not work with adjust=y :'
-          WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ', 
-     &         'and fluxstokev.nc will not be created'
-          WRITE(lunout,*) 
-     &         'only the file phystoke.nc will still be created ' 
-       END IF
-       
-!Config  Key  = type_trac
-!Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
-!Config  Def  = lmdz
-!Config  Help = 
-!Config         'lmdz' = pas de couplage, pur LMDZ
-!Config         'inca' = model de chime INCA 
-!Config         'repr' = model de chime REPROBUS
-      type_trac = 'lmdz'
-      CALL getin('type_trac',type_trac)
-
-!Config  Key  = config_inca
-!Config  Desc = Choix de configuration de INCA
-!Config  Def  = none
-!Config  Help = Choix de configuration de INCA :
-!Config         'none' = sans INCA
-!Config         'chem' = INCA avec calcul de chemie
-!Config         'aero' = INCA avec calcul des aerosols 
-      config_inca = 'none'
-      CALL getin('config_inca',config_inca)
-
-!Config  Key  = ok_dynzon 
-!Config  Desc = calcul et sortie des transports 
-!Config  Def  = n 
-!Config  Help = Permet de mettre en route le calcul des transports 
-!Config          
-      ok_dynzon = .FALSE. 
-      CALL getin('ok_dynzon',ok_dynzon) 
-
-!Config  Key  = ok_dyn_ins
-!Config  Desc = sorties instantanees dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ins = .FALSE. 
-      CALL getin('ok_dyn_ins',ok_dyn_ins) 
-
-!Config  Key  = ok_dyn_ave
-!Config  Desc = sorties moyennes dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ave = .FALSE. 
-      CALL getin('ok_dyn_ave',ok_dyn_ave) 
-
-      write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres du gcm: '
-      write(lunout,*)' planet_type = ', planet_type
-      write(lunout,*)' calend = ', calend
-      write(lunout,*)' dayref = ', dayref
-      write(lunout,*)' anneeref = ', anneeref
-      write(lunout,*)' nday = ', nday
-      write(lunout,*)' day_step = ', day_step
-      write(lunout,*)' iperiod = ', iperiod
-      write(lunout,*)' nsplit_phys = ', nsplit_phys
-      write(lunout,*)' iconser = ', iconser
-      write(lunout,*)' iecri = ', iecri
-      write(lunout,*)' periodav = ', periodav 
-      write(lunout,*)' output_grads_dyn = ', output_grads_dyn
-      write(lunout,*)' dissip_period = ', dissip_period
-      write(lunout,*)' lstardis = ', lstardis
-      write(lunout,*)' nitergdiv = ', nitergdiv
-      write(lunout,*)' nitergrot = ', nitergrot
-      write(lunout,*)' niterh = ', niterh
-      write(lunout,*)' tetagdiv = ', tetagdiv
-      write(lunout,*)' tetagrot = ', tetagrot
-      write(lunout,*)' tetatemp = ', tetatemp
-      write(lunout,*)' coefdis = ', coefdis
-      write(lunout,*)' purmats = ', purmats
-      write(lunout,*)' read_start = ', read_start
-      write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' iphysiq = ', iphysiq
-      write(lunout,*)' clonn = ', clonn 
-      write(lunout,*)' clatt = ', clatt
-      write(lunout,*)' grossismx = ', grossismx
-      write(lunout,*)' grossismy = ', grossismy
-      write(lunout,*)' fxyhypbb = ', fxyhypbb
-      write(lunout,*)' dzoomxx = ', dzoomxx
-      write(lunout,*)' dzoomy = ', dzoomyy
-      write(lunout,*)' tauxx = ', tauxx
-      write(lunout,*)' tauyy = ', tauyy
-      write(lunout,*)' offline = ', offline
-      write(lunout,*)' type_trac = ', type_trac
-      write(lunout,*)' config_inca = ', config_inca
-      write(lunout,*)' ok_dynzon = ', ok_dynzon 
-      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
-      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-
-      RETURN
-c   ...............................................
-c
-100   CONTINUE
-!Config  Key  = clon
-!Config  Desc = centre du zoom, longitude
-!Config  Def  = 0
-!Config  Help = longitude en degres du centre 
-!Config         du zoom
-       clon = 0.
-       CALL getin('clon',clon)
-
-!Config  Key  = clat
-!Config  Desc = centre du zoom, latitude
-!Config  Def  = 0
-!Config  Help = latitude en degres du centre du zoom
-!Config         
-       clat = 0.
-       CALL getin('clat',clat)
-
-!Config  Key  = grossismx 
-!Config  Desc = zoom en longitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la longitude
-       grossismx = 1.0
-       CALL getin('grossismx',grossismx)
-
-!Config  Key  = grossismy
-!Config  Desc = zoom en latitude
-!Config  Def  = 1.0
-!Config  Help = facteur de grossissement du zoom,
-!Config         selon la latitude
-       grossismy = 1.0
-       CALL getin('grossismy',grossismy)
-
-      IF( grossismx.LT.1. )  THEN
-        write(lunout,*)
-     &   'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
-         STOP
-      ELSE
-         alphax = 1. - 1./ grossismx
-      ENDIF
-
-
-      IF( grossismy.LT.1. )  THEN
-        write(lunout,*)
-     &  'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
-         STOP
-      ELSE
-         alphay = 1. - 1./ grossismy
-      ENDIF
-
-      write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
-c
-c    alphax et alphay sont les anciennes formulat. des grossissements
-c
-c
-
-!Config  Key  = fxyhypb
-!Config  Desc = Fonction  hyperbolique
-!Config  Def  = y
-!Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
-!Config         sinon  sinusoidale
-       fxyhypb = .TRUE.
-       CALL getin('fxyhypb',fxyhypb)
-
-!Config  Key  = dzoomx
-!Config  Desc = extension en longitude
-!Config  Def  = 0
-!Config  Help = extension en longitude  de la zone du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomx = 0.0
-       CALL getin('dzoomx',dzoomx)
-
-!Config  Key  = dzoomy
-!Config  Desc = extension en latitude
-!Config  Def  = 0
-!Config  Help = extension en latitude de la zone  du zoom  
-!Config         ( fraction de la zone totale)
-       dzoomy = 0.0
-       CALL getin('dzoomy',dzoomy)
-
-!Config  Key  = taux
-!Config  Desc = raideur du zoom en  X
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  X
-       taux = 3.0
-       CALL getin('taux',taux)
-
-!Config  Key  = tauy
-!Config  Desc = raideur du zoom en  Y
-!Config  Def  = 3
-!Config  Help = raideur du zoom en  Y
-       tauy = 3.0
-       CALL getin('tauy',tauy)
-
-!Config  Key  = ysinus
-!Config  IF   = !fxyhypb
-!Config  Desc = Fonction en Sinus
-!Config  Def  = y
-!Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
-!Config         sinon y = latit.
-       ysinus = .TRUE.
-       CALL getin('ysinus',ysinus)
-c
-!Config  Key  = offline
-!Config  Desc = Nouvelle eau liquide
-!Config  Def  = n
-!Config  Help = Permet de mettre en route la
-!Config         nouvelle parametrisation de l'eau liquide !
-       offline = .FALSE.
-       CALL getin('offline',offline)
-       IF (offline .AND. adjust) THEN
-          WRITE(lunout,*) 
-     &         'WARNING : option offline does not work with adjust=y :'
-          WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ', 
-     &         'and fluxstokev.nc will not be created'
-          WRITE(lunout,*) 
-     &         'only the file phystoke.nc will still be created ' 
-       END IF
-
-!Config  Key  = type_trac
-!Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
-!Config  Def  = lmdz
-!Config  Help = 
-!Config         'lmdz' = pas de couplage, pur LMDZ
-!Config         'inca' = model de chime INCA 
-!Config         'repr' = model de chime REPROBUS
-      type_trac = 'lmdz'
-      CALL getin('type_trac',type_trac)
-
-!Config  Key  = config_inca
-!Config  Desc = Choix de configuration de INCA
-!Config  Def  = none
-!Config  Help = Choix de configuration de INCA :
-!Config         'none' = sans INCA
-!Config         'chem' = INCA avec calcul de chemie
-!Config         'aero' = INCA avec calcul des aerosols 
-      config_inca = 'none'
-      CALL getin('config_inca',config_inca)
-
-!Config  Key  = ok_dynzon 
-!Config  Desc = sortie des transports zonaux dans la dynamique
-!Config  Def  = n 
-!Config  Help = Permet de mettre en route le calcul des transports 
-!Config          
-      ok_dynzon = .FALSE. 
-      CALL getin('ok_dynzon',ok_dynzon) 
-
-!Config  Key  = ok_dyn_ins
-!Config  Desc = sorties instantanees dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ins = .FALSE. 
-      CALL getin('ok_dyn_ins',ok_dyn_ins) 
-
-!Config  Key  = ok_dyn_ave
-!Config  Desc = sorties moyennes dans la dynamique
-!Config  Def  = n 
-!Config  Help = 
-!Config          
-      ok_dyn_ave = .FALSE. 
-      CALL getin('ok_dyn_ave',ok_dyn_ave) 
-
-!Config  Key  = use_filtre_fft
-!Config  Desc = flag d'activation des FFT pour le filtre
-!Config  Def  = false
-!Config  Help = permet d'activer l'utilisation des FFT pour effectuer
-!Config         le filtrage aux poles. 
-      use_filtre_fft=.FALSE.
-      CALL getin('use_filtre_fft',use_filtre_fft)
-
-      IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
-        write(lunout,*)'WARNING !!! '
-        write(lunout,*)"Le zoom en longitude est incompatible",
-     &                 " avec l'utilisation du filtre FFT ",
-     &                 "---> FFT filter not active"
-       use_filtre_fft=.FALSE.
-      ENDIF
-      
- 
-      
-!Config  Key  = use_mpi_alloc
-!Config  Desc = Utilise un buffer MPI en mï¿½moire globale
-!Config  Def  = false
-!Config  Help = permet d'activer l'utilisation d'un buffer MPI
-!Config         en mï¿½moire globale a l'aide de la fonction MPI_ALLOC.
-!Config         Cela peut amï¿½liorer la bande passante des transferts MPI
-!Config         d'un facteur 2  
-      use_mpi_alloc=.FALSE.
-      CALL getin('use_mpi_alloc',use_mpi_alloc)
-
-!Config key = ok_strato
-!Config  Desc = activation de la version strato
-!Config  Def  = .FALSE.
-!Config  Help = active la version stratosphérique de LMDZ de F. Lott
-
-      ok_strato=.FALSE.
-      CALL getin('ok_strato',ok_strato)
-
-      vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
-      CALL getin('vert_prof_dissip', vert_prof_dissip)
-      call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1,
-     $     "bad value for vert_prof_dissip")
-
-!Config  Key  = ok_gradsfile
-!Config  Desc = activation des sorties grads du guidage
-!Config  Def  = n
-!Config  Help = active les sorties grads du guidage
-
-       ok_gradsfile = .FALSE.
-       CALL getin('ok_gradsfile',ok_gradsfile)
-
-!Config  Key  = ok_limit
-!Config  Desc = creation des fichiers limit dans create_etat0_limit
-!Config  Def  = y
-!Config  Help = production du fichier limit.nc requise
-
-       ok_limit = .TRUE.
-       CALL getin('ok_limit',ok_limit)
-
-!Config  Key  = ok_etat0
-!Config  Desc = creation des fichiers etat0 dans create_etat0_limit
-!Config  Def  = y
-!Config  Help = production des fichiers start.nc, startphy.nc requise
-
-      ok_etat0 = .TRUE.
-      CALL getin('ok_etat0',ok_etat0)
-
-      write(lunout,*)' #########################################'
-      write(lunout,*)' Configuration des parametres de cel0'
-     &             //'_limit: '
-      write(lunout,*)' planet_type = ', planet_type
-      write(lunout,*)' calend = ', calend
-      write(lunout,*)' dayref = ', dayref
-      write(lunout,*)' anneeref = ', anneeref
-      write(lunout,*)' nday = ', nday
-      write(lunout,*)' day_step = ', day_step
-      write(lunout,*)' iperiod = ', iperiod
-      write(lunout,*)' iconser = ', iconser
-      write(lunout,*)' iecri = ', iecri
-      write(lunout,*)' periodav = ', periodav 
-      write(lunout,*)' output_grads_dyn = ', output_grads_dyn
-      write(lunout,*)' dissip_period = ', dissip_period
-      write(lunout,*)' lstardis = ', lstardis
-      write(lunout,*)' nitergdiv = ', nitergdiv
-      write(lunout,*)' nitergrot = ', nitergrot
-      write(lunout,*)' niterh = ', niterh
-      write(lunout,*)' tetagdiv = ', tetagdiv
-      write(lunout,*)' tetagrot = ', tetagrot
-      write(lunout,*)' tetatemp = ', tetatemp
-      write(lunout,*)' coefdis = ', coefdis
-      write(lunout,*)' purmats = ', purmats
-      write(lunout,*)' read_start = ', read_start
-      write(lunout,*)' iflag_phys = ', iflag_phys
-      write(lunout,*)' iphysiq = ', iphysiq
-      write(lunout,*)' clon = ', clon
-      write(lunout,*)' clat = ', clat
-      write(lunout,*)' grossismx = ', grossismx
-      write(lunout,*)' grossismy = ', grossismy
-      write(lunout,*)' fxyhypb = ', fxyhypb
-      write(lunout,*)' dzoomx = ', dzoomx
-      write(lunout,*)' dzoomy = ', dzoomy
-      write(lunout,*)' taux = ', taux
-      write(lunout,*)' tauy = ', tauy
-      write(lunout,*)' offline = ', offline
-      write(lunout,*)' type_trac = ', type_trac
-      write(lunout,*)' config_inca = ', config_inca
-      write(lunout,*)' ok_dynzon = ', ok_dynzon
-      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
-      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-      write(lunout,*)' use_filtre_fft = ', use_filtre_fft
-      write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
-      write(lunout,*)' ok_strato = ', ok_strato
-      write(lunout,*)' ok_gradsfile = ', ok_gradsfile
-      write(lunout,*)' ok_limit = ', ok_limit
-      write(lunout,*)' ok_etat0 = ', ok_etat0
-c
-      RETURN
-      END
Index: LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F90	(revision 2160)
@@ -0,0 +1,976 @@
+
+! $Id$
+
+SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
+
+  USE control_mod
+#ifdef CPP_IOIPSL
+  use IOIPSL
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  use ioipsl_getincom
+#endif
+  use misc_mod
+  use mod_filtre_fft, ONLY : use_filtre_fft
+  use mod_hallo, ONLY : use_mpi_alloc
+  USE infotrac, ONLY : type_trac
+  use assert_m, only: assert
+
+  IMPLICIT NONE
+  !-----------------------------------------------------------------------
+  !     Auteurs :   L. Fairhead , P. Le Van  .
+
+  !     Arguments :
+
+  !     tapedef   :
+  !     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para- 
+  !     -metres  du zoom  avec  celles lues sur le fichier start .
+  !      clesphy0 :  sortie  .
+
+  LOGICAL etatinit
+  INTEGER tapedef
+
+  INTEGER        longcles
+  PARAMETER(     longcles = 20 )
+  REAL clesphy0( longcles )
+
+  !   Declarations :
+  !   --------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "logic.h"
+  include "serre.h"
+  include "comdissnew.h"
+  include "temps.h"
+  include "comconst.h"
+
+  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+  ! include "clesphys.h"
+  include "iniprint.h"
+
+  !   local:
+  !   ------
+
+  CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
+  REAL clonn,clatt,grossismxx,grossismyy
+  REAL dzoomxx,dzoomyy, tauxx,tauyy
+  LOGICAL  fxyhypbb, ysinuss
+  INTEGER i
+  character(len=*),parameter :: modname="conf_gcm"
+  character (len=80) :: abort_message
+#ifdef CPP_OMP
+  integer,external :: OMP_GET_NUM_THREADS
+#endif
+
+  !  -------------------------------------------------------------------
+
+  !       .........     Version  du 29/04/97       ..........
+
+  !   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
+  !      tetatemp   ajoutes  pour la dissipation   .
+
+  !   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** 
+
+  !  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
+  !    Sinon , choix de fxynew  , a derivee sinusoidale  ..
+
+  !   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
+  !         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
+  !                de limit.dat ( dic)                        ...........
+  !           Sinon  etatinit = . FALSE .
+
+  !   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
+  !    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
+  !   celles passees  par run.def ,  au debut du gcm, apres l'appel a 
+  !    lectba .  
+  !   Ces parmetres definissant entre autres la grille et doivent etre
+  !   pareils et coherents , sinon il y aura  divergence du gcm .
+
+  !-----------------------------------------------------------------------
+  !   initialisations:
+  !   ----------------
+
+  !Config  Key  = lunout
+  !Config  Desc = unite de fichier pour les impressions
+  !Config  Def  = 6
+  !Config  Help = unite de fichier pour les impressions 
+  !Config         (defaut sortie standard = 6)
+  lunout=6
+  CALL getin('lunout', lunout)
+  IF (lunout /= 5 .and. lunout /= 6) THEN
+     OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write',  &
+          STATUS='unknown',FORM='formatted')
+  ENDIF
+
+  adjust=.false.
+  call getin('adjust',adjust)
+
+#ifdef CPP_OMP
+  ! adjust=y not implemented in case of OpenMP threads...
+  !$OMP PARALLEL
+  if ((OMP_GET_NUM_THREADS()>1).and.adjust) then
+     write(lunout,*)'conf_gcm: Error, adjust should be set to n' &
+          ,' when running with OpenMP threads'
+     abort_message = 'Wrong value for adjust'
+     call abort_gcm(modname,abort_message,1)
+  endif
+  !$OMP END PARALLEL         
+#endif
+
+  itaumax=0
+  call getin('itaumax',itaumax);
+  if (itaumax<=0) itaumax=HUGE(itaumax)
+
+  !Config  Key  = prt_level
+  !Config  Desc = niveau d'impressions de débogage
+  !Config  Def  = 0
+  !Config  Help = Niveau d'impression pour le débogage
+  !Config         (0 = minimum d'impression)
+  prt_level = 0
+  CALL getin('prt_level',prt_level)
+
+  !-----------------------------------------------------------------------
+  !  Parametres de controle du run:
+  !-----------------------------------------------------------------------
+  !Config  Key  = planet_type
+  !Config  Desc = planet type ("earth", "mars", "venus", ...)
+  !Config  Def  = earth
+  !Config  Help = this flag sets the type of atymosphere that is considered
+  planet_type="earth"
+  CALL getin('planet_type',planet_type)
+
+  !Config  Key  = calend
+  !Config  Desc = type de calendrier utilise
+  !Config  Def  = earth_360d
+  !Config  Help = valeur possible: earth_360d, earth_365d, earth_366d
+  !Config         
+  calend = 'earth_360d'
+  CALL getin('calend', calend)
+
+  !Config  Key  = dayref
+  !Config  Desc = Jour de l'etat initial
+  !Config  Def  = 1
+  !Config  Help = Jour de l'etat initial ( = 350  si 20 Decembre ,
+  !Config         par expl. ,comme ici ) ... A completer
+  dayref=1
+  CALL getin('dayref', dayref)
+
+  !Config  Key  = anneeref
+  !Config  Desc = Annee de l'etat initial
+  !Config  Def  = 1998
+  !Config  Help = Annee de l'etat  initial 
+  !Config         (   avec  4  chiffres   ) ... A completer
+  anneeref = 1998
+  CALL getin('anneeref',anneeref)
+
+  !Config  Key  = raz_date
+  !Config  Desc = Remise a zero de la date initiale
+  !Config  Def  = 0 (pas de remise a zero)
+  !Config  Help = Remise a zero de la date initiale 
+  !Config         0 pas de remise a zero, on garde la date du fichier restart
+  !Config         1 prise en compte de la date de gcm.def avec remise a zero
+  !Config         des compteurs de pas de temps
+  raz_date = 0
+  CALL getin('raz_date', raz_date)
+
+  !Config  Key  = resetvarc
+  !Config  Desc = Reinit des variables de controle
+  !Config  Def  = n
+  !Config  Help = Reinit des variables de controle
+  resetvarc = .false.
+  CALL getin('resetvarc',resetvarc)
+
+  !Config  Key  = nday
+  !Config  Desc = Nombre de jours d'integration
+  !Config  Def  = 10
+  !Config  Help = Nombre de jours d'integration
+  !Config         ... On pourait aussi permettre des mois ou des annees !
+  nday = 10
+  CALL getin('nday',nday)
+
+  !Config  Key  = starttime
+  !Config  Desc = Heure de depart de la simulation
+  !Config  Def  = 0
+  !Config  Help = Heure de depart de la simulation
+  !Config         en jour
+  starttime = 0
+  CALL getin('starttime',starttime)
+
+  !Config  Key  = day_step
+  !Config  Desc = nombre de pas par jour
+  !Config  Def  = 240 
+  !Config  Help = nombre de pas par jour (multiple de iperiod) (
+  !Config          ici pour  dt = 1 min ) 
+  day_step = 240 
+  CALL getin('day_step',day_step)
+
+  !Config  Key  = nsplit_phys
+  nsplit_phys = 1 
+  CALL getin('nsplit_phys',nsplit_phys)
+
+  !Config  Key  = iperiod
+  !Config  Desc = periode pour le pas Matsuno
+  !Config  Def  = 5
+  !Config  Help = periode pour le pas Matsuno (en pas de temps)
+  iperiod = 5
+  CALL getin('iperiod',iperiod)
+
+  !Config  Key  = iapp_tracvl
+  !Config  Desc = frequence du groupement des flux 
+  !Config  Def  = iperiod
+  !Config  Help = frequence du groupement des flux (en pas de temps) 
+  iapp_tracvl = iperiod
+  CALL getin('iapp_tracvl',iapp_tracvl)
+
+  !Config  Key  = iconser
+  !Config  Desc = periode de sortie des variables de controle
+  !Config  Def  = 240  
+  !Config  Help = periode de sortie des variables de controle
+  !Config         (En pas de temps)
+  iconser = 240  
+  CALL getin('iconser', iconser)
+
+  !Config  Key  = iecri
+  !Config  Desc = periode d'ecriture du fichier histoire
+  !Config  Def  = 1
+  !Config  Help = periode d'ecriture du fichier histoire (en jour) 
+  iecri = 1
+  CALL getin('iecri',iecri)
+
+  !Config  Key  = periodav
+  !Config  Desc = periode de stockage fichier histmoy
+  !Config  Def  = 1
+  !Config  Help = periode de stockage fichier histmoy (en jour) 
+  periodav = 1.
+  CALL getin('periodav',periodav)
+
+  !Config  Key  = output_grads_dyn
+  !Config  Desc = output dynamics diagnostics in 'dyn.dat' file
+  !Config  Def  = n
+  !Config  Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file
+  output_grads_dyn=.false.
+  CALL getin('output_grads_dyn',output_grads_dyn)
+
+  !Config  Key  = dissip_period
+  !Config  Desc = periode de la dissipation 
+  !Config  Def  = 0
+  !Config  Help = periode de la dissipation 
+  !Config  dissip_period=0 => la valeur sera calcule dans inidissip       
+  !Config  dissip_period>0 => on prend cette valeur
+  dissip_period = 0
+  CALL getin('dissip_period',dissip_period)
+
+  !cc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
+  !cc
+
+  !Config  Key  = lstardis
+  !Config  Desc = choix de l'operateur de dissipation
+  !Config  Def  = y
+  !Config  Help = choix de l'operateur de dissipation
+  !Config         'y' si on veut star et 'n' si on veut non-start !
+  !Config         Moi y en a pas comprendre ! 
+  lstardis = .TRUE.
+  CALL getin('lstardis',lstardis)
+
+  !Config  Key  = nitergdiv
+  !Config  Desc = Nombre d'iteration de gradiv
+  !Config  Def  = 1
+  !Config  Help = nombre d'iterations de l'operateur de dissipation 
+  !Config         gradiv
+  nitergdiv = 1
+  CALL getin('nitergdiv',nitergdiv)
+
+  !Config  Key  = nitergrot
+  !Config  Desc = nombre d'iterations de nxgradrot
+  !Config  Def  = 2
+  !Config  Help = nombre d'iterations de l'operateur de dissipation  
+  !Config         nxgradrot
+  nitergrot = 2
+  CALL getin('nitergrot',nitergrot)
+
+  !Config  Key  = niterh
+  !Config  Desc = nombre d'iterations de divgrad
+  !Config  Def  = 2
+  !Config  Help = nombre d'iterations de l'operateur de dissipation
+  !Config         divgrad
+  niterh = 2
+  CALL getin('niterh',niterh)
+
+  !Config  Key  = tetagdiv
+  !Config  Desc = temps de dissipation pour div
+  !Config  Def  = 7200
+  !Config  Help = temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour u,v (gradiv)
+  tetagdiv = 7200.
+  CALL getin('tetagdiv',tetagdiv)
+
+  !Config  Key  = tetagrot
+  !Config  Desc = temps de dissipation pour grad
+  !Config  Def  = 7200
+  !Config  Help = temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour u,v (nxgradrot)
+  tetagrot = 7200.
+  CALL getin('tetagrot',tetagrot)
+
+  !Config  Key  = tetatemp 
+  !Config  Desc = temps de dissipation pour h
+  !Config  Def  = 7200
+  !Config  Help =  temps de dissipation des plus petites longeur 
+  !Config         d'ondes pour h (divgrad)   
+  tetatemp  = 7200.
+  CALL getin('tetatemp',tetatemp )
+
+  ! Parametres controlant la variation sur la verticale des constantes de
+  ! dissipation.
+  ! Pour le moment actifs uniquement dans la version a 39 niveaux
+  ! avec ok_strato=y
+
+  dissip_factz=4.
+  dissip_deltaz=10.
+  dissip_zref=30.
+  CALL getin('dissip_factz',dissip_factz )
+  CALL getin('dissip_deltaz',dissip_deltaz )
+  CALL getin('dissip_zref',dissip_zref )
+
+  ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
+  !                   iflag_top_bound=0 for no sponge
+  !                   iflag_top_bound=1 for sponge over 4 topmost layers
+  !                   iflag_top_bound=2 for sponge from top to ~1% of top layer pressure
+  iflag_top_bound=1
+  CALL getin('iflag_top_bound',iflag_top_bound)
+
+  ! mode_top_bound : fields towards which sponge relaxation will be done:
+  !                  mode_top_bound=0: no relaxation
+  !                  mode_top_bound=1: u and v relax towards 0
+  !                  mode_top_bound=2: u and v relax towards their zonal mean
+  !                  mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean
+  mode_top_bound=3
+  CALL getin('mode_top_bound',mode_top_bound)
+
+  ! top_bound sponge : inverse of charactericstic relaxation time scale for sponge
+  tau_top_bound=1.e-5
+  CALL getin('tau_top_bound',tau_top_bound)
+
+  !Config  Key  = coefdis
+  !Config  Desc = coefficient pour gamdissip
+  !Config  Def  = 0
+  !Config  Help = coefficient pour gamdissip  
+  coefdis = 0.
+  CALL getin('coefdis',coefdis)
+
+  !Config  Key  = purmats
+  !Config  Desc = Schema d'integration
+  !Config  Def  = n
+  !Config  Help = Choix du schema d'integration temporel.
+  !Config         y = pure Matsuno sinon c'est du Matsuno-leapfrog
+  purmats = .FALSE.
+  CALL getin('purmats',purmats)
+
+  !Config  Key  = ok_guide
+  !Config  Desc = Guidage
+  !Config  Def  = n
+  !Config  Help = Guidage
+  ok_guide = .FALSE.
+  CALL getin('ok_guide',ok_guide)
+
+  if (ok_guide .and. adjust) call abort_gcm("conf_gcm", &
+       "adjust does not work with ok_guide", 1)
+
+  !Config  Key  =  read_start
+  !Config  Desc = Initialize model using a 'start.nc' file
+  !Config  Def  = y
+  !Config  Help = y: intialize dynamical fields using a 'start.nc' file
+  !               n: fields are initialized by 'iniacademic' routine
+  read_start= .true.
+  CALL getin('read_start',read_start)
+
+  !Config  Key  = iflag_phys
+  !Config  Desc = Avec ls physique 
+  !Config  Def  = 1
+  !Config  Help = Permet de faire tourner le modele sans 
+  !Config         physique.
+  iflag_phys = 1
+  CALL getin('iflag_phys',iflag_phys)
+
+  !Config  Key  =  iphysiq
+  !Config  Desc = Periode de la physique
+  !Config  Def  = 5
+  !Config  Help = Periode de la physique en pas de temps de la dynamique.
+  iphysiq = 5
+  CALL getin('iphysiq', iphysiq)
+
+  !Config  Key  = ip_ebil_dyn
+  !Config  Desc = PRINT level for energy conserv. diag.
+  !Config  Def  = 0
+  !Config  Help = PRINT level for energy conservation diag. ;
+  !               les options suivantes existent :
+  !Config         0 pas de print
+  !Config         1 pas de print
+  !Config         2 print,
+  ip_ebil_dyn = 0
+  CALL getin('ip_ebil_dyn',ip_ebil_dyn)
+
+  !cc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
+  !     .........   (  modif  le 17/04/96 )   .........
+
+  test_etatinit: IF (.not. etatinit) then
+     !Config  Key  = clon
+     !Config  Desc = centre du zoom, longitude
+     !Config  Def  = 0
+     !Config  Help = longitude en degres du centre 
+     !Config         du zoom
+     clonn = 0.
+     CALL getin('clon',clonn)
+
+     !Config  Key  = clat
+     !Config  Desc = centre du zoom, latitude
+     !Config  Def  = 0
+     !Config  Help = latitude en degres du centre du zoom
+     !Config         
+     clatt = 0.
+     CALL getin('clat',clatt)
+
+     IF( ABS(clat - clatt).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &
+             ' est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     !Config  Key  = grossismx 
+     !Config  Desc = zoom en longitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la longitude
+     grossismxx = 1.0
+     CALL getin('grossismx',grossismxx)
+
+     IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &
+             'run.def est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     !Config  Key  = grossismy
+     !Config  Desc = zoom en latitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la latitude
+     grossismyy = 1.0
+     CALL getin('grossismy',grossismyy)
+
+     IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
+        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &
+             'run.def est differente de celle lue sur le fichier  start '
+        STOP
+     ENDIF
+
+     IF( grossismx.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
+        STOP
+     ELSE
+        alphax = 1. - 1./ grossismx
+     ENDIF
+
+     IF( grossismy.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
+        STOP
+     ELSE
+        alphay = 1. - 1./ grossismy
+     ENDIF
+
+     write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
+
+     !    alphax et alphay sont les anciennes formulat. des grossissements
+
+     !Config  Key  = fxyhypb
+     !Config  Desc = Fonction  hyperbolique
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
+     !Config         sinon  sinusoidale
+     fxyhypbb = .TRUE.
+     CALL getin('fxyhypb',fxyhypbb)
+
+     IF( .NOT.fxyhypb )  THEN
+        IF( fxyhypbb )     THEN
+           write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+           write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &
+                'F alors  qu il est  T  sur  run.def  ***'
+           STOP
+        ENDIF
+     ELSE
+        IF( .NOT.fxyhypbb )   THEN
+           write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+           write(lunout,*)' ***  fxyhypb lu sur le fichier start est ', &
+                'T alors  qu il est  F  sur  run.def  ****  '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = dzoomx
+     !Config  Desc = extension en longitude
+     !Config  Def  = 0
+     !Config  Help = extension en longitude  de la zone du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomxx = 0.0
+     CALL getin('dzoomx',dzoomxx)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = dzoomy
+     !Config  Desc = extension en latitude
+     !Config  Def  = 0
+     !Config  Help = extension en latitude de la zone  du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomyy = 0.0
+     CALL getin('dzoomy',dzoomyy)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = taux
+     !Config  Desc = raideur du zoom en  X
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  X
+     tauxx = 3.0
+     CALL getin('taux',tauxx)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(taux - tauxx).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de taux passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !Config  Key  = tauyy
+     !Config  Desc = raideur du zoom en  Y
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  Y
+     tauyy = 3.0
+     CALL getin('tauy',tauyy)
+
+     IF( fxyhypb )  THEN
+        IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
+           write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &
+                'run.def est differente de celle lue sur le fichier  start '
+           STOP
+        ENDIF
+     ENDIF
+
+     !c
+     IF( .NOT.fxyhypb  )  THEN
+
+        !Config  Key  = ysinus
+        !Config  IF   = !fxyhypb
+        !Config  Desc = Fonction en Sinus
+        !Config  Def  = y
+        !Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
+        !Config         sinon y = latit.
+        ysinuss = .TRUE.
+        CALL getin('ysinus',ysinuss)
+
+        IF( .NOT.ysinus )  THEN
+           IF( ysinuss )     THEN
+              write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+              write(lunout,*)' *** ysinus lu sur le fichier start est F', &
+                   ' alors  qu il est  T  sur  run.def  ***'
+              STOP
+           ENDIF
+        ELSE
+           IF( .NOT.ysinuss )   THEN
+              write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
+              write(lunout,*)' *** ysinus lu sur le fichier start est T', &
+                   ' alors  qu il est  F  sur  run.def  ****  '
+              STOP
+           ENDIF
+        ENDIF
+     ENDIF ! of IF( .NOT.fxyhypb  )
+
+     !Config  Key  = offline
+     !Config  Desc = Nouvelle eau liquide
+     !Config  Def  = n
+     !Config  Help = Permet de mettre en route la
+     !Config         nouvelle parametrisation de l'eau liquide !
+     offline = .FALSE.
+     CALL getin('offline',offline)
+     IF (offline .AND. adjust) THEN
+        WRITE(lunout,*)  &
+             'WARNING : option offline does not work with adjust=y :'
+        WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ',  &
+             'and fluxstokev.nc will not be created'
+        WRITE(lunout,*)  &
+             'only the file phystoke.nc will still be created ' 
+     END IF
+
+     !Config  Key  = type_trac
+     !Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
+     !Config  Def  = lmdz
+     !Config  Help = 
+     !Config         'lmdz' = pas de couplage, pur LMDZ
+     !Config         'inca' = model de chime INCA 
+     !Config         'repr' = model de chime REPROBUS
+     type_trac = 'lmdz'
+     CALL getin('type_trac',type_trac)
+
+     !Config  Key  = config_inca
+     !Config  Desc = Choix de configuration de INCA
+     !Config  Def  = none
+     !Config  Help = Choix de configuration de INCA :
+     !Config         'none' = sans INCA
+     !Config         'chem' = INCA avec calcul de chemie
+     !Config         'aero' = INCA avec calcul des aerosols 
+     config_inca = 'none'
+     CALL getin('config_inca',config_inca)
+
+     !Config  Key  = ok_dynzon 
+     !Config  Desc = calcul et sortie des transports 
+     !Config  Def  = n 
+     !Config  Help = Permet de mettre en route le calcul des transports 
+     !Config          
+     ok_dynzon = .FALSE. 
+     CALL getin('ok_dynzon',ok_dynzon) 
+
+     !Config  Key  = ok_dyn_ins
+     !Config  Desc = sorties instantanees dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ins = .FALSE. 
+     CALL getin('ok_dyn_ins',ok_dyn_ins) 
+
+     !Config  Key  = ok_dyn_ave
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ave = .FALSE. 
+     CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     write(lunout,*)' #########################################'
+     write(lunout,*)' Configuration des parametres du gcm: '
+     write(lunout,*)' planet_type = ', planet_type
+     write(lunout,*)' calend = ', calend
+     write(lunout,*)' dayref = ', dayref
+     write(lunout,*)' anneeref = ', anneeref
+     write(lunout,*)' nday = ', nday
+     write(lunout,*)' day_step = ', day_step
+     write(lunout,*)' iperiod = ', iperiod
+     write(lunout,*)' nsplit_phys = ', nsplit_phys
+     write(lunout,*)' iconser = ', iconser
+     write(lunout,*)' iecri = ', iecri
+     write(lunout,*)' periodav = ', periodav 
+     write(lunout,*)' output_grads_dyn = ', output_grads_dyn
+     write(lunout,*)' dissip_period = ', dissip_period
+     write(lunout,*)' lstardis = ', lstardis
+     write(lunout,*)' nitergdiv = ', nitergdiv
+     write(lunout,*)' nitergrot = ', nitergrot
+     write(lunout,*)' niterh = ', niterh
+     write(lunout,*)' tetagdiv = ', tetagdiv
+     write(lunout,*)' tetagrot = ', tetagrot
+     write(lunout,*)' tetatemp = ', tetatemp
+     write(lunout,*)' coefdis = ', coefdis
+     write(lunout,*)' purmats = ', purmats
+     write(lunout,*)' read_start = ', read_start
+     write(lunout,*)' iflag_phys = ', iflag_phys
+     write(lunout,*)' iphysiq = ', iphysiq
+     write(lunout,*)' clonn = ', clonn 
+     write(lunout,*)' clatt = ', clatt
+     write(lunout,*)' grossismx = ', grossismx
+     write(lunout,*)' grossismy = ', grossismy
+     write(lunout,*)' fxyhypbb = ', fxyhypbb
+     write(lunout,*)' dzoomxx = ', dzoomxx
+     write(lunout,*)' dzoomy = ', dzoomyy
+     write(lunout,*)' tauxx = ', tauxx
+     write(lunout,*)' tauyy = ', tauyy
+     write(lunout,*)' offline = ', offline
+     write(lunout,*)' type_trac = ', type_trac
+     write(lunout,*)' config_inca = ', config_inca
+     write(lunout,*)' ok_dynzon = ', ok_dynzon 
+     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
+     write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+  else
+     !Config  Key  = clon
+     !Config  Desc = centre du zoom, longitude
+     !Config  Def  = 0
+     !Config  Help = longitude en degres du centre 
+     !Config         du zoom
+     clon = 0.
+     CALL getin('clon',clon)
+
+     !Config  Key  = clat
+     !Config  Desc = centre du zoom, latitude
+     !Config  Def  = 0
+     !Config  Help = latitude en degres du centre du zoom
+     !Config         
+     clat = 0.
+     CALL getin('clat',clat)
+
+     !Config  Key  = grossismx 
+     !Config  Desc = zoom en longitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la longitude
+     grossismx = 1.0
+     CALL getin('grossismx',grossismx)
+
+     !Config  Key  = grossismy
+     !Config  Desc = zoom en latitude
+     !Config  Def  = 1.0
+     !Config  Help = facteur de grossissement du zoom,
+     !Config         selon la latitude
+     grossismy = 1.0
+     CALL getin('grossismy',grossismy)
+
+     IF( grossismx.LT.1. )  THEN
+        write(lunout,*) &
+             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
+        STOP
+     ELSE
+        alphax = 1. - 1./ grossismx
+     ENDIF
+
+     IF( grossismy.LT.1. )  THEN
+        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
+        STOP
+     ELSE
+        alphay = 1. - 1./ grossismy
+     ENDIF
+
+     write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
+
+     !    alphax et alphay sont les anciennes formulat. des grossissements
+
+     !Config  Key  = fxyhypb
+     !Config  Desc = Fonction  hyperbolique
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y)  hyperbolique  si = .true.  
+     !Config         sinon  sinusoidale
+     fxyhypb = .TRUE.
+     CALL getin('fxyhypb',fxyhypb)
+
+     !Config  Key  = dzoomx
+     !Config  Desc = extension en longitude
+     !Config  Def  = 0
+     !Config  Help = extension en longitude  de la zone du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomx = 0.0
+     CALL getin('dzoomx',dzoomx)
+
+     !Config  Key  = dzoomy
+     !Config  Desc = extension en latitude
+     !Config  Def  = 0
+     !Config  Help = extension en latitude de la zone  du zoom  
+     !Config         ( fraction de la zone totale)
+     dzoomy = 0.0
+     CALL getin('dzoomy',dzoomy)
+
+     !Config  Key  = taux
+     !Config  Desc = raideur du zoom en  X
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  X
+     taux = 3.0
+     CALL getin('taux',taux)
+
+     !Config  Key  = tauy
+     !Config  Desc = raideur du zoom en  Y
+     !Config  Def  = 3
+     !Config  Help = raideur du zoom en  Y
+     tauy = 3.0
+     CALL getin('tauy',tauy)
+
+     !Config  Key  = ysinus
+     !Config  IF   = !fxyhypb
+     !Config  Desc = Fonction en Sinus
+     !Config  Def  = y
+     !Config  Help = Fonction  f(y) avec y = Sin(latit.) si = .true. 
+     !Config         sinon y = latit.
+     ysinus = .TRUE.
+     CALL getin('ysinus',ysinus)
+
+     !Config  Key  = offline
+     !Config  Desc = Nouvelle eau liquide
+     !Config  Def  = n
+     !Config  Help = Permet de mettre en route la
+     !Config         nouvelle parametrisation de l'eau liquide !
+     offline = .FALSE.
+     CALL getin('offline',offline)
+     IF (offline .AND. adjust) THEN
+        WRITE(lunout,*)  &
+             'WARNING : option offline does not work with adjust=y :'
+        WRITE(lunout,*) 'the files defstoke.nc, fluxstoke.nc ',  &
+             'and fluxstokev.nc will not be created'
+        WRITE(lunout,*)  &
+             'only the file phystoke.nc will still be created ' 
+     END IF
+
+     !Config  Key  = type_trac
+     !Config  Desc = Choix de couplage avec model de chimie INCA ou REPROBUS
+     !Config  Def  = lmdz
+     !Config  Help = 
+     !Config         'lmdz' = pas de couplage, pur LMDZ
+     !Config         'inca' = model de chime INCA 
+     !Config         'repr' = model de chime REPROBUS
+     type_trac = 'lmdz'
+     CALL getin('type_trac',type_trac)
+
+     !Config  Key  = config_inca
+     !Config  Desc = Choix de configuration de INCA
+     !Config  Def  = none
+     !Config  Help = Choix de configuration de INCA :
+     !Config         'none' = sans INCA
+     !Config         'chem' = INCA avec calcul de chemie
+     !Config         'aero' = INCA avec calcul des aerosols 
+     config_inca = 'none'
+     CALL getin('config_inca',config_inca)
+
+     !Config  Key  = ok_dynzon 
+     !Config  Desc = sortie des transports zonaux dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = Permet de mettre en route le calcul des transports 
+     !Config          
+     ok_dynzon = .FALSE. 
+     CALL getin('ok_dynzon',ok_dynzon) 
+
+     !Config  Key  = ok_dyn_ins
+     !Config  Desc = sorties instantanees dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ins = .FALSE. 
+     CALL getin('ok_dyn_ins',ok_dyn_ins) 
+
+     !Config  Key  = ok_dyn_ave
+     !Config  Desc = sorties moyennes dans la dynamique
+     !Config  Def  = n 
+     !Config  Help = 
+     !Config          
+     ok_dyn_ave = .FALSE. 
+     CALL getin('ok_dyn_ave',ok_dyn_ave) 
+
+     !Config  Key  = use_filtre_fft
+     !Config  Desc = flag d'activation des FFT pour le filtre
+     !Config  Def  = false
+     !Config  Help = permet d'activer l'utilisation des FFT pour effectuer
+     !Config         le filtrage aux poles.
+     use_filtre_fft=.FALSE.
+     CALL getin('use_filtre_fft',use_filtre_fft)
+
+     IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
+        write(lunout,*)'WARNING !!! '
+        write(lunout,*)"Le zoom en longitude est incompatible", &
+             " avec l'utilisation du filtre FFT ", &
+             "---> FFT filter not active"
+        use_filtre_fft=.FALSE.
+     ENDIF
+
+     !Config  Key  = use_mpi_alloc
+     !Config  Desc = Utilise un buffer MPI en mï¿½moire globale
+     !Config  Def  = false
+     !Config  Help = permet d'activer l'utilisation d'un buffer MPI
+     !Config         en mï¿½moire globale a l'aide de la fonction MPI_ALLOC.
+     !Config         Cela peut amï¿½liorer la bande passante des transferts MPI
+     !Config         d'un facteur 2  
+     use_mpi_alloc=.FALSE.
+     CALL getin('use_mpi_alloc',use_mpi_alloc)
+
+     !Config key = ok_strato
+     !Config  Desc = activation de la version strato
+     !Config  Def  = .FALSE.
+     !Config  Help = active la version stratosphérique de LMDZ de F. Lott
+
+     ok_strato=.FALSE.
+     CALL getin('ok_strato',ok_strato)
+
+     vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
+     CALL getin('vert_prof_dissip', vert_prof_dissip)
+     call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1, &
+          "bad value for vert_prof_dissip")
+
+     !Config  Key  = ok_gradsfile
+     !Config  Desc = activation des sorties grads du guidage
+     !Config  Def  = n
+     !Config  Help = active les sorties grads du guidage
+
+     ok_gradsfile = .FALSE.
+     CALL getin('ok_gradsfile',ok_gradsfile)
+
+     !Config  Key  = ok_limit
+     !Config  Desc = creation des fichiers limit dans create_etat0_limit
+     !Config  Def  = y
+     !Config  Help = production du fichier limit.nc requise
+
+     ok_limit = .TRUE.
+     CALL getin('ok_limit',ok_limit)
+
+     !Config  Key  = ok_etat0
+     !Config  Desc = creation des fichiers etat0 dans create_etat0_limit
+     !Config  Def  = y
+     !Config  Help = production des fichiers start.nc, startphy.nc requise
+
+     ok_etat0 = .TRUE.
+     CALL getin('ok_etat0',ok_etat0)
+
+     write(lunout,*)' #########################################'
+     write(lunout,*)' Configuration des parametres de cel0' &
+          //'_limit: '
+     write(lunout,*)' planet_type = ', planet_type
+     write(lunout,*)' calend = ', calend
+     write(lunout,*)' dayref = ', dayref
+     write(lunout,*)' anneeref = ', anneeref
+     write(lunout,*)' nday = ', nday
+     write(lunout,*)' day_step = ', day_step
+     write(lunout,*)' iperiod = ', iperiod
+     write(lunout,*)' iconser = ', iconser
+     write(lunout,*)' iecri = ', iecri
+     write(lunout,*)' periodav = ', periodav 
+     write(lunout,*)' output_grads_dyn = ', output_grads_dyn
+     write(lunout,*)' dissip_period = ', dissip_period
+     write(lunout,*)' lstardis = ', lstardis
+     write(lunout,*)' nitergdiv = ', nitergdiv
+     write(lunout,*)' nitergrot = ', nitergrot
+     write(lunout,*)' niterh = ', niterh
+     write(lunout,*)' tetagdiv = ', tetagdiv
+     write(lunout,*)' tetagrot = ', tetagrot
+     write(lunout,*)' tetatemp = ', tetatemp
+     write(lunout,*)' coefdis = ', coefdis
+     write(lunout,*)' purmats = ', purmats
+     write(lunout,*)' read_start = ', read_start
+     write(lunout,*)' iflag_phys = ', iflag_phys
+     write(lunout,*)' iphysiq = ', iphysiq
+     write(lunout,*)' clon = ', clon
+     write(lunout,*)' clat = ', clat
+     write(lunout,*)' grossismx = ', grossismx
+     write(lunout,*)' grossismy = ', grossismy
+     write(lunout,*)' fxyhypb = ', fxyhypb
+     write(lunout,*)' dzoomx = ', dzoomx
+     write(lunout,*)' dzoomy = ', dzoomy
+     write(lunout,*)' taux = ', taux
+     write(lunout,*)' tauy = ', tauy
+     write(lunout,*)' offline = ', offline
+     write(lunout,*)' type_trac = ', type_trac
+     write(lunout,*)' config_inca = ', config_inca
+     write(lunout,*)' ok_dynzon = ', ok_dynzon
+     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
+     write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
+     write(lunout,*)' use_filtre_fft = ', use_filtre_fft
+     write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
+     write(lunout,*)' ok_strato = ', ok_strato
+     write(lunout,*)' ok_gradsfile = ', ok_gradsfile
+     write(lunout,*)' ok_limit = ', ok_limit
+     write(lunout,*)' ok_etat0 = ', ok_etat0
+  end IF test_etatinit
+
+END SUBROUTINE conf_gcm
Index: LMDZ5/branches/testing/libf/dyn3dpar/gcm.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/gcm.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/gcm.F	(revision 2160)
@@ -175,4 +175,6 @@
 !#ifdef CPP_IOIPSL
       CALL conf_gcm( 99, .TRUE. , clesphy0 )
+      if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
+     s "iphysiq must be a multiple of iperiod", 1)
 !#else
 !      CALL defrun( 99, .TRUE. , clesphy0 )
Index: LMDZ5/branches/testing/libf/dyn3dpar/getparam.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/getparam.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/getparam.F90	(revision 2160)
@@ -11,6 +11,7 @@
 
    INTERFACE getpar
-     MODULE PROCEDURE ini_getparam,fin_getparam,getparamr,getparami,getparaml
+     MODULE PROCEDURE getparamr,getparami,getparaml
    END INTERFACE
+   private getparamr,getparami,getparaml
 
    INTEGER, PARAMETER :: out_eff=99
Index: LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90	(revision 2160)
@@ -67,6 +67,7 @@
 
   SUBROUTINE guide_init
-    
+
     USE control_mod
+
     IMPLICIT NONE
   
@@ -74,4 +75,7 @@
     INCLUDE "paramet.h"
     INCLUDE "netcdf.inc"
+
+    ! For grossismx:
+    include "serre.h"
 
     INTEGER                :: error,ncidpl,rid,rcod
@@ -93,4 +97,7 @@
     CALL getpar('guide_add',.false.,guide_add,'for�age constant?')
     CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale')
+    if (guide_zon .and. abs(grossismx - 1.) > 0.01) &
+         call abort_gcm("guide_init", &
+         "zonal nudging requires grid regular in longitude", 1)
 
 !   Constantes de rappel. Unite : fraction de jour
@@ -113,7 +120,9 @@
     ! frequences f>0: fx/jour; f<0: tous les f jours; f=0: 1 seule fois.
     IF (iguide_sav.GT.0) THEN
-        iguide_sav=day_step/iguide_sav
+       iguide_sav=day_step/iguide_sav
+    ELSE if (iguide_sav == 0) then
+       iguide_sav = huge(0)
     ELSE
-        iguide_sav=day_step*iguide_sav
+       iguide_sav=day_step*iguide_sav
     ENDIF
 
@@ -155,5 +164,5 @@
     ncidpl=-99
     if (guide_plevs.EQ.1) then
-       if (ncidpl.eq.-99) then 
+       if (ncidpl.eq.-99) then
           rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
           if (rcod.NE.NF_NOERR) THEN
@@ -163,5 +172,5 @@
        endif
     elseif (guide_plevs.EQ.2) then
-       if (ncidpl.EQ.-99) then 
+       if (ncidpl.EQ.-99) then
           rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
           if (rcod.NE.NF_NOERR) THEN
@@ -374,5 +383,4 @@
     ENDIF
       
-     PRINT *,'---> on rentre dans guide_main'
 !    CALL AllGather_Field(ucov,ip1jmp1,llm)
 !    CALL AllGather_Field(vcov,ip1jm,llm)
@@ -1250,4 +1258,6 @@
         enddo
     ENDIF ! guide_reg
+
+    if (.not. guide_add) alpha = 1. - exp(- alpha)
 
   END SUBROUTINE tau2alpha
Index: LMDZ5/branches/testing/libf/dyn3dpar/iniacademic.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/iniacademic.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/iniacademic.F90	(revision 2160)
@@ -4,16 +4,16 @@
 SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
 
-  use exner_hyb_m, only: exner_hyb
-  use exner_milieu_m, only: exner_milieu
-  USE filtreg_mod
+  USE filtreg_mod, ONLY: inifilr
   USE infotrac, ONLY : nqtot
   USE control_mod, ONLY: day_step,planet_type
 #ifdef CPP_IOIPSL
-  USE IOIPSL
+  USE IOIPSL, ONLY: getin
 #else
   ! if not using IOIPSL, we still need to use (a local version of) getin
-  USE ioipsl_getincom
+  USE ioipsl_getincom, ONLY: getin
 #endif
   USE Write_Field
+  use exner_hyb_m, only: exner_hyb
+  use exner_milieu_m, only: exner_milieu
 
   !   Author:    Frederic Hourdin      original: 15/01/93
@@ -40,13 +40,14 @@
   !   ----------
 
-  real time_0
-
-  !   variables dynamiques
-  REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
-  REAL teta(ip1jmp1,llm)                 ! temperature potentielle
-  REAL q(ip1jmp1,llm,nqtot)               ! champs advectes
-  REAL ps(ip1jmp1)                       ! pression  au sol
-  REAL masse(ip1jmp1,llm)                ! masse d'air
-  REAL phis(ip1jmp1)                     ! geopotentiel au sol
+  REAL,INTENT(OUT) :: time_0
+
+  !   fields
+  REAL,INTENT(OUT) :: vcov(ip1jm,llm) ! meridional covariant wind
+  REAL,INTENT(OUT) :: ucov(ip1jmp1,llm) ! zonal covariant wind
+  REAL,INTENT(OUT) :: teta(ip1jmp1,llm) ! potential temperature (K)
+  REAL,INTENT(OUT) :: q(ip1jmp1,llm,nqtot) ! advected tracers (.../kg_of_air)
+  REAL,INTENT(OUT) :: ps(ip1jmp1) ! surface pressure (Pa)
+  REAL,INTENT(OUT) :: masse(ip1jmp1,llm) ! air mass in grid cell (kg)
+  REAL,INTENT(OUT) :: phis(ip1jmp1) ! surface geopotential
 
   !   Local:
@@ -76,4 +77,14 @@
   character(len=80) :: abort_message
 
+
+  ! Sanity check: verify that options selected by user are not incompatible
+  if ((iflag_phys==1).and. .not. read_start) then
+    write(lunout,*) trim(modname)," error: if read_start is set to ", &
+    " false then iflag_phys should not be 1"
+    write(lunout,*) "You most likely want an aquaplanet initialisation", &
+    " (iflag_phys >= 100)"
+    call abort_gcm(modname,"incompatible iflag_phys==1 and read_start==.false.",1)
+  endif
+  
   !-----------------------------------------------------------------------
   ! 1. Initializations for Earth-like case
@@ -224,5 +235,5 @@
         CALL pression ( ip1jmp1, ap, bp, ps, p       )
         if (pressure_exner) then
-          CALL exner_hyb( ip1jmp1, ps, p, pks, pk )
+          CALL exner_hyb( ip1jmp1, ps, p, pks, pk)
         else
           call exner_milieu(ip1jmp1,ps,p,pks,pk)
Index: LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F	(revision 2160)
@@ -137,6 +137,5 @@
        
         IF( .NOT. checksum ) THEN
-         write(lunout,*) "integrd: negative surface pressure ",
-     &                                                ps(stop_it)
+           write(lunout,*) "integrd: ps = ", ps(stop_it)
          write(lunout,*) " at node ij =", stop_it
          ! since ij=j+(i-1)*jjp1 , we have
@@ -145,4 +144,5 @@
          write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
      &                   " lat = ",rlatu(j)*180./pi, " deg"
+         call abort_gcm("integrd_p", "negative surface pressure", 1)
         ENDIF
 
Index: LMDZ5/branches/testing/libf/dyn3dpar/leapfrog_p.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3dpar/leapfrog_p.F	(revision 2116)
+++ LMDZ5/branches/testing/libf/dyn3dpar/leapfrog_p.F	(revision 2160)
@@ -717,8 +717,9 @@
            CALL exner_milieu_p( ip1jmp1, ps, p, pks, pk, pkf )
          endif
+c$OMP BARRIER
 ! Appel a geopot ajoute le 2014/05/08 pour garantir la convergence numerique
 ! avec dyn3dmem
-      CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
-c$OMP BARRIER
+      CALL geopot_p  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
            jD_cur = jD_ref + day_ini - day_ref
      $        + itau/day_step
Index: LMDZ5/branches/testing/libf/phydev/iophy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phydev/iophy.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phydev/iophy.F90	(revision 2160)
@@ -1,4 +1,4 @@
 !
-! $Id: $
+! $Id$
 !
 module iophy
@@ -114,5 +114,5 @@
     endif
     
-#ifndef CPP_NO_IOIPSL
+#ifndef CPP_IOIPSL_NO_OUTPUT
     call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
                       'APPLE',phys_domain_id)
Index: LMDZ5/branches/testing/libf/phydev/physiq.F90
===================================================================
--- LMDZ5/branches/testing/libf/phydev/physiq.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phydev/physiq.F90	(revision 2160)
@@ -102,5 +102,5 @@
   call ymds2ju(1979, 1, 1, 0.0, zjulian)
   dtime=pdtphys
-#ifndef CPP_NO_IOIPSL
+#ifndef CPP_IOIPSL_NO_OUTPUT
   ! Initialize IOIPSL output file
   call histbeg_phy("histins.nc",itau0,zjulian,dtime,nhori,nid_hist)
@@ -109,5 +109,5 @@
 !$OMP MASTER
 
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
 ! IOIPSL
   ! define vertical coordinate
@@ -171,5 +171,5 @@
 ! write some outputs:
 ! IOIPSL
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
 if (modulo(itau,iwrite_phys)==0) then
   call histwrite_phy(nid_hist,.false.,"temperature",itau,t)
Index: LMDZ5/branches/testing/libf/phylmd/1DUTILS.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/1DUTILS.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/1DUTILS.h	(revision 2160)
@@ -1,3 +1,3 @@
-#include "../dyn3d/conf_gcm.F"
+#include "../dyn3d/conf_gcm.F90"
 #include "../dyn3d_common/q_sat.F"
 
@@ -140,4 +140,11 @@
        CALL getin('ok_flux_surf',ok_flux_surf)
 
+!Config  Key  = ok_prescr_ust
+!Config  Desc = ustar impose ou non
+!Config  Def  = false
+!Config  Help = ustar impose ou non
+       ok_prescr_ust = .false.
+       CALL getin('ok_prescr_ust',ok_prescr_ust)
+
 !Config  Key  = ok_old_disvert
 !Config  Desc = utilisation de l ancien programme disvert0 (dans 1DUTILS.h)
@@ -355,5 +362,5 @@
       CHARACTER*(*) fichnom
 !Al1 plev tronque pour .nc mais plev(klev+1):=0
-      real :: plev(klon,klev),play (klon,klev),phi(klon,klev)
+      real :: plev(klon,klev+1),play (klon,klev),phi(klon,klev)
       real :: presnivs(klon,klev)
       real :: ucov(klon,klev),vcov(klon,klev),temp(klon,klev)
@@ -438,7 +445,4 @@
 !  Lecture des champs
 !
-      plev(1,klev+1)=0.
-      CALL get_field("plev",plev,found)
-      IF (.NOT. found) PRINT*, modname//'Le champ <Plev> est absent'
       CALL get_field("play",play,found)
       IF (.NOT. found) PRINT*, modname//'Le champ <Play> est absent'
@@ -457,4 +461,7 @@
       CALL get_field("omega2",omega2,found)
       IF (.NOT. found) PRINT*, modname//'Le champ <omega2> est absent'
+      plev(1,klev+1)=0.
+      CALL get_field("plev",plev(:,1:klev),found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <Plev> est absent'
 
       Do iq=1,nqtot
@@ -822,5 +829,4 @@
       INTEGER np,ierr
       REAL pi,x
-      REAL :: scaleheight=8.
  
 !-----------------------------------------------------------------------
@@ -925,14 +931,8 @@
       PRINT *,  ap
  
-   print*,'scaleheight=',scaleheight
-  DO l = 1, llm
-     dpres(l) = bp(l) - bp(l+1)
-     presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff )
-     write(*, *)'PRESNIVS(', l, ')=', presnivs(l), ' Z ~ ', &
-          log(preff/presnivs(l))*scaleheight &
-          , ' DZ ~ ', scaleheight*log((ap(l)+bp(l)*preff)/ &
-          max(ap(l+1)+bp(l+1)*preff, 1.e-10))
-  ENDDO
-
+      DO l = 1, llm
+       dpres(l) = bp(l) - bp(l+1)
+       presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff )
+      ENDDO
  
       PRINT *,' PRESNIVS '
@@ -2108,5 +2108,5 @@
         elseif(4000 < zlay(k) .and. zlay(k) < 9000) then
           q_rico(k)=1.8 + (0 - 1.8) /                                      &
-     &             (10000 - 4000) * (zlay(k) - 4000)
+     &             (9000 - 4000) * (zlay(k) - 4000)
         else
           q_rico(k)=0.0
@@ -2420,4 +2420,127 @@
           end
  
+!=====================================================================
+       SUBROUTINE interp_dice_vertical(play,nlev_dice,nt_dice,plev_prof   &
+     &         ,th_prof,qv_prof,u_prof,v_prof,o3_prof                     &
+     &         ,ht_prof,hq_prof,hu_prof,hv_prof,w_prof,omega_prof         &
+     &         ,th_mod,qv_mod,u_mod,v_mod,o3_mod                          &
+     &         ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc)
+ 
+       implicit none
+ 
+#include "dimensions.h"
+
+!-------------------------------------------------------------------------
+! Vertical interpolation of Dice forcing data onto model levels
+!-------------------------------------------------------------------------
+ 
+       integer nlevmax
+       parameter (nlevmax=41)
+       integer nlev_dice,mxcalc,nt_dice
+ 
+       real play(llm), plev_prof(nlev_dice) 
+       real th_prof(nlev_dice),qv_prof(nlev_dice)
+       real u_prof(nlev_dice),v_prof(nlev_dice) 
+       real o3_prof(nlev_dice)
+       real ht_prof(nlev_dice),hq_prof(nlev_dice)
+       real hu_prof(nlev_dice),hv_prof(nlev_dice)
+       real w_prof(nlev_dice),omega_prof(nlev_dice)
+ 
+       real th_mod(llm),qv_mod(llm)
+       real u_mod(llm),v_mod(llm), o3_mod(llm)
+       real ht_mod(llm),hq_mod(llm)
+       real hu_mod(llm),hv_mod(llm),w_mod(llm),omega_mod(llm)
+ 
+       integer l,k,k1,k2,kp
+       real aa,frac,frac1,frac2,fact
+ 
+       do l = 1, llm
+
+        if (play(l).ge.plev_prof(nlev_dice)) then
+ 
+        mxcalc=l
+         k1=0
+         k2=0
+
+         if (play(l).le.plev_prof(1)) then
+
+         do k = 1, nlev_dice-1
+          if (play(l).le.plev_prof(k) .and. play(l).gt.plev_prof(k+1)) then
+            k1=k
+            k2=k+1
+          endif
+         enddo
+
+         if (k1.eq.0 .or. k2.eq.0) then
+          write(*,*) 'PB! k1, k2 = ',k1,k2
+          write(*,*) 'l,play(l) = ',l,play(l)/100
+         do k = 1, nlev_dice-1
+          write(*,*) 'k,plev_prof(k) = ',k,plev_prof(k)/100
+         enddo
+         endif
+
+         frac = (plev_prof(k2)-play(l))/(plev_prof(k2)-plev_prof(k1))
+         th_mod(l)= th_prof(k2) - frac*(th_prof(k2)-th_prof(k1))
+         qv_mod(l)= qv_prof(k2) - frac*(qv_prof(k2)-qv_prof(k1))
+         u_mod(l)= u_prof(k2) - frac*(u_prof(k2)-u_prof(k1))
+         v_mod(l)= v_prof(k2) - frac*(v_prof(k2)-v_prof(k1))
+         o3_mod(l)= o3_prof(k2) - frac*(o3_prof(k2)-o3_prof(k1))
+         ht_mod(l)= ht_prof(k2) - frac*(ht_prof(k2)-ht_prof(k1))
+         hq_mod(l)= hq_prof(k2) - frac*(hq_prof(k2)-hq_prof(k1))
+         hu_mod(l)= hu_prof(k2) - frac*(hu_prof(k2)-hu_prof(k1))
+         hv_mod(l)= hv_prof(k2) - frac*(hv_prof(k2)-hv_prof(k1))
+         w_mod(l)= w_prof(k2) - frac*(w_prof(k2)-w_prof(k1))
+         omega_mod(l)= omega_prof(k2) - frac*(omega_prof(k2)-omega_prof(k1))
+     
+         else !play>plev_prof(1)
+
+         k1=1
+         k2=2
+         frac1 = (play(l)-plev_prof(k2))/(plev_prof(k1)-plev_prof(k2))
+         frac2 = (play(l)-plev_prof(k1))/(plev_prof(k1)-plev_prof(k2))
+         th_mod(l)= frac1*th_prof(k1) - frac2*th_prof(k2)
+         qv_mod(l)= frac1*qv_prof(k1) - frac2*qv_prof(k2)
+         u_mod(l)= frac1*u_prof(k1) - frac2*u_prof(k2)
+         v_mod(l)= frac1*v_prof(k1) - frac2*v_prof(k2)
+         o3_mod(l)= frac1*o3_prof(k1) - frac2*o3_prof(k2)
+         ht_mod(l)= frac1*ht_prof(k1) - frac2*ht_prof(k2)
+         hq_mod(l)= frac1*hq_prof(k1) - frac2*hq_prof(k2)
+         hu_mod(l)= frac1*hu_prof(k1) - frac2*hu_prof(k2)
+         hv_mod(l)= frac1*hv_prof(k1) - frac2*hv_prof(k2)
+         w_mod(l)= frac1*w_prof(k1) - frac2*w_prof(k2)
+         omega_mod(l)= frac1*omega_prof(k1) - frac2*omega_prof(k2)
+
+         endif ! play.le.plev_prof(1)
+
+        else ! above max altitude of forcing file
+ 
+!jyg
+         fact=20.*(plev_prof(nlev_dice)-play(l))/plev_prof(nlev_dice) !jyg
+         fact = max(fact,0.)                                           !jyg
+         fact = exp(-fact)                                             !jyg
+         th_mod(l)= th_prof(nlev_dice)                                 !jyg
+         qv_mod(l)= qv_prof(nlev_dice)*fact                            !jyg
+         u_mod(l)= u_prof(nlev_dice)*fact                              !jyg
+         v_mod(l)= v_prof(nlev_dice)*fact                              !jyg
+         o3_mod(l)= o3_prof(nlev_dice)*fact                            !jyg
+         ht_mod(l)= ht_prof(nlev_dice)                                 !jyg
+         hq_mod(l)= hq_prof(nlev_dice)*fact                            !jyg
+         hu_mod(l)= hu_prof(nlev_dice)                                 !jyg
+         hv_mod(l)= hv_prof(nlev_dice)                                 !jyg
+         w_mod(l)= 0.                                                  !jyg
+         omega_mod(l)= 0.                                              !jyg
+ 
+        endif ! play
+ 
+       enddo ! l
+
+!       do l = 1,llm
+!       print *,'t_mod(l),q_mod(l),ht_mod(l),hq_mod(l) ',
+!     $        l,t_mod(l),q_mod(l),ht_mod(l),hq_mod(l)
+!       enddo
+ 
+          return
+          end
+
 !======================================================================
         SUBROUTINE interp_astex_time(day,day1,annee_ref                    &
@@ -2652,4 +2775,121 @@
 
 !======================================================================
+        SUBROUTINE interp_dice_time(day,day1,annee_ref                    &
+     &             ,year_ini_dice,day_ini_dice,nt_dice,dt_dice            &
+     &             ,nlev_dice,shf_dice,lhf_dice,lwup_dice,swup_dice       &
+     &             ,tg_dice,ustar_dice,psurf_dice,ug_dice,vg_dice         &
+     &             ,ht_dice,hq_dice,hu_dice,hv_dice,w_dice,omega_dice     &
+     &             ,shf_prof,lhf_prof,lwup_prof,swup_prof,tg_prof         &
+     &             ,ustar_prof,psurf_prof,ug_prof,vg_prof                 &
+     &             ,ht_prof,hq_prof,hu_prof,hv_prof,w_prof,omega_prof)
+        implicit none
+
+!---------------------------------------------------------------------------------------
+! Time interpolation of a 2D field to the timestep corresponding to day
+!
+! day: current julian day (e.g. 717538.2)
+! day1: first day of the simulation
+! nt_dice: total nb of data in the forcing (e.g. 145 for Dice)
+! dt_dice: total time interval (in sec) between 2 forcing data (e.g. 30min. for Dice)
+!---------------------------------------------------------------------------------------
+
+#include "compar1d.h"
+
+! inputs:
+        integer annee_ref
+        integer nt_dice,nlev_dice
+        integer year_ini_dice
+        real day, day1,day_ini_dice,dt_dice
+        real shf_dice(nt_dice),lhf_dice(nt_dice),lwup_dice(nt_dice)
+        real swup_dice(nt_dice),tg_dice(nt_dice),ustar_dice(nt_dice)
+        real psurf_dice(nt_dice),ug_dice(nt_dice),vg_dice(nt_dice)
+        real ht_dice(nlev_dice,nt_dice),hq_dice(nlev_dice,nt_dice)
+        real hu_dice(nlev_dice,nt_dice),hv_dice(nlev_dice,nt_dice)
+        real w_dice(nlev_dice,nt_dice),omega_dice(nlev_dice,nt_dice)
+! outputs:
+        real tg_prof,shf_prof,lhf_prof,lwup_prof,swup_prof
+        real ustar_prof,psurf_prof,ug_prof,vg_prof
+        real ht_prof(nlev_dice),hq_prof(nlev_dice)
+        real hu_prof(nlev_dice),hv_prof(nlev_dice)
+        real w_prof(nlev_dice),omega_prof(nlev_dice)
+! local:
+        integer it_dice1, it_dice2,k
+        real timeit,time_dice1,time_dice2,frac
+
+
+        if (forcing_type.eq.7) then
+! Check that initial day of the simulation consistent with Dice period:
+       print *,'annee_ref=',annee_ref
+       print *,'day1=',day1
+       print *,'day_ini_dice=',day_ini_dice
+       if (annee_ref.ne.1999) then
+        print*,'Pour Dice, annee_ref doit etre 1999'
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.1999 .and. day1.gt.day_ini_dice) then
+        print*,'Dice a debute le 23 Oct 1999 (jour julien=296)'
+        print*,'Changer dayref dans run.def',day1,day_ini_dice
+        stop
+       endif
+       if (annee_ref.eq.1999 .and. day1.gt.day_ini_dice+2) then
+        print*,'Dice a fini le 25 Oct 1999 (jour julien=298)'
+        print*,'Changer dayref ou nday dans run.def',day1,day_ini_dice
+        stop
+       endif
+
+       endif
+
+! Determine timestep relative to the 1st day of TOGA-COARE:
+!       timeit=(day-day1)*86400.
+!       if (annee_ref.eq.1992) then
+!        timeit=(day-day_ini_dice)*86400.
+!       else
+!        timeit=(day+61.-1.)*86400. ! 61 days between Nov01 and Dec31 1992
+!       endif
+      timeit=(day-day_ini_dice)*86400
+
+! Determine the closest observation times:
+       it_dice1=INT(timeit/dt_dice)+1
+       it_dice2=it_dice1 + 1
+       time_dice1=(it_dice1-1)*dt_dice
+       time_dice2=(it_dice2-1)*dt_dice
+
+       if (it_dice1 .ge. nt_dice) then
+        write(*,*) 'PB-stop: day, it_dice1, it_dice2, timeit: ',day,it_dice1,it_dice2,timeit/86400.
+        stop
+       endif
+
+! time interpolation:
+       frac=(time_dice2-timeit)/(time_dice2-time_dice1)
+       frac=max(frac,0.0)
+
+       shf_prof = shf_dice(it_dice2)-frac*(shf_dice(it_dice2)-shf_dice(it_dice1))
+       lhf_prof = lhf_dice(it_dice2)-frac*(lhf_dice(it_dice2)-lhf_dice(it_dice1))
+       lwup_prof = lwup_dice(it_dice2)-frac*(lwup_dice(it_dice2)-lwup_dice(it_dice1))
+       swup_prof = swup_dice(it_dice2)-frac*(swup_dice(it_dice2)-swup_dice(it_dice1))
+       tg_prof = tg_dice(it_dice2)-frac*(tg_dice(it_dice2)-tg_dice(it_dice1))
+       ustar_prof = ustar_dice(it_dice2)-frac*(ustar_dice(it_dice2)-ustar_dice(it_dice1))
+       psurf_prof = psurf_dice(it_dice2)-frac*(psurf_dice(it_dice2)-psurf_dice(it_dice1))
+       ug_prof = ug_dice(it_dice2)-frac*(ug_dice(it_dice2)-ug_dice(it_dice1))
+       vg_prof = vg_dice(it_dice2)-frac*(vg_dice(it_dice2)-vg_dice(it_dice1))
+
+!        print*,
+!     :'day,annee_ref,day_ini_dice,timeit,it_dice1,it_dice2,SST:',
+!     :day,annee_ref,day_ini_dice,timeit/86400.,it_dice1,it_dice2,ts_prof
+
+       do k=1,nlev_dice
+        ht_prof(k) = ht_dice(k,it_dice2)-frac*(ht_dice(k,it_dice2)-ht_dice(k,it_dice1))
+        hq_prof(k) = hq_dice(k,it_dice2)-frac*(hq_dice(k,it_dice2)-hq_dice(k,it_dice1))
+        hu_prof(k) = hu_dice(k,it_dice2)-frac*(hu_dice(k,it_dice2)-hu_dice(k,it_dice1))
+        hv_prof(k) = hv_dice(k,it_dice2)-frac*(hv_dice(k,it_dice2)-hv_dice(k,it_dice1))
+        w_prof(k) = w_dice(k,it_dice2)-frac*(w_dice(k,it_dice2)-w_dice(k,it_dice1))
+        omega_prof(k) = omega_dice(k,it_dice2)-frac*(omega_dice(k,it_dice2)-omega_dice(k,it_dice1))
+        enddo
+
+        return
+        END
+
+!======================================================================
         SUBROUTINE interp_armcu_time(day,day1,annee_ref                    &
      &             ,year_ini_armcu,day_ini_armcu,nt_armcu,dt_armcu         &
@@ -2916,341 +3156,4 @@
         return
         end
-!=====================================================================
-      subroutine read_amma(fich_amma,nlevel,ntime                          &
-     &     ,zz,pp,temp,qv,u,v,dw                                           &
-     &     ,dt,dq,sens,flat)
-
-!program reading forcings of the AMMA case study
-
-
-      implicit none
-
-#include "netcdf.inc"
-
-      integer ntime,nlevel
-      character*80 :: fich_amma
-      real*8 zz(nlevel)
-
-      real*8 temp(nlevel),pp(nlevel)
-      real*8 qv(nlevel),u(nlevel)
-      real*8 v(nlevel)
-      real*8 dw(nlevel,ntime)
-      real*8 dt(nlevel,ntime)
-      real*8 dq(nlevel,ntime)
-      real*8 flat(ntime),sens(ntime)
-
-      integer nid, ierr
-      integer nbvar3d
-      parameter(nbvar3d=30)
-      integer var3didin(nbvar3d)
-
-      ierr = NF_OPEN(fich_amma,NF_NOWRITE,nid)
-      if (ierr.NE.NF_NOERR) then
-         write(*,*) 'ERROR: Pb opening forcings nc file '
-         write(*,*) NF_STRERROR(ierr)
-         stop ""
-      endif
-
-
-       ierr=NF_INQ_VARID(nid,"zz",var3didin(1)) 
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'lev'
-         endif
-
-
-      ierr=NF_INQ_VARID(nid,"temp",var3didin(2))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'temp'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"qv",var3didin(3))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'qv'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"u",var3didin(4))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'u'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"v",var3didin(5))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'v'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"dw",var3didin(6))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'dw'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"dt",var3didin(7))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'dt'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"dq",var3didin(8))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'dq'
-         endif
-      
-      ierr=NF_INQ_VARID(nid,"sens",var3didin(9))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'sens'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"flat",var3didin(10))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'flat'
-         endif
-
-      ierr=NF_INQ_VARID(nid,"pp",var3didin(11))
-         if(ierr/=NF_NOERR) then
-           write(*,*) NF_STRERROR(ierr)
-           stop 'pp'
-      endif
-
-!dimensions lecture
-!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
- 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture z ok',zz
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),temp)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(2),temp)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture th ok',temp
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),qv)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(3),qv)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture qv ok',qv
- 
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),u)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(4),u)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture u ok',u
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),v)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(5),v)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture v ok',v
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),dw)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(6),dw)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture w ok',dw
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),dt)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(7),dt)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture dt ok',dt
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),dq)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(8),dq)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture dq ok',dq
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),sens)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(9),sens)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture sens ok',sens
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),flat)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(10),flat)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture flat ok',flat
-
-#ifdef NC_DOUBLE
-         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),pp)
-#else
-         ierr = NF_GET_VAR_REAL(nid,var3didin(11),pp)
-#endif
-         if(ierr/=NF_NOERR) then
-            write(*,*) NF_STRERROR(ierr)
-            stop "getvarup"
-         endif
-!          write(*,*)'lecture pp ok',pp
-
-         return 
-         end subroutine read_amma
-!======================================================================
-        SUBROUTINE interp_amma_time(day,day1,annee_ref                     &
-     &         ,year_ini_amma,day_ini_amma,nt_amma,dt_amma,nlev_amma       &
-     &         ,vitw_amma,ht_amma,hq_amma,lat_amma,sens_amma               &
-     &         ,vitw_prof,ht_prof,hq_prof,lat_prof,sens_prof)
-        implicit none
-
-!---------------------------------------------------------------------------------------
-! Time interpolation of a 2D field to the timestep corresponding to day
-!
-! day: current julian day (e.g. 717538.2)
-! day1: first day of the simulation
-! nt_amma: total nb of data in the forcing (e.g. 48 for AMMA)
-! dt_amma: total time interval (in sec) between 2 forcing data (e.g. 30min for AMMA)
-!---------------------------------------------------------------------------------------
-
-#include "compar1d.h"
-
-! inputs:
-        integer annee_ref
-        integer nt_amma,nlev_amma
-        integer year_ini_amma
-        real day, day1,day_ini_amma,dt_amma
-        real vitw_amma(nlev_amma,nt_amma)
-        real ht_amma(nlev_amma,nt_amma)
-        real hq_amma(nlev_amma,nt_amma)
-        real lat_amma(nt_amma)
-        real sens_amma(nt_amma)
-! outputs:
-        real vitw_prof(nlev_amma)
-        real ht_prof(nlev_amma)
-        real hq_prof(nlev_amma)
-        real lat_prof,sens_prof
-! local:
-        integer it_amma1, it_amma2,k
-        real timeit,time_amma1,time_amma2,frac
-
-
-        if (forcing_type.eq.6) then
-! Check that initial day of the simulation consistent with AMMA case:
-       if (annee_ref.ne.2006) then
-        print*,'Pour AMMA, annee_ref doit etre 2006'
-        print*,'Changer annee_ref dans run.def'
-        stop
-       endif
-       if (annee_ref.eq.2006 .and. day1.lt.day_ini_amma) then
-        print*,'AMMA a débuté le 10 juillet 2006',day1,day_ini_amma
-        print*,'Changer dayref dans run.def'
-        stop
-       endif
-       if (annee_ref.eq.2006 .and. day1.gt.day_ini_amma+1) then
-        print*,'AMMA a fini le 11 juillet'
-        print*,'Changer dayref ou nday dans run.def'
-        stop
-       endif
-       endif
-
-! Determine timestep relative to the 1st day of AMMA:
-!       timeit=(day-day1)*86400.
-!       if (annee_ref.eq.1992) then
-!        timeit=(day-day_ini_toga)*86400.
-!       else
-!        timeit=(day+61.-1.)*86400. ! 61 days between Nov01 and Dec31 1992
-!       endif
-      timeit=(day-day_ini_amma)*86400
-
-! Determine the closest observation times:
-!       it_amma1=INT(timeit/dt_amma)+1
-!       it_amma2=it_amma1 + 1
-!       time_amma1=(it_amma1-1)*dt_amma
-!       time_amma2=(it_amma2-1)*dt_amma
-
-       it_amma1=INT(timeit/dt_amma)+1
-       IF (it_amma1 .EQ. nt_amma) THEN
-       it_amma2=it_amma1 
-       ELSE
-       it_amma2=it_amma1 + 1
-       ENDIF
-       time_amma1=(it_amma1-1)*dt_amma
-       time_amma2=(it_amma2-1)*dt_amma
-
-       if (it_amma1 .gt. nt_amma) then
-        write(*,*) 'PB-stop: day, it_amma1, it_amma2, timeit: '            &
-     &        ,day,day_ini_amma,it_amma1,it_amma2,timeit/86400.
-        stop
-       endif
-
-! time interpolation:
-       frac=(time_amma2-timeit)/(time_amma2-time_amma1)
-       frac=max(frac,0.0)
-
-       lat_prof = lat_amma(it_amma2)                                       &
-     &          -frac*(lat_amma(it_amma2)-lat_amma(it_amma1)) 
-       sens_prof = sens_amma(it_amma2)                                     &
-     &          -frac*(sens_amma(it_amma2)-sens_amma(it_amma1))
-
-       do k=1,nlev_amma
-        vitw_prof(k) = vitw_amma(k,it_amma2)                               &
-     &          -frac*(vitw_amma(k,it_amma2)-vitw_amma(k,it_amma1))
-        ht_prof(k) = ht_amma(k,it_amma2)                                   &
-     &          -frac*(ht_amma(k,it_amma2)-ht_amma(k,it_amma1))
-        hq_prof(k) = hq_amma(k,it_amma2)                                   &
-     &          -frac*(hq_amma(k,it_amma2)-hq_amma(k,it_amma1))
-        enddo
-
-        return
-        END
 
 !=====================================================================
@@ -3516,2 +3419,563 @@
          return 
          end subroutine read_fire
+!=====================================================================
+      subroutine read_dice(fich_dice,nlevel,ntime                         &
+     &     ,zz,pres,th,qv,u,v,o3                                          &
+     &     ,shf,lhf,lwup,swup,tg,ustar,psurf,ug,vg                        &
+     &     ,hadvt,hadvq,hadvu,hadvv,w,omega)
+
+!program reading initial profils and forcings of the Dice case study
+
+
+      implicit none
+
+#include "netcdf.inc"
+
+      integer ntime,nlevel
+      integer l,k
+      character*80 :: fich_dice
+      real*8 time(ntime)
+      real*8 zz(nlevel)
+
+      real*8 th(nlevel),pres(nlevel)
+      real*8 qv(nlevel),u(nlevel),v(nlevel),o3(nlevel)
+      real*8 shf(ntime),lhf(ntime),lwup(ntime),swup(ntime),tg(ntime)
+      real*8 ustar(ntime),psurf(ntime),ug(ntime),vg(ntime)
+      real*8 hadvt(nlevel,ntime),hadvq(nlevel,ntime),hadvu(nlevel,ntime)
+      real*8 hadvv(nlevel,ntime),w(nlevel,ntime),omega(nlevel,ntime)
+
+      integer nid, ierr
+      integer nbvar3d
+      parameter(nbvar3d=30)
+      integer var3didin(nbvar3d)
+
+      ierr = NF_OPEN(fich_dice,NF_NOWRITE,nid)
+      if (ierr.NE.NF_NOERR) then
+         write(*,*) 'ERROR: Pb opening forcings nc file '
+         write(*,*) NF_STRERROR(ierr)
+         stop ""
+      endif
+
+
+       ierr=NF_INQ_VARID(nid,"height",var3didin(1)) 
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'height'
+         endif
+
+       ierr=NF_INQ_VARID(nid,"pf",var3didin(11)) 
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'pf'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"theta",var3didin(12))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'theta'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"qv",var3didin(13))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'qv'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"u",var3didin(14))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'u'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"v",var3didin(15))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'v'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"o3mmr",var3didin(16))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'o3'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"shf",var3didin(2))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'shf'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"lhf",var3didin(3))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'lhf'
+         endif
+      
+      ierr=NF_INQ_VARID(nid,"lwup",var3didin(4))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'lwup'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"swup",var3didin(5))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dqtdx'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"Tg",var3didin(6))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'Tg'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"ustar",var3didin(7))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'ustar'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"psurf",var3didin(8))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'psurf'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"Ug",var3didin(9))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'Ug'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"Vg",var3didin(10))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'Vg'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"hadvT",var3didin(17))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hadvT'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"hadvq",var3didin(18))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hadvq'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"hadvu",var3didin(19))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hadvu'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"hadvv",var3didin(20))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hadvv'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"w",var3didin(21))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'w'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"omega",var3didin(22))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'omega'
+      endif
+!dimensions lecture
+!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture zz ok',zz
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),pres)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(11),pres)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture pres ok',pres
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(12),th)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(12),th)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture th ok',th
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(13),qv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(13),qv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture qv ok',qv
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(14),u)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(14),u)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture u ok',u
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(15),v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(15),v)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture v ok',v
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(16),o3)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(16),o3)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture o3 ok',o3
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),shf)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(2),shf)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture shf ok',shf
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),lhf)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(3),lhf)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture lhf ok',lhf
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),lwup)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(4),lwup)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture lwup ok',lwup
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),swup)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(5),swup)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture swup ok',swup
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),tg)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(6),tg)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture tg ok',tg
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),ustar)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(7),ustar)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture ustar ok',ustar
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),psurf)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(8),psurf)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture psurf ok',psurf
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),ug)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(9),ug)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture ug ok',ug
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),vg)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(10),vg)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vg ok',vg
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(17),hadvt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(17),hadvt)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hadvt ok',hadvt
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(18),hadvq)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(18),hadvq)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hadvq ok',hadvq
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(19),hadvu)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(19),hadvu)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hadvu ok',hadvu
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(20),hadvv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(20),hadvv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hadvv ok',hadvv
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(21),w)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(21),w)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture w ok',w
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(22),omega)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(22),omega)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture omega ok',omega
+
+         return 
+         end subroutine read_dice
+!=====================================================================
+!     Reads CIRC input files      
+
+      SUBROUTINE read_circ(nlev_circ,cf,lwp,iwp,reliq,reice,t,z,p,pm,h2o,o3,sza)
+      
+      parameter (ncm_1=49180)
+#include "YOMCST.h"
+
+      real albsfc(ncm_1), albsfc_w(ncm_1)
+      real cf(nlev_circ), icefra(nlev_circ), deice(nlev_circ), &
+           reliq(nlev_circ), reice(nlev_circ), lwp(nlev_circ), iwp(nlev_circ)
+      real t(nlev_circ+1), z(nlev_circ+1), dz(nlev_circ), p(nlev_circ+1)
+      real aer_beta(nlev_circ), waer(nlev_circ), gaer(nlev_circ)
+      real pm(nlev_circ), tm(nlev_circ), h2o(nlev_circ), o3(nlev_circ)
+      real co2(nlev_circ), n2o(nlev_circ), co(nlev_circ), ch4(nlev_circ), &
+           o2(nlev_circ), ccl4(nlev_circ), f11(nlev_circ), f12(nlev_circ)
+!     za= zenital angle
+!     sza= cosinus angle zenital
+      real wavn(ncm_1), ssf(ncm_1),za,sza
+      integer nlev
+
+
+!     Open the files
+
+      open (11, file='Tsfc_sza_nlev_case.txt', status='old')
+      open (12, file='level_input_case.txt', status='old')
+      open (13, file='layer_input_case.txt', status='old')
+      open (14, file='aerosol_input_case.txt', status='old')
+      open (15, file='cloud_input_case.txt', status='old')
+      open (16, file='sfcalbedo_input_case.txt', status='old')
+      
+!     Read scalar information
+      do iskip=1,5
+         read (11, *)
+      enddo
+      read (11, '(i8)') nlev
+      read (11, '(f10.2)') tsfc
+      read (11, '(f10.2)') za
+      read (11, '(f10.4)') sw_dn_toa
+      sza=cos(za/180.*RPI)
+      print *,'nlev,tsfc,sza,sw_dn_toa,RPI',nlev,tsfc,sza,sw_dn_toa,RPI
+      close(11)
+
+!     Read level information
+      read (12, *)
+      do il=1,nlev
+         read (12, 302) ilev, z(il), p(il), t(il)
+         z(il)=z(il)*1000.    ! z donne en km
+         p(il)=p(il)*100.     ! p donne en mb
+      enddo
+302   format (i8, f8.3, 2f9.2)
+      close(12)
+
+!     Read layer information (midpoint values)
+      do iskip=1,3
+         read (13, *)
+      enddo
+      do il=1,nlev-1
+         read (13, 303) ilev,pm(il),tm(il),h2o(il),co2(il),o3(il), &
+                        n2o(il),co(il),ch4(il),o2(il),ccl4(il), &
+                        f11(il),f12(il)
+         pm(il)=pm(il)*100.
+      enddo
+303   format (i8, 2f9.2, 10(2x,e13.7))      
+      close(13)
+      
+!     Read aerosol layer information
+      do iskip=1,3
+         read (14, *)
+      enddo
+      read (14, '(f10.2)') aer_alpha
+      read (14, *)
+      read (14, *)
+      do il=1,nlev-1
+         read (14, 304) ilev, aer_beta(il), waer(il), gaer(il)
+      enddo
+304   format (i8, f9.5, 2f8.3)
+      close(14)
+      
+!     Read cloud information
+      do iskip=1,3
+         read (15, *)
+      enddo
+      do il=1,nlev-1
+         read (15, 305) ilev, cf(il), lwp(il), iwp(il), reliq(il), reice(il)
+         lwp(il)=lwp(il)/1000.          ! lwp donne en g/kg
+         iwp(il)=iwp(il)/1000.          ! iwp donne en g/kg
+         reliq(il)=reliq(il)/1000000.   ! reliq donne en microns
+         reice(il)=reice(il)/1000000.   ! reice donne en microns
+      enddo
+305   format (i8, f8.3, 4f9.2)
+      close(15)
+
+!     Read surface albedo (weighted & unweighted) and spectral solar irradiance
+      do iskip=1,6
+         read (16, *)
+      enddo
+      do icm_1=1,ncm_1
+         read (16, 306) wavn(icm_1), albsfc(icm_1), albsfc_w(icm_1), ssf(icm_1)
+      enddo
+306   format(f10.1, 2f12.5, f14.8)
+      close(16)
+ 
+      return 
+      end subroutine read_circ
+!=====================================================================
+!     Reads RTMIP input files      
+
+      SUBROUTINE read_rtmip(nlev_rtmip,play,plev,t,h2o,o3)
+      
+#include "YOMCST.h"
+
+      real t(nlev_rtmip), pt(nlev_rtmip),pb(nlev_rtmip),h2o(nlev_rtmip), o3(nlev_rtmip)
+      real temp(nlev_rtmip), play(nlev_rtmip),ovap(nlev_rtmip), oz(nlev_rtmip),plev(nlev_rtmip+1)
+      integer nlev
+
+
+!     Open the files
+
+      open (11, file='low_resolution_profile.txt', status='old')
+      
+!     Read level information
+      read (11, *)
+      do il=1,nlev_rtmip
+         read (11, 302) pt(il), pb(il), t(il),h2o(il),o3(il)
+      enddo
+      do il=1,nlev_rtmip
+         play(il)=pt(nlev_rtmip-il+1)*100.     ! p donne en mb
+         temp(il)=t(nlev_rtmip-il+1)
+         ovap(il)=h2o(nlev_rtmip-il+1)
+         oz(il)=o3(nlev_rtmip-il+1)
+      enddo
+      do il=1,39
+         plev(il)=play(il)+(play(il+1)-play(il))/2.
+         print *,'il p t ovap oz=',il,plev(il),temp(il),ovap(il),oz(il)
+      enddo
+      plev(41)=101300.
+302   format (e16.10,3x,e16.10,3x,e16.10,3x,e12.6,3x,e12.6)
+      close(12)
+ 
+      return 
+      end subroutine read_rtmip
+!=====================================================================
+
Index: LMDZ5/branches/testing/libf/phylmd/1D_decl_cases.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/1D_decl_cases.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/1D_decl_cases.h	(revision 2160)
@@ -1,2 +1,4 @@
+#include "netcdf.inc"
+
 ! Declarations specifiques au cas Toga
         character*80 :: fich_toga
@@ -33,4 +35,5 @@
         real u_mod(llm),v_mod(llm), ht_mod(llm),vt_mod(llm)
         real hq_mod(llm),vq_mod(llm),qv_mod(llm),ql_mod(llm),qt_mod(llm)
+        real th_mod(llm)
 
         real ts_cur
@@ -79,58 +82,5 @@
 
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!Declarations specifiques au cas AMMA
-        character*80 :: fich_amma
-! Option du cas AMMA ou on impose la discretisation verticale (Ap,Bp)
-        integer nlev_amma, nt_amma
-!       parameter (nlev_amma=29, nt_amma=48)  ! Fleur, juillet 2012
-        parameter (nlev_amma=36, nt_amma=48)  ! Romain, octobre 2012
-!       parameter (nlev_amma=26, nt_amma=48)  ! Test MPL feverier 2013
-        integer year_ini_amma, day_ini_amma, mth_ini_amma
-        real heure_ini_amma
-        real day_ju_ini_amma   ! Julian day of amma first day
-        parameter (year_ini_amma=2006) 
-        parameter (mth_ini_amma=7)
-        parameter (day_ini_amma=10)  ! 10 = 10Juil2006
-        parameter (heure_ini_amma=0.) !0h en secondes
-        real dt_amma
-        parameter (dt_amma=1800.)
-
-!profils initiaux:
-        real plev_amma(nlev_amma)
-        
-        real z_amma(nlev_amma)
-        real th_amma(nlev_amma),q_amma(nlev_amma)
-        real u_amma(nlev_amma)
-        real v_amma(nlev_amma)
-
-        real th_ammai(nlev_amma),q_ammai(nlev_amma)
-        real u_ammai(nlev_amma)
-        real v_ammai(nlev_amma)
-        real vitw_ammai(nlev_amma) 
-        real ht_ammai(nlev_amma)
-        real hq_ammai(nlev_amma)
-        real vt_ammai(nlev_amma)
-        real vq_ammai(nlev_amma)
-        
-!forcings
-        real ht_amma(nlev_amma,nt_amma)
-        real hq_amma(nlev_amma,nt_amma)
-        real vitw_amma(nlev_amma,nt_amma)
-        real lat_amma(nt_amma),sens_amma(nt_amma)
-
-!champs interpoles
-        real vitw_profamma(nlev_amma)
-        real ht_profamma(nlev_amma)
-        real hq_profamma(nlev_amma)
-        real lat_profamma,sens_profamma
-        real vt_profamma(nlev_amma)
-        real vq_profamma(nlev_amma)
-        real th_profamma(nlev_amma)
-        real q_profamma(nlev_amma)
-        real u_profamma(nlev_amma)
-        real v_profamma(nlev_amma)
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 !Declarations specifiques au cas FIRE
         character*80 :: fich_fire
@@ -143,4 +93,50 @@
         parameter (day_ini_fire=14)  ! 14 = 14Juil1987
         parameter (heure_ini_fire=0.) !0h en secondes
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!Declarations specifiques au cas DICE     (MPL 02072013)
+        character*80 :: fich_dice
+        integer nlev_dice, nt_dice
+        parameter (nlev_dice=70, nt_dice=145)  
+        integer year_ini_dice, day_ini_dice, mth_ini_dice
+        real heure_ini_dice
+        real day_ju_ini_dice   ! Julian day of dice first day
+        parameter (year_ini_dice=1999) 
+        parameter (mth_ini_dice=10)
+        parameter (day_ini_dice=23)  ! 23 = 23 october 1999
+        parameter (heure_ini_dice=68400.) !19UTC en secondes
+        real dt_dice
+        parameter (dt_dice=0.5*3600.) ! 1 forcage ttes les demi-heures
+
+!profils initiaux:
+        real plev_dice(nlev_dice)
+        
+        real zz_dice(nlev_dice)
+        real th_dice(nlev_dice),qv_dice(nlev_dice)
+        real u_dice(nlev_dice), v_dice(nlev_dice),o3_dice(nlev_dice)
+        real ht_dice(nlev_dice,nt_dice)
+        real hq_dice(nlev_dice,nt_dice), hu_dice(nlev_dice,nt_dice)
+        real hv_dice(nlev_dice,nt_dice)
+        real w_dice(nlev_dice,nt_dice),omega_dice(nlev_dice,nt_dice)
+        real o3_mod(llm),hu_mod(llm),hv_mod(llm)
+        real th_dicei(nlev_dice),qv_dicei(nlev_dice)
+        real u_dicei(nlev_dice), v_dicei(nlev_dice),o3_dicei(nlev_dice)
+        real ht_dicei(nlev_dice)
+        real hq_dicei(nlev_dice), hu_dicei(nlev_dice)
+        real hv_dicei(nlev_dice)
+        real w_dicei(nlev_dice),omega_dicei(nlev_dice)
+
+        
+!forcings
+        real shf_dice(nt_dice),lhf_dice(nt_dice)
+        real lwup_dice(nt_dice),swup_dice(nt_dice)
+        real tg_dice(nt_dice),ustar_dice(nt_dice),psurf_dice(nt_dice)
+        real ug_dice(nt_dice),vg_dice(nt_dice)
+
+        real shf_prof,lhf_prof,lwup_prof,swup_prof,tg_prof
+        real ustar_prof,psurf_prof,cdrag
+        real ht_profd(nlev_dice),hq_profd(nlev_dice),hu_profd(nlev_dice)
+        real hv_profd(nlev_dice),w_profd(nlev_dice)
+        real omega_profd(nlev_dice),ug_profd,vg_profd
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -216,4 +212,8 @@
         real d_t_z(llm), d_q_z(llm)
         real d_t_dyn_z(llm), d_q_dyn_z(llm)
+        real d_u_z(llm),d_v_z(llm)
+        real d_u_dyn(llm),d_v_dyn(llm)
+        real d_u_dyn_z(llm),d_v_dyn_z(llm)
+        real d_u_adv(llm),d_v_adv(llm)
         real zz(llm)
         real zfact
Index: LMDZ5/branches/testing/libf/phylmd/1D_interp_cases.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/1D_interp_cases.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/1D_interp_cases.h	(revision 2160)
@@ -78,4 +78,107 @@
 
       endif ! forcing_toga
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Interpolation DICE forcing 
+!---------------------------------------------------------------------
+      if (forcing_dice) then
+
+       if (prt_level.ge.1) then
+        print*,'#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_dice=',&
+     &    day,day1,(day-day1)*86400.,(day-day1)*86400/dt_dice
+       endif
+
+! time interpolation:
+      CALL interp_dice_time(daytime,day1,annee_ref                    &
+     &             ,year_ini_dice,day_ju_ini_dice,nt_dice,dt_dice     & 
+     &             ,nlev_dice,shf_dice,lhf_dice,lwup_dice,swup_dice   &
+     &             ,tg_dice,ustar_dice,psurf_dice,ug_dice,vg_dice     &
+     &             ,ht_dice,hq_dice,hu_dice,hv_dice,w_dice,omega_dice &
+     &             ,shf_prof,lhf_prof,lwup_prof,swup_prof,tg_prof     &
+     &             ,ustar_prof,psurf_prof,ug_profd,vg_profd           &
+     &             ,ht_profd,hq_profd,hu_profd,hv_profd,w_profd       &
+     &             ,omega_profd)
+!     do l = 1, llm
+!     print *,'llm l omega_profd',llm,l,omega_profd(l)
+!     enddo
+
+        if (type_ts_forcing.eq.1) ts_cur = tg_prof ! SST used in read_tsurf1d
+
+! vertical interpolation:
+      CALL interp_dice_vertical(play,nlev_dice,nt_dice,plev_dice        &
+     &         ,th_dice,qv_dice,u_dice,v_dice,o3_dice                   &
+     &         ,ht_profd,hq_profd,hu_profd,hv_profd,w_profd,omega_profd &
+     &         ,th_mod,qv_mod,u_mod,v_mod,o3_mod                        &
+     &         ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc)
+!     do l = 1, llm
+!      print *,'llm l omega_mod',llm,l,omega_mod(l)
+!     enddo
+
+! Les forcages DICE sont donnes /jour et non /seconde !
+      ht_mod(:)=ht_mod(:)/86400.
+      hq_mod(:)=hq_mod(:)/86400.
+      hu_mod(:)=hu_mod(:)/86400.
+      hv_mod(:)=hv_mod(:)/86400.
+
+!calcul de l'advection verticale a partir du omega (repris cas TWPICE, MPL 05082013)
+!Calcul des gradients verticaux
+!initialisation
+      d_t_z(:)=0.
+      d_q_z(:)=0.
+      d_u_z(:)=0.
+      d_v_z(:)=0.
+      DO l=2,llm-1
+       d_t_z(l)=(temp(l+1)-temp(l-1))/(play(l+1)-play(l-1))
+       d_q_z(l)=(q(l+1,1)-q(l-1,1)) /(play(l+1)-play(l-1))
+       d_u_z(l)=(u(l+1)-u(l-1))/(play(l+1)-play(l-1))
+       d_v_z(l)=(v(l+1)-v(l-1))/(play(l+1)-play(l-1))
+      ENDDO
+      d_t_z(1)=d_t_z(2)
+      d_q_z(1)=d_q_z(2)
+!     d_u_z(1)=u(2)/(play(2)-psurf)/5.
+!     d_v_z(1)=v(2)/(play(2)-psurf)/5.
+      d_u_z(1)=0.
+      d_v_z(1)=0.
+      d_t_z(llm)=d_t_z(llm-1)
+      d_q_z(llm)=d_q_z(llm-1)
+      d_u_z(llm)=d_u_z(llm-1)
+      d_v_z(llm)=d_v_z(llm-1)
+
+!Calcul de l advection verticale: 
+! utiliser omega (Pa/s) et non w (m/s) !! MP 20131108
+      d_t_dyn_z(:)=omega_mod(:)*d_t_z(:)
+      d_q_dyn_z(:)=omega_mod(:)*d_q_z(:)
+      d_u_dyn_z(:)=omega_mod(:)*d_u_z(:)
+      d_v_dyn_z(:)=omega_mod(:)*d_v_z(:)
+
+! large-scale forcing :
+!     tsurf = tg_prof    MPL 20130925 commente
+      psurf = psurf_prof
+! For this case, fluxes are imposed
+      fsens=-1*shf_prof
+      flat=-1*lhf_prof
+      ust=ustar_prof
+      tg=tg_prof
+      print *,'ust= ',ust
+      do l = 1, llm
+       ug(l)= ug_profd
+       vg(l)= vg_profd
+!       omega(l) = w_prof(l)
+!      rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+!       omega2(l)=-rho(l)*omega(l)
+!      omega(l) = w_mod(l)*(-rg*rho(l))
+       omega(l) = omega_mod(l)
+       omega2(l)= omega(l)/rg*airefi ! flxmass_w calcule comme ds physiq
+
+       alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
+       d_th_adv(l) = alpha*omega(l)/rcpd+ht_mod(l)-d_t_dyn_z(l)
+       d_q_adv(l,1) = hq_mod(l)-d_q_dyn_z(l)
+       d_u_adv(l) = hu_mod(l)-d_u_dyn_z(l)
+       d_v_adv(l) = hv_mod(l)-d_v_dyn_z(l)
+       dt_cooling(l) = 0.0
+      enddo
+
+      endif ! forcing_dice
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !---------------------------------------------------------------------
Index: LMDZ5/branches/testing/libf/phylmd/1D_read_forc_cases.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/1D_read_forc_cases.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/1D_read_forc_cases.h	(revision 2160)
@@ -290,9 +290,6 @@
 
       if (forcing_amma) then
-!read AMMA forcings
-      fich_amma='amma.nc'
-      call read_amma(fich_amma,nlev_amma,nt_amma                            &
-     &     ,z_amma,plev_amma,th_amma,q_amma,u_amma,v_amma,vitw_amma         &
-     &     ,ht_amma,hq_amma,sens_amma,lat_amma)
+
+      call read_1D_cases
 
       write(*,*) 'Forcing AMMA lu'
@@ -357,4 +354,117 @@
       endif !forcing_amma
 
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from DICE experiment (see file DICE_protocol_vn2-3.pdf)
+!---------------------------------------------------------------------
+
+      if (forcing_dice) then
+!read DICE forcings
+      fich_dice='dice_driver.nc'
+      call read_dice(fich_dice,nlev_dice,nt_dice                    &
+     &     ,zz_dice,plev_dice,th_dice,qv_dice,u_dice,v_dice,o3_dice &
+     &     ,shf_dice,lhf_dice,lwup_dice,swup_dice,tg_dice,ustar_dice& 
+     &     ,psurf_dice,ug_dice,vg_dice,ht_dice,hq_dice              &
+     &     ,hu_dice,hv_dice,w_dice,omega_dice)
+
+      write(*,*) 'Forcing DICE lu'
+
+!champs initiaux:
+      do k=1,nlev_dice
+         th_dicei(k)=th_dice(k)
+         qv_dicei(k)=qv_dice(k)
+         u_dicei(k)=u_dice(k)
+         v_dicei(k)=v_dice(k)
+         o3_dicei(k)=o3_dice(k)
+         ht_dicei(k)=ht_dice(k,1)
+         hq_dicei(k)=hq_dice(k,1)
+         hu_dicei(k)=hu_dice(k,1)
+         hv_dicei(k)=hv_dice(k,1)
+         w_dicei(k)=w_dice(k,1)
+         omega_dicei(k)=omega_dice(k,1)
+      enddo   
+      omega(:)=0.      
+      omega2(:)=0.
+      rho(:)=0.
+! vertical interpolation using TOGA interpolation routine:
+!      write(*,*)'avant interp vert', t_proftwp
+!
+!     CALL interp_dice_time(daytime,day1,annee_ref
+!    i             ,year_ini_dice,day_ju_ini_dice,nt_dice,dt_dice
+!    i             ,nlev_dice,shf_dice,lhf_dice,lwup_dice,swup_dice
+!    i             ,tg_dice,ustar_dice,psurf_dice,ug_dice,vg_dice
+!    i             ,ht_dice,hq_dice,hu_dice,hv_dice,w_dice,omega_dice
+!    o             ,shf_prof,lhf_prof,lwup_prof,swup_prof,tg_prof
+!    o             ,ustar_prof,psurf_prof,ug_profd,vg_profd
+!    o             ,ht_profd,hq_profd,hu_profd,hv_profd,w_profd
+!    o             ,omega_profd)
+
+      CALL interp_dice_vertical(play,nlev_dice,nt_dice,plev_dice       &
+     &         ,th_dicei,qv_dicei,u_dicei,v_dicei,o3_dicei             &
+     &         ,ht_dicei,hq_dicei,hu_dicei,hv_dicei,w_dicei,omega_dicei&
+     &         ,th_mod,qv_mod,u_mod,v_mod,o3_mod                       &
+     &         ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc)
+
+! Pour tester les advections horizontales de T et Q, on met w_mod et omega_mod à zero (MPL 20131108)
+!     w_mod(:,:)=0.
+!     omega_mod(:,:)=0.
+
+!       write(*,*) 'Profil initial forcing DICE interpole',t_mod
+! Les forcages DICE sont donnes /jour et non /seconde !
+      ht_mod(:)=ht_mod(:)/86400.
+      hq_mod(:)=hq_mod(:)/86400.
+      hu_mod(:)=hu_mod(:)/86400.
+      hv_mod(:)=hv_mod(:)/86400.
+
+! initial and boundary conditions :
+      write(*,*) 'SST initiale mxcalc: ',tsurf,mxcalc
+      do l = 1, llm
+! Ligne du dessous à decommenter si on lit theta au lieu de temp
+       temp(l) = th_mod(l)*(play(l)/pzero)**rkappa 
+!      temp(l) = t_mod(l) 
+       q(l,1) = qv_mod(l)
+       q(l,2) = 0.0
+!      print *,'read_forc: l,temp,q=',l,temp(l),q(l,1)
+       u(l) = u_mod(l)
+       v(l) = v_mod(l)
+       ug(l)=ug_dice(1)
+       vg(l)=vg_dice(1)
+       rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+!      omega(l) = w_mod(l)*(-rg*rho(l))
+       omega(l) = omega_mod(l)
+       omega2(l)=omega(l)/rg*airefi ! flxmass_w calcule comme ds physiq
+
+       alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
+!on applique le forcage total au premier pas de temps
+!attention: signe different de toga
+       d_th_adv(l) = alpha*omega(l)/rcpd+ht_mod(l)
+!forcage en th
+!       d_th_adv(l) = ht_mod(l)
+       d_q_adv(l,1) = hq_mod(l)
+       d_q_adv(l,2) = 0.0
+       dt_cooling(l)=0.
+      enddo     
+       write(*,*) 'Profil initial forcing DICE interpole temp39',temp(39)
+      
+
+!     ok_flux_surf=.false.
+      fsens=-1.*shf_dice(1)
+      flat=-1.*lhf_dice(1)
+! Le cas Dice doit etre force avec ustar mais on peut simplifier en forcant par 
+! le coefficient de trainee en surface cd**2=ustar*vent(k=1)
+! On commence ici a stocker ustar dans cdrag puis on terminera le calcul dans pbl_surface
+! MPL 05082013
+      ust=ustar_dice(1)
+      tg=tg_dice(1)
+      print *,'ust= ',ust
+      IF (tsurf .LE. 0.) THEN
+       tsurf= tg_dice(1)
+      ENDIF
+      psurf= psurf_dice(1)
+      solsw_in = (1.-albedo)/albedo*swup_dice(1)
+      sollw_in = (0.7*RSIGMA*temp(1)**4)-lwup_dice(1)
+      PRINT *,'1D_READ_FORC : solsw, sollw',solsw_in,sollw_in
+      endif !forcing_dice
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Index: LMDZ5/branches/testing/libf/phylmd/YOEGWD.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/YOEGWD.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/YOEGWD.h	(revision 2160)
@@ -14,8 +14,8 @@
       real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
 
-      REAL RUWMAX
+      REAL GWD_RANDO_RUWMAX
 !     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
 
-      REAL SAT ! saturation parameter in "FLOTT_GWD_rando"
+      REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando"
 !     S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013)
 
@@ -23,5 +23,5 @@
       COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT,        &
      &     GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC,         &
-     &     RUWMAX, sat
+     &     GWD_RANDO_RUWMAX, gwd_rando_sat
 
       save /YOEGWD/
Index: LMDZ5/branches/testing/libf/phylmd/YOEMETH.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/YOEMETH.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/YOEMETH.F90	(revision 2160)
@@ -0,0 +1,46 @@
+MODULE YOEMETH
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!     ** YOEMETH - CONTROL PARAMETERS FOR METHANE OXIDATION
+!     -----------------------------------------------------------------
+
+!     * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     C. JAKOB        E.C.M.W.F.          98/04/07
+!     D. Cugnet       Adapted for LMDZ    12/02/24
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *RALPHA1* REAL      CONSTANT IN TIME SCALE 1 CALCULATIONS
+!     *RALPHA2* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
+!     *RQLIM*   REAL      UPPERLIMIT OD SPECIFIC HUMIDITY FOR 
+!                         METHANE OXIDATION TO BE ACTIVE
+!     *RPBOTOX* REAL      PRESSURE BELOW WHICH METHANE OXIDATION
+!                         IS CONSIDERED ACTIVE
+!     *RPBOTPH* REAL      PRESSURE BELOW WHICH H2O PHOTOLYSIS
+!                         IS CONSIDERED ACTIVE
+!     *RPTOPOX* REAL      PRESSURE BELOW WHICH SHORTEST TIME SCALE
+!                         IS USED IN METHANE OXIDATION
+!     *RPTOPPH* REAL      PRESSURE BELOW WHICH SHORTEST TIME SCALE
+!                         IS USED IN H2O PHOTOLYISIS
+!     *RALPHA3* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
+!     *RLOGPPH* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
+
+REAL :: RALPHA1
+REAL :: RALPHA2
+REAL :: RQLIM
+REAL :: RPBOTOX
+REAL :: RPBOTPH
+REAL :: RPTOPOX
+REAL :: RPTOPPH
+REAL :: RALPHA3
+REAL :: RLOGPPH
+
+END MODULE YOEMETH
+
+
Index: LMDZ5/branches/testing/libf/phylmd/add_pbl_tend.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/add_pbl_tend.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/add_pbl_tend.F90	(revision 2160)
@@ -1,3 +1,3 @@
-SUBROUTINE add_pbl_tend(zdu, zdv, zdt, zdq, zdql, paprs, text)
+SUBROUTINE add_pbl_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text)
   ! ======================================================================
   ! Ajoute les tendances de couche limite, soit determinees par la
@@ -27,5 +27,5 @@
   ! ------------
   REAL zdu(klon, klev), zdv(klon, klev)
-  REAL zdt(klon, klev), zdq(klon, klev), zdql(klon, klev)
+  REAL zdt(klon, klev), zdq(klon, klev), zdql(klon, klev), zdqi(klon, klev)
   CHARACTER *(*) text
   REAL paprs(klon,klev+1)
@@ -46,7 +46,7 @@
     PRINT *, ' add_pbl_tend, zzdt ', zzdt
     PRINT *, ' add_pbl_tend, zzdq ', zzdq
-    CALL add_phys_tend(zdu, zdv, zzdt, zzdq, zdql, paprs, text)
+    CALL add_phys_tend(zdu, zdv, zzdt, zzdq, zdql, zdqi, paprs, text)
   ELSE
-    CALL add_phys_tend(zdu, zdv, zdt, zdq, zdql, paprs, text)
+    CALL add_phys_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text)
   END IF
 
Index: LMDZ5/branches/testing/libf/phylmd/add_phys_tend.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/add_phys_tend.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/add_phys_tend.F90	(revision 2160)
@@ -2,5 +2,5 @@
 ! $Id$
 !
-SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,paprs,text)
+SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,paprs,text)
 !======================================================================
 ! Ajoute les tendances des variables physiques aux variables 
@@ -25,5 +25,5 @@
 !------------
 REAL zdu(klon,klev),zdv(klon,klev)
-REAL zdt(klon,klev),zdq(klon,klev),zdql(klon,klev)
+REAL zdt(klon,klev),zdq(klon,klev),zdql(klon,klev),zdqi(klon,klev)
 REAL paprs(klon,klev+1)
 CHARACTER*(*) text
@@ -66,4 +66,5 @@
      v_seri(:,:)=v_seri(:,:)+zdv(:,:)
      ql_seri(:,:)=ql_seri(:,:)+zdql(:,:)
+     qs_seri(:,:)=qs_seri(:,:)+zdqi(:,:)
 
 !======================================================================
Index: LMDZ5/branches/testing/libf/phylmd/aero_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/aero_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/aero_mod.F90	(revision 2160)
@@ -6,20 +6,24 @@
 ! 1/ Total number of aerosols for which an aerosol optical depth is provided
 !--strat aerosols are only prescribed naero_tot = 10 ==> 11 
+!--adding nitrate naero_tot = 14 OB
 
-  INTEGER, PARAMETER :: naero_tot = 11
+  INTEGER, PARAMETER :: naero_tot = 14
 
 ! Identification number used in aeropt_2bands and aeropt_5wv
 ! corresponding to naero_tot
-  INTEGER, PARAMETER :: id_ASBCM    = 1
-  INTEGER, PARAMETER :: id_ASPOMM   = 2
-  INTEGER, PARAMETER :: id_ASSO4M   = 3
-  INTEGER, PARAMETER :: id_CSSO4M   = 4
-  INTEGER, PARAMETER :: id_SSSSM    = 5
-  INTEGER, PARAMETER :: id_CSSSM    = 6
-  INTEGER, PARAMETER :: id_ASSSM    = 7
-  INTEGER, PARAMETER :: id_CIDUSTM  = 8
-  INTEGER, PARAMETER :: id_AIBCM    = 9
-  INTEGER, PARAMETER :: id_AIPOMM   = 10
-  INTEGER, PARAMETER :: id_STRAT   = 11
+  INTEGER, PARAMETER :: id_ASBCM_phy    = 1
+  INTEGER, PARAMETER :: id_ASPOMM_phy   = 2
+  INTEGER, PARAMETER :: id_ASSO4M_phy   = 3
+  INTEGER, PARAMETER :: id_CSSO4M_phy   = 4
+  INTEGER, PARAMETER :: id_SSSSM_phy    = 5
+  INTEGER, PARAMETER :: id_CSSSM_phy    = 6
+  INTEGER, PARAMETER :: id_ASSSM_phy    = 7
+  INTEGER, PARAMETER :: id_CIDUSTM_phy  = 8
+  INTEGER, PARAMETER :: id_AIBCM_phy    = 9
+  INTEGER, PARAMETER :: id_AIPOMM_phy   = 10
+  INTEGER, PARAMETER :: id_ASNO3M_phy   = 11
+  INTEGER, PARAMETER :: id_CSNO3M_phy   = 12
+  INTEGER, PARAMETER :: id_CINO3M_phy   = 13
+  INTEGER, PARAMETER :: id_STRAT_phy    = 14
 
 ! Corresponding names for the aerosols
@@ -35,4 +39,7 @@
        "AIBCM  ", &
        "AIPOMM ", &
+       "ASNO3M ", & 
+       "CSNO3M ", &
+       "CINO3M ", &
        "STRAT  " /)
 
@@ -66,10 +73,12 @@
   ! 9 = NO3    
 
-! Number of  wavelengths
+! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
   INTEGER, PARAMETER :: nwave = 5
+  INTEGER, PARAMETER :: nwave_lw = 1
 
 ! Number of modes spectral bands
   INTEGER, parameter :: nbands = 2
-  INTEGER, parameter :: nbands_rrtm = 6
+  INTEGER, parameter :: nbands_sw_rrtm = 6
+  INTEGER, parameter :: nbands_lw_rrtm = 16
 
 END MODULE aero_mod
Index: LMDZ5/branches/testing/libf/phylmd/aeropt_2bands.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/aeropt_2bands.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/aeropt_2bands.F90	(revision 2160)
@@ -29,7 +29,7 @@
   REAL, DIMENSION(klon,klev),     INTENT(in)  :: pdel
   REAL,                           INTENT(in)  :: delt
-  REAL, DIMENSION(klon,klev,naero_spc),   INTENT(in)  :: m_allaer
+  REAL, DIMENSION(klon,klev,naero_tot),   INTENT(in)  :: m_allaer
 !RAF
-  REAL, DIMENSION(klon,klev,naero_spc),   INTENT(in)  :: m_allaer_pi
+  REAL, DIMENSION(klon,klev,naero_tot),   INTENT(in)  :: m_allaer_pi
   REAL, DIMENSION(klon,klev),     INTENT(in)  :: RHcl       ! humidite relative ciel clair
 !RAF  REAL, DIMENSION(klon,naero_tot),INTENT(in)  :: fractnat_allaer
@@ -136,7 +136,7 @@
   INTEGER, ALLOCATABLE, DIMENSION(:)   :: aerosol_name
   INTEGER :: nb_aer
-  REAL, DIMENSION(klon,klev,naero_spc) :: mass_temp
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
 !RAF
-  REAL, DIMENSION(klon,klev,naero_spc) :: mass_temp_pi
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp_pi
 
   !
@@ -607,39 +607,39 @@
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M
-     aerosol_name(2) = id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy
+     aerosol_name(2) = id_CSSO4M_phy
   ELSEIF (flag_aerosol .EQ. 2) THEN
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASBCM
-     aerosol_name(2) = id_AIBCM
+     aerosol_name(1) = id_ASBCM_phy
+     aerosol_name(2) = id_AIBCM_phy
   ELSEIF (flag_aerosol .EQ. 3) THEN 
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASPOMM
-     aerosol_name(2) = id_AIPOMM
+     aerosol_name(1) = id_ASPOMM_phy
+     aerosol_name(2) = id_AIPOMM_phy
   ELSEIF (flag_aerosol .EQ. 4) THEN 
      nb_aer = 3
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CSSSM
-     aerosol_name(2) = id_SSSSM
-     aerosol_name(3) = id_ASSSM
+     aerosol_name(1) = id_CSSSM_phy
+     aerosol_name(2) = id_SSSSM_phy
+     aerosol_name(3) = id_ASSSM_phy
   ELSEIF (flag_aerosol .EQ. 5) THEN 
      nb_aer = 1
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CIDUSTM
+     aerosol_name(1) = id_CIDUSTM_phy
   ELSEIF (flag_aerosol .EQ. 6) THEN 
      nb_aer = 10
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M      
-     aerosol_name(2) = id_ASBCM
-     aerosol_name(3) = id_AIBCM
-     aerosol_name(4) = id_ASPOMM
-     aerosol_name(5) = id_AIPOMM
-     aerosol_name(6) = id_CSSSM
-     aerosol_name(7) = id_SSSSM
-     aerosol_name(8) = id_ASSSM
-     aerosol_name(9) = id_CIDUSTM
-     aerosol_name(10)= id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy
+     aerosol_name(2) = id_ASBCM_phy
+     aerosol_name(3) = id_AIBCM_phy
+     aerosol_name(4) = id_ASPOMM_phy
+     aerosol_name(5) = id_AIPOMM_phy
+     aerosol_name(6) = id_CSSSM_phy
+     aerosol_name(7) = id_SSSSM_phy
+     aerosol_name(8) = id_ASSSM_phy
+     aerosol_name(9) = id_CIDUSTM_phy
+     aerosol_name(10)= id_CSSO4M_phy
   ENDIF
 
@@ -678,43 +678,43 @@
   DO m=1,nb_aer   ! tau is only computed for each mass
     fac=1.0
-     IF (aerosol_name(m).EQ.id_ASBCM) THEN
+     IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
          soluble=.TRUE.
          spsol=1
          spss=0
-     ELSEIF (aerosol_name(m).EQ.id_ASPOMM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
         soluble=.TRUE.
         spsol=2 
         spss=0
-     ELSEIF (aerosol_name(m).EQ.id_ASSO4M) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_ASSO4M_phy) THEN 
         soluble=.TRUE.
         spsol=3
         spss=0
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-     ELSEIF  (aerosol_name(m).EQ.id_CSSO4M) THEN
+     ELSEIF  (aerosol_name(m).EQ.id_CSSO4M_phy) THEN
         soluble=.TRUE.
         spsol=4
         spss=0
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-     ELSEIF (aerosol_name(m).EQ.id_SSSSM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_SSSSM_phy) THEN 
          soluble=.TRUE.
          spsol=5
          spss=3
-     ELSEIF (aerosol_name(m).EQ.id_CSSSM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
          soluble=.TRUE.
          spsol=6
          spss=2
-     ELSEIF (aerosol_name(m).EQ.id_ASSSM) THEN
+     ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
          soluble=.TRUE.
          spsol=7
          spss=1
-     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
          soluble=.FALSE.
          spinsol=1
          spss=0
-     ELSEIF  (aerosol_name(m).EQ.id_AIBCM) THEN 
+     ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
          soluble=.FALSE.
          spinsol=2
          spss=0
-     ELSEIF (aerosol_name(m).EQ.id_AIPOMM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
          soluble=.FALSE.
          spinsol=3
@@ -944,35 +944,45 @@
         DO k=1, KLEV
           DO i=1, KLON
-            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASSO4M,inu)+tau_ae(i,k,id_CSSO4M,inu)+ &
-                                           tau_ae(i,k,id_ASBCM,inu)+tau_ae(i,k,id_AIBCM,inu)+   &						     
-                                           tau_ae(i,k,id_ASPOMM,inu)+tau_ae(i,k,id_AIPOMM,inu)+ &	
-                                           tau_ae(i,k,id_ASSSM,inu)+tau_ae(i,k,id_CSSSM,inu)+   &
-                                           tau_ae(i,k,id_SSSSM,inu)+ tau_ae(i,k,id_CIDUSTM,inu)
+            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASSO4M_phy,inu)+tau_ae(i,k,id_CSSO4M_phy,inu)+ &
+                                           tau_ae(i,k,id_ASBCM_phy,inu)+tau_ae(i,k,id_AIBCM_phy,inu)+   &						     
+                                           tau_ae(i,k,id_ASPOMM_phy,inu)+tau_ae(i,k,id_AIPOMM_phy,inu)+ &	
+                                           tau_ae(i,k,id_ASSSM_phy,inu)+tau_ae(i,k,id_CSSSM_phy,inu)+   &
+                                           tau_ae(i,k,id_SSSSM_phy,inu)+ tau_ae(i,k,id_CIDUSTM_phy,inu)
 	     tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
                  
-             piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)+ &
-                                             tau_ae(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)+ &
-                                             tau_ae(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)+ &
-                                             tau_ae(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)+ &
-                                             tau_ae(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)+ &
-                                             tau_ae(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)+ &	
-                                             tau_ae(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)+ &
-                                             tau_ae(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)+ &
-                                             tau_ae(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)+ &
-                                             tau_ae(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)) &
+             piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+ &
+                                             tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)+ &
+                                             tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)+ &
+                                             tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)+ &
+                                             tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)+ &
+                                             tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)+ &	
+                                             tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)+ &
+                                             tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)+ &
+                                             tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)+ &
+                                             tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) &
                                             /tau_allaer(i,k,mrfspecies,inu)
 	     piz_allaer(i,k,mrfspecies,inu)=MAX(piz_allaer(i,k,mrfspecies,inu),0.1)
 
-             cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)*cg_ae(i,k,id_ASSO4M,inu)+ &
-                      tau_ae(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)*cg_ae(i,k,id_CSSO4M,inu)+ &
-                      tau_ae(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)*cg_ae(i,k,id_ASBCM,inu)+ &
-                      tau_ae(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)*cg_ae(i,k,id_AIBCM,inu)+ &
-                      tau_ae(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)*cg_ae(i,k,id_ASPOMM,inu)+ &
-                      tau_ae(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)*cg_ae(i,k,id_AIPOMM,inu)+ &	
-                      tau_ae(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)*cg_ae(i,k,id_ASSSM,inu)+ &
-                      tau_ae(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)*cg_ae(i,k,id_CSSSM,inu)+ &
-                      tau_ae(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)*cg_ae(i,k,id_SSSSM,inu)+ &
-                      tau_ae(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)*cg_ae(i,k,id_CIDUSTM,inu))/ &
-                      (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
+             cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)* &
+              piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ &
+              tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)* &
+              cg_ae(i,k,id_CSSO4M_phy,inu)+ &
+              tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)* &
+              cg_ae(i,k,id_ASBCM_phy,inu)+ &
+              tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)* &
+              cg_ae(i,k,id_AIBCM_phy,inu)+ &
+              tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)* &
+              cg_ae(i,k,id_ASPOMM_phy,inu)+ &
+              tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)* &
+              cg_ae(i,k,id_AIPOMM_phy,inu)+ &
+              tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)* &
+              cg_ae(i,k,id_ASSSM_phy,inu)+ &
+              tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)* &
+              cg_ae(i,k,id_CSSSM_phy,inu)+ &
+              tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)* &
+              cg_ae(i,k,id_SSSSM_phy,inu)+ &
+              tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)* &
+              cg_ae(i,k,id_CIDUSTM_phy,inu))/ &
+              (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
           ENDDO    
         ENDDO 
@@ -983,41 +993,41 @@
           DO i=1, KLON
 !RAF
-	 	 tau_allaer(i,k,mrfspecies,inu)=tau_ae_pi(i,k,id_ASSO4M,inu)+ &
-                      tau_ae_pi(i,k,id_CSSO4M,inu)+ &
-                      tau_ae_pi(i,k,id_ASBCM,inu)+ &
-                      tau_ae_pi(i,k,id_AIBCM,inu)+ &
-                      tau_ae_pi(i,k,id_ASPOMM,inu)+ &
-                      tau_ae_pi(i,k,id_AIPOMM,inu)+ &	
-                      tau_ae_pi(i,k,id_ASSSM,inu)+ &
-                      tau_ae_pi(i,k,id_CSSSM,inu)+ &
-                      tau_ae_pi(i,k,id_SSSSM,inu)+ &
-                      tau_ae_pi(i,k,id_CIDUSTM,inu)
+	 	 tau_allaer(i,k,mrfspecies,inu)=tau_ae_pi(i,k,id_ASSO4M_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CSSO4M_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASBCM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_AIBCM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASPOMM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_AIPOMM_phy,inu)+ &	
+                      tau_ae_pi(i,k,id_ASSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CSSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_SSSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CIDUSTM_phy,inu)
 	         tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
 
-	 	 piz_allaer(i,k,mrfspecies,inu)=(tau_ae_pi(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)+ &
-                      tau_ae_pi(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)+ &
-                      tau_ae_pi(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)+ &
-                      tau_ae_pi(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)+ &
-                      tau_ae_pi(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)+ &
-                      tau_ae_pi(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)+ &	
-                      tau_ae_pi(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)+ &
-                      tau_ae_pi(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)+ &
-                      tau_ae_pi(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)+ &
-                      tau_ae_pi(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)) &
+	 	 piz_allaer(i,k,mrfspecies,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)+ &	
+                      tau_ae_pi(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) &
                       /tau_allaer(i,k,mrfspecies,inu)
 	         piz_allaer(i,k,mrfspecies,inu)=MAX(piz_allaer(i,k,mrfspecies,inu),0.1)
 
 	 	 cg_allaer(i,k,mrfspecies,inu)=(&
-                      tau_ae_pi(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)*cg_ae(i,k,id_ASSO4M,inu)+ &
-                      tau_ae_pi(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)*cg_ae(i,k,id_CSSO4M,inu)+ &
-                      tau_ae_pi(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)*cg_ae(i,k,id_ASBCM,inu)+ &
-                      tau_ae_pi(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)*cg_ae(i,k,id_AIBCM,inu)+ &
-                      tau_ae_pi(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)*cg_ae(i,k,id_ASPOMM,inu)+ &
-                      tau_ae_pi(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)*cg_ae(i,k,id_AIPOMM,inu)+ &
-                      tau_ae_pi(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)*cg_ae(i,k,id_ASSSM,inu)+ &
-                      tau_ae_pi(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)*cg_ae(i,k,id_CSSSM,inu)+ &
-                      tau_ae_pi(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)*cg_ae(i,k,id_SSSSM,inu)+ &
-                      tau_ae_pi(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)*&
-                      cg_ae(i,k,id_CIDUSTM,inu))/ &
+                      tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)*cg_ae(i,k,id_CSSO4M_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)*cg_ae(i,k,id_ASBCM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)*cg_ae(i,k,id_AIBCM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)*cg_ae(i,k,id_ASPOMM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)*cg_ae(i,k,id_AIPOMM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)*cg_ae(i,k,id_ASSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)*cg_ae(i,k,id_CSSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)*cg_ae(i,k,id_SSSSM_phy,inu)+ &
+                      tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)*&
+                      cg_ae(i,k,id_CIDUSTM_phy,inu))/ &
                       (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
           ENDDO
@@ -1027,12 +1037,12 @@
         DO k=1, KLEV
           DO i=1, KLON
-	    tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASBCM,inu)+tau_ae(i,k,id_AIBCM,inu)
+	    tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASBCM_phy,inu)+tau_ae(i,k,id_AIBCM_phy,inu)
 	    tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
-	    piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu) &
-                      +tau_ae(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu))/ &
+	    piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu) &
+                      +tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu))/ &
                       tau_allaer(i,k,mrfspecies,inu)
 	    piz_allaer(i,k,mrfspecies,inu)=MAX(piz_allaer(i,k,mrfspecies,inu),0.1)
-            cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu) *cg_ae(i,k,id_ASBCM,inu)&
-                      +tau_ae(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)*cg_ae(i,k,id_AIBCM,inu))/ &
+            cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu) *cg_ae(i,k,id_ASBCM_phy,inu)&
+                      +tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)*cg_ae(i,k,id_AIBCM_phy,inu))/ &
                       (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
           ENDDO
@@ -1043,13 +1053,15 @@
         DO k=1, KLEV
           DO i=1, KLON
-            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASSO4M,inu)+tau_ae(i,k,id_CSSO4M,inu)
+            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASSO4M_phy,inu)+tau_ae(i,k,id_CSSO4M_phy,inu)
 	    tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
-            piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu) &
-                      +tau_ae(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu))/ &
+            piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu) &
+                      +tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu))/ &
                       tau_allaer(i,k,mrfspecies,inu)
 	    piz_allaer(i,k,mrfspecies,inu)=MAX(piz_allaer(i,k,mrfspecies,inu),0.1)
-            cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu) *cg_ae(i,k,id_CSSO4M,inu)&
-                      +tau_ae(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)*cg_ae(i,k,id_ASSO4M,inu))/ &
-                      (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
+            cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_CSSO4M_phy,inu)* &
+            piz_ae(i,k,id_CSSO4M_phy,inu) *cg_ae(i,k,id_CSSO4M_phy,inu)&
+            +tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)* &
+            cg_ae(i,k,id_ASSO4M_phy,inu))/ &
+            (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
           ENDDO
         ENDDO
@@ -1059,12 +1071,12 @@
         DO k=1, KLEV
           DO i=1, KLON
-            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASPOMM,inu)+tau_ae(i,k,id_AIPOMM,inu)
+            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASPOMM_phy,inu)+tau_ae(i,k,id_AIPOMM_phy,inu)
             tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
-	    piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu) &
-                      +tau_ae(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu))/ &
+	    piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu) &
+                      +tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu))/ &
                       tau_allaer(i,k,mrfspecies,inu)
 	    piz_allaer(i,k,mrfspecies,inu)=MAX(piz_allaer(i,k,mrfspecies,inu),0.1)
-	    cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu) *cg_ae(i,k,id_ASPOMM,inu)&
-                      +tau_ae(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)*cg_ae(i,k,id_AIPOMM,inu))/ &
+	    cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu) *cg_ae(i,k,id_ASPOMM_phy,inu)&
+                      +tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)*cg_ae(i,k,id_AIPOMM_phy,inu))/ &
                       (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
           ENDDO
@@ -1075,8 +1087,8 @@
         DO k=1, KLEV
           DO i=1, KLON
-            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_CIDUSTM,inu)
+            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_CIDUSTM_phy,inu)
 	    tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
-            piz_allaer(i,k,mrfspecies,inu)=piz_ae(i,k,id_CIDUSTM,inu)
-	    cg_allaer(i,k,mrfspecies,inu)=cg_ae(i,k,id_CIDUSTM,inu)
+            piz_allaer(i,k,mrfspecies,inu)=piz_ae(i,k,id_CIDUSTM_phy,inu)
+	    cg_allaer(i,k,mrfspecies,inu)=cg_ae(i,k,id_CIDUSTM_phy,inu)
           ENDDO
         ENDDO
@@ -1086,14 +1098,14 @@
         DO k=1, KLEV
           DO i=1, KLON
-            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASSSM,inu)+tau_ae(i,k,id_CSSSM,inu)+tau_ae(i,k,id_SSSSM,inu)
+            tau_allaer(i,k,mrfspecies,inu)=tau_ae(i,k,id_ASSSM_phy,inu)+tau_ae(i,k,id_CSSSM_phy,inu)+tau_ae(i,k,id_SSSSM_phy,inu)
             tau_allaer(i,k,mrfspecies,inu)=MAX(tau_allaer(i,k,mrfspecies,inu),1e-5)
-            piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu) &
-                    +tau_ae(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu) &
-                    +tau_ae(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu))/ &
+            piz_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu) &
+                    +tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu) &
+                    +tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu))/ &
                     tau_allaer(i,k,mrfspecies,inu)
             piz_allaer(i,k,mrfspecies,inu)=MAX(piz_allaer(i,k,mrfspecies,inu),0.1)
-            cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu) *cg_ae(i,k,id_ASSSM,inu)&
-                    +tau_ae(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)*cg_ae(i,k,id_CSSSM,inu) &
-                    +tau_ae(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)*cg_ae(i,k,id_SSSSM,inu))/ &
+            cg_allaer(i,k,mrfspecies,inu)=(tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu) *cg_ae(i,k,id_ASSSM_phy,inu)&
+                    +tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)*cg_ae(i,k,id_CSSSM_phy,inu) &
+                    +tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)*cg_ae(i,k,id_SSSSM_phy,inu))/ &
                     (tau_allaer(i,k,mrfspecies,inu)*piz_allaer(i,k,mrfspecies,inu))
           ENDDO
Index: LMDZ5/branches/testing/libf/phylmd/aeropt_5wv.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/aeropt_5wv.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/aeropt_5wv.F90	(revision 2160)
@@ -57,5 +57,5 @@
   REAL, DIMENSION(klon,klev), INTENT(in)   :: pdel
   REAL, INTENT(in)                         :: delt
-  REAL, DIMENSION(klon,klev,naero_spc), INTENT(in) :: m_allaer
+  REAL, DIMENSION(klon,klev,naero_tot), INTENT(in) :: m_allaer
   REAL, DIMENSION(klon,klev), INTENT(in)   :: RHcl     ! humidite relative ciel clair
   INTEGER,INTENT(in)                       :: flag_aerosol
@@ -67,6 +67,8 @@
   !
   REAL, DIMENSION(klon), INTENT(out)          :: ai      ! POLDER aerosol index 
-  REAL, DIMENSION(klon,nwave,naero_spc), INTENT(out)      :: tausum
-  REAL, DIMENSION(klon,klev,nwave,naero_spc), INTENT(out) :: tau
+!  REAL, DIMENSION(klon,nwave,naero_spc), INTENT(out)      :: tausum
+!  REAL, DIMENSION(klon,klev,nwave,naero_spc), INTENT(out) :: tau
+  REAL, DIMENSION(klon,nwave,naero_tot), INTENT(out)      :: tausum
+  REAL, DIMENSION(klon,klev,nwave,naero_tot), INTENT(out) :: tau
 
 
@@ -77,5 +79,5 @@
   LOGICAL :: soluble
   
-  INTEGER :: i, k, ierr, m
+  INTEGER :: i, k, ierr, m, aerindex
   INTEGER :: spsol, spinsol, spss, la
   INTEGER :: RH_num(klon,klev)
@@ -156,5 +158,5 @@
   REAL :: piz_aeri_5wv(las,naero_insoluble)           ! Insoluble comp. 1- Dust: 2- BC; 3- POM
 
-  REAL, DIMENSION(klon,klev,naero_spc) :: mass_temp
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
   
   !
@@ -639,39 +641,39 @@
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M
-     aerosol_name(2) = id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy
+     aerosol_name(2) = id_CSSO4M_phy
   ELSEIF (flag_aerosol .EQ. 2) THEN
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASBCM
-     aerosol_name(2) = id_AIBCM
+     aerosol_name(1) = id_ASBCM_phy
+     aerosol_name(2) = id_AIBCM_phy
   ELSEIF (flag_aerosol .EQ. 3) THEN 
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASPOMM
-     aerosol_name(2) = id_AIPOMM
+     aerosol_name(1) = id_ASPOMM_phy
+     aerosol_name(2) = id_AIPOMM_phy
   ELSEIF (flag_aerosol .EQ. 4) THEN 
      nb_aer = 3
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CSSSM
-     aerosol_name(2) = id_SSSSM
-     aerosol_name(3) = id_ASSSM
+     aerosol_name(1) = id_CSSSM_phy
+     aerosol_name(2) = id_SSSSM_phy
+     aerosol_name(3) = id_ASSSM_phy
   ELSEIF (flag_aerosol .EQ. 5) THEN 
      nb_aer = 1
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CIDUSTM
+     aerosol_name(1) = id_CIDUSTM_phy
   ELSEIF (flag_aerosol .EQ. 6) THEN 
      nb_aer = 10
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M      
-     aerosol_name(2) = id_ASBCM
-     aerosol_name(3) = id_AIBCM
-     aerosol_name(4) = id_ASPOMM
-     aerosol_name(5) = id_AIPOMM
-     aerosol_name(6) = id_CSSSM
-     aerosol_name(7) = id_SSSSM
-     aerosol_name(8) = id_ASSSM
-     aerosol_name(9) = id_CIDUSTM
-     aerosol_name(10) = id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy
+     aerosol_name(2) = id_ASBCM_phy
+     aerosol_name(3) = id_AIBCM_phy
+     aerosol_name(4) = id_ASPOMM_phy
+     aerosol_name(5) = id_AIPOMM_phy
+     aerosol_name(6) = id_CSSSM_phy
+     aerosol_name(7) = id_SSSSM_phy
+     aerosol_name(8) = id_ASSSM_phy
+     aerosol_name(9) = id_CIDUSTM_phy
+     aerosol_name(10) = id_CSSO4M_phy
   ENDIF
 
@@ -712,43 +714,43 @@
   DO m=1,nb_aer   ! tau is only computed for each mass    
     fac=1.0
-    IF (aerosol_name(m).EQ.id_ASBCM) THEN
+    IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
         soluble=.TRUE.
         spsol=1
         spss=0
-    ELSEIF (aerosol_name(m).EQ.id_ASPOMM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
         soluble=.TRUE.
         spsol=2 
         spss=0
-    ELSEIF (aerosol_name(m).EQ.id_ASSO4M) THEN
+    ELSEIF (aerosol_name(m).EQ.id_ASSO4M_phy) THEN
         soluble=.TRUE.
         spsol=3
         spss=0
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-    ELSEIF (aerosol_name(m).EQ.id_CSSO4M) THEN
+    ELSEIF (aerosol_name(m).EQ.id_CSSO4M_phy) THEN
         soluble=.TRUE.
         spsol=4
         spss=0
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-    ELSEIF (aerosol_name(m).EQ.id_SSSSM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_SSSSM_phy) THEN 
         soluble=.TRUE.
         spsol=5
         spss=3
-    ELSEIF (aerosol_name(m).EQ.id_CSSSM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
         soluble=.TRUE.
         spsol=6
         spss=2
-    ELSEIF (aerosol_name(m).EQ.id_ASSSM) THEN
+    ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
         soluble=.TRUE.
         spsol=7
         spss=1
-    ELSEIF (aerosol_name(m).EQ.id_CIDUSTM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
         soluble=.FALSE.
         spinsol=1
         spss=0
-    ELSEIF  (aerosol_name(m).EQ.id_AIBCM) THEN 
+    ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
         soluble=.FALSE.
         spinsol=2
         spss=0
-    ELSEIF (aerosol_name(m).EQ.id_AIPOMM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
         soluble=.FALSE.
         spinsol=3
@@ -765,4 +767,6 @@
       used_tau(naero_soluble+spinsol)=.TRUE.
     ENDIF
+
+    aerindex=aerosol_name(m)
 
     DO la=1,las
@@ -779,7 +783,7 @@
                 H=rh(i,k)/100
                 tau_ae5wv_int=A1_ASSSM(k)+A2_ASSSM(k)*H+A3_ASSSM(k)/(H-1.05)
-                tau(i,k,la,spsol) = mass_temp(i,k,spsol)*1000.*zdp1(i,k)   &
+                tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)   &
                                    *tau_ae5wv_int*delt*fac
-                tausum(i,la,spsol)=tausum(i,la,spsol)+tau(i,k,la,spsol)
+                tausum(i,la,aerindex)=tausum(i,la,aerindex)+tau(i,k,la,aerindex)
               ENDDO
             ENDDO
@@ -794,7 +798,7 @@
                 H=rh(i,k)/100
                 tau_ae5wv_int=A1_CSSSM(k)+A2_CSSSM(k)*H+A3_CSSSM(k)/(H-1.05)
-                tau(i,k,la,spsol) = mass_temp(i,k,spsol)*1000.*zdp1(i,k)  &
+                tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)  &
                                    *tau_ae5wv_int*delt*fac
-                tausum(i,la,spsol) = tausum(i,la,spsol)+tau(i,k,la,spsol)
+                tausum(i,la,aerindex) = tausum(i,la,aerindex)+tau(i,k,la,aerindex)
               ENDDO
             ENDDO
@@ -809,7 +813,7 @@
                 H=rh(i,k)/100
                 tau_ae5wv_int=A1_SSSSM(k)+A2_SSSSM(k)*H+A3_SSSSM(k)/(H-1.05)
-                tau(i,k,la,spsol) = mass_temp(i,k,spsol)*1000.*zdp1(i,k)  &
+                tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)  &
                                    *tau_ae5wv_int*delt*fac
-                tausum(i,la,spsol)=tausum(i,la,spsol)+tau(i,k,la,spsol)
+                tausum(i,la,aerindex)=tausum(i,la,aerindex)+tau(i,k,la,aerindex)
               ENDDO
             ENDDO
@@ -824,7 +828,7 @@
                               alpha_aers_5wv(RH_num(i,k),la,spsol))
 
-              tau(i,k,la,spsol) = mass_temp(i,k,spsol)*1000.*zdp1(i,k)   &
+              tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)   &
                                  *tau_ae5wv_int*delt*fac
-              tausum(i,la,spsol)=tausum(i,la,spsol)+tau(i,k,la,spsol)
+              tausum(i,la,aerindex)=tausum(i,la,aerindex)+tau(i,k,la,aerindex)
             ENDDO
           ENDDO
@@ -836,8 +840,7 @@
           DO i=1, KLON
             tau_ae5wv_int = alpha_aeri_5wv(la,spinsol)
-            tau(i,k,la,naero_soluble+spinsol) = mass_temp(i,k,naero_soluble+spinsol)*1000.*zdp1(i,k)* &
+            tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)* &
                                                 tau_ae5wv_int*delt*fac
-            tausum(i,la,naero_soluble+spinsol)= tausum(i,la,naero_soluble+spinsol)  &
-                                               +tau(i,k,la,naero_soluble+spinsol)
+            tausum(i,la,aerindex)= tausum(i,la,aerindex)+tau(i,k,la,aerindex)
           ENDDO
         ENDDO
@@ -880,7 +883,7 @@
   END DO
   
-   od550lt1aer(:)=tausum(:,2,id_ASSO4M)+tausum(:,2,id_ASBCM)+tausum(:,2,id_AIBCM)+ &
-	tausum(:,2,id_ASPOMM)+tausum(:,2,id_AIPOMM)+tausum(:,2,id_ASSSM)+ &
-	0.03*tausum(:,2,id_CSSSM)+0.4*tausum(:,2,id_CIDUSTM)
+   od550lt1aer(:)=tausum(:,2,id_ASSO4M_phy)+tausum(:,2,id_ASBCM_phy)+tausum(:,2,id_AIBCM_phy)+ &
+	tausum(:,2,id_ASPOMM_phy)+tausum(:,2,id_AIPOMM_phy)+tausum(:,2,id_ASSSM_phy)+ &
+	0.03*tausum(:,2,id_CSSSM_phy)+0.4*tausum(:,2,id_CIDUSTM_phy)
 
 
Index: LMDZ5/branches/testing/libf/phylmd/calbeta_clim.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/calbeta_clim.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/calbeta_clim.F90	(revision 2160)
@@ -5,63 +5,68 @@
 
 SUBROUTINE calbeta_clim(klon,time,lat_radian,beta)
- 
-!======================================================================
-! Auteur(s): A.K. TRAORE
-!======================================================================
-!USE phys_local_var_mod, ONLY : ideal_beta !pour faire la variable dans le
-! physiq.f pour des sorties directes de beta
-!==============================================
 
-implicit none
-integer klon,nt,j,it
-real logbeta(klon),pi
-real lat(klon),lat_radian(klon)
-integer time
-real time_radian
-real lat_sahel,beta(klon)
-real lat_nord,lat_sud
-!==============================================
+  !======================================================================
+  ! Auteur(s): A.K. TRAORE
+  !======================================================================
 
-pi=2.*asin(1.)
-beta=0.
-    
-            !calcul des cordonnees
+  !USE phys_local_var_mod, ONLY : ideal_beta !pour faire la variable dans le
+  ! physiq.f pour des sorties directes de beta
 
-!  print*,'LATITUDES BETA ',lat_radian
-   time_radian=(time+15.)*2.*pi/360.
+  USE phys_cal_mod, only: year_len
 
-   print*,'BETA time_radian',time_radian,time
+  implicit none
+  integer klon,nt,j,it
+  real logbeta(klon),pi
+  real lat(klon),lat_radian(klon)
+  integer time
+  real time_radian
+  real lat_sahel,beta(klon)
+  real lat_nord,lat_sud
 
-   lat(:)=180.*lat_radian(:)/pi !lat(:)=lat_radian(:)
-        
-   lat_sahel=-5*sin(time_radian)+13
-   lat_nord=lat_sahel+25.
-   lat_sud=lat_sahel-25.
-do j=1,klon
-    !===========
-        if (lat(j) < 5. ) then
-                
-                logbeta(j)=0.2*(lat(j)-lat_sud)-1.6
-                beta(j)=10**(logbeta(j))
-                beta(j)=max(beta(j),0.03)
-                beta(j)=min(beta(j),0.22)
-!              print*,'j,lat,lat_radian,beta',j,lat(j),lat_radian(j),beta(j)
-    !===========
-        elseif (lat(j) < 22.) then !lat(j)<22.
-                
-                logbeta(j)=-0.25*(lat(j)-lat_sahel)-1.6
-                beta(j)=10**(logbeta(j))
-                beta(j)=max(beta(j),1.e-2)
-                beta(j)=min(beta(j),0.22)
-!              print*,'j,lat,lat_radian,beta',j,lat(j),lat_radian(j),beta(j)
-    !===========
-        else
-              logbeta(j)=0.25*(lat(j)-lat_nord)-1.
-              beta(j)=10**(logbeta(j))
-              beta(j)=max(beta(j),1.e-2)
-              beta(j)=min(beta(j),0.25)
-!              print*,'j,lat,lat_radian,beta',j,lat(j),lat_radian(j),beta(j)
-        endif
-    !===========
-enddo
-end
+  include "iniprint.h"
+  !==============================================
+
+  pi=2.*asin(1.)
+  beta=0.
+
+  !calcul des cordonnees
+
+  ! print*,'LATITUDES BETA ',lat_radian
+  time_radian=(time+15.)*2.*pi / year_len
+
+  if (prt_level >= 1) print *, 'time_radian time', time_radian, time
+
+  lat(:)=180.*lat_radian(:)/pi !lat(:)=lat_radian(:)
+
+  lat_sahel=-5*sin(time_radian)+13
+  lat_nord=lat_sahel+25.
+  lat_sud=lat_sahel-25.
+  do j=1,klon
+     !===========
+     if (lat(j) < 5. ) then
+
+        logbeta(j)=0.2*(lat(j)-lat_sud)-1.6
+        beta(j)=10**(logbeta(j))
+        beta(j)=max(beta(j),0.03)
+        beta(j)=min(beta(j),0.22)
+        ! print*,'j,lat,lat_radian,beta',j,lat(j),lat_radian(j),beta(j)
+        !===========
+     elseif (lat(j) < 22.) then !lat(j)<22.
+
+        logbeta(j)=-0.25*(lat(j)-lat_sahel)-1.6
+        beta(j)=10**(logbeta(j))
+        beta(j)=max(beta(j),1.e-2)
+        beta(j)=min(beta(j),0.22)
+        ! print*,'j,lat,lat_radian,beta',j,lat(j),lat_radian(j),beta(j)
+        !===========
+     else
+        logbeta(j)=0.25*(lat(j)-lat_nord)-1.
+        beta(j)=10**(logbeta(j))
+        beta(j)=max(beta(j),1.e-2)
+        beta(j)=min(beta(j),0.25)
+        ! print*,'j,lat,lat_radian,beta',j,lat(j),lat_radian(j),beta(j)
+     endif
+     !===========
+  enddo
+
+end SUBROUTINE calbeta_clim
Index: LMDZ5/branches/testing/libf/phylmd/calcul_divers.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/calcul_divers.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/calcul_divers.h	(revision 2160)
@@ -33,2 +33,30 @@
 !       print*,'initialisation itapm1 ',itapm1
       ENDIF
+!
+! calcul temperatures minimale et maximale moyennees sur le mois 
+!
+!initialisation debut de mois ou de journee pour les fichiers mensuels
+  IF(itap.EQ.itapm1+1) THEN
+     t2m_min_mon=0.
+     t2m_max_mon=0.
+  ENDIF
+  IF(MOD(itap,NINT(un_jour/dtime)).EQ.1) THEN
+     zt2m_min_mon=zt2m
+     zt2m_max_mon=zt2m
+  ENDIF
+!calcul a chaque pas de temps pour les fichiers mensuels
+     DO i = 1, klon
+        zt2m_min_mon(i)=MIN(zt2m(i),zt2m_min_mon(i))
+        zt2m_max_mon(i)=MAX(zt2m(i),zt2m_max_mon(i))
+     ENDDO
+!fin de journee
+  IF(MOD(itap,NINT(un_jour/dtime)).EQ.0) THEN
+   t2m_min_mon=t2m_min_mon+zt2m_min_mon 
+   t2m_max_mon=t2m_max_mon+zt2m_max_mon 
+  ENDIF
+!fin mois
+  IF(itap==itapm1) THEN
+   t2m_min_mon=t2m_min_mon/mth_len
+   t2m_max_mon=t2m_max_mon/mth_len
+  ENDIF
+!
Index: LMDZ5/branches/testing/libf/phylmd/calwake.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/calwake.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/calwake.F90	(revision 2160)
@@ -233,206 +233,2 @@
   RETURN
 END SUBROUTINE calwake
-
-SUBROUTINE calwake_scal(paprs, pplay, dtime, t, q, omgb, dt_dwn, dq_dwn, &
-    m_dwn, m_up, dt_a, dq_a, sigd, wdt_pbl, wdq_pbl, udt_pbl, udq_pbl, &
-    wake_deltat, wake_deltaq, wake_dth, wake_h, wake_s, wake_dens, wake_pe, &
-    wake_fip, wake_gfl, dt_wake, dq_wake, wake_k, undi_t, undi_q, &
-    wake_omgbdth, wake_dp_omgb, wake_dtke, wake_dqke, wake_dtpbl, wake_dqpbl, &
-    wake_omg, wake_dp_deltomg, wake_spread, wake_cstar, wake_d_deltat_gw, &
-    wake_ddeltat, wake_ddeltaq)
-  ! **************************************************************
-  ! *
-  ! CALWAKE                                                     *
-  ! interface avec le schema de calcul de la poche    *
-  ! froide                                            *
-  ! *
-  ! written by   : CHERUY Frederique, 13/03/2000, 10.31.05      *
-  ! modified by :  ROEHRIG Romain,    01/30/2007                *
-  ! **************************************************************
-
-  USE dimphy
-  IMPLICIT NONE
-  ! ======================================================================
-
-  include "dimensions.h"
-  ! ccc#include "dimphy.h"
-  include "YOMCST.h"
-
-  ! Arguments
-  ! ----------
-
-  INTEGER i, l, ktopw
-  REAL dtime
-
-  REAL paprs(klon, klev+1), pplay(klon, klev)
-  REAL t(klon, klev), q(klon, klev), omgb(klon, klev)
-  REAL dt_dwn(klon, klev), dq_dwn(klon, klev), m_dwn(klon, klev)
-  REAL m_up(klon, klev)
-  REAL dt_a(klon, klev), dq_a(klon, klev)
-  REAL wdt_pbl(klon, klev), wdq_pbl(klon, klev)
-  REAL udt_pbl(klon, klev), udq_pbl(klon, klev)
-  REAL wake_deltat(klon, klev), wake_deltaq(klon, klev)
-  REAL dt_wake(klon, klev), dq_wake(klon, klev)
-  REAL wake_d_deltat_gw(klon, klev)
-  REAL wake_h(klon), wake_s(klon)
-  REAL wake_dth(klon, klev)
-  REAL wake_pe(klon), wake_fip(klon), wake_gfl(klon)
-  REAL undi_t(klon, klev), undi_q(klon, klev)
-  REAL wake_omgbdth(klon, klev), wake_dp_omgb(klon, klev)
-  REAL wake_dtke(klon, klev), wake_dqke(klon, klev)
-  REAL wake_dtpbl(klon, klev), wake_dqpbl(klon, klev)
-  REAL wake_omg(klon, klev+1), wake_dp_deltomg(klon, klev)
-  REAL wake_spread(klon, klev), wake_cstar(klon)
-  REAL wake_ddeltat(klon, klev), wake_ddeltaq(klon, klev)
-  REAL d_deltatw(klev), d_deltaqw(klev)
-  INTEGER wake_k(klon)
-  REAL sigd(klon)
-  REAL wake_dens(klon)
-
-  ! Variable internes
-  ! -----------------
-
-  REAL aire
-  REAL p(klev), ph(klev+1), pi(klev)
-  REAL te(klev), qe(klev), omgbe(klev), dtdwn(klev), dqdwn(klev)
-  REAL dta(klev), dqa(klev)
-  REAL wdtpbl(klev), wdqpbl(klev)
-  REAL udtpbl(klev), udqpbl(klev)
-  REAL amdwn(klev), amup(klev)
-  REAL dtw(klev), dqw(klev), dth(klev), d_deltat_gw(klev)
-  REAL dtls(klev), dqls(klev)
-  REAL tu(klev), qu(klev)
-  REAL hw, sigmaw, wape, fip, gfl
-  REAL omgbdth(klev), dp_omgb(klev)
-  REAL dtke(klev), dqke(klev)
-  REAL dtpbl(klev), dqpbl(klev)
-  REAL omg(klev+1), dp_deltomg(klev), spread(klev), cstar
-  REAL sigd0, wdens
-
-  REAL rdcp
-
-  ! print *, '-> calwake, wake_s ', wake_s(1)
-
-  rdcp = 1./3.5
-
-  ! -----------------------------------------------------------
-  DO i = 1, klon ! a vectoriser
-    ! ----------------------------------------------------------
-
-
-    DO l = 1, klev
-      p(l) = pplay(i, l)
-      ph(l) = paprs(i, l)
-      pi(l) = (pplay(i,l)/100000.)**rdcp
-
-      te(l) = t(i, l)
-      qe(l) = q(i, l)
-      omgbe(l) = omgb(i, l)
-
-      dtdwn(l) = dt_dwn(i, l)
-      dqdwn(l) = dq_dwn(i, l)
-      dta(l) = dt_a(i, l)
-      dqa(l) = dq_a(i, l)
-      wdtpbl(l) = wdt_pbl(i, l)
-      wdqpbl(l) = wdq_pbl(i, l)
-      udtpbl(l) = udt_pbl(i, l)
-      udqpbl(l) = udq_pbl(i, l)
-    END DO
-
-    sigd0 = sigd(i)
-    ! print*, 'sigd0,sigd', sigd0, sigd(i)
-    ph(klev+1) = 0.
-
-    ktopw = wake_k(i)
-
-    DO l = 1, klev
-      dtw(l) = wake_deltat(i, l)
-      dqw(l) = wake_deltaq(i, l)
-    END DO
-
-    DO l = 1, klev
-      dtls(l) = dt_wake(i, l)
-      dqls(l) = dq_wake(i, l)
-    END DO
-
-    hw = wake_h(i)
-    sigmaw = wake_s(i)
-
-    ! fkc les flux de masses sont evalues aux niveaux et valent 0 a la
-    ! surface
-    ! fkc  on veut le flux de masse au milieu des couches
-
-    DO l = 1, klev - 1
-      amdwn(l) = 0.5*(m_dwn(i,l)+m_dwn(i,l+1))
-      amdwn(l) = (m_dwn(i,l+1))
-    END DO
-
-    ! au sommet le flux de masse est nul
-
-    amdwn(klev) = 0.5*m_dwn(i, klev)
-
-    DO l = 1, klev
-      amup(l) = m_up(i, l)
-    END DO
-
-    CALL wake_scal(p, ph, pi, dtime, sigd0, te, qe, omgbe, dtdwn, dqdwn, &
-      amdwn, amup, dta, dqa, wdtpbl, wdqpbl, udtpbl, udqpbl, dtw, dqw, dth, &
-      hw, sigmaw, wape, fip, gfl, dtls, dqls, ktopw, omgbdth, dp_omgb, wdens, &
-      tu, qu, dtke, dqke, dtpbl, dqpbl, omg, dp_deltomg, spread, cstar, &
-      d_deltat_gw, d_deltatw, d_deltaqw)
-
-    IF (ktopw>0) THEN
-      DO l = 1, klev
-        wake_deltat(i, l) = dtw(l)
-        wake_deltaq(i, l) = dqw(l)
-        wake_d_deltat_gw(i, l) = d_deltat_gw(l)
-        wake_omgbdth(i, l) = omgbdth(l)
-        wake_dp_omgb(i, l) = dp_omgb(l)
-        wake_dtke(i, l) = dtke(l)
-        wake_dqke(i, l) = dqke(l)
-        wake_dtpbl(i, l) = dtpbl(l)
-        wake_dqpbl(i, l) = dqpbl(l)
-        wake_omg(i, l) = omg(l)
-        wake_dp_deltomg(i, l) = dp_deltomg(l)
-        wake_spread(i, l) = spread(l)
-        wake_dth(i, l) = dth(l)
-        dt_wake(i, l) = dtls(l)
-        dq_wake(i, l) = dqls(l)
-        undi_t(i, l) = tu(l)
-        undi_q(i, l) = qu(l)
-        wake_ddeltat(i, l) = d_deltatw(l)
-        wake_ddeltaq(i, l) = d_deltaqw(l)
-      END DO
-    ELSE
-      DO l = 1, klev
-        wake_deltat(i, l) = 0.
-        wake_deltaq(i, l) = 0.
-        wake_d_deltat_gw(i, l) = 0.
-        wake_omgbdth(i, l) = 0.
-        wake_dp_omgb(i, l) = 0.
-        wake_dtke(i, l) = 0.
-        wake_dqke(i, l) = 0.
-        wake_omg(i, l) = 0.
-        wake_dp_deltomg(i, l) = 0.
-        wake_spread(i, l) = 0.
-        wake_dth(i, l) = 0.
-        dt_wake(i, l) = 0.
-        dq_wake(i, l) = 0.
-        undi_t(i, l) = te(l)
-        undi_q(i, l) = qe(l)
-      END DO
-    END IF
-
-    wake_h(i) = hw
-    wake_s(i) = sigmaw
-    wake_pe(i) = wape
-    wake_fip(i) = fip
-    wake_gfl(i) = gfl
-    wake_k(i) = ktopw
-    wake_cstar(i) = cstar
-    wake_dens(i) = wdens
-
-  END DO
-
-  RETURN
-END SUBROUTINE calwake_scal
Index: LMDZ5/branches/testing/libf/phylmd/clcdrag.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/clcdrag.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/clcdrag.F90	(revision 2160)
@@ -92,7 +92,7 @@
         IF (.NOT.zxli) THEN
            zscf = SQRT(1.+cd*ABS(zri(i)))
-           FRIV = AMAX1(1. / (1.+2.*CB*zri(i)/ZSCF), 0.1)
+           FRIV = AMAX1(1. / (1.+2.*CB*zri(i)/ZSCF), f_ri_cd_min)
            zcfm1(i) = zcdn(i) * FRIV
-           FRIH = AMAX1(1./ (1.+3.*CB*zri(i)*ZSCF), 0.1 )
+           FRIH = AMAX1(1./ (1.+3.*CB*zri(i)*ZSCF), f_ri_cd_min )
 !!$  PB          zcfh1(i) = zcdn(i) * FRIH
 !!$ PB           zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
@@ -110,7 +110,7 @@
            zucf = 1./(1.+3.0*cb*cc*zcdn(i)*SQRT(ABS(zri(i)) &
                 *(1.0+zgeop1(i)/(RG*rugos(i)))))
-           zcfm2(i) = zcdn(i)*amax1((1.-2.0*cb*zri(i)*zucf),0.1)
-!!$PB            zcfh2(i) = zcdn(i)*amax1((1.-3.0*cb*zri(i)*zucf),0.1)
-           zcfh2(i) = f_cdrag_ter*zcdn(i)*amax1((1.-3.0*cb*zri(i)*zucf),0.1)
+           zcfm2(i) = zcdn(i)*amax1((1.-2.0*cb*zri(i)*zucf),f_ri_cd_min)
+!!$PB            zcfh2(i) = zcdn(i)*amax1((1.-3.0*cb*zri(i)*zucf),f_ri_cd_min)
+           zcfh2(i) = f_cdrag_ter*zcdn(i)*amax1((1.-3.0*cb*zri(i)*zucf),f_ri_cd_min)
            pcfm(i) = zcfm2(i)
            pcfh(i) = zcfh2(i)
Index: LMDZ5/branches/testing/libf/phylmd/clesphys.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/clesphys.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/clesphys.h	(revision 2160)
@@ -4,6 +4,6 @@
 !
 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
-!                 veillez à n'utiliser que des ! pour les commentaires
-!                 et à bien positionner les & des lignes de continuation 
+!                 veillez \`a n'utiliser que des ! pour les commentaires
+!                 et \`a bien positionner les & des lignes de continuation 
 !                 (les placer en colonne 6 et en colonne 73)
 !
@@ -12,4 +12,5 @@
        LOGICAL cycle_diurne,soil_model,new_oliq,ok_orodr,ok_orolf 
        LOGICAL ok_limitvrai
+       LOGICAL ok_all_xml
        INTEGER nbapp_rad, iflag_con,iflag_ener_conserv
        REAL co2_ppm, co2_ppm0, solaire
@@ -33,5 +34,5 @@
        REAL cdmmax, cdhmax
 !IM param. stabilite s/ terres et en dehors
-       REAL ksta, ksta_ter
+       REAL ksta, ksta_ter, f_ri_cd_min
 !IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
        LOGICAL ok_kzmin
@@ -76,4 +77,5 @@
        LOGICAL :: ok_strato
        LOGICAL :: ok_hines, ok_gwd_rando
+       LOGICAL :: ok_qch4
        LOGICAL :: ok_conserv_q
 
@@ -86,5 +88,5 @@
      &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
      &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
-     &     , cdmmax, cdhmax, ksta, ksta_ter                             &
+     &     , cdmmax, cdhmax, ksta, ksta_ter, f_ri_cd_min                &
      &     , fmagic, pmagic                                             &
      &     , f_cdrag_ter,f_cdrag_oce,f_rugoro                           &
@@ -113,7 +115,7 @@
      &     , ip_ebil_phy                                                &
      &     , ok_lic_melt,           aer_type                            &
-     &     , iflag_rrtm, ok_strato,ok_hines                             &
+     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
      &     , iflag_ice_thermo, ok_gwd_rando, NSW                        &
-     &     , ok_conserv_q
+     &     , ok_conserv_q, ok_all_xml
      
        save /clesphys/
Index: LMDZ5/branches/testing/libf/phylmd/cloudth.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/cloudth.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/cloudth.F90	(revision 2160)
@@ -74,5 +74,5 @@
       
 !-----------------------------------------------------------------------------------------------------------------
-! Initialisation des variables réelles
+! Initialisation des variables r?elles
 !-----------------------------------------------------------------------------------------------------------------
       sigma1(:,:)=0.
@@ -97,5 +97,5 @@
 
 !------------------------------------------------------------------------------------------------------------------
-! Calcul de la fraction du thermique et des écart-types des distributions
+! Calcul de la fraction du thermique et des ?cart-types des distributions
 !------------------------------------------------------------------------------------------------------------------                 
       do ind1=1,ngrid
@@ -140,13 +140,21 @@
 
 !-----------------------------------------------------------------------------------------------------------------
-! Calcul des écart-types pour s
-!-----------------------------------------------------------------------------------------------------------------
-
-      sigma1s=(1.1**0.5)*(fraca(ind1,ind2)**0.6)/(1-fraca(ind1,ind2))*((sth-senv)**2)**0.5+ratqs(ind1,ind2)*po(ind1)
-      sigma2s=0.11*((sth-senv)**2)**0.5/(fraca(ind1,ind2)+0.02)**0.4+0.002*zqta(ind1,ind2)  
-
- 
-!-----------------------------------------------------------------------------------------------------------------
-! Calcul de l'eau condensée et de la couverture nuageuse
+! Calcul des ?cart-types pour s
+!-----------------------------------------------------------------------------------------------------------------
+
+!      sigma1s=(1.1**0.5)*(fraca(ind1,ind2)**0.6)/(1-fraca(ind1,ind2))*((sth-senv)**2)**0.5+ratqs(ind1,ind2)*po(ind1)
+!      sigma2s=0.11*((sth-senv)**2)**0.5/(fraca(ind1,ind2)+0.02)**0.4+0.002*zqta(ind1,ind2) 
+!       if (paprs(ind1,ind2).gt.90000) then
+!       ratqs(ind1,ind2)=0.002
+!       else 
+!       ratqs(ind1,ind2)=0.002+0.0*(90000-paprs(ind1,ind2))/20000
+!       endif
+       sigma1s=(1.1**0.5)*(fraca(ind1,ind2)**0.6)/(1-fraca(ind1,ind2))*((sth-senv)**2)**0.5+0.002*po(ind1)
+       sigma2s=0.11*((sth-senv)**2)**0.5/(fraca(ind1,ind2)+0.01)**0.4+0.002*zqta(ind1,ind2) 
+!       sigma1s=ratqs(ind1,ind2)*po(ind1)
+!      sigma2s=0.11*((sth-senv)**2)**0.5/(fraca(ind1,ind2)+0.02)**0.4+0.00003  
+ 
+!-----------------------------------------------------------------------------------------------------------------
+! Calcul de l'eau condens?e et de la couverture nuageuse
 !-----------------------------------------------------------------------------------------------------------------
       sqrt2pi=sqrt(2.*pi)
@@ -241,3 +249,2 @@
 
 
-
Index: LMDZ5/branches/testing/libf/phylmd/coefcdrag.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/coefcdrag.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/coefcdrag.F90	(revision 2160)
@@ -63,4 +63,5 @@
       REAL, dimension(klon) :: zcfm2, zcfh2
       REAL, dimension(klon) :: trm0, trm1
+
 !-------------------------------------------------------------------------
       REAL :: fsta, fins, x
@@ -77,10 +78,11 @@
        ztsolv(i) = ts(i)
 !       ztvd(i) = t(i) * (psol(i)/pref(i))**RKAPPA
-       ztvd(i) = (t(i)+zdphi(i)/RCPD/(1.+RVTMP2*q(i))) &
-          *(1.+RETV*q(i))
+!       ztvd(i) = (t(i)+zdphi(i)/RCPD/(1.+RVTMP2*q(i))) &
+!          *(1.+RETV*q(i))
+       ztvd(i) = (t(i)+zdphi(i)/RCPD/(1.+RVTMP2*q(i)))
        trm0(i) = 1. + RETV * max(qsurf(i),0.0)
        trm1(i) = 1. + RETV * max(q(i),0.0)
        ztsolv(i) = ztsolv(i) * trm0(i)
-!       ztvd(i) = ztvd(i) * trm1(i)
+       ztvd(i) = ztvd(i) * trm1(i)
        zri1(i) = zdphi(i)*(ztvd(i)-ztsolv(i))/(zdu2(i)*ztvd(i))
 !
@@ -110,7 +112,7 @@
          IF (.NOT.zxli) THEN
            zscf(i) = SQRT(1.+CD*ABS(zri1(i)))
-           friv(i) = max(1. / (1.+2.*CB*zri1(i)/ zscf(i)), 0.1)
+           friv(i) = max(1. / (1.+2.*CB*zri1(i)/ zscf(i)), f_ri_cd_min)
            zcfm1(i) = cdran(i) * friv(i)
-           frih(i) = max(1./ (1.+3.*CB*zri1(i)*zscf(i)), 0.1 )
+           frih(i) = max(1./ (1.+3.*CB*zri1(i)*zscf(i)), f_ri_cd_min )
 !           zcfh1(i) = cdran(i) * frih(i)
            zcfh1(i) = f_cdrag_ter*cdran(i) * frih(i)
@@ -130,7 +132,7 @@
            zucf(i) = 1./(1.+3.0*CB*CC*cdran(i)*SQRT(ABS(zri1(i)) &
                  *(1.0+zdphi(i)/(RG*rugos(i)))))
-           zcfm2(i) = cdran(i)*max((1.-2.0*CB*zri1(i)*zucf(i)),0.1)
-!           zcfh2(i) = cdran(i)*max((1.-3.0*CB*zri1(i)*zucf(i)),0.1)
-           zcfh2(i) = f_cdrag_ter*cdran(i)*max((1.-3.0*CB*zri1(i)*zucf(i)),0.1)
+           zcfm2(i) = cdran(i)*max((1.-2.0*CB*zri1(i)*zucf(i)),f_ri_cd_min)
+!           zcfh2(i) = cdran(i)*max((1.-3.0*CB*zri1(i)*zucf(i)),f_ri_cd_min)
+           zcfh2(i) = f_cdrag_ter*cdran(i)*max((1.-3.0*CB*zri1(i)*zucf(i)),f_ri_cd_min)
            cdram(i) = zcfm2(i)
            cdrah(i) = zcfh2(i)
Index: LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90	(revision 2160)
@@ -86,4 +86,5 @@
     logical,SAVE              :: ok_snow_omp
     logical,SAVE              :: ok_newmicro_omp
+    logical,SAVE              :: ok_all_xml_omp
     logical,SAVE        :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp, ok_hf_omp        
     logical,SAVE        :: ok_LES_omp   
@@ -99,4 +100,5 @@
     real,SAVE           :: ratqshaut_omp
     real,SAVE           :: tau_ratqs_omp
+    REAL, SAVE          :: t_coupl_omp
     integer,SAVE        :: iflag_radia_omp
     integer,SAVE        :: iflag_rrtm_omp
@@ -158,5 +160,5 @@
     REAL,SAVE :: solarlong0_omp
     INTEGER,SAVE :: top_height_omp,overlap_omp
-    REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp
+    REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp,f_ri_cd_min_omp
     LOGICAL,SAVE :: ok_kzmin_omp
     REAL, SAVE ::  fmagic_omp, pmagic_omp
@@ -186,5 +188,6 @@
     LOGICAL,SAVE :: ok_strato_omp
     LOGICAL,SAVE :: ok_hines_omp, ok_gwd_rando_omp
-    real, SAVE:: RUWMAX_omp, sat_omp
+    real, SAVE:: GWD_RANDO_RUWMAX_omp, gwd_rando_sat_omp
+    LOGICAL,SAVE :: ok_qch4_omp
     LOGICAL,SAVE      :: carbon_cycle_tr_omp
     LOGICAL,SAVE      :: carbon_cycle_cpl_omp
@@ -229,4 +232,27 @@
        CALL abort_gcm('conf_phys','Variable OCEAN no longer existing, use variable name type_ocean',1)
     END IF
+
+    !Config Key  = t_coupl
+    !Config Desc = Pas de temps du couplage atm/oce en sec.
+    !Config Def  = 86400
+    !Config Help = This is only for testing purpose
+    !
+    t_coupl_omp = 86400.
+    call getin('t_coupl', t_coupl_omp)
+    IF (t_coupl_omp == 0) THEN
+       WRITE(lunout,*)'ERROR! Timestep of coupling between atmosphere and ocean'
+       WRITE(lunout,*)'cannot be zero.'
+       CALL abort_gcm('conf_phys','t_coupl = 0.',1)
+    END IF
+
+    !
+    !Config Key  = ok_all_xml 
+    !Config Desc = utiliser les xml pourles définitions des champs pour xios
+    !Config Def  = .false.
+    !Config Help = 
+    !
+    ok_all_xml_omp = .false.
+    call getin('ok_all_xml', ok_all_xml_omp)
+    !
 
     !
@@ -1118,4 +1144,12 @@
     call getin('ksta_ter',ksta_ter_omp)
 
+    !Config Key  = f_ri_cd_min
+    !Config Desc =
+    !Config Def  = 0.1
+    !Config Help =
+    !
+    f_ri_cd_min_omp = 0.1
+    call getin('f_ri_cd_min',f_ri_cd_min_omp)
+
     !
     !Config Key  = ok_kzmin
@@ -1668,5 +1702,5 @@
     !Config  Desc = activation de la version strato
     !Config  Def  = .FALSE.
-    !Config  Help = active la version stratosphérique de LMDZ de F. Lott
+    !Config  Help = active la version stratosph\'erique de LMDZ de F. Lott
 
     ok_strato_omp=.FALSE.
@@ -1687,9 +1721,18 @@
     CALL getin('ok_gwd_rando', ok_gwd_rando_omp)
 
-    RUWMAX_omp = 0.01
-    CALL getin('ruwmax', RUWMAX_omp)
-
-    sat_omp = 0.25
-    CALL getin('sat', sat_omp)
+    GWD_RANDO_RUWMAX_omp = 0.01
+    CALL getin('gwd_rando_ruwmax', GWD_RANDO_RUWMAX_omp)
+
+    gwd_rando_sat_omp = 0.25
+    CALL getin('gwd_rando_sat', gwd_rando_sat_omp)
+
+    !Config  key = ok_qch4
+    !Config  Desc = activation de la parametrisation du methane
+    !Config  Def  = .FALSE.
+    !Config  Help = Clef controlant l'activation de la parametrisation
+    !               de l'humidite due a oxydation+photolyse du methane strato
+
+    ok_qch4_omp=.FALSE.
+    CALL getin('ok_qch4',ok_qch4_omp)
 
     !Config Key  = OK_LES                                               
@@ -1806,4 +1849,5 @@
     ksta = ksta_omp
     ksta_ter = ksta_ter_omp
+    f_ri_cd_min = f_ri_cd_min_omp
     ok_kzmin = ok_kzmin_omp
     fmagic = fmagic_omp
@@ -1823,4 +1867,5 @@
     type_ocean = type_ocean_omp
     version_ocean = version_ocean_omp
+    t_coupl = t_coupl_omp
 
     ok_veget=.true.
@@ -1834,4 +1879,5 @@
     ! Martin
 
+    ok_all_xml = ok_all_xml_omp
     ok_newmicro = ok_newmicro_omp
     ok_journe = ok_journe_omp
@@ -1917,6 +1963,7 @@
     ok_hines = ok_hines_omp
     ok_gwd_rando = ok_gwd_rando_omp
-    RUWMAX = RUWMAX_omp
-    sat = sat_omp
+    GWD_RANDO_RUWMAX = GWD_RANDO_RUWMAX_omp
+    gwd_rando_sat = gwd_rando_sat_omp
+    ok_qch4 = ok_qch4_omp
     ok_LES = ok_LES_omp
     callstats = callstats_omp
@@ -1963,4 +2010,5 @@
     write(lunout,*)' Config veget = ', ok_veget,type_veget
     write(lunout,*)' Snow model SISVAT : ok_snow = ', ok_snow
+    write(lunout,*)' Config xml pour XIOS : ok_all_xml = ', ok_all_xml
     write(lunout,*)' Sortie journaliere = ', ok_journe
     write(lunout,*)' Sortie haute frequence = ', ok_hf
@@ -2038,4 +2086,5 @@
     write(lunout,*)' ksta = ',ksta 
     write(lunout,*)' ksta_ter = ',ksta_ter 
+    write(lunout,*)' f_ri_cd_min = ',f_ri_cd_min 
     write(lunout,*)' ok_kzmin = ',ok_kzmin 
     write(lunout,*)' fmagic = ',fmagic
@@ -2109,6 +2158,7 @@
     write(lunout,*) 'ok_hines = ',  ok_hines
     write(lunout,*) 'ok_gwd_rando = ',  ok_gwd_rando
-    write(lunout,*) 'RUWMAX = ', RUWMAX
-    write(lunout,*) 'sat = ', sat
+    write(lunout,*) 'ok_qch4 = ',  ok_qch4
+    write(lunout,*) 'GWD_RANDO_RUWMAX = ', GWD_RANDO_RUWMAX
+    write(lunout,*) 'gwd_rando_sat = ', gwd_rando_sat
     write(lunout,*) 'read_climoz = ', read_climoz
     write(lunout,*) 'carbon_cycle_tr = ', carbon_cycle_tr
Index: LMDZ5/branches/testing/libf/phylmd/convect2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/convect2.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/convect2.F90	(revision 2160)
@@ -160,6 +160,6 @@
 
   INTEGER ncum
+  INTEGER len
   INTEGER idcum(len)
-  INTEGER len
   INTEGER nd
   INTEGER ndp1
Index: LMDZ5/branches/testing/libf/phylmd/cpl_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/cpl_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/cpl_mod.F90	(revision 2160)
@@ -132,5 +132,6 @@
      
     npas = itaufin/ iphysiq
-    nexca = 86400 / dtime
+!    nexca = 86400 / dtime
+    nexca = t_coupl / dtime
     WRITE(lunout,*)' ##### Ocean couple #####'
     WRITE(lunout,*)' Valeurs des pas de temps'
Index: LMDZ5/branches/testing/libf/phylmd/cv3_routines.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/cv3_routines.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/cv3_routines.F90	(revision 2160)
@@ -5,4 +5,6 @@
 
 SUBROUTINE cv3_param(nd, delt)
+
+  use mod_phys_lmdz_para
   IMPLICIT NONE
 
@@ -91,4 +93,5 @@
     betad = 10.0 ! original value (from convect 4.3)
 
+   !$OMP MASTER
     OPEN (99, FILE='conv_param.data', STATUS='old', FORM='formatted', ERR=9999)
     READ (99, *, END=9998) dpbase
@@ -124,4 +127,18 @@
     WRITE (*, *) 'tlcrit=', tlcrit
 ! IM end: ajout fis. reglage ep
+  !$OMP END MASTER
+
+   CALL bcast(dpbase)
+   CALL bcast(pbcrit)
+   CALL bcast(ptcrit)
+   CALL bcast(sigdz)
+   CALL bcast(spfac)
+   CALL bcast(tau)
+   CALL bcast(flag_wb)
+   CALL bcast(wbmax)
+
+   CALL bcast(flag_epkeorig)
+   CALL bcast(elcrit)
+   CALL bcast(tlcrit)
 
     first = .FALSE.
@@ -129,5 +146,4 @@
   END IF ! (first)
 
-! print*,'tau=',tau
   beta = 1.0 - delt/tau
   alpha1 = 1.5E-3
@@ -978,8 +994,9 @@
 ! Calcul de la quantité d'eau sous forme de glace
 ! --------------------------------------------------------------------
+  INTEGER nl, len
   REAL qi(len, nl)
   REAL t(len, nl), clw(len, nl)
   REAL fracg
-  INTEGER nl, len, k, i
+  INTEGER k, i
 
   DO k = 3, nl
Index: LMDZ5/branches/testing/libf/phylmd/cva_driver.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/cva_driver.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/cva_driver.F90	(revision 2160)
@@ -882,5 +882,6 @@
                            asupmaxmin, cbmf, plfc, wbeff)
 
-        PRINT *, 'cv3p1_closure-> plfc,wbeff ', plfc(1), wbeff(1)
+        if (prt_level >= 10) &
+             PRINT *, 'cv3p1_closure-> plfc,wbeff ', plfc(1), wbeff(1)
       END IF
     END IF ! iflag_con.eq.3
Index: LMDZ5/branches/testing/libf/phylmd/cvltr_scav.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/cvltr_scav.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/cvltr_scav.F90	(revision 2160)
@@ -0,0 +1,685 @@
+!
+! $Id $
+!
+SUBROUTINE cvltr_scav(pdtime, da, phi,phi2,d1a,dam, mpIN,epIN, &
+     sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,    &
+     pmflxrIN,pmflxsIN,ev,te,wdtrainA,wdtrainM,     &
+     paprs,it,tr,upd,dnd,inb,icb,                   &
+     ccntrAA_3d,ccntrENV_3d,coefcoli_3d,            &
+     dtrcv,trsptd,dtrSscav,dtrsat,dtrUscav,qDi,qPr, &
+     qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
+     zmfd1a,zmfphi2,zmfdam)
+  !
+  USE IOIPSL 
+  USE dimphy
+  USE infotrac, ONLY : nbtr,tname
+  IMPLICIT NONE 
+  !=====================================================================
+  ! Objet : convection des traceurs / KE
+  ! Auteurs: M-A Filiberti and J-Y Grandpeix
+  ! modifiee par R Pilon : lessivage des traceurs / KE
+  !=====================================================================
+
+  include "YOMCST.h"
+  include "YOECUMF.h"
+  include "conema3.h"
+  include "chem.h"
+
+  ! Entree
+  REAL,INTENT(IN)                           :: pdtime
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: da
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi
+  ! RomP
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: d1a,dam ! matrices pour simplifier
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi2    ! l'ecriture des tendances
+  !
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: mpIN
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)    :: paprs  ! pression aux 1/2 couches (bas en haut)
+  INTEGER,INTENT(IN)                        :: it     ! numero du traceur
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN) :: tr     ! q de traceur (bas en haut)
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: upd   ! saturated updraft mass flux
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: dnd   ! saturated downdraft mass flux
+  !
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainA   ! masses precipitantes de l'asc adiab
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainM   ! masses precipitantes des melanges
+  !JE  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pmflxrIN   ! vprecip: eau
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)      :: pmflxrIN   ! vprecip: eau
+  !JE  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pmflxsIN   ! vprecip: neige
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)      :: pmflxsIN   ! vprecip: neige
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: ev         ! evaporation cv30_routine
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: epIN
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: te 
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: sij        ! fraction dair de lenv
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wght_cvfd  ! weights of the layers feeding convection
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij       ! contenu en eau condensée spécifique/conc deau condensée massique
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: epmlmMm    ! eau condensee precipitee dans mel masse dair sat
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: eplaMm    ! eau condensee precipitee dans aa masse dair sat
+
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: clw        ! contenu en eau condensée dans lasc adiab
+  REAL,DIMENSION(klon),INTENT(IN)           :: sigd
+  INTEGER,DIMENSION(klon),INTENT(IN)        :: icb,inb
+  !
+  REAL,DIMENSION(klon,klev),INTENT(IN) :: ccntrAA_3d
+  REAL,DIMENSION(klon,klev),INTENT(IN) :: ccntrENV_3d
+  REAL,DIMENSION(klon,klev),INTENT(IN) :: coefcoli_3d
+  !
+  ! Sortie
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrcv     ! tendance totale (bas en haut)
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrcvMA ! M-A Filiberti
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: trsptd    ! tendance du transport 
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrSscav  ! tendance du lessivage courant sat
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrsat    ! tendance trsp+sat scav
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrUscav  ! tendance du lessivage courant unsat
+  !
+  ! Variables locales
+  INTEGER                           :: i,j,k
+  REAL,DIMENSION(klon,klev)         :: dxpres   ! difference de pression entre niveau (j+1) et (j)
+  REAL                              :: pdtimeRG ! pas de temps * gravite
+  REAL,DIMENSION(klon,nbtr)         :: qfeed     ! tracer concentration feeding convection
+  ! variables pour les courants satures
+  REAL,DIMENSION(klon,klev,klev)    :: zmd
+  REAL,DIMENSION(klon,klev,klev)    :: za
+  REAL,DIMENSION(klon,klev,nbtr)    :: zmfd,zmfa
+  REAL,DIMENSION(klon,klev,nbtr)    :: zmfp,zmfu
+
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: zmfd1a
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: zmfdam
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: zmfphi2
+
+  ! RomP ! les variables sont nettoyees des valeurs aberrantes
+  REAL,DIMENSION(klon,klev)         :: Pa, Pm  ! pluie AA et mélanges, var temporaire
+  REAL,DIMENSION(klon,klev)         :: pmflxs,pmflxr ! pmflxrIN,pmflxsIN sans valeur aberante
+  REAL,DIMENSION(klon,klev)         :: mp            ! flux de masse
+  REAL,DIMENSION(klon,klev)         :: ep            ! fraction d'eau convertie en precipitation 
+  REAL,DIMENSION(klon,klev)         :: evap          ! evaporation : variable temporaire 
+  REAL,DIMENSION(klon,klev)         :: rho    !environmental density
+
+  REAL,DIMENSION(klon,klev)         :: kappa ! denominateur du au calcul de la matrice 
+  ! pour obtenir qd et qp
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qTrdi ! traceurs descente air insature transport MA
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qDi  ! traceurs descente insaturees
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qPr  ! traceurs colonne precipitante
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qPa  ! traceurs dans les precip issues lasc. adiab.
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qMel ! traceurs dans les precip issues des melanges
+  REAL,DIMENSION(klon,klev,nbtr)                :: qMeltmp ! variable temporaire 
+  REAL,DIMENSION(klon,klev,nbtr)                :: qpmMint
+  REAL,DIMENSION(klon,klev),INTENT(OUT)         :: Mint
+  ! tendances
+  REAL                              :: tdcvMA           ! terme de transport de traceur (schema Marie Angele)
+  REAL                              :: trsptrac         ! terme de transport de traceur par l'air
+  REAL                              :: scavtrac         ! terme de lessivage courant sature
+  REAL                              :: uscavtrac        ! terme de lessivage courant insature
+  ! impaction
+!!!       Correction apres discussion Romain P. / Olivier B. 
+!!!  REAL,PARAMETER                    :: rdrop=2.5e-3     ! rayon des gouttes d'eau
+  REAL,PARAMETER                    :: rdrop=1.e-3     ! rayon des gouttes d'eau 
+!!!
+  REAL,DIMENSION(klon,klev)         :: imp              ! coefficient d'impaction
+  !
+  LOGICAL,DIMENSION(klon,klev) :: NO_precip
+  ! var tmp tests
+  REAL                           :: conserv
+  real                           :: conservMA
+
+  ! ======================================================
+  ! calcul de l'impaction
+  ! ======================================================
+
+  ! impaction sur la surface de la colonne de la descente insaturee
+  ! On prend la moyenne des precip entre le niveau i+1 et i
+  ! I=3/4* (P(1+1)+P(i))/2 / (sigd*r*rho_l)
+  ! 1000kg/m3= densite de l'eau
+  ! 0.75e-3 = 3/4 /1000
+  ! Par la suite, I est tout le temps multiplie par sig_d pour avoir l'impaction sur la surface de la maille
+  ! on le neglige ici pour simplifier le code
+
+  DO j=1,klev-1
+     DO i=1,klon
+        imp(i,j) = coefcoli_3d(i,j)*0.75e-3/rdrop *&
+             0.5*(pmflxr(i,j+1)+pmflxs(i,j+1)+pmflxr(i,j)+pmflxs(i,j))
+     ENDDO
+  ENDDO
+  !
+  ! initialisation pour flux de traceurs, td et autre
+  !
+  trsptrac = 0.
+  scavtrac = 0.
+  uscavtrac = 0.
+  qfeed(:,it) = 0.              !RL
+  DO j=1,klev
+     DO i=1,klon
+        zmfd(i,j,it)=0.
+        zmfa(i,j,it)=0.
+        zmfu(i,j,it)=0.
+        zmfp(i,j,it)=0.
+        zmfphi2(i,j,it)=0.
+        zmfd1a(i,j,it)=0.
+        zmfdam(i,j,it)=0.
+        qDi(i,j,it)=0.
+        qPr(i,j,it)=0.
+        qPa(i,j,it)=0.
+        qMel(i,j,it)=0.
+        qMeltmp(i,j,it)=0.
+        qTrdi(i,j,it)=0.
+        kappa(i,j)=0.
+        trsptd(i,j,it)=0.
+        dtrsat(i,j,it)=0.
+        dtrSscav(i,j,it)=0.
+        dtrUscav(i,j,it)=0.
+        dtrcv(i,j,it)=0.
+        dtrcvMA(i,j,it)=0.
+        evap(i,j)=0.
+        dxpres(i,j)=0.
+        qpmMint(i,j,it)=0.
+        Mint(i,j)=0.
+     END DO
+  END DO
+
+  ! suppression des valeurs très faibles (~1e-320)
+  ! multiplication de levaporation pour lavoir par unite de temps
+  ! et par unite de surface de la maille
+  ! -> cv30_unsat : evap : masse evaporee/s/(m2 de la descente)
+  DO j=1,klev
+     DO i=1,klon
+        IF(ev(i,j).lt.1.e-16) THEN
+           evap(i,j)=0.
+        ELSE
+           evap(i,j)=ev(i,j)*sigd(i)
+        ENDIF
+     END DO
+  END DO
+
+  DO j=1,klev
+     DO i=1,klon
+        IF(j.LT.klev) THEN
+           IF(epIN(i,j).LT.1.e-32) THEN
+              ep(i,j)=0.
+           ELSE
+              ep(i,j)=epIN(i,j)
+           ENDIF
+        ELSE
+           ep(i,j)=epmax
+        ENDIF
+        IF(mpIN(i,j).LT.1.e-32) THEN
+           mp(i,j)=0.
+        ELSE
+           mp(i,j)=mpIN(i,j)
+        ENDIF
+        IF(pmflxsIN(i,j).LT.1.e-32) THEN
+           pmflxs(i,j)=0.
+        ELSE
+           pmflxs(i,j)=pmflxsIN(i,j)
+        ENDIF
+        IF(pmflxrIN(i,j).LT.1.e-32) THEN
+           pmflxr(i,j)=0.
+        ELSE
+           pmflxr(i,j)=pmflxrIN(i,j)
+        ENDIF
+        IF(wdtrainA(i,j).LT.1.e-32) THEN
+           Pa(i,j)=0.
+        ELSE
+           Pa(i,j)=wdtrainA(i,j)
+        ENDIF
+        IF(wdtrainM(i,j).LT.1.e-32) THEN
+           Pm(i,j)=0.
+        ELSE
+           Pm(i,j)=wdtrainM(i,j)
+        ENDIF
+     END DO
+  END DO
+
+  !==========================================
+  DO j = klev-1,1,-1
+     DO i = 1,klon
+        NO_precip(i,j) = (pmflxr(i,j+1)+pmflxs(i,j+1)).LT.1.e-10&
+             .AND.Pa(i,j).LT.1.e-10.AND.Pm(i,j).LT.1.e-10
+     END DO
+  END DO
+
+  ! =========================================
+  ! calcul des tendances liees au downdraft
+  ! =========================================
+  !cdir collapse
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmd(i,j,k)=0.
+           za (i,j,k)=0.
+        END DO
+     END DO
+  END DO
+  ! calcul de la matrice d echange
+  ! matrice de distribution de la masse entrainee en k
+  ! commmentaire RomP : mp > 0
+  DO k=1,klev-1
+     DO i=1,klon
+        zmd(i,k,k)=max(0.,mp(i,k)-mp(i,k+1))   ! ~ mk(k)
+     END DO
+  END DO
+  DO k=2,klev
+     DO j=k-1,1,-1
+        DO i=1,klon
+           IF(mp(i,j+1).GT.1.e-10) THEN
+              zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1)) !det ~ mk(j)=mk(j+1)*mp(i,j)/mp(i,j+1)
+           ENDIF
+        END DO
+     END DO
+  END DO
+  DO k=1,klev
+     DO j=1,klev-1
+        DO i=1,klon
+           za(i,j,k)=max(0.,zmd(i,j+1,k)-zmd(i,j,k))
+        END DO
+     END DO
+  END DO
+!!!!! quantite  de traceur dans la descente d'air insaturee  :   4 juin 2012
+  DO k=1,klev
+     DO j=1,klev-1
+        DO i=1,klon
+           IF(mp(i,j+1).GT.1.e-10) THEN
+              qTrdi(i,j+1,it)=qTrdi(i,j+1,it)+(zmd(i,j+1,k)/mp(i,j+1))*tr(i,k,it)
+           ELSE
+              qTrdi(i,j,it)=0.!tr(i,j,it)
+           ENDIF
+        ENDDO
+     ENDDO
+  ENDDO
+!!!!!
+  !
+  ! rajout du terme lie a l ascendance induite
+  !
+  DO j=2,klev
+     DO i=1,klon
+        za(i,j,j-1)=za(i,j,j-1)+mp(i,j)
+     END DO
+  END DO
+  !
+  ! tendance courants insatures  ! sans lessivage ancien schema
+  !
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfd(i,j,it)=zmfd(i,j,it)+za(i,j,k)*(tr(i,k,it)-tr(i,j,it))
+        END DO
+     END DO
+  END DO
+  !
+  ! =========================================
+  ! calcul des tendances liees aux courants satures   j <-> z ; k <-> z'
+  ! =========================================
+  !RL
+  !  Feeding concentrations
+  DO j=1,klev
+     DO i=1,klon
+        qfeed(i,it)=qfeed(i,it)+wght_cvfd(i,j)*tr(i,j,it)
+     END DO
+  END DO
+  !RL
+  !
+  DO j=1,klev
+     DO i=1,klon
+        !RL
+        !!        zmfa(i,j,it)=da(i,j)*(tr(i,1,it)-tr(i,j,it))                     ! da
+        zmfa(i,j,it)=da(i,j)*(qfeed(i,it)-tr(i,j,it))                     ! da
+        !RL
+     END DO
+  END DO
+  !
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfp(i,j,it)=zmfp(i,j,it)+phi(i,j,k)*(tr(i,k,it)-tr(i,j,it))  ! phi
+        END DO
+     END DO
+  END DO
+  ! RomP ajout des matrices liees au lessivage
+  DO j=1,klev
+     DO i=1,klon
+        zmfd1a(i,j,it)=d1a(i,j)*tr(i,1,it)   ! da1
+        zmfdam(i,j,it)=dam(i,j)*tr(i,1,it)   ! dam
+     END DO
+  END DO
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfphi2(i,j,it)=zmfphi2(i,j,it)+phi2(i,j,k)*tr(i,k,it)  ! psi
+        END DO
+     END DO
+  END DO
+  DO j=1,klev-1
+     DO i=1,klon
+        zmfu(i,j,it)=max(0.,upd(i,j+1)+dnd(i,j+1))*(tr(i,j+1,it)-tr(i,j,it))
+     END DO
+  END DO
+  DO j=2,klev
+     DO i=1,klon
+        zmfu(i,j,it)=zmfu(i,j,it)+min(0.,upd(i,j)+dnd(i,j))*(tr(i,j,it)-tr(i,j-1,it))
+     END DO
+  END DO
+  ! ===================================================
+  ! calcul des tendances liees aux courants insatures
+  ! ===================================================
+  !  pression  
+  DO k=1, klev
+     DO i=1, klon
+        dxpres(i,k)=paprs(i,k)-paprs(i,k+1)
+     ENDDO
+  ENDDO
+  pdtimeRG=pdtime*RG
+
+  ! q_pa et q_pm    traceurs issues des courants satures se retrouvant dans les precipitations
+  DO j=1,klev
+     DO i=1,klon
+        IF(j.GE.icb(i).AND.j.LE.inb(i)) THEN
+           IF(clw(i,j).GT.1.e-16) THEN
+              !JE           qPa(i,j,it)=ccntrAA_coef*tr(i,1,it)/clw(i,j)
+              qPa(i,j,it)=ccntrAA_3d(i,j)*tr(i,1,it)/clw(i,j)
+           ELSE
+              qPa(i,j,it)=0.
+           ENDIF
+        ENDIF
+     END DO
+  END DO
+
+  ! calcul de q_pm en 2 parties :
+  ! 1) calcul de sa valeur pour un niveau z' donne
+  ! 2) integration sur la verticale sur z'
+  DO j=1,klev
+     DO k=1,j-1
+        DO i=1,klon
+           IF(k.GE.icb(i).AND.k.LE.inb(i).AND.& 
+                j.LE.inb(i)) THEN
+              IF(elij(i,k,j).GT.1.e-16) THEN
+                 !JE             qMeltmp(i,j,it)=((1-ep(i,k))*ccntrAA_coef*tr(i,1,it)&
+                 !JE                         *(1.-sij(i,k,j))  +ccntrENV_coef&
+                 !JE                         *tr(i,k,it)*sij(i,k,j)) / elij(i,k,j)
+                 qMeltmp(i,j,it)=((1-ep(i,k))*ccntrAA_3d(i,k)*tr(i,1,it)&
+                      *(1.-sij(i,k,j))  +ccntrENV_3d(i,k)&
+                      *tr(i,k,it)*sij(i,k,j)) / elij(i,k,j)
+              ELSE
+                 qMeltmp(i,j,it)=0.
+              ENDIF
+              qpmMint(i,j,it)=qpmMint(i,j,it) + qMeltmp(i,j,it)*epmlmMm(i,j,k)
+              Mint(i,j)=Mint(i,j) + epmlmMm(i,j,k)
+           ENDIF ! end if dans nuage
+        END DO
+     END DO
+  END DO
+
+  DO j=1,klev
+     DO i=1,klon
+        IF(Mint(i,j).GT.1.e-16) THEN
+           qMel(i,j,it)=qpmMint(i,j,it)/Mint(i,j)
+        ELSE
+           qMel(i,j,it)=0.
+        ENDIF
+     END DO
+  END DO
+
+  ! calcul de q_d et q_p    traceurs de la descente precipitante 
+  DO j=klev-1,1,-1
+     DO i=1,klon
+        IF(mp(i,j+1).GT.mp(i,j).AND.mp(i,j+1).GT.1.e-10) THEN  ! detrainement
+           kappa(i,j)=((pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                (-mp(i,j+1)-imp(i,j)/RG*dxpres(i,j))&
+                + (imp(i,j)/RG*dxpres(i,j))*(evap(i,j)/RG*dxpres(i,j)))
+
+        ELSEIF(mp(i,j).GT.mp(i,j+1).AND.mp(i,j).GT.1.e-10) THEN! entrainement
+           IF(j.eq.1) THEN
+              kappa(i,j)=((pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                   (-mp(i,2)-imp(i,j)/RG*dxpres(i,j))&
+                   + (imp(i,j)/RG*dxpres(i,j))*(evap(i,j)/RG*dxpres(i,j)))
+           ELSE
+              kappa(i,j)=((pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                   (-mp(i,j)-imp(i,j)/RG*dxpres(i,j))&
+                   + (imp(i,j)/RG*dxpres(i,j))*(evap(i,j)/RG*dxpres(i,j)))
+           ENDIF
+        ELSE
+           kappa(i,j)=1.
+        ENDIF
+     ENDDO
+  ENDDO
+
+  DO j=klev-1,1,-1
+     DO i=1,klon
+        IF (abs(kappa(i,j)).LT.1.e-25) THEN    !si denominateur nul (il peut y avoir des mp!=0)
+           kappa(i,j)=1.
+           IF(j.eq.1) THEN
+              qDi(i,j,it)=qDi(i,j+1,it) !orig tr(i,j,it)   ! mp(1)=0 donc tout vient de la couche supérieure
+           ELSEIF(mp(i,j+1).GT.mp(i,j).AND.mp(i,j+1).GT.1.e-10) THEN
+              qDi(i,j,it)=qDi(i,j+1,it)
+           ELSEIF(mp(i,j).GT.mp(i,j+1).AND.mp(i,j).GT.1.e-10) THEN! entrainement
+              qDi(i,j,it)=(-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it))/(-mp(i,j))
+           ELSE  ! si  mp (i)=0 et mp(j+1)=0
+              qDi(i,j,it)=tr(i,j,it) ! orig 0.
+           ENDIF
+
+           IF(NO_precip(i,j)) THEN
+              qPr(i,j,it)=0.
+           ELSE
+              qPr(i,j,it)=((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                   Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)&
+                   +imp(i,j)/RG*dxpres(i,j)*qDi(i,j,it))/&
+                   (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))
+           ENDIF
+        ELSE   !     denominateur non nul
+           kappa(i,j)=1./kappa(i,j)     
+           ! calcul de qd et qp
+           !!jyg  (20130119) correction pour le sommet du nuage
+           !!     if(j.GE.inb(i)) THEN       !au-dessus du nuage, sommet inclu
+           if(j.GT.inb(i)) THEN       !au-dessus du nuage
+              qDi(i,j,it)=tr(i,j,it)   ! pas de descente => environnement = descente insaturee
+              qPr(i,j,it)=0.
+
+              !  vvv premiere couche du modele ou mp(1)=0  ! det tout le temps  vvv
+           ELSEIF(j.eq.1) THEN 
+              if(mp(i,2).GT.1.e-10) THEN !mp(2) non nul -> detrainement (car mp(1) = 0) !ent pas possible
+                 if(NO_precip(i,j)) THEN !pas de precip en (i)
+                    qDi(i,j,it)=qDi(i,j+1,it)
+                    qPr(i,j,it)=0.
+                 ELSE
+                    qDi(i,j,it)=kappa(i,j)*(&
+                         (-evap(i,j)/RG*dxpres(i,j))*((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)) +&
+                         (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                         (-mp(i,j+1)*qDi(i,j+1,it)))
+
+                    qPr(i,j,it)=kappa(i,j)*(&
+                         (-mp(i,j+1)-imp(i,j)/RG*dxpres(i,j))*&
+                         ((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it))&
+                         +(-mp(i,j+1)*qDi(i,j+1,it)) * (imp(i,j)/RG*dxpres(i,j)))
+                 ENDIF
+
+              ELSE !mp(2) nul -> plus de descente insaturee -> pluie agit sur environnement
+                 qDi(i,j,it)=tr(i,j,it) ! orig 0.
+                 if(NO_precip(i,j)) THEN
+                    qPr(i,j,it)=0.
+                 ELSE
+                    qPr(i,j,it)=((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)&
+                         +imp(i,j)/RG*dxpres(i,j)*tr(i,j,it))/&
+                         (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))
+                 ENDIF
+
+              ENDIF  !mp(2) nul ou non
+
+              ! vvv  (j!=1.AND.j.LT.inb(i))  en-dessous du sommet nuage   vvv
+           ELSE 
+              !------------------------------------------------------------- detrainement 
+              if(mp(i,j+1).GT.mp(i,j).AND.mp(i,j+1).GT.1.e-10) THEN !mp(i,j).GT.1.e-10) THEN
+                 if(NO_precip(i,j)) THEN 
+                    qDi(i,j,it)=qDi(i,j+1,it)
+                    qPr(i,j,it)=0.
+                 ELSE
+                    qDi(i,j,it)=kappa(i,j)*(&
+                         (-evap(i,j)/RG*dxpres(i,j))*((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)) +&
+                         (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                         (-mp(i,j+1)*qDi(i,j+1,it)))
+                    !
+                    qPr(i,j,it)=kappa(i,j)*(&
+                         (-mp(i,j+1)-imp(i,j)/RG*dxpres(i,j))*&
+                         ((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it))&
+                         +(-mp(i,j+1)*qDi(i,j+1,it)) * (imp(i,j)/RG*dxpres(i,j)))
+                 ENDIF !precip
+                 !------------------------------------------------------------- entrainement 
+              ELSEIF(mp(i,j).GT.mp(i,j+1).AND.mp(i,j).GT.1.e-10) THEN 
+                 if(NO_precip(i,j)) THEN
+                    qDi(i,j,it)=(-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it))/(-mp(i,j))
+                    qPr(i,j,it)=0.
+                 ELSE
+                    qDi(i,j,it)=kappa(i,j)*(&
+                         (-evap(i,j)/RG*dxpres(i,j))*((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)) +&
+                         (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                         (-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it)))
+                    !
+                    qPr(i,j,it)=kappa(i,j)*(&
+                         (-mp(i,j)-imp(i,j)/RG*dxpres(i,j))*&
+                         ((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it))&
+                         +(-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it))*&
+                         (imp(i,j)/RG*dxpres(i,j)))
+                 ENDIF !precip
+                 !------------------------------------------------------------- ENDIF ! ent/det
+              ELSE  !mp nul
+                 qDi(i,j,it)=tr(i,j,it) ! orig 0.
+                 if(NO_precip(i,j)) THEN
+                    qPr(i,j,it)=0.
+                 ELSE
+                    qPr(i,j,it)=((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                         Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)&
+                         +imp(i,j)/RG*dxpres(i,j)*tr(i,j,it))/&
+                         (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))
+                 ENDIF
+              ENDIF ! mp nul ou non
+           ENDIF ! condition sur j
+        ENDIF ! kappa
+     ENDDO
+  ENDDO
+
+  !! print test descente insaturee
+  !  DO j=klev,1,-1
+  !   DO i=1,klon
+  !     if(it.eq.3) THEN
+  !   write(*,'(I2,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12)') j,&
+  !!         'zmfdam',zmfdam(i,j,it),'zmfpsi',zmfphi2(i,j,it),&
+  !          'zmfdam+zmfpsi',zmfdam(i,j,it)+zmfphi2(i,j,it),'qpmMint',qpmMint(i,j,it),&
+  !          'Pm',Pm(i,j),'Mint',Mint(i,j),&
+  !!          'zmfa',zmfa(i,j,it),'zmfp',zmfp(i,j,it),&
+  !        'zmfdam',zmfdam(i,j,it),'zmfpsi',zmfphi2(i,j,it),'zmfd1a',zmfd1a(i,j,it)
+  !!          'Pa',Pa(i,j),'eplaMm',eplaMm(i,j)
+  !!         'zmfd1a=da1*qa',zmfd1a(i,j,it),'Pa*qPa',wdtrainA(i,j)*qPa(i,j,it),'da1',d1a(i,j)
+  !     ENDIF
+  !   ENDDO
+  !  ENDDO
+
+
+  ! ===================================================
+  ! calcul final des tendances
+  ! ===================================================
+
+  DO k=klev-1,1,-1
+     DO i=1, klon
+        ! transport
+        tdcvMA=zmfd(i,k,it)+zmfu(i,k,it)+zmfa(i,k,it)+zmfp(i,k,it)   ! double comptage des downdraft insatures
+        trsptrac=zmfu(i,k,it)+zmfa(i,k,it)+zmfp(i,k,it)
+        ! lessivage courants satures
+        !JE     scavtrac=-ccntrAA_coef*zmfd1a(i,k,it)&
+        !JE               -zmfphi2(i,k,it)*ccntrENV_coef&
+        !JE               -zmfdam(i,k,it)*ccntrAA_coef
+        scavtrac=-ccntrAA_3d(i,k)*zmfd1a(i,k,it)&
+             -zmfphi2(i,k,it)*ccntrENV_3d(i,k)&
+             -zmfdam(i,k,it)*ccntrAA_3d(i,k)
+        ! lessivage courants insatures
+        if(k.LE.inb(i).AND.k.GT.1) THEN   ! tendances dans le nuage
+           !------------------------------------------------------------- detrainement
+           if(mp(i,k+1).GT.mp(i,k).AND.mp(i,k+1).GT.1.e-10) THEN
+              uscavtrac= (-mp(i,k)+mp(i,k+1))*(qDi(i,k,it)-tr(i,k,it))&
+                   + mp(i,k)*(tr(i,k-1,it)-tr(i,k,it))
+              !
+              !        if(it.eq.3) write(*,'(I2,1X,a,5X,e20.12,82X,a,e20.12)')k,' det incloud',&
+              !                    (-mp(i,k)+mp(i,k+1))*(qDi(i,k,it)-tr(i,k,it))*pdtimeRG/dxpres(i,k)+&
+              !                    mp(i,k)*(tr(i,k-1,it)-tr(i,k,it))*pdtimeRG/dxpres(i,k),&
+              !                    'mp',mp(i,k)
+              !------------------------------------------------------------- entrainement 
+           ELSEIF(mp(i,k).GT.mp(i,k+1).AND.mp(i,k).GT.1.e-10) THEN
+              uscavtrac= mp(i,k)*(tr(i,k-1,it)-tr(i,k,it))
+              !
+              !         if(it.eq.3) write(*,'(I2,1X,a,5X,e20.12,82X,a,e20.12)')k,' ent incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+              !=!------------------------------------------------------------- end ent/det 
+           ELSE !        mp(i,k+1)=0. et mp(i,k)=0.    pluie directement sur l environnement
+
+              if(NO_precip(i,k)) THEN
+                 uscavtrac=0.
+                 !         if(it.eq.3) write(*,'(I2,1X,a,e20.12,82X,a,e20.12)')k,' no P ent incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+              ELSE
+                 uscavtrac=-imp(i,k)*tr(i,k,it)*dxpres(i,k)/RG+evap(i,k)*qPr(i,k,it)*dxpres(i,k)/RG
+                 !         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+                 !!JE adds
+                 !         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'imp',imp(i,k)
+                 !         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'tr',tr(i,k,it)
+                 !         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'evap',evap(i,k)
+                 !         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'qPr',qPr(i,k,it)
+                 !         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'dxpres',dxpres(i,k)
+                 !!Je end
+
+              ENDIF
+           ENDIF  ! mp/det/ent
+           !------------------------------------------------------------- premiere couche 
+        ELSEIF(k.eq.1) THEN  !                                      mp(1)=0.
+           if(mp(i,2).GT.1.e-10) THEN  !detrainement
+              uscavtrac= (-0.+mp(i,2))*(qDi(i,k,it)-tr(i,k,it)) !&
+              !                   + mp(i,2)*(0.-tr(i,k,it))
+              !
+              !       if(it.eq.3) write(*,'(I2,1X,a,e20.12,84X,a,e20.12)')k,' 1 det',&
+              !                  (-0.+mp(i,2))*(qDi(i,k,it)-tr(i,k,it))*pdtimeRG/dxpres(i,k)+&
+              !                  mp(i,2)*(0.-tr(i,k,it))*pdtimeRG/dxpres(i,k),&
+              !                   'mp',mp(i,k)
+           ELSE   ! mp(2) = 0 = mp(1) pas de descente insaturee, rien ne se passe s'il ne pleut pas, sinon pluie->env
+              if(NO_precip(i,1)) THEN
+                 uscavtrac=0.
+              ELSE
+                 uscavtrac=-imp(i,k)*tr(i,k,it)*dxpres(i,k)/RG+evap(i,k)*qPr(i,k,it)*dxpres(i,k)/RG
+              ENDIF
+              !         if(it.eq.3) write(*,'(I2,1X,a,2X,e20.12,82X,a,e20.12)')k,'1 P env incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+           ENDIF
+
+        ELSE   ! k > INB  au-dessus du nuage
+           uscavtrac=0.
+        ENDIF
+
+        ! =====    tendances finales  ======
+        trsptd(i,k,it)=trsptrac*pdtimeRG/dxpres(i,k)              ! td transport sans eau dans courants satures
+        dtrSscav(i,k,it)=scavtrac*pdtimeRG/dxpres(i,k)            ! td du lessivage dans courants satures
+        dtrUscav(i,k,it)=uscavtrac*pdtimeRG/dxpres(i,k)           ! td courant insat
+        dtrsat(i,k,it)=(trsptrac+scavtrac)*pdtimeRG/dxpres(i,k)   ! td courant sat
+        dtrcv(i,k,it)=(trsptrac+scavtrac+uscavtrac)*pdtimeRG/dxpres(i,k)!dtrsat(i,k,it)+dtrUscav(i,k,it)         td conv
+!!!!!!
+        dtrcvMA(i,k,it)=tdcvMA*pdtimeRG/dxpres(i,k) ! MA tendance convection
+     ENDDO
+  ENDDO
+
+  ! test de conservation du traceur
+  !print*,"_____________________________________________________________"
+  !print*,"                                                             "
+  !      conserv=0.
+  !      conservMA=0.
+  !      DO k= klev-1,1,-1
+  !        DO i=1, klon
+  !         conserv=conserv+dtrcv(i,k,it)*   &
+  !        (paprs(i,k)-paprs(i,k+1))/RG
+  !         conservMA=conservMA+dtrcvMA(i,k,it)*   &
+  !        (paprs(i,k)-paprs(i,k+1))/RG
+  !
+  !      if(it.eq.3)  write(*,'(I2,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12)') k,&
+  !         'MA td ',dtrcvMA(i,k,it)*dxpres(i,k)/RG,&
+  !         ' td',dtrcv(i,k,it)*dxpres(i,k)/RG,'         conservMA ',conservMA,'conserv ',conserv
+  !!
+  !        ENDDO
+  !      ENDDO
+  !       if(it.eq.3) print *,'it',it,'conserv ',conserv,'conservMA ',conservMA
+
+END SUBROUTINE cvltr_scav
Index: LMDZ5/branches/testing/libf/phylmd/cvltr_spl.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/cvltr_spl.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/cvltr_spl.F90	(revision 2160)
@@ -0,0 +1,841 @@
+!
+! $Id $
+!
+SUBROUTINE cvltr_spl(pdtime, da, phi,phi2,d1a,dam, mpIN,epIN, &
+           sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,              &
+           pmflxrIN,pmflxsIN,ev,te,wdtrainA,wdtrainM,     &
+           paprs,it,tr,upd,dnd,inb,icb,                   &
+           kk,henry,zrho, ccntrAA_spla,ccntrENV_spla,coefcoli_spla, &
+           id_prec,id_fine,id_coss, id_codu, id_scdu, &
+           dtrcv,trsptd,dtrSscav,dtrsat,dtrUscav,qDi,qPr, &
+           qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
+           zmfd1a,zmfphi2,zmfdam)
+  USE IOIPSL 
+  USE dimphy
+  USE infotrac, ONLY : nbtr,tname
+  IMPLICIT NONE 
+!=====================================================================
+! Objet : convection des traceurs / KE
+! Auteurs: M-A Filiberti and J-Y Grandpeix
+! modifiee par R Pilon : lessivage des traceurs / KE
+!=====================================================================
+
+  include "YOMCST.h"
+  include "YOECUMF.h"
+  include "conema3.h"
+  include "chem.h"
+
+! Entree
+  REAL,INTENT(IN)                           :: pdtime
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: da
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi
+! RomP
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: d1a,dam ! matrices pour simplifier
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi2    ! l'ecriture des tendances
+!
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: mpIN
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)    :: paprs  ! pression aux 1/2 couches (bas en haut)
+!  REAL,DIMENSION(klon,klev),INTENT(IN)    :: pplay ! pression aux 1/2 couches (bas en haut)
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN) :: tr     ! q de traceur (bas en haut)
+  INTEGER,INTENT(IN)                        :: it 
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: upd   ! saturated updraft mass flux
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: dnd   ! saturated downdraft mass flux
+!
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainA   ! masses precipitantes de l'asc adiab
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainM   ! masses precipitantes des melanges
+!JE  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pmflxrIN   ! vprecip: eau
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)      :: pmflxrIN   ! vprecip: eau
+!JE  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pmflxsIN   ! vprecip: neige
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)      :: pmflxsIN   ! vprecip: neige
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: ev         ! evaporation cv30_routine
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: epIN
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: te 
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: sij        ! fraction dair de lenv
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wght_cvfd  ! weights of the layers feeding convection
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij       ! contenu en eau condensée spécifique/conc deau condensée massique
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: epmlmMm    ! eau condensee precipitee dans mel masse dair sat
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: eplaMm    ! eau condensee precipitee dans aa masse dair sat
+
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: clw        ! contenu en eau condensée dans lasc adiab
+  REAL,DIMENSION(klon),INTENT(IN)           :: sigd
+  INTEGER,DIMENSION(klon),INTENT(IN)        :: icb,inb
+! Sortie
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrcv     ! tendance totale (bas en haut)
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrcvMA ! M-A Filiberti
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: trsptd    ! tendance du transport 
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrSscav  ! tendance du lessivage courant sat
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrsat    ! tendance trsp+sat scav
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrUscav  ! tendance du lessivage courant unsat
+!
+! Variables locales
+  INTEGER                           :: i,j,k
+  REAL,DIMENSION(klon,klev)         :: dxpres   ! difference de pression entre niveau (j+1) et (j)
+  REAL                              :: pdtimeRG ! pas de temps * gravite
+  REAL,DIMENSION(klon,nbtr)         :: qfeed     ! tracer concentration feeding convection
+! variables pour les courants satures
+  REAL,DIMENSION(klon,klev,klev)    :: zmd
+  REAL,DIMENSION(klon,klev,klev)    :: za
+  REAL,DIMENSION(klon,klev,nbtr)    :: zmfd,zmfa
+  REAL,DIMENSION(klon,klev,nbtr)    :: zmfp,zmfu
+
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: zmfd1a
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: zmfdam
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: zmfphi2
+
+! RomP ! les variables sont nettoyees des valeurs aberrantes
+  REAL,DIMENSION(klon,klev)         :: Pa, Pm  ! pluie AA et mélanges, var temporaire
+  REAL,DIMENSION(klon,klev)         :: pmflxs,pmflxr ! pmflxrIN,pmflxsIN sans valeur aberante
+  REAL,DIMENSION(klon,klev)         :: mp            ! flux de masse
+  REAL,DIMENSION(klon,klev)         :: ep            ! fraction d'eau convertie en precipitation 
+  REAL,DIMENSION(klon,klev)         :: evap          ! evaporation : variable temporaire 
+  REAL,DIMENSION(klon,klev)         :: rho    !environmental density
+
+  REAL,DIMENSION(klon,klev)         :: kappa ! denominateur du au calcul de la matrice 
+                                             ! pour obtenir qd et qp
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qTrdi ! traceurs descente air insature transport MA
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qDi  ! traceurs descente insaturees
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qPr  ! traceurs colonne precipitante
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qPa  ! traceurs dans les precip issues lasc. adiab.
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)    :: qMel ! traceurs dans les precip issues des melanges
+  REAL,DIMENSION(klon,klev,nbtr)                :: qMeltmp ! variable temporaire 
+  REAL,DIMENSION(klon,klev,nbtr)                :: qpmMint
+  REAL,DIMENSION(klon,klev),INTENT(OUT)         :: Mint
+! tendances
+  REAL                              :: tdcvMA           ! terme de transport de traceur (schema Marie Angele)
+  REAL                              :: trsptrac         ! terme de transport de traceur par l'air
+  REAL                              :: scavtrac         ! terme de lessivage courant sature
+  REAL                              :: uscavtrac        ! terme de lessivage courant insature
+! impaction
+!!!       Correction apres discussion Romain P. / Olivier B. 
+!!!  REAL,PARAMETER                    :: rdrop=2.5e-3     ! rayon des gouttes d'eau
+  REAL,PARAMETER                    :: rdrop=1.e-3     ! rayon des gouttes d'eau 
+!!!
+  REAL,DIMENSION(klon,klev)         :: imp              ! coefficient d'impaction
+! parametres lessivage
+  REAL                    :: ccntrAA_coef        ! \alpha_a : fract aerosols de l'AA convertis en CCN
+  REAL                    :: ccntrENV_coef       ! \beta_m  : fract aerosols de l'env convertis en CCN
+  REAL                    :: coefcoli            ! coefficient de collision des gouttes sur les aerosols
+!
+  LOGICAL,DIMENSION(klon,klev) :: NO_precip
+!  LOGICAL                      :: scavON
+! var tmp tests
+  REAL                           :: conserv
+  real                           :: conservMA
+! JE SPLA adaptation
+
+   INTEGER :: id_prec,id_fine,id_coss, id_codu, id_scdu
+   REAL,DIMENSION(nbtr) :: ccntrAA_spla,ccntrENV_spla,coefcoli_spla
+   REAL,DIMENSION(klon,klev) :: ccntrAA_coef3d
+   REAL,DIMENSION(klon,klev) :: ccntrENV_coef3d
+   REAL,DIMENSION(klon,klev) :: coefcoli3d
+
+   REAL,DIMENSION(nbtr) :: henry         !--cste de Henry  mol/l/atm
+   REAL,DIMENSION(nbtr) :: kk            !--coefficient de var avec T (K)
+   REAL :: henry_t !--constante de Henry a T t  (mol/l/atm)
+   REAL :: f_a     !--rapport de la phase aqueuse a la phase gazeuse
+
+   REAL, PARAMETER :: ph=5.
+   REAL ::  K1, K2
+   REAL,DIMENSION(klon,klev) :: zrho
+   REAL, PARAMETER :: qliq=1.e-3 ! CONVECTIVE ONLY 
+
+! Je end 20140105
+
+!JE20140724<<
+!JE SPLA adapt:
+!
+!
+!! coefficient lessivage
+!   ccntrAA_coef     = 0.
+!   ccntrENV_coef    = 0.
+!   coefcoli         = 0.
+!
+!!$OMP MASTER
+!  call getin('ccntrAA_coef',ccntrAA_coef)
+!  call getin('ccntrENV_coef',ccntrENV_coef)
+!  call getin('coefcoli',coefcoli)
+!!$OMP END MASTER
+!!$OMP BARRIER
+!!! JE
+!  do j=1,klev
+!   do i=1,klon
+!     imp(i,j)=0.
+!     ccntrAA_coef3d(i,j)=ccntrAA_coef
+!     ccntrENV_coef3d(i,j)=ccntrENV_coef
+!     coefcoli3d(i,j)=coefcoli
+!   enddo
+!  enddo
+!
+!
+!!! for SPLA
+!!!JEend
+!  print*,'cvltr coef lessivage convectif', ccntrAA_coef,ccntrENV_coef,coefcoli
+!
+!JE20140724>>
+
+!  scavON=.TRUE.
+!  if(scavON) then
+!   ccntrAA_coef     = 1.
+!   ccntrENV_coef    = 1.
+!   coefcoli         = 1.
+!  else
+!   ccntrAA_coef     = 0.
+!   ccntrENV_coef    = 0.
+!   coefcoli         = 0.
+!  endif
+
+! ======================================================
+! calcul de l'impaction
+! ======================================================
+!initialisation
+  do j=1,klev
+   do i=1,klon
+     imp(i,j)=0.
+   enddo
+  enddo
+!JE init 20140103 
+!! impaction sur la surface de la colonne de la descente insaturee
+!! On prend la moyenne des precip entre le niveau i+1 et i
+!! I=3/4* (P(1+1)+P(i))/2 / (sigd*r*rho_l)
+!!  1000kg/m3= densité de l'eau
+!! 0.75e-3 = 3/4 /1000
+!! Par la suite, I est tout le temps multiplié par sig_d pour avoir l'impaction sur la surface de la maille
+!! on le néglige ici pour simplifier le code
+!  do j=1,klev-1
+!   do i=1,klon
+!    imp(i,j) = coefcoli*0.75e-3/rdrop *&
+!             0.5*(pmflxr(i,j+1)+pmflxs(i,j+1)+pmflxr(i,j)+pmflxs(i,j))
+!!    rho(i,j)=pplay(i,j)/(rd*te(i,j))
+!   enddo
+!  enddo
+!JE end 20140103
+
+!
+! initialisation pour flux de traceurs, td et autre
+   trsptrac = 0.
+   scavtrac = 0.
+   uscavtrac = 0.
+   qfeed(:,it) = 0.              !RL
+  DO j=1,klev
+   DO i=1,klon
+    zmfd(i,j,it)=0.
+    zmfa(i,j,it)=0.
+    zmfu(i,j,it)=0.
+    zmfp(i,j,it)=0.
+    zmfphi2(i,j,it)=0.
+    zmfd1a(i,j,it)=0.
+    zmfdam(i,j,it)=0.
+    qDi(i,j,it)=0.
+    qPr(i,j,it)=0.
+    qPa(i,j,it)=0.
+    qMel(i,j,it)=0.
+    qMeltmp(i,j,it)=0.
+    qTrdi(i,j,it)=0.
+    kappa(i,j)=0.
+    trsptd(i,j,it)=0.
+    dtrsat(i,j,it)=0.
+    dtrSscav(i,j,it)=0.
+    dtrUscav(i,j,it)=0.
+    dtrcv(i,j,it)=0.
+    dtrcvMA(i,j,it)=0.
+    evap(i,j)=0.
+    dxpres(i,j)=0.
+    qpmMint(i,j,it)=0.
+    Mint(i,j)=0.
+   END DO
+  END DO
+
+! suppression des valeurs très faibles (~1e-320)
+! multiplication de levaporation pour lavoir par unite de temps
+! et par unite de surface de la maille
+! -> cv30_unsat : evap : masse evaporee/s/(m2 de la descente)
+  DO j=1,klev
+   DO i=1,klon
+    if(ev(i,j).lt.1.e-16) then
+     evap(i,j)=0.
+    else
+     evap(i,j)=ev(i,j)*sigd(i)
+    endif
+   END DO
+  END DO
+
+  DO j=1,klev
+   DO i=1,klon
+   if(j.lt.klev) then
+    if(epIN(i,j).lt.1.e-32) then
+     ep(i,j)=0.
+    else
+     ep(i,j)=epIN(i,j)
+    endif
+   else
+    ep(i,j)=epmax
+   endif
+    if(mpIN(i,j).lt.1.e-32) then
+     mp(i,j)=0.
+    else
+     mp(i,j)=mpIN(i,j)
+    endif
+    if(pmflxsIN(i,j).lt.1.e-32) then
+     pmflxs(i,j)=0.
+    else
+     pmflxs(i,j)=pmflxsIN(i,j)
+    endif
+    if(pmflxrIN(i,j).lt.1.e-32) then
+     pmflxr(i,j)=0.
+    else
+     pmflxr(i,j)=pmflxrIN(i,j)
+    endif
+    if(wdtrainA(i,j).lt.1.e-32) then
+     Pa(i,j)=0.
+    else
+     Pa(i,j)=wdtrainA(i,j)
+    endif
+    if(wdtrainM(i,j).lt.1.e-32) then
+     Pm(i,j)=0.
+    else
+     Pm(i,j)=wdtrainM(i,j)
+    endif
+   END DO
+  END DO
+
+!==========================================
+  DO j = klev-1,1,-1
+   DO i = 1,klon
+     NO_precip(i,j) = (pmflxr(i,j+1)+pmflxs(i,j+1)).lt.1.e-10&
+                    .and.Pa(i,j).lt.1.e-10.and.Pm(i,j).lt.1.e-10
+   END DO
+  END DO
+!==============================================================================
+! JE SPLA: Calc of ccntrAA_coef,ccntrENV_coef, coefcoli for SPLA aerosols and
+! precursors. From SPLA code inscav_spl.F 
+!print *,'Using SPLA values for cvltr_spl ccntr and coefcoli params'
+!
+!
+!IF (it.EQ.2) THEN !--fine aerosol
+!  DO j=1,klev
+!   DO i=1,klon
+!    ccntrAA_coef3d(i,j)=0.7
+!    ccntrENV_coef3d(i,j)=0.7
+!    coefcoli3d(i,j)=0.001
+!   ENDDO
+!  ENDDO
+!ELSEIF (it.EQ.3) THEN !-- Coarse Sea salt aerosol
+!  DO j=1,klev
+!   DO i=1,klon
+!    ccntrAA_coef3d(i,j)=1.0
+!    ccntrENV_coef3d(i,j)=1.0
+!    coefcoli3d(i,j)=0.001
+!   ENDDO
+!  ENDDO
+!
+!ELSEIF (it.EQ.4) THEN !--Coarse Dust aerosol
+!  DO j=1,klev
+ !  DO i=1,klon
+!    ccntrAA_coef3d(i,j)=0.7
+!    ccntrENV_coef3d(i,j)=0.7
+!    coefcoli3d(i,j)=0.001
+!
+!   ENDDO
+!  ENDDO
+! Gas precursor: Henry's law
+
+IF (it .EQ. id_prec) THEN
+      DO k=1, klev
+      DO i=1, klon
+        henry_t=henry(it)*exp(-kk(it)*(1./298.-1./te(i,k)))    !--mol/l/atm
+        K1=1.2e-2*exp(-2010*(1/298.-1/te(i,k)))
+        K2=6.6e-8*exp(-1510*(1/298.-1/te(i,k)))
+        henry_t=henry_t*(1. + K1/10.**(-ph) + K1*K2/(10.**(-ph))**2)
+        f_a=henry_t/101.325*R*te(i,k)*qliq*zrho(i,k)/rho_water
+ !       scav(i,k)=f_a/(1.+f_a)
+        ccntrAA_coef3d(i,k)= f_a/(1.+f_a)
+        ccntrENV_coef3d(i,k)= f_a/(1.+f_a)
+        coefcoli3d(i,k)=0.0
+      ENDDO
+      ENDDO
+ !    CALL minmaxqfi2(clw,1.e33,-1.e33,'minmax clw')
+ELSE
+  DO j=1,klev
+   DO i=1,klon
+    ccntrAA_coef3d(i,j)=ccntrAA_spla(it)
+    ccntrENV_coef3d(i,j)=ccntrENV_spla(it)
+    coefcoli3d(i,j)=coefcoli_spla(it)
+   ENDDO
+  ENDDO
+
+
+ENDIF
+
+! JE end SPLA modifs in ccn parameters
+!==============================================================================
+
+
+
+
+!JE init 20140103
+! impaction sur la surface de la colonne de la descente insaturee
+! On prend la moyenne des precip entre le niveau i+1 et i
+! I=3/4* (P(1+1)+P(i))/2 / (sigd*r*rho_l)
+!  1000kg/m3= densité de l'eau
+! 0.75e-3 = 3/4 /1000
+! Par la suite, I est tout le temps multiplié par sig_d pour avoir l'impaction sur la surface de la maille
+! on le néglige ici pour simplifier le code
+  do j=1,klev-1
+   do i=1,klon
+!JE    imp(i,j) = coefcoli*0.75e-3/rdrop *&
+!JE             0.5*(pmflxr(i,j+1)+pmflxs(i,j+1)+pmflxr(i,j)+pmflxs(i,j))
+    imp(i,j) = coefcoli3d(i,j)*0.75e-3/rdrop *&
+             0.5*(pmflxr(i,j+1)+pmflxs(i,j+1)+pmflxr(i,j)+pmflxs(i,j))
+!    rho(i,j)=pplay(i,j)/(rd*te(i,j))
+   enddo
+  enddo
+!JE end 20140103
+
+
+! =========================================
+! calcul des tendances liees au downdraft
+! =========================================
+!cdir collapse
+  DO k=1,klev
+   DO j=1,klev
+    DO i=1,klon
+     zmd(i,j,k)=0.
+     za (i,j,k)=0.
+    END DO
+   END DO
+  END DO
+! calcul de la matrice d echange
+! matrice de distribution de la masse entrainee en k
+! commmentaire RomP : mp > 0
+  DO k=1,klev-1
+     DO i=1,klon
+        zmd(i,k,k)=max(0.,mp(i,k)-mp(i,k+1))   ! ~ mk(k)
+     END DO
+  END DO
+  DO k=2,klev
+     DO j=k-1,1,-1
+        DO i=1,klon
+           if(mp(i,j+1).gt.1.e-10) then
+              zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1)) !det ~ mk(j)=mk(j+1)*mp(i,j)/mp(i,j+1)
+           ENDif
+        END DO
+     END DO
+  END DO
+  DO k=1,klev
+     DO j=1,klev-1
+        DO i=1,klon
+           za(i,j,k)=max(0.,zmd(i,j+1,k)-zmd(i,j,k))
+        END DO
+     END DO
+  END DO
+!!!!! quantite  de traceur dans la descente d'air insaturee  :   4 juin 2012
+  DO k=1,klev
+     DO j=1,klev-1
+        DO i=1,klon
+        if(mp(i,j+1).gt.1.e-10) then
+          qTrdi(i,j+1,it)=qTrdi(i,j+1,it)+(zmd(i,j+1,k)/mp(i,j+1))*tr(i,k,it)
+        else
+          qTrdi(i,j,it)=0.!tr(i,j,it)
+        endif
+        ENDDO
+     ENDDO
+  ENDDO
+!!!!!
+!
+! rajout du terme lie a l ascendance induite
+!
+  DO j=2,klev
+     DO i=1,klon
+        za(i,j,j-1)=za(i,j,j-1)+mp(i,j)
+     END DO
+  END DO
+!
+! tendance courants insatures  ! sans lessivage ancien schema
+!
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfd(i,j,it)=zmfd(i,j,it)+za(i,j,k)*(tr(i,k,it)-tr(i,j,it))
+        END DO
+     END DO
+  END DO
+!
+! =========================================
+! calcul des tendances liees aux courants satures   j <-> z ; k <-> z'
+! =========================================
+!RL
+!  Feeding concentrations
+  DO j=1,klev
+     DO i=1,klon
+        qfeed(i,it)=qfeed(i,it)+wght_cvfd(i,j)*tr(i,j,it)
+     END DO
+  END DO
+!RL
+!
+  DO j=1,klev
+     DO i=1,klon
+!RL
+!!        zmfa(i,j,it)=da(i,j)*(tr(i,1,it)-tr(i,j,it))                     ! da
+        zmfa(i,j,it)=da(i,j)*(qfeed(i,it)-tr(i,j,it))                     ! da
+!RL
+     END DO
+  END DO
+!
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfp(i,j,it)=zmfp(i,j,it)+phi(i,j,k)*(tr(i,k,it)-tr(i,j,it))  ! phi
+        END DO
+     END DO
+  END DO
+! RomP ajout des matrices liees au lessivage
+  DO j=1,klev
+     DO i=1,klon
+        zmfd1a(i,j,it)=d1a(i,j)*tr(i,1,it)   ! da1
+        zmfdam(i,j,it)=dam(i,j)*tr(i,1,it)   ! dam
+     END DO
+  END DO
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+          zmfphi2(i,j,it)=zmfphi2(i,j,it)+phi2(i,j,k)*tr(i,k,it)  ! psi
+        END DO
+     END DO
+  END DO
+  DO j=1,klev-1
+     DO i=1,klon
+        zmfu(i,j,it)=max(0.,upd(i,j+1)+dnd(i,j+1))*(tr(i,j+1,it)-tr(i,j,it))
+     END DO
+  END DO
+  DO j=2,klev
+     DO i=1,klon
+        zmfu(i,j,it)=zmfu(i,j,it)+min(0.,upd(i,j)+dnd(i,j))*(tr(i,j,it)-tr(i,j-1,it))
+     END DO
+  END DO
+! ===================================================
+! calcul des tendances liees aux courants insatures
+! ===================================================
+!  pression  
+  DO k=1, klev
+     DO i=1, klon
+        dxpres(i,k)=paprs(i,k)-paprs(i,k+1)
+     ENDDO
+  ENDDO
+  pdtimeRG=pdtime*RG
+
+! q_pa et q_pm    traceurs issues des courants satures se retrouvant dans les precipitations
+  DO j=1,klev
+     DO i=1,klon
+        if(j.ge.icb(i).and.j.le.inb(i)) then
+          if(clw(i,j).gt.1.e-16) then
+!           qPa(i,j,it)=ccntrAA_coef*tr(i,1,it)/clw(i,j)
+           qPa(i,j,it)=ccntrAA_coef3d(i,j)*tr(i,1,it)/clw(i,j)
+          else
+           qPa(i,j,it)=0.
+          endif
+        endif
+     END DO
+  END DO
+
+! calcul de q_pm en 2 parties :
+! 1) calcul de sa valeur pour un niveau z' donne
+! 2) integration sur la verticale sur z'
+     DO j=1,klev
+      DO k=1,j-1
+        DO i=1,klon
+        if(k.ge.icb(i).and.k.le.inb(i).and.& 
+           j.le.inb(i)) then
+            if(elij(i,k,j).gt.1.e-16) then
+!JE             qMeltmp(i,j,it)=((1-ep(i,k))*ccntrAA_coef*tr(i,1,it)&
+!JE                         *(1.-sij(i,k,j))  +ccntrENV_coef&
+!JE                         *tr(i,k,it)*sij(i,k,j)) / elij(i,k,j)
+             qMeltmp(i,j,it)=((1-ep(i,k))*ccntrAA_coef3d(i,k)*tr(i,1,it)&
+                         *(1.-sij(i,k,j))  +ccntrENV_coef3d(i,k)&
+                         *tr(i,k,it)*sij(i,k,j)) / elij(i,k,j)
+            else
+             qMeltmp(i,j,it)=0.
+            endif
+          qpmMint(i,j,it)=qpmMint(i,j,it) + qMeltmp(i,j,it)*epmlmMm(i,j,k)
+          Mint(i,j)=Mint(i,j) + epmlmMm(i,j,k)
+        endif ! end if dans nuage
+        END DO
+     END DO
+  END DO
+
+     DO j=1,klev
+        DO i=1,klon
+          if(Mint(i,j).gt.1.e-16) then
+           qMel(i,j,it)=qpmMint(i,j,it)/Mint(i,j)
+          else
+           qMel(i,j,it)=0.
+          endif
+     END DO
+  END DO
+
+! calcul de q_d et q_p    traceurs de la descente precipitante 
+   DO j=klev-1,1,-1
+    DO i=1,klon
+     if(mp(i,j+1).gt.mp(i,j).and.mp(i,j+1).gt.1.e-10) then  ! detrainement
+       kappa(i,j)=((pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                (-mp(i,j+1)-imp(i,j)/RG*dxpres(i,j))&
+                + (imp(i,j)/RG*dxpres(i,j))*(evap(i,j)/RG*dxpres(i,j)))
+             
+     elseif(mp(i,j).gt.mp(i,j+1).and.mp(i,j).gt.1.e-10) then! entrainement
+       if(j.eq.1) then
+        kappa(i,j)=((pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                 (-mp(i,2)-imp(i,j)/RG*dxpres(i,j))&
+                 + (imp(i,j)/RG*dxpres(i,j))*(evap(i,j)/RG*dxpres(i,j)))
+       else
+        kappa(i,j)=((pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+                 (-mp(i,j)-imp(i,j)/RG*dxpres(i,j))&
+                 + (imp(i,j)/RG*dxpres(i,j))*(evap(i,j)/RG*dxpres(i,j)))
+       endif
+      else
+        kappa(i,j)=1.
+      endif
+    ENDDO
+   ENDDO
+
+  DO j=klev-1,1,-1
+   DO i=1,klon
+    if (abs(kappa(i,j)).lt.1.e-25) then    !si denominateur nul (il peut y avoir des mp!=0)
+     kappa(i,j)=1.
+     if(j.eq.1) then
+       qDi(i,j,it)=qDi(i,j+1,it) !orig tr(i,j,it)   ! mp(1)=0 donc tout vient de la couche supérieure
+     elseif(mp(i,j+1).gt.mp(i,j).and.mp(i,j+1).gt.1.e-10) then
+       qDi(i,j,it)=qDi(i,j+1,it)
+     elseif(mp(i,j).gt.mp(i,j+1).and.mp(i,j).gt.1.e-10) then! entrainement
+       qDi(i,j,it)=(-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it))/(-mp(i,j))
+     else  ! si  mp (i)=0 et mp(j+1)=0
+       qDi(i,j,it)=tr(i,j,it) ! orig 0.
+     endif 
+
+      if(NO_precip(i,j)) then
+       qPr(i,j,it)=0.
+      else
+       qPr(i,j,it)=((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                   Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)&
+                   +imp(i,j)/RG*dxpres(i,j)*qDi(i,j,it))/&
+                  (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))
+      endif
+    else   !     denominateur non nul
+     kappa(i,j)=1./kappa(i,j)     
+! calcul de qd et qp
+!!jyg  (20130119) correction pour le sommet du nuage
+!!     if(j.ge.inb(i)) then       !au-dessus du nuage, sommet inclu
+     if(j.gt.inb(i)) then       !au-dessus du nuage
+       qDi(i,j,it)=tr(i,j,it)   ! pas de descente => environnement = descente insaturee
+       qPr(i,j,it)=0.
+
+!  vvv premiere couche du modele ou mp(1)=0  ! det tout le temps  vvv
+     elseif(j.eq.1) then 
+      if(mp(i,2).gt.1.e-10) then !mp(2) non nul -> detrainement (car mp(1) = 0) !ent pas possible
+       if(NO_precip(i,j)) then !pas de precip en (i)
+        qDi(i,j,it)=qDi(i,j+1,it)
+        qPr(i,j,it)=0.
+       else
+        qDi(i,j,it)=kappa(i,j)*(&
+            (-evap(i,j)/RG*dxpres(i,j))*((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+            Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)) +&
+            (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+            (-mp(i,j+1)*qDi(i,j+1,it)))
+
+        qPr(i,j,it)=kappa(i,j)*(&
+            (-mp(i,j+1)-imp(i,j)/RG*dxpres(i,j))*&
+            ((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+            Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it))&
+            +(-mp(i,j+1)*qDi(i,j+1,it)) * (imp(i,j)/RG*dxpres(i,j)))
+       endif
+
+      else !mp(2) nul -> plus de descente insaturee -> pluie agit sur environnement
+        qDi(i,j,it)=tr(i,j,it) ! orig 0.
+        if(NO_precip(i,j)) then
+         qPr(i,j,it)=0.
+        else
+         qPr(i,j,it)=((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                   Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)&
+                   +imp(i,j)/RG*dxpres(i,j)*tr(i,j,it))/&
+                  (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))
+        endif
+
+      endif  !mp(2) nul ou non
+
+! vvv  (j!=1.and.j.lt.inb(i))  en-dessous du sommet nuage   vvv
+     else 
+!------------------------------------------------------------- detrainement 
+      if(mp(i,j+1).gt.mp(i,j).and.mp(i,j+1).gt.1.e-10) then !mp(i,j).gt.1.e-10) then
+         if(NO_precip(i,j)) then 
+          qDi(i,j,it)=qDi(i,j+1,it)
+          qPr(i,j,it)=0.
+         else
+          qDi(i,j,it)=kappa(i,j)*(&
+            (-evap(i,j)/RG*dxpres(i,j))*((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+            Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)) +&
+            (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+            (-mp(i,j+1)*qDi(i,j+1,it)))
+!
+          qPr(i,j,it)=kappa(i,j)*(&
+            (-mp(i,j+1)-imp(i,j)/RG*dxpres(i,j))*&
+            ((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+            Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it))&
+            +(-mp(i,j+1)*qDi(i,j+1,it)) * (imp(i,j)/RG*dxpres(i,j)))
+         endif !precip
+!------------------------------------------------------------- entrainement 
+      elseif(mp(i,j).gt.mp(i,j+1).and.mp(i,j).gt.1.e-10) then 
+         if(NO_precip(i,j)) then
+          qDi(i,j,it)=(-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it))/(-mp(i,j))
+          qPr(i,j,it)=0.
+         else
+          qDi(i,j,it)=kappa(i,j)*(&
+            (-evap(i,j)/RG*dxpres(i,j))*((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+            Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)) +&
+            (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))*&
+            (-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it)))
+!
+          qPr(i,j,it)=kappa(i,j)*(&
+            (-mp(i,j)-imp(i,j)/RG*dxpres(i,j))*&
+            ((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+            Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it))&
+            +(-mp(i,j+1)*(qDi(i,j+1,it)-tr(i,j,it))-mp(i,j)*tr(i,j,it))*&
+            (imp(i,j)/RG*dxpres(i,j)))
+         endif !precip
+!------------------------------------------------------------- endif ! ent/det
+      else  !mp nul
+        qDi(i,j,it)=tr(i,j,it) ! orig 0.
+        if(NO_precip(i,j)) then
+         qPr(i,j,it)=0.
+        else
+         qPr(i,j,it)=((pmflxr(i,j+1)+pmflxs(i,j+1))*qPr(i,j+1,it)+&
+                   Pa(i,j)*qPa(i,j,it)+Pm(i,j)*qMel(i,j,it)&
+                   +imp(i,j)/RG*dxpres(i,j)*tr(i,j,it))/&
+                  (pmflxr(i,j+1)+pmflxs(i,j+1)+Pa(i,j)+Pm(i,j))
+        endif
+      endif ! mp nul ou non
+     endif ! condition sur j
+    endif ! kappa
+   ENDDO
+  ENDDO
+
+!! print test descente insaturee
+!  DO j=klev,1,-1
+!   DO i=1,klon
+!     if(it.eq.3) then
+!   write(*,'(I2,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12)') j,&
+!!         'zmfdam',zmfdam(i,j,it),'zmfpsi',zmfphi2(i,j,it),&
+!          'zmfdam+zmfpsi',zmfdam(i,j,it)+zmfphi2(i,j,it),'qpmMint',qpmMint(i,j,it),&
+!          'Pm',Pm(i,j),'Mint',Mint(i,j),&
+!!          'zmfa',zmfa(i,j,it),'zmfp',zmfp(i,j,it),&
+!        'zmfdam',zmfdam(i,j,it),'zmfpsi',zmfphi2(i,j,it),'zmfd1a',zmfd1a(i,j,it)
+!!          'Pa',Pa(i,j),'eplaMm',eplaMm(i,j)
+!!         'zmfd1a=da1*qa',zmfd1a(i,j,it),'Pa*qPa',wdtrainA(i,j)*qPa(i,j,it),'da1',d1a(i,j)
+!     endif
+!   ENDDO
+!  ENDDO
+
+
+! ===================================================
+! calcul final des tendances
+! ===================================================
+
+  DO k=klev-1,1,-1
+    DO i=1, klon
+! transport
+     tdcvMA=zmfd(i,k,it)+zmfu(i,k,it)+zmfa(i,k,it)+zmfp(i,k,it)   ! double comptage des downdraft insatures
+     trsptrac=zmfu(i,k,it)+zmfa(i,k,it)+zmfp(i,k,it)
+! lessivage courants satures
+!JE     scavtrac=-ccntrAA_coef*zmfd1a(i,k,it)&
+!JE               -zmfphi2(i,k,it)*ccntrENV_coef&
+!JE               -zmfdam(i,k,it)*ccntrAA_coef
+     scavtrac=-ccntrAA_coef3d(i,k)*zmfd1a(i,k,it)&
+               -zmfphi2(i,k,it)*ccntrENV_coef3d(i,k)&
+               -zmfdam(i,k,it)*ccntrAA_coef3d(i,k)
+! lessivage courants insatures
+   if(k.le.inb(i).and.k.gt.1) then   ! tendances dans le nuage
+!------------------------------------------------------------- detrainement
+      if(mp(i,k+1).gt.mp(i,k).and.mp(i,k+1).gt.1.e-10) then
+        uscavtrac= (-mp(i,k)+mp(i,k+1))*(qDi(i,k,it)-tr(i,k,it))&
+                   + mp(i,k)*(tr(i,k-1,it)-tr(i,k,it))
+!
+!        if(it.eq.3) write(*,'(I2,1X,a,5X,e20.12,82X,a,e20.12)')k,' det incloud',&
+!                    (-mp(i,k)+mp(i,k+1))*(qDi(i,k,it)-tr(i,k,it))*pdtimeRG/dxpres(i,k)+&
+!                    mp(i,k)*(tr(i,k-1,it)-tr(i,k,it))*pdtimeRG/dxpres(i,k),&
+!                    'mp',mp(i,k)
+!------------------------------------------------------------- entrainement 
+      elseif(mp(i,k).gt.mp(i,k+1).and.mp(i,k).gt.1.e-10) then
+         uscavtrac= mp(i,k)*(tr(i,k-1,it)-tr(i,k,it))
+!
+!         if(it.eq.3) write(*,'(I2,1X,a,5X,e20.12,82X,a,e20.12)')k,' ent incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+!=!------------------------------------------------------------- end ent/det 
+      else !        mp(i,k+1)=0. et mp(i,k)=0.    pluie directement sur l environnement
+
+        if(NO_precip(i,k)) then
+          uscavtrac=0.
+!         if(it.eq.3) write(*,'(I2,1X,a,e20.12,82X,a,e20.12)')k,' no P ent incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+        else
+          uscavtrac=-imp(i,k)*tr(i,k,it)*dxpres(i,k)/RG+evap(i,k)*qPr(i,k,it)*dxpres(i,k)/RG
+!         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+!!JE adds
+!         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'imp',imp(i,k)
+!         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'tr',tr(i,k,it)
+!         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'evap',evap(i,k)
+!         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'qPr',qPr(i,k,it)
+!         if(it.eq.3) write(*,'(I2,1X,a,3X,e20.12,82X,a,e20.12)')k,' P env incloud',uscavtrac, 'dxpres',dxpres(i,k)
+!!Je end
+
+        endif
+      endif  ! mp/det/ent
+!------------------------------------------------------------- premiere couche 
+   elseif(k.eq.1) then  !                                      mp(1)=0.
+      if(mp(i,2).gt.1.e-10) then  !detrainement
+         uscavtrac= (-0.+mp(i,2))*(qDi(i,k,it)-tr(i,k,it)) !&
+!                   + mp(i,2)*(0.-tr(i,k,it))
+!
+!       if(it.eq.3) write(*,'(I2,1X,a,e20.12,84X,a,e20.12)')k,' 1 det',&
+!                  (-0.+mp(i,2))*(qDi(i,k,it)-tr(i,k,it))*pdtimeRG/dxpres(i,k)+&
+!                  mp(i,2)*(0.-tr(i,k,it))*pdtimeRG/dxpres(i,k),&
+!                   'mp',mp(i,k)
+      else   ! mp(2) = 0 = mp(1) pas de descente insaturee, rien ne se passe s'il ne pleut pas, sinon pluie->env
+        if(NO_precip(i,1)) then
+          uscavtrac=0.
+        else
+          uscavtrac=-imp(i,k)*tr(i,k,it)*dxpres(i,k)/RG+evap(i,k)*qPr(i,k,it)*dxpres(i,k)/RG
+        endif
+!         if(it.eq.3) write(*,'(I2,1X,a,2X,e20.12,82X,a,e20.12)')k,'1 P env incloud',uscavtrac*pdtimeRG/dxpres(i,k), 'mp',mp(i,k)
+      endif
+
+   else   ! k > INB  au-dessus du nuage
+    uscavtrac=0.
+   endif
+
+! =====    tendances finales  ======
+     trsptd(i,k,it)=trsptrac*pdtimeRG/dxpres(i,k)              ! td transport sans eau dans courants satures
+     dtrSscav(i,k,it)=scavtrac*pdtimeRG/dxpres(i,k)            ! td du lessivage dans courants satures
+     dtrUscav(i,k,it)=uscavtrac*pdtimeRG/dxpres(i,k)           ! td courant insat
+     dtrsat(i,k,it)=(trsptrac+scavtrac)*pdtimeRG/dxpres(i,k)   ! td courant sat
+     dtrcv(i,k,it)=(trsptrac+scavtrac+uscavtrac)*pdtimeRG/dxpres(i,k)!dtrsat(i,k,it)+dtrUscav(i,k,it)         td conv
+!!!!!!
+     dtrcvMA(i,k,it)=tdcvMA*pdtimeRG/dxpres(i,k) ! MA tendance convection
+     ENDDO
+  ENDDO
+
+! test de conservation du traceur
+!print*,"_____________________________________________________________"
+!print*,"                                                             "
+!      conserv=0.
+!      conservMA=0.
+!      DO k= klev-1,1,-1
+!        DO i=1, klon
+!         conserv=conserv+dtrcv(i,k,it)*   &
+!        (paprs(i,k)-paprs(i,k+1))/RG
+!         conservMA=conservMA+dtrcvMA(i,k,it)*   &
+!        (paprs(i,k)-paprs(i,k+1))/RG
+!
+!      if(it.eq.3)  write(*,'(I2,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12,2X,a,e20.12)') k,&
+!         'MA td ',dtrcvMA(i,k,it)*dxpres(i,k)/RG,&
+!         ' td',dtrcv(i,k,it)*dxpres(i,k)/RG,'         conservMA ',conservMA,'conserv ',conserv
+!!
+!        ENDDO
+!      ENDDO
+!       if(it.eq.3) print *,'it',it,'conserv ',conserv,'conservMA ',conservMA
+
+END SUBROUTINE cvltr_spl
Index: LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/etat0_netcdf.F90	(revision 2160)
@@ -187,5 +187,5 @@
    &              rlonu, rlatv, ib)
     WRITE(lunout,*)'MASQUE construit : Masque'
-    WRITE(lunout,'(97I1)') nINT(masque)
+    if (prt_level >= 1) WRITE(lunout,'(97I1)') nINT(masque)
     CALL gr_dyn_fi(1, iip1, jjp1, klon, masque, zmasq)
     WHERE(   zmasq(:)<EPSFRA) zmasq(:)=0.
@@ -421,5 +421,5 @@
   WRITE(fmt,"(i4,'i1)')")iip1 ; fmt='('//ADJUSTL(fmt)
   WRITE(lunout,*) 'MASQUE construit : Masque'
-  WRITE(lunout,TRIM(fmt))NINT(masque(:,:))
+  if (prt_level >= 1) WRITE(lunout,TRIM(fmt))NINT(masque(:,:))
 
 ! Intermediate computation
Index: LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90	(revision 2160)
@@ -4,5 +4,5 @@
 !
 SUBROUTINE fisrtilp(dtime,paprs,pplay,t,q,ptconv,ratqs, &
-     d_t, d_q, d_ql, rneb, radliq, rain, snow,          &
+     d_t, d_q, d_ql, d_qi, rneb, radliq, rain, snow,          &
      pfrac_impa, pfrac_nucl, pfrac_1nucl,               &
      frac_impa, frac_nucl, beta,                        &
@@ -13,5 +13,5 @@
   !
   USE dimphy
-  USE microphys_mod ! cloud microphysics (JBM 3/14)
+  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
   IMPLICIT none
   !======================================================================
@@ -41,4 +41,5 @@
   REAL d_q(klon,klev) ! incrementation de la vapeur d'eau
   REAL d_ql(klon,klev) ! incrementation de l'eau liquide
+  REAL d_qi(klon,klev) ! incrementation de l'eau glace
   REAL rneb(klon,klev) ! fraction nuageuse
   REAL radliq(klon,klev) ! eau liquide utilisee dans rayonnements
@@ -107,5 +108,6 @@
   REAL DDT0
   PARAMETER (DDT0=.01)
-  INTEGER n_i, iter
+  INTEGER n_i(klon), iter
+  REAL cste
  
   REAL zrfl(klon), zrfln(klon), zqev, zqevt 
@@ -123,4 +125,5 @@
   REAL zmelt, zpluie, zice, zcondold
   PARAMETER (ztfondue=278.15)
+  REAL dzfice(klon)
   !
   LOGICAL appel1er
@@ -165,5 +168,7 @@
   DATA appel1er /.TRUE./
   !ym
-  ice_thermo = iflag_ice_thermo .GE. 1
+!CR: pour iflag_ice_thermo=2, on active que la convection
+!  ice_thermo = iflag_ice_thermo .GE. 1
+   ice_thermo = (iflag_ice_thermo .EQ. 1).OR.(iflag_ice_thermo .GE. 3)
   zdelq=0.0
 
@@ -208,4 +213,5 @@
   !  nexpo regle la raideur de la transition eau liquide / eau glace.
   !
+!CR: on est oblige de definir des valeurs fisrt car les valeurs de newmicro ne sont pas les memes par defaut
   IF (iflag_t_glace.EQ.0) THEN
 !   ztglace = RTT - 15.0
@@ -219,4 +225,5 @@
       exposant_glace_old = 6
     ENDIF
+    
   ENDIF
   
@@ -242,4 +249,5 @@
         d_q(i,k) = 0.0
         d_ql(i,k) = 0.0
+        d_qi(i,k) = 0.0
         rneb(i,k) = 0.0
         radliq(i,k) = 0.0
@@ -450,4 +458,17 @@
          zifl(i) = zifln(i)
 
+!CR ATTENTION: deplacement de la fonte de la glace
+           zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2
+           zmelt = MIN(MAX(zmelt,0.),1.)
+           zrfl(i)=zrfl(i)+zmelt*zifl(i)
+           zifl(i)=zifl(i)*(1.-zmelt)
+!           print*,zt(i),'octavio1'
+           zt(i)=zt(i)-zifl(i)*zmelt*(RG*dtime)/(paprs(i,k)-paprs(i,k+1)) &
+                      *RLMLT/RCPD/(1.0+RVTMP2*zq(i))
+!           print*,zt(i),zrfl(i),zifl(i),zmelt,'octavio2'
+!fin CR
+
+
+
            ENDIF ! (zrfl(i)+zifl(i).GT.0.)
         ENDDO
@@ -486,9 +507,9 @@
      !
 !verification de la valeur de iflag_fisrtilp_qsat pour iflag_ice_thermo=1
-       if ((iflag_ice_thermo.eq.1).and.(iflag_fisrtilp_qsat.ne.0)) then
-         write(*,*) " iflag_ice_thermo==1 requires iflag_fisrtilp_qsat==0", &
-        " but iflag_fisrtilp_qsat=",iflag_fisrtilp_qsat, ". Might as well stop here."
-         stop
-       endif
+!       if ((iflag_ice_thermo.eq.1).and.(iflag_fisrtilp_qsat.ne.0)) then
+!         write(*,*) " iflag_ice_thermo==1 requires iflag_fisrtilp_qsat==0", &
+!        " but iflag_fisrtilp_qsat=",iflag_fisrtilp_qsat, ". Might as well stop here."
+!         stop
+!       endif
 
      IF (cpartiel) THEN
@@ -549,8 +570,39 @@
            end if
 
+!CR: variation de qsat avec T en présence de glace ou non
+!initialisations
            do i=1,klon
+              DT(i) = 0.
+              n_i(i)=0
               Tbef(i)=zt(i)
-              qlbef(i)=0. 
-              if (lognormale(i)) then
+              qlbef(i)=0.
+           enddo
+
+
+!Boucle iterative: ATTENTION, l'option -1 n'est plus activable ici
+           if (iflag_fisrtilp_qsat.ge.0) then
+             do iter=1,iflag_fisrtilp_qsat+1
+                
+               do i=1,klon
+!                 do while ((abs(DT(i)).gt.DDT0).or.(n_i(i).eq.0))
+                 convergence(i)=abs(DT(i)).gt.DDT0
+                 if ((convergence(i).or.(n_i(i).eq.0)).and.lognormale(i)) then
+                 Tbef(i)=Tbef(i)+DT(i) 
+                 if (.not.ice_thermo) then   
+                    zdelta = MAX(0.,SIGN(1.,RTT-Tbef(i)))
+                 else
+                    if (iflag_t_glace.eq.0) then
+                    zdelta = MAX(0.,SIGN(1.,t_glace_min_old-Tbef(i)))
+                    else if (iflag_t_glace.eq.1) then
+                    zdelta = MAX(0.,SIGN(1.,t_glace_min-Tbef(i)))
+                    endif
+                 endif
+                 zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
+                 zcvm5 = zcvm5 /RCPD/(1.0+RVTMP2*zq(i))
+                 zqs(i) = R2ES*FOEEW(Tbef(i),zdelta)/pplay(i,k)
+                 zqs(i) = MIN(0.5,zqs(i))
+                 zcor = 1./(1.-RETV*zqs(i))
+                 zqs(i) = zqs(i)*zcor
+                 zdqs(i) = FOEDE(Tbef(i),zdelta,zcvm5,zqs(i),zcor)
                  zpdf_sig(i)=ratqs(i,k)*zq(i)
                  zpdf_k(i)=-sqrt(log(1.+(zpdf_sig(i)/zq(i))**2))
@@ -573,60 +625,74 @@
                  endif
 
+                 endif !convergence
+               enddo ! boucle en i
+
+                 if (.not. ice_thermo) then
+
+                 do i=1,klon
+                 if ((convergence(i).or.(n_i(i).eq.0)).and.lognormale(i)) then
+
                  qlbef(i)=max(0.,zqn(i)-zqs(i))
                  num=-Tbef(i)+zt(i)+rneb(i,k)*RLVTT/RCPD/(1.0+RVTMP2*zq(i))*qlbef(i)
                  denom=1.+rneb(i,k)*zdqs(i)
                  DT(i)=num/denom
-              endif
-           enddo
+                 n_i(i)=n_i(i)+1
+                 endif
+                 enddo
+
+                 else
+
+!calcul de la fraction de glace
+!CR: on utilise la nouvelle fonction de JBM pour l ancien calcul
+!                 zfice(i) = icefrac_lsc(Tbef(i), t_glace_min, &
+!                                     t_glace_max, exposant_glace)
+!                 zfice(i) = 1.0 - (Tbef(i)-ztglace) / (RTT-ztglace)
+!                 zfice(i) = MIN(MAX(zfice(i),0.0),1.0)
+!                 zfice(i) = zfice(i)**nexpo
+                 if (iflag_t_glace.eq.1) then
+                 CALL icefrac_lsc(klon,zt(:),pplay(:,k)/paprs(:,1),zfice(:))
+                 endif
+
+                 do i=1,klon
+                 if ((convergence(i).or.(n_i(i).eq.0)).and.lognormale(i)) then
+                 
+                 if (iflag_t_glace.eq.0) then
+                    zfice(i) = 1.0 - (Tbef(i)-t_glace_min_old) / (RTT-t_glace_min_old)
+                    zfice(i) = MIN(MAX(zfice(i),0.0),1.0)
+                    zfice(i) = zfice(i)**exposant_glace_old
+                    dzfice(i)= exposant_glace_old * zfice(i)**(exposant_glace_old-1) / (t_glace_min_old - RTT)
+                 endif
+                 
+                 if (iflag_t_glace.eq.1) then
+                 dzfice(i)= exposant_glace * zfice(i)**(exposant_glace-1) / (t_glace_min - t_glace_max)
+                 endif
+               
+                 if ((zfice(i).eq.0).or.(zfice(i).eq.1)) then
+                    dzfice(i)=0.
+                 endif
+
+                 if (zfice(i).lt.1) then
+                    cste=RLVTT
+                 else
+                    cste=RLSTT
+                 endif
+
+                 qlbef(i)=max(0.,zqn(i)-zqs(i))
+                 num=-Tbef(i)+zt(i)+rneb(i,k)*((1-zfice(i))*RLVTT+zfice(i)*RLSTT)/RCPD/(1.0+RVTMP2*zq(i))*qlbef(i)
+                 denom=1.+rneb(i,k)*((1-zfice(i))*RLVTT+zfice(i)*RLSTT)/cste*zdqs(i) &
+                         -(RLSTT-RLVTT)/RCPD/(1.0+RVTMP2*zq(i))*rneb(i,k)*qlbef(i)*dzfice(i)
+                 DT(i)=num/denom
+                 n_i(i)=n_i(i)+1
+
+                 endif ! fin convergence
+                 enddo ! fin boucle i
+
+                 endif !ice_thermo
+
+!                 endif
+!               enddo
   
-           n_i=1
-!               do while ((abs(DT(i)).gt.DDT0).and.((zqn(i)-zqs(i)).gt.0.))
-! iflag_fisrtilp_qsat=0: qsat ne varie pas avec T
-! iflag_fisrtilp_qsat > 1 : nombre d iterations max pour converger sur le calcul de qsat(T)
-!               do while (n_i.le.iflag_fisrtilp_qsat)
-           if (iflag_fisrtilp_qsat.ge.1) then
-           do iter=1,iflag_fisrtilp_qsat
-              do i=1,klon
-                 convergence(i)=abs(DT(i)).gt.DDT0
-                 if (convergence(i).and.lognormale(i)) then
-                 Tbef(i)=Tbef(i)+DT(i)                 
-                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef(i)))
-                 zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
-                 zcvm5 = zcvm5 /RCPD/(1.0+RVTMP2*zq(i))
-                 zqs(i)= R2ES * FOEEW(Tbef(i),zdelta)/pplay(i,k)
-                 zqs(i)=MIN(0.5,zqs(i))
-                 zcor=1./(1.-retv*zqs(i))
-                 zqs(i)=zqs(i)*zcor
-                 zdqs(i)=FOEDE(Tbef(i),zdelta,zcvm5,zqs(i),zcor)
-
-                 zpdf_sig(i)=ratqs(i,k)*zq(i)
-                 zpdf_k(i)=-sqrt(log(1.+(zpdf_sig(i)/zq(i))**2))
-                 zpdf_delta(i)=log(zq(i)/zqs(i))
-                 zpdf_a(i)=zpdf_delta(i)/(zpdf_k(i)*sqrt(2.))
-                 zpdf_b(i)=zpdf_k(i)/(2.*sqrt(2.))
-                 zpdf_e1(i)=zpdf_a(i)-zpdf_b(i)
-                 zpdf_e1(i)=sign(min(abs(zpdf_e1(i)),5.),zpdf_e1(i))
-                 zpdf_e1(i)=1.-erf(zpdf_e1(i))
-                 zpdf_e2(i)=zpdf_a(i)+zpdf_b(i)
-                 zpdf_e2(i)=sign(min(abs(zpdf_e2(i)),5.),zpdf_e2(i))
-                 zpdf_e2(i)=1.-erf(zpdf_e2(i))
-              
-                 if (zpdf_e1(i).lt.1.e-10) then
-                    rneb(i,k)=0.
-                    zqn(i)=zqs(i)
-                 else
-                    rneb(i,k)=0.5*zpdf_e1(i)
-                    zqn(i)=zq(i)*zpdf_e2(i)/zpdf_e1(i)
-                 endif
-
-                 qlbef(i)=max(0.,zqn(i)-zqs(i))    
-                 num=-Tbef(i)+zt(i)+rneb(i,k)*RLVTT/RCPD/(1.0+RVTMP2*zq(i))*qlbef(i)
-                 denom=1.+rneb(i,k)*zdqs(i)
-                 DT(i)=num/denom
-                 n_i=n_i+1
-                 endif
-              enddo
-              enddo
-
+          
+             enddo
            endif
 
@@ -634,7 +700,9 @@
         endif ! iflag_pdf
 
-        if (iflag_fisrtilp_qsat.eq.-1) then 
-!CR: ATTENTION option fausse mais a existe
-        DO i=1,klon
+
+!        if (iflag_fisrtilp_qsat.eq.-1) then 
+!CR: ATTENTION option fausse mais a existe: pour la re-activer, prendre iflag_fisrtilp_qsat=0 et activer les lignes suivantes: 
+       IF (1.eq.0) THEN 
+       DO i=1,klon
            IF (rneb(i,k) .LE. 0.0) THEN
               zqn(i) = 0.0
@@ -652,6 +720,7 @@
            ENDIF
         ENDDO
-
-        ELSE
+        ENDIF
+
+!        ELSE
 
         DO i=1,klon
@@ -673,5 +742,5 @@
 
 
-        ENDIF
+!        ENDIF
 
         !         do i=1,klon
@@ -722,11 +791,17 @@
         endif
      ELSE
-       IF (iflag_t_glace.EQ.0) THEN
+         if (iflag_t_glace.eq.1) then
+            CALL icefrac_lsc(klon,zt(:),pplay(:,k)/paprs(:,1),zfice(:))
+         endif
          if (iflag_fisrtilp_qsat.lt.1) then
            DO i = 1, klon
-              zfice(i) = 1.0 - (zt(i)-t_glace_min_old) / (273.15-t_glace_min_old)
-              zfice(i) = MIN(MAX(zfice(i),0.0),1.0)
-              zfice(i) = zfice(i)**exposant_glace_old
-!             zfice(i) = zfice(i)**nexpo
+! JBM: icefrac_lsc is now a function contained in icefrac_lsc_mod
+!              zfice(i) = icefrac_lsc(zt(i), t_glace_min, &
+!                                     t_glace_max, exposant_glace)
+              if (iflag_t_glace.eq.0) then
+                    zfice(i) = 1.0 - (Tbef(i)-t_glace_min_old) / (RTT-t_glace_min_old)
+                    zfice(i) = MIN(MAX(zfice(i),0.0),1.0)
+                    zfice(i) = zfice(i)**exposant_glace_old
+              endif
               zt(i) = zt(i) + (1.-zfice(i))*zcond(i) * RLVTT/RCPD/(1.0+RVTMP2*zq(i)) &
                        +zfice(i)*zcond(i) * RLSTT/RCPD/(1.0+RVTMP2*zq(i))
@@ -734,36 +809,22 @@
          else
            DO i=1, klon
-              zfice(i) = 1.0 - (zt(i)-t_glace_min_old) / (273.15-t_glace_min_old)
-              zfice(i) = MIN(MAX(zfice(i),0.0),1.0)
-              zfice(i) = zfice(i)**exposant_glace_old
-!             zfice(i) = zfice(i)**nexpo
-!CR: ATTENTION zt different de Tbef: à corriger
+              if (lognormale(i)) then
+                 zt(i)=Tbef(i)
+              else
+! JBM: icefrac_lsc is now a function contained in icefrac_lsc_mod
+!              zfice(i) = icefrac_lsc(zt(i), t_glace_min, &
+!                                     t_glace_max, exposant_glace)
+              if (iflag_t_glace.eq.0) then
+                    zfice(i) = 1.0 - (Tbef(i)-t_glace_min_old) / (RTT-t_glace_min_old)
+                    zfice(i) = MIN(MAX(zfice(i),0.0),1.0)
+                    zfice(i) = zfice(i)**exposant_glace_old
+              endif
               zt(i) = zt(i) + (1.-zfice(i))*zcond(i) * RLVTT/RCPD/(1.0+RVTMP2*(zq(i)+zcond(i))) &
                        +zfice(i)*zcond(i) * RLSTT/RCPD/(1.0+RVTMP2*(zq(i)+zcond(i)))
-           ENDDO
-         endif
-!         print*,zt(i),zrfl(i),zifl(i),'temp1'
-       ELSE ! of IF (iflag_t_glace.EQ.0)
-         if (iflag_fisrtilp_qsat.lt.1) then
-           DO i = 1, klon
-! JBM: icefrac_lsc is now a function contained in microphys_mod
-              zfice(i) = icefrac_lsc(zt(i), t_glace_min, &
-                                     t_glace_max, exposant_glace)
-              zt(i) = zt(i) + (1.-zfice(i))*zcond(i) * RLVTT/RCPD/(1.0+RVTMP2*zq(i)) &
-                       +zfice(i)*zcond(i) * RLSTT/RCPD/(1.0+RVTMP2*zq(i))
-           ENDDO
-         else
-           DO i=1, klon
-! JBM: icefrac_lsc is now a function contained in microphys_mod
-              zfice(i) = icefrac_lsc(zt(i), t_glace_min, &
-                                     t_glace_max, exposant_glace)
-!CR: ATTENTION zt different de Tbef: à corriger
-              zt(i) = zt(i) + (1.-zfice(i))*zcond(i) * RLVTT/RCPD/(1.0+RVTMP2*(zq(i)+zcond(i))) &
-                       +zfice(i)*zcond(i) * RLSTT/RCPD/(1.0+RVTMP2*(zq(i)+zcond(i)))
+              endif
            ENDDO
          endif
 !         print*,zt(i),zrfl(i),zifl(i),'temp1'
        ENDIF
-     ENDIF
 !>AJ
      !
@@ -790,11 +851,12 @@
          ENDDO
        ELSE ! of IF (iflag_t_glace.EQ.0)
-         DO i = 1, klon
-            IF (rneb(i,k).GT.0.0) THEN
-! JBM: icefrac_lsc is now a function contained in microphys_mod
-              zfice(i) = icefrac_lsc(zt(i), t_glace_min, &
-                                     t_glace_max, exposant_glace)
-            ENDIF
-         ENDDO
+         CALL icefrac_lsc(klon,zt(:),pplay(:,k)/paprs(:,1),zfice(:))
+!         DO i = 1, klon
+!            IF (rneb(i,k).GT.0.0) THEN
+! JBM: icefrac_lsc is now a function contained in icefrac_lsc_mod
+!              zfice(i) = icefrac_lsc(zt(i), t_glace_min, &
+!                                     t_glace_max, exposant_glace)
+!            ENDIF
+!         ENDDO
        ENDIF
      ENDIF
@@ -869,5 +931,12 @@
        DO i = 1, klon
          IF (rneb(i,k).GT.0.0) THEN
+!CR on prend en compte la phase glace
+           if (.not.ice_thermo) then
            d_ql(i,k) = zoliq(i)
+           d_qi(i,k) = 0.
+           else
+           d_ql(i,k) = (1-zfice(i))*zoliq(i)
+           d_qi(i,k) = zfice(i)*zoliq(i)
+           endif
 !AJ<
            zrfl(i) = zrfl(i)+ MAX(zcond(i)*(1.-zfice(i))-zoliqp(i),0.0) &
@@ -884,16 +953,17 @@
      ENDIF
 
-     IF (ice_thermo) THEN
-       DO i = 1, klon
-           zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2
-           zmelt = MIN(MAX(zmelt,0.),1.)
-           zrfl(i)=zrfl(i)+zmelt*zifl(i)
-           zifl(i)=zifl(i)*(1.-zmelt)
+!CR: la fonte est faite au debut
+!      IF (ice_thermo) THEN
+!       DO i = 1, klon
+!           zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2
+!           zmelt = MIN(MAX(zmelt,0.),1.)
+!           zrfl(i)=zrfl(i)+zmelt*zifl(i)
+!           zifl(i)=zifl(i)*(1.-zmelt)
 !           print*,zt(i),'octavio1'
-           zt(i)=zt(i)-zifl(i)*zmelt*(RG*dtime)/(paprs(i,k)-paprs(i,k+1)) &
-                      *RLMLT/RCPD/(1.0+RVTMP2*zq(i))
+!           zt(i)=zt(i)-zifl(i)*zmelt*(RG*dtime)/(paprs(i,k)-paprs(i,k+1)) &
+!                      *RLMLT/RCPD/(1.0+RVTMP2*zq(i))
 !           print*,zt(i),zrfl(i),zifl(i),zmelt,'octavio2'
-       ENDDO
-     ENDIF
+!       ENDDO
+!     ENDIF
 
        
@@ -998,8 +1068,10 @@
   ! Pluie ou neige au sol selon la temperature de la 1ere couche
   !
+!CR: si la thermo de la glace est active, on calcule zifl directement
+  IF (.NOT.ice_thermo) THEN
   DO i = 1, klon
      IF ((t(i,1)+d_t(i,1)) .LT. RTT) THEN
 !AJ<
-!!        snow(i) = zrfl(i)
+!        snow(i) = zrfl(i)
         snow(i) = zrfl(i)+zifl(i)
 !>AJ
@@ -1010,7 +1082,17 @@
      ENDIF
   ENDDO
+
+  ELSE
+     DO i = 1, klon
+        snow(i) = zifl(i)
+        rain(i) = zrfl(i)
+     ENDDO
+   
+   ENDIF
   !
   ! For energy conservation : when snow is present, the solification
   ! latent heat is considered.
+!CR: si thermo de la glace, neige deja prise en compte
+  IF (.not.ice_thermo) THEN
   DO k = 1, klev
      DO i = 1, klon
@@ -1021,4 +1103,5 @@
      END DO
   END DO
+  ENDIF
   !
 
Index: LMDZ5/branches/testing/libf/phylmd/flott_gwd_rando_m.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/flott_gwd_rando_m.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/flott_gwd_rando_m.F90	(revision 2160)
@@ -238,5 +238,5 @@
                      + ZK(JW, II) * SIN(ZP(JW, II)) * VH(II, LAUNCH)
                 ! Momentum flux at launch lev 
-                RUW0(JW, II) = RUWMAX
+                RUW0(JW, II) = GWD_RANDO_RUWMAX
              ENDDO
           end DO
@@ -318,6 +318,6 @@
           WWP(JW, :) = min(WWP(JW, :), MAX(0., &
                SIGN(1., ZOP(JW, :) * ZOM(JW, :))) * ABS(ZOP(JW, :))**3 &
-               / BV(:, LL + 1) * EXP(- ZH(:, LL + 1) / H0) * SAT**2 * KMIN**2 &
-               / ZK(JW, :)**4)
+               / BV(:, LL + 1) * EXP(- ZH(:, LL + 1) / H0) * GWD_RANDO_SAT**2 &
+               * KMIN**2 / ZK(JW, :)**4)
        end DO
 
Index: LMDZ5/branches/testing/libf/phylmd/flux_arp.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/flux_arp.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/flux_arp.h	(revision 2160)
@@ -3,8 +3,11 @@
 !
       logical :: ok_flux_surf
+      logical :: ok_prescr_ust !for prescribed ustar
       real :: fsens
       real :: flat
+      real :: ust
+      real :: tg
 
-      common /flux_arp/fsens,flat,ok_flux_surf
+      common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust
 
 !$OMP THREADPRIVATE(/flux_arp/)
Index: LMDZ5/branches/testing/libf/phylmd/hgardfou.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/hgardfou.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/hgardfou.F90	(revision 2160)
@@ -13,7 +13,6 @@
   include "iniprint.h"
   REAL t(klon, klev), tsol(klon, nbsrf)
-  CHARACTER *(*) text
+  CHARACTER(len=*), intent(in):: text
   CHARACTER (LEN=20) :: modname = 'hgardfou'
-  CHARACTER (LEN=80) :: abort_message
 
   INTEGER i, k, nsrf
@@ -129,9 +128,5 @@
   END DO
 
-  IF (.NOT. ok) THEN
-    abort_message = 'hgardfou s arrete ' // text
-    CALL abort_gcm(modname, abort_message, 1)
-  END IF
+  IF (.NOT. ok) CALL abort_gcm(modname, text, 1)
 
-  RETURN
 END SUBROUTINE hgardfou
Index: LMDZ5/branches/testing/libf/phylmd/icefrac_lsc_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/icefrac_lsc_mod.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/icefrac_lsc_mod.F90	(revision 2160)
@@ -0,0 +1,47 @@
+!
+! $Header$
+!
+MODULE icefrac_lsc_mod
+
+IMPLICIT NONE
+
+CONTAINS
+!*******************************************************************
+
+SUBROUTINE icefrac_lsc(np,temp, sig, icefrac)
+  !
+  ! Compute the ice fraction 1-xliq (see e.g.
+  ! Doutriaux-Boucher & Quaas 2004, section 2.2.)
+  !
+  ! (JBM 3/14 8/14)
+  
+  INCLUDE "nuage.h"
+
+  ! nuage.h contains:
+  ! t_glace_min: if T < Tmin, the cloud is only made of water ice
+  ! t_glace_max: if T > Tmax, the cloud is only made of liquid water
+  ! exposant_glace: controls the sharpness of the transition
+  INTEGER :: np
+  REAL, DIMENSION(np), INTENT(IN) :: temp ! temperature
+  REAL, DIMENSION(np), INTENT(IN) :: sig
+  REAL, DIMENSION(np), INTENT(OUT) :: icefrac
+
+  REAL :: sig0,www,tmin_tmp,icefrac_tmp
+  INTEGER :: ip
+
+  sig0=0.8
+
+  DO ip=1,np
+     www=(max(sig(ip)-sig0,0.))/(1.-sig0) ! w=1 at the surface and 0 for sig < sig0
+     tmin_tmp=www*t_glace_max+(1.-www)*t_glace_min
+     icefrac_tmp= 1.0 - (temp(ip)-tmin_tmp) / (t_glace_max-tmin_tmp)
+     icefrac_tmp = MIN(MAX(icefrac_tmp,0.0),1.0)
+     icefrac(ip) = icefrac_tmp**exposant_glace
+  ENDDO
+
+  RETURN
+END SUBROUTINE icefrac_lsc
+
+!*******************************************************************
+!
+END MODULE icefrac_lsc_mod
Index: LMDZ5/branches/testing/libf/phylmd/iniradia.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/iniradia.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/iniradia.F90	(revision 2160)
@@ -19,14 +19,18 @@
   REAL pres(klev+1)
 
+  include "clesphys.h"
+
   ! CALL suphel     ! initialiser constantes et parametres phys.
   ! print*,'Physiq: apres suphel '
 #if CPP_RRTM
-  CALL suinit(klon, klev)
-  PRINT *, 'iniradia: apres suinit '
-  ! calcul des niveaux de pression de reference au bord des couches pour
-  ! l'intialisation des aerosols. Momentannement, on passe un point de
-  ! grille du profil de pression.
-  CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM
-  PRINT *, 'iniradia: apres surayolmd '
+  if (iflag_rrtm .eq. 1) then 
+     CALL suinit(klon, klev)
+     PRINT *, 'iniradia: apres suinit '
+     ! calcul des niveaux de pression de reference au bord des couches pour
+     ! l'intialisation des aerosols. Momentannement, on passe un point de
+     ! grille du profil de pression.
+     CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM
+     PRINT *, 'iniradia: apres surayolmd '
+  endif
 #endif
 
Index: LMDZ5/branches/testing/libf/phylmd/iophy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/iophy.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/iophy.F90	(revision 2160)
@@ -115,5 +115,5 @@
     ENDIF
 
-#ifndef CPP_NO_IOIPSL    
+#ifndef CPP_IOIPSL_NO_OUTPUT    
     CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
                       'APPLE',phys_domain_id)
@@ -186,5 +186,5 @@
     endif
     
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
     call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
                       'APPLE',phys_domain_id)
@@ -204,4 +204,5 @@
   IMPLICIT NONE
   include 'dimensions.h'
+  include 'clesphys.h'
     
     character*(*), INTENT(IN) :: name
@@ -227,5 +228,7 @@
     IF((.NOT. is_using_mpi) .OR. is_mpi_root) THEN
         ! ug Création du fichier
+      IF (.not. ok_all_xml) THEN
         CALL wxios_add_file(name, ffreq, lev)
+      ENDIF
     END IF
 #endif
@@ -250,5 +253,5 @@
 
 !$OMP MASTER    
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
     if (is_sequential) then
       call histbeg(name,iim,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
@@ -390,5 +393,5 @@
     ENDDO
 
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
      call histbeg(nname,pim,plon,plon_bounds, & 
                            plat,plat_bounds, &
@@ -431,5 +434,5 @@
       ENDIF
      ENDDO
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
      call histbeg(nname,npstn,npplon,npplon_bounds, &
                             npplat,npplat_bounds, &
@@ -603,14 +606,16 @@
 
 #ifdef CPP_XIOS
-      IF ( var%flag(iff)<=lev_files(iff) ) THEN
-        CALL wxios_add_field_to_file(var%name, 2, iff, phys_out_filenames(iff), &
-        var%description, var%unit, var%flag(iff), typeecrit)
-        IF (prt_level >= 10) THEN
-          WRITE(lunout,*) 'histdef2d: call wxios_add_field_to_file var%name iff: ', &
-                          trim(var%name),iff
+      IF (.not. ok_all_xml) THEN
+        IF ( var%flag(iff)<=lev_files(iff) ) THEN
+          CALL wxios_add_field_to_file(var%name, 2, iff, phys_out_filenames(iff), &
+          var%description, var%unit, var%flag(iff), typeecrit)
+          IF (prt_level >= 10) THEN
+            WRITE(lunout,*) 'histdef2d: call wxios_add_field_to_file var%name iff: ', &
+                            trim(var%name),iff
+          ENDIF
         ENDIF
       ENDIF
 #endif
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
 
        IF ( var%flag(iff)<=lev_files(iff) ) THEN
@@ -688,14 +693,16 @@
 
 #ifdef CPP_XIOS
-      IF ( var%flag(iff)<=lev_files(iff) ) THEN
-        CALL wxios_add_field_to_file(var%name, 3, iff, phys_out_filenames(iff), &
-        var%description, var%unit, var%flag(iff), typeecrit)
-        IF (prt_level >= 10) THEN
-          WRITE(lunout,*) 'histdef3d: call wxios_add_field_to_file var%name iff: ', &
-                          trim(var%name),iff
-        ENDIF
-      ENDIF
-#endif
-#ifndef CPP_NO_IOIPSL 
+       IF (.not. ok_all_xml) THEN
+         IF ( var%flag(iff)<=lev_files(iff) ) THEN
+         CALL wxios_add_field_to_file(var%name, 3, iff, phys_out_filenames(iff), &
+         var%description, var%unit, var%flag(iff), typeecrit)
+           IF (prt_level >= 10) THEN
+             WRITE(lunout,*) 'histdef3d: call wxios_add_field_to_file var%name iff: ', &
+                             trim(var%name),iff
+           ENDIF
+         ENDIF
+       ENDIF
+#endif
+#ifndef CPP_IOIPSL_NO_OUTPUT 
 
        IF ( var%flag(iff)<=lev_files(iff) ) THEN
@@ -890,4 +897,5 @@
   INCLUDE 'dimensions.h'
   INCLUDE 'iniprint.h'
+  include 'clesphys.h'
 
     TYPE(ctrl_out), INTENT(IN) :: var
@@ -922,4 +930,9 @@
 !$OMP MASTER
       !Si phase de définition.... on définit
+      IF (.not. ok_all_xml) THEN
+      if (prt_level >= 10) then
+      write(lunout,*)"histwrite2d_phy: .not.vars_defined ; time to define ", &
+                     trim(var%name)
+      endif
       DO iff=iff_beg, iff_end
          IF (clef_files(iff)) THEN
@@ -927,4 +940,5 @@
          ENDIF
       ENDDO
+      ENDIF
 !$OMP END MASTER
   ELSE
@@ -944,5 +958,21 @@
 ! La boucle sur les fichiers:
       firstx=.true.
-      DO iff=iff_beg, iff_end
+
+      IF (ok_all_xml) THEN
+#ifdef CPP_XIOS
+          if (prt_level >= 10) then
+             write(lunout,*)'Dans iophy histwrite2D,var%name ',&
+                             trim(var%name)                       
+          endif
+          CALL xios_send_field(var%name, Field2d)
+          if (prt_level >= 10) then
+             write(lunout,*)'Dans iophy histwrite2D,var%name apres xios_send ',&
+                             trim(var%name)                       
+          endif
+#else
+        CALL abort_gcm ('iophy','cannot have ok_all_xml = .T. without CPP_XIOS defined' ,1)
+#endif
+      ELSE  
+        DO iff=iff_beg, iff_end
             IF (var%flag(iff) <= lev_files(iff) .AND. clef_files(iff)) THEN 
 
@@ -962,5 +992,5 @@
                         ALLOCATE(index2d(iim*jj_nb))
                         ALLOCATE(fieldok(iim*jj_nb))
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
                         CALL histwrite(nid_files(iff),var%name,itau_iophy,Field2d,iim*jj_nb,index2d)
 #endif
@@ -990,5 +1020,5 @@
                               ENDDO
                        ENDIF ! of IF (is_sequential)
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
                        if (prt_level >= 10) then
                          write(lunout,*)"histwrite2d_phy: clef_stations(iff) and iff==iff_beg, call wxios_write_2D"
@@ -1001,5 +1031,6 @@
                 deallocate(fieldok)
             ENDIF !levfiles
-      ENDDO ! of DO iff=iff_beg, iff_end
+        ENDDO ! of DO iff=iff_beg, iff_end
+      ENDIF
 !$OMP END MASTER   
   ENDIF ! vars_defined
@@ -1026,4 +1057,5 @@
   INCLUDE 'dimensions.h'
   INCLUDE 'iniprint.h'
+  include 'clesphys.h'
 
     TYPE(ctrl_out), INTENT(IN) :: var
@@ -1078,4 +1110,18 @@
 ! BOUCLE SUR LES FICHIERS
      firstx=.true.
+
+      IF (ok_all_xml) THEN
+#ifdef CPP_XIOS
+          if (prt_level >= 10) then
+             write(lunout,*)'Dans iophy histwrite3D,var%name ',&
+                             trim(var%name)                       
+          endif
+          CALL xios_send_field(var%name, Field3d(:,:,1:nlevx))
+#else
+        CALL abort_gcm ('iophy','cannot have ok_all_xml = .T. without CPP_XIOS defined' ,1)
+#endif
+      ELSE  
+
+
      DO iff=iff_beg, iff_end
             IF (var%flag(iff) <= lev_files(iff) .AND. clef_files(iff)) THEN
@@ -1097,5 +1143,5 @@
                         ALLOCATE(fieldok(iim*jj_nb,nlev))
 
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
                         CALL histwrite(nid_files(iff),var%name,itau_iophy,Field3d,iim*jj_nb*nlev,index3d)
 #endif
@@ -1128,5 +1174,5 @@
                               ENDDO
                         ENDIF
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
                         CALL histwrite(nid_files(iff),var%name,itau_iophy,fieldok,npstn*nlev,index3d)
 #endif
@@ -1136,4 +1182,5 @@
             ENDIF
       ENDDO
+      ENDIF
 !$OMP END MASTER   
   ENDIF ! vars_defined
Index: LMDZ5/branches/testing/libf/phylmd/limit_netcdf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/limit_netcdf.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/limit_netcdf.F90	(revision 2160)
@@ -25,5 +25,5 @@
   USE dimphy
   USE ioipsl,             ONLY : ioget_year_len
-  USE phys_state_var_mod, ONLY : pctsrf
+  USE phys_state_var_mod, ONLY : pctsrf, rlon, rlat
   USE netcdf,             ONLY : NF90_OPEN,    NF90_CREATE,  NF90_CLOSE,       &
                    NF90_DEF_DIM, NF90_DEF_VAR, NF90_PUT_VAR, NF90_PUT_ATT,     &
@@ -31,4 +31,5 @@
 		   NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT
   USE inter_barxy_m, only: inter_barxy
+  use netcdf95, only: nf95_def_var, nf95_put_att, nf95_put_var
 #endif
   IMPLICIT NONE
@@ -54,12 +55,14 @@
 !--- INPUT NETCDF FILES NAMES --------------------------------------------------
   CHARACTER(LEN=25) :: icefile, sstfile, dumstr
-  CHARACTER(LEN=25), PARAMETER :: famipsst='amipbc_sst_1x1.nc        ',        &
-                                  famipsic='amipbc_sic_1x1.nc        ',        &
-                                  fcpldsst='cpl_atm_sst.nc           ',        &
-                                  fcpldsic='cpl_atm_sic.nc           ',        &
-                                  fhistsst='histmth_sst.nc           ',        &
-                                  fhistsic='histmth_sic.nc           ',        &
-                                  frugo   ='Rugos.nc                 ',        &
-                                  falbe   ='Albedo.nc                '
+  CHARACTER(LEN=25), PARAMETER :: famipsst ='amipbc_sst_1x1.nc        ',        &
+                                  famipsic ='amipbc_sic_1x1.nc        ',        &
+                                  fcpldsst ='cpl_atm_sst.nc           ',        &
+                                  fcpldsic ='cpl_atm_sic.nc           ',        &
+                                  fhistsst ='histmth_sst.nc           ',        &
+                                  fhistsic ='histmth_sic.nc           ',        &
+                                  frugo    ='Rugos.nc                 ',        &
+                                  falbe    ='Albedo.nc                ',        &
+                                  feraisstk='sstk.nc                  ',        &
+                                  feraici  ='ci.nc                    '
   CHARACTER(LEN=10) :: varname
 !--- OUTPUT VARIABLES FOR NETCDF FILE ------------------------------------------
@@ -75,5 +78,5 @@
   INTEGER, DIMENSION(2) :: dims
   INTEGER :: id_tim,  id_SST,  id_BILS, id_RUG, id_ALB
-  INTEGER :: id_FOCE, id_FSIC, id_FTER, id_FLIC
+  INTEGER :: id_FOCE, id_FSIC, id_FTER, id_FLIC, varid_longitude, varid_latitude
   INTEGER :: NF90_FORMAT
   INTEGER :: ndays                   !--- Depending on the output calendar
@@ -118,7 +121,10 @@
      icefile=TRIM(fhistsic)
      varname='pourc_sic'
+  ELSE IF ( NF90_OPEN(TRIM(feraici),NF90_NOWRITE,nid)==NF90_NOERR ) THEN
+     icefile=TRIM(feraici)
+     varname='ci'
   ELSE
      WRITE(lunout,*) 'ERROR! No sea-ice input file was found.'
-     WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsic),', ',trim(fcpldsic),', ',trim(fhistsic)
+     WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsic),', ',trim(fcpldsic),', ',trim(fhistsic), trim(feraici)
      CALL abort_gcm('limit_netcdf','No sea-ice file was found',1)
   END IF
@@ -179,7 +185,10 @@
      sstfile=TRIM(fhistsst)
      varname='tsol_oce'
+  ELSE IF ( NF90_OPEN(TRIM(feraisstk),NF90_NOWRITE,nid)==NF90_NOERR ) THEN
+     sstfile=TRIM(feraisstk)
+     varname='sstk'
   ELSE
      WRITE(lunout,*) 'ERROR! No sst input file was found.'
-     WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsst),trim(fcpldsst),trim(fhistsst)
+     WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsst),trim(fcpldsst),trim(fhistsst),trim(feraisstk)
      CALL abort_gcm('limit_netcdf','No sst file was found',1)
   END IF
@@ -220,4 +229,6 @@
   ierr=NF90_DEF_VAR(nid,"ALB",  NF90_FORMAT,dims,id_ALB)
   ierr=NF90_DEF_VAR(nid,"RUG",  NF90_FORMAT,dims,id_RUG)
+  call nf95_def_var(nid, "longitude", NF90_FLOAT, ndim, varid_longitude)
+  call nf95_def_var(nid, "latitude", NF90_FLOAT, ndim, varid_latitude)
 
   !--- Attributes creation
@@ -232,4 +243,10 @@
   ierr=NF90_PUT_ATT(nid,id_RUG, "title","Rugosite")
 
+  call nf95_put_att(nid, varid_longitude, "standard_name", "longitude")
+  call nf95_put_att(nid, varid_longitude, "units", "degrees_east")
+
+  call nf95_put_att(nid, varid_latitude, "standard_name", "latitude")
+  call nf95_put_att(nid, varid_latitude, "units", "degrees_north")
+
   ierr=NF90_ENDDEF(nid)
 
@@ -244,4 +261,6 @@
   ierr=NF90_PUT_VAR(nid,id_ALB ,phy_alb(:,:),(/1,1/),(/klon,ndays/))
   ierr=NF90_PUT_VAR(nid,id_RUG ,phy_rug(:,:),(/1,1/),(/klon,ndays/))
+  call nf95_put_var(nid, varid_longitude, rlon)
+  call nf95_put_var(nid, varid_latitude, rlat)
 
   ierr=NF90_CLOSE(nid)
Index: LMDZ5/branches/testing/libf/phylmd/lmdz1d.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/lmdz1d.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/lmdz1d.F90	(revision 2160)
@@ -21,4 +21,5 @@
       USE indice_sol_mod
       USE phyaqua_mod
+      USE mod_1D_cases_read
 
       implicit none
@@ -111,4 +112,5 @@
         logical :: forcing_twpice  = .false.
         logical :: forcing_amma    = .false.
+        logical :: forcing_dice    = .false.
         logical :: forcing_GCM2SCM = .false.
         logical :: forcing_GCSSold = .false.
@@ -177,4 +179,6 @@
 !---------------------------------------------------------------------
       logical :: ok_writedem =.true.
+      real :: sollw_in = 0.
+      real :: solsw_in = 0.
       
 !---------------------------------------------------------------------
@@ -261,4 +265,8 @@
 !             initial profiles from AMMA nc file 
 !             LS convergence, omega and surface fluxes imposed from AMMA file  
+!forcing_type = 7 ==> forcing_dice = .true.
+!             initial profiles and large scale forcings in dice_driver.nc
+!             Different stages: soil model alone, atm. model alone
+!             then both models coupled
 !forcing_type = 40 ==> forcing_GCSSold = .true.
 !             initial profile from GCSS file
@@ -295,4 +303,6 @@
       elseif (forcing_type .eq.6) THEN
        forcing_amma = .true.
+      elseif (forcing_type .eq.7) THEN
+       forcing_dice = .true.
       elseif (forcing_type .eq.40) THEN
        forcing_GCSSold = .true.
@@ -318,5 +328,5 @@
 
         type_ts_forcing = 0
-        if (forcing_toga.or.forcing_sandu.or.forcing_astex)                 &
+        if (forcing_toga.or.forcing_sandu.or.forcing_astex .or. forcing_dice)                 &
      &    type_ts_forcing = 1
 
@@ -365,4 +375,5 @@
 ! Special case for amma which lasts less than one day : 64800s !! (MPL 20120216)
       IF(forcing_type .EQ. 6) fnday=64800./86400.
+!     IF(forcing_type .EQ. 6) fnday=50400./86400.
       annee_ref = anneeref
       mois = 1
@@ -390,5 +401,9 @@
      & (year_ini_amma,mth_ini_amma,day_ini_amma,heure_ini_amma              &
      & ,day_ju_ini_amma)
-
+      ELSEIF (forcing_type .eq.7) THEN
+! Convert the initial date of DICE to Julian day
+      call ymds2ju                                                         &
+     & (year_ini_dice,mth_ini_dice,day_ini_dice,heure_ini_dice             & 
+     & ,day_ju_ini_dice)
       ELSEIF (forcing_type .eq.59) THEN
 ! Convert the initial date of Sandu case to Julian day
@@ -404,5 +419,4 @@
 
       ELSEIF (forcing_type .eq.61) THEN
-
 ! Convert the initial date of Arm_cu case to Julian day
       call ymds2ju                                                          &
Index: LMDZ5/branches/testing/libf/phylmd/methox.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/methox.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/methox.F90	(revision 2160)
@@ -0,0 +1,118 @@
+SUBROUTINE METHOX(KIDIA,  KFDIA,  KLON,  KLEV,PQ,     PTENQ,  PAP )
+
+!**** *METHOX*   - Calculate humidity tendencies from methane
+!                  oxidation and photolysis
+
+!**   INTERFACE.
+!     ----------
+!        CALL *METHOX* FROM *CALLPAR*
+!              ------        -------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     PARAMETER     DESCRIPTION                                   UNITS
+!     ---------     -----------                                   -----
+!     INPUT PARAMETERS (INTEGER):
+
+!    *KIDIA*        START POINT
+!    *KFDIA*        END POINT
+!    *KLON*         NUMBER OF GRID POINTS PER PACKET
+!    *KLEV*         NUMBER OF LEVELS
+
+!     INPUT PARAMETERS (REAL):
+
+!    *PAP*          PRESSURE                                      PA
+!    *PQ*           SPECIFIC HUMIDITY                             KG/KG
+
+!     UPDATED PARAMETERS (REAL):
+
+!    *PTENQ*        TENDENCY OF SPECIFIC HUMIDITY                 KG/(KG*S)
+
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        MODULE YOEMETH
+!        MODULE YOMCST
+
+!     METHOD.
+!     -------
+!        SEE RD-MEMO R60.1/AJS/31
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        SEE RD-MEMO R60.1/AJS/31
+
+!     AUTHOR.
+!     -------
+!        C.JAKOB   *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 98-04-07
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        D. Cugnet     24-Feb-2012 Adapted for LMDZ
+!     ------------------------------------------------------------------
+
+USE YOEMETH   , ONLY : RALPHA1 ,RALPHA2  ,RQLIM   ,&
+ & RPBOTOX,  RPBOTPH ,RPTOPOX  ,RPTOPPH ,&
+ & RALPHA3,  RLOGPPH  
+
+IMPLICIT NONE
+
+#include "YOMCST.h"
+
+INTEGER,INTENT(IN)    :: KLON 
+INTEGER,INTENT(IN)    :: KLEV 
+INTEGER,INTENT(IN)    :: KIDIA 
+INTEGER,INTENT(IN)    :: KFDIA 
+REAL   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL   ,INTENT(INOUT) :: PTENQ(KLON,KLEV) 
+REAL   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+LOGICAL :: LLOXID,         LLPHOTO
+
+INTEGER :: JK, JL
+
+REAL :: ZARG, ZPRATIO, ZTAU1, ZTAU2, ZTDAYS
+
+DO JK=1,KLEV
+  DO JL=KIDIA,KFDIA
+
+    LLOXID=PAP(JL,JK) < RPBOTOX.AND.PQ(JL,JK) < RQLIM
+    LLPHOTO=PAP(JL,JK) < RPBOTPH
+
+!     METHANE OXIDATION
+
+    IF(LLOXID) THEN
+      IF(PAP(JL,JK) <= RPTOPOX) THEN
+        ZTDAYS=100.
+      ELSE
+        ZPRATIO=(LOG(PAP(JL,JK)/RPTOPOX))**4./LOG(RPBOTOX/PAP(JL,JK))
+        ZTDAYS=100.*(1+RALPHA1*ZPRATIO)
+      ENDIF
+      ZTAU1=86400.*ZTDAYS
+      PTENQ(JL,JK)=PTENQ(JL,JK)+(RQLIM-PQ(JL,JK))/ZTAU1
+    ENDIF
+
+!     PHOTOLYSIS
+
+    IF(LLPHOTO) THEN
+      IF(PAP(JL,JK) <= RPTOPPH) THEN
+        ZTDAYS=3.
+      ELSE
+        ZARG=RALPHA2-RALPHA3*(1+COS((RPI*LOG(PAP(JL,JK)/RPBOTPH))/RLOGPPH))
+        ZTDAYS=1.0/(EXP(ZARG)-0.01)
+      ENDIF
+      ZTAU2=86400.*ZTDAYS
+      PTENQ(JL,JK)=PTENQ(JL,JK)-PQ(JL,JK)/ZTAU2
+    ENDIF
+  ENDDO
+ENDDO
+
+END SUBROUTINE METHOX
+
+
Index: LMDZ5/branches/testing/libf/phylmd/microphys_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/microphys_mod.F90	(revision 2116)
+++ 	(revision )
@@ -1,31 +1,0 @@
-!
-! $Header$
-!
-MODULE microphys_mod
-
-CONTAINS
-!*******************************************************************
-
-FUNCTION icefrac_lsc(temp, tmin, tmax, nexpo)
-  IMPLICIT NONE
-  !
-  ! Compute the ice fraction 1-xliq (see e.g.
-  ! Doutriaux-Boucher & Quaas 2004, section 2.2.)
-  !
-  ! (JBM 3/14)
-  REAL :: icefrac_lsc ! ice fraction 
-  REAL :: temp ! temperature
-  REAL :: tmin ! if T < Tmin, the cloud is only made of water ice
-  REAL :: tmax ! if T > Tmax, the cloud is only made of liquid water
-  REAL :: nexpo ! controls the sharpness of the transition
-
-  icefrac_lsc = 1.0 - (temp-tmin) / (tmax-tmin)
-  icefrac_lsc = MIN(MAX(icefrac_lsc,0.0),1.0)
-  icefrac_lsc = icefrac_lsc**nexpo
-
-  RETURN
-END FUNCTION icefrac_lsc
-
-!*******************************************************************
-!
-END MODULE microphys_mod
Index: LMDZ5/branches/testing/libf/phylmd/minmaxqfi.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/minmaxqfi.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/minmaxqfi.F90	(revision 2160)
@@ -14,4 +14,6 @@
   INTEGER,DIMENSION(klon)     :: jadrs 
   INTEGER                     :: i, jbad, k
+
+  include "iniprint.h"
   
   DO k = 1, klev
@@ -24,8 +26,10 @@
      ENDDO
      IF (jbad.GT.0) THEN
-        WRITE(*,*)comment
-        DO i = 1, jbad
-           WRITE(*,*) "i,k,q=", jadrs(i),k,zq(jadrs(i),k)
-        ENDDO
+        WRITE(*,*)comment, "k = ", k, "jbad > 0"
+        if (prt_level >= 1) then
+           DO i = 1, jbad
+              WRITE(*,*) "i,q=", jadrs(i), zq(jadrs(i),k)
+           ENDDO
+        end if
      ENDIF
   ENDDO
Index: LMDZ5/branches/testing/libf/phylmd/mod_1D_cases_read.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/mod_1D_cases_read.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/mod_1D_cases_read.F90	(revision 2160)
@@ -0,0 +1,500 @@
+MODULE mod_1D_cases_read
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!Declarations specifiques au cas AMMA
+        character*80 :: fich_amma
+! Option du cas AMMA ou on impose la discretisation verticale (Ap,Bp)
+        integer nlev_amma, nt_amma
+
+
+        integer year_ini_amma, day_ini_amma, mth_ini_amma
+        real heure_ini_amma
+        real day_ju_ini_amma   ! Julian day of amma first day
+        parameter (year_ini_amma=2006)
+        parameter (mth_ini_amma=7)
+        parameter (day_ini_amma=10)  ! 10 = 10Juil2006
+        parameter (heure_ini_amma=0.) !0h en secondes
+        real dt_amma
+        parameter (dt_amma=1800.)
+
+!profils initiaux:
+        real, allocatable::  plev_amma(:)
+
+        real, allocatable::  z_amma(:)
+        real, allocatable::  th_amma(:),q_amma(:)
+        real, allocatable::  u_amma(:)
+        real, allocatable::  v_amma(:)
+
+        real, allocatable::  th_ammai(:),q_ammai(:)
+        real, allocatable::  u_ammai(:)
+        real, allocatable::  v_ammai(:)
+        real, allocatable::  vitw_ammai(:)
+        real, allocatable::  ht_ammai(:)
+        real, allocatable::  hq_ammai(:)
+        real, allocatable::  vt_ammai(:)
+        real, allocatable::  vq_ammai(:)
+
+!forcings
+        real, allocatable::  ht_amma(:,:)
+        real, allocatable::  hq_amma(:,:)
+        real, allocatable::  vitw_amma(:,:)
+        real, allocatable::  lat_amma(:),sens_amma(:)
+
+!champs interpoles
+        real, allocatable::  vitw_profamma(:)
+        real, allocatable::  ht_profamma(:)
+        real, allocatable::  hq_profamma(:)
+        real lat_profamma,sens_profamma
+        real, allocatable::  vt_profamma(:)
+        real, allocatable::  vq_profamma(:)
+        real, allocatable::  th_profamma(:)
+        real, allocatable::  q_profamma(:)
+        real, allocatable::  u_profamma(:)
+        real, allocatable::  v_profamma(:)
+
+
+CONTAINS
+
+SUBROUTINE read_1D_cases
+      implicit none
+
+#include "netcdf.inc"
+
+      INTEGER nid,rid,ierr
+
+      fich_amma='amma.nc'
+      print*,'fich_amma ',fich_amma
+      ierr = NF_OPEN(fich_amma,NF_NOWRITE,nid)
+      print*,'fich_amma,NF_NOWRITE,nid ',fich_amma,NF_NOWRITE,nid
+      if (ierr.NE.NF_NOERR) then
+         write(*,*) 'ERROR: GROS Pb opening forcings nc file '
+         write(*,*) NF_STRERROR(ierr)
+         stop ""
+      endif
+!.......................................................................
+      ierr=NF_INQ_DIMID(nid,'lev',rid)
+      IF (ierr.NE.NF_NOERR) THEN
+         print*, 'Oh probleme lecture dimension zz'
+      ENDIF
+      ierr=NF_INQ_DIMLEN(nid,rid,nlev_amma)
+      print*,'OK nid,rid,nlev_amma',nid,rid,nlev_amma
+!.......................................................................
+      ierr=NF_INQ_DIMID(nid,'time',rid)
+      print*,'nid,rid',nid,rid
+      nt_amma=0
+      IF (ierr.NE.NF_NOERR) THEN
+        stop 'probleme lecture dimension sens'
+      ENDIF
+      ierr=NF_INQ_DIMLEN(nid,rid,nt_amma)
+      print*,'nid,rid,nlev_amma',nid,rid,nt_amma
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!profils initiaux:
+        allocate(plev_amma(nlev_amma))
+        
+        allocate(z_amma(nlev_amma))
+        allocate(th_amma(nlev_amma),q_amma(nlev_amma))
+        allocate(u_amma(nlev_amma))
+        allocate(v_amma(nlev_amma))
+
+!forcings
+        allocate(ht_amma(nlev_amma,nt_amma))
+        allocate(hq_amma(nlev_amma,nt_amma))
+        allocate(vitw_amma(nlev_amma,nt_amma))
+        allocate(lat_amma(nt_amma),sens_amma(nt_amma))
+
+!profils initiaux:
+        allocate(th_ammai(nlev_amma),q_ammai(nlev_amma))
+        allocate(u_ammai(nlev_amma))
+        allocate(v_ammai(nlev_amma))
+        allocate(vitw_ammai(nlev_amma) )
+        allocate(ht_ammai(nlev_amma))
+        allocate(hq_ammai(nlev_amma))
+        allocate(vt_ammai(nlev_amma))
+        allocate(vq_ammai(nlev_amma))
+
+!champs interpoles
+        allocate(vitw_profamma(nlev_amma))
+        allocate(ht_profamma(nlev_amma))
+        allocate(hq_profamma(nlev_amma))
+        allocate(vt_profamma(nlev_amma))
+        allocate(vq_profamma(nlev_amma))
+        allocate(th_profamma(nlev_amma))
+        allocate(q_profamma(nlev_amma))
+        allocate(u_profamma(nlev_amma))
+        allocate(v_profamma(nlev_amma))
+
+        print*,'Allocations OK'
+        call read_amma(nid,nlev_amma,nt_amma                                  &
+     &     ,z_amma,plev_amma,th_amma,q_amma,u_amma,v_amma,vitw_amma         &
+     &     ,ht_amma,hq_amma,sens_amma,lat_amma)
+
+END SUBROUTINE read_1D_cases
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+SUBROUTINE deallocate_1D_cases
+!profils initiaux:
+        deallocate(plev_amma)
+        
+        deallocate(z_amma)
+        deallocate(th_amma,q_amma)
+        deallocate(u_amma)
+        deallocate(v_amma)
+
+        deallocate(th_ammai,q_ammai)
+        deallocate(u_ammai)
+        deallocate(v_ammai)
+        deallocate(vitw_ammai )
+        deallocate(ht_ammai)
+        deallocate(hq_ammai)
+        deallocate(vt_ammai)
+        deallocate(vq_ammai)
+        
+!forcings
+        deallocate(ht_amma)
+        deallocate(hq_amma)
+        deallocate(vitw_amma)
+        deallocate(lat_amma,sens_amma)
+
+!champs interpoles
+        deallocate(vitw_profamma)
+        deallocate(ht_profamma)
+        deallocate(hq_profamma)
+        deallocate(vt_profamma)
+        deallocate(vq_profamma)
+        deallocate(th_profamma)
+        deallocate(q_profamma)
+        deallocate(u_profamma)
+        deallocate(v_profamma)
+END SUBROUTINE deallocate_1D_cases
+
+
+END MODULE mod_1D_cases_read
+!=====================================================================
+      subroutine read_amma(nid,nlevel,ntime                          &
+     &     ,zz,pp,temp,qv,u,v,dw                   &
+     &     ,dt,dq,sens,flat)
+
+!program reading forcings of the AMMA case study
+      implicit none
+#include "netcdf.inc"
+
+      integer ntime,nlevel
+
+      real zz(nlevel)
+      real temp(nlevel),pp(nlevel)
+      real qv(nlevel),u(nlevel)
+      real v(nlevel)
+      real dw(nlevel,ntime)
+      real dt(nlevel,ntime)
+      real dq(nlevel,ntime)
+      real flat(ntime),sens(ntime)
+
+
+      integer nid, ierr,rid
+      integer nbvar3d
+      parameter(nbvar3d=30)
+      integer var3didin(nbvar3d)
+
+       ierr=NF_INQ_VARID(nid,"zz",var3didin(1)) 
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'lev'
+         endif
+
+
+      ierr=NF_INQ_VARID(nid,"temp",var3didin(2))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'temp'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"qv",var3didin(3))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'qv'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"u",var3didin(4))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'u'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"v",var3didin(5))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'v'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"dw",var3didin(6))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dw'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"dt",var3didin(7))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dt'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"dq",var3didin(8))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dq'
+         endif
+      
+      ierr=NF_INQ_VARID(nid,"sens",var3didin(9))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'sens'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"flat",var3didin(10))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'flat'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"pp",var3didin(11))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+      endif
+
+!dimensions lecture
+!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture z ok',zz
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),temp)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(2),temp)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture th ok',temp
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),qv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(3),qv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture qv ok',qv
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),u)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(4),u)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture u ok',u
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(5),v)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture v ok',v
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),dw)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(6),dw)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture w ok',dw
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),dt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(7),dt)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dt ok',dt
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),dq)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(8),dq)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dq ok',dq
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),sens)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(9),sens)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture sens ok',sens
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),flat)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(10),flat)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture flat ok',flat
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),pp)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(11),pp)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture pp ok',pp
+
+         return 
+         end subroutine read_amma
+!======================================================================
+        SUBROUTINE interp_amma_time(day,day1,annee_ref                     &
+     &         ,year_ini_amma,day_ini_amma,nt_amma,dt_amma,nlev_amma       &
+     &         ,vitw_amma,ht_amma,hq_amma,lat_amma,sens_amma               &
+     &         ,vitw_prof,ht_prof,hq_prof,lat_prof,sens_prof)
+        implicit none
+
+!---------------------------------------------------------------------------------------
+! Time interpolation of a 2D field to the timestep corresponding to day
+!
+! day: current julian day (e.g. 717538.2)
+! day1: first day of the simulation
+! nt_amma: total nb of data in the forcing (e.g. 48 for AMMA)
+! dt_amma: total time interval (in sec) between 2 forcing data (e.g. 30min for AMMA)
+!---------------------------------------------------------------------------------------
+
+#include "compar1d.h"
+
+! inputs:
+        integer annee_ref
+        integer nt_amma,nlev_amma
+        integer year_ini_amma
+        real day, day1,day_ini_amma,dt_amma
+        real vitw_amma(nlev_amma,nt_amma)
+        real ht_amma(nlev_amma,nt_amma)
+        real hq_amma(nlev_amma,nt_amma)
+        real lat_amma(nt_amma)
+        real sens_amma(nt_amma)
+! outputs:
+        real vitw_prof(nlev_amma)
+        real ht_prof(nlev_amma)
+        real hq_prof(nlev_amma)
+        real lat_prof,sens_prof
+! local:
+        integer it_amma1, it_amma2,k
+        real timeit,time_amma1,time_amma2,frac
+
+
+        if (forcing_type.eq.6) then
+! Check that initial day of the simulation consistent with AMMA case:
+       if (annee_ref.ne.2006) then
+        print*,'Pour AMMA, annee_ref doit etre 2006'
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.2006 .and. day1.lt.day_ini_amma) then
+        print*,'AMMA a débuté le 10 juillet 2006',day1,day_ini_amma
+        print*,'Changer dayref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.2006 .and. day1.gt.day_ini_amma+1) then
+        print*,'AMMA a fini le 11 juillet'
+        print*,'Changer dayref ou nday dans run.def'
+        stop
+       endif
+       endif
+
+! Determine timestep relative to the 1st day of AMMA:
+!       timeit=(day-day1)*86400.
+!       if (annee_ref.eq.1992) then
+!        timeit=(day-day_ini_toga)*86400.
+!       else
+!        timeit=(day+61.-1.)*86400. ! 61 days between Nov01 and Dec31 1992
+!       endif
+      timeit=(day-day_ini_amma)*86400
+
+! Determine the closest observation times:
+!       it_amma1=INT(timeit/dt_amma)+1
+!       it_amma2=it_amma1 + 1
+!       time_amma1=(it_amma1-1)*dt_amma
+!       time_amma2=(it_amma2-1)*dt_amma
+
+       it_amma1=INT(timeit/dt_amma)+1
+       IF (it_amma1 .EQ. nt_amma) THEN
+       it_amma2=it_amma1 
+       ELSE
+       it_amma2=it_amma1 + 1
+       ENDIF
+       time_amma1=(it_amma1-1)*dt_amma
+       time_amma2=(it_amma2-1)*dt_amma
+
+       if (it_amma1 .gt. nt_amma) then
+        write(*,*) 'PB-stop: day, it_amma1, it_amma2, timeit: '            &
+     &        ,day,day_ini_amma,it_amma1,it_amma2,timeit/86400.
+        stop
+       endif
+
+! time interpolation:
+       frac=(time_amma2-timeit)/(time_amma2-time_amma1)
+       frac=max(frac,0.0)
+
+       lat_prof = lat_amma(it_amma2)                                       &
+     &          -frac*(lat_amma(it_amma2)-lat_amma(it_amma1)) 
+       sens_prof = sens_amma(it_amma2)                                     &
+     &          -frac*(sens_amma(it_amma2)-sens_amma(it_amma1))
+
+       do k=1,nlev_amma
+        vitw_prof(k) = vitw_amma(k,it_amma2)                               &
+     &          -frac*(vitw_amma(k,it_amma2)-vitw_amma(k,it_amma1))
+        ht_prof(k) = ht_amma(k,it_amma2)                                   &
+     &          -frac*(ht_amma(k,it_amma2)-ht_amma(k,it_amma1))
+        hq_prof(k) = hq_amma(k,it_amma2)                                   &
+     &          -frac*(hq_amma(k,it_amma2)-hq_amma(k,it_amma1))
+        enddo
+
+        return
+        END
+
Index: LMDZ5/branches/testing/libf/phylmd/newmicro.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/newmicro.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/newmicro.F90	(revision 2160)
@@ -12,5 +12,5 @@
     reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra
   USE phys_state_var_mod, ONLY: rnebcon, clwcon
-  USE microphys_mod ! cloud microphysics (JBM 3/14)
+  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
   IMPLICIT NONE
   ! ======================================================================
@@ -202,4 +202,10 @@
   ELSE ! of IF (iflag_t_glace.EQ.0)
     DO k = 1, klev
+        CALL icefrac_lsc(klon,t(:,k),pplay(:,k)/paprs(:,1),zfice(:,k))
+ 
+
+        ! JBM: icefrac_lsc is now contained icefrac_lsc_mod
+!       zfice(i, k) = icefrac_lsc(t(i,k), t_glace_min, &
+!                                 t_glace_max, exposant_glace)
       DO i = 1, klon
         ! -layer calculation
@@ -207,7 +213,4 @@
         zrho(i, k) = pplay(i, k)/t(i, k)/rd ! kg/m3
         dh(i, k) = rhodz(i, k)/zrho(i, k) ! m
-        ! JBM: icefrac_lsc is now a function contained in microphys_mod
-        zfice(i, k) = icefrac_lsc(t(i,k), t_glace_min, &
-                                  t_glace_max, exposant_glace)
         ! -IM Total Liquid/Ice water content
         xflwc(i, k) = (1.-zfice(i,k))*pqlwp(i, k)
Index: LMDZ5/branches/testing/libf/phylmd/nuage.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/nuage.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/nuage.F90	(revision 2160)
@@ -5,5 +5,5 @@
     cldtaupi, re, fl)
   USE dimphy
-  USE microphys_mod ! cloud microphysics (JBM 3/14)
+  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
   IMPLICIT NONE
   ! ======================================================================
@@ -54,5 +54,5 @@
 
   INTEGER i, k
-  REAL zflwp, zradef, zfice, zmsac
+  REAL zflwp, zradef, zfice(klon), zmsac
 
   REAL radius, rad_chaud
@@ -98,4 +98,17 @@
 
   DO k = 1, klev
+     IF (iflag_t_glace.EQ.0) THEN
+       DO i = 1, klon
+        zfice(i) = 1.0 - (t(i,k)-t_glace_min_old)/(273.13-t_glace_min_old)
+        zfice(i) = min(max(zfice(i),0.0), 1.0)
+        zfice(i) = zfice(i)**exposant_glace_old
+       ENDDO
+     ELSE ! of IF (iflag_t_glace.EQ.0)
+! JBM: icefrac_lsc is now a function contained in icefrac_lsc_mod
+!       zfice(i) = icefrac_lsc(t(i,k), t_glace_min, &
+!                           t_glace_max, exposant_glace)
+         CALL icefrac_lsc(klon,t(:,k),pplay(:,k)/paprs(:,1),zfice(:))
+     ENDIF
+
     DO i = 1, klon
       rad_chaud = rad_chau1
@@ -104,13 +117,4 @@
       pclc(i, k) = max(pclc(i,k), seuil_neb)
       zflwp = 1000.*pqlwp(i, k)/rg/pclc(i, k)*(paprs(i,k)-paprs(i,k+1))
-      IF (iflag_t_glace.EQ.0) THEN
-        zfice = 1.0 - (t(i,k)-t_glace_min_old)/(273.13-t_glace_min_old)
-        zfice = min(max(zfice,0.0), 1.0)
-        zfice = zfice**exposant_glace_old
-      ELSE ! of IF (iflag_t_glace.EQ.0)
-! JBM: icefrac_lsc is now a function contained in microphys_mod
-        zfice = icefrac_lsc(t(i,k), t_glace_min, &
-                            t_glace_max, exposant_glace)
-      ENDIF
 
       IF (ok_aie) THEN
@@ -150,5 +154,5 @@
           ! effective radius as re/fl
           !
-        fl(i, k) = pclc(i, k)*(1.-zfice)
+        fl(i, k) = pclc(i, k)*(1.-zfice(i))
         re(i, k) = rad_chaud*fl(i, k)
 
@@ -159,10 +163,10 @@
           ! cdnc.
         radius = max(1.1E6*((pqlwp(i,k)*pplay(i,k)/(rd*t(i,k)))/(4./3.*rpi* &
-          1000.*cdnc_pi(i,k)))**(1./3.), 3.)*(1.-zfice) + rad_froid*zfice
+          1000.*cdnc_pi(i,k)))**(1./3.), 3.)*(1.-zfice(i)) + rad_froid*zfice(i)
         cldtaupi(i, k) = 3.0/2.0*zflwp/radius
       END IF ! ok_aie
 
-      radius = rad_chaud*(1.-zfice) + rad_froid*zfice
-      coef = coef_chau*(1.-zfice) + coef_froi*zfice
+      radius = rad_chaud*(1.-zfice(i)) + rad_froid*zfice(i)
+      coef = coef_chau*(1.-zfice(i)) + coef_froi*zfice(i)
       pcltau(i, k) = 3.0/2.0*zflwp/radius
       pclemi(i, k) = 1.0 - exp(-coef*zflwp)
Index: LMDZ5/branches/testing/libf/phylmd/pbl_surface_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/pbl_surface_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/pbl_surface_mod.F90	(revision 2160)
@@ -319,5 +319,5 @@
     REAL, DIMENSION(klon),        INTENT(OUT)       :: alb2_m     ! mean albedo in near IR SW interval
     ! Martin
-	REAL, DIMENSION(klon),        INTENT(OUT)       :: alb3_lic
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: alb3_lic
     ! Martin
     REAL, DIMENSION(klon),        INTENT(OUT)       :: zxsens     ! sensible heat flux at surface with inversed sign 
@@ -475,4 +475,5 @@
     LOGICAL, PARAMETER                 :: check=.FALSE.
     REAL, DIMENSION(klon)              :: Kech_h       ! Coefficient d'echange pour l'energie
+    REAL                               :: vent
 
 ! For debugging with IOIPSL
@@ -797,4 +798,17 @@
             yts, yqsurf, yrugos, &
             ycdragm, ycdragh )
+! --- special Dice: on force cdragm ( a defaut de forcer ustar) MPL 05082013
+     IF (ok_prescr_ust) then
+      DO i = 1, knon
+       print *,'ycdragm avant=',ycdragm(i)
+       vent= sqrt(yu(i,1)*yu(i,1)+yv(i,1)*yv(i,1))
+!      ycdragm(i) = ust*ust/(1.+(yu(i,1)*yu(i,1)+yv(i,1)*yv(i,1)))
+!      ycdragm(i) = ust*ust/((1.+sqrt(yu(i,1)*yu(i,1)+yv(i,1)*yv(i,1))) &
+!     *sqrt(yu(i,1)*yu(i,1)+yv(i,1)*yv(i,1)))
+       ycdragm(i) = ust*ust/(1.+vent)/vent
+       print *,'ycdragm ust yu yv apres=',ycdragm(i),ust,yu(i,1),yv(i,1)
+      ENDDO
+     ENDIF
+
 
 !****************************************************************************************
@@ -905,4 +919,24 @@
                y_flux_u1, y_flux_v1 )
                
+! Special DICE MPL 05082013
+       IF (ok_prescr_ust) THEN
+!         ysnow(:)=0.
+!         yqsol(:)=0.
+!         yagesno(:)=50.
+!         ytsoil(:,:)=300.
+!         yz0_new(:)=0.001
+!         yalb1_new(:)=0.22
+!         yalb2_new(:)=0.22
+!         yevap(:)=flat/RLVTT
+!         yfluxlat(:)=-flat
+!         yfluxsens(:)=-fsens
+!         yqsurf(:)=0.
+!         ytsurf_new(:)=tg
+!         y_dflux_t(:)=0.
+!         y_dflux_q(:)=0.
+          y_flux_u1(:)=ycdragm(:)*(1.+sqrt(yu(:,1)*yu(:,1)+yv(:,1)*yv(:,1)))*yu(:,1)*ypplay(:,1)/RD/yt(:,1)
+          y_flux_v1(:)=ycdragm(:)*(1.+sqrt(yu(:,1)*yu(:,1)+yv(:,1)*yv(:,1)))*yv(:,1)*ypplay(:,1)/RD/yt(:,1)
+      ENDIF
+
      
        CASE(is_lic)
Index: LMDZ5/branches/testing/libf/phylmd/phyaqua_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phyaqua_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phyaqua_mod.F90	(revision 2160)
@@ -897,4 +897,23 @@
       END IF
 
+      if (type_profil.EQ.20) then
+      print*,'Profile SST 20'
+!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
+
+      do j=1,klon
+        phy_sst(j,i)=248.+55.*(1-sin(rlatd(j))**2)
+      enddo
+      endif
+
+      if (type_profil.EQ.21) then
+      print*,'Profile SST 21'
+!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
+      do j=1,klon
+        phy_sst(j,i)=252.+55.*(1-sin(rlatd(j))**2)
+      enddo
+      endif
+
+
+
     END DO
 
Index: LMDZ5/branches/testing/libf/phylmd/phys_cal_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phys_cal_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phys_cal_mod.F90	(revision 2160)
@@ -10,4 +10,5 @@
   INTEGER :: days_elapsed  ! number of whole days since start of the simulation 
   INTEGER :: mth_len       ! number of days in the current month
+  INTEGER year_len ! number of days in the current year
   REAL    :: hour
   REAL    :: jD_1jan
@@ -21,5 +22,5 @@
     ! This subroutine updates the module saved variables.
 
-    USE IOIPSL
+    USE IOIPSL, only: ju2ymds, ymds2ju, ioget_mon_len, ioget_year_len
     
     REAL, INTENT(IN) :: jD_cur ! jour courant a l'appel de la physique (jour julien)
@@ -37,4 +38,6 @@
     mth_len = ioget_mon_len(year_cur,mth_cur)
 
+    year_len = ioget_year_len(year_cur)
+
   END SUBROUTINE phys_cal_update
 
Index: LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90	(revision 2160)
@@ -33,6 +33,6 @@
       REAL, SAVE, ALLOCATABLE :: d_t_wake(:,:),d_q_wake(:,:)
       !$OMP THREADPRIVATE( d_t_wake,d_q_wake)
-      REAL, SAVE, ALLOCATABLE :: d_t_lsc(:,:),d_q_lsc(:,:),d_ql_lsc(:,:)
-      !$OMP THREADPRIVATE(d_t_lsc,d_q_lsc,d_ql_lsc)
+      REAL, SAVE, ALLOCATABLE :: d_t_lsc(:,:),d_q_lsc(:,:),d_ql_lsc(:,:),d_qi_lsc(:,:)
+      !$OMP THREADPRIVATE(d_t_lsc,d_q_lsc,d_ql_lsc,d_qi_lsc)
       REAL, SAVE, ALLOCATABLE :: d_t_ajsb(:,:), d_q_ajsb(:,:)
       !$OMP THREADPRIVATE(d_t_ajsb, d_q_ajsb)
@@ -73,4 +73,7 @@
       REAL, SAVE, ALLOCATABLE :: d_t_hin(:,:)
       !$OMP THREADPRIVATE(d_t_hin)
+! tendance due a l'oxydation du methane
+      REAL, SAVE, ALLOCATABLE :: d_q_ch4(:,:)
+      !$OMP THREADPRIVATE(d_q_ch4)
 
 ! tendance du a la conersion Ec -> E thermique
@@ -93,4 +96,11 @@
       REAL, SAVE, ALLOCATABLE :: topswcf_aero(:,:),  solswcf_aero(:,:)  ! diag
       !$OMP THREADPRIVATE(topswcf_aero,solswcf_aero)
+! LW radiation diagnostics CK
+      REAL, SAVE, ALLOCATABLE :: toplwad_aero(:),  sollwad_aero(:)      ! diag
+      !$OMP THREADPRIVATE(toplwad_aero,sollwad_aero)
+      REAL, SAVE, ALLOCATABLE :: toplwai_aero(:),  sollwai_aero(:)      ! diag
+      !$OMP THREADPRIVATE(toplwai_aero,sollwai_aero)
+      REAL, SAVE, ALLOCATABLE :: toplwad0_aero(:), sollwad0_aero(:)     ! diag
+      !$OMP THREADPRIVATE(toplwad0_aero,sollwad0_aero)
 ! Special RRTM
       REAL, SAVE, ALLOCATABLE :: ZLWFT0_i(:,:),  ZSWFT0_i(:,:)      ! diag
@@ -137,4 +147,6 @@
       REAL, SAVE, ALLOCATABLE :: sconcso4(:) 
       !$OMP THREADPRIVATE(sconcso4) 
+      REAL, SAVE, ALLOCATABLE :: sconcno3(:) 
+      !$OMP THREADPRIVATE(sconcno3) 
       REAL, SAVE, ALLOCATABLE :: sconcoa(:) 
       !$OMP THREADPRIVATE(sconcoa) 
@@ -147,4 +159,6 @@
       REAL, SAVE, ALLOCATABLE :: concso4(:,:) 
       !$OMP THREADPRIVATE(concso4) 
+      REAL, SAVE, ALLOCATABLE :: concno3(:,:) 
+      !$OMP THREADPRIVATE(concno3) 
       REAL, SAVE, ALLOCATABLE :: concoa(:,:) 
       !$OMP THREADPRIVATE(concoa) 
@@ -194,4 +208,11 @@
 !$OMP THREADPRIVATE(topswcf_aerop, solswcf_aerop)
 
+! additional LW variables CK
+      REAL,ALLOCATABLE,SAVE :: toplwad_aerop(:), sollwad_aerop(:)
+!$OMP THREADPRIVATE(toplwad_aerop, sollwad_aerop)
+      REAL,ALLOCATABLE,SAVE :: toplwai_aerop(:), sollwai_aerop(:)
+!$OMP THREADPRIVATE(toplwai_aerop, sollwai_aerop)
+      REAL,ALLOCATABLE,SAVE :: toplwad0_aerop(:), sollwad0_aerop(:)
+!$OMP THREADPRIVATE(toplwad0_aerop, sollwad0_aerop)
 
 !Ajout de celles nécessaires au phys_output_write_mod
@@ -228,4 +249,8 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: wake_h, wbeff, zmax_th, zq2m, zt2m
 !$OMP THREADPRIVATE(wake_h, wbeff, zmax_th, zq2m, zt2m)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zt2m_min_mon, zt2m_max_mon
+!$OMP THREADPRIVATE(zt2m_min_mon, zt2m_max_mon)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: t2m_min_mon, t2m_max_mon
+!$OMP THREADPRIVATE(t2m_min_mon, t2m_max_mon)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: weak_inversion
 !$OMP THREADPRIVATE(weak_inversion)
@@ -307,5 +332,5 @@
       allocate(d_t_wake(klon,klev),d_q_wake(klon,klev))
       allocate(d_t_lsc(klon,klev),d_q_lsc(klon,klev))
-      allocate(d_ql_lsc(klon,klev))
+      allocate(d_ql_lsc(klon,klev),d_qi_lsc(klon,klev))
       allocate(d_t_ajsb(klon,klev),d_q_ajsb(klon,klev))
       allocate(d_t_ajs(klon,klev),d_q_ajs(klon,klev))
@@ -330,8 +355,14 @@
       allocate(topswai_aero(klon), solswai_aero(klon))
       allocate(topswad0_aero(klon), solswad0_aero(klon))
+     ! LW diagnostics CK
+      allocate(toplwad_aero(klon), sollwad_aero(klon))
+      allocate(toplwai_aero(klon), sollwai_aero(klon))
+      allocate(toplwad0_aero(klon), sollwad0_aero(klon))
+      ! end
       allocate(topsw_aero(klon,naero_grp), solsw_aero(klon,naero_grp))
       allocate(topsw0_aero(klon,naero_grp), solsw0_aero(klon,naero_grp))
       allocate(topswcf_aero(klon,3), solswcf_aero(klon,3))
       allocate(d_u_hin(klon,klev),d_v_hin(klon,klev),d_t_hin(klon,klev))
+      allocate(d_q_ch4(klon,klev))
 !      allocate(tausum_aero(klon,nwave,naero_spc))
 !      allocate(tau3d_aero(klon,klev,nwave,naero_spc)) 
@@ -355,4 +386,5 @@
       allocate(od550lt1aer(klon))	 	 
       allocate(sconcso4(klon))
+      allocate(sconcno3(klon))
       allocate(sconcoa(klon))
       allocate(sconcbc(klon))
@@ -360,4 +392,5 @@
       allocate(sconcdust(klon))
       allocate(concso4(klon,klev))
+      allocate(concno3(klon,klev))
       allocate(concoa(klon,klev))
       allocate(concbc(klon,klev))
@@ -385,4 +418,9 @@
       ALLOCATE(topswcf_aerop(klon,naero_grp), solswcf_aerop(klon,naero_grp))
 
+! additional LW variables CK
+      ALLOCATE(toplwad_aerop(klon), sollwad_aerop(klon))
+      ALLOCATE(toplwai_aerop(klon), sollwai_aerop(klon))
+      ALLOCATE(toplwad0_aerop(klon), sollwad0_aerop(klon))
+
 ! FH Ajout de celles nécessaires au phys_output_write_mod
 
@@ -403,4 +441,6 @@
       ALLOCATE(rain_lsc(klon), wake_h(klon), wbeff(klon), zmax_th(klon))
       ALLOCATE(zq2m(klon), zt2m(klon), weak_inversion(klon))
+      ALLOCATE(zt2m_min_mon(klon), zt2m_max_mon(klon))
+      ALLOCATE(t2m_min_mon(klon), t2m_max_mon(klon))
       ALLOCATE(sens(klon), flwp(klon), fiwp(klon))
       ALLOCATE(ale_bl_stat(klon), alp_bl_conv(klon), alp_bl_det(klon))
@@ -467,5 +507,5 @@
       deallocate(d_t_wake,d_q_wake)
       deallocate(d_t_lsc,d_q_lsc)
-      deallocate(d_ql_lsc)
+      deallocate(d_ql_lsc,d_qi_lsc)
       deallocate(d_t_ajsb,d_q_ajsb)
       deallocate(d_t_ajs,d_q_ajs)
@@ -486,4 +526,9 @@
       deallocate(topswai_aero,solswai_aero)
       deallocate(topswad0_aero,solswad0_aero)
+      ! LW additional CK
+      deallocate(toplwad_aero,sollwad_aero)
+      deallocate(toplwai_aero,sollwai_aero)
+      deallocate(toplwad0_aero,sollwad0_aero)
+      ! end
       deallocate(topsw_aero,solsw_aero)
       deallocate(topsw0_aero,solsw0_aero)
@@ -507,4 +552,5 @@
       deallocate(od550lt1aer)
       deallocate(sconcso4) 
+      deallocate(sconcno3) 
       deallocate(sconcoa) 
       deallocate(sconcbc) 
@@ -512,4 +558,5 @@
       deallocate(sconcdust) 
       deallocate(concso4) 
+      deallocate(concno3) 
       deallocate(concoa) 
       deallocate(concbc) 
@@ -529,4 +576,5 @@
       deallocate(load_tmp7)
       deallocate(d_u_hin,d_v_hin,d_t_hin)
+      deallocate(d_q_ch4)
 
 !IM ajout variables CFMIP2/CMIP5
@@ -538,4 +586,8 @@
       deallocate(topswcf_aerop, solswcf_aerop)
 
+!CK LW diagnostics
+      deallocate(toplwad_aerop, sollwad_aerop)
+      deallocate(toplwai_aerop, sollwai_aerop)
+      deallocate(toplwad0_aerop, sollwad0_aerop)
 
 ! FH Ajout de celles nécessaires au phys_output_write_mod
@@ -554,4 +606,6 @@
       DEALLOCATE(rain_lsc, wake_h, wbeff, zmax_th)
       DEALLOCATE(zq2m, zt2m, weak_inversion)
+      DEALLOCATE(zt2m_min_mon, zt2m_max_mon)
+      DEALLOCATE(t2m_min_mon, t2m_max_mon)
       DEALLOCATE(sens, flwp, fiwp)
       DEALLOCATE(ale_bl_stat,alp_bl_conv,alp_bl_det)
@@ -595,3 +649,3 @@
 END SUBROUTINE phys_local_var_end
 
-END MODULE phys_local_var_mod
+END MODULE phys_local_var_mod 
Index: LMDZ5/branches/testing/libf/phylmd/phys_output_ctrlout_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phys_output_ctrlout_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phys_output_ctrlout_mod.F90	(revision 2160)
@@ -3,5 +3,5 @@
   USE phys_output_var_mod
   USE indice_sol_mod
-  USE aero_mod, only : naero_tot,name_aero_tau
+  USE aero_mod
 
 
@@ -49,11 +49,19 @@
   TYPE(ctrl_out), SAVE :: o_t2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
     't2m', 'Temperature 2m', 'K', (/ ('', i=1, 9) /))
-  TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+  TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11 /), &
     't2m_min', 'Temp 2m min', 'K', &
       (/ "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)" /))
-  TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+  TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11 /), &
     't2m_max', 'Temp 2m max', 'K', &
       (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", &
          "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_t2m_min_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20 /), &
+    't2m_min_mon', 'Monthly average min 2m temperature', 'K', &
+      (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))
+  TYPE(ctrl_out), SAVE :: o_t2m_max_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20 /), &
+    't2m_max_mon', 'Monthly average max 2m temperature', 'K', &
+      (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", &
+         "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))
 
   TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_t2m_srf = (/ &
@@ -728,28 +736,51 @@
   TYPE(ctrl_out), SAVE :: o_solswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
     'solswai', 'AIE at SFR', 'W/m2', (/ ('', i=1, 9) /))
-
-  type(ctrl_out),save,dimension(naero_tot) :: o_tausumaero  =                           & 
-    (/ ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_ASBCM',                        &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(1),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_ASPOMM',                       &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_ASSO4M',                       &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(3),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_CSSO4M',                       &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(4),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_SSSSM',                        &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(5),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_ASSSM',                        &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(6),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_CSSSM',                        &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(7),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_CIDUSTM',                      &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(8),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_AIBCM',                        &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(9),"1", (/ ('', i=1, 9) /)), &
-       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_AIPOMM',                       &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(10),"1", (/ ('', i=1, 9) /)),&
-       ctrl_out((/ 2, 2, 10, 10, 10, 10, 11, 11, 11 /),'OD550_STRAT',                        &
-      "Aerosol Optical depth at 550 nm "//name_aero_tau(11),"1", (/ ('', i=1, 9) /)) /)
+  TYPE(ctrl_out), SAVE :: o_toplwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'toplwad', 'LW-ADE at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_toplwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'toplwad0', 'LW-ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_toplwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'toplwai', 'LW-AIE at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sollwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sollwad', 'LW-ADE at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sollwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sollwad0', 'LW-ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sollwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sollwai', 'LW-AIE at SFR', 'W/m2', (/ ('', i=1, 9) /))
+
+  type(ctrl_out),save,dimension(naero_tot) :: o_tausumaero =                           &
+    (/ ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(1),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(1),"1", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(2),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"2", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(3),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"3", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(4),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"4", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(5),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"5", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(6),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"6", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(7),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"7", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(8),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"8", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(9),      &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"9", (/ ('', i=1, 9) /)),    &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(10),     &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"10", (/ ('', i=1, 9) /)),   &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(11),     &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"11", (/ ('', i=1, 9) /)),   &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(12),     &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"12", (/ ('', i=1, 9) /)),   &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(13),     &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"13", (/ ('', i=1, 9) /)),   &
+       ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /),'OD550_'//name_aero_tau(14),     &
+      "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"14", (/ ('', i=1, 9) /))   /)
+
+
+!
+  TYPE(ctrl_out), SAVE :: o_tausumaero_lw = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'OD_10um_STRAT', 'Stratospheric Aerosol Optical depth at 10 um ', '1', (/ ('', i=1, 9) /))
 !
   TYPE(ctrl_out), SAVE :: o_od550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
@@ -763,4 +794,6 @@
   TYPE(ctrl_out), SAVE :: o_sconcso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
     'sconcso4', 'Surface Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sconcno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sconcno3', 'Surface Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 9) /))
   TYPE(ctrl_out), SAVE :: o_sconcoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
     'sconcoa', 'Surface Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 9) /))
@@ -773,4 +806,6 @@
   TYPE(ctrl_out), SAVE :: o_concso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
     'concso4', 'Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_concno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'concno3', 'Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 9) /))
   TYPE(ctrl_out), SAVE :: o_concoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
     'concoa', 'Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 9) /))
@@ -1092,4 +1127,6 @@
   TYPE(ctrl_out), SAVE :: o_dthin = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
     'dthin', 'Hines GWD dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqch4 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqch4', 'H2O due to CH4 oxidation & photolysis', '(kg/kg)/s', (/ ('', i=1, 9) /))
 
   type(ctrl_out), save:: o_du_gwd_rando &
Index: LMDZ5/branches/testing/libf/phylmd/phys_output_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phys_output_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phys_output_mod.F90	(revision 2160)
@@ -59,5 +59,5 @@
     include "iniprint.h"
 
-    ! ug Nouveaux arguments nécessaires au histwrite_mod:
+    ! ug Nouveaux arguments n\'ecessaires au histwrite_mod:
     INTEGER, INTENT(IN)                         :: ivap
     INTEGER, DIMENSION(klon), INTENT(IN)        :: lmax_th
@@ -94,5 +94,5 @@
     REAL                                  :: dtime
     INTEGER                               :: idayref
-    REAL                                  :: zjulian
+    REAL                                  :: zjulian_start, zjulian
     REAL, DIMENSION(klev)                 :: Ahyb, Bhyb, Alt
     CHARACTER(LEN=4), DIMENSION(nlevSTD)  :: clevSTD
@@ -130,7 +130,9 @@
                                                                     90., 90., 90., 90., 90. /)                        
 #ifdef CPP_XIOS
-    ! ug Variables utilisées pour récupérer le calendrier pour xios
+    ! ug Variables utilis\'ees pour r\'ecup\'erer le calendrier pour xios
     INTEGER :: x_an, x_mois, x_jour
     REAL :: x_heure
+    INTEGER :: ini_an, ini_mois, ini_jour
+    REAL :: ini_heure
 #endif
 
@@ -234,4 +236,6 @@
     type_ecri_files(:)=type_ecri(:)
 
+!    if (ok_all_xml) phys_out_filelevels = 999
+
     WRITE(lunout,*)'phys_out_lonmin=',phys_out_lonmin
     WRITE(lunout,*)'phys_out_lonmax=',phys_out_lonmax
@@ -255,11 +259,14 @@
      ELSE
          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+         CALL ymds2ju(annee_ref, 1, day_ini, start_time, zjulian_start)
      END IF
 
 #ifdef CPP_XIOS
-    ! ug Réglage du calendrier xios
+    ! ug R\'eglage du calendrier xios
     !Temps julian => an, mois, jour, heure
     CALL ju2ymds(zjulian, x_an, x_mois, x_jour, x_heure)
-    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure)
+    CALL ju2ymds(zjulian_start, ini_an, ini_mois, ini_jour, ini_heure)
+    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure, ini_an, &
+                       ini_mois, ini_jour, ini_heure )
 #endif
 
@@ -300,12 +307,13 @@
        zoutm(iff) = ecrit_files(iff) ! Frequence ou l on ecrit en seconde
 
-    IF (clef_files(iff)) THEN
 
 #ifdef CPP_XIOS
 !!! Ouverture de chaque fichier XIOS !!!!!!!!!!!
-    if (prt_level >= 10) then
-      print*,'phys_output_open: call wxios_add_file with phys_out_filenames(iff)=',trim(phys_out_filenames(iff))                                                                        
-    endif
-    CALL wxios_add_file(phys_out_filenames(iff),chtimestep(iff),lev_files(iff))  
+    IF (.not. ok_all_xml) then
+      if (prt_level >= 10) then
+        print*,'phys_output_open: call wxios_add_file with phys_out_filenames(iff)=',trim(phys_out_filenames(iff))    
+      endif
+      CALL wxios_add_file(phys_out_filenames(iff),chtimestep(iff),lev_files(iff))  
+    ENDIF
 
 !!! Declaration des axes verticaux de chaque fichier:
@@ -329,4 +337,5 @@
 #endif 
 
+        IF (clef_files(iff)) THEN
 !!!!!!!!!!!!!!!!! Traitement dans le cas ou l'on veut stocker sur un domaine limite !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -377,5 +386,5 @@
           endif
 
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
           if (iff.le.6) then
              CALL histvert(nid_files(iff), "presnivs", "Vertical levels", "Pa", &  
@@ -399,82 +408,87 @@
 #endif
 
-      IF (nqtot>=3) THEN
-            DO iq=3,nqtot  
+     ENDIF ! clef_files
+
+!CR: ajout d'une variable eau
+!      IF (nqtot>=3) THEN
+
+       IF (nqtot>=nqo+1) THEN
+!            DO iq=3,nqtot  
+            DO iq=nqo+1,nqtot 
             iiq=niadv(iq)
-            o_trac(iq-2) = ctrl_out((/ 4, 5, 1, 1, 1, 10, 11, 11, 11 /), &
+            o_trac(iq-nqo) = ctrl_out((/ 4, 5, 1, 1, 1, 10, 11, 11, 11 /), &
                            tname(iiq),'Tracer '//ttext(iiq), "-",  &
                            (/ '', '', '', '', '', '', '', '', '' /))
-
-            o_dtr_vdf(iq-2) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_vdf(iq-nqo) = ctrl_out((/ 4, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                               'd'//trim(tname(iq))//'_vdf',  &
                               'Tendance tracer '//ttext(iiq), "-" , &
                               (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_the(iq-2) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_the(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                               'd'//trim(tname(iq))//'_the', &
                               'Tendance tracer '//ttext(iiq), "-", &
                               (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_con(iq-2) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_con(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                               'd'//trim(tname(iq))//'_con', &
                               'Tendance tracer '//ttext(iiq), "-", &
                               (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_lessi_impa(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_lessi_impa(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                      'd'//trim(tname(iq))//'_lessi_impa', &
                                      'Tendance tracer '//ttext(iiq), "-", &
                                      (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_lessi_nucl(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_lessi_nucl(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                      'd'//trim(tname(iq))//'_lessi_nucl', &
                                      'Tendance tracer '//ttext(iiq), "-", &
                                      (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_insc(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_insc(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                'd'//trim(tname(iq))//'_insc', &
                                'Tendance tracer '//ttext(iiq), "-", &
                                (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_bcscav(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_bcscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                  'd'//trim(tname(iq))//'_bcscav', &
                                  'Tendance tracer '//ttext(iiq), "-", &
                                  (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_evapls(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_evapls(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                  'd'//trim(tname(iq))//'_evapls', &
                                  'Tendance tracer '//ttext(iiq), "-", &
                                  (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_ls(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_ls(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                              'd'//trim(tname(iq))//'_ls', &
                              'Tendance tracer '//ttext(iiq), "-", &
                              (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_trsp(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_trsp(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                'd'//trim(tname(iq))//'_trsp', &
                                'Tendance tracer '//ttext(iiq), "-", &
                                (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_sscav(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_sscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                 'd'//trim(tname(iq))//'_sscav', &
                                 'Tendance tracer '//ttext(iiq), "-", &
                                 (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_sat(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_sat(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                'd'//trim(tname(iq))//'_sat', &
                                'Tendance tracer '//ttext(iiq), "-", &
                                (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_uscav(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_uscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                                 'd'//trim(tname(iq))//'_uscav', &
                                 'Tendance tracer '//ttext(iiq), "-", &
                                  (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_dtr_dry(iq-2) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
+            o_dtr_dry(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &
                               'cum'//'d'//trim(tname(iq))//'_dry', &
                               'tracer tendency dry deposition'//ttext(iiq), "-", &
                               (/ '', '', '', '', '', '', '', '', '' /))
 
-            o_trac_cum(iq-2) = ctrl_out((/ 3, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+            o_trac_cum(iq-nqo) = ctrl_out((/ 3, 4, 10, 10, 10, 10, 11, 11, 11 /), &
                                'cum'//tname(iiq),&
                                'Cumulated tracer '//ttext(iiq), "-", &
@@ -483,5 +497,4 @@
       ENDIF
 
-     ENDIF ! clef_files
 
    ENDDO !  iff
Index: LMDZ5/branches/testing/libf/phylmd/phys_output_write_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phys_output_write_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phys_output_write_mod.F90	(revision 2160)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
 MODULE phys_output_write_mod
@@ -30,4 +30,5 @@
          o_aireTER, o_flat, o_slp, o_tsol, &
          o_t2m, o_t2m_min, o_t2m_max, &
+         o_t2m_min_mon, o_t2m_max_mon, &
          o_q2m, o_ustar, o_u10m, o_v10m, &
          o_wind10m, o_wind10max, o_sicf, &
@@ -88,10 +89,11 @@
          o_dtsvdfg, o_dtsvdfi, o_rugs, o_od550aer, &
          o_od865aer, o_absvisaer, o_od550lt1aer, &
-         o_sconcso4, o_sconcoa, o_sconcbc, &
-         o_sconcss, o_sconcdust, o_concso4, &
+         o_sconcso4, o_sconcno3, o_sconcoa, o_sconcbc, &
+         o_sconcss, o_sconcdust, o_concso4, o_concno3, &
          o_concoa, o_concbc, o_concss, o_concdust, &
          o_loadso4, o_loadoa, o_loadbc, o_loadss, &
-         o_loaddust, o_tausumaero, o_topswad, &
-         o_topswad0, o_solswad, o_solswad0, &
+         o_loaddust, o_tausumaero, o_tausumaero_lw, &
+         o_topswad, o_topswad0, o_solswad, o_solswad0, &
+         o_toplwad, o_toplwad0, o_sollwad, o_sollwad0, &
          o_swtoaas_nat, o_swsrfas_nat, &
          o_swtoacs_nat, o_swtoaas_ant, &
@@ -129,5 +131,5 @@
          o_duvdf, o_dvvdf, o_duoro, o_dvoro, &
          o_dtoro, o_dulif, o_dvlif, o_dtlif, &
-         o_duhin, o_dvhin, o_dthin, o_rsu, &
+         o_duhin, o_dvhin, o_dthin, o_dqch4, o_rsu, &
          o_rsd, o_rlu, o_rld, o_rsucs, o_rsdcs, &
          o_rlucs, o_rldcs, o_tnt, o_tntr, &
@@ -172,4 +174,5 @@
 
     USE phys_local_var_mod, only: zxfluxlat, slp, zxtsol, zt2m, &
+         t2m_min_mon, t2m_max_mon, &
          zu10m, zv10m, zq2m, zustar, zxqsurf, qsol, &
          rain_lsc, snow_lsc, evap, bils, sens, fder, &
@@ -193,6 +196,6 @@
          pmflxr, pmflxs, prfl, psfl, re, fl, rh2m, &
          qsat2m, tpote, tpot, d_ts, zxrugs, od550aer, &
-         od865aer, absvisaer, od550lt1aer, sconcso4, &
-         sconcoa, sconcbc, sconcss, sconcdust, concso4, &
+         od865aer, absvisaer, od550lt1aer, sconcso4, sconcno3, &
+         sconcoa, sconcbc, sconcss, sconcdust, concso4, concno3, &
          concoa, concbc, concss, concdust, loadso4, &
          loadoa, loadbc, loadss, loaddust, tausum_aero, &
@@ -201,4 +204,6 @@
          topsw0_aero, solsw0_aero, topswcf_aero, &
          solswcf_aero, topswai_aero, solswai_aero, &
+         toplwad_aero, toplwad0_aero, sollwad_aero, &
+         sollwad0_aero, toplwai_aero, sollwai_aero, &
          scdnc, cldncl, reffclws, reffclwc, cldnvi, &
          lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
@@ -215,5 +220,5 @@
          d_v_vdf, d_u_oro, d_v_oro, d_t_oro, d_u_lif, &
          d_v_lif, d_t_lif, d_u_hin, d_v_hin, d_t_hin, &
-         pmfd, pmfu, ref_liq, ref_ice, rhwriteSTD
+         d_q_ch4, pmfd, pmfu, ref_liq, ref_ice, rhwriteSTD
 
     USE phys_output_var_mod, only: vars_defined, snow_o, zfra_o, bils_diss, &
@@ -222,9 +227,9 @@
     USE ocean_slab_mod, only: tslab, slab_bils
     USE indice_sol_mod, only: nbsrf
-    USE infotrac, only: nqtot
+    USE infotrac, only: nqtot, nqo
     USE comgeomphy, only: airephy
     USE surface_data, only: type_ocean, ok_veget, ok_snow
 !    USE aero_mod, only: naero_spc
-    USE aero_mod, only: naero_tot
+    USE aero_mod, only: naero_tot, id_STRAT_phy
     USE ioipsl, only: histend, histsync
     USE iophy, only: set_itau_iophy, histwrite_phy
@@ -238,5 +243,7 @@
     USE phys_cal_mod, only : mth_len
 
+
     IMPLICIT NONE
+
 
     INCLUDE "temps.h"
@@ -300,5 +307,6 @@
              write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w
           endif
-          CALL xios_update_calendar(itau_w)
+!          CALL xios_update_calendar(itau_w)
+          CALL xios_update_calendar(itap)
        END IF
        !$OMP END MASTER
@@ -326,4 +334,6 @@
        CALL histwrite_phy(o_t2m_min, zt2m)
        CALL histwrite_phy(o_t2m_max, zt2m)
+       CALL histwrite_phy(o_t2m_max_mon, t2m_max_mon)
+       CALL histwrite_phy(o_t2m_min_mon, t2m_min_mon)
 
        IF (vars_defined) THEN
@@ -786,5 +796,8 @@
        CALL histwrite_phy(o_rugs, zxrugs)
        ! OD550 per species
-       IF (new_aod .and. (.not. aerosol_couple)) THEN
+!--OLIVIER
+!This is warranted by treating INCA aerosols as offline aerosols
+!       IF (new_aod .and. (.not. aerosol_couple)) THEN
+       IF (new_aod) THEN
           IF (flag_aerosol.GT.0) THEN
              CALL histwrite_phy(o_od550aer, od550aer)
@@ -793,4 +806,5 @@
              CALL histwrite_phy(o_od550lt1aer, od550lt1aer)
              CALL histwrite_phy(o_sconcso4, sconcso4)
+             CALL histwrite_phy(o_sconcno3, sconcno3)
              CALL histwrite_phy(o_sconcoa, sconcoa)
              CALL histwrite_phy(o_sconcbc, sconcbc)
@@ -798,4 +812,5 @@
              CALL histwrite_phy(o_sconcdust, sconcdust)
              CALL histwrite_phy(o_concso4, concso4)
+             CALL histwrite_phy(o_concno3, concno3)
              CALL histwrite_phy(o_concoa, concoa)
              CALL histwrite_phy(o_concbc, concbc)
@@ -817,4 +832,8 @@
              END DO
           ENDIF
+          IF (flag_aerosol_strat) THEN
+             CALL histwrite_phy(o_tausumaero_lw, &
+                  tausum_aero(:,6,id_STRAT_phy) )
+          ENDIF
        ENDIF
        IF (ok_ade) THEN
@@ -823,4 +842,8 @@
           CALL histwrite_phy(o_solswad, solswad_aero)
           CALL histwrite_phy(o_solswad0, solswad0_aero)
+          CALL histwrite_phy(o_toplwad, toplwad_aero)
+          CALL histwrite_phy(o_toplwad0, toplwad0_aero)
+          CALL histwrite_phy(o_sollwad, sollwad_aero)
+          CALL histwrite_phy(o_sollwad0, sollwad0_aero)
           !====MS forcing diagnostics
           if (new_aod) then
@@ -973,5 +996,5 @@
        ENDIF
        CALL histwrite_phy(o_dtcon, zx_tmp_fi3d)
-       if(iflag_thermals.eq.1)then
+       if(iflag_thermals.eq.0)then
           IF (vars_defined) THEN
              zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys + &
@@ -979,5 +1002,5 @@
           ENDIF
           CALL histwrite_phy(o_tntc, zx_tmp_fi3d)
-       else if(iflag_thermals.gt.1.and.iflag_wake.EQ.1)then
+       else if(iflag_thermals.ge.1.and.iflag_wake.EQ.1)then
           IF (vars_defined) THEN
              zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys + &
@@ -994,8 +1017,8 @@
        CALL histwrite_phy(o_dqcon, zx_tmp_fi3d)
 
-       IF(iflag_thermals.EQ.1) THEN
+       IF(iflag_thermals.EQ.0) THEN
           IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys
           CALL histwrite_phy(o_tnhusc, zx_tmp_fi3d)
-       ELSE IF(iflag_thermals.GT.1.AND.iflag_wake.EQ.1) THEN
+       ELSE IF(iflag_thermals.GE.1.AND.iflag_wake.EQ.1) THEN
           IF (vars_defined) THEN
              zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys + &
@@ -1146,4 +1169,8 @@
        end IF
 
+       IF (ok_qch4) then
+          CALL histwrite_phy(o_dqch4, d_q_ch4 / pdtphys)
+       ENDIF
+
        CALL histwrite_phy(o_rsu, swup)
        CALL histwrite_phy(o_rsd, swdn)
@@ -1288,20 +1315,21 @@
        ENDDO !nfiles
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-       IF (nqtot.GE.3) THEN
-          DO iq=3,nqtot
-             CALL histwrite_phy(o_trac(iq-2), qx(:,:,iq))
-             CALL histwrite_phy(o_dtr_vdf(iq-2),d_tr_cl(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_the(iq-2),d_tr_th(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_con(iq-2),d_tr_cv(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_lessi_impa(iq-2),d_tr_lessi_impa(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_lessi_nucl(iq-2),d_tr_lessi_nucl(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_insc(iq-2),d_tr_insc(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_bcscav(iq-2),d_tr_bcscav(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_evapls(iq-2),d_tr_evapls(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_ls(iq-2),d_tr_ls(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_trsp(iq-2),d_tr_trsp(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_sscav(iq-2),d_tr_sscav(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_sat(iq-2),d_tr_sat(:,:,iq-2))
-             CALL histwrite_phy(o_dtr_uscav(iq-2),d_tr_uscav(:,:,iq-2))
+        IF (nqtot.GE.nqo+1) THEN
+            DO iq=nqo+1,nqtot
+
+             CALL histwrite_phy(o_trac(iq-nqo), qx(:,:,iq))
+             CALL histwrite_phy(o_dtr_vdf(iq-nqo),d_tr_cl(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_the(iq-nqo),d_tr_th(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_con(iq-nqo),d_tr_cv(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_lessi_impa(iq-nqo),d_tr_lessi_impa(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_lessi_nucl(iq-nqo),d_tr_lessi_nucl(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_insc(iq-nqo),d_tr_insc(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_bcscav(iq-nqo),d_tr_bcscav(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_evapls(iq-nqo),d_tr_evapls(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_ls(iq-nqo),d_tr_ls(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_trsp(iq-nqo),d_tr_trsp(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_sscav(iq-nqo),d_tr_sscav(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_sat(iq-nqo),d_tr_sat(:,:,iq-nqo))
+             CALL histwrite_phy(o_dtr_uscav(iq-nqo),d_tr_uscav(:,:,iq-nqo))
              zx_tmp_fi2d=0.
              IF(vars_defined) THEN
@@ -1310,5 +1338,5 @@
                 ENDDO
              ENDIF
-             CALL histwrite_phy(o_trac_cum(iq-2), zx_tmp_fi2d)
+             CALL histwrite_phy(o_trac_cum(iq-nqo), zx_tmp_fi2d)
           ENDDO
        ENDIF
@@ -1316,5 +1344,5 @@
        IF(.NOT.vars_defined) THEN
           !$OMP MASTER
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
           DO iff=1,nfiles
              IF (clef_files(iff)) THEN
@@ -1341,5 +1369,5 @@
     IF(vars_defined) THEN
        ! On synchronise les fichiers pour IOIPSL
-#ifndef CPP_NO_IOIPSL 
+#ifndef CPP_IOIPSL_NO_OUTPUT 
        !$OMP MASTER
        DO iff=1,nfiles
Index: LMDZ5/branches/testing/libf/phylmd/phys_state_var_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phys_state_var_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phys_state_var_mod.F90	(revision 2160)
@@ -349,6 +349,8 @@
       REAL,SAVE,ALLOCATABLE :: tau_aero(:,:,:,:), piz_aero(:,:,:,:), cg_aero(:,:,:,:)
 !$OMP THREADPRIVATE(tau_aero, piz_aero, cg_aero)
-      REAL,SAVE,ALLOCATABLE :: tau_aero_rrtm(:,:,:,:), piz_aero_rrtm(:,:,:,:), cg_aero_rrtm(:,:,:,:)
-!$OMP THREADPRIVATE(tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm)
+      REAL,SAVE,ALLOCATABLE :: tau_aero_sw_rrtm(:,:,:,:), piz_aero_sw_rrtm(:,:,:,:), cg_aero_sw_rrtm(:,:,:,:)
+!$OMP THREADPRIVATE(tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm)
+      REAL,SAVE,ALLOCATABLE :: tau_aero_lw_rrtm(:,:,:,:), piz_aero_lw_rrtm(:,:,:,:), cg_aero_lw_rrtm(:,:,:,:)
+!$OMP THREADPRIVATE(tau_aero_lw_rrtm, piz_aero_lw_rrtm, cg_aero_lw_rrtm)
       REAL,SAVE,ALLOCATABLE :: ccm(:,:,:)
 !$OMP THREADPRIVATE(ccm)
@@ -519,6 +521,8 @@
       ALLOCATE(topswai(klon), solswai(klon))
       ALLOCATE(tau_aero(klon,klev,naero_grp,nbands),piz_aero(klon,klev,naero_grp,nbands),cg_aero(klon,klev,naero_grp,nbands))
-      ALLOCATE(tau_aero_rrtm(klon,klev,2,nbands_rrtm),piz_aero_rrtm(klon,klev,2,nbands_rrtm))
-      ALLOCATE(cg_aero_rrtm(klon,klev,2,nbands_rrtm))
+      ALLOCATE(tau_aero_sw_rrtm(klon,klev,2,nbands_sw_rrtm),piz_aero_sw_rrtm(klon,klev,2,nbands_sw_rrtm))
+      ALLOCATE(cg_aero_sw_rrtm(klon,klev,2,nbands_sw_rrtm))
+      ALLOCATE(tau_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm),piz_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm))
+      ALLOCATE(cg_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm))
       ALLOCATE(ccm(klon,klev,nbands))
 
@@ -635,5 +639,6 @@
       deallocate(topswai, solswai)
       deallocate(tau_aero,piz_aero,cg_aero)
-      deallocate(tau_aero_rrtm,piz_aero_rrtm,cg_aero_rrtm)
+      deallocate(tau_aero_sw_rrtm,piz_aero_sw_rrtm,cg_aero_sw_rrtm)
+      deallocate(tau_aero_lw_rrtm,piz_aero_lw_rrtm,cg_aero_lw_rrtm)
       deallocate(ccm)
       if (ok_gwd_rando) deallocate(du_gwd_rando, dv_gwd_rando)
Index: LMDZ5/branches/testing/libf/phylmd/physiq.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/physiq.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/physiq.F90	(revision 2160)
@@ -11,7 +11,8 @@
 
   USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
-       histwrite, ju2ymds, ymds2ju, ioget_year_len
+       histwrite, ju2ymds, ymds2ju, getin
   USE comgeomphy
-  USE phys_cal_mod
+  USE phys_cal_mod, only: year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
+       mth_cur, phys_cal_update
   USE write_field_phy
   USE dimphy
@@ -201,5 +202,7 @@
   INTEGER iliq          ! indice de traceurs pour eau liquide
   PARAMETER (iliq=2)
-
+!CR: on ajoute la phase glace
+  INTEGER isol          ! indice de traceurs pour eau glace
+  PARAMETER (isol=3)
   !
   !
@@ -385,4 +388,5 @@
   REAL dt_a(klon,klev)
   REAL dq_a(klon,klev)
+  REAL, dimension(klon) :: www
   REAL, SAVE :: alp_offset
   !$OMP THREADPRIVATE(alp_offset)
@@ -596,5 +600,5 @@
 
   ! tendance nulles
-  REAL, dimension(klon,klev):: du0, dv0, dt0, dq0, dql0
+  REAL, dimension(klon,klev):: du0, dv0, dt0, dq0, dql0, dqi0
 
   !
@@ -708,5 +712,6 @@
   character*20 modname
   character*80 abort_message
-  logical ok_sync
+  logical, save ::  ok_sync, ok_sync_omp
+  !$OMP THREADPRIVATE(ok_sync)
   real date0
   integer idayref
@@ -944,5 +949,4 @@
      END DO
   END IF
-  ok_sync=.TRUE.
 
   IF (debut) THEN
@@ -1228,4 +1232,8 @@
 
      !$OMP MASTER
+! FH : if ok_sync=.true. , the time axis is written at each time step
+! in the output files. Only at the end in the opposite case
+     ok_sync_omp=.false.
+     CALL getin('ok_sync',ok_sync_omp)
      call phys_output_open(rlon,rlat,nCFMIP,tabijGCM, &
           iGCM,jGCM,lonGCM,latGCM, &
@@ -1237,7 +1245,8 @@
           flag_aerosol_strat, pdtphys, paprs, pphis,  &
           pplay, lmax_th, ptconv, ptconvth, ivap,  &
-          d_t, qx, d_qx, zmasse, ok_sync)
+          d_t, qx, d_qx, zmasse, ok_sync_omp)
      !$OMP END MASTER
      !$OMP BARRIER
+     ok_sync=ok_sync_omp
 
      freq_outNMC(1) = ecrit_files(7)
@@ -1377,4 +1386,5 @@
   dq0(:,:)=0.
   dql0(:,:)=0.
+  dqi0(:,:)=0.
   !
   ! Mettre a zero des variables de sortie (pour securite)
@@ -1422,13 +1432,22 @@
         q_seri(i,k)  = qx(i,k,ivap)
         ql_seri(i,k) = qx(i,k,iliq)
-        qs_seri(i,k) = 0.
+!CR: ATTENTION, on rajoute la variable glace
+        if (nqo.eq.2) then
+           qs_seri(i,k) = 0.
+        else if (nqo.eq.3) then
+           qs_seri(i,k) = qx(i,k,isol)
+        endif
      ENDDO
   ENDDO
   tke0(:,:)=pbl_tke(:,:,is_ave)
-  IF (nqtot.GE.3) THEN
-     DO iq = 3, nqtot
+!CR:Nombre de traceurs de l'eau: nqo
+!  IF (nqtot.GE.3) THEN
+   IF (nqtot.GE.(nqo+1)) THEN
+!     DO iq = 3, nqtot        
+     DO iq = nqo+1, nqtot  
         DO  k = 1, klev
            DO  i = 1, klon
-              tr_seri(i,k,iq-2) = qx(i,k,iq)
+!              tr_seri(i,k,iq-2) = qx(i,k,iq)
+              tr_seri(i,k,iq-nqo) = qx(i,k,iq)
            ENDDO
         ENDDO
@@ -1559,6 +1578,5 @@
      ! Ozone from a file
      ! Update required ozone index:
-     ro3i = int((days_elapsed + jh_cur - jh_1jan) / ioget_year_len(year_cur) &
-          * 360.) + 1
+     ro3i = int((days_elapsed + jh_cur - jh_1jan) / year_len * 360.) + 1
      if (ro3i == 361) ro3i = 360
      ! (This should never occur, except perhaps because of roundup
@@ -1617,4 +1635,7 @@
         ENDIF
         !>jyg
+     
+        if (iflag_ice_thermo.eq.0) then   
+!pas necessaire a priori
 
         zdelta = MAX(0.,SIGN(1.,RTT-t_seri(i,k)))
@@ -1627,4 +1648,25 @@
         d_t_eva(i,k) = za
         d_q_eva(i,k) = zb
+
+        else
+
+!CR: on ré-évapore eau liquide et glace
+
+!        zdelta = MAX(0.,SIGN(1.,RTT-t_seri(i,k)))
+!        zb = MAX(0.0,ql_seri(i,k))
+!        za = - MAX(0.0,ql_seri(i,k)) &
+!             * (zlvdcp*(1.-zdelta)+zlsdcp*zdelta)
+        zb = MAX(0.0,ql_seri(i,k)+qs_seri(i,k))
+        za = - MAX(0.0,ql_seri(i,k))*zlvdcp & 
+             - MAX(0.0,qs_seri(i,k))*zlsdcp
+        t_seri(i,k) = t_seri(i,k) + za
+        q_seri(i,k) = q_seri(i,k) + zb
+        ql_seri(i,k) = 0.0
+!on évapore la glace
+        qs_seri(i,k) = 0.0
+        d_t_eva(i,k) = za
+        d_q_eva(i,k) = zb
+        endif
+
      ENDDO
   ENDDO
@@ -1764,8 +1806,8 @@
      IF (klon_glo==1) THEN
         CALL add_pbl_tend &
-             (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,paprs,'vdf')
+             (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,dqi0,paprs,'vdf')
      ELSE
         CALL add_phys_tend &
-             (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,paprs,'vdf')
+             (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,dqi0,paprs,'vdf')
      ENDIF
      !--------------------------------------------------------------------
@@ -1888,7 +1930,7 @@
      ntra = 1
 
-     !=====================================================================================
-     !ajout pour la parametrisation des poches froides: 
-     !calcul de t_wake et t_undi: si pas de poches froides, t_wake=t_undi=t_seri 
+     !=========================================================================
+     !ajout pour la parametrisation des poches froides: calcul de
+     !t_wake et t_undi: si pas de poches froides, t_wake=t_undi=t_seri
      do k=1,klev
         do i=1,klon
@@ -1911,6 +1953,7 @@
      enddo
 
-     !c--   Calcul de l'energie disponible ALE (J/kg) et de la puissance disponible ALP (W/m2)
-     !c--    pour le soulevement des particules dans le modele convectif
+     ! Calcul de l'energie disponible ALE (J/kg) et de la puissance
+     ! disponible ALP (W/m2) pour le soulevement des particules dans
+     ! le modele convectif
      !
      do i = 1,klon
@@ -1940,6 +1983,6 @@
         enddo
      endif
-     !combinaison avec ale et alp de couche limite: constantes si pas de couplage, valeurs calculees
-     !dans le thermique sinon
+     !combinaison avec ale et alp de couche limite: constantes si pas
+     !de couplage, valeurs calculees dans le thermique sinon
      if (iflag_coupl.eq.0) then
         if (debut.and.prt_level.gt.9) &
@@ -1963,9 +2006,27 @@
         !         enddo
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         ! Modif FH 2010/04/27. Sans doute temporaire.
-        ! Deux options pour le alp_offset : constant si >?? 0 ou proportionnel ??a
-        ! w si <0
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+        ! Deux options pour le alp_offset : constant si >?? 0 ou
+        ! proportionnel ??a w si <0
+        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Estimation d'une vitesse verticale effective pour ALP
+        www(1:klon)=0.
+        do k=2,klev-1
+           do i=1,klon
+              www(i)=max(www(i),-omega(i,k)*RD*t_seri(i,k)/(RG*paprs(i,k)) &
+&                    *zw2(i,k)*zw2(i,k))
+!             if (paprs(i,k)>pbase(i)) then
+! calcul approche de la vitesse verticale en m/s
+!                www(i)=max(www(i),-omega(i,k)*RD*temp(i,k)/(RG*paprs(i,k))
+!             endif
+!   Le 0.1 est en gros H / ps = 1e5 / 1e4
+           enddo
+        enddo
+        do i=1,klon
+           if (www(i)>0. .and. ale_bl(i)>0. ) www(i)=www(i)/ale_bl(i)
+        enddo
+
+
         do i = 1,klon
            ALE(i) = max(ale_wake(i),Ale_bl(i))
@@ -1978,13 +2039,22 @@
               ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
            else
-              ALP(i)=alp_wake(i)+Alp_bl(i)+alp_offset*min(omega(i,6),0.)
-              if (alp(i)<0.) then
-                 print*,'ALP ',alp(i),alp_wake(i) &
-                      ,Alp_bl(i),alp_offset*min(omega(i,6),0.)
-              endif
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                _                  _
+! Ajout d'une composante 3 * A * w w'2 a  w'3  avec w=www : w max sous pbase
+!       ou A est la fraction couverte par les ascendances w'
+!       on utilise le fait que A * w'3 = ALP
+!       et donc A * w'2 ~ ALP / sqrt(ALE)  (on ajoute 0.1 pour les
+!       singularites)
+             ALP(i)=alp_wake(i)*(1.+3.*www(i)/( sqrt(ale_wake(i))+0.1) ) &
+  &                +alp_bl(i)  *(1.+3.*www(i)/( sqrt(ale_bl(i))  +0.1) )
+!             ALP(i)=alp_wake(i)+Alp_bl(i)+alp_offset*min(omega(i,6),0.)
+!             if (alp(i)<0.) then
+!                print*,'ALP ',alp(i),alp_wake(i) &
+!                     ,Alp_bl(i),alp_offset*min(omega(i,6),0.)
+!             endif
            endif
         enddo
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
 
      endif
@@ -2005,5 +2075,5 @@
 
      !fin calcul ale et alp
-     !=================================================================================================
+     !=======================================================================
 
 
@@ -2133,8 +2203,7 @@
   !    .              d_u_con, d_v_con)
 
-  !-----------------------------------------------------------------------------------------
-  ! ajout des tendances de la diffusion turbulente
-  CALL add_phys_tend(d_u_con,d_v_con,d_t_con,d_q_con,dql0,paprs,'con')
-  !-----------------------------------------------------------------------------------------
+  CALL add_phys_tend(d_u_con, d_v_con, d_t_con, d_q_con, dql0, dqi0, paprs, &
+       'convection')
+  !----------------------------------------------------------------------------
 
   if (mydebug) then
@@ -2217,5 +2286,5 @@
      ENDDO
 
-     if (iflag_wake==2) then
+     IF (iflag_wake==2) THEN
         ok_wk_lsp(:)=max(sign(1.,wake_s(:)-wake_s_min_lsp),0.)
         DO k = 1,klev
@@ -2225,5 +2294,20 @@
                 ok_wk_lsp(:)*(d_q_eva(:,k)+d_q_lsc(:,k))/dtime
         ENDDO
-     endif
+     ELSEIF (iflag_wake==3) THEN
+        ok_wk_lsp(:)=max(sign(1.,wake_s(:)-wake_s_min_lsp),0.)
+        DO k = 1,klev
+           DO i=1,klon
+              IF (rneb(i,k)==0.) THEN
+! On ne tient compte des tendances qu'en dehors des nuages (c'est �|  dire
+! a priri dans une region ou l'eau se reevapore).
+                dt_dwn(i,k)= dt_dwn(i,k)+ &
+                ok_wk_lsp(i)*d_t_lsc(i,k)/dtime
+                dq_dwn(i,k)= dq_dwn(i,k)+ &
+                ok_wk_lsp(i)*d_q_lsc(i,k)/dtime
+              ENDIF
+           ENDDO
+        ENDDO
+     ENDIF
+
      !
      !calcul caracteristiques de la poche froide
@@ -2246,5 +2330,5 @@
           ,wake_ddeltat,wake_ddeltaq)
      !
-     !-----------------------------------------------------------------------------------------
+     !-------------------------------------------------------------------------
      ! ajout des tendances des poches froides
      ! Faire rapidement disparaitre l'ancien dt_wake pour garder un d_t_wake
@@ -2252,6 +2336,6 @@
      d_t_wake(:,:)=dt_wake(:,:)*dtime
      d_q_wake(:,:)=dq_wake(:,:)*dtime
-     CALL add_phys_tend(du0,dv0,d_t_wake,d_q_wake,dql0,paprs,'wake')
-     !-----------------------------------------------------------------------------------------
+     CALL add_phys_tend(du0,dv0,d_t_wake,d_q_wake,dql0,dqi0,paprs,'wake')
+     !------------------------------------------------------------------------
 
   endif
@@ -2510,11 +2594,11 @@
         endif
 
-        !-----------------------------------------------------------------------------------------
+        !-----------------------------------------------------------------------
         ! ajout des tendances de l'ajustement sec ou des thermiques
-        CALL add_phys_tend(du0,dv0,d_t_ajsb,d_q_ajsb,dql0,paprs,'ajsb')
+        CALL add_phys_tend(du0,dv0,d_t_ajsb,d_q_ajsb,dql0,dqi0,paprs,'ajsb')
         d_t_ajs(:,:)=d_t_ajs(:,:)+d_t_ajsb(:,:)
         d_q_ajs(:,:)=d_q_ajs(:,:)+d_q_ajsb(:,:)
 
-        !-----------------------------------------------------------------------------------------
+        !---------------------------------------------------------------------
 
      endif
@@ -2558,5 +2642,5 @@
   CALL fisrtilp(dtime,paprs,pplay, &
        t_seri, q_seri,ptconv,ratqs, &
-       d_t_lsc, d_q_lsc, d_ql_lsc, rneb, cldliq, &
+       d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, cldliq, &
        rain_lsc, snow_lsc, &
        pfrac_impa, pfrac_nucl, pfrac_1nucl, &
@@ -2568,11 +2652,11 @@
   WHERE (rain_lsc < 0) rain_lsc = 0.
   WHERE (snow_lsc < 0) snow_lsc = 0.
-  !-----------------------------------------------------------------------------------------
-  ! ajout des tendances de la diffusion turbulente
-  CALL add_phys_tend(du0,dv0,d_t_lsc,d_q_lsc,d_ql_lsc,paprs,'lsc')
-  !-----------------------------------------------------------------------------------------
+
+  CALL add_phys_tend(du0,dv0,d_t_lsc,d_q_lsc,d_ql_lsc,d_qi_lsc,paprs,'lsc')
+  !---------------------------------------------------------------------------
   DO k = 1, klev
      DO i = 1, klon
         cldfra(i,k) = rneb(i,k)
+!CR: a quoi ca sert? Faut-il ajouter qs_seri?
         IF (.NOT.new_oliq) cldliq(i,k) = ql_seri(i,k)
      ENDDO
@@ -2677,6 +2761,6 @@
      !jq - Johannes Quaas, 27/11/2003 (quaas@lmd.jussieu.fr)
      IF (flag_aerosol .gt. 0) THEN
-        IF (.NOT. aerosol_couple) THEN
-           IF (iflag_rrtm .EQ. 0) THEN !--old radiation
+        IF (iflag_rrtm .EQ. 0) THEN !--old radiation
+           IF (.NOT. aerosol_couple) THEN
               !
               CALL readaerosol_optic( &
@@ -2686,14 +2770,18 @@
                    tau_aero, piz_aero, cg_aero,  &
                    tausum_aero, tau3d_aero)
-              !
-           ELSE                       ! RRTM radiation
-              !
+           ENDIF
+         ELSE                       ! RRTM radiation
+           IF (aerosol_couple .AND. config_inca == 'aero' ) THEN
+            abort_message='config_inca=aero et rrtm=1 impossible'
+            call abort_gcm(modname,abort_message,1)
+           ELSE
+!
 #ifdef CPP_RRTM
-              CALL readaerosol_optic_rrtm( &
-                   debut, new_aod, flag_aerosol, itap, jD_cur-jD_ref, &
-                   pdtphys, pplay, paprs, t_seri, rhcl, presnivs,  &
-                   mass_solu_aero, mass_solu_aero_pi,  &
-                   tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm,  &
-                   tausum_aero, tau3d_aero)
+             CALL readaerosol_optic_rrtm( debut, aerosol_couple, &
+             new_aod, flag_aerosol, itap, jD_cur-jD_ref, &
+             pdtphys, pplay, paprs, t_seri, rhcl, presnivs,  &
+             tr_seri, mass_solu_aero, mass_solu_aero_pi,  &
+             tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,  &
+             tausum_aero, tau3d_aero)
 #else
 
@@ -2711,7 +2799,7 @@
            cg_aero(:,:,:,:)  = 0.
         ELSE
-           tau_aero_rrtm(:,:,:,:)=0.0
-           piz_aero_rrtm(:,:,:,:)=0.0
-           cg_aero_rrtm(:,:,:,:)=0.0
+           tau_aero_sw_rrtm(:,:,:,:)=0.0
+           piz_aero_sw_rrtm(:,:,:,:)=0.0
+           cg_aero_sw_rrtm(:,:,:,:)=0.0
         ENDIF
      ENDIF
@@ -2845,5 +2933,9 @@
         zx_t = t_seri(i,k)
         IF (thermcep) THEN
+           if (iflag_ice_thermo.eq.0) then 
            zdelta = MAX(0.,SIGN(1.,rtt-zx_t))
+           else
+           zdelta = MAX(0.,SIGN(1.,t_glace_min-zx_t))
+           endif
            zx_qs  = r2es * FOEEW(zx_t,zdelta)/pplay(i,k)
            zx_qs  = MIN(0.5,zx_qs)
@@ -2891,5 +2983,5 @@
 
      call chemtime(itap+itau_phy-1, date0, dtime)
-     IF (config_inca == 'aero') THEN
+     IF (config_inca == 'aero' .OR. config_inca == 'aeNP') THEN
         CALL AEROSOL_METEO_CALC( &
              calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs, &
@@ -3103,5 +3195,6 @@
              flag_aerosol_strat, &
              tau_aero, piz_aero, cg_aero, &
-             tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm,&     ! Rajoute par OB pour RRTM
+             tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,&     ! Rajoute par OB pour RRTM
+             tau_aero_lw_rrtm, & 
              cldtaupirad,new_aod, &
              zqsat, flwc, fiwc, &
@@ -3119,4 +3212,9 @@
              solsw_aero, solsw0_aero, &
              topswcf_aero, solswcf_aero, &
+             !-C. Kleinschmitt for LW diagnostics
+             toplwad_aero, sollwad_aero,&
+             toplwai_aero, sollwai_aero, &
+             toplwad0_aero, sollwad0_aero,&
+             !-end
              ZLWFT0_i, ZFLDN0, ZFLUP0, &
              ZSWFT0_i, ZFSDN0, ZFSUP0)
@@ -3150,5 +3248,6 @@
                    flag_aerosol_strat, &
                    tau_aero, piz_aero, cg_aero, &
-                   tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm,&     ! Rajoute par OB pour RRTM
+                   tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,&     ! Rajoute par OB pour RRTM
+                   tau_aero_lw_rrtm, &
                    cldtaupi,new_aod, &
                    zqsat, flwc, fiwc, &
@@ -3166,4 +3265,9 @@
                    solsw_aerop, solsw0_aerop, &
                    topswcf_aerop, solswcf_aerop, &
+                   !-C. Kleinschmitt for LW diagnostics
+                   toplwad_aerop, sollwad_aerop,&
+                   toplwai_aerop, sollwai_aerop, &
+                   toplwad0_aerop, sollwad0_aerop,&
+                   !-end
                    ZLWFT0_i, ZFLDN0, ZFLUP0, &
                    ZSWFT0_i, ZFSDN0, ZFSUP0)
@@ -3288,5 +3392,5 @@
      !-----------------------------------------------------------------------------------------
      ! ajout des tendances de la trainee de l'orographie
-     CALL add_phys_tend(d_u_oro,d_v_oro,d_t_oro,dq0,dql0,paprs,'oro')
+     CALL add_phys_tend(d_u_oro,d_v_oro,d_t_oro,dq0,dql0,dqi0,paprs,'oro')
      !-----------------------------------------------------------------------------------------
      !
@@ -3334,5 +3438,5 @@
      !-----------------------------------------------------------------------------------------
      ! ajout des tendances de la portance de l'orographie
-     CALL add_phys_tend(d_u_lif,d_v_lif,d_t_lif,dq0,dql0,paprs,'lif')
+     CALL add_phys_tend(d_u_lif,d_v_lif,d_t_lif,dq0,dql0,dqi0,paprs,'lif')
      !-----------------------------------------------------------------------------------------
      !
@@ -3348,5 +3452,5 @@
      !
      !  ajout des tendances
-     CALL add_phys_tend(d_u_hin,d_v_hin,d_t_hin,dq0,dql0,paprs,'hin')
+     CALL add_phys_tend(d_u_hin,d_v_hin,d_t_hin,dq0,dql0,dqi0,paprs,'hin')
 
   ENDIF
@@ -3356,5 +3460,5 @@
           rain_fall + snow_fall, zustr_gwd_rando, zvstr_gwd_rando, &
           du_gwd_rando, dv_gwd_rando)
-     CALL add_phys_tend(du_gwd_rando, dv_gwd_rando, dt0, dq0, dql0,paprs, &
+     CALL add_phys_tend(du_gwd_rando, dv_gwd_rando, dt0, dq0, dql0,dqi0,paprs, &
           'flott_gwd_rando')
   end if
@@ -3406,4 +3510,11 @@
           , fs_bound, fq_bound )
   END IF
+
+  !DC Calcul de la tendance due au methane
+  IF(ok_qch4) THEN
+     CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay)
+  ! ajout de la tendance d'humidite due au methane
+     CALL add_phys_tend(du0,dv0,dt0,d_q_ch4*dtime,dql0,'q_ch4')
+  END IF
   !
   !
@@ -3416,5 +3527,5 @@
      ! adeclarer 
 #ifdef CPP_COSP
-     IF (MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
+     IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
 
         print*,'freq_cosp',freq_cosp
@@ -3424,5 +3535,5 @@
         call phys_cosp(itap,dtime,freq_cosp, &
              ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-             ecrit_mth,ecrit_day,ecrit_hf, &
+             ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, &
              klon,klev,rlon,rlat,presnivs,overlap, &
              fract,ref_liq,ref_ice, &
@@ -3623,12 +3734,20 @@
         d_qx(i,k,ivap) = ( q_seri(i,k) - qx(i,k,ivap) ) / dtime
         d_qx(i,k,iliq) = ( ql_seri(i,k) - qx(i,k,iliq) ) / dtime
+!CR: on ajoute le contenu en glace
+        if (nqo.eq.3) then
+        d_qx(i,k,isol) = ( qs_seri(i,k) - qx(i,k,isol) ) / dtime
+        endif
      ENDDO
   ENDDO
   !
-  IF (nqtot.GE.3) THEN
-     DO iq = 3, nqtot
+!CR: nb de traceurs eau: nqo
+!  IF (nqtot.GE.3) THEN
+   IF (nqtot.GE.(nqo+1)) THEN
+!     DO iq = 3, nqtot
+     DO iq = nqo+1, nqtot
         DO  k = 1, klev
            DO  i = 1, klon
-              d_qx(i,k,iq) = ( tr_seri(i,k,iq-2) - qx(i,k,iq) ) / dtime
+!              d_qx(i,k,iq) = ( tr_seri(i,k,iq-2) - qx(i,k,iq) ) / dtime
+               d_qx(i,k,iq) = ( tr_seri(i,k,iq-nqo) - qx(i,k,iq) ) / dtime
            ENDDO
         ENDDO
@@ -3653,9 +3772,13 @@
 
 !!! RomP >>>
-  IF (nqtot.GE.3) THEN
-     DO iq = 3, nqtot
+!CR: nb de traceurs eau: nqo
+!  IF (nqtot.GE.3) THEN
+   IF (nqtot.GE.(nqo+1)) THEN
+!     DO iq = 3, nqtot
+     DO iq = nqo+1, nqtot
         DO k = 1, klev
            DO i = 1, klon
-              tr_ancien(i,k,iq-2) = tr_seri(i,k,iq-2)
+!              tr_ancien(i,k,iq-2) = tr_seri(i,k,iq-2)
+              tr_ancien(i,k,iq-nqo) = tr_seri(i,k,iq-nqo)
            ENDDO
         ENDDO
Index: LMDZ5/branches/testing/libf/phylmd/phytrac_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/phytrac_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/phytrac_mod.F90	(revision 2160)
@@ -54,709 +54,835 @@
 CONTAINS
 
-SUBROUTINE phytrac(                                 &
-     nstep,     julien,   gmtime,   debutphy,       &
-     lafin,     pdtphys,  u, v,     t_seri,         &
-     paprs,     pplay,    pmfu,     pmfd,           &
-     pen_u,     pde_u,    pen_d,    pde_d,          &
-     cdragh,    coefh,    fm_therm, entr_therm,     &
-     yu1,       yv1,      ftsol,    pctsrf,         &
-     ustar,     u10m,      v10m,                    &
-     wstar,     ale_bl,      ale_wake,              &
-     xlat,      xlon,                               &
-     frac_impa,frac_nucl,beta_fisrt,beta_v1,        &
-     presnivs,  pphis,    pphi,     albsol,         &
-     sh,        rh,       cldfra,   rneb,           &
-     diafra,    cldliq,   itop_con, ibas_con,       &
-     pmflxr,    pmflxs,   prfl,     psfl,           &
-     da,        phi,      mp,       upwd,           &
-     phi2,      d1a,      dam,      sij, wght_cvfd, &   ! RomP +RL
-     wdtrainA,  wdtrainM, sigd,     clw, elij,      &   ! RomP 
-     evap,      ep,       epmlmMm,  eplaMm,         &   ! RomP
-     dnwd,      aerosol_couple,     flxmass_w,      &
-     tau_aero,  piz_aero,  cg_aero, ccm,            &
-     rfname,                                        &
-     d_tr_dyn,                                      &   ! RomP
-     tr_seri)         
-!
-!======================================================================
-! Auteur(s) FH
-! Objet: Moniteur general des tendances traceurs
-! Modification R. Pilon 01 janvier 2012 transport+scavenging KE scheme : cvltr
-! Modification R. Pilon 10 octobre 2012 large scale scavenging incloud_scav + bc_scav
-!======================================================================
-
-  USE ioipsl
-  USE phys_cal_mod, only : hour
-  USE dimphy
-  USE infotrac
-  USE mod_grid_phy_lmdz
-  USE mod_phys_lmdz_para
-  USE comgeomphy
-  USE iophy
-  USE traclmdz_mod
-  USE tracinca_mod
-  USE tracreprobus_mod
-  USE control_mod
-  USE indice_sol_mod
-
-  IMPLICIT NONE
-
-  INCLUDE "YOMCST.h"
-  INCLUDE "dimensions.h"
-  INCLUDE "clesphys.h"
-  INCLUDE "temps.h"
-  INCLUDE "paramet.h"
-  INCLUDE "thermcell.h"
-  INCLUDE "iniprint.h"
-!==========================================================================
-!                   -- ARGUMENT DESCRIPTION --
-!==========================================================================
-
-! Input arguments
-!----------------
-!Configuration grille,temps:
-  INTEGER,INTENT(IN) :: nstep      ! Appel physique
-  INTEGER,INTENT(IN) :: julien     ! Jour julien
-  REAL,INTENT(IN)    :: gmtime     ! Heure courante
-  REAL,INTENT(IN)    :: pdtphys    ! Pas d'integration pour la physique (seconde)
-  LOGICAL,INTENT(IN) :: debutphy   ! le flag de l'initialisation de la physique
-  LOGICAL,INTENT(IN) :: lafin      ! le flag de la fin de la physique
-  
-  REAL,DIMENSION(klon),INTENT(IN) :: xlat    ! latitudes pour chaque point 
-  REAL,DIMENSION(klon),INTENT(IN) :: xlon    ! longitudes pour chaque point 
-!
-!Physique: 
-!--------
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: u       ! variable not used 
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: v       ! variable not used 
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
-  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: pphi    ! geopotentiel
-  REAL,DIMENSION(klon),INTENT(IN)        :: pphis
-  REAL,DIMENSION(klev),INTENT(IN)        :: presnivs 
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: cldliq  ! eau liquide nuageuse
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: cldfra  ! fraction nuageuse (tous les nuages)
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: diafra  ! fraction nuageuse (convection ou stratus artificiels)
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: rneb    ! fraction nuageuse (grande echelle)
-!
-  REAL                                   :: ql_incl ! contenu en eau liquide nuageuse dans le nuage ! ql_incl=oliq/rneb
-  REAL,DIMENSION(klon,klev),INTENT(IN)   :: beta_fisrt ! taux de conversion de l'eau cond (de fisrtilp)
-  REAL,DIMENSION(klon,klev),INTENT(out)  :: beta_v1    ! -- (originale version)
-
-!
-  INTEGER,DIMENSION(klon),INTENT(IN)     :: itop_con
-  INTEGER,DIMENSION(klon),INTENT(IN)     :: ibas_con
-  REAL,DIMENSION(klon),INTENT(IN)        :: albsol  ! albedo surface
-!
-!Dynamique
-!--------
-  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)    :: d_tr_dyn
-!
-!Convection:
-!----------
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfu  ! flux de masse dans le panache montant
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfd  ! flux de masse dans le panache descendant
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: pen_u ! flux entraine dans le panache montant
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: pde_u ! flux detraine dans le panache montant
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: pen_d ! flux entraine dans le panache descendant
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: pde_d ! flux detraine dans le panache descendant
-
-!...Tiedke     
-  REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: pmflxr, pmflxs ! Flux precipitant de pluie, neige aux interfaces [convection]
-  REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: prfl, psfl ! Flux precipitant de pluie, neige aux interfaces [large-scale]
-
-  LOGICAL,INTENT(IN)                       :: aerosol_couple
-  REAL,DIMENSION(klon,klev),INTENT(IN)     :: flxmass_w
-  REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: tau_aero
-  REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: piz_aero
-  REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: cg_aero
-  CHARACTER(len=4),DIMENSION(9),INTENT(IN) :: rfname 
-  REAL,DIMENSION(klon,klev,2),INTENT(IN)   :: ccm 
-!... K.Emanuel
-  REAL,DIMENSION(klon,klev),INTENT(IN)     :: da
-  REAL,DIMENSION(klon,klev,klev),INTENT(IN):: phi
-! RomP >>>
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: d1a,dam
-  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi2
-!
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainA
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainM
-  REAL,DIMENSION(klon),INTENT(IN)           :: sigd
-! ---- RomP flux entraine, detraine et precipitant kerry Emanuel
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: evap
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: ep
-  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: sij
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wght_cvfd          !RL
-  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij
-  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: epmlmMm
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: eplaMm
-  REAL,DIMENSION(klon,klev),INTENT(IN)      :: clw
-! RomP <<<
-
-!
-  REAL,DIMENSION(klon,klev),INTENT(IN)     :: mp
-  REAL,DIMENSION(klon,klev),INTENT(IN)     :: upwd      ! saturated updraft mass flux
-  REAL,DIMENSION(klon,klev),INTENT(IN)     :: dnwd      ! saturated downdraft mass flux
-!
-!Thermiques:
-!----------
-  REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: fm_therm
-  REAL,DIMENSION(klon,klev),INTENT(IN)     :: entr_therm
-!
-!Couche limite:
-!--------------
-!
-!
-  REAL,DIMENSION(:),INTENT(IN)   :: cdragh          ! (klon) coeff drag pour T et Q
-  REAL,DIMENSION(:,:),INTENT(IN) :: coefh           ! (klon,klev) coeff melange CL (m**2/s)
-  REAL,DIMENSION(:),INTENT(IN)   :: ustar,u10m,v10m ! (klon) u* & vent a 10m (m/s)
-  REAL,DIMENSION(:),INTENT(IN)   :: wstar,ale_bl,ale_wake ! (klon) w* and Avail. Lifting Ener.
-  REAL,DIMENSION(:),INTENT(IN)   :: yu1             ! (klon) vents au premier niveau
-  REAL,DIMENSION(:),INTENT(IN)   :: yv1             ! (klon) vents au premier niveau
-
-!
-!Lessivage:
-!----------
-!
-! pour le ON-LINE
-!
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: frac_impa ! fraction d'aerosols non impactes
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: frac_nucl ! fraction d'aerosols non nuclees
-
-! Arguments necessaires pour les sources et puits de traceur:
-  REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol  ! Temperature du sol (surf)(Kelvin)
-  REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf ! Pourcentage de sol (nature du sol)
-
-
-! Output argument
-!----------------
-  REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri ! Concentration Traceur [U/KgA]
-  REAL,DIMENSION(klon,klev)                    :: sourceBE 
-!=======================================================================================
-!                        -- LOCAL VARIABLES --
-!=======================================================================================
-
-  INTEGER :: i, k, it
-  INTEGER :: nsplit
-
-!Sources et Reservoirs de traceurs (ex:Radon):
-!--------------------------------------------
-!
-  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: source  ! a voir lorsque le flux de surface est prescrit
+  SUBROUTINE phytrac(                                 &
+       nstep,     julien,   gmtime,   debutphy,       &
+       lafin,     pdtphys,  u, v,     t_seri,         &
+       paprs,     pplay,    pmfu,     pmfd,           &
+       pen_u,     pde_u,    pen_d,    pde_d,          &
+       cdragh,    coefh,    fm_therm, entr_therm,     &
+       yu1,       yv1,      ftsol,    pctsrf,         &
+       ustar,     u10m,      v10m,                    &
+       wstar,     ale_bl,      ale_wake,              &
+       xlat,      xlon,                               &
+       frac_impa,frac_nucl,beta_fisrt,beta_v1,        &
+       presnivs,  pphis,    pphi,     albsol,         &
+       sh,        rh,       cldfra,   rneb,           &
+       diafra,    cldliq,   itop_con, ibas_con,       &
+       pmflxr,    pmflxs,   prfl,     psfl,           &
+       da,        phi,      mp,       upwd,           &
+       phi2,      d1a,      dam,      sij, wght_cvfd, &   ! RomP +RL
+       wdtrainA,  wdtrainM, sigd,     clw, elij,      &   ! RomP 
+       evap,      ep,       epmlmMm,  eplaMm,         &   ! RomP
+       dnwd,      aerosol_couple,     flxmass_w,      &
+       tau_aero,  piz_aero,  cg_aero, ccm,            &
+       rfname,                                        &
+       d_tr_dyn,                                      &   ! RomP
+       tr_seri)         
+    !
+    !======================================================================
+    ! Auteur(s) FH
+    ! Objet: Moniteur general des tendances traceurs
+    ! Modification R. Pilon 01 janvier 2012 transport+scavenging KE scheme : cvltr
+    ! Modification R. Pilon 10 octobre 2012 large scale scavenging incloud_scav + bc_scav
+    !======================================================================
+
+    USE ioipsl
+    USE phys_cal_mod, only : hour
+    USE dimphy
+    USE infotrac
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+    USE comgeomphy
+    USE iophy
+    USE traclmdz_mod
+    USE tracinca_mod
+    USE tracreprobus_mod
+    USE control_mod
+    USE indice_sol_mod
+
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+
+    IMPLICIT NONE
+
+    INCLUDE "YOMCST.h"
+    INCLUDE "dimensions.h"
+    INCLUDE "clesphys.h"
+    INCLUDE "temps.h"
+    INCLUDE "paramet.h"
+    INCLUDE "thermcell.h"
+    INCLUDE "iniprint.h"
+    !==========================================================================
+    !                   -- ARGUMENT DESCRIPTION --
+    !==========================================================================
+
+    ! Input arguments
+    !----------------
+    !Configuration grille,temps:
+    INTEGER,INTENT(IN) :: nstep      ! Appel physique
+    INTEGER,INTENT(IN) :: julien     ! Jour julien
+    REAL,INTENT(IN)    :: gmtime     ! Heure courante
+    REAL,INTENT(IN)    :: pdtphys    ! Pas d'integration pour la physique (seconde)
+    LOGICAL,INTENT(IN) :: debutphy   ! le flag de l'initialisation de la physique
+    LOGICAL,INTENT(IN) :: lafin      ! le flag de la fin de la physique
+
+    REAL,DIMENSION(klon),INTENT(IN) :: xlat    ! latitudes pour chaque point 
+    REAL,DIMENSION(klon),INTENT(IN) :: xlon    ! longitudes pour chaque point 
+    !
+    !Physique: 
+    !--------
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: u       ! variable not used 
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: v       ! variable not used 
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
+    REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pphi    ! geopotentiel
+    REAL,DIMENSION(klon),INTENT(IN)        :: pphis
+    REAL,DIMENSION(klev),INTENT(IN)        :: presnivs 
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: cldliq  ! eau liquide nuageuse
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: cldfra  ! fraction nuageuse (tous les nuages)
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: diafra  ! fraction nuageuse (convection ou stratus artificiels)
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: rneb    ! fraction nuageuse (grande echelle)
+    !
+    REAL                                   :: ql_incl ! contenu en eau liquide nuageuse dans le nuage ! ql_incl=oliq/rneb
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: beta_fisrt ! taux de conversion de l'eau cond (de fisrtilp)
+    REAL,DIMENSION(klon,klev),INTENT(out)  :: beta_v1    ! -- (originale version)
+
+    !
+    INTEGER,DIMENSION(klon),INTENT(IN)     :: itop_con
+    INTEGER,DIMENSION(klon),INTENT(IN)     :: ibas_con
+    REAL,DIMENSION(klon),INTENT(IN)        :: albsol  ! albedo surface
+    !
+    !Dynamique
+    !--------
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)    :: d_tr_dyn
+    !
+    !Convection:
+    !----------
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfu  ! flux de masse dans le panache montant
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfd  ! flux de masse dans le panache descendant
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pen_u ! flux entraine dans le panache montant
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pde_u ! flux detraine dans le panache montant
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pen_d ! flux entraine dans le panache descendant
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pde_d ! flux detraine dans le panache descendant
+
+    !...Tiedke     
+    REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: pmflxr, pmflxs ! Flux precipitant de pluie, neige aux interfaces [convection]
+    REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: prfl, psfl ! Flux precipitant de pluie, neige aux interfaces [large-scale]
+
+    LOGICAL,INTENT(IN)                       :: aerosol_couple
+    REAL,DIMENSION(klon,klev),INTENT(IN)     :: flxmass_w
+    REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: tau_aero
+    REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: piz_aero
+    REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: cg_aero
+    CHARACTER(len=4),DIMENSION(9),INTENT(IN) :: rfname 
+    REAL,DIMENSION(klon,klev,2),INTENT(IN)   :: ccm 
+    !... K.Emanuel
+    REAL,DIMENSION(klon,klev),INTENT(IN)     :: da
+    REAL,DIMENSION(klon,klev,klev),INTENT(IN):: phi
+    ! RomP >>>
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: d1a,dam
+    REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi2
+    !
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainA
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: wdtrainM
+    REAL,DIMENSION(klon),INTENT(IN)           :: sigd
+    ! ---- RomP flux entraine, detraine et precipitant kerry Emanuel
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: evap
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: ep
+    REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: sij
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: wght_cvfd          !RL
+    REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij
+    REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: epmlmMm
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: eplaMm
+    REAL,DIMENSION(klon,klev),INTENT(IN)      :: clw
+    ! RomP <<<
+
+    !
+    REAL,DIMENSION(klon,klev),INTENT(IN)     :: mp
+    REAL,DIMENSION(klon,klev),INTENT(IN)     :: upwd      ! saturated updraft mass flux
+    REAL,DIMENSION(klon,klev),INTENT(IN)     :: dnwd      ! saturated downdraft mass flux
+    !
+    !Thermiques:
+    !----------
+    REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: fm_therm
+    REAL,DIMENSION(klon,klev),INTENT(IN)     :: entr_therm
+    !
+    !Couche limite:
+    !--------------
+    !
+    !
+    REAL,DIMENSION(:),INTENT(IN)   :: cdragh          ! (klon) coeff drag pour T et Q
+    REAL,DIMENSION(:,:),INTENT(IN) :: coefh           ! (klon,klev) coeff melange CL (m**2/s)
+    REAL,DIMENSION(:),INTENT(IN)   :: ustar,u10m,v10m ! (klon) u* & vent a 10m (m/s)
+    REAL,DIMENSION(:),INTENT(IN)   :: wstar,ale_bl,ale_wake ! (klon) w* and Avail. Lifting Ener.
+    REAL,DIMENSION(:),INTENT(IN)   :: yu1             ! (klon) vents au premier niveau
+    REAL,DIMENSION(:),INTENT(IN)   :: yv1             ! (klon) vents au premier niveau
+
+    !
+    !Lessivage:
+    !----------
+    !
+    REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ccntrAA
+    REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ccntrENV
+    REAL, DIMENSION(:), ALLOCATABLE, SAVE :: coefcoli
+    LOGICAL, DIMENSION(:), ALLOCATABLE, SAVE :: flag_cvltr
+!$OMP THREADPRIVATE(ccntrAA,ccntrENV,coefcoli,flag_cvltr)
+    REAL, DIMENSION(klon,klev) :: ccntrAA_3d
+    REAL, DIMENSION(klon,klev) :: ccntrENV_3d
+    REAL, DIMENSION(klon,klev) :: coefcoli_3d
+    !
+    ! pour le ON-LINE
+    !
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: frac_impa ! fraction d'aerosols non impactes
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: frac_nucl ! fraction d'aerosols non nuclees
+
+    ! Arguments necessaires pour les sources et puits de traceur:
+    REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol  ! Temperature du sol (surf)(Kelvin)
+    REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf ! Pourcentage de sol (nature du sol)
+
+
+    ! Output argument
+    !----------------
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri ! Concentration Traceur [U/KgA]
+    REAL,DIMENSION(klon,klev)                    :: sourceBE 
+    !=======================================================================================
+    !                        -- LOCAL VARIABLES --
+    !=======================================================================================
+
+    INTEGER :: i, k, it
+    INTEGER :: nsplit
+
+    !Sources et Reservoirs de traceurs (ex:Radon):
+    !--------------------------------------------
+    !
+    REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: source  ! a voir lorsque le flux de surface est prescrit
 !$OMP THREADPRIVATE(source)
 
-!
-!Entrees/Sorties: (cf ini_histrac.h et write_histrac.h)  
-!---------------
-  INTEGER                   :: iiq, ierr
-  INTEGER                   :: nhori, nvert
-  REAL                      :: zsto, zout, zjulian
-  INTEGER,SAVE              :: nid_tra     ! pointe vers le fichier histrac.nc         
+    !
+    !Entrees/Sorties: (cf ini_histrac.h et write_histrac.h)  
+    !---------------
+    INTEGER                   :: iiq, ierr
+    INTEGER                   :: nhori, nvert
+    REAL                      :: zsto, zout, zjulian
+    INTEGER,SAVE              :: nid_tra     ! pointe vers le fichier histrac.nc         
 !$OMP THREADPRIVATE(nid_tra)
-  REAL,DIMENSION(klon)      :: zx_tmp_fi2d ! variable temporaire grille physique
-  INTEGER                   :: itau_w      ! pas de temps ecriture = nstep + itau_phy
-  LOGICAL,PARAMETER         :: ok_sync=.TRUE.
-
-!
-! Nature du traceur
-!------------------
-  LOGICAL,DIMENSION(:),ALLOCATABLE,SAVE :: aerosol  ! aerosol(it) = true  => aerosol => lessivage
+    REAL,DIMENSION(klon)      :: zx_tmp_fi2d ! variable temporaire grille physique
+    INTEGER                   :: itau_w      ! pas de temps ecriture = nstep + itau_phy
+    LOGICAL,PARAMETER         :: ok_sync=.TRUE.
+
+    !
+    ! Nature du traceur
+    !------------------
+    LOGICAL,DIMENSION(:),ALLOCATABLE,SAVE :: aerosol  ! aerosol(it) = true  => aerosol => lessivage
 !$OMP THREADPRIVATE(aerosol)                        ! aerosol(it) = false => gaz
-  REAL,DIMENSION(klon,klev)             :: delp     ! epaisseur de couche (Pa)
-!
-! Tendances de traceurs (Td) et flux de traceurs:
-!------------------------
-  REAL,DIMENSION(klon,klev)      :: d_tr     ! Td dans l'atmosphere
-  REAL,DIMENSION(klon,klev)      :: Mint
-  REAL,DIMENSION(klon,klev,nbtr) :: zmfd1a
-  REAL,DIMENSION(klon,klev,nbtr) :: zmfdam
-  REAL,DIMENSION(klon,klev,nbtr) :: zmfphi2
-! Physique
-!---------- 
-  REAL,DIMENSION(klon,klev,nbtr) :: flestottr ! flux de lessivage dans chaque couche 
-  REAL,DIMENSION(klon,klev)      :: zmasse    ! densité atmosphérique Kg/m2
-  REAL,DIMENSION(klon,klev)      :: ztra_th
-!PhH
-  REAL,DIMENSION(klon,klev)      :: zrho
-  REAL,DIMENSION(klon,klev)      :: zdz
-  REAL                           :: evaplsc,dx,beta ! variable pour lessivage Genthon
-  REAL,DIMENSION(klon)           :: his_dh          ! ---
-! in-cloud scav variables
-  REAL           :: ql_incloud_ref     ! ref value of in-cloud condensed water content
-  
-!Controles:
-!---------
-  INTEGER,SAVE :: iflag_vdf_trac,iflag_con_trac,iflag_the_trac
-  INTEGER,SAVE  :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
+    REAL,DIMENSION(klon,klev)             :: delp     ! epaisseur de couche (Pa)
+    !
+    ! Tendances de traceurs (Td) et flux de traceurs:
+    !------------------------
+    REAL,DIMENSION(klon,klev)      :: d_tr     ! Td dans l'atmosphere
+    REAL,DIMENSION(klon,klev)      :: Mint
+    REAL,DIMENSION(klon,klev,nbtr) :: zmfd1a
+    REAL,DIMENSION(klon,klev,nbtr) :: zmfdam
+    REAL,DIMENSION(klon,klev,nbtr) :: zmfphi2
+    ! Physique
+    !---------- 
+    REAL,DIMENSION(klon,klev,nbtr) :: flestottr ! flux de lessivage dans chaque couche 
+    REAL,DIMENSION(klon,klev)      :: zmasse    ! densité atmosphérique Kg/m2
+    REAL,DIMENSION(klon,klev)      :: ztra_th
+    !PhH
+    REAL,DIMENSION(klon,klev)      :: zrho
+    REAL,DIMENSION(klon,klev)      :: zdz
+    REAL                           :: evaplsc,dx,beta ! variable pour lessivage Genthon
+    REAL,DIMENSION(klon)           :: his_dh          ! ---
+    ! in-cloud scav variables
+    REAL           :: ql_incloud_ref     ! ref value of in-cloud condensed water content
+
+    !Controles:
+    !---------
+    INTEGER,SAVE :: iflag_vdf_trac,iflag_con_trac,iflag_the_trac
+    INTEGER,SAVE  :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
 !$OMP THREADPRIVATE(iflag_vdf_trac,iflag_con_trac,iflag_the_trac)
 
-  LOGICAL,SAVE :: lessivage
+    LOGICAL,SAVE :: lessivage
 !$OMP THREADPRIVATE(lessivage)
 
-  CHARACTER(len=8),DIMENSION(nbtr) :: solsym
-!RomP >>>
-  INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
-  LOGICAL,SAVE  :: convscav_omp,convscav
+    CHARACTER(len=8),DIMENSION(nbtr) :: solsym
+    !RomP >>>
+    INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
+    LOGICAL,SAVE  :: convscav_omp,convscav
 !$OMP THREADPRIVATE(iflag_lscav)
 !$OMP THREADPRIVATE(convscav)
-!RomP <<<
-!######################################################################
-!                    -- INITIALIZATION --
-!######################################################################
-IF (debutphy) THEN
-ALLOCATE(d_tr_cl(klon,klev,nbtr),d_tr_dry(klon,nbtr))
-ALLOCATE(flux_tr_dry(klon,nbtr),d_tr_dec(klon,klev,nbtr),d_tr_cv(klon,klev,nbtr))
-ALLOCATE(d_tr_insc(klon,klev,nbtr),d_tr_bcscav(klon,klev,nbtr))
-ALLOCATE(d_tr_evapls(klon,klev,nbtr),d_tr_ls(klon,klev,nbtr))
-ALLOCATE(qPrls(klon,nbtr),d_tr_trsp(klon,klev,nbtr))
-ALLOCATE(d_tr_sscav(klon,klev,nbtr),d_tr_sat(klon,klev,nbtr))
-ALLOCATE(d_tr_uscav(klon,klev,nbtr),qPr(klon,klev,nbtr),qDi(klon,klev,nbtr))
-ALLOCATE(qPa(klon,klev,nbtr),qMel(klon,klev,nbtr))
-ALLOCATE(qTrdi(klon,klev,nbtr),dtrcvMA(klon,klev,nbtr))
-ALLOCATE(d_tr_th(klon,klev,nbtr))
-ALLOCATE(d_tr_lessi_impa(klon,klev,nbtr),d_tr_lessi_nucl(klon,klev,nbtr))
-ENDIF
-
-  DO k=1,klev
-     DO i=1,klon
-      sourceBE(i,k)=0.
-      Mint(i,k)=0.
-      zrho(i,k)=0.
-      zdz(i,k)=0.
-     END DO
-  END DO
-
-  DO it=1, nbtr
-   DO k=1,klev
-    DO i=1,klon
-    d_tr_insc(i,k,it)=0.
-    d_tr_bcscav(i,k,it)=0.
-    d_tr_evapls(i,k,it)=0.
-    d_tr_ls(i,k,it)=0.
-    d_tr_cv(i,k,it)=0.
-    d_tr_cl(i,k,it)=0.
-    d_tr_trsp(i,k,it)=0.
-    d_tr_sscav(i,k,it)=0.
-    d_tr_sat(i,k,it)=0.
-    d_tr_uscav(i,k,it)=0.
-    d_tr_lessi_impa(i,k,it)=0.
-    d_tr_lessi_nucl(i,k,it)=0.
-    qDi(i,k,it)=0.
-    qPr(i,k,it)=0.
-    qPa(i,k,it)=0.
-    qMel(i,k,it)=0.
-    qTrdi(i,k,it)=0.
-    dtrcvMA(i,k,it)=0.
-    zmfd1a(i,k,it)=0.
-    zmfdam(i,k,it)=0.
-    zmfphi2(i,k,it)=0.
+    !RomP <<<
+    !######################################################################
+    !                    -- INITIALIZATION --
+    !######################################################################
+    IF (debutphy) THEN
+       ALLOCATE(d_tr_cl(klon,klev,nbtr),d_tr_dry(klon,nbtr))
+       ALLOCATE(flux_tr_dry(klon,nbtr),d_tr_dec(klon,klev,nbtr),d_tr_cv(klon,klev,nbtr))
+       ALLOCATE(d_tr_insc(klon,klev,nbtr),d_tr_bcscav(klon,klev,nbtr))
+       ALLOCATE(d_tr_evapls(klon,klev,nbtr),d_tr_ls(klon,klev,nbtr))
+       ALLOCATE(qPrls(klon,nbtr),d_tr_trsp(klon,klev,nbtr))
+       ALLOCATE(d_tr_sscav(klon,klev,nbtr),d_tr_sat(klon,klev,nbtr))
+       ALLOCATE(d_tr_uscav(klon,klev,nbtr),qPr(klon,klev,nbtr),qDi(klon,klev,nbtr))
+       ALLOCATE(qPa(klon,klev,nbtr),qMel(klon,klev,nbtr))
+       ALLOCATE(qTrdi(klon,klev,nbtr),dtrcvMA(klon,klev,nbtr))
+       ALLOCATE(d_tr_th(klon,klev,nbtr))
+       ALLOCATE(d_tr_lessi_impa(klon,klev,nbtr),d_tr_lessi_nucl(klon,klev,nbtr))
+    ENDIF
+
+    DO k=1,klev
+       DO i=1,klon
+          sourceBE(i,k)=0.
+          Mint(i,k)=0.
+          zrho(i,k)=0.
+          zdz(i,k)=0.
+       END DO
     END DO
-   END DO
-  END DO
-  IF (debutphy) THEN
-!!jyg
+
+    DO it=1, nbtr
+       DO k=1,klev
+          DO i=1,klon
+             d_tr_insc(i,k,it)=0.
+             d_tr_bcscav(i,k,it)=0.
+             d_tr_evapls(i,k,it)=0.
+             d_tr_ls(i,k,it)=0.
+             d_tr_cv(i,k,it)=0.
+             d_tr_cl(i,k,it)=0.
+             d_tr_trsp(i,k,it)=0.
+             d_tr_sscav(i,k,it)=0.
+             d_tr_sat(i,k,it)=0.
+             d_tr_uscav(i,k,it)=0.
+             d_tr_lessi_impa(i,k,it)=0.
+             d_tr_lessi_nucl(i,k,it)=0.
+             qDi(i,k,it)=0.
+             qPr(i,k,it)=0.
+             qPa(i,k,it)=0.
+             qMel(i,k,it)=0.
+             qTrdi(i,k,it)=0.
+             dtrcvMA(i,k,it)=0.
+             zmfd1a(i,k,it)=0.
+             zmfdam(i,k,it)=0.
+             zmfphi2(i,k,it)=0.
+          END DO
+       END DO
+    END DO
+
+    DO k = 1, klev
+       DO i = 1, klon
+          delp(i,k) = paprs(i,k)-paprs(i,k+1)
+       END DO
+    END DO
+
+    IF (debutphy) THEN
+       !!jyg
 !$OMP BARRIER
-   ecrit_tra=86400. ! frequence de stokage en dur
-                    ! obsolete car remplace par des ecritures dans phys_output_write
-!RomP >>>
-!
-!Config Key  = convscav
-!Config Desc = Convective scavenging switch: 0=off, 1=on.
-!Config Def  = .false.
-!Config Help = 
-!
+       ecrit_tra=86400. ! frequence de stokage en dur
+       ! obsolete car remplace par des ecritures dans phys_output_write
+       !RomP >>>
+       !
+       !Config Key  = convscav
+       !Config Desc = Convective scavenging switch: 0=off, 1=on.
+       !Config Def  = .false.
+       !Config Help = 
+       !
 !$OMP MASTER
-  convscav_omp=.false.
-  call getin('convscav', convscav_omp)
-  iflag_vdf_trac_omp=1
-  call getin('iflag_vdf_trac', iflag_vdf_trac_omp)
-  iflag_con_trac_omp=1
-  call getin('iflag_con_trac', iflag_con_trac_omp)
-  iflag_the_trac_omp=1
-  call getin('iflag_the_trac', iflag_the_trac_omp)
+       convscav_omp=.false.
+       call getin('convscav', convscav_omp)
+       iflag_vdf_trac_omp=1
+       call getin('iflag_vdf_trac', iflag_vdf_trac_omp)
+       iflag_con_trac_omp=1
+       call getin('iflag_con_trac', iflag_con_trac_omp)
+       iflag_the_trac_omp=1
+       call getin('iflag_the_trac', iflag_the_trac_omp)
 !$OMP END MASTER
 !$OMP BARRIER
-  convscav=convscav_omp
-  iflag_vdf_trac=iflag_vdf_trac_omp
-  iflag_con_trac=iflag_con_trac_omp
-  iflag_the_trac=iflag_the_trac_omp
-  print*,'phytrac passage dans routine conv avec lessivage', convscav
-!
-!Config Key  = iflag_lscav
-!Config Desc = Large scale scavenging parametrization: 0=none, 1=old(Genthon92),
-!              2=1+PHeinrich, 3=Reddy_Boucher2004, 4=3+RPilon.
-!Config Def  = 1
-!Config Help = 
-!
+       convscav=convscav_omp
+       iflag_vdf_trac=iflag_vdf_trac_omp
+       iflag_con_trac=iflag_con_trac_omp
+       iflag_the_trac=iflag_the_trac_omp
+       write(lunout,*) 'phytrac passage dans routine conv avec lessivage', convscav
+       !
+       !Config Key  = iflag_lscav
+       !Config Desc = Large scale scavenging parametrization: 0=none, 1=old(Genthon92),
+       !              2=1+PHeinrich, 3=Reddy_Boucher2004, 4=3+RPilon.
+       !Config Def  = 1
+       !Config Help = 
+       !
 !$OMP MASTER
-  iflag_lscav_omp=1
-  call getin('iflag_lscav', iflag_lscav_omp)
+       iflag_lscav_omp=1
+       call getin('iflag_lscav', iflag_lscav_omp)
 !$OMP END MASTER
 !$OMP BARRIER
-  iflag_lscav=iflag_lscav_omp
+       iflag_lscav=iflag_lscav_omp
+       !
+       SELECT CASE(iflag_lscav)
+       CASE(0)
+          WRITE(lunout,*)  'Large scale scavenging: none'
+       CASE(1)
+          WRITE(lunout,*)  'Large scale scavenging: C. Genthon, Tellus(1992), 44B, 371-389'
+       CASE(2)
+          WRITE(lunout,*)  'Large scale scavenging: C. Genthon, modified P. Heinrich'
+       CASE(3)
+          WRITE(lunout,*)  'Large scale scavenging: M. Shekkar Reddy and O. Boucher, JGR(2004), 109, D14202'
+       CASE(4)
+          WRITE(lunout,*)  'Large scale scavenging: Reddy and Boucher, modified R. Pilon'
+       END SELECT
+       !RomP <<<
+       WRITE(*,*) 'FIRST TIME IN PHYTRAC : pdtphys(sec) = ',pdtphys,'ecrit_tra (sec) = ',ecrit_tra
+       ALLOCATE( source(klon,nbtr), stat=ierr)
+       IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 1',1)
+
+       ALLOCATE( aerosol(nbtr), stat=ierr)
+       IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 2',1)
+
+
+       ! Initialize module for specific tracers
+       SELECT CASE(type_trac)
+       CASE('lmdz')
+          CALL traclmdz_init(pctsrf,xlat,xlon,ftsol,tr_seri,t_seri,pplay,sh,pdtphys,aerosol,lessivage)
+       CASE('inca')
+          source(:,:)=0.
+          CALL tracinca_init(aerosol,lessivage)
+       CASE('repr')
+          source(:,:)=0.
+       END SELECT
+
+       !
+       !--initialising coefficients for scavenging in the case of NP
+       !
+       ALLOCATE(flag_cvltr(nbtr))
+       IF (iflag_con.EQ.3) THEN
+          !
+          ALLOCATE(ccntrAA(nbtr))
+          ALLOCATE(ccntrENV(nbtr))
+          ALLOCATE(coefcoli(nbtr))
+          !
+          DO it=1, nbtr
+             SELECT CASE(type_trac)
+             CASE('lmdz')
+                IF (convscav.and.aerosol(it)) THEN
+                   flag_cvltr(it)=.true.
+                   ccntrAA(it) =1.0         !--a modifier par JYG a lire depuis fichier 
+                   ccntrENV(it)=1.0 
+                   coefcoli(it)=0.001
+                ELSE 
+                   flag_cvltr(it)=.false.
+                ENDIF
+
+             CASE('inca')
+!                IF ((it.EQ.id_Rn222) .OR. ((it.GE.id_SO2) .AND. (it.LE.id_NH3)) ) THEN 
+!                   !--gas-phase species
+!                   flag_cvltr(it)=.false.
 !
-  SELECT CASE(iflag_lscav)
-  CASE(0)
-   PRINT*, 'Large scale scavenging: none'
-  CASE(1)
-   PRINT*, 'Large scale scavenging: C. Genthon, Tellus(1992), 44B, 371-389'
-  CASE(2)
-   PRINT*, 'Large scale scavenging: C. Genthon, modified P. Heinrich'
-  CASE(3)
-   PRINT*, 'Large scale scavenging: M. Shekkar Reddy and O. Boucher, JGR(2004), 109, D14202'
-  CASE(4)
-   PRINT*, 'Large scale scavenging: Reddy and Boucher, modified R. Pilon'
-  END SELECT
-!RomP <<<
-     WRITE(*,*) 'FIRST TIME IN PHYTRAC : pdtphys(sec) = ',pdtphys,'ecrit_tra (sec) = ',ecrit_tra
-     ALLOCATE( source(klon,nbtr), stat=ierr)
-     IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 1',1)
-     
-     ALLOCATE( aerosol(nbtr), stat=ierr)
-     IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 2',1)
-     
-
-     ! Initialize module for specific tracers
-     SELECT CASE(type_trac)
-     CASE('lmdz')
-        CALL traclmdz_init(pctsrf, xlat, xlon, ftsol, tr_seri, t_seri, pplay, sh, pdtphys, aerosol, lessivage)
-     CASE('inca')
-        source(:,:)=0.
-        CALL tracinca_init(aerosol,lessivage)
-     CASE('repr')
-        source(:,:)=0.
-     END SELECT
-!
-! Initialize diagnostic output
-! ----------------------------
+!                ELSEIF ( (it.GE.id_CIDUSTM) .AND. (it.LE.id_AIN) ) THEN
+!                   !--insoluble aerosol species
+!                   flag_cvltr(it)=.true.
+!                   ccntrAA(it)=0.7
+!                   ccntrENV(it)=0.7
+!                   coefcoli(it)=0.001
+!                ELSEIF ( (it.EQ.id_Pb210) .OR. ((it.GE.id_CSSSM) .AND. (it.LE.id_SSN))) THEN
+!                   !--soluble aerosol species
+!                   flag_cvltr(it)=.true.
+!                   ccntrAA(it)=0.9
+!                   ccntrENV(it)=0.9 
+!                   coefcoli(it)=0.001
+!                ELSE 
+!                   WRITE(lunout,*) 'pb it=', it
+!                   CALL abort_gcm('phytrac','pb it scavenging',1)
+!                ENDIF
+                !--test OB 
+                !--for now we do not scavenge in cvltr
+                flag_cvltr(it)=.false.
+             END SELECT
+          ENDDO
+          !
+       ELSE ! iflag_con .ne. 3 
+          flag_cvltr(:) = .false. 
+       ENDIF
+       !
+       ! Initialize diagnostic output
+       ! ----------------------------
 #ifdef CPP_IOIPSL
-!     INCLUDE "ini_histrac.h"
+       !     INCLUDE "ini_histrac.h"
 #endif
-  END IF ! of IF (debutphy)
-!############################################ END INITIALIZATION #######
-
-  DO k=1,klev
-     DO i=1,klon
-        zmasse(i,k)=(paprs(i,k)-paprs(i,k+1))/rg
-     END DO
-  END DO
-!
-  IF (id_be .GT. 0) THEN
-  DO k=1,klev
-     DO i=1,klon
-        sourceBE(i,k)=srcbe(i,k)       !RomP  -> pour sortie histrac
-     END DO
-  END DO
-  ENDIF
-
-!===============================================================================
-!    -- Do specific treatment according to chemestry model or local LMDZ tracers
-!      
-!===============================================================================
-  SELECT CASE(type_trac)
-  CASE('lmdz')
-     !    -- Traitement des traceurs avec traclmdz
-     CALL traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
-          cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon,iflag_vdf_trac>=0,sh, &
-           rh, pphi, ustar, wstar, ale_bl, ale_wake,  u10m, v10m, &
-           tr_seri, source, solsym, d_tr_cl,d_tr_dec, zmasse)               !RomP
-
-  CASE('inca')
-     !    -- CHIMIE INCA  config_inca = aero or chem --
-
-     CALL tracinca(&
-          nstep,    julien,   gmtime,         lafin,     &
-          pdtphys,  t_seri,   paprs,          pplay,     &
-          pmfu,     ftsol,    pctsrf,         pphis,     &
-          pphi,     albsol,   sh,             rh,        &
-          cldfra,   rneb,     diafra,         cldliq,    &
-          itop_con, ibas_con, pmflxr,         pmflxs,    &
-          prfl,     psfl,     aerosol_couple, flxmass_w, &
-          tau_aero, piz_aero, cg_aero,        ccm,       &
-          rfname,                                        &
-          tr_seri,  source,   solsym)      
-
-  CASE('repr')
-     !   -- CHIMIE REPROBUS --
-
-     CALL tracreprobus(pdtphys, gmtime, debutphy, julien, &
-          presnivs, xlat, xlon, pphis, pphi, &
-          t_seri, pplay, paprs, sh , &
-          tr_seri, solsym)
-     
-  END SELECT
-!======================================================================
-!       -- Calcul de l'effet de la convection --
-!======================================================================
-
-  IF (iflag_con_trac==1) THEN
-     DO it=1, nbtr
-        IF ( conv_flg(it) == 0 ) CYCLE
-        IF (iflag_con.LT.2) THEN
-           d_tr_cv(:,:,it)=0.
-        ELSE IF (iflag_con.EQ.2) THEN
-!..Tiedke
-           CALL nflxtr(pdtphys, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
-                pplay, paprs, tr_seri(:,:,it), d_tr_cv(:,:,it))
-! RomP >>>                
-        ELSE   
-!..K.Emanuel                  !RomP modif arg
-        if (convscav.and.aerosol(it)) then    ! lessivage convectif pour aerosol
-!
-          CALL cvltr(pdtphys, da, phi,phi2,d1a,dam, mp,ep,              &
-!!               sigd,sij,clw,elij,epmlmMm,eplaMm,                        &   !RL
-               sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,              &     !RL
-               pmflxr,pmflxs,evap,t_seri,wdtrainA,wdtrainM,             &   
-               paprs,it,tr_seri,upwd,dnwd,itop_con,ibas_con,            &
-               d_tr_cv,d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav,qDi,qPr,&
-               qPa,qMel,qTrdi,dtrcvMA,Mint,                             &
-               zmfd1a,zmfphi2,zmfdam)
-        else  !pas de lessivage convectif ou n'est pas un aerosol
-!!           CALL cvltrorig(it,pdtphys, da, phi,mp,paprs,pplay,tr_seri,&      !jyg
-!!                    upwd,dnwd,d_tr_cv)                                      !jyg
-           CALL cvltr_noscav(it,pdtphys, da, phi,mp,wght_cvfd,paprs,pplay, &  !jyg
-                    tr_seri,upwd,dnwd,d_tr_cv)                                !jyg
-        endif
-        END IF
-! RomP <<<
-
-        DO k = 1, klev
-           DO i = 1, klon        
-              tr_seri(i,k,it) = tr_seri(i,k,it) + d_tr_cv(i,k,it)
-           END DO
-        END DO
-
-        CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'convection it = '//solsym(it))
-             
-     END DO ! nbtr
-  END IF ! convection
-
-!======================================================================
-!    -- Calcul de l'effet des thermiques --
-!======================================================================
-
-  DO it=1,nbtr
-     DO k=1,klev
-        DO i=1,klon
-           d_tr_th(i,k,it)=0.
-           tr_seri(i,k,it)=MAX(tr_seri(i,k,it),0.)
-           tr_seri(i,k,it)=MIN(tr_seri(i,k,it),1.e10)
-        END DO
-     END DO
-  END DO
-  
-  IF (iflag_thermals.GT.0.AND.iflag_the_trac>0) THEN   
-     nsplit=10
-     DO it=1, nbtr
-        DO isplit=1,nsplit
-
-           CALL dqthermcell(klon,klev,pdtphys/nsplit, &
-                fm_therm,entr_therm,zmasse, &
-                tr_seri(1:klon,1:klev,it),d_tr,ztra_th)
-
-           DO k=1,klev
-              DO i=1,klon
-                 d_tr(i,k)=pdtphys*d_tr(i,k)/nsplit
-                 d_tr_th(i,k,it)=d_tr_th(i,k,it)+d_tr(i,k)
-                 tr_seri(i,k,it)=MAX(tr_seri(i,k,it)+d_tr(i,k),0.)
-              END DO
-           END DO
-        END DO ! nsplit
-     END DO ! it
-  END IF ! Thermiques
-
-!======================================================================
-!     -- Calcul de l'effet de la couche limite --
-!======================================================================
-
-  DO k = 1, klev
-     DO i = 1, klon
-        delp(i,k) = paprs(i,k)-paprs(i,k+1)
-     END DO
-  END DO
-
-  IF (iflag_vdf_trac==1) THEN
-     DO it=1, nbtr
-        if (prt_level > 20) write(lunout,*)'trac pbl ',it,pbl_flg(it)
-        IF( pbl_flg(it) /= 0 ) THEN
-           CALL cltrac(pdtphys, coefh,t_seri,       &
-                tr_seri(:,:,it), source(:,it),      &
-                paprs, pplay, delp,                 &
-                d_tr_cl(:,:,it),d_tr_dry(:,it),flux_tr_dry(:,it))
-           tr_seri(:,:,it)=tr_seri(:,:,it)+d_tr_cl(:,:,it)
-        END IF
-     END DO
-  ELSE IF (iflag_vdf_trac==0) THEN
-!   Injection of source in the first model layer
+       !
+       ! print out all tracer flags 
+       !
+       WRITE(lunout,*) 'print out all tracer flags'
+       WRITE(lunout,*) 'type_trac      =', type_trac
+       WRITE(lunout,*) 'config_inca    =', config_inca
+       WRITE(lunout,*) 'iflag_con_trac =', iflag_con_trac
+       WRITE(lunout,*) 'iflag_con      =', iflag_con
+       WRITE(lunout,*) 'convscav       =', convscav
+       WRITE(lunout,*) 'iflag_lscav    =', iflag_lscav
+       WRITE(lunout,*) 'aerosol        =', aerosol
+       WRITE(lunout,*) 'iflag_the_trac =', iflag_the_trac
+       WRITE(lunout,*) 'iflag_thermals =', iflag_thermals
+       WRITE(lunout,*) 'iflag_vdf_trac =', iflag_vdf_trac
+       WRITE(lunout,*) 'pbl_flg        =', pbl_flg
+       WRITE(lunout,*) 'lessivage      =', lessivage
+       write(lunout,*)  'flag_cvltr    = ', flag_cvltr
+
+       IF (lessivage.AND.config_inca.EQ.'inca') THEN
+          CALL abort_gcm('phytrac', 'lessivage=T config_inca=inca impossible',1)
+          STOP
+       ENDIF
+       !
+    END IF ! of IF (debutphy)
+    !############################################ END INITIALIZATION #######
+
+    DO k=1,klev
+       DO i=1,klon
+          zmasse(i,k)=(paprs(i,k)-paprs(i,k+1))/rg
+       END DO
+    END DO
+    !
+    IF (id_be .GT. 0) THEN
+       DO k=1,klev
+          DO i=1,klon
+             sourceBE(i,k)=srcbe(i,k)       !RomP  -> pour sortie histrac
+          END DO
+       END DO
+    ENDIF
+
+    !===============================================================================
+    !    -- Do specific treatment according to chemestry model or local LMDZ tracers
+    !      
+    !===============================================================================
+    SELECT CASE(type_trac)
+    CASE('lmdz')
+       !    -- Traitement des traceurs avec traclmdz
+       CALL traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
+            cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon,iflag_vdf_trac>=0,sh, &
+            rh, pphi, ustar, wstar, ale_bl, ale_wake,  u10m, v10m, &
+            tr_seri, source, solsym, d_tr_cl,d_tr_dec, zmasse)               !RomP
+
+    CASE('inca')
+       !    -- CHIMIE INCA  config_inca = aero or chem --
+
+       CALL tracinca(&
+            nstep,    julien,   gmtime,         lafin,     &
+            pdtphys,  t_seri,   paprs,          pplay,     &
+            pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
+            pphi,     albsol,   sh,             rh,        &
+            cldfra,   rneb,     diafra,         cldliq,    &
+            itop_con, ibas_con, pmflxr,         pmflxs,    &
+            prfl,     psfl,     aerosol_couple, flxmass_w, &
+            tau_aero, piz_aero, cg_aero,        ccm,       &
+            rfname,                                        &
+            tr_seri,  source,   solsym)      
+
+    CASE('repr')
+       !   -- CHIMIE REPROBUS --
+
+       CALL tracreprobus(pdtphys, gmtime, debutphy, julien, &
+            presnivs, xlat, xlon, pphis, pphi, &
+            t_seri, pplay, paprs, sh , &
+            tr_seri, solsym)
+
+    END SELECT
+    !======================================================================
+    !       -- Calcul de l'effet de la convection --
+    !======================================================================
+
+    IF (iflag_con_trac==1) THEN
+
+       DO it=1, nbtr
+          IF ( conv_flg(it) == 0 ) CYCLE
+          IF (iflag_con.LT.2) THEN
+             !--pas de transport convectif
+
+             d_tr_cv(:,:,it)=0.
+          ELSE IF (iflag_con.EQ.2) THEN
+             !--ancien transport convectif de Tiedtke
+
+             CALL nflxtr(pdtphys, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
+                  pplay, paprs, tr_seri(:,:,it), d_tr_cv(:,:,it))
+          ELSE   
+             !--nouveau transport convectif de Emanuel
+
+             IF (flag_cvltr(it)) THEN
+                !--nouveau transport convectif de Emanuel avec lessivage convectif
+                !
+                !
+                ccntrAA_3d(:,:) =ccntrAA(it)
+                ccntrENV_3d(:,:)=ccntrENV(it)
+                coefcoli_3d(:,:)=coefcoli(it)
+
+                !--beware this interface is a bit weird because it is called for each tracer 
+                !--with the full array tr_seri even if only item it is processed
+
+                CALL cvltr_scav(pdtphys, da, phi,phi2,d1a,dam, mp,ep,         &
+                     sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,              &     
+                     pmflxr,pmflxs,evap,t_seri,wdtrainA,wdtrainM,             &   
+                     paprs,it,tr_seri,upwd,dnwd,itop_con,ibas_con,            &
+                     ccntrAA_3d,ccntrENV_3d,coefcoli_3d,                      &
+                     d_tr_cv,d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav,qDi,qPr,&
+                     qPa,qMel,qTrdi,dtrcvMA,Mint,                             &
+                     zmfd1a,zmfphi2,zmfdam)
+
+
+             ELSE  !---flag_cvltr(it).EQ.FALSE
+                !--nouveau transport convectif de Emanuel mais pas de lessivage convectif
+
+                !--beware this interface is a bit weird because it is called for each tracer 
+                !--with the full array tr_seri even if only item it is processed
+                !
+                CALL cvltr_noscav(it,pdtphys, da, phi,mp,wght_cvfd,paprs,pplay, &  !jyg
+                     tr_seri,upwd,dnwd,d_tr_cv)                                !jyg
+
+             ENDIF
+
+          ENDIF !--iflag
+
+          !--on ajoute les tendances
+
+          DO k = 1, klev
+             DO i = 1, klon        
+                tr_seri(i,k,it) = tr_seri(i,k,it) + d_tr_cv(i,k,it)
+             END DO
+          END DO
+
+          CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'convection it = '//solsym(it))
+
+       END DO ! nbtr
+
+    END IF ! convection
+
+    !======================================================================
+    !    -- Calcul de l'effet des thermiques --
+    !======================================================================
+
     DO it=1,nbtr
-       d_tr_cl(:,1,it)=source(:,it)*rg/delp(:,1)*pdtphys
-       tr_seri(:,1,it)=tr_seri(:,1,it)+d_tr_cl(:,1,it)
-    ENDDO
-    d_tr_cl(:,2:klev,1:nbtr)=0.
-  ELSE IF (iflag_vdf_trac==-1) THEN
-    d_tr_cl=0.
-  ELSE
-    CALL abort_gcm('iflag_vdf_trac', 'cas non prevu',1)
-  END IF ! couche limite
-
-
-
-!======================================================================
-!   Calcul de l'effet de la precipitation grande echelle
-!======================================================================
-  IF (lessivage) THEN
-
-   ql_incloud_ref = 10.e-4
-   ql_incloud_ref =  5.e-4
-
-
-! calcul du contenu en eau liquide au sein du nuage
-     ql_incl = ql_incloud_ref
-! choix du lessivage
-!
-  IF (iflag_lscav .EQ. 3 .OR. iflag_lscav .EQ. 4) THEN
-! ********  Olivier Boucher version (3) possibly with modified ql_incl (4)
-!
-   DO it = 1, nbtr
-!  incloud scavenging and removal by large scale rain ! orig : ql_incl was replaced by 0.5e-3 kg/kg
-! the value 0.5e-3 kg/kg is from Giorgi and Chameides (1986), JGR
-! Liu (2001) proposed to use 1.5e-3 kg/kg
-
-    CALL lsc_scav(pdtphys,it,iflag_lscav,ql_incl,prfl,psfl,rneb,beta_fisrt,  &
+       DO k=1,klev
+          DO i=1,klon
+             d_tr_th(i,k,it)=0.
+             tr_seri(i,k,it)=MAX(tr_seri(i,k,it),0.)
+             tr_seri(i,k,it)=MIN(tr_seri(i,k,it),1.e10)
+          END DO
+       END DO
+    END DO
+
+    IF (iflag_thermals.GT.0.AND.iflag_the_trac>0) THEN   
+
+       DO it=1, nbtr
+
+          CALL thermcell_dq(klon,klev,1,pdtphys,fm_therm,entr_therm, &
+               zmasse,tr_seri(1:klon,1:klev,it),        &
+               d_tr_th(1:klon,1:klev,it),ztra_th,0 )
+
+          DO k=1,klev
+             DO i=1,klon
+                d_tr_th(i,k,it)=pdtphys*d_tr_th(i,k,it)
+                tr_seri(i,k,it)=MAX(tr_seri(i,k,it)+d_tr_th(i,k,it),0.)
+             END DO
+          END DO
+
+       END DO ! it
+
+    END IF ! Thermiques
+
+    !======================================================================
+    !     -- Calcul de l'effet de la couche limite --
+    !======================================================================
+
+    IF (iflag_vdf_trac==1) THEN
+
+       !  Injection during BL mixing
+       !
+       DO it=1, nbtr
+          !
+          IF( pbl_flg(it) /= 0 ) THEN
+             !
+             CALL cltrac(pdtphys, coefh,t_seri,       &
+                  tr_seri(:,:,it), source(:,it),      &
+                  paprs, pplay, delp,                 &
+                  d_tr_cl(:,:,it),d_tr_dry(:,it),flux_tr_dry(:,it))
+             !
+             tr_seri(:,:,it)=tr_seri(:,:,it)+d_tr_cl(:,:,it)
+             !
+          END IF
+          !
+       END DO
+       !
+    ELSE IF (iflag_vdf_trac==0) THEN
+       !
+       !   Injection of source in the first model layer
+       !
+       DO it=1,nbtr
+          d_tr_cl(:,1,it)=source(:,it)*RG/delp(:,1)*pdtphys
+          tr_seri(:,1,it)=tr_seri(:,1,it)+d_tr_cl(:,1,it)
+       ENDDO
+       d_tr_cl(:,2:klev,1:nbtr)=0.
+       !
+    ELSE IF (iflag_vdf_trac==-1) THEN
+       !
+       ! Nothing happens
+       !
+       d_tr_cl=0.
+       !
+    ELSE
+       !
+       CALL abort_gcm('iflag_vdf_trac', 'cas non prevu',1)
+       !
+    END IF ! couche limite
+
+    !======================================================================
+    !   Calcul de l'effet de la precipitation grande echelle
+    !   POUR INCA le lessivage est fait directement dans INCA
+    !======================================================================
+
+    IF (lessivage) THEN
+
+       ql_incloud_ref = 10.e-4
+       ql_incloud_ref =  5.e-4
+
+
+       ! calcul du contenu en eau liquide au sein du nuage
+       ql_incl = ql_incloud_ref
+       ! choix du lessivage
+       !
+       IF (iflag_lscav .EQ. 3 .OR. iflag_lscav .EQ. 4) THEN
+          ! ********  Olivier Boucher version (3) possibly with modified ql_incl (4)
+          !
+          DO it = 1, nbtr
+             !  incloud scavenging and removal by large scale rain ! orig : ql_incl was replaced by 0.5e-3 kg/kg
+             ! the value 0.5e-3 kg/kg is from Giorgi and Chameides (1986), JGR
+             ! Liu (2001) proposed to use 1.5e-3 kg/kg
+
+             CALL lsc_scav(pdtphys,it,iflag_lscav,ql_incl,prfl,psfl,rneb,beta_fisrt,  &
                   beta_v1,pplay,paprs,t_seri,tr_seri,d_tr_insc,   &
                   d_tr_bcscav,d_tr_evapls,qPrls)
 
-!large scale scavenging tendency
-   DO k = 1, klev
-    DO i = 1, klon
-    d_tr_ls(i,k,it)=d_tr_insc(i,k,it)+d_tr_bcscav(i,k,it)+d_tr_evapls(i,k,it)
-    tr_seri(i,k,it)=tr_seri(i,k,it)+d_tr_ls(i,k,it)
-    ENDDO
-   ENDDO
-     CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'lsc scav it = '//solsym(it))
-   END DO  !tr
-
- ELSE IF (iflag_lscav .EQ. 2) THEN ! frac_impa, frac_nucl
-! *********   modified  old version
-
-     d_tr_lessi_nucl(:,:,:) = 0. 
-     d_tr_lessi_impa(:,:,:) = 0.
-     flestottr(:,:,:) = 0. 
-! Tendance des aerosols nuclees et impactes 
-     DO it = 1, nbtr
-        IF (aerosol(it)) THEN
-        his_dh(:)=0.
-           DO k = 1, klev
-              DO i = 1, klon
-!PhH
-              zrho(i,k)=pplay(i,k)/t_seri(i,k)/RD
-              zdz(i,k)=(paprs(i,k)-paprs(i,k+1))/zrho(i,k)/RG
-!
-              END DO
-           END DO
-
-          DO k=klev-1, 1, -1
-            DO i=1, klon
-!             d_tr_ls(i,k,it)=tr_seri(i,k,it)*(frac_impa(i,k)*frac_nucl(i,k)-1.)
-             dx=d_tr_ls(i,k,it)
-             his_dh(i)=his_dh(i)-dx*zrho(i,k)*zdz(i,k)/pdtphys !  kg/m2/s
-             evaplsc = prfl(i,k) - prfl(i,k+1) + psfl(i,k) - psfl(i,k+1)
-! Evaporation Partielle -> Liberation Partielle 0.5*evap
-            IF ( evaplsc .LT.0..and.abs(prfl(i,k+1)+psfl(i,k+1)).gt.1.e-10) THEN
-                evaplsc = (-evaplsc)/(prfl(i,k+1)+psfl(i,k+1))
-! evaplsc est donc positif, his_dh(i) est positif
-!--------------  
-             d_tr_evapls(i,k,it)=0.5*evaplsc*(d_tr_lessi_nucl(i,k+1,it) &
-                                  +d_tr_lessi_impa(i,k+1,it))
-!-------------   d_tr_evapls(i,k,it)=-0.5*evaplsc*(d_tr_lsc(i,k+1,it))
-             beta=0.5*evaplsc
-              if ((prfl(i,k)+psfl(i,k)).lt.1.e-10) THEN
-               beta=1.0*evaplsc
-              endif
-            dx=beta*his_dh(i)/zrho(i,k)/zdz(i,k)*pdtphys
-            his_dh(i)=(1.-beta)*his_dh(i)   ! tracer from
-            d_tr_evapls(i,k,it)=dx
-            ENDIF
-            d_tr_ls(i,k,it)=tr_seri(i,k,it)*(frac_impa(i,k)*frac_nucl(i,k)-1.) &
-                            +d_tr_evapls(i,k,it)
-
-!--------------
-                 d_tr_lessi_nucl(i,k,it) = d_tr_lessi_nucl(i,k,it) +    &
-                      ( 1 - frac_nucl(i,k) )*tr_seri(i,k,it)
-                 d_tr_lessi_impa(i,k,it) = d_tr_lessi_impa(i,k,it) +    &
-                      ( 1 - frac_impa(i,k) )*tr_seri(i,k,it)
-!
-! Flux lessivage total 
-                 flestottr(i,k,it) = flestottr(i,k,it) -   &
-                      ( d_tr_lessi_nucl(i,k,it)   +        &
-                      d_tr_lessi_impa(i,k,it) ) *          &
-                      ( paprs(i,k)-paprs(i,k+1) ) /        &
-                      (RG * pdtphys)
-!! Mise a jour des traceurs due a l'impaction,nucleation 
-!                 tr_seri(i,k,it)=tr_seri(i,k,it)*frac_impa(i,k)*frac_nucl(i,k)
-!!  calcul de la tendance liee au lessivage stratiforme
-!                 d_tr_ls(i,k,it)=tr_seri(i,k,it)*&
-!                                (1.-1./(frac_impa(i,k)*frac_nucl(i,k)))
-!--------------
-              END DO
-           END DO
-        END IF
-     END DO
-! *********   end modified old version
-
- ELSE IF (iflag_lscav .EQ. 1) THEN ! frac_impa, frac_nucl
-! *********    old version
-
-     d_tr_lessi_nucl(:,:,:) = 0. 
-     d_tr_lessi_impa(:,:,:) = 0.
-     flestottr(:,:,:) = 0. 
-!=========================
-! LESSIVAGE LARGE SCALE : 
-!=========================
-
-! Tendance des aerosols nuclees et impactes 
-! -----------------------------------------
-     DO it = 1, nbtr
-        IF (aerosol(it)) THEN
-           DO k = 1, klev
-              DO i = 1, klon
-                 d_tr_lessi_nucl(i,k,it) = d_tr_lessi_nucl(i,k,it) +    &
-                      ( 1 - frac_nucl(i,k) )*tr_seri(i,k,it)
-                 d_tr_lessi_impa(i,k,it) = d_tr_lessi_impa(i,k,it) +    &
-                      ( 1 - frac_impa(i,k) )*tr_seri(i,k,it)
-
-!
-! Flux lessivage total 
-! ------------------------------------------------------------
-                 flestottr(i,k,it) = flestottr(i,k,it) -   &
-                      ( d_tr_lessi_nucl(i,k,it)   +        &
-                      d_tr_lessi_impa(i,k,it) ) *          &
-                      ( paprs(i,k)-paprs(i,k+1) ) /        &
-                      (RG * pdtphys)
-!
-! Mise a jour des traceurs due a l'impaction,nucleation 
-! ----------------------------------------------------------------------
-                 tr_seri(i,k,it)=tr_seri(i,k,it)*frac_impa(i,k)*frac_nucl(i,k)
-              END DO
-           END DO
-        END IF
-     END DO
-     
-! *********   end old version
-  ENDIF  !  iflag_lscav . EQ. 1, 2, 3 or 4
-!
-  END IF !  lessivage
-
-!=============================================================
-!   Ecriture des sorties
-!=============================================================
+             !large scale scavenging tendency
+             DO k = 1, klev
+                DO i = 1, klon
+                   d_tr_ls(i,k,it)=d_tr_insc(i,k,it)+d_tr_bcscav(i,k,it)+d_tr_evapls(i,k,it)
+                   tr_seri(i,k,it)=tr_seri(i,k,it)+d_tr_ls(i,k,it)
+                ENDDO
+             ENDDO
+             CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'lsc scav it = '//solsym(it))
+          END DO  !tr
+
+       ELSE IF (iflag_lscav .EQ. 2) THEN ! frac_impa, frac_nucl
+          ! *********   modified  old version
+
+          d_tr_lessi_nucl(:,:,:) = 0. 
+          d_tr_lessi_impa(:,:,:) = 0.
+          flestottr(:,:,:) = 0. 
+          ! Tendance des aerosols nuclees et impactes 
+          DO it = 1, nbtr
+             IF (aerosol(it)) THEN
+                his_dh(:)=0.
+                DO k = 1, klev
+                   DO i = 1, klon
+                      !PhH
+                      zrho(i,k)=pplay(i,k)/t_seri(i,k)/RD
+                      zdz(i,k)=(paprs(i,k)-paprs(i,k+1))/zrho(i,k)/RG
+                      !
+                   END DO
+                END DO
+
+                DO k=klev-1, 1, -1
+                   DO i=1, klon
+                      !             d_tr_ls(i,k,it)=tr_seri(i,k,it)*(frac_impa(i,k)*frac_nucl(i,k)-1.)
+                      dx=d_tr_ls(i,k,it)
+                      his_dh(i)=his_dh(i)-dx*zrho(i,k)*zdz(i,k)/pdtphys !  kg/m2/s
+                      evaplsc = prfl(i,k) - prfl(i,k+1) + psfl(i,k) - psfl(i,k+1)
+                      ! Evaporation Partielle -> Liberation Partielle 0.5*evap
+                      IF ( evaplsc .LT.0..and.abs(prfl(i,k+1)+psfl(i,k+1)).gt.1.e-10) THEN
+                         evaplsc = (-evaplsc)/(prfl(i,k+1)+psfl(i,k+1))
+                         ! evaplsc est donc positif, his_dh(i) est positif
+                         !--------------  
+                         d_tr_evapls(i,k,it)=0.5*evaplsc*(d_tr_lessi_nucl(i,k+1,it) &
+                              +d_tr_lessi_impa(i,k+1,it))
+                         !-------------   d_tr_evapls(i,k,it)=-0.5*evaplsc*(d_tr_lsc(i,k+1,it))
+                         beta=0.5*evaplsc
+                         if ((prfl(i,k)+psfl(i,k)).lt.1.e-10) THEN
+                            beta=1.0*evaplsc
+                         endif
+                         dx=beta*his_dh(i)/zrho(i,k)/zdz(i,k)*pdtphys
+                         his_dh(i)=(1.-beta)*his_dh(i)   ! tracer from
+                         d_tr_evapls(i,k,it)=dx
+                      ENDIF
+                      d_tr_ls(i,k,it)=tr_seri(i,k,it)*(frac_impa(i,k)*frac_nucl(i,k)-1.) &
+                           +d_tr_evapls(i,k,it)
+
+                      !--------------
+                      d_tr_lessi_nucl(i,k,it) = d_tr_lessi_nucl(i,k,it) +    &
+                           ( 1 - frac_nucl(i,k) )*tr_seri(i,k,it)
+                      d_tr_lessi_impa(i,k,it) = d_tr_lessi_impa(i,k,it) +    &
+                           ( 1 - frac_impa(i,k) )*tr_seri(i,k,it)
+                      !
+                      ! Flux lessivage total 
+                      flestottr(i,k,it) = flestottr(i,k,it) -   &
+                           ( d_tr_lessi_nucl(i,k,it)   +        &
+                           d_tr_lessi_impa(i,k,it) ) *          &
+                           ( paprs(i,k)-paprs(i,k+1) ) /        &
+                           (RG * pdtphys)
+                      !! Mise a jour des traceurs due a l'impaction,nucleation 
+                      !                 tr_seri(i,k,it)=tr_seri(i,k,it)*frac_impa(i,k)*frac_nucl(i,k)
+                      !!  calcul de la tendance liee au lessivage stratiforme
+                      !                 d_tr_ls(i,k,it)=tr_seri(i,k,it)*&
+                      !                                (1.-1./(frac_impa(i,k)*frac_nucl(i,k)))
+                      !--------------
+                   END DO
+                END DO
+             END IF
+          END DO
+          ! *********   end modified old version
+
+       ELSE IF (iflag_lscav .EQ. 1) THEN ! frac_impa, frac_nucl
+          ! *********    old version
+
+          d_tr_lessi_nucl(:,:,:) = 0. 
+          d_tr_lessi_impa(:,:,:) = 0.
+          flestottr(:,:,:) = 0. 
+          !=========================
+          ! LESSIVAGE LARGE SCALE : 
+          !=========================
+
+          ! Tendance des aerosols nuclees et impactes 
+          ! -----------------------------------------
+          DO it = 1, nbtr
+             IF (aerosol(it)) THEN
+                DO k = 1, klev
+                   DO i = 1, klon
+                      d_tr_lessi_nucl(i,k,it) = d_tr_lessi_nucl(i,k,it) +    &
+                           ( 1 - frac_nucl(i,k) )*tr_seri(i,k,it)
+                      d_tr_lessi_impa(i,k,it) = d_tr_lessi_impa(i,k,it) +    &
+                           ( 1 - frac_impa(i,k) )*tr_seri(i,k,it)
+
+                      !
+                      ! Flux lessivage total 
+                      ! ------------------------------------------------------------
+                      flestottr(i,k,it) = flestottr(i,k,it) -   &
+                           ( d_tr_lessi_nucl(i,k,it)   +        &
+                           d_tr_lessi_impa(i,k,it) ) *          &
+                           ( paprs(i,k)-paprs(i,k+1) ) /        &
+                           (RG * pdtphys)
+                      !
+                      ! Mise a jour des traceurs due a l'impaction,nucleation 
+                      ! ----------------------------------------------------------------------
+                      tr_seri(i,k,it)=tr_seri(i,k,it)*frac_impa(i,k)*frac_nucl(i,k)
+                   END DO
+                END DO
+             END IF
+          END DO
+
+          ! *********   end old version
+       ENDIF  !  iflag_lscav . EQ. 1, 2, 3 or 4
+       !
+    END IF !  lessivage
+
+    !=============================================================
+    !   Ecriture des sorties
+    !=============================================================
 #ifdef CPP_IOIPSL
-! INCLUDE "write_histrac.h"
+    ! INCLUDE "write_histrac.h"
 #endif
 
-END SUBROUTINE phytrac
+  END SUBROUTINE phytrac
 
 END MODULE
Index: LMDZ5/branches/testing/libf/phylmd/radlwsw_aero.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/radlwsw_aero.F90	(revision 2116)
+++ 	(revision )
@@ -1,875 +1,0 @@
-!
-! $Id$
-!
-SUBROUTINE radlwsw_aero( &
-   dist, rmu0, fract, &
-   paprs, pplay,tsol,alb1, alb2,&
-   t,q,wo,&
-   cldfra, cldemi, cldtaupd,&
-   ok_ade, ok_aie,&
-   tau_aero, piz_aero, cg_aero,&
-   cldtaupi, new_aod, &
-   heat,heat0,cool,cool0,radsol,albpla,&
-   topsw,toplw,solsw,sollw,&
-   sollwdown,&
-   topsw0,toplw0,solsw0,sollw0,&
-   lwdn0, lwdn, lwup0, lwup,&
-   swdn0, swdn, swup0, swup,&
-   topswad_aero, solswad_aero,&
-   topswai_aero, solswai_aero, &
-   topswad0_aero, solswad0_aero,&
-   topsw_aero, topsw0_aero,&
-   solsw_aero, solsw0_aero,qsat,flwc,fiwc)
-
-
-
-  USE DIMPHY
-  USE comgeomphy
-  USE write_field_phy
-!    modules necessaires au rayonnement 
-!    -----------------------------------------
-! USE YOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
-! USE YOERAD   , ONLY : NSW      ,LRRTM    ,LINHOM   , LCCNL,LCCNO,
-! USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO ,&
-! NSW mis dans .def MPL 20140211
-#ifdef CPP_RRTM
-!  USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO ,&
-!      NRADIP   , NRADLP , NICEOPT, NLIQOPT ,RCCNLND  , RCCNSEA
-!  USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
-!  USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD,&   
-!      RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC,&   
-!      REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ,&  
-!      REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0,&  
-!      RFLAA1   ,RFLBB0   ,RFLBB1   ,RFLBB2   ,RFLBB3,&  
-!      RFLCC0   ,RFLCC1   ,RFLCC2   ,RFLCC3   ,RFLDD0,&  
-!      RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUETA   ,RASWCA,& 
-!      RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF
-!&    RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF, RLINLI
-!  USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
-!  USE YOETHF   , ONLY : RTICE
-!  USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK      
-  USE YOMPHY3  , ONLY : RII0
-#endif
-      
-  IMPLICIT NONE
-
-  !======================================================================
-  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719
-  ! Objet: interface entre le modele et les rayonnements
-  ! Arguments:
-  ! dist-----input-R- distance astronomique terre-soleil
-  ! rmu0-----input-R- cosinus de l'angle zenithal
-  ! fract----input-R- duree d'ensoleillement normalisee
-  ! co2_ppm--input-R- concentration du gaz carbonique (en ppm)
-  ! solaire--input-R- constante solaire (W/m**2)
-  ! paprs----input-R- pression a inter-couche (Pa)
-  ! pplay----input-R- pression au milieu de couche (Pa)
-  ! tsol-----input-R- temperature du sol (en K)
-  ! alb1-----input-R- albedo du sol(entre 0 et 1) dans l'interval visible
-  ! alb2-----input-R- albedo du sol(entre 0 et 1) dans l'interval proche infra-rouge
-  ! t--------input-R- temperature (K)
-  ! q--------input-R- vapeur d'eau (en kg/kg)
-  ! wo-------input-R- contenu en ozone (en kg/kg) correction MPL 100505
-  ! cldfra---input-R- fraction nuageuse (entre 0 et 1)
-  ! cldtaupd---input-R- epaisseur optique des nuages dans le visible (present-day value)
-  ! cldemi---input-R- emissivite des nuages dans l'IR (entre 0 et 1)
-  ! ok_ade---input-L- apply the Aerosol Direct Effect or not?
-  ! ok_aie---input-L- apply the Aerosol Indirect Effect or not?
-  ! tau_ae, piz_ae, cg_ae-input-R- aerosol optical properties (calculated in aeropt.F)
-  ! cldtaupi-input-R- epaisseur optique des nuages dans le visible
-  !                   calculated for pre-industrial (pi) aerosol concentrations, i.e. with smaller
-  !                   droplet concentration, thus larger droplets, thus generally cdltaupi cldtaupd
-  !                   it is needed for the diagnostics of the aerosol indirect radiative forcing      
-  !
-  ! heat-----output-R- echauffement atmospherique (visible) (K/jour)
-  ! cool-----output-R- refroidissement dans l'IR (K/jour)
-  ! radsol---output-R- bilan radiatif net au sol (W/m**2) (+ vers le bas)
-  ! albpla---output-R- albedo planetaire (entre 0 et 1)
-  ! topsw----output-R- flux solaire net au sommet de l'atm.
-  ! toplw----output-R- ray. IR montant au sommet de l'atmosphere
-  ! solsw----output-R- flux solaire net a la surface
-  ! sollw----output-R- ray. IR montant a la surface
-  ! solswad---output-R- ray. solaire net absorbe a la surface (aerosol dir)
-  ! topswad---output-R- ray. solaire absorbe au sommet de l'atm. (aerosol dir)
-  ! solswai---output-R- ray. solaire net absorbe a la surface (aerosol ind)
-  ! topswai---output-R- ray. solaire absorbe au sommet de l'atm. (aerosol ind)
-  !
-  ! ATTENTION: swai and swad have to be interpreted in the following manner:
-  ! ---------
-  ! ok_ade=F & ok_aie=F -both are zero
-  ! ok_ade=T & ok_aie=F -aerosol direct forcing is F_{AD} = topsw-topswad
-  !                        indirect is zero
-  ! ok_ade=F & ok_aie=T -aerosol indirect forcing is F_{AI} = topsw-topswai
-  !                        direct is zero
-  ! ok_ade=T & ok_aie=T -aerosol indirect forcing is F_{AI} = topsw-topswai
-  !                        aerosol direct forcing is F_{AD} = topswai-topswad
-  !
-  
-  !======================================================================
-  
-  ! ====================================================================
-  ! Adapte au modele de chimie INCA par Celine Deandreis & Anne Cozic -- 2009
-  ! 1 = ZERO    
-  ! 2 = AER total    
-  ! 3 = NAT    
-  ! 4 = BC    
-  ! 5 = SO4    
-  ! 6 = POM    
-  ! 7 = DUST    
-  ! 8 = SS    
-  ! 9 = NO3    
-  ! 
-  ! ====================================================================
-  include "YOETHF.h"
-  include "YOMCST.h"
-  include "clesphys.h" 
-
-! Input arguments
-! REAL,    INTENT(in)  :: solaire
-  REAL,    INTENT(in)  :: dist
-  REAL,    INTENT(in)  :: rmu0(KLON), fract(KLON)
-  REAL,    INTENT(in)  :: paprs(KLON,KLEV+1), pplay(KLON,KLEV)
-  REAL,    INTENT(in)  :: alb1(KLON), alb2(KLON),tsol(KLON)
-  REAL,    INTENT(in)  :: t(KLON,KLEV), q(KLON,KLEV), wo(KLON,KLEV)
-  LOGICAL, INTENT(in)  :: ok_ade, ok_aie                                 ! switches whether to use aerosol direct (indirect) effects or not
-  REAL,    INTENT(in)  :: cldfra(KLON,KLEV), cldemi(KLON,KLEV), cldtaupd(KLON,KLEV)
-  REAL,    INTENT(in)  :: tau_aero(KLON,KLEV,9,2)                        ! aerosol optical properties (see aeropt.F)
-  REAL,    INTENT(in)  :: piz_aero(KLON,KLEV,9,2)                        ! aerosol optical properties (see aeropt.F)
-  REAL,    INTENT(in)  :: cg_aero(KLON,KLEV,9,2)                         ! aerosol optical properties (see aeropt.F)
-  REAL,    INTENT(in)  :: cldtaupi(KLON,KLEV)                            ! cloud optical thickness for pre-industrial aerosol concentrations
-!MPL input supplementaires pour RECMWFL
-! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg)
-  REAL*8  GEMU(klon)
-  REAL*8  qsat(klon,klev),flwc(klon,klev),fiwc(klon,klev)
-!MPL input RECMWFL: 
-!Tableaux aux niveaux inverses pour respecter convention Arpege
-  REAL*8  paprs_i(klon,klev+1)
-  REAL*8  pplay_i(klon,klev)
-  REAL*8  cldfra_i(klon,klev)
-  REAL*8  POZON_i(kdlon,kflev)
-!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6      
-  REAL*8  PAER_i(kdlon,kflev,6)
-  REAL*8  PDP_i(klon,klev)
-  REAL*8  t_i(klon,klev),q_i(klon,klev),qsat_i(klon,klev)
-  REAL*8  flwc_i(klon,klev),fiwc_i(klon,klev)
-! new_aod: flag pour retrouver les resultats exacts de l'AR4 dans le cas ou l'on ne travaille qu'avec les sulfates
-  LOGICAL, INTENT(in)  :: new_aod 
-  LOGICAL lldebug
-
-! Output arguments
-  REAL,    INTENT(out) :: heat(KLON,KLEV), cool(KLON,KLEV)
-  REAL,    INTENT(out) :: heat0(KLON,KLEV), cool0(KLON,KLEV)
-  REAL,    INTENT(out) :: radsol(KLON), topsw(KLON), toplw(KLON)
-  REAL,    INTENT(out) :: solsw(KLON), sollw(KLON), albpla(KLON)
-  REAL,    INTENT(out) :: topsw0(KLON), toplw0(KLON), solsw0(KLON), sollw0(KLON)
-  REAL,    INTENT(out) :: sollwdown(KLON)
-  REAL,    INTENT(out) :: swdn(KLON,kflev+1),swdn0(KLON,kflev+1)
-  REAL,    INTENT(out) :: swup(KLON,kflev+1),swup0(KLON,kflev+1)
-  REAL,    INTENT(out) :: lwdn(KLON,kflev+1),lwdn0(KLON,kflev+1)
-  REAL,    INTENT(out) :: lwup(KLON,kflev+1),lwup0(KLON,kflev+1)
-  REAL,    INTENT(out) :: topswad_aero(KLON), solswad_aero(KLON)         ! output: aerosol direct forcing at TOA and surface
-  REAL,    INTENT(out) :: topswai_aero(KLON), solswai_aero(KLON)         ! output: aerosol indirect forcing atTOA and surface
-  REAL, DIMENSION(klon), INTENT(out)    :: topswad0_aero 
-  REAL, DIMENSION(klon), INTENT(out)    :: solswad0_aero
-  REAL, DIMENSION(kdlon,9), INTENT(out) :: topsw_aero
-  REAL, DIMENSION(kdlon,9), INTENT(out) :: topsw0_aero
-  REAL, DIMENSION(kdlon,9), INTENT(out) :: solsw_aero
-  REAL, DIMENSION(kdlon,9), INTENT(out) :: solsw0_aero
-! --------- output RECMWFL
-!  ZEMTD (KPROMA,KLEV+1)         ; TOTAL DOWNWARD LONGWAVE EMISSIVITY
-!  ZEMTU (KPROMA,KLEV+1)         ; TOTAL UPWARD   LONGWAVE EMISSIVITY
-!  ZTRSO (KPROMA,KLEV+1)         ; TOTAL SHORTWAVE TRANSMISSIVITY
-!  ZTH   (KPROMA,KLEV+1)         ; HALF LEVEL TEMPERATURE
-!  ZCTRSO(KPROMA,2)              ; CLEAR-SKY SHORTWAVE TRANSMISSIVITY
-!  ZCEMTR(KPROMA,2)              ; CLEAR-SKY NET LONGWAVE EMISSIVITY
-!  ZTRSOD(KPROMA)                ; TOTAL-SKY SURFACE SW TRANSMISSITY
-!  ZLWFC (KPROMA,2)              ; CLEAR-SKY LONGWAVE FLUXES
-!  ZLWFT (KPROMA,KLEV+1)         ; TOTAL-SKY LONGWAVE FLUXES
-!  ZLWFT0(KPROMA,KLEV+1)         ; CLEAR-SKY LONGWAVE FLUXES      ! added by MPL 090109
-!  ZSWFC (KPROMA,2)              ; CLEAR-SKY SHORTWAVE FLUXES
-!  ZSWFT (KPROMA,KLEV+1)         ; TOTAL-SKY SHORTWAVE FLUXES
-!  ZSWFT0(KPROMA,KLEV+1)         ; CLEAR-SKY SHORTWAVE FLUXES     ! added by MPL 090109
-!  ZFLUX (KLON,2,KLEV+1)         ; TOTAL LW FLUXES  1=up, 2=DWN   ! added by MPL 080411
-!  ZFLUC (KLON,2,KLEV+1)         ; CLEAR SKY LW FLUXES            ! added by MPL 080411
-!  ZFSDWN(klon,KLEV+1)           ; TOTAL SW  DWN FLUXES           ! added by MPL 080411
-!  ZFCDWN(klon,KLEV+1)           ; CLEAR SKY SW  DWN FLUXES       ! added by MPL 080411
-!  ZFSUP (klon,KLEV+1)           ; TOTAL SW  UP  FLUXES           ! added by MPL 080411
-!  ZFCUP (klon,KLEV+1)           ; CLEAR SKY SW  UP  FLUXES       ! added by MPL 080411
-!MPL output RECMWFL:
-  REAL*8  ZEMTD (klon,klev+1),ZEMTD_i (klon,klev+1)       
-  REAL*8  ZEMTU (klon,klev+1),ZEMTU_i (klon,klev+1)      
-  REAL*8  ZTRSO (klon,klev+1),ZTRSO_i (klon,klev+1)    
-  REAL*8  ZTH   (klon,klev+1),ZTH_i   (klon,klev+1)   
-  REAL*8  ZCTRSO(klon,2)       
-  REAL*8  ZCEMTR(klon,2)     
-  REAL*8  ZTRSOD(klon)        
-  REAL*8  ZLWFC (klon,2)      
-  REAL*8  ZLWFT (klon,klev+1),ZLWFT_i (klon,klev+1)    
-  REAL*8  ZSWFC (klon,2)      
-  REAL*8  ZSWFT (klon,klev+1),ZSWFT_i (klon,klev+1)
-  REAL*8  ZSWFT0(klon,klev+1),ZLWFT0 (klon,klev+1)
-  REAL*8  PPIZA_DST(klon,klev,NSW)
-  REAL*8  PCGA_DST(klon,klev,NSW)
-  REAL*8  PTAUREL_DST(klon,klev,NSW)
-  REAL*8  PSFSWDIR(klon,NSW)
-  REAL*8  PSFSWDIF(klon,NSW)
-  REAL*8  PFSDNN(klon)
-  REAL*8  PFSDNV(klon)
-!MPL On ne redefinit pas les tableaux ZFLUX,ZFLUC,
-!MPL ZFSDWN,ZFCDWN,ZFSUP,ZFCUP car ils existent deja
-!MPL sous les noms de ZFLDN,ZFLDN0,ZFLUP,ZFLUP0,
-!MPL ZFSDN,ZFSDN0,ZFSUP,ZFSUP0
-  REAL*8  ZFLUX_i (klon,2,klev+1)
-  REAL*8  ZFLUC_i (klon,2,klev+1)
-  REAL*8  ZFSDWN_i (klon,klev+1)
-  REAL*8  ZFCDWN_i (klon,klev+1)
-  REAL*8  ZFSUP_i (klon,klev+1)
-  REAL*8  ZFCUP_i (klon,klev+1)
-
-! Local variables
-  REAL*8 ZFSUP(KDLON,KFLEV+1)
-  REAL*8 ZFSDN(KDLON,KFLEV+1)
-  REAL*8 ZFSUP0(KDLON,KFLEV+1)
-  REAL*8 ZFSDN0(KDLON,KFLEV+1)
-  REAL*8 ZFLUP(KDLON,KFLEV+1)
-  REAL*8 ZFLDN(KDLON,KFLEV+1)
-  REAL*8 ZFLUP0(KDLON,KFLEV+1)
-  REAL*8 ZFLDN0(KDLON,KFLEV+1)
-  REAL*8 zx_alpha1, zx_alpha2
-  INTEGER k, kk, i, j, iof, nb_gr
-  INTEGER ist,iend,ktdia,kmode
-  INTEGER , SAVE :: iprint=0
-  REAL*8 PSCT
-  REAL*8 PALBD(kdlon,2), PALBP(kdlon,2)
-  REAL*8 PALBD_NEW(kdlon,NSW), PALBP_NEW(kdlon,NSW)
-  REAL*8 PEMIS(kdlon), PDT0(kdlon), PVIEW(kdlon)
-  REAL*8 PPSOL(kdlon), PDP(kdlon,KLEV)
-  REAL*8 PTL(kdlon,kflev+1), PPMB(kdlon,kflev+1)
-  REAL*8 PTAVE(kdlon,kflev)
-  REAL*8 PWV(kdlon,kflev), PQS(kdlon,kflev), POZON(kdlon,kflev)
-!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6 
-  REAL*8 PAER(kdlon,kflev,6)
-  REAL*8 PCLDLD(kdlon,kflev)
-  REAL*8 PCLDLU(kdlon,kflev)
-  REAL*8 PCLDSW(kdlon,kflev)
-  REAL*8 PTAU(kdlon,2,kflev)
-  REAL*8 POMEGA(kdlon,2,kflev)
-  REAL*8 PCG(kdlon,2,kflev)
-  REAL*8 zfract(kdlon), zrmu0(kdlon), zdist
-  REAL*8 zheat(kdlon,kflev), zcool(kdlon,kflev)
-  REAL*8 zheat0(kdlon,kflev), zcool0(kdlon,kflev)
-  REAL*8 ztopsw(kdlon), ztoplw(kdlon)
-  REAL*8 zsolsw(kdlon), zsollw(kdlon), zalbpla(kdlon)
-  REAL*8 zsollwdown(kdlon)
-  REAL*8 ztopsw0(kdlon), ztoplw0(kdlon)
-  REAL*8 zsolsw0(kdlon), zsollw0(kdlon)
-  REAL*8 zznormcp
-  REAL*8 tauaero(kdlon,kflev,9,2)                     ! aer opt properties
-  REAL*8 pizaero(kdlon,kflev,9,2)
-  REAL*8 cgaero(kdlon,kflev,9,2)
-  REAL*8 PTAUA(kdlon,2,kflev)                         ! present-day value of cloud opt thickness (PTAU is pre-industrial value), local use
-  REAL*8 POMEGAA(kdlon,2,kflev)                       ! dito for single scatt albedo
-  REAL*8 ztopswadaero(kdlon), zsolswadaero(kdlon)     ! Aerosol direct forcing at TOAand surface
-  REAL*8 ztopswad0aero(kdlon), zsolswad0aero(kdlon)   ! Aerosol direct forcing at TOAand surface
-  REAL*8 ztopswaiaero(kdlon), zsolswaiaero(kdlon)     ! dito, indirect
-  REAL*8 ztopsw_aero(kdlon,9), ztopsw0_aero(kdlon,9)
-  REAL*8 zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
-
-  CHARACTER (LEN=20) :: modname
-  CHARACTER (LEN=80) :: abort_message
-
-  ! initialisation
-  ist=1
-  iend=klon
-  ktdia=1
-  kmode=ist  
-  lldebug=.FALSE.
-  ! initialisation
-  tauaero(:,:,:,:)=0.
-  pizaero(:,:,:,:)=0.
-  cgaero(:,:,:,:)=0.
-  
-  !
-  !-------------------------------------------
-  nb_gr = KLON / kdlon
-  IF (nb_gr*kdlon .NE. KLON) THEN
-      PRINT*, "kdlon mauvais:", KLON, kdlon, nb_gr
-      CALL abort
-  ENDIF
-  IF (kflev .NE. KLEV) THEN
-      PRINT*, "kflev differe de KLEV, kflev, KLEV"
-      CALL abort
-  ENDIF
-  !-------------------------------------------
-!     print *,'Entree de radlwsw, iflag_rrtm tsol=',iflag_rrtm,tsol
-  IF (iprint>10) THEN
-  DO k = 1, KLEV
-    DO i = 1, KLON
-!        print *,'En entree de radlwsw: k tsol temp',k,tsol,t(1,k)
-      heat(i,k)=0.
-      cool(i,k)=0.
-      heat0(i,k)=0.
-      cool0(i,k)=0.
-    ENDDO
-  ENDDO
-  ENDIF
-  !
-  zdist = dist
-  !
-  PSCT = solaire/zdist/zdist
-  DO j = 1, nb_gr
-    iof = kdlon*(j-1)
-    DO i = 1, kdlon
-      zfract(i) = fract(iof+i)
-      zrmu0(i) = rmu0(iof+i)
-      PALBD(i,1) = alb1(iof+i)
-!     PALBD(i,2) = alb1(iof+i)
-      PALBD(i,2) = alb2(iof+i)
-!
-      PALBD_NEW(i,1) = alb1(iof+i)
-      DO kk=2,NSW
-        PALBD_NEW(i,kk) = alb2(iof+i)
-      ENDDO
-!     PALBD_NEW(i,2) = alb2(iof+i)
-!     PALBD_NEW(i,3) = alb2(iof+i)
-!     PALBD_NEW(i,4) = alb2(iof+i)
-!     PALBD_NEW(i,5) = alb2(iof+i)
-!     PALBD_NEW(i,6) = alb2(iof+i)
-!
-      PALBP(i,1) = alb1(iof+i)
-!     PALBP(i,2) = alb1(iof+i)
-      PALBP(i,2) = alb2(iof+i)
-!
-      PALBP_NEW(i,1) = alb1(iof+i)
-      DO kk=2,NSW
-        PALBP_NEW(i,kk) = alb2(iof+i)
-      ENDDO
-!     PALBP_NEW(i,2) = alb2(iof+i)
-!     PALBP_NEW(i,3) = alb2(iof+i)
-!     PALBP_NEW(i,4) = alb2(iof+i)
-!     PALBP_NEW(i,5) = alb2(iof+i)
-!     PALBP_NEW(i,6) = alb2(iof+i)
-      PEMIS(i) = 1.0 
-      PVIEW(i) = 1.66
-      PPSOL(i) = paprs(iof+i,1)
-      zx_alpha1 = (paprs(iof+i,1)-pplay(iof+i,2))/(pplay(iof+i,1)-pplay(iof+i,2))
-      zx_alpha2 = 1.0 - zx_alpha1
-      PTL(i,1) = t(iof+i,1) * zx_alpha1 + t(iof+i,2) * zx_alpha2
-      PTL(i,KLEV+1) = t(iof+i,KLEV)
-      PDT0(i) = tsol(iof+i) - PTL(i,1)
-    ENDDO
-    DO k = 2, kflev
-      DO i = 1, kdlon
-        PTL(i,k) = (t(iof+i,k)+t(iof+i,k-1))*0.5
-      ENDDO
-    ENDDO
-    DO k = 1, kflev
-      DO i = 1, kdlon
-        PDP(i,k) = paprs(iof+i,k)-paprs(iof+i,k+1)
-        PTAVE(i,k) = t(iof+i,k)
-        PWV(i,k) = MAX (q(iof+i,k), 1.0e-12)
-        PQS(i,k) = PWV(i,k)
-        ! wo:    cm.atm (epaisseur en cm dans la situation standard)
-        ! POZON: kg/kg
-        POZON(i,k) = MAX(wo(iof+i,k),1.0e-12)*RG/46.6968 &
-           /(paprs(iof+i,k)-paprs(iof+i,k+1))&
-           *(paprs(iof+i,1)/101325.0)
-        PCLDLD(i,k) = cldfra(iof+i,k)*cldemi(iof+i,k)
-        PCLDLU(i,k) = cldfra(iof+i,k)*cldemi(iof+i,k)
-        PCLDSW(i,k) = cldfra(iof+i,k)
-        PTAU(i,1,k) = MAX(cldtaupi(iof+i,k), 1.0e-05)! 1e-12 serait instable
-        PTAU(i,2,k) = MAX(cldtaupi(iof+i,k), 1.0e-05)! pour 32-bit machines
-        POMEGA(i,1,k) = 0.9999 - 5.0e-04 * EXP(-0.5 * PTAU(i,1,k))
-        POMEGA(i,2,k) = 0.9988 - 2.5e-03 * EXP(-0.05 * PTAU(i,2,k))
-        PCG(i,1,k) = 0.865
-        PCG(i,2,k) = 0.910
-        !-
-        ! Introduced for aerosol indirect forcings.
-        ! The following values use the cloud optical thickness calculated from
-        ! present-day aerosol concentrations whereas the quantities without the
-        ! "A" at the end are for pre-industial (natural-only) aerosol concentrations
-        !
-        PTAUA(i,1,k) = MAX(cldtaupd(iof+i,k), 1.0e-05)! 1e-12 serait instable
-        PTAUA(i,2,k) = MAX(cldtaupd(iof+i,k), 1.0e-05)! pour 32-bit machines
-        POMEGAA(i,1,k) = 0.9999 - 5.0e-04 * EXP(-0.5 * PTAUA(i,1,k))
-        POMEGAA(i,2,k) = 0.9988 - 2.5e-03 * EXP(-0.05 * PTAUA(i,2,k))
-      ENDDO
-    ENDDO
-    !
-    DO k = 1, kflev+1
-      DO i = 1, kdlon
-        PPMB(i,k) = paprs(iof+i,k)/100.0
-      ENDDO
-    ENDDO
-    !
-!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6  
-    DO kk = 1, 6
-      DO k = 1, kflev
-        DO i = 1, kdlon
-          PAER(i,k,kk) = 1.0E-15
-        ENDDO
-      ENDDO
-    ENDDO
-    DO k = 1, kflev
-      DO i = 1, kdlon
-        tauaero(i,k,:,1)=tau_aero(iof+i,k,:,1)
-        pizaero(i,k,:,1)=piz_aero(iof+i,k,:,1)
-        cgaero(i,k,:,1) =cg_aero(iof+i,k,:,1)
-        tauaero(i,k,:,2)=tau_aero(iof+i,k,:,2)
-        pizaero(i,k,:,2)=piz_aero(iof+i,k,:,2)
-        cgaero(i,k,:,2) =cg_aero(iof+i,k,:,2)
-      ENDDO
-    ENDDO
-!
-!======================================================================
-!===== si iflag_rrtm=0 ================================================
-!IM ctes ds clesphys.h   CALL LW(RCO2,RCH4,RN2O,RCFC11,RCFC12,
-!IM ctes ds clesphys.h   CALL SW(PSCT, RCO2, zrmu0, zfract,
-!      
-      IF (iflag_rrtm.eq.0) then
-
-!----- Mise a zero des tableaux output du rayonnement LW-AR4 ----------              
-      DO k = 1, kflev+1
-      DO i = 1, kdlon
-      ZFLUP(i,k)=0.
-      ZFLDN(i,k)=0.
-      ZFLUP0(i,k)=0.
-      ZFLDN0(i,k)=0.
-      ENDDO
-      ENDDO
-      DO k = 1, kflev
-      DO i = 1, kdlon
-      zcool(i,k)=0.
-      zcool0(i,k)=0.
-      ENDDO
-      ENDDO
-      DO i = 1, kdlon
-      ztoplw(i)=0.
-      zsollw(i)=0.
-      ztoplw0(i)=0.
-      zsollw0(i)=0.
-      zsollwdown(i)=0.
-      ENDDO
-!
-    CALL LW_LMDAR4(&
-       PPMB, PDP,&
-       PPSOL,PDT0,PEMIS,&
-       PTL, PTAVE, PWV, POZON, PAER,&
-       PCLDLD,PCLDLU,&
-       PVIEW,&
-       zcool, zcool0,&
-       ztoplw,zsollw,ztoplw0,zsollw0,&
-       zsollwdown,&
-       ZFLUP, ZFLDN, ZFLUP0,ZFLDN0)
-
-!----- Mise a zero des tableaux output du rayonnement SW-AR4 ----------              
-      DO k = 1, kflev+1
-      DO i = 1, kdlon
-      ZFSUP(i,k)=0.
-      ZFSDN(i,k)=0.
-      ZFSUP0(i,k)=0.
-      ZFSDN0(i,k)=0.
-      ENDDO
-      ENDDO
-      DO k = 1, kflev
-      DO i = 1, kdlon
-      zheat(i,k)=0.
-      zheat0(i,k)=0.
-      ENDDO
-      ENDDO
-      DO i = 1, kdlon
-      zalbpla(i)=0.
-      ztopsw(i)=0.
-      zsolsw(i)=0.
-      ztopsw0(i)=0.
-      zsolsw0(i)=0.
-      ztopswadaero(i)=0.
-      zsolswadaero(i)=0.
-      ztopswaiaero(i)=0.
-      zsolswaiaero(i)=0.
-      ENDDO
-    IF (.NOT. new_aod) THEN 
-       ! use old version
-        CALL SW_LMDAR4(PSCT, zrmu0, zfract,&
-           PPMB, PDP, &
-           PPSOL, PALBD, PALBP,&
-           PTAVE, PWV, PQS, POZON, PAER,&
-           PCLDSW, PTAU, POMEGA, PCG,&
-           zheat, zheat0,&
-           zalbpla,ztopsw,zsolsw,ztopsw0,zsolsw0,&
-           ZFSUP,ZFSDN,ZFSUP0,ZFSDN0,&
-           tau_aero(:,:,5,:), piz_aero(:,:,5,:), cg_aero(:,:,5,:),& 
-           PTAUA, POMEGAA,&
-           ztopswadaero,zsolswadaero,&
-           ztopswaiaero,zsolswaiaero,& 
-           ok_ade, ok_aie) 
-    ELSE
-
-        CALL SW_AERO(PSCT, zrmu0, zfract,&
-           PPMB, PDP,&
-           PPSOL, PALBD, PALBP,&
-           PTAVE, PWV, PQS, POZON, PAER,&
-           PCLDSW, PTAU, POMEGA, PCG,&
-           zheat, zheat0,&
-           zalbpla,ztopsw,zsolsw,ztopsw0,zsolsw0,&
-           ZFSUP,ZFSDN,ZFSUP0,ZFSDN0,&
-           tauaero, pizaero, cgaero, &
-           PTAUA, POMEGAA,&
-           ztopswadaero,zsolswadaero,&
-           ztopswad0aero,zsolswad0aero,&
-           ztopswaiaero,zsolswaiaero, & 
-           ztopsw_aero,ztopsw0_aero,&
-           zsolsw_aero,zsolsw0_aero,&
-           ok_ade, ok_aie) 
-    
-    ENDIF
-
-!===== si iflag_rrtm=1, on passe dans SW via RECMWFL ===============
-!----- Mise a zero des tableaux output de RECMWF -------------------              
-
-      else
-#ifdef CPP_RRTM
-      DO k = 1, kflev+1
-      DO i = 1, kdlon
-      ZEMTD_i(i,k)=0.
-      ZEMTU_i(i,k)=0.
-      ZTRSO_i(i,k)=0.
-      ZTH_i(i,k)=0.
-      ZLWFT_i(i,k)=0.
-      ZSWFT_i(i,k)=0.
-      ZFLUX_i(i,1,k)=0.
-      ZFLUX_i(i,2,k)=0.
-      ZFLUC_i(i,1,k)=0.
-      ZFLUC_i(i,2,k)=0.
-      ZFSDWN_i(i,k)=0.
-      ZFCDWN_i(i,k)=0.
-      ZFSUP_i(i,k)=0.
-      ZFCUP_i(i,k)=0.
-      ENDDO
-      ENDDO
-!      
-      DO k = 1, kflev
-      DO i = 1, kdlon
-      DO kk = 1, NSW
-      PPIZA_DST(i,k,kk)=0.
-      PCGA_DST(i,k,kk)=0.
-      PTAUREL_DST(i,k,kk)=0.
-      ENDDO
-      ENDDO
-      ENDDO
-!      
-      DO i = 1, kdlon
-      ZCTRSO(i,1)=0.
-      ZCTRSO(i,2)=0.
-      ZCEMTR(i,1)=0.
-      ZCEMTR(i,2)=0.
-      ZTRSOD(i)=0.
-      ZLWFC(i,1)=0.
-      ZLWFC(i,2)=0.
-      ZSWFC(i,1)=0.
-      ZSWFC(i,2)=0.
-      PFSDNN(i)=0.
-      PFSDNV(i)=0.
-      DO kk = 1, NSW
-      PSFSWDIR(i,kk)=0.
-      PSFSWDIF(i,kk)=0.
-      ENDDO
-      ENDDO
-!----- Fin des mises a zero des tableaux output de RECMWF -------------------              
-         GEMU(1:klon)=sin(rlatd(1:klon))
-! On met les donnees dans l'ordre des niveaux arpege
-         paprs_i(:,1)=paprs(:,klev+1)
-         DO k=1,klev
-            paprs_i(1:klon,k+1) =paprs(1:klon,klev+1-k)
-            pplay_i(1:klon,k)   =pplay(1:klon,klev+1-k)
-            cldfra_i(1:klon,k)  =cldfra(1:klon,klev+1-k)
-            PDP_i(1:klon,k)     =PDP(1:klon,klev+1-k)
-            t_i(1:klon,k)       =t(1:klon,klev+1-k)
-            q_i(1:klon,k)       =q(1:klon,klev+1-k)
-            qsat_i(1:klon,k)    =qsat(1:klon,klev+1-k)
-            flwc_i(1:klon,k)    =flwc(1:klon,klev+1-k)
-            fiwc_i(1:klon,k)    =fiwc(1:klon,klev+1-k)
-         ENDDO
-         DO k=1,kflev
-            POZON_i(1:klon,k)=POZON(1:klon,kflev+1-k)
-!           print *,'Juste avant RECMWFL: k tsol temp',k,tsol,t(1,k)
-!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6      
-            DO i=1,6
-            PAER_i(1:klon,k,i)=PAER(1:klon,kflev+1-k,i)
-            ENDDO
-         ENDDO
-!        print *,'RADLWSW: avant RECMWFL, RI0,rmu0 =',solaire,rmu0
-
-!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-! La version ARPEGE1D utilise differentes valeurs de la constante
-! solaire suivant le rayonnement utilise.
-! A controler ...
-! SOLAR FLUX AT THE TOP (/YOMPHY3/)
-! introduce season correction
-!--------------------------------------
-! RII0 = RIP0
-! IF(LRAYFM)
-! RII0 = RIP0M   ! =rip0m if Morcrette non-each time step call.
-! IF(LRAYFM15)
-! RII0 = RIP0M15 ! =rip0m if Morcrette non-each time step call.
-         RII0=solaire
-!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-! Ancien appel a RECMWF (celui du cy25)
-!        CALL RECMWF (ist , iend, klon , ktdia , klev   , kmode ,
-!    s   PALBD    , PALBP   , paprs_i , pplay_i , RCO2   , cldfra_i,
-!    s   POZON_i  , PAER_i  , PDP_i   , PEMIS   , GEMU   , rmu0,
-!    s    q_i     , qsat_i  , fiwc_i  , flwc_i  , zmasq  , t_i  ,tsol,
-!    s   ZEMTD_i  , ZEMTU_i , ZTRSO_i ,
-!    s   ZTH_i    , ZCTRSO  , ZCEMTR  , ZTRSOD  ,
-!    s   ZLWFC    , ZLWFT_i , ZSWFC   , ZSWFT_i ,
-!    s   ZFLUX_i  , ZFLUC_i , ZFSDWN_i, ZFSUP_i , ZFCDWN_i,ZFCUP_i)
-!    s   'RECMWF ')
-!
-      IF(lldebug) then
-        call writefield_phy('paprs_i',paprs_i,klev+1)
-        call writefield_phy('pplay_i',pplay_i,klev)
-        call writefield_phy('cldfra_i',cldfra_i,klev)
-        call writefield_phy('pozon_i',POZON_i,klev)
-        call writefield_phy('paer_i',PAER_i,klev)
-        call writefield_phy('pdp_i',PDP_i,klev)
-        call writefield_phy('q_i',q_i,klev)
-        call writefield_phy('qsat_i',qsat_i,klev)
-        call writefield_phy('fiwc_i',fiwc_i,klev)
-        call writefield_phy('flwc_i',flwc_i,klev)
-        call writefield_phy('t_i',t_i,klev)
-        call writefield_phy('palbd_new',PALBD_NEW,NSW)
-        call writefield_phy('palbp_new',PALBP_NEW,NSW)
-      ENDIF
-
-! Nouvel appel a RECMWF (celui du cy32t0)
-         CALL RECMWF (ist , iend, klon , ktdia  , klev   , kmode ,&
-         PALBD_NEW,PALBP_NEW, paprs_i , pplay_i , RCO2   , cldfra_i,&
-         POZON_i  , PAER_i  , PDP_i   , PEMIS   , rmu0   ,&
-          q_i     , qsat_i  , fiwc_i  , flwc_i  , zmasq  , t_i  ,tsol,&
-         ZEMTD_i  , ZEMTU_i , ZTRSO_i ,&
-         ZTH_i    , ZCTRSO  , ZCEMTR  , ZTRSOD  ,&
-         ZLWFC    , ZLWFT_i , ZSWFC   , ZSWFT_i ,&
-         PSFSWDIR , PSFSWDIF, PFSDNN  , PFSDNV  ,&
-         PPIZA_DST, PCGA_DST,PTAUREL_DST,ZFLUX_i  , ZFLUC_i ,&
-         ZFSDWN_i , ZFSUP_i , ZFCDWN_i, ZFCUP_i)
-            
-         print *,'RADLWSW: apres RECMWF'
-      IF(lldebug) THEN
-        call writefield_phy('zemtd_i',ZEMTD_i,klev+1)
-        call writefield_phy('zemtu_i',ZEMTU_i,klev+1)
-        call writefield_phy('ztrso_i',ZTRSO_i,klev+1)
-        call writefield_phy('zth_i',ZTH_i,klev+1)
-        call writefield_phy('zctrso',ZCTRSO,2)
-        call writefield_phy('zcemtr',ZCEMTR,2)
-        call writefield_phy('ztrsod',ZTRSOD,1)
-        call writefield_phy('zlwfc',ZLWFC,2)
-        call writefield_phy('zlwft_i',ZLWFT_i,klev+1)
-        call writefield_phy('zswfc',ZSWFC,2)
-        call writefield_phy('zswft_i',ZSWFT_i,klev+1)
-        call writefield_phy('psfswdir',PSFSWDIR,6)
-        call writefield_phy('psfswdif',PSFSWDIF,6)
-        call writefield_phy('pfsdnn',PFSDNN,1)
-        call writefield_phy('pfsdnv',PFSDNV,1)
-        call writefield_phy('ppiza_dst',PPIZA_DST,klev)
-        call writefield_phy('pcga_dst',PCGA_DST,klev)
-        call writefield_phy('ptaurel_dst',PTAUREL_DST,klev)
-        call writefield_phy('zflux_i',ZFLUX_i,klev+1)
-        call writefield_phy('zfluc_i',ZFLUC_i,klev+1)
-        call writefield_phy('zfsdwn_i',ZFSDWN_i,klev+1)
-        call writefield_phy('zfsup_i',ZFSUP_i,klev+1)
-        call writefield_phy('zfcdwn_i',ZFCDWN_i,klev+1)
-        call writefield_phy('zfcup_i',ZFCUP_i,klev+1)
-      ENDIF
-! --------- output RECMWFL
-!  ZEMTD        (KPROMA,KLEV+1)  ; TOTAL DOWNWARD LONGWAVE EMISSIVITY
-!  ZEMTU        (KPROMA,KLEV+1)  ; TOTAL UPWARD   LONGWAVE EMISSIVITY
-!  ZTRSO        (KPROMA,KLEV+1)  ; TOTAL SHORTWAVE TRANSMISSIVITY
-!  ZTH          (KPROMA,KLEV+1)  ; HALF LEVEL TEMPERATURE
-!  ZCTRSO       (KPROMA,2)       ; CLEAR-SKY SHORTWAVE TRANSMISSIVITY
-!  ZCEMTR       (KPROMA,2)       ; CLEAR-SKY NET LONGWAVE EMISSIVITY
-!  ZTRSOD       (KPROMA)         ; TOTAL-SKY SURFACE SW TRANSMISSITY
-!  ZLWFC        (KPROMA,2)       ; CLEAR-SKY LONGWAVE FLUXES
-!  ZLWFT        (KPROMA,KLEV+1)  ; TOTAL-SKY LONGWAVE FLUXES
-!  ZSWFC        (KPROMA,2)       ; CLEAR-SKY SHORTWAVE FLUXES
-!  ZSWFT        (KPROMA,KLEV+1)  ; TOTAL-SKY SHORTWAVE FLUXES
-!  PPIZA_DST    (KPROMA,KLEV,NSW); Single scattering albedo of dust 
-!  PCGA_DST     (KPROMA,KLEV,NSW); Assymetry factor for dust 
-!  PTAUREL_DST  (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
-!  PSFSWDIR     (KPROMA,NSW)     ;
-!  PSFSWDIF     (KPROMA,NSW)     ;
-!  PFSDNN       (KPROMA)         ;
-!  PFSDNV       (KPROMA)         ;
-! ---------
-! On retablit l'ordre des niveaux lmd pour les tableaux de sortie
-      DO k=0,klev
-         ZEMTD(1:klon,k+1)  = ZEMTD_i(1:klon,k+1)
-         ZEMTU(1:klon,k+1)  = ZEMTU_i(1:klon,k+1)
-         ZTRSO(1:klon,k+1)  = ZTRSO_i(1:klon,k+1)
-         ZTH(1:klon,k+1)    = ZTH_i(1:klon,k+1)
-!        ZLWFT(1:klon,k+1)  = ZLWFT_i(1:klon,klev+1-k)
-!        ZSWFT(1:klon,k+1)  = ZSWFT_i(1:klon,klev+1-k) 
-         ZFLUP(1:klon,k+1)  = ZFLUX_i(1:klon,1,k+1)
-         ZFLDN(1:klon,k+1)  = ZFLUX_i(1:klon,2,k+1)
-         ZFLUP0(1:klon,k+1) = ZFLUC_i(1:klon,1,k+1)
-         ZFLDN0(1:klon,k+1) = ZFLUC_i(1:klon,2,k+1)
-         ZFSDN(1:klon,k+1)  = ZFSDWN_i(1:klon,k+1)
-         ZFSDN0(1:klon,k+1) = ZFCDWN_i(1:klon,k+1)
-         ZFSUP (1:klon,k+1) = ZFSUP_i(1:klon,k+1)
-         ZFSUP0(1:klon,k+1) = ZFCUP_i(1:klon,k+1)
-!   Nouveau calcul car visiblement ZSWFT et ZSWFC sont nuls dans RRTM cy32 
-!   en sortie de radlsw.F90 - MPL 7.01.09
-         ZSWFT(1:klon,k+1)  = ZFSDWN_i(1:klon,k+1)-ZFSUP_i(1:klon,k+1)
-         ZSWFT0(1:klon,k+1) = ZFCDWN_i(1:klon,k+1)-ZFCUP_i(1:klon,k+1)
-!        WRITE(*,'("FSDN FSUP FCDN FCUP: ",4E12.5)') ZFSDWN_i(1:klon,k+1),&
-!        ZFSUP_i(1:klon,k+1),ZFCDWN_i(1:klon,k+1),ZFCUP_i(1:klon,k+1)
-         ZLWFT(1:klon,k+1) =-ZFLUX_i(1:klon,2,k+1)-ZFLUX_i(1:klon,1,k+1)
-         ZLWFT0(1:klon,k+1)=-ZFLUC_i(1:klon,2,k+1)-ZFLUC_i(1:klon,1,k+1)
-!        print *,'FLUX2 FLUX1 FLUC2 FLUC1',ZFLUX_i(1:klon,2,k+1),
-!    s ZFLUX_i(1:klon,1,k+1),ZFLUC_i(1:klon,2,k+1),ZFLUC_i(1:klon,1,k+1)
-      ENDDO  
-      print*,'OK1'
-! ---------
-! On renseigne les champs LMDz, pour avoir la meme chose qu'en sortie de
-! LW_LMDAR4 et SW_LMDAR4
-      DO i = 1, kdlon
-         zsolsw(i)    = ZSWFT(i,1)
-         zsolsw0(i)   = ZSWFT0(i,1)
-!        zsolsw0(i)   = ZFSDN0(i,1)     -ZFSUP0(i,1)
-         ztopsw(i)    = ZSWFT(i,klev+1)
-         ztopsw0(i)   = ZSWFT0(i,klev+1)
-!        ztopsw0(i)   = ZFSDN0(i,klev+1)-ZFSUP0(i,klev+1)
-!         
-!        zsollw(i)    = ZFLDN(i,1)      -ZFLUP(i,1)
-!        zsollw0(i)   = ZFLDN0(i,1)     -ZFLUP0(i,1)
-!        ztoplw(i)    = ZFLDN(i,klev+1) -ZFLUP(i,klev+1)
-!        ztoplw0(i)   = ZFLDN0(i,klev+1)-ZFLUP0(i,klev+1)
-         zsollw(i)    = ZLWFT(i,1)
-         zsollw0(i)   = ZLWFT0(i,1)
-         ztoplw(i)    = ZLWFT(i,klev+1)
-         ztoplw0(i)   = ZLWFT0(i,klev+1)
-!         
-         zalbpla(i)   = ZFSUP(i,klev+1)/ZFSDN(i,klev+1)
-         zsollwdown(i)= ZFLDN(i,1)
-      ENDDO
-      print*,'OK2'
-
-! extrait de SW_AR4
-!     DO k = 1, KFLEV
-!        kpl1 = k+1
-!        DO i = 1, KDLON
-!           PHEAT(i,k) = -(ZFSUP(i,kpl1)-ZFSUP(i,k)) -(ZFSDN(i,k)-ZFSDN(i,kpl1))
-!           PHEAT(i,k) = PHEAT(i,k) * RDAY*RG/RCPD / PDP(i,k)
-! ZLWFT(klon,k),ZSWFT
-
-      DO k=1,kflev
-         DO i=1,kdlon
-           zheat(i,k)=(ZSWFT(i,k+1)-ZSWFT(i,k))*RDAY*RG/RCPD/PDP(i,k)
-           zheat0(i,k)=(ZSWFT0(i,k+1)-ZSWFT0(i,k))*RDAY*RG/RCPD/PDP(i,k)
-           zcool(i,k)=(ZLWFT(i,k)-ZLWFT(i,k+1))*RDAY*RG/RCPD/PDP(i,k)
-           zcool0(i,k)=(ZLWFT0(i,k)-ZLWFT0(i,k+1))*RDAY*RG/RCPD/PDP(i,k)
-!          print *,'heat cool heat0 coOl0 '&
-!         ,zheat(i,k),zcool(i,k),zheat0(i,k),zcool0(i,k)
-         ENDDO
-      ENDDO
-#else
-
-            abort_message='You should compile with -rrtm if running with iflag_rrtm=1'
-            call abort_gcm(modname,abort_message,1)
-#endif
-      ENDIF   ! if(iflag_rrtm=0)
-         print*,'OK3'
-!======================================================================
-!  PSOLSW(i)   = ZFSDN(i,1) - ZFSUP(i,1)
-!  PSOLSW0(i)  = ZFSDN0(i,1) - ZFSUP0(i,1)
-!  PSOLSWAD(i) = ZFSDNAD(i,1) - ZFSUPAD(i,1)
-!  PSOLSWAI(i) = ZFSDNAI(i,1) - ZFSUPAI(i,1)
-!  PTOPSW(i)   = ZFSDN(i,KFLEV+1) - ZFSUP(i,KFLEV+1)
-!  PTOPSW0(i)  = ZFSDN0(i,KFLEV+1) - ZFSUP0(i,KFLEV+1)
-!  PTOPSWAD(i) = ZFSDNAD(i,KFLEV+1) - ZFSUPAD(i,KFLEV+1)
-!  PTOPSWAI(i) = ZFSDNAI(i,KFLEV+1) - ZFSUPAI(i,KFLEV+1)      
-!======================================================================
-    DO i = 1, kdlon
-      radsol(iof+i) = zsolsw(i) + zsollw(i)
-      topsw(iof+i) = ztopsw(i)
-      toplw(iof+i) = ztoplw(i)
-      solsw(iof+i) = zsolsw(i)
-      sollw(iof+i) = zsollw(i)
-      sollwdown(iof+i) = zsollwdown(i)
-      DO k = 1, kflev+1
-        lwdn0 ( iof+i,k)   = ZFLDN0 ( i,k)
-        lwdn  ( iof+i,k)   = ZFLDN  ( i,k)
-        lwup0 ( iof+i,k)   = ZFLUP0 ( i,k)
-        lwup  ( iof+i,k)   = ZFLUP  ( i,k)
-      ENDDO
-      topsw0(iof+i) = ztopsw0(i)
-      toplw0(iof+i) = ztoplw0(i)
-      solsw0(iof+i) = zsolsw0(i)
-      sollw0(iof+i) = zsollw0(i)
-      albpla(iof+i) = zalbpla(i)
-
-      DO k = 1, kflev+1
-        swdn0 ( iof+i,k)   = ZFSDN0 ( i,k)
-        swdn  ( iof+i,k)   = ZFSDN  ( i,k)
-        swup0 ( iof+i,k)   = ZFSUP0 ( i,k)
-        swup  ( iof+i,k)   = ZFSUP  ( i,k)
-      ENDDO
-    ENDDO
-         print*,'OK4'
-    !-transform the aerosol forcings, if they have
-    ! to be calculated
-    IF (ok_ade) THEN
-        DO i = 1, kdlon
-          topswad_aero(iof+i) = ztopswadaero(i)
-          topswad0_aero(iof+i) = ztopswad0aero(i)
-          solswad_aero(iof+i) = zsolswadaero(i)
-          solswad0_aero(iof+i) = zsolswad0aero(i)
-          topsw_aero(iof+i,:) = ztopsw_aero(iof+i,:)
-          topsw0_aero(iof+i,:) = ztopsw0_aero(iof+i,:)
-          solsw_aero(iof+i,:) = zsolsw_aero(iof+i,:)
-          solsw0_aero(iof+i,:) = zsolsw0_aero(iof+i,:)
-          
-        ENDDO
-    ELSE
-        DO i = 1, kdlon
-          topswad_aero(iof+i) = 0.0
-          solswad_aero(iof+i) = 0.0
-          topswad0_aero(iof+i) = 0.0
-          solswad0_aero(iof+i) = 0.0
-          topsw_aero(iof+i,:) = 0.
-          topsw0_aero(iof+i,:) =0.
-          solsw_aero(iof+i,:) = 0.
-          solsw0_aero(iof+i,:) = 0.
-        ENDDO
-    ENDIF
-    IF (ok_aie) THEN
-        DO i = 1, kdlon
-          topswai_aero(iof+i) = ztopswaiaero(i)
-          solswai_aero(iof+i) = zsolswaiaero(i)
-        ENDDO
-    ELSE
-        DO i = 1, kdlon
-          topswai_aero(iof+i) = 0.0
-          solswai_aero(iof+i) = 0.0
-        ENDDO
-    ENDIF
-         print*,'OK5'
-    DO k = 1, kflev
-      DO i = 1, kdlon
-        !        scale factor to take into account the difference between
-        !        dry air and watter vapour scpecifi! heat capacity
-        zznormcp=1.0+RVTMP2*PWV(i,k)
-        heat(iof+i,k) = zheat(i,k)/zznormcp
-        cool(iof+i,k) = zcool(i,k)/zznormcp
-        heat0(iof+i,k) = zheat0(i,k)/zznormcp
-        cool0(iof+i,k) = zcool0(i,k)/zznormcp
-      ENDDO
-    ENDDO
-         print*,'OK6'
-    !
-  ENDDO
-       print*,'OK7'
-
-
-ENDSUBROUTINE radlwsw_aero
-
-
Index: LMDZ5/branches/testing/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/radlwsw_m.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/radlwsw_m.F90	(revision 2160)
@@ -16,5 +16,6 @@
    flag_aerosol_strat,&
    tau_aero, piz_aero, cg_aero,&
-   tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm,& ! rajoute par OB pour RRTM
+   tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,& ! rajoute par OB pour RRTM
+   tau_aero_lw_rrtm, &                                   ! rajoute par C. Kleinschmitt pour RRTM
    cldtaupi, new_aod, &
    qsat, flwc, fiwc, &
@@ -32,4 +33,9 @@
    solsw_aero, solsw0_aero, &
    topswcf_aero, solswcf_aero,&
+!-C. Kleinschmitt for LW diagnostics
+   toplwad_aero, sollwad_aero,&
+   toplwai_aero, sollwai_aero, &
+   toplwad0_aero, sollwad0_aero,&
+!-end
    ZLWFT0_i, ZFLDN0, ZFLUP0,&
    ZSWFT0_i, ZFSDN0, ZFSUP0)
@@ -51,5 +57,6 @@
 !     USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO ,&
 ! NSW mis dans .def MPL 20140211
-      USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO ,&
+! NLW ajoute par OB
+      USE YOERAD   , ONLY : NLW, LRRTM    ,LCCNL    ,LCCNO ,&
           NRADIP   , NRADLP , NICEOPT, NLIQOPT ,RCCNLND  , RCCNSEA
       USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
@@ -67,4 +74,6 @@
       USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK      
       USE YOMPHY3  , ONLY : RII0
+#else
+      USE aero_mod, ONLY : nbands_lw_rrtm
 #endif
 
@@ -182,8 +191,17 @@
   REAL,    INTENT(in)  :: cg_aero(KLON,KLEV,9,2)                         ! aerosol optical properties (see aeropt.F)
 !--OB
-  REAL,    INTENT(in)  :: tau_aero_rrtm(KLON,KLEV,2,NSW)                 ! aerosol optical properties RRTM
-  REAL,    INTENT(in)  :: piz_aero_rrtm(KLON,KLEV,2,NSW)                 ! aerosol optical properties RRTM
-  REAL,    INTENT(in)  :: cg_aero_rrtm(KLON,KLEV,2,NSW)                  ! aerosol optical properties RRTM
+  REAL,    INTENT(in)  :: tau_aero_sw_rrtm(KLON,KLEV,2,NSW)                 ! aerosol optical properties RRTM
+  REAL,    INTENT(in)  :: piz_aero_sw_rrtm(KLON,KLEV,2,NSW)                 ! aerosol optical properties RRTM
+  REAL,    INTENT(in)  :: cg_aero_sw_rrtm(KLON,KLEV,2,NSW)                  ! aerosol optical properties RRTM
 !--OB fin
+
+!--C. Kleinschmitt
+#ifdef CPP_RRTM
+  REAL,    INTENT(in)  :: tau_aero_lw_rrtm(KLON,KLEV,2,NLW)                 ! LW aerosol optical properties RRTM
+#else
+  REAL,    INTENT(in)  :: tau_aero_lw_rrtm(KLON,KLEV,2,nbands_lw_rrtm)
+#endif
+!--C. Kleinschmitt end
+
   REAL,    INTENT(in)  :: cldtaupi(KLON,KLEV)                            ! cloud optical thickness for pre-industrial aerosol concentrations
   LOGICAL, INTENT(in)  :: new_aod                                        ! flag pour retrouver les resultats exacts de l'AR4 dans le cas ou l'on ne travaille qu'avec les sulfates
@@ -209,6 +227,10 @@
   REAL,    INTENT(out) :: topswad_aero(KLON), solswad_aero(KLON)         ! output: aerosol direct forcing at TOA and surface
   REAL,    INTENT(out) :: topswai_aero(KLON), solswai_aero(KLON)         ! output: aerosol indirect forcing atTOA and surface
+  REAL,    INTENT(out) :: toplwad_aero(KLON), sollwad_aero(KLON)         ! output: LW aerosol direct forcing at TOA and surface
+  REAL,    INTENT(out) :: toplwai_aero(KLON), sollwai_aero(KLON)         ! output: LW aerosol indirect forcing atTOA and surface
   REAL, DIMENSION(klon), INTENT(out)    :: topswad0_aero 
   REAL, DIMENSION(klon), INTENT(out)    :: solswad0_aero
+  REAL, DIMENSION(klon), INTENT(out)    :: toplwad0_aero 
+  REAL, DIMENSION(klon), INTENT(out)    :: sollwad0_aero
   REAL, DIMENSION(kdlon,9), INTENT(out) :: topsw_aero
   REAL, DIMENSION(kdlon,9), INTENT(out) :: topsw0_aero
@@ -271,4 +293,9 @@
   REAL(KIND=8) ztopswad0aero(kdlon), zsolswad0aero(kdlon)   ! Aerosol direct forcing at TOAand surface
   REAL(KIND=8) ztopswaiaero(kdlon), zsolswaiaero(kdlon)     ! dito, indirect
+!-LW by CK
+  REAL(KIND=8) ztoplwadaero(kdlon), zsollwadaero(kdlon)     ! LW Aerosol direct forcing at TOAand surface
+  REAL(KIND=8) ztoplwad0aero(kdlon), zsollwad0aero(kdlon)   ! LW Aerosol direct forcing at TOAand surface
+  REAL(KIND=8) ztoplwaiaero(kdlon), zsollwaiaero(kdlon)     ! dito, indirect
+!-end
   REAL(KIND=8) ztopsw_aero(kdlon,9), ztopsw0_aero(kdlon,9)
   REAL(KIND=8) zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
@@ -316,4 +343,8 @@
       REAL(KIND=8) PCGA_NAT(klon,klev,NSW)
       REAL(KIND=8) PTAU_NAT(klon,klev,NSW)
+#ifdef CPP_RRTM
+      REAL(KIND=8) PTAU_LW_TOT(klon,klev,NLW)
+      REAL(KIND=8) PTAU_LW_NAT(klon,klev,NLW)
+#endif
       REAL(KIND=8) PSFSWDIR(klon,NSW)
       REAL(KIND=8) PSFSWDIF(klon,NSW)
@@ -644,11 +675,11 @@
       DO kk=1, NSW
 !
-      PTAU_TOT(i,kflev+1-k,kk)=tau_aero_rrtm(i,k,2,kk)
-      PPIZA_TOT(i,kflev+1-k,kk)=piz_aero_rrtm(i,k,2,kk)
-      PCGA_TOT(i,kflev+1-k,kk)=cg_aero_rrtm(i,k,2,kk)
-!
-      PTAU_NAT(i,kflev+1-k,kk)=tau_aero_rrtm(i,k,1,kk)
-      PPIZA_NAT(i,kflev+1-k,kk)=piz_aero_rrtm(i,k,1,kk)
-      PCGA_NAT(i,kflev+1-k,kk)=cg_aero_rrtm(i,k,1,kk)
+      PTAU_TOT(i,kflev+1-k,kk)=tau_aero_sw_rrtm(i,k,2,kk)
+      PPIZA_TOT(i,kflev+1-k,kk)=piz_aero_sw_rrtm(i,k,2,kk)
+      PCGA_TOT(i,kflev+1-k,kk)=cg_aero_sw_rrtm(i,k,2,kk)
+!
+      PTAU_NAT(i,kflev+1-k,kk)=tau_aero_sw_rrtm(i,k,1,kk)
+      PPIZA_NAT(i,kflev+1-k,kk)=piz_aero_sw_rrtm(i,k,1,kk)
+      PCGA_NAT(i,kflev+1-k,kk)=cg_aero_sw_rrtm(i,k,1,kk)
 !
       ENDDO
@@ -657,4 +688,19 @@
 !-end OB
 !
+!--C. Kleinschmitt
+!--aerosol TOT  - anthropogenic+natural
+!--aerosol NAT  - natural only
+!
+      DO i = 1, kdlon
+      DO k = 1, kflev
+      DO kk=1, NLW
+!
+      PTAU_LW_TOT(i,kflev+1-k,kk)=tau_aero_lw_rrtm(i,k,2,kk)
+      PTAU_LW_NAT(i,kflev+1-k,kk)=tau_aero_lw_rrtm(i,k,1,kk)
+!
+      ENDDO
+      ENDDO
+      ENDDO
+!-end C. Kleinschmitt
 !      
       DO i = 1, kdlon
@@ -761,4 +807,5 @@
          PPIZA_TOT, PCGA_TOT,PTAU_TOT,&
          PPIZA_NAT, PCGA_NAT,PTAU_NAT,           &  ! rajoute par OB pour diagnostiquer effet direct
+         PTAU_LW_TOT, PTAU_LW_NAT,               &  ! rajoute par C. Kleinschmitt
          ZFLUX_i  , ZFLUC_i ,&
          ZFSDWN_i , ZFSUP_i , ZFCDWN_i, ZFCUP_i,&
@@ -767,4 +814,7 @@
          ZTOPSWAIAERO,ZSOLSWAIAERO, &
          ZTOPSWCF_AERO,ZSOLSWCF_AERO, &
+         ZTOPLWADAERO,ZSOLLWADAERO,&  ! rajoute par C. Kleinscmitt pour LW diagnostics
+         ZTOPLWAD0AERO,ZSOLLWAD0AERO,&
+         ZTOPLWAIAERO,ZSOLLWAIAERO, &
          ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat) ! flags aerosols
             
@@ -813,5 +863,7 @@
 !  PPIZA_NAT    (KPROMA,KLEV,NSW); Single scattering albedo of natural aerosols 
 !  PCGA_NAT     (KPROMA,KLEV,NSW); Assymetry factor for natural aerosols 
-!  PTAU_NAT     (KPROMA,KLEV,NSW); Optical depth of natiral aerosols 
+!  PTAU_NAT     (KPROMA,KLEV,NSW); Optical depth of natiral aerosols
+!  PTAU_LW_TOT  (KPROMA,KLEV,NLW); LW Optical depth of total aerosols  
+!  PTAU_LW_NAT  (KPROMA,KLEV,NLW); LW Optical depth of natural aerosols  
 !  PSFSWDIR     (KPROMA,NSW)     ;
 !  PSFSWDIF     (KPROMA,NSW)     ;
@@ -974,5 +1026,10 @@
           solsw0_aero(iof+i,:) = zsolsw0_aero(i,:)
           topswcf_aero(iof+i,:) = ztopswcf_aero(i,:)
-          solswcf_aero(iof+i,:) = zsolswcf_aero(i,:)          
+          solswcf_aero(iof+i,:) = zsolswcf_aero(i,:)   
+          !-LW
+          toplwad_aero(iof+i) = ztoplwadaero(i)
+          toplwad0_aero(iof+i) = ztoplwad0aero(i)
+          sollwad_aero(iof+i) = zsollwadaero(i)
+          sollwad0_aero(iof+i) = zsollwad0aero(i)    
         ENDDO
     ELSE
@@ -986,4 +1043,9 @@
           solsw_aero(iof+i,:) = 0.
           solsw0_aero(iof+i,:) = 0.
+          !-LW
+          toplwad_aero(iof+i) = 0.0
+          sollwad_aero(iof+i) = 0.0
+          toplwad0_aero(iof+i) = 0.0
+          sollwad0_aero(iof+i) = 0.0
         ENDDO
     ENDIF
@@ -992,4 +1054,7 @@
           topswai_aero(iof+i) = ztopswaiaero(i)
           solswai_aero(iof+i) = zsolswaiaero(i)
+          !-LW
+          toplwai_aero(iof+i) = ztoplwaiaero(i)
+          sollwai_aero(iof+i) = zsollwaiaero(i)
         ENDDO
     ELSE
@@ -997,4 +1062,7 @@
           topswai_aero(iof+i) = 0.0
           solswai_aero(iof+i) = 0.0
+          !-LW
+          toplwai_aero(iof+i) = 0.0
+          sollwai_aero(iof+i) = 0.0
         ENDDO
     ENDIF
Index: LMDZ5/branches/testing/libf/phylmd/readaerosol_optic.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/readaerosol_optic.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/readaerosol_optic.F90	(revision 2160)
@@ -14,6 +14,6 @@
   USE dimphy
   USE aero_mod
-  USE phys_local_var_mod, only: sconcso4,sconcoa,sconcbc,sconcss,sconcdust, &
-      concso4,concoa,concbc,concss,concdust,loadso4,loadoa,loadbc,loadss,loaddust, &
+  USE phys_local_var_mod, only: sconcso4,sconcno3,sconcoa,sconcbc,sconcss,sconcdust, &
+      concso4,concno3,concoa,concbc,concss,concdust,loadso4,loadoa,loadbc,loadss,loaddust, &
       load_tmp1,load_tmp2,load_tmp3,load_tmp4,load_tmp5,load_tmp6,load_tmp7
   IMPLICIT NONE
@@ -82,5 +82,5 @@
        flag_aerosol .EQ. 6 ) THEN 
 
-     CALL readaerosol_interp(id_ASSO4M, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sulfate, sulfate_pi,loadso4)
+     CALL readaerosol_interp(id_ASSO4M_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sulfate, sulfate_pi,loadso4)
   ELSE
      sulfate(:,:) = 0. ; sulfate_pi(:,:) = 0.
@@ -93,6 +93,6 @@
 
      ! Get bc aerosol distribution 
-     CALL readaerosol_interp(id_ASBCM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcsol, bcsol_pi, load_tmp1 )
-     CALL readaerosol_interp(id_AIBCM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcins, bcins_pi, load_tmp2 )
+     CALL readaerosol_interp(id_ASBCM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcsol, bcsol_pi, load_tmp1 )
+     CALL readaerosol_interp(id_AIBCM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcins, bcins_pi, load_tmp2 )
      loadbc(:)=load_tmp1(:)+load_tmp2(:)
   ELSE
@@ -107,6 +107,6 @@
        flag_aerosol .EQ. 6 ) THEN
 
-     CALL readaerosol_interp(id_ASPOMM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3)
-     CALL readaerosol_interp(id_AIPOMM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomins, pomins_pi, load_tmp4)
+     CALL readaerosol_interp(id_ASPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3)
+     CALL readaerosol_interp(id_AIPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomins, pomins_pi, load_tmp4)
      loadoa(:)=load_tmp3(:)+load_tmp4(:)
   ELSE
@@ -121,7 +121,7 @@
       flag_aerosol .EQ. 6 ) THEN 
 
-      CALL readaerosol_interp(id_SSSSM ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5) 
-      CALL readaerosol_interp(id_CSSSM ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6) 
-      CALL readaerosol_interp(id_ASSSM ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7) 
+      CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5) 
+      CALL readaerosol_interp(id_CSSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6) 
+      CALL readaerosol_interp(id_ASSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7) 
      loadss(:)=load_tmp5(:)+load_tmp6(:)+load_tmp7(:)
   ELSE
@@ -136,5 +136,5 @@
       flag_aerosol .EQ. 6 ) THEN 
 
-      CALL readaerosol_interp(id_CIDUSTM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, cidust, cidust_pi, loaddust) 
+      CALL readaerosol_interp(id_CIDUSTM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, cidust, cidust_pi, loaddust) 
 
   ELSE
@@ -146,14 +146,14 @@
 ! Store all aerosols in one variable
 !
-  m_allaer(:,:,id_ASBCM)  = bcsol(:,:)        ! ASBCM
-  m_allaer(:,:,id_ASPOMM) = pomsol(:,:)       ! ASPOMM
-  m_allaer(:,:,id_ASSO4M) = sulfate(:,:)      ! ASSO4M (= SO4) 
-  m_allaer(:,:,id_CSSO4M) = 0.                ! CSSO4M 
-  m_allaer(:,:,id_SSSSM)  = sssupco(:,:)      ! SSSSM
-  m_allaer(:,:,id_CSSSM)  = sscoarse(:,:)     ! CSSSM
-  m_allaer(:,:,id_ASSSM)  = ssacu(:,:)        ! ASSSM
-  m_allaer(:,:,id_CIDUSTM)= cidust(:,:)       ! CIDUSTM
-  m_allaer(:,:,id_AIBCM)  = bcins(:,:)        ! AIBCM
-  m_allaer(:,:,id_AIPOMM) = pomins(:,:)       ! AIPOMM
+  m_allaer(:,:,id_ASBCM_phy)  = bcsol(:,:)        ! ASBCM
+  m_allaer(:,:,id_ASPOMM_phy) = pomsol(:,:)       ! ASPOMM
+  m_allaer(:,:,id_ASSO4M_phy) = sulfate(:,:)      ! ASSO4M (= SO4) 
+  m_allaer(:,:,id_CSSO4M_phy) = 0.                ! CSSO4M 
+  m_allaer(:,:,id_SSSSM_phy)  = sssupco(:,:)      ! SSSSM
+  m_allaer(:,:,id_CSSSM_phy)  = sscoarse(:,:)     ! CSSSM
+  m_allaer(:,:,id_ASSSM_phy)  = ssacu(:,:)        ! ASSSM
+  m_allaer(:,:,id_CIDUSTM_phy)= cidust(:,:)       ! CIDUSTM
+  m_allaer(:,:,id_AIBCM_phy)  = bcins(:,:)        ! AIBCM
+  m_allaer(:,:,id_AIPOMM_phy) = pomins(:,:)       ! AIPOMM
 
 !RAF
@@ -207,5 +207,5 @@
 
      CALL aeropt(pplay, paprs, t_seri, sulfate, rhcl, &
-          tau_aero(:,:,id_ASSO4M,:), piz_aero(:,:,id_ASSO4M,:), cg_aero(:,:,id_ASSO4M,:), aerindex)
+          tau_aero(:,:,id_ASSO4M_phy,:), piz_aero(:,:,id_ASSO4M_phy,:), cg_aero(:,:,id_ASSO4M_phy,:), aerindex)
      
   END IF
@@ -213,14 +213,16 @@
 
 ! Diagnostics calculation for CMIP5 protocol
-  sconcso4(:)=m_allaer(:,1,id_ASSO4M)*1.e-9
-  sconcoa(:)=(m_allaer(:,1,id_ASPOMM)+m_allaer(:,1,id_AIPOMM))*1.e-9
-  sconcbc(:)=(m_allaer(:,1,id_ASBCM)+m_allaer(:,1,id_AIBCM))*1.e-9
-  sconcss(:)=(m_allaer(:,1,id_ASSSM)+m_allaer(:,1,id_CSSSM)+m_allaer(:,1,id_SSSSM))*1.e-9
-  sconcdust(:)=m_allaer(:,1,id_CIDUSTM)*1.e-9
-  concso4(:,:)=m_allaer(:,:,id_ASSO4M)*1.e-9
-  concoa(:,:)=(m_allaer(:,:,id_ASPOMM)+m_allaer(:,:,id_AIPOMM))*1.e-9
-  concbc(:,:)=(m_allaer(:,:,id_ASBCM)+m_allaer(:,:,id_AIBCM))*1.e-9
-  concss(:,:)=(m_allaer(:,:,id_ASSSM)+m_allaer(:,:,id_CSSSM)+m_allaer(:,:,id_SSSSM))*1.e-9
-  concdust(:,:)=m_allaer(:,:,id_CIDUSTM)*1.e-9
+  sconcso4(:)=m_allaer(:,1,id_ASSO4M_phy)*1.e-9
+!  sconcno3(:)=m_allaer(:,1,id_ASNO3M_phy)*1.e-9
+  sconcoa(:)=(m_allaer(:,1,id_ASPOMM_phy)+m_allaer(:,1,id_AIPOMM_phy))*1.e-9
+  sconcbc(:)=(m_allaer(:,1,id_ASBCM_phy)+m_allaer(:,1,id_AIBCM_phy))*1.e-9
+  sconcss(:)=(m_allaer(:,1,id_ASSSM_phy)+m_allaer(:,1,id_CSSSM_phy)+m_allaer(:,1,id_SSSSM_phy))*1.e-9
+  sconcdust(:)=m_allaer(:,1,id_CIDUSTM_phy)*1.e-9
+  concso4(:,:)=m_allaer(:,:,id_ASSO4M_phy)*1.e-9
+!  concno3(:,:)=m_allaer(:,:,id_ASNO3M_phy)*1.e-9
+  concoa(:,:)=(m_allaer(:,:,id_ASPOMM_phy)+m_allaer(:,:,id_AIPOMM_phy))*1.e-9
+  concbc(:,:)=(m_allaer(:,:,id_ASBCM_phy)+m_allaer(:,:,id_AIBCM_phy))*1.e-9
+  concss(:,:)=(m_allaer(:,:,id_ASSSM_phy)+m_allaer(:,:,id_CSSSM_phy)+m_allaer(:,:,id_SSSSM_phy))*1.e-9
+  concdust(:,:)=m_allaer(:,:,id_CIDUSTM_phy)*1.e-9
 
 
Index: LMDZ5/branches/testing/libf/phylmd/readaerosolstrato.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/readaerosolstrato.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/readaerosolstrato.F90	(revision 2160)
@@ -128,8 +128,4 @@
     CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo)
 
-!    DEALLOCATE(tauaerstrat)
-!    DEALLOCATE(tauaerstrat_mois)
-!    DEALLOCATE(tauaerstrat_mois_glo)
-  
     ENDIF !--is_mpi_root
 
@@ -139,12 +135,19 @@
 !--keep memory of previous month
     mth_pre=mth_cur
+!
+    IF (is_mpi_root) THEN
+!
+    DEALLOCATE(tauaerstrat)
+    DEALLOCATE(tauaerstrat_mois)
+    DEALLOCATE(tauaerstrat_mois_glo)
+!
+    ENDIF !-is_mpi_root
 
     ENDIF !--debut ou nouveau mois
 
-!--total vertical aod at the 5 wavelengths
+!--total vertical aod at the 6 wavelengths
     DO wave=1, nwave
     DO k=1, klev
-    tausum_aero(:,wave,id_STRAT)=tausum_aero(:,wave,id_STRAT)+tau_aer_strat(:,k)*alpha_strat_wave(wave)/alpha_strat_wave(2)
-!    tausum_aero(:,wave,id_ASBCM)=tausum_aero(:,wave,id_ASBCM)+tau_aer_strat(:,k)*alpha_strat_wave(wave)/alpha_strat_wave(2)
+    tausum_aero(:,wave,id_STRAT_phy)=tausum_aero(:,wave,id_STRAT_phy)+tau_aer_strat(:,k)*alpha_strat_wave(wave)/alpha_strat_wave(2)
     ENDDO
     ENDDO
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90	(revision 2160)
@@ -12,5 +12,4 @@
   USE aero_mod
   USE phys_local_var_mod, only: od550aer,od865aer,ec550aer,od550lt1aer
-  USE YOMCST           , only : RD , RG
 
   !
@@ -50,4 +49,5 @@
   !
   IMPLICIT NONE
+  INCLUDE "YOMCST.h"
   !
   ! Input arguments:
@@ -55,5 +55,5 @@
   REAL, DIMENSION(klon,klev), INTENT(in)   :: pdel
   REAL, INTENT(in)                         :: delt
-  REAL, DIMENSION(klon,klev,naero_spc), INTENT(in) :: m_allaer
+  REAL, DIMENSION(klon,klev,naero_tot), INTENT(in) :: m_allaer
   REAL, DIMENSION(klon,klev), INTENT(in)   :: RHcl     ! humidite relative ciel clair
   INTEGER,INTENT(in)                       :: flag_aerosol
@@ -73,5 +73,5 @@
   LOGICAL :: soluble
   
-  INTEGER :: i, k, m
+  INTEGER :: i, k, m, aerindex
   INTEGER :: spsol, spinsol, la
   INTEGER :: RH_num(klon,klev)
@@ -96,5 +96,6 @@
   REAL :: zdp1(klon,klev) 
   INTEGER, ALLOCATABLE, DIMENSION(:)  :: aerosol_name
-  INTEGER :: nb_aer
+  INTEGER :: nb_aer, itau
+  LOGICAL :: ok_itau
   
   REAL :: dh(KLON,KLEV)
@@ -105,5 +106,5 @@
   REAL :: alpha_aeri_5wv(las,naero_insoluble)         ! Ext. coeff. ** m2/g 
 
-  REAL, DIMENSION(klon,klev,naero_spc) :: mass_temp
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
   
   !
@@ -113,5 +114,5 @@
   LOGICAL :: used_tau(naero_tot)
   INTEGER :: n
-  
+
 ! From here on we look at the optical parameters at 5 wavelengths:  
 ! 443nm, 550, 670, 765 and 865 nm 
@@ -222,39 +223,39 @@
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M
-     aerosol_name(2) = id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy
+     aerosol_name(2) = id_CSSO4M_phy
   ELSEIF (flag_aerosol .EQ. 2) THEN
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASBCM
-     aerosol_name(2) = id_AIBCM
+     aerosol_name(1) = id_ASBCM_phy
+     aerosol_name(2) = id_AIBCM_phy
   ELSEIF (flag_aerosol .EQ. 3) THEN 
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASPOMM
-     aerosol_name(2) = id_AIPOMM
+     aerosol_name(1) = id_ASPOMM_phy
+     aerosol_name(2) = id_AIPOMM_phy
   ELSEIF (flag_aerosol .EQ. 4) THEN 
      nb_aer = 3
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CSSSM
-     aerosol_name(2) = id_SSSSM
-     aerosol_name(3) = id_ASSSM
+     aerosol_name(1) = id_CSSSM_phy
+     aerosol_name(2) = id_SSSSM_phy
+     aerosol_name(3) = id_ASSSM_phy
   ELSEIF (flag_aerosol .EQ. 5) THEN 
      nb_aer = 1
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CIDUSTM
+     aerosol_name(1) = id_CIDUSTM_phy
   ELSEIF (flag_aerosol .EQ. 6) THEN 
      nb_aer = 10
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M      
-     aerosol_name(2) = id_ASBCM
-     aerosol_name(3) = id_AIBCM
-     aerosol_name(4) = id_ASPOMM
-     aerosol_name(5) = id_AIPOMM
-     aerosol_name(6) = id_CSSSM
-     aerosol_name(7) = id_SSSSM
-     aerosol_name(8) = id_ASSSM
-     aerosol_name(9) = id_CIDUSTM
-     aerosol_name(10) = id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy      
+     aerosol_name(2) = id_ASBCM_phy
+     aerosol_name(3) = id_AIBCM_phy
+     aerosol_name(4) = id_ASPOMM_phy
+     aerosol_name(5) = id_AIPOMM_phy
+     aerosol_name(6) = id_CSSSM_phy
+     aerosol_name(7) = id_SSSSM_phy
+     aerosol_name(8) = id_ASSSM_phy
+     aerosol_name(9) = id_CIDUSTM_phy
+     aerosol_name(10) = id_CSSO4M_phy
   ENDIF
 
@@ -293,34 +294,34 @@
   DO m=1,nb_aer   ! tau is only computed for each mass    
     fac=1.0
-    IF (aerosol_name(m).EQ.id_ASBCM) THEN
+    IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
         soluble=.TRUE.
         spsol=1
-    ELSEIF (aerosol_name(m).EQ.id_ASPOMM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
         soluble=.TRUE.
         spsol=2 
-    ELSEIF (aerosol_name(m).EQ.id_ASSO4M) THEN
+    ELSEIF (aerosol_name(m).EQ.id_ASSO4M_phy) THEN
         soluble=.TRUE.
         spsol=3
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-    ELSEIF (aerosol_name(m).EQ.id_CSSO4M) THEN
+    ELSEIF (aerosol_name(m).EQ.id_CSSO4M_phy) THEN
         soluble=.TRUE.
         spsol=4
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-    ELSEIF (aerosol_name(m).EQ.id_SSSSM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_SSSSM_phy) THEN 
         soluble=.TRUE.
         spsol=5
-    ELSEIF (aerosol_name(m).EQ.id_CSSSM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
         soluble=.TRUE.
         spsol=6
-    ELSEIF (aerosol_name(m).EQ.id_ASSSM) THEN
+    ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
         soluble=.TRUE.
         spsol=7
-    ELSEIF (aerosol_name(m).EQ.id_CIDUSTM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
         soluble=.FALSE.
         spinsol=1
-    ELSEIF  (aerosol_name(m).EQ.id_AIBCM) THEN 
+    ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
         soluble=.FALSE.
         spinsol=2
-    ELSEIF (aerosol_name(m).EQ.id_AIPOMM) THEN 
+    ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
         soluble=.FALSE.
         spinsol=3
@@ -335,4 +336,6 @@
     ENDIF
 
+    aerindex=aerosol_name(m)
+
     DO la=1,las
 
@@ -344,10 +347,10 @@
                              (alpha_aers_5wv(RH_num(i,k)+1,la,spsol) - & 
                               alpha_aers_5wv(RH_num(i,k),la,spsol))
-              tau(i,k,la,spsol) = mass_temp(i,k,spsol)*1000.*zdp1(i,k)   &
-                                 *tau_ae5wv_int*delt*fac
-              tausum(i,la,spsol)=tausum(i,la,spsol)+tau(i,k,la,spsol)
+              tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)*   &
+                                    tau_ae5wv_int*delt*fac
+              tausum(i,la,aerindex)=tausum(i,la,aerindex)+tau(i,k,la,aerindex)
             ENDDO
           ENDDO
-
+ 
       ELSE                         ! For insoluble aerosol
 
@@ -355,8 +358,7 @@
           DO i=1, KLON
             tau_ae5wv_int = alpha_aeri_5wv(la,spinsol)
-            tau(i,k,la,naero_soluble+spinsol) = mass_temp(i,k,naero_soluble+spinsol)*1000.*zdp1(i,k)* &
-                                                tau_ae5wv_int*delt*fac
-            tausum(i,la,naero_soluble+spinsol)= tausum(i,la,naero_soluble+spinsol)  &
-                                               +tau(i,k,la,naero_soluble+spinsol)
+            tau(i,k,la,aerindex) = mass_temp(i,k,aerindex)*1000.*zdp1(i,k)* &
+                                   tau_ae5wv_int*delt*fac
+            tausum(i,la,aerindex)= tausum(i,la,aerindex)+tau(i,k,la,aerindex)
           ENDDO
         ENDDO
@@ -405,7 +407,7 @@
   ENDDO
 
-  od550lt1aer(:)=tausum(:,la550,id_ASSO4M)+tausum(:,la550,id_ASBCM) +tausum(:,la550,id_AIBCM)+ &
-                 tausum(:,la550,id_ASPOMM)+tausum(:,la550,id_AIPOMM)+tausum(:,la550,id_ASSSM)+ &
-                 0.03*tausum(:,la550,id_CSSSM)+0.4*tausum(:,la550,id_CIDUSTM)
+  od550lt1aer(:)=tausum(:,la550,id_ASSO4M_phy)+tausum(:,la550,id_ASBCM_phy) +tausum(:,la550,id_AIBCM_phy)+ &
+                 tausum(:,la550,id_ASPOMM_phy)+tausum(:,la550,id_AIPOMM_phy)+tausum(:,la550,id_ASSSM_phy)+ &
+                 0.03*tausum(:,la550,id_CSSSM_phy)+0.4*tausum(:,la550,id_CIDUSTM_phy)
 
   DEALLOCATE(aerosol_name) 
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90	(revision 2160)
@@ -6,10 +6,9 @@
      tau_allaer, piz_allaer, &
      cg_allaer, m_allaer_pi, &
-     flag_aerosol, pplay, t_seri )
+     flag_aerosol, zrho )
 
   USE dimphy
   USE aero_mod
   USE phys_local_var_mod, only: absvisaer
-  USE YOMCST            , only: RD , RG
 
   !    Yves Balkanski le 12 avril 2006
@@ -22,4 +21,5 @@
   IMPLICIT NONE
 
+  INCLUDE "YOMCST.h"
   INCLUDE "iniprint.h"
   INCLUDE "clesphys.h"
@@ -30,10 +30,9 @@
   REAL, DIMENSION(klon,klev),     INTENT(in)  :: pdel
   REAL,                           INTENT(in)  :: delt
-  REAL, DIMENSION(klon,klev,naero_spc),   INTENT(in)  :: m_allaer
-  REAL, DIMENSION(klon,klev,naero_spc),   INTENT(in)  :: m_allaer_pi
+  REAL, DIMENSION(klon,klev,naero_tot),   INTENT(in)  :: m_allaer
+  REAL, DIMENSION(klon,klev,naero_tot),   INTENT(in)  :: m_allaer_pi
   REAL, DIMENSION(klon,klev),     INTENT(in)  :: RHcl       ! humidite relative ciel clair
   INTEGER,                        INTENT(in)  :: flag_aerosol
-  REAL, DIMENSION(klon,klev),     INTENT(in)  :: pplay
-  REAL, DIMENSION(klon,klev),     INTENT(in)  :: t_seri
+  REAL, DIMENSION(klon,klev),     INTENT(in)  :: zrho
   !
   ! Output arguments:
@@ -41,7 +40,7 @@
   ! 2= natural aerosols
   !
-  REAL, DIMENSION(klon,klev,2,nbands_rrtm), INTENT(out) :: tau_allaer ! epaisseur optique aerosol
-  REAL, DIMENSION(klon,klev,2,nbands_rrtm), INTENT(out) :: piz_allaer ! single scattering albedo aerosol
-  REAL, DIMENSION(klon,klev,2,nbands_rrtm), INTENT(out) :: cg_allaer  ! asymmetry parameter aerosol
+  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(out) :: tau_allaer ! epaisseur optique aerosol
+  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(out) :: piz_allaer ! single scattering albedo aerosol
+  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(out) :: cg_allaer  ! asymmetry parameter aerosol
 
   !
@@ -67,5 +66,4 @@
   REAL :: cg_ae2b_int    ! Intermediate computation of Assymetry parameter
   REAL :: Fact_RH(nbre_RH)
-  REAL :: zrho
   REAL :: fac
   REAL :: zdp1(klon,klev) 
@@ -73,10 +71,10 @@
   INTEGER :: nb_aer
 
-  REAL, DIMENSION(klon,klev,naero_spc) :: mass_temp
-  REAL, DIMENSION(klon,klev,naero_spc) :: mass_temp_pi
-  REAL, DIMENSION(klon,klev,naero_tot,nbands_rrtm) ::  tau_ae
-  REAL, DIMENSION(klon,klev,naero_tot,nbands_rrtm) ::  tau_ae_pi
-  REAL, DIMENSION(klon,klev,naero_tot,nbands_rrtm) ::  piz_ae
-  REAL, DIMENSION(klon,klev,naero_tot,nbands_rrtm) ::  cg_ae
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp_pi
+  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) ::  tau_ae
+  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) ::  tau_ae_pi
+  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) ::  piz_ae
+  REAL, DIMENSION(klon,klev,naero_tot,nbands_sw_rrtm) ::  cg_ae
 
 
@@ -84,10 +82,10 @@
   ! Proprietes optiques
   !
-  REAL:: alpha_aers_6bands(nbre_RH,nbands_rrtm,naero_soluble)   !--unit m2/g SO4
-  REAL:: alpha_aeri_6bands(nbands_rrtm,naero_insoluble)
-  REAL:: cg_aers_6bands(nbre_RH,nbands_rrtm,naero_soluble)      !--unit 
-  REAL:: cg_aeri_6bands(nbands_rrtm,naero_insoluble)
-  REAL:: piz_aers_6bands(nbre_RH,nbands_rrtm,naero_soluble)     !-- unit
-  REAL:: piz_aeri_6bands(nbands_rrtm,naero_insoluble)        !-- unit
+  REAL:: alpha_aers_6bands(nbre_RH,nbands_sw_rrtm,naero_soluble)   !--unit m2/g SO4
+  REAL:: alpha_aeri_6bands(nbands_sw_rrtm,naero_insoluble)
+  REAL:: cg_aers_6bands(nbre_RH,nbands_sw_rrtm,naero_soluble)      !--unit 
+  REAL:: cg_aeri_6bands(nbands_sw_rrtm,naero_insoluble)
+  REAL:: piz_aers_6bands(nbre_RH,nbands_sw_rrtm,naero_soluble)     !-- unit
+  REAL:: piz_aeri_6bands(nbands_sw_rrtm,naero_insoluble)        !-- unit
 
   INTEGER :: id
@@ -280,16 +278,15 @@
   spsol = 0
   spinsol = 0 
-  if(NSW.NE.nbands_rrtm) then
+  IF (NSW.NE.nbands_sw_rrtm) THEN
      print *,'Erreur NSW doit etre egal a 6 pour cette routine'
      stop
-  endif
+  ENDIF
 
   DO k=1, klev
     DO i=1, klon
-      zrho=pplay(i,k)/t_seri(i,k)/RD                  ! kg/m3
-!CDIR UNROLL=naero_spc
-      mass_temp(i,k,:) = m_allaer(i,k,:) / zrho / 1.e+9
-!CDIR UNROLL=naero_spc
-      mass_temp_pi(i,k,:) = m_allaer_pi(i,k,:) / zrho / 1.e+9
+!CDIR UNROLL=naero_tot
+      mass_temp(i,k,:) = m_allaer(i,k,:) / zrho(i,k) / 1.e+9  !--kg/kg
+!CDIR UNROLL=naero_tot
+      mass_temp_pi(i,k,:) = m_allaer_pi(i,k,:) / zrho(i,k) / 1.e+9
       zdp1(i,k)=pdel(i,k)/(RG*delt)      ! air mass auxiliary  variable --> zdp1 [kg/(m^2 *s)]
     ENDDO
@@ -299,39 +296,39 @@
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M
-     aerosol_name(2) = id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy
+     aerosol_name(2) = id_CSSO4M_phy
   ELSEIF (flag_aerosol .EQ. 2) THEN
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASBCM
-     aerosol_name(2) = id_AIBCM
+     aerosol_name(1) = id_ASBCM_phy
+     aerosol_name(2) = id_AIBCM_phy
   ELSEIF (flag_aerosol .EQ. 3) THEN 
      nb_aer = 2
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASPOMM
-     aerosol_name(2) = id_AIPOMM
+     aerosol_name(1) = id_ASPOMM_phy
+     aerosol_name(2) = id_AIPOMM_phy
   ELSEIF (flag_aerosol .EQ. 4) THEN 
      nb_aer = 3
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CSSSM
-     aerosol_name(2) = id_SSSSM
-     aerosol_name(3) = id_ASSSM
+     aerosol_name(1) = id_CSSSM_phy
+     aerosol_name(2) = id_SSSSM_phy
+     aerosol_name(3) = id_ASSSM_phy
   ELSEIF (flag_aerosol .EQ. 5) THEN 
      nb_aer = 1
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_CIDUSTM
+     aerosol_name(1) = id_CIDUSTM_phy
   ELSEIF (flag_aerosol .EQ. 6) THEN 
      nb_aer = 10
      ALLOCATE (aerosol_name(nb_aer)) 
-     aerosol_name(1) = id_ASSO4M      
-     aerosol_name(2) = id_ASBCM
-     aerosol_name(3) = id_AIBCM
-     aerosol_name(4) = id_ASPOMM
-     aerosol_name(5) = id_AIPOMM
-     aerosol_name(6) = id_CSSSM
-     aerosol_name(7) = id_SSSSM
-     aerosol_name(8) = id_ASSSM
-     aerosol_name(9) = id_CIDUSTM
-     aerosol_name(10)= id_CSSO4M
+     aerosol_name(1) = id_ASSO4M_phy      
+     aerosol_name(2) = id_ASBCM_phy
+     aerosol_name(3) = id_AIBCM_phy
+     aerosol_name(4) = id_ASPOMM_phy
+     aerosol_name(5) = id_AIPOMM_phy
+     aerosol_name(6) = id_CSSSM_phy
+     aerosol_name(7) = id_SSSSM_phy
+     aerosol_name(8) = id_ASSSM_phy
+     aerosol_name(9) = id_CIDUSTM_phy
+     aerosol_name(10)= id_CSSO4M_phy
   ENDIF
 
@@ -354,5 +351,5 @@
     DO i=1, KLON
       rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
-      RH_num(i,k) = INT( rh(i,k)/10. + 1.)
+      RH_num(i,k) = INT(rh(i,k)/10. + 1.)
       IF (rh(i,k).GT.85.) RH_num(i,k)=10
       IF (rh(i,k).GT.90.) RH_num(i,k)=11
@@ -365,34 +362,34 @@
   DO m=1,nb_aer   ! tau is only computed for each mass
      fac=1.0
-     IF (aerosol_name(m).EQ.id_ASBCM) THEN
+     IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
         soluble=.TRUE.
         spsol=1
-     ELSEIF (aerosol_name(m).EQ.id_ASPOMM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
         soluble=.TRUE.
         spsol=2 
-     ELSEIF (aerosol_name(m).EQ.id_ASSO4M) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_ASSO4M_phy) THEN 
         soluble=.TRUE.
         spsol=3
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-     ELSEIF  (aerosol_name(m).EQ.id_CSSO4M) THEN
+     ELSEIF  (aerosol_name(m).EQ.id_CSSO4M_phy) THEN
         soluble=.TRUE.
         spsol=4
         fac=1.375    ! (NH4)2-SO4/SO4 132/96 mass conversion factor for OD
-     ELSEIF (aerosol_name(m).EQ.id_SSSSM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_SSSSM_phy) THEN 
          soluble=.TRUE.
          spsol=5
-     ELSEIF (aerosol_name(m).EQ.id_CSSSM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
          soluble=.TRUE.
          spsol=6
-     ELSEIF (aerosol_name(m).EQ.id_ASSSM) THEN
+     ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
          soluble=.TRUE.
          spsol=7
-     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
          soluble=.FALSE.
          spinsol=1
-     ELSEIF  (aerosol_name(m).EQ.id_AIBCM) THEN 
+     ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
          soluble=.FALSE.
          spinsol=2
-     ELSEIF (aerosol_name(m).EQ.id_AIPOMM) THEN 
+     ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
          soluble=.FALSE.
          spinsol=3
@@ -471,67 +468,67 @@
        DO i=1, KLON
 !--anthropogenic aerosol
-         tau_allaer(i,k,2,inu)=tau_ae(i,k,id_ASSO4M,inu)+tau_ae(i,k,id_CSSO4M,inu)+ &
-                               tau_ae(i,k,id_ASBCM,inu)+tau_ae(i,k,id_AIBCM,inu)+   &
-                               tau_ae(i,k,id_ASPOMM,inu)+tau_ae(i,k,id_AIPOMM,inu)+ &
-                               tau_ae(i,k,id_ASSSM,inu)+tau_ae(i,k,id_CSSSM,inu)+   &
-                               tau_ae(i,k,id_SSSSM,inu)+ tau_ae(i,k,id_CIDUSTM,inu)
+         tau_allaer(i,k,2,inu)=tau_ae(i,k,id_ASSO4M_phy,inu)+tau_ae(i,k,id_CSSO4M_phy,inu)+ &
+                               tau_ae(i,k,id_ASBCM_phy,inu)+tau_ae(i,k,id_AIBCM_phy,inu)+   &
+                               tau_ae(i,k,id_ASPOMM_phy,inu)+tau_ae(i,k,id_AIPOMM_phy,inu)+ &
+                               tau_ae(i,k,id_ASSSM_phy,inu)+tau_ae(i,k,id_CSSSM_phy,inu)+   &
+                               tau_ae(i,k,id_SSSSM_phy,inu)+ tau_ae(i,k,id_CIDUSTM_phy,inu)
          tau_allaer(i,k,2,inu)=MAX(tau_allaer(i,k,2,inu),1e-5)
 
-         piz_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)+ &
-                                tau_ae(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)+ &
-                                tau_ae(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)+ &
-                                tau_ae(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)+ &
-                                tau_ae(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)+ &
-                                tau_ae(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)+ &
-                                tau_ae(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)+ &
-                                tau_ae(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)+ &
-                                tau_ae(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)+ &
-                                tau_ae(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)) &
+         piz_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+ &
+                                tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)+ &
+                                tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)+ &
+                                tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)+ &
+                                tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)+ &
+                                tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)+ &
+                                tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)+ &
+                                tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)+ &
+                                tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)+ &
+                                tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) &
                                 /tau_allaer(i,k,2,inu)
          piz_allaer(i,k,2,inu)=MAX(piz_allaer(i,k,2,inu),0.1)
 
-         cg_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)*cg_ae(i,k,id_ASSO4M,inu)+ &
-                               tau_ae(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)*cg_ae(i,k,id_CSSO4M,inu)+ &
-                               tau_ae(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)*cg_ae(i,k,id_ASBCM,inu)+ &
-                               tau_ae(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)*cg_ae(i,k,id_AIBCM,inu)+ &
-                               tau_ae(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)*cg_ae(i,k,id_ASPOMM,inu)+ &
-                               tau_ae(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)*cg_ae(i,k,id_AIPOMM,inu)+ &
-                               tau_ae(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)*cg_ae(i,k,id_ASSSM,inu)+ &
-                               tau_ae(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)*cg_ae(i,k,id_CSSSM,inu)+ &
-                               tau_ae(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)*cg_ae(i,k,id_SSSSM,inu)+ &
-                               tau_ae(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)*cg_ae(i,k,id_CIDUSTM,inu))/ &
+         cg_allaer(i,k,2,inu)=(tau_ae(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ &
+                               tau_ae(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)*cg_ae(i,k,id_CSSO4M_phy,inu)+ &
+                               tau_ae(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)*cg_ae(i,k,id_ASBCM_phy,inu)+ &
+                               tau_ae(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)*cg_ae(i,k,id_AIBCM_phy,inu)+ &
+                               tau_ae(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)*cg_ae(i,k,id_ASPOMM_phy,inu)+ &
+                               tau_ae(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)*cg_ae(i,k,id_AIPOMM_phy,inu)+ &
+                               tau_ae(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)*cg_ae(i,k,id_ASSSM_phy,inu)+ &
+                               tau_ae(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)*cg_ae(i,k,id_CSSSM_phy,inu)+ &
+                               tau_ae(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)*cg_ae(i,k,id_SSSSM_phy,inu)+ &
+                               tau_ae(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)*cg_ae(i,k,id_CIDUSTM_phy,inu))/ &
                                (tau_allaer(i,k,2,inu)*piz_allaer(i,k,2,inu))
 
 !--natural aerosol
-         tau_allaer(i,k,1,inu)=tau_ae_pi(i,k,id_ASSO4M,inu)+tau_ae_pi(i,k,id_CSSO4M,inu)+ &
-                               tau_ae_pi(i,k,id_ASBCM,inu)+tau_ae_pi(i,k,id_AIBCM,inu)+   &
-                               tau_ae_pi(i,k,id_ASPOMM,inu)+tau_ae_pi(i,k,id_AIPOMM,inu)+ &
-                               tau_ae_pi(i,k,id_ASSSM,inu)+tau_ae_pi(i,k,id_CSSSM,inu)+   &
-                               tau_ae_pi(i,k,id_SSSSM,inu)+ tau_ae_pi(i,k,id_CIDUSTM,inu)
+         tau_allaer(i,k,1,inu)=tau_ae_pi(i,k,id_ASSO4M_phy,inu)+tau_ae_pi(i,k,id_CSSO4M_phy,inu)+ &
+                               tau_ae_pi(i,k,id_ASBCM_phy,inu)+tau_ae_pi(i,k,id_AIBCM_phy,inu)+   &
+                               tau_ae_pi(i,k,id_ASPOMM_phy,inu)+tau_ae_pi(i,k,id_AIPOMM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_ASSSM_phy,inu)+tau_ae_pi(i,k,id_CSSSM_phy,inu)+   &
+                               tau_ae_pi(i,k,id_SSSSM_phy,inu)+ tau_ae_pi(i,k,id_CIDUSTM_phy,inu)
          tau_allaer(i,k,1,inu)=MAX(tau_allaer(i,k,1,inu),1e-5)
 
-         piz_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)+ &
-                                tau_ae_pi(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)+ &
-                                tau_ae_pi(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)+ &
-                                tau_ae_pi(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)+ &
-                                tau_ae_pi(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)+ &
-                                tau_ae_pi(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)+ &
-                                tau_ae_pi(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)+ &
-                                tau_ae_pi(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)+ &
-                                tau_ae_pi(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)+ &
-                                tau_ae_pi(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)) &
+         piz_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)+ &
+                                tau_ae_pi(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)+ &
+                                tau_ae_pi(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)+ &
+                                tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)) &
                                 /tau_allaer(i,k,1,inu)
          piz_allaer(i,k,1,inu)=MAX(piz_allaer(i,k,1,inu),0.1)
 
-         cg_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M,inu)*piz_ae(i,k,id_ASSO4M,inu)*cg_ae(i,k,id_ASSO4M,inu)+ &
-                               tau_ae_pi(i,k,id_CSSO4M,inu)*piz_ae(i,k,id_CSSO4M,inu)*cg_ae(i,k,id_CSSO4M,inu)+ &
-                               tau_ae_pi(i,k,id_ASBCM,inu)*piz_ae(i,k,id_ASBCM,inu)*cg_ae(i,k,id_ASBCM,inu)+ &
-                               tau_ae_pi(i,k,id_AIBCM,inu)*piz_ae(i,k,id_AIBCM,inu)*cg_ae(i,k,id_AIBCM,inu)+ &
-                               tau_ae_pi(i,k,id_ASPOMM,inu)*piz_ae(i,k,id_ASPOMM,inu)*cg_ae(i,k,id_ASPOMM,inu)+ &
-                               tau_ae_pi(i,k,id_AIPOMM,inu)*piz_ae(i,k,id_AIPOMM,inu)*cg_ae(i,k,id_AIPOMM,inu)+ &
-                               tau_ae_pi(i,k,id_ASSSM,inu)*piz_ae(i,k,id_ASSSM,inu)*cg_ae(i,k,id_ASSSM,inu)+ &
-                               tau_ae_pi(i,k,id_CSSSM,inu)*piz_ae(i,k,id_CSSSM,inu)*cg_ae(i,k,id_CSSSM,inu)+ &
-                               tau_ae_pi(i,k,id_SSSSM,inu)*piz_ae(i,k,id_SSSSM,inu)*cg_ae(i,k,id_SSSSM,inu)+ &
-                               tau_ae_pi(i,k,id_CIDUSTM,inu)*piz_ae(i,k,id_CIDUSTM,inu)*cg_ae(i,k,id_CIDUSTM,inu))/ &
+         cg_allaer(i,k,1,inu)=(tau_ae_pi(i,k,id_ASSO4M_phy,inu)*piz_ae(i,k,id_ASSO4M_phy,inu)*cg_ae(i,k,id_ASSO4M_phy,inu)+ &
+                               tau_ae_pi(i,k,id_CSSO4M_phy,inu)*piz_ae(i,k,id_CSSO4M_phy,inu)*cg_ae(i,k,id_CSSO4M_phy,inu)+ &
+                               tau_ae_pi(i,k,id_ASBCM_phy,inu)*piz_ae(i,k,id_ASBCM_phy,inu)*cg_ae(i,k,id_ASBCM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_AIBCM_phy,inu)*piz_ae(i,k,id_AIBCM_phy,inu)*cg_ae(i,k,id_AIBCM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_ASPOMM_phy,inu)*piz_ae(i,k,id_ASPOMM_phy,inu)*cg_ae(i,k,id_ASPOMM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_AIPOMM_phy,inu)*piz_ae(i,k,id_AIPOMM_phy,inu)*cg_ae(i,k,id_AIPOMM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_ASSSM_phy,inu)*piz_ae(i,k,id_ASSSM_phy,inu)*cg_ae(i,k,id_ASSSM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_CSSSM_phy,inu)*piz_ae(i,k,id_CSSSM_phy,inu)*cg_ae(i,k,id_CSSSM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_SSSSM_phy,inu)*piz_ae(i,k,id_SSSSM_phy,inu)*cg_ae(i,k,id_SSSSM_phy,inu)+ &
+                               tau_ae_pi(i,k,id_CIDUSTM_phy,inu)*piz_ae(i,k,id_CIDUSTM_phy,inu)*cg_ae(i,k,id_CIDUSTM_phy,inu))/ &
                                (tau_allaer(i,k,1,inu)*piz_allaer(i,k,1,inu))
 
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/mod_const_para.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/mod_const_para.F90	(revision 2116)
+++ 	(revision )
@@ -1,17 +1,0 @@
-MODULE mod_const_mpi
-
-  INTEGER :: COMM_LMDZ
-  INTEGER :: MPI_REAL_LMDZ
-
-!$OMP THREADPRIVATE(comm_lmdz,mpi_real_lmdz)
-
-CONTAINS 
-
-  SUBROUTINE Init_const_mpi
-  IMPLICIT NONE
-  
-    COMM_LMDZ=0
-    MPI_REAL_LMDZ=0
-  END SUBROUTINE Init_const_mpi
-
-END MODULE mod_const_mpi
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.F90	(revision 2160)
@@ -11,6 +11,7 @@
  & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
  & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,&  
- & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
- & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
+ & PTAU_LW,&
+ & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
 
 use write_field_phy
@@ -57,4 +58,5 @@
 ! PCGA_DST   : (KPROMA,KLEV,NSW); Assymetry factor for dust 
 ! PTAUREL_DST: (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
+! PTAU_LW  (KPROMA,KLEV,NLW); LW Optical depth of aerosols 
 ! PREF_LIQ (KPROMA,KLEV)        ; Liquid droplet radius (um)
 ! PREF_ICE (KPROMA,KLEV)        ; Ice crystal radius (um)
@@ -127,5 +129,5 @@
 !USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
 ! NSW mis dans .def MPL 20140211
-USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
+USE YOERAD   , ONLY : NLW, LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
  & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
  & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&  
@@ -154,4 +156,5 @@
 
 include "clesphys.h"
+!!include "clesrrtm.h"
 include "YOETHF.h"
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
@@ -192,4 +195,7 @@
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV,NSW)
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV,NSW)
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW)
+!--end
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_LIQ(KLON,KLEV)
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE(KLON,KLEV)
@@ -1101,7 +1107,8 @@
      & PTS   , PTH   , PT,&
      & ZEMIS , ZEMIW,&
-     & PQ    , PCCO2 , ZOZN  , ZCLDSW  , ZTAUCLD,&
-     & ZEMIT , PFLUX , PFLUC , ZTCLEAR &
-     & )  
+     & PQ    , PCCO2 , ZOZN  ,&
+     & ZCLDSW  , ZTAUCLD,&
+     & PTAU_LW,&
+     & ZEMIT , PFLUX , PFLUC , ZTCLEAR )
     print *,'RADLSW: apres CALL RRTM_RRTM_140GP'
 
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.intfb.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.intfb.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.intfb.h	(revision 2160)
@@ -1,19 +1,21 @@
 INTERFACE
-SUBROUTINE RADLSW&
- & ( KIDIA, KFDIA , KLON , KLEV , KMODE, KAER,&
+SUBROUTINE RADLSW &
+ & ( KIDIA, KFDIA , KLON , KLEV  , KMODE, KAER,&
  & PRII0,&
  & PAER , PALBD , PALBP, PAPH , PAP,&
  & PCCNL, PCCNO,&
- & PCCO2, PCLFR , PDP , PEMIS, PEMIW , PLSM , PMU0, POZON,&
- & PQ , PQIWP , PQLWP, PQS , PQRAIN, PRAINT,&
- & PTH , PT , PTS , PNBAS, PNTOP,&
- & PREF_LIQ , PREF_ICE,&
- & PEMIT, PFCT , PFLT , PFCS , PFLS,&
+ & PCCO2, PCLFR , PDP  , PEMIS, PEMIW , PLSM , PMU0, POZON,&
+ & PQ   , PQIWP , PQLWP, PQS  , PQRAIN, PRAINT,&
+ & PTH  , PT    , PTS  , PNBAS, PNTOP,&
+ & PREF_LIQ, PREF_ICE,&
+ & PEMIT, PFCT  , PFLT , PFCS , PFLS,&
  & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
- & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV,&
- & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
- & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+ & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,&  
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
+ & PTAU_LW,&
+ & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
+
 USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE YOERAD , ONLY : LRRTM ,LCCNL ,LCCNO, LDIFFC,&
+USE YOERAD , ONLY : NLW, LRRTM ,LCCNL ,LCCNO, LDIFFC,&
  & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
  & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&
@@ -59,4 +61,7 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW)
+!--end
 REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
 REAL(KIND=JPRB) ,INTENT(OUT) :: PFCT(KLON,KLEV+1)
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90	(revision 2160)
@@ -1,26 +1,33 @@
 ! $Id$
 !
-SUBROUTINE readaerosol_optic_rrtm(debut, new_aod, flag_aerosol, itap, rjourvrai, &
+SUBROUTINE readaerosol_optic_rrtm(debut, aerosol_couple,  &
+     new_aod, flag_aerosol, itap, rjourvrai, &
      pdtphys, pplay, paprs, t_seri, rhcl, presnivs, &
-     mass_solu_aero, mass_solu_aero_pi, &
+     tr_seri, mass_solu_aero, mass_solu_aero_pi, &
      tau_aero, piz_aero, cg_aero, &
      tausum_aero, tau3d_aero )
 
-! This routine will :
-! 1) recevie the aerosols(already read and interpolated) corresponding to flag_aerosol
-! 2) calculate the optical properties for the aerosols
-!
-  
+  ! This routine will :
+  ! 1) recevie the aerosols(already read and interpolated) corresponding to flag_aerosol
+  ! 2) calculate the optical properties for the aerosols
+  !
+
   USE dimphy
   USE aero_mod
-  USE phys_local_var_mod, only: sconcso4,sconcoa,sconcbc,sconcss,sconcdust, &
-      concso4,concoa,concbc,concss,concdust,loadso4,loadoa,loadbc,loadss,loaddust, &
-      load_tmp1,load_tmp2,load_tmp3,load_tmp4,load_tmp5,load_tmp6,load_tmp7
+  USE phys_local_var_mod, only: sconcso4,sconcno3,sconcoa,sconcbc,sconcss,sconcdust, &
+       concso4,concno3,concoa,concbc,concss,concdust,loadso4,loadoa,loadbc,loadss,loaddust, &
+       load_tmp1,load_tmp2,load_tmp3,load_tmp4,load_tmp5,load_tmp6,load_tmp7
+
+  USE infotrac
+
   IMPLICIT NONE
   include "clesphys.h"
-
-! Input arguments
-!****************************************************************************************
+  include "YOMCST.h"
+
+
+  ! Input arguments
+  !****************************************************************************************
   LOGICAL, INTENT(IN)                      :: debut
+  LOGICAL, INTENT(IN)                      :: aerosol_couple
   LOGICAL, INTENT(IN)                      :: new_aod
   INTEGER, INTENT(IN)                      :: flag_aerosol
@@ -33,7 +40,8 @@
   REAL, DIMENSION(klon,klev), INTENT(IN)   :: rhcl   ! humidite relative ciel clair
   REAL, DIMENSION(klev), INTENT(IN)        :: presnivs
-
-! Output arguments
-!****************************************************************************************
+  REAL, DIMENSION(klon,klev,nbtr), INTENT(IN) :: tr_seri ! concentration tracer
+
+  ! Output arguments
+  !****************************************************************************************
   REAL, DIMENSION(klon,klev), INTENT(OUT)     :: mass_solu_aero    ! Total mass for all soluble aerosols
   REAL, DIMENSION(klon,klev), INTENT(OUT)     :: mass_solu_aero_pi !     -"-     preindustrial values
@@ -41,23 +49,25 @@
   REAL, DIMENSION(klon,klev,2,NSW), INTENT(OUT) :: piz_aero    ! Single scattering albedo aerosol
   REAL, DIMENSION(klon,klev,2,NSW), INTENT(OUT) :: cg_aero     ! asymmetry parameter aerosol
-!  REAL, DIMENSION(klon,nwave,naero_spc), INTENT(OUT)       :: tausum_aero
-!  REAL, DIMENSION(klon,klev,nwave,naero_spc), INTENT(OUT)  :: tau3d_aero
-!--correction minibug OB
   REAL, DIMENSION(klon,nwave,naero_tot), INTENT(OUT)       :: tausum_aero
   REAL, DIMENSION(klon,klev,nwave,naero_tot), INTENT(OUT)  :: tau3d_aero
 
-! Local variables
-!****************************************************************************************
-  REAL, DIMENSION(klon)        :: aerindex ! POLDER aerosol index 
-  REAL, DIMENSION(klon,klev)   :: sulfate  ! SO4 aerosol concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: bcsol    ! BC soluble concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: bcins    ! BC insoluble concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: pomsol   ! POM soluble concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: pomins   ! POM insoluble concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: cidust    ! DUST aerosol concentration  [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: sscoarse  ! SS Coarse concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: sssupco   ! SS Super Coarse concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: ssacu     ! SS Acumulation concentration [ug/m3]
-  REAL, DIMENSION(klon,klev)   :: sulfate_pi
+  ! Local variables
+  !****************************************************************************************
+  REAL, DIMENSION(klon)        :: aerindex      ! POLDER aerosol index 
+  REAL, DIMENSION(klon,klev)   :: sulfacc       ! SO4 accumulation concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: sulfcoarse    ! SO4 coarse concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: bcsol         ! BC soluble concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: bcins         ! BC insoluble concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: pomsol        ! POM soluble concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: pomins        ! POM insoluble concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: cidust        ! DUST aerosol concentration  [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: sscoarse      ! SS Coarse concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: sssupco       ! SS Super Coarse concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: ssacu         ! SS Acumulation concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: nitracc       ! nitrate accumulation concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: nitrcoarse    ! nitrate coarse concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: nitrinscoarse ! nitrate insoluble coarse concentration [ug/m3]
+  REAL, DIMENSION(klon,klev)   :: sulfacc_pi
+  REAL, DIMENSION(klon,klev)   :: sulfcoarse_pi
   REAL, DIMENSION(klon,klev)   :: bcsol_pi
   REAL, DIMENSION(klon,klev)   :: bcins_pi
@@ -68,118 +78,228 @@
   REAL, DIMENSION(klon,klev)   :: sssupco_pi
   REAL, DIMENSION(klon,klev)   :: ssacu_pi
-  REAL, DIMENSION(klon,klev)   :: pdel
-  REAL, DIMENSION(klon,klev,naero_spc) :: m_allaer
-  REAL, DIMENSION(klon,klev,naero_spc) :: m_allaer_pi !RAF  
-!  REAL, DIMENSION(klon,naero_tot)      :: fractnat_allaer !RAF delete??
-
+  REAL, DIMENSION(klon,klev)   :: nitracc_pi
+  REAL, DIMENSION(klon,klev)   :: nitrcoarse_pi
+  REAL, DIMENSION(klon,klev)   :: nitrinscoarse_pi
+  REAL, DIMENSION(klon,klev)   :: pdel, zrho
+  REAL, DIMENSION(klon,klev,naero_tot) :: m_allaer
+  REAL, DIMENSION(klon,klev,naero_tot) :: m_allaer_pi !RAF  
+  !  REAL, DIMENSION(klon,naero_tot)      :: fractnat_allaer !RAF delete??
+  character(len=8), dimension(nbtr) :: tracname
+  integer :: id_ASBCM, id_ASPOMM, id_ASSO4M, id_ASMSAM, id_CSSO4M, id_CSMSAM, id_SSSSM
+  integer :: id_CSSSM, id_ASSSM, id_CIDUSTM, id_AIBCM, id_AIPOMM, id_ASNO3M, id_CSNO3M, id_CINO3M
   INTEGER :: k, i
-  
-!****************************************************************************************
-! 1) Get aerosol mass
-!    
-!****************************************************************************************
-! Read and interpolate sulfate
-  IF ( flag_aerosol .EQ. 1 .OR. &
-       flag_aerosol .EQ. 6 ) THEN 
-
-     CALL readaerosol_interp(id_ASSO4M, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sulfate, sulfate_pi,loadso4)
-  ELSE
-     sulfate(:,:) = 0. ; sulfate_pi(:,:) = 0.
-     loadso4=0.
-  END IF
-
-! Read and interpolate bcsol and bcins
-  IF ( flag_aerosol .EQ. 2 .OR. &
-       flag_aerosol .EQ. 6 ) THEN 
-
-     ! Get bc aerosol distribution 
-     CALL readaerosol_interp(id_ASBCM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcsol, bcsol_pi, load_tmp1 )
-     CALL readaerosol_interp(id_AIBCM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcins, bcins_pi, load_tmp2 )
-     loadbc(:)=load_tmp1(:)+load_tmp2(:)
-  ELSE
-     bcsol(:,:) = 0. ; bcsol_pi(:,:) = 0.
-     bcins(:,:) = 0. ; bcins_pi(:,:) = 0.
-     loadbc=0.
-  END IF
-
-
-! Read and interpolate pomsol and pomins
-  IF ( flag_aerosol .EQ. 3 .OR. &
-       flag_aerosol .EQ. 6 ) THEN
-
-     CALL readaerosol_interp(id_ASPOMM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3)
-     CALL readaerosol_interp(id_AIPOMM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomins, pomins_pi, load_tmp4)
-     loadoa(:)=load_tmp3(:)+load_tmp4(:)
-  ELSE
-     pomsol(:,:) = 0. ; pomsol_pi(:,:) = 0.
-     pomins(:,:) = 0. ; pomins_pi(:,:) = 0.
-     loadoa=0.
-  END IF
-
-
-! Read and interpolate csssm, ssssm, assssm
-  IF (flag_aerosol .EQ. 4 .OR. &
-      flag_aerosol .EQ. 6 ) THEN 
-
-      CALL readaerosol_interp(id_SSSSM ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5) 
-      CALL readaerosol_interp(id_CSSSM ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6) 
-      CALL readaerosol_interp(id_ASSSM ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7) 
-     loadss(:)=load_tmp5(:)+load_tmp6(:)+load_tmp7(:)
-  ELSE
-     sscoarse(:,:) = 0. ; sscoarse_pi(:,:) = 0. 
-     ssacu(:,:)    = 0. ; ssacu_pi(:,:) = 0. 
-     sssupco(:,:)  = 0. ; sssupco_pi = 0. 
-     loadss=0.
-  ENDIF
-
-! Read and interpolate cidustm
-  IF (flag_aerosol .EQ. 5 .OR.  &
-      flag_aerosol .EQ. 6 ) THEN 
-
-      CALL readaerosol_interp(id_CIDUSTM, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, cidust, cidust_pi, loaddust) 
-
-  ELSE
-      cidust(:,:) = 0. ; cidust_pi(:,:) = 0. 
-      loaddust=0.
-  ENDIF
-
-!
-! Store all aerosols in one variable
-!
-  m_allaer(:,:,id_ASBCM)  = bcsol(:,:)        ! ASBCM
-  m_allaer(:,:,id_ASPOMM) = pomsol(:,:)       ! ASPOMM
-  m_allaer(:,:,id_ASSO4M) = sulfate(:,:)      ! ASSO4M (= SO4) 
-  m_allaer(:,:,id_CSSO4M) = 0.                ! CSSO4M 
-  m_allaer(:,:,id_SSSSM)  = sssupco(:,:)      ! SSSSM
-  m_allaer(:,:,id_CSSSM)  = sscoarse(:,:)     ! CSSSM
-  m_allaer(:,:,id_ASSSM)  = ssacu(:,:)        ! ASSSM
-  m_allaer(:,:,id_CIDUSTM)= cidust(:,:)       ! CIDUSTM
-  m_allaer(:,:,id_AIBCM)  = bcins(:,:)        ! AIBCM
-  m_allaer(:,:,id_AIPOMM) = pomins(:,:)       ! AIPOMM
-
-!RAF
-  m_allaer_pi(:,:,1)  = bcsol_pi(:,:)        ! ASBCM pre-ind
-  m_allaer_pi(:,:,2)  = pomsol_pi(:,:)       ! ASPOMM pre-ind
-  m_allaer_pi(:,:,3)  = sulfate_pi(:,:)      ! ASSO4M (= SO4) pre-ind
-  m_allaer_pi(:,:,4)  = 0.                   ! CSSO4M pre-ind
-  m_allaer_pi(:,:,5)  = sssupco_pi(:,:)      ! SSSSM pre-ind
-  m_allaer_pi(:,:,6)  = sscoarse_pi(:,:)     ! CSSSM pre-ind
-  m_allaer_pi(:,:,7)  = ssacu_pi(:,:)        ! ASSSM pre-ind
-  m_allaer_pi(:,:,8)  = cidust_pi(:,:)       ! CIDUSTM pre-ind
-  m_allaer_pi(:,:,9)  = bcins_pi(:,:)        ! AIBCM pre-ind
-  m_allaer_pi(:,:,10) = pomins_pi(:,:)       ! AIPOMM pre-ind
-
-!
-! Calculate the total mass of all soluble aersosols
-!
-  mass_solu_aero(:,:)    = sulfate(:,:)    + bcsol(:,:)    + pomsol(:,:) !   + &
-!       sscoarse(:,:)    + ssacu(:,:)    + sssupco(:,:) 
-  mass_solu_aero_pi(:,:) = sulfate_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) ! + &
-!       sscoarse_pi(:,:) + ssacu_pi(:,:) + sssupco_pi(:,:)
-
-!****************************************************************************************
-! 2) Calculate optical properties for the aerosols
-!
-!****************************************************************************************
+
+  !--air density
+  zrho(:,:)=pplay(:,:)/t_seri(:,:)/RD                     !--kg/m3
+
+  !****************************************************************************************
+  ! 1) Get aerosol mass
+  !    
+  !****************************************************************************************
+  !
+  !
+  IF (aerosol_couple) THEN   !--we get aerosols from tr_seri array from INCA
+     !
+     !--copy fields from INCA tr_seri 
+     !--convert to ug m-3 unit for consistency with offline fields
+     !
+#ifdef INCA
+     call tracinca_name(tracname)
+#endif
+
+     do i=1,nbtr
+        select case(trim(tracname(i)))
+           case ("ASBCM")
+              id_ASBCM = i
+           case ("ASPOMM") 
+              id_ASPOMM = i 
+           case ("ASSO4M")
+              id_ASSO4M = i 
+           case ("ASMSAM")
+              id_ASMSAM = i 
+           case ("CSSO4M")
+              id_CSSO4M = i 
+           case ("CSMSAM")
+              id_CSMSAM = i 
+           case ("SSSSM")
+              id_SSSSM = i 
+           case ("CSSSM")
+              id_CSSSM = i 
+           case ("ASSSM")
+              id_ASSSM = i 
+           case ("CIDUSTM")
+              id_CIDUSTM = i 
+           case ("AIBCM")
+              id_AIBCM = i 
+           case ("AIPOMM")
+              id_AIPOMM = i 
+           case ("ASNO3M")
+              id_ASNO3M = i 
+           case ("CSNO3M")
+              id_CSNO3M = i 
+           case ("CINO3M")
+              id_CINO3M = i 
+           end select
+     enddo
+
+
+     bcsol(:,:)        =   tr_seri(:,:,id_ASBCM)                         *zrho(:,:)*1.e9  ! ASBCM
+     pomsol(:,:)       =   tr_seri(:,:,id_ASPOMM)                        *zrho(:,:)*1.e9  ! ASPOMM
+     sulfacc(:,:)      =  (tr_seri(:,:,id_ASSO4M)+tr_seri(:,:,id_ASMSAM))*zrho(:,:)*1.e9  ! ASSO4M (=SO4) + ASMSAM (=MSA)
+     sulfcoarse(:,:)   =  (tr_seri(:,:,id_CSSO4M)+tr_seri(:,:,id_CSMSAM))*zrho(:,:)*1.e9  ! CSSO4M (=SO4) + CSMSAM (=MSA)
+     sssupco(:,:)      =   tr_seri(:,:,id_SSSSM)                         *zrho(:,:)*1.e9  ! SSSSM
+     sscoarse(:,:)     =   tr_seri(:,:,id_CSSSM)                         *zrho(:,:)*1.e9  ! CSSSM
+     ssacu(:,:)        =   tr_seri(:,:,id_ASSSM)                         *zrho(:,:)*1.e9  ! ASSSM
+     cidust(:,:)       =   tr_seri(:,:,id_CIDUSTM)                       *zrho(:,:)*1.e9  ! CIDUSTM
+     bcins(:,:)        =   tr_seri(:,:,id_AIBCM)                         *zrho(:,:)*1.e9  ! AIBCM
+     pomins(:,:)       =   tr_seri(:,:,id_AIPOMM)                        *zrho(:,:)*1.e9  ! AIPOMM
+     nitracc(:,:)      =   tr_seri(:,:,id_ASNO3M)                        *zrho(:,:)*1.e9  ! ASNO3M
+     nitrcoarse(:,:)   =   tr_seri(:,:,id_CSNO3M)                        *zrho(:,:)*1.e9  ! CSNO3M
+     nitrinscoarse(:,:)=   tr_seri(:,:,id_CINO3M)                        *zrho(:,:)*1.e9  ! CINO3M
+     !
+     bcsol_pi(:,:)        =   0.0 ! ASBCM pre-ind
+     pomsol_pi(:,:)       =   0.0 ! ASPOMM pre-ind
+     sulfacc_pi(:,:)      =   0.0 ! ASSO4M (=SO4) + ASMSAM (=MSA) pre-ind
+     sulfcoarse_pi(:,:)   =   0.0 ! CSSO4M (=SO4) + CSMSAM (=MSA) pre-ind
+     sssupco_pi(:,:)      =   0.0 ! SSSSM pre-ind
+     sscoarse_pi(:,:)     =   0.0 ! CSSSM pre-ind
+     ssacu_pi(:,:)        =   0.0 ! ASSSM pre-ind
+     cidust_pi(:,:)       =   0.0 ! CIDUSTM pre-ind
+     bcins_pi(:,:)        =   0.0 ! AIBCM pre-ind
+     pomins_pi(:,:)       =   0.0 ! AIPOMM pre-ind
+     nitracc_pi(:,:)      =   0.0 ! ASNO3M pre-ind
+     nitrcoarse_pi(:,:)   =   0.0 ! CSNO3M pre-ind
+     nitrinscoarse_pi(:,:)=   0.0 ! CINO3M
+     !
+  ELSE !--not aerosol_couple
+     !
+     ! Read and interpolate sulfate
+     IF ( flag_aerosol .EQ. 1 .OR. &
+          flag_aerosol .EQ. 6 ) THEN 
+
+        CALL readaerosol_interp(id_ASSO4M_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sulfacc, sulfacc_pi,loadso4)
+     ELSE
+        sulfacc(:,:) = 0. ; sulfacc_pi(:,:) = 0.
+        loadso4=0.
+     END IF
+
+     ! Read and interpolate bcsol and bcins
+     IF ( flag_aerosol .EQ. 2 .OR. &
+          flag_aerosol .EQ. 6 ) THEN 
+
+        ! Get bc aerosol distribution 
+        CALL readaerosol_interp(id_ASBCM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcsol, bcsol_pi, load_tmp1 )
+        CALL readaerosol_interp(id_AIBCM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, bcins, bcins_pi, load_tmp2 )
+        loadbc(:)=load_tmp1(:)+load_tmp2(:)
+     ELSE
+        bcsol(:,:) = 0. ; bcsol_pi(:,:) = 0.
+        bcins(:,:) = 0. ; bcins_pi(:,:) = 0.
+        loadbc=0.
+     END IF
+
+
+     ! Read and interpolate pomsol and pomins
+     IF ( flag_aerosol .EQ. 3 .OR. &
+          flag_aerosol .EQ. 6 ) THEN
+
+        CALL readaerosol_interp(id_ASPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3)
+        CALL readaerosol_interp(id_AIPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomins, pomins_pi, load_tmp4)
+        loadoa(:)=load_tmp3(:)+load_tmp4(:)
+     ELSE
+        pomsol(:,:) = 0. ; pomsol_pi(:,:) = 0.
+        pomins(:,:) = 0. ; pomins_pi(:,:) = 0.
+        loadoa=0.
+     END IF
+
+
+     ! Read and interpolate csssm, ssssm, assssm
+     IF (flag_aerosol .EQ. 4 .OR. &
+          flag_aerosol .EQ. 6 ) THEN 
+
+        CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys,rjourvrai, &
+        debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5) 
+        CALL readaerosol_interp(id_CSSSM_phy ,itap, pdtphys,rjourvrai, &
+        debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6) 
+        CALL readaerosol_interp(id_ASSSM_phy ,itap, pdtphys, rjourvrai, &
+        debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7) 
+        loadss(:)=load_tmp5(:)+load_tmp6(:)+load_tmp7(:)
+     ELSE
+        sscoarse(:,:) = 0. ; sscoarse_pi(:,:) = 0. 
+        ssacu(:,:)    = 0. ; ssacu_pi(:,:) = 0. 
+        sssupco(:,:)  = 0. ; sssupco_pi = 0. 
+        loadss=0.
+     ENDIF
+
+     ! Read and interpolate cidustm
+     IF (flag_aerosol .EQ. 5 .OR.  &
+          flag_aerosol .EQ. 6 ) THEN 
+
+        CALL readaerosol_interp(id_CIDUSTM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, cidust, cidust_pi, loaddust) 
+
+     ELSE
+        cidust(:,:) = 0. ; cidust_pi(:,:) = 0. 
+        loaddust=0.
+     ENDIF
+     !
+     sulfcoarse(:,:)      =   0.0 ! CSSO4M (=SO4) + CSMSAM (=MSA) 
+     sulfcoarse_pi(:,:)   =   0.0 ! CSSO4M (=SO4) + CSMSAM (=MSA) pre-ind
+     !
+     !--placeholder for offline nitrate   
+     !
+     nitracc(:,:)         =   0.0 
+     nitracc_pi(:,:)      =   0.0 
+     nitrcoarse(:,:)      =   0.0
+     nitrcoarse_pi(:,:)   =   0.0
+     nitrinscoarse(:,:)   =   0.0
+     nitrinscoarse_pi(:,:)=   0.0
+
+  ENDIF !--not aerosol_couple
+
+  !
+  ! Store all aerosols in one variable
+  !
+  m_allaer(:,:,id_ASBCM_phy)  = bcsol(:,:)        ! ASBCM
+  m_allaer(:,:,id_ASPOMM_phy) = pomsol(:,:)       ! ASPOMM
+  m_allaer(:,:,id_ASSO4M_phy) = sulfacc(:,:)      ! ASSO4M (= SO4) 
+  m_allaer(:,:,id_CSSO4M_phy) = sulfcoarse(:,:)   ! CSSO4M 
+  m_allaer(:,:,id_SSSSM_phy)  = sssupco(:,:)      ! SSSSM
+  m_allaer(:,:,id_CSSSM_phy)  = sscoarse(:,:)     ! CSSSM
+  m_allaer(:,:,id_ASSSM_phy)  = ssacu(:,:)        ! ASSSM
+  m_allaer(:,:,id_CIDUSTM_phy)= cidust(:,:)       ! CIDUSTM
+  m_allaer(:,:,id_AIBCM_phy)  = bcins(:,:)        ! AIBCM
+  m_allaer(:,:,id_ASNO3M_phy) = nitracc(:,:)      ! ASNO3M
+  m_allaer(:,:,id_CSNO3M_phy) = nitrcoarse(:,:)   ! CSNO3M
+  m_allaer(:,:,id_CINO3M_phy) = nitrinscoarse(:,:)! CINO3M
+  m_allaer(:,:,id_AIPOMM_phy) = pomins(:,:)       ! AIPOMM
+  m_allaer(:,:,id_STRAT_phy)  = 0.0
+
+  !RAF
+  m_allaer_pi(:,:,id_ASBCM_phy)  = bcsol_pi(:,:)        ! ASBCM pre-ind
+  m_allaer_pi(:,:,id_ASPOMM_phy) = pomsol_pi(:,:)       ! ASPOMM pre-ind
+  m_allaer_pi(:,:,id_ASSO4M_phy) = sulfacc_pi(:,:)      ! ASSO4M (= SO4) pre-ind
+  m_allaer_pi(:,:,id_CSSO4M_phy) = sulfcoarse_pi(:,:)   ! CSSO4M pre-ind
+  m_allaer_pi(:,:,id_SSSSM_phy)  = sssupco_pi(:,:)      ! SSSSM pre-ind
+  m_allaer_pi(:,:,id_CSSSM_phy)  = sscoarse_pi(:,:)     ! CSSSM pre-ind
+  m_allaer_pi(:,:,id_ASSSM_phy)  = ssacu_pi(:,:)        ! ASSSM pre-ind
+  m_allaer_pi(:,:,id_CIDUSTM_phy)= cidust_pi(:,:)       ! CIDUSTM pre-ind
+  m_allaer_pi(:,:,id_AIBCM_phy)  = bcins_pi(:,:)        ! AIBCM pre-ind
+  m_allaer_pi(:,:,id_ASNO3M_phy) = nitracc_pi(:,:)      ! ASNO3M pre-ind
+  m_allaer_pi(:,:,id_CSNO3M_phy) = nitrcoarse_pi(:,:)   ! CSNO3M pre-ind
+  m_allaer_pi(:,:,id_CINO3M_phy) = nitrinscoarse_pi(:,:)! CINO3M pre-ind
+  m_allaer_pi(:,:,id_AIPOMM_phy) = pomins_pi(:,:)       ! AIPOMM pre-ind
+  m_allaer_pi(:,:,id_STRAT_phy)  = 0.0
+
+  !
+  ! Calculate the total mass of all soluble aersosols
+  ! to be revisited for AR6
+  mass_solu_aero(:,:)    = sulfacc(:,:)    + bcsol(:,:)    + pomsol(:,:)   + nitracc(:,:)   ! + & 
+  !                           sscoarse(:,:)    + ssacu(:,:)    + sssupco(:,:) 
+  mass_solu_aero_pi(:,:) = sulfacc_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + nitracc_pi(:,:) ! + &
+  !                           sscoarse_pi(:,:) + ssacu_pi(:,:) + sssupco_pi(:,:)
+
+  !****************************************************************************************
+  ! 2) Calculate optical properties for the aerosols
+  !
+  !****************************************************************************************
   DO k = 1, klev
      DO i = 1, klon
@@ -188,28 +308,31 @@
   END DO
 
+  ! aeropt_6bands for rrtm
   CALL aeropt_6bands_rrtm( &
-          pdel, m_allaer, pdtphys, rhcl, & 
-          tau_aero, piz_aero, cg_aero,   &
-          m_allaer_pi, flag_aerosol, &
-          pplay, t_seri, presnivs) 
-     
-     ! aeropt_5wv only for validation and diagnostics.
-     CALL aeropt_5wv_rrtm(                    &
-          pdel, m_allaer,                &
-          pdtphys, rhcl, aerindex,       & 
-          flag_aerosol, pplay, t_seri,   &
-          tausum_aero, tau3d_aero )
-
-! Diagnostics calculation for CMIP5 protocol
-  sconcso4(:)=m_allaer(:,1,id_ASSO4M)*1.e-9
-  sconcoa(:)=(m_allaer(:,1,id_ASPOMM)+m_allaer(:,1,id_AIPOMM))*1.e-9
-  sconcbc(:)=(m_allaer(:,1,id_ASBCM)+m_allaer(:,1,id_AIBCM))*1.e-9
-  sconcss(:)=(m_allaer(:,1,id_ASSSM)+m_allaer(:,1,id_CSSSM)+m_allaer(:,1,id_SSSSM))*1.e-9
-  sconcdust(:)=m_allaer(:,1,id_CIDUSTM)*1.e-9
-  concso4(:,:)=m_allaer(:,:,id_ASSO4M)*1.e-9
-  concoa(:,:)=(m_allaer(:,:,id_ASPOMM)+m_allaer(:,:,id_AIPOMM))*1.e-9
-  concbc(:,:)=(m_allaer(:,:,id_ASBCM)+m_allaer(:,:,id_AIBCM))*1.e-9
-  concss(:,:)=(m_allaer(:,:,id_ASSSM)+m_allaer(:,:,id_CSSSM)+m_allaer(:,:,id_SSSSM))*1.e-9
-  concdust(:,:)=m_allaer(:,:,id_CIDUSTM)*1.e-9
+       pdel, m_allaer, pdtphys, rhcl, & 
+       tau_aero, piz_aero, cg_aero,   &
+       m_allaer_pi, flag_aerosol, &
+       zrho ) 
+
+  ! aeropt_5wv only for validation and diagnostics
+  CALL aeropt_5wv_rrtm(                    &
+       pdel, m_allaer,                &
+       pdtphys, rhcl, aerindex,       & 
+       flag_aerosol, pplay, t_seri,   &
+       tausum_aero, tau3d_aero )
+
+  ! Diagnostics calculation for CMIP5 protocol
+  sconcso4(:)  =m_allaer(:,1,id_ASSO4M_phy)*1.e-9
+  sconcno3(:)  =(m_allaer(:,1,id_ASNO3M_phy)+m_allaer(:,1,id_CSNO3M_phy)+m_allaer(:,1,id_CINO3M_phy))*1.e-9
+  sconcoa(:)   =(m_allaer(:,1,id_ASPOMM_phy)+m_allaer(:,1,id_AIPOMM_phy))*1.e-9
+  sconcbc(:)   =(m_allaer(:,1,id_ASBCM_phy)+m_allaer(:,1,id_AIBCM_phy))*1.e-9
+  sconcss(:)   =(m_allaer(:,1,id_ASSSM_phy)+m_allaer(:,1,id_CSSSM_phy)+m_allaer(:,1,id_SSSSM_phy))*1.e-9
+  sconcdust(:) =m_allaer(:,1,id_CIDUSTM_phy)*1.e-9
+  concso4(:,:) =m_allaer(:,:,id_ASSO4M_phy)*1.e-9
+  concno3(:,:) =(m_allaer(:,:,id_ASNO3M_phy)+m_allaer(:,:,id_CSNO3M_phy)+m_allaer(:,:,id_CINO3M_phy))*1.e-9
+  concoa(:,:)  =(m_allaer(:,:,id_ASPOMM_phy)+m_allaer(:,:,id_AIPOMM_phy))*1.e-9
+  concbc(:,:)  =(m_allaer(:,:,id_ASBCM_phy)+m_allaer(:,:,id_AIBCM_phy))*1.e-9
+  concss(:,:)  =(m_allaer(:,:,id_ASSSM_phy)+m_allaer(:,:,id_CSSSM_phy)+m_allaer(:,:,id_SSSSM_phy))*1.e-9
+  concdust(:,:)=m_allaer(:,:,id_CIDUSTM_phy)*1.e-9
 
 END SUBROUTINE readaerosol_optic_rrtm
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90	(revision 2160)
@@ -16,7 +16,9 @@
     USE aero_mod
     USE dimphy
+    USE YOERAD   , ONLY : NLW
 
     implicit none
 
+    include "YOMCST.h"
     include "dimensions.h"
 
@@ -33,5 +35,5 @@
     real, pointer:: time(:)
     real, pointer:: lev(:)
-    integer k, band, wave
+    integer k, band, wave, i
     integer, save :: mth_pre
 
@@ -45,4 +47,6 @@
     real, allocatable:: tauaerstrat_mois_glo_bands(:,:,:)
 
+    real, allocatable:: sum_tau_aer_strat(:)
+
 ! For NetCDF:
     integer ncid_in  ! IDs for input files
@@ -50,16 +54,30 @@
 
 ! Stratospheric aerosols optical properties
-! alpha_strat over the 2 bands is normalised by the 550 nm extinction coefficient
-! alpha_strat_wave is *not* normalised by the 550 nm extinction coefficient
-    real, dimension(nbands_rrtm) :: alpha_strat, piz_strat, cg_strat
-    data alpha_strat/0.938538969, 0.990073204, 0.992904723, 0.829215884, 0.439313501, 0.156857833/
-    data cg_strat   /0.699142992, 0.716326416, 0.735462785, 0.736726701, 0.712068975, 0.575097859/
-    data piz_strat  /1.000000000, 1.000000000, 1.000000000, 1.000000000, 0.997781098, 0.452584684/
-    real, dimension(nwave) :: alpha_strat_wave
-    data alpha_strat_wave/3.36780953,3.34667683,3.20444202,3.0293026,2.82108808/
-
+! alpha_sw_strat over the 6 bands is normalised by the 550 nm extinction coefficient
+    real, dimension(nbands_sw_rrtm) :: alpha_sw_strat, piz_sw_strat, cg_sw_strat
+    data alpha_sw_strat/0.8545564, 0.8451642, 0.9821724, 0.8145110, 0.3073565, 7.7966176E-02/
+    data cg_sw_strat   /0.6997170, 0.6810035, 0.7403592, 0.7562674, 0.6676504, 0.3478689/
+    data piz_sw_strat  /0.9999998, 0.9999998, 1.000000000, 0.9999958, 0.9977155, 0.4510679/
+!
+!--diagnostics AOD in the SW
+! alpha_sw_strat_wave is *not* normalised by the 550 nm extinction coefficient
+    real, dimension(nwave) :: alpha_sw_strat_wave
+    data alpha_sw_strat_wave/3.708007,4.125824,4.136584,3.887478,3.507738/
+!
+!--diagnostics AOD in the LW at 10 um 
+    real :: alpha_lw_strat_wave
+    data alpha_lw_strat_wave/0.2746812/
+!
+    real, dimension(nbands_lw_rrtm) :: alpha_lw_abs_rrtm
+    data alpha_lw_abs_rrtm/   8.8340312E-02, 6.9856711E-02, 6.2652975E-02, 5.7188231E-02, &
+                              6.3157059E-02, 5.5072524E-02, 5.0571125E-02, 0.1349073, &    
+                              0.1381676, 9.6506312E-02, 5.1312990E-02, 2.4256418E-02, &
+                              2.7191756E-02, 3.3862915E-02, 1.6132960E-02, 1.4275438E-02/ ! calculated with Mie_SW_LW_RRTM_V2.4 (bimodal, corrected)
+                                                                                          ! for r_0=/0.13E-6, 0.41E-6/ m, sigma_g=/1.26, 1.30/
+                                                                                          ! order: increasing wavelength!
 !--------------------------------------------------------
 
     IF (.not.ALLOCATED(tau_aer_strat)) ALLOCATE(tau_aer_strat(klon,klev))
+    IF (.not.ALLOCATED(sum_tau_aer_strat)) ALLOCATE(sum_tau_aer_strat(klon))
 
     IF (is_mpi_root) THEN
@@ -67,6 +85,6 @@
     IF (debut.OR.mth_cur.NE.mth_pre) THEN
 
-    IF (nbands_rrtm.NE.6) THEN 
-        print *,'nbands_rrtm doit etre egal a 6 dans readaerosolstrat_rrtm'
+    IF (nbands_sw_rrtm.NE.6) THEN 
+        print *,'nbands_sw_rrtm doit etre egal a 6 dans readaerosolstrat_rrtm'
         STOP
     ENDIF
@@ -112,5 +130,5 @@
     ALLOCATE(tauaerstrat_mois(n_lon, n_lat, n_lev))
     ALLOCATE(tauaerstrat_mois_glo(klon_glo, n_lev))
-    ALLOCATE(tauaerstrat_mois_glo_bands(klon_glo, n_lev,nbands_rrtm))
+    ALLOCATE(tauaerstrat_mois_glo_bands(klon_glo, n_lev,nbands_sw_rrtm))
 
 !--reading stratospheric AOD at 550 nm
@@ -130,44 +148,67 @@
     CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo)
 
+    ENDIF !--is_mpi_root
+
+!--keep memory of previous month
+    mth_pre=mth_cur
+
 !--scatter on all proc
     CALL scatter(tauaerstrat_mois_glo,tau_aer_strat)
 
+    IF (is_mpi_root) THEN
+!
     DEALLOCATE(tauaerstrat)
     DEALLOCATE(tauaerstrat_mois)
     DEALLOCATE(tauaerstrat_mois_glo)
-  
-    mth_pre=mth_cur
+!
+    ENDIF !--is_mpi_root
 
     ENDIF !--debut ou nouveau mois
 
-    ENDIF !--is_mpi_root
-
-!--total vertical aod at the 5 wavelengths
+!--total vertical aod at the 5 SW wavelengths
     DO wave=1, nwave
     DO k=1, klev
-    tausum_aero(:,wave,id_strat)=tausum_aero(:,wave,id_strat)+tau_aer_strat(:,k)*alpha_strat_wave(wave)/alpha_strat_wave(2)
+    tausum_aero(:,wave,id_STRAT_phy)=tausum_aero(:,wave,id_STRAT_phy)+ &
+    tau_aer_strat(:,k)*alpha_sw_strat_wave(wave)/alpha_sw_strat_wave(2)
     ENDDO
     ENDDO
 
 !--weighted average for cg, piz and tau, adding strat aerosols on top of tropospheric ones
-    DO band=1, nbands_rrtm
-!--anthropogenic aerosols bands 1 to nbands_rrtm 
-    cg_aero_rrtm(:,:,2,band)  = ( cg_aero_rrtm(:,:,2,band)*piz_aero_rrtm(:,:,2,band)*tau_aero_rrtm(:,:,2,band) + &
-                                  cg_strat(band)*piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /        &
-                             MAX( piz_aero_rrtm(:,:,2,band)*tau_aero_rrtm(:,:,2,band) +                          &
-                                  piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:), 1.e-15 )
-    piz_aero_rrtm(:,:,2,band)  = ( piz_aero_rrtm(:,:,2,band)*tau_aero_rrtm(:,:,2,band) +                         &
-                              piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /                           &
-                              MAX( tau_aero_rrtm(:,:,2,band) + alpha_strat(band)*tau_aer_strat(:,:), 1.e-15 )
-    tau_aero_rrtm(:,:,2,band)  = tau_aero_rrtm(:,:,2,band) + alpha_strat(band)*tau_aer_strat(:,:)
-!--natural aerosols bands 1 to nbands_rrtm
-    cg_aero_rrtm(:,:,1,band)  = ( cg_aero_rrtm(:,:,1,band)*piz_aero_rrtm(:,:,1,band)*tau_aero_rrtm(:,:,1,band) + &
-                             cg_strat(band)*piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /             &
-                             MAX( piz_aero_rrtm(:,:,1,band)*tau_aero_rrtm(:,:,1,band) +                          &
-                                  piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:), 1.e-15 )
-    piz_aero_rrtm(:,:,1,band)  = ( piz_aero_rrtm(:,:,1,band)*tau_aero_rrtm(:,:,1,band) +                         & 
-                              piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /                           &
-                              MAX( tau_aero_rrtm(:,:,1,band) + alpha_strat(band)*tau_aer_strat(:,:),1.e-15 )
-    tau_aero_rrtm(:,:,1,band)  = tau_aero_rrtm(:,:,1,band) + alpha_strat(band)*tau_aer_strat(:,:)
+    DO band=1, nbands_sw_rrtm
+!--anthropogenic aerosols bands 1 to nbands_sw_rrtm 
+    cg_aero_sw_rrtm(:,:,2,band)  = ( cg_aero_sw_rrtm(:,:,2,band)*piz_aero_sw_rrtm(:,:,2,band)*tau_aero_sw_rrtm(:,:,2,band) + &
+                                  cg_sw_strat(band)*piz_sw_strat(band)*alpha_sw_strat(band)*tau_aer_strat(:,:) ) /           &
+                             MAX( piz_aero_sw_rrtm(:,:,2,band)*tau_aero_sw_rrtm(:,:,2,band) +                                &
+                                  piz_sw_strat(band)*alpha_sw_strat(band)*tau_aer_strat(:,:), 1.e-15 )
+    piz_aero_sw_rrtm(:,:,2,band)  = ( piz_aero_sw_rrtm(:,:,2,band)*tau_aero_sw_rrtm(:,:,2,band) +                            &
+                              piz_sw_strat(band)*alpha_sw_strat(band)*tau_aer_strat(:,:) ) /                                 &
+                              MAX( tau_aero_sw_rrtm(:,:,2,band) + alpha_sw_strat(band)*tau_aer_strat(:,:), 1.e-15 )
+    tau_aero_sw_rrtm(:,:,2,band)  = tau_aero_sw_rrtm(:,:,2,band) + alpha_sw_strat(band)*tau_aer_strat(:,:)
+!--natural aerosols bands 1 to nbands_sw_rrtm
+    cg_aero_sw_rrtm(:,:,1,band)  = ( cg_aero_sw_rrtm(:,:,1,band)*piz_aero_sw_rrtm(:,:,1,band)*tau_aero_sw_rrtm(:,:,1,band) + &
+                             cg_sw_strat(band)*piz_sw_strat(band)*alpha_sw_strat(band)*tau_aer_strat(:,:) ) /                &
+                             MAX( piz_aero_sw_rrtm(:,:,1,band)*tau_aero_sw_rrtm(:,:,1,band) +                                &
+                                  piz_sw_strat(band)*alpha_sw_strat(band)*tau_aer_strat(:,:), 1.e-15 )
+    piz_aero_sw_rrtm(:,:,1,band)  = ( piz_aero_sw_rrtm(:,:,1,band)*tau_aero_sw_rrtm(:,:,1,band) +                            &
+                              piz_sw_strat(band)*alpha_sw_strat(band)*tau_aer_strat(:,:) ) /                                 &
+                              MAX( tau_aero_sw_rrtm(:,:,1,band) + alpha_sw_strat(band)*tau_aer_strat(:,:),1.e-15 )
+    tau_aero_sw_rrtm(:,:,1,band)  = tau_aero_sw_rrtm(:,:,1,band) + alpha_sw_strat(band)*tau_aer_strat(:,:)
+!--no stratospheric aerosol in index 1 for these tests
+!    cg_aero_sw_rrtm(:,:,1,band)  =  cg_aero_sw_rrtm(:,:,1,band)
+!    piz_aero_sw_rrtm(:,:,1,band)  = piz_aero_sw_rrtm(:,:,1,band)
+!    tau_aero_sw_rrtm(:,:,1,band)  = tau_aero_sw_rrtm(:,:,1,band)
+    ENDDO
+
+!--stratospheric AOD in LW
+    IF (nbands_lw_rrtm .NE. NLW) then
+      print*, 'different values for NLW (=',NLW,') and nbands_lw_rrtm (=', nbands_lw_rrtm, ')'
+      STOP
+    ENDIF 
+
+    DO band=1, nbands_lw_rrtm
+    tau_aero_lw_rrtm(:,:,2,band)  = tau_aero_lw_rrtm(:,:,2,band) + alpha_lw_abs_rrtm(band)*tau_aer_strat(:,:)
+    tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,1,band) + alpha_lw_abs_rrtm(band)*tau_aer_strat(:,:) 
+!--no stratospheric aerosols in index 1 for these tests
+!    tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,1,band) 
     ENDDO
 
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/recmwf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/recmwf.F90	(revision 2116)
+++ 	(revision )
@@ -1,399 +1,0 @@
-!OPTIONS XOPT(NOEVAL)
-SUBROUTINE RECMWF (KST, KEND, KPROMA, KTDIA , KLEV,&
- & KMODE,&
- & PALBD , PALBP , PAPRS , PAPRSF , PCCO2 , PCLFR,&
- & PQO3  , PAER  , PDP   , PEMIS  , PMU0,&
- & PQ    , PQS   , PQIWP , PQLWP , PSLM   , PT    , PTS,&
- & PREF_LIQ, PREF_ICE,&
- & PEMTD , PEMTU , PTRSO,&
- & PTH   , PCTRSO, PCEMTR, PTRSOD,&
- & PLWFC, PLWFT, PSWFC, PSWFT, PSFSWDIR, PSFSWDIF,&
- & PFSDNN, PFSDNV,&  
- & PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
- & PFSDN ,PFSUP , PFSCDN , PFSCUP)
-
-!**** *RECMWF* - METEO-FRANCE RADIATION INTERFACE TO ECMWF RADIATION SCHEME
-
-!     PURPOSE.
-!     --------
-!           SIMPLE INTERFACE TO RADLSW (NO INTERPOLATION)
-
-!**   INTERFACE.
-!     ----------
-
-!     EXPLICIT ARGUMENTS :
-!        --------------------
-! KST    : START INDEX OF DATA IN KPROMA-LONG VECTOR
-! KEND   : END   INDEX OF DATA IN KPROMA-LONG VECTOR
-! KPROMA : VECTOR LENGTH
-! KTDIA  : INDEX OF TOP LEVEL FROM WHICH COMPUTATIONS ARE ACTIVE
-! KLEV   : NUMBER OF LEVELS
-! PAER   : (KPROMA,KLEV ,6)     ; OPTICAL THICKNESS OF THE AEROSOLS
-! PALBD  : (KPROMA,NSW)         ; DIFFUSE ALBEDO IN THE 2 SW INTERVALS
-! PALBP  : (KPROMA,NSW)         ; PARALLEL ALBEDO IN THE 2 SW INTERVALS
-! PAPRS  : (KPROMA,KLEV+1)      ; HALF LEVEL PRESSURE
-! PAPRSF : (KPROMA,KLEV )       ; FULL LEVEL PRESSURE
-! PCCO2  :                      ; CONCENTRATION IN CO2 (PA/PA)
-! PCLFR  : (KPROMA,KLEV )       ; CLOUD FRACTIONAL COVER
-! PQO3   : (KPROMA,KLEV )       ; OZONE MIXING RATIO (MASS)
-! PDP    : (KPROMA,KLEV)        ; LAYER PRESSURE THICKNESS
-! PEMIS  : (KPROMA)             ; SURFACE EMISSIVITY
-! PMU0   : (KPROMA)             ; SOLAR ANGLE
-! PQ     : (KPROMA,KLEV )       ; SPECIFIC HUMIDITY PA/PA
-! PQS    : (KPROMA,KLEV )       ; SATURATION SPECIFIC HUMIDITY PA/PA
-! PQIWP  : (KPROMA,KLEV )       ; ICE    WATER KG/KG
-! PQLWP  : (KPROMA,KLEV )       ; LIQUID WATER KG/KG
-! PSLM   : (KPROMA)             ; LAND-SEA MASK
-! PT     : (KPROMA,KLEV)        ; FULL LEVEL TEMPERATURE
-! PTS    : (KPROMA)             ; SURFACE TEMPERATURE
-! PPIZA_DST  : (KPROMA,KLEV,NSW); Single scattering albedo of dust 
-! PCGA_DST   : (KPROMA,KLEV,NSW); Assymetry factor for dust 
-! PTAUREL_DST: (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
-! PREF_LIQ (KPROMA,KLEV)        ; Liquid droplet radius (um)
-! PREF_ICE (KPROMA,KLEV)        ; Ice crystal radius (um)
-
-!     ==== OUTPUTS ===
-! PEMTD (KPROMA,KLEV+1)         ; TOTAL DOWNWARD LONGWAVE EMISSIVITY
-! PEMTU (KPROMA,KLEV+1)         ; TOTAL UPWARD   LONGWAVE EMISSIVITY
-! PTRSO (KPROMA,KLEV+1)         ; TOTAL SHORTWAVE TRANSMISSIVITY
-! PTH   (KPROMA,KLEV+1)         ; HALF LEVEL TEMPERATURE
-! PCTRSO(KPROMA,2)              ; CLEAR-SKY SHORTWAVE TRANSMISSIVITY
-! PCEMTR(KPROMA,2)              ; CLEAR-SKY NET LONGWAVE EMISSIVITY
-! PTRSOD(KPROMA)                ; TOTAL-SKY SURFACE SW TRANSMISSITY
-! PLWFC (KPROMA,2)              ; CLEAR-SKY LONGWAVE FLUXES
-! PLWFT (KPROMA,KLEV+1)         ; TOTAL-SKY LONGWAVE FLUXES
-! PSWFC (KPROMA,2)              ; CLEAR-SKY SHORTWAVE FLUXES
-! PSWFT (KPROMA,KLEV+1)         ; TOTAL-SKY SHORTWAVE FLUXES
-! Ajout flux LW et SW montants et descendants, et ciel clair (MPL 19.12.08)
-! PFLUX (KPROMA,2,KLEV+1)       ; LW total sky flux (1=up, 2=down)
-! PFLUC (KPROMA,2,KLEV+1)       ; LW clear sky flux (1=up, 2=down)
-! PFSDN(KPROMA,KLEV+1)          ; SW total sky flux down
-! PFSUP(KPROMA,KLEV+1)          ; SW total sky flux up
-! PFSCDN(KPROMA,KLEV+1)         ; SW clear sky flux down
-! PFSCUP(KPROMA,KLEV+1)         ; SW clear sky flux up
-
-
-!        IMPLICIT ARGUMENTS :   NONE
-!        --------------------
-
-!     METHOD.
-!     -------
-!     SEE DOCUMENTATION
-
-!     EXTERNALS.
-!     ----------
-
-!     REFERENCE.
-!     ----------
-!     ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
-
-!     AUTHORS.
-!     --------
-!     ORIGINAL BY  B. RITTER   *ECMWF*        83-10-13
-!     REWRITING FOR IFS BY J.-J. MORCRETTE    94-11-15
-!     96-11: Ph. Dandin. Meteo-France
-!     REWRITING FOR DM  BY J.PH. PIEDELIEVRE   1998-07
-!     Duplication of RFMR to use present (cy25) ECMWF radiation scheme : Y. Bouteloup 09-2003
-!     Use of 6 aerosols & introduce NSW : F. Bouyssel 09-2004
-!     04-11-18 : 4 New arguments for AROME : Y. Seity 
-!     2005-10-10 Y. Seity : 3 optional arguments for dust optical properties 
-!     JJMorcrette 20060721 PP of clear-sky PAR and TOA incident solar radiation (ECMWF)
-
-!-----------------------------------------------------------------------
-
-USE PARKIND1  ,ONLY : JPIM     ,JPRB
-USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
-
-USE YOEAERD  , ONLY : RCAEROS
-USE YOMCST   , ONLY :         RMD      ,RMO3
-USE YOMPHY3  , ONLY : RII0
-!USE YOERAD   , ONLY : NAER, NSW, RCCNLND  ,RCCNSEA  
-! NSW mis dans ;def MPL 20140211
-USE YOERAD   , ONLY : NAER, RCCNLND  ,RCCNSEA  
-USE YOERDU   , ONLY : REPSCQ
-USE YOMGEM   , ONLY : NGPTOT
-USE YOERDI   , ONLY : RRAE   ,REPCLC    ,REPH2O
-USE YOMARPHY , ONLY : LRDUST 
-
-!-----------------------------------------------------------------------
-
-!*       0.1   ARGUMENTS.
-!              ----------
-
-IMPLICIT NONE
-
-include "clesphys.h"
-INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
-INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
-INTEGER(KIND=JPIM),INTENT(IN)    :: KST 
-INTEGER(KIND=JPIM),INTENT(IN)    :: KEND 
-INTEGER(KIND=JPIM)               :: KTDIA ! Argument NOT used
-INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KPROMA,NSW) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KPROMA,NSW) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPRS(KPROMA,KLEV+1)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPRSF(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLFR(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PQO3(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KPROMA,KLEV,6) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KPROMA) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PMU0(KPROMA) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KPROMA,KLEV)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PQIWP(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PQLWP(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PSLM(KPROMA)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KPROMA,KLEV) 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KPROMA)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KPROMA,KLEV,NSW)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KPROMA,KLEV,NSW)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KPROMA,KLEV,NSW)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_LIQ(KPROMA,KLEV)
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE(KPROMA,KLEV)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMTD(KPROMA,KLEV+1) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMTU(KPROMA,KLEV+1) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRSO(KPROMA,KLEV+1) 
-REAL(KIND=JPRB)   ,INTENT(INOUT) :: PTH(KPROMA,KLEV+1)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCTRSO(KPROMA,2) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCEMTR(KPROMA,2) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRSOD(KPROMA) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PLWFC(KPROMA,2) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PLWFT(KPROMA,KLEV+1) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSWFC(KPROMA,2) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSWFT(KPROMA,KLEV+1) 
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIR(KPROMA,NSW)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIF(KPROMA,NSW)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNN(KPROMA)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNV(KPROMA)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KPROMA,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KPROMA,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDN(KPROMA,KLEV+1)   ! SW total sky flux down
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUP(KPROMA,KLEV+1)   ! SW total sky flux up
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCDN(KPROMA,KLEV+1)  ! SW clear sky flux down
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCUP(KPROMA,KLEV+1)  ! SW clear sky flux up
-
-!     ==== COMPUTED IN RADITE ===
-!     ------------------------------------------------------------------
-!*       0.2   LOCAL ARRAYS.
-!              -------------
-REAL(KIND=JPRB) :: ZRAER  (KPROMA,6,KLEV)
-REAL(KIND=JPRB) :: ZRCLC  (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZRMU0  (KPROMA)
-REAL(KIND=JPRB) :: ZRPR   (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZRTI   (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZQLWP (KPROMA,KLEV ) , ZQIWP (KPROMA,KLEV )
-
-REAL(KIND=JPRB) :: ZPQO3 (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZQOZ (NGPTOT,KLEV)
-REAL(KIND=JPRB) :: ZQS    (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZQ     (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZEMTD  (KPROMA,KLEV+1)
-REAL(KIND=JPRB) :: ZEMTU  (KPROMA,KLEV+1)
-REAL(KIND=JPRB) :: ZTRSOC (KPROMA,2)
-REAL(KIND=JPRB) :: ZEMTC  (KPROMA,2)
-
-REAL(KIND=JPRB) :: ZNBAS  (KPROMA)
-REAL(KIND=JPRB) :: ZNTOP  (KPROMA)
-REAL(KIND=JPRB) :: ZQRAIN (KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZQRAINT(KPROMA,KLEV)
-REAL(KIND=JPRB) :: ZCCNL  (KPROMA)
-REAL(KIND=JPRB) :: ZCCNO  (KPROMA)
-
-!  output of radlsw
-
-REAL(KIND=JPRB) :: ZEMIT  (KPROMA)
-REAL(KIND=JPRB) :: ZFCT   (KPROMA,KLEV+1)
-REAL(KIND=JPRB) :: ZFLT   (KPROMA,KLEV+1)
-REAL(KIND=JPRB) :: ZFCS   (KPROMA,KLEV+1)
-REAL(KIND=JPRB) :: ZFLS   (KPROMA,KLEV+1)
-REAL(KIND=JPRB) :: ZFRSOD (KPROMA),ZSUDU(KPROMA)
-REAL(KIND=JPRB) :: ZPARF  (KPROMA),ZUVDF(KPROMA),ZPARCF(KPROMA),ZTINCF(KPROMA)
-
-INTEGER(KIND=JPIM) :: IBEG, IEND, JK, JL
-
-REAL(KIND=JPRB) :: ZCRAE, ZRII0, ZEMIW(KPROMA)
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-#include "radlsw.intfb.h"
-
-IF (LHOOK) CALL DR_HOOK('RECMWF',0,ZHOOK_HANDLE)
-! print *,'RECMWF: PTS=',PTS
-IBEG=KST
-IEND=KEND
-
-!*       1.    PREPARATORY WORK
-!              ----------------
-
-!*       1.1    LOCAL CONSTANTS
-!                ---------------
-
-ZRII0=RII0
-!print *,'RECMWF: RII0 PMU0=',RII0,PMU0
-ZCRAE=RRAE*(RRAE+2.0_JPRB)
-
-!*       2.1    FULL-LEVEL QUANTITIES
-
-ZRPR =PAPRSF
-
-DO JK=1,KLEV
-  DO JL=IBEG,IEND
-!   ZPQO3(JL,JK)=PQO3(JL,JK)*PDP(JL,JK)*RMD/RMO3
-    ZPQO3(JL,JK)=PQO3(JL,JK)*PDP(JL,JK)
-    ZRCLC(JL,JK)=MAX( 0.0_JPRB ,MIN( 1.0_JPRB ,PCLFR(JL,JK)))
-    IF (ZRCLC(JL,JK) > REPCLC) THEN
-      ZQLWP(JL,JK)=PQLWP(JL,JK)
-      ZQIWP(JL,JK)=PQIWP(JL,JK)
-    ELSE
-      ZQLWP(JL,JK)=REPH2O*ZRCLC(JL,JK)
-      ZQIWP(JL,JK)=REPH2O*ZRCLC(JL,JK)
-    ENDIF
-    ZQRAIN(JL,JK)=0.
-    ZQRAINT(JL,JK)=0.
-    ZRTI(JL,JK) =PT(JL,JK)
-    ZQS (JL,JK)=MAX(2.0_JPRB*REPH2O,PQS(JL,JK))
-    ZQ  (JL,JK)=MAX(REPH2O,MIN(PQ(JL,JK),ZQS(JL,JK)*(1.0_JPRB-REPH2O)))
-    ZEMIW(JL)=PEMIS(JL)
-  ENDDO
-ENDDO
-
-IF (NAER == 0) THEN
-  ZRAER=RCAEROS
-ELSE
-  DO JK=1,KLEV
-    DO JL=IBEG,IEND
-      ZRAER(JL,1,JK)=PAER(JL,JK,1)
-      ZRAER(JL,2,JK)=PAER(JL,JK,2)
-      ZRAER(JL,3,JK)=PAER(JL,JK,3)
-      ZRAER(JL,4,JK)=PAER(JL,JK,4)
-      ZRAER(JL,5,JK)=RCAEROS
-      ZRAER(JL,6,JK)=PAER(JL,JK,6)
-    ENDDO
-  ENDDO
-ENDIF
-
-!*       2.2    HALF-LEVEL QUANTITIES
-
-DO JK=2,KLEV
-  DO JL=IBEG,IEND
-    PTH(JL,JK)=&
-     & (PT(JL,JK-1)*PAPRSF(JL,JK-1)*(PAPRSF(JL,JK)-PAPRS(JL,JK))&
-     & +PT(JL,JK)*PAPRSF(JL,JK)*(PAPRS(JL,JK)-PAPRSF(JL,JK-1)))&
-     & *(1.0_JPRB/(PAPRS(JL,JK)*(PAPRSF(JL,JK)-PAPRSF(JL,JK-1))))  
-  ENDDO
-ENDDO
-
-!*       2.3     QUANTITIES AT BOUNDARIES
-
-DO JL=IBEG,IEND
-  PTH(JL,KLEV+1)=PTS(JL)
-  PTH(JL,1)=PT(JL,1)-PAPRSF(JL,1)*(PT(JL,1)-PTH(JL,2))&
-   & /(PAPRSF(JL,1)-PAPRS(JL,2))  
-  ZNBAS(JL)=1. 
-  ZNTOP(JL)=1.
-  ZCCNL(JL)=RCCNLND
-  ZCCNO(JL)=RCCNSEA
-ENDDO
-
-!*       3.1     SOLAR ZENITH ANGLE IS EARTH'S CURVATURE
-!                CORRECTED
-
-! CCMVAL: on impose ZRMU0=PMU0 MPL 25032010
-! 2eme essai en 3D MPL 20052010
-!DO JL=IBEG,IEND
-! ZRMU0(JL)=PMU0(JL)
-!ENDDO
-!!!!! A REVOIR MPL 20091201: enleve cette correction pour comparer a AR4
- DO JL=IBEG,IEND
-   IF (PMU0(JL) > 1.E-10_JPRB) THEN
-     ZRMU0(JL)=RRAE/(SQRT(PMU0(JL)**2+ZCRAE)-PMU0(JL))
-   ELSE
-     ZRMU0(JL)= RRAE/SQRT(ZCRAE)
-   ENDIF   
-!  print *,'RECMWF CURV: JL PMU0, ZRMU0',JL,PMU0(JL),ZRMU0(JL)
- ENDDO   
-
-
-
-!*         4.1     CALL TO ACTUAL RADIATION SCHEME
-!print *,'+++++ DANS RADLSW, LRDUST ',LRDUST
-!WRITE(*,'("PPIZA_DST=",10E12.5)') (PPIZA_DST(1,JK,1),JK=1,KLEV)
-!WRITE(*,'("PCGA_DST= ",10E12.5)') (PCGA_DST(1,JK,1),JK=1,KLEV)
-!WRITE(*,'("PTAUREL_DST=",10E12.5)') (PTAUREL_DST(1,JK,1),JK=1,KLEV)
-
-CALL RADLSW (&
- & IBEG  , IEND   , KPROMA  , KLEV  , KMODE , NAER,&
- & ZRII0 ,&
- & ZRAER , PALBD  , PALBP   , PAPRS , ZRPR  ,&
- & ZCCNL , ZCCNO  ,&
- & PCCO2 , ZRCLC  , PDP     , PEMIS , ZEMIW ,PSLM    , ZRMU0 , ZPQO3,&
- & ZQ    , ZQIWP  , ZQLWP   , ZQS   , ZQRAIN,ZQRAINT ,&
- & PTH   , ZRTI   , PTS     , ZNBAS , ZNTOP ,&
- & PREF_LIQ, PREF_ICE,&
- & ZEMIT , ZFCT   , ZFLT    , ZFCS    , ZFLS  ,&
- & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
- & PSFSWDIF,PFSDNN, PFSDNV  ,&  
- & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
- & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
-
-!*         4.2     TRANSFORM FLUXES TO MODEL HISTORICAL VARIABLES
-
-DO JK=1,KLEV+1
-  DO JL=IBEG,IEND
-    PSWFT(JL,JK)=ZFLS(JL,JK)/(ZRII0*ZRMU0(JL))
-    PLWFT(JL,JK)=ZFLT(JL,JK)
-  ENDDO
-ENDDO
-
-ZEMTD=PLWFT
-ZEMTU=PLWFT
-
-DO JL=IBEG,IEND
-  ZTRSOC(JL, 1)=ZFCS(JL,     1)/(ZRII0*ZRMU0(JL))
-  ZTRSOC(JL, 2)=ZFCS(JL,KLEV+1)/(ZRII0*ZRMU0(JL))
-  ZEMTC (JL, 1)=ZFCT(JL,     1)
-  ZEMTC (JL, 2)=ZFCT(JL,KLEV+1)
-ENDDO
-
-!                 ------------ -- ------- -- ---- -----
-!*         5.1    STORAGE OF TRANSMISSIVITY AND EMISSIVITIES
-!*                IN KPROMA-LONG ARRAYS
-
-DO JK=1,KLEV+1
-  DO JL=IBEG,IEND
-    PEMTD(JL,JK)=ZEMTD(JL,JK)
-    PEMTU(JL,JK)=ZEMTU(JL,JK)
-    PTRSO(JL,JK)=MAX(0.0_JPRB,MIN(1.0_JPRB,PSWFT(JL,JK)))
-  ENDDO
-ENDDO
-DO JK=1,2
-  DO JL=IBEG,IEND
-    PCEMTR(JL,JK)=ZEMTC (JL,JK)
-    PCTRSO(JL,JK)=MAX( 0.0_JPRB,MIN(1.0_JPRB,ZTRSOC(JL,JK)))
-  ENDDO
-ENDDO
-DO JL=IBEG,IEND
-  PTRSOD(JL)=MAX(0.0_JPRB,MIN(1.0_JPRB,ZFRSOD(JL)/(ZRII0*ZRMU0(JL))))
-ENDDO
-
-!*         7.3   RECONSTRUCT FLUXES FOR DIAGNOSTICS
-
-DO JL=IBEG,IEND
-  IF (PMU0(JL) < 1.E-10_JPRB) ZRMU0(JL)=0.0_JPRB
-ENDDO
-DO JK=1,KLEV+1
-  DO JL=IBEG,IEND
-    PLWFT(JL,JK)=PEMTD(JL,JK)
-    PSWFT(JL,JK)=ZRMU0(JL)*ZRII0*PTRSO(JL,JK)
-  ENDDO
-ENDDO
-DO JK=1,2
-  DO JL=IBEG,IEND
-    PSWFC(JL,JK)=ZRMU0(JL)*ZRII0*PCTRSO(JL,JK)
-    PLWFC(JL,JK)=PCEMTR(JL,JK)
-  ENDDO
-ENDDO
-
-IF (LHOOK) CALL DR_HOOK('RECMWF',1,ZHOOK_HANDLE)
-END SUBROUTINE RECMWF
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/recmwf_aero.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/recmwf_aero.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/recmwf_aero.F90	(revision 2160)
@@ -20,4 +20,7 @@
  & PPIZA_NAT,PCGA_NAT,PTAU_NAT, & 
 !--fin OB 
+!--C.Kleinschmitt
+ & PTAU_LW_TOT, PTAU_LW_NAT, & 
+!--end
  & PFLUX,PFLUC,&
  & PFSDN ,PFSUP , PFSCDN , PFSCUP,&
@@ -27,4 +30,9 @@
  & PTOPSWAIAERO,PSOLSWAIAERO,&
  & PTOPSWCFAERO,PSOLSWCFAERO,&
+!--LW diagnostics CK
+ & PTOPLWADAERO,PSOLLWADAERO,&
+ & PTOPLWAD0AERO,PSOLLWAD0AERO,&
+ & PTOPLWAIAERO,PSOLLWAIAERO,&
+!..end
  & ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat)
 !--fin
@@ -79,4 +87,6 @@
 ! PCGA_NAT   : (KPROMA,KLEV,NSW); Assymetry factor for natural aerosol
 ! PTAU_NAT: (KPROMA,KLEV,NSW)   ; Optical depth of natural aerosol
+! PTAU_LW_TOT  (KPROMA,KLEV,NLW); LW Optical depth of total aerosols  
+! PTAU_LW_NAT  (KPROMA,KLEV,NLW); LW Optical depth of natural aerosols 
 !--fin OB
 
@@ -136,4 +146,5 @@
 USE YOMCST   , ONLY :         RMD      ,RMO3
 USE YOMPHY3  , ONLY : RII0
+USE YOERAD   , ONLY : NLW, NAER, RCCNLND  ,RCCNSEA  
 USE YOERAD   , ONLY : NAER, RCCNLND  ,RCCNSEA  
 USE YOERDU   , ONLY : REPSCQ
@@ -150,4 +161,5 @@
 IMPLICIT NONE
 INCLUDE "clesphys.h"
+
 
 INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
@@ -186,4 +198,9 @@
 REAL(KIND=JPRB)                  :: PTAU_ZERO(KPROMA,KLEV,NSW)
 !--fin
+!--C.Kleinschmitt
+REAL(KIND=JPRB)                  :: PTAU_LW_ZERO(KPROMA,KLEV,NLW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW_TOT(KPROMA,KLEV,NLW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW_NAT(KPROMA,KLEV,NLW)
+!--end
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_LIQ(KPROMA,KLEV)
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE(KPROMA,KLEV)
@@ -199,4 +216,9 @@
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPSWCFAERO(KPROMA,3), PSOLSWCFAERO(KPROMA,3) !--do we keep this ?
 !--fin
+!--CK
+REAL(KIND=JPRB)   ,INTENT(out)   :: PTOPLWADAERO(KPROMA), PSOLLWADAERO(KPROMA)       ! LW Aerosol direct forcing at TOA + surface
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPLWAD0AERO(KPROMA), PSOLLWAD0AERO(KPROMA)     ! LW Aerosol direct forcing at TOA + surface
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPLWAIAERO(KPROMA), PSOLLWAIAERO(KPROMA)       ! LW Aer. indirect forcing at TOA + surface
+!--end
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMTD(KPROMA,KLEV+1) 
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMTU(KPROMA,KLEV+1) 
@@ -295,4 +317,9 @@
 REAL(KIND=JPRB) ::  ZFSUP0_AERO(KPROMA,KLEV+1,5)
 REAL(KIND=JPRB) ::  ZFSDN0_AERO(KPROMA,KLEV+1,5)
+!--LW (CK):
+REAL(KIND=JPRB) ::  LWUP_AERO(KPROMA,KLEV+1,5)
+REAL(KIND=JPRB) ::  LWDN_AERO(KPROMA,KLEV+1,5)
+REAL(KIND=JPRB) ::  LWUP0_AERO(KPROMA,KLEV+1,5)
+REAL(KIND=JPRB) ::  LWDN0_AERO(KPROMA,KLEV+1,5)
 
 #include "radlsw.intfb.h"
@@ -313,7 +340,14 @@
 ZFSDN0_AERO(:,:,:)=0.
 
+LWUP_AERO (:,:,:)=0.
+LWDN_AERO (:,:,:)=0.
+LWUP0_AERO(:,:,:)=0.
+LWDN0_AERO(:,:,:)=0.
+
 PTAU_ZERO(:,:,:) =1.e-15
 PPIZA_ZERO(:,:,:)=1.0
 PCGA_ZERO(:,:,:) =0.0
+
+PTAU_LW_ZERO(:,:,:) =1.e-15
 
 
@@ -431,5 +465,5 @@
  & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
  & PSFSWDIF,PFSDNN, PFSDNV  ,&  
- & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PFLUX,PFLUC,&
+ & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PTAU_LW_NAT,PFLUX,PFLUC,&
  & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
 
@@ -440,4 +474,10 @@
 ZFSUP_AERO(:,:,1) =  PFSUP(:,:)
 ZFSDN_AERO(:,:,1) =  PFSDN(:,:)
+
+LWUP0_AERO(:,:,1) = PFLUC(:,1,:)
+LWDN0_AERO(:,:,1) = PFLUC(:,2,:)
+
+LWUP_AERO(:,:,1) = PFLUX(:,1,:)
+LWDN_AERO(:,:,1) = PFLUX(:,2,:)
 
 ENDIF 
@@ -463,5 +503,5 @@
  & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
  & PSFSWDIF,PFSDNN, PFSDNV  ,&  
- & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PFLUX,PFLUC,&
+ & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PTAU_LW_NAT,PFLUX,PFLUC,&
  & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
 
@@ -472,4 +512,10 @@
 ZFSUP_AERO(:,:,2) =  PFSUP(:,:)
 ZFSDN_AERO(:,:,2) =  PFSDN(:,:)
+
+LWUP0_AERO(:,:,2) = PFLUC(:,1,:)
+LWDN0_AERO(:,:,2) = PFLUC(:,2,:)
+
+LWUP_AERO(:,:,2) = PFLUX(:,1,:)
+LWDN_AERO(:,:,2) = PFLUX(:,2,:)
 
 ENDIF ! ok_aie      
@@ -495,5 +541,5 @@
  & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
  & PSFSWDIF,PFSDNN, PFSDNV  ,&  
- & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PFLUX,PFLUC,&
+ & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PTAU_LW_TOT,PFLUX,PFLUC,&
  & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
 
@@ -504,4 +550,10 @@
 ZFSUP_AERO(:,:,3) =  PFSUP(:,:)
 ZFSDN_AERO(:,:,3) =  PFSDN(:,:)
+
+LWUP0_AERO(:,:,3) = PFLUC(:,1,:)
+LWDN0_AERO(:,:,3) = PFLUC(:,2,:)
+
+LWUP_AERO(:,:,3) = PFLUX(:,1,:)
+LWDN_AERO(:,:,3) = PFLUX(:,2,:)
 
 ENDIF !-end ok_ade
@@ -527,5 +579,5 @@
  & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
  & PSFSWDIF,PFSDNN, PFSDNV  ,&  
- & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PFLUX,PFLUC,&
+ & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PTAU_LW_TOT,PFLUX,PFLUC,&
  & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
 
@@ -536,4 +588,10 @@
 ZFSUP_AERO(:,:,4) =  PFSUP(:,:)
 ZFSDN_AERO(:,:,4) =  PFSDN(:,:)
+
+LWUP0_AERO(:,:,4) = PFLUC(:,1,:)
+LWDN0_AERO(:,:,4) = PFLUC(:,2,:)
+
+LWUP_AERO(:,:,4) = PFLUX(:,1,:)
+LWDN_AERO(:,:,4) = PFLUX(:,2,:)
 
 ENDIF ! ok_ade .and. ok_aie
@@ -563,5 +621,5 @@
  & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
  & PSFSWDIF,PFSDNN, PFSDNV  ,&  
- & LRDUST,PPIZA_ZERO,PCGA_ZERO,PTAU_ZERO,PFLUX,PFLUC,&
+ & LRDUST,PPIZA_ZERO,PCGA_ZERO,PTAU_ZERO, PTAU_LW_ZERO,PFLUX,PFLUC,&
  & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
 
@@ -572,4 +630,10 @@
 ZFSUP_AERO(:,:,5) =  PFSUP(:,:)
 ZFSDN_AERO(:,:,5) =  PFSDN(:,:)
+
+LWUP0_AERO(:,:,5) = PFLUC(:,1,:)
+LWDN0_AERO(:,:,5) = PFLUC(:,2,:)
+
+LWUP_AERO(:,:,5) = PFLUX(:,1,:)
+LWDN_AERO(:,:,5) = PFLUX(:,2,:)
 
 ENDIF ! .not. AEROSOLFEEDBACK_ACTIVE
@@ -643,4 +707,9 @@
     PFSCUP(:,:) =   ZFSUP0_AERO(:,:,4)
     PFSCDN(:,:) =   ZFSDN0_AERO(:,:,4)
+
+    PFLUX(:,1,:) =  LWUP_AERO(:,:,4)
+    PFLUX(:,2,:) =  LWDN_AERO(:,:,4)
+    PFLUC(:,1,:) =  LWUP0_AERO(:,:,4)
+    PFLUC(:,2,:) =  LWDN0_AERO(:,:,4)    
   ENDIF
 
@@ -650,4 +719,9 @@
     PFSCUP(:,:) =   ZFSUP0_AERO(:,:,3)
     PFSCDN(:,:) =   ZFSDN0_AERO(:,:,3)
+
+    PFLUX(:,1,:) =  LWUP_AERO(:,:,3)
+    PFLUX(:,2,:) =  LWDN_AERO(:,:,3)
+    PFLUC(:,1,:) =  LWUP0_AERO(:,:,3)
+    PFLUC(:,2,:) =  LWDN0_AERO(:,:,3) 
   ENDIF
 
@@ -657,4 +731,9 @@
     PFSCUP(:,:) =   ZFSUP0_AERO(:,:,2)
     PFSCDN(:,:) =   ZFSDN0_AERO(:,:,2)
+
+    PFLUX(:,1,:) =  LWUP_AERO(:,:,2)
+    PFLUX(:,2,:) =  LWDN_AERO(:,:,2)
+    PFLUC(:,1,:) =  LWUP0_AERO(:,:,2)
+    PFLUC(:,2,:) =  LWDN0_AERO(:,:,2) 
   ENDiF
 
@@ -664,4 +743,9 @@
     PFSCUP(:,:) =   ZFSUP0_AERO(:,:,1)
     PFSCDN(:,:) =   ZFSDN0_AERO(:,:,1)
+
+    PFLUX(:,1,:) =  LWUP_AERO(:,:,1)
+    PFLUX(:,2,:) =  LWDN_AERO(:,:,1)
+    PFLUC(:,1,:) =  LWUP0_AERO(:,:,1)
+    PFLUC(:,2,:) =  LWDN0_AERO(:,:,1) 
   ENDIF
 
@@ -677,4 +761,9 @@
     PFSCDN(:,:) =   ZFSDN0_AERO(:,:,5)
 
+    PFLUX(:,1,:) =  LWUP_AERO(:,:,5)
+    PFLUX(:,2,:) =  LWDN_AERO(:,:,5)
+    PFLUC(:,1,:) =  LWUP0_AERO(:,:,5)
+    PFLUC(:,2,:) =  LWDN0_AERO(:,:,5) 
+
 ENDIF
 
@@ -683,5 +772,5 @@
 ! requires a natural aerosol field read and used 
 ! Difference of net fluxes from double call to radiation
-! Will need to be extended to LW radiation
+! Will need to be extended to LW radiation -> done by CK (2014-05-23)
 
 IF (flag_aerosol .GT. 0 .OR. flag_aerosol_strat) THEN
@@ -709,4 +798,14 @@
      PTOPSWCFAERO(:,3) = 0.0
 
+! LW direct anthropogenic forcing
+     PSOLLWADAERO(:)  = (-LWDN_AERO(:,1,4)      -LWUP_AERO(:,1,4))      -(-LWDN_AERO(:,1,2)      -LWUP_AERO(:,1,2))
+     PTOPLWADAERO(:)  = (-LWDN_AERO(:,KLEV+1,4) -LWUP_AERO(:,KLEV+1,4)) -(-LWDN_AERO(:,KLEV+1,2) -LWUP_AERO(:,KLEV+1,2))
+     PSOLLWAD0AERO(:) = (-LWDN0_AERO(:,1,4)     -LWUP0_AERO(:,1,4))     -(-LWDN0_AERO(:,1,2)     -LWUP0_AERO(:,1,2))
+     PTOPLWAD0AERO(:) = (-LWDN0_AERO(:,KLEV+1,4)-LWUP0_AERO(:,KLEV+1,4))-(-LWDN0_AERO(:,KLEV+1,2)-LWUP0_AERO(:,KLEV+1,2))
+
+! LW indirect anthropogenic forcing
+     PSOLLWAIAERO(:) = (-LWDN_AERO(:,1,4)     -LWUP_AERO(:,1,4))     -(-LWDN_AERO(:,1,3)     -LWUP_AERO(:,1,3))
+     PTOPLWAIAERO(:) = (-LWDN_AERO(:,KLEV+1,4)-LWUP_AERO(:,KLEV+1,4))-(-LWDN_AERO(:,KLEV+1,3)-LWUP_AERO(:,KLEV+1,3))
+
 ENDIF
 
@@ -733,4 +832,14 @@
      PTOPSWCFAERO(:,3) = 0.0
 
+! LW direct anthropogenic forcing
+     PSOLLWADAERO(:)  = (-LWDN_AERO(:,1,3)      -LWUP_AERO(:,1,3))      -(-LWDN_AERO(:,1,1)      -LWUP_AERO(:,1,1))
+     PTOPLWADAERO(:)  = (-LWDN_AERO(:,KLEV+1,3) -LWUP_AERO(:,KLEV+1,3)) -(-LWDN_AERO(:,KLEV+1,1) -LWUP_AERO(:,KLEV+1,1))
+     PSOLLWAD0AERO(:) = (-LWDN0_AERO(:,1,3)     -LWUP0_AERO(:,1,3))     -(-LWDN0_AERO(:,1,1)     -LWUP0_AERO(:,1,1))
+     PTOPLWAD0AERO(:) = (-LWDN0_AERO(:,KLEV+1,3)-LWUP0_AERO(:,KLEV+1,3))-(-LWDN0_AERO(:,KLEV+1,1)-LWUP0_AERO(:,KLEV+1,1))
+
+! LW indirect anthropogenic forcing
+     PSOLLWAIAERO(:) = 0.0
+     PTOPLWAIAERO(:) = 0.0 
+
 ENDIF
 
@@ -757,4 +866,14 @@
      PTOPSWCFAERO(:,3) = 0.0
 
+! LW direct anthropogenic forcing
+     PSOLLWADAERO(:)  = 0.0
+     PTOPLWADAERO(:)  = 0.0
+     PSOLLWAD0AERO(:) = 0.0
+     PTOPLWAD0AERO(:) = 0.0
+
+! LW indirect anthropogenic forcing
+     PSOLLWAIAERO(:) = (-LWDN_AERO(:,1,2)     -LWUP_AERO(:,1,2))     -(-LWDN_AERO(:,1,1)     -LWUP_AERO(:,1,1))
+     PTOPLWAIAERO(:) = (-LWDN_AERO(:,KLEV+1,2)-LWUP_AERO(:,KLEV+1,2))-(-LWDN_AERO(:,KLEV+1,1)-LWUP_AERO(:,KLEV+1,1))
+
 ENDIF
 
@@ -781,4 +900,14 @@
      PTOPSWCFAERO(:,3) = 0.0
 
+! LW direct anthropogenic forcing
+     PSOLLWADAERO(:)  = 0.0
+     PTOPLWADAERO(:)  = 0.0
+     PSOLLWAD0AERO(:) = 0.0
+     PTOPLWAD0AERO(:) = 0.0
+
+! LW indirect anthropogenic forcing
+     PSOLLWAIAERO(:) = 0.0 
+     PTOPLWAIAERO(:) = 0.0
+
 ENDIF
 
@@ -790,4 +919,5 @@
      PSOLSWCFAERO(:,3) = (ZFSDN_AERO(:,1,5)     -ZFSUP_AERO(:,1,5))     -(ZFSDN0_AERO(:,1,5)     -ZFSUP0_AERO(:,1,5))
      PTOPSWCFAERO(:,3) = (ZFSDN_AERO(:,KLEV+1,5)-ZFSUP_AERO(:,KLEV+1,5))-(ZFSDN0_AERO(:,KLEV+1,5)-ZFSUP0_AERO(:,KLEV+1,5))
+
 ENDIF
 
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90	(revision 2160)
@@ -10,6 +10,8 @@
  & P_ZEMIS, P_ZEMIW,&
  & pq   , pcco2, pozn, pcldf, ptaucld, ptclear,&
- & P_CLDFRAC,P_TAUCLD,P_COLDRY,P_WKL,P_WX,&
- & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT)  
+ & P_CLDFRAC,P_TAUCLD,&
+ & PTAU_LW,&
+ & P_COLDRY,P_WKL,P_WX,&
+ & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT )  
 
 !     Reformatted for F90 by JJMorcrette, ECMWF, 980714
@@ -28,15 +30,13 @@
 USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&
  & JPINPX  
-USE YOERAD   , ONLY : NOVLP
-!USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE YOERAD   , ONLY : NLW      ,NOVLP
+USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
 USE YOESW    , ONLY : RAER
 
 !------------------------------Arguments--------------------------------
 
-
-
 IMPLICIT NONE
 
-#include "clesphys.h"
+
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes) 
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers 
@@ -56,4 +56,7 @@
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDF(KLON,KLEV) ! Cloud fraction
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUCLD(KLON,KLEV,JPBAND) ! Cloud optical depth
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols  
+!--end
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTCLEAR 
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_CLDFRAC(JPLAY) ! Cloud fraction
@@ -258,4 +261,12 @@
   P_TAUAERL(I_L,16)=ZTAUAER(5)
 ENDDO
+!--Use LW AOD from own Mie calculations (C. Kleinschmitt)
+DO I_L=1,KLEV
+  JK=KLEV-I_L+1
+  DO JAE=1, NLW 
+    P_TAUAERL(I_L,JAE) = MAX( PTAU_LW(K_IPLON, JK, JAE), 1e-30 )
+  ENDDO
+ENDDO
+!--end C. Kleinschmitt
 
 DO J2=1,KLEV
@@ -390,6 +401,4 @@
 !     ------------------------------------------------------------------
 
-
-
 IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',1,ZHOOK_HANDLE)
 END SUBROUTINE RRTM_ECRT_140GP
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h	(revision 2160)
@@ -1,14 +1,19 @@
-INTERFACE
-SUBROUTINE RRTM_ECRT_140GP&
+INTERFACE 
+SUBROUTINE RRTM_ECRT_140GP &
  & ( K_IPLON, klon , klev, kcld,&
  & paer , paph , pap,&
- & pts , pth , pt,&
+ & pts  , pth  , pt,&
  & P_ZEMIS, P_ZEMIW,&
- & pq , pcco2, pozn, pcldf, ptaucld, ptclear,&
- & P_CLDFRAC,P_TAUCLD,P_COLDRY,P_WKL,P_WX,&
- & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT) 
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPLAY ,&
- & JPINPX 
+ & pq   , pcco2, pozn, pcldf, ptaucld, ptclear,&
+ & P_CLDFRAC,P_TAUCLD,&
+ & PTAU_LW,&
+ & P_COLDRY,P_WKL,P_WX,&
+ & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT )
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&
+ & JPINPX  
+USE YOERAD   , ONLY : NLW      ,NOVLP
+USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE YOESW    , ONLY : RAER
 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
@@ -28,4 +33,7 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols  
+!--end
 REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR
 REAL(KIND=JPRB) ,INTENT(OUT) :: P_CLDFRAC(JPLAY)
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90	(revision 2160)
@@ -40,4 +40,5 @@
  & PQ    , PCCO2 , POZN,&
  & PCLDF , PTAUCLD,&
+ & PTAU_LW,&
  & PEMIT , PFLUX , PFLUC, PTCLEAR &
  & )  
@@ -55,5 +56,5 @@
 USE PARKIND1  ,ONLY : JPIM     ,JPRB
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
-
+USE YOERAD    ,ONLY : NLW
 USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPGPT    ,JPLAY    ,&
  & JPINPX  
@@ -80,4 +81,7 @@
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDF(KLON,KLEV) ! Cloud fraction
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUCLD(KLON,KLEV,JPBAND) ! Cloud optical depth
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols
+!--end
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMIT(KLON) ! Surface LW emissivity
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
@@ -204,5 +208,7 @@
    & P_ZEMIS, P_ZEMIW,&
    & pq   , pcco2, pozn, pcldf, ptaucld, ztclear,&
-   & Z_CLDFRAC,Z_TAUCLD,Z_COLDRY,Z_WKL,Z_WX,&
+   & Z_CLDFRAC,Z_TAUCLD,&
+   & PTAU_LW,&
+   & Z_COLDRY,Z_WKL,Z_WX,&
    & Z_TAUAERL,Z_PAVEL,Z_TAVEL,Z_PZ,Z_TZ,Z_TBOUND,I_NLAYERS,Z_SEMISS,IREFLECT)  
 
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h	(revision 2160)
@@ -1,15 +1,18 @@
 INTERFACE
-SUBROUTINE RRTM_RRTM_140GP&
+SUBROUTINE RRTM_RRTM_140GP &
  & ( KIDIA , KFDIA , KLON , KLEV,&
- & PAER , PAPH , PAP,&
- & PTS , PTH , PT,&
+ & PAER  , PAPH  , PAP,&
+ & PTS   , PTH   , PT,&
  & P_ZEMIS , P_ZEMIW,&
- & PQ , PCCO2 , POZN,&
+ & PQ    , PCCO2 , POZN,&
  & PCLDF , PTAUCLD,&
- & PEMIT , PFLUX , PFLUC, PTCLEAR&
- & ) 
+ & PTAU_LW,&
+ & PEMIT , PFLUX , PFLUC, PTCLEAR )
 USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD   ,ONLY : NLW !--C.Kleinschmitt
 USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPGPT ,JPLAY ,&
- & JPINPX 
+ & JPINPX  
+!-NLW in clesphys now OB
+include "clesphys.h"
 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
@@ -29,4 +32,7 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
+!--C.Kleinschmitt
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols  
+!--end
 REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
 REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 2160)
@@ -105,4 +105,13 @@
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 
+
+
+REAL(KIND=JPRB)                  :: CLFNET(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: CLHTR(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: FNET(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: HTR(0:JPLAY) ! Argument NOT used
+
+
+
 !--------------------------------------------------------------------------
 ! Input
@@ -239,6 +248,8 @@
   Z_FACCMB2D(I_LEV) = 0.0_JPRB
 ENDDO  
+
 Z_RAT1 = 0.0_JPRB
 Z_RAT2 = 0.0_JPRB
+
 !_end_jjm 991209
 
@@ -280,6 +291,8 @@
       Z_FACCLR2(I_LEV+1) = 0.0_JPRB
 !-- DS_000515      
-!      FACCMB1(LEV+1) = _ZERO_
-!      FACCMB2(LEV+1) = _ZERO_
+!SB debug >>
+     Z_FACCMB1(I_LEV+1) =0.0_JPRB
+     Z_FACCMB2(I_LEV+1) =0.0_JPRB
+!SB debug <<
 !mji      ISTCLD(LEV+1) = _ZERO_
     ELSEIF (Z_CLDFRAC(I_LEV+1)  >=  Z_CLDFRAC(I_LEV)) THEN
@@ -294,5 +307,9 @@
           Z_FACCLR2(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))/&
            & (1.0_JPRB-Z_CLDFRAC(I_LEV))  
-        ENDIF   
+        ENDIF  
+!SB debug >>
+      Z_FACCLR2(I_LEV) = 0.0_JPRB
+      Z_FACCLD2(I_LEV) = 0.0_JPRB
+!SB debug <<
       ELSE
         Z_FMAX = MAX(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV-1))
@@ -315,5 +332,11 @@
         Z_RAT1 = 1.0_JPRB
         Z_RAT2 = 0.0_JPRB
+!SB debug >>
+!      ENDIF
+      ELSE
+        Z_RAT1 = 0.0_JPRB
+        Z_RAT2 = 0.0_JPRB
       ENDIF
+!SB debug <<
     ELSE
       Z_FACCLR1(I_LEV+1) = 0.0_JPRB
@@ -323,4 +346,8 @@
         Z_FACCLD1(I_LEV+1) = 0.0_JPRB
         Z_FACCLD2(I_LEV+1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV+1))/Z_CLDFRAC(I_LEV)
+!SB debug >>
+        Z_FACCLR2(I_LEV) = 0.0_JPRB
+        Z_FACCLD2(I_LEV) = 0.0_JPRB
+!SB debug <<
       ELSE
         Z_FMIN = MIN(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV-1))
@@ -337,15 +364,30 @@
         Z_RAT1 = 0.0_JPRB
         Z_RAT2 = 1.0_JPRB
+!SB debug >>
+!      ENDIF
+      ELSE 
+        Z_RAT1 = 0.0_JPRB
+        Z_RAT2 = 0.0_JPRB
       ENDIF
+!SB debug <<
     ENDIF
 !fcc
-    IF (I_LEV == 1) THEN
-      Z_FACCMB1(I_LEV+1) = 0.
-      Z_FACCMB2(I_LEV+1) = Z_FACCLD1(I_LEV+1) * Z_FACCLR2(I_LEV)
-    ELSE
-      Z_FACCMB1(I_LEV+1) = Z_FACCLR1(I_LEV+1) * Z_FACCLD2(I_LEV) *Z_CLDFRAC(I_LEV-1)
-      Z_FACCMB2(I_LEV+1) = Z_FACCLD1(I_LEV+1) * Z_FACCLR2(I_LEV) *&
-       & (1.0_JPRB - Z_CLDFRAC(I_LEV-1))   
-    ENDIF
+
+!SB debug >>
+!    IF (I_LEV == 1) THEN
+!      Z_FACCMB1(I_LEV+1) = 0.
+!      Z_FACCMB2(I_LEV+1) = Z_FACCLD1(I_LEV+1) * Z_FACCLR2(I_LEV)
+!    ELSE
+!      Z_FACCMB1(I_LEV+1) = Z_FACCLR1(I_LEV+1) * Z_FACCLD2(I_LEV) *Z_CLDFRAC(I_LEV-1)
+!      Z_FACCMB2(I_LEV+1) = Z_FACCLD1(I_LEV+1) * Z_FACCLR2(I_LEV) *&
+!       & (1.0_JPRB - Z_CLDFRAC(I_LEV-1))   
+!    ENDIF
+     if(istcld(i_lev).ne.1) then
+        z_faccmb1(i_lev+1) = max(0.,min(z_cldfrac(i_lev+1)-z_cldfrac(i_lev), &
+               z_cldfrac(i_lev-1)-z_cldfrac(i_lev)))
+        z_faccmb2(i_lev+1) = max(0.,min(z_cldfrac(i_lev)-z_cldfrac(i_lev+1), &
+               z_cldfrac(i_lev)-z_cldfrac(i_lev-1)))
+     endif
+!SB debug <<
 !end fcc
   ELSE
@@ -386,4 +428,8 @@
            & (1.0_JPRB-Z_CLDFRAC(I_LEV))  
         ENDIF
+!SB debug >>
+       z_facclr2d(i_lev)=0.0_JPRB        
+       z_faccld2d(i_lev)=0.0_JPRB
+!SB debug <<
       ELSE
         Z_FMAX = MAX(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV+1))
@@ -406,5 +452,11 @@
         Z_RAT1 = 1.0_JPRB
         Z_RAT2 = 0.0_JPRB
-      ENDIF
+!SB debug >>
+!      ENDIF
+      else 
+        Z_RAT1 = 0.0_JPRB
+        Z_RAT2 = 0.0_JPRB
+      endif       
+!SB debug <<
     ELSE
       Z_FACCLR1D(I_LEV-1) = 0.0_JPRB
@@ -414,4 +466,8 @@
         Z_FACCLD1D(I_LEV-1) = 0.0_JPRB
         Z_FACCLD2D(I_LEV-1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV-1))/Z_CLDFRAC(I_LEV)
+!SB debug >>
+        z_facclr2d(i_lev)=0.0_JPRB
+        z_faccld2d(i_lev)=0.0_JPRB
+!SB debug <<
       ELSE
         Z_FMIN = MIN(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV+1))
@@ -428,9 +484,23 @@
         Z_RAT1 = 0.0_JPRB
         Z_RAT2 = 1.0_JPRB
+!SB debug >>
+!      ENDIF
+      ELSE
+        Z_RAT1 = 0.0_JPRB
+        Z_RAT2 = 0.0_JPRB
       ENDIF
+!SB debug <<
     ENDIF
-    Z_FACCMB1D(I_LEV-1) = Z_FACCLR1D(I_LEV-1) * Z_FACCLD2D(I_LEV) *Z_CLDFRAC(I_LEV+1)
-    Z_FACCMB2D(I_LEV-1) = Z_FACCLD1D(I_LEV-1) * Z_FACCLR2D(I_LEV) *&
-     & (1.0_JPRB - Z_CLDFRAC(I_LEV+1))  
+!SB debug >>
+!    Z_FACCMB1D(I_LEV-1) = Z_FACCLR1D(I_LEV-1) * Z_FACCLD2D(I_LEV) *Z_CLDFRAC(I_LEV+1)
+!    Z_FACCMB2D(I_LEV-1) = Z_FACCLD1D(I_LEV-1) * Z_FACCLR2D(I_LEV) *&
+!     & (1.0_JPRB - Z_CLDFRAC(I_LEV+1))  
+    if (istcldd(i_lev).ne.1) then
+       z_faccmb1d(i_lev-1) = max(0.,min(z_cldfrac(i_lev+1)-z_cldfrac(i_lev), &
+                            z_cldfrac(i_lev-1)-z_cldfrac(i_lev)))
+       z_faccmb2d(i_lev-1) = max(0.,min(z_cldfrac(i_lev)-z_cldfrac(i_lev+1), &
+                    z_cldfrac(i_lev)-z_cldfrac(i_lev-1)))
+    endif
+!SB debug <<
   ELSE
     ISTCLDD(I_LEV-1) = 1
@@ -805,14 +875,14 @@
 !      TOTDFLUX(0) = TOTDFLUX(0) * FLUXFAC
 
-!      CLFNET(0) = TOTUFLUC(0) - TOTDFLUC(0)
-!      FNET(0)   = TOTUFLUX(0) - TOTDFLUX(0)
+!      CLFNET(0) = (P_TOTUFLUC(0) - P_TOTDFLUC(0))
+!      FNET(0)   = (P_TOTUFLUX(0) - P_TOTDFLUX(0))
 !      DO LEV = 1, KLEV
 !        TOTUFLUC(LEV) = TOTUFLUC(LEV) * FLUXFAC
 !        TOTDFLUC(LEV) = TOTDFLUC(LEV) * FLUXFAC
-!        CLFNET(LEV) = TOTUFLUC(LEV) - TOTDFLUC(LEV)
+!         CLFNET(LEV) =(P_TOTUFLUC(LEV) - P_TOTDFLUC(LEV))
 
 !        TOTUFLUX(LEV) = TOTUFLUX(LEV) * FLUXFAC
 !        TOTDFLUX(LEV) = TOTDFLUX(LEV) * FLUXFAC
-!        FNET(LEV) = TOTUFLUX(LEV) - TOTDFLUX(LEV)
+!        FNET(LEV) = (P_TOTUFLUX(LEV) - P_TOTDFLUX(LEV))
 !        L = LEV - 1
 
@@ -824,4 +894,6 @@
 !      HTR(KLEV)   = 0.0
 
+
+
 IF (LHOOK) CALL DR_HOOK('RRTM_RTRN1A_140GP',1,ZHOOK_HANDLE)
 END SUBROUTINE RRTM_RTRN1A_140GP
Index: LMDZ5/branches/testing/libf/phylmd/rrtm/suecrad.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/rrtm/suecrad.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/rrtm/suecrad.F90	(revision 2160)
@@ -407,5 +407,5 @@
   END SELECT
 print *,'SUECRAD: NOVLP=',NOVLP
-NLW    = 6
+NLW    = 16
 NTSW   = 14
 !NSW    = 6    !!!!! Maintenant dans config.def (MPL 20140213)
Index: LMDZ5/branches/testing/libf/phylmd/stdlevvar.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/stdlevvar.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/stdlevvar.F90	(revision 2160)
@@ -53,4 +53,5 @@
       REAL, dimension(klon), intent(out) :: u_10m, t_10m, q_10m
 !-------------------------------------------------------------------------
+      include "flux_arp.h"
       include "YOMCST.h"
 !IM PLUS
@@ -101,4 +102,12 @@
  &                   ts1, qsurf, rugos, okri, ri1,  &         
  &                   cdram, cdrah, cdran, zri1, pref)            
+! --- special Dice: on force cdragm ( a defaut de forcer ustar) MPL 05082013
+     IF (ok_prescr_ust) then
+      DO i = 1, knon
+       print *,'cdram avant=',cdram(i)
+       cdram(i) = ust*ust/speed(i)/speed(i)
+       print *,'cdram ust speed apres=',cdram(i),ust,speed
+      ENDDO
+     ENDIF
 !
 !---------Star variables----------------------------------------------------
Index: LMDZ5/branches/testing/libf/phylmd/sumethox.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/sumethox.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phylmd/sumethox.F90	(revision 2160)
@@ -0,0 +1,69 @@
+SUBROUTINE SUMETHOX
+
+!**** *SUCLDP*   - INITIALIZE MODULE YOEMETH CONTROLLING *METHOX*
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEMETH
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUMETHOX* FROM *SUPHEC*
+!              --------        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        MODULE YOEMETH
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        C.JAKOB   *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 98-04-07
+!        Modified : 02-01-29  A.Simmons: increase RQLIM from 3.75e-6
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        D. Cugnet     24-Feb-2012 Adapted for LMDZ
+!     ------------------------------------------------------------------
+
+USE YOEMETH   , ONLY : RALPHA1 ,RALPHA2  ,RQLIM   ,&
+ & RPBOTOX,  RPBOTPH ,RPTOPOX  ,RPTOPPH ,&
+ & RALPHA3,  RLOGPPH  
+
+!*       1.    SET VALUES
+!              ----------
+
+IMPLICIT NONE
+RALPHA1=(19.*LOG(10.))/(LOG(20.)**4)
+RALPHA2=LOG(1.0/3.+0.01)
+RQLIM=4.25E-6
+RPBOTOX=10000.
+RPBOTPH=20.
+RPTOPOX=50.
+RPTOPPH=0.1
+RALPHA3=0.5*(LOG(100.)+RALPHA2)
+RLOGPPH=LOG(RPTOPPH/RPBOTPH)
+
+!     -----------------------------------------------------------------
+
+END SUBROUTINE SUMETHOX
+
+
Index: LMDZ5/branches/testing/libf/phylmd/suphel.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/suphel.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/suphel.F90	(revision 2160)
@@ -192,5 +192,6 @@
   ! ------------------------------------------------------------------
 
-  ! calculer les constantes pour les fonctions thermodynamiques
+  ! *       10.   CONSTANTS FOR THERMODYNAMICAL FUNCTIONS.
+  ! ----------------------------------------
 
   rvtmp2 = rcpv/rcpd - 1.
@@ -204,4 +205,11 @@
   r5ies = r3ies*(rtt-r4ies)
 
+  ! ------------------------------------------------------------------
+
+  ! *       10.   CONSTANTS FOR METHANE OXIDATION AND PHOTOLYSIS.
+  ! -----------------------------------------------
+
+  CALL SUMETHOX()
+
   RETURN
 END SUBROUTINE suphel
Index: LMDZ5/branches/testing/libf/phylmd/surf_land_orchidee_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/surf_land_orchidee_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/surf_land_orchidee_mod.F90	(revision 2160)
@@ -614,4 +614,12 @@
           correspond(ij,jj) = igrid
        ENDDO
+!sonia : Les mailles des voisines doivent etre toutes egales (pour couplage orchidee)
+       IF (knon_glo == 1) THEN
+         igrid = 1
+         DO i = 1,8
+           neighbours_glo(igrid, i) = igrid
+         ENDDO
+       ELSE
+       print*,'sonia : knon_glo,ij,jj', knon_glo, ij,jj
        
        DO igrid = 1, knon_glo
@@ -636,4 +644,5 @@
           ENDDO
        ENDDO
+       ENDIF !fin knon_glo == 1
 
     ENDIF
Index: LMDZ5/branches/testing/libf/phylmd/surface_data.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/surface_data.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/surface_data.F90	(revision 2160)
@@ -26,3 +26,7 @@
   !$OMP THREADPRIVATE(version_ocean)
 
+  ! Pas de temps couplage atm/oce (en secondes)
+  REAL, SAVE             :: t_coupl
+  !$OMP THREADPRIVATE(t_coupl)
+
 END MODULE surface_data
Index: LMDZ5/branches/testing/libf/phylmd/thermcell_main.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/thermcell_main.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/thermcell_main.F90	(revision 2160)
@@ -876,5 +876,5 @@
    depth(:)=0.
    n2(:)=0.
-   s2(:)=0.
+   s2(:)=100. ! some low value, arbitrary
    s_max(:)=0.
 
@@ -894,5 +894,4 @@
 !!fin jyg
      else
-       s2(ig)=0.
        n2(ig)=0.
        s_max(ig)=0.
Index: LMDZ5/branches/testing/libf/phylmd/thermcell_plume.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/thermcell_plume.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/thermcell_plume.F90	(revision 2160)
@@ -7,7 +7,9 @@
      &           ztla,zqla,zqta,zha,zw2,w_est,ztva_est,zqsatth,lmix,lmix_bis,linter &
      &           ,lev_out,lunout1,igout)
+!    &           ,lev_out,lunout1,igout,zbuoy,zbuoyjam)
 !--------------------------------------------------------------------------
 !thermcell_plume: calcule les valeurs de qt, thetal et w dans l ascendance
 !--------------------------------------------------------------------------
+USE IOIPSL, ONLY : getin
 
        IMPLICIT NONE
@@ -75,29 +77,69 @@
       REAL    wmaxa(ngrid)
 
-      INTEGER ig,l,k,lt,it
+      INTEGER ig,l,k,lt,it,lm
 
       real zdz,zbuoy(ngrid,klev),zalpha,gamma(ngrid,klev),zdqt(ngrid,klev),zw2m
-      real zbuoyjam(ngrid,klev)
+      real zbuoyjam(ngrid,klev),zdqtjam(ngrid,klev)
       real zbuoybis,zdz2,zdz3,lmel,entrbis,zdzbis
-      real fact_shell
       real ztv1,ztv2,factinv,zinv,zlmel
+      real zlmelup,zlmeldwn,zlt,zltdwn,zltup
+      real atv1,atv2,btv1,btv2
       real ztv_est1,ztv_est2
       real zcor,zdelta,zcvm5,qlbef
-      real betalpha,zbetalpha
-      real eps, afact
+      real zbetalpha
+      real eps
       REAL REPS,RLvCp,DDT0
       PARAMETER (DDT0=.01)
       logical Zsat
       LOGICAL active(ngrid),activetmp(ngrid)
-      REAL fact_gamma,fact_epsilon,fact_gamma2,fact_epsilon2
+      REAL fact_gamma,fact_gamma2,fact_epsilon2
+
+      REAL, SAVE :: fact_epsilon, fact_epsilon_omp=0.002
+      REAL, SAVE :: betalpha, betalpha_omp=0.9
+      REAL, SAVE :: afact, afact_omp=2./3.
+      REAL, SAVE :: fact_shell, fact_shell_omp=1.
+      REAL,SAVE :: detr_min,detr_min_omp=1.e-5
+      REAL,SAVE :: entr_min,entr_min_omp=1.e-5
+      REAL,SAVE :: detr_q_coef,detr_q_coef_omp=0.012
+      REAL,SAVE :: detr_q_power,detr_q_power_omp=0.5
+      REAL,SAVE :: mix0,mix0_omp=0.
+
+      LOGICAL, SAVE :: first=.true.
+
       REAL c2(ngrid,klev)
+
+      if (ngrid==1) print*,'THERMCELL PLUME MODIFIE 2014/07/11'
       Zsat=.false.
 ! Initialisation
 
       RLvCp = RLVTT/RCPD
-      fact_epsilon=0.002
-      betalpha=0.9 
-      afact=2./3.    
-      fact_shell=0.85       
+      IF (first) THEN
+     !$OMP MASTER
+! FH : if ok_sync=.true. , the time axis is written at each time step
+! in the output files. Only at the end in the opposite case
+     CALL getin('thermals_fact_epsilon',fact_epsilon_omp)
+     CALL getin('thermals_betalpha',betalpha_omp)
+     CALL getin('thermals_afact',afact_omp)
+     CALL getin('thermals_fact_shell',fact_shell_omp)
+     CALL getin('thermals_detr_min',detr_min_omp)
+     CALL getin('thermals_entr_min',entr_min_omp)
+     CALL getin('thermals_detr_q_coef',detr_q_coef_omp)
+     CALL getin('thermals_detr_q_power',detr_q_power_omp)
+     CALL getin('thermals_mix0',mix0_omp)
+!    CALL getin('thermals_X',X_omp)
+!    X=X_omp
+     !$OMP END MASTER
+     !$OMP BARRIER
+     fact_epsilon=fact_epsilon_omp
+     betalpha=betalpha_omp
+     afact=afact_omp
+     fact_shell=fact_shell_omp
+     detr_min=detr_min_omp
+     entr_min=entr_min_omp
+     detr_q_coef=detr_q_coef_omp
+     detr_q_power=detr_q_power_omp
+     mix0=mix0_omp
+      first=.false.
+      ENDIF
 
       zbetalpha=betalpha/(1.+betalpha)
@@ -245,9 +287,143 @@
  
 
+!Modif AJAM
+
+        zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l) 
+        zdz=zlev(ig,l+1)-zlev(ig,l)         
+        lmel=fact_thermals_ed_dz*zlev(ig,l)
+!        lmel=0.09*zlev(ig,l)
+        zlmel=zlev(ig,l)+lmel
+        zlmelup=zlmel+(zdz/2)
+        zlmeldwn=zlmel-(zdz/2)
+
+        lt=l+1
+        zlt=zlev(ig,lt)
+        zdz3=zlev(ig,lt+1)-zlt
+        zltdwn=zlt-zdz3/2
+        zltup=zlt+zdz3/2
+         
+!=========================================================================
+! 3. Calcul de la flotabilite modifie par melange avec l'air au dessus
+!=========================================================================
+
+!--------------------------------------------------
+        if (iflag_thermals_ed.lt.8) then
+!--------------------------------------------------
+!AJ052014: J'ai remplac?? la boucle do par un do while
+! afin de faire moins de calcul dans la boucle
+!--------------------------------------------------
+            do while (zlmelup.gt.zltup)
+               lt=lt+1
+               zlt=zlev(ig,lt)
+               zdz3=zlev(ig,lt+1)-zlt
+               zltdwn=zlt-zdz3/2
+               zltup=zlt+zdz3/2        
+            enddo
+!--------------------------------------------------
+!AJ052014: Si iflag_thermals_ed<8 (par ex 6), alors
+! on cherche o?? se trouve l'altitude d'inversion 
+! en calculant ztv1 (interpolation de la valeur de 
+! theta au niveau lt en utilisant les niveaux lt-1 et
+! lt-2) et ztv2 (interpolation avec les niveaux lt+1
+! et lt+2). Si theta r??ellement calcul??e au niveau lt
+! comprise entre ztv1 et ztv2, alors il y a inversion
+! et on calcule son altitude zinv en supposant que ztv(lt)
+! est une combinaison lineaire de ztv1 et ztv2.
+! Ensuite, on calcule la flottabilite en comparant 
+! la temperature de la couche l a celle de l'air situe 
+! l+lmel plus haut, ce qui necessite de savoir quel fraction 
+! de cet air est au-dessus ou en-dessous de l'inversion   
+!--------------------------------------------------
+            atv1=(ztv(ig,lt-1)-ztv(ig,lt-2))/(zlev(ig,lt-1)-zlev(ig,lt-2))
+            btv1=(ztv(ig,lt-2)*zlev(ig,lt-1)-ztv(ig,lt-1)*zlev(ig,lt-2)) &
+    &          /(zlev(ig,lt-1)-zlev(ig,lt-2))
+            atv2=(ztv(ig,lt+2)-ztv(ig,lt+1))/(zlev(ig,lt+2)-zlev(ig,lt+1))
+            btv2=(ztv(ig,lt+1)*zlev(ig,lt+2)-ztv(ig,lt+2)*zlev(ig,lt+1)) &
+    &          /(zlev(ig,lt+2)-zlev(ig,lt+1))
+
+             ztv1=atv1*zlt+btv1
+             ztv2=atv2*zlt+btv2
+
+             if (ztv(ig,lt).gt.ztv1.and.ztv(ig,lt).lt.ztv2) then  
+
+!--------------------------------------------------
+!AJ052014: D??calage de zinv qui est entre le haut
+!          et le bas de la couche lt
+!--------------------------------------------------
+                factinv=(ztv2-ztv(ig,lt))/(ztv2-ztv1)
+                zinv=zltdwn+zdz3*factinv
+
+          
+                if (zlmeldwn.ge.zinv) then
+                   ztv_est(ig,l)=atv2*zlmel+btv2
+                   zbuoyjam(ig,l)=fact_shell*RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l) &
+    &                    +(1.-fact_shell)*zbuoy(ig,l)
+         print*,'on est pass?? par l??1',l,lt,ztv1,ztv2,ztv(ig,lt),ztv_est(ig,l),ztva_est(ig,l),ztv(ig,l), &
+   &                                   zinv,zlmelup,zbuoy(ig,l),zbuoyjam(ig,l)
+                elseif (zlmelup.ge.zinv) then
+                 ztv_est2=atv2*0.5*(zlmelup+zinv)+btv2
+                   ztv_est1=atv1*0.5*(zinv+zlmeldwn)+btv1
+                   ztv_est(ig,l)=((zlmelup-zinv)/zdz)*ztv_est2+((zinv-zlmeldwn)/zdz)*ztv_est1
+
+                   zbuoyjam(ig,l)=fact_shell*RG*(((zlmelup-zinv)/zdz)*(ztva_est(ig,l)- & 
+    &            ztv_est2)/ztv_est2+((zinv-zlmeldwn)/zdz)*(ztva_est(ig,l)- &
+    &            ztv_est1)/ztv_est1)+(1.-fact_shell)*zbuoy(ig,l)
+
+         print*,'on est pass?? par l??2',l,lt,ztv_est1,ztv_est2,ztv(ig,lt),ztv_est(ig,l),ztva_est(ig,l),ztv(ig,l), &
+   &                                   zinv,zlmelup,zbuoy(ig,l),zbuoyjam(ig,l)
+                else 
+                   ztv_est(ig,l)=atv1*zlmel+btv1
+                   zbuoyjam(ig,l)=fact_shell*RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l) & 
+    &                           +(1.-fact_shell)*zbuoy(ig,l)
+                 print*,'on est pass?? par l??3',l,lt,ztv1,ztv2,ztv(ig,lt),ztv_est(ig,l),ztva_est(ig,l),ztv(ig,l), &
+   &                                   zinv,zlmelup,zbuoy(ig,l),zbuoyjam(ig,l) 
+                endif
+
+             else ! if (ztv(ig,lt).gt.ztv1.and.ztv(ig,lt).lt.ztv2) then
+
+                if (zlmeldwn.gt.zltdwn) then
+                   zbuoyjam(ig,l)=fact_shell*RG*((ztva_est(ig,l)- & 
+    &                ztv(ig,lt))/ztv(ig,lt))+(1.-fact_shell)*zbuoy(ig,l)
+                else
+                   zbuoyjam(ig,l)=fact_shell*RG*(((zlmelup-zltdwn)/zdz)*(ztva_est(ig,l)- & 
+    &                ztv(ig,lt))/ztv(ig,lt)+((zltdwn-zlmeldwn)/zdz)*(ztva_est(ig,l)- &
+    &                ztv(ig,lt-1))/ztv(ig,lt-1))+(1.-fact_shell)*zbuoy(ig,l)
+
+                endif
+
+                 print*,'on est pass?? par l??4',l,lt,ztv1,ztv2,ztv(ig,lt),ztv(ig,l),ztva_est(ig,l), &
+   &                                   zlmelup,zbuoy(ig,l),zbuoyjam(ig,l) 
+!          zbuoyjam(ig,l)=fact_shell*RG*(((zlmelup-zltdwn)/zdz)*(ztva_est(ig,l)- & 
+!    &          ztv1)/ztv1+((zltdwn-zlmeldwn)/zdz)*(ztva_est(ig,l)- &
+!    &          ztv(ig,lt-1))/ztv(ig,lt-1))+(1.-fact_shell)*zbuoy(ig,l)
+!         zdqt(ig,l)=Max(0.,((lmel+zdz3-zdz2)/zdz3)*(zqta(ig,l-1)- & 
+!    &          po(ig,lt))/po(ig,lt)+((zdz2-lmel)/zdz3)*(zqta(ig,l-1)- &
+!     &          po(ig,lt-1))/po(ig,lt-1))
+          endif ! if (ztv(ig,lt).gt.ztv1.and.ztv(ig,lt).lt.ztv2) then
+
+        else  !   if (iflag_thermals_ed.lt.8) then
+           lt=l+1
+           zdz2=zlev(ig,lt)-zlev(ig,l)
+
+           do while (lmel.gt.zdz2)
+             lt=lt+1
+             zlt=zlev(ig,lt)
+             zdz2=zlt-zlev(ig,l)
+           enddo
+           zdz3=zlev(ig,lt+1)-zlt
+           zltdwn=zlev(ig,lt)-zdz3/2
+
+           zbuoyjam(ig,l)=1.*RG*(((lmel+zdz3-zdz2)/zdz3)*(ztva_est(ig,l)- & 
+    &          ztv(ig,lt))/ztv(ig,lt)+((zdz2-lmel)/zdz3)*(ztva_est(ig,l)- &
+    &          ztv(ig,lt-1))/ztv(ig,lt-1))+0.*zbuoy(ig,l)
+         print*,'on est pass?? par l??',l,lt,ztv(ig,lt),ztva_est(ig,l),ztv(ig,l), &
+   &                                   zbuoy(ig,l),zbuoyjam(ig,l)
+        endif !   if (iflag_thermals_ed.lt.8) then
+
 !------------------------------------------------
 !AJAM:nouveau calcul de w?  
 !------------------------------------------------
               zdz=zlev(ig,l+1)-zlev(ig,l)
-              zdzbis=zlev(ig,l+1)-zlev(ig,l-1)
+              zdzbis=zlev(ig,l)-zlev(ig,l-1)
               zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
 
@@ -256,4 +432,9 @@
               zdw2=afact*zbuoy(ig,l)/fact_epsilon
               zdw2bis=afact*zbuoy(ig,l-1)/fact_epsilon
+              lm=Max(1,l-2)
+!              zdw2=(afact/fact_epsilon)*((zdz/zdzbis)*zbuoy(ig,l) &
+!    &              +((zdzbis-zdz)/zdzbis)*zbuoy(ig,l-1)) 
+!              zdw2bis=(afact/fact_epsilon)*((zdz/zdzbis)*zbuoy(ig,l-1) &
+!    &              +((zdzbis-zdz)/zdzbis)*zbuoy(ig,l-1))
 !             w_est(ig,l+1)=Max(0.0001,exp(-zw2fact)*(w_est(ig,l)-zdw2)+zdw2)
 !             w_est(ig,l+1)=(zdz/zdzbis)*Max(0.0001,exp(-zw2fact)* &
@@ -267,13 +448,31 @@
          if (iflag_thermals_ed==8) then
 ! Ancienne version
-             w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
-    &                     (w_est(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
-    &                     (exp(-zw2factbis)*(w_est(ig,l-1)-zdw2bis)+zdw2))
- 
+!             w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
+!    &                     (w_est(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
+!    &                     (exp(-zw2factbis)*(w_est(ig,l-1)-zdw2bis)+zdw2))
+
+	    w_est(ig,l+1)=Max(0.0001,exp(-zw2fact)*(w_est(ig,l)-zdw2bis)+zdw2)
+
 ! Nouvelle version Arnaud
          else
-              w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
-    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
-    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
+!             w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
+!    &                     (w_est(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
+!    &                     (exp(-zw2factbis)*(w_est(ig,l-1)-zdw2bis)+zdw2))
+
+	    w_est(ig,l+1)=Max(0.0001,exp(-zw2fact)*(w_est(ig,l)-zdw2bis)+zdw2)
+
+!             w_est(ig,l+1)=Max(0.0001,(zdz/(zdzbis+zdz))*(exp(-zw2fact)* &
+!    &                     (w_est(ig,l)-zdw2bis)+zdw2)+(zdzbis/(zdzbis+zdz))* &
+!    &                     (exp(-zw2factbis)*(w_est(ig,l-1)-zdw2bis)+zdw2bis))
+
+
+
+!            w_est(ig,l+1)=Max(0.0001,(w_est(ig,l)+zdw2bis*zw2fact)*exp(-zw2fact))
+
+!             w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(zw2(ig,l)+zdw2*zw2fact)*exp(-zw2fact)+ &
+!    &                      (zdzbis-zdz)/zdzbis*(zw2(ig,l-1)+zdw2bis*zw2factbis)*exp(-zw2factbis))
+
+!             w_est(ig,l+1)=Max(0.0001,exp(-zw2factbis)*(w_est(ig,l-1)-zdw2bis)+zdw2)
+
          endif
 
@@ -288,7 +487,12 @@
               zdw2=afact*zbuoy(ig,l)/fact_epsilon
               zdw2bis=afact*zbuoy(ig,l-1)/fact_epsilon
-              w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
-    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
-    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
+!              w_est(ig,l+1)=Max(0.0001,(zw2(ig,l)+zdw2*zw2fact)*exp(-zw2fact))
+
+!              w_est(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
+!    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
+!    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
+
+	    w_est(ig,l+1)=Max(0.0001,exp(-zw2fact)*(w_est(ig,l)-zdw2bis)+zdw2)
+
 
          endif
@@ -296,5 +500,5 @@
 !AJ052014: J'ai comment? ce if plus n?cessaire puisqu'
 !on fait max(0.0001,.....)
-!--------------------------------------------------	 
+!--------------------------------------------------         
 
 !             if (w_est(ig,l+1).lt.0.) then
@@ -331,144 +535,47 @@
 !    &     afact*zbuoybis/zw2m - fact_epsilon )
 
-!Modif AJAM
-          
-	lmel=fact_thermals_ed_dz*zlev(ig,l)
-        zlmel=zlev(ig,l)+lmel
-!        lmel=2.5*(zlev(ig,l)-zlev(ig,l-1))
-        lt=l+1
-        zdz2=zlev(ig,lt)-zlev(ig,l)
-!--------------------------------------------------
-!AJ052014: J'ai remplac? la boucle do par un do while
-! afin de faire moins de calcul dans la boucle
-!--------------------------------------------------
-         do while (zdz2.lt.lmel)
-         lt=lt+1
-         zdz2=zlev(ig,lt)-zlev(ig,l)
-         end do
-
-         zdz3=zlev(ig,lt)-zlev(ig,lt-1) 
-
-!--------------------------------------------------
-!AJ052014: Si iflag_thermals_ed<8 (par ex 6), alors
-! on cherche o? se trouve l'altitude d'inversion 
-! en calculant ztv1 (interpolation de la valeur de 
-! theta au niveau lt en utilisant les niveaux lt-1 et
-! lt-2) et ztv2 (interpolation avec les niveaux lt+1
-! et lt+2). Si theta r?ellement calcul?e au niveau lt
-! comprise entre ztv1 et ztv2, alors il y a inversion
-! et on calcule son altitude zinv en supposant que ztv(lt)
-! est une combinaison lin?aire de ztv1 et ztv2.
-! Ensuite, on calcule la flottabilit? en comparant 
-! la temp?rature de la couche l ? celle de l'air situ? 
-! l+lmel plus haut, ce qui n?cessite de savoir quel fraction 
-! de cet air est au-dessus ou en-dessous de l'inversion   
-!--------------------------------------------------
-
-
-	 if (iflag_thermals_ed.lt.8) then
-
-          ztv1=(ztv(ig,lt-1)-ztv(ig,lt-2))*zlev(ig,lt)/(zlev(ig,lt-1)-zlev(ig,lt-2)) &
-    &          +(ztv(ig,lt-2)*zlev(ig,lt-1)-ztv(ig,lt-1)*zlev(ig,lt-2)) &
-    &          /(zlev(ig,lt-1)-zlev(ig,lt-2))
-
-          ztv2=(ztv(ig,lt+2)-ztv(ig,lt+1))*zlev(ig,lt)/(zlev(ig,lt+2)-zlev(ig,lt+1)) &
-    &          +(ztv(ig,lt+1)*zlev(ig,lt+2)-ztv(ig,lt+2)*zlev(ig,lt+1)) &
-    &          /(zlev(ig,lt+2)-zlev(ig,lt+1))
-
-          if (ztv(ig,lt).gt.ztv1.and.ztv(ig,lt).lt.ztv2) then  
-
-	  factinv=(ztv2-ztv(ig,lt))/(ztv2-ztv1)
-          zinv=zlev(ig,lt-1)+factinv*(zlev(ig,lt)-zlev(ig,lt-1))
-
-	  if (zlmel+0.5*zdz.ge.zinv) then
-           if (zlmel-0.5*zdz.ge.zinv) then
-
-          ztv_est(ig,l)=(ztv(ig,lt+2)-ztv(ig,lt+1))*(zlmel-0.*zdz)/(zlev(ig,lt+2)-zlev(ig,lt+1)) &
-    &          +(ztv(ig,lt+1)*zlev(ig,lt+2)-ztv(ig,lt+2)*zlev(ig,lt+1)) &
-    &          /(zlev(ig,lt+2)-zlev(ig,lt+1))
-
-          zbuoyjam(ig,l)=fact_shell*RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l)+(1.-fact_shell)*zbuoy(ig,l)
-
-          else
-
-	  ztv_est1=(ztv(ig,lt+2)-ztv(ig,lt+1))*0.5*(zlmel+zinv+0.5*zdz)/(zlev(ig,lt+2)-zlev(ig,lt+1)) &
-    &          +(ztv(ig,lt+1)*zlev(ig,lt+2)-ztv(ig,lt+2)*zlev(ig,lt+1)) &
-    &          /(zlev(ig,lt+2)-zlev(ig,lt+1))
-          ztv_est2=(ztv(ig,lt-1)-ztv(ig,lt-2))*0.5*(zinv+zlmel-0.5*zdz)/(zlev(ig,lt-1)-zlev(ig,lt-2)) &
-    &          +(ztv(ig,lt-2)*zlev(ig,lt-1)-ztv(ig,lt-1)*zlev(ig,lt-2)) &
-    &          /(zlev(ig,lt-1)-zlev(ig,lt-2))
-          zbuoyjam(ig,l)=fact_shell*RG*(((zlmel+0.5*zdz-zinv)/zdz)*(ztva_est(ig,l)- & 
-    &          ztv_est1)/ztv_est1+((zinv-zlmel+0.5*zdz)/zdz)*(ztva_est(ig,l)- &
-    &          ztv_est2)/ztv_est2)+(1.-fact_shell)*zbuoy(ig,l)
-
-           endif
-
-          else 
-
-          ztv_est(ig,l)=(ztv(ig,lt-1)-ztv(ig,lt-2))*(zlmel-0.*zdz)/(zlev(ig,lt-1)-zlev(ig,lt-2)) &
-    &          +(ztv(ig,lt-2)*zlev(ig,lt-1)-ztv(ig,lt-1)*zlev(ig,lt-2)) &
-    &          /(zlev(ig,lt-1)-zlev(ig,lt-2))
-
-          zbuoyjam(ig,l)=fact_shell*RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l)+(1.-fact_shell)*zbuoy(ig,l)
-!	  ztv_est1=(ztv(ig,lt+2)-ztv(ig,lt+1))*0.5*(zlmel+zinv+0.5*zdz)/(zlev(ig,lt+2)-zlev(ig,lt+1)) &
-!    &          +(ztv(ig,lt+1)*zlev(ig,lt+2)-ztv(ig,lt+2)*zlev(ig,lt+1)) &
-!    &          /(zlev(ig,lt+2)-zlev(ig,lt+1))
-!          ztv_est2=(ztv(ig,lt-1)-ztv(ig,lt-2))*0.5*(zinv+zlmel-0.5*zdz)/(zlev(ig,lt-1)-zlev(ig,lt-2)) &
-!    &          +(ztv(ig,lt-2)*zlev(ig,lt-1)-ztv(ig,lt-1)*zlev(ig,lt-2)) &
-!    &          /(zlev(ig,lt-1)-zlev(ig,lt-2))
-!          zbuoyjam(ig,l)=fact_shell*RG*(((zlmel+0.5*zdz-zinv)/zdz)*(ztva_est(ig,l)- & 
-!    &          ztv_est1)/ztv_est1+((zinv-zlmel+0.5*zdz)/zdz)*(ztva_est(ig,l)- &
-!    &          ztv_est2)/ztv_est2)+(1.-fact_shell)*zbuoy(ig,l)
-
-
-
-
-!          print*,'on est pass? par l?',l,lt,zbuoyjam(ig,l),zbuoy(ig,l)
-          endif
-
-
-          else
-          
-!          ztv_est(ig,l)=(lmel/zdz2)*(ztv(ig,lt)-ztv(ig,l))+ztv(ig,l)
-!          zbuoyjam(ig,l)=RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l)
-
-         zbuoyjam(ig,l)=fact_shell*RG*(((lmel+zdz3-zdz2)/zdz3)*(ztva_est(ig,l)- & 
-    &          ztv(ig,lt))/ztv(ig,lt)+((zdz2-lmel)/zdz3)*(ztva_est(ig,l)- &
-    &          ztv(ig,lt-1))/ztv(ig,lt-1))+(1.-fact_shell)*zbuoy(ig,l)
-
-!         zdqt(ig,l)=Max(0.,((lmel+zdz3-zdz2)/zdz3)*(zqta(ig,l-1)- & 
-!    &          po(ig,lt))/po(ig,lt)+((zdz2-lmel)/zdz3)*(zqta(ig,l-1)- &
-!     &          po(ig,lt-1))/po(ig,lt-1))
-
-	  endif
-
-          else
-
-         zbuoyjam(ig,l)=1.*RG*(((lmel+zdz3-zdz2)/zdz3)*(ztva_est(ig,l)- & 
-    &          ztv(ig,lt))/ztv(ig,lt)+((zdz2-lmel)/zdz3)*(ztva_est(ig,l)- &
-    &          ztv(ig,lt-1))/ztv(ig,lt-1))+0.*zbuoy(ig,l)
-
-	  endif
-          
+
 
 !          zbuoyjam(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
+
+!=========================================================================
+! 4. Calcul de l'entrainement et du detrainement
+!=========================================================================
 
 !          entr_star(ig,l)=f_star(ig,l)*zdz*zbetalpha*MAX(0.,  &
 !    &     afact*zbuoyjam(ig,l)/zw2m - fact_epsilon ) 
-
 !          entrbis=entr_star(ig,l)
 
-	  if (iflag_thermals_ed.lt.6) then
+          if (iflag_thermals_ed.lt.6) then
           fact_epsilon=0.0002/(zalpha+0.1)
-	  endif
+          endif
+          
+
 
           detr_star(ig,l)=f_star(ig,l)*zdz             &
-    &     *MAX(1.e-4, -afact*zbetalpha*zbuoyjam(ig,l)/zw2m          &
-    &     + 0.012*(zdqt(ig,l)/zw2m)**0.5)
+    &     *( mix0 * 0.1 / (zalpha+0.001)               &
+    &     + MAX(detr_min, -afact*zbetalpha*zbuoyjam(ig,l)/zw2m   &
+    &     + detr_q_coef*(zdqt(ig,l)/zw2m)**detr_q_power))
+
+!	  detr_star(ig,l)=(zdz/zdzbis)*detr_star(ig,l)+ &
+!    &			  ((zdzbis-zdz)/zdzbis)*detr_star(ig,l-1)
 
           zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
 
-          entr_star(ig,l)=f_star(ig,l)*zdz*zbetalpha*MAX(0.,  &
-    &     afact*zbuoy(ig,l)/zw2m - fact_epsilon)
+          entr_star(ig,l)=f_star(ig,l)*zdz* (         &
+    &       mix0 * 0.1 / (zalpha+0.001)               &
+    &     + zbetalpha*MAX(entr_min,                   &
+    &     afact*zbuoyjam(ig,l)/zw2m - fact_epsilon ))
+
+
+!          entr_star(ig,l)=f_star(ig,l)*zdz* (         &
+!    &       mix0 * 0.1 / (zalpha+0.001)               &
+!    &     + MAX(entr_min,                   &
+!    &     zbetalpha*afact*zbuoyjam(ig,l)/zw2m - fact_epsilon +  & 
+!    &     detr_q_coef*(zdqt(ig,l)/zw2m)**detr_q_power))
+
+
+!	  entr_star(ig,l)=(zdz/zdzbis)*entr_star(ig,l)+ &
+!    &			  ((zdzbis-zdz)/zdzbis)*entr_star(ig,l-1)
 
 !          entr_star(ig,l)=Max(0.,f_star(ig,l)*zdz*zbetalpha*  &     
@@ -487,5 +594,5 @@
 !        endif
 
-!	print*,'alim0',zlev(ig,l),entr_star(ig,l),detr_star(ig,l),zw2m,zbuoy(ig,l),f_star(ig,l)
+!        print*,'alim0',zlev(ig,l),entr_star(ig,l),detr_star(ig,l),zw2m,zbuoy(ig,l),f_star(ig,l)
 ! Calcul du flux montant normalise
       f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)+entr_star(ig,l)  &
@@ -496,7 +603,8 @@
 
 
-!----------------------------------------------------------------------------
-!calcul de la vitesse verticale en melangeant Tl et qt du thermique
-!---------------------------------------------------------------------------
+!============================================================================
+! 5. calcul de la vitesse verticale en melangeant Tl et qt du thermique
+!===========================================================================
+
    activetmp(:)=active(:) .and. f_star(:,l+1)>1.e-10
    do ig=1,ngrid
@@ -528,17 +636,30 @@
            zbuoy(ig,l)=RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)
            zdz=zlev(ig,l+1)-zlev(ig,l)
-           zdzbis=zlev(ig,l+1)-zlev(ig,l-1)
+           zdzbis=zlev(ig,l)-zlev(ig,l-1)
            zeps(ig,l)=(entr_star(ig,l)+alim_star(ig,l))/(f_star(ig,l)*zdz)
-           fact_epsilon=0.002
+!!!!!!!          fact_epsilon=0.002
             zw2fact=fact_epsilon*2.*zdz/(1.+betalpha)
             zw2factbis=fact_epsilon*2.*zdzbis/(1.+betalpha)
             zdw2= afact*zbuoy(ig,l)/(fact_epsilon)
             zdw2bis= afact*zbuoy(ig,l-1)/(fact_epsilon)
-!            zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2)+zdw2) 
-            zw2(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
-    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
-    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
-
-	   if (iflag_thermals_ed.lt.6) then
+!              zdw2=(afact/fact_epsilon)*((zdz/zdzbis)*zbuoy(ig,l) &
+!    &              +((zdzbis-zdz)/zdzbis)*zbuoy(ig,l-1)) 
+!              lm=Max(1,l-2)
+!              zdw2bis=(afact/fact_epsilon)*((zdz/zdzbis)*zbuoy(ig,l-1) &
+!    &              +((zdzbis-zdz)/zdzbis)*zbuoy(ig,l-1))
+!            zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2bis)+zdw2)
+!            zw2(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(zw2(ig,l)+zdw2*zw2fact)*exp(-zw2fact)+ &
+!     &                   (zdzbis-zdz)/zdzbis*(zw2(ig,l-1)+zdw2bis*zw2factbis)*exp(-zw2factbis))
+!            zw2(ig,l+1)=Max(0.0001,(zw2(ig,l)+zdw2*zw2fact)*exp(-zw2fact))
+!            zw2(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
+!    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
+!    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
+	    zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2bis)+zdw2)
+!            zw2(ig,l+1)=Max(0.0001,(zdz/(zdz+zdzbis))*(exp(-zw2fact)* &
+!    &                     (zw2(ig,l)-zdw2bis)+zdw2)+(zdzbis/(zdz+zdzbis))* &
+!    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2bis))
+
+
+           if (iflag_thermals_ed.lt.6) then
            zalpha=f0(ig)*f_star(ig,l)/sqrt(zw2(ig,l+1))/rhobarz(ig,l)
 !           fact_epsilon=0.0005/(zalpha+0.025)**0.5
@@ -550,9 +671,11 @@
             zdw2bis= afact*zbuoy(ig,l-1)/(fact_epsilon)
 
-            zw2(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
-    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
-    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
-
-	   endif
+!            zw2(ig,l+1)=Max(0.0001,(zdz/zdzbis)*(exp(-zw2fact)* &
+!    &                     (zw2(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
+!    &                     (exp(-zw2factbis)*(zw2(ig,l-1)-zdw2bis)+zdw2))
+!            zw2(ig,l+1)=Max(0.0001,(zw2(ig,l)+zdw2*zw2fact)*exp(-zw2fact))
+	    zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2bis)+zdw2)
+
+           endif
 
 
@@ -562,7 +685,7 @@
         if (prt_level.ge.20) print*,'coucou calcul detr 460: ig, l',ig, l
 !
-!---------------------------------------------------------------------------
-!initialisations pour le calcul de la hauteur du thermique, de l'inversion et de la vitesse verticale max 
-!---------------------------------------------------------------------------
+!===========================================================================
+! 6. initialisations pour le calcul de la hauteur du thermique, de l'inversion et de la vitesse verticale max 
+!===========================================================================
 
    nbpb=0
@@ -683,4 +806,5 @@
 &           ztla,zqla,zqta,zha,zw2,w_est,ztva_est,zqsatth,lmix,lmix_bis,linter &
 &           ,lev_out,lunout1,igout)
+!&           ,lev_out,lunout1,igout,zbuoy,zbuoyjam)
 
 !--------------------------------------------------------------------------
@@ -1033,4 +1157,9 @@
      &               -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
            zw2(ig,l+1)=0.
+        elseif (f_star(ig,l+1).lt.0.) then
+           linter(ig)=(l*(f_star(ig,l+1)-f_star(ig,l))  &
+     &               -f_star(ig,l))/(f_star(ig,l+1)-f_star(ig,l))
+           print*,"linter plume", linter(ig)
+           zw2(ig,l+1)=0.
         endif
 
Index: LMDZ5/branches/testing/libf/phylmd/tracinca_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/tracinca_mod.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/tracinca_mod.F90	(revision 2160)
@@ -28,5 +28,5 @@
        nstep,    julien,   gmtime,         lafin,     &
        pdtphys,  t_seri,   paprs,          pplay,     &
-       pmfu,     ftsol,    pctsrf,         pphis,     &
+       pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
        pphi,     albsol,   sh,             rh,        &
        cldfra,   rneb,     diafra,         cldliq,    &
@@ -88,5 +88,6 @@
 !Convection:
 !----------
-    REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfu  ! flux de masse dans le panache montant
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pmfu  ! flux de masse dans le panache montant - Tiedtke
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: upwd  ! flux de masse dans le panache montant - Emanuel
 
 !...Tiedke     
@@ -120,4 +121,5 @@
     INTEGER :: k
     REAL,DIMENSION(klon,klev) :: pdel
+    REAL,DIMENSION(klon,klev) :: zpmfu  ! flux de masse dans le panache montant
     REAL    :: calday
     INTEGER :: ncsec
@@ -133,4 +135,6 @@
     END DO
     
+    zpmfu(:,:)=pmfu(:,:)
+
     IF (config_inca == 'aero') THEN
 #ifdef INCA
@@ -138,5 +142,5 @@
             aerosol_couple,tr_seri,pdtphys, &
             pplay,pdel,prfl,pmflxr,psfl,    &
-            pmflxs,pmfu,itop_con,ibas_con,  &
+            pmflxs,zpmfu,itop_con,ibas_con,  &
             pphi,airephy,nstep,rneb,t_seri, &      
             rh,tau_aero,piz_aero,cg_aero,   &
@@ -144,4 +148,17 @@
 #endif
     END IF
+
+    IF (config_inca == 'aeNP') THEN
+#ifdef INCA
+       zpmfu(:,:)=upwd(:,:)
+       CALL aerosolmainNP(                  &
+            aerosol_couple,tr_seri,pdtphys, &
+            pplay,pdel,prfl,pmflxr,psfl,    &
+            pmflxs,zpmfu,itop_con,ibas_con,  &
+            pphi,airephy,nstep,rneb,t_seri, &      
+            rh,lafin)
+#endif
+    END IF
+
 
 #ifdef INCA
@@ -172,5 +189,5 @@
          psfl,       & !flxsst
          pmflxs,     & !flxscv
-         pmfu,       & !flxupd
+         zpmfu,      & !flxupd   !--now depends on whether AP or NP
          flxmass_w,  & !flxmass_w
          t_seri,     & !tfld
Index: LMDZ5/branches/testing/libf/phylmd/wake.F90
===================================================================
--- LMDZ5/branches/testing/libf/phylmd/wake.F90	(revision 2116)
+++ LMDZ5/branches/testing/libf/phylmd/wake.F90	(revision 2160)
@@ -19,4 +19,5 @@
 
   USE dimphy
+  use mod_phys_lmdz_para
   IMPLICIT NONE
   ! ============================================================================
@@ -151,8 +152,8 @@
   ! Variables à fixer
   REAL alon
-  REAL coefgw
-  REAL :: wdens_ref
-  REAL stark
-  REAL alpk
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(first)
+  REAL, SAVE ::  stark, wdens_ref, coefgw, alpk, crep_upper, crep_sol  
+  !$OMP THREADPRIVATE(stark, wdens_ref, coefgw, alpk, crep_upper, crep_sol)
   REAL delta_t_min
   INTEGER nsub
@@ -232,5 +233,4 @@
 
   REAL, DIMENSION (klon, klev) :: crep
-  REAL crep_upper, crep_sol
 
   REAL, DIMENSION (klon, klev) :: ppi
@@ -280,4 +280,5 @@
   ! alpk = 0.05
 
+ if (first) then
   stark = 0.33
   alpk = 0.25
@@ -288,4 +289,5 @@
 
   ! cc nrlmd Lecture du fichier wake_param.data
+ !$OMP MASTER
   OPEN (99, FILE='wake_param.data', STATUS='old', FORM='formatted', ERR=9999)
   READ (99, *, END=9998) stark
@@ -296,4 +298,12 @@
   CLOSE (99)
 9999 CONTINUE
+ !$OMP END MASTER
+  CALL bcast(stark)
+  CALL bcast(alpk)
+  CALL bcast(wdens_ref)
+  CALL bcast(coefgw)
+
+  first=.false.
+ endif
 
   ! Initialisation de toutes des densites a wdens_ref.
@@ -1079,7 +1089,22 @@
           ! print*,'dtKE= ',dtKE(i,k),' dqKE= ',dqKE(i,k)
 
-          dtpbl(i, k) = (wdtpbl(i,k)/sigmaw(i)-udtpbl(i,k)/(1.-sigmaw(i)))
-          dqpbl(i, k) = (wdqpbl(i,k)/sigmaw(i)-udqpbl(i,k)/(1.-sigmaw(i)))
+!jyg<
+!!
+!!---------------------------------------------------------------
+!! The change of delta_T due to PBL (vertical diffusion plus thermal plumes)
+!! is accounted for by the PBL and the Thermals schemes. It is now set to zero 
+!! within the Wake scheme.
+!!---------------------------------------------------------------
+          dtPBL(i,k) = 0.
+          dqPBL(i,k) = 0.
+! 
+!!          dtPBL(i,k)=wdtPBL(i,k) - udtPBL(i,k)
+!!          dqPBL(i,k)=wdqPBL(i,k) - udqPBL(i,k)
+! 
+!!          dtpbl(i, k) = (wdtpbl(i,k)/sigmaw(i)-udtpbl(i,k)/(1.-sigmaw(i)))
+!!          dqpbl(i, k) = (wdqpbl(i,k)/sigmaw(i)-udqpbl(i,k)/(1.-sigmaw(i)))
           ! print*,'dtPBL= ',dtPBL(i,k),' dqPBL= ',dqPBL(i,k)
+!>jyg
+!
 
           ! cc nrlmd          Prise en compte du taux de mortalité
@@ -1795,1041 +1820,3 @@
 END SUBROUTINE wake_vec_modulation
 
-SUBROUTINE wake_scal(p, ph, ppi, dtime, sigd_con, te0, qe0, omgb, dtdwn, &
-    dqdwn, amdwn, amup, dta, dqa, wdtpbl, wdqpbl, udtpbl, udqpbl, deltatw, &
-    deltaqw, dth, hw, sigmaw, wape, fip, gfl, dtls, dqls, ktopw, omgbdth, &
-    dp_omgb, wdens, tu, qu, dtke, dqke, dtpbl, dqpbl, omg, dp_deltomg, &
-    spread, cstar, d_deltat_gw, d_deltatw2, d_deltaqw2)
-
-  ! **************************************************************
-  ! *
-  ! WAKE                                                        *
-  ! retour a un Pupper fixe                                *
-  ! *
-  ! written by   :  GRANDPEIX Jean-Yves   09/03/2000            *
-  ! modified by :   ROEHRIG Romain        01/29/2007            *
-  ! **************************************************************
-
-  USE dimphy
-  IMPLICIT NONE
-  ! ============================================================================
-
-
-  ! But : Decrire le comportement des poches froides apparaissant dans les
-  ! grands systemes convectifs, et fournir l'energie disponible pour
-  ! le declenchement de nouvelles colonnes convectives.
-
-  ! Variables d'etat : deltatw    : ecart de temperature wake-undisturbed
-  ! area
-  ! deltaqw    : ecart d'humidite wake-undisturbed area
-  ! sigmaw     : fraction d'aire occupee par la poche.
-
-  ! Variable de sortie :
-
-  ! wape : WAke Potential Energy
-  ! fip  : Front Incident Power (W/m2) - ALP
-  ! gfl  : Gust Front Length per unit area (m-1)
-  ! dtls : large scale temperature tendency due to wake
-  ! dqls : large scale humidity tendency due to wake
-  ! hw   : hauteur de la poche
-  ! dp_omgb : vertical gradient of large scale omega
-  ! omgbdth: flux of Delta_Theta transported by LS omega
-  ! dtKE   : differential heating (wake - unpertubed)
-  ! dqKE   : differential moistening (wake - unpertubed)
-  ! omg    : Delta_omg =vertical velocity diff. wake-undist. (Pa/s)
-  ! dp_deltomg  : vertical gradient of omg (s-1)
-  ! spread  : spreading term in dt_wake and dq_wake
-  ! deltatw     : updated temperature difference (T_w-T_u).
-  ! deltaqw     : updated humidity difference (q_w-q_u).
-  ! sigmaw      : updated wake fractional area.
-  ! d_deltat_gw : delta T tendency due to GW
-
-  ! Variables d'entree :
-
-  ! aire : aire de la maille
-  ! te0  : temperature dans l'environnement  (K)
-  ! qe0  : humidite dans l'environnement     (kg/kg)
-  ! omgb : vitesse verticale moyenne sur la maille (Pa/s)
-  ! dtdwn: source de chaleur due aux descentes (K/s)
-  ! dqdwn: source d'humidite due aux descentes (kg/kg/s)
-  ! dta  : source de chaleur due courants satures et detrain  (K/s)
-  ! dqa  : source d'humidite due aux courants satures et detra (kg/kg/s)
-  ! amdwn: flux de masse total des descentes, par unite de
-  ! surface de la maille (kg/m2/s)
-  ! amup : flux de masse total des ascendances, par unite de
-  ! surface de la maille (kg/m2/s)
-  ! p    : pressions aux milieux des couches (Pa)
-  ! ph   : pressions aux interfaces (Pa)
-  ! ppi  : (p/p_0)**kapa (adim)
-  ! dtime: increment temporel (s)
-
-  ! Variables internes :
-
-  ! rhow : masse volumique de la poche froide
-  ! rho  : environment density at P levels
-  ! rhoh : environment density at Ph levels
-  ! te   : environment temperature | may change within
-  ! qe   : environment humidity    | sub-time-stepping
-  ! the  : environment potential temperature
-  ! thu  : potential temperature in undisturbed area
-  ! tu   :  temperature  in undisturbed area
-  ! qu   : humidity in undisturbed area
-  ! dp_omgb: vertical gradient og LS omega
-  ! omgbw  : wake average vertical omega
-  ! dp_omgbw: vertical gradient of omgbw
-  ! omgbdq : flux of Delta_q transported by LS omega
-  ! dth  : potential temperature diff. wake-undist.
-  ! th1  : first pot. temp. for vertical advection (=thu)
-  ! th2  : second pot. temp. for vertical advection (=thw)
-  ! q1   : first humidity for vertical advection
-  ! q2   : second humidity for vertical advection
-  ! d_deltatw   : terme de redistribution pour deltatw
-  ! d_deltaqw   : terme de redistribution pour deltaqw
-  ! deltatw0   : deltatw initial
-  ! deltaqw0   : deltaqw initial
-  ! hw0    : hw initial
-  ! sigmaw0: sigmaw initial
-  ! amflux : horizontal mass flux through wake boundary
-  ! wdens  : number of wakes per unit area (3D) or per
-  ! unit length (2D)
-  ! Tgw    : 1 sur la période de onde de gravité
-  ! Cgw    : vitesse de propagation de onde de gravité
-  ! LL     : distance entre 2 poches
-
-  ! -------------------------------------------------------------------------
-  ! Déclaration de variables
-  ! -------------------------------------------------------------------------
-
-  include "dimensions.h"
-  ! ccc      include "dimphy.h"
-  include "YOMCST.h"
-  include "cvthermo.h"
-  include "iniprint.h"
-
-  ! Arguments en entree
-  ! --------------------
-
-  REAL p(klev), ph(klev+1), ppi(klev)
-  REAL dtime
-  REAL te0(klev), qe0(klev)
-  REAL omgb(klev+1)
-  REAL dtdwn(klev), dqdwn(klev)
-  REAL wdtpbl(klev), wdqpbl(klev)
-  REAL udtpbl(klev), udqpbl(klev)
-  REAL amdwn(klev), amup(klev)
-  REAL dta(klev), dqa(klev)
-  REAL sigd_con
-
-  ! Sorties
-  ! --------
-
-  REAL deltatw(klev), deltaqw(klev), dth(klev)
-  REAL tu(klev), qu(klev)
-  REAL dtls(klev), dqls(klev)
-  REAL dtke(klev), dqke(klev)
-  REAL dtpbl(klev), dqpbl(klev)
-  REAL spread(klev)
-  REAL d_deltatgw(klev)
-  REAL d_deltatw2(klev), d_deltaqw2(klev)
-  REAL omgbdth(klev+1), omg(klev+1)
-  REAL dp_omgb(klev), dp_deltomg(klev)
-  REAL d_deltat_gw(klev)
-  REAL hw, sigmaw, wape, fip, gfl, cstar
-  INTEGER ktopw
-
-  ! Variables internes
-  ! -------------------
-
-  ! Variables à fixer
-  REAL alon
-  REAL coefgw
-  REAL wdens0, wdens
-  REAL stark
-  REAL alpk
-  REAL delta_t_min
-  REAL pupper
-  INTEGER nsub
-  REAL dtimesub
-  REAL sigmad, hwmin
-
-  ! Variables de sauvegarde
-  REAL deltatw0(klev)
-  REAL deltaqw0(klev)
-  REAL te(klev), qe(klev)
-  REAL sigmaw0, sigmaw1
-
-  ! Variables pour les GW
-  REAL ll
-  REAL n2(klev)
-  REAL cgw(klev)
-  REAL tgw(klev)
-
-  ! Variables liées au calcul de hw
-  REAL ptop_provis, ptop, ptop_new
-  REAL sum_dth
-  REAL dthmin
-  REAL z, dz, hw0
-  INTEGER ktop, kupper
-
-  ! Autres variables internes
-  INTEGER isubstep, k
-
-  REAL sum_thu, sum_tu, sum_qu, sum_thvu
-  REAL sum_dq, sum_rho
-  REAL sum_dtdwn, sum_dqdwn
-  REAL av_thu, av_tu, av_qu, av_thvu
-  REAL av_dth, av_dq, av_rho
-  REAL av_dtdwn, av_dqdwn
-
-  REAL rho(klev), rhoh(klev+1), rhow(klev)
-  REAL rhow_moyen(klev)
-  REAL zh(klev), zhh(klev+1)
-  REAL epaisseur1(klev), epaisseur2(klev)
-
-  REAL the(klev), thu(klev)
-
-  REAL d_deltatw(klev), d_deltaqw(klev)
-
-  REAL omgbw(klev+1), omgtop
-  REAL dp_omgbw(klev)
-  REAL ztop, dztop
-  REAL alpha_up(klev)
-
-  REAL rre1, rre2, rrd1, rrd2
-  REAL th1(klev), th2(klev), q1(klev), q2(klev)
-  REAL d_th1(klev), d_th2(klev), d_dth(klev)
-  REAL d_q1(klev), d_q2(klev), d_dq(klev)
-  REAL omgbdq(klev)
-
-  REAL ff, gg
-  REAL wape2, cstar2, heff
-
-  REAL crep(klev)
-  REAL crep_upper, crep_sol
-
-  ! -------------------------------------------------------------------------
-  ! Initialisations
-  ! -------------------------------------------------------------------------
-
-  ! print*, 'wake initialisations'
-
-  ! Essais d'initialisation avec sigmaw = 0.02 et hw = 10.
-  ! -------------------------------------------------------------------------
-
-  DATA sigmad, hwmin/.02, 10./
-
-  ! Longueur de maille (en m)
-  ! -------------------------------------------------------------------------
-
-  ! ALON = 3.e5
-  alon = 1.E6
-
-
-  ! Configuration de coefgw,stark,wdens (22/02/06 by YU Jingmei)
-
-  ! coefgw : Coefficient pour les ondes de gravité
-  ! stark : Coefficient k dans Cstar=k*sqrt(2*WAPE)
-  ! wdens : Densité de poche froide par maille
-  ! -------------------------------------------------------------------------
-
-  coefgw = 10
-  ! coefgw=1
-  ! wdens0 = 1.0/(alon**2)
-  wdens = 1.0/(alon**2)
-  stark = 0.50
-  ! CRtest
-  alpk = 0.1
-  ! alpk = 1.0
-  ! alpk = 0.5
-  ! alpk = 0.05
-  crep_upper = 0.9
-  crep_sol = 1.0
-
-
-  ! Minimum value for |T_wake - T_undist|. Used for wake top definition
-  ! -------------------------------------------------------------------------
-
-  delta_t_min = 0.2
-
-
-  ! 1. - Save initial values and initialize tendencies
-  ! --------------------------------------------------
-
-  DO k = 1, klev
-    deltatw0(k) = deltatw(k)
-    deltaqw0(k) = deltaqw(k)
-    te(k) = te0(k)
-    qe(k) = qe0(k)
-    dtls(k) = 0.
-    dqls(k) = 0.
-    d_deltat_gw(k) = 0.
-    d_deltatw2(k) = 0.
-    d_deltaqw2(k) = 0.
-  END DO
-  ! sigmaw1=sigmaw
-  ! IF (sigd_con.GT.sigmaw1) THEN
-  ! print*, 'sigmaw,sigd_con', sigmaw, sigd_con
-  ! ENDIF
-  sigmaw = max(sigmaw, sigd_con)
-  sigmaw = max(sigmaw, sigmad)
-  sigmaw = min(sigmaw, 0.99)
-  sigmaw0 = sigmaw
-  ! wdens=wdens0/(10.*sigmaw)
-  ! IF (sigd_con.GT.sigmaw1) THEN
-  ! print*, 'sigmaw1,sigd1', sigmaw, sigd_con
-  ! ENDIF
-
-  ! 2. - Prognostic part
-  ! =========================================================
-
-  ! print *, 'prognostic wake computation'
-
-
-  ! 2.1 - Undisturbed area and Wake integrals
-  ! ---------------------------------------------------------
-
-  z = 0.
-  ktop = 0
-  kupper = 0
-  sum_thu = 0.
-  sum_tu = 0.
-  sum_qu = 0.
-  sum_thvu = 0.
-  sum_dth = 0.
-  sum_dq = 0.
-  sum_rho = 0.
-  sum_dtdwn = 0.
-  sum_dqdwn = 0.
-
-  av_thu = 0.
-  av_tu = 0.
-  av_qu = 0.
-  av_thvu = 0.
-  av_dth = 0.
-  av_dq = 0.
-  av_rho = 0.
-  av_dtdwn = 0.
-  av_dqdwn = 0.
-
-  ! Potential temperatures and humidity
-  ! ----------------------------------------------------------
-
-  DO k = 1, klev
-    rho(k) = p(k)/(rd*te(k))
-    IF (k==1) THEN
-      rhoh(k) = ph(k)/(rd*te(k))
-      zhh(k) = 0
-    ELSE
-      rhoh(k) = ph(k)*2./(rd*(te(k)+te(k-1)))
-      zhh(k) = (ph(k)-ph(k-1))/(-rhoh(k)*rg) + zhh(k-1)
-    END IF
-    the(k) = te(k)/ppi(k)
-    thu(k) = (te(k)-deltatw(k)*sigmaw)/ppi(k)
-    tu(k) = te(k) - deltatw(k)*sigmaw
-    qu(k) = qe(k) - deltaqw(k)*sigmaw
-    rhow(k) = p(k)/(rd*(te(k)+deltatw(k)))
-    dth(k) = deltatw(k)/ppi(k)
-    ll = (1-sqrt(sigmaw))/sqrt(wdens)
-  END DO
-
-  DO k = 1, klev - 1
-    IF (k==1) THEN
-      n2(k) = 0
-    ELSE
-      n2(k) = max(0., -rg**2/the(k)*rho(k)*(the(k+1)-the(k-1))/(p(k+ &
-        1)-p(k-1)))
-    END IF
-    zh(k) = (zhh(k)+zhh(k+1))/2
-
-    cgw(k) = sqrt(n2(k))*zh(k)
-    tgw(k) = coefgw*cgw(k)/ll
-  END DO
-
-  n2(klev) = 0
-  zh(klev) = 0
-  cgw(klev) = 0
-  tgw(klev) = 0
-
-  ! Calcul de la masse volumique moyenne de la colonne
-  ! -----------------------------------------------------------------
-
-  DO k = 1, klev
-    epaisseur1(k) = 0.
-    epaisseur2(k) = 0.
-  END DO
-
-  epaisseur1(1) = -(ph(2)-ph(1))/(rho(1)*rg) + 1.
-  epaisseur2(1) = -(ph(2)-ph(1))/(rho(1)*rg) + 1.
-  rhow_moyen(1) = rhow(1)
-
-  DO k = 2, klev
-    epaisseur1(k) = -(ph(k+1)-ph(k))/(rho(k)*rg) + 1.
-    epaisseur2(k) = epaisseur2(k-1) + epaisseur1(k)
-    rhow_moyen(k) = (rhow_moyen(k-1)*epaisseur2(k-1)+rhow(k)*epaisseur1(k))/ &
-      epaisseur2(k)
-  END DO
-
-
-  ! Choose an integration bound well above wake top
-  ! -----------------------------------------------------------------
-
-  ! Pupper = 50000.  ! melting level
-  pupper = 60000.
-  ! Pupper = 70000.
-
-
-  ! Determine Wake top pressure (Ptop) from buoyancy integral
-  ! -----------------------------------------------------------------
-
-  ! -1/ Pressure of the level where dth becomes less than delta_t_min.
-
-  ptop_provis = ph(1)
-  DO k = 2, klev
-    IF (dth(k)>-delta_t_min .AND. dth(k-1)<-delta_t_min) THEN
-      ptop_provis = ((dth(k)+delta_t_min)*p(k-1)-(dth(k- &
-        1)+delta_t_min)*p(k))/(dth(k)-dth(k-1))
-      GO TO 25
-    END IF
-  END DO
-25 CONTINUE
-
-  ! -2/ dth integral
-
-  sum_dth = 0.
-  dthmin = -delta_t_min
-  z = 0.
-
-  DO k = 1, klev
-    dz = -(max(ph(k+1),ptop_provis)-ph(k))/(rho(k)*rg)
-    IF (dz<=0) GO TO 40
-    z = z + dz
-    sum_dth = sum_dth + dth(k)*dz
-    dthmin = min(dthmin, dth(k))
-  END DO
-40 CONTINUE
-
-  ! -3/ height of triangle with area= sum_dth and base = dthmin
-
-  hw0 = 2.*sum_dth/min(dthmin, -0.5)
-  hw0 = max(hwmin, hw0)
-
-  ! -4/ now, get Ptop
-
-  z = 0.
-  ptop = ph(1)
-
-  DO k = 1, klev
-    dz = min(-(ph(k+1)-ph(k))/(rho(k)*rg), hw0-z)
-    IF (dz<=0) GO TO 45
-    z = z + dz
-    ptop = ph(k) - rho(k)*rg*dz
-  END DO
-45 CONTINUE
-
-
-  ! -5/ Determination de ktop et kupper
-
-  DO k = klev, 1, -1
-    IF (ph(k+1)<ptop) ktop = k
-    IF (ph(k+1)<pupper) kupper = k
-  END DO
-
-  ! -6/ Correct ktop and ptop
-
-  ptop_new = ptop
-  DO k = ktop, 2, -1
-    IF (dth(k)>-delta_t_min .AND. dth(k-1)<-delta_t_min) THEN
-      ptop_new = ((dth(k)+delta_t_min)*p(k-1)-(dth(k-1)+delta_t_min)*p(k))/ &
-        (dth(k)-dth(k-1))
-      GO TO 225
-    END IF
-  END DO
-225 CONTINUE
-
-  ptop = ptop_new
-
-  DO k = klev, 1, -1
-    IF (ph(k+1)<ptop) ktop = k
-  END DO
-
-  ! Set deltatw & deltaqw to 0 above kupper
-  ! -----------------------------------------------------------
-
-  DO k = kupper, klev
-    deltatw(k) = 0.
-    deltaqw(k) = 0.
-  END DO
-
-
-  ! Vertical gradient of LS omega
-  ! ------------------------------------------------------------
-
-  DO k = 1, kupper
-    dp_omgb(k) = (omgb(k+1)-omgb(k))/(ph(k+1)-ph(k))
-  END DO
-
-
-  ! Integrals (and wake top level number)
-  ! -----------------------------------------------------------
-
-  ! Initialize sum_thvu to 1st level virt. pot. temp.
-
-  z = 1.
-  dz = 1.
-  sum_thvu = thu(1)*(1.+eps*qu(1))*dz
-  sum_dth = 0.
-
-  DO k = 1, klev
-    dz = -(max(ph(k+1),ptop)-ph(k))/(rho(k)*rg)
-    IF (dz<=0) GO TO 50
-    z = z + dz
-    sum_thu = sum_thu + thu(k)*dz
-    sum_tu = sum_tu + tu(k)*dz
-    sum_qu = sum_qu + qu(k)*dz
-    sum_thvu = sum_thvu + thu(k)*(1.+eps*qu(k))*dz
-    sum_dth = sum_dth + dth(k)*dz
-    sum_dq = sum_dq + deltaqw(k)*dz
-    sum_rho = sum_rho + rhow(k)*dz
-    sum_dtdwn = sum_dtdwn + dtdwn(k)*dz
-    sum_dqdwn = sum_dqdwn + dqdwn(k)*dz
-  END DO
-50 CONTINUE
-
-  hw0 = z
-
-  ! 2.1 - WAPE and mean forcing computation
-  ! -------------------------------------------------------------
-
-  ! Means
-
-  av_thu = sum_thu/hw0
-  av_tu = sum_tu/hw0
-  av_qu = sum_qu/hw0
-  av_thvu = sum_thvu/hw0
-  ! av_thve = sum_thve/hw0
-  av_dth = sum_dth/hw0
-  av_dq = sum_dq/hw0
-  av_rho = sum_rho/hw0
-  av_dtdwn = sum_dtdwn/hw0
-  av_dqdwn = sum_dqdwn/hw0
-
-  wape = -rg*hw0*(av_dth+eps*(av_thu*av_dq+av_dth*av_qu+av_dth*av_dq))/ &
-    av_thvu
-
-  ! 2.2 Prognostic variable update
-  ! ------------------------------------------------------------
-
-  ! Filter out bad wakes
-
-  IF (wape<0.) THEN
-    IF (prt_level>=10) PRINT *, 'wape<0'
-    wape = 0.
-    hw = hwmin
-    sigmaw = max(sigmad, sigd_con)
-    fip = 0.
-    DO k = 1, klev
-      deltatw(k) = 0.
-      deltaqw(k) = 0.
-      dth(k) = 0.
-    END DO
-  ELSE
-    IF (prt_level>=10) PRINT *, 'wape>0'
-    cstar = stark*sqrt(2.*wape)
-  END IF
-
-  ! ------------------------------------------------------------------
-  ! Sub-time-stepping
-  ! ------------------------------------------------------------------
-
-  ! nsub=36
-  nsub = 10
-  dtimesub = dtime/nsub
-
-  ! ------------------------------------------------------------
-  DO isubstep = 1, nsub
-    ! ------------------------------------------------------------
-
-    ! print*,'---------------','substep=',isubstep,'-------------'
-
-    ! Evolution of sigmaw
-
-
-    gfl = 2.*sqrt(3.14*wdens*sigmaw)
-
-    sigmaw = sigmaw + gfl*cstar*dtimesub
-    sigmaw = min(sigmaw, 0.99) !!!!!!!!
-    ! wdens = wdens0/(10.*sigmaw)
-    ! sigmaw =max(sigmaw,sigd_con)
-    ! sigmaw =max(sigmaw,sigmad)
-
-    ! calcul de la difference de vitesse verticale poche - zone non perturbee
-
-    z = 0.
-    dp_deltomg(1:klev) = 0.
-    omg(1:klev+1) = 0.
-
-    omg(1) = 0.
-    dp_deltomg(1) = -(gfl*cstar)/(sigmaw*(1-sigmaw))
-
-    DO k = 2, ktop
-      dz = -(ph(k)-ph(k-1))/(rho(k-1)*rg)
-      z = z + dz
-      dp_deltomg(k) = dp_deltomg(1)
-      omg(k) = dp_deltomg(1)*z
-    END DO
-
-    dztop = -(ptop-ph(ktop))/(rho(ktop)*rg)
-    ztop = z + dztop
-    omgtop = dp_deltomg(1)*ztop
-
-
-    ! Conversion de la vitesse verticale de m/s a Pa/s
-
-    omgtop = -rho(ktop)*rg*omgtop
-    dp_deltomg(1) = omgtop/(ptop-ph(1))
-
-    DO k = 1, ktop
-      omg(k) = -rho(k)*rg*omg(k)
-      dp_deltomg(k) = dp_deltomg(1)
-    END DO
-
-    ! raccordement lineaire de omg de ptop a pupper
-
-    IF (kupper>ktop) THEN
-      omg(kupper+1) = -rg*amdwn(kupper+1)/sigmaw + rg*amup(kupper+1)/(1.- &
-        sigmaw)
-      dp_deltomg(kupper) = (omgtop-omg(kupper+1))/(ptop-pupper)
-      DO k = ktop + 1, kupper
-        dp_deltomg(k) = dp_deltomg(kupper)
-        omg(k) = omgtop + (ph(k)-ptop)*dp_deltomg(kupper)
-      END DO
-    END IF
-
-    ! Compute wake average vertical velocity omgbw
-
-    DO k = 1, klev + 1
-      omgbw(k) = omgb(k) + (1.-sigmaw)*omg(k)
-    END DO
-
-    ! and its vertical gradient dp_omgbw
-
-    DO k = 1, klev
-      dp_omgbw(k) = (omgbw(k+1)-omgbw(k))/(ph(k+1)-ph(k))
-    END DO
-
-
-    ! Upstream coefficients for omgb velocity
-    ! --    (alpha_up(k) is the coefficient of the value at level k)
-    ! --    (1-alpha_up(k) is the coefficient of the value at level k-1)
-
-    DO k = 1, klev
-      alpha_up(k) = 0.
-      IF (omgb(k)>0.) alpha_up(k) = 1.
-    END DO
-
-    ! Matrix expressing [The,deltatw] from  [Th1,Th2]
-
-    rre1 = 1. - sigmaw
-    rre2 = sigmaw
-    rrd1 = -1.
-    rrd2 = 1.
-
-    ! Get [Th1,Th2], dth and [q1,q2]
-
-    DO k = 1, kupper + 1
-      dth(k) = deltatw(k)/ppi(k)
-      th1(k) = the(k) - sigmaw*dth(k) ! undisturbed area
-      th2(k) = the(k) + (1.-sigmaw)*dth(k) ! wake
-      q1(k) = qe(k) - sigmaw*deltaqw(k) ! undisturbed area
-      q2(k) = qe(k) + (1.-sigmaw)*deltaqw(k) ! wake
-    END DO
-
-    d_th1(1) = 0.
-    d_th2(1) = 0.
-    d_dth(1) = 0.
-    d_q1(1) = 0.
-    d_q2(1) = 0.
-    d_dq(1) = 0.
-
-    DO k = 2, kupper + 1 !   loop on interfaces
-      d_th1(k) = th1(k-1) - th1(k)
-      d_th2(k) = th2(k-1) - th2(k)
-      d_dth(k) = dth(k-1) - dth(k)
-      d_q1(k) = q1(k-1) - q1(k)
-      d_q2(k) = q2(k-1) - q2(k)
-      d_dq(k) = deltaqw(k-1) - deltaqw(k)
-    END DO
-
-    omgbdth(1) = 0.
-    omgbdq(1) = 0.
-
-    DO k = 2, kupper + 1 !   loop on interfaces
-      omgbdth(k) = omgb(k)*(dth(k-1)-dth(k))
-      omgbdq(k) = omgb(k)*(deltaqw(k-1)-deltaqw(k))
-    END DO
-
-
-    ! -----------------------------------------------------------------
-    DO k = 1, kupper - 1
-      ! -----------------------------------------------------------------
-
-      ! Compute redistribution (advective) term
-
-      d_deltatw(k) = dtimesub/(ph(k)-ph(k+1))*(rrd1*omg(k)*sigmaw*d_th1(k)- &
-        rrd2*omg(k+1)*(1.-sigmaw)*d_th2(k+1)-(1.-alpha_up( &
-        k))*omgbdth(k)-alpha_up(k+1)*omgbdth(k+1))*ppi(k)
-      ! print*,'d_deltatw=',d_deltatw(k)
-
-      d_deltaqw(k) = dtimesub/(ph(k)-ph(k+1))*(rrd1*omg(k)*sigmaw*d_q1(k)- &
-        rrd2*omg(k+1)*(1.-sigmaw)*d_q2(k+1)-(1.-alpha_up( &
-        k))*omgbdq(k)-alpha_up(k+1)*omgbdq(k+1))
-      ! print*,'d_deltaqw=',d_deltaqw(k)
-
-      ! and increment large scale tendencies
-
-      dtls(k) = dtls(k) + dtimesub*((rre1*omg(k)*sigmaw*d_th1(k)-rre2*omg(k+ &
-        1)*(1.-sigmaw)*d_th2(k+1))/(ph(k)-ph(k+1))-sigmaw*(1.-sigmaw)*dth(k)* &
-        dp_deltomg(k))*ppi(k)
-      ! print*,'dtls=',dtls(k)
-
-      dqls(k) = dqls(k) + dtimesub*((rre1*omg(k)*sigmaw*d_q1(k)-rre2*omg(k+ &
-        1)*(1.-sigmaw)*d_q2(k+1))/(ph(k)-ph(k+1))-sigmaw*(1.-sigmaw)*deltaqw( &
-        k)*dp_deltomg(k))
-      ! print*,'dqls=',dqls(k)
-
-      ! -------------------------------------------------------------------
-    END DO
-    ! ------------------------------------------------------------------
-
-    ! Increment state variables
-
-    DO k = 1, kupper - 1
-
-      ! Coefficient de répartition
-
-      crep(k) = crep_sol*(ph(kupper)-ph(k))/(ph(kupper)-ph(1))
-      crep(k) = crep(k) + crep_upper*(ph(1)-ph(k))/(p(1)-ph(kupper))
-
-
-      ! Reintroduce compensating subsidence term.
-
-      ! dtKE(k)=(dtdwn(k)*Crep(k))/sigmaw
-      ! dtKE(k)=dtKE(k)-(dtdwn(k)*(1-Crep(k))+dta(k))
-      ! .                   /(1-sigmaw)
-      ! dqKE(k)=(dqdwn(k)*Crep(k))/sigmaw
-      ! dqKE(k)=dqKE(k)-(dqdwn(k)*(1-Crep(k))+dqa(k))
-      ! .                   /(1-sigmaw)
-
-      ! dtKE(k)=(dtdwn(k)*Crep(k)+(1-Crep(k))*dta(k))/sigmaw
-      ! dtKE(k)=dtKE(k)-(dtdwn(k)*(1-Crep(k))+dta(k)*Crep(k))
-      ! .                   /(1-sigmaw)
-      ! dqKE(k)=(dqdwn(k)*Crep(k)+(1-Crep(k))*dqa(k))/sigmaw
-      ! dqKE(k)=dqKE(k)-(dqdwn(k)*(1-Crep(k))+dqa(k)*Crep(k))
-      ! .                   /(1-sigmaw)
-
-      dtke(k) = (dtdwn(k)/sigmaw-dta(k)/(1.-sigmaw))
-      dqke(k) = (dqdwn(k)/sigmaw-dqa(k)/(1.-sigmaw))
-      ! print*,'dtKE=',dtKE(k)
-      ! print*,'dqKE=',dqKE(k)
-
-      dtpbl(k) = (wdtpbl(k)/sigmaw-udtpbl(k)/(1.-sigmaw))
-      dqpbl(k) = (wdqpbl(k)/sigmaw-udqpbl(k)/(1.-sigmaw))
-
-      spread(k) = (1.-sigmaw)*dp_deltomg(k) + gfl*cstar/sigmaw
-      ! print*,'spread=',spread(k)
-
-
-      ! ajout d'un effet onde de gravité -Tgw(k)*deltatw(k) 03/02/06 YU
-      ! Jingmei
-
-      d_deltat_gw(k) = d_deltat_gw(k) - tgw(k)*deltatw(k)*dtimesub
-      ! print*,'d_delta_gw=',d_deltat_gw(k)
-      ff = d_deltatw(k)/dtimesub
-
-      ! Sans GW
-
-      ! deltatw(k)=deltatw(k)+dtimesub*(ff+dtKE(k)-spread(k)*deltatw(k))
-
-      ! GW formule 1
-
-      ! deltatw(k) = deltatw(k)+dtimesub*
-      ! $         (ff+dtKE(k) - spread(k)*deltatw(k)-Tgw(k)*deltatw(k))
-
-      ! GW formule 2
-
-      IF (dtimesub*tgw(k)<1.E-10) THEN
-        deltatw(k) = deltatw(k) + dtimesub*(ff+dtke(k)+dtpbl(k)-spread(k)* &
-          deltatw(k)-tgw(k)*deltatw(k))
-      ELSE
-        deltatw(k) = deltatw(k) + 1/tgw(k)*(1-exp(-dtimesub*tgw(k)))*(ff+dtke &
-          (k)+dtpbl(k)-spread(k)*deltatw(k)-tgw(k)*deltatw(k))
-      END IF
-
-      dth(k) = deltatw(k)/ppi(k)
-
-      gg = d_deltaqw(k)/dtimesub
-
-      deltaqw(k) = deltaqw(k) + dtimesub*(gg+dqke(k)+dqpbl(k)-spread(k)* &
-        deltaqw(k))
-
-      d_deltatw2(k) = d_deltatw2(k) + d_deltatw(k)
-      d_deltaqw2(k) = d_deltaqw2(k) + d_deltaqw(k)
-    END DO
-
-    ! And update large scale variables
-
-    DO k = 1, kupper
-      te(k) = te0(k) + dtls(k)
-      qe(k) = qe0(k) + dqls(k)
-      the(k) = te(k)/ppi(k)
-    END DO
-
-    ! Determine Ptop from buoyancy integral
-    ! ----------------------------------------------------------------------
-
-    ! -1/ Pressure of the level where dth changes sign.
-
-    ptop_provis = ph(1)
-
-    DO k = 2, klev
-      IF (dth(k)>-delta_t_min .AND. dth(k-1)<-delta_t_min) THEN
-        ptop_provis = ((dth(k)+delta_t_min)*p(k-1)-(dth(k- &
-          1)+delta_t_min)*p(k))/(dth(k)-dth(k-1))
-        GO TO 65
-      END IF
-    END DO
-65  CONTINUE
-
-    ! -2/ dth integral
-
-    sum_dth = 0.
-    dthmin = -delta_t_min
-    z = 0.
-
-    DO k = 1, klev
-      dz = -(max(ph(k+1),ptop_provis)-ph(k))/(rho(k)*rg)
-      IF (dz<=0) GO TO 70
-      z = z + dz
-      sum_dth = sum_dth + dth(k)*dz
-      dthmin = min(dthmin, dth(k))
-    END DO
-70  CONTINUE
-
-    ! -3/ height of triangle with area= sum_dth and base = dthmin
-
-    hw = 2.*sum_dth/min(dthmin, -0.5)
-    hw = max(hwmin, hw)
-
-    ! -4/ now, get Ptop
-
-    ktop = 0
-    z = 0.
-
-    DO k = 1, klev
-      dz = min(-(ph(k+1)-ph(k))/(rho(k)*rg), hw-z)
-      IF (dz<=0) GO TO 75
-      z = z + dz
-      ptop = ph(k) - rho(k)*rg*dz
-      ktop = k
-    END DO
-75  CONTINUE
-
-    ! -5/Correct ktop and ptop
-
-    ptop_new = ptop
-
-    DO k = ktop, 2, -1
-      IF (dth(k)>-delta_t_min .AND. dth(k-1)<-delta_t_min) THEN
-        ptop_new = ((dth(k)+delta_t_min)*p(k-1)-(dth(k-1)+delta_t_min)*p(k))/ &
-          (dth(k)-dth(k-1))
-        GO TO 275
-      END IF
-    END DO
-275 CONTINUE
-
-    ptop = ptop_new
-
-    DO k = klev, 1, -1
-      IF (ph(k+1)<ptop) ktop = k
-    END DO
-
-    ! -6/ Set deltatw & deltaqw to 0 above kupper
-
-    DO k = kupper, klev
-      deltatw(k) = 0.
-      deltaqw(k) = 0.
-    END DO
-
-    ! ------------------------------------------------------------------
-  END DO ! end sub-timestep loop
-  ! -----------------------------------------------------------------
-
-  ! Get back to tendencies per second
-
-  DO k = 1, kupper - 1
-    dtls(k) = dtls(k)/dtime
-    dqls(k) = dqls(k)/dtime
-    d_deltatw2(k) = d_deltatw2(k)/dtime
-    d_deltaqw2(k) = d_deltaqw2(k)/dtime
-    d_deltat_gw(k) = d_deltat_gw(k)/dtime
-  END DO
-
-  ! 2.1 - Undisturbed area and Wake integrals
-  ! ---------------------------------------------------------
-
-  z = 0.
-  sum_thu = 0.
-  sum_tu = 0.
-  sum_qu = 0.
-  sum_thvu = 0.
-  sum_dth = 0.
-  sum_dq = 0.
-  sum_rho = 0.
-  sum_dtdwn = 0.
-  sum_dqdwn = 0.
-
-  av_thu = 0.
-  av_tu = 0.
-  av_qu = 0.
-  av_thvu = 0.
-  av_dth = 0.
-  av_dq = 0.
-  av_rho = 0.
-  av_dtdwn = 0.
-  av_dqdwn = 0.
-
-  ! Potential temperatures and humidity
-  ! ----------------------------------------------------------
-
-  DO k = 1, klev
-    rho(k) = p(k)/(rd*te(k))
-    IF (k==1) THEN
-      rhoh(k) = ph(k)/(rd*te(k))
-      zhh(k) = 0
-    ELSE
-      rhoh(k) = ph(k)*2./(rd*(te(k)+te(k-1)))
-      zhh(k) = (ph(k)-ph(k-1))/(-rhoh(k)*rg) + zhh(k-1)
-    END IF
-    the(k) = te(k)/ppi(k)
-    thu(k) = (te(k)-deltatw(k)*sigmaw)/ppi(k)
-    tu(k) = te(k) - deltatw(k)*sigmaw
-    qu(k) = qe(k) - deltaqw(k)*sigmaw
-    rhow(k) = p(k)/(rd*(te(k)+deltatw(k)))
-    dth(k) = deltatw(k)/ppi(k)
-
-  END DO
-
-  ! Integrals (and wake top level number)
-  ! -----------------------------------------------------------
-
-  ! Initialize sum_thvu to 1st level virt. pot. temp.
-
-  z = 1.
-  dz = 1.
-  sum_thvu = thu(1)*(1.+eps*qu(1))*dz
-  sum_dth = 0.
-
-  DO k = 1, klev
-    dz = -(max(ph(k+1),ptop)-ph(k))/(rho(k)*rg)
-
-    IF (dz<=0) GO TO 51
-    z = z + dz
-    sum_thu = sum_thu + thu(k)*dz
-    sum_tu = sum_tu + tu(k)*dz
-    sum_qu = sum_qu + qu(k)*dz
-    sum_thvu = sum_thvu + thu(k)*(1.+eps*qu(k))*dz
-    sum_dth = sum_dth + dth(k)*dz
-    sum_dq = sum_dq + deltaqw(k)*dz
-    sum_rho = sum_rho + rhow(k)*dz
-    sum_dtdwn = sum_dtdwn + dtdwn(k)*dz
-    sum_dqdwn = sum_dqdwn + dqdwn(k)*dz
-  END DO
-51 CONTINUE
-
-  hw0 = z
-
-  ! 2.1 - WAPE and mean forcing computation
-  ! -------------------------------------------------------------
-
-  ! Means
-
-  av_thu = sum_thu/hw0
-  av_tu = sum_tu/hw0
-  av_qu = sum_qu/hw0
-  av_thvu = sum_thvu/hw0
-  av_dth = sum_dth/hw0
-  av_dq = sum_dq/hw0
-  av_rho = sum_rho/hw0
-  av_dtdwn = sum_dtdwn/hw0
-  av_dqdwn = sum_dqdwn/hw0
-
-  wape2 = -rg*hw0*(av_dth+eps*(av_thu*av_dq+av_dth*av_qu+av_dth*av_dq))/ &
-    av_thvu
-
-
-  ! 2.2 Prognostic variable update
-  ! ------------------------------------------------------------
-
-  ! Filter out bad wakes
-
-  IF (wape2<0.) THEN
-    IF (prt_level>=10) PRINT *, 'wape2<0'
-    wape2 = 0.
-    hw = hwmin
-    sigmaw = max(sigmad, sigd_con)
-    fip = 0.
-    DO k = 1, klev
-      deltatw(k) = 0.
-      deltaqw(k) = 0.
-      dth(k) = 0.
-    END DO
-  ELSE
-    IF (prt_level>=10) PRINT *, 'wape2>0'
-    cstar2 = stark*sqrt(2.*wape2)
-
-  END IF
-
-  ktopw = ktop
-
-  IF (ktopw>0) THEN
-
-    ! jyg1     Utilisation d'un h_efficace constant ( ~ feeding layer)
-    ! cc       heff = 600.
-    ! Utilisation de la hauteur hw
-    ! c       heff = 0.7*hw
-    heff = hw
-
-    fip = 0.5*rho(ktopw)*cstar2**3*heff*2*sqrt(sigmaw*wdens*3.14)
-    fip = alpk*fip
-    ! jyg2
-  ELSE
-    fip = 0.
-  END IF
-
-
-  ! Limitation de sigmaw
-
-  ! sécurité : si le wake occuppe plus de 90 % de la surface de la maille,
-  ! alors il disparait en se mélangeant à la partie undisturbed
-
-  ! correction NICOLAS     .     ((wape.ge.wape2).and.(wape2.le.1.0))) THEN
-  IF ((sigmaw>0.9) .OR. ((wape>=wape2) .AND. (wape2<= &
-      1.0)) .OR. (ktopw<=2)) THEN
-    ! IM cf NR/JYG 251108    .     ((wape.ge.wape2).and.(wape2.le.1.0))) THEN
-    ! IF (sigmaw.GT.0.9) THEN
-    DO k = 1, klev
-      dtls(k) = 0.
-      dqls(k) = 0.
-      deltatw(k) = 0.
-      deltaqw(k) = 0.
-    END DO
-    wape = 0.
-    hw = hwmin
-    sigmaw = sigmad
-    fip = 0.
-  END IF
-
-  RETURN
-END SUBROUTINE wake_scal
-
-
-
+
Index: LMDZ5/branches/testing/libf/phymar/Atm_RT_INI.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Atm_RT_INI.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Atm_RT_INI.F90	(revision 2160)
@@ -0,0 +1,542 @@
+      subroutine Atm_RT_INI
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 24-Jun-2013  MAR |
+!     subroutine Atm_RT_INI initializes  MAR PHYsics interface             |
+!           with ECMWF Solar/Infrared   Radiative  Transfer Scheme         |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  2-Apr-2013      |
+!           Last Modification by H. Gallee,           Mon 24-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     Content:   CALL of - ECMWF Code initializing the Radiation Transfert |
+!                        - ECMWF                       Radiation Transfert |
+!                                                                          |
+!     ECMWF Code Source:  J.-J. Morcrette, 28 nov 2002                     |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY_RT_dat
+      use Mod_PHY____grd
+      use Mod_PHY_S0_grd
+      use Mod_PHY_RT_grd
+      use Mod_PHY_DY_kkl
+      use Mod_SISVAT_gpt
+
+
+
+#include "tsmbkind.h"
+
+
+
+
+! Global Variables (ECMWF)
+! ========================
+
+USE PARRTM1D , ONLY : JP_LON   ,JP_IDIA  ,JP_FDIA  ,JP_TDIA  ,&
+ &            JP_LEV ,JP_LW    ,JP_SW    ,JP_NUA   ,JP_MODE  ,&
+ &            JP_AER ,JP_LEVP1
+USE YOMCST   , ONLY : RD       ,RG       ,RTT      ,RSIGMA   ,&
+ &            RCPD   ,RPI      ,RDAY     ,REA      ,RI0      ,&
+ &            REPSM  ,RMD      ,RKBOL    ,RNAVO    ,R        ,&
+ &            RLVTT  ,RLSTT
+USE YOERAD   , ONLY : NSW      ,NTSW     ,NRADFR             ,&
+ &            LRRTM  ,LINHOM   ,LOIFUEC  ,LTEMPDS  ,LOWASYF  ,&
+ &            LOWHSSS,LONEWSW  ,LNEWAER  ,LHVOLCA            ,&
+ &            NRADIP ,NRADLP   ,NOZOCL                       ,&
+ &            NICEOPT,NLIQOPT  ,NOVLP    ,NHOWINH  ,RMINICE
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED            ,&
+ &            RCTRBGA,RCVOBGA  ,RCSTBGA  ,RCAEOPS  ,RCAEOPL  ,RCAEOPU ,&
+ &            RCAEOPD,RCTRPT   ,RCAEADK  ,RCAEADM  ,RCAEROS
+USE YOERDI   , ONLY : RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
+ &                                                  RCFC12
+USE YOERDU   , ONLY : RCDAY    ,R10E     ,DIFF     ,REPLOG   ,&
+ &            REPSC  ,REPSCO   ,REPSCQ   ,REPSCT   ,REPSCW   ,&
+ &            NTRAER
+USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
+ &            R4IES  ,R5LES    ,R5IES    ,R5ALVCP  ,R5ALSCP  ,&
+ &            RALVDCP,RALSDCP  ,RTWAT    ,RTICE    ,RTICECU
+
+
+
+
+      IMPLICIT NONE
+
+
+
+
+!  INTERNAL VARIABLES
+!  ==================
+
+      integer   :: i     ,j     ,ikl
+
+!   For Use in radlsw
+!   ^^^^^^^^^^^^^^^^^
+      INTEGER_M :: KIDIA ,KFDIA ,KTDIA ,KLON  ,KLEV  
+      INTEGER_M :: KMODE ,KAER  ,KSW
+
+      INTEGER_M :: KBOX  ,NBOX
+      INTEGER_M :: NDUMP ,ILWRAD
+!
+      REAL_B    ::    PRII05
+
+      REAL_B    ::     PAER5(JP_LON,JP_AER,JP_LEV)   ! Aerosol Optical Depth
+      REAL_B    ::    PALBD5(JP_LON,JP_SW)  
+      REAL_B    ::    PALBP5(JP_LON,JP_SW)
+!
+      REAL_B    ::     PAPH5(JP_LON,JP_LEVP1) 
+      REAL_B    ::      PAP5(JP_LON,JP_LEV)
+!
+      REAL_B    ::    PCCO25
+      REAL_B    ::    PCLFR5(JP_LON,JP_LEV) 
+      REAL_B    ::      PDP5(JP_LON,JP_LEV)
+      REAL_B    ::    PEMIS5(JP_LON)
+      REAL_B    ::    PEMIW5(JP_LON)
+      REAL_B    ::     PLSM5(JP_LON)
+      REAL_B    ::     PMU05(JP_LON)
+      REAL_B    ::    POZON5(JP_LON,JP_LEV)
+      REAL_B    ::       PQ5(JP_LON,JP_LEV)
+!
+      REAL_B    ::    PQIWP5(JP_LON,JP_LEV) 
+      REAL_B    ::    PQLWP5(JP_LON,JP_LEV)          ! Dropplets    Concentration
+      REAL_B    ::    PSQIW5(JP_LON,JP_LEV)          ! Ice Crystals Concentration
+      REAL_B    ::    PSQLW5(JP_LON,JP_LEV)          ! 
+      REAL_B    ::      PQS5(JP_LON,JP_LEV)
+      REAL_B    ::   PQRAIN5(JP_LON,JP_LEV)
+      REAL_B    ::   PRAINT5(JP_LON,JP_LEV)
+      REAL_B    ::   PRLVRI5(JP_LON,JP_LEV)
+      REAL_B    ::   PRLVRL5(JP_LON,JP_LEV)
+      REAL_B    ::      PTH5(JP_LON,JP_LEVP1) 
+      REAL_B    ::       PT5(JP_LON,JP_LEV) 
+      REAL_B    ::      PTS5(JP_LON)
+      REAL_B    ::    PNBAS5(JP_LON)        
+      REAL_B    ::    PNTOP5(JP_LON)
+
+!   For Use in SUCLD
+!   ^^^^^^^^^^^^^^^^
+      REAL_B    ::    ZETA(JP_LEV)      
+      REAL_B    ::   ZETAH(JP_LEVP1)
+
+!   For Use in SUOVLP
+!   ^^^^^^^^^^^^^^^^^
+      REAL_B    ::   ZTVIR              
+      REAL_B    ::   ZFACT
+      REAL_B    ::     ZAZ(JP_LEV)      
+      REAL_B    ::    ZAZH(JP_LEVP1)
+
+
+
+!  Local  Variables
+!  ----------------
+
+      REAL_B    ::    RTIMTR
+
+      INTEGER_M ::    JL      , JK      , JAER    ,JNU
+      INTEGER_M ::    KULOUT  , NINDAT  , NSSSSS  ,KPRTLEV
+      INTEGER_M ::    IYR     , MONTH   , IDAY    ,IMINUT
+      INTEGER_M ::    KPRINT  , SKSHIFT
+
+
+
+
+! Load External Functions
+! =======================
+
+#include "fctast.h"
+#include "fcttim.h"
+#include "fcttre.h"
+
+
+      KPRTLEV= 1
+      KPRINT = 1
+      SKSHIFT= 0
+
+
+
+
+! Time Base
+! =========
+
+      NINDAT = min(yearTU,2004)*10000+mon_TU*100+Day_TU                 ! Date   in the form  yyyyMMdd
+      NSSSSS =     HourTU      * 3600+minuTU* 60+sec_TU                 ! Nb of second since day Begin
+      IYR    =   NAA(NINDAT)
+      MONTH  =   NMM(NINDAT)
+      IDAY   =   NDD(NINDAT)
+      RTIMTR = RTIME(IYR,MONTH,IDAY,NSSSSS)
+      IMINUT =   INT(FLOAT(NSSSSS)/60.)
+
+
+
+
+! Basic Initialization
+! ====================
+
+!  Dimensions (auxiliary variables)
+!  --------------------------------
+
+        KIDIA  = 1                       ! DO'NT CHANGE
+        KFDIA  = JP_LON                  ! Nb Columns
+        KTDIA  = 1                       !
+        KLON   = JP_LON                  ! Nb Columns
+        KLEV   = JP_LEV                  ! Nb Levels
+        KMODE  = JP_MODE                 ! Used in Planck Fcts Specification
+        KAER   = JP_AER                  !
+
+!   Nb of Solar Spectral Intervals
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        KSW    =  JP_SW       ! SW Nb of Spectral Intervals (max is JP_SW=6)
+        NSW    =  JP_SW       ! SW Nb of Spectral Intervals (max is JP_SW=6)
+        NTSW   =  JP_SW       ! SW Nb of Spectral Intervals (max is JP_SW=6)
+
+        KBOX   = 0                       !                                      \VER
+        NBOX   = 1                       !                                      \VER
+
+        ILWRAD = 1       ! 0: Morcrette,     1991 operational before 20000627
+                         ! 1: Mlawer et al., 1997 now ECMWF-operational
+                         ! 2: Morcrette,     1991 original as in ERA-15'
+
+        NDUMP  = 3       ! No Print
+!       NDUMP  = 2       ! 1D Results
+!       NDUMP  = 1       ! Debug
+!       NDUMP  = 0       ! ALL
+        KULOUT = 6       ! Output Device for SUCST
+
+
+!  Verification of the Dimensions
+!  ------------------------------
+
+        write(6,*) 'INITIALISATION OF ECMWF RADIATIVE TRANSFERT: BEGIN'
+
+        write(6,*) 'CONTROL'
+        write(6,*) 'JP_LON=',JP_LON
+        write(6,*) 'kcolp',kcolp
+        IF    (kcolp .GT.JP_LON)                                    THEN
+          write(6,6001) kcolp ,JP_LON
+ 6001     format(' @!#& BAD dimensions SET-UP  (kcolp > JP_LON);  = ('&
+     &                                            ,i3,',',i3,')')
+          STOP
+        END IF
+        IF    (mzp   .NE.JP_LEV)                                    THEN
+          write(6,6002) mzp   ,JP_LEV
+ 6002     format(' @!#& BAD dimensions SET-UP  (mzp  /= JP_LEV);  = ('&
+     &                                            ,i3,',',i3,')')
+          STOP
+        END IF
+        IF    (naero .NE.JP_AER)                                    THEN
+          write(6,6003) naero ,JP_AER
+ 6003     format(' @!#& BAD dimensions SET-UP  (naero/= JP_AER);  = ('&
+     &                                            ,i3,',',i3,')')
+          STOP
+        END IF
+
+
+!  Mathematical Constants
+!  ----------------------
+
+        REPLOG = 1.E-12                  ! Minimum Logarithm Argument
+        REPSC  = 1.E-12
+        REPSCO = 1.E-12
+        REPSCQ = 1.E-12
+        REPSCT = 1.E-12
+        REPSCW = 1.E-12
+
+
+!  Switches (general)
+!  ------------------
+
+        LONEWSW= .TRUE.  ! .TRUE. SWSN radiative routine is     used
+       IF (ILWRAD.EQ.1)     THEN
+        LRRTM  = .TRUE.  ! .TRUE. RRTM radiative routine is     used
+       ELSE
+        LRRTM  = .FALSE. ! .FALSE.RRTM radiative routine is NOT used
+       END IF
+        LTEMPDS= .FALSE. ! .TRUE. ALLOWS FOR SURF. T DISCONTIN. IN RAD.COMPUT.
+
+        NTRAER = 19      ! NUMBER OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
+
+
+!  Switches (Clouds Optical Properties)
+!  ------------------------------------
+
+        LINHOM = .FALSE. ! Tiedke (1995) correct. factor (0.7) of tau not used
+        NHOWINH=  2      ! Tau correction factor:           exp(-(sig/tau)^2)
+                         !  (used if LINHOM = .TRUE.) 
+        LOIFUEC= .FALSE. ! .FALSE. IF ICE   CLOUDS AS EBERT-CURRY (LW & SW)
+        LOWASYF= .FALSE. ! .FALSE. IF WATER CLOUDS AS FOUQUART         (SW)
+        LOWHSSS= .FALSE. ! .FALSE. IF WATER CLOUDS AS SMITH-SHI   (LW)
+        NRADIP =  3      ! Ice    effective Radius:
+                         !  0   fixed        40 microns
+                         !  1   f(T)   40 - 130 microns
+                         !  2   f(T)   30 -  60 microns Jakob-Klein
+                         !  3   f(T,IWC)                Sun-Rikus,     1999
+        RMINICE=  15     ! Minimum Diameter for Ice Particles (micronm)
+                         ! Needed only if   NRADIP = 3
+                         ! (see von Walden et al., 2003 (Oct) Tab. 2 p.1393)
+        NRADLP =  0      ! Liquid effective Radius: f(Pressure)
+                         !  0 effective radius - liquid as f(Pressure)
+                         !  1 fixed 10 microns over land, 13 over ocean
+                         !  2 computed from LWC          Martin et al, 1994
+        NLIQOPT=  1      ! Cloud Optical Properties (Water): 1=ECMWF Operat.
+                         !  0  LW: Smith-Shi,   1992; SW: Fouquart,    1987
+                         !  1  LW: Savijarvi,   1997; SW: Slingo  ,    1989
+                         !  2  LW: Lindner,Li,  2000; SW: Slingo  ,    1989
+        NICEOPT=  1      ! Cloud Optical Properties (Ice)  : 1=ECMWF Operat.
+                         !  0  LW: Smith,Shi  , 1992; SW: Ebert-Curry, 1992
+                         !  1  LW: Ebert,Curry, 1992; SW: Ebert-Curry, 1992
+                         !  2  LW: Fu,Liou    , 1993; SW: Fu,Liou    , 1993
+                         !  3  LW: Fu et al.  , 1998; SW: Fu         , 1996
+        NOVLP  =  2      ! CLOUD OVERLAP CONFIGURATION:
+                         !  1=MRN, 2=MAX, 3=RAN, 4=Hogan
+
+
+!  Switches (Aerosols/O3)
+!  ----------------------
+
+        LNEWAER= .TRUE.  ! Climatology of Aerosols: TEGEN ET AL. 1997 / GADS
+        LHVOLCA= .TRUE.  ! .TRUE. IF GISS HISTORY OF VOLCANIC AEROSOLS IS ON
+!       NOZOCL = -1      ! TESTS the vertical quadrature       (NO absorber)
+!       NOZOCL =  0      ! whatever is read for O3 as input profile
+!       NOZOCL =  1      ! OLD         ECMWF O3 climatology and    aerosols
+        NOZOCL =  2      ! Fortuin-Langematz O3 climatology and    aerosols
+!       NOZOCL =  3      ! OLD         ECMWF O3 climatology and NO aerosols
+!       NOZOCL =  4      ! Fortuin-Langematz O3 climatology and NO aerosols
+ 
+
+!  BASIC CONSTANTS
+!  ---------------
+
+!            *****
+        CALL SUCST (KULOUT, NINDAT, NSSSSS, KPRTLEV) ! Initialize common YOMCST
+!            *****                                   !  (Basic Constants)
+                                                     ! Initialize common YOMRIP
+                                                     !  (only date and time)
+
+!   YOENCST - THERMODYNAMIC TRANSITION OF PHASE
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        RTT=273.16                                   !
+
+!   YOETHF  - DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        RTWAT=RTT                                    ! 
+        RTICE=RTT-23.                                !
+
+!   YOERDU  - CONTROL, PARAMETERS AND SECURITY IN RADIATION
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        RCDAY  = RDAY * RG / RCPD                    !
+        R10E   = 0.4342945                           ! DECIMAL /  NATURAL
+                                                     ! LOG.        FACTOR
+        DIFF   = 1.66                                ! DIFFUSIVITY FACTOR
+
+
+!  Space/Time Independant Coefficients
+!  -----------------------------------
+
+        CALL SURDI            ! ECMWF Surface Albedo, Emissivity
+        CALL SULWN            ! Initialize common YOELW (new LW Coeff.)
+        CALL SUOLW            ! Initialize common YOELW (old LW Coeff.)
+
+!   Initialization routine for RRTM
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        CALL SURRTAB          ! AER'S RRTM LW RADIATION
+        CALL SURRTPK          ! Initialize common YOERRTWN 
+                              !  (k-coefficients in spectral intervals)
+        CALL SURRTRF          ! Initialize common YOERRTRF
+                              !  (RRTM Reference Atmosphere)
+        CALL SURRTFTR         ! Initialize common YOERRTRF
+
+!            RRTM routine     ! BAND   [cm-1] ! low           ! high
+!       ----------------------+---------------+---------------+---------
+        CALL RRTM_KGB1        !  1:   10- 250 ! H2O           ! H2O
+        CALL RRTM_KGB2        !  2:  250- 500 ! H2O           ! H2O
+        CALL RRTM_KGB3        !  3:  500- 630 ! H2O,CO2       ! H2O,CO2
+        CALL RRTM_KGB4        !  4:  630- 700 ! H2O,CO2       ! O3,CO2
+        CALL RRTM_KGB5        !  5:  700- 820 ! H2O,CO2       ! O3,CO2
+        CALL RRTM_KGB6        !  6:  820- 980 ! H2O           ! nothing
+        CALL RRTM_KGB7        !  7:  980-1080 ! H2O,O3        ! O3
+        CALL RRTM_KGB8        !  8: 1080-1180 ! (i.e.>~300mb) ! O3
+                              !               ! H2O           !
+        CALL RRTM_KGB9        !  9: 1180-1390 ! H2O,CH4       ! CH4
+        CALL RRTM_KGB10       ! 10: 1390-1480 ! H2O           ! H2O
+        CALL RRTM_KGB11       ! 11: 1480-1800 ! H2O           ! H2O
+        CALL RRTM_KGB12       ! 12: 1800-2080 ! H2O,CO2       ! nothing
+        CALL RRTM_KGB13       ! 13: 2080-2250 ! H2O,N2O       ! nothing
+        CALL RRTM_KGB14       ! 14: 2250-2380 ! CO2           ! CO2
+        CALL RRTM_KGB15       ! 15: 2380-2600 ! N2O,CO2       ! nothing
+        CALL RRTM_KGB16       ! 16: 2600-3000 ! H2O,CH4       ! nothing
+
+!   Reduce absorption coefficient data from 256 to 140 g-points
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        CALL RRTM_INIT_140GP
+
+!   Initialization routine for SW (6 spectral interval resolution)
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        CALL SUSWN ( NTSW  , KSW  )      ! Initialize common YOESW
+
+
+        write(6,*) 'INITIALISATION OF ECMWF RADIATIVE TRANSFERT: END  '
+
+
+
+
+! Radiation: Global (Time dependant) Parameters
+! =============================================
+
+        PRII05 = RI0                                 ! INSOLATION
+!       PRII05 = RI0/(dST_UA*dST_UA)                 ! INSOLATION   (dST_UA: Distance Soleil-Terre [UA])
+        PCCO25 = 360.E-06*44./29.                    ! CONCENTRATION IN CO2                     [Pa/Pa]
+
+
+
+
+! Surface Properties
+! ==================
+
+!  Land/sea Mask
+!  -------------
+
+! Martin CONTROL
+!PRINT*, 'CONTROL dans Atm_RT_INI'
+!PRINT*,'SIZE(psa_DY)=)',SIZE(psa_DY)
+!PRINT*, 'psa_DY=',psa_DY
+! Martin CONTROL
+
+  DO jl=1,KLON
+        ikl               = min(jl,kcolp)
+        i                 = ii__AP(ikl)
+        j                 = jj__AP(ikl)
+        PLSM5 (JL)    = 1 - MaskSV_gpt(ikl)   
+
+
+
+
+! Atmospheric Thermodynamics (Time and Space dependant)
+! =====================================================
+
+!  Pressure      Distribution
+!  --------------------------
+
+       JK=1+KLEV
+        PAPH5 (JL,JK)     = (psa_DY(ikl)             + pt__DY) * 1000.  ! Pressure (Layer Interface)[Pa]
+    DO JK=1,KLEV
+        PAPH5 (JL,JK)     = (psa_DY(ikl) * sigma(JK) + pt__DY) * 1000.  ! Pressure (Layer)          [Pa]
+        PAP5  (JL,JK)     = (psa_DY(ikl) * sigmi(JK) + pt__DY) * 1000.  ! Pressure (Layer Interface)[Pa]
+        PDP5  (JL,JK)     =  psa_DY(ikl) *dsigmi(JK)           * 1000.  ! Pressure (Layer Thickness)[Pa]
+
+
+!  Temperature   Distribution
+!  --------------------------
+
+        PT5   (JL,JK)     =  Ta__DY(ikl,JK)
+
+
+!  Water Species Distribution
+!  --------------------------
+
+        PQ5   (JL,JK)     =  qv__DY(ikl,JK)                             ! Water Vapor  Concentr. [kg/kg]
+
+    ENDDO
+  ENDDO
+
+
+
+
+! Initialization (Climatologies, Time independant)
+! ================================================
+
+!  Aerosols Radiative Characteristics (YOEAER)
+!  ----------------------------------
+
+!            *******
+        CALL SUAERL                  ! Aerosols LW Radiative Charact.
+        CALL SUAERSN ( NTSW , KSW )  ! Aerosols SW Radiative Charact.
+!            *******
+
+
+!  Aerosols Optical Thickness Horizontal Distribution (model grid
+!  --------------------------------------------------  independant)
+
+!            ********
+        CALL SUAERH                  ! 
+        CALL SUECAEBC                ! BLACK CARBON (URBAN/FOREST FIRE ORIGIN)
+        CALL SUECAEOR                ! ORGANIC-TYPE
+        CALL SUECAESD                ! SOIL-DUST                       ORIGIN
+        CALL SUECAESS                ! SEA -SALT                       ORIGIN
+        CALL SUECAESU                ! SULFATE-TYPE
+!            ********
+
+
+!  Clouds (YOECLD)
+!  ---------------
+
+        DO jk=1,klev
+          ZETA(jk) =PAP5(1,jk) /PAPH5(1,klev+1)
+        ENDDO
+        DO jk=1,klev+1
+          ZETAH(jk)=PAPH5(1,jk)/PAPH5(1,klev+1)
+        ENDDO
+! Martin Control
+!PRINT*, 'PAPH5(1,:)=',PAPH5(1,:)
+!PRINT*, 'ZETAH=',ZETAH
+! Martin Control
+
+!            *****
+        CALL SUCLD  ( KLEV  , ZETA ) 
+!            *****
+
+
+!  Cloud Optical Parameters SW/LW (all parameterizations)
+!  ------------------------------------------------------
+
+!            *******
+        CALL SUCLOPN ( NTSW , KSW , KLEV )  ! Initialize YOECLOP
+!            *******
+
+
+!  Radar Reflectivity
+!  ------------------
+
+         ZAZH(KLEV+1)=     0.
+          ZAZ(1)     =100000.
+           JL=KIDIA
+        DO jk=KLEV,2,-1
+          ZTVIR      =       PT5(JL,jk)   /(1.-0.608*PQ5(jl,jk))
+          ZFACT      = LOG(PAPH5(jl,jk+1))-    LOG(PAPH5(jl,jk))
+          ZAZH(jk)   =      ZAZH(jk+1)    + R *    ZTVIR/(RMD*RG)*ZFACT
+           ZAZ(jk)   = 0.5*(ZAZH(jk+1)+ZAZH(jk))*1000.
+        END DO
+
+!            ******
+        CALL SUOVLP  ( KLEV , ZAZ )         ! Initialize ALPHA1 (%radar refl.)
+!            ******                         !  (Hogan & Illingsworth, 1999)
+
+
+!  NO Absorber
+!  -----------
+
+        IF (NOZOCL.EQ.-1) THEN
+                RCH4             = 1.E-18
+                RN2O             = 1.E-18
+                RO3              = 1.E-18
+                RCFC11           = 1.E-18
+                RCFC12           = 1.E-18
+                PCCO25           = 1.E-18
+          DO jk=1,klev
+              DO jl=KIDIA,KFDIA
+                POZON5(JL,JK)    = 0.
+              ENDDO
+          ENDDO
+          DO JK=1,KLEV
+            DO JAER=1,KAER
+              DO JL=KIDIA,KFDIA
+                PAER5(JL,JAER,JK)= ZEPAER
+              ENDDO
+            ENDDO
+          ENDDO
+        END IF
+
+
+
+      return
+      end subroutine Atm_RT_INI
Index: LMDZ5/branches/testing/libf/phymar/Atm_RT_RUN.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Atm_RT_RUN.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Atm_RT_RUN.F90	(revision 2160)
@@ -0,0 +1,840 @@
+      subroutine Atm_RT_RUN(rklonr,iklOUT)
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 24-Jun-2013  MAR |
+!     subroutine Atm_RT_RUN interfaces MAR PHYsics                         |
+!           with ECMWF Solar/Infrared   Radiative  Transfer Scheme         |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  2-Apr-2013      |
+!           Last Modification by H. Gallee,           Mon 24-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     Content:   CALL of - ECMWF Code initializing the Radiation Transfert |
+!                        - ECMWF                       Radiation Transfert |
+!                                                                          |
+!     ECMWF Code Source:  J.-J. Morcrette, 28 nov 2002                     |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY_RT_dat
+      use Mod_PHY____grd
+      use Mod_PHY_S0_grd
+      use Mod_PHY_RT_grd
+      use Mod_PHY_S0_kkl
+      use Mod_PHY_RT_kkl
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_CM_kkl
+      use Mod_SISVAT_gpt
+
+
+#include "tsmbkind.h"
+
+
+
+! Global Variables (ECMWF)
+! ========================
+
+USE PARRTM1D , ONLY : JP_LON   ,JP_IDIA  ,JP_FDIA  ,JP_TDIA  ,&
+ &            JP_LEV ,JP_LW    ,JP_SW    ,JP_NUA   ,JP_MODE  ,&
+ &            JP_AER ,JP_LEVP1
+USE YOMCST   , ONLY : RD       ,RG       ,RTT      ,RSIGMA   ,&
+ &            RCPD   ,RPI      ,RDAY     ,REA      ,RI0      ,&
+ &            REPSM  ,RMD      ,RKBOL    ,RNAVO    ,R        ,&
+ &            RLVTT  ,RLSTT
+USE YOERAD   , ONLY : NSW      ,NTSW     ,NRADFR             ,&
+ &            LRRTM  ,LINHOM   ,LOIFUEC  ,LTEMPDS  ,LOWASYF  ,&
+ &            LOWHSSS,LONEWSW  ,LNEWAER  ,LHVOLCA            ,&
+ &            NRADIP ,NRADLP   ,NOZOCL                       ,&
+ &            NICEOPT,NLIQOPT  ,NOVLP    ,NHOWINH  ,RMINICE
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED            ,&
+ &            RCTRBGA,RCVOBGA  ,RCSTBGA  ,RCAEOPS  ,RCAEOPL  ,RCAEOPU ,&
+ &            RCAEOPD,RCTRPT   ,RCAEADK  ,RCAEADM  ,RCAEROS
+USE YOERDI   , ONLY : RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
+ &                                                  RCFC12
+USE YOERDU   , ONLY : RCDAY    ,R10E     ,DIFF     ,REPLOG   ,&
+ &            REPSC  ,REPSCO   ,REPSCQ   ,REPSCT   ,REPSCW   ,&
+ &            NTRAER
+USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
+ &            R4IES  ,R5LES    ,R5IES    ,R5ALVCP  ,R5ALSCP  ,&
+ &            RALVDCP,RALSDCP  ,RTWAT    ,RTICE    ,RTICECU
+
+
+
+      IMPLICIT NONE
+
+      logical                      ::  RTi_qi_and_qs = .TRUE.           ! * as Very small Cloud Particle: T
+!Gilles: T > F to have interactive cloud frac. & radiation
+      logical                      ::  CFrCEP        = .FALSE.          ! ECMWF or CMiPhy Cloud Fraction: T OR F
+
+
+
+!  INPUT (from MAR/ECMWF Interface)
+!  -----
+
+      integer                      ::  rklonr                           ! nb    des pts de grilles
+      integer                      ::  iklOUT                           ! OUTPUT   (pt  de grille)
+
+      integer                      ::  kj                               ! Index des niveaux
+      integer                      ::  nAe                              ! Index d'aerosols
+
+! #DB integer                      ::  kio
+! #DB integer                      ::  kjo
+      integer, dimension(rklonr)   ::  k2ii                             !
+      integer, dimension(rklonr)   ::  k2jj                             !
+! #DB integer                      ::  jkjllw      
+! #DB integer                      ::  lijio
+
+
+
+!  INTERNAL VARIABLES
+!  ------------------
+
+!   For Use in radlsw
+!   ^^^^^^^^^^^^^^^^^
+      REAL_B    ::   PGELAM5(JP_LON)
+      REAL_B    ::    PGEMU5(JP_LON)
+      REAL_B    ::    PSLON5(JP_LON)
+      REAL_B    ::    PCLON5(JP_LON)
+      REAL_B    ::    ZOZON5(JP_LON,JP_LEV)
+      REAL_B    ::     ZAER5(JP_LON,JP_AER,JP_LEV)
+!
+!
+      INTEGER_M :: KIDIA ,KFDIA ,KTDIA ,KLON  ,KLEV  
+      INTEGER_M :: KMODE ,KAER  ,KSW
+
+      INTEGER_M :: KBOX  ,NBOX
+      INTEGER_M :: NDUMP ,ILWRAD
+!
+      REAL_B    ::    PRII05
+
+      REAL_B    ::     PAER5(JP_LON,JP_AER,JP_LEV)   ! Aerosol Optical Depth
+      REAL_B    ::    PALBD5(JP_LON,JP_SW)  
+      REAL_B    ::    PALBP5(JP_LON,JP_SW)
+!
+      REAL_B    ::     PAPH5(JP_LON,JP_LEVP1) 
+      REAL_B    ::      PAP5(JP_LON,JP_LEV)
+!
+      REAL_B    ::    PCCO25
+      REAL_B    ::    PCLFR5(JP_LON,JP_LEV) 
+      REAL_B    ::      PDP5(JP_LON,JP_LEV)
+      REAL_B    ::    PEMIS5(JP_LON)
+      REAL_B    ::    PEMIW5(JP_LON)
+      REAL_B    ::     PLSM5(JP_LON)
+      REAL_B    ::     PMU05(JP_LON)
+      REAL_B    ::    POZON5(JP_LON,JP_LEV)
+      REAL_B    ::       PQ5(JP_LON,JP_LEV)
+!
+      REAL_B    ::    PQIWP5(JP_LON,JP_LEV) 
+      REAL_B    ::    PQLWP5(JP_LON,JP_LEV)          ! Dropplets    Concentration
+      REAL_B    ::    PSQIW5(JP_LON,JP_LEV)          ! Ice Crystals Concentration
+      REAL_B    ::    PSQLW5(JP_LON,JP_LEV)          ! 
+      REAL_B    ::      PQS5(JP_LON,JP_LEV)
+      REAL_B    ::   PQRAIN5(JP_LON,JP_LEV)
+      REAL_B    ::   PRAINT5(JP_LON,JP_LEV)
+      REAL_B    ::   PRLVRI5(JP_LON,JP_LEV)
+      REAL_B    ::   PRLVRL5(JP_LON,JP_LEV)
+      REAL_B    ::      PTH5(JP_LON,JP_LEVP1) 
+      REAL_B    ::       PT5(JP_LON,JP_LEV) 
+      REAL_B    ::      PTS5(JP_LON)
+      REAL_B    ::    PNBAS5(JP_LON)        
+      REAL_B    ::    PNTOP5(JP_LON)
+!
+      REAL_B    ::    PEMIT5(JP_LON)
+      REAL_B    ::     PFCT5(JP_LON,JP_LEVP1)
+      REAL_B    ::     PFLT5(JP_LON,JP_LEVP1)
+      REAL_B    ::     PFCS5(JP_LON,JP_LEVP1)
+      REAL_B    ::     PFLS5(JP_LON,JP_LEVP1)
+      REAL_B    ::   PFRSOD5(JP_LON)
+      REAL_B    ::    PSUDU5(JP_LON)
+      REAL_B    ::    PUVDF5(JP_LON)
+      REAL_B    ::    PPARF5(JP_LON)
+      REAL_B    ::    PFDCT5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFUCT5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFDLT5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFULT5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFDCS5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFUCS5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFDLS5(JP_LON,JP_LEVP1)
+      REAL_B    ::    PFULS5(JP_LON,JP_LEVP1)
+!
+      REAL_B    ::    ZTAU5 (JP_LON,JP_SW,JP_LEV)    ! Cloud Optical Depth
+      REAL_B    ::    ZTAUI5(JP_LON)                 ! Cloud Optical Depth (vert.int.)
+!
+      REAL_B    ::    ASWBOX(JP_LON,100)
+      REAL_B    ::    OLRBOX(JP_LON,100)
+      REAL_B    ::    SLWBOX(JP_LON,100)
+      REAL_B    ::    SSWBOX(JP_LON,100)
+      REAL_B    ::    TAUBOX(JP_LON,100)
+      REAL_B    ::    CLDBOX(JP_LON,100,JP_LEV)
+
+!   For Use in SUCLD
+!   ^^^^^^^^^^^^^^^^
+      REAL_B    ::   ZETAH(JP_LEVP1)
+
+
+
+!  Local  Variables
+!  ----------------
+
+      REAL_B    ::         RTIMTR  , ZTHETOZ , ZANGOZC
+      REAL_B    ::         Zone_t                                       !  Time  Zone                               [hr]
+      REAL_B    ::         qcloud                                       !  Cloud Particles Concentration          [g/kg]
+      REAL_B    ::         fcloud                                       !  Cloud           Fraction                  [%]
+      REAL_B    ::         LWUpwd                                       !  Surface Upward  Longwave Radiation     [W/m2]
+      REAL_B    ::         Emi_Cl                                       !  Cloud Emissivity (diagnostic)             [-]
+
+      INTEGER_M ::    i       , j       , ikl     ,k
+      INTEGER_M ::    JL      , JK      , JAER    ,JNU
+      INTEGER_M ::    KULOUT  , NINDAT  , NSSSSS  ,KPRTLEV
+      INTEGER_M ::    IYR     , MONTH   , IDAY    ,IMINUT
+      INTEGER_M ::    KPRINT  , SKSHIFT
+
+
+
+
+! Load External Functions
+! =======================
+
+#include "fctast.h"
+#include "fcttim.h"
+#include "fcttre.h"
+
+
+      KPRTLEV= 1
+      KPRINT = 1
+      SKSHIFT= 0
+
+
+
+
+! OUTPUT for DEBUGGING
+! ====================
+
+! #DB kio = 1
+! #DB kjo = 1
+
+
+
+
+! Date & Time
+! ===========
+
+      NINDAT = min(yearTU,2004)*10000+mon_TU*100+Day_TU                 ! Date   in the form  yyyyMMdd
+      NSSSSS =     HourTU      * 3600+minuTU* 60+sec_TU                 ! Nb of second since day Begin
+
+! VER   v
+        write(6,*) ' NINDAT: ',NINDAT
+        write(6,*) ' NSSSSS: ',NSSSSS
+! VER   ^
+      IYR    =   NAA(NINDAT)
+      MONTH  =   NMM(NINDAT)
+      IDAY   =   NDD(NINDAT)
+      RTIMTR = RTIME(IYR,MONTH,IDAY,NSSSSS)
+      IMINUT =   INT(FLOAT(NSSSSS)/60.)
+
+
+
+
+! Basic Initialization
+! ====================
+
+!  Dimensions (auxiliary variables)
+!  --------------------------------
+
+        KIDIA  = 1                                   ! DO'NT CHANGE
+        KFDIA  = JP_LON                              ! Nb Columns
+        KTDIA  = 1                                   !
+        KLON   = JP_LON                              ! Nb Columns
+        KLEV   = JP_LEV                              ! Nb Levels
+        KMODE  = JP_MODE                             ! Used in Planck Fcts Specification
+        KAER   = JP_AER                              !
+
+        DO     ikl  = 1 ,  kcolp
+          k2ii(ikl) = ii__AP(ikl)
+          k2jj(ikl) = jj__AP(ikl)
+        ENDDO
+
+!   Nb of Solar Spectral Intervals
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        KSW    =  JP_SW                              ! SW Nb of Spectral Intervals (max is JP_SW=6)
+        NSW    =  JP_SW                              ! SW Nb of Spectral Intervals (max is JP_SW=6)
+        NTSW   =  JP_SW                              ! SW Nb of Spectral Intervals (max is JP_SW=6)
+
+        KBOX   = 0                                   !                                      \VER
+        NBOX   = 1                                   !                                      \VER
+
+        ILWRAD = 1                                   ! 0: Morcrette,     1991 operational before 20000627
+                                                     ! 1: Mlawer et al., 1997 now ECMWF-operational
+                                                     ! 2: Morcrette,     1991 original as in ERA-15'
+
+        NDUMP  = 3                                   ! No Print
+!       NDUMP  = 2                                   ! 1D Results
+!       NDUMP  = 1                                   ! Debug
+!       NDUMP  = 0                                   ! ALL
+        KULOUT = 6                                   ! Output Device for SUCST
+
+
+
+
+! Radiation: Global (Time dependant) Parameters
+! =============================================
+
+        PRII05 = RI0/(dST_UA*dST_UA)                 ! INSOLATION   (dST_UA: Distance Soleil-Terre [UA])
+        PCCO25 = 360.E-06*44./29.                    ! CONCENTRATION IN CO2 (PA/PA)
+
+
+
+
+! Surface Properties
+! ==================
+
+!  Surface Albedo
+!  --------------
+
+  DO jl=1,KLON
+        ikl               = min(jl,kcolp)
+        i                 = ii__AP(ikl)
+        j                 = jj__AP(ikl)
+    DO jnu=1,KSW
+        PALBD5(JL,JNU)    = Alb_SV_gpt(jl)
+        PALBP5(JL,JNU)    = Alb_SV_gpt(jl)
+    ENDDO
+
+!  Surface Emissivity
+!  ------------------
+
+        PEMIS5(JL)        = EmisSV_gpt(jl)
+        PEMIW5(JL)        = EmisSV_gpt(jl)
+
+
+!  Land/sea Mask (1.=land)
+!  -------------
+
+        PLSM5 (JL)    = 1 - MaskSV_gpt(jl)
+
+
+!  Cosine (Solar zenithal Distance)
+!  --------------------------------
+
+        PMU05 (JL)    =     csz_S0(ikl)
+
+
+
+
+! Atmospheric Thermodynamics (Time and Space dependant)
+! =====================================================
+
+!  Pressure
+!  --------
+
+! Martin control
+!PRINT*,'sigma(:)=',sigma(:)
+!PRINT*,'sigmi(:)=',sigmi(:)
+! Martin control
+
+       JK=1+KLEV
+        PAPH5 (JL,JK)     = (psa_DY(ikl)             + pt__DY) * 1000.  ! Pressure (Layer Interface)[Pa]
+    DO JK=1,KLEV
+        PAPH5 (JL,JK)     = (psa_DY(ikl) * sigma(JK) + pt__DY) * 1000.  ! Pressure (Layer)          [Pa]
+        PAP5  (JL,JK)     = (psa_DY(ikl) * sigmi(JK) + pt__DY) * 1000.  ! Pressure (Layer Interface)[Pa]
+        PDP5  (JL,JK)     =  psa_DY(ikl) *dsigmi(JK)           * 1000.  ! Pressure (Layer Thickness)[Pa]
+
+
+!  Water Species      Distributions
+!  --------------------------------
+
+          PQ5    (JL,JK)  = qv__DY(ikl,JK)                              ! Water Vapor  Concentr. [kg/kg]
+        IF      (RTi_qi_and_qs)                                     THEN
+          PQIWP5 (JL,JK)  = qi__CM(ikl,JK)                             &! Ice Crystals Concentr. [kg/kg]
+     &    + (1.-min(1.,exp((Ta__DY(ikl,JK)-258.15)*0.1)))              &! AND
+     &    * (               qs__CM(ikl,JK)        *0.33 )               ! Snow Particl.Concentr. [kg/kg]
+        ELSE                                                            !
+          PQIWP5 (JL,JK)  = qi__CM(ikl,JK)                              ! Ice Crystals Concentr. [kg/kg]
+        END IF
+          PQIWP5 (JL,JK)    = max(0.,PQIWP5(JL, JK)-1.E-9)              ! Ice Crystals Concentr. [kg/kg]
+
+          PQLWP5 (JL,JK)    = max(0.,qw__CM(ikl,JK)-1.E-9)              ! Dropplet     Concentr. [kg/kg]
+
+          PQS5   (JL,JK)    =        qvswCM(ikl,JK)                     ! Saturat. % Water       [kg/kg]
+          PQRAIN5(JL,JK)    =        qr__CM(ikl,JK)                     ! Drops        Concentr. [kg/kg]
+          PRAINT5(JL,JK)    = 0.                                        !                           \VER
+          PRLVRI5(JL,JK)    = 0.                                        ! e-mail J.-J.M. 20031203
+          PSQIW5 (JL,JK)    = 1.                                        !    exp(-PRLVRI5(JL,JK))
+          PRLVRL5(JL,JK)    = 0.                                        ! e-mail J.-J.M. 20031203
+          PSQLW5 (JL,JK)    = 1.                                        !    exp(-PRLVRL5(JL,JK))
+
+
+!  Cloud Fraction
+!  --------------
+
+        IF (CFrCEP)                                                 THEN
+          PCLFR5 (JL,JK)    =       (PQIWP5(JL,JK)+PQLWP5(JL,JK))      &! ECMWF Paramet.
+     &                             /(FraQws       *  PQS5(JL,JK))       !  (VERY Crude)
+          PCLFR5 (JL,JK)    =       min( _ONE_    ,PCLFR5(JL,JK))       !
+          PCLFR5 (JL,JK)    =       max(1.0E-3    ,PCLFR5(JL,JK))      &! no small values
+     &        *max(_ZERO_,sign(_ONE_,PQIWP5(JL,JK)+PQLWP5(JL,JK)       &!
+     &                              -2.E-9_JPRB))                       !
+          CFraCM (ikl,JK)   =        PCLFR5(JL,JK)                      !
+        ELSE
+          PCLFR5 (JL,JK)    =        CFraCM(ikl,JK)                     ! Cloud Fraction from CMiPhy [-]
+        END IF
+!         write(4,4) JL,JK,PQLWP5(JL,JK),PQIWP5(JL,JK)                 &
+!    &                    ,  PQS5(JL,JK)                               &
+!    &                    ,CFraCM(JL,JK),PCLFR5(JL,JK)
+!4        format(2i6,' Cloud Liq.W.= ', f9.6,5x                        &
+!    &              ,' Cloud Sol.W.= ', f9.6,5x                        &
+!    &              ,' Satur.W.Vap.= ', f9.6,5x                        &
+!    &              ,' Cloud Fract.= ',2f9.6)
+
+!  Temperature        Distribution
+!  -------------------------------
+
+          PT5    (JL,JK)    =        Ta__DY(ikl,JK)
+          PTH5   (JL,JK)    = 0.5 * (Ta__DY(ikl,JK)+Ta__DY(ikl,max(1,JK-1)))
+    END DO
+        PTH5   (JL,KLEV+1)  =        Ta__DY(ikl,mzpp)
+        PTS5   (JL)         =        Ta__DY(ikl,mzpp)
+
+
+!  Convective Layer
+!  ----------------
+
+        PNBAS5 (JL)       = 1.                !                                 \VER
+        PNTOP5 (JL)       = 1.                !                                 \VER
+  ENDDO
+
+
+
+
+! Assignation    (Climatologies, Time   dependant)
+! ================================================
+
+!  Aerosols Optical Thickness Horizontal Distribution (model grid
+!  --------------------------------------------------  independant)
+
+!            *******
+        CALL SUECAEC ( NINDAT, IMINUT )     ! TEGEN ET AL. (1997, JGR 102, 
+!            *******                        !               pp23895-23915)
+ 
+
+!  Aerosols Optical Thickness Vertical   Distribution
+!  --------------------------------------------------
+!            *******
+
+
+! Martin modification for MAR-LMDZ:
+DO jk=1,klev+1
+   ZETAH(jk)=PAPH5(1,jk)/PAPH5(1,klev+1)
+ENDDO
+! Martin Control
+!Print*, 'Dans Atm_RT_RUN:'
+!PRINT*,'ZETAH=',ZETAH
+!PRINT*,'=KLEV',KLEV
+! Martin Control
+
+! Martin Control
+
+        CALL SUAERV                                                  &
+                 & ( KLEV   ,ZETAH                                   &
+                 & , CVDAES ,CVDAEL ,CVDAEU ,CVDAED                  &
+                 & , RCTRBGA,RCVOBGA,RCSTBGA,RCAEOPS,RCAEOPL,RCAEOPU &
+                 & , RCAEOPD,RCTRPT ,RCAEADK,RCAEADM,RCAEROS         &
+                 & )
+!            *******
+
+
+!  O3
+!  --   
+
+!   Fortuin-Langematz O3 climatology
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+!            *******
+        CALL SUECOZC ( NINDAT , IMINUT )
+!            *******
+
+!   ECMWF   Geleyn    O3 Climatology
+!   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        ZTHETOZ=RTETA( RTIMTR  )
+        ZANGOZC=  REL( ZTHETOZ ) - 1.7535
+
+!            *******
+        CALL SUECOZO ( ZANGOZC )
+!            *******
+
+
+
+
+! Interpolation on the MAR Grid
+! =============================
+
+        DO JL=1,KLON
+          ikl=min(JL,kcolp)
+          PGELAM5(JL)=    lon__r(ikl)
+           PGEMU5(JL)=SIN(lat__r(ikl))
+           PCLON5(JL)=COS(lon__r(ikl))
+           PSLON5(JL)=SIN(lon__r(ikl))
+        END DO
+
+!              ******
+         CALL  RADACA                                       &
+          &( KIDIA , KLON   , KLON  , KTDIA , KLEV          &
+          &, PAPH5 , PGELAM5, PGEMU5, PCLON5, PSLON5, PTH5  &
+          &, ZAER5 , ZOZON5                                 &
+          &  )
+!              ******
+
+
+!  OLD         ECMWF O3 Climatology
+!  --------------------------------
+
+        IF (NOZOCL.EQ.1 .OR. NOZOCL.EQ.3)                           THEN
+          DO JK=1,KLEV
+            DO JL=KIDIA,KFDIA
+              POZON5(JL,JK)      = ZOZON5(JL,JK)
+            ENDDO
+          ENDDO
+        END IF
+
+
+!  FORTUIN LANGEMATZ O3 Climatology
+!  --------------------------------
+
+        IF (NOZOCL.EQ.2 .OR. NOZOCL.EQ.4)                           THEN
+
+!              ******
+          CALL RADOZC ( KIDIA ,KLON  , KLON   , KTDIA, KLEV            &
+                     &, KPRINT,KLON  , SKSHIFT, PAPH5, PGEMU5, ZOZON5)
+!              ******
+
+          DO JK=1,KLEV
+            DO JL=KIDIA,KFDIA
+              POZON5(JL,JK)      = ZOZON5(JL,JK)
+            ENDDO
+          ENDDO
+ 
+        END IF
+
+
+!  AEROSOLS
+!  --------
+
+        IF (NOZOCL.EQ.1 .OR. NOZOCL.EQ.2)                           THEN
+          DO jk=1,klev
+            DO jaer=1,KAER
+              DO jl=KIDIA,KFDIA
+                PAER5(JL,JAER,JK)= ZAER5(JL,JAER,JK)
+              ENDDO
+            ENDDO
+          ENDDO
+        END IF
+
+
+!  NO AEROSOLS
+!  -----------
+
+        IF (NOZOCL.GT.2)                                            THEN
+          DO jk=1,klev
+            DO jaer=1,KAER
+              DO jl=KIDIA,KFDIA
+                PAER5(JL,JAER,JK)= ZEPAER
+              ENDDO
+            ENDDO
+          ENDDO
+        END IF
+
+
+!  SECURITY CHECK ON AEROSOL AMOUNTS
+!  ---------------------------------
+
+        DO JK=1,KLEV
+          DO JAER=1,KAER
+            DO JL=KIDIA,KFDIA
+              PAER5(JL,JAER,JK)=MAX(ZEPAER,PAER5(JL,JAER,JK))
+            ENDDO
+          ENDDO
+        ENDDO
+
+
+
+
+! Transmission to MAR Variables
+! =============================
+
+      DO JL=1,KLON
+              ikl=min(JL,kcolp)
+
+        DO JK=1,KLEV
+              O3__RT(ikl,jk     ) = ZOZON5(JL,JK)                       ! O3      Concentr.
+        END DO
+
+        DO JK=1,KLEV
+          DO JAER=1,KAER
+              AersRT(ikl,jk,jaer) =  PAER5(JL,JAER,JK)                  ! Aerosol Optical Thickness
+          END DO
+        END DO
+
+      END DO
+
+
+
+
+! Solar and IR Transfer through the Atmosphere
+! ============================================
+
+
+! VER   v
+!       STOP 'Fin momentanee'
+! VER   ^
+!                ******
+            CALL RADLSW                                                 &
+     &    ( KIDIA , KFDIA , KLON  , KTDIA , KLEV   , KMODE , KAER,      &
+     &      KBOX  , NBOX                                                &
+     &    , NDUMP , ILWRAD                                              &
+     &    , PRII05                                                      &
+     &    , PAER5 , PALBD5, PALBP5, PAPH5 , PAP5                        &
+     &    , PCCO25, PCLFR5, PDP5  , PEMIS5, PEMIW5 , PLSM5 ,  PMU05,    &
+     &      POZON5                                                      &
+     &    , PQ5   , PQIWP5, PQLWP5, PSQIW5, PSQLW5 , PQS5  ,  PQRAIN5,  &
+     &      PRAINT5                                                     &
+     &    , PRLVRI5,PRLVRL5,PTH5  , PT5   , PTS5   , PNBAS5,  PNTOP5    &
+     &    , PEMIT5, PFCT5 , PFLT5 , PFCS5 , PFLS5  , PFRSOD5, PSUDU5,   &
+     &      PUVDF5, PPARF5                                              &
+     &    , PFDCT5, PFUCT5, PFDLT5, PFULT5, PFDCS5 , PFUCS5,  PFDLS5,   &
+     &      PFULS5                                                      &
+     &    , ZTAU5 , ZTAUI5                                              &
+     &    , ASWBOX, OLRBOX, SLWBOX, SSWBOX, TAUBOX , CLDBOX             &
+! #DB&                                                     ,  k2ii,k2jj &
+     &    )
+!                ******
+
+
+
+
+! Radiative Fluxes   Distributions
+! ================================
+
+  DO JL=1,KLON
+        ikl = min(JL,kcolp)
+    DO JK=1,KLEV+1
+        FIRn_c (ikl,jk)    = PFCT5 (JL,JK)                              ! CLEAR-SKY LW NET FLUXES [W/m2]
+        FIRn_t (ikl,jk)    = PFLT5 (JL,JK)                              ! TOTAL-SKY LW NET FLUXES [W/m2]
+        FSOn_c (ikl,jk)    = PFCS5 (JL,JK)                              ! CLEAR-SKY SW NET FLUXES [W/m2]
+        FSOn_t (ikl,jk)    = PFLS5 (JL,JK)                              ! TOTAL-SKY SW NET FLUXES [W/m2]
+    END DO
+
+
+
+
+! Cloud Optical Depth
+! ===================
+
+    DO JK=1,KLEV
+        kj              =  KLEV + 1    -JK                              ! 
+        ODCzRT (ikl,kj) =  ZTAU5(JL,  1,JK)                             ! Cloud Optical Depth
+       DO nAe=1,naero                                                   !
+        ODAzRT (ikl,jk) = ODAzRT(ikl,jk   ) + PAER5(JL,nAe,JK)          ! Aeros.Optical Depth
+       END DO                                                           !
+    END DO                                                              !
+                                                                        !
+        ODC_RT (ikl   ) = ZTAUI5(JL)                                    ! Cloud Optical Depth (vert.integr., 
+                                                                        !                      1st interval)
+        ODA_RT (ikl   ) = 0.                                            !
+    DO JK=1,KLEV                                                        !
+        ODA_RT (ikl   ) = ODA_RT(ikl)       + ODAzRT(ikl,jk)            ! Aeros.Optical Depth
+    END DO
+
+
+
+
+! SURFACE RADIATIVE CHARACTERISTICS (SW)
+! ======================================
+
+        FSOs_t(ikl)     = PFRSOD5(JL)                                   ! TOTAL-SKY SRF SW DOWNWARD FLUX    [W/m2]
+        FSOdir(ikl)     =  PSUDU5(JL)                                   ! SOLAR RADIANCE IN SUN'S DIRECT.   [W/m2]
+        FSOsUV(ikl)     =  PUVDF5(JL)                                   ! SURFAC.DOWNWARD U.V. RADIATION    [W/m2]
+        FSOeff(ikl)     =  PPARF5(JL)                                   ! PHOTOSYNTHET. ACTIVE RADIATION    [W/m2]
+
+
+
+
+! SURFACE RADIATIVE CHARACTERISTICS (LW)
+! ======================================
+!       EmisSV_gpt(jl ) =  PEMIT5(JL)                                   ! TOTAL LW EMISSIVITY                \VER
+
+  END DO
+
+
+
+
+!  Grid  Point   Dependant Variables <-- Atm_RT "Vector"Variables
+!  ==============================================================
+
+        DO   ikl = 1,kcolp
+
+              i =  ii__AP(ikl)
+              j =  jj__AP(ikl)
+
+!  OutgoingLongWave Radiation Fluxes
+!  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+              OLR_RT    (ikl)   =-FIRn_t(ikl,1   )                                            ! Atm Top LongWave Heat Flux (+)  (  Upward)
+
+!  Surface Downward Radiative Fluxes
+!  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+              SWDsRT    (ikl)   = FSOs_t(ikl     )                                            ! Surface ShrtWave Heat Flux (+)  (Downward)
+              SWAsRT    (ikl)   = FSOs_t(ikl     )*(1.-Alb_SV_gpt(ikl))                       ! Surface ShrtWave Heat Flux (+)  (Absorbed)
+              LWDsRT    (ikl)   = FIRn_t(ikl,mzpp)                                           &!
+     &                          + Ta__DY(ikl,mzpp)*    Ta__DY(ikl,mzpp)                      &!
+     &                           *Ta__DY(ikl,mzpp)*    Ta__DY(ikl,mzpp)                      &!
+     &                           *StefBo          *    EmisSV_gpt(ikl)                        !
+
+!  Cloud   Fraction
+!  ^^^^^^^^^^^^^^^^
+              ClouRT    (ikl)   =  0.0
+          DO  k  = 1,mzp
+              ClouRT    (ikl)   =  max(CFraCM(ikl,k)   , ClouRT(ikl))
+
+!  Radiative Heating
+!  ^^^^^^^^^^^^^^^^^
+              LWdTRT    (ikl,k) =  - ( FIRn_t(ikl,k+1) - FIRn_t(ikl,k) )                     &!
+     &                  *  Grav_F  / ( CpdAir *1.e3 *psa_DY(ikl) *dsigmi(k))                  !
+              SWdTRT    (ikl,k) =  - ( FSOn_t(ikl,k+1) - FSOn_t(ikl,k) )                     &!
+     &                  *  Grav_F  / ( CpdAir *1.e3 *psa_DY(ikl) *dsigmi(k))                  !
+
+              dpktRT    (ikl,k) =    ( LWdTRT(ikl,k) + SWdTRT(ikl,k) ) / ExnrDY(ikl,k)
+              LWdTRT    (ikl,k) =      LWdTRT(ikl,k) * 86400.
+              SWdTRT    (ikl,k) =      SWdTRT(ikl,k) * 86400.
+
+          END DO
+
+        END DO
+
+
+
+
+
+! OUTPUT
+! ======
+
+! OUTPUT for Analysis
+! -------------------
+
+      IF          (iklOUT.GT.0)                                     THEN
+
+        ikl =      iklOUT
+        i = ii__AP(iklOUT)
+        j = jj__AP(iklOUT)
+        Zone_t = lon__h(ikl) - 12.
+
+            write(4,401)Day_TU,Mon_TU,HourTU       ,minuTU,            &
+     &                                Zone_t       , i ,j
+  401       format(//,' +-- Radiative  Heat Fluxes --+',               &
+     &       i4,'/',i2,i4,':',i2,' h.LT (',f4.0')',                    &
+     &                '  (i,j) = (',i3,',',i3,')',                     &
+     &        //,' | Altitud | Pressur.| Temper.|  Ozone  | W.Vapor|', &
+     &      ' Clouds | Clouds |  Opt.D | Aer.OD. | So Warm.|',         &
+     &       ' Emiss.| IR Cool.| IR NetF.|',                           &
+     &         /,' |   [km]  |   [hPa] |   [K]  | [cmSTP] | [g/kg] |', &
+     &      ' [g/kg] |   [%]  |   [-]  |   [-]   | [K/day] |',         &
+     &       '  [-]  | [K/day] |  [W/m2] |',                           &
+     &         /,' +---------+---------+--------+---------+--------+', &
+     &              '--------+--------+--------+---------+---------+', &
+     &       '-------+---------+---------+')
+
+            write(4,404)                           pt__DY*1.e+1        &
+     &           ,                                 OLR_RT(ikl)
+  404       format(                                                    &
+     &                     ' |  SOMMET |',f8.2,' |', 7x ,' |', 8x ,' |'&
+     &        , 3( 7x ,' |'),    7x ,' |', 8x ,' |', 8x ,' |'          &
+     &        ,                            6x ,' |', 8x ,' |',f8.1,' |'&
+     &        ,/,' +---------+---------+--------+---------+--------+', &
+     &              '--------+--------+--------+---------+---------+', &
+     &       '-------+---------+---------+')
+
+
+            DO k =1,mzp
+
+               qcloud = 1.e+3 *(qw__CM(ikl,k)+qi__CM(ikl,k))
+               fcloud = 1.e+2 * CFraCM(ikl,k)
+               Emi_Cl = 1.-exp(-qcloud *0.5 *(Z___DY(ikl,max(1,k-1))-Z___DY(ikl,k+1))  &
+     &                            * sigma(k)* psa_DY(ikl) /    (287.*Ta__DY(ikl,k  )))
+
+               write(4,402)    1.e-3*Z___DY(ikl,k),PAP5  (ikl,k)*1.e-2 &
+     &           ,Ta__DY(ikl,k)     ,O3__RT(ikl,k)                     &
+     &           ,qv__DY(ikl,k)*1.e3,qcloud       ,fcloud              &
+     &           ,ODCzRT(ikl,k)     ,ODAzRT(ikl,k),SWdTRT(ikl,k)       &
+     &           ,Emi_Cl                          ,LWdTRT(ikl,k)       &
+     &                                            ,FIRn_t(ikl,k)
+  402          format(' | ',  f7.3,' |' ,f8.2,' |',f7.2,' |',e8.2,' |',&
+     &         2(f7.3,' |'),2(f7.2,' |'),e8.2,' |',f8.4,' |'           &
+     &          ,                         f6.3,' |',f8.2,' |',f8.1,' |')
+
+            END DO
+
+
+               LWUpwd =          Ta__DY(ikl,mzpp)*    Ta__DY(ikl,mzpp) &!
+     &                          *Ta__DY(ikl,mzpp)*    Ta__DY(ikl,mzpp) &!
+     &                          *StefBo          *    EmisSV_gpt( ikl)  !
+
+            write(4,403)                     1.e+1*psa_DY(ikl)         &
+     &           ,Ta__DY(ikl,mzpp)                                     &
+     &           ,ODC_RT(ikl     )  ,ODA_RT(  ikl),FSOs_t(ikl)         &
+     &                                            ,FIRn_t(ikl,mzpp)    &
+     &                            ,Alb_SV_gpt(ikl),SWAsRT(ikl)         &
+     &                            ,EmisSV_gpt(ikl),LWDsRT(ikl)         &
+     &                             ,LWUpwd
+  403       format(                                                    &
+     &           ' +---------+---------+--------+---------+--------+', &
+     &              '--------+--------+--------+---------+---------+', &
+     &       '-------+---------+---------+',                           &
+     &                   /,' | AIR-SOL |',f8.2,' |',f7.2,' |', 8x ,' |'&
+     &        , 3( 7x ,' |'),   f7.2,' |',e8.2,' |',f8.1,' |'          &
+     &        ,                            6x ,' |', 8x ,' |',f8.1,' |'&
+     &        ,          /,' |     SOL |', 8x ,' |', 7x ,' |', 8x ,' |'&
+     &        , 3( 7x ,' |'),    7x ,' |',f8.2,' |',f8.1,' |'          &
+     &        ,                           f6.3,' |',f8.1,' |',f8.1,' |')
+
+      END IF !    (iklOUT.GT.0)
+
+
+! OUTPUT for Debugging
+! --------------------
+
+! #DB     jkjllw=0
+! #DB DO JL=1,KLON
+! #DB     lijio =0
+! #DB     ikl   = min(JL,kcolp)
+! #DB DO JK=1,KLEV
+!!      write(6,*) k2ii(JL),k2jj(JL),jl,jk,' FIRn_t: ', PFLT5(jl,jk)
+!!      write(6,*) k2ii(JL),k2jj(JL),jl,jk,' FSOn_t: ', PFLS5(jl,jk)
+! #DB   IF ( PFLT5(jl,jk).GT. 500..OR. PFLS5(jl,jk).GT. 500. .OR.              &
+! #DB&       PFLT5(jl,jk).LT.-500..OR. PFLS5(jl,jk).LT.-500. .OR.              &
+! #DB&       (k2ii(jl).EQ.kio.AND.k2jj(jl).EQ.kjo)) lijio=1
+! #DB END DO
+! #DB IF   (lijio.EQ.1)                                             THEN
+! #DB   DO JK=1,KLEV
+! #DB     IF (mod(jkjllw,20).EQ.0)                                             &
+! #DB&        write(6,600)
+! #DB     600 format('IN   PHYrad2CEP: Radiative Fluxes ',/                    &
+! #DB&              ,'    i    j   JL   JK',9x,'Ta',9x,'Qv',9x,'Qi',9x,'Qw'    &
+! #DB&              ,9x,'O3',8x,'CLD',8x,'COD',8x,'AOD',8x,'SOn',8x,'IRn')
+! #DB         jkjllw=jkjllw+1
+! #DB         write(6,601) k2ii(JL),k2jj(JL),JL,JK                             &
+! #DB&                ,Ta__DY(ikl,JK),PQ5   (jk,jl)                            &
+! #DB&                ,PQIWP5(JL,JK) ,PQLWP5(JL,JK)                            &
+! #DB&                ,O3__RT(ikl,jk),CFraCM(ikl,JK)                           &
+! #DB&                ,ODCzRT(ikl,jk),ODAzRT(ikl,jk)                           &
+! #DB&                ,FSOn_t(ikl,jk),FIRn_t(ikl,jk)
+! #DB     601  format(4i5,10e11.3)
+! #DB   END DO
+! #DB ENDIF
+!
+! #DB END DO
+
+
+
+
+      return
+      end subroutine Atm_RT_RUN
Index: LMDZ5/branches/testing/libf/phymar/CMiPhy.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/CMiPhy.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/CMiPhy.f90	(revision 2160)
@@ -0,0 +1,3526 @@
+      subroutine CMiPhy
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-Jun-2013  MAR |
+!   MAR          CMiPhy                                                        |
+!     subroutine CMiPhy contains the MAR    Cloud Microphysical Scheme         |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Thu 21-Mar-2013      |
+!           Last Modification by H. Gallee,               Mon 17-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!   INPUT / OUTPUT: qv__DY(kcolp,mzp) : air   specific humidity        [kg/kg] |
+!   ^^^^^^^^^^^^^^  qw__CM(kcolp,mzp) : cloud drops                    [kg/kg] |
+!                   qi__CM(kcolp,mzp) : ice   crystals Concentration   [kg/kg] |
+!                   qs__CM(kcolp,mzp) : Snow  Particl. Concentration   [kg/kg] |
+!                   qr__CM(kcolp,mzp) : Rain  Drops    Concentration   [kg/kg] |
+!                                                                              |
+!   (to be added:   qg__CM(kcolp,mzp) : Graupels       Concentration   [kg/kg])|
+!                                                                              |
+!                   CCNwCM(kcolp,mzp) : cloud droplets number          [Nb/m3] |
+!                   CCNiCM(kcolp,mzp) : ice   crystals number          [Nb/m3] |
+!                                                                              |
+!                   CFraCM(kcolp,mzp) : cloud fraction                    [-]  |
+!                                                                              |
+!                   RainCM(kcolp    ) : rain  Precipitation           [m w.e.] |
+!                   SnowCM(kcolp    ) : snow  Precipitation           [m w.e.] |
+!                   Ice_CM(kcolp    ) : ice   Precipitation           [m w.e.] |
+!                                                                              |
+!                   qid_CM(kcolp,mzp) : Ice    Water Formation         [kg/kg] |
+!                   qwd_CM(kcolp,mzp) : Liquid Water Formation         [kg/kg] |
+!                                                                              |
+!   INPUT :         wa__DY(kcolp,mzp) : Vertical Wind Speed              [m/s] |
+!   ^^^^^           roa_DY(kcolp,mzp) : Air Density                     [T/m3] |
+!                   qvsiCM(kcolp,mzp) : Satur.specific humidity (ICE)  [kg/kg] |
+!                   qvswCM(kcolp,mzp) : Satur.specific humidity (LIQ.) [kg/kg] |
+!                                                                              |
+!   OUTPUT:                                                                    |
+!   ^^^^^^                                                                     |
+!                                                                              |
+!                                                                              |
+!   REFER. : 1) Ntezimana, unpubl.thes.LLN,          115 pp,     1993          |
+!   ^^^^^    2) Lin et al.       JCAM            22, 1065--1092, 1983          |
+!               (very similar, except that graupels are represented)           |
+!            3) Emde and Kahlig, Annal.Geophys.   7,  405-- 414, 1989          |
+!            4) Levkov et al.,   Contr.Atm.Phys. 65,   35--  57, 1992          |
+!            5) Meyers et al.,   JAM             31,  708-- 731, 1992          |
+!               (Primary Ice-Nucleation Parameterization)                      |
+!            6) Delobbe and Gallee, BLM          89,   75-- 107  1998          |
+!               (Partial Condensation Scheme)                                  |
+!                                                                              |
+! # OPTIONS: #hy  Additional IF/THEN/ELSE added precluding vectorization       |
+! # ^^^^^^^  #qg  Graupel Conservation Equation         (to  verify & include) |
+! #          #cn  Intercept Parameter / snow gamma distribution = fct(Ta)      |
+! #          #kk  Limitation of SCu fraction                                   |
+! #          #VW  Cloud Drop. Sediment.(Duynkerke .. 1995, JAS  52, p.2763     |
+! #          #pp  Emde & Kahlig Ice Crystal Deposition  (not included)         |
+! #          #wi  QSat modified by  qw/qi   Ratio       (not included)         |
+!                                                                              |
+! # DEBUG:   #WH  Additional Output (Each Process  is detailled)               |
+! # ^^^^^    #WQ  FULL       Output (Each Process  is detailled)               |
+! #          #wH  Additional Output                                            |
+! #          #wh  Additional Output (Include write CMiPhy_Debug.h)             |
+! #          #EW  Additional Output (Energy and Water Conservation)            |
+! #          #ew  Additional Output (Energy and Water Conservation)            |
+!                                                                              |
+!   REMARK : the sign '~' indicates that reference must be verified            |
+!   ^^^^^^^^                                                                   |
+!   CAUTION:     Partial Condensation Scheme NOT validated                     |
+!   ^^^^^^^      for SCu -- Cu Transition                                      |
+!                erf fonction is erroneous on HP                               |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+
+!  Global Variables
+!  ================
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_CM_dat
+      use Mod_PHY_CM_grd
+      use Mod_PHY_CM_kkl
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_AT_kkl
+
+
+
+!  Local  Variables
+!  ================
+
+      use Mod_CMiPhy_loc
+
+
+      IMPLICIT NONE
+
+
+      logical  ::  Heter_Freezng = .FALSE.  !  .TRUE. => Levkov et al. (1992)    Heterogeneous  Freezing of Cloud Droplets
+      logical  ::  Homog_Sublima = .FALSE.  !  .TRUE. => Levkov et al. (1992)    Homogeneous Sublimation of Cloud Ice Particles
+      logical  ::  Meyers        = .TRUE.   !  .TRUE. => Meyers et al. (1992)    Ice Nucleation I
+      logical  ::  AUTO_w_Sundqv = .TRUE.   !  .TRUE. => Sundqvist     (1988)    Autoconversion Cloud Droplets --> Rain
+      logical  ::  AUTO_w_LiouOu = .FALSE.  !  .TRUE. => Liou and Ou   (1989)    Autoconversion Cloud Droplets --> Rain (Tropical SCu ONLY)
+      logical  ::  AUTO_w_LinAll = .FALSE.  !  .TRUE. => Lin    et al. (1983)    Autoconversion Cloud Droplets --> Rain
+      logical  ::  AUTO_i_Levkov = .TRUE.   !  .TRUE. => Levkov et al. (1992)    Autoconversion Cloud Ice      --> Snow
+      logical  ::  AUTO_i_LevkXX = .TRUE.   !  .TRUE. => Levkov et al. (1992)    Autoconversion Cloud Ice      --> Snow (Deposition.Growth)
+      logical  ::  AUTO_i_EmdeKa = .FALSE.  !  .TRUE. => Emde & Kahlig (1989)    Autoconversion Cloud Ice      --> Snow
+      logical  ::  AUTO_i_Sundqv = .FALSE.  !  .TRUE. => Sundqvist               Autoconversion Cloud Ice      --> Snow
+                                            ! .FALSE. => Emde & Kahlig (1989)    Bergeron-Findeisen Process
+      logical  ::  fracSC        = .FALSE.  !  .TRUE. => Delobbe                 SCu Fractional Cloudiness may be set up if Frac__Clouds = .TRUE.
+      logical  ::  fraCEP        = .FALSE.  !  .TRUE. => ECMWF                   SCu Fractional Cloudiness
+      logical  ::  HalMos        = .TRUE.   !  .TRUE. => Levkov et al. (1992)    Ice Nucleation II (Hallet-Mossop Process)
+      logical  ::  graupel_shape = .TRUE.   !  .TRUE. => Snow Particles Shape:   Graupellike Snow Flakes of Hexagonal Type
+      logical  ::  planes__shape = .FALSE.  !  .TRUE. => Snow Particles Shape:   Unrimed Side Planes
+      logical  ::  aggrega_shape = .FALSE.  !  .TRUE. => Snow Particles Shape:   Aggregates of unrimed radiating assemblages
+
+      logical  ::  NO_Vec        = .TRUE.   !  .TRUE. => Preference of IF/THEN/ELSE to sign and max/min Functions
+
+      real(kind=real8)                             :: rad_ww            ! Cloud Droplets Radius                                     [...]
+      real(kind=real8)                             :: qvs_wi            ! Saturation Specific Humididy over Liquid Water          [kg/kg]
+                                                                        ! Ref.: Emde & Kahlig 1989, Ann.Geophys.    7, p.407 (5)
+      real(kind=real8)                             :: BNUCVI            ! Nucleation  I: Deposition & Condensation-Freez. Nucl.   [kg/kg]
+      real(kind=real8)                             :: SSat_I            ! Nucleation  I: Sursaturation % ICE                          [%]
+
+      real(kind=real8)                             :: Flag_T_NuId       ! Flag: T < T_NuId  => Nucleation I (Dep./Cond.)  may occur   [-]
+      real(kind=real8)                             :: CCNiId            !                                                         [Nb/m3]
+
+      real(kind=real8)                             :: Flag___NuIc       ! Flag: 1           => Nucleation I (Cont.Frz.)   may occur   [-]
+      real(kind=real8)                             :: Flag_T_NuIc       ! Flag: T < T_NuIc  => Nucleation I (Cont.Frz.)   may occur   [-]
+      real(kind=real8)                             :: qw__OK            ! Flag: 1           => Non-zero cloud droplets Concentration
+      real(kind=real8)                             :: qi__OK            ! Flag: 1           => Non-zero cloud ice      Concentration
+      real(kind=real8)                             :: CCNiOK            ! Flag: 1           => Non-zero cloud ice      Particles     
+      real(kind=real8)                             :: CCNiIc            !                                                         [Nb/m3]
+
+      real(kind=real8)                             :: Flag_TmaxHM       ! Flag: T < TmaxHM  => Nucleation II (Hall-Mossop) may occur  [-]
+      real(kind=real8)                             :: Flag_TminHM       ! Flag: T > TminHM  => Nucleation II (Hall-Mossop) may occur  [-]
+      real(kind=real8)                             :: Flag_wa__HM       ! Flag: w > wa__HM  => Nucleation II (Hall-Mossop) may occur  [-]
+      real(kind=real8)                             :: SplinJ            ! Hallet-Mossop Theory (Levkov et al., 1992,
+      real(kind=real8)                             :: SplinP            !                       Contr.Atm.Phy. 65, p.40)
+
+      real(kind=real8)                             :: Flag_Ta_Neg       ! Flag: T < 0.0dgC                                            [-]
+      real(kind=real8)                             :: Flag_TqwFrz       ! Flag: T < Temper. => Instantaneous Freezing may occur       [-]
+
+      real(kind=real8)                             :: RHumid            ! Relative Humidity                                           [-]
+
+      real(kind=real8)                             :: qi_Nu1,qi_Nu2     ! Nucleation ( 0 > Ta > -35 dgC ), Generations 1 and 2    [kg/kg]
+      real(kind=real8)                             :: qi_Nuc            ! Nucleation ( 0 > Ta > -35 dgC ), Generation (effective) [kg/kg]
+      real(kind=real8)                             :: NuIdOK            ! Nucleation  I:              Contact     -Freez. Nucl.       [-]
+      real(kind=real8)                             :: BSPRWI            ! Nucleation  I:              Contact     -Freez. Nucl.   [kg/kg]
+      real(kind=real8)                             :: BHAMWI            ! Nucleation II: Hallett-Mossop Ice-Multiplic. Process    [kg/kg]
+      real(kind=real8)                             :: BNUFWI            ! Heterogeneous Freezing of Cloud Droplets                [kg/kg]
+      real(kind=real8)                             :: BDEPVI            ! Ice   Crystals Sublim.                                  [kg/kg]
+      real(kind=real8)                             :: Flag_SURSat       ! Flag = 1/0 if (SUR/sub)Saturation                  FLAG     [-]
+      real(kind=real8)                             :: Flag_SUBSat       ! Flag = 1/0 if (SUB/sur)Saturation                  FLAG     [-]
+      real(kind=real8)                             :: Flag_Sublim       ! Flag = 1/0 for Sublimation Occurence or not                 [-]
+      real(kind=real8)                             :: RH_Ice            ! Relative Humidity   vs   Ice                                [-]
+      real(kind=real8)                             :: RH_Liq            ! Relative Humidity   vs   Water                              [-]
+      real(kind=real8)                             :: DenDi1,DenDi2     ! dqi/dt|sublimation:  terms of the denominator             [...]
+      real(kind=real8)                             :: dqsiqv            ! SUBsaturation  qsi - qv                                 [kg/kg]
+      real(kind=real8)                             :: dqvSUB            ! SURsaturation  qv  - qsiEFF                             [kg/kg]
+      real(kind=real8)                             :: dqvDUM            ! Water Vapor    Variation, dummy variable                [kg/kg]
+      real(kind=real8)                             :: dqiDUM            ! Ice   Crystals Variation, dummy variable                [kg/kg]
+
+      real(kind=real8)                             :: qCloud            ! qw + qi                                                 [kg/kg]
+      real(kind=real8)                             :: coefC2            ! Coefficient of Ek and Mahrt parameter C2_EkM            [../..]
+      real(kind=real8)                             :: pa_hPa,es_hPa     ! Pressure,     Pressure of Vapor at Saturat., over Water [hPa]
+      real(kind=real8)                             :: Qsat_L            ! Specific Concentration of Vapor at Saturat., over Water [kg/kg]
+                                                                        !       (even for temperatures smaller than freezing pt)
+      real(kind=real8)                             :: t_qvqw            ! qv+qw mixing ratio used in Partial Condensation Scheme  [kg/kg]
+      real(kind=real8)                             :: d_qvqw            ! qv+qw mixing ratio variation                            [kg/kg]
+      real(kind=real8)                             :: Kdqvqw            ! qv+qw vertical turbulent Flux                           [kg/kg m/s]
+      real(kind=real8)                             :: ww_TKE            !       vertical Velocity  Variance                       [m2/s2]
+      real(kind=real8)                             :: RH_TKE            !       Relative Humidity  Variance                       [../..]
+      real(kind=real8)                             :: qt_TKE            ! qv+qw                    Variance                       [../..]
+      real(kind=real8)                             :: TLiqid            ! Liquid Temperature                                          [K]
+      real(kind=real8)                             :: CFr_t1,CFr_t2     !                                                             [-]
+      real(kind=real8)                             :: CFrCoe            !                                                             [-]
+      real(kind=real8)                             :: CFraOK            !                                                             [-]
+      real(kind=real8)                             :: qwCFra            ! CloudAveraged Liquid Water Mixing Ratio                 [kg/kg]
+      real(kind=real8)                             :: qwMesh            ! Mesh Averaged Liquid Water Mixing Ratio                 [kg/kg]
+      real(kind=real8)                             :: dwMesh            ! Mesh Averaged Liquid Water Mixing Ratio Variation       [kg/kg]
+      real(kind=real8)                             :: signdw            ! Sign       of Liquid Water Mixing Ratio Variation  (-1/1)   [-]
+      real(kind=real8)                             :: Flag_dqwPos       ! Flag = 1/0 if Liquid Water Mixing Ratio Variation    >/< 0  [-]
+      real(kind=real8)                             :: updatw            !                                                             [-]
+      real(kind=real8)                             :: SCuLim            ! Fraction      Limit                                         [-]
+      real(kind=real8)                             :: ARGerf            ! Argument of erf function (used in partial condensation Scheme)
+      real(kind=real8)                             :: OUTerf            ! OUTPUT   of erf function
+      real(kind=real8)                             ::    erf            !             erf function
+      real(kind=real8)                             :: dwTUR4,dwTURi     !
+      real(kind=real8)                             :: dwTUR3,dwTUR2     !
+      real(kind=real8)                             :: dwTUR8,dwTURc     !
+      real(kind=real8)                             :: dwTUR5,dwTUR1     !
+
+      real(kind=real8)                             :: Di_Pri            ! Pristine Ice Diameter
+      real(kind=real8)                             :: c1saut,cnsaut     ! Ice   Crystals AUToconv.  Parameters
+      real(kind=real8)                             :: dtsaut            ! Ice   Crystals AUToconv.  Time Scale
+      real(kind=real8)                             :: ps_AUT            ! Ice   Crystals AUToconv. (BDEPIS, BAGRIS,...)      Rate [kg/kg/s]
+      real(kind=real8)                             :: qs_AUT            ! Ice   Crystals AUToconv. (BDEPIS, BAGRIS,...)           [kg/kg]
+
+      real(kind=real8)                             :: Flag_Ta_Pos       ! Flag = 1/0 if  Ta >/< 273.15 K                     FLAG     [-]
+      real(kind=real8)                             :: Flag_qiMELT       ! Flag = 1/0 for qi Melting or not                   FLAG     [-]
+      real(kind=real8)                             :: qxMelt            ! Potential qi to Melt                                    [kg/kg]
+      real(kind=real8)                             :: qiMELT            ! Effective qi to Melt                                    [kg/kg]
+      real(kind=real8)                             :: CiMelt            ! Effective CCNi removed   by qi   Melting                [nb/m3]
+
+      real(kind=real8)                             :: Flag_qsMELT       ! Flag = 1/0 for qs Melting or not                   FLAG     [-]
+      real(kind=real8)                             :: xCoefM            !
+      real(kind=real8)                             :: AcoefM,BcoefM     !
+      real(kind=real8)                             :: dTMELT            ! Temperature Offset before   Snow Particles Melting          [K]
+      real(kind=real8)                             :: qsMELT            ! Melt                     of Snow Particles              [kg/kg]
+
+      real(kind=real8)                             :: qs_ACW            ! Accretion of Cloud Drop. by Snow Particl.               [kg/kg]
+      real(kind=real8)                             :: Flag_qs_ACW       ! Accretion of Cloud Drop. by Snow Particl.          FLAG     [-]
+      real(kind=real8)                             :: Flag_qs_ACI       ! Accretion of Cloud Ice   by Snow Particl.          FLAG     [-]
+      real(kind=real8)                             :: effACI            ! Accretion of Cloud Ice   by Snow Particl.    Efficiency     [-]
+      real(kind=real8)                             :: ps_ACI            ! Accretion of Cloud Ice   by Snow Particl.          Rate [kg/kg/s]
+      real(kind=real8)                             :: qs_ACI            ! Accretion of Cloud Ice   by Snow Particl.               [kg/kg]
+      real(kind=real8)                             :: CNsACI            ! Accretion of Cloud Ice   by Snow Particl. CCNi decrease [nb/m3]
+      real(kind=real8)                             :: Flag_qs_ACR       ! Accretion of Snow        by Rain                   FLAG     [-]
+      real(kind=real8)                             :: coeACR            ! Accretion of Snow        by Rain Sedimentation Coeffic.   [...]
+      real(kind=real8)                             :: qs_ACR            ! Accretion of Snow        by Rain                        [kg/kg]
+      real(kind=real8)                             :: qs_ACR_R          ! Accretion of Snow        by Rain          => Rain       [kg/kg]
+      real(kind=real8)                             :: qs_ACR_S          !                                           => Graupels   [kg/kg]
+      real(kind=real8)                             :: Flag_qr_ACS       ! Accretion of Rain        by Snow Particl. => Snow  FLAG     [-]
+      real(kind=real8)                             :: coeACS            ! Accretion of Rain        by Snow Sedimentation Coeffic.   [...]
+      real(kind=real8)                             :: pr_ACS            ! Accretion of Rain        by Snow Particl. => Snow  Rate [kg/kg/s]
+      real(kind=real8)                             :: qr_ACS            ! Accretion of Rain        by Snow Particl. => Snow       [kg/kg]
+      real(kind=real8)                             :: qr_ACS_S          ! Accretion of Rain        by Snow Particl. => Snow       [kg/kg]
+      real(kind=real8)                             :: ps_SUB            ! Deposition/Sublim.    on/of Snow Particl.          Rate [kg/kg/s]
+      real(kind=real8)                             :: qs_SUB            ! Deposition/Sublim.    on/of Snow Particl.               [kg/kg]
+      real(kind=real8)                             :: ls_NUM            ! Sublimation of Snow: NUMerator   of Snow Distribut.Coef.  [...]
+      real(kind=real8)                             :: ls_DEN            ! Sublimation of Snow: DENominator of Snow Distribut.Coef.  [...]
+
+      real(kind=real8)                             :: Flag_Freeze       ! Freezing                 of Rain                   FLAG     [-]   
+      real(kind=real8)                             :: ps_FRZ            ! Freezing                 of Rain                   Rate [kg/kg/s]
+      real(kind=real8)                             :: qs_FRZ            ! Freezing                 of Rain                        [kg/kg]
+
+      real(kind=real8)                             :: rwMEAN            ! Droplets Autoconversion:    Mean     Radius
+
+      real(kind=real8)                             :: th_AUT            ! Cloud Droplets AUToconv. Threshold                          [-]
+      real(kind=real8)                             :: pr_AUT            ! Cloud Droplets AUToconv.                           Rate [kg/kg/s]
+      real(kind=real8)                             :: qr_AUT            ! Cloud Droplets AUToconv.                                [kg/kg]
+      real(kind=real8)                             :: Flag_qr_ACW       ! Accretion of Cloud Drop. by Rain                   FLAG     [-]
+      real(kind=real8)                             :: pr_ACW            ! Accretion of Cloud Drop. by Rain                   Rate [kg/kg/s]
+      real(kind=real8)                             :: qr_ACW            ! Accretion of Cloud Drop. by Rain                        [kg/kg]
+      real(kind=real8)                             :: Flag_qr_ACI       ! Accretion of Cloud Drop. by Rain          => Rain  FLAG     [-]
+      real(kind=real8)                             :: pr_ACI            ! Accretion of Cloud Ice   by Rain          => Rain  Rate [kg/kg/s]
+      real(kind=real8)                             :: qr_ACI            ! Accretion of Cloud Ice   by Rain          => Rain       [kg/kg]
+      real(kind=real8)                             :: CNrACI            ! Accretion of Cloud Ice   by Rain          CCNi decrease [nb/m3]
+      real(kind=real8)                             :: pi_ACR            ! Accretion of Cloud Ice   by Rain          => Snow  Rate [kg/kg/s]
+      real(kind=real8)                             :: qi_ACR            ! Accretion of Cloud Ice   by Rain          => Snow       [kg/kg]
+      real(kind=real8)                             :: Flag_DryAir       ! 1 => RH_Liq < 1                                    FLAG     [-]
+      real(kind=real8)                             :: Flag_qr_EVP       ! Evaporation of Rain                                FLAG     [-]
+      real(kind=real8)                             :: lr_NUM            ! Evaporation of Rain: NUMerator   of rain Distribut.Coef.  [...]
+      real(kind=real8)                             :: lr_DEN            ! Evaporation of Rain: DENominator of rain Distribut.Coef.  [...]
+      real(kind=real8)                             :: pr_EVP            ! Evaporation of Rain                                Rate [kg/kg/s]
+      real(kind=real8)                             :: qr_EVP            ! Evaporation of Rain                                     [kg/kg]
+
+      real(kind=real8)                             :: effACS            ! Accretion of Snow        by Graupels         Efficiency     [-]
+
+      real(kind=real8)                             :: a_rodz            ! Air               Mass
+      real(kind=real8)                             :: qwFlux            ! qw  Sedimentation Flux          Coefficient
+      real(kind=real8)                             :: qwrodz            ! Droplets          Mass
+      real(kind=real8)                             :: wRatio            ! Droplets          Mass          Ratio                       [-]
+      real(kind=real8)                             :: qiFlux            ! qi  Sedimentation Flux          Coefficient
+      real(kind=real8)                             :: qirodz            ! Crystals          Mass
+      real(kind=real8)                             :: iRatio            ! Crystals          Mass          Ratio                       [-]
+      real(kind=real8)                             :: qsFlux            ! qs  Sedimentation Flux          Coefficient
+      real(kind=real8)                             :: qsrodz            ! Snow              Mass
+      real(kind=real8)                             :: sRatio            ! Snow              Mass          Ratio                       [-]
+      real(kind=real8)                             :: qrFlux            ! qr  Sedimentation Flux          Coefficient
+      real(kind=real8)                             :: qrrodz            ! Rain              Mass
+      real(kind=real8)                             :: rRatio            ! Rain              Mass          Ratio                       [-]
+
+      real(kind=real8)                             :: Vw_MAX            ! MAX Sedimentation Velocity   of Droplets
+      real(kind=real8)                             :: Flag_Fall_i       !     Sedimentation            of Ice                FLAG     [-]
+      real(kind=real8)                             :: Vi_MAX            ! MAX Sedimentation Velocity   of Ice  Particles
+      real(kind=real8)                             :: Vs_MAX,VsMMAX     ! MAX Sedimentation Velocity   of Snow Particles
+      real(kind=real8)                             :: Vs__OK            !     Sedimentation Velocity   of Snow Particles
+      real(kind=real8)                             :: Vr_MAX,VrMMAX     ! MAX Sedimentation Velocity   of Rain Drops
+      real(kind=real8)                             :: Vr__OK            !     Sedimentation Velocity   of Rain Drops
+      real(kind=real8)                             :: dtPrec            !     Sedimentation Time Step
+      real(kind=real8)                             :: d_Snow            !     Sedimented                  Snow Part. over 1 time step [m]
+      real(kind=real8)                             :: d_Rain            !     Sedimented                  Rain Drops over 1 time step [m]
+
+      real(kind=real8)                             :: SatiOK            !
+      real(kind=real8)                             :: FlagNu            ! 1 =>Nucleation for -35 dgC < Ta < 0 dgc
+
+      real(kind=real8)                             :: Qw0_OK            ! HYDROMETEORS INPUT STATUS
+      real(kind=real8)                             :: Qi0_OK            !
+      real(kind=real8)                             :: Qi0qOK            !
+      real(kind=real8)                             :: Ci0_OK            !
+      real(kind=real8)                             :: Ci0cOK            !
+      real(kind=real8)                             :: Qs0_OK            !
+      real(kind=real8)                             :: Qr0_OK            !
+
+      real(kind=real8)                             :: qiBerg            ! Bergeron-Findeisen Process: avaiklable qi
+      real(kind=real8)                             :: qwBerg            ! Bergeron-Findeisen Process: avaiklable qw
+      real(kind=real8)                             :: qxBerg            ! Bergeron-Findeisen Process: potential qi Generation
+      real(kind=real8)                             :: a1Berg,a2Berg     ! Bergeron-Findeisen Process: parameters
+      real(kind=real8)                             :: a0Berg,afBerg     ! Bergeron-Findeisen Process: integration constants
+
+      real(kind=real8)                             :: WaterB            ! Vertically Integrated Water Budget
+
+      real(kind=real8)                             :: argEXP            !
+
+      integer                                      :: k     ,ikl        !
+      integer                                      :: i_Berg            !
+      integer                                      :: nItMAX,itFall     !
+      integer                                      :: ikl_io,io__Pt     !
+
+
+!  Debug Variables
+!  ---------------
+
+! #wH character(len=70)                            :: debugH            !
+! #wH character(len=10)                            :: proc_1,proc_2     !
+! #wH character(len=10)                            :: proc_3,proc_4     !
+! #wH real(kind=real8)                             :: procv1,procv2     !
+! #wH real(kind=real8)                             :: procv3,procv4     !
+! #wH integer                                      :: kv    ,nl         !
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                       !
+! ALLOCATION                                                            !
+! ==========                                                            !
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                             THEN !
+
+          allocate ( qw_io0(      mzp) )                                ! Droplets   Concentration entering CMiPhy                  [kg/kg]
+          allocate ( qi_io0(      mzp) )                                ! Ice  Part. Concentration entering CMiPhy                  [kg/kg]
+          allocate ( qs___0(kcolp,mzp) )                                ! Snow Part. Concentration entering CMiPhy                  [kg/kg]
+! #qg     allocate ( qg___0(kcolp,mzp) )                                ! Graupels   Concentration entering CMiPhy                  [kg/kg]
+          allocate ( qr___0(kcolp,mzp) )                                ! Rain Drops Concentration entering CMiPhy                  [kg/kg]
+          allocate ( Ta_dgC(kcolp,mzp) )                                ! Air   Temperature                                           [dgC]
+          allocate ( sqrrro(kcolp,mzp) )                                ! sqrt(roa(mzp)/roa(k))                                         [-]
+          allocate ( qsiEFF(kcolp,mzp) )                                ! EFFective Saturation Specific Humidity over Ice           [kg/kg]
+          allocate ( Fletch(kcolp,mzp) )                                ! Monodisperse Nb of hexagonal Plates, Fletcher (1962)          [-]
+          allocate ( lamdaS(kcolp,mzp) )                                ! Marshall-Palmer distribution parameter for Snow Particl.
+! #qg     allocate ( lamdaG(kcolp,mzp) )                                ! Marshall-Palmer distribution parameter for Graupels
+          allocate ( lamdaR(kcolp,mzp) )                                ! Marshall-Palmer distribution parameter for Rain Drops
+          allocate ( ps_ACR(kcolp,mzp) )                                ! Accretion of Snow        by Rain                   Rate [kg/kg/s]
+          allocate ( ps_ACW(kcolp,mzp) )                                ! Accretion of Cloud Drop. by Snow Particl.          Rate [kg/kg/s]
+          allocate ( FallVw(kcolp,mzp) )                                ! Sedimentation Velocity   of Droplets
+          allocate ( FallVi(kcolp,mzp) )                                ! Sedimentation Velocity   of Ice  Particles
+          allocate ( FallVs(kcolp,mzp) )                                ! Sedimentation Velocity   of Snow Particles
+! #qg     allocate ( FallVg(kcolp,mzp) )                                ! Sedimentation Velocity   of Snow Particles
+          allocate ( FallVr(kcolp,mzp) )                                ! Sedimentation Velocity   of Rain Drops 
+          allocate ( qwLoss(      mzp) )                                ! Mass Loss related to Sedimentation of Rain Droplets
+          allocate ( qiLoss(      mzp) )                                ! Mass Loss related to Sedimentation of Ice  Crystals
+          allocate ( qsLoss(      mzp) )                                ! Mass Loss related to Sedimentation of Snow Particles
+          allocate ( qrLoss(      mzp) )                                ! Mass Loss related to Sedimentation of Rain Drops
+! #wH     allocate ( debugV(      mzp,16) )                             ! Debug Variable (of 16 microphysical processes)
+
+! #WH     allocate ( wihm1(mzp) )                                       ! Cloud Droplets Freezing
+! #WH     allocate ( wihm2(mzp) )                                       ! Ice   Crystals Homogeneous Sublimation
+! #WH     allocate ( wicnd(mzp) )                                       ! Ice   Crystals Nucleation              (Emde & Kahlig)
+! #WH     allocate ( widep(mzp) )                                       ! Ice   Crystals Growth Bergeron Process (Emde & Kahlig)
+! #WH     allocate ( wisub(mzp) )                                       ! Ice   Crystals             Sublimation (Levkov)
+! #WH     allocate ( wimlt(mzp) )                                       ! Ice   Crystals Melting  
+! #WH     allocate ( wwevp(mzp) )                                       ! Water Vapor Condensation / Evaporation (Fractional Cloudiness)
+! #WH     allocate ( wraut(mzp) )                                       ! Cloud Droplets AUTO-Conversion
+! #WH     allocate ( wsaut(mzp) )                                       ! Ice   Crystals AUTO-Conversion
+! #WH     allocate ( wracw(mzp) )                                       ! Accretion of Cloud Droplets by Rain, Ta > 0, --> Rain
+! #WH     allocate ( wsacw(mzp) )                                       ! Accretion of Cloud Droplets by Rain, Ta < 0, --> Snow
+! #WH     allocate ( wsaci(mzp) )                                       ! Accretion of Ice   Crystals by Snow          --> Snow
+! #WH     allocate ( wraci(mzp) )                                       ! Accretion of Ice   Crystals by Rain          --> Snow
+! #WH     allocate ( wiacr(mzp) )                                       ! Accretion of Rain by Ice   Crystals          --> Snow
+! #WH     allocate ( wsacr(mzp) )                                       ! Accretion of Rain by Snow                    --> Snow
+! #WH     allocate ( wracs(mzp) )                                       ! Accretion of Snow by Rain                    --> Snow, Rain
+! #WH     allocate ( wrevp(mzp) )                                       ! Rain  Drops     Evaporation  
+! #WH     allocate ( wssub(mzp) )                                       ! Snow  Particles Sublimation
+! #WH     allocate ( wsmlt(mzp) )                                       ! Snow  Particles Melting 
+! #WH     allocate ( wsfre(mzp) )                                       ! Rain  Drops     Freezing
+
+      END IF                                                            !
+!                                                                       !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+!     +++++++++++++++++++
+      DO      ikl=1,kcolp
+!     +++++++++++++++++++
+
+
+
+
+!  Debug
+!  ~~~~~
+! #wH   DO k=mz1_CM,mzp
+! #wH     debugH( 1:35) = 'CMiPhy: Debugged Variables: Initial'
+! #wH     debugH(36:70) = '                                   '
+! #wH     proc_1        = 'R.Hum W[%]'
+! #wH     procv1        =  0.1*qv__DY(ikl,k)/(RHcrit * qvswCM(ikl,k))
+! #wH     proc_2        = 'R.Hum I[%]'
+! #wH     procv2        =  0.1*qv__DY(ikl,k)/(RHcrit * qvsiCM(ikl,k))
+! #wH     proc_3        = '          '
+! #wH     procv3        =  0.
+! #wH     proc_4        = '          '
+! #wH     procv4        =  0.
+
+! #wh     include 'CMiPhy_Debug.h'
+
+! #wH     DO kv=1,16
+! #wH     debugV(k,kv)  =  0.
+! #wH     ENDDO
+! #wH   END DO
+
+
+
+
+!  Vertical Integrated Energy and Water Content
+!  ============================================
+
+! #EW     enr0EW(ikl) = 0.0
+! #EW     wat0EW(ikl) = 0.0
+
+! #EW   DO k=1,mzp
+! #EW     enr0EW(ikl) = enr0EW(  ikl)                                   &
+! #EW&                +(Ta__CM(ikl,k)                                   &
+! #EW&                -(qw__CM(ikl,k)+qr__CM(ikl,k))*Lv_Cpd             &
+! #EW&                -(qi__CM(ikl,k)+qs__CM(ikl,k))*Ls_Cpd)            &
+! #EW&                * dsigmi(k)
+! #EW     wat0EW(ikl) = wat0EW(  ikl)                                   &
+! #EW&                +(qv__DY(ikl,k)                                   &
+! #EW&                + qw__CM(ikl,k)+qr__CM(ikl,k)                     &
+! #EW&                + qi__CM(ikl,k)+qs__CM(ikl,k)        )            &
+! #EW&                * dsigmi(k)
+! #EW   END DO
+
+! #EW     mphyEW(ikl) ='                    '
+!  ..     mphy2D -->   '12345678901234567890'
+
+! #ew     enr0EW(ikl) = enr0EW(ikl) * psa_DY(ikl) * Grav_I
+! #EW     wat0EW(ikl) = wat0EW(ikl) * psa_DY(ikl) * Grav_I
+!  ..     wat0EW [m]    contains an implicit factor 1.d3 [kPa-->Pa] /ro_Wat
+
+
+! #WH   VsMMAX = 0.0
+! #WH   VrMMAX = 0.0
+
+
+
+
+!  Set lower limit on Hydrometeor Concentration
+!  ============================================
+
+! #hy   IF (NO_Vec)                                               THEN
+
+! #hy     DO k=mz1_CM,mzp
+
+! #hy       IF (qw__CM(ikl,k).lt.epsn)                              THEN
+! #hy           qv__DY(ikl,k) = qv__DY(ikl,k)+qw__CM(ikl,k)
+! #hy           Ta__CM(ikl,k) = Ta__CM(ikl,k)-qw__CM(ikl,k)*Lv_Cpd
+! #hy           qwd_CM(ikl,k)=  qwd_CM(ikl,k)-qw__CM(ikl,k)
+! #hy           qw__CM(ikl,k) = 0.0
+! #hy       END IF
+
+! #hy       IF (qr__CM(ikl,k).lt.epsn)                              THEN
+! #hy           qv__DY(ikl,k) = qv__DY(ikl,k)+qr__CM(ikl,k)
+! #hy           Ta__CM(ikl,k) = Ta__CM(ikl,k)-qr__CM(ikl,k)*Lv_Cpd
+! #hy           qwd_CM(ikl,k) = qwd_CM(ikl,k)-qr__CM(ikl,k)
+! #hy           qr__CM(ikl,k) = 0.0
+! #hy       END IF
+
+! #hy       IF (qi__CM(ikl,k).lt.epsn.or.CCNiCM(ikl,k).lt.un_1)     THEN
+! #hy           qv__DY(ikl,k) = qv__DY(ikl,k)+qi__CM(ikl,k)
+! #hy           Ta__CM(ikl,k) = Ta__CM(ikl,k)-qi__CM(ikl,k)*Ls_Cpd
+! #hy           qid_CM(ikl,k) = qid_CM(ikl,k)-qi__CM(ikl,k)
+! #hy           qi__CM(ikl,k) = 0.0
+! #hy           CCNiCM(ikl,k) = 0.0
+! #hy       END IF
+
+! #hy       IF (qs__CM(ikl,k).lt.epsn)                              THEN
+! #hy           qv__DY(ikl,k) = qv__DY(ikl,k)+qs__CM(ikl,k)
+! #hy           Ta__CM(ikl,k) = Ta__CM(ikl,k)-qs__CM(ikl,k)*Ls_Cpd
+! #hy           qid_CM(ikl,k) = qid_CM(ikl,k)-qs__CM(ikl,k)
+! #hy           qs__CM(ikl,k) = 0.0
+! #hy       END IF
+! #hy     END DO
+
+! #hy   ELSE
+
+          DO k=mz1_CM,mzp
+
+            Qw0_OK        = max(zer0,sign(un_1,epsn-qw__CM(ikl,k)))*qw__CM(ikl,k)
+            qw__CM(ikl,k) =                         qw__CM(ikl,k)  -Qw0_OK
+            qwd_CM(ikl,k) =                         qwd_CM(ikl,k)  -Qw0_OK
+            qv__DY(ikl,k) =                         qv__DY(ikl,k)  +Qw0_OK
+            Ta__CM(ikl,k) =                         Ta__CM(ikl,k)  -Qw0_OK*Lv_Cpd
+
+            Qr0_OK        = max(zer0,sign(un_1,epsn-qr__CM(ikl,k)))*qr__CM(ikl,k)
+            qr__CM(ikl,k) =                         qr__CM(ikl,k)  -Qr0_OK
+            qwd_CM(ikl,k) =                         qwd_CM(ikl,k)  -Qr0_OK
+            qv__DY(ikl,k) =                         qv__DY(ikl,k)  +Qr0_OK
+            Ta__CM(ikl,k) =                         Ta__CM(ikl,k)  -Qr0_OK*Lv_Cpd
+
+            Qi0qOK        = max(zer0,sign(un_1,epsn-qi__CM(ikl,k)))
+            Ci0cOK        = max(zer0,sign(un_1,un_1-CCNiCM(ikl,k)))
+
+            Ci0_OK        = max(Ci0cOK,Qi0qOK)
+            Qi0_OK        =     Ci0_OK*qi__CM(ikl,k)
+
+            CCNiCM(ikl,k) =     Ci0_OK*CCNiCM(ikl,k)
+            qi__CM(ikl,k) =            qi__CM(ikl,k) - Qi0_OK
+            qid_CM(ikl,k) =            qid_CM(ikl,k) - Qi0_OK
+            qv__DY(ikl,k) =            qv__DY(ikl,k) + Qi0_OK
+            Ta__CM(ikl,k) =            Ta__CM(ikl,k) - Qi0_OK*Ls_Cpd
+
+            Qs0_OK        = max(zer0,sign(un_1,epsn-qs__CM(ikl,k)))*qs__CM(ikl,k)
+            qs__CM(ikl,k) =                         qs__CM(ikl,k)  -Qs0_OK
+            qid_CM(ikl,k) =                         qid_CM(ikl,k)  -Qs0_OK
+            qv__DY(ikl,k) =                         qv__DY(ikl,k)  +Qs0_OK
+            Ta__CM(ikl,k) =                         Ta__CM(ikl,k)  -Qs0_OK*Ls_Cpd
+
+          END DO
+
+! #hy   END IF
+
+
+
+
+!  Initial Concentrations
+!  ======================
+
+        DO k=1,mzp
+          Ta_dgC(ikl,k) = Ta__CM(ikl,k) -Tf_Sno
+          Fletch(ikl,k) = 1.e-2*exp(-0.6*Ta_dgC(ikl,k))                  ! Ice Crystals Number (Fletcher, 1962)
+
+          qr___0(ikl,k) = qr__CM(ikl,k)
+          qs___0(ikl,k) = qs__CM(ikl,k)
+! #qg     qg___0(ikl,k) = qg__CM(ikl,k)
+
+! #WH     IF (ikl.eq.ikl0CM(1))                                     THEN
+! #WH       qw_io0(k)   = qw__CM(ikl,k)
+! #WH       qi_io0(k)   = qi__CM(ikl,k)
+! #WH     END IF
+
+        END DO
+
+
+
+
+!  Saturation Specific Humidity
+!  ============================
+
+        DO k=1,mzp
+
+          qsiEFF(ikl,k) = RHcrit * qvsiCM(ikl,k  )                      ! Saturation Specific Humidity over Ice
+
+          sqrrro(ikl,k) =    sqrt((psa_DY(ikl    )+pt__DY)             &!
+     &                           /(roa_DY(ikl,k  )*R_DAir              &!
+     &                           * Ta__CM(ikl,mzp)))                    !
+
+
+
+
+!  Hydrometeors   Fall Velocities
+!  ==============================
+
+!  Cloud Droplets Fall Velocity (Calcul de la Vitesse Terminale Moyenne)                            FALL VELOCITY
+!  ----------------------------
+
+! #VW     IF (qw__CM(ikl,k).ge.epsn)                                THEN
+
+! #VW       CCNwCM(ikl,k) = 1.2d+8                                       ! ASTEX case (Duynkerke et al. 1995, JAS 52, p.2763)
+
+! #VW       qwCFra        =  qw__CM(ikl,k) / max(CFrMIN ,CFraCM(ikl,k))
+! #VW       dwTUR4        =   4.5               *qwTURB *qwTURB
+! #VW       dwTUR1        =  12.5               *qwTURB *qwTURB
+! #VW       dwTURi        =  qwCFra        *     roa_DY(ikl,k)           &
+! #VW&                    *  6.0d+0/(piNmbr*CCNwCM(ikl,k)*exp(dwTUR4))
+! #VW       dwTUR5        =                    exp(R_5by3*log(dwTURi))
+
+! #VW       FallVw(ikl,k) =  1.19d8* piNmbr*CCNwCM(ikl,k)    *dwTUR5     &
+! #VW&                 * exp(dwTUR1)/(24.0 *roa_DY(ikl,k)    *qwCFra)
+! #VW     ELSE
+! #VW       FallVw(ikl,k) =  0.00
+! #VW     END IF
+
+
+!  Rain           Fall Velocity                                                                     FALL VELOCITY
+!  ----------------------------
+
+            lamdaR(ikl,k) = exp(0.25*log((piNmbr*n0___r)               &! Marshall-Palmer Distribution Parameter for Rain
+     &              / (roa_DY(ikl,k)*max( epsn  ,qr__CM(ikl,k)))))      ! Ref.: Emde and Kahlig 1989, Ann.Geoph.      7, p.407 (3)
+                                                                        ! Note that a simplification occurs
+                                                                        ! between the 1000. factor of rho, and rho_water=1000.
+
+! #hy     IF                            (qr__CM(ikl,k).gt.epsn)     THEN
+
+            Vr__OK = max(zer0,sign(un_1, qr__CM(ikl,k)  - epsn))        ! Vr__OK = 1.0 if qr__CM(ikl,k)  > epsn
+                                                                        !        = 0.0 otherwise
+
+            FallVr(ikl,k) = Vr__OK*392. *sqrrro(ikl,k)                 &! Terminal Fall Velocity for Rain
+     &                    / exp(0.8 *log(lamdaR(ikl,k)))                ! 392  = a Gamma[4+b] / 6
+                                                                        ! where  a = 842.  b = 0.8
+
+! #hy     ELSE
+! #hy       FallVr(ikl,k)=   0.0
+! #hy     END IF
+
+
+!  Snow Fall Velocity (c and d parameters: see Locatelli and Hobbs, 1974, JGR: table 1 p.2188)      FALL VELOCITY
+!  ------------------
+
+! #cn       n0___s        = min(2.e8                                   &
+! #cn&                         ,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+            lamdaS(ikl,k) = exp(0.25*log((0.50*piNmbr*n0___s)          &! Marshall-Palmer distribution parameter for Snow
+     &                       / (roa_DY(ikl,k)*max(epsn,qs__CM(ikl,k)))))! Ref.: Emde and Kahlig 1989, Ann.Geoph.      7,  p.407 (3)
+                                                                        !       Levkov et al.   1992, Cont.Atm.Phys. 65(1) p.37 (5) (rho_snow)
+                                                                        ! Note that a partial simplification occurs
+                                                                        ! between the 1000. factor of rho, and rho_snow=500.
+
+! #hy     IF                             (qs__CM(ikl,k).gt.epsn)    THEN
+
+            Vs__OK = max(zer0,sign(un_1,  qs__CM(ikl,k)  - epsn))       ! Vs__OK = 1.0 if qs__CM(ikl,k)  > epsn
+                                                                        !        = 0.0 otherwise
+
+           IF      (graupel_shape)                                  THEN
+            FallVs(ikl,k) = Vs__OK*2.19  *sqrrro(ikl,k)                &! Terminal Fall Velocity for Graupellike Snow Flakes of Hexagonal Type
+     &                     / exp(0.25*log(lamdaS(ikl,k)))               ! 2.19 = c   Gamma[4+d] / 6
+                                                                        ! where  c = 4.836,  d =  0.25
+                                                                        !          = 0.86 *1000.**0.25
+           ELSE IF (planes__shape)                                  THEN
+            FallVs(ikl,k) =  Vs__OK*2976.*sqrrro(ikl,k)                &! Terminal Fall Velocity for Unrimed Side Planes
+     &                     / exp(0.99*log(lamdaS(ikl,k)))               ! 2976.= c   Gamma[4+d] / 6
+                                                                        ! where  c = 755.9,  d  = 0.99
+                                                                        !          = 0.81 *1000.**0.99
+
+           ELSE IF (aggrega_shape)                                  THEN
+            FallVs(ikl,k) =  Vs__OK*20.06*sqrrro(ikl,k)                &! Terminal Fall Velocity for Aggregates of unrimed radiating assemblages
+     &                     / exp(0.41*log(lamdaS(ikl,k)))               ! 2976.= c   Gamma[4+d] / 6
+                                                                        ! where  c = 755.9,  d =  0.41
+                                                                        !          = 0.69 *1000.**0.41
+           ELSE
+            STOP   'Snow Particles Shape             is not defined'
+           END IF
+
+! #hy     ELSE
+! #hy       FallVs(ikl,k)   =   0.0                                      !                          FALL VELOCITY
+! #hy     END IF
+
+
+!  Graupel Fall Velocity
+!  ---------------------
+
+! #qg     IF (qg__CM(ikl,k).ge.epsn)                                THEN
+! #qg       lamdaG(ikl,k) =exp(0.250*log((piNmbr*n0___g)               &! Marshall-Palmer distribution parameter for Graupel
+! #qg&                /(roa_DY(ikl,k)*max(epsn  ,qg__CM(ikl,k)))))      ! Note that a simplification occurs
+                                                                        ! between the 1000. factor of rho, and rho_ice=1000.
+! #qg       FallVg(ikl,k) = 25.1 *sqrrro(ikl,k)                        &! 25.1 = c Gamma[4+d] / 6
+! #qg&             / exp(0.57*log(lamdaG(ikl,k)))                       ! where  c = 4.836 = 1.10 *1000.**0.57 and d = 0.57
+!                                                                       ! Hexagonal Graupel, Locatelli and Hobbs, 1974, JGR: table 1 p.2188:
+
+! #qg     ELSE
+! #qg       FallVg(ikl,k) =   0.0
+! #qg       lamdaG(ikl,k) =   0.0
+! #qg     END IF
+
+        END DO
+
+
+!===============================================================================                    CLOUD ICE  PARTICLES
+!                                                                                                   ++++++++++++++++++++
+!  Microphysical Processes affecting non Precipitating Cloud Particles
+!  ===================================================================
+
+        DO k=mz1_CM,mzp
+
+
+!  Homogeneous Nucleation by Cloud Dropplets Solidification  ! BFREWI
+!  Reference: Emde and Kahlig 1989, Ann.Geoph. 7, p.407 (11) ! Levkov (24) p.40
+!  ---------------------------------------------------------
+
+! #wH       Flag_Ta_Neg= 0.
+! #wH       qw__OK     = 0.
+
+! #hy    IF                                (Ta_dgC(ikl,k).lt.TqwFrz)THEN
+
+            Flag_TqwFrz=max(zer0,-sign(un_1,Ta_dgC(ikl,k) -  TqwFrz))   ! Flag_TqwFrz = 1.0  if Ta_dgC(ikl,k) < TqwFrz
+                                                                        !             = 0.0  otherwise
+
+! #EW       IF(Flag_TqwFrz.gt.eps6)                                THEN
+! #EW          mauxEW        =  mphyEW(ikl)
+! #EW          mauxEW(01:01) = 'i'
+! #EW          mphyEW(ikl)   =  mauxEW
+! #EW       END IF
+
+            qw__OK        = qw__CM(ikl,k) *                Flag_TqwFrz
+            qi__CM(ikl,k) = qi__CM(ikl,k) +                qw__OK
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) + roa_DY(ikl,k) *qw__OK/qw_VOL
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lc_Cpd        *qw__OK
+
+! #WQ       write(6,*) 'Qihm1',qw__CM(ikl,k),                          &
+! #WQ&                ' Qi'   ,qi__CM(ikl,k),                          &
+! #WQ&                ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k
+! #WH       IF (ikl.eq.ikl0CM(1))  wihm1(k)  = qw__OK
+
+            qw__CM(ikl,k) = qw__CM(ikl,k) - qw__OK
+
+! #hy    END IF
+
+
+!  Heterogeneous Freezing of Cloud Droplets                  ! BNUFWI                               CLOUD ICE  PARTICLES
+!  Reference: Levkov et al., 1992 (21) p.40                  ! Levkov (21) p.40                     ++++++++++++++++++++
+!  ----------------------------------------   
+
+         IF (Heter_Freezng)                                         THEN
+! #hy     IF                               (Ta_dgC(ikl,k).lt.0.0)   THEN
+
+            Flag_Ta_Neg=max(zer0,-sign(un_1,Ta_dgC(ikl,k) -  0.0))      ! Flag_Ta_Neg = 1.0 if Ta_dgC(ikl,k) < 0.00dgC
+                                                                        !             = 0.0 otherwise
+
+            argEXP = min(max(ea_MIN ,    -Ta_dgC(ikl,k)) ,ea_MAX)
+            BNUFWI =     Flag_Ta_Neg*(exp(argEXP)        -1.    )      &!
+     &                        * 100.*     qw__CM(ikl,k)  *qw_VOL
+            BNUFWI = min(    BNUFWI ,     qw__CM(ikl,k)         )
+              
+            qi__CM(ikl,k) = qi__CM(ikl,k) +               BNUFWI
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) + roa_DY(ikl,k)*BNUFWI/qw_VOL
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lc_Cpd       *BNUFWI
+            qw__CM(ikl,k) = qw__CM(ikl,k) -               BNUFWI
+
+
+!  Debug
+!  ~~~~~
+! #wH             debugH( 1:35)   = 'Homo+Hetero Nucleation by Droplets '
+! #wH             debugH(36:70)   = 'Solidification (BFREWI+BNUFWI)     '
+! #wH             proc_1          = 'BFREWI    '
+! #wH             procv1          =  Flag_TqwFrz
+! #wH             proc_2          = 'BNUFWI    '
+! #wH             procv2          =  BNUFWI
+! #wH             proc_3          = '          '
+! #wH             procv3          =  0.
+! #wH             proc_4          = '          '
+! #wH             procv4          =  0.
+! #wh             include 'CMiPhy_Debug.h'
+! #wH         IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1)) &
+! #wH&            debugV(k,01)    =  qw__OK+BNUFWI
+
+! #hy      END IF
+         END IF
+
+
+!===============================================================================                    CLOUD ICE  PARTICLES
+!                                                                                                   ++++++++++++++++++++
+!  Homogeneous Sublimation                                   ! XXXXXX
+!  Reference: Emde and Kahlig 1989, Ann.Geoph. 7, p.407 (12) ! Levkov
+!  ---------------------------------------------------------
+
+! #EW      IF (Flag_TqwFrz.gt.eps6)                                 THEN
+! #EW          mauxEW        =  mphyEW(ikl)
+! #EW          mauxEW(02:02) = 'I'
+! #EW          mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+         IF   (Homog_Sublima)                                       THEN
+               dqvSUB =  (qv__DY(ikl,k)-qsiEFF(ikl,k))                 &!
+     &                  /(1.00 +1.733e7*qsiEFF(ikl,k)                  &! 1.733e7=Ls*Ls*0.622/Cpa/Ra with Ls = 2833600 J/kg
+     &                  /(Ta__CM(ikl,k)*Ta__CM(ikl,k)))                 !
+
+               dqvSUB =   Flag_TqwFrz*max(zer0,dqvSUB)
+               dqvDUM =                        dqvSUB
+
+               qi__CM(ikl,k) = qi__CM(ikl,k) +          dqvDUM
+               qid_CM(ikl,k) = qid_CM(ikl,k) +          dqvDUM
+!              CCNiCM(ikl,k) : NO VARIATION
+               qv__DY(ikl,k) = qv__DY(ikl,k) -          dqvDUM
+               Ta__CM(ikl,k) = Ta__CM(ikl,k) + Ls_Cpd * dqvDUM
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ         write(6,*) 'Qihm2',dqvDUM,                               &
+! #WQ&                  ' Qi'   ,qi__CM(ikl,k),                        &
+! #WQ&                  ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k
+! #WH         if (ikl.eq.ikl0CM(1))  wihm2(k) =   dqvDUM
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)  = 'Emde and Kahlig: Homogeneous Sublim'
+! #wH         debugH(36:70)  = 'ation                              '
+! #wH         proc_1         = 'dQv   g/kg'
+! #wH         procv1         =  dqvDUM
+! #wH         proc_2         = '          '
+! #wH         procv2         =  0.
+! #wH         proc_3         = '          '
+! #wH         procv3         =  0.
+! #wH         proc_4         = 'CCNI/1.e15'
+! #wH         procv4         =  CCNiCM(ikl,k)*1.e-18
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,01)  =  dqvDUM + debugV(k,01)
+
+         END IF
+        END DO
+
+
+
+
+!===============================================================================                    CLOUD ICE  PARTICLES, MEYERS
+!                                                                                                   ++++++++++++++++++++
+!  Nucleation  I: Deposition & Condensation-Freezing Nucleat.
+!  Source       : Water Vapor                                ! BNUCVI
+!  Reference: Meyers et al., 1992, JAM 31, (2.4) p.712       ! Levkov (20) p.40
+!  -----------------------------------------------------------
+
+        IF (Meyers)                                               THEN
+          DO k=mz1_CM,mzp
+
+! #wH          NuIdOK      =  0.
+! #wH          CCNiId      =  0.
+! #wH          BNUCVI      =  0.
+! #wH          BSPRWI      =  0.
+! #wH          BHAMWI      =  0.
+
+! #hy       IF                                (Ta_dgC(ikl,k).lt.T_NuId) THEN
+               Flag_T_NuId=max(zer0,-sign(un_1,Ta_dgC(ikl,k) -  T_NuId))! Flag_T_NuId = 1.0 if Ta_dgC(ikl,k) < T_NuId
+!                                                                       !             = 0.0 otherwise
+
+                  dqvDUM  =    qv__DY(ikl,k) - qsiEFF(ikl,k)            ! Sursaturat.
+
+! #hy         IF (dqvDUM.gt.0.)                                     THEN
+                  SatiOK  =  max(zer0,sign(un_1,dqvDUM))                ! SatiOK      = 1.0 if qv__DY(ikl,k) > qsiEFF
+!                                                                       !             = 0.0 otherwise
+                  dqvDUM  =  max(zer0,          dqvDUM)
+
+                  NuIdOK  =  Flag_T_NuId      * SatiOK
+
+                  SSat_I  =  1.e2*dqvDUM      / qsiEFF(ikl,k)           ! Sursaturat.%I
+                  SSat_I  =          min(SSat_I,SSImax)                 !
+                  CCNiId  =  1.0e3 * exp(a_NuId+b_NuId*SSat_I)          ! Meyers et al. 1992 JAM, 2.4
+                  CCNiId  =          max(CCNiId-CCNiCM(ikl,k),zer0)    &!
+     &                             *     NuIdOK                         !
+                  CCNiCM(ikl,k) =        CCNiId+CCNiCM(ikl,k)           !
+                  dqiDUM  =  1.e-15*     CCNiId/roa_DY(ikl,k)           ! 1.e-15  =  0.001 * Initial Ice Crystal Mass
+                  dqiDUM        =          min(dqiDUM , dqvDUM)
+                  qi__CM(ikl,k)  =              qi__CM(ikl,k) + dqiDUM
+                  qid_CM(ikl,k) =               qid_CM(ikl,k) + dqiDUM
+                  qv__DY(ikl,k) =               qv__DY(ikl,k) - dqiDUM
+                  Ta__CM(ikl,k) =               Ta__CM(ikl,k) + dqiDUM*Ls_Cpd
+                  BNUCVI        =                               dqiDUM
+
+! #hy         END IF
+! #hy       END IF
+
+
+!  Nucleation  I:              Contact     -Freezing Nucleat.                                       CLOUD ICE  PARTICLES, MEYERS
+!  Source       : Cloud Dropplets                            ! BSPRWI                               ++++++++++++++++++++
+!  Reference: Meyers et al., 1992, JAM 31, (2.6) p.713       ! Levkov (20) p.40
+!  -----------------------------------------------------------
+
+! #wH             CCNiIc =  0.
+! #wH             dqiDUM =  0.
+
+! #hy       IF                               (qw__CM(ikl,k).gt.0.)  THEN
+                  qw__OK = max(zer0,sign(un_1,qw__CM(ikl,k)))           ! qw__OK = 1.0 if qw__CM(ikl,k) > 0.
+                                                                        !        = 0.0 otherwise
+
+! #hy         IF (Ta_dgC(ikl,k).lt.T_NuIc)                          THEN
+                  Flag_T_NuIc   =   max(zer0,-sign(un_1,Ta_dgC(ikl,k) - T_NuIc))
+!                 Flag_T_NuIc   =   1.0 if              Ta_dgC(ikl,k) < T_NuIc
+!                               =   0.0 otherwise
+
+                  Flag___NuIc   =   Flag_T_NuIc  * qw__OK
+
+                  CCNiIc =   1.e3 *     Flag___NuIc                    &! Contact-Freez
+     &                                   * exp(a_NuIc                  &! Potent.Nuclei
+     &                                        -b_NuIc                  &! Meyers et al.
+     &                                        *Ta_dgC(ikl,k))           ! 1992 JAM, 2.6
+                  rad_ww =  (1.e3     * roa_DY(ikl,k)                  &! Drop.  Radius
+     &                                * qw__CM(ikl,k)                  &!
+     &                                * .2e-11       ) ** 0.33          !
+!                 .2e-11 =   1. / (1.2e+8         * 1.e3 * 4.19)
+!                                  CCNwCM (ASTEX)   ro_w   4 pi /3
+                  CCNiIc = 603.2e+3  *  CCNiIc * rad_ww                &! Levkov et al.
+     &                               *  roa_DY(ikl,k)                   ! 1992 CAM,(23)
+!                          603.2e3 = 4.0e-7 * 4 pi * 1.2e+8 * 1.e3
+!                                    DFar            CCNwCM   fact(rolv)
+                  CCNiCM(ikl,k) =       CCNiCM(ikl,k)                  &!
+     &                               +  CCNiIc                          !
+                  dqiDUM =   1.e-15  *  CCNiIc/roa_DY(ikl,k)
+!                            1.e-15  =  1.0e-3 * Ice Crystal Mass
+                  dqiDUM =         min( qw__CM(ikl,k) , dqiDUM)
+                  qi__CM(ikl,k)  =      qi__CM(ikl,k) + dqiDUM 
+                  qw__CM(ikl,k)  =      qw__CM(ikl,k) - dqiDUM
+                  Ta__CM(ikl,k)  =      Ta__CM(ikl,k) + dqiDUM*Lc_Cpd
+                  BSPRWI         =                      dqiDUM
+
+! #hy         END IF
+! #hy       END IF
+
+
+!  Nucleation II: Hallett-Mossop Ice-Multiplication Process  ! BSPRWI                               CLOUD ICE  PARTICLES, MEYERS
+!  Reference: Levkov et al., 1992, Contr.Atm.Ph.65,(25) p.40 ! Levkov (25) p.40                     ++++++++++++++++++++
+!  -----------------------------------------------------------
+
+            IF   (HalMos)                                           THEN
+! #hy        IF   (Ta_dgC(ikl,k).lt.TmaxHM.AND.                        &
+! #hy&             Ta_dgC(ikl,k).gt.TminHM.AND.                        &
+! #hy&             wa__DY(ikl,k).gt.wa__HM    )                     THEN
+              Flag_TmaxHM = max(zer0,-sign(un_1,Ta_dgC(ikl,k) - TmaxHM))
+!             Flag_TmaxHM = 1.0 if              Ta_dgC(ikl,k) < TmaxHM
+!                         = 0.0 otherwise
+
+              Flag_TminHM = max(zer0, sign(un_1,Ta_dgC(ikl,k) - TminHM))
+!             Flag_TminHM = 1.0 if              Ta_dgC(ikl,k) > TminHM
+!                         = 0.0 otherwise
+
+              Flag_wa__HM = max(zer0, sign(un_1,wa__DY(ikl,k) - wa__HM))
+!             Flag_wa__HM = 1.0 if              wa__DY(ikl,k) > wa__HM
+!                         = 0.0 otherwise
+
+! #cn         n0___s  = min(2.e8,2.e6*exp(-.12*min(Ta_dgC(ikl,k),0.)))
+
+              SplinJ = 1.358e12 *qw__CM(ikl,k)                         &!
+     &                          *n0___s          /(lamdaS(ikl,k)**.33)
+!                      1.358e12=pi   *Gamma(3.5) *g   *ro_s /(3 *Cd  *4.19e-12)
+!                             [=3.14 *3.3233625  *9.81*0.1  /(3 *0.6 *4.19e-12)]
+              SplinP = 0.003 * (1. - 0.05 *SplinJ) * Flag_TmaxHM       &!
+     &                              * Flag_TminHM  * Flag_wa__HM        !
+              SplinP =      max(zer0,      SplinP)
+
+              dqiDUM =          1.e-15  *  SplinP  / roa_DY(ikl,k)      ! 1.e-15  =  1.0e-3 * Ice Crystal Mass
+              SplinP = (min(1.0,qs__CM(ikl,k)/max(dqiDUM,epsn))) *SplinP
+              CCNiCM(ikl,k) =              CCNiCM(ikl,k)         +SplinP
+              dqiDUM =      min(qs__CM(ikl,k),  dqiDUM)
+              qi__CM(ikl,k)  =  qi__CM(ikl,k) + dqiDUM 
+              qid_CM(ikl,k)  =  qid_CM(ikl,k) + dqiDUM 
+              qs__CM(ikl,k)  =  qs__CM(ikl,k) - dqiDUM
+              BHAMWI         =                  dqiDUM
+! #hy        END IF
+            END IF
+
+
+!  Debug
+!  ~~~~~
+! #wH           debugH( 1:35)   = 'Meyers: Nucl. I, Depot & Cond-Freez'
+! #wH           debugH(36:70)   = 'Nucl. / Freez / Nucl. II / Bergeron'
+! #wH           proc_1          = 'dQi1 Meyer'
+! #wH           procv1          =  BNUCVI
+! #wH           proc_2          = 'dQi2 Meyer'
+! #wH           procv2          =  BSPRWI
+! #wH           proc_3          = 'dQi Ha-Mos'
+! #wH           procv3          =  BHAMWI
+! #wH           proc_4          = '          '
+! #wH           procv4          =  0.
+! #wh           include 'CMiPhy_Debug.h'
+! #wH       IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1)) &
+! #wH&          debugV(k,02)   =  BNUCVI + BSPRWI + BHAMWI
+
+          END DO
+
+
+
+
+!===============================================================================
+
+        ELSE
+
+!===============================================================================                    CLOUD ICE  PARTICLES, EMDE & KAHLIG
+!                                                                                                   ++++++++++++++++++++
+!  Ice Crystals Nucleation Process between 0.C and -35.C
+!  (each crystal has a mass equal or less than 10d-12 kg)
+!  Reference: Emde and Kahlig 1989, Ann.Geoph. 7, p.408 (13)
+!  ---------------------------------------------------------
+
+          DO k=mz1_CM,mzp
+
+! #wH        qi_Nu1        =  0.
+! #wH        qi_Nu2        =  0.
+! #wH        qi_Nuc         =  0.
+
+! #hy       IF                                (Ta_dgC(ikl,k).gt.TqwFrz) THEN
+             Flag_TqwFrz = max(zer0, sign(un_1,Ta_dgC(ikl,k)  - TqwFrz))
+!            Flag_TqwFrz =     1.0 if          Ta_dgC(ikl,k)  > TqwFrz
+!                        =     0.0 otherwise
+
+! #hy       IF                                (Ta_dgC(ikl,k).lt.0.e0  ) THEN
+             Flag_Ta_Neg = max(zer0,-sign(un_1,Ta_dgC(ikl,k)          ))
+!            Flag_Ta_Neg =     1.0 if          Ta_dgC(ikl,k)  < 0.e0
+!                        =     0.0 otherwise
+
+! #hy       IF                                (qv__DY(ikl,k).gt.qsiEFF(ikl,k)) THEN
+             SatiOK      = max(zer0, sign(un_1,qv__DY(ikl,k)  - qsiEFF(ikl,k)))
+!            SatiOK        =   1.0 if          qv__DY(ikl,k)  > qsiEFF(ikl,k)
+!                          =   0.0 otherwise
+
+             FlagNu        =   Flag_TqwFrz * Flag_Ta_Neg * SatiOK
+
+! #EW        IF(FlagNu.gt.eps6)                                     THEN
+! #EW           mauxEW        =  mphyEW(ikl)
+! #EW           mauxEW(03:03) = 'I'
+! #EW           mphyEW(ikl)   =  mauxEW
+! #EW        END IF 
+
+             qi_Nu1 = FlagNu * 1.d-15 * Fletch(ikl,k) /roa_DY(ikl,k)
+!            qi_Nu1 : amount of nucleated ice crystals (first  condition)
+
+             qi_Nu1 = qi_Nu1*max(zer0,sign(un_1,qi_Nu1-qi__CM(ikl,k)))
+
+             qi_Nu2 = (  qv__DY(ikl,k)-qsiEFF(ikl,k))                  &
+     &                 /(1.0d0+1.733d7*qsiEFF(ikl,k)                   &
+     &                 /(Ta__CM(ikl,k)*Ta__CM(ikl,k)))
+             qi_Nu2 =    FlagNu *  max(zer0  ,qi_Nu2)                   ! amount of nucleated ice crystals (second condition)
+
+             qi_Nuc =              min(qi_Nu1,qi_Nu2)
+
+             qi__CM(ikl,k) = qi__CM(ikl,k) +                qi_Nuc
+             qid_CM(ikl,k) = qid_CM(ikl,k) +                qi_Nuc
+             CCNiCM(ikl,k) = CCNiCM(ikl,k) + roa_DY(ikl,k) *qi_Nuc     &
+     &                                                      *1.e15
+             qv__DY(ikl,k) = qv__DY(ikl,k) -                qi_Nuc
+             Ta__CM(ikl,k) = Ta__CM(ikl,k) + Ls_Cpd        *qi_Nuc
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ        write(6,*) 'QiCnd',qi_Nuc,                                &
+! #WQ&                 ' Qi'   ,qi__CM(ikl,k),                         &
+! #WQ&                 ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k
+! #WH        IF (ikl.eq.ikl0CM(1))  wicnd(k) =   qi_Nuc
+
+!  Debug
+!  ~~~~~
+! #wH            debugH( 1:35)   = 'Emde and Kahlig: Ice Crystals Nucle'
+! #wH            debugH(36:70)   = 'ation Process between 0.C and -35.C'
+! #wH            proc_1          = 'Qicnd1    '
+! #wH            procv1          =  qi_Nu1
+! #wH            proc_2          = 'Qicnd2    '
+! #wH            procv2          =  qi_Nu2
+! #wH            proc_3          = 'Qicnd g/kg'
+! #wH            procv3          =  qi_Nuc
+! #wH            proc_4          = '          '
+! #wH            procv4          =  0.
+! #wh            include 'CMiPhy_Debug.h'
+! #wH        IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))&
+! #wH&           debugV(k,02)    =  qi_Nuc
+
+
+! #hy       END IF
+! #hy       END IF
+! #hy       END IF
+
+
+          END DO
+
+        END IF
+
+
+
+
+!==============================================================================                     CLOUD PARTICLES, MIXED PHASE
+!                                                                                                   +++++++++++++++
+!  Bergeron Process (water vapor diffusion-deposition on ice crystals)
+!  Reference: Koenig          1971, J.A.S.    28, p.235
+!             Emde and Kahlig 1989, Ann.Geoph. 7, p.408 (14)
+!  ---------------------------------------------------------
+
+        IF (.NOT.AUTO_i_LevkXX)                                     THEN
+
+          DO k=mz1_CM,mzp
+
+! #wH        qi0_OK       =  0.
+! #wH        qxBerg       =  0.
+! #wH        qwBerg       =  0.
+
+! #hy       IF                                 (qi__CM(ikl,k).gt.epsn
+! #hy&         .AND.                            Ta_dgC(ikl,k).lt.0.e0) THEN
+
+              qi0_OK      = max(zer0, sign(un_1,qi__CM(ikl,k)  - epsn))
+!             qi0_OK      = 1.0 if              qi__CM(ikl,k)  > epsn
+!                         = 0.0 otherwise
+
+              Flag_Ta_Neg = max(zer0,-sign(un_1,Ta_dgC(ikl,k)        ))
+!             Flag_Ta_Neg = 1.0 if              Ta_dgC(ikl,k)  < 0.e0
+!                         = 0.0 otherwise
+
+              qi0_OK      = Flag_Ta_Neg * qi0_OK
+
+! #EW        IF(qi0_OK.gt.eps6)                                     THEN
+! #EW           mauxEW        =  mphyEW(ikl)
+! #EW           mauxEW(04:04) = 'i'
+! #EW           mphyEW(ikl)   =  mauxEW
+! #EW        END IF
+
+              i_Berg = abs(Ta_dgC(ikl,k)-un_1)
+              i_Berg = min(i_Berg,31)
+              i_Berg = max(i_Berg, 1)
+              a1Berg = aa1(i_Berg)
+              a2Berg = aa2(i_Berg)
+
+              a0Berg = 1.d+3*roa_DY(ikl,k)*qi__CM(ikl,k) / Fletch(ikl,k)
+              afBerg =(a1Berg *(1.0-a2Berg) *  dt__CM                  &! analytical integration of (14) p.408
+     &                +a0Berg**(1.0-a2Berg))**(1.0/(1.0-a2Berg))        ! Emde and Kahlig 1989, Ann.Geoph. 7
+              qxBerg =(1.d-3*Fletch(ikl,k)/roa_DY(ikl,k))              &!
+     &               *(afBerg-a0Berg)                                   !
+              qxBerg =     max(zer0,qxBerg)
+
+              qwBerg =     max(zer0,qw__CM(ikl,k))                      ! qwBerg :  to avoid the use of qwd_CM < 0.
+
+              qxBerg = qi0_OK*min(qwBerg,qxBerg)
+              qi__CM(ikl,k)=  qi__CM(ikl,k)         +qxBerg
+!             CCNiCM(ikl,k):NO VARIATION
+
+              qw__CM(ikl,k)=  qw__CM(ikl,k)         -qxBerg
+              Ta__CM(ikl,k)=  Ta__CM(ikl,k)+Lc_Cpd  *qxBerg
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ         write(6,*) 'QiDep',qxBerg,
+! #WQ&                  ' Qi'   ,qi__CM(ikl,k),
+! #WQ&                  ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k
+! #WH         IF (ikl.eq.ikl0CM(1))  widep(k)= qxBerg
+
+!  Debug
+!  ~~~~~
+! #wH             debugH( 1:35)   = 'Bergeron Process (water vapor diffu'
+! #wH             debugH(36:70)   = 'sion-deposition on ice crystals)   '
+! #wH             proc_1          = 'qi0_OK ICE'
+! #wH             procv1          =  qi0_OK
+! #wH             proc_2          = 'Qicnd g/kg'
+! #wH             procv2          =  qwBerg
+! #wH             proc_3          = 'Qidep g/kg'
+! #wH             procv3          =  qxBerg
+! #wH             proc_4          = '          '
+! #wH             procv4          =  0.
+! #wh             include 'CMiPhy_Debug.h'
+! #wH         IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1)) &
+! #wH&            debugV(k,02)    =  qxBerg + debugV(k,02)
+
+
+! #hy       END IF
+
+          END DO
+
+        END IF
+
+
+
+
+!===============================================================================                    CLOUD ICE PARTICLES
+
+!  Ice Crystals Sublimation                                  ! BDEPVI
+!  Reference: Emde and Kahlig, 1989 p.408 (15)               ! Levkov (27) p.40
+!  -------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       BDEPVI      =  0.
+
+! #hy     IF                       (qsiEFF(ikl,k).gt.qv__DY(ikl,k))     THEN
+
+            dqsiqv      =           qsiEFF(ikl,k) -  qv__DY(ikl,k)
+! #pp       Flag_SUBSat =  max(zer0,sign(un_1,dqsiqv))
+!           Flag_SUBSat =  1.0 if   qsiEFF(ikl,k) >  qv__DY(ikl,k)
+!                       =  0.0 otherwise
+
+! #hy     IF                                   (qi__CM(ikl,k).gt.epsn)  THEN
+
+            qi0_OK      =  max(zer0,sign(un_1,  qi__CM(ikl,k)  - epsn))
+!           qi0_OK      =  1.0 if               qi__CM(ikl,k)  > epsn
+!                       =  0.0 otherwise
+
+            Flag_Sublim =            qi0_OK                            &
+! #pp&                  *            Flag_SUBSat                       &
+     &                  +            0.0
+
+! #EW      IF(Flag_Sublim.gt.eps6)                                  THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(05:05) = 'V'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            RH_Ice   = qv__DY(ikl,k) /     qsiEFF(ikl,k)
+            DenDi1   = 6.959d+11     /    (Ta__CM(ikl,k)*Ta__CM(ikl,k))
+!                      6.959e+11
+!                    = [Ls=2833600J/kg] * Ls / [kT=0.025W/m/K] / [Rv=461.J/kg/K]
+!                                               kT: Air thermal Conductivity
+            DenDi2   = 1.0d0 / (1.875d-2*roa_DY(ikl,k)*qsiEFF(ikl,k))
+!                               1.875d-5: Water Vapor Diffusivity in Air
+            BDEPVI   = dt__CM *(1.-RH_Ice)*4.0*Di_Hex *Fletch(ikl,k)   &!
+     &                     /(DenDi1+DenDi2)
+            BDEPVI   = max(BDEPVI, -qv__DY(ikl,k))                      ! H2O deposit.limit = H2O content
+            BDEPVI   = min(BDEPVI,  qi__CM(ikl,k))                      ! qi  sublim. limit = qi  content
+            BDEPVI   = min(BDEPVI,  dqsiqv       )                     &! qi  sublim. limit = Saturation
+     &                   * Flag_Sublim
+
+            qi__CM(ikl,k) = qi__CM(ikl,k) -           BDEPVI
+            qid_CM(ikl,k) = qid_CM(ikl,k) -           BDEPVI
+            qv__DY(ikl,k) = qv__DY(ikl,k) +           BDEPVI
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) - Ls_Cpd   *BDEPVI
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'QiSub', BDEPVI,                                &
+! #WQ&                ' Qi'   ,  qi__CM(ikl,k),                        &
+! #WQ&                ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k
+! #WH       IF (ikl.eq.ikl0CM(1)) wisub(k) = BDEPVI
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Emde and Kahlig: Ice Crystals Subli'
+! #wH         debugH(36:70)   = 'mation                             '
+! #wH         proc_1          = 'Qisub g/kg'
+! #wH         procv1          =  BDEPVI
+! #wH         proc_2          = 'R.Hum I[%]'
+! #wH         procv2          =  0.1 * RH_Ice
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1)) &
+! #wH&        debugV(k,03)    = -BDEPVI
+
+        END DO
+
+        DO k=mz1_CM,mzp
+          IF (qi__CM(ikl,k).le.0.e0)                                THEN
+              qi__CM(ikl,k) =  0.e0
+              CCNiCM(ikl,k) =  0.e0
+          END IF
+        END DO
+
+
+
+
+!===============================================================================
+
+!  Ice Crystals Instantaneous Melting
+!  ----------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qiMELT      =  0.
+! #wH       CiMelt      =  0.
+
+! #hy     IF                                 (Ta_dgC(ikl,k).gt.0.e0)THEN
+
+            Flag_Ta_Pos = max(zer0, sign(un_1,Ta_dgC(ikl,k)        ))
+!           Flag_Ta_Pos = 1.0 if              Ta_dgC(ikl,k) >  0.e0
+!                       = 0.0 otherwise
+
+! #hy     IF                                 (qi__CM(ikl,k).gt.epsn)THEN
+            qi0_OK      = max(zer0, sign(un_1,qi__CM(ikl,k) -  epsn))
+!           qi0_OK      = 1.0 if              qi__CM(ikl,k) >  epsn
+!                       = 0.0 otherwise
+
+            Flag_qiMELT = Flag_Ta_Pos * qi0_OK
+
+! #EW      IF(Flag_qiMELT .gt.eps6)                                 THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(06:06) = 'w'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            qxMelt =        Ta_dgC(ikl,k) / Lc_Cpd
+            qiMELT =    min(qi__CM(ikl,k) ,         qxMelt)*Flag_qiMELT
+            CiMelt =        CCNiCM(ikl,k) *         qiMELT             &
+     &                 /max(qi__CM(ikl,k) , epsn)
+            qi__CM(ikl,k) = qi__CM(ikl,k) -         qiMELT
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) -         CiMelt
+            qw__CM(ikl,k) = qw__CM(ikl,k) +         qiMELT
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) - Lc_Cpd *qiMELT
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'QiMlt',qiMELT,                                 &
+! #WQ&                ' Qi'   ,qi__CM(ikl,k),                          &
+! #WQ&                ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k               
+! #WH       IF (ikl.eq.ikl0CM(1))  wimlt(k) =   qiMELT
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Emde and Kahlig: Ice Crystals Insta'
+! #wH         debugH(36:70)   = 'ntaneous Melting                   '
+! #wH         proc_1          = 'Qimlt g/kg'
+! #wH         procv1          =  qiMELT
+! #wH         proc_2          = 'CiMelt /e15'
+! #wH         procv2          =  CiMelt*1.e-18
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,04)    = -qiMELT
+
+        END DO
+
+
+
+
+!===============================================================================                    CONDENSATION, Delobbe SCu
+!                                                                                                   +++++++++++++++++++++++++
+!  Water Vapor Condensation / Evaporation (Fractional Cloudiness)
+!  Reference: Laurent Delobbe Thesis (Ek &Mahrt 1991)
+!  --------------------------------------------------------------
+
+          DO k=mz1_CM,mzp                                                ! Zeroing needed since
+            CFraCM(ikl,k) =  0.0                                        ! a maximization process
+          END DO
+
+        IF (Frac__Clouds.AND.fracSC)                                THEN
+
+          DO k=mz1_CM,mzp
+
+! #wH       dwMesh      = 0.
+
+! #hy      IF                               (Ta_dgC(ikl,k).ge.TqwFrz) THEN
+
+            Flag_TqwFrz = max(zer0,sign(un_1,Ta_dgC(ikl,k) -  TqwFrz))
+!           Flag_TqwFrz = 1.0 if             Ta_dgC(ikl,k) >  TqwFrz
+!                       = 0.0 otherwise
+
+            t_qvqw = qv__DY(ikl,k) +              qw__CM(ikl,k)         ! Total Water Mixing Ratio
+            TLiqid = Ta__CM(ikl,k) -  Lv_Cpd    * qw__CM(ikl,k)         ! Liquid Temperature
+
+!  Saturation specific humidity over water,
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ corresponding to liquid temperature
+!                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            pa_hPa =(psa_DY(ikl)  * sigma(k) + pt__DY) * 10.0d0         ! Dudhia (1989) JAS, (B1) and (B2) p.3103
+            es_hPa = 6.1078d0 * exp (ExpWat*  log(WatIce     /TLiqid)) &! (see also Pielke (1984), p.234, and
+     &                        * exp (ExpWa2*(un_1/WatIce-un_1/TLiqid))  !           Stull  (1988), p.276
+
+            Qsat_L = .622d0*es_hPa /(pa_hPa - .378d0*es_hPa)            ! Saturation Vapor Specific Concentration over Water
+                                                                        ! (even for temperatures less than freezing point)
+
+!  Partial Condensation/Scheme
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            d_qvqw = qv__DY(ikl,MIN(k+1,mzp))-qv__DY(ikl,k)            &
+     &             + qwd_CM(ikl,MIN(k+1,mzp))-qw__CM(ikl,k)
+            Kdqvqw = Kzh_AT(ikl,k)*d_qvqw/(Z___DY(ikl,k+1)-Z___DY(ikl,k))
+
+            ww_TKE  = 0.66d+0 * TKE_AT(ikl,k)                           ! Vertical Velocity Variance
+
+            coefC2 = Kdqvqw/(sqrt(ww_TKE)*Qsat_L)
+            RH_TKE = C1_EkM + C2_EkM * coefC2 * coefC2                  ! Relative Humidity Variance
+                                                                        ! (Ek and Mahrt, 1991, An. Geoph., 9, 716--724)
+ 
+            qt_TKE  =         sqrt(RH_TKE)*Qsat_L                       ! Total    Water    Variance
+
+            ARGerf = (t_qvqw-Qsat_L)/(1.414d+0*qt_TKE)
+            OUTerf = erf(ARGerf)
+
+            CFraCM(ikl,k) = 0.5d+0 * (1.d+0 + OUTerf)                   ! Cloud Fraction
+
+            CFrCoe = 1.d+0/(1.d+0+1.349d7*Qsat_L/(TLiqid*TLiqid))       !
+            CFr_t1 = qt_TKE/sqrt(piNmbr+piNmbr)                        &!
+     &                * exp(-min(ARGerf*ARGerf,ea_MAX))                 !
+            CFr_t2 = CFraCM(ikl,k)    *(t_qvqw-Qsat_L)                  !
+
+            CFraOK =  max(zer0,sign(un_1,CFraCM(ikl,k) - CFrMIN))       ! CFraOK = 1.0 if  CFraCM(ikl,k) > CFrMIN
+                                                                        !        = 0.0 otherwise
+
+            CFraCM(ikl,k) = CFraCM(ikl,k) * CFraOK   * Flag_TqwFrz      !
+            qwMesh        = CFrCoe * (CFr_t1+CFr_t2) * CFraOK           ! Mesh Averaged Liquid Water Mixing Ratio
+            dwMesh        =    qwMesh   -  qw__CM(ikl,k)
+
+!  Vectorisation of the Atmospheric Water Update
+!  ~~~~~~~~~~~~~+-------------------------------------------------+
+!               |       if (dwMesh.gt.0.d0)             then      |
+!               |           dwMesh = min(qv__DY(ikl,k), dwMesh)   |
+!               |       else                                      |
+!               |           dwMesh =-min(qw__CM(ikl,k),-dwMesh)   |
+!               |       end if                                    |
+!               +-------------------------------------------------+
+
+            signdw        =    sign(un_1,dwMesh)
+            Flag_dqwPos   =     max(zer0,signdw)
+            updatw        =    Flag_dqwPos *       qv__DY(ikl,k)       &!
+     &                + (1.d0 -Flag_dqwPos)*       qw__CM(ikl,k)        !
+! #kk       SCuLim        =        exp(min(0.,300.-Ta__CM(ikl,k)))      ! SCu Lim.
+            dwMesh        =    signdw *min(updatw, signdw*dwMesh)      &!
+     &                        *Flag_TqwFrz                             &!
+! #kk&                                           * SCuLim              &! SCu
+     &                    +    0.0
+! #kk       CFraCM(ikl,k) =    CFraCM(ikl,k)     * SCuLim               ! Limitor
+
+!  Update of qv__DY, qw__CM and Ta__CM
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            qw__CM(ikl,k) = qw__CM(ikl,k) +             dwMesh
+            qwd_CM(ikl,k) = qwd_CM(ikl,k) +             dwMesh
+            qv__DY(ikl,k) = qv__DY(ikl,k) -             dwMesh
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lv_Cpd    * dwMesh
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ         write(6,*) 'QwEvp',dwMesh,it_EXP,ikl,k
+! #WH         if (ikl.eq.ikl0CM(1)) wwevp(k)     = dwMesh
+
+! #EW        IF(Ta_dgC(ikl,k).ge.TqwFrz)                            THEN
+! #EW           mauxEW        =  mphyEW(ikl)
+! #EW           mauxEW(07:07) = 'W'
+! #EW           mphyEW(ikl)   =  mauxEW
+! #EW        END IF
+
+! #hy       END IF
+
+!  Debug
+!  ~~~~~
+! #wH           debugH( 1:35)   = 'Delobbe: Condensation              '
+! #wH           debugH(36:70)   = '                                   '
+! #wH           proc_1          = 'dQw   g/kg'
+! #wH           procv1          =  dwMesh
+! #wH           proc_2          = '          '
+! #wH           procv2          =  0.
+! #wH           proc_3          = '          '
+! #wH           procv3          =  0.
+! #wH           proc_4          = '          '
+! #wH           procv4          =  0.
+! #wh           include 'CMiPhy_Debug.h'
+! #wH       IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1)) &
+! #wH&          debugV(k,05)   =  dwMesh
+
+          END DO
+
+
+
+
+!===============================================================================                    CONDENSATION, NO SCu
+!                                                                                                   ++++++++++++++++++++
+!  Water Vapor Condensation / Evaporation
+!  Reference: Emde and Kahlig 1989, Ann.Geoph. 7, p.407 (7)
+!  --------------------------------------------------------
+
+        ELSE
+
+          DO k=mz1_CM,mzp
+
+! #wH        dwMesh      = 0.
+
+! #hy       IF                                (Ta_dgC(ikl,k).ge.TqwFrz)  THEN
+             Flag_TqwFrz = max(zer0, sign(un_1,Ta_dgC(ikl,k) -  TqwFrz))
+!            Flag_TqwFrz = 1.0 if              Ta_dgC(ikl,k) >  TqwFrz
+!                        = 0.0 otherwise
+
+             dwMesh = (qv__DY(ikl,k)  -qvswCM(ikl,k)*RHcrit)           &
+     &                / (1.0d0+1.349d7*qvswCM(ikl,k)                   &
+     &                               /(Ta__CM(ikl,k)*Ta__CM(ikl,k)))
+!                              1.349e7=Lv*Lv*0.622/Cpa/Ra with Lv = 2500000 J/kg
+
+!  Vectorisation of the Atmospheric Water Update
+!  ~~~~~~~~~~~~~+-------------------------------------------------+
+!               |       if (dwMesh.gt.0.d0)             then      |
+!               |           dwMesh = min(qv__DY(ikl,k), dwMesh)   |
+!               |       else                                      |
+!               |           dwMesh =-min(qw__CM(ikl,k),-dwMesh)   |
+!               |       end if                                    |
+!               +-------------------------------------------------+
+
+             signdw      =    sign(un_1,dwMesh)
+             Flag_dqwPos =     max(zer0,signdw)
+             updatw      =        Flag_dqwPos *    qv__DY(ikl,k)       &
+     &                   + (1.d0 -Flag_dqwPos)*    qw__CM(ikl,k)
+             dwMesh      =        signdw *min(updatw,signdw*dwMesh)    &
+     &                           *Flag_TqwFrz
+
+!  Update of qv__DY, qw__CM and Ta__CM
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+             qw__CM(ikl,k) = qw__CM(ikl,k) +             dwMesh
+             qwd_CM(ikl,k) = qwd_CM(ikl,k) +             dwMesh
+             qv__DY(ikl,k) = qv__DY(ikl,k) -             dwMesh
+             Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lv_Cpd    * dwMesh
+!            [Ls=2500000J/kg]/[Cp=1004J/kg/K]=2490.04
+
+! #EW        IF(Ta_dgC(ikl,k).ge.TqwFrz)                            THEN
+! #EW            mauxEW        =  mphyEW(ikl)
+! #EW            mauxEW(07:07) = 'W'
+! #EW            mphyEW(ikl)   =  mauxEW
+! #EW        END IF
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ         write(6,*) 'QwEvp',dwMesh,it_EXP,ikl,k
+! #WH         if (ikl.eq.ikl0CM(1)) wwevp(k) = dwMesh
+
+! #hy       END IF
+
+!  Debug
+!  ~~~~~
+! #wH           debugH( 1:35)   = 'Emde and Kahlig: Water Vapor Conden'
+! #wH           debugH(36:70)   = 'sation / Evaporation               '
+! #wH           proc_1          = 'dQw   g/kg'
+! #wH           procv1          =  dwMesh
+! #wH           proc_2          = '          '
+! #wH           procv2          =  0.
+! #wH           proc_3          = '          '
+! #wH           procv3          =  0.
+! #wH           proc_4          = '          '
+! #wH           procv4          =  0.
+! #wh           include 'CMiPhy_Debug.h'
+! #wH       IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1)) &
+! #wH&          debugV(k,05)   =  dwMesh
+
+          END DO
+
+        END IF
+
+
+
+
+!===============================================================================                    CONDENSATION, SCu added AFTER
+!                                                                                                   +++++++++++++++++++++++++++++
+!  Fractional  Cloudiness ! Guess may be computed (Ek&Mahrt91 fracSC=.T.)
+!  ====================== ! Final value  computed  below
+
+! #sc   IF (Frac__Clouds.AND..NOT.fracSC)                           THEN
+        IF (Frac__Clouds)                                           THEN
+         IF(fraCEP) THEN ! ECMWF Large Scale Cloudiness
+                         ! ----------------------------
+          DO k=mz1_CM,mzp
+              CFraCM(ikl,k) =           (qi__CM(ikl,k) + qw__CM(ikl,k) &!
+     &                                  +qs__CM(ikl,k) *  0.33         &!
+     &               * (1.-min(un_1,exp((Ta__CM(ikl,k) -258.15)*0.1))))&!
+     &               / (0.02       *     qvswCM(ikl,k)                ) !
+              CFraCM(ikl,k) =min(un_1  , CFraCM(ikl,k))
+              CFraCM(ikl,k) =max(0.001 , CFraCM(ikl,k))                &!
+     &             *  max(zer0,sign(un_1,qi__CM(ikl,k) + qw__CM(ikl,k) &!
+     &                                  +qs__CM(ikl,k) -3.E-9         ))!
+          END DO
+         ELSE            ! XU and Randall  1996, JAS 21, p.3099 (4)
+                         ! ----------------------------
+          DO k=mz1_CM,mzp
+              qvs_wi=                                        qvswCM(ikl,k)
+! #wi         qvs_wi=max(epsn,((qi__CM(ikl,k)+qs__CM(ikl,k))*qvsiCM(ikl,k)  &
+! #wi&                         +qw__CM(ikl,k)               *qvswCM(ikl,k)) &
+! #wi&              /max(epsn,  qi__CM(ikl,k)+qs__CM(ikl,k) +qw__CM(ikl,k)))
+              RHumid= min( RH_MAX,        max(qv__DY(ikl,k) ,qv_MIN)   &
+     &                                      / qvs_wi)
+              argEXP=  (  (RH_MAX  -RHumid) * qvs_wi)      **  0.49
+              argEXP= min(100.*(qi__CM(ikl,k)+qw__CM(ikl,k)            &
+     &                                       +qs__CM(ikl,k) *  0.33    &
+     &                 * (1.-min(1.,exp((Ta__CM(ikl,k) -258.15)*0.1))))&
+     &                             /max( epsn         , argEXP       ) &
+     &                             ,ea_MAX                            )
+ 
+              CFraCM(ikl,k) =      (     RHumid       ** 0.25         )&
+     &                         *   (1.  -   exp(-argEXP)              )
+          END DO
+         END IF
+
+        ELSE
+! #sc   ELSE IF (      .NOT.Frac__Clouds)                           THEN
+! #sc     IF               (fracSC) stop 'fracSC set up when Frac__Clouds NOT'
+          DO k=mz1_CM,mzp
+              qCloud        =      qi__CM(ikl,k) + qw__CM(ikl,k)
+
+! #hy       IF                                    (qCloud     &gt.epsn)  THEN
+              CFraCM(ikl,k) = max(zer0,sign(un_1,  qCloud       - epsn))
+!             CFraCM(ikl,k) = 1.0 if               qCloud       > epsn
+!                           = 0.0 otherwise
+
+! #hy       END IF
+          END DO
+
+        END IF
+
+
+!  Debug
+!  ~~~~~
+! #wH     DO k=mz1_CM,mzp
+! #wH         debugH( 1:35) = 'Fractional Cloudiness (XU .OR. CEP)'
+! #wH         debugH(36:70) = '                                   '
+! #wH         proc_1        = '          '
+! #wH         procv1        =  0.
+! #wH         proc_2        = '          '
+! #wH         procv2        =  0.
+! #wH         proc_3        = '          '
+! #wH         procv3        =  0.
+! #wH         proc_4        = '          '
+! #wH         procv4        =  0.     
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     END DO
+
+
+
+
+!===============================================================================                    AUTO-CONVERSION, LIQUID
+!                                                                                                   +++++++++++++++++++++++
+!  Autoconversion (i.e., generation of precipitating particles), liquid water
+!  ==========================================================================
+
+!  Cloud Droplets Autoconversion
+!  Reference: Sundqvist       1988, Schlesinger, Reidel, p.  433)
+!  Reference: Lin et al.      1983, JCAM      22, p.1076 (50)
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qr_AUT = 0.0
+
+! #hy     IF                           (qw__CM(ikl,k).gt.epsn)      THEN
+            qw__OK = max(zer0,sign(un_1,qw__CM(ikl,k)  - epsn))
+!           qw__OK = 1.0 if             qw__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (CFraCM(ikl,k).gt.CFrMIN)    THEN
+            CFraOK = max(zer0,sign(un_1,CFraCM(ikl,k)  - CFrMIN))
+!           CFraOK = 1.0 if             CFraCM(ikl,k)  > CFrMIN
+!                  = 0.0 otherwise
+
+            qw__OK = qw__OK * CFraOK
+
+! #EW      IF(qw__OK.gt.eps6)                                       THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(08:08) = 'r'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+!  Sundqvist      (1988, Schlesinger, Reidel, p.  433) Autoconversion Scheme
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+           IF      (AUTO_w_Sundqv)                                  THEN
+            dwMesh = qw__OK *qw__CM(ikl,k)/qw_MAX                      &!
+     &                                /max(CFrMIN,CFraCM(ikl,k))        !
+            pr_AUT = qw__OK *qw__CM(ikl,k)*c_Sund                      &!
+     &                       *(1.-exp(-min(dwMesh*dwMesh,ea_MAX)))     &!
+     &                                /max(CFrMIN,CFraCM(ikl,k))        !
+
+!  Liou and Ou    (1989, JGR  94, p. 8599)             Autoconversion Scheme
+!  Boucher et al. (1995, JGR 100, p.16395)             ~~~~~~~~~~~~~~~~~~~~~
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
+           ELSE IF (AUTO_w_LiouOu)                                  THEN
+            CCNwCM(ikl,k) = 1.2e+8 ! ASTEX (Duynkerke&al.1995, JAS 52, p.2763)
+! #lo       CCNwCM(ikl,k) = 1.e+11 !       (polluted air, Rogers&Yau 89, p.90)
+      
+            qwCFra        = qw__CM(ikl,k) / CFraCM(ikl,k)
+            dwTUR4        = 4.5           * qwTURB        *    qwTURB
+            dwTURi        = qwCFra        * roa_DY(ikl,k)              &!
+     &                    * 6.0 /piNmbr   / CCNwCM(ikl,k) /exp(dwTUR4)
+            dwTUR3        =  exp(R_1by3*log(dwTURi))
+            dwTUR2        =                 dwTUR3        *    dwTUR3
+            dwTUR8        = 8.0           * qwTURB        *    qwTURB
+            dwTURc        =   exp(dwTUR8) * dwTUR2        *    dwTUR2
+            rwMEAN        = 0.5  *sqrt(sqrt(dwTURc))
+
+            th_AUT        =   max(zer0,sign(un_1,  rwMEAN -rwCrit))     ! Heaviside Function
+
+            pr_AUT        = qw__OK*CFraCM(ikl,k) *th_AUT*4.09d6*piNmbr &!
+     &                            *CCNwCM(ikl,k) *dwTURc*qwCFra
+
+!  Lin et al.(1983)                                    Autoconversion Scheme
+!  ~~~~~~~~~~~~~~~~                                    ~~~~~~~~~~~~~~~~~~~~~
+           ELSE IF (AUTO_w_LinAll)                                  THEN
+            dwMesh     = qw__OK * (qw__CM(ikl,k)-qw_MAX)
+            pr_AUT     = dwMesh *  dwMesh       *dwMesh/(cc1*dwMesh+1000.d0*cc2/dd0)
+           ELSE
+            STOP   'AutoConversion of Cloud droplets is not defined'
+           END IF
+
+            qr_AUT     = pr_AUT * dt__CM
+            qr_AUT     = min(qr_AUT,qw__CM(ikl,k))
+            qw__CM(ikl,k) = qw__CM(ikl,k) - qr_AUT
+            qr__CM(ikl,k) = qr__CM(ikl,k) + qr_AUT
+
+! #WQ       write(6,*) 'QrAut',qr_AUT,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wraut(k) = qr_AUT
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983) Autoconversion Sch'
+! #wH         debugH(36:70)   = 'eme                                '
+! #wH         proc_1          = 'Qraut g/kg'
+! #wH         procv1          =  qr_AUT
+! #wH         proc_2          = '          '
+! #wH         procv2          =  0.
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,06)   =  qr_AUT
+
+        END DO
+
+
+
+
+!===============================================================================                    AUTO-CONVERSION, SOLID
+!                                                                                                   ++++++++++++++++++++++
+!  Autoconversion (i.e., generation of precipitating particles), Ice --> Snow
+!  ==========================================================================
+
+!  Conversion from Cloud Ice Crystals to Snow Flakes
+!  Reference: Levkov et al.   1992, Contr.Atm.Phys. 65, p.41
+!  ---------------------------------------------------------
+
+        IF      (AUTO_i_Levkov)                                     THEN
+
+
+!  Depositional Growth: Ice Crystals  => Snow Flakes     (BDEPIS)
+!  Reference: Levkov et al.   1992, Contr.Atm.Phys. 65, p.41 (28)
+!  --------------------------------------------------------------
+
+         IF     (AUTO_i_LevkXX)                                     THEN
+
+          DO k=mz1_CM,mzp
+
+! #wH       qs_AUT = 0.0
+
+! #hy      IF                           (qi__CM(ikl,k).gt.epsn)     THEN
+            qi__OK = max(zer0, sign(un_1,qi__CM(ikl,k)  - epsn))
+!           qi__OK = 1.0 if              qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy      IF                           (CCNiCM(ikl,k).gt.1.e0)     THEN
+            CCNiOK = max(zer0, sign(un_1,CCNiCM(ikl,k)  - 1.e0))
+!           CCNiOK = 1.0 if              CCNiCM(ikl,k)  > 1.e0
+!                  = 0.0 otherwise
+
+            qi__OK = qi__OK * CCNiOK   * qi__CM(ikl,k)
+
+!  Pristine Ice Crystals Diameter
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            Di_Pri = 0.156 *exp(R_1by3*log(R_1000*roa_DY(ikl,k)        &! Pristine Ice Crystals Diameter
+     &                                 *max(epsn ,qi__CM(ikl,k))       &! Levkov et al. 1992, Contr.Atm.Phys. 65, (5) p.37
+     &                                 /max(un_1 ,CCNiCM(ikl,k))))      ! where 6/(pi*ro_I)**1/3 ~ 0.156
+
+!  Deposition Time Scale
+!  ~~~~~~~~~~~~~~~~~~~~~
+            RH_Ice = max(epsq, qv__DY(ikl,k))   / qsiEFF(ikl,k)
+
+            dtsaut = 0.125   *(qs__D0*qs__D0-Di_Pri*Di_Pri)            &!
+     &             *(0.702e12/(Ta__CM(ikl,k)*Ta__CM(ikl,k))            &! 0.702e12 ~ 0.701987755e12 = (2.8345e+6)**2/0.0248/461.5
+                                                                        !                              Ls_H2O    **2/Ka    /Rw
+     &              +1.0     /(2.36e-2      *roa_DY(ikl,k)             &! 2.36e-2                   =  2.36e-5             *1.e3
+     &               *max(epsq,qv__DY(ikl,k))*RH_Ice))                  !                              Dv
+
+!  Deposition
+!  ~~~~~~~~~~
+            qs_AUT =    dt__CM *qi__OK*(RH_Ice-1.)/dtsaut
+            qs_AUT =   min( qi__CM(ikl,k)  , qs_AUT)
+            qs_AUT =   max(-qs__CM(ikl,k)  , qs_AUT)
+            qi__CM(ikl,k) = qi__CM(ikl,k)  - qs_AUT
+            qs__CM(ikl,k) = qs__CM(ikl,k)  + qs_AUT
+
+! #hy      END IF
+! #hy      END IF
+
+!  Debug
+!  ~~~~~
+! #wH          debugH( 1:35)   = 'Lin et al.(1983) Depositional Growt'
+! #wH          debugH(36:70)   = 'h                                  '
+! #wH          proc_1          = 'QsAUT g/kg'
+! #wH          procv1          =  qs_AUT
+! #wH          proc_2          = '          '
+! #wH          procv2          =  0.
+! #wH          proc_3          = '          '
+! #wH          procv3          =  0.
+! #wH          proc_4          = '          '
+! #wH          procv4          =  0.
+! #wh          include 'CMiPhy_Debug.h'
+! #wH      IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))  &
+! #wH&         debugV(k,07)    =  qs_AUT
+
+          END DO
+
+         END IF
+
+
+!  Ice Crystals Aggregation           => Snow Flakes     (BAGRIS)                                   AUTO-CONVERSION, SOLID
+!  Reference: Levkov et al.   1992, Contr.Atm.Phys. 65, p.41 (31)                                   ++++++++++++++++++++++
+!  --------------------------------------------------------------
+
+          DO k=mz1_CM,mzp
+
+! #wH       qs_AUT = 0.0
+! #wH       dtsaut = 0.0
+
+! #hy      IF                          (qi__CM(ikl,k).gt.epsn)      THEN
+            qi__OK = max(zer0,sign(un_1,qi__CM(ikl,k)  - epsn))
+!           qi__OK = 1.0 if             qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy      IF                          (CCNiCM(ikl,k).gt.1.e0)      THEN
+            CCNiOK = max(zer0,sign(un_1,CCNiCM(ikl,k)  - 1.e0))
+!           CCNiOK = 1.0 if             CCNiCM(ikl,k)  > 1.e0
+!                  = 0.0 otherwise
+
+            qi__OK      =  qi__OK  * CCNiOK * qi__CM(ikl,k)
+
+! #EW       IF(qi__OK.gt.eps6)                                      THEN
+! #EW          mauxEW        =  mphyEW(ikl)
+! #EW          mauxEW(09:09) = 's'
+! #EW          mphyEW(ikl)   =  mauxEW
+! #EW       END IF
+
+!  Pristine Ice Crystals Diameter
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            Di_Pri = 0.156 *exp(R_1by3*log(R_1000*roa_DY(ikl,k)        &! Pristine Ice Crystals Diameter
+     &                                 *max(epsn, qi__CM(ikl,k))       &! Levkov et al. 1992, Contr. Atm. Phys. 65, (5) p.37
+     &                                 /max(un_1, CCNiCM(ikl,k))))      ! where [6/(pi*ro_I)]**1/3 ~ 0.156
+
+!  Time needed for Ice Crystals Diameter to reach Snow Diameter Threshold
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            c1saut =      max(epsn,qi__OK)    *roa_DY(ikl,k) *35.0     &!
+     &        *exp(R_1by3*log(roa_DY(ikl,mzp) /roa_DY(ikl,k)))          !
+
+            dtsaut =-6.d0*log(Di_Pri/qs__D0)  /c1saut                   !
+            dtsaut =      max(dt__CM,          dtsaut)                  ! qi fully used if dtsaut<dt__CM
+
+!  Time needed for Ice Crystals Diameter to reach Snow Diameter Threshold
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(ALTERNATE PARAMETERIZATION)~
+! #nt       dtsaut =-2.0 *(3.0*log(    Di_Pri                /qs__D0)  &!
+! #nt&                    +    log(max(qi__CM(ikl,k),epsn))) /c1saut    !
+! #nt       dtsaut = max(epsn,dtsaut)
+
+!  Aggregation
+!  ~~~~~~~~~~~
+            qs_AUT = dt__CM*qi__OK        / dtsaut
+            qs_AUT =   min( qi__CM(ikl,k) , qs_AUT)
+            qs_AUT =   max(-qs__CM(ikl,k) , qs_AUT)
+            qi__CM(ikl,k) = qi__CM(ikl,k) - qs_AUT
+            qs__CM(ikl,k) = qs__CM(ikl,k) + qs_AUT
+
+
+!  Decrease of Ice Crystals Number                       (BAGRII)
+!  Reference: Levkov et al.   1992, Contr.Atm.Phys. 65, p.41 (34)
+!  --------------------------------------------------------------
+
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) * exp(-0.5*c1saut*dt__CM)
+
+! #WQ       write(6,*) 'QsAut', qs_AUT,                                &!
+! #WQ&                 ' Qi'   ,  qi__CM(ikl,k),                       &!
+! #WQ&                 ' CcnI' ,CCNiCM(ikl,k),it_EXP,ikl,k              !
+! #WH       if (ikl.eq.ikl0CM(1))   wsaut(k) =   qs_AUT
+
+! #hy      END IF
+! #hy      END IF
+
+!  Debug
+!  ~~~~~
+! #wH          debugH( 1:35)   = 'Lin et al.(1983) Ice Crystals Aggre'
+! #wH          debugH(36:70)   = 'gation                             '
+! #wH          proc_1          = 'dtsaut sec'
+! #wH          procv1          =  dtsaut
+! #wH          proc_2          = 'QsAUT g/kg'
+! #wH          procv2          =  qs_AUT
+! #wH          proc_3          = '          '
+! #wH          procv3          =  0.
+! #wH          proc_4          = '          '
+! #wH          procv4          =  0.
+! #wh          include 'CMiPhy_Debug.h'
+! #wH      IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))  &
+! #wH&         debugV(k,07)   =  qs_AUT + debugV(k,07)
+
+          END DO
+
+
+!  Ice Crystals Autoconversion => Snow Flakes                                                       AUTO-CONVERSION, SOLID
+!  Reference: Lin et al.      1983, JCAM      22, p.1070 (21)                                       ++++++++++++++++++++++
+!             Lin et al.      1983, JCAM      22, p.1074 (38)
+!             Emde and Kahlig 1989, Ann.Geoph. 7, p. 408 (18)
+!  ----------------------------------------------------------
+
+        ELSE IF (AUTO_i_EmdeKa)                                     THEN
+
+          DO k=mz1_CM,mzp
+
+! #wH       qs_AUT      =  0.0
+! #wH       cnsaut      =  0.0
+
+! #hy      IF (qi__CM(ikl,k) .ge. qisMAX)                           THEN
+
+            ps_AUT   =      0.001d0*(qi__CM(ikl,k)-qisMAX)             &!
+     &                 *exp(0.025d0* Ta_dgC(ikl,k))
+            qs_AUT   =     ps_AUT  * dt__CM
+            qs_AUT   =  max(qs_AUT,  zer0         )
+            qs_AUT   =  min(qs_AUT,  qi__CM(ikl,k))
+            cnsaut   =      qs_AUT*  CCNiCM(ikl,k)                     &!
+     &                 /max(qisMAX , qi__CM(ikl,k))
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) - cnsaut
+            qi__CM(ikl,k) = qi__CM(ikl,k) - qs_AUT
+            qs__CM(ikl,k) = qs__CM(ikl,k) + qs_AUT
+! #WQ       write(6,*) 'QsAut',qs_AUT   ,it_EXP,ikl,k
+! #WH       IF (ikl.eq.ikl0CM(1)) wsaut(k)= qs_AUT
+
+! #EW       IF (qi__CM(ikl,k) .ge. qisMAX)                          THEN
+! #EW           mauxEW        =  mphyEW(ikl)
+! #EW           mauxEW(09:09) = 's'
+! #EW           mphyEW(ikl)   =  mauxEW
+! #EW       END IF
+
+! #hy      END IF
+
+!  Debug
+!  ~~~~~
+! #wH          debugH( 1:35)   = 'Emde and Kahlig  Ice Crystals Autoc'
+! #wH          debugH(36:70)   = 'onversion                          '
+! #wH          proc_1          = 'QsAUT g/kg'
+! #wH          procv1          =  qs_AUT
+! #wH          proc_2          = 'cnsaut/e15'
+! #wH          procv2          =  cnsaut*1.e-18
+! #wH          proc_3          = '          '
+! #wH          procv3          =  0.
+! #wH          proc_4          = '          '
+! #wH          procv4          =  0.
+! #wh          include 'CMiPhy_Debug.h'
+! #wH      IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))  &
+! #wH&         debugV(k,07)   =  qs_AUT
+
+          END DO
+
+
+!  Sundqvist      (1988, Schlesinger, Reidel, p.  433) Autoconversion Scheme                        AUTO-CONVERSION, SOLID
+!  -------------------------------------------------------------------------                        ++++++++++++++++++++++
+
+        ELSE IF (AUTO_i_Sundqv)                                     THEN
+
+          DO k=mz1_CM,mzp
+
+! #wH       qs_AUT = 0.0
+! #wH       cnsaut = 0.0
+
+! #hy      IF                          (qi__CM(ikl,k).gt.epsn)      THEN
+            qi__OK = max(zer0,sign(un_1,qi__CM(ikl,k)  - epsn))
+!           qi__OK = 1.0 if             qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+            dqiDUM = qi__OK *qi__CM(ikl,k)/qi0_DC                      &!
+! #mf&         /max( CFrMIN ,CFraCM(ikl,k))                            &!
+     &             + 0.                                                 !
+            ps_AUT = qi__OK *qi__CM(ikl,k)*c_Sund                      &!
+     &     *(1.-exp(-dqiDUM *dqiDUM))                                  &!
+! #mf&         *max( CFrMIN ,CFraCM(ikl,k))                            &!
+     &             + 0.                                                 !
+            qs_AUT =                        ps_AUT * dt__CM
+            qs_AUT =    min(qi__CM(ikl,k) , qs_AUT)
+            qs_AUT =    max(zer0          , qs_AUT)
+            cnsaut =        CCNiCM(ikl,k) * qs_AUT                     &!
+     &                 /max(qi__CM(ikl,k) , epsn)
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) - cnsaut
+            qi__CM(ikl,k) = qi__CM(ikl,k) - qs_AUT
+            qs__CM(ikl,k) = qs__CM(ikl,k) + qs_AUT
+
+! #hy      END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Sundqvist (1988) Ice Crystals Autoc'
+! #wH         debugH(36:70)   = 'onversion                          '
+! #wH         proc_1          = 'QsAUT g/kg'
+! #wH         procv1          =  qs_AUT
+! #wH         proc_2          = 'cnsaut/e15'
+! #wH         procv2          =  cnsaut*1.e-18
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,07)   =  qs_AUT
+
+          END DO
+        ELSE
+            STOP   'AutoConversion of Cloud crystals is not defined'
+        END IF
+
+
+
+
+!===============================================================================                    AUTO-CONVERSION, SOLID
+!                                                                                                   ++++++++++++++++++++++
+!  Autoconversion (i.e., generation of precipitating particles), Ice --> Graupels
+!  ==============================================================================
+
+! #qg   DO k=mz1_CM,mzp
+
+! #qg     IF (qi__CM(ikl,k) .ge. qigMAX)                              THEN
+
+! #qg       pgaut     = 0.001*(   qi__CM(ikl,k)-qigMAX)*exp(0.090*  Ta_dgC(ikl,k))
+! #qg       qgaut     =     pgaut * dt__CM
+! #qg       qgaut     = max(qgaut,zer0       )
+! #qg       qgaut     = min(qgaut,qi__CM(ikl,k))
+! #qg       qi__CM(ikl,k) = qi__CM(ikl,k) - qgaut
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) + qgaut
+
+! #qg     END IF
+
+! #qg   END DO
+
+
+
+
+!===============================================================================                    ACCRETION
+!                                                                                                   +++++++++
+!  Accretion Processes (i.e. increase in size of precipitating particles
+!  ====================      through a collision-coalescence process)===
+!                      ==============================================
+
+!  Accretion of Cloud Droplets by Rain                                                              ACCRETION,  o > .
+!  Reference: Lin et al.      1983, JCAM      22, p.1076 (51)                                       +++++++++++++++++
+!             Emde and Kahlig 1989, Ann.Geoph. 7, p. 407 (10)
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qr_ACW = 0.0
+
+! #hy     IF                           (qw__CM(ikl,k).gt.epsn)      THEN
+            qw__OK = max(zer0,sign(un_1,qw__CM(ikl,k)  - epsn))
+!           qw__OK = 1.0 if             qw__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (qr___0(ikl,k).gt.epsn)      THEN
+            qr0_OK = max(zer0,sign(un_1,qr___0(ikl,k)  - epsn))
+!           qr0_OK = 1.0 if             qr___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+            Flag_qr_ACW = qw__OK * qr0_OK
+
+! #EW      IF(Flag_qr_ACW.gt.eps6)                                  THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(10:10) = 'r'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            pr_ACW = 3104.28d0  * n0___r * sqrrro(ikl,k)               &! 3104.28 = a pi Gamma[3+b] / 4
+     &        *qw__CM(ikl,k)/exp(3.8d0*log(lamdaR(ikl,k)))              !   where   a = 842. and b  = 0.8
+            qr_ACW =        pr_ACW*dt__CM *Flag_qr_ACW
+            qr_ACW =    min(qr_ACW,qw__CM(ikl,k))
+
+            qw__CM(ikl,k) = qw__CM(ikl,k) -qr_ACW
+            qr__CM(ikl,k) = qr__CM(ikl,k) +qr_ACW
+
+! #WQ       write(6,*) 'Qracw',qr_ACW,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wracw(k) =    qr_ACW
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Accretion of Clou'
+! #wH         debugH(36:70)   = 'd Droplets by Rain                 '
+! #wH         proc_1          = 'Qracw g/kg'
+! #wH         procv1          =  qr_ACW
+! #wH         proc_2          = '          '
+! #wH         procv2          =  0.
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,08)   =  qr_ACW
+
+        END DO
+
+
+!  Accretion of Cloud Droplets by Snow Flakes                                                       ACCRETION, * > .
+!  Reference: Lin et al.      1983, JCAM      22, p.1070 (24)                                       ++++++++++++++++
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #hy     IF                           (qw__CM(ikl,k).gt.epsn)      THEN
+            qw__OK = max(zer0,sign(un_1,qw__CM(ikl,k)  - epsn))
+!           qw__OK = 1.0 if             qw__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (qs___0(ikl,k).gt.epsn)      THEN
+            qs0_OK = max(zer0,sign(un_1,qs___0(ikl,k)  - epsn))
+!           qs0_OK = 1.0 if             qs___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+            Flag_qs_ACW = qw__OK * qs0_OK
+
+! #EW      IF(Flag_qs_ACW.gt.eps6)                                  THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(11:11) = 's'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+! ps_ACW is taken into account in the snow melting process (if positive temperatures)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+           IF      (graupel_shape)                                  THEN! Graupellike Snow Flakes of Hexagonal Type
+            ps_ACW(ikl,k)= 9.682d0 * n0___s * sqrrro(ikl,k)            &! 9.682 = c pi  Gamma[3+d] / 4
+     &     *qw__CM(ikl,k)     /exp(3.25d0*log(lamdaS(ikl,k)))           ! where   c = 4.836 and d = 0.25
+                                                                        ! Ref.: Locatelli and Hobbs, 1974, JGR: table 1 p.2188
+
+           ELSE IF (planes__shape)                                  THEN! Unrimed Side Plane
+            ps_ACW(ikl,k)= 3517.   * n0___s * sqrrro(ikl,k)            &! 3517. = c pi  Gamma[3+d] / 4
+     &     *qw__CM(ikl,k)     /exp(3.99d0*log(lamdaS(ikl,k)))           ! where   c = 755.9 and d = 0.99
+
+           ELSE IF (aggrega_shape)                                  THEN! Aggregates of unrimed radiating assemblages
+            ps_ACW(ikl,k)= 27.73   * n0___s * sqrrro(ikl,k)            &! 27.73 = c pi  Gamma[3+d] / 4
+     &     *qw__CM(ikl,k)     /exp(3.41d0*log(lamdaS(ikl,k)))           ! where   c = 11.718and d = 0.41
+
+           ELSE
+            STOP   'Snow Particles Shape             is not defined'
+           END IF
+
+            qs_ACW =     dt__CM*ps_ACW(ikl,k)*Flag_qs_ACW
+            qs_ACW = min(qs_ACW,qw__CM(ikl,k))
+
+            Flag_Ta_Pos = max(zer0,sign(un_1,Ta__CM(ikl,k) - Tf_Sno))
+!           Flag_Ta_Pos = 1.0 if             Ta__CM(ikl,k) > Tf_Sno
+!                       = 0.0 otherwise
+
+            qw__CM(ikl,k) = qw__CM(ikl,k) -                       qs_ACW
+            qr__CM(ikl,k) = qr__CM(ikl,k) +        Flag_Ta_Pos  * qs_ACW
+            Flag_qs_ACW   =                (1.d0 - Flag_Ta_Pos) * qs_ACW
+            qs__CM(ikl,k) = qs__CM(ikl,k) +                  Flag_qs_ACW
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lc_Cpd         * Flag_qs_ACW
+!           Negative Temperatures => Latent Heat is released by Freezing
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'Qsacw',qs_ACW,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wsacw(k) =    qs_ACW
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Accretion of Clou'
+! #wH         debugH(36:70)   = 'd Droplets by Snow Particles       '
+! #wH         proc_1          = 'Qsacw g/kg'
+! #wH         procv1          =  Flag_qs_ACW
+! #wH         proc_3          = '          '
+! #wH         procv2          =  0.
+! #wH         proc_2          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,09)   =  Flag_qs_ACW
+
+        END DO
+
+
+!  Accretion of Cloud Droplets by Graupels (Dry Growth Mode)                                        ACCRETION, # > . | #
+!  Reference: Lin et al.      1983, JCAM      22, p.1075 (40)                                       ++++++++++++++++++++
+!             Emde and Kahlig 1989, Ann.Geoph. 7, p. 407 (~20)
+!  -----------------------------------------------------------
+
+! #qg   DO k=mz1_CM,mzp
+
+! #qg     IF                            (qw__CM(ikl,k).gt.epsn)     THEN
+! #qg       WbyG_w = max(zer0, sign(un_1,qw__CM(ikl,k)  - epsn))
+!           WbyG_w = 1.0 if              qw__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg     IF                            (qg__CM(ikl,k).gt.epsn)     THEN
+! #qg       WbyG_g = max(zer0, sign(un_1,qg__CM(ikl,k)  - epsn))
+!           WbyG_g = 1.0 if              qg__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg       WbyGOK = WbyG_w * WbyG_g
+
+! #qg     IF                            (Ta__CM(ikl,k).lt.Tf_Sno)   THEN
+! #qg       Fact_G = max(zer0,-sign(un_1,Ta__CM(ikl,k)  - Tf_Sno))
+!           Fact_G = 1.0 if              Ta__CM(ikl,k)  > Tf_Sno
+!                  = 0.0 otherwise
+
+! #qg       pgacw  = PATATRAS
+! #qg       qgacw  =     pgacw * dt__CM * WbyGOK
+! #qg       qgacw  = min(qgacw,qw__CM(ikl,k))
+
+! #qg       qw__CM(ikl,k) = qw__CM(ikl,k) -       qgacw
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) +       qgacw
+! #qg       Ta__CM(ikl,k) = Ta__CM(ikl,k) +Lc_Cpd  gacw
+
+! #qg     END IF
+! #qg     END IF
+! #qg     END IF
+
+! #qg   END DO
+
+
+
+
+!  Accretion of Cloud Ice      by Snow Particles                                                    ACCRETION, * > /
+!  Reference: Lin et al.      1983, JCAM      22, p.1070 (22)                                       ++++++++++++++++
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qs_ACI = 0.0 
+! #wH       CNsACI = 0.0
+
+! #hy     IF                           (qi__CM(ikl,k).gt.epsn)      THEN
+            qi__OK = max(zer0,sign(un_1,qi__CM(ikl,k)  - epsn))
+!           qi__OK = 1.0 if             qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (qs___0(ikl,k).gt.epsn)      THEN
+            qs0_OK = max(zer0,sign(un_1,qs___0(ikl,k)  - epsn))
+!           qs0_OK = 1.0 if             qs___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                                 (Ta__CM(ikl,k).lt.Tf_Sno) THEN
+            Flag_Ta_Neg = max(zer0,-sign(un_1,Ta__CM(ikl,k)  - Tf_Sno))
+!           Flag_Ta_Neg = 1.0 if              Ta__CM(ikl,k)  < Tf_Sno
+!                       = 0.0 otherwise
+
+            Flag_qs_ACI = qi__OK * qs0_OK * Flag_Ta_Neg
+
+! #EW      IF(Flag_qs_ACI.gt.eps6)                                  THEN
+! #EW       mauxEW        =  mphyEW(ikl)
+! #EW       mauxEW(12:12) = 's'
+! #EW       mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            effACI = exp(0.025d0*Ta_dgC(ikl,k))                         ! Collection Efficiency
+                                                                        ! Lin et al. 1983 JCAM 22 p.1070 (23)
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+! ps_ACI
+! ~~~~~~
+           IF      (graupel_shape)                                  THEN
+            ps_ACI = effACI * 9.682d0 * n0___s * sqrrro(ikl,k)         &
+     &     *qi__CM(ikl,k)        /exp(3.25d0*log(lamdaS(ikl,k)))
+
+           ELSE IF (planes__shape)                                  THEN
+            ps_ACI = effACI * 3517.d0 * n0___s * sqrrro(ikl,k)         &
+     &     *qi__CM(ikl,k)        /exp(3.99d0*log(lamdaS(ikl,k)))
+
+           ELSE IF (aggrega_shape)                                  THEN
+            ps_ACI = effACI * 27.73d0 * n0___s * sqrrro(ikl,k)         &
+     &     *qi__CM(ikl,k)        /exp(3.41d0*log(lamdaS(ikl,k)))
+           ELSE
+            STOP   'Snow Particles Shape             is not defined'
+           END IF
+
+            qs_ACI =     ps_ACI * dt__CM * Flag_qs_ACI
+            qs_ACI = min(qs_ACI,qi__CM(ikl,k))
+
+            CNsACI        = CCNiCM(ikl,k) * qs_ACI                     &!
+     &                 /max(qi__CM(ikl,k) , epsn)
+            CCNiCM(ikl,k) = CCNiCM(ikl,k) - CNsACI
+            qi__CM(ikl,k) = qi__CM(ikl,k) - qs_ACI
+            qs__CM(ikl,k) = qs__CM(ikl,k) + qs_ACI
+
+! #WQ       write(6,*) 'Qsaci',qs_ACI,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1))  wsaci(k) =   qs_ACI
+
+! #hy     END IF
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Accretion of Clou'
+! #wH         debugH(36:70)   = 'd Ice by Snow Particles            '
+! #wH         proc_1          = 'Qsaci g/kg'
+! #wH         procv1          =  qs_ACI
+! #wH         proc_2          = 'CNsaci/e15'
+! #wH         procv2          =  CNsACI*1.e-18
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,10)   =  qs_ACI
+
+        END DO
+
+
+
+
+!  Accretion of Cloud Ice      by Graupel (Cloud Ice Sink)                                          ACCRETION, # > /
+!  Reference: Lin et al.      1983, JCAM      22, p.1075 (41)                                       ++++++++++++++++
+!             Emde and Kahlig 1989, Ann.Geoph. 7, p. 407 (~19)
+!  -----------------------------------------------------------
+
+! #qg   DO k=mz1_CM,mzp
+
+! #qg     IF                            (qi__CM(ikl,k).gt.epsn)     THEN
+! #qg       CbyG_c = max(zer0, sign(un_1,qi__CM(ikl,k)  - epsn))
+!           CbyG_c = 1.0 if              qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg     IF                            (qg__CM(ikl,k).gt.epsn)     THEN
+! #qg       CbyG_g = max(zer0, sign(un_1,qg__CM(ikl,k)  - epsn))
+!           CbyG_g = 1.0 if              qg__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg     IF                            (Ta__CM(ikl,k).lt.Tf_Sno)   THEN
+! #qg       Fact_G = max(zer0,-sign(un_1,Ta__CM(ikl,k)  - Tf_Sno))
+!           Fact_G = 1.0 if              Ta__CM(ikl,k)  < Tf_Sno
+!                  = 0.0 otherwise
+
+! #qg       CbyGOK = CbyG_c * CbyG_g * Fact_G
+
+! #qg       pgaci = PATATRAS
+! #qg       qgaci =     pgaci *dt__CM *CbyGOK
+! #qg       qgaci = min(qgaci,qi__CM(ikl,k))
+
+! #qg       qi__CM(ikl,k) = qi__CM(ikl,k) - qgaci
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) + qgaci
+
+! #qg     END IF
+! #qg     END IF
+! #qg     END IF
+
+! #qg   END DO
+
+
+!  Accretion of Cloud Ice      by Rain (Cloud Ice Sink)                                             ACCRETION, o > / | o
+!  Reference: Lin et al.      1983, JCAM      22, p.1071 (25)                                       ++++++++++++++++++++
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qr_ACI = 0.0 
+! #wH       qi_ACR = 0.0 
+
+! #hy     IF                           (qi__CM(ikl,k).gt.epsn)      THEN
+            qi__OK = max(zer0,sign(un_1,qi__CM(ikl,k)  - epsn))
+!           qi__OK = 1.0 if             qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (qr___0(ikl,k).gt.epsn)      THEN
+            qr0_OK = max(zer0,sign(un_1,qr___0(ikl,k)  - epsn))
+!           qr0_OK = 1.0 if             qr___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                                 (Ta__CM(ikl,k).lt.Tf_Sno)  THEN
+            Flag_Ta_Neg = max(zer0,-sign(un_1,Ta__CM(ikl,k)  - Tf_Sno))
+!           Flag_Ta_Neg = 1.0 if              Ta__CM(ikl,k)  < Tf_Sno
+!                       = 0.0 otherwise
+
+            Flag_qr_ACI = qi__OK * qr0_OK * Flag_Ta_Neg
+
+! #EW      IF(Flag_qr_ACI.gt.eps6)                                  THEN
+! #EW            mauxEW        =  mphyEW(ikl)
+! #EW        IF (mauxEW(13:13).eq.'s'.or.mauxEW(13:13).eq.'A')      THEN
+! #EW            mauxEW(13:13) =  'A'
+! #EW        ELSE
+! #EW            mauxEW(13:13) =  'r'
+! #EW        END IF
+! #EW            mphyEW(ikl)  =  mauxEW
+! #EW      END IF
+
+            pr_ACI = 3104.28d0  * n0___r * sqrrro(ikl,k)               &!
+     &     *qi__CM(ikl,k)   /exp(3.8d0*log(lamdaR(ikl,k)))
+            qr_ACI =     pr_ACI*dt__CM   * Flag_qr_ACI
+            qr_ACI = min(qr_ACI,qi__CM(ikl,k))
+            CNrACI =            CCNiCM(ikl,k)* qr_ACI/max(qi__CM(ikl,k),epsn)
+            CCNiCM(ikl,k) =     CCNiCM(ikl,k)- CNrACI
+            qi__CM(ikl,k) =     qi__CM(ikl,k)- qr_ACI
+
+! #qg      IF(qr__CM(ikl,k) .gt. 1.e-4 )                           THEN
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) + qr_ACI
+!           CAUTION : Graupels Formation is not taken into account
+!                     This could be a reasonable assumption for Antarctica
+
+! #qg      ELSE
+            qs__CM(ikl,k) = qs__CM(ikl,k) + qr_ACI
+! #qg      END IF
+
+! #WQ       write(6,*) 'Qraci',qr_ACI,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1))  wraci(k) =   qr_ACI
+
+
+!  Accretion of Rain           by Cloud Ice (Rain Sink)                                             ACCRETION, / > o | *
+!  Reference: Lin et al.      1983, JCAM      22, p.1071 (26)                                       ++++++++++++++++++++
+!  ----------------------------------------------------------
+
+! #EW      IF  (Flag_qr_ACI.gt.eps6)                                THEN
+! #EW           mauxEW        =  mphyEW(ikl)
+! #EW       IF (mauxEW(13:13).eq.'r'.or.mauxEW(13:13).eq.'A')       THEN
+! #EW           mauxEW(13:13) =  'A'
+! #EW       ELSE
+! #EW           mauxEW(13:13) =  's'
+! #EW       END IF
+! #EW           mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            pi_ACR =     4.1d20 * n0___r * sqrrro(ikl,k)               &! 4.1e20 = a pi**2 rhow/mi Gamma[6+b] / 24
+     &     *qi__CM(ikl,k)   /exp(6.8d0*log(lamdaR(ikl,k)))              ! where    a=842., rhow=1000, mi=4.19e-13
+                                                                        !                                  b = 0.8
+                                                                        ! Lin et al, 1983, JAM,p1071: mi:Ice Crystal Mass
+            qi_ACR =        pi_ACR*dt__CM * Flag_qr_ACI
+            qi_ACR =    min(qi_ACR,qr__CM(ikl,k))
+            qr__CM(ikl,k) = qr__CM(ikl,k) -          qi_ACR
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lc_Cpd  *qi_ACR
+
+! #qg      IF (qr__CM(ikl,k) .gt. 1.e-4 )                           THEN
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) +          qi_ACR
+!           CAUTION : Graupels Formation is not taken into account
+!                     This could be a reasonable assumption for Antarctica
+
+! #qg      ELSE
+            qs__CM(ikl,k) = qs__CM(ikl,k) +          qi_ACR
+! #qg      END IF
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ         write(6,*) 'Qiacr',qi_ACR,it_EXP,ikl,k
+! #WH         if (ikl.eq.ikl0CM(1)) wiacr(k) =    qi_ACR
+
+! #hy     END IF
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Accretion of Clou'
+! #wH         debugH(36:70)   = 'd Ice by Rain                      '
+! #wH         proc_1          = 'Qraci g/kg'
+! #wH         procv1          =  qr_ACI
+! #wH         proc_2          = 'qi_ACR g/kg'
+! #wH         procv2          =  qi_ACR
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,11)   =  qi_ACR
+
+        END DO
+
+
+
+
+!  Accretion of Rain           by Snow Flakes                                                       ACCRETION o > *, * > o
+!  Accretion of Snow Flakes    by Rain                                                              ++++++++++++++++++++++
+!  Reference: Lin et al.      1983, JCAM      22, p.1071 (27)
+!             Lin et al.      1983, JCAM      22, p.1071 (28)
+!             Emde and Kahlig 1989, Ann.Geoph. 7, p. 408 (~21)
+!  -----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+            ps_ACR(ikl,k) =   0.0
+            qs_ACR        =   0.0
+            qs_ACR_S      =   0.0 
+            qs_ACR_R      =   0.0 
+
+! #hy     IF                           (qr___0(ikl,k).gt.epsn)      THEN
+            qr0_OK = max(zer0,sign(un_1,qr___0(ikl,k)  - epsn))
+!           qr0_OK = 1.0 if             qr___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (qs___0(ikl,k).gt.epsn)      THEN
+            qs0_OK = max(zer0,sign(un_1,qs___0(ikl,k)  - epsn))
+!           qs0_OK = 1.0 if             qs___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+            Flag_qr_ACS = qr0_OK * qs0_OK
+
+! #EW      IF(Flag_qr_ACI.gt.eps6)                                  THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(14:14) = 'A'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+!  Accretion of Rain by Snow --> Snow           | lamdaR : lambda_r
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           | lamdaS : lambda_s
+            coeACS=(5.0d0/(lamdaS(ikl,k)*lamdaS(ikl,k)*lamdaR(ikl,k))  &!
+     &             +2.0d0/(lamdaS(ikl,k)*lamdaR(ikl,k)*lamdaR(ikl,k))  &!
+     &             +0.5d0/(lamdaR(ikl,k)*lamdaR(ikl,k)*lamdaR(ikl,k))) &!
+     &     /(lamdaS(ikl,k)*lamdaS(ikl,k)*lamdaS(ikl,k)*lamdaS(ikl,k))   !
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12 *min(0.,Ta_dgC(ikl,k))))
+
+            pr_ACS = 986.96d-3*(n0___r*n0___s/roa_DY(ikl,k))           &!  986.96: pi**2 * rhos
+     &                    * abs(FallVr(ikl,k)-FallVs(ikl,k))*coeACS     ! (snow density assumed equal to  100 kg/m3)
+            qr_ACS =            pr_ACS       *dt__CM  * Flag_qr_ACS
+            qr_ACS =        min(qr_ACS,       qr__CM(ikl,k))
+
+! #WQ       write(6,*) 'Qracs',qr_ACS,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1))  wracs(k) =   qr_ACS
+
+!  Accretion of Snow by Rain --> Rain
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            qr0_OK = max(zer0,sign(un_1,qr___0(ikl,k)  - 1.e-4))
+!           qr0_OK = 1.0 if             qr___0(ikl,k)  > 1.e-4
+!                  = 0.0 otherwise
+
+            qs0_OK = max(zer0,sign(un_1,qs___0(ikl,k)  - 1.e-4))
+!           qs0_OK = 1.0 if             qs___0(ikl,k)  > 1.e-4
+!                  = 0.0 otherwise
+
+            Flag_qs_ACR      =   max(qr0_OK,qs0_OK)
+
+! #hy      IF (Flag_qs_ACR.gt.eps6)                                 THEN
+            coeACR=(5.0d0/(lamdaR(ikl,k)*lamdaR(ikl,k)*lamdaS(ikl,k))  &
+     &             +2.0d0/(lamdaR(ikl,k)*lamdaS(ikl,k)*lamdaS(ikl,k))  &
+     &             +0.5d0/(lamdaS(ikl,k)*lamdaS(ikl,k)*lamdaS(ikl,k))) &
+     &    /(lamdaR(ikl,k) *lamdaR(ikl,k)*lamdaR(ikl,k)*lamdaR(ikl,k))
+
+            ps_ACR(ikl,k)=9869.6d-3*(n0___r*n0___s/roa_DY(ikl,k))      &!  9869.6: pi**2 * rhow
+     &                         * abs(FallVr(ikl,k)-FallVs(ikl,k))*coeACR! (water   density assumed equal to 1000 kg/m3)
+            qs_ACR =     ps_ACR(ikl,k)*dt__CM *Flag_qr_ACS  *Flag_qs_ACR
+            qs_ACR = min(qs_ACR,qs__CM(ikl,k))
+
+! #WQ       write(6,*) 'Qsacr',qs_ACR,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wsacr(k) =    qs_ACR
+! #hy      ELSE
+! #hy       ps_ACR(ikl,k) =  0.d0
+! #hy       qs_ACR        =  0.d0
+! #hy      END IF
+
+            Flag_Ta_Neg = max(zer0,-sign(un_1,Ta__CM(ikl,k)  - Tf_Sno))
+!           Flag_Ta_Neg = 1.0 if              Ta__CM(ikl,k)  < Tf_Sno
+!                       = 0.0 otherwise
+
+            qr_ACS_S      =                 qr_ACS *      Flag_Ta_Neg
+            qs_ACR_R      =                 qs_ACR *(1.d0-Flag_Ta_Neg)
+            qr__CM(ikl,k) = qr__CM(ikl,k) - qr_ACS_S
+! #qg       IF (qr___0(ikl,k).lt.1.e-4 .and. qs___0(ikl,k).lt.1.e-4)THEN
+!              CAUTION  : Graupel Formation is not taken into Account
+                qs__CM(ikl,k)  = qs__CM(ikl,k) + qr_ACS_S
+! #qg       ELSE²
+! #qg           qs__CM(ikl,k)  = qs__CM(ikl,k) - qr_ACS_S
+! #qg           qg__CM(ikl,k)  = qg__CM(ikl,k) + qs_ACR_S + qr_ACS_S
+! #qg       REND IF
+                Ta__CM(ikl,k)  = Ta__CM(ikl,k) + qs_ACR_S * Lc_Cpd
+
+                qr__CM(ikl,k)  = qr__CM(ikl,k) + qs_ACR_R
+                qs__CM(ikl,k)  = qs__CM(ikl,k) - qs_ACR_R
+                Ta__CM(ikl,k)  = Ta__CM(ikl,k) - qs_ACR_R * Lc_Cpd
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Accretion of Snow'
+! #wH         debugH(36:70)   = '(Rain) by Rain(Snow)               '
+! #wH         proc_1          = 'Qracs g/kg'
+! #wH         procv1          =  qs_ACR_S
+! #wH         proc_2          = 'Qsacr g/kg'
+! #wH         procv2          =  qs_ACR_R
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,12)   =  qs_ACR_S - qs_ACR_R
+
+        END DO
+
+
+
+
+!  Accretion of Snow           by Graupels                                                          ACCRETION, # > *
+!  Reference: Lin et al.      1983, JCAM      22, p.1071 (29)                                       ++++++++++++++++
+!  ----------------------------------------------------------
+
+! #qg   DO k=mz1_CM,mzp
+
+! #qg     IF                           (qg___0(ikl,k).gt.epsn)      THEN
+! #qg       SbyG_g = max(zer0,sign(un_1,qg___0(ikl,k)  - epsn))
+!           SbyG_g = 1.0 if             qg___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg     IF                           (qs___0(ikl,k).gt.epsn)      THEN
+! #qg       SbyG_s = max(zer0,sign(un_1,qs___0(ikl,k)  - epsn))
+!           SbyG_s = 1.0 if             qs___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg       SbyGOK = SbyG_g *  SbyG_s
+! #qg       effACS = exp(0.090*Ta_dgC(ikl,k))                          &! Collection Efficiency
+!                                                                       ! Lin et al. 1983 JCAM 22 p.1072 (30)
+
+! #qg       flg=exp(-6.0d0*log(lamdaS(ikl,k))                          &!
+! #qg&         *(5.0/lamdaG(ikl,k)                                     &!
+! #qg&          +2.0*lamdaS(ikl,k)/(lamdaG(ikl,k)*lamdaG(ikl,k))       &!
+! #qg&          +0.5*lamdaS(ikl,k)* lamdaS(ikl,k)                      &!
+! #qg&               /exp(3.0d0*log(lamdaG(ikl,k))))                    !
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+! #qg       pgacs  = 986.96d-3*(n0___g*n0___s/roa_DY(ikl,k))           &! 986.96: pi**2 * rhog
+! #qg&                    * abs(FallVg(ikl,k)-FallVs(ikl,k))*flg*effACS !(graupel densitity assumed equal to snow density)
+! #qg       qgacs  =     pgacs*dt__CM      * SbyGOK
+! #qg       qgacs  = min(qgacs,qs__CM(ikl,k))
+! #qg       qg__CM(ikl,k)  = qg__CM(ikl,k) + qgacs
+! #qg       qs__CM(ikl,k)  = qs__CM(ikl,k) - qgacs
+
+! #qg     END IF
+! #qg     END IF
+
+! #qg   END DO
+
+
+!  Accretion of Rain           by Graupels (Dry Growth Mode)                                        ACCRETION, # > o
+!  Reference: Lin et al.      1983, JCAM      22, p.1075 (42)                                       ++++++++++++++++
+!  ----------------------------------------------------------
+
+! #qg   DO k=mz1_CM,mzp
+
+! #qg     IF                           (qg___0(ikl,k).gt.epsn)      THEN
+! #qg       RbyG_g = max(zer0,sign(un_1,qg___0(ikl,k)  - epsn))
+!           RbyG_g = 1.0 if             qg___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg     IF                           (qr___0(ikl,k).gt.epsn)      THEN
+! #qg       RbyG_r = max(zer0,sign(un_1,qr___0(ikl,k)  - epsn))
+!           RbyG_r = 1.0 if             qr___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #qg     IF                            (Ta__CM(ikl,k).lt.Tf_Sno)   THEN
+! #qg       Fact_G = max(zer0,-sign(un_1,Ta__CM(ikl,k)  - Tf_Sno))
+!           Fact_G = 1.0 if              Ta__CM(ikl,k)  < Tf_Sno
+!                  = 0.0 otherwise
+
+! #qg       RbyGOK = RbyG_g * RbyG_s * Fact_G
+
+! #qg       flg=exp(-6.0d0*log(lamdaS(ikl,k))                          &!
+! #qg&         *(5.0/lamdaG(ikl,k)                                     &!
+! #qg&          +2.0*lamdaS(ikl,k)/(lamdaG(ikl,k)*lamdaG(ikl,k))       &!
+! #qg&          +0.5*lamdaS(ikl,k)* lamdaS(ikl,k)                      &!
+! #qg&               /exp(3.0d0*log(lamdaG(ikl,k))))                    !
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+! #qg       pgacr  = 986.96d-3*(n0___g*n0___s/roa_DY(ikl,k))           &!
+! #qg&                    * abs(FallVg(ikl,k)-FallVr(ikl,k))*flg
+! #qg       qgacr  = pgacr    * dt__CM       *RbyGOK
+! #qg       qgacr  = min(qgacr,qr__CM(ikl,k))
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) +        qgacr
+! #qg       qr__CM(ikl,k) = qr__CM(ikl,k) -        qgacr
+! #qg       Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lc_Cpd*qgacr
+
+! #qg     END IF
+! #qg     END IF
+! #qg     END IF
+
+! #qg   END DO
+
+
+!  Graupels Wet Growth Mode
+!  Reference: Lin et al.      1983, JCAM      22, p.1075 (43)
+!  ----------------------------------------------------------
+
+! #qg   ! TO BE ADDED !
+
+
+
+
+!  Microphysical Processes affecting     Precipitating Cloud Particles
+!  ===================================================================
+
+
+!  Rain Drops Evaporation                                                                           RAIN, EVAPORATION
+!  Reference: Lin et al.      1983, JCAM      22, p.1077 (52)                                       +++++++++++++++++
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qr_EVP = 0.0
+
+! #hy     IF                           (qr___0(ikl,k).gt.epsn)      THEN
+            qr0_OK = max(zer0,sign(un_1,qr___0(ikl,k)  - epsn))
+!           qr0_OK = 1.0 if             qr___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #EW      IF(qr0_OK.gt.eps6)                                       THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(15:15) = 'v'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            RH_Liq = qv__DY(ikl,k)/(RHcrit*qvswCM(ikl,k))
+!           RH_Liq : grid scale saturation humidity
+
+! #hy     IF                                 (RH_Liq.lt.un_1)       THEN
+            Flag_DryAir = max(zer0,-sign(un_1,RH_Liq  - un_1))
+!           Flag_DryAir = 1.0 if              RH_Liq  < un_1
+!                       = 0.0 otherwise
+
+            Flag_qr_EVP = qr0_OK * Flag_DryAir
+
+            lr_NUM = 0.78d0  /(lamdaR(ikl,k) *lamdaR(ikl,k))           &!
+     &          + 3940.d0    *           sqrt(sqrrro(ikl,k))           &! 3940.: 0.31 Sc**(1/3) *(a/nu)**(1/2) * Gamma[(b+5)/2]
+     &                       /exp(2.9d0  *log(lamdaR(ikl,k)))           ! where       Sc=0.8(Schm.) nu=1.5e-5 (Air Kinematic Viscosity)
+            lr_DEN = 5.423d11/(Ta__CM(ikl,k) *Ta__CM(ikl,k))           &! 5.423e11 = [Lv=2500000J/kg] * Lv / [kT=0.025W/m/K] / [Rv=461.J/kg/K]
+     &       + 1.d0/(1.875d-2* roa_DY(ikl,k) *qvswCM(ikl,k))            !                                     kT:  Air Thermal Conductivity
+
+            pr_EVP = 2. *piNmbr*(1.d0 -RH_Liq)*n0___r*lr_NUM/lr_DEN
+            qr_EVP =     pr_EVP*       dt__CM
+            qr_EVP = min(qr_EVP,       qr__CM(ikl,k))
+
+            qr_EVP = min(qr_EVP,RHcrit*qvswCM(ikl,k) -qv__DY(ikl,k))
+!           supersaturation is not allowed to occur
+
+            qr_EVP = max(qr_EVP,zer0)       *         Flag_qr_EVP
+!           condensation    is not allowed to occur
+
+            qr__CM(ikl,k) = qr__CM(ikl,k) -           qr_EVP
+            qwd_CM(ikl,k) = qwd_CM(ikl,k) -           qr_EVP
+            qv__DY(ikl,k) = qv__DY(ikl,k) +           qr_EVP
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) - Lv_Cpd   *qr_EVP
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'Qrevp',qr_EVP,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wrevp(k) =    qr_EVP
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Rain Drops Evapor'
+! #wH         debugH(36:70)   = 'ation                              '
+! #wH         proc_1          = 'Qrevp g/kg'
+! #wH         procv1          =  qr_EVP
+! #wH         proc_2          = 'R.Hum  [%]'
+! #wH         procv2          =  RH_Liq*0.1
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,13)    = -qr_EVP
+
+        END DO
+
+
+!  (Deposition on) Snow Flakes (Sublimation)                                                        SNOW, (SUBLI)/(DEPOSI)TION
+!   Reference: Lin et al.      1983, JCAM      22, p.1072 (31)                                      ++++++++++++++++++++++++++
+!   ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qs_SUB = 0.0
+
+! #hy     IF                           (qs___0(ikl,k).gt.epsn)      THEN
+            qs0_OK = max(zer0,sign(un_1,qs___0(ikl,k)  - epsn))
+!           qs0_OK = 1.0 if             qs___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #EW      IF(qs0_OK.gt.eps6)                                       THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(16:16) = 'V'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            RH_ICE =           qv__DY(ikl,k)/qsiEFF(ikl,k)
+
+            ls_NUM = 0.78d0  /(lamdaS(ikl,k)*lamdaS(ikl,k))            &!
+     &             + 238.d0  *          sqrt(sqrrro(ikl,k))            &! 238.: 0.31 Sc**(1/3) *(c/nu)**(1/2) * Gamma[(d+5)/2]
+     &                      /exp(2.625d0*log(lamdaS(ikl,k)))            ! where      Sc=0.8(Schm.) nu=1.5e-5 (Air Kinematic Viscosity)
+            ls_DEN = 6.959d11/(Ta__CM(ikl,k)*Ta__CM(ikl,k))            &! 6.959e11 = [Ls=2833600J/kg]*Ls /[kT=0.025W/m/K] /[Rv=461.J/kg/K]
+     &        + 1.d0/(1.875d-2*roa_DY(ikl,k)*qsiEFF(ikl,k))             !                                  kT: Air Thermal   Conductivity
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+            ps_SUB = 2*piNmbr*(1.d0-RH_ICE)*n0___s*ls_NUM              &! 
+     &                       /(1.d3*roa_DY(ikl,k)*ls_DEN)
+            qs_SUB = ps_SUB  * dt__CM
+
+            dqsiqv = qsiEFF(ikl,k) -qv__DY(ikl,k)
+
+            Flag_SURSat = max(zer0,sign(un_1,RH_ICE - un_1))
+!           Flag_SURSat = 1.0 if             RH_ICE > un_1
+!                       = 0.0 otherwise
+
+            qs_SUB = max(qs_SUB               ,dqsiqv)*    Flag_SURSat &! qs_SUB < 0 ... Deposition
+     &         + min(min(qs_SUB,qs__CM(ikl,k)),dqsiqv)*(1.-Flag_SURSat) !        > 0 ... Sublimation
+
+            qs_SUB =     qs_SUB * qs0_OK
+
+            qs__CM(ikl,k) = qs__CM(ikl,k)-          qs_SUB
+            qid_CM(ikl,k) = qid_CM(ikl,k)-          qs_SUB
+            qv__DY(ikl,k) = qv__DY(ikl,k)+          qs_SUB
+            Ta__CM(ikl,k) = Ta__CM(ikl,k)-Ls_Cpd   *qs_SUB
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'Qssub',qs_SUB,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wssub(k) =   -qs_SUB
+
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): (Deposition on) S'
+! #wH         debugH(36:70)   = 'now Particles (Sublimation)        '
+! #wH         proc_1          = 'Qssub g/kg'
+! #wH         procv1          =  qs_SUB
+! #wH         proc_2          = '          '
+! #wH         procv2          =  0.
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,14)    = -qs_SUB
+
+        END DO
+
+
+!  Graupels Sublimation                                                                             GRAUPEL, SUBLIMATION
+!  Reference: Lin et al.      1983, JCAM      22, p.1076 (46)                                       ++++++++++++++++++++
+!  ----------------------------------------------------------
+
+! #qg   ! TO BE ADDED !
+
+
+!  Snow Flakes Melting        PSMLT                                                                 SNOW, MELT
+!  Reference: Lin et al.      1983, JCAM      22, p.1072 (32)                                       ++++++++++
+!  ----------------------------------------------------------
+
+        DO k=mz1_CM,mzp
+
+! #wH       qsMELT = 0.0
+
+! #hy     IF                           (qs___0(ikl,k).gt.epsn)      THEN
+            qs0_OK = max(zer0,sign(un_1,qs___0(ikl,k)  - epsn))
+!           qs0_OK = 1.0 if             qs___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                                (Ta_dgC(ikl,k).gt.0.)   THEN! Ta_dgC : old Celsius Temperature
+            Flag_Ta_Pos = max(zer0,sign(un_1,Ta_dgC(ikl,k)  - 0.))
+!           Flag_Ta_Pos = 1.0 if             Ta_dgC(ikl,k)  > 0.
+!                       = 0.0 otherwise
+
+            Flag_qsMELT = qs0_OK * Flag_Ta_Pos
+
+! #EW      IF(Flag_qsMELT.gt.eps6)                                  THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(17:17) = 'r'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            ls_NUM = 0.78 /  (lamdaS(ikl,k) *lamdaS(ikl,k))            &
+     &           + 238.   *             sqrt(sqrrro(ikl,k))            &
+     &                    / exp(2.625d0 *log(lamdaS(ikl,k)))
+
+! #cn       n0___s = min(2.e8,2.e6*exp(-.12*min(0.,Ta_dgC(ikl,k))))
+
+            xCoefM = 1.904d-8 *n0___s *ls_NUM *Lc_Cpd /roa_DY(ikl,k)    ! 1.904e-8: 2 pi / Lc /[1.e3=rho Factor]
+
+            AcoefM = 0.025d00 *xCoefM                                  &!
+     &       +(ps_ACW(ikl,k) + ps_ACR(ikl,k)) *Lc_Cpd /78.8d0           ! 78.8    :        Lc /[Cpw=4.187e3 J/kg/K]
+
+            BcoefM = 62.34d+3 *roa_DY(ikl,k)                           &! 62.34   :        Ls *[psiv=2.200e-5 m2/s]
+     &                       *(qv__DY(ikl,k)-qsiEFF(ikl,k))            &! 46.88   :        Lv *[psiv=1.875e-5 m2/s]
+     &                        *xCoefM
+            BcoefM = min(-epsn,BcoefM)
+
+            dTMELT =    ( Ta__CM(ikl,k) -Tf_Sno -AcoefM/BcoefM)        &!
+     &              *exp(-AcoefM*dt__CM)                                !
+            qsMELT =    ( Ta__CM(ikl,k) -Tf_Sno -dTMELT       )/ Lc_Cpd !
+            qsMELT = max( qsMELT,0.           ) *Flag_qsMELT            !
+            qsMELT = min( qsMELT,qs__CM(ikl,k))                         !
+
+            qs__CM(ikl,k) = qs__CM(ikl,k) -          qsMELT
+            qr__CM(ikl,k) = qr__CM(ikl,k) +          qsMELT
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) - Lc_Cpd  *qsMELT
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'Qsmlt',qsMELT,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wsmlt(k) =    qsMELT
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Snow Particles Me'
+! #wH         debugH(36:70)   = 'lting                              '
+! #wH         proc_1          = 'Qsmlt g/kg'
+! #wH         procv1          =  qsMELT
+! #wH         proc_2          = '          '
+! #wH         procv2          =  0.
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,15)   = -qsMELT
+
+        END DO
+
+
+!  Graupels    Melting                                                                              GRAUPELS, MELT
+!  Reference: Lin et al.      1983, JCAM      22, p.1076 (47)                                       ++++++++++++++
+!  ----------------------------------------------------------
+
+! #qg   ! TO BE ADDED !
+
+
+!  Rain Freezing                                                                                    RAIN, FREEZING
+!  Reference: Lin et al.      1983, JCAM      22, p.1075 (45)                                       ++++++++++++++
+!  ----------------------------------------------------------
+
+!  **CAUTION**: Graupel Formation TO BE ADDED !
+
+        DO k=1,mzp     
+
+! #wH       qs_FRZ = 0.0
+
+! #hy     IF                           (qr___0(ikl,k).gt.epsn)      THEN
+            qr0_OK = max(zer0,sign(un_1,qr___0(ikl,k)  - epsn))
+!           qr0_OK = 1.0 if             qr___0(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                                 (Ta_dgC(ikl,k).lt.0.e0)THEN! Ta_dgC : old Celsius Temperature
+            Flag_Ta_Neg = max(zer0,-sign(un_1,Ta_dgC(ikl,k)  - 0.e0))
+!           Flag_Ta_Neg = 1.0 if              Ta_dgC(ikl,k)  < 0.e0
+!                       = 0.0 otherwise
+
+            Flag_Freeze = qr0_OK * Flag_Ta_Neg
+
+! #EW      IF(Flag_Freeze.gt.eps6)                                  THEN
+! #EW         mauxEW        =  mphyEW(ikl)
+! #EW         mauxEW(19:19) = 's'
+! #EW         mphyEW(ikl)   =  mauxEW
+! #EW      END IF
+
+            ps_FRZ = 1.974d4 *n0___r                                   &
+     &       /(roa_DY(ikl,k)*exp(7.d0 *log(lamdaR(ikl,k))))            &
+     &                     *(exp(-0.66d0  *Ta_dgC(ikl,k))-1.d0)
+            qs_FRZ =     ps_FRZ * dt__CM  *Flag_Freeze
+            qs_FRZ = min(qs_FRZ,qr__CM(ikl,k))
+
+            qr__CM(ikl,k) = qr__CM(ikl,k) -          qs_FRZ
+            qs__CM(ikl,k) = qs__CM(ikl,k) +          qs_FRZ
+!           CAUTION : graupel production is included into snow production
+!                     proposed modification in line below.
+! #qg       qg__CM(ikl,k) = qg__CM(ikl,k) +          qs_FRZ
+            Ta__CM(ikl,k) = Ta__CM(ikl,k) + Lc_Cpd  *qs_FRZ
+
+!  Full Debug
+!  ~~~~~~~~~~
+! #WQ       write(6,*) 'Qsfre',qs_FRZ,it_EXP,ikl,k
+! #WH       if (ikl.eq.ikl0CM(1)) wsfre(kl) = qs_FRZ
+
+! #hy     END IF
+! #hy     END IF
+
+!  Debug
+!  ~~~~~
+! #wH         debugH( 1:35)   = 'Lin et al.(1983): Rain Freezing    '
+! #wH         debugH(36:70)   = '                                   '
+! #wH         proc_1          = 'Qsfr g/kg'
+! #wH         procv1          =  qs_FRZ
+! #wH         proc_2          = '          '
+! #wH         procv2          =  0.
+! #wH         proc_3          = '          '
+! #wH         procv3          =  0.
+! #wH         proc_4          = '          '
+! #wH         procv4          =  0.
+! #wh         include 'CMiPhy_Debug.h'
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))   &
+! #wH&        debugV(k,16)   =  qs_FRZ
+
+        END DO
+
+
+
+
+!  Debug (Summary)
+!  ===============
+
+! #wH   DO k=mz1_CM,mzp 
+
+! #wH     IF (ii__AP(ikl).EQ.i0__CM(1).AND.jj__AP(ikl).EQ.j0__CM(1))THEN
+! #wH       IF (k .EQ.mz1_CM)                                       THEN
+! #wH          write(6,6022)
+ 6022          format(/,'CMiPhy STATISTICS'                            &
+     &                /,'=================')
+! #wH          write(6,6026)
+ 6026          format(  '    T_Air Qv   Qw g/kg  Qi g/kg  CLOUDS % '   &
+     &                 ,              ' Qs g/kg  Qr g/kg'              &
+     &                 ,' Qi+ E.K.'                                    &
+     &                 ,' Qi+ Mey.'                                    &
+     &                 ,' Qi- Sub.'                                    &
+     &                 ,' Qi- Mlt.'                                    &
+     &                 ,' Qw+ Cds.'                                    &
+     &                 ,' Qraut r+'                                    &
+     &                 ,' QsAUT s+'                                    &
+     &                 ,' Qracw r+')
+! #wH       END IF
+! #wH          write(6,6023)      k                                    &
+! #wH&              ,      Ta__CM(ikl,k)-Tf_Sno                        &
+! #wH&              ,1.e3* qv__DY(ikl,k)                               &
+! #wH&              ,1.e3* qw__CM(ikl,k)                               &
+! #wH&              ,1.e3* qi__CM(ikl,k)                               &
+! #wH&              ,1.e2* CFraCM(ikl,k)                               &
+! #wH&              ,1.e3* qs__CM(ikl,k)                               &
+! #wH&              ,1.e3* qr__CM(ikl,k)                               &
+! #wH&             ,(1.e3* debugV(k,kv),kv=1,08)
+ 6023          format(i3,f6.1,f5.2,2f9.6,f9.1,2f9.3,8f9.6)
+! #wH       IF (k .EQ.mzp )                                         THEN
+! #wH          write(6,6026)
+! #wH          write(6,*)  ' '
+! #wH          write(6,6024)
+ 6024          format(  8x,'Z [km]'                                    &
+     &                 ,' RH.w.[%]'                                    &
+     &                 ,' RH.i.[%]'     ,9x                            &
+     &                 ,' Vss cm/s'                                    &
+     &                 ,' Vrr cm/s'                                    &
+     &                 ,' Qsacw s+'                                    &
+     &                 ,' Qsaci s+'                                    &
+     &                 ,' Qiacr r+'                                    &
+     &                 ,' Qracs ds'                                    &
+     &                 ,' Qrevp w-'                                    &
+     &                 ,' Qssub s-'                                    &
+     &                 ,' Qsmlt s-'                                    &
+     &                 ,' Qsfr  s+')
+! #wH         DO nl=mz1_CM,mzp 
+! #wH          write(6,6025)   nl       ,zsigma(   nl)*1.e-3           &
+! #wH&              ,1.e2*   qv__DY(ikl,nl)/qvswCM(ikl,nl)             &
+! #wH&              ,1.e2*   qv__DY(ikl,nl)/qvsiCM(ikl,nl)             &
+! #wH&              ,1.e2*   FallVs(ikl,nl)                            &
+! #wH&              ,1.e2*   FallVr(ikl,nl)                            &
+! #wH&             ,(1.e3*   debugV(nl,kv),kv=9,16)
+ 6025          format(i3,f11.3,    2f9.1,9x,  2f9.1,8f9.6)
+! #wH         END DO
+! #wH          write(6,6024)
+! #wH          write(6,*)  ' '
+! #wH       END IF
+
+! #wH     END IF
+
+! #wH   END DO
+
+
+
+
+!  Vertical Integrated Energy and Water Content
+!  ============================================
+
+! #EW     enr1EW(ikl) = 0.0d00
+! #EW     wat1EW(ikl) = 0.0d00
+
+! #EW   DO k=1,mzp 
+! #EW     enr1EW(ikl) = enr1EW(ikl )                                   &
+! #EW&              +(Ta__CM(ikl,k)                                    &
+! #EW&              -(qw__CM(ikl,k)+qr__CM(ikl,k)) *Lv_Cpd             &
+! #EW&              -(qi__CM(ikl,k)+qs__CM(ikl,k)) *Ls_Cpd)*dsigmi(k)
+! #EW     wat1EW(ikl) = wat1EW(ikl )                                   &
+! #EW&              +(qv__DY(ikl,k)                                    &
+! #EW&              + qw__CM(ikl,k)+qr__CM(ikl,k)                      &
+! #EW&              + qi__CM(ikl,k)+qs__CM(ikl,k)         )*dsigmi(k)
+! #EW   END DO
+
+! #ew     enr1EW(ikl) = enr1EW(ikl ) * psa_DY(ikl) * Grav_I
+! #EW     wat1EW(ikl) = wat1EW(ikl ) * psa_DY(ikl) * Grav_I
+!  ..     wat1EW [m]   contains implicit factor 1.d3 [kPa-->Pa] /ro_Wat
+
+
+
+
+!  Precipitation
+!  =============
+
+!  Hydrometeors Fall Velocity
+!  --------------------------
+
+!  Pristine Ice Crystals Diameter and Fall Velocity
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        DO k=mz1_CM,mzp
+
+! #hy     IF                           (qi__CM(ikl,k).gt.epsn)      THEN
+            qi__OK = max(zer0,sign(un_1,qi__CM(ikl,k)  - epsn))
+!           qi__OK = 1.0 if             qi__CM(ikl,k)  > epsn
+!                  = 0.0 otherwise
+
+! #hy     IF                           (CCNiCM(ikl,k).gt.1.e0)      THEN
+            CCNiOK = max(zer0,sign(un_1,CCNiCM(ikl,k)  - 1.e0))
+!           CCNiOK = 1.0 if             CCNiCM(ikl,k)  > 1.e0
+!                  = 0.0 otherwise
+
+            Flag_Fall_i = qi__OK  * CCNiOK
+
+            Di_Pri = 0.16d0 *exp(R_1by3*log(R_1000*roa_DY(ikl,k)       &! Pristine Ice Crystals Diameter, where 6/(pi*ro_I)**1/3 ~ 0.16
+     &         *max(epsn,qi__CM(ikl,k))/max(un_1  ,CCNiCM(ikl,k))))     ! REF.: Levkov et al. 1992, Contr. Atm. Phys. 65, (5) p.37
+
+            FallVi(ikl,k) =      Flag_Fall_i * 7.d2*Di_Pri             &! Terminal Fall Velocity for Pristine Ice Crystals
+     &         *exp( 0.35d0 *log(roa_DY(ikl,mzp)  / roa_DY(ikl,k)))     ! REF.: Levkov et al. 1992, Contr. Atm. Phys. 65, (4) p.37
+! #hy     ELSE
+! #hy       FallVi(ikl,k) =  0.0d00
+
+! #hy     END IF
+! #hy     END IF
+
+        END DO
+
+!  Set Up of the Numerical Scheme
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #EW     watfEW(ikl) = 0.d0                                            ! Water Flux (Atmosphere --> Surface)
+
+!  Snow and Rain Fall Velocity (Correction)
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        DO k=mz1_CM,mzp
+          FallVi(ikl,k) = FallVi(ikl,k) *qi__CM(ikl,k)/max(qi__CM(ikl,k),epsn)
+          FallVs(ikl,k) = FallVs(ikl,k) *qs__CM(ikl,k)/max(qs__CM(ikl,k),epsn)
+! #VW     FallVw(ikl,k) = FallVw(ikl,k) *qw__CM(ikl,k)/max(qw__CM(ikl,k),epsn)
+          FallVr(ikl,k) = FallVr(ikl,k) *qr__CM(ikl,k)/max(qr__CM(ikl,k),epsn)
+        END DO
+
+
+!  -----------------------------------------------------
+!  Droplets              Precipitation (Implicit Scheme)
+!  Pristine Ice Crystals Precipitation (Implicit Scheme)
+!  Snow Particles        Precipitation (Implicit Scheme)
+!  Rain Drops            Precipitation (Implicit Scheme)
+!  -----------------------------------------------------
+
+          qwLoss(mz1_CM-1) = 0.
+          qiLoss(mz1_CM-1) = 0.
+          qsLoss(mz1_CM-1) = 0.
+          qrLoss(mz1_CM-1) = 0.
+
+!  Precipitation Mass & Flux
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~
+        DO k= mz1_CM,mzp
+          qwLoss(k)       = 0.
+
+          a_rodz          = Grav_I* psa_DY(  ikl) *dsigmi(k)            ! Air  Mass
+! #VW     qwFlux          = dt__CM* FallVw(ikl,k) *roa_DY(ikl,k)        ! Flux Fact. (droplets)
+          qiFlux          = dt__CM* FallVi(ikl,k) *roa_DY(ikl,k)        ! Flux Fact. (crystals)
+          qsFlux          = dt__CM* FallVs(ikl,k) *roa_DY(ikl,k)        ! Flux Fact. (snow)
+          qrFlux          = dt__CM* FallVr(ikl,k) *roa_DY(ikl,k)        ! Flux Fact. (rain)
+
+! #VW     qwrodz          =         qw__CM(ikl,k) *a_rodz              &! Droplets Mass
+! #VW&                    +    0.5 *qwLoss(k-1)                         ! From abov.
+          qirodz          =         qi__CM(ikl,k) *a_rodz              &! Crystals Mass
+     &                    +    0.5 *qiLoss(k-1)                         ! From abov.
+          qsrodz          =         qs__CM(ikl,k) *a_rodz              &! Snow Mass
+     &                    +    0.5 *qsLoss(k-1)                         ! From abov.
+          qrrodz          =         qr__CM(ikl,k) *a_rodz              &! Rain Mass
+     &                    +    0.5 *qrLoss(k-1)                         ! From abov.
+
+! #VW     wRatio          =                                            &! Var. Fact.
+! #VW&                       min(2.,qwFlux        /a_rodz       )       ! Flux Limi.
+          iRatio          =                                            &! Var. Fact.
+     &                       min(2.,qiFlux        /a_rodz       )       ! Flux Limi.
+          sRatio          =                                            &! Var. Fact.
+     &                       min(2.,qsFlux        /a_rodz       )       ! Flux Limi.
+          rRatio          =                                            &! Var. Fact.
+     &                       min(2.,qrFlux        /a_rodz       )       ! Flux Limi.
+
+! #VW     qwLoss(k)       =         qwrodz        *wRatio              &! Mass Loss
+! #VW&                         /(1.+wRatio        *0.5)                 !
+          qiLoss(k)       =         qirodz        *iRatio              &! Mass Loss
+     &                         /(1.+iRatio        *0.5)                 !
+          qsLoss(k)       =         qsrodz        *sRatio              &! Mass Loss
+     &                         /(1.+sRatio        *0.5)                 !
+          qrLoss(k)       =         qrrodz        *rRatio              &! Mass Loss
+     &                         /(1.+rRatio        *0.5)                 !
+
+! #VW     qwrodz          =         qwrodz        -qwLoss(k)           &!
+! #VW&                    +    0.5 *qwLoss(k-1)                         ! From abov.
+          qirodz          =         qirodz        -qiLoss(k)           &!
+     &                    +    0.5 *qiLoss(k-1)                         ! From abov.
+          qsrodz          =         qsrodz        -qsLoss(k)           &!
+     &                    +    0.5 *qsLoss(k-1)                         ! From abov.
+          qrrodz          =         qrrodz        -qrLoss(k)           &!
+     &                    +    0.5 *qrLoss(k-1)                         ! From abov.
+
+!  Cooling from above precipitating flux
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          Ta__CM(ikl,k)   =                                            &!
+     &   (Ta__CM(ikl,k  ) * a_rodz                                     &!
+     &   +Ta__CM(ikl,k-1) *(qwLoss(k-1)+qiLoss(k-1)+qsLoss(k-1)+qrLoss(k-1))) &!
+     &  /(a_rodz           +qwLoss(k-1)+qiLoss(k-1)+qsLoss(k-1)+qrLoss(k-1))
+
+! #VW     qw__CM(ikl,k)   = qwrodz                /a_rodz       
+          qi__CM(ikl,k)   = qirodz                /a_rodz       
+          qs__CM(ikl,k)   = qsrodz                /a_rodz       
+          qr__CM(ikl,k)   = qrrodz                /a_rodz       
+        ENDDO
+
+!  Precipitation reaching the Surface
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          d_rain          = qrLoss(mzp) + qwLoss(mzp)                   ! d_rain contains implicit factor 1.e3[kPa->Pa]/ro_Wat[kg/m2->m w.e.]
+          RainCM(ikl)     = RainCM(ikl) + d_rain                        ! RainCM:         rain precipitation height since start of run    [m]
+          d_snow          =               qiLoss(mzp)                   ! d_snow contains implicit factor 1.e3[kPa->Pa]/ro_Wat[kg/m2->m w.e.]
+          Ice_CM(ikl)     = Ice_CM(ikl) + d_snow                        ! Ice_CM:   ice        precipitation height since start of run    [m]
+          d_snow          = qsLoss(mzp) + qiLoss(mzp)                   ! d_snow contains implicit factor 1.e3[kPa->Pa]/ro_Wat[kg/m2->m w.e.]
+          SnowCM(ikl)     = SnowCM(ikl) + d_snow                        ! SnowCM:   ice + snow precipitation height since start of run    [m]
+
+! #EW     watfEW(ikl )     = watfEW(ikl ) - d_rain - d_snow
+
+          d_rain          = 0.0
+          d_snow          = 0.0
+
+
+
+
+!  Fractional  Cloudiness ! Guess may be computed (Ek&Mahrt91 fracSC=.T.)
+!  ====================== ! Final value  computed  below
+
+! #sc   IF (Frac__Clouds.AND..NOT.fracSC)                           THEN
+        IF (Frac__Clouds)                                           THEN
+         IF(fraCEP) THEN ! ECMWF Large Scale Cloudiness
+                         ! ----------------------------
+          DO k=mz1_CM,mzp
+            CFraCM(ikl,k) =              (qi__CM(ikl,k) + qw__CM(ikl,k)&
+     &                                   +qs__CM(ikl,k) * 0.33         &
+     &               * (1.-min(1.,exp((Ta__CM(ikl,k) -258.15)*0.1))))  &
+     &               / (0.02     *     qvswCM(ikl,k)                )
+            CFraCM(ikl,k) =min(1.000 , CFraCM(ikl,k))
+            CFraCM(ikl,k) =max(0.001 , CFraCM(ikl,k))                  &
+     &                *max(zer0,sign(un_1,qi__CM(ikl,k) + qw__CM(ikl,k)&
+     &                                   +qs__CM(ikl,k) -3.E-9       ))
+          END DO
+         ELSE            ! XU and Randall  1996, JAS 21, p.3099 (4)
+                         ! ----------------------------
+          DO k=mz1_CM,mzp
+            qvs_wi=                                        qvswCM(ikl,k)
+! #wi       qvs_wi=max(epsn,((qi__CM(ikl,k)+qs__CM(ikl,k))*qvsiCM(ikl,k)    &
+! #wi&                       +qw__CM(ikl,k)               *qvswCM(ikl,k))   &
+! #wi&              /max(epsn,qi__CM(ikl,k)+qs__CM(ikl,k) +qw__CM(ikl,k)))
+            RHumid=min(RH_MAX,max(qv__DY(ikl,k),qv_MIN) / qvs_wi)
+            argEXP=  ((RH_MAX                  -RHumid) * qvs_wi)**0.49
+            argEXP=min(100.     *(qi__CM(ikl,k)+qw__CM(ikl,k)          &
+     &                                         +qs__CM(ikl,k) *  0.33  &
+     &          * (1.-min(1.,exp((Ta__CM(ikl,k)-258.15)*0.1))))        &
+     &                       /max(epsn         ,argEXP),ea_MAX)
+              
+            CFraCM(ikl,k) = ( RHumid ** 0.25 ) * ( 1. - exp(-argEXP) )
+          END DO
+         END IF
+
+        ELSE
+! #sc   ELSE IF (.NOT.Frac__Clouds)                                 THEN
+          DO k=mz1_CM,mzp
+              qCloud        =     qi__CM(ikl,k)  + qw__CM(ikl,k)
+! #hy       IF                                    (qCloud.gt.epsn)  THEN
+              CFraCM(ikl,k) = max(zer0,sign(un_1,  qCloud  - epsn))
+!             CFraCM(ikl,k) = 1.0 if               qCloud  > epsn
+!                           = 0.0 otherwise
+
+! #hy       END IF
+          END DO
+
+        END IF
+
+
+
+
+!  Vertically Integrated Energy and Water Content
+!  ==============================================
+
+! #EW     enr2EW(ikl) = 0.0d00
+! #EW     wat2EW(ikl) = 0.0d00
+!  ..     Vertical Integrated Energy and Water Content
+
+! #EW   DO k=1,mzp
+! #EW     enr2EW(ikl) = enr2EW(ikl)                                    &
+! #EW&            +  (Ta__CM(ikl,k)                                    &
+! #EW&            -  (qw__CM(ikl,k)+qr__CM(ikl,k))*Lv_Cpd              &
+! #EW&            -  (qi__CM(ikl,k)+qs__CM(ikl,k))*Ls_Cpd) *dsigmi(k)
+! #EW     wat2EW(ikl) = wat2EW(ikl)                                    &
+! #EW&            +  (qv__DY(ikl,k)                                    &
+! #EW&            +   qw__CM(ikl,k)+qr__CM(ikl,k)                      &
+! #EW&            +   qi__CM(ikl,k)+qs__CM(ikl,k)        ) *dsigmi(k)
+! #EW   END DO
+
+! #ew     enr2EW(ikl) = enr2EW(ikl) * psa_DY(ikl) * Grav_I
+! #EW     wat2EW(ikl) = wat2EW(ikl) * psa_DY(ikl) * Grav_I
+!  ..     wat2EW [m]   contains implicit factor 1.d3 [kPa-->Pa] /ro_Wat
+
+
+
+
+!  Limits on Microphysical Variables
+!  =================================
+
+        DO k=1,mz1_CM
+            qv__DY(ikl,k)=max(qv__DY(ikl,k),qv_MIN)
+            qv__DY(ikl,k)=min(qv__DY(ikl,k),qvsiCM(ikl,k))
+            qw__CM(ikl,k)=    zer0
+            qi__CM(ikl,k)=    zer0
+            CCNiCM(ikl,k)=    zer0
+            qr__CM(ikl,k)=    zer0
+            qs__CM(ikl,k)=    zer0
+        END DO
+
+        DO k=mz1_CM,mzp
+            qw__CM(ikl,k)=max(zer0,  qw__CM(ikl,k))
+            qi__CM(ikl,k)=max(zer0,  qi__CM(ikl,k))
+            CCNiCM(ikl,k)=max(zer0,  CCNiCM(ikl,k))
+            qr__CM(ikl,k)=max(zer0,  qr__CM(ikl,k))
+            qs__CM(ikl,k)=max(zer0,  qs__CM(ikl,k))
+        END DO
+
+
+
+
+!     +++++++++++++++++++
+      ENDDO ! ikl=1,kcolp
+!     +++++++++++++++++++
+
+
+
+
+!  OUTPUT
+!  ======
+
+! #WH IF (mod(MinuTU,6).eq.0.and.Sec_TU.eq.0.and.ikl0CM(1).gt.0)       THEN
+! #WH   write(6,1030) HourTU,MinuTU,Sec_TU,it_EXP,i0__CM(1),j0__CM(1)
+ 1030   format(//,i4,'UT',i2,'m',i2,'s (iter.',i6,')  /  Pt.(',2i4,')' &
+     &         ,/,'  ==========================================')
+! #WH   write(6,1031)(k,     Z___DY(ikl0CM(1),k),qv__DY(ikl0CM(1),k),  &
+! #WH&   1.d3*qi_io0(k),                    1.d3*qi__CM(ikl0CM(1),k),  &
+! #WH&   1.d3* wihm1(k),1.d3* wihm2(k),     1.d3* wicnd(k),            &
+! #WH&   1.d3* widep(k),1.d3* wisub(k),     1.d3* wimlt(k),k=mz1_CM,mzp)
+ 1031   format(/,                                                      &
+     &     '            |  Water Vapor |  Cloud Ice, Time n & n+1',    &
+     &     '   Cloud Ice Nucleation Processes    |',                   &
+     &     '   Bergeron   Sublimation   Melting  ',                    &
+     &   /,'  k    z[m] |  qv   [g/kg] |  qi_n [g/kg] qi_n+[g/kg]',    &
+     &     ' QiHm1[g/kg] QiHm2[g/kg] QiCnd[g/kg] |',                   &
+     &     '  QiDep[g/kg] QiSub[g/kg] QiMlt[q/kg]',                    &
+     &   /,'------------+--------------+-------------------------',    &
+     &     '-------------------------------------+',                   &
+     &     '-------------------------------------',                    &
+     &   /,(i3,f8.1,' | ',f12.6,' | ',2f12.6,3d12.4,' | ',3d12.4))
+
+! #WH   write(6,1032)(k,Z___DY(ikl0CM(1),k)                            &
+! #WH&            ,1.d3*qs___0(ikl0CM(1),k),1.d3*qs__CM(ikl0CM(1),k)   &
+! #WH&            ,1.d3* wsaut(k),          1.d3* wsaci(k)             &
+! #WH&            ,1.d3* wsacw(k),          1.d3* wiacr(k)             &
+! #WH&            ,1.d3* wsacr(k),          1.d3* wssub(k)             &
+! #WH&            ,     FallVs(k,ikl0CM(1)),k=mz1_CM,mzp)
+ 1032   format(/,                                                      &
+     &     '            |  Snow Flakes, Time n&n+1 Autoconver. |',     &
+     &     '  Accretion Processes ===> Snow Flakes            |',      &
+     &     '  Sublimation | Term.F.Vel',                               &
+     &   /,'  k    z[m] |  qs_n [g/kg] qs_n+[g/kg] QsAUT[g/kg] |',     &
+     &     '  Qsaci[g/kg] Qsacw[g/kg] Qiacr[g/kg] Qsacr[g/kg] |',      &
+     &     '  QsSub[g/kg] | vs   [m/s]',                               &
+     &   /,'------------+--------------------------------------+',     &
+     &     '--------------------------------------------------+',      &
+     &     '--------------+-----------',                               &
+     &   /,(i3,f8.1,' | ',2f12.6,e12.4,' | ',4d12.4,' | ',e12.4,       &
+     &              ' | ',f10.6))
+
+! #WH   write(6,1033)(k,Z___DY(ikl0CM(1),k),Ta__CM(ikl0CM(1),k)
+! #WH&            ,1.d3*qw_io0(k)  ,1.d3*qw__CM(ikl0CM(1),k)
+! #WH&            ,1.d3* wwevp(k)  ,1.d2*CFraCM(ikl0CM(1),k),k=mz1_CM,mzp)
+ 1033   format(/,                                                      &
+     &   /,'            | Temperat.|  Cloud Water, Time n&n+1',        &
+     &     ' Condens/Evp | Cloud ',                                    &
+     &   /,'  k    z[m] | T    [K] |  qw_n [g/kg] qw_n+[g/kg]',        &
+     &     ' QwEvp[g/kg] | Fract.',                                    &
+     &   /,'------------+----------+-------------------------',        &
+     &     '-------------+-------',                                    &
+     &   /,(i3,f8.1,' | ',f8.3,' | ',2f12.6,e12.4,' | ',f5.1))
+
+! #WH   write(6,1034)(k,Z___DY(ikl0CM(1),k),                           &
+! #WH&            ,1.d3*qr___0(k,ikl0CM(1)),1.d3*qr__CM(ikl0CM(1),k),  &
+! #WH&            ,1.d3* wraut(k)          ,1.d3* wracw(k)             &
+! #WH&            ,1.d3* wraci(k)          ,1.d3* wracs(k)             &
+! #WH&            ,1.d3* wrevp(k)          ,1.d3* wsfre(k)             &
+! #WH&            ,     FallVr(k,ikl0CM(1)),               k=mz1_CM,mzp)
+ 1034   format(/,                                                      &
+     &  /,'            | Rain Drops, Time n&n+1   Autoconver. |',      &
+     &    '  Accretion Processes ===> Rain Drops |',                   &
+     &    '  Evaporation  Freezing   | Term.F.Vel',                    &
+     &  /,'  k    z[m] |  qr_n [g/kg] qr_n+[g/kg] Qraut[g/kg] |',      &
+     &    '  Qracw[g/kg] Qraci[g/kg] Qracs[g/kg] |',                   &
+     &    '  QrEvp[g/kg] QsFre[g/kg] | vr   [m/s]',                    &
+     &  /,'------------+--------------------------------------+',      &
+     &    '--------------------------------------+',                   &
+     &    '--------------------------+-----------',                    &
+     &  /,(i3,f8.1,' | ',2f12.6,e12.4,' | ',3d12.4,' | ',2d12.4,       &
+     &             ' | ',f10.6))
+
+! #WH   DO k=mz1_CM,mzp
+! #WH     wihm1(k) = 0.d0
+! #WH     wihm2(k) = 0.d0
+! #WH     wicnd(k) = 0.d0
+! #WH     widep(k) = 0.d0
+! #WH     wisub(k) = 0.d0
+! #WH     wimlt(k) = 0.d0
+! #WH     wwevp(k) = 0.d0
+! #WH     wraut(k) = 0.d0
+! #WH     wsaut(k) = 0.d0
+! #WH     wracw(k) = 0.d0
+! #WH     wsacw(k) = 0.d0
+! #WH     wsaci(k) = 0.d0
+! #WH     wraci(k) = 0.d0
+! #WH     wiacr(k) = 0.d0
+! #WH     wsacr(k) = 0.d0
+! #WH     wracs(k) = 0.d0
+! #WH     wrevp(k) = 0.d0
+! #WH     wssub(k) = 0.d0
+! #WH     wsmlt(k) = 0.d0
+! #WH     wsfre(k) = 0.d0
+! #WH   END DO
+! #WH END IF
+
+
+!  Vertical Integrated Energy and Water Content: OUTPUT
+!  ====================================================
+
+! #EW IF (ikl0CM(1).gt.0)                                              THEN
+! #EW   WaterB = wat2EW(ikl0CM(1))-wat1EW(ikl0CM(1))-watfEW(ikl0CM(1))
+! #EW   write(6,606) it_EXP,                                           &
+! #EW&                     enr0EW(ikl0CM(1)),1.d3*wat0EW(ikl0CM(1)),   &
+! #EW&                     mphyEW(ikl0CM(1)),                          &
+! #EW&                     enr1EW(ikl0CM(1)),1.d3*wat1EW(ikl0CM(1)),   &
+! #EW&                     enr2EW(ikl0CM(1)),1.d3*wat2EW(ikl0CM(1)),   &
+! #EW&                                       1.d3*watfEW(ikl0CM(1)),   &
+! #EW&                                       1.d3*WaterB
+ 606    format(i9,'  Before mPhy:  E0 =',f12.6,'  W0 = ',f9.6,3x,a20   &
+     &   ,3x,/,9x,'  Before Prec:  E1 =',f12.6,'  W1 = ',f9.6          &
+     &   ,   /,9x,'  After  Prec:  E2 =',f12.6,'  W2 = ',f9.6          &
+     &   ,                                     '  W Flux =',f9.6       &
+     &   ,                                     '  Div(W) =',e9.3)
+! #EW END IF
+
+      IF (MinuTU.eq.0.and.Sec_TU.eq.0.and.mod(HourTU,3).eq.0)       THEN
+        DO  ipt_CM=1,npt_CM  
+            ikl=ikl0CM(ipt_CM)
+
+              write(4,1037)               HourTU,MinuTU,               &
+     &                      i0__CM(ipt_CM),j0__CM(ipt_CM)
+ 1037         format(/,' Ice-Crystal mPhy ',                           &
+     &                   2x,' ',2x,1x,i2,'h',i2,'UT',                  &
+     &                 ' -- Grid Point (',i5,',',i5,')',               &
+     &  /,' =========================================================='&
+     &   ,     /,'     |  z  [m] | T  [K] | qi[g/kg] |'                &
+     &   ,            ' Ni [m-3] | Ni0[m-3] | vi [m/s] | qs[g/kg] |'   &
+     &   ,     /,'-----+---------+--------+----------+'                &
+     &   ,            '----------+----------+----------+----------+')
+              write(4,1038)(k,Z___DY(ikl,k),Ta__CM(ikl,k)              &
+     &                       ,qi__CM(ikl,k)*1.d3                       &
+     &                       ,CCNiCM(ikl,k),Fletch(ikl,k)              &
+     &                       ,FallVi(ikl,k),qs__CM(ikl,k)*1.d3         &
+     &                     ,k=mz1_CM,mzp)
+ 1038         format((i4,' |' ,  f8.1,' |',f7.2,' |',f9.6,' |',        &
+     &            2(d9.3,' |'),2(f9.6,' |')))
+
+        END DO
+      END IF
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                       !
+! DE-ALLOCATION                                                         !
+! =============                                                         !
+!                                                                       !
+      IF (FlagDALLOC)                                              THEN !
+
+          deallocate ( qw_io0 )                                         ! Droplets   Concentration entering CMiPhy                  [kg/kg]
+          deallocate ( qi_io0 )                                         ! Ice  Part. Concentration entering CMiPhy                  [kg/kg]
+          deallocate ( qs___0 )                                         ! Snow Part. Concentration entering CMiPhy                  [kg/kg]
+! #qg     deallocate ( qg___0 )                                         ! Graupels   Concentration entering CMiPhy                  [kg/kg]
+          deallocate ( qr___0 )                                         ! Rain Drops Concentration entering CMiPhy                  [kg/kg]
+          deallocate ( Ta_dgC )                                         ! Air   Temperature                                           [dgC]
+          deallocate ( sqrrro )                                         ! sqrt(roa(mzp)/roa(k))                                         [-]
+          deallocate ( qsiEFF )                                         ! EFFective Saturation Specific Humidity over Ice           [kg/kg]
+          deallocate ( Fletch )                                         ! Monodisperse Nb of hexagonal Plates, Fletcher (1962)          [-]
+          deallocate ( lamdaS )                                         ! Marshall-Palmer distribution parameter for Snow Particl.
+! #qg     deallocate ( lamdaG )                                         ! Marshall-Palmer distribution parameter for Graupels
+          deallocate ( lamdaR )                                         ! Marshall-Palmer distribution parameter for Rain Drops
+          deallocate ( ps_ACR )                                         ! Accretion of Snow        by Rain                   Rate [kg/kg/s]
+          deallocate ( ps_ACW )                                         ! Accretion of Cloud Drop. by Snow Particl.          Rate [kg/kg/s]
+          deallocate ( FallVw )                                         ! Sedimentation Velocity   of Droplets
+          deallocate ( FallVi )                                         ! Sedimentation Velocity   of Ice  Particles
+          deallocate ( FallVs )                                         ! Sedimentation Velocity   of Snow Particles
+! #qg     deallocate ( FallVg )                                         ! Sedimentation Velocity   of Snow Particles
+          deallocate ( FallVr )                                         ! Sedimentation Velocity   of Rain Drops 
+          deallocate ( qwLoss )                                         ! Mass Loss related to Sedimentation of Rain Droplets
+          deallocate ( qiLoss )                                         ! Mass Loss related to Sedimentation of Ice  Crystals
+          deallocate ( qsLoss )                                         ! Mass Loss related to Sedimentation of Snow Particles
+          deallocate ( qrLoss )                                         ! Mass Loss related to Sedimentation of Rain Drops
+! #wH     deallocate ( debugV )                                         ! Debug Variable (of 16 microphysical processes)
+
+! #WH     deallocate ( wihm1 )                                          ! Cloud Droplets Freezing
+! #WH     deallocate ( wihm2 )                                          ! Ice   Crystals Homogeneous Sublimation
+! #WH     deallocate ( wicnd )                                          ! Ice   Crystals Nucleation              (Emde & Kahlig)
+! #WH     deallocate ( widep )                                          ! Ice   Crystals Growth Bergeron Process (Emde & Kahlig)
+! #WH     deallocate ( wisub )                                          ! Ice   Crystals             Sublimation (Levkov)
+! #WH     deallocate ( wimlt )                                          ! Ice   Crystals Melting  
+! #WH     deallocate ( wwevp )                                          ! Water Vapor Condensation / Evaporation (Fractional Cloudiness)
+! #WH     deallocate ( wraut )                                          ! Cloud Droplets AUTO-Conversion
+! #WH     deallocate ( wsaut )                                          ! Ice   Crystals AUTO-Conversion
+! #WH     deallocate ( wracw )                                          ! Accretion of Cloud Droplets by Rain, Ta > 0, --> Rain
+! #WH     deallocate ( wsacw )                                          ! Accretion of Cloud Droplets by Rain, Ta < 0, --> Snow
+! #WH     deallocate ( wsaci )                                          ! Accretion of Ice   Crystals by Snow          --> Snow
+! #WH     deallocate ( wraci )                                          ! Accretion of Ice   Crystals by Rain          --> Snow
+! #WH     deallocate ( wiacr )                                          ! Accretion of Rain by Ice   Crystals          --> Snow
+! #WH     deallocate ( wsacr )                                          ! Accretion of Rain by Snow                    --> Snow
+! #WH     deallocate ( wracs )                                          ! Accretion of Snow by Rain                    --> Snow, Rain
+! #WH     deallocate ( wrevp )                                          ! Rain  Drops     Evaporation  
+! #WH     deallocate ( wssub )                                          ! Snow  Particles Sublimation
+! #WH     deallocate ( wsmlt )                                          ! Snow  Particles Melting 
+! #WH     deallocate ( wsfre )                                          ! Rain  Drops     Freezing
+!                                                                       !
+      END IF                                                            !
+!                                                                       !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+      return
+      end subroutine CMiPhy
Index: LMDZ5/branches/testing/libf/phymar/CVAmnh.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/CVAmnh.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/CVAmnh.f90	(revision 2160)
@@ -0,0 +1,7944 @@
+!     ######spl
+    SUBROUTINE CONVECTION( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,             &
+                           PDTCONV, ODEEP, OSHAL, OREFRESH_ALL, ODOWN, KICE,   &
+                           OSETTADJ, PTADJD, PTADJS,                           &
+                           KENSM,                                              &
+                           PPABS, PZZ, PDXDY,                                  &
+                           PT, PRV, PRC, PRI, PU, PV, PW,                      &
+                           KCOUNT, PTTEN, PRVTEN, PRCTEN, PRITEN,              &
+                           PPRTEN, PPRSTEN,                                    &
+                           PUMF, PDMF, PPRLFLX, PPRSFLX, PCAPE, KCLTOP, KCLBAS,& 
+                           OCHTRANS, KCH1, PCH1, PCH1TEN                       )
+!   ############################################################################
+!
+!!**** Interface routine to the fast MNH convection code developed for ECMWF/ARPEGE IFS
+!!     having a structure typical for operational routines
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The routine interfaces the MNH convection code as developed for operational
+!!      forecast models like ECMWF, ARPEGE or HIRLAM with the typical MNH array structure
+!!      Calls the deep and/or shallow convection routine
+!!
+!!
+!!**  METHOD
+!!    ------
+!!     Returns one tendency for shallow+deep convection but each part can
+!!     be activated/desactivated separately.
+!!     For deep convection one can enable up to 3 additional ensemble members
+!!     - this substantially improves the smoothness of the scheme and 
+!!       allows for runs with different cloud radii (entrainment rates) and 
+!!       reduces the arbitrariness inherent to convective trigger condition
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!    CONVECT_DEEP
+!!    CONVECT_SHALLOW
+!!    INI_CONVPAR, INI_CONVPAR1
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    11/12/98 
+!!      Modif       11/04/O2 allow for ensemble of deep updrafts/downdrafts
+!!
+!!    REFERENCE
+!!    ---------
+!!    Bechtold et al., 2001, Quart. J. Roy. Meteor. Soc., Vol 127, pp 869-886: 
+!!           A mass flux convection scheme for regional and global models.
+!!
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                  INTENT(IN) :: KLON     ! horizontal dimension
+INTEGER,                  INTENT(IN) :: KLEV     ! vertical dimension
+INTEGER,                  INTENT(IN) :: KIDIA    ! value of the first point in x
+INTEGER,                  INTENT(IN) :: KFDIA    ! value of the last point in x
+INTEGER,                  INTENT(IN) :: KBDIA    ! vertical  computations start at
+!                                                ! KBDIA that is at least 1
+INTEGER,                  INTENT(IN) :: KTDIA    ! vertical computations can be
+                                                 ! limited to KLEV + 1 - KTDIA
+                                                 ! default=1
+REAL,                     INTENT(IN) :: PDTCONV  ! Interval of time between two
+                                                 ! calls of the deep convection
+                                                 ! scheme
+LOGICAL,                  INTENT(IN) :: ODEEP    ! switch for deep convection
+LOGICAL,                  INTENT(IN) :: OSHAL    ! switch for shallow convection
+LOGICAL,                  INTENT(IN) :: OREFRESH_ALL ! refresh or not all 
+                                                 ! tendencies  at every call
+LOGICAL,                  INTENT(IN) :: ODOWN    ! take or not convective
+                                                 ! downdrafts into account
+INTEGER,                  INTENT(IN) :: KICE     ! flag for ice ( 1 = yes, 
+                                                 !                0 = no ice )
+INTEGER,                  INTENT(IN) :: KENSM    ! number of additional deep convection calls
+                                                 ! for ensemble (presently limited to 3)
+                                                 ! KENSM=0 corresponds to base run with
+                                                 ! 1 deep and 1 shallow call
+LOGICAL,                  INTENT(IN) :: OSETTADJ ! logical to set convective
+                                                 ! adjustment time by user
+REAL,                     INTENT(IN) :: PTADJD   ! user defined deep adjustment time (s)
+REAL,                     INTENT(IN) :: PTADJS   ! user defined shal. adjustment time (s)
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PT     ! grid scale T at time t  (K)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRV    ! grid scale water vapor  (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRC    ! grid scale r_c  (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRI    ! grid scale r_i  (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PU     ! grid scale horiz. wind u (m/s) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PV     ! grid scale horiz. wind v (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PW     ! grid scale vertical velocity (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPABS  ! grid scale pressure (Pa)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZZ    ! height of model layer (m) 
+REAL, DIMENSION(KLON),      INTENT(IN) :: PDXDY  ! grid area (m2)
+!   
+INTEGER, DIMENSION(KLON), INTENT(INOUT):: KCOUNT   ! convective counter(recompute
+                                                   ! tendency or keep it
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PTTEN  ! convective temperat. tendency (K/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRVTEN ! convective r_v tendency (1/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRCTEN ! convective r_c tendency (1/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRITEN ! convective r_i tendency (1/s)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PPRTEN ! total surf precipitation tendency (m/s)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PPRSTEN! solid surf precipitation tendency (m/s)
+!
+! Chemical Tracers:
+LOGICAL,                    INTENT(IN)        :: OCHTRANS ! flag to compute convective
+                                                          ! transport for chemical tracer
+INTEGER,                    INTENT(IN)        :: KCH1     ! number of species
+REAL, DIMENSION(KLON,KLEV,KCH1), INTENT(IN)   :: PCH1     ! grid scale chemical species
+REAL, DIMENSION(KLON,KLEV,KCH1), INTENT(INOUT):: PCH1TEN  ! chemical convective tendency
+                                                          ! (1/s)
+!					 
+! Diagnostic variables:
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUMF   ! updraft mass flux   (kg/s m2)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDMF   ! downdraft mass flux (kg/s m2)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PPRLFLX! liquid precip flux  (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PPRSFLX! solid precip flux   (m/s)
+REAL, DIMENSION(KLON),   INTENT(INOUT)    :: PCAPE  ! CAPE (J/kg)
+INTEGER, DIMENSION(KLON),INTENT(INOUT)    :: KCLTOP ! cloud top level (number of model level)
+INTEGER, DIMENSION(KLON),INTENT(INOUT)    :: KCLBAS ! cloud base level(number of model level)
+                                                    ! they are given a value of
+                                                    ! 0 if no convection
+!						 
+!*       0.2   Declarations of local variables :
+!
+INTEGER  :: JI, JK, JN  ! loop index
+!
+REAL, DIMENSION(KLON)               :: ZTIMEC, ZPRLTEN
+!
+! special for shallow convection
+REAL, DIMENSION(:,:), ALLOCATABLE   :: ZTTENS, ZRVTENS, ZRCTENS, ZRITENS,  &
+                                       ZUMFS
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZCH1TENS
+INTEGER, DIMENSION(:), ALLOCATABLE  :: ICLBASS, ICLTOPS
+!
+!*       0.3   Declarations of additional Ensemble fields:
+!
+INTEGER                             :: KENS     ! number of allowed additional deep convection calls
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZTTENE   ! convective temperat. tendency (K/s)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZRVTENE  ! convective r_v tendency (1/s)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZRCTENE  ! convective r_c tendency (1/s)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZRITENE  ! convective r_i tendency (1/s)
+REAL, DIMENSION(:,:),   ALLOCATABLE :: ZPRLTENE ! liquid surf precipitation tendency (m/s)
+REAL, DIMENSION(:,:),   ALLOCATABLE :: ZPRSTENE ! solid surf precipitation tendency (m/s)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZUMFE    ! updraft mass flux   (kg/s m2)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZDMFE    ! downdraft mass flux (kg/s m2)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZPRLFLXE ! liquid precip flux  (m/s)
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZPRSFLXE ! solid precip flux   (m/s)
+REAL, DIMENSION(:,:,:,:),ALLOCATABLE:: ZCH1TENE ! chemical convective tendency
+INTEGER, DIMENSION(:,:),ALLOCATABLE :: ICLTOPE  ! cloud top level (number of model level)
+INTEGER, DIMENSION(:,:),ALLOCATABLE :: ICLBASE  ! cloud base level(number of model level)
+REAL, DIMENSION(:),     ALLOCATABLE :: ZEDUMMY  ! field not to be recomputed by ensemble
+INTEGER, DIMENSION(:),  ALLOCATABLE :: IEDUMMY  ! field not to be recomputed by ensemble
+REAL, DIMENSION(:),     ALLOCATABLE :: ZWEIGHT  ! weighting factor for ensemble members
+REAL                                :: ZSUM     ! sum of weighting factors
+!
+!-------------------------------------------------------------------------------
+!
+!
+!*       0.5  Allocate 2D (horizontal, vertical) arrays and additional ensemble arrays
+!             ------------------------------------------------------------------------
+!
+    ALLOCATE( ZTTENS(KLON,KLEV) ); ALLOCATE( ZRVTENS(KLON,KLEV) ) 
+    ALLOCATE( ZRCTENS(KLON,KLEV) ); ALLOCATE( ZRITENS(KLON,KLEV) ) 
+    ALLOCATE( ZCH1TENS(KLON,KLEV,KCH1) ) 
+    ALLOCATE( ZUMFS(KLON,KLEV) )
+    ALLOCATE( ICLBASS(KLON) ); ALLOCATE( ICLTOPS(KLON) )
+!
+    KCLTOP(:)  = 1 ! set default value when no convection
+    KCLBAS(:)  = 1 ! can be changed  depending on user
+    ICLTOPS(:) = 1
+    ICLBASS(:) = 1
+!
+KENS = MIN( KENSM, 3 )
+IF ( KENS > 0 ) THEN
+    ALLOCATE( ZTTENE(KLON,KLEV,KENS) )
+    ALLOCATE( ZRVTENE(KLON,KLEV,KENS) )
+    ALLOCATE( ZRCTENE(KLON,KLEV,KENS) )
+    ALLOCATE( ZRITENE(KLON,KLEV,KENS) )
+    ALLOCATE( ZUMFE(KLON,KLEV,KENS) )
+    ALLOCATE( ZDMFE(KLON,KLEV,KENS) )
+    ALLOCATE( ZCH1TENE(KLON,KLEV,KCH1,KENS) )
+    ALLOCATE( ZPRLFLXE(KLON,KLEV,KENS) )
+    ALLOCATE( ZPRSFLXE(KLON,KLEV,KENS) )
+    ALLOCATE( ZPRLTENE(KLON,KENS) )
+    ALLOCATE( ZPRSTENE(KLON,KENS) )
+    ALLOCATE( ICLTOPE(KLON,KENS) )
+    ALLOCATE( ICLBASE(KLON,KENS) )
+    ALLOCATE( ZEDUMMY(KLON) )
+    ALLOCATE( IEDUMMY(KLON) )
+    ALLOCATE( ZWEIGHT(KENS) )
+END IF
+!
+!*       4.a  Call deep convection routine
+!             ----------------------------
+!
+IF ( ODEEP ) THEN
+!
+! 1. Base version
+!
+    CALL INI_CONVPAR
+!
+    IF ( OSETTADJ ) ZTIMEC(:) = PTADJD
+
+!
+    CALL CONVECT_DEEP( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,           &
+                          PDTCONV, KICE, OREFRESH_ALL, ODOWN, OSETTADJ,  & 
+                          PPABS, PZZ, PDXDY, ZTIMEC,                     &
+                          PT, PRV, PRC, PRI, PU, PV, PW,                 &
+                          KCOUNT, PTTEN, PRVTEN, PRCTEN, PRITEN,         &
+                          ZPRLTEN, PPRSTEN,                              &
+                          KCLTOP, KCLBAS, PPRLFLX, PPRSFLX,              & 
+                          PUMF, PDMF, PCAPE,                             &
+                          OCHTRANS, KCH1, PCH1, PCH1TEN                  )
+!
+!  2. Additional Ensemble members
+!
+    IF ( KENS > 0 ) THEN
+!
+    CALL INI_CONVPAR1
+!
+!* first member - changes in MODD_CONVPAR (cloud radius of 500 m or so)
+!                                          specified in INI_CONVPAR1
+!
+    CALL CONVECT_DEEP( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,                                   &
+                          PDTCONV, KICE, OREFRESH_ALL, ODOWN, OSETTADJ,                          & 
+                          PPABS, PZZ, PDXDY, ZTIMEC,                                             &
+                          PT, PRV, PRC, PRI, PU, PV, PW,                                         &
+                          IEDUMMY, ZTTENE(:,:,1), ZRVTENE(:,:,1), ZRCTENE(:,:,1), ZRITENE(:,:,1),&
+                          ZPRLTENE(:,1), ZPRSTENE(:,1),                                          &
+                          ICLTOPE(:,1), ICLBASE(:,1), ZPRLFLXE(:,:,1), ZPRSFLXE(:,:,1),          & 
+                          ZUMFE(:,:,1), ZDMFE(:,:,1), ZEDUMMY,                                   &
+                          OCHTRANS, KCH1, PCH1, ZCH1TENE(:,:,:,1)                                )
+    END IF
+!
+    IF ( KENS > 1 ) THEN
+!
+    CALL INI_CONVPAR
+!
+!* second member (positive vertical velocity perturb for Trigger)
+!
+    CALL CONVECT_DEEP( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,                                   &
+                          PDTCONV, KICE, OREFRESH_ALL, ODOWN, OSETTADJ,                          & 
+                          PPABS, PZZ, PDXDY, ZTIMEC,                                             &
+                          PT, PRV, PRC, PRI, PU, PV, PW*1.5+1.e-4,                               &
+                          IEDUMMY, ZTTENE(:,:,2), ZRVTENE(:,:,2), ZRCTENE(:,:,2), ZRITENE(:,:,2),&
+                          ZPRLTENE(:,2), ZPRSTENE(:,2),                                          &
+                          ICLTOPE(:,2), ICLBASE(:,2), ZPRLFLXE(:,:,2), ZPRSFLXE(:,:,2),          & 
+                          ZUMFE(:,:,2), ZDMFE(:,:,2), ZEDUMMY,                                   &
+                          OCHTRANS, KCH1, PCH1, ZCH1TENE(:,:,:,2)                                )
+    END IF
+!
+    IF ( KENS > 2 ) THEN
+!
+!* third member (negative vertical velocity perturb for Trigger)
+!
+    CALL CONVECT_DEEP( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,                                   &
+                          PDTCONV, KICE, OREFRESH_ALL, ODOWN, OSETTADJ,                          & 
+                          PPABS, PZZ, PDXDY, ZTIMEC,                                             &
+                          PT, PRV, PRC, PRI, PU, PV, PW*.5-1.e-4,                                &
+                          IEDUMMY, ZTTENE(:,:,3), ZRVTENE(:,:,3), ZRCTENE(:,:,3), ZRITENE(:,:,3),&
+                          ZPRLTENE(:,3), ZPRSTENE(:,3),                                          &
+                          ICLTOPE(:,3), ICLBASE(:,3), ZPRLFLXE(:,:,3), ZPRSFLXE(:,:,3),          & 
+                          ZUMFE(:,:,3), ZDMFE(:,:,3), ZEDUMMY,                                   &
+                          OCHTRANS, KCH1, PCH1, ZCH1TENE(:,:,:,3)                                )
+    END IF
+!
+ENDIF
+IF ( .NOT. ODEEP ) THEN
+     KCOUNT(:)  =0
+     PTTEN(:,:) =0.
+     PRVTEN(:,:)=0.
+     PRCTEN(:,:)=0.
+     PRITEN(:,:)=0.
+     PUMF(:,:)  =0.
+     PDMF(:,:)  =0.
+   ! KCLTOP(:)  =1
+   ! KCLBAS(:)  =1
+     PCH1TEN(:,:,:)=0.
+     ZPRLTEN(:)  =0.
+     PPRSTEN(:)  =0.
+     PPRLFLX(:,:)=0.
+     PPRSFLX(:,:)=0.
+     PCAPE(:)    =0.
+END IF
+!
+!*       4.b  Call shallow convection routine
+!             -------------------------------
+!
+IF ( OSHAL ) THEN
+!
+    IF ( .NOT. ODEEP ) CALL INI_CONVPAR 
+    CALL INI_CONVPAR_SHAL
+!
+    CALL CONVECT_SHALLOW( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,        &
+                             PDTCONV, KICE, OSETTADJ, PTADJS,            &
+                             PPABS, PZZ,                                 &
+                             PT, PRV, PRC, PRI, PW,                      &
+                             ZTTENS, ZRVTENS, ZRCTENS, ZRITENS,          &
+                             ICLTOPS, ICLBASS, ZUMFS,                    &
+                             OCHTRANS, KCH1, PCH1, ZCH1TENS              )
+ENDIF
+IF ( .NOT. OSHAL ) THEN
+     ZTTENS(:,:) =0.
+     ZRVTENS(:,:)=0.
+     ZRCTENS(:,:)=0.
+     ZRITENS(:,:)=0.
+     ZUMFS(:,:)  =0
+   ! ICLTOPS(:)  =1
+   ! ICLBASS(:)  =1
+     ZCH1TENS(:,:,:)=0.
+END IF
+!
+!*       5.  Add  - if activated - ensemble average values for deep 
+!            and then shallow convective tendencies
+!            ---------------------------------------------------------
+!
+ZSUM = 1.
+IF ( KENS > 0 ) THEN
+    IF ( KENS == 1 ) ZWEIGHT(:) = .5
+    IF ( KENS >  1 ) ZWEIGHT(:) = 1.
+    DO JN = 1, KENS
+       PTTEN(:,:)  = PTTEN(:,:)  + ZWEIGHT(JN) * ZTTENE(:,:,JN)
+       PRVTEN(:,:) = PRVTEN(:,:) + ZWEIGHT(JN) * ZRVTENE(:,:,JN)
+       PRCTEN(:,:) = PRCTEN(:,:) + ZWEIGHT(JN) * ZRCTENE(:,:,JN)
+       PRITEN(:,:) = PRITEN(:,:) + ZWEIGHT(JN) * ZRITENE(:,:,JN)
+       PPRLFLX(:,:)= PPRLFLX(:,:)+ ZWEIGHT(JN) * ZPRLFLXE(:,:,JN)
+       PPRSFLX(:,:)= PPRSFLX(:,:)+ ZWEIGHT(JN) * ZPRSFLXE(:,:,JN)
+       PUMF(:,:)   = PUMF(:,:)   + ZWEIGHT(JN) * ZUMFE(:,:,JN)
+       PDMF(:,:)   = PDMF(:,:)   + ZWEIGHT(JN) * ZDMFE(:,:,JN)
+       ZPRLTEN(:)  = ZPRLTEN(:)  + ZWEIGHT(JN) * ZPRLTENE(:,JN)
+       PPRSTEN(:)  = PPRSTEN(:)  + ZWEIGHT(JN) * ZPRSTENE(:,JN)
+       KCLTOP(:)   = MAX(KCLTOP(:), ICLTOPE(:,JN))
+       KCLBAS(:)   = MAX(KCLBAS(:), ICLBASE(:,JN))
+       IF ( OCHTRANS )  &
+         & PCH1TEN(:,:,:) = PCH1TEN(:,:,:) + ZWEIGHT(JN) * ZCH1TENE(:,:,:,JN)
+    END DO
+!
+    ZSUM = 1. / ( 1. + SUM( ZWEIGHT(:) ) )
+END IF
+!
+       PTTEN(:,:)  = PTTEN(:,:)  * ZSUM + ZTTENS(:,:) 
+       PRVTEN(:,:) = PRVTEN(:,:) * ZSUM + ZRVTENS(:,:)
+       PRCTEN(:,:) = PRCTEN(:,:) * ZSUM + ZRCTENS(:,:)
+       PRITEN(:,:) = PRITEN(:,:) * ZSUM + ZRITENS(:,:)
+       PPRLFLX(:,:)= PPRLFLX(:,:)* ZSUM
+       PPRSFLX(:,:)= PPRSFLX(:,:)* ZSUM
+       PUMF(:,:)   = PUMF(:,:)   * ZSUM + ZUMFS(:,:)
+       PDMF(:,:)   = PDMF(:,:)   * ZSUM
+       PPRTEN(:)   = ( ZPRLTEN(:) + PPRSTEN(:) ) * ZSUM
+       PPRSTEN(:)  = PPRSTEN(:)  * ZSUM
+       KCLTOP(:)   = MAX(KCLTOP(:), ICLTOPS(:))
+       KCLBAS(:)   = MAX(KCLBAS(:), ICLBASS(:))
+    IF ( OCHTRANS ) THEN
+          PCH1TEN(:,:,:) = PCH1TEN(:,:,:) * ZSUM + ZCH1TENS(:,:,:)
+    END IF
+!
+!*       6.  Deallocate local arrays
+!
+       DEALLOCATE( ICLBASS ); DEALLOCATE( ICLTOPS )
+       DEALLOCATE( ZUMFS )
+       DEALLOCATE( ZCH1TENS ) 
+       DEALLOCATE( ZRCTENS ); DEALLOCATE( ZRITENS ) 
+       DEALLOCATE( ZTTENS ); DEALLOCATE( ZRVTENS ) 
+
+IF ( KENS > 0 ) THEN
+       DEALLOCATE( ZTTENE );   DEALLOCATE( ZRVTENE )
+       DEALLOCATE( ZRCTENE );  DEALLOCATE( ZRITENE )
+       DEALLOCATE( ZUMFE );    DEALLOCATE( ZDMFE )
+       DEALLOCATE( ZCH1TENE )
+       DEALLOCATE( ZPRLFLXE ); DEALLOCATE( ZPRSFLXE )
+       DEALLOCATE( ZPRLTENE ); DEALLOCATE( ZPRSTENE )
+       DEALLOCATE( ZEDUMMY );  DEALLOCATE( IEDUMMY )
+       DEALLOCATE( ZWEIGHT )
+END IF
+!
+!
+END SUBROUTINE CONVECTION
+!     ######spl
+      MODULE MODD_CONVPAREXT
+!     ######################
+!
+IMPLICIT NONE
+!
+INTEGER, SAVE :: JCVEXB ! start vertical computations at
+                        ! 1 + JCVEXB = 1 + ( KBDIA - 1 )
+INTEGER, SAVE :: JCVEXT ! limit vertical computations to
+                        ! KLEV - JCVEXT = KLEV - ( KTDIA - 1 )
+!
+END MODULE MODD_CONVPAREXT
+!     ######spl
+      MODULE MODD_CST
+!     ###############
+!
+IMPLICIT NONE
+!
+REAL, SAVE :: XP00   ! reference pressure
+REAL, SAVE :: XPI    ! Pi
+REAL, SAVE ::  XG    ! gravity constant
+REAL, SAVE :: XMD    ! molecular weight of dry air
+REAL, SAVE :: XMV    ! molecular weight of water vapor
+REAL, SAVE :: XRD    ! gaz constant for dry air
+REAL, SAVE :: XRV    ! gaz constant for water vapor
+REAL, SAVE :: XCPD   ! specific heat of dry air
+REAL, SAVE :: XCPV   ! specific heat of water vapor
+REAL, SAVE :: XRHOLW ! density of liquid water
+REAL, SAVE :: XCL    ! specific heat of liquid water
+REAL, SAVE :: XCI    ! specific heat of ice
+REAL, SAVE :: XTT    ! triple point temperature
+REAL, SAVE :: XLVTT  ! latent heat of vaporisation at XTT
+REAL, SAVE :: XLSTT  ! latent heat of sublimation at XTT 
+REAL, SAVE :: XLMTT  ! latent heat of melting at XTT
+REAL, SAVE :: XESTT  ! saturation pressure at XTT
+REAL, SAVE :: XALPW  ! constants in saturation pressure over liquid water
+REAL, SAVE :: XBETAW 
+REAL, SAVE :: XGAMW 
+REAL, SAVE :: XALPI  ! constants in saturation pressure over ice
+REAL, SAVE :: XBETAI 
+REAL, SAVE :: XGAMI 
+!
+END MODULE MODD_CST
+!     ######spl
+      MODULE MODD_CONVPAR
+!     ###################
+!
+!!****  *MODD_CONVPAR* - Declaration of convection constants 
+!!
+!!    PURPOSE
+!!    -------
+!      The purpose of this declarative module is to declare  the 
+!      constants in the deep convection parameterization.    
+!
+!!
+!!**  IMPLICIT ARGUMENTS
+!!    ------------------
+!!      None 
+!!
+!!    REFERENCE
+!!    ---------
+!!      Book2 of documentation of Meso-NH (MODD_CONVPAR)
+!!          
+!!    AUTHOR
+!!    ------
+!!      P. Bechtold   *Laboratoire d'Aerologie*
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96                      
+!!   Last modified  15/11/96
+!-------------------------------------------------------------------------------
+!
+!*       0.   DECLARATIONS
+!             ------------
+!
+IMPLICIT NONE 
+!
+REAL, SAVE :: XA25        ! 25 km x 25 km reference grid area
+!
+REAL, SAVE :: XCRAD       ! cloud radius 
+REAL, SAVE :: XCDEPTH     ! minimum necessary cloud depth
+REAL, SAVE :: XENTR       ! entrainment constant (m/Pa) = 0.2 (m)  
+!
+REAL, SAVE :: XZLCL       ! maximum allowed allowed height 
+                          ! difference between departure level and surface
+REAL, SAVE :: XZPBL       ! minimum mixed layer depth to sustain convection
+REAL, SAVE :: XWTRIG      ! constant in vertical velocity trigger
+REAL, SAVE :: XDTHPBL     ! temperature perturbation in PBL for trigger
+REAL, SAVE :: XDRVPBL     ! moisture perturbation in PBL for trigger
+!
+!
+REAL, SAVE :: XNHGAM      ! accounts for non-hydrost. pressure 
+                          ! in buoyancy term of w equation
+                          ! = 2 / (1+gamma)
+REAL, SAVE :: XTFRZ1      ! begin of freezing interval
+REAL, SAVE :: XTFRZ2      ! end of freezing interval
+!
+REAL, SAVE :: XRHDBC      ! relative humidity below cloud in downdraft
+!
+REAL, SAVE :: XRCONV      ! constant in precipitation conversion 
+REAL, SAVE :: XSTABT      ! factor to assure stability in  fractional time
+                          ! integration, routine CONVECT_CLOSURE
+REAL, SAVE :: XSTABC      ! factor to assure stability in CAPE adjustment,
+                          !  routine CONVECT_CLOSURE
+REAL, SAVE :: XUSRDPTH    ! pressure thickness used to compute updraft
+                          ! moisture supply rate for downdraft
+REAL, SAVE :: XMELDPTH    ! layer (Pa) through which precipitation melt is
+                          ! allowed below  melting level
+REAL, SAVE :: XUVDP       ! constant for pressure perturb in momentum transport
+!
+END MODULE MODD_CONVPAR 
+!     ######spl
+      SUBROUTINE INI_CONVPAR
+!     ######################
+!
+!!****  *INI_CONVPAR * - routine to initialize the constants modules 
+!!
+!!    PURPOSE
+!!    -------
+!       The purpose of this routine is to initialize  the constants
+!     stored in  modules MODD_CONVPAR, MODD_CST, MODD_CONVPAREXT.
+!      
+!
+!!**  METHOD
+!!    ------
+!!      The deep convection constants are set to their numerical values 
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CONVPAR   : contains deep convection constants
+!!      Module MODD_CST       : contains physical constants
+!!
+!!    REFERENCE
+!!    ---------
+!!      Book2 of the documentation (module MODD_CONVPAR, routine INI_CONVPAR)
+!!      
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Last modified  15/04/98 adapted for ARPEGE
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAR
+USE MODD_CST
+!
+IMPLICIT NONE
+!  
+!-------------------------------------------------------------------------------
+!
+!*       1.    Set the thermodynamical and numerical constants for
+!              the deep convection parameterization
+!              ---------------------------------------------------
+!
+!
+XA25     = 625.E6    ! 25 km x 25 km reference grid area
+!
+XCRAD    = 1500.     ! cloud radius 
+XCDEPTH  = 3.E3      ! minimum necessary cloud depth
+XENTR    = 0.03      ! entrainment constant (m/Pa) = 0.2 (m)  
+!
+XZLCL    = 3.5E3     ! maximum allowed allowed height 
+                     ! difference between the surface and the LCL
+XZPBL    = 60.E2     ! minimum mixed layer depth to sustain convection
+XWTRIG   = 6.00      ! constant in vertical velocity trigger
+XDTHPBL  = .3        ! Temp. perturbation in PBL for trigger
+XDRVPBL  = 1.e-4     ! moisture  perturbation in PBL for trigger
+!
+!
+XNHGAM   = 1.3333    ! accounts for non-hydrost. pressure 
+                     ! in buoyancy term of w equation
+                     ! = 2 / (1+gamma)
+XTFRZ1   = 273.16    ! begin of freezing interval
+XTFRZ2   = 250.16    ! end of freezing interval
+!
+XRHDBC   = 0.9       ! relative humidity below cloud in downdraft
+
+XRCONV   = 0.015     ! constant in precipitation conversion 
+XSTABT   = 0.75      ! factor to assure stability in  fractional time
+                     ! integration, routine CONVECT_CLOSURE
+XSTABC   = 0.95      ! factor to assure stability in CAPE adjustment,
+                     !  routine CONVECT_CLOSURE
+XUSRDPTH = 165.E2    ! pressure thickness used to compute updraft
+                     ! moisture supply rate for downdraft
+XMELDPTH = 200.E2    ! layer (Pa) through which precipitation melt is
+                     ! allowed below downdraft
+XUVDP    = 0.7       ! constant for pressure perturb in momentum transport
+!
+!
+!*       2.    Set the fundamental thermodynamical constants
+!              these have the same values (not names) as in ARPEGE IFS 
+!              -------------------------------------------------------
+!
+!
+XP00   = 1.E5        ! reference pressure
+XPI    = 3.141592654 ! Pi
+ XG    = 9.80665     ! gravity constant
+XMD    = 28.9644E-3  ! molecular weight of dry air
+XMV    = 18.0153E-3  ! molecular weight of water vapor
+XRD    = 287.05967   ! gaz constant for dry air
+XRV    = 461.524993  ! gaz constant for water vapor
+XCPD   = 1004.708845 ! specific heat of dry air
+XCPV   = 1846.1      ! specific heat of water vapor
+XRHOLW = 1000.       ! density of liquid water
+XCL    = 4218.       ! specific heat of liquid water
+XCI    = 2106.       ! specific heat of ice
+XTT    = 273.16      ! triple point temperature
+XLVTT  = 2.5008E6    ! latent heat of vaporisation at XTT
+XLSTT  = 2.8345E6    ! latent heat of sublimation at XTT 
+XLMTT  = 0.3337E6    ! latent heat of melting at XTT
+XESTT  = 611.14      ! saturation pressure at XTT
+XALPW  = 60.22416    ! constants in saturation pressure over liquid water
+XBETAW = 6822.459384
+XGAMW  = 5.13948
+XALPI  = 32.62116    ! constants in saturation pressure over ice
+XBETAI = 6295.421
+XGAMI  = 0.56313
+!
+!
+END SUBROUTINE INI_CONVPAR 
+!     ######spl
+      SUBROUTINE INI_CONVPAR1
+!     #######################
+!
+!!****  *INI_CONVPAR * - routine to initialize the convective constants modules 
+!!                       with modifications for ensemble run.
+!!
+!!    PURPOSE
+!!    -------
+!       The purpose of this routine is to initialize  the constants
+!     stored in  modules MODD_CONVPAR, MODD_CST, MODD_CONVPAREXT.
+!      
+!
+!!**  METHOD
+!!    ------
+!!      The deep convection constants are set to their numerical values 
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CONVPAR   : contains deep convection constants
+!!
+!!    REFERENCE
+!!    ---------
+!!      Book2 of the documentation (module MODD_CONVPAR, routine INI_CONVPAR)
+!!      
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Last modified  15/04/98 adapted for ARPEGE
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAR
+!
+IMPLICIT NONE
+!  
+!-------------------------------------------------------------------------------
+!
+!*       1.    Set the thermodynamical and numerical constants for
+!              the deep convection parameterization
+!              ---------------------------------------------------
+!
+!
+XA25     = 625.E6    ! 25 km x 25 km reference grid area
+!
+XCRAD    =  500.     ! cloud radius 
+XCDEPTH  = 3.E3      ! minimum necessary cloud depth
+XENTR    = 0.03      ! entrainment constant (m/Pa) = 0.2 (m)  
+!
+XZLCL    = 3.5E3     ! maximum allowed allowed height 
+                     ! difference between the surface and the LCL
+XZPBL    = 60.E2     ! minimum mixed layer depth to sustain convection
+XWTRIG   = 6.00      ! constant in vertical velocity trigger
+XDTHPBL  = .3        ! Temp. perturbation in PBL for trigger
+XDRVPBL  = 1.e-4     ! moisture  perturbation in PBL for trigger
+!
+!
+XNHGAM   = 1.3333    ! accounts for non-hydrost. pressure 
+                     ! in buoyancy term of w equation
+                     ! = 2 / (1+gamma)
+XTFRZ1   = 273.16    ! begin of freezing interval
+XTFRZ2   = 250.16    ! end of freezing interval
+!
+XRHDBC   = 0.9       ! relative humidity below cloud in downdraft
+
+XRCONV   = 0.015     ! constant in precipitation conversion 
+XSTABT   = 0.75      ! factor to assure stability in  fractional time
+                     ! integration, routine CONVECT_CLOSURE
+XSTABC   = 0.95      ! factor to assure stability in CAPE adjustment,
+                     !  routine CONVECT_CLOSURE
+XUSRDPTH = 165.E2    ! pressure thickness used to compute updraft
+                     ! moisture supply rate for downdraft
+XMELDPTH = 200.E2    ! layer (Pa) through which precipitation melt is
+                     ! allowed below downdraft
+XUVDP    = 0.7       ! constant for pressure perturb in momentum transport
+!
+!
+END SUBROUTINE INI_CONVPAR1 
+!     ######spl
+    SUBROUTINE CONVECT_DEEP( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,           &
+                                PDTCONV, KICE, OREFRESH, ODOWN, OSETTADJ,      &
+                                PPABST, PZZ, PDXDY, PTIMEC,                    &
+                                PTT, PRVT, PRCT, PRIT, PUT, PVT, PWT,          &
+                                KCOUNT, PTTEN, PRVTEN, PRCTEN, PRITEN,         &
+                                PPRLTEN, PPRSTEN,                              &
+                                KCLTOP, KCLBAS, PPRLFLX, PPRSFLX,              &
+                                PUMF, PDMF, PCAPE,                             &
+                                OCH1CONV, KCH1, PCH1, PCH1TEN                  )
+!   ############################################################################
+!
+!!**** Monitor routine to compute all convective tendencies by calls
+!!     of several subroutines.
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the convective
+!!      tendencies. The routine first prepares all necessary grid-scale
+!!      variables. The final convective tendencies are then computed by
+!!      calls of different subroutines.
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      We start by selecting convective columns in the model domain through
+!!      the call of routine TRIGGER_FUNCT. Then, we allocate memory for the
+!!      convection updraft and downdraft variables and gather the grid scale
+!!      variables in convective arrays. 
+!!      The updraft and downdraft computations are done level by level starting
+!!      at the  bottom and top of the domain, respectively.
+!!      All computations are done on MNH thermodynamic levels. The depth
+!!      of the current model layer k is defined by DP(k)=P(k-1)-P(k)
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!    CONVECT_TRIGGER_FUNCT 
+!!    CONVECT_SATMIXRATIO
+!!    CONVECT_UPDRAFT
+!!        CONVECT_CONDENS
+!!        CONVECT_MIXING_FUNCT
+!!    CONVECT_TSTEP_PREF
+!!    CONVECT_DOWNDRAFT
+!!    CONVECT_PRECIP_ADJUST
+!!    CONVECT_CLOSURE
+!!        CONVECT_CLOSURE_THRVLCL
+!!        CONVECT_CLOSURE_ADJUST
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                   ! gravity constant
+!!          XPI                  ! number Pi
+!!          XP00                 ! reference pressure
+!!          XRD, XRV             ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV           ! specific heat for dry air and water vapor
+!!          XRHOLW               ! density of liquid water
+!!          XALPW, XBETAW, XGAMW ! constants for water saturation pressure
+!!          XTT                  ! triple point temperature
+!!          XLVTT, XLSTT         ! vaporization, sublimation heat constant
+!!          XCL, XCI             ! specific heat for liquid water and ice
+!!
+!!      Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT       ! extra levels on the vertical boundaries
+!!
+!!      Module MODD_CONVPAR
+!!          XA25                 ! reference grid area
+!!          XCRAD                ! cloud radius
+!!
+!!         
+!!    REFERENCE
+!!    ---------
+!!
+!!      Bechtold et al., 2001, Quart. J. Roy. Meteor. Soc. : 
+!!           A mass flux convection scheme for regional and global models.
+!!      Kain and Fritsch, 1990, J. Atmos. Sci., Vol. 47, 2784-2801.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol. 24, 165-170.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Peter Bechtold 04/10/97 replace theta_il by enthalpy
+!!         "        10/12/98 changes for ARPEGE
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAREXT
+USE MODD_CONVPAR
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                    INTENT(IN) :: KLON     ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV     ! vertical dimension
+INTEGER,                    INTENT(IN) :: KIDIA    ! value of the first point in x
+INTEGER,                    INTENT(IN) :: KFDIA    ! value of the last point in x
+INTEGER,                    INTENT(IN) :: KBDIA    ! vertical  computations start at
+!                                                  ! KBDIA that is at least 1
+INTEGER,                    INTENT(IN) :: KTDIA    ! vertical computations can be
+                                                   ! limited to KLEV + 1 - KTDIA
+                                                   ! default=1
+REAL,                       INTENT(IN) :: PDTCONV  ! Interval of time between two
+                                                   ! calls of the deep convection
+                                                   ! scheme
+INTEGER,                    INTENT(IN) :: KICE     ! flag for ice ( 1 = yes, 
+                                                   !                0 = no ice )
+LOGICAL,                    INTENT(IN) :: OREFRESH ! refresh or not tendencies
+						   ! at every call
+LOGICAL,                    INTENT(IN) :: ODOWN    ! take or not convective
+						   ! downdrafts into account
+LOGICAL,                    INTENT(IN) :: OSETTADJ ! logical to set convective
+                                                   ! adjustment time by user 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTT      ! grid scale temperature at t
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRVT     ! grid scale water vapor "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRCT     ! grid scale r_c  "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRIT     ! grid scale r_i "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PUT      ! grid scale horiz. wind u "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PVT      ! grid scale horiz. wind v "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PWT      ! grid scale vertical 
+						   ! velocity (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPABST   ! grid scale pressure at t
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZZ      ! height of model layer (m) 
+REAL, DIMENSION(KLON),      INTENT(IN) :: PDXDY    ! horizontal grid area (m-a2)
+REAL, DIMENSION(KLON),      INTENT(IN) :: PTIMEC   ! value of convective adjustment
+                                                   ! time if OSETTADJ=.TRUE.
+!   
+INTEGER, DIMENSION(KLON),   INTENT(INOUT):: KCOUNT ! convective counter (recompute
+                                                   ! tendency or keep it)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PTTEN  ! convective temperature
+						   ! tendency (K/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRVTEN ! convective r_v tendency (1/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRCTEN ! convective r_c tendency (1/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRITEN ! convective r_i tendency (1/s)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PPRLTEN! liquid surf. precipitation
+                                                   ! tendency (m/s)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PPRSTEN! solid surf. precipitation
+                                                   ! tendency (m/s)
+INTEGER, DIMENSION(KLON),   INTENT(INOUT):: KCLTOP ! cloud top level
+INTEGER, DIMENSION(KLON),   INTENT(INOUT):: KCLBAS ! cloud base level
+                                                   ! they are given a value of
+                                                   ! 0 if no convection
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PPRLFLX! liquid precip flux (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PPRSFLX! solid  precip flux (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUMF   ! updraft mass flux (kg/s m2)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PDMF   ! downdraft mass flux (kg/s m2)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PCAPE  ! maximum CAPE (J/kg)
+!
+LOGICAL,                    INTENT(IN) :: OCH1CONV ! include tracer transport
+INTEGER,                    INTENT(IN) :: KCH1     ! number of species
+REAL, DIMENSION(KLON,KLEV,KCH1), INTENT(IN) :: PCH1! grid scale chemical species
+REAL, DIMENSION(KLON,KLEV,KCH1), INTENT(INOUT):: PCH1TEN! species conv. tendency (1/s)
+!
+!
+!*       0.2   Declarations of local fixed memory variables :
+!
+INTEGER  :: ITEST, ICONV, ICONV1    ! number of convective columns
+INTEGER  :: IIB, IIE                ! horizontal loop bounds
+INTEGER  :: IKB, IKE                ! vertical loop bounds
+INTEGER  :: IKS                     ! vertical dimension
+INTEGER  :: JI, JL                  ! horizontal loop index
+INTEGER  :: JN                      ! number of tracers
+INTEGER  :: JK, JKP, JKM            ! vertical loop index
+INTEGER  :: IFTSTEPS                ! only used for chemical tracers
+REAL     :: ZEPS, ZEPSA, ZEPSB      ! R_d / R_v, R_v / R_d, XCPV / XCPD - ZEPSA
+REAL     :: ZCPORD, ZRDOCP          ! C_p/R_d,  R_d/C_p
+!
+LOGICAL, DIMENSION(KLON, KLEV)     :: GTRIG3 ! 3D logical mask for convection 
+LOGICAL, DIMENSION(KLON)           :: GTRIG  ! 2D logical mask for trigger test
+REAL, DIMENSION(KLON,KLEV)         :: ZTHT, ZSTHV, ZSTHES  ! grid scale theta, 
+							   ! theta_v, theta_es
+REAL, DIMENSION(KLON)              :: ZTIME  ! convective time period
+REAL, DIMENSION(KLON)              :: ZWORK2, ZWORK2B ! work array
+!
+!
+!*       0.2   Declarations of local allocatable  variables :
+!
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IDPL    ! index for parcel departure level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IPBL    ! index for source layer top
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ILCL    ! index for lifting condensation level 
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IETL    ! index for zero buoyancy level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ICTL    ! index for cloud top level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ILFS    ! index for level of free sink
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IDBL    ! index for downdraft base level  
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IML     ! melting level  
+!
+INTEGER, DIMENSION(:), ALLOCATABLE :: ISDPL   ! index for parcel departure level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ISPBL   ! index for source layer top
+INTEGER, DIMENSION(:), ALLOCATABLE :: ISLCL   ! index for lifting condensation level 
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSTHLCL ! updraft theta at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSTLCL  ! updraft temp. at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSRVLCL ! updraft rv at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSWLCL  ! updraft w at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSZLCL  ! LCL height
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSTHVELCL! envir. theta_v at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSDXDY  ! grid area (m^2)
+!
+! grid scale variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZZ      ! height of model layer (m) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZPRES   ! grid scale pressure
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDPRES  ! pressure difference between 
+                                              ! bottom and top of layer (Pa)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZU      ! grid scale horiz. u component on theta grid
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZV      ! grid scale horiz. v component on theta grid
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZW      ! grid scale vertical velocity on theta grid
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTT     ! temperature
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTH     ! grid scale theta     
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHV    ! grid scale theta_v     
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHL    ! grid scale enthalpy (J/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHES, ZTHEST ! grid scale saturated theta_e
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRW     ! grid scale total water (kg/kg) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRV     ! grid scale water vapor (kg/kg) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRC     ! grid scale cloud water (kg/kg) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRI     ! grid scale cloud ice (kg/kg) 
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZDXDY   ! grid area (m^2)
+!
+! updraft variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUMF    ! updraft mass flux (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUER    ! updraft entrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUDR    ! updraft detrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUPR    ! updraft precipitation in
+                                              ! flux units (kg water / s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUTHL   ! updraft enthalpy (J/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUTHV   ! updraft theta_v (K)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURW    ! updraft total water (kg/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURC    ! updraft cloud water (kg/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURI    ! updraft cloud ice   (kg/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURR    ! liquid precipit. (kg/kg)
+                                              ! produced in  model layer
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURS    ! solid precipit. (kg/kg)
+                                              ! produced in  model layer
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZUTPR   ! total updraft precipitation (kg/s)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZMFLCL  ! cloud base unit mass flux(kg/s) 
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZCAPE   ! available potent. energy     
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTHLCL  ! updraft theta at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTLCL   ! updraft temp. at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZRVLCL  ! updraft rv at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZWLCL   ! updraft w at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZZLCL   ! LCL height
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTHVELCL! envir. theta_v at LCL
+!
+! downdraft variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDMF    ! downdraft mass flux (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDER    ! downdraft entrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDDR    ! downdraft detrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDTHL   ! downdraft enthalpy (J/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDRW    ! downdraft total water (kg/kg)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZMIXF   ! mixed fraction at LFS        
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTPR    ! total surf precipitation (kg/s)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZSPR    ! solid surf precipitation (kg/s)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZDTEVR  ! donwndraft evapor. (kg/s)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZPREF   ! precipitation efficiency
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDTEVRF ! donwndraft evapor. (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZPRLFLX ! liquid precip flux
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZPRSFLX ! solid precip flux
+!
+! closure variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZLMASS  ! mass of model layer (kg)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTIMEA  ! advective time period
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTIMEC, ZTIMED! time during which convection is
+                                              ! active at grid point (as ZTIME)
+!
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHC    ! conv. adj. grid scale theta
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRVC    ! conv. adj. grid scale r_w 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRCC    ! conv. adj. grid scale r_c 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRIC    ! conv. adj. grid scale r_i 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZWSUB   ! envir. compensating subsidence (Pa/s)
+!
+LOGICAL, DIMENSION(:),ALLOCATABLE  :: GTRIG1  ! logical mask for convection    
+LOGICAL, DIMENSION(:),ALLOCATABLE  :: GWORK   ! logical work array
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IINDEX, IJINDEX, IJSINDEX, IJPINDEX!hor.index
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZCPH    ! specific heat C_ph 
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZLV, ZLS! latent heat of vaporis., sublim.
+REAL                               :: ZES     ! saturation vapor mixng ratio
+!
+! Chemical Tracers:
+REAL, DIMENSION(:,:,:), ALLOCATABLE:: ZCH1    ! grid scale chemical specy (kg/kg)
+REAL, DIMENSION(:,:,:), ALLOCATABLE:: ZCH1C   ! conv. adjust. chemical specy 1
+REAL, DIMENSION(:,:),   ALLOCATABLE:: ZWORK3  ! work arrays 
+LOGICAL, DIMENSION(:,:,:),ALLOCATABLE::GTRIG4 ! logical mask
+!
+!-------------------------------------------------------------------------------
+!
+!
+!*       0.3    Compute loop bounds
+!               -------------------
+!
+IIB = KIDIA
+IIE = KFDIA
+JCVEXB = MAX( 0, KBDIA - 1 )
+IKB = 1 + JCVEXB 
+IKS = KLEV
+JCVEXT = MAX( 0, KTDIA - 1 )
+IKE = IKS - JCVEXT 
+!
+!
+!*       0.5    Update convective counter ( where KCOUNT > 0 
+!               convection is still active ).
+!               ---------------------------------------------
+!
+KCOUNT(IIB:IIE) = KCOUNT(IIB:IIE) - 1 
+!
+IF ( OREFRESH ) THEN
+KCOUNT(:) = 1
+KCOUNT(IIB:IIE) = 0 ! refresh or not at every call
+END IF
+!
+GTRIG(:)  = KCOUNT(:) <= 0
+ITEST = COUNT( GTRIG(:) )
+IF ( ITEST == 0 ) RETURN  ! if convection is already active at every grid point
+                          ! exit CONVECT_DEEP
+!
+!
+!*       0.7    Reset convective tendencies to zero if convective
+!               counter becomes negative
+!               -------------------------------------------------
+!
+GTRIG3(:,:) = SPREAD( GTRIG(:), DIM=2, NCOPIES=IKS )
+WHERE ( GTRIG3(:,:) ) 
+    PTTEN(:,:)  = 0.
+    PRVTEN(:,:) = 0.
+    PRCTEN(:,:) = 0.
+    PRITEN(:,:) = 0.
+    PPRLFLX(:,:)= 0.
+    PPRSFLX(:,:)= 0.
+!   PUTEN(:,:)  = 0.
+!   PVTEN(:,:)  = 0.
+    PUMF(:,:)   = 0.
+    PDMF(:,:)   = 0.
+END WHERE
+WHERE ( GTRIG(:) ) 
+   PPRLTEN(:) = 0.
+   PPRSTEN(:) = 0.
+!  KCLTOP(:)  = 0 ! already initialized in CONVECTION
+!  KCLBAS(:)  = 0
+   PCAPE(:)   = 0.
+END WHERE
+IF ( OCH1CONV ) THEN
+   ALLOCATE( GTRIG4(KLON,KLEV,KCH1) )
+   GTRIG4(:,:,:) = SPREAD( GTRIG3(:,:), DIM=3, NCOPIES=KCH1 )
+   WHERE( GTRIG4(:,:,:) ) PCH1TEN(:,:,:) = 0.
+   DEALLOCATE( GTRIG4 )
+END IF
+!
+!
+!*       1.     Initialize  local variables
+!               ----------------------------
+!
+ZEPS   = XRD / XRV
+ZEPSA  = XRV / XRD 
+ZEPSB  = XCPV / XCPD - ZEPSA
+ZCPORD = XCPD / XRD
+ZRDOCP = XRD / XCPD
+!
+!
+!*       1.1    Set up grid scale theta, theta_v, theta_es 
+!               ------------------------------------------
+!
+ZTHT(:,:) = 300.
+ZSTHV(:,:)= 300.
+ZSTHES(:,:) = 400.
+DO JK = IKB, IKE
+DO JI = IIB, IIE
+   IF ( PPABST(JI,JK) > 40.E2 ) THEN
+      ZTHT(JI,JK)  = PTT(JI,JK) * ( XP00 / PPABST(JI,JK) ) ** ZRDOCP
+      ZSTHV(JI,JK) = ZTHT(JI,JK) * ( 1. + ZEPSA * PRVT(JI,JK) ) /              &
+                     ( 1. + PRVT(JI,JK) + PRCT(JI,JK) + PRIT(JI,JK) )
+!
+          ! use conservative Bolton (1980) formula for theta_e
+          ! it is used to compute CAPE for undilute parcel ascent
+          ! For economical reasons we do not use routine CONVECT_SATMIXRATIO here
+!
+      ZES = EXP( XALPW - XBETAW / PTT(JI,JK) - XGAMW * LOG( PTT(JI,JK) ) )
+      ZES = MIN( 1., ZEPS * ZES / ( PPABST(JI,JK) - ZES ) )
+      ZSTHES(JI,JK) = PTT(JI,JK) * ( ZTHT(JI,JK) / PTT(JI,JK) ) **             &
+                ( 1. - 0.28 * ZES ) * EXP( MIN(500.,                           &
+                                           ( 3374.6525 / PTT(JI,JK) - 2.5403 ) &
+                                          * ZES * ( 1. + 0.81 * ZES ) ) )
+   END IF
+END DO
+END DO
+!
+!
+!
+!*       2.     Test for convective columns and determine properties at the LCL 
+!               --------------------------------------------------------------
+!
+!*       2.1    Allocate arrays depending on number of model columns that need
+!               to be tested for convection (i.e. where no convection is present
+!               at the moment.
+!               --------------------------------------------------------------
+!
+     ALLOCATE( ZPRES(ITEST,IKS) )
+     ALLOCATE( ZZ(ITEST,IKS) )
+     ALLOCATE( ZW(ITEST,IKS) )
+     ALLOCATE( ZTH(ITEST,IKS) )
+     ALLOCATE( ZTHV(ITEST,IKS) )
+     ALLOCATE( ZTHEST(ITEST,IKS) )
+     ALLOCATE( ZRV(ITEST,IKS) )
+     ALLOCATE( ZSTHLCL(ITEST) )
+     ALLOCATE( ZSTLCL(ITEST) )
+     ALLOCATE( ZSRVLCL(ITEST) )
+     ALLOCATE( ZSWLCL(ITEST) )
+     ALLOCATE( ZSZLCL(ITEST) )
+     ALLOCATE( ZSTHVELCL(ITEST) )
+     ALLOCATE( ISDPL(ITEST) )
+     ALLOCATE( ISPBL(ITEST) )
+     ALLOCATE( ISLCL(ITEST) )
+     ALLOCATE( ZSDXDY(ITEST) )
+     ALLOCATE( GTRIG1(ITEST) )
+     ALLOCATE( ZCAPE(ITEST) )
+     ALLOCATE( IINDEX(KLON) )
+     ALLOCATE( IJSINDEX(ITEST) )
+     DO JI = 1, KLON
+        IINDEX(JI) = JI
+     END DO
+     IJSINDEX(:) = PACK( IINDEX(:), MASK=GTRIG(:) )
+!
+  DO JK = IKB, IKE
+  DO JI = 1, ITEST
+     JL = IJSINDEX(JI)
+     ZPRES(JI,JK)  = PPABST(JL,JK)
+     ZZ(JI,JK)     = PZZ(JL,JK)
+     ZTH(JI,JK)    = ZTHT(JL,JK)
+     ZTHV(JI,JK)   = ZSTHV(JL,JK)
+     ZTHEST(JI,JK) = ZSTHES(JL,JK)
+     ZRV(JI,JK)    = MAX( 0., PRVT(JL,JK) )
+     ZW(JI,JK)     = PWT(JL,JK)
+  END DO
+  END DO
+  DO JI = 1, ITEST
+     JL = IJSINDEX(JI)
+     ZSDXDY(JI)    = PDXDY(JL)
+  END DO
+!
+!*       2.2    Compute environm. enthalpy and total water = r_v + r_i + r_c 
+!               and envir. saturation theta_e
+!               ------------------------------------------------------------
+!
+!
+!*       2.3    Test for convective columns and determine properties at the LCL 
+!               --------------------------------------------------------------
+!
+     ISLCL(:) = MAX( IKB, 2 )   ! initialize DPL PBL and LCL 
+     ISDPL(:) = IKB
+     ISPBL(:) = IKB
+!
+!
+     CALL CONVECT_TRIGGER_FUNCT( ITEST, KLEV,                              &
+                                 ZPRES, ZTH, ZTHV, ZTHEST,                 &
+                                 ZRV, ZW, ZZ, ZSDXDY,                      &
+                                 ZSTHLCL, ZSTLCL, ZSRVLCL, ZSWLCL, ZSZLCL, &
+                                 ZSTHVELCL, ISLCL, ISDPL, ISPBL, GTRIG1,   &
+                                 ZCAPE )
+!
+     DO JI = 1, ITEST
+        JL = IJSINDEX(JI)
+        PCAPE(JL) = ZCAPE(JI)
+     END DO
+!
+     DEALLOCATE( ZPRES )
+     DEALLOCATE( ZZ )
+     DEALLOCATE( ZTH )
+     DEALLOCATE( ZTHV )
+     DEALLOCATE( ZTHEST )
+     DEALLOCATE( ZRV )
+     DEALLOCATE( ZW )
+     DEALLOCATE( ZCAPE )
+!
+!
+!*       3.     After the call of TRIGGER_FUNCT we allocate all the dynamic
+!               arrays used in the convection scheme using the mask GTRIG, i.e.
+!               we do calculus only in convective columns. This corresponds to
+!               a GATHER operation.
+!               --------------------------------------------------------------
+!
+     ICONV = COUNT( GTRIG1(:) )
+     IF ( ICONV == 0 )  THEN 
+         DEALLOCATE( ZSTHLCL )
+         DEALLOCATE( ZSTLCL )
+         DEALLOCATE( ZSRVLCL )
+         DEALLOCATE( ZSWLCL )
+         DEALLOCATE( ZSZLCL )
+         DEALLOCATE( ZSTHVELCL )
+         DEALLOCATE( ZSDXDY )
+         DEALLOCATE( ISLCL )
+         DEALLOCATE( ISDPL )
+         DEALLOCATE( ISPBL )
+         DEALLOCATE( GTRIG1 )
+         DEALLOCATE( IINDEX )
+         DEALLOCATE( IJSINDEX )
+         RETURN   ! no convective column has been found, exit CONVECT_DEEP
+     ENDIF
+!
+     ! vertical index variables
+!
+         ALLOCATE( IDPL(ICONV) )
+         ALLOCATE( IPBL(ICONV) )
+         ALLOCATE( ILCL(ICONV) )
+         ALLOCATE( ICTL(ICONV) )
+         ALLOCATE( IETL(ICONV) )
+!
+	 ! grid scale variables
+!
+         ALLOCATE( ZZ(ICONV,IKS) )
+         ALLOCATE( ZPRES(ICONV,IKS) )
+         ALLOCATE( ZDPRES(ICONV,IKS) )
+         ALLOCATE( ZU(ICONV,IKS) )
+         ALLOCATE( ZV(ICONV,IKS) )
+         ALLOCATE( ZTT(ICONV, IKS) )
+         ALLOCATE( ZTH(ICONV,IKS) )
+         ALLOCATE( ZTHV(ICONV,IKS) )
+         ALLOCATE( ZTHL(ICONV,IKS) )
+         ALLOCATE( ZTHES(ICONV,IKS) )
+         ALLOCATE( ZRV(ICONV,IKS) )
+         ALLOCATE( ZRC(ICONV,IKS) )
+         ALLOCATE( ZRI(ICONV,IKS) )
+         ALLOCATE( ZRW(ICONV,IKS) )
+         ALLOCATE( ZDXDY(ICONV) )
+!
+         ! updraft variables
+!
+         ALLOCATE( ZUMF(ICONV,IKS) )
+         ALLOCATE( ZUER(ICONV,IKS) )
+         ALLOCATE( ZUDR(ICONV,IKS) )
+         ALLOCATE( ZUPR(ICONV,IKS) )
+         ALLOCATE( ZUTHL(ICONV,IKS) )
+         ALLOCATE( ZUTHV(ICONV,IKS) )
+         ALLOCATE( ZURW(ICONV,IKS) )
+         ALLOCATE( ZURC(ICONV,IKS) )
+         ALLOCATE( ZURI(ICONV,IKS) )
+         ALLOCATE( ZURR(ICONV,IKS) )
+         ALLOCATE( ZURS(ICONV,IKS) )
+         ALLOCATE( ZUTPR(ICONV) )
+         ALLOCATE( ZTHLCL(ICONV) )
+         ALLOCATE( ZTLCL(ICONV) )
+         ALLOCATE( ZRVLCL(ICONV) )
+         ALLOCATE( ZWLCL(ICONV) )
+         ALLOCATE( ZMFLCL(ICONV) )
+         ALLOCATE( ZZLCL(ICONV) )
+         ALLOCATE( ZTHVELCL(ICONV) )
+         ALLOCATE( ZCAPE(ICONV) )
+!
+         ! work variables
+!
+         ALLOCATE( IJINDEX(ICONV) )
+         ALLOCATE( IJPINDEX(ICONV) )
+         ALLOCATE( ZCPH(ICONV) )
+         ALLOCATE( ZLV(ICONV) )
+         ALLOCATE( ZLS(ICONV) )
+!
+!
+!*           3.1    Gather grid scale and updraft base variables in
+!                   arrays using mask GTRIG
+!                   ---------------------------------------------------
+!
+         GTRIG(:)      = UNPACK( GTRIG1(:), MASK=GTRIG(:), FIELD=.FALSE. )  
+         IJINDEX(:)    = PACK( IINDEX(:), MASK=GTRIG(:) )
+!
+    DO JK = IKB, IKE
+    DO JI = 1, ICONV
+         JL = IJINDEX(JI)
+         ZZ(JI,JK)     = PZZ(JL,JK)
+         ZPRES(JI,JK)  = PPABST(JL,JK)
+         ZTT(JI,JK)    = PTT(JL,JK)
+         ZTH(JI,JK)    = ZTHT(JL,JK)
+         ZTHES(JI,JK)  = ZSTHES(JL,JK)
+         ZRV(JI,JK)    = MAX( 0., PRVT(JL,JK) )
+         ZRC(JI,JK)    = MAX( 0., PRCT(JL,JK) )
+         ZRI(JI,JK)    = MAX( 0., PRIT(JL,JK) )
+         ZTHV(JI,JK)   = ZSTHV(JL,JK)
+         ZU(JI,JK)     = PUT(JL,JK)
+         ZV(JI,JK)     = PVT(JL,JK)
+    END DO
+    END DO
+    IF ( OSETTADJ ) THEN
+         ALLOCATE( ZTIMED(ICONV) )
+         DO JI = 1, ICONV
+            JL = IJINDEX(JI)
+            ZTIMED(JI) = PTIMEC(JL)
+         END DO
+    END IF
+!
+    DO JI = 1, ITEST
+       IJSINDEX(JI) = JI	
+    END DO
+    IJPINDEX(:) = PACK( IJSINDEX(:), MASK=GTRIG1(:) )
+    DO JI = 1, ICONV
+         JL = IJPINDEX(JI)
+         IDPL(JI)      = ISDPL(JL)
+         IPBL(JI)      = ISPBL(JL)
+         ILCL(JI)      = ISLCL(JL)
+         ZTHLCL(JI)    = ZSTHLCL(JL)
+         ZTLCL(JI)     = ZSTLCL(JL)
+         ZRVLCL(JI)    = ZSRVLCL(JL)
+         ZWLCL(JI)     = ZSWLCL(JL)
+         ZZLCL(JI)     = ZSZLCL(JL)
+         ZTHVELCL(JI)  = ZSTHVELCL(JL)
+         ZDXDY(JI)     = ZSDXDY(JL)
+    END DO
+         ALLOCATE( GWORK(ICONV) )
+         GWORK(:)      = PACK( GTRIG1(:),  MASK=GTRIG1(:) ) 
+         DEALLOCATE( GTRIG1 )
+         ALLOCATE( GTRIG1(ICONV) )
+         GTRIG1(:)     = GWORK(:)
+!                 
+         DEALLOCATE( GWORK )
+         DEALLOCATE( IJPINDEX )
+         DEALLOCATE( ISDPL )
+         DEALLOCATE( ISPBL )
+         DEALLOCATE( ISLCL )
+         DEALLOCATE( ZSTHLCL )
+         DEALLOCATE( ZSTLCL )
+         DEALLOCATE( ZSRVLCL )
+         DEALLOCATE( ZSWLCL )
+         DEALLOCATE( ZSZLCL )
+         DEALLOCATE( ZSTHVELCL )
+         DEALLOCATE( ZSDXDY )
+!
+!
+!*           3.2    Compute pressure difference 
+!                   ---------------------------------------------------
+!
+        ZDPRES(:,IKB) = 0.
+        DO JK = IKB + 1, IKE
+            ZDPRES(:,JK)  = ZPRES(:,JK-1) - ZPRES(:,JK)
+        END DO
+!
+!*           3.3   Compute environm. enthalpy and total water = r_v + r_i + r_c 
+!                  ----------------------------------------------------------
+!
+        DO JK = IKB, IKE, 1
+            ZRW(:,JK)  = ZRV(:,JK) + ZRC(:,JK) + ZRI(:,JK)
+            ZCPH(:)    = XCPD + XCPV * ZRW(:,JK)
+            ZLV(:)     = XLVTT + ( XCPV - XCL ) * ( ZTT(:,JK) - XTT ) ! compute L_v
+            ZLS(:)     = XLSTT + ( XCPV - XCI ) * ( ZTT(:,JK) - XTT ) ! compute L_i
+            ZTHL(:,JK) = ZCPH(:) * ZTT(:,JK) + ( 1. + ZRW(:,JK) ) * XG * ZZ(:,JK) &
+                         - ZLV(:) * ZRC(:,JK) - ZLS(:) * ZRI(:,JK)
+        END DO
+!
+!
+!*           4.     Compute updraft properties 
+!                   ----------------------------
+!
+!*           4.1    Set mass flux at LCL ( here a unit mass flux with w = 1 m/s ) 
+!                   -------------------------------------------------------------
+!
+         DO JI = 1, ICONV
+               JK = ILCL(JI) - 1
+               ZMFLCL(JI) = ZPRES(JI,JK) / ( XRD * ZTT(JI,JK) *                &
+                         ( 1. + ZEPS * ZRVLCL(JI) ) ) * XPI * XCRAD * XCRAD 
+         END DO
+!
+         DEALLOCATE( ZCPH )
+         DEALLOCATE( ZLV )
+         DEALLOCATE( ZLS )
+!
+!
+     CALL CONVECT_UPDRAFT( ICONV, KLEV,                                     &
+                           KICE, ZPRES, ZDPRES, ZZ, ZTHL, ZTHV, ZTHES, ZRW, &
+                           ZTHLCL, ZTLCL, ZRVLCL, ZWLCL, ZZLCL, ZTHVELCL,   & 
+                           ZMFLCL, GTRIG1, ILCL, IDPL, IPBL,                &
+                           ZUMF, ZUER, ZUDR, ZUTHL, ZUTHV, ZURW,            &
+                           ZURC, ZURI, ZURR, ZURS, ZUPR,                    &
+                           ZUTPR, ZCAPE, ICTL, IETL                         )
+!
+!
+!
+!*           4.2    In routine UPDRAFT GTRIG1 has been set to false when cloud 
+!                   thickness is smaller than 3 km
+!                   -----------------------------------------------------------
+!
+!
+     ICONV1 = COUNT(GTRIG1) 
+!
+     IF ( ICONV1 > 0 )  THEN
+!
+!*       4.3    Allocate memory for downdraft variables
+!               ---------------------------------------
+!
+! downdraft variables
+!
+        ALLOCATE( ILFS(ICONV) )
+        ALLOCATE( IDBL(ICONV) )
+        ALLOCATE( IML(ICONV) )
+        ALLOCATE( ZDMF(ICONV,IKS) )
+        ALLOCATE( ZDER(ICONV,IKS) )
+        ALLOCATE( ZDDR(ICONV,IKS) )
+        ALLOCATE( ZDTHL(ICONV,IKS) )
+        ALLOCATE( ZDRW(ICONV,IKS) )
+        ALLOCATE( ZLMASS(ICONV,IKS) )
+        DO JK = IKB, IKE
+           ZLMASS(:,JK)  = ZDXDY(:) * ZDPRES(:,JK) / XG  ! mass of model layer
+        END DO
+	ZLMASS(:,IKB) = ZLMASS(:,IKB+1)
+        ALLOCATE( ZMIXF(ICONV) )
+        ALLOCATE( ZTPR(ICONV) )
+        ALLOCATE( ZSPR(ICONV) )
+        ALLOCATE( ZDTEVR(ICONV) )
+        ALLOCATE( ZPREF(ICONV) )
+        ALLOCATE( ZDTEVRF(ICONV,IKS) )
+        ALLOCATE( ZPRLFLX(ICONV,IKS) )
+        ALLOCATE( ZPRSFLX(ICONV,IKS) )
+!
+! closure variables
+!
+        ALLOCATE( ZTIMEA(ICONV) )
+        ALLOCATE( ZTIMEC(ICONV) )
+        ALLOCATE( ZTHC(ICONV,IKS) )
+        ALLOCATE( ZRVC(ICONV,IKS) )
+        ALLOCATE( ZRCC(ICONV,IKS) )
+        ALLOCATE( ZRIC(ICONV,IKS) )
+        ALLOCATE( ZWSUB(ICONV,IKS) )
+!
+!
+!*           5.     Compute downdraft properties 
+!                   ----------------------------
+!
+!*           5.1    Compute advective time period and precipitation 
+!                   efficiency as a function of mean ambient wind (shear) 
+!                   --------------------------------------------------------
+!
+        CALL CONVECT_TSTEP_PREF( ICONV, KLEV,                          &
+                                 ZU, ZV, ZPRES, ZZ, ZDXDY, ILCL, ICTL, &
+                                 ZTIMEA, ZPREF )
+!
+          ! exclude convective downdrafts if desired
+        IF ( .NOT. ODOWN ) ZPREF(:) = 1.
+!
+          ! Compute the period during which convection is active
+        ZTIMEC(:) = MAX( 1800., MIN( 3600., ZTIMEA(:) ) )
+        ZTIMEC(:) = REAL( INT( ZTIMEC(:) / PDTCONV ) ) * PDTCONV
+        ZTIMEC(:) = MAX( PDTCONV, ZTIMEC(:) ) ! necessary if PDTCONV > 1800
+        IF ( OSETTADJ ) THEN
+             ZTIMEC(:) = MAX( PDTCONV, ZTIMED(:) )
+        END IF
+!
+!
+!*           5.2    Compute melting level
+!                   ----------------------
+!
+        IML(:) = IKB
+        DO JK = IKE, IKB, -1
+          WHERE( ZTT(:,JK) <= XTT )  IML(:) = JK
+        END DO
+!
+        CALL CONVECT_DOWNDRAFT( ICONV, KLEV,                               &
+                                KICE, ZPRES, ZDPRES, ZZ, ZTH, ZTHES,       & 
+                                ZRW, ZRC, ZRI,                             &
+                                ZPREF, ILCL, ICTL, IETL,                   &
+                                ZUTHL, ZURW, ZURC, ZURI,                   &
+                                ZDMF, ZDER, ZDDR, ZDTHL, ZDRW,             &
+                                ZMIXF, ZDTEVR, ILFS, IDBL, IML,            &
+                                ZDTEVRF                                    )
+!
+!
+!*           6.     Adjust up and downdraft mass flux to be consistent
+!                   with precipitation efficiency relation.
+!                   --------------------------------------------------- 
+!
+       CALL CONVECT_PRECIP_ADJUST( ICONV, KLEV,                              &
+                                   ZPRES,ZUMF, ZUER, ZUDR, ZUPR, ZUTPR, ZURW,&
+                                   ZDMF, ZDER, ZDDR, ZDTHL, ZDRW,            &
+                                   ZPREF, ZTPR, ZMIXF, ZDTEVR,               &
+                                   ILFS, IDBL, ILCL, ICTL, IETL,             &
+                                   ZDTEVRF                                   )
+!
+!
+!*           7.     Determine adjusted environmental values assuming
+!                   that all available buoyant energy must be removed
+!                   within an advective time step ZTIMEC.
+!                   ---------------------------------------------------
+!
+       CALL CONVECT_CLOSURE( ICONV, KLEV,                                &
+                             ZPRES, ZDPRES, ZZ, ZDXDY, ZLMASS,           &
+                             ZTHL, ZTH, ZRW, ZRC, ZRI, GTRIG1,           &
+                             ZTHC, ZRVC, ZRCC, ZRIC, ZWSUB,              &
+                             ILCL, IDPL, IPBL, ILFS, ICTL, IML,          &
+                             ZUMF, ZUER, ZUDR, ZUTHL, ZURW,              &
+                             ZURC, ZURI, ZUPR,                           &
+                             ZDMF, ZDER, ZDDR, ZDTHL, ZDRW,              &
+                             ZTPR, ZSPR, ZDTEVR,                         &
+                             ZCAPE, ZTIMEC,                              &
+                             IFTSTEPS,                                   &
+                             ZDTEVRF, ZPRLFLX, ZPRSFLX )
+!
+
+ 
+!
+!*           8.     Determine the final grid-scale (environmental) convective 
+!                   tendencies and set convective counter
+!                   --------------------------------------------------------
+!
+!
+!*           8.1    Grid scale tendencies
+!                   ---------------------
+!
+          ! in order to save memory, the tendencies are temporarily stored
+          ! in the tables for the adjusted grid-scale values
+!
+      DO JK = IKB, IKE
+         ZTHC(:,JK) = ( ZTHC(:,JK) - ZTH(:,JK) ) / ZTIMEC(:)             &
+           * ( ZPRES(:,JK) / XP00 ) ** ZRDOCP ! change theta in temperature
+         ZRVC(:,JK) = ( ZRVC(:,JK) - ZRW(:,JK) + ZRC(:,JK) + ZRI(:,JK) ) &
+					         / ZTIMEC(:) 
+
+         ZRCC(:,JK) = ( ZRCC(:,JK) - ZRC(:,JK) ) / ZTIMEC(:)
+         ZRIC(:,JK) = ( ZRIC(:,JK) - ZRI(:,JK) ) / ZTIMEC(:) 
+!
+         ZPRLFLX(:,JK) = ZPRLFLX(:,JK) / ( XRHOLW * ZDXDY(:) )
+         ZPRSFLX(:,JK) = ZPRSFLX(:,JK) / ( XRHOLW * ZDXDY(:) )
+!
+      END DO
+!
+      ZPRLFLX(:,IKB) = ZPRLFLX(:,IKB+1)
+      ZPRSFLX(:,IKB) = ZPRSFLX(:,IKB+1)
+!
+!
+!*           8.2    Apply conservation correction
+!                   -----------------------------
+!
+          ! Compute vertical integrals
+!
+       JKM = MAXVAL( ICTL(:) )
+       ZWORK2(:) = 0.
+       ZWORK2B(:) = 0.
+       DO JK = JKM, IKB+1, -1
+	 JKP = JK + 1
+         DO JI = 1, ICONV
+           ZWORK2(JI) = ZWORK2(JI) + ( ZRVC(JI,JK) + ZRCC(JI,JK) + ZRIC(JI,JK) ) *   & ! moisture
+                                             (ZPRES(JI,JK) - ZPRES(JI,JKP)) / XG
+      !    ZWORK2B(JI) = ZWORK2B(JI) + (                                             & ! energy
+      !                                ( XCPD + XCPV * ZRW(JI,JK) )* ZTHC(JI,JK)   - &
+      !          ( XLVTT + ( XCPV - XCL ) * ( ZTT(JI,JK) - XTT ) ) * ZRCC(JI,JK)   - & 
+      !          ( XLSTT + ( XCPV - XCL ) * ( ZTT(JI,JK) - XTT ) ) * ZRIC(JI,JK) ) * & 
+      !                                      (ZPRES(JI,JK) - ZPRES(JI,JKP)) / XG
+         END DO
+       END DO
+!
+          ! Budget error (compare integral to surface precip.)
+!
+       DO JI = 1, ICONV
+         IF ( ZTPR(JI) > 0.) THEN
+           JKP = ICTL(JI) + 1
+           ZWORK2(JI) = ( ZTPR(JI) / ZDXDY(JI) + ZWORK2(JI) ) * XG /                 &
+                                        ( ZPRES(JI,IKB+1) - ZPRES(JI,JKP) )
+      !    ZWORK2B(JI) = ( ZTPR(JI) / ZDXDY(JI) *                                    &
+      !       ( XLVTT + ( XCPV - XCL ) * ( ZTT(JI,IKB) - XTT ) ) - ZWORK2B(JI) )     &
+      !                                * XG / ( ZPRES(JI,IKB+1) - ZPRES(JI,JKP) )
+         END IF
+       END DO
+!
+          ! Apply uniform correction
+!
+       DO JK = JKM, IKB+1, -1
+         DO JI = 1, ICONV
+           IF ( ZTPR(JI) > 0. .AND. JK <= ICTL(JI) ) THEN
+                ZRVC(JI,JK) = ZRVC(JI,JK) - ZWORK2(JI)                                ! moisture
+       !        ZTHC(JI,JK) = ZTHC(JI,JK) + ZWORK2B(JI) / ( XCPD + XCPV * ZRW(JI,JK) )! energy
+           END IF
+         END DO
+       END DO
+!
+!
+
+              ! execute a "scatter"= pack command to store the tendencies in
+              ! the final 2D tables
+!
+      DO JK = IKB, IKE
+      DO JI = 1, ICONV
+         JL = IJINDEX(JI)
+         PTTEN(JL,JK)   = ZTHC(JI,JK)
+         PRVTEN(JL,JK)  = ZRVC(JI,JK)
+         PRCTEN(JL,JK)  = ZRCC(JI,JK)
+         PRITEN(JL,JK)  = ZRIC(JI,JK)
+!
+         PPRLFLX(JL,JK) = ZPRLFLX(JI,JK)
+         PPRSFLX(JL,JK) = ZPRSFLX(JI,JK)
+      END DO
+      END DO
+!
+!
+!
+!
+!*           8.3    Convective rainfall tendency
+!                   ----------------------------
+!
+	         ! liquid and solid surface rainfall tendency in m/s
+       ZTPR(:)   = ZTPR(:) / ( XRHOLW * ZDXDY(:) ) ! total surf precip
+       ZSPR(:)   = ZSPR(:) / ( XRHOLW * ZDXDY(:) ) ! solid surf precip
+       ZTPR(:)   = ZTPR(:) - ZSPR(:) ! compute liquid part
+!
+     DO JI = 1, ICONV
+        JL = IJINDEX(JI)
+        PPRLTEN(JL) = ZTPR(JI)
+        PPRSTEN(JL) = ZSPR(JI)
+     END DO
+!
+!
+!                   Cloud base and top levels
+!                   -------------------------
+!
+     ILCL(:) = MIN( ILCL(:), ICTL(:) )
+     DO JI = 1, ICONV
+        JL = IJINDEX(JI)
+        KCLTOP(JL) = ICTL(JI)
+        KCLBAS(JL) = ILCL(JI)
+     END DO
+!
+!
+!*           8.4    Set convective counter
+!                   ----------------------
+!
+	 ! compute convective counter for just activated convective
+         ! grid points
+         ! If the advective time period is less than specified
+         ! minimum for convective period, allow feedback to occur only
+         ! during advective time
+!
+     ZTIME(:) = 1.
+     ZWORK2(:) = 0.
+     DO JI = 1, ICONV
+       JL = IJINDEX(JI)
+       ZTIME(JL)  =  ZTIMEC(JI)
+       ZWORK2(JL) =  ZTIMEA(JI)
+       ZWORK2(JL) =  MIN( ZWORK2(JL), ZTIME(JL) )
+       ZWORK2(JL) =  MAX( ZWORK2(JL), PDTCONV )
+       IF ( GTRIG(JL) )  KCOUNT(JL) = INT( ZWORK2(JL) / PDTCONV )
+       IF ( GTRIG(JL) .AND. PPRLTEN(JL)<1.E-14 ) KCOUNT(JL) = 0
+     END DO
+!
+!
+!
+!*           8.7    Compute convective tendencies for Tracers
+!                   ------------------------------------------
+!
+  IF ( OCH1CONV ) THEN
+!
+       ALLOCATE( ZCH1(ICONV,IKS,KCH1) )
+       ALLOCATE( ZCH1C(ICONV,IKS,KCH1) )
+       ALLOCATE( ZWORK3(ICONV,KCH1) )
+!
+       DO JK = IKB, IKE
+       DO JI = 1, ICONV
+          JL = IJINDEX(JI)
+          ZCH1(JI,JK,:) = PCH1(JL,JK,:)
+       END DO
+       END DO
+!
+      CALL CONVECT_CHEM_TRANSPORT( ICONV, KLEV, KCH1, ZCH1, ZCH1C,      &
+                                   IDPL, IPBL, ILCL, ICTL, ILFS, IDBL,  &
+                                   ZUMF, ZUER, ZUDR, ZDMF, ZDER, ZDDR,  &
+                                   ZTIMEC, ZDXDY, ZMIXF, ZLMASS, ZWSUB, &
+				   IFTSTEPS )
+!
+       DO JK = IKB, IKE
+       DO JN = 1, KCH1
+          ZCH1C(:,JK,JN) = ( ZCH1C(:,JK,JN)- ZCH1(:,JK,JN) ) / ZTIMEC(:)
+       END DO
+       END DO
+!
+!*           8.8    Apply conservation correction
+!                   -----------------------------
+!
+          ! Compute vertical integrals
+!
+       JKM = MAXVAL( ICTL(:) )
+       ZWORK3(:,:) = 0.
+       DO JK = JKM, IKB+1, -1
+	 JKP = JK + 1
+         DO JI = 1, ICONV
+           ZWORK3(JI,:) = ZWORK3(JI,:) + ZCH1C(JI,JK,:) *                    &
+                              (ZPRES(JI,JK) - ZPRES(JI,JKP)) / XG
+         END DO
+       END DO
+!
+          ! Mass error (integral must be zero)
+!
+       DO JI = 1, ICONV
+         IF ( ZTPR(JI) > 0.) THEN
+           JKP = ICTL(JI) + 1
+           ZWORK3(JI,:) = ZWORK3(JI,:) *                                     &
+                                    XG / ( ZPRES(JI,IKB+1) - ZPRES(JI,JKP) )
+         END IF
+       END DO
+!
+          ! Apply uniform correction but assure positive mass at each level
+!
+       DO JK = JKM, IKB+1, -1
+         DO JI = 1, ICONV
+           IF ( ZTPR(JI) > 0. .AND. JK <= ICTL(JI) ) THEN
+                ZCH1C(JI,JK,:) = ZCH1C(JI,JK,:) - ZWORK3(JI,:)
+                ZCH1C(JI,JK,:) = MAX( ZCH1C(JI,JK,:), -ZCH1(JI,JK,:)/ZTIMEC(JI) )
+           END IF
+         END DO
+       END DO
+!
+       DO JK = IKB, IKE
+       DO JI = 1, ICONV
+          JL = IJINDEX(JI)
+          PCH1TEN(JL,JK,:) = ZCH1C(JI,JK,:)
+       END DO
+       END DO
+  END IF
+!
+!
+!*           9.     Write up- and downdraft mass fluxes
+!                   ------------------------------------
+!
+    DO JK = IKB, IKE
+       ZUMF(:,JK)  = ZUMF(:,JK) / ZDXDY(:) ! Mass flux per unit area
+       ZDMF(:,JK)  = ZDMF(:,JK) / ZDXDY(:)
+    END DO
+    ZWORK2(:) = 1.
+    WHERE ( PPRLTEN(:)<1.E-14 ) ZWORK2(:) = 0.
+    DO JK = IKB, IKE
+    DO JI = 1, ICONV
+       JL = IJINDEX(JI)
+       PUMF(JL,JK) = ZUMF(JI,JK) * ZWORK2(JL)
+       PDMF(JL,JK) = ZDMF(JI,JK) * ZWORK2(JL)
+    END DO
+    END DO
+!
+!
+!*           10.    Deallocate all local arrays
+!                   ---------------------------
+!
+! downdraft variables
+!
+      DEALLOCATE( ZDMF )
+      DEALLOCATE( ZDER )
+      DEALLOCATE( ZDDR )
+      DEALLOCATE( ZDTHL )
+      DEALLOCATE( ZDRW )
+      DEALLOCATE( ZLMASS )
+      DEALLOCATE( ZMIXF )
+      DEALLOCATE( ZTPR )
+      DEALLOCATE( ZSPR )
+      DEALLOCATE( ZDTEVR )
+      DEALLOCATE( ZPREF )
+      DEALLOCATE( IML )
+      DEALLOCATE( ILFS )
+      DEALLOCATE( IDBL )
+      DEALLOCATE( ZDTEVRF )
+      DEALLOCATE( ZPRLFLX )
+      DEALLOCATE( ZPRSFLX )
+!
+!   closure variables
+!
+      DEALLOCATE( ZTIMEA )
+      DEALLOCATE( ZTIMEC )
+      DEALLOCATE( ZTHC )
+      DEALLOCATE( ZRVC )
+      DEALLOCATE( ZRCC )
+      DEALLOCATE( ZRIC )
+      DEALLOCATE( ZWSUB )
+!
+       IF ( OCH1CONV ) THEN
+           DEALLOCATE( ZCH1 )
+           DEALLOCATE( ZCH1C )
+           DEALLOCATE( ZWORK3 )
+       END IF
+!
+    ENDIF
+!
+!    vertical index
+!
+    DEALLOCATE( IDPL )
+    DEALLOCATE( IPBL )
+    DEALLOCATE( ILCL )
+    DEALLOCATE( ICTL )
+    DEALLOCATE( IETL )
+!
+! grid scale variables
+!
+    DEALLOCATE( ZZ )
+    DEALLOCATE( ZPRES )
+    DEALLOCATE( ZDPRES )
+    DEALLOCATE( ZU )
+    DEALLOCATE( ZV )
+    DEALLOCATE( ZTT )
+    DEALLOCATE( ZTH )
+    DEALLOCATE( ZTHV )
+    DEALLOCATE( ZTHL )
+    DEALLOCATE( ZTHES )
+    DEALLOCATE( ZRW )
+    DEALLOCATE( ZRV )
+    DEALLOCATE( ZRC )
+    DEALLOCATE( ZRI )
+    DEALLOCATE( ZDXDY )
+!
+! updraft variables
+!
+    DEALLOCATE( ZUMF )
+    DEALLOCATE( ZUER )
+    DEALLOCATE( ZUDR )
+    DEALLOCATE( ZUTHL )
+    DEALLOCATE( ZUTHV )
+    DEALLOCATE( ZURW )
+    DEALLOCATE( ZURC )
+    DEALLOCATE( ZURI )
+    DEALLOCATE( ZURR )
+    DEALLOCATE( ZURS )
+    DEALLOCATE( ZUPR )
+    DEALLOCATE( ZUTPR )
+    DEALLOCATE( ZTHLCL )
+    DEALLOCATE( ZTLCL )
+    DEALLOCATE( ZRVLCL )
+    DEALLOCATE( ZWLCL )
+    DEALLOCATE( ZZLCL )
+    DEALLOCATE( ZTHVELCL )
+    DEALLOCATE( ZMFLCL )
+    DEALLOCATE( ZCAPE )
+    IF ( OSETTADJ ) DEALLOCATE( ZTIMED )
+!
+! work arrays
+!
+    DEALLOCATE( IINDEX )
+    DEALLOCATE( IJINDEX )
+    DEALLOCATE( IJSINDEX )
+    DEALLOCATE( GTRIG1 )
+!
+!
+END SUBROUTINE CONVECT_DEEP
+!     ######spl
+      SUBROUTINE CONVECT_TRIGGER_FUNCT( KLON, KLEV,                           &
+                                        PPRES, PTH, PTHV, PTHES,              &
+                                        PRV, PW, PZ, PDXDY,                   &
+                                        PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL,  &
+                                        PTHVELCL, KLCL, KDPL, KPBL, OTRIG,    &
+                                        PCAPE )
+!     ######################################################################
+!
+!!**** Determine convective columns as well as the cloudy values of theta,
+!!     and qv at the lifting condensation level (LCL) 
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine convective columns
+!!   
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      What we look for is the undermost unstable level at each grid point.
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     Routine CONVECT_SATMIXRATIO
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! Reference pressure
+!!          XRD, XRV           ! Gaz  constants for dry air and water vapor
+!!          XCPD               ! Cpd (dry air)
+!!          XTT                ! triple point temperature
+!!          XBETAW, XGAMW      ! constants for vapor saturation pressure
+!!
+!!      Module MODD_CONVPAR
+!!          XA25               ! reference grid area
+!!          XZLCL              ! maximum height difference between
+!!                             ! the surface and the DPL
+!!          XZPBL              ! minimum mixed layer depth to sustain convection
+!!          XWTRIG             ! constant in vertical velocity trigger
+!!          XCDEPTH            ! minimum necessary cloud depth
+!!          XNHGAM             ! coefficient for buoyancy term in w eq.
+!!                             ! accounting for nh-pressure
+!!
+!!      Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book2 of documentation ( routine TRIGGER_FUNCT)
+!!      Fritsch and Chappell (1980), J. Atm. Sci., Vol. 37, 1722-1761.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  20/03/97  Select first departure level
+!!                            that produces a cloud thicker than XCDEPTH
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER, INTENT(IN)                   :: KLON      ! horizontal loop index
+INTEGER, INTENT(IN)                   :: KLEV      ! vertical loop index
+REAL, DIMENSION(KLON),     INTENT(IN) :: PDXDY     ! grid area
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTH, PTHV ! theta, theta_v
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTHES     ! envir. satur. theta_e
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRV       ! vapor mixing ratio 
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PPRES     ! pressure
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PZ        ! height of grid point (m)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PW        ! vertical velocity
+!
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTHLCL    ! theta at LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTLCL     ! temp. at LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PRVLCL    ! vapor mixing ratio at  LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PWLCL     ! parcel velocity at  LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PZLCL     ! height at LCL (m)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTHVELCL  ! environm. theta_v at LCL (K)
+LOGICAL, DIMENSION(KLON),  INTENT(OUT):: OTRIG     ! logical mask for convection 
+INTEGER, DIMENSION(KLON),  INTENT(INOUT):: KLCL    ! contains vert. index of LCL
+INTEGER, DIMENSION(KLON),  INTENT(INOUT):: KDPL    ! contains vert. index of DPL
+INTEGER, DIMENSION(KLON),  INTENT(INOUT):: KPBL    ! contains index of source layer top
+REAL, DIMENSION(KLON),     INTENT(OUT):: PCAPE     ! CAPE (J/kg) for diagnostics
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: JKK, JK, JKP, JKM, JKDL, JL, JKT, JT! vertical loop index
+INTEGER :: JI                                  ! horizontal loop index 
+INTEGER :: IIE, IKB, IKE                       ! horizontal + vertical loop bounds
+REAL    :: ZEPS, ZEPSA                         ! R_d / R_v, R_v / R_d 
+REAL    :: ZCPORD, ZRDOCP                      ! C_pd / R_d, R_d / C_pd
+!
+REAL, DIMENSION(KLON) :: ZTHLCL, ZTLCL, ZRVLCL, & ! locals for PTHLCL,PTLCL
+                               ZWLCL,  ZZLCL, ZTHVELCL  ! PRVLCL, ....
+INTEGER, DIMENSION(KLON) :: IDPL, IPBL, ILCL      ! locals for KDPL, ...
+REAL, DIMENSION(KLON) :: ZPLCL    ! pressure at LCL
+REAL, DIMENSION(KLON) :: ZZDPL    ! height of DPL 
+REAL, DIMENSION(KLON) :: ZTHVLCL  ! theta_v at LCL = mixed layer value
+REAL, DIMENSION(KLON) :: ZTMIX    ! mixed layer temperature
+REAL, DIMENSION(KLON) :: ZEVMIX   ! mixed layer water vapor pressure 
+REAL, DIMENSION(KLON) :: ZDPTHMIX, ZPRESMIX ! mixed layer depth and pressure
+REAL, DIMENSION(KLON) :: ZCAPE    ! convective available energy (m^2/s^2/g)
+REAL, DIMENSION(KLON) :: ZTHEUL   ! updraft equiv. pot. temperature (K)
+REAL, DIMENSION(KLON) :: ZLV, ZCPH! specific heats of vaporisation, dry air
+REAL, DIMENSION(KLON) :: ZDP      ! pressure between LCL and model layer
+REAL, DIMENSION(KLON) :: ZTOP     ! estimated cloud top (m)
+REAL, DIMENSION(KLON,KLEV):: ZCAP ! CAPE at every level for diagnostics
+!INTEGER, DIMENSION(KLON) :: ITOP  ! work array to store highest test layer
+REAL, DIMENSION(KLON) :: ZWORK1, ZWORK2, ZWORK3    ! work arrays
+LOGICAL, DIMENSION(KLON) :: GTRIG, GTRIG2          ! local arrays for OTRIG
+LOGICAL, DIMENSION(KLON) :: GWORK1                 ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.3    Compute array bounds
+!               --------------------
+!
+IIE = KLON
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+!
+!
+!*       1.     Initialize local variables
+!               --------------------------
+!
+ZEPS       = XRD / XRV
+ZEPSA      = XRV / XRD 
+ZCPORD     = XCPD / XRD
+ZRDOCP     = XRD / XCPD
+OTRIG(:)   = .FALSE.
+IDPL(:)    = KDPL(:)
+IPBL(:)    = KPBL(:)
+ILCL(:)    = KLCL(:)
+!ITOP(:)    = IKB
+PWLCL(:)   = 0.
+ZWLCL(:)   = 0.
+PTHLCL(:)  = 1.
+PTHVELCL(:)= 1.
+PTLCL(:)   = 1.
+PRVLCL(:)  = 0.
+PWLCL(:)   = 0.
+PZLCL(:)   = PZ(:,IKB)
+ZZDPL(:)   = PZ(:,IKB)
+GTRIG2(:)  = .TRUE.
+ZCAP(:,:)  = 0.
+!
+!
+!
+!       1.     Determine highest necessary loop test layer
+!              -------------------------------------------
+!
+JT = IKE - 2
+DO JK = IKB + 1, IKE - 2
+ ! DO JI = 1, IIE
+ !    IF ( PZ(JI,JK) - PZ(JI,IKB) <= XZLCL ) ITOP(JI) = JK
+ ! END DO
+   IF ( PZ(1,JK) - PZ(1,IKB) < 12.E3 ) JT = JK 
+END DO
+!
+!
+!*       2.     Enter loop for convection test
+!               ------------------------------
+!
+JKP = MINVAL( IDPL(:) ) + 1
+!JKT = MAXVAL( ITOP(:) )
+JKT = JT
+DO JKK = JKP, JKT
+!
+     GWORK1(:) = ZZDPL(:) - PZ(:,IKB) < XZLCL
+          ! we exit the trigger test when the center of the mixed layer is more
+          ! than 3500 m  above soil level.
+     WHERE ( GWORK1(:) )
+        ZDPTHMIX(:) = 0.
+        ZPRESMIX(:) = 0.
+        ZTHLCL(:)   = 0.
+        ZRVLCL(:)   = 0.
+        ZZDPL(:)    = PZ(:,JKK)
+        IDPL(:)     = JKK
+     END WHERE
+!
+!
+!*       3.     Construct a mixed layer of at least 60 hPa (XZPBL)
+!               ------------------------------------------
+!
+     DO JK = JKK, IKE - 1
+       JKM = JK + 1
+       DO JI = 1, IIE     
+         IF ( GWORK1(JI) .AND. ZDPTHMIX(JI) < XZPBL ) THEN
+            IPBL(JI)     = JK
+            ZWORK1(JI)   = PPRES(JI,JK) - PPRES(JI,JKM)
+            ZDPTHMIX(JI) = ZDPTHMIX(JI) + ZWORK1(JI)
+            ZPRESMIX(JI) = ZPRESMIX(JI) + PPRES(JI,JK) * ZWORK1(JI)
+            ZTHLCL(JI)   = ZTHLCL(JI)   + PTH(JI,JK)   * ZWORK1(JI)
+            ZRVLCL(JI)   = ZRVLCL(JI)   + PRV(JI,JK)   * ZWORK1(JI)
+         END IF
+       END DO
+        IF ( MINVAL ( ZDPTHMIX(:) ) >= XZPBL ) EXIT
+     END DO
+!
+!
+     WHERE ( GWORK1(:) )
+!
+        ZPRESMIX(:) = ZPRESMIX(:) / ZDPTHMIX(:)
+      ! ZTHLCL(:)   = ZTHLCL(:)   / ZDPTHMIX(:) 
+      ! ZRVLCL(:)   = ZRVLCL(:)   / ZDPTHMIX(:) 
+        ZTHLCL(:)   = ZTHLCL(:)   / ZDPTHMIX(:) + XDTHPBL
+        ZRVLCL(:)   = ZRVLCL(:)   / ZDPTHMIX(:) + XDRVPBL
+        ZTHVLCL(:)  = ZTHLCL(:) * ( 1. + ZEPSA * ZRVLCL(:) )                 &
+				/ ( 1. + ZRVLCL(:) )
+!
+!*       4.1    Use an empirical direct solution ( Bolton formula )
+!               to determine temperature and pressure at LCL. 
+!               Nota: the adiabatic saturation temperature is not
+!                     equal to the dewpoint temperature
+!               ----------------------------------------------------
+!
+! 
+        ZTMIX(:)  = ZTHLCL(:) * ( ZPRESMIX(:) / XP00 ) ** ZRDOCP 
+        ZEVMIX(:) = ZRVLCL(:) * ZPRESMIX(:) / ( ZRVLCL(:) + ZEPS )
+        ZEVMIX(:) = MAX( 1.E-8, ZEVMIX(:) )
+        ZWORK1(:) = LOG( ZEVMIX(:) / 613.3 )
+              ! dewpoint temperature
+        ZWORK1(:) = ( 4780.8 - 32.19 * ZWORK1(:) ) / ( 17.502 - ZWORK1(:) ) 
+              ! adiabatic saturation temperature
+        ZTLCL(:)  = ZWORK1(:) - ( .212 + 1.571E-3 * ( ZWORK1(:) - XTT )      &
+                   - 4.36E-4 * ( ZTMIX(:) - XTT ) ) * ( ZTMIX(:) - ZWORK1(:) )
+        ZTLCL(:)  = MIN( ZTLCL(:), ZTMIX(:) )
+        ZPLCL(:)  = XP00 * ( ZTLCL(:) / ZTHLCL(:) ) ** ZCPORD
+!
+     END WHERE
+!
+!
+!*       4.2    Correct ZTLCL in order to be completely consistent
+!               with MNH saturation formula
+!               ---------------------------------------------
+!
+     CALL CONVECT_SATMIXRATIO( KLON, ZPLCL, ZTLCL, ZWORK1, ZLV, ZWORK2, ZCPH )
+     WHERE( GWORK1(:) )
+        ZWORK2(:) = ZWORK1(:) / ZTLCL(:) * ( XBETAW / ZTLCL(:) - XGAMW ) ! dr_sat/dT
+        ZWORK2(:) = ( ZWORK1(:) - ZRVLCL(:) ) /                              &
+                        ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) )
+        ZTLCL(:)  = ZTLCL(:) - ZLV(:) / ZCPH(:) * ZWORK2(:)
+!
+     END WHERE
+!
+!
+!*       4.3    If ZRVLCL = PRVMIX is oversaturated set humidity 
+!               and temperature to saturation values. 
+!               ---------------------------------------------
+!
+     CALL CONVECT_SATMIXRATIO( KLON, ZPRESMIX, ZTMIX, ZWORK1, ZLV, ZWORK2, ZCPH )
+     WHERE( GWORK1(:) .AND. ZRVLCL(:) > ZWORK1(:) )
+        ZWORK2(:) = ZWORK1(:) / ZTMIX(:) * ( XBETAW / ZTMIX(:) - XGAMW ) ! dr_sat/dT
+        ZWORK2(:) = ( ZWORK1(:) - ZRVLCL(:) ) /                              &
+                       ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) ) 
+        ZTLCL(:)  = ZTMIX(:) - ZLV(:) / ZCPH(:) * ZWORK2(:)
+        ZRVLCL(:) = ZRVLCL(:) - ZWORK2(:)
+        ZPLCL(:)  = ZPRESMIX(:)
+        ZTHLCL(:) = ZTLCL(:) * ( XP00 / ZPLCL(:) ) ** ZRDOCP
+        ZTHVLCL(:)= ZTHLCL(:) * ( 1. + ZEPSA * ZRVLCL(:) )                   &
+                              / ( 1. + ZRVLCL(:) )
+     END WHERE
+!
+!
+!*        5.1   Determine  vertical loop index at the LCL and DPL
+!               --------------------------------------------------
+!
+    DO JK = JKK, IKE - 1
+       DO JI = 1, IIE
+         IF ( ZPLCL(JI) <= PPRES(JI,JK) .AND. GWORK1(JI) ) ILCL(JI) = JK + 1
+       END DO
+    END DO
+!
+!
+!*        5.2   Estimate height and environm. theta_v at LCL
+!               --------------------------------------------------
+!
+    DO JI = 1, IIE
+        JK   = ILCL(JI)
+        JKM  = JK - 1
+        ZDP(JI)    = LOG( ZPLCL(JI) / PPRES(JI,JKM) ) /                     &
+                     LOG( PPRES(JI,JK) / PPRES(JI,JKM) )
+        ZWORK1(JI) = PTHV(JI,JKM) + ( PTHV(JI,JK) - PTHV(JI,JKM) ) * ZDP(JI) 
+           ! we compute the precise value of the LCL
+           ! The precise height is between the levels ILCL and ILCL-1.
+        ZWORK2(JI) = PZ(JI,JKM) + ( PZ(JI,JK) - PZ(JI,JKM) ) * ZDP(JI)
+    END DO
+    WHERE( GWORK1(:) )
+        ZTHVELCL(:) = ZWORK1(:) 
+        ZZLCL(:)    = ZWORK2(:)
+    END WHERE
+!        
+!
+!*       6.     Check to see if cloud is bouyant 
+!               --------------------------------
+!
+!*      6.1    Compute grid scale vertical velocity perturbation term ZWORK1
+!               -------------------------------------------------------------
+! 
+             !  normalize w grid scale to a 25 km refer. grid
+     DO JI = 1, IIE
+        JK  = ILCL(JI)
+        JKM = JK - 1 
+        JKDL = IDPL(JI)
+       !ZWORK1(JI) =  ( PW(JI,JKM)  + ( PW(JI,JK) - PW(JI,JKM) ) * ZDP(JI) )  &
+        ZWORK1(JI) =  ( PW(JI,JK)  +  PW(JI,JKDL)*ZZLCL(JI)/PZ(JI,JKDL) ) * .5 &  
+                           * SQRT( PDXDY(JI) / XA25 )
+!                         - 0.02 * ZZLCL(JI) / XZLCL ! avoid spurious convection
+     END DO
+             ! compute sign of normalized grid scale w
+        ZWORK2(:) = SIGN( 1., ZWORK1(:) ) 
+        ZWORK1(:) = XWTRIG * ZWORK2(:) * ABS( ZWORK1(:) ) ** 0.333       &
+                           * ( XP00 / ZPLCL(:) ) ** ZRDOCP
+!
+!*       6.2    Compute parcel vertical velocity at LCL
+!               ---------------------------------------
+!                   
+     DO JI = 1, IIE
+        JKDL = IDPL(JI)
+        ZWORK3(JI) = XG * ZWORK1(JI) * ( ZZLCL(JI) - PZ(JI,JKDL) )       &
+                       / ( PTHV(JI,JKDL) + ZTHVELCL(JI) )
+     END DO
+     WHERE( GWORK1(:) )
+       ZWLCL(:)  = 1. + .5 * ZWORK2(:) * SQRT( ABS( ZWORK3(:) ) ) 
+       GTRIG(:)  = ZTHVLCL(:) - ZTHVELCL(:) + ZWORK1(:) > 0. .AND.       &
+                   ZWLCL(:) > 0. 
+     END WHERE
+!
+!
+!*       6.3    Look for parcel that produces sufficient cloud depth.
+!               The cloud top is estimated as the level where the CAPE 
+!               is smaller  than a given value (based on vertical velocity eq.)
+!               --------------------------------------------------------------
+!
+     ZTHEUL(:) = ZTLCL(:) * ( ZTHLCL(:) / ZTLCL(:) )                       &
+                                             ** ( 1. - 0.28 * ZRVLCL(:) )  &
+                          * EXP( ( 3374.6525 / ZTLCL(:) - 2.5403 ) *       &
+                               ZRVLCL(:) * ( 1. + 0.81 * ZRVLCL(:) ) )
+!
+     ZCAPE(:) = 0.
+     ZTOP(:)  = 0.
+     ZWORK3(:)= 0.
+     JKM = MINVAL( ILCL(:) )
+     DO JL = JKM, JT
+        JK = JL + 1
+        DO JI = 1, IIE
+           ZWORK1(JI) = ( 2. * ZTHEUL(JI) /                                &
+            ( PTHES(JI,JK) + PTHES(JI,JL) ) - 1. ) * ( PZ(JI,JK) - PZ(JI,JL) )
+           IF ( JL < ILCL(JI) ) ZWORK1(JI) = 0.
+           ZCAPE(JI)  = ZCAPE(JI) + ZWORK1(JI)
+           ZCAP(JI,JKK) = ZCAP(JI,JKK) + XG * MAX( 0., ZWORK1(JI) ) ! actual CAPE
+           ZWORK2(JI) = XNHGAM * XG * ZCAPE(JI) + 1.05 * ZWLCL(JI) * ZWLCL(JI)
+               ! the factor 1.05 takes entrainment into account
+           ZWORK2(JI) = SIGN( 1., ZWORK2(JI) )
+           ZWORK3(JI) = ZWORK3(JI) + MIN(0., ZWORK2(JI) )
+           ZWORK3(JI) = MAX( -1., ZWORK3(JI) )
+               ! Nota, the factors ZWORK2 and ZWORK3 are only used to avoid
+               ! if and goto statements, the difficulty is to extract only
+               ! the level where the criterium is first fullfilled
+           ZTOP(JI)   = PZ(JI,JL) * .5 * ( 1. + ZWORK2(JI) ) * ( 1. + ZWORK3(JI) ) + &
+                        ZTOP(JI) * .5 * ( 1. - ZWORK2(JI) )
+         END DO
+     END DO
+!
+!
+     WHERE( ZTOP(:) - ZZLCL(:) .GE. XCDEPTH  .AND. GTRIG(:) .AND. GTRIG2(:) )
+        GTRIG2(:)   = .FALSE.
+        OTRIG(:)    = GTRIG(:)     ! we  select the first departure level
+        PTHLCL(:)   = ZTHLCL(:)    ! that gives sufficient cloud depth
+        PRVLCL(:)   = ZRVLCL(:)
+        PTLCL(:)    = ZTLCL(:)
+        PWLCL(:)    = ZWLCL(:)
+        PZLCL(:)    = ZZLCL(:)
+        PTHVELCL(:) = ZTHVELCL(:)
+        KDPL(:)     = IDPL(:)
+        KPBL(:)     = IPBL(:)
+        KLCL(:)     = ILCL(:)
+     END WHERE
+!
+END DO
+!
+     DO JI = 1, IIE
+       PCAPE(JI) = MAXVAL( ZCAP(JI,:) ) ! maximum CAPE for diagnostics
+     END DO
+!
+!
+END SUBROUTINE CONVECT_TRIGGER_FUNCT
+!     ######spl
+      SUBROUTINE CONVECT_UPDRAFT( KLON, KLEV,                                      &
+				  KICE, PPRES, PDPRES, PZ, PTHL, PTHV, PTHES, PRW, &
+                                  PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL, PTHVELCL,   &
+                                  PMFLCL, OTRIG, KLCL, KDPL, KPBL,                 &
+                                  PUMF, PUER, PUDR, PUTHL, PUTHV, PURW,            &
+                                  PURC, PURI, PURR, PURS, PUPR,                    &
+                                  PUTPR, PCAPE, KCTL, KETL )
+!     #############################################################################
+!
+!!**** Compute updraft properties from DPL to CTL. 
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine updraft properties
+!!      ( mass flux, thermodynamics, precipitation ) 
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     Routine CONVECT_MIXING_FUNCT
+!!     Routine CONVECT_CONDENS
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! reference pressure
+!!          XRD, XRV           ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV, XCL    ! Cp of dry air, water vapor and liquid water
+!!          XTT                ! triple point temperature
+!!          XLVTT              ! vaporisation heat at XTT
+!!        
+!!
+!!      Module MODD_CONVPAR
+!!          XA25               ! reference grid area
+!!          XCRAD              ! cloud radius
+!!          XCDEPTH            ! minimum necessary cloud depth
+!!          XENTR              ! entrainment constant
+!!          XRCONV             ! constant in precipitation conversion 
+!!          XNHGAM             ! coefficient for buoyancy term in w eq.
+!!                             ! accounting for nh-pressure
+!!          XTFRZ1             ! begin of freezing interval
+!!          XTFRZ2             ! begin of freezing interval
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_UPDRAFT)
+!!      Kain and Fritsch, 1990, J. Atmos. Sci., Vol.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  10/12/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER, INTENT(IN)                    :: KLON  ! horizontal dimension
+INTEGER, INTENT(IN)                    :: KLEV  ! vertical dimension
+INTEGER, INTENT(IN)                    :: KICE  ! flag for ice ( 1 = yes,
+                                                !                0 = no ice )
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHL  ! grid scale enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHV  ! grid scale theta_v     
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHES ! grid scale saturated theta_e 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRW   ! grid scale total water  
+                                                ! mixing ratio 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES ! pressure (P)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDPRES! pressure difference between 
+                                                ! bottom and top of layer (Pa) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ    ! height of model layer (m) 
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTHLCL ! theta at LCL
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTLCL  ! temp. at LCL
+REAL, DIMENSION(KLON),     INTENT(IN) :: PRVLCL ! vapor mixing ratio at  LCL
+REAL, DIMENSION(KLON),     INTENT(IN) :: PWLCL  ! parcel velocity at LCL (m/s)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PMFLCL ! cloud  base unit mass flux
+                                                ! (kg/s)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PZLCL  ! height at LCL (m)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTHVELCL  ! environm. theta_v at LCL (K)
+LOGICAL, DIMENSION(KLON),  INTENT(INOUT):: OTRIG! logical mask for convection 
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KLCL   ! contains vert. index of LCL
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KDPL   ! contains vert. index of DPL 
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KPBL   !  " vert. index of source layertop
+!
+!
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KCTL   ! contains vert. index of CTL 
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KETL   ! contains vert. index of        &
+                                                !equilibrium (zero buoyancy) level 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUMF  ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUER  ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUDR  ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUTHL ! updraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUTHV ! updraft theta_v (K)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURW  ! updraft total water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURC  ! updraft cloud water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURI  ! updraft cloud ice   (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURR  ! liquid precipit. (kg/kg)
+                                                ! produced in  model layer
+REAL, DIMENSION(KLON,KLEV),   INTENT(OUT)::PURS ! solid precipit. (kg/kg)
+                                                ! produced in  model layer
+REAL, DIMENSION(KLON,KLEV),   INTENT(OUT)::PUPR ! updraft precipitation in
+                                                ! flux units (kg water / s)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PUTPR  ! total updraft precipitation
+                                                ! in flux units (kg water / s)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PCAPE  ! available potent. energy
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE  ! horizontal and vertical loop bounds
+INTEGER :: JI             ! horizontal loop index
+INTEGER :: JK, JKP, JKM, JK1, JK2, JKMIN  ! vertical loop index
+REAL    :: ZEPSA, ZCVOCD  ! R_v / R_d, C_pv / C_pd 
+REAL    :: ZCPORD, ZRDOCP ! C_pd / R_d, R_d / C_pd
+!
+REAL, DIMENSION(KLON)    :: ZUT             ! updraft temperature (K)
+REAL, DIMENSION(KLON)    :: ZUW1, ZUW2      ! square of updraft vert.
+                                            ! velocity at levels k and k+1
+REAL, DIMENSION(KLON)    :: ZE1,ZE2,ZD1,ZD2 ! fractional entrainm./detrain
+                                            ! rates at levels k and k+1
+REAL, DIMENSION(KLON)    :: ZMIXF           ! critical mixed fraction  
+REAL, DIMENSION(KLON)    :: ZCPH            ! specific heat C_ph 
+REAL, DIMENSION(KLON)    :: ZLV, ZLS        ! latent heat of vaporis., sublim.       
+REAL, DIMENSION(KLON)    :: ZURV            ! updraft water vapor at level k+1
+REAL, DIMENSION(KLON)    :: ZPI             ! Pi=(P0/P)**(Rd/Cpd)  
+REAL, DIMENSION(KLON)    :: ZTHEUL          ! theta_e for undilute ascent
+REAL, DIMENSION(KLON)    :: ZWORK1, ZWORK2, ZWORK3, ZWORK4, ZWORK5,   &
+                            ZWORK6          ! work arrays
+INTEGER, DIMENSION(KLON) :: IWORK           ! wok array
+LOGICAL, DIMENSION(KLON) :: GWORK1, GWORK2, GWORK4, GWORK5 
+                                            ! work arrays
+LOGICAL, DIMENSION(KLON,KLEV) :: GWORK6     ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!        0.3   Set loop bounds
+!              ---------------
+!
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+IIE = KLON
+!
+!
+!*       1.     Initialize updraft properties and local variables
+!               -------------------------------------------------
+!
+ZEPSA      = XRV / XRD 
+ZCVOCD     = XCPV / XCPD
+ZCPORD     = XCPD / XRD
+ZRDOCP     = XRD / XCPD
+!
+PUMF(:,:)  = 0.
+PUER(:,:)  = 0.
+PUDR(:,:)  = 0.
+PUTHL(:,:) = 0.
+PUTHV(:,:) = 0.
+PURW(:,:)  = 0.
+PURC(:,:)  = 0.
+PURI(:,:)  = 0.
+PUPR(:,:)  = 0.
+PURR(:,:)  = 0.
+PURS(:,:)  = 0.
+PUTPR(:)   = 0.
+ZUW1(:)    = PWLCL(:) * PWLCL(:)
+ZUW2(:)    = 0.
+ZE1(:)     = 1.
+ZD1(:)     = 0.
+PCAPE(:)   = 0.
+KCTL(:)    = IKB
+KETL(:)    = KLCL(:)
+GWORK2(:)  = .TRUE.
+GWORK5(:)  = .TRUE.
+ZPI(:)     = 1.
+ZWORK3(:)  = 0.
+ZWORK4(:)  = 0.
+ZWORK5(:)  = 0.
+ZWORK6(:)  = 0.
+GWORK1(:)  = .FALSE.
+GWORK4(:)  = .FALSE.
+!
+!
+!*       1.1    Compute undilute updraft theta_e for CAPE computations
+!               Bolton (1980) formula.
+!               Define accurate enthalpy for updraft
+!               -----------------------------------------------------
+!
+ZTHEUL(:) = PTLCL(:) * ( PTHLCL(:) / PTLCL(:) ) ** ( 1. - 0.28 * PRVLCL(:) )  &
+            * EXP( ( 3374.6525 / PTLCL(:) - 2.5403 ) *                        &
+                                   PRVLCL(:) * ( 1. + 0.81 * PRVLCL(:) ) )
+!
+!
+ZWORK1(:) = ( XCPD + PRVLCL(:) * XCPV ) * PTLCL(:)                            &
+            + ( 1. + PRVLCL(:) ) * XG * PZLCL(:)
+!
+!
+!*       2.     Set updraft properties between DPL and LCL
+!               ------------------------------------------
+!
+JKP = MAXVAL( KLCL(:) )
+JKM = MINVAL( KDPL(:) )
+DO JK = JKM, JKP
+   DO JI = 1, IIE
+    IF ( JK >= KDPL(JI) .AND. JK < KLCL(JI) ) THEN
+        PUMF(JI,JK)  = PMFLCL(JI)
+        PUTHL(JI,JK) = ZWORK1(JI) 
+        PUTHV(JI,JK) = PTHLCL(JI) * ( 1. + ZEPSA * PRVLCL(JI) ) /             &
+                                  ( 1. + PRVLCL(JI) )
+        PURW(JI,JK)  = PRVLCL(JI) 
+   END IF
+   END DO
+END DO                        
+!
+!
+!*       3.     Enter loop for updraft computations
+!               ------------------------------------
+!
+JKMIN = MINVAL( KLCL(:) - 1 )
+DO JK = MAX( IKB + 1, JKMIN ), IKE - 1
+  ZWORK6(:) = 1.
+  JKP = JK + 1  
+!
+  GWORK4(:) = JK >= KLCL(:) - 1 
+  GWORK1(:) = GWORK4(:) .AND. GWORK2(:) ! this mask is used to confine
+                           ! updraft computations between the LCL and the CTL
+!                                                         
+  WHERE( JK == KLCL(:) - 1 ) ZWORK6(:) = 0. ! factor that is used in buoyancy
+                                        ! computation at first level above LCL
+!
+!
+!*       4.     Estimate condensate, L_v L_i, Cph and theta_v at level k+1   
+!               ----------------------------------------------------------
+!
+    ZWORK1(:) = PURC(:,JK) + PURR(:,JK)
+    ZWORK2(:) = PURI(:,JK) + PURS(:,JK)
+    CALL CONVECT_CONDENS( KLON, KICE, PPRES(:,JKP), PUTHL(:,JK), PURW(:,JK),&
+                          ZWORK1, ZWORK2, PZ(:,JKP), GWORK1, ZUT, ZURV,     &
+                          PURC(:,JKP), PURI(:,JKP), ZLV, ZLS, ZCPH )
+!
+!
+  ZPI(:) = ( XP00 / PPRES(:,JKP) ) ** ZRDOCP   
+  WHERE ( GWORK1(:) )
+!
+    PUTHV(:,JKP) = ZPI(:) * ZUT(:) * ( 1. + ZEPSA * ZURV(:) )           &  
+                         / ( 1. + PURW(:,JK) )     
+!
+!
+!*       5.     Compute square of vertical velocity using entrainment   
+!               at level k
+!               -----------------------------------------------------
+!    
+    ZWORK3(:) = PZ(:,JKP) - PZ(:,JK) * ZWORK6(:) -         &
+                     ( 1. - ZWORK6(:) ) * PZLCL(:)          ! level thickness  
+    ZWORK4(:) = PTHV(:,JK) * ZWORK6(:) +                   &
+                 ( 1. - ZWORK6(:) ) * PTHVELCL(:)
+    ZWORK5(:) = 2. * ZUW1(:) * PUER(:,JK) / MAX( .1, PUMF(:,JK) )
+    ZUW2(:)   = ZUW1(:) + ZWORK3(:) * XNHGAM * XG *        & 
+                  ( ( PUTHV(:,JK) + PUTHV(:,JKP) ) /       &
+                  ( ZWORK4(:) + PTHV(:,JKP) ) - 1. )       & ! buoyancy term
+                - ZWORK5(:)                                  ! entrainment term
+!
+!
+!*       6.     Update total precipitation: dr_r=(r_c+r_i)*exp(-rate*dz)  
+!               --------------------------------------------------------
+!
+!                    compute level mean vertical velocity
+    ZWORK2(:)   = 0.5 *                                                    &
+                       ( SQRT( MAX( 1.E-2, ZUW2(:) ) ) +                   &
+                         SQRT( MAX( 1.E-2, ZUW1(:) ) ) )          
+    PURR(:,JKP) = 0.5 * ( PURC(:,JK) + PURC(:,JKP) + PURI(:,JK) + PURI(:,JKP) )&
+                      * ( 1. - EXP( - XRCONV  * ZWORK3(:) / ZWORK2(:) ) )
+    PUPR(:,JKP) = PURR(:,JKP) * PUMF(:,JK) ! precipitation rate ( kg water / s)
+    PUTPR(:)    = PUTPR(:) + PUPR(:,JKP)   ! total precipitation rate
+    ZWORK2(:)   = PURR(:,JKP) / MAX( 1.E-8, PURC(:,JKP) + PURI(:,JKP) )
+    PURR(:,JKP) = ZWORK2(:) * PURC(:,JKP)          ! liquid precipitation
+    PURS(:,JKP) = ZWORK2(:) * PURI(:,JKP)          ! solid precipitation
+!
+!
+!*       7.     Update r_c, r_i, enthalpy, r_w  for precipitation 
+!               -------------------------------------------------------
+!
+    PURW(:,JKP)  = PURW(:,JK) - PURR(:,JKP) - PURS(:,JKP) 
+    PURC(:,JKP)  = PURC(:,JKP) - PURR(:,JKP)
+    PURI(:,JKP)  = PURI(:,JKP) - PURS(:,JKP)       
+    PUTHL(:,JKP) = ( XCPD + PURW(:,JKP) * XCPV ) * ZUT(:)                     &
+                   + ( 1. + PURW(:,JKP) ) * XG * PZ(:,JKP)                    &
+                   - ZLV(:) * PURC(:,JKP) - ZLS(:) * PURI(:,JKP)             
+!    
+    ZUW1(:)      = ZUW2(:)       
+!
+  END WHERE
+!
+!
+!*       8.     Compute entrainment and detrainment using conservative
+!               variables adjusted for precipitation ( not for entrainment)
+!               -----------------------------------------------------------
+!
+!*       8.1    Compute critical mixed fraction by estimating unknown  
+!               T^mix r_c^mix and r_i^mix from enthalpy^mix and r_w^mix
+!               We determine the zero crossing of the linear curve
+!               evaluating the derivative using ZMIXF=0.1.
+!               -----------------------------------------------------
+!    
+    ZMIXF(:)  = 0.1   ! starting value for critical mixed fraction
+    ZWORK1(:) = ZMIXF(:) * PTHL(:,JKP)                                     &
+                     + ( 1. - ZMIXF(:) ) * PUTHL(:,JKP) ! mixed enthalpy
+    ZWORK2(:) = ZMIXF(:) * PRW(:,JKP)                                      &
+                     + ( 1. - ZMIXF(:) ) * PURW(:,JKP)  ! mixed r_w
+!
+    CALL CONVECT_CONDENS( KLON, KICE, PPRES(:,JKP), ZWORK1, ZWORK2,        &
+                          PURC(:,JKP), PURI(:,JKP), PZ(:,JKP), GWORK1, ZUT,&
+                          ZWORK3, ZWORK4, ZWORK5, ZLV, ZLS, ZCPH )
+!        put in enthalpy and r_w and get T r_c, r_i (ZUT, ZWORK4-5)
+!        
+     ! compute theta_v of mixture
+    ZWORK3(:) = ZUT(:) * ZPI(:) * ( 1. + ZEPSA * (                         &
+                ZWORK2(:) - ZWORK4(:) - ZWORK5(:) ) ) / ( 1. + ZWORK2(:) )
+     ! compute final value of critical mixed fraction using theta_v
+     ! of mixture, grid-scale and updraft
+    ZMIXF(:) = MAX( 0., PUTHV(:,JKP) - PTHV(:,JKP) ) * ZMIXF(:) /          &
+                              ( PUTHV(:,JKP) - ZWORK3(:) + 1.E-10 )
+    ZMIXF(:) = MAX( 0., MIN( 1., ZMIXF(:) ) )
+!    
+!
+!*       8.2     Compute final midlevel values for entr. and detrainment    
+!                after call of distribution function
+!                -------------------------------------------------------
+!    
+!
+    CALL CONVECT_MIXING_FUNCT ( KLON, ZMIXF, 1, ZE2, ZD2 )
+!       Note: routine MIXING_FUNCT returns fractional entrainm/detrainm. rates
+!
+! ZWORK1(:) = XENTR * PMFLCL(:) * PDPRES(:,JKP) / XCRAD ! rate of env. inflow
+!*MOD
+  zwork1(:) = xentr * xg / xcrad * pumf(:,jk) * ( pz(:,jkp) - pz(:,jk) )
+! ZWORK1(:) = XENTR * pumf(:,jk) * PDPRES(:,JKP) / XCRAD ! rate of env. inflow
+!*MOD
+  ZWORK2(:) = 0.
+  WHERE ( GWORK1(:) ) ZWORK2(:) = 1.
+  WHERE ( PUTHV(:,JKP) > PTHV(:,JKP) )
+    ze2=.5; zd2=.5  ! modif entrainment=detrainment, this avoids
+		    ! too large mass flux values at upper levels
+    PUER(:,JKP) = 0.5 * ZWORK1(:) * ( ZE1(:) + ZE2(:) ) * ZWORK2(:)
+    PUDR(:,JKP) = 0.5 * ZWORK1(:) * ( ZD1(:) + ZD2(:) ) * ZWORK2(:)
+  ELSEWHERE
+    PUER(:,JKP) = 0.
+    PUDR(:,JKP) = ZWORK1(:) * ZWORK2(:)
+  END WHERE
+!
+!*       8.3     Determine equilibrium temperature level
+!                --------------------------------------
+!
+   WHERE ( PUTHV(:,JKP) > PTHV(:,JKP) .AND. JK > KLCL(:) + 1 &   
+           .AND. GWORK1(:) )
+         KETL(:) = JKP            ! equilibrium temperature level 
+   END WHERE
+!
+!*       8.4     If the calculated detrained mass flux is greater than    
+!                the total updraft mass flux, or vertical velocity is
+!                negative, all cloud mass detrains at previous model level,
+!                exit updraft calculations - CTL is attained
+!                -------------------------------------------------------
+!
+  WHERE( GWORK1(:) )                                                   &
+        GWORK2(:) = PUMF(:,JK) - PUDR(:,JKP) > 10. .AND. ZUW2(:) > 0.        
+  WHERE ( GWORK2(:) ) KCTL(:) = JKP   ! cloud top level
+  GWORK1(:) = GWORK2(:) .AND. GWORK4(:)
+!
+  IF ( COUNT( GWORK2(:) ) == 0 ) EXIT           
+!
+!
+!*       9.   Compute CAPE for undilute ascent using theta_e and 
+!             theta_es instead of theta_v. This estimation produces 
+!             a significantly larger value for CAPE than the actual one.
+!             ----------------------------------------------------------
+!
+  WHERE ( GWORK1(:) )
+!
+    ZWORK3(:)   = PZ(:,JKP) - PZ(:,JK) * ZWORK6(:) -                      &
+                  ( 1. - ZWORK6(:) ) *  PZLCL(:)              ! level thickness
+    ZWORK2(:)   = PTHES(:,JK) + ( 1. - ZWORK6(:) ) *                      &
+     ( PTHES(:,JKP) - PTHES(:,JK) ) / ( PZ(:,JKP) - PZ(:,JK) ) *          &
+     ( PZLCL(:) - PZ(:,JK) ) ! linear interpolation for theta_es at LCL
+                            ! ( this is only done for model level just above LCL
+!
+    ZWORK1(:) = ( 2. * ZTHEUL(:) ) / ( ZWORK2(:) + PTHES(:,JKP) ) - 1.   
+    PCAPE(:)  = PCAPE(:) + XG * ZWORK3(:) * MAX( 0., ZWORK1(:) )
+!
+!
+!*       10.   Compute final values of updraft mass flux, enthalpy, r_w 
+!              at level k+1    
+!              --------------------------------------------------------
+!    
+    PUMF(:,JKP)  = PUMF(:,JK) - PUDR(:,JKP) + PUER(:,JKP) 
+    PUMF(:,JKP)  = MAX( PUMF(:,JKP), 0.1 )
+    PUTHL(:,JKP) = ( PUMF(:,JK) * PUTHL(:,JK) +                              &
+                     PUER(:,JKP) * PTHL(:,JK) - PUDR(:,JKP) * PUTHL(:,JK) )  &
+                    / PUMF(:,JKP) + PUTHL(:,JKP) - PUTHL(:,JK)
+    PURW(:,JKP)  = ( PUMF(:,JK) * PURW(:,JK) +                               &
+                     PUER(:,JKP) * PRW(:,JK) - PUDR(:,JKP) * PURW(:,JK) )    &
+                    / PUMF(:,JKP) - PURR(:,JKP) - PURS(:,JKP)
+!    
+    ZE1(:) = ZE2(:) ! update fractional entrainment/detrainment
+    ZD1(:) = ZD2(:)
+!
+  END WHERE
+!
+END DO
+!
+!*       12.1    Set OTRIG to False if cloud thickness < XCDEPTH
+!                or CAPE < 1
+!                ------------------------------------------------
+!
+    DO JI = 1, IIE
+          JK  = KCTL(JI)
+          OTRIG(JI) = PZ(JI,JK) - PZLCL(JI) >= XCDEPTH               &
+                     .AND. PCAPE(JI) > 1. 
+    END DO
+    WHERE( .NOT. OTRIG(:) )
+          KCTL(:) = IKB 
+    END WHERE
+KETL(:) = MAX( KETL(:), KLCL(:) + 2 )
+KETL(:) = MIN( KETL(:), KCTL(:) )
+!
+!
+!*       12.2    If the ETL and CTL are the same detrain updraft mass   
+!                flux at this level
+!                ------------------------------------------------------- 
+!
+ZWORK1(:) = 0.
+WHERE ( KETL(:) == KCTL(:) ) ZWORK1(:) = 1.
+!
+DO JI = 1, IIE
+    JK = KETL(JI) 
+    PUDR(JI,JK)   = PUDR(JI,JK) +                                    &
+                          ( PUMF(JI,JK) - PUER(JI,JK) )  * ZWORK1(JI)  
+    PUER(JI,JK)   = PUER(JI,JK) * ( 1. - ZWORK1(JI) )
+    PUMF(JI,JK)   = PUMF(JI,JK) * ( 1. - ZWORK1(JI) )
+    JKP = KCTL(JI) + 1
+    PUER(JI,JKP)  = 0. ! entrainm/detr rates have been already computed
+    PUDR(JI,JKP)  = 0. ! at level KCTL+1, set them to zero
+END DO
+!    
+!*       12.3    Adjust mass flux profiles, detrainment rates, and   
+!                precipitation fallout rates to reflect linear decrease
+!                in mass flux between the ETL and CTL
+!                -------------------------------------------------------        
+! 
+ZWORK1(:) = 0.
+JK1 = MINVAL( KETL(:) )
+JK2 = MAXVAL( KCTL(:) )
+DO JK = JK1, JK2
+    DO JI = 1, IIE
+    IF( JK > KETL(JI) .AND. JK <= KCTL(JI) ) THEN
+        ZWORK1(JI) = ZWORK1(JI) + PDPRES(JI,JK)
+    END IF
+    END DO
+END DO
+!
+DO JI = 1, IIE
+    JK = KETL(JI) 
+    ZWORK1(JI) = PUMF(JI,JK) / MAX( 1., ZWORK1(JI) )
+END DO
+!
+DO JK = JK1 + 1, JK2
+    JKP = JK - 1
+    DO JI = 1, IIE
+    IF ( JK > KETL(JI) .AND. JK <= KCTL(JI) ) THEN
+      ! PUTPR(JI)    = PUTPR(JI) - ( PURR(JI,JK) + PURS(JI,JK) ) * PUMF(JI,JKP)      
+        PUTPR(JI)    = PUTPR(JI) - PUPR(JI,JK)
+        PUDR(JI,JK)  = PDPRES(JI,JK) * ZWORK1(JI)
+        PUMF(JI,JK)  = PUMF(JI,JKP) - PUDR(JI,JK)
+        PUPR(JI,JK)  = PUMF(JI,JKP) * ( PURR(JI,JK) + PURS(JI,JK) )
+        PUTPR(JI)    = PUTPR(JI) + PUPR(JI,JK)
+    END IF
+    END DO
+END DO
+!
+!         12.4   Set mass flux and entrainment in the source layer.
+!                Linear increase throughout the source layer.
+!                -------------------------------------------------------
+!
+!IWORK(:) = MIN( KPBL(:), KLCL(:) - 1 )
+IWORK(:) = KPBL(:)
+DO JI = 1, IIE
+     JK  = KDPL(JI)
+     JKP = IWORK(JI)
+!          mixed layer depth
+     ZWORK2(JI) = PPRES(JI,JK) - PPRES(JI,JKP) + PDPRES(JI,JK)
+END DO
+!
+JKP = MAXVAL( IWORK(:) )
+DO JK = JKM, JKP
+   DO JI = 1, IIE
+   IF ( JK >= KDPL(JI)  .AND. JK <= IWORK(JI) ) THEN
+       PUER(JI,JK) = PUER(JI,JK) + PMFLCL(JI) * PDPRES(JI,JK) / ( ZWORK2(JI) + 0.1 )
+       PUMF(JI,JK) = PUMF(JI,JK-1) + PUER(JI,JK)
+   END IF
+   END DO
+END DO
+!
+!
+!*       13.   If cloud thickness is smaller than  3 km, no
+!              convection is allowed
+!              Nota: For technical reasons, we stop the convection
+!                    computations in this case and do not go back to
+!                    TRIGGER_FUNCT to look for the next unstable LCL
+!                    which could produce a thicker cloud.
+!              ---------------------------------------------------
+!
+GWORK6(:,:) = SPREAD( OTRIG(:), DIM=2, NCOPIES=KLEV )
+WHERE ( .NOT. OTRIG(:) ) PUTPR(:) = 0.
+WHERE ( .NOT. GWORK6(:,:) )
+    PUMF(:,:)  = 0.
+    PUDR(:,:)  = 0.
+    PUER(:,:)  = 0.
+    PUTHL(:,:) = PTHL(:,:)
+    PURW(:,:)  = PRW(:,:)
+    PUPR(:,:)  = 0.
+    PURC(:,:)  = 0.
+    PURI(:,:)  = 0.
+    PURR(:,:)  = 0.
+    PURS(:,:)  = 0.
+END WHERE
+!
+END SUBROUTINE CONVECT_UPDRAFT
+!     ######spl
+      SUBROUTINE CONVECT_CONDENS( KLON,                                           &
+                                  KICE, PPRES, PTHL, PRW, PRCO, PRIO, PZ, OWORK1, &
+                                  PT, PEW, PRC, PRI, PLV, PLS, PCPH   )
+!     ###########################################################################
+!
+!!**** Compute temperature cloud and ice water content from enthalpy and r_w 
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!     The purpose of this routine is to determine cloud condensate
+!!     and to return values for L_v, L_s and C_ph
+!!
+!!
+!!**  METHOD
+!!    ------
+!!     Condensate is extracted iteratively 
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     None
+!!     
+!!
+!!    IMPLICIT ARGUMENTS     
+!!    ------------------
+!!
+!!      Module MODD_CST
+!!          XG                   ! gravity constant
+!!          XALPW, XBETAW, XGAMW ! constants for water saturation pressure
+!!          XALPI, XBETAI, XGAMI ! constants for ice saturation pressure
+!!          XP00                 ! reference pressure
+!!          XRD, XRV             ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV           ! specific heat for dry air and water vapor
+!!          XCL, XCI             ! specific heat for liquid water and ice
+!!          XTT                  ! triple point temperature
+!!          XLVTT, XLSTT         ! vaporization, sublimation heat constant
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CONVPAR
+!!          XTFRZ1               ! begin of freezing interval
+!!          XTFRZ2               ! end of freezing interval
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_CONDENS)
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER, INTENT(IN)                :: KLON    ! horizontal loop index
+INTEGER, INTENT(IN)                :: KICE    ! flag for ice ( 1 = yes,
+                                              !                0 = no ice )
+REAL, DIMENSION(KLON),   INTENT(IN) :: PPRES  ! pressure
+REAL, DIMENSION(KLON),   INTENT(IN) :: PTHL   ! enthalpy (J/kg)
+REAL, DIMENSION(KLON),   INTENT(IN) :: PRW    ! total water mixing ratio  
+REAL, DIMENSION(KLON),   INTENT(IN) :: PRCO   ! cloud water estimate (kg/kg)
+REAL, DIMENSION(KLON),   INTENT(IN) :: PRIO   ! cloud ice   estimate (kg/kg)
+REAL, DIMENSION(KLON),   INTENT(IN) :: PZ     ! level height (m)
+LOGICAL, DIMENSION(KLON),INTENT(IN) :: OWORK1 ! logical mask         
+!
+!
+REAL, DIMENSION(KLON),   INTENT(OUT):: PT     ! temperature   
+REAL, DIMENSION(KLON),   INTENT(OUT):: PRC    ! cloud water mixing ratio(kg/kg)
+REAL, DIMENSION(KLON),   INTENT(OUT):: PRI    ! cloud ice mixing ratio  (kg/kg)
+REAL, DIMENSION(KLON),   INTENT(OUT):: PLV    ! latent heat L_v    
+REAL, DIMENSION(KLON),   INTENT(OUT):: PLS    ! latent heat L_s  
+REAL, DIMENSION(KLON),   INTENT(OUT):: PCPH   ! specific heat C_ph   
+REAL, DIMENSION(KLON),   INTENT(OUT):: PEW    ! water saturation mixing ratio  
+!
+!*       0.2   Declarations of local variables KLON
+!
+INTEGER :: JITER          ! iteration index
+REAL    :: ZEPS, ZEPSA    ! R_d / R_v, 1 / ZEPS
+REAL    :: ZCVOCD         ! XCPV / XCPD
+REAL    :: ZRDOCP         ! R_d / C_pd
+!
+REAL, DIMENSION(KLON)    :: ZEI           ! ice saturation mixing ratio
+REAL, DIMENSION(KLON)    :: ZWORK1, ZWORK2, ZWORK3, ZT ! work arrays
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       1.     Initialize temperature and Exner function
+!               -----------------------------------------
+!
+ZRDOCP      = XRD / XCPD  
+ZEPS        = XRD / XRV
+ZEPSA       = 1. / ZEPS
+ZCVOCD      = XCPV / XCPD
+!
+!
+    ! Make a first temperature estimate, based e.g. on values of
+    !  r_c and r_i at lower level
+!
+      !! Note that the definition of ZCPH is not the same as used in
+      !! routine CONVECT_SATMIXRATIO
+     PCPH(:)   = XCPD + XCPV * PRW(:)
+     ZWORK1(:) = ( 1. + PRW(:) ) * XG * PZ(:)
+     PT(:)     = ( PTHL(:) + PRCO(:) * XLVTT + PRIO(:) * XLSTT - ZWORK1(:) )   &
+                 / PCPH(:)
+     PT(:)     = MAX(180., MIN( 330., PT(:) ) ) ! set overflow bounds in
+                                                    ! case that PTHL=0     
+!
+!
+!*       2.     Enter the iteration loop
+!               ------------------------
+!    
+DO JITER = 1,6
+     PEW(:) = EXP( XALPW - XBETAW / PT(:) - XGAMW * LOG( PT(:) ) )
+     ZEI(:) = EXP( XALPI - XBETAI / PT(:) - XGAMI * LOG( PT(:) ) )
+     PEW(:) = ZEPS * PEW(:) / ( PPRES(:) - PEW(:) )
+     ZEI(:) = ZEPS * ZEI(:) / ( PPRES(:) - ZEI(:) )    
+!
+     PLV(:)    = XLVTT + ( XCPV - XCL ) * ( PT(:) - XTT ) ! compute L_v
+     PLS(:)    = XLSTT + ( XCPV - XCI ) * ( PT(:) - XTT ) ! compute L_i
+!    
+     ZWORK2(:) = ( PT(:) - XTFRZ2 ) / ( XTFRZ1 - XTFRZ2 ) ! freezing interval
+     ZWORK2(:) = MAX( 0., MIN(1., ZWORK2(:) ) ) 
+     ZWORK2(:) = ZWORK2(:) * ZWORK2(:)
+     IF ( KICE == 0 ) ZWORK2(:) = 1.
+     ZWORK3(:) = ( 1. - ZWORK2(:) ) * ZEI(:) + ZWORK2(:) * PEW(:)
+     PRC(:)    = MAX( 0., ZWORK2(:) * ( PRW(:) - ZWORK3(:) ) )
+     PRI(:)    = MAX( 0., ( 1. - ZWORK2(:) ) * ( PRW(:) - ZWORK3(:) ) )
+     ZT(:)     = ( PTHL(:) + PRC(:) * PLV(:) + PRI(:) * PLS(:) - ZWORK1(:) )   &
+                 / PCPH(:)
+     PT(:) = PT(:) + ( ZT(:) - PT(:) ) * 0.4  ! force convergence
+     PT(:) = MAX( 175., MIN( 330., PT(:) ) )
+END DO
+!
+!
+END SUBROUTINE CONVECT_CONDENS
+!     ######spl
+      SUBROUTINE CONVECT_SATMIXRATIO( KLON,                          &
+                                      PPRES, PT, PEW, PLV, PLS, PCPH )      
+!     ################################################################
+!
+!!**** Compute vapor saturation mixing ratio over liquid water
+!!
+!!
+!!    PDRPOSE
+!!    -------
+!!     The purpose of this routine is to determine saturation mixing ratio
+!!     and to return values for L_v L_s and C_ph
+!!
+!!
+!!**  METHOD
+!!    ------
+!!
+!!
+!!    EXTERNAL
+!!    --------
+!!     None
+!!
+!!
+!!    IMPLICIT ARGUMENTS    
+!!    ------------------
+!!      Module MODD_CST
+!!          XALPW, XBETAW, XGAMW ! constants for water saturation pressure
+!!          XRD, XRV             ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV           ! specific heat for dry air and water vapor
+!!          XCL, XCI             ! specific heat for liquid water and ice
+!!          XTT                  ! triple point temperature
+!!          XLVTT, XLSTT         ! vaporization, sublimation heat constant
+!!
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_SATMIXRATIO)
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!------------------------- ------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                INTENT(IN) :: KLON    ! horizontal loop index
+REAL, DIMENSION(KLON),  INTENT(IN) :: PPRES   ! pressure
+REAL, DIMENSION(KLON),  INTENT(IN) :: PT      ! temperature   
+!
+REAL, DIMENSION(KLON),  INTENT(OUT):: PEW     ! vapor saturation mixing ratio
+REAL, DIMENSION(KLON),  INTENT(OUT):: PLV     ! latent heat L_v    
+REAL, DIMENSION(KLON),  INTENT(OUT):: PLS     ! latent heat L_s  
+REAL, DIMENSION(KLON),  INTENT(OUT):: PCPH    ! specific heat C_ph   
+!
+!*       0.2   Declarations of local variables :
+!
+REAL, DIMENSION(KLON)              :: ZT      ! temperature   
+REAL    :: ZEPS           ! R_d / R_v
+!
+!
+!-------------------------------------------------------------------------------
+!
+    ZEPS      = XRD / XRV
+!
+    ZT(:)     = MIN( 400., MAX( PT(:), 10. ) ) ! overflow bound
+    PEW(:)    = EXP( XALPW - XBETAW / ZT(:) - XGAMW * LOG( ZT(:) ) )
+    PEW(:)    = ZEPS * PEW(:) / ( PPRES(:) - PEW(:) )
+!
+    PLV(:)    = XLVTT + ( XCPV - XCL ) * ( ZT(:) - XTT ) ! compute L_v
+    PLS(:)    = XLSTT + ( XCPV - XCI ) * ( ZT(:) - XTT ) ! compute L_i
+!    
+    PCPH(:)   = XCPD + XCPV * PEW(:)                     ! compute C_ph 
+!
+END SUBROUTINE CONVECT_SATMIXRATIO
+!     ######spl
+      SUBROUTINE CONVECT_MIXING_FUNCT( KLON,                &
+                                       PMIXC, KMF, PER, PDR ) 
+!     #######################################################
+!
+!!**** Determine the area under the distribution function
+!!     KMF = 1 : gaussian  KMF = 2 : triangular distribution function
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the entrainment and
+!!      detrainment rate by evaluating the are under the distribution 
+!!      function. The integration interval is limited by the critical
+!!      mixed fraction PMIXC
+!!   
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Use handbook of mathemat. functions by Abramowitz and Stegun, 1968
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!      None
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      None
+!!
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book2 of documentation ( routine MIXING_FUNCT)
+!!      Abramovitz and Stegun (1968), handbook of math. functions 
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER,               INTENT(IN) :: KLON   ! horizontal dimension
+INTEGER,               INTENT(IN) :: KMF    ! switch for dist. function
+REAL, DIMENSION(KLON), INTENT(IN) :: PMIXC  ! critical mixed fraction
+!
+REAL, DIMENSION(KLON), INTENT(OUT):: PER    ! normalized entrainment rate
+REAL, DIMENSION(KLON), INTENT(OUT):: PDR    ! normalized detrainment rate
+!
+!*       0.2   Declarations of local variables :
+!
+REAL    :: ZSIGMA = 0.166666667                   ! standard deviation 
+REAL    :: ZFE    = 4.931813949                   ! integral normalization 
+REAL    :: ZSQRTP = 2.506628,  ZP  = 0.33267      ! constants
+REAL    :: ZA1    = 0.4361836, ZA2 =-0.1201676    ! constants
+REAL    :: ZA3    = 0.9372980, ZT1 = 0.500498     ! constants
+REAL    :: ZE45   = 0.01111                       ! constant
+!
+REAL, DIMENSION(KLON) :: ZX, ZY, ZW1, ZW2         ! work variables
+REAL    :: ZW11
+!
+!
+!-------------------------------------------------------------------------------
+!
+!       1.     Use gaussian function for KMF=1
+!              -------------------------------
+!
+IF( KMF == 1 ) THEN 
+    ! ZX(:)  = ( PMIXC(:) - 0.5 ) / ZSIGMA
+      ZX(:)  = 6. * PMIXC(:) - 3.
+      ZW1(:) = 1. / ( 1.+ ZP * ABS ( ZX(:) ) )
+      ZY(:)  = EXP( -0.5 * ZX(:) * ZX(:) )
+      ZW2(:) = ZA1 * ZW1(:) + ZA2 * ZW1(:) * ZW1(:) +                   &
+               ZA3 * ZW1(:) * ZW1(:) * ZW1(:)
+      ZW11   = ZA1 * ZT1 + ZA2 * ZT1 * ZT1 + ZA3 * ZT1 * ZT1 * ZT1
+ENDIF 
+!
+WHERE ( KMF == 1 .AND. ZX(:) >= 0. )
+	PER(:) = ZSIGMA * ( 0.5 * ( ZSQRTP - ZE45 * ZW11                 &
+		 - ZY(:) * ZW2(:) ) + ZSIGMA * ( ZE45 - ZY(:) ) )        &
+		 - 0.5 * ZE45 * PMIXC(:) * PMIXC(:)
+	PDR(:) = ZSIGMA*( 0.5 * ( ZY(:) * ZW2(:) - ZE45 * ZW11   )       &
+		 + ZSIGMA * ( ZE45 - ZY(:) ) )                           &
+		 - ZE45 * ( 0.5 + 0.5 * PMIXC(:) * PMIXC(:) - PMIXC(:) )
+END WHERE
+WHERE ( KMF == 1 .AND. ZX(:) < 0. ) 
+	PER(:) = ZSIGMA*( 0.5 * ( ZY(:) * ZW2(:) - ZE45 * ZW11   )       &
+		 + ZSIGMA * ( ZE45 - ZY(:) ) )                           &
+		 - 0.5 * ZE45 * PMIXC(:) * PMIXC(:)
+	PDR(:) = ZSIGMA * ( 0.5 * ( ZSQRTP - ZE45 * ZW11 - ZY(:)         &
+		 * ZW2(:) ) + ZSIGMA * ( ZE45 - ZY(:) ) )                &
+		 - ZE45 * ( 0.5 + 0.5 * PMIXC(:) * PMIXC(:) - PMIXC(:) )
+END WHERE
+!
+      PER(:) = PER(:) * ZFE
+      PDR(:) = PDR(:) * ZFE
+!
+!
+!       2.     Use triangular function KMF=2
+!              -------------------------------
+!
+!     not yet released
+!
+!
+END SUBROUTINE CONVECT_MIXING_FUNCT
+!     ######spl
+      SUBROUTINE CONVECT_TSTEP_PREF( KLON, KLEV,                           &
+				     PU, PV, PPRES, PZ, PDXDY, KLCL, KCTL, &
+                                     PTIMEA, PPREF )
+!     ######################################################################
+!
+!!**** Routine to compute convective advection time step and precipitation 
+!!     efficiency 
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the convective
+!!      advection time step PTIMEC as a function of the mean ambient 
+!!      wind as well as the precipitation efficiency as a function
+!!      of wind shear and cloud base height.
+!!
+!!
+!!**  METHOD
+!!    ------
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     None
+!!
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation 
+!!      Fritsch and Chappell, 1980, J. Atmos. Sci.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER, INTENT(IN)                    :: KLON   ! horizontal dimension
+INTEGER, INTENT(IN)                    :: KLEV   ! vertical dimension
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES  ! pressure (Pa) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PU     ! grid scale horiz. wind u 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PV     ! grid scale horiz. wind v
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ     ! height of model layer (m) 
+REAL, DIMENSION(KLON),      INTENT(IN) :: PDXDY  ! grid area (m^2)
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KLCL   ! lifting condensation level index
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KCTL   ! cloud top level index
+!
+REAL, DIMENSION(KLON),      INTENT(OUT):: PTIMEA ! advective time period
+REAL, DIMENSION(KLON),      INTENT(OUT):: PPREF  ! precipitation efficiency 
+!
+!
+!*       0.2   Declarations of local variables KLON
+!
+INTEGER :: IIE, IKB, IKE                      ! horizontal + vertical loop bounds
+INTEGER :: JI                                 ! horizontal loop index
+INTEGER :: JK, JKLC, JKP5, JKCT               ! vertical loop index
+!
+INTEGER, DIMENSION(KLON)  :: IP500       ! index of 500 hPa levels
+REAL, DIMENSION(KLON)     :: ZCBH        ! cloud base height 
+REAL, DIMENSION(KLON)     :: ZWORK1, ZWORK2, ZWORK3  ! work arrays
+!
+!
+!-------------------------------------------------------------------------------
+!
+!        0.3   Set loop bounds
+!              ---------------
+!
+IIE = KLON
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+!
+!
+!*       1.     Determine vertical index for 500 hPa levels 
+!               ------------------------------------------
+!
+!
+IP500(:) = IKB
+DO JK = IKB, IKE
+    WHERE ( PPRES(:,JK) >= 500.E2 ) IP500(:) = JK
+END DO
+!
+!
+!*       2.     Compute convective time step 
+!               ----------------------------
+!
+	    ! compute wind speed at LCL, 500 hPa, CTL
+
+DO JI = 1, IIE
+   JKLC = KLCL(JI)
+   JKP5 = IP500(JI)
+   JKCT = KCTL(JI)
+   ZWORK1(JI) = SQRT( PU(JI,JKLC) * PU(JI,JKLC) +           &
+		      PV(JI,JKLC) * PV(JI,JKLC)  ) 
+   ZWORK2(JI) = SQRT( PU(JI,JKP5) * PU(JI,JKP5) +           &
+		      PV(JI,JKP5) * PV(JI,JKP5)  ) 
+   ZWORK3(JI) = SQRT( PU(JI,JKCT) * PU(JI,JKCT) +           &
+		      PV(JI,JKCT) * PV(JI,JKCT)  ) 
+END DO
+!
+ZWORK2(:) = MAX( 0.1, 0.5 * ( ZWORK1(:) + ZWORK2(:) ) )
+!
+PTIMEA(:) = SQRT( PDXDY(:) ) / ZWORK2(:) 
+!
+!
+!*       3.     Compute precipitation efficiency 
+!               -----------------------------------
+!
+!*       3.1    Precipitation efficiency as a function of wind shear
+!               ----------------------------------------------------
+!
+ZWORK2(:) = SIGN( 1., ZWORK3(:) - ZWORK1(:) )
+DO JI = 1, IIE
+    JKLC = KLCL(JI)
+    JKCT = KCTL(JI)
+    ZWORK1(JI) = ( PU(JI,JKCT) - PU(JI,JKLC) )  *          &
+                 ( PU(JI,JKCT) - PU(JI,JKLC) )  +          &
+                 ( PV(JI,JKCT) - PV(JI,JKLC) )  *          &
+                 ( PV(JI,JKCT) - PV(JI,JKLC) )  
+    ZWORK1(JI) = 1.E3 * ZWORK2(JI) * SQRT( ZWORK1(JI) ) /  &
+	         MAX( 1.E-2, PZ(JI,JKCT) - PZ(JI,JKLC) )
+END DO
+!
+PPREF(:)  = 1.591 + ZWORK1(:) * ( -.639 + ZWORK1(:) * (        &
+				9.53E-2 - ZWORK1(:) * 4.96E-3 ) ) 
+PPREF(:)  = MAX( .4, MIN( PPREF(:), .92 ) )
+!
+!*       3.2    Precipitation efficiency as a function of cloud base height 
+!               ----------------------------------------------------------
+!
+DO JI = 1, IIE
+   JKLC = KLCL(JI)
+   ZCBH(JI)   = MAX( 3., ( PZ(JI,JKLC) - PZ(JI,IKB) ) * 3.281E-3 ) 
+END DO
+ZWORK1(:) = .9673 + ZCBH(:) * ( -.7003 + ZCBH(:) * ( .1622 + &
+	      ZCBH(:) *  ( -1.2570E-2 + ZCBH(:) * ( 4.2772E-4 -  &
+              ZCBH(:) * 5.44E-6 ) ) ) )
+ZWORK1(:) = MAX( .4, MIN( .92, 1./ ( 1. + ZWORK1(:) ) ) )
+!
+!*       3.3    Mean precipitation efficiency is used to compute rainfall 
+!               ----------------------------------------------------------
+!
+PPREF(:) = 0.5 * ( PPREF(:) + ZWORK1(:) )
+!
+!
+END SUBROUTINE CONVECT_TSTEP_PREF
+!     ######spl
+     SUBROUTINE CONVECT_DOWNDRAFT( KLON, KLEV,                                &
+                                   KICE, PPRES, PDPRES, PZ, PTH, PTHES,       &
+                                   PRW, PRC, PRI,                             &
+                                   PPREF, KLCL, KCTL, KETL,                   &
+                                   PUTHL, PURW, PURC, PURI,                   &
+                                   PDMF, PDER, PDDR, PDTHL, PDRW,             &
+                                   PMIXF, PDTEVR, KLFS, KDBL, KML,            &
+                                   PDTEVRF )
+!    ########################################################################
+!
+!!**** Compute downdraft properties from LFS to DBL. 
+!!
+!!
+!!    PDRPOSE                                                       
+!!    -------
+!!      The purpose of this routine is to determine downdraft properties
+!!      ( mass flux, thermodynamics ) 
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from top.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     Routine CONVECT_SATMIXRATIO        
+!!                
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XPI                ! Pi
+!!          XP00               ! reference pressure
+!!          XRD, XRV           ! gaz  constants for dry air and water vapor
+!!          XCPD               ! Cpd (dry air)
+!!          XCPV, XCL, XCI     ! Cp of water vapor, liquid water and ice
+!!          XTT                ! triple point temperature
+!!          XLVTT, XLSTT       ! vaporisation/sublimation heat at XTT
+!!
+!!      Module MODD_CONVPAR
+!!          XCRAD              ! cloud radius
+!!          XZPBL              ! thickness of downdraft detrainment layer
+!!          XENTR              ! entrainment constant in pressure coordinates
+!!          XRHDBC             ! relative humidity in downdraft below cloud
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_DOWNDRAFT)
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                    INTENT(IN) :: KLON  ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV  ! vertical dimension
+INTEGER,                    INTENT(IN) :: KICE  ! flag for ice ( 1 = yes,
+                                                !                0 = no ice )
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTH   ! grid scale theta        
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHES ! grid scale saturated theta_e 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRW   ! grid scale total water  
+                                                ! mixing ratio 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRC   ! grid scale r_c (cloud water) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRI   ! grid scale r_i (cloud ice) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES ! pressure (Pa)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDPRES! pressure difference between 
+						! bottom and top of layer (Pa) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ    ! level height (m)
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KLCL  ! contains vert. index of LCL
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KCTL  ! contains vert. index of CTL 
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KETL  ! contains vert. index of 
+						! equilibrium (zero buoyancy) level 
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KML   ! " vert. index of melting level
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PUTHL ! updraft enthalpy (J/kg)      
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PURW  ! updraft total water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PURC  ! updraft r_c (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PURI  ! updraft r_i (kg/kg)
+REAL, DIMENSION(KLON),      INTENT(IN) :: PPREF ! precipitation efficiency
+!
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDMF   ! downdraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDER   ! downdraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDDR   ! downdraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDTHL  ! downdraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDRW   ! downdraft total water (kg/kg)
+REAL, DIMENSION(KLON),      INTENT(OUT):: PMIXF  ! mixed fraction at LFS
+REAL, DIMENSION(KLON),      INTENT(OUT):: PDTEVR ! total downdraft evaporation
+                                                 ! rate at LFS (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDTEVRF! downdraft evaporation rate
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KLFS    ! contains vert. index of LFS 
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KDBL    ! contains vert. index of DBL   
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE     ! horizontal + vertical loop bounds
+INTEGER :: JK, JKP, JKM, JKT ! vertical loop index
+INTEGER :: JI, JL            ! horizontal loop index
+INTEGER :: JITER          ! iteration loop index
+REAL    :: ZCPORD, ZRDOCP ! C_pd / R_d, R_d / C_pd
+REAL    :: ZEPS           ! R_d / R_v
+REAL    :: ZEPSA, ZCVOCD  ! R_v / R_d, C_pv / C_pd
+!
+INTEGER, DIMENSION(KLON) :: IDDT      ! top level of detrainm. layer
+REAL, DIMENSION(KLON)    :: ZTHE      ! environm. theta_e (K)
+REAL, DIMENSION(KLON)    :: ZDT, ZDTP ! downdraft temperature (K)
+REAL, DIMENSION(KLON)    :: ZCPH      ! specific heat C_ph 
+REAL, DIMENSION(KLON)    :: ZLV, ZLS  ! latent heat of vaporis., sublim.       
+REAL, DIMENSION(KLON)    :: ZDDT      ! thickness (hPa) of detrainm. layer
+REAL, DIMENSION(KLON)    :: ZPI       ! Pi=(P0/P)**(Rd/Cpd)  
+REAL, DIMENSION(KLON)    :: ZWORK1, ZWORK2, ZWORK3, ZWORK4,  &
+                                   ZWORK5                  ! work arrays 
+LOGICAL, DIMENSION(KLON) :: GWORK1                         ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!        0.3    Set loop bounds
+!               ---------------
+!
+IIE = KLON
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+!
+!
+!*       1.     Initialize downdraft properties
+!               -------------------------------
+!
+ZCPORD     = XCPD / XRD
+ZRDOCP     = XRD / XCPD
+ZEPS       = XRD / XRV
+ZEPSA      = XRV / XRD
+ZCVOCD     = XCPV / XCPD
+PDMF(:,:)  = 0.
+PDER(:,:)  = 0.
+PDDR(:,:)  = 0.
+PDRW(:,:)  = 0.
+PDTHL(:,:) = 0.
+PDTEVR(:)  = 0.
+PMIXF(:)   = 0.
+ZTHE(:)    = 0.
+ZDDT(:)    = PDPRES(:,IKB+2)
+KDBL(:)    = IKB + 1
+KLFS(:)    = IKB + 1
+IDDT(:)    = KDBL(:) + 1
+!  
+!
+!*       2.     Determine the LFS by looking for minimum of environmental 
+!               saturated theta_e 
+!               ----------------------------------------------------------
+!
+ZWORK1(:) = 900.   ! starting value for search of minimum envir. theta_e
+DO JK = MINVAL( KLCL(:) ) + 2, MAXVAL( KETL(:) )
+   DO JI = 1, IIE
+      GWORK1(JI) = JK >= KLCL(JI) + 2 .AND. JK < KETL(JI)  
+      IF ( GWORK1(JI) .AND. ZWORK1(JI) > PTHES(JI,JK) ) THEN
+         KLFS(JI)   = JK
+         ZWORK1(JI) = MIN( ZWORK1(JI), PTHES(JI,JK) )
+      END IF
+   END DO
+END DO      
+!
+!
+!*       3.     Determine the mixed fraction using environmental and updraft
+!               values of theta_e at LFS
+!               ---------------------------------------------------------   
+!
+DO JI = 1, IIE
+    JK = KLFS(JI)
+    ZPI(JI)    = ( XP00 / PPRES(JI,JK) ) ** ZRDOCP
+      ! compute updraft theta_e
+    ZWORK3(JI) = PURW(JI,JK) - PURC(JI,JK) - PURI(JI,JK)
+    ZDT(JI)    = PTH(JI,JK) / ZPI(JI) 
+    ZLV(JI)    = XLVTT + ( XCPV - XCL ) * ( ZDT(JI) - XTT )                   
+    ZLS(JI)    = XLSTT + ( XCPV - XCI ) * ( ZDT(JI) - XTT )                   
+    ZCPH(JI)   = XCPD + XCPV * PURW(JI,JK)
+    ZDT(JI)    = ( PUTHL(JI,JK) - ( 1. + PURW(JI,JK) ) * XG * PZ(JI,JK)       &
+                 + ZLV(JI) * PURC(JI,JK) + ZLS(JI) * PURI(JI,JK) ) / ZCPH(JI)           
+    ZWORK1(JI) = ZDT(JI) * ZPI(JI) ** ( 1. - 0.28 * ZWORK3(JI) )              &
+                                  * EXP( ( 3374.6525 / ZDT(JI) - 2.5403 )     &
+                                  * ZWORK3(JI) * ( 1. + 0.81 * ZWORK3(JI) ) )
+      ! compute environmental theta_e
+    ZDT(JI)    = PTH(JI,JK) / ZPI(JI)
+    ZLV(JI)    = XLVTT + ( XCPV - XCL ) * ( ZDT(JI) - XTT )                   
+    ZLS(JI)    = XLSTT + ( XCPV - XCI ) * ( ZDT(JI) - XTT )                   
+    ZWORK3(JI) = PRW(JI,JK) - PRC(JI,JK) - PRI(JI,JK)
+    ZCPH(JI)   = XCPD + XCPV * PRW(JI,JK)
+    ZWORK2(JI) = ZDT(JI) * ZPI(JI) ** ( 1. - 0.28 * ZWORK3(JI) )              &
+                                  * EXP( ( 3374.6525 / ZDT(JI) - 2.5403 )     &
+                                  * ZWORK3(JI) * ( 1. + 0.81 * ZWORK3(JI) ) )
+      ! compute mixed fraction
+    PMIXF(JI)  = MAX( 0., ( ZWORK1(JI) - PTHES(JI,JK) ) )                   &
+                  / ( ZWORK1(JI) - ZWORK2(JI) + 1.E-10 )
+    PMIXF(JI)  = MAX(0., MIN( 1., PMIXF(JI) ) )
+    ZWORK4(JI) = PPRES(JI,JK)
+END DO
+!
+!
+!*       4.     Estimate the effect of melting on the downdraft  
+!               ---------------------------------------------
+!
+ZWORK1(:) = 0.
+      ! use total solid precipitation
+!DO JK = IKB + 1, IKE
+!    ZWORK1(:) = ZWORK1(:) + PURS(:,JK) ! total snow/hail content
+!END DO
+!
+DO JI = 1, IIE
+     JK  = KLCL(JI)
+     JKP = KCTL(JI)
+     ZWORK1(JI) = 0.5 * ( PURW(JI,JK) - PURW(JI,JKP) )
+END DO
+!
+      ! temperature perturbation due to melting at LFS
+ZWORK3(:) = 0.
+WHERE( KML(:) > IKB + 2 )
+	  ZWORK3(:) = ZWORK1(:) * ( ZLS(:) - ZLV(:) ) / ZCPH(:)
+	  ZDT(:)    = ZDT(:) - ZWORK3(:) * REAL(KICE)
+END WHERE
+!
+!
+!*       5.     Initialize humidity at LFS as a saturated mixture of
+!               updraft and environmental air
+!               -----------------------------------------------------    
+!
+DO JI = 1, IIE
+     JK = KLFS(JI)
+     PDRW(JI,JK)  = PMIXF(JI) * PRW(JI,JK) + ( 1. - PMIXF(JI) ) * PURW(JI,JK)
+     ZWORK2(JI)   = PDRW(JI,JK) - ( 1. - PMIXF(JI) )                          &
+                                     * ( PURC(JI,JK) + PURI(JI,JK) )
+END DO
+!
+!
+!*       6.1    Determine the DBL by looking for level where the envir.
+!               theta_es at the LFS corrected by melting effects  becomes
+!               larger than envir. value
+!               ---------------------------------------------------------
+!
+      ! compute satur. mixing ratio for melting corrected temperature
+CALL CONVECT_SATMIXRATIO( KLON, ZWORK4, ZDT, ZWORK3, ZLV, ZLS, ZCPH )  
+!
+      ! compute envir. saturated theta_e for melting corrected temperature
+    ZWORK1(:) = MIN( ZWORK2(:), ZWORK3(:) )
+    ZWORK3(:) = ZWORK3(:) * ZWORK4(:) / ( ZWORK3(:) + ZEPS ) ! sat. pressure
+    ZWORK3(:) = LOG( ZWORK3(:) / 613.3 )
+              ! dewp point temperature
+    ZWORK3(:) = ( 4780.8 - 32.19 * ZWORK3(:) ) / ( 17.502 - ZWORK3(:) )
+              ! adiabatic saturation temperature
+    ZWORK3(:) = ZWORK3(:) - ( .212 + 1.571E-3 * ( ZWORK3(:) - XTT )          &
+                  - 4.36E-4 * ( ZDT(:) - XTT ) ) * ( ZDT(:) - ZWORK3(:) )
+    ZWORK4(:) = SIGN(0.5, ZWORK2(:) - ZWORK3(:) )
+    ZDT(:)    = ZDT(:) * ( .5 + ZWORK4(:) ) + ( .5 - ZWORK4(:) ) * ZWORK3(:) 
+    ZWORK2(:) = ZDT(:) * ZPI(:) ** ( 1. - 0.28 * ZWORK2(:) )                 &
+                                  * EXP( ( 3374.6525 / ZDT(:) - 2.5403 )     &
+                                  * ZWORK1(:) * ( 1. + 0.81 * ZWORK1(:) ) )
+!
+GWORK1(:) = .TRUE.
+JKM = MAXVAL( KLFS(:) )
+DO JK = JKM - 1, IKB + 1, -1
+  DO JI = 1, IIE
+     IF ( JK < KLFS(JI) .AND. ZWORK2(JI) > PTHES(JI,JK) .AND. GWORK1(JI) ) THEN
+	  KDBL(JI) = JK
+          GWORK1(JI) = .FALSE.
+     END IF
+  END DO
+END DO
+!
+!
+!*       7.     Define mass flux and entr/detr. rates at LFS
+!               -------------------------------------------
+!
+DO JI = 1, IIE
+     JK = KLFS(JI)
+     ZWORK1(JI)  = PPRES(JI,JK) /                                            &
+                   ( XRD * ZDT(JI) * ( 1. + ZEPS * ZWORK1(JI) ) ) ! density
+     PDMF(JI,JK) = - ( 1. - PPREF(JI) ) * ZWORK1(JI) * XPI * XCRAD * XCRAD
+     PDTHL(JI,JK)= ZWORK2(JI)   ! theta_l is here actually theta_e
+     ZWORK2(JI)  = PDMF(JI,JK)
+     PDDR(JI,JK) = 0.
+     PDER(JI,JK) = - PMIXF(JI) * PDMF(JI,JK)
+END DO
+!
+!
+!         7.1   Downdraft detrainment is assumed to occur in a layer
+!               of 60 hPa, determine top level IDDT of this layer
+!               ---------------------------------------------------------
+!
+ZWORK1(:) = 0.
+DO JK = IKB + 2, JKM
+      ZWORK1(:) = ZWORK1(:) + PDPRES(:,JK)
+      WHERE ( JK > KDBL(:) .AND. ZWORK1(:) <= XZPBL )
+           ZDDT(:) = ZWORK1(:) 
+           IDDT(:) = JK
+      END WHERE
+END DO
+!
+!
+!*       8.     Enter loop for downdraft computations. Make a first guess
+!               of initial downdraft mass flux. 
+!               In the downdraft computations we use theta_es instead of 
+!               enthalpy as it allows to better take into account evaporation
+!               effects. As the downdraft detrainment rate is zero apart 
+!               from the detrainment layer, we just compute enthalpy 
+!               downdraft from theta_es in this layer.
+!               ----------------------------------------------------------
+!
+!
+ZWORK5(:) = 0.
+!
+DO JK =  JKM - 1, IKB + 1, -1
+  JKP = JK + 1
+  DO JI = 1, IIE
+    IF ( JK < KLFS(JI) .AND. JK >= IDDT(JI) )  THEN
+      PDER(JI,JK)  = - ZWORK2(JI) * XENTR * PDPRES(JI,JKP) / XCRAD 
+                                               ! DER and DPRES are positive
+      PDMF(JI,JK)  = PDMF(JI,JKP) - PDER(JI,JK) 
+      ZPI(JI)      = ( XP00 / PPRES(JI,JK) ) ** ZRDOCP
+      ZDT(JI)      = PTH(JI,JK) / ZPI(JI)
+      ZWORK1(JI)   = PRW(JI,JK) - PRC(JI,JK) - PRI(JI,JK)
+      ZTHE(JI)     = ZDT(JI) * ZPI(JI) ** ( 1. - 0.28 * ZWORK1(JI) )           &
+                               * EXP( ( 3374.6525 / ZDT(JI) - 2.5403 )         &
+                               * ZWORK1(JI) * ( 1. + 0.81 * ZWORK1(JI) ) )
+         ! PDTHL is here theta_es, later on in this routine this table is
+         ! reskipped to enthalpy 
+      PDTHL(JI,JK) = ( PDTHL(JI,JKP) * PDMF(JI,JKP) - ZTHE(JI) * PDER(JI,JK)    &
+                    ) / ( PDMF(JI,JK) - 1.E-7 )      
+      PDRW(JI,JK)  = ( PDRW(JI,JKP) * PDMF(JI,JKP) - PRW(JI,JK) * PDER(JI,JK)   &
+                    ) / ( PDMF(JI,JK) - 1.E-7 )       
+    END IF
+    IF ( JK < IDDT(JI) .AND. JK >= KDBL(JI) )   THEN
+      JL = IDDT(JI)
+      PDDR(JI,JK)  = - PDMF(JI,JL) * PDPRES(JI,JKP) / ZDDT(JI) 
+      PDMF(JI,JK)  = PDMF(JI,JKP) + PDDR(JI,JK) 
+      PDTHL(JI,JK) = PDTHL(JI,JKP)
+      PDRW(JI,JK)  = PDRW(JI,JKP)
+    END IF
+  END DO
+END DO
+!
+!
+!*       9.     Calculate total downdraft evaporation 
+!               rate for given mass flux (between DBL and IDDT)
+!               -----------------------------------------------
+!
+PDTEVRF(:,:) = 0.
+!
+JKT = MAXVAL( IDDT(:) )
+DO JK = IKB + 1, JKT
+!
+       ZPI(:) = ( XP00 / PPRES(:,JK) ) ** ZRDOCP
+       ZDT(:) = PTH(:,JK) / ZPI(:)
+!
+!*       9.1    Determine wet bulb temperature at DBL from theta_e.
+!               The iteration algoritm is similar to that used in
+!               routine CONVECT_CONDENS
+!               --------------------------------------------------
+!
+   DO JITER = 1, 4
+       CALL CONVECT_SATMIXRATIO( KLON, PPRES(:,JK), ZDT, ZWORK1, ZLV, ZLS, ZCPH )  
+       ZDTP(:) = PDTHL(:,JK) / ( ZPI(:) ** ( 1. - 0.28 * ZWORK1(:) )         &
+                      * EXP( ( 3374.6525 / ZDT(:) - 2.5403 )                 &
+                             * ZWORK1(:) * ( 1. + 0.81 * ZWORK1(:) ) ) )
+       ZDT(:)  = 0.4 * ZDTP(:) + 0.6 * ZDT(:) ! force convergence
+   END DO
+!
+!
+!*       9.2    Sum total downdraft evaporation rate. No evaporation
+!               if actual humidity is larger than specified one.
+!               -----------------------------------------------------
+!
+   ZWORK2(:) = ZWORK1(:) / ZDT(:) * ( XBETAW / ZDT(:) - XGAMW ) ! dr_sat/dT
+   ZWORK2(:) = ZLV(:) / ZCPH(:) * ZWORK1(:) * ( 1. - XRHDBC ) /              &
+                    ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) ) ! temperature perturb                                                           ! due to evaporation
+   ZDT(:)    = ZDT(:) + ZWORK2(:)
+!
+   CALL CONVECT_SATMIXRATIO( KLON, PPRES(:,JK), ZDT, ZWORK3, ZLV, ZLS, ZCPH )
+!
+   ZWORK3(:)    = ZWORK3(:) * XRHDBC
+   ZWORK1(:)    = MAX( 0., ZWORK3(:) - PDRW(:,JK) ) 
+   PDTEVR(:)    = PDTEVR(:) + ZWORK1(:) * PDDR(:,JK) 
+   PDTEVRF(:,JK)= PDTEVRF(:,JK) + ZWORK1(:) * PDDR(:,JK) 
+      ! compute enthalpie and humidity in the detrainment layer
+   PDRW(:,JK)   = MAX( PDRW(:,JK), ZWORK3(:) ) 
+   PDTHL(:,JK)  = ( ( XCPD + PDRW(:,JK) * XCPV ) * ZDT(:)                    &
+                    + ( 1. + PDRW(:,JK) ) * XG * PZ(:,JK) ) 
+!
+END DO
+!
+!
+!*      12.     If downdraft does not evaporate any water for specified 
+!               relative humidity, no downdraft is allowed
+!               ---------------------------------------------------------
+!
+ZWORK2(:) = 1.
+WHERE ( PDTEVR(:) < 1. .OR. KLFS(:) == IKB + 1 ) ZWORK2(:) = 0.
+DO JK = IKB, JKM
+      KDBL(:)     = KDBL(:) * INT( ZWORK2(:) ) + ( 1 - INT( ZWORK2(:) ) ) * IKB
+      KLFS(:)     = KLFS(:) * INT( ZWORK2(:) ) + ( 1 - INT( ZWORK2(:) ) ) * IKB
+      PDMF(:,JK)  = PDMF(:,JK)  * ZWORK2(:)
+      PDER(:,JK)  = PDER(:,JK)  * ZWORK2(:) 
+      PDDR(:,JK)  = PDDR(:,JK)  * ZWORK2(:) 
+      ZWORK1(:)   = REAL( KLFS(:) - JK )         ! use this to reset thl_d
+      ZWORK1(:)   = MAX( 0.,MIN(1.,ZWORK1(:) ) ) ! and rv_d to zero above LFS
+      PDTHL(:,JK) = PDTHL(:,JK) * ZWORK2(:) * ZWORK1(:)
+      PDRW(:,JK)  = PDRW(:,JK)  * ZWORK2(:) * ZWORK1(:)
+      PDTEVR(:)   = PDTEVR(:)   * ZWORK2(:)
+      PDTEVRF(:,JK)= PDTEVRF(:,JK) * ZWORK2(:)
+END DO
+!
+END SUBROUTINE CONVECT_DOWNDRAFT
+!     ######spl
+      SUBROUTINE CONVECT_PRECIP_ADJUST( KLON, KLEV,                        &
+                                        PPRES, PUMF, PUER, PUDR,           &
+                                        PUPR, PUTPR, PURW,                 &
+                                        PDMF, PDER, PDDR, PDTHL, PDRW,     &
+                                        PPREF, PTPR, PMIXF, PDTEVR,        &
+                                        KLFS, KDBL, KLCL, KCTL, KETL,      &
+                                        PDTEVRF )
+!     ######################################################################
+!
+!!**** Adjust up- and downdraft mass fluxes to be consistent with the
+!!     mass transport at the LFS given by the precipitation efficiency
+!!     relation. 
+!!
+!!
+!!    PURPOSE                                                       
+!!    -------
+!!      The purpose of this routine is to adjust up- and downdraft mass
+!!      fluxes below the LFS to be consistent with the precipitation
+!!      efficiency relation
+!!
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      
+!!
+!!    EXTERNAL
+!!    --------
+!!     None
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!     Module MODD_CONVPAR
+!!        XUSRDPTH             ! pressure depth to compute updraft humidity
+!!                             ! supply rate for downdraft
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_PRECIP_ADJUST)
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAREXT
+USE MODD_CONVPAR
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                    INTENT(IN) :: KLON  ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV  ! vertical dimension
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES ! pressure (Pa)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PURW  ! updraft total water (kg/kg) 
+REAL, DIMENSION(KLON),      INTENT(IN) :: PUTPR ! updraft  total precipit. (kg/s
+REAL, DIMENSION(KLON),      INTENT(IN) :: PPREF ! precipitation efficiency
+REAL, DIMENSION(KLON),      INTENT(IN) :: PMIXF ! critical mixed fraction at LCL
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KLCL  ! contains vert. index of LCL
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KCTL  ! contains vert. index of CTL
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KETL  ! contains vert. index of equilibrium 
+						! (zero buoyancy) level 
+INTEGER, DIMENSION(KLON),  INTENT(INOUT) :: KLFS ! contains vert. index of LFS
+INTEGER, DIMENSION(KLON),  INTENT(INOUT) :: KDBL ! contains vert. index of DBL
+!
+REAL, DIMENSION(KLON),      INTENT(INOUT) :: PDTEVR ! total downdraft evaporation
+                                                    ! rate at LFS   
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDTEVRF! downdraft evaporation rate
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUMF   ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUER   ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUDR   ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUPR   ! updraft  precipit. (kg/s)     
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDMF   ! downdraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDER   ! downdraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDDR   ! downdraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDTHL  ! downdraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDRW   ! downdraft total water (kg/kg)
+!
+REAL, DIMENSION(KLON),     INTENT(OUT)   :: PTPR    ! total precipitation (kg/s) 
+                                                 ! = downdraft precipitation
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE        ! horizontal + vertical loop bounds
+INTEGER :: JK, JKT1, JKT2, JKT3 ! vertical loop index
+INTEGER :: JI                   ! horizontal loop index
+!
+INTEGER, DIMENSION(KLON) :: IPRL
+REAL, DIMENSION(KLON)    :: ZWORK1, ZWORK2, ZWORK3,     &
+				    ZWORK4, ZWORK5, ZWORK6 ! work arrays
+!
+!
+!-------------------------------------------------------------------------------
+!
+!        0.3   Set loop bounds
+!              ---------------
+!
+IKB  = 1 + JCVEXB 
+IKE  = KLEV - JCVEXT 
+IIE  = KLON
+JKT1 = MAXVAL( KLFS(:) )
+JKT2 = MAXVAL( KCTL(:) )
+JKT3 = MINVAL( KLCL(:) )
+!
+!
+!        1.    Set some output variables for columns where no downdraft 
+!              exists. Exit if there is no downdraft at all.
+!              --------------------------------------------------------
+!
+IPRL(:) = IKB
+PTPR(:) = 0.
+!
+WHERE ( PDTEVR(:) == 0. )
+     PTPR(:)    = PUTPR(:)  ! no downdraft evaporation => no downdraft, all
+			    ! precipitation occurs in updraft
+END WHERE
+IF ( COUNT( PDTEVR(:) > 0. ) == 0 ) RETURN ! exit routine if no downdraft exists
+!
+!*       2.     The total mass transported from the updraft to the down-  
+!               draft at the LFS must be consistent with the three water
+!               budget terms :
+!               ---------------------------------------------------------
+!
+!*       2.1    Downdraft evaporation rate at the DBL. The evaporation
+!               rate in downdraft must be consistent with precipitation
+!               efficiency relation.
+!               --------------------------------------------------------
+!
+!
+DO JI = 1, IIE
+     JK = KLFS(JI)
+     ZWORK1(JI) = PDTEVR(JI) / MIN( -1.E-1, PDMF(JI,JK) )
+     ZWORK6(JI) = PDMF(JI,JK)
+END DO
+!
+!*       2.2    Some preliminar computations for downdraft = total 
+!               precipitation rate. The precipitation is evaluated in 
+!               a layer thickness DP=XUSRDPTH=165 hPa above the LCL.
+!               The difference between updraft precipitation and downdraft
+!               precipitation (updraft supply rate) is used to drive the
+!               downdraft through evaporational cooling.
+!               --------------------------------------------------------
+!
+DO JI = 1, IIE
+     JK = KLCL(JI)
+     ZWORK5(JI) = PPRES(JI,JK)
+END DO
+!
+PTPR(:) = 0.
+DO JK = JKT3, JKT2
+    WHERE ( JK >= KLCL(:) .AND. PPRES(:,JK) >= ZWORK5(:) - XUSRDPTH )
+	PTPR(:) = PTPR(:) + PUPR(:,JK)
+	IPRL(:) = JK
+    END WHERE
+END DO
+IPRL(:) = MIN( KETL(:), IPRL(:) )
+!
+DO JI = 1, IIE
+     JK = IPRL(JI)
+     PTPR(JI) = PUMF(JI,JK+1) * PURW(JI,JK+1) + PTPR(JI) 
+END DO
+!
+PTPR(:) = PPREF(:) * MIN( PUTPR(:), PTPR(:) )
+ZWORK4(:) = PUTPR(:) - PTPR(:) 
+!
+!
+!*       2.3    Total amount of precipitation that falls out of the up-
+!               draft between the LCL and the LFS.
+!               Condensate transfer from up to downdraft at LFS
+!               ---------------------------------------------------------
+!
+ZWORK5(:) = 0.
+DO JK = JKT3, JKT1
+     WHERE ( JK >= KLCL(:) .AND. JK <= KLFS(:) )
+	   ZWORK5(:) = ZWORK5(:) +  PUPR(:,JK)
+     END WHERE
+END DO
+!
+DO JI = 1, IIE
+     JK = KLFS(JI)
+     ZWORK2(JI) = ( 1. - PPREF(JI) ) * ZWORK5(JI) *                     &
+                  ( 1. - PMIXF(JI) ) / MAX( 1.E-1, PUMF(JI,JK) )
+END DO
+!
+!
+!*       2.4    Increase the first guess downdraft mass flux to satisfy
+!               precipitation efficiency relation.
+!               If downdraft does not evaporate any water at the DBL for  
+!               the specified relative humidity, or if the corrected mass 
+!               flux at the LFS is positive no downdraft is allowed
+!               ---------------------------------------------------------
+!    
+!
+ZWORK1(:) = ZWORK4(:) / ( ZWORK1(:) + ZWORK2(:) + 1.E-8 ) 
+ZWORK2(:) = ZWORK1(:) / MIN( -1.E-1, ZWORK6(:) ) ! ratio of budget consistent to actual DMF
+!
+ZWORK3(:) = 1.
+ZWORK6(:) = 1.
+WHERE ( ZWORK1(:) > 0. .OR. PDTEVR(:) < 1. ) 
+   KDBL(:)   = IKB
+   KLFS(:)   = IKB
+   PDTEVR(:) = 0. 
+   ZWORK2(:) = 0.
+   ZWORK3(:) = 0.
+   ZWORK6(:) = 0.
+END WHERE
+!
+DO JK = IKB, JKT1   
+     PDMF(:,JK)  = PDMF(:,JK)  * ZWORK2(:)
+     PDER(:,JK)  = PDER(:,JK)  * ZWORK2(:)  
+     PDDR(:,JK)  = PDDR(:,JK)  * ZWORK2(:)  
+   PDTEVRF(:,JK) = PDTEVRF(:,JK)* ZWORK2(:)  
+     PDRW(:,JK)  = PDRW(:,JK)  * ZWORK3(:)  
+     PDTHL(:,JK) = PDTHL(:,JK) * ZWORK3(:)  
+END DO     
+ZWORK4(:) = ZWORK2(:)
+!
+!
+!*       3.     Increase updraft mass flux, mass detrainment rate, and water  
+!               substance detrainment rates to be consistent with the transfer
+!               of the estimated mass from the up- to the downdraft at the LFS
+!               --------------------------------------------------------------
+!
+DO JI = 1, IIE
+    JK = KLFS(JI)
+    ZWORK2(JI) = ( 1. - ZWORK6(JI) ) + ZWORK6(JI) *                   &
+		  ( PUMF(JI,JK) - ( 1. - PMIXF(JI) ) * ZWORK1(JI) ) / &
+		  MAX( 1.E-1, PUMF(JI,JK) )
+END DO
+!
+!
+JKT1  = MAXVAL( KLFS(:) )  ! value of KLFS might have been reset to IKB above
+DO JK = IKB, JKT1
+    DO JI = 1, IIE
+      IF ( JK <= KLFS(JI) ) THEN
+	PUMF(JI,JK)  = PUMF(JI,JK)  * ZWORK2(JI) 
+	PUER(JI,JK)  = PUER(JI,JK)  * ZWORK2(JI)
+	PUDR(JI,JK)  = PUDR(JI,JK)  * ZWORK2(JI)
+	PUPR(JI,JK)  = PUPR(JI,JK)  * ZWORK2(JI)
+      END IF
+    END DO
+END DO
+!
+!
+!*       4.     Increase total = downdraft precipitation and evaporation rate
+!               -------------------------------------------------------------
+!
+WHERE ( PDTEVR(:) > 0. )
+    PDTEVR(:)  = PDTEVR(:) * ZWORK4(:)
+    PTPR(:)    = PTPR(:) + PPREF(:) * ZWORK5(:) * ( ZWORK2(:) - 1. )
+ELSEWHERE
+    PTPR(:)    = PUTPR(:)
+END WHERE
+!
+!
+END SUBROUTINE CONVECT_PRECIP_ADJUST
+!     ######spl
+     SUBROUTINE CONVECT_CLOSURE( KLON, KLEV,                                 &
+                                 PPRES, PDPRES, PZ, PDXDY, PLMASS,           &
+                                 PTHL, PTH, PRW, PRC, PRI, OTRIG1,           &
+                                 PTHC, PRWC, PRCC, PRIC, PWSUB,              &
+                                 KLCL, KDPL, KPBL, KLFS, KCTL, KML,          &
+                                 PUMF, PUER, PUDR, PUTHL, PURW,              &
+                                 PURC, PURI, PUPR,                           &
+                                 PDMF, PDER, PDDR, PDTHL, PDRW,              &
+                                 PTPR, PSPR, PDTEVR,                         &
+                                 PCAPE, PTIMEC,                              &
+                                 KFTSTEPS,                                   &
+                                 PDTEVRF, PPRLFLX, PPRSFLX                   )
+!    #######################################################################
+!
+!!**** Uses modified Fritsch-Chappell closure
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the final adjusted
+!!     (over a time step PTIMEC) environmental values of THETA_l, R_w, R_c, R_i
+!!      The final convective tendencies can then be evaluated in the main
+!!      routine DEEP_CONVECT by (PTHC-PTH)/PTIMEC
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     
+!!    CONVECT_CLOSURE_THRVLCL
+!!    CONVECT_CLOSURE_ADJUST
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! reference pressure
+!!          XRD, XRV           ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV         ! specific heat for dry air and water vapor
+!!          XCL, XCI           ! specific heat for liquid water and ice
+!!          XTT                ! triple point temperature
+!!          XLVTT, XLSTT       ! vaporization, sublimation heat constant
+!!
+!!      Module MODD_CONVPAR
+!!          XA25               ! reference grid area
+!!          XSTABT             ! stability factor in time integration 
+!!          XSTABC             ! stability factor in CAPE adjustment
+!!          XMELDPTH           ! allow melting over specific pressure depth
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_CLOSURE)
+!!      Fritsch and Chappell, 1980, J. Atmos. Sci.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Peter Bechtold 04/10/97 change for enthalpie, r_c + r_i tendencies
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER,                   INTENT(IN) :: KLON   ! horizontal dimension
+INTEGER,                   INTENT(IN) :: KLEV   ! vertical dimension
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KLFS   ! index for level of free sink
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KLCL   ! index lifting condens. level
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KCTL   ! index for cloud top level
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KDPL   ! index for departure level 
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KPBL   ! index for top of source layer
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KML    ! index for melting level
+REAL, DIMENSION(KLON),  INTENT(INOUT) :: PTIMEC ! convection time step 
+REAL, DIMENSION(KLON),     INTENT(IN) :: PDXDY  ! grid area (m^2)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTHL   ! grid scale enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTH    ! grid scale theta        
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRW    ! grid scale total water  
+			                        ! mixing ratio 
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRC    ! grid scale r_c 
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRI    ! grid scale r_i 
+LOGICAL, DIMENSION(KLON),  INTENT(IN) :: OTRIG1 ! logical to keep trace of 
+                                                ! convective arrays modified in UPDRAFT
+!   
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES  ! pressure (P)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDPRES ! pressure difference between 
+                                                 ! bottom and top of layer (Pa)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PLMASS ! mass of model layer (kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ     ! height of model layer (m) 
+REAL, DIMENSION(KLON),     INTENT(IN)  :: PCAPE  ! available potent. energy
+INTEGER,                INTENT(OUT)   :: KFTSTEPS! maximum of fract time steps
+                                                 ! only used for chemical tracers
+!
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUMF  ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUER  ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUDR  ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUPR  ! updraft precipitation in
+                                                  ! flux units (kg water / s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PUTHL  ! updraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PURW   ! updraft total water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PURC   ! updraft cloud water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PURI   ! updraft cloud ice   (kg/kg)
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PDMF  ! downdraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PDER  ! downdraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PDDR  ! downdraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)   :: PDTHL ! downdraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)   :: PDRW  ! downdraft total water (kg/kg)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PTPR  ! total surf precipitation (kg/s)
+REAL, DIMENSION(KLON),      INTENT(OUT)  :: PSPR  ! solid surf precipitation (kg/s)
+REAL, DIMENSION(KLON),      INTENT(INOUT):: PDTEVR! donwndraft evapor. (kg/s)
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PTHC  ! conv. adj. grid scale theta
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PRWC  ! conv. adj. grid scale r_w 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PRCC  ! conv. adj. grid scale r_c 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PRIC  ! conv. adj. grid scale r_i 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PWSUB ! envir. compensating subsidence(Pa/s)
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PDTEVRF! downdraft evaporation rate
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PPRLFLX! liquid precip flux
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PPRSFLX! solid  precip flux
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE  ! horizontal + vertical loop bounds
+INTEGER :: IKS            ! vertical dimension
+INTEGER :: JK, JKP, JKMAX ! vertical loop index
+INTEGER :: JI             ! horizontal loop index
+INTEGER :: JITER          ! iteration loop index
+INTEGER :: JSTEP          ! fractional time loop index
+REAL    :: ZCPORD, ZRDOCP ! C_pd / R_d, R_d / C_pd
+REAL    :: ZCVOCD, ZEPSA  ! C_pv / C_pd, R_v / R_d
+!
+REAL, DIMENSION(KLON,KLEV) :: ZTHLC       ! convectively adjusted 
+                                          ! grid scale enthalpy
+REAL, DIMENSION(KLON,KLEV) :: ZOMG        ! conv. environm. subsidence (Pa/s)
+REAL, DIMENSION(KLON,KLEV) :: ZUMF        ! non-adjusted updraft mass flux
+REAL, DIMENSION(KLON,KLEV) :: ZUER        !   "     updraft  entrainm. rate
+REAL, DIMENSION(KLON,KLEV) :: ZUDR        !   "     updraft  detrainm. rate
+REAL, DIMENSION(KLON,KLEV) :: ZDMF        !   "   downdraft mass flux
+REAL, DIMENSION(KLON,KLEV) :: ZDER        !   "   downdraft  entrainm. rate
+REAL, DIMENSION(KLON,KLEV) :: ZDDR        !   "   downdraft  detrainm. rate
+REAL, DIMENSION(KLON)     :: ZTPR         !   "   total precipitation
+REAL, DIMENSION(KLON)     :: ZDTEVR       !   "   total downdraft evapor. 
+REAL, DIMENSION(KLON,KLEV):: ZPRLFLX      !   "   liquid precip flux
+REAL, DIMENSION(KLON,KLEV):: ZPRSFLX      !   "   solid  precip flux
+REAL, DIMENSION(KLON)     :: ZPRMELT      ! melting of precipitation
+REAL, DIMENSION(KLON)     :: ZPRMELTO     ! non-adjusted  "
+REAL, DIMENSION(KLON)     :: ZADJ         ! mass adjustment factor
+REAL, DIMENSION(KLON)     :: ZADJMAX      ! limit value for ZADJ
+REAL, DIMENSION(KLON)     :: ZCAPE        ! new CAPE after adjustment
+REAL, DIMENSION(KLON)     :: ZTIMEC       ! fractional convective time step
+REAL, DIMENSION(KLON,KLEV):: ZTIMC        ! 2D work array for ZTIMEC
+!
+REAL, DIMENSION(KLON)     :: ZTHLCL       ! new  theta at LCL
+REAL, DIMENSION(KLON)     :: ZRVLCL       ! new  r_v at LCL
+REAL, DIMENSION(KLON)     :: ZZLCL        ! height of LCL
+REAL, DIMENSION(KLON)     :: ZTLCL        ! temperature at LCL
+REAL, DIMENSION(KLON)     :: ZTELCL       ! envir. temper. at LCL
+REAL, DIMENSION(KLON)     :: ZTHEUL       ! theta_e for undilute ascent
+REAL, DIMENSION(KLON)     :: ZTHES1, ZTHES2! saturation environm. theta_e
+REAL, DIMENSION(KLON,KLEV) :: ZTHMFIN, ZTHMFOUT, ZRWMFIN, ZRWMFOUT
+REAL, DIMENSION(KLON,KLEV) :: ZRCMFIN, ZRCMFOUT, ZRIMFIN, ZRIMFOUT
+                                    ! work arrays for environm. compensat. mass flux
+REAL, DIMENSION(KLON)     :: ZPI          ! (P/P00)**R_d/C_pd 
+REAL, DIMENSION(KLON)     :: ZLV          ! latent heat of vaporisation
+REAL, DIMENSION(KLON)     :: ZLS          ! latent heat of sublimation 
+REAL, DIMENSION(KLON)     :: ZLM          ! latent heat of melting
+REAL, DIMENSION(KLON)     :: ZCPH         ! specific heat C_ph
+REAL, DIMENSION(KLON)     :: ZMELDPTH     ! actual depth of melting layer 
+INTEGER, DIMENSION(KLON)  :: ITSTEP       ! fractional convective time step
+INTEGER, DIMENSION(KLON)  :: ICOUNT       ! timestep counter 
+INTEGER, DIMENSION(KLON)  :: ILCL         ! index lifting condens. level
+INTEGER, DIMENSION(KLON)  :: IWORK1       ! work array
+REAL, DIMENSION(KLON)     :: ZWORK1, ZWORK2, ZWORK3, ZWORK4, ZWORK5
+REAL, DIMENSION(KLON,KLEV):: ZWORK6
+LOGICAL, DIMENSION(KLON)  :: GWORK1, GWORK3! work arrays
+LOGICAL, DIMENSION(KLON,KLEV) :: GWORK4    ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.2    Initialize  local variables
+!               ----------------------------
+!
+!
+PSPR(:)   = 0.
+ZTIMC(:,:) = 0.
+ZTHES2(:) = 0.
+ZWORK1(:) = 0. 
+ZWORK2(:) = 0. 
+ZWORK3(:) = 0. 
+ZWORK4(:) = 0. 
+ZWORK5(:) = 0. 
+GWORK1(:) = .FALSE.
+GWORK3(:) = .FALSE.  
+GWORK4(:,:) = .FALSE.  
+ILCL(:)   = KLCL(:)
+!
+ZCPORD    = XCPD / XRD
+ZRDOCP    = XRD / XCPD
+ZCVOCD    = XCPV / XCPD 
+ZEPSA     = XRV / XRD
+!
+ZADJ(:)   = 1.
+ZWORK5(:) = 1.
+WHERE( .NOT. OTRIG1(:) ) ZWORK5(:) = 0. 
+!
+!
+!*       0.3   Compute loop bounds
+!              ------------------- 
+!
+IIE    = KLON
+IKB    = 1 + JCVEXB 
+IKS    = KLEV
+IKE    = KLEV - JCVEXT 
+JKMAX  = MAXVAL( KCTL(:) )
+!
+!
+!*       2.     Save initial mass flux values to be used in adjustment procedure
+!               ---------------------------------------------------------------
+!
+ZUMF(:,:)  = PUMF(:,:)
+ZUER(:,:)  = PUER(:,:)
+ZUDR(:,:)  = PUDR(:,:)
+ZDMF(:,:)  = PDMF(:,:)
+ZDER(:,:)  = PDER(:,:)
+ZDDR(:,:)  = PDDR(:,:)
+ZTPR(:)    = PTPR(:)
+ZDTEVR(:)  = PDTEVR(:)
+ZOMG(:,:)  = 0.
+PWSUB(:,:) = 0. 
+ZPRMELT(:) = 0.
+PPRLFLX(:,:) = 0.
+ZPRLFLX(:,:) = 0.
+PPRSFLX(:,:) = 0.
+ZPRSFLX(:,:) = 0.
+!
+!
+!*       2.1    Some preliminar computations for melting of precipitation
+!               used later in section 9 and computation of precip fluxes
+!               Precipitation fluxes are updated for melting and evaporation
+!               ---------------------------------------------------------
+!
+!
+ZWORK1(:) = 0.
+ZMELDPTH(:) = 0.
+ZWORK6(:,:) = 0.
+DO JK = JKMAX + 1, IKB + 1, -1
+   ! Nota: PUPR is total precipitation flux, but the solid, liquid
+   !       precipitation is stored in units kg/kg; therefore we compute here
+   !       the solid fraction of the total precipitation flux.
+  DO JI = 1, IIE
+     ZWORK2(JI)    = PUPR(JI,JK) / ( PURC(JI,JK) + PURI(JI,JK) + 1.E-8 )
+     ZPRMELT(JI)   = ZPRMELT(JI) + PURI(JI,JK) * ZWORK2(JI)
+     ZWORK1(JI)    = ZWORK1(JI) + PURC(JI,JK) * ZWORK2(JI) - PDTEVRF(JI,JK)
+     ZPRLFLX(JI,JK)= MAX( 0., ZWORK1(JI) )
+     ZPRMELT(JI)   = ZPRMELT(JI) + MIN( 0., ZWORK1(JI) )
+     ZPRSFLX(JI,JK)= ZPRMELT(JI) 
+     IF ( KML(JI) >= JK .AND. ZMELDPTH(JI) <= XMELDPTH ) THEN                 
+          ZPI(JI)    = ( PPRES(JI,JK) / XP00 ) ** ZRDOCP 
+          ZWORK3(JI) = PTH(JI,JK) * ZPI(JI)            ! temperature estimate
+          ZLM(JI)    = XLSTT + ( XCPV - XCI ) * ( ZWORK3(JI) - XTT ) -       &
+               ( XLVTT + ( XCPV - XCL ) * ( ZWORK3(JI) - XTT ) ) ! L_s - L_v
+          ZCPH(JI)   = XCPD + XCPV * PRW(JI,JK)
+          ZMELDPTH(JI) = ZMELDPTH(JI) + PDPRES(JI,JK)
+          ZWORK6(JI,JK)= ZLM(JI) * PTIMEC(JI) / PLMASS(JI,JK) * PDPRES(JI,JK)
+          ZOMG(JI,JK)= 1. ! at this place only used as work variable
+     END IF
+  END DO
+!
+END DO
+!
+ZWORK2(:) = 0.
+DO JK = JKMAX, IKB + 1, -1
+    ZWORK1(:) = ZPRMELT(:) * PDPRES(:,JK) / MAX( XMELDPTH, ZMELDPTH(:) )
+    ZWORK2(:) = ZWORK2(:) + ZWORK1(:) * ZOMG(:,JK)
+    ZPRLFLX(:,JK) = ZPRLFLX(:,JK) + ZWORK2(:) 
+    ZPRSFLX(:,JK) = ZPRSFLX(:,JK) - ZWORK2(:)
+END DO 
+WHERE( ZPRSFLX(:,:) < 1. ) ZPRSFLX(:,:)=0.
+ZPRMELTO(:) = ZPRMELT(:)
+!
+!
+!*       3.     Compute limits on the closure adjustment factor so that the
+!               inflow in convective drafts from a given layer can't be larger 
+!               than the mass contained in this layer initially.
+!               ---------------------------------------------------------------
+!
+ZADJMAX(:) = 1000.
+IWORK1(:) = MAX( ILCL(:), KLFS(:) )
+JKP = MINVAL( KDPL(:) )
+DO JK = JKP, IKE
+  DO JI = 1, IIE
+    IF( JK > KDPL(JI) .AND. JK <= IWORK1(JI) ) THEN
+        ZWORK1(JI)  = PLMASS(JI,JK) /                                      &
+                  ( ( PUER(JI,JK) + PDER(JI,JK) + 1.E-5 ) * PTIMEC(JI) )
+        ZADJMAX(JI) = MIN( ZADJMAX(JI), ZWORK1(JI) )
+    END IF
+  END DO
+END DO
+!
+!
+GWORK1(:) = OTRIG1(:)  ! logical array to limit adjustment to not definitively
+                       ! adjusted columns
+!
+DO JK = IKB, IKE
+  ZTHLC(:,:) = PTHL(:,:) ! initialize adjusted envir. values 
+  PRWC(:,:)  = PRW(:,:)
+  PRCC(:,:)  = PRC(:,:)
+  PRIC(:,:)  = PRI(:,:)
+  PTHC(:,:)  = PTH(:,:)
+END DO
+!
+!
+!
+DO JITER = 1, 7  ! Enter adjustment loop to assure that all CAPE is
+                 ! removed within the advective time interval TIMEC
+!
+     ZTIMEC(:) = PTIMEC(:)
+     GWORK4(:,:)   = SPREAD( GWORK1(:), DIM=2, NCOPIES=IKS )
+     WHERE( GWORK4(:,:) ) PWSUB(:,:) = 0.
+     ZOMG(:,:)=0.
+!
+     DO JK = IKB + 1, JKMAX
+           JKP = MAX( IKB + 1, JK - 1 )
+           WHERE ( GWORK1(:) .AND. JK <= KCTL(:) )
+!
+!
+!*       4.     Determine vertical velocity at top and bottom of each layer
+!               to satisfy mass continuity.
+!               ---------------------------------------------------------------
+              ! we compute here Domega/Dp = - g rho Dw/Dz = 1/Dt
+!
+             ZWORK1(:)   = - ( PUER(:,JKP) + PDER(:,JKP) -                   &
+                           PUDR(:,JKP) - PDDR(:,JKP) ) / PLMASS(:,JKP)
+!    
+             PWSUB(:,JK) = PWSUB(:,JKP) - PDPRES(:,JK-1) * ZWORK1(:)
+              ! we use PDPRES(JK-1) and not JKP in order to have zero subsidence
+              ! at the first layer
+!
+!   
+!*       5.     Compute fractional time step. For stability or 
+!               mass conservation reasons one must split full time step PTIMEC)
+!               ---------------------------------------------------------------
+!
+             ZWORK1(:) = XSTABT * PDPRES(:,JKP) / ( ABS( PWSUB(:,JK) ) + 1.E-10 )
+              ! the factor XSTABT is used for stability reasons
+             ZTIMEC(:) = MIN( ZTIMEC(:), ZWORK1(:) ) 
+!
+              ! transform vertical velocity in mass flux units
+             ZOMG(:,JK) = PWSUB(:,JK) * PDXDY(:) / XG 
+         END WHERE
+     END DO
+!
+!
+     WHERE( GWORK4(:,:) )
+           ZTHLC(:,:) = PTHL(:,:) ! reinitialize adjusted envir. values 
+           PRWC(:,:)  = PRW(:,:)  ! when iteration criterium not attained
+           PRCC(:,:)  = PRC(:,:)
+           PRIC(:,:)  = PRI(:,:)
+           PTHC(:,:)  = PTH(:,:)
+     END WHERE
+!
+! 
+!        6. Check for mass conservation, i.e. ZWORK1 > 1.E-2
+!           If mass is not conserved, the convective tendencies
+!           automatically become zero.
+!           ----------------------------------------------------
+!
+    DO JI = 1, IIE
+       JK=KCTL(JI)
+       ZWORK1(JI) = PUDR(JI,JK) * PDPRES(JI,JK) / ( PLMASS(JI,JK) + .1 )    &
+                                                            - PWSUB(JI,JK)
+    END DO
+    WHERE( GWORK1(:) .AND. ABS( ZWORK1(:) ) - .01 > 0. )
+        GWORK1(:) = .FALSE.
+        PTIMEC(:) = 1.E-1
+        ZTPR(:)   = 0.
+        ZWORK5(:) = 0.
+    END WHERE
+    DO JK = IKB, IKE
+        PWSUB(:,JK) = PWSUB(:,JK) * ZWORK5(:)
+        ZPRLFLX(:,JK) = ZPRLFLX(:,JK) * ZWORK5(:)
+        ZPRSFLX(:,JK) = ZPRSFLX(:,JK) * ZWORK5(:)
+    END DO
+    GWORK4(:,1:IKB) = .FALSE.
+    GWORK4(:,IKS)   = .FALSE.
+!
+    ITSTEP(:) = INT( PTIMEC(:) / ZTIMEC(:) ) + 1 
+    ZTIMEC(:) = PTIMEC(:) / REAL( ITSTEP(:) ) ! adjust  fractional time step
+                                           ! to be an integer multiple of PTIMEC
+    ZTIMC(:,:)= SPREAD( ZTIMEC(:), DIM=2, NCOPIES=IKS )
+    ICOUNT(:) = 0
+!
+!
+!
+    KFTSTEPS = MAXVAL( ITSTEP(:) )
+    DO JSTEP = 1, KFTSTEPS ! Enter the fractional time step loop here
+!
+     	 ICOUNT(:) = ICOUNT(:) + 1
+!
+	     GWORK3(:) =  ITSTEP(:) >= ICOUNT(:) .AND. GWORK1(:) 
+!
+!
+!*       7.     Assign enthalpy and r_w values at the top and bottom of each
+!               layer based on the sign of w
+!               ------------------------------------------------------------
+!
+             ZTHMFIN(:,:)   = 0.
+             ZRWMFIN(:,:)   = 0.
+             ZRCMFIN(:,:)   = 0.
+             ZRIMFIN(:,:)   = 0.
+             ZTHMFOUT(:,:)  = 0.
+             ZRWMFOUT(:,:)  = 0.
+             ZRCMFOUT(:,:)  = 0.
+             ZRIMFOUT(:,:)  = 0.
+!
+         DO JK = IKB + 1, JKMAX
+         GWORK4(:,JK) = GWORK3(:) .AND. JK <= KCTL(:)
+         JKP = MAX( IKB + 1, JK - 1 )
+           DO JI = 1, IIE
+           IF ( GWORK3(JI) ) THEN
+!
+               ZWORK1(JI)       = SIGN( 1., ZOMG(JI,JK) )
+               ZWORK2(JI)       = 0.5 * ( 1. + ZWORK1(JI) )
+               ZWORK1(JI)       = 0.5 * ( 1. - ZWORK1(JI) )
+               ZTHMFIN(JI,JK)   = - ZOMG(JI,JK) * ZTHLC(JI,JKP) * ZWORK1(JI)
+               ZTHMFOUT(JI,JK)  =   ZOMG(JI,JK) * ZTHLC(JI,JK)  * ZWORK2(JI)
+               ZTHMFIN(JI,JKP)  = ZTHMFIN(JI,JKP)  + ZTHMFOUT(JI,JK) * ZWORK2(JI)
+               ZTHMFOUT(JI,JKP) = ZTHMFOUT(JI,JKP) + ZTHMFIN(JI,JK)  * ZWORK1(JI)
+               ZRWMFIN(JI,JK)   = - ZOMG(JI,JK) * PRWC(JI,JKP) * ZWORK1(JI)
+               ZRWMFOUT(JI,JK)  =   ZOMG(JI,JK) * PRWC(JI,JK)  * ZWORK2(JI)
+               ZRWMFIN(JI,JKP)  = ZRWMFIN(JI,JKP)  + ZRWMFOUT(JI,JK) * ZWORK2(JI)
+               ZRWMFOUT(JI,JKP) = ZRWMFOUT(JI,JKP) + ZRWMFIN(JI,JK)  * ZWORK1(JI)
+               ZRCMFIN(JI,JK)   = - ZOMG(JI,JK) * PRCC(JI,JKP) * ZWORK1(JI)
+               ZRCMFOUT(JI,JK)  =   ZOMG(JI,JK) * PRCC(JI,JK)  * ZWORK2(JI)
+               ZRCMFIN(JI,JKP)  = ZRCMFIN(JI,JKP)  + ZRCMFOUT(JI,JK) * ZWORK2(JI)
+               ZRCMFOUT(JI,JKP) = ZRCMFOUT(JI,JKP) + ZRCMFIN(JI,JK)  * ZWORK1(JI)
+               ZRIMFIN(JI,JK)   = - ZOMG(JI,JK) * PRIC(JI,JKP) * ZWORK1(JI)
+               ZRIMFOUT(JI,JK)  =   ZOMG(JI,JK) * PRIC(JI,JK)  * ZWORK2(JI)
+               ZRIMFIN(JI,JKP)  = ZRIMFIN(JI,JKP)  + ZRIMFOUT(JI,JK) * ZWORK2(JI)
+               ZRIMFOUT(JI,JKP) = ZRIMFOUT(JI,JKP) + ZRIMFIN(JI,JK)  * ZWORK1(JI)
+!
+           END IF
+           END DO
+         END DO
+!
+         WHERE ( GWORK4(:,:) )
+!
+!******************************************************************************
+!
+!*       8.     Update the environmental values of enthalpy and r_w at each level
+!               NOTA: These are the MAIN EQUATIONS of the scheme
+!               -----------------------------------------------------------------
+!
+!
+           ZTHLC(:,:) = ZTHLC(:,:) + ZTIMC(:,:) / PLMASS(:,:) * (      &
+                          ZTHMFIN(:,:) + PUDR(:,:) * PUTHL(:,:)  +     &
+                          PDDR(:,:) * PDTHL(:,:) - ZTHMFOUT(:,:) -     &
+                        ( PUER(:,:) + PDER(:,:) ) * PTHL(:,:)   )
+           PRWC(:,:)  = PRWC(:,:) + ZTIMC(:,:) / PLMASS(:,:) *  (      &
+                         ZRWMFIN(:,:) + PUDR(:,:) * PURW(:,:)  +       &
+                         PDDR(:,:) * PDRW(:,:) - ZRWMFOUT(:,:) -       &
+                        ( PUER(:,:) + PDER(:,:) ) * PRW(:,:)    )    
+           PRCC(:,:)  = PRCC(:,:) + ZTIMC(:,:) / PLMASS(:,:) *  (      &
+               ZRCMFIN(:,:) + PUDR(:,:) * PURC(:,:) - ZRCMFOUT(:,:) -  &
+                        ( PUER(:,:) + PDER(:,:) ) * PRC(:,:)    )    
+           PRIC(:,:)  = PRIC(:,:) + ZTIMC(:,:) / PLMASS(:,:) *  (      &
+               ZRIMFIN(:,:) + PUDR(:,:) * PURI(:,:) - ZRIMFOUT(:,:) -  & 
+                        ( PUER(:,:) + PDER(:,:) ) * PRI(:,:)    )    
+!
+!
+!******************************************************************************
+!
+         END WHERE
+!
+    END DO ! Exit the fractional time step loop
+!
+! 
+!*           9.    Allow frozen precipitation to melt over a 200 mb deep layer
+!                  -----------------------------------------------------------
+!
+      DO JK = JKMAX, IKB + 1, -1
+            ZTHLC(:,JK) = ZTHLC(:,JK) -                                &
+               ZPRMELT(:) * ZWORK6(:,JK) / MAX( XMELDPTH, ZMELDPTH(:) )
+      END DO
+!
+!
+!*          10.    Compute final linearized value of theta envir.
+!                  ----------------------------------------------
+!
+      DO JK = IKB + 1, JKMAX
+         DO JI = 1, IIE
+         IF( GWORK1(JI) .AND. JK <= KCTL(JI) ) THEN
+           ZPI(JI)    = ( XP00 / PPRES(JI,JK) ) ** ZRDOCP
+           ZCPH(JI)   = XCPD + PRWC(JI,JK) * XCPV
+           ZWORK2(JI) = PTH(JI,JK) / ZPI(JI)  ! first temperature estimate
+           ZLV(JI)    = XLVTT + ( XCPV - XCL ) * ( ZWORK2(JI) - XTT )
+           ZLS(JI)    = XLVTT + ( XCPV - XCI ) * ( ZWORK2(JI) - XTT )
+             ! final linearized temperature
+           ZWORK2(JI) = ( ZTHLC(JI,JK) + ZLV(JI) * PRCC(JI,JK) + ZLS(JI) * PRIC(JI,JK) &
+                       - (1. + PRWC(JI,JK) ) * XG * PZ(JI,JK) ) / ZCPH(JI)
+           ZWORK2(JI) = MAX( 180., MIN( 340., ZWORK2(JI) ) )
+           PTHC(JI,JK)= ZWORK2(JI) * ZPI(JI) ! final adjusted envir. theta
+         END IF
+         END DO
+      END DO
+!
+!
+!*         11.     Compute new cloud ( properties at new LCL )
+!                     NOTA: The computations are very close to
+!                           that in routine TRIGGER_FUNCT
+!                  ---------------------------------------------
+!
+      CALL CONVECT_CLOSURE_THRVLCL(  KLON, KLEV,                           &
+                                     PPRES, PTHC, PRWC, PZ, GWORK1,        &
+                                     ZTHLCL, ZRVLCL, ZZLCL, ZTLCL, ZTELCL, &
+                                     ILCL, KDPL, KPBL )
+!
+!
+       ZTLCL(:)  = MAX( 230., MIN( 335., ZTLCL(:) ) )  ! set some overflow bounds
+       ZTELCL(:) = MAX( 230., MIN( 335., ZTELCL(:) ) )
+       ZTHLCL(:) = MAX( 230., MIN( 345., ZTHLCL(:) ) )
+       ZRVLCL(:) = MAX(   0., MIN(   1., ZRVLCL(:) ) )
+!
+!
+!*         12.    Compute adjusted CAPE
+!                 ---------------------
+!
+       ZCAPE(:)  = 0.
+       ZPI(:)    = ZTHLCL(:) / ZTLCL(:)
+       ZPI(:)    = MAX( 0.95, MIN( 1.5, ZPI(:) ) )
+       ZWORK1(:) = XP00 / ZPI(:) ** ZCPORD ! pressure at LCL
+!
+       CALL CONVECT_SATMIXRATIO( KLON, ZWORK1, ZTELCL, ZWORK3, ZLV, ZLS, ZCPH )
+       ZWORK3(:) = MIN(   .1, MAX(   0., ZWORK3(:) ) )
+!
+	        ! compute theta_e updraft undilute
+       ZTHEUL(:) = ZTLCL(:) * ZPI(:) ** ( 1. - 0.28 * ZRVLCL(:) )            &
+                                  * EXP( ( 3374.6525 / ZTLCL(:) - 2.5403 )   &
+                                  * ZRVLCL(:) * ( 1. + 0.81 * ZRVLCL(:) ) )
+!
+	        ! compute theta_e saturated environment at LCL
+       ZTHES1(:) = ZTELCL(:) * ZPI(:) ** ( 1. - 0.28 * ZWORK3(:) )           &
+                                  * EXP( ( 3374.6525 / ZTELCL(:) - 2.5403 )  &
+                                  * ZWORK3(:) * ( 1. + 0.81 * ZWORK3(:) ) )
+!
+      DO JK = MINVAL( ILCL(:) ), JKMAX
+        JKP = JK - 1
+        DO JI = 1, IIE
+          ZWORK4(JI) = 1.
+          IF ( JK == ILCL(JI) ) ZWORK4(JI) = 0.
+!
+           ! compute theta_e saturated environment and adjusted values
+           ! of theta
+!
+          GWORK3(JI)  = JK >= ILCL(JI) .AND. JK <= KCTL(JI) .AND. GWORK1(JI) 
+!
+          ZPI(JI)     = ( XP00 / PPRES(JI,JK) ) ** ZRDOCP
+          ZWORK2(JI)  = PTHC(JI,JK) / ZPI(JI)
+        END DO
+!
+        CALL CONVECT_SATMIXRATIO( KLON, PPRES(:,JK), ZWORK2, ZWORK3, ZLV, ZLS, ZCPH )
+!
+!
+        DO JI = 1, IIE
+          IF ( GWORK3(JI) ) THEN
+              ZTHES2(JI)  = ZWORK2(JI) * ZPI(JI) ** ( 1. - 0.28 * ZWORK3(JI) )   &
+                                   * EXP( ( 3374.6525 / ZWORK2(JI) - 2.5403 ) &
+                                   * ZWORK3(JI) * ( 1. + 0.81 * ZWORK3(JI) ) )
+!
+              ZWORK3(JI)  = PZ(JI,JK) - PZ(JI,JKP) * ZWORK4(JI) -                &
+                           ( 1. - ZWORK4(JI) ) * ZZLCL(JI)    ! level thickness
+              ZWORK1(JI)  = ( 2. * ZTHEUL(JI) ) / ( ZTHES1(JI) + ZTHES2(JI) ) - 1.
+              ZCAPE(JI)   = ZCAPE(JI) + XG * ZWORK3(JI) * MAX( 0., ZWORK1(JI) )
+              ZTHES1(JI)  = ZTHES2(JI)
+          END IF
+        END DO
+      END DO
+!
+!                                                          
+!*         13.     Determine mass adjustment factor knowing how much
+!                  CAPE has been removed.
+!                  -------------------------------------------------
+!
+       WHERE ( GWORK1(:) )
+           ZWORK1(:) = MAX( PCAPE(:) - ZCAPE(:), 0.1 * PCAPE(:) )
+           ZWORK2(:) = ZCAPE(:) / ( PCAPE(:) + 1.E-8 )
+!       
+           GWORK1(:) = ZWORK2(:) > 0.1 .OR. ZCAPE(:) == 0. ! mask for adjustment
+       END WHERE
+!
+       WHERE ( ZCAPE(:) == 0. .AND. GWORK1(:) )  ZADJ(:) = ZADJ(:) * 0.5
+       WHERE ( ZCAPE(:) /= 0. .AND. GWORK1(:) )                              &
+               ZADJ(:) = ZADJ(:) * XSTABC * PCAPE(:) / ( ZWORK1(:) + 1.E-8 )
+       ZADJ(:) = MIN( ZADJ(:), ZADJMAX(:) )  
+!
+!
+!*         13.     Adjust mass flux by the factor ZADJ to converge to
+!                  specified degree of stabilization
+!                 ----------------------------------------------------
+!
+       CALL CONVECT_CLOSURE_ADJUST( KLON, KLEV, ZADJ,                     &
+                                    PUMF, ZUMF, PUER, ZUER, PUDR, ZUDR,   &
+                                    PDMF, ZDMF, PDER, ZDER, PDDR, ZDDR,   &
+                                    ZPRMELT, ZPRMELTO, PDTEVR, ZDTEVR,    &
+                                    PTPR, ZTPR,                           &
+                                    PPRLFLX, ZPRLFLX, PPRSFLX, ZPRSFLX    )
+!
+!
+      IF ( COUNT( GWORK1(:) ) == 0 ) EXIT ! exit big adjustment iteration loop
+                                          ! when all columns have reached 
+                                          ! desired degree of stabilization.
+!
+END DO  ! end of big adjustment iteration loop
+!
+!
+        ! skip adj. total water array  to water vapor
+DO JK = IKB, IKE
+  PRWC(:,JK) = MAX( 0., PRWC(:,JK) - PRCC(:,JK) - PRIC(:,JK) )
+END DO
+!
+        ! compute surface solid (ice) precipitation 
+PSPR(:) = ZPRMELT(:) * ( 1. - ZMELDPTH(:) / XMELDPTH )
+PSPR(:) = MAX( 0., PSPR(:) )
+!
+!
+END SUBROUTINE CONVECT_CLOSURE
+!     ######spl
+     SUBROUTINE CONVECT_CLOSURE_ADJUST( KLON, KLEV, PADJ,                      &
+                                        PUMF, PZUMF, PUER, PZUER, PUDR, PZUDR, &
+                                        PDMF, PZDMF, PDER, PZDER, PDDR, PZDDR, &
+                                        PPRMELT, PZPRMELT, PDTEVR, PZDTEVR,    &
+                                        PTPR, PZTPR,                           &
+                                        PPRLFLX, PZPRLFL, PPRSFLX, PZPRSFL     )
+
+!    #########################################################################
+!
+!!**** Uses closure adjustment factor to adjust mass flux and to modify
+!!     precipitation efficiency  when necessary. The computations are
+!!     similar to routine CONVECT_PRECIP_ADJUST.
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to adjust the mass flux using the
+!!      factor PADJ computed in CONVECT_CLOSURE
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!
+!!    EXTERNAL
+!!    --------
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!     
+!!    None
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!
+!!    None
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_CLOSURE_ADJUST)
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAREXT
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                    INTENT(IN) :: KLON     ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV     ! vertical dimension
+REAL, DIMENSION(KLON),      INTENT(IN) :: PADJ     ! mass adjustment factor
+!
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUMF  ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZUMF ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUER  ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZUER ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUDR  ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZUDR ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDMF  ! downdraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZDMF ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDER  ! downdraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZDER ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PDDR  ! downdraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZDDR ! initial value of  "
+REAL, DIMENSION(KLON),   INTENT(INOUT):: PTPR     ! total precipitation (kg/s)
+REAL, DIMENSION(KLON),   INTENT(INOUT):: PZTPR    ! initial value of "
+REAL, DIMENSION(KLON),   INTENT(INOUT):: PDTEVR   ! donwndraft evapor. (kg/s)
+REAL, DIMENSION(KLON),   INTENT(INOUT):: PZDTEVR  ! initial value of " 
+REAL, DIMENSION(KLON),   INTENT(INOUT):: PPRMELT  ! melting of precipitation
+REAL, DIMENSION(KLON),   INTENT(INOUT):: PZPRMELT ! initial value of " 
+REAL, DIMENSION(KLON,KLEV),INTENT(INOUT)  :: PPRLFLX! liquid precip flux
+REAL, DIMENSION(KLON,KLEV),INTENT(INOUT)  :: PZPRLFL! initial value "
+REAL, DIMENSION(KLON,KLEV),INTENT(INOUT)  :: PPRSFLX! solid  precip flux
+REAL, DIMENSION(KLON,KLEV),INTENT(INOUT)  :: PZPRSFL! initial value "
+!
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE                 ! horiz. + vert. loop bounds
+INTEGER :: JK                            ! vertical loop index
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.3   Compute loop bounds
+!              -------------------
+!
+IIE  = KLON
+IKB  = 1 + JCVEXB 
+IKE  = KLEV - JCVEXT 
+!
+!
+!*       1.     Adjust mass flux by the factor PADJ to converge to
+!               specified degree of stabilization
+!               ----------------------------------------------------
+!
+          PPRMELT(:)  = PZPRMELT(:)   * PADJ(:)
+          PDTEVR(:)   = PZDTEVR(:)    * PADJ(:)
+          PTPR(:)     = PZTPR(:)      * PADJ(:)
+!
+     DO JK = IKB + 1, IKE
+	  PUMF(:,JK)  = PZUMF(:,JK)   * PADJ(:)
+          PUER(:,JK)  = PZUER(:,JK)   * PADJ(:)
+          PUDR(:,JK)  = PZUDR(:,JK)   * PADJ(:)
+          PDMF(:,JK)  = PZDMF(:,JK)   * PADJ(:)
+          PDER(:,JK)  = PZDER(:,JK)   * PADJ(:)
+          PDDR(:,JK)  = PZDDR(:,JK)   * PADJ(:)
+          PPRLFLX(:,JK) = PZPRLFL(:,JK) * PADJ(:)
+          PPRSFLX(:,JK) = PZPRSFL(:,JK) * PADJ(:)
+     END DO
+!
+END SUBROUTINE CONVECT_CLOSURE_ADJUST
+!     ######spl
+      SUBROUTINE CONVECT_CLOSURE_THRVLCL( KLON, KLEV,                         &
+                                          PPRES, PTH, PRV, PZ, OWORK1,        &
+                                         PTHLCL, PRVLCL, PZLCL, PTLCL, PTELCL,&
+                                          KLCL, KDPL, KPBL )
+!     ######################################################################
+!
+!!**** Determine thermodynamic properties at new LCL
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the thermodynamic
+!!      properties at the new lifting condensation level LCL
+!!   
+!!
+!!
+!!**  METHOD
+!!    ------
+!!    see CONVECT_TRIGGER_FUNCT
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     Routine CONVECT_SATMIXRATIO
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! Reference pressure
+!!          XRD, XRV           ! Gaz  constants for dry air and water vapor
+!!          XCPD               ! Cpd (dry air)
+!!          XTT                ! triple point temperature
+!!          XBETAW, XGAMW      ! constants for vapor saturation pressure
+!!
+!!      Module MODD_CONVPAR
+!!          XA25               ! reference grid area
+!!          XZLCL              ! lowest allowed pressure difference between
+!!                             ! surface and LCL
+!!          XZPBL              ! minimum mixed layer depth to sustain convection
+!!          XWTRIG             ! constant in vertical velocity trigger
+!!
+!!      Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book2 of documentation ( routine TRIGGER_FUNCT)
+!!      Fritsch and Chappell (1980), J. Atm. Sci., Vol. 37, 1722-1761.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  04/10/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER,                    INTENT(IN) :: KLON  ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV  ! vertical dimension
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTH   ! theta
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRV   ! vapor mixing ratio 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES ! pressure
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ    ! height of grid point (m)
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KDPL  ! contains vert. index of DPL
+INTEGER, DIMENSION(KLON),   INTENT(IN) :: KPBL  ! " vert. index of source layer top
+LOGICAL, DIMENSION(KLON),   INTENT(IN) :: OWORK1! logical mask 
+!
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTHLCL ! theta at LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PRVLCL ! vapor mixing ratio at  LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PZLCL  ! height at LCL (m)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTLCL  ! temperature at LCL (m)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTELCL ! environm. temp. at LCL (K)
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KLCL   ! contains vert. index of LCL
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: JK, JKM, JKMIN, JKMAX      ! vertical loop index
+INTEGER :: JI                         ! horizontal loop index 
+INTEGER :: IIE, IKB, IKE              ! horizontal + vertical loop bounds
+REAL    :: ZEPS, ZEPSA    ! R_d / R_v, R_v / R_d 
+REAL    :: ZCPORD, ZRDOCP ! C_pd / R_d, R_d / C_pd
+!
+REAL, DIMENSION(KLON) :: ZPLCL    ! pressure at LCL
+REAL, DIMENSION(KLON) :: ZTMIX    ! mixed layer temperature
+REAL, DIMENSION(KLON) :: ZEVMIX   ! mixed layer water vapor pressure 
+REAL, DIMENSION(KLON) :: ZDPTHMIX, ZPRESMIX ! mixed layer depth and pressure
+REAL, DIMENSION(KLON) :: ZLV, ZCPH! specific heats of vaporisation, dry air
+REAL, DIMENSION(KLON) :: ZDP      ! pressure between LCL and model layer
+REAL, DIMENSION(KLON) :: ZWORK1, ZWORK2     ! work arrays
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.3    Compute array bounds
+!               --------------------
+!
+IIE = KLON
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+!
+!
+!*       1.     Initialize local variables
+!               --------------------------
+!
+ZEPS      = XRD / XRV
+ZEPSA     = XRV / XRD 
+ZCPORD    = XCPD / XRD
+ZRDOCP    = XRD / XCPD
+!
+ZDPTHMIX(:) = 0.
+ZPRESMIX(:) = 0.
+PTHLCL(:)   = 300.
+PTLCL(:)    = 300.
+PTELCL(:)   = 300.
+PRVLCL(:)   = 0.
+PZLCL(:)    = PZ(:,IKB)
+ZTMIX(:)    = 230.
+ZPLCL(:)    = 1.E4 
+KLCL(:)     = IKB + 1
+!
+!
+!*       2.     Construct a mixed layer as in TRIGGER_FUNCT
+!               -------------------------------------------
+!
+     JKMAX = MAXVAL( KPBL(:) )
+     JKMIN = MINVAL( KDPL(:) )
+     DO JK = IKB + 1, JKMAX
+        JKM = JK + 1
+        DO JI = 1, IIE
+        IF ( JK >= KDPL(JI) .AND. JK <= KPBL(JI) ) THEN
+!           
+            ZWORK1(JI)   = PPRES(JI,JK) - PPRES(JI,JKM)
+            ZDPTHMIX(JI) = ZDPTHMIX(JI) + ZWORK1(JI)
+            ZPRESMIX(JI) = ZPRESMIX(JI) + PPRES(JI,JK) * ZWORK1(JI)
+            PTHLCL(JI)   = PTHLCL(JI)   + PTH(JI,JK)   * ZWORK1(JI)
+            PRVLCL(JI)   = PRVLCL(JI)   + PRV(JI,JK)   * ZWORK1(JI)
+!
+        END IF
+        END DO
+     END DO
+!
+!
+WHERE ( OWORK1(:) )
+!
+        ZPRESMIX(:) = ZPRESMIX(:) / ZDPTHMIX(:)
+        PTHLCL(:)   = PTHLCL(:)   / ZDPTHMIX(:)
+        PRVLCL(:)   = PRVLCL(:)   / ZDPTHMIX(:)
+!
+!*       3.1    Use an empirical direct solution ( Bolton formula )
+!               to determine temperature and pressure at LCL.
+!               Nota: the adiabatic saturation temperature is not
+!                     equal to the dewpoint temperature
+!               --------------------------------------------------
+!
+!
+        ZTMIX(:)  = PTHLCL(:) * ( ZPRESMIX(:) / XP00 ) ** ZRDOCP
+        ZEVMIX(:) = PRVLCL(:) * ZPRESMIX(:) / ( PRVLCL(:) + ZEPS )
+        ZEVMIX(:) = MAX( 1.E-8, ZEVMIX(:) )
+        ZWORK1(:) = LOG( ZEVMIX(:) / 613.3 )
+              ! dewpoint temperature
+        ZWORK1(:) = ( 4780.8 - 32.19 * ZWORK1(:) ) / ( 17.502 - ZWORK1(:) ) 
+              ! adiabatic saturation temperature
+        PTLCL(:)  = ZWORK1(:) - ( .212 + 1.571E-3 * ( ZWORK1(:) - XTT )      &
+                  - 4.36E-4 * ( ZTMIX(:) - XTT ) ) * ( ZTMIX(:) - ZWORK1(:) )
+        PTLCL(:)  = MIN( PTLCL(:), ZTMIX(:) )
+        ZPLCL(:)  = XP00 * ( PTLCL(:) / PTHLCL(:) ) ** ZCPORD
+!
+END WHERE
+!
+     ZPLCL(:) = MIN( 2.E5, MAX( 10., ZPLCL(:) ) ) ! bound to avoid overflow
+!
+!
+!*       3.2    Correct PTLCL in order to be completely consistent
+!               with MNH saturation formula
+!               --------------------------------------------------
+!
+     CALL CONVECT_SATMIXRATIO( KLON, ZPLCL, PTLCL, ZWORK1, ZLV, ZWORK2, ZCPH )
+     WHERE( OWORK1(:) )
+        ZWORK2(:) = ZWORK1(:) / PTLCL(:) * ( XBETAW / PTLCL(:) - XGAMW ) ! dr_sat/dT
+        ZWORK2(:) = ( ZWORK1(:) - PRVLCL(:) ) /                              &
+                        ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) ) 
+        PTLCL(:)  = PTLCL(:) - ZLV(:) / ZCPH(:) * ZWORK2(:)
+!
+     END WHERE
+!
+!
+!*       3.3    If PRVLCL is oversaturated set humidity and temperature
+!               to saturation values.
+!               -------------------------------------------------------
+!
+    CALL CONVECT_SATMIXRATIO( KLON, ZPRESMIX, ZTMIX, ZWORK1, ZLV, ZWORK2, ZCPH )
+     WHERE( OWORK1(:) .AND. PRVLCL(:) > ZWORK1(:) )
+        ZWORK2(:) = ZWORK1(:) / ZTMIX(:) * ( XBETAW / ZTMIX(:) - XGAMW ) ! dr_sat/dT
+        ZWORK2(:) = ( ZWORK1(:) - PRVLCL(:) ) /                              &
+                        ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) )
+        PTLCL(:)  = ZTMIX(:) + ZLV(:) / ZCPH(:) * ZWORK2(:)
+        PRVLCL(:) = PRVLCL(:) - ZWORK2(:)
+        ZPLCL(:)  = ZPRESMIX(:)
+        PTHLCL(:) = PTLCL(:) * ( XP00 / ZPLCL(:) ) ** ZRDOCP
+     END WHERE
+!
+!
+!*        4.1   Determine  vertical loop index at the LCL 
+!               -----------------------------------------
+!
+     DO JK = JKMIN, IKE - 1
+        DO JI = 1, IIE
+        IF ( ZPLCL(JI) <= PPRES(JI,JK) .AND. OWORK1(JI) ) THEN
+            KLCL(JI)  = JK + 1
+            PZLCL(JI) = PZ(JI,JK+1)
+        END IF
+        END DO
+     END DO
+!
+!
+!*        4.2   Estimate height and environmental temperature at LCL
+!               ----------------------------------------------------
+!
+    DO JI = 1, IIE
+        JK   = KLCL(JI)
+        JKM  = JK - 1
+        ZDP(JI)     = LOG( ZPLCL(JI) / PPRES(JI,JKM) ) /                     &
+                      LOG( PPRES(JI,JK) / PPRES(JI,JKM) )
+        ZWORK1(JI)  = PTH(JI,JK)  * ( PPRES(JI,JK) / XP00 ) ** ZRDOCP
+        ZWORK2(JI)  = PTH(JI,JKM) * ( PPRES(JI,JKM) / XP00 ) ** ZRDOCP
+        ZWORK1(JI)  = ZWORK2(JI) + ( ZWORK1(JI) - ZWORK2(JI) ) * ZDP(JI) 
+           ! we compute the precise value of the LCL
+           ! The precise height is between the levels KLCL and KLCL-1.
+        ZWORK2(JI) = PZ(JI,JKM) + ( PZ(JI,JK) - PZ(JI,JKM) ) * ZDP(JI)
+    END DO
+    WHERE( OWORK1(:) )
+       PTELCL(:) = ZWORK1(:)
+       PZLCL(:)  = ZWORK2(:)
+    END WHERE
+!        
+!
+!
+END SUBROUTINE CONVECT_CLOSURE_THRVLCL
+!     ######spl
+      SUBROUTINE CONVECT_CHEM_TRANSPORT( KLON, KLEV, KCH, PCH1, PCH1C,       &
+                                         KDPL, KPBL, KLCL, KCTL, KLFS, KDBL, &
+                                         PUMF, PUER, PUDR, PDMF, PDER, PDDR, &
+                                         PTIMEC, PDXDY, PMIXF, PLMASS, PWSUB,&
+                                         KFTSTEPS )
+!    #######################################################################
+!
+!!**** Compute  modified chemical tracer values due to convective event
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the final adjusted
+!!      environmental values of the chemical tracers
+!!      The final convective tendencies can then be evaluated in the main
+!!      routine DEEP_CONVECT by (PCH1C-PCH1)/PTIMEC
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Identical to the computation of the conservative variables in the
+!!      main deep convection code
+!!
+!!    EXTERNAL
+!!    --------
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!
+!!      Original    11/12/97
+!!
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAREXT
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER,                INTENT(IN) :: KLON     ! horizontal dimension
+INTEGER,                INTENT(IN) :: KLEV     ! vertical dimension
+INTEGER,                INTENT(IN) :: KCH      ! number of passive tracers
+!
+REAL,DIMENSION(KLON,KLEV,KCH),INTENT(IN) :: PCH1 ! grid scale tracer concentr.
+REAL,DIMENSION(KLON,KLEV,KCH),INTENT(OUT):: PCH1C! conv adjusted tracer concntr.
+!
+INTEGER, DIMENSION(KLON), INTENT(IN) :: KDPL   ! index for departure level
+INTEGER, DIMENSION(KLON), INTENT(IN) :: KPBL   ! index for top of source layer
+INTEGER, DIMENSION(KLON), INTENT(IN) :: KLCL   ! index lifting condens. level
+INTEGER, DIMENSION(KLON), INTENT(IN) :: KCTL   ! index for cloud top level
+INTEGER, DIMENSION(KLON), INTENT(IN) :: KLFS   ! index for level of free sink
+INTEGER, DIMENSION(KLON), INTENT(IN) :: KDBL   ! index for downdraft base level
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PUMF ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PUER ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PUDR ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDMF ! downdraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDER ! downdraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDDR ! downdraft detrainment (kg/s)
+!
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTIMEC! convection time step
+REAL, DIMENSION(KLON),     INTENT(IN) :: PDXDY ! grid area (m^2)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PMIXF ! mixed fraction at LFS
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PLMASS! mass of model layer (kg)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PWSUB ! envir. compensating subsidence(Pa/s)
+INTEGER,                INTENT(IN) :: KFTSTEPS  ! maximum fractional time steps
+!
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: INCH1          ! number of chemical tracers
+INTEGER :: IIE, IKB, IKE  ! horizontal + vertical loop bounds
+INTEGER :: IKS            ! vertical dimension
+INTEGER :: JI             ! horizontal loop index
+INTEGER :: JK, JKP        ! vertical loop index
+INTEGER :: JN             ! chemical tracer loop index
+INTEGER :: JSTEP          ! fractional time loop index
+INTEGER :: JKLC, JKLD, JKLP, JKMAX ! loop index for levels
+!
+REAL, DIMENSION(KLON,KLEV)     :: ZOMG ! compensat. subsidence (Pa/s)
+REAL, DIMENSION(KLON,KLEV,KCH) :: ZUCH1, ZDCH1 ! updraft/downdraft values
+REAL, DIMENSION(KLON)          :: ZTIMEC  ! fractional convective time step
+REAL, DIMENSION(KLON,KLEV)     :: ZTIMC! 2D work array for ZTIMEC
+REAL, DIMENSION(KLON,KLEV,KCH) :: ZCH1MFIN, ZCH1MFOUT
+                                   ! work arrays for environm. compensat. mass
+REAL, DIMENSION(KLON,KCH)      :: ZWORK1, ZWORK2, ZWORK3
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.3   Compute loop bounds
+!              -------------------
+!
+INCH1  = KCH
+IIE    = KLON
+IKB    = 1 + JCVEXB 
+IKS    = KLEV
+IKE    = KLEV - JCVEXT 
+JKMAX  = MAXVAL( KCTL(:) )
+!
+!
+!*      2.      Updraft computations
+!               --------------------
+!
+ZUCH1(:,:,:) = 0.
+!
+!*      2.1     Initialization  at LCL
+!               ----------------------------------
+!
+DO JI = 1, IIE
+    JKLC = KLCL(JI)
+    JKLD = KDPL(JI)
+    JKLP = KPBL(JI)
+    ZWORK1(JI,:) = .5 * ( PCH1(JI,JKLD,:) + PCH1(JI,JKLP,:) )
+END DO
+!
+!*      2.2     Final updraft loop
+!               ------------------
+!
+DO JK = MINVAL( KDPL(:) ), JKMAX
+JKP = JK + 1
+!
+    DO JN = 1, INCH1
+     DO JI = 1, IIE
+       IF ( KDPL(JI) <= JK .AND. KLCL(JI) > JK )                             &
+            ZUCH1(JI,JK,JN) = ZWORK1(JI,JN)
+!
+       IF ( KLCL(JI) - 1 <= JK .AND. KCTL(JI) > JK ) THEN
+                            !if you have reactive i.e. non-passive tracers
+                            !add the corresponding sink term in the following equation
+           ZUCH1(JI,JKP,JN) = ( PUMF(JI,JK) * ZUCH1(JI,JK,JN) +              &
+                                PUER(JI,JKP) * PCH1(JI,JK,JN) )  /           & 
+                              ( PUMF(JI,JKP) + PUDR(JI,JKP) + 1.E-7 )
+       END IF
+     END DO
+   END DO
+!
+END DO
+!
+!*      3.      Downdraft computations
+!               ----------------------
+!
+ZDCH1(:,:,:) = 0.
+!
+!*      3.1     Initialization at the LFS
+!               -------------------------
+!
+ZWORK1(:,:) = SPREAD( PMIXF(:), DIM=2, NCOPIES=INCH1 )
+DO JI = 1, IIE
+     JK = KLFS(JI)
+     ZDCH1(JI,JK,:) = ZWORK1(JI,:) * PCH1(JI,JK,:) +                          &
+                                       ( 1. - ZWORK1(JI,:) ) * ZUCH1(JI,JK,:)
+END DO
+!
+!*      3.2     Final downdraft loop
+!               --------------------
+!
+DO JK = MAXVAL( KLFS(:) ), IKB + 1, -1
+JKP = JK - 1
+    DO JN = 1, INCH1
+    DO JI = 1, IIE
+      IF ( JK <= KLFS(JI) .AND. JKP >= KDBL(JI) ) THEN
+       ZDCH1(JI,JKP,JN) = ( ZDCH1(JI,JK,JN) * PDMF(JI,JK) -              &
+                            PCH1(JI,JK,JN) *  PDER(JI,JKP) ) /           &
+                          ( PDMF(JI,JKP) - PDDR(JI,JKP) - 1.E-7 ) 
+      END IF
+    END DO
+    END DO
+END DO
+!
+!							   
+!*      4.      Final closure (environmental) computations
+!               ------------------------------------------
+!
+PCH1C(:,IKB:IKE,:) = PCH1(:,IKB:IKE,:) ! initialize adjusted envir. values
+!
+DO JK = IKB, IKE
+   ZOMG(:,JK) = PWSUB(:,JK) * PDXDY(:) / XG ! environmental subsidence
+END DO
+!
+ZTIMEC(:) = PTIMEC(:) / REAL( KFTSTEPS ) ! adjust  fractional time step
+                                         ! to be an integer multiple of PTIMEC
+WHERE ( PTIMEC(:) < 1. ) ZTIMEC(:) = 0.
+ZTIMC(:,:)= SPREAD( ZTIMEC(:), DIM=2, NCOPIES=IKS )
+!
+ZCH1MFIN(:,:,:)   = 0.
+ZCH1MFOUT(:,:,:)  = 0.
+!
+DO JSTEP = 1, KFTSTEPS ! Enter the fractional time step loop
+!
+      DO JK = IKB + 1, JKMAX
+          JKP = MAX( IKB + 1, JK - 1 )
+	  ZWORK3(:,:) = SPREAD( ZOMG(:,JK), DIM=2, NCOPIES=INCH1 )
+          ZWORK1(:,:) = SIGN( 1., ZWORK3(:,:) )
+          ZWORK2(:,:) = 0.5 * ( 1. + ZWORK1(:,:) )
+          ZWORK1(:,:) = 0.5 * ( 1. - ZWORK1(:,:) )
+          ZCH1MFIN(:,JK,:)  = - ZWORK3(:,:) * PCH1C(:,JKP,:) * ZWORK1(:,:)
+          ZCH1MFOUT(:,JK,:) =   ZWORK3(:,:) * PCH1C(:,JK,:)  * ZWORK2(:,:)
+         ZCH1MFIN(:,JKP,:) = ZCH1MFIN(:,JKP,:) + ZCH1MFOUT(:,JK,:) * ZWORK2(:,:)
+         ZCH1MFOUT(:,JKP,:)= ZCH1MFOUT(:,JKP,:) + ZCH1MFIN(:,JK,:) * ZWORK1(:,:)
+      END DO
+!
+      DO JN = 1, INCH1
+       DO JK = IKB + 1, JKMAX
+         PCH1C(:,JK,JN) = PCH1C(:,JK,JN) + ZTIMC(:,JK) / PLMASS(:,JK) *  (    &
+                      ZCH1MFIN(:,JK,JN) + PUDR(:,JK) * ZUCH1(:,JK,JN) +       &
+                      PDDR(:,JK) * ZDCH1(:,JK,JN) - ZCH1MFOUT(:,JK,JN) -      &
+                      ( PUER(:,JK) + PDER(:,JK) ) * PCH1(:,JK,JN)    )
+         PCH1C(:,JK,JN) = MAX( 0., PCH1C(:,JK,JN) )
+       END DO
+      END DO
+!
+END DO ! Exit the fractional time step loop
+!
+!
+END SUBROUTINE CONVECT_CHEM_TRANSPORT
+!     ######spl
+      MODULE MODD_CONVPAR_SHAL
+!     ########################
+!
+!!****  *MODD_CONVPAR_SHAL* - Declaration of convection constants 
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this declarative module is to declare  the 
+!!      constants in the deep convection parameterization.    
+!!
+!!
+!!**  IMPLICIT ARGUMENTS
+!!    ------------------
+!!      None 
+!!
+!!    REFERENCE
+!!    ---------
+!!      Book2 of documentation of Meso-NH (MODD_CONVPAR_SHAL)
+!!          
+!!    AUTHOR
+!!    ------
+!!      P. Bechtold   *Laboratoire d'Aerologie*
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96                      
+!!   Last modified  04/10/98
+!-------------------------------------------------------------------------------
+!
+!*       0.   DECLARATIONS
+!             ------------
+!
+IMPLICIT NONE 
+!
+REAL, SAVE :: XA25        ! 25 km x 25 km reference grid area
+!
+REAL, SAVE :: XCRAD       ! cloud radius 
+REAL, SAVE :: XCTIME_SHAL ! convective adjustment time
+REAL, SAVE :: XCDEPTH     ! minimum necessary cloud depth
+REAL, SAVE :: XCDEPTH_D   ! maximum allowed cloud thickness
+REAL, SAVE :: XDTPERT     ! add small Temp perturb. at LCL
+REAL, SAVE :: XENTR       ! entrainment constant (m/Pa) = 0.2 (m)  
+!
+REAL, SAVE :: XZLCL       ! maximum allowed allowed height 
+                          ! difference between departure level and surface
+REAL, SAVE :: XZPBL       ! minimum mixed layer depth to sustain convection
+REAL, SAVE :: XWTRIG      ! constant in vertical velocity trigger
+!
+!
+REAL, SAVE :: XNHGAM      ! accounts for non-hydrost. pressure 
+			  ! in buoyancy term of w equation
+                          ! = 2 / (1+gamma)
+REAL, SAVE :: XTFRZ1      ! begin of freezing interval
+REAL, SAVE :: XTFRZ2      ! end of freezing interval
+!
+!
+REAL, SAVE :: XSTABT      ! factor to assure stability in  fractional time
+                          ! integration, routine CONVECT_CLOSURE
+REAL, SAVE :: XSTABC      ! factor to assure stability in CAPE adjustment,
+                          !  routine CONVECT_CLOSURE
+!
+END MODULE MODD_CONVPAR_SHAL 
+!     ######spl
+      SUBROUTINE INI_CONVPAR_SHAL
+!     ###########################
+!
+!!****  *INI_CONVPAR * - routine to initialize the constants modules 
+!!
+!!    PURPOSE
+!!    -------
+!!       The purpose of this routine is to initialize  the constants
+!!     stored in  modules MODD_CONVPAR_SHAL
+!!      
+!!
+!!**  METHOD
+!!    ------
+!!      The shallow convection constants are set to their numerical values 
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CONVPAR_SHAL   : contains deep convection constants
+!!
+!!    REFERENCE
+!!    ---------
+!!      Book2 of the documentation (module MODD_CONVPAR_SHAL, routine INI_CONVPAR)
+!!      
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Last modified  15/04/98 adapted for ARPEGE
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAR_SHAL
+!
+IMPLICIT NONE
+!  
+!-------------------------------------------------------------------------------
+!
+!*       1.    Set the thermodynamical and numerical constants for
+!              the deep convection parameterization
+!              ---------------------------------------------------
+!
+!
+XA25     = 625.E6    ! 25 km x 25 km reference grid area
+!
+XCRAD       =  50.   ! cloud radius 
+XCTIME_SHAL = 10800. ! convective adjustment time
+XCDEPTH     = 0.5E3  ! minimum necessary shallow cloud depth
+XCDEPTH_D   = 3.0E3  ! maximum allowed shallow cloud depth
+XDTPERT     = .2     ! add small Temp perturbation at LCL
+!
+XENTR    = 0.02      ! entrainment constant (m/Pa) = 0.2 (m)  
+!
+XZLCL    = 1.5E3     ! maximum allowed allowed height 
+                     ! difference between the DPL and the LCL
+XZPBL    = 50.E2     ! minimum mixed layer depth to sustain convection
+!
+!
+XNHGAM   = 1.3333    ! accounts for non-hydrost. pressure 
+                     ! in buoyancy term of w equation
+                     ! = 2 / (1+gamma)
+XTFRZ1   = 268.16    ! begin of freezing interval
+XTFRZ2   = 248.16    ! end of freezing interval
+!
+
+XSTABT   = 0.75      ! factor to assure stability in  fractional time
+                     ! integration, routine CONVECT_CLOSURE
+XSTABC   = 0.95      ! factor to assure stability in CAPE adjustment,
+                     !  routine CONVECT_CLOSURE
+!
+!
+END SUBROUTINE INI_CONVPAR_SHAL 
+!     ######spl
+    SUBROUTINE CONVECT_SHALLOW( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA,        &
+                                   PDTCONV, KICE, OSETTADJ, PTADJS,               &
+                                   PPABST, PZZ,                                   &
+                                   PTT, PRVT, PRCT, PRIT, PWT,                    &
+                                   PTTEN, PRVTEN, PRCTEN, PRITEN,                 &
+                                   KCLTOP, KCLBAS, PUMF,                          &
+                                   OCH1CONV, KCH1, PCH1, PCH1TEN                  )
+!   ############################################################################
+!
+!!**** Monitor routine to compute all convective tendencies by calls
+!!     of several subroutines.
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the convective
+!!      tendencies. The routine first prepares all necessary grid-scale
+!!      variables. The final convective tendencies are then computed by
+!!      calls of different subroutines.
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      We start by selecting convective columns in the model domain through
+!!      the call of routine TRIGGER_FUNCT. Then, we allocate memory for the
+!!      convection updraft and downdraft variables and gather the grid scale
+!!      variables in convective arrays. 
+!!      The updraft and downdraft computations are done level by level starting
+!!      at the  bottom and top of the domain, respectively.
+!!      All computations are done on MNH thermodynamic levels. The depth
+!!      of the current model layer k is defined by DP(k)=P(k-1)-P(k)
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!    CONVECT_TRIGGER_SHAL
+!!    CONVECT_SATMIXRATIO
+!!    CONVECT_UPDRAFT_SHAL
+!!        CONVECT_CONDENS
+!!        CONVECT_MIXING_FUNCT
+!!    CONVECT_CLOSURE_SHAL
+!!        CONVECT_CLOSURE_THRVLCL
+!!        CONVECT_CLOSURE_ADJUST_SHAL
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                   ! gravity constant
+!!          XPI                  ! number Pi
+!!          XP00                 ! reference pressure
+!!          XRD, XRV             ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV           ! specific heat for dry air and water vapor
+!!          XRHOLW               ! density of liquid water
+!!          XALPW, XBETAW, XGAMW ! constants for water saturation pressure
+!!          XTT                  ! triple point temperature
+!!          XLVTT, XLSTT         ! vaporization, sublimation heat constant
+!!          XCL, XCI             ! specific heat for liquid water and ice
+!!
+!!      Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT       ! extra levels on the vertical boundaries
+!!
+!!      Module MODD_CONVPAR
+!!          XA25                 ! reference grid area
+!!          XCRAD                ! cloud radius
+!!
+!!         
+!!    REFERENCE
+!!    ---------
+!!
+!!      Bechtold, 1997 : Meso-NH scientific  documentation (31 pp)
+!!      Fritsch and Chappell, 1980, J. Atmos. Sci., Vol. 37, 1722-1761.
+!!      Kain and Fritsch, 1990, J. Atmos. Sci., Vol. 47, 2784-2801.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol. 24, 165-170.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Peter Bechtold 15/11/96 replace theta_il by enthalpy
+!!         "        10/12/98 changes for ARPEGE
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAREXT
+USE MODD_CONVPAR_SHAL
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                    INTENT(IN) :: KLON     ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV     ! vertical dimension
+INTEGER,                    INTENT(IN) :: KIDIA    ! value of the first point in x
+INTEGER,                    INTENT(IN) :: KFDIA    ! value of the last point in x
+INTEGER,                    INTENT(IN) :: KBDIA    ! vertical  computations start at
+!                                                  ! KBDIA that is at least 1
+INTEGER,                    INTENT(IN) :: KTDIA    ! vertical computations can be
+						   ! limited to KLEV + 1 - KTDIA
+                                                   ! default=1
+REAL,                       INTENT(IN) :: PDTCONV  ! Interval of time between two
+                                                   ! calls of the deep convection
+                                                   ! scheme
+INTEGER,                    INTENT(IN) :: KICE     ! flag for ice ( 1 = yes, 
+                                                   !                0 = no ice )
+LOGICAL,                    INTENT(IN) :: OSETTADJ ! logical to set convective
+						   ! adjustment time by user
+REAL,                       INTENT(IN) :: PTADJS   ! user defined adjustment time
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTT      ! grid scale temperature at t
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRVT     ! grid scale water vapor "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRCT     ! grid scale r_c  "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRIT     ! grid scale r_i "
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PWT      ! grid scale vertical 
+						   ! velocity (m/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPABST   ! grid scale pressure at t
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZZ      ! height of model layer (m) 
+!   
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PTTEN  ! convective temperature 
+						   ! tendency (K/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRVTEN ! convective r_v tendency (1/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRCTEN ! convective r_c tendency (1/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PRITEN ! convective r_i tendency (1/s)
+INTEGER, DIMENSION(KLON),   INTENT(INOUT):: KCLTOP ! cloud top level
+INTEGER, DIMENSION(KLON),   INTENT(INOUT):: KCLBAS ! cloud base level
+                                                   ! they are given a value of
+                                                   ! 0 if no convection
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUMF   ! updraft mass flux (kg/s m2)
+!
+LOGICAL,                    INTENT(IN) :: OCH1CONV ! include tracer transport
+INTEGER,                    INTENT(IN) :: KCH1     ! number of species
+REAL, DIMENSION(KLON,KLEV,KCH1), INTENT(IN) :: PCH1! grid scale chemical species
+REAL, DIMENSION(KLON,KLEV,KCH1), INTENT(INOUT):: PCH1TEN! species conv. tendency (1/s)
+!
+!
+!*       0.2   Declarations of local fixed memory variables :
+!
+INTEGER  :: ITEST, ICONV, ICONV1    ! number of convective columns
+INTEGER  :: IIB, IIE                ! horizontal loop bounds
+INTEGER  :: IKB, IKE                ! vertical loop bounds
+INTEGER  :: IKS                     ! vertical dimension
+INTEGER  :: JI, JL                  ! horizontal loop index
+INTEGER  :: JN                      ! number of tracers
+INTEGER  :: JK, JKP, JKM            ! vertical loop index
+INTEGER  :: IFTSTEPS                ! only used for chemical tracers
+REAL     :: ZEPS, ZEPSA, ZEPSB      ! R_d / R_v, R_v / R_d, XCPV / XCPD - ZEPSA
+REAL     :: ZCPORD, ZRDOCP          ! C_p/R_d,  R_d/C_p
+!
+LOGICAL, DIMENSION(KLON, KLEV)     :: GTRIG3 ! 3D logical mask for convection 
+LOGICAL, DIMENSION(KLON)           :: GTRIG  ! 2D logical mask for trigger test
+REAL, DIMENSION(KLON,KLEV)         :: ZTHT, ZSTHV, ZSTHES  ! grid scale theta, theta_v
+REAL, DIMENSION(KLON)              :: ZTIME  ! convective time period
+REAL, DIMENSION(KLON)              :: ZWORK2, ZWORK2B ! work array 
+!
+!
+!*       0.2   Declarations of local allocatable  variables :
+!
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IDPL    ! index for parcel departure level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IPBL    ! index for source layer top
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ILCL    ! index for lifting condensation level 
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IETL    ! index for zero buoyancy level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ICTL    ! index for cloud top level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ILFS    ! index for level of free sink
+!
+INTEGER, DIMENSION(:), ALLOCATABLE :: ISDPL   ! index for parcel departure level
+INTEGER, DIMENSION(:),ALLOCATABLE  :: ISPBL   ! index for source layer top
+INTEGER, DIMENSION(:), ALLOCATABLE :: ISLCL   ! index for lifting condensation level 
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSTHLCL ! updraft theta at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSTLCL  ! updraft temp. at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSRVLCL ! updraft rv at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSWLCL  ! updraft w at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSZLCL  ! LCL height
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSTHVELCL! envir. theta_v at LCL
+REAL, DIMENSION(:), ALLOCATABLE    :: ZSDXDY  ! grid area (m^2)
+!
+! grid scale variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZZ      ! height of model layer (m) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZPRES   ! grid scale pressure
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDPRES  ! pressure difference between 
+                                              ! bottom and top of layer (Pa)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZW      ! grid scale vertical velocity on theta grid
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTT     ! temperature
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTH     ! grid scale theta     
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHV    ! grid scale theta_v     
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHL    ! grid scale enthalpy (J/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHES, ZTHEST ! grid scale saturated theta_e
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRW     ! grid scale total water (kg/kg) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRV     ! grid scale water vapor (kg/kg) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRC     ! grid scale cloud water (kg/kg) 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRI     ! grid scale cloud ice (kg/kg) 
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZDXDY   ! grid area (m^2)
+!
+! updraft variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUMF    ! updraft mass flux (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUER    ! updraft entrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUDR    ! updraft detrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUTHL   ! updraft enthalpy (J/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZUTHV   ! updraft theta_v (K)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURW    ! updraft total water (kg/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURC    ! updraft cloud water (kg/kg)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZURI    ! updraft cloud ice   (kg/kg)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZMFLCL  ! cloud base unit mass flux(kg/s) 
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZCAPE   ! available potent. energy     
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTHLCL  ! updraft theta at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTLCL   ! updraft temp. at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZRVLCL  ! updraft rv at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZWLCL   ! updraft w at LCL
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZZLCL   ! LCL height
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTHVELCL! envir. theta_v at LCL
+!
+! downdraft variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDMF    ! downdraft mass flux (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDER    ! downdraft entrainment (kg/s)
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZDDR    ! downdraft detrainment (kg/s)
+!
+! closure variables
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZLMASS  ! mass of model layer (kg)
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZTIMEC  ! advective time period
+!
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZTHC    ! conv. adj. grid scale theta
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRVC    ! conv. adj. grid scale r_w 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRCC    ! conv. adj. grid scale r_c 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZRIC    ! conv. adj. grid scale r_i 
+REAL, DIMENSION(:,:), ALLOCATABLE  :: ZWSUB   ! envir. compensating subsidence (Pa/s)
+!
+LOGICAL, DIMENSION(:),ALLOCATABLE  :: GTRIG1  ! logical mask for convection    
+LOGICAL, DIMENSION(:),ALLOCATABLE  :: GWORK   ! logical work array
+INTEGER, DIMENSION(:),ALLOCATABLE  :: IINDEX, IJINDEX, IJSINDEX, IJPINDEX!hor.index
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZCPH    ! specific heat C_ph 
+REAL, DIMENSION(:),   ALLOCATABLE  :: ZLV, ZLS! latent heat of vaporis., sublim.
+REAL                               :: ZES     ! saturation vapor mixng ratio
+REAl                               :: ZW1     ! work variable
+!
+! Chemical Tracers:
+REAL, DIMENSION(:,:,:), ALLOCATABLE:: ZCH1    ! grid scale chemical specy (kg/kg)
+REAL, DIMENSION(:,:,:), ALLOCATABLE:: ZCH1C   ! conv. adjust. chemical specy 1
+REAL, DIMENSION(:,:),   ALLOCATABLE:: ZWORK3  ! conv. adjust. chemical specy 1
+LOGICAL, DIMENSION(:,:,:),ALLOCATABLE::GTRIG4 ! logical mask
+!
+!-------------------------------------------------------------------------------
+!
+!
+!*       0.3    Compute loop bounds
+!               -------------------
+!
+IIB = KIDIA
+IIE = KFDIA
+JCVEXB = MAX( 0, KBDIA - 1 )
+IKB = 1 + JCVEXB 
+IKS = KLEV
+JCVEXT = MAX( 0, KTDIA - 1)
+IKE = IKS - JCVEXT 
+!
+!
+!*       0.5    Update convective counter ( where KCOUNT > 0 
+!               convection is still active ).
+!               ---------------------------------------------
+!
+GTRIG(:) = .FALSE.
+GTRIG(IIB:IIE) = .TRUE.
+ITEST = COUNT( GTRIG(:) )
+IF ( ITEST == 0 ) RETURN 
+                        
+!
+!
+!*       0.7    Reset convective tendencies to zero if convective
+!               counter becomes negative
+!               -------------------------------------------------
+!
+GTRIG3(:,:) = SPREAD( GTRIG(:), DIM=2, NCOPIES=IKS )
+WHERE ( GTRIG3(:,:) ) 
+    PTTEN(:,:)  = 0.
+    PRVTEN(:,:) = 0.
+    PRCTEN(:,:) = 0.
+    PRITEN(:,:) = 0.
+!   PUTEN(:,:)  = 0.
+!   PVTEN(:,:)  = 0.
+    PUMF(:,:)   = 0.
+END WHERE
+WHERE ( GTRIG(:) ) 
+ ! KCLTOP(:)  = 0 ! already initialized in CONVECTION
+ ! KCLBAS(:)  = 0
+END WHERE
+IF ( OCH1CONV ) THEN
+    ALLOCATE( GTRIG4(KLON,KLEV,KCH1) )
+    GTRIG4(:,:,:) = SPREAD( GTRIG3(:,:), DIM=3, NCOPIES=KCH1 )
+    WHERE( GTRIG4(:,:,:) ) PCH1TEN(:,:,:) = 0.
+    DEALLOCATE( GTRIG4 )
+END IF
+!
+!
+!*       1.     Initialize  local variables
+!               ----------------------------
+!
+ZEPS   = XRD / XRV
+ZEPSA  = XRV / XRD 
+ZEPSB  = XCPV / XCPD - ZEPSA
+ZCPORD = XCPD / XRD
+ZRDOCP = XRD / XCPD
+!
+!
+!*       1.1    Set up grid scale theta, theta_v, theta_es 
+!               ------------------------------------------
+!
+ZTHT(:,:) = 300.
+ZSTHV(:,:)= 300.
+ZSTHES(:,:) = 400.
+DO JK = IKB, IKE
+DO JI = IIB, IIE
+   IF ( PPABST(JI,JK) > 40.E2 ) THEN
+      ZTHT(JI,JK)  = PTT(JI,JK) * ( XP00 / PPABST(JI,JK) ) ** ZRDOCP
+      ZSTHV(JI,JK) = ZTHT(JI,JK) * ( 1. + ZEPSA * PRVT(JI,JK) ) /              &
+                     ( 1. + PRVT(JI,JK) + PRCT(JI,JK) + PRIT(JI,JK) )
+!
+          ! use conservative Bolton (1980) formula for theta_e
+          ! it is used to compute CAPE for undilute parcel ascent
+          ! For economical reasons we do not use routine CONVECT_SATMIXRATIO here
+!
+      ZES = EXP( XALPW - XBETAW / PTT(JI,JK) - XGAMW * LOG( PTT(JI,JK) ) )
+      ZES = MIN( 1., ZEPS * ZES / ( PPABST(JI,JK) - ZES ) )
+      ZSTHES(JI,JK) = PTT(JI,JK) * ( ZTHT(JI,JK) / PTT(JI,JK) ) **             &
+                ( 1. - 0.28 * ZES ) * EXP( MIN(500.,                           &
+                                           ( 3374.6525 / PTT(JI,JK) - 2.5403 ) &
+                                          * ZES * ( 1. + 0.81 * ZES ) ) )
+   END IF
+END DO
+END DO
+!
+!
+!
+!*       2.     Test for convective columns and determine properties at the LCL
+!               --------------------------------------------------------------
+!
+!*       2.1    Allocate arrays depending on number of model columns that need
+!               to be tested for convection (i.e. where no convection is present
+!               at the moment.
+!               --------------------------------------------------------------
+!
+     ALLOCATE( ZPRES(ITEST,IKS) )
+     ALLOCATE( ZZ(ITEST,IKS) )
+     ALLOCATE( ZW(ITEST,IKS) )
+     ALLOCATE( ZTH(ITEST,IKS) )
+     ALLOCATE( ZTHV(ITEST,IKS) )
+     ALLOCATE( ZTHEST(ITEST,IKS) )
+     ALLOCATE( ZRV(ITEST,IKS) )
+     ALLOCATE( ZSTHLCL(ITEST) )
+     ALLOCATE( ZSTLCL(ITEST) )
+     ALLOCATE( ZSRVLCL(ITEST) )
+     ALLOCATE( ZSWLCL(ITEST) )
+     ALLOCATE( ZSZLCL(ITEST) )
+     ALLOCATE( ZSTHVELCL(ITEST) )
+     ALLOCATE( ISDPL(ITEST) )
+     ALLOCATE( ISPBL(ITEST) )
+     ALLOCATE( ISLCL(ITEST) )
+     ALLOCATE( ZSDXDY(ITEST) )
+     ALLOCATE( GTRIG1(ITEST) )
+     ALLOCATE( IINDEX(KLON) )
+     ALLOCATE( IJSINDEX(ITEST) )
+     DO JI = 1, KLON
+        IINDEX(JI) = JI
+     END DO
+     IJSINDEX(:) = PACK( IINDEX(:), MASK=GTRIG(:) )
+!
+  DO JK = IKB, IKE
+  DO JI = 1, ITEST
+     JL = IJSINDEX(JI)
+     ZPRES(JI,JK)  = PPABST(JL,JK)
+     ZZ(JI,JK)     = PZZ(JL,JK)
+     ZTH(JI,JK)    = ZTHT(JL,JK)
+     ZTHV(JI,JK)   = ZSTHV(JL,JK)
+     ZTHEST(JI,JK) = ZSTHES(JL,JK)
+     ZRV(JI,JK)    = MAX( 0., PRVT(JL,JK) )
+     ZW(JI,JK)     = PWT(JL,JK)
+  END DO
+  END DO
+  DO JI = 1, ITEST
+     JL = IJSINDEX(JI)
+     ZSDXDY(JI)    = XA25
+  END DO
+!
+!*       2.2    Compute environm. enthalpy and total water = r_v + r_i + r_c 
+!               and envir. saturation theta_e
+!               ------------------------------------------------------------
+!
+!
+!*       2.3    Test for convective columns and determine properties at the LCL
+!               --------------------------------------------------------------
+!
+     ISLCL(:) = MAX( IKB, 2 )   ! initialize DPL PBL and LCL 
+     ISDPL(:) = IKB
+     ISPBL(:) = IKB
+!
+     CALL CONVECT_TRIGGER_SHAL(  ITEST, KLEV,                              &
+                                 ZPRES, ZTH, ZTHV, ZTHEST,                 &
+                                 ZRV, ZW, ZZ, ZSDXDY,                      &
+                                 ZSTHLCL, ZSTLCL, ZSRVLCL, ZSWLCL, ZSZLCL, &
+                                 ZSTHVELCL, ISLCL, ISDPL, ISPBL, GTRIG1    )
+!
+     DEALLOCATE( ZPRES )
+     DEALLOCATE( ZZ )
+     DEALLOCATE( ZTH )
+     DEALLOCATE( ZTHV )
+     DEALLOCATE( ZTHEST )
+     DEALLOCATE( ZRV )
+     DEALLOCATE( ZW )
+!
+!
+!*       3.     After the call of TRIGGER_FUNCT we allocate all the dynamic
+!               arrays used in the convection scheme using the mask GTRIG, i.e.
+!               we do calculus only in convective columns. This corresponds to
+!               a GATHER operation.
+!               --------------------------------------------------------------
+!
+     ICONV = COUNT( GTRIG1(:) )
+     IF ( ICONV == 0 )  THEN 
+         DEALLOCATE( ZSTHLCL )
+         DEALLOCATE( ZSTLCL )
+         DEALLOCATE( ZSRVLCL )
+         DEALLOCATE( ZSWLCL )
+         DEALLOCATE( ZSZLCL )
+         DEALLOCATE( ZSTHVELCL )
+         DEALLOCATE( ZSDXDY )
+         DEALLOCATE( ISLCL )
+         DEALLOCATE( ISDPL )
+         DEALLOCATE( ISPBL )
+         DEALLOCATE( GTRIG1 )
+         DEALLOCATE( IINDEX )
+         DEALLOCATE( IJSINDEX )
+         RETURN   ! no convective column has been found, exit CONVECT_SHALLOW 
+     ENDIF
+!
+     ! vertical index variables
+!
+         ALLOCATE( IDPL(ICONV) )
+         ALLOCATE( IPBL(ICONV) )
+         ALLOCATE( ILCL(ICONV) )
+         ALLOCATE( ICTL(ICONV) )
+         ALLOCATE( IETL(ICONV) )
+!
+	 ! grid scale variables
+!
+         ALLOCATE( ZZ(ICONV,IKS) )
+         ALLOCATE( ZPRES(ICONV,IKS) )
+         ALLOCATE( ZDPRES(ICONV,IKS) )
+         ALLOCATE( ZTT(ICONV, IKS) )
+         ALLOCATE( ZTH(ICONV,IKS) )
+         ALLOCATE( ZTHV(ICONV,IKS) )
+         ALLOCATE( ZTHL(ICONV,IKS) )
+         ALLOCATE( ZTHES(ICONV,IKS) )
+         ALLOCATE( ZRV(ICONV,IKS) )
+         ALLOCATE( ZRC(ICONV,IKS) )
+         ALLOCATE( ZRI(ICONV,IKS) )
+         ALLOCATE( ZRW(ICONV,IKS) )
+         ALLOCATE( ZDXDY(ICONV) )
+!
+         ! updraft variables
+!
+         ALLOCATE( ZUMF(ICONV,IKS) )
+         ALLOCATE( ZUER(ICONV,IKS) )
+         ALLOCATE( ZUDR(ICONV,IKS) )
+         ALLOCATE( ZUTHL(ICONV,IKS) )
+         ALLOCATE( ZUTHV(ICONV,IKS) )
+         ALLOCATE( ZURW(ICONV,IKS) )
+         ALLOCATE( ZURC(ICONV,IKS) )
+         ALLOCATE( ZURI(ICONV,IKS) )
+         ALLOCATE( ZTHLCL(ICONV) )
+         ALLOCATE( ZTLCL(ICONV) )
+         ALLOCATE( ZRVLCL(ICONV) )
+         ALLOCATE( ZWLCL(ICONV) )
+         ALLOCATE( ZMFLCL(ICONV) )
+         ALLOCATE( ZZLCL(ICONV) )
+         ALLOCATE( ZTHVELCL(ICONV) )
+         ALLOCATE( ZCAPE(ICONV) )
+!
+         ! work variables
+!
+         ALLOCATE( IJINDEX(ICONV) )
+         ALLOCATE( IJPINDEX(ICONV) )
+         ALLOCATE( ZCPH(ICONV) )
+         ALLOCATE( ZLV(ICONV) )
+         ALLOCATE( ZLS(ICONV) )
+!
+!
+!*           3.1    Gather grid scale and updraft base variables in
+!                   arrays using mask GTRIG
+!                   ---------------------------------------------------
+!
+         GTRIG(:)      = UNPACK( GTRIG1(:), MASK=GTRIG(:), FIELD=.FALSE. )  
+         IJINDEX(:)    = PACK( IINDEX(:), MASK=GTRIG(:) )
+!
+    DO JK = IKB, IKE
+    DO JI = 1, ICONV
+         JL = IJINDEX(JI)
+         ZZ(JI,JK)     = PZZ(JL,JK)
+         ZPRES(JI,JK)  = PPABST(JL,JK)
+         ZTT(JI,JK)    = PTT(JL,JK)
+         ZTH(JI,JK)    = ZTHT(JL,JK)
+         ZTHES(JI,JK)  = ZSTHES(JL,JK)
+         ZRV(JI,JK)    = MAX( 0., PRVT(JL,JK) )
+         ZRC(JI,JK)    = MAX( 0., PRCT(JL,JK) )
+         ZRI(JI,JK)    = MAX( 0., PRIT(JL,JK) )
+         ZTHV(JI,JK)   = ZSTHV(JL,JK)
+    END DO
+    END DO
+!
+    DO JI = 1, ITEST
+       IJSINDEX(JI) = JI	
+    END DO
+    IJPINDEX(:) = PACK( IJSINDEX(:), MASK=GTRIG1(:) )
+    DO JI = 1, ICONV
+         JL = IJPINDEX(JI)
+         IDPL(JI)      = ISDPL(JL)
+         IPBL(JI)      = ISPBL(JL)
+         ILCL(JI)      = ISLCL(JL)
+         ZTHLCL(JI)    = ZSTHLCL(JL)
+         ZTLCL(JI)     = ZSTLCL(JL)
+         ZRVLCL(JI)    = ZSRVLCL(JL)
+         ZWLCL(JI)     = ZSWLCL(JL)
+         ZZLCL(JI)     = ZSZLCL(JL)
+         ZTHVELCL(JI)  = ZSTHVELCL(JL)
+         ZDXDY(JI)     = ZSDXDY(JL)
+    END DO
+         ALLOCATE( GWORK(ICONV) )
+         GWORK(:)      = PACK( GTRIG1(:),  MASK=GTRIG1(:) ) 
+         DEALLOCATE( GTRIG1 )
+         ALLOCATE( GTRIG1(ICONV) )
+         GTRIG1(:)     = GWORK(:)
+!                 
+         DEALLOCATE( GWORK )
+         DEALLOCATE( IJPINDEX )
+         DEALLOCATE( ISDPL )
+         DEALLOCATE( ISPBL )
+         DEALLOCATE( ISLCL )
+         DEALLOCATE( ZSTHLCL )
+         DEALLOCATE( ZSTLCL )
+         DEALLOCATE( ZSRVLCL )
+         DEALLOCATE( ZSWLCL )
+         DEALLOCATE( ZSZLCL )
+         DEALLOCATE( ZSTHVELCL )
+         DEALLOCATE( ZSDXDY )
+!
+!
+!*           3.2    Compute pressure difference 
+!                   ---------------------------------------------------
+!
+        ZDPRES(:,IKB) = 0.
+        DO JK = IKB + 1, IKE
+            ZDPRES(:,JK)  = ZPRES(:,JK-1) - ZPRES(:,JK)
+        END DO
+!
+!*           3.3   Compute environm. enthalpy and total water = r_v + r_i + r_c
+!                  ----------------------------------------------------------
+!
+        DO JK = IKB, IKE, 1
+            ZRW(:,JK)  = ZRV(:,JK) + ZRC(:,JK) + ZRI(:,JK)
+            ZCPH(:)    = XCPD + XCPV * ZRW(:,JK)
+            ZLV(:)     = XLVTT + ( XCPV - XCL ) * ( ZTT(:,JK) - XTT ) ! compute L_v
+            ZLS(:)     = XLSTT + ( XCPV - XCI ) * ( ZTT(:,JK) - XTT ) ! compute L_i
+            ZTHL(:,JK) = ZCPH(:) * ZTT(:,JK) + ( 1. + ZRW(:,JK) ) * XG * ZZ(:,JK) &
+                         - ZLV(:) * ZRC(:,JK) - ZLS(:) * ZRI(:,JK)
+        END DO
+!
+        DEALLOCATE( ZCPH )
+        DEALLOCATE( ZLV )
+        DEALLOCATE( ZLS )
+!
+!
+!*           4.     Compute updraft properties 
+!                   ----------------------------
+!
+!*           4.1    Set mass flux at LCL ( here a unit mass flux with w = 1 m/s ) 
+!                   -------------------------------------------------------------
+!
+         ZDXDY(:)  = XA25
+         ZMFLCL(:) = XA25 * 1.e-3
+!
+!
+     CALL CONVECT_UPDRAFT_SHAL( ICONV, KLEV,                                     &
+                                KICE, ZPRES, ZDPRES, ZZ, ZTHL, ZTHV, ZTHES, ZRW, &
+                                ZTHLCL, ZTLCL, ZRVLCL, ZWLCL, ZZLCL, ZTHVELCL,   & 
+                                ZMFLCL, GTRIG1, ILCL, IDPL, IPBL,                &
+                                ZUMF, ZUER, ZUDR, ZUTHL, ZUTHV, ZURW,            &
+                                ZURC, ZURI, ZCAPE, ICTL, IETL                    )
+!
+!
+!
+!*           4.2    In routine UPDRAFT GTRIG1 has been set to false when cloud 
+!                   thickness is smaller than 3 km
+!                   -----------------------------------------------------------
+!
+!
+     ICONV1 = COUNT(GTRIG1) 
+!
+     IF ( ICONV1 > 0 )  THEN
+!
+!*       4.3    Allocate memory for downdraft variables
+!               ---------------------------------------
+!
+! downdraft variables
+!
+        ALLOCATE( ZDMF(ICONV,IKS) )
+        ALLOCATE( ZDER(ICONV,IKS) )
+        ALLOCATE( ZDDR(ICONV,IKS) )
+        ALLOCATE( ILFS(ICONV) )
+        ALLOCATE( ZLMASS(ICONV,IKS) )
+        ZDMF(:,:) = 0.
+        ZDER(:,:) = 0.
+        ZDDR(:,:) = 0.
+        ILFS(:)   = IKB
+        DO JK = IKB, IKE
+           ZLMASS(:,JK)  = ZDXDY(:) * ZDPRES(:,JK) / XG  ! mass of model layer
+        END DO
+	ZLMASS(:,IKB) = ZLMASS(:,IKB+1)
+!
+! closure variables
+!
+        ALLOCATE( ZTIMEC(ICONV) )
+        ALLOCATE( ZTHC(ICONV,IKS) )
+        ALLOCATE( ZRVC(ICONV,IKS) )
+        ALLOCATE( ZRCC(ICONV,IKS) )
+        ALLOCATE( ZRIC(ICONV,IKS) )
+        ALLOCATE( ZWSUB(ICONV,IKS) )
+!
+!
+!*           5.     Compute downdraft properties 
+!                   ----------------------------
+!
+        ZTIMEC(:) = XCTIME_SHAL
+        IF ( OSETTADJ ) ZTIMEC(:) = PTADJS
+!
+!*           7.     Determine adjusted environmental values assuming
+!                   that all available buoyant energy must be removed
+!                   within an advective time step ZTIMEC.
+!                   ---------------------------------------------------
+!
+       CALL CONVECT_CLOSURE_SHAL( ICONV, KLEV,                         &
+                                  ZPRES, ZDPRES, ZZ, ZDXDY, ZLMASS,    &
+                                  ZTHL, ZTH, ZRW, ZRC, ZRI, GTRIG1,    &
+                                  ZTHC, ZRVC, ZRCC, ZRIC, ZWSUB,       &
+                                  ILCL, IDPL, IPBL, ICTL,              &
+                                  ZUMF, ZUER, ZUDR, ZUTHL, ZURW,       &
+                                  ZURC, ZURI, ZCAPE, ZTIMEC, IFTSTEPS  )
+
+!
+!
+!
+!*           8.     Determine the final grid-scale (environmental) convective 
+!                   tendencies and set convective counter
+!                   --------------------------------------------------------
+!
+!
+!*           8.1    Grid scale tendencies
+!                   ---------------------
+!
+          ! in order to save memory, the tendencies are temporarily stored
+          ! in the tables for the adjusted grid-scale values
+!
+      DO JK = IKB, IKE
+         ZTHC(:,JK) = ( ZTHC(:,JK) - ZTH(:,JK) ) / ZTIMEC(:)             &
+           * ( ZPRES(:,JK) / XP00 ) ** ZRDOCP ! change theta in temperature
+         ZRVC(:,JK) = ( ZRVC(:,JK) - ZRW(:,JK) + ZRC(:,JK) + ZRI(:,JK) ) &
+                                                  / ZTIMEC(:)
+
+         ZRCC(:,JK) = ( ZRCC(:,JK) - ZRC(:,JK) ) / ZTIMEC(:)
+         ZRIC(:,JK) = ( ZRIC(:,JK) - ZRI(:,JK) ) / ZTIMEC(:)
+!
+      END DO
+!
+!
+!*           8.2    Apply conservation correction
+!                   -----------------------------
+!
+          ! Compute vertical integrals
+!
+       JKM = MAXVAL( ICTL(:) )
+       ZWORK2(:) = 0.
+       ZWORK2B(:) = 0.
+       DO JK = JKM, IKB+1, -1
+	 JKP = JK + 1
+         DO JI = 1, ICONV
+           ZW1 =  ZRVC(JI,JK) + ZRCC(JI,JK) + ZRIC(JI,JK)
+           ZWORK2(JI) = ZWORK2(JI) +  ZW1 *          & ! moisture
+                                             (ZPRES(JI,JK) - ZPRES(JI,JKP)) / XG
+           ZW1 = ( XCPD + XCPV * ZRW(JI,JK) )* ZTHC(JI,JK)   - &
+                 ( XLVTT + ( XCPV - XCL ) * ( ZTT(JI,JK) - XTT ) ) * ZRCC(JI,JK) - &
+                 ( XLSTT + ( XCPV - XCL ) * ( ZTT(JI,JK) - XTT ) ) * ZRIC(JI,JK) 
+           ZWORK2B(JI) = ZWORK2B(JI) + ZW1 *         & ! energy
+                                             (ZPRES(JI,JK) - ZPRES(JI,JKP)) / XG
+         END DO
+       END DO
+!
+          ! Budget error (integral must be zero)
+!
+       DO JI = 1, ICONV
+         IF ( ICTL(JI) > 2 ) THEN
+           JKP = ICTL(JI) + 1
+           ZWORK2(JI) =  ZWORK2(JI) * XG / ( ZPRES(JI,IKB+1) - ZPRES(JI,JKP) )
+           ZWORK2B(JI) = ZWORK2B(JI) * XG / ( ZPRES(JI,IKB+1) - ZPRES(JI,JKP) )
+         END IF
+       END DO
+!
+          ! Apply uniform correction
+!
+       DO JK = JKM, IKB+1, -1
+         DO JI = 1, ICONV
+           IF ( ICTL(JI) > 2 .AND. JK <= ICTL(JI) ) THEN
+                 ZRVC(JI,JK) = ZRVC(JI,JK) - ZWORK2(JI)                                ! moisture
+                 ZTHC(JI,JK) = ZTHC(JI,JK) - ZWORK2B(JI) / ( XCPD + XCPV * ZRW(JI,JK) )! energy
+           END IF
+         END DO
+       END DO
+!
+	      ! execute a "scatter"= pack command to store the tendencies in
+	      ! the final 2D tables
+!
+      DO JK = IKB, IKE
+      DO JI = 1, ICONV
+         JL = IJINDEX(JI)
+         PTTEN(JL,JK)   = ZTHC(JI,JK)
+         PRVTEN(JL,JK)  = ZRVC(JI,JK)
+         PRCTEN(JL,JK)  = ZRCC(JI,JK)
+         PRITEN(JL,JK)  = ZRIC(JI,JK)
+      END DO
+      END DO
+!
+!
+!                   Cloud base and top levels
+!                   -------------------------
+!
+     ILCL(:) = MIN( ILCL(:), ICTL(:) )
+     DO JI = 1, ICONV
+        JL = IJINDEX(JI)
+        KCLTOP(JL) = ICTL(JI)
+        KCLBAS(JL) = ILCL(JI)
+     END DO
+!
+!
+!*           8.7    Compute convective tendencies for Tracers
+!                   ------------------------------------------
+!
+  IF ( OCH1CONV ) THEN
+!
+       ALLOCATE( ZCH1(ICONV,IKS,KCH1) )
+       ALLOCATE( ZCH1C(ICONV,IKS,KCH1) )
+       ALLOCATE( ZWORK3(ICONV,KCH1) )
+!
+       DO JK = IKB, IKE
+       DO JI = 1, ICONV
+          JL = IJINDEX(JI)
+          ZCH1(JI,JK,:) = PCH1(JL,JK,:)
+       END DO
+       END DO
+!
+      CALL CONVECT_CHEM_TRANSPORT( ICONV, KLEV, KCH1, ZCH1, ZCH1C,          &
+                                   IDPL, IPBL, ILCL, ICTL, ILFS, ILFS,      &
+                                   ZUMF, ZUER, ZUDR, ZDMF, ZDER, ZDDR,      &
+                                   ZTIMEC, ZDXDY, ZDMF(:,1), ZLMASS, ZWSUB, &
+                                   IFTSTEPS )
+!
+       DO JK = IKB, IKE
+       DO JN = 1, KCH1
+          ZCH1C(:,JK,JN) = ( ZCH1C(:,JK,JN)- ZCH1(:,JK,JN) ) / ZTIMEC(:)
+       END DO
+       END DO
+!
+!
+!*           8.8    Apply conservation correction
+!                   -----------------------------
+!
+          ! Compute vertical integrals
+!
+       JKM = MAXVAL( ICTL(:) )
+       ZWORK3(:,:) = 0.
+       DO JK = JKM, IKB+1, -1
+	 JKP = JK + 1
+         DO JI = 1, ICONV
+           ZWORK3(JI,:) = ZWORK3(JI,:) + ZCH1C(JI,JK,:) *                    &
+                              (ZPRES(JI,JK) - ZPRES(JI,JKP)) / XG
+         END DO
+       END DO
+!
+          ! Mass error (integral must be zero)
+!
+       DO JI = 1, ICONV
+           JKP = ICTL(JI) + 1
+           ZWORK3(JI,:) = ZWORK3(JI,:) *                                     &
+                                    XG / ( ZPRES(JI,IKB+1) - ZPRES(JI,JKP) )
+       END DO
+!
+          ! Apply uniform correction but assure positive mass at each level
+!
+       DO JK = JKM, IKB+1, -1
+         DO JI = 1, ICONV
+           IF ( JK <= ICTL(JI) ) THEN
+                ZCH1C(JI,JK,:) = ZCH1C(JI,JK,:) - ZWORK3(JI,:)
+       !        ZCH1C(JI,JK,:) = MAX( ZCH1C(JI,JK,:), -ZCH1(JI,JK,:)/ZTIMEC(JI) )
+           END IF
+         END DO
+       END DO
+!
+       DO JK = IKB, IKE
+       DO JI = 1, ICONV
+          JL = IJINDEX(JI)
+          PCH1TEN(JL,JK,:) = ZCH1C(JI,JK,:)
+       END DO
+       END DO
+  END IF
+!
+!
+!*           9.     Write up- and downdraft mass fluxes
+!                   ------------------------------------
+!
+    DO JK = IKB, IKE
+       ZUMF(:,JK)  = ZUMF(:,JK) / ZDXDY(:) ! Mass flux per unit area
+    END DO
+    ZWORK2(:) = 1.
+    DO JK = IKB, IKE
+    DO JI = 1, ICONV
+       JL = IJINDEX(JI)
+       PUMF(JL,JK) = ZUMF(JI,JK) * ZWORK2(JL)
+    END DO
+    END DO
+!
+!
+!*           10.    Deallocate all local arrays
+!                   ---------------------------
+!
+! downdraft variables
+!
+      DEALLOCATE( ZDMF )
+      DEALLOCATE( ZDER )
+      DEALLOCATE( ZDDR )
+      DEALLOCATE( ILFS )
+      DEALLOCATE( ZLMASS )
+!
+!   closure variables
+!
+      DEALLOCATE( ZTIMEC )
+      DEALLOCATE( ZTHC )
+      DEALLOCATE( ZRVC )
+      DEALLOCATE( ZRCC )
+      DEALLOCATE( ZRIC )
+      DEALLOCATE( ZWSUB )
+!
+       IF ( OCH1CONV ) THEN
+           DEALLOCATE( ZCH1 )
+           DEALLOCATE( ZCH1C )
+           DEALLOCATE( ZWORK3 )
+       END IF
+!
+    ENDIF
+!
+!    vertical index
+!
+    DEALLOCATE( IDPL )
+    DEALLOCATE( IPBL )
+    DEALLOCATE( ILCL )
+    DEALLOCATE( ICTL )
+    DEALLOCATE( IETL )
+!
+! grid scale variables
+!
+    DEALLOCATE( ZZ )
+    DEALLOCATE( ZPRES )
+    DEALLOCATE( ZDPRES )
+    DEALLOCATE( ZTT )
+    DEALLOCATE( ZTH )
+    DEALLOCATE( ZTHV )
+    DEALLOCATE( ZTHL )
+    DEALLOCATE( ZTHES )
+    DEALLOCATE( ZRW )
+    DEALLOCATE( ZRV )
+    DEALLOCATE( ZRC )
+    DEALLOCATE( ZRI )
+    DEALLOCATE( ZDXDY )
+!
+! updraft variables
+!
+    DEALLOCATE( ZUMF )
+    DEALLOCATE( ZUER )
+    DEALLOCATE( ZUDR )
+    DEALLOCATE( ZUTHL )
+    DEALLOCATE( ZUTHV )
+    DEALLOCATE( ZURW )
+    DEALLOCATE( ZURC )
+    DEALLOCATE( ZURI )
+    DEALLOCATE( ZTHLCL )
+    DEALLOCATE( ZTLCL )
+    DEALLOCATE( ZRVLCL )
+    DEALLOCATE( ZWLCL )
+    DEALLOCATE( ZZLCL )
+    DEALLOCATE( ZTHVELCL )
+    DEALLOCATE( ZMFLCL )
+    DEALLOCATE( ZCAPE )
+!
+! work arrays
+!
+    DEALLOCATE( IINDEX )
+    DEALLOCATE( IJINDEX )
+    DEALLOCATE( IJSINDEX )
+    DEALLOCATE( GTRIG1 )
+!
+!
+END SUBROUTINE CONVECT_SHALLOW
+!     ######spl
+      SUBROUTINE CONVECT_TRIGGER_SHAL(  KLON, KLEV,                           &
+                                        PPRES, PTH, PTHV, PTHES,              &
+                                        PRV, PW, PZ, PDXDY,                   &
+                                        PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL,  &
+                                        PTHVELCL, KLCL, KDPL, KPBL, OTRIG     )
+!     ######################################################################
+!
+!!**** Determine convective columns as well as the cloudy values of theta,
+!!     and qv at the lifting condensation level (LCL) 
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine convective columns
+!!   
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      What we look for is the undermost unstable level at each grid point.
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     Routine CONVECT_SATMIXRATIO
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! Reference pressure
+!!          XRD, XRV           ! Gaz  constants for dry air and water vapor
+!!          XCPD               ! Cpd (dry air)
+!!          XTT                ! triple point temperature
+!!          XBETAW, XGAMW      ! constants for vapor saturation pressure
+!!
+!!      Module MODD_CONVPAR
+!!          XA25               ! reference grid area
+!!          XZLCL              ! maximum height difference between
+!!                             ! the surface and the DPL
+!!          XZPBL              ! minimum mixed layer depth to sustain convection
+!!          XCDEPTH            ! minimum necessary cloud depth
+!!          XCDEPTH_D          ! maximum allowed cloud depth
+!!          XDTPERT            ! add small Temp peturbation
+!!          XNHGAM             ! coefficient for buoyancy term in w eq.
+!!                             ! accounting for nh-pressure
+!!
+!!      Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book2 of documentation ( routine TRIGGER_FUNCT)
+!!      Fritsch and Chappell (1980), J. Atm. Sci., Vol. 37, 1722-1761.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  20/03/97  Select first departure level
+!!                            that produces a cloud thicker than XCDEPTH
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR_SHAL
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER, INTENT(IN)                   :: KLON      ! horizontal loop index
+INTEGER, INTENT(IN)                   :: KLEV      ! vertical loop index
+REAL, DIMENSION(KLON),     INTENT(IN) :: PDXDY     ! grid area
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTH, PTHV ! theta, theta_v
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTHES     ! envir. satur. theta_e
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRV       ! vapor mixing ratio 
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PPRES     ! pressure
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PZ        ! height of grid point (m)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PW        ! vertical velocity
+!
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTHLCL    ! theta at LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTLCL     ! temp. at LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PRVLCL    ! vapor mixing ratio at  LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PWLCL     ! parcel velocity at  LCL
+REAL, DIMENSION(KLON),     INTENT(OUT):: PZLCL     ! height at LCL (m)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PTHVELCL  ! environm. theta_v at LCL (K)
+LOGICAL, DIMENSION(KLON),  INTENT(OUT):: OTRIG     ! logical mask for convection 
+INTEGER, DIMENSION(KLON),  INTENT(INOUT):: KLCL    ! contains vert. index of LCL
+INTEGER, DIMENSION(KLON),  INTENT(INOUT):: KDPL    ! contains vert. index of DPL
+INTEGER, DIMENSION(KLON),  INTENT(INOUT):: KPBL    ! contains index of source layer top
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: JKK, JK, JKP, JKM, JL, JKT, JT      ! vertical loop index
+INTEGER :: JI                                  ! horizontal loop index 
+INTEGER :: IIE, IKB, IKE                       ! horizontal + vertical loop bounds
+REAL    :: ZEPS, ZEPSA                         ! R_d / R_v, R_v / R_d 
+REAL    :: ZCPORD, ZRDOCP                      ! C_pd / R_d, R_d / C_pd
+!
+REAL, DIMENSION(KLON) :: ZTHLCL, ZTLCL, ZRVLCL, & ! locals for PTHLCL,PTLCL
+                               ZWLCL,  ZZLCL, ZTHVELCL  ! PRVLCL, ....
+INTEGER, DIMENSION(KLON) :: IDPL, IPBL, ILCL      ! locals for KDPL, ...
+REAL, DIMENSION(KLON) :: ZPLCL    ! pressure at LCL
+REAL, DIMENSION(KLON) :: ZZDPL    ! height of DPL 
+REAL, DIMENSION(KLON) :: ZTHVLCL  ! theta_v at LCL = mixed layer value
+REAL, DIMENSION(KLON) :: ZTMIX    ! mixed layer temperature
+REAL, DIMENSION(KLON) :: ZEVMIX   ! mixed layer water vapor pressure 
+REAL, DIMENSION(KLON) :: ZDPTHMIX, ZPRESMIX ! mixed layer depth and pressure
+REAL, DIMENSION(KLON) :: ZCAPE    ! convective available energy (m^2/s^2/g)
+REAL, DIMENSION(KLON) :: ZTHEUL   ! updraft equiv. pot. temperature (K)
+REAL, DIMENSION(KLON) :: ZLV, ZCPH! specific heats of vaporisation, dry air
+REAL, DIMENSION(KLON) :: ZDP      ! pressure between LCL and model layer
+REAL, DIMENSION(KLON) :: ZTOP     ! estimated cloud top (m)
+!INTEGER, DIMENSION(KLON) :: ITOP  ! work array to store highest test layer
+REAL, DIMENSION(KLON) :: ZWORK1, ZWORK2, ZWORK3    ! work arrays
+LOGICAL, DIMENSION(KLON) :: GTRIG, GTRIG2          ! local arrays for OTRIG
+LOGICAL, DIMENSION(KLON) :: GWORK1                 ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.3    Compute array bounds
+!               --------------------
+!
+IIE = KLON
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+!
+!
+!*       1.     Initialize local variables
+!               --------------------------
+!
+ZEPS       = XRD / XRV
+ZEPSA      = XRV / XRD 
+ZCPORD     = XCPD / XRD
+ZRDOCP     = XRD / XCPD
+OTRIG(:)   = .FALSE.
+IDPL(:)    = KDPL(:)
+IPBL(:)    = KPBL(:)
+ILCL(:)    = KLCL(:)
+!ITOP(:)    = IKB
+PWLCL(:)   = 0.
+ZWLCL(:)   = 0.
+PTHLCL(:)  = 1.
+PTHVELCL(:)= 1.
+PTLCL(:)   = 1.
+PRVLCL(:)  = 0.
+PWLCL(:)   = 0.
+PZLCL(:)   = PZ(:,IKB)
+ZZDPL(:)   = PZ(:,IKB)
+GTRIG2(:)  = .TRUE.
+!
+!
+!
+!       1.     Determine highest necessary loop test layer
+!              -------------------------------------------
+!
+JT = IKE - 2
+DO JK = IKB + 1, IKE - 2
+ ! DO JI = 1, IIE
+ !    IF ( PZ(JI,JK) - PZ(JI,IKB) <= XZLCL ) ITOP(JI) = JK
+ ! END DO
+   IF ( PZ(1,JK) - PZ(1,IKB) < 5.E3 ) JT = JK 
+END DO
+!
+!
+!*       2.     Enter loop for convection test
+!               ------------------------------
+!
+JKP = MINVAL( IDPL(:) ) + 1
+!JKT = MAXVAL( ITOP(:) )
+JKT = JT
+DO JKK = JKP, JKT
+!
+     GWORK1(:) = ZZDPL(:) - PZ(:,IKB) < XZLCL
+          ! we exit the trigger test when the center of the mixed layer is more
+          ! than 1500 m  above soil level.
+     WHERE ( GWORK1(:) )
+        ZDPTHMIX(:) = 0.
+        ZPRESMIX(:) = 0.
+        ZTHLCL(:)   = 0.
+        ZRVLCL(:)   = 0.
+        ZZDPL(:)    = PZ(:,JKK)
+        IDPL(:)     = JKK
+     END WHERE
+!
+!
+!*       3.     Construct a mixed layer of at least 50 hPa (XZPBL)
+!               ------------------------------------------
+!
+     DO JK = JKK, IKE - 1
+       JKM = JK + 1
+       DO JI = 1, IIE     
+         IF ( GWORK1(JI) .AND. ZDPTHMIX(JI) < XZPBL ) THEN
+            IPBL(JI)     = JK
+            ZWORK1(JI)   = PPRES(JI,JK) - PPRES(JI,JKM)
+            ZDPTHMIX(JI) = ZDPTHMIX(JI) + ZWORK1(JI)
+            ZPRESMIX(JI) = ZPRESMIX(JI) + PPRES(JI,JK) * ZWORK1(JI)
+            ZTHLCL(JI)   = ZTHLCL(JI)   + PTH(JI,JK)   * ZWORK1(JI)
+            ZRVLCL(JI)   = ZRVLCL(JI)   + PRV(JI,JK)   * ZWORK1(JI)
+         END IF
+       END DO
+        IF ( MINVAL ( ZDPTHMIX(:) ) >= XZPBL ) EXIT
+     END DO
+!
+!
+     WHERE ( GWORK1(:) )
+!
+        ZPRESMIX(:) = ZPRESMIX(:) / ZDPTHMIX(:)
+        ZTHLCL(:)   = ZTHLCL(:)   / ZDPTHMIX(:) + XDTPERT ! add small Temp Perturb.
+        ZRVLCL(:)   = ZRVLCL(:)   / ZDPTHMIX(:)
+        ZTHVLCL(:)  = ZTHLCL(:) * ( 1. + ZEPSA * ZRVLCL(:) )                 &
+				/ ( 1. + ZRVLCL(:) )
+!
+!*       4.1    Use an empirical direct solution ( Bolton formula )
+!               to determine temperature and pressure at LCL. 
+!               Nota: the adiabatic saturation temperature is not
+!                     equal to the dewpoint temperature
+!               ----------------------------------------------------
+!
+! 
+        ZTMIX(:)  = ZTHLCL(:) * ( ZPRESMIX(:) / XP00 ) ** ZRDOCP 
+        ZEVMIX(:) = ZRVLCL(:) * ZPRESMIX(:) / ( ZRVLCL(:) + ZEPS )
+        ZEVMIX(:) = MAX( 1.E-8, ZEVMIX(:) )
+        ZWORK1(:) = LOG( ZEVMIX(:) / 613.3 )
+              ! dewpoint temperature
+        ZWORK1(:) = ( 4780.8 - 32.19 * ZWORK1(:) ) / ( 17.502 - ZWORK1(:) ) 
+              ! adiabatic saturation temperature
+        ZTLCL(:)  = ZWORK1(:) - ( .212 + 1.571E-3 * ( ZWORK1(:) - XTT )      &
+                   - 4.36E-4 * ( ZTMIX(:) - XTT ) ) * ( ZTMIX(:) - ZWORK1(:) )
+        ZTLCL(:)  = MIN( ZTLCL(:), ZTMIX(:) )
+        ZPLCL(:)  = XP00 * ( ZTLCL(:) / ZTHLCL(:) ) ** ZCPORD
+!
+     END WHERE
+!
+!
+!*       4.2    Correct ZTLCL in order to be completely consistent
+!               with MNH saturation formula
+!               ---------------------------------------------
+!
+     CALL CONVECT_SATMIXRATIO( KLON, ZPLCL, ZTLCL, ZWORK1, ZLV, ZWORK2, ZCPH )
+     WHERE( GWORK1(:) )
+        ZWORK2(:) = ZWORK1(:) / ZTLCL(:) * ( XBETAW / ZTLCL(:) - XGAMW ) ! dr_sat/dT
+        ZWORK2(:) = ( ZWORK1(:) - ZRVLCL(:) ) /                              &
+                        ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) ) 
+        ZTLCL(:)  = ZTLCL(:) - ZLV(:) / ZCPH(:) * ZWORK2(:)
+!
+     END WHERE
+!
+!
+!*       4.3    If ZRVLCL = PRVMIX is oversaturated set humidity 
+!               and temperature to saturation values. 
+!               ---------------------------------------------
+!
+     CALL CONVECT_SATMIXRATIO( KLON, ZPRESMIX, ZTMIX, ZWORK1, ZLV, ZWORK2, ZCPH )
+     WHERE( GWORK1(:) .AND. ZRVLCL(:) > ZWORK1(:) )
+        ZWORK2(:) = ZWORK1(:) / ZTMIX(:) * ( XBETAW / ZTMIX(:) - XGAMW ) ! dr_sat/dT
+        ZWORK2(:) = ( ZWORK1(:) - ZRVLCL(:) ) /                              &
+                       ( 1. + ZLV(:) / ZCPH(:) * ZWORK2(:) ) 
+        ZTLCL(:)  = ZTMIX(:) - ZLV(:) / ZCPH(:) * ZWORK2(:)
+        ZRVLCL(:) = ZRVLCL(:) - ZWORK2(:)
+        ZPLCL(:)  = ZPRESMIX(:)
+        ZTHLCL(:) = ZTLCL(:) * ( XP00 / ZPLCL(:) ) ** ZRDOCP
+        ZTHVLCL(:)= ZTHLCL(:) * ( 1. + ZEPSA * ZRVLCL(:) )                   &
+                              / ( 1. + ZRVLCL(:) )
+     END WHERE
+!
+!
+!*        5.1   Determine  vertical loop index at the LCL and DPL
+!               --------------------------------------------------
+!
+    DO JK = JKK, IKE - 1
+       DO JI = 1, IIE
+         IF ( ZPLCL(JI) <= PPRES(JI,JK) .AND. GWORK1(JI) ) ILCL(JI) = JK + 1
+       END DO
+    END DO
+!
+!
+!*        5.2   Estimate height and environm. theta_v at LCL
+!               --------------------------------------------------
+!
+    DO JI = 1, IIE
+        JK   = ILCL(JI)
+        JKM  = JK - 1
+        ZDP(JI)    = LOG( ZPLCL(JI) / PPRES(JI,JKM) ) /                     &
+                     LOG( PPRES(JI,JK) / PPRES(JI,JKM) )
+        ZWORK1(JI) = PTHV(JI,JKM) + ( PTHV(JI,JK) - PTHV(JI,JKM) ) * ZDP(JI) 
+           ! we compute the precise value of the LCL
+           ! The precise height is between the levels ILCL and ILCL-1.
+        ZWORK2(JI) = PZ(JI,JKM) + ( PZ(JI,JK) - PZ(JI,JKM) ) * ZDP(JI)
+    END DO
+    WHERE( GWORK1(:) )
+        ZTHVELCL(:) = ZWORK1(:) 
+        ZZLCL(:)    = ZWORK2(:)
+    END WHERE
+!        
+!
+!*       6.     Check to see if cloud is bouyant 
+!               --------------------------------
+!
+!*      6.1    Compute grid scale vertical velocity perturbation term ZWORK1
+!               -------------------------------------------------------------
+! 
+!            !  normalize w grid scale to a 25 km refer. grid
+!    DO JI = 1, IIE
+!       JK  = ILCL(JI)
+!       JKM = JK - 1 
+!       ZWORK1(JI) =  ( PW(JI,JKM)  + ( PW(JI,JK) - PW(JI,JKM) ) * ZDP(JI) )  &
+!                          * SQRT( PDXDY(JI) / XA25 )
+!                         - 0.02 * ZZLCL(JI) / XZLCL ! avoid spurious convection
+!    END DO
+!            ! compute sign of normalized grid scale w
+!       ZWORK2(:) = SIGN( 1., ZWORK1(:) ) 
+!       ZWORK1(:) = XWTRIG * ZWORK2(:) * ABS( ZWORK1(:) ) ** 0.333       &
+!                          * ( XP00 / ZPLCL(:) ) ** ZRDOCP
+!
+!*       6.2    Compute parcel vertical velocity at LCL
+!               ---------------------------------------
+!                   
+!    DO JI = 1, IIE
+!       JKDL = IDPL(JI)
+!       ZWORK3(JI) = XG * ZWORK1(JI) * ( ZZLCL(JI) - PZ(JI,JKDL) )       &
+!                      / ( PTHV(JI,JKDL) + ZTHVELCL(JI) )
+!    END DO
+!    WHERE( GWORK1(:) )
+!      ZWLCL(:)  = 1. + .5 * ZWORK2(:) * SQRT( ABS( ZWORK3(:) ) ) 
+!      GTRIG(:)  = ZTHVLCL(:) - ZTHVELCL(:) + ZWORK1(:) > 0. .AND.       &
+!                  ZWLCL(:) > 0. 
+!    END WHERE
+     ZWLCL(:) = 1.
+!
+!
+!*       6.3    Look for parcel that produces sufficient cloud depth.
+!               The cloud top is estimated as the level where the CAPE 
+!               is smaller  than a given value (based on vertical velocity eq.)
+!               --------------------------------------------------------------
+!
+     ZTHEUL(:) = ZTLCL(:) * ( ZTHLCL(:) / ZTLCL(:) )                       &
+                                             ** ( 1. - 0.28 * ZRVLCL(:) )  &
+                          * EXP( ( 3374.6525 / ZTLCL(:) - 2.5403 ) *       &
+                               ZRVLCL(:) * ( 1. + 0.81 * ZRVLCL(:) ) )
+!
+     ZCAPE(:) = 0.
+     ZTOP(:)  = 0.
+     ZWORK3(:)= 0.
+     JKM = MINVAL( ILCL(:) )
+     DO JL = JKM, JT
+        JK = JL + 1
+        DO JI = 1, IIE
+           ZWORK1(JI) = ( 2. * ZTHEUL(JI) /                                &
+            ( PTHES(JI,JK) + PTHES(JI,JL) ) - 1. ) * ( PZ(JI,JK) - PZ(JI,JL) )
+           IF ( JL < ILCL(JI) ) ZWORK1(JI) = 0.
+           ZCAPE(JI)  = ZCAPE(JI) + ZWORK1(JI)
+           ZWORK2(JI) = XNHGAM * XG * ZCAPE(JI) + 1.05 * ZWLCL(JI) * ZWLCL(JI)
+               ! the factor 1.05 takes entrainment into account
+           ZWORK2(JI) = SIGN( 1., ZWORK2(JI) )
+           ZWORK3(JI) = ZWORK3(JI) + MIN(0., ZWORK2(JI) )
+           ZWORK3(JI) = MAX( -1., ZWORK3(JI) )
+               ! Nota, the factors ZWORK2 and ZWORK3 are only used to avoid
+               ! if and goto statements, the difficulty is to extract only
+               ! the level where the criterium is first fullfilled
+           ZTOP(JI)   = PZ(JI,JL) * .5 * ( 1. + ZWORK2(JI) ) * ( 1. + ZWORK3(JI) ) + &
+                        ZTOP(JI) * .5 * ( 1. - ZWORK2(JI) )
+         END DO
+     END DO
+!
+!
+     ZWORK2(:) = ZTOP(:) - ZZLCL(:)
+     WHERE( ZWORK2(:)  .GE. XCDEPTH  .AND. ZWORK2(:) < XCDEPTH_D .AND. GTRIG2(:) )
+        GTRIG2(:)   = .FALSE.
+        OTRIG(:)    = .TRUE.
+      ! OTRIG(:)    = GTRIG(:)     ! we  select the first departure level
+        PTHLCL(:)   = ZTHLCL(:)    ! that gives sufficient cloud depth
+        PRVLCL(:)   = ZRVLCL(:)
+        PTLCL(:)    = ZTLCL(:)
+        PWLCL(:)    = ZWLCL(:)
+        PZLCL(:)    = ZZLCL(:)
+        PTHVELCL(:) = ZTHVELCL(:)
+        KDPL(:)     = IDPL(:)
+        KPBL(:)     = IPBL(:)
+        KLCL(:)     = ILCL(:)
+     END WHERE
+!
+END DO
+!
+!
+END SUBROUTINE CONVECT_TRIGGER_SHAL
+!     ######spl
+    SUBROUTINE CONVECT_UPDRAFT_SHAL( KLON, KLEV,                                     &
+     		                     KICE, PPRES, PDPRES, PZ, PTHL, PTHV, PTHES, PRW,&
+                                     PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL, PTHVELCL,  &
+                                     PMFLCL, OTRIG, KLCL, KDPL, KPBL,                &
+                                     PUMF, PUER, PUDR, PUTHL, PUTHV, PURW,           &
+                                     PURC, PURI, PCAPE, KCTL, KETL )
+!    ###############################################################################
+!
+!!**** Compute updraft properties from DPL to CTL. 
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine updraft properties
+!!      ( mass flux, thermodynamics, precipitation ) 
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     Routine CONVECT_MIXING_FUNCT
+!!     Routine CONVECT_CONDENS
+!!     
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! reference pressure
+!!          XRD, XRV           ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV, XCL    ! Cp of dry air, water vapor and liquid water
+!!          XTT                ! triple point temperature
+!!          XLVTT              ! vaporisation heat at XTT
+!!        
+!!
+!!      Module MODD_CONVPAR_SHAL
+!!          XA25               ! reference grid area
+!!          XCRAD              ! cloud radius
+!!          XCDEPTH            ! minimum necessary cloud depth
+!!          XENTR              ! entrainment constant
+!!          XNHGAM             ! coefficient for buoyancy term in w eq.
+!!                             ! accounting for nh-pressure
+!!          XTFRZ1             ! begin of freezing interval
+!!          XTFRZ2             ! begin of freezing interval
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_UPDRAFT)
+!!      Kain and Fritsch, 1990, J. Atmos. Sci., Vol.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    07/11/95 
+!!   Last modified  10/12/97
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR_SHAL
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER, INTENT(IN)                    :: KLON  ! horizontal dimension
+INTEGER, INTENT(IN)                    :: KLEV  ! vertical dimension
+INTEGER, INTENT(IN)                    :: KICE  ! flag for ice ( 1 = yes,
+                                                !                0 = no ice )
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHL  ! grid scale enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHV  ! grid scale theta_v     
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHES ! grid scale saturated theta_e 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRW   ! grid scale total water  
+                                                ! mixing ratio 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES ! pressure (P)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDPRES! pressure difference between 
+                                                ! bottom and top of layer (Pa) 
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ    ! height of model layer (m) 
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTHLCL ! theta at LCL
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTLCL  ! temp. at LCL
+REAL, DIMENSION(KLON),     INTENT(IN) :: PRVLCL ! vapor mixing ratio at  LCL
+REAL, DIMENSION(KLON),     INTENT(IN) :: PWLCL  ! parcel velocity at LCL (m/s)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PMFLCL ! cloud  base unit mass flux
+                                                ! (kg/s)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PZLCL  ! height at LCL (m)
+REAL, DIMENSION(KLON),     INTENT(IN) :: PTHVELCL  ! environm. theta_v at LCL (K)
+LOGICAL, DIMENSION(KLON),  INTENT(INOUT):: OTRIG! logical mask for convection 
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KLCL   ! contains vert. index of LCL
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KDPL   ! contains vert. index of DPL 
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KPBL   !  " vert. index of source layertop
+!
+!
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KCTL   ! contains vert. index of CTL 
+INTEGER, DIMENSION(KLON),  INTENT(OUT):: KETL   ! contains vert. index of        &
+						!equilibrium (zero buoyancy) level 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUMF  ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUER  ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUDR  ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUTHL ! updraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PUTHV ! updraft theta_v (K)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURW  ! updraft total water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURC  ! updraft cloud water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PURI  ! updraft cloud ice   (kg/kg)
+REAL, DIMENSION(KLON),     INTENT(OUT):: PCAPE  ! available potent. energy
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE  ! horizontal and vertical loop bounds
+INTEGER :: JI             ! horizontal loop index
+INTEGER :: JK, JKP, JKM, JK1, JK2, JKMIN   ! vertical loop index
+REAL    :: ZEPSA, ZCVOCD  ! R_v / R_d, C_pv / C_pd 
+REAL    :: ZCPORD, ZRDOCP ! C_pd / R_d, R_d / C_pd
+!
+REAL, DIMENSION(KLON)    :: ZUT             ! updraft temperature (K)
+REAL, DIMENSION(KLON)    :: ZUW1, ZUW2      ! square of updraft vert.
+                                            ! velocity at levels k and k+1
+REAL, DIMENSION(KLON)    :: ZE1,ZE2,ZD1,ZD2 ! fractional entrainm./detrain
+                                            ! rates at levels k and k+1
+REAL, DIMENSION(KLON)    :: ZMIXF           ! critical mixed fraction  
+REAL, DIMENSION(KLON)    :: ZCPH            ! specific heat C_ph 
+REAL, DIMENSION(KLON)    :: ZLV, ZLS        ! latent heat of vaporis., sublim.       
+REAL, DIMENSION(KLON)    :: ZURV            ! updraft water vapor at level k+1
+REAL, DIMENSION(KLON)    :: ZPI             ! Pi=(P0/P)**(Rd/Cpd)  
+REAL, DIMENSION(KLON)    :: ZTHEUL          ! theta_e for undilute ascent
+REAL, DIMENSION(KLON)    :: ZWORK1, ZWORK2, ZWORK3, ZWORK4, ZWORK5,   &
+                            ZWORK6          ! work arrays
+INTEGER, DIMENSION(KLON) :: IWORK           ! wok array
+LOGICAL, DIMENSION(KLON) :: GWORK1, GWORK2, GWORK4, GWORK5 
+                                            ! work arrays
+LOGICAL, DIMENSION(KLON,KLEV) :: GWORK6     ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!        0.3   Set loop bounds
+!              ---------------
+!
+IKB = 1 + JCVEXB 
+IKE = KLEV - JCVEXT 
+IIE = KLON
+!
+!
+!*       1.     Initialize updraft properties and local variables
+!               -------------------------------------------------
+!
+ZEPSA      = XRV / XRD 
+ZCVOCD     = XCPV / XCPD
+ZCPORD     = XCPD / XRD
+ZRDOCP     = XRD / XCPD
+!
+PUMF(:,:)  = 0.
+PUER(:,:)  = 0.
+PUDR(:,:)  = 0.
+PUTHL(:,:) = 0.
+PUTHV(:,:) = 0.
+PURW(:,:)  = 0.
+PURC(:,:)  = 0.
+PURI(:,:)  = 0.
+ZUW1(:)    = PWLCL(:) * PWLCL(:)
+ZUW2(:)    = 0.
+ZE1(:)     = 0.
+ZD1(:)     = 0.
+PCAPE(:)   = 0.
+KCTL(:)    = IKB
+KETL(:)    = KLCL(:)
+GWORK2(:)  = .TRUE.
+GWORK5(:)  = .TRUE.
+ZPI(:)     = 1.
+ZWORK3(:)  = 0.
+ZWORK4(:)  = 0.
+ZWORK5(:)  = 0.
+ZWORK6(:)  = 0.
+GWORK1(:)  = .FALSE.
+GWORK4(:)  = .FALSE.
+!
+!
+!*       1.1    Compute undilute updraft theta_e for CAPE computations
+!               Bolton (1980) formula.
+!               Define accurate enthalpy for updraft
+!               -----------------------------------------------------
+!
+ZTHEUL(:) = PTLCL(:) * ( PTHLCL(:) / PTLCL(:) ) ** ( 1. - 0.28 * PRVLCL(:) )  &
+            * EXP( ( 3374.6525 / PTLCL(:) - 2.5403 ) *                        &
+                                   PRVLCL(:) * ( 1. + 0.81 * PRVLCL(:) ) )
+!
+!
+ZWORK1(:) = ( XCPD + PRVLCL(:) * XCPV ) * PTLCL(:)                            &
+            + ( 1. + PRVLCL(:) ) * XG * PZLCL(:)
+!
+!
+!*       2.     Set updraft properties between DPL and LCL
+!               ------------------------------------------
+!
+JKP = MAXVAL( KLCL(:) )
+JKM = MINVAL( KDPL(:) )
+DO JK = JKM, JKP
+   DO JI = 1, IIE
+   IF ( JK >= KDPL(JI) .AND. JK < KLCL(JI) ) THEN
+	PUMF(JI,JK)  = PMFLCL(JI)
+	PUTHL(JI,JK) = ZWORK1(JI) 
+	PUTHV(JI,JK) = PTHLCL(JI) * ( 1. + ZEPSA * PRVLCL(JI) ) /             &
+                                  ( 1. + PRVLCL(JI) )
+        PURW(JI,JK)  = PRVLCL(JI) 
+   END IF
+   END DO
+END DO                        
+!
+!
+!*       3.     Enter loop for updraft computations
+!               ------------------------------------
+!
+JKMIN = MINVAL( KLCL(:) - 1 ) 
+DO JK = MAX( IKB + 1, JKMIN ), IKE - 1
+  ZWORK6(:) = 1.
+  JKP = JK + 1  
+!
+  GWORK4(:) = JK >= KLCL(:) - 1 
+  GWORK1(:) = GWORK4(:) .AND. GWORK2(:) ! this mask is used to confine
+                           ! updraft computations between the LCL and the CTL
+!                                                         
+  WHERE( JK == KLCL(:) - 1 ) ZWORK6(:) = 0. ! factor that is used in buoyancy
+                                        ! computation at first level above LCL
+!
+!
+!*       4.     Estimate condensate, L_v L_i, Cph and theta_v at level k+1   
+!               ----------------------------------------------------------
+!
+    ZWORK1(:) = PURC(:,JK) 
+    ZWORK2(:) = PURI(:,JK) 
+    CALL CONVECT_CONDENS( KLON, KICE, PPRES(:,JKP), PUTHL(:,JK), PURW(:,JK),&
+                          ZWORK1, ZWORK2, PZ(:,JKP), GWORK1, ZUT, ZURV,     &
+                          PURC(:,JKP), PURI(:,JKP), ZLV, ZLS, ZCPH )
+!
+!
+  ZPI(:) = ( XP00 / PPRES(:,JKP) ) ** ZRDOCP   
+  WHERE ( GWORK1(:) )
+!
+    PUTHV(:,JKP) = ZPI(:) * ZUT(:) * ( 1. + ZEPSA * ZURV(:) )           &  
+                         / ( 1. + PURW(:,JK) )     
+!
+!
+!*       5.     Compute square of vertical velocity using entrainment   
+!               at level k
+!               -----------------------------------------------------
+!    
+    ZWORK3(:) = PZ(:,JKP) - PZ(:,JK) * ZWORK6(:) -         &
+                     ( 1. - ZWORK6(:) ) * PZLCL(:)          ! level thickness  
+    ZWORK4(:) = PTHV(:,JK) * ZWORK6(:) +                   &
+                 ( 1. - ZWORK6(:) ) * PTHVELCL(:)
+    ZWORK5(:) = 2. * ZUW1(:) * PUER(:,JK) / MAX( .1, PUMF(:,JK) )
+    ZUW2(:)   = ZUW1(:) + ZWORK3(:) * XNHGAM * XG *        & 
+                  ( ( PUTHV(:,JK) + PUTHV(:,JKP) ) /       &
+                  ( ZWORK4(:) + PTHV(:,JKP) ) - 1. )       & ! buoyancy term
+                - ZWORK5(:)                                  ! entrainment term
+!
+!
+!*       6.     Update total precipitation: dr_r=(r_c+r_i)*exp(-rate*dz)  
+!               --------------------------------------------------------
+!
+!                    compute level mean vertical velocity  
+    ZWORK2(:)   = 0.5 *                                                    &
+                       ( SQRT( MAX( 1.E-2, ZUW2(:) ) ) +                   &
+                         SQRT( MAX( 1.E-2, ZUW1(:) ) ) )          
+!
+!
+!*       7.     Update r_c, r_i, enthalpy, r_w  for precipitation 
+!               -------------------------------------------------------
+!
+    PURW(:,JKP)  = PURW(:,JK) 
+    PURC(:,JKP)  = PURC(:,JKP)
+    PURI(:,JKP)  = PURI(:,JKP)
+    PUTHL(:,JKP) = PUTHL(:,JK)
+!    
+    ZUW1(:)      = ZUW2(:)       
+!
+  END WHERE
+!
+!
+!*       8.     Compute entrainment and detrainment using conservative
+!               variables adjusted for precipitation ( not for entrainment)
+!               -----------------------------------------------------------
+!
+!*       8.1    Compute critical mixed fraction by estimating unknown  
+!               T^mix r_c^mix and r_i^mix from enthalpy^mix and r_w^mix
+!               We determine the zero crossing of the linear curve
+!               evaluating the derivative using ZMIXF=0.1.
+!               -----------------------------------------------------
+!    
+    ZMIXF(:)  = 0.1   ! starting value for critical mixed fraction
+    ZWORK1(:) = ZMIXF(:) * PTHL(:,JKP)                                     &
+                     + ( 1. - ZMIXF(:) ) * PUTHL(:,JKP) ! mixed enthalpy
+    ZWORK2(:) = ZMIXF(:) * PRW(:,JKP)                                      &
+                     + ( 1. - ZMIXF(:) ) * PURW(:,JKP)  ! mixed r_w
+!
+    CALL CONVECT_CONDENS( KLON, KICE, PPRES(:,JKP), ZWORK1, ZWORK2,        &
+                          PURC(:,JKP), PURI(:,JKP), PZ(:,JKP), GWORK1, ZUT,&
+                          ZWORK3, ZWORK4, ZWORK5, ZLV, ZLS, ZCPH )
+!        put in enthalpy and r_w and get T r_c, r_i (ZUT, ZWORK4-5)
+!        
+     ! compute theta_v of mixture
+    ZWORK3(:) = ZUT(:) * ZPI(:) * ( 1. + ZEPSA * (                         &
+                ZWORK2(:) - ZWORK4(:) - ZWORK5(:) ) ) / ( 1. + ZWORK2(:) )
+     ! compute final value of critical mixed fraction using theta_v
+     ! of mixture, grid-scale and updraft
+    ZMIXF(:) = MAX( 0., PUTHV(:,JKP) - PTHV(:,JKP) ) * ZMIXF(:) /          &
+                              ( PUTHV(:,JKP) - ZWORK3(:) + 1.E-10 )
+    ZMIXF(:) = MAX( 0., MIN( 1., ZMIXF(:) ) )
+!    
+!
+!*       8.2     Compute final midlevel values for entr. and detrainment    
+!                after call of distribution function
+!                -------------------------------------------------------
+!    
+!
+    CALL CONVECT_MIXING_FUNCT ( KLON, ZMIXF, 1, ZE2, ZD2 )
+!       Note: routine MIXING_FUNCT returns fractional entrainm/detrainm. rates
+!
+! ZWORK1(:) = XENTR * PMFLCL(:) * PDPRES(:,JKP) / XCRAD ! rate of env. inflow
+!*MOD
+  zwork1(:) = xentr * xg / xcrad * pumf(:,jk) * ( pz(:,jkp) - pz(:,jk) )
+! ZWORK1(:) = XENTR * pumf(:,jk) * PDPRES(:,JKP) / XCRAD ! rate of env. inflow
+!*MOD
+  ZWORK2(:) = 0.
+  WHERE ( GWORK1(:) ) ZWORK2(:) = 1.
+  WHERE ( PUTHV(:,JKP) > PTHV(:,JKP) )
+    PUER(:,JKP) = 0.5 * ZWORK1(:) * ( ZE1(:) + ZE2(:) ) * ZWORK2(:)
+    PUDR(:,JKP) = 0.5 * ZWORK1(:) * ( ZD1(:) + ZD2(:) ) * ZWORK2(:)
+  ELSEWHERE
+    PUER(:,JKP) = 0.
+    PUDR(:,JKP) = ZWORK1(:) * ZWORK2(:)
+  END WHERE
+!
+!*       8.3     Determine equilibrium temperature level
+!                --------------------------------------
+!
+   WHERE ( PUTHV(:,JKP) > PTHV(:,JKP) .AND. JK > KLCL(:) + 1 &   
+           .AND. GWORK1(:) )
+         KETL(:) = JKP            ! equilibrium temperature level 
+   END WHERE
+!
+!*       8.4     If the calculated detrained mass flux is greater than    
+!                the total updraft mass flux, or vertical velocity is
+!                negative, all cloud mass detrains at previous model level,
+!                exit updraft calculations - CTL is attained
+!                -------------------------------------------------------
+!
+  WHERE( GWORK1(:) )                                                   &
+        GWORK2(:) = PUMF(:,JK) - PUDR(:,JKP) > 10. .AND. ZUW2(:) > 0.        
+  WHERE ( GWORK2(:) ) KCTL(:) = JKP   ! cloud top level
+  GWORK1(:) = GWORK2(:) .AND. GWORK4(:)
+!
+  IF ( COUNT( GWORK2(:) ) == 0 ) EXIT           
+!
+!
+!*       9.   Compute CAPE for undilute ascent using theta_e and 
+!             theta_es instead of theta_v. This estimation produces 
+!             a significantly larger value for CAPE than the actual one.
+!             ----------------------------------------------------------
+!
+  WHERE ( GWORK1(:) )
+!
+    ZWORK3(:)   = PZ(:,JKP) - PZ(:,JK) * ZWORK6(:) -                      &
+                  ( 1. - ZWORK6(:) ) *  PZLCL(:)              ! level thickness
+    ZWORK2(:)   = PTHES(:,JK) + ( 1. - ZWORK6(:) ) *                      &
+     ( PTHES(:,JKP) - PTHES(:,JK) ) / ( PZ(:,JKP) - PZ(:,JK) ) *          &
+     ( PZLCL(:) - PZ(:,JK) ) ! linear interpolation for theta_es at LCL
+                            ! ( this is only done for model level just above LCL
+!
+    ZWORK1(:) = ( 2. * ZTHEUL(:) ) / ( ZWORK2(:) + PTHES(:,JKP) ) - 1.   
+    PCAPE(:)  = PCAPE(:) + XG * ZWORK3(:) * MAX( 0., ZWORK1(:) )
+!
+!
+!*       10.   Compute final values of updraft mass flux, enthalpy, r_w 
+!              at level k+1    
+!              --------------------------------------------------------
+!    
+    PUMF(:,JKP)  = PUMF(:,JK) - PUDR(:,JKP) + PUER(:,JKP) 
+    PUMF(:,JKP)  = MAX( PUMF(:,JKP), 0.1 )
+    PUTHL(:,JKP) = ( PUMF(:,JK) * PUTHL(:,JK) +                              &
+                     PUER(:,JKP) * PTHL(:,JK) - PUDR(:,JKP) * PUTHL(:,JK) )  &
+                    / PUMF(:,JKP) 
+    PURW(:,JKP)  = ( PUMF(:,JK) * PURW(:,JK) +                               &
+                     PUER(:,JKP) * PRW(:,JK) - PUDR(:,JKP) * PURW(:,JK) )    &
+                    / PUMF(:,JKP) 
+!    
+!
+    ZE1(:) = ZE2(:) ! update fractional entrainment/detrainment
+    ZD1(:) = ZD2(:)
+!
+  END WHERE
+!
+END DO
+!
+!*       12.1    Set OTRIG to False if cloud thickness < 0.5km
+!                or > 3km (deep convection) or CAPE < 1
+!                ------------------------------------------------
+!
+    DO JI = 1, IIE
+          JK  = KCTL(JI)
+          ZWORK1(JI) = PZ(JI,JK) - PZLCL(JI)
+          OTRIG(JI) = ZWORK1(JI) >= XCDEPTH  .AND. ZWORK1(JI) < 3.E3        &
+                     .AND. PCAPE(JI) > 1. 
+    END DO
+    WHERE( .NOT. OTRIG(:) )
+          KCTL(:) = IKB 
+    END WHERE
+KETL(:) = MAX( KETL(:), KLCL(:) + 2 )
+KETL(:) = MIN( KETL(:), KCTL(:) )
+!
+!
+!*       12.2    If the ETL and CTL are the same detrain updraft mass   
+!                flux at this level
+!                ------------------------------------------------------- 
+!
+ZWORK1(:) = 0.
+WHERE ( KETL(:) == KCTL(:) ) ZWORK1(:) = 1.
+!
+DO JI = 1, IIE
+    JK = KETL(JI) 
+    PUDR(JI,JK)   = PUDR(JI,JK) +                                    &
+                          ( PUMF(JI,JK) - PUER(JI,JK) )  * ZWORK1(JI)  
+    PUER(JI,JK)   = PUER(JI,JK) * ( 1. - ZWORK1(JI) )
+    PUMF(JI,JK)   = PUMF(JI,JK) * ( 1. - ZWORK1(JI) )
+    JKP = KCTL(JI) + 1
+    PUER(JI,JKP)  = 0. ! entrainm/detr rates have been already computed
+    PUDR(JI,JKP)  = 0. ! at level KCTL+1, set them to zero
+END DO
+!    
+!*       12.3    Adjust mass flux profiles, detrainment rates, and   
+!                precipitation fallout rates to reflect linear decrease
+!                in mass flux between the ETL and CTL
+!                -------------------------------------------------------        
+! 
+ZWORK1(:) = 0.
+JK1 = MINVAL( KETL(:) )
+JK2 = MAXVAL( KCTL(:) )
+
+DO JK = JK1, JK2
+    DO JI = 1, IIE
+    IF( JK > KETL(JI) .AND. JK <= KCTL(JI) ) THEN
+        ZWORK1(JI) = ZWORK1(JI) + PDPRES(JI,JK)
+    END IF
+    END DO
+END DO
+!
+DO JI = 1, IIE
+    JK = KETL(JI) 
+    ZWORK1(JI) = PUMF(JI,JK) / MAX( 1., ZWORK1(JI) )
+END DO
+!
+DO JK = JK1 + 1, JK2
+    JKP = JK - 1
+    DO JI = 1, IIE
+    IF ( JK > KETL(JI) .AND. JK <= KCTL(JI) ) THEN
+        PUDR(JI,JK)  = PDPRES(JI,JK) * ZWORK1(JI)
+        PUMF(JI,JK)  = PUMF(JI,JKP) - PUDR(JI,JK)
+    END IF
+    END DO
+END DO
+!
+!         12.4   Set mass flux and entrainment in the source layer.
+!                Linear increase throughout the source layer.
+!                -------------------------------------------------------
+!
+!IWORK(:) = MIN( KPBL(:), KLCL(:) - 1 )
+IWORK(:) = KPBL(:)
+DO JI = 1, IIE
+     JK  = KDPL(JI)
+     JKP = IWORK(JI)
+!          mixed layer depth
+     ZWORK2(JI) = PPRES(JI,JK) - PPRES(JI,JKP) + PDPRES(JI,JK)
+END DO
+!
+JKP = MAXVAL( IWORK(:) )
+DO JK = JKM, JKP
+   DO JI = 1, IIE
+   IF ( JK >= KDPL(JI)  .AND. JK <= IWORK(JI) ) THEN
+       PUER(JI,JK) = PUER(JI,JK) + PMFLCL(JI) * PDPRES(JI,JK) / ( ZWORK2(JI) + 0.1 )
+       PUMF(JI,JK) = PUMF(JI,JK-1) + PUER(JI,JK)
+   END IF
+   END DO
+END DO
+!
+!
+!*       13.   If cloud thickness is smaller than  .5 km or > 3 km
+!              no shallow convection is allowed
+!              Nota: For technical reasons, we stop the convection
+!                    computations in this case and do not go back to
+!                    TRIGGER_FUNCT to look for the next unstable LCL
+!                    which could produce a thicker cloud.
+!              ---------------------------------------------------
+!
+GWORK6(:,:) = SPREAD( OTRIG(:), DIM=2, NCOPIES=KLEV )
+WHERE ( .NOT. GWORK6(:,:) )
+    PUMF(:,:)  = 0.
+    PUDR(:,:)  = 0.
+    PUER(:,:)  = 0.
+    PUTHL(:,:) = PTHL(:,:)
+    PURW(:,:)  = PRW(:,:)
+    PURC(:,:)  = 0.
+    PURI(:,:)  = 0.
+END WHERE
+!
+END SUBROUTINE CONVECT_UPDRAFT_SHAL
+!     ######spl
+     SUBROUTINE CONVECT_CLOSURE_SHAL( KLON, KLEV,                                 &
+                                      PPRES, PDPRES, PZ, PDXDY, PLMASS,           &
+                                      PTHL, PTH, PRW, PRC, PRI, OTRIG1,           &
+                                      PTHC, PRWC, PRCC, PRIC, PWSUB,              &
+                                      KLCL, KDPL, KPBL, KCTL,                     &
+                                      PUMF, PUER, PUDR, PUTHL, PURW,              &
+                                      PURC, PURI, PCAPE, PTIMEC, KFTSTEPS         )
+!    #######################################################################
+!
+!!**** Uses modified Fritsch-Chappell closure
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to determine the final adjusted 
+!!     (over a time step PTIMEC) environmental values of THETA_l, R_w, R_c, R_i
+!!      The final convective tendencies can then be evaluated in the main
+!!      routine DEEP_CONVECT by (PTHC-PTH)/PTIMEC
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!     
+!!
+!!    EXTERNAL
+!!    --------
+!!     
+!!    CONVECT_CLOSURE_THRVLCL
+!!    CONVECT_CLOSURE_ADJUST_SHAL
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!      Module MODD_CST
+!!          XG                 ! gravity constant
+!!          XP00               ! reference pressure
+!!          XRD, XRV           ! gaz  constants for dry air and water vapor
+!!          XCPD, XCPV         ! specific heat for dry air and water vapor
+!!          XCL, XCI           ! specific heat for liquid water and ice
+!!          XTT                ! triple point temperature
+!!          XLVTT, XLSTT       ! vaporization, sublimation heat constant
+!!
+!!      Module MODD_CONVPAR_SHAL
+!!          XA25               ! reference grid area
+!!          XSTABT             ! stability factor in time integration 
+!!          XSTABC             ! stability factor in CAPE adjustment
+!!
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_CLOSURE)
+!!      Fritsch and Chappell, 1980, J. Atmos. Sci.
+!!      Kain and Fritsch, 1993, Meteor. Monographs, Vol.
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Peter Bechtold 15/11/96 change for enthalpie, r_c + r_i tendencies
+!!      Tony Dore   14/10/96 Initialise local variables
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CST
+USE MODD_CONVPAR_SHAL
+USE MODD_CONVPAREXT
+!
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+INTEGER,                   INTENT(IN) :: KLON   ! horizontal dimension
+INTEGER,                   INTENT(IN) :: KLEV   ! vertical dimension
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KLCL   ! index lifting condens. level
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KCTL   ! index for cloud top level
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KDPL   ! index for departure level 
+INTEGER, DIMENSION(KLON),  INTENT(IN) :: KPBL   ! index for top of source layer
+REAL, DIMENSION(KLON),  INTENT(INOUT) :: PTIMEC ! convection time step 
+REAL, DIMENSION(KLON),     INTENT(IN) :: PDXDY  ! grid area (m^2)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTHL   ! grid scale enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PTH    ! grid scale theta        
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRW    ! grid scale total water  
+			                        ! mixing ratio 
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRC    ! grid scale r_c 
+REAL, DIMENSION(KLON,KLEV),INTENT(IN) :: PRI    ! grid scale r_i 
+LOGICAL, DIMENSION(KLON),  INTENT(IN) :: OTRIG1 ! logical to keep trace of 
+                                                ! convective arrays modified in UPDRAFT
+!   
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPRES  ! pressure (P)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDPRES ! pressure difference between 
+                                                 ! bottom and top of layer (Pa)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PLMASS ! mass of model layer (kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZ     ! height of model layer (m) 
+REAL, DIMENSION(KLON),     INTENT(IN)  :: PCAPE  ! available potent. energy
+INTEGER,                INTENT(OUT)   :: KFTSTEPS! maximum of fract time steps
+                                                 ! only used for chemical tracers
+!
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUMF  ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUER  ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT):: PUDR  ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PUTHL  ! updraft enthalpy (J/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PURW   ! updraft total water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PURC   ! updraft cloud water (kg/kg)
+REAL, DIMENSION(KLON,KLEV), INTENT(IN)  :: PURI   ! updraft cloud ice   (kg/kg)
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PTHC  ! conv. adj. grid scale theta
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PRWC  ! conv. adj. grid scale r_w 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PRCC  ! conv. adj. grid scale r_c 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PRIC  ! conv. adj. grid scale r_i 
+REAL, DIMENSION(KLON,KLEV), INTENT(OUT)  :: PWSUB ! envir. compensating subsidence(Pa/s)
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE  ! horizontal + vertical loop bounds
+INTEGER :: IKS            ! vertical dimension
+INTEGER :: JK, JKP, JKMAX ! vertical loop index
+INTEGER :: JI             ! horizontal loop index
+INTEGER :: JITER          ! iteration loop index
+INTEGER :: JSTEP          ! fractional time loop index
+REAL    :: ZCPORD, ZRDOCP ! C_pd / R_d, R_d / C_pd
+REAL    :: ZCVOCD, ZEPSA  ! C_pv / C_pd, R_v / R_d
+!
+REAL, DIMENSION(KLON,KLEV) :: ZTHLC       ! convectively adjusted 
+                                          ! grid scale enthalpy
+REAL, DIMENSION(KLON,KLEV) :: ZOMG        ! conv. environm. subsidence (Pa/s)
+REAL, DIMENSION(KLON,KLEV) :: ZUMF        ! non-adjusted updraft mass flux
+REAL, DIMENSION(KLON,KLEV) :: ZUER        !   "     updraft  entrainm. rate
+REAL, DIMENSION(KLON,KLEV) :: ZUDR        !   "     updraft  detrainm. rate
+REAL, DIMENSION(KLON)     :: ZADJ         ! mass adjustment factor
+REAL, DIMENSION(KLON)     :: ZADJMAX      ! limit value for ZADJ
+REAL, DIMENSION(KLON)     :: ZCAPE        ! new CAPE after adjustment
+REAL, DIMENSION(KLON)     :: ZTIMEC       ! fractional convective time step
+REAL, DIMENSION(KLON,KLEV):: ZTIMC        ! 2D work array for ZTIMEC
+!
+REAL, DIMENSION(KLON)     :: ZTHLCL       ! new  theta at LCL
+REAL, DIMENSION(KLON)     :: ZRVLCL       ! new  r_v at LCL
+REAL, DIMENSION(KLON)     :: ZZLCL        ! height of LCL
+REAL, DIMENSION(KLON)     :: ZTLCL        ! temperature at LCL
+REAL, DIMENSION(KLON)     :: ZTELCL       ! envir. temper. at LCL
+REAL, DIMENSION(KLON)     :: ZTHEUL       ! theta_e for undilute ascent
+REAL, DIMENSION(KLON)     :: ZTHES1, ZTHES2! saturation environm. theta_e
+REAL, DIMENSION(KLON,KLEV) :: ZTHMFIN, ZTHMFOUT, ZRWMFIN, ZRWMFOUT
+REAL, DIMENSION(KLON,KLEV) :: ZRCMFIN, ZRCMFOUT, ZRIMFIN, ZRIMFOUT
+                                    ! work arrays for environm. compensat. mass flux
+REAL, DIMENSION(KLON)     :: ZPI          ! (P/P00)**R_d/C_pd 
+REAL, DIMENSION(KLON)     :: ZLV          ! latent heat of vaporisation
+REAL, DIMENSION(KLON)     :: ZLS          ! latent heat of sublimation 
+REAL, DIMENSION(KLON)     :: ZCPH         ! specific heat C_ph
+INTEGER, DIMENSION(KLON)  :: ITSTEP       ! fractional convective time step
+INTEGER, DIMENSION(KLON)  :: ICOUNT       ! timestep counter 
+INTEGER, DIMENSION(KLON)  :: ILCL         ! index lifting condens. level
+INTEGER, DIMENSION(KLON)  :: IWORK1       ! work array
+REAL, DIMENSION(KLON)     :: ZWORK1, ZWORK2, ZWORK3, ZWORK4, ZWORK5
+LOGICAL, DIMENSION(KLON)  :: GWORK1, GWORK3! work arrays
+LOGICAL, DIMENSION(KLON,KLEV) :: GWORK4    ! work array
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.2    Initialize  local variables
+!               ----------------------------
+!
+!
+ZTIMC(:,:) = 0.
+ZTHES2(:) = 0.
+ZWORK1(:) = 0. 
+ZWORK2(:) = 0. 
+ZWORK3(:) = 0. 
+ZWORK4(:) = 0. 
+ZWORK5(:) = 0. 
+GWORK1(:) = .FALSE.
+GWORK3(:) = .FALSE.  
+GWORK4(:,:) = .FALSE.  
+ILCL(:)   = KLCL(:)
+!
+ZCPORD    = XCPD / XRD
+ZRDOCP    = XRD / XCPD
+ZCVOCD    = XCPV / XCPD 
+ZEPSA     = XRV / XRD
+!
+ZADJ(:)   = 1.
+ZWORK5(:) = 1.
+WHERE( .NOT. OTRIG1(:) ) ZWORK5(:) = 0. 
+!
+!
+!*       0.3   Compute loop bounds
+!              ------------------- 
+!
+IIE    = KLON
+IKB    = 1 + JCVEXB 
+IKS    = KLEV
+IKE    = KLEV - JCVEXT 
+JKMAX  = MAXVAL( KCTL(:) )
+!
+!
+!*       2.     Save initial mass flux values to be used in adjustment procedure
+!               ---------------------------------------------------------------
+!
+ZUMF(:,:)  = PUMF(:,:)
+ZUER(:,:)  = PUER(:,:)
+ZUDR(:,:)  = PUDR(:,:)
+ZOMG(:,:)  = 0.
+PWSUB(:,:) = 0. 
+!
+!
+!*       3.     Compute limits on the closure adjustment factor so that the
+!               inflow in convective drafts from a given layer can't be larger 
+!               than the mass contained in this layer initially.
+!               ---------------------------------------------------------------
+!
+ZADJMAX(:) = 1000.
+IWORK1(:) = ILCL(:)
+JKP = MINVAL( KDPL(:) )
+DO JK = JKP, IKE
+  DO JI = 1, IIE
+    IF( JK > KDPL(JI) .AND. JK <= IWORK1(JI) ) THEN
+        ZWORK1(JI)  = PLMASS(JI,JK) / ( ( PUER(JI,JK) + 1.E-5 ) * PTIMEC(JI) )
+        ZADJMAX(JI) = MIN( ZADJMAX(JI), ZWORK1(JI) )
+    END IF
+  END DO
+END DO
+!
+!
+GWORK1(:) = OTRIG1(:)  ! logical array to limit adjustment to not definitively
+                       ! adjusted columns
+!
+DO JK = IKB, IKE
+  ZTHLC(:,JK) = PTHL(:,JK) ! initialize adjusted envir. values 
+  PRWC(:,JK)  = PRW(:,JK)
+  PRCC(:,JK)  = PRC(:,JK)
+  PRIC(:,JK)  = PRI(:,JK)
+  PTHC(:,JK)  = PTH(:,JK)
+END DO
+!
+!
+!
+DO JITER = 1, 7  ! Enter adjustment loop to assure that all CAPE is
+                 ! removed within the advective time interval TIMEC
+!
+     ZTIMEC(:) = PTIMEC(:)
+     GWORK4(:,:)   = SPREAD( GWORK1(:), DIM=2, NCOPIES=IKS )
+     WHERE( GWORK4(:,:) ) PWSUB(:,:) = 0.
+     ZOMG(:,:)=0.
+!
+     DO JK = IKB + 1, JKMAX 
+           JKP = MAX( IKB + 1, JK - 1 )
+           WHERE ( GWORK1(:) .AND. JK <= KCTL(:) )
+!
+!
+!*       4.     Determine vertical velocity at top and bottom of each layer
+!               to satisfy mass continuity.
+!               ---------------------------------------------------------------
+              ! we compute here Domega/Dp = - g rho Dw/Dz = 1/Dt
+!
+             ZWORK1(:)   = - ( PUER(:,JKP) - PUDR(:,JKP) ) / PLMASS(:,JKP)
+!    
+             PWSUB(:,JK) = PWSUB(:,JKP) - PDPRES(:,JK-1) * ZWORK1(:)
+              ! we use PDPRES(JK-1) and not JKP in order to have zero subsidence
+              ! at the first layer
+!
+!   
+!*       5.     Compute fractional time step. For stability or 
+!               mass conservation reasons one must split full time step PTIMEC)
+!               ---------------------------------------------------------------
+!
+             ZWORK1(:) = XSTABT * PDPRES(:,JKP) / ( ABS( PWSUB(:,JK) ) + 1.E-10 )
+              ! the factor XSTABT is used for stability reasons
+             ZTIMEC(:) = MIN( ZTIMEC(:), ZWORK1(:) ) 
+!
+              ! transform vertical velocity in mass flux units
+             ZOMG(:,JK) = PWSUB(:,JK) * PDXDY(:) / XG 
+         END WHERE
+     END DO
+!
+!
+     WHERE( GWORK4(:,:) )
+           ZTHLC(:,:) = PTHL(:,:) ! reinitialize adjusted envir. values 
+           PRWC(:,:)  = PRW(:,:)  ! when iteration criterium not attained
+           PRCC(:,:)  = PRC(:,:)
+           PRIC(:,:)  = PRI(:,:)
+           PTHC(:,:)  = PTH(:,:)
+     END WHERE
+!
+! 
+!        6. Check for mass conservation, i.e. ZWORK1 > 1.E-2
+!           If mass is not conserved, the convective tendencies
+!           automatically become zero.
+!           ----------------------------------------------------
+!
+    DO JI = 1, IIE
+       JK=KCTL(JI)
+       ZWORK1(JI) = PUDR(JI,JK) * PDPRES(JI,JK) / ( PLMASS(JI,JK) + .1 )    &
+                                                            - PWSUB(JI,JK)
+    END DO
+    WHERE( GWORK1(:) .AND. ABS( ZWORK1(:) ) - .01 > 0. )
+        GWORK1(:) = .FALSE.
+        PTIMEC(:) = 1.E-1
+        ZWORK5(:) = 0.
+    END WHERE
+    DO JK = IKB, IKE
+        PWSUB(:,JK) = PWSUB(:,JK) * ZWORK5(:)
+    END DO
+    GWORK4(:,1:IKB) = .FALSE.
+    GWORK4(:,IKS)   = .FALSE.
+!
+    ITSTEP(:) = INT( PTIMEC(:) / ZTIMEC(:) ) + 1 
+    ZTIMEC(:) = PTIMEC(:) / REAL( ITSTEP(:) ) ! adjust  fractional time step
+                                           ! to be an integer multiple of PTIMEC
+    ZTIMC(:,:)= SPREAD( ZTIMEC(:), DIM=2, NCOPIES=IKS )
+    ICOUNT(:) = 0
+!
+!
+!
+    KFTSTEPS = MAXVAL( ITSTEP(:) )
+    DO JSTEP = 1, KFTSTEPS ! Enter the fractional time step loop here
+!
+     	 ICOUNT(:) = ICOUNT(:) + 1
+!
+	     GWORK3(:) =  ITSTEP(:) >= ICOUNT(:) .AND. GWORK1(:) 
+!
+!
+!*       7.     Assign enthalpy and r_w values at the top and bottom of each
+!               layer based on the sign of w
+!               ------------------------------------------------------------
+!
+             ZTHMFIN(:,:)   = 0.
+             ZRWMFIN(:,:)   = 0.
+             ZRCMFIN(:,:)   = 0.
+             ZRIMFIN(:,:)   = 0.
+             ZTHMFOUT(:,:)  = 0.
+             ZRWMFOUT(:,:)  = 0.
+             ZRCMFOUT(:,:)  = 0.
+             ZRIMFOUT(:,:)  = 0.
+!
+         DO JK = IKB + 1, JKMAX
+         GWORK4(:,JK) = GWORK3(:) .AND. JK <= KCTL(:)
+         JKP = MAX( IKB + 1, JK - 1 )
+           DO JI = 1, IIE
+           IF ( GWORK3(JI) ) THEN
+!
+               ZWORK1(JI)       = SIGN( 1., ZOMG(JI,JK) )
+               ZWORK2(JI)       = 0.5 * ( 1. + ZWORK1(JI) )
+               ZWORK1(JI)       = 0.5 * ( 1. - ZWORK1(JI) )
+               ZTHMFIN(JI,JK)   = - ZOMG(JI,JK) * ZTHLC(JI,JKP) * ZWORK1(JI)
+               ZTHMFOUT(JI,JK)  =   ZOMG(JI,JK) * ZTHLC(JI,JK)  * ZWORK2(JI)
+               ZTHMFIN(JI,JKP)  = ZTHMFIN(JI,JKP)  + ZTHMFOUT(JI,JK) * ZWORK2(JI)
+               ZTHMFOUT(JI,JKP) = ZTHMFOUT(JI,JKP) + ZTHMFIN(JI,JK)  * ZWORK1(JI)
+               ZRWMFIN(JI,JK)   = - ZOMG(JI,JK) * PRWC(JI,JKP) * ZWORK1(JI)
+               ZRWMFOUT(JI,JK)  =   ZOMG(JI,JK) * PRWC(JI,JK)  * ZWORK2(JI)
+               ZRWMFIN(JI,JKP)  = ZRWMFIN(JI,JKP)  + ZRWMFOUT(JI,JK) * ZWORK2(JI)
+               ZRWMFOUT(JI,JKP) = ZRWMFOUT(JI,JKP) + ZRWMFIN(JI,JK)  * ZWORK1(JI)
+               ZRCMFIN(JI,JK)   = - ZOMG(JI,JK) * PRCC(JI,JKP) * ZWORK1(JI)
+               ZRCMFOUT(JI,JK)  =   ZOMG(JI,JK) * PRCC(JI,JK)  * ZWORK2(JI)
+               ZRCMFIN(JI,JKP)  = ZRCMFIN(JI,JKP)  + ZRCMFOUT(JI,JK) * ZWORK2(JI)
+               ZRCMFOUT(JI,JKP) = ZRCMFOUT(JI,JKP) + ZRCMFIN(JI,JK)  * ZWORK1(JI)
+               ZRIMFIN(JI,JK)   = - ZOMG(JI,JK) * PRIC(JI,JKP) * ZWORK1(JI)
+               ZRIMFOUT(JI,JK)  =   ZOMG(JI,JK) * PRIC(JI,JK)  * ZWORK2(JI)
+               ZRIMFIN(JI,JKP)  = ZRIMFIN(JI,JKP)  + ZRIMFOUT(JI,JK) * ZWORK2(JI)
+               ZRIMFOUT(JI,JKP) = ZRIMFOUT(JI,JKP) + ZRIMFIN(JI,JK)  * ZWORK1(JI)
+!
+           END IF
+           END DO
+         END DO
+!
+         WHERE ( GWORK4(:,:) )
+!
+!******************************************************************************
+!
+!*       8.     Update the environmental values of enthalpy and r_w at each level
+!               NOTA: These are the MAIN EQUATIONS of the scheme
+!               -----------------------------------------------------------------
+!
+!
+           ZTHLC(:,:) = ZTHLC(:,:) + ZTIMC(:,:) / PLMASS(:,:) * (      &
+                          ZTHMFIN(:,:) + PUDR(:,:) * PUTHL(:,:)        &
+                      - ZTHMFOUT(:,:) - PUER(:,:) * PTHL(:,:)   )
+           PRWC(:,:)  = PRWC(:,:) + ZTIMC(:,:) / PLMASS(:,:) *  (      &
+                          ZRWMFIN(:,:) + PUDR(:,:) * PURW(:,:)          &
+                      - ZRWMFOUT(:,:) - PUER(:,:) * PRW(:,:)    )    
+           PRCC(:,:)  = PRCC(:,:) + ZTIMC(:,:) / PLMASS(:,:) *  (      &
+               ZRCMFIN(:,:) + PUDR(:,:) * PURC(:,:) - ZRCMFOUT(:,:) -  &
+                         PUER(:,:) * PRC(:,:)    )    
+           PRIC(:,:)  = PRIC(:,:) + ZTIMC(:,:) / PLMASS(:,:) *  (      &
+               ZRIMFIN(:,:) + PUDR(:,:) * PURI(:,:) - ZRIMFOUT(:,:) -  & 
+                         PUER(:,:) * PRI(:,:)    )    
+!
+!
+!******************************************************************************
+!
+         END WHERE
+!
+    END DO ! Exit the fractional time step loop
+!
+! 
+!*          10.    Compute final linearized value of theta envir.
+!                  ----------------------------------------------
+!
+      DO JK = IKB + 1, JKMAX
+         DO JI = 1, IIE
+         IF( GWORK1(JI) .AND. JK <= KCTL(JI) ) THEN
+           ZPI(JI)    = ( XP00 / PPRES(JI,JK) ) ** ZRDOCP
+           ZCPH(JI)   = XCPD + PRWC(JI,JK) * XCPV
+           ZWORK2(JI) = PTH(JI,JK) / ZPI(JI)  ! first temperature estimate
+           ZLV(JI)    = XLVTT + ( XCPV - XCL ) * ( ZWORK2(JI) - XTT )
+           ZLS(JI)    = XLVTT + ( XCPV - XCI ) * ( ZWORK2(JI) - XTT )
+             ! final linearized temperature
+           ZWORK2(JI) = ( ZTHLC(JI,JK) + ZLV(JI) * PRCC(JI,JK) + ZLS(JI) * PRIC(JI,JK) &
+                       - (1. + PRWC(JI,JK) ) * XG * PZ(JI,JK) ) / ZCPH(JI)
+           ZWORK2(JI) = MAX( 180., MIN( 340., ZWORK2(JI) ) )
+           PTHC(JI,JK)= ZWORK2(JI) * ZPI(JI) ! final adjusted envir. theta
+         END IF
+         END DO
+      END DO
+!
+!
+!*         11.     Compute new cloud ( properties at new LCL )
+!                     NOTA: The computations are very close to
+!                           that in routine TRIGGER_FUNCT
+!                  ---------------------------------------------
+!
+      CALL CONVECT_CLOSURE_THRVLCL(  KLON, KLEV,                           &
+                                     PPRES, PTHC, PRWC, PZ, GWORK1,        &
+                                     ZTHLCL, ZRVLCL, ZZLCL, ZTLCL, ZTELCL, &
+                                     ILCL, KDPL, KPBL )
+!
+!
+       ZTLCL(:)  = MAX( 230., MIN( 335., ZTLCL(:) ) )  ! set some overflow bounds
+       ZTELCL(:) = MAX( 230., MIN( 335., ZTELCL(:) ) )
+       ZTHLCL(:) = MAX( 230., MIN( 345., ZTHLCL(:) ) )
+       ZRVLCL(:) = MAX(   0., MIN(   1., ZRVLCL(:) ) )
+!
+!
+!*         12.    Compute adjusted CAPE
+!                 ---------------------
+!
+       ZCAPE(:)  = 0.
+       ZPI(:)    = ZTHLCL(:) / ZTLCL(:)
+       ZPI(:)    = MAX( 0.95, MIN( 1.5, ZPI(:) ) )
+       ZWORK1(:) = XP00 / ZPI(:) ** ZCPORD ! pressure at LCL
+!
+       CALL CONVECT_SATMIXRATIO( KLON, ZWORK1, ZTELCL, ZWORK3, ZLV, ZLS, ZCPH )
+       ZWORK3(:) = MIN(   .1, MAX(   0., ZWORK3(:) ) )
+!
+	        ! compute theta_e updraft undilute
+       ZTHEUL(:) = ZTLCL(:) * ZPI(:) ** ( 1. - 0.28 * ZRVLCL(:) )            &
+                                  * EXP( ( 3374.6525 / ZTLCL(:) - 2.5403 )   &
+                                  * ZRVLCL(:) * ( 1. + 0.81 * ZRVLCL(:) ) )
+!
+	        ! compute theta_e saturated environment at LCL
+       ZTHES1(:) = ZTELCL(:) * ZPI(:) ** ( 1. - 0.28 * ZWORK3(:) )           &
+                                  * EXP( ( 3374.6525 / ZTELCL(:) - 2.5403 )  &
+                                  * ZWORK3(:) * ( 1. + 0.81 * ZWORK3(:) ) )
+!
+      DO JK = MINVAL( ILCL(:) ), JKMAX
+        JKP = JK - 1
+        DO JI = 1, IIE
+          ZWORK4(JI) = 1.
+          IF ( JK == ILCL(JI) ) ZWORK4(JI) = 0.
+!
+           ! compute theta_e saturated environment and adjusted values
+           ! of theta
+!
+          GWORK3(JI)  = JK >= ILCL(JI) .AND. JK <= KCTL(JI) .AND. GWORK1(JI) 
+!
+          ZPI(JI)     = ( XP00 / PPRES(JI,JK) ) ** ZRDOCP
+          ZWORK2(JI)  = PTHC(JI,JK) / ZPI(JI)
+        END DO
+!
+        CALL CONVECT_SATMIXRATIO( KLON, PPRES(:,JK), ZWORK2, ZWORK3, ZLV, ZLS, ZCPH )
+!
+!
+        DO JI = 1, IIE
+          IF ( GWORK3(JI) ) THEN
+              ZTHES2(JI)  = ZWORK2(JI) * ZPI(JI) ** ( 1. - 0.28 * ZWORK3(JI) )   &
+                                   * EXP( ( 3374.6525 / ZWORK2(JI) - 2.5403 ) &
+                                   * ZWORK3(JI) * ( 1. + 0.81 * ZWORK3(JI) ) )
+!
+              ZWORK3(JI)  = PZ(JI,JK) - PZ(JI,JKP) * ZWORK4(JI) -                &
+                           ( 1. - ZWORK4(JI) ) * ZZLCL(JI)    ! level thickness
+              ZWORK1(JI)  = ( 2. * ZTHEUL(JI) ) / ( ZTHES1(JI) + ZTHES2(JI) ) - 1.
+              ZCAPE(JI)   = ZCAPE(JI) + XG * ZWORK3(JI) * MAX( 0., ZWORK1(JI) )
+              ZTHES1(JI)  = ZTHES2(JI)
+          END IF
+        END DO
+      END DO
+!
+!                                                          
+!*         13.     Determine mass adjustment factor knowing how much
+!                  CAPE has been removed.
+!                  -------------------------------------------------
+!
+       WHERE ( GWORK1(:) )
+           ZWORK1(:) = MAX( PCAPE(:) - ZCAPE(:), 0.1 * PCAPE(:) )
+           ZWORK2(:) = ZCAPE(:) / ( PCAPE(:) + 1.E-8 )
+!       
+           GWORK1(:) = ZWORK2(:) > 0.1 .OR. ZCAPE(:) == 0. ! mask for adjustment
+       END WHERE
+!
+       WHERE ( ZCAPE(:) == 0. .AND. GWORK1(:) )  ZADJ(:) = ZADJ(:) * 0.5
+       WHERE ( ZCAPE(:) /= 0. .AND. GWORK1(:) )                              &
+               ZADJ(:) = ZADJ(:) * XSTABC * PCAPE(:) / ( ZWORK1(:) + 1.E-8 )
+       ZADJ(:) = MIN( ZADJ(:), ZADJMAX(:) )  
+!
+!
+!*         13.     Adjust mass flux by the factor ZADJ to converge to
+!                  specified degree of stabilization
+!                 ----------------------------------------------------
+!
+       CALL CONVECT_CLOSURE_ADJUST_SHAL( KLON, KLEV, ZADJ,                     &
+                                         PUMF, ZUMF, PUER, ZUER, PUDR, ZUDR    )
+!
+!
+      IF ( COUNT( GWORK1(:) ) == 0 ) EXIT ! exit big adjustment iteration loop
+                                          ! when all columns have reached 
+                                          ! desired degree of stabilization.
+!
+END DO  ! end of big adjustment iteration loop
+!
+!
+        ! skip adj. total water array  to water vapor
+DO JK = IKB, IKE
+   PRWC(:,JK) = MAX( 0., PRWC(:,JK) - PRCC(:,JK) - PRIC(:,JK) )
+END DO
+!
+!
+END SUBROUTINE CONVECT_CLOSURE_SHAL
+!     ######spl
+     SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL( KLON, KLEV, PADJ,                      &
+                                             PUMF, PZUMF, PUER, PZUER, PUDR, PZUDR  )
+!    #########################################################################
+!
+!!**** Uses closure adjustment factor to adjust mass flux and to modify
+!!     precipitation efficiency  when necessary. The computations are
+!!     similar to routine CONVECT_PRECIP_ADJUST.
+!!
+!!
+!!    PURPOSE
+!!    -------
+!!      The purpose of this routine is to adjust the mass flux using the
+!!      factor PADJ computed in CONVECT_CLOSURE
+!!
+!!
+!!**  METHOD
+!!    ------
+!!      Computations are done at every model level starting from bottom.
+!!      The use of masks allows to optimise the inner loops (horizontal loops).
+!!      
+!!
+!!    EXTERNAL
+!!    --------
+!!     Module MODD_CONVPAREXT
+!!          JCVEXB, JCVEXT     ! extra levels on the vertical boundaries
+!!     
+!!    None
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------
+!!
+!!    None
+!!
+!!    REFERENCE
+!!    ---------
+!!
+!!      Book1,2 of documentation ( routine CONVECT_CLOSURE_ADJUST)
+!!
+!!    AUTHOR
+!!    ------
+!!      P. BECHTOLD       * Laboratoire d'Aerologie *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    26/03/96 
+!!   Last modified  15/11/96
+!-------------------------------------------------------------------------------
+!
+!*       0.    DECLARATIONS
+!              ------------
+!
+USE MODD_CONVPAREXT
+!
+IMPLICIT NONE
+!
+!*       0.1   Declarations of dummy arguments :
+!
+!
+INTEGER,                    INTENT(IN) :: KLON     ! horizontal dimension
+INTEGER,                    INTENT(IN) :: KLEV     ! vertical dimension
+REAL, DIMENSION(KLON),      INTENT(IN) :: PADJ     ! mass adjustment factor
+!
+!
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUMF  ! updraft mass flux (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZUMF ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUER  ! updraft entrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZUER ! initial value of  "
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PUDR  ! updraft detrainment (kg/s)
+REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PZUDR ! initial value of  "
+!
+!
+!*       0.2   Declarations of local variables :
+!
+INTEGER :: IIE, IKB, IKE                 ! horiz. + vert. loop bounds
+INTEGER :: JK                            ! vertical loop index
+!
+!
+!-------------------------------------------------------------------------------
+!
+!*       0.3   Compute loop bounds
+!              -------------------
+!
+IIE  = KLON
+IKB  = 1 + JCVEXB 
+IKE  = KLEV - JCVEXT
+!
+!
+!*       1.     Adjust mass flux by the factor PADJ to converge to
+!               specified degree of stabilization
+!               ----------------------------------------------------
+!
+     DO JK = IKB + 1, IKE
+	  PUMF(:,JK)  = PZUMF(:,JK)   * PADJ(:)
+          PUER(:,JK)  = PZUER(:,JK)   * PADJ(:)
+          PUDR(:,JK)  = PZUDR(:,JK)   * PADJ(:)
+     END DO
+!
+END SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL
Index: LMDZ5/branches/testing/libf/phymar/MAR________BUG.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/MAR________BUG.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/MAR________BUG.f90	(revision 2160)
@@ -0,0 +1,27 @@
+      subroutine MAR________BUG
+
+!-----------------------------------------------------------------------------+
+!     subroutine MAR________BUG FORCES a PREMATURE END of YOUR JOB            |
+!-----------------------------------------------------------------------------+
+
+      write(6,*) '                        .                           '
+      write(6,*) '                       /|\                          '
+      write(6,*) '                      // \\                         '
+      write(6,*) '                     // _ \\                        '
+      write(6,*) '                    // | | \\                       '
+      write(6,*) '                   //  | |  \\                      '
+      write(6,*) '                  //   | |   \\                     '
+      write(6,*) '                 //    |_|    \\                    '
+      write(6,*) '                //      0      \\                   '
+      write(6,*) '               /=================\                  '
+      write(6,*) '                                                    '
+      write(6,*) ' #~@è€~#^@}æ@#â€êþÿûîœôäßë‘’ðüïŀö»©@@@ ↓¬¿×÷¡  !!???'
+      write(6,*) '                                                    '
+      write(6,*) '                                                    '
+      write(6,*) '                                le capitaine HADDOCK'
+      write(6,*) '                                                    '
+
+!     print *, char(7)
+
+      STOP
+      END subroutine MAR________BUG
Index: LMDZ5/branches/testing/libf/phymar/Mod_Atm_CM_QSa.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_Atm_CM_QSa.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_Atm_CM_QSa.f90	(revision 2160)
@@ -0,0 +1,33 @@
+      module Mod_Atm_CM_QSa
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_Atm_CM_QSa contains local variables of PHY_Atm_CM_QSat    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pa_hPa                  !  Pressure                               [hPa]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pr_b75                  !  (1/0)          if pa_hPa (>/<)      75 [hPa]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ei_sat                  !  Saturation Vapor Pressure over Ice     [hPa]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ew_sat                  !  Saturation Vapor Pressure over Water   [hPa]
+
+
+      end module Mod_Atm_CM_QSa
Index: LMDZ5/branches/testing/libf/phymar/Mod_Atm_CM_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_Atm_CM_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_Atm_CM_RUN.f90	(revision 2160)
@@ -0,0 +1,37 @@
+      module Mod_Atm_CM_RUN
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_Atm_CM_RUN contains local variables of PHY_Atm_CM_RUN     |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qv__00           !  Air   Specific Humidity  before Cloud Microphys.  [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qw__00           !  Cloud Droplets Concentr. before Cloud Microphys.  [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qi__00           !  Cloud Crystals Concentr. before Cloud Microphys.  [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qs__00           !  Snow  Particl. Concentr. before Cloud Microphys.  [kg/kg]
+! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qg__00           !  Graupels       Concentr. before Cloud Microphys.  [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  qr__00           !  Rain  Drops    Concentr. before Cloud Microphys.  [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  CFra00           !  Cloud Fraction           before Cloud Microphys.      [-]
+! #cw real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  CCNw00           !  Cloud Condens. Nuclei    before Cloud Microphys.      [-]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  ::  CCNi00           !  Cloud Ice      Nuclei    before Cloud Microphys.      [-]
+
+
+      end module Mod_Atm_CM_RUN
Index: LMDZ5/branches/testing/libf/phymar/Mod_Atm_CP_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_Atm_CP_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_Atm_CP_RUN.f90	(revision 2160)
@@ -0,0 +1,29 @@
+      module Mod_Atm_CP_RUN
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_Atm_CP_RUN contains local variables of PHY_Atm_CP_RUN     |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:) ::  wa_ANA                   !  ANAbatic       Wind        Speed     [m/s]
+
+
+      end module Mod_Atm_CP_RUN
Index: LMDZ5/branches/testing/libf/phymar/Mod_Atm_S0_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_Atm_S0_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_Atm_S0_RUN.f90	(revision 2160)
@@ -0,0 +1,31 @@
+      module Mod_Atm_S0_RUN
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_Atm_S0_RUN contains local variables of PHY_Atm_S0_RUN     |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  cszMIN !  MIN    cos(zenith.Dist), if Mountain MASK        RUN
+      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  sin_sz !     sin(Sun zenith.Dist)                          RUN
+      real(kind=real8), SAVE,ALLOCATABLE, dimension(:)    ::  sin_ho !     sin(Sun Hour  Angle)                          RUN
+
+
+      end module Mod_Atm_S0_RUN
Index: LMDZ5/branches/testing/libf/phymar/Mod_CMiPhy_loc.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_CMiPhy_loc.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_CMiPhy_loc.f90	(revision 2160)
@@ -0,0 +1,81 @@
+      module Mod_CMiPhy_loc
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_CMiPhy_loc contains local variables of CMiPhy             |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qw_io0            ! Droplets   Concentration entering CMiPhy (for io)       [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qi_io0            ! Ice  Part. Concentration entering CMiPhy (for io)       [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qs___0            ! Snow Part. Concentration entering CMiPhy                [kg/kg]
+! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qg___0            ! Graupels   Concentration entering CMiPhy                [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qr___0            ! Rain Drops Concentration entering CMiPhy                [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: Ta_dgC            ! Air   Temperature                                         [dgC]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: sqrrro            ! sqrt(roa(mzp)/roa(k))                                       [-]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: qsiEFF            ! EFFective Saturation Specific Humidity over Ice         [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: Fletch            ! Monodisperse Nb of hexagonal Plates, Fletcher (1962)        [-]
+
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: lamdaS            ! Marshall-Palmer distribution parameter for Snow Particl.
+! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: lamdaG            ! Marshall-Palmer distribution parameter for Graupels     
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: lamdaR            ! Marshall-Palmer distribution parameter for Rain Derops  
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: ps_ACW            ! Accretion of Cloud Drop. by Snow Particl.          Rate [kg/kg/s]
+
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: ps_ACR            ! Accretion of Snow        by Rain                   Rate [kg/kg/s]
+
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVw            !     Sedimentation Velocity   of Droplets
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVi            !     Sedimentation Velocity   of Ice  Particles
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVs            !     Sedimentation Velocity   of Snow Particles
+! #qg real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVg            !     Sedimentation Velocity   of Snow Particles
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: FallVr            !     Sedimentation Velocity   of Rain Drops 
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qwLoss            ! Mass Loss related to Sedimentation of Rain Droplets
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qiLoss            ! Mass Loss related to Sedimentation of Ice  Crystals
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qsLoss            ! Mass Loss related to Sedimentation of Snow Particles
+      real(kind=real8), SAVE,ALLOCATABLE,dimension(:)    :: qrLoss            ! Mass Loss related to Sedimentation of Rain Drops
+
+
+!  Debug Variables
+!  ---------------
+
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wihm1             ! Cloud Droplets Freezing
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wihm2             ! Ice   Crystals Homogeneous Sublimation
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wicnd             ! Ice   Crystals Nucleation              (Emde & Kahlig)
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: widep             ! Ice   Crystals Growth Bergeron Process (Emde & Kahlig)
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wisub             ! Ice   Crystals             Sublimation (Levkov)
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wimlt             ! Ice   Crystals Melting  
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wwevp             ! Water Vapor Condensation / Evaporation (Fractional Cloudiness)
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wraut             ! Cloud Droplets AUTO-Conversion
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsaut             ! Ice   Crystals AUTO-Conversion
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wracw             ! Accretion of Cloud Droplets by Rain, Ta > 0, --> Rain
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsacw             ! Accretion of Cloud Droplets by Rain, Ta < 0, --> Snow
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsaci             ! Accretion of Ice   Crystals by Snow          --> Snow
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wraci             ! Accretion of Ice   Crystals by Rain          --> Snow
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wiacr             ! Accretion of Rain by Ice   Crystals          --> Snow
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsacr             ! Accretion of Rain by Snow                    --> Snow
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wracs             ! Accretion of Snow by Rain                    --> Snow, Rain
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wrevp             ! Rain  Drops     Evaporation  
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wssub             ! Snow  Particles Sublimation
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsmlt             ! Snow  Particles Melting 
+! #WH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: wsfre             ! Rain  Drops     Freezing
+
+! #wH real(kind=real8), SAVE,ALLOCATABLE,dimension(:,:)  :: debugV            ! Debug Variable (of 16 microphysical processes)
+
+
+      end module Mod_CMiPhy_loc
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_ctr.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_ctr.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_ctr.f90	(revision 2160)
@@ -0,0 +1,50 @@
+
+      module Mod_PHY_AT_ctr
+
+
+!--------------------------------------------------------------------------+
+!                                                     Sat 25-May-2013  MAR |
+!     module Mod_PHY_AT_ctr contains the logical variables used to set up  |
+!            MAR PHYsics                                                   |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon  1-Apr-2013      |
+!                             as Mod_PHY____ctr                            |
+!           Last Modification by H. Gallee,           Sat 25-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! E-e and K-l models switches
+! ---------------------------
+
+      logical            ::   AT_TKE                  ! Set-Up of Turbulent Kinetic Energy Computation
+
+      logical            ::   Ee_Duynkerke            ! Dunkerke           (1988) E-epsilon model of turbulence
+      logical            ::   Ee_Kitada               ! Kitada             (1987) E-epsilon model of turbulence
+      logical            ::   Ee_HuangRamn            ! Huang and Raman    (1991) E-epsilon model of turbulence
+      logical            ::   Kl_TherryLac            ! Therry & Lacarrere (1983) K-l       model of turbulence
+
+
+! Box weighted vertical moving Averages of TKE and eps
+! ----------------------------------------------------
+
+      logical            ::   AT_vav = .FALSE.        ! Box weighted vertical moving Averages of TKE & eps
+      integer, SAVE            ::   mz__KA =  1             ! Level No  below which moving Averages of TKE and eps is effective
+      real(kind=real8), SAVE   ::   zz__KA = 20.            ! Height    below which moving Averages of TKE and eps is effective
+
+
+! Flux Limitor
+! ------------
+
+      logical            ::   AT_LIM = .FALSE.        ! pkt  Turbulent Flux Limitor
+      real(kind=real8), SAVE   ::   DThMAX =  5.            ! Maximum allowed d(PT ) in 1 d(t)                                    [K/h]
+      real(kind=real8), SAVE   ::   Dpkt_X                  ! Maximum allowed d(pkt) in 1 d(t) = DThMAX /100.**(R/Cp) /3600.      [K/s]
+
+
+      end module Mod_PHY_AT_ctr
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_grd.f90	(revision 2160)
@@ -0,0 +1,32 @@
+      module Mod_PHY_AT_grd
+
+!--------------------------------------------------------------------------+
+!                                                     Tue 30-Apr-2013  MAR |
+!     module Mod_PHY_AT_grd contains the main grid descriptor        of    |
+!                Turbulent Vertical Diffusion Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Sun 17-Mar-2013      |
+!           Last Modification by H. Gallee,           Tue 30-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      integer, SAVE                                       ::  jt__AT  ! Number of DYnamical Time Steps for one Vertical Diffusion Time Step
+      real(kind=real8), SAVE                              ::  dt__AT  ! Time Step          of Atmospheric Turbulence
+      real(kind=real8), SAVE                              ::  TimeAT  ! Time previous call of Atmospheric Turbulence  [HOURS since 1901-01-15 00:00:00]
+      real(kind=real8), SAVE                              ::  alphAT  ! Explicitness
+      real(kind=real8), SAVE                              ::  betaAT  ! Implicitness
+      real(kind=real8), SAVE                              ::  a_b_AT  !
+      character(len=1)                              ::  schmAT  ! m = momentum / h = scalar / e = ekman spiral
+      logical                                       ::  NewAAT  ! Diagonal Time Depend. Coeff. Calculation Switch
+
+
+
+      end module Mod_PHY_AT_grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_AT_kkl.f90	(revision 2160)
@@ -0,0 +1,121 @@
+      module Mod_PHY_AT_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Sun 12-May-2013  MAR |
+!     module Mod_PHY_AT_kkl contains the main (prognostic) variables of    |
+!                Turbulent Vertical Diffusion Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,           Sun 12-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+! E-e and K-l models parameters
+! -----------------------------
+
+      real(kind=real8), SAVE   ::   TKEmin       = 0.0001   ! Minimum SBL    turbulent kinetic   energy
+
+      real(kind=real8), SAVE   ::      cmub      = 0.0900   ! Ee Model Parameter (Bintanja , 2000, BLM (95),       mid p.355)
+      real(kind=real8), SAVE   ::   sqrcmub      = 3.333    !
+      real(kind=real8), SAVE   ::     c1epb      = 1.46     !
+      real(kind=real8), SAVE   ::     c2epb      = 1.92     !
+      real(kind=real8), SAVE   ::     sigeb      = 0.862    !
+      real(kind=real8), SAVE   ::     sigkb      = 1.000    !
+
+      real(kind=real8), SAVE   ::      cmud      = 0.0330   ! Ee Model Parameter (Duynkerke, 1988, JAS (45), (19), top p.868)
+      real(kind=real8), SAVE   ::   sqrcmud      = 5.500    !                    (c_mu)^1/2=(0.033)^1/2=5.50           p.869
+      real(kind=real8), SAVE   ::     c1epd      = 1.46     !                                                          p.868
+      real(kind=real8), SAVE   ::     c2epd      = 1.83     !                                                          p.868
+      real(kind=real8), SAVE   ::     siged      = 0.420    !
+      real(kind=real8), SAVE   ::     sigkd      = 1.000    !
+
+      real(kind=real8), SAVE   ::      cmuk      = 0.0900   ! Ee Model Parameter (Kitada   , 1987, BLM (41),       top p.220)
+      real(kind=real8), SAVE   ::   sqrcmuk      = 3.333    !                    (c_mu)^1/2=(0.090)^1/2=3.333
+      real(kind=real8), SAVE   ::     c1epk      = 1.44     !                                                      top p.220
+      real(kind=real8), SAVE   ::     c2epk      = 1.92     !
+      real(kind=real8), SAVE   ::     sigek      = 0.769    !
+      real(kind=real8), SAVE   ::     sigkk      = 1.000    !
+
+      real(kind=real8), SAVE   ::   sqrcmut      = 4.0000   ! Kl Model Parameter (Schayes & Thunis, 1990, Contrib. 60 Inst.Astr.Geoph. p.8)
+      real(kind=real8), SAVE   ::     siget      = 0.420    !
+      real(kind=real8), SAVE   ::     sigkt      = 1.200    !
+
+      real(kind=real8), SAVE   ::    betahr      = 2.0000   ! Ee Model Parameter (Huang and Raman,  1991, BLM (55), p.386 and (A22) p.405)
+
+      real(kind=real8), SAVE   ::      cmu                  !
+      real(kind=real8), SAVE   ::   sqrcmu                  !
+      real(kind=real8), SAVE   ::     c1ep                  !
+      real(kind=real8), SAVE   ::     c2ep                  !
+      real(kind=real8), SAVE   ::     sige                  !
+      real(kind=real8), SAVE   ::     sigk                  !
+      real(kind=real8), SAVE   ::   vK_inv                  ! Inverse      of  Von-Karman Constant
+
+! #KA real(kind=real8), SAVE   ::   zz__KA       = 5.0000   ! Height below which use a vertical weighted box filter of TKE, e  [m.agl]
+! #KA integer, SAVE            ::   mz__KA                  ! Level  below which use a vertical weighted box filter of TKE, e  
+! #KA logical            ::   log_KA       = .true.   ! Swich  deciding use of a vertical weighted box filter of TKE, e  
+
+      
+
+! PHY_AT INPUT        Variables
+! -----------------------------
+
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)    ::  ii__AT  ! WORK   point   i Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)    ::  jj__AT  ! WORK   point   j Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)  ::  ikl_AT  ! WORK   point vec Coordinate
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  var_AT  ! Dummy    to Diffuse                                        [x]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Ac0_AT  ! Tridiagonal Matrix Coefficient A: Common Factor        [m2/s3]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Cc0_AT  ! Tridiagonal Matrix Coefficient C: Common Factor        [m2/s3]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Ac__AT  ! Tridiagonal Matrix Coefficient A: Common Factor (t)     [s/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Cc__AT  ! Tridiagonal Matrix Coefficient C: Common Factor (t)     [s/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Kz0_AT  ! Vertical  Turbulent Diffusion Coefficient (MINIMUM)     [m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Kz__AT  ! Vertical  Turbulent Diffusion Coefficient               [m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Kzm_AT  ! Vertical  Turbulent Diffusion Coefficient (Momentum)    [m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Kzh_AT  ! Vertical  Turbulent Diffusion Coefficient (Scalars)     [m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Kzh0AT  ! Vertical  Turbulent Diffusion Coefficient (Scalars)     [m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  A___AT  ! Tridiagonal Matrix Coefficient A                           [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  B___AT  ! Tridiagonal Matrix Coefficient B                           [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  C___AT  ! Tridiagonal Matrix Coefficient C                           [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  D___AT  ! Independant Term               D                           [x]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  P___AT  ! Auxiliary   Term               P                           [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Q___AT  ! Auxiliary   Term               Q                           [-]
+      real*16         ,ALLOCATABLE ,dimension(:)    ::  X___AT  ! Auxiliary   Unknown            X                           [x]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  LMO_AT  ! Monin-Obukhov     Length         (Grid Cell Average)       [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  zi__AT  ! Inversion         Height         (Grid Cell Average)[m a.g.l.]
+
+
+
+! PHY_AT INPUT/OUTPUT Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  TKE_AT  ! Turbulent Kinetic Energy                               [m2/s2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  TrT_AT  ! Turbulent Kinetic Energy Transport                     [m2/s2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  eps_AT  ! Turbulent Kinetic Energy Dissipation                   [m2/s3]
+
+
+
+! PHY_AT OUTPUT       Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dua_AT  ! Wind Speed (x-direc.) Tendency                          [m/s2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dva_AT  ! Wind Speed (y-direc.) Tendency                          [m/s2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dpktAT  ! Potential Temperature Tendency, divided by p0**(R/Cp)   [x/s] 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dqv_AT  ! Specific  Humidity    Tendency                      [kg/kg/s] 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dqw_AT  ! Cloud Droplets Concen.Tendency                      [kg/kg/s] 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dqi_AT  ! Cloud Crystals Concen.Tendency                      [kg/kg/s] 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dCi_AT  ! CCNi           Concen.Tendency                          [1/s] 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dqs_AT  ! Snow  Particls Concen.Tendency                      [kg/kg/s] 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  dqr_AT  ! Rain  Drops    Concen.Tendency                      [kg/kg/s] 
+
+
+
+      end module Mod_PHY_AT_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_ctr.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_ctr.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_ctr.f90	(revision 2160)
@@ -0,0 +1,25 @@
+      module Mod_PHY_CM_ctr
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 22-May-2013  MAR |
+!     module Mod_PHY_CM_ctr contains the main swichtes               of    |
+!                Cloud MicroPhysical          Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Wed 22-May-2013      |
+!           Last Modification by H. Gallee,           Wed 22-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      logical                                       ::  CM_UpD          !  Flag: (T,F) => Microphysical Variable Update (IN,OUT)side CMiPhy
+
+
+
+      end module Mod_PHY_CM_ctr
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_dat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_dat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_dat.f90	(revision 2160)
@@ -0,0 +1,122 @@
+      module Mod_PHY_CM_dat
+
+!--------------------------------------------------------------------------+
+!                                                     Sun 30-Jun-2013  MAR |
+!     module Mod_PHY_CM_dat contains the      data                   of    |
+!                Cloud Microphsics            Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Sat 23-Mar-2013      |
+!           Last Modification by H. Gallee,           Sun 30-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+      integer,       parameter               ::  npt_CM = 1        ! Nb           of     OUTPUT Points
+      integer, SAVE                          ::  ipt_CM            ! Index        of     OUTPUT Points
+      integer, SAVE, dimension(npt_CM)       ::  i0__CM            ! x-Coordinate of the OUTPUT Point
+      integer, SAVE, dimension(npt_CM)       ::  j0__CM            ! y-Coordinate of the OUTPUT Point
+      integer, SAVE, dimension(npt_CM)       ::  k0__CM            ! z-Coordinate of the OUTPUT Point
+      integer, SAVE, dimension(npt_CM)       ::  ikl0CM            ! v-Coordinate of the OUTPUT Point
+      data                                (i0__CM(ipt_CM), ipt_CM=1,npt_CM) /   1/
+      data                                (j0__CM(ipt_CM), ipt_CM=1,npt_CM) /   1/
+      data                                (k0__CM(ipt_CM), ipt_CM=1,npt_CM) /   1/
+
+      real(kind=real8), SAVE                 ::  qv_MIN = 3.e-6    ! Minimum        Specific       Humidity     (Ch. Tricot) [kg/kg]
+      !real(kind=real8), SAVE                 ::  qh_MIN = 1.e-18   ! Minimum        Hydrometeors   Concentration             [kg/kg]
+      real(kind=real8), SAVE                 ::  qh_MIN = 1.e-9   ! Minimum        Hydrometeors   Concentration             [kg/kg]
+      real(kind=real8), SAVE                 ::  WatIce =  273.16  ! Computation of Saturation pressure
+      real(kind=real8), SAVE                 ::  ExpWat =    5.138 ! Ref.: Dudhia        1989, JAS
+      real(kind=real8), SAVE                 ::  ExpWa2 = 6827.    !
+
+      real(kind=real8), SAVE                 ::  RH_MAX =   1.0    ! Maximum        Relative       Humidity     (1 = 100%)       [-]
+      real(kind=real8), SAVE                 ::  RHcrit =   1.0    !                Sursaturation Threshold     (1 = 100%)       [-]
+      real(kind=real8), SAVE                 ::  CFrMIN =   1.e-6  ! Minimum        Cloud Fraction when qw OR qi > 0             [-]
+      real(kind=real8), SAVE                 ::  SSImax = 101.0    ! Maximum        Sursaturation % ICE (101 ==> RH= 201%)       [%]
+      real(kind=real8), SAVE                 ::  n0___s = 3.0e+6   ! intercept parameter / snow    gamma distribution
+      real(kind=real8), SAVE                 ::  n0___r = 8.0e+6   ! intercept parameter / rain    gamma distribution
+      real(kind=real8), SAVE                 ::  n0___g = 4.0e+4   ! intercept parameter / graupel gamma distribution
+                                                                   ! (Lin et al.   1983, JCAM 22, p.1068: 1, 2 and 3) 
+      real(kind=real8), SAVE                 ::  qi0_DC = 0.10e-3  ! Ice   Crystals Critical Mixing Ratio    (tuned Dome C)  [kg/kg]
+!                                                qi0_DC = 0.30e-3  ! Ice   Crystals Critical Mixing Ratio        (standard)  [kg/kg]
+      real(kind=real8), SAVE                 ::  qs__D0 = 2.00e-4  ! Smallest Diameter of Particles in the snow Class            [m]
+!                                                                  ! Ref.: Levkov et al. 1992, Contr.Atm.Phys.65, p.41, para 1
+      real(kind=real8), SAVE                 ::  T_NuId =  -5.     ! Deposition & Condensation-Freezing Nucleation Temperature [dgC]
+      real(kind=real8), SAVE                 ::  a_NuId=   -0.639  ! Deposition & Condensation-Freezing Nucleation Parameters
+      real(kind=real8), SAVE                 ::  b_NuId =   0.1296 ! Ref.: Meyers et al. 1992                     p.713
+      real(kind=real8), SAVE                 ::  T_NuIc =  -2.     ! Contact Freezing                   Nucleation Temperature [dgC]
+      real(kind=real8), SAVE                 ::  a_NuIc=   -2.80   ! Contact Freezing                   Nucleation Parameters
+      real(kind=real8), SAVE                 ::  b_NuIc =   0.262  ! Ref.: Meyers et al. 1992                     p.713
+
+      real(kind=real8), SAVE                 ::  Di_Hex = 1.1e+4   ! Diameter of Hexagonal Plates
+                                                                   ! Ref.: Emde & Kalig  1989, Ann.Geophys.    7, p.408  (15): D
+
+      real(kind=real8), SAVE                 ::  TmaxHM =  -3.     !                                                           [dgC]
+      real(kind=real8), SAVE                 ::  TminHM =  -8.     !                                                           [dgC]
+      real(kind=real8), SAVE                 ::  wa__HM =   1.     ! V. Wind > wa__HM  => Nucleation II (Hall-Mossop) may occur[m/s]
+
+      real(kind=real8), SAVE                 ::  TqwFrz =-35.e0    !       T < TqwFrz  => Instantaneous Freezing               [dgC]
+                                                                   ! Ref.: Levkov et al. 1992, Contr.Atm.Phys.65, p.39
+      real(kind=real8), SAVE                 ::  qw_VOL = 18.e-15  ! Typical Cloud Droplet Volume [m3] (typ. diam.: 32.5 mim)
+                                                                   !      OR Cloud Droplet Weight [T]
+
+      real(kind=real8), SAVE                 ::  qisMAX = 0.0010   ! Ice   Crystals MAX Concentration before autoconversion  [kg/kg]
+                                                                   ! Ref.: Lin et al.    1983, JCAM           22, p.1070 (21)
+      real(kind=real8), SAVE                 ::  qigMAX = 0.0006   ! Ice   Crystals MAX Concentration before autoconversion  [kg/kg]
+                                                                   ! Ref.: Lin et al.    1983, JCAM           22, p.1074 (37)
+      real(kind=real8), SAVE                 ::  qwTURB = 0.27     ! qwTURB=1/3 ln(1/k), k=0.8 (droplets dispersion parameter)
+                                                                   ! Ref.: Martin et al. 1994, JAS 51, p.1823
+      real(kind=real8), SAVE                 ::  C1_EkM = 0.14e-3  ! Partial Condensation Scheme
+      real(kind=real8), SAVE                 ::  C2_EkM = 9.75e+0  ! Ref.: Ek and Mahrt 1991, An.Geoph. 9, 716--724
+
+      real(kind=real8), SAVE                 ::  qw_MAX = 0.0001   ! Cloud Droplets MAX Concentration before autoconversion  [kg/kg]
+      real(kind=real8), SAVE                 ::  qw_MAXL= 0.0020   ! Cloud droplets MAX concentration before autoconversion
+      real(kind=real8), SAVE                 ::  rwCrit = 10.0e-6  ! Droplets Autoconversion:    Critical Radius
+                                                                   ! Ref.: Liou and Ou, 1989
+      real(kind=real8), SAVE                 ::  c_Sund =  1.0e-4  ! Droplets Autoconversion: 1/(characteristic time scale)
+                                                                   ! Ref.: Sundqvist,   1988
+
+      real(kind=real8), SAVE                 ::  cc1 = 1.200e-04   ! Cloud droplets autoconversion parameter
+      real(kind=real8), SAVE                 ::  cc2 = 1.569e-12   ! Cloud droplets autoconversion parameter
+      real(kind=real8), SAVE                 ::  dd0 = 0.15e0      ! Cloud droplets autoconversion parameter
+                                                                   ! Ref.: Lin et al.    1983, JCAM           22, p.1076 (50)
+
+
+
+
+!     ======================================================================
+!     Bergeron Process Data (given by Koenig, 1971, J.A.S. 28,p235) ========
+
+      real(kind=real8), SAVE, dimension(31)  ::  aa1
+
+      data aa1/0.7939e-07 , 0.7841e-06 , 0.3369e-05 , 0.4336e-05 ,     &
+     &         0.5285e-05 , 0.3728e-05 , 0.1852e-05 , 0.2991e-06 ,     &
+     &         0.4248e-06 , 0.7434e-06 , 0.1812e-05 , 0.4394e-05 ,     &
+     &         0.9145e-05 , 0.1725e-06 , 0.3348e-04 , 0.1725e-04 ,     &
+     &         0.9175e-05 , 0.4412e-05 , 0.2252e-05 , 0.9115e-06 ,     &
+     &         0.4876e-06 , 0.3473e-06 , 0.4758e-06 , 0.6306e-06 ,     &
+     &         0.8573e-06 , 0.7868e-06 , 0.7192e-06 , 0.6513e-06 ,     &
+     &         0.5956e-06 , 0.5333e-06 , 0.4834e-06 /
+
+
+      real(kind=real8), SAVE, dimension(31)  ::  aa2
+
+      data aa2/0.4006e0,  0.4831e0,  0.5320e0,  0.5307e0,  0.5319e0,   &
+     &         0.5249e0,  0.4888e0,  0.3894e0,  0.4047e0,  0.4318e0,   &
+     &         0.4771e0,  0.5183e0,  0.5463e0,  0.5651e0,  0.5813e0,   &
+     &         0.5655e0,  0.5478e0,  0.5203e0,  0.4906e0,  0.4447e0,   &
+     &         0.4126e0,  0.3960e0,  0.4149e0,  0.4320e0,  0.4506e0,   &
+     &         0.4483e0,  0.4460e0,  0.4433e0,  0.4413e0,  0.4382e0,   &
+     &         0.4361e0/
+
+!     Bergeron Process Data (given by Koenig, 1971, J.A.S. 28,p235) ========
+!     ======================================================================
+
+      
+
+      end module Mod_PHY_CM_dat
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_grd.f90	(revision 2160)
@@ -0,0 +1,28 @@
+      module Mod_PHY_CM_grd
+
+!--------------------------------------------------------------------------+
+!                                                     Sun 30-Jun-2013  MAR |
+!     module Mod_PHY_CM_grd contains the main grid descriptor        of    |
+!                Cloud MicroPhysical          Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Fri 22-Mar-2013      |
+!           Last Modification by H. Gallee,           Sun 30-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE                        ::  dt__CM          ! Time Step of                           Cloud MicroPhysical Scheme   [s]
+      integer, SAVE                                 ::  jt__CM          ! Number of DYnamical Time Steps for one Cloud Microphysics Time Step [-]
+
+      integer, parameter                            ::  mz1_CM = 2      ! Top       of Clouds     Vertical Index
+
+
+
+      end module Mod_PHY_CM_grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CM_kkl.f90	(revision 2160)
@@ -0,0 +1,97 @@
+      module Mod_PHY_CM_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Sun  9-Jun-2013  MAR |
+!     module Mod_PHY_CM_kkl contains the main (prognostic) variables of    |
+!                Cloud Microphsics            Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue 19-Mar-2013      |
+!           Last Modification by H. Gallee,           Sun  9-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Cloud Microphysical Model Parameters
+! ------------------------------------
+
+      logical   ::   Frac__Clouds  = .TRUE.   ! Fractional Cloud Cover
+
+
+
+! PHY_CM INPUT        Variables
+! -----------------------------
+
+
+
+! PHY_CM INPUT/OUTPUT Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Ta__CM       !  Air   Temperature                                          [K]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qvswCM       !  Saturation Specific Humidity     (over liquid water)   [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qvsiCM       !  Saturation Specific Humidity     (over ice)            [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qw__CM       !  Cloud Droplets      Concentration                      [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qwd_CM       !  Cloud Droplets      Concentration Variation            [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  CCNwCM       !  Cloud Condensation  Nuclei                              [-/m3]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qi__CM       !  Cloud Ice Particles Concentration                      [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qid_CM       !  Cloud Ice Particles Concentration Variation            [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  CCNiCM       !  Cloud Ice Particles Number                              [-/m3]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  CFraCM       !  Cloud               Fraction                            [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qs__CM       !  Snow      Particles Concentration                      [kg/kg]
+! #qg real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qg__CM       !  Graupels            Concentration                      [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qr__CM       !  Rain  Drops         Concentration                      [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  HLatCM       !  Latent Heat Release                                     [W/m2]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  uss_CM       !  Snow  Particles     Turbulent Surface Flux            [kg m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Ice0CM       !  Ice C.Accumulation (time t-dtR)                       [m w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Ice_CM       !  Ice C.Accumulation (time t   )                        [m w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Sno0CM       !  Snow  Accumulation (time t-dt, before snow erosion)   [m w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  SnobCM       !  Snow  Accumulation (time t-dt, after  snow erosion)   [m w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  SnowCM       !  Snow  Accumulation (time t   )                        [m w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Rai0CM       !  Rain  Accumulation (time t-dt)                        [m w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  RainCM       !  Rain  Accumulation (time t   )                        [m w.e.]
+
+
+
+! PHY_CM OUTPUT       Variables
+! -----------------------------
+
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dpktCM       !  Reduced Potential Temperature TENDENCY                  [KX/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dqv_CM       !  Specific          Humidity    TENDENCY               [kg/kg/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dqw_CM       !  Cloud Droplets Concentration  TENDENCY               [kg/kg/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dqi_CM       !  Cloud Crystals Concentration  TENDENCY               [kg/kg/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dqs_CM       !  Snow Particles Concentration  TENDENCY               [kg/kg/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dqr_CM       !  Rain Drops     Concentration  TENDENCY               [kg/kg/s]
+! #cw real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dCw_CM       !  CCN            Concentration  TENDENCY                   [1/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dCi_CM       !  CIN            Concentration  TENDENCY                   [1/s]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:,:) ::  dCF_CM       !  Cloud Draction                TENDENCY                   [1/s]
+
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  wat0EW       !  Total Precipitable  Water  in the  Air Column         [m w.e.]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  wat1EW       !  Total Precipitable  Water  in the  Air Column         [m w.e.]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  wat2EW       !  Total Precipitable  Water  in the  Air Column         [m w.e.]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  watfEW       !  Water Flux (Atm. --> Srf.) during 1 Time Step         [m w.e.]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  enr0EW       !  Total Energy (Sens. +Lat.) in the  Air Column         [m w.e.]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  enr1EW       !  Total Energy (Sens. +Lat.) in the  Air Column         [m w.e.]
+      real(kind=real8), SAVE, ALLOCATABLE ,dimension(:)   ::  enr2EW       !  Total Energy (Sens. +Lat.) in the  Air Column         [m w.e.]
+      character(len=20),ALLOCATABLE ,dimension(:)   ::  mphyEW       ! 
+      character(len=20)                             ::  mauxEW       ! 
+
+
+!  Isotopes Proxies
+!  ~~~~~~~~~~~~~~~~
+      logical                                         :: write_Proxy ! 
+      integer, SAVE                                         :: nHL_CM      ! Counter
+      real(kind=real8), SAVE,  ALLOCATABLE ,dimension(:)    :: Hcd_CM      ! latent heat release                                   [mm w.e.]
+      real(kind=real8), SAVE,  ALLOCATABLE ,dimension(:)    :: Tcd_CM      ! latent heat release weighted Air Temperature                [K]
+      real(kind=real8), SAVE,  ALLOCATABLE ,dimension(:)    :: Zcd_CM      ! latent heat release weighted Altitude                       [m]
+      real(kind=real8), SAVE,  ALLOCATABLE ,dimension(:)    :: Hsb_CM      ! latent heat absorb.                                   [mm w.e.]
+      real(kind=real8), SAVE,  ALLOCATABLE ,dimension(:)    :: Tsb_CM      ! latent heat absorb. weighted Air Temperature                [K]
+      real(kind=real8), SAVE,  ALLOCATABLE ,dimension(:)    :: Zsb_CM      ! latent heat absorb. weighted Altitude                       [m]
+
+
+      end module Mod_PHY_CM_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_ctr.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_ctr.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_ctr.f90	(revision 2160)
@@ -0,0 +1,67 @@
+
+      module Mod_PHY_CP_ctr
+
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 22-Apr-2013  MAR |
+!     module Mod_PHY_CP_ctr contains the control variables used to set up  |
+!            Convective Mass Flux Parameterization                         |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Wed 10-Apr-2013      |
+!           Last Modification by H. Gallee,           Mon 22-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      logical           ::  Lod_CP            !   Deep    Convection (user)      Switch
+      logical           ::  Odeep0 = .TRUE.   !   Deep    Convection (Control)   Switch
+      logical           ::  Odeep             !   Deep    Convection (Effective) Switch
+      logical           ::  Oshal0 = .TRUE.   !   Shallow Convection (Control)   Switch
+      logical           ::  Oshal             !   Shallow Convection (Effective) Switch
+      logical           ::  Los_CP            !   Shallow Convection (user)      Switch
+      logical           ::  Odown0 = .TRUE.   !   Flag to take or not convective downdrafts into account
+      logical           ::  Orset0 = .TRUE.   !   Flag to refresh or not all tendencies at every call
+      logical           ::  OsetA0 = .false.  !   Flag to set convective adjustment time by user
+      logical           ::  OCvTC0 = .false.  !   Flag to compute convective transport for  chemical tracer
+      logical           ::  Lo_ANA = .false.  !   Flag to compute Anabatic Wind Speed Contribution to Vertical Velocity
+
+      real(kind=real8), SAVE  ::  t_d_CP            !   Deep    Convection Time Scale                                        [s]
+      real(kind=real8), SAVE  ::  t_s_CP            !   Shallow Convection Time Scale                                        [s]
+
+      real(kind=real8), SAVE  ::  dtd_CP            !   time interval between 2 CALLs of deep convection (user INPUT)        [s]
+      real(kind=real8), SAVE  ::  pdtCV0 = 1200.    !   time interval between 2 CALLs of deep convection (control)           [s]
+      real(kind=real8), SAVE  ::  pdtCVx            !   time interval between 2 CALLs of deep convection (chosen)            [s]
+      REAL              ::  pdtCV             !   time interval between 2 CALLs of deep convection (effective)         [s]
+
+      integer, SAVE           ::  jjtCV0            !   Number of  Convective Steps for 1    Update Step                     [-]
+      integer, SAVE           ::  iitCV0            !   No     of  Convective Step                                           [-]
+
+      real(kind=real8), SAVE  ::  PTdcv0 = 1800.    !   deep    adjustment time                          (control)           [s]
+      REAL              ::  PTdcv             !   deep    adjustment time                          (effective)         [s]
+
+      real(kind=real8), SAVE  ::  PTscv0 =  600.    !   shallow adjustment time                          (control)           [s]
+      REAL              ::  PTscv             !   shallow adjustment time                          (effective)         [s]
+
+      integer, SAVE           ::  kidia0 =    1     !   index of the first column of the vector                              [-]
+      integer, SAVE           ::  kfdia0            !   index of the last  column of the vector                              [-]
+
+      integer, SAVE           ::  kbdia0 =    1     !   vertical computations: lowest                 level                  [-]
+      integer, SAVE           ::  ktdia0 =    1     !   vertical computations: over KLEV + 1 - ktdia0 levels                 [-]
+
+      integer, SAVE           ::  kIce_0 =    1     !   flag for ice ( 1 / 0 ) = (included / not icluded)                    [-]
+      integer, SAVE           ::  kensbl =    3     !   Nb of ensembles for a "climate" run                                  [-]
+
+
+
+
+
+
+
+      end module Mod_PHY_CP_ctr
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_dat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_dat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_dat.f90	(revision 2160)
@@ -0,0 +1,24 @@
+      module Mod_PHY_CP_dat
+
+!--------------------------------------------------------------------------+
+!                                                     Tue  9-Apr-2013  MAR |
+!     module Mod_PHY_CP_dat contains the      data                   of    |
+!                MASS FLUX CONVECTION         Routine                      |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  9-Apr-2013      |
+!           Last Modification by H. Gallee,           Tue  9-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE                 ::  vANA   =  4.0e+0  ! Characteristic Mountain Breeze Wind Scale                 [m/s]
+      real(kind=real8), SAVE                 ::  xANA   = 10.0e+3  ! Characteristic Mountain Width       Scale                   [m]
+      
+
+      end module Mod_PHY_CP_dat
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_grd.f90	(revision 2160)
@@ -0,0 +1,27 @@
+      module Mod_PHY_CP_grd
+
+!--------------------------------------------------------------------------+
+!                                                     Tue 30-Apr-2013  MAR |
+!     module Mod_PHY_CP_grd contains the main grid descriptor of           |
+!                Convection Parameterization                               |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon  8-Apr-2013      |
+!           Last Modification by H. Gallee,           Tue 30-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE                              ::  dt__CP          ! Time Step of                           Convection Parameterization  [s]
+      integer, SAVE                                       ::  jt__CP          ! Number of DYnamical Time Steps for one Convection Param.  Time Step [-]
+
+
+
+
+      end module Mod_PHY_CP_grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_CP_kkl.f90	(revision 2160)
@@ -0,0 +1,51 @@
+      module Mod_PHY_CP_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Thu  9-May-2013  MAR |
+!     module Mod_PHY_CP contains the representation in vector frame of     |
+!                       Variables of the Convective Mass Flux Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  9-Apr-2013      |
+!           Last Modification by H. Gallee,           Thu  9-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Convective Mass Flux Scheme INPUT        Variables
+! --------------------------------------------------
+
+
+
+! Convective Mass Flux Scheme INPUT/OUTPUT Variables
+! --------------------------------------------------
+
+      real(kind=real8), SAVE                                ::  rANA         ! Subgrid Mountain Breeze: Horizontal Divergence           [1/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  hANA         ! D("Subgrid Mountain" Height - "Resolved Mountain" Height)  [m]
+
+
+
+! Convective Mass Flux Scheme OUTPUT       Variables
+! --------------------------------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  timeCP       ! Convective Adjustment Time                                 [s]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dpktCP       ! Reduced  Potential Temperature Tendency                [K/X/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dqv_CP       ! Specific Humidity              Tendency              [kg/kg/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dqw_CP       ! Cloud Droplets Concentration   Tendency              [kg/kg/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dqi_CP       ! Cloud Crystals Concentration   Tendency              [kg/kg/s]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  drr_CP       ! Rain (convective)              Tendency                  [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  rainCP       ! Rain (convective)                                          [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  dss_CP       ! Snow (convective)              Tendency                  [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  snowCP       ! Snow (convective)                                          [m]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  CAPECP       ! Convective Available Potentential Energy             [.......]
+
+
+      end module Mod_PHY_CP_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_DY_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_DY_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_DY_kkl.f90	(revision 2160)
@@ -0,0 +1,54 @@
+      module Mod_PHY_DY_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Tue  4-Jun-2013  MAR |
+!     module Mod_PHY_DY_kkl contains the main (prognostic) variables of    |
+!                MAR Dynamics Variabbles on MAR Physics Grid               |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,           Tue  4-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+! Atm_DY INPUT        Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  psa_DY       !  Pressure    Thickness                                    [kPa]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  ExnrDY       !  Potential   Exner                        pa  **(R/Cp)    [xxx]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Z___DY       !  Geopotential, level k    , i.e. =  gZ(k)         /  g  [m2/s2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  ZmidDY       !  Geopotential, level k-1/2, i.e. = (gZ(k)+gZ(k-1))/(2g) [m2/s2]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  pkt_DY       !  Potential   Temperature, divided by (100 kPa)**(R/Cp)  [K/xxx]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  TmidDY       !  Temperature , level k+1/2, i.e. = (Ta(k)+Ta(k+1))/ 2       [K]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  Ta__DY       !  Temperature , level k    , i.e. =  Ta(k)                   [K]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  windDY       !  Wind Speed, Horizontal                                   [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  ua__DY       !  Wind Speed  x-Direction                                  [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  va__DY       !  Wind Speed  y-Direction                                  [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  wa__DY       !  Wind Speed  z-Direction                                  [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  roa_DY       !  Air Volumic Mass, Layer k                              [Mg/m3]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  roamDY       !  Air Volumic Mass, Level k+1/2                          [Mg/m3]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  qv__DY       !  Specific    Humidity                                   [kg/kg]
+! #LD real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  ::  ld_H2O       !  Loading    (Humidity, Hydrometeors, Aerosols ...)          [-]
+
+
+
+! Atm_DY INPUT/OUTPUT Variables
+! -----------------------------
+
+
+
+! Atm_DY OUTPUT       Variables
+! -----------------------------
+
+
+      end module Mod_PHY_DY_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_dat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_dat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_dat.f90	(revision 2160)
@@ -0,0 +1,26 @@
+      module Mod_PHY_RT_dat
+
+!--------------------------------------------------------------------------+
+!                                                     Tue  7-May-2013  MAR |
+!     module Mod_PHY_RT_dat contains specific data                   of    |
+!                Radiative Transfert          Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  7-May-2013      |
+!           Last Modification by H. Gallee,           Tue  7-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE                              ::  ZEPAER  = 1.E-12  ! Generic   [O3] Concentration                     [Pa/Pa]
+      real(kind=real8), SAVE                              ::  FraQws  = 0.02    ! Cloud Fraction Parameterization                      [-]
+
+
+
+      end module Mod_PHY_RT_dat
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_dim.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_dim.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_dim.f90	(revision 2160)
@@ -0,0 +1,25 @@
+      module Mod_PHY_RT_dim
+
+!--------------------------------------------------------------------------+
+!                                                     Sun 30-Jun-2013  MAR |
+!     module Mod_PHY_RT_dim contains the main grid dimensions        of    |
+!                Radiative Transfert          Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  2-Apr-2013      |
+!           Last Modification by H. Gallee,           Sun 30-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      integer, parameter                            ::  naer   = 6      ! Nb of Aerosol Classes                 [-]
+
+
+
+      end module Mod_PHY_RT_dim
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_grd.f90	(revision 2160)
@@ -0,0 +1,27 @@
+      module Mod_PHY_RT_grd
+
+!--------------------------------------------------------------------------+
+!                                                     Tue 30-Apr-2013  MAR |
+!     module Mod_PHY_RT_grd contains the main grid descriptor        of    |
+!                Radiative Transfert          Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  2-Apr-2013      |
+!           Last Modification by H. Gallee,           Tue 30-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      integer, SAVE                                       ::  naero           ! Nb of Aerosol Classes                                               [-]
+      integer, SAVE                                       ::  jt__RT          ! Number of DYnamical Time Steps for one Radiative Transfer Time Step [-]
+      real(kind=real8), SAVE                              ::  dt__RT          ! Time Step of Radiative Transfert                                    [s]
+
+
+
+      end module Mod_PHY_RT_grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_kkl.f90	(revision 2160)
@@ -0,0 +1,64 @@
+      module Mod_PHY_RT_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Sun 16-Jun-2013  MAR |
+!     module Mod_PHY_RT contains the representation in vector frame of     |
+!                       Variables of the   Radiative Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Wed  3-Apr-2013      |
+!           Last Modification by H. Gallee,           Sun 16-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Radiative Transfer INPUT        Variables
+! -----------------------------------------
+
+!     real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  LWUsRT       ! Surface LongWave Heat Flux (+)    (Upward)             [W/m2]
+
+
+! Radiative Transfer INPUT/OUTPUT Variables
+! -----------------------------------------
+
+
+
+! Radiative Transfer OUTPUT       Variables
+! -----------------------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  O3__RT       ! Ozone   Concentration                                 [Pa/Pa]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  AersRT       ! Aerosol Optical Thickness                                 [-]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  ODC_RT       ! Clouds   Optical Depth (vertically integrated)            [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODCzRT       ! Clouds   Optical Depth (Layer z)                          [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  ODA_RT       ! Aerosols Optical Depth (vertically integrated)            [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODAzRT       ! Aerosols Optical Depth (Layer z)                          [-]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FIRn_c       ! CLEAR-SKY         LW NET      FLUXES                   [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FIRn_t       ! TOTAL             LW NET      FLUXES                   [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FSOn_c       ! CLEAR-SKY         SW NET      FLUXES                   [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FSOn_t       ! TOTAL             SW NET      FLUXES                   [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOs_t       ! TOTAL-SKY SURFACE SW DOWNWARD FLUX                     [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOdir       ! SOLAR RADIANCE  IN SUN'S  DIRECTION                    [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOsUV       ! SURFACE   DOWNWARD U.V.   RADIATION                    [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOeff       ! PHOTOSYNTHETICALLY ACTIVE RADIATION                    [W/m2]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  SWDsRT       ! Surface ShrtWave Heat Flux (+)  (Downward)             [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  SWAsRT       ! Surface ShrtWave Heat Flux (+)  (Absorbed)             [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  LWDsRT       ! Surface LongWave Heat Flux (+)  (Downward)             [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  LWUsRT       ! Surface LongWave Heat Flux (+)  (  Upward)             [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  ClouRT       ! Total Cloudiness above lowest Atmospheric Level           [-]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  OLR_RT       ! OutgoingLongWave Radiation (+)  (  Upward)             [W/m2] 
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWdTRT       ! Radiative Heating SW                                  [K/Day]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LWdTRT       ! Radiative Heating LW                                  [K/Day]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dpktRT       ! Radiative Heating SW + LW                               [K/s]
+
+
+      end module Mod_PHY_RT_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_xyz.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_xyz.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_RT_xyz.f90	(revision 2160)
@@ -0,0 +1,50 @@
+      module Mod_PHY_RT_xyz
+
+!--------------------------------------------------------------------------+
+!                                                     Thu  9-May-2013  MAR |
+!     module Mod_PHY_RT contains the representation in cartesian frame of  |
+!                       Variables of the   Radiative Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Mar-2013      |
+!           Last Modification by H. Gallee,           Thu  9-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Radiative Transfer INPUT        Variables
+! -----------------------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LWUsRT_xy    !  Surface LongWave Heat Flux (+)    (Upward)   [W/m2]
+
+
+! Radiative Transfer INPUT/OUTPUT Variables
+! -----------------------------------------
+
+
+
+! Radiative Transfer OUTPUT       Variables
+! -----------------------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  O3__RT_xyz   !  Ozone    Concentration                             [Pa/Pa]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:,:)::  AersRT_xyza  !  Aerosol  Optical Thickness                             [-]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ClouRT_xy    !  Total Cloudiness above lowest Atmospheric Level        [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODC_RT_xy    !  Clouds   Optical Thickness (vertically integrated)     [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  ODC_RT_xyz   !  Clouds   Optical Thickness (Layer z)                   [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODA_RT_xy    !  Aerosols Optical Thickness (vertically integrated)     [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  ODA_RT_xyz   !  Aerosols Optical Thickness (Layer z)                   [-]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  OLR_RT_xy    !  OutgoingLongWave Radiation (+)  (  Upward)          [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWDsRT_xy    !  Surface ShrtWave Heat Flux (+)  (Downward)          [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWAsRT_xy    !  Surface ShrtWave Heat Flux (+)  (Absorbed)          [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LWDsRT_xy    !  Surface LongWave Heat Flux (+)  (Downward)          [W/m2]
+
+
+
+      end module Mod_PHY_RT_xyz
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_ctr.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_ctr.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_ctr.f90	(revision 2160)
@@ -0,0 +1,27 @@
+      module Mod_PHY_S0_ctr
+
+!--------------------------------------------------------------------------+
+!                                                     Sat 15-Jun-2013  MAR |
+!     module Mod_PHY_S0_ctr contains the main Switches               of    |
+!                Insolation                   Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,           Sat 15-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      logical                                       ::  FaceS0            !  Slope Influence on Insolation
+      logical                                       ::  MMskS0            !  Mount MASKing   of Insolation
+      logical                                       ::  LDayS0 = .TRUE.   !  Day   Length    at Domain Origin
+
+
+
+      end module Mod_PHY_S0_ctr
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_dat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_dat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_dat.f90	(revision 2160)
@@ -0,0 +1,60 @@
+      module Mod_PHY_S0_dat
+
+!--------------------------------------------------------------------------+
+!                                                     Sat 27-Apr-2013  MAR |
+!     module Mod_PHY_S0_dat contains the main data                   of    |
+!                Insolation                   Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,           Sat 27-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      integer, SAVE                                       ::  kBP    = 0      ! Time                                   [kyr B.P.]
+      real(kind=real8), SAVE                              ::  rsunS0          ! Insolation, Top of the Atmosphere          [W/m2] 
+      real(kind=real8), SAVE                              ::  cszEPS = 1.e-3  ! Minimum accepted cos(Sun zenith.Dist.)        [-] 
+      real(kind=real8), SAVE                              ::  ecc             ! Earth Orbit Eccentricity                      [-]
+      real(kind=real8), SAVE                              ::  perh            ! Earth Orbit Longitude of the Perihelion  [degree]
+      real(kind=real8), SAVE                              ::  xob             ! Earth Orbit Obliquity                    [degree]
+      real(kind=real8), SAVE                              ::  ecc_EO(-10:0)   ! Earth Orbit Eccentricity                      [-] 
+      real(kind=real8), SAVE                              ::  perhEO(-10:0)   ! Earth Orbit Longitude of the Perihelion  [degree]
+      real(kind=real8), SAVE                              ::  xob_EO(-10:0)   ! Earth Orbit Obliquity                    [degree]
+
+      data ecc_EO(  0)                                 /  0.01673 /     ! Eccentricity 
+      data perhEO(  0)                                 /102.4     /     ! Longitude of the Perihelion              [degree]
+      data xob_EO(  0)                                 / 23.445   /     ! Obliquity                                [degree]
+
+      data ecc_EO( -6)                                 /  0.018682/     ! Eccentricity
+      data perhEO( -6)                                 /  0.87    /     ! Longitude of the Perihelion              [degree]
+      data xob_EO( -6)                                 /  24.105  /     ! Obliquity                                [degree]
+
+      data ecc_EO(-10)                                 /  0.019419/     ! Eccentricity
+      data perhEO(-10)                                 /294.81    /     ! Longitude of the Perihelion              [degree]
+      data xob_EO(-10)                                 / 24.226   /     ! Obliquity                                [degree]
+
+
+      real(kind=real8), SAVE                              ::  pirr            ! 180 / pi / 3600               [degree/radian/sec]
+
+      real(kind=real8), SAVE                              ::  om = 0.0172142  ! Radian advance in one day                [radian]
+      real(kind=real8), SAVE                              ::  Tyear = 365.25  ! Length         of one year                  [day]
+      real(kind=real8), SAVE                              ::  Step            ! Advance on Earth Orbit in 1 day      [degree/day]
+
+      real(kind=real8), SAVE                              ::  xee             ! Square    of Eccentricity (Ecc)               [-]
+      real(kind=real8), SAVE                              ::  xse             ! Square Root (1-Ecc**2)                        [-]
+      real(kind=real8), SAVE                              ::  xe3             ! Square Root (1-Ecc**2)  X  Ecc                [-]
+      real(kind=real8), SAVE                              ::  xl              ! Longitude of Aphelion                    [degree]
+      real(kind=real8), SAVE                              ::  xllp            ! Longitude of Aphelion                    [radian]
+      real(kind=real8), SAVE                              ::  so              ! sinus     of Obliquity                        [-]
+      real(kind=real8), SAVE                              ::  xlam            ! true long. sun for mean long. = 0        [degree]
+
+
+
+      end module Mod_PHY_S0_dat
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_grd.f90	(revision 2160)
@@ -0,0 +1,28 @@
+      module Mod_PHY_S0_grd
+
+!--------------------------------------------------------------------------+
+!                                                     Fri 14-Jun-2013  MAR |
+!     module Mod_PHY_S0_grd contains the main grid descriptor        of    |
+!                Insolation                   Scheme                       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,           Fri 14-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE                              ::  dST_UA          ! Distance Soleil-Terre                      [u.a.] 
+
+      integer, SAVE                                       ::  n_azim          ! Nb of azimuth to look for Mountain Mask       [-]
+      real(kind=real8), SAVE                              ::  d_azim          ! azimuth interval for  one Mountain Mask  [radian]
+
+
+
+      end module Mod_PHY_S0_grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY_S0_kkl.f90	(revision 2160)
@@ -0,0 +1,30 @@
+      module Mod_PHY_S0_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Fri 26-Apr-2013  MAR |
+!     module Mod_PHY_S0 contains the representation in vector   frame of   |
+!                       Variables of the Insolation Scheme                 |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,           Fri 26-Apr-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Insolation        OUTPUT        Variables
+! -----------------------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  csz0S0       ! cosine (solar zenithal Distance)                          [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  csz_S0       ! cosine (solar zenithal Distance), including Slope  Effect [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  cszkS0       ! cosine (solar zenithal Distance), including Mountain Mask [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  slopS0       ! Cosine of Fall Line Angle                                 [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  omenS0       ! Fall Line Azimuth (Downslope Direction)                   [-]
+
+
+      end module Mod_PHY_S0_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY____dat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY____dat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY____dat.f90	(revision 2160)
@@ -0,0 +1,93 @@
+     module Mod_PHY____dat
+
+!------------------------------------------------------------------------------+
+!                                                         Sat  8-Jun-2013  MAR |
+!    module Mod_PHY____dat  contains specific constants for                    |
+!           MAR PHYsical    Parameterizations                                  |
+!                                                                              |
+!                     These constants may be slightly different in HOST Model  |
+!                                 and may be modified in  PHY________INI       |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat  8-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Physical Constants (may be changed in the interface with the Host Model)
+! ==================
+
+      real(kind=real8), SAVE  ::  zer0   =    0.00         !                                !    0.00
+      real(kind=real8), SAVE  ::  half   =    0.50         !                                !    0.50
+      real(kind=real8), SAVE  ::  un_1   =    1.00         !                                !    1.00
+      real(kind=real8), SAVE  ::  piNmbr =    3.1416       ! pi                             !    3.1416
+      real(kind=real8), SAVE  ::  Dg2Rad = 1745.33d-5      ! pi / 180                       !           
+      real(kind=real8), SAVE  ::  epsq   =    1.e-6        ! Arbirary Small Value, H2O      !    1.e-6
+      real(kind=real8), SAVE  ::  eps1   =    1.e-1        ! Arbirary Small Value           !    1.e-1
+      real(kind=real8), SAVE  ::  eps6   =    1.e-6        ! Arbirary Small Value           !    1.e-6
+      real(kind=real8), SAVE  ::  epsn   =    1.e-9        ! Arbirary Small Value           !    1.e-9
+      real(kind=real8), SAVE  ::  epsp   =    1.e-12       ! Arbirary Small Value           !    1.e-12
+      real(kind=real8), SAVE  ::  R_1by3 =    0.333333     ! 1 / 3                          !
+      real(kind=real8), SAVE  ::  R_5by3 =    1.666666     ! 5 / 3                          !
+      real(kind=real8), SAVE  ::  R_1000 =    1.e+3        !                                !    1.e+3
+      real(kind=real8), SAVE  ::  ea_MAX =   50.           ! MAX allowed exponential Argum. ! computed by HOST
+      real(kind=real8), SAVE  ::  ea_MIN =  -50.           ! MIN allowed exponential Argum. ! computed by HOST
+      real(kind=real8), SAVE  ::  A_MolV =    1.35d-5      ! Air Molecular Viscosity        !    1.35d-5 m2/s 
+      real(kind=real8), SAVE  ::  rhoIce =  920.00d+0      ! Ice         Specific Mass      !  920.00d+0 kg/m3
+      real(kind=real8), SAVE  ::  BSnoRo =  255.00d+0      ! Blown Snow  Specific Mass      !  255.00d+0 kg/m3
+      real(kind=real8), SAVE  ::  LhvH2O = 2508.00d+3      ! Latent Heat of Vapor. of Rain  ! 2500.00d+3 J/kg
+      real(kind=real8), SAVE  ::  LhfH2O =    3.34d+5      ! Latent Heat of Fusion of Snow  !    3.34d+5 J/kg
+      real(kind=real8), SAVE  ::  LhsH2O = 2833.60d+3      ! Latent Heat of Sublim.of Snow  ! 2833.60d+3 J/kg
+      real(kind=real8), SAVE  ::  CpdAir = 1004.708845     ! dry air specific heat at cst p ! 1004.00    J/kg/K
+      real(kind=real8), SAVE  ::  R_DAir =  287.05967      ! dry air perfect gas law  cst   !  287.      J/kg/K
+      real(kind=real8), SAVE  ::  RCp    =    0.285857     ! R / Cp                         ! 287./1004. -
+      real(kind=real8), SAVE  ::  p0_kap =    3.730037     !                                ! 100 kPa ** (R/Cp)
+      real(kind=real8), SAVE  ::  Lv_CPd                   ! LhvH2O      /  CpdAir          !
+      real(kind=real8), SAVE  ::  Ls_CPd                   ! LhsH2O      /  CpdAir          !
+      real(kind=real8), SAVE  ::  Lc_CPd                   ! LhfH2O      /  CpdAir          !
+      real(kind=real8), SAVE  ::  hC_Wat = 4186.00d+0      ! Water Heat Capacity            ! 4186.00d+0 J/kg/K
+      real(kind=real8), SAVE  ::  rhoWat = 1000.00d+0      ! Water Specific Mass            ! 1000.00d+0 kg/m3
+      real(kind=real8), SAVE  ::  Tf_Sno =  273.16         ! Snow  Melting  Point           !  273.16    K
+      real(kind=real8), SAVE  ::  Tf_Sea =  271.2          ! Sea   Melting  Point           !  271.2     K
+      real(kind=real8), SAVE  ::  StefBo =    5.67d-8      ! Stefan-Boltzman Constant       !    5.67d-8 W/m2/K4
+      real(kind=real8), SAVE  ::  Grav_F =    9.81         !     Gravitational  Force       !    9.81    m/s2
+!     real(kind=real8), SAVE  ::  Grav_I =    0.101937     ! 1 /(Gravitational  Force)      ! 1 /9.81    s2/m
+      real(kind=real8), SAVE  ::  Grav_I                   ! 1 /(Gravitational  Force)      ! 1 /9.81    s2/m
+      real(kind=real8), SAVE  ::  GravF2                   !    (Gravitational  Force) ** 2 !    9.81    m2/s4
+      real(kind=real8), SAVE  ::  vonKrm =    0.4          ! von Karman Constant            !    0.4
+      real(kind=real8), SAVE  ::  A_Stab =    5.8          ! Stability  Coefficient Moment  !    5.8
+      real(kind=real8), SAVE  ::  AhStab =    5.4          ! Stability  Coefficient Heat    !    5.4
+      real(kind=real8), SAVE  ::  AsStab =    4.0          ! Stability  Coefficient Blown * !    4.0
+      real(kind=real8), SAVE  ::  r_Stab =    3.0          ! Turbul.Diffusivit.Ratio K*/Km  !        
+
+      real(kind=real8), SAVE  ::  EarthR = 6371.229e3      ! Earth   Radius                 !            m
+      real(kind=real8), SAVE  ::  DirAxX                   ! x-Axis  Direction              !   90       degrees is the most natural choice
+      real(kind=real8), SAVE  ::  sh_MAX                   ! Highest Domain  Grid  Point    !        
+      real(kind=real8), SAVE  ::  dzaMIN                   ! Thinest Atmosph.Layer Thickness!        
+
+      character(len=3), dimension(0:12)  ::  LabMon  !
+      data LabMon /'---','Jan','Feb','Mar','Apr','May','Jun'           &
+     &                  ,'Jul','Aug','Sep','Oct','Nov','Dec'/
+
+      integer, SAVE         , dimension(0:12)  ::  njYear  ! Nb of Days since Begin of Year !
+      data njYear / 0   ,   0 ,  31 ,  59 ,  90 , 120 , 151            &
+     &                  , 181 , 212 , 243 , 273 , 304 , 334/
+
+      integer, SAVE         , dimension(0:12)  ::  njLeap  ! Nb of added Days for Leap Year !
+      data njLeap / 0   ,   0 ,   0 ,   1 ,   1 ,   1 ,   1            &
+     &                  ,   1 ,   1 ,   1 ,   1 ,   1 ,   1/
+
+
+!     CAUTION: values in the 3rd column are purely indicative
+
+      end module Mod_PHY____dat
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY____grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY____grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY____grd.f90	(revision 2160)
@@ -0,0 +1,75 @@
+      module Mod_PHY____grd
+
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_PHY____grd contains the characteristics of the grid for   |
+!            MAR PHYsics                                                   |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Sat 16-Feb-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      logical :: FlagDALLOC = .FALSE.
+
+      integer, SAVE :: YearTU   !
+      integer, SAVE :: Mon_TU   !
+      integer, SAVE :: Day_TU   !
+      integer, SAVE :: HourTU   ! Hour, Universal Time
+      integer, SAVE :: MinuTU   !
+      integer, SAVE :: Sec_TU   !
+
+      integer, SAVE :: it_EXP   ! Nb of iterations    since the beginning of the EXPeriment
+      integer, SAVE :: it_RUN   ! Nb of iterations    since the beginning of the RUN (job)
+
+      integer, SAVE :: mxp      ! Nb of interior      Grid Points, x-Direction
+      integer, SAVE :: mxpp     ! Nb of interior      Grid Points, x-Direction + 1
+      integer, SAVE :: myp      ! Nb of interior      Grid Points, y-Direction
+      integer, SAVE :: mypp     ! Nb of interior      Grid Points, y-Direction + 1
+      integer, SAVE :: ixp1     ! 1er pt en x de la grille dynamique utile dans grille physique
+      integer, SAVE :: jyp1     ! 1er pt en y de la grille dynamique utile dans grille physique
+      integer, SAVE :: kcolp    ! Nb of interior      Vertical Columns (mxp * myp)        
+      integer, SAVE :: mzp      ! Nb of Atmospheric   Levels
+      integer, SAVE :: mzpp     ! Nb of Atmospheric   Levels                   + 1
+
+      integer, SAVE                                        :: i_x0
+      integer, SAVE                                        :: j_y0
+      integer, SAVE                                        :: ikl0
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: lat__r      !     Latitude                    [radian]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: sinLat      ! sin(Latitude)                        [-]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: cosLat      ! cos(Latitude)                        [-]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: lon__r      !     Longitude                   [radian]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: lon__h      !     Longitude                     [hour]
+
+      real(kind=real8), SAVE                               :: timeTU      ! Time   [HOURS since 1901-01-15 00:00:00]
+      real(kind=real8), SAVE                               :: dxHOST      ! dx
+      real(kind=real8), SAVE                               :: dx2inv      ! 1 / (2 dx)
+      real(kind=real8), SAVE                               :: dy2inv      ! 1 / (2 dy)
+      real(kind=real8), SAVE                               :: pt__DY      ! Model Pressure Top                 [kPa]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    ::  sigma      ! Vertical Coord. (normalized Pressure)
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    ::  sigmi      !(sigma(k-1  )+sigma(k    )) / 2 
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: dsigma      ! sigma(k+1  )-sigma(k    )
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: dsigmi      ! sigma(k+1/2)-sigma(k-1/2)
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)    :: hsigma      ! Height of atmospheric layers      [magl]
+
+      integer, SAVE,          ALLOCATABLE, dimension(:)    :: k1m         ! k - 1
+      integer, SAVE,          ALLOCATABLE, dimension(:)    :: k1p         ! k + 1
+      integer, SAVE,          ALLOCATABLE, dimension(:)    :: k2m         ! k - 2
+
+      integer, SAVE,          ALLOCATABLE, dimension(:)    :: ii__AP      ! WORK   point   i Coordinate
+      integer, SAVE,          ALLOCATABLE, dimension(:)    :: jj__AP      ! WORK   point   i Coordinate
+      integer, SAVE,          ALLOCATABLE, dimension(:,:)  :: ikl_AP      ! WORK   point vec Coordinate
+
+
+
+      end module Mod_PHY____grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_PHY____kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_PHY____kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_PHY____kkl.f90	(revision 2160)
@@ -0,0 +1,41 @@
+      module Mod_PHY____kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Fri 14-Jun-2013  MAR |
+!     module Mod_PHY____kkl contains the main              variables of    |
+!            MAR PHYsical   Parameterizations                              |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,           Fri 14-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+! PHY    INPUT        Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    :: sh__AP        !  Topography          [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    :: sha_AP        !  Topography Anomaly  [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    :: slopAP        !  Topography Slope    [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    :: sloxAP        !  Topography Slope, x [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    :: sloyAP        !  Topography Slope, y [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)  :: MMskAP        !  Mountain   Mask     [-]
+
+
+! PHY    INPUT/OUTPUT Variables
+! -----------------------------
+
+
+
+! PHY    OUTPUT       Variables
+! -----------------------------
+
+
+      end module Mod_PHY____kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_Real.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_Real.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_Real.f90	(revision 2160)
@@ -0,0 +1,7 @@
+module Mod_Real
+
+  IMPLICIT NONE
+  INTEGER, PARAMETER :: real4 = selected_real_kind(6,37)
+  INTEGER, PARAMETER :: real8 = selected_real_kind(15,307)
+  PUBLIC
+end module Mod_Real
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLBSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLBSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLBSn.f90	(revision 2160)
@@ -0,0 +1,59 @@
+      module Mod_SISVATLBSn
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLBSn contains local variables of SISVAT_BSn         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)    ::  Mobile                        !
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  SaltSI                        ! Snow Drift Index
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  sdrift                        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  xdrift                        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  zdrift                        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  tdepos                        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  zdepos                        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dbsaux                        ! Drift Amount   (Dummy Variable)
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)    ::  isagr1                        ! 1st     Layer History
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)    ::  isagr2                        ! 2nd     Layer History
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  WEagre                        ! Snow Water Equivalent Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Agrege                        ! 1. when Agregation constrained
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dzagr1                        ! 1st     Layer Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dzagr2                        ! 2nd     Layer Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  T_agr1                        ! 1st     Layer Temperature
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  T_agr2                        ! 2nd     Layer Temperature
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  roagr1                        ! 1st     Layer Density
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  roagr2                        ! 2nd     Layer Density
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etagr1                        ! 1st     Layer Water Content
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etagr2                        ! 2nd     Layer Water Content
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G1agr1                        ! 1st     Layer Dendricity/Spher.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G1agr2                        ! 2nd     Layer Dendricity/Spher.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G2agr1                        ! 1st     Layer Sphericity/Size
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  G2agr2                        ! 2nd     Layer Sphericity/Size
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  agagr1                        ! 1st     Layer Age
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  agagr2                        ! 2nd     Layer Age
+
+
+
+      end module Mod_SISVATLBSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLGSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLGSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLGSn.f90	(revision 2160)
@@ -0,0 +1,33 @@
+      module Mod_SISVATLGSn
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLGSn contains local variables of SISVAT_GSn         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  ro_dry        ! Dry Density            [g/cm3]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  etaSno        ! Liquid Water Content   [g/cm2]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  SnMass        ! Snow   Mass            [kg/m2]
+
+
+      end module Mod_SISVATLGSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSBL.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSBL.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSBL.f90	(revision 2160)
@@ -0,0 +1,38 @@
+      module Mod_SISVATLSBL
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLSBL contains local variables of SISVATeSBL         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  VVaSBL          ! effective SBL wind speed
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dTa_Ts          ! effective SBL Temperature diff.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  LMOmom          ! Monin-Obukhov Scale Momentum
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  CDm             ! Drag Coefficient, Momentum
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  CDs             ! Drag Coefficient, Blown **
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  :: rCDs             ! Drag Coefficient, Blown **
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  CDh             ! Drag Coefficient, Scalar
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Richar          ! Richardson Number
+
+
+      end module Mod_SISVATLSBL
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSIc.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSIc.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSIc.f90	(revision 2160)
@@ -0,0 +1,33 @@
+      module Mod_SISVATLSIc
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLSIc contains local variables of SISVAT_SIc         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Local Variables
+! ===============
+
+
+      IMPLICIT NONE
+
+
+
+! OUTPUT/Verification: SeaIce Conservation
+! #m2 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIvAcr          ! Sea-Ice      Vertical Acretion
+
+
+      end module Mod_SISVATLSIc
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSnO.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSnO.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLSnO.f90	(revision 2160)
@@ -0,0 +1,39 @@
+      module Mod_SISVATLSnO
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLSnO contains local variables of SISVAT SnOpt       |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  coalb1                ! weighted Coalbedo, Vis.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  coalb2                ! weighted Coalbedo, nIR 1
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  coalb3                ! weighted Coalbedo, nIR 2
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  sExt_1                ! Extinction Coeff., Vis.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  sExt_2                ! Extinction Coeff., nIR 1
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  sExt_3                ! Extinction Coeff., nIR 2
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  SnOpSV                ! Snow Grain optical Size
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  alb1sv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  alb2sv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  alb3sv
+
+
+      end module Mod_SISVATLSnO
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLTSo.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLTSo.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLTSo.f90	(revision 2160)
@@ -0,0 +1,61 @@
+      module Mod_SISVATLTSo
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLTSo contains local variables of SISVAT_TSo         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Tsisva
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Fsisva       
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dza__1       
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  mu_sno        !     Snow thermal Conductivity
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  mu__dz        ! mu_(eta,sno)   / dz
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  dtC_sv        ! dt      / C
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  IRs__D        ! UpwardIR Previous Iter.Contr.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dIRsdT        ! UpwardIR           T Derivat.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  f_HSHL        ! Factor common to HS and HL
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dRidTs        ! d(Rib)/d(Ts)
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  HS___D        ! Sensible Heat Flux Atm.Contr.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  f___HL        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  HL___D        ! Latent   Heat Flux Atm.Contr.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  TSurf0        ! Previous Surface Temperature
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  qsatsg        ! Soil   Saturat. Spec. Humidity
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dqs_dT        ! d(qsatsg)/dTv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Psi           ! 1st Soil Layer Water Potential
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  RHuSol        ! Soil Surface Relative Humidity
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  RHu_av        ! Soil Surface Relative Humidity
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_A        ! A Diagonal
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_B        ! B Diagonal
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_C        ! C Diagonal
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Term_D        !   Independant Term
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__P        ! P Auxiliary Variable
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__Q        ! Q Auxiliary Variable
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etaBAK        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etaNEW        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etEuBk        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  fac_dt        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  faceta        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  PsiArg        !
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  SHuSol        !
+
+
+      end module Mod_SISVATLTSo
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLTVg.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLTVg.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLTVg.f90	(revision 2160)
@@ -0,0 +1,39 @@
+      module Mod_SISVATLTVg
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLTVg contains local variables of SISVAT_TVg         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  ETVg_d          ! VegetationPower, Forcing
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Tveg_0          ! Canopy Temperature, Previous t
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dIRdTv          ! InfraRed  NET(t), Derivative(t)
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dHSdTv          ! Sensible Heat FL. Derivative(t)
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dHLdTv          ! Latent   Heat FL. Derivative(t)
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dEvpdT          ! Evapo(transpi)ration Derivative
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dEvTdT          ! Evapo(transpi)ration Derivative
+
+
+      end module Mod_SISVATLTVg
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLVgO.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLVgO.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLVgO.f90	(revision 2160)
@@ -0,0 +1,35 @@
+      module Mod_SISVATLVgO
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLVgO contains local variables of SISVAT VgOptP      |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  k___sv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  A0__sv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  gamasv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Sigcsv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  C1__sv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  C2__sv
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  criLAI
+
+
+      end module Mod_SISVATLVgO
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLmmm.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLmmm.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLmmm.f90	(revision 2160)
@@ -0,0 +1,78 @@
+      module Mod_SISVATLmmm
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLmmm contains local variables of SISVAT main        |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+! Non Local
+! ---------
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  TBr_sv          ! Brightness Temperature
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  IRdwsv          ! DOWNward   IR Flux
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  IRupsv          ! UPward     IR Flux
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Bdzssv          ! Buffer Snow Layer Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  z_snsv          ! Snow-Ice, current Thickness
+
+! Energy         Budget
+! ~~~~~~~~~~~~~~~~~~~~~
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  ETVg_d          ! VegetationPower, Forcing
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_0          ! Snow Energy, befor Phase Change
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_1          ! Snow Energy, after Phase Change
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_d          ! Energy in Excess
+
+! OUTPUT/Verification: H2O    Conservation
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Wats_0          ! Soil Water,  before Forcing
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Wats_1          ! Soil Water,  after  Forcing
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Wats_d          ! Soil Water,         Forcing
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIsubl          ! Snow Sublimed/Deposed Mass
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SImelt          ! Snow Melted           Mass
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIrnof          ! Local Surficial Water + Run OFF
+
+! OUTPUT/Verification: SeaIce Conservation
+! #m2 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIvAcr          ! Sea-Ice      Vertical Acretion
+
+
+! Local
+! -----
+
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  IcIndx          ! No   Ice               Mask
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  FallOK          ! Snow Contribution to the Canopy
+
+! Energy and Mass Budget
+! ~~~~~~~~~~~~~~~~~~~~~~
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    Enrsvd        ! Soil+Vegetat  Power  Forcing
+
+                                                                         ! H2O    Conservation
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    Watsv0        ! Soil+Vegetat, before Forcing
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    Watsvd        ! Soil+Vegetat  Water  Forcing
+
+                                                                         ! * Mass Conservation
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    SIWm_0,SIWm_1 ! Snow Initial/Final        Mass
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    SIWa_i,SIWa_f ! Snow Initial/Final ATM Forcing
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::    SIWe_i,SIWe_f ! Snow Initial/Final BLS Forcing
+
+
+      end module Mod_SISVATLmmm
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqSn.f90	(revision 2160)
@@ -0,0 +1,53 @@
+      module Mod_SISVATLqSn
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLqSn contains local variables of SISVAT_qSn         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+! OUTPUT
+! ------
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_d          ! Energy in Excess, initial
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_0          ! Snow Energy, befor Phase Change
+! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn01          ! Snow Energy, after Phase Change
+! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn02          ! Snow Energy, after Phase Change
+                                                                       !              .AND. Last Melting 
+! #e1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EqSn_1          ! Snow Energy, after Phase Change
+                                                                       !              .AND. Mass Redistr.
+! OUTPUT/Verification: * Mass Conservation
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIsubl          ! Snow Deposed Mass
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SImelt          ! Snow Melted  Mass
+! #m1 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SIrnof          ! Local Surficial Water + Run OFF
+
+
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  noSnow          ! Nb of Layers Updater
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  EExdum          ! Energy in Excess when no Snow
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzMelt          ! Melted    Thickness          [m]
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WqSn_0          ! Snow Water+Forcing  Initial
+! #e5 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WqSn_1          ! Snow Water+Forcing, Final
+
+
+      end module Mod_SISVATLqSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqSo.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqSo.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqSo.f90	(revision 2160)
@@ -0,0 +1,53 @@
+      module Mod_SISVATLqSo
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLqSo contains local variables of SISVAT_qSo         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+! OUTPUT
+! ------
+
+! OUTPUT/Verification: H2O    Conservation
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Wats_0        ! Soil Water,  before forcing
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Wats_1        ! Soil Water,  after  forcing
+! #m0 real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Wats_d        ! Soil Water          forcing
+
+
+! #TB real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  etBump        ! Bumps Layer Averaged Humidity
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  SoRnOF        ! Soil     Run    OFF
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Dhydtz        ! Dhydif * dt / dz           [m]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_A        ! A Diagonal
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_B        ! B Diagonal
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Diag_C        ! C Diagonal
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Term_D        !   Independant Term
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__P        ! P Auxiliary Variable
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  Aux__Q        ! Q Auxiliary Variable
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  etaaux        ! Soil Water Content     [m3/m3]
+
+! OUTPUT/Verification: H2O    Conservation
+! #mw real(kind=real8), SAVE                               ::  hourwr
+! #mw real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  Evapor        !
+
+
+      end module Mod_SISVATLqSo
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqVg.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqVg.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLqVg.f90	(revision 2160)
@@ -0,0 +1,32 @@
+      module Mod_SISVATLqVg
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLqVg contains local variables of SISVAT_qVg         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  PlantW          ! Plant  Water
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dPdPsi          ! Plant  Water psi Derivative
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  psiv_0          ! Canopy Temperature,  Previous t
+
+
+      end module Mod_SISVATLqVg
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVATLzSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVATLzSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVATLzSn.f90	(revision 2160)
@@ -0,0 +1,54 @@
+      module Mod_SISVATLzSn
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVATLzSn contains local variables of SISVAT_zSn         |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  NLay_s          ! Split Snow Layer         Switch
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isagr1          ! 1st     Layer History
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isagr2          ! 2nd     Layer History
+      integer, SAVE         , ALLOCATABLE, dimension(:,:)  ::  isn1            ! 1st layer to stagger
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  WEagre          ! Snow Water Equivalent Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzthin          ! Thickness of the thinest layer
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  Agrege          ! 1. when Agregation constrained
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzagr1          ! 1st     Layer Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzagr2          ! 2nd     Layer Thickness
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  T_agr1          ! 1st     Layer Temperature
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  T_agr2          ! 2nd     Layer Temperature
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  roagr1          ! 1st     Layer Density
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  roagr2          ! 2nd     Layer Density
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  etagr1          ! 1st     Layer Water Content
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  etagr2          ! 2nd     Layer Water Content
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G1agr1          ! 1st     Layer Dendricity/Spher.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G1agr2          ! 2nd     Layer Dendricity/Spher.
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G2agr1          ! 1st     Layer Sphericity/Size
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  G2agr2          ! 2nd     Layer Sphericity/Size
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  agagr1          ! 1st     Layer Age
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  agagr2          ! 2nd     Layer Age
+
+! #vz real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dz_ref          ! Snow Reference Discretization
+! #vz real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  dzwdif          !
+
+
+      end module Mod_SISVATLzSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_BDu.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_BDu.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_BDu.f90	(revision 2160)
@@ -0,0 +1,32 @@
+     module Mod_SISVAT_BDu
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_BDu                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_BDu  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_BDu    specific variables (and constants)
+! ================================================
+
+      logical           ::  logust = .false.
+
+      real(kind=real8), SAVE  ::  etaust(0:nsot)
+
+
+
+     end module Mod_SISVAT_BDu
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_BSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_BSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_BSn.f90	(revision 2160)
@@ -0,0 +1,33 @@
+     module Mod_SISVAT_BSn
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_BSn                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_BSn  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_BSn    specific variables (and constants)
+! ================================================
+
+      logical           ::  BlowIn = .false.
+
+      real(kind=real8), SAVE  ::  FacSBS,FacUBS                 !
+      real(kind=real8), SAVE  ::  Por_BS                        ! Snow       Porosity
+      real(kind=real8), SAVE  ::  SheaBS                        !
+      real(kind=real8), SAVE  ::  rCd10n                        ! GM97:   assumed neutral stabil.
+
+
+     end module Mod_SISVAT_BSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_CdP.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_CdP.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_CdP.f90	(revision 2160)
@@ -0,0 +1,38 @@
+     module Mod_SISVAT_CdP
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_CdP                            Fri  1-Feb-2013  MAR |
+!    module Mod_SISVAT_CdP  contains specific (Col de Porte) constants of  |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Col de Porte specific Constants
+! ===============================
+
+! Fractions of total solar irradiances in 3 spectral intervals
+! ------------------------------------------------------------
+
+      real(kind=real8), SAVE  ::  Dr_1SN = 0.59,   Dr_2SN = 0.31,   Dr_3SN = 0.10  ! Direct  Radiation
+      real(kind=real8), SAVE  ::  Df_1SN = 0.95,   Df_2SN = 0.05,   Df_3SN = 0.00  ! Diffuse Radiation, Clear  Sky
+      real(kind=real8), SAVE  ::  Dfc1SN = 0.66,   Dfc2SN = 0.27,   Dfc3SN = 0.07  ! Diffuse Radiation, Cloudy Sky
+!                           0.3--0.8micr.m   0.8--1.5micr.m   1.5--2.8micr.m
+!                           Fractions of total solar irradiance in 3 spectral intervals
+!                          (see Eric Martin Sept. 1996, CROCUS, Subroutine METEO)
+
+      real(kind=real8), SAVE  ::  DirSol,DifSol,TotSol,Clouds
+
+
+
+     end module Mod_SISVAT_CdP
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_GSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_GSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_GSn.f90	(revision 2160)
@@ -0,0 +1,34 @@
+     module Mod_SISVAT_GSn
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_GSn                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_GSn  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_GSn    specific variables (and constants)
+! ================================================
+
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp real(kind=real8), SAVE  ::  G_curr(18),Gcases(18)
+
+! OUTPUT/Verification: Snow   Properties
+! #vs real(kind=real8), SAVE  ::  D__MAX = 4.00
+
+
+
+     end module Mod_SISVAT_GSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_SIc.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_SIc.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_SIc.f90	(revision 2160)
@@ -0,0 +1,32 @@
+     module Mod_SISVAT_SIc
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_SIc                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_SIc  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_SIc    specific variables (and constants)
+! ================================================
+
+      logical           ::  SIcINI = .false.
+
+      real(kind=real8), SAVE  ::  Crodzw
+      real(kind=real8), SAVE  ::  Lro__I
+
+
+
+     end module Mod_SISVAT_SIc
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_SnOptP.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_SnOptP.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_SnOptP.f90	(revision 2160)
@@ -0,0 +1,32 @@
+     module Mod_SISVAT_SnOptP
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_SnOptP                         Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_SnOptP contains specific variables (and constants)  |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_SnOptP specific variables (and constants)
+! ================================================
+
+! OUTPUT/Verification: Albedo Parameteriz.
+! #va logical           ::  aw_opn = .false.                   ! IO       Switch
+
+
+
+
+     end module Mod_SISVAT_SnOptP
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_TRV.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_TRV.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_TRV.f90	(revision 2160)
@@ -0,0 +1,75 @@
+      module Mod_SISVAT_TRV
+
+
+!--------------------------------------------------------------------------+
+!                                                     Thu 28-Feb-2013  MAR |
+!     module Mod_SISVAT_TRV contains the constants of the                  |
+!                radiative tranfer model through Vegetation                |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Wed 30-Jan-2013      |
+!                    modified by H. Gallee,           Thu 28-Feb-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global   Variables
+! ==================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+
+
+      IMPLICIT NONE
+
+
+
+! Internal Variables
+! ==================
+
+      integer, SAVE  ::   ivg
+
+
+      real(kind=real8), SAVE    ::  reVisL(0:nvgt)      ! Reflectivity  / Visible / Live Leaves
+      real(kind=real8), SAVE    ::  renIRL(0:nvgt)      ! Reflectivity  / Near IR / Live Leaves
+      real(kind=real8), SAVE    ::  trVisL(0:nvgt)      ! Transmitivity / Visible / Live Leaves
+      real(kind=real8), SAVE    ::  trnIRL(0:nvgt)      ! Transmitivity / Near IR / Live Leaves
+      real(kind=real8), SAVE    ::  reVisD(0:nvgt)      ! Reflectivity  / Visible / Dead Leaves
+      real(kind=real8), SAVE    ::  renIRD(0:nvgt)      ! Reflectivity  / Near IR / Dead Leaves
+      real(kind=real8), SAVE    ::  trVisD(0:nvgt)      ! Transmitivity / Visible / Dead Leaves
+      real(kind=real8), SAVE    ::  trnIRD(0:nvgt)      ! Transmitivity / Near IR / Dead Leaves
+
+      DATA (reVisL(ivg),renIRL(ivg),trVisL(ivg),trnIRL(ivg),           &
+     &      reVisD(ivg),renIRD(ivg),trVisD(ivg),trnIRD(ivg),ivg=0,nvgt)&
+
+!     reVisL renIRL trVisL trnIRL reVisD renIRD trVisD trnIRD    SVAT     CLASSES
+!     ------ ------ ------ ------ ------ ------ ------ --------+ ----------------
+     &/0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  0 NO VEGETATION
+     & 0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  1 CROPS LOW
+     & 0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  2 CROPS MEDIUM
+     & 0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  3 CROPS HIGH
+     & 0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  4 GRASS LOW
+     & 0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  5 GRASS MEDIUM
+     & 0.11,  0.58,  0.07,  0.25,  0.36,  0.58,  0.22,  0.38, &!  6 GRASS HIGH
+     & 0.10,  0.45,  0.05,  0.25,  0.16,  0.39,  0.01,  0.01, &!  7 BROADL LOW
+     & 0.10,  0.45,  0.05,  0.25,  0.16,  0.39,  0.01,  0.01, &!  8 BROADL MEDIUM
+     & 0.10,  0.45,  0.05,  0.25,  0.16,  0.39,  0.01,  0.01, &!  9 BROADL HIGH
+     & 0.07,  0.35,  0.05,  0.10,  0.10,  0.39,  0.01,  0.01, &! 10 NEEDLE LOW
+     & 0.07,  0.35,  0.05,  0.10,  0.10,  0.39,  0.01,  0.01, &! 11 NEEDLE MEDIUM
+     & 0.07,  0.35,  0.05,  0.10,  0.10,  0.39,  0.01,  0.01/  ! 12 NEEDLE HIGH
+
+
+
+      real(kind=real8), SAVE    ::  reVisS = 0.85       ! Reflectivity  / Visible / Canopy Snow
+      real(kind=real8), SAVE    ::  renIRS = 0.85       ! Reflectivity  / Near IR / Canopy Snow
+      real(kind=real8), SAVE    ::  trVisS = 0.00       ! Transmitivity / Visible / Canopy Snow
+      real(kind=real8), SAVE    ::  trnIRS = 0.00       ! Transmitivity / Near IR / Canopy Snow
+!     REMARK: Possible Refinement by taking actual Surface Snow Reflectivities
+!     ^^^^^^
+
+      real(kind=real8), SAVE    ::  snCaMx = 0.5        ! Canopy Snow Thickness for having Snow
+                                                  ! Snow Reflectivity and Transmitivity
+      real(kind=real8), SAVE    ::  CriStR = 25.        ! Critical Radiation Stomatal Resistance
+
+
+
+      end module Mod_SISVAT_TRV
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_aux.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_aux.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_aux.f90	(revision 2160)
@@ -0,0 +1,40 @@
+     module Mod_SISVAT_aux
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_aux                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_aux  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+
+
+      IMPLICIT NONE
+
+
+! SISVAT .main. specific variables (and constants)
+! ================================================
+
+      character(len= 1) ::  SepLab                        ! OUTPUT ASCII File Labels
+      character(len= 6) ::  FilLab                        !
+
+      integer, SAVE           ::  nwUNIT                        ! OUTPUT File  Unit Number (New)
+
+! Energy and Mass Budget
+! ~~~~~~~~~~~~~~~~~~~~~~
+! #e1 integer, SAVE           ::  noEBal                        ! Energy Imbalances Counter
+
+                                                          ! H2O    Conservation
+! #m0 integer, SAVE           ::  noWBal                        ! Water  Imbalances Counter
+
+                                                          ! * Mass Conservation
+! #m1 integer, SAVE           ::  noSBal                        ! Water  Imbalances Counter
+
+     end module Mod_SISVAT_aux
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_cdf.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_cdf.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_cdf.f90	(revision 2160)
@@ -0,0 +1,43 @@
+      module Mod_SISVAT_cdf
+
+!--------------------------------------------------------------------------+
+!                                                     Thu 16-May-2013  MAR |
+!     module Mod_SISVAT_cdf contains Surface Energy Balance   Variables of |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                OUTPUT on a netcdf file by SISVAT stand alone version     |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 16-May-2013      |
+!           Last Modification by H. Gallee,           Thu 16-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! SISVAT INPUT        Variables
+! -----------------------------
+
+
+
+! SISVAT INPUT/OUTPUT Variables
+! -----------------------------
+
+
+
+! SISVAT OUTPUT       Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  SOsoNC_xyn  ! Absorbed Solar    Radiation               [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  IRsoNC_xyn  ! Absorbed IR       Radiation               [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  HSsoNC_xyn  ! Absorbed Sensible Heat Flux               [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  HLsoNC_xyn  ! Absorbed Latent   Heat Flux               [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  HLs_NC_xyn  ! Evaporation                          [mm w.e./s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  HLv_NC_xyn  ! Transpiration                             [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  eta_NC_xyn  ! Soil              Humidity               [m3/m2]
+
+
+      end module Mod_SISVAT_cdf
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_ctr.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_ctr.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_ctr.f90	(revision 2160)
@@ -0,0 +1,38 @@
+     module Mod_SISVAT_ctr
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_ctr                            Wed 15-May-2013  MAR |
+!    module Mod_SISVAT_ctr  contains specific constants and variables for  |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Sat 23-Feb-2013      |
+!                    modified by H. Gallee,           Wed 15-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Col de Porte specific Constants
+! ===============================
+
+      logical             ::  InpSBC               ! INPUT of Surface Forcing            Switch
+      logical             ::  InpSWD               ! INPUT is SW downward, not absorbed, (y / n)
+      logical             ::  VegMod               ! Vegetation   Activation             Switch
+      logical             ::  SnoMod               !         Snow Model                  Switch
+      logical             ::  BloMod               ! Blowing Snow Model                  Switch
+      logical             ::  ColPrt               ! Col de Porte                        Switch
+      logical             ::  Garrat               ! Garrat SBL parameterization         Switch
+      logical             ::  SVaKzT               ! Turb.Diffus. of Energy on each col. Switch
+      logical             ::  SVaUBC               ! Von Neuman Vertical Bound.Cond.     Switch
+
+
+      end module Mod_SISVAT_ctr
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dat.f90	(revision 2160)
@@ -0,0 +1,263 @@
+      module Mod_SISVAT_dat
+
+
+!--------------------------------------------------------------------------+
+!                                                     Sun 30-Jun-2013  MAR |
+!     module Mod_SISVAT_dat contains the constants of the                  |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!                                                                          |
+!   CAUTION: Soil Hydraulic Parameters: Please VERIFY ICE DATA             |
+!   ^^^^^^^                                                                |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #fb: Fractions of total Solar Irradiance (Feagle and Businger 1981)  |
+!                                                                          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Wed 30-Jan-2013      |
+!                    modified by H. Gallee,           30-Jun-May-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global   Variables
+! ==================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+
+
+      IMPLICIT NONE
+
+
+
+! Internal Variables
+! ==================
+
+      integer, SAVE                 ::   ivg,iso
+
+
+
+! SISVAT Global Variables
+! =======================
+
+      real(kind=real8), SAVE        ::   eps_21 = 1.e-21         ! Arbitrary  very small value
+
+      real(kind=real8), SAVE        ::   slop1d = 0.00           ! Local Slope (1-d simulations)
+      real(kind=real8), SAVE        ::   Adz0dt                  ! Decay of Angle(Wind,Sastrugi) Influence on z0
+
+      real(kind=real8), SAVE        ::   WatIsv =  273.16        ! used in Evaluation of Saturation Specific Humidity over Ice (see Dudhia)
+      real(kind=real8), SAVE        ::   ExpIsv = 6150.00        ! used in Evaluation of Saturation Specific Humidity over Ice (see Dudhia)
+
+
+
+! Snow
+! ----
+
+      integer, SAVE, dimension(5)   ::   istdSV                  ! Snow History
+      data                        (istdSV(iso),iso=1,5) /1,2,3,4,5/
+                                                           ! 1:             faceted cristal
+                                                           ! 2: liq.watr/no faceted cristal befor
+                                                           ! 3: liq.watr/   faceted cristal befor
+
+      real(kind=real8), SAVE   ::         Cn_dSV = 2105.         ! Snow Heat Capacity          [J/kg/K] 
+                                                           ! Loth et al. 1993, JGR 98 D6
+      real(kind=real8), SAVE   ::         SMndSV =    1.00       ! New Snow Layer Min.Thickn. [mm w.e.]
+      real(kind=real8), SAVE   ::         G1_dSV =   99.00       ! Conversion 0/99-->0/1 
+                                                           ! Sphericity/Dendricity
+
+                                                           ! Optical Diameter of:
+      real(kind=real8), SAVE   ::         DDcdSV =    1.00       ! Dendritic     Crystals    [0.0001 m]
+      real(kind=real8), SAVE   ::         DFcdSV =    4.00       ! Young Faceted Crystals    [0.0001 m]
+      real(kind=real8), SAVE   ::         DScdSV =    3.00       ! Small         Crystals    [0.0001 m]
+
+                                                           ! Actual  Diameter of:
+      real(kind=real8), SAVE   ::         ADSdSV =    4.00       ! Small         Crystals    [0.0001 m]
+
+
+! Fractions of total Solar Irradiance  in 3 spectral Intervals
+! (see Feagle and Businger 1981, Int.Geoph.Ser. 25, p.215-222)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #fb real(kind=real8), SAVE   ::         So1dSV =    0.606      !                 0.3--0.8mim Interval
+! #fb real(kind=real8), SAVE   ::         So2dSV =    0.301      !                 0.8--1.5mim Interval
+! #fb real(kind=real8), SAVE   ::         So3dSV =    0.093      !                 1.5--2.8mim Interval
+
+      real(kind=real8), SAVE   ::         So1dSV =    0.580      ! Tuning ETH camp 0.3--0.8mim Interval
+      real(kind=real8), SAVE   ::         So2dSV =    0.320      ! Tuning ETH camp 0.8--1.5mim Interval
+      real(kind=real8), SAVE   ::         So3dSV =    0.100      ! Tuning ETH camp 1.5--2.8mim Interval
+
+      real(kind=real8), SAVE   ::         aI1dSV =    0.40       ! Minimum bare ICE albedo          [-]
+      real(kind=real8), SAVE   ::         aI2dSV =    0.45       ! Maximum bare ICE albedo          [-]
+      real(kind=real8), SAVE   ::         aI3dSV =    0.65       ! ICE lense albedo at 800 kg/m3    [-]
+                                                           ! and minimum pure snow albedo
+
+! Water in Snow
+! -------------
+      real(kind=real8), SAVE   ::         ws0dSV =    0.07       ! Irreducible Water Saturation in Snow
+                                                           ! Coleou et al., 1998, A.Gla.26, 64-68
+      real(kind=real8), SAVE   ::         roCdSV =  800.00       ! Pore Hole Close OFF Density  [kg/m3]
+                                                           ! Greuell & Konzelmann (1994)
+                                                           ! Glob.Plan.Change 9, 4.5 p.100
+      real(kind=real8), SAVE   ::         ru_dSV =  200.00       ! Surficial Water Scale Factor [kg/m2]
+
+
+! Ice
+! ---
+
+      real(kind=real8), SAVE   ::         CdidSV =    2.10       ! Conductivity of pure  Ice    [W/m/K]
+
+
+
+! Vegetation                (SVAT Classification)
+! -----------------------------------------------
+
+      real(kind=real8), SAVE   ::         DH_dSV(0:nvgt)         ! Displacement            Height   [m]
+      real(kind=real8), SAVE   ::         Z0mdSV(0:nvgt)         ! Roughness  Length for Momentum   [m]
+      real(kind=real8), SAVE   ::         StodSV(0:nvgt)         ! Minimum    Stomatal Resistance [s/m]
+      real(kind=real8), SAVE   ::         PR_dSV(0:nvgt)         ! Internal Plant      Resistance   [s]
+      real(kind=real8), SAVE   ::         rbtdSV(0:nvgt)         ! Root Fraction Beta Coefficient   [-]
+
+      data     (DH_dSV(ivg),                              &! Displacement            Height   [m]
+     &                 Z0mdSV(ivg),                       &! Roughness  Length for Momentum   [m]
+     &                        StodSV(ivg),                &! Minimum    Stomatal Resistance [s/m]
+     &                               PR_dSV(ivg),         &! Internal Plant      Resistance   [s]
+     &                                      rbtdSV(ivg),  &! Root beta coeffient              [-]
+     &                                              ivg=0,nvgt) &
+     &         /0.00,  0.01,5000.,   0.0,   0.000,        &!  0 NO     VEGETATION
+     &          0.07,  0.01,  50.,   0.5e9, 0.961,        &!  1 CROPS      LOW
+     &          0.21,  0.03,  50.,   0.5e9, 0.961,        &!  2 CROPS      MEDIUM
+     &          0.70,  0.10,  50.,   0.5e9, 0.961,        &!  3 CROPS      HIGH
+     &          0.07,  0.01,  50.,   0.5e9, 0.943,        &!  4 GRASS      LOW
+     &          0.21,  0.03,  50.,   0.5e9, 0.964,        &!  5 GRASS      MEDIUM
+     &          0.70,  0.10,  50.,   0.5e9, 0.972,        &!  6 GRASS      HIGH
+     &          1.40,  0.20,  10.,   1.0e9, 0.968,        &!  7 BROADLEAF  LOW
+     &          5.60,  0.80,  10.,   1.0e9, 0.962,        &!  8 BROADLEAF  MEDIUM
+     &         14.00,  2.00,  10.,   1.0e9, 0.962,        &!  9 BROADLEAF  HIGH
+     &          1.40,  0.20,  10.,   1.0e9, 0.971,        &! 10 NEEDLELEAF LOW
+     &          5.60,  0.80,  10.,   1.0e9, 0.976,        &! 11 NEEDLELEAF MEDIUM
+     &         14.00,  2.00,  10.,   1.0e9, 0.976/         ! 12 NEEDLELEAF HIGH
+
+
+      real(kind=real8), SAVE   ::         pscdSV =  250.         ! Critical Leaf Water Potential    [m]
+      real(kind=real8), SAVE   ::         StxdSV = 5000.         ! maXimum  Stomatal   Resistance [s/m]
+      real(kind=real8), SAVE   ::         LAIdSV =    4.         ! maximum  LAI
+
+
+      real(kind=real8), SAVE   ::         f__ust(0:nvgt)         ! 
+
+      data          (f__ust(ivg),      ivg=0,nvgt)        &!
+     &              /1.00,                                &!  0 NO     VEGETATION
+     &               1.20,                                &!  1 CROPS      LOW
+     &               5.00,                                &!  2 CROPS      MEDIUM
+     &              10.00,                                &!  3 CROPS      HIGH
+     &               1.20,                                &!  4 GRASS      LOW
+     &               5.00,                                &!  5 GRASS      MEDIUM
+     &              10.00,                                &!  6 GRASS      HIGH
+     &               5.00,                                &!  7 BROADLEAF  LOW
+     &              10.00,                                &!  8 BROADLEAF  MEDIUM
+     &              12.00,                                &!  9 BROADLEAF  HIGH
+     &              10.00,                                &! 10 NEEDLELEAF LOW
+     &              12.00,                                &! 11 NEEDLELEAF MEDIUM
+     &              50.00                               /  ! 12 NEEDLELEAF HIGH
+
+
+! Soil
+! ----
+
+      real(kind=real8), SAVE   ::         rcwdSV = 4.180e+6      ! Density * Water Specific Heat
+
+! Soil Vertical Discretization
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+      real(kind=real8), SAVE   ::         dz_dSV(-nsol:0)        ! Vertical  Discretization
+      data                         (dz_dSV(iso),iso=-4,0) &!
+     &                     /0.72,0.20,0.060,0.019,0.001/   ! Layer's Thickness
+
+      real(kind=real8), SAVE   ::         zz_dSV                 ! Soil      Thickness
+
+! Soil Hydraulic Parameters (USDA Classification)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+      integer,       parameter ::         nsot   =   12
+
+      real(kind=real8), SAVE   ::         etadSV(0:nsot)         ! Water Content at Saturation  [kg/kg]
+      real(kind=real8), SAVE   ::         psidSV(0:nsot)         ! Water Succion at Saturation      [m]
+      real(kind=real8), SAVE   ::         Ks_dSV(0:nsot)         ! Hydraulic Conductivity
+                                                                 !               at Saturation    [m/s]
+      real(kind=real8), SAVE   ::         bCHdSV(0:nsot)         ! Clapp-Hornberger Coefficient b   [-]
+
+      data         (etadSV(iso),                                     &
+     &                        psidSV(iso),                           &
+     &                                  Ks_dSV(iso),                 &
+     &                                            bCHdSV(iso),       &
+     &                                                   iso=0,nsot) &
+     &             / 1.000,    1.000,   0.0e00,     1.00, &!  0 WATER
+     &               0.395,    0.121, 176.0e-6,     4.05, &!  1 SAND
+     &               0.410,    0.090, 156.3e-6,     4.38, &!  2 LOAMY      SAND
+     &               0.435,    0.218,  34.1e-6,     4.90, &!  3 SANDY      LOAM
+     &               0.485,    0.786,   7.2e-6,     5.30, &!  4 SILT       LOAM
+     &               0.451,    0.478,   7.0e-6,     5.39, &!  5            LOAM
+     &               0.420,    0.299,   6.3e-6,     7.12, &!  6 SANDY CLAY LOAM
+     &               0.477,    0.356,   1.7e-6,     7.75, &!  7 SILTY CLAY LOAM
+     &               0.476,    0.630,   2.5e-6,     8.52, &!  8       CLAY LOAM
+     &               0.426,    0.153,   2.2e-6,    10.40, &!  9 SANDY CLAY
+     &               0.492,    0.490,   1.0e-6,    10.40, &! 10 SILTY CLAY
+     &               0.482,    0.405,   1.3e-6,    11.40, &! 11       CLAY
+     &               0.001,    0.001,   0.0e00,     0.02/  ! 12       ICE 
+
+
+      real(kind=real8), SAVE  ::          ustdmn(0:nsot)
+      real(kind=real8), SAVE  ::          claypc(0:nsot)
+
+      data         (ustdmn(iso),                                     &
+     &                        claypc(iso),                           &
+     &                                                   iso=0,nsot) &
+     &             /10.000,  0.0000, &!  0 WATER           !
+     &               0.300,  0.0000, &!  1 SAND            !
+     &               0.300,  0.0920, &!  2 LOAMY      SAND ! Fal99, Table 2
+     &               0.300,  0.1420, &!  3 SANDY      LOAM ! Fal99, Table 2
+     &               0.300,  0.1630, &!  4 SILT       LOAM ! Guess (Interpol.)
+     &               0.300,  0.1840, &!  5            LOAM ! Fal99, Table 2
+     &               0.300,  0.2280, &!  6 SANDY CLAY LOAM ! Guess (Interpol.)
+     &               0.300,  0.2720, &!  7 SILTY CLAY LOAM ! Guess (Interpol.)
+     &               0.300,  0.3160, &!  8       CLAY LOAM ! Fal99, Table 2
+     &               0.300,  0.3750, &!  9 SANDY CLAY      ! Guess (Interpol.)
+     &               0.300,  0.4340, &! 10 SILTY CLAY      ! Guess (Interpol.)
+     &               0.300,  0.4920, &! 11       CLAY      ! Fal99, Table 2
+     &              10.000,  0.0000/  ! 12       ICE       !
+
+
+
+! Water Bodies
+! ------------
+
+      real(kind=real8), SAVE   ::         vK_dSV = 1000.         ! Diffusivity in Water          [m2/s]
+      real(kind=real8), SAVE   ::         SIcMIN =    0.1        ! Sea-Ice Layer Min Thickness      [m]
+      real(kind=real8), SAVE   ::         dzSIce(4)              ! Sea-Ice Vertical  Discretisation [m]
+      data                          dzSIce /0.5,0.05,0.001,0.0/
+      real(kind=real8), SAVE   ::         SIc_OK(2)              ! Sea-Ice Switch
+      data                          SIc_OK /1.0,0.00/ 
+      real(kind=real8), SAVE   ::         TSIdSV =    0.50       ! Sea-Ice Fraction: SST Scale      [K]
+      real(kind=real8), SAVE   ::         OcnMin =    0.05       ! Open Water Min Fraction (S.Hem.) [-]
+      real(kind=real8), SAVE   ::         TocnSI =  270.70       ! Ocn Temp. for Full Sea-Ice Cover [K]
+      real(kind=real8), SAVE   ::         TOF_SV                 ! Ocn Grid Cell Freez.Temperature  [K]
+      real(kind=real8), SAVE   ::         VarSST                 ! Variable (0.) / Fixed    (1.)
+      real(kind=real8), SAVE   ::         FixSST                 ! Fixed    (1.) / Variable (0.) SST
+      real(kind=real8), SAVE   ::         SSTnud                 ! SST Nudging Parameter
+
+
+! Auxiliary Variables
+! -------------------
+
+      integer,       parameter ::  nkhy=50
+
+      real(kind=real8), SAVE   ::  rocsSV( 0:nsot)               ! Soil Contribution to (ro c)_s
+      real(kind=real8), SAVE   ::  etamSV( 0:nsot)               ! Soil Minimum Humidity
+      real(kind=real8), SAVE   ::  s1__SV( 0:nsot)               ! ... X eta**( b+2), DR97(3.36)
+      real(kind=real8), SAVE   ::  s2__SV( 0:nsot)               ! ... X eta**(2b+3), DR97(3.35)
+      real(kind=real8), SAVE   ::  aKdtSV( 0:nsot, 0:nkhy)       ! Khyd=a*eta+b: a * dt
+      real(kind=real8), SAVE   ::  bKdtSV( 0:nsot, 0:nkhy)       ! Khyd=a*eta+b: b * dt
+
+
+
+      end module Mod_SISVAT_dat
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dim.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dim.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dim.f90	(revision 2160)
@@ -0,0 +1,19 @@
+      module Mod_SISVAT_dim
+
+
+      implicit none
+
+
+!  SISVAT Domain Definition
+!  ========================
+
+      integer, parameter  ::  nvgt   = 12
+      integer, parameter  ::  nsol   =  4  
+      integer, parameter  ::  nsno   = 10
+      integer, parameter  ::  nb_Pts =  1
+      integer, parameter  ::  nb_wri =  1
+      integer, parameter  ::  ntaver =  4 ! Nb of Time Steps used in V & dT(a-s) Time Moving Average
+      integer, parameter  ::  ntavez = 20 ! Nb of Time Steps used in z0, r0, ... Time Moving Average
+      integer, parameter  ::  nLimit = 10 ! Nb of Time Steps used in Water Vapor Flux Limit. Average
+
+      end module Mod_SISVAT_dim
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dzS.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dzS.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_dzS.f90	(revision 2160)
@@ -0,0 +1,25 @@
+      module Mod_SISVAT_dzS
+
+      use    Mod_Real
+
+
+      implicit none
+
+
+      integer, SAVE          ,ALLOCATABLE ,dimension(:)   ::  islpSV
+      integer, SAVE          ,ALLOCATABLE ,dimension(:)   ::  isnpSV
+      integer, SAVE          ,ALLOCATABLE ,dimension(:)   ::  islmSV
+
+      real(kind=real8), SAVE                              ::  Implic,Explic
+      real(kind=real8), SAVE                              ::  OcndSV        ! Swab Ocean / Soil Ratio 
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dzmiSV        ! dz_(i-1/2)
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dzi_SV        ! dz_(i-1)/(dz_(i)+dz_(i-1))
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dziiSV        ! dz_(i)  /(dz_(i)+dz_(i-1))
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dtz_SV        ! dt / dz
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dz78SV        ! 7/8 (dz)
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dz34SV        ! 3/4 (dz)
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dz_8SV        ! 1/8 (dz)
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:)   ::  dzAvSV        ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)
+      real(kind=real8), SAVE ,ALLOCATABLE ,dimension(:,:) ::  RF__SV        ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)
+
+      end module Mod_SISVAT_dzS
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_flx.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_flx.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_flx.f90	(revision 2160)
@@ -0,0 +1,39 @@
+     module Mod_SISVAT_flx
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_flx                            Wed 26-Jun-2013  MAR |
+!    module Mod_SISVAT_flx  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
+!                    modified by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_flx    specific variables (and constants)
+! ================================================
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  SOsoKL        ! Absorbed Solar Radiation
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  IRsoKL        ! Absorbed IR    Radiation
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HSsoKL        ! Absorbed Sensible Heat Flux
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HLsoKL        ! Absorbed Latent   Heat Flux
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HLs_KL        ! Evaporation
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)  ::  HLv_KL        ! Transpiration
+
+
+
+     end module Mod_SISVAT_flx
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_gpt.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_gpt.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_gpt.f90	(revision 2160)
@@ -0,0 +1,56 @@
+      module Mod_SISVAT_gpt
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVAT_gpt contains the Grid Point           variables of |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Sat 22-Jun-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+! SISVAT INPUT        Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  sst_SB      ! Ocean  FORCING (SST)                         [K]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  sif_SB      ! Ocean  FORCING (Sea-Ice Fraction)            [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  MaskSV_gpt  ! Land(1)-Sea(0) Mask         (Cell value)     [-]
+
+
+
+! SISVAT INPUT/OUTPUT Variables
+! -----------------------------
+
+
+
+
+! SISVAT OUTPUT       Variables
+! -----------------------------
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  Alb_SV_gpt  ! Surface  Albedo             (Cell average)   [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  EmisSV_gpt  ! LongWave Surface Emissivity (Cell average)   [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  Tas_SV_gpt  ! Surface  Air    Temperature (Cell average)   [K]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  HSenSV_gpt  ! Sensible Heat   Flux (+ => Downward)      [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  HLatSV_gpt  ! Latent   Heat   Flux (+ => Downward)      [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  LMO_SV_gpt  ! Obukhov  Length             (Cell average)   [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  us__SV_gpt  ! Friction Velocity                          [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  uts_SV_gpt  ! Sensible Heat   Flux Turbulent Scale     [K m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  uqs_SV_gpt  ! Latent   Heat   Flux Turbulent Scale [kg/kg m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  WE2aSV_gpt  ! Cumulative H2O  Flux from the Surface  [mm w.e.]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  hFraSV_gpt  ! Frazil   Thickness                           [m]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dpktSV_gpt  ! Reduced  Potential Temperature Tendency   [KX/s]
+
+
+
+      end module Mod_SISVAT_gpt
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_grd.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_grd.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_grd.f90	(revision 2160)
@@ -0,0 +1,52 @@
+      module Mod_SISVAT_grd
+
+
+!--------------------------------------------------------------------------+
+!                                                     Fri  7-Jun-2013  MAR |
+!     module Mod_SISVAT_grd contains the dimensions of the domain of       |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Wed 27-Feb-2013      |
+!                    modified by H. Gallee,           Fri  7-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+
+      integer, SAVE                                       ::  mwp         ! Nb of mosaic in one         Grid Cell
+      integer, SAVE                                       ::  n2          ! Nb of mosaic in one Oceanic Grid Cell (min is 2)
+      integer, SAVE                                       ::  kcolv       ! Nb of interior      Vertical Columns
+      integer, SAVE                                       ::  nsoil       ! Nb of Soil          Levels beneath the Surface Level
+      integer, SAVE                                       ::  nvege       ! Nb of Vegetation    Types
+      integer, SAVE                                       ::  nsnow       ! Max Nb of Snow      Layers
+      integer, SAVE                                       ::  nbPts       ! Nb of dumped        Grid     Points 
+      integer, SAVE                                       ::  nbwri       ! Nb of dumped        Vertical Columns
+      integer, SAVE                                       ::  ntave       ! Nb of Time Steps over which SBL relevant parameters  are averaged
+      integer, SAVE                                       ::  ntavz       ! Nb of Time Steps over which z0, r0, ...  parameters  are averaged
+      integer, SAVE                                       ::  nLimi       ! Nb of Time Steps over which Water Vapor Flux to limit is averaged
+
+      integer, SAVE                                       ::  jt__SV      ! Number of DYnamical Time Steps for one SISVAT                       [-]
+      real(kind=real8), SAVE                              ::  dt__SV      ! Time Step of Surface     Physics      (SISVAT)                      [s]
+
+      integer, SAVE                                       ::  k_zb
+      real(kind=real8), SAVE                              ::  z_zb = 25.  ! Level of negligible blowing particles concentration
+
+      integer, SAVE                                       ::  k_SL        ! Parameter used in the Interpolation of V(10 m)
+      real(kind=real8), SAVE                              ::  r_SL10      ! Parameter used in the Interpolation of V(10 m)
+
+      integer, SAVE                                       ::  iwr_SV
+      integer, SAVE                                       ::  jwr_SV
+      integer, SAVE                                       ::  nwr_SV
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)    ::  ii__SV      ! Mosaic point   i Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)    ::  jj__SV      ! Mosaic point   j Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)    ::  nn__SV      ! Mosaic point   n Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)    ::  ikp_SV      ! Grid Cell Column Index of a SISVAT Column
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:,:)::  ikl_SV      ! SISVAT    Column Index     
+
+      end module Mod_SISVAT_grd
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_kkl.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_kkl.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_kkl.f90	(revision 2160)
@@ -0,0 +1,172 @@
+      module Mod_SISVAT_kkl
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVAT_kkl contains the main (prognostic) variables of    |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  4-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! SISVAT INPUT        Variables
+! -----------------------------
+
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  LSmask  ! Land-Sea   Mask
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  isotSV  ! Soil       Type
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  iWaFSV  ! Soil       Drainage:(1,0)=(y,n)
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  ivgtSV  ! Vegetation Type
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FracSV  ! Grid Cell Fraction  (Mosaic)                       [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  coszSV  ! Cosine of Sun zenithal Angle
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  sol_SV  ! Downward  Solar    Radiation
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  IRd_SV  ! Downward  Longwave Radiation
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  drr_SV  ! Rain  Intensity                              [kg/m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dsn_SV  ! Snow  Intensity                              [kg/m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dsnbSV  ! Idem, fraction, from Drift                         [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  esnbSV  ! Idem, fraction, from Drift                         [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dbs_SV  ! Drift Amount                                   [kg/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  BrosSV  ! Buffer Snow Layer Density
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  BG1sSV  ! Buffer Snow Layer Dendricity / Sphericity          [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  BG2sSV  ! Buffer Snow Layer Sphericity / Size                [-] [0.0001 m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dz0_SV  ! dz0(Sastrugi dh)                                   [m]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  cld_SV  ! Cloudiness (seen from SBL)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  za__SV  ! SBL Height
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Ua__SV  !(SBL Top)  Wind Velocity, x-Direction, t          [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Ua0_SV  !(SBL Top)  Wind Velocity, x-Direction, t -dt      [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Va__SV  !(SBL Top)  Wind Velocity, y-Direction, t          [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Va0_SV  !(SBL Top)  Wind Velocity, y-Direction, t -dt      [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  VV__SV  !(SBL Top)  Wind Velocity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  VV10SV  ! 10-m      Wind Velocity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  VVs_SV  !(Sastr,V)  Relevance
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  RRsxSV  !(Sastr,V)  Counter
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  DDsxSV  !(Sastr,V)  Angle
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  DDs_SV  !(Sastr,V)  Angle
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  TaT_SV  ! SBL Top   Temperature
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Ts__SV  ! Surface   Air Temperature     (Mosaic)             [K]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  pkPaSV  ! Surface   Pressure                               [kPa]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  WindSV  ! Wind      Speed                                  [m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  zza_SV  ! Atmospheric  Levels HEIGHTS                        [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  roa_SV  ! Air       Volumic   Mass                        [T/m3]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  Kz__SV  ! Turbulent Diffusion Coefficients                [m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  pktaSV  ! Temperature / Exner Potential (Current Value in (PHY_)SISVAT)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  pkt0SV  ! Temperature / Exner Potential (INPUT         of (PHY_)SISVAT)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ExnrSV  ! Surface       Exner Potential
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  qv__SV  ! Specific  Humidity                             [kg/kg]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rhT_SV  ! SBL Top   Air  Density
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  QaT_SV  ! SBL Top   Specific Humidity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dQa_SV  ! SBL Flux  Limitation of Qa
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SHumSV  ! Surface   Specific Humidity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dSdTSV  ! Sensible Heat Flux T Derivat.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dLdTSV  ! Latent   Heat Flux T Derivat.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  qsnoSV  ! SBL Mean  Snow       Content
+
+      real(kind=real8), SAVE                              ::  zSBLSV  ! SBL Height (Initial Value)
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  z0__SV  ! Roughness Length Momentum    (Mosaic)              [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LAI0SV  ! Nominal Leaf Area Index
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  glf0SV  ! Green   Leaf Fraction
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  alb0SV  ! Soil    Albedo
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  slopSV  ! Snow/Ice/Soil-Water Surf. Slope                    [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  slorSV  ! Snow/Ice/Soil-Water Surf. Slope               [radian]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ROF_SV  !  Cumulative Run-Off          (Mosaic)        [mm w.e.]
+
+      character(len=18)                             ::  daHost  ! Date Host Model
+
+
+! SISVAT INPUT/OUTPUT Variables
+! -----------------------------
+
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  isnoSV  ! Nb of Ice/Snow Layers
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  ispiSV  ! Uppermost superimposed ice
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  iiceSV  ! Nb of Ice      Layers
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:,:)  ::  istoSV  ! Snow Layer     History
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  albcSV  ! Coupl. Surface Albedo (Surface-Canopy / Ocean)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  alb_SV  ! Surface-Canopy Albedo
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  emi_SV  ! Surface-Canopy Emissivity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  IRs_SV  ! Soil           IR Flux
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LMO_SV  ! Monin-Obukhov  Scale
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  us__SV  ! Friction       Velocity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  uts_SV  ! Temperature  Turbulent Scale
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  cutsSV  ! Temperature  Turbulent Scale C.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  uqs_SV  ! Spec.Humid.  Turbulent Scale
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ussbSV  ! Blowing Snow Erosion   Flux  (Buffer) 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  uss_SV  ! Blowing Snow Turbulent Scale
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ussxSV  ! Blowing Snow Turbulent Scale (modified)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  usthSV  ! Blowing Snow Erosion Thresh.
+! #BD real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  uds_SV  ! Blowing Dust Turbulent Scale               [kg/kg m/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rCDmSV  ! Square  Root Contribut. Drag_m
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rCDhSV  ! Square  Root Contribut. Drag_h
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0m_SV  ! Momentum     Roughness Length
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0mmSV  !  z0(Momentum,    Time Mean)                        [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0mnSV  !  z0(Momentum,    instanta.)                        [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0roSV  ! Subgrid Topo Roughness Length
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0SaSV  !  z0(Sastrugi  h)                                   [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0e_SV  !  z0(Snow eroded)                                   [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0emSV  !  z0(Snow eroded, Time Mean)                        [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0enSV  !  z0(Snow eroded, instanta.)                        [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0h_SV  ! Heat         Roughness Length
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0hmSV  !  z0(Heat,        Time Mean)                        [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Z0hnSV  !  z0(Heat,        instanta.)                        [m]
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  snCaSV  ! Canopy  Snow   Thickness
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rrCaSV  ! Canopy  Water  Content
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  psivSV  ! Leaf    Water  Potential 
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  TvegSV  ! Vegetation     Temperature
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  TsisSV  ! Snow/Ice/Soil-Water Temperature
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  ro__SV  ! Snow/Ice/Soil-Water VolumicMass
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  eta_SV  ! Snow/Ice/Soil     Water Content
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  G1snSV  ! Snow Dendricity/Sphericity
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  G2snSV  ! Snow Sphericity/Size
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  dzsnSV  ! Snow Layer  Thickness
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  agsnSV  ! Snow Age
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  BufsSV  ! Snow Buffer Layer
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rusnSV  ! Surficial   Water
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWf_SV  ! Normalized  Decay
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWS_SV  ! Surficial Water Status
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HFraSV  ! Frazil      Thickness
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  zWE_SV  ! Current   Snow Thickness                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  zWEcSV  ! Compacted Snow Thickness                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dwemSV  ! Only Melting over dt__SV                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dwerSV  ! Refreezing   over dt__SV                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dwesSV  ! Sublimation  over dt__SV                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wem0SV  ! Only Melting      Budget                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wem_SV  ! Only Melting      Budget                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wer0SV  ! Refreezing        Budget                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wer_SV  ! Refreezing        Budget                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wes0SV  ! Sublimation       Budget                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wes_SV  ! Sublimation       Budget                        [mmWE]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  wee_SV  ! EvapotranspirationBudget                        [mmWE]
+
+
+! SISVAT OUTPUT       Variables
+! -----------------------------
+
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)      ::  no__SV  ! OUTPUT file Unit Number
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)      ::  IOi_SV  ! OUTPUT point   i Coordinate (independant txt file)
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)      ::  IOj_SV  ! OUTPUT point   j Coordinate (independant txt file)
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)      ::  i___SV  ! OUTPUT point   i Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)      ::  j___SV  ! OUTPUT point   j Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:)      ::  n___SV  ! OUTPUT point   n Coordinate
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  lwriSV  ! OUTPUT point vec Index
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  IRu_SV  ! UPward    IR Flux (effective)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  hSalSV  ! Saltating Layer Height
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  qSalSV  ! Saltating Snow  Concentration
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  RnofSV  ! RunOFF    Intensity
+
+      end module Mod_SISVAT_kkl
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_loc.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_loc.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_loc.f90	(revision 2160)
@@ -0,0 +1,59 @@
+      module Mod_SISVAT_loc
+
+!--------------------------------------------------------------------------+
+!                                                     Wed 26-Jun-2013  MAR |
+!     module Mod_SISVAT_loc contains the         diagnostic  variables of  |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Sat  8-Feb-2013      |
+!                    modified by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+      use    Mod_Real
+
+
+      IMPLICIT NONE
+
+
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  NLaysv  ! New   Snow     Layer   Switch
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  i_thin  ! Index of the thinest Layer
+      integer, SAVE         ,ALLOCATABLE ,dimension(:,:)    ::  LIndsv  ! Contiguous Layer relative Index
+
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  albisv  ! Integrated Surface Albedo
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  albssv  ! Soil               Albedo [-]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SoCasv  ! Canopy  Absorbed Solar Radiat.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SoSosv  ! Surface Absorbed Solar Radiat.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  IRv_sv  ! Vegetation IR Flux  [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Evg_sv  ! Emissivity of Vegetation+Snow
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Eso_sv  ! Emissivity of       Soil+Snow
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  tau_sv  ! Transmited Radiation Fraction
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rrMxsv  ! Canopy Maximum Intercepted Rain
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LAIesv  ! effective LAI for transpirati.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LAI_sv  ! corrected LAI in case of snow
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  glf_sv  ! Green  Leaf Fraction
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Sigmsv  ! Canopy Ventilation  Factor
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HSv_sv  ! Sensible Heat Flux  [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HLv_sv  ! Latent   Heat Flux  [W/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HSs_sv  ! Sensible Heat Flux (t)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  HLs_sv  ! Latent   Heat Flux (t)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  sqrCm0  ! in Neutral Drag Coef.Moment.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  sqrCh0  ! in Neutral Drag Coef.Heat
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Lx_H2O  ! Latent Heat of Vaporiz./Sublim.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ram_sv  ! Aerodyn.Resistance (Moment.)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  rah_sv  ! Aerodyn.Resistance (Heat)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Fh__sv  ! Stability Function
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dFh_sv  ! Stability Function (Deriv.)
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Evp_sv  ! Evaporation        [kg/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  EvT_sv  ! Evapotranspiration [kg/m2]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LSdzsv  ! Land/Sea Vert. Discretiz. Fact.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  Tsrfsv  ! Surface    Temperature
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  sEX_sv  ! Verticaly Integr.Extinct.Coef.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  zzsnsv  ! Snow  Pack Thickness      [m]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  psi_sv  ! Soil   Water        Potential
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  Khydsv  ! Soil   Hydraulic    Conductiv.
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  Rootsv  ! Root Water Pump      [kg/m2/s]
+      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  EExcsv  ! Energy in Excess, current
+
+
+      end module Mod_SISVAT_loc
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_log.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_log.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_log.f90	(revision 2160)
@@ -0,0 +1,7 @@
+      module Mod_SISVAT_log
+
+      implicit none
+
+      logical  ::           iniIRs,iniOUT
+
+      end module Mod_SISVAT_log
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_qSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_qSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_qSn.f90	(revision 2160)
@@ -0,0 +1,38 @@
+     module Mod_SISVAT_qSn
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_qSn                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_qSn  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_qSn    specific variables (and constants)
+! ================================================
+
+! #e5 logical           ::  emopen = .false.              ! IO   Switch
+
+! #e5 integer, SAVE           ::  no_err =  0                   !
+
+! #e5 real(kind=real8), SAVE  ::  timeer                        !
+
+! OUTPUT/Verification: Slush  Parameterization
+! #vu logical           ::  su_opn = .false.              ! IO   Switch
+
+
+
+
+     end module Mod_SISVAT_qSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_qSo.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_qSo.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_qSo.f90	(revision 2160)
@@ -0,0 +1,33 @@
+     module Mod_SISVAT_qSo
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_qSo                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_qSo  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_qSo    specific variables (and constants)
+! ================================================
+
+! OUTPUT/Verification: H2O    Conservation
+! #mw logical           ::  mwopen = .false.              ! IO   Switch
+
+! #mw real(kind=real8), SAVE  ::  timewr                        !
+
+
+
+     end module Mod_SISVAT_qSo
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_wEq.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_wEq.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_wEq.f90	(revision 2160)
@@ -0,0 +1,30 @@
+     module Mod_SISVAT_wEq
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_wEq                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_wEq  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_wEq    specific variables (and constants)
+! ================================================
+
+      logical           ::  logWEq = .false.
+
+
+
+     end module Mod_SISVAT_wEq
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xAH.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xAH.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xAH.f90	(revision 2160)
@@ -0,0 +1,32 @@
+     module Mod_SISVAT_xAH
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_xAH                            Wed 26-Jun-2013  MAR |
+!    module Mod_SISVAT_xAH  contains dT(a-s) variables                     |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
+!                    modified by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Mod_SISVAT_xAH  dT(a-s) variables
+! =================================
+
+! #AH real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  T__mem        ! dT(a-s) Time           Steps
+! #AH real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  dTmmem        ! dT(a-s) Time Moving Averages
+
+
+
+     end module Mod_SISVAT_xAH
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xAW.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xAW.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xAW.f90	(revision 2160)
@@ -0,0 +1,32 @@
+     module Mod_SISVAT_xAW
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_xAW                            Wed 26-Jun-2013  MAR |
+!    module Mod_SISVAT_xAW  contains SBL Wind variables                    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
+!                    modified by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Mod_SISVAT_xAW SBL Wind variables
+! =================================
+
+! #AW real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  V__mem        ! V   Time           Steps
+! #AW real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  VVmmem        ! V   Time Moving Averages
+
+
+
+     end module Mod_SISVAT_xAW
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xWL.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xWL.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xWL.f90	(revision 2160)
@@ -0,0 +1,32 @@
+     module Mod_SISVAT_xWL
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_xWL                            Wed 26-Jun-2013  MAR |
+!    module Mod_SISVAT_xWL  contains dQa     Limitor                       |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
+!                    modified by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Mod_SISVAT_xWL  dT(a-s) variables
+! =================================
+
+! #WL real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  WL_mem        ! WVLimit Time           Steps
+! #WL real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:)    ::  WLmmem        ! WVLimit Time Moving Averages
+
+
+
+     end module Mod_SISVAT_xWL
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xZM.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xZM.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_xZM.f90	(revision 2160)
@@ -0,0 +1,33 @@
+     module Mod_SISVAT_xZM
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_xZM                            Wed 26-Jun-2013  MAR |
+!    module Mod_SISVAT_xZM  contains dT(a-s) variables                     |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Fri  1-Feb-2013      |
+!                    modified by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+! Mod_SISVAT_xZM z0, r0 ... variables
+! ===================================
+
+! #ZM real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  z0_mem        ! z0      Time           Steps
+! #ZM real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  r0_mem        ! r0      Time           Steps
+! #ZM real(kind=real8), SAVE, ALLOCATABLE, dimension(:,:,:)  ::  b0_mem        ! b0      Time           Steps
+
+
+
+     end module Mod_SISVAT_xZM
Index: LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_zSn.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_zSn.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_SISVAT_zSn.f90	(revision 2160)
@@ -0,0 +1,34 @@
+     module Mod_SISVAT_zSn
+
+!--------------------------------------------------------------------------+
+!    module Mod_SISVAT_zSn                            Fri  2-Feb-2013  MAR |
+!    module Mod_SISVAT_zSn  contains specific variables (and constants)    |
+!           used by Soil/Ice Snow Vegetation Atmosphere Transfer Scheme    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+
+! General Variables
+! =================
+
+      use Mod_Real
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_dat
+
+
+      IMPLICIT NONE
+
+
+! SISVAT_zSn    specific variables (and constants)
+! ================================================
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz logical           ::  as_opn = .false.              ! IO   Switch
+
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp logical           ::  VP_opn = .false.              ! IO   Switch
+
+
+
+     end module Mod_SISVAT_zSn
Index: LMDZ5/branches/testing/libf/phymar/Mod_genTKE_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_genTKE_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_genTKE_RUN.f90	(revision 2160)
@@ -0,0 +1,40 @@
+      module Mod_genTKE_RUN
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_genTKE_RUN contains local variables of PHY_genTKE_RUN     |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+!  Local  Variables
+!  ================
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  dukkp1    !      Difference (u(k) - u(k+1))                      [m/s]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  dvkkp1    !      Difference (v(k) - v(k+1))                      [m/s]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  kkp1dz    !  1 / Difference (Z(k) - Z(k+1))                      [1/m]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  zShear    !      Wind Shear Contribution to TKE                [m2/s3]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  REq_PT    !  Reduced (Equivalent) Potential Temperature            [K]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  c_Buoy    !  Buoyancy Coefficient (g/theta) X (dtheta/dz)       [1/s2]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Ri__Nb    !  Richardson Number                                     [-]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Prandtl   !  Prandtl    Number (Kzm/Kzh)                           [-]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Ls_inv    !  1 / Ls                      (Therry & Lacarr, 1983) [1/m]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  ML_inv    !  1 / ML  (Mixing      Length, Therry & Lacarr, 1983) [1/m]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  DL_inv    !  1 / DL  (Dissipation Length, Therry & Lacarr, 1983) [1/m]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  Dissip    !           Dissipation                              [m2/s3]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  TKEvav    !           TKE         Vertical moving Average      [m2/s2]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  epsvav    !           Dissipation Vertical moving Average      [m2/s3]
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  pkt       !           Reduced     Potential       Temperature      [X]
+
+
+      end module Mod_genTKE_RUN
Index: LMDZ5/branches/testing/libf/phymar/Mod_vdfTKE_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/Mod_vdfTKE_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/Mod_vdfTKE_RUN.f90	(revision 2160)
@@ -0,0 +1,35 @@
+      module Mod_vdfTKE_RUN
+
+!--------------------------------------------------------------------------+
+!                                                     Mon 17-Jun-2013  MAR |
+!     module Mod_vdfTKE_RUN contains local variables of PHY_vdfTKE_RUN     |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon 17-Jun-2013      |
+!           Last Modification by H. Gallee,           Mon 17-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+
+
+
+! Internal Variables
+! ==================
+
+      IMPLICIT NONE
+
+
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__1
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__2
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__3
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__4
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__5
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__6
+      real(kind=real8), SAVE, ALLOCATABLE, dimension(:)  ::  S3D__7
+
+
+      end module Mod_vdfTKE_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_ALLOC.f90	(revision 2160)
@@ -0,0 +1,68 @@
+
+      subroutine PHY_Atm_AT_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Sun 16-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_AT_ALLOC  allocates prognostic variables of           |
+!                Atmospheric Turbulence Scheme used by MAR                     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun 16-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_AT_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_AT_kkl - BEGIN
+! =================================
+
+      allocate  ( var_AT(kcolp,mzpp) )                       ! Dummy            to Diffuse                                [x]
+      allocate  ( Ac0_AT(      mzp ) )                       ! Tridiagonal Matrix Coefficient A: Common Factor        [m2/s3]
+      allocate  ( Cc0_AT(      mzp ) )                       ! Tridiagonal Matrix Coefficient C: Common Factor        [m2/s3]
+      allocate  ( Kz0_AT(      mzp ) )                       ! Vertical  Turbulent Diffusion Coefficient (MINIMUM)     [m2/s]
+      allocate  ( Ac__AT(kcolp,mzp ) )                       ! Tridiagonal Matrix Coefficient A: Common Factor (t)     [s/m2]
+      allocate  ( Cc__AT(kcolp,mzp ) )                       ! Tridiagonal Matrix Coefficient C: Common Factor (t)     [s/m2]
+      allocate  ( Kz__AT(kcolp,mzp ) )                       ! Vertical  Turbulent Diffusion Coefficient               [m2/s]
+      allocate  ( Kzm_AT(kcolp,mzp ) )                       ! Vertical  Turbulent Diffusion Coefficient (Momentum)    [m2/s]
+      allocate  ( Kzh_AT(kcolp,mzp ) )                       ! Vertical  Turbulent Diffusion Coefficient (Scalars)     [m2/s]
+      allocate  ( Kzh0AT(kcolp,mzp ) )                       ! Vertical  Turbulent Diffusion Coefficient (Scalars)     [m2/s]
+      allocate  ( A___AT(kcolp,mzp ) )                       ! Tridiagonal Matrix Coefficient A                           [-]
+      allocate  ( B___AT(kcolp,mzp ) )                       ! Tridiagonal Matrix Coefficient B                           [-]
+      allocate  ( C___AT(kcolp,mzp ) )                       ! Tridiagonal Matrix Coefficient C                           [-]
+      allocate  ( D___AT(kcolp,mzp ) )                       ! Independant Term               D                           [x]
+      allocate  ( P___AT(      mzp ) )                       ! Auxiliary   Term               P                           [-]
+      allocate  ( Q___AT(      mzp ) )                       ! Auxiliary   Term               Q                           [-]
+      allocate  ( X___AT(      mzp ) )                       ! Auxiliary   Unknown            X                           [x]
+
+      allocate  ( LMO_AT(kcolp     ) )                       ! Monin-Obukhov     Length         (Grid Cell Average)       [m]
+      allocate  ( zi__AT(kcolp     ) )                       ! Inversion         Height         (Grid Cell Average)[m a.g.l.]
+      allocate  ( TKE_AT(kcolp,mzp ) )                       ! Turbulent Kinetic Energy                               [m2/s2]
+      allocate  ( eps_AT(kcolp,mzp ) )                       ! Turbulent Kinetic Energy Dissipation                   [m2/s3]
+      allocate  ( TrT_AT(kcolp,mzp ) )                       ! Turbulent Kinetic Energy Transport                     [m2/s3]
+
+      allocate  ( dua_AT(kcolp,mzp ) )                       ! Wind Speed (x-direc.) Tendency                          [m/s2]
+      allocate  ( dva_AT(kcolp,mzp ) )                       ! Wind Speed (y-direc.) Tendency                          [m/s2]
+      allocate  ( dpktAT(kcolp,mzp ) )                       ! Potential Temperature Tendency, divided by p0**(R/Cp)   [x/s]
+      allocate  ( dqv_AT(kcolp,mzp ) )                       ! Specific  Humidity    Tendency                      [kg/kg/s]
+      allocate  ( dqw_AT(kcolp,mzp ) )                       ! Cloud Droplets Concen.Tendency                      [kg/kg/s]
+      allocate  ( dqi_AT(kcolp,mzp ) )                       ! Cloud Crystals Concen.Tendency                      [kg/kg/s]
+      allocate  ( dCi_AT(kcolp,mzp ) )                       ! CCNi           Concen.Tendency                          [1/s]
+      allocate  ( dqs_AT(kcolp,mzp ) )                       ! Snow Particles Concen.Tendency                      [kg/kg/s]
+      allocate  ( dqr_AT(kcolp,mzp ) )                       ! Rain Drops     Concen.Tendency                      [kg/kg/s]
+
+! =================================
+! ALLOCATION Mod_PHY_AT_kkl -   END
+! =================================
+
+
+      end subroutine PHY_Atm_AT_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_INI.f90	(revision 2160)
@@ -0,0 +1,112 @@
+      subroutine PHY_Atm_AT_INI(FlagAT_TKE,TypeAT)
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 29-Jun-2013  MAR |
+!   MAR          PHY_Atm_AT_INI                                                |
+!     subroutine PHY_Atm_AT_INI intializes Turbulent Vertical Diffusion Scheme |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 29-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_AT_ctr
+      use Mod_PHY_AT_grd
+      use Mod_PHY_AT_kkl
+
+
+
+      IMPLICIT NONE
+
+
+
+
+! Arguments
+! =========
+
+      logical                                    ::  FlagAT_TKE         !  Flag         (Turbulent Transfer, TKE-e Model: ON / OFF)
+      character(len=1)                           ::  TypeAT             !  Type         (Turbulent Transfer        Model: Choice  )
+
+
+
+
+! Local Variables
+! ===============
+
+      integer    ::    k
+!     integer    ::    i     ,j     ,ikl
+
+
+
+
+! Initialization of Mod_PHY_AT_ctr  (Atm_AT Switches
+! ================================        & Time/Space control Variables)
+
+! Atm_AT Switch
+! -------------
+
+      AT_TKE = FlagAT_TKE
+
+
+
+! E-e and K-l models parameters
+! -----------------------------
+
+        Ee_Duynkerke = .FALSE.                                          ! Dunkerke           (1988) E-epsilon model of turbulence
+        Ee_Kitada    = .FALSE.                                          ! Kitada             (1987) E-epsilon model of turbulence
+        Ee_HuangRamn = .FALSE.                                          ! Huang and Raman    (1991) E-epsilon model of turbulence
+        Kl_TherryLac = .FALSE.                                          ! Therry & Lacarrere (1983) K-l       model of turbulence
+
+      IF      (TypeAT.EQ.'e')                                       THEN!
+        Ee_Duynkerke =  .TRUE.                                          ! Dunkerke           (1988) E-epsilon model of turbulence
+      ELSE IF (TypeAT.EQ.'K')                                       THEN!
+        Ee_Kitada    =  .TRUE.                                          ! Kitada             (1987) E-epsilon model of turbulence
+      ELSE IF (TypeAT.EQ.'H')                                       THEN!
+        Ee_HuangRamn =  .TRUE.                                          ! Huang and Raman    (1991) E-epsilon model of turbulence
+      ELSE IF (TypeAT.EQ.'L')                                       THEN!
+        Kl_TherryLac =  .TRUE.                                          ! Therry & Lacarrere (1983) K-l       model of turbulence
+      ELSE
+            write(6,*)
+            write(6,*) ' TypeAT = ',TypeAT,' is inadequate'
+            write(6,*) ' Please Choose e (Duynkerke)  ,    K (Kitada)                           '
+            write(6,*) '               H (Huang Raman), OR L (Therry-Lacarrere) Turbulence Model'
+            write(6,*) '                                                    '
+
+!                **************
+            call MAR________BUG
+!                **************
+
+      END IF
+
+
+
+
+! Initialisation of the TKE Scheme
+! ================================
+
+!                **************
+          CALL   PHY_genTKE_INI
+!                **************
+
+
+
+
+! Initialisation of the Tri-Diagonal Matrix
+! =========================================
+
+        alphAT    =   0.25
+        betaAT    =   1.00 - alphAT
+        a_b_AT    =          alphAT / betaAT
+
+        Ac0_AT(mzp) = - dt__AT *Grav_F *Grav_F *betaAT    /(dsigmi(mzp) * dsigma(mzp))
+      DO k=    mzp-1,1,-1
+        Ac0_AT(k)   = - dt__AT *Grav_F *Grav_F *betaAT    /(dsigmi(k)   * dsigma(k))
+        Cc0_AT(k+1) =   Ac0_AT(k)                          *dsigmi(k)   / dsigmi(k+1)
+      ENDDO
+
+
+
+      end subroutine PHY_Atm_AT_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_AT_RUN.f90	(revision 2160)
@@ -0,0 +1,490 @@
+      subroutine PHY_Atm_AT_RUN(FlagSV_KzT,FlagCM)
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 22-Jun-2013  MAR |
+!   MAR          PHY_Atm_AT_RUN                                                |
+!     subroutine PHY_Atm_AT_RUN performs   Turbulent Vertical Diffusion Scheme |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Wed 13-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 22-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_AT_ctr
+      use Mod_PHY_AT_grd
+      use Mod_PHY_AT_kkl
+      use Mod_SISVAT_gpt
+
+
+      IMPLICIT NONE
+
+
+      logical    ::    FlagSV_KzT
+      logical    ::    FlagCM
+
+      integer    ::    i,     j,     k,     ikl
+
+
+
+
+! Assignation    of Mod_PHY_AT_kkl
+! ================================
+
+        DO ikl = 1,kcolp
+
+          i = ii__AP(ikl)
+          j = jj__AP(ikl)
+
+          LMO_AT(ikl)   = LMO_SV_gpt(ikl)
+
+        ENDDO
+
+
+
+
+! Turbulent Kinetic Energy
+! ========================
+
+      IF (AT_TKE)                                                   THEN
+
+!              **************
+        CALL   PHY_vdfTKE_RUN
+        CALL   PHY_genTKE_RUN
+!              **************
+
+      ELSE
+         DO ikl = 1,kcolp
+         DO   k = 1,mzp
+           TKE_AT(ikl,k)=    eps6
+           eps_AT(ikl,k)=    epsn
+         ENDDO
+         ENDDO
+      END IF
+
+
+
+
+! Turbulent Vertical Diffusion
+! ============================
+ 
+          NewAAT =  .TRUE.
+          SchmAT =  'u'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+          NewAAT =  .FALSE.
+          SchmAT =  'v'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+      IF (.NOT.FlagSV_KzT)                                          THEN
+
+          SchmAT =  'T'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+      ELSE
+
+          DO k  =1,mzp
+          DO ikl=1,kcolp
+            dpktAT(ikl,k) = 0.0000
+          ENDDO
+          ENDDO
+
+      END IF
+
+
+          SchmAT =  'q'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+      IF (FlagCM)                                                   THEN
+
+          SchmAT =  'w'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+          SchmAT =  'i'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+          SchmAT =  'C'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+          SchmAT =  's'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+          SchmAT =  'r'    
+!                    ******
+          CALL       Atm_AT
+!                    ******
+
+
+      END IF
+
+
+      end subroutine PHY_Atm_AT_RUN
+
+
+
+
+      subroutine Atm_AT
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 22-Jun-2013  MAR |
+!   MAR          Atm_AT                                                        |
+!     subroutine Atm_AT solves Turbulent Vertical Diffusion Scheme             |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Wed 13-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 22-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_AT_grd
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_CM_kkl
+      use Mod_PHY_DY_kkl
+      use Mod_SISVAT_gpt
+
+
+
+      IMPLICIT NONE
+
+
+
+      integer           ::       i,     j,     k,     ikl
+      real(kind=real8)  ::  psa_sq
+
+
+
+
+!     ++++++++++++++++
+      DO ikl = 1,kcolp
+!     ++++++++++++++++
+
+        i = ii__AP(ikl)
+        j = jj__AP(ikl)
+
+
+
+! Tri-Diagonal Matrix: Variable
+! =============================
+
+!  Wind Speed
+!  ----------
+
+        IF      (schmAT.EQ.'a')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = 1.0
+            var_AT(ikl,k) = ua__DY(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = 0.
+
+        ELSE IF (schmAT.EQ.'b')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = 1.0
+            var_AT(ikl,k) = va__DY(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = 0.
+
+        ELSE IF (schmAT.EQ.'u')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzm_AT(ikl,k)
+            var_AT(ikl,k) = ua__DY(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = 0.
+
+        ELSE IF (schmAT.EQ.'v')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzm_AT(ikl,k)
+            var_AT(ikl,k) = va__DY(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = 0.
+
+
+!  Temperature
+!  -----------
+
+        ELSE IF (schmAT.EQ.'T')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = pkt_DY(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = pkt_DY(ikl,k)
+
+
+!  Water Species
+!  -------------
+
+        ELSE IF (schmAT.EQ.'q')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = qv__DY(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = qv__DY(ikl,mzp)                            &
+     &                    -(Z___DY(ikl,mzp)-Z___DY(ikl,mzpp))          &
+     &                    * uqs_SV_gpt(ikl)    /Kzh_AT(ikl,mzp )
+            var_AT(ikl,k) =            max(epsq,var_AT(ikl,k   ))
+            var_AT(ikl,k) =            min(     var_AT(ikl,k   ),qvsiCM(ikl,k))
+            qv__DY(ikl,mzpp) =                  var_AT(ikl,k   )
+
+        ELSE IF (schmAT.EQ.'w')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = qw__CM(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = qw__CM(ikl,mzp)
+
+        ELSE IF (schmAT.EQ.'i')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = qi__CM(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = qi__CM(ikl,mzp)
+
+        ELSE IF (schmAT.EQ.'C')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = CCNiCM(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = CCNiCM(ikl,mzp)
+
+        ELSE IF (schmAT.EQ.'s')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = qs__CM(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = qs__CM(ikl,k)
+
+        ELSE IF (schmAT.EQ.'r')                                     THEN
+          DO k=1,mzp
+            Kz__AT(ikl,k) = Kzh_AT(ikl,k)
+            var_AT(ikl,k) = qr__CM(ikl,k)
+          ENDDO
+             k=  mzpp
+            var_AT(ikl,k) = qr__CM(ikl,mzp)
+
+        ELSE
+            write(6,*) 
+            write(6,*) ' schmAT = ',schmAT
+            write(6,*) ' Inadequate..., NOR for Ekman Spiral, NOR for momentum, NOR for scalars'
+            write(6,*) '                                                    '
+
+!                **************
+            call MAR________BUG
+!                **************
+            STOP
+        END IF
+
+
+
+! Tri-Diagonal Matrix Coefficients
+! ================================
+
+        IF (NewAAT)                                                 THEN
+            psa_sq          = psa_DY(ikl)     *psa_DY(ikl)    
+            Ac__AT(ikl,mzp) = Ac0_AT(mzp)                                   &
+     &                      * roa_DY(ikl,mzp) *roamDY(ikl,mzp)              &
+     &                      / psa_sq
+          DO k=mzp-1,1,-1
+            Ac__AT(ikl,k  ) = Ac0_AT(k  )                                   &
+     &                      * roa_DY(ikl,k  ) *roamDY(ikl,k  )              &
+     &                      / psa_sq
+            Cc__AT(ikl,k+1) = Ac__AT(ikl,k)                                 &
+     &                      * roa_DY(ikl,k+1) /roa_DY(ikl,k  )
+          ENDDO
+        ENDIF
+
+            A___AT(ikl,mzp) =           Ac__AT(ikl,mzp) * Kz__AT(ikl,mzp)
+          DO k=mzp-1,1,-1
+            A___AT(ikl,k  ) =           Ac__AT(ikl,k  ) * Kz__AT(ikl,k  )
+            C___AT(ikl,k+1) =           Cc__AT(ikl,k+1) * Kz__AT(ikl,k  )
+          ENDDO
+          DO k=    2,mzp
+            B___AT(ikl,k  ) =  1.0000 - A___AT(ikl,k  ) - C___AT(ikl,k  )
+          ENDDO
+            B___AT(ikl,1  ) =  1.0000 - A___AT(ikl,1  )
+            C___AT(ikl,1  ) =  0.0000
+
+            D___AT(ikl,1  ) =                                               &
+     &      A___AT(ikl,1  ) *  a_b_AT *(var_AT(ikl,1  ) - var_AT(ikl,2  ))
+
+             k=      mzp
+            D___AT(ikl,k  ) =                                               &
+     &      A___AT(ikl,k  ) * (a_b_AT * var_AT(ikl,k  ) - var_AT(ikl,k+1)   &
+     &                                                  / betaAT)           &
+     &    - C___AT(ikl,k  ) *  a_b_AT *(var_AT(ikl,k-1) - var_AT(ikl,k  ))  &
+     &    +                                               var_AT(ikl,k  )
+            A___AT(ikl,k  ) =  0.0000
+          DO k=    2,mzp-1
+            D___AT(ikl,k  ) =                                               &
+     &      A___AT(ikl,k  ) *  a_b_AT *(var_AT(ikl,k  ) - var_AT(ikl,k+1))  &
+     &    - C___AT(ikl,k  ) *  a_b_AT *(var_AT(ikl,k-1) - var_AT(ikl,k  ))  &
+     &    +                                               var_AT(ikl,k  )
+          ENDDO
+            D___AT(ikl,1  ) =                                               &
+     &      A___AT(ikl,1  ) *  a_b_AT *(var_AT(ikl,1  ) - var_AT(ikl,2  ))  &
+     &    +                                               var_AT(ikl,1  )
+
+
+
+! Tri-Diagonal Matrix Resolution (Gaussian Elimination / Thomas Algorithm)
+! ==============================
+
+! Forward  Sweep
+! --------------
+
+          P___AT(1) =  B___AT(ikl,1)
+          Q___AT(1) = -A___AT(ikl,1) / P___AT(1)
+        DO k=2,mzp
+          P___AT(k) =  C___AT(ikl,k) * Q___AT(k-1)   + B___AT(ikl,k)
+          Q___AT(k) = -A___AT(ikl,k) / P___AT(k)
+        ENDDO
+          X___AT(1) =  D___AT(ikl,1) / P___AT(1)
+        DO k=2,mzp
+          X___AT(k) = (D___AT(ikl,k) - C___AT(ikl,k) * X___AT(k-1)) / P___AT(k)
+        END DO
+
+
+! Backward Sweep
+! --------------
+
+        DO k=  mzp-1,1,-1
+          X___AT(k) =  Q___AT(k)     * X___AT(k+1)   + X___AT(k)
+        END DO
+
+
+
+! Elimination of too small values
+! -------------------------------
+
+        IF (SchmAT.EQ.'w'.OR.SchmAT.EQ.'i'.OR.SchmAT.EQ.'C'.OR.        &
+     &      SchmAT.EQ.'s'.OR.SchmAT.EQ.'r')                         THEN
+          DO k=  mzp  ,1,-1
+            IF (X___AT(k).NE.0.0000 .AND. X___AT(k).LT.1.e-18)         &
+     &          X___AT(k) =  0.0000
+          END DO
+        END IF
+
+
+
+
+! Tendency
+! ========
+
+!  Wind Speed
+!  ----------
+
+        IF      (schmAT.EQ.'a')                                     THEN
+          DO k=1,mzp
+            dua_AT(ikl,k) =(X___AT(k) - ua__DY(ikl,k))  / dt__AT
+          ENDDO
+        ELSE IF (schmAT.EQ.'b')                                     THEN
+          DO k=1,mzp
+            dva_AT(ikl,k) =(X___AT(k) - va__DY(ikl,k))  / dt__AT
+          ENDDO
+        ELSE IF (schmAT.EQ.'u')                                     THEN
+          DO k=1,mzp
+            dua_AT(ikl,k) =(X___AT(k) - ua__DY(ikl,k))  / dt__AT
+          ENDDO
+        ELSE IF (schmAT.EQ.'v')                                     THEN
+          DO k=1,mzp
+            dva_AT(ikl,k) =(X___AT(k) - va__DY(ikl,k))  / dt__AT
+          ENDDO
+
+
+!  Temperature
+!  -----------
+
+        ELSE IF (schmAT.EQ.'T')                                     THEN
+          DO k=1,mzp
+            dpktAT(ikl,k) =(X___AT(k) - pkt_DY(ikl,k))  / dt__AT
+          ENDDO
+
+
+!  Water Species
+!  -------------
+
+        ELSE IF (schmAT.EQ.'q')                                     THEN
+          DO k=1,mzp
+            dqv_AT(ikl,k) =(X___AT(k) - qv__DY(ikl,k))  / dt__AT
+          ENDDO
+
+        ELSE IF (schmAT.EQ.'w')                                     THEN
+          DO k=1,mzp
+            dqw_AT(ikl,k) =(X___AT(k) - qw__CM(ikl,k))  / dt__AT
+          ENDDO
+
+        ELSE IF (schmAT.EQ.'i')                                     THEN
+          DO k=1,mzp
+            dqi_AT(ikl,k) =(X___AT(k) - qi__CM(ikl,k))  / dt__AT
+          ENDDO
+
+        ELSE IF (schmAT.EQ.'C')                                     THEN
+          DO k=1,mzp
+            dCi_AT(ikl,k) =(X___AT(k) - CCNiCM(ikl,k))  / dt__AT
+          ENDDO
+
+        ELSE IF (schmAT.EQ.'s')                                     THEN
+          DO k=1,mzp
+            dqs_AT(ikl,k) =(X___AT(k) - qs__CM(ikl,k))  / dt__AT
+          ENDDO
+
+        ELSE IF (schmAT.EQ.'r')                                     THEN
+          DO k=1,mzp
+            dqr_AT(ikl,k) =(X___AT(k) - qr__CM(ikl,k))  / dt__AT
+          ENDDO
+
+        ELSE
+            write(6,*) 
+            write(6,*) ' schmAT = ',schmAT
+            write(6,*) ' Inadequate..., NOR for Ekman Spiral, NOR for momentum, NOR for scalars'
+            write(6,*) '                                                    '
+
+!                **************
+            call MAR________BUG
+!                **************
+            STOP
+        END IF
+
+
+!     ++++++
+      END DO
+!     ++++++
+
+
+
+
+      end subroutine Atm_AT
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_ALLOC.f90	(revision 2160)
@@ -0,0 +1,90 @@
+
+      subroutine PHY_Atm_CM_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Sun  9-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_CM_ALLOC  allocates prognostic variables of           |
+!                Cloud Microphysical    Scheme used by MAR                     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 19-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun  9-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_CM_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_CM_kkl - BEGIN
+! =================================
+
+      allocate  ( Ta__CM(kcolp,mzp ) )                       !  Air   Temperature                                          [K]
+      allocate  ( qvswCM(kcolp,mzpp) )                       !  Saturation Specific Humidity     (over liquid water)   [kg/kg]
+      allocate  ( qvsiCM(kcolp,mzpp) )                       !  Saturation Specific Humidity     (over ice)            [kg/kg]
+      allocate  ( qw__CM(kcolp,mzpp) )                       !  Cloud Droplets      Concentration                      [kg/kg]
+      allocate  ( qwd_CM(kcolp,mzp ) )                       !  Cloud Droplets      Concentration Variation            [kg/kg]
+      allocate  ( CCNwCM(kcolp,mzp ) )                       !  Cloud Droplets      Number                              [-/m3]
+      allocate  ( qi__CM(kcolp,mzpp) )                       !  Cloud Ice Particles Concentration                      [kg/kg]
+      allocate  ( qid_CM(kcolp,mzp ) )                       !  Cloud Ice Particles Concentration Variation            [kg/kg]
+      allocate  ( CCNiCM(kcolp,mzp ) )                       !  Cloud Ice Particles Number                              [-/m3]
+      allocate  ( CFraCM(kcolp,mzp ) )                       !  Cloud               Fraction                            [-]   
+      allocate  ( qs__CM(kcolp,mzpp) )                       !  Snow      Particles Concentration                      [kg/kg]
+! #qg allocate  ( qg__CM(kcolp,mzpp) )                       !  Graupels            Concentration                      [kg/kg]
+      allocate  ( qr__CM(kcolp,mzpp) )                       !  Rain  Drops         Concentration                      [kg/kg]
+      allocate  ( HLatCM(kcolp,mzp ) )                       !  Latent Heat Release                                     [W/m2]
+
+      allocate  ( uss_CM(kcolp) )                            !  Snow  Particles     Turbulent Surface Flux            [kg m/s]
+      allocate  ( Ice0CM(kcolp) )                            !  Ice C.Accumulation (time t-dt)                        [m w.e.]
+      allocate  ( ICE_CM(kcolp) )                            !  Ice C.Accumulation (time t   )                        [m w.e.]
+      allocate  ( Sno0CM(kcolp) )                            !  Snow  Accumulation (time t-dt, before snow erosion)   [m w.e.]
+      allocate  ( SnobCM(kcolp) )                            !  Snow  Accumulation (time t-dt, after  snow erosion)   [m w.e.]
+      allocate  ( SnowCM(kcolp) )                            !  Snow  Accumulation (time t   )                        [m w.e.]
+      allocate  ( Rai0CM(kcolp) )                            !  Rain  Accumulation (time t-dt)                        [m w.e.]
+      allocate  ( RainCM(kcolp) )                            !  Rain  Accumulation (time t   )                        [m w.e.]
+
+      allocate  ( dpktCM(kcolp,mzp ) )                       !  Reduced Potential Temperature TENDENCY                  [KX/s]
+      allocate  ( dqv_CM(kcolp,mzp ) )                       !  Specific          Humidity    TENDENCY               [kg/kg/s]
+      allocate  ( dqw_CM(kcolp,mzp ) )                       !  Cloud Droplets Concentration  TENDENCY               [kg/kg/s]
+      allocate  ( dqi_CM(kcolp,mzp ) )                       !  Cloud Crystals Concentration  TENDENCY               [kg/kg/s]
+      allocate  ( dqs_CM(kcolp,mzp ) )                       !  Snow Particles Concentration  TENDENCY               [kg/kg/s]
+      allocate  ( dqr_CM(kcolp,mzp ) )                       !  Rain Drops     Concentration  TENDENCY               [kg/kg/s]
+! #cw allocate  ( dCw_CM(kcolp,mzp ) )                       !  CCN            Concentration  TENDENCY                   [1/s]
+      allocate  ( dCi_CM(kcolp,mzp ) )                       !  CIN            Concentration  TENDENCY                   [1/s]
+      allocate  ( dCF_CM(kcolp,mzp ) )                       !  Cloud Fraction                TENDENCY                   [1/s]
+
+      allocate  ( wat0EW(kcolp) )                            !  Total Precipitable  Water  in the  Air Column         [m w.e.]
+      allocate  ( wat1EW(kcolp) )                            !  Total Precipitable  Water  in the  Air Column         [m w.e.]
+      allocate  ( wat2EW(kcolp) )                            !  Total Precipitable  Water  in the  Air Column         [m w.e.]
+      allocate  ( watfEW(kcolp) )                            !  Water Flux (Atm. --> Srf.) during 1 Time Step         [m w.e.]
+      allocate  ( enr0EW(kcolp) )                            !  Total Energy (Sens. +Lat.) in the  Air Column         [m w.e.]
+      allocate  ( enr1EW(kcolp) )                            !  Total Energy (Sens. +Lat.) in the  Air Column         [m w.e.]
+      allocate  ( enr2EW(kcolp) )                            !  Total Energy (Sens. +Lat.) in the  Air Column         [m w.e.]
+      allocate  ( mphyEW(kcolp) )                            !                                                        [m w.e.]
+
+
+!  Isotopes Proxies
+!  ~~~~~~~~~~~~~~~~
+      allocate  ( Hcd_CM(kcolp) )                            ! latent heat release                                   [mm w.e.]
+      allocate  ( Tcd_CM(kcolp) )                            ! latent heat release weighted Air Temperature                [K]
+      allocate  ( Zcd_CM(kcolp) )                            ! latent heat release weighted Altitude                       [m]
+      allocate  ( Hsb_CM(kcolp) )                            ! latent heat absorb.                                   [mm w.e.]
+      allocate  ( Tsb_CM(kcolp) )                            ! latent heat absorb. weighted Air Temperature                [K]
+      allocate  ( Zsb_CM(kcolp) )                            ! latent heat absorb. weighted Altitude                       [m]
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_CM_kkl -   END
+! =================================
+
+
+
+      end subroutine PHY_Atm_CM_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_INI.f90	(revision 2160)
@@ -0,0 +1,113 @@
+      subroutine PHY_Atm_CM_INI
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 29-Jun-2013  MAR |
+!   MAR          PHY_Atm_CM_INI                                                |
+!     subroutine PHY_Atm_CM_INI initializes Cloud Microphysical Scheme CMiPhy  |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Thu 21-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 29-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!                                                                              |
+! # OPTIONS:                                                                   |
+! # ^^^^^^^                                                                    |
+! #          #kk  SCu  fraction  Limitation                                    |
+! #          #hb  Snow      particles distrib. parameter  n0___s is BSnow value|
+! #          #LA  Snow,Rain particles distrib. parameters n0___s,r        TUNED|
+! #          #rc  MAX  allowed Relative Humidity is a function of Grid Size    |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_CM_dat
+      use Mod_PHY_CM_kkl
+
+
+      IMPLICIT NONE
+
+      integer        ::  i     ,j     ,k     ,ikl
+
+
+
+!  DATA TUNING
+!  ===========
+
+! #kk SSImax = 900.0        ! Maximum        Sursaturation % ICE (900 ==> RH=1000%)       [%]
+! #LA n0___r = 3.0e06       ! intercept parameter / rain gamam distribution ! Tuning
+! #LA n0___s = 4.0e06       ! intercept parameter / snow gamma distribution ! Tuning
+! #hb n0___s = 0.1d18       ! intercept parameter / snow gamma distribution (Blown Snow only)
+                            ! DO NOT USE unless for specific sensivity experiments
+! #hb IF (it_EXP.eq.1) write(6,6000)
+! #hb 6000 format(/,' ****************************************************', &
+! #hb&            /,' * cnos  = 0.1d18 for PURE BLOWING SNOW EXPERIMENTS *', &
+! #hb&            /,' *             DO not USE  OTHERWISE                *', &
+! #hb&            /,' ****************************************************', &
+! #hb&            /)
+
+! _hl qisMAX = 0.0008       ! compromise when graupels are not included
+!                           ! Ref.: Emde & Kahlig 1989, Ann.Geoph.      7, p.408  (18) 
+      qw_MAX = qw_MAXL      ! Cloud droplets MAX concentration before autoconversion
+                            ! Ref.: Lin et al.    1983, JCAM           22, p.1076 (50)
+!     qw_MAX = 0.0003       ! critical liquid water mixing ratio
+!                           ! Ref.: Sundqvist     1988, Physically-Based Modelling and Simulation of Climate and Climatic Change,
+!                           !                           M.E. Schlesinger, Ed., Reidel, 433-461.
+
+
+
+! Maximum Relative Humidity
+! =========================
+
+! #rc RH_MAX = 0.90+0.08*sqrt(max(0.,100.-dxHOST*0.001)/95.)
+
+
+
+
+! IOs
+! ===
+
+        DO  ipt_CM=1,npt_CM
+            ikl0CM(ipt_CM) = ikl_AP(i0__CM(ipt_CM),j0__CM(ipt_CM))
+        ENDDO
+
+
+
+
+! Cloud Microphysics Initialization
+! =================================
+
+      IF (it_EXP.LE.1)                                              THEN
+
+
+! Precipitation: Mod_PHY_CM_kkl:
+! -----------------------------
+
+          DO ikl=1,kcolp
+            rai0CM    (ikl)   = 0.
+            rainCM    (ikl)   = 0.
+            sno0CM    (ikl)   = 0.
+            snobCM    (ikl)   = 0.
+            snowCM    (ikl)   = 0.
+            Ice0CM    (ikl)   = 0.
+            Ice_CM    (ikl)   = 0.
+
+
+
+! Hyrometeores : Mod_PHY_CM_kkl:
+! -----------------------------
+
+          DO k=   1,mzp
+            CCNiCM    (ikl,k) = 0.
+            qw__CM    (ikl,k) = 0.
+            qi__CM    (ikl,k) = 0.
+            qs__CM    (ikl,k) = 0.
+! #qg       qg__CM    (ikl,k) = 0.
+            qr__CM    (ikl,k) = 0.
+          END DO
+          END DO
+
+      END IF
+
+      end subroutine PHY_Atm_CM_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_QSat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_QSat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_QSat.f90	(revision 2160)
@@ -0,0 +1,170 @@
+      subroutine PHY_Atm_CM_QSat
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_CM_QSat   computes specifics Humidities at Saturation |
+!            for Cloud Microphysical    Scheme used by MAR                     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Sat 23-Mar-2013      |
+!           Last Modification by H. Gallee,               Mon 17-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     INPUT :   Ta__DY:         Air Temperature                            [K] |
+!     ^^^^^     psa_DY: Model Pressure Thickness                         [kPa] |
+!                                                                              |
+!     OUTPUT :  qvswCM     : Saturation Specific Humidity  over Water  [kg/kg] |
+!     ^^^^^^    qvsiCM     : Saturation Specific Humidity  over Ice    [kg/kg] |
+!                                                                              |
+!     REFERENCE :  Dudhia (1989) JAS, (B1) and (B2) p.3103                     |
+!     ^^^^^^^^^                                                                |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_CM_kkl
+
+
+
+
+! Local  Variables
+! ================
+
+      use Mod_Atm_CM_QSa
+
+
+      IMPLICIT NONE
+
+
+      integer i     ,j     ,ikl   ,k
+
+      real(kind=real8)                             ::  WatIce =  273.16e0
+      real(kind=real8)                             ::  ExpWat =    5.138e0
+      real(kind=real8)                             ::  ExpWa2 = 6827.e0
+      real(kind=real8)                             ::  ExpIce = 6150.e0
+      real(kind=real8)                             ::  pr__75 =   75.00        !                                      75 [hPa]
+      real(kind=real8)                             ::  qs__75 =    0.001       !                                 0.001 [kg/kg]
+
+      real(kind=real8)                             ::  Wphase
+      real(kind=real8)                             ::  qvSatI
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! ALLOCATION
+! ==========
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)               THEN !
+          allocate   ( pa_hPa(mzpp) )
+          allocate   ( pr_b75(mzpp) )
+          allocate   ( ei_sat(mzpp) )
+          allocate   ( ew_sat(mzpp) )
+      END IF
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!     ++++++++++++++++
+      DO ikl = 1,kcolp
+!     ++++++++++++++++
+
+
+
+! Temperature (K) and Pressure (hPa)
+! ==================================
+
+        DO k=1,mzpp
+          pa_hPa(k)   = (psa_DY(ikl) * sigma(k) + pt__DY) * 10.0d0
+
+
+! Pressure Discriminator
+! ----------------------
+
+          pr_b75(k)   = max(zer0,sign(un_1,pa_hPa(k)-pr__75))
+
+
+
+
+! Saturation Vapor Pressure over Ice
+! ==================================
+
+          ei_sat(k)    =                                               &
+     &    6.1070d0 * exp (ExpIce *(un_1/WatIce-un_1/Ta__DY(ikl,k) ) )
+!  ..     Dudhia (1989) JAS, (B1) and (B2) p.3103 
+
+          qvSatI       = .622d0*ei_sat(k)                              &
+     &  /(pa_hPa(k)    - .378d0*ei_sat(k) )
+
+
+
+
+! Saturation Vapor Pressure over Water
+! ====================================
+
+          ew_sat(k)    =                                               &
+     &    6.1078d0 * exp (ExpWat *  log(WatIce     /Ta__DY(ikl,k) ) )  &
+     &             * exp (ExpWa2 *(un_1/WatIce-un_1/Ta__DY(ikl,k) ) )
+!  ..     Dudhia (1989) JAS, (B1) and (B2) p.3103 
+!         See also Pielke (1984), p.234 and Stull (1988), p.276 
+
+          qvswCM(ikl,k) = max(epsn  ,  .622d0*ew_sat(k)                &
+     &  /(pa_hPa(k) -                  .378d0*ew_sat(k)   ))
+!  ..     Saturation Vapor Specific Concentration over Water
+!         (even for temperatures less than freezing point)
+
+
+
+
+! Water Phase Discriminator
+! =========================
+
+          Wphase       = max(zer0,sign(un_1,Ta__DY(ikl,k)-WatIce))
+!  ..     Wphase       =     1    if        Tair     >    273.16
+!                            0    if        Tair     <    273.16
+
+
+
+
+! Saturation Vapor Specific Concentration over Ice
+! ================================================
+
+          qvsiCM(ikl,k) =                                              &
+     &       max(epsn    , qvswCM(ikl,k) *      Wphase                 &
+     &                   + qvSatI        *(un_1-Wphase))
+
+
+          qvswCM    (ikl,k) = pr_b75(k) *qvswCM(ikl,k) +(1.0-pr_b75(k)) *qs__75
+          qvsiCM    (ikl,k) = pr_b75(k) *qvsiCM(ikl,k) +(1.0-pr_b75(k)) *qs__75
+
+
+        END DO
+
+!     ++++++++++++++++++++++
+      END DO ! ikl = 1,kcolp
+!     ++++++++++++++++++++++
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! DE-ALLOCATION
+! =============
+
+      IF (FlagDALLOC)                                THEN !
+          deallocate ( pa_hPa )
+          deallocate ( pr_b75 )
+          deallocate ( ei_sat )
+          deallocate ( ew_sat )
+      END IF
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+      return
+      end subroutine PHY_Atm_CM_QSat
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CM_RUN.f90	(revision 2160)
@@ -0,0 +1,346 @@
+      subroutine PHY_Atm_CM_RUN
+
+!------------------------------------------------------------------------------+
+!                                                         Sun  9-Jun-2013  MAR |
+!   MAR          PHY_Atm_CM_RUN                                                |
+!     subroutine PHY_Atm_CM_RUN  drives  Cmoud Microphysical Scheme CMiPhy     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Thu 21-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun  9-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!   INPUT:          psa_DY : Pressure       Thickness                    [kPa] |
+!   ^^^^^^                                                                     |
+!                   qwd_CM : Cloud Droplets Concentr.Var.              [kg/kg] |
+!                   qwi_CM : Ice   Crystals Concentr.Var.              [kg/kg] |
+!                                                                              |
+!   INPUT / OUTPUT: qv__DY : Air   specific Humidity                   [kg/kg] |
+!   ^^^^^^^^^^^^^^^ qw__CM : Cloud Droplets Concentration              [kg/kg] |
+!                   qi__CM : Ice   Crystals Concentration              [kg/kg] |
+!                   qs__CM : Snow  Particl. Concentration              [kg/kg] |
+!                   qr__CM : Rain  Drops    Concentration              [kg/kg] |
+!                   CCNiCM : ice   crystals number                     [Nb/m3] |
+!                  (CCNwCM : Cloud Condens. Nuclei(if #cw)             [Nb/m3])|
+!                                                                              |
+!   OUTPUT (CMiPhy) RainCM : rain  Precipitation                           [m] |
+!   ^^^^^^^^^^^^^^^ SnowCM : snow  Precipitation                       [m w.e] |
+!                   Ice_CM : ice   Precipitation                       [m w.e] |
+!                                                                              |
+!   OUTPUT:         qwd_CM : Cloud Droplets Concentr.Var.              [kg/kg] |
+!   ^^^^^^^         qid_CM : Ice   Crystals Concentr.Var.              [kg/kg] |
+!                                                                              |
+!                   HLatCM : Latent Heat Release                         [K/s] |
+!                                                                              |
+!   REFER. : 1) Ntezimana, unpubl.thes.LLN, 115 pp,     1993                   |
+!   ^^^^^^^^ 2) Lin et al.       JCAM   22, 1065--1092, 1983                   |
+!                 (very similar, except that graupels are represented)         |
+!              3) Emde and Kahlig, An.Geo. 7,  405-- 414, 1989                 |
+!                                                                              |
+! # OPTIONS: #qg  Graupels                  (qg)   Microphysics Activation     |
+! # ^^^^^^^^ #cw  Cloud Condensation Nuclei (CCNw) Microphysics Activation     |
+!                                                                              |
+!            #qd  Variations in Time of qi and qw are stored for OUTPUT        |
+!                                                                              |
+!            #WH  Additional Output (Each Process  is detailed)                |
+!            #EW  Additional Output (Energy and Water Conservation)            |
+!                                                                              |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_CM_ctr
+      use Mod_PHY_CM_dat
+      use Mod_PHY_CM_grd
+      use Mod_PHY_CM_kkl
+      use Mod_PHY_DY_kkl
+
+
+
+
+!  Local Variables
+!  ===============
+
+      use Mod_Atm_CM_RUN
+
+
+      IMPLICIT NONE
+
+
+      integer                                      ::  i  ,j  ,k  ,ikl  !
+      real(kind=real8)                             ::  Hcd,Hsb,Tcd,Tsb  !
+      real(kind=real8)                             ::  Zcd,Zsb,facLHR   !
+
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                       !
+!  ALLOCATION                                                           !
+!  ==========
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                             THEN !
+          allocate ( qv__00(kcolp,mzp) )                                !  Air   Specific Humidity  before Cloud Microphys.  [kg/kg]
+          allocate ( qw__00(kcolp,mzp) )                                !  Cloud Droplets Concentr. before Cloud Microphys.  [kg/kg]
+          allocate ( qi__00(kcolp,mzp) )                                !  Cloud Crystals Concentr. before Cloud Microphys.  [kg/kg]
+          allocate ( qs__00(kcolp,mzp) )                                !  Snow  Particl. Concentr. before Cloud Microphys.  [kg/kg]
+! #qg     allocate ( qg__00(kcolp,mzp) )                                !  Graupels       Concentr. before Cloud Microphys.  [kg/kg]
+          allocate ( qr__00(kcolp,mzp) )                                !  Rain  Drops    Concentr. before Cloud Microphys.  [kg/kg]
+          allocate ( CFra00(kcolp,mzp) )                                !  Cloud Fraction           before Cloud Microphys.      [-]
+! #cw     allocate ( CCNw00(kcolp,mzp) )                                !  Cloud Condens. Nuclei    before Cloud Microphys.      [-]
+          allocate ( CCNi00(kcolp,mzp) )                                !  Cloud Ice      Nuclei    before Cloud Microphys.      [-]
+      END IF                                                            !
+!                                                                       !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+!  Microphysical Variables: from 3D to 2D Arrays
+!  =======================  ====================
+
+        DO   ikl = 1,kcolp
+
+             i = ii__AP(ikl)
+             j = jj__AP(ikl)
+
+          DO k = 1,mzp
+             qv__00(ikl,k) = qv__DY(ikl,k)
+             qv__DY(ikl,k) =                                           &
+     &                   max(qv__DY(ikl,k) , epsq)
+             Ta__CM(ikl,k) = pkt_DY(ikl,k) * ExnrDY(ikl,k)
+
+          IF(qw__CM(ikl,k) .LT. qh_MIN)                             THEN
+             qw__CM(ikl,k) =                    max(zer0,qw__CM(ikl,k))   ! Sinon BOUM (possible)
+             Ta__CM(ikl,k) =    Ta__CM(ikl,k) - Lv_Cpd * qw__CM(ikl,k)
+             qv__DY(ikl,k) =    qv__DY(ikl,k) +          qw__CM(ikl,k)
+             qw__CM(ikl,k) =    0.
+          END IF
+             qw__00(ikl,k) =    qw__CM(ikl,k)
+
+          IF(qi__CM(ikl,k) .LT. qh_MIN)                             THEN
+             qi__CM(ikl,k) =                    max(zer0,qi__CM(ikl,k))   ! Sinon BOUM (possible)
+             Ta__CM(ikl,k) =    Ta__CM(ikl,k) - Ls_Cpd * qi__CM(ikl,k)
+             qv__DY(ikl,k) =    qv__DY(ikl,k) +          qi__CM(ikl,k)
+             qi__CM(ikl,k) =    0.
+             CCNiCM(ikl,k) =    0.
+          END IF
+             qi__00(ikl,k) =    qi__CM(ikl,k)
+
+          IF(qw__CM(ikl,k) .LT. qh_MIN  .AND.                          &
+     &       qi__CM(ikl,k) .LT. qh_MIN)                             THEN
+             CFraCM(ikl,k) =    0.
+          ELSE
+             CFraCM(ikl,k) =max(CFrMIN,CFraCM(ikl,k))
+          END IF
+             CFra00(ikl,k) =    CFraCM(ikl,k)
+
+          IF(qr__CM(ikl,k) .LT. qh_MIN)                             THEN
+             qr__CM(ikl,k) =                    max(zer0,qr__CM(ikl,k))   ! Sinon BOUM (possible)
+             Ta__CM(ikl,k) =    Ta__CM(ikl,k) - Lv_Cpd * qr__CM(ikl,k)
+             qv__DY(ikl,k) =    qv__DY(ikl,k) +          qr__CM(ikl,k)
+             qr__CM(ikl,k) =    0.
+          END IF
+             qr__00(ikl,k) = qr__CM(ikl,k)
+
+          IF(qs__CM(ikl,k) .LT. qh_MIN)                             THEN
+             qs__CM(ikl,k) =                    max(zer0,qs__CM(ikl,k))   ! Sinon BOUM (possible)
+             Ta__CM(ikl,k) =    Ta__CM(ikl,k) - Ls_Cpd * qs__CM(ikl,k)
+             qv__DY(ikl,k) =    qv__DY(ikl,k) +          qs__CM(ikl,k)
+             qs__CM(ikl,k) =    0.
+          END IF
+             qs__00(ikl,k) =    qs__CM(ikl,k)
+
+! #qg        qg__00(ikl,k) =    qg__CM(ikl,k)
+
+! #cw        CCNw00(ikl,k) =    CCNwCM(ikl,k)
+             CCNi00(ikl,k) =    CCNiCM(ikl,k)
+
+             qid_CM(ikl,k) =    0.
+             qwd_CM(ikl,k) =    0.
+          END DO
+
+
+
+
+!  Vertical Integrated Energy and Water Content
+!  ============================================
+
+! #EW        wat01D(ikl)  =wat0EW(ikl)
+! #EW        wat11D(ikl)  =wat1EW(ikl)
+! #EW        wat21D(ikl)  =wat2EW(ikl)
+! #EW        watf1D(ikl)  =watfEW(ikl)
+! #EW        enr01D(ikl)  =enr0EW(ikl)
+! #EW        enr11D(ikl)  =enr1EW(ikl)
+! #EW        enr21D(ikl)  =enr2EW(ikl)
+! #EW        mphy2D(ikl)  =mphyEW(ikl)
+
+
+        END DO
+                                                                        !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+!  Call Cloud Microphysics
+!  =======================
+
+!               ******
+           call CMiPhy
+!               ******
+
+
+
+
+!  Microphysical Variables: from 3D to 2D Arrays
+!  =======================  ====================
+
+        DO   ikl = 1,kcolp
+
+             i = ii__AP(ikl)
+             j = jj__AP(ikl)
+
+            DO k = 1,mzp
+             dpktCM(ikl,k) = (Ta__CM(ikl,k) / ExnrDY(ikl,k)            &
+     &                                      - pkt_DY(ikl,k)) / dt__CM
+             dqv_CM(ikl,k) = (qv__DY(ikl,k) - qv__00(ikl,k)) / dt__CM
+                                  qv__DY(ikl,k) = qv__00(ikl,k)
+! #qd        qid_CM(ikl,k) =  qid_CM(ikl,k) * psa_DY(ikl)    * dsigmi(k)
+! #qd        qwd_CM(ikl,k) =  qwd_CM(ikl,k) * psa_DY(ikl)    * dsigmi(k)
+            END DO
+
+
+
+! Update of Microphysical Variables:  INSIDE PHY_MAR
+! --------------------------------------------------
+
+          IF    (CM_UpD)                                           THEN
+            DO k = 1,mzp
+
+             dqw_CM(ikl,k) =  0.0000
+             dqr_CM(ikl,k) =  0.0000
+             dqi_CM(ikl,k) =  0.0000
+             dqs_CM(ikl,k) =  0.0000
+! #qg        dqg_CM(ikl,k) =  0.0000
+
+             dCF_CM(ikl,k) =  0.0000
+! #cw        dCw_CM(ikl,k) =  0.0000
+             dCi_CM(ikl,k) =  0.0000
+            END DO
+
+
+
+! Update of Microphysical Variables: OUTSIDE PHY_MAR
+! --------------------------------------------------
+
+          ELSE
+            DO k = 1,mzp
+             dqw_CM(ikl,k) = (qw__CM(ikl,k) -qw__00(ikl,k)) / dt__CM
+             dqr_CM(ikl,k) = (qr__CM(ikl,k) -qr__00(ikl,k)) / dt__CM
+             dqi_CM(ikl,k) = (qi__CM(ikl,k) -qi__00(ikl,k)) / dt__CM
+             dqs_CM(ikl,k) = (qs__CM(ikl,k) -qs__00(ikl,k)) / dt__CM
+! #qg        dqg_CM(ikl,k) = (qg__CM(ikl,k) -qg__00(ikl,k)) / dt__CM
+             dCF_CM(ikl,k) = (CFraCM(ikl,k) -CFra00(ikl,k)) / dt__CM
+! #cw        dCw_CM(ikl,k) = (CCNwCM(ikl,k) -CCNw00(ikl,k)) / dt__CM
+             dCi_CM(ikl,k) = (CCNiCM(ikl,k) -CCNi00(ikl,k)) / dt__CM
+
+             qw__CM(ikl,k) =  qw__00(ikl,k)
+             qr__CM(ikl,k) =  qr__00(ikl,k)
+             qi__CM(ikl,k) =  qi__00(ikl,k)
+             qs__CM(ikl,k) =  qs__00(ikl,k)
+! #qg        qg__CM(ikl,k) =  qg__00(ikl,k)
+! Gilles : dCF_CM pas utilise pour mettre a jour CFraCM
+!            CFraCM(ikl,k) =  CFra00(ikl,k)
+! #cw        CCNwCM(ikl,k) =  CCNw00(ikl,k)
+             CCNiCM(ikl,k) =  CCNi00(ikl,k)
+
+            END DO
+          END IF
+
+
+
+
+
+!  Isotopes Proxies: Diagnostics
+!  =============================
+
+          IF (nHL_CM.EQ.0)                                          THEN
+              Hcd_CM(ikl) = 0.
+              Hsb_CM(ikl) = 0.
+              Tcd_CM(ikl) = 0.
+              Tsb_CM(ikl) = 0.
+              Zcd_CM(ikl) = 0.
+              Zsb_CM(ikl) = 0.
+          END IF
+              nHL_CM      = nHL_CM     + 1
+
+              Hcd =  0.0
+              Hsb =  0.0
+              Tcd =  0.0
+              Tsb =  0.0
+              Zcd =  0.0
+              Zsb =  0.0
+          DO k=2,mzp
+             HLatCM(ikl,k) = (Ta__CM(ikl,k)                            &
+     &                       -pkt_DY(ikl,k) *ExnrDY(ikl,k)) / dt__CM
+
+              Hcd =  Hcd + dsigmi(k)*max(HLatCM(ikl,k),0.)
+              Hsb =  Hsb - dsigmi(k)*min(HLatCM(ikl,k),0.)
+              Tcd =  Tcd + dsigmi(k)*max(HLatCM(ikl,k),0.)*Ta__CM(ikl,k)
+              Tsb =  Tsb - dsigmi(k)*min(HLatCM(ikl,k),0.)*Ta__CM(ikl,k)
+              Zcd =  Zcd + dsigmi(k)*max(HLatCM(ikl,k),0.)*Z___DY(ikl,k)
+              Zsb =  Zsb - dsigmi(k)*min(HLatCM(ikl,k),0.)*Z___DY(ikl,k)
+          END DO
+
+              facLHR = (CpdAir/LhsH2O)*psa_DY(ikl)   *1.e3*Grav_I*dt__CM
+
+          IF (write_Proxy)                                          THEN
+              Hcd_CM(ikl) =(Hcd_CM(ikl)  + Hcd * facLHR) / nHL_CM
+              Hsb_CM(ikl) =(Hsb_CM(ikl)  + Hsb * facLHR) / nHL_CM
+              Tcd_CM(ikl) =(Tcd_CM(ikl)  + Tcd * facLHR) / nHL_CM
+              Tsb_CM(ikl) =(Tsb_CM(ikl)  + Tsb * facLHR) / nHL_CM
+              Zcd_CM(ikl) =(Zcd_CM(ikl)  + Zcd * facLHR) / nHL_CM
+              Zsb_CM(ikl) =(Zsb_CM(ikl)  + Zsb * facLHR) / nHL_CM
+          ELSE
+              Hcd_CM(ikl) = Hcd_CM(ikl)  + Hcd * facLHR    
+              Hsb_CM(ikl) = Hsb_CM(ikl)  + Hsb * facLHR    
+              Tcd_CM(ikl) = Tcd_CM(ikl)  + Tcd * facLHR     
+              Tsb_CM(ikl) = Tsb_CM(ikl)  + Tsb * facLHR     
+              Zcd_CM(ikl) = Zcd_CM(ikl)  + Zcd * facLHR     
+              Zsb_CM(ikl) = Zsb_CM(ikl)  + Zsb * facLHR     
+          END IF
+
+        END DO
+
+          IF (write_Proxy)  nHL_CM = 0
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                       !
+!  DE-ALLOCATION                                                        !
+!  =============                                                        !
+
+      IF (FlagDALLOC)                                              THEN !
+          deallocate ( qv__00 )                                         !  Air   Specific Humidity  before Cloud Microphys.  [kg/kg]
+          deallocate ( qw__00 )                                         !  Cloud Droplets Concentr. before Cloud Microphys.  [kg/kg]
+          deallocate ( qi__00 )                                         !  Cloud Crystals Concentr. before Cloud Microphys.  [kg/kg]
+          deallocate ( qs__00 )                                         !  Snow  Particl. Concentr. before Cloud Microphys.  [kg/kg]
+! #qg     deallocate ( qg__00 )                                         !  Graupels       Concentr. before Cloud Microphys.  [kg/kg]
+          deallocate ( qr__00 )                                         !  Rain  Drops    Concentr. before Cloud Microphys.  [kg/kg]
+          deallocate ( CFra00 )                                         !  Cloud Fraction           before Cloud Microphys.      [-]
+! #cw     deallocate ( CCNw00 )                                         !  Cloud Condens. Nuclei    before Cloud Microphys.      [-]
+          deallocate ( CCNi00 )                                         !  Cloud Ice      Nuclei    before Cloud Microphys.      [-]
+      END IF                                                            !
+!                                                                       !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+      return
+
+      end subroutine PHY_Atm_CM_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_ALLOC.f90	(revision 2160)
@@ -0,0 +1,50 @@
+      subroutine PHY_Atm_CP_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-May-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_CP_ALLOC  allocates prognostic variables of           |
+!                Atmospheric Turbulence Scheme used by MAR                     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Mon 17-May-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_CP_kkl
+!     use Mod_PHY_CP_xyz
+
+
+      IMPLICIT NONE
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_CP_kkl - BEGIN
+! =================================
+
+      allocate  ( timeCP(kcolp    ) )                        !  Convective Adjustment Time                                 [s]
+
+      allocate  ( dpktCP(kcolp,mzp) )                        !  Pseudo Potential Temperature Tendency                  [K/X/s]
+      allocate  ( dqv_CP(kcolp,mzp) )                        !  Specific         Humidity    Tendency                [kg/kg/s]
+      allocate  ( dqw_CP(kcolp,mzp) )                        !  Cloud Droplets Concentration Tendency                [kg/kg/s]
+      allocate  ( dqi_CP(kcolp,mzp) )                        !  Cloud Crystals Concentration Tendency                [kg/kg/s]
+
+      allocate  ( drr_CP(kcolp    ) )                        !  Rain (convective)            Tendency                    [m/s]
+      allocate  ( rainCP(kcolp    ) )                        !  Rain (convective)                                        [m/s]
+      allocate  ( dss_CP(kcolp    ) )                        !  Snow (convective)            Tendency                    [m/s]
+      allocate  ( snowCP(kcolp    ) )                        !  Snow (convective)                                        [m/s]
+      allocate  ( CAPECP(kcolp    ) )                        !  Convective Available Potentential Energy               [m2/s2]
+
+! =================================
+! ALLOCATION Mod_PHY_CP_kkl -   END
+! =================================
+
+
+
+
+
+      end subroutine PHY_Atm_CP_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_INI.f90	(revision 2160)
@@ -0,0 +1,231 @@
+      subroutine PHY_Atm_CP_INI(mzc,kcolc)
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-Jun-2013  MAR |
+!     subroutine PHY_Atm_CP_INI    interfaces                                  |
+!                Bechtold et al. (2001) Convective Parameterization with MAR   |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Mon  8-Apr-2013      |
+!           Last Modification by H. Gallee,               Mon 17-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     INPUT                                                                    |
+!     ^^^^^        it_EXP             : Experiment Iteration Counter           |
+!                  dt__CP             : Mass Flux  Scheme:   Time Step         |
+!                  dxHOST             : grid spacing  of  HOST MODEL       [m] |
+!                  qs__CM(kcolp,mzpp) : air  snow  Particl. concentr.  [kg/kg] |
+!                  qr__CM(kcolp,mzp ) : air  rain  drops    concentr.  [kg/kg] |
+!                                                                              |
+!     INPUT/OUTPUT                                                             |
+!     ^^^^^^^^^^^^                                                             |
+!                  qw__CM(kcolp,mzp ) : air  cloud droplets concentr.  [kg/kg] |
+!                  qi__CM(kcolp,mzp ) : air  cloud crystals concentr.  [kg/kg] |
+!                  snowCP(kcolp     ) : Snow (convective)                  [m] |
+!                  snowCM(kcolp     ) : Snow (convective + stratiform)     [m] |
+!                  rainCP(kcolp     ) : Rain (convective)                  [m] |
+!                  rainCM(kcolp     ) : Rain (convective + stratiform)     [m] |
+!                                                                              |
+!     OUTPUT       dpktCP(kcolp,mzp ) : Reduc. Pot.Temperat.Tendency   [K/X/s] |
+!     ^^^^^^       dqv_CP(kcolp,mzp ) : Specific   Humidity Tendency [kg/kg/s] |
+!                  dqw_CP(kcolp,mzp ) : cloud dropl.Concent.Tendency [kg/kg/s] |
+!                  dqi_CP(kcolp,mzp ) : cloud cryst.Concent.Tendency [kg/kg/s] |
+!                                                                              |
+!                  dss_CP(kcolp     ) : Snow (convective)   Tendency     [m/s] |
+!                  drr_CP(kcolp     ) : Rain (convective)   Tendency     [m/s] |
+!                                                                              |
+!                  pkt_DY(kcolp,mzp ) : Reduced  Potential Temperature   [K/X] |
+!                                                                              |
+!                  CAPECP(kcolp     ) : Convective Avail.Potent.Energy         |
+!                                                                              |
+!     REFER. :  MesoNH MASS FLUX CONVECTION Routine                            |
+!     ^^^^^^^^         (Bechtold et al., 2001, QJRMS 127, pp 869-886)          |
+!                                                                              |
+!   # OPTION : #EW  Energy and Water  Conservation                             |
+!   # ^^^^^^^^                                                                 |
+!                                                                              |
+!     MODIF. HGallee: 18-11-2004: Adaptation to CVAmnh.f90.laurent             |
+!     ^^^^^^                      (Argument kensbl of CONVECTION removed)      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY____kkl
+      use Mod_PHY_CP_ctr
+      use Mod_PHY_CP_dat
+      use Mod_PHY_CP_grd
+      use Mod_PHY_CP_kkl
+      use Mod_PHY_DY_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! Global Variables
+! ================
+
+      integer                                       ::  mzc                    !  Nb of levels
+      integer                                       ::  kcolc                  !  Nb of columns
+
+
+
+
+! Local  Variables
+! ================
+
+      logical                                       ::  ANAtun = .TRUE.        !  Parameterization of anabatic breeze
+      real(kind=real8)                              ::  dANA                   !
+
+      integer                                       ::  i                      !  x-Axis Index
+      integer                                       ::  j                      !  y-Axis Index
+      integer                                       ::  k                      !  Level  Index (from top    to bottom)
+      integer                                       ::  ikl                    !  Column Index
+
+
+
+
+! ALLOCATION
+! ==========
+
+!          ****************
+      call PHY_Atm_CP_ALLOC
+!          ****************
+
+
+
+
+! SET UP CONVECTION Dimension: Verification
+! =========================================
+
+            IF   (mzc   .ne. mzp  )                               THEN
+                write(6,601) mzc  ,mzp
+ 601            format('    ?!&~@|@[#@#]=!!!, mzc   =',i4,' .NE.  mzp   =',i4)
+                STOP
+            END IF
+
+            IF   (kcolc .ne. kcolp)                               THEN
+                write(6,602) kcolc,kcolp
+ 602            format('    ?!&~@|@[#@#]=!!!, kcolc =',i4,' .NE.  kcolp =',i4)
+                STOP
+            END IF
+
+
+            kfdia0  =   kcolp                                           ! index of the last  column of the vector
+
+
+
+
+! SET UP CONVECTION SWITCHES
+! ==========================
+
+        IF (Lod_CP)                                                 THEN
+            Odeep  = Lod_CP
+        ELSE
+            Odeep  = Odeep0
+            write(6,*) 'Deep    Convection Switch     set to ',Odeep
+        END IF
+        IF (Los_CP)                                                 THEN
+            Oshal  = Los_CP
+        ELSE
+            Oshal  = Oshal0
+            write(6,*) 'Shallow Convection Switch     set to ',Oshal
+        END IF
+
+        IF (dtd_CP.GT.0.)                                           THEN
+            pdtCVx = dtd_CP
+        ELSE
+            pdtCVx = pdtCV0
+            write(6,*) 'd(time) Convection CALL       set to ',pdtCVx
+        END IF
+
+        IF (t_d_CP.GT.0.)                                           THEN
+            PTdcv  = t_d_CP
+        ELSE
+            PTdcv  = PTdcv0
+            write(6,*) 'Deep    Convection Time Scale set to ',PTdcv
+        END IF
+        IF (t_s_CP.GT.0.)                                           THEN
+            PTscv  = t_s_CP
+        ELSE
+            PTscv  = PTscv0
+            write(6,*) 'Shallow Convection Time Scale set to ',PTscv
+        END IF
+
+
+
+
+! Mass Flux Scheme: Set Up Time Stepping
+! ======================================
+
+            pdtCV  =  pdtCVx
+        if (pdtCV .lt.dt__CP)                                     then
+            pdtCV  =  dt__CP
+            jjtCV0 =   1
+        else
+            jjtCV0 =  pdtCV  / dt__CP
+!  ..       jjtCV0 :  Number of  Convective Steps for 1    Update Step
+
+            pdtCV  =  dt__CP * jjtCV0
+!  ..       pdtCV  :  Calibrated Convection                  Time Step
+
+        end if
+            iitCV0 =  0
+
+
+
+
+! Set UP Anabatic Breeze Parameterization
+! =======================================
+
+       IF     ( Lo_ANA )                                            THEN
+          rANA      = 2.0d+0 * vANA / xANA
+!  ..     rANA      : Subgrid Mountain Breeze: Horizontal Divergence
+!                    (Factor 2 included  for 2 horizontal Directions)
+
+
+! Simple Tuning
+! -------------
+
+        IF(ANAtun)                                                  THEN
+         DO ikl = 1,kcolp
+          hANA(ikl) = sh__AP(ikl) * 2.0d+0                              !  2.0 is a tuning parameter
+         END DO
+
+
+! More sophisticated
+! ------------------
+        ELSE
+         DO ikl = 1,kcolp
+          dANA      = sha_AP(ikl)
+          hANA(ikl) = abs(dANA)*max(zer0,dxHOST/xANA-un_1)
+!  ..     hANA: D("Subgrid Mountain" Height - "Resolved Mountain" Height)
+         END DO
+        END IF
+
+       END IF ! Lo_ANA
+
+
+
+
+! Set UP Tendencies
+! =================
+
+       IF (it_EXP.EQ.1)                                             THEN
+        DO ikl = 1,kcolp
+        DO k   = 1,mzp
+          dpktCP(ikl,k) = 0.
+          dqv_CP(ikl,k) = 0.
+          dqw_CP(ikl,k) = 0.
+          dqi_CP(ikl,k) = 0.
+        END DO
+        END DO
+       END IF
+
+
+
+
+      return
+      end subroutine PHY_Atm_CP_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_CP_RUN.f90	(revision 2160)
@@ -0,0 +1,419 @@
+      subroutine PHY_Atm_CP_RUN(mzc,kcolc)
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-Jun-2013  MAR |
+!     subroutine PHY_Atm_CP_RUN    interfaces                                  |
+!                Bechtold et al. (2001) Convective Parameterization with MAR   |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Mon  8-Apr-2013      |
+!           Last Modification by H. Gallee,               Mon 17-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     INPUT                                                                    |
+!     ^^^^^        it_EXP             : Experiment Iteration Counter           |
+!                  dt__CP             : Mass Flux  Scheme:   Time Step         |
+!                  dxHOST             : grid spacing  of  HOST MODEL       [m] |
+!                  Ta__DY(kcolp,mzpp) : air  temperature                   [K] |
+!                  qs__CM(kcolp,mzpp) : air  snow  Particl. concentr.  [kg/kg] |
+!                  qr__CM(kcolp,mzp ) : air  rain  drops    concentr.  [kg/kg] |
+!                                                                              |
+!     INPUT/OUTPUT                                                             |
+!     ^^^^^^^^^^^^ qv__DY(kcolp,mzpp) : Specific Humidity              [kg/kg] |
+!                  qw__CM(kcolp,mzp ) : air  cloud droplets concentr.  [kg/kg] |
+!                  qi__CM(kcolp,mzp ) : air  cloud crystals concentr.  [kg/kg] |
+!                  snowCP(kcolp     ) : Snow (convective)                  [m] |
+!                  snowCM(kcolp     ) : Snow (convective + stratiform)     [m] |
+!                  rainCP(kcolp     ) : Rain (convective)                  [m] |
+!                  rainCM(kcolp     ) : Rain (convective + stratiform)     [m] |
+!                                                                              |
+!     OUTPUT       dpktCP(kcolp,mzp ) : Reduc. Pot.Temperat.Tendency   [K/X/s] |
+!     ^^^^^^       dqv_CP(kcolp,mzp ) : Specific   Humidity Tendency [kg/kg/s] |
+!                  dqw_CP(kcolp,mzp ) : cloud dropl.Concent.Tendency [kg/kg/s] |
+!                  dqi_CP(kcolp,mzp ) : cloud cryst.Concent.Tendency [kg/kg/s] |
+!                                                                              |
+!                  dss_CP(kcolp     ) : Snow (convective)   Tendency     [m/s] |
+!                  drr_CP(kcolp     ) : Rain (convective)   Tendency     [m/s] |
+!                                                                              |
+!                  pkt_DY(kcolp,mzp ) : Reduced  Potential Temperature   [K/X] |
+!                                                                              |
+!                  CAPECP(kcolp     ) : Convective Avail.Potent.Energy         |
+!                                                                              |
+!     REFER. :  MesoNH MASS FLUX CONVECTION Routine                            |
+!     ^^^^^^^^         (Bechtold et al., 2001, QJRMS 127, pp 869-886)          |
+!                                                                              |
+!   # OPTION : #EW  Energy and Water  Conservation                             |
+!   # ^^^^^^^^                                                                 |
+!                                                                              |
+!     MODIF. HGallee: 18-11-2004: Adaptation to CVAmnh.f90.laurent             |
+!     ^^^^^^                      (Argument kensbl of CONVECTION removed)      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_CP_ctr
+      use Mod_PHY_CP_dat
+      use Mod_PHY_CP_grd
+      use Mod_PHY_CP_kkl
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_CM_kkl
+
+      use Mod_Atm_CP_RUN
+
+      IMPLICIT NONE
+
+
+
+! Global Variables
+! ================
+
+      integer                                       ::  mzc                      !  Nb of levels
+      integer                                       ::  kcolc                    !  Nb of columns
+
+
+
+
+! Local  Variables
+! ================
+
+      real(kind=real8)                              ::  bANA                     !
+      real(kind=real8)                              ::  zANA                     !
+
+      integer                                       ::  i                        !  x-Axis Index 
+      integer                                       ::  j                        !  y-Axis Index
+      integer                                       ::  k                        !  Level  Index (from top    to bottom)
+      integer                                       ::  klc                      !  Level  Index (from bottom to top   )
+      integer                                       ::  ikl                      !  Column Index
+
+      REAL                                          ::  Pdxdy0(kcolc)
+      REAL                                          ::  P_pa_0(kcolc,mzc)
+      REAL                                          ::  P_za_0(kcolc,mzc)
+      REAL                                          ::  P_Ta_0(kcolc,mzc)
+      REAL                                          ::  P_Qa_0(kcolc,mzc)
+      REAL                                          ::  P_Qw_0(kcolc,mzc)
+      REAL                                          ::  P_Qi_0(kcolc,mzc)
+      REAL                                          ::  P_Ua_0(kcolc,mzc)
+      REAL                                          ::  P_Va_0(kcolc,mzc)
+      REAL                                          ::  P_Wa_0(kcolc,mzc)
+
+      integer                                       ::  Kstep1(kcolc)            ! convective counter
+      integer                                       ::  K_CbT1(kcolc)            ! cloud top  level
+      integer                                       ::  K_CbB1(kcolc)            ! cloud base level
+
+      integer, parameter                            ::  KTCCH0=1                 !
+      REAL                                          ::  P_CH_0(kcolc,mzc,KTCCH0)
+      REAL                                          ::  PdCH_1(kcolc,mzc,KTCCH0)
+
+      REAL                                          ::  PdTa_1(kcolc,mzc)
+      REAL                                          ::  PdQa_1(kcolc,mzc)
+      REAL                                          ::  PdQw_1(kcolc,mzc)
+      REAL                                          ::  PdQi_1(kcolc,mzc)
+      REAL                                          ::  Pdrr_1(kcolc)
+      REAL                                          ::  Pdss_1(kcolc)
+      REAL                                          ::  PuMF_1(kcolc,mzc)        !   Upward        Mass Flux
+      REAL                                          ::  PdMF_1(kcolc,mzc)        ! Downward        Mass Flux
+      REAL                                          ::  Pfrr_1(kcolc,mzc)        ! Liquid Precipitation Flux
+      REAL                                          ::  Pfss_1(kcolc,mzc)        !  Solid Precipitation Flux
+      REAL                                          ::  Pcape1(kcolc)            !   CAPE [J/kg]
+
+
+!  Diagnostic Variables
+!  --------------------
+
+! #EW integer                                       ::  irmx  ,jrmx  ,iter_0     !
+! #EW real(kind=real8)                              ::  rr_max,temp_r,energ0     !
+! #EW real(kind=real8)                              ::  water0,waterb            !
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                                !
+!  ALLOCATION
+!  ----------
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                                      THEN !
+          allocate  ( wa_ANA(kcolc,mzc) )                                        !  ANAbatic       Wind        Speed     [m/s]
+      END IF
+!                                                                                !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+! Update Convective Mass Flux
+! ===========================
+
+      IF     ( mod(iitCV0,jjtCV0).EQ.0 )                            THEN
+
+! Martin control
+        PRINT*,'Dans PHY_Atm_CP_RUN'
+        PRINT*,'size(ii__AP)',size(ii__AP)
+        PRINT*,'size(jj__AP)',size(jj__AP)
+        PRINT*,'size(wa_ANA)=',size(wa_ANA)
+        PRINT*,'ii__AP(1)=',ii__AP(1)
+        PRINT*,'jj__AP(1)=',jj__AP(1)
+        PRINT*,'ii__AP(kcolp)=',ii__AP(kcolp)
+        PRINT*,'jj__AP(kcolp)=',jj__AP(kcolp)
+        PRINT*,'mzp=',mzp
+! Martin control
+
+        DO       ikl = 1,kcolp
+
+!           PRINT*,'ikl=',ikl
+
+           i   = ii__AP(ikl)
+           j   = jj__AP(ikl)
+
+!          PRINT*,'ii__AP(',ikl,')=',ii__AP(ikl)
+!          PRINT*,'jj__AP(',ikl,')=',jj__AP(ikl)
+
+
+!  Contribution from Subgrid Mountain Breeze
+!  -----------------------------------------
+
+            DO k=1,mzp
+                  wa_ANA(ikl,k   ) =  0.0
+            END DO
+          IF(Lo_ANA)                                                THEN
+            DO k=1,mzp
+                  bANA             =  min(Z___DY(ikl,k  ),  zi__AT(ikl))
+                  zANA             =        hANA(ikl)      +  bANA * 2.0
+              IF (Z___DY(ikl,k   )   .LE.   zANA             .AND.      &
+     &            Ta__DY(ikl,mzpp)   .GT. Ta__DY(ikl,mzp))          THEN
+                  wa_ANA(ikl,k   ) =        rANA           *  bANA * 0.5 !  Half Integrated Horizontal Divergence
+
+              END IF
+            END DO
+          END IF
+
+
+
+!  Mass Flux convective Scheme: Set Up Vertical Profiles
+!  -----------------------------------------------------
+
+             Pdxdy0(ikl)      = dxHOST * dxHOST                          !  grid area                           [m2]
+          DO klc= 1,mzp
+             k =    mzpp-klc
+             P_pa_0(ikl,klc) = (psa_DY(  ikl)*sigma(k)  + pt__DY) *1.e3  !  pressure     in layer               [Pa]
+             P_za_0(ikl,klc) =  Z___DY(ikl,k)                            !  height of model layer                [m]
+             P_Ta_0(ikl,klc) =  Ta__DY(ikl,k)                            !  grid scale T           at time t     [K]
+             P_Qa_0(ikl,klc) =  qv__DY(ikl,k)                            !  grid scale water vapor at time t [kg/kg]
+             P_Qw_0(ikl,klc) =  qw__CM(ikl,k) / (1.0-qw__CM(ikl,k))      !  grid scale Cloud drops at time t [kg/kg]
+             P_Qi_0(ikl,klc) =  qi__CM(ikl,k) / (1.0-qi__CM(ikl,k))      !  grid scale Cloud ice   at time t [kg/kg]
+             P_Ua_0(ikl,klc) =  ua__DY(ikl,k)                            !  grid scale hor. wind u at time t   [m/s]
+             P_Va_0(ikl,klc) =  va__DY(ikl,k)                            !  grid scale hor. wind v at time t   [m/s]
+             P_Wa_0(ikl,klc) =  wa__DY(ikl,k) +      wa_ANA(ikl,k)       !  grid scale vertic.wind at time t   [m/s]
+          END DO
+
+        END DO ! ikl = 1,kcolp
+
+
+!  Mass Flux convective Scheme: Bechtold et al. (2001) Convective Parameterization
+!  -------------------------------------------------------------------------------
+
+!         ***************
+          call CONVECTION(                                               &
+     &             kcolc , mzc   , kidia0, kfdia0, kbdia0, ktdia0,       &
+     &             pdtCV , Odeep , Oshal , Orset0, Odown0, kIce_0,       &
+     &             OsetA0, PTdcv , PTscv ,                               &
+     &             kensbl,                                               &
+     &     P_pa_0, P_za_0, Pdxdy0,                                       &
+     &     P_Ta_0, P_Qa_0, P_Qw_0, P_Qi_0, P_Ua_0, P_Va_0, P_Wa_0,       &
+     &     Kstep1, PdTa_1, PdQa_1, PdQw_1, PdQi_1,                       &
+     &                     Pdrr_1, Pdss_1,                               &
+     &     PuMF_1, PdMF_1, Pfrr_1, Pfss_1, Pcape1, K_CbT1, K_CbB1,       &
+     &     OCvTC0, KTCCH0, P_CH_0, PdCH_1)
+!         ***************
+
+
+
+!  Mass Flux convective Scheme: products
+!  -------------------------------------
+
+        DO       ikl = 1,kcolp
+             CAPECP(ikl)   = Pcape1(ikl)
+             timeCP(ikl)   = Kstep1(ikl)     *dt__CP
+             drr_CP(ikl)   = Pdrr_1(ikl)
+             dss_CP(ikl)   = Pdss_1(ikl)
+
+          DO klc= 1,mzp
+             k  =   mzpp - klc
+             dpktCP(ikl,k) = PdTa_1(ikl,klc) /ExnrDY(ikl,k)
+             dqv_CP(ikl,k) = PdQa_1(ikl,klc)
+             dqw_CP(ikl,k) = PdQw_1(ikl,klc)
+             dqi_CP(ikl,k) = PdQi_1(ikl,klc)
+
+          END DO
+
+        END DO
+
+
+      END IF ! mod(iitCV0,jjtCV0).EQ.0   (UPDATE)                   THEN
+
+
+
+
+! Vertical Integrated Energy and Water Content
+! ============================================
+
+! #EW     irmx   =       i_x0
+! #EW     jrmx   =       j_y0
+! #EW     rr_max =       0.0
+
+        DO       ikl = 1,kcolp
+           i   = ii__AP(ikl)
+           j   = jj__AP(ikl)
+
+! #EW     enr0EW(ikl) = 0.0
+! #EW     wat0EW(ikl) = 0.0
+
+! #EW    DO k=1,mzp
+! #EW     temp_r      = pkt_DY(ikl,k)*ExnrDY(ikl,k)
+! #EW     enr0EW(ikl) = enr0EW(ikl)                                      &
+! #EW&                +(temp_r                                           &
+! #EW&                -(qw__CM(ikl,k)+qr__CM(ikl,k)) * Lv_CPd            &
+! #EW&                -(qi__CM(ikl,k)+qs__CM(ikl,k)) * Ls_CPd)*dsigmi(k)
+! #EW     wat0EW(ikl) = wat0EW(ikl)                                      &
+! #EW&                +(qv__DY(ikl,k)                                    &
+! #EW&                + qw__CM(ikl,k)+qr__CM(ikl,k)                      &
+! #EW&                + qi__CM(ikl,k)+qs__CM(ikl,k)          )*dsigmi(k)
+! #EW    END DO
+
+! #EW     enr0EW(ikl) = enr0EW(ikl) * psa_DY(  ikl)  * Grav_I
+! #EW     wat0EW(ikl) = wat0EW(ikl) * psa_DY(  ikl)  * Grav_I
+!  ..     wat0EW [m]    contains implicit factor 1.d3 [kPa-->Pa] /ro_Wat
+
+! #EW     energ0      = energ0 - enr0EW(ikl)
+! #EW     water0      = water0 - wat0EW(ikl)
+
+
+
+
+! Update of Mass Flux convective Tendencies
+! =========================================
+
+!       ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+         IF                    (timeCP(ikl) .GT. 0.)                THEN
+
+
+!  Temporal tendencies on pkt_DY, qv__DY and rainCM
+!  ------------------------------------------------
+
+          DO k=1,mzp
+            dqv_CP(ikl,k) = min(dqv_CP(ikl,k),(qv__DY(ikl,k)-epsq)/dt__CP)
+            dqw_CP(ikl,k) = min(dqw_CP(ikl,k),(qw__CM(ikl,k)-epsq)/dt__CP)
+            dqi_CP(ikl,k) = min(dqi_CP(ikl,k),(qi__CM(ikl,k)-epsq)/dt__CP)
+          ENDDO
+
+            rainCM(ikl)   =     rainCM(ikl)  + drr_CP(ikl)        *dt__CP   
+            rainCP(ikl)   =     rainCP(ikl)  + drr_CP(ikl)        *dt__CP   
+
+            snowCM(ikl)   =     snowCM(ikl)  + dss_CP(ikl)        *dt__CP   
+            snowCP(ikl)   =     snowCP(ikl)  + dss_CP(ikl)        *dt__CP   
+
+         ELSE
+
+          DO k=1,mzp
+            dpktCP(ikl,k) =     0.00
+            dqv_CP(ikl,k) =     0.00
+            dqw_CP(ikl,k) =     0.00
+            dqi_CP(ikl,k) =     0.00
+          ENDDO
+
+
+         ENDIF          !      {timeCP(ikl) .gt. 0}
+
+            timeCP(ikl)   = max(timeCP(ikl) - dt__CP,zer0)
+!  ..       ^^^^ remaining time before the end of convection
+!       ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+
+! Vertical Integrated Energy and Water Content
+! ============================================
+
+! #EW     enr1EW(ikl) = 0.0
+! #EW     wat1EW(ikl) = 0.0
+! #EW     watfEW(ikl) =-drr_CP(ikl)
+
+! #EW    DO k=1,mz
+! #EW     temp_r      = pkt_DY(ikl,k)*ExnrDY(ikl,k)
+! #EW     enr1EW(ikl) = enr1EW(ikl)                                      &
+! #EW&                +(temp_r                                           &
+! #EW&                -(qw__CM(ikl,k)+qr__CM(ikl,k)) *Lv_CPd             &
+! #EW&                -(qi__CM(ikl,k)+qs__CM(ikl,k)) *Ls_CPd)*dsigmi(k)
+! #EW     wat1EW(ikl) = wat1EW(ikl)                                      &
+! #EW&                +(qv__DY(ikl,k)                                    &
+! #EW&                + qw__CM(ikl,k)+qr__CM(ikl,k)                      &
+! #EW&                + qi__CM(ikl,k)+qs__CM(ikl,k)         )*dsigmi(k)
+! #EW    END DO
+
+! #EW     enr1EW(ikl) = enr1EW(ikl) * psa_DY(  ikl)  *Grav_I             &
+! #EW&                - drr_CP(ikl)                  *Lv_CPd
+! #EW     wat1EW(ikl) = wat1EW(ikl) * psa_DY(  ikl)  *Grav_I
+!  ..     wat1EW [m]    contains implicit factor 1.d3 [kPa-->Pa] /rhoWat
+
+! #EW     energ0      = energ0 + enr1EW(ikl)
+! #EW     water0      = water0 + wat1EW(ikl)
+! #EW     iter_0      = iter_0 + 1
+
+
+
+
+! Vertical Integrated Energy and Water Content: OUTPUT
+! ====================================================
+
+! #EW   IF (drr_CP(ikl).gt.rr_max)                                THEN
+! #EW       rr_max =       drr_CP(ikl)
+! #EW       irmx   =              i
+! #EW       jrmx   =                j
+! #EW   END IF
+
+        END DO
+
+! #EW   waterb = wat1EW(irmx,jrmx)-wat0EW(irmx,jrmx)-watfEW(irmx,jrmx)
+! #EW   write(6,606) it_EXP,enr0EW(irmx,jrmx),1.d3*wat0EW(irmx,jrmx),    &
+! #EW&            irmx,jrmx,enr1EW(irmx,jrmx),1.d3*wat1EW(irmx,jrmx),    &
+! #EW&                                        1.d3*watfEW(irmx,jrmx),    &
+! #EW&                                        1.d3*waterb           ,    &
+! #EW&                      energ0/iter_0    ,     water0/iter_0
+ 606    format(i9,'  Before CVAj:  E0 =',f12.6,'  W0 = ',f9.6,           &
+     &    /,i5,i4,'  After  CVAj:  E1 =',f12.6,'  W1 = ',f9.6,           &
+     &                                         '  W Flux =',f9.6,        &
+     &                                         '  Div(W) =',e9.3,        &
+     &       /,9x,'         Mean   dE =',f12.9,'  dW = ',e9.3)
+
+
+
+
+! Incrementation Step Nb
+! ======================
+
+      iitCV0 = iitCV0 + 1
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                                !
+!  DE-ALLOCATION
+!  =============
+
+      IF (FlagDALLOC)                                      THEN !
+          deallocate  ( wa_ANA )                                                 !  ANAbatic       Wind        Speed     [m/s]
+      END IF
+
+! Bug corrigé par Martin:
+!      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                                      THEN !
+!          deallocate  ( wa_ANA )                                                 !  ANAbatic       Wind        Speed     [m/s]
+!      END IF
+!                                                                                !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+      return
+      end subroutine PHY_Atm_CP_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_ALLOC.f90	(revision 2160)
@@ -0,0 +1,53 @@
+
+      subroutine PHY_Atm_DY_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Fri  7-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_DY_ALLOC  allocates prognostic variables of           |
+!                Atmospheric Turbulence Scheme used by MAR                     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Fri  7-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_DY_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_DY_kkl - BEGIN
+! =================================
+
+      allocate  ( psa_DY(kcolp     ) )                       !  Pressure    Thickness                                    [kPa]
+      allocate  ( ExnrDY(kcolp,mzpp) )                       !  Potential   Exner                        pa  **(R/Cp)    [xxx]
+      allocate  ( Z___DY(kcolp,mzpp) )                       !  Geopotential, level k    , i.e. =  gZ(k)         /  g  [m2/s2]
+      allocate  ( ZmidDY(kcolp,mzpp) )                       !  Geopotential, level k-1/2, i.e. = (gZ(k)+gZ(k-1))/(2g) [m2/s2]
+
+      allocate  ( TmidDY(kcolp,mzpp) )                       !  Temperature , level k+1/2, i.e. = (Ta(k)+Ta(k+1))/ 2       [K]
+      allocate  ( Ta__DY(kcolp,mzpp) )                       !  Temperature , level k    , i.e. =  Ta(k)                   [K]
+      allocate  ( pkt_DY(kcolp,mzpp) )                       !  Pseudo P.T. , level k                                      [K]
+      allocate  ( windDY(kcolp,mzp ) )                       !  Wind Speed, Horizontal                                   [m/s]
+      allocate  ( ua__DY(kcolp,mzp ) )                       !  Wind Speed, x-Direction                                  [m/s]
+      allocate  ( va__DY(kcolp,mzp ) )                       !  Wind Speed, y-Direction                                  [m/s]
+      allocate  ( wa__DY(kcolp,mzp ) )                       !  Wind Speed  z-Direction                                  [m/s]
+      allocate  ( roa_DY(kcolp,mzp ) )                       !  Air Volumic Mass, Layer k                              [Mg/m3]
+      allocate  ( roamDY(kcolp,mzp ) )                       !  Air Volumic Mass, Level k+1/2                          [Mg/m3]
+
+      allocate  ( qv__DY(kcolp,mzpp) )                       !  Specific    Humidity                                   [kg/kg]
+! #LD allocate  ( ld_H2O(kcolp,mzpp) )                       !  Loading    (Humidity, Hydrometeors, Aerosols ...)          [-]
+
+! =================================
+! ALLOCATION Mod_PHY_DY_kkl -   END
+! =================================
+
+
+
+      end subroutine PHY_Atm_DY_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_INI.f90	(revision 2160)
@@ -0,0 +1,33 @@
+      subroutine PHY_Atm_DY_INI
+
+!------------------------------------------------------------------------------+
+!                                                         Fri  7-Jun-2013  MAR |
+!   MAR          PHY_Atm_DY_INI                                                |
+!     subroutine PHY_Atm_DY_INI intializes Turbulent Vertical Diffusion Scheme |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Fri  7-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+!     use Mod_PHY____grd
+
+
+      IMPLICIT NONE
+
+
+
+!     integer    ::    i,     j,     k,     ikl
+
+
+
+! Initialization of Mod_PHY_DY_kkl
+! ================================
+
+!                ****************
+          CALL   PHY_Atm_DY_ALLOC
+!                ****************
+
+
+      end subroutine PHY_Atm_DY_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_DY_RUN.f90	(revision 2160)
@@ -0,0 +1,50 @@
+      subroutine PHY_Atm_DY_RUN
+
+!------------------------------------------------------------------------------+
+!                                                         Sat  8-Jun-2013  MAR |
+!   MAR          PHY_Atm_DY_RUN                                                |
+!     subroutine PHY_Atm_DY_RUN  updates Variables coming from MAR Dynamics    |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Fri 22-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat  8-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_AT_kkl
+! #LD use Mod_PHY_CM_kkl
+
+
+      IMPLICIT NONE
+
+
+
+      integer    ::    i,     j,     k,     ikl
+
+
+
+! Assignation    of Mod_PHY_DY_kkl
+! ================================
+
+
+        DO ikl = 1,kcolp
+
+        DO   k = 1,mzpp  
+
+! #LD     ld_H2O(ikl,k) = qv__DY(ikl,k)                                 &
+! #LD&           - 1.64 *(qw__CM(ikl,k)+qi__CM(ikl,k)                   &
+! #LD&                   +qs__CM(ikl,k)+qr__CM(ikl,k))                  &
+!    &                   +Aerosols ...
+! #LD&           + 0.00
+
+          TmidDY(ikl,k) =(Ta__DY(ikl,k)+Ta__DY(ikl,min(k+1,mzpp))) * 0.5
+        ENDDO
+
+
+        ENDDO
+
+
+      end subroutine PHY_Atm_DY_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_ALLOC.f90	(revision 2160)
@@ -0,0 +1,65 @@
+
+      subroutine PHY_Atm_RT_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Sun 16-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_RT_ALLOC  allocates prognostic variables of           |
+!                Radiative Transfer Scheme used by MAR                         |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Wed  6-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun 16-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_RT_grd
+      use Mod_PHY_RT_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_RT_kkl - BEGIN
+! =================================
+
+      allocate  ( O3__RT   (kcolp,mzp      ) )                 !  Ozone    Concentration                               [Pa/Pa]
+      allocate  ( AersRT   (kcolp,mzp,naero) )                 !  Aerosol  Optical Thickness                               [-]
+      allocate  ( ODAzRT   (kcolp,mzp      ) )                 !  Aerosols Optical Thickness (Layer z)                     [-]
+      allocate  ( ODA_RT   (kcolp          ) )                 !  Aerosols Optical Thickness (vertically integrated)       [-]
+
+      allocate  ( ODCzRT   (kcolp,mzp      ) )                 !  Clouds   Optical Thickness (Layer z)                     [-]
+      allocate  ( ODC_RT   (kcolp          ) )                 !  Clouds   Optical Thickness (vertically integrated)       [-]
+
+      allocate  ( FIRn_c   (kcolp,mzpp     ) )                 !  CLEAR-SKY         LW NET      FLUXES                  [W/m2]
+      allocate  ( FIRn_t   (kcolp,mzpp     ) )                 !  TOTAL             LW NET      FLUXES                  [W/m2]
+      allocate  ( FSOn_c   (kcolp,mzpp     ) )                 !  CLEAR-SKY         SW NET      FLUXES                  [W/m2]
+      allocate  ( FSOn_t   (kcolp,mzpp     ) )                 !  TOTAL             SW NET      FLUXES                  [W/m2]
+      allocate  ( FSOs_t   (kcolp          ) )                 !  TOTAL-SKY SURFACE SW DOWNWARD FLUX                    [W/m2]
+      allocate  ( FSOdir   (kcolp          ) )                 !  SOLAR RADIANCE  IN SUN'S  DIRECTION                   [W/m2]
+      allocate  ( FSOsUV   (kcolp          ) )                 !  SURFACE   DOWNWARD U.V.   RADIATION                   [W/m2]
+      allocate  ( FSOeff   (kcolp          ) )                 !  PHOTOSYNTHETICALLY ACTIVE RADIATION                   [W/m2]
+
+      allocate  ( SWDsRT   (kcolp          ) )                 ! Surface ShrtWave Heat Flux (+)  (Downward)             [W/m2]
+      allocate  ( SWAsRT   (kcolp          ) )                 ! Surface ShrtWave Heat Flux (+)  (Absorbed)             [W/m2]
+      allocate  ( LWDsRT   (kcolp          ) )                 ! Surface LongWave Heat Flux (+)  (Downward)             [W/m2]
+      allocate  ( LWUsRT   (kcolp          ) )                 ! Surface LongWave Heat Flux (+)  (  Upward)             [W/m2]
+      allocate  ( ClouRT   (kcolp          ) )                 ! Total Cloudiness above lowest Atmospheric Level           [-]
+
+      allocate  ( OLR_RT   (kcolp          ) )                 !  OutgoingLongWave Radiation (+)  (  Upward)            [W/m2]
+
+      allocate  ( SWdTRT   (kcolp,mzp      ) )                 !  Radiative Heating SW                                 [K/Day]
+      allocate  ( LWdTRT   (kcolp,mzp      ) )                 !  Radiative Heating LW                                 [K/Day]
+      allocate  ( dpktRT   (kcolp,mzp      ) )                 !  Radiative Heating SW + LW                              [K/s]
+
+
+! =================================
+! ALLOCATION Mod_PHY_RT_kkl -   END
+! =================================
+
+
+      end subroutine PHY_Atm_RT_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_INI.f90	(revision 2160)
@@ -0,0 +1,32 @@
+      subroutine PHY_Atm_RT_INI
+
+!------------------------------------------------------------------------------+
+!                                                         Sun 30-Jun-2013  MAR |
+!   MAR          PHY_Atm_RT_INI                                                |
+!     subroutine PHY_Atm_RT_INI intializes Radiative Vertical Transfer  Scheme |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun 30-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_RT_grd
+
+
+      IMPLICIT NONE
+
+
+
+
+! Initialization of DATA
+! ======================
+
+!                **********
+      CALL       Atm_RT_INI
+!                **********
+
+
+
+      end subroutine PHY_Atm_RT_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_RT_RUN.f90	(revision 2160)
@@ -0,0 +1,31 @@
+      subroutine PHY_Atm_RT_RUN(rklonr,iklOUT)
+
+!------------------------------------------------------------------------------+
+!                                                         Tue  7-May-2013  MAR |
+!   MAR          PHY_Atm_RT_RUN                                                |
+!     subroutine PHY_Atm_RT_RUN performs   Radiative Vertical Transfer  Scheme |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue  7-May-2013      |
+!           Last Modification by H. Gallee,               Tue  7-May-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      IMPLICIT NONE
+
+
+
+      integer                      ::  rklonr                           ! nb    des pts de grilles
+      integer                      ::  iklOUT                           ! OUTPUT   (pt  de grille)
+
+
+
+! Initialization of DATA
+! ======================
+
+!                **********
+      CALL       Atm_RT_RUN(rklonr,iklOUT)
+!                **********
+
+
+
+      end subroutine PHY_Atm_RT_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_ALLOC.f90	(revision 2160)
@@ -0,0 +1,41 @@
+
+      subroutine PHY_Atm_S0_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 15-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_Atm_S0_ALLOC  allocates prognostic variables of           |
+!                Insolation Scheme used by MAR                                 |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,               Sat 15-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY_S0_grd
+      use Mod_PHY_S0_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! =================================
+! ALLOCATION Mod_PHY_S0_kkl - BEGIN
+! =================================
+
+      allocate  ( csz0S0   (kcolp) )                         !  cosine (solar zenithal Distance)                          [-]
+      allocate  ( csz_S0   (kcolp) )                         !  cosine (solar zenithal Distance), including Slope  Effect [-]
+      allocate  ( cszkS0   (kcolp, n_azim) )                 !  cosine (solar zenithal Distance), including Mountain Mask [-]
+      allocate  ( slopS0   (kcolp) )                         !  Cosine of Fall Line Angle                                 [-]
+      allocate  ( omenS0   (kcolp) )                         !  Fall Line Azimuth (Downslope Direction)                   [-]
+
+! =================================
+! ALLOCATION Mod_PHY_S0_kkl -   END
+! =================================
+
+
+      end subroutine PHY_Atm_S0_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_INI.f90	(revision 2160)
@@ -0,0 +1,128 @@
+      subroutine PHY_Atm_S0_INI
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 15-Jun-2013  MAR |
+!   MAR          PHY_Atm_S0_INI                                                |
+!     subroutine PHY_Atm_S0_INI initializes Insolation Computation             |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,               Sat 15-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     REFER.:   Ch.  Tricot, personal communication                            |
+!     ^^^^^^^   M.F. Loutre, personal communication and thesis (1993)          |
+!                                                                              |
+!     INPUT :   Mon_TU, Day_TU        : Month and Day of the Year              |
+!     ^^^^^^^   HourTU, MinuTU, Sec_TU: Hour, Minute, and Second               |
+!               lon__r(kcolp) : Latitude                             [radians] |
+!               lat__h(kcolp) : Longitude                              [hours] |
+!                                                                              |
+!     OUTPUT:   rsunS0        : Insolation normal to Atmosphere Top (W/m2)     |
+!     ^^^^^^^   csz0S0        : Cosinus of the Zenithal Distance               |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+! Global Variables
+! ================
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY____kkl
+      use Mod_PHY_S0_ctr
+      use Mod_PHY_S0_dat
+      use Mod_PHY_S0_grd
+      use Mod_PHY_S0_kkl
+
+
+      IMPLICIT NONE
+
+
+
+
+! LOCAL VARIABLES
+! ===============
+
+      integer                                              ::  ikl    !
+      real(kind=real8)                                     ::  omenor !  Fall Line Azimuth                      [radian] INI
+
+
+
+
+! ALLOCATION
+! ==========
+
+!          ****************
+      CALL PHY_Atm_S0_ALLOC
+!          ****************
+
+
+! INITIALIZATION
+! ==============
+
+
+! Insolation Parameters (kBP is time in kyear BP, and is prescribed in Mod_PHY_S0_dat)
+! ---------------------
+
+        ecc    =    ecc_EO(kBP)                                         ! Earth Orbit Eccentricity                   [-]
+        perh   =    perhEO(kBP)                                         ! Longitude of Perihelion               [degree]
+        xob    =    xob_EO(kBP)                                         ! Obliquity                             [degree]
+
+        pirr   =    Dg2Rad / 3600.
+
+        xee    =      ecc  * ecc                                        ! Square    of Eccentricity                  [-]
+        xse    = sqrt(un_1 - xee)                                       ! Square Root (1-Ecc**2)                     [-]
+        xe3    =      xee  * ecc                                        !
+        xl     =      perh +  180.0                                     ! Longitude of Aphelion                 [degree]
+        xllp   =      xl   * Dg2Rad                                     ! Longitude of Aphelion                 [radian]
+        so     =  sin(xob  * Dg2Rad)                                    ! sinus     of Obliquity
+
+        xlam  =(ecc/2.0+ecc*xee/8.0)*(1.0    +xse)*sin(    xllp)       &! true long. sun for mean long. = 0     [radian]
+     &        -(xee/4.0            )*(0.5    +xse)*sin(2.0*xllp)       &!
+     &         +ecc*xee/8.0         *(1.0/3.0+xse)*sin(3.0*xllp)        !
+        xlam  = 2.0*xlam/Dg2Rad                                         ! true long. sun for mean long. = 0     [degree]
+
+        step   = 360.00 /Tyear                                          ! Advance on Earth Orbit in 1 day   [degree/day]
+
+
+
+
+! Initialisation of Slope effect on Insolation: Slope Azimuth
+! ===========================================================
+
+        IF         (FaceS0)                                         THEN
+
+          DO ikl=1,kcolp
+
+                    slopS0(ikl) =      cos(atan(slopAP(ikl)))           !  Cosine of Fall Line Angle
+
+            IF (abs(sloxAP(ikl)).gt.zer0)                           THEN
+                    omenor = atan(sloyAP(ikl) / sloxAP(ikl))            !  Fall Line Azimuth   (Upslope Direction)
+              IF   (sloxAP(ikl) .lt.zer0)                              &!
+     &              omenor =  omenor + piNmbr                           !
+
+              IF   (omenor.gt.         piNmbr)                         &!
+     &              omenor =  -2.0d0 * piNmbr + omenor                  !
+              IF   (omenor.lt.        -piNmbr)                         &!
+     &              omenor =   2.0d0 * piNmbr + omenor                  !
+
+            ELSE
+              IF   (sloyAP(ikl).gt.zer0) then
+                    omenor =   0.5d0 * piNmbr
+              ELSE
+                    omenor =   1.5d0 * piNmbr
+              END IF
+            END IF
+
+                    omenS0(ikl) =      omenor - piNmbr                  !  Fall Line Azimuth (Downslope Direction)
+                                                                        !                 (in MAR Reference Frame)
+                                                                        !              (positive counterclockwise)
+          END DO
+
+        END IF
+
+
+      return
+      end subroutine PHY_Atm_S0_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_Atm_S0_RUN.f90	(revision 2160)
@@ -0,0 +1,388 @@
+      subroutine PHY_Atm_S0_RUN
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-Jun-2013  MAR |
+!   MAR          PHY_Atm_S0_RUN                                                |
+!     subroutine PHY_Atm_S0_RUN performs    Insolation Computation             |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Thu 25-Apr-2013      |
+!           Last Modification by H. Gallee,               Mon 17-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     REFER.:   Ch.  Tricot, personal communication                            |
+!     ^^^^^^^   M.F. Loutre, personal communication and thesis (1993)          |
+!                                                                              |
+!     INPUT :   Mon_TU, Day_TU        : Month and Day of the Year              |
+!     ^^^^^^^   HourTU, MinuTU, Sec_TU: Hour, Minute, and Second               |
+!               lon__r(kcolp) : Latitude                             [radians] |
+!               lat__h(kcolp) : Longitude                              [hours] |
+!                                                                              |
+!     OUTPUT:   rsunS0        : Insolation normal to Atmosphere Top (W/m2)     |
+!     ^^^^^^^   csz0S0        : Cosinus of the Zenithal Distance               |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+! Global Variables
+! ================
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY____kkl
+      use Mod_PHY_S0_ctr
+      use Mod_PHY_S0_dat
+      use Mod_PHY_S0_grd
+      use Mod_PHY_S0_kkl
+
+
+
+! LOCAL VARIABLES
+! ===============
+
+      use Mod_Atm_S0_RUN
+
+
+      IMPLICIT NONE
+
+
+      integer                                       ::   i, j  !
+      integer                                       ::  ikl    !
+      integer                                       ::     nj  !
+      integer                                       ::  lhc    !
+
+      real(kind=real8)                              ::  dlamm  ! mean long. sun for ma-ja
+      real(kind=real8)                              ::    anm  !
+      real(kind=real8)                              ::   ranm  !
+      real(kind=real8)                              ::   ranv  ! anomalie  vraie                          [radian]
+      real(kind=real8)                              ::    anv  ! anomalie  vraie                          [degree]
+      real(kind=real8)                              ::    tls  ! longitude vraie                          [degree] 
+      real(kind=real8)                              ::  rlam   ! longitude vraie                          [radian]
+      real(kind=real8)                              ::    sd   ! sinus of solar declination angle (delta)      [-]
+      real(kind=real8)                              ::    cd   ! cosin of solar declination angle (delta)      [-]
+      real(kind=real8)                              ::  deltar ! Solar Declination (angle sun at equator) [radian]
+      real(kind=real8)                              ::  delta  ! Solar Declination (angle sun at equator) [degree]
+
+      real(kind=real8)                              ::  ddt    !
+      real(kind=real8)                              ::  arg    !
+      real(kind=real8)                              ::  et     !
+      real(kind=real8)                              ::  c1     !
+      real(kind=real8)                              ::  c2     !
+      real(kind=real8)                              ::  c3     !
+      real(kind=real8)                              ::  s1     !
+      real(kind=real8)                              ::  s2     !
+      real(kind=real8)                              ::  s3     !
+
+      real(kind=real8)                              ::  argc   !
+      real(kind=real8)                              ::  ahc    !
+
+      real(kind=real8)                              ::  LenDay !  Day     Length                               [h]
+      real(kind=real8)                              ::  SunRis !  Time of Sun Rise                             [h]
+      real(kind=real8)                              ::  SunSet !  Time of Sun Set                              [h]
+      real(kind=real8)                              ::  timh   !
+      real(kind=real8)                              ::  ahor   !  Time Angle                                [hour]
+      real(kind=real8)                              ::  ahorr  !  Time Angle                              [radian]
+      real(kind=real8)                              ::  chor   !
+      real(kind=real8)                              ::  zenitr !                                                   RUN
+
+      real(kind=real8)                              ::  omesun !  Sun       Azimuth                       [radian] RUN
+
+      real(kind=real8)                              ::  comes  !
+      real(kind=real8)                              ::  somes  !
+      real(kind=real8)                              ::  omeswr !
+
+      real(kind=real8)                              ::  r_azim !  azimuth         , fine resolution                ALL
+
+      integer                                       ::  k_azim !                                                   ALL
+      integer                                       ::  knazim !                                                   RUN
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                  !
+! ALLOCATION
+! ==========
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                        THEN !
+          allocate ( cszMIN(kcolp) )                               !  MIN    cos(zenith.Dist), if Mountain MASK        RUN
+          allocate ( sin_sz(kcolp) )                               !     sin(Sun Zenith.Dist)                          RUN
+          allocate ( sin_ho(kcolp) )                               !     sin(Sun Hour  Angle)                          RUN
+      ENDIF
+!                                                                  !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+! Insolation at the Top of the Atmosphere (TIME       PARAMETERS)
+! ===============================================================
+
+! Solar declination : delta
+! -------------------------
+
+      nj      = Day_TU+njYear(Mon_TU)                                   ! Nb of Days since Begin of Year           [day]
+
+      dlamm   = xlam  +      (nj-80) * step                             ! mean long. sun for ma-ja
+        anm   = dlamm -       xl
+       ranm   =   anm *       Dg2Rad
+       ranv   =  ranm +(2.0*ecc-xe3/4.0)*sin(ranm)                     &! anomalie  vraie                       [radian]
+     &             +5.0/4.0*ecc*ecc     *sin(2.0*ranm)                 &!
+     &            +13.0/12.0   *xe3     *sin(3.0*ranm)                  !
+      anv     =  ranv /       Dg2Rad                                    ! anomalie  vraie                       [degree]
+      tls     =   anv +       xl                                        ! longitude vraie                       [degree] 
+      rlam    =   tls *       Dg2Rad                                    ! longitude vraie                       [radian]
+
+      sd      =    so *   sin(rlam)                                     ! sinus of solar declination angle (delta)   [-]
+      cd      =          sqrt(un_1 - sd * sd)                           ! cosin of solar declination angle (delta)   [-]
+                                                                        ! sinus delta = sin(obl)*sin(lambda)
+                                                                        !                       with lambda = real longitude
+                                                                        !(Phd.thesis Marie-France Loutre, ASTR-UCL, Belgium, 1993)
+      deltar  =          atan(       sd / cd)                           !
+      delta   = deltar/Dg2Rad                                           ! Solar Declination (degrees, angle sun at equator)
+
+
+! Eccentricity Effect
+! -------------------
+
+      dST_UA  =(1.0-ecc*ecc)/(1.0+ecc*cos(ranv))
+      ddt     = 1.0/dST_UA                                              ! 1 / normalized earth's sun distance
+
+
+! Insolation normal to the atmosphere (W/m2)
+! ------------------------------------------
+
+      rsunS0  = ddt *ddt *1368.
+
+
+! Time Equation (Should maybe be modified in case other than present 
+! -------------  conditions are used, minor impact)
+
+      arg = om*nj
+      c1  = cos(     arg)
+      c2  = cos(2.d0*arg)
+      c3  = cos(3.d0*arg)
+      s1  = sin(     arg)
+      s2  = sin(2.d0*arg)
+      s3  = sin(3.d0*arg)
+
+      et=0.0072d0*c1 -0.0528d0*c2 -0.0012d0*c3                         &! difference between true solar and mean solar hour angles
+     &  -0.1229d0*s1 -0.1565d0*s2 -0.0041d0*s3                          ! (connected to the earth orbital rotation speed)
+
+
+
+
+! Insolation at the Top of the Troposphere (Auxiliary Variables)
+! ==============================================================
+
+
+! Day Length, Time Sunrise and Sunset at Sounding Grid Point (i_x0,j_y0)
+! ----------------------------------------------------------------------
+
+      IF (LDayS0)                                                   THEN
+          i = i_x0
+          j = j_y0
+
+               argc   = -tan(lat__r(ikl0))*tan(deltar)
+       if (abs(argc).gt. 1.d0)                                      then
+           ahc        =  0.d0
+        if    (argc .gt. 1.d0)                                      then
+           lhc       =  -1
+           LenDay    =   0.d0                                           ! Polar  Night
+        else
+           lhc       =   1
+           LenDay    =  24.d0                                           ! Midnight Sun
+        end if
+           SunRis    =   0.d0
+           SunSet    =   0.d0
+       else
+           ahc       =  acos(argc)
+           lhc       =   0
+
+        if(ahc.lt.0.d0) ahc  =  -ahc
+           ahc       =           ahc * 12.d0 / piNmbr
+           LenDay    =           ahc *  2.d0
+           SunRis    =  12.d0  - ahc - et 
+           SunSet    =  SunRis + LenDay
+       end if
+
+      END IF
+
+! Time Angle
+! ----------
+
+         timh  = HourTU + MinuTU      / 60.d0                           ! time         [hour]
+
+      DO ikl=1,kcolp
+         ahor  = timh   + lon__h(ikl) - 12.d0 - et                      ! time angle   [hour]
+         ahorr = ahor   * piNmbr      / 12.d0                           ! time angle [radian]
+         chor  = cos(ahorr)
+
+
+
+
+! Solar Zenithal Distance zenitr (radians) and
+! Insolation (W/m2) at the Atmosphere Top  ===
+! =======================================
+
+         csz0S0(ikl) =      sinLat(ikl) *sd                             &
+     &                    + cosLat(ikl) *cd *chor
+! Martin modif to avoid cos(sza)=0 for LMDZ:
+!          csz0SV(ikl) = max(1E-6,csz0S0(ikl))
+         csz0S0(ikl) =  max(csz0S0(ikl) ,zer0)
+         csz_S0(ikl) =      csz0S0(ikl)
+
+! Martin control
+!        PRINT*,'csz0S0(',ikl,')=',csz0S0(ikl)
+! Martin control
+
+      ENDDO
+
+
+
+! Sun   Azimuth
+! =============
+
+      IF   (FaceS0)                                                 THEN
+        DO ikl = 1,kcolp
+
+
+! Slope Impact
+! ------------
+
+                  zenitr      = acos(csz0S0(ikl))                       !  Solar Zenithal Distance [radians]
+                  sin_sz(ikl) =  sin(zenitr)
+                  sin_ho(ikl) =  sin(ahorr)
+                  sin_sz(ikl) =  max(eps6      ,sin_sz(ikl))
+
+                  comes       =(sd-sinLat(ikl) *csz0S0(ikl))           &!  Cosine of Sun Azimuth
+     &                        /(   cosLat(ikl) *sin_sz(ikl))            !
+                  somes       =(cd*sin_ho(ikl)) /sin_sz(ikl)            !    Sine of Sun Azimuth
+
+          IF (abs(comes).gt.zer0)                                   THEN
+                  omesun = atan(somes/comes)
+            IF   (comes .lt.zer0)                                      &
+     &            omesun =  omesun + piNmbr
+
+            IF   (omesun.gt.         piNmbr)                           &
+     &            omesun =  -2.0d0 * piNmbr + omesun
+            IF   (omesun.lt.        -piNmbr)                           &
+     &            omesun =   2.0d0 * piNmbr + omesun
+
+          ELSE
+            IF   (somes .gt.zer0)                                   THEN
+                  omesun =   0.5d0 * piNmbr
+            ELSE
+                  omesun =   1.5d0 * piNmbr
+            END IF
+          END IF
+
+          IF (ikl.eq.ikl0)                                             &
+      &           omeswr =  omesun / Dg2Rad
+                  omesun =  -2.0d0 * piNmbr + omesun + DirAxX * Dg2Rad  !  Sun Azimuth (in MAR Reference Frame)
+                                                                        !           (positive counterclockwise)
+
+! Minimum Zenithal Distance
+! ~~~~~~~~~~~~~~~~~~~~~~~~~
+                  cszMIN(ikl) = 0.0d00
+          IF       (MMskS0)                                         THEN
+                                r_azim = omesun  / d_azim
+                                k_azim =       int(r_azim)
+
+! Mountain S0 MASKING
+! ~~~~~~~~~~~~~~~~~~~
+           IF(k_azim.le.     0)                                     THEN
+                                r_azim = r_azim  + n_azim
+                                k_azim = k_azim  + n_azim
+           END IF
+                                knazim = k_azim  + 1
+           IF(knazim.gt.n_azim) knazim = knazim  - n_azim
+
+                  cszMIN(ikl) = cszkS0(ikl,k_azim)+(r_azim  - k_azim)  &
+     &                        *(cszkS0(ikl,knazim)-cszkS0(ikl,k_azim))
+          END IF ! (MMskS0)
+
+! Cosine of Solar Normal Angle
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+                  csz_S0(ikl) = slopS0(ikl)            *csz0S0(ikl)    &
+     &          + sin_sz(ikl) * slopS0(ikl)*sqrt(un_1  -slopS0(ikl))   &
+     &                        *              cos(omesun-omenS0(ikl))
+                  csz_S0(ikl) =              max(zer0  ,csz_S0(ikl))
+          IF     (csz0S0(ikl).le.cszMIN(ikl))                          &
+     &            csz_S0(ikl) = 0.0d00
+        END DO
+      END IF     ! (FaceS0)
+
+
+
+
+! Output Insolation Characteristics
+! =================================
+
+      IF (MinuTU .eq. 0 .and. Sec_TU .eq. 0)                           THEN
+
+         ahor  = timh   + lon__h(ikl0)  - 12.d0 - et
+         zenitr=     acos(csz0S0(ikl0)) / Dg2Rad
+! #AZ    anormr=     acos(csz_S0(ikl0)) / Dg2Rad
+! #AZ    omenwr= DirAxX - omenS0(ikl0)  / Dg2Rad
+! #AZ    if (omenwr.lt.  0.) omenwr = omenwr + 360.d0
+! #AZ    if (omenwr.gt.360.) omenwr = omenwr - 360.d0
+! #AZ                        omeswr = 360.d0 - omeswr
+! #AZ    if (omeswr.lt.  0.) omeswr = omeswr + 360.d0
+! #AZ    if (omeswr.gt.360.) omeswr = omeswr - 360.d0
+
+        write(4,1)           lat__r(ikl0)/Dg2Rad,lon__h(ikl0)           &
+     &            ,Day_TU,Mon_TU,HourTU,MinuTU,Sec_TU
+ 1      format(/,' lat.=',f6.1,3x,'long.=',f7.1,4x,'date :',i3,'-',i2,  &
+     &           ' / ',i2,' h.UT',i3,' min.',i3,' sec.')
+        write(4,2) i_x0,j_y0,lat__r(ikl0)/Dg2Rad,lon__h(ikl0)
+ 2      format(' Sounding at (',i3,i3,') / (',f6.2,'dg,',f6.2,'ho)')
+        write(4,3) rsunS0*csz_S0(ikl0)     ,ahor,zenitr                 &
+! #AZ&            ,omeswr,omenwr           ,     anormr                 &
+     &            ,delta
+ 3      format(' Insolation [W/m2]  = ',f7.2,'   Hor.Angle = ',f7.2,    &
+     &         '   Zenith.Angle = ',f7.2                                &
+! #AZ&      ,/,'                      ', 7x ,'   Sol.Azim. = ',f7.2     &
+! #AZ&      ,/,'                      ', 7x ,'   Nrm.Azim. = ',f7.2     &
+! #AZ&        ,'   Normal Angle = ',f7.2                                &
+     &      ,/,' Solar Declination  = ',f7.2)
+
+      IF       (LDayS0)                                             THEN
+       if (lhc.eq.-1)                                                   &
+     &  write(4,4) SunRis,LenDay,SunSet
+ 4      format(' Sun Rise Time [h]  = ',f7.2,'   Day Leng. = ',f7.2,    &
+     &         '   Sun Set Time = ',f7.2,'  -- POLAR  NIGHT --')
+       if (lhc.eq. 0)                                                   &
+     &  write(4,5) SunRis,LenDay,SunSet
+ 5      format(' Sun Rise Time [h]  = ',f7.2,'   Day Leng. = ',f7.2,    &
+     &         '   Sun Set Time = ',f7.2,'  -- SOLAR  TIME  --')
+       if (lhc.eq. 1)                                                   &
+     &  write(4,6) SunRis,LenDay,SunSet
+ 6      format(' Sun Rise Time [h]  = ',f7.2,'   Day Leng. = ',f7.2,    &
+     &         '   Sun Set Time = ',f7.2,'  -- MIDNIGHT SUN --')
+      END IF ! (LDayS0)
+
+      END IF ! 
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                  !
+! DE-ALLOCATION
+! =============
+
+      IF (FlagDALLOC)                                         THEN !
+          deallocate ( cszMIN )                                    !  Sum of cos(zenith.Dist) on Azimut Intervals      RUN
+          deallocate ( sin_sz )                                    !     sin(Sun zenith.Dist)                          RUN
+          deallocate ( sin_ho )                                    !     sin(Sun Hour  Angle)                          RUN
+      ENDIF
+!                                                                  !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+      return
+      end subroutine PHY_Atm_S0_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_CPU_NumPrec.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_CPU_NumPrec.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_CPU_NumPrec.f90	(revision 2160)
@@ -0,0 +1,945 @@
+      subroutine PHY_CPU_NumPrec
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 30-Mar-2013  MAR |
+!   MAR          PHY_CPU_NumPrec                                               |
+!                                                                              |
+!     SubRoutine relrea Computes Machine Precision                             |
+!        using a LAPACK auxiliary routine                                      |
+!     (Originating from CONVEX -- Ruud VAN DER PAS)                            |
+!                                                                              |
+!     version 3.p.4.1 adapted by H. Gallee,               Sat 30-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 30-Mar-2013      |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+
+
+      IMPLICIT NONE
+
+      character(len=1)      ::   cc
+      real(kind=real8)      ::   eps
+      real(kind=real8)      ::   sf_MIN
+      real(kind=real8)      ::   rr_MIN
+      real(kind=real8)      ::   rr_MAX
+      integer               ::   iargum,i__MIN,i__MAX
+
+      REAL                  ::   SLAMCH
+
+
+
+! Machine Precision
+! =================
+
+      cc     ='E'
+      eps    = SLAMCH(cc)
+      cc     ='S'
+      sf_MIN = SLAMCH(cc)
+      cc     ='U'
+      rr_MIN = SLAMCH(cc)
+      cc     ='O'
+      rr_MAX = SLAMCH(cc)
+
+
+      write(6,600) eps,sf_MIN,rr_MIN,rr_MAX
+ 600  format(' Precision relative  : ',e12.4,                          &
+     &     /,' Plus petit nombre   : ',e12.4,                          &
+     &     /,' Underflow Threshold = ',e12.4,                          &
+     &     /,' Overflow  Threshold = ',e12.4)
+
+
+
+
+! Min and Max Arguments of Function exp(x)
+! ========================================
+
+      ea_MIN = log(rr_MIN)
+      iargum =     ea_MIN
+      i__MIN =     iargum + 7
+      ea_MAX = log(rr_MAX)
+      iargum =     ea_MAX
+      i__MAX =     iargum - 8
+
+      write(6,601) ea_MIN,i__MIN,ea_MAX,i__MAX
+ 601  format(/,' Function  exp(x)    :   Arguments:',                  &
+     &       /,' Minimum Value       : ',e12.4, 5x,'==> (',i3,')',     &
+     &       /,' Maximum Value       : ',e12.4, 5x,'==> (',i3,')')
+
+      ea_MIN =     i__MIN
+      ea_MAX =     i__MAX
+
+
+
+      return
+      end subroutine PHY_CPU_NumPrec
+
+
+      REAL             FUNCTION SLAMCH( CMACH )
+ 
+!  -- LAPACK auxiliary routine (version 1.0) --
+!     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+!     Courant Institute, Argonne National Lab, and Rice University
+!     February 29, 1992
+ 
+!     .. Scalar Arguments ..
+      CHARACTER          CMACH
+!     ..
+ 
+!  Purpose
+!  =======
+ 
+!  SLAMCH determines single precision machine parameters.
+ 
+!  Arguments
+!  =========
+ 
+!  CMACH   (input) CHARACTER*1
+!          Specifies the value to be returned by SLAMCH:
+!          = 'E' or 'e',   SLAMCH := eps
+!          = 'S' or 's ,   SLAMCH := sfmin
+!          = 'B' or 'b',   SLAMCH := base
+!          = 'P' or 'p',   SLAMCH := eps*base
+!          = 'N' or 'n',   SLAMCH := t
+!          = 'R' or 'r',   SLAMCH := rnd
+!          = 'M' or 'm',   SLAMCH := emin
+!          = 'U' or 'u',   SLAMCH := rmin
+!          = 'L' or 'l',   SLAMCH := emax
+!          = 'O' or 'o',   SLAMCH := rmax
+ 
+!          where
+ 
+!          eps   = relative machine precision
+!          sfmin = safe minimum, such that 1/sfmin does not overflow
+!          base  = base of the machine
+!          prec  = eps*base
+!          t     = number of (base) digits in the mantissa
+!          rnd   = 1.0 when rounding occurs in addition, 0.0 otherwise
+!          emin  = minimum exponent before (gradual) underflow
+!          rmin  = underflow threshold - base**(emin-1)
+!          emax  = largest exponent before overflow
+!          rmax  = overflow threshold  - (base**emax)*(1-eps)
+ 
+ 
+!     .. Parameters ..
+      REAL               ONE, ZERO
+      PARAMETER          ( ONE = 1.0d+0, ZERO = 0.0d+0 )
+!     ..
+!     .. Local Scalars ..
+      LOGICAL            FIRST, LRND
+      INTEGER            BETA, IMAX, IMIN, IT
+      REAL               BASE, EMAX, EMIN, EPS, PREC, RMACH, RMAX, RMIN
+      REAL               RND, SFMIN, SMALL, T
+!     ..
+!     .. External Functions ..
+      LOGICAL            LSAME
+      EXTERNAL           LSAME
+!     ..
+!     .. External Subroutines ..
+      EXTERNAL           SLAMC2
+!     ..
+!     .. Save statement ..
+      SAVE               FIRST, EPS, SFMIN, BASE, T, RND, EMIN, RMIN
+      SAVE               EMAX, RMAX, PREC
+!     ..
+!     .. Data statements ..
+      DATA               FIRST / .TRUE. /
+!     ..
+!     .. Executable Statements ..
+ 
+      IF( FIRST ) THEN
+         FIRST = .FALSE.
+         CALL SLAMC2( BETA, IT, LRND, EPS, IMIN, RMIN, IMAX, RMAX )
+         BASE = BETA
+         T = IT
+         IF( LRND ) THEN
+            RND = ONE
+            EPS = ( BASE**( 1-IT ) ) / 2
+         ELSE
+            RND = ZERO
+            EPS = BASE**( 1-IT )
+         END IF
+         PREC = EPS*BASE
+         EMIN = IMIN
+         EMAX = IMAX
+         SFMIN = RMIN
+         SMALL = ONE / RMAX
+         IF( SMALL.GE.SFMIN ) THEN
+ 
+!           Use SMALL plus a bit, to avoid the possibility of rounding
+!           causing overflow when computing  1/sfmin.
+ 
+            SFMIN = SMALL*( ONE+EPS )
+         END IF
+      END IF
+ 
+      IF( LSAME( CMACH, 'E' ) ) THEN
+         RMACH = EPS
+      ELSE IF( LSAME( CMACH, 'S' ) ) THEN
+         RMACH = SFMIN
+      ELSE IF( LSAME( CMACH, 'B' ) ) THEN
+         RMACH = BASE
+      ELSE IF( LSAME( CMACH, 'P' ) ) THEN
+         RMACH = PREC
+      ELSE IF( LSAME( CMACH, 'N' ) ) THEN
+         RMACH = T
+      ELSE IF( LSAME( CMACH, 'R' ) ) THEN
+         RMACH = RND
+      ELSE IF( LSAME( CMACH, 'M' ) ) THEN
+         RMACH = EMIN
+      ELSE IF( LSAME( CMACH, 'U' ) ) THEN
+         RMACH = RMIN
+      ELSE IF( LSAME( CMACH, 'L' ) ) THEN
+         RMACH = EMAX
+      ELSE IF( LSAME( CMACH, 'O' ) ) THEN
+         RMACH = RMAX
+      END IF
+ 
+      SLAMCH = RMACH
+      RETURN
+ 
+!     End of SLAMCH
+ 
+      END
+ 
+! ***********************************************************************
+ 
+      SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 )
+ 
+!  -- LAPACK auxiliary routine (version 1.0) --
+!     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+!     Courant Institute, Argonne National Lab, and Rice University
+!     February 29, 1992
+ 
+!     .. Scalar Arguments ..
+      LOGICAL            IEEE1, RND
+      INTEGER            BETA, T
+!     ..
+ 
+!  Purpose
+!  =======
+ 
+!  SLAMC1 determines the machine parameters given by BETA, T, RND, and
+!  IEEE1.
+ 
+!  Arguments
+!  =========
+ 
+!  BETA    (output) INTEGER
+!          The base of the machine.
+ 
+!  T       (output) INTEGER
+!          The number of ( BETA ) digits in the mantissa.
+ 
+!  RND     (output) LOGICAL
+!          Specifies whether proper rounding  ( RND = .TRUE. )  or
+!          chopping  ( RND = .FALSE. )  occurs in addition. This may not
+!          be a reliable guide to the way in which the machine performs
+!          its arithmetic.
+ 
+!  IEEE1   (output) LOGICAL
+!          Specifies whether rounding appears to be done in the IEEE
+!          'round to nearest' style.
+ 
+!  Further Details
+!  ===============
+ 
+!  The routine is based on the routine  ENVRON  by Malcolm and
+!  incorporates suggestions by Gentleman and Marovich. See
+ 
+!     Malcolm M. A. (1972) Algorithms to reveal properties of
+!        floating-point arithmetic. Comms. of the ACM, 15, 949-951.
+ 
+!     Gentleman W. M. and Marovich S. B. (1974) More on algorithms
+!        that reveal properties of floating point arithmetic units.
+!        Comms. of the ACM, 17, 276-277.
+ 
+ 
+!     .. Local Scalars ..
+      LOGICAL            FIRST, LIEEE1, LRND
+      INTEGER            LBETA, LT
+      REAL               A, B, C, F, ONE, QTR, SAVEC, T1, T2
+!     ..
+!     .. External Functions ..
+      REAL               SLAMC3
+      EXTERNAL           SLAMC3
+!     ..
+!     .. Save statement ..
+      SAVE               FIRST, LIEEE1, LBETA, LRND, LT
+!     ..
+!     .. Data statements ..
+      DATA               FIRST / .TRUE. /
+!     ..
+!     .. Executable Statements ..
+ 
+      IF( FIRST ) THEN
+         FIRST = .FALSE.
+         ONE = 1
+ 
+!        LBETA,  LIEEE1,  LT and  LRND  are the  local values  of  BETA,
+!        IEEE1, T and RND.
+ 
+!        Throughout this routine  we use the Function  SLAMC3  to ensure
+!        that relevant values are  stored and not held in registers,  or
+!        are not affected by optimizers.
+ 
+!        Compute  a = 2.0**m  with the  smallest positive integer m such
+!        that
+ 
+!           fl( a + 1.0 ) = a.
+ 
+         A = 1
+         C = 1
+ 
+!        WHILE( C.EQ.ONE )LOOP
+   10    CONTINUE
+         IF( C.EQ.ONE ) THEN
+            A = 2*A
+            C = SLAMC3( A, ONE )
+            C = SLAMC3( C, -A )
+            GO TO 10
+         END IF
+!        END WHILE
+ 
+!        Now compute  b = 2.0**m  with the smallest positive integer m
+!        such that
+ 
+!           fl( a + b ) .gt. a.
+ 
+         B = 1
+         C = SLAMC3( A, B )
+ 
+!        WHILE( C.EQ.A )LOOP
+   20    CONTINUE
+         IF( C.EQ.A ) THEN
+            B = 2*B
+            C = SLAMC3( A, B )
+            GO TO 20
+         END IF
+!        END WHILE
+ 
+!        Now compute the base.  a and c  are neighbouring floating point
+!        numbers  in the  interval  ( beta**t, beta**( t + 1 ) )  and so
+!        their difference is beta. Adding 0.25 to c is to ensure that it
+!        is truncated to beta and not ( beta - 1 ).
+ 
+         QTR = ONE / 4
+         SAVEC = C
+         C = SLAMC3( C, -A )
+         LBETA = C + QTR
+ 
+!        Now determine whether rounding or chopping occurs,  by adding a
+!        bit  less  than  beta/2  and a  bit  more  than  beta/2  to  a.
+ 
+         B = LBETA
+         F = SLAMC3( B / 2, -B / 100 )
+         C = SLAMC3( F, A )
+         IF( C.EQ.A ) THEN
+            LRND = .TRUE.
+         ELSE
+            LRND = .FALSE.
+         END IF
+         F = SLAMC3( B / 2, B / 100 )
+         C = SLAMC3( F, A )
+         IF( ( LRND ) .AND. ( C.EQ.A ) )                               &
+     &      LRND = .FALSE.
+ 
+!        Try and decide whether rounding is done in the  IEEE  'round to
+!        nearest' style. B/2 is half a unit in the last place of the two
+!        numbers A and SAVEC. Furthermore, A is even, i.e. has last  bit
+!        zero, and SAVEC is odd. Thus adding B/2 to A should not  change
+!        A, but adding B/2 to SAVEC should change SAVEC.
+ 
+         T1 = SLAMC3( B / 2, A )
+         T2 = SLAMC3( B / 2, SAVEC )
+         LIEEE1 = ( T1.EQ.A ) .AND. ( T2.GT.SAVEC ) .AND. LRND
+ 
+!        Now find  the  mantissa, t.  It should  be the  integer part of
+!        log to the base beta of a,  however it is safer to determine  t
+!        by powering.  So we find t as the smallest positive integer for
+!        which
+ 
+!           fl( beta**t + 1.0 ) = 1.0.
+ 
+         LT = 0
+         A = 1
+         C = 1
+ 
+!        WHILE( C.EQ.ONE )LOOP
+   30    CONTINUE
+         IF( C.EQ.ONE ) THEN
+            LT = LT + 1
+            A = A*LBETA
+            C = SLAMC3( A, ONE )
+            C = SLAMC3( C, -A )
+            GO TO 30
+         END IF
+!        END WHILE
+ 
+      END IF
+ 
+      BETA = LBETA
+      T = LT
+      RND = LRND
+      IEEE1 = LIEEE1
+      RETURN
+ 
+!     End of SLAMC1
+ 
+      END
+ 
+! ***********************************************************************
+ 
+      SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
+ 
+!  -- LAPACK auxiliary routine (version 1.0) --
+!     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+!     Courant Institute, Argonne National Lab, and Rice University
+!     February 29, 1992
+ 
+!     .. Scalar Arguments ..
+      LOGICAL            RND
+      INTEGER            BETA, EMAX, EMIN, T
+      REAL               EPS, RMAX, RMIN
+!     ..
+ 
+!  Purpose
+!  =======
+ 
+!  SLAMC2 determines the machine parameters specified in its argument
+!  list.
+ 
+!  Arguments
+!  =========
+ 
+!  BETA    (output) INTEGER
+!          The base of the machine.
+ 
+!  T       (output) INTEGER
+!          The number of ( BETA ) digits in the mantissa.
+ 
+!  RND     (output) LOGICAL
+!          Specifies whether proper rounding  ( RND = .TRUE. )  or
+!          chopping  ( RND = .FALSE. )  occurs in addition. This may not
+!          be a reliable guide to the way in which the machine performs
+!          its arithmetic.
+ 
+!  EPS     (output) REAL
+!          The smallest positive number such that
+ 
+!             fl( 1.0 - EPS ) .LT. 1.0,
+ 
+!          where fl denotes the computed value.
+ 
+!  EMIN    (output) INTEGER
+!          The minimum exponent before (gradual) underflow occurs.
+ 
+!  RMIN    (output) REAL
+!          The smallest normalized number for the machine, given by
+!          BASE**( EMIN - 1 ), where  BASE  is the floating point value
+!          of BETA.
+ 
+!  EMAX    (output) INTEGER
+!          The maximum exponent before overflow occurs.
+ 
+!  RMAX    (output) REAL
+!          The largest positive number for the machine, given by
+!          BASE**EMAX * ( 1 - EPS ), where  BASE  is the floating point
+!          value of BETA.
+ 
+!  Further Details
+!  ===============
+ 
+!  The computation of  EPS  is based on a routine PARANOIA by
+!  W. Kahan of the University of California at Berkeley.
+ 
+ 
+!     .. Local Scalars ..
+      LOGICAL            FIRST, IEEE, IWARN, LIEEE1, LRND
+      INTEGER            GNMIN, GPMIN, I, LBETA, LEMAX, LEMIN, LT 
+      INTEGER            NGNMIN, NGPMIN
+      REAL               A, B, C, HALF, LEPS, LRMAX, LRMIN, ONE, RBASE
+      REAL               SIXTH, SMALL, THIRD, TWO, ZERO
+!     ..
+!     .. External Functions ..
+      REAL               SLAMC3
+      EXTERNAL           SLAMC3
+!     ..
+!     .. External Subroutines ..
+      EXTERNAL           SLAMC1, SLAMC4, SLAMC5
+!     ..
+!     .. Intrinsic Functions ..
+      INTRINSIC          ABS, MAX, MIN
+!     ..
+!     .. Save statement ..
+      SAVE               FIRST, IWARN, LBETA, LEMAX, LEMIN, LEPS, LRMAX
+      SAVE               LRMIN, LT
+!     ..
+!     .. Data statements ..
+      DATA               FIRST / .TRUE. / , IWARN / .FALSE. /
+!     ..
+!     .. Executable Statements ..
+ 
+      IF( FIRST ) THEN
+         FIRST = .FALSE.
+         ZERO = 0
+         ONE = 1
+         TWO = 2
+ 
+!        LBETA, LT, LRND, LEPS, LEMIN and LRMIN  are the local values of
+!        BETA, T, RND, EPS, EMIN and RMIN.
+ 
+!        Throughout this routine  we use the Function  SLAMC3  to ensure
+!        that relevant values are stored  and not held in registers,  or
+!        are not affected by optimizers.
+ 
+!        SLAMC1 returns the parameters  LBETA, LT, LRND and LIEEE1.
+ 
+         CALL SLAMC1( LBETA, LT, LRND, LIEEE1 )
+ 
+!        Start to find EPS.
+ 
+         B = LBETA
+         A = B**( -LT )
+         LEPS = A
+ 
+!        Try some tricks to see whether or not this is the correct  EPS.
+ 
+         B = TWO / 3
+         HALF = ONE / 2
+         SIXTH = SLAMC3( B, -HALF )
+         THIRD = SLAMC3( SIXTH, SIXTH )
+         B = SLAMC3( THIRD, -HALF )
+         B = SLAMC3( B, SIXTH )
+         B = ABS( B )
+         IF( B.LT.LEPS )                                               &
+     &      B = LEPS
+ 
+         LEPS = 1
+ 
+!        WHILE( ( LEPS.GT.B ).AND.( B.GT.ZERO ) )LOOP
+   10    CONTINUE
+         IF( ( LEPS.GT.B ) .AND. ( B.GT.ZERO ) ) THEN
+            LEPS = B
+            C = SLAMC3( HALF*LEPS, ( TWO**5 )*( LEPS**2 ) )
+            C = SLAMC3( HALF, -C )
+            B = SLAMC3( HALF, C )
+            C = SLAMC3( HALF, -B )
+            B = SLAMC3( HALF, C )
+            GO TO 10
+         END IF
+!        END WHILE
+ 
+         IF( A.LT.LEPS )                                               &
+     &      LEPS = A
+ 
+!        Computation of EPS complete.
+ 
+!        Now find  EMIN.  Let A = + or - 1, and + or - (1 + BASE**(-3)).
+!        Keep dividing  A by BETA until (gradual) underflow occurs. This
+!        is detected when we cannot recover the previous A.
+ 
+         RBASE = ONE / LBETA
+         SMALL = ONE
+         DO 20 I = 1, 3
+            SMALL = SLAMC3( SMALL*RBASE, ZERO )
+   20    CONTINUE
+         A = SLAMC3( ONE, SMALL )
+         CALL SLAMC4( NGPMIN, ONE, LBETA )
+         CALL SLAMC4( NGNMIN, -ONE, LBETA )
+         CALL SLAMC4( GPMIN, A, LBETA )
+         CALL SLAMC4( GNMIN, -A, LBETA )
+         IEEE = .FALSE.
+ 
+         IF( ( NGPMIN.EQ.NGNMIN ) .AND. ( GPMIN.EQ.GNMIN ) ) THEN
+            IF( NGPMIN.EQ.GPMIN ) THEN
+               LEMIN = NGPMIN
+!            ( Non twos-complement machines, no gradual underflow;
+!              e.g.,  VAX )
+            ELSE IF( ( GPMIN-NGPMIN ).EQ.3 ) THEN
+               LEMIN = NGPMIN - 1 + LT
+               IEEE = .TRUE.
+!            ( Non twos-complement machines, with gradual underflow;
+!              e.g., IEEE standard followers )
+            ELSE
+               LEMIN = MIN( NGPMIN, GPMIN )
+!            ( A guess; no known machine )
+               IWARN = .TRUE.
+            END IF
+ 
+         ELSE IF( ( NGPMIN.EQ.GPMIN ) .AND. ( NGNMIN.EQ.GNMIN ) ) THEN
+            IF( ABS( NGPMIN-NGNMIN ).EQ.1 ) THEN
+               LEMIN = MAX( NGPMIN, NGNMIN )
+!            ( Twos-complement machines, no gradual underflow;
+!              e.g., CYBER 205 )
+            ELSE
+               LEMIN = MIN( NGPMIN, NGNMIN )
+!            ( A guess; no known machine )
+               IWARN = .TRUE.
+            END IF
+ 
+         ELSE IF( ( ABS( NGPMIN-NGNMIN ).EQ.1 ) .AND.                  &
+     &            ( GPMIN.EQ.GNMIN ) ) THEN
+            IF( ( GPMIN-MIN( NGPMIN, NGNMIN ) ).EQ.3 ) THEN
+               LEMIN = MAX( NGPMIN, NGNMIN ) - 1 + LT
+!            ( Twos-complement machines with gradual underflow;
+!              no known machine )
+            ELSE
+               LEMIN = MIN( NGPMIN, NGNMIN )
+!            ( A guess; no known machine )
+               IWARN = .TRUE.
+            END IF
+ 
+         ELSE
+            LEMIN = MIN( NGPMIN, NGNMIN, GPMIN, GNMIN )
+!         ( A guess; no known machine )
+            IWARN = .TRUE.
+         END IF
+! **
+! Comment out this if block if EMIN is ok
+         IF( IWARN ) THEN
+            FIRST = .TRUE.
+            WRITE( 6, FMT = 9999 )LEMIN
+         END IF
+! **
+ 
+!        Assume IEEE arithmetic if we found denormalised  numbers above,
+!        or if arithmetic seems to round in the  IEEE style,  determined
+!        in routine SLAMC1. A true IEEE machine should have both  things
+!        true; however, faulty machines may have one or the other.
+ 
+         IEEE = IEEE .OR. LIEEE1
+ 
+!        Compute  RMIN by successive division by  BETA. We could compute
+!        RMIN as BASE**( EMIN - 1 ),  but some machines underflow during
+!        this computation.
+ 
+         LRMIN = 1
+         DO 30 I = 1, 1 - LEMIN
+            LRMIN = SLAMC3( LRMIN*RBASE, ZERO )
+   30    CONTINUE
+ 
+!        Finally, call SLAMC5 to compute EMAX and RMAX.
+ 
+         CALL SLAMC5( LBETA, LT, LEMIN, IEEE, LEMAX, LRMAX )
+      END IF
+ 
+      BETA = LBETA
+      T = LT
+      RND = LRND
+      EPS = LEPS
+      EMIN = LEMIN
+      RMIN = LRMIN
+      EMAX = LEMAX
+      RMAX = LRMAX
+ 
+      RETURN
+ 
+ 9999 FORMAT( / / ' WARNING. The value EMIN may be incorrect:-',       &
+     &      '  EMIN = ', I8, /                                         &
+     &      ' If, after inspection, the value EMIN looks',             &
+     &      ' acceptable please comment out ',                         &
+     &      / ' the IF block as marked within the code of routine',    &
+     &      ' SLAMC2,', / ' otherwise supply EMIN explicitly.', / )
+ 
+!     End of SLAMC2
+ 
+      END
+ 
+! ***********************************************************************
+ 
+      REAL             FUNCTION SLAMC3( A, B )
+ 
+!  -- LAPACK auxiliary routine (version 1.0) --
+!     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+!     Courant Institute, Argonne National Lab, and Rice University
+!     February 29, 1992
+ 
+!     .. Scalar Arguments ..
+      REAL               A, B
+!     ..
+ 
+!  Purpose
+!  =======
+ 
+!  SLAMC3  is intended to force  A  and  B  to be stored prior to doing
+!  the addition of  A  and  B ,  for use in situations where optimizers
+!  might hold one of these in a register.
+ 
+!  Arguments
+!  =========
+ 
+!  A, B    (input) REAL
+!          The values A and B.
+ 
+ 
+!     .. Executable Statements ..
+ 
+      SLAMC3 = A + B
+ 
+      RETURN
+ 
+!     End of SLAMC3
+ 
+      END
+ 
+! ***********************************************************************
+ 
+      SUBROUTINE SLAMC4( EMIN, START, BASE )
+ 
+!  -- LAPACK auxiliary routine (version 1.0) --
+!     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+!     Courant Institute, Argonne National Lab, and Rice University
+!     February 29, 1992
+ 
+!     .. Scalar Arguments ..
+      INTEGER            BASE, EMIN
+      REAL               START
+!     ..
+ 
+!  Purpose
+!  =======
+ 
+!  SLAMC4 is a service routine for SLAMC2.
+ 
+!  Arguments
+!  =========
+ 
+!  EMIN    (output) EMIN
+!          The minimum exponent before (gradual) underflow, computed by
+!          setting A = START and dividing by BASE until the previous A
+!          can not be recovered.
+ 
+!  START   (input) REAL
+!          The starting point for determining EMIN.
+ 
+!  BASE    (input) INTEGER
+!          The base of the machine.
+ 
+ 
+!     .. Local Scalars ..
+      INTEGER            I
+      REAL               A, B1, B2, C1, C2, D1, D2, ONE, RBASE, ZERO
+!     ..
+!     .. External Functions ..
+      REAL               SLAMC3
+      EXTERNAL           SLAMC3
+!     ..
+!     .. Executable Statements ..
+ 
+      A = START
+      ONE = 1
+      RBASE = ONE / BASE
+      ZERO = 0
+      EMIN = 1
+      B1 = SLAMC3( A*RBASE, ZERO )
+      C1 = A
+      C2 = A
+      D1 = A
+      D2 = A
+!     WHILE( ( C1.EQ.A ).AND.( C2.EQ.A ).AND.
+!    $       ( D1.EQ.A ).AND.( D2.EQ.A )      )LOOP
+   10 CONTINUE
+      IF( ( C1.EQ.A ) .AND. ( C2.EQ.A ) .AND. ( D1.EQ.A ) .AND.        &
+     &    ( D2.EQ.A ) ) THEN
+         EMIN = EMIN - 1
+         A = B1
+         B1 = SLAMC3( A / BASE, ZERO )
+         C1 = SLAMC3( B1*BASE, ZERO )
+         D1 = ZERO
+         DO 20 I = 1, BASE
+            D1 = D1 + B1
+   20    CONTINUE
+         B2 = SLAMC3( A*RBASE, ZERO )
+         C2 = SLAMC3( B2 / RBASE, ZERO )
+         D2 = ZERO
+         DO 30 I = 1, BASE
+            D2 = D2 + B2
+   30    CONTINUE
+         GO TO 10
+      END IF
+!     END WHILE
+ 
+      RETURN
+ 
+!     End of SLAMC4
+ 
+      END
+ 
+! ***********************************************************************
+ 
+      SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
+ 
+!  -- LAPACK auxiliary routine (version 1.0) --
+!     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+!     Courant Institute, Argonne National Lab, and Rice University
+!     February 29, 1992
+ 
+!     .. Scalar Arguments ..
+      LOGICAL            IEEE
+      INTEGER            BETA, EMAX, EMIN, P
+      REAL               RMAX
+!     ..
+ 
+!  Purpose
+!  =======
+ 
+!  SLAMC5 attempts to compute RMAX, the largest machine floating-point
+!  number, without overflow.  It assumes that EMAX + abs(EMIN) sum
+!  approximately to a power of 2.  It will fail on machines where this
+!  assumption does not hold, for example, the Cyber 205 (EMIN = -28625,
+!  EMAX = 28718).  It will also fail if the value supplied for EMIN is
+!  too large (i.e. too close to zero), probably with overflow.
+ 
+!  Arguments
+!  =========
+ 
+!  BETA    (input) INTEGER
+!          The base of floating-point arithmetic.
+ 
+!  P       (input) INTEGER
+!          The number of base BETA digits in the mantissa of a
+!          floating-point value.
+ 
+!  EMIN    (input) INTEGER
+!          The minimum exponent before (gradual) underflow.
+ 
+!  IEEE    (input) LOGICAL
+!          A logical flag specifying whether or not the arithmetic
+!          system is thought to comply with the IEEE standard.
+ 
+!  EMAX    (output) INTEGER
+!          The largest exponent before overflow
+ 
+!  RMAX    (output) REAL
+!          The largest machine floating-point number.
+ 
+ 
+!     .. Parameters ..
+      REAL               ZERO, ONE
+      PARAMETER          ( ZERO = 0.0d0, ONE = 1.0d0 )
+!     ..
+!     .. Local Scalars ..
+      INTEGER            EXBITS, EXPSUM, I, LEXP, NBITS, TRY, UEXP
+      REAL               OLDY, RECBAS, Y, Z
+!     ..
+!     .. External Functions ..
+      REAL               SLAMC3
+      EXTERNAL           SLAMC3
+!     ..
+!     .. Intrinsic Functions ..
+      INTRINSIC          MOD
+!     ..
+!     .. Executable Statements ..
+ 
+!     First compute LEXP and UEXP, two powers of 2 that bound
+!     abs(EMIN). We then assume that EMAX + abs(EMIN) will sum
+!     approximately to the bound that is closest to abs(EMIN).
+!     (EMAX is the exponent of the required number RMAX).
+ 
+      LEXP = 1
+      EXBITS = 1
+   10 CONTINUE
+      TRY = LEXP*2
+      IF( TRY.LE.( -EMIN ) ) THEN
+         LEXP = TRY
+         EXBITS = EXBITS + 1
+         GO TO 10
+      END IF
+      IF( LEXP.EQ.-EMIN ) THEN
+         UEXP = LEXP
+      ELSE
+         UEXP = TRY
+         EXBITS = EXBITS + 1
+      END IF
+ 
+!     Now -LEXP is less than or equal to EMIN, and -UEXP is greater
+!     than or equal to EMIN. EXBITS is the number of bits needed to
+!     store the exponent.
+ 
+      IF( ( UEXP+EMIN ).GT.( -LEXP-EMIN ) ) THEN
+         EXPSUM = 2*LEXP
+      ELSE
+         EXPSUM = 2*UEXP
+      END IF
+ 
+!     EXPSUM is the exponent range, approximately equal to
+!     EMAX - EMIN + 1 .
+ 
+      EMAX = EXPSUM + EMIN - 1
+      NBITS = 1 + EXBITS + P
+ 
+!     NBITS is the total number of bits needed to store a
+!     floating-point number.
+ 
+      IF( ( MOD( NBITS, 2 ).EQ.1 ) .AND. ( BETA.EQ.2 ) ) THEN
+ 
+!        Either there are an odd number of bits used to store a
+!        floating-point number, which is unlikely, or some bits are
+!        not used in the representation of numbers, which is possible,
+!        (e.g. Cray machines) or the mantissa has an implicit bit,
+!        (e.g. IEEE machines, Dec Vax machines), which is perhaps the
+!        most likely. We have to assume the last alternative.
+!        If this is true, then we need to reduce EMAX by one because
+!        there must be some way of representing zero in an implicit-bit
+!        system. On machines like Cray, we are reducing EMAX by one
+!        unnecessarily.
+ 
+         EMAX = EMAX - 1
+      END IF
+ 
+      IF( IEEE ) THEN
+ 
+!        Assume we are on an IEEE machine which reserves one exponent
+!        for infinity and NaN.
+ 
+         EMAX = EMAX - 1
+      END IF
+ 
+!     Now create RMAX, the largest machine number, which should
+!     be equal to (1.0 - BETA**(-P)) * BETA**EMAX .
+ 
+!     First compute 1.0 - BETA**(-P), being careful that the
+!     result is less than 1.0 .
+ 
+      RECBAS = ONE / BETA
+      Z = BETA - ONE
+      Y = ZERO
+      DO 20 I = 1, P
+         Z = Z*RECBAS
+         IF( Y.LT.ONE )                                                &
+     &      OLDY = Y
+         Y = SLAMC3( Y, Z )
+   20 CONTINUE
+      IF( Y.GE.ONE )                                                   &
+     &   Y = OLDY
+ 
+!     Now multiply by BETA**EMAX to get RMAX.
+ 
+      DO 30 I = 1, EMAX
+         Y = SLAMC3( Y*BETA, ZERO )
+   30 CONTINUE
+ 
+      RMAX = Y
+      RETURN
+ 
+!     End of SLAMC5
+ 
+      END
+
+
+      LOGICAL FUNCTION LSAME(CH1,CH2)
+
+!------------------------------------------+
+!     cfr. Hubert Gallee, 30 octobre 92    |
+!------------------------------------------+
+
+      CHARACTER CH1,CH2
+      IF (CH1.EQ.CH2)  THEN
+       LSAME = .TRUE.
+      ELSE
+       LSAME = .FALSE.
+      END IF
+      RETURN
+      END
+
Index: LMDZ5/branches/testing/libf/phymar/PHY_MAR_DAT.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_MAR_DAT.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_MAR_DAT.f90	(revision 2160)
@@ -0,0 +1,108 @@
+      subroutine PHY_MAR_DAT(sh___HOST                                 &
+     &                      ,sh_a_HOST                                 &
+     &                      ,dx___HOST                                 &
+     &                      ,dy___HOST                                 &
+     &                      ,slopxHOST                                 &
+     &                      ,slopyHOST                                 &
+     &                      ,slopeHOST                                 &
+     &                      ,MMaskHOST                                 &
+     &                      ,ixq1,mxqq                                 &
+     &                      ,jyq1,myqq                                 &
+     &                      ,m_azim)
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 15-Jun-2013  MAR |
+!     subroutine PHY_MAR_DAT INPUTs PHY_MAR data and                           |
+!                            computes horizontal dependencies                  |
+!                                                                              |
+!     Applied to: ...                                                          |
+!                                                                              |
+!                                                                              |
+! # OPTIONS: #xy  ...                                                          |
+! # ^^^^^^^^ #..  ...                                                          |
+!                                                                              |
+!                                                                              |
+! # CAUTION: Highly simplified version of PHY_MAR_DAT for academic applications|
+! # ^^^^^^^^                                                                   |
+!                                                                              |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Fri 14-Jun-2013      |
+!           Last Modification by H. Gallee,               Sat 15-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+
+
+      IMPLICIT NONE
+
+
+      real            , dimension(ixq1:mxqq,jyq1:myqq)         ::  sh___HOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  sh_a_HOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  dx___HOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  dy___HOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  slopxHOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  slopyHOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq)         ::  slopeHOST
+      real(kind=real8), dimension(ixq1:mxqq,jyq1:myqq,m_azim)  ::  MMaskHOST
+
+      integer                                                  ::  ixq1,mxqq
+      integer                                                  ::  jyq1,myqq
+      integer                                                  ::  m_azim
+
+
+
+
+! Local Variables
+! ===============
+
+      integer                                                  ::  i   ,j   ,k
+
+
+
+
+! Topographie
+! ===========
+
+        DO j= jyq1,myqq
+        DO i= ixq1,mxqq
+!         sh___HOST(i,j)   = 0.00
+          sh_a_HOST(i,j)   = 0.00
+
+
+
+
+! Discretisation Horizontale
+! ==========================
+
+          dx___HOST(i,j)   = 1.e3
+          dy___HOST(i,j)   = 1.e3
+
+
+
+
+! Pente
+! =====
+
+          slopxHOST(i,j)   = 0.00
+          slopyHOST(i,j)   = 0.00
+          slopeHOST(i,j)   = 0.00
+
+
+
+
+! Masque de Montagnes
+! ===================
+
+        DO k=    1,m_azim
+          MMaskHOST(i,j,k) = 0.00
+        ENDDO
+
+
+        ENDDO
+        ENDDO
+
+
+
+
+      end subroutine PHY_MAR_DAT
Index: LMDZ5/branches/testing/libf/phymar/PHY_MAR___.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_MAR___.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_MAR___.f90	(revision 2160)
@@ -0,0 +1,1322 @@
+      subroutine PHY_MAR                                               &
+
+!------------------------------------------------------------------------------+
+!                                                         Mon  1-Jul-2013  MAR |
+!     subroutine PHY_MAR is the MAR PHYsics Driver                             |
+!     interfaces HOST   variables                                              |
+!            and SISVAT variables                                              |
+!                                                                              |
+!     Applied to: MARthusalem               (variables in MAR***.inc files)    |
+!                                                                              |
+!                                                                              |
+! # OPTIONS: #dT  Distinction among  Tendencies of MAR  Physical Parametr.     |
+! # ^^^^^^^^ #cw  Cloud Condensation Nuclei (CCNw) Microphysics Activation     |
+!                                                                              |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Mon  1-Jul-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+     &                  (FlagSV                                        &   ! FLAG  for SISVAT: (T,F) =                    (active OR NOT)
+     &                  ,FlagSV_Veg                                    &   ! FLAG  for SISVAT: (T,F) =       (Variable Vegetation OR NOT)
+     &                  ,FlagSV_SNo                                    &   ! FLAG  for SISVAT: (T,F) =         (Snow Model active OR NOT)
+     &                  ,FlagSV_BSn                                    &   ! FLAG  for SISVAT: (T,F) = (Blowing Snow Model active OR NOT)
+     &                  ,FlagSV_KzT                                    &   ! FLAG  for SISVAT: (T,F) = (pkt Turb.Transfert active OR NOT in SISVAT)
+     &                  ,FlagSV_SWD                                    &   ! FLAG  for SISVAT: (T,F) = (Modify SW INPUT->downward OR NOT)      
+     &                  ,FlagSV_SBC                                    &   ! FLAG  for SISVAT: (T,F) = (INPUT of Soil & Vege DATA OR NOT in SISVAT)
+     &                  ,FlagSV_UBC                                    &   ! FLAG  for SISVAT: (T,F) = (pkt UpperBC is Von Neuman OR NOT in SISVAT)
+     &                  ,FlagAT                                        &   ! FLAG  for Atm_AT: (T,F) = (Turbulent Transfer active OR NOT)
+     &                  ,TypeAT                                        &   ! TYPE  of  Atm_AT: (e= Ee Duynkerke, K= Ee Kitada, L= EL, H= Ee Huan-R)
+     &                  ,FlagAT_TKE                                    &   ! FLAG  for genTKE: (T,F) = (TKE-e     Model    active OR NOT)
+     &                  ,FlagCM                                        &   ! FLAG  for CMiPhy: (T,F) = (Cloud Microphysics active OR NOT)
+     &                  ,FlagCM_UpD                                    &   ! FLAG  for CMiPhy: (T,F) = (qv & hydrometeors updated OR NOT IN CMiPhy)
+     &                  ,FlagCP                                        &   ! FLAG  for Convection Paramet.
+     &                  ,FlagRT                                        &   ! FLAG  for Radiative Transfer
+     &                  ,FlagS0_SLO                                    &   ! FLAG  for Insolation, Surfac.Slope                 Impact  included NEW
+     &                  ,FlagS0_MtM                                    &   ! FLAG  for Insolation, Surfac.Slope & Mountain Mask Impacts included NEW
+     &                  ,Flag_O                                        &   ! FLAG  for OUTPUT
+     &                  ,FlagVR                                        &   ! FLAG  for OUTPUT for VERIFICATION
+     &                  ,dt0DYn                                        &   ! Time STEP between 2 CALLs of PHY_MAR                     [s] I, fix
+     &                  ,dt0_SV                                        &   ! Time STEP between 2 CALLs of SISVAT                      [s] I, fix
+     &                  ,dt0_AT                                        &   ! Time STEP between 2 CALLs of Atm_AT                      [s] I, fix
+     &                  ,dt0_CM                                        &   ! Time STEP between 2 CALLs of CMiPhy                      [s] I, fix
+     &                  ,dt0_CP                                        &   ! Time STEP between 2 CALLs of CVamnh                      [s] I, fix
+     &                  ,dt0_RT                                        &   ! Time STEP between 2 CALLs of radCEP                      [s] I, fix
+     &                  ,dx                                            &   ! Grid  Mesh size (Horizontal)                             [m] I, fix
+     &                  ,DD_AxX                                        &   ! Grid  x-Axis Direction                              [degree] I, fix
+     &                  ,s_HOST                                        &   ! Grid (Vertical)   of HOST (NORMALIZED PRESSURE assumed)  [-] I, fix
+     &                  ,sh___HOST                                     &   ! Topography                                               [m] I, fix
+     &                  ,sh_a_HOST                                     &   ! Topography Anomaly                                       [m] I, fix NEW
+     &                  ,slopxHOST                                     &   ! Slope, x-direction                                       [-] I, fix NEW
+     &                  ,slopyHOST                                     &   ! Slope, y-direction                                       [-] I, fix NEW
+     &                  ,slopeHOST                                     &   ! Slope                                                    [-] I, fix NEW
+     &                  ,MMaskHOST                                     &   ! Mountain Mask                                            [-] I, fix NEW
+     &                  ,lonh_HOST                                     &   ! Longitude                                             [hour] I, fix
+     &                  ,latr_HOST                                     &   ! Latitude                                            [radian] I, fix
+     &                  ,pkta_HOST                                     &   ! Reduced Potential Temperature                           [XK] I, O
+     &                  ,ptop_HOST                                     &   ! Pressure, Model Top                                    [kPa] I, fix
+     &                  ,psa__HOST                                     &   ! Pressure  Thickness                                    [kPa] I
+     &                  ,gZa__HOST                                     &   ! Geopotential Height                                  [m2/s2] I
+     &                  ,gZam_HOST                                     &   ! Geopotential Height, mid-level                       [m2/s2] I
+     &                  ,Ua___HOST                                     &   ! Wind ,  x-Direction                                    [m/s] I
+     &                  ,Va___HOST                                     &   ! Wind ,  y-Direction                                    [m/s] I
+     &                  ,Wa___HOST                                     &   ! Wind ,  z-Direction                                    [m/s] I
+     &                  ,qv___HOST                                     &   ! Specific  Humidity                                   [kg/kg] I, O 
+     &                  ,qw___HOST                                     &   ! Cloud Droplets Concentration                         [kg/kg] I, O 
+! #cw&                  ,CCN__HOST                                     &   ! CCN            Concentration                          [-/kg]
+     &                  ,qi___HOST                                     &   ! Cloud Crystals Concentration                         [kg/kg] I, O 
+     &                  ,CIN__HOST                                     &   ! CIN            Concentration                          [-/kg] I, O 
+     &                  ,CF___HOST                                     &   ! Cloud Fraction                                           [-] I, O 
+     &                  ,qs___HOST                                     &   ! Snow Particles Concentration                         [kg/kg] I, O 
+     &                  ,qr___HOST                                     &   ! Rain Drops     Concentration                         [kg/kg] I, O 
+     &                  ,TKE__HOST                                     &   ! Turbulent Kinetic Energy                             [m2/s2] I, O
+     &                  ,eps__HOST                                     &   ! Turbulent Kinetic Energy Dissipation                 [m2/s3] I, O
+     &                  ,dpkt___dt                                     &   ! Reduced Potential Temperature TENDENCY, ALL Contribut.[KX/s]    O
+     &                  ,dua____dt                                     &   ! Wind Speed       (x-direc.)   TENDENCY, ALL Contribut.[m/s2]    O
+     &                  ,dva____dt                                     &   ! Wind Speed       (y-direc.)   TENDENCY, ALL Contribut.[m/s2]    O
+     &                  ,dqv____dt                                     &   ! Specific          Humidity    TENDENCY, ALL Contr. [kg/kg/s]    O
+     &                  ,dqw____dt                                     &   ! Cloud Droplets Concentration  TENDENCY, ALL Contr. [kg/kg/s]    O
+! #cw&                  ,dCw____dt                                     &   ! CCN            Concentration  TENDENCY, ALL Contr.     [1/s]
+     &                  ,dqi____dt                                     &   ! Cloud Crystals Concentration  TENDENCY, ALL Contr. [kg/kg/s]    O
+     &                  ,dCi____dt                                     &   ! CIN            Concentration  TENDENCY, ALL Contr.     [1/s]    O
+     &                  ,dCF____dt                                     &   ! Cloud Fraction                TENDENCY, ALL Contr.     [1/s]    O
+     &                  ,dqs____dt                                     &   ! Snow Particles Concentration  TENDENCY, ALL Contr. [kg/kg/s]    O
+     &                  ,dqr____dt                                     &   ! Rain Drops     Concentration  TENDENCY, ALL Contr. [kg/kg/s]   O
+! #dT&                  ,dpktSV_dt                                     &   ! Reduced Potential Temperature TENDENCY, SISVAT        [KX/s]  (O)
+! #dT&                  ,dpktAT_dt                                     &   ! Reduced Potential Temperature TENDENCY, Atm_AT        [KX/s]  (O)
+! #dT&                  ,dqv_AT_dt                                     &   ! Specific          Humidity    TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqw_AT_dt                                     &   ! Cloud Droplets Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqi_AT_dt                                     &   ! Cloud Crystals Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqs_AT_dt                                     &   ! Snow Particles Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqr_AT_dt                                     &   ! Rain Drops     Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #cw&                  ,dCw_AT_dt                                     &   ! CCN            Concentration  TENDENCY, Atm_AT         [1/s]  (O)
+! #dT&                  ,dCi_AT_dt                                     &   ! CIN            Concentration  TENDENCY, Atm_AT         [1/s]  (O)
+! #dT&                  ,dpktCM_dt                                     &   ! Reduced Potential Temperature TENDENCY, CMiPhy        [KX/s]  (O)
+! #dT&                  ,dqv_CM_dt                                     &   ! Specific          Humidity    TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dqw_CM_dt                                     &   ! Cloud Droplets Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dCF_CM_dt                                     &   ! Cloud Fraction                TENDENCY, CMiPhy         [1/s]  (O)
+! #dT&                  ,dqi_CM_dt                                     &   ! Cloud Crystals Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dqs_CM_dt                                     &   ! Snow Particles Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dqr_CM_dt                                     &   ! Rain Drops     Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #cw&                  ,dCw_CM_dt                                     &   ! CCN            Concentration  TENDENCY, CMiPhy         [1/s]  (O)
+! #dT&                  ,dCi_CM_dt                                     &   ! CIN            Concentration  TENDENCY, CMiPhy         [1/s]  (O)
+! #dT&                  ,dpktCP_dt                                     &   ! Reduced Potential Temperature TENDENCY, CVAmnh        [KX/s]  (O)
+! #dT&                  ,dqv_CP_dt                                     &   ! Specific          Humidity    TENDENCY, CVAmnh     [kg/kg/s]  (O)
+! #dT&                  ,dqw_CP_dt                                     &   ! Cloud Droplets Concentration  TENDENCY, CVAmnh     [kg/kg/s]  (O)
+! #dT&                  ,dqi_CP_dt                                     &   ! Cloud Crystals Concentration  TENDENCY, CVAmnh     [kg/kg/s]  (O)
+! #dT&                  ,dpktRT_dt                                     &   ! Reduced Potential Temperature TENDENCY, radCEP        [KX/s]  (O)
+     &                  ,sst__HOST                                     &   ! Ocean     FORCING (SST)                                  [K] I
+! #IP&                  ,sif__HOST                                     &   ! Ocean     FORCING (Sea-Ice Fraction )                    [-] I
+! #AO&                  ,s_T__HOST                                     &   ! Ocean    COUPLING (Surface Temperat.)  n=1: Open Ocean   [-] I,NEMO
+! #AO&                  ,Alb__HOST                                     &   ! Ocean    COUPLING (Surface Albedo   )  n=2: Sea  Ice     [-] I,NEMO
+! #AO&                  ,dSdT2HOST                                     &   ! Ocean    COUPLING ( d(SH Flux) / dT )               [W/m2/K]   O
+! #AO&                  ,dLdT2HOST                                     &   ! Ocean    COUPLING ( d(LH Flux) / dT )               [W/m2/K]   O
+!dead&                  ,it0EXP,it0RUN                                 &   ! Iteration
+     &                  ,Year_H,Mon__H,Day__H,Hour_H,minu_H,sec__H     &   ! Time
+     &                  ,ixq1  ,i0x0  ,mxqq                            &   ! Domain  Dimension: x
+     &                  ,jyq1  ,j0y0  ,myqq                            &   ! Domain  Dimension: y
+     &                  ,mzq   ,mzqq                                   &   ! Domain  Dimension: z
+     &                  ,mwq                                           &   ! Domain  Dimension: mosaic
+     &                  ,kcolq                                         &   ! Domain  Dimension: x * y 
+     &                  ,kcolw                                         &   ! Domain  Dimension: x * y * mosaic
+     &                  ,m_azim                                        &   ! Mountain Mask, nb of directions taken into account       [-]
+     &                  ,IOi0SV,IOj0SV,n0pt)                               ! Indices of OUTPUT Grid Point
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 29-Jun-2013  MAR |
+!     subroutine PHY_MAR is the MAR PHYsics Driver                             |
+!     interfaces HOST   variables                                              |
+!            and SISVAT variables                                              |
+!                                                                              |
+!     Applied to: MARthusalem               (variables in MAR***.inc files)    |
+!                                                                              |
+!                                                                              |
+! # OPTIONS: #dT  Distinction among  Tendencies of MAR  Physical Parametr.     |
+! # ^^^^^^^^ #cw  Cloud Condensation Nuclei (CCNw) Microphysics Activation     |
+!                                                                              |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 29-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY____kkl
+      use Mod_PHY_CM_ctr
+      use Mod_PHY_S0_ctr
+      use Mod_SISVAT_ctr
+      use Mod_PHY_CM_dat
+      use Mod_PHY_AT_grd
+      use Mod_PHY_CM_grd
+      use Mod_PHY_CP_grd
+      use Mod_PHY_RT_grd
+      use Mod_PHY_S0_grd
+      use Mod_SISVAT_grd
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_CM_kkl
+      use Mod_PHY_CP_kkl
+      use Mod_PHY_RT_kkl
+      use Mod_PHY_S0_kkl
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_gpt
+
+      IMPLICIT NONE
+
+      logical                                               ::  FlagSV             !  Flag         (SISVAT)
+      logical                                               ::  FlagSV_Veg         !  Flag         (SISVAT: Vegetation)
+      logical                                               ::  FlagSV_SNo         !  Flag         (SISVAT: Surface * )
+      logical                                               ::  FlagSV_BSn         !  Flag         (SISVAT: Blowing * )
+      logical                                               ::  FlagSV_KzT         !  Flag         (SISVAT: d(KdT/dz)/dz)
+      logical                                               ::  FlagSV_SWD         !  Flag: T/F :  (SISVAT: SW=Down/Abs.)
+      logical                                               ::  FlagSV_SBC         !  Flag: T/F :  (SISVAT: SBC=INP/FIX.)
+      logical                                               ::  FlagSV_UBC         !  Flag: T/F :  (SISVAT: UBC=VonN/Dr.)
+      logical                                               ::  FlagAT             !  Flag         (Turbulent Transfer)
+      character(len=1)                                      ::  TypeAT             !  Type         (Turbulent Transfer)
+      logical                                               ::  FlagAT_TKE         !  Flag         (Turbulent Transfer, TKE-e Model: ON / OFF)
+      logical                                               ::  FlagCM             !  Flag         (Cloud Microphysics)
+      logical                                               ::  FlagCM_UpD         !  Flag: T/F :  (Cloud Microphysics: Update in/out PHY_MAR)
+      logical                                               ::  FlagCP             !  Flag         (Convection Param. )
+      logical                                               ::  FlagRT             !  Flag         (Radiative Transfer)
+      logical                                               ::  FlagS0_SLO         !  FLAG         (Insolation, Surfac.Slope                )
+      logical                                               ::  FlagS0_MtM         !  FLAG         (Insolation, Surfac.Slope & Mountain Mask)
+
+      logical                                               ::  Flag_O             !  Flag         (OUTPUT)
+      logical                                               ::  FlagVR             !  Flag         (OUTPUT for VERIFICATION)
+
+      real                                                  ::  dt0DYn             !  Time   Step  (DYnamics, the shortest)                     [s]
+      real                                                  ::  dt0_SV             !  Time   Step  (SISVAT)                                     [s]
+      real                                                  ::  dt0_AT             !  Time   Step  (Atmo Turb.)                                 [s]
+      real                                                  ::  dt0_CM             !  Time   Step  (Cloud Mic.)                                 [s]
+      real                                                  ::  dt0_CP             !  Time   Step  (Convection)                                 [s]
+      real                                                  ::  dt0_RT             !  Time   Step  (Radiat.Tr.)                                 [s]
+      real                                                  ::  dx                 !  Grid   Size                                               [m]
+      real                                                  ::  DD_AxX             !  x-Axis Direction                                     [degree]
+      real, dimension(mzqq)                                 ::  s_HOST             !  Vertical Coordinate                                       [-]
+      real            , dimension(kcolq)                    ::  sh___HOST          !  Topography                                                [m]
+      real(kind=real8), dimension(kcolq)                    ::  sh_a_HOST          !  Topography Anomaly                                        [m]
+      real(kind=real8), dimension(kcolq)                    ::  slopxHOST          !  Slope, x-direction                                        [-]
+      real(kind=real8), dimension(kcolq)                    ::  slopyHOST          !  Slope, y-direction                                        [-]
+      real(kind=real8), dimension(kcolq)                    ::  slopeHOST          !  Slope                                                     [-]
+      real(kind=real8), dimension(kcolq,m_azim)             ::  MMaskHOST          !  Mountain Mask                                             [-]
+      real, dimension(kcolq)                                ::  lonh_HOST          !  Longitude                                              [hour]
+      real, dimension(kcolq)                                ::  latr_HOST          !   Latitude                                            [radian]
+      real                                                  ::  ptop_HOST          !  Pressure Model Top                                      [kPa]
+
+      real, dimension(kcolq,mzqq)                           ::  pkta_HOST          !  Reduced  Potential Temperature                         [KX/s]
+      real, dimension(kcolq)                                ::  psa__HOST          !  Pressure Thickness                                      [kPa]
+      real, dimension(kcolq,mzqq)                           ::  gZa__HOST          !  Geopotential Height                                   [m2/s2]
+      real, dimension(kcolq,mzqq)                           ::  gZam_HOST          !  Geopotential Height, mid-level                        [m2/s2]
+      real, dimension(kcolq,mzq)                            ::  Ua___HOST          !  Wind Speed, x-direction                                 [m/s]
+      real, dimension(kcolq,mzq)                            ::  Va___HOST          !  Wind Speed, y-direction                                 [m/s]
+      real, dimension(kcolq,mzq) ,INTENT(IN)                ::  Wa___HOST          !  Wind Speed, z-direction                                 [m/s]
+      real, dimension(kcolq,mzqq)                           ::  qv___HOST          !  Specific Humidity                                     [kg/kg]
+      real, dimension(kcolq,mzq)                            ::  qw___HOST          !  Cloud Droplets Concentration                          [kg/kg]
+      real, dimension(kcolq,mzq)                            ::  CCN__HOST          !  CCN            Concentration                           [-/kg]
+      real, dimension(kcolq,mzq)                            ::  qi___HOST          !  Cloud Crystals Concentration                          [kg/kg]
+      real, dimension(kcolq,mzq)                            ::  CIN__HOST          !  CIN            Concentration                           [-/kg]
+      real, dimension(kcolq,mzq)                            ::  CF___HOST          !  Cloud Fraction                                         [-/kg]
+      real, dimension(kcolq,mzq)                            ::  qs___HOST          !  Snow Particles Concentration                          [kg/kg]
+      real, dimension(kcolq,mzq)                            ::  qr___HOST          !  Rain Drops     Concentration                          [kg/kg]
+      real, dimension(kcolq,mzq)                            ::  TKE__HOST          !  Turbulent Kinetic Energy                              [m2/s2]
+      real, dimension(kcolq,mzq)                            ::  eps__HOST          !  Turbulent Kinetic Energy Dissipation                  [m2/s3]
+
+      real, dimension(kcolq,mzq)                            ::  dpkt___dt          !  Reduced  Potential Temperature TENDENCY, ALL Contribut.[KX/s]
+      real, dimension(kcolq,mzq)                            ::  dua____dt          !  Wind Speed       (x-direc.)    TENDENCY, ALL Contribut.[m/s2]
+      real, dimension(kcolq,mzq)                            ::  dva____dt          !  Wind Speed       (y-direc.)    TENDENCY, ALL Contribut.[m/s2]
+      real, dimension(kcolq,mzq)                            ::  dqv____dt          !  Specific           Humidity    TENDENCY, ALL Contr. [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqw____dt          !  Cloud Droplets Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+! #cw real, dimension(kcolq,mzq)                            ::  dCw____dt          !  CCN            Concentration   TENDENCY, ALL Contr.  [1/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqi____dt          !  Cloud Crystals Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dCi____dt          !  CIN            Concentration   TENDENCY, ALL Contr.  [1/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dCF____dt          !  Cloud Fraction                 TENDENCY, ALL Contr. [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqs____dt          !  Snow Particles Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqr____dt          !  Rain Drops     Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+
+      real, dimension(kcolq,mzq)                            ::  dpktSV_dt          !  Reduced  Potential Temperature Tendency, SISVAT        [KX/s]
+      real, dimension(kcolq,mzq)                            ::  dpktAT_dt          !  Reduced  Potential Temperature Tendency, Atm_AT        [KX/s]
+      real, dimension(kcolq,mzq)                            ::  dqv_AT_dt          !  Specific           Humidity    TENDENCY, Atm_AT     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqw_AT_dt          !  Cloud Droplets Concentration   TENDENCY, Atm_AT     [kg/kg/s]
+! #cw real, dimension(kcolq,mzq)                            ::  dCw_AT_dt          !  CCN            Concentration   TENDENCY, Atm_AT         [1/s]
+      real, dimension(kcolq,mzq)                            ::  dqi_AT_dt          !  Cloud Crystals Concentration   TENDENCY, Atm_AT     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dCi_AT_dt          !  CIN            Concentration   TENDENCY, Atm_AT         [1/s]
+      real, dimension(kcolq,mzq)                            ::  dqs_AT_dt          !  Snow Particles Concentration   TENDENCY, Atm_AT     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqr_AT_dt          !  Rain Drops     Concentration   TENDENCY, Atm_AT     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dpktCM_dt          !  Reduced  Potential Temperature Tendency, CMiPhy        [KX/s]
+      real, dimension(kcolq,mzq)                            ::  dqv_CM_dt          !  Specific           Humidity    TENDENCY, CMiPhy     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqw_CM_dt          !  Cloud Droplets Concentration   TENDENCY, CMiPhy     [kg/kg/s]
+! #cw real, dimension(kcolq,mzq)                            ::  dCw_CM_dt          !  CCN            Concentration   TENDENCY, CMiPhy         [1/s]
+      real, dimension(kcolq,mzq)                            ::  dqi_CM_dt          !  Cloud Crystals Concentration   TENDENCY, CMiPhy     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dCi_CM_dt          !  CIN            Concentration   TENDENCY, CMiPhy         [1/s]
+      real, dimension(kcolq,mzq)                            ::  dCF_CM_dt          !  Cloud Fraction                 TENDENCY, CMiPhy         [1/s]
+      real, dimension(kcolq,mzq)                            ::  dqs_CM_dt          !  Snow Particles Concentration   TENDENCY, CMiPhy     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqr_CM_dt          !  Rain Drops     Concentration   TENDENCY, CMiPhy     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dpktCP_dt          !  Reduced  Potential Temperature TENDENCY, CVAmnh        [KX/s]
+      real, dimension(kcolq,mzq)                            ::  dqv_CP_dt          !  Specific           Humidity    TENDENCY, CVAmnh     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqw_CP_dt          !  Cloud Droplets Concentration   TENDENCY, CVAmnh     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dqi_CP_dt          !  Cloud Crystals Concentration   TENDENCY, CVAmnh     [kg/kg/s]
+      real, dimension(kcolq,mzq)                            ::  dpktRT_dt          !  Reduced  Potential Temperature TENDENCY, radCEP        [KX/s]
+
+!dead integer                                               ::  it0EXP             !
+!dead integer                                               ::  it0RUN             !
+      integer                                               ::  Year_H             !  Time                                                   [year]
+      integer                                               ::  Mon__H             !  Time                                                  [month]
+      integer                                               ::  Day__H             !  Time                                                    [Day]
+      integer                                               ::  Hour_H             !  Time                                                   [hour]
+      integer                                               ::  minu_H             !  Time                                                 [minute]
+      integer                                               ::  sec__H             !  Time                                                      [s]
+      integer                                               ::  ixq1,i0x0,mxqq     !  Domain  Dimension: x                                      [-]
+      integer                                               ::  jyq1,j0y0,myqq     !  Domain  Dimension: y                                      [-]
+      integer                                               ::  mzq                !  Domain  Dimension: z                                      [-]
+      integer                                               ::  mzqq               !  Domain  Dimension: z                                      [-]
+      integer                                               ::  mwq                !  Domain  Dimension: mosaic                                 [-]
+      integer                                               ::  kcolq              !  Domain  Dimension: x * y                                  [-]
+      integer                                               ::  kcolw              !  Domain  Dimension: x * y * mosaic                         [-]
+      integer                                               ::  m_azim             !  Mountain Mask, nb of directions taken into account        [-]
+      integer, dimension(n0pt)                              ::  IOi0SV             !
+      integer, dimension(n0pt)                              ::  IOj0SV             !
+      integer                                               ::  n0pt               !
+
+      real, dimension(kcolq)                                ::  sst__HOST          !  Ocean     FORCING (SST)                                   [K]
+! #IP real, dimension(kcolq)                                ::  sif__HOST          !  Ocean     FORCING (Sea-Ice Fraction )                     [-]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)              ::  s_T__HOST          !  A - O    COUPLING                      n=1: Open Ocean    [K]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)              ::  Alb__HOST          !  A - O    COUPLING (Surface Albedo   )  n=2: Sea  Ice      [-]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)              ::  dSdT2HOST          !  A - O    COUPLING ( d(SH Flux) / dT )                [W/m2/K]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)              ::  dLdT2HOST          !  A - O    COUPLING ( d(SH Flux) / dT )                [W/m2/K]
+
+! #TC integer, parameter                                    ::   ntrac  =  28      !
+! #TC real, dimension(ixq1:mxqq,jyq1:myqq,mzq,ntrac)        ::    qxTC             !  Aerosols: Atmospheric  Contentration
+! #TC real, dimension(ixq1:mxqq,jyq1:myqq    ,ntrac)        ::    qsTC             !  Aerosols: Near Surface Contentration
+! #TC real, dimension(ixq1:mxqq,jyq1:myqq    ,ntrac)        ::    uqTC             !  Aerosols: Surf.Flux
+! ---------------------------------------------------------------------------------!
+
+
+
+
+! LOCAL VARIABLES
+! ===============
+
+      real(kind=real8), dimension(kcolq,mzq)                 ::  Wind_HOST            !  Wind Speed, Horizontal                  [m/s]
+      real(kind=real8)                                       ::  dTdz   = 0.0065      ! -d(T) / dz   Lapse Rate                  [K/m]
+      real(kind=real8)                                       ::  dTimAT               !  d(Time) between 2 calls of Atmos.Turbul.  [s]
+
+      integer                                                ::  i   ,j   ,ikl   ,ikp !
+      integer                                                ::  k   ,mn              !
+      integer                                                ::  n   ,ipt ,iwr   ,kk  !
+
+
+
+
+
+!dead     it_RUN = it0RUN
+!dead     it_EXP = it0EXP
+
+
+
+
+! INITIALIZATION
+! ==============
+
+! Initialization of local Variables (used each Time Step)
+! -------------------------------------------------------
+
+      DO k = 1,mzq
+      DO ikl=1,kcolq  
+        Wind_HOST(ikl,k) = sqrt(Ua___HOST(ikl,k)*Ua___HOST(ikl,k)+Va___HOST(ikl,k)*Va___HOST(ikl,k))
+      ENDDO
+      ENDDO
+
+
+
+! Initialization of the run
+! -------------------------
+
+! Martin Control
+     PRINT*, 'Dans PHY_MAR:'
+     PRINT*, 'it_RUN=',it_RUN
+! Martin Control
+
+      IF (it_RUN.LE.1)                                              THEN 
+
+
+
+! Initialization of Mod_SISVAT_grd
+! --------------------------------
+
+              jt__SV =              max(1,int(dt0_SV /dt0DYn))
+              dt__SV =                   real(jt__SV)*dt0DYn
+          IF (dt__SV .NE. dt0_SV) write(6,61) dt__SV ,dt0_SV
+ 61         format    ('dt__SV =',f9.3,' differs from dt0_SV =',f9.3)
+
+
+! Initialization of Mod_PHY_AT_grd
+! --------------------------------
+
+              jt__AT =              max(1,int(dt0_AT /dt0DYn))
+              dt__AT =                   real(jt__AT)*dt0DYn
+          IF (dt__AT .NE. dt0_AT) write(6,62) dt__AT ,dt0_AT
+ 62         format    ('dt__AT =',f9.3,' differs from dt0_AT =',f9.3)
+
+
+! Initialization of Mod_PHY_CM_grd
+! --------------------------------
+
+              jt__CM =              max(1,int(dt0_CM /dt0DYn))
+              dt__CM =                   real(jt__CM)*dt0DYn
+          IF (dt__CM .NE. dt0_CM) write(6,63) dt__CM ,dt0_CM
+ 63         format    ('dt__CM =',f9.3,' differs from dt0_CM =',f9.3)
+
+
+! Initialization of Mod_PHY_CP_grd
+! --------------------------------
+
+              jt__CP =              max(1,int(dt0_CP /dt0DYn))
+              dt__CP =                   real(jt__CP)*dt0DYn
+          IF (dt__CP .NE. dt0_CP) write(6,64) dt__CP ,dt0_CP
+ 64         format    ('dt__CP =',f9.3,' differs from dt0_CP =',f9.3)
+
+
+! Initialization of Mod_PHY_RT_grd
+! --------------------------------
+
+              jt__RT =              max(1,int(dt0_RT /dt0DYn))
+              dt__RT =                   real(jt__RT)*dt0DYn
+          IF (dt__RT .NE. dt0_RT) write(6,65) dt__RT ,dt0_RT
+ 65         format    ('dt__RT =',f9.3,' differs from dt0_RT =',f9.3)
+
+
+! Initialization
+! --------------
+
+! Initialization of 1-D Axes Variables: Vertical   Axis (Atmosphere)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+              pt__DY     = ptop_HOST
+          DO k=1,mzpp
+              sigma(k)   = s_HOST(k)
+          ENDDO
+
+! Martin control
+!PRINT*,'s_HOST=',s_HOST 
+! Martin control
+
+          DO k=1,mzp
+                k1m(k)   = max(k-1, 1)
+                k1p(k)   = min(k+1,mzp)
+                k2m(k)   = max(k-2, 1)
+             dsigma(k)   =  sigma(k+1) - sigma(k)
+              sigmi(k+1) = (sigma(k+1) + sigma(k)) * 0.5
+          END DO
+              sigmi(1)   = 0.0
+              sigmi(mzpp)= 1.0
+
+          DO k=1,mzp
+             dsigmi(k)   =  sigmi(k+1) - sigmi(k)
+
+! Guess of sigma-levels Height
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+             hsigma(k)   =-(288./.0065)*(sigma(k) ** (287.*.0065/9.81)-1.)
+          END DO
+
+             write(6,501) (sigma(k),k=1,mzpp)
+  501          format(/,'  sigma: ',10f8.5                             &
+     &             ,5(/,'         ',10f8.5))
+
+             write(6,502)(hsigma(k),k=1,mzp)
+  502          format(/,' hsigma: ',10f8.1                             &
+     &             ,5(/,'         ',10f8.1))
+
+
+
+! Initialization of Mod_PHY____dat & Mod_PHY____kkl
+! -------------------------------------------------
+
+! Topography
+! ~~~~~~~~~~
+             sh_MAX      = 0.
+        DO ikl = 1,kcolp
+             sh__AP(ikl) =            sh___HOST(ikl)
+             sha_AP(ikl) =            sh_a_HOST(ikl)
+
+! Surface Slope
+! ~~~~~~~~~~~~~
+             sloxAP(ikl) =            slopxHOST(ikl)
+             sloyAP(ikl) =            slopyHOST(ikl)
+             slopAP(ikl) =            slopeHOST(ikl)
+             sh_MAX      = max(sh_MAX,sh__AP   (ikl))
+        END DO
+             dzaMIN      = hsigma(mzp) *(hsigma(1) -sh_MAX) /hsigma(1)
+
+
+        DO ikl = 1,kcolp
+
+! Geographic Coordinates
+! ~~~~~~~~~~~~~~~~~~~~~~
+
+! Martin rearrangement pour que RADACA ne plante plus:
+
+!           lon__r(ikl)   =     lonh_HOST(ikl) * 2.0 * piNmbr / 24.0
+           IF ((lonh_HOST(ikl) ) .LT. 0) THEN
+             lon__r(ikl) = 360 + (lonh_HOST(ikl) * 2.0 * piNmbr / 24.0)
+            ELSE
+             lon__r(ikl) = (lonh_HOST(ikl) * 2.0 * piNmbr / 24.0)
+           ENDIF
+           lon__h(ikl)   =     lonh_HOST(ikl)
+           lat__r(ikl)   =     latr_HOST(ikl)
+           sinLat(ikl)   = sin(lat__r(ikl))
+           cosLat(ikl)   = cos(lat__r(ikl))
+
+        ENDDO
+
+
+
+! -----------------------------------------------------------------------------!
+! Initialization of  Atm_DY (Counterpart of dynamical variables in PHY_MAR)
+! -------------------------
+
+! Martin control
+!PRINT*,'Avant PHY_Atm_DY_INI'
+!PRINT*,'size(psa_DY)=',size(psa_DY)
+! Martin control
+
+!                            **************
+                       CALL  PHY_Atm_DY_INI
+!                            **************
+
+! Initialization of  Atm_DY: needs plausible Atmospheric Conditions
+! ~~~~~~~~~~~~~~~~~~~~~~~~~ (here  idealized for Temperature Vertical Gradient)
+! Martin control
+!PRINT*,'Apres PHY_Atm_DY_INI'
+!PRINT*,'size(psa_DY)=',size(psa_DY)
+!PRINT*,'Dans PHY_MAR, calcul de Ta__DY:'
+!PRINT*,'mzpp=',mzpp
+!PRINT*,'pt__DY=',pt__DY
+!PRINT*,'Dtdz=',dTdz
+!PRINT*,'RCp=',RCp
+!PRINT*,'minval(pkta(:,mzpp))=',minval(pkta_HOST(:,mzpp))
+!PRINT*,'minval(psa__HOST(:))=',minval(psa__HOST(:))
+!PRINT*,'minval(Z___DY(:,:))=',minval(Z___DY(:,:))
+!PRINT*,'minval(Ta__DY(:,mzpp))=',minval(Ta__DY(:,mzpp))
+! Martin control
+
+        DO ikl = 1,kcolp
+           i                    = ii__AP   (ikl)
+           j                    = jj__AP   (ikl)
+           psa_DY    (ikl     ) = psa__HOST(ikl)
+           Ta__DY    (ikl,mzpp) = pkta_HOST(ikl,mzpp)*(psa_DY(ikl)+pt__DY)**RCp
+!gilles : init
+           Z___DY    (ikl,mzpp) = 0.
+           qv__DY    (ikl,mzpp) = 0.001
+         DO k =   mzp,1,-1
+           Z___DY    (ikl,k   ) =                                      &
+     &                 Ta__DY(ikl,mzpp)                                &
+     &      * (1.0 - ((psa_DY(ikl)*sigma (k)+pt__DY)                   &
+     &               /(psa_DY(ikl)          +pt__DY))                  &
+     &              **(R_DAir     * dTdz    /Grav_F))       / dTdz
+           Ta__DY    (ikl,k) =                                         &
+     &                 Ta__DY(ikl,mzpp)     -Z___DY(ikl,k)  * dTdz
+
+           qv__DY    (ikl,k) =   0.001
+
+           WindDY    (ikl,k) =   Wind_HOST(ikl,k)
+           ua__DY    (ikl,k) =   Ua___HOST(ikl,k)
+           va__DY    (ikl,k) =   va___HOST(ikl,k)
+           wa__DY    (ikl,k) =   Wa___HOST(ikl,k)
+         ENDDO
+        ENDDO
+
+! Martin Control
+!PRINT*,'Avant PHY_Atm_S0_INI'
+!PRINT*,'minval(Ta__DY(:,:))=',minval(Ta__DY(:,:))
+
+
+! -----------------------------------------------------------------------------!
+! Initialization of  Atm_S0 (Insolation and cos of Sun Zenithal Distance)
+! -------------------------
+
+!                            **************
+                       CALL  PHY_Atm_S0_INI
+!                            **************
+
+! Initialization of Mod_PHY_S0_ctr and Mod_PHY_S0_kkl
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+              FaceS0 = FlagS0_SLO
+              MMskS0 = FlagS0_MtM
+          IF (FlagS0_SLO .AND. FlagS0_MtM)                          THEN
+              DO k   = 1,m_azim
+              DO ikl = 1,kcolp
+              cszkS0(ikl,k) = MMaskHOST(ikl,k)
+              ENDDO
+              ENDDO
+          ENDIF
+
+
+! -----------------------------------------------------------------------------!
+! Initialization of  SISVAT
+! -------------------------
+
+! Initialization of Mod_SISVAT_ctr  (SISVAT Switches
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        & Time/Space control Variables)
+        VegMod = FlagSV_Veg
+        SnoMod = FlagSV_SNo
+        BloMod = FlagSV_BSn
+        InpSWD = FlagSV_SWD
+        InpSBC = FlagSV_SBC
+        SVaKzT = FlagSV_KzT
+        SVaUBC = FlagSV_UBC
+
+
+! Initialization of Mod_SISVAT_kkl  (from INPUT from HOST Model)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        DO ikp = 1,kcolp
+           i   = ii__AP(ikp)
+           j   = jj__AP(ikp)
+        DO mn  = 1,mwp
+        DO k   = 1,mzp
+           kk  =   mzpp - k
+           WindSV(ikp,mn,k) = Wind_HOST(ikp,k)
+           pkt0SV(ikp,mn,kk)= pkta_HOST(ikp,k)
+        END DO
+           Ua__SV(ikp,mn)   = Ua___HOST(ikp,mzp)
+           Va__SV(ikp,mn)   = Va___HOST(ikp,mzp)
+        END DO
+        END DO
+
+
+! Initialization of SISVAT Variables
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+!                            **************
+                       CALL  PHY_SISVAT_INI
+!                            **************
+
+
+! Initialization of Mod_SISVAT_kkl  (SISVAT OUTPUT Grid Points)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+           iwr = 0
+        DO ipt = 1,NbPts
+           IF (IOi0SV(ipt).EQ.0)                                    THEN
+               IOi_SV(ipt)=i_x0
+           ELSE
+               IOi_SV(ipt)=IOi0SV(ipt)
+           END IF
+           IF (IOj0SV(ipt).EQ.0)                                    THEN
+               IOj_SV(ipt)=j_y0
+           ELSE
+               IOj_SV(ipt)=IOj0SV(ipt)
+           END IF
+           write(6,*) 'ipt   , IOi_SV, IOj_SV              = '               &
+     &                ,ipt   , IOi_SV(ipt), IOj_SV(ipt)
+        DO n   = 1,mwp
+           iwr = 1+iwr
+          IF (iwr.LE.nbwri)                                         THEN
+           no__SV(iwr) = 0
+           i___SV(iwr) = IOi_SV(ipt)
+           j___SV(iwr) = IOj_SV(ipt)
+           n___SV(iwr) = n
+           write(6,*) 'n     , i___SV, j___SV, n___SV, iwr = '               &
+     &                ,n     , i___SV(iwr), j___SV(iwr), n___SV(iwr), iwr
+          END IF
+        END DO
+        END DO
+
+
+
+! -----------------------------------------------------------------------------!
+! Initialization of  Atm_RT (Radiative Transfert through the Atmosphere)
+! -------------------------
+
+!gilles: PHY_Atm_RT_INI requires correct dates
+          YearTU = Year_H
+          Mon_TU = Mon__H
+          Day_TU = Day__H
+          HourTU = Hour_H
+          minuTU = minu_H
+          sec_TU = sec__H
+
+!                            **************
+                       CALL  PHY_Atm_RT_INI
+!                            **************
+
+! -----------------------------------------------------------------------------!
+! Initialization of  Atm_AT (Turbulent Transfert through the Atmosphere)
+! -------------------------
+
+!                            **************
+                       CALL  PHY_Atm_AT_INI(FlagAT_TKE,TypeAT)
+!                            **************
+
+
+
+! -----------------------------------------------------------------------------!
+! Initialization of  Atm_CP (Convectiv Transfert through the Atmosphere)
+! -------------------------
+
+!                            **************
+                       CALL  PHY_Atm_CP_INI(mzp,kcolp)
+!                            **************
+
+
+
+! -----------------------------------------------------------------------------!
+! Initialization of  CMiPhy (Cloud Microphysical Scheme)
+! -------------------------
+
+! Initialization of Mod_PHY_CM_ctr  (CMiPhy Switches
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        & Time/Space control Variables)
+        CM_UpD = FlagCM_UpD
+
+!                            **************
+                       CALL  PHY_Atm_CM_INI
+!                            **************
+
+      END IF
+
+
+! Martin CONTROL
+!PRINT*, 'Impressions control'
+!call iophys_ecrit('TA__DY_surf',1,'surface temperature','K',Ta__DY(:,61))
+!call iophys_ecrit('TA__DY_air',60,'air temperature','K',Ta__DY(:,1:60))
+
+!PRINT*,'TA__DY(:,61)=',TA__DY(kcolq/2,61)
+
+! Interface: From HOST Model Variables to MARp Physics Variables
+! ==============================================================
+
+
+! Time
+! ----
+
+          YearTU = Year_H
+          Mon_TU = Mon__H
+          Day_TU = Day__H
+          HourTU = Hour_H
+          minuTU = minu_H
+          sec_TU = sec__H
+
+          TimeTU = (float(351)+(float(YearTU) -float(1902)) *float(365)&! Nb Days before YearTU
+     &                        +(float(YearTU) -float(1901)) /float(  4)&! Nb Leap Years
+     &                 + float(njYear(Mon_TU))                         &! Nb Days before Mon_TU
+     &                 + float(njLeap(Mon_TU))                         &! (including Leap Day)
+     &       *max(zer0,un_1-mod(float(YearTU),float(4)))               &!
+     &                        + float(Day_TU)-float(1)  )   *float( 24)&!
+     &             +float(HourTU)                                      &!
+     &           + (float(minuTU) *float(60) +float(sec_TU))/3600.      !
+
+
+
+! -----------------------------------------------------------------------------!
+! Assignation    of  Mod_PHY_AT_grd
+! ---------------------------------
+          IF (it_RUN .EQ. 1) THEN
+            TimeAT = TimeTU-dt0_AT/3600. ! Initialisation à la première itération
+          END IF
+          IF (FlagAT  .AND.      mod(it_RUN-1,jt__AT).EQ.0)         THEN
+!gilles: leapfrog scheme stops time integration regularly
+!              dTimAT =              (TimeTU-TimeAT) * 3600.
+              dTimAT =    dt0_AT
+              TimeAT =               TimeTU
+          END IF
+
+! Martin CONTROL
+PRINT*,'CONTROL PHY_MAR temps'
+PRINT*,'  Year_H =', Year_H
+PRINT*,'  Mon__H =', Mon__H
+PRINT*,'  Day__H =', Day__H
+PRINT*,'  Hour_H =', Hour_H
+PRINT*,'  minu_H =', minu_H
+PRINT*,'  sec__H =', sec__H
+PRINT*,'jt__AT=',jt__AT
+PRINT*,'TimeTU=',TimeTU
+PRINT*,'TimeAT=',TimeAT
+PRINT*,'dTimAT=',dTimAT
+! Martin CONTROL
+
+
+! -----------------------------------------------------------------------------!
+! Assignation    of  Mod_PHY_DY_kkl
+! ---------------------------------
+
+          DO ikl=1,kcolp
+             i  =  ii__AP(ikl)
+             j  =  jj__AP(ikl)
+             k  =  mzpp
+            ExnrDY    (ikl,k) = exp(RCp *log(psa__HOST(ikl)*sigma(k)+pt__DY))
+            pkt_DY    (ikl,k) =              pkta_HOST(ikl,k)
+            Ta__DY    (ikl,k) =              pkta_HOST(ikl,k) * ExnrDY(ikl,k)
+!  CAUTION: Tas_SV_xy is not allowed to be changed by data coming from outside this routine
+            Z___DY    (ikl,k) =              gZa__HOST(ikl,k)         *Grav_I
+            ZmidDY    (ikl,k) =              gZam_HOST(ikl,k)         *Grav_I
+            qv__DY    (ikl,k) =              qv___HOST(ikl,k)
+
+          DO  k               =   1,mzp
+            ExnrDY    (ikl,k) = exp(RCp *log(psa__HOST(ikl)*sigma(k  )+pt__DY))
+            pkt_DY    (ikl,k) =              pkta_HOST(ikl,k)
+            Ta__DY    (ikl,k) =              pkta_HOST(ikl,k) * ExnrDY(ikl,k)
+            roa_DY    (ikl,k) =             (psa__HOST(ikl)*sigma(k  )+pt__DY)     &
+     &                                     /(Ta__DY   (ikl,k)         *R_DAir)
+            roamDY    (ikl,k) =             (psa__HOST(ikl)*sigmi(k+1)+pt__DY)     &
+     &                                     /(Ta__DY   (ikl,k)         *R_DAir)
+            Z___DY    (ikl,k) =              gZa__HOST(ikl,k)         *Grav_I
+            ZmidDY    (ikl,k) =              gZam_HOST(ikl,k)         *Grav_I
+            qv__DY    (ikl,k) =              qv___HOST(ikl,k)
+
+
+
+! -----------------------------------------------------------------------------!
+! Assignation    of  Mod_PHY_AT_kkl
+! ---------------------------------
+
+
+          IF (FlagAT.AND.it_EXP.GT.1.AND.mod(it_RUN-1,jt__AT).EQ.0) THEN
+            TKE_AT    (ikl,k) =              TKE__HOST(ikl,k)
+            eps_AT    (ikl,k) =              eps__HOST(ikl,k)
+            TrT_AT    (ikl,k) =            (TKE_AT    (ikl,k) - TrT_AT    (ikl,k)) &
+     &                                    / dTimAT
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Assignation    of  Mod_PHY_CM_kkl
+! ---------------------------------
+
+          IF (FlagCM.AND.it_EXP.GT.1.AND.mod(it_RUN-1,jt__CM).EQ.0) THEN
+
+!           IF (qw___HOST(ikl,k).LT.qh_MIN)                         THEN
+!               qv__DY(ikl,k) =             qv__DY(ikl,k) + qw__CM(ikl,k)
+!               qw__CM(ikl,k) =             0.
+! #cw           CCNwCM(ikl,k) =             0.
+!           ELSE
+                qw__CM(ikl,k) =             qw___HOST(ikl,k)
+! #cw           CCNwCM(ikl,k) =             CCN__HOST(ikl,k)
+!           END IF
+
+!           IF (qi___HOST(ikl,k).LT.qh_MIN)                         THEN
+!               qv__DY(ikl,k) =             qv__DY(ikl,k) + qi__CM(ikl,k)
+!               qi__CM(ikl,k) =             0.
+!               CCNiCM(ikl,k) =             0.
+!           ELSE
+                qi__CM(ikl,k) =             qi___HOST(ikl,k)
+                CCNiCM(ikl,k) =             CIN__HOST(ikl,k)
+!           END IF
+
+! Gilles: CF___HOST non sauve & CFraCM reinitialise ici
+!               CFraCM(ikl,k) =             CF___HOST(ikl,k)
+
+!           IF (qw__CM(ikl,k).LT.qh_MIN  .AND.                         &
+!    &          qi__CM(ikl,k).LT.qh_MIN)                            THEN
+!               CFraCM(ikl,k) =             0.
+!           ELSE
+!               CFraCM(ikl,k) =  max(CFrMIN,CF___HOST(ikl,k))
+!           END IF
+
+                qs__CM(ikl,k) =             qs___HOST(ikl,k)
+                qr__CM(ikl,k) =             qr___HOST(ikl,k)
+          END IF
+
+          ENDDO
+
+
+
+! -----------------------------------------------------------------------------!
+! Assignation    of  Mod_SISVAT_gpt                  (A-O FORCING OR COUPLING) 
+! ---------------------------------                 
+
+            sst_SB    (ikl)   =              sst__HOST(ikl)  
+! #IP       sif_SB    (ikl)   =              sif__HOST(ikl)  
+! #AO     DO k = 1,mwp
+! #AO       s_T_AO_xyn(i,j,k) =              s_T__HOST(ikl,k)
+! #AO       Alb_AO_xyn(i,j,k) =              Alb__HOST(ikl,k)
+! #AO     ENDDO
+
+          ENDDO
+
+! -----------------------------------------------------------------------------!
+! Assignation    of  Mod_PHY_DY_kkl
+! ---------------------------------
+          DO ikl = 1,kcolp
+             i   = ii__AP(ikl)
+             j   = jj__AP(ikl)
+             psa_DY(ikl)   = psa__HOST(ikl)
+          DO k   = 1,mzp
+             WindDY(ikl,k) = Wind_HOST(ikl,k)
+             ua__DY(ikl,k) = Ua___HOST(ikl,k)
+             va__DY(ikl,k) = va___HOST(ikl,k)
+             wa__DY(ikl,k) = Wa___HOST(ikl,k)  +  sqrt(2.*max(eps6,TKE_AT(ikl,k))/3.)
+          END DO
+          END DO
+
+!                            **************
+                       CALL  PHY_Atm_DY_RUN                                    ! Assignation of MAR Dyn. Variables
+!                            **************
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_Atm_DY_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Saturation Specific Humidity
+! ----------------------------
+
+          IF (FlagCM .OR. &! ***************
+     &        FlagSV)  CALL  PHY_Atm_CM_QSat
+!                            ***************
+
+
+
+! -----------------------------------------------------------------------------!
+! Execution      of  Atm_S0 (Insolation and cos of Sun Zenithal Distance)
+! -------------------------
+
+!                            **************
+                       CALL  PHY_Atm_S0_RUN
+!                            **************
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_Atm_S0_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Execution      of  Atm_RT (Radiative Transfer through the Atmosphere)
+! -------------------------
+
+          IF (FlagRT  .AND.      mod(it_RUN-1,jt__RT).EQ.0)         THEN
+
+!                            **************
+                       CALL  PHY_Atm_RT_RUN(kcolp,ikl0)
+!                            **************
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_Atm_RT_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Execution      of  SISVAT (Soil-Ice-Snow-Vegetation-Atmosphere-Transfer Scheme)
+! -------------------------
+
+          IF (FlagSV)                                               THEN
+
+! Assignation    of Mod_SISVAT_kkl  (from INPUT from HOST Model)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            DO ikp = 1,kcolp
+            DO mn  = 1,mwp
+               pkPaSV(ikp,mn)   =              psa__HOST(ikp)           +pt__DY
+               ExnrSV(ikp,mn)   = exp(RCp *log(psa__HOST(ikp)*sigma(mzp)+pt__DY))
+            DO k   = 1,mzp
+               kk  =   mzpp - k
+               WindSV(ikp,mn,k) =              Wind_HOST(ikp,k)
+               pkt0SV(ikp,mn,kk)=              pkta_HOST(ikp,k)
+               qv__SV(ikp,mn,kk)=              qv___HOST(ikp,k)
+               zza_SV(ikp,mn,kk)=             (gZa__HOST(ikp,k)                &  !
+      &                                       -gZa__HOST(ikp,mzpp))     *Grav_I   !
+               roa_SV(ikp,mn,kk)=              roa_DY   (ikp,k)         * 1.e3    ! [kg/m3]
+            END DO
+               Ua__SV(ikp,mn)   =              Ua___HOST(ikp,mzp)
+               Va__SV(ikp,mn)   =              Va___HOST(ikp,mzp)
+               TaT_SV(ikp,mn)   =              pkta_HOST(ikp,mzp) * ExnrSV(ikp,mn)
+            END DO
+            END DO
+
+
+!                            **************
+                       CALL  PHY_SISVAT_RUN(                           &
+!                            **************
+! -----------------------------------------------------------------------------!
+! #TC&                                        qxTC,uqTC  ,qsTC  ,      &       ! Aerosols: Atm.Conc., Surf.Flux
+! -----------------------------------------------------------------------------!
+     &                                     )
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_SISVAT_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Execution      of  Atm_AT (Atmospheric Turbulence Contribution)
+! -------------------------
+
+          IF (FlagAT  .AND.      mod(it_RUN-1,jt__AT).EQ.0)         THEN
+
+!                            **************
+                       CALL  PHY_Atm_AT_RUN(FlagSV_KzT,FlagCM)
+!                            **************
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_Atm_AT_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Execution      of  Atm_CP (Convection Parameterisation - Mass Flux Scheme)
+! -------------------------
+
+          IF (FlagCP  .AND.      mod(it_RUN-1,jt__CP).EQ.0)         THEN
+
+!                            **************
+                       CALL  PHY_Atm_CP_RUN(mzp,kcolp)
+                       ! CALL  PHY_Atm_CP_RUN(mxp,kcolp) ! ancien bug
+!                            **************
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_Atm_CP_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Execution      of  Atm_CM (Cloud Microphysics)
+! -------------------------
+
+          IF (FlagCM  .AND.      mod(it_RUN-1,jt__CM).EQ.0)         THEN
+
+!                            **************
+                       CALL  PHY_Atm_CM_RUN
+!                            **************
+
+
+           IF(FlagVR)                                               THEN
+!                            **************
+                       CALL  PHY________OUT('After  PHY_Atm_CM_RUN                             ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+           END IF
+          END IF
+
+
+
+
+! Assignation of the Tendencies to transfer outside the physical Parameterizations Package
+! ========================================================================================
+
+          DO ikl=1,kcolp
+             i   = ii__AP(ikl)
+             j   = jj__AP(ikl)
+
+
+
+! -----------------------------------------------------------------------------!
+! Reinitialization of the Tendencies
+! ----------------------------------
+
+          DO k=   1,mzp
+
+              dpkt___dt(ikl,k) = 0.0                                    !
+              dua____dt(ikl,k) = 0.0                                    !
+              dva____dt(ikl,k) = 0.0                                    !
+              dqv____dt(ikl,k) = 0.0                                    !
+              dqw____dt(ikl,k) = 0.0                                    !
+              dCF____dt(ikl,k) = 0.0                                    !
+              dqi____dt(ikl,k) = 0.0                                    !
+              dCi____dt(ikl,k) = 0.0                                    !
+              dqs____dt(ikl,k) = 0.0                                    !
+              dqr____dt(ikl,k) = 0.0                                    !
+
+
+
+! -----------------------------------------------------------------------------!
+! Tendencies from SISVAT
+! ----------------------
+
+          IF (FlagSV  .AND.      mod(it_RUN-1,jt__SV).EQ.0)         THEN!
+              dpktSV_dt(ikl,k) =                    dpktSV_gpt(ikl,k)   ! Reduced Potential Temperature TENDENCY, SISVAT        [KX/s]
+          END IF
+
+! Update           of the tendencies
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (FlagSV)                                               THEN!
+              dpkt___dt(ikl,k) = dpkt___dt(ikl,k) + dpktSV_gpt(ikl,k)   !
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Tendencies from Atm_AT
+! ----------------------
+
+          IF (FlagAT  .AND.      mod(it_RUN-1,jt__AT).EQ.0)         THEN!
+              dua____dt(ikl,k) =                    dua_AT(ikl,k)       ! Wind Speed       (x-direc.)   TENDENCY, ALL Contribut.[m/s2]
+              dva____dt(ikl,k) =                    dva_AT(ikl,k)       ! Wind Speed       (y-direc.)   TENDENCY, ALL Contribut.[m/s2]
+              dpktAT_dt(ikl,k) =                    dpktAT(ikl,k)       ! Reduced Potential Temperature TENDENCY, Atm_AT        [KX/s]
+              dqv_AT_dt(ikl,k) =                    dqv_AT(ikl,k)       ! Specific          Humidity    TENDENCY, Atm_AT     [kg/kg/s]
+              dqw_AT_dt(ikl,k) =                    dqw_AT(ikl,k)       ! Cloud Droplets Concentration  TENDENCY, Atm_AT     [kg/kg/s]
+              dqi_AT_dt(ikl,k) =                    dqi_AT(ikl,k)       ! Cloud Crystals Concentration  TENDENCY, Atm_AT     [kg/kg/s]
+              dqs_AT_dt(ikl,k) =                    dqs_AT(ikl,k)       ! Snow Particles Concentration  TENDENCY, Atm_AT     [kg/kg/s]
+              dqr_AT_dt(ikl,k) =                    dqr_AT(ikl,k)       ! Rain Drops     Concentration  TENDENCY, Atm_AT     [kg/kg/s]
+! #cw         dCw_AT_dt(ikl,k) =                    dCW_AT(ikl,k)       ! CCN            Concentration  TENDENCY, Atm_AT         [1/s]
+              dCi_AT_dt(ikl,k) =                    dCi_AT(ikl,k)       ! CIN            Concentration  TENDENCY, Atm_AT         [1/s]
+ 
+! NO Tendencies on TKE and its dissipation ==> TKE__HOST and eps__HOST are updated
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+              TKE__HOST(ikl,k) =                    TKE_AT(ikl,k)       !
+              eps__HOST(ikl,k) =                    eps_AT(ikl,k)       !
+              
+! Re-Initialization of the TKE Transport Rate
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+              TrT_AT   (ikl,k) =                    TKE_AT(ikl,k)       !
+          END IF
+
+! Update           of the tendencies
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (FlagAT)                                               THEN!
+              dpkt___dt(ikl,k) = dpkt___dt(ikl,k) + dpktAT(ikl,k)       !
+              dqv____dt(ikl,k) = dqv____dt(ikl,k) + dqv_AT(ikl,k)       !
+              dqw____dt(ikl,k) = dqw____dt(ikl,k) + dqw_AT(ikl,k)       !
+              dqi____dt(ikl,k) = dqi____dt(ikl,k) + dqi_AT(ikl,k)       !
+              dqs____dt(ikl,k) = dqs____dt(ikl,k) + dqs_AT(ikl,k)       !
+              dqr____dt(ikl,k) = dqr____dt(ikl,k) + dqr_AT(ikl,k)       !
+! #cw         dCw____dt(ikl,k) = dCw____dt(ikl,k) + dCw_AT(ikl,k)       !
+              dCi____dt(ikl,k) = dCi____dt(ikl,k) + dCi_AT(ikl,k)       !
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Tendencies from CMiPhy (dqw_CM, dCw_CM, dqi_CM, dCi_CM
+! ----------------------  dqs_CM, dqr_CM  are consumed in CMiPhy then reset to 0
+!                                                      if FlagCM_UpD  = .TRUE. )
+
+          IF (FlagCM  .AND.      mod(it_RUN-1,jt__CM).EQ.0)         THEN!
+              dpktCM_dt(ikl,k) =                    dpktCM(ikl,k)       ! Reduced Potential Temperature TENDENCY, CMiPhy        [KX/s]
+              dqv_CM_dt(ikl,k) =                    dqv_CM(ikl,k)       ! Specific          Humidity    TENDENCY, CMiPhy     [kg/kg/s]
+              dqw_CM_dt(ikl,k) =                    dqw_CM(ikl,k)       ! Cloud Droplets Concentration  TENDENCY, CMiPhy     [kg/kg/s]
+              dCF_CM_dt(ikl,k) =                    dCF_CM(ikl,k)       ! Cloud Fraction                TENDENCY, CMiPhy     [kg/kg/s]
+              dqi_CM_dt(ikl,k) =                    dqi_CM(ikl,k)       ! Cloud Crystals Concentration  TENDENCY, CMiPhy     [kg/kg/s]
+              dqs_CM_dt(ikl,k) =                    dqs_CM(ikl,k)       ! Snow Particles Concentration  TENDENCY, CMiPhy     [kg/kg/s]
+              dqr_CM_dt(ikl,k) =                    dqr_CM(ikl,k)       ! Rain Drops     Concentration  TENDENCY, CMiPhy     [kg/kg/s]
+! #cw         dCw_CM_dt(ikl,k) =                    dCW_CM(ikl,k)       ! CCN            Concentration  TENDENCY, CMiPhy         [1/s]
+              dCi_CM_dt(ikl,k) =                    dCi_CM(ikl,k)       ! CIN            Concentration  TENDENCY, CMiPhy         [1/s]
+          END IF
+
+! Update           of the tendencies
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (FlagCM)                                               THEN!
+              dpkt___dt(ikl,k) = dpkt___dt(ikl,k) + dpktCM(ikl,k)       !
+              dqv____dt(ikl,k) = dqv____dt(ikl,k) + dqv_CM(ikl,k)       !
+              dqw____dt(ikl,k) = dqw____dt(ikl,k) + dqw_CM(ikl,k)       !
+              dCF____dt(ikl,k) = dCF____dt(ikl,k) + dCF_CM(ikl,k)       !
+              dqi____dt(ikl,k) = dqi____dt(ikl,k) + dqi_CM(ikl,k)       !
+              dqs____dt(ikl,k) = dqs____dt(ikl,k) + dqs_CM(ikl,k)       !
+              dqr____dt(ikl,k) = dqr____dt(ikl,k) + dqr_CM(ikl,k)       !
+! #cw         dCw____dt(ikl,k) = dCw____dt(ikl,k) + dCw_CM(ikl,k)       !
+              dCi____dt(ikl,k) = dCi____dt(ikl,k) + dCi_CM(ikl,k)       !
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Tendencies from CVAmnh
+! ----------------------
+
+          IF (FlagCP  .AND.      mod(it_RUN-1,jt__CP).EQ.0)         THEN!
+              dpktCP_dt(ikl,k) =                    dpktCP(ikl,k)       ! Reduced Potential Temperature TENDENCY, CVAmnh        [KX/s]
+              dqv_CP_dt(ikl,k) =                    dqv_CP(ikl,k)       ! Specific          Humidity    TENDENCY, CVAmnh     [kg/kg/s]
+              dqw_CP_dt(ikl,k) =                    dqw_CP(ikl,k)       ! Cloud Droplets Concentration  TENDENCY, CVAmnh     [kg/kg/s]
+              dqi_CP_dt(ikl,k) =                    dqi_CP(ikl,k)       ! Cloud Crystals Concentration  TENDENCY, CVAmnh     [kg/kg/s]
+          END IF
+
+! Update           of the tendencies
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (FlagCP)                                               THEN!
+              dpkt___dt(ikl,k) = dpkt___dt(ikl,k) + dpktCP(ikl,k)       !
+              dqv____dt(ikl,k) = dqv____dt(ikl,k) + dqv_CP(ikl,k)       !
+              dqw____dt(ikl,k) = dqw____dt(ikl,k) + dqw_CP(ikl,k)       !
+              dqi____dt(ikl,k) = dqi____dt(ikl,k) + dqi_CP(ikl,k)       !
+          END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Tendencies from radCEP
+! ----------------------
+
+          IF (FlagRT  .AND.      mod(it_RUN-1,jt__RT).EQ.0)         THEN!
+              dpktRT_dt(ikl,k) =                    dpktRT(ikl,k)       ! Reduced Potential Temperature TENDENCY, radCEP        [KX/s]
+          END IF
+
+! Update           of the tendencies
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (FlagRT)                                               THEN!
+              dpkt___dt(ikl,k) = dpkt___dt(ikl,k) + dpktRT(ikl,k)       !
+          END IF
+
+          ENDDO
+
+
+
+
+
+! Assignation of the Variables  to keep      inside the Physical Parameterizations Package
+! ========================================================================================
+
+!         ...  NOTHING up to now
+
+
+
+! Assignation of the Variables  to transfer outside the Physical Parameterizations Package
+! ========================================================================================
+
+! -----------------------------------------------------------------------------!
+! Update of  pkta_HOST, qv___HOST 
+! -------------------------------
+
+          DO k=1,mzpp
+            pkta_HOST(ikl,k) = pkt_DY(ikl,k)                                   !  Always on k=mzpp, possible from 1 to mzp (with dpkt = 0.)
+            qv___HOST(ikl,k) = qv__DY(ikl,k)                                   !
+          ENDDO
+
+
+
+! -----------------------------------------------------------------------------!
+! Update of  qw___HOST, CF___HOST, qi___HOST, CIN__HOST, qs___HOST, qr___HOST
+! ---------------------------------------------------------------------------
+
+      IF (FlagCM)                                                   THEN
+          DO k=1,mzp
+            qw___HOST(ikl,k) = qw__CM(ikl,k)
+! #cw       CCN__HOST(ikl,k) = CCNwCM(ikl,k)
+            CF___HOST(ikl,k) = CFraCM(ikl,k)
+            qi___HOST(ikl,k) = qi__CM(ikl,k)
+            CIN__HOST(ikl,k) = CCNiCM(ikl,k)
+            qs___HOST(ikl,k) = qs__CM(ikl,k)
+            qr___HOST(ikl,k) = qr__CM(ikl,k)
+          ENDDO
+      END IF
+
+
+
+! -----------------------------------------------------------------------------!
+! Update of  d(S,LH)/dT (needed in NEMO)
+! ---------------------
+
+! #AO     DO k=1,mwpp
+! #AO       dSdT2HOST(ikl,k) = dSdTAO_xyn(i,j,k)
+! #AO       dLdT2HOST(ikl,k) = dLdTAO_xyn(i,j,k)
+! #AO     ENDDO
+
+
+
+          ENDDO
+
+
+
+
+! OUTPUT
+! ======
+
+! OUTPUT of Tendencies
+! --------------------
+
+          IF (FlagVR .OR.                                              &
+     &       (FLAG_O .AND. ((minuTU.EQ.0 .AND. sec_TU.EQ.0) .OR.       &
+     &                       it_RUN.EQ.1                        ))) THEN
+             ikl = ikl0
+             i   = ii__AP(ikl)
+             j   = jj__AP(ikl)
+
+! pkt TENDENCIES
+! ~~~~~~~~~~~~~~
+                write(4,400)
+ 400            format(//,'   pkt TENDENCIES',/,'   **************'/,1x)
+                write(4,403) Day_TU,Mon_TU,YearTU,HourTU,MinuTU,Sec_TU,it_EXP
+ 403            format(3x,2(i2,'-'),i4,4x,3(i2,'-'),'  Simulation Iteration No ',i6,/,1x)
+                write(4,404)
+                write(4,401)
+ 401            format('    |   SISVAT    |   Atm_AT    |   CMiPhy    |   CVAmnh    |   radCEP    |')
+                write(4,402)
+ 402            format('    |      [K/d]  |      [K/d]  |      [K/d]  |      [K/d]  |      [K/d]  |')
+                write(4,404)
+ 404            format(4('-'),'+',5(13('-'),'+'))
+             DO k=1,mzp
+                write(4,405)        k                                  &
+     &                     , ExnrDY(ikl,k)*dpktSV_gpt(ikl,k)*86400.    &
+     &                     , ExnrDY(ikl,k)*dpktAT    (ikl,k)*86400.    &
+     &                     , ExnrDY(ikl,k)*dpktCM    (ikl,k)*86400.    &
+     &                     , ExnrDY(ikl,k)*dpktCP    (ikl,k)*86400.    &
+     &                     , ExnrDY(ikl,k)*dpktRT    (ikl,k)*86400.
+ 405            format(i3,' |',5(f12.6,' |'))
+
+                IF (mod(k,20).EQ.0)                                 THEN
+                write(4,404)
+                write(4,401)
+                write(4,402)
+                write(4,404)
+                END IF
+             ENDDO
+                write(4,404)
+
+! pkt TENDENCIES
+! ~~~~~~~~~~~~~~
+                write(4,410)
+ 410            format(//,'   Qv  TENDENCIES',/,'   **************'/,1x)
+                write(4,403) Day_TU,Mon_TU,YearTU,HourTU,MinuTU,Sec_TU,it_EXP
+!403            format(3x,2(i2,'-'),i4,4x,3(i2,'-'),'  Simulation Iteration No ',i6,/,1x)
+                write(4,404)
+                write(4,411)
+ 411            format('    |   SISVAT    |   Atm_AT    |   CMiPhy    |   CVAmnh    |    TOTAL    |')
+                write(4,412)
+ 412            format('    | [g/kg/min]  | [g/kg/min]  | [g/kg/min]  | [g/kg/min]  | [g/kg/min]  |')
+                write(4,404)
+!404            format(4('-'),'+',5(13('-'),'+'))
+             DO k=1,mzp
+                write(4,415)        k                                  &
+     &                     ,               dqv_AT   (ikl,k)*60000.     &
+     &                     ,               dqv_CM   (ikl,k)*60000.     &
+     &                     ,               dqv_CP   (ikl,k)*60000.     &
+     &                     ,               dqv____dt(ikl,k)*60000.
+ 415            format(i3,' |',12x,' |',4(f12.6,' |'))
+
+                IF (mod(k,20).EQ.0)                                 THEN
+                write(4,404)
+                write(4,411)
+                write(4,412)
+                write(4,404)
+                END IF
+             ENDDO
+                write(4,404)
+          END IF
+
+          IF (FLAG_O .AND. ((minuTU.EQ.0 .AND. sec_TU.EQ.0) .OR.       &
+     &                       it_RUN.EQ.1                        ))  THEN
+              
+!                            **************
+                       CALL  PHY________OUT('After  PHY_MAR                                    ')
+!                            **************  12345678901234567890123456789012345678901234567890
+!                                                     1         2         3         4         5
+          END IF  
+
+
+
+      return
+      end
Index: LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_ALLOC.f90	(revision 2160)
@@ -0,0 +1,485 @@
+      subroutine PHY_SISVAT_ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Thu 27-Jun-2013  MAR |
+!                                                                              |
+!     subroutine PHY_SISVAT_ALLOC  allocates prognostic variables of           |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme           |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 26-Feb-2013      |
+!           Last Modification by H. Gallee,               Thu 27-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_cdf
+      use Mod_SISVAT_gpt
+
+      use Mod_SISVAT_flx
+! #AW use Mod_SISVAT_xAW
+! #AH use Mod_SISVAT_xAH
+! #ZM use Mod_SISVAT_xZM
+! #WL use Mod_SISVAT_xWL
+
+
+      IMPLICIT NONE
+
+
+      integer  ::  ikl   ,i     ,j     ,n        !
+
+
+
+
+! ================================
+! Initialization of Mod_SISVAT_grd
+! ================================
+
+      n2    =                      min(2,mwp)    !
+      kcolv =(mxpp-ixp1+1)*(mypp-jyp1+1)*mwp     !
+
+      nvege = nvgt                               !      Nb of Vegetation Types
+      nsnow = nsno                               !  MAX Nb of Snow Layers
+      nsoil = nsol                               !      Nb of Soil Layers
+      nbPts = nb_Pts                             !
+      nbwri = nb_wri                             !
+      ntave = ntaver                             !      Nb of Time Steps used in V & dT(a-s) Time Moving Average
+      ntavz = ntavez                             !      Nb of Time Steps used in z0, r0, ... Time Moving Average
+      nLimi = nLimit                             !      Nb of Time Steps used in Water Vapor Flux Limit. Average
+
+
+
+! VERIFICATION: a BAD SET-UP WILL LEAD to an EMERGENCY STOP
+! ---------------------------------------------------------
+
+        IF (nbwri.gt.mzp)                                           THEN
+          write(6,600) nbwri,mzp
+ 600      format(/,'### MAR_SISVAT CRASH, nbwri =',i6,                  &
+     &                             ' .GT. mzp       =',i3,' ',2x,' ###',&
+     &           /,'    ?!&~@|@[#@#]=!!!',23x,'EMERGENCY STOP')
+          stop
+        END IF
+
+        IF (nbwri.gt.mwp*NbPts)                                     THEN
+          write(6,601) nb_wri,mwp,Nb_Pts
+ 601      format(/,'### MAR_SISVAT CRASH, nbwri =',i6,                  &
+     &                             ' .GT. mwp*NbPts =',i3,'*',i2,' ###',&
+     &           /,'    ?!&~@|@[#@#]=!!!',23x,'EMERGENCY STOP')
+          stop
+        END IF
+
+
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_kkl - BEGIN
+! =================================
+
+! SISVAT INPUT        Variables
+! -----------------------------
+
+      allocate            ( LSmask(kcolp,mwp) )               ! Land-Sea   Mask
+      allocate            ( isotSV(kcolp,mwp) )               ! Soil       Type
+      allocate            ( iWaFSV(kcolp,mwp) )               ! Soil       Drainage:(1,0)=(y,n)
+      allocate            ( ivgtSV(kcolp,mwp) )               ! Vegetation Type
+
+      allocate            ( FracSV(kcolp,mwp) )               !  Grid Cell Fraction (Mosaic)                             [-]
+
+      allocate            ( coszSV(kcolp,mwp) )               ! Cosine of Sun zenithal Angle
+      allocate            ( sol_SV(kcolp,mwp) )               ! Downward  Solar    Radiation
+      allocate            ( IRd_SV(kcolp,mwp) )               ! Downward  Longwave Radiation
+
+      allocate            ( drr_SV(kcolp,mwp) )               ! Rain  Intensity                                    [kg/m2/s]
+      allocate            ( dsn_SV(kcolp,mwp) )               ! Snow  Intensity                                    [kg/m2/s]
+      allocate            ( dsnbSV(kcolp,mwp) )               ! Idem, fraction, from Drift                               [-]
+      allocate            ( esnbSV(kcolp,mwp) )               ! Idem, fraction, from Drift                               [-]
+      allocate            ( dbs_SV(kcolp,mwp) )               ! Drift Amount                                         [kg/m2]
+      allocate            ( BrosSV(kcolp,mwp) )               ! Buffer Snow Layer Density
+      allocate            ( BG1sSV(kcolp,mwp) )               ! Buffer Snow Layer Dendr/Sphe                             [-]
+      allocate            ( BG2sSV(kcolp,mwp) )               ! Buffer Snow Layer Spher/Size                             [-] [0.0001 m]
+      allocate            ( dz0_SV(kcolp,mwp) )               ! dz0(Sastrugi dh)                                         [m]
+
+      allocate            ( cld_SV(kcolp,mwp) )               ! Cloudiness (seen from SBL)
+      allocate            ( za__SV(kcolp,mwp) )               ! SBL Height
+      allocate            ( VV__SV(kcolp,mwp) )               !(SBL Top)  Wind Velocity
+      allocate            ( Ua__SV(kcolp,mwp) )               !(SBL Top)  Wind Velocity, x-Direction, t                [m/s]
+      allocate            ( Ua0_SV(kcolp,mwp) )               !(SBL Top)  Wind Velocity, x-Direction, t -dt            [m/s]
+      allocate            ( Va__SV(kcolp,mwp) )               !(SBL Top)  Wind Velocity, y-Direction, t                [m/s]
+      allocate            ( Va0_SV(kcolp,mwp) )               !(SBL Top)  Wind Velocity, y-Direction, t -dt            [m/s]
+      allocate            ( VV10SV(kcolp,mwp) )               ! 10-m      Wind Velocity
+      allocate            ( VVs_SV(kcolp,mwp) )               !(Sastr,V)  Relevance
+      allocate            ( RRsxSV(kcolp,mwp) )               !(Sastr,V)  Counter
+      allocate            ( DDsxSV(kcolp,mwp) )               !(Sastr,V)  Angle
+      allocate            ( DDs_SV(kcolp,mwp) )               !(Sastr,V)  Angle
+      allocate            ( rhT_SV(kcolp,mwp) )               ! SBL Top   Air  Density
+      allocate            ( TaT_SV(kcolp,mwp) )               ! SBL Top   Temperature                                    [K]
+      allocate            ( Ts__SV(kcolp,mwp) )               ! Surface   Air Temperature (Mosaic)                       [K]
+      allocate            ( pkPaSV(kcolp,mwp) )               ! Surface   Pressure                                     [kPa]
+      allocate            ( WindSV(kcolp,mwp,mzp) )           ! Wind         Speed                                     [m/s]
+      allocate            ( zza_SV(kcolp,mwp,mzp) )           ! Atmospheric  Levels HEIGHTS                              [m]
+      allocate            ( roa_SV(kcolp,mwp,mzp) )           ! Air       Volumic   Mass                              [T/m3]
+      allocate            ( Kz__SV(kcolp,mwp,mzp) )           ! Turbulent Diffusion Coefficients                      [m2/s]
+      allocate            ( pktaSV(kcolp,mwp,mzp) )           ! Temperature / Exner Potential (Current Value in (PHY_)SISVAT)
+      allocate            ( pkt0SV(kcolp,mwp,mzp) )           ! Temperature / Exner Potential (INPUT   Value of (PHY_)SISVAT)
+      allocate            ( ExnrSV(kcolp,mwp) )               ! Surface       Exner Potential
+      allocate            ( qv__SV(kcolp,mwp,mzp) )           ! Atmosph.  Specific Humidity                          [kg/kg]
+      allocate            ( QaT_SV(kcolp,mwp) )               ! SBL Top   Specific Humidity                          [kg/kg]
+      allocate            ( dQa_SV(kcolp,mwp) )               ! SBL Flux  Limitation of Qa
+      allocate            ( SHumSV(kcolp,mwp) )               ! Surface   Specific Humidity                          [kg/kg]
+      allocate            ( dSdTSV(kcolp,mwp) )               ! Sensible Heat Flux T Derivat.
+      allocate            ( dLdTSV(kcolp,mwp) )               ! Latent   Heat Flux T Derivat.
+      allocate            ( qsnoSV(kcolp,mwp) )               ! SBL Mean  Snow       Content                         [kg/kg]
+
+      allocate            ( LAI0SV(kcolp,mwp) )               ! Nominal Leaf Area Index
+      allocate            ( glf0SV(kcolp,mwp) )               ! Green   Leaf Fraction
+
+      allocate            ( alb0SV(kcolp,mwp) )               ! Soil    Albedo
+      allocate            ( slopSV(kcolp,mwp) )               ! Snow/Ice/Soil-Water Surf. Slope                          [-]
+      allocate            ( slorSV(kcolp,mwp) )               ! Snow/Ice/Soil-Water Surf. Slope                     [radian]
+      allocate            ( z0__SV(kcolp,mwp) )               ! Roughness Length Momentum   (Mosaic)                     [m]
+      allocate            ( ROF_SV(kcolp,mwp) )               ! Cumulative Run-Off          (Mosaic)               [mm w.e.]
+
+
+! SISVAT INPUT/OUTPUT Variables
+! -----------------------------
+
+      allocate            ( isnoSV(kcolp,mwp) )               ! Nb of Ice/Snow Layers
+      allocate            ( ispiSV(kcolp,mwp) )               ! Uppermost superimposed ice
+      allocate            ( iiceSV(kcolp,mwp) )               ! Nb of Ice      Layers
+      allocate            ( istoSV(kcolp,mwp,    0:nsnow) )   ! Snow Layer     History
+
+      allocate            ( albcSV(kcolp,mwp) )               ! Coupl. Surface Albedo (Surface-Canopy / Ocean)
+      allocate            ( alb_SV(kcolp,mwp) )               ! Surface-Canopy Albedo
+      allocate            ( emi_SV(kcolp,mwp) )               ! Surface-Canopy Emissivity
+      allocate            ( IRs_SV(kcolp,mwp) )               ! Soil           IR Flux
+      allocate            ( LMO_SV(kcolp,mwp) )               ! Monin-Obukhov  Scale
+      allocate            ( us__SV(kcolp,mwp) )               ! Friction       Velocity
+      allocate            ( uts_SV(kcolp,mwp) )               ! Temperature  Turbulent Scale
+      allocate            ( cutsSV(kcolp,mwp) )               ! Temperature  Turbulent Scale C.
+      allocate            ( uqs_SV(kcolp,mwp) )               ! Spec.Humid.  Turbulent Scale
+      allocate            ( ussbSV(kcolp,mwp) )               ! Blowing Snow Eroded    Buffer                      [mm w.e.]
+      allocate            ( uss_SV(kcolp,mwp) )               ! Blowing Snow Turbulent Scale
+! #BS allocate            ( ussxSV(kcolp,mwp) )               ! Blowing Snow Turbulent Scale    (modified)
+! #BD allocate            ( uds_SV(kcolp,mwp) )               ! Blowing Dust Flux Turbulent Scale                [kg/kg m/s]
+      allocate            ( usthSV(kcolp,mwp) )               ! Blowing Snow Erosion Thresh.
+      allocate            ( rCDmSV(kcolp,mwp) )               ! Square  Root Contribut. Drag_m
+      allocate            ( rCDhSV(kcolp,mwp) )               ! Square  Root Contribut. Drag_h
+      allocate            ( Z0m_SV(kcolp,mwp) )               ! Momentum     Roughness Length
+      allocate            ( Z0mmSV(kcolp,mwp) )               !  z0(Momentum,    Time Mean)                              [m]
+      allocate            ( Z0mnSV(kcolp,mwp) )               !  z0(Momentum,    instanta.)                              [m]
+      allocate            ( Z0roSV(kcolp,mwp) )               ! Subgrid Topo Roughness Length
+      allocate            ( Z0SaSV(kcolp,mwp) )               !  z0(Sastrugi  h)                                         [m]
+      allocate            ( Z0e_SV(kcolp,mwp) )               !  z0(Snow eroded)                                         [m]
+      allocate            ( Z0emSV(kcolp,mwp) )               !  z0(Snow eroded, Time Mean)                              [m]
+      allocate            ( Z0enSV(kcolp,mwp) )               !  z0(Snow eroded, instanta.)                              [m]
+      allocate            ( Z0h_SV(kcolp,mwp) )               ! Heat         Roughness Length
+      allocate            ( Z0hmSV(kcolp,mwp) )               !  z0(Heat,        Time Mean)                              [m]
+      allocate            ( Z0hnSV(kcolp,mwp) )               !  z0(Heat,        instanta.)                              [m]
+
+      allocate            ( snCaSV(kcolp,mwp) )               ! Canopy  Snow   Thickness
+      allocate            ( rrCaSV(kcolp,mwp) )               ! Canopy  Water  Content
+      allocate            ( psivSV(kcolp,mwp) )               ! Leaf    Water  Potential 
+      allocate            ( TvegSV(kcolp,mwp) )               ! Vegetation     Temperature
+
+      allocate            ( TsisSV(kcolp,mwp,-nsoil:nsnow) )  ! Snow/Ice/Soil-Water Temperature
+      allocate            ( ro__SV(kcolp,mwp,-nsoil:nsnow) )  ! Snow/Ice/Soil-Water VolumicMass
+      allocate            ( eta_SV(kcolp,mwp,-nsoil:nsnow) )  ! Snow/Ice/Soil     Water Content
+      allocate            ( G1snSV(kcolp,mwp,     0:nsnow) )  ! Snow Dendricity/Sphericity
+      allocate            ( G2snSV(kcolp,mwp,     0:nsnow) )  ! Snow Sphericity/Size
+      allocate            ( dzsnSV(kcolp,mwp,     0:nsnow) )  ! Snow Layer  Thickness
+      allocate            ( agsnSV(kcolp,mwp,     0:nsnow) )  ! Snow Age
+      allocate            ( BufsSV(kcolp,mwp) )               ! Snow Buffer Layer
+      allocate            ( rusnSV(kcolp,mwp) )               ! Surficial   Water
+      allocate            ( SWf_SV(kcolp,mwp) )               ! Normalized  Decay
+      allocate            ( SWS_SV(kcolp,mwp) )               ! Surficial Water Status
+      allocate            ( HFraSV(kcolp,mwp) )               ! Frazil      Thickness
+
+      allocate            ( zWE_SV(kcolp,mwp) )               ! Current   Snow Thickness                 [mm w.e.]
+      allocate            ( zWEcSV(kcolp,mwp) )               ! Compacted Snow Thickness                 [mm w.e.]
+      allocate            ( dwemSV(kcolp,mwp) )               ! Only Melting  over dt__SV   (Mosaic)     [mm w.e.]
+      allocate            ( dwerSV(kcolp,mwp) )               ! Refreezing    over dt__SV   (Mosaic)     [mm w.e.]
+      allocate            ( dwesSV(kcolp,mwp) )               ! Sublimation   over dt__SV   (Mosaic)     [mm w.e.]
+      allocate            ( wem0SV(kcolp,mwp) )               ! Only Melting       Budget   (Mosaic)     [mm w.e.]
+      allocate            ( wem_SV(kcolp,mwp) )               ! Only Melting       Budget   (Mosaic)     [mm w.e.]
+      allocate            ( wer0SV(kcolp,mwp) )               ! Refreezing         Budget   (Mosaic)     [mm w.e.]
+      allocate            ( wer_SV(kcolp,mwp) )               ! Refreezing         Budget   (Mosaic)     [mm w.e.]
+      allocate            ( wes0SV(kcolp,mwp) )               ! Sublimation        Budget   (Mosaic)     [mm w.e.]
+      allocate            ( wes_SV(kcolp,mwp) )               ! Sublimation        Budget   (Mosaic)     [mm w.e.]
+      allocate            ( wee_SV(kcolp,mwp) )               ! Evapotranspiration Budget   (Mosaic)     [mm w.e.]
+
+
+! SISVAT OUTPUT       Variables
+! -----------------------------
+
+      allocate            ( no__SV(nbwri) )                   ! OUTPUT file Unit Number
+      allocate            ( IOi_SV(NbPts) )                   ! OUTPUT point   i Coordinate (independant txt file)
+      allocate            ( IOj_SV(NbPts) )                   ! OUTPUT point   j Coordinate (independant txt file)
+      allocate            ( i___SV(nbwri) )                   ! OUTPUT point   i Coordinate
+      allocate            ( j___SV(nbwri) )                   ! OUTPUT point   j Coordinate
+      allocate            ( n___SV(nbwri) )                   ! OUTPUT point   n Coordinate
+      allocate            ( lwriSV(kcolp,mwp) )               ! OUTPUT point vec Index
+
+      allocate            ( IRu_SV(kcolp,mwp) )               ! UPward    IR Flux (effective)
+      allocate            ( hSalSV(kcolp,mwp) )               ! Saltating Layer Height
+      allocate            ( qSalSV(kcolp,mwp) )               ! Saltating Snow  Concentration
+      allocate            ( RnofSV(kcolp,mwp) )               ! RunOFF    Intensity
+
+! =================================
+! ALLOCATION Mod_SISVAT_kkl -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_grd - BEGIN
+! =================================
+
+      allocate            ( ii__SV(kcolv)       )             ! Mosaic point   i Coordinate
+      allocate            ( jj__SV(kcolv)       )             ! Mosaic point   j Coordinate
+      allocate            ( nn__SV(kcolv)       )             ! Mosaic point   n Coordinate
+      allocate            ( ikp_SV(kcolv)       )             ! Grid Cell Column Index of a SISVAT Column
+      allocate            ( ikl_SV(mxp,myp,mwp) )             ! SISVAT    Column Index 
+
+! =================================
+! ALLOCATION Mod_SISVAT_grd -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_loc - BEGIN
+! =================================
+
+
+      allocate            ( NLaysv(kcolp,mwp) )               ! New   Snow     Layer   Switch
+      allocate            ( i_thin(kcolp,mwp) )               ! Index of the thinest Layer
+      allocate            ( LIndsv(kcolp,mwp) )               ! Contiguous Layer relative Index
+
+      allocate            ( albisv(kcolp,mwp) )               ! Integrated Surface Albedo
+      allocate            ( albssv(kcolp,mwp) )               ! Soil               Albedo [-]
+      allocate            ( SoCasv(kcolp,mwp) )               ! Canopy  Absorbed Solar Radiat.
+      allocate            ( SoSosv(kcolp,mwp) )               ! Surface Absorbed Solar Radiat.
+      allocate            ( IRv_sv(kcolp,mwp) )               ! Vegetation IR Flux  [W/m2]
+      allocate            ( Evg_sv(kcolp,mwp) )               ! Emissivity of Vegetation+Snow
+      allocate            ( Eso_sv(kcolp,mwp) )               ! Emissivity of       Soil+Snow
+      allocate            ( tau_sv(kcolp,mwp) )               ! Transmited Radiation Fraction
+      allocate            ( rrMxsv(kcolp,mwp) )               ! Canopy Maximum Intercepted Rain
+      allocate            ( LAIesv(kcolp,mwp) )               ! effective LAI for transpirati.
+      allocate            ( LAI_sv(kcolp,mwp) )               ! corrected LAI in case of snow
+      allocate            ( glf_sv(kcolp,mwp) )               ! Green  Leaf Fraction
+      allocate            ( Sigmsv(kcolp,mwp) )               ! Canopy Ventilation  Factor
+      allocate            ( HSv_sv(kcolp,mwp) )               ! Sensible Heat Flux  [W/m2]
+      allocate            ( HLv_sv(kcolp,mwp) )               ! Latent   Heat Flux  [W/m2]
+      allocate            ( HSs_sv(kcolp,mwp) )               ! Sensible Heat Flux (t)
+      allocate            ( HLs_sv(kcolp,mwp) )               ! Latent   Heat Flux (t)
+      allocate            ( sqrCm0(kcolp,mwp) )               ! in Neutral Drag Coef.Moment.
+      allocate            ( sqrCh0(kcolp,mwp) )               ! in Neutral Drag Coef.Heat
+      allocate            ( Lx_H2O(kcolp,mwp) )               ! Latent Heat of Vaporiz./Sublim.
+      allocate            ( ram_sv(kcolp,mwp) )               ! Aerodyn.Resistance (Moment.)
+      allocate            ( rah_sv(kcolp,mwp) )               ! Aerodyn.Resistance (Heat)
+      allocate            ( Fh__sv(kcolp,mwp) )               ! Stability Function
+      allocate            ( dFh_sv(kcolp,mwp) )               ! Stability Function (Deriv.)
+      allocate            ( Evp_sv(kcolp,mwp) )               ! Evaporation        [kg/m2]
+      allocate            ( EvT_sv(kcolp,mwp) )               ! Evapotranspiration [kg/m2]
+      allocate            ( LSdzsv(kcolp,mwp) )               ! Land/Sea Vert. Discretiz. Fact.
+      allocate            ( Tsrfsv(kcolp,mwp) )               ! Surface    Temperature
+      allocate            ( sEX_sv(kcolp,mwp,-nsoil:nsnow+1) )! Verticaly Integr.Extinct.Coef.
+      allocate            ( zzsnsv(kcolp,mwp,     0:nsnow)   )! Snow  Pack Thickness      [m]
+      allocate            ( psi_sv(kcolp,mwp,-nsoil:0   )   ) ! Soil   Water        Potential
+      allocate            ( Khydsv(kcolp,mwp,-nsoil:0   )   ) ! Soil   Hydraulic    Conductiv.
+      allocate            ( Rootsv(kcolp,mwp,-nsoil:0)      ) ! Root Water Pump      [kg/m2/s]
+      allocate            ( EExcsv(kcolp,mwp) )               ! Energy in Excess, current
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_loc -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_dzS - BEGIN
+! =================================
+
+
+      allocate            ( islpSV(         -nsoil:0) )   !
+      allocate            ( isnpSV(   nsnow) )            !
+      allocate            ( islmSV(         -nsoil:0) )   !
+
+      allocate            ( dzmiSV(         -nsoil:0) )   ! dz_(i-1/2)
+      allocate            ( dzi_SV(         -nsoil:0) )   ! dz_(i-1)/(dz_(i)+dz_(i-1))
+      allocate            ( dziiSV(         -nsoil:0) )   ! dz_(i)  /(dz_(i)+dz_(i-1))
+      allocate            ( dtz_SV(         -nsoil:0) )   ! dt / dz
+      allocate            ( dz78SV(         -nsoil:0) )   ! 7/8 (dz)
+      allocate            ( dz34SV(         -nsoil:0) )   ! 3/4 (dz)
+      allocate            ( dz_8SV(         -nsoil:0) )   ! 1/8 (dz)
+      allocate            ( dzAvSV(         -nsoil:0) )   ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)
+      allocate            ( RF__SV( 0:nvege,-nsoil:0) )   ! Root Fraction
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_dzS -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_gpt - BEGIN
+! =================================
+
+      allocate  ( sst_SB    (kcolp) )                         !  Ocean  FORCING (SST)                         [K]
+      allocate  ( sif_SB    (kcolp) )                         !  Ocean  FORCING (Sea-Ice Fraction)            [-]
+      allocate  ( MaskSV_gpt(kcolp) )                         !  Land(1)-Sea(0) Mask         (Cell value)     [-]
+      allocate  ( Alb_SV_gpt(kcolp) )                         !  Surface  Albedo             (Cell average)   [-]
+      allocate  ( EmisSV_gpt(kcolp) )                         !  Surface  LongWave Emissivity(Cell average)   [-]
+      allocate  ( Tas_SV_gpt(kcolp) )                         !  Surface  Air    Temperature (Cell average)   [K]
+      allocate  ( HSenSV_gpt(kcolp) )                         !  Sensible Heat   Flux   (+ => Upward)      [W/m2]
+      allocate  ( HLatSV_gpt(kcolp) )                         !  Latent   Heat   Flux   (+ => Upward)      [W/m2]
+      allocate  ( LMO_SV_gpt(kcolp) )                         !  Obukhov  Length             (Cell average)   [m]
+      allocate  ( us__SV_gpt(kcolp) )                         !  Friction Velocity                          [m/s]
+      allocate  ( uts_SV_gpt(kcolp) )                         !  Sensible Heat   Flux Turbulent Scale     [K m/s]
+      allocate  ( uqs_SV_gpt(kcolp) )                         !  Latent   Heat   Flux Turbulent Scale [kg/kg m/s]
+      allocate  ( WE2aSV_gpt(kcolp) )                         !  Cumulative H2O  Flux from the Surface  [mm w.e.]
+      allocate  ( hFraSV_gpt(kcolp) )                         !  Frazil   Thickness                           [m]
+      allocate  ( dpktSV_gpt(kcolp,mzp) )                     !  Reduced  Potential Temperature Tendency   [KX/s]
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_gpt -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_flx - BEGIN
+! =================================
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      allocate            ( SOsoKL(kcolp,mwp) )               ! Absorbed Solar    Radiation                    [W/m2]
+      allocate            ( IRsoKL(kcolp,mwp) )               ! Absorbed IR       Radiation                    [W/m2]
+      allocate            ( HSsoKL(kcolp,mwp) )               ! Absorbed Sensible Heat Flux                    [W/m2]
+      allocate            ( HLsoKL(kcolp,mwp) )               ! Absorbed Latent   Heat Flux                    [W/m2]
+      allocate            ( HLs_KL(kcolp,mwp) )               ! Evaporation                               [mm w.e./s]
+      allocate            ( HLv_KL(kcolp,mwp) )               ! Transpiration                                  [W/m2]
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_flx -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_cdf - BEGIN
+! =================================
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      allocate  ( SOsoNC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Absorbed Solar    Radiation                    [W/m2]
+      allocate  ( IRsoNC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Absorbed IR       Radiation                    [W/m2]
+      allocate  ( HSsoNC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Absorbed Sensible Heat Flux                    [W/m2]
+      allocate  ( HLsoNC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Absorbed Latent   Heat Flux                    [W/m2]
+      allocate  ( HLs_NC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Evaporation                               [mm w.e./s]
+      allocate  ( HLv_NC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Transpiration                                  [W/m2]
+      allocate  ( eta_NC_xyn(ixp1:mxpp,jyp1:mypp,mwp) )   ! Soil Humidity                                 [kg/kg]
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_cdf -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xAW - BEGIN
+! =================================
+
+! #AW allocate            ( V__mem(kcolp,mwp,ntave) )         ! V       Time           Steps
+! #AW allocate            ( VVmmem(kcolp,mwp      ) )         ! V       Time Moving Averages
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xAW -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xAH - BEGIN
+! =================================
+
+! #AH allocate            ( T__mem(kcolp,mwp,ntave) )         ! dT(a-s) Time           Steps
+! #AH allocate            ( dTmmem(kcolp,mwp      ) )         ! dT(a-s) Time Moving Averages
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xAH -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xZM - BEGIN
+! =================================
+
+! #ZM allocate            ( z0_mem(kcolp,mwp,ntavz) )         ! z0      Time           Steps
+! #ZM allocate            ( r0_mem(kcolp,mwp,ntavz) )         ! r0      Time           Steps
+! #ZM allocate            ( b0_mem(kcolp,mwp,ntavz) )         ! b0      Time           Steps
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xZM -   END
+! =================================
+
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xWL - BEGIN
+! =================================
+
+! #WL allocate            ( WL_mem(kcolp,mwp,nLimi) )         ! WVLimit Time           Steps
+! #WL allocate            ( WLmmem(kcolp,mwp)       )         ! WVLimit Time moving Averages
+
+
+! =================================
+! ALLOCATION Mod_SISVAT_xWL -   END
+! =================================
+
+
+
+! ============================================================================================
+! Initialization of the Correspondance between 1-D Hor.SISVAT Grid and the 3-D Horizontal Grid
+! ============================================================================================
+
+      DO i=ixp1,mxpp
+      DO j=jyp1,mypp
+      DO n=1,mwp
+
+                ikl    = ((n-1)*(mypp-jyp1+1)+j-jyp1) *(mxpp-ixp1+1) + i -ixp1+1
+         ii__SV(ikl)   =                                               i
+         jj__SV(ikl)   =                      j
+         nn__SV(ikl)   =   n
+         ikl_SV(i,j,n) =   ikl
+
+
+
+! ============================================================================================
+! Initialization of the Correspondance between 1-D Hor.SISVAT Grid and the 1-D Hor.AtmPHY Grid
+! ============================================================================================
+
+         ikp_SV(ikl)   =   ikl_AP(i,j) 
+
+      ENDDO
+      ENDDO
+      ENDDO
+
+      return
+      end subroutine PHY_SISVAT_ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_INI.f90	(revision 2160)
@@ -0,0 +1,512 @@
+      subroutine PHY_SISVAT_INI
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 29-Jun-2013  MAR |
+!     SubRoutine PHY_SISVAT_INI initializes                                    |
+!                    SISVAT    (Soil                                           |
+!                               Ice                                            |
+!                               Snow                                           |
+!                               Vegetation                                     |
+!                               Atmosphere                                     |
+!                               Transfer   Scheme)                             |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Mon  4-Feb-2013      |
+!           Last Modification by H. Gallee,               Sat 29-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY____dat
+      use Mod_PHY____kkl
+      use Mod_PHY_DY_kkl
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_gpt
+
+
+
+      IMPLICIT NONE
+
+
+      integer                 ::  isl   ,n     ,k     ,l     ,jo    ,no
+      integer                 ::  i     ,j     ,ikp   ,nm
+
+
+
+! Normalized Decay of the Surficial Water Content: data
+! ===============================================
+
+      real(kind=real8)  ::  c1_zuo = 12.960e+4      !  Run Off Parameters
+      real(kind=real8)  ::  c2_zuo =  2.160e+6      !  86400*1.5 day     ...*25 days 
+                                                    !  86400*0.3 day    (Modif. ETH Camp)
+      real(kind=real8)  ::  c3_zuo =  1.400e+2      !  (Zuo and Oerlemans 1996, J.Glacio. 42, 305--317)
+
+!     real(kind=real8)  ::  c1_zuo =  2.796e+4      !  Run Off Parameters (Tuning)
+
+
+
+  
+! INITIALISATION:  BEGIN  ++++++++++++++++++++++++++++++++++++++++++++  
+
+
+! Initialisation of Mod_SISVAT_dat (Ocean Surface Parameters)
+! ================================
+
+! #SI VarSST =   0.
+! #OP VarSST =   1.                  ! Variable (0.) / Fixed    (1.) SSTs
+      FixSST =   1.-VarSST           ! Fixed    (1.) / Variable (0.) SSTs 
+      SSTnud = exp(-dt__SV/2.592e6)  ! SST    Nudging:
+!                                    ! e-folding time: 30 Days
+
+! #SI TOF_SV = TocnSI                ! Ocn Grid Cell Freez.Temperature  [K]
+! #RE TOF_SV = 271.35 + eps6         !
+
+
+  
+
+! Initialization of Mod_SISVAT_grd 
+! ================================
+
+! Parameters used in the Interpolation of V(10 m)
+! -----------------------------------------------
+
+        IF   (hsigma(1).GT.10.          )                           THEN
+          k = 0
+  301     CONTINUE
+          k = k + 1
+            !if (hsigma(k).LT.10.OR.k.gt.mzp)                   GO TO 300
+            if (hsigma(k).LT.10.OR.k.ge.mzp)                   GO TO 300
+                                                               GO TO 301
+  300     CONTINUE
+          k_SL = k
+
+          IF (k_SL.EQ.mzp)                                          THEN
+              r_SL10 = log(10.           / 0.002)   &! 0.002: typical Z0
+     &                /log(hsigma(k_SL)  / 0.002)    !
+
+          ELSE
+              r_SL10 =    (10.           - hsigma(k_SL))               &
+     &                /   (hsigma(k_SL-1)- hsigma(k_SL))
+          END IF
+        ELSE
+              k_SL   =     mzp
+              r_SL10 =      1.
+        END IF
+
+
+
+! Level of negligible blown Particles Concentration ( z_zb ~ 25 magl)      SNOW
+! -------------------------------------------------                   .OR. DUST
+
+! #AE        k_zb  =mzp
+! #AE 11 CONTINUE
+! #AE    IF (hsigma(k_zb  ).GT.z_zb.OR.k_zb  .LE.1)             GO TO 10
+! #AE        k_zb  =k_zb  -1
+! #AE                                                           GO TO 11
+! #AE 10 CONTINUE
+! #AE        write(6,1000)             k_zb
+! #AE 1000   format(/,' BS : Level of negligible '                     &
+! #AE&                     ,'blown Particles Concentration is',i4      &
+! #AE&                     ,' (i.e., ~  25. magl)',/)
+
+
+
+
+! Initialization of SISVAT constants and parameters
+! =================================================
+
+!           **********
+      CALL  SISVAT_ini
+!           **********
+
+
+
+
+! Initialization of Mod_SISVAT_kkl 
+! ================================
+
+! Surface Fall Line Slope
+! -----------------------
+
+        IF (kcolp .EQ. 1)                                           THEN
+            slopAP    (1)    =      slop1d
+          DO n   = 1,mwp
+            slopSV(1  ,n)    =      slop1d
+          ENDDO
+        ELSE
+          DO ikp=1,kcolp
+          DO nm =1,mwp
+            slopSV(ikp,nm)   = slopAP(ikp)
+          END DO
+          END DO
+        END IF
+
+        IF (SnoMod)                                                 THEN
+          DO ikp=1,kcolp
+          DO nm =1,mwp
+            SWf_SV(ikp,nm)      =                            &! Normalized Decay of the
+     &       exp(-dt__SV                                  &! Surficial Water Content
+     &          /(c1_zuo                                  &! Zuo and Oerlemans 1996,
+     &           +c2_zuo*exp(-c3_zuo*slopSV(ikp,nm) )))       ! J.Glacio. 42, 305--317
+          END DO
+          END DO
+        END IF
+
+
+
+
+
+! OUTPUT point (i,j,n) coordinates
+! --------------------------------
+
+! stdout
+! ~~~~~~
+! Martin CONTROL
+          iwr_SV = 23
+          jwr_SV = 17
+          nwr_SV = 1
+          !iwr_SV = 1
+          !jwr_SV = 1
+          !nwr_SV = 1
+! Martin CONTROL
+
+! Particular txt files (for a regular spacing in 1D arrays)
+! ~~~~~~~~~~~~~~~~~~~~
+        DO  ikp=1,kcolp
+        DO  nm =1,mwp
+          lwriSV(ikp,nm) = 0
+        END DO
+        END DO
+
+          jo             = kcolp*mwp/nbwri
+          jo             = max(1,jo)
+          no             =               0
+          ikp            =      -jo /    2
+ 11     CONTINUE
+          nm             =       1
+          no             = no  + 1
+          ikp            = ikp + jo
+          ikp            = max(    1,ikp)
+          ikp            = min(kcolp,ikp)
+
+ 101    CONTINUE
+          i___SV(no)     = ii__AP(ikp)
+          j___SV(no)     = jj__AP(ikp)
+          n___SV(no)     = nm
+          lwriSV(ikp,nm) = 1
+          nm             = nm  + 1
+          no             = no  + 1
+        IF (nm.LE.mwp .AND. no.LE.nbwri)                       GO TO 101
+          no          = no  - 1
+
+        IF (no.LT.nbwri)                                       GO TO 11
+
+
+
+
+! +++++  ++++++++++++++  +++++  ++++++++++++++++++++++++++++++++++++++++
+! FIRST  INITIALISATION: BEGIN
+! +++++  ++++++++++++++  +++++
+
+!                 ===========
+        IF       (it_EXP.EQ.1)                                      THEN
+!                 ===========
+
+
+! Ocean                          1st Initialization (Grid Cells)
+! -------------------------------------------------
+
+! #SI     DO ikp=1,kcolp
+! #SI       IF  (MaskSV_gpt(ikp) .EQ. 0 .AND. FracSV(ikp,1) .lt. 1.)  THEN
+! #SI            i   = ii__AP(ikp)
+! #SI            j   = jj__AP(ikp)
+! #SI          DO n=1,mwp
+! #SI            write(6,6000)i,j,n,FracSV(ikp,nm)
+! #SI 6000       format(' WARNING on Grid Point',2i4,' Mosaic',i3      &
+! #SI&                 ,' Fraction = f4.3,' : ISLAND excluded')
+! #SI            FracSV    (ikp,nm)  =   0.
+! #SI            iVgTSV    (ikp,nm)  =   0
+! #SI          END DO
+! #SI            FracSV    (ikp,1)   =   1.
+! #SI       END IF
+! #SI     END DO
+
+
+! Prescription from SST
+! ---------------------
+
+! #SI     DO ikp=1,kcolp
+! #SI        FraOcn          =(TsisSV(ikp,1,0)-TOF_SV)/TSIdSV           ! Open Ocean
+! #IP        FraOcn          = 1.0000         -sif_SB(ikp)              ! Prescribed
+! #SI        FraOcn          = min(  un_1,FraOcn)                       !      Fract.
+! #SI        FraOcn          = max(OcnMin,FraOcn)                       !
+! #SI        FracSV(ikp,1)   = LSMask(ikp,1)     *    FracSV(ikp,1)    &! New  Ocean
+! #SI&                     +(1-LSMask(ikp,1)    )*    FraOcn            !
+! #SI        SrfSIC          =                        FracSV(ikp,2)     ! Old  Sea Ice
+! #SI        SIc0OK          = max(zer0, sign(un_1,   SrfSIC-eps6))     !
+! #SI        FracSV(ikp,2)   = LSMask(ikp,1)     *    FracSV(ikp,2)    &! New  Sea Ice
+! #SI&                     +(1-LSMask(ikp,1)    )*(1.-FraOcn)           !
+! #SI        SIceOK          = max(zer0, sign(un_1,   FracSV(ikp,2)    &!
+! #SI&                                                      -eps6))     !
+
+! Sea-Ice Vertical Discretization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #SI        isnoSV    (ikp,2)     =                                   &
+! #SI&       isnoSV    (ikp,2)                   *   LSMask(ikp,2)     &
+! #SI&     +(isnoSV    (ikp,2)  * SIc0OK                               &
+! #SI&      +     3          *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) ) 
+
+! #SI        iiceSV    (ikp,2)     =                                   &
+! #SI&       iiceSV    (ikp,2)                   *   LSMask(ikp,2)     &
+! #SI&     +(iiceSV    (ikp,2)     *SIc0OK                             &
+! #SI&      +     3          *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) )
+! #SI        ispiSV    (ikp,2)     =                 iiceSV(ikp,2)  
+
+! #SI       DO l=1,nsnow
+! #SI        dzsnSV    (ikp,2,l) =                                     &
+! #SI&       dzsnSV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     +(dzsnSV    (ikp,2,l) *SIc0OK                               &
+! #SI&      +dzSIce(min(4,l))*(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) )
+
+! #SI        TsisSV    (ikp,2,l) =                                     &
+! #SI&       TsisSV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     +(TsisSV    (ikp,2,l) *    SIc0OK                           &
+! #SI&      +TsisSV    (ikp,1,0) *(1.-SIc0OK)   )*(1-LSMask(ikp,2) )
+
+! #SI        ro__SV    (ikp,2,l) =                                     &
+! #SI&       ro__SV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     +(ro__SV    (ikp,2,l) *SIc0OK                               &
+! #SI&      +rhoIce          *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) )
+
+! #SI        G1snSV    (ikp,2,l) =                                     &
+! #SI&       G1snSV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     +(G1snSV    (ikp,2,l) *SIc0OK                               &
+! #SI&      +G1_dSV          *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) )
+
+! #SI        G2snSV    (ikp,2,l) =                                     &
+! #SI&       G2snSV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     +(G2snSV    (ikp,2,l) *SIc0OK                               &
+! #SI&      +30.             *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) )
+
+! #SI        istoSV    (ikp,2,l) =                                     &
+! #SI&       istoSV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+!!#SI&new  +(istoSV    (ikp,2,l) *SIc0OK                               &
+!!#SI&new   +istdSV(2)       *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2) )   &
+! #SI&     + istdSV(2)           *                (1-LSMask(ikp,2) )
+! #SI       END DO
+! #SI       DO l=-nsoil,0
+! #SI        TsisSV    (ikp,2,l) =                                     &
+! #SI&       TsisSV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     +(TsisSV    (ikp,2,l) *    SIc0OK                           &
+! #SI&      +TsisSV    (ikp,1,l) *(1.-SIc0OK)   )*(1-LSMask(ikp,2) )
+
+! #SI        eta_SV    (ikp,2,l) =                                     &
+! #SI&       eta_SV    (ikp,2,l)                 *   LSMask(ikp,2)     &
+! #SI&     + eta_SV    (ikp,2,l) *    SIc0OK     *(1-LSMask(ikp,2) )
+!                                 No Pore in Ice => No Water
+! #SI       END DO
+
+! OUTPUT of Sea Ice Fraction, Temperature, Discretization
+! #si        write(6,6001) Day_TU,LabMon(Mon_TU),YearTU                &
+! #si&                    ,HourTU,minuTU,Sec_TU ,TsisSV(ikp,1,0)       &
+! #si&                    ,FraOcn,FracSV(ikp,1) ,TsisSV(ikp,2,0)       &
+! #si&                    ,iiceSV(ikp,2)        ,isnoSV(ikp,2)  
+! #si 6001        format(/,98('_')                                     &
+! #si&         ,/, i3,'-',a3,'-',i4,3(':',i2)                          &
+! #si&         ,   2x,'T OCN = ',f7.3,4x,'% OCN = ',f7.3,'(',f4.3,')'  &
+! #si&         ,   2x,'T ICE = ',f7.3                                  &
+! #si&         ,/,43x,'NbIce = ',i3, 11x,'NbSno = ',i3)      
+
+! #SI     END DO
+
+
+! SBL                            1st Initialization
+! -------------------------------------------------
+
+! Influence of the Angle(Wind,Sastrugi) (Andreas, 1995, CCREL report 95-16)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #Za     DO ikp=1,kcolp
+! #Za     DO nm =1,mwp
+! #Za       ua0_SV(ikp,nm)  = ua__SV(ikp,nm)
+! #Za       va0_SV(ikp,nm)  = va__SV(ikp,nm)
+! #Za     END DO
+! #Za     END DO
+
+! H2O  Upward IR Flux                Initialization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          DO ikp=1,kcolp
+            WE2aSV_gpt(ikp) = 0.0
+          END DO
+
+
+! GUESS, eventually from DATA   (1st Initialization)
+! --------------------------------------------------
+
+          DO ikp = 1,kcolp
+          DO nm  = 1,mwp
+
+            IRs_SV(ikp,nm)    =-StefBo*Ta__DY(ikp,mzpp) *Ta__DY(ikp,mzpp)     &! Upward IR Flux
+     &                                *Ta__DY(ikp,mzpp) *Ta__DY(ikp,mzpp)      !
+
+
+! SBL                            1st Initialization (Mosaics)
+! -------------------------------------------------
+
+! Drag Coefficient               1st Initialization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            rCDmSV(ikp,nm)    =    0.04
+            rCDhSV(ikp,nm)    =    0.04
+
+! Turbulent Scales               1st Initialization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            us__SV(ikp,nm)    = rCDmSV(ikp,nm) * WindSV(ikp,nm,mzp)
+            uts_SV(ikp,nm)    = rCDhSV(ikp,nm) *(Ta__DY(ikp,mzp)-Ta__DY(ikp,mzpp) ) &
+     &                        * us__SV(ikp,nm)
+            uqs_SV(ikp,nm)    =    0.0
+            uqs_SV_gpt(ikp)   =    0.0                                   !  redondance sur n, sans consequences
+            uss_SV(ikp,nm)    =    0.0
+! #BS       ussxSV(ikp,nm)    =    0.0
+
+! Orography Roughness Lengths
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ZO       Z0roSV(ikp,nm)    = min(z0__SV(ikp,nm),hsigma(mzp)/3.)
+
+! Roughness Lengths              1st Initialization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ZS       Z0SaSV(ikp,nm)    =    0.0                                   !  z0(Sastrugi  h)
+! #ZM      DO k=1,ntavz
+! #ZM       z0_mem(ikp,nm,k)  =    0.0001
+! #ZM       r0_mem(ikp,nm,k)  =    0.0001
+! #ZM       b0_mem(ikp,nm,k)  =    0.0001
+! #ZM      END DO
+
+! SBL Wind Speed and Vertical Temperature Gradient
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AA      DO k=1,ntave
+! #AW       V__mem(ikp,nm,k)  =    WindSV(ikp,nm,mzp)
+! #AH       T__mem(ikp,nm,k)  =    0.0000
+! #AA      END DO
+
+! SBL Water Vapor Flux Limitor
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #WL      DO n =1,nLimi
+! #WL        WL_mem(ikp,nm,n)  =   1.
+! #WL      END DO
+
+
+! Frazil                         1st Initialization
+! -------------------------------------------------
+
+             HFraSV(ikp,nm)    =   0.
+
+
+! Roughness Length               1st Initialization
+! -------------------------------------------------
+
+             Z0roSV(ikp,nm)    =   z0__SV(ikp,nm)  
+
+
+! Vegetation                     1st Initialization
+! -------------------------------------------------
+
+             TvegSV(ikp,nm)    = Ta__DY(ikp,mzpp)     ! Vegetation skin Temperature
+             snCaSV(ikp,nm)    =          0.          ! Canopy intercepted Snow
+             rrCaSV(ikp,nm)    =          0.          ! Canopy intercepted Raiw
+             psivSV(ikp,nm)    =          0.          ! Leaf   Water    Potential     [m]
+
+
+! Blowing Snow                   1st Initialization
+! -------------------------------------------------
+
+! #Za        VVs_SV(ikp,nm)    =         10.          ! Wind Speed,         (Sastrugi), Relevance  [m/s]
+! #Za        RRsxSV(ikp,nm)    =          1.          ! Wind Speed Counter, (Sastrugi), Relevance    [-]
+! #Za        DDsxSV(ikp,nm)    =          0.          ! Wind Direction    , (Sastrugi), Relevance    [-]
+
+             BufsSV(ikp,nm)    =          0.          ! Fallen Snow Buffer          (Mosaic)   [mm w.e.]
+             ussbSV(ikp,nm)    =          0.          ! Eroded Snow Buffer          (Mosaic)   [mm w.e.]
+
+
+
+! Snow Pack                      1st Initialization
+! -------------------------------------------------
+
+             zWE_SV(ikp,nm)    =            0.        ! Thickness 
+             qSalSV(ikp,nm)    =            0.        ! Saltating Particles Concentration
+             BrosSV(ikp,nm)    =          300.        ! Buffer Snow Layer: initial density: Polar Snow
+             BG1sSV(ikp,nm)    =       G1_dSV         ! Buffer Snow Layer: initial G1     : Polar Snow
+             BG2sSV(ikp,nm)    =       ADSdSV         ! Buffer Snow Layer: initial G2     : Polar Snow
+                                                   ! Buffer Snow Layer  initial characteristics for 0-mass
+
+             wes_SV(ikp,nm)    =            0.        ! Depo. / Subli.
+             wem_SV(ikp,nm)    =            0.        ! Melting
+             wer_SV(ikp,nm)    =            0.        ! Refreezing
+             wee_SV(ikp,nm)    =            0.        ! Evapotranspiration
+
+
+! Surficial  Water                   Initialization
+! -------------------------------------------------
+
+             SWf_SV(ikp,nm)    =            0.        ! Normalized Decay of Surficial Water Content  [-]
+             rusnSV(ikp,nm)    =            0.        ! Surficial Water Mass        (Mosaic)   [mm w.e.]
+             SWS_SV(ikp,nm)    =            1.        ! Surficial Water Status      (Mosaic)   [0,1=m,f]
+                                                   ! Freezng Initial Status   is assumed
+ 
+
+! Cumulative Run-Off                 Initialization
+! -------------------------------------------------
+
+             ROF_SV(ikp,nm)       =  0.
+
+
+! Soil Roots                     1st Initialization
+! -------------------------------------------------
+
+           DO isl = -nsoil,0
+             Rootsv(ikp,nm,isl) =    0.
+           END DO
+
+          END DO
+          END DO
+
+!                 ===========
+        END IF ! (it_EXP.EQ.0)
+!                 ===========
+!
+! +++++  ++++++++++++++  +++
+! FIRST  INITIALISATION: END
+! +++++  ++++++++++++++  +++  ++++++++++++++++++++++++++++++++++++++++++
+
+
+
+
+! OUTPUT Files Set-Up
+! =======================
+
+! #v0   open(unit=50,status='unknown',file='PHY_SISVAT.v0')
+! #v0   rewind    50
+
+
+
+
+! OUTPUT
+! ======
+
+      IF (kcolp.EQ.1)                                               THEN
+         write(6,6) (iVgTSV    (1,nm),nm=1,mwp)
+ 6       format(/ ,' Vegetation Type: ',6i9)
+      END IF
+
+
+
+! +++ INITIALISATION:  END  ++++++++++++++++++++++++++++++++++++++++++  
+
+      return
+      end subroutine PHY_SISVAT_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_INP.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_INP.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_INP.f90	(revision 2160)
@@ -0,0 +1,512 @@
+      subroutine PHY_SISVAT_INP(FlagSV_SBC,TsHOST,kcolq)
+
+!------------------------------------------------------------------------------+
+!                                                         Mon  1-Jul-2013  MAR |
+!     SubRoutine PHY_SISVAT_INP initializes                                    |
+!                    SISVAT    (Soil                                           |
+!                               Ice                                            |
+!                               Snow                                           |
+!                               Vegetation                                     |
+!                               Atmosphere                                     |
+!                               Transfer   Scheme)                             |
+!                                                                              |
+!                               USING DATA                                     |
+!                                                                              |
+!     Here DATA are academic                                                   |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Wed  1-May-2013      |
+!           Last Modification by H. Gallee,               Mon  1-Jul-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY____dat
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_gpt
+
+
+      IMPLICIT NONE
+
+
+      logical                                               ::  FlagSV_SBC         !  DATA     Surface   Flag
+      integer                                               ::  kcolq              !
+      real(kind=real8), dimension(kcolq)                    ::  TsHOST             ! (Initial) Surface   Temperature                          [K]
+      
+
+
+
+! Local   Variables
+! =================
+
+! FOR INPUT
+! ---------
+
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  Mask___xyn  ! Land(1)-Sea(0) Mask         (Mosaic)         [-]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Frac___xyn  ! Grid Cell Fraction          (Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  iVgT___xyn  ! Vegetat. Type               (Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  iSoT___xyn  !     Soil Type               (Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  iDra___xyn  !     Soil Drainage Switch    (Mosaic)         [-]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Albs___xyn  ! Dry Soil Albedo             (Mosaic)         [-]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  LAI____xyn  ! Leaf Area Index             (Mosaic)     [m2/m2]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  GLF____xyn  ! Green Leaf Fraction         (Mosaic)         [-]
+
+
+
+! FOR INPUT/OUTPUT (RESTART)
+! ----------------
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  FSbz___xyn  ! Fallen Snow Buffer          (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Tveg___xyn  ! Vegetation      Temperature (Mosaic)         [K]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Sveg___xyn  ! Canopy intercepted Snow     (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Rveg___xyn  ! Canopy intercepted Rain     (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  pveg___xyn  ! Vegetation Water Potential  (Mosaic)         [m]
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  z0_____xyn  ! Roughness Length Momentum   (Mosaic)         [m]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  z0ro___xyn  ! Orographic Roughness Length (Mosaic)         [m]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  r0_____xyn  ! Roughness Length Scalars    (Mosaic)         [m]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  uss____xyn  ! Blown    Snow   Flux Turbulent Scale [kg/kg m/s]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  uds____xyn  ! Blown    Dust   Flux Turbulent Scale [kg/kg m/s]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  BSbz___xyn  ! Eroded Snow Buffer          (Mosaic)   [mm w.e.]
+! #AE real(kind=real8),ALLOCATABLE ,dimension(:,:)    ::  usth___xyn  ! Friction Velocity Saltation Threshold      [m/s]
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Alb____xyn  ! Surface  Albedo             (Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  SNnb___xyn  ! Nb of  Snow Layers          (Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  SInb___xyn  ! Nb of S.Ice Layers          (Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:)  ::  ICnb___xyn  ! Nb of   Ice Layers          (Mosaic)         [-]
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  SnWE___xyn  ! Snow  Pack  Thickness       (Mosaic)   [mm w.e.]
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  wes____xyn  ! Sublimation        Budget   (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  wer____xyn  ! Melting            Budget   (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  wem____xyn  ! Refreezing         Budget   (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  wee____xyn  ! Evapotranspiration Budget   (Mosaic)   [mm w.e.]
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  Tsis__dxyn  ! Soil-Ice-Snow   Temperature (Mosaic)         [K]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  Qsis__dxyn  ! Soil-Ice-Snow   Humidity    (Mosaic)     [kg/kg]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  SNdz__dxyn  ! Snow  Layer Thickness       (Mosaic)         [m]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  SNro__dxyn  ! Snow  Layer Density         (Mosaic)     [kg/m3]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  SNag__dxyn  ! Snow  Layer Age             (Mosaic)       [day]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  SNg1__dxyn  ! Snow  Layer Property (d./s.)(Mosaic)         [-]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:,:)::  SNg2__dxyn  ! Snow  Layer Property (s./s.)(Mosaic)         [-]
+!     integer         ,ALLOCATABLE ,dimension(:,:,:,:)::  SNhi__dxyn  ! Snow  Layer History         (Mosaic)         [-]
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  SWz____xyn  ! Surficial Water Mass        (Mosaic)   [mm w.e.]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  SWx____xyn  ! Surficial Water Status      (Mosaic)   [0,1=m,f]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  SWHy___xyn  ! Surficial Water: Normaliz.Decay (Mosaic)     [-]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  ROdt___xyn  ! Run-Off  Intensity          (Mosaic) [mm w.e./s]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  ROF____xyn  ! Cumulative Run-Off          (Mosaic)   [mm w.e.]
+
+
+! A-O Coupling
+! ------------
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  Alb_AO_xyn  ! Ocean COUPLING (Surface Albedo) n=2 sea-ice  [-]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  s_T_AO_xyn  ! Ocean COUPLING (SST)            n=1 opn-watr [K]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  dSdTAO_xyn  ! Ocean COUPLING (d(SH Flux) / dT)        [W/m2/K]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  dLdTAO_xyn  ! Ocean COUPLING (d(LH Flux) / dT)        [W/m2/K]
+
+
+! Dummy
+! -----
+
+      integer  ::  i     ,j     ,n     ,l     ,nm    ,ikp
+
+
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+!     NON ACADEMIC INITIALIZATION                                      !
+!                                                                      !
+      IF (FlagSV_SBC)                                               THEN
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++
+! INITIALIZATION of a non-1D case, by using INPUT Files
+!                                    (HERE FROM NESTOR)
+
+! Martin CONTROL
+Print*,'mxpp=',mxpp
+Print*,'mypp=',mypp
+Print*,'ixp1=',ixp1
+Print*,'jyp1=',jyp1
+
+        IF   (mxpp-ixp1.GT.0 .OR. mypp-jyp1.GT.0)                   THEN
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+
+! ================================
+! FIRST INITIALIZATION     (BEGIN)
+
+          IF       (it_EXP .LE. 1)                                  THEN
+! ================================
+
+
+! ================================
+          END IF ! (it_EXP .LE. 1)
+
+! FIRST INITIALIZATION       (END)
+! ================================
+
+
+
+
+! Update Sea-Ice    Fraction
+! ==========================
+
+! #IP     IF (             inpSBC                    )              THEN
+
+!                ******
+! #IP       call INIsic(newsicSI )  ! ATTENTION 2 premiers Arguments supprimés
+!                ******
+
+! #IP     END IF
+
+
+
+
+! Update LAI and/or Green Leaf Fraction
+! =====================================
+
+! #GP                                          glfFIX = .true.
+! #CM     IF (vegmod .AND. inpSBC .AND.  .NOT. glfFIX)              THEN
+
+!                ******
+! #CM       call INIglf(newglfSIS)  ! ATTENTION 2 premiers Arguments supprimés
+!                ******
+
+! #CM     END IF
+
+
+
+
+
+
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++
+! INITIALIZATION of a     1D case, by prescribing INPUT
+
+        ELSE
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+
+! ================================
+! FIRST INITIALIZATION     (BEGIN)
+
+          IF       (it_EXP .LE. 1)                                  THEN
+! ================================
+
+
+
+! ALLOCATION
+! ==========
+
+! FOR INPUT
+! ---------
+
+!         allocate  ( Mask___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Land(1)-Sea(0) Mask         (Mosaic)         [-]
+!         allocate  ( Frac___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Grid Cell Fraction          (Mosaic)         [-]
+!         allocate  ( iVgT___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Vegetat. Type               (Mosaic)         [-]
+!         allocate  ( iSoT___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !      Soil Type               (Mosaic)         [-]
+!         allocate  ( iDra___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !      Soil Drainage Switch    (Mosaic)         [-]
+!         allocate  ( Albs___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Dry Soil Albedo             (Mosaic)         [-]
+!         allocate  ( LAI____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Leaf Area Index             (Mosaic)     [m2/m2]
+!         allocate  ( GLF____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Green Leaf Fraction         (Mosaic)         [-]
+
+
+! FOR INPUT/OUTPUT (RESTART)
+! ----------------
+
+!         allocate  ( FSbz___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Fallen Snow Buffer          (Mosaic)   [mm w.e.]
+!         allocate  ( Tveg___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Vegetation      Temperature (Mosaic)         [K]
+!         allocate  ( Sveg___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Canopy intercepted Snow     (Mosaic)   [mm w.e.]
+!         allocate  ( Rveg___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Canopy intercepted Water    (Mosaic)   [mm w.e.]
+!         allocate  ( pveg___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Vegetation Water Potential  (Mosaic)         [m]
+
+!         allocate  ( z0_____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Roughness Length Momentum   (Mosaic)         [m]
+!         allocate  ( z0ro___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  z0(Orographic)                               [m]
+!         allocate  ( r0_____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Roughness Length Scalars    (Mosaic)         [m]
+!         allocate  ( uss____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Blown    Snow   Flux Turbulent Scale [kg/kg m/s]
+!         allocate  ( BSbz___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Eroded Snow Buffer          (Mosaic)   [mm w.e.]
+! #AE     allocate  ( usth___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Friction Velocity Saltation Threshold      [m/s]
+
+!         allocate  ( Alb____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Surface  Albedo             (Mosaic)         [-]
+!         allocate  ( SNnb___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Nb of  Snow Layers          (Mosaic)         [-]
+!         allocate  ( SInb___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Nb of S.Ice Layers          (Mosaic)         [-]
+!         allocate  ( ICnb___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Nb of   Ice Layers          (Mosaic)         [-]
+
+!         allocate  ( SnWE___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Snow  Pack  Thickness       (Mosaic)   [mm w.e.]
+
+!         allocate  ( wes____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Sublimation        Budget   (Mosaic)   [mm w.e.]
+!         allocate  ( wer____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Melting            Budget   (Mosaic)   [mm w.e.]
+!         allocate  ( wem____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Refreezing         Budget   (Mosaic)   [mm w.e.]
+!         allocate  ( wee____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Evapotranspiration Budget   (Mosaic)   [mm w.e.]
+
+!         allocate  ( Tsis__dxyn(ixp1:mxpp,jyp1:mypp,mwp,-nsoil:nsnow) )
+!                                                             !  Soil-Ice-Snow   Temperature (Mosaic)         [K]
+!         allocate  ( Qsis__dxyn(ixp1:mxpp,jyp1:mypp,mwp,-nsoil:nsnow) )
+!                                                             !  Soil-Ice-Snow   Humidity    (Mosaic)     [kg/kg]
+!         allocate  ( SNdz__dxyn(ixp1:mxpp,jyp1:mypp,mwp,nsnow) ) !  Snow  Layer Thickness       (Mosaic)         [m]
+!         allocate  ( SNro__dxyn(ixp1:mxpp,jyp1:mypp,mwp,nsnow) ) !  Snow  Layer Density         (Mosaic)     [kg/m3]
+!         allocate  ( SNag__dxyn(ixp1:mxpp,jyp1:mypp,mwp,nsnow) ) !  Snow  Layer Age             (Mosaic)       [day]
+!         allocate  ( SNg1__dxyn(ixp1:mxpp,jyp1:mypp,mwp,nsnow) ) !  Snow  Layer Property (d./s.)(Mosaic)         [-]
+!         allocate  ( SNg2__dxyn(ixp1:mxpp,jyp1:mypp,mwp,nsnow) ) !  Snow  Layer Property (s./s.)(Mosaic)         [-]
+!         allocate  ( SNhi__dxyn(ixp1:mxpp,jyp1:mypp,mwp,nsnow) ) !  Snow  Layer History         (Mosaic)         [-]
+
+!         allocate  ( SWz____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Surficial Water Mass        (Mosaic)   [mm w.e.]
+!         allocate  ( SWx____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Surficial Water Status      (Mosaic)   [0,1=m,f]
+!         allocate  ( SWHy___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Normalized Decay of Surficial Water Content  [-]
+!         allocate  ( ROdt___xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Run-Off  Intensity          (Mosaic) [mm w.e./s]
+!         allocate  ( ROF____xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Cumulative Run-Off          (Mosaic)   [mm w.e.]
+
+
+! A-O Coupling
+! ------------
+
+!         allocate  ( Alb_AO_xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Ocean COUPLING (Surface Albedo) n=2 sea-ice  [-]
+!         allocate  ( Alb_AO_xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Ocean COUPLING (Surface Albedo) n=2 sea-ice  [-]
+!         allocate  ( dSdTAO_xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Ocean COUPLING (d(SH Flux) / dT)        [W/m2/K]
+!         allocate  ( dLdTAO_xyn(ixp1:mxpp,jyp1:mypp,mwp) )       !  Ocean COUPLING (d(LH Flux) / dT)        [W/m2/K]
+
+
+! Martin CONTROL
+PRINT*,'On initialise des paramètres en dur dans PHY_SISVAT_INP'
+
+! ------------------------------------------
+! From 2-D Horizontal to 1-D Horizontal Grid
+! ------------------------------------------
+
+          DO ikp=1,kcolp
+             i   = ii__AP(ikp)
+             j   = jj__AP(ikp)
+
+
+            !MaskSV_gpt(ikp)     = 1                     !  Land(1)-Sea(0) Mask         (Grid Cell)      [-]
+            ! Martin : aquaplanète
+             MaskSV_gpt(ikp)     = 0                     !  Land(1)-Sea(0) Mask         (Grid Cell)      [-]
+
+          DO n=1,mwp
+!           Mask___xyn(i,j,n)   = 1                     !  Land(1)-Sea(0) Mask         (Mosaic)         [-]
+            !LSmask    (ikp,n)   = 1                     !  Land(1)-Sea(0) Mask         (Mosaic)         [-]
+            LSmask    (ikp,n)   = 0                     !  Land(1)-Sea(0) Mask         (Mosaic)         [-]
+
+            SlopSV    (ikp,n)   = 0.0                   !  Assignation of Slope to a Particular Value
+
+!           Frac___xyn(i,j,n)   = 1.0/float(mwp)        !  Grid Cell Fraction          (Mosaic)         [-]
+            FracSV    (ikp,n)   = 1.0/float(mwp)        !  Grid Cell Fraction          (Mosaic)         [-]
+
+!           z0_____xyn(i,j,n)   = 1.e-6                 !  Roughness Length Momentum   (Mosaic)         [m]   
+            !z0__SV    (ikp,n)   = 1.e-6                 !  Roughness Length Momentum   (Mosaic)         [m]   
+            z0__SV    (ikp,n)   = 1.e-3                 !  Roughness Length Momentum   (Mosaic)         [m]   
+                                                      ! (Sensitive if non-zero Orographic Roughness)
+!           r0_____xyn(i,j,n)   = 1.e-6                 !  Roughness Length Scalars    (Mosaic)         [m]
+            !Z0h_SV    (ikp,n)   = 1.e-6                 !  Roughness Length Scalars    (Mosaic)         [m]
+            Z0h_SV    (ikp,n)   = 1.e-3                 !  Roughness Length Scalars    (Mosaic)         [m]
+
+
+! Soil and Vegetation
+! -------------------
+
+!           iVgT___xyn(i,j,n)   =   5                   !  Vegetat. Type               (Mosaic)         [-]   (Sensitive)
+            iVgTSV    (ikp,n)   =   0                   !  Vegetat. Type               (Mosaic)         [-]   (Sensitive)
+!           iSoT___xyn(i,j,n)   =   5                   !      Soil Type               (Mosaic)         [-]
+            iSoTSV    (ikp,n)   =   0                   !      Soil Type               (Mosaic)         [-]
+!           iDra___xyn(i,j,n)   =   1                   !      Soil Drainage Switch    (Mosaic)         [-]  
+            iWaFSV    (ikp,n)   =   1                   !      Soil Drainage Switch    (Mosaic)         [-]  
+!           Albs___xyn(i,j,n)   =   0.15                !  Dry Soil Albedo             (Mosaic)         [-]
+            alb0SV    (ikp,n)   =   0.15                !  Dry Soil Albedo             (Mosaic)         [-]
+!           LAI0SV    (ikp,n)   = LAI____xyn(i,j,n)     ! LAI
+!           glf0SV    (ikp,n)   = GLF____xyn(i,j,n)     ! Green Leaf Frac.
+
+
+! Snow Pack Initialization: NO Snow Pack
+! --------------------------------------
+
+!           SNnb___xyn(i,j,n)   = 0                     !  Nb of  Snow Layers          (Mosaic)         [-]   (Sensitive, maybe)
+            isnoSV    (ikp,n)   = 0                     !  Nb of  Snow Layers          (Mosaic)         [-]   (Sensitive, maybe)
+!           SInb___xyn(i,j,n)   = 0                     !  Nb of S.Ice Layers          (Mosaic)         [-]
+            ispiSV    (ikp,n)   = 0                     !  Nb of S.Ice Layers          (Mosaic)         [-]
+!           ICnb___xyn(i,j,n)   = 0                     !  Nb of   Ice Layers          (Mosaic)         [-]   (Sensitive, maybe)
+            iiceSV    (ikp,n)   = 0                     !  Nb of   Ice Layers          (Mosaic)         [-]   (Sensitive, maybe)
+
+          DO l=-nsol,0
+!           Tsis__dxyn(i,j,n,l) =     TsHOST(ikp)       !  Soil-Ice-Snow   Temperature (Mosaic)         [K]
+!           TsisSV    (ikp,n,l) = Tsis__dxyn(i,j,n,l)   !
+            TsisSV    (ikp,n,l) =     TsHOST(ikp)       !
+!           Qsis__dxyn(i,j,n,l) =                      &!                  Humidity    (Mosaic)     [kg/kg]
+!    &          etadSV(iVgTSV(ikp,n))                   ! (Saturation is   assumed)
+!           eta_SV    (ikp,n,l) = Qsis__dxyn(i,j,n,l)   !
+            eta_SV    (ikp,n,l) =                      &!
+     &          etadSV(iVgTSV(ikp,n))                   !
+          ENDDO
+
+          DO l=1,nsno
+!           Tsis__dxyn(i,j,n,l) = 273.15                !  Soil-Ice-Snow   Temperature (Mosaic)         [K]
+!           TsisSV    (ikp,n,l) = Tsis__dxyn(i,j,n,l)   !
+            TsisSV    (ikp,n,l) = 273.15                !
+!           Qsis__dxyn(i,j,n,l) =   0.00                !  Soil-Ice-Snow   Humidity    (Mosaic)     [kg/kg]
+!           eta_SV    (ikp,n,l) = Qsis__dxyn(i,j,n,l)   !
+            eta_SV    (ikp,n,l) =   0.00                !
+!           SNdz__dxyn(i,j,n,l) =   0.00                !  Snow  Layer Thickness       (Mosaic)         [m]
+!           dzsnSV    (ikp,n,l) = SNdz__dxyn(i,j,n,l)   !
+            dzsnSV    (ikp,n,l) =   0.00                !
+!           SNro__dxyn(i,j,n,l) =   0.00                !  Snow  Layer Density         (Mosaic)     [kg/m3]
+!           ro__SV    (ikp,n,l) = SNro__dxyn(i,j,n,l)   !
+            ro__SV    (ikp,n,l) =   0.00                !
+!           SNag__dxyn(i,j,n,l) =   0.00                !  Snow  Layer Age             (Mosaic)       [day]
+!           agsnSV    (ikp,n,l) = SNag__dxyn(i,j,n,l)   !
+            agsnSV    (ikp,n,l) =   0.00                !
+!           SNg1__dxyn(i,j,n,l) =   0.00                !  Snow  Layer Property (d./s.)(Mosaic)         [-]
+!           G1snSV    (ikp,n,l) = SNg1__dxyn(i,j,n,l)   !
+            G1snSV    (ikp,n,l) =   0.00                !
+!           SNg2__dxyn(i,j,n,l) =   0.00                !  Snow  Layer Property (s./s.)(Mosaic)         [-]
+!           G2snSV    (ikp,n,l) = SNg2__dxyn(i,j,n,l)   !
+            G2snSV    (ikp,n,l) =   0.00                !
+!           SNhi__dxyn(i,j,n,l) =   0                   !  Snow  Layer History         (Mosaic) 
+!           istoSV    (ikp,n,l) = SNhi__dxyn(i,j,n,l)   !
+            istoSV    (ikp,n,l) =   0                   !
+          ENDDO
+
+          ENDDO
+          ENDDO
+
+
+! ================================
+          END IF ! (it_EXP .LE. 1)
+
+! FIRST INITIALIZATION       (END)
+! ================================
+
+
+
+
+! OUTPUT
+! ======
+
+!             dSdTAO_xyn(i,j,n) = dSdTSV(ikp,n)                         ! Sens.H.Flux T-Der.  (A-O Coupling)  [W/m2/K]
+!             dLdTAO_xyn(i,j,n) = dLdTSV(ikp,n)                         ! Latn.H.Flux T-Der.  (A-O Coupling)  [W/m2/K]
+!!#SN         SnWE___xyn(i,j,n) = zWE_SV(ikp,n)                         ! Current  *Thick.
+!             ROdt___xyn(i,j,n) = RnofSV(ikp,n)                         ! Run OFF Intensity
+
+
+
+
+! RESTART
+! =======
+
+!!#SN         BufsSV(ikp,n) = FSbz___xyn(i,j,n)                         ! Snow Buffer Lay.
+!!#SN         rusnSV(ikp,n) = SWz____xyn(i,j,n)                         ! Surficial Water
+!!#SN         SWS_SV(ikp,n) = SWx____xyn(i,j,n)                         ! Surficial Water Status
+!!#SN         SWf_SV(ikp,n) = SWHySV_xyn(i,j,n)                         ! Normalized Decay
+
+
+
+
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++
+        END IF
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+!     ACADEMIC INITIALIZATION                                          !
+!                                                                      !
+      ELSE ! IF (.NOT.FlagSV_SBC)                                      !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+! ==============================
+! FIRST INITIALIZATION   (BEGIN)
+        PRINT*, 'CONTROL PHY_SISVAT_INP'
+        PRINT*,'kcolq=',kcolq
+        PRINT*,'kcolp=',kcolp
+        PRINT*,'kmwp=',mwp
+
+        IF       (it_EXP .LE. 1)                                    THEN
+! ==============================
+
+            DO ikp=1,kcolp
+
+              MaskSV_gpt(ikp)      = 0                                  !   Land-Sea Mask
+
+            DO nm=1,mwp
+
+              !LSMask(ikp,nm)       = 1                                  !   Land-Sea Mask
+              ! Test aquaplanète (Martin):
+              LSMask(ikp,nm)       = 0                                  !   Land-Sea Mask
+              SlopSV(ikp,nm)       = 0.                                 !   Surface Slope
+              FracSV(ikp,nm)       = 1.      / float(mwp)               !   Mesh Fraction
+              z0__SV(ikp,nm)       = 1.                              !   z0   Momentum
+              z0h_SV(ikp,nm)       = 1.                            !   z0    Scalars
+              !z0__SV(ikp,nm)       = 0.1                              !   z0   Momentum
+              !z0h_SV(ikp,nm)       = 0.1                            !   z0    Scalars
+              !z0__SV(ikp,nm)       = 0.001                              !   z0   Momentum
+              !z0h_SV(ikp,nm)       = 0.00001                            !   z0    Scalars
+              isnoSV(ikp,nm)       = 0                                  !   NO Snow
+              ispiSV(ikp,nm)       = 0                                  !   NO Ice (Superimposed)
+              iiceSV(ikp,nm)       = 0                                  !   NO Ice
+
+             !iVgTSV(ikp,nm)       = 5                                  !   GRASS MEDIUM Vegetat. Type  (Mosaic)        [-] (see Mod_SISVAT_dat)
+              iVgTSV(ikp,nm)       = 0                                  !   GRASS MEDIUM Vegetat. Type  (Mosaic)        [-] (see Mod_SISVAT_dat)
+             !iSoTSV(ikp,nm)       = 5                                  !   LOAM  Soil            Type  (Mosaic)        [-] (see Mod_SISVAT_dat)
+              iSoTSV(ikp,nm)       = 0                                  !   LOAM  Soil            Type  (Mosaic)        [-] (see Mod_SISVAT_dat)
+              iWaFSV(ikp,nm)       = 1                                  !         Soil Drainage Switch  (Mosaic)(1=free)[-]
+              alb0SV(ikp,nm)       = 0.15                               !   Dry   Soil Albedo                           [-]
+
+            DO l=-nsol,0
+              TsisSV(ikp,nm,l)     = TsHOST(ikp)                        !   Soil-Ice-Snow   Temperature (Mosaic)        [K]
+              eta_SV(ikp,nm,l)     =                                   &!                   Humidity    (Mosaic)    [kg/kg]
+     &        etadSV(iVgTSV(ikp,nm))                                    !  (Saturation is   assumed)
+            ENDDO
+
+            DO l=1,nsno
+              TsisSV(ikp,nm,l)     = 273.15                             !  Soil-Ice-Snow   Temperature (Mosaic)         [K]
+              eta_SV(ikp,nm,l)     =   0.00                             !  Soil-Ice-Snow   Humidity    (Mosaic)     [kg/kg]
+              dzsnSV(ikp,nm,l)     =   0.00                             !  Snow  Layer Thickness       (Mosaic)         [m]
+              ro__SV(ikp,nm,l)     =   0.00                             !  Snow  Layer Density         (Mosaic)     [kg/m3]
+              agsnSV(ikp,nm,l)     =   0.00                             !  Snow  Layer Age             (Mosaic)       [day]
+              G1snSV(ikp,nm,l)     =   0.00                             !  Snow  Layer Property (d./s.)(Mosaic)         [-]
+              G2snSV(ikp,nm,l)     =   0.00                             !  Snow  Layer Property (s./s.)(Mosaic)         [-]
+              istoSV(ikp,nm,l)     =   0.00                             !  Snow  Layer History         (Mosaic)         [-]
+            ENDDO
+
+            ENDDO
+            ENDDO
+
+
+! ==============================
+        END IF ! (it_EXP .LE. 1)
+
+! FIRST INITIALIZATION     (END)
+! ==============================
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!
+      END IF !  (.NOT.FlagSV_SBC)
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+      end subroutine PHY_SISVAT_INP
Index: LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_OUT.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_OUT.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_OUT.f90	(revision 2160)
@@ -0,0 +1,75 @@
+      subroutine PHY_SISVAT_OUT
+
+!------------------------------------------------------------------------------+
+!                                                         Wed 26-Jun-2013  MAR |
+!     SubRoutine PHY_SISVAT_OUT writes main variables from                     |
+!                    SISVAT    (Soil                                           |
+!                               Ice                                            |
+!                               Snow                                           |
+!                               Vegetation                                     |
+!                               Atmosphere                                     |
+!                               Transfer   Scheme)                             |
+!                                                                              |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Mon 24-Jun-2013      |
+!           Last Modification by H. Gallee,               Wed 26-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_flx
+      use Mod_SISVAT_cdf
+
+
+
+
+! Local   Variables
+! =================
+
+! Dummy
+! -----
+
+      integer  ::  i     ,j     ,nm    ,ikp
+      integer  ::  isl
+
+
+
+
+! From 1D to 2D Horizontal Grid
+! =============================
+
+        DO ikp=1,kcolp
+           i   = ii__AP(ikp)
+           j   = jj__AP(ikp)
+        DO nm=1,mwp
+
+! Energy Fluxes                                             (OUTPUT/NetCDF)
+! ^^^^^^^^^^^^^                                              ^^^^^^^^^^^^^
+           SOsoNC_xyn(i,j,nm)      = SOsoKL(ikp,nm)                     ! Absorb.Sol.Rad.            [W/m2]
+           IRsoNC_xyn(i,j,nm)      = IRsoKL(ikp,nm)                     ! Absorb.IR  Rad.            [W/m2]
+           HSsoNC_xyn(i,j,nm)      = HSsoKL(ikp,nm)                     ! HS                         [W/m2]
+           HLsoNC_xyn(i,j,nm)      = HLsoKL(ikp,nm)                     ! HL                         [W/m2]
+           HLs_NC_xyn(i,j,nm)      = HLs_KL(ikp,nm)                     ! Evaporation           [mm w.e./s]
+           HLv_NC_xyn(i,j,nm)      = HLv_KL(ikp,nm)                     ! Transpiration              [W/m2]
+
+           eta_NC_xyn(i,j,nm)      = 0.                                 !
+         DO isl = -nsoil,0                                              !
+           eta_NC_xyn(i,j,nm)      = eta_NC_xyn(i,j,nm)                &! Soil Moisture
+     &    +eta_SV(ikp,nm,isl)      * dz_dSV(    isl)                    !
+         END DO                                                         !
+
+        END DO
+        END DO
+
+
+
+
+      end subroutine PHY_SISVAT_OUT
Index: LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_RUN.f90	(revision 2160)
@@ -0,0 +1,1107 @@
+      subroutine PHY_SISVAT_RUN(                                        &
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     SubRoutine PHY_SISVAT_RUN interfaces 3d-grid        Wed 26-Jun-2013 MAR  |
+!               with SISVAT                2d-grid                             |
+!                    SISVAT as  Soil                                           |
+!                               Ice                                            |
+!                               Snow                                           |
+!                               Vegetation                                     |
+!                               Atmosphere                                     |
+!                               Transfer   Scheme                              |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 26-Feb-2013      |
+!           Last Modification by H. Gallee,               Wed 26-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+! #TC&                        qxTC,uqTC  ,qsTC  ,                       &      ! Aerosols: Atm.Conc., Surf.Flux
+     &                     )
+
+!------------------------------------------------------------------------------+
+!                                                                              |
+!     INPUT:    it_RUN: Run Iterations Counter                                 |
+!     ^^^^^                                                                    |
+!                                                                              |
+!     INPUT    (via module Mod_SISVAT_ctr)                                     |
+!     ^^^^^     VegMod: SISVAT    is set up when .T.                           |
+!               SnoMod: Snow Pack is set up when .T.                           |
+!               inpSBC: Update Bound.Condit.when .T.                           |
+!                                                                              |
+!     INPUT    (via common block)                                              |
+!     ^^^^^     xxxxTV: SISVAT/MAR interfacing variables                       |
+!                                                                              |
+!     Preprocessing  Option: SISVAT PHYSICS                                    |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^                                    |
+!   #                        #SN: Snow         Model                           |
+!   #                        #GP  LAI and GLF  Variations not specified        |
+!   #                        #OP  SST       is interactive                     |
+!                                                                              |
+!   #                        #DS: diffuse radiation differing from direct      |
+!                                (variable RADsod must still be included)      |
+!                                                                              |
+!     Preprocessing  Option: SISVAT PHYSICS: Col de Porte                      |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^                      |
+!   #                        #CP: SBL,                       Col de Porte      |
+!   #                        #cp  Solar Radiation,           Col de Porte      |
+!   #                        #AG: Snow Ageing,               Col de Porte      |
+!                                                                              |
+!                                                                              |
+!     Preprocessing  Option: STANDARD Possibility                              |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                              |
+!     #HY: Explicit Cloud MICROPHYSICS              may be turned ON           |
+!     #BS: Explicit Cloud MICROPHYSICS: Blow. *(Snow)         Model)           |
+!     #SI: SISVAT: Sea-Ice Fraction calculated from prescribed SST             |
+!     #IP: SISVAT: Sea-Ice Fraction prescribed from SMMR and SSM/I             |
+!     #SN: SNOW Model                               may be turned ON           |
+!     #AO: COUPLING with  NEMO Ocean-Sea-Ice Model using OASIS                 |
+!     #AE: TURBULENCE: Aerosols Erosion / Turbulent Diffusion Coeff.           |
+!     #BD: TraCer   Aeolian Erosion  Submodel           is turned ON           |
+!     #OR: SBL: Orography Roughness included from z0__SV (MARdom)              |
+!     #SZ: SBL: Mom.: Roughn.Length= F(u*) Andreas &al.(1995)  Snow            |
+!     #ZM: SBL: M/H   Roughn.Length: Box Moving Average (in Time)              |
+!     #IB: OUTPUT: Ice-Sheet Surface Mass Balance  (on NetCDF File )           |
+!     #vL: PORTABILITY: Vectorization enhanced                                 |
+!     #vS: PORTABILITY: Vectorization enhanced: Snow    Model *                |
+!     #vD: PORTABILITY: Vectorization enhanced: Blowing  Dust .                |
+!     #vZ: PORTABILITY: Vectorization enhanced: Av.Roughness Length            |
+!     #AA  TURBULENCE: SBL  Time Mean (BOX Moving Average)                     |
+!     #AW  TURBULENCE: Wind Time Mean (BOX Moving Average)                     |
+!     #AH  TURBULENCE: Ta-T Time Mean (BOX Moving Average)                     |
+!                                                                              |
+!                                                                              |
+!     Preprocessing  Option: OBSOLETE                                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^                                          |
+!     #AM  TURBULENCE: u*   Time Mean (BOX Moving Average)                     |
+!     #AT  TURBULENCE: u*T* Time Mean (BOX Moving Average)                     |
+!     #AS  TURBULENCE: u*s* Time Mean (BOX Moving Average)                     |
+!                                                                              |
+!                                                                              |
+!     Preprocessing  Option:                                                   |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                    |
+!     #TC: TraCer   Advection-Diffusion Equation        is turned ON           |
+!     #CM: Update Green Leaf Fraction may be performed (in routine INIglf)     |
+!     #VM: TURBULENCE: Ua   minimum is prescribed                              |
+!     #GP: Soil /Vegetation Model: LAI, GLF Variations NOT prescrib.           |
+!     #OP: SISVAT: Interactive Sea Surface Temperature     turned ON           |
+!     #op: SISVAT: SST Nudging -->   prescribed values     turned ON           |
+!     #RE: SISVAT: SST Condition     modified   by         epsilon             |
+!     #PO: POLYNYA Model                            may be turned ON           |
+!                                                                              |
+!                                                                              |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.)     |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                         |
+!     FILE                 |      CONTENT                                      |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     |
+!   # SISVAT_iii_jjj_n     | #e0: OUTPUT on ASCII  File (SISVAT Variables)     |
+!   #                      |(#e0  MUST BE PREPROCESSED BEFORE #e1 & #e2 !)     |
+!   # SISVAT_iii_jjj_n     | #e1: OUTPUT/Verification: Energy Conservation     |
+!   # SISVAT_iii_jjj_n     | #e2: OUTPUT/Verification: Energy Consrv.2e pt.    |
+!                          |                           (no premature stop)     |
+!   # SISVAT_iii_jjj_n     | #e3: OUTPUT/Verification: Energy Consrv. (HL)     |
+!   # SISVAT_iii_jjj_n     | #e4: OUTPUT/Verification: Energy Consrv. (HLS)    |
+!   # SISVAT_iii_jjj_n     | #el: OUTPUT Format      : Addition.Frame Line     |
+!                          |                                                   |
+!   # SISVAT_iii_jjj_n     | #m0: OUTPUT/Verification: H2O    Conservation     |
+!   # SISVAT_iii_jjj_n     | #m1: OUTPUT/Verification: * Mass Conservation     |
+!   # SISVAT_iii_jjj_n     | #m2: OUTPUT/Verification: SeaIce Conservation     |
+!   # stdout               | #mw: OUTPUT/Verification: H2O    Conservation     |
+!                          |      unit  6, SubRoutine  SISVAT_qSo **ONLY**     |
+!                          |                                                   |
+!   # SISVAT_iii_jjj_n     | #mb: OUTPUT/Verification: Blowing Snow            |
+!                          |               SubRoutine  PHY_SISVAT **ONLY**     |
+!                          |                                                   |
+!   # SISVAT_zSn.vz        | #vz: OUTPUT/Verification: Snow Layers Agrega.     |
+!                          |      unit 41, SubRoutine  SISVAT_zSn **ONLY**     |
+!   # SISVAT_qSo.vw        | #vw: OUTPUT/Verif+Detail: H2O    Conservation     |
+!                          |      unit 42, SubRoutine  SISVAT_qSo **ONLY**     |
+!   # SISVAT_qSn.vm        | #vm: OUTPUT/Verification: Energy/Water Budget     |
+!                          |      unit 43, SubRoutine  SISVAT_qSn **ONLY**     |
+!   # SISVAT_qSn.vu        | #vu: OUTPUT/Verification: Slush  Parameteriz.     |
+!                          |      unit 44, SubRoutine  SISVAT_qSn **ONLY**     |
+!   # SISVAT_wEq.ve        | #ve: OUTPUT/Verification: Snow/Ice Water Eqv.     |
+!                          |      unit 45, SubRoutine  SISVAT_wEq **ONLY**     |
+!   # SnOptP____.va        | #va: OUTPUT/Verification: Albedo Parameteriz.     |
+!                          |      unit 46, SubRoutine  SnOptP     **ONLY**     |
+!   # SISVAT_GSn.vp        | #vp: OUTPUT/Verification: Snow   Properties       |
+!                          |      unit 47, SubRoutines SISVAT_zSn, _GSn        |
+!   # PHY_SISVAT.v0        | #v0: OUTPUT/Verification: DUMP                    |
+!                          |      unit 50, SubRoutine  PHY_SISVAT **ONLY**     |
+!                          |                                                   |
+!   # stdout               | #b0: OUTPUT of Snow Erosion Variables             |
+!                          |      unit  6, SubRoutine  SISVAT_BSn **ONLY**     |
+!   # stdout               | #b1: OUTPUT of Snow Erosion Turbulence            |
+!                          |      unit  6, SubRoutine  SISVATeSBL **ONLY**     |
+!   # stdout               | #b2: OUTPUT of Snow Erosion Turbulence (2)        |
+!                          |      unit  6, SubRoutine  SISVATeSBL **ONLY**     |
+!                          |                                                   |
+!   # stdout               | #s0: OUTPUT of Snow Buffer Layer                  |
+!                          |      unit  6, SubRoutine  SISVAT     **ONLY**     |
+!   # stdout               | #s1: OUTPUT of Snow Layers Agregation             |
+!                          |      unit  6, SubRoutine  SISVAT_zSn, _zAg        |
+!   # stdout               | #s2: OUTPUT of SnowFall, Snow Buffer              |
+!                          |      unit  6, SubRoutine  SISVAT_BSn, _qSn        |
+!   # stdout               | #sb: OUTPUT/Verification: SISVAT_SBL              |
+!                          |      unit  6, SubRoutine  SISVAT_SBL **ONLY**     |
+!   # stdout               | #sd: OUTPUT/Verification: Snow Thinest Layer      |
+!                          |      unit  6, SubRoutine  SISVAT_zSn **ONLY**     |
+!   # stdout               | #sf: OUTPUT of SnowFall, Z0 and Drag Coeff.       |
+!                          |      unit  6, SubRoutines PHY_SISVAT, SISVAT      |
+!   # stdout               | #sg: OUTPUT/Verification: Gravitational Front     |
+!                          |      unit  6, SubRoutine  SISVAT_qSo **ONLY**     |
+!   # stdout               | #sh: OUTPUT/Verification: SBL Turbulent Fluxes    |
+!                          |      unit  6, SubRoutine  PHY_SISVAT **ONLY**     |
+!   # stdout               | #si: OUTPUT of Sea Ice Fraction, Temperature      |
+!                          |      unit  6, SubRoutine  PHY_SISVAT **ONLY**     |
+!   # stdout               | #sm: OUTPUT/Verification: Mosaic Fractions Sum    |
+!                          |      unit  6, SubRoutine  PHY_SISVAT **ONLY**     |
+!   # stdout               | #so: OUTPUT/Verification: Soil Vertic.Discret.    |
+!                          |      unit  6, SubRoutine  SISVAT_ini **ONLY**     |
+!   # stdout               | #ss: OUTPUT of Blowing Snow Variables             |
+!                          |      unit  6, SubRoutine  SISVATeSBL **ONLY**     |
+!   # stdout               | #sz: OUTPUT of Roughness Length & Drag Coeff.     |
+!                          |      unit  6, SubRoutine  SISVAT     **ONLY**     |
+!                          |                                                   |
+!------------------------------------------------------------------------------+
+
+
+! Global Variables
+! ================
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_dim
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_gpt
+
+      use Mod_PHY_S0_dat
+      use Mod_PHY_S0_kkl
+      use Mod_PHY_RT_kkl
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_CM_kkl
+
+
+! INTERFACE Variables
+! ===================
+
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+! #AW use Mod_SISVAT_xAW
+! #AH use Mod_SISVAT_xAH
+! #ZM use Mod_SISVAT_xZM
+! #WL use Mod_SISVAT_xWL
+
+
+
+      IMPLICIT NONE
+
+
+
+      INTEGER    ntrac
+      PARAMETER (ntrac=1)
+
+
+! Tracers
+! ^^^^^^^
+! #TC real       uqTC  ( mx, my,    ntrac)  ! q*     (Tracer)
+! #TC real       qsTC  ( mx, my,    ntrac)  ! qSurf  (Tracer)
+! #TC real       qxTC  ( mx, my, mz,ntrac)  ! q      (Tracer)
+
+! Auxiliary Variables
+! ^^^^^^^^^^^^^^^^^^^
+! #CM integer                                          ::  newglfSIS    !
+! #IP integer                                          ::  newsicSI     !
+
+
+
+
+! Internal  Variables
+! ===================
+
+      logical            glfFIX
+
+      character(len=1)   cha  ,chb
+      integer            jjtime
+      integer            iwr
+! #SI integer            l
+      integer            isl  ,isn
+      integer            i    ,j    ,k     ,ikp
+      integer            n    ,nm
+
+      real(kind=real8)   rhAir                ! Air     Densitity
+      real(kind=real8)   Ua_min               ! Minimum Air Velocity
+      real(kind=real8)   d_snow,SnowOK        ! Snow Precip.: Total
+! #BS real(kind=real8)   dbsnow               ! Snow Precip.: from Drift
+! #WL real(kind=real8)   uqstar               ! u*q*
+
+! #SI real(kind=real8)   SrfSIC,SIc0OK        ! Oceanic Fraction: previous
+! #SI real(kind=real8)   FraOcn,SIceOK        ! Oceanic Fraction
+
+! #Za real(kind=real8)   S_Eros               ! Snow Erosion (status) = (1,0)
+! #Za real(kind=real8)   SnEros               ! Snow Erosion (status) = (1,0)
+
+! OUTPUT/Verification:   Blowing Snow
+! #mb integer            noUNIT
+! #mb real(kind=real8)   BlowST,SnowSB
+
+
+! DATA
+! ====
+
+      data     glfFIX   /  .false./
+      data     cha      /'-'/
+      data     chb      /':'/
+
+
+
+! SISVAT Time
+! ===========
+
+          jjtime = HourTU*3600+minuTU*60+Sec_TU
+
+
+
+
+! SISVAT Variables:      (x,y,z) Domain
+! =====================================
+
+      DO ikp=1,kcolp
+      DO nm =1,mwp
+
+
+! SISVAT Variables: Interpolation of V at 10 m a.g.l.
+! ---------------------------------------------------
+
+        IF (k_SL.EQ.mzp)                                            THEN
+          VV10SV(ikp,nm) = r_SL10 * WindSV(ikp,nm,k_SL)                 !
+        ELSE
+          VV10SV(ikp,nm) =          WindSV(ikp,nm,k_SL)                &!
+     &                   + r_SL10 *(WindSV(ikp,nm,k_SL-1)              &!
+     &                             -WindSV(ikp,nm,k_SL))                !
+        END IF
+
+
+! Sastrugi Height decreased by Precipitation if V < 6 m/s (Kotlyakov, 1961)
+! -------------------------------------------------------------------------
+
+! #ZS   dz0_SV(ikp,nm)  =      max(zer0,(SnowCM(ikp)-Sno0CM(ikp))      &!
+! #ZS&    /max(0.05,0.104*sqrt(max(zer0, WindSV(ikp,nm,mzp)-6.00))))    !
+! #ZS   dz0_SV(ikp,nm)  =                dz0_SV(ikp,nm) *0.01*max(2-n,0)! dz0(Sastrugi dh)
+
+
+! Influence of the Angle(Wind,Sastrugi) (Andreas, 1995, CCREL report 95-16)
+! -------------------------------------------------------------------------
+
+! #Za   S_Eros     = max(zer0,sign(un_1,-uss_CM(ikp) -eps9))
+! #Za   SnEros     = max(zer0,sign(un_1, uss_CM(ikp) +eps9))
+! #Za   VVs_SV(ikp,nm)    = VVs_SV(ikp,nm) * RRsxSV(ikp,nm)
+! #Za   VVs_SV(ikp,nm)    =                                            &
+! #Za&           SnEros* VVs_SV(ikp,nm)                                &
+! #Za&         + S_Eros*(VVs_SV(ikp,nm) * Adz0dt     + VV10SV(ikp,nm))
+! #Za   RRsxSV(ikp,nm)    =                                            &
+! #Za&           SnEros* RRsxSV(ikp,nm)                                &
+! #Za&         + S_Eros*(RRsxSV(ikp,nm) * Adz0dt     + 1.0 )
+! #Za   DDsxSV(ikp,nm)    =                                            &
+! #Za&           SnEros* DDsxSV(ikp,nm)                                &
+! #Za&         + S_Eros* DDsxSV(ikp,nm) * Adz0dt                       &
+! #Za&         +        (Va__SV(ikp,nm) *(Ua__SV(ikp,nm) -Ua0_SV(ikp,nm))  &
+! #Za&                  -Ua__SV(ikp,nm) *(Va__SV(ikp,nm) -Va0_SV(ikp,nm))) &
+! #Za&   /(degrad*max(.3,WindSV(ikp,nm,mzp) * WindSV(ikp,nm,mzp)))
+! #Za    IF (DDsxSV(ikp,nm)   .GT.360.) DDsxSV(ikp,nm)  = DDsxSV(ikp,nm) - 360.
+! #Za    IF (DDsxSV(ikp,nm)   .LT.  0.) DDsxSV(ikp,nm)  = DDsxSV(ikp,nm) + 360.
+      END DO
+      END DO
+
+
+! Water Vapor Flux Limitor
+! ------------------------
+
+! #WL DO ikp=1,kcolp
+! #WL DO nm =1,mwp
+
+! #WL  DO n=1,nLimi-1
+! #WL    WL_mem(ikp,nm,n) = WL_mem(ikp,nm,n+1)
+! #WL  END DO
+
+! #WL    uqstar  =  max(abs(uqs_SV_gpt(ikp),eps6)*sign(1.,uqs_SV_gpt(ikp))
+! #WL    WL_mem(ikp,nm,n)                                              &
+! #WL& = Kzh_AT(ikp,nm,k1m(mzp))
+! #WL&    *(qv__SV(ikp,nm,mzpp-k2m(mzp))-qv__SV(ikp,nm,mzpp-k1m(mzp))) &
+! #WL&    /(uqstar    *(hsigma(k2m(mzp))            -hsigma(k1m(mzp))))
+
+! #WL     WLmmem(ikp,nm) = 0.
+! #WL  DO n=1,nLimi
+! #WL     WLmmem(ikp,nm) = WLmmem(ikp,nm)+WL_mem(ikp,nm,n)
+! #WL  ENDDO
+! #WL     WLmmem(ikp,nm) = WLmmem(ikp,nm)/nLimit
+
+! #WL END DO
+! #WL END DO
+
+
+
+! SWD / SWA INPUT
+! ---------------
+
+      DO ikp = 1,kcolp
+
+      IF (.NOT.InpSWD)                                              THEN
+        SWDsRT(ikp) = SWAsRT(ikp)/(1.d0-Alb_SV_gpt(ikp))                ! => downward Solar
+      END IF
+
+
+! Grid Averages
+! -------------
+
+        Alb_SV_gpt(ikp)  = 0.
+        EmisSV_gpt(ikp)  = 0.
+        LWUsRT    (ikp)  = 0.
+        LMO_SV_gpt(ikp)  = 0.
+        us__SV_gpt(ikp)  = 0.
+        uts_SV_gpt(ikp)  = 0.
+        uqs_SV_gpt(ikp)  = 0.
+        uss_CM(ikp)      = 0.
+        qs__CM(ikp,mzpp) = 0.
+        hFraSV_gpt(ikp)  = 0.
+        Tas_SV_gpt(ikp)  = 0.
+        qv__DY(ikp,mzpp) = 0.
+! #TC     uqTC(i,j,1)    = 0.
+! #TC     qsTC(i,j,1)    = 0.
+      END DO
+
+
+
+! SISVAT Variables: from (x,y,z) Domain to (vector,mosaic) Domain
+! ===============================================================
+
+! SISVAT Variables Update
+! ^^^^^^^^^^^^^^^^^^^^^^^
+      DO      ikp         = 1,kcolp
+      DO      nm          = 1,mwp
+              i           = ii__AP(ikp)
+              j           = jj__AP(ikp)
+
+! OUTPUT of SnowFall, Roughness Length and Drag Coefficients
+! #sf         IF (ikp.EQ.1 .AND. Sec_TU.EQ.0) 
+! #sf&        write(6,6659) 
+! #sf 6659    format(20x,'   dsn_SV   us__SV   Z0SaSi   Z0Sa_N'        &
+! #sf&                  ,'   Z0SaSV   Z0m_Sn   Z0m_SV')
+
+! Atmospheric Forcing                                       (INPUT)
+! ^^^^^^^^^^^^^^^^^^^                                        ^^^^^
+            DO isn=1,mzp
+              isl =  mzp + 1  - isn                                     !
+              Kz__SV(ikp,nm,isn) = Kzh_AT(ikp,isl)                      !
+              pktaSV(ikp,nm,isn) = pkt0SV(ikp,nm,isn)                   !
+            ENDDO
+              za__SV(ikp,nm) =    zza_SV(ikp,nm,1)                      ! [m]
+                                                                        !
+              VV__SV(ikp,nm) =    WindSV(ikp,nm,mzp)                    !
+
+              Ua_min         = eps6                                     !
+! #VM         Ua_min         = 0.2 * sqrt(za__SV(ikp,nm) )              !
+              VV__SV(ikp,nm) = max(Ua_min,VV__SV(ikp,nm) )              !
+                                                                        !
+! #Za         VVs_SV(ikp,nm) = VVs_SV(ikp,nm) / RRsxSV(ikp,nm)          !
+! #Za         DDs_SV(ikp,nm) =         max(zer0,DDsxSV(ikp,nm)-180.)   &
+! #Za&        +180.*min(un_1,zer0-min(zer0,DDsxSV(ikp,nm)     -180.))  &
+! #Za&                           +min(zer0,DDsxSV(ikp,nm)     -180.)
+              rhT_SV(ikp,nm) = pkPaSV(ikp,nm)   *1.e3                  &! [kg/m3]
+     &                       /(TaT_SV(ikp,nm)   *R_DAir)                !
+              QaT_SV(ikp,nm) = qv__SV(ikp,nm,1)                         !
+! #WL         dQa_SV(ikp,nm) =  max(0.,1.-WLmmem(ikp,nm))              &! Water  Vapor
+! #WL&                        * dt__SV/hsigma(mzp)                      ! Flux Limitor
+              qsnoSV(ikp,nm) =      0.                                 &!
+     &                       + qs__CM(ikp,mzp)                         &!
+! #TC&                       +   qxTC(i,j,mzp,1)                       &!
+     &                       +   0.
+
+! Energy Fluxes                                             (INPUT)
+! ^^^^^^^^^^^^^                                              ^^^^^
+              coszSV(ikp,nm) = max(cszEPS,csz_S0(ikp))                  ! cos(zenith.Dist.)
+              sol_SV(ikp,nm) =            SWDsRT(ikp)                   !    downward Solar
+              IRd_SV(ikp,nm) =            LWDsRT(ikp)                   !    downward IR
+
+! Water  Fluxes                                             (INPUT)
+! ^^^^^^^^^^^^^                                              ^^^^^
+              drr_SV(ikp,nm) =(RainCM(ikp)-Rai0CM(ikp)) *1.e3 /dt__SV   ! [m/s] -> [mm/s] .OR. [kg/m2/s]
+              d_snow         = SnowCM(ikp)-SnobCM(ikp)                  ! Only SnowFall
+              dsn_SV(ikp,nm) = d_snow                   *1.e3 /dt__SV   ! Erosion NOT incl.
+              SnowOK         =                                         &! Correction
+     &         max(zer0,sign(un_1,       qs__CM(ikp,mzp)-eps6))        &!
+     &        *max(zer0,sign(un_1,Tf_Sno-TaT_SV(ikp,nm) -eps6))         !
+              dsn_SV(ikp,nm) = dsn_SV(ikp,nm)+drr_SV(ikp,nm)*SnowOK     !
+              drr_SV(ikp,nm) = drr_SV(ikp,nm)           *(1.-SnowOK)    !
+! #BS         dbsnow         =-ussxSV(ikp,nm)                          &! Erosion
+! #BS&                        *dt__SV     *rhT_SV(ikp,nm)               !
+! #bS         dsnbSV(ikp,nm) =min(max(zer0,dbsnow)                     &!
+! #bS&                    /       max(eps6,d_snow),un_1)                !
+! #BS         dsnbSV(ikp,nm) =1.0-min(qs__CM(ikp,k_zb)                 &! k_zb level ~ 25 magl
+! #BS&                           /max(qs__CM(ikp,mzp ),epsn),un_1)      !(BS negligib.at k_zb)
+!             dsnbSV is used and modified in SISVAT_BSn,
+!                  then used for Buffer Layer Update
+! #BS         dbs_SV(ikp,nm) =        ussbSV(ikp,nm)                    !          [kg/m2]
+
+! Soil/Canopy                                               (INPUT)
+! ^^^^^^^^^^^                                                ^^^^^
+              slorSV(ikp,nm) = atan(slopSV(ikp,nm))                     ! Fall Line Slope       [radian]
+
+! Energy Fluxes                                             (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^                                              ^^^^^^^^^^^^
+              cld_SV(ikp,nm) =      ClouRT(ikp)                         ! Cloudiness
+
+! Water  Fluxes                                             (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^                                              ^^^^^^^^^^^^
+! #BS         uss_SV(ikp,nm) =      ussxSV(ikp,nm)                      ! u*s*
+
+! #vL ENDDO
+! #vL ENDDO
+
+! Snow Roughness                                            (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^^                                             ^^^^^^^^^^^^
+! #vL DO      ikp = 1,kcolp
+! #vL DO      nm  = 1,mwp
+
+! #ZM         Z0mmSV(ikp,nm) =     0.                                   !
+! #ZM         Z0emSV(ikp,nm) =     0.                                   !
+! #ZM         Z0hmSV(ikp,nm) =     0.                                   !
+! #ZM       DO k  =   1,ntavz                                           !
+! #ZM         Z0mmSV(ikp,nm) =     Z0mmSV(ikp,nm)                      &!
+! #ZM&                       +     z0_mem(ikp,nm,k)                     !
+! #ZM         Z0emSV(ikp,nm) =     Z0emSV(ikp,nm)                      &!
+! #ZM&                       +     b0_mem(ikp,nm,k)                     !
+! #ZM         Z0hmSV(ikp,nm) =     Z0hmSV(ikp,nm)                       !
+! #ZM&                       +     r0_mem(ikp,nm,k)                     !
+! #ZM       ENDDO                                                       !
+! #ZM         Z0mmSV(ikp,nm) = min(Z0mmSV(ikp,nm)  /ntavz              &!  z0(Mom., Box Av.)
+! #ZM&                            ,hsigma(mzp)     /    3.)             !
+! #ZM         Z0emSV(ikp,nm) =     Z0emSV(ikp,nm)  /ntavz               !  b0(Eros, Box Av.)
+! #ZM         Z0hmSV(ikp,nm) =     Z0hmSV(ikp,nm)  /ntavz               !  r0(Heat, Box Av.)
+
+! V,  dT(a-s)    Time Moving Averages
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AA       DO k =  1,ntaver-1
+! #AW         V__mem(ikp,nm,k    ) = V__mem(ikp,nm,k+1)
+! #AH         T__mem(ikp,nm,k    ) = T__mem(ikp,nm,k+1)
+! #AA       ENDDO
+! #AW         V__mem(ikp,nm,ntave) = VV__SV(ikp,nm)
+! #AH         T__mem(ikp,nm,ntave) = TaT_SV(ikp,nm)-Ts__SV(ikp,nm)
+
+! #AW         VVmmem(ikp,nm)       = 0.0
+! #AH         dTmmem(ikp,nm)       = 0.0
+! #AA       DO k=1,ntaver
+! #AW         VVmmem(ikp,nm)       = VVmmem(ikp,nm)+V__mem(ikp,nm,k)
+! #AH         dTmmem(ikp,nm)       = dTmmem(ikp,nm)+T__mem(ikp,nm,k)
+! #AA       ENDDO
+! #AW         VVmmem(ikp,nm)        = VVmmem(ikp,nm)/ntaver
+! #AH         dTmmem(ikp,nm)        = dTmmem(ikp,nm)/ntaver
+
+! #vL ENDDO
+! #vL ENDDO
+
+! Snow Pack                                                 (INPUT/OUTPUT)
+! ^^^^^^^^^                                                  ^^^^^^^^^^^^
+! #vS DO      ikp = 1,kcolp
+! #vS DO      nm  = 1,mwp
+              dsn_SV(ikp,nm) =     dsn_SV(ikp,nm)                      &!
+     &                        +max(BufsSV(ikp,nm)-SMndSV,0.)           &!
+     &                        /    dt__SV                               !
+              BufsSV(ikp,nm) = min(BufsSV(ikp,nm),SMndSV   )            !
+! #vS ENDDO
+! #vS ENDDO
+
+      DO      isn = 1,nsnow
+! #vS DO      ikp = 1,kcolp
+! #vS DO      nm  = 1,mwp
+              G1snSV(ikp,nm,isn) = max(-G1_dSV,min(G1_dSV,             &!
+     &                                  G1snSV(ikp,nm,isn)))            ! [-]        [-]
+              G2snSV(ikp,nm,isn) = max(-G1_dSV,min(G1_dSV,             &!
+     &                                  G2snSV(ikp,nm,isn)))            ! [-] [0.0001 m]
+! #vS END DO
+! #vS END DO
+      END DO
+
+! #vL DO      ikp = 1,kcolp
+! #vL DO      nm  = 1,mwp
+! #vL         i   = ii__AP(ikp)   
+! #vL         j   = jj__AP(ikp)   
+
+! #SI         HFraSV(ikp,nm)     = 0.                         ! Frazil Thickness
+
+! RunOFF Intensity                                          (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^^^^                                           ^^^^^^^^^^^^
+              RnofSV(ikp,nm)     = 0.                         ! RunOFF Intensity
+
+! Blown Snow OUTPUT for a specific Grid Point
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #mb    IF  (lwriSV(ikp,nm).ne.0.AND.it_RUN.gt.0)                     THEN
+! #mb         noUNIT =   no__SV(lwriSV(ikp,nm))
+! #mb         write(noUNIT,5012)
+! #mb 5012    format(/,1x)
+! #mb         write(noUNIT,5013)
+! #mb 5013    format(' -----+--------+--------+--------+--------+',    &
+! #mb&             '--------+--------+--------+--------+--------+',    &
+! #mb&             '--------+')
+! #mb         write(noUNIT,5014)
+! #mb 5014    format('    n |     z  |     qs |      V |        |',    &
+! #mb&             '     T  | TKE^0.5|        |        |        |',    &
+! #mb&             '        |',                                        &
+! #mb&             /,'      |    [m] | [g/kg] |  [m/s] |        |',    &
+! #mb&             '    [K] |  [m/s] |        |        |        |',    &
+! #mb&             '        |')
+! #mb           BlowST=0.
+! #mb           k=0
+! #mb 5011    CONTINUE
+! #mb           k=k+1
+! #mb         IF (               k             .gt.mzp )      GO TO 5010
+! #mb         IF (Z___DY    (ikp,k)-sh__AP(ikp).lt.100.)            THEN
+! #mb           BlowST=BlowST+WindSV(ikp,nm,k)*qs__CM    (ikp,k)       &
+! #mb&                 *1.e3*(pkPaSV(ikp,nm)  -pt__DY)*d1Sigm(k) *Grav_I
+! #mb           write(noUNIT,5015) mzpp-k                              &
+! #mb&           ,     Z___DY(ikp,k)   -sh__AP(ikp)                    &
+! #mb&           ,     qs__CM(ikp,k)   *1.e3                           &
+! #mb&           ,     WindSV(ikp,nm,k),Ta__DY(ikp,k)                  &
+! #mb&           ,sqrt(TKE_AT(ikp,k))          
+! #mb 5015      format(i5,' |',f7.2,' |',f7.3,' |',f7.2,' |',          &
+! #mb&                  8x,'|',f7.2,' |',f7.3,' |', 4(8x,'|'))
+! #mb         END IF
+! #mb         GO TO 5011
+! #mb 5010    CONTINUE
+
+! #mb           SnowSB =   BufsSV(ikp,nm)      
+! #mb         IF        (  isnoSV(ikp,nm)   .GT.     0      )       THEN
+! #mb         DO isn=max(0,isnoSV(ikp,nm)  ) ,isnoSV(ikp,nm)  
+! #mb           SnowSB =   SnowSB                                      &
+! #mb&                +    dzsnSV(ikp,nm,isn)*ro__SV(ikp,nm,isn)
+! #mb         END DO
+! #mb         END IF
+
+! #mb         write(noUNIT,5016) BlowST,SnowSB
+! #mb 5016    format(' * TRANSPORT = ',e12.3,' kg/m/s'  ,  8x,'|',     &
+! #mb&               ' * BUDGET    = ',f12.6,' mm w.e.|',2(8x,'|'))
+! #mb         write(noUNIT,5013)
+! #mb    END IF
+
+! OUTPUT, for Stand-Alone VERIFICATION
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #v0    IF  (ikp .le. kcolp .and. nm .le. mxpp)                    THEN
+! #v0         write(50,5001) it_RUN,ikp,nm                             &
+! #v0&                   za__SV(ikp,nm),VV__SV(ikp,nm),TaT_SV(ikp,nm), &
+! #v0&                   rhT_SV(ikp,nm),QaT_SV(ikp,nm),qsnoSV(ikp,nm), &
+! #v0&                   coszSV(ikp,nm),sol_SV(ikp,nm),IRd_SV(ikp,nm), &
+! #v0&                   drr_SV(ikp,nm),dsn_SV(ikp,nm),dbs_SV(ikp,nm), &
+! #v0&                   LSmask(ikp,nm),isotSV(ikp,nm),alb0SV(ikp,nm), &
+! #v0&                   IRs_SV(ikp,nm),                               &
+! #v0&                   ivgtSV(ikp,nm),LAI0SV(ikp,nm),glf0SV(ikp,nm), &
+! #v0&                   TvegSV(ikp,nm),LMO_SV(ikp,nm),us__SV(ikp,nm), &
+! #v0&                   uqs_SV(ikp,nm),uts_SV(ikp,nm),uss_SV(ikp,nm), &
+! #v0&                   snCaSV(ikp,nm),rrCaSV(ikp,nm),psivSV(ikp,nm)
+! #v0 5001    format(/,'c #INFO   it_RUN             = ',i15  ,        &
+! #v0&               /,'c #INFO   ikp                = ',i15  ,        &
+! #v0&               /,'c #INFO   nm                 = ',i15  ,        &
+! #v0&               /,'          za__SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          VV__SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          TaT_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          rhT_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          QaT_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          qsnoSV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          coszSV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          sol_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          IRd_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          drr_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          dsn_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          dbs_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          LSmask(ikp,nm)     = ',i15  ,        &
+! #v0&               /,'          isotSV(ikp,nm)     = ',i15  ,        &
+! #v0&               /,'          alb0SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          IRs_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          ivgtSV(ikp,nm)     = ',i15  ,        &
+! #v0&               /,'          LAI0SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          glf0SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          TvegSV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          LMO_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          us__SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          uqs_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          uts_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          uss_SV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          snCaSV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          rrCaSV(ikp,nm)     = ',e15.6,        &
+! #v0&               /,'          psivSV(ikp,nm)     = ',e15.6)
+! #v0         DO isl = -nsoil,0
+! #v0           write(50,5002)    isl,TsisSV(ikp,nm,isl),              &
+! #v0&                            isl,eta_SV(ikp,nm,isl)
+! #v0 5002      format('          TsisSV(ikp,nm,',i2,')  = ',e15.6,    &
+! #v0&                 '          eta_SV(ikp,nm,',i2,')  = ',e15.6)
+! #v0         END DO
+! #v0         DO isl =       1,nsnow
+! #v0           write(50,5003)    isl,TsisSV(ikp,nm,isl),              &
+! #v0&                            isl,dzsnSV(ikp,nm,isl)
+! #v0 5003      format('          TsisSV(ikp,nm,',i2,')  = ',e15.6,    &
+! #v0&                 '          dzsnSV(ikp,nm,',i2,')  = ',e15.6)
+! #v0         END DO
+! #v0    END IF
+      END DO
+      END DO
+
+! SISVAT Execution
+! ^^^^^^^^^^^^^^^^
+          write(daHost,'(i2,a3,i4,i3,2(a1,i2))')                        &
+     &          Day_TU,LabMon(Mon_TU),YearTU,                           &
+     &          HourTU,chb,minuTU,chb,Sec_TU
+
+! OUTPUT of SnowFall, Roughness Length and Drag Coefficients
+! #sf     write(6,666) Day_TU,Mon_TU,YearTU,HourTU,minuTU,Sec_TU
+! #sf 666 format(2(i2,'-'),2i4,2(':',i2),3x,$)
+
+
+
+!           ******
+      call  SISVAT(jjtime,kcolv)
+!           ******
+
+
+
+! MAR    Variables Update
+! ^^^^^^^^^^^^^^^^^^^^^^^
+      DO      ikp = 1,kcolp
+      DO      k   =    1,mzp 
+              dpktSV_gpt(ikp,k) = 0.
+      ENDDO
+      ENDDO
+
+      DO      ikp = 1,kcolp
+      DO      nm  = 1,mwp
+
+! Atmospheric Forcing                                       (OUTPUT)
+! ^^^^^^^^^^^^^^^^^^^                                        ^^^^^^
+            DO isn=1,mzp
+              k   =  mzp + 1  - isn                                     !
+              dpktSV_gpt(ikp,k)     =                                  &!
+      &       dpktSV_gpt(ikp,k)     +                                  &!
+      &       FracSV(ikp,nm)        *                                  &!
+      &      (pktaSV(ikp,nm,isn)-pkt0SV(ikp,nm,isn)) / dt__SV           !
+            ENDDO
+
+! Water  Fluxes                                             (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^                                              ^^^^^^^^^^^^
+! #BS     ussxSV(ikp,nm)         = 0.                                   ! 
+! #BS     ussxSV(ikp,nm)         =                                     &! MAX        Erosion 
+! #BS&   (ussbSV(ikp,nm)  -        dbs_SV(ikp,nm))                     &!-unconsumed Erosion
+! #BS&                    /(dt__SV*rhT_SV(ikp,nm))                      ! ==> actual u*s*
+! #vL ENDDO
+! #vL ENDDO
+
+! #vL DO      ikp = 1,kcolp
+! #vL DO      nm  = 1,mwp  
+! #BS     ussbSV(ikp,nm)  = dt__SV*uss_SV(ikp,nm)                      &! NEW  MAX   Erosion
+! #BS&                            *rhT_SV(ikp,nm)                       ! rho u*s* dt[kg/m2]
+
+! Soil/Canopy                                               (INPUT/OUTPUT)
+! ^^^^^^^^^^^                                                ^^^^^^^^^^^^
+          Z0m_SV(ikp,nm)  =    min(Z0m_SV(ikp,nm)                      &! Moment.Roughn.L.
+      &                           ,hsigma(mzp)/3.)                      !
+! #vL END DO
+! #vL END DO
+
+! Snow Roughness                                            (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^^                                             ^^^^^^^^^^^^
+! #vZ DO      ikp = 1,kcolp
+! #vZ DO      nm  = 1,mwp  
+! #ZM       DO k=1,ntavz-1                                              !
+! #ZM         z0_mem(ikp,nm,k)       = z0_mem(ikp,nm,k+1)               !
+! #ZM         b0_mem(ikp,nm,k)       = b0_mem(ikp,nm,k+1)               !
+! #ZM         r0_mem(ikp,nm,k)       = r0_mem(ikp,nm,k+1)               !
+! #ZM       ENDDO                                                       !
+! #vZ ENDDO
+! #vZ ENDDO
+
+! #vL DO      ikp = 1,kcolp
+! #vL DO      nm  = 1,mwp  
+! #ZM         z0_mem(ikp,nm,ntavz)   = Z0mnSV(ikp,nm)                   ! z0(Momentum)
+! #ZM         b0_mem(ikp,nm,ntavz)   = Z0enSV(ikp,nm)                   ! z0(Mom., Erosion)
+! #ZM         r0_mem(ikp,nm,ntavz)   = Z0hnSV(ikp,nm)                   ! z0(Heat)
+! #vL END DO
+! #vL END DO
+
+! Dust   Fluxes                                             (INPUT/OUTPUT)
+! ^^^^^^^^^^^^^
+! #vD DO      ikp = 1,kcolp
+! #vD DO      nm  = 1,mwp  
+! #BD         uds_SV(ikp,nm)         =(1-min(1,isnoSV(ikp,nm)))        &! Snow Free  Surface 
+! #BD&                                        *uss_SV(ikp,nm)          &! DUST       Erosion
+! #BD&                                  *max(1,(2-my)*3)                ! Tuning Factor (2D)
+! #vD END DO
+! #vD END DO
+
+! Snow Pack                                                 (INPUT/OUTPUT)
+! ^^^^^^^^^                                                  ^^^^^^^^^^^^
+! #vL DO      ikp = 1,kcolp
+! #vL DO      nm  = 1,mwp  
+! #IB         wes0SV(ikp,nm)         = dwesSV(ikp,nm)                   ! Depo. / Subli.
+! #IB         wem0SV(ikp,nm)         = dwemSV(ikp,nm)                   ! Melting
+! #IB         wer0SV(ikp,nm)         = dwerSV(ikp,nm)                   ! Refreezing
+
+! Radiative Properties                                            (OUTPUT)
+! ^^^^^^^^^^^^^^^^^^^^                                             ^^^^^^
+          albcSV(ikp,nm)             = alb_SV(ikp,nm)                  &! Mosaic Albedo
+! #AO&                             *   LSmask(ikp,nm)                  &!
+! #AO&                             +   Alb_AO(ikp,nm)                  &! Mosaic AlbedoNEMO
+! #AO&                             *(1-LSmask(ikp,nm))                 &!
+     &                             + 0.
+          ROF_SV(ikp,nm)             = RnofSV(ikp,nm)   *dt__SV        &!
+     &                             +   ROF_SV(ikp,nm)                   ! Integrated Run OFF
+
+      END DO
+      END DO
+
+
+
+! Surface Temperature: Prescription of relevant Medium (Snow, precribed SST)
+! ==========================================================================
+
+! Control Martin
+!PRINT*, 'nsoil=',nsoil
+!PRINT*, 'FixSST=',FixSST
+!PRINT*, 'LSMask=',LSMask
+! Control Martin
+
+      DO ikp=1,kcolp
+            DO isl =   -nsoil,0                                          !
+
+
+! Open Ocean
+! ----------
+
+              eta_SV(ikp,1,isl) =                                      &!
+     &        eta_SV(ikp,1,isl) *   LSMask(ikp,1)                      &!
+     &                          +(1-LSMask(ikp,1)    )                  ! Sea: Humidity:=1
+
+              TsisSV(ikp,1,isl) =                                      &!
+     &       (TsisSV(ikp,1,isl) *   LSMask(ikp,1)                      &! Soil Temperature
+     &       +sst_SB(ikp)       *(1-LSMask(ikp,1)    )) * FixSST       &! Prescribed   SST
+! #OP&                                                  * FixSST       &!
+! #OP&      +(TsisSV(ikp,1,isl)                                        &!
+! #op&      +(sst_SB(ikp)                                              &!~Prescribed   SST
+! #op&       -TsisSV(ikp,1,isl))*(1-LSMask(ikp,1)    )  * SSTnud       &! (Nudging)
+! #OP&                                               )  * VarSST       &! Interactive  SST
+     &      + 0.
+
+
+! Sea Ice
+! -------
+
+! #AO         eta_SV(ikp,2,isl) =                                      &!
+! #AO&        eta_SV(ikp,2,isl) *   LSMask(ikp,2)                       ! Sea: Humidity:=0
+
+! #AO         TsisSV(ikp,2,isl) =                                      &!
+! #AO&       (TsisSV(ikp,2,isl) =   LSMask(ikp,2)                      &! Soil Temperature
+! #AO&       +  271.2           *(1-LSMask(ikp,2)    ))                 ! Prescribed    ST
+            END DO
+
+! #AO       DO isl =         0,nsnow                                    !
+! #AO         TsisSV(ikp,2,isl) =                                      &!
+! #AO&        s_T_AO(ikp,2)     *(1-LSMask(ikp,2)    )                  ! Prescribed   SIT
+! #AO       END DO
+      ENDDO
+
+
+      DO      ikp = 1,kcolp
+      DO      nm  = 1,mwp  
+          Ts__SV(ikp,nm)         =                                     &! Surf.Temperature
+     &    TsisSV(ikp,nm,0)                                             &!
+     &                    *(1-min(1,isnoSV    (ikp,nm)  ))             &!
+     &   +TsisSV(ikp,nm,      max(1,isnoSV    (ikp,nm)  ))             &!
+     &                    *   min(1,isnoSV    (ikp,nm)  )              &!
+     &       +0.
+      ENDDO
+      ENDDO
+
+
+
+! Mosaic Cleaning
+! ===============
+
+      DO      ikp = 1,kcolp
+        IF (LSMask(ikp,1)    .EQ.   0)                              THEN
+            isnoSV    (ikp,1)     = 0
+            ispiSV    (ikp,1)     = 0
+            iiceSV    (ikp,1)     = 0
+          DO ISL=1,nsnow
+            TsisSV    (ikp,1,isl) = 0.
+            dzsnSV    (ikp,1,isl) = 0.
+            ro__SV    (ikp,1,isl) = 0.
+            eta_SV    (ikp,1,isl) = 0.
+            G1snSV    (ikp,1,isl) = 0.
+            G2snSV    (ikp,1,isl) = 0.
+            agsnSV    (ikp,1,isl) = 0.
+            istoSV    (ikp,1,isl) = 0.
+          ENDDO
+        ENDIF
+        IF (FracSV(ikp,n2) .LT. epsn .AND. n2 .GT. 1)               THEN
+            Ts__SV(ikp,n2)         = Ts__SV(ikp,1)  
+          DO isl=-nsoil,0 
+            TsisSV    (ikp,n2,isl) = TsisSV(ikp,1,isl)
+          ENDDO    ! #n2  
+            isnoSV    (ikp,n2    ) = isnoSV(ikp,1    ) * LSMask(ikp,n2)
+            ispiSV    (ikp,n2    ) = ispiSV(ikp,1    ) * LSMask(ikp,n2)
+            iiceSV    (ikp,n2    ) = iiceSV(ikp,1    ) * LSMask(ikp,n2)
+          DO isl=1,nsnow      !   
+            TsisSV    (ikp,n2,isl) = TsisSV(ikp,1,isl) * LSMask(ikp,n2)
+            dzsnSV    (ikp,n2,isl) = dzsnSV(ikp,1,isl) * LSMask(ikp,n2)
+            ro__SV    (ikp,n2,isl) = ro__SV(ikp,1,isl) * LSMask(ikp,n2)
+            eta_SV    (ikp,n2,isl) = eta_SV(ikp,1,isl) * LSMask(ikp,n2)
+            G1snSV    (ikp,n2,isl) = G1snSV(ikp,1,isl) * LSMask(ikp,n2)
+            G2snSV    (ikp,n2,isl) = G2snSV(ikp,1,isl) * LSMask(ikp,n2)
+            agsnSV    (ikp,n2,isl) = agsnSV(ikp,1,isl) * LSMask(ikp,n2)
+            istoSV    (ikp,n2,isl) = istoSV(ikp,1,isl) * LSMask(ikp,n2)
+          ENDDO    ! #n2  
+        ENDIF      ! #n2  
+      ENDDO
+
+
+
+! Grid Averages / Diagnostics
+! ===========================
+
+! Grid Averages                                                   (OUTPUT)
+! ^^^^^^^^^^^^^                                                    ^^^^^^
+      DO ikp = 1,kcolp
+      DO nm  = 1,mwp
+! #IB         wes_SV    (ikp,nm)= - wes0SV(ikp,nm) + wes_SV(ikp,nm)     ! Depo. / Subli.
+! #IB         wem_SV    (ikp,nm)=   wem0SV(ikp,nm) + wem_SV(ikp,nm)     ! Melting
+! #IB         wer_SV    (ikp,nm)=   wer0SV(ikp,nm) + wer_SV(ikp,nm)     ! Refreezing
+! #IB         wee_SV    (ikp,nm)= - uqs_SV(ikp,nm) + wee_SV(ikp,nm)    &! Evapotranspiration
+! #IB&                            * dt__SV         * roa_SV(ikp,nm,1)   !
+
+              Alb_SV_gpt(ikp)   =   Alb_SV_gpt(ikp)                    &! Grid   Albedo
+     &      + FracSV    (ikp,nm)  * albcSV    (ikp,nm)                  ! Mosaic Albedo
+              EmisSV_gpt(ikp)   =   EmisSV_gpt(ikp)                    &! Grid   Emissivity
+     &      + FracSV    (ikp,nm)  * emi_SV    (ikp,nm)                  ! Mosaic Emissivity
+              LWUsRT    (ikp)   =   LWUsRT    (ikp)                    &!
+     &      + FracSV    (ikp,nm)  * IRu_SV    (ikp,nm)                  ! Mosaic Upw.IR
+              LMO_SV_gpt(ikp)   =   LMO_SV_gpt(ikp)                    &!
+     &      + FracSV    (ikp,nm)  * LMO_SV    (ikp,nm)                  ! Mosaic Mon.Ob.
+              us__SV_gpt(ikp)   =   us__SV_gpt(ikp)                    &! Grid   u*
+     &      + FracSV    (ikp,nm)  * us__SV    (ikp,nm)                  ! Mosaic u*
+              uts_SV_gpt(ikp)   =   uts_SV_gpt(ikp)                    &! Grid   u*T*
+     &      + FracSV    (ikp,nm)  * uts_SV    (ikp,nm)                  ! Mosaic u*T*
+              uqs_SV_gpt(ikp)   =   uqs_SV_gpt(ikp)                    &! Grid   u*q*
+     &      + FracSV    (ikp,nm)  * uqs_SV    (ikp,nm)                  ! Mosaic u*q*
+! #BS         uss_CM    (ikp)   =   uss_CM    (ikp)                    &! Grid   u*s*
+! #BS&      + FracSV    (ikp,nm)  * ussxSV    (ikp,nm)                  ! Mosaic u*s*
+!     NO !    ussxSV    (ikp,nm)  = uss_SV    (ikp,nm)                  !        u*s*
+!        !    Upper Update = wrong Source of Atmospher.Snow             !
+! #BS         qs__CM    (ikp,mzpp) =                                   &! Salt.Part.Concent.
+! #BS&        qs__CM    (ikp,mzpp)                                     &!
+! #BS&      + FracSV    (ikp,nm)  * qSalSV    (ikp,nm)                 &! 
+! #BS&                       *min(1,isnoSV    (ikp,nm)  )               !
+! #PO         hFraSV_gpt(ikp)     = hFraSV_gpt(ikp)                    &! Frazil  Thickness
+! #PO&      + FracSV    (ikp,nm)  * HFraSV    (ikp,nm)                  ! 
+              Tas_SV_gpt(ikp)     = Tas_SV_gpt(ikp)                    &! Surface Air
+     &      + FracSV    (ikp,nm)  * Ts__SV    (ikp,nm)                  !         Temperatur
+              qv__DY    (ikp,mzpp)= qv__DY    (ikp,mzpp)               &!
+     &      + FracSV    (ikp,nm)  * SHumSV    (ikp,nm)                  ! Surf.Specif.Humid.
+                                                                        ! to adapt over soil
+! #TC         uqTC      (i,j,1)   = uqTC      (i,j,1)                  &! Grid   u*d*
+! #TC&      + FracSV    (ikp,nm)  * uds_SV    (ikp,nm)                  ! Mosaic u*d*
+! #TC         qsTC      (i,j,1)   = qsTC      (i,j,1)                  &! Salt.Part.Concent.
+! #TC&      + FracSV    (ikp,nm)  * qSalSV    (ikp,nm)                 &! 
+! #TC&                    *(1-min(1,isnoSV    (ikp,nm)  ))              !
+      ENDDO
+      ENDDO
+
+
+
+! De la grille "SISVAT" vers la grille "AtmPHY"
+! =============================================
+
+      DO ikp = 1,kcolp
+        Sno0CM    (ikp) = SnowCM    (ikp)                               !
+         rhAir          = roa_SV    (ikp,1,1)                           ! Air    Densitity
+        Ta__DY    (ikp,mzpp) =                                         &!
+     &                    Tas_SV_gpt(ikp)                               !
+        pkt_DY    (ikp,mzpp) =                                         &!
+     &                    Tas_SV_gpt(ikp) /pkPaSV(ikp,1) ** RCp         !
+        HsenSV_gpt(ikp) =-uts_SV_gpt(ikp) *rhAir    *CpdAir             ! Sensible Heat Flux
+        HLatSV_gpt(ikp) =-uqs_SV_gpt(ikp) *rhAir    *LhvH2O             ! Latent   Heat Flux
+        WE2aSV_gpt(ikp) = WE2aSV_gpt(ikp)                              &! Total    Evaporat.
+     &                   -uqs_SV_gpt(ikp) *rhAir    *dt__SV             ! [mm w.e.]
+      END DO
+
+
+
+! Blown Snow/Dust Accumulation
+! ============================
+
+! #AE DO ikp=1,kcolp
+! #AE DO nm =1,mwp
+
+! #BS    SnowCM(ikp) = SnowCM(ikp)                                     &!
+! #BS&               + dt__SV *1.e-3 *roa_SV(ikp,1) *uss_CM(ikp)
+
+! #AE END DO
+! #AE END DO
+
+
+
+! Formation of Lakes                                                                 \VER
+! ==================
+
+
+
+! Sea-Ice Ice Floe Size
+! =====================
+
+! Prescription from SST
+! ---------------------
+
+! #SI IF (VarSST.le.eps6)                                           THEN
+! #SI   DO ikp=1,kcolp
+! #SI        FraOcn          =(TsisSV    (ikp,1,0)-TOF_SV)/TSIdSV       ! Prescribed
+!                                                                       ! from SST
+! #IP        FraOcn          =  1.-sif_SB(ikp)                          ! Prescribed
+!                                                                       ! from SSM/I
+! #SI        FraOcn          = min(  un_1,FraOcn)                       ! UpperLimit
+! #SI        FraOcn          = max(OcnMin,FraOcn)                       ! LowerLimit
+! #SI        FracSV(ikp,1)   =     LSMask(ikp,1)     * FracSV(ikp,1)   &! New Ocean
+! #SI&                        + (1-LSMask(ikp,1)    )* FraOcn           !
+! #SI        SrfSIC          =                         FracSV(ikp,2)    ! Old Sea Ice
+! #SI        SIc0OK          = max(zer0, sign(un_1,SrfSIC-eps6))        !
+! #SI        FracSV(ikp,2)     *   LSMask(ikp,2)     * FracSV(ikp,2)   &! New Sea Ice
+! #SI&                        + (1-LSMask(ikp,2)    )*(1.-FraOcn)       !
+! #SI        SIceOK          = max(zer0, sign(un_1,FracSV(ikp,2)       &!
+! #SI&                                                   -eps6))        !
+
+! Sea-Ice Vertical Discretization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #SI        isnoSV(ikp,2)     =                                       &
+! #SI&       isnoSV(ikp,2)                     *   LSMask(ikp,2)       &
+! #SI&     +(max(1                                                     &
+! #SI&      ,isnoSV(ikp,2)  )  *SIc0OK                                 &
+! #SI&      +     3        *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))
+
+! #SI        iiceSV(ikp,2)     =                                       &
+! #SI&       iiceSV(ikp,2)                     *   LSMask(ikp,2)       &
+! #SI&     +(max(1                                                     &
+! #SI&      ,iiceSV(ikp,2)  )  *SIc0OK                                 &
+! #SI&      +     3        *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))
+! #SI        ispiSV(ikp,2)     =                   iiceSV(ikp,2)  
+
+! #SI     DO l=1,nsnow
+! #SI        dzsnSV(ikp,2,l) =                                         &
+! #SI&       dzsnSV(ikp,2,l)                   *   LSMask(ikp,2)       &
+! #SI&     +(max                                                       &
+! #SI&      (SIc_OK(min(2,l))*    SIcMIN                               &
+! #SI&      ,dzsnSV(ikp,2,l))*SIc0OK                                   &
+! #SI&      +dzSIce(min(4,l))*(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))
+
+! #SI        TsisSV(ikp,2,l) =                                         &
+! #SI&       TsisSV(ikp,2,l)                 *   LSMask(ikp,2)         &
+! #SI&     +(TsisSV(ikp,2,l) *    SIc0OK                               &
+! #SI&      +TsisSV(ikp,1,0) *(1.-SIc0OK)   )*(1-LSMask(ikp,2))
+
+! #SI        ro__SV(ikp,2,l) =                                         &
+! #SI&       ro__SV(ikp,2,l)                 *   LSMask(ikp,2)         &
+! #SI&     +(max                                                       &
+! #SI&      (SIc_OK(min(2,l))*rhoIce                                   &
+! #SI&      ,ro__SV(ikp,2,l))*SIc0OK                                   &
+! #SI&      +rhoIce      *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))
+
+! #SI        G1snSV(ikp,2,l) =                                         &
+! #SI&       G1snSV(ikp,2,l)                 *   LSMask(ikp,2)         &
+! #SI&     +(G1snSV(ikp,2,l) *SIc0OK                                   &
+! #SI&      +G1_dSV      *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))
+
+! #SI        G2snSV(ikp,2,l) =                                         &
+! #SI&       G2snSV(ikp,2,l)                 *   LSMask(ikp,2)         &
+! #SI&     +(G2snSV(ikp,2,l) *SIc0OK                                   &
+! #SI&      +30.         *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))
+
+! #SI        istoSV(ikp,2,l) =                                         &
+! #SI&       istoSV(ikp,2,l)                 *   LSMask(ikp,2)         &
+!!#SI&new  +(istoSV(ikp,2,l) *SIc0OK                                   &
+!!#SI&new   +istdSV(2)   *(1.-SIc0OK)*SIceOK)*(1-LSMask(ikp,2))        &
+! #SI&     + istdSV(2)   *                    (1-LSMask(ikp,2))
+! #SI     END DO
+! #SI     DO l=-nsoil,0
+! #SI        TsisSV(ikp,2,l) =                                         &
+! #SI&       TsisSV(ikp,2,l)                 *   LSMask(ikp,2)         &
+! #SI&     +(TsisSV(ikp,2,l) *    SIc0OK                               &
+! #SI&      +TsisSV(ikp,1,l) *(1.-SIc0OK)   )*(1-LSMask(ikp,2))
+
+! #SI        eta_SV(ikp,2,l) =                                         &
+! #SI&       eta_SV(ikp,2,l)                 *   LSMask(ikp,2)         &
+! #SI&     + eta_SV(ikp,2,l) *    SIc0OK     *(1-LSMask(ikp,2))
+!                                 No Pore in Ice => No Water
+! #SI     END DO
+
+! OUTPUT of Sea Ice Fraction, Temperature, Discretization
+! #si        write(6,6001) Day_TU,LabMon(Mon_TU),YearTU                &
+! #si&                    ,HourTU,minuTU,Sec_TU ,TsisSV(ikp,1,0)       &
+! #si&                    ,FraOcn,FracSV(ikp,1) ,TsisSV(ikp,2,0)       &
+! #si&                    ,       iiceSV(ikp,2) ,isnoSV(ikp,2)  
+
+! #SI   END DO
+! #SI END IF
+
+! Otherwise SST and FrLead have been computed in the Sea-Ice Polynya Model
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+! Rainfall, Snowfall Time Integral at previous Time Step
+! ------------------------------------------------------
+
+        DO ikp = 1,kcolp
+           Rai0CM(ikp) = RainCM(ikp)                                    ! Rainfall Time Integral
+           SnobCM(ikp) = SnowCM(ikp)                                    ! Snowfall Time Integral
+                                                                        ! Erosion  skipped
+
+
+!  Wind Horizontal Components         at previous Time Step
+!  --------------------------------------------------------
+
+        DO nm=1,mwp
+! #Za      Ua0_SV(ikp,nm) = Ua__SV(ikp,nm)                              !
+! #Za      Va0_SV(ikp,nm) = Va__SV(ikp,nm)                              !
+        END DO
+        END DO
+
+
+! Additional OUTPUT for VERIFICATION
+! ----------------------------------
+
+! OUTPUT/Verification: SBL Turbulent Fluxes
+! #sh i   = i_x0 + 10.*111.111e3/dxHOST
+! #sh j   = j_y0
+! #sh nm  = 1
+! #sh ikp = ikl_AP(i,j)
+! #sh write(6,6060) it_EXP,Day_TU,LabMon(Mon_TU),YearTU                    &
+! #sh&                    ,HourTU,minuTU        ,lat__r(ikp)/Dg2Rad        &
+! #sh&         ,TaT_SV    (ikp,nm)              ,roa_SV(ikp,nm,1)          &
+! #sh&         ,HsenSV_gpt(ikp),HLatSV_gpt(ikp),-86400.*uqs_SV_gpt(ikp)    &
+! #sh&        ,1.e3*RainCM(ikp),WE2aSV_gpt(ikp),        ROF_SV    (ikp,nm)  
+! #sh 6060 format(i6,i3,'-',a3,'-',i4,':',i2,':',i2,f6.2,' N',             &
+! #sh&            f9.3,' K'     ,f6.3,' kg/m3',2(f6.1,' W/m2'),            &
+! #sh&            f6.3,' mm/day',3(f9.3,' mm'))
+
+
+
+! SISVAT OUTPUTs
+! ==============
+
+!     IF (WRIsbc)                                                   THEN
+
+!            **************
+!       CALL PHY_SISVAT_IOs
+!            **************
+
+!     END IF
+
+
+
+      return
+      end subroutine PHY_SISVAT_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_UBC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_UBC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_SISVAT_UBC.f90	(revision 2160)
@@ -0,0 +1,123 @@
+      subroutine PHY_SISVAT_UBC(FlagRT,FlagAT,FlagCM,FlagCP)
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 29-Jun-2013  MAR |
+!     SubRoutine PHY_SISVAT_UBC provides Upper Boundary Conditions to          |
+!                    SISVAT    (Soil                                           |
+!                               Ice                                            |
+!                               Snow                                           |
+!                               Vegetation                                     |
+!                               Atmosphere                                     |
+!                               Transfer   Scheme)                             |
+!                                                                              |
+!                               USING DATA                                     |
+!                                                                              |
+!     Here DATA mimic the behaviour of non-active part of PHYsical package     |
+!                                      (radiative transfert,                   |
+!                                      (convective precipitation,              |
+!                                      (stratiform precipitation,              |
+!           and are generated by a Driver designed to test MARthusalem version |
+!                                                       of SISVAT              |
+!          Air Temperature, specific humidity and wind are provided as INPUT   |
+!                                                      of PHYsical package     |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Fri  3-May-2013      |
+!           Last Modification by H. Gallee,               Sat 29-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+! Global  Variables
+! =================
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_gpt
+      use Mod_PHY_RT_kkl
+      use Mod_PHY_CM_kkl
+      use Mod_PHY_AT_kkl
+
+
+      logical                                    ::  FlagAT             !  Flag         (Turbulent Transfer)
+      logical                                    ::  FlagCM             !  Flag         (Cloud Microphysics)
+      logical                                    ::  FlagCP             !  Flag         (Convection Param. )
+      logical                                    ::  FlagRT             !  Flag         (Radiative Transfer)
+
+
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  LAI____xyn    ! Leaf Area Index              (Mosaic)  [m2/m2]
+!     real(kind=real8),ALLOCATABLE ,dimension(:,:,:)  ::  GLF____xyn    ! Green Leaf Fraction          (Mosaic)      [-]
+
+
+!     allocate  ( LAI____xyn(ixp1:mxpp,jyp1:mypp,mwp) )                 !  Leaf Area Index             (Mosaic)  [m2/m2]
+!     allocate  ( GLF____xyn(ixp1:mxpp,jyp1:mypp,mwp) )                 !  Green Leaf Fraction         (Mosaic)      [-]
+
+
+
+
+
+
+! Local   Variables
+! =================
+
+      integer  ::  i     ,j     ,n     ,ikp
+      integer  ::  k
+
+
+
+
+! UPPER BOUNDARY CONDITIONS (second term must be verified and modified if needed)
+! =========================
+
+        DO ikp = 1,kcolp
+
+          i   = ii__AP(ikp)
+          j   = jj__AP(ikp)
+
+        IF (.NOT. FlagAT)                                           THEN
+          DO k=1,mzp
+          Kzh_AT(ikp,k)       =     1.35e-5           ! Turbulent Diffusion Coefficient for Scalars             [m2/s]
+                                                      ! Air Viscosity
+          ENDDO
+        END IF
+
+        IF (.NOT. FlagCM)                                           THEN
+          SnowCM(ikp)         =     0.0               ! Snow  Accumulation (time t   )                        [m w.e.]
+          SnobCM(ikp)         =     0.0               ! Snow  Accumulation (time t-dt, after  snow erosion)   [m w.e.]
+          Sno0CM(ikp)         =     0.0               ! Snow  Accumulation (time t-dt, before snow erosion)   [m w.e.]
+          RainCM(ikp)         =     0.0               ! Rain  Accumulation (time t   )                        [m w.e.]
+          Rai0CM(ikp)         =     0.0               ! Rain  Accumulation (time t-dt)                        [m w.e.]
+        END IF
+
+        IF (.NOT. FlagRT)                                           THEN
+          SWDsRT(ikp)         =     0.0               ! Surface ShrtWave Heat Flux (+)  (Downward)              [W/m2]
+          LWDsRT(ikp)         =     0.0               ! Surface LongWave Heat Flux (+)  (Downward)              [W/m2]
+          ClouRT(ikp)         =     0.0               ! Total Cloudiness above lowest Atmospheric Level            [-]
+        END IF
+
+          sst_SB(ikp)         =   271.2               ! Ocean     FORCING (SST)                                    [K]
+          sif_SB(ikp)         =     0.0               ! Ocean     FORCING (Sea-Ice Fraction)                       [-]
+
+        DO n=1,mwp
+!         s_T_AO_xyn(i,j,n)   =   271.2               ! Ocean    COUPLING (SST)                                    [K]
+!         s_T_AO    (ikp,n)   =  s_T_AO_xyn(i,j,n)    !
+!         Alb_AO_xyn(i,j,n)   =     0.0               ! Ocean    COUPLING (Surface Albedo)                         [-]
+!         Alb_AO    (ikp,n)   =  Alb_AO_xyn(i,j,n)    ! Ocean    COUPLING (Surface Albedo)                         [-]
+!         LAI____xyn(i,j,n)   =     3.0               ! Leaf Area Index             (Mosaic)                   [m2/m2]
+!         LAI0SV    (ikp,n)   =  LAI_SV_xyn(i,j,n)    !
+          LAI0SV    (ikp,n)   =     3.0
+!         GLF____xyn(i,j,n)   =     1.0               ! Green Leaf Fraction         (Mosaic)                       [-]
+!         glf0SV    (ikp,n)   =  GLF_SV_xyn(i,j,n)    ! Green Leaf Frac.
+          glf0SV    (ikp,n)   =     1.0               ! Green Leaf Frac.
+
+
+!         s_T_AO_xyn(i,j,n)   =   271.2               ! Ocean    COUPLING (SST)
+!         s_T_AO    (ikp,n)   =  s_T_AO_xyn(i,j,n)    !
+        ENDDO
+
+
+        ENDDO
+
+      end subroutine PHY_SISVAT_UBC
Index: LMDZ5/branches/testing/libf/phymar/PHY________ALLOC.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY________ALLOC.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY________ALLOC.f90	(revision 2160)
@@ -0,0 +1,79 @@
+      subroutine PHY________ALLOC
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-May-2013  MAR |
+!                                                                              |
+!     subroutine PHY________ALLOC  allocates prognostic variables of           |
+!            MAT PHYsics                                                       |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 26-Feb-2013      |
+!           Last Modification by H. Gallee,               Mon 17-May-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+
+      use Mod_Real
+      use Mod_PHY____grd
+      use Mod_PHY____kkl
+      use Mod_PHY_S0_grd
+
+
+      IMPLICIT NONE
+
+
+
+
+! =================================
+! ALLOCATION Mod_PHY____grd - BEGIN
+! =================================
+
+      allocate      ( lat__r(kcolp) )                     !     Latitude                    [radian]
+      allocate      ( sinLat(kcolp) )                     ! sin(Latitude)                        [-]
+      allocate      ( cosLat(kcolp) )                     ! cos(Latitude)                        [-]
+      allocate      ( lon__r(kcolp) )                     !     Longitude                   [radian]
+      allocate      ( lon__h(kcolp) )                     !     Longitude                     [hour]
+
+      allocate      ( k1m(mzp) )                          ! k - 1
+      allocate      ( k1p(mzp) )                          ! k + 1
+      allocate      ( k2m(mzp) )                          ! k - 2
+
+      allocate      (  sigma(mzpp) )                      ! Normalized Pressure (Vertical Coordinate)
+      allocate      (  sigmi(mzpp) )                      ! (sigma(k    )+sigma(k-1  )) / 2
+      allocate      ( dsigma(mzp) )                       !  sigma(k+1  )-sigma(k    )      
+      allocate      ( dsigmi(mzp) )                       !  sigma(k+1/2)-sigma(k-1/2)
+      allocate      ( hsigma(mzp) )                       ! Height of atmospheric layers      [magl]
+
+      allocate      ( ii__AP(kcolp) )                     ! WORK   point   i Coordinate
+      allocate      ( jj__AP(kcolp) )                     ! WORK   point   j Coordinate
+      allocate      ( ikl_AP(ixp1:mxpp,jyp1:mypp) )       ! WORK   point vec Coordinate
+
+
+! =================================
+! ALLOCATION Mod_PHY____grd -   END
+! =================================
+
+
+
+
+! =================================
+! ALLOCATION Mod_PHY____kkl - BEGIN
+! =================================
+
+      allocate      ( sh__AP(kcolp) )                     ! Topography                           [m]
+      allocate      ( sha_AP(kcolp) )                     ! Topography Anomaly                   [m]
+      allocate      ( slopAP(kcolp) )                     ! Topography Slope                     [-]
+      allocate      ( sloxAP(kcolp) )                     ! Topography Slope, x-direction        [-]
+      allocate      ( sloyAP(kcolp) )                     ! Topography Slope, y-direction        [-]
+      allocate      ( MMskAP(kcolp,n_azim) )              ! Mountain   Mask                      [-]
+
+
+
+! =================================
+! ALLOCATION Mod_PHY____kkl -   END
+! =================================
+
+
+
+
+      return
+      end subroutine PHY________ALLOC
Index: LMDZ5/branches/testing/libf/phymar/PHY________INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY________INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY________INI.f90	(revision 2160)
@@ -0,0 +1,283 @@
+      subroutine PHY________INI
+
+!------------------------------------------------------------------------------+
+!                                                         Sun 30-Jun-2013  MAR |
+!   MAR          PHY________INI                                                |
+!     subroutine PHY________INI intializes MAR PHYsical parameterizations      |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun 30-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_RT_grd
+      use Mod_PHY____kkl
+
+
+      IMPLICIT NONE
+
+
+      logical                               ::  search_argexp = .FALSE.         !  Lapack used to compute MAX/MIN exponential arguments
+      integer                               ::       i,     j,   ikl            !
+
+
+
+
+!=============================================================================================!
+!                                                                                             !
+!     include 'MARphy.inc'                                        ! MARthusalem constants
+!                                                                                             !
+!=============================================================================================!
+
+
+!=============================================================================================!
+!                                                                                             !
+! Modification   of Mod_PHY____dat (needed if constants slighly differ  in the HOST model)    !
+! ================================ (Here  the chosen HOST model is MAR)                       !
+!                                                                                             !
+! Initialization of Mod_PHY____dat from MARphy.inc (MARphy.inc contains MARthusalem constants)!
+! ------------------------------------------------                                            !
+!                                                                                             !
+!     zer0   =       0.0               !                                                 [-]  !
+!     half   =       0.5               !                                                 [-]  !
+!     un_1   =       1.0               !                                                 [-]  !
+      piNmbr = acos(-1.0)              !                                                 [-]  !
+!     eps6   = epsi                    !                                                 [-]  !
+!     epsn   = eps9                    !                                                 [-]  !
+!     A_MolV = 1.35e-5                 !   Air        Viscosity            1.35e-5    [m2/s]  !
+!     rhoIce = ro_Ice                  !   Ice        Specific Mass      920.e0      [kg/m3]  !
+!     BSnoRo = blsno                   !   Blown Snow Specific Mass        2.55e+2   [kg/m3]  !
+!     LhfH2O = Lf_H2O                  !
+!     LhvH2O = Lv_H2O                  !   Latent Heat Vaporisation, Water 2.5008e+6  [J/kg]  !
+!     LhsH2O = Ls_H2O                  !
+!     CpdAir = Cp                      !   Air   Heat Capacity  (p=C)   1004.708845 [J/kg/K]  !
+!     R_DAir = RDryAi                  !   Dry Air Perfect Gas Law C     287.05967  [J/kg/K]  !
+!     RCp    = cap                     !   RDryAi         / Cp                           [-]  !
+!     p0_kap = pcap                    !
+!     hC_Wat = C__Wat                  !   H2O   Heat Capacity          4186.00e0   [J/kg/K]  !
+!     rhoWat = ro_Wat
+!     Tf_Sno = TfSnow
+!     Tf_Sea = tfrwat
+!     StefBo = stefan                  !   Stefan-Bolstzman Constant       5.67e-8 [W/m2/K4]  !
+!     Grav_F = gravit                  !   Gravity    Acceleration         9.81e0     [m/s2]  !
+!     vonKrm = vonkar                  !   von Karman Constant             0.40e0        [-]  !
+!     A_Stab = A_Turb                  !                                   5.8           [-]  !
+!     AhStab = AhTurb
+!     AsStab = AsTurb
+!     r_Stab = r_Turb
+!                                                                                             !
+!=============================================================================================!
+
+
+
+! Initialization of Mod_PHY____dat (auxiliary Constants)                                      !
+! ------------------------------------------------------                                      !
+
+      Grav_I = 1.      /  Grav_F       !                                              [s2/m]  !
+      GravF2 = Grav_F  *  Grav_F       !                                             [m2/s4]  !
+      RCp    = R_DAir  /  CpdAir       !                        Case Sensitive           [-]  !
+      Lv_CPd = LhvH2O  /  CpdAir
+      Ls_CPd = LhsH2O  /  CpdAir
+      Lc_CPd = LhfH2O  /  CpdAir
+      vonKrm = 0.35                    !   von Karman Constant, Case Sensitive                !
+
+      IF (search_argexp)                                            THEN
+
+!          ***************
+      call PHY_CPU_NumPrec
+!          ***************
+
+      ELSE
+
+      ea_MIN =-80.
+      ea_MAX = 80.
+
+      END IF
+
+
+
+
+! Initialization of Mod_PHY____grd
+! ================================
+
+
+! Correspondance entre la grille 2D horizontale dynamique et
+! -------------------- la grille 2D horizontale physique utile mxp,myp,mzp
+!                      ---------------------------------------------------
+       mxp   = mxpp-ixp1+1          ! 
+       myp   = mypp-jyp1+1          ! 
+       !kcolp = mxp * myp            ! Déja calculé en amont dans physiq.F90 Martin
+       mzp   = mzpp-1
+       PRINT*, 'mxpp=',mxpp
+       PRINT*, 'mxp=',mxp
+       PRINT*, 'ixp1=',ixp1
+       PRINT*, 'mypp=',mypp
+       PRINT*, 'jyp1=',jyp1
+       PRINT*, 'myp=',myp
+
+
+! Horizontal Cartesian Grid
+! -------------------------
+
+           write(6,*) ' '
+           write(6,*) 'i_x0  , j_y0                = '                  &
+     &                ,i_x0  , j_y0
+
+
+                                    !        dxHOST is Model Grid Size
+         dx2inv  = 0.5/dxHOST       ! 1 / (2 dxHOST)
+         dy2inv  = 0.5/dxHOST       ! 1 / (2 dxHOST)
+
+
+
+
+! ALLOCATION
+! ==========
+
+!                ****************
+          CALL   PHY________ALLOC
+!                ****************
+
+
+
+
+! Initialization of Mod_PHY____grd
+! ================================
+
+! Initialization of the Correspondance between 2-D cartesian and vector Grid
+! --------------------------------------------------------------------------
+
+! Adapted for MAR/LMDZ coupling:
+
+!     ii__AP(1)=ixp1
+!     jj__AP(1)=jyp1
+!     PRINT*,'jyp1=',jyp1
+!     PRINT*,'jj__AP(1)=',jj__AP(1)
+!     ii__AP(kcolp)=ixp1
+!     jj__AP(kcolp)=mypp
+!
+!     DO i=ixp1,mxpp
+!     DO j=jyp1+1,mypp-1
+!
+!               ikl    = (j-(jyp1+1)) *mxpp +1 + (i-ixp1+1) ! Tout est décalé de 1 à cause du point isolé au pole dans la grille physique LMD
+!        !       ikl    = (j-jyp1) *mxpp + i-ixp1+1
+!        !       ikl    = (j-jyp1) *(mxp-1) + i-ixp1+1
+!        ii__AP(ikl)   =                 i
+!        jj__AP(ikl)   =  j
+!        ikl_AP(i,j)   =  ikl
+!        PRINT*,'ii__AP(',ikl,')=',ii__AP(ikl)
+!        PRINT*,'jj__AP(',ikl,')=',jj__AP(ikl)
+!     ENDDO
+!     ENDDO
+
+! Modification Gilles Delaygue 2014/07/14 !
+      ikl=1
+      ii__AP(ikl)=ixp1
+      jj__AP(ikl)=jyp1
+      ikl_AP(:,jyp1) = ikl
+
+      DO j=jyp1+1,mypp-1
+      DO i=ixp1,mxpp
+         ikl=ikl+1
+         ii__AP(ikl)   =  i
+         jj__AP(ikl)   =  j
+         ikl_AP(i,j)   =  ikl
+      ENDDO
+      ENDDO
+
+      ikl=ikl+1
+      ii__AP(ikl)=ixp1
+      jj__AP(ikl)=mypp
+      ikl_AP(:,mypp) = ikl
+
+
+
+
+
+      PRINT*,'Control dans PHY_INI:'
+      PRINT*,'ii__AP(1)=',ii__AP(1)
+      PRINT*,'ii__AP(kcolp)=',ii__AP(kcolp)
+      PRINT*,'jj__AP(1)=',jj__AP(1)
+      PRINT*,'jj__AP(kcolp)=',jj__AP(kcolp)
+        
+! Martin control tout sauf les poles:
+     WRITE(6,600)(ii__AP(ikl),ikl=2,kcolp-1)
+     600 FORMAT (48i2) 
+     WRITE(6,601)(jj__AP(ikl),ikl=2,kcolp-1)
+     601 FORMAT (48i2) 
+
+!      DO i=ixp1,mxpp
+!      DO j=jyp1,mypp
+!
+!                ikl    = (j-jyp1) *mxp + i-ixp1+1
+!         ii__AP(ikl)   =                 i
+!         jj__AP(ikl)   =  j
+!         ikl_AP(i,j)   =  ikl
+!
+!      ENDDO
+!      ENDDO
+
+         ikl0          =  ikl_AP(i_x0,j_y0)
+
+
+
+
+! Allocation of radiative transfert Variables
+! ===========================================
+
+
+! Initialization of Mod_PHY_RT_grd
+! --------------------------------
+
+         naero         =  6
+
+
+!                            ****************
+                       CALL  PHY_Atm_RT_ALLOC
+!                            ****************
+
+
+
+
+! Allocation of microphysical       Variables
+! ===========================================
+
+!                            ****************
+                       CALL  PHY_Atm_CM_ALLOC
+!                            ****************
+
+
+
+
+! Allocation of Turbulence          Variables
+! ===========================================
+
+!                            ****************
+                       CALL  PHY_Atm_AT_ALLOC
+!                            ****************
+
+
+
+
+! Allocation of Surface Variables
+! ===============================
+
+!                            ****************
+                       CALL  PHY_SISVAT_ALLOC
+!                            ****************
+
+
+
+
+! OUTPUT
+! ======
+
+      OPEN(unit=4,status='unknown',file='PHY___________.OUT')
+      REWIND    4
+
+
+
+      end subroutine PHY________INI
Index: LMDZ5/branches/testing/libf/phymar/PHY________OUT.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY________OUT.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY________OUT.f90	(revision 2160)
@@ -0,0 +1,131 @@
+      subroutine PHY________OUT(MOTIVATION)
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 22-Jun-2013  MAR |
+!   MAR          PHY________OUT                                                |
+!     subroutine PHY________OUT OUTPUTs    MAR PHYsical parameterizations      |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 22-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_CM_kkl
+      use Mod_PHY_AT_kkl
+      use Mod_SISVAT_gpt
+
+
+      IMPLICIT NONE
+
+
+      character(len=50)                     ::  MOTIVATION
+      integer                               ::       i,     j,   ikl            !
+      integer                               ::       k,    kz                   !
+      real(kind=real8)                      ::  RelHum
+
+
+
+
+! OUTPUT
+! ======
+
+
+! txt file
+! --------
+
+      i      = i_x0
+      j      = j_y0
+      ikl    = ikl0
+
+      write(4,50)       MOTIVATION
+ 50   format(3(/,1x),'  OUTPUT for VERIFICATION: ',a50,               &
+     &         /,1x ,'  ***********************',/,1x)
+
+      write(4,55) Day_TU,Mon_TU,YearTU,HourTU,MinuTU,Sec_TU,it_EXP
+ 55   format(3x,2(i2,'-'),i4,4x,3(i2,'-'),'  Simulation Iteration No ',i6)
+
+      write(4,62)
+      write(4,60)
+ 60   format(7x,'|','  sigma  ',' |','     Z   ',' |','    T    ',' |' &!
+     &     ,'   U  ',' |','   V  ',' |',' RH   ',' |','  Qv   ',' |'   &!
+     &                                ,'  Qw   ',' |','  Qi   ',' |'   &!
+     &                                ,'  TKE  ',' |','  eps  ',' |'   &!
+     &                                ,'  Kzh L',' |','  Kzh  ',' |'   &!
+     &,/,'       |','         ',' |','   [km]  ',' |','   [K]   ',' |' &!
+     &     ,' [m/s]',' |',' [m/s]',' |',' [-]  ',' |',' [g/kg]',' |'   &!
+     &                                ,' [g/kg]',' |',' [g/kg]',' |'   &!
+     &                                ,'[m2/s2]',' |','[m3/s2]',' |'   &!
+     &                                ,' [m2/s]',' |',' [m2/s]',' |'   &!
+     &,/,' ------+','---------','-+','---------','-+','---------','-+' &!
+     &     ,'------','-+','------','-+','------','-+','-------','-+'   &!
+     &                                ,'-------','-+','-------','-+'   &!
+     &                                ,'-------','-+','-------','-+'   &!
+     &                                ,'-------','-+','-------','-+')   !
+      DO k = 1,mzp
+      kz=min(k,mzp)
+      RelHum =      min(un_1,qv__DY(ikl,k)   /max(qvswCM(ikl,k),eps6))
+      write(4,61) k,sigma(k),Z___DY(ikl,k)*1.e-3 ,Ta__DY(ikl,k)        &!
+     &                      ,Ua__DY(ikl,k)       ,Va__DY(ikl,k)        &!
+     &                      ,RelHum       ,  1.e3*qv__DY(ikl,k)        &!
+     &                 ,1.e3*qw__CM(ikl,kz), 1.e3*qi__CM(ikl,kz)       &!
+     &                 ,     TKE_AT(ikl,kz),      eps_AT(ikl,kz)       &!
+     &                 ,     Kzh_AT(ikl,kz),      Kzh0AT(ikl,kz)
+ 61   format(i6,' |',f9.6,' |',  f9.4,' |' ,  f9.3,' |' ,2(f6.1,' |')  &!
+     &              ,f6.2,' |',  f7.3,' |' ,2(f7.3,' |')               &!
+     &                        ,2(f7.2,' |'),2(f7.3,' |')              )
+      IF (mod(k,15).EQ.0)                                           THEN
+      write(4,62)
+ 62   format(                                                          &!
+     &   ' ------+','---------','-+','---------','-+','---------','-+' &!
+     &     ,'------','-+','------','-+','------','-+','-------','-+'   &!
+     &                                ,'-------','-+','-------','-+'   &!
+     &                                ,'-------','-+','-------','-+'   &!
+     &                                ,'-------','-+','-------','-+')   !
+
+      write(4,60)
+      END IF
+      ENDDO
+
+      write(4,62)
+      write(4,63) uts_SV_gpt(ikl),1.e3*uqs_SV_gpt(ikl),us__SV_gpt(ikl) &
+     &          , HsenSV_gpt(ikl),     HLatSV_gpt(ikl)
+ 63   format(                                                          &!
+     &       6x,' |', 9x ,' |', ( 9x ,' |'),' u*T*     |'              &!
+     &                                     ,2( 6x ,' |'), ' u*q*  |'   &!
+     &                        ,   7x ,' |' ,2( 7x ,' |'),'  u*    |'   &!
+     &                        ,   7x ,' |' ,2( 7x ,' |')               &!
+     &    ,/,6x,' |', 9x ,' |', ( 9x ,' |'),  f9.6,' |'                &!
+     &                                     ,2( 6x ,' |'),f6.3,' |'     &!
+     &                        ,   7x ,' |' ,2( 7x ,' |'),f7.2,' |'     &!
+     &                        ,   7x ,' |' ,2( 7x ,' |')               &!
+     &    ,/,6x,' |', 9x ,' |', ( 9x ,' |'),  f9.3,' |'                &!
+     &                                     ,2( 6x ,' |'),f6.0,' |'     &!
+     &                        ,   7x ,' |' ,2( 7x ,' |'), 7x ,' |'     &!
+     &                        ,   7x ,' |' ,2( 7x ,' |')               &!
+     &    ,/,6x,' |', 9x ,' |', ( 9x ,' |'),' [W/m2]   |'              &!
+     &                                     ,2( 6x ,' |'), ' [W/m2]|'   &!
+     &                        ,   7x ,' |' ,2( 7x ,' |'),'        |'   &!
+     &                        ,   7x ,' |' ,2( 7x ,' |')            )
+
+      k =      mzpp
+      write(4,62)
+      RelHum =      min(un_1,qv__DY(ikl,k)   /max(qvswCM(ikl,k),eps6))
+      write(4,64) k,sigma(k),Z___DY(ikl,k)*1.e-3 ,Ta__DY(ikl,k)        &!
+     &                      ,zer0                ,zer0                 &!
+     &                      ,RelHum       ,  1.e3*qv__DY(ikl,k)
+ 64   format(i6,' |',f9.6,' |',  f9.4,' |' ,  f9.3,' |' ,2(f6.1,' |')  &!
+     &              ,f6.2,' |',  f7.3,' |' ,2( 7x ,' |')               &!
+     &                        ,2( 7x ,' |'),2( 7x ,' |')              )
+      write(4,62)
+
+
+
+! cdf file
+! --------
+
+
+      end subroutine PHY________OUT
Index: LMDZ5/branches/testing/libf/phymar/PHY_genTKE_INI.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_genTKE_INI.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_genTKE_INI.f90	(revision 2160)
@@ -0,0 +1,161 @@
+      subroutine PHY_genTKE_INI
+
+!------------------------------------------------------------------------------+
+!                                                         Sun 16-Jun-2013  MAR |
+!   MAR          PHY_genTKE_INI                                                |
+!     subroutine PHY_genTKE_INI initialises TKE Equation                       |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Sat 16-Mar-2013      |
+!           Last Modification by H. Gallee,               Sun 16-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_Phy____dat
+      use Mod_Phy____grd
+      use Mod_PHY____kkl
+      use Mod_PHY_AT_ctr
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_DY_kkl
+
+
+      IMPLICIT NONE
+
+
+
+! Global Variables
+! ================
+
+      integer            ::   ikl   ,k
+
+
+
+! Local  Variables
+! ================
+
+      real(kind=real8)   ::   dz_sig                  ! sigma Layer      Thickness                                        [m]
+
+
+
+! Parameters
+! ==========
+
+            c1ep =   c1epd
+
+      IF                     (Ee_Duynkerke)                         THEN
+             cmu =    cmud
+          sqrcmu = sqrcmud
+            c1ep =   c1epd
+            c2ep =   c2epd
+            sige =   siged
+            sigk =   sigkd
+
+      ELSE IF                (Ee_Kitada)                            THEN
+             cmu =    cmuk
+          sqrcmu = sqrcmuk
+            c1ep =   c1epk
+            c2ep =   c2epk
+            sige =   sigek
+            sigk =   sigkk
+
+      ELSE IF                (Kl_TherryLac)                         THEN
+!            cmu =    cmut
+          sqrcmu = sqrcmut
+            sige =   siget
+            sigk =   sigkt
+
+      ELSE                 ! (Bintanja, Huang & Raman)
+             cmu =    cmub
+          sqrcmu = sqrcmub
+            c1ep =   c1epb
+            c2ep =   c2epb
+            sige =   sigeb
+            sigk =   sigkb
+      END IF
+
+          vK_inv =    1./ vonKrm
+
+
+
+
+! Level below which box weighted vertical moving averages of TKE and e are performed
+! ==================================================================================
+
+             mz__KA=mzp-1
+      11 CONTINUE
+         IF (hsigma(mz__KA).GT.zz__KA.OR.mz__KA.LE.1)           GO TO 10
+             mz__KA=mz__KA-1
+                                                                GO TO 11
+      10 CONTINUE
+             write(6,1000)               mz__KA
+      1000   format(/,' TKE: Moving Average until mz -',i2,' Level',/)
+
+
+
+
+! pkt Turbulent Flux Limitor
+! ==========================
+
+      Dpkt_X = DThMAX / p0_kap / 3600.                                  !  From PT [K/h] to pkt = PT / p00**(R/Cp) [K/h]
+
+
+
+
+! Minimum Vertical Turbulent Diffusion Coefficient (ARPS.4.0 Users Guide,
+! ================================================  fin para 6.3.4 p.143)
+
+         DO k=1,mzp-1
+           dz_sig        =               hsigma(k)-hsigma(k+1)
+           Kz0_AT(    k) =                      A_MolV
+! #ARPS    Kz0_AT(    k) = min(0.15,     epsi * dz_sig * dz_sig )
+         END DO
+
+            k=  mzp
+           dz_sig         =               hsigma(k)
+           Kz0_AT(    k) =                      A_MolV
+! #ARPS    Kz0_AT(    k) = min(0.15,     epsi * dz_sig * dz_sig )
+
+
+! ++++++++++++++
+! INITIALIZATION
+! ++++++++++++++
+
+      IF (it_EXP.EQ.1)                                              THEN
+
+
+! Initial E,e
+! -----------
+
+         DO ikl=1,kcolp
+         DO k=1,mzp
+           TKE_AT(ikl,k) = eps6
+           eps_AT(ikl,k) = epsn
+! ...      These initial values of TKE and epsilon correspond to K ~ Kmol
+
+
+! Initial Transport of TKE
+! ------------------------
+
+           TrT_AT(ikl,k) = 0.
+
+
+! Initial Vertical Diffusion Coefficients
+! ---------------------------------------
+
+           Kzm_AT(ikl,k) = A_MolV
+           Kzh_AT(ikl,k) = A_MolV
+
+
+! Initial Inversion Height
+! ------------------------
+
+         END DO
+           zi__AT(ikl)   =     ZmidDY(ikl,mzp)-sh__AP(ikl)
+         END DO
+
+      END IF
+
+
+
+
+      end subroutine PHY_genTKE_INI
Index: LMDZ5/branches/testing/libf/phymar/PHY_genTKE_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_genTKE_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_genTKE_RUN.f90	(revision 2160)
@@ -0,0 +1,727 @@
+      subroutine PHY_genTKE_RUN
+
+!------------------------------------------------------------------------------+
+!                                                         Sat 22-Jun-2013  MAR |
+!   MAR          PHY_genTKE_RUN                                                |
+!     subroutine PHY_genTKE_RUN computes   Turbulent Kinetic Energy            |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Fri 15-Mar-2013      |
+!           Last Modification by H. Gallee,               Sat 22-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!   METHOD: 1. `Standard' Closure of Turbulence:                               |
+!   ^^^^^^^     E - epsilon  , Duynkerke,           JAS 45, 865--880, 1988     |
+!           2.  E - epsilon  , Huang and Raman,     BLM 55, 381--407, 1991     |
+!           3.  K - l        , Therry et Lacarrere, BLM 25,  63-- 88, 1983     |
+!                                                                              |
+!   INPUT  : itexpe: Nb of iterations                                          |
+!   ^^^^^^^^ dt__AT: Local Time Step                                      (s)  |
+!            explIO: Experiment Label                                     (s)  |
+!                                                                              |
+!   INPUT / OUTPUT: The Vertical Turbulent Fluxes are included for:            |
+!   ^^^^^^^^^^^^^^                                                             |
+!     a) Turbulent Kinetic Energy             TKE_AT(kcolq,mzp)       (m2/s2)  |
+!     b) Turbulent Kinetic Energy Dissipation eps_AT(kcolq,mzp)       (m2/s3)  |
+!                                                                              |
+!   OUTPUT :  Kzm_AT(kcolq,mzp): vertic. diffusion coeffic. (momentum) (m2/s)  |
+!   ^^^^^^^^  Kzh_AT(kcolq,mzp): vertic. diffusion coeffic. (scalars ) (m2/s)  |
+!             zi__AT(kcolq)    : inversion height                      (m)     |
+!                                                                              |
+!   OPTIONS: #HY: Latent Heat Exchanges associated with Cloud Microphysics     |
+!   ^^^^^^^^                            contribute   to Buoyancy               |
+!            #KA: replaces TKE & e below a prescribed height above the surface |
+!                          by their      box weighted vertical moving averages |
+!            #KC: Modification of TKE near the Lower Boundary                  |
+!            #LD: Buoyancy includes Loading by the Hydrometeors                |
+!            #RI: Correction of the Prandtl    Nb (Kzm/Kzh)                    |
+!                        by the The Richardson Nb                              |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_Phy____dat
+      use Mod_Phy____grd
+      use Mod_PHY_AT_ctr
+      use Mod_PHY_AT_grd
+      use Mod_PHY____kkl
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_CM_kkl
+      use Mod_SISVAT_gpt
+
+
+
+!  Local  Variables
+!  ================
+
+      use Mod_genTKE_RUN
+
+
+      IMPLICIT NONE
+
+
+      real(kind=real8)   ::   z__SBL                  ! SBL Thickness assumed to be the lowest Model Layer Height         [m]
+      real(kind=real8)   ::   TKE_zi                  ! TKE at the inversion height                                   [m2/s2]
+      integer            ::   kTKEzi                  ! level correponding to TKE_zi
+      real(kind=real8)   ::   dTKEdk                  ! TKE difference across model Layers                            [m2/s2]
+      real(kind=real8)   ::   kz_inv                  ! 1 / (k z)
+      real(kind=real8)   ::   Buoy_F                  ! Contribution of  Buoyancy Force
+      real(kind=real8)   ::   dTKE_p                  ! Positive Contribution  to TKE
+      real(kind=real8)   ::   r_eTKE                  ! e /  TKE Ratio  (used  in the Product./Destruct. Scheme of TKE)
+      real(kind=real8)   ::   TKE_ds                  ! Verticaly Integrated      TKE
+      real(kind=real8)   ::   eps_ds                  ! Verticaly Integrated      TKE Dissipation
+      real(kind=real8)   ::   edt_HR                  ! Minimum Energy Dissipation Time              
+      real(kind=real8)   ::   TKEnew                  ! New Value              of TKE
+      real(kind=real8)   ::   TKEsbc                  ! SBC:                      TKE                                 [m2/s2]
+      real(kind=real8)   ::   epssbc                  ! SBC:                      TKE Dissipation                     [m2/s3]
+      real(kind=real8)   ::   zeta                    ! SBL:      z / LMO                                                 [-]
+      real(kind=real8)   ::   u_star                  ! SBL:      u*             (Friction Velocity)                    [m/s]
+      real(kind=real8)   ::   kz_max,kz_mix,kz2mix    ! Kzh       Auxiliary       Variables
+      real(kind=real8)   ::   KzhMAX                  ! max.vert. Turbulent Diffusion Coefficient (Scalars)            [m2/s]
+
+! #KC real(kind=real8)   ::   se                      ! 1    if TKE(mzp-2) > TKE(mzp-1) and 0 otherwise
+! #KC integer            ::   ke                      ! index of the level where TKE is max 
+
+      real(kind=real8)   ::   relHum                  ! Relative       Humidity                                           [-]
+      real(kind=real8)   ::   QS_mid                  ! Saturation Sp. Humidity % Liquid Water                        [kg/kg]
+      real(kind=real8)   ::   qwsLRT                  ! Qws * L / (Rd * T)
+      real(kind=real8)   ::   surSat                  ! Normalized sur-Saturation (> 0 if relHum > 1)
+      real(kind=real8)   ::   C_thq                   ! (Duynkerke & Driedonks 1987 JAS 44(1), Table 1 p.47)
+      real(kind=real8)   ::   C_q_w                   ! (Duynkerke & Driedonks 1987)
+      real(kind=real8)   ::   CX__hi                  !
+      real(kind=real8)   ::   Ce1_hi                  ! ... Ce1 / hi
+      real(kind=real8)   ::   Ck1_hi                  ! ... Ck1 / hi
+      real(kind=real8)   ::   Ck2_hi                  ! ... Ck2 / hi
+      real(kind=real8)   ::   Th_Lac                  !  Therry & Lacarrere (1983)      Parameter
+
+      real(kind=real8)   ::   sgnLMO                  ! sign(LMO)
+      real(kind=real8)   ::   absLMO                  !     |LMO|
+! #RI real(kind=real8)   ::   fac_Ri,vuzvun,Kz_vun    ! Sukorianski    Parameterization Parameters
+
+      integer            ::   ikl
+      integer            ::   i
+      integer            ::   j
+      integer            ::   k
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                    !
+! ALLOCATION
+! ==========
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                          THEN !
+
+          allocate  ( dukkp1(mzpp) )                                 !      Difference (u(k) - u(k+1))                      [m/s]
+          allocate  ( dvkkp1(mzpp) )                                 !      Difference (v(k) - v(k+1))                      [m/s]
+          allocate  ( kkp1dz(mzpp) )                                 !  1 / Difference (Z(k) - Z(k+1))                      [1/m]
+          allocate  ( zShear(mzp)  )                                 !      Wind Shear Contribution to TKE                [m2/s3]
+          allocate  ( REq_PT(mzpp) )                                 !  Reduced (Equivalent) Potential Temperature            [K]
+          allocate  ( c_Buoy(mzpp) )                                 !  Buoyancy Coefficient (g/theta) X (dtheta/dz)       [1/s2]
+          allocate  ( Ri__Nb(mzp)  )                                 !  Richardson Number                                     [-]
+          allocate  ( Prandtl(mzp) )                                 !  Prandtl    Number (Kzm/Kzh)                           [-]
+          allocate  ( Ls_inv(mzp)  )                                 !  1 / Ls  (Therry & Lacarrere, 1983)                  [1/m]
+          allocate  ( ML_inv(mzp)  )                                 !  1 / ML  (Mixing      Length, Therry & Lacarr, 1983) [1/m]
+          allocate  ( DL_inv(mzp)  )                                 !  1 / DL  (Dissipation Length, Therry & Lacarr, 1983) [1/m]
+          allocate  ( Dissip(mzp)  )                                 !           Dissipation                              [m2/s3]
+          allocate  ( TKEvav(mzp)  )                                 !           TKE         Vertical moving Average      [m2/s2]
+          allocate  ( epsvav(mzp)  )                                 !           Dissipation Vertical moving Average      [m2/s3]
+          allocate  ( pkt   (mzpp) )                                 !           Reduced     Potential       Temperature      [X]
+
+      END IF
+!                                                                    !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+!     ++++++++++++++
+      DO ikl=1,kcolp
+!     ++++++++++++++
+
+!        i = ii__AP(ikl)
+!        j = jj__AP(ikl)
+
+
+
+
+! Friction Velocity
+! =================
+
+         u_star = us__SV_gpt(ikl)
+
+
+
+
+! Verification: TKE must be Positive Definite
+! ===========================================
+
+         DO k=1,mzp
+           TKE_AT(ikl,k)=max(eps6,TKE_AT(ikl,k))
+           eps_AT(ikl,k)=max(epsn,eps_AT(ikl,k))
+         END DO
+
+
+
+
+! Reduced Potential Temperature
+! =============================
+
+         DO k=1,mzpp
+           pkt   (k)    =         pkt_DY(ikl,k)
+         END DO
+
+
+
+
+! Inversion Height
+! ================
+
+           TKE_zi     = 0.05*max(max(TKE_AT(ikl,mzp-1),                  &
+     &                               TKE_AT(ikl,mzp  )),TKEmin)
+           kTKEzi     = 1 
+
+
+         DO k=1,mzp
+           IF   (TKE_AT(ikl,k) .lt. TKE_zi    )                     THEN
+                 kTKEzi      =  min(mzp-1,k)
+           END IF
+         ENDDO
+
+             k = kTKEzi
+         IF      (TKE_AT(ikl,k+1).lt.TKEmin)                        THEN
+                  TKE_zi     =      ZmidDY(ikl,mzp)-sh__AP(ikl)
+         ELSE
+                  dTKEdk     =      TKE_AT(ikl,k)  -TKE_AT(ikl,k+1)
+                  TKE_zi     =      ZmidDY(ikl,k+2)                     &
+     &                            +(ZmidDY(ikl,k+1)-ZmidDY(ikl,k+2))    &
+     &                            *(TKE_zi         -TKE_AT(ikl,k+1))    &
+     &             /(sign(un_1 ,    dTKEdk)                             &
+     &               *max(epsn ,abs(dTKEdk)))      -sh__AP(ikl)
+         END IF
+
+                 zi__AT(ikl) =  min(TKE_zi, ZmidDY(ikl,  1)-sh__AP(ikl))
+
+                 zi__AT(ikl) =  max(        ZmidDY(ikl,mzp)-sh__AP(ikl) &
+     &                             ,zi__AT(ikl))
+                 TKE_zi      =  0.
+                 kTKEzi      =  0 
+
+
+
+
+! TKE Production/Destruction by the Vertical Wind Shear
+! =====================================================
+
+         DO k=1,mzp-1
+           dukkp1(k)  =  ua__DY(ikl,k) - ua__DY(ikl,k+1)
+           dvkkp1(k)  =  va__DY(ikl,k) - va__DY(ikl,k+1)
+         END DO
+            k=  mzp
+           dukkp1(k)  =  ua__DY(ikl,k)
+           dvkkp1(k)  =  va__DY(ikl,k)
+
+         DO k=1,mzp
+           kkp1dz(k)  =  Z___DY(ikl,k) - Z___DY(ikl,k+1)                !  dz(k+1/2)
+         END DO
+
+         DO k=1,mzp-1
+           zShear(k)    =                                              &
+     &     Kzm_AT(ikl,k)*(dukkp1(k) *dukkp1(k) + dvkkp1(k) *dvkkp1(k)) &
+     &                  /(kkp1dz(k) *kkp1dz(k))
+         END DO
+           zShear(mzp)  = 0.0
+
+
+
+
+! Buoyancy
+! ========
+
+! Reduced (Equivalent) Potential Temperature
+! ------------------------------------------
+
+! Control Martin
+!PRINT*,'CpdAir=',CpdAir
+!PRINT*,'minval(Ta__DY(ikl,:))=',minval(Ta__DY(ikl,:))
+! Control Martin
+
+         DO k=1,mzpp
+           REq_PT(k)     =     pkt   (    k)                            &
+! #LD&        * (1.0 + 0.715 * ld_H2O(ikl,k)   )                        &
+     &        *   exp(LhvH2O * qv__DY(ikl,k)                            &
+     &             / (CpdAir * Ta__DY(ikl,k))  )                        &
+     &        +  0.0
+         END DO
+
+
+
+! Buoyancy Coefficients
+! ---------------------
+
+         DO k=1,mzp
+
+           relHum     = 0.50 *(qv__DY(ikl,k  ) /qvswCM(ikl,k  )         &
+     &                        +qv__DY(ikl,k+1) /qvswCM(ikl,k+1))
+           QS_mid     = 0.50 *(qvswCM(ikl,k  ) +qvswCM(ikl,k+1))
+
+           surSat     = max(zer0,sign(un_1,relHum +epsp-un_1))
+           qwsLRT     = LhvH2O*QS_mid /(R_DAir *TmidDY(ikl,k))
+
+! Vectorization of the unsaturated (H<1) and saturated cases (H=1.)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+           C_thq =1.-surSat                                             & ! H<1.
+     &              +surSat*(1.+qwsLRT)                                 & ! H=1.
+     &                     /(1.+qwsLRT*.605*LhvH2O                      & !
+     &                                    /(CpdAir*TmidDY(ikl,k)))        !
+! ...      C_thq (Duynkerke & Driedonks 1987 JAS 44(1), Table 1 p.47)     !
+
+           C_q_w=(1.-surSat)              *(LhvH2O                      & !
+     &                                    /(CpdAir*TmidDY(ikl,k))       & ! H<1.
+     &                                     - 0.605                    ) & !
+     &              +surSat                                               ! H=1.
+! ...      C_q_w (Duynkerke and Driedonks 1987)                           !
+!                 with (1-Ra/Rv)/(Ra/Rv) =  0.605 [Ra=287.J/kg/K;         !
+!                                                  Rv=461.J/kg/K]         !
+
+! Unsaturated Case
+! ~~~~~~~~~~~~~~~~
+!         IF(relHum.lt.1.0)                                         THEN  !
+!            C_thq = 1.0
+!            C_q_w =                   LhvH2O/(CpdAir*TmidDY(ikl,k))    & !
+!    &                                        - 0.605                     !
+
+! Saturated   Case
+! ~~~~~~~~~~~~~~~~
+!         ELSE                                                            !
+!            qwsLRT=      QS_mid      *LhvH2O/(RDryAi*TmidDY(ikl,k))      !
+!            C_thq = (1.0+qwsLRT)                                       & !
+!    &              /(1.0+qwsLRT*0.605*LhvH2O/(CpdAir*TmidDY(ikl,k)))     !
+!            C_q_w =  1.0
+!         END IF
+
+
+! Buoyancy
+! --------
+
+          IF(k.EQ.mzp)      C_q_w = 0.0
+
+             c_Buoy(k)    = Grav_F                                      &
+     &      *kkp1dz(k) * ( (REq_PT(k)-REq_PT(k+1))                      &
+     &                 *2./(REq_PT(k)+REq_PT(k+1))                      &
+     &                 *    C_thq                                       &
+     &                 -    C_q_w *(qv__DY(ikl,k)-qv__DY(ikl,k+1)       &
+     &                             +qw__CM(ikl,k)-qw__CM(ikl,k+1)       &
+     &                             +qr__CM(ikl,k)-qr__CM(ikl,k+1)       &
+     &                             +qi__CM(ikl,k)-qi__CM(ikl,k+1)       &
+     &                             +qs__CM(ikl,k)-qs__CM(ikl,k+1))      &
+     &                                                             )
+! ...       (g/theta)                X(dtheta/dz) : 
+!            Buoyancy Parameter beta X grad.vert.temp.pot. en k+1/2
+
+         END DO
+
+
+! Dissipation & Length Scales Parameters (Therry and Lacarrere 1983 Model)
+! ======================================
+
+         IF (Kl_TherryLac)                                          THEN
+           CX__hi      =  1.0 / zi__AT(ikl)
+           Ce1_hi      = 15.0 * CX__hi       ! ...    Ce1/hi 
+           Ck1_hi      =  5.0 * CX__hi       ! ...    Ck1/hi 
+           Ck2_hi      = 11.0 * CX__hi       ! ...    Ck2/hi 
+
+           sgnLMO      = sign(un_1,LMO_AT(ikl))
+           absLMO      =  abs(     LMO_AT(ikl))
+           LMO_AT(ikl) =           sgnLMO    * max(absLMO,epsp)
+           Th_Lac      = -min(0.00,sgnLMO)                              &
+     &             /(1.0 -min(0.00,LMO_AT(ikl))  / zi__AT(ikl))
+
+! Replacement of:
+!          IF (LMO_AT(ikl).lt.0.0)                                  THEN
+!              LMO_AT(ikl) =        min(LMO_AT(ikl),-epsp)
+!              Th_Lac =  1.0/(1.d0-LMO_AT(ikl)/zi__AT(ikl)) 
+!          ELSE
+!              LMO_AT(ikl) =        max(LMO_AT(ikl), epsp)
+!              Th_Lac =  0.0
+!          END IF
+! ...      m2
+
+
+          DO k=1,mzp
+           Ls_inv(k)   = sqrt( max(zer0,c_Buoy(k)) /TKE_AT(ikl,k) )      ! ...  1/ls
+          END DO
+
+
+! Dissipation Length
+! ------------------
+
+          DO k=1,mzp
+           kz_inv=vK_inv/(ZmidDY(ikl,k+1)-sh__AP(ikl))                   ! ...  1/kz(i,j,k+1/2)
+!   
+           DL_inv(k)=kz_inv +Ce1_hi                                     &! ...  DL_inv=1/Dissipation Length
+     &      -(kz_inv+Ck1_hi)*Th_Lac/(1.+5.0e-3*zi__AT(ikl)*kz_inv)      &!      (Therry and Lacarrere, 1983 BLM 25 p.75)
+     &       +1.5*Ls_inv(k)
+
+
+! Mixing Length
+! -------------
+
+           ML_inv(k)=kz_inv +Ce1_hi                                     &! ...  ML_inv=1/Mixing Length 
+     &      -(kz_inv+Ck2_hi)*Th_Lac/(1.+2.5e-3*zi__AT(ikl)*kz_inv)      &!      (Therry and Lacarrere, 1983 BLM 25 p.78)
+     &       +3.0*Ls_inv(k)
+
+           Dissip(k) = 0.125*DL_inv(k)*sqrt(TKE_AT(ikl,k))*TKE_AT(ikl,k)
+          ENDDO
+
+
+
+
+! Dissipation                            (E-epsilon                 Models)
+! ===========                                    
+
+         ELSE
+
+          DO k=1,mzp
+           Dissip(k) =       eps_AT(ikl,k)
+          ENDDO
+
+         END IF
+
+
+
+
+! Contribution of Vertical Wind Shear + Buoyancy + Dissipation to TKE 
+! ===================================================================
+
+         DO k=1,mzp
+           Buoy_F=-Kzh_AT(ikl,k) *       c_Buoy(k)    
+
+           TKEnew= TKE_AT(ikl,k) *                                           &
+     &            (TKE_AT(ikl,k)+dt__AT*(zShear(k)    +max(zer0,Buoy_F)))    &
+     &           /(TKE_AT(ikl,k)+dt__AT*(             -min(zer0,Buoy_F)      &
+     &                                                +         Dissip(k) ))
+! ...      Numerical Scheme : cfr. E. Deleersnijder, 1992 (thesis) pp.59-61 
+
+
+
+
+! Contribution of Vertical Wind Shear + Buoyancy to epsilon
+! =========================================================
+
+          IF                     (Ee_Duynkerke)                     THEN
+           dTKE_p = zShear(k)    +max(zer0,Buoy_F)+max(TrT_AT(ikl,k),zer0)
+          ELSE
+           dTKE_p = zShear(k)    +max(zer0,Buoy_F)
+! ...      based on standard values of Kitada, 1987, BLM 41, p.220
+          END IF
+
+! #BH      dTKE_p = zShear(k)    +max(zer0,Buoy_F) * 1.80               &
+! #BH&                           -min(Buoy_F,zer0) * 1.15
+! ...      based on          values of Betts et Haroutunian, 1983
+!          can be used by replacing strings `c #KI' (except the previous one) 
+!                                       and `c #BH' by blanks 
+!                                (cfr. Kitada, 1987, BLM 41, p.220):
+!          buoyancy > 0 (unstability) => (1-ce3) X buoyancy = 1.8  X buoyancy
+!          buoyancy < 0 (  stability) => (1-ce3) X buoyancy =-1.15 X buoyancy
+
+           r_eTKE = eps_AT(ikl,k) /TKE_AT(ikl,k)
+           eps_AT(ikl,k) =                                              &
+     &              eps_AT(ikl,k)                                       &
+     &            *(eps_AT(ikl,k) +dt__AT *r_eTKE *c1ep *dTKE_p)        &
+     &            /(eps_AT(ikl,k) +dt__AT *r_eTKE *c2ep *eps_AT(ikl,k)) 
+! ...      Numerical Scheme : cfr. E. Deleersnijder, 1992 (thesis) pp.59-61 
+
+          IF                     (Kl_TherryLac)                         &
+     &     eps_AT(ikl,k)=Dissip(k) 
+
+
+
+
+! New TKE Value
+! =============
+
+           TKE_AT(ikl,k)=TKEnew
+
+         END DO
+
+
+
+! Lower Boundary Conditions
+! =========================
+
+           TKEsbc          =  u_star          * u_star                    ! -> TKE SBC
+           z__SBL          =  Z___DY(ikl,mzp) - sh__AP(ikl)               !    z_SBL
+
+           epssbc          =  TKEsbc          * u_star                    ! -> e   SBC
+           TKE_AT(ikl,mzp) =  TKEsbc          * sqrcmu                    !    TKE SBC
+
+           zeta            =  z__SBL          / LMO_AT(ikl)               !    zeta
+           sgnLMO          =  max(0.0,sign(un_1,LMO_AT(ikl)))             !
+
+           eps_AT(ikl,mzp) = epssbc                                     & !
+     &              *(      (sgnLMO     *(1.+A_Stab*    zeta)           & ! phim Stab.
+     &                 +(1.0-sgnLMO    )/(1.-20.*min(0.,zeta)))         & ! phim Inst.
+     &              *vK_inv /z__SBL                                     & !
+     &              -vK_inv /LMO_AT(ikl))
+! ...      Duynkerke, 1988, JAS (45), (19) p. 869
+
+! #KI      eps_AT(ikl,mzp) = epssbc                                     &
+! #KI&              *vK_inv /z__SBL     
+
+
+! When TKE Closure is Used, TKE is Modified near the Lower Boundary
+! -----------------------------------------------------------------
+
+! #KC      se = max(0.,sign(un_1,TKE_AT(ikl,mzp-2)-TKE_AT(ikl,mzp-1)))
+! #KC      ke =                                           mzp-1-se
+! #KC      TKE_AT(ikl,mzp-1)=     TKE_AT(ikl,ke  )
+! #KC      eps_AT(ikl,mzp-1)=     eps_AT(ikl,ke  )
+! ...      Schayes and Thunis, 1990, Contrib. 60 Inst.Astr.Geoph. p.8, 1.4.4.
+
+! #KC      TKE_AT(ikl,mzp-1)=     TKE_AT(ikl,mzp )
+! #KC      eps_AT(ikl,mzp-1)=     eps_AT(ikl,mzp )
+
+
+! Upper Boundary Conditions
+! =========================
+
+           TKE_AT(ikl,1) = TKE_AT(ikl,2)
+           eps_AT(ikl,1) = eps_AT(ikl,2)
+        
+
+
+! TKE-e Vertical Moving Average
+! =============================
+
+           DO k=     1,mzp
+             TKEvav(k)=                TKE_AT(ikl,    k )
+             epsvav(k)=                eps_AT(ikl,    k )
+           END DO
+         IF (AT_vav)                                                THEN
+           DO k=     2,mzp-1
+             TKEvav(k)=(dsigmi(k1p(k))*TKE_AT(ikl,k1p(k))               &
+     &                 +dsigmi(    k )*TKE_AT(ikl,    k )*2.            &
+     &                 +dsigmi(k1m(k))*TKE_AT(ikl,k1m(k))   )           &
+     &                /(dsigmi(k1p(k))                                  &
+     &                 +dsigmi(    k )                   *2.            &
+     &                 +dsigmi(k1m(k))                      )
+             epsvav(k)=(dsigmi(k1p(k))*eps_AT(ikl,k1p(k))               &
+     &                 +dsigmi(    k )*eps_AT(ikl,    k )*2.            &
+     &                 +dsigmi(k1m(k))*eps_AT(ikl,k1m(k))   )           &
+     &                /(dsigmi(k1p(k))                                  &
+     &                 +dsigmi(    k )                   *2.            &
+     &                 +dsigmi(k1m(k))                      )
+           END DO
+         END IF
+
+! #KA    DO k=mz__KA,mzp-1
+! #KA      TKE_AT(ikl,k)= TKEvav(k)
+! #KA      eps_AT(ikl,k)= epsvav(k)
+! #KA    END DO
+
+
+! Verification: TKE must be Positive Definite
+! ===========================================
+
+         DO k=1,mzp
+           TKE_AT(ikl,k)=max(eps6,TKE_AT(ikl,k))
+           eps_AT(ikl,k)=max(epsn,eps_AT(ikl,k))
+           TKEvav(k)    =max(eps6,TKEvav(k)    )
+           epsvav(k)    =max(eps6,epsvav(k)    )
+         END DO
+
+
+! Minimum Energy Dissipation Time
+! ===============================
+
+         IF                      (Ee_HuangRamn)                     THEN
+           TKE_ds      = 0.0
+           eps_ds      = 0.0
+          DO k=1,mzp
+           TKE_ds      = TKE_ds + TKE_AT(ikl,k)*dsigma(k)
+           eps_ds      = eps_ds + eps_AT(ikl,k)*dsigma(k)
+          END DO
+
+          IF (eps_ds.gt.0.0)                                        THEN
+           edt_HR      = betahr * TKE_ds       /eps_ds 
+          ELSE
+           edt_HR      = epsn 
+! ...      edt_HR set to an arbitrary small value
+          END IF
+         END IF
+
+
+! Turbulent Diffusion Coefficients
+! ================================
+
+         IF (it_EXP.gt.1)                                           THEN
+
+
+! Richardson Number (contributors)
+! -----------------
+
+           Prandtl(mzp)    =   1.
+
+          DO k=2,mzp-1
+           c_Buoy(k) =  0.0
+! #RI      c_Buoy(k) =      (pkt   (    k)-pkt   (    k+1))*p0_kap      &
+! #RI&                   /   TmidDY(ikl,k)
+! #RI      zShear(k) =   max(dukkp1(k)**2 +dvkkp1(k) **2 ,  eps6)
+
+
+! Richardson Number
+! -----------------
+
+           Ri__Nb(k) =  0.0
+! #RI      Ri__Nb(k) = (Grav_F/kkp1dz(k))                               & ! g * dz     (k+1/2)
+! #RI&                        *c_Buoy(k)                                & ! d(theta)/T (k+1/2)
+! #RI&                        /zShear(k)                                  ! d|V|
+          END DO
+
+
+! Diffusion Coefficient for Heat
+! ------------------------------
+
+          DO k=2,mzp
+
+          IF                 (Kl_TherryLac)                         THEN
+           Kzh_AT(ikl,k)=  0.50 * sqrt(TKEvav(k    ))/ML_inv(k)     
+! ...      nu_t =c_mu X ECT          X ECT          / eps
+
+          ELSE IF            (Ee_HuangRamn)                         THEN
+           Kzh_AT(ikl,k)=                                               &
+     &            cmu * TKE_AT(ikl,k)* TKE_AT(ikl,k)/(eps_AT(ikl,k)     &
+     &                                +TKE_AT(ikl,k)/ edt_HR       )
+! ...      nu_t =c_mu X ECT          X ECT          / eps
+
+          ELSE          !    (Ee_Duynkerke / Ee_Kitada)
+           Kzh_AT(ikl,k)=                                               &
+     &            cmu * TKEvav(k    )* TKEvav(k    )/(epsvav(k    ))
+! ...      nu_t =c_mu X ECT          X ECT          / eps
+
+          END IF
+
+           kz_max= vonKrm *     Z___DY(ikl,k+1)-Z___DY(ikl,mzpp)
+           kz_mix= kz_max /    (1.             +kz_max          *0.1)
+           kz2mix= kz_mix *     kz_mix
+           KzhMAX= max(   5000.        ,   100.                         &
+     &   * kz2mix *abs((WindDY    (ikl,k)-WindDY    (ikl,k1p(k)))       &
+     &                         *kkp1dz(k)                      ))
+           Kzh_AT(ikl,k)=   min( KzhMAX , Kzh_AT(ikl,k))
+           Kzh_AT(ikl,k)=   max( A_MolV , Kzh_AT(ikl,k))
+           Kzh0AT(ikl,k)=                 Kzh_AT(ikl,k)
+          END DO
+
+
+
+! Flux Limitor (Limitation of pkt Flux)
+! ------------
+
+      IF  (AT_LIM .AND. mzp.GE.3)                                   THEN
+        DO k=min(3,mzp),mzp
+          IF                 (pkt_DY(ikl,k+1) .GT. pkt_DY(ikl,k  )) THEN
+           Kz_MAX=(          (Z___DY(ikl,k  ) -    Z___DY(ikl,k+1))    &
+     &                      /(pkt_DY(ikl,k+1) -    pkt_DY(ikl,k  )))   &
+     &     *(Dpkt_X    *0.5 *(Z___DY(ikl,k-1) -    Z___DY(ikl,k+1))    &
+     &      -Kzh_AT(ikl,k-1)*(pkt_DY(ikl,k-1) -    pkt_DY(ikl,k  ))    &
+     &                      /(Z___DY(ikl,k-1) -    Z___DY(ikl,k  )))
+          ELSE IF            (pkt_DY(ikl,k+1) .LT. pkt_DY(ikl,k  )) THEN
+           Kz_MAX=(          (Z___DY(ikl,k  ) -    Z___DY(ikl,k+1))    &
+     &                      /(pkt_DY(ikl,k  ) -    pkt_DY(ikl,k+1)))   &
+     &     *(Dpkt_X    *0.5 *(Z___DY(ikl,k-1) -    Z___DY(ikl,k+1))    &
+     &      +Kzh_AT(ikl,k-1)*(pkt_DY(ikl,k-1) -    pkt_DY(ikl,k  ))    &
+     &                      /(Z___DY(ikl,k-1) -    Z___DY(ikl,k  )))
+          END IF
+           Kzh_AT(ikl,k) = min(Kzh_AT(ikl,k),Kz_MAX)
+           Kzh_AT(ikl,k) = max(Kzh_AT(ikl,k),A_MolV)
+        ENDDO
+      ENDIF
+
+
+
+! Prandtl Number (Sukoriansky et al., 2005,
+! --------------  BLM 117: 231-257, Eq.15, 19, 20 & Fig.2)
+
+          DO k=2,mzp-1
+! #RI      fac_Ri= 5.0 *     max(Ri__Nb(i,j,k), eps6)
+! #RI      vuzvun= 0.4 *(1.-(fac_Ri-1./fac_Ri)/(fac_Ri+1./fac_Ri)) + 0.2
+! #RI      fac_Ri= 4.2 *     max(Ri__Nb(i,j,k), eps6)
+! #RI      Kz_vun= 0.7 *(1.-(fac_Ri-1./fac_Ri)/(fac_Ri+1./fac_Ri))
+           Prandtl(k)    =                             1.
+! #RI      Prandtl(k)    =   max(0.     ,sign(1.  , Kzh_AT(ikl,k)-0.20)) &
+! #RI&                   -   min(0.     ,sign(1.  , Kzh_AT(ikl,k)-0.20)) &
+! #RI&                   *   min(vuzvun / max(eps6,Kz_vun),     20.00)
+          END DO
+
+
+! Diffusion Coefficient for Momentum
+! ----------------------------------
+
+          DO k=2,mzp
+          IF                 (Kl_TherryLac)                         THEN
+           Kzm_AT(ikl,k)=  0.7           * Kzh_AT(ikl,k)
+
+          ELSE
+           Kzm_AT(ikl,k)=                  Kzh_AT(ikl,k)
+! ...      cfr Machiels, 1992, TFE (FSA/UCL) (3.21) p.21
+
+! #RI      Kzm_AT(ikl,k)=  Prandtl(k)    * Kzh_AT(ikl,k)
+          END IF
+
+          END DO
+
+         END IF
+
+
+
+
+! Work Arrays Reset
+! =================
+
+      DO k=1,mzp
+        TrT_AT(ikl,k) = 0.0
+      END DO
+
+
+
+
+!     +++++++++++++++++++
+      ENDDO ! ikl=1,kcolp
+!     +++++++++++++++++++
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                    !
+! DE-ALLOCATION
+! =============
+
+      IF (FlagDALLOC)                                           THEN !
+          deallocate   ( dukkp1 )                                    !      Difference (u(k) - u(k+1))                      [m/s]
+          deallocate   ( dvkkp1 )                                    !      Difference (v(k) - v(k+1))                      [m/s]
+          deallocate   ( kkp1dz )                                    !  1 / Difference (Z(k) - Z(k+1))
+          deallocate   ( zShear )                                    !      Wind Shear Contribution to TKE                [m2/s3]
+          deallocate   ( REq_PT )                                    !  Reduced (Equivalent) Potential Temperature            [K]
+          deallocate   ( c_Buoy )                                    !  Buoyancy Coefficient (g/theta) X (dtheta/dz)       [1/s2]
+          deallocate   ( Ri__Nb )                                    !  Richardson Number                                     [-]
+          deallocate   ( Prandtl)                                    !  Prandtl    Number (Kzm/Kzh)                           [-]
+          deallocate   ( Ls_inv )                                    !  1 / Ls  (Therry & Lacarrere, 1983)                  [1/m]
+          deallocate   ( ML_inv )                                    !  1 / ML  (Mixing      Length, Therry & Lacarr, 1983) [1/m]
+          deallocate   ( DL_inv )                                    !  1 / DL  (Dissipation Length, Therry & Lacarr, 1983) [1/m]
+          deallocate   ( Dissip )                                    !           Dissipation                              [m2/s3]
+          deallocate   ( TKEvav )                                    !           TKE         Vertical moving Average      [m2/s2]
+          deallocate   ( epsvav )                                    !           Dissipation Vertical moving Average      [m2/s3]
+          deallocate   ( pkt    )                                    !           Reduced     Potential       Temperature      [X]
+      END IF                                                         !
+!                                                                    !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+      return
+
+      end subroutine PHY_genTKE_RUN
Index: LMDZ5/branches/testing/libf/phymar/PHY_vdfTKE_RUN.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/PHY_vdfTKE_RUN.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/PHY_vdfTKE_RUN.f90	(revision 2160)
@@ -0,0 +1,301 @@
+      subroutine PHY_vdfTKE_RUN
+
+!------------------------------------------------------------------------------+
+!                                                         Mon 17-Jun-2013  MAR |
+!     SubRoutine PHY_vdfTKE_RUN  includes Vertical Diffusion of TKE            |
+!                                                           and epsilon        |
+!                                                                              |
+!                                                                              |
+!     version 3.p.4.1 created by H. Gallee,               Tue 19-Mar-2013      |
+!           Last Modification by H. Gallee,               Mon 17-Jun-2013      |
+!                                                                              |
+!------------------------------------------------------------------------------+
+!                                                                              |
+!    INPUT: Kzm_AT           Vertical Turbulent Coeffic.(momentum) [m2/s2]     |
+!    ^^^^^^                                                                    |
+!                                                                              |
+!    INPUT / OUTPUT: The Vertical Turbulent Fluxes are included for:           |
+!    ^^^^^^^^^^^^^^                                                            |
+!         a) Turbulent Kinetic Energy             TKE_AT(_xyz)     [m2/s2]     |
+!         b) Turbulent Kinetic Energy Dissipation eps_AT(_xyz)     [m2/s3]     |
+!                                                                              |
+!   #OPTIONS: #De: Dirichlet Type Top Boundary Condit. for TKE_AT (TKE    )    |
+!   #^^^^^^^^                                            & eps_AT (epsilon)    |
+!                                                                              |
+!------------------------------------------------------------------------------+
+
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_AT_grd
+      use Mod_PHY_AT_kkl
+      use Mod_PHY_DY_kkl
+
+
+
+! Local  Variables
+! ================
+
+      use Mod_vdfTKE_RUN
+
+
+      IMPLICIT NONE
+
+
+      real(kind=real8)                             ::  S3DSBC
+      real(kind=real8)                             ::  sige2k
+      real(kind=real8)                             ::  psa_sq
+! #De real(kind=real8)                             ::  TKEtop = 0.
+
+      integer                                      ::  i     ,j     ,k
+      integer                                      ::  k1           ,ikl
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! ALLOCATION
+! ==========
+
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)               THEN !
+          allocate ( S3D__1(mzp-1) )
+          allocate ( S3D__2(mzp-1) )
+          allocate ( S3D__3(mzp-1) )
+          allocate ( S3D__4(mzp-1) )
+          allocate ( S3D__5(mzp-1) )
+          allocate ( S3D__6(mzp-1) )
+          allocate ( S3D__7(mzp-1) )
+      END IF                                              !
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+! INITIALIZATION
+! ==============
+
+      sige2k = sige / sigk
+
+
+
+!     =====================
+      DO      ikl = 1,kcolp
+!     =====================
+
+        i = ii__AP(ikl)
+        j = jj__AP(ikl)
+
+        psa_sq          = psa_DY(ikl)         *psa_DY(ikl)    
+
+
+
+
+! Vertical Diffusion of Turbulent Kinetic Energy
+! ==============================================
+
+
+! Tridiagonal Matrix Coefficients - TKE_AT 
+! ----------------------------------------
+
+           k=mzp-1
+          S3DSBC        = -GravF2*0.5*(Kzm_AT(ikl,k)+Kzm_AT(ikl,k+1))  &!  SBC: TKE and epsilon, Atm SBL
+     &             * sigk *betaAT    * roamDY(ikl,k)*roa_DY(ikl,k  )   &!
+     &                   /(psa_sq    * dsigmi(k)    *dsigma(    k+1))
+          S3D__1(mzp-1) =  S3DSBC                                       !  SBC: TKE and epsilon, Atm SBL
+
+        DO k=mzp-2,1,-1
+          S3D__1(k)      =-GravF2*0.5*(Kzm_AT(ikl,k)+Kzm_AT(ikl,k+1))  &
+     &             * sigk *betaAT    * roamDY(ikl,k)*roa_DY(ikl,k  )   &
+     &                   /(psa_sq    * dsigmi(k)    *dsigma(    k+1))
+
+          S3D__3(k+1)    = S3D__1(k) * dsigmi(    k)/dsigmi(    k+1)   &
+     &                               / roa_DY(ikl,k)*roa_DY(ikl,k+1) 
+        END DO
+
+          S3D__3(1)      = 0.0                                          !  UBC: Von Neuman     , Atm Top
+        DO k=   1,mzp-1
+          S3D__1(k) =      S3D__1(k) * dt__AT
+          S3D__3(k) =      S3D__3(k) * dt__AT
+          S3D__2(k) = 1.0 -S3D__3(k) -S3D__1(k) 
+        END DO
+
+
+! Second Member of the Tridiagonal System - TKE_AT
+! ------------------------------------------------
+
+          S3D__4(1) =                                                   &
+     &    S3D__1(1) *a_b_AT*(TKE_AT(ikl,1)-TKE_AT(ikl,k1p(1)))
+! #De     S3D__1(1) = 0.0
+! #De     S3D__2(1) = 1.0
+! #De     S3D__4(1) = TKEtop
+
+        DO k=k1p(1),mzp-2
+          S3D__4(k) =                                                   &
+     &    S3D__1(k) *a_b_AT*(TKE_AT(ikl,    k )-TKE_AT(ikl,k1p(1)))     &
+     &   -S3D__3(k) *a_b_AT*(TKE_AT(ikl,k1m(k))-TKE_AT(ikl,    k ))
+        END DO
+
+           k=       mzp-1
+          S3D__4(k) =                                                   &
+     &    S3D__1(k)*(a_b_AT* TKE_AT(ikl,    k )-TKE_AT(ikl,k1p(1))      &
+     &                                         /betaAT            )     &
+     &   -S3D__3(k) *a_b_AT*(TKE_AT(ikl,k1m(k))-TKE_AT(ikl,    k ))
+
+          S3D__1(k) = 0.000
+
+!         S3D__4(mzp-1)=-(alphAT* TKE_AT(ikl,mzp-1)-TKE_AT(ikl,mzp  ))  &
+!    &          * GravF2 *0.5000*(Kzm_AT(ikl,mzp-1)+Kzm_AT(ikl,mzp-2))  &
+!    &                          * roamDY(ikl,mzp-1)*roamDY(ikl,mzp-1)   &
+!    &                 / (psa_sq* dsigmi(    mzp-1)*dsigma(    mzp-1))  &
+!    &   -S3D__3(mzp-1)*  a_b_AT*(TKE_AT(ikl,mzp-2)-TKE_AT(ikl,mzp-1))
+
+
+! Tridiagonal Matrix Inversion - TKE_AT 
+! -------------------------------------
+
+             k1= 1
+! #De        k1= 2
+        DO k=k1,mzp-1
+          S3D__4(k) = S3D__4(k) +  TKE_AT(ikl,k)
+        END DO
+
+! Forward  Sweep
+! ~~~~~~~~~~~~~~
+          S3D__5(1) = S3D__2(1)
+          S3D__6(1) =-S3D__1(1)   /S3D__5(1)
+        DO   k=k1p(1),mzp-1
+          S3D__5(k) = S3D__3(k)   *S3D__6(k-1)+S3D__2(k)
+          S3D__6(k) =-S3D__1(k)   /S3D__5(k)
+        END DO
+          S3D__7(1) = S3D__4(1)   /S3D__5(1)
+        DO   k=k1p(1),mzp-1
+          S3D__7(k) =(S3D__4(k)   -S3D__3(k)                           &
+     &               *S3D__7(k-1))/S3D__5(k)
+        END DO
+
+! Backward Sweep
+! ~~~~~~~~~~~~~~
+        DO k=k1m(mzp-1),1,-1
+          S3D__7(k) = S3D__6(k)   *S3D__7(k+1)+S3D__7(k)
+        END DO
+
+
+        DO k=1,mzp-1
+          TrT_AT(ikl,k) =  TrT_AT(ikl,k)                               &
+     &              +(S3D__7(k)   -TKE_AT(ikl,k))  /dt__AT
+          TKE_AT(ikl,k) =                      S3D__7(k)
+        END DO
+
+
+! Vertical Diffusion of Dissipation
+! =================================
+
+
+! Update Tridiagonal Matrix Coefficients - eps_AT 
+! -----------------------------------------------
+
+          S3D__1(mzp-1) =   S3DSBC    * dt__AT                          !  SBC: TKE and epsilon, Atm SBL
+        DO k=1,mzp-1
+          S3D__1(k) =       S3D__1(k) * sige2k
+          S3D__3(k) =       S3D__3(k) * sige2k
+          S3D__2(k) = 1.0 - S3D__3(k) - S3D__1(k) 
+        END DO
+
+
+! Second Member of the Tridiagonal System - eps_AT
+! ------------------------------------------------
+
+          S3D__4(1) =                                                   &
+     &    S3D__1(1) *a_b_AT*(eps_AT(ikl,1)-eps_AT(ikl,k1p(1)))
+! #De     S3D__1(1) = 0.0
+! #De     S3D__2(1) = 1.0
+! #De     S3D__4(1) = eps_DI(i,j)
+
+        DO k=k1p(1),mzp-2
+          S3D__4(k) =                                                   &
+     &    S3D__1(k) *a_b_AT*(eps_AT(ikl,k)-eps_AT(ikl,k1p(k)))          &
+     &   -S3D__3(k) *a_b_AT*(eps_AT(ikl,k1m(k))-eps_AT(ikl,k))
+        END DO
+
+           k=       mzp-1
+          S3D__4(k) =                                                   &
+     &    S3D__1(k)*(a_b_AT* eps_AT(ikl,    k )-eps_AT(ikl,k1p(1))      &
+     &                                         /betaAT            )     &
+     &   -S3D__3(k) *a_b_AT*(eps_AT(ikl,k1m(k))-eps_AT(ikl,    k ))
+
+          S3D__1(k) = 0.000
+
+!         S3D__4(mzp-1)=-(alphAT* eps_AT(ikl,mzp-1)-eps_AT(ikl,mzp))    &
+!    &          * GravF2* 0.5000*(Kzm_AT(ikl,mzp-1)+Kzm_AT(ikl,mzp-2))  &
+!    &                          * roamDY(ikl,mzp-1)*roamDY(ikl,mzp-1)   &
+!    &                 / (psa_sq* dsigmi(    mzp-1)*dsigma(    mzp-1))  &
+!    &   -S3D__3(mzp-1)*  a_b_AT*(eps_AT(ikl,mzp-2)-eps_AT(ikl,mzp-1))
+
+
+! Tridiagonal Matrix Inversion - eps_AT 
+! -------------------------------------
+
+             k1= 1
+! #De        k1= 2
+        DO k=k1,mzp-1
+          S3D__4(k)    = S3D__4(k) + eps_AT(ikl,k)
+        END DO
+
+! Forward  Sweep
+! ~~~~~~~~~~~~~~
+          S3D__5(1) = S3D__2(1)
+          S3D__6(1) =-S3D__1(1)   /S3D__5(1)
+        DO   k=k1p(1),mzp-1
+          S3D__5(k) = S3D__3(k)   *S3D__6(k-1)+S3D__2(k)
+          S3D__6(k) =-S3D__1(k)   /S3D__5(k)
+        END DO
+          S3D__7(1) = S3D__4(1)   /S3D__5(1)
+        DO   k=k1p(1),mzp-1
+          S3D__7(k) =(S3D__4(k)   -S3D__3(k)                            &
+     &               *S3D__7(k-1))/S3D__5(k)
+        END DO
+
+! Backward Sweep
+! ~~~~~~~~~~~~~~
+        DO k=k1m(mzp-1),1,-1
+          S3D__7(k) = S3D__6(k)   *S3D__7(k+1)+S3D__7(k)
+        END DO
+
+        DO k=1,mzp-1
+          eps_AT(ikl,k) =                      S3D__7(k)
+        END DO
+
+
+
+
+!     =====================
+      ENDDO ! ikl = 1,kcolp
+!     =====================
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! DE-ALLOCATION
+! =============
+
+      IF (FlagDALLOC)                                THEN !
+          deallocate ( S3D__1 )
+          deallocate ( S3D__2 )
+          deallocate ( S3D__3 )
+          deallocate ( S3D__4 )
+          deallocate ( S3D__5 )
+          deallocate ( S3D__6 )
+          deallocate ( S3D__7 )
+      ENDIF
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+      return
+      end subroutine PHY_vdfTKE_RUN
Index: LMDZ5/branches/testing/libf/phymar/SISVAT.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/SISVAT.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/SISVAT.f90	(revision 2160)
@@ -0,0 +1,11243 @@
+      subroutine SISVAT_ini
+ 
+!--------------------------------------------------------------------------+
+!                                                                          |
+!   MAR          SISVAT_ini                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_ini generates non time dependant SISVAT parameters |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   dt__SV   : Time  Step                                   [s] |
+!     ^^^^^    dz_dSV   : Layer Thickness                              [m] |
+!                                                                          |
+!     OUTPUT:  RF__SV   : Root Fraction in Layer isl                   [-] |
+!     ^^^^^^   rocsSV   : Soil Contrib. to (ro c)_s exclud.Water  [J/kg/K] |
+!              etamSV   : Soil Minimum Humidity                    [m3/m3] |
+!                        (based on a prescribed Soil Relative Humidity)    |
+!              s1__SV   : Factor of eta**( b+2) in Hydraul.Diffusiv.       |
+!              s2__SV   : Factor of eta**( b+2) in Hydraul.Conduct.        |
+!              aKdtSV   : KHyd: Piecewise Linear Profile:  a * dt    [m]   |
+!              bKdtSV   : KHyd: Piecewise Linear Profile:  b * dt    [m/s] |
+!              dzsnSV(0): Soil first Layer Thickness                   [m] |
+!              dzmiSV   : Distance between two contiguous levels       [m] |
+!              dz78SV   : 7/8 (Layer Thickness)                        [m] |
+!              dz34SV   : 3/4 (Layer Thickness)                        [m] |
+!              dz_8SV   : 1/8 (Layer Thickness)                        [m] |
+!              dzAvSV   : 1/8  dz_(i-1) + 3/4 dz_(i) + 1/8 dz_(i+1)    [m] |
+!              dtz_SV   : dt/dz                                      [s/m] |
+!              OcndSV   : Swab Ocean / Soil Ratio                      [-] |
+!              Implic   : Implicit Parameter  (0.5:  Crank-Nicholson)      |
+!              Explic   : Explicit Parameter = 1.0 - Implic                |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #SH: Soil /Vegetation Model: Hapex-Sahel   Vegetation     DATA       |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #ER: Richards Equation is not smoothed                               |
+!     #kd: Soil: De Ridder Discretization is forced                        |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_ctr
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      integer           ::  ivt   ,ist   ,ikl,ikv   ,isl   ,isn   ,ikh
+      integer           ::  misl_2,nisl_2
+      real(kind=real8)  ::  zDepth
+      real(kind=real8)  ::  d__eta,eta__1,eta__2,Khyd_1,Khyd_2
+      real(kind=real8)  ::  RHsMin=0.001                    ! Min.Soil Relative Humidity
+      real(kind=real8)  ::  PsiMax                          ! Max.Soil Water    Potential
+      real(kind=real8)  ::  a_Khyd,b_Khyd                   ! Piecewis.Water Conductivity
+ 
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #kw real(kind=real8)  ::  Khyd_x,Khyd_y
+ 
+ 
+ 
+! Non Time Dependant SISVAT parameters
+! ====================================
+ 
+! Decay of Angle(Wind,Sastrugi) Influence on z0 (Andreas, 1995, CCREL report 95-16)
+! ---------------------------------------------
+ 
+! #Za   Adz0dt = exp(-dt__SV/43200.)
+ 
+ 
+! Soil Discretization
+! -------------------
+ 
+! Numerical Scheme Parameters
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        Implic = 0.75                           ! 0.5  <==> Crank-Nicholson
+        Explic = 1.00 - Implic                  !
+ 
+! Soil/Snow Layers Indices
+! ^^^^^^^^^^^^^^^^^^^^^^^^
+      DO  isl=-nsoil,0
+        islpSV(isl) =            isl+1
+        islpSV(isl) = min(       islpSV(isl),0)
+        islmSV(isl) =            isl-1
+        islmSV(isl) = max(-nsoil,islmSV(isl))
+      END DO
+ 
+      DO  isn=1,nsnow
+        isnpSV(isn) =           isn+1
+        isnpSV(isn) = min(      isnpSV(isn),nsnow)
+      END DO
+ 
+! Soil      Layers Thicknesses: De Ridder discretization
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^^^^^
+! #kd IF (nsoil.gt.4)                                             THEN
+! #kd   DO isl=-5,-nsoil,-1
+! #kd     dz_dSV(isl)=   1.
+! #kd   END DO
+! #kd END IF
+ 
+! Soil      Layers Thicknesses: standard  discretization
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^^^^^
+      IF (nsoil.ne.4)                                             THEN
+        DO isl= 0,-nsoil,-1
+          misl_2 =     -mod(isl,2)
+          nisl_2 =         -isl/2
+          dz_dSV(isl)=(((1-misl_2) * 0.001                              &
+     &                  +  misl_2  * 0.003) * 10**(nisl_2)) * 4.
+!         dz_dSV(0)  =         Hapex-Sahel Calibration:       4 mm
+ 
+        END DO
+! tun     dz_dSV(0)  =               0.001
+! tun     dz_dSV(-1) = dz_dSV(-1)  - dz_dSV(0)          + 0.004
+      END IF
+ 
+        zz_dSV      = 0.
+      DO  isl=-nsoil,0
+        dzmiSV(isl) = 0.500*(dz_dSV(isl)        +dz_dSV(islmSV(isl)))
+        dziiSV(isl) = 0.500* dz_dSV(isl)        /dzmiSV(isl)
+        dzi_SV(isl) = 0.500* dz_dSV(islmSV(isl))/dzmiSV(isl)
+        dtz_SV(isl) =        dt__SV             /dz_dSV(isl)
+        dz78SV(isl) = 0.875* dz_dSV(isl)
+        dz34SV(isl) = 0.750* dz_dSV(isl)
+        dz_8SV(isl) = 0.125* dz_dSV(isl)
+        dzAvSV(isl) = 0.125* dz_dSV(islmSV(isl))                        &
+     &              + 0.750* dz_dSV(isl)                                &
+     &              + 0.125* dz_dSV(islpSV(isl))
+ 
+! Richards Equation is not smoothed
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #ER   dz78SV(isl) =        dz_dSV(isl)
+! #ER   dz34SV(isl) =        dz_dSV(isl)
+! #ER   dz_8SV(isl) = 0.
+! #ER   dzAvSV(isl) =        dz_dSV(isl)
+ 
+        zz_dSV      = zz_dSV+dz_dSV(isl)
+      END DO
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        dzsnSV(ikl,ikv,0) =      dz_dSV(0)
+      END DO
+      END DO
+ 
+! Conversion to a 50 m Swab Ocean Discretization
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        OcndSV = 0.
+      DO isl=-nsoil,0
+        OcndSV = OcndSV +dz_dSV(isl)
+      END DO
+        OcndSV = 50.    /OcndSV
+ 
+ 
+! Secondary Vegetation Parameters
+! -------------------------------
+ 
+! Minimum Stomatal Resistance (Hapex Sahel Data)
+! (Taylor et al. 1997, J.Hydrol 188-189, p.1047)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+      DO ivg=1,3                       !
+        StodSV(ivg) = 210.             ! Millet
+      END DO                           !
+        StodSV(  4) = 120.             ! Sparse Tiger Bush
+      DO ivg=5,6                       !
+        StodSV(ivg) =  80.             ! Dense  Tiger Bush
+      END DO                           !
+        StodSV(  7) =  80.             ! Low    Trees (Fallow)
+        StodSV( 10) =  80.             !
+ 
+! Minimum Stomatal Resistance (Tropical Forest)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        StodSV(  8) =  60.             ! Medium Trees
+        StodSV( 11) =  60.             !
+        StodSV(  9) =  40.             ! High   Trees
+        StodSV( 12) =  40.             !
+ 
+! Root Fraction
+! ^^^^^^^^^^^^^
+!    * GENERAL REFERENCE
+!      Jackson et al., 1996: A global analysis of root distributions for
+!      terrestrial biomes. In Oecologia, 108, 389-411.
+ 
+!    * ROOT PROFILE
+!      The cumulative root fraction Y is given by
+!          Y = 1 - beta**d   with d    the depth (in cm),
+!                                 beta a coefficient (vegetation dependent).
+ 
+!    * BETA VALUES (for 11 world biomes)
+!    1  boreal forest                0.943
+!    2  crops                        0.961
+!    3  desert                       0.975
+!    4  sclerophyllous shrubs        0.964
+!    5  temperate coniferous forest  0.976
+!    6  temperate deciduous forest   0.966
+!    7  temperate grassland          0.943
+!    8  tropical deciduous forest    0.961
+!    9  tropical evergreen forest    0.962
+!    10 tropical grassland savanna   0.972
+!    11 tundra                       0.914
+ 
+!    * ADVISED BETA VALUES FOR MAR
+!      (see 'block data SISVAT_dat', variable rbtdSV)
+!
+!      SVAT veg. type         default      West Africa
+!      0  barren soil         0.000        0.000
+!      1  crops low           0.961 (2)    0.961 (2)
+!      2  crops medium        0.961 (2)    0.961 (2)
+!      3  crops high          0.961 (2)    0.961 (2)
+!      4  grass low           0.943 (7)    0.943 (7)
+!      5  grass medium        0.943 (7)    0.964 (4)
+!      6  grass high          0.943 (7)    0.972 (10)
+!      7  broadleaf low       0.966 (6)    0.968 (4,10)
+!      8  broadleaf medium    0.966 (6)    0.962 (8,9)
+!      9  broadleaf high      0.966 (6)    0.962 (8,9)
+!      10 needleleaf low      0.976 (5)    0.971 (5,6)
+!      11 needleleaf medium   0.976 (5)    0.976 (5)
+!      12 needleleaf high     0.976 (5)    0.976 (5)
+ 
+!      Numbers between brackets refer to Jackson's biomes. For more details
+!      about some choices, see the correspondance between the IGBP and SVAT
+!      vegetation classes (i.e. in NESTOR).
+ 
+!    * WARNING
+!      Most of the roots are located in the first 2 m of soil. The root
+!      fraction per layer depends on the definition of the soil layer
+!      thickness. It will get wrong if a thick layer is defined around 2 m
+!      deep.
+ 
+      write(*,'(/a)') 'ROOT PROFILES (Jackson, 1996) :'
+ 
+      DO ivt = 0, nvgt
+        zDepth = 0.
+        DO isl = 0, -nsoil, -1
+          IF (ivt .ne. 0) THEN
+            RF__SV(ivt,isl) =  rbtdSV(ivt)**zDepth *                    &
+     &                         (1. - rbtdSV(ivt)**(dz_dSV(isl)*100) )
+            zDepth = zDepth + dz_dSV(isl)*100  !in cm
+          ELSE
+            RF__SV(ivt,isl) = 0.
+          END IF
+        END DO
+        write(*,'(a,i2,a,i3,a,99f10.5:)')                               &
+     &       '  RF__SV(', ivt, ',',-nsoil, ':0) =', RF__SV(ivt,:)
+      END DO
+      write(6,6600)
+ 6600 format(                                                           &
+     &  '  NOTE: If root fraction is not close to 0  around 2 m deep,', &
+     &/,'        Then you should redefine the soil layer thicknesses.', &
+     &/,'        See the code for more details.')
+ 
+ 
+! Secondary Soil       Parameters
+! -------------------------------
+ 
+      DO  ist=0,nsot
+         rocsSV(ist)=(1.0-etadSV(ist))*1.2E+6  ! Soil Contrib. to (ro c)_s
+         s1__SV(ist)=     bCHdSV(ist)         &! Factor of (eta)**(b+2)
+     &  *psidSV(ist)     *Ks_dSV(ist)         &!    in DR97, Eqn.(3.36)
+     & /(etadSV(ist)**(   bCHdSV(ist)+3.))     !
+         s2__SV(ist)=     Ks_dSV(ist)         &! Factor of (eta)**(2b+3)
+     & /(etadSV(ist)**(2.*bCHdSV(ist)+3.))     !    in DR97, Eqn.(3.35)
+ 
+! Soil Minimum Humidity (from a prescribed minimum relative Humidity)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+         Psimax = -(log(RHsMin))/7.2E-5        ! DR97, Eqn 3.15 Inversion
+         etamSV(ist) =  etadSV(ist)           &!
+     &         *(PsiMax/psidSV(ist))**(-min(10.,1./bCHdSV(ist)))
+      END DO
+         etamSV(12)  =  0.
+ 
+! Piecewise Hydraulic Conductivity Profiles
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+      DO   ist=0,nsot
+ 
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #kw     write(6,6000)
+ 6000     format(' Type |    etaSat | No |    eta__1 |    eta__2 |',    &
+     &           '    Khyd_1 |    Khyd_x |    Khyd_2 |    Khyd_y |',    &
+     &         /,' -----+-----------+----+-----------+-----------+',    &
+     &           '-----------+-----------+-----------+-----------+')
+ 
+          d__eta          =  etadSV(ist)/nkhy
+          eta__1          =  0.
+          eta__2          =  d__eta
+        DO ikh=0,nkhy
+          Khyd_1          =  s2__SV(ist)            &! DR97, Eqn.(3.35)
+     &  *(eta__1      **(2. *bCHdSV(ist)+3.))        !
+          Khyd_2          =  s2__SV(ist)            &!
+     &  *(eta__2      **(2. *bCHdSV(ist)+3.))        !
+ 
+          a_Khyd          = (Khyd_2-Khyd_1)/d__eta   !
+          b_Khyd          =  Khyd_1-a_Khyd *eta__1   !
+ 
+          aKdtSV(ist,ikh) =  a_Khyd       * dt__SV   !
+          bKdtSV(ist,ikh) =  b_Khyd       * dt__SV   !
+ 
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #kw     Khyd_x          =  a_Khyd*eta__1 +b_Khyd   !
+! #kw     Khyd_y          =  a_Khyd*eta__2 +b_Khyd   !
+! #kw     write(6,6001) ist,etadSV(ist),ikh,eta__1, &!
+! #kw&          eta__2,Khyd_1,Khyd_x,Khyd_2,Khyd_y   !
+ 6001     format(i5,' |',e10.2,' |',i3,' |',        &!
+     &                 6(e10.2,' |'))
+ 
+          eta__1          = eta__1  + d__eta
+          eta__2          = eta__2  + d__eta
+        END DO
+      END DO
+ 
+ 
+      return
+      end subroutine SISVAT_ini
+ 
+ 
+ 
+      subroutine SISVAT(jjtime,kcolw)
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT                               Sat 29-Jun-2013  MAR |
+!     SubRoutine SISVAT contains the fortran 77 code of the                |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 14-Feb-2013      |
+!           Last Modification by H. Gallee,           Sat 29-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   daHost   : Date Host Model                                  |
+!     ^^^^^                                                                |
+!                                                                          |
+!     INPUT:   LSmask   : 1:          Land       MASK                      |
+!     ^^^^^               0:          Sea        MASK                      |
+!              ivgtSV   = 0,...,12:   Vegetation Type                      |
+!              isotSV   = 0,...,12:   Soil       Type                      |
+!                         0:          Water,          Liquid (Sea, Lake)   |
+!                        12:          Water, Solid           (Ice)         |
+!                                                                          |
+!     INPUT:   coszSV   : Cosine of the Sun Zenithal Distance          [-] |
+!     ^^^^^    sol_SV   : Surface Downward  Solar      Radiation    [W/m2] |
+!              IRd_SV   : Surface Downward  Longwave   Radiation    [W/m2] |
+!              drr_SV   : Rain  Intensity                        [kg/m2/s] |
+!              dsn_SV   : Snow  Intensity                      [mm w.e./s] |
+!              dsnbSV   : Snow  Intensity,  Drift Fraction             [-] |
+!              dbs_SV   : Drift Amount                           [mm w.e.] |
+!              za__SV   : Surface Boundary Layer (SBL) Height          [m] |
+!              VV__SV   :(SBL Top)   Wind Velocity                   [m/s] |
+!              TaT_SV   : SBL Top    Temperature                       [K] |
+!              rhT_SV   : SBL Top    Air  Density                  [kg/m3] |
+!              QaT_SV   : SBL Top    Specific  Humidity            [kg/kg] |
+!              qsnoSV   : SBL Mean   Snow      Content             [kg/kg] |
+!              LAI0SV   : Leaf Area  Index                             [-] |
+!              glf0SV   : Green Leaf Fraction                          [-] |
+!              alb0SV   : Soil Basic Albedo                            [-] |
+!              dt__SV   : Time  Step                                   [s] |
+!                                                                          |
+!     INPUT /  isnoSV   = total Nb of Ice/Snow Layers                      |
+!     OUTPUT:  ispiSV   = 0,...,nsno: Uppermost Superimposed Ice Layer     |
+!     ^^^^^^   iiceSV   = total Nb of Ice      Layers                      |
+!              istoSV   = 0,...,5 :   Snow     History (see istdSV data)   |
+!                                                                          |
+!     INPUT /  alb_SV   : Surface-Canopy Albedo                        [-] |
+!     OUTPUT:  emi_SV   : Surface-Canopy Emissivity                    [-] |
+!     ^^^^^^   IRs_SV   : Soil           IR Flux  (negative)        [W/m2] |
+!              LMO_SV   : Monin-Obukhov               Scale            [m] |
+!              us__SV   : Friction          Velocity                 [m/s] |
+!              uts_SV   : Temperature       Turbulent Scale          [m/s] |
+!              uqs_SV   : Specific Humidity Velocity                 [m/s] |
+!              uss_SV   : Blowing Snow      Turbulent Scale          [m/s] |
+!              usthSV   : Blowing Snow      Erosion   Threshold      [m/s] |
+!              Z0m_SV   : Momentum     Roughness Length                [m] |
+!              Z0mmSV   : Momentum     Roughness Length (time mean)    [m] |
+!              Z0mnSV   : Momentum     Roughness Length (instantaneous)[m] |
+!              Z0SaSV   : Sastrugi     Roughness Length                [m] |
+!              Z0e_SV   : Erosion Snow Roughness Length                [m] |
+!              Z0emSV   : Erosion Snow Roughness Length (time mean)    [m] |
+!              Z0enSV   : Erosion Snow Roughness Length (instantaneous)[m] |
+!              Z0roSV   : Subgrid Topo Roughness Length                [m] |
+!              Z0h_SV   : Heat         Roughness Length                [m] |
+!              snCaSV   : Canopy   Snow     Thickness            [mm w.e.] |
+!              rrCaSV   : Canopy   Water    Content                [kg/m2] |
+!              psivSV   : Leaf     Water    Potential                  [m] |
+!              TvegSV   : Canopy   Temperature                         [K] |
+!              TsisSV   : Soil/Ice Temperatures (layers -nsoil ,...,0)     |
+!                       & Snow     Temperatures (layers  1,2,..,nsnow) [K] |
+!              ro__SV   : Soil/Snow Volumic Mass                   [kg/m3] |
+!              eta_SV   : Soil/Snow Water   Content                [m3/m3] |
+!              G1snSV   : snow dendricity/sphericity                       |
+!              G2snSV   : snow sphericity/grain size                       |
+!              dzsnSV   : Snow Layer        Thickness                  [m] |
+!              agsnSV   : Snow       Age                             [day] |
+!              BufsSV   : Snow Buffer Layer              [kg/m2] .OR. [mm] |
+!              BrosSV   : Snow Buffer Layer Density      [kg/m3]           |
+!              BG1sSV   : Snow Buffer Layer Dendricity / Sphericity    [-] |
+!              BG2sSV   : Snow Buffer Layer Sphericity / Size [-] [0.1 mm] |
+!              rusnSV   : Surficial   Water              [kg/m2] .OR. [mm] |
+!                                                                          |
+!     OUTPUT:  no__SV   : OUTPUT file Unit Number                      [-] |
+!     ^^^^^^   i___SV   : OUTPUT point   i Coordinate                  [-] |
+!              j___SV   : OUTPUT point   j Coordinate                  [-] |
+!              n___SV   : OUTPUT point   n Coordinate                  [-] |
+!              lwriSV   : OUTPUT point vec Index                       [-] |
+!                                                                          |
+!     OUTPUT:  IRu_SV   : Upward     IR Flux (+, upw., effective)      [K] |
+!     ^^^^^^   hSalSV   : Saltating Layer Height                       [m] |
+!              qSalSV   : Saltating Snow  Concentration            [kg/kg] |
+!              RnofSV   : RunOFF Intensity                       [kg/m2/s] |
+!                                                                          |
+!     Internal Variables:                                                  |
+!     ^^^^^^^^^^^^^^^^^^                                                   |
+!              NLaysv   = New            Snow Layer Switch             [-] |
+!              albisv   : Snow/Ice/Water/Soil Integrated Albedo        [-] |
+!              SoCasv   : Absorbed Solar Radiation by Canopy (Normaliz)[-] |
+!              SoSosv   : Absorbed Solar Radiation by Surfac.(Normaliz)[-] |
+!              tau_sv   : Fraction of Radiation transmitted by Canopy  [-] |
+!              TBr_sv   : Brightness Temperature                       [K] |
+!              IRupsv   : Upward     IR Flux (-, upw.)              [W/m2] |
+!              IRv_sv   : Vegetation IR Flux                        [W/m2] |
+!              rrMxsv   : Canopy Maximum Intercepted Rain          [kg/m2] |
+!              Sigmsv   : Canopy Ventilation Factor                    [-] |
+!              ram_sv   : Aerodynamic Resistance for Momentum        [s/m] |
+!              rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!              HSv_sv   : Vegetation Sensible Heat Flux             [W/m2] |
+!              HLv_sv   : Vegetation Latent   Heat Flux             [W/m2] |
+!              Rootsv   : Root Water Pump                        [kg/m2/s] |
+!              Evp_sv   : Evaporation                              [kg/m2] |
+!              EvT_sv   : Evapotranspiration                       [kg/m2] |
+!              HSs_sv   : Surface    Sensible Heat Flux + => absorb.[W/m2] |
+!              HLs_sv   : Surface    Latent   Heat Flux + => absorb.[W/m2] |
+!              Lx_H2O   : Latent Heat of Vaporization/Sublimation   [J/kg] |
+!              Tsrfsv   : Surface    Temperature                       [K] |
+!              LAI_sv   : Leaf Area  Index (snow included)             [-] |
+!              LAIesv   : Leaf Area  Index (effective / transpiration) [-] |
+!              glf_sv   : Green Leaf Fraction of NOT fallen Leaves     [-] |
+!              sEX_sv   : Verticaly Integrated Extinction Coefficient  [-] |
+!              LSdzsv   : Vertical   Discretization Factor             [-] |
+!                       =    1. Soil                                       |
+!                       = 1000. Ocean                                      |
+!              z_snsv   : Snow Pack  Thickness                         [m] |
+!              zzsnsv   : Snow Pack  Thickness                         [m] |
+!              albssv   : Soil       Albedo                            [-] |
+!              Evg_sv   : Soil+Vegetation Emissivity                   [-] |
+!              Eso_sv   : Soil+Snow       Emissivity                   [-] |
+!              psi_sv   : Soil       Water    Potential                [m] |
+!              Khydsv   : Soil   Hydraulic    Conductivity           [m/s] |
+!                                                                          |
+!              ETVg_d   : VegetationEnergy Power         Forcing    [W/m2] |
+!              ETSo_0   : Snow/Soil Energy Power, before Forcing    [W/m2] |
+!              ETSo_1   : Snow/Soil Energy Power, after  Forcing    [W/m2] |
+!              ETSo_d   : Snow/Soil Energy Power         Forcing    [W/m2] |
+!              EqSn_0   : Snow      Energy, before Phase Change     [J/m2] |
+!              EqSn_1   : Snow      Energy, after  Phase Change     [J/m2] |
+!              EqSn_d   : Snow      Energy,       net    Forcing    [J/m2] |
+!              Enrsvd   : SVAT      Energy Power         Forcing    [W/m2] |
+!              Enrbal   : SVAT      Energy Balance                  [W/m2] |
+!              Wats_0   : Soil Water,  before Forcing                 [mm] |
+!              Wats_1   : Soil Water,  after  Forcing                 [mm] |
+!              Wats_d   : Soil Water          Forcing                 [mm] |
+!              SIWm_0   : Snow        initial Mass               [mm w.e.] |
+!              SIWm_1   : Snow        final   Mass               [mm w.e.] |
+!              SIWa_i   : Snow Atmos. initial Forcing            [mm w.e.] |
+!              SIWa_f   : Snow Atmos. final   Forcing(noConsumed)[mm w.e.] |
+!              SIWe_i   : SnowErosion initial Forcing            [mm w.e.] |
+!              SIWe_f   : SnowErosion final   Forcing(noConsumed)[mm w.e.] |
+!              SIsubl   : Snow sublimed/deposed  Mass            [mm w.e.] |
+!              SImelt   : Snow Melted            Mass            [mm w.e.] |
+!              SIrnof   : Surficial Water + Run OFF Change       [mm w.e.] |
+!              SIvAcr   : Sea-Ice    vertical Acretion           [mm w.e.] |
+!              Watsvd   : SVAT Water          Forcing                 [mm] |
+!              Watbal   : SVAT Water  Balance                       [W/m2] |
+!                                                                          |
+!              dsn_Ca,snCa_n :     Snow Contribution to the Canopy[m w.e.] |
+!              drr_Ca,rrCa_n,drip: Rain Contribution to the Canopy [kg/m2] |
+!              vk2      : Square of Von Karman Constant                [-] |
+!              sqrCm0   : Factor of   Neutral Drag Coeffic.Momentum  [s/m] |
+!              sqrCh0   : Factor of   Neutral Drag Coeffic.Heat      [s/m] |
+!              EmiVeg   : Vegetation    Emissivity                     [-] |
+!              EmiSol   : Soil          Emissivity                     [-] |
+!              EmiSno   : Snow          Emissivity                     [-] |
+!              EmiWat   : Water         Emissivity                     [-] |
+!              Z0mSea   :          Sea  Roughness Length               [m] |
+!              Z0mLnd   :          Land Roughness Length               [m] |
+!              sqrrZ0   : u*t/u*                                           |
+!              f_eff    : Marticorena & B. 1995 JGR (20)                   |
+!              A_Fact   : Fundamental * Roughness                          |
+!              Z0mBSn   :         BSnow Roughness Length               [m] |
+!              Z0mBS0   : Mimimum BSnow Roughness Length (blown* )     [m] |
+!              Z0m_Sn   :          Snow Roughness Length (surface)     [m] |
+!              Z0m_S0   : Mimimum  Snow Roughness Length               [m] |
+!              Z0m_S1   : Maximum  Snow Roughness Length               [m] |
+!              Z0_GIM   : Minimum GIMEX Roughness Length               [m] |
+!              Z0_ICE   : Sea Ice ISW   Roughness Length               [m] |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #AE: TURBULENCE: Aerosols Erosion / Turbulent Diffusion Coeff.       |
+!     #BD: TraCer   Aeolian Erosion  Submodel           is turned ON       |
+!     #BS: Explicit Cloud MICROPHYSICS: Blow. *(Snow)         Model)       |
+!     #SN: SNOW Model                               may be turned ON       |
+!     #NP: SNOW Model: Snow Properties may be those of Polar Snow          |
+!     #ZG: SNOW Model: ETH-Camp & Greenland 3D simulations                 |
+!     #MB: SNOW Model: Erosion Efficiency (Marticorena & Berga.1995)       |
+!     #SI: SISVAT: Sea-Ice Fraction calculated from prescribed SST         |
+!     #MT: SISVAT: Monin-Obukhov Theory is linearized (Garrat schem)       |
+!     #SH: Soil /Vegetation Model: Hapex-Sahel   Vegetation     DATA       |
+!     #ZO: SBL: Orography Roughness included from SL_z0 in MARdom          |
+!     #ZW: SBL: Mom.: Roughn.Length= F(u*) Wang  MWR 129     ,  Sea        |
+!     #ZT: SBL: Mom.: Roughn.Length= Typical value in polar models         |
+!     #ZS: SBL: Mom.: Roughn.Length= F(u*) Andreas     (1995)  Snow        |
+!     #Za: SBL: Mom.: Roughn.Length= F(u*) Andreas &al.(2004), Snow (modif.|
+!     #ZA: SBL: Mom.: Roughn.Length= F(u*) Andreas &al.(2004), Snow (native|
+!     #RS: SBL: Heat: Roughn.Length= F(u*,z0)  Andreas (1987)  Snow, Ice   |
+!     #ZM: SBL: M/H   Roughn.Length: Box Moving Average (in Time)          |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Col de Porte                         |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^                                      |
+!     #CP: Col de Porte  Turbulence        Parameterization                |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #Zw: SBL: Mom.: Roughn.Length= F(u*) Wang  MWR 129 bis ,  Sea        |
+!     #ZN: SBL: Mom.: Roughn.Length= F(u*) Shao  & Lin (1999), Snow        |
+!     #ZL: SBL: Z0mL  Roughn.Length= F(glf)                                |
+!     #FL: SISVAT: LAI Assignation and Fallen Leaves Correction            |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_iii_jjj_n     | #e0: OUTPUT on ASCII  File (SISVAT Variables) |
+!   #                      |      Energy Budg. Verif.: Soil+(Sea-Ice)+Snow |
+!   #                      |(#e0  MUST BE PREPROCESSED BEFORE #e1 & #e2 !) |
+!   # SISVAT_iii_jjj_n     | #m0: OUTPUT/Verification: H2O    Conservation |
+!                          |                                               |
+!   # stdout               | #s0: OUTPUT of Snow Buffer Layer              |
+!                          |      unit  6, SubRoutine  SISVAT     **ONLY** |
+!   # stdout               | #s2: OUTPUT of SnowFall, Snow Buffer          |
+!                          |      unit  6, SubRoutine  SISVAT_BSn, _qSn    |
+!   # stdout               | #b0: OUTPUT of Snow Erosion Statistics        |
+!                          |      unit  6, SubRoutine  SISVAT_BSn **ONLY** |
+!   # stdout               | #sf: OUTPUT of SnowFall, Z0 and Drag Coeff.   |
+!                          |      unit  6, SubRoutines PHY_SISVAT, SISVAT  |
+!   # stdout               | #sz: OUTPUT of Roughness Length & Drag Coeff. |
+!                          |      unit  6, SubRoutine  SISVAT     **ONLY** |
+!                                                                          |
+!     SUGGESTIONS of MODIFICATIONS: see lines beginning with "C +!!!"      |
+!     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^                                         |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_CdP
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_log
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_aux
+! #BS use Mod_SISVAT_BSn
+ 
+      use Mod_SISVATLmmm
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+      integer           ::  jjtime
+      integer           ::  kcolw
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+! Non Local
+! ---------
+ 
+      real(kind=real8)                                 d_Bufs,Bufs_N   ! Buffer Snow Layer Increment
+      real(kind=real8)                                 Buf_ro,Bros_N   ! Buffer Snow Layer Density
+! #NP real(kind=real8)                                 BufPro          ! Buffer Snow Layer Density
+      real(kind=real8)                                 Buf_G1,BG1__N   ! Buffer Snow Layer Dendr/Sphe[-]
+      real(kind=real8)                                 Buf_G2,BG2__N   ! Buffer Snow Layer Spher/Size[-]
+ 
+! Energy         Budget
+! ~~~~~~~~~~~~~~~~~~~~~
+! #e1 real(kind=real8),              dimension(kcolw)::ETSo_0          ! Soil/Snow Power, before Forcing
+! #e1 real(kind=real8),              dimension(kcolw)::ETSo_1          ! Soil/Snow Power, after  Forcing
+! #e1 real(kind=real8),              dimension(kcolw)::ETSo_d          ! Soil/Snow Power, Forcing
+ 
+ 
+! Local
+! -----
+ 
+! #e0 character(len=16)                            ::  FilNam          !
+! #e0 integer                                      ::  noUNIT          ! OUTPUT File  Unit Number
+ 
+      integer                                      ::  ikl   ,ikv      !
+      integer                                      ::  isn   ,isl      !
+      integer                                      ::  ist   ,n        !
+      integer                                      ::  ist__s,ist__w   ! Soil/Water Body Identifier
+      integer                                      ::  growth          ! Seasonal               Mask
+      integer                                      ::  LISmsk          ! Land+Ice / Open    Sea Mask
+      integer                                      ::  LSnMsk          ! Snow-Ice / No Snow-Ice Mask
+      integer                                      ::  IceMsk          !      Ice               Mask
+      integer                                      ::  SnoMsk          ! Snow     / No Snow     Mask
+ 
+      real(kind=real8)                             ::  drip            ! Rain Contribution to the Canopy
+      real(kind=real8)                             ::  drr_Ca,rrCa_n   ! Rain Contribution to the Canopy
+      real(kind=real8)                             ::  dsn_Ca,snCa_n   ! Snow Contribution to the Canopy
+      real(kind=real8)                             ::  roSMin =  30.   ! Minimum Snow Density
+      real(kind=real8)                             ::  roSn_1 = 109.   ! Fallen  Snow Density, Indep. Param. (PAHAUT)
+      real(kind=real8)                             ::  roSn_2 =   6.   ! Fallen  Snow Density, Temper.Param. (PAHAUT)
+      real(kind=real8)                             ::  roSn_3 =  26.   ! Fallen  Snow Density, Wind   Param. (PAHAUT)
+      real(kind=real8)                             ::  Dendr1 =  17.12 ! Fallen  Snow Dendric. Wind 1/Param. (GIRAUD)
+      real(kind=real8)                             ::  Dendr2 = 128.   ! Fallen  Snow Dendric. Wind 2/Param. (GIRAUD)
+      real(kind=real8)                             ::  Dendr3 = -20.   ! Fallen  Snow Dendric. Indep. Param. (GIRAUD)
+ 
+      real(kind=real8)                             ::  Spher1 =   7.87 ! Fallen  Snow Spheric.,Wind 1/Param.
+      real(kind=real8)                             ::  Spher2 =  38.   ! Fallen  Snow Spheric.,Wind 2/Param.
+      real(kind=real8)                             ::  Spher3 =  50.   ! Fallen  Snow Spheric.,Wind 3/Param.
+      real(kind=real8)                             ::  Spher4 =  90.   ! Fallen  Snow Spheric.,Indep. Param. (GIRAUD)
+      real(kind=real8)                             ::  Polair          ! Polar   Snow Switch
+! #BS real(kind=real8)                             ::  PorSno          !
+      real(kind=real8)                             ::  Salt_f,PorRef   !
+ 
+! For Diffusion of Surficial Water in the Snow Pack
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #DW real(kind=real8)                             ::  PorVol,rWater   ! Pore Volume, retained Water
+! #DW real(kind=real8)                             ::  rusNEW,rdzNEW,etaNEW
+ 
+! #BS real(kind=real8)                             ::  ro_new          !
+! #NP real(kind=real8)                             ::  TaPole = 263.15 ! Maximum     Polar Temperature
+      real(kind=real8)                             ::  T__Min = 200.00 ! Minimum realistic Temperature
+ 
+! DATA      Emissivities                                               ! Pielke, 1984, pp. 383,409
+! ^^^^^^^^^^^^^^^^^^^^^^
+      real(kind=real8)                             ::  EmiVeg =   0.98 ! Emissivity of Vegetation
+      real(kind=real8)                             ::  EmiSol =   0.94 ! Emissivity of       Soil
+      real(kind=real8)                             ::  EmiSno =   0.99 ! Emissivity of            Snow
+      real(kind=real8)                             ::  EmiWat =   0.99 ! Emissivity of a Water Area
+ 
+      real(kind=real8)                             ::  epsLMO = 1.e-18 ! minimum absolute value of LMo
+      real(kind=real8)                             ::  vk2             ! Square of Von Karman Constant
+      real(kind=real8)                             ::  u2star          !(u*)**2
+! #ZL real(kind=real8)                             ::  fallen =   0.00 ! Fallen   Leaves         Switch
+      real(kind=real8)                             ::  Z0mSea,Z0hSea   !          Sea  Roughness Length
+      real(kind=real8)                             ::  Z0mLnd          !          Land Roughness Length
+! #ZN real(kind=real8)                             ::  sqrrZ0          ! u*t/u*
+! #MB real(kind=real8)                             ::  f_eff           ! Marticorena & B. 1995 JGR (20)
+      real(kind=real8)                             ::  A_Fact          ! Fundamental * Roughness
+ 
+      real(kind=real8)                             ::  Z0m_nu          ! Smooth R Snow Roughness Length
+      real(kind=real8)                             ::  Z0mBSn          !         BSnow Roughness Length
+      real(kind=real8)                             ::  Z0mBS0 = 0.5e-6 ! MINimum BSnow Roughness Length, Momentum
+                                                                       ! Gallee et al. 2001 BLM 99 (19)
+!     real(kind=real8)                             ::  Z0m_S0 = 0.00005! MINimum  Snow Roughness Length
+!     real(kind=real8)                             ::  Z0m_S1 = 0.030  ! MAXimum  Snow Roughness Length, Sastrugis
+! #ZS real(kind=real8)                             ::  Z0Sa_N          ! Regime   Snow Roughness Length
+! #ZS real(kind=real8)                             ::  Z0SaSi          ! 1.IF Rgm Snow Roughness Length
+! #ZG real(kind=real8)                             ::  Z0_GIM = 0.0013 ! Mimimum GIMEX Roughness Length  Ice Min Z0 = 0.0013 m (Broeke)
+                                                                       !                                 Old Ice Z0 = 0.0500 m (Bruce)
+                                                                       !                                              0.0500 m (Smeets)
+                                                                       !                                              0.1200 m (Broeke)
+      real(kind=real8)                             ::  Z0_ICE = 0.0010 ! Sea-Ice ISW   Roughness Length                        (Andreas)
+      real(kind=real8)                             ::  Z0m_Sn          ! Snow  Surface Roughness Length
+! #Za real(kind=real8)                             ::  Z0m_90          ! Snow  Surface Roughness Length
+      real(kind=real8)                             ::  SnoWat          ! Snow Layer    Switch
+! #RS real(kind=real8)                             ::  rstar,alors     !
+! #RS real(kind=real8)                             ::  rstar0,rstar1   !
+! #RS real(kind=real8)                             ::  rstar2          !
+      real(kind=real8)                             ::  SameOK          ! 1. => Same Type of Grains
+      real(kind=real8)                             ::  G1same          ! Averaged G1,  same Grains
+      real(kind=real8)                             ::  G2same          ! Averaged G2,  same Grains
+      real(kind=real8)                             ::  typ__1          ! 1. => Lay1 Type: Dendritic
+      real(kind=real8)                             ::  zroNEW          ! dz X ro, if fresh Snow
+      real(kind=real8)                             ::  G1_NEW          ! G1,      if fresh Snow
+      real(kind=real8)                             ::  G2_NEW          ! G2,      if fresh Snow
+      real(kind=real8)                             ::  zroOLD          ! dz X ro, if old   Snow
+      real(kind=real8)                             ::  G1_OLD          ! G1,      if old   Snow
+      real(kind=real8)                             ::  G2_OLD          ! G2,      if old   Snow
+      real(kind=real8)                             ::  SizNEW          ! Size,    if fresh Snow
+      real(kind=real8)                             ::  SphNEW          ! Spheric.,if fresh Snow
+      real(kind=real8)                             ::  SizOLD          ! Size,    if old   Snow
+      real(kind=real8)                             ::  SphOLD          ! Spheric.,if old   Snow
+      real(kind=real8)                             ::  Siz_av          ! Averaged    Grain Size
+      real(kind=real8)                             ::  Sph_av          ! Averaged    Grain Spher.
+      real(kind=real8)                             ::  Den_av          ! Averaged    Grain Dendr.
+      real(kind=real8)                             ::  DendOK          ! 1. => Average is  Dendr.
+      real(kind=real8)                             ::  G1diff          ! Averaged G1, diff. Grains
+      real(kind=real8)                             ::  G2diff          ! Averaged G2, diff. Grains
+      real(kind=real8)                             ::  G1              ! Averaged G1
+      real(kind=real8)                             ::  G2              ! Averaged G2
+ 
+! Energy and Mass Budget
+! ~~~~~~~~~~~~~~~~~~~~~~
+! #e1 real(kind=real8)                             ::    EnsBal        ! Soil+Snow   , Power  Balance
+! #e1 real(kind=real8)                             ::    EnvBal        !      Vegetat, Power  Balance
+ 
+                                                                       ! H2O    Conservation
+! #m0 real(kind=real8)                                   Watbal        ! Soil+Vegetat, Water  Balance
+ 
+                                                                       ! * Mass Conservation
+! #m1 real(kind=real8)                             ::    SnoBal        ! Snow Pack     Mass   Balance
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! ALLOCATION                                              !
+! ==========                                              !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)               THEN !
+ 
+      allocate            ( TBr_sv(kcolp,mwp) )           ! Brightness Temperature
+      allocate            ( IRdwsv(kcolp,mwp) )           ! DOWNward   IR Flux
+      allocate            ( IRupsv(kcolp,mwp) )           ! UPward     IR Flux
+      allocate            ( Bdzssv(kcolp,mwp) )           ! Buffer Snow Layer Thickness
+      allocate            ( z_snsv(kcolp,mwp) )           ! Snow-Ice, current Thickness
+ 
+! Energy         Budget
+! ~~~~~~~~~~~~~~~~~~~~~
+! #e1 allocate            ( ETVg_d(kcolp,mwp) )           ! VegetationPower, Forcing
+! #e1 allocate            ( EqSn_0(kcolp,mwp) )           ! Snow Energy, befor Phase Change
+! #e1 allocate            ( EqSn_1(kcolp,mwp) )           ! Snow Energy, after Phase Change
+! #e1 allocate            ( EqSn_d(kcolp,mwp) )           ! Energy in Excess
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #m0 allocate            ( Wats_0(kcolp,mwp) )           ! Soil Water,  before Forcing
+! #m0 allocate            ( Wats_1(kcolp,mwp) )           ! Soil Water,  after  Forcing
+! #m0 allocate            ( Wats_d(kcolp,mwp) )           ! Soil Water,         Forcing
+ 
+! OUTPUT/Verification: * Mass Conservation
+! #m1 allocate            ( SIsubl(kcolp,mwp) )           ! Snow Sublimed/Deposed Mass
+! #m1 allocate            ( SImelt(kcolp,mwp) )           ! Snow Melted           Mass
+! #m1 allocate            ( SIrnof(kcolp,mwp) )           ! Local Surficial Water + Run OFF
+ 
+! OUTPUT/Verification: SeaIce Conservation
+! #m2 allocate            ( SIvAcr(kcolp,mwp) )           ! Sea-Ice      Vertical Acretion
+ 
+! Energy and Mass Budget
+! ~~~~~~~~~~~~~~~~~~~~~~
+! #e1 allocate            ( Enrsvd(kcolp,mwp) )           ! Soil+Vegetat  Power  Forcing
+ 
+                                                          ! H2O    Conservation
+! #m0 allocate            ( Watsv0(kcolp,mwp) )           ! Soil+Vegetat, before Forcing
+! #m0 allocate            ( Watsvd(kcolp,mwp) )           ! Soil+Vegetat  Water  Forcing
+ 
+                                                          ! * Mass Conservation
+! #m1 allocate            ( SIWm_0(kcolp,mwp) )           ! Snow Initial              Mass
+! #m1 allocate            ( SIWm_1(kcolp,mwp) )           ! Snow Final                Mass
+! #m1 allocate            ( SIWa_i(kcolp,mwp) )           ! Snow Initial       ATM Forcing
+! #m1 allocate            ( SIWa_f(kcolp,mwp) )           ! Snow Final         ATM Forcing
+! #m1 allocate            ( SIWe_i(kcolp,mwp) )           ! Snow Initial       BLS Forcing
+! #m1 allocate            ( SIWe_f(kcolp,mwp) )           ! Snow Final         BLS Forcing
+ 
+ 
+      allocate            ( IcIndx(kcolp,mwp) )           ! No   Ice               Mask
+ 
+      allocate            ( FallOK(kcolp,mwp) )           ! Snow Contribution to the Canopy
+ 
+      END IF                                              !
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Internal DATA
+! =============
+ 
+      vk2    =  vonKrm  *  vonKrm             ! Square of Von Karman Constant
+! #FL fallen =             1.                 ! Fallen  Leaves         Switch
+ 
+! #ZD Z0m_S0 =             0.00200            ! MINimum Snow Roughness Length
+                                              ! MegaDunes    included
+ 
+ 
+! BEGIN.main.
+! ===========
+ 
+      IF (.not.iniOUT)                                              THEN
+               iniOUT = .true.
+ 
+! Snow Pack Thickness
+! -------------------
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            z_snsv(ikl,ikv)     = 0.0
+          END DO
+          END DO
+        DO   isn=1,nsnow
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            z_snsv(ikl,ikv)     = z_snsv(ikl,ikv) + dzsnSV(ikl,ikv,isn)
+            zzsnsv(ikl,ikv,isn) = z_snsv(ikl,ikv)
+          END DO
+          END DO
+        END DO
+ 
+ 
+! SISVAT Forcing VERIFICATION
+! ---------------------------
+ 
+        IF (IRs_SV(1,1).gt.-eps6)                                       &
+     &  write(6,600)
+ 600    format(/,'### SISVAT ERROR, Soil IR Upward  not defined ###',   &
+     &         /,'###               Initialize and Store IRs_SV ###')
+ 
+ 
+! OUTPUT
+! ------
+ 
+                    FilLab              ='SISVAT'
+                    SepLab              ='_'
+                    nwUNIT              = 51
+      END IF
+ 
+! #e0 DO ikl=1,kcolp
+! #e0 DO ikv=1,mwp
+! #e0   IF   (lwriSV(ikl,ikv).ne.0.AND.no__SV(lwriSV(ikl,ikv)).eq.0)THEN
+! #e0                nwUNIT              = nwUNIT+1
+! #e0                no__SV(lwriSV(ikl,ikv)) = nwUNIT
+! #e0      write(FilNam,'(a6,a1,2(i3.3,a1),i1)')                        &
+! #e0&           FilLab,SepLab,i___SV(lwriSV(ikl,ikv)),                 &
+! #e0&                  SepLab,j___SV(lwriSV(ikl,ikv)),                 &
+! #e0&                  SepLab,n___SV(lwriSV(ikl,ikv))
+! #e0      open(unit=nwUNIT,status='unknown',file=FilNam)
+! #e0      rewind    nwUNIT
+! #e0   END IF
+! #e0 END DO
+! #e0 END DO
+ 
+! #e0 DO ikl=1,kcolp
+! #e0 DO ikv=1,mwp
+! #e0   IF (lwriSV(ikl,ikv).ne.0)                                   THEN
+! #e0           noUNIT=no__SV(lwriSV(ikl,ikv))
+! #e0     write(noUNIT,5000) daHost,i___SV(lwriSV(ikl,ikv)),            &
+! #e0&                              j___SV(lwriSV(ikl,ikv)),            &
+! #e0&                              n___SV(lwriSV(ikl,ikv)),            &
+! #e0&                                     Z0m_SV(ikl,ikv) ,            &
+! #e0&                                     albisv(ikl,ikv)
+ 5000     format(                                                       &
+     &       /,              a18,'|           Grid Point ',2i4,         &
+     &                                           ' (',i2,')',           &
+     &         '    | Z0m =',f12.6,' | Albedo = ',f6.3,' |',            &
+     &       /,' -------+',7('---------+'),2('--------+'))
+! #e0   END IF
+! #e0 END DO
+! #e0 END DO
+ 
+ 
+! "Soil" Humidity of Water Bodies
+! ===============================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+          ist    =      isotSV(ikl,ikv)                   ! Soil Type
+          ist__s =  min(ist, 1)                           ! 1 => Soil
+          ist__w =  1 - ist__s                            ! 1 => Water Body
+        DO isl=-nsoil,0
+          eta_SV(ikl,ikv,isl) = eta_SV(ikl,ikv,isl) * ist__s &! Soil
+     &                    + etadSV(ist)     * ist__w      ! Water Body
+        END DO
+ 
+ 
+! Vertical Discretization Factor
+! ==============================
+ 
+          LSdzsv(ikl,ikv)     =                   ist__s &! Soil
+     &                    + OcndSV          * ist__w      ! Water Body
+      END DO
+      END DO
+ 
+ 
+! Vegetation Temperature Limits
+! =============================
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            TvegSV(ikl,ikv) = max(TvegSV(ikl,ikv),T__Min) ! T__Min = 200.K
+ 
+ 
+! LAI Assignation and Fallen Leaves Correction (#FL)! Dead Leaves fall
+! ==================================================! => LAI = Green Leaves only
+                                                    ! => GLF = 1
+ 
+            LAI0SV(ikl,ikv) =     LAI0SV(ikl,ikv)*min(1,ivgtSV(ikl,ikv)) ! NO LAI if
+!                                                            ! no vegetation
+            glf_sv(ikl,ikv) =     glf0SV(ikl,ikv)
+! #FL       glf_sv(ikl,ikv) =     1.                         ! #FL
+            LAI_sv(ikl,ikv) =     LAI0SV(ikl,ikv)        &   !
+! #FL&               *        glf0SV(ikl,ikv)            &   ! #FL
+     &               +        0.
+          END DO
+          END DO
+ 
+ 
+! LAI in Presence of Snow
+! =======================
+ 
+!         ASSUMPTION: LAI decreases   when Snow Thickness increases,
+!         ^^^^^^^^^^      becoming  0 when Snow Thickn. = Displac.Height
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            LAI_sv(ikl,ikv) =     LAI_sv(ikl,ikv)                       &
+     &               * (1.0 - zzsnsv(       ikl,ikv, isnoSV(ikl,ikv))   &
+     &                      /(DH_dSV(ivgtSV(ikl,ikv))+eps6)      )
+            LAI_sv(ikl,ikv) = max(LAI_sv(ikl,ikv),zer0)
+            LAI_sv(ikl,ikv) = min(LAI_sv(ikl,ikv),ea_Max)
+          END DO
+          END DO
+ 
+ 
+! Interception of Rain by the Canopy
+! ==================================
+ 
+! OUTPUT/Verification: H2O    Conservation: Vegetation Forcing
+! #m0     DO ikl=1,kcolp
+! #m0     DO ikv=1,mwp
+! #m0       Watsv0(ikl,ikv) =      rrCaSV(ikl,ikv)   ! Canopy Water Cont.
+! #m0       Watsvd(ikl,ikv) =      drr_SV(ikl,ikv)   ! Precipitation
+! #m0     END DO
+! #m0     END DO
+ 
+ 
+! New Canopy Water Content
+! ------------------------
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            rrMxsv(ikl,ikv) = 0.2*max(     eps6,LAI_sv(ikl,ikv)        )  ! Precip. Max. Intercept.
+            Sigmsv(ikl,ikv) = 1.0-exp(-min(half*LAI_sv(ikl,ikv),ea_MAX))  ! Canopy Ventilation Coe.
+!                                                                 ! (DR97, eqn 3.6)
+            drr_Ca      = drr_SV(ikl,ikv)  *Sigmsv(ikl,ikv)      &! Intercepted Rain
+     &                                 *dt__SV                    !
+            rrCa_n      = rrCaSV(ikl,ikv)  +drr_Ca                ! New Canopy Water Contnt
+                                                                  ! (DR97, eqn 3.28)
+            drip        = rrCa_n       -rrMxsv(ikl,ikv)           ! Water  Drip
+            drip        =      max(zer0,drip)                     !
+            rrCa_n      = rrCa_n       -drip                      !
+            IF (rrCa_n.LT.1.e-30)       rrCa_n = 0.               !
+            drr_SV(ikl,ikv) = drr_SV(ikl,ikv) +(rrCaSV(ikl,ikv)  &! Update Rain  Contribut.
+     &                                 -rrCa_n     )             &!
+     &                                 /dt__SV                    !
+            rrCaSV(ikl,ikv) = rrCa_n                              ! Upd.Canopy Water Contnt
+ 
+ 
+! Interception of Snow by the Canopy
+! ==================================
+ 
+            dsn_Ca      = dsn_SV(ikl,ikv)  *Sigmsv(ikl,ikv) &! Intercepted Snow
+     &                                 *dt__SV       !
+            snCa_n      = snCaSV(ikl,ikv)  +dsn_Ca   ! New Canopy Snow Thickn.
+            drip        = snCa_n       -rrMxsv(ikl,ikv)  !
+            drip        =      max(zer0,drip)        !
+            snCa_n      = snCa_n       -drip         !
+            dsn_SV(ikl,ikv) = dsn_SV(ikl,ikv) +(snCaSV(ikl,ikv) &! Update Snow  Contribut.
+     &                                 -snCa_n     )&!
+     &                                 /dt__SV       !
+            snCaSV(ikl,ikv) = snCa_n                 ! Upd.Canopy Snow Thickn.
+          END DO
+          END DO
+ 
+ 
+! Snow Fall from the Canopy
+! =========================
+ 
+!         ASSUMPTION: snow fall from the canopy,
+!         ^^^^^^^^^^  when the temperature of the vegetation is positive
+!               (.OR. when snow over the canopy is saturated  with water)
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            FallOK(ikl,ikv) =  max(zer0,sign(un_1,TvegSV(ikl,ikv)-Tf_Sno+eps6)) &
+     &                  *  max(zer0,sign(un_1,snCaSV(ikl,ikv)       -eps6))
+            dsn_SV(ikl,ikv) =      dsn_SV(ikl,ikv)   +snCaSV(ikl,ikv)*FallOK(ikl,ikv)   &
+     &                                       /dt__SV
+            snCaSV(ikl,ikv) =      snCaSV(ikl,ikv) * (1.         -FallOK(ikl,ikv))
+ 
+ 
+! Blowing Particles Threshold Friction velocity
+! =============================================
+ 
+! #AE       usthSV(ikl,ikv) =                     1.0e+2
+          END DO
+          END DO
+ 
+ 
+! Contribution of Snow to the Surface Snow Pack
+! =============================================
+ 
+      IF (SnoMod)                                                 THEN
+ 
+ 
+! OUTPUT/Verification: * Mass Conservation
+! #m1   DO ikl=1,kcolp
+! #m1   DO ikv=1,mwp
+! #m1     SIWa_i(ikl,ikv) =(drr_SV(ikl,ikv) + dsn_SV(ikl,ikv))   *dt__SV ![mm w.e.]
+! #m1     SIWe_i(ikl,ikv) = dbs_SV(ikl,ikv)                          !
+! #m1     SIWm_0(ikl,ikv) = BufsSV(ikl,ikv) + HFraSV(ikl,ikv)    *rhoIce !
+! #m1   DO isn=1,nsnow                                               !
+! #m1     SIWm_0(ikl,ikv) = SIWm_0(ikl,ikv) + dzsnSV(ikl,ikv,isn)*ro__SV(ikl,ikv,isn)!
+! #m1   END DO                                                       !
+! #m1   END DO
+! #m1   END DO                                                       !
+ 
+ 
+! Blowing Snow
+! ------------
+ 
+!                         **********
+        IF (BloMod)  call SISVAT_BSn
+!                         **********
+ 
+!                         **********
+! #ve                call SISVAT_wEq('_BSn  ',1)
+!                         **********
+ 
+ 
+! Sea Ice
+! -------
+ 
+!            **********
+! #SI   call SISVAT_SIc(                                                &
+! #m2&                  SIvAcr                                          &
+! #SI&                 )
+!            **********
+ 
+!            **********
+! #ve   call SISVAT_wEq('_SIc  ',0)
+!            **********
+ 
+ 
+! Buffer Layer
+! ------------
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            BufsSV(ikl,ikv) =      BufsSV(ikl,ikv)      !     [mm w.e.]
+            d_Bufs      =  max(dsn_SV(ikl,ikv) *dt__SV,0.)  ! i.e., [kg/m2]
+            dsn_SV(ikl,ikv) =      0.                   !
+            Bufs_N      =      BufsSV(ikl,ikv) +d_Bufs  !
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Buffer G1, G2 variables
+! #s0       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND.&
+! #s0&          ikv        .EQ.nwr_SV)                                 &
+! #s0&      write(6,6601)      BufsSV(ikl,ikv) ,d_Bufs,Bufs_N
+ 6601       format(/,'Buffer *: ',3e15.6)
+ 
+! Snow Density
+! ^^^^^^^^^^^^
+            Polair      =      0.00                     !
+! #NP       Polair      =  max(zer0,                   &!
+! #NP&                         sign(un_1,TaPole        &!
+! #NP&                                  -TaT_SV(ikl,ikv)))  !
+            Buf_ro      =  max( rosMin,                &! Fallen Snow Density
+     &      roSn_1+roSn_2*     (TaT_SV(ikl,ikv)-Tf_Sno)&! [kg/m3]
+     &            +roSn_3*sqrt( VV10SV(ikl,ikv)))       ! Pahaut    (CEN)
+! #NP       BufPro      =  max( rosMin,                &! Fallen Snow Density
+! #NP&         104. *sqrt( max( VV10SV(ikl,ikv)-6.0,0.0)))  ! Kotlyakov (1961)
+            Bros_N      = (1. - Polair) *   Buf_ro     &! Temperate Snow
+! #NP&                        + Polair  *   BufPro     &! Polar     Snow
+     &                  +  0.                           !
+ 
+! Instantaneous Density of deposited blown Snow (de Montmollin, 1978)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #BS       PorSno =      1.0d00     -  BSnoRo                          &
+! #BS&                               /  rhoIce
+! #BS       Salt_f =      usthSV(ikl,ikv)/  max(eps6,   us__SV(ikl,ikv))
+! #BS       Salt_f =  min(Salt_f     ,  un_1)
+! #BS       PorRef =      PorSno     /  max(eps6,1.-PorSno)             &
+! #BS&               +log(Salt_f)
+! #BS       Por_BS =      PorRef     /          (1.+PorRef)
+! #BS       ro_new =      rhoIce     *          (1.-Por_BS)
+! #BS       ro_new =  max(ro_new     ,  BSnoRo)
+! #BS       Bros_N      = Bros_N     * (1.0-dsnbSV(ikl,ikv))            &
+! #BS&                  + ro_new     *      dsnbSV(ikl,ikv)
+ 
+! Instantaneous Density IF deposited blown Snow (Melted* from Canopy)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            Bros_N      = Bros_N     * (1.0-FallOK(ikl,ikv))            &!
+     &                  + 300.       *      FallOK(ikl,ikv)              !
+ 
+! Time averaged Density of deposited blown Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            BrosSV(ikl,ikv) =(Bros_N     *      d_Bufs                  &!
+     &                   +BrosSV(ikl,ikv)*      BufsSV(ikl,ikv))        &!
+     &                   /         max(eps6,Bufs_N)                      !
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Buffer G1, G2 variables
+! #s0       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND. &
+! #s0&          ikv        .EQ.nwr_SV)                                  &
+! #s0&      write(6,6602) Buf_ro,Bros_N,BrosSV(ikl,ikv),dsnbSV(ikl,ikv)
+ 6602       format('rho    *: ',3e15.6,'    dsnbSV: ',e15.6)
+ 
+!  S.Falling Snow Properties (computed as in SISVAT_zAg)
+!    ^^^^^^^^^^^^^^^^^^^^^^^
+            Buf_G1      =  max(-G1_dSV,                                 &! Temperate Snow
+     &               min(Dendr1*VV__SV(ikl,ikv)-Dendr2,                 &!     Dendricity
+     &                   Dendr3                   ))                     !
+            Buf_G2      =  min( Spher4,                                 &! Temperate Snow
+     &               max(Spher1*VV__SV(ikl,ikv)+Spher2,                 &!     Sphericity
+     &                   Spher3                   ))                     !
+            Buf_G1      = (1. - Polair) *   Buf_G1                      &! Temperate Snow
+     &                        + Polair  *   G1_dSV                       ! Polar     Snow
+            Buf_G2      = (1. - Polair) *   Buf_G2                      &! Temperate Snow
+     &                        + Polair  *   ADSdSV                       ! Polar     Snow
+                G1      =                   Buf_G1                       ! NO  Blown Snow
+                G2      =                   Buf_G2                       ! NO  Blown Snow
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Buffer G1, G2 variables
+! #s0       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND. &
+! #s0&          ikv        .EQ.nwr_SV)                                  &
+! #s0&      write(6,6603)       BG1sSV(ikl,ikv),BG2sSV(ikl,ikv)
+ 6603       format('G1,G2  *: ',3e15.6)
+ 
+! S.1. Meme  Type  de Neige  / same Grain Type
+!      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #BS       SameOK  =  max(zer0,                                        &
+! #BS&                     sign(un_1,    Buf_G1             *G1_dSV     &
+! #BS&                                 - eps_21                    ))
+! #BS       G1same  = ((1.0-dsnbSV(ikl,ikv))*Buf_G1+dsnbSV(ikl,ikv) *G1_dSV)
+! #BS       G2same  = ((1.0-dsnbSV(ikl,ikv))*Buf_G2+dsnbSV(ikl,ikv) *ADSdSV)
+!           Blowing Snow Properties:                         G1_dSV, ADSdSV
+ 
+! S.2. Types differents / differents Types
+!      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #BS       typ__1  =  max(zer0,sign(un_1,eps6-Buf_G1))   ! =1.=> Dendritic
+! #BS       zroNEW  =     typ__1  *(1.0-dsnbSV(ikl,ikv)) &! fract.Dendr.Lay.
+! #BS&              + (1.-typ__1) *     dsnbSV(ikl,ikv)   !
+! #BS       G1_NEW  =     typ__1  *Buf_G1                &! G1 of Dendr.Lay.
+! #BS&              + (1.-typ__1) *G1_dSV                 !
+! #BS       G2_NEW  =     typ__1  *Buf_G2                &! G2 of Dendr.Lay.
+! #BS&              + (1.-typ__1) *ADSdSV                 !
+! #BS       zroOLD  = (1.-typ__1) *(1.0-dsnbSV(ikl,ikv)) &! fract.Spher.Lay.
+! #BS&              +     typ__1  *     dsnbSV(ikl,ikv)   !
+! #BS       G1_OLD  = (1.-typ__1) *Buf_G1                &! G1 of Spher.Lay.
+! #BS&              +     typ__1  *G1_dSV                 !
+! #BS       G2_OLD  = (1.-typ__1) *Buf_G2                &! G2 of Spher.Lay.
+! #BS&              +     typ__1  *ADSdSV                 !
+! #BS       SizNEW  =    -G1_NEW  *DDcdSV/G1_dSV         &! Size  Dendr.Lay.
+! #BS&               +(1.+G1_NEW         /G1_dSV)        &!
+! #BS&                  *(G2_NEW  *DScdSV/G1_dSV         &!
+! #BS&               +(1.-G2_NEW         /G1_dSV)*DFcdSV) !
+! #BS       SphNEW  =     G2_NEW         /G1_dSV          ! Spher.Dendr.Lay.
+! #BS       SizOLD  =     G2_OLD                          ! Size  Spher.Lay.
+! #BS       SphOLD  =     G1_OLD         /G1_dSV          ! Spher.Spher.Lay.
+! #BS       Siz_av =     (zroNEW*SizNEW+zroOLD*SizOLD)    ! Averaged Size
+! #BS       Sph_av = min( zroNEW*SphNEW+zroOLD*SphOLD    &!
+! #BS&                   ,  un_1)                         ! Averaged Sphericity
+! #BS       Den_av = min((Siz_av -(    Sph_av *DScdSV    &!
+! #BS&                            +(1.-Sph_av)*DFcdSV))  &!
+! #BS&                 / (DDcdSV -(    Sph_av *DScdSV    &!
+! #BS&                            +(1.-Sph_av)*DFcdSV))  &!
+! #BS&                   ,  un_1)                         !
+! #BS       DendOK  = max(zer0,                           !
+! #BS&                    sign(un_1,     Sph_av *DScdSV  &! Small   Grains
+! #BS&                              +(1.-Sph_av)*DFcdSV  &! Faceted Grains
+! #BS&                              -    Siz_av        )) !
+!           REMARQUE: le  type moyen (dendritique ou non) depend
+!           ^^^^^^^^  de la  comparaison avec le diametre optique
+!                     d'une neige recente de   dendricite nulle
+!           REMARK:   the mean type  (dendritic   or not) depends
+!           ^^^^^^    on the comparaison with the optical diameter
+!                     of a recent snow    having zero dendricity
+ 
+! #BS       G1diff  =(   -DendOK *Den_av                 &!
+! #BS&               +(1.-DendOK)*Sph_av) *G1_dSV         !
+! #BS       G2diff  =     DendOK *Sph_av  *G1_dSV        &!
+! #BS&               +(1.-DendOK)*Siz_av                  !
+! #BS       G1      =     SameOK *G1same                 &!
+! #BS&               +(1.-SameOK)*G1diff                  !
+! #BS       G2      =     SameOK *G2same                 &!
+! #BS&               +(1.-SameOK)*G2diff                  !
+ 
+            BG1__N      =((1. - FallOK(ikl,ikv))*   G1   &!
+     &                        + FallOK(ikl,ikv) *   99.) &! Melted *  from Canopy
+     &                  *       d_Bufs/max(eps6,d_Bufs)   !
+            BG2__N      =((1. - FallOK(ikl,ikv))*   G2   &!
+     &                        + FallOK(ikl,ikv) *   30.) &! Melted *  from Canopy
+     &                  *       d_Bufs/max(eps6,d_Bufs)   !
+ 
+!  S.Buffer  Snow Properties (computed as in SISVAT_zAg)
+!    ^^^^^^^^^^^^^^^^^^^^^^^
+            Buf_G1      =       BG1__N                    ! Falling   Snow
+            Buf_G2      =       BG2__N                    ! Falling   Snow
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Buffer G1, G2 variables
+! #s0       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND. &
+! #s0&          ikv        .EQ.nwr_SV)                                  &
+! #s0&      write(6,6604)      Buf_G1      ,Buf_G2         ,FallOK(ikl,ikv)  &
+! #s0&                                                     ,TvegSV(ikl,ikv)
+ 6604       format('G1,G2 F*: ',3e15.6,'    T__Veg: ',e15.6)
+ 
+! S.1. Meme  Type  de Neige  / same Grain Type
+!      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+            SameOK  =  max(zer0,                                        &
+     &                     sign(un_1,    Buf_G1 *BG1sSV(ikl,ikv)        &
+     &                                 - eps_21                    ))
+            G1same  = (d_Bufs*Buf_G1+BufsSV(ikl,ikv)*BG1sSV(ikl,ikv))   &
+     &                     /max(eps6,Bufs_N)
+            G2same  = (d_Bufs*Buf_G2+BufsSV(ikl,ikv)*BG2sSV(ikl,ikv))   &
+     &                     /max(eps6,Bufs_N)
+ 
+! S.2. Types differents / differents Types
+!      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+            typ__1  =  max(zer0,sign(un_1,eps6-Buf_G1))   ! =1.=> Dendritic
+            zroNEW  =(    typ__1  *d_Bufs                &! fract.Dendr.Lay.
+     &              + (1.-typ__1) *BufsSV(ikl,ikv))      &!
+     &                   /max(eps6,Bufs_N)                !
+            G1_NEW  =     typ__1  *Buf_G1                &! G1 of Dendr.Lay.
+     &              + (1.-typ__1) *BG1sSV(ikl,ikv)        !
+            G2_NEW  =     typ__1  *Buf_G2                &! G2 of Dendr.Lay.
+     &              + (1.-typ__1) *BG2sSV(ikl,ikv)        !
+            zroOLD  =((1.-typ__1) *d_Bufs                &! fract.Spher.Lay.
+     &              +     typ__1  *BufsSV(ikl,ikv))      &!
+     &                   /max(eps6,Bufs_N)                !
+            G1_OLD  = (1.-typ__1) *Buf_G1                &! G1 of Spher.Lay.
+     &              +     typ__1  *BG1sSV(ikl,ikv)        !
+            G2_OLD  = (1.-typ__1) *Buf_G2                &! G2 of Spher.Lay.
+     &              +     typ__1  *BG2sSV(ikl,ikv)        !
+            SizNEW  =    -G1_NEW  *DDcdSV/G1_dSV         &! Size  Dendr.Lay.
+     &               +(1.+G1_NEW         /G1_dSV)        &!
+     &                  *(G2_NEW  *DScdSV/G1_dSV         &!
+     &               +(1.-G2_NEW         /G1_dSV)*DFcdSV) !
+            SphNEW  =     G2_NEW         /G1_dSV          ! Spher.Dendr.Lay.
+            SizOLD  =     G2_OLD                          ! Size  Spher.Lay.
+            SphOLD  =     G1_OLD         /G1_dSV          ! Spher.Spher.Lay.
+            Siz_av  =   ( zroNEW  *SizNEW+zroOLD*SizOLD)  ! Averaged Size
+            Sph_av = min( zroNEW  *SphNEW+zroOLD*SphOLD  &!
+     &                  ,   un_1                       )  ! Averaged Sphericity
+            Den_av = min((Siz_av  - (    Sph_av *DScdSV  &!
+     &                              +(1.-Sph_av)*DFcdSV))&!
+     &                 / (DDcdSV  - (    Sph_av *DScdSV  &!
+     &                              +(1.-Sph_av)*DFcdSV))&!
+     &                  ,   un_1                         )!
+            DendOK  = max(zer0,                          &!
+     &                    sign(un_1,     Sph_av *DScdSV  &! Small   Grains
+     &                              +(1.-Sph_av)*DFcdSV  &! Faceted Grains
+     &                              -    Siz_av        )) !
+!           REMARQUE: le  type moyen (dendritique ou non) depend
+!           ^^^^^^^^  de la  comparaison avec le diametre optique
+!                     d'une neige recente de   dendricite nulle
+!           REMARK:   the mean type  (dendritic   or not) depends
+!           ^^^^^^    on the comparaison with the optical diameter
+!                     of a recent snow    having zero dendricity
+ 
+            G1diff  =(   -DendOK *Den_av                                &
+     &               +(1.-DendOK)*Sph_av) *G1_dSV
+            G2diff  =     DendOK *Sph_av  *G1_dSV                       &
+     &               +(1.-DendOK)*Siz_av
+            G1      =     SameOK *G1same                                &
+     &               +(1.-SameOK)*G1diff
+            G2      =     SameOK *G2same                                &
+     &               +(1.-SameOK)*G2diff
+ 
+            BG1sSV(ikl,ikv) =                       G1                  &!
+     &                  *       Bufs_N/max(eps6,Bufs_N)                  !
+            BG2sSV(ikl,ikv) =                       G2                  &!
+     &                  *       Bufs_N/max(eps6,Bufs_N)                  !
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Buffer G1, G2 variables
+! #s0       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND. &
+! #s0&          ikv        .EQ.nwr_SV)                                  &
+! #s0&      write(6,6605) Buf_G1     ,typ__1                            &
+! #s0&                   ,DendOK     ,Den_av     ,Sph_av     ,Siz_av    &
+! #s0&                   ,G1same     ,G1diff     ,G1
+ 6605       format('B1,Typ  : ',2e15.6,11x,'OK,Den,Sph,Siz: ',4e15.6    &
+     &          ,/,'          ',30x   ,11x,'sam,dif,G1    : ',3e15.6)
+ 
+! Update of Buffer Layer Content & Decision about creating a new snow layer
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+            BufsSV(ikl,ikv) =       Bufs_N              !     [mm w.e.]
+            NLaysv(ikl,ikv) = min(un_1,                &!
+     &                    max(zer0,                    &! Allows to create
+     &                        sign(un_1,BufsSV(ikl,ikv)&! a new snow Layer
+     &                                 -SMndSV     ))  &! if Buffer > SMndSV
+     &                   *max(zer0,                    &! Except if * Erosion
+     &                        sign(un_1,half           &! dominates
+     &                                 -dsnbSV(ikl,ikv)))  &!
+     &                   +max(zer0,                    &! Allows to create
+     &                        sign(un_1,BufsSV(ikl,ikv)&! a new snow Layer
+     &                                 -SMndSV*3.00)))  ! is Buffer > SMndSV*3
+ 
+            Bdzssv(ikl,ikv) = 1.e-3*BufsSV(ikl,ikv)*rhoWat &! [mm w.e.] -> [m w.e.]
+     &                            /max(eps6,BrosSV(ikl,ikv))!& [m w.e.] -> [m]
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Buffer G1, G2 variables
+! #s0       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND. &
+! #s0&          ikv        .EQ.nwr_SV)                                  &
+! #s0&      write(6,6606) BG1sSV(ikl,ikv),BG2sSV(ikl,ikv)               &
+! #s0&                   ,NLaysv(ikl,ikv),BdzsSV(ikl,ikv)
+ 6606       format('G1,G2 N*: ',2e15.6,i15,e27.6)
+ 
+          END DO
+          END DO
+ 
+ 
+! Snow Pack Discretization
+! ========================
+ 
+!            **********
+        call SISVAT_zSn
+!            **********
+ 
+!            **********
+! #ve   call SISVAT_wEq('_zSn  ',0)
+!            **********
+ 
+! OUTPUT in SISVAT for ikl = 1 (preferably for Stand Alone Version)
+! OUTPUT           for SnowFall and Snow Buffer
+! #s2   IF          (isnoSV(1,1) .GT. 0)                                &
+! #s2&  write(6,6004)isnoSV(1,1),  dsn_SV(1) *dt__SV + BufsSV(1),       &
+! #s2&              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1,1))
+ 6004   format(i3,'  dsn+Buf=',f6.2,6x,'z dz *ro =',10f6.2,             &
+     &                                       (/,35x,10f6.2))
+ 
+ 
+! Add a new Snow Layer
+! ====================
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            isnoSV(ikl,ikv)     = isnoSV(ikl,ikv)              +NLaysv(ikl,ikv)
+            isn                 = isnoSV(ikl,ikv)
+            dzsnSV(ikl,ikv,isn) = dzsnSV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))   &
+     &                          + Bdzssv(ikl,ikv)     * float(  NLaysv(ikl,ikv))
+            TsisSV(ikl,ikv,isn) = TsisSV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))   &
+     &                      + min(TaT_SV(ikl,ikv),Tf_Sno)*float(NLaysv(ikl,ikv))
+            ro__SV(ikl,ikv,isn) = ro__SV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))   &
+     &                          + Brossv(ikl,ikv)     * float(  NLaysv(ikl,ikv))
+            eta_SV(ikl,ikv,isn) = eta_SV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))! + 0.
+            agsnSV(ikl,ikv,isn) = agsnSV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))! + 0.
+            G1snSV(ikl,ikv,isn) = G1snSV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))   &
+     &                          + BG1ssv(ikl,ikv)     * float(  NLaysv(ikl,ikv))
+            G2snSV(ikl,ikv,isn) = G2snSV(ikl,ikv,isn) * float(1-NLaysv(ikl,ikv))   &
+     &                          + BG2ssv(ikl,ikv)     *    NLaysv(ikl,ikv)
+            istoSV(ikl,ikv,isn) = istoSV(ikl,ikv,isn) * (1-NLaysv(ikl,ikv))        &
+     &       + max(zer0,sign(un_1,TaT_SV(ikl,ikv)                                  &
+     &                           -Tf_Sno-eps_21)) *         istdSV(2)              &
+     &                                            *         NLaysv(ikl,ikv)
+            BufsSV(ikl,ikv)     = BufsSV(ikl,ikv) * float(1-NLaysv(ikl,ikv))
+            NLaysv(ikl,ikv)     = 0
+          END DO
+          END DO
+ 
+ 
+! Snow Pack Thickness
+! -------------------
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            z_snsv(ikl,ikv)     = 0.0
+          END DO
+          END DO
+        DO   isn=1,nsnow
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            z_snsv(ikl,ikv)     = z_snsv(ikl,ikv) + dzsnSV(ikl,ikv,isn)
+            zzsnsv(ikl,ikv,isn) = z_snsv(ikl,ikv)
+          END DO
+          END DO
+        END DO
+ 
+ 
+! Diffusion of Surficial Water in the Snow Pack
+! ---------------------------------------------
+ 
+! #DW     DO isn=1,nsnow
+! #DW     DO ikl=1,kcolp
+! #DW     DO ikv=1,mwp
+! #DW       PorVol      = 1.     - ro__SV(ikl,ikv,isn) /  rhoIce         !
+! #DW       PorVol      =      max(PorVol            ,zer0  )            !
+! #DW       rWater      = ws0dSV * PorVol     *rhoWat*dzsnSV(ikl,ikv,isn)   &
+! #DW&                  * max(zer0,                                     &
+! #DW&                   sign(un_1,rusnSV(ikl,ikv)/rhoWat-zzsnsv(ikl,ikv,isn)   &
+! #DW&                                               +dzsnSV(ikl,ikv,isn)))
+! #DW       rusNEW      =      max(rusnSV(ikl,ikv)-rWater,zer0  )
+! #DW       rWater      =          rusnSV(ikl,ikv)-rusNEW
+! #DW       rdzNEW          =      rWater                               &
+! #DW&                           + ro__SV(ikl,ikv,isn) * dzsnSV(ikl,ikv,isn)
+! #DW       etaNEW          =      rWater / max(eps6,rdzNEW)
+! #DW       rusnSV(ikl,ikv) =          rusNEW
+! #DW       ro__SV(ikl,ikv,isn) =      rdzNEW / max(eps6,dzsnSV(ikl,ikv,isn))
+! #DW       eta_SV(ikl,ikv,isn) =      eta_SV(ikl,ikv,isn)  +etaNEW
+! #DW     END DO
+! #DW     END DO
+! #DW     END DO
+ 
+      END IF
+ 
+! OUTPUT in SISVAT for ikl = 1 (preferably for Stand Alone Version)
+! OUTPUT           for SnowFall and Snow Buffer
+! #s2   IF          (isnoSV(1,1) .GT. 0)                                  &
+! #s2&  write(6,6006)isnoSV(1,1),  dsn_SV(1) *dt__SV + BufsSV(1),       &
+! #s2&              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1,1))
+ 6006   format(i3,'  dsn+Buf=',f6.2,6x,'* dz *ro =',10f6.2,             &
+     &                                       (/,35x,10f6.2))
+ 
+ 
+! Blowing Dust
+! ============
+ 
+! #BD   IF (BloMod)                                                 THEN
+ 
+!         ***************
+! #BD     call SISVAT_BDu
+!         ***************
+ 
+! #BD   END IF
+ 
+ 
+ 
+! Soil      Albedo: Soil Humidity Correction
+! ==========================================
+ 
+!         REFERENCE: McCumber and Pielke (1981), Pielke (1984)
+!         ^^^^^^^^^
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            albssv(ikl,ikv) =                                           &
+     &      alb0SV(ikl,ikv) *(1.0-min(half,eta_SV(       ikl,ikv,0)     &
+     &                                /etadSV(isotSV(ikl,ikv))))
+!         REMARK:    Albedo of Water Surfaces (isotSV=0):
+!         ^^^^^^     alb0SV := 2  X  effective value, while
+!                    eta_SV :=          etadSV
+          END DO
+          END DO
+ 
+ 
+! Snow Pack Optical Properties
+! ============================
+ 
+      IF (SnoMod)                                                   THEN
+ 
+!            ******
+        call SnOptP(                                                   &
+! #AG&              jjtime                                             &
+     &             )
+!            ******
+ 
+      ELSE
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          sEX_sv(ikl,ikv,1) = 1.0
+          sEX_sv(ikl,ikv,0) = 0.0
+          albisv(ikl,ikv)   = albssv(ikl,ikv)
+        END DO
+        END DO
+      END IF
+ 
+!            **********
+! #ve   call SISVAT_wEq('SnOptP',0)
+!            **********
+ 
+ 
+! Solar Radiation Absorption and Effective Leaf Area Index
+! ========================================================
+ 
+!            ******
+        call VgOptP
+!            ******
+ 
+ 
+! Surface-Canopy Emissivity
+! =========================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+            LSnMsk         =     min( 1,isnoSV(ikl,ikv))
+            tau_sv(ikl,ikv)=     exp(  -LAI_sv(ikl,ikv))                ! Veg Transmit.Frac.
+            Evg_sv(ikl,ikv)=  EmiVeg*(1-LSnMsk)+EmiSno*LSnMsk           ! Veg+Sno Emissivity
+            Eso_sv(ikl,ikv)=  EmiSol*(1-LSnMsk)+EmiSno*LSnMsk           ! Sol+Sno Emissivity
+            emi_SV(ikl,ikv)=                                           &
+     &   (((EmiSol*     tau_sv(ikl,ikv)                                &
+     &     +EmiVeg*(1.0-tau_sv(ikl,ikv))) *LSmask(ikl,ikv))            &
+     &    + EmiWat                     *(1-LSmask(ikl,ikv)))*(1-LSnMsk)&
+     &   +  EmiSno                                             *LSnMsk
+        END DO
+        END DO
+ 
+ 
+! Soil/Vegetation Forcing/ Upward IR (INPUT, from previous time step)
+! ===================================================================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+! #e1     Enrsvd(ikl,ikv) =    - IRs_SV(ikl,ikv)
+          IRupsv(ikl,ikv) =      IRs_SV(ikl,ikv) *     tau_sv(ikl,ikv) ! Upward   IR
+        END DO
+        END DO
+ 
+ 
+! Turbulence
+! ==========
+ 
+! Latent Heat of Vaporization/Sublimation
+! ---------------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          SnoWat      =                     min(isnoSV(ikl,ikv),0)
+          Lx_H2O(ikl,ikv) =                                             &
+     &    (1.-SnoWat) * LhvH2O                                          &
+     &  +     SnoWat  *(LhsH2O * (1.-eta_SV(ikl,ikv,isnoSV(ikl,ikv)))   &
+     &                 +LhvH2O *     eta_SV(ikl,ikv,isnoSV(ikl,ikv)) )
+        END DO
+        END DO
+ 
+ 
+! Roughness Length for Momentum
+! -----------------------------
+ 
+! Land+Sea-Ice / Ice-free Sea Mask
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          IcIndx(ikl,ikv) = 0
+        END DO
+        END DO
+        DO isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          IcIndx(ikl,ikv) = max(IcIndx(ikl,ikv),                        &
+     &                      isn*max(0,                                  &
+     &                              sign(1,                             &
+     &                                   int(ro__SV(ikl,ikv,isn)-900.))))
+        END DO
+        END DO
+        END DO
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          LISmsk    =     min(iiceSV(ikl,ikv)  ,1     )
+          LISmsk    =     max(LSmask(ikl,ikv),LISmsk)
+          IceMsk    =     max(0,sign(1       ,IcIndx(ikl,ikv)-1)  )
+          SnoMsk    = max(min(isnoSV(ikl,ikv)-iiceSV(ikl,ikv),1),0)
+ 
+! Sea  Roughness Length
+! ^^^^^^^^^^^^^^^^^^^^^
+          Z0mSea =       0.0002
+          Z0hSea =       0.000049
+ 
+! #Zw     Z0mSea =       0.0185*us__SV(ikl,ikv)*us__SV(ikl,ikv)   ! Doyle MWR 130
+! #Zw&                         *Grav_I                   &! p.3088 2e col
+ 
+! #ZW     Z0mSea =       0.016 *us__SV(ikl,ikv)*us__SV(ikl,ikv)  &! Wang  MWR 129
+! #ZW&                         *Grav_I                   &! p.1377 (21)
+! #ZW&           +       0.11  *A_MolV                   &!
+! #ZW&                         /  max(eps6 ,us__SV(ikl,ikv))  !
+ 
+! #Zw     Z0mSea =       0.0185*us__SV(ikl,ikv)*us__SV(ikl,ikv)  &! Wang  MWR 129
+! #Zw&                         *Grav_I                   &! p.1377 (21)
+! #Zw&           +       0.135 *A_MolV                   &!   (adapted)
+! #Zw&                         /  max(eps6 ,us__SV(ikl,ikv))  !
+ 
+! #ZW     Z0hSea =   max(0.000049,                       &! Wang  MWR 129
+! #ZW&                   0.20  *A_MolV                   &! p.1377 (22)
+! #ZW&                         /  max(eps6 ,us__SV(ikl,ikv)))
+ 
+! #ZW     Z0mSea =   max(Z0mSea,eps6)                     !
+ 
+! Land Roughness Length, Snow Contribution excluded
+! ^^^^^^^^^^^^^^^^^^^^^^ Ice  Contribution included
+!                        ^^^^^^^^^^^^^^^^^^^^^^^^^^
+! If vegetation Seasonal Cycle described by  LAI     :
+          growth      =min(max(0,7-ivgtSV(ikl,ikv)),1)
+          Z0mLnd      =     Z0mdSV(ivgtSV(ikl,ikv))*LAI_sv(ikl,ikv)*growth  &
+     &                                         /LAIdSV                  &
+     &                +     Z0mdSV(ivgtSV(ikl,ikv))*         (1-growth)
+ 
+! If vegetation Seasonal Cycle described by  GLF only:
+! #ZL     Z0mLnd      =                                                 &
+! #ZL&             fallen * Z0mLnd                                      &
+! #ZL&        +(1.-fallen)* Z0mdSV(ivgtSV(ikl,ikv))*glf_sv(ikl,ikv)*growth  &
+! #ZL&                 +    Z0mdSV(ivgtSV(ikl,ikv))*         (1-growth)
+ 
+! Land Roughness Length, Influence of the Masking by Snow
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0mLnd      =max( Z0mLnd   ,                                  &
+     &                      Z0mdSV(0)*(1-IceMsk)                        &
+     &                     +Z0_ICE   *   IceMsk )
+          Z0mLnd      =     Z0mLnd                                      &
+     &                    -(zzsnsv(ikl,ikv,    isnoSV(ikl,ikv))         &
+     &                     -zzsnsv(ikl,ikv,max(IcIndx(ikl,ikv),0)))/7.
+          Z0mLnd      =max( Z0mLnd    ,    5.e-5  )  ! Min set := Z0 on *
+!         Roughness  disappears under Snow
+!         Assumption Height/Roughness Length =  7 is used
+ 
+! Z0 Smooth Regime over Snow (Andreas 1995, CRREL Report 95-16, p. 8)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0m_nu =       5.e-5 ! z0s~(10-d)*exp(-vonKrm/sqrt(1.1e-03))
+ 
+! Z0 Saltat.Regime over Snow (Gallee  et al., 2001, BLM 99 (19) p.11)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          u2star =       us__SV(ikl,ikv) *us__SV(ikl,ikv)
+          Z0mBSn =       u2star      *0.536e-3   -  61.8e-6
+          Z0mBSn =   max(Z0mBS0      ,Z0mBSn)
+ 
+! Z0 Smooth + Saltat. Regime
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0enSV(ikl,ikv) =  Z0m_nu                                     &
+     &                +  Z0mBSn
+ 
+! Rough   Snow Surface Roughness Length (Typical Value)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0m_Sn =    0.250e-3 ! Andreas 1995, CRREL Report 95-16, fig.1&p.2
+                               ! z0r~(10-d)*exp(-vonKrm/sqrt(1.5e-03))-5.e-5
+          Z0m_Sn =    2.000e-3 ! Calibration    of MAR
+! #ZT     Z0m_Sn =    1.000e-3 ! Exemple Tuning in RACMO
+! #ZT     Z0m_Sn =    0.500e-3 ! Exemple Tuning in MAR
+ 
+! Rough   Snow Surface Roughness Length (Variable Sastrugi Height)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          A_Fact      =  1.0000        ! Andreas et al., 2004, p.4
+                                       ! ams.confex.com/ams/pdfpapers/68601.pdf
+ 
+!                                                                        ! 0050=.003/.6
+! #ZS     Z0Sa_N =                   (us__SV(ikl,ikv) -0.2)*0.0050      &! 0053=TUNING
+! #ZS&           * max(zer0,sign(un_1,Tf_Sno-eps9                       &!
+! #ZS&                               -TsisSV(ikl,ikv , isnoSV(ikl,ikv))))
+!!#ZS     Z0SaSi = max(zer0,sign(un_1,Z0Sa_N                  ))         ! 1 if erosion
+! #ZS     Z0SaSi = max(zer0,sign(un_1,zer0  -eps9 -uss_SV(ikl,ikv)))     !
+! #ZS     Z0Sa_N = max(zer0,          Z0Sa_N)
+! #ZS     Z0SaSV(ikl,ikv) =                                             &!
+! #ZS&             max(Z0SaSV(ikl,ikv)   ,Z0SaSV(ikl,ikv)               &!
+! #ZS&               + Z0SaSi*(Z0Sa_N-Z0SaSV(ikl,ikv))*exp(-dt__SV/43200.)) &!
+! #ZS&               -            min(dz0_SV(ikl,ikv) ,     Z0SaSV(ikl,ikv)) !
+ 
+! #ZS     A_Fact      =               Z0SaSV(ikl,ikv) *  5.0/0.15        ! A=5 if h~10cm
+!         CAUTION: The influence of the sastrugi direction is not yet included
+ 
+! #ZS     Z0m_Sn =                    Z0SaSV(ikl,ikv)                   &!
+! #ZS&                              - Z0m_nu                             !
+ 
+! Z0                         (Shao & Lin, 1999, BLM 91 (46)  p.222)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+! Z0 Saltat.Regime over Snow (Shao & Lin, 1999, BLM 91 (46)  p.222)
+! #ZN     sqrrZ0 =       usthSV(ikl,ikv)/max( us__SV(ikl,ikv),0.001)
+! #ZN     sqrrZ0 =                   min( sqrrZ0     ,0.999)
+! #ZN     Z0mBSn =       0.55 *0.55 *exp(-sqrrZ0     *sqrrZ0)           &!
+! #ZN&                  *us__SV(ikl,ikv)*     us__SV(ikl,ikv)*Grav_I*0.5 !
+ 
+! Z0 Smooth + Saltat. Regime (Shao & Lin, 1999, BLM 91 (46)  p.222)
+! #ZN     Z0enSV(ikl,ikv) = (Z0m_nu     **    sqrrZ0 )                  &!
+! #ZN&                * (Z0mBSn     **(1.-sqrrZ0))
+! #ZN     Z0enSV(ikl,ikv) =  max(Z0enSV(ikl,ikv), Z0m_nu)
+ 
+! Z0                         (Andreas etAl., 2004
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^  ams.confex.com/ams/pdfpapers/68601.pdf)
+! Z0 Smooth Regime over Snow (Andreas etAl., 2004
+! #Za     Z0m_nu = 0.135*A_MolV / max(us__SV(ikl,ikv) , eps6)
+ 
+! Z0 Saltat.Regime over Snow (Andreas etAl., 2004
+! #Za     Z0mBSn = 0.035*u2star      *Grav_I
+ 
+! Z0 Smooth + Saltat. Regime (Andreas etAl., 2004
+! #Za     Z0enSV(ikl,ikv) =  Z0m_nu                                     &!
+! #Za&                +  Z0mBSn                                          !
+ 
+! Z0 Rough  Regime over Snow (Andreas etAl., 2004
+! (.NOT. used by Erosion)     ams.confex.com/ams/pdfpapers/68601.pdf)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #Za     Z0m_90 =(10.-0.025*VVs_SV(ikl,ikv)/5.)                        &!
+! #Za&            *exp(-0.4/sqrt(.00275+.00001*max(0.,VVs_SV(ikl,ikv)-5.)))  !
+! #Za     Z0m_Sn =           DDs_SV(ikl,ikv)* Z0m_90 / 45.              &!
+! #Za&         - DDs_SV(ikl,ikv)*DDs_SV(ikl,ikv)* Z0m_90 /(90.*90.)      !
+ 
+! #ZA     u2star =      (us__SV(ikl,ikv) -0.1800)     / 0.1
+! #ZA     Z0m_Sn =A_Fact*Z0mBSn *exp(-u2star*u2star)
+ 
+! Z0 Rough  Regime over Snow (Andreas etAl., 2004
+! #Za     u2star =      (us__SV(ikl,ikv) -0.1800)     / 0.1
+! #Za     Z0m_Sn =A_Fact*Z0mBSn *exp(-u2star*u2star)
+ 
+! Z0 Smooth + Saltat. Regime + Rough  Regime over Snow (Andreas etAl., 2004)
+! #Za     Z0enSV(ikl,ikv) =  Z0enSV(ikl,ikv)                            &!
+! #Za&                +  Z0m_Sn                                         !
+ 
+! Z0               over Snow (instantaneous or time average)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0e_SV(ikl,ikv) =  Z0enSV(ikl,ikv)
+! #ZM     Z0e_SV(ikl,ikv) =  Z0emSV(ikl,ikv)
+ 
+! Momentum  Roughness Length
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^                                 ! Contribution of
+          Z0mnSV(ikl,ikv) =  Z0mLnd                         &! Vegetation Form
+     &                + (Z0m_Sn                             &! Sastrugi   Form
+     &                +  Z0enSV(ikl,ikv))   *SnoMsk          ! Snow    Erosion
+ 
+! Mom. Roughness Length, Discrimination among Ice/Land  and Ice-Free Ocean
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0mnSV(ikl,ikv) =  Z0mnSV(ikl,ikv)    *LISmsk     &! Ice and  Land
+     &                  +Z0mSea      *(1-LISmsk)            &! Ice-Free Ocean
+! #ZO&                  +Z0roSV(ikl,ikv)                    &! Subgrid  Topogr.
+     &                  +0.
+ 
+! GIS  Roughness Length
+! ^^^^^^^^^^^^^^^^^^^^^
+! #ZG     Z0mnSV(ikl,ikv) =                                            &!
+! #ZG&      (1-LSmask(ikl,ikv)) *     Z0mnSV(ikl,ikv)                  &!
+! #ZG&    +    LSmask(ikl,ikv)  * max(Z0mnSV(ikl,ikv),max(Z0_GIM,      &!
+! #ZG&                                                    Z0_GIM+      &!
+! #ZG&      (0.0032-Z0_GIM)*(ro__SV(ikl,ikv,isnoSV(ikl,ikv))-600.)     &!
+! #ZG&                     /(920.00                 -600.)))            !
+ 
+! Mom. Roughness Length, Instantaneous OR Box Moving Average in Time
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0m_SV(ikl,ikv) =  Z0mnSV(ikl,ikv)                   ! Z0mnSV  instant.
+! #ZM     Z0m_SV(ikl,ikv) =  Z0mmSV(ikl,ikv)                   ! Z0mnSV  Average
+ 
+! Corrected Threshold Friction Velocity before Erosion         ! Marticorena and
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^         ! Bergametti 1995
+! #BS     Z0e_SV(ikl,ikv) =   min(Z0m_SV(ikl,ikv),Z0e_SV(ikl,ikv)) !
+! #MB     f_eff=    log(0.35*(0.1        /Z0e_SV(ikl,ikv))**0.8)   ! JGR 100
+! #MB     f_eff=1.-(log(      Z0m_SV(ikl,ikv)/Z0e_SV(ikl,ikv)      )) &! (20) p. 16420
+! #MB&            /(max(      f_eff      ,eps6             ))  ! p.16426 2nd ?
+! #MB     f_eff=    max(      f_eff      ,eps6              )  ! CONTROL
+! #Mb     f_eff=2.0*max(      f_eff      ,eps6              )  ! TUNING
+! #MB     f_eff=    min(      f_eff      ,un_1              )  !
+! #MB     usthSV(ikl,ikv) =       usthSV(ikl,ikv)/f_eff        !
+ 
+ 
+! Roughness Length for Scalars
+! ----------------------------
+ 
+          Z0hnSV(ikl,ikv) =     Z0mnSV(ikl,ikv)/  7.4
+ 
+! Roughness Length for Scalars: Modification from Hapex-Sahel data
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0hnSV(ikl,ikv) =     Z0mnSV(ikl,ikv)/100.0
+!                           Z0h = Z0m  /100.0   over the Sahel
+!                                              (Taylor & Clark, QJRMS 127,p864)
+ 
+! Roughness Length for Scalars: Modification for  Snow & Ice (Andrea, 1987)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #RS     rstar       =     Z0mnSV(ikl,ikv) * us__SV(ikl,ikv) / A_MolV
+! #RS     rstar       = max(eps6,min(rstar,R_1000))
+! #RS     alors       =          log(rstar)
+! #RS     rstar0      = 1.250e0 * max(zer0,sign(un_1,0.135e0 - rstar))   &
+! #RS&                +(1.      - max(zer0,sign(un_1,0.135e0 - rstar)))  &
+! #RS&                *(0.149e0 * max(zer0,sign(un_1,2.500e0 - rstar))   &
+! #RS&                + 0.317e0                                          &
+! #RS&                *(1.      - max(zer0,sign(un_1,2.500e0 - rstar))))
+! #RS     rstar1      = 0.      * max(zer0,sign(un_1,0.135e0 - rstar))   &
+! #RS&                +(1.      - max(zer0,sign(un_1,0.135e0 - rstar)))  &
+! #RS&                *(-0.55e0 * max(zer0,sign(un_1,2.500e0 - rstar))   &
+! #RS&                - 0.565                                            &
+! #RS&                *(1.      - max(zer0,sign(un_1,2.500e0 - rstar))))
+! #RS     rstar2      = 0.      * max(zer0,sign(un_1,0.135e0 - rstar))   &
+! #RS&                +(1.      - max(zer0,sign(un_1,0.135e0 - rstar)))  &
+! #RS&                *(0.      * max(zer0,sign(un_1,2.500e0 - rstar))   &
+! #RS&                - 0.183                                            &
+! #RS&                *(1.00    - max(zer0,sign(un_1,2.500e0 - rstar))))
+! #RS     Z0hnSV(ikl,ikv) = max(zer0                                     &
+! #RS&                , sign(un_1,zzsnsv(ikl,ikv,isnoSV(ikl,ikv))-eps6)) &
+! #RS&                * exp(rstar0+rstar1*alors+rstar2*alors*alors)      &
+! #RS&                * 0.001e0 + Z0hnSV(ikl,ikv) * ( 1. - max(zer0      &
+! #RS&                , sign(un_1,zzsnsv(ikl,ikv,isnoSV(ikl,ikv))-eps6)))
+ 
+          Z0hnSV(ikl,ikv) =     Z0hSea             *(1-LISmsk)&! Ice-free Ocean
+     &                +     Z0hnSV(ikl,ikv)        *   LISmsk  ! Ice and  Land
+ 
+          Z0h_SV(ikl,ikv) =     Z0hnSV(ikl,ikv)
+! #ZM     Z0h_SV(ikl,ikv) =     Z0hmSV(ikl,ikv)
+ 
+ 
+! Contributions of the Roughness Lenghths to the neutral Drag Coefficient
+! -----------------------------------------------------------------------
+ 
+          IF (Garrat)                                                   &
+     &    Z0m_SV(ikl,ikv) = max(2.0e-6     ,Z0m_SV(ikl,ikv)) ! Min Z0_m (Garrat Scheme)
+          Z0m_SV(ikl,ikv) = min(Z0m_SV(ikl,ikv),za__SV(ikl,ikv)*0.3333)
+          sqrCm0(ikl,ikv) = log(za__SV(ikl,ikv)/Z0m_SV(ikl,ikv))
+! Martin control
+!          PRINT*,'za__SV(:,:)=',za__SV(:,:)
+!          PRINT*,'Z0h_SV=',Z0h_SV
+! Martin control
+          sqrCh0(ikl,ikv) = log(za__SV(ikl,ikv)/Z0h_SV(ikl,ikv))
+ 
+! OUTPUT of SnowFall, Roughness Length and Drag Coefficients
+! #sf     IF (ikl,ikv.EQ.1) write(6,6661) dsn_SV(ikl,ikv),us__SV(ikl,ikv),Z0SaSi&
+! #sf&                        ,Z0Sa_N,Z0SaSV(ikl,ikv),Z0m_Sn,Z0m_SV(ikl,ikv)
+ 6661     format(20x,7f9.6)
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           of Roughness Length and Drag Coefficients
+! #sz     IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ. jwr_SV .AND.  &
+! #sz&        ikv        .EQ.nwr_SV)                                    &
+! #sz&    write(6,6600)  za__SV(ikl,ikv) , Z0m_SV(ikl,ikv)              &
+! #sz&                  ,sqrCm0(ikl,ikv) , za__SV(ikl,ikv)/Z0m_SV(ikl,ikv)  &
+! #sz&                  ,Z0SaSV(ikl,ikv) , Z0h_SV(ikl,ikv)              &
+! #sz&                  ,sqrCh0(ikl,ikv) , za__SV(ikl,ikv)/Z0h_SV(ikl,ikv)
+ 6600     format(/,' ** SISVAT     *0  '                                &
+     &            ,'  za__SV  = ',e12.4,'  Z0m_SV  = ',e12.4            &
+     &            ,'  sqrCm0  = ',e12.4,'  Za/Z0m  = ',e12.4            &
+     &          ,/,'                   '                                &
+     &            ,'  Z0SaSV  = ',e12.4,'  Z0h_SV  = ',e12.4            &
+     &            ,'  sqrCh0  = ',e12.4,'  Za/Z0h  = ',e12.4)
+ 
+ 
+! Vertical Stability Correction
+! -----------------------------
+ 
+! Surface/Canopy Temperature
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Tsrfsv(ikl,ikv) = Sigmsv(ikl,ikv) * TvegSV(ikl,ikv)           &
+     &          + (1. - Sigmsv(ikl,ikv))* TsisSV(ikl,ikv,isnoSV(ikl,ikv))
+        END DO
+        END DO
+ 
+! Aerodynamic Resistance
+! ^^^^^^^^^^^^^^^^^^^^^^
+        IF            (SnoMod.AND.ColPrt)                           THEN
+ 
+!                **********
+            call ColPrt_SBL
+!                **********
+ 
+        ELSE
+         IF           (Garrat)                                      THEN
+ 
+!                **********
+            call SISVAT_SBL
+!                **********
+ 
+         ELSE
+ 
+!                **********
+            call SISVATeSBL
+!                **********
+ 
+         END IF
+ 
+         DO ikl=1,kcolp
+         DO ikv=1,mwp
+           IF (LMO_SV(ikl,ikv) .GT. 0.) LMO_SV(ikl,ikv) = max( epsLMO,LMO_SV(ikl,ikv))
+           IF (LMO_SV(ikl,ikv) .LT. 0.) LMO_SV(ikl,ikv) = min(-epsLMO,LMO_SV(ikl,ikv))
+         END DO
+         END DO
+        END IF
+ 
+ 
+! Canopy Energy Balance
+! =====================
+ 
+!            **********
+        call SISVAT_TVg(                                                &
+! #e1&                  ETVg_d                                          &
+     &                 )
+!            **********
+ 
+ 
+! Surface/Canopy Temperature
+! ==========================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          Tsrfsv(ikl,ikv) = Sigmsv(ikl,ikv) * TvegSV(ikl,ikv)           &
+     &          + (1. - Sigmsv(ikl,ikv))* TsisSV(ikl,ikv,isnoSV(ikl,ikv))
+        END DO
+        END DO
+ 
+ 
+! Soil   Energy Balance
+! =====================
+ 
+ 
+!            **********
+        call SISVAT_TSo(                                                &
+! #e1&                  ETSo_0     ,ETSo_1     ,ETSo_d     ,kcolw       &
+     &                 )
+!            **********
+ 
+!            **********
+! #ve   call SISVAT_wEq('_TSo  ',0)
+!            **********
+ 
+ 
+ 
+ 
+! Canopy Water  Balance
+! =====================
+ 
+! Soil Water     Potential
+! ------------------------
+ 
+      DO   isl=-nsoil,0
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist             =     isotSV(ikl,ikv)    ! Soil Type
+          psi_sv(ikl,ikv,isl) =     psidSV(ist)   &! DR97, Eqn.(3.34)
+     &  *(etadSV(ist) /max(eps6,eta_SV(ikl,ikv,isl))) &!
+     &  **bCHdSV(ist)                              !
+ 
+ 
+! Soil Hydraulic Conductivity
+! ---------------------------
+ 
+          Khydsv(ikl,ikv,isl) =    s2__SV(ist)    &! DR97, Eqn.(3.35)
+     &  *(eta_SV(ikl,ikv,isl)**(2.*bCHdSV(ist)+3.))!
+        END DO
+        END DO
+      END DO
+ 
+!            **********
+        call SISVAT_qVg
+!            **********
+ 
+ 
+! OUTPUT/Verification: H2O    Conservation: Vegetation Forcing
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Watsvd(ikl,ikv) =     (Watsvd(ikl,ikv)  &! Canopy Precip. IN
+! #m0&                      -drr_SV(ikl,ikv)      &! Canopy Precip. OUT
+! #m0&                      -Evp_sv(ikl,ikv))* dt__SV  ! Canopy Water Evap.
+! #m0   END DO
+! #m0   END DO
+ 
+ 
+! Melting / Refreezing in the Snow Pack
+! =====================================
+ 
+      IF (SnoMod)                                                   THEN
+ 
+!            **********
+        call SISVAT_qSn(                                                &
+! #e1&                  EqSn_0,EqSn_1,EqSn_d                            &
+! #m1&                 ,SIsubl,SImelt,SIrnof                            &
+     &                 )
+!            **********
+ 
+!            **********
+! #ve   call SISVAT_wEq('_qSn  ',0)
+!            **********
+ 
+! OUTPUT in SISVAT for ikl = 1 (preferably for Stand Alone Version)
+! OUTPUT           for SnowFall and Snow Buffer
+! #s2   IF          (isnoSV(1,1) .GT. 0)                                &
+! #s2&  write(6,6007)isnoSV(1,1),  dsn_SV(1) *dt__SV + BufsSV(1,1),     &
+! #s2&              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1,1))
+ 6007   format(i3,'  dsn+Buf=',f6.2,6x,'q dz *ro =',10f6.2,             &
+     &                                       (/,35x,10f6.2))
+ 
+ 
+! Snow Pack Thickness
+! -------------------
+ 
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            z_snsv(ikl,ikv)     = 0.0
+          END DO
+          END DO
+        DO   isn=1,nsnow
+          DO ikl=1,kcolp
+          DO ikv=1,mwp
+            z_snsv(ikl,ikv)     = z_snsv(ikl,ikv) + dzsnSV(ikl,ikv,isn)
+            zzsnsv(ikl,ikv,isn) = z_snsv(ikl,ikv)
+          END DO
+          END DO
+        END DO
+ 
+ 
+! Energy in Excess is added to the first Soil Layer
+! -------------------------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+            z_snsv(ikl,ikv)   = max(zer0,                               &
+     &                          sign(un_1,eps6-z_snsv(ikl,ikv)))
+            TsisSV(ikl,ikv,0) = TsisSV(ikl,ikv,0)    + EExcsv(ikl,ikv)  &
+     &                                       /(rocsSV(isotSV(ikl,ikv))  &
+     &                                        +rcwdSV*eta_SV(ikl,ikv,0))
+            EExcsv(ikl,ikv)   = 0.
+        END DO
+        END DO
+ 
+ 
+! OUTPUT/Verification: * Mass Conservation: Mass (below the Canopy) and Forcing
+! #m1   DO ikl=1,kcolp
+! #m1   DO ikv=1,mwp
+! #m1     SIWa_f(ikl,ikv) =(drr_SV(ikl,ikv) + dsn_SV(ikl,ikv))   *dt__SV ![mm w.e.]
+! #m1     SIWe_f(ikl,ikv) = dbs_SV(ikl,ikv)                          !
+! #m1     SIWm_1(ikl,ikv) = BufsSV(ikl,ikv) + HFraSV(ikl,ikv)    *rhoIce !
+! #m1   DO isn=1,nsnow                                               !
+! #m1     SIWm_1(ikl,ikv) = SIWm_1(ikl,ikv) + dzsnSV(ikl,ikv,isn)*ro__SV(ikl,ikv,isn)!
+! #m1   END DO                                                       !
+! #m1   END DO
+! #m1   END DO                                                       !
+ 
+      END IF
+ 
+ 
+! Soil   Water  Balance
+! =====================
+ 
+!            **********
+        call SISVAT_qSo(                                                &
+! #m0&                 (Wats_0,Wats_1,Wats_d                            &
+     &                 )
+!            **********
+ 
+ 
+! Surface/Canopy Fluxes
+! =====================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          IRdwsv(ikl,ikv)=tau_sv(ikl,ikv) *IRd_SV(ikl,ikv)*Eso_sv(ikl,ikv)  &! Downward IR
+     &          +(1.0-tau_sv(ikl,ikv))*IRd_SV(ikl,ikv)*Evg_sv(ikl,ikv)   !
+          IRupsv(ikl,ikv) =      IRupsv(ikl,ikv)                &! Upward   IR
+     &                + 0.5 *IRv_sv(ikl,ikv) * (1.-tau_sv(ikl,ikv))  !
+          IRu_SV(ikl,ikv) =     -IRupsv(ikl,ikv)                &! Upward   IR
+     &                      +IRd_SV(ikl,ikv)                    &! (effective)
+     &                      -IRdwsv(ikl,ikv)                     ! (positive)
+          TBr_sv(ikl,ikv) =sqrt(sqrt(IRu_SV(ikl,ikv)/StefBo))    ! Brightness
+!                                                                ! Temperature
+          uts_SV(ikl,ikv) =     (HSv_sv(ikl,ikv) +HSs_sv(ikl,ikv))  &! u*T*
+     &                     /(rhT_SV(ikl,ikv) *CpdAir)            !
+          uqs_SV(ikl,ikv) =     (HLv_sv(ikl,ikv) +HLs_sv(ikl,ikv))  &! u*q*
+     &                     /(rhT_SV(ikl,ikv) *LhvH2O)            !
+ 
+! Surface/Canopy Temperature
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Tsrfsv(ikl,ikv) = Sigmsv(ikl,ikv) * TvegSV(ikl,ikv)           &
+     &          + (1. - Sigmsv(ikl,ikv))* TsisSV(ikl,ikv,isnoSV(ikl,ikv))
+        END DO
+        END DO
+ 
+ 
+! Snow Pack Properties (sphericity, dendricity, size)
+! ===================================================
+ 
+      IF (SnoMod)                                                   THEN
+ 
+!            **********
+        call SISVAT_GSn
+!            **********
+ 
+!            **********
+! #ve   call SISVAT_wEq('_GSn  ',0)
+!            **********
+ 
+ 
+! Surficial Water Freezing, including that of a Water Surface (isotSV=0)
+! ======================================================================
+ 
+ 
+      END IF
+ 
+ 
+! OUTPUT
+! ======
+ 
+      IF (kcolv.LE.mwp)                                             THEN
+          ikl=1
+        write(4,4) Day_TU,LabMon(Mon_TU),YearTU,HourTU,MinuTU          &
+     &            ,(ivgtSV(ikl,ikv),DH_dSV(ivgtSV(ikl,ikv))            &
+     &                           ,1.e3*Z0m_SV(ikl,ikv),ikv,ikv=1,mwp)
+ 4      format(i3,a3,i5,i3,'h',i3,'   Vegetation: ',9(i6,2f8.3,i3))
+      END IF
+ 
+! #e0   DO ikl=1,kcolp
+! #e0   DO ikv=1,mwp
+! #e0   IF (lwriSV(ikl,ikv).ne.0)                                   THEN
+! #e0           noUNIT =  no__SV(lwriSV(ikl,ikv))
+! #e0     write(noUNIT,5001)                                            &
+! #e0&       (SoSosv(ikl,ikv)+SoCasv(ikl,ikv))*sol_SV(ikl,ikv),         &
+! #e0&        IRdwsv(ikl,ikv),IRu_SV(ikl,ikv),                          &
+! #e0&        HSv_sv(ikl,ikv)+HSs_sv(ikl,ikv),                          &
+! #e0&        HLv_sv(ikl,ikv)+HLs_sv(ikl,ikv), TaT_SV(ikl,ikv),         &
+! #e0&        dsn_SV(ikl,ikv)*3.6e3,       drr_SV(ikl,ikv)*3.6e3,       &
+! #e0&        SoSosv(ikl,ikv)             *sol_SV(ikl,ikv),             &
+! #e0&                    IRv_sv(ikl,ikv) *0.5,                         &
+! #e0&        HSv_sv(ikl,ikv),HLv_sv(ikl,ikv), TvegSV(ikl,ikv),         &
+! #e0&                    SoCasv(ikl,ikv) *sol_SV(ikl,ikv),             &
+! #e0&        HSs_sv(ikl,ikv),HLs_sv(ikl,ikv), TsisSV(ikl,ikv,isnoSV(ikl,ikv))
+ 5001     format(                                                       &
+     &         '        |Net Solar| IR Down | IR Up   | HS/Dwn=+|',     &
+     &          ' HL/Dwn=+| Temper. |         |  Snow  |  Rain  |',     &
+     &       /,'        | [W/m2]  | [W/m2]  | [W/m2]  | [W/m2]  |',     &
+     &          ' [W/m2]  | [K]     |         | [mm/h] | [mm/h] |',     &
+     &       /,' -------+',7('---------+'),2('--------+'),              &
+     &       /,' SISVAT |',f8.1,' |',f8.1,' |',f8.1,' |',f8.1,' |',     &
+     &                     f8.1,' |A',f7.2,' |', 8x ,' |',2(f7.2,' |'), &
+     &       /,' Canopy |',f8.1,' |', 8x ,' |',f8.1,' |',f8.1,' |',     &
+     &                     f8.1,' |',f8.2,' |', 8x ,' |',2( 7x ,' |')   &
+     &       /,' Soil   |',f8.1,' |', 8x ,' |', 8x ,' |',f8.1,' |',     &
+     &                     f8.1,' |',f8.2,' |', 8x ,' |',2( 7x ,' |'))
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1     Enrsvd(ikl,ikv) = Enrsvd(ikl,ikv)                              &! Up Surf. IR
+! #e1&                + IRs_SV(ikl,ikv)                                  &! Offset
+! #e1&        + (      (SoSosv(ikl,ikv)                                  &! Net   Solar
+! #e1&                 +SoCasv(ikl,ikv)) *sol_SV(ikl,ikv)                &!
+! #e1&          +                     IRdwsv(ikl,ikv)                    &! Downward IR
+! #e1&          +                     IRupsv(ikl,ikv)                    &! Upward   IR
+! #e1&          +                     HSv_sv(ikl,ikv)+HSs_sv(ikl,ikv)    &! Sensible
+! #e1&          +                     HLv_sv(ikl,ikv)+HLs_sv(ikl,ikv))    ! Latent
+ 
+! #e1     write(noUNIT,5002)           Enrsvd(ikl,ikv),                  &
+! #e1&                   ETSo_0(ikl,ikv),  ETSo_d(ikl,ikv),              &
+! #e1&                   ETSo_0(ikl,ikv)+  ETSo_d(ikl,ikv), ETSo_1(ikl,ikv), &
+! #e1&                   EqSn_0(ikl,ikv)                            /dt__SV, &
+! #e1&                   EqSn_d(ikl,ikv)                            /dt__SV, &
+! #e1&                  (EqSn_1(ikl,ikv)-  EqSn_0(ikl,ikv)- EqSn_d(ikl,ikv))/dt__SV, &
+! #e1&                   EqSn_1(ikl,ikv)                            /dt__SV
+ 5002     format(                                                        &!
+     &           ' -----------------+-------------------+',              &!
+     &            '-----------------+-+-----------------+',              &!
+     &          '-------------------+',                                  &!
+     &         /,' SOIL/SNOW/VEGET. |                   |',              &!
+     &            ' Power,  Forcing |                   |',              &! Enrsvd
+     &          '                   |',                                  &!
+! #el&         /,' -----------------+-------------------+',              &!
+! #el&            '-----------------+-------------------+',              &!
+! #el&          '-------------------+',                                  &!
+     &         /,'                  |',   11x ,'        |',              &!
+     &                f9.2,' [W/m2] |',   11x ,'        |',              &! Enrsvd
+     &                11x ,'        |',                                  &!
+     &         /,' -----------------+-------------------+',              &!
+     &            '-----------------+-------------------+',              &!
+     &          '-------------------+',                                  &!
+     &         /,' SOIL/SNOW  (TSo) | Energy/dt, Time 0 |',              &!        ETSo_0
+     &            ' Power,  Forcing |   Sum Tim.0+Forc. |',              &! ETSo_d/ETSo_0+d
+     &          ' Energy/dt, Time 1 |',                                  &! ETSo_1
+! #el&         /,' -----------------+-------------------+',              &!
+! #el&            '-----------------+-------------------+',              &!
+! #el&          '-------------------+',                                  &!
+     &         /,'                  |',  f11.2,' [W/m2] |',              &!        ETSo_0
+     &                f9.2,' [W/m2] |',  f11.2,' [W/m2] |',              &! ETSo_d/ETSo_0+d
+     &               f11.2,' [W/m2] |',                                  &! ETSo_1
+     &         /,' -----------------+-------------------+',              &!
+     &            '-----------------+-------------------+',              &!
+     &          '-------------------+',                                  &!
+     &         /,'      SNOW  (qSn) | Energy/dt, Time 0 |',              &! EqSn_0/dt
+     &            ' Power,  Excess  |   D(Tim.1-0-Forc.)|',              &! EqSn_d/dt, 1-0-d
+     &          ' Energy/dt, Time 1 |',                                  &! EqSn_1/dt
+! #el&         /,' -----------------+-------------------+',              &!
+! #el&            '-----------------+-------------------+',              &!
+! #el&          '-------------------+',                                  &!
+     &         /,'                  |',  f12.2, '[W/m2] |',              &! EqSn_0/dt
+     &                f9.2,' [W/m2] |',  f11.2,' [W/m2] |',              &! EqSn_d/dt, 1-0-d
+     &               f12.2, '[W/m2] | ',                                 &! EqSn_1/dt
+     &         /,' -----------------+-------------------+',              &!
+     &            '-----------------+-------------------+',              &!
+     &          '-------------------+')                                   !
+ 
+! #e1             EnsBal = ETSo_1(ikl,ikv)-(ETSo_0(ikl,ikv)+Enrsvd(ikl,ikv))
+! #e1             EnvBal = Enrsvd(ikl,ikv)- ETVg_d(ikl,ikv)
+! #e1     IF (abs(EnsBal).gt.5.e-1                                       &
+! #e2&    .OR.lwriSV(ikl,ikv).eq.    2                                   &
+! #e1&                            )                                    THEN
+! #e1       write(6,6001) daHost,i___SV(lwriSV(ikl,ikv)),                &
+! #e1&                           j___SV(lwriSV(ikl,ikv)),                &
+! #e1&                           n___SV(lwriSV(ikl,ikv)),                &
+! #e1&                           ETSo_1(ikl,ikv),ETSo_0(ikl,ikv),ETSo_d(ikl,ikv),&
+! #e1&                           ETSo_1(ikl,ikv)-ETSo_0(ikl,ikv)-ETSo_d(ikl,ikv),&
+! #e1&                           Enrsvd(ikl,ikv),ETVg_d(ikl,ikv),ETSo_d(ikl,ikv),&
+! #e1&                           Enrsvd(ikl,ikv)-ETVg_d(ikl,ikv)-ETSo_d(ikl,ikv)
+ 6001       format(a18,3i4,' (EB1'           ,f15.6,                     &
+     &                ')  - [(EB0           ',f15.6,')',                 &
+     &               /,55x,'+(ATM->Snow/Soil',f15.6,')] ',               &
+     &                     '= EBAL'          ,f15.6,' [W/m2]',           &
+     &               /,55x,' (ATM->SISVAT'   ,f18.6,                     &
+     &               /,55x,'- Veg. ImBal.',   f18.6,')  ',               &
+     &               /,55x,'- ATM->SnoSol',   f18.6,')  ',               &
+     &                     '= ????'          ,f15.6,' [W/m2]')
+! #e1           noEBal = noEBal + 1
+! #e2           noEBal = noEBal - 1
+! #e1       IF (noEBal.GE.       10) stop 'TOO MUCH ENERGY IMBALANCES'
+! #e1     END IF
+ 
+ 
+! OUTPUT/Verification: * Mass Conservation: Budget [mm w.e.]
+! #m1     write(noUNIT,5010)                                             &
+! #m1&             SIWm_0(ikl,ikv),  SIWa_i(ikl,ikv)-SIWa_f(ikl,ikv)     &
+! #m1&            ,SIWm_0(ikl,ikv)+  SIWa_i(ikl,ikv)-SIWa_f(ikl,ikv)     &
+! #m1&                          +SIWe_i(ikl,ikv)-SIWe_f(ikl,ikv)         &
+! #m1&                          +SIsubl(ikl,ikv)                         &
+! #m1&                          -SImelt(ikl,ikv)                         &
+! #m1&                          -SIrnof(ikl,ikv)                         &
+! #m2&                          +SIvAcr(ikl,ikv)                         &
+! #m1&            ,SIWm_1(ikl,ikv),  SIWe_i(ikl,ikv)-SIWe_f(ikl,ikv)     &
+! #m1&            ,              SIsubl(ikl,ikv)                         &
+! #m1&            ,             -SImelt(ikl,ikv)                         &
+! #m1&            ,             -SIrnof(ikl,ikv)                         &
+! #m2&            ,              SIvAcr(ikl,ikv)
+ 5010     format(' SNOW             |   Snow,   Time 0  |',              &
+     &            ' Snow,   Forcing |           Sum     |',              &
+     &          '   Snow,   Time 1  |',                                  &
+! #el&         /,' -----------------+-------------------+',              &
+! #el&            '-----------------+-------------------+',              &
+! #el&          '-------------------+',                                  &
+     &         /,'                  |',    f13.3,' [mm] |',              &
+     &           ' A',  f9.3,' [mm] |',    f13.3,' [mm] |',              &
+     &                 f13.3,' [mm] |',                                  &
+     &         /,'                  |',     13x ,'      |',              &
+     &           ' E',  f9.3,' [mm] |',     13x ,'      |',              &
+     &                  13x ,'      |',                                  &
+     &         /,'                  |',     13x ,'      |',              &
+     &           ' S',  f9.3,' [mm] |',     13x ,'      |',              &
+     &                  13x ,'      |',                                  &
+     &         /,'                  |',     13x ,'      |',              &
+     &           '(M',  f9.3,' [mm])|  (included in A)  |',              &
+     &                  13x ,'      |',                                  &
+     &         /,'                  |',     13x ,'      |',              &
+     &           ' R',  f9.3,' [mm] |',     13x ,'      |',              &
+     &                  13x ,'      |',                                  &
+! #m2&         /,'                  |',     13x ,'      |',              &
+! #m2&           ' O',  f9.3,' [mm] |',     13x ,'      |',              &
+! #m2&                  13x ,'      |',                                  &
+     &         /,' -----------------+-------------------+',              &
+     &            '-----------------+-------------------+',              &
+     &          '-------------------+')
+! #m1             SnoBal = SIWm_1(ikl,ikv)-(SIWm_0(ikl,ikv)              &
+! #m1&                                 +SIWa_i(ikl,ikv)-SIWa_f(ikl,ikv)  &
+! #m1&                                 +SIWe_i(ikl,ikv)-SIWe_f(ikl,ikv)) &
+! #m1&                                 -SIsubl(ikl,ikv)                  &
+! #m1&                                 +SIrnof(ikl,ikv)                  &
+! #m2&                                 -SIvAcr(ikl,ikv)
+! #m1     IF (abs(SnoBal).gt.eps6)                                  THEN
+! #m1       write(6,6010) daHost,i___SV(lwriSV(ikl,ikv)),                &
+! #m1&                           j___SV(lwriSV(ikl,ikv)),                &
+! #m1&                           n___SV(lwriSV(ikl,ikv)),                &
+! #m1&                           SIWm_1(ikl,ikv),SIWm_0(ikl,ikv),        &
+! #m1&                           SIWa_i(ikl,ikv),SIWa_f(ikl,ikv),        &
+! #m1&                           SIWe_i(ikl,ikv),SIWe_f(ikl,ikv),        &
+! #m1&                           SIsubl(ikl,ikv),SImelt(ikl,ikv),        &
+! #m2&                           SIrnof(ikl,ikv),SIvAcr(ikl,ikv),        &
+! #m1&                           SnoBal
+ 6010       format(a18,3i4,' (MB1'        ,f12.6,                        &
+     &                 ') - [(MB0        ',f12.6,        15x,')',        &
+     &               /,51x,'+(ATM Forcing',f12.6,' - ',f12.6,')',        &
+     &               /,51x,'+(BLS Forcing',f12.6,' - ',f12.6,')',        &
+     &               /,51x,'-(Depo/Sublim',f12.6,        15x,')',        &
+     &               /,51x,' !Melting    ',f12.6,'  included in A!',     &
+     &               /,51x,'+(Run  OFF   ',f12.6,        15x,')',        &
+! #m2&               /,51x,'-(Sea-Ice Acr',f12.6,        15x,')',        &
+     &               /,29x,'= *BAL'       ,f12.6,      ' [mm w.e.]')
+! #m1           noSBal = noSBal + 1
+! #m1       IF (noSBal.GE.       10) stop 'TOO MUCH SNOW MASS IMBALANCE'
+! #m1     END IF
+ 
+ 
+! OUTPUT/Verification: H2O    Conservation: Water  Budget
+! #m0     Watsv0(ikl,ikv) =  Watsv0(ikl,ikv)           &! Canopy Water Cont.
+! #m0&                 + Wats_0(ikl,ikv)                ! Soil   Water Cont.
+! #m0     Watsvd(ikl,ikv) =  Watsvd(ikl,ikv)           &! Canopy Forcing
+! #m0&                 + Wats_d(ikl,ikv)                ! Soil   Forcing
+ 
+! #m0     write(noUNIT,5003)                                             &
+! #m0&                   Wats_0(ikl,ikv),  Wats_d(ikl,ikv),              &
+! #m0&                   Wats_0(ikl,ikv)+  Wats_d(ikl,ikv),    Wats_1(ikl,ikv),  &
+! #m0&                   Watsv0(ikl,ikv),  Watsvd(ikl,ikv),              &
+! #m0&                   Watsv0(ikl,ikv)+  Watsvd(ikl,ikv),    Wats_1(ikl,ikv)   &
+! #m0&                                                +rrCaSV(ikl,ikv)
+ 5003     format(' SOIL/SNOW  (qSo) |   Water,  Time 0  |',              &
+     &            ' Water,  Forcing |           Sum     |',              &
+     &          '   Water,  Time 1  |',                                  &
+! #el&         /,' -----------------+-------------------+',              &
+! #el&            '-----------------+-------------------+',              &
+! #el&          '-------------------+',                                  &
+     &         /,'                  |',    f13.3,' [mm] |',              &
+     &                 f11.3,' [mm] |',    f13.3,' [mm] |',              &
+     &                 f13.3,' [mm] |',                                  &
+     &         /,' -----------------+-------------------+',              &
+     &            '-----------------+-------------------+',              &
+     &          '-------------------+',                                  &
+     &         /,' SOIL/SNOW/VEGET. |   Water,  Time 0  |',              &
+     &            ' Water,  Forcing |           Sum     |',              &
+     &          '   Water,  Time 1  |',                                  &
+! #el&         /,' -----------------+-------------------+',              &
+! #el&            '-----------------+-------------------+',              &
+! #el&          '-------------------+',                                  &
+     &         /,'                  |',    f13.3,' [mm] |',              &
+     &                 f11.3,' [mm] |',    f13.3,' [mm] |',              &
+     &                 f13.3,' [mm] |',                                  &
+     &         /,' -----------------+-------------------+',              &
+     &            '-----------------+-------------------+',              &
+     &          '-------------------+')
+ 
+! #m0             WatBal = Wats_1(ikl,ikv)+rrCaSV(ikl,ikv)               &
+! #m0&                   -(Watsv0(ikl,ikv)+Watsvd(ikl,ikv))
+! #m0     IF (abs(WatBal).gt.eps6)                                  THEN
+! #m0       write(6,6002) daHost,i___SV(lwriSV(ikl,ikv)),                &
+! #m0&                           j___SV(lwriSV(ikl,ikv)),                &
+! #m0&                           n___SV(lwriSV(ikl,ikv)),                &
+! #m0&                           Wats_1(ikl,ikv),rrCaSV(ikl,ikv),        &
+! #m0&                           Watsv0(ikl,ikv),Watsvd(ikl,ikv),WatBal, &
+! #m0&                           Wats_1(ikl,ikv),                        &
+! #m0&                           Wats_0(ikl,ikv),Wats_d(ikl,ikv),        &
+! #m0&               Wats_1(ikl,ikv)-Wats_0(ikl,ikv)-Wats_d(ikl,ikv)
+ 6002       format(30x,' NEW Soil Water',3x,' Canopy   Water',3x,        &
+     &                 ' OLD SVAT Water',4x,' FRC SVAT Water',           &
+     &           /,a18,3i4,f15.6,' + ' ,f15.6,' - ' ,f15.6,              &
+     &                           ' -  ',f15.6,'    ', 15x ,'    ',       &
+     &      /,31x,'= ',f12.6,' [mm] (Water Balance)',                    &
+     &           /,30x,' NEW Soil Water',3x,'               ',3x,        &
+     &                 ' OLD Soil Water',4x,' FRC Soil Water',           &
+     &           /,30x,f15.6,'   ' , 15x ,' - ' ,f15.6,                  &
+     &                       ' -  ',f15.6,'    ', 15x ,'    ',           &
+     &      /,31x,'= ',f12.6,' [mm] (3 terms SUM)')
+! #m0           noWBal = noWBal + 1
+! #m0       IF (noWBal.GE.       10) stop 'TOO MUCH WATER  IMBALANCES'
+! #m0     END IF
+ 
+ 
+! Water/Temperature Profiles
+! --------------------------
+ 
+! #e0       write(noUNIT,5004)
+ 5004       format(' -----+--------+--+-----+--------+----+---+',        &
+     &  '--------+----+---+--------+------+-+--------+--------+',        &
+     &           /,'    n |     z  |     dz |     ro |    eta |',        &
+     &  '     T  |     G1 |     G2 | Extinc |        | HISTORY|',        &
+     &           /,'      |    [m] |    [m] | [kg/m3]| [m3/m3]|',        &
+     &  '    [K] |    [-] |    [-] |    [-] |        |   [-]  |',        &
+     &           /,' -----+--------+--------+--------+--------+',        &
+     &  '--------+--------+--------+--------+--------+--------+')
+! #e0       write(noUNIT,5005) rusnSV(ikl,ikv),albisv(ikl,ikv)
+ 5005       format('      |        |        |        |W',f6.3,' |',      &
+     &  '        |        |        |A',f6.3,' |        |        |')
+! #e0       write(noUNIT,5015)                                           &
+! #e0&                    (isn,zzsnsv(ikl,ikv,isn),dzsnSV(ikl,ikv,isn),  &
+! #e0&                         ro__SV(ikl,ikv,isn),eta_SV(ikl,ikv,isn),  &
+! #e0&                         TsisSV(ikl,ikv,isn),                      &
+! #e0&                         G1snSV(ikl,ikv,isn),G2snSV(ikl,ikv,isn),  &
+! #e0&                         sEX_sv(ikl,ikv,isn),istoSV(ikl,ikv,isn),  &
+! #e0&                     isn=isnoSV(ikl,ikv),1,-1)
+ 5015       format((i5,' |',2(f7.3,' |'),               f7.1,' |',       &
+     &           f7.3,' |' ,  f7.2,' |', 2(f7.1,' |'),  f7.3,' |',       &
+     &            7x ,' |' ,  i5,'   |'                          ))
+! #e0       write(noUNIT,5006)
+ 5006       format(' -----+--------+--------+--------+--------+',        &
+     &  '--------+--------+--------+--------+--------+--------+')
+! #e0       write(noUNIT,5007) TBr_sv(ikl,ikv),
+! #e0&                         TvegSV(ikl,ikv),rrCaSV(ikl,ikv)*1.e3,
+! #e0&                         EvT_sv(ikl,ikv)*86.4e3
+ 5007       format(' Brgh |',4(8x,'|'),  f7.2,' | [micm] |',4(8x,'|'),   &
+     &           /,' VEGE |',4(8x,'|'),2(f7.2,' |'),        2(8x,'|'),   &
+     &                                   f7.3,' |',           8x,'|' )
+! #e0       write(noUNIT,5014)
+ 5014       format(' -----+--------+--------+--------+--------+',        &
+     &  '--------+--------+--------+--------+--------+--------+',        &
+     &           /,'    n |        |     dz |        |    eta |',        &
+     &  '     T  |        |        |        | Root W.| W.Flow |',        &
+     &           /,'      |        |    [m] |        | [m3/m3]|',        &
+     &  '    [K] |        |        |        | [mm/d] | [mm/h] |',        &
+     &           /,' -----+--------+--------+--------+--------+',        &
+     &  '--------+--------+--------+--------+--------+--------+')
+ 
+! #e0       write(noUNIT,5008)                                           &
+! #e0&                    (isl,    LSdzsv(ikl,ikv)*dz_dSV(    isl),      &
+! #e0&                                         eta_SV(ikl,ikv,isl),      &
+! #e0&                                         TsisSV(ikl,ikv,isl),      &
+! #e0&                                  86.4e3*Rootsv(ikl,ikv,isl),      &
+! #e0&                                   3.6e3*Khydsv(ikl,ikv,isl),      &
+! #e0&                     isl=0,-nsoil,-1)
+ 5008       format((i5,' |',   7x ,' |' ,  f7.3,' |' ,   7x ,' |',       &
+     &           f7.3,' |' ,  f7.2,' |', 2( 7x ,' |'),   7x ,' |',       &
+     &                                     f7.3,' |' ,  f7.2,' |'))
+! #e0       write(noUNIT,5006)
+! #e0       write(noUNIT,5009) RnofSV(ikl,ikv)* 3.6e3
+ 5009       format('      |',9(8x,'|'),f7.3,' |')
+! #e0       write(noUNIT,5006)
+! #e0   END IF
+! #e0   END DO
+! #e0   END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! DE-ALLOCATION                                           !
+! =============                                           !
+ 
+      IF (FlagDALLOC)                                THEN !
+ 
+      deallocate          ( TBr_sv )                      ! Brightness Temperature
+      deallocate          ( IRdwsv )                      ! DOWNward   IR Flux
+      deallocate          ( IRupsv )                      ! UPward     IR Flux
+      deallocate          ( Bdzssv )                      ! Buffer Snow Layer Thickness
+      deallocate          ( z_snsv )                      ! Snow-Ice, current Thickness
+ 
+! Energy         Budget
+! ~~~~~~~~~~~~~~~~~~~~~
+! #e1 deallocate          ( ETVg_d )                      ! VegetationPower, Forcing
+! #e1 deallocate          ( ETSo_1 )                      ! Soil/Snow Power, after  Forcing
+! #e1 deallocate          ( EqSn_0 )                      ! Snow Energy, befor Phase Change
+! #e1 deallocate          ( EqSn_1 )                      ! Snow Energy, after Phase Change
+! #e1 deallocate          ( EqSn_d )                      ! Energy in Excess
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #m0 deallocate          ( Wats_0 )                      ! Soil Water,  before Forcing
+! #m0 deallocate          ( Wats_1 )                      ! Soil Water,  after  Forcing
+! #m0 deallocate          ( Wats_d )                      ! Soil Water,         Forcing
+ 
+! OUTPUT/Verification: * Mass Conservation
+! #m1 deallocate          ( SIsubl )                      ! Snow Sublimed/Deposed Mass
+! #m1 deallocate          ( SImelt )                      ! Snow Melted           Mass
+! #m1 deallocate          ( SIrnof )                      ! Local Surficial Water + Run OFF
+ 
+! OUTPUT/Verification: SeaIce Conservation
+! #m2 deallocate          ( SIvAcr )                      ! Sea-Ice      Vertical Acretion
+ 
+! Energy and Mass Budget
+! ~~~~~~~~~~~~~~~~~~~~~~
+! #e1 deallocate          ( Enrsvd )                      ! Soil+Vegetat  Power  Forcing
+ 
+                                                          ! H2O    Conservation
+! #m0 deallocate          ( Watsv0 )                      ! Soil+Vegetat, before Forcing
+! #m0 deallocate          ( Watsvd )                      ! Soil+Vegetat  Water  Forcing
+ 
+                                                          ! * Mass Conservation
+! #m1 deallocate          ( SIWm_0       ,SIWm_1 )        ! Snow Initial/Final        Mass
+! #m1 deallocate          ( SIWa_i       ,SIWa_f )        ! Snow Initial/Final ATM Forcing
+! #m1 deallocate          ( SIWe_i       ,SIWe_f )        ! Snow Initial/Final BLS Forcing
+ 
+ 
+      deallocate          ( IcIndx )                      ! No   Ice               Mask
+ 
+      deallocate          ( FallOK )                      ! Snow Contribution to the Canopy
+ 
+      END IF                                              !
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+! END  .main. (SISVAT)
+ 
+ 
+      return
+      end subroutine SISVAT
+ 
+ 
+ 
+      subroutine SISVAT_BSn
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_BSn                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_BSn treats Snow Erosion and Deposition             |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 14-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     Preprocessing  Option: STANDARD Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #BS: Explicit Cloud MICROPHYSICS: Blow. *(Snow)         Model        |
+!     #BM: Explicit Cloud MICROPHYSICS: de Montmollin Parameterizat.       |
+!     #MA: SNOW Model: Increased polar B* Mobility (Mann et al.2000)       |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #BA: Budd et al.            1966, Ant.Res.Ser.9    u* BS Threshold   |
+!     #BY: Budd et al. 1966, 2~m Averag Blow. *(Snow)    Properties        |
+!     #AG: Snow Aging Col de Porte     (Brun et al.1991) discard BS at CdP |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # stdout               | #s2: OUTPUT of SnowFall, Snow Buffer          |
+!                          |      unit  6, SubRoutine  SISVAT_BSn, _qSn    |
+!   # stdout               | #b0: OUTPUT of Snow Erosion Statistics        |
+!                          |      unit  6, SubRoutine  SISVAT_BSn **ONLY** |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_BSn
+      use Mod_SISVATLBSn
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Local Variables
+! ===============
+ 
+      integer                                        ::  ikl,ikv   ,isn   ,isnMAX      !
+      integer                                        ::  Mobilm,Mobiln                 !
+ 
+      real(kind=real8)                               ::  DendOK                        ! Dendricity Switch
+      real(kind=real8)                               ::  SaltOK                        ! Saltation  Switch
+      real(kind=real8)                               ::  MeltOK                        ! Saltation  Switch (Melting Snow)
+      real(kind=real8)                               ::  SnowOK                        ! Pack Top   Switch
+      real(kind=real8)                               ::  SaltM1,SaltM2,SaltMo          ! Saltation  Parameters
+      real(kind=real8)                               ::  SaltMx = -5.83e-2             !
+      real(kind=real8)                               ::  ShearX                        ! Arg. Max Shear Stress
+      real(kind=real8)                               ::  SaltSU,Salt_U                 !
+      real(kind=real8)                               ::  ArgFac,Fac_Mo                 !
+      real(kind=real8)                               ::  FacRBS =  2.868               !
+      real(kind=real8)                               ::  FacTBS =  0.085               !
+      real(kind=real8)                               ::  ArguSi                        !
+      real(kind=real8)                               ::  hdrift =  1.00e+1             ! Inverse erodibl.Snow Lay.Thickn.
+      real(kind=real8)                               ::  h_mmWE =  0.01e00             ! Eroded Snow Layer Min Thickness
+!     real(kind=real8)                               ::  tfv_vk =  5.10e-1             ! * Fall Veloc. / Von Karman Cst
+                                                                                       ! tfv (Terminal Fall Veloc. =.216)
+                                                                                       ! /vk (Von Karman Constant  =.4  )
+                                                                                       ! (Wamser & Lykosov,   1995
+                                                                                       !  Contr.Atm.Phys. 68, p.90)
+      real(kind=real8)                               ::  dzweqo,dzweqn,bsno_x          !
+      real(kind=real8)                               ::                hsno_x          !
+      real(kind=real8)                               ::  ro_new                        !
+! #BM real(kind=real8)                               ::  PorSno,PorRef                 !
+! #BS real(kind=real8)                               ::  Salt_f                        !
+      real(kind=real8)                               ::  MIN_Mo                        ! Minimum Mobility Fresh Fallen *
+! #MA real(kind=real8)                               ::  AgBlow = 1.00                 ! Snow Mobility    Time  Scale
+                                                                                       ! 1 Day (F.Domine, pers.communic.)
+! #BS real(kind=real8)                               ::  snofOK                        ! Threshd Snow Fall
+ 
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0 real(kind=real8)                               ::  Sno0WE,Sno1WE                 ! Snow Mass before/after Erosion
+! #b0 real(kind=real8)                               ::  SnodWE                        ! Snow Mass              Erosion
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! ALLOCATION                                              !
+! ==========                                              !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)               THEN !
+ 
+      allocate            ( Mobile(kcolp,mwp) )           !
+      allocate            ( SaltSI(kcolp,mwp,nsnow) )     ! Snow Drift Index
+      allocate            ( sdrift(kcolp,mwp,nsnow) )     !
+      allocate            ( xdrift(kcolp,mwp) )           !
+      allocate            ( zdrift(kcolp,mwp) )           !
+      allocate            ( tdepos(kcolp,mwp) )           !
+      allocate            ( zdepos(kcolp,mwp,nsnow) )     !
+      allocate            ( dbsaux(kcolp,mwp) )           ! Drift Amount   (Dummy Variable)
+      allocate            ( isagr1(kcolp,mwp) )           ! 1st     Layer History
+      allocate            ( isagr2(kcolp,mwp) )           ! 2nd     Layer History
+ 
+      allocate            ( WEagre(kcolp,mwp) )           ! Snow Water Equivalent Thickness
+      allocate            ( Agrege(kcolp,mwp) )           ! 1. when Agregation constrained
+      allocate            ( dzagr1(kcolp,mwp) )           ! 1st     Layer Thickness
+      allocate            ( dzagr2(kcolp,mwp) )           ! 2nd     Layer Thickness
+      allocate            ( T_agr1(kcolp,mwp) )           ! 1st     Layer Temperature
+      allocate            ( T_agr2(kcolp,mwp) )           ! 2nd     Layer Temperature
+      allocate            ( roagr1(kcolp,mwp) )           ! 1st     Layer Density
+      allocate            ( roagr2(kcolp,mwp) )           ! 2nd     Layer Density
+      allocate            ( etagr1(kcolp,mwp) )           ! 1st     Layer Water Content
+      allocate            ( etagr2(kcolp,mwp) )           ! 2nd     Layer Water Content
+      allocate            ( G1agr1(kcolp,mwp) )           ! 1st     Layer Dendricity/Spher.
+      allocate            ( G1agr2(kcolp,mwp) )           ! 2nd     Layer Dendricity/Spher.
+      allocate            ( G2agr1(kcolp,mwp) )           ! 1st     Layer Sphericity/Size
+      allocate            ( G2agr2(kcolp,mwp) )           ! 2nd     Layer Sphericity/Size
+      allocate            ( agagr1(kcolp,mwp) )           ! 1st     Layer Age
+      allocate            ( agagr2(kcolp,mwp) )           ! 2nd     Layer Age
+ 
+      END IF                                              !
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! DATA
+! ====
+ 
+! Initialization
+! ==============
+ 
+      IF (.NOT.BlowIn)                                             THEN
+               BlowIn = .true.
+               FacSBS =  1.             / FacRBS
+               FacUBS =  1.             / FacTBS
+               Por_BS =  1.             - BSnoRo/      rhoIce
+               SheaBS =                   Por_BS/(1.00-Por_BS)
+!              SheaBS =  Arg(sqrt(shear = max shear stress in snow)):
+!              shear  =  3.420d00 * exp(-(Por_BS      +Por_BS)          &
+!    &                                  /(1.00        -Por_BS))
+!              SheaBS :  see de Montmollin         (1978),
+!                        These Univ. Sci. Medic. Grenoble, Fig. 1 p. 124
+ 
+             DO ikl=1,kcolp             ! Parameterization of u*th
+             DO ikv=1,mwp
+               rCd10n      =  1./  26.5 ! was developed from observations made
+             END DO
+             END DO                     ! during assumed neutral conditions
+ 
+               write(6,5000)  1./  rCd10n
+ 5000          format(/,' Blowing Snow Model  Initialization     ',     &
+     &                /,' Vt / u*t =',f8.2,' (Neutral Assumption)',     &
+     &                /,'           ', 8x ,' (Budd assumes  26.5)',/)
+      END IF
+ 
+ 
+! Snow Age (Influence on Snow Erosion Threshold)
+! ==============================================
+ 
+! #BS DO isn=1,nsnow
+! #BS DO ikl=1,kcolp
+! #BS DO ikv=1,mwp
+! #BS   agsnSV(ikl,ikv,isn) = agsnSV(ikl,ikv,isn) + dt__SV/86400.
+! #BS END DO
+! #BS END DO
+! #BS END DO
+! #BS DO ikl=1,kcolp
+! #BS DO ikv=1,mwp
+! #BS   isn    = max(1 ,        isnoSV(ikl,ikv))
+! #BS   snofOK = max(0.,sign(1.,dsn_SV(ikl,ikv)-eps6))  !  Threshold=1.e-6
+! #BS   agsnSV(ikl,ikv,isn) =   (1.-snofOK) *agsnSV(ikl,ikv,isn)! ~0.1 mm w.e./day
+! #BS END DO
+! #BS END DO
+      IF (.NOT.BloMod)                                     GO TO 1000
+! #AG STOP '?!&~@|@[#@#] --- INCONSISTANT SNOW AGE --- EMERGENCY STOP'
+ 1000 CONTINUE
+ 
+ 
+! EROSION
+! =======
+ 
+      DO isn = 1,nsnow
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+ 
+! Below the high Snow Density Threshold  (ro__SV < BSnoRo)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        DendOK   =  max(zer0,sign(un_1,eps6-G1snSV(ikl,ikv,isn)  ))  !
+        SaltOK   =  min(1   , max(istdSV(2)-istoSV(ikl,ikv,isn),0))  !
+        MeltOK   =     (un_1                                    &!
+     &             -max(zer0,sign(un_1,Tf_Sno-eps6              &!
+     &                                     -TsisSV(ikl,ikv,isn)  )))&! Melting Snow
+     &           *  min(un_1,DendOK                             &!
+     &                  +(1.-DendOK)                            &!
+     &                      *sign(un_1,     G2snSV(ikl,ikv,isn)-1.0))! 1.0 for 1mm
+        SnowOK   =  min(1   , max(isnoSV(ikl,ikv)      +1 -isn ,0))  ! Snow Switch
+ 
+        G1snSV(ikl,ikv,isn) =      SnowOK *    G1snSV(ikl,ikv,isn)  &
+     &                  + (1.- SnowOK)*min(G1snSV(ikl,ikv,isn),G1_dSV)
+        G2snSV(ikl,ikv,isn) =      SnowOK *    G2snSV(ikl,ikv,isn)  &
+     &                  + (1.- SnowOK)*min(G2snSV(ikl,ikv,isn),G1_dSV)
+ 
+        SaltOK   =  min(un_1 , SaltOK +    MeltOK)       * SnowOK
+        SaltM1   = -0.750e-2 * G1snSV(ikl,ikv,isn)              &
+     &             -0.500e-2 * G2snSV(ikl,ikv,isn)+ 0.500e00
+!       SaltM1   :  Guyomarc'h & Merindol, 1997, Ann. Glac.
+!         CAUTION:  Guyomarc'h & Merindol Dendricity Sign is +
+!         ^^^^^^^^                    MAR Dendricity Sign is -
+        SaltM2   = -0.833d-2 * G1snSV(ikl,ikv,isn)              &
+     &             -0.583d-2 * G2snSV(ikl,ikv,isn)+ 0.833d00
+        SaltMo   = (DendOK   * SaltM1 + (1.-DendOK) *     SaltM2       )
+ 
+! Increased Mobility of Deposed (blown) Snow (Mann et al., 2000, JGR 105,
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  Fig.2 p.24496 & text below)
+        MIN_Mo   =  0.
+! #MA   MIN_Mo   =  0.6 * exp(-agsnSV(ikl,ikv,isn)                  /AgBlow)
+        SaltMo   =                                    max(SaltMo,MIN_Mo)
+ 
+        SaltMo   =  SaltOK   * SaltMo + (1.-SaltOK) * min(SaltMo,SaltMx)
+!       SaltMo   =  SaltOK   * SaltMo - (1.-SaltOK) *     0.9500 ! Tuning
+        SaltMo   =         max(SaltMo ,  eps6-un_1)
+ 
+        SaltSU   =     (1.00d0+SaltMo)     *FacSBS
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0   Salt_U   =        -log(SaltSU)     *FacUBS
+! #b0   IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV        .AND. &
+! #b0&      ikv        .EQ.nwr_SV.AND.isn        .EQ.isnoSV(ikl,ikv))    &
+! #b0&    write(6,6010) isnoSV(ikl,ikv),G1snSV(ikl,ikv,isn)/G1_dSV       &
+! #b0&                             ,G2snSV(ikl,ikv,isn)/G1_dSV           &
+! #b0&                             ,ro__SV(ikl,ikv,isn),agsnSV(ikl,ikv,isn)  &
+! #b0&                             ,SaltM1, SaltM2, SaltMo, Salt_U       &
+! #b0&                             ,us__SV(ikl,ikv)   / rCd10n
+ 6010     format(/,'SISVAT_BSn',6x                                       &
+     &           ,6x,i3,2x,'G1         =',f6.3,'   G2         =',f7.3    &
+     &           ,      '   ro [kg/m3] =',f9.3,'   Age* [Day] =',f9.3    &
+     &           ,   /,27x,'SaltM1     =',f6.3,'   SaltM2     =',f7.3    &
+     &           ,      '   Mobility I.=',f9.3,'   Vt   [m/s] =',f9.3    &
+     &           ,   /,27x,'            ', 6x ,'               ', 7x     &
+     &           ,      '               ', 9x ,'   Vn10 [m/s] =',f9.3)
+ 
+! Above the high Snow Density Threshold  (ro__SV > BSnoRo)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        Por_BS      =  1.000       - ro__SV(ikl,ikv,isn)     /rhoIce
+        ShearX      =                Por_BS/max(eps6,un_1-Por_BS)
+!       ShearX ==> Arg(sqrt(shear)) with shear = max shear stress in snow:
+!       shear       =  3.420d00 * exp(-(Por_BS      +Por_BS)             &
+!    &                                /max(eps6,un_1-Por_BS))
+!                      see de Montmollin         (1978),
+!                      These Univ. Sci. Medic. Grenoble, Fig. 1 p. 124
+ 
+! Influence of Density on Shear Stress if ro__SV > BSnoRo
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        ArgFac      =  max(zer0  ,SheaBS-ShearX)     !
+!       Fac_Mo      =  exp(       ArgFac       )     ! ** NOT ** tuned
+        Fac_Mo   =     exp(       ArgFac       )     ! = 1 if ro__SV < BSnoRo
+                                                     ! < 1 if ro__SV > BSnoRo
+! Snow Drift Index
+! ~~~~~~~~~~~~~~~~
+        SaltSU      =  max(eps6  ,    SaltSU)
+        SaltSU      =  exp(Fac_Mo*log(SaltSU))
+        ArguSi      =     -FacTBS              *us__SV(ikl,ikv)/rCd10n
+        SaltSI(ikl,ikv,isn) = (SaltSU-exp(ArguSi)) *FacRBS
+!       SaltSI          :  Generalization of the Snow Drift Index of
+!                          Guyomarc'h & Merindol (1997, Ann.Glaciol.)
+ 
+! Threshold Friction Velocity
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        SnowOK   =  1 -min(1,iabs(isn-isnoSV(ikl,ikv)))
+        Salt_U   =               -log(SaltSU)  *FacUBS
+!       Salt_U   :  Guyomarc'h & Merindol, 1997, Ann. Glac.
+ 
+        usthSV(ikl,ikv) =     SnowOK *   (Salt_U   *rCd10n)              &
+     &              + (1.-SnowOK)*    usthSV(ikl,ikv)
+ 
+! Threshold Friction Velocity (Budd et al., 1966)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #BA   usthSV(ikl,ikv) =     SnowOK *   (Salt_U   /26.5)                &
+! #BA&              + (1.-SnowOK)*    usthSV(ikl,ikv)
+!       Us(U10)     :  Budd et al.            1966, Ant.Res.Ser.9
+!                 (see Pomeroy & Gray 1995 NHRI Sci.Rep.7(30)p.62)
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! OUTPUT           for Snow Erosion Variables
+! #b0   IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV        .AND. &
+! #b0&      ikv        .EQ.nwr_SV.AND.isn        .EQ.isnoSV(ikl,ikv))    &
+! #b0&    write(6,6011)     Fac_Mo,Por_BS,SaltSI(ikl,ikv,isn),usthSV(ikl,ikv)
+ 6011     format(      27x,'Fac_Mo     =',f6.3,'   Por_BS     =',f7.3    &
+     &           ,      '   Drift    I.=',f9.3,'   ut*_0[m/s] =',f9.3)
+      END DO
+      END DO
+      END DO
+ 
+ 
+! Deepest Mobile Snow Layer
+! -------------------------
+ 
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        Mobile(ikl,ikv) = nsnow+1
+      END DO
+      END DO
+      DO isn =   nsnow,1,-1
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        isnMAX      =       max(   1,          isnoSV(ikl,ikv)             )
+        isnMAX      =       min( isn,          isnMAX                  )
+        Mobiln      = isn * max(zer0,sign(un_1,SaltSI(ikl,ikv,isnMAX)))
+        Mobilm      =   1 - min(1   ,          Mobile(ikl,ikv) -1 -Mobiln)
+!       Mobilm      =   1   ONLY IF   Mobiln = Mobile(ikl) -1 (0 otherwise)
+ 
+        Mobile(ikl,ikv) =                 Mobilm * Mobiln               &
+     &              +              (1-Mobilm)* Mobile(ikl,ikv)
+      END DO
+      END DO
+      END DO
+ 
+ 
+! Weighting the Amount of Snow to erode
+! -------------------------------------
+ 
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        zdrift(ikl,ikv) = 0.0
+        xdrift(ikl,ikv) = 0.0
+        dbsaux(ikl,ikv) = dbs_SV(ikl,ikv)
+      END DO
+      END DO
+ 
+      DO isn = 1,nsnow
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        zdrift(ikl,ikv)     =  zdrift(ikl,ikv)                          &
+     &            + 0.50 * dzsnSV(ikl,ikv,isn) * (3.25  -SaltSI(ikl,ikv,isn))
+        sdrift(ikl,ikv,isn) =  SaltSI(ikl,ikv,isn)                      &
+     &          *exp(  max(Ea_Min, -zdrift(ikl,ikv)     *hdrift     ))  &
+     &          *min(1,max(0     ,  isn +1          -Mobile(ikl,ikv)))  &
+     &          *min(1,max(0     ,  isnoSV(ikl,ikv)     -isn +1     ))  &
+!                Last 2 Lines force sdrift = 0 outside mobile Snow Layers
+     &          *      max(zer0, sign(un_1,         -dbs_SV(ikl,ikv)))
+!                Erosion is allowed only if available Blowing Snow
+        xdrift(ikl,ikv)     =           sdrift(ikl,ikv,isn) +xdrift(ikl,ikv)
+        zdrift(ikl,ikv)     =  zdrift(ikl,ikv)                          &
+     &            + 0.50 * dzsnSV(ikl,ikv,isn) * (3.25  -SaltSI(ikl,ikv,isn))
+      END DO
+      END DO
+      END DO
+ 
+! Normalization
+! ~~~~~~~~~~~~~
+      DO isn = 1,nsnow
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        sdrift(ikl,ikv,isn) =  sdrift(ikl,ikv,isn) /max(eps6,xdrift(ikl,ikv))
+      END DO
+      END DO
+      END DO
+ 
+ 
+! Weighting the Amount of Snow to depose
+! --------------------------------------
+ 
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        zdrift(ikl,ikv) = 0.0
+        tdepos(ikl,ikv) = 0.0
+      END DO
+      END DO
+ 
+      DO isn = 1,nsnow
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        zdepos(ikl,ikv,isn) =      exp(-zdrift(ikl,ikv)   )             &
+     &          *min(1,max(0     ,  isn +1          -Mobile(ikl,ikv)))  &
+     &          *min(1,max(0     ,  isnoSV(ikl,ikv    ) -isn +1     ))
+!                Last 2 Lines force zdepos = 0 outside mobile Snow Layers
+        tdepos(ikl,ikv) = tdepos(ikl,ikv) + zdepos(ikl,ikv,isn)
+        zdrift(ikl,ikv) = zdrift(ikl,ikv) + dzsnSV(ikl,ikv,isn) *ro__SV(ikl,ikv,isn)&
+     &                                              /rhoWat
+      END DO
+      END DO
+      END DO
+ 
+! Normalization
+! ~~~~~~~~~~~~~
+      DO isn = 1,nsnow
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        zdepos(ikl,ikv,isn) = zdepos(ikl,ikv,isn) / max(eps6,tdepos(ikl,ikv))
+      END DO
+      END DO
+      END DO
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0 DO ikl = 1,kcolp
+! #b0 DO ikv=1,mwp
+! #b0   IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV .AND.      &
+! #b0&      ikv        .EQ.nwr_SV                          )        THEN
+! #b0     Sno0WE =   0.
+! #b0   DO isn=1,nsnow
+! #b0     Sno0WE =   Sno0WE                                            &
+! #b0&           +   dzsnSV(ikl,ikv,isn) *ro__SV(ikl,ikv,isn)
+! #b0   END DO
+! #b0     write(6,6005)   Sno0WE                    ,dbs_SV(ikl,ikv)
+ 6005     format(                                                      &
+     &      18x,'MB0',6x,'Sno1WE [mm]=',f9.3,19x,'0  dbs_SV [mm]=',f9.6)
+! #b0     SnodWE =   dbs_SV(ikl,ikv)
+! #b0   END IF
+! #b0 END DO
+! #b0 END DO
+ 
+ 
+! Weighted  Erosion (Erosion amount is distributed       ! dbs_SV decreases
+! -----------------  over the upper Snow Pack)           ! dzsnSV decreases
+ 
+      DO isn = 1,nsnow
+      DO ikl = 1,kcolp
+      DO ikv=1,mwp
+        SnowOK      = min(1,max(isnoSV(ikl,ikv)+1-isn ,0))  ! Snow Switch
+        dzweqo      = dzsnSV(ikl,ikv,isn) *ro__SV(ikl,ikv,isn)  ! [kg/m2, mm w.e.]
+        bsno_x      = dbsaux(ikl,ikv)     *sdrift(ikl,ikv,isn)
+        dzweqn      = dzweqo          +bsno_x
+        dzweqn  = max(dzweqn,          h_mmWE *SnowOK)
+        dbs_SV(ikl,ikv) = dbs_SV(ikl,ikv)    +(dzweqo -dzweqn)
+        dzsnSV(ikl,ikv,isn) =              dzweqn                       &
+     &                       /max(eps6,ro__SV(ikl,ikv,isn))
+      END DO
+      END DO
+      END DO
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0 DO ikl = 1,kcolp
+! #b0 DO ikv=1,mwp
+! #b0   IF (ii__AP(ikl)    .EQ. 1 .AND.  jj__AP(ikl)     .EQ. 1)    THEN
+! #b0     SnodWE =   SnodWE         -dbs_SV(ikl,ikv)
+! #b0     Sno1WE =   0.
+! #b0   DO isn=1,nsnow
+! #b0     Sno1WE =   Sno1WE                                             &
+! #b0&           +   dzsnSV(ikl,ikv,isn)*ro__SV(ikl,ikv,isn)
+! #b0   END DO
+! #b0     write(6,6006)Sno1WE      , dbs_SV(ikl,ikv)
+ 6006     format(                                                       &
+     &      18x,'MB1',6x,'Sno1WE [mm]=',f9.3,19x,'1  dbs_SV [mm]=',f9.6)
+! #b0     write(6,6007)Sno1WE    ,SnodWE   ,Sno0WE,                     &
+! #b0&                (Sno1WE    -SnodWE   -Sno0WE)
+ 6007     format(                                                       &
+     &      18x,'MB ',5x,'(After  [mm]=',f6.0, ')-(Erosion[mm]=', f7.3, &
+     &                                         ')-(Before [mm]=', f9.3, &
+     &                                         ')= Budget [mm]=', f9.6)
+! #b0   END IF
+! #b0 END DO
+! #b0 END DO
+ 
+ 
+! ACCUMULATION of BLOWN SNOW                             ! dsn_SV decreases
+! --------------------------                             ! dzsnSV increases
+ 
+        DO ikl = 1,kcolp
+        DO ikv=1,mwp
+          tdepos(ikl,ikv) = dsn_SV(ikl,ikv) * dsnbSV(ikl,ikv) * dt__SV
+          WEagre(ikl,ikv) = 0.
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0     IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV      .AND. &
+! #b0&        ikv        .EQ.nwr_SV.AND.0          .LT.isnoSV(ikl,ikv))  &
+! #b0&        write(6,6003) tdepos(ikl,ikv)  ,Mobile(ikl,ikv)
+ 6003         format(/,41x,'tdepos [-] =',f6.3,40x,'Mobil',i3            &
+     &              ,/,27x,'Salt.Index    sdrift'                        &
+     &              ,      '    zdepos  ro__snow  ro_bsnow  roN_snow'    &
+     &              ,                '  dz__snow  dz_bsnow  dzN_snow'    &
+     &              ,                '  d___snow'                        &
+     &              ,/,27x,'             [kg/m3]   [kg/m3]   [kg/m3]'    &
+     &              ,                '       [m]       [m]       [m]'    &
+     &              ,                '   [kg/m2]')
+        END DO
+        END DO
+ 
+      DO isn =     nsnow,1,-1
+        DO ikl = 1,kcolp
+        DO ikv=1,mwp
+          WEagre(ikl,ikv) = WEagre(ikl,ikv) + ro__SV(ikl,ikv,isn)*dzsnSV(ikl,ikv,isn)
+          isagr1(ikl,ikv) = istoSV(ikl,ikv,isn)
+          isagr2(ikl,ikv) = 0.
+ 
+! Density of deposited blown Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          ro_new =                    BSnoRo
+ 
+! Density of deposited blown Snow (de Montmollin, 1978)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #BM     PorSno =      1.0d00     -  ro__SV(ikl,ikv,isn)               &
+! #BM&                             /  rhoIce
+! #BM     Salt_f =      usthSV(ikl,ikv)/  max(eps6,   us__SV(ikl,ikv))
+! #BM     Salt_f =  min(Salt_f     ,  un_1)
+! #BM     PorRef =      PorSno     /  max(eps6,1.-PorSno)               &
+! #BM&             +log(Salt_f)
+! #BM     Por_BS =      PorRef     / (1.0d00 + PorRef)
+! #BM     ro_new =      rhoIce     * (1.0d00 - Por_BS)
+! #BM     ro_new =  max(ro_new     ,  BSnoRo)
+ 
+          roagr1(ikl,ikv) = ro__SV(ikl,ikv,isn)
+          roagr2(ikl,ikv) = ro_new
+          hsno_x      = tdepos(ikl,ikv)*  zdepos(ikl,ikv,isn)
+ 
+          dzagr1(ikl,ikv) = dzsnSV(ikl,ikv,isn)
+          dzagr2(ikl,ikv) = hsno_x     /  ro_new
+!         Conversion    [kg/m2, i.e., mm w.e.] -----> [mSnow]
+ 
+          dsn_SV(ikl,ikv) = dsn_SV(ikl,ikv)-  hsno_x / dt__SV
+ 
+! Other Snow Properties
+! ~~~~~~~~~~~~~~~~~~~~~
+          T_agr1(ikl,ikv) =    TsisSV(ikl,ikv,isn)
+          T_agr2(ikl,ikv) =min(Tf_Sno,TaT_SV(ikl,ikv))
+          etagr1(ikl,ikv) =    eta_SV(ikl,ikv,isn)
+          etagr2(ikl,ikv) =    0.0
+          G1agr1(ikl,ikv) =    G1snSV(ikl,ikv,isn)
+          G1agr2(ikl,ikv) =    G1_dSV
+          G2agr1(ikl,ikv) =    G2snSV(ikl,ikv,isn)
+          G2agr2(ikl,ikv) =    ADSdSV
+! #BY     G2agr2(ikl,ikv) =    0.87d0
+!         Budd et al. 1966, 2~m Average /Table 5 p. 97
+ 
+          agagr1(ikl,ikv) =    agsnSV(ikl,ikv,isn)
+          agagr2(ikl,ikv) =    0.
+          Agrege(ikl,ikv) =    1.
+        END DO
+        END DO
+ 
+! Agregation
+! ~~~~~~~~~~
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+!            **********
+        call SISVAT_zAg                                                &
+     &             (ikl,ikv,isagr1(ikl,ikv),isagr2(ikl,ikv),WEagre(ikl,ikv)&
+     &                 ,dzagr1(ikl,ikv),dzagr2(ikl,ikv),T_agr1(ikl,ikv),T_agr2(ikl,ikv)&
+     &                 ,roagr1(ikl,ikv),roagr2(ikl,ikv),etagr1(ikl,ikv),etagr2(ikl,ikv)&
+     &                 ,G1agr1(ikl,ikv),G1agr2(ikl,ikv),G2agr1(ikl,ikv),G2agr2(ikl,ikv)&
+     &                 ,agagr1(ikl,ikv),agagr2(ikl,ikv),Agrege(ikl,ikv)&
+     &                 )
+!            **********
+ 
+        END DO
+        END DO
+ 
+ 
+        DO ikl = 1,kcolp
+        DO ikv=1,mwp
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0     IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV      .AND. &
+! #b0&        ikv        .EQ.nwr_SV.AND.isn        .LE.isnoSV(ikl,ikv))  &
+! #b0&        write(6,6004)   isn          ,SaltSI(ikl,ikv,isn)          &
+! #b0&                     ,sdrift(ikl,ikv,isn),zdepos(ikl,ikv,isn)      &
+! #b0&                     ,ro__SV(ikl,ikv,isn),roagr2(ikl,ikv),roagr1(ikl,ikv)  &
+! #b0&                     ,dzsnSV(ikl,ikv,isn),dzagr2(ikl,ikv),dzagr1(ikl,ikv)  &
+! #b0&                     ,dsn_SV(ikl,ikv)
+ 6004         format((27x,i3,f7.2,2f10.6,3f10.3,4f10.6))
+ 
+          istoSV(ikl,ikv,isn) = isagr1(ikl,ikv)
+          dzsnSV(ikl,ikv,isn) = dzagr1(ikl,ikv)
+          TsisSV(ikl,ikv,isn) = T_agr1(ikl,ikv)
+          ro__SV(ikl,ikv,isn) = roagr1(ikl,ikv)
+          eta_SV(ikl,ikv,isn) = etagr1(ikl,ikv)
+          G1snSV(ikl,ikv,isn) = G1agr1(ikl,ikv)
+          G2snSV(ikl,ikv,isn) = G2agr1(ikl,ikv)
+          agsnSV(ikl,ikv,isn) = agagr1(ikl,ikv)
+ 
+        END DO
+        END DO
+ 
+      END DO
+ 
+! OUTPUT in SISVAT for ikl = 1 (preferably for Stand Alone Version)
+! OUTPUT           for SnowFall and Snow Buffer
+! #s2   IF          (isnoSV(1,1) .GT. 0)                               &
+! #s2&  write(6,6008)isnoSV(1,1),  dsn_SV(1) *dt__SV + BufsSV(1,1),    &
+! #s2&              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1,1))
+ 6008   format(i3,'  dsn+Buf=',f6.2,6x,'A dz *ro =',10f6.2,            &
+     &                                       (/,35x,10f6.2))
+ 
+        DO ikl = 1,kcolp
+        DO ikv=1,mwp
+          hdrift      =  tdepos(ikl,ikv)/dt__SV
+          esnbSV(ikl,ikv) = (dsnbSV(ikl,ikv)-1.00)*hdrift/max(dsn_SV(ikl,ikv),eps6) &
+     &                  +dsnbSV(ikl,ikv)
+          dsnbSV(ikl,ikv) =          min(un_1,   max(zer0,esnbSV(ikl,ikv) )   )
+!         dsnbSV is now the Blown Snow fraction of precipitating snow
+!                will be used for characterizing the Buffer Layer
+!               (see update of  Bros_N, G1same, G2same, zroOLD, zroNEW)
+        END DO
+        END DO
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                         !
+! DE-ALLOCATION                                           !
+! =============                                           !
+ 
+      IF (FlagDALLOC)                                THEN !
+ 
+      deallocate          ( SaltSI )                      ! Snow Drift Index
+      deallocate          ( sdrift )                      !
+      deallocate          ( xdrift )                      !
+      deallocate          ( zdrift )                      !
+      deallocate          ( tdepos )                      !
+      deallocate          ( zdepos )                      !
+      deallocate          ( dbsaux )                      ! Drift Amount   (Dummy Variable)
+      deallocate          ( isagr1 )                      ! 1st     Layer History
+      deallocate          ( isagr2 )                      ! 2nd     Layer History
+ 
+      deallocate          ( WEagre )                      ! Snow Water Equivalent Thickness
+      deallocate          ( Agrege )                      ! 1. when Agregation constrained
+      deallocate          ( dzagr1 )                      ! 1st     Layer Thickness
+      deallocate          ( dzagr2 )                      ! 2nd     Layer Thickness
+      deallocate          ( T_agr1 )                      ! 1st     Layer Temperature
+      deallocate          ( T_agr2 )                      ! 2nd     Layer Temperature
+      deallocate          ( roagr1 )                      ! 1st     Layer Density
+      deallocate          ( roagr2 )                      ! 2nd     Layer Density
+      deallocate          ( etagr1 )                      ! 1st     Layer Water Content
+      deallocate          ( etagr2 )                      ! 2nd     Layer Water Content
+      deallocate          ( G1agr1 )                      ! 1st     Layer Dendricity/Spher.
+      deallocate          ( G1agr2 )                      ! 2nd     Layer Dendricity/Spher.
+      deallocate          ( G2agr1 )                      ! 1st     Layer Sphericity/Size
+      deallocate          ( G2agr2 )                      ! 2nd     Layer Sphericity/Size
+      deallocate          ( agagr1 )                      ! 1st     Layer Age
+      deallocate          ( agagr2 )                      ! 2nd     Layer Age
+ 
+      END IF                                              !
+!                                                         !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_BSn
+ 
+ 
+ 
+      subroutine SISVAT_BDu
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_BDu                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_BDu treats Dust Erosion                            |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 14-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     OUTPUT:  usthSV   : Blowing Snow Erosion   Threshold           [m/s] |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     REFER. : Fecan, F., B. Marticorena and G. Bergametti, 1999   (Fal99) |
+!     ^^^^^^^^ Ann. Geophysicae 17, 149--157                               |
+!              u* threshold: adapted from Fig. 4 p. 153                    |
+!              Clay Content:         from Tab. 2 p. 155                    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_BDu
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Local   Variables
+! =================
+ 
+      integer           ::             ikl,ikv   ,  isot
+ 
+      real(kind=real8)  ::             eta_Du,usthDu
+ 
+ 
+! Initialisation
+! ==============
+ 
+      IF (.NOT.logust)                                              THEN
+        DO isot=1,nsot
+               etaust(isot) = 0.0014 * claypc(isot) * claypc(isot)      &! Fal99
+     &                      + 0.17   * claypc(isot)                      ! Eqn.(14)
+        END DO                                                           !  p. 154
+               logust = .true.
+      END IF
+ 
+ 
+! Soil Erodibility
+! ----------------
+ 
+      DO ikl = 1,kcolp
+      DO ikv = 1,mwp
+        eta_Du      =  max(     eta_SV(ikl,ikv,0),etaust(isotSV(ikl,ikv)))   ! Fal99
+        eta_Du      =  max(eps6,eta_SV(ikl,ikv,0)-eta_Du             )   ! Eqn.(15)
+        usthDu      = sqrt(un_1+1.21*exp(0.68*   log(eta_Du)    ))      &! p.  155
+     &              *                         ustdmn(isotSV(ikl,ikv))   &!
+     &              *                         f__ust(ivgtSV(ikl,ikv))    !
+        usthSV(ikl,ikv) =                                               &
+     &                 usthSV(ikl,ikv)*(1-max(0,1-isnoSV(ikl,ikv))) +   &
+     &                 usthDu     *   max(0,1-isnoSV(ikl,ikv))
+      END DO
+      END DO
+ 
+ 
+      return
+      end subroutine SISVAT_BDu
+ 
+ 
+ 
+      subroutine SISVAT_SIc(                                            &
+! #m2&                      SIvAcr                                      &
+     &                     )
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_SIc                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_SIc treats Sea-Ice and Ocean Latent Heat Exchanges |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Thu 14-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     INPUT:   TaT_SV   : SBL Top    Temperature                       [K] |
+!     ^^^^^    isnoSV   : total Nb of Ice/Snow Layers                  [-] |
+!              LSmask   : Land-Sea   Mask                              [-] |
+!              dsn_SV   : Snow  Intensity                      [mm w.e./s] |
+!                                                                          |
+!     INPUT /  TsisSV   : Snow/Ice/Soil-Water Temperature              [K] |
+!     OUTPUT:  eta_SV   : Soil/Snow Water   Content                [m3/m3] |
+!     ^^^^^^   dzsnSV   : Snow Layer        Thickness                  [m] |
+!                                                                          |
+!     OUTPUT:  HFraSV   : Frazil            Thickness                  [m] |
+!     ^^^^^^                                                               |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #SJ: Sea-Ice Bottom   accretion  and  ocean cooling due to SnowFall  |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_SIc
+! #m2 use Mod_SISVATLSIc
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Local Variables
+! ===============
+ 
+      integer           ::            ikl   ,ikv   ,n
+      real(kind=real8)  ::            OCN_OK
+! #SJ real(kind=real8)  ::            SIceOK
+! #SJ real(kind=real8)  ::            SIcFrz
+! #SJ real(kind=real8)  ::            Twat_n
+ 
+      real(kind=real8)  ::            SalIce = 10.                     ! Sea-Ice   Salinity
+      real(kind=real8)  ::            SalWat = 35.                     ! Sea-Water Salinity
+                                                                       !  Typical Salinities in Terra Nova Bay
+                                                                       ! (Bromwich and Kurtz,   1984, JGR, p.3568;
+                                                                       !  Cavalieri and Martin, 1985,      p. 248)
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+! #m2 IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+! #m2 allocate                                       ( SIvAcr(kcolp,mwp) )
+ 
+! #m2 END IF
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Initialisation
+! ==============
+ 
+      IF (.NOT.SIcINI)                                              THEN
+               SIcINI =  .true.
+               Crodzw =  hC_Wat*rhoWat *          dz_dSV(0)     ! [J/m2/K]
+               Lro__I =  LhfH2O*rhoIce *(1.-1.e-3*SalIce       &! [J/m3]
+     &                 -(SalIce/SalWat)*(1.-1.e-3*SalWat) )     !
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1          Lro__I =  LhfH2O*rhoIce
+ 
+      END IF
+ 
+ 
+! Snow Fall cools Sea Water
+! =========================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        OCN_OK        =  (1   -LSmask(ikl,ikv) )                       &! Free Ocean
+     &             *max(0,1   -isnoSV(ikl,ikv)   )                      !
+! #SJ   TsisSV(ikl,ikv,0) =        TsisSV(ikl,ikv,0)                   &! [K]
+! #SJ& -OCN_OK*(Cn_dSV*(Tf_Sno-TaT_SV(ikl,ikv)   )                     &! [J/kg]
+! #SJ&         +LhfH2O*(1.    -eta_SV(ikl,ikv,0)))                     &! [J/kg]
+! #SJ&        * dsn_SV(ikl,ikv)   *dt__SV          / Crodzw             ! [kg/m2]
+ 
+ 
+! Sea-Ice Formation
+! =================
+ 
+! #SJ   Twat_n      =      max(TsisSV(ikl,ikv,0  )  ,Tf_Sea)    ! [K]
+! #SJ   SIcFrz      =  (Twat_n-TsisSV(ikl,ikv,0  ) )*Crodzw/Lro__I &! [m]
+! #SJ&                              * 0.75
+!  ***  Hibler (1984), Ocean Heat Flux: 25% of cooling (ANTARCTIC Ocean)
+!      (Hansen and Takahashi Eds)
+!       Geophys. Monogr. 29, M. Ewing Vol. 5, AGU, p. 241
+ 
+ 
+! Frazil  Formation
+! -----------------
+ 
+! #SJ   HFraSV(ikl,ikv) =          SIcFrz           *OCN_OK
+ 
+ 
+! Growth of the Sea-Ice First Ice Floe
+! ------------------------------------
+ 
+! #SJ   SIceOK        =  (1   -LSmask(ikl,ikvp,n)  )         &! Ice Cover.Ocean
+! #SJ&             *min(  1   ,isnoSV(ikl,ikv)     )          !
+! #SJ   dzsnSV(ikl,ikv,1) =        dzsnSV(ikl,ikv,1)         &! Vertical Acret.
+! #SJ&                +        SIcFrz           *SIceOK       !
+ 
+ 
+! OUTPUT/Verification: SeaIce Conservation: Diagnostic of Surface Mass Balance
+! #m2   SIvAcr(ikl,ikv) = rhoIce*SIcFrz     *(OCN_OK+SIceOK)           &
+! #m2&              - dt__SV*dsn_SV(ikl,ikv)* OCN_OK
+ 
+ 
+! Water Fluxes Update
+! -------------------
+ 
+        RnofSV(ikl,ikv) =          RnofSV(ikl,ikv)                     &
+     &              +          dsn_SV(ikl,ikv) *     OCN_OK
+        dsn_SV(ikl,ikv) =          dsn_SV(ikl,ikv) * (1.-OCN_OK)
+ 
+      END DO
+      END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+! #m2 IF (FlagDALLOC)                                             THEN !
+ 
+! #m2 deallocate                                     ( SIvAcr )
+ 
+! #m2 END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_SIc
+ 
+ 
+ 
+      subroutine SISVAT_zSn
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_zSn                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_zSn manages the Snow Pack vertical Discretization  |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Mon  4-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT /  NLaysv   = New             Snow Layer  Switch               |
+!     OUTPUT:  isnoSV   = total Nb of Ice/Snow Layers                      |
+!     ^^^^^^   ispiSV   = 0,...,nsno: Uppermost Superimposed Ice Layer     |
+!              iiceSV   = total Nb of Ice      Layers                      |
+!              istoSV   = 0,...,5 :   Snow     History (see istdSV data)   |
+!                                                                          |
+!     INPUT /  TsisSV   : Soil/Ice Temperatures (layers -nsoil,-nsoil+1, 0)|
+!     OUTPUT:           & Snow     Temperatures (layers  1,2,...,nsno) [K] |
+!     ^^^^^^   ro__SV   : Soil/Snow Volumic Mass                   [kg/m3] |
+!              eta_SV   : Soil/Snow Water   Content                [m3/m3] |
+!              dzsnSV   : Snow Layer        Thickness                  [m] |
+!              G1snSV   : Dendricity (<0) or Sphericity (>0) of Snow Layer |
+!              G2snSV   : Sphericity (>0) or Size            of Snow Layer |
+!              agsnSV   : Snow       Age                             [day] |
+!                                                                          |
+!     METHOD:  1) Agregate the thinest Snow Layer                          |
+!     ^^^^^^      if a new Snow Layer has been precipitated   (NLaysv = 1) |
+!              2) Divide   a too thick Snow Layer except                   |
+!                 if the maximum Number of Layer is reached                |
+!                 in this case forces                          NLay_s = 1  |
+!              3) Agregate the thinest Snow Layer                          |
+!                 in order to divide a too thick Snow Layer                |
+!                 at next Time Step when                       NLay_s = 1  |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: #SX: Search Ice/Snow Interface in Snow Model  |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_zSn.vz        | #vz: OUTPUT/Verification: Snow Layers Agrega. |
+!                          |      unit 41, SubRoutine  SISVAT_zSn **ONLY** |
+!   # SISVAT_GSn.vp        | #vp: OUTPUT/Verification: Snow   Properties   |
+!                          |      unit 47, SubRoutines SISVAT_zSn, _GSn    |
+!   # stdout               | #s1: OUTPUT of Snow Layers Agregation         |
+!                          |      unit  6, SubRoutine  SISVAT_zSn, _zAg    |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_zSn
+      use Mod_SISVATLzSn
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      integer                                      ::  ikl,ikv   ,isn   ,i !
+ 
+      integer                                      ::  LstLay          ! 0 ====> isnoSV = 1
+      integer                                      ::  isno_n          ! Snow Normal.Profile
+      integer                                      ::  iice_n          ! Ice  Normal.Profile
+      integer                                      ::  iiceOK          ! Ice         Switch
+      integer                                      ::  icemix = 0      ! 0 ====> Agregated Snow+Ice=Snow
+                                                                       ! 1                          Ice
+      real(kind=real8)                             ::  staggr          !              stagger  Switch
+ 
+      real(kind=real8)                             ::  OKthin          ! Swich ON  a  new thinest layer
+      real(kind=real8)                             ::  dz_dif          ! difference from ideal discret.
+      real(kind=real8)                             ::  thickL          ! Thick Layer          Indicator
+! #SX real(kind=real8)                             ::  OK_ICE          ! Swich ON   uppermost Ice Layer
+ 
+      real(kind=real8)                             ::  dzepsi = 0.0015 ! Min Single Snw Layer Thickness
+      real(kind=real8)                             ::  dzxmin = 0.0020 ! Min Acceptable Layer Thickness
+      real(kind=real8)                             ::  dz_min = 0.0050 ! Min Local      Layer Thickness
+      real(kind=real8)                             ::  dz_max = 0.0300 ! Min Gener.     Layer Thickness
+!     CAUTION:                           dz_max > dz_min*2 is required ! Otherwise re-agregation is
+                                                                       ! activated  after splitting
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate            ( NLay_s(kcolp,mwp) )                        ! Split Snow Layer         Switch
+      allocate            ( isagr1(kcolp,mwp) )                        ! 1st     Layer History
+      allocate            ( isagr2(kcolp,mwp) )                        ! 2nd     Layer History
+      allocate            ( isn1  (kcolp,mwp) )                        ! 1st layer to stagger
+      allocate            ( WEagre(kcolp,mwp) )                        ! Snow Water Equivalent Thickness
+      allocate            ( dzthin(kcolp,mwp) )                        ! Thickness of the thinest layer
+      allocate            ( Agrege(kcolp,mwp) )                        ! 1. when Agregation constrained
+      allocate            ( dzagr1(kcolp,mwp) )                        ! 1st     Layer Thickness
+      allocate            ( dzagr2(kcolp,mwp) )                        ! 2nd     Layer Thickness
+      allocate            ( T_agr1(kcolp,mwp) )                        ! 1st     Layer Temperature
+      allocate            ( T_agr2(kcolp,mwp) )                        ! 2nd     Layer Temperature
+      allocate            ( roagr1(kcolp,mwp) )                        ! 1st     Layer Density
+      allocate            ( roagr2(kcolp,mwp) )                        ! 2nd     Layer Density
+      allocate            ( etagr1(kcolp,mwp) )                        ! 1st     Layer Water Content
+      allocate            ( etagr2(kcolp,mwp) )                        ! 2nd     Layer Water Content
+      allocate            ( G1agr1(kcolp,mwp) )                        ! 1st     Layer Dendricity/Spher.
+      allocate            ( G1agr2(kcolp,mwp) )                        ! 2nd     Layer Dendricity/Spher.
+      allocate            ( G2agr1(kcolp,mwp) )                        ! 1st     Layer Sphericity/Size
+      allocate            ( G2agr2(kcolp,mwp) )                        ! 2nd     Layer Sphericity/Size
+      allocate            ( agagr1(kcolp,mwp) )                        ! 1st     Layer Age
+      allocate            ( agagr2(kcolp,mwp) )                        ! 2nd     Layer Age
+ 
+! #vz allocate            ( dz_ref(nsnow) )                            ! Snow Reference Discretization
+! #vz allocate            ( dzwdif(nsnow) )                            !
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz IF (.NOT.as_opn)                                              THEN
+! #vz          as_opn=.true.
+! #vz     open(unit=41,status='unknown',file='SISVAT_zSn.vz')
+! #vz     rewind    41
+! #vz END IF
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp IF (.NOT.VP_opn)                                              THEN
+! #vp          VP_opn=.true.
+! #vp     open(unit=47,status='unknown',file='SISVAT_GSn.vp')
+! #vp     rewind    47
+! #vp END IF
+ 
+ 
+! Constrains Agregation         of too thin  Layers
+! =================================================
+ 
+! Search the thinest  non-zero Layer
+! ----------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          dzthin(ikl,ikv) = 0.                          ! Arbitrary unrealistic
+        END DO
+        END DO                                          !       Layer Thickness
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isno_n    =             isnoSV(ikl,ikv)-isn+1 ! Snow Normal.Profile
+          iice_n    =             iiceSV(ikl,ikv)-isn   ! Ice  Normal.Profile
+          iiceOK    = min(1,max(0,iice_n         +1))   ! Ice         Switch
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     dz_ref(isn) =                                &!
+! #vz&          dz_min *((1-iiceOK)*isno_n*isno_n      &! Theoretical Profile
+! #vz&                 +    iiceOK *    2**iice_n)     &!
+! #vz&               /max(1,isnoSV(ikl,ikv))            !
+ 
+          dz_dif      = max(zer0,                      &! Actual      Profile
+     &          dz_min                                 &!
+     &                 *((1-iiceOK)*isno_n*isno_n      &! Theoretical Profile
+     &                 +    iiceOK *2.   **iice_n)     &!
+     &        - dzsnSV(ikl,ikv, isn)                    )   ! Actual      Profile
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     dzwdif(isn) =     dz_dif                      !
+ 
+          OKthin      = max(zer0,                      &!
+     &                      sign(un_1,                 &!
+     &                           dz_dif-dzthin(ikl,ikv)))  &! 1.=> New thinest Lay.
+     &                * max(0,                         &! 1 => .le. isnoSV
+     &                  min(1,                         &! 1 => isn is in the
+     &                      isnoSV(ikl,ikv)-isn +1 ))  &!          Snow Pack
+     &                * min(un_1,                      &         !
+!
+!                       1st additional Condition to accept OKthin
+     &                  max(zer0,                               &! combination
+     &                      sign(un_1,G1snSV(ikl,ikv,      isn  )   &! G1 with same
+     &                               *G1snSV(ikl,ikv,max(1,isn-1))))&!  sign => OK
+!
+!                       2nd additional Condition to accept OKthin
+     &                + max(zer0,                               &! G1>0
+     &                      sign(un_1,G1snSV(ikl,ikv,      isn   )))&!  =>OK
+!
+!                       3rd additional Condition to accept OKthin
+     &                + max(zer0,                               &! dz too small
+     &                      sign(un_1,dzxmin                    &!  =>OK
+     &                               -dzsnSV(ikl,ikv,      isn   ))))!
+ 
+          i_thin(ikl,ikv) =    (1. - OKthin)  * i_thin(ikl,ikv)&! Update   thinest Lay.
+     &                         + OKthin   * isn         !                Index
+          dzthin(ikl,ikv) =    (1. - OKthin)  * dzthin(ikl,ikv)&!
+     &                         + OKthin   * dz_dif      !
+        END DO
+        END DO
+      END DO
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4150) daHost     ,n___SV(  lwriSV(1,1))             &
+! #vz&                  ,i_thin(1,1),dzsnSV(1,i_thin(1,1))
+ 4150     format(/,'-',a18,i5,' ',70('-'),                             &
+     &           /,' Thinest ',i3,':',f9.3)
+ 
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          OKthin =      max(zer0,                       &!
+     &                      sign(un_1,                  &!
+     &                           dz_min                 &!
+     &                          -dzsnSV(ikl,ikv,isn)))  &!
+     &                * max(zer0,                       &! ON if dz > 0
+     &                      sign(un_1,                  &!
+     &                           dzsnSV(ikl,ikv,isn)-eps6)) &!
+     &           *min(1,max(0,                          &! Multiple Snow    Lay.
+     &                      min (1,                     &! Switch = 1
+     &                           isnoSV(ikl,ikv)        &!   if isno > iice + 1
+     &                          -iiceSV(ikl,ikv)-1))    &!
+                                                         !
+     &             +int(max(zer0,                       &!
+     &                      sign(un_1,                  &!
+     &                           dzepsi                 &! Minimum accepted for
+     &                          -dzsnSV(ikl,ikv,isn)))) &! 1 Snow Layer over Ice
+     &             *int(max(zer0,                       &! ON if dz > 0
+     &                      sign(un_1,                  &!
+     &                           dzsnSV(ikl,ikv,isn)-eps6)))&!
+     &                 *(1 -min (abs(isnoSV(ikl,ikv)    &! Switch = 1
+     &                              -iiceSV(ikl,ikv)-1),1)) &!   if isno = iice + 1
+                                                         !
+     &                 +max(0,                          &! Ice
+     &                      min (1,                     &! Switch
+     &                           iiceSV(ikl,ikv)+1-isn)))   &!
+     &             *min(un_1,                                    &!
+     &                  max(zer0,                                &! combination
+     &                      sign(un_1,G1snSV(ikl,ikv,      isn  )&! G1>0 + G1<0
+     &                               *G1snSV(ikl,ikv,max(1,isn-1)))) &! NO
+     &                + max(zer0,                                &!
+     &                      sign(un_1,G1snSV(ikl,ikv,      isn   ))) &!
+     &                + max(zer0,                                &!
+     &                      sign(un_1,dzxmin                     &!
+     &                               -dzsnSV(ikl,ikv,      isn   )))) !
+          i_thin(ikl,ikv) =    (1. - OKthin)  * i_thin(ikl,ikv) &! Update   thinest Lay.
+     &                         + OKthin   * isn          !                Index
+        END DO
+        END DO
+      END DO
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4151) i_thin(1,1),dzsnSV(1,i_thin(1,1))             &
+! #vz&                  ,isnoSV(1,1),dzsnSV(1,isnoSV(1,1))
+ 4151     format(' Thinest ',i3,':',f9.3,'   Max   =',i3,f12.3)
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,470)(G1snSV(1,isn),isn=1,isnoSV(1,1))
+ 470    format('Before _zCr1: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1,1))
+ 472    format('              G2 = ',10f8.1,(/,19x,10f8.1))
+ 
+ 
+! Index of the contiguous Layer to agregate
+! -----------------------------------------
+ 
+!          **********
+      call SISVAT_zCr
+!          **********
+ 
+ 
+! Assign the 2 Layers to agregate
+! -------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn         =    i_thin(ikl,ikv)
+          isagr1(ikl,ikv) =    istoSV(ikl,ikv,isn)
+          isagr2(ikl,ikv) =    istoSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          dzagr1(ikl,ikv) =    dzsnSV(ikl,ikv,isn)
+          dzagr2(ikl,ikv) =    dzsnSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          T_agr1(ikl,ikv) =    TsisSV(ikl,ikv,isn)
+          T_agr2(ikl,ikv) =    TsisSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          roagr1(ikl,ikv) =    ro__SV(ikl,ikv,isn)
+          roagr2(ikl,ikv) =    ro__SV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          etagr1(ikl,ikv) =    eta_SV(ikl,ikv,isn)
+          etagr2(ikl,ikv) =    eta_SV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          G1agr1(ikl,ikv) =    G1snSV(ikl,ikv,isn)
+          G1agr2(ikl,ikv) =    G1snSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          G2agr1(ikl,ikv) =    G2snSV(ikl,ikv,isn)
+          G2agr2(ikl,ikv) =    G2snSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          agagr1(ikl,ikv) =    agsnSV(ikl,ikv,isn)
+          agagr2(ikl,ikv) =    agsnSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          LstLay      = min(1,max(  0,isnoSV(ikl,ikv) -1))  ! 0  if single Layer
+          isnoSV(ikl,ikv) =               isnoSV(ikl,ikv)  &! decrement   isnoSV
+     &     -(1-LstLay)* max(zer0,                      &! if downmost  Layer
+     &                      sign(un_1,eps_21           &! <  1.e-21 m
+     &                               -dzsnSV(ikl,ikv,1)))   !
+          isnoSV(ikl,ikv) = max(   0,     isnoSV(ikl,ikv)   )   !
+          Agrege(ikl,ikv) = max(zer0,                  &!
+     &                      sign(un_1,dz_min           &! No Agregation
+     &                               -dzagr1(ikl,ikv)  ))  &! if too thick Layer
+     &                               *LstLay           &! if  a single Layer
+     &                * min( max(0   ,isnoSV(ikl,ikv)+1&! if Agregation
+     &                               -i_thin(ikl,ikv)  &!    with    a Layer
+     &                               -LIndsv(ikl,ikv)  ),1) !    above the Pack
+ 
+          WEagre(ikl,ikv) = 0.
+        END DO
+        END DO
+ 
+        DO isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          WEagre(ikl,ikv) = WEagre(ikl,ikv) + ro__SV(ikl,ikv,isn)*dzsnSV(ikl,ikv,isn)  &
+     &                                *min(1,max(0,i_thin(ikl,ikv)+1-isn))
+        END DO
+        END DO
+        END DO
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz write(41,410)
+ 410  format(/,' Agregation of too THIN Layers')
+! #vz write(41,411) (100.*dz_ref(  isn),isn=1,nsnow)
+! #vz write(41,412) (100.*dzwdif(  isn),isn=1,nsnow)
+! #vz write(41,413) (100.*dzsnSV(1,isn),isn=1,nsnow)
+! #vz write(41,414) (              isn ,isn=1,nsnow)
+ 411  format(' dz_ref [cm]:',10f8.2   ,/,('             ',10f8.2) )
+ 412  format(' dz_dif [cm]:',10f8.2   ,/,('             ',10f8.2) )
+ 413  format(' dzsnSV [cm]:',10f8.2   ,/,('             ',10f8.2) )
+ 414  format('             ',10(i5,3x),/,('             ',10(i5,3x)))
+! #vz write(41,4111)      isnoSV(1    )
+! #vz write(41,4112)      i_thin(1    )
+! #vz write(41,4113)      LIndsv(1    )
+! #vz write(41,4114)      Agrege(1    )
+! #vz write(41,4115) 1.e2*dzagr1(1    )
+! #vz write(41,4116) 1.e2*dzagr2(1    )
+ 4111 format(' isnoSV     :',  i8  )
+ 4112 format(' i_thin     :',  i8  )
+ 4113 format(' LIndsv     :',  i8  )
+ 4114 format(' Agrege     :',  f8.2)
+ 4115 format(' dzagr1     :',  f8.2)
+ 4116 format(' dzagr2     :',  f8.2)
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,471)(G1snSV(1,isn),isn=1,isnoSV(1,1))
+ 471    format('Before _zAg1: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1,1))
+ 
+ 
+! Agregates
+! ---------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+!            **********
+        call SISVAT_zAg                                                &
+     &             (ikl,ikv,isagr1(ikl,ikv),isagr2(ikl,ikv),WEagre(ikl,ikv)&
+     &                 ,dzagr1(ikl,ikv),dzagr2(ikl,ikv),T_agr1(ikl,ikv),T_agr2(ikl,ikv)&
+     &                 ,roagr1(ikl,ikv),roagr2(ikl,ikv),etagr1(ikl,ikv),etagr2(ikl,ikv)&
+     &                 ,G1agr1(ikl,ikv),G1agr2(ikl,ikv),G2agr1(ikl,ikv),G2agr2(ikl,ikv)&
+     &                 ,agagr1(ikl,ikv),agagr2(ikl,ikv),Agrege(ikl,ikv)&
+     &                 )
+!            **********
+ 
+        END DO
+        END DO
+ 
+ 
+! Rearranges the Layers
+! ---------------------
+ 
+! New (agregated) Snow layer
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn     =             i_thin(ikl,ikv)
+          isn     = min(isn,isn+LIndsv(ikl,ikv))
+          isnoSV(ikl,ikv) =         isnoSV(ikl,ikv) -Agrege(ikl,ikv)
+          iiceSV(ikl,ikv) =         iiceSV(ikl,ikv)                    &
+     &            -max(0,sign(1,iiceSV(ikl,ikv) -isn +icemix))         &
+     &                                      *Agrege(ikl,ikv)           &
+     &            *max(0,sign(1,iiceSV(ikl,ikv) -1          ))
+          istoSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *isagr1(ikl,ikv)
+          dzsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *dzagr1(ikl,ikv)
+          TsisSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *T_agr1(ikl,ikv)
+          ro__SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *roagr1(ikl,ikv)
+          eta_SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *etagr1(ikl,ikv)
+          G1snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *G1agr1(ikl,ikv)
+          G2snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *G2agr1(ikl,ikv)
+          agsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *agagr1(ikl,ikv)
+        END DO
+        END DO
+ 
+! Above
+! ^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn1(ikl,ikv)=max(i_thin(ikl,ikv),i_thin(ikl,ikv)+LIndsv(ikl,ikv))
+        END DO
+        END DO
+        DO i=  1,nsnow-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+            staggr        =  min(1,max(0,i +1 -isn1(ikl,ikv)   ))
+            istoSV(ikl,ikv,i) = (1.-staggr     )*istoSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *istoSV(ikl,ikv,i+1))
+            dzsnSV(ikl,ikv,i) = (1.-staggr     )*dzsnSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *dzsnSV(ikl,ikv,i+1))
+            TsisSV(ikl,ikv,i) = (1.-staggr     )*TsisSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *TsisSV(ikl,ikv,i+1))
+            ro__SV(ikl,ikv,i) = (1.-staggr     )*ro__SV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *ro__SV(ikl,ikv,i+1))
+            eta_SV(ikl,ikv,i) = (1.-staggr     )*eta_SV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *eta_SV(ikl,ikv,i+1))
+            G1snSV(ikl,ikv,i) = (1.-staggr     )*G1snSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *G1snSV(ikl,ikv,i+1))
+            G2snSV(ikl,ikv,i) = (1.-staggr     )*G2snSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *G2snSV(ikl,ikv,i+1))
+            agsnSV(ikl,ikv,i) = (1.-staggr     )*agsnSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *agsnSV(ikl,ikv,i+1))
+        END DO
+        END DO
+        END DO
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn             = min(isnoSV(ikl,ikv) +1,nsnow)
+          istoSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,isn)
+          dzsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,isn)
+          TsisSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,isn)
+          ro__SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,isn)
+          eta_SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,isn)
+          G1snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,isn)
+          G2snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,isn)
+          agsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,isn)
+        END DO
+        END DO
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #s1   IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV      .AND. &
+! #s1&      ikv        .EQ.nwr_SV                          )     THEN
+! #s1     write(6,5991) i_thin(ikl,ikv)
+ 5991     format(/,'First Agregation / Layer',i3,                      &
+     &           /,'  i',11x,'T',9x,'rho',10x,'dz',11x,'H')
+! #s1     write(6,5995) (isn,TsisSV(ikl,ikv,isn),ro__SV(ikl,ikv,isn)   &
+! #s1&                      ,dzsnSV(ikl,ikv,isn),istoSV(ikl,ikv,isn),  &
+! #s1&                   isn=isnoSV(ikl,ikv),1,-1)
+ 5995     format(i3,3f12.3,i12)
+! #s1   END IF
+ 
+ 
+! Constrains Splitting          of too thick Layers
+! =================================================
+ 
+ 
+! Search the thickest non-zero Layer
+! ----------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          dzthin(ikl,ikv) =   0.                        ! Arbitrary unrealistic
+        END DO
+        END DO                                          !       Layer Thickness
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isno_n    =             isnoSV(ikl,ikv)-isn+1 ! Snow Normal.Profile
+          iice_n    =             iiceSV(ikl,ikv)-isn   ! Ice  Normal.Profile
+          iiceOK    = min(1,max(0,iice_n         +1))   ! Ice         Switch
+          dz_dif    =(      dzsnSV(ikl,ikv,isn)        &! Actual      Profile
+     &        - dz_max *((1-iiceOK)*isno_n*isno_n      &! Theoretical Profile
+     &                 +    iiceOK *2.   **iice_n)  )  &!
+     &                 /max(dzsnSV(ikl,ikv,isn),eps6)   !
+          OKthin      = max(zer0,                      &!
+     &                      sign(un_1,                 &!
+     &                           dz_dif-dzthin(ikl,ikv)))  &! 1.=>New thickest Lay.
+     &                * max(0,                         &! 1 =>.le. isnoSV
+     &                  min(1,                         &!
+     &                      isnoSV(ikl,ikv)-isn +1 ))   !
+          i_thin(ikl,ikv) =    (1. - OKthin)  * i_thin(ikl,ikv)&!  Update thickest Lay.
+     &                         + OKthin   * isn         !                Index
+          dzthin(ikl,ikv) =    (1. - OKthin)  * dzthin(ikl,ikv)&!
+     &                         + OKthin   * dz_dif      !
+        END DO
+        END DO
+      END DO
+ 
+      DO   ikl=1,kcolp
+      DO ikv=1,mwp
+          ThickL      = max(zer0,                      &! 1. => a too   thick
+     &                      sign(un_1,dzthin(ikl,ikv)  &!         Layer exists
+     &                               -eps6       ))    &!
+     &        * max(0,1-max(0   ,     isnoSV(ikl,ikv)  &! No spliting allowed
+     &                               -nsnow+3    ))     ! if isno > nsnow - 3
+          Agrege(ikl,ikv) =               ThickL       &! 1. => effective split
+     &        * max(0,1-max(0   ,     NLaysv(ikl,ikv)  &!
+     &                               +isnoSV(ikl,ikv)  &!
+     &                               -nsnow+1    ))     !
+          NLay_s(ikl,ikv) =               ThickL       &! Agregation
+     &        * max(0,1-max(0   ,     NLaysv(ikl,ikv)  &! to allow  Splitting
+     &                               +isnoSV(ikl,ikv)  &!   at next Time Step
+     &                               -nsnow      ))    &!
+     &                               -Agrege(ikl,ikv)   !
+          NLay_s(ikl,ikv) = max(0   ,     NLay_s(ikl,ikv))  ! Agregation effective
+      END DO
+      END DO
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4152) i_thin(1,1),dzthin(1,1),ThickL
+ 4152     format(/,' Thickest',i3,':',f9.3,'   Split =',f4.0)
+ 
+ 
+! Rearranges the Layers
+! ---------------------
+ 
+      DO isn=nsnow,2,-1
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        IF (Agrege(ikl,ikv).gt.0..AND.i_thin(ikl,ikv).lt.isnoSV(ikl,ikv))   THEN
+          staggr          =  min(1,max(0,isn-i_thin(ikl,ikv)    -1))   &
+     &                    *  min(1,max(0,    isnoSV(ikl,ikv)-isn+2))
+          istoSV(ikl,ikv,isn) =        staggr  * istoSV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * istoSV(ikl,ikv ,isn  )
+          dzsnSV(ikl,ikv,isn) =        staggr  * dzsnSV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * dzsnSV(ikl,ikv ,isn  )
+          TsisSV(ikl,ikv,isn) =        staggr  * TsisSV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * TsisSV(ikl,ikv ,isn  )
+          ro__SV(ikl,ikv,isn) =        staggr  * ro__SV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * ro__SV(ikl,ikv ,isn  )
+          eta_SV(ikl,ikv,isn) =        staggr  * eta_SV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * eta_SV(ikl,ikv ,isn  )
+          G1snSV(ikl,ikv,isn) =        staggr  * G1snSV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * G1snSV(ikl,ikv ,isn  )
+          G2snSV(ikl,ikv,isn) =        staggr  * G2snSV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * G2snSV(ikl,ikv ,isn  )
+          agsnSV(ikl,ikv,isn) =        staggr  * agsnSV(ikl,ikv ,isn-1)&
+     &                    + (1. -  staggr) * agsnSV(ikl,ikv ,isn  )
+        END IF
+      END DO
+      END DO
+      END DO
+ 
+      DO  ikl=1,kcolp
+      DO ikv=1,mwp
+          isn             =     i_thin(ikl,ikv)
+          dzsnSV(ikl,ikv,isn) = 0.5*Agrege(ikl,ikv) *dzsnSV(ikl,ikv,isn)   &
+     &                    + (1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,isn)
+ 
+          isn             = min(i_thin(ikl,ikv) +1,nsnow)
+          istoSV(ikl,ikv,isn) =     Agrege(ikl,ikv) *istoSV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,isn)
+          dzsnSV(ikl,ikv,isn) =     Agrege(ikl,ikv) *dzsnSV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,isn)
+          TsisSV(ikl,ikv,isn) =     Agrege(ikl,ikv) *TsisSV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,isn)
+          ro__SV(ikl,ikv,isn) =     Agrege(ikl,ikv) *ro__SV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,isn)
+          eta_SV(ikl,ikv,isn) =     Agrege(ikl,ikv) *eta_SV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,isn)
+          G1snSV(ikl,ikv,isn) =     Agrege(ikl,ikv) *G1snSV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,isn)
+          G2snSV(ikl,ikv,isn) =     Agrege(ikl,ikv) *G2snSV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,isn)
+          agsnSV(ikl,ikv,isn) =     Agrege(ikl,ikv) *agsnSV(ikl,ikv,isn-1) &
+     &                    + (1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,isn)
+          isnoSV(ikl,ikv)     =     Agrege(ikl,ikv) +isnoSV(ikl,ikv)
+          iiceSV(ikl,ikv)     =                  iiceSV(ikl,ikv)       &
+     &                    +     Agrege(ikl,ikv) *max(0,sign(1,iiceSV(ikl,ikv)  &
+     &                                                   -isn +icemix))&
+     &                                      *max(0,sign(1,iiceSV(ikl,ikv)  &
+     &                                                   -1          ))
+      END DO
+      END DO
+ 
+ 
+! Constrains Agregation in case of too much  Layers
+! =================================================
+ 
+! Search the thinest   non-zero Layer
+! -----------------------------------
+ 
+! OUTPUT/Verification: Snow Thinest Layer
+! #sd     write( 6,*)   ' '
+! #sd     write( 6,*)   'Agregation 2'
+! #sd     write( 6,6000) NLaysv(1)
+ 6000     format(i3,6x,                                                &
+     &          'dzsnSV      dz_min      dz_dif      ',                &
+     &          'OKthin      dzthin   i_thin')
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          dzthin(ikl,ikv) =   0.                        ! Arbitrary unrealistic
+        END DO
+        END DO                                          !       Layer Thickness
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isno_n    =             isnoSV(ikl,ikv)-isn+1 ! Snow Normal.Profile
+          iice_n    =             iiceSV(ikl,ikv)-isn   ! Ice  Normal.Profile
+          iiceOK    = min(1,max(0,iice_n         +1))   ! Ice         Switch
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     dz_ref(isn) =                                &!
+! #vz&          dz_min *((1-iiceOK)*isno_n*isno_n      &! Theoretical Profile
+! #vz&                 +    iiceOK *    2**iice_n)     &!
+! #vz&               /max(1,isnoSV(ikl,ikv))            !
+ 
+          dz_dif      =     dz_min                     &! Actual      Profile
+     &                    - dzsnSV(ikl,ikv    ,isn)    &!
+     &        /max(eps6,((1-iiceOK)*isno_n*isno_n      &! Theoretical Profile
+     &                 +    iiceOK *2.   **iice_n))     !
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     dzwdif(isn) =     dz_dif                      !
+ 
+          OKthin      = max(zer0,                       &!
+     &                      sign(un_1,                  &!
+     &                           dz_dif  - dzthin(ikl,ikv)))&! 1.=> New thinest Lay.
+     &                * max(0,                          &! 1 => .le. isnoSV
+     &                  min(1,                          &!
+     &                      isnoSV(ikl,ikv)-isn +1 ))    !
+          i_thin(ikl,ikv) =    (1. - OKthin) * i_thin(ikl,ikv)  &! Update   thinest Lay.
+     &                         + OKthin  * isn           !                Index
+          dzthin(ikl,ikv) =    (1. - OKthin) * dzthin(ikl,ikv)  &!
+     &                         + OKthin  * dz_dif        !
+ 
+! OUTPUT/Verification: Snow Thinest Layer
+! #sd   IF(isn.LE.isnoSV(1,1).AND.ikl.EQ.1.AND.ikv.EQ.1)                     &
+! #sd&    write( 6,6001) isn,dzsnSV(ikl,ikv,isn),dz_min*isno_n*isno_n,dz_dif &
+! #sd&               ,OKthin,dzthin(ikl,ikv),    i_thin(ikl,ikv)
+ 6001     format(i3,5f12.6,i9)
+ 
+        END DO
+        END DO
+      END DO
+ 
+! OUTPUT/Verification: Snow Thinest Layer
+! #sd     write( 6,*)   ' '
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4153) i_thin(1,1),dzsnSV(1,i_thin(1,1))
+ 4153     format(/,' Thinest ',i3,':',f9.3)
+! #vz     write(41,4151) i_thin(1,1),dzsnSV(1,i_thin(1,1))             &
+! #vz&                  ,isnoSV(1,1),dzsnSV(1,isnoSV(1,1))
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,473)(G1snSV(1,isn),isn=1,isnoSV(1,1))
+ 473    format('Before _zCr2: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1,1))
+ 
+ 
+! Index of the contiguous Layer to agregate
+! -----------------------------------------
+ 
+!          **********
+      call SISVAT_zCr
+!          **********
+ 
+ 
+! Assign the 2 Layers to agregate
+! -------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn         =    i_thin(ikl,ikv)
+          isagr1(ikl,ikv) =    istoSV(ikl,ikv,isn)
+          isagr2(ikl,ikv) =    istoSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          dzagr1(ikl,ikv) =    dzsnSV(ikl,ikv,isn)
+          dzagr2(ikl,ikv) =    dzsnSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          T_agr1(ikl,ikv) =    TsisSV(ikl,ikv,isn)
+          T_agr2(ikl,ikv) =    TsisSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          roagr1(ikl,ikv) =    ro__SV(ikl,ikv,isn)
+          roagr2(ikl,ikv) =    ro__SV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          etagr1(ikl,ikv) =    eta_SV(ikl,ikv,isn)
+          etagr2(ikl,ikv) =    eta_SV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          G1agr1(ikl,ikv) =    G1snSV(ikl,ikv,isn)
+          G1agr2(ikl,ikv) =    G1snSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          G2agr1(ikl,ikv) =    G2snSV(ikl,ikv,isn)
+          G2agr2(ikl,ikv) =    G2snSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          agagr1(ikl,ikv) =    agsnSV(ikl,ikv,isn)
+          agagr2(ikl,ikv) =    agsnSV(ikl,ikv,isn+LIndsv(ikl,ikv))
+          LstLay      = min(1,max(  0,    isnoSV(ikl,ikv)-1   ))
+          Agrege(ikl,ikv) = min(1,                                     &
+     &                  max(0,                                         &
+     &                      NLaysv(ikl,ikv)   +isnoSV(ikl,ikv)-nsnow   &
+     &                     +NLay_s(ikl,ikv)                    )       &
+     &                                    *LstLay           )
+          isnoSV(ikl,ikv) =                    isnoSV(ikl,ikv)         &
+     &     -(1-LstLay)*max(zer0,                                       &
+     &                     sign(un_1,      eps_21                      &
+     &                                    -dzsnSV(ikl,ikv,1)   ))
+          isnoSV(ikl,ikv) =max(   0,           isnoSV(ikl,ikv)      )
+ 
+          WEagre(ikl,ikv) = 0.
+        END DO
+        END DO
+ 
+        DO isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          WEagre(ikl,ikv) = WEagre(ikl,ikv) + ro__SV(ikl,ikv,isn)*dzsnSV(ikl,ikv,isn)  &
+     &                                *min(1,max(0,i_thin(ikl,ikv)+1-isn))
+        END DO
+        END DO
+        END DO
+ 
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz write(41,4120)
+ 4120 format(' Agregation of too MUCH Layers')
+! #vz write(41,411) (100.*dz_ref(  isn),isn=1,nsnow)
+! #vz write(41,412) (100.*dzwdif(  isn),isn=1,nsnow)
+! #vz write(41,413) (100.*dzsnSV(1,isn),isn=1,nsnow)
+! #vz write(41,414) (              isn ,isn=1,nsnow)
+! #vz write(41,4111)      isnoSV(1    )
+! #vz write(41,4112)      i_thin(1    )
+! #vz write(41,4113)      LIndsv(1    )
+! #vz write(41,4114)      Agrege(1    )
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,474)(G1snSV(1,isn),isn=1,isnoSV(1,1))
+ 474    format('Before _zAg2: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1,1))
+ 
+ 
+! Agregates
+! ---------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+!            **********
+        call SISVAT_zAg                                                &
+     &             (ikl,ikv,isagr1(ikl,ikv),isagr2(ikl,ikv),WEagre(ikl,ikv)&
+     &                 ,dzagr1(ikl,ikv),dzagr2(ikl,ikv),T_agr1(ikl,ikv),T_agr2(ikl,ikv)&
+     &                 ,roagr1(ikl,ikv),roagr2(ikl,ikv),etagr1(ikl,ikv),etagr2(ikl,ikv)&
+     &                 ,G1agr1(ikl,ikv),G1agr2(ikl,ikv),G2agr1(ikl,ikv),G2agr2(ikl,ikv)&
+     &                 ,agagr1(ikl,ikv),agagr2(ikl,ikv),Agrege(ikl,ikv)&
+     &                 )
+!            **********
+ 
+        END DO
+        END DO
+ 
+ 
+! Rearranges the Layers
+! ---------------------
+ 
+! New (agregated) Snow layer
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn     =             i_thin(ikl,ikv)
+          isn     = min(isn,isn+LIndsv(ikl,ikv))
+          isnoSV(ikl,ikv) =         isnoSV(ikl,ikv) -Agrege(ikl,ikv)
+          iiceSV(ikl,ikv) =         iiceSV(ikl,ikv)                    &
+     &            -max(0,sign(1,iiceSV(ikl,ikv) -isn +icemix))         &
+     &                                      *Agrege(ikl,ikv)           &
+     &            *max(0,sign(1,iiceSV(ikl,ikv) -1          ))
+          istoSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *isagr1(ikl,ikv)
+          dzsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *dzagr1(ikl,ikv)
+          TsisSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *T_agr1(ikl,ikv)
+          ro__SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *roagr1(ikl,ikv)
+          eta_SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *etagr1(ikl,ikv)
+          G1snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *G1agr1(ikl,ikv)
+          G2snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *G2agr1(ikl,ikv)
+          agsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,isn)   &
+     &                      +   Agrege(ikl,ikv) *agagr1(ikl,ikv)
+        END DO
+        END DO
+ 
+! Above
+! ^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn1(ikl,ikv)=max(i_thin(ikl,ikv),i_thin(ikl,ikv)+LIndsv(ikl,ikv))
+        END DO
+        END DO
+        DO i=  1,nsnow-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+            staggr        =  min(1,max(0,i +1 -isn1(ikl,ikv)   ))
+            istoSV(ikl,ikv,i) = (1.-staggr     )*istoSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *istoSV(ikl,ikv,i+1))
+            dzsnSV(ikl,ikv,i) = (1.-staggr     )*dzsnSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *dzsnSV(ikl,ikv,i+1))
+            TsisSV(ikl,ikv,i) = (1.-staggr     )*TsisSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *TsisSV(ikl,ikv,i+1))
+            ro__SV(ikl,ikv,i) = (1.-staggr     )*ro__SV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *ro__SV(ikl,ikv,i+1))
+            eta_SV(ikl,ikv,i) = (1.-staggr     )*eta_SV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *eta_SV(ikl,ikv,i+1))
+            G1snSV(ikl,ikv,i) = (1.-staggr     )*G1snSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *G1snSV(ikl,ikv,i+1))
+            G2snSV(ikl,ikv,i) = (1.-staggr     )*G2snSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *G2snSV(ikl,ikv,i+1))
+            agsnSV(ikl,ikv,i) = (1.-staggr     )*agsnSV(ikl,ikv,i  )   &
+     &            + staggr*((1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,i  )   &
+     &                      +   Agrege(ikl,ikv) *agsnSV(ikl,ikv,i+1))
+        END DO
+        END DO
+        END DO
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          isn             = min(isnoSV(ikl,ikv) +1,nsnow)
+          istoSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*istoSV(ikl,ikv,isn)
+          dzsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*dzsnSV(ikl,ikv,isn)
+          TsisSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*TsisSV(ikl,ikv,isn)
+          ro__SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*ro__SV(ikl,ikv,isn)
+          eta_SV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*eta_SV(ikl,ikv,isn)
+          G1snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G1snSV(ikl,ikv,isn)
+          G2snSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*G2snSV(ikl,ikv,isn)
+          agsnSV(ikl,ikv,isn) = (1.-Agrege(ikl,ikv))*agsnSV(ikl,ikv,isn)
+        END DO
+        END DO
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,475)(G1snSV(1,isn),isn=1,isnoSV(1,1))
+ 475    format('At End _zSn : G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1,1))
+ 
+ 
+! Search new Ice/Snow Interface
+! =============================
+ 
+! #SX   DO ikl=1,kcolp
+! #SX   DO ikv=1,mwp
+! #SX     iiceSV(ikl,ikv) =  0
+! #SX   END DO
+! #SX   END DO
+ 
+! #SX   DO isn=1,nsnow
+! #SX   DO ikl=1,kcolp
+! #SX   DO ikv=1,mwp
+! #SX     OK_ICE      = max(zer0,sign(un_1,ro__SV(ikl,ikv,isn)-850.))  &
+! #SX&                * max(zer0,sign(un_1,dzsnSV(ikl,ikv,isn)-eps6))
+! #SX     iiceSV(ikl,ikv) = (1.-OK_ICE)       *iiceSV(ikl,ikv)         &
+! #SX&                +     OK_ICE        *isn
+! #SX   END DO
+! #SX   END DO
+! #SX   END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate          ( NLay_s )                                   ! Split Snow Layer         Switch
+      deallocate          ( isagr1 )                                   ! 1st     Layer History
+      deallocate          ( isagr2 )                                   ! 2nd     Layer History
+      deallocate          ( isn1   )                                   ! 1st layer to stagger
+      deallocate          ( WEagre )                                   ! Snow Water Equivalent Thickness
+      deallocate          ( dzthin )                                   ! Thickness of the thinest layer
+      deallocate          ( Agrege )                                   ! 1. when Agregation constrained
+      deallocate          ( dzagr1 )                                   ! 1st     Layer Thickness
+      deallocate          ( dzagr2 )                                   ! 2nd     Layer Thickness
+      deallocate          ( T_agr1 )                                   ! 1st     Layer Temperature
+      deallocate          ( T_agr2 )                                   ! 2nd     Layer Temperature
+      deallocate          ( roagr1 )                                   ! 1st     Layer Density
+      deallocate          ( roagr2 )                                   ! 2nd     Layer Density
+      deallocate          ( etagr1 )                                   ! 1st     Layer Water Content
+      deallocate          ( etagr2 )                                   ! 2nd     Layer Water Content
+      deallocate          ( G1agr1 )                                   ! 1st     Layer Dendricity/Spher.
+      deallocate          ( G1agr2 )                                   ! 2nd     Layer Dendricity/Spher.
+      deallocate          ( G2agr1 )                                   ! 1st     Layer Sphericity/Size
+      deallocate          ( G2agr2 )                                   ! 2nd     Layer Sphericity/Size
+      deallocate          ( agagr1 )                                   ! 1st     Layer Age
+      deallocate          ( agagr2 )                                   ! 2nd     Layer Age
+ 
+! #vz deallocate          ( dz_ref )                                   ! Snow Reference Discretization
+! #vz deallocate          ( dzwdif )                                   !
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_zSn
+ 
+ 
+ 
+      subroutine SISVAT_zCr
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_zCr                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_zCr determines criteria for Layers Agregation      |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT /  isnoSV   = total Nb of Ice/Snow Layers                      |
+!     OUTPUT:  iiceSV   = total Nb of Ice      Layers                      |
+!     ^^^^^^   ispiSV   = 0,..,nsnow: Uppermost Superimposed Ice Layer     |
+!              istoSV   = 0,..,5    : Snow     History (see istdSV data)   |
+!                                                                          |
+!     INPUT /  ro__SV   : Soil/Snow Volumic Mass                   [kg/m3] |
+!     OUTPUT:           & Snow     Temperatures (layers  1,2,..,nsnow) [K] |
+!     ^^^^^^   G1snSV   : Dendricity (<0) or Sphericity (>0) of Snow Layer |
+!              G2snSV   : Sphericity (>0) or Size            of Snow Layer |
+!              agsnSV   : Snow       Age                             [day] |
+!                                                                          |
+!     OUTPUT:  LIndsv   : Relative Index of a contiguous Layer to agregate |
+!     ^^^^^^                                                               |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      integer           ::  ikl,ikv   ,isn   ,is0   ,is1
+      integer           ::  isno_1                        ! Switch:  ! Snow Layer over Ice
+      real(kind=real8)  ::  Dtyp_0,Dtyp_1                 ! Snow Grains Difference Measure
+      real(kind=real8)  ::  DenSph                        ! 1. when contiguous spheric
+!                                                         !     and dendritic  Grains
+      real(kind=real8)  ::  DendOK                        ! 1. when dendritic  Grains
+      real(kind=real8)  ::  dTypMx = 200.0                ! Grain Type Differ.
+      real(kind=real8)  ::  dTypSp =   0.5                ! Sphericity Weight
+      real(kind=real8)  ::  dTypRo =   0.5                ! Density    Weight
+      real(kind=real8)  ::  dTypDi =  10.0                ! Grain Diam.Weight
+      real(kind=real8)  ::  dTypHi = 100.0                ! History    Weight
+ 
+ 
+! Agregation Criteria
+! ===================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+          i_thin(ikl,ikv) = min(i_thin(ikl,ikv),isnoSV(ikl,ikv))
+          isn         = max(1          ,i_thin(ikl,ikv))
+ 
+ 
+! Comparison with the downward Layer
+! ----------------------------------
+ 
+          is0    = max(1,        i_thin(ikl,ikv)-1 )    ! Downward Layer Index
+          DenSph = max(zer0,                           &! isn/is1
+     &                 sign(un_1,                      &! Dendricity/Sphericity
+     &                      eps6-G1snSV(ikl,ikv,isn)   &!            Switch
+     &                          *G1snSV(ikl,ikv,is0)))  !
+          DendOK = max(zer0,                           &! Dendricity Switch
+     &                 sign(un_1,                      &!
+     &                      eps6-G1snSV(ikl,ikv,isn)))  !
+ 
+          Dtyp_0 =                                     &!
+     &         DenSph *      dTypMx                    &!
+     &    +(1.-DenSph)                                 &!
+     &    *    DendOK *((abs(G1snSV(ikl,ikv,isn)       &! Dendricity
+     &                      -G1snSV(ikl,ikv,is0))      &!     Contribution
+     &                  +abs(G2snSV(ikl,ikv,isn)       &! Sphericity
+     &                      -G2snSV(ikl,ikv,is0))) *dTypSp &!     Contribution
+     &                  +abs(ro__SV(ikl,ikv,isn)       &! Density
+     &                      -ro__SV(ikl,ikv,is0))  *dTypRo)&!     Contribution
+     &    +(1.-DenSph)                                 &!
+     &    *(1.-DendOK)*((abs(G1snSV(ikl,ikv,isn)       &! Sphericity
+     &                      -G1snSV(ikl,ikv,is0))      &!     Contribution
+     &                  +abs(G2snSV(ikl,ikv,isn)       &! Size
+     &                      -G2snSV(ikl,ikv,is0))) *dTypDi &!     Contribution
+     &                  +abs(ro__SV(ikl,ikv,isn)       &! Density
+     &                      -ro__SV(ikl,ikv,is0))  *dTypRo) !     Contribution
+          Dtyp_0 =                                     &!
+     &                   min(dTypMx,                   &!
+     &                       Dtyp_0                    &!
+     &                  +abs(istoSV(ikl,ikv,isn)       &! History
+     &                      -istoSV(ikl,ikv,is0))  *dTypHi)&!     Contribution
+     &        +             (1 -abs(isn-is0))  * 1.e+6 &!"Same Layer"Score
+     &        +  max(0,1-abs(iiceSV(ikl,ikv)           &!"Ice /Snow
+     &                                 -is0))  * 1.e+6  ! Interface" Score
+ 
+ 
+! Comparison with the   upward Layer
+! ----------------------------------
+ 
+          is1    = min(          i_thin(ikl,ikv)+1,    &! Upward   Layer Index
+     &                 max(1,    isnoSV(ikl,ikv)  ))    !
+          DenSph = max(zer0,                           &! isn/is1
+     &                 sign(un_1,                      &! Dendricity/Sphericity
+     &                      eps6-G1snSV(ikl,ikv,isn)   &!            Switch
+     &                          *G1snSV(ikl,ikv,is1)))  !
+          DendOK = max(zer0,                           &! Dendricity Switch
+     &                 sign(un_1,                      &!
+     &                      eps6-G1snSV(ikl,ikv,isn)))  !
+ 
+          Dtyp_1 =                                     &!
+     &         DenSph *      dTypMx                    &!
+     &    +(1.-DenSph)                                 &!
+     &    *    DendOK *((abs(G1snSV(ikl,ikv,isn)       &! Dendricity
+     &                      -G1snSV(ikl,ikv,is1))      &!     Contribution
+     &                  +abs(G2snSV(ikl,ikv,isn)       &! Sphericity
+     &                      -G2snSV(ikl,ikv,is1))) *dTypSp &!     Contribution
+     &                  +abs(ro__SV(ikl,ikv,isn)       &! Density
+     &                      -ro__SV(ikl,ikv,is1))  *dTypRo)&!     Contribution
+     &    +(1.-DenSph)                                 &!
+     &    *(1.-DendOK)*((abs(G1snSV(ikl,ikv,isn)       &! Sphericity
+     &                      -G1snSV(ikl,ikv,is1))      &!     Contribution
+     &                  +abs(G2snSV(ikl,ikv,isn)       &! Size
+     &                      -G2snSV(ikl,ikv,is1))) *dTypDi &!     Contribution
+     &                  +abs(ro__SV(ikl,ikv,isn)       &! Density
+     &                      -ro__SV(ikl,ikv,is1))  *dTypRo) !     Contribution
+          Dtyp_1 =                                     &!
+     &                   min(dTypMx,                   &!
+     &                       Dtyp_1                    &!
+     &                  +abs(istoSV(ikl,ikv,isn)       &! History
+     &                      -istoSV(ikl,ikv,is1))  *dTypHi)&!     Contribution
+     &        +             (1 -abs(isn-is1))  * 1.e+6 &!"Same Layer"Score
+     &        +  max(0,1-abs(iiceSV(ikl,ikv)           &!"Ice /Snow
+     &                                 -isn))  * 1.e+6  ! Interface" Score
+ 
+ 
+! Index of the Layer to agregate
+! ==============================
+ 
+          LIndsv(ikl,ikv) = sign(un_1,Dtyp_0           &!
+     &                           -Dtyp_1)               !
+          isno_1      = (1 -min (abs(isnoSV(ikl,ikv)   &! Switch = 1
+     &                              -iiceSV(ikl,ikv)-1),1))&!   if isno = iice +1
+     &                * (1 -min (abs(isnoSV(ikl,ikv)   &! Switch = 1
+     &                              -i_thin(ikl,ikv)  ),1)) !   if isno = i_ithin
+          LIndsv(ikl,ikv) = (1 -isno_1) *LIndsv(ikl,ikv)   &! Contiguous Layer is
+     &                     -isno_1                      ! downward for top L.
+          i_thin(ikl,ikv) =  max(1,   i_thin(ikl,ikv)   )   !
+      END DO
+      END DO
+ 
+ 
+      return
+      end subroutine SISVAT_zCr
+ 
+ 
+ 
+      subroutine SISVAT_zAg                                           &!
+     &                 (ikl,ikv,isagra,isagrb,WEagra                  &!
+     &                     ,dzagra,dzagrb,T_agra,T_agrb               &!
+     &                     ,roagra,roagrb,etagra,etagrb               &!
+     &                     ,G1agra,G1agrb,G2agra,G2agrb               &!
+     &                     ,agagra,agagrb,Agreg1                      &!
+     &                     )
+ 
+!--------------------------------------------------------------------------+
+!   MAR SURFACE                                       Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_zAg aggregates two contiguous snow layers          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   isagrb   : 2nd     Layer History                            |
+!     ^^^^^                                                                |
+!                                                                          |
+!     INPUT:   dzagrb   : 2nd     Layer Thickness                          |
+!     ^^^^^    T_agrb   : 2nd     Layer Temperature                        |
+!              roagrb   : 2nd     Layer Density                            |
+!              etagrb   : 2nd     Layer Water Content                      |
+!              G1agrb   : 2nd     Layer Dendricity/Spher.                  |
+!              G2agrb   : 2nd     Layer Sphericity/Size                    |
+!              agagrb   : 2nd     Age                                      |
+!              Agreg1   : 1. when Agregation constrained                   |
+!                                                                          |
+!     INPUT /  isagra   : 1st     Layer History                            |
+!     OUTPUT:                                                              |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     INPUT /  dzagra   : 1st     Layer Thickness                          |
+!     OUTPUT:  T_agra   : 1st     Layer Temperature                        |
+!     ^^^^^^   roagra   : 1st     Layer Density                            |
+!              etagra   : 1st     Layer Water Content                      |
+!              G1agra   : 1st     Layer Dendricity/Spher.                  |
+!              G2agra   : 1st     Layer Sphericity/Size                    |
+!              agagra   : 1st     Age                                      |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # stdout               | #s1: OUTPUT of Snow Layers Agregation         |
+!                          |      unit  6, SubRoutine  SISVAT_zSn, _zAg    |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Transferred Variables
+! =====================
+ 
+ 
+! INPUT
+! -----
+ 
+      integer           ::  ikl,ikv                       !    Column Index
+ 
+      integer           ::  isagrb                        ! 2nd Layer History
+      real(kind=real8)  ::  dzagrb                        ! 2nd Layer Thickness
+      real(kind=real8)  ::  T_agrb                        ! 2nd Layer Temperature
+      real(kind=real8)  ::  roagrb                        ! 2nd Layer Density
+      real(kind=real8)  ::  etagrb                        ! 2nd Layer Water Content
+      real(kind=real8)  ::  G1agrb                        ! 2nd Layer Dendricity/Spher.
+      real(kind=real8)  ::  G2agrb                        ! 2nd Layer Sphericity/Size
+      real(kind=real8)  ::  agagrb                        ! 2nd Layer Age
+ 
+ 
+! INPUT/OUTPUT
+! ------------
+ 
+      integer           ::  isagra                        ! 1st Layer History
+      real(kind=real8)  ::  WEagra                        ! 1st Layer Height    [mm w.e.]
+      real(kind=real8)  ::  Agreg1                        ! 1. ===>   Agregates
+      real(kind=real8)  ::  dzagra                        ! 1st Layer Thickness
+      real(kind=real8)  ::  T_agra                        ! 1st Layer Temperature
+      real(kind=real8)  ::  roagra                        ! 1st Layer Density
+      real(kind=real8)  ::  etagra                        ! 1st Layer Water Content
+      real(kind=real8)  ::  G1agra                        ! 1st Layer Dendricity/Spher.
+      real(kind=real8)  ::  G2agra                        ! 1st Layer Sphericity/Size
+      real(kind=real8)  ::  agagra                        ! 1st Layer Age
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      integer           ::  nh                            ! Averaged    Snow History
+      integer           ::  nh__OK                        ! 1=>Conserve Snow History
+      real(kind=real8)  ::  rh                            !
+      real(kind=real8)  ::  dz                            ! Thickness
+      real(kind=real8)  ::  dzro_1                        ! Thickness X Density, Lay.1
+      real(kind=real8)  ::  dzro_2                        ! Thickness X Density, Lay.2
+      real(kind=real8)  ::  dzro                          ! Thickness X Density, Aver.
+      real(kind=real8)  ::  ro                            ! Averaged    Density
+      real(kind=real8)  ::  wn                            ! Averaged    Water Content
+      real(kind=real8)  ::  tn                            ! Averaged    Temperature
+      real(kind=real8)  ::  ag                            ! Averaged    Snow Age
+      real(kind=real8)  ::  SameOK                        ! 1. => Same Type of Grains
+      real(kind=real8)  ::  G1same                        ! Averaged G1,  same Grains
+      real(kind=real8)  ::  G2same                        ! Averaged G2,  same Grains
+      real(kind=real8)  ::  typ__1                        ! 1. => Lay1 Type: Dendritic
+      real(kind=real8)  ::  zroNEW                        ! dz X ro, if fresh Snow
+      real(kind=real8)  ::  G1_NEW                        ! G1,      if fresh Snow
+      real(kind=real8)  ::  G2_NEW                        ! G2,      if fresh Snow
+      real(kind=real8)  ::  zroOLD                        ! dz X ro, if old   Snow
+      real(kind=real8)  ::  G1_OLD                        ! G1,      if old   Snow
+      real(kind=real8)  ::  G2_OLD                        ! G2,      if old   Snow
+      real(kind=real8)  ::  SizNEW                        ! Size,    if fresh Snow
+      real(kind=real8)  ::  SphNEW                        ! Spheric.,if fresh Snow
+      real(kind=real8)  ::  SizOLD                        ! Size,    if old   Snow
+      real(kind=real8)  ::  SphOLD                        ! Spheric.,if old   Snow
+      real(kind=real8)  ::  Siz_av                        ! Averaged    Grain Size
+      real(kind=real8)  ::  Sph_av                        ! Averaged    Grain Spher.
+      real(kind=real8)  ::  Den_av                        ! Averaged    Grain Dendr.
+      real(kind=real8)  ::  DendOK                        ! 1. => Average is  Dendr.
+      real(kind=real8)  ::  G1diff                        ! Averaged G1, diff. Grains
+      real(kind=real8)  ::  G2diff                        ! Averaged G2, diff. Grains
+      real(kind=real8)  ::  G1                            ! Averaged G1
+      real(kind=real8)  ::  G2                            ! Averaged G2
+ 
+ 
+ 
+! Mean   Properties
+! =================
+ 
+!  1 Densite, Contenu en Eau, Temperature /
+!    Density, Water Content,  Temperature
+!    ------------------------------------
+ 
+          dz      =  dzagra      + dzagrb
+          dzro_1  =  roagra      * dzagra
+          dzro_2  =  roagrb      * dzagrb
+          dzro    =  dzro_1      + dzro_2
+          ro      =  dzro                                              &
+     &     /max(eps6,dz)
+          wn      = (dzro_1*etagra      + dzro_2*etagrb     )          &
+     &     /max(eps6,dzro)
+          tn      = (dzro_1*T_agra      + dzro_2*T_agrb     )          &
+     &     /max(eps6,dzro)
+          ag      = (dzro_1*agagra      + dzro_2*agagrb     )          &
+     &     /max(eps6,dzro)
+ 
+          rh      =  max(zer0,sign(un_1,zWEcSV(ikl,ikv)                &
+     &                                         -0.5*WEagra     ))
+ 
+          nh__OK  =  rh
+          nh      =                 max(isagra     ,isagrb     )       &
+! #HB&            *  nh__OK                                            &
+! #HB&          + (1-nh__OK)*       min(isagra     ,isagrb     )       &
+     &          +  0.
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #s1   IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV      .AND. &
+! #s1&      ikv        .EQ.nwr_SV                          )       THEN
+! #s1     write(6,5995) zWEcSV(ikl,ikv),WEagra                         &
+! #s1&                 ,isagra     ,isagrb                             &
+! #s1&                 ,nh__OK     ,nh
+ 5995     format(' WE2,WEa =',2f9.1,'  nha,b =',2i2,'  nh__OK,nh =',2i2)
+! #s1   END IF
+ 
+ 
+!  2 Nouveaux Types de Grains /  new Grain Types
+!    -------------------------------------------
+ 
+!  2.1. Meme  Type  de Neige  / same Grain Type
+!       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          SameOK  =  max(zer0,                                         &
+     &                   sign(un_1, G1agra      *G1agrb       - eps_21))
+          G1same  = (dzro_1*G1agra      + dzro_2*G1agrb     )          &
+     &     /max(eps6,dzro)
+          G2same  = (dzro_1*G2agra      + dzro_2*G2agrb     )          &
+     &     /max(eps6,dzro)
+ 
+!  2.2. Types differents / differents Types
+!       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          typ__1  =  max(zer0,sign(un_1,eps6-G1agra     )) ! =1.=> Dendritic
+          zroNEW  =     typ__1  *dzro_1                   &! ro of Dendr.Lay.
+     &            + (1.-typ__1) *dzro_2                    !
+          G1_NEW  =     typ__1  *G1agra                   &! G1 of Dendr.Lay.
+     &            + (1.-typ__1) *G1agrb                    !
+          G2_NEW  =     typ__1  *G2agra                   &! G2 of Dendr.Lay.
+     &            + (1.-typ__1) *G2agrb                    !
+          zroOLD  = (1.-typ__1) *dzro_1                   &! ro of Spher.Lay.
+     &            +     typ__1  *dzro_2                    !
+          G1_OLD  = (1.-typ__1) *G1agra                   &! G1 of Spher.Lay.
+     &            +     typ__1  *G1agrb                    !
+          G2_OLD  = (1.-typ__1) *G2agra                   &! G2 of Spher.Lay.
+     &            +     typ__1  *G2agrb                    !
+          SizNEW  =    -G1_NEW  *DDcdSV/G1_dSV            &! Size  Dendr.Lay.
+     &             +(1.+G1_NEW         /G1_dSV)           &!
+     &                *(G2_NEW  *DScdSV/G1_dSV            &!
+     &             +(1.-G2_NEW         /G1_dSV)*DFcdSV)    !
+          SphNEW  =     G2_NEW         /G1_dSV             ! Spher.Dendr.Lay.
+          SizOLD  =     G2_OLD                             ! Size  Spher.Lay.
+          SphOLD  =     G1_OLD         /G1_dSV             ! Spher.Spher.Lay.
+          Siz_av  = (zroNEW*SizNEW+zroOLD*SizOLD)     &! Averaged Size
+     &     /max(eps6,dzro)                             !
+          Sph_av  = (zroNEW*SphNEW+zroOLD*SphOLD)     &! Averaged Sphericity
+     &     /max(eps6,dzro)                             !
+          Den_av  = (Siz_av -(    Sph_av *DScdSV      &!
+     &                       +(1.-Sph_av)*DFcdSV))    &!
+     &            / (DDcdSV -(    Sph_av *DScdSV      &!
+     &                       +(1.-Sph_av)*DFcdSV))     !
+          DendOK  = max(zer0,                         &!
+     &                  sign(un_1,     Sph_av *DScdSV &! Small   Grains Contr.
+     &                            +(1.-Sph_av)*DFcdSV &! Faceted Grains Contr.
+     &                            -    Siz_av        ))!
+!         REMARQUE: le  type moyen (dendritique ou non) depend
+!         ^^^^^^^^  de la  comparaison avec le diametre optique
+!                   d'une neige recente de   dendricite nulle
+!         REMARK:   the mean type  (dendritic   or not) depends
+!         ^^^^^^    on the comparaison with the optical diameter
+!                   of a recent snow    having zero dendricity
+ 
+          G1diff  =(   -DendOK *Den_av                                 &
+     &             +(1.-DendOK)*Sph_av) *G1_dSV
+          G2diff  =     DendOK *Sph_av  *G1_dSV                        &
+     &             +(1.-DendOK)*Siz_av
+          G1      =     SameOK *G1same                                 &
+     &             +(1.-SameOK)*G1diff
+          G2      =     SameOK *G2same                                 &
+     &             +(1.-SameOK)*G2diff
+ 
+ 
+! Assignation to new Properties
+! =============================
+ 
+          isagra        = Agreg1      *nh +(1.-Agreg1     ) *isagra
+          dzagra        = Agreg1      *dz +(1.-Agreg1     ) *dzagra
+          T_agra        = Agreg1      *tn +(1.-Agreg1     ) *T_agra
+          roagra        = Agreg1      *ro +(1.-Agreg1     ) *roagra
+          etagra        = Agreg1      *wn +(1.-Agreg1     ) *etagra
+          G1agra        = Agreg1      *G1 +(1.-Agreg1     ) *G1agra
+          G2agra        = Agreg1      *G2 +(1.-Agreg1     ) *G2agra
+          agagra        = Agreg1      *ag +(1.-Agreg1     ) *agagra
+ 
+ 
+      return
+      end subroutine SISVAT_zAg
+ 
+ 
+ 
+      subroutine SnOptP(                                               &
+! #AG&                  jjtime                                         &
+     &                 )
+ 
+!--------------------------------------------------------------------------+
+!   MAR/SISVAT   SnOptP                               Wed 26-Jun-2013  MAR |
+!     SubRoutine SnOptP computes the Snow Pack optical Properties          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     Grid Boxes       |
+!                       X       Number of Mosaic Cell per Grid Box         |
+!                                                                          |
+!     INPUT:   isnoSV   = total Nb of Ice/Snow Layers                      |
+!     ^^^^^    ispiSV   = 0,...,nsno: Uppermost Superimposed Ice Layer     |
+!                                                                          |
+!              ivgtSV   = 0,...,12:   Vegetation Type                      |
+!                         0:          Water, Solid or Liquid               |
+!                                                                          |
+!     INPUT:   G1snSV   : Dendricity (<0) or Sphericity (>0) of Snow Layer |
+!     ^^^^^    G2snSV   : Sphericity (>0) or Size            of Snow Layer |
+!              agsnSV   : Snow       Age                             [day] |
+!              ro__SV   : Snow/Soil  Volumic Mass                  [kg/m3] |
+!              eta_SV   : Water      Content                       [m3/m3] |
+!              rusnSV   : Surficial  Water   Thickness   [kg/m2] .OR. [mm] |
+!              SWS_SV   : Surficial  Water   Status                        |
+!              dzsnSV   : Snow       Layer   Thickness                 [m] |
+!                                                                          |
+!              albssv   : Soil       Albedo                            [-] |
+!              zzsnsv   : Snow       Pack    Thickness                 [m] |
+!                                                                          |
+!     OUTPUT:  albisv   : Snow/Ice/Water/Soil Integrated Albedo        [-] |
+!     ^^^^^^   sEX_sv   : Verticaly Integrated Extinction Coefficient      |
+!                                                                          |
+!     Internal Variables:                                                  |
+!     ^^^^^^^^^^^^^^^^^^                                                   |
+!              SnOpSV   : Snow Grain optical Size                      [m] |
+!              EX1_sv   : Integrated Snow Extinction (0.3--0.8micr.m)      |
+!              EX2_sv   : Integrated Snow Extinction (0.8--1.5micr.m)      |
+!              EX3_sv   : Integrated Snow Extinction (1.5--2.8micr.m)      |
+!                                                                          |
+!     METHODE:    Calcul de la taille optique des grains ? partir de       |
+!     ^^^^^^^    -leur type decrit par les deux variables descriptives     |
+!                      continues sur la plage -99/+99 passees en appel.    |
+!                -la taille optique (1/10mm) des etoiles,                  |
+!                                            des grains fins et            |
+!                                            des jeunes faces planes       |
+!                                                                          |
+!     METHOD:     Computation of the optical diameter of the grains        |
+!     ^^^^^^      described with the CROCUS formalism G1snSV / G2snSV      |
+!                                                                          |
+!     REFERENCE: Brun et al.      1989, J. Glaciol 35 pp. 333--342         |
+!     ^^^^^^^^^  Brun et al.      1992, J. Glaciol 38 pp.  13-- 22         |
+!                Eric Martin Sept.1996                                     |
+!                                                                          |
+!     CAUTION: Vegetation is not taken into account in albedo computations |
+!     ^^^^^^^  Suggestion: 1) Reduce the displacement height  and/or LAI   |
+!              (when snow)    for radiative transfert through vegetation   |
+!                          2) Adapt leaf optical parameters                |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #CZ: Albedo Correction (Zenith Angle) (Warren,      1982)            |
+!     #cz: Albedo Correction (Zenith Angle) (Segal etAl., 1991) (obsolete) |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Col de Porte                         |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^                                      |
+!     #cp: Col de Porte Integrated Snow/Ice Albedo                         |
+!     #AG: Snow Aging Col de Porte     (Brun et al.1991)                   |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SnOptP____.va        | #va: OUTPUT/Verification: Albedo Parameteriz. |
+!                          |      unit 46, SubRoutine  SnOptP     **ONLY** |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_CdP
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+! #va use Mod_SISVAT_SnOptP
+      use Mod_SISVATLSnO
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      real(kind=real8)                               ::  coalbm                ! weighted Coalbedo, mean
+! #AG real(kind=real8)                               ::  agesno
+ 
+! #AG integer                                        ::  jjtime                !
+      integer                                        ::  isn   ,ikl,ikv        !
+! #va integer                                        ::  isn1                  !
+ 
+! For the computation of the solar irradiance extinction in snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      real(kind=real8)                               ::  sbeta1 = 0.0192
+      real(kind=real8)                               ::  sbeta2 = 0.4000
+      real(kind=real8)                               ::  sbeta3 = 0.1098
+      real(kind=real8)                               ::  sbeta4 = 1.0000
+      real(kind=real8)                               ::  sbeta5 = 2.00e1
+ 
+! Snow Age Maximum (Taiga, e.g. Col de Porte)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AG real(kind=real8)                               ::  AgeMax = 60.0         ! [day]
+ 
+      real(kind=real8)                               ::  AlbMin =  0.94        !  Albedo Minimum / visible (0.3--0.8 micrometers)
+      real(kind=real8)                               ::  AlbMax =  0.99        !  Albedo Maximum
+      real(kind=real8)                               ::  HSnoSV =  0.01        !  Snow   Thickness over witch interpolate Albedo to Ice  Albedo
+      real(kind=real8)                               ::  HIceSV =  0.10        !  Snow   Thickness over witch interpolate Albedo to Soil Albedo
+ 
+      real(kind=real8)                               ::  doptmx =  2.3e-3      ! [m]     Maximum   optical Diameter    (pi * R**2)
+ 
+      real(kind=real8)                               ::  SignG1,Sph_OK
+      real(kind=real8)                               ::  dalbed                !
+! #cz real(kind=real8)                               ::  dalbeS                !
+! #CZ real(kind=real8)                               ::  dalbeW                !
+ 
+! #CZ real(kind=real8)                               ::  bsegal =  4.00
+! #CZ real(kind=real8)                               ::  czeMAX =  0.173648178 ! 80.deg (Segal et al., 1991 JAS)
+! #CZ real(kind=real8)                               ::  CZ_eff
+ 
+      real(kind=real8)                               ::  RoFrez,SignRo,SnowOK,OpSqrt
+      real(kind=real8)                               ::  albSn1,a_SII1
+      real(kind=real8)                               ::  albSn2,a_SII2
+      real(kind=real8)                               ::  albSn3,a_SII3
+      real(kind=real8)                               ::  albSno
+! #va real(kind=real8)                               ::  albIce,albIc1,albIc2,albIc3
+      real(kind=real8)                               ::  albSII,albWIc
+      real(kind=real8)                               ::  doptic,Snow_H,SIce_H,SnownH,SIcenH
+      real(kind=real8)                               ::  exarg1,exarg2,exarg3,sign_0,sExt_0
+      real(kind=real8)                               ::  albedo_old
+      real(kind=real8)                               ::  ro_ave,dz_ave
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate            ( coalb1(kcolp,mwp) )                        ! weighted Coalbedo, Vis.
+      allocate            ( coalb2(kcolp,mwp) )                        ! weighted Coalbedo, nIR 1
+      allocate            ( coalb3(kcolp,mwp) )                        ! weighted Coalbedo, nIR 2
+      allocate            ( sExt_1(kcolp,mwp) )                        ! Extinction Coeff., Vis.
+      allocate            ( sExt_2(kcolp,mwp) )                        ! Extinction Coeff., nIR 1
+      allocate            ( sExt_3(kcolp,mwp) )                        ! Extinction Coeff., nIR 2
+      allocate            ( SnOpSV(kcolp,mwp,nsnow) )                  ! Snow Grain optical Size
+ 
+      allocate            ( alb1sv(kcolp,mwp) )                        !
+      allocate            ( alb2sv(kcolp,mwp) )                        !
+      allocate            ( alb3sv(kcolp,mwp) )                        !
+ 
+      END IF
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Snow Grain optical Size
+! =======================
+ 
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+          G2snSV(ikl,ikv,isn) =  max(eps6,G2snSV(ikl,ikv,isn))
+!         Avoid non physical Values
+ 
+          SignG1          = sign(un_1,G1snSV(ikl,ikv,isn))
+          Sph_OK          =  max(zer0,SignG1)
+ 
+          SnOpSV(ikl,ikv,isn) =   1.e-4 *                              &
+!         SI:           (from 1/10 mm to m)
+ 
+ 
+! Contribution of Non Dendritic Snow
+! ----------------------------------
+ 
+     &    (    Sph_OK *(      G2snSV(ikl,ikv,isn)*G1snSV(ikl,ikv,isn)/G1_dSV   &
+     &              +max(half*G2snSV(ikl,ikv,isn),DFcdSV)              &
+     &                 *(1.00-G1snSV(ikl,ikv,isn)                /G1_dSV)) &
+ 
+ 
+! Contribution of     Dendritic Snow
+! ----------------------------------
+ 
+     &    +(1.-Sph_OK)*(     -G1snSV(ikl,ikv,isn)*DDcdSV         /G1_dSV   &
+     &                 +(1.00+G1snSV(ikl,ikv,isn)                /G1_dSV)  &
+     &                  *    (G2snSV(ikl,ikv,isn)*DScdSV         /G1_dSV   &
+     &                 +(1.00-G2snSV(ikl,ikv,isn)                /G1_dSV)  &
+     &                                       *DFcdSV                 )))
+          SnOpSV(ikl,ikv,isn) =  max(zer0,SnOpSV(ikl,ikv,isn))
+        END DO
+        END DO
+      END DO
+ 
+ 
+! Snow/Ice Albedo
+! ===============
+ 
+! Snow Age (Influence on Albedo)
+! ------------------------------
+ 
+! #AG IF (iabs(mod(jjtime,86400)).lt.dt__SV)                        THEN
+! #AG   DO isn=1,nsnow
+! #AG   DO ikl=1,kcolp
+! #AG   DO ikv=1,mwp
+! #AG     agsnSV(ikl,ikv,isn) = agsnSV(ikl,ikv,isn) + 1.               &
+! #AG&           + max(zer0,DH_dSV(ivgtSV(ikl,ikv))-DH_dSV(4)) ! High Vegetation
+!                                                          ! Impurities
+!                           CAUTION: crude parameterization
+!                           ^^^^^^^
+! #AG   END DO
+! #AG   END DO
+! #AG   END DO
+! #AG END IF
+ 
+ 
+! Uppermost effective Snow Layer
+! ------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+           isn   =  max(1,isnoSV(ikl,ikv))
+ 
+          SignRo = sign(un_1, rocdSV - ro__SV(ikl,ikv,isn))
+          SnowOK =  max(zer0,SignRo) ! Ice Density Threshold
+ 
+          OpSqrt = sqrt(SnOpSV(ikl,ikv,isn))
+ 
+          albSn1 =  0.96-1.580*OpSqrt
+          albSn1 =  max(albSn1,AlbMin)
+ 
+          albSn1 =  max(albSn1,zer0)
+          albSn1 =  min(albSn1,un_1)
+ 
+          albSn2 =  0.95-15.40*OpSqrt
+          albSn2 =  max(albSn2,zer0)
+          albSn2 =  min(albSn2,un_1)
+ 
+          doptic =  min(SnOpSV(ikl,ikv,isn),doptmx)
+          albSn3 =  346.3*doptic -32.31*OpSqrt +0.88
+          albSn3 =  max(albSn3,zer0)
+          albSn3 =  min(albSn3,un_1)
+ 
+          albSno =  So1dSV*albSn1                                      &
+     &           +  So2dSV*albSn2                                      &
+     &           +  So3dSV*albSn3
+ 
+          SnowOK =  SnowOK*max(zer0,sign(un_1,albSno-aI3dSV))
+                 !  Minimum snow albedo is aI3dSV
+ 
+          albSn1 =  SnowOK*albSn1+(1.0-SnowOK)*max(albSno,aI3dSV)
+          albSn2 =  SnowOK*albSn2+(1.0-SnowOK)*max(albSno,aI3dSV)
+          albSn3 =  SnowOK*albSn3+(1.0-SnowOK)*max(albSno,aI3dSV)
+ 
+ 
+! Snow/Ice Pack Thickness
+! -----------------------
+ 
+          isn    =     max(min(isnoSV(ikl,ikv) ,ispiSV(ikl,ikv)),0)
+          Snow_H =  zzsnsv(ikl,ikv,isnoSV(ikl,ikv))-zzsnsv(ikl,ikv,isn)
+          SIce_H =  zzsnsv(ikl,ikv,isnoSV(ikl,ikv))
+          SnownH =  Snow_H  /  HSnoSV
+          SnownH =  min(un_1,  SnownH)
+          SIcenH =  SIce_H  / (HIceSV                                  &
+     &           +  max(zer0,Z0mdSV(ivgtSV(ikl,ikv))                   &
+     &           -           Z0mdSV(4)         ))
+          SIcenH =  min(un_1,  SIcenH)
+ 
+!      The value of SnownH is set to 1 in case of ice lenses above
+!      1m of dry snow (ro<700kg/m3) for using CROCUS albedo
+ 
+          ro_ave =  0.
+          dz_ave =  0.
+          SnowOK =  1.
+       DO isn    =  isnoSV(ikl,ikv),1,-1
+          ro_ave =  ro_ave + ro__SV(ikl,ikv,isn) * dzsnSV(ikl,ikv,isn) * SnowOK
+          dz_ave =  dz_ave +                   dzsnSV(ikl,ikv,isn) * SnowOK
+          SnowOK =  max(zer0,sign(un_1,1.-dz_ave))
+       END DO
+ 
+          ro_ave =  ro_ave / max(dz_ave,eps6)
+          SnowOK =  max(zer0,sign(un_1,700.-ro_ave))
+ 
+          SnownH =  SnowOK + SnownH * (1. - SnowOK)
+ 
+ 
+! Integrated Snow/Ice Albedo: Case of Water on Bare Ice
+! -----------------------------------------------------
+ 
+          isn    =  max(min(isnoSV(ikl,ikv) ,ispiSV(ikl,ikv)),0)
+ 
+          albWIc =  aI1dSV-(aI1dSV-aI2dSV)                &!
+     &           *  exp(-rusnSV(ikl,ikv)                  &!
+     &           *  (1. -SWS_SV(ikl,ikv)                  &! 0 <=> freezing
+     &           *  (1  -min(1,iabs(isn-isnoSV(ikl,ikv)))))   &! 1 <=> isn=isnoSV
+     &                  /ru_dSV)                           !
+ 
+          SignRo = sign(un_1,rhoIce-1.-ro__SV(ikl,ikv,isn))! RoSN<920kg/m3
+          SnowOK =  max(zer0,SignRo)
+ 
+          albWIc = (1. - SnowOK) * albWIc + SnowOK        &!
+     &           * (aI2dSV + (aI3dSV -aI2dSV)             &!
+     &           * (ro__SV(ikl,ikv,isn)-rhoIce)/(rocdSV-rhoIce))
+ 
+!    rocdSV < ro < rhoIce | aI2dSV< al >aI3dSV (fct of density))
+!             ro > rhoIce | aI1dSV< al >aI2dSV (fct of superficial water content)s
+ 
+ 
+! Integrated Snow/Ice      Albedo
+! -------------------------------
+ 
+          a_SII1      =     albWIc      +(albSn1-albWIc)     *SnownH
+          a_SII1      = min(a_SII1       ,albSn1)
+ 
+          a_SII2      =     albWIc      +(albSn2-albWIc)     *SnownH
+          a_SII2      = min(a_SII2       ,albSn2)
+ 
+          a_SII3      =     albWIc      +(albSn3-albWIc)     *SnownH
+          a_SII3      = min(a_SII3       ,albSn3)
+ 
+! #AG     agesno =      min(agsnSV(ikl,ikv,isn)          ,AgeMax)
+! #AG     a_SII1      =     a_SII1      -0.175*agesno/AgeMax
+!                                        Impurities: Col de Porte Parameter.
+ 
+ 
+!    Zenith Angle Correction (Segal et al.,         1991, JAS 48, p.1025)
+!    ----------------------- (Wiscombe & Warren, dec1980, JAS   , p.2723)
+!                            (Warren,               1982,  RG   , p.  81)
+!                            --------------------------------------------
+ 
+ 
+          dalbed = 0.0
+! #CZ     CZ_eff = max(czemax                   ,coszSV(ikl,ikv))
+! #cz     dalbeS =   ((bsegal+1.00)/(1.00+2.0*bsegal*CZ_eff)           &
+! #cz&                -       1.00                          )*0.32     &
+! #cz&              /  bsegal
+! #cz     dalbeS = max(dalbeS,zer0)
+! #cz     dalbed =     dalbeS      *       min(1,isnoSV(ikl,ikv))
+ 
+! #CZ     dalbeW =(0.64 - CZ_eff  )*0.0625  ! Warren 1982, RevGeo, fig.12b
+                                            ! 0.0625 = 5% * 1/0.8,   p.81
+                                            ! 0.64   = cos(50)
+! #CZ     dalbed =     dalbeW      *       min(1,isnoSV(ikl,ikv))
+ 
+! Col de Porte Integrated Snow/Ice Albedo
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (ColPrt.AND.TotSol.gt.0.)                              THEN
+            albSII =  (((Dr_1SN*a_SII1+Dr_2SN*a_SII2+Dr_3SN*a_SII3)    &
+     &                  +dalbed                                    )   &
+     &                  *DirSol                                        &
+     &                 +(Df_1SN*a_SII1+Df_2SN*a_SII2+Df_3SN*a_SII3)    &
+     &                  *DifSol*(1.   -cld_SV(ikl,ikv))                &
+     &                 +(Dfc1SN*a_SII1+Dfc2SN*a_SII2+Dfc3SN*a_SII3)    &
+     &                  *DifSol*       cld_SV(ikl,ikv)                  )  &
+     &                 / TotSol
+ 
+! Elsewhere    Integrated Snow/Ice Albedo
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          ELSE
+            albSII =     So1dSV*a_SII1                                 &
+     &                 + So2dSV*a_SII2                                 &
+     &                 + So3dSV*a_SII3
+          END IF
+ 
+ 
+! Integrated Snow/Ice/Soil Albedo
+! -------------------------------
+ 
+            alb1sv(ikl,ikv) =     albssv(ikl,ikv) +(a_SII1-albssv(ikl,ikv))*SIcenH
+            alb1sv(ikl,ikv) = min(alb1sv(ikl,ikv)  ,a_SII1)
+ 
+            alb2sv(ikl,ikv) =     albssv(ikl,ikv) +(a_SII2-albssv(ikl,ikv))*SIcenH
+            alb2sv(ikl,ikv) = min(alb2sv(ikl,ikv)  ,a_SII2)
+ 
+            alb3sv(ikl,ikv) =     albssv(ikl,ikv) +(a_SII3-albssv(ikl,ikv))*SIcenH
+            alb3sv(ikl,ikv) = min(alb3sv(ikl,ikv)  ,a_SII3)
+ 
+            albisv(ikl,ikv) =     albssv(ikl,ikv) +(albSII-albssv(ikl,ikv))*SIcenH
+            albisv(ikl,ikv) = min(albisv(ikl,ikv)  ,albSII)
+ 
+ 
+! Integrated Snow/Ice/Soil Albedo: Clouds Correction! Greuell & all., 1994
+! --------------------------------------------------! Glob.&t Planet.Change
+                                                    ! (9):91-114
+          IF (.NOT.ColPrt)                                          THEN
+            alb1sv(ikl,ikv) = alb1sv(ikl,ikv) + 0.05 *(cld_SV(ikl,ikv)-0.5)*SIcenH &
+! #CZ&                  + dalbed      *    (1.-cld_SV(ikl,ikv))        &
+     &                  + 0.
+            alb2sv(ikl,ikv) = alb2sv(ikl,ikv) + 0.05 *(cld_SV(ikl,ikv)-0.5)*SIcenH &
+! #CZ&                  + dalbed      *    (1.-cld_SV(ikl,ikv))        &
+     &                  + 0.
+            alb3sv(ikl,ikv) = alb3sv(ikl,ikv) + 0.05 *(cld_SV(ikl,ikv)-0.5)*SIcenH &
+! #CZ&                  + dalbed      *    (1.-cld_SV(ikl,ikv))        &
+     &                  + 0.
+            albisv(ikl,ikv) = albisv(ikl,ikv) + 0.05 *(cld_SV(ikl,ikv)-0.5)*SIcenH &
+! #CZ&                  + dalbed      *    (1.-cld_SV(ikl,ikv))        &
+     &                  + 0.
+          END IF
+ 
+ 
+! Integrated Snow/Ice/Soil Albedo: Minimum snow albedo = 40%
+! ----------------------------------------------------------
+ 
+            albedo_old  = albisv(ikl,ikv)
+ 
+            albisv(ikl,ikv) = max(albisv(ikl,ikv),0.400    * SIcenH    &
+     &                  + albssv(ikl,ikv) *(1.0        - SIcenH))
+            alb1sv(ikl,ikv) = alb1sv(ikl,ikv) - 1.0/3.0                &! 33 %
+     &                  * (albedo_old-albisv(ikl,ikv)) / So1dSV
+            alb2sv(ikl,ikv) = alb2sv(ikl,ikv) - 1.0/3.0                &! 33 %
+     &                  * (albedo_old-albisv(ikl,ikv)) / So2dSV
+            alb3sv(ikl,ikv) = alb3sv(ikl,ikv) - 1.0/3.0                &! 33 %
+     &                  * (albedo_old-albisv(ikl,ikv)) / So3dSV
+ 
+ 
+! Integrated Snow/Ice/Soil Albedo: Maximum albedo = 99%
+! -----------------------------------------------------
+ 
+            albedo_old  = albisv(ikl,ikv)
+            albisv(ikl,ikv) = min(albisv(ikl,ikv),0.99)
+            alb1sv(ikl,ikv) = alb1sv(ikl,ikv) - 1.0/3.0                &! 33 %
+     &                  * (albedo_old-albisv(ikl,ikv)) / So1dSV
+            alb2sv(ikl,ikv) = alb2sv(ikl,ikv) - 1.0/3.0                &! 33 %
+     &                  * (albedo_old-albisv(ikl,ikv)) / So2dSV
+            alb3sv(ikl,ikv) = alb3sv(ikl,ikv) - 1.0/3.0                &! 33 %
+     &                  * (albedo_old-albisv(ikl,ikv)) / So3dSV
+ 
+            alb1sv(ikl,ikv) = min(max(zer0,alb1sv(ikl,ikv)),albmax)
+            alb2sv(ikl,ikv) = min(max(zer0,alb2sv(ikl,ikv)),albmax)
+            alb3sv(ikl,ikv) = min(max(zer0,alb3sv(ikl,ikv)),albmax)
+ 
+        END DO
+        END DO
+ 
+ 
+! Extinction Coefficient: Exponential Factor
+! ==========================================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          sExt_1(ikl,ikv)         = 1.
+          sExt_2(ikl,ikv)         = 1.
+          sExt_3(ikl,ikv)         = 1.
+          sEX_sv(ikl,ikv,nsnow+1) = 1.
+ 
+          coalb1(ikl,ikv) = (1.          -alb1sv(ikl,ikv))*So1dSV
+          coalb2(ikl,ikv) = (1.          -alb2sv(ikl,ikv))*So2dSV
+          coalb3(ikl,ikv) = (1.          -alb3sv(ikl,ikv))*So3dSV
+          coalbm      =  coalb1(ikl,ikv) +coalb2(ikl,ikv) +coalb3(ikl,ikv)
+          coalb1(ikl,ikv) =  coalb1(ikl,ikv)              /coalbm
+          coalb2(ikl,ikv) =  coalb2(ikl,ikv)              /coalbm
+          coalb3(ikl,ikv) =  coalb3(ikl,ikv)              /coalbm
+        END DO
+        END DO
+ 
+      DO   isn=  nsnow,1,-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+          SignRo = sign(un_1, rocdSV - ro__SV(ikl,ikv,isn))
+          SnowOK =  max(zer0,SignRo) ! Ice Density Threshold
+ 
+          RoFrez =  1.e-3      * ro__SV(ikl,ikv,isn) * (1.0-eta_SV(ikl,ikv,isn))
+ 
+          OpSqrt = sqrt(max(eps6,SnOpSV(ikl,ikv,isn)))
+          exarg1 =      SnowOK  *1.e2 *max(sbeta1*RoFrez/OpSqrt,sbeta2)&
+     &            +(1.0-SnowOK)           *sbeta5
+          exarg2 =      SnowOK  *1.e2 *max(sbeta3*RoFrez/OpSqrt,sbeta4)&
+     &            +(1.0-SnowOK)           *sbeta5
+          exarg3 =      SnowOK  *1.e2     *sbeta5                      &
+     &            +(1.0-SnowOK)           *sbeta5
+ 
+! Col de Porte Snow Extinction Coefficient
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          IF (ColPrt.AND.TotSol.gt.0.)                              THEN
+            exarg1 = exarg1*(Dr_1SN*DirSol                             &
+     &                      +Df_1SN*DifSol*(1.-cld_SV(ikl,ikv))        &
+     &                      +Dfc1SN*DifSol*    cld_SV(ikl,ikv) )       &
+     &                     /(Dr_1SN*TotSol)
+            exarg2 = exarg2*(Dr_2SN*DirSol                             &
+     &                      +Df_2SN*DifSol*(1.-cld_SV(ikl,ikv))        &
+     &                      +Dfc2SN*DifSol*    cld_SV(ikl,ikv) )       &
+     &                     /(Dr_2SN*TotSol)
+            exarg3 = exarg3*(Dr_3SN*DirSol                             &
+     &                      +Df_3SN*DifSol*(1.-cld_SV(ikl,ikv))        &
+     &                      +Dfc3SN*DifSol*    cld_SV(ikl,ikv) )       &
+     &                     /(Dr_3SN*TotSol)
+          END IF
+ 
+ 
+! Integrated Extinction of Solar Irradiance (Normalized Value)
+! ============================================================
+ 
+          sExt_1(ikl,ikv) = sExt_1(ikl,ikv)                            &
+     &                          * exp(min(0.0,-exarg1 *dzsnSV(ikl,ikv,isn)))
+          sign_0      =              sign(un_1,epsn   -sExt_1(ikl,ikv))
+          sExt_0      =               max(zer0,sign_0)*sExt_1(ikl,ikv)
+          sExt_1(ikl,ikv) = sExt_1(ikl,ikv)                   -sExt_0
+ 
+          sExt_2(ikl,ikv) = sExt_2(ikl,ikv)                            &
+     &                          * exp(min(0.0,-exarg2 *dzsnSV(ikl,ikv,isn)))
+          sign_0      =              sign(un_1,epsn   -sExt_2(ikl,ikv))
+          sExt_0      =               max(zer0,sign_0)*sExt_2(ikl,ikv)
+          sExt_2(ikl,ikv) = sExt_2(ikl,ikv)                   -sExt_0
+ 
+          sExt_3(ikl,ikv) = sExt_3(ikl,ikv)                            &
+     &                          * exp(min(0.0,-exarg3 *dzsnSV(ikl,ikv,isn)))
+          sign_0      =              sign(un_1,epsn   -sExt_3(ikl,ikv))
+          sExt_0      =               max(zer0,sign_0)*sExt_3(ikl,ikv)
+          sExt_3(ikl,ikv) = sExt_3(ikl,ikv)                   -sExt_0
+ 
+          sEX_sv(ikl,ikv,isn) = coalb1(ikl,ikv) * sExt_1(ikl,ikv)      &
+     &                    + coalb2(ikl,ikv) * sExt_2(ikl,ikv)          &
+     &                    + coalb3(ikl,ikv) * sExt_3(ikl,ikv)
+        END DO
+        END DO
+      END DO
+ 
+      DO   isn=0,-nsoil,-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          sEX_sv(ikl,ikv,isn) = 0.0
+        END DO
+        END DO
+      END DO
+ 
+ 
+! Albedo: IO
+! ==========
+ 
+! #va IF (.NOT.aw_opn)                                              THEN
+! #va          aw_opn = .true.
+! #va          open(unit=46,status='unknown',file='SnOptP____.va')
+! #va          rewind(   46)
+! #va END IF
+ 
+! #va     ikl,ikv=1
+! #va     write(46,460)daHost
+! #va 460 format('---------------------------------+----+',            &
+! #va&          '-------+-------+-------+-------+-------+-------+',    &
+! #va&                                  '-------+-------+-------+',    &
+! #va&         /,'Snow/Ice Pack ',a18,' |    |',                       &
+! #va&          ' z [m] |0.3/0.8|0.8/1.5|1.5/2.8| Full  |Opt[mm]|',    &
+! #va&                                  ' G1    | G2    | ro    |',    &
+! #va&         /,'---------------------------------+----+',            &
+! #va&          '-------+-------+-------+-------+-------+-------+',    &
+! #va&                                  '-------+-------+-------+')
+!         ______________________________________________________________
+! #va     write(46,461)            SIce_H,                             &
+! #va&                             alb1sv(ikl,ikv),alb2sv(ikl,ikv),alb3sv(ikl,ikv),&
+! #va&                             albisv(ikl,ikv)
+! #va 461 format('Integrated Snow/Ice/Soil  Albedo |',                 &
+! #va&            3x,' |',  f6.3,' |' ,4(f6.3,' |'), 6x ,' |',         &
+! #va&                                            3( 6x ,' |'))
+!         ______________________________________________________________
+! #va     write(46,462)ispiSV(ikl,ikv),a_SII1,a_SII2,a_SII3,albSII
+! #va 462 format('Integrated Snow/Ice       Albedo |',                 &
+! #va&            i3,' |',   6x ,' |' ,4(f6.3,' |'), 6x ,' |',         &
+! #va&                                            3( 6x ,' |'))
+!         ______________________________________________________________
+! #va     write(46,463)            rusnSV(ikl,ikv),         albWIc,    &
+! #va&                             SWS_SV(ikl,ikv)
+! #va 463 format('Integrated Water/Bare Ice Albedo |',                 &
+! #va&            3x,' |',  f6.3,'w|' ,3( 6x, ' |'),                   &
+! #va&                                   f6.3,' |' ,f6.3,' |',         &
+! #va&                                            3( 6x ,' |'))
+!         ______________________________________________________________
+! #va     write(46,465)isn1       ,zzsnsv(ikl,ikv,isn1),               &
+! #va&                             albIc1,albIc2,albIc3,albIce,        &
+! #va&                        1.e3*SnOpSV(ikl,ikv,max(1,isnoSV(ikl,ikv)-1)),   &
+! #va&                             G1snSV(ikl,ikv,max(1,isnoSV(ikl,ikv)-1)),   &
+! #va&                             G2snSV(ikl,ikv,max(1,isnoSV(ikl,ikv)-1)),   &
+! #va&                             ro__SV(ikl,ikv,max(1,isnoSV(ikl,ikv)-1))&
+! #va&                      *(1. - eta_SV(ikl,ikv,max(1,isnoSV(ikl,ikv)-1)))
+! #va 465 format('Surficial       Ice Lense        |',                 &
+! #va&            i3,' |', (f6.3,'i|'),4(f6.3,' |'),f6.3,' |',         &
+! #va&                                            3(f6.1,' |'))
+!         ______________________________________________________________
+! #va     write(46,466)isnoSV(ikl,ikv),zzsnsv(ikl,ikv,isnoSV(ikl,ikv)),&
+! #va&                             albSn1,albSn2,albSn3,albSno,        &
+! #va&                        1.e3*SnOpSV(ikl,ikv,isnoSV(ikl,ikv)),    &
+! #va&                             G1snSV(ikl,ikv,isnoSV(ikl,ikv)),    &
+! #va&                             G2snSV(ikl,ikv,isnoSV(ikl,ikv)),    &
+! #va&                             ro__SV(ikl,ikv,isnoSV(ikl,ikv))     &
+! #va&                      *(1. - eta_SV(ikl,ikv,isnoSV(ikl,ikv)))
+! #va 466 format('Uppermost  Effective Snow Layer  |',                 &
+! #va&            i3,' |', (f6.3,'*|'),4(f6.3,' |'),f6.3,' |',         &
+! #va&                                            3(f6.1,' |'))
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate          ( coalb1 )                                   ! weighted Coalbedo, Vis.
+      deallocate          ( coalb2 )                                   ! weighted Coalbedo, nIR 1
+      deallocate          ( coalb3 )                                   ! weighted Coalbedo, nIR 2
+      deallocate          ( sExt_1 )                                   ! Extinction Coeff., Vis.
+      deallocate          ( sExt_2 )                                   ! Extinction Coeff., nIR 1
+      deallocate          ( sExt_3 )                                   ! Extinction Coeff., nIR 2
+      deallocate          ( SnOpSV )                                   ! Snow Grain optical Size
+ 
+      deallocate          ( alb1sv )                                   !
+      deallocate          ( alb2sv )                                   !
+      deallocate          ( alb3sv )                                   !
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SnOptP
+ 
+ 
+ 
+      subroutine VgOptP
+ 
+!--------------------------------------------------------------------------+
+!   MAR/SISVAT   VgOptP                               Wed 26-Jun-2013  MAR |
+!     SubRoutine VgOptP computes the Canopy    optical Properties          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     Grid Boxes       |
+!                       X       Number of Mosaic Cell per Grid Box         |
+!                                                                          |
+!     INPUT:   ivgtSV   = 0,...,12:   Vegetation Type                      |
+!     ^^^^^               0:          Water, Solid or Liquid               |
+!                                                                          |
+!     INPUT:   coszSV   : Cosine of the Sun Zenithal Distance          [-] |
+!     ^^^^^    sol_SV   : Surface Downward  Solar   Radiation       [W/m2] |
+!              snCaSV   : Canopy     Snow      Thickness         [mm w.e.] |
+!                                                                          |
+!              LAI_sv   : Leaf Area  Index      (snow included)        [-] |
+!              glf_sv   : Green Leaf Fraction of NOT fallen Leaves     [-] |
+!              albisv   : Snow/Ice/Water/Soil Integrated Albedo        [-] |
+!                                                                          |
+!     OUTPUT:  alb_SV   : Surface-Canopy Albedo                        [-] |
+!     ^^^^^^   SoCasv   : Absorbed Solar Radiation by Canopy (Normaliz)[-] |
+!              SoSosv   : Absorbed Solar Radiation by Surfac (Normaliz)[-] |
+!              LAIesv   : Effective Leaf Area  Index for Transpiration [-] |
+!                                                                          |
+!     Internal Variables: Normalized Values:                               |
+!     ^^^^^^^^^^^^^^^^^^                                                   |
+!              u0_Vis   : Upward   Visible Radiation at Top Canopy     [-] |
+!              absg_V   : Absorbed Visible Radiation by the Ground     [-] |
+!              absv_V   : Absorbed Visible Radiation by the Canopy     [-] |
+!              u0_nIR   : Upward   Near IR Radiation at Top Canopy     [-] |
+!              absgnI   : Absorbed Near IR Radiation by the Ground     [-] |
+!              absv_V   : Absorbed Near IR Radiation by the Canopy     [-] |
+!                                                                          |
+!     REFERENCE:   De Ridder, 1997, unpublished thesis, chapter 2 (DR97,2) |
+!     ^^^^^^^^^                                                            |
+!                                                                          |
+!     ASSUMPTIONS: Leaf Inclination Index chi_l (eqn2.49 DR97) set to zero |
+!     ^^^^^^^^^^^                         for all vegetation types         |
+!                  Radiation Fluxes are normalized                         |
+!                        with respect to incoming solar radiation (=I0+D0) |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_TRV
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      use Mod_SISVATLVgO
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+      integer             ::  ikl,ikv   ,kri
+ 
+      real(kind=real8)    ::  exdRad,k_drad
+      real(kind=real8)    ::  e_prad,e1pRad
+      real(kind=real8)    ::  zv_fac,zv1fac,deadLF
+      real(kind=real8)    ::  T_Rad0,A_Rad0
+      real(kind=real8)    ::                r0_Rad,t0_Rad,nu_Rad
+      real(kind=real8)    ::  Tr_Rad,Re_Rad,r__Rad,t__Rad,t1_Rad
+      real(kind=real8)    ::  arggam, gamma
+      real(kind=real8)    ::  gammaL
+      real(kind=real8)    ::  denSig,Sig__c
+      real(kind=real8)    ::  DDifH1,DDifC1
+      real(kind=real8)    ::  DDifH2,DDifC2
+      real(kind=real8)    ::  denS_s,denS_a,den_c1,DDif_L
+      real(kind=real8)    ::  u0_Vis,absg_V,absv_V
+      real(kind=real8)    ::  u0_nIR,absgnI,absvnI
+      real(kind=real8)    ::  argexg,argexk
+      real(kind=real8)    ::  residu,d_DDif,dDDifs,dDDifa
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate              ( k___sv(kcolp,mwp) )
+      allocate              ( A0__sv(kcolp,mwp) )
+      allocate              ( gamasv(kcolp,mwp) )
+      allocate              ( Sigcsv(kcolp,mwp) )
+      allocate              ( C1__sv(kcolp,mwp) )
+      allocate              ( C2__sv(kcolp,mwp) )
+      allocate              ( criLAI(kcolp,mwp) )
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! General Parameters, Solar Radiation Absorption
+! ==============================================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+ 
+            k_dRad = 0.5 /max(coszSV(ikl,ikv),eps6)           ! absorbed irradiance fraction
+            e_pRad = 2.5   *  coszSV(ikl,ikv)                 ! exponential argument,
+                                                              ! V/nIR radiation partitioning,
+                                                              ! DR97, 2, eqn (2.53) & (2.54)
+            exdRad =    exp(-min(k_dRad*LAI_sv(ikl,ikv),ea_MAX))  ! exponential, Irradi. Absorpt.
+            e1pRad = 1.-exp(-    e_pRad                    )  ! exponential, V/nIR Rad. Part.
+ 
+            ivg    =                ivgtSV(ikl,ikv)           ! Vegetation Type
+            zv_fac =    min( snCaSV(ikl,ikv)/snCaMx          &! Contribution of Snow to Leaf
+     &                      ,  un_1)                          ! Reflectivity and Transmissiv.
+            zv1fac = 1.     -       zv_fac                    !
+            deadLF = 1.     -       glf_sv(ikl,ikv)           ! Dead Leaf Fraction
+ 
+ 
+! Visible Part of the Solar Radiation Spectrum (V,   0.4--0.7mi.m)
+! ================================================================
+ 
+            A_Rad0 =      0.25 + 0.697 * e1pRad ! Absorbed    Vis. Radiation
+            T_Rad0 = 1. - A_Rad0                ! Transmitted Vis  Radiation
+ 
+! Reflectivity, Transmissivity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+            Re_Rad = glf_sv(ikl,ikv) *ReVisL(ivg)                      &
+     &             + deadLF      *ReVisD(ivg)
+            Tr_Rad = glf_sv(ikl,ikv) *TrVisL(ivg)                      &
+     &             + deadLF      *TrVisD(ivg)
+ 
+! Adaptation to Snow
+! ^^^^^^^^^^^^^^^^^^
+            Re_Rad = zv1fac      *Re_Rad      + zv_fac *reVisS
+            Tr_Rad = zv1fac      *Tr_Rad      + zv_fac *trVisS
+ 
+! Scattering /DR97, 2, eqn (2.26) and (2.27)           ! Diffuse  Radiation:
+! ^^^^^^^^^^                                           ! ^^^^^^^^^^^^^^^^^^
+            r__Rad = (2. *Re_Rad +     Tr_Rad) / 3.    ! Upw.  Scatter.Fract.
+            t__Rad = (    Re_Rad + 2. *Tr_Rad) / 3.    ! Downw.Scatter.Fract.
+ 
+            t1_Rad =  1. -t__Rad                       !
+            arggam =      t1_Rad*t1_Rad-r__Rad*r__Rad  !
+            arggam =  max(arggam,zer0)                 !
+            gamma  = sqrt(arggam)                      ! eqn (2.39)
+            gammaL =  min( gamma*LAI_sv(ikl,ikv),40.0) !
+            DDifH1 =  exp( gammaL           )          ! Downw.Diffus.Solut.1
+            DDifH2 =  exp(-gammaL           )          ! Downw.Diffus.Solut.2
+!           REMARK:  These 2 contributions are zero in case of 0 Reflectivity
+!           ^^^^^^
+ 
+! Scattering /DR97, 2, eqn (2.19) and (2.20)           ! Direct   Radiation:
+! ^^^^^^^^^^                                           ! ^^^^^^^^^^^^^^^^^^
+            r0_Rad = 0.5 *((Re_Rad+Tr_Rad) *k_dRad    &! Upw.  Scatter.Fract.
+     &                    +(Re_Rad-Tr_Rad) /    3.)    !
+            t0_Rad = 0.5 *((Re_Rad+Tr_Rad) *k_dRad    &! Downw.Scatter.Fract.
+     &                    -(Re_Rad-Tr_Rad) /    3.)    !
+ 
+            nu_Rad = t1_Rad-r__Rad*albisv(ikl,ikv)     ! nu coeff., eqn 2.43
+            den_c1 =  gamma*(DDifH1+DDifH2)           &! eqn (2.43) Denomin.
+     &              +nu_Rad*(DDifH1-DDifH2)            !(Constant for DDifH1)
+ 
+            denSig =  gamma*gamma - k_dRad*k_dRad      ! eqn (2.40) Denomin.
+            denS_s = sign(un_1,denSig)                 !
+            denS_a =  abs(     denSig)                 !
+            denSig =  max(eps6,denS_a) * denS_s        !
+            Sig__c = (r__Rad* r0_Rad                  &! sigma_c, eqn (2.40)
+     &               +t0_Rad*(k_dRad+t1_Rad)) / denSig !
+ 
+            DDifC1 = ((gamma-nu_Rad)*(T_Rad0-Sig__c*A_Rad0)*DDifH2     &
+     &             +((k_dRad-nu_Rad)* Sig__c                           &
+     &               +t0_Rad+r__Rad * albisv(ikl,ikv)) *A_Rad0 *exdRad)&
+     &           /max(den_c1,eps6)
+            DDifC2 =  T_Rad0        - DDifC1-Sig__c*A_Rad0
+ 
+! Visible Diffuse Fluxes
+! ^^^^^^^^^^^^^^^^^^^^^^
+            DDif_L =  DDifC1*DDifH1 + DDifC2*DDifH2   &! DOWNward,
+     &             +  Sig__c*A_Rad0 *exdRad            ! Canopy Basis
+            u0_Vis = ((gamma+t1_Rad)*DDifC1           &! UPward
+     &               -(gamma-t1_Rad)*DDifC2           &! Canopy Top
+     &             -((k_dRad-t1_Rad)*Sig__c           &!
+     &               +t0_Rad               )*A_Rad0)  &!
+     &          / max(r__Rad,eps6)                     !
+            u0_Vis = min(0.99,max(eps6,u0_Vis))        ! ERROR
+            absg_V = (1.-albisv(ikl,ikv))*(A_Rad0*exdRad  &! Ground Absorption
+     &                                +DDif_L       )  !
+            absv_V = (1.-u0_Vis     )- absg_V          ! Veget. Absorption
+ 
+! Parameters for Computing Effective LAI for Transpiration
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+            gamasv(ikl,ikv) = gamma
+            C1__sv(ikl,ikv) = DDifC1
+            C2__sv(ikl,ikv) = DDifC2
+            Sigcsv(ikl,ikv) = Sig__c
+            k___sv(ikl,ikv) = k_dRad
+            A0__sv(ikl,ikv) = A_Rad0
+ 
+ 
+! Near-IR Part of the Solar Radiation Spectrum (nIR, 0.7--2.8mi.m)
+! ================================================================
+ 
+            A_Rad0 =      0.80 + 0.185 * e1pRad ! Absorbed    nIR. Radiation
+            T_Rad0 = 1. - A_Rad0                ! Transmitted nIR  Radiation
+ 
+! Reflectivity, Transmissivity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+            Re_Rad = glf_sv(ikl,ikv) *RenIRL(ivg)                      &
+     &             + deadLF      *RenIRD(ivg)
+            Tr_Rad = glf_sv(ikl,ikv) *TrnIRL(ivg)                      &
+     &             + deadLF      *TrnIRD(ivg)
+ 
+! Adaptation to Snow
+! ^^^^^^^^^^^^^^^^^^
+            Re_Rad = zv1fac      *Re_Rad      + zv_fac *renIRS
+            Tr_Rad = zv1fac      *Tr_Rad      + zv_fac *trnIRS
+ 
+! Scattering /DR97, 2, eqn (2.26) and (2.27)           ! Diffuse  Radiation:
+! ^^^^^^^^^^                                           ! ^^^^^^^^^^^^^^^^^^
+            r__Rad = (2. *Re_Rad +     Tr_Rad) / 3.    ! Upw.  Scatter.Fract.
+            t__Rad = (    Re_Rad + 2. *Tr_Rad) / 3.    ! Downw.Scatter.Fract.
+ 
+            t1_Rad =  1. -t__Rad                       !
+            arggam =      t1_Rad*t1_Rad-r__Rad*r__Rad  !
+            arggam =  max(arggam,zer0)                 !
+            gamma  = sqrt(arggam)                      ! eqn (2.39)
+            DDifH1 =  exp( gamma*LAI_sv(ikl,ikv))      ! Downw.Diffus.Solut.1
+            DDifH2 =  exp(-gamma*LAI_sv(ikl,ikv))      ! Downw.Diffus.Solut.2
+!           REMARK:  These 2 contributions are zero in case of 0 Reflectivity
+!           ^^^^^^
+ 
+! Scattering /DR97, 2, eqn (2.19) and (2.20)           ! Direct   Radiation:
+! ^^^^^^^^^^                                           ! ^^^^^^^^^^^^^^^^^^
+            r0_Rad = 0.5 *((Re_Rad+Tr_Rad) *k_dRad    &! Upw.  Scatter.Fract.
+     &                    +(Re_Rad-Tr_Rad) /    3.)    !
+            t0_Rad = 0.5 *((Re_Rad+Tr_Rad) *k_dRad    &! Downw.Scatter.Fract.
+     &                    -(Re_Rad-Tr_Rad) /    3.)    !
+ 
+            nu_Rad = t1_Rad-r__Rad*albisv(ikl,ikv)     ! nu coeff., eqn 2.43
+            den_c1 =  gamma*(DDifH1+DDifH2)           &! eqn (2.43) Denomin.
+     &              +nu_Rad*(DDifH1-DDifH2)            !(Constant for DDifH1)
+ 
+            denSig =  gamma*gamma - k_dRad*k_dRad      ! eqn (2.40) Denomin.
+            denS_s = sign(un_1,denSig)                 !
+            denS_a =  abs(     denSig)                 !
+            denSig =  max(eps6,denS_a) * denS_s        !
+            Sig__c = (r__Rad* r0_Rad                  &! sigma_c, eqn (2.40)
+     &               +t0_Rad*(k_dRad+t1_Rad)) / denSig !
+ 
+            DDifC1 = ((gamma-nu_Rad)*(T_Rad0-Sig__c*A_Rad0)*DDifH2     &
+     &             +((k_dRad-nu_Rad)* Sig__c                           &
+     &               +t0_Rad+r__Rad * albisv(ikl,ikv)) *A_Rad0 *exdRad)&
+     &           /max(den_c1,eps6)
+            DDifC2 =  T_Rad0        - DDifC1-Sig__c*A_Rad0
+ 
+! Near IR Diffuse Fluxes
+! ^^^^^^^^^^^^^^^^^^^^^^
+            DDif_L =  DDifC1*DDifH1 + DDifC2*DDifH2   &! DOWNward,
+     &             +  Sig__c*A_Rad0 *exdRad            ! Canopy Basis
+            u0_nIR = ((gamma+t1_Rad)*DDifC1           &! UPward
+     &               -(gamma-t1_Rad)*DDifC2           &! Canopy Top
+     &             -((k_dRad-t1_Rad)*Sig__c           &!
+     &               +t0_Rad               )*A_Rad0)  &!
+     &          / max(r__Rad,eps6)                     !
+            u0_nIR = min(0.99,max(eps6,u0_nIR))        ! ERROR
+            absgnI = (1.-albisv(ikl,ikv))*(A_Rad0*exdRad  &! Ground Absorption
+     &                                +DDif_L       )  !
+            absvnI = (1.-u0_nIR     )- absgnI          ! Veget. Absorption
+ 
+ 
+! Surface-Canopy Albedo and Normalized Solar Radiation Absorption
+! ===============================================================
+ 
+            alb_SV(ikl,ikv) = (u0_Vis+u0_nIR)*0.5d0
+            SoCasv(ikl,ikv) = (absv_V+absvnI)*0.5d0
+            SoSosv(ikl,ikv) = (absg_V+absgnI)*0.5d0
+ 
+      END DO
+      END DO
+ 
+ 
+! Effective LAI for Transpiration
+! ===============================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+              criLAI(ikl,ikv) = 2.              ! LAI for which D0_Vis > 20W/m2
+                                                ! DR97, 2, eqn (2.57)
+        END DO
+        END DO
+ 
+      DO   kri=1,10
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+              argexg      =  min(criLAI(ikl,ikv)*gamasv(ikl,ikv),     ea_Max)
+              argexk      =  min(criLAI(ikl,ikv)*k___sv(ikl,ikv),     ea_Max)
+              residu      =      C1__sv(ikl,ikv)            *exp( argexg)  &
+     &                          +C2__sv(ikl,ikv)            *exp(-argexg)  &
+     &                          +A0__sv(ikl,ikv)*gamasv(ikl,ikv)*exp(-argexk)  &
+     &                          -CriStR /max(sol_SV(ikl,ikv),       eps6)
+ 
+              d_DDif      =      C1__sv(ikl,ikv)*gamasv(ikl,ikv)*exp( argexg)  &
+     &                          -C2__sv(ikl,ikv)*gamasv(ikl,ikv)*exp(-argexg)  &
+     &                          -A0__sv(ikl,ikv)*k___sv(ikl,ikv)*exp(-argexk)
+              dDDifs      = sign(un_1,d_DDif)
+              dDDifa      =  abs(     d_DDif)
+              d_DDif      =  max(eps6,dDDifa) * dDDifs
+ 
+              criLAI(ikl,ikv) =      criLAI(ikl,ikv)-residu/d_DDif
+              criLAI(ikl,ikv) =  max(criLAI(ikl,ikv),zer0       )
+              criLAI(ikl,ikv) =  min(criLAI(ikl,ikv),LAI_sv(ikl,ikv))
+ 
+        END DO
+        END DO
+      END DO
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+              LAIesv(ikl,ikv) = criLAI(ikl,ikv) +(exp(-min(k___sv(ikl,ikv)*criLAI(ikl,ikv),ea_MAX)) &
+     &                                   -exp(-min(k___sv(ikl,ikv)*LAI_sv(ikl,ikv),ea_MAX)))&
+     &                                  /          k___sv(ikl,ikv)
+        END DO
+        END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate            ( k___sv )
+      deallocate            ( A0__sv )
+      deallocate            ( gamasv )
+      deallocate            ( Sigcsv )
+      deallocate            ( C1__sv )
+      deallocate            ( C2__sv )
+      deallocate            ( criLAI )
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine VgOptP
+ 
+ 
+ 
+      subroutine ColPrt_SBL
+ 
+!--------------------------------------------------------------------------+
+!   MAR          ColPrt_SBL                           Wed 26-Jun-2013  MAR |
+!     SubRoutine ColPrt_SBL generates Surface Boundary Layers Properties   |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns                          |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   za__SV   : Surface Boundary Layer (SBL) Height          [m] |
+!     ^^^^^    VV__SV   :(SBL Top)   Wind Velocity                   [m/s] |
+!              TaT_SV   : SBL Top    Temperature                       [K] |
+!              rhT_SV   : SBL Top  Air  Density                    [kg/m3] |
+!              uqs_SV   : Specific  Humidity  Turbulent Flux         [m/s] |
+!              Tsrfsv   : Surface    Temperature                       [K] |
+!                                                                          |
+!     INPUT /  LMO_SV   : Monin-Obukhov       Scale                    [m] |
+!     OUTPUT:  us__SV   : Friction  Velocity                         [m/s] |
+!     ^^^^^^   uts_SV   : Temperature         Turbulent Flux       [K.m/s] |
+!                                                                          |
+!     OUTPUT:  ram_sv   : Aerodynamic Resistance for Momentum        [s/m] |
+!     ^^^^^^   rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+ 
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      integer           ::  ikl,ikv    ,ist    ,ist__s ,ist__w
+      real(kind=real8)  ::  d_TaTs ,CD_m
+      real(kind=real8)  ::  uustar ,thstar ,qqstar
+      real(kind=real8)  ::  thstarv,thstars,thstara
+      real(kind=real8)  ::  zeta   ,zeta_S ,zeta_A
+      real(kind=real8)  ::  fCdCdP =  3.09                  ! Drag Coefficient Factor, Col de Porte
+      real(kind=real8)  ::  Cd_min =  1.05                  ! Drag Coefficient Minimum Col de Porte
+      real(kind=real8)  ::  cCdUns = -5.00                  ! Drag Coefficient Correction for Unstability
+      real(kind=real8)  ::  RapCm0
+ 
+ 
+! Aerodynamic Resistances
+! =======================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+ 
+! Surface Type
+! ~~~~~~~~~~~~
+        ist    =      isotSV(ikl,ikv)                ! Soil Type
+        ist__s =  min(ist, 1)                        ! 1 => Soil
+        ist__w =  1 - ist__s                         ! 1 => Water Body
+ 
+! Drag and Aerodynamic Resistance
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        d_TaTs =      TaT_SV(ikl,ikv)-Tsrfsv(ikl,ikv)
+        RapCm0 =  log(za__SV(ikl,ikv)/Z0mdSV(4          )) &
+     &         /  log(za__SV(ikl,ikv)/Z0mdSV(ivgtSV(ikl,ikv)))
+        RapCm0 =      RapCm0     *RapCm0             ! Neutral Drag Coefficient
+                                                     ! Vegetation   Correction
+        CD_m   =  max(Cd_min*RapCm0,                &! Actual  Drag Coefficient
+     &                fCdCdP*RapCm0*VV__SV(ikl,ikv)  )  &!         for  Momentum
+     &          *(1.+max(min(d_TaTs,zer0),cCdUns)   &! Unstability  Correction
+     &                                   /cCdUns )  &!
+     &          * 1.5                                !
+        ram_sv(ikl,ikv) = rhT_SV(ikl,ikv) *CpdAir/CD_m   !
+        rah_sv(ikl,ikv) = ram_sv(ikl,ikv)            !
+ 
+ 
+! Turbulent Scales
+! ================
+ 
+! Friction Velocity                   u*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uustar      =      VV__SV(ikl,ikv) / ram_sv(ikl,ikv)
+        us__SV(ikl,ikv) = sqrt(uustar)
+ 
+! Real    Temperature Turbulent Scale theta*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uts_SV(ikl,ikv) =    - d_TaTs      / rah_sv(ikl,ikv)
+        thstar      =      uts_SV(ikl,ikv) / us__SV(ikl,ikv)
+ 
+! Specific Humidity   Turbulent Scale qq*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        qqstar      =      uqs_SV(ikl,ikv) / us__SV(ikl,ikv)
+ 
+! Virtual Temperature Turbulent Scale thetav*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        thstarv     = thstar      + TaT_SV(ikl,ikv) *(0.608*qqstar)
+        thstars     =     sign(un_1,thstarv)
+        thstara     =      abs(     thstarv)
+        thstarv     =      max(eps6,thstara)    *thstars
+ 
+! Monin Obukhov Scale Height
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~
+        LMO_SV(ikl,ikv) = TaT_SV(ikl,ikv) * uustar                     &
+     &              /(vonKrm      * Grav_F     * thstarv)
+        zeta        = za__SV(ikl,ikv) / LMO_SV(ikl,ikv)
+        zeta_S      =          sign(un_1  ,zeta)
+        zeta_A      =           abs(       zeta)
+        zeta        = zeta_S  * max(eps6  ,zeta_A)
+        LMO_SV(ikl,ikv) = za__SV(ikl,ikv) / zeta
+ 
+      END DO
+      END DO
+ 
+ 
+      return
+      end subroutine ColPrt_SBL
+ 
+ 
+ 
+      subroutine SISVATeSBL
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVATeSBL                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVATeSBL generates Surface Boundary Layers Properties   |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns                          |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   za__SV   : Surface Boundary Layer (SBL) Height          [m] |
+!     ^^^^^    VV__SV   :(SBL Top)   Wind Velocity                   [m/s] |
+!              TaT_SV   : SBL Top    Temperature                       [K] |
+!              qsnoSV   : SBL Mean   Snow      Content             [kg/kg] |
+!              uqs_SV   : Specific   Humidity  Turbulent Flux        [m/s] |
+!              usthSV   : Blowing Snow Erosion   Threshold           [m/s] |
+!              Z0m_SV   : Momentum     Roughness Length                [m] |
+!              Z0h_SV   : Heat         Roughness Length                [m] |
+!              Tsrfsv   : Surface    Temperature                       [K] |
+!              sqrCm0   : Contribution of Z0m to Neutral Drag Coefficient  |
+!              sqrCh0   : Contribution of Z0h to Neutral Drag Coefficient  |
+!                                                                          |
+!     INPUT /  LMO_SV   : Monin-Obukhov       Scale                    [m] |
+!     OUTPUT:  us__SV   : Friction  Velocity                         [m/s] |
+!     ^^^^^^   uts_SV   : Temperature         Turbulent Flux       [K.m/s] |
+!              uss_SV   : Blowing Snow        Turbulent Flux         [m/s] |
+!                                                                          |
+!     OUTPUT:  hSalSV   : Saltating Layer Height                       [m] |
+!     ^^^^^^   qSalSV   : Saltating Snow  Concentration            [kg/kg] |
+!              ram_sv   : Aerodynamic Resistance for Momentum        [s/m] |
+!              rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD                                      |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^                                      |
+!     #AE: TURBULENCE: Aerosols Erosion / Turbulent Diffusion Coeff.       |
+!                                                                          |
+!     #AW  TURBULENCE: Wind Time Mean (BOX Moving Average)                 |
+!     #AH  TURBULENCE: Ta-T Time Mean (BOX Moving Average)                 |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #ZX  TURBULENCE: Strong Stability Limit (King    et al. 1996)        |
+!     #zx  TURBULENCE: Strong Stability Limit (Mahalov et al. 2004)        |
+!     #AX  TURBULENCE: recurrence                                          |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # stdout               | #ss: OUTPUT of Blowing Snow Variables         |
+!                          |      unit  6, SubRoutine  SISVATeSBL **ONLY** |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_ctr
+! #AW use Mod_SISVAT_xAW
+! #AH use Mod_SISVAT_xAH
+      use Mod_SISVATLSBL
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+! Internal Variables
+! ==================
+ 
+! V,  dT(a-s)    Time Moving Averages
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      integer                                      ::  ikl,ikv   ,icount
+! #AE integer                                      ::  nit    =   5    ! us(is0,uth) recursivity: Nb Iterations
+! #AE integer                                      ::  iit
+ 
+      real(kind=real8)                             ::  VVa_OK          ! effective SBL wind speed
+      real(kind=real8)                             ::  Theta0 = 288.0  ! Potential Reference Temperature
+ 
+!     real(kind=real8)                             ::  LMOsgn          ! Monin-Obukhov Scale Sign
+!     real(kind=real8)                             ::  LMOabs          ! Monin-Obukhov Scale Abs.Value
+ 
+      real(kind=real8)                             ::  uustar,thstar   !
+      real(kind=real8)                             ::  qqstar,ssstar   !
+      real(kind=real8)                             ::  thstarv,thstars !
+      real(kind=real8)                             ::  thstara         !
+      real(kind=real8)                             ::  zetam ,zetah    !
+      real(kind=real8)                             ::  zeta0m,zeta0h   !
+      real(kind=real8)                             ::  psim_s,xpsimi   !
+      real(kind=real8)                             ::  psim_i,psim_z   !
+! #AE real(kind=real8)                             ::  psis_s,psis_z   !
+! #AE real(kind=real8)                             ::  psis_0          !
+      real(kind=real8)                             ::  psih_s,xpsihi   !
+      real(kind=real8)                             ::  psih_i,psih_z   !
+      real(kind=real8)                             ::  psim_0,psih_0   !
+      real(kind=real8)                             ::  dustar,u0star   !
+ 
+      real(kind=real8)                             ::  sss__F,sss__N   !
+      real(kind=real8)                             ::  usuth0          !
+! #AE real(kind=real8)                             ::  dusuth,signus   !
+! #AE real(kind=real8)                             ::  sss__K,sss__G   !
+! #AE real(kind=real8)                             ::  us_127,us_227   !
+! #AE real(kind=real8)                             ::  us_327,us_427   !
+! #AE real(kind=real8)                             ::  us_527          !
+ 
+      real(kind=real8)                             ::  stab_s          !
+      real(kind=real8)                             ::  zetMAX =  1.e6  ! Strong Stability Limit
+      real(kind=real8)                             ::  coef_m = 20.    ! Stabil.Funct.for Moment.: unstab.coef.
+      real(kind=real8)                             ::  coef_h = 15.    ! Stabil.Funct.for Heat:    unstab.coef.
+! #AE real(kind=real8)                             ::  SblPom =  1.27  ! Lower Boundary Height Parameter for Suspension
+                                                                       ! Pommeroy, Gray and Landine 1993, J. Hydrology, 144(8) p.169
+!     real(kind=real8)                             ::  fac_Ri          !
+!     real(kind=real8)                             ::  Kz_vun          !
+ 
+! OUTPUT of Snow Erosion Turbulence
+! #b1 real(kind=real8)                             ::  W_pLMO          ! Pseudo Obukhov Length  (WRITE)
+! #b1 real(kind=real8)                             ::  W_psim          ! Pseudo psim(z)         (WRITE)
+ 
+! OUTPUT of Snow Erosion Turbulence (2)
+! #b2 real(kind=real8)                             ::  W_NUs1          ! Contrib to U* numerat.1(WRITE)
+! #b2 real(kind=real8)                             ::  W_NUs2          ! Contrib to U* numerat.2(WRITE)
+! #b2 real(kind=real8)                             ::  W_NUs3          ! Contrib to U* numerat.3(WRITE)
+! #b2 real(kind=real8)                             ::  W_DUs1          ! Contrib to U* denomin.1(WRITE)
+! #b2 real(kind=real8)                             ::  W_DUs2          ! Contrib to U* denomin.2(WRITE)
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate            ( VVaSBL(kcolp,mwp) )                        ! effective SBL wind speed
+      allocate            ( dTa_Ts(kcolp,mwp) )                        ! effective SBL Temperature diff.
+      allocate            ( LMOmom(kcolp,mwp) )                        ! Monin-Obukhov Scale Momentum
+      allocate            ( CDm(kcolp,mwp)    )                        ! Drag Coefficient, Momentum
+      allocate            ( CDs(kcolp,mwp)    )                        ! Drag Coefficient, Blown **
+      allocate            (rCDs(kcolp,mwp)    )                        ! Drag Coefficient, Blown **
+      allocate            ( CDh(kcolp,mwp)    )                        ! Drag Coefficient, Scalar
+      allocate            ( Richar(kcolp,mwp) )                        ! Richardson Number
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Internal DATA
+! =============
+ 
+! #zx                       zetMAX = 1.e0                 ! Strong Stability Limit
+                                                          !(Mahalov et al. 2004, GRL  31 2004GL021055)
+! #ZX                       zetMAX = 4.28                 ! Strong Stability Limit
+                                                          !(King    et al. 1996, JGR 101(7) p.19121)
+ 
+ 
+! Effective SBL variables
+! =======================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        VVaSBL(ikl,ikv)   = VV__SV(ikl,ikv)
+! #AW   VVaSBL(ikl,ikv)   = VVmmem(ikl,ikv)
+        dTa_Ts(ikl,ikv)   = TaT_SV(ikl,ikv)-Tsrfsv(ikl,ikv)
+! #AH   dTa_Ts(ikl,ikv)   = dTmmem(ikl,ikv)
+      END DO
+      END DO
+ 
+ 
+! Convergence Criterion
+! =====================
+ 
+      icount = 0
+ 
+! #AX 1        CONTINUE
+      icount = icount + 1
+      dustar = 0.
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+          u0star      = us__SV(ikl,ikv)
+ 
+ 
+! Turbulent Scales from previous Time Step
+! ----------------------------------------
+ 
+          u0star      =      max(eps6,u0star)      ! Friction Velocity     u*
+          uustar      = u0star      * u0star       ! Friction Velocity^2  uu*
+          thstar      = uts_SV(ikl,ikv) / u0star   ! Temperature       theta*
+          qqstar      = uqs_SV(ikl,ikv) / u0star   ! Specific Humidity    qq*
+          ssstar      = uss_SV(ikl,ikv) / u0star   ! Blown    Snow        ss*
+ 
+ 
+! Monin-Obukhov Stability Parameter for Momentum
+! ----------------------------------------------
+ 
+! Pseudo Virtual Temperature Turbulent Scale thetav*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          thstarv     = thstar      + Theta0      *(0.608*qqstar)      &
+     &                             /(1.+0.608*QaT_SV(ikl,ikv)-qsnoSV(ikl,ikv))
+          thstars     =     sign(un_1,thstarv)
+          thstara     =      abs(     thstarv)
+          thstarv     =      max(eps6,thstara)*thstars
+ 
+! Pseudo Obukhov Length Scale        (Gall?e et al., 2001 BLM 99, (A2) p.17)
+! Full   Obukhov Length Scale        (when Blowing * is ##NOT## switched ON)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          LMO_SV(ikl,ikv) = Theta0      * max(eps6,uustar)             &
+     &                /(vonKrm      * Grav_F  *thstarv)
+ 
+! OUTPUT of Snow Erosion Turbulence
+! #b1     W_pLMO      = LMO_SV(ikl,ikv)
+ 
+          zetah       = za__SV(ikl,ikv) / LMO_SV(ikl,ikv)
+          zetam       =           min(zetMAX,zetah)! Strong Stability Limit
+                                                   !(Mahalov et al. 2004
+                                                   ! GRL 31 2004GL021055)
+          LMOmom(ikl,ikv) = za__SV(ikl,ikv) /(max(eps6,abs(zetam))     &
+     &                              *sign(un_1,    zetam ))
+          zeta0m      = Z0m_SV(ikl,ikv) / LMOmom(ikl,ikv)
+          zeta0h      = Z0h_SV(ikl,ikv) / LMO_SV(ikl,ikv)
+ 
+! Momentum Pseudo Stability Function (Gall?e et al. 2001, BLM 99, (11) p. 7)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          stab_s      =  max(zer0,sign(un_1,zetam))
+ 
+          psim_s      =  -A_Stab *zetam
+          xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zetam)))
+          psim_i      =   2. *log(half*(un_1+xpsimi))                  &
+     &                       +log(half*(un_1+xpsimi*xpsimi))           &
+     &                   -2.*atan(xpsimi)   +half*piNmbr
+          psim_z      =    stab_s*psim_s+(1.-stab_s)*psim_i
+ 
+! OUTPUT of Snow Erosion Turbulence
+! #b1     W_psim      =           psim_z
+ 
+          psim_s      =  -A_Stab *zeta0m
+          xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zeta0m)))
+          psim_i      =   2. *log(half*(un_1+xpsimi))                  &
+     &                       +log(half*(un_1+xpsimi*xpsimi))           &
+     &                   -2.*atan(xpsimi)   +half*piNmbr
+          psim_0      =    stab_s*psim_s+(1.-stab_s)*psim_i
+ 
+! Virtual Temperature Turbulent Scale thetav*    (ss* impact included   )
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ needed for new ss*)
+! #AE     thstarv     = thstar      + Theta0      *(0.608*qqstar       &
+! #AE&                                                   -ssstar       &
+! #AE&                                             )                   &
+! #AE&                             /(1.+0.608*QaT_SV(ikl,ikv)-qsnoSV(ikl,ikv))
+! #AE     thstars     =     sign(un_1,thstarv)
+! #AE     thstara     =      abs(     thstarv)
+! #AE     thstarv     =      max(eps6,thstara)    *thstars
+ 
+! Full   Obukhov Length Scale        (Gall?e et al. 2001, BLM 99, (A1) p.16)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AE     LMO_SV(ikl,ikv) = Theta0      * us__SV(ikl,ikv)* us__SV(ikl,ikv) &
+! #AE&                /(vonKrm      * Grav_F     * thstarv)
+ 
+! #AE     zetah       = za__SV(ikl,ikv) / LMO_SV(ikl,ikv)
+! #AE     zetam       =           min(zetMAX,zetah)! Strong Stability Limit
+                                                   !(Mahalov et al. 2004
+                                                   ! GRL 31 2004GL021055)
+! #AE     LMOmom(ikl,ikv) = za__SV(ikl,ikv) /(max(eps6,abs(zetam))     &
+! #AE&                              *sign(un_1,    zetam ))
+! #AE     zeta0m      = Z0m_SV(ikl,ikv) / LMOmom(ikl,ikv)
+ 
+! Snow Erosion    Stability Function (Gall?e et al. 2001, BLM 99, (11) p. 7)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AE     stab_s      =  max(zer0,sign(un_1,zetam))
+ 
+! #AE     psis_s      =  -AsStab *zetam
+! #AE     xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zetam)))
+! #AE     psim_i      =   2. *log(half*(un_1+xpsimi))                  &
+! #AE&                       +log(half*(un_1+xpsimi*xpsimi))           &
+! #AE&                   -2.*atan(xpsimi)   +half*piNmbr
+! #AE     psis_z      =    stab_s*psis_s+(1.-stab_s)*psim_i
+ 
+! #AE     psis_s      =  -AsStab *zeta0m
+! #AE     xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zeta0m)))
+! #AE     psim_i      =   2. *log(half*(un_1+xpsimi))                  &
+! #AE&                       +log(half*(un_1+xpsimi*xpsimi))           &
+! #AE&                   -2.*atan(xpsimi)   +half*piNmbr
+! #AE     psis_0      =    stab_s*psis_s+(1.-stab_s)*psim_i
+ 
+! Square Roots of the Drag Coefficient for Snow Erosion Turbulent Flux
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AE     rCDmSV(ikl,ikv) = vonKrm/(sqrCm0(ikl,ikv)-psim_z+psim_0)
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! Martin control : on remplace les "! #ss" par rien au début de la ligne
+          IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV   .AND.  &
+     &        ikv        .EQ.nwr_SV                          )     &
+     &    write(6,6600)  Z0m_SV(ikl,ikv) , psim_z                      &
+     &                  ,LMO_SV(ikl,ikv) , uustar                      &
+     &                  ,sqrCm0(ikl,ikv) , psim_0                      &
+     &                  ,LMOmom(ikl,ikv) , thstarv
+      6600      format(/,' ** SISVATeSBL *0  '                         &
+     &            ,'  Z0m_SV  = ',e12.4,'  psim_z  = ',e12.4           &
+     &            ,'  LMO_SV  = ',e12.4,'  uustar  = ',e12.4           &
+     &          ,/,'                   '                               &
+     &            ,'  sqrCm0  = ',e12.4,'  psim_0  = ',e12.4           &
+     &            ,'  LMOmom  = ',e12.4,'  thstarv = ',e12.4)
+! Martin control : on remplace les "! #ss" par rien au début de la ligne
+ 
+ 
+! Momentum            Turbulent Scale  u*
+! ---------------------------------------
+ 
+! Momentum            Turbulent Scale  u*          in case of NO Blow. Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          VVa_OK      =  max(0.000001,       VVaSBL(ikl,ikv))
+          sss__N      =  vonKrm      *       VVa_OK
+          sss__F      = (sqrCm0(ikl,ikv) - psim_z + psim_0)
+          usuth0      =  sss__N /sss__F                ! u* if NO Blow. Snow
+ 
+! Momentum            Turbulent Scale  u*          in case of    Blow. Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AE     sss__G      =  0.27417     * Grav_F
+ 
+! ______________               _____
+! Newton-Raphson (! Iteration, BEGIN)
+! ~~~~~~~~~~~~~~               ~~~~~
+! #AE     DO iit=1,nit
+! #AE     sss__K      =  Grav_F      * r_Stab * A_Stab *za__SV(ikl,ikv)&
+! #AE&                                     *rCDmSV(ikl,ikv)*rCDmSV(ikl,ikv)&
+! #AE&                           /(1.+0.608*QaT_SV(ikl,ikv)-qsnoSV(ikl,ikv))
+! #AE     us_127      =  exp(    SblPom *log(us__SV(ikl,ikv)))
+! #AE     us_227      =  us_127         *    us__SV(ikl,ikv)
+! #AE     us_327      =  us_227         *    us__SV(ikl,ikv)
+! #AE     us_427      =  us_327         *    us__SV(ikl,ikv)
+! #AE     us_527      =  us_427         *    us__SV(ikl,ikv)
+ 
+! #AE     us__SV(ikl,ikv) =  us__SV(ikl,ikv)                           &
+! #AE&    - (  us_527     *sss__F     /sss__N                          &
+! #AE&      -  us_427                                                  &
+! #AE&      -  us_227     *qsnoSV(ikl,ikv)*sss__K                      &
+! #AE&      + (us__SV(ikl,ikv)*us__SV(ikl,ikv)-usthSV(ikl,ikv)*usthSV(ikl,ikv))/sss__G)&
+! #AE&     /(  us_427*5.27*sss__F     /sss__N                          &
+! #AE&      -  us_327*4.27                                             &
+! #AE&      -  us_127*2.27*qsnoSV(ikl,ikv)*sss__K                      &
+! #AE&      +  us__SV(ikl,ikv)*2.0                                 /sss__G)
+ 
+! #AE     us__SV(ikl,ikv)= min(us__SV(ikl,ikv),usuth0)
+! #AE     us__SV(ikl,ikv)= max(us__SV(ikl,ikv),eps6  )
+! #AE     rCDmSV(ikl,ikv)=     us__SV(ikl,ikv)/VVa_OK
+! #Ae     sss__F     =     vonKrm     /rCDmSV(ikl,ikv)
+! #AE     END DO
+! ______________               ___
+! Newton-Raphson (! Iteration, END  )
+! ~~~~~~~~~~~~~~               ~~~
+ 
+! #AE     us_127      =  exp(    SblPom *log(us__SV(ikl,ikv)))
+! #AE     us_227      =  us_127         *    us__SV(ikl,ikv)
+ 
+! Momentum            Turbulent Scale  u*: 0-Limit in case of no Blow. Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AE     dusuth      =  us__SV(ikl,ikv) - usthSV(ikl,ikv)   ! u* - uth*
+! #AE     signus      =  max(sign(un_1,dusuth),zer0)     ! 1 <=> u* - uth* > 0
+          us__SV(ikl,ikv) =                             &!
+! #AE&                   us__SV(ikl,ikv)  *signus  +    &! u* (_BS)
+     &                   usuth0                         &! u* (nBS)
+! #AE&                            *(1.-signus)          &!
+     &                +  0.
+ 
+ 
+! Blowing Snow        Turbulent Scale ss*
+! ---------------------------------------
+ 
+! Blowing Snow Surface Boundary Condition
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #AE     hSalSV(ikl,ikv) = 8.436e-2  *exp(SblPom  *log(us__SV(ikl,ikv)))
+! #AE     qSalSV(ikl,ikv) = (us__SV(ikl,ikv) * us__SV(ikl,ikv)         &
+! #AE&                  -usthSV(ikl,ikv) * usthSV(ikl,ikv))*signus     &
+! #AE&                / (sss__G      * us_227     )
+ 
+! Blowing Snow Surface Boundary Condition (modification, .NOT. tested)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ae     qSalSV(ikl,ikv) = (us__SV(ikl,ikv) * us__SV(ikl,ikv)         &
+! #ae&                  -usthSV(ikl,ikv) * usthSV(ikl,ikv))            &
+! #ae&                  *signus      * us__SV(ikl,ikv) *3.25           &
+! #ae&                 /(hSalSV(ikl,ikv) * Grav_F           )
+ 
+! #AE     ssstar      =  rCDmSV(ikl,ikv) *(qsnoSV(ikl,ikv) -qSalSV(ikl,ikv))   &
+! #AE&                 * r_Stab
+ 
+! #AE     uss_SV(ikl,ikv) =  min(zer0    , us__SV(ikl,ikv) *ssstar)
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ss     IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV   .AND.  &
+! #ss&        ikv        .EQ.nwr_SV                          )  THEN
+! #ss     write(6,6000)  daHost     ,     icount     ,                 &
+! #ss&                   us__SV(ikl,ikv),1.e3*hSalSV(ikl,ikv),         &
+! #ss&              1.e3*Z0m_SV(ikl,ikv),                              &
+! #ss&              1.e3*qsnoSV(ikl,ikv),1.e3*qSalSV(ikl,ikv)          &
+! #ss&                  ,usthSV(ikl,ikv),     us__SV(ikl,ikv)-usthSV(ikl,ikv), &
+! #ss&              1.e3*ssstar     ,1.e3*us__SV(ikl,ikv)*ssstar
+! #ss 6000 format(a18,i3,6x,'u*   [m/s] =',f6.3,'   hSalt[mm]='  ,e9.3,&
+! #ss&                  '   Z0m   [mm] =',f9.3,'   q   [g/kg] =',f9.3, &
+! #ss&               /,91x,                    '   qSa [g/kg] =',f9.3, &
+! #ss&               /,27x, 'ut*[m/s]='  ,e9.3,'   u*-ut*   ='  ,e9.3, &
+! #ss&                  '   s*  [g/kg] =',f9.3,'   us* [mm/s] =',f9.3)
+! #ss     END IF
+ 
+ 
+! Virtual Temperature Turbulent Scale thetav*    (ss* impact included)
+! --------------------------------------------------------------------
+ 
+! #AE     thstarv     = thstar      + Theta0      *(0.608*qqstar       &
+! #AE&                                                   -ssstar       &
+! #AE&                                             )                   &
+! #AE&                             /(1.+0.608*QaT_SV(ikl,ikv)-qsnoSV(ikl,ikv))
+! #AE     thstars     =     sign(un_1,thstarv)
+! #AE     thstara     =      abs(     thstarv)
+! #AE     thstarv     =      max(eps6,thstara)    *thstars
+ 
+ 
+! Full   Obukhov Length Scale (Gall?e et al., 2001, BLM 99, (A1) p.16)
+! --------------------------------------------------------------------
+ 
+! #AE     LMO_SV(ikl,ikv) = Theta0      * us__SV(ikl,ikv)* us__SV(ikl,ikv) &
+! #AE&                /(vonKrm      * Grav_F     * thstarv)
+ 
+! #AE     zetah       = za__SV(ikl,ikv) / LMO_SV(ikl,ikv)
+! #AE     zetam       =           min(zetMAX,zetah)! Strong Stability Limit
+                                                   !(Mahalov et al. 2004
+                                                   ! GRL 31 2004GL021055)
+! #AE     LMOmom(ikl,ikv) = za__SV(ikl,ikv) /(max(eps6,abs(zetam))     &
+! #AE&                              *sign(un_1,    zetam ))
+! #AE     zeta0m      = Z0m_SV(ikl,ikv) / LMOmom(ikl,ikv)
+! #AE     zeta0h      = Z0h_SV(ikl,ikv) / LMO_SV(ikl,ikv)
+ 
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ss     IF (ii__AP(ikl).EQ.iwr_SV.AND.jj__AP(ikl).EQ.jwr_SV   .AND.  &
+! #ss&        ikv        .EQ.nwr_SV                          )  THEN
+! #ss     write(6,6001)  LMO_SV(ikl,ikv)    ,    zetah
+! #ss 6001      format(18x,9x,'LMO  [m]=',f9.1,'   zetah[-] =',f9.3)
+! #ss     END IF
+ 
+ 
+! Turbulent Scales
+! ----------------
+ 
+! Momentum Stability Function (Gall?e et al., 2001, BLM 99, (11) p. 7)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          stab_s      =  max(zer0,sign(un_1,zetam))
+ 
+          psim_s      =  -A_Stab *zetam
+          xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zetam)))
+          psim_i      =   2. *log(half*(un_1+xpsimi))                  &
+     &                       +log(half*(un_1+xpsimi*xpsimi))           &
+     &                   -2.*atan(xpsimi)   +half*piNmbr
+          psim_z      =    stab_s*psim_s+(1.-stab_s)*psim_i
+ 
+          psim_s      =  -A_Stab *zeta0m
+          xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zeta0m)))
+          psim_i      =   2. *log(half*(un_1+xpsimi))                  &
+     &                       +log(half*(un_1+xpsimi*xpsimi))           &
+     &                   -2.*atan(xpsimi)   +half*piNmbr
+          psim_0      =    stab_s*psim_s+(1.-stab_s)*psim_i
+ 
+! Heat     Stability Function (Gallee et al., 2001, BLM 99, (11) p. 7)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          stab_s      =  max(zer0,sign(un_1,zetah))
+ 
+          psih_s      =  -AhStab *zetah
+          xpsihi      = sqrt(sqrt(un_1-coef_h*min(zer0,zetah)))
+          psih_i      =   2. *log(half*(un_1+xpsihi))
+          psih_z      =    stab_s*psih_s+(1.-stab_s)*psih_i
+ 
+          psih_s      =  -AhStab *zeta0h
+          xpsihi      = sqrt(sqrt(un_1-coef_h*min(zer0,zeta0h)))
+          psih_i      =   2. *log(half*(un_1+xpsihi))
+          psih_0      =    stab_s*psih_s+(1.-stab_s)*psih_i
+ 
+! Square Roots of the Drag Coefficients
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          rCDhSV(ikl,ikv) = vonKrm/(sqrCh0(ikl,ikv)-psih_z+psih_0)
+          rCDmSV(ikl,ikv) = vonKrm/(sqrCm0(ikl,ikv)-psim_z+psim_0)
+ 
+! Drag Coefficients
+! ~~~~~~~~~~~~~~~~~
+          CDh(ikl,ikv)    = rCDmSV(ikl,ikv) * rCDhSV(ikl,ikv)
+          CDm(ikl,ikv)    = rCDmSV(ikl,ikv) * rCDmSV(ikl,ikv)
+ 
+! Real    Temperature Turbulent Scale theta*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          thstar      = rCDhSV(ikl,ikv) * dTa_Ts(ikl,ikv)
+          uts_SV(ikl,ikv) = us__SV(ikl,ikv) * thstar
+ 
+ 
+! Convergence Criterion
+! =====================
+ 
+          dustar      = max(dustar,abs(us__SV(ikl,ikv)-u0star))
+ 
+! OUTPUT of Snow Erosion Turbulence
+! #b1    IF (icount     .EQ.1  )                                    THEN
+! #b1     write(6,6004)
+! #b1 6004      format(122('-'))
+! #b1    IF (mod(VVaSBL(ikl,ikv),4.).LT.0.1)                        THEN
+! #b1     write(6,6003)
+! #b1 6003      format('   V  Ta-Ts  Z0      It'                       &
+! #b1&   ,' du*     u*    sss__F   CD       Qss       Qs*     '        &
+! #b1&   ,' PseudOL Full-OL zetam   zetah   psim_z  psih_z')
+! #b1     write(6,6004)
+! #b1    END IF
+! #b1    END IF
+! #b1     write(6,6002) VVaSBL(ikl,ikv),dTa_Ts(ikl,ikv),Z0m_SV(ikl,ikv),icount &
+! #b1&                 ,dustar     ,us__SV(ikl,ikv),sss__F             &
+! #b1&                 ,   CDm(ikl,ikv),qSalSV(ikl,ikv),ssstar         &
+! #b1&                 ,W_pLMO     ,LMO_SV(ikl,ikv)                    &
+! #b1&                 ,zetam      ,zetah      ,W_psim     ,psih_z
+! #b1 6002 format(2f6.1,f8.4,i3,f9.6,f6.3,f9.3,3f9.6,2f8.2,2f8.4,2f8.2)
+ 
+! OUTPUT of Snow Erosion Turbulence (2): u*_AE
+! #b2    IF (icount     .EQ.1  )                                    THEN
+! #b2     write(6,6014)
+! #b2 6014      format(100('-'))
+! #b2    IF (mod(VVaSBL(ikl,ikv),4.).LT.0.1)                        THEN
+! #b2     write(6,6013)
+! #b2 6013     format('   V  Ta-Ts  Z0      It'                        &
+! #b2&   ,' du*     u*    sss__F   W_NUs1   W_NUs2   W_NUs3      '     &
+! #b2&   ,' W_DUs1     W_DUs2 ')
+! #b2     write(6,6014)
+! #b2    END IF
+! #b2    END IF
+! #b2     write(6,6012) VVaSBL(ikl,ikv),dTa_Ts(ikl,ikv),Z0m_SV(ikl,ikv),icount &
+! #b2&                 ,dustar     ,us__SV(ikl,ikv),sss__F             &
+! #b2&                 ,W_NUs1     ,W_NUs2     ,W_NUs3                 &
+! #b2&                 ,W_DUs1     ,W_DUs2
+! #b2 6012      format(2f6.1,f8.4,i3,f9.6,f6.3,f9.3,3f9.3,2f12.3)
+ 
+        END DO
+        END DO
+ 
+! #AX IF (                     icount.lt. 3)                     GO TO 1
+!     IF (dustar.gt.0.0001.AND.icount.lt. 6)                     GO TO 1
+ 
+ 
+! Aerodynamic Resistances
+! -----------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ram_sv(ikl,ikv) = 1./(CDm(ikl,ikv)*max(VVaSBL(ikl,ikv),eps6))
+          rah_sv(ikl,ikv) = 1./(CDh(ikl,ikv)*max(VVaSBL(ikl,ikv),eps6))
+        END DO
+        END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate          ( VVaSBL )                                   ! effective SBL wind speed
+      deallocate          ( dTa_Ts )                                   ! effective SBL Temperature diff.
+      deallocate          ( LMOmom )                                   ! Monin-Obukhov Scale Momentum
+      deallocate          ( CDm    )                                   ! Drag Coefficient, Momentum
+      deallocate          ( CDs    )                                   ! Drag Coefficient, Blown **
+      deallocate          (rCDs    )                                   ! Drag Coefficient, Blown **
+      deallocate          ( CDh    )                                   ! Drag Coefficient, Scalar
+      deallocate          ( Richar )                                   ! Richardson Number
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVATeSBL
+ 
+ 
+ 
+      subroutine SISVAT_SBL
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_SBL                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_SBL generates Surface Boundary Layers Properties   |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns                          |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   za__SV   : Surface Boundary Layer (SBL) Height          [m] |
+!     ^^^^^    VV__SV   :(SBL Top)   Wind Velocity                   [m/s] |
+!              TaT_SV   : SBL Top    Temperature                       [K] |
+!              uqs_SV   : Specific   Humidity  Turbulent Flux        [m/s] |
+!              Z0m_SV   : Momentum   Roughness Length                  [m] |
+!              Z0h_SV   : Heat       Roughness Length                  [m] |
+!              Tsrfsv   : Surface    Temperature                       [K] |
+!              sqrCm0   : Contribution of Z0m to Neutral Drag Coefficient  |
+!              sqrCh0   : Contribution of Z0h to Neutral Drag Coefficient  |
+!                                                                          |
+!     INPUT /  LMO_SV   : Monin-Obukhov       Scale                    [m] |
+!     OUTPUT:  us__SV   : Friction  Velocity                         [m/s] |
+!     ^^^^^^   uts_SV   : Temperature         Turbulent Flux       [K.m/s] |
+!                                                                          |
+!     OUTPUT:  Fh__sv   : Stability Function                           [-] |
+!     ^^^^^^   dFh_sv   : Stability Function (Derivative)              [-] |
+!              ram_sv   : Aerodynamic Resistance for Momentum        [s/m] |
+!              rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!                                                                          |
+!     WARNING: SISVAT_SBL blows up for too small z0m values & large z_SBL  |
+!     ^^^^^^^                      (z0m = 1.8e-6 m for z_SBL = 20 m)       |
+!                                                                          |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # stdout               | #sb: OUTPUT/Verification: SISVAT_SBL          |
+!                          |      unit  6, SubRoutine  SISVAT_SBL **ONLY** |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      integer           ::  ikl,ikv    ,ist    ,ist__s ,ist__w
+      real(kind=real8)  ::  CD_m_0 ,CD_h_0 ,ram0   ,rah0  ,rahMIN
+      real(kind=real8)  ::  d_TaTs ,RiB__D ,RiBulk
+      real(kind=real8)  ::  bmstab ,Am1_FU ,Am2_FU ,Fm_Uns
+      real(kind=real8)  ::  bhstab ,Ah1_FU ,Ah2_FU ,Fh_Uns,dFh_Un
+      real(kind=real8)  ::  Aux_FS ,FStabl ,dFSdRi ,Stabil,Fm_loc
+      real(kind=real8)  ::  uustar ,thstar ,qqstar
+      real(kind=real8)  ::  thstarv,thstars,thstara
+      real(kind=real8)  ::  zeta   ,zeta_S ,zeta_A
+ 
+      real(kind=real8)  ::  zetMAX = 4.28 ! Strong Stability Limit
+!                                         !(King et al. 1996, JGR 101(7) p.19121)
+ 
+ 
+! Aerodynamic Resistances
+! =======================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+ 
+! Surface Type
+! ~~~~~~~~~~~~
+        ist    =      isotSV(ikl,ikv)                ! Soil Type
+        ist__s =  min(ist, 1)                        ! 1 => Soil
+        ist__w =  1 - ist__s                         ! 1 => Water Body
+ 
+! Neutral Parameters
+! ~~~~~~~~~~~~~~~~~~
+        CD_m_0 =  0.16/    (sqrCm0(ikl,ikv)*sqrCm0(ikl,ikv)) ! Neutral Drag Coeff.Mom.
+        CD_h_0 =  0.16/    (sqrCm0(ikl,ikv)*sqrCh0(ikl,ikv)) ! Neutral Drag Coeff.Heat
+        ram0   =  1.0 /    (CD_m_0     *VV__SV(ikl,ikv)) ! Neutral Aero Resis.Mom.
+        rah0   =  1.0 /    (CD_h_0     *VV__SV(ikl,ikv)) ! Neutral Aero Resis.Heat
+ 
+! Bulk Richardson Number
+! ~~~~~~~~~~~~~~~~~~~~~~
+        RiB__D =          VV__SV(ikl,ikv) *VV__SV(ikl,ikv)             &
+     &                   *TaT_SV(ikl,ikv)
+        d_TaTs =         (TaT_SV(ikl,ikv)- Tsrfsv(ikl,ikv))
+        RiBulk =  Grav_F *za__SV(ikl,ikv)* d_TaTs                      &
+     &          / RiB__D
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND.&
+! #sb&          ikv        .GE.nwr_SV)                                 &
+! #sb&      write(6,6600) Tsrfsv(ikl,ikv),TaT_SV(ikl,ikv),VV__SV(ikl,ikv)  &
+! #sb&                  , d_TaTs     ,RiBulk
+! #sb 6600  format(/,'Tem(s,a), Wind  , d_TaTs, RiBulk = ',5e15.6)
+ 
+! Unstable Case
+! ~~~~~~~~~~~~~
+        bmstab =  ist__s * (13.7 -0.34 /sqrt(CD_m_0)) &! Momentum
+     &          + ist__w *   4.9                       !
+        bmstab =  10.    *  bmstab   * CD_m_0         &!
+     &              *sqrt(za__SV(ikl,ikv)/ Z0m_SV(ikl,ikv))!
+        Am1_FU =  bmstab *    sqrt(abs(RiBulk))        !
+        Am2_FU =  Am1_FU +1.0 +10.*abs(RiBulk)         !
+        Fm_Uns = (Am1_FU +1.0)/        Am2_FU          !
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND.&
+! #sb&          ikv        .GE.nwr_SV)                                 &
+! #sb&      write(6,6601) CD_m_0     ,Z0m_SV(ikl,ikv),bmstab           &
+! #sb&                  , ist__s     ,ist__w
+! #sb 6601  format(/,'CD_m_0  , Z0m_SV, bmstab, ist/sw = ',3e15.6,2i15)
+ 
+        bhstab =  ist__s * ( 6.3 -0.18 /sqrt(CD_h_0)) &! Heat
+     &          + ist__w *   2.6                       !
+        bhstab =  10.    *  bhstab   * CD_h_0         &!
+     &              *sqrt(za__SV(ikl,ikv)/ Z0h_SV(ikl,ikv))!
+        Ah1_FU =  bhstab *    sqrt(abs(RiBulk))        !
+        Ah2_FU =  Ah1_FU +1.0 +10.*abs(RiBulk)         !
+        Fh_Uns = (Ah1_FU +1.0)/        Ah2_FU          !
+        dFh_Un =((Ah1_FU +2.0)/(Ah2_FU*Ah2_FU)) * 5.   !
+ 
+! Stable   Case
+! ~~~~~~~~~~~~~
+        Aux_FS =          1.0 + 5.*    RiBulk
+        FStabl =                Aux_FS*Aux_FS
+        dFSdRi =                Aux_FS          *10.
+ 
+! Effective Stability Functions and Derivatives
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        Stabil      =          sign(un_1,d_TaTs)
+        Fm_loc      =  FStabl * max(zer0,Stabil)                       &
+     &               - Fm_Uns * min(zer0,Stabil)
+        Fh__sv(ikl,ikv) =  FStabl * max(zer0,Stabil)                   &
+     &               - Fh_Uns * min(zer0,Stabil)
+        dFh_sv(ikl,ikv) =  dFSdRi * max(zer0,Stabil)                   &
+     &               - dFh_Un * min(zer0,Stabil)
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND.&
+! #sb&          ikv        .GE.nwr_SV)                                 &
+! #sb&      write(6,6602) FStabl     ,Stabil                           &
+! #sb&                   ,Fm_Uns     ,Fm_loc
+! #sb 6602  format(/,'FStabl  , Stabil, Fm_Uns, Fm_loc = ',4e15.6)
+ 
+! Aerodynamic Resistances
+! ~~~~~~~~~~~~~~~~~~~~~~~
+        ram_sv(ikl,ikv) =  ram0   *          Fm_loc
+        rah_sv(ikl,ikv) =  rah0   *          Fh__sv(ikl,ikv)
+        rahMIN   = max(rah_sv(ikl,ikv),  abs(d_TaTs)*60./za__SV(ikl,ikv))
+                                               ! 60 for 30dgC within 1/2 hour
+        dFh_sv(ikl,ikv) =  rah0   *          dFh_sv(ikl,ikv)           &
+     &              *  rahMIN /          rah_sv(ikl,ikv)
+        rah_sv(ikl,ikv) =  rahMIN
+ 
+ 
+! Square Root Contributions to the Drag Coefficients
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        rCDmSV(ikl,ikv) =  sqrt(ram_sv(ikl,ikv) *VV__SV(ikl,ikv))
+        rCDmSV(ikl,ikv) =  1.     / max(eps6,rCDmSV(ikl,ikv))
+        rCDhSV(ikl,ikv) =       rah_sv(ikl,ikv) *VV__SV(ikl,ikv)       &
+     &                                  *rCDmSV(ikl,ikv)
+        rCDhSV(ikl,ikv) = (1.     / max(eps6,rCDhSV(ikl,ikv)))
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND.&
+! #sb&          ikv        .GE.nwr_SV)                                 &
+! #sb&      write(6,6603) ram_sv(ikl,ikv),rah_sv(ikl,ikv)              &
+! #sb&                   ,rCDmSV(ikl,ikv),rCDhSV(ikl,ikv)
+! #sb 6603  format(/,'AeR(m,h), rCD(m,h)               = ',4e15.6)
+ 
+ 
+! Turbulent Scales
+! ================
+ 
+! Friction Velocity                   u*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uustar      =      VV__SV(ikl,ikv) / ram_sv(ikl,ikv)
+        us__SV(ikl,ikv) = sqrt(uustar)
+ 
+! Real    Temperature Turbulent Scale theta*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uts_SV(ikl,ikv) =      d_TaTs      / rah_sv(ikl,ikv)
+        thstar      =      uts_SV(ikl,ikv) / us__SV(ikl,ikv)
+ 
+! Specific Humidity   Turbulent Scale qq*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        qqstar      =      uqs_SV(ikl,ikv) / us__SV(ikl,ikv)
+ 
+! Virtual Temperature Turbulent Scale thetav*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        thstarv     = thstar      + TaT_SV(ikl,ikv) *(0.608*qqstar     &
+     &                                             )
+        thstars     =     sign(un_1,thstarv)
+        thstara     =      abs(     thstarv)
+        thstarv     =      max(eps6,thstara)    *thstars
+ 
+! Monin Obukhov Scale Height
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~
+        LMO_SV(ikl,ikv) = TaT_SV(ikl,ikv) * uustar                     &
+     &              /(vonKrm      * Grav_F     * thstarv)
+        zeta        = za__SV(ikl,ikv) / LMO_SV(ikl,ikv)
+        zeta        =           min(zetMAX,zeta)  ! Strong Stability Limit
+!                                                 ! King et al.   1996
+!                                                 ! JGR 101(7) p.19121
+        zeta_S      =          sign(un_1  ,zeta)
+        zeta_A      =           abs(       zeta)
+        zeta        = zeta_S  * max(eps6  ,zeta_A)
+        LMO_SV(ikl,ikv) = za__SV(ikl,ikv) / zeta
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__AP(ikl).EQ.iwr_SV .AND. jj__AP(ikl).EQ.jwr_SV .AND.&
+! #sb&          ikv        .GE.nwr_SV)                                 &
+! #sb&      write(6,6604) us__SV(ikl,ikv),uts_SV(ikl,ikv)              &
+! #sb&                   ,LMO_SV(ikl,ikv),zeta
+! #sb 6604  format(/,'***(m,h), LMO   , zeta           = ',4e15.6)
+ 
+      END DO
+      END DO
+ 
+ 
+      return
+      end subroutine SISVAT_SBL
+ 
+ 
+ 
+      subroutine SISVAT_TVg(                                           &
+! #e1&                     (ETVg_d                                     &
+     &                     )
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_TVg                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_TVg computes the Canopy Energy Balance             |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   ivgtSV   = 0,...,12:   Vegetation Type                      |
+!     ^^^^^               0:          Water, Solid or Liquid               |
+!              isnoSV   = total Nb of Ice/Snow Layers                      |
+!                                                                          |
+!     INPUT:   sol_SV   : Downward Solar Radiation                  [W/m2] |
+!     ^^^^^    IRd_SV   : Surface  Downward Longwave Radiation      [W/m2] |
+!              TaT_SV   : SBL Top  Temperature                         [K] |
+!              rhT_SV   : SBL Top  Air  Density                    [kg/m3] |
+!              QaT_SV   : SBL Top  Specific  Humidity              [kg/kg] |
+!              psivSV   : Leaf     Water     Potential                 [m] |
+!              IRs_SV   : Soil     IR Flux  (previous time step)    [W/m2] |
+!              dt__SV   : Time     Step                                [s] |
+!                                                                          |
+!              SoCasv   : Absorbed Solar Radiation by Canopy (Normaliz)[-] |
+!              tau_sv   : Fraction of Radiation transmitted by Canopy  [-] |
+!              Evg_sv   : Soil+Vegetation Emissivity                   [-] |
+!              Eso_sv   : Soil+Snow       Emissivity                   [-] |
+!              rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!              Sigmsv   : Canopy Ventilation Factor                    [-] |
+!              LAI_sv   : Leaf Area  Index                             [-] |
+!              LAIesv   : Leaf Area  Index (effective / transpiration) [-] |
+!              glf_sv   : Green Leaf Fraction of NOT fallen Leaves     [-] |
+!              rrMxsv   : Canopy Maximum Intercepted Rain          [kg/m2] |
+!                                                                          |
+!     INPUT /  TvegSV   : Canopy   Temperature                         [K] |
+!     OUTPUT:  rrCaSV   : Canopy     Water     Content             [kg/m2] |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     OUTPUT:  IRv_sv   : Vegetation IR Flux                        [W/m2] |
+!     ^^^^^^   HSv_sv   : Sensible Heat Flux                        [W/m2] |
+!              HLv_sv   : Latent   Heat Flux                        [W/m2] |
+!              Evp_sv   : Evaporation                              [kg/m2] |
+!              EvT_sv   : Evapotranspiration                       [kg/m2] |
+!              ETVg_d   : Vegetation  Energy Power Forcing          [W/m2] |
+!                                                                          |
+!     Internal Variables:                                                  |
+!     ^^^^^^^^^^^^^^^^^^                                                   |
+!                                                                          |
+!     METHOD: The Newton-Raphson Scheme is preferable                      |
+!     ^^^^^^  when computing over a long time step the heat content        |
+!             of a medium having a very small or zero heat capacity.       |
+!             This is to handle strong non linearities arising             |
+!             in conjunction with rapid temperature variations.            |
+!                                                                          |
+!     REFERENCE: DR97: Koen de Ridder thesis, UCL, 1997                    |
+!     ^^^^^^^^^                                                            |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #NN: Newton-Raphson Increment not added in last Iteration            |
+!     #nc: OUTPUT Preparation for Stand Alone NetCDF File                  |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_flx
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      use Mod_SISVATLTVg
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+! OUTPUT
+! ------
+ 
+ 
+      integer                                      ::  ikl,ikv         ! Grid Point Index
+      integer                                      ::  nitmax =  5     ! Maximum  Iterations Number
+      integer                                      ::  nit             !          Iterations Counter
+      real(kind=real8)                             ::  d_Tveg          ! Canopy Temperat. Increment
+      real(kind=real8)                             ::  dTvMAX =  5.    ! Canopy Temperat. Increment MAX
+      real(kind=real8)                             ::  dHvdTv          ! Derivativ.of Canopy Energ.Budg.
+      real(kind=real8)                             ::  Hv_Tv0          ! Imbalance of Canopy Energ.Budg.
+      real(kind=real8)                             ::  Hv_MAX          ! MAX Imbal.of Canopy Energ.Budg.
+      real(kind=real8)                             ::  Hv_MIN =  0.1   ! MIN Imbal.of Canopy Energ.Budg.
+      real(kind=real8)                             ::  Hswich          ! Newton-Raphson         Switch
+      real(kind=real8)                             ::  tau_Ca          ! Canopy IR Radiation Absorption
+      real(kind=real8)                             ::  IR_net          ! InfraRed  NET(t)
+      real(kind=real8)                             ::  EvFrac          ! Condensat./Transpirat. Switch
+      real(kind=real8)                             ::  SnoMsk =  0.0   ! Canopy Snow            Switch
+      real(kind=real8)                             ::  den_qs,arg_qs   !
+!     real(kind=real8)                             ::  esat_i          ! Saturation Vapor Pressure       [hPa]
+      real(kind=real8)                             ::  qsatvg          ! Canopy Saturat. Spec. Humidity
+      real(kind=real8)                             ::  dqs_dT          ! d(qsatvg)/dTv
+      real(kind=real8)                             ::  FacEvp,FacEvT   !
+      real(kind=real8)                             ::  Fac_Ev          ! Evapo(transpi)ration Factor
+      real(kind=real8)                             ::  F_Stom          ! Funct.  (Leaf Water Potential)
+      real(kind=real8)                             ::  R0Stom          ! Minimum Stomatal Resistance
+      real(kind=real8)                             ::  R_Stom          !         Stomatal Resistance
+      real(kind=real8)                             ::  LAI_OK          ! 1. ==>  Leaves   exist
+      real(kind=real8)                             ::  rrCaOK,snCaOK   !
+      real(kind=real8)                             ::  dEvpOK          ! Positive Definiteness Correct.
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+! #e1 allocate            ( ETVg_d(kcolp,mwp) )                        ! VegetationPower, Forcing
+      allocate            ( Tveg_0(kcolp,mwp) )                        ! Canopy Temperature, Previous t
+      allocate            ( dIRdTv(kcolp,mwp) )                        ! InfraRed  NET(t), Derivative(t)
+      allocate            ( dHSdTv(kcolp,mwp) )                        ! Sensible Heat FL. Derivative(t)
+      allocate            ( dHLdTv(kcolp,mwp) )                        ! Latent   Heat FL. Derivative(t)
+      allocate            ( dEvpdT(kcolp,mwp) )                        ! Evapo(transpi)ration Derivative
+      allocate            ( dEvTdT(kcolp,mwp) )                        ! Evapo(transpi)ration Derivative
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Newton-Raphson Scheme
+! =====================
+ 
+      nit    = 0
+  101 CONTINUE
+      nit    = nit + 1
+      HV_MAX = 0.
+ 
+ 
+! Temperature of the Previous Time Step
+! -------------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          Tveg_0(ikl,ikv) = TvegSV(ikl,ikv)
+ 
+ 
+! IR    Radiation Absorption
+! --------------------------
+ 
+          tau_Ca = 1.  - tau_sv(ikl,ikv)                    ! Canopy Absorption
+          IRv_sv(ikl,ikv) = -2.0   *Evg_sv(ikl,ikv)  *StefBo   &!
+     &                         *TvegSV(ikl,ikv)  *TvegSV(ikl,ikv)  &! Downward IR (OUT)
+     &                         *TvegSV(ikl,ikv)  *TvegSV(ikl,ikv)   ! + Upward IR (OUT)
+          dIRdTv(ikl,ikv) =                                &!
+     &     -Evg_sv(ikl,ikv)*                               &!
+     &                8.*StefBo*TvegSV(ikl,ikv)  *TvegSV(ikl,ikv)  &! Downward IR (OUT)
+     &                         *TvegSV(ikl,ikv)             ! + Upward IR (OUT)
+          IR_net =       tau_Ca                            &!
+     &    *(Evg_sv(ikl,ikv)* IRd_SV(ikl,ikv)               &! Downward IR (IN)
+     &     -             IRs_SV(ikl,ikv)                   &!   Upward IR (IN)
+     &     +             IRv_sv(ikl,ikv))                   !          IR (OUT)
+ 
+ 
+! Sensible Heat Flux
+! ------------------
+ 
+          dHSdTv(ikl,ikv) = rhT_SV(ikl,ikv)* Sigmsv(ikl,ikv) *CpdAir   &! Derivative, t(n)
+     &                / rah_sv(ikl,ikv)                     !
+          HSv_sv(ikl,ikv) = dHSdTv(ikl,ikv)                &! Value,      t(n)
+     &                *(TaT_SV(ikl,ikv)-TvegSV(ikl,ikv))    !
+ 
+ 
+! Latent   Heat Flux
+! ------------------
+ 
+! Canopy Saturation Specific Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+!       IF      (DeRidder)                                THEN !
+          den_qs      =         TvegSV(ikl,ikv)    - 35.8      !
+          arg_qs      = 17.27 *(TvegSV(ikl,ikv)    -273.16)   &!
+     &                                   / den_qs              !
+          qsatvg      = .0038 *        exp(arg_qs)     *0.875  !  0.875 = Tuning Hapex-Sahel
+          dqs_dT      = qsatvg     * 4099.2   /(den_qs *den_qs)!
+!       ELSE IF (Dudhia_MAR)                              THEN !
+!         esat_i      = 6.107                                 &!
+!    &     *exp(ExpIsv*(un_1/WatIsv -un_1/TvegSV(ikl)    ))    !
+!         qsatvg      = 0.622    *     esat_i                 &!
+!    &      / (10.*pkPaSV(ikl) - 0.378*esat_i)                 !
+!         dqs_dT      = qsatvg                                &!
+!    &     *(1.0+0.6077*qsatvg     )                          &!
+!    &     *    ExpIsv/(TvegSV(ikl)    *TvegSV(ikl)    )       !
+!       END IF
+ 
+! Canopy Stomatal Resistance
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          R0Stom = min(         StodSV(ivgtSV(ikl,ikv))     &!
+     &                /max(eps6,glf_sv(       ikl,ikv)),StxdSV)  ! Min Stomatal R.
+          F_Stom = pscdSV / max(pscdSV-psivSV(ikl,ikv) ,eps6)! F(Leaf Wat.Pot.)
+                                                             ! DR97, eqn. 3.22
+          R_Stom =(R0Stom / max(LAIesv(ikl,ikv), R0Stom/StxdSV))&! Can.Stomatal R.
+     &           * F_Stom                                    ! DR97, eqn. 3.21
+ 
+! Evaporation / Evapotranspiration
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          SnoMsk = max(zer0, sign(un_1,snCaSV(ikl,ikv)-eps_21))  !
+          EvFrac = max(zer0, sign(un_1,QaT_SV(ikl,ikv)-qsatvg))  ! Condensation/
+          EvFrac = EvFrac                                   &! Transpiration
+     &       + (1.-EvFrac)*((1-SnoMsk)*         rrCaSV(ikl,ikv) &!        Switch
+     &                                         /rrMxsv(ikl,ikv) &!
+     &                      +  SnoMsk *min(un_1,snCaSV(ikl,ikv) &!
+     &                                         /rrMxsv(ikl,ikv)))!
+          Fac_Ev = rhT_SV(ikl,ikv) *Sigmsv(ikl,ikv)          ! Idem,  Factor
+          FacEvp = Fac_Ev      *EvFrac     / rah_sv(ikl,ikv) !
+          Evp_sv(ikl,ikv) = FacEvp*(qsatvg     - QaT_SV(ikl,ikv))! Evaporation
+          dEvpdT(ikl,ikv) = FacEvp* dqs_dT                   ! Evp Derivative
+          FacEvt = Fac_Ev * (1.-EvFrac)    /(rah_sv(ikl,ikv)&!
+     &                              +R_Stom *Sigmsv(ikl,ikv))!
+          EvT_sv(ikl,ikv) = FacEvt*(qsatvg     - QaT_SV(ikl,ikv))! EvapoTranspir.
+          dEvTdT(ikl,ikv) = FacEvt* dqs_dT                   ! EvT Derivative
+          HLv_sv(ikl,ikv) =-LhvH2O*(Evp_sv(ikl,ikv)+ EvT_sv(ikl,ikv))   &! Latent   Heat
+     &                 -LhfH2O* Evp_sv(ikl,ikv)* SnoMsk      !(Subli.Contrib.)
+          dHLdTv(ikl,ikv) = LhvH2O*(dEvpdT(ikl,ikv)+ dEvTdT(ikl,ikv))   &!
+     &                 +LhfH2O* dEvpdT(ikl,ikv)* SnoMsk      !
+ 
+ 
+! Imbalance  of the Canopy  Energy Budget
+! ---------------------------------------
+ 
+          LAI_OK = max(zer0,                                &! NO Budget if
+     &                 sign(un_1, LAI_sv(ikl,ikv)-eps_21))   ! no Leaves
+          Hv_Tv0 =    (  SoCasv(ikl,ikv)         *sol_SV(ikl,ikv)   &! Absorbed Solar
+     &                 + IR_net                             &! NET      IR
+     &                 + HSv_sv(ikl,ikv)                    &! Sensible Heat
+     &                 + HLv_sv(ikl,ikv)                    &! Latent   Heat
+     &                ) *LAI_OK                              !
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1     ETVg_d(ikl,ikv) =  Hv_Tv0                          ! Veg.Energ.Bal.
+ 
+          Hswich      =          1.00
+! #NN     Hswich      = max(zer0,                           &! Newton-Raphson
+! #NN&                      sign(un_1,    abs(Hv_Tv0     )  &!         Switch
+! #NN&                                       -Hv_MIN      )) !
+ 
+ 
+! Derivative of the Canopy  Energy Budget
+! ---------------------------------------
+ 
+          dHvdTv    =   dIRdTv(ikl,ikv) * max(eps_21,tau_Ca)           &
+     &                - dHSdTv(ikl,ikv)                                &
+     &                - dHLdTv(ikl,ikv)
+ 
+ 
+! Update Canopy and Surface/Canopy Temperatures
+! ---------------------------------------------
+ 
+          d_Tveg      = Hv_Tv0       / dHvdTv               !
+          d_Tveg      =      sign(un_1,d_Tveg)             &! Increment
+     &                       *min( abs(d_Tveg)     ,dTvMAX) ! Limitor
+          TvegSV(ikl,ikv) = TvegSV(ikl,ikv)  - Hswich      *d_Tveg  ! Newton-Raphson
+          Hv_MAX      = max(Hv_MAX,abs(Hv_Tv0     ))        !
+ 
+ 
+! Update Vegetation Fluxes
+! ------------------------
+ 
+! #NN     IRv_sv(ikl,ikv) = IRv_sv(ikl,ikv)-dIRdTv(ikl,ikv)    *d_Tveg  ! Emitted  IR
+! #NN     HSv_sv(ikl,ikv) = HSv_sv(ikl,ikv)+dHSdTv(ikl,ikv)    *d_Tveg  ! Sensible Heat
+! #NN     Evp_sv(ikl,ikv) = Evp_sv(ikl,ikv)-dEvpdT(ikl,ikv)    *d_Tveg  ! Evapotranspir.
+! #NN     EvT_sv(ikl,ikv) = EvT_sv(ikl,ikv)-dEvTdT(ikl,ikv)    *d_Tveg  ! Evapotranspir.
+! #NN     HLv_sv(ikl,ikv) = HLv_sv(ikl,ikv)+dHLdTv(ikl,ikv)    *d_Tveg  ! Latent   Heat
+ 
+          IRv_sv(ikl,ikv) = IRv_sv(ikl,ikv)                *LAI_OK
+          HSv_sv(ikl,ikv) = HSv_sv(ikl,ikv)                *LAI_OK
+          Evp_sv(ikl,ikv) = Evp_sv(ikl,ikv)                *LAI_OK
+          EvT_sv(ikl,ikv) = EvT_sv(ikl,ikv)                *LAI_OK
+          HLv_sv(ikl,ikv) = HLv_sv(ikl,ikv)                *LAI_OK
+        END DO
+        END DO
+ 
+! #AX IF (                     nit.lt.nitmax)    GO TO 101
+      IF (Hv_MAX.gt.Hv_MIN.and.nit.lt.nitmax)    GO TO 101
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          IRv_sv(ikl,ikv) = IRv_sv(ikl,ikv)                &! Emitted  IR
+     &   +dIRdTv(ikl,ikv) *(TvegSV(ikl,ikv)-Tveg_0(ikl,ikv))!
+          HSv_sv(ikl,ikv) = HSv_sv(ikl,ikv)                &! Sensible Heat
+     &   -dHSdTv(ikl,ikv) *(TvegSV(ikl,ikv)-Tveg_0(ikl,ikv))!
+          Evp_sv(ikl,ikv) = Evp_sv(ikl,ikv)                &! Evaporation
+     &   +dEvpdT(ikl,ikv) *(TvegSV(ikl,ikv)-Tveg_0(ikl,ikv))!
+          EvT_sv(ikl,ikv) = EvT_sv(ikl,ikv)                &! Transpiration
+     &   +dEvTdT(ikl,ikv) *(TvegSV(ikl,ikv)-Tveg_0(ikl,ikv))!
+          HLv_sv(ikl,ikv) = HLv_sv(ikl,ikv)                &! Latent   Heat
+     &   -dHLdTv(ikl,ikv) *(TvegSV(ikl,ikv)-Tveg_0(ikl,ikv))!
+ 
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          HLv_KL(ikl,ikv) = HLv_sv(ikl,ikv)
+ 
+ 
+! Update Canopy Water Content
+! ---------------------------
+ 
+          rrCaSV(ikl,ikv) = rrCaSV(ikl,ikv)-(1.-SnoMsk)*Evp_sv(ikl,ikv)*dt__SV
+          snCaSV(ikl,ikv) = snCaSV(ikl,ikv)-    SnoMsk *Evp_sv(ikl,ikv)*dt__SV
+ 
+! Correction for Positive Definiteness (see WKarea/EvpVeg/EvpVeg.f)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          rrCaOK =  max(rrCaSV(ikl,ikv), 0.)
+          snCaOK =  max(snCaSV(ikl,ikv), 0.)
+          dEvpOK =     (rrCaOK-rrCaSV(ikl,ikv)                         &
+     &                 +snCaOK-snCaSV(ikl,ikv))/dt__SV
+ 
+          Evp_sv(ikl,ikv) = Evp_sv(ikl,ikv)       - dEvpOK  ! Evaporation
+          HLv_sv(ikl,ikv) = HLv_sv(ikl,ikv)                &! Latent   Heat
+     &    +(1.-SnoMsk)* LhvH2O            * dEvpOK         &!
+     &    +    SnoMsk *(LhvH2O+LhfH2O)    * dEvpOK          !
+ 
+          rrCaSV(ikl,ikv) = rrCaOK
+          snCaSV(ikl,ikv) = snCaOK
+ 
+        END DO
+        END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+! #e1 deallocate          ( ETVg_d )                                   ! VegetationPower, Forcing
+      deallocate          ( Tveg_0 )                                   ! Canopy Temperature, Previous t
+      deallocate          ( dIRdTv )                                   ! InfraRed  NET(t), Derivative(t)
+      deallocate          ( dHSdTv )                                   ! Sensible Heat FL. Derivative(t)
+      deallocate          ( dHLdTv )                                   ! Latent   Heat FL. Derivative(t)
+      deallocate          ( dEvpdT )                                   ! Evapo(transpi)ration Derivative
+      deallocate          ( dEvTdT )                                   ! Evapo(transpi)ration Derivative
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_TVg
+ 
+ 
+ 
+      subroutine SISVAT_TSo(                                           &
+! #e1&                     ,ETSo_0,ETSo_1,ETSo_d,kcolw                 &
+     &                     )
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_TSo                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_TSo computes the Soil/Snow Energy Balance          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   isotSV   = 0,...,11:   Soil       Type                      |
+!     ^^^^^               0:          Water, Solid or Liquid               |
+!              isnoSV   = total Nb of Ice/Snow Layers                      |
+!              dQa_SV   = Limitation of  Water Vapor  Turbulent Flux       |
+!                                                                          |
+!     INPUT:   sol_SV   : Downward Solar Radiation                  [W/m2] |
+!     ^^^^^    IRd_SV   : Surface Downward  Longwave   Radiation    [W/m2] |
+!              za__SV   : SBL Top    Height                            [m] |
+!              VV__SV   : SBL Top    Wind Speed                      [m/s] |
+!              TaT_SV   : SBL Top    Temperature                       [K] |
+!              ExnrSV   : Exner      Potential                         [-] |
+!              rhT_SV   : SBL Top    Air  Density                  [kg/m3] |
+!              QaT_SV   : SBL Top    Specific  Humidity            [kg/kg] |
+!              LSdzsv   : Vertical   Discretization Factor             [-] |
+!                       =    1. Soil                                       |
+!                       = 1000. Ocean                                      |
+!              dzsnSV   : Snow Layer Thickness                         [m] |
+!              ro__SV   : Snow/Soil  Volumic Mass                  [kg/m3] |
+!              eta_SV   : Soil Water Content                       [m3/m3] |
+!              dt__SV   : Time Step                                    [s] |
+!                                                                          |
+!              SoSosv   : Absorbed Solar Radiation by Surfac.(Normaliz)[-] |
+!              IRv_sv   : Vegetation  IR Radiation                  [W/m2] |
+!              tau_sv   : Fraction of Radiation transmitted by Canopy  [-] |
+!              Evg_sv   : Soil+Vegetation Emissivity                   [-] |
+!              Eso_sv   : Soil+Snow       Emissivity                   [-] |
+!              rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!              Lx_H2O   : Latent Heat of Vaporization/Sublimation   [J/kg] |
+!              Sigmsv   : Canopy Ventilation Factor                    [-] |
+!              sEX_sv   : Verticaly Integrated Extinction Coefficient  [-] |
+!                                                                          |
+!     INPUT /  TsisSV   : Soil/Ice Temperatures (layers -nsoil,-nsoil+1 ,0)|
+!     OUTPUT:           & Snow     Temperatures (layers  1,2,...,nsno) [K] |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     OUTPUT:  IRs_SV   : Soil      IR Radiation                    [W/m2] |
+!     ^^^^^^   HSs_sv   : Sensible  Heat Flux                       [W/m2] |
+!              HLs_sv   : Latent    Heat Flux                       [W/m2] |
+!              ETSo_0   : Snow/Soil Energy Power, before Forcing    [W/m2] |
+!              ETSo_1   : Snow/Soil Energy Power, after  Forcing    [W/m2] |
+!              ETSo_d   : Snow/Soil Energy Power         Forcing    [W/m2] |
+!                                                                          |
+!     METHOD: NO   Skin Surface Temperature                                |
+!     ^^^^^^  Semi-Implicit Crank Nicholson Scheme                         |
+!                                                                          |
+!     REFERENCE: DR97: Koen de Ridder thesis, UCL, 1997                    |
+!     ^^^^^^^^^                                                            |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #WL: TURBULENCE: u*q* limited to SBL Saturat.Specif.Humid.           |
+!     #TR: TURBULENCE: Richardson Number:    T Derivative is used          |
+!     #TL: TURBULENCE: Latent     Heat Flux: T Derivative is used          |
+!     #nc: OUTPUT Preparation for Stand Alone NetCDF File                  |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_iii_jjj_n     | #e1: OUTPUT/Verification: Energy Conservation |
+!                          |                                               |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_flx
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      use Mod_SISVATLTSo
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+      real(kind=real8)                               ::  deltak
+      real(kind=real8)                               ::  Exp_SA, Imp_SA
+      real(kind=real8)                               ::  ExpTOP, ImpTOP
+      real(kind=real8)                               ::  ExpHSL, ImpHSL
+      real(kind=real8)                               ::  epsi15= 1.0e-15
+      integer                                        ::  is1   , is2
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real(kind=real8),              dimension(kcolw)::  ETSo_0        ! Soil/Snow Power, before Forcing
+! #e1 real(kind=real8),              dimension(kcolw)::  ETSo_1        ! Soil/Snow Power, after  Forcing
+! #e1 real(kind=real8),              dimension(kcolw)::  ETSo_d        ! Soil/Snow Power, Forcing
+ 
+      integer                                        ::  ikl,ikv   ,isl!
+      integer                                        ::  jsl   ,isn    !
+      integer                                        ::  isHigh        ! Order of the tridiagonal Matrix
+      integer                                        ::  ist__s,ist__w,ist             ! Soil/Water  Body Identifier
+      integer                                        ::  islsgn        ! Soil/Snow Surfac.Identifier
+ 
+      real(kind=real8)                               ::  eps__3= 1.e-3 ! Arbitrary    Low Number
+      real(kind=real8)                               ::  etaMid,psiMid ! Layer Interface's Humidity
+      real(kind=real8)                               ::  mu_eta        !     Soil thermal Conductivity
+      real(kind=real8)                               ::  mu_exp=-0.4343! arg Soil thermal Conductivity
+      real(kind=real8)                               ::  mu_min= 0.172 ! Min Soil thermal Conductivity
+      real(kind=real8)                               ::  mu_max= 2.000 ! Max Soil thermal Conductivity
+      real(kind=real8)                               ::  mu_aux        !     Snow thermal Conductivity
+      real(kind=real8)                               ::  dTSurf        ! Previous Surface Temperature
+      real(kind=real8)                               ::  den_qs,arg_qs ! Soil   Saturat. Spec. Humidity
+      real(kind=real8)                               ::  esat_i        ! Saturation Vapor Pressure       [hPa]
+      real(kind=real8)                               ::  etaSol        ! Soil Surface          Humidity
+      real(kind=real8)                               ::  d__eta        ! Soil Surface Humidity Increm.
+      real(kind=real8)                               ::  Elem_A        !
+      real(kind=real8)                               ::  ElemaA,ElemsA !   Diagonal Coefficients
+      real(kind=real8)                               ::  Elem_C        !
+      real(kind=real8)                               ::  ElemaC,ElemsC !   Diagonal Coefficients
+      real(kind=real8)                               ::  Ts_Min = 175. ! Snow MIN Temperature
+      real(kind=real8)                               ::  Ts_Max = 300. ! Snow MIN Temperature Acceptable
+                                                                       ! both including Snow Melt Energy
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real(kind=real8)                               ::  Exist0        ! Existing Layer Switch
+ 
+      integer,parameter                              ::  nt_srf=10     !
+      integer                                        ::  it_srf,itEuBk ! HL: Surface Scheme
+      real(kind=real8)                               ::  agpsrf,xgpsrf !
+      real(kind=real8)                               ::  dt_srf,dt_ver !
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate            ( Tsisva(kcolp,mwp,-nsoil:nsnow+mzp) )       !
+      allocate            ( Fsisva(kcolp,mwp) )                        !
+      allocate            ( dza__1(kcolp,mwp) )                        !
+      allocate            ( mu_sno(kcolp,mwp) )                        !     Snow thermal Conductivity
+      allocate            ( mu__dz(kcolp,mwp,-nsoil:nsnow+1)   )       ! mu_(eta,sno)   / dz
+      allocate            ( dtC_sv(kcolp,mwp,-nsoil:nsnow)     )       ! dt      / C
+      allocate            ( IRs__D(kcolp,mwp) )                        ! UpwardIR Previous Iter.Contr.
+      allocate            ( dIRsdT(kcolp,mwp) )                        ! UpwardIR           T Derivat.
+      allocate            ( f_HSHL(kcolp,mwp) )                        ! Factor common to HS and HL
+      allocate            ( dRidTs(kcolp,mwp) )                        ! d(Rib)/d(Ts)
+      allocate            ( HS___D(kcolp,mwp) )                        ! Sensible Heat Flux Atm.Contr.
+      allocate            ( f___HL(kcolp,mwp) )                        !
+      allocate            ( HL___D(kcolp,mwp) )                        ! Latent   Heat Flux Atm.Contr.
+      allocate            ( TSurf0(kcolp,mwp) )                        ! Previous Surface Temperature
+      allocate            ( qsatsg(kcolp,mwp) )                        ! Soil   Saturat. Spec. Humidity
+      allocate            ( dqs_dT(kcolp,mwp) )                        ! d(qsatsg)/dTv
+      allocate            ( Psi(   kcolp,mwp) )                        ! 1st Soil Layer Water Potential
+      allocate            ( RHuSol(kcolp,mwp) )                        ! Soil Surface Relative Humidity
+      allocate            ( RHu_av(kcolp,mwp) )                        ! Soil Surface Relative Humidity
+      allocate            ( Diag_A(kcolp,mwp,-nsoil:nsnow+mzp) )       ! A Diagonal
+      allocate            ( Diag_B(kcolp,mwp,-nsoil:nsnow+mzp) )       ! B Diagonal
+      allocate            ( Diag_C(kcolp,mwp,-nsoil:nsnow+mzp) )       ! C Diagonal
+      allocate            ( Term_D(kcolp,mwp,-nsoil:nsnow+mzp) )       !   Independant Term
+      allocate            ( Aux__P(kcolp,mwp,-nsoil:nsnow+mzp) )       ! P Auxiliary Variable
+      allocate            ( Aux__Q(kcolp,mwp,-nsoil:nsnow+mzp) )       ! Q Auxiliary Variable
+      allocate            ( etaBAK(kcolp,mwp) )                        !
+      allocate            ( etaNEW(kcolp,mwp) )                        !
+      allocate            ( etEuBk(kcolp,mwp) )                        !
+      allocate            ( fac_dt(kcolp,mwp) )                        !
+      allocate            ( faceta(kcolp,mwp) )                        !
+      allocate            ( PsiArg(kcolp,mwp) )                        !
+      allocate            ( SHuSol(kcolp,mwp) )                        !
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Implicitness of the numerical Scheme at Surface - Atmosphere Interface
+! ======================================================================
+ 
+!        vvvvvvvv
+      IF (SVaKzT)                                                  THEN
+       IF(mzp.LT.2) SVaUBC = .TRUE.
+          Exp_SA =  Explic
+          Imp_SA =  Implic
+      ELSE
+          Exp_SA =  1.00
+          Imp_SA =  0.00
+      END IF
+          ExpHSL =  0.00
+          ImpHSL =  1.00
+ 
+ 
+ 
+ 
+! Heat Conduction Coefficient (zero in the Layers over the highest one)
+! ===========================
+!                               ---------------- isl    eta_SV, rho C (isl)
+!
+! Soil                          ++++++++++++++++        etaMid,    mu (isl)
+! ----
+!                               ---------------- isl-1  eta_SV, rho C (isl-1)
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+!         __________
+          isl=-nsoil
+ 
+          mu__dz(ikl,ikv,isl) = 0.
+ 
+          dtC_sv(ikl,ikv,isl) = dtz_SV(isl)              &! dt / (dz X rho C)
+     &                   /((rocsSV(isotSV(ikl,ikv))      &! [s / (m.J/m3/K)]
+     &                     +rcwdSV*eta_SV(ikl,ikv,isl))  &!
+     &                     *LSdzsv(ikl,ikv)            )  !
+! #kv   END DO
+! #kv   END DO
+!         ______________
+       DO isl=-nsoil+1,0
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+          ist    =      isotSV(ikl,ikv)                   ! Soil Type
+          ist__s =  min(ist, 1)                           ! 1 => Soil
+          ist__w =  1 - ist__s                            ! 1 => Water Body
+ 
+          etaMid = 0.5*(dz_dSV(isl-1)*eta_SV(ikl,ikv,isl-1)  &! eta at layers
+     &                 +dz_dSV(isl)  *eta_SV(ikl,ikv,isl)  ) &!     interface
+     &                 /dzmiSV(isl)                       ! LSdzsv implicit !
+          etaMid =  max(etaMid,eps6)
+          psiMid =      psidSV(ist)                      &!
+     &                *(etadSV(ist)/etaMid)**bCHdSV(ist)  !
+          mu_eta =      3.82      *(psiMid)**mu_exp       ! Soil Thermal
+          mu_eta =  min(max(mu_eta, mu_min), mu_max)      ! Conductivity
+                                                          ! DR97 eq.3.31
+          mu_eta =  ist__s *mu_eta +ist__w * vK_dSV       ! Water Bodies
+                                                          ! Correction
+          mu__dz(ikl,ikv,isl) = mu_eta/(dzmiSV(isl)      &!
+     &                             *LSdzsv(ikl,ikv))      !
+ 
+          dtC_sv(ikl,ikv,isl) = dtz_SV(isl)              &! dt / (dz X rho C)
+     &                   /((rocsSV(isotSV(ikl,ikv))      &!
+     &                     +rcwdSV*eta_SV(ikl,ikv,isl))  &!
+     &                     *LSdzsv(ikl,ikv)            )  !
+! #kv   END DO
+! #kv   END DO
+       END DO
+ 
+ 
+! Soil/Snow Interface
+! -------------------
+ 
+! Soil Contribution
+! ^^^^^^^^^^^^^^^^^
+!         _____
+          isl=1
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+          ist    =      isotSV(ikl,ikv)                   ! Soil Type
+          ist__s =  min(ist, 1)                           ! 1 => Soil
+          ist__w =  1 - ist__s                            ! 1 => Water Body
+          psiMid =      psidSV(ist)                       ! Snow => Saturation
+          mu_eta =      3.82      *(psiMid)**mu_exp       ! Soil Thermal
+          mu_eta =  min(max(mu_eta, mu_min), mu_max)      ! Conductivity
+                                                          ! DR97 eq.3.31
+          mu_eta =  ist__s *mu_eta +ist__w * vK_dSV       ! Water Bodies
+ 
+! Snow Contribution
+! ^^^^^^^^^^^^^^^^^
+          mu_sno(ikl,ikv) =  CdidSV                      &!
+     &                 *(ro__SV(ikl,ikv,isl) /rhoWat) ** 1.88 !
+          mu_sno(ikl,ikv) =          max(eps6,mu_sno(ikl,ikv))!
+!         mu_sno :  Snow Heat Conductivity Coefficient [Wm/K]
+!                   (Yen 1981, CRREL Rep., 81-10)
+ 
+! Combined Heat Conductivity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          mu__dz(ikl,ikv,isl) = 2./(dzsnSV(ikl,ikv,isl  )&! Combined Heat
+     &                         /mu_sno(ikl,ikv)          &! Conductivity
+     &                         +LSdzsv(ikl,ikv)          &!
+     &                         *dz_dSV(    isl-1)/mu_eta) ! Coefficient
+ 
+! Inverted Heat Capacity
+! ^^^^^^^^^^^^^^^^^^^^^^
+          dtC_sv(ikl,ikv,isl) = dt__SV/max(eps6,         &! dt / (dz X rho C)
+     &    dzsnSV(ikl,ikv,isl) * ro__SV(ikl,ikv,isl) *Cn_dSV)  !
+ 
+ 
+! Snow
+! ----
+ 
+!           _____________________
+         DO isl=1,isnoSV(ikl,ikv)
+          ro__SV(ikl,ikv,isl) =                          &!
+     &                   ro__SV(ikl,ikv ,isl)            &!
+     &       * max(0,min(isnoSV(ikl,ikv)-isl+1,1))        !
+         END DO
+ 
+!           _____________________
+         DO isl=1,isnoSV(ikl,ikv)
+ 
+! Combined Heat Conductivity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          mu_aux      =  CdidSV                          &!
+     &                 *(ro__SV(ikl,ikv,isl) /rhoWat) ** 1.88 !
+          mu__dz(ikl,ikv,isl) =                          &!
+     &      2.                        *mu_aux*mu_sno(ikl,ikv)&! Combined Heat
+     &     /max(eps6,dzsnSV(ikl,ikv,isl  )*mu_sno(ikl,ikv)   &! Conductivity
+     &              +dzsnSV(ikl,ikv,isl-1)*mu_aux     )   ! For upper Layer
+          mu_sno(ikl,ikv)     =            mu_aux         !
+ 
+! Inverted Heat Capacity
+! ^^^^^^^^^^^^^^^^^^^^^^
+          dtC_sv(ikl,ikv,isl) = dt__SV/max(eps__3,       &! dt / (dz X rho C)
+     &    dzsnSV(ikl,ikv,isl) * ro__SV(ikl,ikv,isl) *Cn_dSV)  !
+         END DO
+! #kv   END DO
+! #kv   END DO
+ 
+ 
+! Uppermost Effective Layer: NO conduction
+! ----------------------------------------
+ 
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+          mu__dz(ikl,ikv,isnoSV(ikl,ikv)+1) = 0.0
+ 
+ 
+ 
+! Soil - Ice - Snow - Vegetation - Atmosphere Variable
+! ====================================================
+ 
+          dza__1(ikl,ikv) =(zza_SV(ikl,ikv,min(mzp,2))   + zza_SV(ikl,ikv,1)) * 0.5
+ 
+!              vvvvvvvv
+!           IF (SVaKzT)                                             THEN
+                Fsisva(ikl,ikv) = p0_kap *   roa_SV(ikl,ikv,1) * dza__1(ikl,ikv)   &
+     &                     *  dtC_sv(ikl,ikv,isnoSV(  ikl,ikv))* CpdAir /  dt__SV
+!           END IF
+ 
+! Soil/Snow Interior
+! ^^^^^^^^^^^^^^^^^^
+!           __________
+         DO isl=-nsoil        ,isnoSV(ikl,ikv)
+          Tsisva(ikl,ikv,isl) =        TsisSV(ikl,ikv,isl)              &
+     &                * p0_kap /   ExnrSV(ikl,ikv)
+         END DO
+! #kv   END DO
+! #kv   END DO
+ 
+! Atmosphere
+! ^^^^^^^^^^
+!         vvvvvvvv
+!      IF (SVaKzT)                                                  THEN
+!         _________
+       DO isl=1,mzp
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+          isn=isnoSV(ikl,ikv)+isl
+          Tsisva(ikl,ikv,isn) =   pktaSV(ikl,ikv,isl) * Fsisva(ikl,ikv)
+! #kv   END DO
+! #kv   END DO
+       END DO
+ 
+!      END IF
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (IN)
+! #e1  DO ikl=1,kcolp
+! #e1  DO ikv=1,mwp
+! #e1     ETSo_0(ikl,ikv) = 0.
+! #e1  END DO
+! #e1  END DO
+! #e1  DO ikl=1,kcolp
+! #e1  DO ikv=1,mwp
+! #e1   DO isl= -nsoil,isnoSV(ikl,ikv)
+! #e1     Exist0      = isl -           isnoSV(ikl,ikv)
+! #e1     Exist0      = 1.  - max(zer0,min(un_1,Exist0))
+! #e1     ETSo_0(ikl,ikv) = ETSo_0(ikl,ikv)                             &
+! #e1&                +(TsisSV(ikl,ikv,isl)-Tf_Sno)*Exist0              &
+! #e1&                                 /dtC_sv(ikl,ikv,isl)
+! #e1   END DO
+! #e1  END DO
+! #e1  END DO
+ 
+ 
+! Tridiagonal Elimination: Set Up
+! ===============================
+ 
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+!           _______________________________
+         DO isl= -nsoil+1,isnoSV(ikl,ikv)-1
+          Elem_A          =  dtC_sv(ikl,ikv,isl)         *mu__dz(ikl,ikv,isl)
+          Elem_C          =  dtC_sv(ikl,ikv,isl)         *mu__dz(ikl,ikv,isl+1)
+          Diag_A(ikl,ikv,isl) = -Elem_A  *Implic
+          Diag_C(ikl,ikv,isl) = -Elem_C  *Implic
+          Diag_B(ikl,ikv,isl) =  1.0d+0  -Diag_A(ikl,ikv,isl)-Diag_C(ikl,ikv,isl)
+          Term_D(ikl,ikv,isl) =  Explic *(Elem_A         *Tsisva(ikl,ikv,isl-1)  &
+     &                               +Elem_C         *Tsisva(ikl,ikv,isl+1)) &
+     &             +(1.0d+0 -Explic *(Elem_A+Elem_C))*Tsisva(ikl,ikv,isl)&
+     &  + dtC_sv(ikl,ikv,isl)           * sol_SV(ikl,ikv)    *SoSosv(ikl,ikv)&
+     &                                              *(sEX_sv(ikl,ikv,isl+1)  &
+     &                                               -sEX_sv(ikl,ikv,isl  )) &
+     &   *p0_kap          /  ExnrSV(ikl,ikv)
+         END DO
+ 
+! #kv   END DO
+! #kv   END DO
+ 
+! Soil  lowest Layer
+! ^^^^^^^^^^^^^^^^^^
+!          ___________
+           isl= -nsoil
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+          Elem_A          =  0.
+          Elem_C          =  dtC_sv(ikl,ikv,isl)         *mu__dz(ikl,ikv,isl+1)
+          Diag_A(ikl,ikv,isl) =  0.
+          Diag_C(ikl,ikv,isl) = -Elem_C  *Implic
+          Diag_B(ikl,ikv,isl) =  1.0d+0  -Diag_A(ikl,ikv,isl)-Diag_C(ikl,ikv,isl)
+          Term_D(ikl,ikv,isl) =  Explic * Elem_C         *Tsisva(ikl,ikv,isl+1)  &
+     &             +(1.0d+0 -Explic * Elem_C)        *Tsisva(ikl,ikv,isl)  ! & !
+!    &  + dtC_sv(ikl,isl)           * sol_SV(ikl)    *SoSosv(ikl)        & ! .NOT. needed
+!    &                                              *(sEX_sv(ikl,isl+1)  & ! since sEX_sv = 0.
+!    &                                               -sEX_sv(ikl,isl  )) & !
+!    &   *p0_kap          /  ExnrSV(ikl)
+! #kv   END DO
+! #kv   END DO
+ 
+! Surface: UPwardIR Heat Flux
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+!         _________________________
+          isl         = isnoSV(ikl,ikv)
+          dIRsdT(ikl,ikv) = Eso_sv(ikl,ikv)* StefBo          * 4. &! - d(IR)/d(T)
+     &                             * TsisSV(ikl,ikv,isl)      &!
+     &                             * TsisSV(ikl,ikv,isl)      &!
+     &                             * TsisSV(ikl,ikv,isl)       !
+          IRs__D(ikl,ikv) = dIRsdT(ikl,ikv)* TsisSV(ikl,ikv,isl) * 0.75!
+ 
+! Surface: Richardson Number:   T Derivative
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #TR     dRidTs(ikl,ikv) =-Grav_F      *    za__SV(ikl,ikv)  &!
+! #TR&                              *(1.-Sigmsv(ikl,ikv))     &!
+! #TR&                /(TaT_SV(ikl,ikv) *    VV__SV(ikl,ikv)  &!
+! #TR&                              *    VV__SV(ikl,ikv))      !
+ 
+! Surface: Turbulent Heat Flux: Factors
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          f_HSHL(ikl,ikv) = rhT_SV(ikl,ikv) *(1.-Sigmsv(ikl,ikv)) &!#common factor
+     &                              /    rah_sv(ikl,ikv)       ! to  HS, HL
+          f___HL(ikl,ikv) = f_HSHL(ikl,ikv) *    Lx_H2O(ikl,ikv)
+ 
+! Surface: Sensible  Heat Flux: T Derivative
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          dSdTSV(ikl,ikv) = f_HSHL(ikl,ikv) *    CpdAir       &!#- d(HS)/d(T)
+! #TR&         *(1.0  -(TsisSV(ikl,ikv,isl) -TaT_SV(ikl,ikv)) &!#Richardson
+! #TR&         * dRidTs(ikl,ikv)*dFh_sv(ikl,ikv)/rah_sv(ikl,ikv)) &! Nb. Correct.
+     &         + 0.
+          HS___D(ikl,ikv) = dSdTSV(ikl,ikv) *    TaT_SV(ikl,ikv)   !
+ 
+! Surface: Latent    Heat Flux: Saturation Specific Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+!        IF      (DeRidder)                               THEN !
+          den_qs      =         TsisSV(ikl,ikv,isl)- 35.8      !
+          arg_qs      = 17.27 *(TsisSV(ikl,ikv,isl)-273.16)   &!
+     &                                   / den_qs              !
+          qsatsg(ikl,ikv) = .0038 *        exp(arg_qs)     *0.875  !  0.875 = Tuning Hapex-Sahel
+          dqs_dT(ikl,ikv) = qsatsg(ikl,ikv)* 4099.2   /(den_qs *den_qs)!
+!        ELSE IF (Dudhia_MAR)                             THEN !
+!         esat_i      = 6.107                                 &!
+!    &     *exp(ExpIsv*(un_1/WatIsv -un_1/TsisSV(ikl,isl)))    !
+!         qsatsg(ikl) = 0.622    *     esat_i                 &!
+!    &      / (10.*pkPaSV(ikl) - 0.378*esat_i)                 !
+!         dqs_dT(ikl) = qsatsg(ikl)                           &!
+!    &     *(1.0+0.6077*qsatsg(ikl))                          &!
+!    &     *    ExpIsv/(TsisSV(ikl,isl)*TsisSV(ikl,isl))       !
+!        END IF
+ 
+          fac_dt(ikl,ikv) = f_HSHL(ikl,ikv)/(rhoWat   * dz_dSV(0)) !
+! #kv   END DO
+! #kv   END DO
+ 
+! Surface: Latent    Heat Flux: Surface    Relative Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+              xgpsrf       =   1.05                            !
+              agpsrf       = dt__SV*(   1.0-xgpsrf        )   &!
+     &                             /(   1.0-xgpsrf**nt_srf)    !
+              dt_srf       = agpsrf                            !
+              dt_ver       = 0.                                !
+! #kv       DO ikl=1,kcolp
+! #kv       DO ikv=1,mwp
+              isl          =          isnoSV(ikl,ikv)          !
+              etaBAK(ikl,ikv)  = max(eps6,eta_SV(ikl,ikv ,isl))!
+              etaNEW(ikl,ikv)  =          etaBAK(ikl,ikv)      !
+              etEuBk(ikl,ikv)  =          etaNEW(ikl,ikv)      !
+              RHu_av(ikl,ikv)  =     0.00                      !
+              SHumSV(ikl,ikv)  =     0.00                      !
+! #kv       END DO
+! #kv       END DO
+!         _______________
+       DO it_srf=1,nt_srf                                      !
+              dt_ver       = dt_ver     +dt_srf                !
+! #kv       DO ikl=1,kcolp
+! #kv       DO ikv=1,mwp
+              faceta(ikl,ikv)  = fac_dt(ikl,ikv)*dt_srf        !
+! #WL         faceta(ikl,ikv)  = faceta(ikl,ikv)              &!
+! #WL&                  /(1.+faceta(ikl,ikv)*dQa_SV(ikl,ikv))  !    Limitation
+!             CAUTION:     Please VERIFY dQa_SV Set-Up         ! by Atm.Conten
+!    &        *max(0,sign(1.,qsatsg(ikl)-QaT_SV(ikl))))        ! NO Limitation
+! #kv       END DO
+! #kv       END DO                                             ! of Downw.Flux
+          DO itEuBk=1,2                                        !
+! #kv       DO ikl=1,kcolp
+! #kv       DO ikv=1,mwp
+              ist    = max(0,isotSV(ikl,ikv)-100*isnoSV(ikl,ikv))  ! 0 if    H2O
+                                                               !
+              Psi(ikl,ikv) =                                  &!
+     &                psidSV(ist)                             &! DR97, Eqn 3.34
+     &              *(etadSV(ist)                             &!
+     &           /max(etEuBk(ikl,ikv),eps6))                  &!
+     &              **bCHdSV(ist)                              !
+              PsiArg(ikl,ikv) = 7.2E-5*Psi(ikl,ikv)            !
+              RHuSol(ikl,ikv) =   exp(-min(ea_Max,PsiArg(ikl,ikv)))!
+              SHuSol(ikl,ikv) =     qsatsg(ikl,ikv)  *RHuSol(ikl,ikv)  ! DR97, Eqn 3.15
+              etEuBk(ikl,ikv) =                               &!
+     &       (etaNEW(ikl,ikv) + faceta(ikl,ikv)*(QaT_SV(ikl,ikv)  &!
+     &                                  -SHuSol(ikl,ikv)      &!
+     &                    *(1.          -bCHdSV(ist)          &!
+     &                                  *PsiArg(ikl,ikv))       ))&!
+     &      /(1.          + faceta(ikl,ikv)* SHuSol(ikl,ikv)  &!
+     &                                  *bCHdSV(ist)          &!
+     &                                  *PsiArg(ikl,ikv)      &!
+     &                                  /etaNEW(ikl,ikv))      !
+              etEuBk(ikl,ikv) = etEuBk(ikl,ikv) -Rootsv(ikl,ikv,0)&!
+     &                    * dt_srf     /(rhoWat*dz_dSV(0))     !
+! #kv       END DO
+! #kv       END DO
+          END DO                                               !
+! #kv       DO ikl=1,kcolp
+! #kv       DO ikv=1,mwp
+              RHu_av(ikl,ikv) =      RHu_av(ikl,ikv)+RHuSol(ikl,ikv)*dt_srf!
+              SHumSV(ikl,ikv) =      SHumSV(ikl,ikv)+SHuSol(ikl,ikv)*dt_srf!
+              etaNEW(ikl,ikv) =  max(etEuBk(ikl,ikv),eps6)     !
+! #kv       END DO
+! #kv       END DO
+              dt_srf      =      xgpsrf                 *dt_srf!
+       END DO                                                  !
+ 
+ 
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+              RHu_av(ikl,ikv) =      RHu_av(ikl,ikv)            /dt_ver!
+! tune        RHu_av(ikl) = 0.80*RHu_av(ikl)            /dt_ver!
+ 
+! Surface  Type :  liquid or solid Water (i.e., H2O)  .OR.  SOIL
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          isl        =  isnoSV(ikl,ikv)                        !
+          ist   = max(0,isotSV(ikl,ikv)-100*isnoSV(ikl,ikv))   ! 0 if    H2O
+          ist__s= min(1,ist)                                   ! 1 if no H2O
+          ist__w=     1-ist__s                                 ! 1 if    H2O
+ 
+! Surface  Specific  Humidity :
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          SHumSV(ikl,ikv)=  ist__s         *SHumSV(ikl,ikv)  /dt_ver  &!      no H2O
+     &                 +ist__w         *qsatsg(ikl,ikv)        !         H2O
+ 
+! Surface: Latent    Heat Flux: Soil/Water Surface Contributions
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          d__eta     =  eta_SV(ikl,ikv,isl)-etaNEW(ikl,ikv)    !
+          HL___D(ikl,ikv)=( ist__s *rhoWat *dz_dSV(0)         &! Soil Contrib.
+     &                *(etaNEW(ikl,ikv)    -etaBAK(ikl,ikv)) / dt__SV &!
+     &                 +ist__w         *f_HSHL(ikl,ikv)       &! H2O  Contrib.
+     &                *(QaT_SV(ikl,ikv)    -qsatsg(ikl,ikv))         )&!
+     &                * Lx_H2O(ikl,ikv)                        ! common factor
+ 
+! Surface: Latent    Heat Flux: T Derivative
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          dLdTSV(ikl,ikv) = 0.
+! #TL     dLdTSV(ikl,ikv) = f___HL(ikl,ikv)   * dqs_dT(ikl,ikv)   &!
+! #TL&                                * RHu_av(ikl,ikv)        ! - d(HL)/d(T)
+ 
+! #TL     HL___D(ikl,ikv) = HL___D(ikl,ikv)                   &!
+! #TL&                 +dLdTSV(ikl,ikv)   * TsisSV(ikl,ikv,isl)!
+! #kv   END DO
+! #kv   END DO
+ 
+! Surface: Tridiagonal Matrix Set Up
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+!         ______________________________
+          isl             =  isnoSV(ikl,ikv)
+ 
+          TSurf0(ikl,ikv)     =  TsisSV(ikl,ikv,isl)             ! Diagnostic
+          Elem_A          =  dtC_sv(ikl,ikv,isl)*mu__dz(ikl,ikv,isl) !
+          Elem_C          =  dSdTSV(ikl,ikv)                     ! HS/Surf.Contr.
+          ElemsC          =  Elem_C        * dtC_sv(ikl,ikv,isl) !
+          ElemaC          =  Elem_C        *(dt__SV/CpdAir)     &!
+     &                     /(roa_SV(ikl,ikv,1  )*dza__1(ikl,ikv))!
+          Diag_A(ikl,ikv,isl) = -Elem_A *Implic                  !
+          Diag_C(ikl,ikv,isl) = -ElemaC *Imp_SA                  !
+          Diag_B(ikl,ikv,isl) =  1.0d+0 -Diag_A(ikl,ikv,isl)    &!
+     &                     + ElemsC *ImpHSL                     &!
+     &  + dtC_sv(ikl,ikv,isl) * (dIRsdT(ikl,ikv)                &! Upw. Sol IR
+     &                      +dLdTSV(ikl,ikv))                    ! HL/Surf.Contr.
+          Term_D(ikl,ikv,isl) =  Explic *Elem_A *Tsisva(ikl,ikv,isl-1)  &!
+     &             +(1.0d+0 -Explic *Elem_A                     &!
+     &                      -ExpHSL *ElemsC)*Tsisva(ikl,ikv,isl)&!
+     &                      +Exp_SA *ElemaC *Tsisva(ikl,ikv,isl+1)   !                !T
+          Term_D(ikl,ikv,isl) =  Term_D(ikl,ikv,isl)            &!                !T
+     &  + dtC_sv(ikl,ikv,isl) * (sol_SV(ikl,ikv)    *SoSosv(ikl,ikv)&! Absorbed
+     &                                     *(sEX_sv(ikl,ikv,isl+1)  &! Solar
+     &                                      -sEX_sv(ikl,ikv,isl  )) &!
+     &        +      tau_sv(ikl,ikv)      *IRd_SV(ikl,ikv) *Eso_sv(ikl,ikv) &! Down Atm IR
+     &         -(1.0-tau_sv(ikl,ikv)) *0.5*IRv_sv(ikl,ikv)      &! Down Veg IR
+     &                                +IRs__D(ikl,ikv)          &! Upw. Sol IR
+     &                                +HL___D(ikl,ikv)          &! HL/Atmo.Contr.
+     &      ) *      p0_kap       /    ExnrSV(ikl,ikv)           !
+ 
+! SBL:        Tridiagonal Matrix Set Up
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+!            vvvvvvvv
+          IF (SVaKzT)                                               THEN
+             Kz__SV(ikl,ikv,  1) = 0.
+           IF(SVaUBC)                                               THEN
+             Kz__SV(ikl,ikv,mzp) = 0.
+             ExpTOP          = Explic
+             ImpTOP          = Implic
+           ELSE
+             ExpTOP          = 1.0000
+             ImpTOP          = 0.0000
+           END IF
+ 
+             isl=1
+             jsl=isnoSV(ikl,ikv)
+             isn=isnoSV(ikl,ikv) +isl
+             is1=   min(isl+1,mzp)
+             is2=   min(isn+1,mzp+nsnow)
+             Elem_A          =  dSdTSV(ikl,ikv)                    &!
+     &                         +dLdTSV(ikl,ikv)                    &!
+     &                         +0.0d+0
+             ElemaA          =  Elem_A        *(dt__SV/CpdAir)     &!
+     &                        /(roa_SV(ikl,ikv,1  )*dza__1(ikl,ikv))!
+             ElemsA          =  Elem_A        * dtC_sv(ikl,ikv,jsl)
+             Diag_A(ikl,ikv,isn) = -ElemsA *Imp_SA                  !
+             deltak=                            dt__SV             &!
+     &                        /(roa_SV(ikl,ikv,1  )*dza__1(ikl,ikv))!
+             Elem_C=deltak                                         &!
+     &             *0.5*(roa_SV(ikl,ikv,is1  )+roa_SV(ikl,ikv,isl))&!
+     &                 * Kz__SV(ikl,ikv,is1  )                     &!
+     &       /max(epsi15,zza_SV(ikl,ikv,is1  )-zza_SV(ikl,ikv,isl)) !
+             Diag_C(ikl,ikv,isn) = -Elem_C *Implic                  !
+             Diag_B(ikl,ikv,isn) =  1.0d+0 -Diag_C(ikl,ikv,isn)    &!
+     &                         +ElemaA *Implic                      !
+             Term_D(ikl,ikv,isn) =  ElemsA *Exp_SA *Tsisva(ikl,ikv,isn-1)  &!
+     &                +(1.0d+0 -ElemaA *Explic                     &!
+     &                         -Elem_C *Explic)*Tsisva(ikl,ikv,isn)&!
+     &                         +Elem_C *Explic *Tsisva(ikl,ikv,is2) !
+ 
+! Atmosphere: Tridiagonal Matrix Set Up
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          IF(mzp.GE.4)                                              THEN
+             is1=2
+             is2=mzp-2
+!            ___________
+          DO isl=is1,is2
+             isn=isnoSV(ikl,ikv)+isl                                !
+             Elem_A=Elem_C                                          !
+             deltak=0.5* dt__SV          /(roa_SV(ikl,ikv,isl)     &!
+     &                 *(zza_SV(ikl,ikv,isl+1)-zza_SV(ikl,ikv,isl-1)))  !
+             Elem_C=deltak                                         &!
+     &             *0.5*(roa_SV(ikl,ikv,isl+1)+roa_SV(ikl,ikv,isl))&!
+     &                 * Kz__SV(ikl,ikv,isl+1)                     &!
+     &                 /(zza_SV(ikl,ikv,isl+1)-zza_SV(ikl,ikv,isl)) !
+             Diag_A(ikl,ikv,isn) = -Implic *Elem_A                  !
+             Diag_C(ikl,ikv,isn) = -Implic *Elem_C                  !
+             Diag_B(ikl,ikv,isn) =  1.0d+0 -Diag_A(ikl,ikv,isn)    &!
+     &                                 -Diag_C(ikl,ikv,isn)         !
+             Term_D(ikl,ikv,isn) =  Explic *Elem_A *Tsisva(ikl,ikv,isn-1)  &!
+     &                +(1.0d+0 -Explic *Elem_A                     &!
+     &                         -Explic *Elem_C)*Tsisva(ikl,ikv,isn)&!
+     &                         +Explic *Elem_C *Tsisva(ikl,ikv,isn+1)   !
+          END DO
+ 
+          ENDIF
+ 
+! Atmosphere: Tridiagonal Matrix Set Up
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          IF(mzp .GE.2)                                             THEN
+             is1=max(1,mzp-1)
+!            _______
+             isl=is1
+             isn=isnoSV(ikl,ikv)+isl                                !
+             Elem_A=Elem_C                                          !
+             deltak=0.5* dt__SV          /(roa_SV(ikl,ikv,isl)     &!
+     &                 *(zza_SV(ikl,ikv,isl+1)-zza_SV(ikl,ikv,isl-1)))  !
+             Elem_C=deltak                                         &!
+     &             *0.5*(roa_SV(ikl,ikv,isl+1)+roa_SV(ikl,ikv,isl))&!
+     &                 * Kz__SV(ikl,ikv,isl+1)                     &!
+     &                 /(zza_SV(ikl,ikv,isl+1)-zza_SV(ikl,ikv,isl)) !
+             Diag_A(ikl,ikv,isn) = -Implic *Elem_A                  !
+             Diag_C(ikl,ikv,isn) = -ImpTOP *Elem_C                  !
+             Diag_B(ikl,ikv,isn) =  1.0d+0 -Diag_A(ikl,ikv,isn)    &!
+     &                         +Implic *Elem_C                      !
+             Term_D(ikl,ikv,isn) =  Explic *Elem_A *Tsisva(ikl,ikv,isn-1)  &!
+     &                +(1.0d+0 -Explic *Elem_A                     &!
+     &                         -Explic *Elem_C)*Tsisva(ikl,ikv,isn)&!
+     &                         +ExpTOP *Elem_C *Tsisva(ikl,ikv,isn+1)   !
+          END IF
+ 
+ 
+             isHigh          =  isnoSV(ikl,ikv)+max(1,mzp-1)
+          ELSE
+             isHigh          =  isnoSV(ikl,ikv)
+          END IF
+! #kv   END DO
+! #kv   END DO
+ 
+ 
+ 
+! Tridiagonal Elimination
+! =======================
+ 
+! Forward  Sweep
+! ^^^^^^^^^^^^^^
+! #kv   DO ikl=  1,kcolp
+! #kv   DO ikv=1,mwp
+          Aux__P(ikl,ikv,-nsoil) = Diag_B(ikl,ikv,-nsoil)
+          Aux__Q(ikl,ikv,-nsoil) =-Diag_C(ikl,ikv,-nsoil)/Aux__P(ikl,ikv,-nsoil)
+! #kv   END DO
+! #kv   END DO
+ 
+!         ___________________
+       DO isl=-nsoil+1,isHigh
+! #kv   DO ikl=      1,kcolp
+! #kv   DO ikv=1,mwp
+          Aux__P(ikl,ikv,isl)   = Diag_A(ikl,ikv,isl)  *Aux__Q(ikl,ikv,isl-1)  &
+     &                       +Diag_B(ikl,ikv,isl)
+          Aux__Q(ikl,ikv,isl)   =-Diag_C(ikl,ikv,isl)  /Aux__P(ikl,ikv,isl)
+! #kv   END DO
+! #kv   END DO
+       END DO
+ 
+! #kv   DO ikl=      1,kcolp
+! #kv   DO ikv=1,mwp
+          Tsisva(ikl,ikv,-nsoil) = Term_D(ikl,ikv,-nsoil)/Aux__P(ikl,ikv,-nsoil)
+! #kv   END DO
+! #kv   END DO
+ 
+!         ___________________
+       DO isl=-nsoil+1,isHigh
+! #kv   DO ikl=      1,kcolp
+! #kv   DO ikv=1,mwp
+          Tsisva(ikl,ikv,isl)   =(Term_D(ikl,ikv,isl)                  &
+     &                       -Diag_A(ikl,ikv,isl)  *Tsisva(ikl,ikv,isl-1)) &
+     &                                         /Aux__P(ikl,ikv,isl)
+! #kv   END DO
+! #kv   END DO
+       END DO
+ 
+! Backward Sweep
+! ^^^^^^^^^^^^^^
+!         ______________________
+       DO isl=isHigh-1,-nsoil,-1
+! #kv   DO ikl=1,kcolp
+! #kv   DO ikv=1,mwp
+          Tsisva(ikl,ikv,isl)   = Aux__Q(ikl,ikv,isl)  *Tsisva(ikl,ikv,isl+1)  &
+     &                                         +Tsisva(ikl,ikv,isl)
+! #kv   END DO
+! #kv   END DO
+       END DO
+ 
+! Go Back to Temperatures
+! ^^^^^^^^^^^^^^^^^^^^^^^
+! #kv  DO ikl=1,kcolp
+! #kv  DO ikv=1,mwp
+         DO isl=-nsoil   , isnoSV(ikl,ikv)
+          TsisSV(ikl,ikv,isl) =    Tsisva(ikl,ikv,isl)                 &
+     &                /(p0_kap /   ExnrSV(ikl,ikv))
+         END DO
+ 
+!         vvvvvvvv
+       IF (SVaKzT)                                                  THEN
+!         _________
+       DO isl=1,mzp
+          isn=isnoSV(ikl,ikv)+isl
+          pktaSV(ikl,ikv,isl) =   Tsisva(ikl,ikv,isn) / Fsisva(ikl,ikv)
+       END DO
+ 
+       IF  (SVaUBC)                                                 THEN
+          is1             =      max(  1,mzp-1)
+          pktaSV(ikl,ikv,mzp) =   pktaSV(ikl,ikv,is1)
+!      ELSE
+!         pktaSV(ikl,mzp)  is implicitely .NOT. modified
+       END IF
+ 
+       END IF
+ 
+! Temperature Limits (avoids problems in case of no Snow Layers)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+!         _______________________________
+          isl               = isnoSV(ikl,ikv)
+ 
+          dTSurf            = TsisSV(ikl,ikv,isl) -        TSurf0(ikl,ikv)
+          TsisSV(ikl,ikv,isl)   = TSurf0(ikl,ikv) + sign(un_1,dTSurf)  &! 180.0 dgC/hr
+     &              * min(abs(dTSurf),5.e-2*dt__SV)                 ! =0.05 dgC/s
+! #kv  END DO
+! #kv  END DO
+ 
+!         ___________________
+       DO isl=nsnow,1     ,-1
+! #kv   DO ikl=     1,kcolp
+! #kv   DO ikv=1,mwp
+          TsisSV(ikl,ikv,isl)   = max(Ts_Min,       TsisSV(ikl,ikv,isl))
+          TsisSV(ikl,ikv,isl)   = min(Ts_Max,       TsisSV(ikl,ikv,isl))
+! #kv   END DO
+! #kv   END DO
+       END DO
+ 
+ 
+! Update Surface    Fluxes
+! ========================
+ 
+! #kv   DO ikl=      1,kcolp
+! #kv   DO ikv=1,mwp
+!         _________________________
+          isl         = isnoSV(ikl,ikv)
+ 
+          IRs_SV(ikl,ikv) = IRs__D(ikl,ikv)                   &!
+     &                - dIRsdT(ikl,ikv) * TsisSV(ikl,ikv,isl)  !
+          HSs_sv(ikl,ikv) = HS___D(ikl,ikv)                   &! Sensible Heat
+     &                - dSdTSV(ikl,ikv) * TsisSV(ikl,ikv,isl)  ! Downward > 0
+          HLs_sv(ikl,ikv) = HL___D(ikl,ikv)                   &! Latent   Heat
+     &                - dLdTSV(ikl,ikv) * TsisSV(ikl,ikv,isl)  ! Downward > 0
+ 
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          SOsoKL(ikl,ikv) = sol_SV(ikl,ikv) * SoSosv(ikl,ikv)  ! Absorbed Sol.
+          IRsoKL(ikl,ikv) =               IRs_SV(ikl,ikv)     &! Up Surf. IR
+     &        +     tau_sv(ikl,ikv)      *IRd_SV(ikl,ikv)*Eso_sv(ikl,ikv) &! Down Atm IR
+     &        -(1.0-tau_sv(ikl,ikv)) *0.5*IRv_sv(ikl,ikv)      ! Down Veg IR
+          HSsoKL(ikl,ikv) = HSs_sv(ikl,ikv)                    ! HS
+          HLsoKL(ikl,ikv) = HLs_sv(ikl,ikv)                    ! HL
+          HLs_KL(ikl,ikv) = HLs_sv(ikl,ikv) / LhvH2O           ! mm w.e./sec
+        END DO
+        END DO
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (OUT)
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     ETSo_d(ikl,ikv) =                                   &!
+! #e1&         (     SoSosv(ikl,ikv)      *sol_SV(ikl,ikv)    &! Net   Solar
+! #e1&         +                       IRs_SV(ikl,ikv)        &! Up Surf. IR
+! #e1&         +     tau_sv(ikl,ikv)      *IRd_SV(ikl,ikv)*Eso_sv(ikl,ikv)&! Down Atm IR
+! #e1&         -(1.0-tau_sv(ikl,ikv)) *0.5*IRv_sv(ikl,ikv)    &! Down Veg IR
+! #e1&                                +HSs_sv(ikl,ikv)        &! Sensible
+! #e1&                                +HLs_sv(ikl,ikv)            )! Latent
+! #e1     ETSo_1(ikl,ikv) = 0.
+! #e1   END DO
+! #e1   END DO
+!         _________________
+! #e1  DO isl= -nsoil,nsnow
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     Exist0      = isl -           isnoSV(ikl,ikv)
+! #e1     Exist0      = 1.  - max(zer0,min(un_1,Exist0))
+! #e1     ETSo_1(ikl,ikv) = ETSo_1(ikl,ikv)                   &!
+! #e1&                +(TsisSV(ikl,ikv,isl)-Tf_Sno)*Exist0    &!
+! #e1&                                 /dtC_sv(ikl,ikv,isl)
+! #e1   END DO
+! #e1   END DO
+! #e1  END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate          ( Tsisva )                                   !
+      deallocate          ( Fsisva )                                   !
+      deallocate          ( dza__1 )                                   !
+      deallocate          ( mu_sno )                                   !     Snow thermal Conductivity
+      deallocate          ( mu__dz )                                   ! mu_(eta,sno)   / dz
+      deallocate          ( dtC_sv )                                   ! dt      / C
+      deallocate          ( IRs__D )                                   ! UpwardIR Previous Iter.Contr.
+      deallocate          ( dIRsdT )                                   ! UpwardIR           T Derivat.
+      deallocate          ( f_HSHL )                                   ! Factor common to HS and HL
+      deallocate          ( dRidTs )                                   ! d(Rib)/d(Ts)
+      deallocate          ( HS___D )                                   ! Sensible Heat Flux Atm.Contr.
+      deallocate          ( f___HL )                                   !
+      deallocate          ( HL___D )                                   ! Latent   Heat Flux Atm.Contr.
+      deallocate          ( TSurf0 )                                   ! Previous Surface Temperature
+      deallocate          ( qsatsg )                                   ! Soil   Saturat. Spec. Humidity
+      deallocate          ( dqs_dT )                                   ! d(qsatsg)/dTv
+      deallocate          ( Psi    )                                   ! 1st Soil Layer Water Potential
+      deallocate          ( RHuSol )                                   ! Soil Surface Relative Humidity
+      deallocate          ( RHu_av )                                   ! Soil Surface Relative Humidity
+      deallocate          ( Diag_A )                                   ! A Diagonal
+      deallocate          ( Diag_B )                                   ! B Diagonal
+      deallocate          ( Diag_C )                                   ! C Diagonal
+      deallocate          ( Term_D )                                   !   Independant Term
+      deallocate          ( Aux__P )                                   ! P Auxiliary Variable
+      deallocate          ( Aux__Q )                                   ! Q Auxiliary Variable
+      deallocate          ( etaBAK )                                   !
+      deallocate          ( etaNEW )                                   !
+      deallocate          ( etEuBk )                                   !
+      deallocate          ( fac_dt )                                   !
+      deallocate          ( faceta )                                   !
+      deallocate          ( PsiArg )                                   !
+      deallocate          ( SHuSol )                                   !
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_TSo
+ 
+ 
+ 
+      subroutine SISVAT_qVg
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_qVg                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_qVg computes the Canopy Water  Balance             |
+!                                    including  Root   Extraction          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   ivgtSV   = 0,...,12:   Vegetation Type                      |
+!     ^^^^^               0:          Water, Solid or Liquid               |
+!                                                                          |
+!     INPUT:   rhT_SV   : SBL Top    Air  Density                  [kg/m3] |
+!     ^^^^^    QaT_SV   : SBL Top    Specific  Humidity            [kg/kg] |
+!                                                                          |
+!              TvegSV   : Canopy   Temperature                         [K] |
+!              rrCaSV   : Canopy     Water     Content             [kg/m2] |
+!              rrMxsv   : Canopy Maximum Intercepted Rain          [kg/m2] |
+!              rah_sv   : Aerodynamic Resistance for Heat            [s/m] |
+!              EvT_sv   : EvapoTranspiration                       [kg/m2] |
+!              Sigmsv   : Canopy Ventilation Factor                    [-] |
+!              glf_sv   : Green Leaf Fraction of NOT fallen Leaves     [-] |
+!              LAIesv   : Leaf Area  Index (effective / transpiration) [-] |
+!              psi_sv   : Soil       Water    Potential                [m] |
+!              Khydsv   : Soil   Hydraulic    Conductivity           [m/s] |
+!                                                                          |
+!     INPUT /  psivSV   : Leaf       Water    Potential                [m] |
+!     OUTPUT:                                                              |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     OUTPUT:  Rootsv   : Root Water Pump                        [kg/m2/s] |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     REMARK: Water Extraction by roots calibrated by Evapotranspiration   |
+!     ^^^^^^  (computed in the Canopy Energy Balance)                      |
+!                                                                          |
+!     REFERENCE: DR97: Koen de Ridder thesis, UCL, 1997                    |
+!     ^^^^^^^^^                                                            |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #RW: Root Water Flow slowed down by Soil Hydraulic Conductivity      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      use Mod_SISVATLqVg
+ 
+ 
+      IMPLICIT NONE
+ 
+      integer                                      ::  ikl,ikv   ,isl  ! Grid Point, Layer Indices
+      integer                                      ::  nitmax =  5     ! Maximum  Iterations Number
+      integer                                      ::  nit             !          Iterations Counter
+      real(kind=real8)                             ::  psidif          ! Soil-Canopy  Water Pot. Differ.
+      real(kind=real8)                             ::  Root_W          ! Root   Water     Flow
+      real(kind=real8)                             ::  RootOK          ! Roots take Water in Soil Layer
+      real(kind=real8)                             ::  d_psiv          ! Canopy Water     Increment
+      real(kind=real8)                             ::  dpvMAX = 20.    ! Canopy Water     Increment MAX
+      real(kind=real8)                             ::  BWater          ! Imbalance of Canopy Water Budg.
+      real(kind=real8)                             ::  BW_MAX          ! MAX Imbal.of Canopy Water Budg.
+      real(kind=real8)                             ::  BW_MIN =  4.e-8 ! MIN Imbal.of Canopy Water Budg.
+      real(kind=real8)                             ::  dBwdpv          ! Derivativ.of Canopy Water Budg.
+      real(kind=real8)                             ::  Bswich          ! Newton-Raphson         Switch
+      real(kind=real8)                             ::  EvFrac          ! Condensat./Transpiration Switch
+      real(kind=real8)                             ::  den_qs,arg_qs   !
+!     real(kind=real8)                             ::  esat_i          ! Saturation Vapor Pressure [hPa]
+      real(kind=real8)                             ::  qsatvg          ! Canopy Saturat. Spec. Humidity
+      real(kind=real8)                             ::  EvTran          ! EvapoTranspiration
+      real(kind=real8)                             ::  dEdpsi          ! Evapotranspiration  Derivative
+      real(kind=real8)                             ::  Fac_Ev,FacEvT   ! Evapotranspiration  Factors
+      real(kind=real8)                             ::  denomE          ! Evapotranspiration  Denominator
+      real(kind=real8)                             ::  F_Stom          ! Funct.  (Leaf Water Potential)
+      real(kind=real8)                             ::  dFdpsi          ! Derivative  of F_Stom
+      real(kind=real8)                             ::  denomF          ! Denominator of F_Stom
+      real(kind=real8)                             ::  F___OK          ! (psi>psi_c) => F_Stom swich  ON
+      real(kind=real8)                             ::  R0Stom          ! Minimum Stomatal Resistance
+      real(kind=real8)                             ::  R_Stom          !         Stomatal Resistance
+      real(kind=real8)                             ::  dRdpsi          ! Derivat.Stomatal Resistance
+      real(kind=real8)                             ::  numerR          ! Numerat.Stomatal Resistance
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate            ( PlantW(kcolp,mwp) )                        ! Plant  Water
+      allocate            ( dPdPsi(kcolp,mwp) )                        ! Plant  Water psi Derivative
+      allocate            ( psiv_0(kcolp,mwp) )                        ! Canopy Temperature,  Previous t
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! Newton-Raphson Scheme
+! =====================
+ 
+      nit    = 0
+  101 CONTINUE
+      nit    = nit + 1
+      BW_MAX = 0.
+ 
+ 
+! W.Potential of the Previous Time Step
+! -------------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          psiv_0(ikl,ikv) = psivSV(ikl,ikv)
+ 
+ 
+! Extraction of Soil Water through the Plant Roots
+! ------------------------------------------------
+ 
+          PlantW(ikl,ikv)     = 0.                          ! Plant Water
+          dPdPsi(ikl,ikv)     = 0.                          ! Idem, Derivat.
+        END DO
+        END DO
+      DO   isl= -nsoil,0
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          psidif = psivSV(ikl,ikv)-(DH_dSV(ivgtSV(ikl,ikv))&! Soil-Canopy Water
+     &                         +psi_sv(       ikl,ikv ,isl))! Potential  Diff.
+          Root_W = rhoWat     * RF__SV(ivgtSV(ikl,ikv),isl)&! If > 0, Contrib.
+     &              /max(eps_21,PR_dSV(ivgtSV(ikl,ikv))    &!     to Root Water
+! #RW&                         +Khydsv(ikl,ikv   ,isl )*1.e-4  &! (DR97, eqn.3.20)
+     &                                                   )  !
+!         Pas de prise en compte de la resistance sol/racine dans proto-svat
+!         (DR97, eqn.3.20)
+          RootOK =      max(zer0, sign(un_1,psidif))
+          Rootsv(ikl,ikv,isl) = Root_W*max(zer0,psidif)     ! Root  Water
+          PlantW(ikl,ikv)     = PlantW(ikl,ikv) + Rootsv(ikl,ikv ,isl)  ! Plant Water
+          dPdPsi(ikl,ikv)     = dPdPsi(ikl,ikv) + RootOK*Root_W ! idem, Derivat.
+        END DO
+        END DO
+      END DO
+ 
+ 
+! Latent   Heat Flux
+! ------------------
+ 
+! Canopy Saturation Specific Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+!       IF      (DeRidder)                                THEN !
+          den_qs      =         TvegSV(ikl,ikv)    - 35.8      !
+          arg_qs      = 17.27 *(TvegSV(ikl,ikv)    -273.16)   &!
+     &                                   / den_qs              !
+          qsatvg      = .0038 *        exp(arg_qs)     *0.875  !  0.875 = Tuning Hapex-Sahel
+!         dqs_dT      = qsatvg     * 4099.2   /(den_qs *den_qs)!
+!       ELSE IF (Dudhia_MAR)                              THEN !
+!         esat_i      = 6.107                                 &!
+!    &     *exp(ExpIsv*(un_1/WatIsv -un_1/TvegSV(ikl)    ))    !
+!         qsatvg      = 0.622    *     esat_i                 &!
+!    &      / (10.*pkPaSV(ikl) - 0.378*esat_i)                 !
+!         dqs_dT      = qsatvg                                &!
+!    &     *(1.0+0.6077*qsatvg     )                          &!
+!    &     *    ExpIsv/(TvegSV(ikl)    *TvegSV(ikl)    )       !
+!       END IF
+ 
+ 
+! Canopy Stomatal Resistance
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          R0Stom = min(         StodSV(ivgtSV(ikl,ikv))     &!
+     &                /max(eps6,glf_sv(       ikl,ikv)),StxdSV)  ! Min Stomatal R.
+          denomF =              pscdSV-psivSV(ikl,ikv)
+          F___OK =     max(zer0,sign(un_1,denomF))
+          denomF =     max(eps6,          denomF)            !
+          F_Stom =              pscdSV  / denomF             ! F(Leaf Wat.Pot.)
+          dFdpsi =             -F_Stom  / denomF             !
+                                                             ! DR97, eqn. 3.22
+          numerR = R0Stom / max(LAIesv(ikl,ikv), R0Stom/StxdSV)  !
+          R_Stom = numerR *                  F_Stom          ! Can.Stomatal R.
+                                                             ! DR97, eqn. 3.21
+          dRdpsi = R_Stom *                  dFdpsi          !
+ 
+! Evaporation / Evapotranspiration
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          EvFrac = max(zer0, sign(un_1,QaT_SV(ikl,ikv)-qsatvg))  ! Condensation/
+          EvFrac = EvFrac                                   &! Transpiration
+     &       + (1.-EvFrac)     *rrCaSV(ikl,ikv)/ rrMxsv(ikl,ikv) !        Switch
+          Fac_Ev = rhT_SV(ikl,ikv) *Sigmsv(ikl,ikv)          ! idem,  Factor
+          denomE = rah_sv(ikl,ikv) +R_Stom     * Sigmsv(ikl,ikv)
+          FacEvT = Fac_Ev * (1.-EvFrac)    / denomE          !
+          EvTran = FacEvT     *(qsatvg     - QaT_SV(ikl,ikv))! EvapoTranspir.
+          dEdpsi =(EvTran     / denomE)    * dRdpsi          ! EvT Derivative
+ 
+ 
+! Imbalance  of the Canopy  Water  Budget
+! ---------------------------------------
+ 
+          BWater      =( PlantW(ikl,ikv)                    &! Available  Water
+     &                 - EvTran     )*        F___OK         ! Transpired Water
+ 
+          Bswich      = max(zer0,                           &! Newton-Raphson
+     &                      sign(un_1,    abs(BWater)       &!         Switch
+     &                                       -BW_MIN))       !
+ 
+ 
+! Derivative of the Canopy  Water  Budget
+! ---------------------------------------
+ 
+          dBwdpv      = dPdpsi(ikl,ikv)                     &!
+     &                - dEdpsi
+          dBwdpv      = sign(  un_1,    dBwdpv)             &!
+     &                *  max(eps_21,abs(dBwdpv))             !
+ 
+ 
+! Update Canopy and Surface/Canopy Temperatures
+! ---------------------------------------------
+ 
+          d_psiv      = BWater       / dBwdpv                !
+          d_psiv      =      sign(un_1,d_psiv)              &! Increment
+     &                       *min( abs(d_psiv)     ,dpvMAX)  ! Limitor
+          psivSV(ikl,ikv) = psivSV(ikl,ikv)  - Bswich      *d_psiv   ! Newton-Raphson
+          BW_MAX      = max(BW_MAX,abs(BWater))
+        END DO
+        END DO
+ 
+ 
+! Update Root Water Fluxes | := Evapotranspiration
+! ------------------------------------------------
+ 
+      DO   isl= -nsoil,0
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          Rootsv(ikl,ikv,isl) = Rootsv(ikl,ikv,isl)*EvT_sv(ikl,ikv) &! Root  Water
+     &                          /max(eps_21,PlantW(ikl,ikv)) !
+        END DO
+        END DO
+      END DO
+ 
+      IF (BW_MAX.gt.BW_MIN.and.nit.lt.nitmax)    GO TO 101
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate          ( PlantW )                                   ! Plant  Water
+      deallocate          ( dPdPsi )                                   ! Plant  Water psi Derivative
+      deallocate          ( psiv_0 )                                   ! Canopy Temperature,  Previous t
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_qVg
+ 
+ 
+ 
+      subroutine SISVAT_qSn                                            &
+     &                     (                                           &
+! #e1&                      EqSn_0,EqSn_1,EqSn_d                       &
+! #m1&                     ,SIsubl,SImelt,SIrnof                       &
+     &                     )
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_qSn                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_qSn updates  the Snow Water Content                |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   isnoSV   = total Nb of Ice/Snow Layers                      |
+!     ^^^^^                                                                |
+!                                                                          |
+!     INPUT:   TaT_SV   : SBL Top    Temperature                       [K] |
+!     ^^^^^    dt__SV   : Time Step                                    [s] |
+!                                                                          |
+!     INPUT /  drr_SV   : Rain Intensity                         [kg/m2/s] |
+!     OUTPUT:  dzsnSV   : Snow Layer Thickness                         [m] |
+!     ^^^^^^   eta_SV   : Snow Water Content                       [m3/m3] |
+!              ro__SV   : Snow/Soil  Volumic Mass                  [kg/m3] |
+!              TsisSV   : Soil/Ice Temperatures (layers -nsoil,-nsoil+1, 0)|
+!                       & Snow     Temperatures (layers  1,2,..,nsnow) [K] |
+!                                                                          |
+!     OUTPUT:  SWS_SV   : Surficial Water Status                           |
+!     ^^^^^^                                                               |
+!              EExcsv   : Snow Energy in Excess, initial Forcing    [J/m2] |
+!              EqSn_d   : Snow Energy in Excess, remaining          [J/m2] |
+!              EqSn_0   : Snow Energy, before Phase Change          [J/m2] |
+!              EqSn_1   : Snow Energy, after  Phase Change          [J/m2] |
+!              SIsubl   : Snow sublimed/deposed Mass             [mm w.e.] |
+!              SImelt   : Snow Melted           Mass             [mm w.e.] |
+!              SIrnof   : Surficial Water + Run OFF Change       [mm w.e.] |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #IB: OUTPUT: Ice-Sheet Surface Mass Balance  (on NetCDF File )       |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:           (PLEASE VERIFY before USE)          |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #SU: SLUSH : Alternative Parameterization                            |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_iii_jjj_n     | #e0: OUTPUT on ASCII  File (SISVAT Variables) |
+!   #                      |(#e0  MUST BE PREPROCESSED BEFORE #e1 & #e2 !) |
+!   # SISVAT_iii_jjj_n     | #e1: OUTPUT/Verification: Energy Conservation |
+!   # SISVAT_iii_jjj_n     | #m1: OUTPUT/Verification: * Mass Conservation |
+!                          |                                               |
+!   # SISVAT_qSn.vm        | #e5: OUTPUT/Verification: Energy/Water Budget |
+!                          |      unit 43, SubRoutine  SISVAT_qSn **ONLY** |
+!   # SISVAT_qSn.vu        | #vu: OUTPUT/Verification: Slush  Parameteriz. |
+!                          |      unit 44, SubRoutine  SISVAT_qSn **ONLY** |
+!                          |                                               |
+!   # stdout               | #s2: OUTPUT of SnowFall, Snow Buffer          |
+!                          |      unit  6, SubRoutine  SISVAT_BSn, _qSn    |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+      use Mod_SISVAT_qSn
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      use Mod_SISVATLqSn
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+      integer                                      ::  ikl,ikv   ,isn  !
+      integer                                      ::  nh              ! Non erodible Snow: up.lay.Index
+      integer                                      ::  LayrOK          ! 1 (0)  if In(Above) Snow Pack
+      integer                                      ::  k_face          ! 1 (0)  if Crystal(no) faceted
+      integer                                      ::  LastOK          ! 1 ==>  1! Snow Layer
+      integer                                      ::  NOLayr          ! 1     Layer  Update
+! #SU integer                                      ::  kSlush          ! Slush Switch
+      real(kind=real8)                             ::  dTSnow          ! Temperature                  [C]
+      real(kind=real8)                             ::  OKmelt          ! 1 (0)  if        (no) Melting
+      real(kind=real8)                             ::  EnMelt          ! Energy in excess, for Melting
+      real(kind=real8)                             ::  SnHLat          ! Energy consumed   in  Melting
+! #e4 real(kind=real8)                             ::  AdEnrg          ! Additional Energy from  Vapor
+! #e3 real(kind=real8)                             ::  B_Enrg          ! Additional Energy from  Vapor
+      real(kind=real8)                             ::  dzVap0,dzVap1   ! Vaporized Thickness          [m]
+      real(kind=real8)                             ::  rosDry          ! Snow volumic Mass if no Water in
+      real(kind=real8)                             ::  PorVol          ! Pore volume
+      real(kind=real8)                             ::  PClose          ! Pore Hole Close OFF Switch
+!     real(kind=real8)                             ::  SGDiam          !      Snow Grain Diameter
+!     real(kind=real8)                             ::  SGDmax = 0.003  ! Max. Snow Grain Diameter     [m]
+                                                                       ! (Rowe et al. 1995, JGR p.16268)
+      real(kind=real8)                             ::  rWater          ! Retained Water           [kg/m2]
+      real(kind=real8)                             ::  drrNEW          ! New available Water      [kg/m2]
+      real(kind=real8)                             ::  rdzNEW          ! Snow          Mass       [kg/m2]
+      real(kind=real8)                             ::  rdzsno          ! Snow          Mass       [kg/m2]
+      real(kind=real8)                             ::  EnFrez          ! Energy Release    in  Freezing
+      real(kind=real8)                             ::  WaFrez          ! Water  consumed   in  Melting
+      real(kind=real8)                             ::  RapdOK          ! 1. ==> Snow melts rapidly
+      real(kind=real8)                             ::  ThinOK          ! 1. ==> Snow Layer is thin
+      real(kind=real8)                             ::  dzepsi = 0.0001 ! Minim. Snow Layer Thickness (!)
+      real(kind=real8)                             ::  dz_Min = 1.e-3  ! Minim. Snow Layer Thickness
+!                                                      dz_Min = 0.005  !
+! ... Warning: Too high for Col de Porte: precludes 1st snow (layer) apparition
+ 
+      real(kind=real8)                             ::  z_Melt          ! Last (thin) Layer Melting
+      real(kind=real8)                             ::  rusnew          ! Surficial Water Thickness   [mm]
+! #SU real(kind=real8)                             ::  zWater          ! Max Slush Water Thickness   [mm]
+! #SU real(kind=real8)                             ::  zSlush          !     Slush Water Thickness   [mm]
+! #SU real(kind=real8)                             ::  ro_new          ! New Snow/ice  Density    [kg/m3]
+      real(kind=real8)                             ::  zc,zt           ! Non erod.Snow Thickness[mm w.e.]
+ 
+ 
+! OUTPUT of SISVAT Trace Statistics (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      integer                                      ::  isnnew,isinew,isnUpD,isnitr
+ 
+ 
+! #e5 real(kind=real8)                             ::  hourer          !
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 allocate            ( EqSn_d(kcolp,mwp) )                        ! Energy in Excess, initial
+! #e1 allocate            ( EqSn_0(kcolp,mwp) )                        ! Snow Energy, befor Phase Change
+! #e5 allocate            ( EqSn01(kcolp,mwp) )                        ! Snow Energy, after Phase Change
+! #e5 allocate            ( EqSn02(kcolp,mwp) )                        ! Snow Energy, after Phase Change
+                                                                       !              .AND. Last Melting
+! #e1 allocate            ( EqSn_1(kcolp,mwp) )                        ! Snow Energy, after Phase Change
+                                                                       !              .AND. Mass Redistr.
+! OUTPUT/Verification: * Mass Conservation
+! #m1 allocate            ( SIsubl(kcolp,mwp) )                        ! Snow Deposed Mass
+! #m1 allocate            ( SImelt(kcolp,mwp) )                        ! Snow Melted  Mass
+! #m1 allocate            ( SIrnof(kcolp,mwp) )                        ! Local Surficial Water + Run OFF
+ 
+      allocate            ( noSnow(kcolp,mwp) )                        ! Nb of Layers Updater
+      allocate            ( EExdum(kcolp,mwp) )                        ! Energy in Excess when no Snow
+      allocate            ( dzMelt(kcolp,mwp) )                        ! Melted    Thickness          [m]
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e5 allocate            ( WqSn_0(kcolp,mwp) )                        ! Snow Water+Forcing  Initial
+! #e5 allocate            ( WqSn_1(kcolp,mwp) )                        ! Snow Water+Forcing, Final
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (IN)
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     EqSn_0(ikl,ikv) = 0.
+! #e1   END DO
+! #e1   END DO
+! #e1 DO   isn=nsnow,1,-1
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     EqSn_0(ikl,ikv) = EqSn_0(ikl,ikv) + ro__SV(ikl,ikv,isn) *dzsnSV(ikl,ikv,isn) &
+! #e1&                *(Cn_dSV      *(TsisSV(ikl,ikv,isn) -Tf_Sno         )&
+! #e1&                 -LhfH2O      *(1.              -eta_SV(ikl,ikv,isn)))
+! #e1   END DO
+! #e1   END DO
+! #e1 END DO
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Water  Budget (IN)
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     WqSn_0(ikl,ikv) = drr_SV(ikl,ikv) * dt__SV                   &
+! #e5&                 +rusnSV(ikl,ikv)
+! #e5   END DO
+! #e5   END DO
+! #e5 DO   isn=nsnow,1,-1
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     WqSn_0(ikl,ikv) = WqSn_0(ikl,ikv) + ro__SV(ikl,ikv,isn) *dzsnSV(ikl,ikv,isn)
+! #e5   END DO
+! #e5   END DO
+! #e5 END DO
+ 
+ 
+! OUTPUT/Verification: * Mass Conservation
+! #m1   DO ikl=1,kcolp
+! #m1   DO ikv=1,mwp
+! #m1     SImelt(ikl,ikv) = 0.
+! #m1     SIrnof(ikl,ikv) = rusnSV(ikl,ikv) + RnofSV(ikl,ikv) * dt__SV
+! #m1   END DO
+! #m1   END DO
+ 
+ 
+! Initialization
+! ==============
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        noSnow(ikl,ikv)   = 0               ! Nb of Layers Updater
+        ispiSV(ikl,ikv)   = 0               ! Pore Hole Close OFF Index
+                                            ! (assumed to be the Top of
+                                            !  the surimposed Ice Layer)
+! #IB   dwemSV(ikl,ikv)   = 0.
+! #IB   dwerSV(ikl,ikv)   = 0.
+      END DO
+      END DO
+ 
+ 
+! Melting/Freezing Energy
+! =======================
+ 
+!  REMARK: Snow liquid Water Temperature assumed = Tf_Sno
+!  ^^^^^^
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          EExdum(ikl,ikv) = drr_SV(ikl,ikv)     * hC_Wat *(TaT_SV(ikl,ikv)-Tf_Sno) &
+     &                                  * dt__SV
+          EExcsv(ikl,ikv) = EExdum(ikl,ikv)     *    min(1,isnoSV(ikl,ikv)) ! Snow exists
+          EExdum(ikl,ikv) = EExdum(ikl,ikv)     -          EExcsv(ikl,ikv)  !
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1     EqSn_d(ikl,ikv) = EExcsv(ikl,ikv)                     !
+ 
+        END DO
+        END DO
+ 
+ 
+! Surficial Water Status
+! ----------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          SWS_SV(ikl,ikv) = max(zer0,sign(un_1,Tf_Sno                  &
+     &                                    -TsisSV(ikl,ikv,isnoSV(ikl,ikv))))
+        END DO
+        END DO
+ 
+      DO   isn=nsnow,1,-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+! Energy, store Previous Content
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          dTSnow      = TsisSV(ikl,ikv,isn) -          Tf_Sno
+          EExcsv(ikl,ikv) = EExcsv(ikl,ikv)                            &
+     &                + ro__SV(ikl,ikv,isn) * Cn_dSV * dTSnow          &
+     &                                           * dzsnSV(ikl,ikv,isn)
+          TsisSV(ikl,ikv,isn) =                        Tf_Sno
+ 
+! Water,  store Previous Content
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          drr_SV(ikl,ikv) = drr_SV(ikl,ikv)                            &
+     &                + ro__SV(ikl,ikv,isn)          * eta_SV(ikl,ikv,isn) &
+     &                                           * dzsnSV(ikl,ikv,isn) &
+     &                / dt__SV
+          ro__SV(ikl,ikv,isn) =                                        &
+     &                  ro__SV(ikl,ikv,isn) *(1.     - eta_SV(ikl,ikv,isn))
+          eta_SV(ikl,ikv,isn) =  0.
+ 
+ 
+! Melting  if EExcsv > 0
+! ======================
+ 
+          EnMelt      =    max(zer0,          EExcsv(ikl,ikv) )
+ 
+! Energy Consumption
+! ^^^^^^^^^^^^^^^^^^
+          SnHLat      = ro__SV(ikl,ikv,isn) * LhfH2O          !
+          dzMelt(ikl,ikv) = EnMelt      / max(SnHLat,    eps6 )   !
+          noSnow(ikl,ikv) = noSnow(ikl,ikv)                  &!
+     &   +int(max(zer0  ,sign(un_1,dzMelt(ikl,ikv)           &!
+     &                            -dzsnSV(ikl,ikv ,isn))))   &! 1 if full Melt
+     &       *min(1     , max(0 ,1+isnoSV(ikl,ikv)-isn))      ! 1 in the  Pack
+          dzMelt(ikl,ikv) =                                  &!
+     &              min(dzsnSV(ikl,ikv, isn),dzMelt(ikl,ikv)) !
+          dzsnSV(ikl,ikv,isn) =                              &!
+     &                  dzsnSV(ikl,ikv,isn) -dzMelt(ikl,ikv)  !
+          EExcsv(ikl,ikv) = EExcsv(ikl,ikv)     -dzMelt(ikl,ikv)*SnHLat   !
+! #IB     dwemSV(ikl,ikv) = dwemSV(ikl,ikv)     -dzMelt(ikl,ikv)*ro__SV(ikl,ikv,isn)
+ 
+! Water  Production
+! ^^^^^^^^^^^^^^^^^
+          drr_SV(ikl,ikv) = drr_SV(ikl,ikv)                            &
+     &                + ro__SV(ikl,ikv,isn) * dzMelt(ikl,ikv)/dt__SV
+ 
+! OUTPUT/Verification: * Mass Conservation
+! #m1     SImelt(ikl,ikv) = SImelt(ikl,ikv)                            &
+! #m1&                + ro__SV(ikl,ikv,isn) * dzMelt(ikl,ikv)
+ 
+          OKmelt      =max(zer0,sign(un_1,drr_SV(ikl,ikv)-eps6))
+ 
+! Snow History
+! ^^^^^^^^^^^^
+          k_face          =       min(    istoSV(ikl,ikv,isn),istdSV(1)) &! = 1  if
+     &                           *max(0,2-istoSV(ikl,ikv,isn)          )  ! faceted
+          istoSV(ikl,ikv,isn) =                                      &!
+     &     int(1.-OKmelt) *               istoSV(ikl,ikv,isn)        &!
+     &    +int   (OKmelt) *((1-k_face) *  istdSV(2)                  &!
+     &                     +   k_face  *  istdSV(3)      )            !
+ 
+ 
+! Freezing if EExcsv < 0
+! ======================
+ 
+          rdzsno      =          ro__SV(ikl,ikv,isn) * dzsnSV(ikl,ikv ,isn)
+          LayrOK      = min(   1, max(0          , isnoSV(ikl,ikv)-isn+1))
+          EnFrez      = min(zer0,                  EExcsv(ikl,ikv))
+          WaFrez      =   -(     EnFrez          * LayrOK / LhfH2O)
+          drrNEW      = max(zer0,drr_SV(ikl,ikv)     - WaFrez / dt__SV)
+          WaFrez      =    (     drr_SV(ikl,ikv)     - drrNEW)* dt__SV
+          drr_SV(ikl,ikv) =          drrNEW
+          EExcsv(ikl,ikv) =          EExcsv(ikl,ikv)     + WaFrez * LhfH2O
+          EnFrez      = min(zer0,EExcsv(ikl,ikv))    * LayrOK
+          rdzNEW      = WaFrez + rdzsno
+          ro__SV(ikl,ikv,isn) =      rdzNEW /max(eps6, dzsnSV(ikl,ikv,isn))
+          TsisSV(ikl,ikv,isn) =      Tf_Sno                            &
+     &                + EnFrez /(Cn_dSV *max(eps6, rdzNEW)        )
+          EExcsv(ikl,ikv) =          EExcsv(ikl,ikv)     - EnFrez
+! #IB     dwerSV(ikl,ikv) = WaFrez                                     &
+! #IB&                + dwerSV(ikl,ikv)
+ 
+ 
+! Snow Water Content
+! ==================
+ 
+! Pore   Volume [-]
+! ^^^^^^^^^^^^^^^^^
+          rosDry      =(1.     - eta_SV(ikl,ikv,isn))* ro__SV(ikl,ikv,isn) !
+          PorVol      = 1.     - rosDry          / rhoIce          !
+          PorVol      =      max(PorVol          , zer0  )         !
+ 
+! Water  Retention
+! ^^^^^^^^^^^^^^^^
+          rWater      = ws0dSV * PorVol * rhoWat * dzsnSV(ikl,ikv,isn)
+          drrNEW      = max(zer0,drr_SV(ikl,ikv)     - rWater /dt__SV)
+          rWater      =    (     drr_SV(ikl,ikv)     - drrNEW)*dt__SV
+          drr_SV(ikl,ikv)     =      drrNEW
+          rdzNEW          =      rWater                                &
+     &                         + rosDry          * dzsnSV(ikl,ikv,isn)
+          eta_SV(ikl,ikv,isn) =      rWater / max(eps6,rdzNEW)
+          ro__SV(ikl,ikv,isn) =      rdzNEW / max(eps6,dzsnSV(ikl,ikv,isn))
+ 
+! Pore Hole Close OFF
+! ^^^^^^^^^^^^^^^^^^^
+          PClose = max(zer0,                                           &
+     &                 sign(un_1,ro__SV(ikl,ikv,isn)                   &
+     &                          -roCdSV         ))
+          ispiSV(ikl,ikv) =          ispiSV(ikl,ikv)  * int(1.-PClose) &
+     &                +      max(ispiSV(ikl,ikv),isn) *int(Pclose)
+          PClose = max(0   ,                                           &! Water under SuPer.Ice
+     &                 min (1   ,ispiSV(ikl,ikv)                       &! contributes to
+     &                          -isn            ))                      ! Surficial   Water
+          rusnSV(ikl,ikv) =          rusnSV(ikl,ikv)                   &
+     &                +          drr_SV(ikl,ikv) *dt__SV * PClose
+          drr_SV(ikl,ikv) =          drr_SV(ikl,ikv)      *(1.-PClose)
+ 
+        END DO
+        END DO
+      END DO
+ 
+ 
+! Remove Zero-Thickness Layers
+! ============================
+ 
+ 1000 CONTINUE
+           isnitr =          0
+      DO   ikl=1,kcolp
+      DO ikv=1,mwp
+           isnUpD =          0
+           isinew =          0
+        DO isn=1,nsnow-1
+           isnnew =                                                    &
+     &          int(un_1-max(zer0  ,sign(un_1,dzsnSV(ikl,ikv,isn)-dzepsi)))&
+     &             *     max(0     , min(1   ,isnoSV(ikl,ikv) +1 -isn ))
+           isnUpD =      max(isnUpD,          isnnew)
+           isnitr =      max(isnitr,          isnnew)
+           isinew =      isn*isnUpD *max(0, 1-isinew)                  &! LowerMost  0-Layer
+     &                                       +isinew                    ! Index
+           dzsnSV(ikl,ikv,isn) =                  dzsnSV(ikl,ikv,isn+isnnew)
+           ro__SV(ikl,ikv,isn) =                  ro__SV(ikl,ikv,isn+isnnew)
+           TsisSV(ikl,ikv,isn) =                  TsisSV(ikl,ikv,isn+isnnew)
+           eta_SV(ikl,ikv,isn) =                  eta_SV(ikl,ikv,isn+isnnew)
+           G1snSV(ikl,ikv,isn) =                  G1snSV(ikl,ikv,isn+isnnew)
+           G2snSV(ikl,ikv,isn) =                  G2snSV(ikl,ikv,isn+isnnew)
+           dzsnSV(ikl,ikv,isn+isnnew) =(1-isnnew)*dzsnSV(ikl,ikv,isn+isnnew)
+           ro__SV(ikl,ikv,isn+isnnew) =(1-isnnew)*ro__SV(ikl,ikv,isn+isnnew)
+           eta_SV(ikl,ikv,isn+isnnew) =(1-isnnew)*eta_SV(ikl,ikv,isn+isnnew)
+           G1snSV(ikl,ikv,isn+isnnew) =(1-isnnew)*G1snSV(ikl,ikv,isn+isnnew)
+           G2snSV(ikl,ikv,isn+isnnew) =(1-isnnew)*G2snSV(ikl,ikv,isn+isnnew)
+        END DO
+           isnoSV(ikl,ikv)   =   isnoSV(ikl,ikv)-isnUpD                 ! Nb of Snow   Layer
+           ispiSV(ikl,ikv)   =   ispiSV(ikl,ikv)                       &! Nb of SuperI Layer
+     &    -isnUpD *max(0,min(ispiSV(ikl,ikv)-isinew,1))                 ! Update  if I=0
+ 
+      END DO
+      END DO
+      IF  (isnitr.GT.0)                                       GO TO 1000
+ 
+ 
+! New upper Limit of the non erodible Snow (istoSV .GT. 1)
+! ========================================
+ 
+      DO   ikl=1,kcolp
+      DO ikv=1,mwp
+           nh =     0
+        DO isn=  nsnow,1,-1
+           nh =    nh + isn* min(istoSV(ikl,ikv,isn)-1,1)*max(0,1-nh)
+        END DO
+           zc =     0.
+           zt =     0.
+        DO isn=1,nsnow
+           zc =    zc +          dzsnSV(ikl,ikv,isn) *ro__SV(ikl,ikv,isn)  &
+     &                     * max(0,min(1,nh+1-isn))
+           zt =    zt +          dzsnSV(ikl,ikv,isn) *ro__SV(ikl,ikv,isn)
+        END DO
+           zWE_SV(ikl,ikv) =                 zt
+           zWEcSV(ikl,ikv) = min(zWEcSV(ikl,ikv),zt)
+           zWEcSV(ikl,ikv) = max(zWEcSV(ikl,ikv),zc)
+      END DO
+      END DO
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (OUT)
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     EqSn01(ikl,ikv) =-EqSn_0(ikl,ikv)                            &
+! #e5&                 -EExcsv(ikl,ikv)
+! #e5   END DO
+! #e5   END DO
+! #e5 DO   isn=nsnow,1,-1
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     EqSn01(ikl,ikv) = EqSn01(ikl,ikv) + ro__SV(ikl,ikv,isn) *dzsnSV(ikl,ikv,isn) &
+! #e5&                *(Cn_dSV      *(TsisSV(ikl,ikv,isn) -Tf_Sno         )&
+! #e5&                 -LhfH2O      *(1.              -eta_SV(ikl,ikv,isn)))
+! #e5   END DO
+! #e5   END DO
+! #e5 END DO
+ 
+ 
+! "Negative Heat" from supercooled rain
+!  ------------------------------------
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+          EExcsv(ikl,ikv) = EExcsv(ikl,ikv) + EExdum(ikl,ikv)
+ 
+ 
+! Surficial Water Run OFF
+! -----------------------
+ 
+          rusnew      = rusnSV(ikl,ikv) * SWf_SV(ikl,ikv)
+          RnofSV(ikl,ikv) = RnofSV(ikl,ikv)                            &
+     &                +(rusnSV(ikl,ikv) - rusnew     ) / dt__SV
+          rusnSV(ikl,ikv) = rusnew
+      END DO
+      END DO
+ 
+ 
+! Percolation down the Continental Ice Pack
+! -----------------------------------------
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          drr_SV(ikl,ikv) = drr_SV(ikl,ikv) + rusnSV(ikl,ikv)          &
+     &                     * (1-min(1,ispiSV(ikl,ikv)))/ dt__SV
+          rusnSV(ikl,ikv) = rusnSV(ikl,ikv)                            &
+     &                     *    min(1,ispiSV(ikl,ikv))
+        END DO
+        END DO
+ 
+ 
+! Slush Formation (CAUTION: ADD RunOff Possibility before Activation)
+! ---------------  ^^^^^^^  ^^^
+ 
+! OUTPUT/Verification: Slush  Parameterization
+! #vu IF (.NOT.su_opn)                                              THEN
+! #vu          su_opn=.true.
+! #vu     open(unit=44,status='unknown',file='SISVAT_qSn.vu')
+! #vu     rewind    44
+! #vu END IF
+! #vu     write(44,440) daHost
+! #vu 440 format('iSupI    i       dz       ro      eta',              &
+! #vu&            '   PorVol   zSlush     ro_n    eta_n',2x,a18)
+ 
+! #SU DO   isn=1,nsnow
+! #SU   DO ikl=1,kcolp
+! #SU   DO ikv=1,mwp
+! #SU     kSlush = min(1,max(0,isn+1-ispiSV(ikl,ikv)))    ! Slush Switch
+ 
+! Available Additional Pore   Volume [-]
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! #SU     PorVol = 1. - ro__SV(ikl,ikv,isn)                &! [--]
+! #SU&           *(1. - eta_SV(ikl,ikv,isn))/ rhoIce       &!
+! #SU&           -      eta_SV(ikl,ikv,isn)                &!
+! #SU&                 *ro__SV(ikl,ikv,isn) / rhoWat        !
+! #SU     PorVol =  max(PorVol          , zer0  )           !
+! #SU     zWater =      dzsnSV(ikl,ikv,isn) * PorVol * 1000.   &! [mm] OR [kg/m2]
+! #SU&           * (1. -SWS_SV(ikl,ikv)                    &! 0 <=> freezing
+! #SU&                *(1 -min(1,iabs(isn-isnoSV(ikl,ikv)))))   ! 1 <=> isn=isnoSV
+! #SU     zSlush =  min(rusnSV(ikl,ikv)     , zWater)       ! [mm] OR [kg/m2]
+! #SU     rusnSV(ikl,ikv) = rusnSV(ikl,ikv)     - zSlush    ! [mm] OR [kg/m2]
+! #SU     ro_new      =(dzsnSV(ikl,ikv,isn) * ro__SV(ikl,ikv,isn)  &!
+! #SU&                 +zSlush                           ) &!
+! #SU&            / max(dzsnSV(ikl,ikv,isn) , eps6           )  !
+ 
+! OUTPUT/Verification: Slush  Parameterization
+! #vu     rusnew          = eta_SV(ikl,ikv,isn)             !
+ 
+! #SU     eta_SV(ikl,ikv,isn) =(ro_new - ro__SV(ikl,ikv,isn)   &!
+! #SU&                    *(1.     - eta_SV(ikl,ikv,isn))) &!
+! #SU&               / max (ro_new , eps6            )      !
+ 
+! OUTPUT/Verification: Slush  Parameterization
+! #vu     IF    (isn.le.isnoSV(ikl,ikv))                   &!
+! #vu&    write(44,441) ispiSV(ikl,ikv),isn,dzsnSV(ikl,ikv,isn)&!
+! #vu&                 ,ro__SV(ikl,ikv,isn),rusnew         &!
+! #vu&                 ,PorVol         ,zSlush             &!
+! #vu&                 ,ro_new         ,eta_SV(ikl,ikv,isn) !
+! #vu 441 format(2i5,f9.3,f9.1,f9.6,f9.3,f9.6,f9.1,f9.6)    !
+ 
+! #SU     ro__SV(ikl,ikv,isn) =      ro_new                 !
+! #SU   END DO
+! #SU   END DO
+! #SU END DO
+ 
+ 
+! Impact of the Sublimation/Deposition on the Surface Mass Balance
+! ================================================================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+          isn                     = isnoSV(ikl,ikv)
+          dzVap0                  =                       dt__SV       &
+     &  * HLs_sv(ikl,ikv)             * min(isn             , 1   )    &
+     &  /(Lx_H2O(ikl,ikv)             * max(ro__SV(ikl,ikv,isn) , eps6))
+          NOLayr=int(min(zer0,sign(un_1,dzsnSV(ikl,ikv,isn) + dzVap0)))
+          dzVap1=    min(zer0,          dzsnSV(ikl,ikv,isn) + dzVap0)
+ 
+ 
+! Additional Energy (CAUTION: Verification is not performed)
+! -----------------
+ 
+! OUTPUT/Verification: Energy Consrv. (HLS)
+! #e4     AdEnrg = dzVap0 * ro__SV(ikl,ikv,isnoSV(ikl,ikv))            &! Water   Vapor
+! #e4&            *hC_Wat *(TsisSV(ikl,ikv,isnoSV(ikl,ikv)) -Tf_Sno)    ! Sensible Heat
+ 
+! OUTPUT/Verification: Energy Consrv. (HL)
+! #e3     B_Enrg =(Cn_dSV      *(TsisSV(ikl,ikv,isn) -Tf_Sno         ) &
+! #e3&            -LhfH2O      *(1.              -eta_SV(ikl,ikv,isn)))&
+! #e3&           /(1.          + dzVap0 /max(eps6,dzsnSV(ikl,ikv,isn)))
+! #e3     eta_SV(ikl,ikv,isn) =                                        &
+! #e3&           max(zer0,un_1 +(B_Enrg                                &
+! #e3&                         -(TsisSV(ikl,ikv,isn) -Tf_Sno)*Cn_dSV)  &
+! #e3&                          /LhfH2O                          )
+! #e3     TsisSV(ikl,ikv,isn) =    ( B_Enrg                            &
+! #e3&                         +(1.              -eta_SV(ikl,ikv,isn)) &
+! #e3&                          *LhfH2O                          )     &
+! #e3&                         / Cn_dSV                                &
+! #e3&                         + Tf_Sno
+ 
+! OUTPUT/Verification: Energy Conservation
+! #e1     STOP "PLEASE add Energy (#e3) from deposition/sublimation"
+ 
+ 
+! Update of the upper Snow layer Thickness
+! ----------------------------------------
+ 
+          dzsnSV(ikl,ikv,isn) =                                        &
+     &           max(zer0,  dzsnSV(ikl,ikv,isnoSV(ikl,ikv)) + dzVap0)
+          isnoSV(ikl,ikv)     = isnoSV(ikl,ikv)             + NOLayr
+          isn             = isnoSV(ikl,ikv)
+          dzsnSV(ikl,ikv,isn) = dzsnSV(ikl,ikv,isn) + dzVap1
+! #IB     dwesSV(ikl,ikv)     = ro__SV(ikl,ikv,isn) * dzVap0
+      END DO
+      END DO
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (OUT)
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     EqSn02(ikl,ikv) =-EqSn_0(ikl,ikv)                            &
+! #e5&                 -EExcsv(ikl,ikv)
+! #e5   END DO
+! #e5   END DO
+! #e5 DO   isn=nsnow,1,-1
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     EqSn02(ikl,ikv) = EqSn01(ikl,ikv) + ro__SV(ikl,ikv,isn) *dzsnSV(ikl,ikv,isn) &
+! #e5&                *(Cn_dSV      *(TsisSV(ikl,ikv,isn) -Tf_Sno         )&
+! #e5&                 -LhfH2O      *(1.              -eta_SV(ikl,ikv,isn)))
+! #e5   END DO
+! #e5   END DO
+! #e5 END DO
+ 
+ 
+! OUTPUT/Verification: * Mass Conservation
+! #m1   DO ikl=1,kcolp
+! #m1   DO ikv=1,mwp
+! #m1     SIsubl(ikl,ikv) = dt__SV*HLs_sv(ikl,ikv)*min(isnoSV(ikl,ikv),1)  &
+! #m1&                        /Lx_H2O(ikl,ikv)
+! #m1     SIrnof(ikl,ikv) = rusnSV(ikl,ikv) + RnofSV(ikl,ikv) * dt__SV &
+! #m1&                - SIrnof(ikl,ikv)
+! #m1   END DO
+! #m1   END DO
+ 
+ 
+! Anticipated Disappearance of a rapidly Melting too thin Last Snow Layer
+! =======================================================================
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        LastOK = min(1   , max(0   ,iiceSV(ikl,ikv)-isnoSV(ikl,ikv)+2) &
+     &                    *min(1   ,isnoSV(ikl,ikv)-iiceSV(ikl,ikv))   &
+     &                    +min(1   ,isnoSV(ikl,ikv))              )
+        RapdOK = max(zer0,sign(un_1,dzMelt(ikl,ikv)-eps6         ))
+        ThinOK = max(zer0,sign(un_1,dz_Min     -dzsnSV(ikl,ikv,1)))
+        z_Melt = LastOK     *RapdOK*ThinOK
+        noSnow(ikl,ikv)   = noSnow(ikl,ikv)+int(z_Melt)
+        z_Melt        =                 z_Melt *dzsnSV(ikl,ikv,1)
+        dzsnSV(ikl,ikv,1) = dzsnSV(ikl,ikv,1) - z_Melt
+        EExcsv(ikl,ikv)   = EExcsv(ikl,ikv)   - z_Melt *ro__SV(ikl,ikv,1)  &
+     &                                *(1.     -eta_SV(ikl,ikv,1))*LhfH2O
+ 
+! Water  Production
+! ^^^^^^^^^^^^^^^^^
+        drr_SV(ikl,ikv)   = drr_SV(ikl,ikv)                            &
+     &                + ro__SV(ikl,ikv,1) * z_Melt /dt__SV
+      END DO
+      END DO
+ 
+ 
+! Update Nb of Layers
+! ===================
+ 
+! OUTPUT in SISVAT for ikl = 1 (preferably for Stand Alone Version)
+! OUTPUT           for SnowFall and Snow Buffer
+! #s2   IF          (isnoSV(1,1) .GT. 0)                               &
+! #s2&  write(6,6005)noSnow(1,1)
+! #s2   6005   format(i3,' (noSnow) ')
+ 
+      DO ikl=1,kcolp
+      DO ikv=1,mwp
+        isnoSV(ikl,ikv)   = isnoSV(ikl,ikv)                            &
+     &         * min(1,iabs(isnoSV(ikl,ikv)-noSnow(ikl,ikv)))
+      END DO
+      END DO
+ 
+ 
+! OUTPUT/Verification: Energy Conservation: Energy Budget (OUT)
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     EqSn_1(ikl,ikv) = 0.
+! #e1   END DO
+! #e1   END DO
+! #e1 DO   isn=nsnow,1,-1
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     EqSn_1(ikl,ikv) = EqSn_1(ikl,ikv) + ro__SV(ikl,ikv,isn) *dzsnSV(ikl,ikv,isn) &
+! #e1&                *(Cn_dSV      *(TsisSV(ikl,ikv,isn) -Tf_Sno         )&
+! #e1&                 -LhfH2O      *(1.              -eta_SV(ikl,ikv,isn)))
+! #e1   END DO
+! #e1   END DO
+! #e1 END DO
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget: Water  Budget (OUT)
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     WqSn_0(ikl,ikv) = WqSn_0(ikl,ikv)                            &
+! #e5&                + HLs_sv(ikl,ikv)    * dt__SV                    &
+! #e5&             *min(isnoSV(ikl,ikv),1) / Lx_H2O(ikl,ikv)
+! #e5     WqSn_1(ikl,ikv) = drr_SV(ikl,ikv)    * dt__SV                &
+! #e5&                + rusnSV(ikl,ikv)                                &
+! #e5&                + RnofSV(ikl,ikv)    * dt__SV
+! #e5   END DO
+! #e5   END DO
+! #e5 DO   isn=nsnow,1,-1
+! #e5   DO ikl=1,kcolp
+! #e5   DO ikv=1,mwp
+! #e5     WqSn_1(ikl,ikv) = WqSn_1(ikl,ikv)                            &
+! #e5&                + ro__SV(ikl,ikv,isn)* dzsnSV(ikl,ikv,isn)
+! #e5   END DO
+! #e5   END DO
+! #e5 END DO
+ 
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e5 IF (.NOT.emopen)                                              THEN
+! #e5          emopen = .true.
+! #e5          open(unit=43,status='unknown',file='SISVAT_qSn.vm')
+! #e5          rewind 43
+! #e5   write(43,43)
+! #e5 43 format('SubRoutine SISVAT_qSn: Local Energy and Water Budgets',&
+! #e5&       /,'=====================================================')
+! #e5 END IF
+! #e5 DO ikl=1,kcolp
+! #e5 DO ikv=1,mwp
+! #e5 IF (EqSn01(ikl,ikv).gt.1.e-3) write(43,431) dahost,EqSn01(ikl,ikv)
+! #e5 431  format(' WARNING (1) in _qSn,',         a18,                &
+! #e5&       ': Energy Unbalance in Phase Change = ',e15.6)
+! #e5 END DO
+! #e5 END DO
+! #e5 DO ikl=1,kcolp
+! #e5 DO ikv=1,mwp
+! #e5 IF (EqSn02(ikl,ikv).gt.1.e-3) write(43,432) dahost,EqSn01(ikl,ikv)
+! #e5 432  format(' WARNING (2) in _qSn,',         a18,                &
+! #e5&       ': Energy Unbalance in Phase Change = ',e15.6)
+! #e5 END DO
+! #e5 END DO
+! #e5         timeer=timeer + dt__SV
+! #e5         hourer=3600.0
+! #e5 IF (mod(no_err,11).eq.0)                                      THEN
+! #e5         no_err=       1
+! #e5   write(43,435)timeer/hourer
+! #e5 435    format(11('-'),'----------+-',3('-'),'----------+-',      &
+! #e5&          3('-'),'----------+-',3('-'),'----------+-',           &
+! #e5&                 '----------------+----------------+',           &
+! #e5&       /,f8.2,3x,'EqSn_0(1) | ',3x,'EqSn_d(1) | ',               &
+! #e5&              3x,'EqSn_1(1) | ',3x,'EExcsv(1) | ',               &
+! #e5&                 'E_0+E_d-E_1-EE  |   Water Budget |',           &
+! #e5&       /,11('-'),'----------+-',3('-'),'----------+-',           &
+! #e5&          3('-'),'----------+-',3('-'),'----------+-',           &
+! #e5&                 '----------------+----------------+')
+! #e5 END IF
+! #e5 IF (abs(EqSn_0(1)+EqSn_d(1)-EqSn_1(1)-EExcsv(1)).gt.eps6.OR.     &
+! #e5&    abs(WqSn_1(1)-WqSn_0(1))                    .gt.eps6    ) THEN
+! #e5         no_err=no_err+1
+! #e5   write(43,436)   EqSn_0(1),EqSn_d(1)                            &
+! #e5&                 ,EqSn_1(1),EExcsv(1)                            &
+! #e5&                 ,EqSn_0(1)+EqSn_d(1)-EqSn_1(1)-EExcsv(1)        &
+! #e5&                 ,WqSn_1(1)-WqSn_0(1)
+! #e5 436    format(8x,f12.0,' + ',f12.0,' - ',f12.0,' - ',f12.3,' = ' &
+! #e5&             ,f12.3,'    | ',f15.9)
+! #e5 END IF
+ 
+! OUTPUT/Verification: Energy Conservation
+! #e1   DO ikl=1,kcolp
+! #e1   DO ikv=1,mwp
+! #e1     EqSn_d(ikl,ikv) = EqSn_d(ikl,ikv) - EExcsv(ikl,ikv)
+! #e1   END DO
+! #e1   END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 deallocate          ( EqSn_d )                                   ! Energy in Excess, initial
+! #e1 deallocate          ( EqSn_0 )                                   ! Snow Energy, befor Phase Change
+! #e5 deallocate          ( EqSn01 )                                   ! Snow Energy, after Phase Change
+! #e5 deallocate          ( EqSn02 )                                   ! Snow Energy, after Phase Change
+                                                                       !              .AND. Last Melting
+! #e1 deallocate          ( EqSn_1 )                                   ! Snow Energy, after Phase Change
+                                                                       !              .AND. Mass Redistr.
+! OUTPUT/Verification: * Mass Conservation
+! #m1 deallocate          ( SIsubl )                                   ! Snow Deposed Mass
+! #m1 deallocate          ( SImelt )                                   ! Snow Melted  Mass
+! #m1 deallocate          ( SIrnof )                                   ! Local Surficial Water + Run OFF
+ 
+      deallocate          ( noSnow )                                   ! Nb of Layers Updater
+      deallocate          ( EExdum )                                   ! Energy in Excess when no Snow
+      deallocate          ( dzMelt )                                   ! Melted    Thickness          [m]
+ 
+! OUTPUT/Verification: Energy/Water Budget
+! #e5 deallocate          ( WqSn_0 )                                   ! Snow Water+Forcing  Initial
+! #e5 deallocate          ( WqSn_1 )                                   ! Snow Water+Forcing, Final
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_qSn
+ 
+ 
+ 
+      subroutine SISVAT_GSn
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_GSn                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_GSn simulates SNOW Metamorphism                    |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT /  isnoSV   = total Nb of Ice/Snow Layers                      |
+!     OUTPUT:  iiceSV   = total Nb of Ice      Layers                      |
+!     ^^^^^^   istoSV   = 0,...,5 :   Snow     History (see istdSV data)   |
+!                                                                          |
+!     INPUT:   TsisSV   : Soil/Ice Temperatures (layers -nsoil,-nsoil+1, 0)|
+!     ^^^^^             & Snow     Temperatures (layers  1,2,...,nsno) [K] |
+!              ro__SV   : Soil/Snow Volumic Mass                   [kg/m3] |
+!              eta_SV   : Soil/Snow Water   Content                [m3/m3] |
+!              slorSV   : Surface Slope                           [radian] |
+!              dzsnSV   : Snow Layer        Thickness                  [m] |
+!              dt__SV   : Time  Step                                   [s] |
+!                                                                          |
+!     INPUT /  G1snSV   : Dendricity (<0) or Sphericity (>0) of Snow Layer |
+!     OUTPUT:  G2snSV   : Sphericity (>0) or Size            of Snow Layer |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     Formalisme adopte pour la Representation des Grains:                 |
+!     Formalism         for the Representation of  Grains:                 |
+!     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                 |
+!                                                                          |
+!               1       - -1                 Neige Fraiche                 |
+!              / \      |                    -------------                 |
+!             /   \     |  Dendricite        decrite  par Dendricite       |
+!            /     \    |  Dendricity                  et Sphericite       |
+!           /       \   |                                                  |
+!          2---------3  -  0                 described by Dendricity       |
+!                                                     and Sphericity       |
+!          |---------|                                                     |
+!          0         1                                                     |
+!          Sphericite                                                      |
+!          Sphericity                                                      |
+!                                                                          |
+!          4---------5  -                                                  |
+!          |         |  |                                                  |
+!          |         |  |  Diametre (1/10eme de mm) (ou Taille)            |
+!          |         |  |  Diameter (1/10th  of mm) (or Size  )            |
+!          |         |  |                                                  |
+!          |         |  |                    Neige non dendritique         |
+!          6---------7  -                    ---------------------         |
+!                                            decrite  par Sphericite       |
+!                                                      et     Taille       |
+!                                            described by Sphericity       |
+!                                                     and       Size       |
+!                                                                          |
+!     Les Variables du Modele:                                             |
+!     Model         Variables:                                             |
+!     ^^^^^^^^^^^^^^^^^^^^^^^^                                             |
+!       Cas Dendritique               Cas non Dendritique                  |
+!                                                                          |
+!       G1snSV        : Dendricite    G1snSV        : Sphericite           |
+!       G2snSV        : Sphericite    G2snSV        : Taille (1/10e mm)    |
+!                                                     Size                 |
+!                                                                          |
+!     Cas Dendritique/ Dendritic Case                                      |
+!     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                                      |
+!     Dendricite(Dendricity) G1snSV                                        |
+!              varie     de -G1_dSV (-99 par defaut / etoile)          a 0 |
+!              division par -G1_dSV pour obtenir des valeurs entre 1  et 0 |
+!              varies  from -G1_dSV (default -99    / fresh snow)     to 0 |
+!              division  by -G1_dSV to obtain values       between 1 and 0 |
+!                                                                          |
+!     Sphericite(Sphericity) G2snSV                                        |
+!              varie     de  0         (cas completement anguleux)         |
+!                         a  G1_dSV (99 par defaut, cas spherique)         |
+!              division par  G1_dSV pour obtenir des valeurs entre 0  et 1 |
+!              varies  from  0      (full faceted)               to G1_dSV |
+!                                                                          |
+!     Cas non Dendritique / non Dendritic Case                             |
+!     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                             |
+!     Sphericite(Sphericity) G1snSV                                        |
+!              varie     de  0         (cas completement anguleux)         |
+!                         a  G1_dSV (99 par defaut, cas spherique)         |
+!              division par  G1_dSV pour obtenir des valeurs entre 0  et 1 |
+!              varies  from  0      (full faceted)               to G1_dSV |
+!                                                                          |
+!     Taille    (Size)       G2snSV                                        |
+!              superieure a  ADSdSV (.4 mm) et ne fait que croitre         |
+!              greater than  ADSdSV (.4 mm) always increases               |
+!                                                                          |
+!     Exemples: Points caracteristiques des Figures ci-dessus              |
+!     ^^^^^^^^^                                                            |
+!                                                                          |
+!                 G1snSV    G2snSV     dendricite  sphericite  taille      |
+!                                      dendricity  sphericity  size        |
+!     ------------------------------------------------------------------   |
+!                                                              [1/10 mm]   |
+!       1        -G1_dSV    sph3SN          1           0.5                |
+!       2           0         0             0           0                  |
+!       3           0       G1_dSV          0           1                  |
+!       4           0       ADSdSV                      0       4.         |
+!       5         G1_dSV    ADSdSV-vsphe1               1       3.         |
+!       6           0         --                        0       --         |
+!       7         G1_dSV      --                        1       --         |
+!                                                                          |
+!     par defaut: G1_dSV=99.                                               |
+!                           sph3SN=50.                                     |
+!                           ADSdSV= 4.                                     |
+!                                  vsphe1=1.                               |
+!                                                                          |
+!     Methode:                                                             |
+!     ^^^^^^^^                                                             |
+!     1. Evolution Types de Grains selon Lois de Brun et al. (1992):       |
+!        Grain metamorphism according to         Brun et al. (1992):       |
+!        Plusieurs Cas sont a distiguer  /  the different Cases are:       |
+!         1.1 Metamorphose Neige humide  /  wet Snow                       |
+!         1.2 Metamorphose Neige seche   /  dry Snow                       |
+!           1.2.1 Gradient faible        /  low      Temperature Gradient  |
+!           1.2.2 Gradient moyen         /  moderate Temperature Gradient  |
+!           1.2.3 Gradient fort          /  high     Temperature Gradient  |
+!        Dans chaque Cas on separe Neige Dendritique et non Dendritique    |
+!                             le Passage Dendritique -> non Dendritique    |
+!                             se fait lorsque  G1snSV devient > 0          |
+!        the Case of Dentritic or non Dendritic Snow is treated separately |
+!        the Limit   Dentritic -> non Dendritic is reached when G1snSV > 0 |
+!                                                                          |
+!     2. Tassement: Loi de Viscosite adaptee selon le Type de Grains       |
+!        Snow Settling:    Viscosity depends on the   Grain Type           |
+!                                                                          |
+!     3. Update Variables historiques (cas non dendritique seulement)      |
+!        nhSNow defaut                                                     |
+!                  0    Cas normal                                         |
+!        istdSV(1) 1    Grains anguleux / faceted cristal                  |
+!        istdSV(2) 2    Grains ayant ete en presence d eau liquide         |
+!                       mais n'ayant pas eu de caractere anguleux    /     |
+!                       liquid water and no faceted cristals before        |
+!        istdSV(3) 3    Grains ayant ete en presence d eau liquide         |
+!                       ayant eu auparavant un caractere anguleux    /     |
+!                       liquid water and    faceted cristals before        |
+!                                                                          |
+!     REFER. : Brun et al.      1989, J. Glaciol 35 pp. 333--342           |
+!     ^^^^^^^^ Brun et al.      1992, J. Glaciol 38 pp.  13-- 22           |
+!              (CROCUS Model, adapted to MAR at CEN by H.Gallee)           |
+!                                                                          |
+!     REFER. : Marbouty, D.     1980, J. Glaciol 26 pp. xxx--xxx           |
+!     ^^^^^^^^ (CROCUS Model, adapted to MAR at CEN by H.Gallee)           |
+!              (for angular shapes)                                        |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_GSn.vp        | #vp: OUTPUT/Verification: Snow   Properties   |
+!                          |      unit 47, SubRoutines SISVAT_zSn, _GSn    |
+!   # stdout               | #vs: OUTPUT/Verification: Snow   Properties   |
+!                          |      unit  6, SubRoutine  SISVAT_GSn          |
+!                                                                          |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_GSn
+ 
+ 
+ 
+! Local  Variables
+! ================
+ 
+      use Mod_SISVATLGSn
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+! OUTPUT
+! ------
+ 
+! #vp integer           ::  k
+ 
+      logical           ::  vector = .true.                            ! Vectorization  Switch
+      integer           ::  ikl,ikv                                    !
+      integer           ::  isn   ,isnp                                !
+      integer           ::  istoOK                                     !
+      real(kind=real8)  ::  G1_bak,G2_bak                              ! Old Values of G1, G2
+      real(kind=real8)  ::  dTsndz                                     ! Temperature Gradient
+      real(kind=real8)  ::  sWater                                     !        Water Content       [%]
+      real(kind=real8)  ::  exp1Wa                                     !
+      real(kind=real8)  ::  dDENDR                                     ! Dendricity Increment
+      real(kind=real8)  ::  DENDRn                                     ! Normalized Dendricity
+      real(kind=real8)  ::  SPHERn                                     ! Normalized Sphericity
+      real(kind=real8)  ::  Wet_OK                                     ! Wet Metamorphism Switch
+      real(kind=real8)  ::  OK__DE                                     !
+      real(kind=real8)  ::  OK__wd                                     ! New G*, from wet Dendritic
+      real(kind=real8)  ::  G1__wd                                     ! New G1, from wet Dendritic
+      real(kind=real8)  ::  G2__wd                                     ! New G2, from wet Dendritic
+      real(kind=real8)  ::  OKlowT                                     !
+      real(kind=real8)  ::  facVap                                     !
+      real(kind=real8)  ::  OK_ldd                                     !
+      real(kind=real8)  ::  G1_ldd                                     !
+      real(kind=real8)  ::  G2_ldd                                     !
+      real(kind=real8)  ::  DiamGx                                     !
+      real(kind=real8)  ::  DiamOK                                     !
+      real(kind=real8)  ::  No_Big                                     !
+      real(kind=real8)  ::  dSPHER                                     !
+      real(kind=real8)  ::  SPHER0                                     !
+      real(kind=real8)  ::  SPHbig                                     !
+      real(kind=real8)  ::  G1_lds                                     !
+      real(kind=real8)  ::  OK_mdT                                     !
+      real(kind=real8)  ::  OKmidT                                     !
+      real(kind=real8)  ::  OKhigT                                     !
+      real(kind=real8)  ::  OK_mdd                                     !
+      real(kind=real8)  ::  G1_mdd                                     !
+      real(kind=real8)  ::  G2_mdd                                     !
+      real(kind=real8)  ::  G1_mds                                     !
+      real(kind=real8)  ::  OK_hdd                                     !
+      real(kind=real8)  ::  G1_hdd                                     !
+      real(kind=real8)  ::  G2_hdd                                     !
+      real(kind=real8)  ::  OK_hds                                     !
+      real(kind=real8)  ::  G1_hds                                     !
+      real(kind=real8)  ::  T1__OK,T2__OK                              !
+      real(kind=real8)  ::  T3_xOK,T3__OK,T3_nOK                       !
+      real(kind=real8)  ::  ro1_OK,ro2_OK                              !
+      real(kind=real8)  ::  dT1_OK,dT2_OK,dT3xOK,dT3_OK                !
+      real(kind=real8)  ::  dT4xOK,dT4_OK,dT4nOK,AngSno                !
+      real(kind=real8)  ::  G2_hds,SphrOK,HISupd                       !
+      real(kind=real8)  ::  H1a_OK,H1b_OK,H1__OK                       !
+      real(kind=real8)  ::  H23aOK,H23bOK,H23_OK                       !
+      real(kind=real8)  ::  H2__OK,H3__OK                              !
+      real(kind=real8)  ::  H45_OK,H4__OK,H5__OK                       !
+      real(kind=real8)  ::  ViscSn,OK_Liq,OK_Ang,OKxLiq                !
+      real(kind=real8)  ::  dSnMas,dzsnew,rosnew,rosmax                !
+ 
+      real(kind=real8)  ::  epsi5  = 1.0e-5                            ! Alpha ev67 single precision	
+      real(kind=real8)  ::  epsi15 = 1.0e-15                           ! Minimal 'dry' Sphericity
+!     real(kind=real8)  ::  vdiam1 = 4.0                               ! Small Grains Min.Diam.[.0001m]
+      real(kind=real8)  ::  vdiam2 = 0.5                               ! Spher.Variat.Max Diam.    [mm]
+      real(kind=real8)  ::  vdiam3 = 3.0                               ! Min.Diam.|Limit Spher.    [mm]
+      real(kind=real8)  ::  vdiam4 = 2.0                               ! Min.Diam.|Viscosity Change
+      real(kind=real8)  ::  vsphe1 = 1.0                               ! Max Sphericity
+      real(kind=real8)  ::  vsphe2 = 1.0e9                             ! Low T Metamorphism  Coeff.
+      real(kind=real8)  ::  vsphe3 = 0.5                               ! Max.Sphericity (history=1)
+      real(kind=real8)  ::  vsphe4 = 0.1                               ! Min.Sphericity=>history=1
+ 
+! DATA (Coefficient Fonction fort Gradient Marbouty)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      real(kind=real8)  ::  vtang1 = 40.0                              ! Temperature Contribution v
+      real(kind=real8)  ::  vtang2 =  6.0                              !
+      real(kind=real8)  ::  vtang3 = 22.0                              !
+      real(kind=real8)  ::  vtang4 =  0.7                              !
+      real(kind=real8)  ::  vtang5 =  0.3                              !
+      real(kind=real8)  ::  vtang6 =  6.0                              !
+      real(kind=real8)  ::  vtang7 =  1.0                              !
+      real(kind=real8)  ::  vtang8 =  0.8                              !
+      real(kind=real8)  ::  vtang9 = 16.0                              !
+      real(kind=real8)  ::  vtanga =  0.2                              !
+      real(kind=real8)  ::  vtangb =  0.2                              !
+      real(kind=real8)  ::  vtangc = 18.0                              ! Temperature Contribution ^
+ 
+      real(kind=real8)  ::  vrang1 =  0.40                             ! Density     Contribution v
+      real(kind=real8)  ::  vrang2 =  0.15                             ! Density     Contribution ^
+ 
+      real(kind=real8)  ::  vgang1 =  0.70                             ! Grad(T)     Contribution v
+      real(kind=real8)  ::  vgang2 =  0.25                             !
+      real(kind=real8)  ::  vgang3 =  0.40                             !
+      real(kind=real8)  ::  vgang4 =  0.50                             !
+      real(kind=real8)  ::  vgang5 =  0.10                             !
+      real(kind=real8)  ::  vgang6 =  0.15                             !
+      real(kind=real8)  ::  vgang7 =  0.10                             !
+      real(kind=real8)  ::  vgang8 =  0.55                             !
+      real(kind=real8)  ::  vgang9 =  0.65                             !
+      real(kind=real8)  ::  vganga =  0.20                             !
+      real(kind=real8)  ::  vgangb =  0.85                             !
+      real(kind=real8)  ::  vgangc =  0.15                             ! Grad(T)     Contribution ^
+ 
+      real(kind=real8)  ::  vgran6 = 51.                               ! Max.Sphericity for Settling
+      real(kind=real8)  ::  vtelv1 =  5.e-1                            ! Threshold | history = 2, 3
+      real(kind=real8)  ::   vvap1 = -6.e3                             ! Vapor Pressure Coefficient
+      real(kind=real8)  ::   vvap2 =  0.4                              ! Vapor Pressure Exponent
+      real(kind=real8)  ::  vgrat1 =  0.05                             ! Boundary weak/mid   grad(T)
+      real(kind=real8)  ::  vgrat2 =  0.15                             ! Boundary mid/strong grad(T)
+      real(kind=real8)  ::     vfi =  0.09                             ! PHI,         strong grad(T)
+ 
+      real(kind=real8)  ::  vvisc1 =   0.70                            ! Viscosity Coefficients
+      real(kind=real8)  ::  vvisc2 =   1.11e5                          !
+      real(kind=real8)  ::  vvisc3 =  23.00                            !
+      real(kind=real8)  ::  vvisc4 =   0.10                            ! Viscosity Coefficients
+      real(kind=real8)  ::  vvisc5 =   1.00                            ! Viscosity Coefficients, wet Snow
+      real(kind=real8)  ::  vvisc6 =   2.00                            ! Viscosity Coefficients, wet Snow
+      real(kind=real8)  ::  vvisc7 =  10.00                            ! Viscosity Coefficients, wet Snow
+      real(kind=real8)  ::  rovisc =   0.25                            ! Wet Snow Density  Influence
+      real(kind=real8)  ::    vdz3 =   0.30                            ! Maximum Layer Densification
+ 
+      real(kind=real8)  ::  OK__ws                                     ! New G2
+      real(kind=real8)  ::  G1__ws                                     ! New G1, from wet Spheric
+      real(kind=real8)  ::  G2__ws                                     ! New G2, from wet Spheric
+      real(kind=real8)  ::  husi_0 =  20.                              ! Constant for New G2:   10  * 2
+      real(kind=real8)  ::  husi_1 =   0.23873                         ! Constant for New G2: (3/4) /pi
+      real(kind=real8)  ::  husi_2 =   4.18880                         ! Constant for New G2: (4/3) *pi
+      real(kind=real8)  ::  husi_3 =   0.33333                         ! Constant for New G2:  1/3
+      real(kind=real8)  ::  vtail1 =   1.28e-08                        ! Constant for New G2:  Wet Metamorphism
+      real(kind=real8)  ::  vtail2 =   4.22e-10                        ! Constant for New G2: (NON Dendritic / Spheric)
+      real(kind=real8)  ::  frac_j                                     ! Time Step            [Day]
+ 
+      real(kind=real8)  ::   vdent1 =  2.e8                            ! Wet Snow Metamorphism
+      integer           ::  nvdent1 =  3                               ! (Coefficients for
+      integer           ::  nvdent2 = 16                               !           Dendricity)
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+      allocate            ( ro_dry(kcolp,mwp,nsnow) )                  ! Dry Density            [g/cm3]
+      allocate            ( etaSno(kcolp,mwp,nsnow) )                  ! Liquid Water Content   [g/cm2]
+      allocate            ( SnMass(kcolp,mwp)       )                  ! Snow   Mass            [kg/m2]
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+!  1. Metamorphoses dans les Strates
+!     Metamorphism
+!     ==============================
+ 
+      frac_j = dt__SV / 86400.                        ! Time Step [Day]
+ 
+ 
+!  1.1 Initialisation: teneur en eau liquide et gradient de temperature
+!  ------------------  liquid water content and temperature gradient
+ 
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ro_dry(ikl,ikv,isn) = 1.e-3 *ro__SV(ikl,ikv,isn)   &! Dry Density
+     &                    *(1.    -eta_SV(ikl,ikv,isn))   !         [g/cm3]
+          etaSno(ikl,ikv,isn) = 1.e-1 *dzsnSV(ikl,ikv,isn)   &! Liquid Water
+     &                    *        ro__SV(ikl,ikv,isn)   &! Content [g/cm2]
+     &                    *        eta_SV(ikl,ikv,isn)!
+        END DO
+        END DO
+      END DO
+ 
+      DO   isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+          isnp   = min(isn+1,isnoSV(ikl,ikv))
+ 
+          dTsndz = abs( (TsisSV(ikl,ikv,isnp)-TsisSV(ikl,ikv,isn-1)) *2.e-2&
+     &            /max(((dzsnSV(ikl,ikv,isnp)+dzsnSV(ikl,ikv,isn)  )   &
+     &                 *(           isnp -           isn)              &
+     &                 +(dzsnSV(ikl,ikv,isn )+dzsnSV(ikl,ikv,isn-1))),eps6))
+!         Factor 1.d-2 for Conversion K/m --> K/cm
+ 
+ 
+!  1.2 Metamorphose humide
+!      Wet Snow Metamorphism
+!      ---------------------
+ 
+          Wet_OK = max(zer0,sign(un_1,eta_SV(ikl,ikv,isn)-eps6))
+ 
+ 
+!      Vitesse de diminution de la dendricite
+!      Rate of the dendricity decrease
+!      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          sWater=1.d-1*ro__SV(ikl,ikv,isn)*eta_SV(ikl,ikv,isn)         &
+     &       /max(eps6,ro_dry(ikl,ikv,isn))
+! .    sWater:Water Content [%]
+!             1.d-1= 1.d2(1->%) * 1.d-3(ro__SV*eta_SV:kg/m3->g/cm3)
+ 
+          exp1Wa=   sWater**nvdent1
+          dDENDR=max(exp1Wa/nvdent2,vdent1*exp(vvap1/Tf_Sno))
+ 
+!  1.2.1 Cas dendritique/dendritic Case
+!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          OK__wd=max(zer0,                           &!
+     &               sign(un_1,-G1snSV(ikl,ikv,isn)  &!
+     &                         -eps6           ))     !
+ 
+          DENDRn=-G1snSV(ikl,ikv,isn)/G1_dSV  ! Normalized Dendricity (+)
+          SPHERn= G2snSV(ikl,ikv,isn)/G1_dSV  ! Normalized Sphericity
+          DENDRn= DENDRn -dDENDR *frac_j  ! New        Dendricity (+)
+          SPHERn= SPHERn +dDENDR *frac_j  ! New        Sphericity
+ 
+          OK__DE=max(zer0,                           &! IF 1.,
+     &               sign(un_1, DENDRn               &! NO change
+     &                         -eps6           ))     ! Dendr. -> Spheric
+ 
+          G1__wd=OK__DE *    (      -DENDRn*G1_dSV)  &! Dendritic
+     &      +(1.-OK__DE)* min(G1_dSV,SPHERn*G1_dSV)   ! Dendr. -> Spheric
+          G2__wd=OK__DE * min(G1_dSV,SPHERn*G1_dSV)  &! Spheric
+     &      +(1.-OK__DE)*(ADSdSV-min(SPHERn,vsphe1))  ! Spher. -> Size
+ 
+!  1.2.2 Cas non dendritique non completement spherique
+!        Evolution de la Sphericite seulement.
+!        Non dendritic and not completely spheric Case
+!        Evolution of    Sphericity only (not size)
+!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          OK__ws=max(zer0,                           &!
+     &               sign(un_1, G1_dSV               &!
+     &                         -epsi5                &!
+     &                         -G1snSV(ikl,ikv,isn))) !
+ 
+          SPHERn= G1snSV(ikl,ikv,isn)/G1_dSV
+          SPHERn= SPHERn +dDENDR *frac_j
+          G1__ws=         min(G1_dSV,SPHERn*G1_dSV)
+ 
+!  1.2.3 Cas non dendritique et spherique / non dendritic and spheric
+!        Evolution de la Taille seulement / Evolution of Size only
+!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          G2__ws =  husi_0                                             &
+     &           *( husi_1                                             &
+     &            *(husi_2 *( G2snSV(ikl,ikv,isn)/husi_0)**3           &
+     &                      +(vtail1 +vtail2 *exp1Wa    )*dt__SV))     &
+     &           ** husi_3
+ 
+ 
+!  1.3 Metamorposes seches / Dry Metamorphism
+!      --------------------------------------
+ 
+ 
+!  1.3.1 Calcul Metamorphose faible/low Gradient (0.00-0.05 deg/cm)
+!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          OKlowT=max(zer0,                           &!
+     &               sign(un_1, vgrat1               &!
+     &                         -dTsndz         ))     !
+ 
+          facVap=exp(vvap1/TsisSV(ikl,ikv,isn))
+ 
+!  1.3.1.1 Cas dendritique / dendritic Case
+ 
+          OK_ldd=max(zer0,                           &!
+     &               sign(un_1,-G1snSV(ikl,ikv,isn)  &!
+     &                         -eps6           ))     !
+ 
+          DENDRn=-G1snSV(ikl,ikv,isn)     /G1_dSV
+          SPHERn= G2snSV(ikl,ikv,isn)     /G1_dSV
+          DENDRn= DENDRn-vdent1*facVap*frac_j
+          SPHERn= SPHERn+vsphe2*facVap*frac_j
+ 
+          OK__DE=max(zer0,                           &! IF 1.,
+     &               sign(un_1, DENDRn               &! NO change
+     &                         -eps6           ))     ! Dendr. -> Spheric
+ 
+          G1_ldd= OK__DE *    (      -DENDRn*G1_dSV) &! Dendritic
+     &       +(1.-OK__DE)* min(G1_dSV,SPHERn*G1_dSV)  ! Dendr. -> Spheric
+          G2_ldd= OK__DE * min(G1_dSV,SPHERn*G1_dSV) &! Spheric
+     &       +(1.-OK__DE)*(ADSdSV-min(SPHERn,vsphe1)) ! Spher. -> Size
+ 
+!  1.3.1.2 Cas non dendritique / non dendritic Case
+ 
+          SPHERn=G1snSV(ikl,ikv,isn)/G1_dSV
+          DiamGx=G2snSV(ikl,ikv,isn)*0.1
+ 
+          istoOK=min( abs(istoSV(ikl,ikv,isn)-       &!
+     &                    istdSV(1)      ),1)         ! zero if istoSV = 1
+          DiamOK=max(zer0,  sign(un_1,vdiam2-DiamGx))
+          No_Big=    istoOK+DiamOK
+          No_Big=min(No_Big,un_1)
+ 
+          dSPHER=           vsphe2*facVap*frac_j      !
+          SPHER0=    SPHERn+dSPHER                    ! small grains
+          SPHbig=    SPHERn+dSPHER                   &! big   grains
+     &        *exp(min(zer0,vdiam3-G2snSV(ikl,ikv,isn)))  ! (history = 2 or 3)
+          SPHbig=       min(vsphe3,SPHbig)            ! limited sphericity
+          SPHERn= No_Big *  SPHER0                   &!
+     &      + (1.-No_Big)*  SPHbig                    !
+ 
+! HG v Precudes underflow
+          SPHERn=       max(epsi15,SPHERn)            !
+! HG ^ Precudes underflow
+ 
+          G1_lds=       min(G1_dSV,SPHERn*G1_dSV)     !
+ 
+!  1.3.2 Calcul Metamorphose Gradient Moyen/Moderate (0.05-0.15)
+!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          OK_mdT=max(zer0,                           &!
+     &               sign(un_1, vgrat2               &!
+     &                         -dTsndz))              !
+          OKmidT=               OK_mdT  *(1.-OKlowT)  !
+          OKhigT=          (1. -OK_mdT) *(1.-OKlowT)  !
+ 
+          facVap=vdent1*exp(vvap1/TsisSV(ikl,ikv,isn))   &!
+     &                 *   (1.e2 *dTsndz)**vvap2      !
+ 
+!  1.3.2.1 cas dendritique / dendritic case.
+ 
+          OK_mdd=max(zer0,                           &!
+     &               sign(un_1,-G1snSV(ikl,ikv,isn)  &!
+     &                         -eps6           ))     !
+ 
+          DENDRn=-G1snSV(ikl,ikv,isn)/G1_dSV
+          SPHERn= G2snSV(ikl,ikv,isn)/G1_dSV
+          DENDRn= DENDRn - facVap*frac_j
+          SPHERn= SPHERn - facVap*frac_j
+ 
+          OK__DE=max(zer0,                           &! IF 1.,
+     &               sign(un_1, DENDRn               &! NO change
+     &                         -eps6           ))     ! Dendr. -> Spheric
+ 
+          G1_mdd= OK__DE *    (      -DENDRn*G1_dSV) &! Dendritic
+     &       +(1.-OK__DE)* max(zer0  ,SPHERn*G1_dSV)  ! Dendr. -> Spheric
+          G2_mdd= OK__DE * max(zer0  ,SPHERn*G1_dSV) &! Spheric
+     &       +(1.-OK__DE)*(ADSdSV-max(SPHERn,zer0  )) ! Spher. -> Size
+ 
+!  1.3.2.2 Cas non dendritique / non dendritic Case
+ 
+          SPHERn=G1snSV(ikl,ikv,isn)/G1_dSV
+          SPHERn=         SPHERn-facVap*frac_j
+          G1_mds=max(zer0,SPHERn*G1_dSV)
+ 
+!  1.3.3 Calcul Metamorphose fort / high Gradient
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          facVap=vdent1*exp(vvap1/TsisSV(ikl,ikv,isn))   &!
+     &                 *   (1.e2 *dTsndz)**vvap2      !
+ 
+!  1.3.3.1 Cas dendritique / dendritic Case
+ 
+          OK_hdd=max(zer0,                           &!
+     &               sign(un_1,-G1snSV(ikl,ikv,isn)  &!
+     &                         -eps6           ))     !
+ 
+          DENDRn=-G1snSV(ikl,ikv,isn)/G1_dSV          !
+          SPHERn= G2snSV(ikl,ikv,isn)/G1_dSV          !
+          DENDRn= DENDRn - facVap*frac_j              !
+          SPHERn= SPHERn - facVap*frac_j              ! Non dendritic
+                                                      ! and angular
+          OK__DE=max(zer0,                           &! IF 1.,
+     &               sign(un_1, DENDRn               &! NO change
+     &                         -eps6  ))              ! Dendr. -> Spheric
+ 
+          G1_hdd= OK__DE *    (      -DENDRn*G1_dSV) &! Dendritic
+     &       +(1.-OK__DE)* max(zer0  ,SPHERn*G1_dSV)  ! Dendr. -> Spheric
+          G2_hdd= OK__DE * max(zer0  ,SPHERn*G1_dSV) &! Spheric
+     &       +(1.-OK__DE)*(ADSdSV-max(SPHERn,zer0  )) ! Spher. -> Size
+ 
+!  1.3.3.2 Cas non dendritique non completement anguleux.
+!          non dendritic and spericity gt. 0
+ 
+          OK_hds=max(zer0,                           &!
+     &               sign(un_1, G1snSV(ikl,ikv,isn)  &!
+     &                         -eps6           ))     !
+ 
+          SPHERn= G1snSV(ikl,ikv,isn)/G1_dSV
+          SPHERn= SPHERn - facVap*frac_j
+          G1_hds= max(zer0,SPHERn*G1_dSV)
+ 
+!  1.3.3.3 Cas non dendritique et anguleux
+!          dendritic and spericity = 0.
+ 
+          T1__OK = max(zer0,sign(un_1,TsisSV(ikl,ikv,isn)-Tf_Sno+vtang1))
+          T2__OK = max(zer0,sign(un_1,TsisSV(ikl,ikv,isn)-Tf_Sno+vtang2))
+          T3_xOK = max(zer0,sign(un_1,TsisSV(ikl,ikv,isn)-Tf_Sno+vtang3))
+          T3__OK =                    T3_xOK  * (1. - T2__OK)
+          T3_nOK =              (1. - T3_xOK) * (1. - T2__OK)
+          ro1_OK = max(zer0,sign(un_1,vrang1-ro_dry(ikl,ikv,isn)))
+          ro2_OK = max(zer0,sign(un_1,ro_dry(ikl,ikv,isn)-vrang2))
+          dT1_OK = max(zer0,sign(un_1,vgang1-dTsndz         ))
+          dT2_OK = max(zer0,sign(un_1,vgang2-dTsndz         ))
+          dT3xOK = max(zer0,sign(un_1,vgang3-dTsndz         ))
+          dT3_OK =                    dT3xOK  * (1. - dT2_OK)
+          dT4xOK = max(zer0,sign(un_1,vgang4-dTsndz         ))
+          dT4_OK =                    dT4xOK  * (1. - dT3_OK)          &
+     &                                        * (1. - dT2_OK)
+          dT4nOK =              (1. - dT4xOK) * (1. - dT3_OK)          &
+     &                                        * (1. - dT2_OK)
+ 
+!  Influence de la Temperature /Temperature Influence
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          AngSno =                                                     &
+     &      T1__OK                                                     & ! 11
+     &    *(T2__OK*(vtang4+vtang5*(Tf_Sno       -TsisSV(ikl,ikv,isn))  & ! 12
+     &                    /vtang6)                                     & !
+     &     +T3__OK*(vtang7-vtang8*(Tf_Sno-vtang2-TsisSV(ikl,ikv,isn))  & ! 13
+     &                    /vtang9)                                     & !
+     &     +T3_nOK*(vtanga-vtangb*(Tf_Sno-vtang3-TsisSV(ikl,ikv,isn))  & ! 14
+     &                    /vtangc))                                    & !
+ 
+!  Influence de la Masse Volumique /Density Influence
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+     &    * ro1_OK                                                     & !
+     &        *(   ro2_OK*(1. - (ro_dry(ikl,ikv,isn)-vrang2)           & !
+     &                                  /(vrang1-vrang2))              & !
+     &         +1.-ro2_OK                                )             & !
+ 
+!  Influence du Gradient de Temperature /Temperature Gradient Influence
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+     &        *(   dT1_OK*(dT2_OK*vgang5*(dTsndz-vgang6)               & ! 15
+     &                                  /(vgang2-vgang6)               & !
+     &                    +dT3_OK*vgang7                               & ! 16
+     &                    +dT4_OK*vgang9                               & ! 17
+     &                    +dT4nOK*vgangb                )              & ! 18
+     &         +1.-dT1_OK                                )             & !
+     &    + ro1_OK                                                     & !
+     &        *    dT1_OK*(dT3_OK*vgang8*(dTsndz-vgang2)               & !
+     &                                  /(vgang3-vgang2)               & !
+     &                    +dT4_OK*vganga*(dTsndz-vgang3)               & !
+     &                                  /(vgang4-vgang3)               & !
+     &                    +dT4nOK*vgangc*(dTsndz-vgang4)               & !
+     &                                  /(vgang1-vgang4))                !
+ 
+          G2_hds = G2snSV(ikl,ikv,isn) + 1.d2 *AngSno*vfi     *frac_j
+ 
+ 
+! New Properties
+! --------------
+ 
+          G1_bak          = G1snSV(ikl,ikv,isn)
+          G2_bak          = G2snSV(ikl,ikv,isn)
+ 
+          G1snSV(ikl,ikv,isn) = Wet_OK * (    OK__wd             *G1__wd   & !  1
+     &                               +(1.-OK__wd)*    OK__ws *G1__ws   & !  2
+     &                               +(1.-OK__wd)*(1.-OK__ws)*G1_bak)  & !  3
+     &               +(1. - Wet_OK)                                    & !
+     &                *(    OKlowT  *(    OK_ldd             *G1_ldd   & !  4
+     &                               +(1.-OK_ldd)            *G1_lds)  & !  5
+     &                    + OKmidT  *(    OK_mdd             *G1_mdd   & !  6
+     &                               +(1.-OK_mdd)            *G1_mds)  & !  7
+     &                    + OKhigT  *(    OK_hdd             *G1_hdd   & !  8
+     &                               +(1.-OK_hdd)*    OK_hds *G1_hds   & !  9
+     &                               +(1.-OK_hdd)*(1.-OK_hds)*G1_bak))   ! 10
+ 
+! XF
+          IF (G1snSV(ikl,ikv,isn).GE.0.0.AND.G1snSV(ikl,ikv,isn)<0.1)  & !
+! HG -------------------------^^^^^^
+     &        G2_hds = G2snSV(ikl,ikv,isn) + 1.d1 *AngSno*vfi    *frac_j !
+!             Previens chute exageree de l'albedo lorsque G1~0.
+! XF
+ 
+          G2snSV(ikl,ikv,isn) = Wet_OK * (    OK__wd             *G2__wd   & !  1
+     &                               +(1.-OK__wd)*    OK__ws *G2_bak   & !  2
+     &                               +(1.-OK__wd)*(1.-OK__ws)*G2__ws)  & !  3
+     &               +(1. - Wet_OK)                                    & !
+     &                *(    OKlowT  *(    OK_ldd             *G2_ldd   & !  4
+     &                               +(1.-OK_ldd)            *G2_bak)  & !  5
+     &                    + OKmidT  *(    OK_mdd             *G2_mdd   & !  6
+     &                               +(1.-OK_mdd)            *G2_bak)  & !  7
+     &                    + OKhigT  *(    OK_hdd             *G2_hdd   & !  8
+     &                               +(1.-OK_hdd)*    OK_hds *G2_bak   & !  9
+     &                               +(1.-OK_hdd)*(1.-OK_hds)*G2_hds))   ! 10
+ 
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp     G_curr( 1) =     Wet_OK             *    OK__wd
+! #vp     G_curr( 2) =     Wet_OK             *(1.-OK__wd)*    OK__ws
+! #vp     G_curr( 3) =     Wet_OK             *(1.-OK__wd)*(1.-OK__ws)
+! #vp     G_curr( 4) = (1.-Wet_OK)*    OKlowT *    OK_ldd
+! #vp     G_curr( 5) = (1.-Wet_OK)*    OKlowT *(1.-OK_ldd)
+! #vp     G_curr( 6) = (1.-Wet_OK)*    OKmidT *    OK_mdd
+! #vp     G_curr( 7) = (1.-Wet_OK)*    OKmidT *(1.-OK_mdd)
+! #vp     G_curr( 8) = (1.-Wet_OK)*    OKhigT *    OK_hdd
+! #vp     G_curr( 9) = (1.-Wet_OK)*    OKhigT *(1.-OK_hdd)*    OK_hds
+! #vp     G_curr(10) = (1.-Wet_OK)*    OKhigT *(1.-OK_hdd)*(1.-OK_hds)
+! #vp     G_curr(11) =     T1__OK                         * G_curr(10)
+! #vp     G_curr(12) =     T2__OK                         * G_curr(10)
+! #vp     G_curr(13) =     T3__OK                         * G_curr(10)
+! #vp     G_curr(14) =     T3_nOK                         * G_curr(10)
+! #vp     G_curr(15) =     ro1_OK*     dT1_OK *    dT2_OK * G_curr(10)
+! #vp     G_curr(16) =     ro1_OK*     dT1_OK *    dT3_OK * G_curr(10)
+! #vp     G_curr(17) =     ro1_OK*     dT1_OK *    dT4_OK * G_curr(10)
+! #vp     G_curr(18) =     ro1_OK*     dT1_OK *    dT4nOK * G_curr(10)
+ 
+! #vp     Gcases( 1) = max(Gcases( 1),G_curr( 1))
+! #vp     Gcases( 2) = max(Gcases( 2),G_curr( 2))
+! #vp     Gcases( 3) = max(Gcases( 3),G_curr( 3))
+! #vp     Gcases( 4) = max(Gcases( 4),G_curr( 4))
+! #vp     Gcases( 5) = max(Gcases( 5),G_curr( 5))
+! #vp     Gcases( 6) = max(Gcases( 6),G_curr( 6))
+! #vp     Gcases( 7) = max(Gcases( 7),G_curr( 7))
+! #vp     Gcases( 8) = max(Gcases( 8),G_curr( 8))
+! #vp     Gcases( 9) = max(Gcases( 9),G_curr( 9))
+! #vp     Gcases(10) = max(Gcases(10),G_curr(10))
+! #vp     Gcases(11) = max(Gcases(11),G_curr(11))
+! #vp     Gcases(12) = max(Gcases(12),G_curr(12))
+! #vp     Gcases(13) = max(Gcases(13),G_curr(13))
+! #vp     Gcases(14) = max(Gcases(14),G_curr(14))
+! #vp     Gcases(15) = max(Gcases(15),G_curr(15))
+! #vp     Gcases(16) = max(Gcases(16),G_curr(16))
+! #vp     Gcases(17) = max(Gcases(17),G_curr(17))
+! #vp     Gcases(18) = max(Gcases(18),G_curr(18))
+ 
+! #vp     IF          (isn    .le.     isnoSV(ikl,ikv))                &
+! #vp&    write(47,471)isn            ,isnoSV(ikl,ikv)                    ,&
+! #vp&                 TsisSV(ikl,ikv,isn),ro__SV(ikl,ikv,isn),eta_SV(ikl,ikv,isn),&
+! #vp&                 G1_bak         ,G2_bak         ,istoSV(ikl,ikv,isn),&
+! #vp&                 dTsndz,                                         &
+! #vp&                (       k ,k=1,18),                              &
+! #vp&                (G_curr(k),k=1,18),                              &
+! #vp&                (Gcases(k),k=1,18),                              &
+! #vp&                 Wet_OK,OK__wd,G1__wd,G2__wd,                    &
+! #vp&                     1.-OK__wd,OK__ws,G1__ws,1.-OK__ws,G2__ws,   &
+! #vp&              1.-Wet_OK,OKlowT,OK_ldd,G1_ldd,          G2_ldd,   &
+! #vp&                            1.-OK_ldd,G1_lds,                    &
+! #vp&                        OKmidT,OK_mdd,G1_mdd,          G1_mdd,   &
+! #vp&                            1.-OK_mdd,G1_mds,                    &
+! #vp&                        OKhigT,OK_hdd,G1_hdd,          G2_hdd,   &
+! #vp&                            1.-OK_hdd,OK_hds,          G1_hds,   &
+! #vp&                                             1.-OK_hds,G2_hds,   &
+! #vp&                 G1snSV(ikl,ikv,isn),                            &
+! #vp&                 G2snSV(ikl,ikv,isn)
+! #vp 471 format(                                                      &
+! #vp&         /,' isn     =  ',i4,6x,'(MAX.:',i4,')',                 &
+! #vp&         /,' T       =  ',f8.3,                                  &
+! #vp&         /,' ro      =  ',f8.3,                                  &
+! #vp&         /,' eta     =  ',f8.3,                                  &
+! #vp&         /,' G1      =  ',f8.3,                                  &
+! #vp&         /,' G2      =  ',f8.3,                                  &
+! #vp&         /,' Histor. =  ',i4  ,                                  &
+! #vp&         /,' Grad(T) =  ',f8.3,'                   ' ,18i3  ,    &
+! #vp&/,         '                       Current    Case: ',18f3.0,    &
+! #vp&/,         '                       Cases performed: ',18f3.0,    &
+! #vp&/,' ------------------------------------------------------------',&
+! #vp&             '-----------+------------------+------------------+',&
+! #vp&/,' Status                                                      ',&
+! #vp&             '           | G1               | G2               |',&
+! #vp&/,' ------------------------------------------------------------',&
+! #vp&             '-----------+------------------+------------------+',&
+! #vp&/,'    Wet_OK: ',f8.3,'                  OK__wd: ',f8.3,'       ',&
+! #vp&             '           | G1__wd: ',f8.3,' | G2__wd: ',f8.5,' |',&
+! #vp&/,'                                   1.-OK__wd: ',f8.3,' OK__ws',&
+! #vp&             ': ',f8.3,' | G1__ws: ',f8.3,' |                  |',&
+! #vp&/,'                                                    1.-OK__ws',&
+! #vp&             ': ',f8.3,' |                  | G2__ws: ',f8.5,' |',&
+! #vp&/,' 1.-Wet_OK: ',f8.3,' OKlowT: ',f8.3,' OK_ldd: ',f8.3,'       ',&
+! #vp&             '           | G1_ldd: ',f8.3,' | G2_ldd: ',f8.5,' |',&
+! #vp&/,'                                   1.-OK_ldd: ',f8.3,'       ',&
+! #vp&             '           | G1_lds: ',f8.3,' |                  |',&
+! #vp&/,'                     OKmidT: ',f8.3,' OK_mdd: ',f8.3,'       ',&
+! #vp&             '           | G1_mdd: ',f8.3,' | G2_mdd: ',f8.5,' |',&
+! #vp&/,'                                   1.-OK_mdd: ',f8.3,'       ',&
+! #vp&             '           | G1_mds: ',f8.3,' |                  |',&
+! #vp&/,'                     OKhigT: ',f8.3,' OK_hdd: ',f8.3,'       ',&
+! #vp&             '           | G1_hdd: ',f8.3,' | G2_hdd: ',f8.5,' |',&
+! #vp&/,'                                   1.-OK_hdd: ',f8.3,' OK_hds',&
+! #vp&             ': ',f8.3,' | G1_hds: ',f8.3,' |                  |',&
+! #vp&/,'                                                    1.-OK_hds',&
+! #vp&             ': ',f8.3,' |                  | G2_hds: ',f8.5,' |',&
+! #vp&/,' ------------------------------------------------------------',&
+! #vp&             '-----------+------------------+------------------+',&
+! #vp&/,'                                                             ',&
+! #vp&             '           |         ',f8.3,' |         ',f8.5,' |',&
+! #vp&/,' ------------------------------------------------------------',&
+! #vp&             '-----------+------------------+------------------+')
+        END DO
+        END DO
+      END DO
+ 
+ 
+!  2. Mise a Jour Variables Historiques (Cas non dendritique)
+!     Update of the historical Variables
+!     =======================================================
+ 
+      IF (vector)                                                   THEN
+        DO isn=1,nsnow
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+ 
+          SphrOK = max(zer0,sign(un_1,       G1snSV(ikl,ikv,isn)))
+          H1a_OK = max(zer0,sign(un_1,vsphe4-G1snSV(ikl,ikv,isn)))
+          H1b_OK =     1   - min(1   ,       istoSV(ikl,ikv,isn))
+          H1__OK =                    H1a_OK*H1b_OK
+          H23aOK = max(zer0,sign(un_1,vsphe4-G1_dSV                    &
+     &                                      +G1snSV(ikl,ikv,isn)))
+          H23bOK = max(zer0,sign(un_1,etaSno(ikl,ikv,isn)              &
+     &                      /max(eps6,dzsnSV(ikl,ikv,isn))             &
+     &                                      -vtelv1         ))
+          H23_OK =                    H23aOK*H23bOK
+          H2__OK =     1   - min(1   ,       istoSV(ikl,ikv,isn))
+          H3__OK =     1   - min(1   ,   abs(istoSV(ikl,ikv,isn)-istdSV(1)))
+          H45_OK = max(zer0,sign(un_1,Tf_Sno-TsisSV(ikl,ikv,isn)+eps6))
+          H4__OK =     1   - min(1   ,   abs(istoSV(ikl,ikv,isn)-istdSV(2)))
+          H5__OK =     1   - min(1   ,   abs(istoSV(ikl,ikv,isn)-istdSV(3)))
+ 
+          HISupd          =                                            &
+     &    SphrOK*(H1__OK                             *istdSV(1)        &
+     &       +(1.-H1__OK)*    H23_OK         *(H2__OK*istdSV(2)        &
+     &                                        +H3__OK*istdSV(3))       &
+     &       +(1.-H1__OK)*(1.-H23_OK) *H45_OK*(H4__OK*istdSV(4)        &
+     &                                        +H5__OK*istdSV(5)))
+          istoSV(ikl,ikv,isn)=int(HISupd) +                            &
+     &        int(1.-min(un_1,HISupd))               *istoSV(ikl,ikv,isn)
+        END DO
+        END DO
+        END DO
+      ELSE
+ 
+ 
+!  2. Mise a Jour Variables Historiques (Cas non dendritique)
+!     Update of the historical Variables
+!     =======================================================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+        DO isn=iiceSV(ikl,ikv),isnoSV(ikl,ikv)
+          IF  (G1snSV(ikl,ikv,isn).ge.0.)                           THEN
+            IF(G1snSV(ikl,ikv,isn).lt.vsphe4.and.istoSV(ikl,ikv,isn).eq.0)  THEN
+                   istoSV(ikl,ikv,isn)=istdSV(1)
+            ELSEIF(G1_dSV-G1snSV(ikl,ikv,isn)         .lt.vsphe4.and.  &
+     &             etaSno(ikl,ikv,isn)/dzsnSV(ikl,ikv,isn).gt.vtelv1)   THEN
+              IF  (istoSV(ikl,ikv,isn).eq.0)                           &
+     &             istoSV(ikl,ikv,isn)=   istdSV(2)
+              IF  (istoSV(ikl,ikv,isn).eq.istdSV(1))                   &
+     &             istoSV(ikl,ikv,isn)=   istdSV(3)
+            ELSEIF(TsisSV(ikl,ikv,isn).lt.Tf_Sno)                   THEN
+              IF  (istoSV(ikl,ikv,isn).eq.istdSV(2))                   &
+     &             istoSV(ikl,ikv,isn)=   istdSV(4)
+              IF  (istoSV(ikl,ikv,isn).eq.istdSV(3))                   &
+     &             istoSV(ikl,ikv,isn)=   istdSV(5)
+            END IF
+          END IF
+        END DO
+        END DO
+        END DO
+      END IF
+ 
+ 
+!  3. Tassement mecanique /mechanical Settlement
+!     ==========================================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          SnMass(ikl,ikv) = 0.
+        END DO
+        END DO
+      DO isn=nsnow,1,-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          dSnMas     = 100.*dzsnSV(ikl,ikv,isn)*ro_dry(ikl,ikv,isn)
+          SnMass(ikl,ikv)=      SnMass(ikl,ikv)+0.5*dSnMas
+          ViscSn     =      vvisc1         *vvisc2                     &
+     &               *exp(vvisc3           *ro_dry(ikl,ikv,isn)        &
+     &                   +vvisc4*abs(Tf_Sno-TsisSV(ikl,ikv,isn)))      &
+     &                                     *ro_dry(ikl,ikv,isn)/rovisc
+ 
+!  Changement de Viscosite si Teneur en Eau liquide
+!  Change of the Viscosity if liquid Water Content
+!  ------------------------------------------------
+ 
+          OK_Liq     =    max(zer0,sign(un_1,etaSno(ikl,ikv,isn)-eps6))
+          OK_Ang     =    max(zer0,sign(un_1,vgran6-G1snSV(ikl,ikv,isn)))  &
+     &                *(1-min(1   , abs(istoSV(ikl,ikv,isn)-istdSV(1))))
+ 
+! OUTPUT/Verification: Snow   Properties
+! #vs     IF (G1snSV(ikl,ikv,isn).gt.0..AND.G1snSV(ikl,ikv,isn).lt.vsphe4  &
+! #vs&                             .AND.istoSV(ikl,ikv,isn).eq.     0) &
+! #vs&    THEN
+! #vs       write(6,*) ikl,ikv,isn,' G1,G2,hist,OK_Ang  ',             &
+! #vs&          G1snSV(ikl,ikv,isn), G2snSV(ikl,ikv,isn),istoSV(ikl,ikv,isn),OK_Ang
+! #vs       stop "Grains anguleux mal d?finis"
+! #vs     END IF
+ 
+          OKxLiq     =    max(zer0,sign(un_1,vtelv1-etaSno(ikl,ikv,isn)&
+     &                                    /max(eps6,dzsnSV(ikl,ikv,isn)))) &
+     &               *    max(0   ,sign(1   ,istoSV(ikl,ikv,isn)       &
+     &                                      -istdSV(1)      ))
+          ViscSn     =                                                 &
+     &    ViscSn*(    OK_Liq/(vvisc5+vvisc6*etaSno(ikl,ikv,isn)        &
+     &                            /max(eps6,dzsnSV(ikl,ikv,isn)))      &
+     &           +(1.-OK_Liq)                               )          &
+     &          *(    OK_Ang*exp(min(ADSdSV,G2snSV(ikl,ikv,isn)-vdiam4))   &
+     &           +(1.-OK_Ang)                                       )  &
+     &          *(    OKxLiq*        vvisc7                            &
+     &           +(1.-OKxLiq)              )
+ 
+ 
+!  Calcul nouvelle Epaisseur / new Thickness
+!  -----------------------------------------
+ 
+          dzsnew         =                                             &
+     &    dzsnSV(ikl,ikv,isn)                                          &
+     &     *max(vdz3,                                                  &
+     &         (un_1-dt__SV*max(SnMass(ikl,ikv)*cos(slorSV(ikl,ikv)),un_1) &
+     &                     /max(ViscSn                      ,eps6)))
+          rosnew         = ro__SV(ikl,ikv,isn) *dzsnSV(ikl,ikv,isn)    &
+     &                            /max(eps6,dzsnew)
+          rosmax         = 1.d0   /( (1.d0 -eta_SV(ikl,ikv,isn)) /rhoIce   &
+     &                               +      eta_SV(ikl,ikv,isn)  /rhoWat)
+          rosnew         =                        min(rosnew ,rosmax)
+          dzsnSV(ikl,ikv,isn)= dzsnSV(ikl,ikv,isn) *ro__SV(ikl,ikv,isn)&
+     &                            /max(eps6,rosnew)
+          ro__SV(ikl,ikv,isn)= rosnew
+          ro_dry(ikl,ikv,isn)= ro__SV(ikl,ikv,isn)*(1.-eta_SV(ikl,ikv,isn))*1.e-3
+!         ro_dry: Dry Density (g/cm3)
+ 
+          SnMass(ikl,ikv)    = SnMass(ikl,ikv)+dSnMas*0.5
+        END DO
+        END DO
+      END DO
+ 
+ 
+! OUTPUT/Verification: Snow   Properties
+! #vs DO ikl = 1,kcolp
+! #vs DO ikv=1,mwp
+! #vs DO isn = 1,isnoSV(ikl,ikv)
+! #vs   IF (G1snSV(ikl,ikv,isn).gt.0. .AND. G2snSV(ikl,ikv,isn).gt.D__MAX) THEN
+! #vs     write(6,6600) G1snSV(ikl,ikv,isn),G2snSV(ikl,ikv,isn),ikl,ikv,isn
+! #vs6600 format(/,'WARNING in _GSn: G1,G2 =',2f9.3,'  (ikl,ikv,isn) =',2i4)
+! #vs     D__MAX =                      G2snSV(ikl,ikv,isn)
+! #vs   END IF
+! #vs   IF (                            G2snSV(ikl,ikv,isn).lt.0.    ) THEN
+! #vs     write(6,6601) G1snSV(ikl,ikv,isn),G2snSV(ikl,ikv,isn),ikl,ikv,isn
+! #vs6601 format(/,'ERROR 1 in _GSn: G1,G2 =',2f9.3,'  (ikl,ikv,isn) =',2i4)
+! #vs     STOP
+! #vs   END IF
+! #vs   IF (G1snSV(ikl,ikv,isn).gt.G1_dSV+eps6                       ) THEN
+! #vs     write(6,6602) G1snSV(ikl,ikv,isn),G2snSV(ikl,ikv,isn),ikl,ikv,isn
+! #vs6602 format(/,'ERROR 2 in _GSn: G1,G2 =',2f9.3,'  (ikl,ikv,isn) =',2i4)
+! #vs     STOP
+! #vs   END IF
+! #vs   IF (G1snSV(ikl,ikv,isn).lt.0.                           .AND.  &
+! #vs&      G2snSV(ikl,ikv,isn).gt.G1_dSV+eps6                       ) THEN
+! #vs     write(6,6603) G1snSV(ikl,ikv,isn),G2snSV(ikl,ikv,isn),ikl,ikv,isn
+! #vs6603 format(/,'ERROR 3 in _GSn: G1,G2 =',2f9.3,'  (ikl,ikv,isn) =',2i4)
+! #vs     STOP
+! #vs   END IF
+! #vs END DO
+! #vs END DO
+! #vs END DO
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+      deallocate          ( ro_dry )                                   ! Dry Density            [g/cm3]
+      deallocate          ( etaSno )                                   ! Liquid Water Content   [g/cm2]
+      deallocate          ( SnMass )                                   ! Snow   Mass            [kg/m2]
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_GSn
+ 
+ 
+ 
+      subroutine SISVAT_qSo(                                           &
+! #m0&                      Wats_0,Wats_1,Wats_d                       &
+     &                     )
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_qSo                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_qSo computes the Soil      Water  Balance          |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  kcolv: Total Number of columns =                        |
+!     ^^^^^^^^^^        = Total Number of continental     grid boxes       |
+!                       X       Number of Mosaic Cell per grid box         |
+!                                                                          |
+!     INPUT:   isnoSV   = total Nb of Ice/Snow Layers                      |
+!     ^^^^^    isotSV   = 0,...,11:   Soil       Type                      |
+!                         0:          Water, Solid or Liquid               |
+!                                                                          |
+!     INPUT:   rhT_SV   : SBL Top    Air  Density                  [kg/m3] |
+!     ^^^^^    drr_SV   : Rain   Intensity                       [kg/m2/s] |
+!              LSdzsv   : Vertical   Discretization Factor             [-] |
+!                       =    1. Soil                                       |
+!                       = 1000. Ocean                                      |
+!              dt__SV   : Time   Step                                  [s] |
+!                                                                          |
+!              Lx_H2O   : Latent Heat of Vaporization/Sublimation   [J/kg] |
+!              HLs_sv   : Latent Heat  Flux                         [W/m2] |
+!              Rootsv   : Root   Water Pump                      [kg/m2/s] |
+!                                                                          |
+!     INPUT /  eta_SV   : Water      Content                       [m3/m3] |
+!     OUTPUT:  Khydsv   : Soil   Hydraulic    Conductivity           [m/s] |
+!     ^^^^^^                                                               |
+!                                                                          |
+!     OUTPUT:  RnofSV   : RunOFF Intensity                       [kg/m2/s] |
+!     ^^^^^^   Wats_0   : Soil Water,  before Forcing                 [mm] |
+!              Wats_1   : Soil Water,  after  Forcing                 [mm] |
+!              Wats_d   : Soil Water          Forcing                 [mm] |
+!                                                                          |
+!     Internal Variables:                                                  |
+!     ^^^^^^^^^^^^^^^^^^                                                   |
+!              z_Bump   : (Partly)Bumpy Layers Height                  [m] |
+!              z0Bump   :         Bumpy Layers Height                  [m] |
+!              dzBump   :  Lowest Bumpy Layer:                         [m] |
+!              etBump   :         Bumps Layer Averaged Humidity    [m3/m3] |
+!              etaMid   : Layer Interface's Humidity               [m3/m3] |
+!              eta__f   : Layer             Humidity  (Water Front)[m3/m3] |
+!              Dhyd_f   : Soil  Hydraulic Diffusivity (Water Front) [m2/s] |
+!              Dhydif   : Soil  Hydraulic Diffusivity               [m2/s] |
+!              WgFlow   : Water         gravitational     Flux   [kg/m2/s] |
+!              Wg_MAX   : Water MAXIMUM gravitational     Flux   [kg/m2/s] |
+!              SatRat   : Water         Saturation        Flux   [kg/m2/s] |
+!              WExces   : Water         Saturation Excess Flux   [kg/m2/s] |
+!              Dhydtz   : Dhydif * dt / dz                             [m] |
+!              FreeDr   : Free Drainage Fraction                       [-] |
+!              Elem_A   : A Diagonal Coefficient                           |
+!              Elem_C   : C Diagonal Coefficient                           |
+!              Diag_A   : A Diagonal                                       |
+!              Diag_B   : B Diagonal                                       |
+!              Diag_C   : C Diagonal                                       |
+!              Term_D   :   Independant Term                               |
+!              Aux__P   : P Auxiliary Variable                             |
+!              Aux__Q   : Q Auxiliary Variable                             |
+!                                                                          |
+!     TUNING PARAMETER:                                                    |
+!     ^^^^^^^^^^^^^^^^                                                     |
+!              z0soil   : Soil Surface averaged Bumps Height           [m] |
+!                                                                          |
+!     METHOD: NO   Skin Surface Humidity                                   |
+!     ^^^^^^  Semi-Implicit Crank Nicholson Scheme                         |
+!             (Partial) free Drainage, Water Bodies excepted (Lakes, Sea)  |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #GF: Saturation Front                                                |
+!     #GH: Saturation Front allows Horton Runoff                           |
+!     #GA: Soil Humidity Geometric Average                                 |
+!     #TB: Parameterization of Terrain Bumps                               |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_iii_jjj_n     | #m0: OUTPUT/Verification: H2O    Conservation |
+!   # SISVAT_iii_jjj_n     | #m1: OUTPUT/Verification: * Mass Conservation |
+!   # stdout               | #mw: OUTPUT/Verification: H2O    Conservation |
+!                          |      unit  6, SubRoutine  SISVAT_qSo **ONLY** |
+!   # SISVAT_qSo.vw        | #vw: OUTPUT/Verif+Detail: H2O    Conservation |
+!                          |      unit 42, SubRoutine  SISVAT_qSo **ONLY** |
+!   # stdout               | #vg: OUTPUT/Verification: Gravitational Front |
+!                          |      unit  6, SubRoutine  SISVAT_qSo **ONLY** |
+!                                                                          |
+!     REMARQUE: Inclure possibilite de creer mare sur bedrock impermeable  |
+!     ^^^^^^^^                                                             |
+!--------------------------------------------------------------------------+
+ 
+ 
+! Global  Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_SISVAT_grd
+ 
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_dzS
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_loc
+ 
+ 
+ 
+! Internal Variables
+! ==================
+ 
+      use Mod_SISVATLqSo
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+      integer                                        ::  isl           !
+      integer                                        ::  ist   ,ikl,ikv!
+      integer                                        ::  ikm   ,ikp    !
+      integer                                        ::  ik0           !
+      integer                                        ::  ist__s,ist__w ! Soil/Water Body Identifier
+ 
+ 
+! #TB real(kind=real8)                               ::  z0soil = 0.02 ! Soil Surface Bumps Height  [m]
+! #TB real(kind=real8)                               ::  z_Bump        !(Partly)Bumpy Layers Height [m]
+! #TB real(kind=real8)                               ::  z0Bump        !        Bumpy Layers Height [m]
+! #TB real(kind=real8)                               ::  dzBump        ! Lowest Bumpy Layer:
+ 
+      real(kind=real8)                               ::  etaMid        ! Layer Interface's Humidity
+      real(kind=real8)                               ::  Dhydif        ! Hydraulic Diffusivity   [m2/s]
+! #GH real(kind=real8)                               ::  eta__f        ! Water Front Soil Water Content
+      real(kind=real8)                               ::  Khyd_f        ! Water Front Hydraulic Conduct.
+      real(kind=real8)                               ::  Khydav        ! Hydraulic Conductivity   [m/s]
+! #GF real(kind=real8)                               ::  WgFlow        ! Water gravitat. Flux [kg/m2/s]
+      real(kind=real8)                               ::  Wg_MAX        ! Water MAX.grav. Flux [kg/m2/s]
+      real(kind=real8)                               ::  SatRat        ! Saturation      Flux [kg/m2/s]
+! #GF real(kind=real8)                               ::  WExces        ! Saturat. Excess Flux [kg/m2/s]
+      real(kind=real8)                               ::  Elem_A        !   Diagonal Coefficients
+      real(kind=real8)                               ::  Elem_B        !   Diagonal Coefficients
+      real(kind=real8)                               ::  Elem_C        !   Diagonal Coefficients
+      real(kind=real8)                               ::  FreeDr        ! Free Drainage Fraction (actual)
+!     real(kind=real8)                               ::  FreeD0 = 1.00 ! Free Drainage Fraction (1=Full)
+ 
+! OUTPUT
+! ------
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #mw real(kind=real8)                               ::  hourwr
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! ALLOCATION                                                           !
+! ==========                                                           !
+ 
+      IF (it_RUN.EQ.1 .OR. FlagDALLOC)                            THEN !
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #m0 allocate            ( Wats_0(kcolp,mwp) )                        ! Soil Water,  before forcing
+! #m0 allocate            ( Wats_1(kcolp,mwp) )                        ! Soil Water,  after  forcing
+! #m0 allocate            ( Wats_d(kcolp,mwp) )                        ! Soil Water          forcing
+ 
+! #TB allocate            ( etBump(kcolp,mwp) )                        ! Bumps Layer Averaged Humidity
+ 
+      allocate            ( SoRnOF(kcolp,mwp) )                        ! Soil     Run    OFF
+      allocate            ( Dhydtz(kcolp,mwp,-nsoil:0) )               ! Dhydif * dt / dz           [m]
+      allocate            ( Diag_A(kcolp,mwp,-nsoil:0) )               ! A Diagonal
+      allocate            ( Diag_B(kcolp,mwp,-nsoil:0) )               ! B Diagonal
+      allocate            ( Diag_C(kcolp,mwp,-nsoil:0) )               ! C Diagonal
+      allocate            ( Term_D(kcolp,mwp,-nsoil:0) )               !   Independant Term
+      allocate            ( Aux__P(kcolp,mwp,-nsoil:0) )               ! P Auxiliary Variable
+      allocate            ( Aux__Q(kcolp,mwp,-nsoil:0) )               ! Q Auxiliary Variable
+      allocate            ( etaaux(kcolp,mwp,-nsoil:-nsoil+1) )        ! Soil Water Content     [m3/m3]
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+ 
+! OUTPUT/Verification: H2O    Conservation: Water  Budget (IN)
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_0(ikl,ikv) = 0.                ! OLD RunOFF Contrib.
+! #m0     Wats_d(ikl,ikv) = drr_SV(ikl,ikv)   ! Water Surface Forc.
+! #m0   END DO
+! #m0   END DO
+ 
+! #m0      isl= -nsoil
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_0(ikl,ikv) = Wats_0(ikl,ikv)                            &
+! #m0&      + rhoWat *( eta_SV(ikl,ikv,isl)   *dz78SV(isl)             &
+! #m0&                + eta_SV(ikl,ikv,isl+1) *dz_8SV(isl) ) * LSdzsv(ikl,ikv)
+! #m0   END DO
+! #m0   END DO
+ 
+! #m0 DO   isl= -nsoil+1,-1
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_0(ikl,ikv) = Wats_0(ikl,ikv)                            &
+! #m0&      + rhoWat *( eta_SV(ikl,ikv,isl)   *dz34SV(isl)             &
+! #m0&                +(eta_SV(ikl,ikv,isl-1)                          &
+! #m0&                 +eta_SV(ikl,ikv,isl+1))*dz_8SV(isl) ) * LSdzsv(ikl,ikv)
+! #m0   END DO
+! #m0   END DO
+! #m0 END DO
+ 
+! #m0      isl=  0
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_0(ikl,ikv) = Wats_0(ikl,ikv)                            &
+! #m0&      + rhoWat *( eta_SV(ikl,ikv,isl)   *dz78SV(isl)             &
+! #m0&                + eta_SV(ikl,ikv,isl-1) *dz_8SV(isl) ) * LSdzsv(ikl,ikv)
+! #m0   END DO
+! #m0   END DO
+ 
+ 
+! Gravitational Flow
+! ==================
+ 
+! .    METHOD: Surface Water Flux saturates successively the soil layers
+!      ^^^^^^  from up to below, but is limited by infiltration capacity.
+!              Hydraulic Conductivity again contributes after this step,
+!              not redundantly because of a constant (saturated) profile.
+ 
+! Flux  Limitor
+! ^^^^^^^^^^^^^
+           isl=0
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist    = isotSV(ikl,ikv)                 ! Soil Type
+          ist__s = min(ist, 1)                     ! 1 => Soil
+          ist__w = 1 - ist__s                      ! 1 => Water Body
+          Dhydif = s1__SV(ist)                    &!
+     &               *max(eps6,eta_SV(ikl,ikv,isl))   &! Hydraulic Diffusivity
+     &                      **(bCHdSV(ist)+2.)     ! DR97, Eqn.(3.36)
+          Dhydif = ist__s    * Dhydif             &!
+     &           + ist__w    * vK_dSV              ! Water Bodies
+ 
+          Khydav = ist__s    * Ks_dSV(ist)        &! DR97  Assumption
+     &           + ist__w    * vK_dSV              ! Water Bodies
+ 
+          Wg_MAX = rhoWat     *Dhydif             &! MAXimum  Infiltration
+     &           *(etadSV(ist)-eta_SV(ikl,ikv,isl))   &!          Rate
+     &           /(dzAvSV(isl)*LSdzsv(ikl,ikv)    )   &!
+     &          +  rhoWat     *Khydav              !
+ 
+! Surface Horton RunOFF
+! ^^^^^^^^^^^^^^^^^^^^^
+          SoRnOF(ikl,ikv) =                       &!
+     &                max(zer0,drr_SV(ikl,ikv)-Wg_MAX) !
+          drr_SV(ikl,ikv) =        drr_SV(ikl,ikv)-SoRnOF(ikl,ikv)
+        END DO
+        END DO
+ 
+! #GF DO   isl=0,-nsoil,-1
+! #GF   DO ikl=1,kcolp
+! #GF   DO ikv=1,mwp
+! #GF     ist    = isotSV(ikl,ikv)                 ! Soil Type
+! #GF     ist__s = min(ist, 1)                     ! 1 => Soil
+! #GF     ist__w = 1 - ist__s                      ! 1 => Water Body
+ 
+! Water Diffusion
+! ^^^^^^^^^^^^^^^
+! #GF     Dhydif = s1__SV(ist)                    &!
+! #GF&               *max(eps6,eta_SV(ikl,ikv,isl))   &! Hydraulic Diffusivity
+! #GF&                      **(bCHdSV(ist)+2.)     ! DR97, Eqn.(3.36)
+! #GF     Dhydif = ist__s    * Dhydif             &!
+! #GF&           + ist__w    * vK_dSV              ! Water Bodies
+ 
+! Water Conduction (without Horton Runoff)
+! ^^^^^^^^^^^^^^^^
+! #GF     Khyd_f =             Ks_dSV(ist)
+!         Uses saturated K ==> Horton Runoff ~0    !
+ 
+! Water Conduction (with    Horton Runoff)
+! ^^^^^^^^^^^^^^^^
+! #GH     ik0    = nkhy   *int(eta_SV(ikl,ikv,isl)&!
+! #GH&                        /etadSV(ist))        !
+! #GH     eta__f         =            1.          &!
+! #GH&   -aKdtSV(ist,ik0)/(2. *dzAvSV(isl)        &!
+! #GH&                        *LSdzsv(ikl,ikv))    !
+! #GH     eta__f         = max(eps_21,eta__f)
+! #GH     eta__f         = min(etadSV(ist),       &!
+! #GH&                         eta_SV(ikl,ikv,isl) +  &!
+! #GH&   (aKdtSV(ist,ik0)     *eta_SV(ikl,ikv,isl)&!
+! #GH&   +bKdtSV(ist,ik0))   /(dzAvSV(isl)        &!
+! #GH&                        *LSdzsv(ikl,ikv))   &!
+! #GH&                       / eta__f          )
+ 
+! #GH     eta__f         = .5*(eta_SV(ikl,ikv,isl)&!
+! #GH&                        +eta__f)             !
+!         eta__f         =     eta_SV(ikl,isl)     ! Another Possibility
+ 
+! #GH     ik0    = nkhy       *eta__f             &!
+! #GH&                        /etadSV(ist)         !
+! #GH     Khyd_f =                                &!
+! #GH&   (aKdtSV(ist,ik0)     *eta__f             &!
+! #GH&   +bKdtSV(ist,ik0))    /dt__SV              !
+ 
+! #GF     Khydav = ist__s    * Khyd_f             &! DR97  Assumption
+! #GF&           + ist__w    * vK_dSV              ! Water Bodies
+ 
+! Gravitational Flow
+! ^^^^^^^^^^^^^^^^^^
+! #GF     Wg_MAX =                                &! MAXimum  Infiltration
+! #GF&             rhoWat     *Dhydif             &!          Rate
+! #GF&           *(etadSV(ist)-eta_SV(ikl,ikv,isl))   &!
+! #GF&           /(dzAvSV(isl)*LSdzsv(ikl,ikv)    )   &!
+! #GF&          +  rhoWat     *Khydav              !
+ 
+! OUTPUT/Verification: Gravitational Front
+! #vg     write(6,6001) isl,drr_SV(ikl,ikv)*3.6e3,Wg_MAX     *3.6e3
+! #vg6001 format(i3,'  vRain ,Wg_MAX ',2e12.3,' mm/hr')
+ 
+! #GF     WgFlow =  min(Wg_MAX,drr_SV(ikl,ikv))    ! Infiltration Rate
+! #GF     WExces =  max(zer0  ,drr_SV(ikl,ikv)-WgFlow) ! Water Excess => RunOff
+ 
+! OUTPUT/Verification: Gravitational Front
+! #vg     write(6,6002)     WgFlow     *3.6e3,WExces     *3.6e3
+! #vg6002 format(3x,'  WgFlow,WExces ',2e12.3,' mm/hr')
+ 
+! #GF     SoRnOF(ikl,ikv) =        SoRnOF(ikl,ikv)+WExces  !
+! #GF     drr_SV(ikl,ikv) =        WgFlow          !
+ 
+! OUTPUT/Verification: Gravitational Front
+! #vg     write(6,6003)     SoRnOF(ikl,ikv)*3.6e3,drr_SV(ikl,ikv)*3.6e3
+! #vg6003 format(3x,'  SoRnOF,drr_SV ',2e12.3,' mm/hr')
+ 
+! #GF     SatRat =(etadSV(ist)-eta_SV(ikl,ikv,isl))   &! Saturation   Rate
+! #GF&            *rhoWat     *dzAvSV(isl)        &!
+! #GF&                        *LSdzsv(ikl,ikv)/dt__SV  !
+! #GF     SatRat =  min(SatRat,drr_SV(ikl,ikv))    !
+! #GF     drr_SV(ikl,ikv) =        drr_SV(ikl,ikv)-SatRat  ! Water Flux for Below
+ 
+! OUTPUT/Verification: Gravitational Front
+! #vg     write(6,6004)     SatRat     *3.6e3,drr_SV(ikl,ikv)*3.6e3
+! #vg6004 format(3x,'  SatRat,drr_SV ',2e12.3,' mm/hr')
+! #vg     write(6,6005)     eta_SV(ikl,ikv,isl)*1.e3
+ 
+! #GF     eta_SV(ikl,ikv,isl) =    eta_SV(ikl,ikv,isl)&! Saturation
+! #GF&                        +SatRat*dt__SV      &!
+! #GF&                       /(rhoWat*dzAvSV(isl) &!
+! #GF&                               *LSdzsv(ikl,ikv)) !
+ 
+! OUTPUT/Verification: Gravitational Front
+! #vg     write(6,6005)     eta_SV(ikl,ikv,isl)*1.e3
+! #vg6005 format(3x,'  eta_SV,       ',e12.3,' g/kg')
+! #GF   END DO
+! #GF   END DO
+! #GF END DO
+! #GF   DO ikl=1,kcolp
+! #GF   DO ikv=1,mwp
+! #GF     SoRnOF(ikl,ikv)     =    SoRnOF(ikl,ikv)&! RunOFF Intensity
+! #GF&                    +    drr_SV(ikl,ikv)     ! [kg/m2/s]
+!         Inclure la possibilite de creer une mare sur un bedrock impermeable
+! #GF     drr_SV(ikl,ikv) = 0.
+! #GF   END DO
+! #GF   END DO
+ 
+ 
+! Temperature Correction due to a changed Soil Energy Content
+! ===========================================================
+ 
+! REMARQUE: Mettre en oeuvre le couplage humidite-energie
+! ^^^^^^^^
+ 
+ 
+! Full Resolution of the Richard's Equation
+! =========================================
+ 
+!         METHOD: Water content evolution results from water fluxes
+!         ^^^^^^  at the layer boundaries
+!                 Conductivity is approximated by a piecewise linear profile.
+!                 Semi-Implicit Crank-Nicholson scheme is used.
+!                (Bruen, 1997, Sensitivity of hydrological processes
+!                              at the land-atmosphere interface.
+!                              Proc. Royal Irish Academy,  IGBP symposium
+!                              on global change and the Irish Environment.
+!                              Publ.: Maynooth)
+ 
+!                        - - - - - - - -   isl+1/2   - -  ^
+!                                                         |
+!     eta_SV(isl)        ---------------   isl     -----  +--dz_dSV(isl)  ^
+!                                                         |               |
+!     Dhydtz(isl) etaMid - - - - - - - -   isl-1/2   - -  v  dzmiSV(isl)--+
+!                                                                         |
+!     eta_SV(isl-1)      ---------------   isl-1   -----                  v
+ 
+! Transfert       Coefficients
+! ----------------------------
+ 
+      DO   isl=-nsoil+1,0
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist    =      isotSV(ikl,ikv)                   ! Soil Type
+          ist__s =      min(ist, 1)                       ! 1 => Soil
+          ist__w =      1 - ist__s                        ! 1 => Water Body
+          etaMid =     (dz_dSV(isl)  *eta_SV(ikl,ikv,isl-1)  &! eta at layers
+     &                 +dz_dSV(isl-1)*eta_SV(ikl,ikv,isl)  ) &!     interface
+     &           /(2.0* dzmiSV(isl))                      ! LSdzsv implicit !
+! #GA     etaMid = sqrt(dz_dSV(isl)  *eta_SV(ikl,ikv,isl-1)  &! Idem, geometric
+! #GA&                 *dz_dSV(isl-1)*eta_SV(ikl,ikv,isl)  ) &!       average
+! #GA&           /(2.0* dzmiSV(isl))                      ! (Vauclin&al.1979)
+          Dhydif          =    s1__SV(ist)               &! Hydraul.Diffusi.
+     &  *(etaMid         **(   bCHdSV(ist)+2.))           ! DR97, Eqn.(3.36)
+          Dhydtz(ikl,ikv,isl) =    Dhydif*dt__SV         &!
+     &                              /(dzmiSV(isl)        &!
+     &                               *LSdzsv(ikl,ikv))    !
+          Dhydtz(ikl,ikv,isl) =    Dhydtz(ikl,ikv,isl) * ist__s  &! Soil
+     &        +0.5*dzmiSV(isl)*LSdzsv(ikl,ikv)     * ist__w   ! Water bodies
+ 
+        END DO
+        END DO
+      END DO
+           isl=-nsoil
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          Dhydtz(ikl,ikv,isl) =    0.0                    !
+        END DO
+        END DO
+ 
+ 
+! Tridiagonal Elimination: Set Up
+! -------------------------------
+ 
+! Soil/Snow Interior
+! ^^^^^^^^^^^^^^^^^^
+      DO   isl=-nsoil,-nsoil+1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          etaaux(ikl,ikv,isl) =  eta_SV(ikl,ikv,isl)
+        END DO
+        END DO
+      END DO
+ 
+      DO   isl=-nsoil+1,-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist      =         isotSV(ikl,ikv)
+          ikm      =nkhy*int(eta_SV(ikl,ikv,isl-1) / etadSV(ist))
+          ik0      =nkhy*int(eta_SV(ikl,ikv,isl)   / etadSV(ist))
+          ikp      =nkhy*int(eta_SV(ikl,ikv,isl+1) / etadSV(ist))
+          Elem_A   =         Dhydtz(ikl,ikv,isl)                       &
+     &                    -  aKdtSV(ist,ikm)* dziiSV(isl)  *LSdzsv(ikl,ikv)
+          Elem_B   =      - (Dhydtz(ikl,ikv,isl)                       &
+     &                      +Dhydtz(ikl,ikv,isl+1)                     &
+     &                      -aKdtSV(ist,ik0)*(dziiSV(isl+1)            &
+     &                                       -dzi_SV(isl) )*LSdzsv(ikl,ikv))
+          Elem_C   =         Dhydtz(ikl,ikv,isl+1)                     &
+     &                    +  aKdtSV(ist,ikp)* dzi_SV(isl+1)*LSdzsv(ikl,ikv)
+          Diag_A(ikl,ikv,isl) =  dz_8SV(isl)        *LSdzsv(ikl,ikv)   &
+     &                      -Implic            * Elem_A
+          Diag_B(ikl,ikv,isl) =  dz34SV(isl)        *LSdzsv(ikl,ikv)   &
+     &                      -Implic            * Elem_B
+          Diag_C(ikl,ikv,isl) =  dz_8SV(isl)        *LSdzsv(ikl,ikv)   &
+     &                      -Implic            * Elem_C
+ 
+          Term_D(ikl,ikv,isl) = (dz_8SV(isl) *LSdzsv(ikl,ikv)          &
+     &                      +Explic      *Elem_A     )*eta_SV(ikl,ikv,isl-1)&
+     &                    + (dz34SV(isl) *LSdzsv(ikl,ikv)              &
+     &                      +Explic      *Elem_B     )*eta_SV(ikl,ikv,isl) &
+     &                    + (dz_8SV(isl) *LSdzsv(ikl,ikv)              &
+     &                      +Explic      *Elem_C     )*eta_SV(ikl,ikv,isl+1)&
+     &                    + (bKdtSV(ist,ikp)* dzi_SV(isl+1)            &
+     &                      +bKdtSV(ist,ik0)*(dziiSV(isl+1)            &
+     &                                       -dzi_SV(isl)  )           &
+     &                      -bKdtSV(ist,ikm)* dziiSV(isl)   )          &
+     &                                      * LSdzsv(ikl,ikv)          &
+     &                    -  dt__SV         * Rootsv(ikl,ikv,isl)/rhoWat
+        END DO
+        END DO
+      END DO
+ 
+           isl=-nsoil
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist      =         isotSV(ikl,ikv)
+          FreeDr   =         iWaFSV(ikl,ikv)       *  min(ist,1)
+!         FreeDr   =         FreeD0            *  min(ist,1) ! Free Drainage
+          ik0      =nkhy*int(eta_SV(ikl,ikv,isl  ) / etadSV(ist))
+          ikp      =nkhy*int(eta_SV(ikl,ikv,isl+1) / etadSV(ist))
+          Elem_A   =         0.
+          Elem_B   =      - (Dhydtz(ikl,ikv,isl+1)                     &
+     &                      -aKdtSV(ist,ik0)*(dziiSV(isl+1)*LSdzsv(ikl,ikv)&
+     &                                       -FreeDr                  ))
+          Elem_C   =         Dhydtz(ikl,ikv,isl+1)                     &
+     &                    +  aKdtSV(ist,ikp)* dzi_SV(isl+1)*LSdzsv(ikl,ikv)
+          Diag_A(ikl,ikv,isl) =  0.
+          Diag_B(ikl,ikv,isl) =  dz78SV(isl) *LSdzsv(ikl,ikv)          &
+     &                      -Implic      *Elem_B
+          Diag_C(ikl,ikv,isl) =  dz_8SV(isl) *LSdzsv(ikl,ikv)          &
+     &                      -Implic      *Elem_C
+ 
+          Term_D(ikl,ikv,isl) = (dz78SV(isl) *LSdzsv(ikl,ikv)          &
+     &                      +Explic      *Elem_B     )*eta_SV(ikl,ikv,isl) &
+     &                    + (dz_8SV(isl) *LSdzsv(ikl,ikv)              &
+     &                      +Explic      *Elem_C     )*eta_SV(ikl,ikv,isl+1)&
+     &                    + (bKdtSV(ist,ikp)* dzi_SV(isl+1)*LSdzsv(ikl,ikv)&
+     &                      +bKdtSV(ist,ik0)*(dziiSV(isl+1)*LSdzsv(ikl,ikv)&
+     &                                       -FreeDr                  ))&
+     &                    -  dt__SV         * Rootsv(ikl,ikv,isl)/rhoWat
+        END DO
+        END DO
+ 
+           isl=0
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist      =         isotSV(ikl,ikv)
+          ikm      =nkhy*int(eta_SV(ikl,ikv,isl-1) / etadSV(ist))
+          ik0      =nkhy*int(eta_SV(ikl,ikv,isl)   / etadSV(ist))
+          Elem_A   =         Dhydtz(ikl,ikv,isl)                       &
+     &                    -  aKdtSV(ist,ikm)* dziiSV(isl)*LSdzsv(ikl,ikv)
+          Elem_B   =      - (Dhydtz(ikl,ikv,isl)                       &
+     &                      +aKdtSV(ist,ik0)* dzi_SV(isl)*LSdzsv(ikl,ikv))
+          Elem_C   =         0.
+          Diag_A(ikl,ikv,isl) =  dz_8SV(isl) *LSdzsv(ikl,ikv)          &
+     &                    -  Implic      *Elem_A
+          Diag_B(ikl,ikv,isl) =  dz78SV(isl) *LSdzsv(ikl,ikv)          &
+     &                    -  Implic      *Elem_B
+          Diag_C(ikl,ikv,isl) =  0.
+ 
+          Term_D(ikl,ikv,isl) = (dz_8SV(isl) *LSdzsv(ikl,ikv)          &
+     &                      +Explic      *Elem_A     )*eta_SV(ikl,ikv,isl-1)&
+     &                    + (dz78SV(isl) *LSdzsv(ikl,ikv)              &
+     &                      +Explic      *Elem_B     )*eta_SV(ikl,ikv,isl) &
+     &                    - (bKdtSV(ist,ik0)* dzi_SV(isl)              &
+     &                      +bKdtSV(ist,ikm)* dziiSV(isl))*LSdzsv(ikl,ikv) &
+     &            + dt__SV *(HLs_sv(ikl,ikv)    *     (1-min(1,isnoSV(ikl,ikv)))&
+     &                                                   / Lx_H2O(ikl,ikv) &
+     &                      +drr_SV(ikl,ikv)                           &
+     &                      -Rootsv(ikl,ikv,isl)             )/rhoWat
+        END DO
+        END DO
+ 
+ 
+! Tridiagonal Elimination
+! =======================
+ 
+! Forward  Sweep
+! ^^^^^^^^^^^^^^
+        DO ikl=  1,kcolp
+        DO ikv=1,mwp
+          Aux__P(ikl,ikv,-nsoil) = Diag_B(ikl,ikv,-nsoil)
+          Aux__Q(ikl,ikv,-nsoil) =-Diag_C(ikl,ikv,-nsoil)/Aux__P(ikl,ikv,-nsoil)
+        END DO
+        END DO
+ 
+      DO   isl=-nsoil+1,0
+        DO ikl=      1,kcolp
+        DO ikv=1,mwp
+          Aux__P(ikl,ikv,isl)   = Diag_A(ikl,ikv,isl)  *Aux__Q(ikl,ikv,isl-1)  &
+     &                       +Diag_B(ikl,ikv,isl)
+          Aux__Q(ikl,ikv,isl)   =-Diag_C(ikl,ikv,isl)  /Aux__P(ikl,ikv,isl)
+        END DO
+        END DO
+      END DO
+ 
+        DO ikl=      1,kcolp
+        DO ikv=1,mwp
+          eta_SV(ikl,ikv,-nsoil) = Term_D(ikl,ikv,-nsoil)/Aux__P(ikl,ikv,-nsoil)
+        END DO
+        END DO
+ 
+      DO   isl=-nsoil+1,0
+        DO ikl=      1,kcolp
+        DO ikv=1,mwp
+          eta_SV(ikl,ikv,isl)   =(Term_D(ikl,ikv,isl)                  &
+     &                       -Diag_A(ikl,ikv,isl)  *eta_SV(ikl,ikv,isl-1)) &
+     &                                         /Aux__P(ikl,ikv,isl)
+        END DO
+        END DO
+      END DO
+ 
+! Backward Sweep
+! ^^^^^^^^^^^^^^
+      DO   isl=-1,-nsoil,-1
+        DO ikl= 1,kcolp
+        DO ikv=1,mwp
+          eta_SV(ikl,ikv,isl)   = Aux__Q(ikl,ikv,isl)  *eta_SV(ikl,ikv,isl+1)  &
+     &                                         +eta_SV(ikl,ikv,isl)
+        END DO
+        END DO
+      END DO
+ 
+ 
+! Horton RunOFF Intensity
+! =======================
+ 
+      DO   isl=0,-nsoil,-1
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist    =   isotSV(ikl,ikv)               ! Soil Type
+          SatRat =  (eta_SV(ikl,ikv,isl)-etadSV(ist)) &! OverSaturation Rate
+     &              *rhoWat         *dzAvSV(isl)  &!
+     &                              *LSdzsv(ikl,ikv)  &!
+     &                              /dt__SV        !
+          SoRnOF(ikl,ikv)     =          SoRnOF(ikl,ikv)  &!
+     &                    + max(zer0,SatRat)       !
+          eta_SV(ikl,ikv,isl) = max(eps6          &!
+     &                         ,eta_SV(ikl,ikv,isl))   !
+          eta_SV(ikl,ikv,isl) = min(eta_SV(ikl,ikv,isl)   &!
+     &                         ,etadSV(ist)    )   !
+        END DO
+        END DO
+      END DO
+ 
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #kw     write(6,6010)
+! #kw6010 format(/,1x)
+      DO   isl= 0,-nsoil,-1
+        DO ikl= 1,kcolp
+        DO ikv=1,mwp
+          ist      =          isotSV(ikl,ikv)
+          ikp      = nkhy*int(eta_SV(ikl,ikv,isl)  /etadSV(ist))
+          Khydsv(ikl,ikv,isl)   =(aKdtSV(ist,ikp)  *eta_SV(ikl,ikv,isl)&
+     &                           +bKdtSV(ist,ikp)) *2.0/dt__SV
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #kw     write(6,6011) ikl,ikv,isl,eta_SV(ikl,ikv,isl)*1.e3,          &
+! #kw&                  ikp,    aKdtSV(ist,ikp),bKdtSV(ist,ikp),       &
+! #kw&                          Khydsv(ikl,ikv,isl)
+! #kw6011 format(2i3,f8.1,i3,3e12.3)
+ 
+        END DO
+        END DO
+      END DO
+ 
+ 
+! Additional RunOFF Intensity
+! ===========================
+ 
+        DO ikl=1,kcolp
+        DO ikv=1,mwp
+          ist      =          isotSV(ikl,ikv)
+          ik0      = nkhy*int(etaaux(ikl,ikv,-nsoil  ) /etadSV(ist))
+          FreeDr   =          iWaFSV(ikl,ikv)       *  min(ist,1)
+!         FreeDr   =          FreeD0            *  min(ist,1) ! Free Drainage
+          SoRnOF(ikl,ikv) =  SoRnOF(ikl,ikv)                           &
+     &                + (aKdtSV(ist,ik0)*(etaaux(ikl,ikv,-nsoil)*Explic &
+     &                                   +eta_SV(ikl,ikv,-nsoil)*Implic)&
+     &                 + bKdtSV(ist,ik0)                           )   &
+     &                 * FreeDr          *rhoWat           /dt__SV
+ 
+! Full Run OFF: Update
+! ~~~~~~~~~~~~~~~~~~~~
+          RnofSV(ikl,ikv) = RnofSV(ikl,ikv)     + SoRnOF(ikl,ikv)
+        END DO
+        END DO
+ 
+ 
+! Temperature Correction due to a changed Soil Energy Content
+! ===========================================================
+ 
+! REMARQUE: Mettre en oeuvre le couplage humidite-energie
+! ^^^^^^^^
+ 
+ 
+! Bumps/Asperites Treatment
+! =========================
+ 
+! Average over Bump Depth (z0soil)
+! --------------------------------
+ 
+! #TB       z_Bump      = 0.
+! #TB     DO ikl=1,kcolp
+! #TB     DO ikv=1,mwp
+! #TB       etBump(ikl,ikv) = 0.
+! #TB     END DO
+! #TB     END DO
+ 
+! #TB DO     isl=0,-nsoil,-1
+! #TB       z0Bump      = z_Bump
+! #TB       z_Bump      = z_Bump      +  dzAvSV(isl)
+! #TB   IF (z_Bump.lt.z0soil)                                       THEN
+! #TB     DO ikl=1,kcolp
+! #TB     DO ikv=1,mwp
+! #TB       etBump(ikl,ikv) = etBump(ikl,ikv) +  dzAvSV(isl)   *eta_SV(ikl,ikv,isl)
+! #TB     END DO
+! #TB     END DO
+! #TB   END IF
+! #TB   IF (z_Bump.gt.z0soil.AND.z0Bump.lt.z0soil)                  THEN
+! #TB     DO ikl=1,kcolp
+! #TB     DO ikv=1,mwp
+! #TB       etBump(ikl,ikv) = etBump(ikl,ikv) + (z0soil-z0Bump)*eta_SV(ikl,ikv,isl)
+! #TB       etBump(ikl,ikv) = etBump(ikl,ikv) /  z0soil
+! #TB     END DO
+! #TB     END DO
+! #TB   END IF
+! #TB END DO
+ 
+ 
+! Correction
+! ----------
+ 
+! #TB       z_Bump      = 0.
+! #TB DO     isl=0,-nsoil,-1
+! #TB       z0Bump =  z_Bump
+! #TB       z_Bump =  z_Bump +dzAvSV(isl)
+! #TB   IF (z_Bump.lt.z0soil)                                       THEN
+! #TB     DO ikl=1,kcolp
+! #TB     DO ikv=1,mwp
+! #TB       eta_SV(ikl,ikv,isl) = etBump(ikl,ikv)
+! #TB     END DO
+! #TB     END DO
+! #TB   END IF
+! #TB   IF (z_Bump.gt.z0soil.AND.z0Bump.lt.z0soil)                  THEN
+! #TB       dzBump          =    z_Bump -  z0soil
+! #TB     DO ikl=1,kcolp
+! #TB     DO ikv=1,mwp
+! #TB       eta_SV(ikl,ikv,isl) =(etBump(ikl,ikv)    *(dzAvSV(isl)-dzBump) &
+! #TB&                      + eta_SV(ikl,ikv,isl)*             dzBump) &
+! #TB&                      /                  dzAvSV(isl)
+! #TB     END DO
+! #TB     END DO
+! #TB   END IF
+! #TB END DO
+ 
+ 
+! Positive Definite
+! =================
+ 
+! #TB DO   isl= 0,-nsoil,-1
+! #TB   DO ikl= 1,kcolp
+! #TB   DO ikv=1,mwp
+! #TB     eta_SV(ikl,ikv,isl)   =          max(eps6,eta_SV(ikl,ikv,isl))
+! #TB   END DO
+! #TB   END DO
+! #TB END DO
+ 
+ 
+! OUTPUT/Verification: H2O    Conservation: Water  Budget (OUT)
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_d(ikl,ikv) = Wats_d(ikl,ikv)           &!
+! #m0&                + drr_SV(ikl,ikv)     *0.00     &! Precipitation is
+!                                        \______________ already included
+! #m0&                + HLs_sv(ikl,ikv)               &!
+! #m0&          *(1-min(isnoSV(ikl,ikv),1)) /Lx_H2O(ikl,ikv)  &! Evaporation
+! #m0&                - SoRnOF(ikl,ikv)                ! Soil RunOFF Contrib.
+! #m0     Wats_1(ikl,ikv) = 0.                         !
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #mw     Evapor(ikl,ikv) = HLs_sv(ikl,ikv)     *dt__SV   &!
+! #mw&          *(1-min(isnoSV(ikl,ikv),1)) /Lx_H2O(ikl,ikv)   !
+ 
+! #m0   END DO
+! #m0   END DO
+ 
+! #m0 DO   isl= -nsoil,0
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_d(ikl,ikv) = Wats_d(ikl,ikv)           &!
+! #m0&                - Rootsv(ikl,ikv,isl)            ! Root Extract.
+! #m0   END DO
+! #m0   END DO
+! #m0 END DO
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_d(ikl,ikv) = Wats_d(ikl,ikv)     *dt__SV!
+! #m0   END DO
+! #m0   END DO
+ 
+! #m0      isl= -nsoil
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_1(ikl,ikv) = Wats_1(ikl,ikv)                            &
+! #m0&      + rhoWat *( eta_SV(ikl,ikv,isl)   *dz78SV(isl)             &
+! #m0&                + eta_SV(ikl,ikv,isl+1) *dz_8SV(isl) ) *LSdzsv(ikl,ikv)
+! #m0   END DO
+! #m0   END DO
+ 
+! #m0 DO   isl= -nsoil+1,-1
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_1(ikl,ikv) = Wats_1(ikl,ikv)                            &
+! #m0&      + rhoWat *( eta_SV(ikl,ikv,isl)   *dz34SV(isl)             &
+! #m0&                +(eta_SV(ikl,ikv,isl-1)                          &
+! #m0&                 +eta_SV(ikl,ikv,isl+1))*dz_8SV(isl) ) *LSdzsv(ikl,ikv)
+! #m0   END DO
+! #m0   END DO
+! #m0 END DO
+ 
+! #m0      isl=  0
+! #m0   DO ikl=1,kcolp
+! #m0   DO ikv=1,mwp
+! #m0     Wats_1(ikl,ikv) = Wats_1(ikl,ikv)                            &
+! #m0&      + rhoWat *( eta_SV(ikl,ikv,isl)   *dz78SV(isl)             &
+! #m0&                + eta_SV(ikl,ikv,isl-1) *dz_8SV(isl) ) *LSdzsv(ikl,ikv)
+! #m0   END DO
+! #m0   END DO
+ 
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #mw IF (.NOT.mwopen)                                              THEN
+! #mw          mwopen = .true.
+! #mw          open(unit=42,status='unknown',file='SISVAT_qSo.vw')
+! #mw          rewind 42
+! #mw   write(42,42)
+! #mw42 format('SubRoutine SISVAT_qSo: Local Water Budget',            &
+! #mw&       /,'=========================================')
+! #mw END IF
+! #mw         timewr=timewr + dt__SV
+! #mw         hourwr=3600.0
+! #mw IF (mod(timewr,hourwr).lt.eps6)                                  &
+! #mw&  write(42,420)timewr/hourwr
+! #mw420 format(11('-'),'----------+--------------+-',                 &
+! #mw&          3('-'),'----------+--------------+-',                  &
+! #mw&                 '----------------+----------------+',           &
+! #mw&       /,f8.2,3x,'Wats_0(1) |    Wats_d(1) | ',                  &
+! #mw&              3x,'Wats_1(1) | W_0+W_d-W_1  | ',                  &
+! #mw&                 '   Soil Run OFF |   Soil Evapor. |',           &
+! #mw&       /,11('-'),'----------+--------------+-',                  &
+! #mw&          3('-'),'----------+--------------+-',                  &
+! #mw&                 '----------------+----------------+')
+! #mw   write(42,421)   Wats_0(1),Wats_d(1)                            &
+! #mw&                 ,Wats_1(1)                                      &
+! #mw&                 ,Wats_0(1)+Wats_d(1)-Wats_1(1)                  &
+! #mw&                 ,SoRnOF(1),Evapor(1)
+! #mw421 format(8x,f12.6,' + ',f12.6,' - ',f12.6,' = ',f12.6,' | ',f12.6,&
+! #mw&      '      ',f15.6)
+ 
+ 
+ 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!                                                                      !
+! DE-ALLOCATION                                                        !
+! =============                                                        !
+ 
+      IF (FlagDALLOC)                                             THEN !
+ 
+! OUTPUT/Verification: H2O    Conservation
+! #m0 deallocate          ( Wats_0 )                                   ! Soil Water,  before forcing
+! #m0 deallocate          ( Wats_1 )                                   ! Soil Water,  after  forcing
+! #m0 deallocate          ( Wats_d )                                   ! Soil Water          forcing
+ 
+! #TB deallocate          ( etBump )                                   ! Bumps Layer Averaged Humidity
+ 
+      deallocate          ( SoRnOF )                                   ! Soil     Run    OFF
+      deallocate          ( Dhydtz )                                   ! Dhydif * dt / dz           [m]
+      deallocate          ( Diag_A )                                   ! A Diagonal
+      deallocate          ( Diag_B )                                   ! B Diagonal
+      deallocate          ( Diag_C )                                   ! C Diagonal
+      deallocate          ( Term_D )                                   !   Independant Term
+      deallocate          ( Aux__P )                                   ! P Auxiliary Variable
+      deallocate          ( Aux__Q )                                   ! Q Auxiliary Variable
+      deallocate          ( etaaux )                                   ! Soil Water Content     [m3/m3]
+ 
+      END IF                                                           !
+!                                                                      !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+ 
+      return
+      end subroutine SISVAT_qSo
+ 
+ 
+ 
+      subroutine SISVAT_wEq( labWEq ,istart)
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_wEq                           Wed 26-Jun-2013  MAR |
+!     SubRoutine SISVAT_wEq computes the Snow/Ice  Water  Equivalent       |
+!                                                                          |
+!     version 3.p.4.1 created by H. Gallee,           Tue  5-Feb-2013      |
+!           Last Modification by H. Gallee,           Wed 26-Jun-2013      |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: SISVAT IO (not always a standard preprocess.) |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |
+!     FILE                 |      CONTENT                                  |
+!     ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
+!   # SISVAT_wEq.ve        | #ve: OUTPUT/Verification: Snow/Ice Water Eqv. |
+!                          |      unit 45, SubRoutine  SISVAT_wEq **ONLY** |
+!--------------------------------------------------------------------------+
+ 
+ 
+! General Variables
+! =================
+ 
+      use Mod_Real
+      use Mod_SISVAT_ctr
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_kkl
+      use Mod_SISVAT_wEq
+ 
+ 
+      IMPLICIT NONE
+ 
+ 
+! Global Variables
+! ================
+ 
+      character(len=6)  ::  labWEq
+      integer           ::  istart
+ 
+ 
+! Local  Variables
+! ================
+ 
+      integer           ::  ikl,ikv   ,isn
+      real(kind=real8)  ::  SnoWEQ,IceWEQ
+ 
+ 
+! Switch Initialization
+! =====================
+ 
+      IF (.NOT.logWEq)                                              THEN
+               logWEq = .true.
+               open(unit=45,status='unknown',file='SISVAT_wEq.ve')
+               rewind    45
+      END IF
+ 
+ 
+! Snow Water Equivalent
+! =====================
+ 
+           ikl   = 1
+           ikv   = 1
+      IF          (isnoSV(ikl,ikv).gt.iiceSV(ikl,ikv))              THEN
+ 
+          SnoWEQ = 0.
+        DO isn   = iiceSV(ikl,ikv)+1 ,isnoSV(ikl,ikv)
+          SnoWEQ = SnoWEQ           + ro__SV(ikl,ikv,isn) * dzsnSV(ikl,ikv,isn)
+        END DO
+ 
+      END IF
+ 
+ 
+! Ice  Water Equivalent
+! =====================
+ 
+      IF          (iiceSV(ikl,ikv).gt.0)                            THEN
+ 
+          IceWEQ = 0.
+        DO isn   = 1      , iiceSV(ikl,ikv)
+          IceWEQ = IceWEQ + ro__SV(ikl,ikv,isn) * dzsnSV(ikl,ikv,isn)
+        END DO
+ 
+      END IF
+ 
+ 
+! OUTPUT
+! ======
+ 
+      IF (istart.eq.1)                                              THEN
+        write(45,45)dahost,i___SV(lwriSV(1,1)),j___SV(lwriSV(1,1))     &
+     &                    ,n___SV(lwriSV(1,1))
+ 45     format(a18,10('-'),'Pt.',3i4,60('-'))
+      END IF
+ 
+      write(45,450) labWEq,IceWEQ,iiceSV(ikl,ikv),SnoWEQ               &
+     &                    ,IceWEQ+SnoWEQ,isnoSV(ikl,ikv)               &
+     &                                  ,drr_SV(ikl,ikv)*dt__SV        &
+     &                                  ,dsn_SV(ikl,ikv)*dt__SV        &
+     &                                  ,BufsSV(ikl,ikv)
+ 450  format(a6,3x,'  I+S =',f11.4,'(',i2,') +',f11.4,' =',            &
+     &                       f11.4,'(',i2,')',                         &
+     &             '  drr =', f7.4,                                    &
+     &             '  dsn =', f7.4,                                    &
+     &             '  Buf =', f7.4)
+ 
+ 
+      return
+      end subroutine SISVAT_wEq
Index: LMDZ5/branches/testing/libf/phymar/YOMCST.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/YOMCST.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/YOMCST.h	(revision 2160)
@@ -0,0 +1,44 @@
+!
+! $Header$
+!
+!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
+!                 veillez à n'utiliser que des ! pour les commentaires
+!                 et à bien positionner les & des lignes de continuation
+!                 (les placer en colonne 6 et en colonne 73)
+!
+!
+! A1.0 Fundamental constants
+      REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO
+! A1.1 Astronomical constants
+      REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
+! A1.1.bis Constantes concernant l'orbite de la Terre:
+      REAL R_ecc, R_peri, R_incl
+! A1.2 Geoide
+      REAL RA,RG,R1SA
+! A1.3 Radiation
+!     REAL RSIGMA,RI0
+      REAL RSIGMA
+! A1.4 Thermodynamic gas phase
+      REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
+      REAL RKAPPA,RETV
+! A1.5,6 Thermodynamic liquid,solid phases
+      REAL RCW,RCS
+! A1.7 Thermodynamic transition of phase
+      REAL RLVTT,RLSTT,RLMLT,RTT,RATM
+! A1.8 Curve of saturation
+      REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
+      REAL RALPD,RBETD,RGAMD
+!
+      COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO                   &
+     &      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA                  &
+     &      ,R_ecc, R_peri, R_incl                                      &
+     &      ,RA    ,RG    ,R1SA                                         &
+     &      ,RSIGMA                                                     &
+     &      ,R     ,RMD   ,RMO3  ,RMV   ,RD    ,RV    ,RCPD             &
+     &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV                           &
+     &      ,RCW   ,RCS                                                 &
+     &      ,RLVTT ,RLSTT ,RLMLT ,RTT   ,RATM                           &
+     &      ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS            &
+     &      ,RALPD ,RBETD ,RGAMD
+!    ------------------------------------------------------------------
+!$OMP THREADPRIVATE(/YOMCST/)
Index: LMDZ5/branches/testing/libf/phymar/aaa.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/aaa.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/aaa.F90	(revision 2160)
@@ -0,0 +1,7 @@
+     SUBROUTINE aaa
+! Subroutine bidon pour forcer la compilation de PARKIND1
+USE PARKIND1
+USE Mod_Real
+
+     END
+
Index: LMDZ5/branches/testing/libf/phymar/clesphys.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/clesphys.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/clesphys.h	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/clesphys.h
Index: LMDZ5/branches/testing/libf/phymar/col2box.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/col2box.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/col2box.F90	(revision 2160)
@@ -0,0 +1,165 @@
+SUBROUTINE COL2BOX &
+ & (KIDIA, KFDIA, KLON, KLEV, KBOX, KOVLP &
+ & , PCLFR, PCLBX &
+ & )
+!
+!* Subdivide a column of cloud parameters in a set of homogeneous boxes
+!
+!     from C.Jakob and S.A. Klein
+!
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+INTEGER_M :: KIDIA
+INTEGER_M :: KFDIA
+INTEGER_M :: KLON
+INTEGER_M :: KLEV
+INTEGER_M :: KBOX
+INTEGER_M :: KOVLP
+
+REAL_B :: PCLFR(KLON,KLEV)
+REAL_B :: PCLBX(KLON,100,KLEV)
+            
+!-- local
+      
+INTEGER_M :: IABOX(KLON,KBOX), IABOXM1(KLON,KBOX), IABOXINT(KLON,KBOX)
+INTEGER_M :: IBOXTYPE1(KLON), IBOXTYPE2(KLON), IBOXTYPE3(KLON)
+INTEGER_M :: ISUMBOX(KBOX), ISUMBOXM1(KBOX)
+
+REAL_B :: ZTCC(KLON)      
+       
+                  
+ZBOXWIDTH=1./FLOAT(KBOX)
+ZAMIN =1.E-03
+ZEPSEC=1.E-06
+      
+DO JB=1,KBOX
+  DO JL=KIDIA,KFDIA
+    IABOXINT(JL,JB)=0
+    IABOXM1 (JL,JB)=0
+    IABOX   (JL,JB)=0
+  END DO
+END DO 
+DO JL=KIDIA,KFDIA
+  ZTCC(JL)     =_ZERO_
+  ISUMBOX(JL)  =_ZERO_
+  ISUMBOXM1(JL)=_ZERO_
+END DO                             
+                                            
+                                                               
+DO JK=1,KLEV
+!
+  IF (JK.GT.1) THEN
+    DO JB=1,KBOX
+      DO JL=KIDIA,KFDIA
+        IABOXM1(JL,JB)=IABOX(JL,JB)
+        ISUMBOXM1(JL)=ISUMBOXM1(JL)+IABOX(JL,JB)
+        IABOX(JL,JB)=0
+      END DO
+    END DO
+  END IF
+      
+  DO JL=KIDIA,KFDIA
+    ITCCM1=NINT(REAL(KBOX)*ZTCC(JL))           
+    IF (ZTCC(JL).GT.ZAMIN .AND. ZTCC(JL).LT._HALF_*ZBOXWIDTH) THEN
+      ITCCM1=1
+    END IF
+!
+!-- various cloud overlap assumptions
+!
+    IF (JK.GT.1) THEN 
+!
+!-- maximum-random
+!       
+      IF (KOVLP.EQ.1) THEN
+        ZTCC(JL) = _ONE_ - ( (_ONE_-ZTCC(JL)) &
+         &      *(_ONE_ -MAX( PCLFR(JL,JK)  , PCLFR(JL,JK-1))) &
+         &      /(_ONE_ -MIN( PCLFR(JL,JK-1), _ONE_-ZEPSEC))  )
+!
+!-- maximum
+!       
+      ELSE IF (KOVLP.EQ.2) THEN
+        ZTCC(JL)=MAX(ZTCC(JL),PCLFR(JL,JK))
+!
+!-- random
+!       
+      ELSE IF (KOVLP.EQ.3) THEN 
+        ZTCC(JL)=_ONE_-(_ONE_-ZTCC(JL))*(_ONE_-PCLFR(JL,JK))
+      END IF
+!
+    ELSE
+      ZTCC(JL)=PCLFR(JL,JK)
+    END IF
+!
+    ITCC=NINT(REAL(KBOX)*ZTCC(JL))
+    IF (ZTCC(JL).GT.ZAMIN .AND. ZTCC(JL).LT. _HALF_*ZBOXWIDTH) THEN
+      ITCC=1
+    END IF
+    IAM1=ISUMBOXM1(JL)
+    IA=NINT(REAL(KBOX)*PCLFR(JL,JK))
+    IF (PCLFR(JL,JK).GT.ZAMIN & 
+      &       .AND. PCLFR(JL,JK).LT. _HALF_*ZBOXWIDTH) THEN       
+      IA=1
+    END IF
+!     
+    IBOXTYPE1(JL)=ITCC-ITCCM1
+!     IF (KOVLP.NE.3) THEN
+    IBOXTYPE2(JL)=MIN( IAM1, IA-IBOXTYPE1(JL))
+!     ELSE
+!       IBOXTYPE2(JL)=NINT( FLOAT(IAM1)*FLOAT(IA-IBOXTYPE1(JL))
+!     &                    /MAX(FLOAT(ITCCM1), ZEPSEC) )
+!     END IF       
+    IBOXTYPE3(JL)=IA - IBOXTYPE1(JL)-IBOXTYPE2(JL)
+  END DO
+!
+  DO JB=1,KBOX
+    DO JL=KIDIA,KFDIA
+      IF (IABOXINT(JL,JB).EQ.0) THEN
+        IF (IBOXTYPE1(JL).GT.0) THEN
+          IABOX(JL,JB)=1
+          IABOXINT(JL,JB)=1
+          IBOXTYPE1(JL)=IBOXTYPE1(JL)-1
+        END IF
+      ELSE
+        IF (IABOXM1(JL,JB).EQ.1) THEN
+          IF (IBOXTYPE2(JL).GT.0) THEN
+            IABOX(JL,JB)=1
+            IBOXTYPE2(JL)=IBOXTYPE2(JL)-1
+          END IF
+        ELSE
+          IF (IBOXTYPE3(JL).GT.0) THEN
+            IABOX(JL,JB)=1
+            IBOXTYPE3(JL)=IBOXTYPE3(JL)-1
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+!     
+  DO JB=1,KBOX
+    DO JL=KIDIA,KFDIA
+      IF (JB.EQ.1) THEN
+        IBOXTYPE1(JL)=IBOXTYPE1(JL)+IBOXTYPE2(JL)+IBOXTYPE3(JL)
+      END IF
+      IF (IABOX(JL,JB).EQ.0 .AND. IBOXTYPE1(JL).GT.0) THEN
+        IABOX(JL,JB)=1
+        IBOXTYPE1(JL)=IBOXTYPE1(JL)-1
+      END IF
+      ISUMBOX(JL)=ISUMBOX(JL)+IABOX(JL,JB)
+    END DO             
+  END DO
+  DO JL=KIDIA,KFDIA
+    if (JK.GE.21) THEN
+      PRINT 9001,(IABOX(JL,JB),JB=1,KBOX)
+    end if  
+    DO JB=1,KBOX
+      PCLBX(JL,JB,JK)=FLOAT(IABOX(JL,JB))
+    END DO  
+9001 FORMAT(1X,100I1)        
+  END DO
+      
+END DO
+      
+RETURN
+END SUBROUTINE COL2BOX
Index: LMDZ5/branches/testing/libf/phymar/comcstphy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/comcstphy.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/comcstphy.F90	(revision 2160)
@@ -0,0 +1,8 @@
+module comcstphy
+  
+  real :: rradius ! planet radius (m)
+  real :: rr      ! recuced gas constant: R/molar mass of atm
+  real :: rg      ! gravity
+  real :: rcpp    ! specific heat of the atmosphere
+
+end module comcstphy
Index: LMDZ5/branches/testing/libf/phymar/comcstphy.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/comcstphy.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/comcstphy.h	(revision 2160)
@@ -0,0 +1,2 @@
+      real rradius,rr,rg,rcpp
+      common/comcstphy/rradius,rr,rg,rcpp
Index: LMDZ5/branches/testing/libf/phymar/comgeomphy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/comgeomphy.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/comgeomphy.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/comgeomphy.F90
Index: LMDZ5/branches/testing/libf/phymar/dimphy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/dimphy.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/dimphy.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/dimphy.F90
Index: LMDZ5/branches/testing/libf/phymar/fctast.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/fctast.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/fctast.h	(revision 2160)
@@ -0,0 +1,29 @@
+!      -----------------------------------------------------------
+
+! - Astronomical functions
+! you will find the description in the annex 1 of the documentation
+! RRS is the distance Sun-Earth
+! RDS is the declination of the Earth
+! RET is the equation of time
+
+! Orbit of the earth
+
+REAL_B :: RTETA,REL,REM,RRS,RLLS,RLLLS,RDS,RET
+REAL_B :: PTIME,PTETA
+
+RTETA(PTIME)=PTIME/(RDAY*365.25_JPRB)
+REL(PTETA)=1.7535_JPRB+6.283076_JPRB*PTETA
+REM(PTETA)=6.240075_JPRB+6.283020_JPRB*PTETA
+RRS(PTETA)=REA*(1.0001_JPRB-0.0163_JPRB*SIN(REL(PTETA))&
+          &+0.0037_JPRB*COS(REL(PTETA)))
+! Relative movement Sun/Earth
+RLLS(PTETA)=4.8951_JPRB+6.283076_JPRB*PTETA
+RLLLS(PTETA)=4.8952_JPRB+6.283320_JPRB*PTETA-0.0075_JPRB*SIN(REL(PTETA))&
+         &-0.0326_JPRB*COS(REL(PTETA))-0.0003_JPRB*SIN(_TWO_*REL(PTETA))&
+         &+0.0002_JPRB*COS(_TWO_*REL(PTETA))
+RDS(PTETA)=ASIN(SIN(REPSM)*SIN(RLLLS(PTETA)))
+RET(PTETA)=591.8_JPRB*SIN(_TWO_*RLLS(PTETA))-459.4_JPRB*SIN(REM(PTETA))&
+  &+39.5_JPRB*SIN(REM(PTETA))*COS(_TWO_*RLLS(PTETA))&
+  &-12.7_JPRB*SIN(4._JPRB*RLLS(PTETA))-4.8_JPRB*SIN(_TWO_*REM(PTETA))
+!    -------------------------------------------------------------
+
Index: LMDZ5/branches/testing/libf/phymar/fcttim.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/fcttim.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/fcttim.h	(revision 2160)
@@ -0,0 +1,46 @@
+!     ------------------------------------------------------------------
+
+! - Time functions
+!   the descriptions are in the annex 1 of the documentation
+
+! TIME
+
+! NDD   : extraxt dd from ccaammdd
+! NMM   : extract mm from ccaammdd
+! NAA   : extract aa from ccaammdd
+! NCCAA : extract ccaa from ccaammdd
+! NAMD  : extract aammdd from ccaammdd
+! NCENT : return centuary of ccaammdd
+! NYEARC: returns year of the centuary from ccaammdd
+! NCONSTRUCT_DATE : returns ccaammdd given centuary,year,month and day
+! NCTH  : turn seconds into hours
+! RTIME : returns the time of the model (in seconds of course!)
+
+INTEGER_M :: NDD,NMM,NCCAA,NAA,NAMD,NCTH,NZZAA,NZZMM,NCENT,NYEARC,&
+&NCONSTRUCT_DATE
+REAL_B :: RJUDAT,RTIME
+INTEGER_M :: KGRDAT,KSEC,KAAAA,KMM,KDD,KSS
+INTEGER_M :: KCENT,KYEARC,KMONTH,KDAY
+
+NDD(KGRDAT)  =MOD(INT(KGRDAT),100)
+NMM(KGRDAT)  =MOD((KGRDAT-NDD(KGRDAT))/100,100)
+NCCAA(KGRDAT)=KGRDAT/10000
+NAA(KGRDAT)=MOD(INT(NCCAA(KGRDAT)),100)
+NAMD(KGRDAT)=MOD(INT(KGRDAT),1000000)
+NCTH(KSEC)=KSEC/3600
+NCENT(KGRDAT)=NCCAA(KGRDAT)/100+MIN(INT(NAA(KGRDAT)),1)
+NYEARC(KGRDAT)=NAA(KGRDAT)+100*(1-MIN(INT(NAA(KGRDAT)),1))
+NCONSTRUCT_DATE(KCENT,KYEARC,KMONTH,KDAY)=&
+&(KCENT-1)*10**6+KYEARC*10**4+KMONTH*10**2+KDAY
+
+NZZAA(KAAAA,KMM)=KAAAA-( (1-SIGN(1,KMM-3))/2 )
+NZZMM(KMM)=KMM+6*(1-SIGN(1,KMM-3))
+RJUDAT(KAAAA,KMM,KDD)=1720994.5_JPRB + REAL(&
+  &2-NZZAA(KAAAA,KMM)/100 + (NZZAA(KAAAA,KMM)/100)/4 &
+&+ INT(365.25_JPRB*REAL(NZZAA(KAAAA,KMM),JPRB))&
+&+ INT(30.601_JPRB*REAL(NZZMM(KMM)+1,JPRB))&
+&+ KDD,JPRB)
+RTIME(KAAAA,KMM,KDD,KSS)=(RJUDAT(KAAAA,KMM,KDD)-2451545._JPRB)&
+    &*RDAY+REAL(KSS,JPRB)
+!    -------------------------------------------------------------
+
Index: LMDZ5/branches/testing/libf/phymar/fcttre.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/fcttre.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/fcttre.h	(revision 2160)
@@ -0,0 +1,144 @@
+!*
+!     ------------------------------------------------------------------
+#ifdef DOC
+
+!     This COMDECK includes the Thermodynamical functions for the cy39
+!       ECMWF Physics package.
+!       Consistent with YOMCST Basic physics constants, assuming the
+!       partial pressure of water vapour is given by a first order
+!       Taylor expansion of Qs(T) w.r.t. to Temperature, using constants
+!       in YOETHF
+!       Two sets of functions are available. In the first set only the
+!       cases water or ice are distinguished by temperature.  This set 
+!       consists of the functions FOEDELTA,FOEEW,FOEDE and FOELH.
+!       The second set considers, besides the two cases water and ice 
+!       also a mix of both for the temperature range RTICE < T < RTWAT.
+!       This set contains FOEALFA,FOEEWM,FOEDEM,FOELDCPM and FOELHM.
+
+!       Depending on the consideration of mixed phases either the first 
+!       set (e.g. surface, post-processing) or the second set 
+!       (e.g. clouds, condensation, convection) should be used.
+
+!     ------------------------------------------------------------------
+!     *****************************************************************
+
+!                NO CONSIDERATION OF MIXED PHASES
+
+!     *****************************************************************
+#endif
+REAL_B :: FOEDELTA
+REAL_B :: PTARE
+FOEDELTA (PTARE) = MAX (_ZERO_,SIGN(_ONE_,PTARE-RTT))
+#ifdef DOC
+
+!                  FOEDELTA = 1    water
+!                  FOEDELTA = 0    ice
+
+!     THERMODYNAMICAL FUNCTIONS .
+
+!     Pressure of water vapour at saturation
+!        INPUT : PTARE = TEMPERATURE
+#endif
+REAL_B :: FOEEW,FOEDE,FOEDESU,FOELH,FOELDCP
+FOEEW ( PTARE ) = R2ES*EXP (&
+  &(R3LES*FOEDELTA(PTARE)+R3IES*(_ONE_-FOEDELTA(PTARE)))*(PTARE-RTT)&
+&/ (PTARE-(R4LES*FOEDELTA(PTARE)+R4IES*(_ONE_-FOEDELTA(PTARE)))))
+
+FOEDE ( PTARE ) = &
+  &(FOEDELTA(PTARE)*R5ALVCP+(_ONE_-FOEDELTA(PTARE))*R5ALSCP)&
+&/ (PTARE-(R4LES*FOEDELTA(PTARE)+R4IES*(_ONE_-FOEDELTA(PTARE))))**2
+
+FOEDESU ( PTARE ) = &
+  &(FOEDELTA(PTARE)*R5LES+(_ONE_-FOEDELTA(PTARE))*R5IES)&
+&/ (PTARE-(R4LES*FOEDELTA(PTARE)+R4IES*(_ONE_-FOEDELTA(PTARE))))**2
+
+FOELH ( PTARE ) =&
+         &FOEDELTA(PTARE)*RLVTT + (_ONE_-FOEDELTA(PTARE))*RLSTT
+
+FOELDCP ( PTARE ) = &
+         &FOEDELTA(PTARE)*RALVDCP + (_ONE_-FOEDELTA(PTARE))*RALSDCP
+#ifdef DOC
+
+!     *****************************************************************
+
+!           CONSIDERATION OF MIXED PHASES
+
+!     *****************************************************************
+
+!     FOEALFA is calculated to distinguish the three cases:
+
+!                       FOEALFA=1            water phase
+!                       FOEALFA=0            ice phase
+!                       0 < FOEALFA < 1      mixed phase
+
+!               INPUT : PTARE = TEMPERATURE
+#endif
+REAL_B :: FOEALFA
+FOEALFA (PTARE) = MIN(_ONE_,((MAX(RTICE,MIN(RTWAT,PTARE))-RTICE)&
+ &/(RTWAT-RTICE))**2) 
+
+#ifdef DOC
+
+!     Pressure of water vapour at saturation
+!        INPUT : PTARE = TEMPERATURE
+#endif
+REAL_B :: FOEEWM,FOEDEM,FOELDCPM,FOELHM
+FOEEWM ( PTARE ) = R2ES *&
+     &(FOEALFA(PTARE)*EXP(R3LES*(PTARE-RTT)/(PTARE-R4LES))+&
+  &(_ONE_-FOEALFA(PTARE))*EXP(R3IES*(PTARE-RTT)/(PTARE-R4IES)))
+
+FOEDEM ( PTARE ) = FOEALFA(PTARE)*R5ALVCP*(_ONE_/(PTARE-R4LES)**2)+&
+             &(_ONE_-FOEALFA(PTARE))*R5ALSCP*(_ONE_/(PTARE-R4IES)**2)
+
+FOELDCPM ( PTARE ) = FOEALFA(PTARE)*RALVDCP+&
+            &(_ONE_-FOEALFA(PTARE))*RALSDCP
+
+FOELHM ( PTARE ) =&
+         &FOEALFA(PTARE)*RLVTT+(_ONE_-FOEALFA(PTARE))*RLSTT
+#ifdef DOC
+!     ------------------------------------------------------------------
+!     *****************************************************************
+
+!           CONSIDERATION OF DIFFERENT MIXED PHASE FOR CONV
+
+!     *****************************************************************
+
+!     FOEALFCU is calculated to distinguish the three cases:
+
+!                       FOEALFCU=1            water phase
+!                       FOEALFCU=0            ice phase
+!                       0 < FOEALFCU < 1      mixed phase
+
+!               INPUT : PTARE = TEMPERATURE
+#endif
+REAL_B :: FOEALFCU 
+FOEALFCU (PTARE) = MIN(_ONE_,((MAX(RTICECU,MIN(RTWAT,PTARE))&
+&-RTICECU)/(RTWAT-RTICECU))**2) 
+
+#ifdef DOC
+
+!     Pressure of water vapour at saturation
+!        INPUT : PTARE = TEMPERATURE
+#endif
+REAL_B :: FOEEWMCU,FOEDEMCU,FOELDCPMCU,FOELHMCU
+FOEEWMCU ( PTARE ) = R2ES *&
+     &(FOEALFCU(PTARE)*EXP(R3LES*(PTARE-RTT)/(PTARE-R4LES))+&
+  &(_ONE_-FOEALFCU(PTARE))*EXP(R3IES*(PTARE-RTT)/(PTARE-R4IES)))
+
+FOEDEMCU ( PTARE )=FOEALFCU(PTARE)*R5ALVCP*(_ONE_/(PTARE-R4LES)**2)+&
+             &(_ONE_-FOEALFCU(PTARE))*R5ALSCP*(_ONE_/(PTARE-R4IES)**2)
+
+FOELDCPMCU ( PTARE ) = FOEALFCU(PTARE)*RALVDCP+&
+            &(_ONE_-FOEALFCU(PTARE))*RALSDCP
+
+FOELHMCU ( PTARE ) =&
+         &FOEALFCU(PTARE)*RLVTT+(_ONE_-FOEALFCU(PTARE))*RLSTT
+!     ------------------------------------------------------------------
+#ifdef DOC
+
+!     Pressure of water vapour at saturation
+!     This one is for the WMO definition of saturation, i.e. always
+!     with respect to water.
+#endif
+REAL_B :: FOEEWMO
+FOEEWMO( PTARE ) = R2ES*EXP(R3LES*(PTARE-RTT)/(PTARE-R4LES))
Index: LMDZ5/branches/testing/libf/phymar/fcttrm.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/fcttrm.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/fcttrm.h	(revision 2160)
@@ -0,0 +1,100 @@
+!*
+!     ------------------------------------------------------------------
+#ifdef DOC
+
+!     CE COMDECK CONTIENT DEUX GROUPES DE FONCTIONS THERMODYNAMIQUES :
+
+!        * LE PREMIER (RLV,RLS,RLF,ESW,ESS,ES) CORRESPOND A DES
+!     FONCTIONS ABSOLUES (OU INTRINSEQUES) QUI DOIVENT ETRE UTILISEES
+!     POUR TOUT CE QUI CONCERNE LE MONDE REEL (DONNEES OBSERVEES ET
+!     SORTIES DESTINEES A ETRE COMPAREES A DE TELLES DONNEES).
+
+!        * LE SECOND (FOEW,FODLEW,FOQS,FODQS,FOLH) CORRESPOND AU MONDE
+!     DE LA PHYSIQUE DU MODELE (ET PAR CONSEQUENT DE TOUTE LES PARTIES
+!     DU CODE QUI DOIVENT ETRE COMPATIBLES AVEC CETTE PHYSIQUE :
+!     ANALYSE/DYNAMIQUE/POST-PROCESSING ... ). LES DIFFERENCES ENTRE LES
+!     DEUX GROUPES VIENNENT, DANS LA CONFIGURATION ACTUELLE DE LA
+!     PHYSIQUE, DES POINTS SUIVANTS :
+!         - CALCULS RELATIFS A LA VARIABLE Q DU MODELE
+!         - CALCULS DE DERIVATION PAR RAPPORT A LA TEMPERATURE
+!         - ABSENCE D'ETATS HORS-EQUILIBRE = UNE SEULE CHALEUR LATENTE
+!           DE FUSION
+!         - POSSIBILITE DE TRAVAILLER SANS LA PHASE GLACE = INDICE DE
+!           TEST BINAIRE.
+
+!     ------------------------------------------------------------------
+#endif
+!     ABSOLUTE THERMODYNAMICAL FUNCTIONS .
+
+
+!     RLV : LATENT HEAT OF VAPOURISATION
+!     RLS : LATENT HEAT OF SUBLIMATION
+!     RLF : LATENT HEAT OF FUSION
+!     ESW : SATURATION IN PRESENCE OF WATER
+!     ESS : SATURATION IN PRESENCE OF ICE
+!     ES  : SATURATION (IF T>RTT THEN WATER ; IF T<RTT THEN ICE)
+!        INPUT (FOR ALL SIX FUNCTIONS) : PTARG = TEMPERATURE .
+REAL_B :: RLV,RLS,RLF,ESW,ESS,ES
+REAL_B :: PTARG
+
+RLV(PTARG)=RLVTT+(RCPV-RCW)*(PTARG-RTT)
+RLS(PTARG)=RLSTT+(RCPV-RCS)*(PTARG-RTT)
+RLF(PTARG)=RLS(PTARG)-RLV(PTARG)
+ESW(PTARG)=EXP(RALPW-RBETW/PTARG-RGAMW*LOG(PTARG))
+ESS(PTARG)=EXP(RALPS-RBETS/PTARG-RGAMS*LOG(PTARG))
+ES (PTARG)=EXP(&
+          &(RALPW+RALPD*MAX(_ZERO_,SIGN(_ONE_,RTT-PTARG)))&
+         &-(RBETW+RBETD*MAX(_ZERO_,SIGN(_ONE_,RTT-PTARG)))/PTARG &
+         &-(RGAMW+RGAMD*MAX(_ZERO_,SIGN(_ONE_,RTT-PTARG)))*LOG(PTARG))
+
+!     ------------------------------------------------------------------
+!     FONCTIONS THERMODYNAMIQUES : FONCTIONS DEFINIES DE LA PHYSIQUE .
+
+
+!     FONCTION DE LA TENSION DE VAPEUR SATURANTE .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL_B :: FOEW
+REAL_B :: PDELARG
+FOEW ( PTARG,PDELARG ) = EXP (&
+    &( RALPW+PDELARG*RALPD )&
+  &- ( RBETW+PDELARG*RBETD ) / PTARG &
+  &- ( RGAMW+PDELARG*RGAMD ) * LOG(PTARG) )
+
+!     FONCTION DERIVEE DU LOGARITHME NEPERIEN DE LA PRECEDENTE (FOEW) .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL_B :: FODLEW
+FODLEW ( PTARG,PDELARG ) = (&
+      &( RBETW+PDELARG*RBETD )&
+    &- ( RGAMW+PDELARG*RGAMD ) * PTARG )&
+    &/ ( PTARG*PTARG )
+
+!     FONCTION HUMIDITE SPECIFIQUE SATURANTE .
+!        INPUT : PESPFAR = RAPPORT FOEW SUR PRESSION.
+REAL_B :: FOQS
+REAL_B :: PESPFAR
+FOQS ( PESPFAR ) = PESPFAR / ( _ONE_+RETV*MAX(_ZERO_,&
+    &(_ONE_-PESPFAR)) )
+
+!     FONCTION DERIVEE EN TEMPERATURE DE LA PRECEDENTE (FOQS) .
+!        INPUT : PQSFARG = FOQS
+!                PESPFAR = RAPPORT FOEW SUR PRESSION
+!                PDLEFAR = FODLEW.
+REAL_B :: FODQS 
+REAL_B :: PQSFARG,PDLEFAR 
+FODQS ( PQSFARG,PESPFAR,PDLEFAR ) = ( PQSFARG &
+   &* (_ONE_-PQSFARG)*PDLEFAR ) / (_ONE_-PESPFAR)
+
+!     FONCTION CHALEUR LATENTE .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL_B :: FOLH
+FOLH ( PTARG,PDELARG ) =  RV * (&
+    &( RBETW+PDELARG*RBETD )&
+  &- ( RGAMW+PDELARG*RGAMD ) * PTARG )
+!     ------------------------------------------------------------------
+
Index: LMDZ5/branches/testing/libf/phymar/gr_fi_ecrit.F
===================================================================
--- LMDZ5/branches/testing/libf/phymar/gr_fi_ecrit.F	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/gr_fi_ecrit.F	(revision 2160)
@@ -0,0 +1,27 @@
+!
+! $Id $
+!
+      SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
+      IMPLICIT NONE
+c
+c Transfer a field from the full physics grid
+c to a full 2D (lonxlat) grid suitable for outputs
+c
+      INTEGER,INTENT(IN) :: nfield,nlon,iim,jjmp1
+      REAL,INTENT(IN) :: fi(nlon,nfield)
+      REAL,INTENT(out) :: ecrit(iim*jjmp1,nfield)
+c
+      INTEGER :: i, n, ig, jjm
+c
+      jjm = jjmp1 - 1
+      DO n = 1, nfield
+         DO i=1,iim
+            ecrit(i,n) = fi(1,n)
+            ecrit(i+jjm*iim,n) = fi(nlon,n)
+         ENDDO
+         DO ig = 1, nlon - 2
+           ecrit(iim+ig,n) = fi(1+ig,n)
+         ENDDO
+      ENDDO
+
+      END
Index: LMDZ5/branches/testing/libf/phymar/iniphysiq.F
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iniphysiq.F	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iniphysiq.F	(revision 2160)
@@ -0,0 +1,110 @@
+!
+! $Id: iniphysiq.F 1403 2010-07-01 09:02:53Z fairhead $
+!
+      SUBROUTINE iniphysiq(ngrid,nlayer,
+     $           punjours,
+     $           pdayref,ptimestep,
+     $           plat,plon,parea,pcu,pcv,
+     $           prad,pg,pr,pcpp,iflag_phys)
+      USE dimphy, only : klev
+      USE mod_grid_phy_lmdz, only : klon_glo
+      USE mod_phys_lmdz_para, only : klon_omp,klon_omp_begin,
+     &                               klon_omp_end,klon_mpi_begin
+      USE comgeomphy, only : airephy,cuphy,cvphy,rlond,rlatd
+      USE comcstphy, only : rradius,rg,rr,rcpp
+
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c   Initialisation of the physical constants and some positional and 
+c   geometrical arrays for the physics
+c
+c
+c    ngrid                 Size of the horizontal grid.
+c                          All internal loops are performed on that grid.
+c    nlayer                Number of vertical layers.
+c    pdayref               Day of reference for the simulation
+c
+c=======================================================================
+ 
+ 
+cym#include "dimensions.h"
+cym#include "dimphy.h"
+cym#include "comgeomphy.h"
+#include "iniprint.h"
+
+      REAL,INTENT(IN) :: prad ! radius of the planet (m)
+      REAL,INTENT(IN) :: pg ! gravitational acceleration (m/s2)
+      REAL,INTENT(IN) :: pr ! ! reduced gas constant R/mu
+      REAL,INTENT(IN) :: pcpp ! specific heat Cp
+      REAL,INTENT(IN) :: punjours ! length (in s) of a standard day
+      INTEGER,INTENT(IN) :: ngrid ! number of horizontal grid points in the physics
+      INTEGER,INTENT(IN) :: nlayer ! number of atmospheric layers
+      REAL,INTENT(IN) :: plat(ngrid) ! latitudes of the physics grid
+      REAL,INTENT(IN) :: plon(ngrid) ! longitudes of the physics grid
+      REAL,INTENT(IN) :: parea(klon_glo) ! area (m2)
+      REAL,INTENT(IN) :: pcu(klon_glo) ! cu coeff. (u_covariant = cu * u)
+      REAL,INTENT(IN) :: pcv(klon_glo) ! cv coeff. (v_covariant = cv * v)
+      INTEGER,INTENT(IN) :: pdayref ! reference day of for the simulation
+      REAL,INTENT(IN) :: ptimestep !physics time step (s)
+      INTEGER,INTENT(IN) :: iflag_phys ! type of physics to be called
+
+      INTEGER :: ibegin,iend,offset
+      CHARACTER (LEN=20) :: modname='iniphysiq'
+      CHARACTER (LEN=80) :: abort_message
+ 
+      IF (nlayer.NE.klev) THEN
+         write(lunout,*) 'STOP in ',trim(modname)
+         write(lunout,*) 'Problem with dimensions :'
+         write(lunout,*) 'nlayer     = ',nlayer
+         write(lunout,*) 'klev   = ',klev
+         abort_message = ''
+         CALL abort_gcm (modname,abort_message,1)
+      ENDIF
+
+      IF (ngrid.NE.klon_glo) THEN
+         write(lunout,*) 'STOP in ',trim(modname)
+         write(lunout,*) 'Problem with dimensions :'
+         write(lunout,*) 'ngrid     = ',ngrid
+         write(lunout,*) 'klon   = ',klon_glo
+         abort_message = ''
+         CALL abort_gcm (modname,abort_message,1)
+      ENDIF
+
+!$OMP PARALLEL PRIVATE(ibegin,iend) 
+!$OMP+         SHARED(parea,pcu,pcv,plon,plat)
+      
+      offset=klon_mpi_begin-1
+      airephy(1:klon_omp)=parea(offset+klon_omp_begin:
+     &                          offset+klon_omp_end)
+      cuphy(1:klon_omp)=pcu(offset+klon_omp_begin:offset+klon_omp_end)
+      cvphy(1:klon_omp)=pcv(offset+klon_omp_begin:offset+klon_omp_end)
+      rlond(1:klon_omp)=plon(offset+klon_omp_begin:offset+klon_omp_end)
+      rlatd(1:klon_omp)=plat(offset+klon_omp_begin:offset+klon_omp_end)
+
+! copy some fundamental parameters to physics
+      rradius=prad
+      rg=pg
+      rr=pr
+      rcpp=pcpp
+
+!$OMP END PARALLEL
+
+!      print*,'ATTENTION !!! TRAVAILLER SUR INIPHYSIQ'
+!      print*,'CONTROLE DES LATITUDES, LONGITUDES, PARAMETRES ...'
+
+! Additional initializations for aquaplanets 
+!$OMP PARALLEL
+      if (iflag_phys>=100) then
+        call iniaqua(klon_omp,rlatd,rlond,iflag_phys)
+      endif
+!$OMP END PARALLEL
+
+!      RETURN
+!9999  CONTINUE
+!      abort_message ='Cette version demande les fichier rnatur.dat
+!     & et surf.def'
+!      CALL abort_gcm (modname,abort_message,1)
+
+      END
Index: LMDZ5/branches/testing/libf/phymar/init_phys_lmdz.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/init_phys_lmdz.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/init_phys_lmdz.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/init_phys_lmdz.F90
Index: LMDZ5/branches/testing/libf/phymar/iophy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iophy.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iophy.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/iophy.F90
Index: LMDZ5/branches/testing/libf/phymar/iophys.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iophys.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iophys.F90	(revision 2160)
@@ -0,0 +1,133 @@
+      subroutine iophys_ecrit(nom,lllm,titre,unite,px)
+      USE dimphy
+      USE mod_phys_lmdz_para
+      USE mod_grid_phy_lmdz
+      IMPLICIT NONE
+
+
+
+!  Ecriture de variables diagnostiques au choix dans la physique 
+!  dans un fichier NetCDF nomme  'diagfi'. Ces variables peuvent etre
+!  3d (ex : temperature), 2d (ex : temperature de surface), ou
+!  0d (pour un scalaire qui ne depend que du temps : ex : la longitude
+!  solaire)
+!  (ou encore 1d, dans le cas de testphys1d, pour sortir une colonne)
+!  La periode d'ecriture est donnee par 
+!  "ecritphy " regle dans le fichier de controle de run :  run.def
+!
+!    writediagfi peut etre appele de n'importe quelle subroutine
+!    de la physique, plusieurs fois. L'initialisation et la creation du
+!    fichier se fait au tout premier appel.
+!
+! WARNING : les variables dynamique (u,v,t,q,ps)
+!  sauvees par writediagfi avec une
+! date donnee sont legerement differentes que dans le fichier histoire car 
+! on ne leur a pas encore ajoute de la dissipation et de la physique !!!
+! IL est  RECOMMANDE d'ajouter les tendance physique a ces variables
+! avant l'ecriture dans diagfi (cf. physiq.F)
+!  
+! Modifs: Aug.2010 Ehouarn: enforce outputs to be real*4
+!
+!  parametres (input) :
+!  ----------
+!      unit : unite logique du fichier de sortie (toujours la meme)
+!      nom  : nom de la variable a sortir (chaine de caracteres)
+!      titre: titre de la variable (chaine de caracteres)
+!      unite : unite de la variable (chaine de caracteres)
+!      px : variable a sortir (real 0, 1, 2, ou 3d)
+!
+!=================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "netcdf.inc"
+#include "iotd.h"
+
+
+! Arguments on input:
+      integer lllm
+      character (len=*) :: nom,titre,unite
+      integer imjmax
+      parameter (imjmax=100000)
+      real px(klon_omp,lllm)
+      real xglo(klon_glo,lllm)
+      real zx(iim,jjp1,lllm)
+
+
+      CALL Gather(px,xglo)
+!$OMP MASTER
+      IF (is_mpi_root) THEN       
+        CALL Grid1Dto2D_glo(xglo,zx)
+        call iotd_ecrit(nom,lllm,titre,unite,zx)
+      ENDIF
+!$OMP END MASTER
+
+      return
+      end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      SUBROUTINE iophys_ini
+      USE mod_phys_lmdz_para
+
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
+!   -------
+!
+!   Objet:
+!   ------
+!
+!   'Initialize' the diagfi.nc file: write down dimensions as well
+!   as time-independent fields (e.g: geopotential, mesh area, ...)
+!
+!=======================================================================
+!-----------------------------------------------------------------------
+!   Declarations:
+!   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "comvert.h"
+
+real pi
+
+!   Arguments:
+!   ----------
+
+!$OMP MASTER
+    IF (is_mpi_root) THEN       
+pi=2.*asin(1.)
+call iotd_ini('phys.nc   ', &
+iim,jjp1,llm,rlonv(1:iim)*180./pi,rlatu*180./pi,presnivs)
+    ENDIF
+!$OMP END MASTER
+
+      END
+
+#ifdef und
+      SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
+      IMPLICIT none
+
+!=======================================================================
+      INTEGER nfield,nlon,iim,jjmp1, jjm
+      REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield)
+
+      INTEGER i, n, ig
+
+      jjm = jjmp1 - 1
+      DO n = 1, nfield
+         DO i=1,iim
+            ecrit(i,n) = fi(1,n)
+            ecrit(i+jjm*iim,n) = fi(nlon,n)
+         ENDDO
+         DO ig = 1, nlon - 2
+           ecrit(iim+ig,n) = fi(1+ig,n)
+         ENDDO
+      ENDDO
+      RETURN
+      END
+
+#endif
Index: LMDZ5/branches/testing/libf/phymar/iostart.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iostart.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iostart.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/iostart.F90
Index: LMDZ5/branches/testing/libf/phymar/iotd.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iotd.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iotd.h	(revision 2160)
@@ -0,0 +1,5 @@
+      integer imax,jmax,lmax,nid
+      INTEGER dim_coord(4)
+      real iotd_ts
+
+      common/ecritd_c/imax,jmax,lmax,nid,dim_coord,iotd_ts
Index: LMDZ5/branches/testing/libf/phymar/iotd_ecrit.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iotd_ecrit.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iotd_ecrit.F90	(revision 2160)
@@ -0,0 +1,192 @@
+      subroutine iotd_ecrit(nom,llm,titre,unite,px)
+
+
+!  Ecriture de variables diagnostiques au choix dans la physique 
+!  dans un fichier NetCDF nomme  'diagfi'. Ces variables peuvent etre
+!  3d (ex : temperature), 2d (ex : temperature de surface), ou
+!  0d (pour un scalaire qui ne depend que du temps : ex : la longitude
+!  solaire)
+!  (ou encore 1d, dans le cas de testphys1d, pour sortir une colonne)
+!  La periode d'ecriture est donnee par 
+!  "ecritphy " regle dans le fichier de controle de run :  run.def
+!
+!    writediagfi peut etre appele de n'importe quelle subroutine
+!    de la physique, plusieurs fois. L'initialisation et la creation du
+!    fichier se fait au tout premier appel.
+!
+! WARNING : les variables dynamique (u,v,t,q,ps)
+!  sauvees par writediagfi avec une
+! date donnee sont legerement differentes que dans le fichier histoire car 
+! on ne leur a pas encore ajoute de la dissipation et de la physique !!!
+! IL est  RECOMMANDE d'ajouter les tendance physique a ces variables
+! avant l'ecriture dans diagfi (cf. physiq.F)
+!  
+! Modifs: Aug.2010 Ehouarn: enforce outputs to be real*4
+!
+!  parametres (input) :
+!  ----------
+!      unit : unite logique du fichier de sortie (toujours la meme)
+!      nom  : nom de la variable a sortir (chaine de caracteres)
+!      titre: titre de la variable (chaine de caracteres)
+!      unite : unite de la variable (chaine de caracteres)
+!      px : variable a sortir (real 0, 1, 2, ou 3d)
+!
+!=================================================================
+ 
+      implicit none
+
+! Commons
+
+#include "netcdf.inc"
+#include "iotd.h"
+
+
+! Arguments on input:
+      integer llm
+      character (len=*) :: nom,titre,unite
+      integer imjmax
+      parameter (imjmax=100000)
+      real px(imjmax*llm)
+
+! Local variables:
+
+      real*4 date
+      real*4 zx(imjmax*llm)
+
+
+      integer ierr,ndim,dim_cc(4)
+      integer iq
+      integer i,j,l
+
+      integer zitau
+      character firstnom*20
+      SAVE firstnom
+      SAVE zitau
+      SAVE date
+      data firstnom /'1234567890'/
+      data zitau /0/
+
+! Ajouts
+      integer, save :: ntime=0
+      integer :: idim,varid
+      character (len =50):: fichnom
+      integer, dimension(4) :: id
+      integer, dimension(4) :: edges,corner
+      
+
+!***************************************************************
+! Initialisation of 'firstnom' and create/open the "diagfi.nc" NetCDF file
+! ------------------------------------------------------------------------
+! (Au tout premier appel de la subroutine durant le run.)
+
+
+!--------------------------------------------------------
+! Write the variables to output file if it's time to do so
+!--------------------------------------------------------
+
+
+! Compute/write/extend 'Time' coordinate (date given in days)
+! (done every "first call" (at given time level) to writediagfi)
+! Note: date is incremented as 1 step ahead of physics time
+!--------------------------------------------------------
+
+        zx(1:imax*jmax*llm)=px(1:imax*jmax*llm)
+        if (firstnom =='1234567890') then
+            firstnom=nom
+        endif
+
+!      print*,'nom ',nom,firstnom
+
+!! Quand on tombe sur la premiere variable on ajoute un pas de temps
+        if (nom.eq.firstnom) then
+        ! We have identified a "first call" (at given date)
+
+           ntime=ntime+1 ! increment # of stored time steps
+
+!!          print*,'ntime ',ntime
+           date=ntime
+!          date= float (zitau +1)/float (day_step)
+
+           ! compute corresponding date (in days and fractions thereof)
+           ! Get NetCDF ID of 'Time' variable
+
+           ierr=NF_SYNC(nid)
+
+           ierr= NF_INQ_VARID(nid,"Time",varid)
+           ! Write (append) the new date to the 'Time' array
+
+
+           ierr= NF_PUT_VARA_REAL(nid,varid,ntime,1,date)
+
+!          print*,'date ',date,ierr,nid
+!        print*,'IOTD Date ,varid,nid,ntime,date',varid,nid,ntime,date
+
+           if (ierr.ne.NF_NOERR) then
+              write(*,*) "***** PUT_VAR matter in writediagfi_nc"
+              write(*,*) "***** with time"
+              write(*,*) 'ierr=', ierr   
+           endif
+
+!          write(6,*)'WRITEDIAGFI: date= ', date
+        end if ! of if (nom.eq.firstnom)
+
+
+!Case of a 3D variable
+!---------------------
+        if (llm==lmax) then
+           ndim=4
+           corner(1)=1
+           corner(2)=1
+           corner(3)=1
+           corner(4)=ntime
+           edges(1)=imax
+           edges(2)=jmax
+           edges(3)=llm
+           edges(4)=1
+           dim_cc=dim_coord
+
+
+!Case of a 2D variable
+!---------------------
+
+        else if (llm==1) then
+           ndim=3
+           corner(1)=1
+           corner(2)=1
+           corner(3)=ntime
+           corner(4)=1
+           edges(1)=imax
+           edges(2)=jmax
+           edges(3)=1
+           edges(4)=1
+           dim_cc(1:2)=dim_coord(1:2)
+           dim_cc(3)=dim_coord(4)
+
+        endif ! of if llm=1 ou llm
+
+! AU premier pas de temps, on crée les variables
+!-----------------------------------------------
+
+      if (ntime==1) then
+          ierr = NF_REDEF (nid)
+          ierr = NF_DEF_VAR(nid,nom,NF_FLOAT,ndim,dim_cc,varid)
+          print*,'DEF ',nom,nid,varid
+          ierr = NF_ENDDEF(nid)
+      else
+         ierr= NF_INQ_VARID(nid,nom,varid)
+          print*,'INQ ',nom,nid,varid
+! Commandes pour recuperer automatiquement les coordonnees
+!             ierr= NF_INQ_DIMID(nid,"longitude",id(1))
+      endif
+
+
+      ierr= NF_PUT_VARA_REAL(nid,varid,corner,edges,zx)
+
+      if (ierr.ne.NF_NOERR) then
+           write(*,*) "***** PUT_VAR problem in writediagfi"
+           write(*,*) "***** with ",nom
+           write(*,*) 'ierr=', ierr
+      endif 
+
+
+      end
Index: LMDZ5/branches/testing/libf/phymar/iotd_fin.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iotd_fin.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iotd_fin.F90	(revision 2160)
@@ -0,0 +1,29 @@
+      SUBROUTINE iotd_fin
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
+!   -------
+!
+!   Objet:
+!   ------
+!
+!   'Initialize' the diagfi.nc file: write down dimensions as well
+!   as time-independent fields (e.g: geopotential, mesh area, ...)
+!
+!=======================================================================
+!-----------------------------------------------------------------------
+!   Declarations:
+!   -------------
+
+#include "netcdf.inc"
+#include "iotd.h"
+      integer ierr
+
+!   Arguments:
+!   ----------
+
+      ierr=NF_close(nid)
+
+      END
Index: LMDZ5/branches/testing/libf/phymar/iotd_ini.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/iotd_ini.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/iotd_ini.F90	(revision 2160)
@@ -0,0 +1,118 @@
+      SUBROUTINE iotd_ini(fichnom,iim,jjm,llm,prlonv,prlatu,pcoordv)
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
+!   -------
+!
+!   Objet:
+!   ------
+!
+!   'Initialize' the diagfi.nc file: write down dimensions as well
+!   as time-independent fields (e.g: geopotential, mesh area, ...)
+!
+!=======================================================================
+!-----------------------------------------------------------------------
+!   Declarations:
+!   -------------
+
+#include "netcdf.inc"
+#include "iotd.h"
+
+!   Arguments:
+!   ----------
+
+      integer iim,jjm,llm
+      real prlonv(iim),prlatu(jjm),pcoordv(llm),timestep
+      INTEGER id_FOCE
+
+      integer corner(4),edges(4),ndim
+      real  px(1000)
+      character (len=10) :: nom
+
+!   Local:
+!   ------
+      INTEGER ierr
+
+      integer :: nvarid
+      integer, dimension(2) :: id  
+      integer :: varid
+
+      character*10 fichnom
+      real*4 rlonv(iim),rlatu(jjm),coordv(llm)
+
+      real pi
+
+      print*,'INIIO prlonv ',prlonv
+      imax=iim
+      jmax=jjm
+      lmax=llm
+
+      rlonv=prlonv
+      rlatu=prlatu
+      coordv=pcoordv
+
+!-----------------------------------------------------------------------
+
+
+      pi=2.*asin(1.)
+
+! Define dimensions
+    
+         ! Create the NetCDF file
+         ierr=NF_CREATE(fichnom, NF_CLOBBER, nid)
+         ! Define the 'Time' dimension
+         ierr=nf_def_dim(nid,"Time",NF_UNLIMITED,dim_coord(4))
+         ! Define the 'Time' variable
+         ierr=NF_DEF_VAR(nid, "Time", NF_FLOAT, 1, dim_coord(4),varid)
+!        ! Add a long_name attribute
+!        ierr=NF_PUT_ATT_TEXT(nid, varid, "long_name",4,"Time")
+!        ! Add a units attribute
+         ierr=NF_PUT_ATT_TEXT(nid, varid,'units',29,"days since 0000-00-0 00:00:00")
+         ! Switch out of NetCDF Define mode
+
+      ierr=NF_DEF_DIM(nid, "longitude", iim, dim_coord(1))
+      ierr=NF_DEF_DIM(nid, "latitude", jjm, dim_coord(2))
+      ierr=NF_DEF_DIM(nid, "altitude", llm, dim_coord(3))
+
+
+      ierr=NF_ENDDEF(nid)
+!
+!  Contol parameters for this run
+! --------------------------
+
+      ierr=NF_REDEF(nid)
+      ierr=NF_DEF_VAR(nid,"longitude", NF_FLOAT, 1, dim_coord(1),nvarid)
+!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name", 14,
+!    .      "East longitude")
+!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,'units',12,"degrees_east")
+      ierr=NF_ENDDEF(nid)
+      ierr=NF_PUT_VAR_REAL(nid,nvarid,rlonv)
+       print*,ierr
+
+! --------------------------
+      ierr=NF_REDEF(nid)
+      ierr=NF_DEF_VAR(nid, "latitude", NF_FLOAT, 1, dim_coord(2),nvarid)
+!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,'units',13,"degrees_north")
+!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name", 14,"North latitude")
+      ierr=NF_ENDDEF(nid)
+      ierr=NF_PUT_VAR_REAL(nid,nvarid,rlatu)
+!
+! --------------------------
+      ierr=NF_REDEF(nid)
+      ierr=NF_DEF_VAR(nid, "altitude", NF_FLOAT, 1,dim_coord(3),nvarid)
+      ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name",10,"pseudo-alt")
+!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,'units',2,"km")
+      if ( pcoordv(2)>pcoordv(1) ) then
+         ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name",10,"pseudo-alt")
+         ierr=NF_PUT_ATT_TEXT(nid,nvarid,'positive',2,"up")
+      else
+         ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name",8,"pressure")
+         ierr = NF_PUT_ATT_TEXT (nid,nvarid,'positive',4,"down")
+      endif
+      ierr=NF_ENDDEF(nid)
+
+      ierr=NF_PUT_VAR_REAL(nid,nvarid,coordv)
+!
+      END
Index: LMDZ5/branches/testing/libf/phymar/legtri.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/legtri.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/legtri.F90	(revision 2160)
@@ -0,0 +1,121 @@
+SUBROUTINE LEGTRI (PSIN,KCP,KDIM,PALP)
+
+!**** *LEGTRI* - *LEGENDRE FUNCTIONS FOR A TRIANGULAR TRUNCATION.
+
+!     J.F.GELEYN     E.C.M.W.F.     03/06/82.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE VALUES *PALP* FOR THE ARGUMENT
+!     *PSIN* OF THE NORMALISED *LEGENDRE ASSOCIATED FUNCTIONS IN THE
+!     ORDER ((JN1=JM1,KCP),JM1=1,KCP) FOR JN=JN1-1 AND JM=JM1-1 .
+
+!**   INTERFACE.
+!     ----------
+
+!          *LEGTRI* IS CALLED FROM *RADMOD*.
+!          THERE ARE THREE DUMMY ARGUMENTS: *PSIN* IS THE SINE OF
+!     LATITUDE.
+!                                           *KCP* IS ONE PLUS THE LIMIT
+!     WAVE NUMBER.
+!                                           *PALP* IS THE ARRAY OF THE
+!     RESULTS.
+
+!     METHOD.
+!     -------
+
+!          SIMPLE RECURENCE FORMULA.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KCP
+INTEGER_M :: KDIM
+
+!     DUMMY REAL SCALARS
+REAL_B :: PSIN
+
+REAL_B :: PALP(KDIM)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IC, ICP, II, IM, IM2, JM1, JN
+
+!     LOCAL REAL SCALARS
+REAL_B :: Z2M, ZCOS, ZE1, ZE2, ZF1M, ZF2M, ZM, ZN, ZN2, ZRE1, ZSIN
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     PRELIMINARY SETTING.
+!                 ----------- --------
+
+
+ZSIN=PSIN
+ICP=KCP
+
+!     ------------------------------------------------------------------
+
+!*         2.     COMPUTATIONS.
+!                 -------------
+
+
+IC=ICP-1
+ZCOS=SQRT(_ONE_-ZSIN**2)
+II=2
+PALP(1)=_ONE_
+ZF1M=SQRT(3._JPRB)
+PALP(2)=ZF1M*ZSIN
+DO JM1=1,ICP
+  IM=JM1-1
+  ZM=IM
+  Z2M=ZM+ZM
+  ZRE1=SQRT(Z2M+3._JPRB)
+  ZE1=_ONE_/ZRE1
+  IF(IM == 0) GO TO 201
+  ZF2M=ZF1M*ZCOS/SQRT(Z2M)
+  ZF1M=ZF2M*ZRE1
+  II=II+1
+  PALP(II)=ZF2M
+  IF(IM == IC) GO TO 203
+  II=II+1
+  PALP(II)=ZF1M*ZSIN
+  IF(JM1 == IC) GO TO 203
+  201 CONTINUE
+  IM2=IM+2
+  DO JN=IM2,IC
+    ZN=JN
+    ZN2=ZN**2
+    ZE2=SQRT((4._JPRB*ZN2-_ONE_)/(ZN2-ZM**2))
+    II=II+1
+    PALP(II)=ZE2*(ZSIN*PALP(II-1)-ZE1*PALP(II-2))
+    ZE1=_ONE_/ZE2
+  ENDDO
+  203 continue
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.     RETURN.
+!                 -------
+
+
+RETURN
+END SUBROUTINE LEGTRI
+
+
+
Index: LMDZ5/branches/testing/libf/phymar/lw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lw.F90	(revision 2160)
@@ -0,0 +1,200 @@
+SUBROUTINE LW &
+ &( KIDIA, KFDIA , KLON  , KLEV  , KMODE &
+ &, PCCO2, PCLDLD, PCLDLU &
+ &, PDP  , PDT0  , PEMIS , PEMIW &
+ &, PPMB , PQOF  , PTL &
+ &, PAER , PTAVE , PVIEW , PWV &
+ &, PCOLR, PCOLC , PEMIT , PFLUX , PFLUC &
+ &)
+
+!**** *LW*   - ORGANIZES THE LONGWAVE CALCULATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES LONGWAVE FLUXES 
+
+!**   INTERFACE.
+!     ----------
+
+!        *LW* IS CALLED FROM *RADLSW*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PCLDLD : (KLON,KLEV)       ; DOWNWARD EFFECTIVE CLOUD FRACTION
+! PCLDLU : (KLON,KLEV)       ; UPWARD EFFECTIVE CLOUD FRACTION
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY  
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PPMB   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PQOF   : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PTL    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+! PVIEW  : (KLON)            ; COSECANT OF VIEWING ANGLE
+! PWV    : (KLON,KLEV)       ; SPECIFIC HUMIDITY  (PA/PA)
+!     ==== OUTPUTS ===
+! PCOLR(KLON,KLEV)           ; LONG-WAVE TENDENCY
+! PCOLC(KLON,KLEV)           ; LONG-WAVE TENDENCY CLEAR SKY
+! PEMIT(KLON)                ; SURFACE TOTAL LW EMISSIVITY
+! PFLUX(KLON,2,KLEV)         ; RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+! PFLUC(KLON,2,KLEV)         ; RADIATIVE FLUXES CLEAR SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+!     ABSORBERS.
+!          2. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE
+!     GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS.
+!          3. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON-
+!     TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE
+!     BOUNDARIES.
+!          4. COMPUTES THE CLEAR-SKY DOWNWARD AND UPWARD EMISSIVITIES.
+!          5. INTRODUCES THE EFFECTS OF THE CLOUDS ON THE FLUXES.
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWU*, *LWBV*, *LWC*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        99-05-25   JJMorcrette    Revised aerosols
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NUA
+USE YOERDU   , ONLY : RCDAY
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KMODE
+
+!     DUMMY REAL SCALARS
+REAL_B :: PCCO2
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PAER(KLON,6,KLEV)&
+  &,  PCLDLD(KLON,KLEV)   , PCLDLU(KLON,KLEV)&
+  &,  PDP(KLON,KLEV)      , PDT0(KLON)       &
+  &,  PEMIS(KLON)         , PEMIW(KLON)&
+  &,  PPMB(KLON,KLEV+1)&
+  &,  PQOF(KLON,KLEV)  &
+  &,  PTL(KLON,KLEV+1)    , PTAVE(KLON,KLEV) &
+  &,  PVIEW(KLON)         , PWV(KLON,KLEV)
+
+REAL_B :: PCOLR(KLON,KLEV)    , PCOLC(KLON,KLEV)&
+  &,  PEMIT(KLON) &
+  &,  PFLUX(KLON,2,KLEV+1), PFLUC(KLON,2,KLEV+1)
+
+!-------------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+REAL_B :: ZABCU(KLON,NUA,3*KLEV+1)&
+  &,  ZBINT(KLON,KLEV+1)        , ZBSUI(KLON)&
+  &,  ZCNTRB(KLON,KLEV+1,KLEV+1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JK, JKL, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZDCNET, ZDFNET
+
+
+!     ------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!100  CONTINUE
+
+!     ------------------------------------------------------------------
+
+!*         1.1   COMPUTES ABSORBER AMOUNTS
+!                -------------------------
+
+CALL LWU &
+  &(  KIDIA, KFDIA, KLON, KLEV &
+  &,  PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV &
+  &,  ZABCU &
+  &)
+
+!     ------------------------------------------------------------------
+
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+!                PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+
+CALL LWBV &
+   &( KIDIA, KFDIA, KLON , KLEV  , KMODE &
+   &, PDT0 , PEMIS, PEMIW, PTL   , PTAVE &
+   &, PEMIT, PFLUC &
+   &, ZABCU, ZBINT, ZBSUI, ZCNTRB &
+   &)
+
+!     ------------------------------------------------------------------
+
+!*         4.    INTRODUCES THE EFFECTS OF CLOUDS
+!                --------------------------------
+
+!print *,'Just before LWC'
+CALL LWC &
+  &( KIDIA , KFDIA, KLON  , KLEV &
+  &, ZBINT , ZBSUI, PCLDLD, PCLDLU &
+  &, ZCNTRB, PEMIT, PFLUC &
+  &, PFLUX    &
+  &)
+
+DO JKL = 1 , KLEV
+  JK = KLEV+1 - JKL
+  DO JL = KIDIA,KFDIA
+    ZDCNET = PFLUC(JL,1,JK+1) + PFLUC(JL,2,JK+1)&
+     &-PFLUC(JL,1,JK  ) - PFLUC(JL,2,JK  )
+    PCOLC(JL,JK) = RCDAY * ZDCNET / PDP(JL,JKL)
+    ZDFNET = PFLUX(JL,1,JK+1) + PFLUX(JL,2,JK+1)&
+     &-PFLUX(JL,1,JK  ) - PFLUX(JL,2,JK  )
+    PCOLR(JL,JK) = RCDAY * ZDFNET / PDP(JL,JKL)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LW
Index: LMDZ5/branches/testing/libf/phymar/lwb.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwb.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwb.F90	(revision 2160)
@@ -0,0 +1,278 @@
+SUBROUTINE LWB &
+ &( KIDIA, KFDIA, KLON  , KLEV  , KMODE &
+ &, PDT0 , PTAVE, PTL &
+ &, PB   , PBINT, PBSUR , PBTOP , PDBSL &
+ &, PGA  , PGB  , PGASUR, PGBSUR, PGATOP, PGBTOP    &
+ &)
+
+!**** *LWB*   - COMPUTES BLACK-BODY FUNCTIONS FOR LONGWAVE CALCULATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES PLANCK FUNCTIONS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PTL    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+!     ==== OUTPUTS ===
+! PB     : (KLON,NSIL,KLEV+1); SPECTRAL HALF LEVEL PLANCK FUNCTION
+! PBINT  : (KLON,KLEV+1)     ; HALF LEVEL PLANCK FUNCTION
+! PBSUR  : (KLON,NSIL)       ; SURFACE SPECTRAL PLANCK FUNCTION
+! PBTOP  : (KLON,NSIL)       ; TOP SPECTRAL PLANCK FUNCTION
+! PDBSL  : (KLON,NSIL,KLEV*2); SUB-LAYER PLANCK FUNCTION GRADIENT
+! PGA    : (KLON,8,2,KLEV)   ; dB/dT-weighted LAYER PADE APPROXIMANTS
+! PGB    : (KLON,8,2,KLEV)   ; dB/dT-weighted LAYER PADE APPROXIMANTS
+! PGASUR, PGBSUR (KLON,8,2)  ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP (KLON,8,2)  ; T.O.A. PADE APPROXIMANTS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PLANCK FUNCTION ON ALL LEVELS AND HALF LEVELS
+!     FROM A POLYNOMIAL DEVELOPMENT OF PLANCK FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS           "
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        MODIFIED : 99-06-14  D.SALMOND  Optimisation
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,PDGA     ,&
+            &PDGB     ,TINTP    ,TSTAND   ,TSTP     ,XP
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KMODE
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PDT0(KLON),PTAVE(KLON,KLEV),PTL(KLON,KLEV+1)
+
+REAL_B :: PB(KLON,NSIL,KLEV+1)   , PBINT(KLON,KLEV+1)&
+  &,  PBSUR(KLON,NSIL)       ,  PBTOP(KLON,NSIL)   &
+  &,  PDBSL(KLON,NSIL,KLEV*2)&
+  &,  PGA(KLON,NIPD,2,KLEV)  , PGB(KLON,NIPD,2,KLEV)&
+  &,  PGASUR(KLON,NIPD,2)    , PGBSUR(KLON,NIPD,2)&
+  &,  PGATOP(KLON,NIPD,2)    , PGBTOP(KLON,NIPD,2)
+
+!-------------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+INTEGER_M :: INDB(KLON)   , INDS(KLON)
+REAL_B :: ZBLAY(KLON,KLEV), ZBLEV(KLON,KLEV+1)&
+  &,  ZRES(KLON)      , ZRES2(KLON)&
+  &,  ZTI(KLON)       , ZTI2(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: ILEV2, INDSU, INDT, INDTO, INDTP, INUE, INUS,&
+             &IXTOX, IXTX, JF, JG, JK, JK1, JK2, JL, JNU
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZDST1, ZDSTO1, ZDSTOX, ZDSTX
+
+
+!     ------------------------------------------------------------------
+
+
+!*         1.0     PLANCK FUNCTIONS AND GRADIENTS
+!                  ------------------------------
+
+ILEV2=2*KLEV
+INUS=1
+INUE=NSIL
+IF (KMODE == 2) THEN
+  INUS=3
+  INUE=4
+ENDIF
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PBINT(JL,JK) = _ZERO_
+  ENDDO
+ENDDO
+
+DO JNU=1,NSIL
+  DO JL=KIDIA,KFDIA
+    PBSUR(JL,JNU)=_ZERO_
+    PBTOP(JL,JNU)=_ZERO_
+  ENDDO
+  DO JK=1,KLEV
+    DO JL=KIDIA,KFDIA
+      PB(JL,JNU,JK)=_ZERO_
+    ENDDO
+  ENDDO
+  DO JK=1,ILEV2
+    DO JL=KIDIA,KFDIA
+      PDBSL(JL,JNU,JK)=_ZERO_
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JNU=INUS,INUE
+
+
+!*         1.1   LEVELS FROM SURFACE TO KLEV
+!                ----------------------------
+
+  DO JK = 1 , KLEV
+    DO JL = KIDIA,KFDIA
+      ZTI(JL)=(PTL(JL,JK)-TSTAND)/TSTAND
+      ZRES(JL) = XP(1,JNU)+ZTI(JL)*(XP(2,JNU)+ZTI(JL)*(XP(3,JNU)&
+       &+ZTI(JL)*(XP(4,JNU)+ZTI(JL)*(XP(5,JNU)+ZTI(JL)*(XP(6,JNU)&
+       &)))))
+      PBINT(JL,JK)=PBINT(JL,JK)+ZRES(JL)
+      PB(JL,JNU,JK)= ZRES(JL)
+      ZBLEV(JL,JK) = ZRES(JL)
+
+      ZTI2(JL)=(PTAVE(JL,JK)-TSTAND)/TSTAND
+      ZRES2(JL)=XP(1,JNU)+ZTI2(JL)*(XP(2,JNU)+ZTI2(JL)*(XP(3,JNU)&
+       &+ZTI2(JL)*(XP(4,JNU)+ZTI2(JL)*(XP(5,JNU)+ZTI2(JL)*(XP(6,&
+       &JNU)&
+       &)))))
+      ZBLAY(JL,JK) = ZRES2(JL)
+    ENDDO
+  ENDDO
+
+
+!*         1.2   TOP OF THE ATMOSPHERE AND SURFACE
+!                ---------------------------------
+
+  DO JL = KIDIA,KFDIA
+    ZTI(JL)=(PTL(JL,KLEV+1)-TSTAND)/TSTAND
+    ZTI2(JL) = (PTL(JL,1) + PDT0(JL) - TSTAND) / TSTAND
+    ZRES(JL) = XP(1,JNU)+ZTI(JL)*(XP(2,JNU)+ZTI(JL)*(XP(3,JNU)&
+     &+ZTI(JL)*(XP(4,JNU)+ZTI(JL)*(XP(5,JNU)+ZTI(JL)*(XP(6,JNU)&
+     &)))))
+    ZRES2(JL) = XP(1,JNU)+ZTI2(JL)*(XP(2,JNU)+ZTI2(JL)*(XP(3,JNU)&
+     &+ZTI2(JL)*(XP(4,JNU)+ZTI2(JL)*(XP(5,JNU)+ZTI2(JL)*(XP(6,JNU)&
+     &)))))
+    PBINT(JL,KLEV+1) = PBINT(JL,KLEV+1)+ZRES(JL)
+    PB(JL,JNU,KLEV+1)= ZRES(JL)
+    ZBLEV(JL,KLEV+1) = ZRES(JL)
+    PBTOP(JL,JNU) = ZRES(JL)
+    PBSUR(JL,JNU) = ZRES2(JL)
+  ENDDO
+
+
+!*         1.3   GRADIENTS IN SUB-LAYERS
+!                -----------------------
+
+  DO JK = 1 , KLEV
+    JK2 = 2 * JK
+    JK1 = JK2 - 1
+    DO JL = KIDIA,KFDIA
+      PDBSL(JL,JNU,JK1) = ZBLAY(JL,JK  ) - ZBLEV(JL,JK)
+      PDBSL(JL,JNU,JK2) = ZBLEV(JL,JK+1) - ZBLAY(JL,JK)
+    ENDDO
+  ENDDO
+
+ENDDO
+
+!*         2.0   CHOOSE THE RELEVANT SETS OF PADE APPROXIMANTS
+!                ---------------------------------------------
+
+DO JL=KIDIA,KFDIA
+  ZDSTO1 = (PTL(JL,KLEV+1)-TINTP(1)) / TSTP
+  IXTOX = MAX( 1, MIN( INT(MXIXT), INT( ZDSTO1 + _ONE_ ) ) )
+  ZDSTOX = (PTL(JL,KLEV+1)-TINTP(IXTOX))/TSTP
+  IF (ZDSTOX < _HALF_) THEN
+    INDTO=IXTOX
+  ELSE
+    INDTO=IXTOX+1
+  ENDIF
+  INDB(JL)=INDTO
+  ZDST1 = (PTL(JL,1)-TINTP(1)) / TSTP
+  IXTX = MAX( 1, MIN( INT(MXIXT), INT( ZDST1 + _ONE_ ) ) )
+  ZDSTX = (PTL(JL,1)-TINTP(IXTX))/TSTP
+  IF (ZDSTX < _HALF_) THEN
+    INDT=IXTX
+  ELSE
+    INDT=IXTX+1
+  ENDIF
+  INDS(JL)=INDT
+ENDDO
+
+DO JF=1,2
+  DO JG=1,NIPD
+    DO JL=KIDIA,KFDIA
+      INDSU=INDS(JL)
+      PGASUR(JL,JG,JF)=PDGA(INDSU,2*JG-1,JF)
+      PGBSUR(JL,JG,JF)=PDGB(INDSU,2*JG-1,JF)
+      INDTP=INDB(JL)
+      PGATOP(JL,JG,JF)=PDGA(INDTP,2*JG-1,JF)
+      PGBTOP(JL,JG,JF)=PDGB(INDTP,2*JG-1,JF)
+    ENDDO
+  ENDDO
+ENDDO
+
+
+DO JK=1,KLEV
+  DO JL=KIDIA,KFDIA
+    ZDST1 = (PTAVE(JL,JK)-TINTP(1)) / TSTP
+    IXTX = MAX( 1, MIN( INT(MXIXT), INT( ZDST1 + _ONE_ ) ) )
+    ZDSTX = (PTAVE(JL,JK)-TINTP(IXTX))/TSTP
+    IF (ZDSTX < _HALF_) THEN
+      INDT=IXTX
+    ELSE
+      INDT=IXTX+1
+    ENDIF
+    INDB(JL)=INDT
+  ENDDO
+
+  DO JF=1,2
+    DO JL=KIDIA,KFDIA
+      INDT=INDB(JL)
+      DO JG=1,NIPD
+        PGA(JL,JG,JF,JK)=PDGA(INDT,2*JG,JF)
+        PGB(JL,JG,JF,JK)=PDGB(INDT,2*JG,JF)
+      ENDDO
+    ENDDO
+  ENDDO
+
+
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWB
Index: LMDZ5/branches/testing/libf/phymar/lwbv.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwbv.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwbv.F90	(revision 2160)
@@ -0,0 +1,168 @@
+SUBROUTINE LWBV &
+  &( KIDIA, KFDIA, KLON , KLEV  , KMODE &
+  &, PDT0 , PEMIS, PEMIW &
+  &, PTL  , PTAVE &
+  &, PEMIT, PFLUC &
+  &, PABCU, PBINT, PBSUI, PCNTRB &
+  &)
+
+!**** *LWBV*   - COMPUTE PLANCK FUNC., PERF. VERT. INTEGRATION
+
+!     PURPOSE.
+!     --------
+!           TO COMPUTE THE PLANCK FUNCTION AND PERFORM THE
+!           VERTICAL INTEGRATION. SPLIT OUT FROM LW FOR MEMORY
+!           SAVING
+
+!**   INTERFACE.
+!     ----------
+
+!        *LWVB* IS CALLED FROM *LW*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PTL    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+!     ==== OUTPUTS ===
+! PABCU  :
+! PBINT  :
+! PBSUI  :
+! PCNTRB : 
+! PCOLC  :
+! PEMIT  :
+! PFLUC  :
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE
+!     GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS.
+!          2. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON-
+!     TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE
+!     BOUNDARIES.
+!          3. COMPUTES THE CLEAR-SKY COOLING RATES.
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWB*, *LWV*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        MODIFICATION : 93-10-15 M.HAMRUD (SPLIT OUT FROM LW TO SAVE
+!                                          MEMORY)
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NUA
+USE YOERDU   , ONLY : NUAER    ,NTRAER
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KMODE
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PDT0(KLON)&
+  &,  PEMIS(KLON)               , PEMIW(KLON)&
+  &,  PTL(KLON,KLEV+1)          , PTAVE(KLON,KLEV)
+
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)&
+  &,  PBINT(KLON,KLEV+1)        , PBSUI(KLON)&
+  &,  PCNTRB(KLON,KLEV+1,KLEV+1)&
+  &,  PEMIT(KLON)&
+  &,  PFLUC(KLON,2,KLEV+1)
+
+!-------------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+REAL_B ::&
+     &ZB(KLON,NSIL,KLEV+1), ZBSUR(KLON,NSIL)   , ZBTOP(KLON,NSIL)&
+  &,  ZDBSL(KLON,NSIL,KLEV*2)&
+  &,  ZGA(KLON,NIPD,2,KLEV)  , ZGB(KLON,NIPD,2,KLEV)&
+  &,  ZGASUR(KLON,NIPD,2)    , ZGBSUR(KLON,NIPD,2)&
+  &,  ZGATOP(KLON,NIPD,2)    , ZGBTOP(KLON,NIPD,2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JL, JLW
+
+
+!     ------------------------------------------------------------------
+
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+
+CALL LWB &
+ &( KIDIA, KFDIA, KLON  , KLEV  , KMODE &
+ &, PDT0 , PTAVE, PTL &
+ &, ZB   , PBINT, ZBSUR , ZBTOP , ZDBSL &
+ &, ZGA  , ZGB  , ZGASUR, ZGBSUR, ZGATOP, ZGBTOP    &
+ &)
+
+!     ------------------------------------------------------------------
+
+!*         3.    PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+
+CALL LWV &
+ &( KIDIA , KFDIA, KLON  , KLEV &
+ &, NUAER , NTRAER &
+ &, PABCU , ZB   , PBINT , ZBSUR , ZBTOP , ZDBSL &
+ &, PEMIS , PEMIW &
+ &, ZGA   , ZGB  , ZGASUR, ZGBSUR, ZGATOP, ZGBTOP &
+ &, PCNTRB, PFLUC &
+ &)
+
+DO JL=KIDIA,KFDIA
+  PEMIT(JL)=_ZERO_
+  PBSUI(JL)=_ZERO_
+ENDDO
+DO JLW=1,NSIL
+  DO JL=KIDIA,KFDIA
+    PBSUI(JL)=PBSUI(JL)+ZBSUR(JL,JLW)
+    IF (JLW >= 3.AND. JLW <= 4) THEN
+      PEMIT(JL)=PEMIT(JL)+ZBSUR(JL,JLW)*PEMIW(JL)
+    ELSE
+      PEMIT(JL)=PEMIT(JL)+ZBSUR(JL,JLW)*PEMIS(JL)
+    ENDIF
+  ENDDO
+ENDDO
+DO JL=KIDIA,KFDIA
+  PEMIT(JL)=PEMIT(JL)/PBSUI(JL)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWBV
Index: LMDZ5/branches/testing/libf/phymar/lwc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwc.F90	(revision 2160)
@@ -0,0 +1,425 @@
+SUBROUTINE LWC &
+ &( KIDIA , KFDIA, KLON  , KLEV &
+ &, PBINT , PBSUI, PCLDLD, PCLDLU &
+ &, PCNTRB, PEMIT, PFLUC &
+ &, PFLUX                              &
+ &)
+
+!**** *LWC*   - LONGWAVE RADIATION, CLOUD EFFECTS
+
+!     PURPOSE.
+!     --------
+!           INTRODUCES CLOUD EFFECTS ON LONGWAVE FLUXES OR
+!           RADIANCES
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PBINT  : (KLON,KLEV+1)       ; HALF LEVEL PLANCK FUNCTION
+! PBSUI  : (KLON)              ; SURFACE PLANCK FUNCTION
+! PCLDLD : (KLON,KLEV)         ; DOWNWARD EFFECTIVE CLOUD FRACTION
+! PCLDLU : (KLON,KLEV)         ; UPWARD EFFECTIVE CLOUD FRACTION
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PEMIT  : (KLON)              ; SURFACE TOTAL LW EMISSIVITY
+! PFLUC  : (KLON,2,KLEV+1)     ; CLEAR-SKY LW RADIATIVE FLUXES
+!     ==== OUTPUTS ===
+! PFLUX  : (KLON,2,KLEV+1)     ; TOTAL SKY LW RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. INITIALIZES ALL FLUXES TO CLEAR-SKY VALUES
+!          2. EFFECT OF ONE OVERCAST UNITY EMISSIVITY CLOUD LAYER
+!          3. EFFECT OF SEMI-TRANSPARENT, PARTIAL OR MULTI-LAYERED
+!     CLOUDS
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18   Cleaning
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERAD   , ONLY : NOVLP
+USE YOERDI   , ONLY : REPCLC
+USE YOEOVLP  , ONLY : RA1OVLP
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B ::&
+     &PBINT(KLON,KLEV+1), PBSUI(KLON)    &
+  &,  PCLDLD(KLON,KLEV) , PCLDLU(KLON,KLEV)&
+  &,  PCNTRB(KLON,KLEV+1,KLEV+1)&
+  &,  PEMIT(KLON)&
+  &,  PFLUC(KLON,2,KLEV+1) 
+
+REAL_B :: PFLUX(KLON,2,KLEV+1)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZCLEAR(KLON)            , ZCLOUD(KLON)&
+  &,  ZCLM(KLON,KLEV+1,KLEV+1), ZDNF(KLON,KLEV+1,KLEV+1)&
+  &,  ZFD(KLON)               , ZFU(KLON)&
+  &,  ZUPF(KLON,KLEV+1,KLEV+1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IKCP1, IKM1, IKP1, IMAXC, IMXM1, IMXP1, JCLOUD,&
+             &JK, JK1, JK2, JKJ, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZALPHA1, ZCFRAC
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     INITIALIZATION
+!                 --------------
+
+!100  CONTINUE
+
+!print *,' Enter LWC '
+DO JL = KIDIA,KFDIA
+  ZCLOUD(JL) = _ZERO_
+ENDDO
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,1,JK) = PFLUC(JL,1,JK)
+    PFLUX(JL,2,JK) = PFLUC(JL,2,JK)
+  ENDDO
+ENDDO
+
+!GM*******
+IMAXC=KLEV
+!GM*******
+
+
+!     ------------------------------------------------------------------
+
+!*         2.      EFFECT OF CLOUDINESS ON LONGWAVE FLUXES
+!                  ---------------------------------------
+
+
+IMXP1 = IMAXC + 1
+IMXM1 = IMAXC - 1
+
+!*         2.0     INITIALIZE TO CLEAR-SKY FLUXES
+!                  ------------------------------
+
+!200  CONTINUE
+
+DO JK1=1,KLEV+1
+  DO JK2=1,KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZUPF(JL,JK2,JK1)=PFLUC(JL,1,JK1)
+      ZDNF(JL,JK2,JK1)=PFLUC(JL,2,JK1)
+    ENDDO
+  ENDDO
+ENDDO
+!print *,' LWC after Initialisation to clear-sky fluxes'
+
+!*         2.1     FLUXES FOR ONE OVERCAST UNITY EMISSIVITY CLOUD
+!                  ----------------------------------------------
+
+!210  CONTINUE
+
+DO JCLOUD = 1 , IMAXC
+  IKCP1=JCLOUD+1
+
+!*         2.1.1   ABOVE THE CLOUD
+!                  ---------------
+
+!2110 CONTINUE
+
+  DO JK=IKCP1,KLEV+1
+    IKM1=JK-1
+    DO JL = KIDIA,KFDIA
+      ZFU(JL)=_ZERO_
+    ENDDO
+
+    IF (JK  >  IKCP1) THEN
+      DO JKJ=IKCP1,IKM1
+        DO JL = KIDIA,KFDIA
+          ZFU(JL) = ZFU(JL) + PCNTRB(JL,JK,JKJ)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JL = KIDIA,KFDIA
+      ZUPF(JL,IKCP1,JK)=PBINT(JL,JK)-ZFU(JL)
+    ENDDO
+  ENDDO
+
+!*         2.1.2   BELOW THE CLOUD
+!                  ---------------
+
+!2120 CONTINUE
+
+  DO JK=1,JCLOUD
+    IKP1=JK+1
+    DO JL = KIDIA,KFDIA
+      ZFD(JL)=_ZERO_
+    ENDDO
+
+    IF (JK  <  JCLOUD) THEN
+      DO JKJ=IKP1,JCLOUD
+        DO JL = KIDIA,KFDIA
+          ZFD(JL) = ZFD(JL) + PCNTRB(JL,JK,JKJ)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JL = KIDIA,KFDIA
+      ZDNF(JL,IKCP1,JK)=-PBINT(JL,JK)-ZFD(JL)
+    ENDDO
+  ENDDO
+
+ENDDO
+!print *,' LWC after 213: Fluxes for unity emissivity'
+
+
+!*         2.2     CLOUD COVER MATRIX
+!                  ------------------
+
+!*    ZCLM(JK1,JK2) IS THE OBSCURATION FACTOR BY CLOUD LAYERS BETWEEN
+!     HALF-LEVELS JK1 AND JK2 AS SEEN FROM JK1
+
+!220  CONTINUE
+
+DO JK1 = 1 , KLEV+1
+  DO JK2 = 1 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZCLM(JL,JK1,JK2) = _ZERO_
+    ENDDO
+  ENDDO
+ENDDO
+!print *,' LWC after Initialisation CC matrix'
+
+
+
+!*         2.4     CLOUD COVER BELOW THE LEVEL OF CALCULATION
+!                  ------------------------------------------
+
+!240  CONTINUE
+
+DO JK1 = 2 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZCLEAR(JL)=_ONE_
+    ZCLOUD(JL)=_ZERO_
+  ENDDO
+
+  DO JK = JK1 - 1 , 1 , -1
+    DO JL = KIDIA,KFDIA
+      IF (NOVLP == 1) THEN
+!* maximum-random       
+        ZCLEAR(JL)=ZCLEAR(JL)*(_ONE_-MAX(PCLDLU(JL,JK),ZCLOUD(JL)))&
+         &/(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPCLC))
+        ZCLM(JL,JK1,JK) = _ONE_ - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLU(JL,JK)
+      ELSEIF (NOVLP == 2) THEN
+!* maximum      
+        ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLU(JL,JK))
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 3) THEN
+!* random      
+        ZCLEAR(JL) = ZCLEAR(JL)*(_ONE_ - PCLDLU(JL,JK))
+        ZCLOUD(JL) = _ONE_ - ZCLEAR(JL)
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+        ZALPHA1=RA1OVLP(KLEV+1-JK)
+        ZCLEAR(JL)=ZCLEAR(JL)*( &
+         & ZALPHA1*(_ONE_-MAX(PCLDLU(JL,JK),ZCLOUD(JL))) &
+         &        /(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPCLC)) &
+         & +(_ONE_-ZALPHA1)*(_ONE_-PCLDLU(JL,JK)) )
+        ZCLM(JL,JK1,JK) = _ONE_ - ZCLEAR(JL) 
+        ZCLOUD(JL) = PCLDLU(JL,JK)
+      ENDIF
+    ENDDO
+  ENDDO
+
+ENDDO
+!print *,' LWC after 244: CC below level of calculation'
+
+
+!*         2.5     CLOUD COVER ABOVE THE LEVEL OF CALCULATION
+!                  ------------------------------------------
+
+!250  CONTINUE
+
+DO JK1 = 1 , KLEV
+  DO JL = KIDIA,KFDIA
+    ZCLEAR(JL)=_ONE_
+    ZCLOUD(JL)=_ZERO_
+  ENDDO
+
+  DO JK = JK1 , KLEV
+    DO JL = KIDIA,KFDIA
+      IF (NOVLP == 1) THEN
+!* maximum-random       
+        ZCLEAR(JL)=ZCLEAR(JL)*(_ONE_-MAX(PCLDLD(JL,JK),ZCLOUD(JL)))&
+         &/(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPCLC))
+        ZCLM(JL,JK1,JK) = _ONE_ - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLD(JL,JK)
+      ELSEIF (NOVLP == 2) THEN
+!* maximum      
+        ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLD(JL,JK))
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 3) THEN
+!* random      
+        ZCLEAR(JL) = ZCLEAR(JL)*(_ONE_ - PCLDLD(JL,JK))
+        ZCLOUD(JL) = _ONE_ - ZCLEAR(JL)
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+        ZALPHA1=RA1OVLP(KLEV+1-JK)
+        ZCLEAR(JL)=ZCLEAR(JL)*( &
+         & ZALPHA1*(_ONE_-MAX(PCLDLD(JL,JK),ZCLOUD(JL))) &
+         &        /(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPCLC)) &
+         & +(_ONE_-ZALPHA1)*(_ONE_ - PCLDLD(JL,JK)) )
+        ZCLM(JL,JK1,JK) = _ONE_ - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLD(JL,JK)
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+!print *,' LWC after 254: CC above level of calculation'
+
+
+
+!*         3.      FLUXES FOR PARTIAL/MULTIPLE LAYERED CLOUDINESS
+!                  ----------------------------------------------
+
+!300  CONTINUE
+
+!*         3.1     DOWNWARD FLUXES
+!                  ---------------
+
+!310  CONTINUE
+
+DO JL = KIDIA,KFDIA
+  PFLUX(JL,2,KLEV+1) = _ZERO_
+ENDDO
+
+DO JK1 = KLEV , 1 , -1
+
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+  DO JL = KIDIA,KFDIA
+    ZFD (JL) = (_ONE_ - ZCLM(JL,JK1,KLEV)) * ZDNF(JL,1,JK1)
+
+!*                 CONTRIBUTION FROM ADJACENT CLOUD
+
+    ZFD(JL) = ZFD(JL) + ZCLM(JL,JK1,JK1) * ZDNF(JL,JK1+1,JK1)
+  ENDDO
+
+!*                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+
+  DO JK = KLEV-1 , JK1 , -1
+    DO JL = KIDIA,KFDIA
+      ZCFRAC = ZCLM(JL,JK1,JK+1) - ZCLM(JL,JK1,JK)
+      ZFD(JL) =  ZFD(JL) + ZCFRAC * ZDNF(JL,JK+2,JK1)
+    ENDDO
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,2,JK1) = ZFD (JL)
+  ENDDO
+
+ENDDO
+!      print *,' LWC after 317: Downward fluxes'
+
+
+
+
+!*         3.2     UPWARD FLUX AT THE SURFACE
+!                  --------------------------
+
+!320  CONTINUE
+
+DO JL = KIDIA,KFDIA
+  PFLUX(JL,1,1) = PEMIT(JL)*PBSUI(JL)-(_ONE_-PEMIT(JL))*PFLUX(JL,2,1)
+ENDDO
+
+
+
+!*         3.3     UPWARD FLUXES
+!                  -------------
+
+!330  CONTINUE
+
+DO JK1 = 2 , KLEV+1
+
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+  DO JL = KIDIA,KFDIA
+    ZFU (JL) = (_ONE_ - ZCLM(JL,JK1,1)) * ZUPF(JL,1,JK1)
+
+!*                 CONTRIBUTION FROM ADJACENT CLOUD
+
+    ZFU(JL) =  ZFU(JL) + ZCLM(JL,JK1,JK1-1) * ZUPF(JL,JK1,JK1)
+  ENDDO
+
+!*                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+
+  DO JK = 2 , JK1-1
+    DO JL = KIDIA,KFDIA
+      ZCFRAC = ZCLM(JL,JK1,JK-1) - ZCLM(JL,JK1,JK)
+      ZFU(JL) =  ZFU(JL) + ZCFRAC * ZUPF(JL,JK  ,JK1)
+    ENDDO
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,1,JK1) = ZFU (JL)
+  ENDDO
+
+ENDDO
+!      print *,' LWC after 337: Upward fluxes'
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWC
Index: LMDZ5/branches/testing/libf/phymar/lwtt.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwtt.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwtt.F90	(revision 2160)
@@ -0,0 +1,204 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE LWTT ( KIDIA, KFDIA, KLON, PGA  , PGB, PUU  , PTT             )
+
+!**** *LWTT* - LONGWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *LWTT* IS CALLED FROM *LWVN*, *LWVD*, *LWVB*
+
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! KND    :                    ; WEIGHTING INDEX
+! PUU    : (KLON,NUA)         ; ABSORBER AMOUNTS
+!     ==== OUTPUTS ===
+! PTT    : (KLON,NTRA)        ; TRANSMISSION FUNCTIONS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. TRANSMISSION FUNCTION BY H2O AND UNIFORMLY MIXED GASES ARE
+!     COMPUTED USING PADE APPROXIMANTS AND HORNER'S ALGORITHM.
+!          2. TRANSMISSION BY O3 IS EVALUATED WITH MALKMUS'S BAND MODEL.
+!          3. TRANSMISSION BY H2O CONTINUUM AND AEROSOLS FOLLOW AN
+!     A SIMPLE EXPONENTIAL DECREASE WITH ABSORBER AMOUNT.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        97-04-18  JJ Morcrette        Revised continuum
+    
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NTRA     ,NUA      ,RPTYPE   ,RETYPE   ,&
+            &RO1H     ,RO2H     ,RPIALF0
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+
+
+
+!     ------------------------------------------------------------------
+
+!*        0.1   ARGUMENTS
+!               ---------
+
+REAL_B :: PUU(KLON,NUA), PTT(KLON,NTRA),  PGA(KLON,8,2), PGB(KLON,8,2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZA11, ZA12, ZAERCN, ZEU10, ZEU11, ZEU12,&
+          &ZEU13, ZODH41, ZODH42, ZODN21, ZODN22, ZPU10, &
+          &ZPU11, ZPU12, ZPU13, ZSQ1, ZSQ2, ZSQH41, &
+          &ZSQH42, ZSQN21, ZSQN22, ZTO1, ZTO2, ZTTF11, &
+          &ZTTF12, ZUU11, ZUU12, ZUXY, ZVXY, ZX, ZXCH4, &
+          &ZXD, ZXN, ZXN2O, ZY, ZYCH4, ZYN2O, ZZ
+
+
+!     ------------------------------------------------------------------
+
+!*        0.2   LOCAL ARRAYS
+!               ------------
+
+!     ------------------------------------------------------------------
+!DIR$ VFUNCTION SQRTHF
+
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+
+DO JA = 1 , 8
+  DO JL = KIDIA,KFDIA
+    ZZ  = SQRT(PUU(JL,JA))
+    ZXD = PGB( JL,JA,1) + ZZ* (PGB( JL,JA,2) + ZZ )
+    ZXN = PGA( JL,JA,1) + ZZ* (PGA( JL,JA,2)      )
+    PTT(JL,JA) = ZXN / ZXD
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PTT(JL,3)=MAX(PTT(JL,3),_ZERO_)
+ENDDO
+!     ------------------------------------------------------------------
+
+!*         2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
+!                 ---------------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PTT(JL, 9) = PTT(JL, 8)
+
+!-  CONTINUUM ABSORPTION: E- AND P-TYPE (from Giorgetta and Wild, 1997)
+
+  ZPU10 = RPTYPE(1) * PUU(JL,10)
+  ZPU11 = RPTYPE(2) * PUU(JL,10)
+  ZPU12 = RPTYPE(3) * PUU(JL,10)
+  ZPU13 = RPTYPE(4) * PUU(JL,10)
+  ZEU10 = RETYPE(1) * PUU(JL,11)
+  ZEU11 = RETYPE(2) * PUU(JL,11)
+  ZEU12 = RETYPE(3) * PUU(JL,11)
+  ZEU13 = RETYPE(4) * PUU(JL,11)
+
+!-  OZONE ABSORPTION
+
+  ZX = PUU(JL,12)
+  ZY = PUU(JL,13)
+  ZUXY = 4._JPRB * ZX * ZX / (RPIALF0 * ZY)
+  ZSQ1 = SQRT(_ONE_ + RO1H * ZUXY ) - _ONE_
+  ZSQ2 = SQRT(_ONE_ + RO2H * ZUXY ) - _ONE_
+  ZVXY = RPIALF0 * ZY / (_TWO_ * ZX)
+  ZAERCN = PUU(JL,17) + ZEU12 + ZPU12
+  ZTO1 = EXP( - ZVXY * ZSQ1 - ZAERCN )
+  ZTO2 = EXP( - ZVXY * ZSQ2 - ZAERCN )
+
+!-- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+
+!* CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXCH4 = PUU(JL,19)
+  ZYCH4 = PUU(JL,20)
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.103_JPRB*ZYCH4)
+  ZSQH41 = SQRT(_ONE_ + 33.7_JPRB * ZUXY) - _ONE_
+  ZVXY = 0.103_JPRB * ZYCH4 / (_TWO_ * ZXCH4)
+  ZODH41 = ZVXY * ZSQH41
+
+!* N2O IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXN2O = PUU(JL,21)
+  ZYN2O = PUU(JL,22)
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.416_JPRB*ZYN2O)
+  ZSQN21 = SQRT(_ONE_ + 21.3_JPRB * ZUXY) - _ONE_
+  ZVXY = 0.416_JPRB * ZYN2O / (_TWO_ * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.113_JPRB*ZYCH4)
+  ZSQH42 = SQRT(_ONE_ + 400._JPRB * ZUXY) - _ONE_
+  ZVXY = 0.113_JPRB * ZYCH4 / (_TWO_ * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.197_JPRB*ZYN2O)
+  ZSQN22 = SQRT(_ONE_ + 2000._JPRB * ZUXY) - _ONE_
+  ZVXY = 0.197_JPRB * ZYN2O / (_TWO_ * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA11 = _TWO_ * PUU(JL,23) * 4.404E+05_JPRB
+  ZTTF11 = _ONE_ - ZA11 * 0.003225_JPRB
+
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA12 = _TWO_ * PUU(JL,24) * 6.7435E+05_JPRB
+  ZTTF12 = _ONE_ - ZA12 * 0.003225_JPRB
+
+  ZUU11 = - PUU(JL,15) - ZEU10 - ZPU10
+  ZUU12 = - PUU(JL,16) - ZEU11 - ZPU11 - ZODH41 - ZODN21
+  PTT(JL,10) = EXP( - PUU(JL,14) )
+  PTT(JL,11) = EXP( ZUU11 )
+  PTT(JL,12) = EXP( ZUU12 ) * ZTTF11 * ZTTF12
+  PTT(JL,13) = 0.7554_JPRB * ZTO1 + 0.2446_JPRB * ZTO2
+  PTT(JL,14) = PTT(JL,10) * EXP( - ZEU13 - ZPU13 )
+  PTT(JL,15) = EXP ( - PUU(JL,14) - ZODH42 - ZODN22 )
+
+ENDDO
+
+RETURN
+END SUBROUTINE LWTT
Index: LMDZ5/branches/testing/libf/phymar/lwttm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwttm.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwttm.F90	(revision 2160)
@@ -0,0 +1,204 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE LWTTM ( KIDIA, KFDIA, KLON, PGA  , PGB, PUU1 , PUU2 , PTT        )
+
+!**** *LWTTM* - LONGWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *LWTTM* IS CALLED FROM *LWVD*
+
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PGA, PGB                    ; PADE APPROXIMANTS
+! PUU1   : (KLON,NUA)         ; ABSORBER AMOUNTS FROM TOP TO LEVEL 1
+! PUU2   : (KLON,NUA)         ; ABSORBER AMOUNTS FROM TOP TO LEVEL 2  
+!     ==== OUTPUTS ===
+! PTT    : (KLON,NTRA)        ; TRANSMISSION FUNCTIONS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. TRANSMISSION FUNCTION BY H2O AND UNIFORMLY MIXED GASES ARE
+!     COMPUTED USING PADE APPROXIMANTS AND HORNER'S ALGORITHM.
+!          2. TRANSMISSION BY O3 IS EVALUATED WITH MALKMUS'S BAND MODEL.
+!          3. TRANSMISSION BY H2O CONTINUUM AND AEROSOLS FOLLOW AN
+!     A SIMPLE EXPONENTIAL DECREASE WITH ABSORBER AMOUNT.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        97-04-18 JJ Morcrette        Revised continuum
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NTRA     ,NUA      ,RPTYPE   ,RETYPE   ,&
+            &RO1H     ,RO2H     ,RPIALF0
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+
+
+
+!     ------------------------------------------------------------------
+
+!*        0.1   ARGUMENTS
+!               ---------
+
+REAL_B :: PUU1(KLON,NUA), PUU2(KLON,NUA), PTT(KLON,NTRA)&
+  &,  PGA(KLON,8,2) , PGB(KLON,8,2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZA11, ZA12, ZAERCN, ZEU, ZEU10, ZEU11, ZEU12,&
+          &ZEU13, ZODH41, ZODH42, ZODN21, ZODN22, ZPU, &
+          &ZPU10, ZPU11, ZPU12, ZPU13, ZSQ1, ZSQ2, ZSQH41, &
+          &ZSQH42, ZSQN21, ZSQN22, ZTO1, ZTO2, ZTTF11, &
+          &ZTTF12, ZUU11, ZUU12, ZUXY, ZVXY, ZX, ZXCH4, &
+          &ZXD, ZXN, ZXN2O, ZY, ZYCH4, ZYN2O, ZZ
+
+
+!     ------------------------------------------------------------------
+!DIR$ VFUNCTION SQRTHF
+
+
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+
+DO JA = 1 , 8
+  DO JL = KIDIA,KFDIA
+    ZZ  = SQRT(PUU1(JL,JA) - PUU2(JL,JA))
+    ZXD = PGB( JL,JA,1) + ZZ * (PGB( JL,JA,2) + ZZ )
+    ZXN = PGA( JL,JA,1) + ZZ * (PGA( JL,JA,2) )
+    PTT(JL,JA) = ZXN / ZXD
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PTT(JL,3)=MAX(PTT(JL,3),_ZERO_)
+ENDDO
+!     ------------------------------------------------------------------
+
+!*         2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
+!                 ---------------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PTT(JL, 9) = PTT(JL, 8)
+
+!-  CONTINUUM ABSORPTION: E- AND P-TYPE
+
+  ZPU   = (PUU1(JL,10) - PUU2(JL,10))
+  ZPU10 = RPTYPE(1) * ZPU
+  ZPU11 = RPTYPE(2) * ZPU
+  ZPU12 = RPTYPE(3) * ZPU
+  ZPU13 = RPTYPE(4) * ZPU
+  ZEU   = (PUU1(JL,11) - PUU2(JL,11))
+  ZEU10 = RETYPE(1) * ZEU
+  ZEU11 = RETYPE(2) * ZEU
+  ZEU12 = RETYPE(3) * ZEU
+  ZEU13 = RETYPE(4) * ZEU
+
+!-  OZONE ABSORPTION
+
+  ZX = (PUU1(JL,12) - PUU2(JL,12))
+  ZY = (PUU1(JL,13) - PUU2(JL,13))
+  ZUXY = 4._JPRB * ZX * ZX / (RPIALF0 * ZY)
+  ZSQ1 = SQRT(_ONE_ + RO1H * ZUXY ) - _ONE_
+  ZSQ2 = SQRT(_ONE_ + RO2H * ZUXY ) - _ONE_
+  ZVXY = RPIALF0 * ZY / (_TWO_ * ZX)
+  ZAERCN = (PUU1(JL,17) -PUU2(JL,17)) + ZEU12 + ZPU12
+  ZTO1 = EXP( - ZVXY * ZSQ1 - ZAERCN )
+  ZTO2 = EXP( - ZVXY * ZSQ2 - ZAERCN )
+
+!-- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+
+!* CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXCH4 = (PUU1(JL,19) - PUU2(JL,19))
+  ZYCH4 = (PUU1(JL,20) - PUU2(JL,20))
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.103_JPRB*ZYCH4)
+  ZSQH41 = SQRT(_ONE_ + 33.7_JPRB * ZUXY) - _ONE_
+  ZVXY = 0.103_JPRB * ZYCH4 / (_TWO_ * ZXCH4)
+  ZODH41 = ZVXY * ZSQH41
+
+!* N2O IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXN2O = (PUU1(JL,21) - PUU2(JL,21))
+  ZYN2O = (PUU1(JL,22) - PUU2(JL,22))
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.416_JPRB*ZYN2O)
+  ZSQN21 = SQRT(_ONE_ + 21.3_JPRB * ZUXY) - _ONE_
+  ZVXY = 0.416_JPRB * ZYN2O / (_TWO_ * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.113_JPRB*ZYCH4)
+  ZSQH42 = SQRT(_ONE_ + 400._JPRB * ZUXY) - _ONE_
+  ZVXY = 0.113_JPRB * ZYCH4 / (_TWO_ * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.197_JPRB*ZYN2O)
+  ZSQN22 = SQRT(_ONE_ + 2000._JPRB * ZUXY) - _ONE_
+  ZVXY = 0.197_JPRB * ZYN2O / (_TWO_ * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA11 = (PUU1(JL,23) - PUU2(JL,23)) * 4.404E+05_JPRB
+  ZTTF11 = _ONE_ - ZA11 * 0.003225_JPRB
+
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA12 = (PUU1(JL,24) - PUU2(JL,24)) * 6.7435E+05_JPRB
+  ZTTF12 = _ONE_ - ZA12 * 0.003225_JPRB
+
+  ZUU11 = - (PUU1(JL,15) - PUU2(JL,15)) - ZEU10 - ZPU10
+  ZUU12 = - (PUU1(JL,16) - PUU2(JL,16)) - ZEU11 - ZPU11 -ZODH41 - ZODN21
+  PTT(JL,10) = EXP( - (PUU1(JL,14)- PUU2(JL,14)) )
+  PTT(JL,11) = EXP( ZUU11 )
+  PTT(JL,12) = EXP( ZUU12 ) * ZTTF11 * ZTTF12
+  PTT(JL,13) = 0.7554_JPRB * ZTO1 + 0.2446_JPRB * ZTO2
+  PTT(JL,14) = PTT(JL,10) * EXP( - ZEU13 - ZPU13 )
+  PTT(JL,15) = EXP( - (PUU1(JL,14) - PUU2(JL,14)) - ZODH42-ZODN22 )
+
+ENDDO
+
+RETURN
+END SUBROUTINE LWTTM
Index: LMDZ5/branches/testing/libf/phymar/lwu.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwu.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwu.F90	(revision 2160)
@@ -0,0 +1,341 @@
+SUBROUTINE LWU &
+  &( KIDIA, KFDIA, KLON, KLEV &
+  &, PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV &
+  &, PABCU &
+  &)
+
+!**** *LWU* - LONGWAVE EFFECTIVE ABSORBER AMOUNTS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES ABSORBER AMOUNTS INCLUDING PRESSURE AND
+!           TEMPERATURE EFFECTS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS (PA)
+! PPMB   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PQOF   : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PWV    : (KLON,KLEV)       ; SPECIFIC HUMIDITY PA/PA
+! PVIEW  : (KLON)            ; COSECANT OF VIEWING ANGLE
+!     ==== OUTPUTS ===
+! PABCU  :(KLON,NUA,3*KLEV+1); EFFECTIVE ABSORBER AMOUNTS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+!     ABSORBERS.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18 Revised Continuum + Clean-up
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RG
+USE YOESW    , ONLY : RAER
+USE YOELW    , ONLY : NSIL     ,NUA      ,NG1      ,NG1P1    ,&
+            &ALWT     ,BLWT     ,RO3T     ,RT1      ,TREF     ,&
+            &RVGCO2   ,RVGH2O   ,RVGO3
+USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
+USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!     DUMMY REAL SCALARS
+REAL_B :: PCCO2
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PAER(KLON,6,KLEV), PDP(KLON,KLEV)&
+  &,  PPMB(KLON,KLEV+1), PQOF(KLON,KLEV)&
+  &,  PTAVE(KLON,KLEV) , PVIEW(KLON),  PWV(KLON,KLEV)
+
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+REAL_B :: ZABLY(KLON,7,3*KLEV+1)  , ZDPM(KLON,3*KLEV)&
+  &,  ZDUC(KLON, 3*KLEV+1)    , ZFACT(KLON)&
+  &,  ZUPM(KLON,3*KLEV)
+REAL_B :: ZPHIO(KLON),ZPSC2(KLON) , ZPSC3(KLON), ZPSH1(KLON)&
+  &,  ZPSH2(KLON),ZPSH3(KLON) , ZPSH4(KLON), ZPSH5(KLON)&
+  &,  ZPSH6(KLON),ZPSIO(KLON) , ZTCON(KLON)&
+  &,  ZPHM6(KLON),ZPSM6(KLON) , ZPHN6(KLON), ZPSN6(KLON)
+REAL_B :: ZSSIG(KLON,3*KLEV+1)    , ZTAVI(KLON)&
+  &,  ZUAER(KLON,NSIL)        , ZXOZ(KLON) , ZXWV(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IAE1, IAE2, IAE3, IC, ICP1, IG1, IJ, IJPN,&
+             &IKIP1, IKJ, IKJP, IKJPN, IKJR, IKL, JA, JAE, &
+             &JK, JKI, JKK, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZALUP, ZCAC8, ZCAH1, ZCAH2, ZCAH3, ZCAH4,&
+          &ZCAH5, ZCAH6, ZCBC8, ZCBH1, ZCBH2, ZCBH3, &
+          &ZCBH4, ZCBH5, ZCBH6, ZDIFF, ZDPMG, ZDPMP0, &
+          &ZFPPW, ZTX, ZTX2, ZU6, ZUP, ZUPMCO2, ZUPMG, &
+          &ZUPMH2O, ZUPMO3, ZZABLY
+
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!-----------------------------------------------------------------------
+
+
+!*         2.    PRESSURE OVER GAUSS SUB-LEVELS
+!                ------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZSSIG(JL, 1 ) = PPMB(JL,1) * 100._JPRB
+ENDDO
+
+DO JK = 1 , KLEV
+  IKJ=(JK-1)*NG1P1+1
+  IKJR = IKJ
+  IKJP = IKJ + NG1P1
+  DO JL = KIDIA,KFDIA
+    ZSSIG(JL,IKJP)=PPMB(JL,JK+1)* 100._JPRB
+  ENDDO
+  DO IG1=1,NG1
+    IKJ=IKJ+1
+    DO JL = KIDIA,KFDIA
+      ZSSIG(JL,IKJ)= (ZSSIG(JL,IKJR) + ZSSIG(JL,IKJP)) * _HALF_ &
+       &+ RT1(IG1) * (ZSSIG(JL,IKJP) - ZSSIG(JL,IKJR)) * _HALF_
+    ENDDO
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+
+
+!*         4.    PRESSURE THICKNESS AND MEAN PRESSURE OF SUB-LAYERS
+!                --------------------------------------------------
+
+DO JKI=1,3*KLEV
+  IKIP1=JKI+1
+  DO JL = KIDIA,KFDIA
+    ZUPM(JL,JKI)=(ZSSIG(JL,JKI)+ZSSIG(JL,IKIP1))*_HALF_
+    ZDPM(JL,JKI)=(ZSSIG(JL,JKI)-ZSSIG(JL,IKIP1))/(10._JPRB*RG)
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV
+  IKL = KLEV+1 - JK
+  DO JL = KIDIA,KFDIA
+    ZXWV(JL) = MAX (PWV(JL,IKL) , REPSCQ )
+    ZXOZ(JL) = MAX (PQOF(JL,IKL) / PDP(JL,IKL) , REPSCO )
+  ENDDO
+  IKJ=(JK-1)*NG1P1+1
+  IKJPN=IKJ+NG1
+  DO JKK=IKJ,IKJPN
+    DO JL = KIDIA,KFDIA
+      ZDPMG = ZDPM(JL,JKK)
+      ZDPMP0 = ZDPMG / 101325._JPRB
+      ZUPMG = ZUPM(JL,JKK) * ZDPMP0
+      ZUPMCO2 = ( ZUPM(JL,JKK) + RVGCO2 ) * ZDPMP0
+      ZUPMH2O = ( ZUPM(JL,JKK) + RVGH2O ) * ZDPMP0
+      ZUPMO3  = ( ZUPM(JL,JKK) + RVGO3  ) * ZDPMP0
+      ZDUC(JL,JKK) = ZDPMG
+      ZABLY(JL,6,JKK) = ZXOZ(JL) * ZDPMG
+      ZABLY(JL,7,JKK) = ZXOZ(JL) * ZUPMO3
+      ZU6 = ZXWV(JL) * ZUPMG
+      ZFPPW = 1.6078_JPRB * ZXWV(JL) / (_ONE_+0.608_JPRB*ZXWV(JL))
+      ZABLY(JL,1,JKK)  = ZXWV(JL) * ZUPMH2O
+      ZABLY(JL,5,JKK) = ZU6 * ZFPPW
+      ZABLY(JL,4,JKK) = ZU6 * (_ONE_-ZFPPW)
+      ZABLY(JL,3,JKK)  = PCCO2 * ZUPMCO2
+      ZABLY(JL,2,JKK)  = PCCO2 * ZDPMG
+    ENDDO
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+
+
+!*         5.    CUMULATIVE ABSORBER AMOUNTS FROM TOP OF ATMOSPHERE
+!                --------------------------------------------------
+
+DO JA = 1, NUA
+  DO JL = KIDIA,KFDIA
+    PABCU(JL,JA,3*KLEV+1) = _ZERO_
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV
+  IJ=(JK-1)*NG1P1+1
+  IJPN=IJ+NG1
+  IKL=KLEV+1-JK
+
+
+!*         5.1  CUMULATIVE AEROSOL AMOUNTS FROM TOP OF ATMOSPHERE
+!               --------------------------------------------------
+! --            NB: 'PAER' AEROSOLS ARE ENTERED FROM TOP TO BOTTOM
+
+  IAE1=3*KLEV+1-IJ
+  IAE2=3*KLEV+1-(IJ+1)
+  IAE3=3*KLEV+1-IJPN
+  DO JAE=1,6
+    DO JL = KIDIA,KFDIA
+      ZUAER(JL,JAE) =&
+       &(RAER(JAE,1)*PAER(JL,1,JK)+RAER(JAE,2)*PAER(JL,2,JK)&
+       &+RAER(JAE,3)*PAER(JL,3,JK)+RAER(JAE,4)*PAER(JL,4,JK)&
+       &+RAER(JAE,5)*PAER(JL,5,JK)+RAER(JAE,6)*PAER(JL,5,JK))&
+       &/(ZDUC(JL,IAE1)+ZDUC(JL,IAE2)+ZDUC(JL,IAE3))
+    ENDDO
+  ENDDO
+
+
+
+!*         5.2  INTRODUCES TEMPERATURE EFFECTS ON ABSORBER AMOUNTS
+!               --------------------------------------------------
+
+  DO JL = KIDIA,KFDIA
+    ZTAVI(JL)=PTAVE(JL,IKL)
+    ZFACT(JL)=_ONE_-ZTAVI(JL)/296._JPRB
+    ZTCON(JL)=EXP(6.08_JPRB*(296._JPRB/ZTAVI(JL)-_ONE_))
+!     ZTCON(JL)=EXP(6.08*ZFACT(JL))
+    ZTX=ZTAVI(JL)-TREF
+    ZTX2=ZTX*ZTX
+    ZZABLY = ZABLY(JL,1,IAE1)+ZABLY(JL,1,IAE2)+ZABLY(JL,1,IAE3)
+    ZUP=MIN( MAX( _HALF_*R10E*LOG( ZZABLY ) + 5._JPRB, _ZERO_), 6.0_JPRB)
+    ZCAH1=ALWT(1,1)+ZUP*(ALWT(1,2)+ZUP*(ALWT(1,3)))
+    ZCBH1=BLWT(1,1)+ZUP*(BLWT(1,2)+ZUP*(BLWT(1,3)))
+    ZPSH1(JL)=EXP( ZCAH1 * ZTX + ZCBH1 * ZTX2 )
+    ZCAH2=ALWT(2,1)+ZUP*(ALWT(2,2)+ZUP*(ALWT(2,3)))
+    ZCBH2=BLWT(2,1)+ZUP*(BLWT(2,2)+ZUP*(BLWT(2,3)))
+    ZPSH2(JL)=EXP( ZCAH2 * ZTX + ZCBH2 * ZTX2 )
+    ZCAH3=ALWT(3,1)+ZUP*(ALWT(3,2)+ZUP*(ALWT(3,3)))
+    ZCBH3=BLWT(3,1)+ZUP*(BLWT(3,2)+ZUP*(BLWT(3,3)))
+    ZPSH3(JL)=EXP( ZCAH3 * ZTX + ZCBH3 * ZTX2 )
+    ZCAH4=ALWT(4,1)+ZUP*(ALWT(4,2)+ZUP*(ALWT(4,3)))
+    ZCBH4=BLWT(4,1)+ZUP*(BLWT(4,2)+ZUP*(BLWT(4,3)))
+    ZPSH4(JL)=EXP( ZCAH4 * ZTX + ZCBH4 * ZTX2 )
+    ZCAH5=ALWT(5,1)+ZUP*(ALWT(5,2)+ZUP*(ALWT(5,3)))
+    ZCBH5=BLWT(5,1)+ZUP*(BLWT(5,2)+ZUP*(BLWT(5,3)))
+    ZPSH5(JL)=EXP( ZCAH5 * ZTX + ZCBH5 * ZTX2 )
+    ZCAH6=ALWT(6,1)+ZUP*(ALWT(6,2)+ZUP*(ALWT(6,3)))
+    ZCBH6=BLWT(6,1)+ZUP*(BLWT(6,2)+ZUP*(BLWT(6,3)))
+    ZPSH6(JL)=EXP( ZCAH6 * ZTX + ZCBH6 * ZTX2 )
+    ZPHM6(JL)=EXP(-5.81E-4_JPRB * ZTX - 1.13E-6_JPRB * ZTX2 )
+    ZPSM6(JL)=EXP(-5.57E-4_JPRB * ZTX - 3.30E-6_JPRB * ZTX2 )
+    ZPHN6(JL)=EXP(-3.46E-5_JPRB * ZTX + 2.05E-7_JPRB * ZTX2 )
+    ZPSN6(JL)=EXP( 3.70E-3_JPRB * ZTX - 2.30E-6_JPRB * ZTX2 )
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    ZTAVI(JL)=PTAVE(JL,IKL)
+    ZTX=ZTAVI(JL)-TREF
+    ZTX2=ZTX*ZTX
+    ZZABLY = ZABLY(JL,3,IAE1)+ZABLY(JL,3,IAE2)+ZABLY(JL,3,IAE3)
+    ZALUP = R10E * LOG ( ZZABLY )
+    ZUP   = MAX( _ZERO_ , 5.0_JPRB + _HALF_ * ZALUP )
+    ZPSC2(JL) = (ZTAVI(JL)/TREF) ** ZUP
+    ZCAC8=ALWT(8,1)+ZUP*(ALWT(8,2)+ZUP*(ALWT(8,3)))
+    ZCBC8=BLWT(8,1)+ZUP*(BLWT(8,2)+ZUP*(BLWT(8,3)))
+    ZPSC3(JL)=EXP( ZCAC8 * ZTX + ZCBC8 * ZTX2 )
+    ZPHIO(JL) = EXP( RO3T(1) * ZTX + RO3T(2) * ZTX2)
+    ZPSIO(JL) = EXP( _TWO_* (RO3T(3)*ZTX+RO3T(4)*ZTX2))
+  ENDDO
+
+  DO JKK=IJ,IJPN
+    IC=3*KLEV+1-JKK
+    ICP1=IC+1
+    DO JL = KIDIA,KFDIA
+      ZDIFF = PVIEW(JL)
+!- H2O continuum      
+      PABCU(JL,10,IC)=PABCU(JL,10,ICP1)+ ZABLY(JL,4,IC)          *ZDIFF
+      PABCU(JL,11,IC)=PABCU(JL,11,ICP1)+ ZABLY(JL,5,IC)*ZTCON(JL)*ZDIFF
+!- O3      
+      PABCU(JL,12,IC)=PABCU(JL,12,ICP1)+ ZABLY(JL,6,IC)*ZPHIO(JL)*ZDIFF
+      PABCU(JL,13,IC)=PABCU(JL,13,ICP1)+ ZABLY(JL,7,IC)*ZPSIO(JL)*ZDIFF
+!- CO2
+      PABCU(JL,7,IC)=PABCU(JL,7,ICP1)+ ZABLY(JL,3,IC)*ZPSC2(JL)*ZDIFF
+      PABCU(JL,8,IC)=PABCU(JL,8,ICP1)+ ZABLY(JL,3,IC)*ZPSC3(JL)*ZDIFF
+      PABCU(JL,9,IC)=PABCU(JL,9,ICP1)+ ZABLY(JL,3,IC)*ZPSC3(JL)*ZDIFF
+!- H2O
+      PABCU(JL,1,IC)=PABCU(JL,1,ICP1)+ ZABLY(JL,1,IC)*ZPSH1(JL)
+      PABCU(JL,2,IC)=PABCU(JL,2,ICP1)+ ZABLY(JL,1,IC)*ZPSH2(JL)
+      PABCU(JL,3,IC)=PABCU(JL,3,ICP1)+ ZABLY(JL,1,IC)*ZPSH5(JL)*ZDIFF
+      PABCU(JL,4,IC)=PABCU(JL,4,ICP1)+ ZABLY(JL,1,IC)*ZPSH3(JL)
+      PABCU(JL,5,IC)=PABCU(JL,5,ICP1)+ ZABLY(JL,1,IC)*ZPSH4(JL)
+      PABCU(JL,6,IC)=PABCU(JL,6,ICP1)+ ZABLY(JL,1,IC)*ZPSH6(JL)*ZDIFF
+!- aerosols
+      PABCU(JL,14,IC)=PABCU(JL,14,ICP1)+ ZUAER(JL,1)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,15,IC)=PABCU(JL,15,ICP1)+ ZUAER(JL,2)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,16,IC)=PABCU(JL,16,ICP1)+ ZUAER(JL,3)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,17,IC)=PABCU(JL,17,ICP1)+ ZUAER(JL,4)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,18,IC)=PABCU(JL,18,ICP1)+ ZUAER(JL,5)    *ZDUC(JL,IC)*ZDIFF
+!- CH4
+      PABCU(JL,19,IC)=PABCU(JL,19,ICP1)&
+       &+ ZABLY(JL,2,IC)*RCH4/PCCO2*ZPHM6(JL)*ZDIFF
+      PABCU(JL,20,IC)=PABCU(JL,20,ICP1)&
+       &+ ZABLY(JL,3,IC)*RCH4/PCCO2*ZPSM6(JL)*ZDIFF
+!- N2O
+      PABCU(JL,21,IC)=PABCU(JL,21,ICP1)&
+       &+ ZABLY(JL,2,IC)*RN2O/PCCO2*ZPHN6(JL)*ZDIFF
+      PABCU(JL,22,IC)=PABCU(JL,22,ICP1)&
+       &+ ZABLY(JL,3,IC)*RN2O/PCCO2*ZPSN6(JL)*ZDIFF
+!- CFC11
+      PABCU(JL,23,IC)=PABCU(JL,23,ICP1)&
+       &+ ZABLY(JL,2,IC)*RCFC11/PCCO2        *ZDIFF
+!- CFC12
+      PABCU(JL,24,IC)=PABCU(JL,24,ICP1)&
+       &+ ZABLY(JL,2,IC)*RCFC12/PCCO2        *ZDIFF
+    ENDDO
+  ENDDO
+
+ENDDO
+!      print *,'END OF LWU'
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWU
Index: LMDZ5/branches/testing/libf/phymar/lwv.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwv.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwv.F90	(revision 2160)
@@ -0,0 +1,185 @@
+SUBROUTINE LWV &
+ &( KIDIA, KFDIA, KLON , KLEV , KUAER , KTRAER &
+ &, PABCU, PB   , PBINT, PBSUR, PBTOP , PDBSL &
+ &, PEMIS, PEMIW &
+ &, PGA  , PGB  , PGASUR,PGBSUR,PGATOP, PGBTOP &
+ &, PCNTRB,PFLUC &
+ &)
+
+!**** *LWV*   - LONGWAVE RADIATION, VERTICAL INTEGRATION
+
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION TO GIVE LONGWAVE
+!           FLUXES OR RADIANCES
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PB     : (KLON,NSIL,KLEV+1); SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+! PBINT  : (KLON,KLEV+1)     ; HALF-LEVEL PLANCK FUNCTIONS
+! PBSUR  : (KLON,NSIL)       ; SURFACE SPECTRAL PLANCK FUNCTION
+! PBTOP  : (KLON,NSIL)       ; T.O.A. SPECTRAL PLANCK FUNCTION
+! PDBSL  : (KLON,KLEV*2)     ; SUB-LAYER PLANCK FUNCTION GRADIENT
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PGA, PGB                   ; PADE APPROXIMANTS
+! PGASUR, PGBSUR             ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP             ; T.O.A. PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PFLUC(KLON,2,KLEV)           ; RADIATIVE FLUXES CLEAR-SKY
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING BETWEEN
+!     CONTRIBUTIONS BY -  THE NEARBY LAYERS
+!                      -  THE DISTANT LAYERS
+!                      -  THE BOUNDARY TERMS
+!          2. COMPUTES THE CLEAR-SKY DOWNWARD AND UPWARD EMISSIVITIES.
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWVN*, *LWVD*, *LWVB*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 96-06-07 Surface LW window emissivity
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NUA
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KTRAER
+INTEGER_M :: KUAER
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)&
+  &,  PB(KLON,NSIL,KLEV+1)   , PBINT(KLON,KLEV+1)&
+  &,  PBSUR(KLON,NSIL)       , PBTOP(KLON,NSIL)&
+  &,  PDBSL(KLON,NSIL,KLEV*2)&
+  &,  PEMIS(KLON)            , PEMIW(KLON)&
+  &,  PGA(KLON,NIPD,2,KLEV)  , PGB(KLON,NIPD,2,KLEV)&
+  &,  PGASUR(KLON,NIPD,2)    , PGBSUR(KLON,NIPD,2)&
+  &,  PGATOP(KLON,NIPD,2)    , PGBTOP(KLON,NIPD,2)
+
+REAL_B :: PCNTRB(KLON,KLEV+1,KLEV+1),  PFLUC(KLON,2,KLEV+1)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZADJD(KLON,KLEV+1)  , ZADJU(KLON,KLEV+1)&
+  &,  ZDBDT(KLON,NSIL,KLEV)&
+  &,  ZDISD(KLON,KLEV+1)  , ZDISU(KLON,KLEV+1)&
+  &,  ZDWFSU(KLON,NSIL)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JK, JL
+
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+DO JK=1,KLEV+1
+  DO JL=KIDIA,KFDIA
+    ZADJD(JL,JK)=_ZERO_
+    ZADJU(JL,JK)=_ZERO_
+    ZDISD(JL,JK)=_ZERO_
+    ZDISU(JL,JK)=_ZERO_
+  ENDDO
+ENDDO
+DO JA=1,NSIL
+  DO JL=KIDIA,KFDIA
+    ZDWFSU(JL,JA)=_ZERO_
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+!     ------------------------------------------------------------------
+
+!*         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+!                  ---------------------------------
+
+CALL LWVN &
+  &( KIDIA, KFDIA, KLON  , KLEV , KUAER &
+  &, PABCU, PDBSL, PGA   , PGB &
+  &, ZADJD, ZADJU, PCNTRB, ZDBDT, ZDWFSU  &
+  &)
+
+!     ------------------------------------------------------------------
+
+!*         2.2     CONTRIBUTION FROM DISTANT LAYERS
+!                  ---------------------------------
+
+CALL LWVD &
+  &( KIDIA , KFDIA, KLON , KLEV  , KTRAER &
+  &, PABCU , ZDBDT, PGA  , PGB &
+  &, PCNTRB, ZDISD, ZDISU, ZDWFSU &
+  &)
+
+!     ------------------------------------------------------------------
+
+!*         2.3     EXCHANGE WITH THE BOUNDARIES
+!                  ----------------------------
+
+CALL LWVB &
+  &( KIDIA , KFDIA , KLON  , KLEV  , KUAER &
+  &, PABCU , ZADJD , ZADJU &
+  &, PB    , PBINT , PBSUR , PBTOP &
+  &, ZDISD , ZDISU , PEMIS , PEMIW &
+  &, PGASUR, PGBSUR, PGATOP, PGBTOP &
+  &, ZDWFSU,PFLUC  &
+  &)
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWV
Index: LMDZ5/branches/testing/libf/phymar/lwvb.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwvb.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwvb.F90	(revision 2160)
@@ -0,0 +1,263 @@
+SUBROUTINE LWVB &
+  &( KIDIA , KFDIA , KLON  , KLEV  , KUAER &
+  &, PABCU , PADJD , PADJU &
+  &, PB    , PBINT , PBSUR , PBTOP &
+  &, PDISD , PDISU , PEMIS , PEMIW &
+  &, PGASUR, PGBSUR, PGATOP, PGBTOP &
+  &, PDWFSU,PFLUC                  &
+  &)
+
+!**** *LWVB*   - L.W., VERTICAL INTEGRATION, EXCHANGE WITH BOUNDARIES
+
+!     PURPOSE.
+!     --------
+!           INTRODUCES THE EFFECTS OF THE BOUNDARIES IN THE VERTICAL
+!           INTEGRATION
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PADJ.. : (KLON,KLEV+1)     ; CONTRIBUTION BY ADJACENT LAYERS
+! PB     : (KLON,NSIL,KLEV+1); SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+! PBINT  : (KLON,KLEV+1)     ; HALF-LEVEL PLANCK FUNCTIONS
+! PBSUR  : (KLON,NSIL)       ; SPECTRAL SURFACE PLANCK FUNCTION
+! PBTOP  : (KLON,NSIL)       ; SPECTRAL T.O.A. PLANCK FUNCTION
+! PDIS.. : (KLON,KLEV+1)     ; CONTRIBUTION BY DISTANT LAYERS
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PGASUR, PGBSUR             ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP             ; T.O.A. PADE APPROXIMANTS 
+!     ==== OUTPUTS ===
+! PDWFSU : (KLON,NSIL)       ; SPECTRAL DOWNWARD FLUX AT SURFACE
+! PFLUC(KLON,2,KLEV)         ; RADIATIVE FLUXES CLEAR-SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          COMPUTES THE ENERGY EXCHANGE WITH TOP AND SURFACE OF THE
+!     ATMOSPHERE AND ADDS UP ALL CONTRIBUTIONS TO GET THE CLEAR-SKY 
+!     FLUXES
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 96-06-07  Surface LW Window Emissivity
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KUAER
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)&
+  &,  PADJD(KLON,KLEV+1) , PADJU(KLON,KLEV+1)&
+  &,  PB(KLON,NSIL,KLEV+1),PBINT(KLON,KLEV+1)&
+  &,  PBSUR(KLON,NSIL)   , PBTOP(KLON,NSIL)&
+  &,  PDISD(KLON,KLEV+1) , PDISU(KLON,KLEV+1)&
+  &,  PEMIS(KLON)        , PEMIW(KLON)&
+  &,  PGASUR(KLON,NIPD,2), PGBSUR(KLON,NIPD,2)&
+  &,  PGATOP(KLON,NIPD,2), PGBTOP(KLON,NIPD,2)
+
+REAL_B :: PDWFSU(KLON,NSIL)  , PFLUC(KLON,2,KLEV+1)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZBSUR(KLON,NSIL)&
+  &,  ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)&
+  &,  ZUU(KLON,NUA) , ZCNSOL(KLON)   , ZCNTOP(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IN, JA, JK, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZCNTOP1, ZCNTOP2, ZCNTOP3, ZCNTOP4, ZCNTOP5, ZCNTOP6
+
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA=1,NTRA
+  DO JL=KIDIA,KFDIA
+    ZTT (JL,JA)=_ONE_
+    ZTT1(JL,JA)=_ONE_
+    ZTT2(JL,JA)=_ONE_
+  ENDDO
+ENDDO
+
+DO JA=1,NUA
+  DO JL=KIDIA,KFDIA
+    ZUU(JL,JA)=_ONE_
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+
+!*         2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE
+!                  -----------------------------------
+
+DO JK = 1 , KLEV
+  IN=(JK-1)*NG1P1+1
+
+  DO JA=1,KUAER
+    DO JL=KIDIA,KFDIA
+      ZUU(JL,JA)=PABCU(JL,JA,IN)
+    ENDDO
+  ENDDO
+
+
+  CALL LWTT &
+   &( KIDIA        , KFDIA        , KLON &
+   &, PGATOP(1,1,1), PGBTOP(1,1,1)&
+   &, ZUU          , ZTT &
+   &)
+
+  DO JL = KIDIA,KFDIA
+    ZCNTOP1=PBTOP(JL,1)*ZTT(JL,1)          *ZTT(JL,10)
+    ZCNTOP2=PBTOP(JL,2)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)
+    ZCNTOP3=PBTOP(JL,3)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)
+    ZCNTOP4=PBTOP(JL,4)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)
+    ZCNTOP5=PBTOP(JL,5)*ZTT(JL,3)          *ZTT(JL,14)
+    ZCNTOP6=PBTOP(JL,6)*ZTT(JL,6)          *ZTT(JL,15)
+    ZCNTOP(JL)=ZCNTOP1+ZCNTOP2+ZCNTOP3+ZCNTOP4+ZCNTOP5+ZCNTOP6
+    PFLUC(JL,2,JK)=ZCNTOP(JL)-PBINT(JL,JK)-PDISD(JL,JK)-PADJD(JL,JK)
+    IF (JK == 1) THEN
+      PDWFSU(JL,1)=ZCNTOP1-PB(JL,1,JK)-PDWFSU(JL,1)
+      PDWFSU(JL,2)=ZCNTOP2-PB(JL,2,JK)-PDWFSU(JL,2)
+      PDWFSU(JL,3)=ZCNTOP3-PB(JL,3,JK)-PDWFSU(JL,3)
+      PDWFSU(JL,4)=ZCNTOP4-PB(JL,4,JK)-PDWFSU(JL,4)
+      PDWFSU(JL,5)=ZCNTOP5-PB(JL,5,JK)-PDWFSU(JL,5)
+      PDWFSU(JL,6)=ZCNTOP6-PB(JL,6,JK)-PDWFSU(JL,6)
+    ENDIF
+  ENDDO
+
+ENDDO
+
+JK = KLEV+1
+IN=(JK-1)*NG1P1+1
+
+DO JL = KIDIA,KFDIA
+  ZCNTOP(JL)= PBTOP(JL,1)&
+   &+ PBTOP(JL,2)&
+   &+ PBTOP(JL,3)&
+   &+ PBTOP(JL,4)&
+   &+ PBTOP(JL,5)&
+   &+ PBTOP(JL,6)
+  PFLUC(JL,2,JK)=ZCNTOP(JL)-PBINT(JL,JK)-PDISD(JL,JK)-PADJD(JL,JK)
+ENDDO
+
+
+!*         2.5     EXCHANGE WITH LOWER LIMIT
+!                  -------------------------
+
+JK = 1
+IN=(JK-1)*NG1P1+1
+
+DO JL = KIDIA,KFDIA
+  ZBSUR(JL,1)=PBSUR(JL,1)*PEMIS(JL) -(_ONE_-PEMIS(JL))*PDWFSU(JL,1)
+  ZBSUR(JL,2)=PBSUR(JL,2)*PEMIS(JL) -(_ONE_-PEMIS(JL))*PDWFSU(JL,2)
+  ZBSUR(JL,3)=PBSUR(JL,3)*PEMIW(JL) -(_ONE_-PEMIW(JL))*PDWFSU(JL,3)
+  ZBSUR(JL,4)=PBSUR(JL,4)*PEMIW(JL) -(_ONE_-PEMIW(JL))*PDWFSU(JL,4)
+  ZBSUR(JL,5)=PBSUR(JL,5)*PEMIS(JL) -(_ONE_-PEMIS(JL))*PDWFSU(JL,5)
+  ZBSUR(JL,6)=PBSUR(JL,6)*PEMIS(JL) -(_ONE_-PEMIS(JL))*PDWFSU(JL,6)
+
+  PFLUC(JL,1,JK) = ZBSUR(JL,1)&
+   &+ ZBSUR(JL,2)&
+   &+ ZBSUR(JL,3)&
+   &+ ZBSUR(JL,4)&
+   &+ ZBSUR(JL,5)&
+   &+ ZBSUR(JL,6)
+
+  ZBSUR(JL,1)=ZBSUR(JL,1)-PB(JL,1,1)
+  ZBSUR(JL,2)=ZBSUR(JL,2)-PB(JL,2,1)
+  ZBSUR(JL,3)=ZBSUR(JL,3)-PB(JL,3,1)
+  ZBSUR(JL,4)=ZBSUR(JL,4)-PB(JL,4,1)
+  ZBSUR(JL,5)=ZBSUR(JL,5)-PB(JL,5,1)
+  ZBSUR(JL,6)=ZBSUR(JL,6)-PB(JL,6,1)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IN=(JK-1)*NG1P1+1
+
+  DO JA=1,KUAER
+    DO JL=KIDIA,KFDIA
+      ZUU(JL,JA)=PABCU(JL,JA,1)-PABCU(JL,JA,IN)
+    ENDDO
+  ENDDO
+
+
+  CALL LWTT &
+   &( KIDIA        , KFDIA        , KLON &
+   &, PGASUR(1,1,1), PGBSUR(1,1,1)&
+   &, ZUU, ZTT &
+   &)
+
+  DO JL = KIDIA,KFDIA
+    ZCNSOL(JL)=ZBSUR(JL,1)*ZTT(JL,1)          *ZTT(JL,10)&
+     &+ZBSUR(JL,2)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)&
+     &+ZBSUR(JL,3)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)&
+     &+ZBSUR(JL,4)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)&
+     &+ZBSUR(JL,5)*ZTT(JL,3)          *ZTT(JL,14)&
+     &+ZBSUR(JL,6)*ZTT(JL,6)          *ZTT(JL,15)
+    PFLUC(JL,1,JK)=ZCNSOL(JL)+PBINT(JL,JK)-PDISU(JL,JK)-PADJU(JL,JK)
+  ENDDO
+
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWVB
Index: LMDZ5/branches/testing/libf/phymar/lwvd.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwvd.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwvd.F90	(revision 2160)
@@ -0,0 +1,301 @@
+SUBROUTINE LWVD &
+ &( KIDIA,  KFDIA, KLON , KLEV  , KTRAER &
+ &, PABCU,  PDBDT &
+ &, PGA  ,  PGB &
+ &, PCNTRB, PDISD, PDISU, PDWFSU &
+ &)
+
+!**** *LWVD*   - L.W., VERTICAL INTEGRATION, DISTANT LAYERS
+
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION ON THE DISTANT LAYERS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU  : (KLON,NUA,3*KLEV+1) ; ABSORBER AMOUNTS
+! PDBDT  : (KLON,KLEV)         ; LAYER PLANCK FUNCTION GRADIENT
+! PGA, PGB                     ; PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PCNTRB : (KLON,KLEV+1,KLEV+1); ENERGY EXCHANGE MATRIX
+! PDIS.. : (KLON,KLEV+1)       ; CONTRIBUTION BY DISTANT LAYERS
+! PDWFSU : (KLON,NSIL)         ; SPECTRAL DOWNWARD FLUX AT SURFACE
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+!     CONTRIBUTIONS OF THE DISTANT LAYERS USING TRAPEZOIDAL RULE
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18 Revised continuum + Surf. Emissiv.
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KTRAER
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)&
+  &,  PDBDT(KLON,NSIL,KLEV)&
+  &,  PGA(KLON,NIPD,2,KLEV)   , PGB(KLON,NIPD,2,KLEV)
+
+REAL_B :: PCNTRB(KLON,KLEV+1,KLEV+1)&
+  &,  PDISD(KLON,KLEV+1)      , PDISU(KLON,KLEV+1)&
+  &,  PDWFSU(KLON,NSIL)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IJKL, IKD1, IKD2, IKJ, IKJP1, IKM1, IKN,&
+             &IKP1, IKU1, IKU2, ITT, JA, JK, JKJ, JL, JLK
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZWW, ZWW1, ZWW2, ZWW3, ZWW4, ZWW5, ZWW6
+
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+DO JK = 1, KLEV+1
+  DO JL = KIDIA,KFDIA
+    PDISD(JL,JK) = _ZERO_
+    PDISU(JL,JK) = _ZERO_
+  ENDDO
+ENDDO
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA = 1, NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = _ONE_
+    ZTT1(JL,JA) = _ONE_
+    ZTT2(JL,JA) = _ONE_
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+
+!*         2.2     CONTRIBUTION FROM DISTANT LAYERS
+!                  ---------------------------------
+
+
+!*         2.2.1   DISTANT AND ABOVE LAYERS
+!                  ------------------------
+
+
+!*         2.2.2   FIRST UPPER LEVEL
+!                  -----------------
+
+DO JK = 1 , KLEV-1
+  IKP1=JK+1
+  IKN=(JK-1)*NG1P1+1
+  IKD1= JK  *NG1P1+1
+
+  CALL LWTTM &
+   &( KIDIA         , KFDIA          , KLON &
+   &, PGA(1,1,1,JK) , PGB(1,1,1,JK)&
+   &, PABCU(1,1,IKN), PABCU(1,1,IKD1), ZTT1 &
+   &)
+
+
+
+!*         2.2.3   HIGHER UP
+!                  ---------
+
+  ITT=1
+  DO JKJ=IKP1,KLEV
+    IF(ITT == 1) THEN
+      ITT=2
+    ELSE
+      ITT=1
+    ENDIF
+    IKJP1=JKJ+1
+    IKD2= JKJ  *NG1P1+1
+
+    IF(ITT == 1) THEN
+      CALL LWTTM &
+       &( KIDIA         , KFDIA          , KLON &
+       &, PGA(1,1,1,JKJ), PGB(1,1,1,JKJ)&
+       &, PABCU(1,1,IKN), PABCU(1,1,IKD2), ZTT1 &
+       &)
+
+
+    ELSE
+      CALL LWTTM &
+       &( KIDIA         , KFDIA          , KLON &
+       &, PGA(1,1,1,JKJ), PGB(1,1,1,JKJ)&
+       &, PABCU(1,1,IKN), PABCU(1,1,IKD2), ZTT2 &
+       &)
+
+
+    ENDIF
+
+    DO JA = 1, KTRAER
+      DO JL = KIDIA,KFDIA
+        ZTT(JL,JA) = (ZTT1(JL,JA)+ZTT2(JL,JA))*_HALF_
+      ENDDO
+    ENDDO
+
+    DO JL = KIDIA,KFDIA
+      ZWW1=PDBDT(JL,1,JKJ)*ZTT(JL,1)          *ZTT(JL,10)
+      ZWW2=PDBDT(JL,2,JKJ)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)
+      ZWW3=PDBDT(JL,3,JKJ)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)
+      ZWW4=PDBDT(JL,4,JKJ)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)
+      ZWW5=PDBDT(JL,5,JKJ)*ZTT(JL,3)          *ZTT(JL,14)
+      ZWW6=PDBDT(JL,6,JKJ)*ZTT(JL,6)          *ZTT(JL,15)
+      ZWW=ZWW1+ZWW2+ZWW3+ZWW4+ZWW5+ZWW6
+      PDISD(JL,JK)=PDISD(JL,JK)+ZWW
+      PCNTRB(JL,JK,IKJP1)=ZWW
+      IF (JK == 1) THEN
+        PDWFSU(JL,1)=PDWFSU(JL,1)+ZWW1
+        PDWFSU(JL,2)=PDWFSU(JL,2)+ZWW2
+        PDWFSU(JL,3)=PDWFSU(JL,3)+ZWW3
+        PDWFSU(JL,4)=PDWFSU(JL,4)+ZWW4
+        PDWFSU(JL,5)=PDWFSU(JL,5)+ZWW5
+        PDWFSU(JL,6)=PDWFSU(JL,6)+ZWW6
+      ENDIF
+    ENDDO
+
+
+  ENDDO
+ENDDO
+
+
+!*         2.2.4   DISTANT AND BELOW LAYERS
+!                  ------------------------
+
+
+!*         2.2.5   FIRST LOWER LEVEL
+!                  -----------------
+
+DO JK=3,KLEV+1
+  IKN=(JK-1)*NG1P1+1
+  IKM1=JK-1
+  IKJ=JK-2
+  IKU1= IKJ  *NG1P1+1
+
+
+  CALL LWTTM &
+   &( KIDIA          , KFDIA         , KLON &
+   &, PGA(1,1,1,IKJ) , PGB(1,1,1,IKJ)&
+   &, PABCU(1,1,IKU1), PABCU(1,1,IKN), ZTT1 &
+   &)
+
+
+
+
+!*         2.2.6   DOWN BELOW
+!                  ----------
+
+  ITT=1
+  DO JLK=1,IKJ
+    IF(ITT == 1) THEN
+      ITT=2
+    ELSE
+      ITT=1
+    ENDIF
+    IJKL=IKM1-JLK
+    IKU2=(IJKL-1)*NG1P1+1
+
+
+    IF(ITT == 1) THEN
+      CALL LWTTM &
+       &( KIDIA          , KFDIA          , KLON &
+       &, PGA(1,1,1,IJKL), PGB(1,1,1,IJKL)&
+       &, PABCU(1,1,IKU2), PABCU(1,1,IKN) , ZTT1 &
+       &)
+
+
+    ELSE
+      CALL LWTTM &
+       &( KIDIA          , KFDIA          , KLON &
+       &, PGA(1,1,1,IJKL), PGB(1,1,1,IJKL)&
+       &, PABCU(1,1,IKU2), PABCU(1,1,IKN) , ZTT2 &
+       &)
+
+
+    ENDIF
+
+    DO JA = 1, KTRAER
+      DO JL = KIDIA,KFDIA
+        ZTT(JL,JA) = (ZTT1(JL,JA)+ZTT2(JL,JA))*_HALF_
+      ENDDO
+    ENDDO
+
+    DO JL = KIDIA,KFDIA
+      ZWW=PDBDT(JL,1,IJKL)*ZTT(JL,1)          *ZTT(JL,10)&
+       &+PDBDT(JL,2,IJKL)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)&
+       &+PDBDT(JL,3,IJKL)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)&
+       &+PDBDT(JL,4,IJKL)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)&
+       &+PDBDT(JL,5,IJKL)*ZTT(JL,3)          *ZTT(JL,14)&
+       &+PDBDT(JL,6,IJKL)*ZTT(JL,6)          *ZTT(JL,15)
+      PDISU(JL,JK)=PDISU(JL,JK)+ZWW
+      PCNTRB(JL,JK,IJKL)=ZWW
+    ENDDO
+
+
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWVD
Index: LMDZ5/branches/testing/libf/phymar/lwvn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/lwvn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/lwvn.F90	(revision 2160)
@@ -0,0 +1,245 @@
+SUBROUTINE LWVN &
+ &( KIDIA, KFDIA, KLON  , KLEV , KUAER &
+ &, PABCU, PDBSL, PGA   , PGB &
+ &, PADJD, PADJU, PCNTRB, PDBDT, PDWFSU &
+ &)
+
+!**** *LWVN*   - L.W., VERTICAL INTEGRATION, NEARBY LAYERS
+
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION ON NEARBY LAYERS
+!           TO GIVE LONGWAVE FLUXES OR RADIANCES
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1)  ; ABSORBER AMOUNTS
+! PDBSL  : (KLON,KLEV*2)       ; SUB-LAYER PLANCK FUNCTION GRADIENT
+! PGA, PGB                     ; PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PADJ.. : (KLON,KLEV+1)       ; CONTRIBUTION OF ADJACENT LAYERS
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PDBDT  : (KLON,NUA,KLEV)     ; LAYER PLANCK FUNCTION GRADIENT
+! PDWFSU : (KLON,NSIL)         ; SPECTRAL DOWNWARD FLUX AT SURFACE
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+!     CONTRIBUTIONS OF THE ADJACENT LAYERS USING A GAUSSIAN QUADRATURE
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18 Revised Continuum + Surf.Emissiv.
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,&
+            &NG1      ,NG1P1    ,WG1
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KUAER
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)&
+  &,  PDBSL(KLON,NSIL,KLEV*2)&
+  &,  PGA(KLON,NIPD,2,KLEV)   , PGB(KLON,NIPD,2,KLEV)
+
+REAL_B :: PADJD(KLON,KLEV+1)      , PADJU(KLON,KLEV+1)&
+  &,  PCNTRB(KLON,KLEV+1,KLEV+1)&
+  &,  PDBDT(KLON,NSIL,KLEV)   , PDWFSU(KLON,NSIL)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA),  ZUU(KLON,NUA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IBS, IDD, IM12, IMU, IND, INU, IXD, IXU,&
+             &JA, JG, JK, JK1, JK2, JL, JNU
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZWTR, ZWTR1, ZWTR2, ZWTR3, ZWTR4, ZWTR5, ZWTR6
+
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PADJD(JL,JK) = _ZERO_
+    PADJU(JL,JK) = _ZERO_
+  ENDDO
+ENDDO
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA = 1 , NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = _ONE_
+    ZTT1(JL,JA) = _ONE_
+    ZTT2(JL,JA) = _ONE_
+  ENDDO
+ENDDO
+
+DO JA = 1 , NUA
+  DO JL = KIDIA,KFDIA
+    ZUU(JL,JA) = _ZERO_
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+
+!*         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+!                  ---------------------------------
+
+DO JK = 1 , KLEV
+
+!*         2.1.1   DOWNWARD LAYERS
+!                  ---------------
+
+  IM12 = 2 * (JK - 1)
+  IND = (JK - 1) * NG1P1 + 1
+  IXD = IND
+  INU = JK * NG1P1 + 1
+  IXU = IND
+
+  DO JG = 1 , NG1
+    IBS = IM12 + JG
+    IDD = IXD + JG
+
+    DO JA = 1 , KUAER
+      DO JL = KIDIA,KFDIA
+        ZUU(JL,JA) = PABCU(JL,JA,IND) - PABCU(JL,JA,IDD)
+      ENDDO
+    ENDDO
+
+
+    CALL LWTT &
+     &( KIDIA        , KFDIA        , KLON &
+     &, PGA(1,1,1,JK), PGB(1,1,1,JK)&
+     &, ZUU          , ZTT &
+     &)
+
+    DO JL = KIDIA,KFDIA
+      ZWTR1=PDBSL(JL,1,IBS)*ZTT(JL,1)          *ZTT(JL,10)
+      ZWTR2=PDBSL(JL,2,IBS)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)
+      ZWTR3=PDBSL(JL,3,IBS)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)
+      ZWTR4=PDBSL(JL,4,IBS)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)
+      ZWTR5=PDBSL(JL,5,IBS)*ZTT(JL,3)          *ZTT(JL,14)
+      ZWTR6=PDBSL(JL,6,IBS)*ZTT(JL,6)          *ZTT(JL,15)
+      ZWTR=ZWTR1+ZWTR2+ZWTR3+ZWTR4+ZWTR5+ZWTR6
+      PADJD(JL,JK) = PADJD(JL,JK) + ZWTR * WG1(JG)
+      IF (JK == 1) THEN
+        PDWFSU(JL,1)=PDWFSU(JL,1)+WG1(JG)*ZWTR1
+        PDWFSU(JL,2)=PDWFSU(JL,2)+WG1(JG)*ZWTR2
+        PDWFSU(JL,3)=PDWFSU(JL,3)+WG1(JG)*ZWTR3
+        PDWFSU(JL,4)=PDWFSU(JL,4)+WG1(JG)*ZWTR4
+        PDWFSU(JL,5)=PDWFSU(JL,5)+WG1(JG)*ZWTR5
+        PDWFSU(JL,6)=PDWFSU(JL,6)+WG1(JG)*ZWTR6
+      ENDIF
+    ENDDO
+
+!*         2.1.2   UPWARD LAYERS
+!                  -------------
+
+    IMU = IXU + JG
+    DO JA = 1 , KUAER
+      DO JL = KIDIA,KFDIA
+        ZUU(JL,JA) = PABCU(JL,JA,IMU) - PABCU(JL,JA,INU)
+      ENDDO
+    ENDDO
+
+
+    CALL LWTT &
+     &( KIDIA        , KFDIA        , KLON &
+     &, PGA(1,1,1,JK), PGB(1,1,1,JK)&
+     &, ZUU          , ZTT &
+     &)
+
+    DO JL = KIDIA,KFDIA
+      ZWTR=PDBSL(JL,1,IBS)*ZTT(JL,1)          *ZTT(JL,10)&
+       &+PDBSL(JL,2,IBS)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)&
+       &+PDBSL(JL,3,IBS)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)&
+       &+PDBSL(JL,4,IBS)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)&
+       &+PDBSL(JL,5,IBS)*ZTT(JL,3)          *ZTT(JL,14)&
+       &+PDBSL(JL,6,IBS)*ZTT(JL,6)          *ZTT(JL,15)
+      PADJU(JL,JK+1) = PADJU(JL,JK+1) + ZWTR * WG1(JG)
+    ENDDO
+
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    PCNTRB(JL,JK,JK+1) = PADJD(JL,JK)
+    PCNTRB(JL,JK+1,JK) = PADJU(JL,JK+1)
+    PCNTRB(JL,JK  ,JK) = _ZERO_
+  ENDDO
+
+ENDDO
+
+DO JK = 1 , KLEV
+  JK2 = 2 * JK
+  JK1 = JK2 - 1
+
+  DO JNU = 1 , NSIL
+    DO JL = KIDIA,KFDIA
+      PDBDT(JL,JNU,JK) = PDBSL(JL,JNU,JK1) + PDBSL(JL,JNU,JK2)
+    ENDDO
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE LWVN
Index: LMDZ5/branches/testing/libf/phymar/mod_grid_phy_lmdz.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_grid_phy_lmdz.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_grid_phy_lmdz.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_grid_phy_lmdz.F90
Index: LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_mpi_data.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_mpi_data.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_mpi_data.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_phys_lmdz_mpi_data.F90
Index: LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_mpi_transfert.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_mpi_transfert.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_mpi_transfert.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_phys_lmdz_mpi_transfert.F90
Index: LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_omp_data.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_omp_data.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_omp_data.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_phys_lmdz_omp_data.F90
Index: LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_omp_transfert.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_omp_transfert.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_omp_transfert.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_phys_lmdz_omp_transfert.F90
Index: LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_para.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_para.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_para.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_phys_lmdz_para.F90
Index: LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_transfert_para.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_transfert_para.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/mod_phys_lmdz_transfert_para.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/mod_phys_lmdz_transfert_para.F90
Index: LMDZ5/branches/testing/libf/phymar/naerad.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/naerad.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/naerad.h	(revision 2160)
@@ -0,0 +1,13 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAERAD/&
+  &LLGEOSE, LLGEOSW, LLGMS  , LLINDSA, LLMTO &
+&, LERAD6H, LERADHS, LEPO3RA, LRADLB , LONEWSW &
+&, LOWASYF, LOWHSSS, LOIFUEC, LECSRAD, LRRTM &
+&, LINHOM , LHVOLCA, LNEWAER, LRADIP , LRADLP , LTEMPDS&
+&, NAER   , IGEO   , NMODE  , NOZOCL &
+&, NOVLP  , NLW    , NSW    , NRADFR &
+&, NRADPFR, NRADPLA, NRINT  , NRPROMA, NRADF2C, NRADC2F, NCSRADF
+!     -----------------------------------------------------------------
+
+
+
Index: LMDZ5/branches/testing/libf/phymar/olw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olw.F90	(revision 2160)
@@ -0,0 +1,197 @@
+SUBROUTINE OLW &
+     & ( KIDIA, KFDIA , KLON  , KLEV &
+     & , PCCO2, PCLDLD, PCLDLU &
+     & , PDP  , PDT0  , PEMIS  &
+     & , PAPH , PQOF  , PTH &
+     & , PAER , PT    , PVIEW , PWV &
+     & , PCOLR, PCOLC , PFLUX, PFLUC &
+     & )
+!
+!**** *LW*   - ORGANIZES THE LONGWAVE CALCULATIONS
+!
+!     PURPOSE.
+!     --------
+!           DEPENDING ON KMODE, COMPUTES LONGWAVE FLUXES AND/OR
+!           RADIANCES
+!
+!**   INTERFACE.
+!     ----------
+!
+!        *LW* IS CALLED FROM *RADLSW*
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PAER   : (KLON,KLEV,6)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PCLDLD : (KLON,KLEV)       ; DOWNWARD EFFECTIVE FRACTIONAL COVER
+! PCLDLU : (KLON,KLEV)       ; UPWARD EFFECTIVE FRACTIONAL COVER
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY  
+! PEMIS  : (KLON)            ; SURFACE EMISSIVITY
+! PAPH   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PQOF   : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PT     : (KLON,KLEV)       ; TEMPERATURE
+! PTH    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+! PVIEW  : (KLON)            ; COSECANT OF VIEWING ANGLE
+! PWV    : (KLON,KLEV)       ; SPECIFIC HUMIDITY  (PA/PA)
+!     ==== OUTPUTS ===
+!  IF KMODE = 0, 1, 2
+! PFLUX(KLON,2,KLEV)         ; RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+! PFLUC(KLON,2,KLEV)         ; RADIATIVE FLUXES CLEAR SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+! PCOLR(KLON,KLEV)           ; LONG-WAVE TENDENCY
+! PCOLC(KLON,KLEV)           ; LONG-WAVE TENDENCY CLEAR SKY
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+!     ABSORBERS.
+!          2. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE
+!     GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS.
+!          3. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON-
+!     TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE
+!     BOUNDARIES.
+!          4. COMPUTES THE CLEAR-SKY DOWNWARD AND UPWARD EMISSIVITIES.
+!          5. INTRODUCES THE EFFECTS OF THE CLOUDS ON THE FLUXES.
+!
+!     EXTERNALS.
+!     ----------
+!
+!          *LWU*, *LWBV*, *LWC*
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NUA
+USE YOERDU   , ONLY : RCDAY
+USE YOEDBUG  , ONLY : LDEBUG
+
+
+IMPLICIT NONE
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!     DUMMY REAL SCALARS
+REAL_B :: PCCO2, ZDFNET
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+REAL_B :: PCLDLD(KLON,KLEV)      , PCLDLU(KLON,KLEV) &
+     &  ,  PDP(KLON,KLEV)   , PDT0(KLON) &
+     &  ,  PEMIS(KLON)      , PAPH(KLON,KLEV+1) &
+     &  ,  PQOF(KLON,KLEV)  , PTH(KLON,KLEV+1) &
+     &  ,  PAER(KLON,KLEV,6), PT(KLON,KLEV) &
+     &  ,  PVIEW(KLON)      , PWV(KLON,KLEV)
+!
+REAL_B :: PCOLR(KLON,KLEV)       , PCOLC(KLON,KLEV) &
+     &  ,  PFLUX(KLON,2,KLEV+1), PFLUC(KLON,2,KLEV+1)
+!
+!-------------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+REAL_B :: ZABCU(KLON,NUA,3*KLEV+1) &
+     &  ,  ZBINT(KLON,KLEV+1) &
+     &  ,  ZBSUI(KLON) &
+     &  ,  ZCNTRB(KLON,KLEV+1,KLEV+1) &
+     &  ,  ZFDN(KLON,KLEV+1) &
+     &  ,  ZFUP(KLON,KLEV+1)
+     
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JK, JKL, JL, ILIM, IUA, KLEVT, JK1, JK2
+
+     
+!
+!     ------------------------------------------------------------------
+!
+!*         1.    INITIALIZATION
+!                --------------
+!
+!     ------------------------------------------------------------------
+!
+!*         1.1   COMPUTES ABSORBER AMOUNTS
+!                -------------------------
+!
+
+CALL OLWU ( KIDIA, KFDIA, KLON, KLEV &
+     &  ,  PAER, PCCO2, PDP, PAPH, PQOF, PT, PVIEW, PWV &
+     &  ,  ZABCU   )
+
+!
+!     ------------------------------------------------------------------
+!
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+!                PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+
+DO JK1=1,KLEV+1
+  DO JK2=1,KLEV+1
+    DO JL=KIDIA,KFDIA
+      ZCNTRB(JL,JK1,JK2)=0.
+    END DO
+  END DO
+END DO      
+!
+CALL OLWBV( KIDIA,KFDIA,KLON,KLEV &
+     &          , PDP,PDT0,PEMIS,PTH &
+     &          , PT &
+     &          , PCOLC,PFLUC &
+     &          , ZABCU,ZBINT,ZBSUI,ZCNTRB,ZFDN,ZFUP)
+     
+!     ------------------------------------------------------------------
+!
+!*         4.    INTRODUCES THE EFFECTS OF CLOUDS
+!                --------------------------------
+!
+CALL OLWC ( KIDIA,KFDIA,KLON,KLEV &
+     &  , ZBINT,ZBSUI,PCLDLD,PCLDLU,ZCNTRB,PEMIS,ZFDN,ZFUP &
+     &  , PFLUX                                                )
+!
+DO JKL = 1 , KLEV
+  JK = KLEV+1 - JKL
+
+  DO JL = KIDIA,KFDIA
+    ZDFNET = PFLUX(JL,1,JK+1) + PFLUX(JL,2,JK+1) &
+     &        -PFLUX(JL,1,JK  ) - PFLUX(JL,2,JK  )
+    PCOLR(JL,JK) = RCDAY * ZDFNET / PDP(JL,JKL)
+    
+    ZDFNET = PFLUC(JL,1,JK+1) + PFLUC(JL,2,JK+1) &
+    &              -PFLUC(JL,1,JK  ) - PFLUC(JL,2,JK  )
+    PCOLC(JL,JK) = RCDAY * ZDFNET / PDP(JL,JKL)
+  END DO
+  
+END DO
+!
+!     ------------------------------------------------------------------
+!
+RETURN
+END SUBROUTINE OLW
Index: LMDZ5/branches/testing/libf/phymar/olwb.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwb.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwb.F90	(revision 2160)
@@ -0,0 +1,270 @@
+SUBROUTINE OLWB &
+     &  ( KIDIA, KFDIA, KLON  , KLEV  &
+     &  , PDT0 , PT   , PTH &
+     &  , PB   , PBINT, PBSUIN, PBSUR , PBTOP , PDBSL &
+     &  , PGA  , PGB  , PGASUR, PGBSUR, PGATOP, PGBTOP )
+!
+!**** *LWB*   - COMPUTES BLACK-BODY FUNCTIONS FOR LONGWAVE CALCULATIONS
+!
+!     PURPOSE.
+!     --------
+!           COMPUTES PLANCK FUNCTIONS
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PDT0   : (KLON)             ; SURFACE TEMPERATURE DISCONTINUITY
+! PT     : (KLON,KLEV)        ; TEMPERATURE
+! PTH    : (KLON,KLEV+1)      ; HALF LEVEL TEMPERATURE
+!     ==== OUTPUTS ===
+! PB     : (KLON,NISP,KLEV+1) ; SPECTRAL HALF LEVEL PLANCK FUNCTION
+! PBINT  : (KLON,KLEV+1)      ; HALF LEVEL PLANCK FUNCTION
+! PBSUIN : (KLON)             ; SURFACE PLANCK FUNCTION
+! PBSUR  : (KLON,NISP)        ; SURFACE SPECTRAL PLANCK FUNCTION
+! PBTOP  : (KLON,NISP)        ; TOP SPECTRAL PLANCK FUNCTION
+! PDBSL  : (KLON,NISP,KLEV*2); SUB-LAYER PLANCK FUNCTION GRADIENT
+! PGA    : (KLON,8,2,KLEV); dB/dT-weighted LAYER PADE APPROXIMANTS
+! PGB    : (KLON,8,2,KLEV); dB/dT-weighted LAYER PADE APPROXIMANTS
+! PGASUR, PGBSUR (KLON,8,2)   ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP (KLON,8,2)   ; T.O.A. PADE APPROXIMANTS
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. COMPUTES THE PLANCK FUNCTION ON ALL LEVELS AND HALF LEVELS
+!     FROM A POLYNOMIAL DEVELOPMENT OF PLANCK FUNCTION
+!
+!     EXTERNALS.
+!     ----------
+!
+!          NONE
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS           "
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : MXIXT    ,NISP     ,NIPD     ,  GA     ,&
+            & GB     ,TINTP    ,TSTAND   ,TSTP     ,XP
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+REAL_B :: PDT0(KLON), PT(KLON,KLEV), PTH(KLON,KLEV+1)
+!
+REAL_B :: PB(KLON,NISP,KLEV+1), PBINT(KLON,KLEV+1) &
+     &  ,  PBSUIN(KLON)       , PBSUR(KLON,NISP) &
+     &  ,  PBTOP(KLON,NISP)   , PDBSL(KLON,NISP,KLEV*2) &
+     &  ,  PGA(KLON,8,2,KLEV) , PGB(KLON,8,2,KLEV) &
+     &  ,  PGASUR(KLON,8,2)   , PGBSUR(KLON,8,2) &
+     &  ,  PGATOP(KLON,8,2)   , PGBTOP(KLON,8,2)
+!
+!-------------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+INTEGER_M :: INDB(KLON),INDS(KLON)
+
+REAL_B :: ZBLAY(KLON,KLEV),ZBLEV(KLON,KLEV+1) &
+     &  , ZRES(KLON),ZRES2(KLON),ZTI(KLON),ZTI2(KLON)
+     
+REAL_B :: ZDST1, ZDSTO1, ZDSTX, ZDSTOX
+     
+INTEGER_M :: ILEV2, INDSU, INDT, INDTP, INDTO, INUS, INUE, IXTOX, IXTX &
+     &  , JF, JG, JNU, JK, JK1, JK2, JL, IKL
+!
+!     ------------------------------------------------------------------
+!
+!
+!*         1.0     PLANCK FUNCTIONS AND GRADIENTS
+!                  ------------------------------
+!
+ILEV2=2*KLEV
+INUS=1
+INUE=NISP
+       
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PBINT(JL,JK) = 0.
+  END DO
+END DO
+DO JNU=1,NISP
+  DO JL=KIDIA,KFDIA
+    PBSUR(JL,JNU)=0.
+    PBTOP(JL,JNU)=0.
+  END DO
+  DO JK=1,KLEV
+    DO JL=KIDIA,KFDIA
+      PB(JL,JNU,JK)=0.
+    END DO
+  END DO
+  DO JK=1,ILEV2
+    DO JL=KIDIA,KFDIA
+      PDBSL(JL,JNU,JK)=0.
+    END DO  
+  END DO
+END DO
+DO JL = KIDIA,KFDIA
+  PBSUIN(JL) = 0.
+END DO
+!
+DO JNU=INUS,INUE
+!
+!
+!*         1.1   LEVELS FROM SURFACE TO KLEV
+!                ----------------------------
+!                TEMPERATURE ENTERED FROM TOP TO BOTTOM
+!
+  DO JK = 1 , KLEV
+    IKL=KLEV+1-JK
+    DO JL = KIDIA,KFDIA
+      ZTI(JL)=(PTH(JL,IKL+1)-TSTAND)/TSTAND
+      ZRES(JL) = XP(1,JNU)+ZTI(JL)*(XP(2,JNU)+ZTI(JL)*(XP(3,JNU) &
+      &       +ZTI(JL)*(XP(4,JNU)+ZTI(JL)*(XP(5,JNU)+ZTI(JL)*(XP(6,JNU) &
+      &       )))))
+      PBINT(JL,JK)=PBINT(JL,JK)+ZRES(JL)
+      PB(JL,JNU,JK)= ZRES(JL)
+      ZBLEV(JL,JK) = ZRES(JL)
+      
+      ZTI2(JL)=(PT(JL,IKL)-TSTAND)/TSTAND
+      ZRES2(JL)=XP(1,JNU)+ZTI2(JL)*(XP(2,JNU)+ZTI2(JL)*(XP(3,JNU) &
+      &     +ZTI2(JL)*(XP(4,JNU)+ZTI2(JL)*(XP(5,JNU)+ZTI2(JL)*(XP(6,JNU) &
+      &       )))))
+      ZBLAY(JL,JK) = ZRES2(JL)
+    END DO
+  END DO
+!
+!
+!*         1.2   TOP OF THE ATMOSPHERE AND SURFACE
+!                ---------------------------------
+!                TEMPERATURE ENTERED FROM TOP TO BOTTOM
+!
+  DO JL = KIDIA,KFDIA
+    ZTI(JL)=(PTH(JL,1)-TSTAND)/TSTAND
+    ZTI2(JL) = (PTH(JL,KLEV+1) + PDT0(JL) - TSTAND) / TSTAND
+    ZRES(JL) = XP(1,JNU)+ZTI(JL)*(XP(2,JNU)+ZTI(JL)*(XP(3,JNU) &
+    &   +ZTI(JL)*(XP(4,JNU)+ZTI(JL)*(XP(5,JNU)+ZTI(JL)*(XP(6,JNU) &
+    &      )))))
+    ZRES2(JL) = XP(1,JNU)+ZTI2(JL)*(XP(2,JNU)+ZTI2(JL)*(XP(3,JNU) &
+    &    +ZTI2(JL)*(XP(4,JNU)+ZTI2(JL)*(XP(5,JNU)+ZTI2(JL)*(XP(6,JNU) &
+    &       )))))
+    PBINT(JL,KLEV+1) = PBINT(JL,KLEV+1)+ZRES(JL)
+    PB(JL,JNU,KLEV+1)= ZRES(JL)
+    ZBLEV(JL,KLEV+1) = ZRES(JL)
+    PBTOP(JL,JNU) = ZRES(JL)
+    PBSUR(JL,JNU) = ZRES2(JL)
+    PBSUIN(JL) = PBSUIN(JL) + ZRES2(JL)
+  END DO
+!
+!
+!*         1.3   GRADIENTS IN SUB-LAYERS
+!                -----------------------
+!
+  DO JK = 1 , KLEV
+    JK2 = 2 * JK
+    JK1 = JK2 - 1
+    DO JL = KIDIA,KFDIA
+      PDBSL(JL,JNU,JK1) = ZBLAY(JL,JK  ) - ZBLEV(JL,JK)
+      PDBSL(JL,JNU,JK2) = ZBLEV(JL,JK+1) - ZBLAY(JL,JK)
+    END DO
+  END DO
+!
+END DO
+!
+!*         2.0   CHOOSE THE RELEVANT SETS OF PADE APPROXIMANTS
+!                ---------------------------------------------
+!
+DO JL=KIDIA,KFDIA
+  ZDSTO1 = (PTH(JL,1)-TINTP(1)) / TSTP
+  IXTOX = MAX( 1, MIN( INT(MXIXT), INT( ZDSTO1 + 1. ) ) )
+  ZDSTOX = (PTH(JL,1)-TINTP(IXTOX))/TSTP
+  IF (ZDSTOX.LT.0.5) THEN
+    INDTO=IXTOX
+  ELSE
+    INDTO=IXTOX+1
+  END IF
+  INDB(JL)=INDTO
+  
+  ZDST1 = (PTH(JL,KLEV+1)-TINTP(1)) / TSTP
+  IXTX = MAX( 1, MIN( INT(MXIXT), INT( ZDST1 + 1. ) ) )
+  ZDSTX = (PTH(JL,KLEV+1)-TINTP(IXTX))/TSTP
+  IF (ZDSTX.LT.0.5) THEN
+    INDT=IXTX
+  ELSE
+    INDT=IXTX+1
+  END IF
+  INDS(JL)=INDT
+END DO
+!
+DO JF=1,2
+  DO JG=1, 8
+    DO JL=KIDIA,KFDIA
+      INDSU=INDS(JL)
+      PGASUR(JL,JG,JF)=GA(INDSU,2*JG-1,JF)
+      PGBSUR(JL,JG,JF)=GB(INDSU,2*JG-1,JF)
+      INDTP=INDB(JL)
+      PGATOP(JL,JG,JF)=GA(INDTP,2*JG-1,JF)
+      PGBTOP(JL,JG,JF)=GB(INDTP,2*JG-1,JF)
+    END DO
+  END DO
+END DO
+!
+DO JK=1,KLEV
+  IKL=KLEV+1-JK
+  DO JL=KIDIA,KFDIA
+    ZDST1 = (PT(JL,IKL)-TINTP(1)) / TSTP
+    IXTX = MAX( 1, MIN( INT(MXIXT), INT( ZDST1 + 1. ) ) )
+    ZDSTX = (PT(JL,IKL)-TINTP(IXTX))/TSTP
+    IF (ZDSTX.LT.0.5) THEN
+      INDT=IXTX
+    ELSE
+      INDT=IXTX+1
+    END IF
+    INDB(JL)=INDT
+  END DO
+!
+  DO JF=1,2
+    DO JG=1, 8
+      DO JL=KIDIA,KFDIA
+        INDT=INDB(JL)
+        PGA(JL,JG,JF,JK)=GA(INDT,2*JG,JF)
+        PGB(JL,JG,JF,JK)=GB(INDT,2*JG,JF)
+      END DO
+    END DO
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+RETURN
+END SUBROUTINE OLWB
Index: LMDZ5/branches/testing/libf/phymar/olwbv.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwbv.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwbv.F90	(revision 2160)
@@ -0,0 +1,158 @@
+SUBROUTINE OLWBV &
+     &  ( KIDIA, KFDIA, KLON , KLEV &
+     &  , PDP  , PDT0 , PEMIS, PTH &
+     &  , PT   &
+     &  , PCOLC, PFLUC &
+     &  , PABCU, PBINT, PBSUI, PCNTRB, PFDN, PFUP )
+!
+!**** *LWBV*   - COMPUTE PLANCK FUNC., PERF. VERT. INTEGRATION
+!
+!     PURPOSE.
+!     --------
+!           TO COMPUTE THE PLANCK FUNCTION AND PERFORM THE
+!           VERTICAL INTEGRATION. SPLIT OUT FROM LW FOR MEMORY
+!           SAVING
+!
+!**   INTERFACE.
+!     ----------
+!
+!        *LWVB* IS CALLED FROM *LW*
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY
+! PEMIS  : (KLON)            ; SURFACE EMISSIVITY
+! PT     : (KLON,KLEV)       ; TEMPERATURE
+! PTH    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+!     ==== OUTPUTS ===
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE
+!     GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS.
+!          2. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON-
+!     TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE
+!     BOUNDARIES.
+!          3. COMPUTES THE CLEAR-SKY COOLING RATES.
+!
+!     EXTERNALS.
+!     ----------
+!
+!          *LWB*, *LWV*
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        MODIFICATION : 93-10-15 M.HAMRUD (SPLIT OUT FROM LW TO SAVE
+!                                          MEMORY)
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NISP     ,NIPD     ,NUA
+USE YOERDU   , ONLY : NUAER    ,NTRAER   ,RCDAY
+USE YOEDBUG  , ONLY : LDEBUG
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+REAL_B :: PDP(KLON,KLEV) &
+     &  ,  PDT0(KLON)        ,PEMIS(KLON) &
+     &  ,  PTH(KLON,KLEV+1) &
+     &  ,  PT(KLON,KLEV)
+!
+REAL_B :: PCOLC(KLON,KLEV), PFLUC(KLON,2,KLEV+1)
+!     
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1) &
+     &  ,  PBINT(KLON,KLEV+1) &
+     &  ,  PBSUI(KLON) &
+     &  ,  PCNTRB(KLON,KLEV+1,KLEV+1) &
+     &  ,  PFDN(KLON,KLEV+1) &
+     &  ,  PFUP(KLON,KLEV+1)
+!
+!-------------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+REAL_B :: ZB(KLON,NISP,KLEV+1) &
+     &  ,  ZBSUR(KLON,NISP), ZBTOP(KLON,NISP) &
+     &  ,  ZDBSL(KLON,NISP,KLEV*2) &
+     &  ,  ZGA(KLON,8,2,KLEV), ZGB(KLON,8,2,KLEV) &
+     &  ,  ZGASUR(KLON,8,2)   , ZGBSUR(KLON,8,2) &
+     &  ,  ZGATOP(KLON,8,2)   , ZGBTOP(KLON,8,2)
+     
+REAL_B :: ZDFNET     
+!
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JK, JKL, JL, JLW
+
+!     ------------------------------------------------------------------
+!
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+!
+if (LDEBUG) print *, 'CALL OLWB'
+CALL OLWB ( KIDIA, KFDIA, KLON  , KLEV  &
+     &    , PDT0 , PT   , PTH &
+     &    , ZB   , PBINT, PBSUI , ZBSUR , ZBTOP , ZDBSL &
+     &    , ZGA  , ZGB  , ZGASUR, ZGBSUR, ZGATOP, ZGBTOP     )
+!
+!     ------------------------------------------------------------------
+!
+!*         3.    PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+!
+if (LDEBUG) print *, 'CALL OLWV'
+CALL OLWV ( KIDIA, KFDIA, KLON , KLEV , NUAER, NTRAER &
+     &    , PABCU, ZB   , PBINT, PBSUI, ZBSUR, ZBTOP, ZDBSL &
+     &    , PEMIS &
+     &    , ZGA  , ZGB  , ZGASUR,ZGBSUR,ZGATOP,ZGBTOP &
+     &    , PCNTRB,PCOLC, PFLUC )
+!
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFDN(JL,JK) = PFLUC(JL,2,JK)
+    PFUP(JL,JK) = PFLUC(JL,1,JK)
+  END DO
+END DO
+!
+!
+DO JKL = 1 , KLEV
+  JK = KLEV+1 - JKL
+  DO JL = KIDIA,KFDIA
+    ZDFNET = PFLUC(JL,1,JK+1) + PFLUC(JL,2,JK+1) &
+    &        -PFLUC(JL,1,JK  ) - PFLUC(JL,2,JK  )
+    PCOLC(JL,JK) = RCDAY * ZDFNET / PDP(JL,JKL)
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+RETURN
+END SUBROUTINE OLWBV
Index: LMDZ5/branches/testing/libf/phymar/olwc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwc.F90	(revision 2160)
@@ -0,0 +1,391 @@
+SUBROUTINE OLWC ( KIDIA,KFDIA,KLON,KLEV &
+     &  , PBINT,PBSUIN,PCLDLD,PCLDLU,PCNTRB,PEMIS,PFDN,PFUP &
+     &  , PFLUX                                                 )
+!
+!**** *LWC*   - LONGWAVE RADIATION, CLOUD EFFECTS
+!
+!     PURPOSE.
+!     --------
+!           INTRODUCES CLOUD EFFECTS ON LONGWAVE FLUXES OR
+!           RADIANCES
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PBINT  : (KLON,KLEV+1)     ; HALF LEVEL PLANCK FUNCTION
+! PBSUIN : (KLON)            ; SURFACE PLANCK FUNCTION
+! PCLDLD : (KLON,KLEV)       ; DOWNWARD EFFECTIVE CLOUD FRACTION
+! PCLDLU : (KLON,KLEV)       ; UPWARD EFFECTIVE CLOUD FRACTION
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE
+! PEMIS  : (KLON)            ; SURFACE EMISSIVITY
+! PFDN   : (KLON,KLEV+1)     ; CLEAR-SKY DOWNWARD FLUX
+! PFUP   : (KLON,KLEV+1)     ; CLEAR-SKY UPWARD FLUX
+!     ==== OUTPUTS ===
+! PFLUX(KLON,2,KLEV)         ; RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. INITIALIZES ALL FLUXES TO CLEAR-SKY VALUES
+!          2. EFFECT OF ONE OVERCAST UNITY EMISSIVITY CLOUD LAYER
+!          3. EFFECT OF SEMI-TRANSPARENT, PARTIAL OR MULTI-LAYERED
+!     CLOUDS
+!
+!     EXTERNALS.
+!     ----------
+!
+!          NONE
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERAD   , ONLY : NOVLP
+USE YOERDI   , ONLY : REPCLC
+USE YOEDBUG  , ONLY : LDEBUG
+
+
+IMPLICIT NONE
+
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+REAL_B :: PBINT(KLON,KLEV+1),PBSUIN(KLON),PCLDLD(KLON,KLEV) &
+     &  ,  PCLDLU(KLON,KLEV) &
+     &  ,  PCNTRB(KLON,KLEV+1,KLEV+1) &
+     &  ,  PFDN(KLON,KLEV+1),PFUP(KLON,KLEV+1) &
+     &  ,  PEMIS(KLON)
+!
+REAL_B :: PFLUX(KLON,2,KLEV+1)
+!
+!-----------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+!
+INTEGER_M :: IMX(KLON), IMXP(KLON)
+!
+REAL_B :: ZCLEAR(KLON),ZCLOUD(KLON),ZDNF(KLON,KLEV+1,KLEV+1) &
+     &  , ZFD(KLON), ZFN10(KLON), ZFU(KLON) &
+     &  , ZUPF(KLON,KLEV+1,KLEV+1) &
+     &  , ZCLM(KLON,KLEV+1,KLEV+1)
+!
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IKCP1, IKM1, IKP1, IMAXC, IMXM1, IMXP1, JCLOUD,&
+             &JK, JK1, JK2, JKJ, JL, IMX1, IMX2, JKC, JKCP1, JKM1, JKP1
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZCFRAC
+
+!     ------------------------------------------------------------------
+!
+!*         1.     INITIALIZATION
+!                 --------------
+!
+IMAXC = 0
+!
+DO JL = KIDIA,KFDIA
+  IMX(JL)=0
+  IMXP(JL)=0
+  ZCLOUD(JL) = 0.
+END DO
+!
+!*         1.1    SEARCH THE LAYER INDEX OF THE HIGHEST CLOUD
+!                 -------------------------------------------
+!
+DO JK = 1 , KLEV
+  DO JL = KIDIA,KFDIA
+    IMX1=IMX(JL)
+    IMX2=JK
+    IF (PCLDLU(JL,JK).GT.REPCLC) THEN
+      IMXP(JL)=IMX2
+    ELSE
+      IMXP(JL)=IMX1
+    END IF
+    IMAXC=MAX(IMXP(JL),IMAXC)
+    IMX(JL)=IMXP(JL)
+  END DO
+END DO
+!CGM*******
+IMAXC=KLEV
+!CGM*******
+!
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,1,JK) = PFUP(JL,JK)
+    PFLUX(JL,2,JK) = PFDN(JL,JK)
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.      EFFECT OF CLOUDINESS ON LONGWAVE FLUXES
+!                  ---------------------------------------
+!
+IF (IMAXC.GT.0) THEN
+!
+  IMXP1 = IMAXC + 1
+  IMXM1 = IMAXC - 1
+!
+!*         2.0     INITIALIZE TO CLEAR-SKY FLUXES
+!                  ------------------------------
+!
+  DO JK1=1,KLEV+1
+    DO JK2=1,KLEV+1
+      DO JL = KIDIA,KFDIA
+        ZUPF(JL,JK2,JK1)=PFUP(JL,JK1)
+        ZDNF(JL,JK2,JK1)=PFDN(JL,JK1)
+      END DO
+    END DO
+  END DO
+!
+!*         2.1     FLUXES FOR ONE OVERCAST UNITY EMISSIVITY CLOUD
+!                  ----------------------------------------------
+!
+  DO JKC = 1 , IMAXC
+    JCLOUD=JKC
+    JKCP1=JCLOUD+1
+!
+!*         2.1.1   ABOVE THE CLOUD
+!                  ---------------
+!
+    DO JK=JKCP1,KLEV+1
+      JKM1=JK-1
+      DO JL = KIDIA,KFDIA
+        ZFU(JL)=0.
+      END DO
+      IF (JK .GT. JKCP1) THEN
+        DO JKJ=JKCP1,JKM1
+          DO JL = KIDIA,KFDIA
+            ZFU(JL) = ZFU(JL) + PCNTRB(JL,JK,JKJ)
+          END DO
+        END DO
+      END IF
+!
+      DO JL = KIDIA,KFDIA
+        ZUPF(JL,JKCP1,JK)=PBINT(JL,JK)-ZFU(JL)
+      END DO
+    END DO
+!
+!*         2.1.2   BELOW THE CLOUD
+!                  ---------------
+!
+    DO JK=1,JCLOUD
+      JKP1=JK+1
+      DO JL = KIDIA,KFDIA
+        ZFD(JL)=0.
+      END DO
+!
+      IF (JK .LT. JCLOUD) THEN
+        DO JKJ=JKP1,JCLOUD
+          DO JL = KIDIA,KFDIA
+            ZFD(JL) = ZFD(JL) + PCNTRB(JL,JK,JKJ)
+          END DO
+        END DO
+      END IF
+      DO JL = KIDIA,KFDIA
+        ZDNF(JL,JKCP1,JK)=-PBINT(JL,JK)-ZFD(JL)
+      END DO
+    END DO
+!
+  END DO
+!
+!
+!*         2.2     CLOUD COVER MATRIX
+!                  ------------------
+!
+!*    ZCLM(JK1,JK2) IS THE OBSCURATION FACTOR BY CLOUD LAYERS BETWEEN
+!     HALF-LEVELS JK1 AND JK2 AS SEEN FROM JK1
+!
+  DO JK1 = 1 , KLEV+1
+    DO JK2 = 1 , KLEV+1
+      DO JL = KIDIA,KFDIA
+        ZCLM(JL,JK1,JK2) = 0.
+      END DO
+    END DO
+  END DO
+!
+!
+!
+!*         2.4     CLOUD COVER BELOW THE LEVEL OF CALCULATION
+!                  ------------------------------------------
+!
+  DO JK1 = 2 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZCLEAR(JL)=1.
+      ZCLOUD(JL)=0.
+    END DO
+    DO JK = JK1 - 1 , 1 , -1
+      DO JL = KIDIA,KFDIA
+        IF (NOVLP.EQ.1) THEN
+!* maximum-random       
+          ZCLEAR(JL)=ZCLEAR(JL)*(1.0-MAX(PCLDLU(JL,JK),ZCLOUD(JL))) &
+          &                       /(1.0-MIN(ZCLOUD(JL),1.-REPCLC))
+          ZCLM(JL,JK1,JK) = 1.0 - ZCLEAR(JL)
+          ZCLOUD(JL) = PCLDLU(JL,JK)
+        ELSE IF (NOVLP.EQ.2) THEN 
+!* maximum      
+          ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLU(JL,JK))
+          ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+        ELSE IF (NOVLP.EQ.3) THEN
+!* random      
+          ZCLEAR(JL) = ZCLEAR(JL)*(1.0 - PCLDLU(JL,JK))
+          ZCLOUD(JL) = 1.0 - ZCLEAR(JL)
+          ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+        END IF
+      END DO
+    END DO
+  END DO
+!
+!
+!*         2.5     CLOUD COVER ABOVE THE LEVEL OF CALCULATION
+!                  ------------------------------------------
+!
+  DO JK1 = 1 , KLEV
+    DO JL = KIDIA,KFDIA
+      ZCLEAR(JL)=1.
+      ZCLOUD(JL)=0.
+    END DO
+    DO JK = JK1 , KLEV
+      DO JL = KIDIA,KFDIA
+        IF (NOVLP.EQ.1) THEN
+!* maximum-random       
+           ZCLEAR(JL)=ZCLEAR(JL)*(1.0-MAX(PCLDLD(JL,JK),ZCLOUD(JL))) &
+           &                    /(1.0-MIN(ZCLOUD(JL),1.-REPCLC))
+           ZCLM(JL,JK1,JK) = 1.0 - ZCLEAR(JL)
+           ZCLOUD(JL) = PCLDLD(JL,JK)
+         ELSE IF (NOVLP.EQ.2) THEN 
+!* maximum      
+           ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLD(JL,JK))
+           ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+         ELSE IF (NOVLP.EQ.3) THEN
+!* random      
+           ZCLEAR(JL) = ZCLEAR(JL)*(1.0 - PCLDLD(JL,JK))
+           ZCLOUD(JL) = 1.0 - ZCLEAR(JL)
+           ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+         END IF
+       END DO
+     END DO
+   END DO
+!
+!
+!
+!*         3.      FLUXES FOR PARTIAL/MULTIPLE LAYERED CLOUDINESS
+!                  ----------------------------------------------
+!
+!*         3.1     DOWNWARD FLUXES
+!                  ---------------
+!
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,2,KLEV+1) = 0.
+  END DO
+!
+  DO JK1 = KLEV , 1 , -1
+!
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+!
+    DO JL = KIDIA,KFDIA
+      ZFD (JL) = (1. - ZCLM(JL,JK1,KLEV)) * ZDNF(JL,1,JK1)
+!
+!*                 CONTRIBUTION FROM ADJACENT CLOUD
+!
+      ZFD(JL) = ZFD(JL) + ZCLM(JL,JK1,JK1) * ZDNF(JL,JK1+1,JK1)
+    END DO
+!
+!*                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+!
+    DO JK = KLEV-1 , JK1 , -1
+      DO JL = KIDIA,KFDIA
+        ZCFRAC = ZCLM(JL,JK1,JK+1) - ZCLM(JL,JK1,JK)
+        ZFD(JL) =  ZFD(JL) + ZCFRAC * ZDNF(JL,JK+2,JK1)
+      END DO
+    END DO
+!
+    DO JL = KIDIA,KFDIA
+      PFLUX(JL,2,JK1) = ZFD (JL)
+    END DO
+!
+  END DO
+!
+!
+!
+!
+!*         3.2     UPWARD FLUX AT THE SURFACE
+!                  --------------------------
+!
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,1,1) = PEMIS(JL)*PBSUIN(JL)-(1.-PEMIS(JL))*PFLUX(JL,2,1)
+  END DO
+!
+!
+!
+!*         3.3     UPWARD FLUXES
+!                  -------------
+!
+  DO JK1 = 2 , KLEV+1
+!
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+!
+    DO JL = KIDIA,KFDIA
+      ZFU (JL) = (1. - ZCLM(JL,JK1,1)) * ZUPF(JL,1,JK1)
+!
+!*                 CONTRIBUTION FROM ADJACENT CLOUD
+!
+      ZFU(JL) =  ZFU(JL) + ZCLM(JL,JK1,JK1-1) * ZUPF(JL,JK1,JK1)
+    END DO
+!
+!*                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+!
+    DO JK = 2 , JK1-1
+      DO JL = KIDIA,KFDIA
+        ZCFRAC = ZCLM(JL,JK1,JK-1) - ZCLM(JL,JK1,JK)
+        ZFU(JL) =  ZFU(JL) + ZCFRAC * ZUPF(JL,JK  ,JK1)
+      END DO
+    END DO
+!
+    DO JL = KIDIA,KFDIA
+      PFLUX(JL,1,JK1) = ZFU (JL)
+    END DO
+!
+  END DO
+!
+!
+END IF
+!
+!
+!*         2.3     END OF CLOUD EFFECT COMPUTATIONS
+!
+!----------------------------------------------------------------------
+RETURN
+END SUBROUTINE OLWC
Index: LMDZ5/branches/testing/libf/phymar/olwtt.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwtt.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwtt.F90	(revision 2160)
@@ -0,0 +1,274 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE OLWTT (KIDIA,KFDIA,KLON, PGA,PGB,PUU, PTT)
+!
+!**** *LWTT* - LONGWAVE TRANSMISSION FUNCTIONS
+!
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+!     INTERVALS.
+!
+!**   INTERFACE.
+!     ----------
+!          *LWTT* IS CALLED FROM *LWVN*, *LWVD*, *LWVB*
+!
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! KND    :                     ; WEIGHTING INDEX
+! PUU    : (KLON,NUA)         ; ABSORBER AMOUNTS
+!     ==== OUTPUTS ===
+! PTT    : (KLON,NTRA)        ; TRANSMISSION FUNCTIONS
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. TRANSMISSION FUNCTION BY H2O AND UNIFORMLY MIXED GASES ARE
+!     COMPUTED USING PADE APPROXIMANTS AND HORNER'S ALGORITHM.
+!          2. TRANSMISSION BY O3 IS EVALUATED WITH MALKMUS'S BAND MODEL.
+!          3. TRANSMISSION BY H2O CONTINUUM AND AEROSOLS FOLLOW AN
+!     A SIMPLE EXPONENTIAL DECREASE WITH ABSORBER AMOUNT.
+!
+!     EXTERNALS.
+!     ----------
+!
+!          NONE
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!
+!-----------------------------------------------------------------------
+!      IMPLICIT LOGICAL (L)
+!
+!#include "yoelw.h"
+!#include "yoerad.h"
+!#include "yoerdu.h"
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NTRA     ,NUA      ,&
+            & O1H     , O2H     ,RPIALF0
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+
+!     ------------------------------------------------------------------
+!
+!*        0.1   ARGUMENTS
+!               ---------
+!
+REAL_B :: PUU(KLON,NUA), PTT(KLON,NTRA) &
+     &  ,  PGA(KLON,8,2), PGB(KLON,8,2)
+!
+!     ------------------------------------------------------------------
+!
+!*        0.2   LOCAL ARRAYS
+!               ------------
+!
+!     REAL ZXN(KLON,8),ZXD(KLON,8),ZZ(KLON,8)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZA11, ZA12, ZAERCN, ZEU, ZEU10, ZEU11, ZEU12,&
+          &ZEU13, ZODH41, ZODH42, ZODN21, ZODN22, ZPU, ZPU10, &
+          &ZPU11, ZPU12, ZPU13, ZSQ1, ZSQ2, ZSQH41, &
+          &ZSQH42, ZSQN21, ZSQN22, ZTO1, ZTO2, ZTTF11, &
+          &ZTTF12, ZUU11, ZUU12, ZUXY, ZVXY, ZX, ZXCH4, &
+          &ZXD, ZXN, ZXN2O, ZY, ZYCH4, ZYN2O, ZZ
+
+!     ------------------------------------------------------------------
+!#!DIR$ VFUNCTION SQRTHF
+!
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+!
+DO JA = 1 , 8
+  DO JL = KIDIA,KFDIA
+    ZZ      =SQRT(PUU(JL,JA))
+!    ZXD(JL,1)=PGB( JL, 1,1) + ZZ(JL, 1)*(PGB( JL, 1,2) + ZZ(JL, 1))
+!    ZXN(JL,1)=PGA( JL, 1,1) + ZZ(JL, 1)*(PGA( JL, 1,2) )
+!    PTT(JL,1)=ZXN(JL,1)/ZXD(JL,1)
+    ZXD      =PGB( JL,JA,1) + ZZ       *(PGB( JL,JA,2) + ZZ       )
+    ZXN      =PGA( JL,JA,1) + ZZ       *(PGA( JL,JA,2) )
+    PTT(JL,JA)=ZXN      /ZXD
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
+!                 ---------------------------------------------------
+!
+DO JL = KIDIA,KFDIA
+  PTT(JL, 9) = PTT(JL, 8)
+!
+!-  CONTINUUM ABSORPTION: E- AND P-TYPE
+!
+!-   13     350-500 cm-1
+!-   10     500-800 cm-1
+!-   11     800-970 + 1110-1250 cm-1
+!-   12     970-1110 cm-1
+!
+!  IF (INWCONT.EQ.0) THEN
+!- original ECMWF 16r1 coefficients      
+    ZPU   = 0.002 * PUU(JL,10)
+    ZPU10 = 112. * ZPU
+    ZPU11 = 6.25 * ZPU
+    ZPU12 = 5.00 * ZPU
+    ZPU13 = 80.0 * ZPU
+    ZEU   =  PUU(JL,11)
+    ZEU10 =  12. * ZEU
+    ZEU11 = 6.25 * ZEU
+    ZEU12 = 5.00 * ZEU
+    ZEU13 = 80.0 * ZEU
+!  ELSE IF (INWCONT.EQ.1) THEN
+!- coefficients proposed by Giorgetta and Wild
+!    ZPU10 =  0.8109 * PUU(JL,10)
+!    ZPU11 =  0.0208 * PUU(JL,10)
+!    ZPU12 =  0.0106 * PUU(JL,10)
+!    ZPU13 = 12.331  * PUU(JL,10)
+!    ZEU10 =   47.7  * PUU(JL,11)
+!    ZEU11 =    8.31 * PUU(JL,11)
+!    ZEU12 =    5.87 * PUU(JL,11)
+!    ZEU13 =   209.  * PUU(JL,11)
+!  ELSE IF (INWCONT.EQ.2) THEN
+!- coefficients adjusted from Clough CKD22 
+!c   ZPU10 =  0.00488 * 81.63 * PUU(JL,10)
+!c   ZPU11 =  0.00022 *  8.43 * PUU(JL,10)
+!c   ZPU12 =  0.00001 *  5.08 * PUU(JL,10)
+!c   ZPU13 =  0.03638 * 721.8 * PUU(JL,10)
+!    ZPU10 =  0.3981  * PUU(JL,10)
+!    ZPU10 =  0.18    * PUU(JL,10)
+!    ZPU11 =  0.00127 * PUU(JL,10)
+!    ZPU12 =  0.00071 * PUU(JL,10)
+!    ZPU13 =  26.26   * PUU(JL,10)
+!         
+!!    ZEU10 =   81.63  * PUU(JL,11)
+!    ZEU10 =   18.    * PUU(JL,11)
+!    ZEU11 =    8.43  * PUU(JL,11)
+!    ZEU12 =    5.08  * PUU(JL,11)
+!    ZEU13 =   721.8  * PUU(JL,11)
+!  END IF   
+!
+!  IF (LNOCONT) THEN
+!    ZPU10 = 0. 
+!    ZPU11 = 0.
+!    ZPU12 = 0. 
+!    ZPU13 = 0. 
+!
+!    ZEU10 = 0. 
+!    ZEU11 = 0. 
+!    ZEU12 = 0. 
+!    ZEU13 = 0. 
+!  END IF
+!
+!-  OZONE ABSORPTION
+!
+  ZX = PUU(JL,12)
+  ZY = PUU(JL,13)
+  ZUXY = 4. * ZX * ZX / (RPIALF0 * ZY)
+  ZSQ1 = SQRT(1. + O1H * ZUXY ) - 1.
+  ZSQ2 = SQRT(1. + O2H * ZUXY ) - 1.
+  ZVXY = RPIALF0 * ZY / (2. * ZX)
+  ZAERCN = PUU(JL,17) + ZEU12 + ZPU12
+  ZTO1 = EXP( - ZVXY * ZSQ1 - ZAERCN )
+  ZTO2 = EXP( - ZVXY * ZSQ2 - ZAERCN )
+      
+!  IF (LNOOZON) THEN
+!    ZTO1 = EXP( - ZAERCN )
+!    ZTO2 = EXP( - ZAERCN )
+!  END IF
+!
+!-- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+!
+!* CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZXCH4 = PUU(JL,19)
+  ZYCH4 = PUU(JL,20)
+  ZUXY = 4. * ZXCH4*ZXCH4/(0.103*ZYCH4)
+  ZSQH41 = SQRT(1. + 33.7 * ZUXY) - 1.
+  ZVXY = 0.103 * ZYCH4 / (2. * ZXCH4)
+  ZODH41 = ZVXY * ZSQH41
+!
+!* N2O IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZXN2O = PUU(JL,21)
+  ZYN2O = PUU(JL,22)
+  ZUXY = 4. * ZXN2O*ZXN2O/(0.416*ZYN2O)
+  ZSQN21 = SQRT(1. + 21.3 * ZUXY) - 1.
+  ZVXY = 0.416 * ZYN2O / (2. * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+!  
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+!
+  ZUXY = 4. * ZXCH4*ZXCH4/(0.113*ZYCH4)
+  ZSQH42 = SQRT(1. + 400. * ZUXY) - 1.
+  ZVXY = 0.113 * ZYCH4 / (2. * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+!
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+!
+  ZUXY = 4. * ZXN2O*ZXN2O/(0.197*ZYN2O)
+  ZSQN22 = SQRT(1. + 2000. * ZUXY) - 1.
+  ZVXY = 0.197 * ZYN2O / (2. * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+!
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZA11 = 2. * PUU(JL,23) * 4.404E+05
+  ZTTF11 = 1. - ZA11 * 0.003225
+!
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZA12 = 2. * PUU(JL,24) * 6.7435E+05
+  ZTTF12 = 1. - ZA12 * 0.003225
+!
+      
+!  IF (LNOUMG) THEN
+!    PTT(JL,7) = 1.
+!    PTT(JL,8) = 1.
+!    PTT(JL,9) = 1.
+!    ZODH41 = 0.
+!    ZODH42 = 0.
+!    ZODN21 = 0.
+!    ZODN22 = 0.
+!    ZTTF11 = 1.
+!    ZTTF12 = 1.
+!  END IF  
+       
+  ZUU11 = - PUU(JL,15) - ZEU10 - ZPU10
+  ZUU12 = - PUU(JL,16) - ZEU11 - ZPU11 - ZODH41 - ZODN21
+  PTT(JL,10) = EXP( - PUU(JL,14) )
+  PTT(JL,11) = EXP( ZUU11 )
+  PTT(JL,12) = EXP( ZUU12 ) * ZTTF11 * ZTTF12
+  PTT(JL,13) = 0.7554 * ZTO1 + 0.2446 * ZTO2
+  PTT(JL,14) = PTT(JL,10) * EXP( - ZEU13 - ZPU13 )
+  PTT(JL,15) = EXP ( - PUU(JL,14) - ZODH42 - ZODN22 )
+END DO
+!
+RETURN
+END SUBROUTINE OLWTT
Index: LMDZ5/branches/testing/libf/phymar/olwttm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwttm.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwttm.F90	(revision 2160)
@@ -0,0 +1,267 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE OLWTTM(KIDIA,KFDIA,KLON, PGA,PGB,PUU1,PUU2, PTT)
+!
+!**** *LWTT* - LONGWAVE TRANSMISSION FUNCTIONS
+!
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+!     INTERVALS.
+!
+!**   INTERFACE.
+!     ----------
+!          *LWTT* IS CALLED FROM *LWVN*, *LWVD*, *LWVB*
+!
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PGA, PGB                     ; PADE APPROXIMANTS
+! PUU1   : (KLON,NUA)         ; ABSORBER AMOUNTS FROM TOP TO LEVEL 1
+! PUU2   : (KLON,NUA)         ; ABSORBER AMOUNTS FROM TOP TO LEVEL 2  
+!     ==== OUTPUTS ===
+! PTT    : (KLON,NTRA)        ; TRANSMISSION FUNCTIONS
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. TRANSMISSION FUNCTION BY H2O AND UNIFORMLY MIXED GASES ARE
+!     COMPUTED USING PADE APPROXIMANTS AND HORNER'S ALGORITHM.
+!          2. TRANSMISSION BY O3 IS EVALUATED WITH MALKMUS'S BAND MODEL.
+!          3. TRANSMISSION BY H2O CONTINUUM AND AEROSOLS FOLLOW AN
+!     A SIMPLE EXPONENTIAL DECREASE WITH ABSORBER AMOUNT.
+!
+!     EXTERNALS.
+!     ----------
+!
+!          NONE
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!
+!-----------------------------------------------------------------------
+!      IMPLICIT LOGICAL (L)
+!
+!#include "yoelw.h"
+!#include "yoerad.h"
+!#include "yoerdu.h"
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NTRA     ,NUA      ,&
+            & O1H     , O2H     ,RPIALF0
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+
+!     ------------------------------------------------------------------
+!
+!*        0.1   ARGUMENTS
+!               ---------
+!
+REAL_B :: PUU1(KLON,NUA), PUU2(KLON,NUA), PTT(KLON,NTRA) &
+     &  ,  PGA(KLON,8,2), PGB(KLON,8,2)
+!
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZA11, ZA12, ZAERCN, ZEU, ZEU10, ZEU11, ZEU12,&
+          &ZEU13, ZODH41, ZODH42, ZODN21, ZODN22, ZPU, &
+          &ZPU10, ZPU11, ZPU12, ZPU13, ZSQ1, ZSQ2, ZSQH41, &
+          &ZSQH42, ZSQN21, ZSQN22, ZTO1, ZTO2, ZTTF11, &
+          &ZTTF12, ZUU11, ZUU12, ZUXY, ZVXY, ZX, ZXCH4, &
+          &ZXD, ZXN, ZXN2O, ZY, ZYCH4, ZYN2O, ZZ
+
+!     ------------------------------------------------------------------
+!#!DIR$ VFUNCTION SQRTHF
+!
+!
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+!
+DO JA = 1 , 8
+  DO JL = KIDIA,KFDIA
+    ZZ      =SQRT(PUU1(JL,JA) - PUU2(JL,JA))
+    ZXD      =PGB( JL,JA,1) + ZZ       *(PGB( JL,JA,2) + ZZ       )
+    ZXN      =PGA( JL,JA,1) + ZZ       *(PGA( JL,JA,2) )
+    PTT(JL,JA)=ZXN      /ZXD
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
+!                 ---------------------------------------------------
+!
+DO JL = KIDIA,KFDIA
+  PTT(JL, 9) = PTT(JL, 8)
+!
+!-  CONTINUUM ABSORPTION: E- AND P-TYPE
+!
+!   10: interval  500- 800
+!   11: interval  800- 970 + 1110-1250
+!   12: interval  970-1110
+!   13: interval  350- 500
+!
+!  IF (INWCONT.EQ.0) THEN!
+!- original ECMWF 16r1 coefficients      
+    ZPU   = 0.002 * (PUU1(JL,10) - PUU2(JL,10))
+    ZPU10 = 112. * ZPU
+    ZPU11 = 6.25 * ZPU
+    ZPU12 = 5.00 * ZPU
+    ZPU13 = 80.0 * ZPU
+    ZEU   = (PUU1(JL,11) - PUU2(JL,11))
+    ZEU10 =  12. * ZEU
+    ZEU11 = 6.25 * ZEU
+    ZEU12 = 5.00 * ZEU
+    ZEU13 = 80.0 * ZEU
+!  ELSE IF (INWCONT.EQ.1) THEN  
+!- coefficients proposed by Giorgetta and Wild
+!    ZPU   = (PUU1(JL,10) - PUU2(JL,10))
+!    ZPU10 =  0.8109 * ZPU
+!    ZPU11 =  0.0208 * ZPU
+!    ZPU12 =  0.0106 * ZPU
+!    ZPU13 = 12.331  * ZPU
+!    ZEU   = (PUU1(JL,11) - PUU2(JL,11))
+!    ZEU10 =   47.7  * ZEU
+!    ZEU11 =    8.31 * ZEU
+!    ZEU12 =    5.87 * ZEU
+!    ZEU13 =   209.  * ZEU
+!  ELSE IF (INWCONT.EQ.2) THEN
+!- coefficients adjusted from Clough CKD22 
+!    ZPU   = PUU1(JL,10) - PUU2(JL,10)
+!    ZPU10 =  0.18    * ZPU
+!    ZPU11 =  0.00127 * ZPU
+!    ZPU12 =  0.00071 * ZPU
+!    ZPU13 =  26.26   * ZPU
+!         
+!    ZEU   = PUU1(JL,11) - PUU2(JL,11)
+!    ZEU10 =    18.   * ZEU
+!    ZEU11 =    8.43  * ZEU
+!    ZEU12 =    5.08  * ZEU
+!    ZEU13 =   721.8  * ZEU
+!  END IF   
+!
+!  IF (LNOCONT) THEN
+!    ZPU10 = 0. 
+!    ZPU11 = 0.
+!    ZPU12 = 0. 
+!    ZPU13 = 0. 
+!
+!    ZEU10 = 0. 
+!    ZEU11 = 0. 
+!    ZEU12 = 0. 
+!    ZEU13 = 0. 
+!  END IF
+!
+!
+!-  OZONE ABSORPTION
+!
+  ZX = (PUU1(JL,12) - PUU2(JL,12))
+  ZY = (PUU1(JL,13) - PUU2(JL,13))
+  ZUXY = 4. * ZX * ZX / (RPIALF0 * ZY)
+  ZSQ1 = SQRT(1. + O1H * ZUXY ) - 1.
+  ZSQ2 = SQRT(1. + O2H * ZUXY ) - 1.
+  ZVXY = RPIALF0 * ZY / (2. * ZX)
+  ZAERCN = (PUU1(JL,17) -PUU2(JL,17)) + ZEU12 + ZPU12
+  ZTO1 = EXP( - ZVXY * ZSQ1 - ZAERCN )
+  ZTO2 = EXP( - ZVXY * ZSQ2 - ZAERCN )
+     
+!  IF (LNOOZON) THEN
+!    ZTO1 = EXP( - ZAERCN )
+!    ZTO2 = EXP( - ZAERCN )
+!  END IF
+!
+!-- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+!
+!* CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZXCH4 = (PUU1(JL,19) - PUU2(JL,19))
+  ZYCH4 = (PUU1(JL,20) - PUU2(JL,20))
+  ZUXY = 4. * ZXCH4*ZXCH4/(0.103*ZYCH4)
+  ZSQH41 = SQRT(1. + 33.7 * ZUXY) - 1.
+  ZVXY = 0.103 * ZYCH4 / (2. * ZXCH4)
+  ZODH41 = ZVXY * ZSQH41
+!
+!* N2O IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZXN2O = (PUU1(JL,21) - PUU2(JL,21))
+  ZYN2O = (PUU1(JL,22) - PUU2(JL,22))
+  ZUXY = 4. * ZXN2O*ZXN2O/(0.416*ZYN2O)
+  ZSQN21 = SQRT(1. + 21.3 * ZUXY) - 1.
+  ZVXY = 0.416 * ZYN2O / (2. * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+!
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+!
+  ZUXY = 4. * ZXCH4*ZXCH4/(0.113*ZYCH4)
+  ZSQH42 = SQRT(1. + 400. * ZUXY) - 1.
+  ZVXY = 0.113 * ZYCH4 / (2. * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+!
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+!
+  ZUXY = 4. * ZXN2O*ZXN2O/(0.197*ZYN2O)
+  ZSQN22 = SQRT(1. + 2000. * ZUXY) - 1.
+  ZVXY = 0.197 * ZYN2O / (2. * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+!
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZA11 = (PUU1(JL,23) - PUU2(JL,23)) * 4.404E+05
+  ZTTF11 = 1. - ZA11 * 0.003225
+!
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+!
+  ZA12 = (PUU1(JL,24) - PUU2(JL,24)) * 6.7435E+05
+  ZTTF12 = 1. - ZA12 * 0.003225
+!
+      
+!  IF (LNOUMG) THEN
+!    PTT(JL,7) = 1.
+!    PTT(JL,8) = 1.
+!    PTT(JL,9) = 1.
+!    ZODH41 = 0.
+!    ZODH42 = 0.
+!    ZODN21 = 0.
+!    ZODN22 = 0.
+!    ZTTF11 = 1.
+!    ZTTF12 = 1.
+!  END IF  
+       
+  ZUU11 = - (PUU1(JL,15) - PUU2(JL,15)) - ZEU10 - ZPU10
+  ZUU12 = - (PUU1(JL,16) - PUU2(JL,16)) - ZEU11 - ZPU11 - &
+  &         ZODH41 - ZODN21
+  PTT(JL,10) = EXP( - (PUU1(JL,14)- PUU2(JL,14)) )
+  PTT(JL,11) = EXP( ZUU11 )
+  PTT(JL,12) = EXP( ZUU12 ) * ZTTF11 * ZTTF12
+  PTT(JL,13) = 0.7554 * ZTO1 + 0.2446 * ZTO2
+  PTT(JL,14) = PTT(JL,10) * EXP( - ZEU13 - ZPU13 )
+  PTT(JL,15) = EXP ( - (PUU1(JL,14) - PUU2(JL,14)) - ZODH42-ZODN22 )
+END DO
+!
+RETURN
+END SUBROUTINE OLWTTM
Index: LMDZ5/branches/testing/libf/phymar/olwu.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwu.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwu.F90	(revision 2160)
@@ -0,0 +1,343 @@
+SUBROUTINE OLWU ( KIDIA, KFDIA, KLON, KLEV &
+     &  ,  PAER, PCCO2, PDP, PAPH, PQOF, PT, PVIEW, PWV &
+     &  ,  PABCU     )
+!
+!**** *LWU* - LONGWAVE EFFECTIVE ABSORBER AMOUNTS
+!
+!     PURPOSE.
+!     --------
+!           COMPUTES ABSORBER AMOUNTS INCLUDING PRESSURE AND
+!           TEMPERATURE EFFECTS
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PAPH   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PQOF   : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PT     : (KLON,KLEV)       ; TEMPERATURE
+! PWV    : (KLON,KLEV)       ; SPECIFIC HUMIDITY PA/PA
+! PVIEW  : (KLON)            ; COSECANT OF VIEWING ANGLE
+!     ==== OUTPUTS ===
+! PABCU  :(KLON,NUA,3*KLEV+1); EFFECTIVE ABSORBER AMOUNTS
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+!     ABSORBERS.
+!
+!     EXTERNALS.
+!     ----------
+!
+!          NONE
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RG
+USE YOESW    , ONLY : RAER
+USE YOEOLW   , ONLY : NISP     ,NUA      ,NG1      ,NG1P1    ,&
+            &AT       ,BT       ,RT1      ,TREF     ,OCT      ,&
+            &RVGCO2   ,RVGH2O   ,RVGO3
+USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
+USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
+USE YOEDBUG  , ONLY : LDEBUG
+
+
+IMPLICIT NONE
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!     DUMMY REAL SCALARS
+REAL_B :: PCCO2
+
+CHARACTER*3 CVAR
+
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+REAL_B :: PAER(KLON,6,KLEV) , PDP(KLON,KLEV) &
+     &  ,  PAPH(KLON,KLEV+1), PQOF(KLON,KLEV) &
+     &  ,  PT(KLON,KLEV), PVIEW(KLON),  PWV(KLON,KLEV)
+!
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1)
+!
+!-----------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+REAL_B :: ZABLY(KLON,7, 3*KLEV),  ZDUC(KLON, 3*KLEV) &
+     &  , ZDPM(KLON, 3*KLEV), ZUPM(KLON, 3*KLEV)
+REAL_B :: ZPHIO(KLON),ZPSC2(KLON),ZPSC3(KLON),ZPSH1(KLON) &
+     &  ,  ZPSH2(KLON),ZPSH3(KLON),ZPSH4(KLON),ZPSH5(KLON) &
+     &  ,  ZPSH6(KLON),ZPSIO(KLON),ZTCON(KLON) &
+     &  ,  ZPHM6(KLON),ZPSM6(KLON),ZPHN6(KLON),ZPSN6(KLON)
+REAL_B :: ZSSIG(KLON,3*KLEV+1), ZTAVI(KLON) &
+     &  ,  ZUAER(KLON,6), ZXOZ(KLON), ZXWV(KLON)
+!
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IAE1, IAE2, IAE3, IC, ICCC, ICP1, IG1, IJ, IJPN,&
+             &IKIP1, IKJ, IKJP, IKJPN, IKJR, IKL, IPK, JA, JAE, &
+             &JK, JKI, JKK, JL, JAE1, JAE2, JAE3, JC, JCP1, JJ, JJPN, &
+             & JKJ, JKJR, JKJP, JKIP1, JKP1, JKJPN
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZALUP, ZCAC8, ZCAH1, ZCAH2, ZCAH3, ZCAH4,&
+          &ZCAH5, ZCAH6, ZCBC8, ZCBH1, ZCBH2, ZCBH3, &
+          &ZCBH4, ZCBH5, ZCBH6, ZDIFF, ZDPMG, ZDPMP0, &
+          &ZFPPW, ZTX, ZTX2, ZU6, ZUP, ZUPMCO2, ZUPMG, &
+          &ZUPMH2O, ZUPMO3, ZZABLY
+
+!
+!-----------------------------------------------------------------------
+!
+!*         1.    INITIALIZATION
+!                --------------
+!
+!-----------------------------------------------------------------------
+!
+!
+!*         2.    PRESSURE OVER GAUSS SUB-LEVELS
+!                ------------------------------
+!
+DO JL = KIDIA,KFDIA
+  ZSSIG(JL, 1 ) = PAPH(JL,KLEV+1)
+END DO
+!
+DO JK = 1 , KLEV
+  JKJ=(JK-1)*NG1P1+1
+  JKJR = JKJ
+  JKJP = JKJ + NG1P1
+  IKL=KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZSSIG(JL,JKJP)=PAPH(JL,IKL)
+  END DO
+  DO IG1=1,NG1
+    JKJ=JKJ+1
+    DO JL = KIDIA,KFDIA
+      ZSSIG(JL,JKJ)= (ZSSIG(JL,JKJR)+ZSSIG(JL,JKJP))*0.5_JPRB &
+      &  + RT1(IG1) * (ZSSIG(JL,JKJP) - ZSSIG(JL,JKJR)) * 0.5_JPRB
+    END DO
+  END DO
+END DO
+!
+!-----------------------------------------------------------------------
+!
+!
+!*         4.    PRESSURE THICKNESS AND MEAN PRESSURE OF SUB-LAYERS
+!                --------------------------------------------------
+!
+DO JKI=1,3*KLEV
+  JKIP1=JKI+1
+  DO JL = KIDIA,KFDIA
+    ZUPM(JL,JKI)=(ZSSIG(JL,JKI)+ZSSIG(JL,JKIP1))*0.5_JPRB
+    ZDPM(JL,JKI)=(ZSSIG(JL,JKI)-ZSSIG(JL,JKIP1))/(10._JPRB*RG)
+  END DO
+END DO
+!
+DO JK = 1 , KLEV
+  JKP1=JK+1
+  IKL = KLEV+1 - JK
+  DO JL = KIDIA,KFDIA
+    ZXWV(JL) = MAX (PWV(JL,IKL) , REPSCQ )
+    ZXOZ(JL) = MAX (PQOF(JL,IKL) / PDP(JL,IKL) , REPSCO )
+  END DO
+  JKJ=(JK-1)*NG1P1+1
+  JKJPN=JKJ+NG1
+  DO JKK=JKJ,JKJPN
+    DO JL = KIDIA,KFDIA
+      ZDPMG = ZDPM(JL,JKK)
+      ZDPMP0 = ZDPMG / 101325._JPRB
+      ZUPMG =   ZUPM(JL,JKK) * ZDPMP0
+      ZUPMCO2 = ( ZUPM(JL,JKK) + RVGCO2 ) * ZDPMP0
+      ZUPMH2O = ( ZUPM(JL,JKK) + RVGH2O ) * ZDPMP0
+      ZUPMO3  = ( ZUPM(JL,JKK) + RVGO3  ) * ZDPMP0
+      ZDUC(JL,JKK) = ZDPMG
+      ZABLY(JL,6,JKK) = ZXOZ(JL) * ZDPMG
+      ZABLY(JL,7,JKK) = ZXOZ(JL) * ZUPMO3
+      ZU6 = ZXWV(JL) * ZUPMG
+      ZFPPW = 1.6078_JPRB * ZXWV(JL) / (1._JPRB+0.608_JPRB*ZXWV(JL))
+      ZABLY(JL,1,JKK) = ZXWV(JL) * ZUPMH2O
+      ZABLY(JL,5,JKK) = ZU6 * ZFPPW
+      ZABLY(JL,4,JKK) = ZU6 * (1._JPRB-ZFPPW)
+      ZABLY(JL,3,JKK) = PCCO2 * ZUPMCO2
+      ZABLY(JL,2,JKK) = PCCO2 * ZDPMG
+    END DO
+  END DO
+END DO
+!
+!-----------------------------------------------------------------------
+!
+!
+!*         5.    CUMULATIVE ABSORBER AMOUNTS FROM TOP OF ATMOSPHERE
+!                --------------------------------------------------
+!
+DO JA = 1, NUA
+  DO JL = KIDIA,KFDIA
+    PABCU(JL,JA,3*KLEV+1) = 0.
+  END DO
+END DO
+!
+
+DO JK = 1 , KLEV
+  JJ=(JK-1)*NG1P1+1
+  JJPN=JJ+NG1
+  IKL=KLEV+1-JK
+!
+!
+!*         5.1  CUMULATIVE AEROSOL AMOUNTS FROM TOP OF ATMOSPHERE
+!               --------------------------------------------------
+! --            NB: 'PAER' AEROSOLS ARE ENTERED FROM TOP TO BOTTOM
+!
+  JAE1=3*KLEV+1-JJ
+  JAE2=3*KLEV+1-(JJ+1)
+  JAE3=3*KLEV+1-JJPN
+  DO JAE=1,5
+    DO JL = KIDIA,KFDIA
+      ZUAER(JL,JAE) = (RAER(JAE,1)*PAER(JL, 1, JK ) &
+      &      +RAER(JAE,2)*PAER(JL, 2, JK)+RAER(JAE,3)*PAER(JL, 3, JK) &
+      &      +RAER(JAE,4)*PAER(JL, 4, JK)+RAER(JAE,5)*PAER(JL, 5, JK)) &
+      &      /(ZDUC(JL,JAE1)+ZDUC(JL,JAE2)+ZDUC(JL,JAE3))
+    END DO
+  END DO
+!
+!
+!*         5.2  INTRODUCES TEMPERATURE EFFECTS ON ABSORBER AMOUNTS
+!               --------------------------------------------------
+! --            NB: 'PT' TEMPERATURES ARE ENTERED FROM TOP TO BOTTOM
+!
+  DO JL = KIDIA,KFDIA
+  
+    ZTAVI(JL)=PT(JL,JK)
+    ZTCON(JL)=EXP(6.08_JPRB*(296._JPRB/ZTAVI(JL)-1._JPRB))
+    ZTX=ZTAVI(JL)-TREF
+    ZTX2=ZTX*ZTX
+    ZZABLY = ZABLY(JL,3,JAE1)+ZABLY(JL,3,JAE2)+ZABLY(JL,3,JAE3)
+    ZUP=MIN( MAX( 0.5_JPRB*R10E*LOG( ZZABLY ) + 5._JPRB, 0._JPRB), 6.0_JPRB)
+    ZCAH1=AT(1,1)+ZUP*(AT(1,2)+ZUP*(AT(1,3)))
+    ZCBH1=BT(1,1)+ZUP*(BT(1,2)+ZUP*(BT(1,3)))
+    ZPSH1(JL)=EXP( ZCAH1 * ZTX + ZCBH1 * ZTX2 )
+    ZCAH2=AT(2,1)+ZUP*(AT(2,2)+ZUP*(AT(2,3)))
+    ZCBH2=BT(2,1)+ZUP*(BT(2,2)+ZUP*(BT(2,3)))
+    ZPSH2(JL)=EXP( ZCAH2 * ZTX + ZCBH2 * ZTX2 )
+    ZCAH3=AT(3,1)+ZUP*(AT(3,2)+ZUP*(AT(3,3)))
+    ZCBH3=BT(3,1)+ZUP*(BT(3,2)+ZUP*(BT(3,3)))
+    ZPSH3(JL)=EXP( ZCAH3 * ZTX + ZCBH3 * ZTX2 )
+    ZCAH4=AT(4,1)+ZUP*(AT(4,2)+ZUP*(AT(4,3)))
+    ZCBH4=BT(4,1)+ZUP*(BT(4,2)+ZUP*(BT(4,3)))
+    ZPSH4(JL)=EXP( ZCAH4 * ZTX + ZCBH4 * ZTX2 )
+    ZCAH5=AT(5,1)+ZUP*(AT(5,2)+ZUP*(AT(5,3)))
+    ZCBH5=BT(5,1)+ZUP*(BT(5,2)+ZUP*(BT(5,3)))
+    ZPSH5(JL)=EXP( ZCAH5 * ZTX + ZCBH5 * ZTX2 )
+    ZCAH6=AT(6,1)+ZUP*(AT(6,2)+ZUP*(AT(6,3)))
+    ZCBH6=BT(6,1)+ZUP*(BT(6,2)+ZUP*(BT(6,3)))
+    ZPSH6(JL)=EXP( ZCAH6 * ZTX + ZCBH6 * ZTX2 )
+    ZPHM6(JL)=EXP(-5.81E-4_JPRB * ZTX - 1.13E-6 * ZTX2 )
+    ZPSM6(JL)=EXP(-5.57E-4_JPRB * ZTX - 3.30E-6 * ZTX2 )
+    ZPHN6(JL)=EXP(-3.46E-5_JPRB * ZTX + 2.05E-7 * ZTX2 )
+    ZPSN6(JL)=EXP( 3.70E-3_JPRB * ZTX - 2.30E-6 * ZTX2 )
+  END DO
+  
+!
+  DO JL = KIDIA,KFDIA
+  
+    ZTAVI(JL)=PT(JL,JK)
+    ZTX=ZTAVI(JL)-TREF
+    ZTX2=ZTX*ZTX
+    ZZABLY = ZABLY(JL,5,JAE1)+ZABLY(JL,5,JAE2)+ZABLY(JL,5,JAE3)
+    ZALUP = R10E * LOG ( ZZABLY )
+    ZUP   = MAX( 0.0_JPRB , 5.0_JPRB + 0.5_JPRB * ZALUP )
+    ZPSC2(JL) = (ZTAVI(JL)/TREF) ** ZUP
+    ZCAC8=AT(8,1)+ZUP*(AT(8,2)+ZUP*(AT(8,3)))
+    ZCBC8=BT(8,1)+ZUP*(BT(8,2)+ZUP*(BT(8,3)))
+    ZPSC3(JL)=EXP( ZCAC8 * ZTX + ZCBC8 * ZTX2 )
+    ZPHIO(JL) = EXP( OCT(1) * ZTX + OCT(2) * ZTX2)
+    ZPSIO(JL) = EXP( 2.* (OCT(3)*ZTX+OCT(4)*ZTX2))
+  END DO
+  
+
+  ICCC=2
+  
+  DO JKK=JJ,JJPN
+    JC=3*KLEV+1-JKK
+    JCP1=JC+1
+    
+    ICCC=ICCC+1
+    
+    DO JL = KIDIA,KFDIA
+      ZDIFF = PVIEW(JL)
+      PABCU(JL,10,JC)=PABCU(JL,10,JCP1)+ ZABLY(JL,4,JC)          *ZDIFF
+      PABCU(JL,11,JC)=PABCU(JL,11,JCP1)+ ZABLY(JL,5,JC)*ZTCON(JL)*ZDIFF
+!
+      PABCU(JL,12,JC)=PABCU(JL,12,JCP1)+ ZABLY(JL,6,JC)*ZPHIO(JL)*ZDIFF
+      PABCU(JL,13,JC)=PABCU(JL,13,JCP1)+ ZABLY(JL,7,JC)*ZPSIO(JL)*ZDIFF
+!
+      PABCU(JL, 7,JC)=PABCU(JL, 7,JCP1)+ ZABLY(JL,3,JC)*ZPSC2(JL)*ZDIFF
+      PABCU(JL, 8,JC)=PABCU(JL, 8,JCP1)+ ZABLY(JL,3,JC)*ZPSC3(JL)*ZDIFF
+      PABCU(JL, 9,JC)=PABCU(JL, 9,JCP1)+ ZABLY(JL,3,JC)*ZPSC3(JL)*ZDIFF
+!
+      PABCU(JL, 1,JC)=PABCU(JL, 1,JCP1)+ ZABLY(JL,1,JC)*ZPSH1(JL)*ZDIFF
+      PABCU(JL, 2,JC)=PABCU(JL, 2,JCP1)+ ZABLY(JL,1,JC)*ZPSH2(JL)*ZDIFF
+      PABCU(JL, 3,JC)=PABCU(JL, 3,JCP1)+ ZABLY(JL,1,JC)*ZPSH5(JL)*ZDIFF
+      PABCU(JL, 4,JC)=PABCU(JL, 4,JCP1)+ ZABLY(JL,1,JC)*ZPSH3(JL)*ZDIFF
+      PABCU(JL, 5,JC)=PABCU(JL, 5,JCP1)+ ZABLY(JL,1,JC)*ZPSH4(JL)*ZDIFF
+      PABCU(JL, 6,JC)=PABCU(JL, 6,JCP1)+ ZABLY(JL,1,JC)*ZPSH6(JL)*ZDIFF
+!
+      PABCU(JL,14,JC)=PABCU(JL,14,JCP1)+ ZUAER(JL,1) *ZDUC(JL,JC)*ZDIFF
+      PABCU(JL,15,JC)=PABCU(JL,15,JCP1)+ ZUAER(JL,2) *ZDUC(JL,JC)*ZDIFF
+      PABCU(JL,16,JC)=PABCU(JL,16,JCP1)+ ZUAER(JL,3) *ZDUC(JL,JC)*ZDIFF
+      PABCU(JL,17,JC)=PABCU(JL,17,JCP1)+ ZUAER(JL,4) *ZDUC(JL,JC)*ZDIFF
+      PABCU(JL,18,JC)=PABCU(JL,18,JCP1)+ ZUAER(JL,5) *ZDUC(JL,JC)*ZDIFF
+! 
+      PABCU(JL,19,JC)=PABCU(JL,19,JCP1) &
+      &              +ZABLY(JL,2,JC)*RCH4/PCCO2*ZPHM6(JL)*ZDIFF
+      PABCU(JL,20,JC)=PABCU(JL,20,JCP1) &
+      &              +ZABLY(JL,3,JC)*RCH4/PCCO2*ZPSM6(JL)*ZDIFF
+      PABCU(JL,21,JC)=PABCU(JL,21,JCP1) &
+      &              +ZABLY(JL,2,JC)*RN2O/PCCO2*ZPHN6(JL)*ZDIFF
+      PABCU(JL,22,JC)=PABCU(JL,22,JCP1) &
+      &              +ZABLY(JL,3,JC)*RN2O/PCCO2*ZPSN6(JL)*ZDIFF
+!
+      PABCU(JL,23,JC)=PABCU(JL,23,JCP1) &
+      &               +ZABLY(JL,2,JC)*RCFC11/PCCO2       *ZDIFF
+      PABCU(JL,24,JC)=PABCU(JL,24,JCP1) &
+      &               +ZABLY(JL,2,JC)*RCFC12/PCCO2       *ZDIFF
+      
+    END DO
+  END DO
+!
+END DO
+
+!
+RETURN
+END SUBROUTINE OLWU
Index: LMDZ5/branches/testing/libf/phymar/olwv.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwv.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwv.F90	(revision 2160)
@@ -0,0 +1,174 @@
+SUBROUTINE OLWV ( KIDIA,KFDIA,KLON,KLEV &
+     &  , KUAER,KTRAER &
+     &  , PABCU,PB,PBINT,PBSUIN,PBSUR,PBTOP,PDBSL,PEMIS &
+     &  , PGA,PGB,PGASUR,PGBSUR,PGATOP,PGBTOP &
+     &  , PCNTRB,PCOLC,PFLUC                 )
+!
+!**** *LWV*   - LONGWAVE RADIATION, VERTICAL INTEGRATION
+!
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION TO GIVE LONGWAVE
+!           FLUXES OR RADIANCES
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PB     : (KLON,NISP,KLEV+1); SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+! PBINT  : (KLON,KLEV+1)     ; HALF-LEVEL PLANCK FUNCTIONS
+! PBSUIN : (KLON)            ; SURFACE PLANCK FUNCTION
+! PBSUR  : (KLON,NISP)       ; SURFACE SPECTRAL PLANCK FUNCTION
+! PBTOP  : (KLON,NISP)       ; T.O.A. SPECTRAL PLANCK FUNCTION
+! PDBSL  : (KLON,KLEV*2)     ; SUB-LAYER PLANCK FUNCTION GRADIENT
+! PEMIS  : (KLON)            ; SURFACE EMISSIVITY
+! PGA, PGB                   ; PADE APPROXIMANTS
+! PGASUR, PGBSUR             ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP             ; T.O.A. PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PFLUC(KLON,2,KLEV)         ; RADIATIVE FLUXES CLEAR-SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+! PCOLC(KLON,KLEV)           ; LONG-WAVE TENDENCY CLEAR SKY
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING BETWEEN
+!     CONTRIBUTIONS BY -  THE NEARBY LAYERS
+!                      -  THE DISTANT LAYERS
+!                      -  THE BOUNDARY TERMS
+!          2. COMPUTES THE CLEAR-SKY DOWNWARD AND UPWARD EMISSIVITIES.
+!
+!     EXTERNALS.
+!     ----------
+!
+!          *LWVN*, *LWVD*, *LWVB*
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NISP     ,NIPD     ,NUA
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KTRAER
+INTEGER_M :: KUAER
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+!
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1), PB(KLON,NISP,KLEV+1) &
+     &  ,  PBINT(KLON,KLEV+1) &
+     &  ,  PBSUR(KLON,NISP), PBSUIN(KLON), PBTOP(KLON,NISP) &
+     &  ,  PDBSL(KLON,NISP,KLEV*2), PEMIS(KLON) &
+     &  ,  PGA(KLON,8,2,KLEV), PGB(KLON,8,2,KLEV) &
+     &  ,  PGASUR(KLON,8,2)  , PGBSUR(KLON,8,2) &
+     &  ,  PGATOP(KLON,8,2)  , PGBTOP(KLON,8,2)
+!
+REAL_B :: PCNTRB(KLON,KLEV+1,KLEV+1), PCOLC(KLON,KLEV) &
+     &  ,  PFLUC(KLON,2,KLEV+1)
+!
+!-----------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+!
+INTEGER_M :: ITX(KLON)
+!
+REAL_B :: ZADJD(KLON,KLEV+1), ZADJU(KLON,KLEV+1) &
+     &  ,  ZDBDT(KLON,NISP,KLEV) &
+     &  ,  ZDISD(KLON,KLEV+1), ZDISU(KLON,KLEV+1) &
+     &  ,  ZFD(KLON), ZFDN(KLON,KLEV+1), ZFU(KLON) &
+     &  ,  ZFUP(KLON,KLEV+1),ZGLAYD(KLON),ZGLAYU(KLON)
+     
+REAL_B :: ZDFNET     
+!
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JK, JL, JKL
+
+!-----------------------------------------------------------------------
+!
+!*         1.    INITIALIZATION
+!                --------------
+!
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+!
+DO JK=1,KLEV+1
+  DO JL=KIDIA,KFDIA
+    ZADJD(JL,JK)=0.
+    ZADJU(JL,JK)=0.
+    ZDISD(JL,JK)=0.
+    ZDISU(JL,JK)=0.
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+!
+!     ------------------------------------------------------------------
+!
+!*         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+!                  ---------------------------------
+!
+CALL OLWVN ( KIDIA,KFDIA,KLON,KLEV,KUAER &
+     &  , PABCU,PDBSL,PGA,PGB &
+     &  , ZADJD,ZADJU,PCNTRB,ZDBDT )
+!
+!     ------------------------------------------------------------------
+!
+!*         2.2     CONTRIBUTION FROM DISTANT LAYERS
+!                  ---------------------------------
+!
+CALL OLWVD ( KIDIA,KFDIA,KLON,KLEV,KTRAER &
+     &  , PABCU,ZDBDT,PGA,PGB &
+     &  , PCNTRB,ZDISD,ZDISU )
+!
+!     ------------------------------------------------------------------
+!
+!*         2.3     EXCHANGE WITH THE BOUNDARIES
+!                  ----------------------------
+!
+CALL OLWVB ( KIDIA,KFDIA,KLON,KLEV,KUAER &
+     &  , PABCU,ZADJD,ZADJU,PB,PBINT,PBSUIN,PBSUR,PBTOP &
+     &  , ZDISD,ZDISU,PEMIS &
+     &  , PGA,PGB,PGASUR,PGBSUR,PGATOP,PGBTOP &
+     &  , PFLUC                     )
+!
+!
+!     ------------------------------------------------------------------
+RETURN
+END SUBROUTINE OLWV
Index: LMDZ5/branches/testing/libf/phymar/olwvb.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwvb.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwvb.F90	(revision 2160)
@@ -0,0 +1,277 @@
+SUBROUTINE OLWVB ( KIDIA,KFDIA,KLON,KLEV,KUAER &
+     &  , PABCU,PADJD,PADJU,PB,PBINT,PBSUI,PBSUR,PBTOP &
+     &  , PDISD,PDISU,PEMIS &
+     &  , PGA,PGB,PGASUR,PGBSUR,PGATOP,PGBTOP &
+     &  , PFLUC )
+!
+!**** *LWVB*   - L.W., VERTICAL INTEGRATION, EXCHANGE WITH BOUNDARIES
+!
+!     PURPOSE.
+!     --------
+!           INTRODUCES THE EFFECTS OF THE BOUNDARIES IN THE VERTICAL
+!           INTEGRATION
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PADJ.. : (KLON,KLEV+1)     ; CONTRIBUTION BY ADJACENT LAYERS
+! PB     : (KLON,NISP,KLEV+1); SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+! PBINT  : (KLON,KLEV+1)     ; HALF-LEVEL PLANCK FUNCTIONS
+! PBSUI  : (KLON)            ; SURFACE PLANCK FUNCTION
+! PBSUR  : (KLON,NISP)       ; SPECTRAL SURFACE PLANCK FUNCTION
+! PBTOP  : (KLON,NISP)       ; SPECTRAL T.O.A. PLANCK FUNCTION
+! PDIS.. : (KLON,KLEV+1)     ; CONTRIBUTION BY DISTANT LAYERS
+! PEMIS  : (KLON)            ; SURFACE EMISSIVITY
+! PGA, PGB                   ; PADE APPROXIMANTS
+! PGASUR, PGBSUR             ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP             ; T.O.A. PADE APPROXIMANTS 
+!     ==== OUTPUTS ===
+! PFLUC(KLON,2,KLEV)         ; RADIATIVE FLUXES CLEAR-SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. COMPUTES THE ENERGY EXCHANGE WITH TOP AND SURFACE OF THE
+!     ATMOSPHERE
+!          2. COMPUTES THE COOLING-TO-SPACE AND HEATING-FROM-GROUND
+!     TERMS FOR THE APPROXIMATE COOLING RATE ABOVE 10 HPA
+!          3. ADDS UP ALL CONTRIBUTIONS TO GET THE CLEAR-SKY FLUXES
+!
+!     EXTERNALS.
+!     ----------
+!
+!          *LWTT*
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NISP     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KUAER
+
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+!
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1) &
+     &  ,  PADJD(KLON,KLEV+1), PADJU(KLON,KLEV+1) &
+     &  ,  PB(KLON,NISP,KLEV+1), PBINT(KLON,KLEV+1) &
+     &  ,  PBSUR(KLON,NISP), PBSUI(KLON), PBTOP(KLON,NISP) &
+     &  ,  PDISD(KLON,KLEV+1), PDISU(KLON,KLEV+1) &
+     &  ,  PEMIS(KLON) &
+     &  ,  PGA(KLON,8,2,KLEV), PGB(KLON,8,2,KLEV) &
+     &  ,  PGASUR(KLON,8,2), PGBSUR(KLON,8,2) &
+     &  ,  PGATOP(KLON,8,2), PGBTOP(KLON,8,2)
+!
+REAL_B :: PFLUC(KLON,2,KLEV+1) 
+!
+!-----------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+!
+INTEGER_M :: ITX(KLON)
+!
+REAL_B :: ZBGND(KLON), ZFD(KLON), ZFDN(KLON,KLEV+1) &
+     &  ,  ZFN10(KLON), ZFU(KLON), ZFUP(KLON,KLEV+1) &
+     &  ,  ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA) &
+     &  ,  ZUU(KLON,NUA) , ZCNSOL(KLON), ZCNTOP(KLON)
+!
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IN, JA, JK, JL, IND1, IND2, IND3, IND4, JLIM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZCNTOP1, ZCNTOP2, ZCNTOP3, ZCNTOP4, ZCNTOP5, ZCNTOP6
+
+!-----------------------------------------------------------------------
+!
+!*         1.    INITIALIZATION
+!                --------------
+!
+!
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+!
+DO JA=1,NTRA
+  DO JL=KIDIA,KFDIA
+    ZTT (JL,JA)=1.0
+    ZTT1(JL,JA)=1.0
+    ZTT2(JL,JA)=1.0
+  END DO
+END DO
+!
+DO JA=1,NUA
+  DO JL=KIDIA,KFDIA
+    ZUU(JL,JA)=1.0
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+!
+IND1=0
+IND3=0
+IND4=1
+IND2=1
+!
+!
+!*         2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE
+!                  -----------------------------------
+!
+DO JK = 1 , KLEV
+  IN=(JK-1)*NG1P1+1
+!
+  DO JA=1,KUAER
+    DO JL=KIDIA,KFDIA
+      ZUU(JL,JA)=PABCU(JL,JA,IN)
+    END DO
+  END DO
+!
+!
+  CALL LWTT ( KIDIA,KFDIA,KLON &
+     &          , PGATOP(1,1,1), PGBTOP(1,1,1), ZUU, ZTT )
+!
+  DO JL = KIDIA,KFDIA
+    ZCNTOP(JL)=PBTOP(JL,1)*ZTT(JL,1)          *ZTT(JL,10) &
+    &      +PBTOP(JL,2)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11) &
+    &      +PBTOP(JL,3)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12) &
+    &      +PBTOP(JL,4)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13) &
+    &      +PBTOP(JL,5)*ZTT(JL,3)          *ZTT(JL,14) &
+    &      +PBTOP(JL,6)*ZTT(JL,6)          *ZTT(JL,15)
+    ZFD(JL)=ZCNTOP(JL)-PBINT(JL,JK)-PDISD(JL,JK)-PADJD(JL,JK)
+    ZFDN(JL,JK)=ZFD(JL)
+    PFLUC(JL,2,JK)=ZFD(JL)
+  END DO
+!
+END DO
+!
+JK = KLEV+1
+IN=(JK-1)*NG1P1+1
+!
+DO JL = KIDIA,KFDIA
+  ZCNTOP(JL)= PBTOP(JL,1) &
+  &   + PBTOP(JL,2) &
+  &   + PBTOP(JL,3) &
+  &   + PBTOP(JL,4) &
+  &   + PBTOP(JL,5) &
+  &   + PBTOP(JL,6)
+  ZFD(JL)=ZCNTOP(JL)-PBINT(JL,JK)-PDISD(JL,JK)-PADJD(JL,JK)
+  ZFDN(JL,JK)=ZFD(JL)
+  PFLUC(JL,2,JK)=ZFD(JL)
+END DO
+!
+!*         2.4     COOLING-TO-SPACE OF LAYERS ABOVE 10 HPA
+!                  ---------------------------------------
+!
+!
+!*         2.4.1   INITIALIZATION
+!                  --------------
+!
+!
+!*         2.5     EXCHANGE WITH LOWER LIMIT
+!                  -------------------------
+!
+DO JL = KIDIA,KFDIA
+  ZBGND(JL)=PBSUI(JL)*PEMIS(JL)-(1.-PEMIS(JL)) &
+  &               *PFLUC(JL,2,1)-PBINT(JL,1)
+END DO
+!
+JK = 1
+IN=(JK-1)*NG1P1+1
+!
+DO JL = KIDIA,KFDIA
+  ZCNSOL(JL)=PBSUR(JL,1) &
+  & +PBSUR(JL,2) &
+  & +PBSUR(JL,3) &
+  & +PBSUR(JL,4) &
+  & +PBSUR(JL,5) &
+  & +PBSUR(JL,6)
+  ZCNSOL(JL)=ZCNSOL(JL)*ZBGND(JL)/PBSUI(JL)
+  ZFU(JL)=ZCNSOL(JL)+PBINT(JL,JK)-PDISU(JL,JK)-PADJU(JL,JK)
+  ZFUP(JL,JK)=ZFU(JL)
+  PFLUC(JL,1,JK)=ZFU(JL)
+END DO
+!
+DO JK = 2 , KLEV+1
+  IN=(JK-1)*NG1P1+1
+!
+!
+  DO JA=1,KUAER
+    DO JL=KIDIA,KFDIA
+      ZUU(JL,JA)=PABCU(JL,JA,1)-PABCU(JL,JA,IN)
+    END DO
+  END DO
+!
+!
+  CALL LWTT ( KIDIA,KFDIA,KLON &
+     &          , PGASUR(1,1,1), PGBSUR(1,1,1), ZUU, ZTT )
+!
+  DO JL = KIDIA,KFDIA
+    ZCNSOL(JL)=PBSUR(JL,1)*ZTT(JL,1)          *ZTT(JL,10) &
+    &      +PBSUR(JL,2)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11) &
+    &      +PBSUR(JL,3)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12) &
+    &      +PBSUR(JL,4)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13) &
+    &      +PBSUR(JL,5)*ZTT(JL,3)          *ZTT(JL,14) &
+    &      +PBSUR(JL,6)*ZTT(JL,6)          *ZTT(JL,15)
+    ZCNSOL(JL)=ZCNSOL(JL)*ZBGND(JL)/PBSUI(JL)
+    ZFU(JL)=ZCNSOL(JL)+PBINT(JL,JK)-PDISU(JL,JK)-PADJU(JL,JK)
+    ZFUP(JL,JK)=ZFU(JL)
+    PFLUC(JL,1,JK)=ZFU(JL)
+  END DO
+!
+!
+END DO
+!
+!
+!
+!*         2.7     CLEAR-SKY FLUXES
+!                  ----------------
+!
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFLUC(JL,1,JK) = ZFUP(JL,JK)
+    PFLUC(JL,2,JK) = ZFDN(JL,JK)
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+RETURN
+END SUBROUTINE OLWVB
Index: LMDZ5/branches/testing/libf/phymar/olwvd.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwvd.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwvd.F90	(revision 2160)
@@ -0,0 +1,275 @@
+SUBROUTINE OLWVD ( KIDIA,KFDIA,KLON,KLEV, KTRAER &
+     &  , PABCU,PDBDT &
+     &  , PGA,PGB &
+     &  , PCNTRB,PDISD,PDISU )
+!
+!**** *LWVD*   - L.W., VERTICAL INTEGRATION, DISTANT LAYERS
+!
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION ON THE DISTANT LAYERS
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PDBDT  : (KLON,KLEV)       ; LAYER PLANCK FUNCTION GRADIENT
+! PGA, PGB                     ; PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PDIS.. : (KLON,KLEV+1)     ; CONTRIBUTION BY DISTANT LAYERS
+! PCNTRB : (KLON,KLEV+1,KLEV+1); ENERGY EXCHANGE MATRIX
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+!     CONTRIBUTIONS OF THE DISTANT LAYERS USING TRAPEZOIDAL RULE
+!
+!     EXTERNALS.
+!     ----------
+!
+!          *LWTT*
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NISP     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KTRAER
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+!
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1) &
+     &  ,  PDBDT(KLON,NISP,KLEV) &
+     &  , PGA(KLON,8,2,KLEV) , PGB(KLON,8,2,KLEV)
+!
+REAL_B :: PCNTRB(KLON,KLEV+1,KLEV+1) &
+     &  ,  PDISD(KLON,KLEV+1), PDISU(KLON,KLEV+1)
+!
+!-----------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+!
+INTEGER_M :: ITX(KLON)
+!
+REAL_B :: ZGLAYD(KLON),ZGLAYU(KLON) &
+     &  ,  ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)
+!
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IJKL, IKD1, IKD2, IKJ, IKJP1, IKM1, IKN,&
+             &IKP1, IKU1, IKU2, ITT, JA, JK, JKJ, JL, JLK, &
+             &IND1, IND2, IND3, IND4
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZWW, ZWW1, ZWW2, ZWW3, ZWW4, ZWW5, ZWW6, ZDZXDG, ZDZXMG
+
+!-----------------------------------------------------------------------
+!
+!*         1.    INITIALIZATION
+!                --------------
+!
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+!
+DO JK = 1, KLEV+1
+  DO JL = KIDIA,KFDIA
+    PDISD(JL,JK) = 0.
+    PDISU(JL,JK) = 0.
+  END DO
+END DO
+!
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+!
+DO JA = 1, NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = 1.0
+    ZTT1(JL,JA) = 1.0
+    ZTT2(JL,JA) = 1.0
+  END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+!
+IND1=0
+IND3=0
+IND4=1
+IND2=1
+!
+!
+!*         2.2     CONTRIBUTION FROM DISTANT LAYERS
+!                  ---------------------------------
+!
+!
+!*         2.2.1   DISTANT AND ABOVE LAYERS
+!                  ------------------------
+!
+!
+!*         2.2.2   FIRST UPPER LEVEL
+!                  -----------------
+!
+DO JK = 1 , KLEV-1
+  IKP1=JK+1
+  IKN=(JK-1)*NG1P1+1
+  IKD1= JK  *NG1P1+1
+!
+  CALL LWTTM( KIDIA,KFDIA,KLON &
+     &          , PGA(1,1,1,JK), PGB(1,1,1,JK) &
+     &          , PABCU(1,1,IKN),PABCU(1,1,IKD1),ZTT1 )
+!
+!
+!
+!*         2.2.3   HIGHER UP
+!                  ---------
+!
+  ITT=1
+  DO JKJ=IKP1,KLEV
+    IF(ITT.EQ.1) THEN
+      ITT=2
+    ELSE
+      ITT=1
+    ENDIF
+    IKJP1=JKJ+1
+    IKD2= JKJ  *NG1P1+1
+!
+    IF(ITT.EQ.1) THEN
+      CALL LWTTM( KIDIA,KFDIA,KLON &
+      &             , PGA(1,1,1,JKJ),PGB(1,1,1,JKJ) &
+      &             , PABCU(1,1,IKN),PABCU(1,1,IKD2),ZTT1 )
+    ELSE
+      CALL LWTTM( KIDIA,KFDIA,KLON &
+      &             , PGA(1,1,1,JKJ),PGB(1,1,1,JKJ) &
+      &             , PABCU(1,1,IKN),PABCU(1,1,IKD2),ZTT2 )
+    ENDIF
+!
+    DO JA = 1, KTRAER
+      DO JL = KIDIA,KFDIA
+        ZTT(JL,JA) = (ZTT1(JL,JA)+ZTT2(JL,JA))*0.5
+      END DO
+    END DO
+!
+    DO JL = KIDIA,KFDIA
+      ZWW=PDBDT(JL,1,JKJ)*ZTT(JL,1)          *ZTT(JL,10)  &
+      &   +PDBDT(JL,2,JKJ)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11) &
+      &   +PDBDT(JL,3,JKJ)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12) &
+      &   +PDBDT(JL,4,JKJ)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13) &
+      &   +PDBDT(JL,5,JKJ)*ZTT(JL,3)          *ZTT(JL,14) &
+      &   +PDBDT(JL,6,JKJ)*ZTT(JL,6)          *ZTT(JL,15)
+      ZGLAYD(JL)=ZWW
+      ZDZXDG=ZGLAYD(JL)
+      PDISD(JL,JK)=PDISD(JL,JK)+ZDZXDG
+      PCNTRB(JL,JK,IKJP1)=ZDZXDG
+    END DO
+!
+!
+  END DO
+END DO
+!
+!
+!*         2.2.4   DISTANT AND BELOW LAYERS
+!                  ------------------------
+!
+!*         2.2.5   FIRST LOWER LEVEL
+!                  -----------------
+!
+DO JK=3,KLEV+1
+  IKN=(JK-1)*NG1P1+1
+  IKM1=JK-1
+  IKJ=JK-2
+  IKU1= IKJ  *NG1P1+1
+!
+!
+  CALL LWTTM( KIDIA,KFDIA,KLON &
+     &          , PGA(1,1,1,IKJ),PGB(1,1,1,IKJ) &
+     &          , PABCU(1,1,IKU1),PABCU(1,1,IKN),ZTT1 )
+!
+!
+!
+!*         2.2.6   DOWN BELOW
+!                  ----------
+!
+  ITT=1
+  DO JLK=1,IKJ
+    IF(ITT.EQ.1) THEN
+      ITT=2
+    ELSE
+      ITT=1
+    ENDIF
+    IJKL=IKM1-JLK
+    IKU2=(IJKL-1)*NG1P1+1
+!
+!
+    IF(ITT.EQ.1) THEN
+      CALL LWTTM( KIDIA,KFDIA,KLON &
+      &             , PGA(1,1,1,IJKL),PGB(1,1,1,IJKL) &
+      &             , PABCU(1,1,IKU2),PABCU(1,1,IKN),ZTT1)
+    ELSE
+      CALL LWTTM( KIDIA,KFDIA,KLON &
+      &             , PGA(1,1,1,IJKL),PGB(1,1,1,IJKL) &
+      &             , PABCU(1,1,IKU2),PABCU(1,1,IKN),ZTT2)
+    ENDIF
+!
+    DO JA = 1, KTRAER
+      DO JL = KIDIA,KFDIA
+        ZTT(JL,JA) = (ZTT1(JL,JA)+ZTT2(JL,JA))*0.5
+      END DO
+    END DO
+!
+    DO JL = KIDIA,KFDIA
+      ZWW=PDBDT(JL,1,IJKL)*ZTT(JL,1)          *ZTT(JL,10) &
+      &   +PDBDT(JL,2,IJKL)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11) &
+      &   +PDBDT(JL,3,IJKL)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12) &
+      &   +PDBDT(JL,4,IJKL)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13) &
+      &   +PDBDT(JL,5,IJKL)*ZTT(JL,3)          *ZTT(JL,14) &
+      &   +PDBDT(JL,6,IJKL)*ZTT(JL,6)          *ZTT(JL,15)
+      ZGLAYU(JL)=ZWW
+      ZDZXMG=ZGLAYU(JL)
+      PDISU(JL,JK)=PDISU(JL,JK)+ZDZXMG
+      PCNTRB(JL,JK,IJKL)=ZDZXMG
+    END DO
+!
+!
+  END DO
+END DO
+!
+RETURN
+END SUBROUTINE OLWVD
Index: LMDZ5/branches/testing/libf/phymar/olwvn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/olwvn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/olwvn.F90	(revision 2160)
@@ -0,0 +1,242 @@
+SUBROUTINE OLWVN ( KIDIA,KFDIA,KLON,KLEV,KUAER &
+     &  , PABCU,PDBSL,PGA,PGB &
+     &  , PADJD,PADJU,PCNTRB,PDBDT )
+!
+!**** *LWVN*   - L.W., VERTICAL INTEGRATION, NEARBY LAYERS
+!
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION ON NEARBY LAYERS
+!           TO GIVE LONGWAVE FLUXES OR RADIANCES
+!
+!**   INTERFACE.
+!     ----------
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PDBSL  : (KLON,KLEV*2)     ; SUB-LAYER PLANCK FUNCTION GRADIENT
+! PGA, PGB                     ; PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PADJ.. : (KLON,KLEV+1)     ; CONTRIBUTION OF ADJACENT LAYERS
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PDBDT  : (KLON,NUA,KLEV)   ; LAYER PLANCK FUNCTION GRADIENT
+!
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+!
+!     METHOD.
+!     -------
+!
+!          1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+!     CONTRIBUTIONS OF THE ADJACENT LAYERS USING A GAUSSIAN QUADRATURE
+!
+!     EXTERNALS.
+!     ----------
+!
+!          *LWTT*
+!
+!     REFERENCE.
+!     ----------
+!
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!-----------------------------------------------------------------------
+!      IMPLICIT LOGICAL (L)
+!
+!#include "yomcst.h"
+!#include "yoerad.h"
+!#include "yoeaer.h"
+!#include "yoelw.h"
+!#include "yoesw.h"
+!#include "yoerdu.h"
+
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : NISP     ,NIPD     ,NTRA     ,NUA      ,&
+            &NG1      ,NG1P1    ,WG1
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KUAER
+
+
+!-----------------------------------------------------------------------
+!
+!*       0.1   ARGUMENTS
+!              ---------
+!
+!
+REAL_B :: PABCU(KLON,NUA,3*KLEV+1) &
+     &  ,  PDBSL(KLON,NISP,KLEV*2) &
+     &  , PGA(KLON,8,2,KLEV) , PGB(KLON,8,2,KLEV)
+!
+REAL_B :: PADJD(KLON,KLEV+1), PADJU(KLON,KLEV+1) &
+     &  ,  PCNTRB(KLON,KLEV+1,KLEV+1) &
+     &  ,  PDBDT(KLON,NISP,KLEV)
+!
+!-----------------------------------------------------------------------
+!
+!*       0.2   LOCAL ARRAYS
+!              ------------
+!
+INTEGER_M :: ITX(KLON)
+!
+REAL_B :: ZGLAYD(KLON),ZGLAYU(KLON) &
+     &  ,  ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA) &
+     &  ,  ZUU(KLON,NUA)
+!
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IBS, IDD, IM12, IMU, IND, INU, IXD, IXU,&
+             &JA, JG, JK, JK1, JK2, JL, JNU
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZWTR, ZWTR1, ZWTR2, ZWTR3, ZWTR4, ZWTR5, ZWTR6
+
+!-----------------------------------------------------------------------
+!
+!*         1.    INITIALIZATION
+!                --------------
+!
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+!
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PADJD(JL,JK) = 0.
+    PADJU(JL,JK) = 0.
+  END DO
+END DO
+!
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+!
+DO JA = 1 , NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = 1.0
+    ZTT1(JL,JA) = 1.0
+    ZTT2(JL,JA) = 1.0
+  END DO
+END DO
+!
+DO JA = 1 , NUA
+  DO JL = KIDIA,KFDIA
+    ZUU(JL,JA) = 0.
+ END DO
+END DO
+!
+!     ------------------------------------------------------------------
+!
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+!
+!
+!*         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+!                  ---------------------------------
+!
+DO JK = 1 , KLEV
+!
+!*         2.1.1   DOWNWARD LAYERS
+!                  ---------------
+!
+  IM12 = 2 * (JK - 1)
+  IND = (JK - 1) * NG1P1 + 1
+  IXD = IND
+  INU = JK * NG1P1 + 1
+  IXU = IND
+!
+  DO JL = KIDIA,KFDIA
+    ZGLAYD(JL) = 0.
+    ZGLAYU(JL) = 0.
+  END DO
+!
+  DO JG = 1 , NG1
+    IBS = IM12 + JG
+    IDD = IXD + JG
+    DO JA = 1 , KUAER
+      DO JL = KIDIA,KFDIA
+        ZUU(JL,JA) = PABCU(JL,JA,IND) - PABCU(JL,JA,IDD)
+      END DO
+    END DO
+!
+!
+    CALL LWTT ( KIDIA,KFDIA,KLON &
+    &          , PGA(1,1,1,JK), PGB(1,1,1,JK), ZUU, ZTT )
+!
+    
+    DO JL = KIDIA,KFDIA
+      ZWTR=PDBSL(JL,1,IBS)*ZTT(JL,1)          *ZTT(JL,10) &
+      &    +PDBSL(JL,2,IBS)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11) &
+      &    +PDBSL(JL,3,IBS)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12) &
+      &    +PDBSL(JL,4,IBS)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13) &
+      &    +PDBSL(JL,5,IBS)*ZTT(JL,3)          *ZTT(JL,14) &
+      &    +PDBSL(JL,6,IBS)*ZTT(JL,6)          *ZTT(JL,15)
+      ZGLAYD(JL)=ZGLAYD(JL)+ZWTR*WG1(JG)
+    END DO
+!
+!*         2.1.2   DOWNWARD LAYERS
+!                  ---------------
+!
+    IMU = IXU + JG
+    DO JA = 1 , KUAER
+      DO JL = KIDIA,KFDIA
+        ZUU(JL,JA) = PABCU(JL,JA,IMU) - PABCU(JL,JA,INU)
+      END DO
+    END DO
+!
+!
+    CALL LWTT ( KIDIA,KFDIA,KLON &
+    &          , PGA(1,1,1,JK), PGB(1,1,1,JK), ZUU, ZTT )
+!
+    DO JL = KIDIA,KFDIA
+      ZWTR=PDBSL(JL,1,IBS)*ZTT(JL,1)          *ZTT(JL,10) &
+      &    +PDBSL(JL,2,IBS)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11) &
+      &    +PDBSL(JL,3,IBS)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12) &
+      &    +PDBSL(JL,4,IBS)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13) &
+      &    +PDBSL(JL,5,IBS)*ZTT(JL,3)          *ZTT(JL,14) &
+      &    +PDBSL(JL,6,IBS)*ZTT(JL,6)          *ZTT(JL,15) 
+      ZGLAYU(JL)=ZGLAYU(JL)+ZWTR*WG1(JG)
+    END DO
+!
+  END DO
+!
+  DO JL = KIDIA,KFDIA
+    PADJD(JL,JK) = ZGLAYD(JL)
+    PCNTRB(JL,JK,JK+1) = ZGLAYD(JL)
+    PADJU(JL,JK+1) = ZGLAYU(JL)
+    PCNTRB(JL,JK+1,JK) = ZGLAYU(JL)
+    PCNTRB(JL,JK  ,JK) = 0.0
+  END DO
+!
+END DO
+!
+DO JK = 1 , KLEV
+  JK2 = 2 * JK
+  JK1 = JK2 - 1
+  DO JNU = 1 , NISP
+    DO JL = KIDIA,KFDIA
+      PDBDT(JL,JNU,JK) = PDBSL(JL,JNU,JK1) + PDBSL(JL,JNU,JK2)
+    END DO
+  END DO
+END DO
+!
+RETURN
+END SUBROUTINE OLWVN
Index: LMDZ5/branches/testing/libf/phymar/parcli.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parcli.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parcli.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE PARCLI
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!------------------------------------------------------------------------------
+!     JPNAV : Number of latitude of the NAVY grid.
+!     JPPOCP: Number of latitude of the NAVY grid in polar caps.
+!     JPAUT : Number of latitude of the N108 grids.
+!     JPNMOI: Number of months to be processed.
+!     JPNFIN: Number of fixed fields in the *NAVY* data
+!     JPNFIS: Number of fixed fields in the *N108* data
+!     JPNMOS: Number of monthly fields in the *N108* data
+!     JPNFIF: Number of fixed fields in the final data
+!     JPNMOF: Number of monthly fields in the final data
+!     JPNFCS: Number of fixed fields in the *N108* data which are indifferent
+!             to the land/sea distribution
+!     JPNFCF: Number of fixed fields in the final data which are indifferent
+!             to the land/sea distribution
+!     PPTSHT: Shift (in radians) of the deep yearly temperature wave.
+!     PPWSHT: Shift (in radians) of the deep yearly water content wave.
+!     JPLDAT: Dimension of the array *IDATEF*.
+
+INTEGER_M, PARAMETER :: JPNAV=1080
+INTEGER_M, PARAMETER :: JPPOCP=120
+INTEGER_M, PARAMETER :: JPAUT=216
+INTEGER_M, PARAMETER :: JPINT=2*JPAUT+4
+INTEGER_M, PARAMETER :: JPJNT=JPAUT+4
+INTEGER_M, PARAMETER :: JPNFIN=7
+INTEGER_M, PARAMETER :: JPNFIS=13
+INTEGER_M, PARAMETER :: JPNMOS=5
+INTEGER_M, PARAMETER :: JPNFIF=11
+INTEGER_M, PARAMETER :: JPNMOF=7
+INTEGER_M, PARAMETER :: JPNMOI=12
+INTEGER_M, PARAMETER :: JPNFCS=7
+INTEGER_M, PARAMETER :: JPNFCF=5
+REAL_B   , PARAMETER :: PPTSHT=0.0786_JPRB
+REAL_B   , PARAMETER :: PPWSHT=0.1969_JPRB
+INTEGER_M, PARAMETER :: JPLDAT=11
+
+END MODULE PARCLI
Index: LMDZ5/branches/testing/libf/phymar/parclimf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parclimf.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parclimf.F90	(revision 2160)
@@ -0,0 +1,19 @@
+MODULE PARCLIMF
+
+#include "tsmbkind.h"
+
+USE PARCLI
+
+
+IMPLICIT NONE
+
+SAVE
+
+!------------------------------------------------------------------------------
+!     JPNCHS : Number of *N108* fields (depending on JPNMOI).
+!     JPNCHF : Number of final  fields (depending on JPNMOI).
+
+INTEGER_M, PARAMETER :: JPNCHS=JPNMOS*JPNMOI+JPNFIS
+INTEGER_M, PARAMETER :: JPNCHF=JPNMOF*JPNMOI+JPNFIF
+
+END MODULE PARCLIMF
Index: LMDZ5/branches/testing/libf/phymar/parcma.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parcma.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parcma.F90	(revision 2160)
@@ -0,0 +1,176 @@
+MODULE PARCMA
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!*    PARCMA - CMA VARIOUS PARAMETERS
+
+!        D. VASILJEVIC    ECMWF    19/09/94
+
+
+!     NAME                    MEANING
+!     ----                    -------
+
+!     CMA ARRAY/FILE PARAMETERS:
+!     ---------------------
+
+!     JPMXGICL    MAX. LEN. OF "GLOBAL" INTEGER CMA ARRAY
+!     JPMXGRCL    MAX. LEN. OF "GLOBAL" REAL CMA ARRAY
+!     JPMXICRL    MAX. LEN. OF INPUT CMA REPORT
+!     JPMXICHL    MAX. LEN. OF INPUT CMA REPORT HEADER
+!     JPMXICBL    MAX. LEN. OF INPUT CMA REPORT BODY ENTRY
+!     JPMXICDL    MAX. LEN. OF INPUT CMA  DDR
+!     JPMXOCRL    MAX. LEN. OF OUTPUT CMA REPORT
+!     JPMXOCHL    MAX. LEN. OF OUTPUT CMA REPORT HEADER
+!     JPMXOCBL    MAX. LEN. OF OUTPUT CMA REPORT BODY ENTRY
+!     JPMXOCDL    MAX. LEN. OF OUTPUT CMA  DDR
+!     JPMXDEPL    MAX. LEN. OF DEPARTURE LIST
+
+INTEGER_M :: JPMXGICL
+INTEGER_M :: JPMXGRCL
+INTEGER_M :: JPMXICRL
+INTEGER_M :: JPMXICHL
+INTEGER_M :: JPMXICBL
+INTEGER_M :: JPMXICDL
+INTEGER_M :: JPMXOCRL
+INTEGER_M :: JPMXOCHL
+INTEGER_M :: JPMXOCBL
+INTEGER_M :: JPMXOCDL
+INTEGER_M :: JPMXDEPL
+PARAMETER (JPMXGICL=1)
+PARAMETER (JPMXGRCL=2000000)
+PARAMETER (JPMXICRL=164811)
+PARAMETER (JPMXICHL=581)
+PARAMETER (JPMXICBL=72)
+PARAMETER (JPMXICDL=3072)
+PARAMETER (JPMXOCRL=164811)
+PARAMETER (JPMXOCHL=581)
+PARAMETER (JPMXOCBL=72)
+PARAMETER (JPMXOCDL=3072)
+PARAMETER (JPMXDEPL=319)
+
+!-----------------------------------------------------------------------
+
+
+!     CMA EVENTS, FLAGS, CODES ETC. PARAMETERS:
+!     -----------------------------------------
+
+!     JPMXLID     MAX. NO. OF LEVEL ID CODES
+!     JPMXPCD     MAX. NO. OF PRESSURE CODES
+!     JPMXRE1     MAX. NO. REPORT (PART 1) EVENTS
+!     JPMXRE2     MAX. NO. REPORT (PART 2) EVENTS
+!     JPMXDE1     MAX. NO. DATUM (PART 1) EVENTS
+!     JPMXDE2     MAX. NO. DATUM (PART 2) EVENTS
+!     JPMXRBLE    MAX. NO. REPORT BLACKLIST EVENTS
+!     JPMXDBLE    MAX. NO. DATUM BLACKLIST EVENTS
+!     JPMXRDF     MAX. NO. RDB REPORT FLAGS
+!     JPMXDDF     MAX. NO. RDB PRESSURE/VARIABLE FLAGS
+!     JPMXADF     MAX. NO. ANALYSIS VARIABLE FLAGS
+!     JPMXSBI1    MAX. NO. OF SATOB I1 CODES
+!     JPMXSBI2    MAX. NO. OF SATOB I2I2 CODES
+!     JPMXSMI2    MAX. NO. OF SATEM I2 CODES
+!     JPMXSMV     MAX. NO. OF SATEM V CODES
+!     JPMXSMW     MAX. NO. OF SATEM W CODES
+!     JPMXSMX     MAX. NO. OF SATEM X CODES
+!     JPMXSMY     MAX. NO. OF SATEM Y CODES
+!     JPMXSMA     MAX. NO. OF SATEM A CODES
+!     JPMXSMB     MAX. NO. OF SATEM B CODES
+!     JPMXSMC     MAX. NO. OF SATEM C CODES
+
+INTEGER_M :: JPMXLID
+INTEGER_M :: JPMXPCD
+INTEGER_M :: JPMXRE1
+INTEGER_M :: JPMXRE2
+INTEGER_M :: JPMXDE1
+INTEGER_M :: JPMXDE2
+INTEGER_M :: JPMXRBLE
+INTEGER_M :: JPMXDBLE
+INTEGER_M :: JPMXRDF
+INTEGER_M :: JPMXDDF
+INTEGER_M :: JPMXADF
+INTEGER_M :: JPMXSBI2
+INTEGER_M :: JPMXSMI2
+INTEGER_M :: JPMXSMV
+INTEGER_M :: JPMXSMW
+INTEGER_M :: JPMXSMX
+INTEGER_M :: JPMXSMY
+INTEGER_M :: JPMXSMA
+INTEGER_M :: JPMXSMB
+INTEGER_M :: JPMXSMC
+INTEGER_M :: JPMXSBI1
+PARAMETER (JPMXLID=9)
+PARAMETER (JPMXPCD=13)
+PARAMETER (JPMXRE1=30)
+PARAMETER (JPMXRE2=30)
+PARAMETER (JPMXDE1=30)
+PARAMETER (JPMXDE2=30)
+PARAMETER (JPMXRBLE=30)
+PARAMETER (JPMXDBLE=30)
+PARAMETER (JPMXRDF=5)
+PARAMETER (JPMXDDF=7)
+PARAMETER (JPMXADF=7)
+PARAMETER (JPMXSBI2=5)
+PARAMETER (JPMXSMI2=4)
+PARAMETER (JPMXSMV=3)
+PARAMETER (JPMXSMW=3)
+PARAMETER (JPMXSMX=5)
+PARAMETER (JPMXSMY=7)
+PARAMETER (JPMXSMA=3)
+PARAMETER (JPMXSMB=3)
+PARAMETER (JPMXSMC=3)
+PARAMETER (JPMXSBI1=5)
+
+!-----------------------------------------------------------------------
+
+!     CMA NO. OF OBS./CODE TYPES, UPDATES, ADD. DEP. ETC. PARAMETERS:
+!     --------------------------------------------------------------
+
+!     JPMXOTP     MAX. NO. OF OBS. TYPES
+!     JPMXOCT     MAX. NO. OF OBS. CODE TYPES
+!     JPMXUP      MAX. NO. UPDATES
+!     JPMXAD      MAX. NO. OF ADDITIONAL DEPARTURES
+!     JPMXVAR     MAX. NO. OF CMA VARIABLES
+!     JPMXTOCH    MAX. NO. TOVS CHANNELS
+!     JPMXSSCH    MAX. NO. SSMI CHANNELS
+!     JPMXTRCH    MAX. NO. TRMM CHANNELS
+!     JPXSFPTS    MAX. NO. OF SIM. OBS. FILES PER 6HR TIME SLOT
+!     JPXTSL      MAX. NO. OF OUTPUT/INPUT TIME SLOTS
+!     JPXCMA      MAX. NO. OF OUTPUT/INPUT CMA FILES
+!     JPXSATS     MAX. NO. OF SATELLITES
+!     JPXSENSOR   MAX. NO. OF SENSOR TYPES FOR 1C RADIANCES
+!     JPSMETSND   SENSOR INDICATOR FOR METEOSAT SOUNDER DATA
+
+INTEGER_M :: JPMXOTP
+INTEGER_M :: JPMXOCT
+INTEGER_M :: JPMXUP
+INTEGER_M :: JPMXAD
+INTEGER_M :: JPMXVAR
+INTEGER_M :: JPMXTOCH
+INTEGER_M :: JPMXSSCH
+INTEGER_M :: JPMXTRCH
+INTEGER_M :: JPXTSL
+INTEGER_M :: JPXCMA
+INTEGER_M :: JPXSATS
+INTEGER_M :: JPXSENSOR
+INTEGER_M :: JPSMETSND
+PARAMETER (JPMXOTP=10)
+PARAMETER (JPMXOCT=11)
+PARAMETER (JPMXUP=10)
+PARAMETER (JPMXAD=20)
+PARAMETER (JPMXVAR=70)
+PARAMETER (JPMXTOCH=27)
+PARAMETER (JPMXSSCH=7)
+PARAMETER (JPMXTRCH=9)
+PARAMETER (JPXTSL=25)
+PARAMETER (JPXCMA=1)
+PARAMETER (JPXSATS=6)
+PARAMETER (JPXSENSOR=30)
+PARAMETER (JPSMETSND=20)
+
+!-----------------------------------------------------------------------
+
+END MODULE PARCMA
Index: LMDZ5/branches/testing/libf/phymar/pardim.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/pardim.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/pardim.F90	(revision 2160)
@@ -0,0 +1,29 @@
+MODULE PARDIM
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+
+!     JPMXLE : MAXIMUM NUMBER OF LEVELS
+!     JPMXGL : MAXIMUM NUMBER OF GAUSSIAN LATITUDES 
+
+!     JPCSS : MAXIMUM NUMBER OF LEVELS IN SOIL         
+
+!     JPFPPYX : Maximum number of fields in catalogue cilipdy
+
+!     JPNULNAM : Fortran unit number used for namelist reading
+
+INTEGER_M, PARAMETER :: JPMXLE=200
+INTEGER_M, PARAMETER :: JPMXGL=1001
+INTEGER_M, PARAMETER :: JPCSS=5
+INTEGER_M, PARAMETER :: JPFPPYX=17
+INTEGER_M, PARAMETER :: JPNULNAM=4
+
+!     ------------------------------------------------------------------
+END MODULE PARDIM
Index: LMDZ5/branches/testing/libf/phymar/pardimo.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/pardimo.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/pardimo.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE PARDIMO
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!****-------------------------------------------------------------------
+!****  CD PARDIMO : PARAMETERS RELATED TO OBSERVATIONS
+!****  ----------
+!****  Auteurs    : J.PAILLEUX, D.VASILJEVIC, P.CAILLE    90/05-91/09
+!****-------------------------------------------------------------------
+!*  OBSERVATIONS ARRAYS DIMENSIONS
+!*  ------------------------------
+!*    JPNOTP  : MAXIMUM NUMBER OF OBSERVATIONS TYPES
+!*    JPXTIM  : MAXIMUM NUMBER OF TIME SLOTS
+!*
+!*  OBSERVATIONS PROCESSING
+!*  -----------------------
+!*    JPNBTM  : MAXIMUM NUMBER OF MESSAGES TYPES
+!*    JPNUMV  : NUMBER OF VARIABLES IN THE ARRAY NVNUMB
+!*    JPXSOBT : MAXIMUM NUMBER OF SUB-OBSERVATIONS TYPES
+!*    JPXVAR  : MAXIMUM NUMBER OF VARIABLES
+!*    JPXAREA : MAXIMUM NUMBER OF AREAS
+!*    JPXDEP  : MAXIMUM NUMBER OF ADDITIONAL OBS. DEP.
+!*    JPXUPD  : MAXIMUM NUMBER OF UPDATES ALLOWED FOR CMA
+!*    JPXDEL  : LEN. OF THE OBS. SEP. LIST FOR SAVING
+!*
+!****-------------------------------------------------------------------
+INTEGER_M, PARAMETER :: JPNOTP=10
+INTEGER_M, PARAMETER :: JPXTIM=25
+
+INTEGER_M, PARAMETER :: JPNBTM=36
+INTEGER_M, PARAMETER :: JPNUMV=65
+INTEGER_M, PARAMETER :: JPXSOBT=3
+INTEGER_M, PARAMETER :: JPXVAR=25
+INTEGER_M, PARAMETER :: JPXAREA=20
+INTEGER_M, PARAMETER :: JPXDEP=100
+INTEGER_M, PARAMETER :: JPXDEL=639
+INTEGER_M, PARAMETER :: JPXUPD=100
+
+!****-------------------------------------------------------------------
+END MODULE PARDIMO
Index: LMDZ5/branches/testing/libf/phymar/parerob.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parerob.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parerob.F90	(revision 2160)
@@ -0,0 +1,35 @@
+MODULE PAREROB
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     PAREROB   D. VASILJEVIC  91/03/05
+
+!     DIMENSIONS FOR ARRAYS FOR OBS. ERROR CORRELATION
+
+
+!     VARIABLE     / TYPE /               MEANING
+!     --------       ----                 ------
+!     JPMXXENT        I     MAX. NO. OF X ENTRIES IN THE CORREL. TABLE
+!     JPMXYENT        I     MAX. NO. OF Y ENTRIES IN THE CORREL. TABLE
+!     JPRZPAR         I
+!     JPCZR           I
+!     JPCXR           I
+!     JPCZRCOR        I
+!*
+
+INTEGER_M, PARAMETER :: JPMXXENT=9
+INTEGER_M, PARAMETER :: JPMXYENT=9
+INTEGER_M, PARAMETER :: JPRZPAR=10
+INTEGER_M, PARAMETER :: JPCZR=8
+INTEGER_M, PARAMETER :: JPCXR=8
+INTEGER_M, PARAMETER :: JPCZRCOR=2
+
+!     ------------------------------------------------------------------
+
+END MODULE PAREROB
Index: LMDZ5/branches/testing/libf/phymar/parfpos.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parfpos.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parfpos.F90	(revision 2160)
@@ -0,0 +1,57 @@
+MODULE PARFPOS
+
+#include "tsmbkind.h"
+
+USE PARDIM
+
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! === basic dimensions for Full POST-PROCESSING ===
+
+!     JPOSDOM : Maximum number of horizontal (sub)domains
+!     JPOSFRQ : Maximum number of output frequencies
+!     JPOSLEN : Maximum length of a (sub)domain name
+!     JPOSLIS : Maximum number of groups of subdomains
+!     JPOSDIR : Maximum length of the path (or prefix) for the output files
+!     JPOSLE  : Maximum number of eta levels on the output subdomain
+!     JPOSGL  : Maximum number of latitude rows of the output gaussian grid
+!     JPOS3DF : Maximum number of specific 3D dynamic fields
+!     JPOSSCVA: Maximum number of post-processable passive scalars
+!     JPOS2DF : Maximum number of specific 2D dynamic fields
+!     JPOSPHY : Maximum number of surface fields
+!     JPOSCFU : Maximum number of cumulated fluxes
+!     JPOSXFU : Maximum number of instantaneous fluxes
+!     JPOS3P  : Maximum number of pp. pressure levels
+!     JPOS3H  : Maximum number of pp. height (above orography) levels
+!     JPOS3TH : Maximum number of pp. potential temperature levels
+!     JPOS3PV : Maximum number of pp. potential vorticity levels
+!     JPOS3S  : Maximum number of pp. eta levels
+!     JPOSVSO : Maximum number of climatologic fields of output format
+
+
+INTEGER_M, PARAMETER :: JPOSDOM=15
+INTEGER_M, PARAMETER :: JPOSFRQ=10
+INTEGER_M, PARAMETER :: JPOSLEN=10
+INTEGER_M, PARAMETER :: JPOSLIS=10
+INTEGER_M, PARAMETER :: JPOSDIR=180
+INTEGER_M, PARAMETER :: JPOSLE=JPMXLE
+INTEGER_M, PARAMETER :: JPOSGL=JPMXGL
+INTEGER_M, PARAMETER :: JPOS3DF=63
+INTEGER_M, PARAMETER :: JPOS2DF=15
+INTEGER_M, PARAMETER :: JPOSPHY=127
+INTEGER_M, PARAMETER :: JPOSCFU=63
+INTEGER_M, PARAMETER :: JPOSXFU=63
+INTEGER_M, PARAMETER :: JPOS3P=31
+INTEGER_M, PARAMETER :: JPOS3H=127
+INTEGER_M, PARAMETER :: JPOS3TH=15
+INTEGER_M, PARAMETER :: JPOS3PV=15
+INTEGER_M, PARAMETER :: JPOS3S=JPOSLE
+INTEGER_M, PARAMETER :: JPOSVSO=31
+INTEGER_M, PARAMETER :: JPOSSCVA=3
+!     ------------------------------------------------------------------
+END MODULE PARFPOS
Index: LMDZ5/branches/testing/libf/phymar/pargc5.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/pargc5.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/pargc5.F90	(revision 2160)
@@ -0,0 +1,16 @@
+MODULE PARGC5
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+
+! === Dimension for trajectory grid point boundaries arrays ===
+
+INTEGER_M, PARAMETER :: JPN52C=3
+!     -----------------------------------------------------------------
+END MODULE PARGC5
Index: LMDZ5/branches/testing/libf/phymar/parkind1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parkind1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parkind1.F90	(revision 2160)
@@ -0,0 +1,25 @@
+MODULE PARKIND1
+!
+!     *** Define usual kinds for strong typing ***
+!
+IMPLICIT NONE
+SAVE
+!
+!     Integer Kinds
+!     -------------
+!
+INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
+INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
+INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9)
+INTEGER, PARAMETER :: JPIB = SELECTED_INT_KIND(12)
+!
+!     Real Kinds
+!     ----------
+!
+INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
+INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)
+INTEGER, PARAMETER :: JPRM = SELECTED_REAL_KIND(6,37)
+INTEGER, PARAMETER :: JPRB = SELECTED_REAL_KIND(13,300)
+INTEGER, PARAMETER :: JPRD = SELECTED_REAL_KIND(15,307)
+!
+END MODULE PARKIND1
Index: LMDZ5/branches/testing/libf/phymar/parkind2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parkind2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parkind2.F90	(revision 2160)
@@ -0,0 +1,22 @@
+MODULE PARKIND2
+!
+!     *** Define huge kinds for strong typing ***
+!
+IMPLICIT NONE
+SAVE
+!
+!     Integer Kinds
+!     -------------
+!
+INTEGER, PARAMETER :: JPIH = SELECTED_INT_KIND(18)
+!
+!     Real Kinds
+!     ----------
+!
+#ifdef REALHUGE
+INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(28,2400)
+#else
+INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
+#endif
+!
+END MODULE PARKIND2
Index: LMDZ5/branches/testing/libf/phymar/parptrs.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parptrs.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parptrs.F90	(revision 2160)
@@ -0,0 +1,23 @@
+MODULE PARPTRS
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+INTEGER_M,parameter:: max_satellites=6
+INTEGER_M,parameter:: max_ddrs=2
+INTEGER_M,parameter:: max_statid_len=8
+INTEGER_M,parameter:: NSYNOP=1
+INTEGER_M,parameter:: NAIREP=2
+INTEGER_M,parameter:: NSATOB=3
+INTEGER_M,parameter:: NDRIBU=4
+INTEGER_M,parameter:: NTEMP=5
+INTEGER_M,parameter:: NPILOT=6
+INTEGER_M,parameter:: NSATEM=7
+INTEGER_M,parameter:: NPAOB=8
+INTEGER_M,parameter:: NSCATT=9
+INTEGER_M,parameter:: NTOVS=10
+END MODULE PARPTRS
Index: LMDZ5/branches/testing/libf/phymar/parrint.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parrint.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parrint.F90	(revision 2160)
@@ -0,0 +1,18 @@
+MODULE PARRINT
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+
+!     PARAMETERS REQUIRED FOR RADIATION INTERPOLATION
+
+INTEGER_M, PARAMETER :: JPRADCW=2
+INTEGER_M, PARAMETER :: JPRADCE=2
+INTEGER_M, PARAMETER :: JPRADCT=JPRADCW+JPRADCE
+INTEGER_M, PARAMETER :: JPRADFW=1
+INTEGER_M, PARAMETER :: JPRADFE=1
+END MODULE PARRINT
Index: LMDZ5/branches/testing/libf/phymar/parrrtm.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parrrtm.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parrrtm.F90	(revision 2160)
@@ -0,0 +1,47 @@
+MODULE PARRRTM
+ 
+ 
+#include "tsmbkind.h"
+ 
+IMPLICIT NONE
+ 
+SAVE
+ 
+!     ------------------------------------------------------------------
+!     Parameters relevant to AER s RRTM-LW radiation scheme
+ 
+!     980714  JJMorcrette
+!     ------------------------------------------------------------------
+ 
+!-- standard tropical INTEGER_M, PARAMETER :: JPLAY  = 64
+!-- ATEX              INTEGER_M, PARAMETER :: JPLAY  = 83
+!-- BOMEX             INTEGER_M, PARAMETER :: JPLAY  = 84
+!-- OPEN_CELLS        INTEGER_M, PARAMETER :: JPLAY  = 63
+!__ GATE_A,B,C        INTEGER_M, PARAMETER :: JPLAY  = 46
+ 
+INTEGER_M, PARAMETER :: JPLAY  = 60
+ 
+INTEGER_M, PARAMETER :: JPG    = 16
+INTEGER_M, PARAMETER :: JPBAND = 16
+INTEGER_M, PARAMETER :: JPXSEC = 4
+INTEGER_M, PARAMETER :: JPINPX = 35
+INTEGER_M, PARAMETER :: JPGPT  = 140
+ 
+INTEGER_M, PARAMETER :: NGS1  = 8
+INTEGER_M, PARAMETER :: NGS2  = 22
+INTEGER_M, PARAMETER :: NGS3  = 38
+INTEGER_M, PARAMETER :: NGS4  = 52
+INTEGER_M, PARAMETER :: NGS5  = 68
+INTEGER_M, PARAMETER :: NGS6  = 76
+INTEGER_M, PARAMETER :: NGS7  = 88
+INTEGER_M, PARAMETER :: NGS8  = 96
+INTEGER_M, PARAMETER :: NGS9  = 108
+INTEGER_M, PARAMETER :: NGS10 = 114
+INTEGER_M, PARAMETER :: NGS11 = 122
+INTEGER_M, PARAMETER :: NGS12 = 130
+INTEGER_M, PARAMETER :: NGS13 = 134
+INTEGER_M, PARAMETER :: NGS14 = 136
+INTEGER_M, PARAMETER :: NGS15 = 138
+ 
+!     ------------------------------------------------------------------
+END MODULE PARRRTM
Index: LMDZ5/branches/testing/libf/phymar/parrtm1d.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/parrtm1d.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/parrtm1d.F90	(revision 2160)
@@ -0,0 +1,36 @@
+MODULE PARRTM1D
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     Parameters for 1-D radiation only computations from operational
+!      library routines
+!     991007  JJMorcrette
+!     ------------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: JP_LON  = 13538
+INTEGER_M, PARAMETER :: JP_IDIA = 1
+INTEGER_M, PARAMETER :: JP_FDIA = JP_LON-JP_IDIA+1
+INTEGER_M, PARAMETER :: JP_TDIA = 1
+
+!-- standard tropical INTEGER_M, PARAMETER :: JP_LEV  = 64
+!-- ATEX              INTEGER_M, PARAMETER :: JP_LEV  = 83
+!-- BOMEX             INTEGER_M, PARAMETER :: JP_LEV  = 84
+!-- OPEN_CELLS        INTEGER_M, PARAMETER :: JP_LEV  = 63
+!-- GATE_A,B,C        INTEGER_M, PARAMETER :: JP_LEV  = 46
+
+INTEGER_M, PARAMETER :: JP_LEV  = 39
+
+INTEGER_M, PARAMETER :: JP_LW   = 6
+INTEGER_M, PARAMETER :: JP_SW   = 6
+INTEGER_M, PARAMETER :: JP_NUA  = 24
+INTEGER_M, PARAMETER :: JP_MODE = 1
+INTEGER_M, PARAMETER :: JP_AER  = 6
+INTEGER_M, PARAMETER :: JP_LEVP1= JP_LEV+1
+
+!     ------------------------------------------------------------------
+END MODULE PARRTM1D
Index: LMDZ5/branches/testing/libf/phymar/phyaqua.F
===================================================================
--- LMDZ5/branches/testing/libf/phymar/phyaqua.F	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/phyaqua.F	(revision 2160)
@@ -0,0 +1,41 @@
+!
+! $Id: $
+!
+
+      subroutine iniaqua(nlon,latfi,lonfi,iflag_phys)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!  Create an initial state (startphy.nc) for the physics
+!  Usefull for idealised cases (e.g. aquaplanets or testcases)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      use phys_state_var_mod, only : rlat,rlon,
+     &                               phys_state_var_init
+      use mod_phys_lmdz_para, only : klon_omp
+      use comgeomphy, only : rlond,rlatd
+      implicit none
+      
+      integer,intent(in) :: nlon,iflag_phys
+      real,intent(in) :: lonfi(nlon),latfi(nlon)
+
+! local variables
+      real :: pi
+
+! initializations:
+      pi=2.*asin(1.)
+
+      call phys_state_var_init()
+
+      rlat(1:klon_omp)=rlatd(1:klon_omp)*180./pi
+      rlon(1:klon_omp)=rlond(1:klon_omp)*180./pi
+
+
+! Here you could create an initial condition for the physics
+! ...
+! ... fill in the fields...
+! ...
+! ... and create a "startphy.nc" file
+      CALL phyredem ("startphy.nc")
+
+      end
+
Index: LMDZ5/branches/testing/libf/phymar/phyetat0.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/phyetat0.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/phyetat0.F90	(revision 2160)
@@ -0,0 +1,33 @@
+!
+! $Id $
+!
+subroutine phyetat0(fichnom)
+! Load initial state for the physics
+! and do some resulting initializations
+
+use iostart, only : open_startphy,get_field,close_startphy
+use iophy, only : init_iophy_new
+use phys_state_var_mod, only : rlat,rlon
+
+implicit none
+
+character(len=*),intent(in) :: fichnom ! input file name
+
+! open physics initial state file:
+call open_startphy(fichnom)
+
+! read latitudes
+call get_field("latitude",rlat)
+
+! read longitudes
+call get_field("longitude",rlon)
+
+! read in other variables here ...
+
+! close file
+call close_startphy
+
+! do some more initializations
+call init_iophy_new(rlat,rlon)
+
+end subroutine phyetat0
Index: LMDZ5/branches/testing/libf/phymar/phyredem.F
===================================================================
--- LMDZ5/branches/testing/libf/phymar/phyredem.F	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/phyredem.F	(revision 2160)
@@ -0,0 +1,40 @@
+!
+! $Id: $
+!
+      SUBROUTINE phyredem (fichnom)
+
+      use iostart, only : open_restartphy,close_restartphy,
+     &                    put_var,put_field
+      use phys_state_var_mod, only : rlon,rlat
+
+      implicit none
+
+      character(len=*),intent(in) :: fichnom
+
+      integer,parameter :: tab_cntrl_len=100
+      real :: tab_cntrl(tab_cntrl_len)
+
+! open file
+
+      CALL open_restartphy(fichnom)
+
+! tab_cntrl() contains run parameters
+
+      tab_cntrl(:)=0.0
+ 
+
+      CALL put_var("controle","Parametres de controle",tab_cntrl)
+
+! coordinates
+
+      CALL put_field("longitude",
+     .               "Longitudes de la grille physique",rlon)
+     
+      CALL put_field("latitude","Latitudes de la grille physique",rlat)
+
+! close file
+
+      CALL close_restartphy
+!$OMP BARRIER
+
+      END
Index: LMDZ5/branches/testing/libf/phymar/phys_output_var_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/phys_output_var_mod.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/phys_output_var_mod.F90	(revision 2160)
@@ -0,0 +1,1 @@
+link ../phylmd/phys_output_var_mod.F90
Index: LMDZ5/branches/testing/libf/phymar/phys_state_var_mod.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/phys_state_var_mod.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/phys_state_var_mod.F90	(revision 2160)
@@ -0,0 +1,37 @@
+!
+! $Id:  $
+!
+MODULE phys_state_var_mod
+!======================================================================
+! Variables saved in startphy.nc
+!======================================================================
+
+USE dimphy, only : klon
+ 
+
+REAL, ALLOCATABLE, SAVE :: rlat(:), rlon(:)
+!$OMP THREADPRIVATE(rlat,rlon)
+
+CONTAINS
+
+!======================================================================
+  SUBROUTINE phys_state_var_init()
+  use dimphy, only : klon
+
+  if (.not.allocated(rlat)) then
+    ALLOCATE(rlat(klon),rlon(klon))
+  else
+    write(*,*) "phys_state_var_init: warning, rlat already allocated"
+  endif
+  
+  END SUBROUTINE phys_state_var_init
+
+!======================================================================
+  SUBROUTINE phys_state_var_end
+  use dimphy, only : klon
+
+  deallocate(rlat,rlon)
+
+  END SUBROUTINE phys_state_var_end
+
+END MODULE phys_state_var_mod
Index: LMDZ5/branches/testing/libf/phymar/physiq.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/physiq.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/physiq.F90	(revision 2160)
@@ -0,0 +1,1167 @@
+! $Id: physiq.F 1565 2011-08-31 12:53:29Z jghattas $
+!#define IO_DEBUG
+
+!========================================================================================================================
+! Adaptation de physiq.F90 de phydev pour mettre en oeuvre une interface dynamique de LMDZ/physique de MAR.
+! Martin Ménégoz (Février 2014) martin.menegoz@lgge.obs.ujf-grenoble.fr
+! Contact LGGE: gallee@lgge.obs.ujf-grenoble.fr (modèle MAR) ; contact LMD: Frederic.hourdin@lmd.jussieu.fr (modèle LMDZ)
+!========================================================================================================================
+
+      SUBROUTINE physiq (nlon,nlev, &
+     &            debut,lafin,jD_cur, jH_cur,pdtphys, &
+     &            paprs,pplay,pphi,pphis,ppresnivs,clesphy0, &
+     &            u,v,t,qx, &
+     &            flxmass_w, &
+     &            d_u, d_v, d_t, d_qx, d_ps &
+     &            , dudyn )
+
+      USE dimphy, only : klon,klev,klevp1
+      USE infotrac, only : nqtot
+      USE comgeomphy, only : rlatd,rlond,airephy
+      !USE comcstphy, only : rg
+      USE iophy, only : histbeg_phy,histwrite_phy
+      USE ioipsl, only : getin,histvert,histdef,histend,ymds2ju,ju2ymds,histsync
+      USE mod_phys_lmdz_para, only : jj_nb
+      USE phys_state_var_mod, only : phys_state_var_init
+! Modules LMDZ utilisés pour LMDZ-MAR:
+      USE control_mod      
+
+! Modules utilisé pour MAR dans DYN_to_PHY_MAR.f90
+      use Mod_Real
+      use Mod_PHY____dat
+      use Mod_PHY____grd
+      use Mod_PHY_S0_grd
+      use Mod_SISVAT_grd
+      use Mod_SISVAT_dat
+      use Mod_SISVAT_gpt ! surface heat flxes in outputs
+      use Mod_PHY_DY_kkl
+      use Mod_PHY_CM_kkl ! pour écrire les snowfall et rainfall dans les outputs
+      use Mod_PHY_CP_kkl ! pour écrire les snowfall et rainfall dans les outputs
+
+#ifdef CPP_XIOS
+      USE wxios
+#endif
+
+      IMPLICIT none
+
+#include "dimensions.h"
+! Include LMDZ utilisés ici pour MAR-LMDZ:
+#include "comvert.h"
+#include "YOMCST.h"
+
+!======================================================================
+! Arguments du moniteur general de la physique dans le modele LMDZ
+!======================================================================
+!
+!  Arguments:
+!
+! nlon----input-I-nombre de points horizontaux
+! nlev----input-I-nombre de couches verticales, doit etre egale a klev
+! debut---input-L-variable logique indiquant le premier passage
+! lafin---input-L-variable logique indiquant le dernier passage
+! jD_cur       -R-jour courant a l'appel de la physique (jour julien)
+! jH_cur       -R-heure courante a l'appel de la physique (jour julien)
+! pdtphys-input-R-pas d'integration pour la physique (seconde)
+! paprs---input-R-pression pour chaque inter-couche (en Pa)
+! pplay---input-R-pression pour le mileu de chaque couche (en Pa)
+! pphi----input-R-geopotentiel de chaque couche (g z) (reference sol)
+! pphis---input-R-geopotentiel du sol
+! ppresnivs-input_R_pressions approximat. des milieux couches ( en PA)
+! u-------input-R-vitesse dans la direction X (de O a E) en m/s
+! v-------input-R-vitesse Y (de S a N) en m/s
+! t-------input-R-temperature (K)
+! qx------input-R-humidite specifique (kg/kg) et d'autres traceurs
+! d_t_dyn-input-R-tendance dynamique pour "t" (K/s)
+! d_q_dyn-input-R-tendance dynamique pour "q" (kg/kg/s)
+! flxmass_w -input-R- flux de masse verticale
+! d_u-----output-R-tendance physique de "u" (m/s/s)
+! d_v-----output-R-tendance physique de "v" (m/s/s)
+! d_t-----output-R-tendance physique de "t" (K/s)
+! d_qx----output-R-tendance physique de "qx" (kg/kg/s)
+! d_ps----output-R-tendance physique de la pression au sol
+!IM
+
+!======================================================================
+! Variables ajoutés pour l'utilisation de la physique de MAR
+!======================================================================
+
+      integer,parameter :: jjmp1=jjm+1-1/jjm
+      integer,parameter :: iip1=iim+1
+
+! Indices des traceurs (qx)
+! NB: Tous les traceurs de MAR (vapeur d'eau et hydrométéores, solides et liquides) sont transportés via la variables qx (tendances: d_qx)
+! Il doivent être déclarés dans un fichier traceur.def avant de lancer la simulation
+
+      INTEGER, PARAMETER :: ivap  = 1  ! indice de traceurs pour vapeur d'eau
+      INTEGER, PARAMETER :: iliq  = 2  ! indice de traceurs pour eau liquide
+      INTEGER, PARAMETER :: iice  = 3  ! indice de traceurs pour eau solide
+      INTEGER, PARAMETER :: icin  = 4  ! indice de traceurs pour CIN
+      INTEGER, PARAMETER :: isnow = 5  ! indice de traceurs pour flocons de neige
+      INTEGER, PARAMETER :: irain = 6  ! indice de traceurs pour gouttes de pluie
+      INTEGER, PARAMETER :: itke  = 7  ! indice de traceurs pour tke
+      INTEGER, PARAMETER :: itked = 8  ! indice de traceurs pour tke dissipation
+! #cw INTEGER, PARAMETER :: iccn  = 9  ! indice de traceurs pour CCN
+
+!======================================================================
+! Arguments de la routine physiq.F90:
+!======================================================================
+      integer,intent(in) :: nlon ! number of atmospheric colums
+      integer,intent(in) :: nlev ! number of vertical levels (should be =klev)
+      real,intent(in) :: jD_cur ! current day number (Julian day)
+      real,intent(in) :: jH_cur ! current time of day (as fraction of day)
+      logical,intent(in) :: debut ! signals first call to physics
+      logical,intent(in) :: lafin ! signals last call to physics
+      real,intent(in) :: pdtphys ! physics time step (s)
+      real,intent(in) :: paprs(klon,klev+1) ! interlayer pressure (Pa)
+      real,intent(in) :: pplay(klon,klev) ! mid-layer pressure (Pa)
+      real,intent(in) :: pphi(klon,klev) ! geopotential at mid-layer
+      real,intent(in) :: pphis(klon) ! surface geopotential
+      real,intent(in) :: ppresnivs(klev) ! pseudo-pressure (Pa) of mid-layers
+      integer,parameter :: longcles=20
+      real,intent(in) :: clesphy0(longcles) ! Not used
+      real,intent(in) :: u(klon,klev) ! eastward zonal wind (m/s)
+      real,intent(in) :: v(klon,klev) ! northward meridional wind (m/s)
+      real,intent(in) :: t(klon,klev) ! temperature (K)
+      real,intent(in) :: qx(klon,klev,nqtot) ! tracers (.../kg_air)
+      real,intent(in) :: flxmass_w(klon,klev) ! vertical mass flux
+      real,intent(out) :: d_u(klon,klev) ! physics tendency on u (m/s/s)
+      real,intent(out) :: d_v(klon,klev) ! physics tendency on v (m/s/s)
+      real,intent(out) :: d_t(klon,klev) ! physics tendency on t (K/s)
+      real,intent(out) :: d_qx(klon,klev,nqtot) ! physics tendency on tracers
+      real,intent(out) :: d_ps(klon) ! physics tendency on surface pressure
+      real,intent(in) :: dudyn(iim+1,jjmp1,klev) ! Not used
+
+!======================================================================
+! Variables locales temporelles
+!======================================================================
+integer,save :: itau=0 ! counter to count number of calls to physics
+!$OMP THREADPRIVATE(itau)
+!real :: temp_newton(klon,klev)
+integer :: k
+logical, save :: first=.true.
+!$OMP THREADPRIVATE(first)
+
+!======================================================================
+! Inputs/Outputs
+!======================================================================
+integer :: itau0
+real :: zjulian
+real :: dtime
+integer :: nhori ! horizontal coordinate ID
+integer,save :: nid_hist ! output file ID
+!$OMP THREADPRIVATE(nid_hist)
+integer :: zvertid ! vertical coordinate ID
+integer,save :: iwrite_phys ! output every iwrite_phys physics step
+!$OMP THREADPRIVATE(iwrite_phys)
+integer :: iwrite_phys_omp ! intermediate variable to read iwrite_phys
+real :: t_ops ! frequency of the IOIPSL operations (eg average over...)
+real :: t_wrt ! frequency of the IOIPSL outputs
+
+
+!======================================================================
+! Arguments d'entrée pour la physique de MAR
+!======================================================================
+
+! NB : Pour plus de visibilité pour les développeurs de LMDZ et MAR, on conserve les noms de variables propres à MAR et LMDZ.
+! La correspondance entre les variables se fait dans cette interface. 
+
+! Flags pour MAR (A ranger ultérieurement dans un fichier .def, selon le protocole LMDZ).
+! Attention, ces Flags pilotent l'initialisation de nombreuses variables. Toutes les configurations n'ont pas été testées.
+! Ici, on trouve les déclarations utilisées pour une experience aquaplanète.
+! Contacter Hubert Gallée pour connaître la signification des Flags.
+
+
+       logical                    ::  FlagSV     = .TRUE.               ! Surface
+       logical                    ::  FlagSV_Veg = .TRUE.               ! Végétation
+       logical                    ::  FlagSV_SNo = .TRUE.               ! Neige
+       logical                    ::  FlagSV_BSn = .FALSE.              !
+       logical                    ::  FlagSV_KzT = .TRUE.               !
+       logical                    ::  FlagSV_SWD = .TRUE.               !  (T,F) == SW INPUT is (downward,absorbed)
+       ! FlagSV_SBC est utilisé pour lire des options de conditions aux limites. Ici, on le met à FALSE pour l'aquaplanète
+       logical                    ::  FlagSV_SBC = .FALSE.              ! Flag pour utiliser le PHY_SISVAT_INP propre à notre experience
+       logical                    ::  FlagSV_UBC = .FALSE.              !
+       logical                    ::  FlagAT     = .TRUE.               !
+       character(len=1)           ::  TypeAT     = 'e'                  !  Turbulence Model (e, K, L or H)
+       logical                    ::  FlagAT_TKE = .TRUE.               !
+       logical                    ::  FlagCM     = .TRUE.               !
+!Gilles : T > F car LMDz utilise les tendances des traceurs (sauf frac.nuage)
+       logical                    ::  FlagCM_UpD = .FALSE.              ! Update de la microphysique immédiat
+       logical                    ::  FlagCP     = .TRUE.               ! Avec ou sans convection
+       logical                    ::  FlagRT     = .TRUE.               !
+       logical                    ::  FlagS0_SLO = .FALSE.              !
+       logical                    ::  FlagS0_MtM = .FALSE.              !
+       logical                    ::  Flag_O     = .TRUE.               !
+!Gilles: FlagVR  T > F pas de sortie interessante
+       logical                    ::  FlagVR     = .FALSE.              !
+
+!======================================================================
+! Arguments pour la physique de MAR :
+!======================================================================
+
+! Pas de temps par défaut. Ils sont modifiés plus bas en fonction de pdtphys défini dans les fichiers .def.
+
+       real                       ::  dt0DYn     =   60.                !  Time Step, Dynamics                       [s] recalculé en fonction de day_step
+       real                       ::  dt0_SV     =   60.                !  Time Step, SISVAT                         [s] f(pdtphys)
+       real                       ::  dt0_AT     =   60.                !  Time Step, Atm_AT                         [s] f(pdtphys)
+       real                       ::  dt0_CM     =   60.                !  Time Step, CMiPhy                         [s] f(pdtphys)
+       real                       ::  dt0_CP     =  600.                !  Time Step, CVAmnh                         [s] f(pdtphys)
+       real                       ::  dt0_RT     =  900.                !  Time Step, radCEP                         [s] f(pdtphys)
+       real                       ::  dx         = 4.0e+4               !  Grid Spacing, MAX authorised for CMiPhy   [m] Limite max tolérée pour la microphysique MAR (40)
+       real(kind=real8), dimension(klon)      ::  dx___HOST             !  Grid Spacing max along x axis.
+       real(kind=real8), dimension(klon)      ::  dy___HOST             !  Grid   Size                               [m]
+       real                       ::  DD_AxX =   90.00                  !  x-Axis Direction                          [degree] Standard (90dg = Eastward) [dg] utilise juste pour les conditions aux limite et la position du soleil.
+       real, dimension(klevp1)    ::  s_HOST                            ! MAR ne fonctionne que avec des coordonnées sigma: sigma=(p-Psommet)/(psurface -Psommet)
+       real, dimension(klon)      ::  sh___HOST                         !  Surface Height                            [m] =0 en aquaplanète. A calculer ultérieurement en fonction de l'environnement LMDZ.
+       real(kind=real8), dimension(klon)         ::  sh_a_HOST          !  Topography Anomaly                                        [m]
+       real(kind=real8), dimension(klon)         ::  slopxHOST          !  Slope, x-direction                                        [-]
+       real(kind=real8), dimension(klon)         ::  slopyHOST          !  Slope, y-direction                                        [-]
+       real(kind=real8), dimension(klon)         ::  slopeHOST          !  Slope                                                     [-]
+       real(kind=real8), allocatable             ::  MMaskHOST(:,:)     !  Mountain Mask                                             [-]
+       real, dimension(klon)                     ::  lonh_HOST          !  Longitude                                              [hour]
+       real, dimension(klon)                     ::  latr_HOST          !  Latitude                                             [radian]
+       real                                      ::  ptop_HOST          !  Pressure Model Top                                      [kPa] 0 in LMDZ
+       real, dimension(klon,klevp1)              ::  pkta_HOST          !  Reduced  Potential Temperature                         [KX/s] !  Temperature * p ** (R/Cp) [KX]
+       real, dimension(klon)                     ::  psa__HOST          !  Pressure Thickness                                      [kPa] a recalculer en fonction du geopotentiel de surface: P*=Psurface-Ptop
+       real, dimension(klon,klevp1)              ::  gZa__HOST          !  Geopotential Height                                   [m2/s2]  pphi dans LMDZ
+       real, dimension(klon,klevp1)              ::  gZam_HOST          !  Geopotential Height, mid-level                        [m2/s2] On fait la moyenne entre couche du dessus et couche du dessous.
+       real, dimension(klon,klev)                ::  Ua___HOST          !  Wind Speed, x-direction                                 [m/s]
+       real, dimension(klon,klev)                ::  Va___HOST          !  Wind Speed, y-direction                                 [m/s]
+       real, dimension(klon,klev)                ::  Wa___HOST          !  Wind Speed, z-direction                                 [m/s] Non echangé entre phys et dyn dans LMDZ. Necessaire pour MAR. On le recalcule ci-aprés !
+       real, dimension(klon,klevp1)              ::  qv___HOST          !  Specific Humidity                                     [kg/kg] qx(:,:,ivap)
+       real, dimension(klon,klev)                ::  qw___HOST          !  Cloud Droplets Concentration                          [kg/kg] qx(:,:,iliq) 
+! #cw  real, dimension(klon,klev)                ::  CCN__HOST          !  CCN            Concentration                           [-/kg] qx(:,:,iccn)
+       real, dimension(klon,klev)                ::  qi___HOST          !  Cloud Crystals Concentration                          [kg/kg] qx(:,:,iice)
+       real, dimension(klon,klev)                ::  CIN__HOST          !  CIN            Concentration                           [-/kg] qx(:,:,icin)
+       real, dimension(klon,klev)                ::  CF___HOST          !  Cloud Fraction                                         [-/kg] Dans le futur, la CF sera transportée dans la dynamique, mais pour l'instant, on n'en a pas besoin.
+
+       real, dimension(klon,klev)                ::  qs___HOST          !  Snow Particles Concentration                          [kg/kg] qx(:,:,isnow)
+       real, dimension(klon,klev)                ::  qr___HOST          !  Rain Drops     Concentration                          [kg/kg] qx(:,:,irain)
+       real, dimension(klon,klev)                ::  TKE__HOST          !  Turbulent Kinetic Energy                              [m2/s2] qx(:,:,itke)
+       real, dimension(klon,klev)                ::  eps__HOST          !  Turbulent Kinetic Energy Dissipation                  [m2/s3] qx(:,:,itked)
+       real, dimension(klon,klev)                ::  dpkt___dt          !  Reduced  Potential Temperature TENDENCY, ALL Contribut.[KX/s] a recalculer en fonction de d_t de LMDZ
+       real, dimension(klon,klev)                ::  dua____dt          !  Wind Speed       (x-direc.)    TENDENCY, ALL Contribut.[m/s2] output commune MAR-LMD
+       real, dimension(klon,klev)                ::  dva____dt          !  Wind Speed       (y-direc.)    TENDENCY, ALL Contribut.[m/s2] output commune MAR-LMD
+       real, dimension(klon,klev)                ::  dqv____dt          !  Specific           Humidity    TENDENCY, ALL Contr. [kg/kg/s] output commune MAR-LMD
+       real, dimension(klon,klev)                ::  dqw____dt          !  Cloud Droplets Concentration   TENDENCY, ALL Contr. [kg/kg/s] dqx
+! #cw real, dimension(klon,klev)                 ::  dCw____dt          !  CCN            Concentration   TENDENCY, ALL Contr.  [1/kg/s] dqx
+       real, dimension(klon,klev)                ::  dqi____dt          !  Cloud Crystals Concentration   TENDENCY, ALL Contr. [kg/kg/s] dqx
+       real, dimension(klon,klev)                ::  dCi____dt          !  CIN            Concentration   TENDENCY, ALL Contr.  [1/kg/s] dqx
+       real, dimension(klon,klev)                ::  dCF____dt          !  Cloud Fraction                 TENDENCY, ALL Contr. [kg/kg/s] dqx
+       real, dimension(klon,klev)                ::  dqs____dt          !  Snow Particles Concentration   TENDENCY, ALL Contr. [kg/kg/s] dqx
+       real, dimension(klon,klev)                ::  dqr____dt          !  Rain Drops     Concentration   TENDENCY, ALL Contr. [kg/kg/s] dqx
+! #dT& real, dimension(klon,klev)                ::  dpktSV_dt          !  Reduced  Potential Temperature Tendency, SISVAT        [KX/s] 
+! #dT       real, dimension(klon,klev)           ::  dpktAT_dt          !  Reduced  Potential Temperature Tendency, Atm_AT        [KX/s] 
+! #dT       real, dimension(klon,klev)           ::  dqv_AT_dt          !  Specific           Humidity    TENDENCY, Atm_AT     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqw_AT_dt          !  Cloud Droplets Concentration   TENDENCY, Atm_AT     [kg/kg/s] dqx
+! #cw real, dimension(klon,klev)                 ::  dCw_AT_dt          !  CCN            Concentration   TENDENCY, Atm_AT         [1/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqi_AT_dt          !  Cloud Crystals Concentration   TENDENCY, Atm_AT     [kg/kg/s] dqx
+! #dT	   real, dimension(klon,klev)            ::  dCi_AT_dt          !  CIN            Concentration   TENDENCY, Atm_AT         [1/s] dqx
+! #dT	   real, dimension(klon,klev)            ::  dqs_AT_dt          !  Snow Particles Concentration   TENDENCY, Atm_AT     [kg/kg/s] dqx
+! #dT	   real, dimension(klon,klev)            ::  dqr_AT_dt          !  Rain Drops     Concentration   TENDENCY, Atm_AT     [kg/kg/s] dqx
+! #dT	   real, dimension(klon,klev)            ::  dpktCM_dt          !  Reduced  Potential Temperature Tendency, CMiPhy        [KX/s] dqx
+! #dT	   real, dimension(klon,klev)            ::  dqv_CM_dt          !  Specific           Humidity    TENDENCY, CMiPhy     [kg/kg/s] dqx
+! #dT	   real, dimension(klon,klev)            ::  dqw_CM_dt          !  Cloud Droplets Concentration   TENDENCY, CMiPhy     [kg/kg/s] dqx
+! #cw real, dimension(klon,klev)                 ::  dCw_CM_dt          !  CCN            Concentration   TENDENCY, CMiPhy         [1/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqi_CM_dt          !  Cloud Crystals Concentration   TENDENCY, CMiPhy     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dCi_CM_dt          !  CIN            Concentration   TENDENCY, CMiPhy         [1/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dCF_CM_dt          !  Cloud Fraction                 TENDENCY, CMiPhy         [1/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqs_CM_dt          !  Snow Particles Concentration   TENDENCY, CMiPhy     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqr_CM_dt          !  Rain Drops     Concentration   TENDENCY, CMiPhy     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dpktCP_dt          !  Reduced  Potential Temperature TENDENCY, CVAmnh        [KX/s] 
+! #dT       real, dimension(klon,klev)           ::  dqv_CP_dt          !  Specific           Humidity    TENDENCY, CVAmnh     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqw_CP_dt          !  Cloud Droplets Concentration   TENDENCY, CVAmnh     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dqi_CP_dt          !  Cloud Crystals Concentration   TENDENCY, CVAmnh     [kg/kg/s] dqx
+! #dT       real, dimension(klon,klev)           ::  dpktRT_dt          !  Reduced  Potential Temperature TENDENCY, radCEP        [KX/s]
+
+       integer,save                              ::  it0EXP             ! Incremente en fonction de debut et lafin. NB: MAR fait des restarts dans le Fortran, LMDZ avec des scripts shells. On suit ici la logique LMDZ. it0EXP et it0RUN sont donc identiques.
+       integer,save                              ::  it0RUN             ! Incremente en fonction de debut et lafin.
+       integer                                   ::  Year_H             !  Time                                                   [year]
+       integer                                   ::  Mon__H             !  Time                                                  [month]
+       integer                                   ::  Day__H             !  Time                                                    [Day]
+       integer                                   ::  Hour_H             !  Time                                                   [hour]
+       integer                                   ::  minu_H             !  Time                                                 [minute]
+       integer                                   ::  sec__H             !  Time                                                      [s]
+       integer                                   ::  ixq1,i0x0,mxqq     !  Domain  Dimension: x                                      [-]
+       integer                                   ::  jyq1,j0y0,myqq     !  Domain  Dimension: y                                      [-]
+       !integer                                   ::  klev              !  Domain  Dimension: z                                      [-] Commun à MAR et LMDZ
+       !integer                                   ::  klevp1            !  Domain  Dimension: z                                      [-] Commun à MAR et LMDZ
+       integer                                   ::  mwq                !  Domain  Dimension: mosaic                                 [-]
+       !integer                                   ::  klon              !  Domain  Dimension: x * y                                  [-] Commun à MAR et LMDZ
+       integer                                   ::  kcolw              !  Domain  Dimension: x * y * mosaic                         [-]
+       integer                                   ::  m_azim             !  Mountain Mask, nb of directions taken into account        [-]
+       integer,parameter                         ::  n0pt=1             !  nombre de points qui peuvent être choisis pour le fichier PHY____.OUT
+       integer, dimension(n0pt)                  ::  IOi0SV             !
+       integer, dimension(n0pt)                  ::  IOj0SV             !
+       real, dimension(klon)                     ::  sst__HOST          !  Ocean     FORCING (SST)                                   [K]
+! #IP real, dimension(klon)                       ::  sif__HOST          !  Ocean     FORCING (Sea-Ice Fraction )                     [-]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)    ::  s_T__HOST          !  A - O    COUPLING                      n=1: Open Ocean    [K]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)    ::  Alb__HOST          !  A - O    COUPLING (Surface Albedo   )  n=2: Sea  Ice      [-]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)    ::  dSdT2HOST          !  A - O    COUPLING ( d(SH Flux) / dT )                [W/m2/K]
+! #AO real, dimension(ixq1:mxqq,jyq1:myqq,mwq)    ::  dLdT2HOST          !  A - O    COUPLING ( d(SH Flux) / dT )                [W/m2/K]
+! #TC integer, parameter                          ::   ntrac  =  28      !
+! #TC real, dimension(ixq1:mxqq,jyq1:myqq,klev,ntrac) ::    qxTC             !  Aerosols: Atmospheric  Contentration
+! #TC real, dimension(ixq1:mxqq,jyq1:myqq    ,ntrac) ::    qsTC             !  Aerosols: Near Surface Contentration
+! #TC real, dimension(ixq1:mxqq,jyq1:myqq    ,ntrac) ::    uqTC             !  Aerosols: Surf.Flux
+
+!======================================================================
+! Variables locales:
+!======================================================================
+
+        real :: secondes ! pour le calcul de la date
+        integer :: i ! Pour les boucles
+        integer :: daysec ! Nombre de secondes dans ue journée
+        integer,save :: annee_ref ! Année du début de la simulation
+        !integer :: count_year ! le nombre d'années depuis le début de la simulation
+        !real,parameter :: epsilon = 1.e-6 ! pour le calcul du temps
+
+! Constantes définies comme dans MAR et utilisées ici:
+        real    ::  RdA        =  287.                 !  Perfect Gas Law Constant for Dry Air [J/kg/K]
+        real    ::  CpA        = 1004.                 !  Specific   Heat Capacity for Dry Air [J/kg/K]
+        real    ::  kap                                !  RdA/CpA                                   [-]
+
+! Pour l'initialisation:
+        real, dimension(klon) :: Ts___HOST ! Temperature de surface pour l'initialisation.
+        real, dimension(klon) :: pkt_DY_surf_tmp ! pkt de surface pour l'initialisation.
+        real, dimension(klon) :: qv_HOST_surf_tmp ! qv de surface pour l'initialisation.
+
+! Pour ecriture en netcdf
+       real, dimension(klon,klev) :: cldfra   ! CF___HOST vertically inverted
+
+!======================================================================
+!! Ecriture des sorties netcdf:
+!======================================================================
+
+! NB : La version de MAR utilisée ici ne permet pas d'écrire de sorties netcdf.
+! On n'utilise pas encore XIOS
+! En attendant, on utilise ici le classique ioipsl, ainsi que l'outil iotd de Frédéric Hourdin.
+
+if (debut) then ! Things to do only for the first call to physics
+! load initial conditions for physics (including the grid)
+  call phys_state_var_init() ! some initializations, required before calling phyetat0
+  call phyetat0("startphy.nc")
+
+! Initialize outputs:
+  itau0=0
+!$OMP MASTER
+  iwrite_phys_omp=1 !default: output every physics timestep
+  ! NB: getin() is not threadsafe; only one thread should call it.
+  call getin("iwrite_phys",iwrite_phys_omp)
+!$OMP END MASTER
+!$OMP BARRIER
+  iwrite_phys=iwrite_phys_omp
+  t_ops=pdtphys*iwrite_phys ! frequency of the IOIPSL operation
+  t_wrt=pdtphys*iwrite_phys ! frequency of the outputs in the file
+  ! compute zjulian for annee0=1979 and month=1 dayref=1 and hour=0.0
+  !CALL ymds2ju(annee0, month, dayref, hour, zjulian)
+  call getin('anneeref',anneeref)
+  call ymds2ju(anneeref, 1, 1, 0.0, zjulian)
+  annee_ref=anneeref ! On la sauve pour le reste de la simulation
+  dtime=pdtphys
+
+! Initialisation de iophy pour l'utilisation de iotd créé par Frédéric Hourdin
+  call iophys_ini ! NB: cette initialisation concerne l'ecriture de fichiers phys.nc dans PHY_MAR (rechercher iophys_ecrit)
+
+!Gilles : replace zjulian by jD_cur (if correct init of the year)
+! call histbeg_phy("histins.nc",itau0,zjulian,dtime,nhori,nid_hist)
+  call histbeg_phy("histins.nc",itau0,jD_cur,dtime,nhori,nid_hist)
+
+!$OMP MASTER
+
+  ! define vertical coordinate
+  call histvert(nid_hist,"presnivs","Vertical levels","Pa",klev, &
+                ppresnivs,zvertid,'down')
+  ! define variables which will be written in "histins.nc" file
+  call histdef(nid_hist,'temperature','Atmospheric temperature','K', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'pplay','atmospheric pressure','K', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'ps','Surface Pressure','Pa', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'qx_vap','specific humidity','kg/kg', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'qx_liq','atmospheric liquid water content','kg/kg', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'qx_ice','atmospheric ice content','kg/kg', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'u','Eastward Zonal Wind','m/s', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'v','Northward Meridional Wind','m/s', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'lonh','longitude','Hours', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'latr','latitude','radian', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'sst','Prescribed SST','K', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  ! Tendances physiques de MAR ; pour le developpement MAR-LMDZ:
+  call histdef(nid_hist,'d_t','Atmospheric temperature trends after MAR physics','K/s', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'d_u','Eastward Zonal Wind trend','m/s/s', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'d_v','Northward Meridional Wind trend','m/s/s', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  ! Définition de variables utilisée dans des sous-routines MAR
+  call histdef(nid_hist,'snow','snowfall convectif + stratiform','m', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'rain','rainfall convectif + stratiform','m', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'snowCP','snowfall convective','m', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'rainCP','rainfall convective','m', &
+               iim,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'nebulosity','CF___HOST','-', &
+               iim,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  ! end definition sequence
+  call histend(nid_hist)
+
+!XIOS
+#ifdef CPP_XIOS
+    ! Déclaration de l'axe vertical du fichier:    
+    !CALL wxios_add_vaxis("presnivs", "histins", klev, ppresnivs)
+
+    !Déclaration du pas de temps:
+    !CALL wxios_set_timestep(dtime)
+
+    !Finalisation du contexte:
+    !CALL wxios_closedef()
+#endif
+!$OMP END MASTER
+endif ! of if (debut)
+
+!======================================================================
+! Calcul de variables environnement nécessaires à la physique de MAR
+!======================================================================
+
+! NB : Calculs à faire avant l'initialisation de la physique
+
+! Calcul de constantes
+
+kap    = RdA  / CpA
+rpi  = 4.*ATAN(1.)
+daysec = 86400.
+
+! increment counter itau
+itau=itau+1
+
+PRINT*, 'dans physiq.F90 :'
+PRINT*, 'itau=',itau
+
+! set all tendencies to zero
+PRINT*, 'On initialise les tendances à zéro:'
+d_u(1:klon,1:klev)=0.
+d_v(1:klon,1:klev)=0.
+d_t(1:klon,1:klev)=0.
+d_qx(1:klon,1:klev,1:nqtot)=0.
+d_ps(1:klon)=0.
+
+! Allocation de tableaux:
+! Pour l'instant :
+m_azim=1 ! Azimuths pour le calcul des masques de montagne
+ALLOCATE(MMaskHOST(klon,m_azim)) !  Mountain Mask                                             [-]
+
+! Appeller iniaqua et phyetat0 pour l'état initial avant le transfert vers les variables MAR !
+! A faire pour lorsque l'on prendra en compte les continents
+
+! Timesteps pour MAR (définis ici à partir des pas de temps LMDZ). A modifier éventuellement (via les fichiers .def)
+! dt0_CP & dt0_RT modifiees ici selon Hubert avec daystep=720 ie dtdyn=2mn
+! pdtphys modifie via gcm.def avec iphysiq=1 & nsplit_phys=1
+dt0DYn=daysec/REAL(day_step)   !  Time Step, Dynamics                       [s]
+dt0_AT=pdtphys                 !  Time Step, SISVAT                         [s]
+dt0_SV=pdtphys                 !  Time Step, Atm_AT                         [s]
+dt0_CM=pdtphys                 !  Time Step, CMiPhy                         [s]
+dt0_CP=pdtphys*10              !  Time Step, CVAmnh                         [s]
+dt0_RT=pdtphys*20              !  Time Step, radCEP                         [s]
+
+! Correspondances de grilles: inutilisé car on utilise directement les variables LMD
+
+! Dans un premier temps, une seule mozaique:
+mwq=1
+
+kcolw=mwq*klon
+
+DO i=1,klon
+  IF (rlond(i) .LT. 0) THEN
+    lonh_HOST(i)=rlond(i)*12./rpi+24. ! from radians to hours
+   ELSE
+    lonh_HOST(i)=rlond(i)*12./rpi ! from radians to hours
+  ENDIF
+ENDDO
+latr_HOST(:)=rlatd(:) ! from radians to radians
+
+!PRINT*, 'lonh_HOST(:)=',lonh_HOST(:)
+!PRINT*, 'latr_HOST(:)=',latr_HOST(:)
+
+! Niveaux verticaux:
+! Attention, il faut faire un test pour vérifier si les coordonnées verticaux définis sont adéquats avec ceux de MAR!
+DO k = 1, klev
+  i=klev+1-k
+  IF (ap(k) .NE. 0) THEN
+    CALL abort_gcm('','MAR physic can be applied only with sigma levels, check vertical resolution in disvert.F90',1)
+   ELSE
+    s_HOST(i)=0.5*(bp(k)+bp(k+1))
+  ENDIF
+END DO
+s_HOST(klev+1)=1 ! Dans MAR, sigma est défini depuis tout en haut jusqu'à la surface. s_HOST doit être égal à 1 en surface.
+
+! En attendant que les routines PHY_____INI.F90, PHY_MAR_DAT.F90 et PHY_SISVAT_INP.F90 soient écrites selon un vecteur et non pas selon un tableau 2D lon-lat.
+! On utilise ici la grille physique de LMDZ, qui a la taille klon (en argument de la physique): 2 + (JJM-1)*IIM (soit 1682 pour une grille dynamique de 48*36 déclarée à la compilation).
+
+mxqq=iim
+myqq=jjm+1
+
+! Pour MAR, on a besoin des indices du premier point de la grille. Avec une grille globale, c'esty toujours (1,1):
+ixq1=1
+jyq1=1
+
+
+! Temps:
+IF (debut) THEN
+  it0EXP=1
+ ELSE
+  it0EXP=it0EXP+1
+ENDIF
+
+IF (debut) THEN
+  it0RUN=1
+ ELSE
+  it0RUN=it0RUN+1
+ENDIF
+
+! Pour l'instant, on ne peut démarrer une simulation seulement le 1er jour de l'année de référence:
+! Attention, ju2ymds ne donne pas l'année courante, mais compte les années de simulations à partir de 0 !!! A checker !!!
+CALL ymds2ju(annee_ref, 1, 1, 0.0, zjulian)
+!Gilles: zjulian already counted in jD_cur if year correctly initialised
+!CALL ju2ymds(jD_cur+jH_cur+zjulian,Year_H,Mon__H,Day__H,secondes)
+CALL ju2ymds(jD_cur+jH_cur,Year_H,Mon__H,Day__H,secondes)
+Hour_H=INT(secondes)/3600
+minu_H=(INT(secondes)-Hour_H*3600)/60
+!minu_H=INT((secondes-float(Hour_H)*3600.+epsilon)/60.) ! attention aux arrondis machine
+sec__H=INT(secondes)-(Hour_H*3600)-(minu_H*60)
+
+Print*,'CONTROL du temps avant d appeler la physique'
+Print*,'zjulian=',zjulian
+Print*,'annee_ref=',annee_ref
+Print*, 'jD_cur=',JD_cur
+Print*, 'jH_cur=',jH_cur
+Print*, 'Year_H=',Year_H
+Print*, 'Mon__H',Mon__H
+Print*, 'Day__H',Day__H
+Print*, 'secondes=',secondes
+Print*, 'Hour_H=',Hour_H
+Print*, 'minu_H=',minu_H
+Print*, 'sec__H=',sec__H
+Print*, 'klev=',klev
+Print*, 'klevp1=',klevp1
+Print*, 'nlev=',nlev
+Print*, 'nlon=',nlon
+Print*, 'klon=',klon
+PRINT*, 'RCp=',RCp
+
+! Coordonnées du point (en indice) pour lequel on imprime les sorties en ASCII dans le fichier PHY___________.OUT
+i0x0=23
+j0y0=48
+! Variable utilisée juste pour les outputs:
+IOi0SV(:)=1
+IOj0SV(:)=1
+
+! Variables inutilisees:
+dy___HOST=0.
+!CF___HOST=0. ! Pour l'instant pas utilisé, il faut tout de même l'initialiser?
+dCF____dt=0.
+
+
+!======================================================================
+! INITIALISATIONS MAR
+!======================================================================
+!
+! NB : les routines MAR ci-aprés doivent encore être travaillées. Ici, elles ne fonctionnent que pour une aquaplanète !
+
+       it_RUN = it0RUN
+       it_EXP = it0EXP
+
+       IF (it0RUN.LE.1)                                              THEN
+
+         PRINT*,'it0RUN=0; On appelle les routines d initialisation de la physique de MAR'
+
+! Initialization of Mod_PHY____grd
+! --------------------------------
+
+! Anciennes initialisations MAR
+
+         dxHOST = dx
+         DirAxX = DD_AxX
+         ixp1   = ixq1
+         i_x0   = i0x0
+         mxpp   = mxqq
+         jyp1   = jyq1
+         j_y0   = j0y0
+         mypp   = myqq
+         mzpp   = klevp1
+         kcolp  = klon
+         kcolv  = kcolw
+
+! Initialization of Mod_PHY_S0_grd
+! --------------------------------
+         ! Pour l'instant, en attendant du relief :
+         n_azim = m_azim
+
+! Initialization of Mod_SISVAT_grd (Mosaic Discretization only                                      )
+! -------------------------------- (       Discretization from Mod_SISVAT_dim : see PHY_SISVAT_ALLOC)
+
+          mwp    = mwq
+
+! Initialization of Mod_SISVAT_dat
+! --------------------------------
+! pour aquaplanete: FixedSST=1
+          VarSST = 0.
+
+! Initialization of Physical Constants and Allocation of main Variables
+! ---------------------------------------------------------------------
+
+! CONTROL
+PRINT*, 'Appel de PHY INI'
+!              **************
+         CALL PHY________INI
+!              **************
+
+
+! INPUT DATA surface et Calcul des dependances a des Points Horizontaux autres que le Point courant
+! =================================================================================================
+!
+
+! Pour l'instant, PHY_MAR_DAT n'est pas vectorisé, donc on initilise tout en dur pour l'aquaplanète.
+! Ultérieurement, il faudra lires les données topo de LMDZ pour renseigner ces variables à l'initialisation.
+
+PRINT*,'Initialisation en dur des variables topo pour une aquaplanete'
+sh___HOST(:)=0.00
+sh_a_HOST(:)=0.00
+dx___HOST(:)   = 1.e3
+dy___HOST(:)   = 1.e3
+slopxHOST(:)   = 0.00
+slopyHOST(:)   = 0.00
+slopeHOST(:)   = 0.00
+MMaskHOST(:,:) = 0.00
+
+! CONTROL
+!PRINT*, 'Appel de PHY MAR DAT'
+!          ***********
+!      CALL PHY_MAR_DAT(                                                &
+!!          ***********
+!&                 sh___HOST                                       &!  Topographie                                 [m]
+!&                ,sh_a_HOST                                       &!  Topographie, Anomalie                       [m]
+!&                ,dx___HOST                                       &!  Discretisation,   x                         [m]
+!&                ,dy___HOST                                       &!  Discretisation,   y                         [m]
+!&                ,slopxHOST                                       &!  Pente selon l'Axe x                         [-]
+!&                ,slopyHOST                                       &!  Pente selon l'Axe y                         [-]
+!&                ,slopeHOST                                       &!  Pente                                       [-]
+!&                ,MMaskHOST                                       &!  Masque de Montagnes                         [-]
+!&                ,ixq1,mxqq                                       &!
+!&                ,jyq1,myqq                                       &!
+!&                ,m_azim                                          &!
+!&                )
+
+! FIRST Initialization of the Surface Variables
+! =============================================
+
+
+! Initial Surface Temperature ( initialement dans DYN_to_PHY_MAR)
+! ---------------------------
+
+! CONTROL
+PRINT*, 'Calcul de Ts___HOST dans la physique'
+PRINT*, 'Initialisation de la temperature de surface avec les SST aquaplanète'
+          DO i = 1,klon
+            Ts___HOST(i)=273.+27.*(1-sin(1.5*rlatd(i))**2)
+            IF ((rlatd(i).GT.1.0471975).OR.(rlatd(i).LT.-1.0471975)) THEN
+              Ts___HOST(i)=273.
+            ENDIF
+
+             !PRINT*, 'Initialisation de la temperature de surface avec la temperature du premier niveau'
+             !Ts___HOST(i) = pkta_HOST(i,klevp1)*(psa__HOST(i)+ptop_HOST)**RCp
+             !Ts___HOST(i) = t(i,klev)
+          ENDDO
+
+! CONTROL
+PRINT*, 'Avant PHY SISVAT INP'
+PRINT*,'MAXVAL(Ts___HOST(:)=)',maxval(Ts___HOST(:))
+PRINT*,'MINVAL(Ts___HOST(:)=)',minval(Ts___HOST(:))
+PRINT*, 'Appel de PHY SISVAT INP'
+!              **************
+          CALL PHY_SISVAT_INP(FlagSV_SBC,Ts___HOST,klon)
+!              **************
+
+PRINT*, 'Apres PHY SISVAT INP'
+PRINT*,'MAXVAL(Ts___HOST(:)=)',maxval(Ts___HOST(:))
+PRINT*,'MINVAL(Ts___HOST(:)=)',minval(Ts___HOST(:))
+
+       END IF ! (it0RUN.LE.1)
+
+
+! Horizontal Interactions
+! ======================
+
+
+! Interface: DATA for Stand-Alone Version of the Physical Package
+! ===============================================================
+
+       IF  (.NOT. FlagRT .OR.                                           &
+      &     .NOT. FlagAT .OR.                                           &
+      &     .NOT. FlagCM)                                           THEN
+!     &     .NOT. FlagCP)                                            THEN
+! CONTROL
+PRINT*, 'Appel de PHY SISVAT UBC'
+!                **************
+           CALL   PHY_SISVAT_UBC(FlagRT,FlagAT,FlagCM,FlagCP)
+!                **************
+
+       END IF
+
+PRINT*, 'Apres PHY_SISVAT_UBC'
+Print*, 'mzp=',mzp
+Print*, 'mzpp=',mzpp
+
+!======================================================================
+! Calcul des inputs de MAR à partir de LMDZ
+!======================================================================
+
+! NB : Calculs à faire aprés l'initialisation de la physique du MAR
+
+PRINT*, 'Calcul des inputs de MAR à partir de LMDZ'
+
+! Correspondance ou transformation de variables:
+! RKAPPA=R/Cp dans un module LMD ;
+! Probleme, on n'a pas la temperature de surface dans les arguments !!! a voir avec Hubert comment on fait...
+!  En attendant, on prend la température du premier niveau au lieu de celle de la surface (idem pour le haut de l'atmosphère):
+! NB : Attention aux unités !
+
+IF (debut) THEN
+! On initialise avec la temperature du premier niveau au lieu de la temperature de surface à la première itération:
+   pkt_DY_surf_tmp(:)=t(:,1) / (pplay(:,1)/1000) ** kap
+   ELSE
+   pkt_DY_surf_tmp(:)=pkt_DY(:,klev+1)
+ENDIF
+
+pkta_HOST(:,klev+1)=pkt_DY_surf_tmp(:)
+DO k = 1, klev
+  i=klev+1-k
+  pkta_HOST(:,i) = t(:,k) / (pplay(:,k)/1000) ** kap
+END DO
+
+ptop_HOST=0.
+psa__HOST(:)=(paprs(:,1)-paprs(:,klev+1))/1000. ! [kPa]
+
+! Correspondance du géopotentiel entre LMDZ et MAR :
+
+! Aux niveaux:
+DO k = 1, klev
+  i=klev+1-k
+  gZa__HOST(:,i)=pphi(:,k)
+END DO
+gZa__HOST(:,klev+1)=pphis(:)
+
+! Aux inter-niveaux:
+DO k = 1, klev
+  gZam_HOST(:,k+1)=0.5*(gZa__HOST(:,k+1)+gZa__HOST(:,k))
+END DO
+gZam_HOST(:,1)=1.5*gZa__HOST(:,1)-0.5*gZa__HOST(:,2) ! Extrapolation au sommet de l'atmosphère
+DO k = 1, klev
+  i=klev+1-k
+  Ua___HOST(:,i)=u(:,k)
+  Va___HOST(:,i)=v(:,k)
+ENDDO
+
+! Calcul de vitesse verticale a partir de flux de masse verticale :
+DO k = 1, klev
+  i=klev+1-k
+  !omega(i,k) = RG*flxmass_w(i,k) / airephy(i) ! omega en Pa/s
+  Wa___HOST(:,i)=flxmass_w(:,k) / airephy(:) * (gZam_HOST(:,i+1) - gZam_HOST(:,i))/(paprs(:,k+1)-paprs(:,k)) ! Equilibre hydrostatique
+END DO
+Wa___HOST(:,klev)=0 ! Vitesse nulle à la surface.
+Wa___HOST(:,1)=0 ! Vitesse nulle au sommet.
+
+! Tendances:
+DO k = 1, klev
+  i=klev+1-k
+  dpkt___dt(:,i)=d_t(:,k) / (pplay(:,k)/1000) ** kap
+  dua____dt(:,i)=d_u(:,k)
+  dva____dt(:,i)=d_v(:,k)
+ENDDO
+
+
+DO k = 1, klev
+  i=klev+1-k
+
+! Traceurs:
+  qv___HOST(:,i)=qx(:,k,ivap)          !  Specific Humidity                                     [kg/kg]
+  qw___HOST(:,i)=qx(:,k,iliq)          !  Cloud Droplets Concentration                          [kg/kg] 
+  qi___HOST(:,i)=qx(:,k,iice)          !  Cloud Crystals Concentration                          [kg/kg]
+  CIN__HOST(:,i)=qx(:,k,icin)          !  CIN            Concentration                           [-/kg]
+  qs___HOST(:,i)=qx(:,k,isnow)         !  Snow Particles Concentration                          [kg/kg]
+  qr___HOST(:,i)=qx(:,k,irain)         !  Rain Drops     Concentration                          [kg/kg]
+  TKE__HOST(:,i)=qx(:,k,itke)          !  Turbulent Kinetic Energy                              [m2/s2]
+  eps__HOST(:,i)=qx(:,k,itked)         !  Turbulent Kinetic Energy Dissipation                  [m2/s3]
+  ! #cw CCN__HOST(:,:)=qx(:,:,iccn)    !  CCN            Concentration                           [-/kg]
+
+END DO
+
+! Dans MAR, qv(klev+1)=qv(klev)
+IF (debut) THEN
+  ! On initialise avec le qv du premier niveau au lieu du qv de surface à la première itération:
+    qv_HOST_surf_tmp(:)=qv___HOST(:,klev)
+   ELSE
+    qv_HOST_surf_tmp(:)=qv__DY(:,klev+1)
+ENDIF
+qv___HOST(:,klev+1)=qv_HOST_surf_tmp(:)  !  Specific Humidity                                     [kg/kg]
+
+DO k = 1, klev
+  i=klev+1-k
+
+! Dérivée des traceurs:
+dqv____dt(:,i)=d_qx(:,k,ivap)        !  Specific           Humidity    TENDENCY, ALL Contr. [kg/kg/s]
+dqw____dt(:,i)=d_qx(:,k,iliq)        !  Cloud Droplets Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+dqi____dt(:,i)=d_qx(:,k,iice)        !  Cloud Crystals Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+dCi____dt(:,i)=d_qx(:,k,icin)        !  CIN            Concentration   TENDENCY, ALL Contr.  [1/kg/s]
+dqs____dt(:,i)=d_qx(:,k,isnow)       !  Snow Particles Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+dqr____dt(:,i)=d_qx(:,k,irain)       !  Rain Drops     Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+! #cw dCw____dt                      !  CCN            Concentration   TENDENCY, ALL Contr.  [1/kg/s]
+
+END DO
+
+!======================================================================
+! Test Aquaplanète:
+!======================================================================
+
+! CONTROL
+PRINT*, 'Calcul des SST en aquaplanète pour MAR comme dans le cas n°101 de LMDZ' ! (cf iniaqua de LMDZ)
+!IF (debut) THEN
+  DO i=1,klon
+    sst__HOST(i)=273.+27.*(1-sin(1.5*rlatd(i))**2)
+    IF ((rlatd(i).GT.1.0471975).OR.(rlatd(i).LT.-1.0471975)) THEN
+      sst__HOST(i)=273.
+    ENDIF
+  ENDDO
+!ENDIF
+
+!======================================================================
+! CONTROL
+!======================================================================
+PRINT*, 'Control variables LMDZ entree de la physique'
+PRINT*,'MAXVAL(pplay(:,klev))=',MAXVAL(pplay(:,klev))
+PRINT*,'MINVAL(pplay(:,klev))=',MINVAL(pplay(:,klev))
+PRINT*,'MAXVAL(t(:,klev))=',MAXVAL(t(:,klev))
+PRINT*,'MINVAL(t(:,klev))=',MINVAL(t(:,klev))
+PRINT*,'MAXVAL(pplay(:,1))=',MAXVAL(pplay(:,1))
+PRINT*,'MINVAL(pplay(:,1))=',MINVAL(pplay(:,1))
+PRINT*,'MAXVAL(t(:,1))=',MAXVAL(t(:,1))
+PRINT*,'MINVAL(t(:,1))=',MINVAL(t(:,1))
+PRINT*,'MAXVAL(pplay)=',MAXVAL(pplay)
+PRINT*,'MINVAL(pplay)=',MINVAL(pplay)
+PRINT*,'MAXVAL(t)=',MAXVAL(t)
+PRINT*,'MINVAL(t)=',MINVAL(t)
+PRINT*,'MAXVAL(pphis)=',MAXVAL(pphis)
+PRINT*,'MINVAL(pphis)=',MINVAL(pphis)
+PRINT*,'kap=',kap 
+PRINT*, 'CONTROL variables MAR entree de la physique'
+PRINT*,'MAXVAL(pkta_HOST)=',MAXVAL(pkta_HOST)
+PRINT*,'MAXVAL(psa__HOST)=',MAXVAL(psa__HOST)
+PRINT*,'MAXVAL(gZa__HOST)=',MAXVAL(gZa__HOST)
+PRINT*,'MAXVAL(gZam_HOST)=',MAXVAL(gZam_HOST)
+PRINT*,'MAXVAL(Ua___HOST)=',MAXVAL(Ua___HOST)
+PRINT*,'MAXVAL(Va___HOST)=',MAXVAL(Va___HOST)
+PRINT*,'MAXVAL(qv___HOST)=',MAXVAL(qv___HOST)
+PRINT*,'MINVAL(pkta_HOST)=',MINVAL(pkta_HOST)
+PRINT*,'MINVAL(psa__HOST)=',MINVAL(psa__HOST)
+PRINT*,'MINVAL(gZa__HOST)=',MINVAL(gZa__HOST)
+PRINT*,'MINVAL(gZam_HOST)=',MINVAL(gZam_HOST)
+PRINT*,'MINVAL(Ua___HOST)=',MINVAL(Ua___HOST)
+PRINT*,'MINVAL(Va___HOST)=',MINVAL(Va___HOST)
+PRINT*,'MINVAL(qv___HOST)=',MINVAL(qv___HOST)
+PRINT*,'Control iterations:'
+PRINT*,'it0RUN=',it0RUN
+PRINT*,'it0EXP=',it0EXP
+PRINT*,'it_RUN=',it_RUN
+PRINT*,'it_EXP=',it_EXP
+
+! On choisi l'endroit où on fait les diagnostics de verification MAR (fichier ASCII):
+! Pour la phase de débug, on cherche des Nan !
+
+DO i=1,klon
+  DO k=1,klev
+    IF (isnan(Va___HOST(i,k))) THEN
+      ikl0 = i
+      PRINT*,'Attention : NaN at'
+      PRINT*,'longitude=',rlond(i)*180/rpi
+      PRINT*,'latitude=',rlatd(i)*180/rpi
+    ENDIF
+  ENDDO
+ENDDO
+
+!======================================================================
+! Appel de PHY_MAR
+!======================================================================
+
+! NB: Logiquement, il faut conserver cet appel tel quel, car Hubert Gallée s'engage à ne pas le changer lors des mises à jour !
+
+! CONTROL
+PRINT*, 'Appel de PHY MAR'
+!PRINT*, 'FlagSV     =',FlagSV
+!PRINT*, 'FlagSV_Veg =',FlagSV_Veg
+!PRINT*, 'FlagSV_SNo =',FlagSV_SNo
+!PRINT*, 'FlagSV_BSn =',FlagSV_BSn
+!PRINT*, 'FlagSV_KzT =',FlagSV_KzT
+!PRINT*, 'FlagSV_SWD =',FlagSV_SWD
+!PRINT*, 'FlagSV_SBC =',FlagSV_SBC
+!PRINT*, 'FlagSV_UBC =',FlagSV_UBC
+!PRINT*, 'FlagAT     =',FlagAT
+
+      CALL  PHY_MAR(FlagSV                                        &   ! FLAG  for SISVAT: (T,F) =                    (active OR NOT)
+&                  ,FlagSV_Veg                                    &   ! FLAG  for SISVAT: (T,F) =       (Variable Vegetation OR NOT)
+&                  ,FlagSV_SNo                                    &   ! FLAG  for SISVAT: (T,F) =         (Snow Model active OR NOT)
+&                  ,FlagSV_BSn                                    &   ! FLAG  for SISVAT: (T,F) = (Blowing Snow Model active OR NOT)
+&                  ,FlagSV_KzT                                    &   ! FLAG  for SISVAT: (T,F) = (pkt Turb.Transfert active OR NOT in SISVAT)
+&                  ,FlagSV_SWD                                    &   ! FLAG  for SISVAT: (T,F) = (Modify SW INPUT->downward OR NOT)      
+&                  ,FlagSV_SBC                                    &   ! FLAG  for SISVAT: (T,F) = (INPUT of Soil & Vege DATA OR NOT in SISVAT)
+&                  ,FlagSV_UBC                                    &   ! FLAG  for SISVAT: (T,F) = (pkt UpperBC is Von Neuman OR NOT in SISVAT)
+&                  ,FlagAT                                        &   ! FLAG  for Atm_AT: (T,F) = (Turbulent Transfer active OR NOT)
+&                  ,TypeAT                                        &   ! TYPE  of  Atm_AT: (e= Ee Duynkerke, K= Ee Kitada, L= EL, H= Ee Huan-R)
+&                  ,FlagAT_TKE                                    &   ! FLAG  for genTKE: (T,F) = (TKE-e     Model    active OR NOT)
+&                  ,FlagCM                                        &   ! FLAG  for CMiPhy: (T,F) = (Cloud Microphysics active OR NOT)
+&                  ,FlagCM_UpD                                    &   ! FLAG  for CMiPhy: (T,F) = (qv & hydrometeors updated OR NOT IN CMiPhy)
+&                  ,FlagCP                                        &   ! FLAG  for Convection Paramet.
+&                  ,FlagRT                                        &   ! FLAG  for Radiative Transfer
+&                  ,FlagS0_SLO                                    &   ! FLAG  for Insolation, Surfac.Slope                 Impact  included  NEW
+&                  ,FlagS0_MtM                                    &   ! FLAG  for Insolation, Surfac.Slope & Mountain Mask Impacts included  NEW
+&                  ,Flag_O                                        &   ! FLAG  for OUTPUT
+&                  ,FlagVR                                        &   ! FLAG  for OUTPUT for VERIFICATION
+&                  ,dt0DYn                                        &   ! Time STEP between 2 CALLs of PHY_MAR                     [s] I, fix
+&                  ,dt0_SV                                        &   ! Time STEP between 2 CALLs of SISVAT                      [s] I, fix
+&                  ,dt0_AT                                        &   ! Time STEP between 2 CALLs of Atm_AT                      [s] I, fix
+&                  ,dt0_CM                                        &   ! Time STEP between 2 CALLs of CMiPhy                      [s] I, fix
+&                  ,dt0_CP                                        &   ! Time STEP between 2 CALLs of CVamnh                      [s] I, fix
+&                  ,dt0_RT                                        &   ! Time STEP between 2 CALLs of radCEP                      [s] I, fix
+&                  ,dx                                            &   ! Grid  Mesh size (Horizontal)                             [m] I, fix
+&                  ,DD_AxX                                        &   ! Grid  x-Axis Direction                              [degree] I, fix
+&                  ,s_HOST                                        &   ! Grid (Vertical)   of HOST (NORMALIZED PRESSURE assumed)  [-] I, fix
+&                  ,sh___HOST                                     &   ! Topography                                               [m] I, fix
+&                  ,sh_a_HOST                                     &   ! Topography Anomaly                                       [m] I, fix  NEW
+&                  ,slopxHOST                                     &   ! Slope, x-direction                                       [-] I, fix  NEW
+&                  ,slopyHOST                                     &   ! Slope, y-direction                                       [-] I, fix  NEW
+&                  ,slopeHOST                                     &   ! Slope                                                    [-] I, fix  NEW
+&                  ,MMaskHOST                                     &   ! Mountain Mask                                            [-] I, fix  NEW
+&                  ,lonh_HOST                                     &   ! Longitude                                             [hour] I, fix
+&                  ,latr_HOST                                     &   ! Latitude                                            [radian] I, fix
+&                  ,pkta_HOST                                     &   ! Reduced Potential Temperature                           [XK] I, O
+&                  ,ptop_HOST                                     &   ! Pressure, Model Top                                    [kPa] I, fix
+&                  ,psa__HOST                                     &   ! Pressure  Thickness                                    [kPa] I
+&                  ,gZa__HOST                                     &   ! Geopotential Height                                  [m2/s2] I
+&                  ,gZam_HOST                                     &   ! Geopotential Height, mid-level                       [m2/s2] I
+&                  ,Ua___HOST                                     &   ! Wind ,  x-Direction                                    [m/s] I
+&                  ,Va___HOST                                     &   ! Wind ,  y-Direction                                    [m/s] I
+&                  ,Wa___HOST                                     &   ! Wind ,  z-Direction                                    [m/s] I
+&                  ,qv___HOST                                     &   ! Specific  Humidity                                   [kg/kg] I, O 
+&                  ,qw___HOST                                     &   ! Cloud Droplets Concentration                         [kg/kg] I, O 
+! #cw&             ,CCN__HOST                                     &   ! CCN            Concentration                          [-/kg] 
+&                  ,qi___HOST                                     &   ! Cloud Crystals Concentration                         [kg/kg] I, O
+&                  ,CIN__HOST                                     &   ! CIN            Concentration                          [-/kg] I, O 
+&                  ,CF___HOST                                     &   ! Cloud Fraction                                           [-] I, O 
+&                  ,qs___HOST                                     &   ! Snow Particles Concentration                         [kg/kg] I, O 
+&                  ,qr___HOST                                     &   ! Rain Drops     Concentration                         [kg/kg] I, O 
+&                  ,TKE__HOST                                     &   ! Turbulent Kinetic Energy                             [m2/s2] I, O
+&                  ,eps__HOST                                     &   ! Turbulent Kinetic Energy Dissipation                 [m2/s3] I, O
+&                  ,dpkt___dt                                     &   ! Reduced Potential Temperature TENDENCY, ALL Contribut.[KX/s]    O
+&                  ,dua____dt                                     &   ! Wind Speed       (x-direc.)   TENDENCY, ALL Contribut.[m/s2]    O
+&                  ,dva____dt                                     &   ! Wind Speed       (y-direc.)   TENDENCY, ALL Contribut.[m/s2]    O
+&                  ,dqv____dt                                     &   ! Specific          Humidity    TENDENCY, ALL Contr. [kg/kg/s]    O
+&                  ,dqw____dt                                     &   ! Cloud Droplets Concentration  TENDENCY, ALL Contr. [kg/kg/s]    O
+! #cw&                  ,dCw____dt                                     &   ! CCN            Concentration  TENDENCY, ALL Contr.     [1/s]
+&                  ,dqi____dt                                     &   ! Cloud Crystals Concentration  TENDENCY, ALL Contr. [kg/kg/s]    O
+&                  ,dCi____dt                                     &   ! CIN            Concentration  TENDENCY, ALL Contr.     [1/s]    O
+&                  ,dCF____dt                                     &   ! Cloud Fraction                TENDENCY, ALL Contr.     [1/s]    O
+&                  ,dqs____dt                                     &   ! Snow Particles Concentration  TENDENCY, ALL Contr. [kg/kg/s]    O
+&                  ,dqr____dt                                     &   ! Rain Drops     Concentration  TENDENCY, ALL Contr. [kg/kg/s]   O
+! #dT&                  ,dpktSV_dt                                     &   ! Reduced Potential Temperature TENDENCY, SISVAT        [KX/s]  (O)
+! #dT&                  ,dpktAT_dt                                     &   ! Reduced Potential Temperature TENDENCY, Atm_AT        [KX/s]  (O)
+! #dT&                  ,dqv_AT_dt                                     &   ! Specific          Humidity    TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqw_AT_dt                                     &   ! Cloud Droplets Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqi_AT_dt                                     &   ! Cloud Crystals Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqs_AT_dt                                     &   ! Snow Particles Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #dT&                  ,dqr_AT_dt                                     &   ! Rain Drops     Concentration  TENDENCY, Atm_AT     [kg/kg/s]  (O)
+! #cw&                  ,dCw_AT_dt                                     &   ! CCN            Concentration  TENDENCY, Atm_AT         [1/s]  (O)
+! #dT&                  ,dCi_AT_dt                                     &   ! CIN            Concentration  TENDENCY, Atm_AT         [1/s]  (O)
+! #dT&                  ,dpktCM_dt                                     &   ! Reduced Potential Temperature TENDENCY, CMiPhy        [KX/s]  (O)
+! #dT&                  ,dqv_CM_dt                                     &   ! Specific          Humidity    TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dqw_CM_dt                                     &   ! Cloud Droplets Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dCF_CM_dt                                     &   ! Cloud Fraction                TENDENCY, CMiPhy         [1/s]  (O)
+! #dT&                  ,dqi_CM_dt                                     &   ! Cloud Crystals Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dqs_CM_dt                                     &   ! Snow Particles Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #dT&                  ,dqr_CM_dt                                     &   ! Rain Drops     Concentration  TENDENCY, CMiPhy     [kg/kg/s]  (O)
+! #cw&                  ,dCw_CM_dt                                     &   ! CCN            Concentration  TENDENCY, CMiPhy         [1/s]  (O)
+! #dT&                  ,dCi_CM_dt                                     &   ! CIN            Concentration  TENDENCY, CMiPhy         [1/s]  (O)
+! #dT&                  ,dpktCP_dt                                     &   ! Reduced Potential Temperature TENDENCY, CVAmnh        [KX/s]  (O)
+! #dT&                  ,dqv_CP_dt                                     &   ! Specific          Humidity    TENDENCY, CVAmnh     [kg/kg/s]  (O)
+! #dT&                  ,dqw_CP_dt                                     &   ! Cloud Droplets Concentration  TENDENCY, CVAmnh     [kg/kg/s]  (O)
+! #dT&                  ,dqi_CP_dt                                     &   ! Cloud Crystals Concentration  TENDENCY, CVAmnh     [kg/kg/s]  (O)
+! #dT&                  ,dpktRT_dt                                     &   ! Reduced Potential Temperature TENDENCY, radCEP        [KX/s]  (O)
+&                  ,sst__HOST                                     &   ! Ocean     FORCING (SST)                                  [K] I
+! #IP&                  ,sif__HOST                                     &   ! Ocean     FORCING (Sea-Ice Fraction )                    [-] I
+! #AO&                  ,s_T__HOST                                     &   ! Ocean    COUPLING (Surface Temperat.)  n=1: Open Ocean   [-] I,NEMO
+! #AO&                  ,Alb__HOST                                     &   ! Ocean    COUPLING (Surface Albedo   )  n=2: Sea  Ice     [-] I,NEMO
+! #AO&                  ,dSdT2HOST                                     &   ! Ocean    COUPLING ( d(SH Flux) / dT )               [W/m2/K]   O
+! #AO&                  ,dLdT2HOST                                     &   ! Ocean    COUPLING ( d(LH Flux) / dT )               [W/m2/K]   O
+!dead&                  ,it0EXP,it0RUN                                 &   ! Iteration
+&                  ,Year_H,Mon__H,Day__H,Hour_H,minu_H,sec__H     &   ! Time
+&                  ,ixq1  ,i0x0  ,mxqq                            &   ! Domain  Dimension: x
+&                  ,jyq1  ,j0y0  ,myqq                            &   ! Domain  Dimension: y
+&                  ,klev   ,klevp1                                   &   ! Domain  Dimension: z
+&                  ,mwq                                           &   ! Domain  Dimension: mosaic
+&                  ,klon                                         &   ! Domain  Dimension: x * y                                             NEW
+&                  ,kcolw                                         &   ! Domain  Dimension: x * y * mosaic                                    NEW
+&                  ,m_azim                                        &   ! Mountain Mask, nb of directions taken into account       [-]         NEW
+&                  ,IOi0SV,IOj0SV,n0pt)                               ! Indices of OUTPUT Grid Point
+!                *******
+
+!======================================================================
+! On renvoie les variables nécessaires à la dynamique de LMDZ:
+!======================================================================
+
+PRINT*, 'On est sorti de PHY_MAR, on peut actualiser les variables pour LMDZ'
+
+d_ps(:)=0.0           ! d_ps----output-R-tendance physique de la pression au sol ! égal à zéro sur la terre (car on néglige la perte de poid de la colonne lorsqu'il pleut).
+
+DO k = 1, klev
+  i=klev+1-k
+
+  d_u(:,k)=dua____dt(:,i) ! d_u-----output-R-tendance physique de "u" (m/s/s)
+  d_v(:,k)=dva____dt(:,i) ! d_v-----output-R-tendance physique de "v" (m/s/s)
+  d_t(:,k)=dpkt___dt(:,i)*(pplay(:,k)/1000) ** kap !d_t(:,:)= ! d_t-----output-R-tendance physique de "t" (K/s). Note: la pression ne change pas au cours de la physique.
+  ! d_qx----output-R-tendance physique de "qx" (kg/kg/s):
+  d_qx(:,k,ivap)=dqv____dt(:,i)        !  Specific           Humidity    TENDENCY, ALL Contr. [kg/kg/s]
+  d_qx(:,k,iliq)=dqw____dt(:,i)        !  Cloud Droplets Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+  d_qx(:,k,iice)=dqi____dt(:,i)        !  Cloud Crystals Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+  d_qx(:,k,icin)=dCi____dt(:,i)        !  CIN            Concentration   TENDENCY, ALL Contr.  [1/kg/s]
+  d_qx(:,k,isnow)=dqs____dt(:,i)       !  Snow Particles Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+  d_qx(:,k,irain)=dqr____dt(:,i)       !  Rain Drops     Concentration   TENDENCY, ALL Contr. [kg/kg/s]
+  ! #cw dCw____dt                      !  CCN            Concentration   TENDENCY, ALL Contr.  [1/kg/s]
+  cldfra(:,k)=CF___HOST(:,i)        ! cloud fraction
+
+END DO
+
+! Heat flux at surface (diagnostic)
+      HsenSV_gpt(:) = -uts_SV_gpt(:) *1.e-3 *1005.    ! sensible heat flx in W/m2
+      HLatSV_gpt(:) = -uqs_SV_gpt(:) *1.e-3 *2.5e6    ! latent heat flx in W/m2
+
+! Question à Hubert : tendences de TKE non nécessaires ? Réponse: la TKE est mise à jour dans la physique, on n'a pas besoin de transporter la dérivée de TKE dans la dynamique.
+
+! On désalloue les tableaux:
+DEALLOCATE(MMaskHOST) ! Est-ce qu'il faut le faire ?
+
+PRINT*, 'Control des tendances aprés la physique de MAR'
+
+PRINT*, 'maxval(d_u)=',maxval(d_u)
+PRINT*, 'maxval(d_v)=',maxval(d_v)
+PRINT*, 'maxval(d_t)=',maxval(d_t)
+PRINT*, 'maxval(paprs(:,1))=',maxval(paprs(:,1))
+PRINT*, 'minval(d_u)=',minval(d_u)
+PRINT*, 'minval(d_v)=',minval(d_v)
+PRINT*, 'minval(d_t)=',minval(d_t)
+PRINT*, 'minval(paprs(:,1))=',minval(paprs(:,1))
+PRINT*,'Test snowCM'
+PRINT*,'MAXVAL(snowCM)=',MAXVAL(snowCM)
+PRINT*,'MAXVAL(rainCM)=',MAXVAL(rainCM)
+PRINT*,'maxval(cldfra)=',maxval(cldfra)
+PRINT*,'minval(cldfra)=',minval(cldfra)
+
+!======================================================================
+! Ecriture des sorties netcdf
+!======================================================================
+
+PRINT*, 'On ecrit les variables dans un fichier netcdf instantané'
+! write some outputs:
+if (debut) then ! On imprime les variables de sortie intemporelles seulement au début
+  !call iophys_ini
+  call histwrite_phy(nid_hist,.false.,"lonh",itau,lonh_HOST)
+  call histwrite_phy(nid_hist,.false.,"latr",itau,latr_HOST)
+  call histwrite_phy(nid_hist,.false.,"sst",itau,sst__HOST)
+endif
+if (modulo(itau,iwrite_phys)==0) then
+  call histwrite_phy(nid_hist,.false.,"temperature",itau,t)
+  call histwrite_phy(nid_hist,.false.,"pplay",itau,pplay)
+  call histwrite_phy(nid_hist,.false.,"ps",itau,paprs(:,1))
+  call histwrite_phy(nid_hist,.false.,"qx_vap",itau,qx(:,:,ivap))
+  call histwrite_phy(nid_hist,.false.,"qx_liq",itau,qx(:,:,iliq))
+  call histwrite_phy(nid_hist,.false.,"qx_ice",itau,qx(:,:,iice))
+  call histwrite_phy(nid_hist,.false.,"u",itau,u)
+  call histwrite_phy(nid_hist,.false.,"v",itau,v)
+  call histwrite_phy(nid_hist,.false.,"d_t",itau,d_t)
+  call histwrite_phy(nid_hist,.false.,"d_u",itau,d_u)
+  call histwrite_phy(nid_hist,.false.,"d_v",itau,d_v)
+  call histwrite_phy(nid_hist,.false.,"snow",itau,SnowCM)
+  call histwrite_phy(nid_hist,.false.,"rain",itau,RainCM)
+  call histwrite_phy(nid_hist,.false.,"snowCP",itau,snowCP)
+  call histwrite_phy(nid_hist,.false.,"rainCP",itau,rainCP)
+  call histwrite_phy(nid_hist,.false.,"nebulosity",itau,cldfra)
+endif
+
+!XIOS
+#ifdef CPP_XIOS
+!$OMP MASTER
+    !On incrémente le pas de temps XIOS
+    !CALL wxios_update_calendar(itau)
+
+    !Et on écrit, avec la routine histwrite dédiée:
+    !CALL histwrite_phy("temperature",t)
+    !CALL histwrite_phy("u",u)
+    !CALL histwrite_phy("v",v)
+    !CALL histwrite_phy("ps",paprs(:,1))
+!$OMP END MASTER
+#endif
+!
+! On synchronise la fin de l'écriture du fichier à chaque pas de temps pour que le fichier soit OK même si le code plante...
+CALL histsync(nid_hist)
+
+PRINT*, 'Fin de physiq.f90'
+
+      return
+      end
+
+! sub-routine inutilisée :
+
+!SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
+!     IMPLICIT none
+!  
+!  Tranformer une variable de la grille physique a
+!  la grille d'ecriture
+!      INTEGER nfield,nlon,iim,jjmp1, jjm
+!      REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield)
+!      INTEGER i, n, ig
+!      jjm = jjmp1 - 1
+!      DO n = 1, nfield
+!        DO i=1,iim
+!             ecrit(i,n) = fi(1,n)
+!,            ecrit(i+jjm*iim,n) = fi(nlon,n)
+!        ENDDO
+!        DO ig = 1, nlon - 2
+!             ecrit(iim+ig,n) = fi(1+ig,n)
+!        ENDDO
+!      ENDDO
+!RETURN
+!END
Index: LMDZ5/branches/testing/libf/phymar/qsat.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/qsat.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/qsat.F90	(revision 2160)
@@ -0,0 +1,27 @@
+subroutine qsat (dq, q, e, p, t, r)
+
+#include "tsmbkind.h"
+
+implicit none
+
+REAL_B :: DQ, Q, E, P, T, R, TF, A, B
+
+tf=273.16_JPRB
+if (t.gt.tf) then
+  a = 17.269_JPRB
+  b = 35.86_JPRB
+else
+  a = 21.874_JPRB
+  b = 7.66_JPRB
+end if  
+e = 6.11_JPRB  * exp(a*(t-tf)/(t-b))
+q = 0.622_JPRB * r*e/(p-r*e)
+dq=a*p*q*(tf-b)
+dq=dq/((p-r*e)*(t-b)*(t-b))
+
+!print 9001, P,T,R,A,B,E,Q
+9001 format (1x,'QSAT ',5F10.3,2E12.5)
+
+!----------------------------------------
+return
+end subroutine qsat
Index: LMDZ5/branches/testing/libf/phymar/qv_sat.f90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/qv_sat.f90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/qv_sat.f90	(revision 2160)
@@ -0,0 +1,74 @@
+      function qv_sat(TTK,ss,pstar,pt,lsf)
+
+!--------------------------------------------------------------------------+
+!   MAR PHYSICS                                         Mc 30-05-2007  MAR |
+!     Function qv_sat computes the Saturation Specific Humidity    (kg/kg) |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     INPUT :   TTK            : Air Temperature                       (K) |
+!     ^^^^^^^   pstar * ss + pt: Pressure of sigma level ss          (kPa) |
+!                                                                          |
+!     OUTPUT :  e__sat: Saturation Vapor    Pressure                 (hPa) |
+!     ^^^^^^^   qv_sat: Saturation Specific Humidity               (kg/kg) |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+      IMPLICIT NONE
+
+
+! Global Variables
+! ================
+
+      real     ::  qv_sat
+      real     ::  TTK   
+      real     ::  ss    
+      real     ::  pstar 
+      real     ::  pt    
+      integer  ::  lsf
+
+
+! Local  Variables
+! ================
+
+      real     ::  pr    
+      real     ::  e__sat
+      real     ::  r273p1 = 273.16
+      real     ::  zer0   =   1.00
+      real     ::  un_1   =   1.00
+      real     ::  eps9   =   1.e-9
+      real     ::  pr__75 =  75.00
+      real     ::  pr_b75
+
+
+! Saturation Vapor    Pressure
+! ============================
+
+
+      pr   = 10.d0 *(pstar *ss + pt)                                    !  pressure (hPa)
+
+      IF (TTK.ge.273.16d0.or.lsf.eq.0)                              THEN
+
+        e__sat =  6.1078d0 * exp (5.138d0*log(  r273p1     /TTK))      &!  saturated vapor pressure with respect to water
+     &                     * exp (6827.d0*(un_1/r273p1-un_1/TTK))       !  Dudhia (1989) JAS, (B1) and (B2) p.3103
+                                                                        !  See also Pielke (1984), p.234 and Stull (1988), p.276 
+
+      ELSE
+        e__sat =  6.107d0  * exp (6150.d0*(un_1/r273p1-un_1/TTK))       !  saturated vapor pressure with respect to ice
+                                                                        !  Dudhia (1989) JAS, (B1) and (B2) p.3103
+      END IF
+
+        pr_b75 = max(zer0  ,           sign(un_1,pr - pr__75))
+
+
+
+!       ******
+        qv_sat = pr_b75*max(eps9  , .622d0*e__sat/(pr-.378d0*e__sat))  &!
+     &    + (1.0-pr_b75)  * 1.e-3                                       !
+!       ******
+
+
+
+      return
+      end      
Index: LMDZ5/branches/testing/libf/phymar/radCEP.inc
===================================================================
--- LMDZ5/branches/testing/libf/phymar/radCEP.inc	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/radCEP.inc	(revision 2160)
@@ -0,0 +1,2 @@
+      integer   klonr       ,klevr   ,nn_aer,nae
+      parameter(klonr=13538,klevr=39,nn_aer=6)
Index: LMDZ5/branches/testing/libf/phymar/radaca.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/radaca.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/radaca.F90	(revision 2160)
@@ -0,0 +1,638 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE RADACA &
+ &( KIDIA , KFDIA , KLON , KTDIA , KLEV &
+ &, PAPRS , PGELAM, PSIN  , PCLON, PSLON , PTH &
+ &, PAER  , POZON &
+ &)
+
+!***********************************************************************
+! CAUTION: THIS ROUTINE WORKS ONLY ON A NON-ROTATED, UNSTRETCHED GRID
+!***********************************************************************
+
+!**** *RADACA  - COMPUTES DISTRIBUTION OF AEROSOLS AND OZONE
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *RADACA* FROM *RADINT*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    91/03/15
+
+!     MODIFICATIONS.
+!     --------------
+!     J.-J. MORCRETTE  E.C.M.W.F.    93/03/15   OPERATIONAL CLIMATOLOGY
+!     JJMorcrette 98-12-21 GISS volcanic aerosol climatology
+!     JJMorcrette 99-09    monthly climatology of tropospheric aerosols
+
+!     ADAPTATION TO zahir.idris.fr
+!     ----------------------------
+!     HGallée     04-11-17 Definition of the arguments 2 & 3 of LEGTRI
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : R        ,RPI
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED   ,&
+            &RCAEOPS  ,RCAEOPL  ,RCAEOPU  ,RCAEOPD  ,RCTRBGA  ,&
+            &RCVOBGA  ,RCSTBGA  ,RCTRPT   ,RAESC    ,RAESS    ,&
+            &RAELC    ,RAELS    ,RAEUC    ,RAEUS    ,RAEDC    ,&
+            &RAEDS
+USE YOEOZOC  , ONLY : COZQC    ,COZQS    ,COZHC    ,COZHS
+USE YOERAD   , ONLY : LHVOLCA  ,LNEWAER
+USE YOEAERC  , ONLY : RSINCT   ,RSINCV   ,REPAER   ,&
+            &RTAEBC  ,RTAEOR   ,RTAESD   ,RTAESS   ,RTAESU   , &
+            &RTAEVO
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KTDIA
+
+INTEGER_M :: KCF, KRINT, KSHIFT
+
+INTEGER_M :: KCP__RADACA
+INTEGER_M :: KDIM_RADACA
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+REAL_B :: PAPRS(KLON,KLEV+1), PGELAM(KLON), PSIN(KLON)&
+ &,   PCLON(KLON)       , PSLON(KLON) , PTH(KLON,KLEV+1)
+
+REAL_B :: PAER(KLON,6,KLEV),POZON(KLON,KLEV)
+!     -----------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+INTEGER_M :: IINLA1(KLON), IINLA2(KLON)
+INTEGER_M :: IINLO1(KLON), IINLO2(KLON)
+
+REAL_B :: ZAED  (KLON), ZAEL  (KLON), ZAES  (KLON), ZAEU  (KLON)
+REAL_B :: ZAEQDN(KLON), ZAEQDO(KLON), ZAEQLN(KLON), ZAEQLO(KLON)
+REAL_B :: ZAEQSN(KLON), ZAEQSO(KLON), ZAEQUN(KLON), ZAEQUO(KLON)
+
+REAL_B :: ZAERBC(KLON), ZAEROR(KLON), ZAERSD(KLON)
+REAL_B :: ZAERSS(KLON), ZAERSU(KLON), ZAERVO(KLON)
+
+REAL_B :: ZAETRN(KLON),ZAETRO(KLON)
+
+REAL_B :: ZALP(66)
+REAL_B :: ZDPN(KLON)  , ZDPO(KLON)
+REAL_B :: ZFAED(21)    , ZFAEL(21)    , ZFAES(21)    , ZFAEU(21)
+REAL_B :: ZFOZQ(11)    , ZFOZH(11)
+REAL_B :: ZGRTH(KLON)
+REAL_B :: ZLON(KLON)  , ZLONR(72)    , ZNLO1(KLON) , ZNLO2(KLON)
+
+REAL_B :: ZOZH (KLON) , ZOZQ (KLON)
+REAL_B :: ZQOFN(KLON) , ZQOFO(KLON)
+REAL_B :: ZSILAT(KLON), ZSINR(46)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IL, IMM, IMNC, IMNS, INLA, INLA1, INLA2, INLO1, INLO2, &
+          &ITOTPT, JK, JL, JLR, JMM, &
+          &JNN, NLATR, NLONR, JAER, JEND, JIL, JJL, IPRINT, ITOT
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZAETR, ZCOS1, ZCOS10, ZCOS2, ZCOS3, ZCOS4,&
+          &ZCOS5, ZCOS6, ZCOS7, ZCOS8, ZCOS9, ZCPHN3, &
+          &ZCPHO3, ZDPNMO, ZGRIDR, ZLATR, ZSDPN3, ZSDPO3, &
+          &ZSIN, ZSIN1, ZSIN10, ZSIN2, ZSIN3, ZSIN4, &
+          &ZSIN5, ZSIN6, ZSIN7, ZSIN8, ZSIN9
+REAL_B :: ZAERBC1, ZAERBC2, ZAEROR1, ZAEROR2, ZAERSD1, ZAERSD2, &
+          &ZAERSS1, ZAERSS2, ZAERSU1, ZAERSU2
+REAL_B :: ZDLONR
+
+!     ------------------------------------------------------------------
+
+!*         1.     "NEW AEROSOL DISTRIBUTION" PARAMETERS COMPUTATIONS
+!                 --------------------------------------------------
+
+
+!*         1.1    VOLCANIC AEROSOL DISTRIBUTION PARAMETERS
+!                 ----------------------------------------
+
+!                 GISS CLIMATOLOGY 
+!                 ----------------
+
+KCF=0
+KSHIFT=0
+KRINT=1
+
+IF (LHVOLCA) THEN
+  NLATR=46
+  ZGRIDR=180._JPRB/(NLATR-1)
+  DO JLR=1,NLATR
+    ZLATR=90._JPRB-(JLR-1)*ZGRIDR
+    ZSINR(JLR)=SIN(ZLATR*RPI/180._JPRB)
+  ENDDO
+
+  IL=KSHIFT
+  DO JL=KIDIA,KFDIA
+    IL=IL+1
+    INLA=0
+    ZSILAT(IL)=-9999._JPRB
+    ZSIN=PSIN(JL)
+    DO JLR=1,NLATR-1
+      IF (ZSIN <= ZSINR(JLR) .AND. ZSIN > ZSINR(JLR+1)) THEN
+        INLA=JLR
+        ZSILAT(IL)=(ZSIN-ZSINR(INLA))/(ZSINR(INLA+1)-ZSINR(INLA))
+        ZAERVO(IL)=RTAEVO(INLA)+ZSILAT(IL)*(RTAEVO(INLA+1)-RTAEVO(INLA))
+      ENDIF
+    ENDDO
+    IF (ZSIN <= ZSINR(NLATR-1) .AND. ZSIN >= ZSINR(NLATR))THEN
+      INLA=NLATR
+      ZSILAT(IL)=(ZSIN-ZSINR(INLA-1))/(ZSINR(INLA)-ZSINR(INLA-1))
+      ZAERVO(IL)=RTAEVO(INLA-1)&
+       &+ZSILAT(IL)*(RTAEVO(INLA)-RTAEVO(INLA-1))
+    ENDIF
+    IF (INLA == 0) THEN
+!      CALL ABOR1(' Problem with lat. interpolation in radaca!')
+      STOP ' Problem with lat. interpolation in radaca!'
+    ENDIF
+  ENDDO
+
+!                 TANRE ET AL. CLIMATOLOGY 
+!                 ------------------------
+
+ELSE
+  IL = KSHIFT
+  DO JL=KIDIA,KFDIA
+    IL = IL+1
+    ZAERVO(IL)=RCVOBGA
+  ENDDO
+ENDIF
+ITOTPT=IL
+
+
+
+!*         1.2    TROPOSPHERIC AEROSOL DISTRIBUTION PARAMETERS
+!                 --------------------------------------------
+
+IF (LNEWAER) THEN
+!  print *,'LNEWAER= ',LNEWAER
+!  print *,' inputs        SINLAT            LONGITUDE'
+!  DO JL=KIDIA,KFDIA
+!    print 9001,JL,PSIN(JL),PGELAM(JL)
+9001    format(1x,'RADACA ',1x,I5,1x,2E15.8)
+!  END DO         
+
+!-- latitude       
+  NLATR=46
+  ZGRIDR=180._JPRB/(NLATR-1)
+  DO JLR=1,NLATR
+    ZLATR=90._JPRB-(JLR-1)*ZGRIDR
+    ZSINR(JLR)=SIN(ZLATR*RPI/180._JPRB)
+  END DO
+  NLONR=72
+  ZDLONR=2._JPRB*RPI/NLONR
+  DO JLR=1,NLONR
+    ZLONR(JLR)=(JLR-1)*ZDLONR
+  END DO
+
+!  print *,'Reference grid for Tegen climatology'        
+!  print 9121,(ZSINR(JLR),JLR=1,NLATR)
+9121     format(1x,'ZSINR ',8E15.7)
+!  print 9122,(ZLONR(JLR),JLR=1,NLONR)
+9122     format(1x,'ZLONR ',8E15.7)
+           
+  IL=KSHIFT
+  DO JL=KIDIA,KFDIA         
+    IL=IL+1
+    IINLA1(IL)=0
+    IINLA2(IL)=0
+    ZSILAT(IL)=-9999._JPRB
+    ZSIN=PSIN(JL)
+    DO JLR=1,NLATR-1
+      IF (ZSIN <= ZSINR(JLR) .AND. ZSIN > ZSINR(JLR+1)) THEN
+        INLA=JLR
+        IINLA1(IL)=JLR
+        IINLA2(IL)=JLR+1
+        ZSILAT(IL)=(ZSIN-ZSINR(INLA))/(ZSINR(INLA+1)-ZSINR(INLA))
+      ENDIF
+    ENDDO
+    IF (ZSIN <= ZSINR(NLATR-1) .AND. ZSIN >= ZSINR(NLATR))THEN
+      INLA=NLATR
+      IINLA1(IL)=NLATR-1
+      IINLA2(IL)=NLATR
+      ZSILAT(IL)=(ZSIN-ZSINR(INLA-1))/(ZSINR(INLA)-ZSINR(INLA-1))
+    END IF    
+    IF (INLA.EQ.0) THEN 
+!      CALL ABOR1(' Problem with lat. interpolation in radaca!')
+      STOP ' Problem with lat. interpolation in radaca!'
+    ENDIF
+!    print 9123,JL,IL,PSIN(JL),INLA,ZSINR(INLA),ZSILAT(IL)
+9123     format(1x,'Interp.Latit.',2I4,F10.7,I4,2F10.7)          
+  END DO  
+
+!-- longitude
+  IL=KSHIFT
+  DO JL=KIDIA,KFDIA
+    IL=IL+1
+    IINLO1(IL)=0
+    IINLO2(IL)=0
+    ZLON(IL)=-9999.
+    DO JLR=1,71
+      IF (PGELAM(JL) < ZLONR(JLR+1) .AND. PGELAM(JL) >= ZLONR(JLR)) &
+     &  THEN
+        IINLO1(IL)=JLR
+        IINLO2(IL)=JLR+1
+        ZNLO1(IL)=ZLONR(JLR)
+        ZNLO2(IL)=ZLONR(JLR+1)
+      END IF
+    END DO      
+    IF (PGELAM(JL) >= ZLONR(72)) THEN
+      IINLO1(IL)=72
+      IINLO2(IL)= 1
+      ZNLO1(IL)=ZLONR(72)
+!      ZNLO2(IL)=ZLONR(72)+2.*RPI
+      ZNLO2(IL)=ZLONR(72)+ZDLONR
+    ENDIF
+! Martin control
+!    print 9124,JL,IL,PGELAM(JL),IINLO1(IL),IINLO2(IL),ZNLO1(IL),ZNLO2(IL)
+!9124     format(1x,'Interp.Longit0.',2I4,F10.7,2I5,2F10.7)          
+  END DO  
+ 
+  IL=KSHIFT
+  DO JL=KIDIA,KFDIA        
+    IL=IL+1
+    IF (IINLO1(IL).EQ.0 .OR. IINLO2(IL).EQ.0) THEN 
+!      CALL ABOR1(' Problem with long. interpolation in radaca!')
+      STOP ' Problem with long. interpolation in radaca!'
+    ENDIF
+    ZLON(IL)=(PGELAM(JL)-ZNLO1(IL))/(ZNLO2(IL)-ZNLO1(IL))
+    INLO1=IINLO1(IL)
+    INLO2=IINLO2(IL)
+    INLA1=IINLA1(IL)
+    INLA2=IINLA2(IL)
+    
+    ZAERBC1=RTAEBC(INLO1,INLA1) &
+     &      +ZSILAT(IL)*(RTAEBC(INLO1,INLA2)-RTAEBC(INLO1,INLA1))  
+    ZAERBC2=RTAEBC(INLO2,INLA1) &
+     &      +ZSILAT(IL)*(RTAEBC(INLO2,INLA2)-RTAEBC(INLO2,INLA1))  
+    ZAERBC(IL)=ZAERBC1+ZLON(IL)*(ZAERBC2-ZAERBC1)
+        
+    ZAEROR1=RTAEOR(INLO1,INLA1) &
+     &      +ZSILAT(IL)*(RTAEOR(INLO1,INLA2)-RTAEOR(INLO1,INLA1))  
+    ZAEROR2=RTAEOR(INLO2,INLA1) &
+     &      +ZSILAT(IL)*(RTAEOR(INLO2,INLA2)-RTAEOR(INLO2,INLA1))  
+    ZAEROR(IL)=ZAEROR1+ZLON(IL)*(ZAEROR2-ZAEROR1)
+        
+    ZAERSD1=RTAESD(INLO1,INLA1) &
+     &      +ZSILAT(IL)*(RTAESD(INLO1,INLA2)-RTAESD(INLO1,INLA1))  
+    ZAERSD2=RTAESD(INLO2,INLA1) &
+     &      +ZSILAT(IL)*(RTAESD(INLO2,INLA2)-RTAESD(INLO2,INLA1))  
+    ZAERSD(IL)=ZAERSD1+ZLON(IL)*(ZAERSD2-ZAERSD1)
+        
+    ZAERSS1=RTAESS(INLO1,INLA1) &
+     &      +ZSILAT(IL)*(RTAESS(INLO1,INLA2)-RTAESS(INLO1,INLA1))  
+    ZAERSS2=RTAESS(INLO2,INLA1) &
+     &      +ZSILAT(IL)*(RTAESS(INLO2,INLA2)-RTAESS(INLO2,INLA1))  
+    ZAERSS(IL)=ZAERSS1+ZLON(IL)*(ZAERSS2-ZAERSS1)
+        
+    ZAERSU1=RTAESU(INLO1,INLA1) &
+     &      +ZSILAT(IL)*(RTAESU(INLO1,INLA2)-RTAESU(INLO1,INLA1))  
+    ZAERSU2=RTAESU(INLO2,INLA1) &
+     &      +ZSILAT(IL)*(RTAESU(INLO2,INLA2)-RTAESU(INLO2,INLA1))  
+    ZAERSU(IL)=ZAERSU1+ZLON(IL)*(ZAERSU2-ZAERSU1)
+          
+!    print 9125,JL,IL,PSIN(JL),PGELAM(JL),ZSILAT(IL) &
+!     &      ,RTAESU(INLO1,INLA2),RTAESU(INLO1,INLA1),ZAERSU1 &
+!     &      ,RTAESU(INLO2,INLA2),RTAESU(INLO2,INLA1),ZAERSU2 &
+!     &                    ,INLA1,INLO1,INLO2,INLA2
+!9125     format(1x,'Interp.Longit1.',2I4,9F10.7,4I5)          
+!    print 9126,JL,IL,PSIN(JL),PGELAM(JL),ZSILAT(IL),ZLON(IL) &
+!     &      ,ZNLO1(IL),ZNLO2(IL),INLA1,INLO1,INLO2,INLA2
+!9126     format(1x,'Interp.Longit2.',2I4,6F10.7,4I5)          
+!    print 9127,JL,IL,ZAERBC(IL),ZAEROR(IL),ZAERSD(IL),ZAERSS(IL) &
+!     &      ,ZAERSU(IL)
+!9127     format(1x,'Interp.Longit3.',2I4,5F10.7)          
+  END DO       
+END IF
+
+!     ------------------------------------------------------------------   
+
+!*       2.     OZONE
+!               -----
+
+ZSIN=PSIN(KIDIA)
+
+!*       2.1     CALL TO LEGTRI.
+!                ---------------
+KCP__RADACA= 6
+KDIM_RADACA=66
+!***
+CALL LEGTRI (ZSIN,KCP__RADACA,KDIM_RADACA,ZALP)
+!***
+
+!*       2.2     LEGENDRE TRANSFORM FOR OZONE.
+!                -----------------------------
+
+DO JMM=1,11
+  ZFOZQ(JMM)=_ZERO_
+  ZFOZH(JMM)=_ZERO_
+ENDDO
+IMM=0
+IMNC=0
+IMNS=0
+DO JMM=1,6
+  IMM=IMM+1
+  DO JNN=JMM,6
+    IMNC=IMNC+1
+    ZFOZQ(IMM)=ZFOZQ(IMM)+ZALP(IMNC)*COZQC(IMNC)
+    ZFOZH(IMM)=ZFOZH(IMM)+ZALP(IMNC)*COZHC(IMNC)
+  ENDDO
+  IF(JMM /= 1) THEN
+    IMM=IMM+1
+    DO JNN=JMM,6
+      IMNS=IMNS+1
+      ZFOZQ(IMM)=ZFOZQ(IMM)+ZALP(IMNS+6)*COZQS(IMNS)
+      ZFOZH(IMM)=ZFOZH(IMM)+ZALP(IMNS+6)*COZHS(IMNS)
+    ENDDO
+  ENDIF
+ENDDO
+
+!*       2.3     FOURIER TRANSFORM FOR OZONE.
+!                ----------------------------
+
+IL=KSHIFT
+DO JL=KIDIA,KFDIA
+  IL=IL+1
+  ZCOS1=PCLON(JL)
+  ZSIN1=PSLON(JL)
+  ZCOS2=ZCOS1*ZCOS1-ZSIN1*ZSIN1
+  ZSIN2=ZSIN1*ZCOS1+ZCOS1*ZSIN1
+  ZCOS3=ZCOS2*ZCOS1-ZSIN2*ZSIN1
+  ZSIN3=ZSIN2*ZCOS1+ZCOS2*ZSIN1
+  ZCOS4=ZCOS3*ZCOS1-ZSIN3*ZSIN1
+  ZSIN4=ZSIN3*ZCOS1+ZCOS3*ZSIN1
+  ZCOS5=ZCOS4*ZCOS1-ZSIN4*ZSIN1
+  ZSIN5=ZSIN4*ZCOS1+ZCOS4*ZSIN1
+  ZOZQ(IL)=&
+   &ZFOZQ(1)+_TWO_*(ZFOZQ(2)*ZCOS1+ZFOZQ(3)*ZSIN1+ZFOZQ(4)*ZCOS2 &
+   &+ZFOZQ(5)*ZSIN2+ZFOZQ(6)*ZCOS3+ZFOZQ(7)*ZSIN3+ZFOZQ(8)&
+   &*ZCOS4+ZFOZQ(9)*ZSIN4+ZFOZQ(10)*ZCOS5+ZFOZQ(11)*ZSIN5)
+  ZOZH(IL)=&
+   &ZFOZH(1)+_TWO_*(ZFOZH(2)*ZCOS1+ZFOZH(3)*ZSIN1+ZFOZH(4)*ZCOS2 &
+   &+ZFOZH(5)*ZSIN2+ZFOZH(6)*ZCOS3+ZFOZH(7)*ZSIN3+ZFOZH(8)&
+   &*ZCOS4+ZFOZH(9)*ZSIN4+ZFOZH(10)*ZCOS5+ZFOZH(11)*ZSIN5)
+  ZOZH(IL)=SQRT(ZOZH(IL))**3
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!       3.     AEROSOLS
+!              --------
+!***
+!       3.1     CALL TO LEGTRI
+
+KCP__RADACA=11
+KDIM_RADACA=66
+!***
+CALL LEGTRI (ZSIN,KCP__RADACA,KDIM_RADACA,ZALP)
+!***
+
+!       3.2     LEGENDRE TRANSFORM FOR AEROSOLS
+!               -------------------------------
+
+DO JMM=1,21
+  ZFAES(JMM) = _ZERO_
+  ZFAEL(JMM) = _ZERO_
+  ZFAEU(JMM) = _ZERO_
+  ZFAED(JMM) = _ZERO_
+ENDDO
+IMM  = 0
+IMNC = 0
+IMNS = 0
+DO JMM=1,11
+  IMM  = IMM+1
+  DO JNN=JMM,11
+    IMNC = IMNC+1
+    ZFAES(IMM) = ZFAES(IMM)+ZALP(IMNC)*RAESC(IMNC)
+    ZFAEL(IMM) = ZFAEL(IMM)+ZALP(IMNC)*RAELC(IMNC)
+    ZFAEU(IMM) = ZFAEU(IMM)+ZALP(IMNC)*RAEUC(IMNC)
+    ZFAED(IMM) = ZFAED(IMM)+ZALP(IMNC)*RAEDC(IMNC)
+  ENDDO
+  IF(JMM /= 1) THEN
+    IMM  = IMM+1
+    DO JNN=JMM,11
+      IMNS = IMNS+1
+      ZFAES(IMM) = ZFAES(IMM)+ZALP(IMNS+11)*RAESS(IMNS)
+      ZFAEL(IMM) = ZFAEL(IMM)+ZALP(IMNS+11)*RAELS(IMNS)
+      ZFAEU(IMM) = ZFAEU(IMM)+ZALP(IMNS+11)*RAEUS(IMNS)
+      ZFAED(IMM) = ZFAED(IMM)+ZALP(IMNS+11)*RAEDS(IMNS)
+    ENDDO
+  ENDIF
+ENDDO
+
+!       3.3     FOURIER TRANSFORM FOR AEROSOLS
+!               ------------------------------
+
+IL = KSHIFT
+DO JL=KIDIA,KFDIA
+  IL = IL+1
+  ZCOS1    = PCLON(JL)
+  ZSIN1    = PSLON(JL)
+  ZCOS2    = ZCOS1*ZCOS1-ZSIN1*ZSIN1
+  ZSIN2    = ZSIN1*ZCOS1+ZCOS1*ZSIN1
+  ZCOS3    = ZCOS2*ZCOS1-ZSIN2*ZSIN1
+  ZSIN3    = ZSIN2*ZCOS1+ZCOS2*ZSIN1
+  ZCOS4    = ZCOS3*ZCOS1-ZSIN3*ZSIN1
+  ZSIN4    = ZSIN3*ZCOS1+ZCOS3*ZSIN1
+  ZCOS5    = ZCOS4*ZCOS1-ZSIN4*ZSIN1
+  ZSIN5    = ZSIN4*ZCOS1+ZCOS4*ZSIN1
+  ZCOS6    = ZCOS5*ZCOS1-ZSIN5*ZSIN1
+  ZSIN6    = ZSIN5*ZCOS1+ZCOS5*ZSIN1
+  ZCOS7    = ZCOS6*ZCOS1-ZSIN6*ZSIN1
+  ZSIN7    = ZSIN6*ZCOS1+ZCOS6*ZSIN1
+  ZCOS8    = ZCOS7*ZCOS1-ZSIN7*ZSIN1
+  ZSIN8    = ZSIN7*ZCOS1+ZCOS7*ZSIN1
+  ZCOS9    = ZCOS8*ZCOS1-ZSIN8*ZSIN1
+  ZSIN9    = ZSIN8*ZCOS1+ZCOS8*ZSIN1
+  ZCOS10   = ZCOS9*ZCOS1-ZSIN9*ZSIN1
+  ZSIN10   = ZSIN9*ZCOS1+ZCOS9*ZSIN1
+  ZAES(IL) = ZFAES(1) + _TWO_*&
+   &( ZFAES(2)*ZCOS1  + ZFAES(3)*ZSIN1  + ZFAES(4)*ZCOS2 &
+   &+ ZFAES(5)*ZSIN2  + ZFAES(6)*ZCOS3  + ZFAES(7)*ZSIN3 &
+   &+ ZFAES(8)*ZCOS4  + ZFAES(9)*ZSIN4  + ZFAES(10)*ZCOS5 &
+   &+ ZFAES(11)*ZSIN5 + ZFAES(12)*ZCOS6 + ZFAES(13)*ZSIN6 &
+   &+ ZFAES(14)*ZCOS7 + ZFAES(15)*ZSIN7 + ZFAES(16)*ZCOS8 &
+   &+ ZFAES(17)*ZSIN8 + ZFAES(18)*ZCOS9 + ZFAES(19)*ZSIN9 &
+   &+ ZFAES(20)*ZCOS10+ ZFAES(21)*ZSIN10                 )
+  ZAEL(IL) = ZFAEL(1) + _TWO_*&
+   &( ZFAEL(2)*ZCOS1  + ZFAEL(3)*ZSIN1  + ZFAEL(4)*ZCOS2 &
+   &+ ZFAEL(5)*ZSIN2  + ZFAEL(6)*ZCOS3  + ZFAEL(7)*ZSIN3 &
+   &+ ZFAEL(8)*ZCOS4  + ZFAEL(9)*ZSIN4  + ZFAEL(10)*ZCOS5 &
+   &+ ZFAEL(11)*ZSIN5 + ZFAEL(12)*ZCOS6 + ZFAEL(13)*ZSIN6 &
+   &+ ZFAEL(14)*ZCOS7 + ZFAEL(15)*ZSIN7 + ZFAEL(16)*ZCOS8 &
+   &+ ZFAEL(17)*ZSIN8 + ZFAEL(18)*ZCOS9 + ZFAEL(19)*ZSIN9 &
+   &+ ZFAEL(20)*ZCOS10+ ZFAEL(21)*ZSIN10                 )
+  ZAEU(IL) = ZFAEU(1) + _TWO_*&
+   &( ZFAEU(2)*ZCOS1  + ZFAEU(3)*ZSIN1  + ZFAEU(4)*ZCOS2 &
+   &+ ZFAEU(5)*ZSIN2  + ZFAEU(6)*ZCOS3  + ZFAEU(7)*ZSIN3 &
+   &+ ZFAEU(8)*ZCOS4  + ZFAEU(9)*ZSIN4  + ZFAEU(10)*ZCOS5 &
+   &+ ZFAEU(11)*ZSIN5 + ZFAEU(12)*ZCOS6 + ZFAEU(13)*ZSIN6 &
+   &+ ZFAEU(14)*ZCOS7 + ZFAEU(15)*ZSIN7 + ZFAEU(16)*ZCOS8 &
+   &+ ZFAEU(17)*ZSIN8 + ZFAEU(18)*ZCOS9 + ZFAEU(19)*ZSIN9 &
+   &+ ZFAEU(20)*ZCOS10+ ZFAEU(21)*ZSIN10                 )
+  ZAED(IL) = ZFAED(1) + _TWO_*&
+   &( ZFAED(2)*ZCOS1  + ZFAED(3)*ZSIN1  + ZFAED(4)*ZCOS2 &
+   &+ ZFAED(5)*ZSIN2  + ZFAED(6)*ZCOS3  + ZFAED(7)*ZSIN3 &
+   &+ ZFAED(8)*ZCOS4  + ZFAED(9)*ZSIN4  + ZFAED(10)*ZCOS5 &
+   &+ ZFAED(11)*ZSIN5 + ZFAED(12)*ZCOS6 + ZFAED(13)*ZSIN6 &
+   &+ ZFAED(14)*ZCOS7 + ZFAED(15)*ZSIN7 + ZFAED(16)*ZCOS8 &
+   &+ ZFAED(17)*ZSIN8 + ZFAED(18)*ZCOS9 + ZFAED(19)*ZSIN9 &
+   &+ ZFAED(20)*ZCOS10+ ZFAED(21)*ZSIN10                 )
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*       4.      VERTICAL DISTRIBUTION
+!*               ---------------------
+
+
+IL=KSHIFT
+DO JL=KIDIA,KFDIA
+  IL=IL+1
+  ZDPO(IL)=PAPRS (JL,1)
+  ZCPHO3=PAPRS (JL,1)**3
+  ZSDPO3=SQRT  (ZCPHO3)
+  IF (LNEWAER) THEN
+    ZAEQSO(IL)= ZAERSS(IL)*CVDAES(1)
+    ZAEQLO(IL)=(ZAEROR(IL)+ZAERSU(IL))*CVDAEL(1)
+    ZAEQUO(IL)= ZAERBC(IL)*CVDAEU(1)
+    ZAEQDO(IL)= ZAERSD(IL)*CVDAED(1)
+  ELSE
+    ZAEQSO(IL)=RCAEOPS*ZAES(IL)*CVDAES(1)
+    ZAEQLO(IL)=RCAEOPL*ZAEL(IL)*CVDAEL(1)
+    ZAEQUO(IL)=RCAEOPU*ZAEU(IL)*CVDAEU(1)
+    ZAEQDO(IL)=RCAEOPD*ZAED(IL)*CVDAED(1)
+  END IF  
+  ZAETRO(IL)=_ONE_
+  ZQOFO(IL)=ZOZQ(IL)*ZSDPO3 / (ZSDPO3 + ZOZH(IL))
+ENDDO
+
+DO JK=1,KLEV
+  IL=KSHIFT
+  IF (KCF == 0) THEN
+    DO JL=KIDIA,KFDIA
+      IL=IL+1
+      ZGRTH(IL)= PTH(JL,JK)/PTH(JL,JK+1)
+    ENDDO
+  ELSEIF (KCF == 1) THEN
+    DO JL=KIDIA,KFDIA
+      IL=IL+1
+      ZGRTH(IL)= PTH(IL,JK)/PTH(IL,JK+1)
+    ENDDO
+  ENDIF
+
+  IL=KSHIFT
+  DO JL=KIDIA,KFDIA
+    IL=IL+1
+    ZDPN(IL)=PAPRS (JL,JK+1)
+    ZCPHN3=PAPRS (JL,JK+1)**3
+    ZSDPN3=SQRT  (ZCPHN3)
+    IF (LNEWAER) THEN
+      ZAEQSN(IL)= ZAERSS(IL)*CVDAES(JK+1)
+      ZAEQLN(IL)=(ZAEROR(IL)+ZAERSU(IL))*CVDAEL(JK+1)
+      ZAEQUN(IL)= ZAERBC(IL)*CVDAEU(JK+1)
+      ZAEQDN(IL)= ZAERSD(IL)*CVDAED(JK+1)
+    ELSE
+      ZAEQSN(IL)=RCAEOPS*ZAES(IL)*CVDAES(JK+1)
+      ZAEQLN(IL)=RCAEOPL*ZAEL(IL)*CVDAEL(JK+1)
+      ZAEQUN(IL)=RCAEOPU*ZAEU(IL)*CVDAEU(JK+1)
+      ZAEQDN(IL)=RCAEOPD*ZAED(IL)*CVDAED(JK+1)
+    END IF  
+
+    IF (_HALF_*(PAPRS(JL,JK)+PAPRS(JL,JK+1)) < 999._JPRB) THEN
+! for models with top above 10hPa
+      ZAETRN(IL)=_ONE_
+      ZAETRO(IL)=_ONE_
+    ELSE
+      ZAETRN(IL)=ZAETRO(IL)*(MIN(_ONE_,     ZGRTH(IL)         ))**RCTRPT
+    ENDIF
+
+    ZAETR=SQRT  (ZAETRN(IL)*ZAETRO(IL))
+    ZQOFN(IL)=ZOZQ(IL)*ZSDPN3/(ZSDPN3+ZOZH(IL))
+    ZDPNMO    =ZDPN(IL)-ZDPO(IL)
+    PAER(IL,1,JK)=(_ONE_-ZAETR)*(RCTRBGA*ZDPNMO+ ZAEQLN(IL)-ZAEQLO(IL))
+    PAER(IL,2,JK)=(_ONE_-ZAETR)*(ZAEQSN(IL)-ZAEQSO(IL))
+    PAER(IL,3,JK)=(_ONE_-ZAETR)*(ZAEQDN(IL)-ZAEQDO(IL))
+    PAER(IL,4,JK)=(_ONE_-ZAETR)*(ZAEQUN(IL)-ZAEQUO(IL))
+!old volc  PAER(IL,JK,5)= ZAETR * RCVOBGA*ZDPNMO
+    PAER(IL,5,JK)=   ZAETR  * ZAERVO(IL) * ZDPNMO
+    PAER(IL,6,JK)=   ZAETR  * RCSTBGA*ZDPNMO
+!old RH dependence          
+!         AADS(IL,JK)=MAX(RCAEADM, (RCAEADK(1)*PAER(IL,1,JK)
+!           + RCAEADK(2)*PAER(IL,2,JK)+RCAEADK(3)*PAER(IL,3,JK))/ZDPNMO)
+    POZON(IL,JK)=ZQOFN(IL)-ZQOFO(IL)
+!**** **************************************************
+!**** **************************************************
+  ENDDO
+  IL=KSHIFT
+  DO JL=KIDIA,KFDIA
+    IL=IL+1
+    ZDPO(IL)=ZDPN(IL)
+    ZQOFO(IL)=ZQOFN(IL)
+
+    ZAEQSO(IL)=ZAEQSN(IL)
+    ZAEQLO(IL)=ZAEQLN(IL)
+    ZAEQUO(IL)=ZAEQUN(IL)
+    ZAEQDO(IL)=ZAEQDN(IL)
+    ZAETRO(IL)=ZAETRN(IL)
+  ENDDO
+  
+  
+!-- diagnostics in case of problem  
+  DO JAER=1,6
+    IL=KSHIFT
+    DO JL=KIDIA,KFDIA
+      IL=IL+1
+      PAER(IL,JAER,JK)=MAX(PAER(IL,JAER,JK),REPAER)
+    END DO
+    itot=il
+  END DO   
+!--
+   
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE RADACA
Index: LMDZ5/branches/testing/libf/phymar/radlsw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/radlsw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/radlsw.F90	(revision 2160)
@@ -0,0 +1,1508 @@
+SUBROUTINE RADLSW &
+      &( KIDIA, KFDIA , KLON , KTDIA, KLEV  , KMODE, KAER, KBOX, NBOX &
+      &, NDUMP, KLWRAD &
+      &, PRII0 &
+      &, PAER , PALBD , PALBP, PAPH , PAP &
+      &, PCCO2, PFRCL , PDP  , PEMIS, PEMIW , PLSM , PMU0, POZON &
+      &, PQ   , PQIWP , PQLWP, PSQIW, PSQLW , PQS  , PQRAIN, PRAINT &
+      &, PRLVRI,PRLVRL, PTH  , PT   , PTS   , PNBAS, PNTOP &
+      &, PEMIT, PFCT  , PFLT , PFCS , PFLS  , PFRSOD, PSUDU, PUVDF, PPARF &
+      &, PFDCT, PFUCT , PFDLT, PFULT, PFDCS , PFUCS , PFDLS, PFULS &
+      &, ZTAU , ZTAUINT &
+      &, ASWBOX, OLRBOX, SLWBOX, SSWBOX, TAUBOX, PCLBX &
+! #DB &, k2iii, k2jjj &
+      &)
+
+!**** *RADLSW* - INTERFACE TO ECMWF LW AND SW RADIATION SCHEMES
+
+!     PURPOSE.
+!     --------
+!           CONTROLS RADIATION COMPUTATIONS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PALBD  : (KLON,NSW)        ; SURF. SW ALBEDO FOR DIFFUSE RADIATION
+! PALBP  : (KLON,NSW)        ; SURF. SW ALBEDO FOR PARALLEL RADIATION
+! PAPH   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PAP    : (KLON,KLEV)       ; FULL LEVEL PRESSURE
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PFRCL  : (KLON,KLEV)       ; CLOUD FRACTIONAL COVER
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PLSM   : (KLON)            ; LAND-SEA MASK
+! PMU0   : (KLON)            ; SOLAR ANGLE
+! PNBAS  : (KLON)            ; INDEX OF BASE OF CONVECTIVE LAYER
+! PNTOP  : (KLON)            ; INDEX OF TOP OF CONVECTIVE LAYER
+! POZON  : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PQ     : (KLON,KLEV)       ; SPECIFIC HUMIDITY PA/PA
+! PQIWP  : (KLON,KLEV)       ; SOLID  WATER KG/KG
+! PQLWP  : (KLON,KLEV)       ; LIQUID WATER KG/KG
+! PQS    : (KLON,KLEV)       ; SATURATION WATER VAPOR  KG/KG
+! PQRAIN : (KLON,KLEV)       ; RAIN WATER KG/KG
+! PRAINT : (KLON,KLEV)       ; RAIN RATE (m/s)
+! PRLVRI : (KLON,KLEV)       ; RELATIVE VARIANCE OF ICE WATER
+! PRLVRL : (KLON,KLEV)       ; RELATIVE VARIANCE OF LIQUID WATER
+! PTH    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+! PT     : (KLON,KLEV)       ; FULL LEVEL TEMPERATURE
+! PTS    : (KLON)            ; SURFACE TEMPERATURE
+!     ==== OUTPUTS ===
+! PFCT   : (KLON,KLEV+1)     ; CLEAR-SKY LW NET FLUXES
+! PFLT   : (KLON,KLEV+1)     ; TOTAL LW NET FLUXES
+! PFCS   : (KLON,KLEV+1)     ; CLEAR-SKY SW NET FLUXES
+! PFLS   : (KLON,KLEV+1)     ; TOTAL SW NET FLUXES
+! PFRSOD : (KLON)            ; TOTAL-SKY SURFACE SW DOWNWARD FLUX
+! PEMIT  : (KLON)            ; SURFACE TOTAL LONGWAVE EMISSIVITY
+! PSUDU  : (KLON)            ; SOLAR RADIANCE IN SUN'S DIRECTION
+! PUVDF  : (KLON)            ; SURFACE DOWNWARD U.V. RADIATION
+! PPARF  : (KLON)            ; PHOTOSYNTHETICALLY ACTIVE RADIATION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHORS.
+!     --------
+!        J.-J. MORCRETTE         *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-02-04
+!        J.-J. MORCRETTE 94-11-15 DIRECT/DIFFUSE SURFACE ALBEDO
+!        08/96: J.-J. Morcrette/Ph. Dandin: tests of eff. radius param.
+!        9909 : JJMorcrette effect.radius + inhomogeneity factors
+!        JJMorcrette 990128 : sunshine duration
+!        JJMorcrette : 990831 RRTM-140gp
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+!USE YOMCT3   , ONLY : NSTEP
+USE YOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
+USE YOERAD   , ONLY : NSW      ,LRRTM    ,LINHOM, &
+            &LOIFUEC, LTEMPDS, LOWASYF, LOWHSSS, NRADIP, NRADLP, &
+            &NICEOPT, NLIQOPT, NOVLP  , NHOWINH, RMINICE
+USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
+USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+            &RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
+            &REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ   ,&
+            &REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0   ,&
+            &RFLAA1   ,RFLBB0   ,RFLBB1   ,RFLBB2   ,RFLBB3   ,&
+            &RFLCC0   ,RFLCC1   ,RFLCC2   ,RFLCC3   ,RFLDD0   ,&
+            &RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUAA0   ,RFUAA1   ,&
+            &RFUBB0   ,RFUBB1   ,RFUBB2   ,RFUBB3   ,RFUCC0   ,&
+            &RFUCC1   ,RFUCC2   ,RFUCC3   ,RFUETA   ,RASWCA   ,&
+            &RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF   ,&
+            &RLINLI
+USE YOERDU   , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,DIFF
+USE YOERDI   , ONLY : REPCLC
+USE YOETHF   , ONLY : RTICE
+USE YOEPHLI  , ONLY : LPHYLIN
+USE YOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
+           &WAVENUM2  ,DELWAVE   ,TOTPLNK   ,TOTPLK16
+USE YOEDBUG  , ONLY : LDEBUG
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KAER
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KMODE
+INTEGER_M :: KTDIA
+INTEGER_M :: KBOX
+INTEGER_M :: NBOX
+INTEGER_M :: NDUMP, KLWRAD
+
+!     DUMMY REAL SCALARS
+REAL_B :: PRII0
+
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+REAL_B :: PALBD(KLON,NSW) , PALBP(KLON,NSW)
+REAL_B :: PEMIS(KLON)     , PEMIW(KLON)
+REAL_B :: PLSM(KLON)      , PMU0(KLON)
+REAL_B :: PCCO2           , POZON(KLON,KLEV)
+REAL_B :: PTS(KLON)       , PNBAS(KLON)     , PNTOP(KLON)
+REAL_B :: PT (KLON,KLEV)  , PAP (KLON,KLEV)
+REAL_B :: PTH(KLON,KLEV+1), PAPH(KLON,KLEV+1)
+REAL_B :: PDP(KLON,KLEV)
+REAL_B :: PQ (KLON,KLEV)  , PQS(KLON,KLEV)
+REAL_B :: PQIWP(KLON,KLEV), PQLWP(KLON,KLEV), PQRAIN(KLON,KLEV)
+REAL_B :: PRAINT(KLON,KLEV)
+REAL_B :: PRLVRI(KLON,KLEV),PRLVRL(KLON,KLEV)
+REAL_B :: PSQIW(KLON,KLEV), PSQLW(KLON,KLEV)
+REAL_B :: PFRCL(KLON,KLEV), PCLFR(KLON,KLEV), PCLBX(KLON,100,KLEV)
+REAL_B :: PAER (KLON,6,KLEV)
+
+! #DB integer :: k2iii(KLON),k2jjj(KLON),kio,kjo
+
+!     ==== COMPUTED IN RADLSW ===
+REAL_B :: PFCS(KLON,KLEV+1), PFCT(KLON,KLEV+1)
+REAL_B :: PFLS(KLON,KLEV+1), PFLT(KLON,KLEV+1)
+REAL_B :: PFRSOD(KLON)     , PEMIT(KLON)
+REAL_B :: PSUDU(KLON)      , PUVDF(KLON)        , PPARF(KLON)
+REAL_B :: PFDCT(KLON,KLEV+1), PFUCT(KLON,KLEV+1)
+REAL_B :: PFDLT(KLON,KLEV+1), PFULT(KLON,KLEV+1)
+REAL_B :: PFDCS(KLON,KLEV+1), PFUCS(KLON,KLEV+1)
+REAL_B :: PFDLS(KLON,KLEV+1), PFULS(KLON,KLEV+1)
+
+REAL_B :: ASWBOX(KLON, 100), OLRBOX(KLON, 100)
+REAL_B :: SLWBOX(KLON, 100), SSWBOX(KLON, 100), TAUBOX(KLON, 100)
+
+!     -----------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+!     -----------------------------------------------------------------
+
+!-- ARRAYS FOR LOCAL VARIABLES -----------------------------------------
+
+INTEGER_M :: IBAS(KLON)     , ITOP(KLON)
+
+! #DB integer :: jkjllw, jkjlsw, JAERmin, JAERmax, jTAUCLDmin, jTAUCLDmax
+! #DB real :: PAERmin, PAERmax, TAUCLDmin, TAUCLDmax
+
+REAL_B ::&
+    &ZALBD(KLON,NSW)    , ZALBP(KLON,NSW)&
+  &, ZCG(KLON,NSW,KLEV) , ZOMEGA(KLON,NSW,KLEV)&
+  &, ZTAU (KLON,NSW,KLEV) &
+  &, ZTAUCLD(KLON,KLEV,16), ZTCLEAR(KLON)
+REAL_B ::&
+    &ZCLDLD(KLON,KLEV)  , ZCLDLU(KLON,KLEV)&
+  &, ZCLDSW(KLON,KLEV)  , ZCLD0(KLON,KLEV)&
+  &, ZDT0(KLON)        &
+  &, ZEMIS(KLON)        , ZEMIW(KLON)&
+  &, ZFLUX (KLON,2,KLEV+1)                 , ZFLUC(KLON,2,KLEV+1)&
+  &, ZFIWP(KLON)        , ZFLWP(KLON)      , ZFRWP(KLON)&
+  &, ZIWC(KLON)         , ZLWC(KLON)&
+  &, ZBICFU(KLON)       , ZKICFU1(KLON)    , ZKICFU2(KLON)&
+!cc            , ZRWC(KLON)
+  &, ZMU0(KLON)         , ZOZ(KLON,KLEV)   , ZOZN(KLON,KLEV)&
+  &, ZOZON(KLON,KLEV)   , ZPMB(KLON,KLEV+1), ZPSOL(KLON)&
+  &, ZTAVE (KLON,KLEV)  , ZTL(KLON,KLEV+1)&
+  &, ZVIEW(KLON)
+REAL_B ::&
+    &ZFCDWN(KLON,KLEV+1), ZFCUP(KLON,KLEV+1)&
+  &, ZFSDWN(KLON,KLEV+1), ZFSUP(KLON,KLEV+1)&
+  &, ZFSUPN(KLON)       , ZFSUPV(KLON)&
+  &, ZFCUPN(KLON)       , ZFCUPV(KLON)&
+  &, ZFSDNN(KLON)       , ZFSDNV(KLON)&
+  &, ZFCDNN(KLON)       , ZFCDNV(KLON)&
+  &, ZCOOLR(KLON,KLEV)  , ZCOOLC(KLON,KLEV)&
+  &, ZHEATR(KLON,KLEV)  , ZHEATC(KLON,KLEV)
+REAL_B ::&
+    &ZALFICE(KLON)      , ZGAMICE(KLON)     , ZBICE(KLON),  ZDESR(KLON) &
+  &, ZRADIP(KLON)       , ZRADLP(KLON)      , ZCFUDG(KLON)&
+!cc           , ZRADRD(KLON)
+  &, ZRAINT(KLON)       , ZRES(KLON)&
+  &, ZTICE(KLON)        , ZEMIT(KLON)       , ZTAUINT(KLON)
+REAL_B :: ZSUDU(KLON)   , ZUVDF(KLON)       , ZPARF(KLON),  ZCOL(KLON) &
+  &, ZTCC(KLON)         , ZTCA(KLON)
+
+!-- box-type arrays
+
+REAL_B :: CPFCS(KLON,KLEV+1) , CPFCT(KLON,KLEV+1)
+REAL_B :: CPFLS(KLON,KLEV+1) , CPFLT(KLON,KLEV+1)
+REAL_B :: CPFRSOD(KLON)      , CPEMIT(KLON)
+REAL_B :: CPSUDU(KLON)       , CPUVDF(KLON)       , CPPARF(KLON)
+REAL_B :: CPFDCT(KLON,KLEV+1), CPFUCT(KLON,KLEV+1)
+REAL_B :: CPFDLT(KLON,KLEV+1), CPFULT(KLON,KLEV+1)
+REAL_B :: CPFDCS(KLON,KLEV+1), CPFUCS(KLON,KLEV+1)
+REAL_B :: CPFDLS(KLON,KLEV+1), CPFULS(KLON,KLEV+1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IKL, JAE, JK, JKL, JKLP1, JKP1, JL, JNU, JRTM, JSW &
+  &, NBOXL, ICBOX, IMOV, INDLAY
+
+!     LOCAL LOGICAL SCALARS
+LOGICAL :: LLINTRP
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZASYMX, ZDIFFD, ZGI, ZGL, ZGR, ZIWGKG, ZLWGKG,&
+          &ZMSAID, ZMSAIU, ZMSALD, ZMSALU, ZMTCONV, &
+          &ZMTFUDG, ZLWFUDG, ZSWFUDG, ZMULTL, ZOI, ZOL, ZOMGMX, ZOR, &
+          &ZRMUZ, ZRWGKG, ZTAUD, ZTAUMX, ZTEMPC, &
+          &ZTOI, ZTOL, ZTOR, ZZFIWP, ZZFLWP, ZDPOG, ZPODT
+REAL_B :: ZALND, ZASEA, ZD, ZDEN, ZNTOT, ZNUM, ZRATIO, ZCOEFF, Z1RADI,&
+          &Z1RADL, ZBETAI, ZOMGI, ZOMGP, ZFDEL, ZWGHT, ZVI, ZVL, ZVR
+REAL_B :: ZASW, ZOLR, ZSLW, ZSSW, ZMULTI, ZAIWC, ZBIWC,&
+          &ZDICE, ZFSR, ZLGIWC, ZTCELS, ZTBLAY, ZADDPLK, ZPLANCK
+REAL_B :: ZTOL1, ZTOI1, ZTOR1
+
+
+!     -----------------------------------------------------------------
+
+! #DB kio = 66
+! #DB kjo = 53
+
+!if (NDUMP.LE.3) then
+!  JL=KIDIA
+!  DO jk=1,klev
+!    print 9104,jk,PAPH(JL,JK),PTH(JL,JK),PAP(JL,JK),PT(JL,JK)&
+!    &            ,PDP(JL,JK)& 
+!    &            ,PQ(JL,JK),PFRCL(JL,JK),PQIWP(JL,JK),PQLWP(JL,JK)&
+!    &            ,POZON(JL,JK),PQS(JL,JK)
+9104 format(1x,i3,f9.1,f8.2,f9.1,f8.2,f9.1,e10.3,f7.4,4e10.3)
+!  ENDDO 
+!  jk=klev+1
+!  print 9104,jk,PAPH(JL,JK),PTH(JL,JK)
+!  print 9105,PTS(JL),(PALBD(JL,JSW),PALBP(JL,JSW),JSW=1,NSW)
+9105 FORMAT(13X,f8.2,12f8.4)
+!end if
+
+!print *,'NICEOPT, NLIQOPT, NRADIP, NRADLP',NICEOPT,NLIQOPT,NRADIP,NRADLP
+
+!-- compute total cloud cover
+DO JL=KIDIA,KFDIA
+  ZTCC(JL)=1.-PFRCL(JL,1)
+  ZTCA(JL)=0.
+END DO
+DO JK=2,KLEV
+  DO JL=KIDIA,KFDIA  
+    ZTCC(JL)=ZTCC(JL)*(1.-MAX(PFRCL(JL,JK),PFRCL(JL,JK-1))) &
+    & /(1.-MIN(PFRCL(JL,JK-1),1.-REPCLC))
+  END DO
+END DO
+DO JL=KIDIA,KFDIA
+  ZTCC(JL)=1.-ZTCC(JL)
+END DO
+
+!JL=KIDIA
+!print 9106,ZTCC(JL)
+9106 format(1x,'TCC :',F7.4)
+!print 9107,LINHOM,NHOWINH
+9107 format(1x,'LINHOM=',L8,' NHOWINH=',I2)
+  
+
+
+
+
+
+!*         1.     SET-UP INPUT QUANTITIES FOR RADIATION
+!                 -------------------------------------
+
+IF (.NOT.LINHOM) THEN
+  ZMTFUDG=1.0_JPRB
+  ZMTCONV=1.0_JPRB
+  ZSWFUDG=1.0_JPRB
+  ZLWFUDG=1.0_JPRB
+ELSE IF (LINHOM) THEN
+  IF (NHOWINH.EQ.1) THEN  
+    ZMTFUDG=0.7_JPRB
+    ZMTCONV=0.7_JPRB
+    ZSWFUDG=0.7_JPRB
+    ZLWFUDG=0.7_JPRB    
+  ELSE
+    ZMTFUDG=1.0_JPRB
+    ZMTCONV=1.0_JPRB
+    ZSWFUDG=1.0_JPRB
+    ZLWFUDG=1.0_JPRB
+  ENDIF    
+ENDIF    
+!print 9108,LINHOM,NHOWINH,ZSWFUDG
+9108 format(1x,'LINHOM=',L8,' NHOWINH=',I2,' FUDG=',f4.2)
+
+DO JL = KIDIA,KFDIA
+  ZFCUP(JL,KLEV+1) = _ZERO_
+  ZFCDWN(JL,KLEV+1) = REPLOG
+  ZFSUP(JL,KLEV+1) = _ZERO_
+  ZFSDWN(JL,KLEV+1) = REPLOG
+  ZFLUX(JL,1,KLEV+1) = _ZERO_
+  ZFLUX(JL,2,KLEV+1) = _ZERO_
+  ZFLUC(JL,1,KLEV+1) = _ZERO_
+  ZFLUC(JL,2,KLEV+1) = _ZERO_
+  ZFSDNN(JL) = _ZERO_
+  ZFSDNV(JL) = _ZERO_
+  ZFCDNN(JL) = _ZERO_
+  ZFCDNV(JL) = _ZERO_
+  ZFSUPN(JL) = _ZERO_
+  ZFSUPV(JL) = _ZERO_
+  ZFCUPN(JL) = _ZERO_
+  ZFCUPV(JL) = _ZERO_
+  ZPSOL(JL) = PAPH(JL,KLEV+1)
+  ZPMB(JL,1) = ZPSOL(JL) / 100._JPRB
+  ZDT0(JL) = PTS(JL) - PTH(JL,KLEV+1)
+  PSUDU(JL) = _ZERO_
+  PUVDF(JL) = _ZERO_
+  PPARF(JL) = _ZERO_
+  ZSUDU(JL) = _ZERO_
+  IBAS(JL) = INT ( 0.01_JPRB + PNBAS(JL) )
+  ITOP(JL) = INT ( 0.01_JPRB + PNTOP(JL) )
+ENDDO
+
+DO JK=1,KLEV+1
+  DO JL=KIDIA,KFDIA
+    CPFLS(JL,JK)  = _ZERO_
+    CPFLT(JL,JK)  = _ZERO_
+    CPFCS(JL,JK)  = _ZERO_
+    CPFCT(JL,JK)  = _ZERO_
+    CPFDCT(JL,JK) = _ZERO_
+    CPFUCT(JL,JK) = _ZERO_
+    CPFDLT(JL,JK) = _ZERO_
+    CPFULT(JL,JK) = _ZERO_
+    CPFDCS(JL,JK) = _ZERO_
+    CPFUCS(JL,JK) = _ZERO_
+    CPFDLS(JL,JK) = _ZERO_
+    CPFULS(JL,JK) = _ZERO_
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  CPFRSOD(JL) = _ZERO_
+  CPEMIT (JL) = _ZERO_ 
+  CPSUDU (JL) = _ZERO_
+  CPUVDF (JL) = _ZERO_
+  CPPARF (JL) = _ZERO_
+END DO   
+
+
+!*         1.1    INITIALIZE VARIOUS FIELDS
+!                 -------------------------
+
+
+DO JSW=1,NSW
+  DO JL = KIDIA,KFDIA
+    ZALBD(JL,JSW)=PALBD(JL,JSW)
+    ZALBP(JL,JSW)=PALBP(JL,JSW)
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZEMIS(JL)  =PEMIS(JL)
+  ZEMIW(JL)  =PEMIW(JL)
+  ZMU0(JL)   =PMU0(JL)
+  ZUVDF(JL)  = _ZERO_
+  ZSUDU(JL)  = _ZERO_
+  ZPARF(JL)  = _ZERO_
+ENDDO
+
+DO JK = 1 , KLEV
+  JKP1 = JK + 1
+  JKL = KLEV+ 1 - JK
+  JKLP1 = JKL + 1
+  DO JL = KIDIA,KFDIA
+    ZPMB(JL,JK+1)=PAPH(JL,JKL)/100._JPRB
+    ZOZ(JL,JK)   = POZON(JL,JKL) * 46.6968_JPRB / RG
+    ZOZON(JL,JK) = POZON(JL,JKL)
+    ZCLD0(JL,JK) = _ZERO_
+    ZFCUP(JL,JK) = _ZERO_
+    ZFCDWN(JL,JK) = _ZERO_
+    ZFSUP(JL,JK) = _ZERO_
+    ZFSDWN(JL,JK) = _ZERO_
+    ZFLUX(JL,1,JK) = _ZERO_
+    ZFLUX(JL,2,JK) = _ZERO_
+    ZFLUC(JL,1,JK) = _ZERO_
+    ZFLUC(JL,2,JK) = _ZERO_
+  ENDDO
+ENDDO
+
+
+!** INPUTS ARE FULL LEVEL TEMPERATURES + SURFACE TEMPERATURE
+!        INTERPOLATION TO GET HALF-LEVEL TEMPERATURES FOLLOWS
+!        WHAT IS DONE IN *RADINT* AND *RADHEAT*
+
+!* LLINTRP=.T.  Half-level temperatures on the coarse grid are
+!               vertically interpolated linearly with horizontal
+!               sampled pressure from the full-level temperatures
+!               of the sampled grid.
+
+!* LLINTRP=.F.  Half-level temperatures are those horizontally
+!               sampled on the coarse grid
+
+LLINTRP=.FALSE.
+IF (LLINTRP) THEN
+  DO JK=2,KLEV
+    DO JL=KIDIA,KFDIA
+      PTH(JL,JK)=(PT  (JL,JK-1)*PAP  (JL,JK-1)&
+       &*(PAP  (JL,JK)-PAPH  (JL,JK))&
+       &+PT  (JL,JK)*PAP  (JL,JK)*(PAPH  (JL,JK)-PAP  (JL,JK-1)))&
+       &*(_ONE_/(PAPH  (JL,JK)*(PAP  (JL,JK)-PAP  (JL,JK-1))))
+    ENDDO
+  ENDDO
+  IF (LTEMPDS) THEN
+    DO JL=KIDIA,KFDIA
+      PTH(JL,1)= PT  (JL,1)-PAP  (JL,1)*(PT  (JL,1)-PTH(JL,2))&
+        &/(PAP  (JL,1)-PAPH  (JL,2)) 
+      PTH(JL,KLEV+1)=PT(JL,KLEV)&
+        &            +(PAPH(JL,KLEV+1)-PAP(JL,KLEV))&
+        &            *(PT(JL,KLEV)-PTH(JL,KLEV))&
+        &            /(PAP(JL,KLEV)-PAPH(JL,KLEV))
+    ENDDO
+  ELSE      
+    DO JL=KIDIA,KFDIA
+      PTH(JL,1)= PT  (JL,1)-PAP  (JL,1)*(PT  (JL,1)-PTH(JL,2))&
+        &/(PAP  (JL,1)-PAPH  (JL,2)) 
+      PTH(JL,KLEV+1)= PTS(JL)
+    ENDDO
+  ENDIF    
+ENDIF
+
+DO JK=1,KLEV
+  JKL=KLEV+1-JK
+  JKLP1=JKL+1
+  DO JL=KIDIA,KFDIA
+    ZTL(JL,JK)=PTH(JL,JKLP1)
+    ZTAVE(JL,JK)=PT(JL,JKL)
+  ENDDO
+ENDDO
+DO JL=KIDIA,KFDIA
+  ZTL(JL,KLEV+1)= PTH(JL,1)
+  ZPMB(JL,KLEV+1) = PAPH(JL,1)/100._JPRB
+ENDDO
+!***
+
+!     ------------------------------------------------------------------
+
+!*         2.     CLOUD AND AEROSOL PARAMETERS
+!                 ----------------------------
+
+NBOXL=1
+IF (KBOX.EQ.1) THEN
+  CALL COL2BOX &
+   & ( KIDIA, KFDIA, KLON, KLEV, NBOX, NOVLP &
+   & , PFRCL, PCLBX &
+   & )
+  NBOXL=NBOX
+END IF
+ZWGHT=1./FLOAT(NBOXL) 
+       
+!-- initialise box-type outputs OLR, ASW, SDLW, SDSW, TAU
+DO ICBOX=1,NBOXL
+  DO JL=KIDIA,KFDIA
+    OLRBOX(JL,ICBOX)=_ZERO_             
+    ASWBOX(JL,ICBOX)=_ZERO_             
+    SLWBOX(JL,ICBOX)=_ZERO_             
+    SSWBOX(JL,ICBOX)=_ZERO_ 
+    TAUBOX(JL,ICBOX)=_ZERO_ 
+  END DO  
+END DO             
+
+DO ICBOX=1,NBOXL
+  IF (KBOX.EQ.1) THEN
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        PCLFR(JL,JK)=PCLBX(JL,ICBOX,JK)
+      END DO
+    END DO
+    
+  ELSE       
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        PCLFR(JL,JK)=PFRCL(JL,JK)
+      END DO
+    END DO
+  END IF  
+  DO JL=KIDIA,KFDIA
+    PSUDU(JL) = _ZERO_
+    ZTAUINT(JL) = _ZERO_
+  END DO  
+  
+!-- compute total cloud cover for that particular calculation
+  DO JL=KIDIA,KFDIA
+    ZCOL(JL)=1.-PCLFR(JL,1)
+  END DO
+  DO JK=2,KLEV
+    DO JL=KIDIA,KFDIA  
+      ZCOL(JL)=ZCOL(JL)*(1.-MAX(PCLFR(JL,JK),PCLFR(JL,JK-1))) &
+       & /(1.-MIN(PCLFR(JL,JK-1),1.-REPCLC))
+    END DO
+  END DO
+  DO JL=KIDIA,KFDIA
+    ZCOL(JL)=1.-ZCOL(JL)
+  END DO
+  
+
+
+
+
+
+DO JK = 1 , KLEV
+  IKL = KLEV + 1 - JK
+
+!          2.1    INITIALIZE OPTICAL PROPERTIES TO CLEAR SKY VALUES
+!                 -------------------------------------------------
+
+  DO JSW = 1,NSW
+    DO JL = KIDIA,KFDIA
+      ZTAU(JL,JSW,JK)  = _ZERO_
+      ZOMEGA(JL,JSW,JK)= _ONE_
+      ZCG(JL,JSW,JK)   = _ZERO_
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZCLDSW(JL,JK)  = _ZERO_
+    ZCLDLD(JL,JK)  = _ZERO_
+    ZCLDLU(JL,JK)  = _ZERO_
+  ENDDO
+
+
+!          2.2    CLOUD ICE AND LIQUID CONTENT AND PATH
+!                 -------------------------------------
+
+  DO JL = KIDIA,KFDIA
+!    PCLFR(JL,IKL)=MAX(REPSC,MIN(PCLFR(JL,IKL),_ONE_-REPSC))
+    PCLFR(JL,IKL)=MAX( _ZERO_ ,MIN( PCLFR(JL,IKL), _ONE_ ))
+
+! --- LIQUID WATER CONTENT (g.m-3) AND LIQUID WATER PATH (g.m-2)
+    ZLWGKG=MAX(PQLWP(JL,IKL)*1000._JPRB,_ZERO_)
+    ZIWGKG=MAX(PQIWP(JL,IKL)*1000._JPRB,_ZERO_)
+!!    IF (PCLFR(JL,IKL) > (_TWO_*REPCLC)) THEN
+!!      ZLWGKG=ZLWGKG/PCLFR(JL,IKL)
+!!      ZIWGKG=ZIWGKG/PCLFR(JL,IKL)
+!!  IF (PCLFR(JL,IKL) > REPCLC) THEN
+    IF (PCLFR(JL,IKL) > 15.E-06_JPRB) THEN
+      ZLWGKG=ZLWGKG/PFRCL(JL,IKL)
+      ZIWGKG=ZIWGKG/PFRCL(JL,IKL)
+    ELSE
+      ZLWGKG=_ZERO_
+      ZIWGKG=_ZERO_
+    ENDIF
+
+! --- RAIN LIQUID WATER CONTENT (g.m-3) AND LIQUID WATER PATH (g.m-2)
+!    IF (PRAINT(JL,IKL).GT.(2.*REPCLC)) THEN
+!      ZRWGKG=MAX(PQRAIN(JL,IKL)*1000., 0.0)
+!      ZRAINT(JL)=PRAINT(JL,IKL)*3600.*1000.
+!- no radiative effect of rain (for the moment)
+!      ZRWGKG=0.
+!      ZRAINT(JL)=0.
+! ===========================================================
+
+! Modifications Martin et al.
+!    ELSE
+    ZRWGKG=_ZERO_
+    ZRAINT(JL)=_ZERO_
+!    END IF
+
+    IF (IBAS(JL) /= 1.AND. ITOP(JL) /= 1 ) THEN
+      ZCFUDG(JL)=ZMTCONV
+    ELSE
+      ZCFUDG(JL)=ZMTFUDG
+    ENDIF
+
+    ZDPOG=PDP(JL,IKL)/RG
+    ZFLWP(JL)= ZLWGKG*ZDPOG
+    ZFIWP(JL)= ZIWGKG*ZDPOG
+    ZFRWP(JL)= ZRWGKG*ZDPOG
+    ZPODT=PAP(JL,IKL)/(RD*PT(JL,IKL))
+    ZLWC(JL)=ZLWGKG*ZPODT
+    ZIWC(JL)=ZIWGKG*ZPODT
+!    ZRWC(JL)=ZRWGKG*ZPODT
+
+! --- EFFECTIVE RADIUS FOR WATER, ICE AND RAIN PARTICLES
+
+    IF (NRADLP.EQ.0) THEN
+! very old parametrization as f(pressure)
+      ZRADLP(JL)=10._JPRB + (100000._JPRB-PAP(JL,IKL))*3.5E-04_JPRB
+
+    ELSE IF (NRADLP.EQ.1) THEN
+! old simple distinction between land (10) and ocean (13)
+      IF (PLSM(JL) < _HALF_) THEN
+        ZRADLP(JL)=13._JPRB
+      ELSE
+        ZRADLP(JL)=10._JPRB
+      ENDIF
+
+    ELSE IF (NRADLP.EQ.2) THEN
+!--  based on Martin et al., 1994, JAS
+      IF (PLSM(JL) < _HALF_) THEN
+        ZASEA=150._JPRB
+        ZD=0.33_JPRB
+        ZNTOT=-1.15E-03_JPRB*ZASEA*ZASEA+0.963_JPRB*ZASEA+5.30_JPRB
+      ELSE
+        ZALND=900._JPRB
+!        ZALND=600._JPRB
+!        ZALND=300._JPRB
+!        ZALND=1200._JPRB
+        ZD=0.43_JPRB
+        ZNTOT=-2.10E-04_JPRB*ZALND*ZALND+0.568_JPRB*ZALND-27.9_JPRB
+      ENDIF
+      
+      ZNUM=3._JPRB*ZLWC(JL)*(1._JPRB+3._JPRB*ZD*ZD)**2
+      ZDEN=4._JPRB*RPI*ZNTOT*(1._JPRB+ZD*ZD)**3
+      ZRADLP(JL)=100.*(ZNUM/ZDEN)**0.333_JPRB
+      
+! 9001   format(1x,I3,1E13.5,F5.0,F5.2,f8.2,3E13.5)
+      ZRADLP(JL)=MAX(ZRADLP(JL), 4._JPRB)
+      ZRADLP(JL)=MIN(ZRADLP(JL),16._JPRB)
+    END IF  
+!    print *,'ZRADLP(JL) for JK=',JK,ZRADLP(JL)
+
+! ===========================================================
+! ___________________________________________________________
+
+! rain drop from          : unused as ZRAINT is 0.
+!    ZRADRD(JL)=500._JPRB*ZRAINT(JL)**0.22_JPRB
+!    IF (ZFLWP(JL).GT.0.) THEN
+!      ZRADRD(JL)=ZRADLP(JL)+ZRADRD(JL)
+!    END IF   
+
+!- ice particle effective radius =f(T) from Liou and Ou (1994)
+ 
+    IF (PT(JL,IKL) < RTICE) THEN
+      ZTEMPC=PT(JL,IKL)-RTT
+    ELSE
+      ZTEMPC=RTICE-RTT
+    ENDIF
+    
+    ZRADIP(JL)=326.3_JPRB+ZTEMPC*(12.42_JPRB + ZTEMPC*(0.197_JPRB + ZTEMPC*&
+     &0.0012_JPRB))
+    ZDESR(JL)=2._JPRB*ZRADIP(JL)
+!    print *,'ZRADIP(JL) for JK=',JK,ZRADIP(JL),ZDESR(JL)
+     
+    IF (NRADIP.EQ. 0) THEN
+      ZRADIP(JL)= 40._JPRB
+      ZDESR(JL)=2._JPRB*ZRADIP(JL)
+!      print *,'ZRADIP(JL) for JK=',JK,ZRADIP(JL),ZDESR(JL)
+      
+    ELSE IF (NRADIP.EQ. 1) THEN 
+!-- old formulation based on temperature (40-130microns)    
+      ZRADIP(JL)=MAX(ZRADIP(JL),40._JPRB)
+      ZDESR(JL)=2._JPRB*ZRADIP(JL)
+!      print *,'ZRADIP(JL) for JK=',JK,ZRADIP(JL),ZDESR(JL)
+      
+    ELSE IF (NRADIP.EQ. 2) THEN  
+!-- formulation following Jakob, Klein modifications to ice content    
+      ZRADIP(JL)=MAX(ZRADIP(JL),30._JPRB)
+      ZRADIP(JL)=MIN(ZRADIP(JL),60._JPRB)
+      ZDESR(JL)=2._JPRB*ZRADIP(JL)
+!      print *,'ZRADIP(JL) for JK=',JK,ZRADIP(JL),ZDESR(JL)
+      
+!-- new Sun and Rikus, 1999  D_ice = f(T, IWC)    
+    ELSE IF (NRADIP.EQ. 3 .AND. ZIWC(JL).GT. _ZERO_ ) THEN
+      ZTEMPC=PT(JL,IKL)-83.15_JPRB
+      ZTCELS=PT(JL,IKL)-RTT
+      ZFSR = 1.2351_JPRB +0.0105_JPRB * ZTCELS
+! Sun & Rikus, 1999      
+!      ZLGIWC=LOG10( REPCLC + ZIWC(JL))
+!      ZAIWC=26.1571_JPRB / ( ABS(ZLGIWC) **0.5995_JPRB )
+!      ZBIWC=0.6402_JPRB + 0.1810_JPRB * ZLGIWC
+! Sun, 2001
+      ZAIWC = 45.8966_JPRB * ZIWC(JL)**0.2214_JPRB
+      ZBIWC = 0.7957_JPRB * ZIWC(JL)**0.2535_JPRB
+      ZDESR(JL) = ZFSR * (ZAIWC + ZBIWC*ZTEMPC)
+      ZDESR(JL) = MIN ( MAX( ZDESR(JL), RMINICE ), 350._JPRB)
+      ZRADIP(JL)= 0.5 * ZDESR(JL)
+!      print *,'ZRADIP(JL) for JK=',JK,ZRADIP(JL),ZDESR(JL)
+    END IF
+    
+!-- ERA-15 definition of effective radii    
+    IF (KLWRAD.EQ.2 .AND. NSW.EQ.2) THEN
+      ZRADIP(JL)=40._JPRB
+      ZRADLP(JL)=10._JPRB + (100000._JPRB-PAP(JL,IKL))*3.5_JPRB
+!      ZSWFUDG=1._JPRB
+!      ZLWFUDG=1._JPRB
+      LOWASYF=.FALSE.      
+      LOIFUEC=.FALSE.
+      LRRTM=.FALSE.
+      ZDESR(JL)=2._JPRB*ZRADIP(JL)
+!      print *,'ZRADIP(JL) for JK=',JK,ZRADIP(JL),ZDESR(JL)
+    END IF  
+    
+  ENDDO
+
+
+
+!          2.3    CLOUD SHORTWAVE OPTICAL PROPERTIES
+!                 ----------------------------------
+
+!   -------------------------
+! --+ SW OPTICAL PARAMETERS +  Water clouds after Fouquart (1987)
+!   -------------------------  Ice clouds (Ebert, Curry, 1992)
+
+  DO JSW=1,NSW
+    DO JL = KIDIA,KFDIA
+      ZTOL=_ZERO_
+      ZGL =_ZERO_
+      ZOL =_ZERO_
+      ZTOI=_ZERO_
+      ZGI =_ZERO_
+      ZOI =_ZERO_
+      ZTOR=_ZERO_
+      ZGR =_ZERO_
+      ZOR =_ZERO_
+      IF (ZFLWP(JL)+ZFIWP(JL)+ZFRWP(JL)  /= _ZERO_) THEN
+        IF (ZFLWP(JL)  /=  _ZERO_) THEN
+          IF (NLIQOPT.NE.0 ) THEN
+!-- SW: Slingo, 1989
+            ZTOL = ZFLWP(JL)*(RASWCA(JSW)+RASWCB(JSW)/ZRADLP(JL))
+            ZGL  = RASWCE(JSW)+RASWCF(JSW)*ZRADLP(JL)
+            ZOL  = 1. - RASWCC(JSW)-RASWCD(JSW)*ZRADLP(JL)
+          ELSE          
+!-- SW: Fouquart, 1991
+            ZTOL = ZFLWP(JL)*(RYFWCA(JSW)+RYFWCB(JSW)/ZRADLP(JL))
+            ZGL  = RYFWCF(JSW)
+            ZOL  = RYFWCC(JSW)-RYFWCD(JSW)*EXP(-RYFWCE(JSW)*ZTOL)
+          ENDIF 
+        ENDIF
+
+        IF (ZFIWP(JL)  /=  _ZERO_) THEN
+          IF (NICEOPT.LE.1) THEN
+!-- SW: Ebert-Curry          
+            ZTOI = ZFIWP(JL)*(REBCUA(JSW)+REBCUB(JSW)/ZRADIP(JL))
+            ZGI  = REBCUE(JSW)+REBCUF(JSW)*ZRADIP(JL)
+            ZOI  = _ONE_ - REBCUC(JSW)-REBCUD(JSW)*ZRADIP(JL)
+            
+          ELSE IF (NICEOPT.EQ.2) THEN
+!-- SW: Fu-Liou, 1993
+            Z1RADI = 0.5 / ZRADIP(JL)
+            ZBETAI = RFLAA0(JSW)+Z1RADI* RFLAA1(JSW)
+            ZTOI = ZFIWP(JL) * ZBETAI
+            ZOMGI= RFLBB0(JSW)+ZRADIP(JL)*(RFLBB1(JSW) + ZRADIP(JL) &
+             &   *(RFLBB2(JSW)+ZRADIP(JL)* RFLBB3(JSW) ))            
+            ZOI  = _ONE_ - ZOMGI
+            ZOMGP= RFLCC0(JSW)+ZRADIP(JL)*(RFLCC1(JSW) + ZRADIP(JL) &
+             &   *(RFLCC2(JSW)+ZRADIP(JL)* RFLCC3(JSW) )) 
+            ZFDEL= RFLDD0(JSW)+ZRADIP(JL)*(RFLDD1(JSW) + ZRADIP(JL) &
+             &   *(RFLDD2(JSW)+ZRADIP(JL)* RFLDD3(JSW) )) 
+            ZGI  = ((1.-ZFDEL)*ZOMGP + ZFDEL*3.) / 3.    
+                    
+          ELSE IF (NICEOPT.EQ.3) THEN
+!-- SW: Fu 1996
+            Z1RADI = _ONE_ / ZDESR(JL)
+            ZBETAI = RFUAA0(JSW)+Z1RADI* RFUAA1(JSW)
+            ZTOI = ZFIWP(JL) * ZBETAI
+            ZOMGI= RFUBB0(JSW)+ZDESR(JL)*(RFUBB1(JSW) + ZDESR(JL) &
+             &   *(RFUBB2(JSW)+ZDESR(JL)* RFUBB3(JSW) ))            
+            ZOI  = _ONE_ - ZOMGI
+            ZGI  = RFUCC0(JSW)+ZDESR(JL)*(RFUCC1(JSW) + ZDESR(JL) &
+             &   *(RFUCC2(JSW)+ZDESR(JL)* RFUCC3(JSW) )) 
+             
+          ENDIF
+        ENDIF
+
+!        IF (ZFRWP(JL) .NE. 0.) THEN
+!          ZTOR= ZFRWP(JL)*0.003_JPRB*_JPRBZRAINT(JL)**(-0.22_JPRB)         
+!          ZOR = 1._JPRB - RROMA(JSW)*ZRAINT(JL)**RROMB(JSW)
+!          ZGR = RRASY(JSW)
+!        END IF   
+
+!  - MIX of WATER and ICE CLOUDS
+!        ZTAUMX= ZTOL + ZTOI + ZTOR
+!        ZOMGMX= ZTOL*ZOL + ZTOI*ZOI + ZTOR*ZOR
+!        ZASYMX= ZTOL*ZOL*ZGL + ZTOI*ZOI*ZGI + ZTOR*ZOR*ZGR
+!
+!        ZASYMX= ZASYMX/ZOMGMX
+!        ZOMGMX= ZOMGMX/ZTAUMX
+
+        IF (.NOT.LINHOM .OR. (LINHOM .AND. NHOWINH.EQ.1) ) THEN
+          ZVL=ZSWFUDG
+          ZVI=ZSWFUDG
+          ZVR=0.
+          ZTAUMX= ZTOL*ZVL + ZTOI*ZVI + ZTOR*ZVR
+          ZOMGMX= ZTOL*ZVL*ZOL + ZTOI*ZVI*ZOI + ZTOR*ZVR*ZOR
+          ZASYMX= ZTOL*ZVL*ZOL*ZGL + ZTOI*ZVI*ZOI*ZGI + ZTOR*ZVR*ZOR*ZGR
+          ZASYMX= ZASYMX/ZOMGMX
+          ZOMGMX= ZOMGMX/ZTAUMX
+        ELSE IF (LINHOM .AND. NHOWINH.EQ.2) THEN
+          ZVL=PSQLW(JL,IKL)
+          ZVI=PSQIW(JL,IKL)
+          ZVR=0.
+          ZTAUMX= ZTOL*ZVL + ZTOI*ZVI + ZTOR*ZVR
+          ZOMGMX= ZTOL*ZVL*ZOL + ZTOI*ZVI*ZOI + ZTOR*ZVR*ZOR
+          ZASYMX= ZTOL*ZVL*ZOL*ZGL + ZTOI*ZVI*ZOI*ZGI + ZTOR*ZVR*ZOR*ZGR
+          ZASYMX= ZASYMX/ZOMGMX
+          ZOMGMX= ZOMGMX/ZTAUMX
+        ELSE IF (LINHOM .AND. NHOWINH.EQ.3) THEN
+          ZVL=PRLVRL(JL,IKL)
+          ZVI=PRLVRI(JL,IKL)
+          ZVR=0.
+          ZTOL1 = ZTOL/(1.+ZVL)
+          ZTOI1 = ZTOI/(1.+ZVI)
+          ZTOR1 = ZTOR/(1.+ZVR) 
+          ZTAUMX= ZTOL1 + ZTOI1 + ZTOR1
+          ZOI=ZOI/(1.+ZVI*(1.-ZOI))
+          ZGI=ZGI*(1.+ZVI*(1.-ZOI))/(1.+ZVI*(1.-ZOI*ZGI))
+          ZOL=ZOL/(1.+ZVL*(1.-ZOL))
+          ZGL=ZGL*(1.+ZVL*(1.-ZOL))/(1.+ZVL*(1.-ZOL*ZGL))
+          
+          ZOMGMX= ZTOL1*ZOL + ZTOI1*ZOI + ZTOR1*ZOR
+          ZASYMX= ZTOL1*ZOL*ZGL + ZTOI1*ZOI*ZGI + ZTOR1*ZOR*ZGR
+          ZASYMX= ZASYMX/ZOMGMX
+          ZOMGMX= ZOMGMX/ZTAUMX
+        END IF  
+!        print 9009,JK,JL,JSW,ZSWFUDG,PSQLW(JL,IKL),PSQIW(JL,IKL) &
+!         & , PRLVRL(JL,IKL),PRLVRI(JL,IKL),ZTOL,ZOL,ZGL,ZTOI,ZOI,ZGI &
+!         & , ZTAUMX,ZOMGMX,ZASYMX
+9009    format(1x,3I3,14E13.6)         
+        
+! --- SW FINAL CLOUD OPTICAL PARAMETERS
+
+        ZCLDSW(JL,JK)  = PCLFR(JL,IKL)
+        ZTAU(JL,JSW,JK)  = ZTAUMX
+        ZOMEGA(JL,JSW,JK)= ZOMGMX
+        ZCG(JL,JSW,JK)   = ZASYMX
+      ENDIF
+
+! #DB             jkjlsw = 0
+! #DB   IF (ZTAU(JL,JSW,JK)    .LT.00..OR.ZTAU(JL,JSW,JK)    .GT.75. .OR. &
+! #DB &     (k2iii(JL)         .EQ.kio.AND.k2jjj(JL)         .EQ.kjo)     ) THEN
+! #DB     IF (mod(jkjlsw,20).EQ.0)                                               &
+! #DB &     write(6,575)      NLIQOPT,NICEOPT
+! #DB               575  format('IN   RADLSW: CLOUD SHrtWAVE OPTICAL PROPERTIES                 '  &
+! #DB &                        ,3x,'   NLIQOPT =',I3,'   NICEOPT =',I3,/                           &
+! #DB &                        ,'    i    j   JL   JK',7x,'ZTAU',5x,'ZCLDSW',6x,'ZDESR'            &
+! #DB &                        ,5x,'PRLVRL',5x,'PRLVRI',6x,'PQIWP',6x,'PQLWP',3x,'JSW')
+! #DB             jkjlsw=jkjlsw+1
+! #DB       write(6,603) k2iii(JL),k2jjj(JL),JL,IKL,ZTAU(JL,JSW,JK) ,ZCLDSW(JL,JK) , ZDESR(JL)     &
+! #DB &                                                             ,PRLVRL(JL,IKL),PRLVRI(JL,IKL) &
+! #DB &                                                              ,PQIWP(JL,IKL), PQLWP(JL,IKL),JSW
+! #DB               603  format(4i5,7e11.3,I6)
+! #DB   ENDIF
+
+    ENDDO
+  ENDDO
+  
+  DO JL=KIDIA,KFDIA
+    ZTAUINT(JL)=ZTAUINT(JL)+ZTAU(JL,1,JK)
+  END DO  
+  
+  
+!JL=KIDIA
+!print 9109,JK,ZCLDSW(JL,JK),ZRADLP(JL),ZRADIP(JL) &
+!  & , (ZTAU(JL,JSW,JK),ZOMEGA(JL,JSW,JK),ZCG(JL,JSW,JK),JSW=1,NSW)
+9109 format(1x,'ClOptProp: ',I2,f7.4,2f6.1,6(1x,F7.2,1x,F7.4,1x,f6.3))  
+!print *,'Radlsw after SW cloud optical properties for level JK=',JK
+
+
+
+!          2.4    CLOUD LONGWAVE OPTICAL PROPERTIES FOR EC-OPE
+!                 --------------------------------------------
+
+!   -------------------------
+! --+ LW OPTICAL PARAMETERS +  Water (and Ice) from Smith and Shi (1992)
+!   -------------------------  Ice clouds (Ebert, Curry, 1992)
+
+  IF (.NOT.LRRTM) THEN
+
+    DO JL = KIDIA,KFDIA
+      ZALFICE(JL)=_ZERO_
+      ZGAMICE(JL)=_ZERO_
+      ZBICE(JL)=_ZERO_
+      ZTICE(JL)=(PT(JL,IKL)-TSTAND)/TSTAND
+      ZBICFU(JL)=_ZERO_
+      ZKICFU1(JL)=_ZERO_
+      ZKICFU2(JL)=_ZERO_
+    ENDDO
+    
+    DO JNU= 1,NSIL
+      DO JL = KIDIA,KFDIA
+        ZRES(JL)  = XP(1,JNU)+ZTICE(JL)*(XP(2,JNU)+ZTICE(JL)*(XP(3,&
+         &JNU)&
+         &+ZTICE(JL)*(XP(4,JNU)+ZTICE(JL)*(XP(5,JNU)+ZTICE(JL)*(XP(6,&
+         &JNU)&
+         &)))))
+        ZBICE(JL) = ZBICE(JL) + ZRES(JL)
+        ZGAMICE(JL) = ZGAMICE(JL) + REBCUI(JNU)*ZRES(JL)
+        ZALFICE(JL) = ZALFICE(JL) + REBCUJ(JNU)*ZRES(JL)
+      ENDDO
+    ENDDO
+        
+!-- Fu et al. (1998) with M'91 LW scheme    
+    DO JRTM=1,16
+      DO JL=KIDIA,KFDIA
+        IF (PT(JL,IKL) < 339._JPRB .AND. PT(JL,IKL) >= 160._JPRB) THEN
+          INDLAY=PT(JL,IKL)-159._JPRB
+          ZTBLAY =PT(JL,IKL)-INT(PT(JL,IKL))
+        ELSE IF (PT(JL,IKL) >= 339._JPRB ) THEN
+          INDLAY=180
+          ZTBLAY =PT(JL,IKL)-339._JPRB
+        ELSE IF (PT(JL,IKL) < 160._JPRB) THEN
+          INDLAY=1
+          ZTBLAY =PT(JL,IKL)-160._JPRB
+        END IF      
+        ZADDPLK = TOTPLNK(INDLAY+1,JRTM)-TOTPLNK(INDLAY,JRTM)
+        ZPLANCK = DELWAVE(JRTM) * (TOTPLNK(INDLAY,JRTM) + ZTBLAY*ZADDPLK)
+        ZBICFU(JL) = ZBICFU(JL) + ZPLANCK
+        
+        IF (ZIWC(JL) > _ZERO_ ) THEN
+! ice cloud spectral emissivity a la Fu & Liou (1993)
+          ZRATIO= 0.5 / ZRADIP(JL)
+          ZMSAID = RFULIO(JRTM,1) + ZRATIO&
+             &*(RFULIO(JRTM,2) + ZRATIO*RFULIO(JRTM,3))
+          ZKICFU1(JL) = ZKICFU1(JL)+ ZMSAID*ZPLANCK
+          
+! ice cloud spectral emissivity a la Fu et al (1998)
+          Z1RADI = _ONE_ / ZDESR(JL)
+          ZMSAID = RFUETA(JRTM,1) + Z1RADI&
+             &*(RFUETA(JRTM,2) + Z1RADI*RFUETA(JRTM,3))
+          ZKICFU2(JL) = ZKICFU2(JL)+ ZMSAID*ZPLANCK
+        END IF  
+      END DO
+    END DO
+            
+    DO JL = KIDIA,KFDIA
+      ZGAMICE(JL) = ZGAMICE(JL) / ZBICE(JL)
+      ZALFICE(JL) = ZALFICE(JL) / ZBICE(JL)
+      ZKICFU1(JL) = ZKICFU1(JL) / ZBICFU(JL)
+      ZKICFU2(JL) = ZKICFU2(JL) / ZBICFU(JL)
+      
+      IF (ZFLWP(JL)+ZFIWP(JL) /= _ZERO_) THEN
+
+        IF (KLWRAD.EQ.2) THEN        
+! ice cloud emissivity a la Smith-Shi
+          ZMULTI=1.2_JPRB-0.006_JPRB*ZRADIP(JL)
+          ZMSAID= 0.113_JPRB*ZMULTI
+          ZMSAIU= 0.093_JPRB*ZMULTI
+          ZMULTL=1.2_JPRB-0.006_JPRB*ZRADLP(JL)
+          ZMSALD= 0.158_JPRB*ZMULTL
+          ZMSALU= 0.130_JPRB*ZMULTL
+          ZZFLWP= ZFLWP(JL)
+          ZZFIWP= ZFIWP(JL)
+          
+        ELSE IF (KLWRAD.EQ.0) THEN  
+          
+          IF (NLIQOPT.EQ.0) THEN
+! water cloud emissivity a la Smith & Shi (1992)
+            ZMULTL=1.2_JPRB-0.006_JPRB*ZRADLP(JL)
+            ZMSALD= 0.158_JPRB*ZMULTL
+            ZMSALU= 0.130_JPRB*ZMULTL
+          
+          ELSE
+! water cloud emissivity a la Savijarvi (1997)
+            ZMSALU= 0.2441_JPRB-0.0105_JPRB*ZRADLP(JL)
+            ZMSALD= 1.2154_JPRB*ZMSALU
+          
+          END IF  
+          
+          IF (NICEOPT.EQ.0) THEN          
+! ice cloud emissivity a la Smith & Shi (1992)
+            ZMULTI=1.2_JPRB-0.006_JPRB*ZRADIP(JL)
+            ZMSAID= 0.113_JPRB*ZMULTI
+            ZMSAIU= 0.093_JPRB*ZMULTI
+
+          ELSE IF (NICEOPT.EQ.1) THEN
+! ice cloud emissivity a la Ebert & Curry (1992)
+            ZMSAID= 1.66_JPRB*(ZALFICE(JL)+ZGAMICE(JL)/ZRADIP(JL))
+            ZMSAIU= ZMSAID
+         
+          ELSE IF (NICEOPT.EQ.2) THEN  
+! ice cloud emissivity a la Fu & Liou (1993)
+            ZMSAID= 1.66_JPRB*ZKICFU1(JL)
+            ZMSAIU= ZMSAID
+          
+          ELSE IF (NICEOPT.EQ.3) THEN  
+! ice cloud emissivity a la Fu et al. (1998)
+            ZMSAID= 1.66_JPRB*ZKICFU2(JL)
+            ZMSAIU= ZMSAID
+          END IF  
+          
+! introduce inhomogeneity factor also in LW         
+          ZZFLWP= ZFLWP(JL) * ZLWFUDG
+          ZZFIWP= ZFIWP(JL) * ZLWFUDG
+        END IF
+          
+! effective cloudiness accounting for condensed water
+        ZCLDLD(JL,JK) = PCLFR(JL,IKL)*(_ONE_-EXP(-ZMSALD*ZZFLWP-ZMSAID* &
+          &ZZFIWP))
+        ZCLDLU(JL,JK) = PCLFR(JL,IKL)*(_ONE_-EXP(-ZMSALU*ZZFLWP-ZMSAIU* &
+          &ZZFIWP))
+          
+      END IF    
+    ENDDO
+    
+!  print *,'Radlsw after LW0 cloud optical properties for level JK=',JK
+
+  ELSE
+
+!          2.5    CLOUD LONGWAVE OPTICAL PROPERTIES FOR RRTM
+!                 ------------------------------------------
+
+!   -------------------------
+! --+ LW OPTICAL PARAMETERS +  Water (and Ice) from Savijarvi (1998)
+!   -------------------------  Ice clouds (Ebert, Curry, 1992)
+
+! No need for a fixed diffusivity factor, accounted for spectrally below
+! The detailed spectral structure does not require defining upward and
+! downward effective optical properties
+
+! #DB             jkjllw=0
+
+    DO JRTM=1,16
+      DO JL = KIDIA,KFDIA
+        ZTAUCLD(JL,JK,JRTM) = _ZERO_
+        ZMSALD = _ZERO_
+        ZMSAID = _ZERO_
+        
+        IF (ZFLWP(JL)+ZFIWP(JL) /= _ZERO_) THEN
+    
+          IF (NLIQOPT.EQ.0) THEN
+! water cloud total emissivity a la Smith and Shi (1992)
+            ZMULTL=1.2_JPRB-0.006_JPRB*ZRADLP(JL)
+            ZMSALD= 0.144_JPRB*ZMULTL / 1.66_JPRB
+            
+          ELSE IF (NLIQOPT.EQ.1) THEN
+! water cloud spectral emissivity a la Savijarvi (1997)
+            ZMSALD= RHSAVI(JRTM,1) + ZRADLP(JL)&
+             &*(RHSAVI(JRTM,2) + ZRADLP(JL)*RHSAVI(JRTM,3))
+             
+          ELSE IF (NLIQOPT.EQ.2) THEN
+! water cloud spectral emissivity a la Lindner and Li (2000)
+            Z1RADL = _ONE_ / ZRADLP(JL)
+!            ZMSALD = RLINLI(JRTM,1) + Z1RADL*(RLINLI(JRTM,2) + Z1RADL*&
+!            &       (RLINLI(JRTM,3) + Z1RADL*(RLINLI(JRTM,4) + Z1RADL*&
+!            &        RLINLI(JRTM,5) )))
+            
+            ZMSALD = RLINLI(JRTM,1)+ZRADLP(JL)*RLINLI(JRTM,2)+ Z1RADL*&
+            &       (RLINLI(JRTM,3) + Z1RADL*(RLINLI(JRTM,4) + Z1RADL*&
+            &        RLINLI(JRTM,5) ))
+          
+          END IF  
+
+          IF (NICEOPT.EQ.0) THEN
+! ice cloud emissivity a la Smith & Shi (1992)
+            ZMULTI=1.2_JPRB-0.006_JPRB*ZRADIP(JL)
+            ZMSAID= 0.108_JPRB*ZMULTI / 1.66_JPRB
+                   
+          ELSE IF (NICEOPT.EQ.1) THEN
+! ice cloud spectral emissivity a la Ebert-Curry (1992)
+            ZMSAID= REBCUH(JRTM)+REBCUG(JRTM)/ZRADIP(JL)
+            
+          ELSE IF (NICEOPT.EQ.2) THEN
+! ice cloud spectral emissivity a la Fu & Liou (1993)
+            ZRATIO= 0.5 / ZRADIP(JL)
+            ZMSAID = RFULIO(JRTM,1) + ZRATIO&
+             &*(RFULIO(JRTM,2) + ZRATIO*RFULIO(JRTM,3))
+             
+          ELSE IF (NICEOPT.EQ.3) THEN
+! ice cloud spectral emissivity a la Fu et al (1998)
+            Z1RADI = _ONE_ / ZDESR(JL)
+            ZMSAID = RFUETA(JRTM,1) + Z1RADI&
+             &*(RFUETA(JRTM,2) + Z1RADI*RFUETA(JRTM,3))
+             
+          END IF    
+
+          IF (.NOT.LINHOM .OR. (LINHOM .AND. NHOWINH.EQ.1) ) THEN
+            ZVL=ZLWFUDG
+            ZVI=ZLWFUDG
+          ELSE IF (LINHOM .AND. NHOWINH.EQ.2) THEN
+            ZVL=PSQLW(JL,IKL)
+            ZVI=PSQIW(JL,IKL)
+          ELSE IF (LINHOM .AND. NHOWINH.EQ.3) THEN
+            ZVL=_ONE_/(_ONE_+PRLVRL(JL,IKL))
+            ZVI=_ONE_/(_ONE_+PRLVRI(JL,IKL))
+          END IF  
+          
+          ZTAUD = ZVL*ZMSALD*ZFLWP(JL)+ZVI*ZMSAID*ZFIWP(JL)
+
+! #DB     write(30,333) ZTAUD,ZVL,ZMSALD,ZFLWP(JL),ZVI,ZMSAID,ZFIWP(JL),PQIWP(JL,IKL),PQLWP(JL,IKL)
+! #DB              333  format(9e14.6)
+
+! Diffusivity correction within clouds a la Savijarvi
+!          ZDIFFD=MIN(MAX(1.517_JPRB-0.156_JPRB*LOG(ZTAUD) , _ONE_) , _TWO_)
+
+          ZDIFFD=1.66_JPRB
+          ZTAUCLD(JL,JK,JRTM) = max(_ZERO_,ZTAUD*ZDIFFD)
+        ENDIF
+        
+! #DB   IF (ZTAUCLD(JL,JK,JRTM).LT.00..OR.ZTAUCLD(JL,JK,JRTM).GT.75. .OR. &
+! #DB &     (k2iii(JL)         .EQ.kio.AND.k2jjj(JL)         .EQ.kjo)     ) THEN
+! #DB     IF (mod(jkjllw,20).EQ.0)                                                 &
+! #DB &     write(6,600) JRTM,NLIQOPT,NICEOPT
+! #DB               600  format('IN   RADLSW: CLOUD LONGWAVE OPTICAL PROPERTIES FOR RRTM, JRTM =',I3 &
+! #DB &                        ,'   NLIQOPT =',I3,'   NICEOPT =',I3,/                                &
+! #DB &                        ,'    i    j   JL   JK',7x,'ZTAU'  ,6x,'ZFLWP' ,6x,'ZFIWP'            &
+! #DB &                        ,                       5x,'ZRADLP',5x,'ZRADIP',6x,'PQIWP',6x,'PQLWP')
+! #DB             jkjllw=jkjllw+1
+! #DB       write(6,601) k2iii(JL),k2jjj(JL),JL,IKL,ZTAUCLD(JL,JK,JRTM), ZFLWP(JL)    , ZFIWP(JL)    &
+! #DB &                                                                ,ZRADLP(JL)    ,ZRADIP(JL)    &
+! #DB &                                                                 ,PQIWP(JL,IKL), PQLWP(JL,IKL)
+! #DB               601  format(4i5,10e11.3)
+! #DB   ENDIF
+
+      ENDDO
+    ENDDO
+!  print *,'Radlsw after LW1 cloud optical properties for level JK=',JK
+
+  ENDIF
+
+ENDDO
+
+NUAER = NUA
+NTRAER = NTRA
+
+!     ------------------------------------------------------------------
+
+!*         2.6    DIFFUSIVITY FACTOR OR SATELLITE VIEWING ANGLE
+!                 ---------------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  ZVIEW(JL) = DIFF
+  ZEMIT(JL) = _ZERO_
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.     CALL LONGWAVE RADIATION CODE
+!                 ----------------------------
+
+
+!*         3.1    FULL LONGWAVE RADIATION COMPUTATIONS
+!                 ------------------------------------
+
+!print *,'Just before calling the radiation schemes'
+!JL=KIDIA
+!DO JK=1,KLEV
+!  IKL=KLEV+1-JK
+!  PRINT 9311,JK,PCLFR(JL,IKL),ZCLDLD(JL,JK),ZTAUCLD(JL,JK,1) &
+!  & ,(ZTAU(JL,JSW,JK),ZOMEGA(JL,JSW,JK),ZCG(JL,JSW,JK),JSW=1,NSW) &
+!  & ,(PAER(JL,JAE,JK),JAE=1,6)
+9311 format(1x,I2,2F8.5,26E12.5)
+!END DO
+!print *,'KLWRAD=',KLWRAD,'  LPHYLIN: ',LPHYLIN,'  LRRTM: ',LRRTM
+
+IF (.NOT.LPHYLIN) THEN
+  IF ( .NOT. LRRTM) THEN
+
+      
+    IF (KLWRAD .EQ. 2) THEN
+      CALL OLW &
+       & ( KIDIA, KFDIA , KLON  , KLEV &
+       & , PCCO2, ZCLDLD, ZCLDLU &
+       & , PDP  , ZDT0  , ZEMIS  &
+       & , PAPH , POZON , PTH &
+       & , PAER , PT    , ZVIEW , PQ &
+       & , ZCOOLR,ZCOOLC, ZFLUX, ZFLUC &
+       & )
+       
+    ELSE IF (KLWRAD .EQ. 0) THEN  
+     
+      CALL LW &
+       &( KIDIA , KFDIA , KLON  , KLEV , KMODE &
+       &, PCCO2 , ZCLDLD, ZCLDLU &
+       &, PDP   , ZDT0  , ZEMIS , ZEMIW &
+       &, ZPMB  , POZON , ZTL &
+       &, PAER  , ZTAVE , ZVIEW , PQ &
+       &, ZCOOLR, ZCOOLC, ZEMIT , ZFLUX, ZFLUC &
+       &)
+       
+     END IF  
+
+  ELSE
+
+
+!*         3.2    FULL LONGWAVE RADIATION COMPUTATIONS - RRTM
+!                 ------------------------------------   ----
+
+!  i)  pass POZN (ozone mmr concentration) to RRTM; remove pressure
+!      weighting applied to POZON in driverMC (below)
+!  ii) pass ZEMIS and ZEMIW to RRTM; return ZEMIT from RRTM
+!  iii)pass ZTAUCLD, cloud optical depths (water+ice) to RRTM, 
+!      computed from equations above
+!  iv) pass ECRT arrays to RRTM arrays in interface routine ECRTATM
+!      in module rrtm_ecrt.f
+
+    DO JL = KIDIA,KFDIA
+      DO JK = 1, KLEV
+        ZOZN(JL,JK) = POZON(JL,JK)/PDP(JL,JK)
+      ENDDO
+    ENDDO
+
+! #DB             jkjllw = 0
+! #DB DO JL = KIDIA,KFDIA
+! #DB DO JK = 1, KLEV
+! #DB   IKL = KLEV + 1 - JK
+! #DB      JAERmin=1
+! #DB      JAERmax=6
+! #DB      PAERmin=1000.
+! #DB      PAERmax=0.
+! #DB     jTAUCLDmin=1
+! #DB     jTAUCLDmax=16
+! #DB      TAUCLDmin=1000.
+! #DB      TAUCLDmax=0.
+! #DB   DO JRTM=1,16
+! #DB    IF (ZTAUCLD(JL,JK,JRTM).LT.TAUCLDmin)                      THEN
+! #DB      jTAUCLDmin=JRTM
+! #DB       TAUCLDmin=ZTAUCLD(JL,JK,JRTM)
+! #DB    END IF
+! #DB    IF (ZTAUCLD(JL,JK,JRTM).GT.TAUCLDmax)                      THEN
+! #DB      jTAUCLDmax=JRTM
+! #DB       TAUCLDmax=ZTAUCLD(JL,JK,JRTM)
+! #DB    END IF
+! #DB   ENDDO
+! #DB   DO JAE =1,6
+! #DB    IF (PAER(JL,JAE,JK).LT.PAERmin)                            THEN
+! #DB      JAERmin=JAE
+! #DB      PAERmin=PAER(JL,JAE,JK)
+! #DB    END IF
+! #DB    IF (PAER(JL,JAE,JK).GT.PAERmax)                            THEN
+! #DB      JAERmax=JAE
+! #DB      PAERmax=PAER(JL,JAE,JK)
+! #DB    END IF
+! #DB   ENDDO
+! #DB   IF (TAUCLDmin.LT.0..OR.TAUCLDmax.GT.75.)                    THEN
+! #DB     IF (mod(jkjllw,20).EQ.0)                                                         &
+! #DB &     write(6,515)
+! #DB               515  format('IN   RADLSW: BEFORE RRTM_RRTM_140GP CALL',/               &
+! #DB &                         ,'    i    j   JL   JK',7x,'ZOZN',5x,'ZCLDSW'              &
+! #DB &                         ,4x,'ZTAUCLDmin',4x,'ZTAUCLDmax'                           &
+! #DB &                         ,4x,'PAERmin',4x,'PAERmax',6x,'PQIWP',6x,'PQLWP',9x,'PQ')
+! #DB             jkjllw = jkjllw + 1
+! #DB       write(6,602) k2iii(JL),k2jjj(JL),JL,JK,ZOZN(JL,JK),ZCLDSW(JL,JK)               &
+! #DB &                                           ,jTAUCLDmin,ZTAUCLD(JL,JK,jTAUCLDmin)    &
+! #DB &                                           ,jTAUCLDmax,ZTAUCLD(JL,JK,jTAUCLDmax)    &
+! #DB &                                           ,PAER(JL,JAERmin,JK),PAER(JL,JAERmax,JK) &
+! #DB &                                           ,PQIWP(JL,IKL),PQLWP(JL,IKL),PQ(JL,IKL)
+! #DB               602  format(4i5,2e11.3,2(i3,e11.3),8e11.3)
+! #DB   ENDIF
+! #DB ENDDO
+! #DB ENDDO
+
+!    print *,'Just before calling RRTM'
+
+    CALL RRTM_RRTM_140GP &
+     &( KIDIA , KFDIA , KLON  , KLEV &
+     &, PAER  , PAPH  , PAP   &
+     &, PTS   , PTH   , PT     &
+     &, ZEMIS , ZEMIW &
+     &, PQ    , PCCO2 , ZOZN  , ZCLDSW  , ZTAUCLD &
+     &, ZEMIT , ZFLUX , ZFLUC , ZTCLEAR &
+     &)
+     
+!     print *,'just after RRTM'    
+
+  ENDIF
+ELSE
+  ZCOOLR(:,:) = _ZERO_
+  ZCOOLC(:,:) = _ZERO_
+  ZEMIT (:)   = _ZERO_
+  ZFLUX(:,:,:)= _ZERO_
+  ZFLUC(:,:,:)= _ZERO_
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         4.     CALL SHORTWAVE RADIATION CODE
+!                 -----------------------------
+
+
+ZRMUZ=_ZERO_
+DO JL = KIDIA,KFDIA
+  ZRMUZ = MAX (ZRMUZ, ZMU0(JL))
+ENDDO
+
+IF (ZRMUZ > _ZERO_) THEN
+!print *,'CALL SW'    
+
+  CALL SW &
+   &( KIDIA , KFDIA , KLON  , KLEV  , KAER &
+   &, PRII0 , PCCO2 , ZPSOL , ZALBD , ZALBP , PQ   , PQS &
+   &, ZMU0  , ZCG   , ZCLDSW, PDP   , ZOMEGA, ZOZ  , ZPMB &
+   &, ZTAU  , ZTAVE , PAER &
+   &, ZHEATR, ZFSDWN, ZFSUP , ZHEATC, ZFCDWN, ZFCUP &
+   &, ZFSDNN, ZFSDNV, ZFSUPN, ZFSUPV &
+   &, ZFCDNN, ZFCDNV, ZFCUPN, ZFCUPV &
+   &, ZSUDU , ZUVDF , ZPARF &
+   &)
+   
+!     print *,'just after SW'    
+!     JL=KIDIA
+!     print *,'just after SW UV & PAR ',ZUVDF(JL),ZPARF(JL)
+
+ENDIF
+
+! #DB             jkjlsw = 0
+! #DB DO JL = KIDIA,KFDIA
+! #DB DO JK = 1,KLEV
+! #DB   IF (k2iii(JL).EQ.kio.AND.k2jjj(JL).EQ.kjo) THEN
+! #DB     IF (mod(jkjlsw,20).EQ.0)                                                &
+! #DB       write(6,525)
+! #DB               525 format('IN   RADLSW: AFTER  SW              CALL',/       &
+! #DB &                       ,'    i    j   JL   JK'                             &
+! #DB &                       ,4x,'ZFCDWN',5x,'ZFCUP' ,4x,'ZFSDNN',4x,'ZFCDNN'    &
+! #DB &                       ,4x,'ZFSDNV',4x,'ZFSUPN',4x,'ZFSUPV',4x,'ZFCDNN'    &
+! #DB &                       ,4x,'ZFCDNV',4x,'ZFCUPN',4x,'ZFCUPV')
+! #DB             jkjlsw = jkjlsw + 1
+! #DB       write(6,605) k2iii(JL),k2jjj(JL),JL,JK,ZFCDWN(JL,JK),ZFCUP(JL,JK)     &
+! #DB &               ,ZFSDNN(JL),ZFCDNN(JL),ZFSDNV(JL),ZFSUPN(JL),ZFSUPV(JL)     &
+! #DB &               ,ZFCDNN(JL),ZFCDNV(JL),ZFCUPN(JL),ZFCUPV(JL)
+! #DB               605  format(4i5,11e10.3)
+! #DB   ENDIF
+! #DB ENDDO
+! #DB ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         5.     FILL UP THE MODEL NET LW AND SW RADIATIVE FLUXES
+!                 ------------------------------------------------
+
+
+DO JKL = 1 , KLEV+1
+  JK = KLEV+1 + 1 - JKL
+  DO JL = KIDIA,KFDIA
+!    print 9506,JK,ZFSDWN(JL,JK),ZFSUP(JL,JK),ZFLUX(JL,1,JK),ZFLUX(JL,2,JK) &
+!    & , ZFCDWN(JL,JK),ZFCUP(JL,JK),ZFLUC(JL,1,JK),ZFLUC(JL,2,JK)
+9506 format(1x,I3,8f10.3)    
+  
+    CPFLS(JL,JKL) =CPFLS(JL,JKL) +ZWGHT*(ZFSDWN(JL,JK) - ZFSUP(JL,JK))
+    CPFLT(JL,JKL) =CPFLT(JL,JKL) +ZWGHT*(- ZFLUX(JL,1,JK) - ZFLUX(JL,2,JK))
+    CPFCS(JL,JKL) =CPFCS(JL,JKL) +ZWGHT*(ZFCDWN(JL,JK)  - ZFCUP(JL,JK))
+    CPFCT(JL,JKL) =CPFCT(JL,JKL) +ZWGHT*(- ZFLUC(JL,1,JK) - ZFLUC(JL,2,JK))
+    CPFDCT(JL,JKL)=CPFDCT(JL,JKL)+ZWGHT*ZFLUC(JL,2,JK)
+    CPFUCT(JL,JKL)=CPFUCT(JL,JKL)+ZWGHT*ZFLUC(JL,1,JK)
+    CPFDLT(JL,JKL)=CPFDLT(JL,JKL)+ZWGHT*ZFLUX(JL,2,JK)
+    CPFULT(JL,JKL)=CPFULT(JL,JKL)+ZWGHT*ZFLUX(JL,1,JK)
+    CPFDCS(JL,JKL)=CPFDCS(JL,JKL)+ZWGHT*ZFCDWN(JL,JK)
+    CPFUCS(JL,JKL)=CPFUCS(JL,JKL)+ZWGHT*ZFCUP(JL,JK)
+    CPFDLS(JL,JKL)=CPFDLS(JL,JKL)+ZWGHT*ZFSDWN(JL,JK)
+    CPFULS(JL,JKL)=CPFULS(JL,JKL)+ZWGHT*ZFSUP(JL,JK)
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+! print 9507,ZFSDWN(JL,1),ZSUDU(JL),ZUVDF(JL),ZPARF(JL)
+9507 format(1x,'SW Global Normal UV & PAR:',5f10.3)
+  
+  CPFRSOD(JL) = CPFRSOD(JL) + ZWGHT*ZFSDWN(JL,1)
+  CPEMIT (JL) = CPEMIT (JL) + ZWGHT*ZEMIT (JL)
+  CPSUDU (JL) = CPSUDU (JL) + ZWGHT*ZSUDU (JL)
+  CPUVDF (JL) = CPUVDF (JL) + ZWGHT*ZUVDF (JL)
+  CPPARF (JL) = CPPARF (JL) + ZWGHT*ZPARF (JL)
+  
+  ASWBOX(JL,ICBOX) = -ZFSDWN(JL,KLEV+1) + ZFSUP(JL,KLEV+1)
+  OLRBOX(JL,ICBOX) = -ZFLUX(JL,1,KLEV+1)
+  SLWBOX(JL,ICBOX) = -ZFLUX(JL,2,1)
+  SSWBOX(JL,ICBOX) = -ZFSDWN(JL,1)
+  TAUBOX(JL,ICBOX) = ZTAUINT(JL)
+  ZTCA(JL) = ZTCA(JL) + ZWGHT*ZCOL(JL)
+!  print 9508,ICBOX,ASWBOX(JL,ICBOX),OLRBOX(JL,ICBOX),SLWBOX(JL,ICBOX) &
+!  & ,SSWBOX(JL,ICBOX),TAUBOX(JL,ICBOX),ZCOL(JL),ZTCA(JL),ZTCC(JL)
+9508 format(1x,'radlsw',I3,5F10.3,1x,3F7.4)  
+ENDDO
+
+
+ENDDO
+!
+!-- end of box-type calculations
+!      
+ 
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFLS(JL,JK)  = CPFLS(JL,JK) 
+    PFLT(JL,JK)  = CPFLT(JL,JK) 
+    PFCS(JL,JK)  = CPFCS(JL,JK) 
+    PFCT(JL,JK)  = CPFCT(JL,JK) 
+    PFDCT(JL,JK) = CPFDCT(JL,JK)
+    PFUCT(JL,JK) = CPFUCT(JL,JK)
+    PFDLT(JL,JK) = CPFDLT(JL,JK)
+    PFULT(JL,JK) = CPFULT(JL,JK)
+    PFDCS(JL,JK) = CPFDCS(JL,JK)
+    PFUCS(JL,JK) = CPFUCS(JL,JK)
+    PFDLS(JL,JK) = CPFDLS(JL,JK)
+    PFULS(JL,JK) = CPFULS(JL,JK)
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PFRSOD(JL) = CPFRSOD(JL)
+  PEMIT (JL) = CPEMIT (JL)
+  PSUDU (JL) = CPSUDU (JL)
+  PUVDF (JL) = CPUVDF (JL)
+  PPARF (JL) = CPPARF (JL)
+ENDDO
+
+!-- re-organize the box-tyoe output arrays in decreasing order of TAU
+DO JL=KIDIA,KFDIA
+  DO ICBOX=2,NBOX
+    ZTOI=TAUBOX(JL,ICBOX)
+    DO IMOV=ICBOX-1,1,-1
+      IF(TAUBOX(JL,IMOV).LE.ZTOI) GO TO 8001
+        TAUBOX(JL,IMOV+1)=TAUBOX(JL,IMOV)
+    END DO
+    IMOV=0
+8001 CONTINUE
+    TAUBOX(JL,IMOV+1)=ZTOI
+  END DO  
+END DO
+
+!-- re-organize the box-type output arrays in decreasing order of ASW
+DO JL=KIDIA,KFDIA
+  DO ICBOX=2,NBOX
+    ZASW=ASWBOX(JL,ICBOX)
+    DO IMOV=ICBOX-1,1,-1
+      IF(ASWBOX(JL,IMOV).LE.ZASW) GO TO 8002
+        ASWBOX(JL,IMOV+1)=ASWBOX(JL,IMOV)
+    END DO
+    IMOV=0
+8002 CONTINUE
+    ASWBOX(JL,IMOV+1)=ZASW
+  END DO  
+END DO
+
+!-- re-organize the box-tyoe output arrays in decreasing order of -OLR
+DO JL=KIDIA,KFDIA
+  DO ICBOX=2,NBOX
+    ZOLR=OLRBOX(JL,ICBOX)
+    DO IMOV=ICBOX-1,1,-1
+      IF(OLRBOX(JL,IMOV).LE.ZOLR) GO TO 8003
+        OLRBOX(JL,IMOV+1)=OLRBOX(JL,IMOV)
+    END DO
+    IMOV=0
+8003 CONTINUE
+    OLRBOX(JL,IMOV+1)=ZOLR
+  END DO  
+END DO
+
+!-- re-organize the box-tyoe output arrays in decreasing order of SLW
+DO JL=KIDIA,KFDIA
+  DO ICBOX=2,NBOX
+    ZSLW=SLWBOX(JL,ICBOX)
+    DO IMOV=ICBOX-1,1,-1
+      IF(SLWBOX(JL,IMOV).LE.ZSLW) GO TO 8004
+        SLWBOX(JL,IMOV+1)=SLWBOX(JL,IMOV)
+    END DO
+    IMOV=0
+8004 CONTINUE
+    SLWBOX(JL,IMOV+1)=ZSLW
+  END DO  
+END DO
+
+!-- re-organize the box-type output arrays in decreasing order of -SSW
+DO JL=KIDIA,KFDIA
+  DO ICBOX=2,NBOX
+    ZSSW=SSWBOX(JL,ICBOX)
+    DO IMOV=ICBOX-1,1,-1
+      IF(SSWBOX(JL,IMOV).LE.ZSSW) GO TO 8005
+        SSWBOX(JL,IMOV+1)=SSWBOX(JL,IMOV)
+    END DO
+    IMOV=0
+8005 CONTINUE
+    SSWBOX(JL,IMOV+1)=ZSSW
+  END DO  
+END DO
+
+!-- put all arrays as positive numbers for plotting
+DO JL=KIDIA,KFDIA
+  DO ICBOX=1,NBOX
+    ASWBOX(JL,ICBOX)=-ASWBOX(JL,ICBOX)
+    OLRBOX(JL,ICBOX)=-OLRBOX(JL,ICBOX)
+    SSWBOX(JL,ICBOX)=-SSWBOX(JL,ICBOX)
+  END DO  
+END DO
+
+!     --------------------------------------------------------------
+
+RETURN
+END SUBROUTINE RADLSW
Index: LMDZ5/branches/testing/libf/phymar/radozc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/radozc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/radozc.F90	(revision 2160)
@@ -0,0 +1,183 @@
+SUBROUTINE RADOZC ( KIDIA , KFDIA , KLON , KTDIA , KLEV &
+                  &, KRINT , KDLON , KSHIFT &
+                  &, PAPRS , PGEMU &
+                  &, POZON                 )
+
+!***********************************************************************
+! CAUTION: THIS ROUTINE WORKS ONLY ON A NON-ROTATED, UNSTRETCHED GRID
+!***********************************************************************
+
+!**** *RADOZC* - COMPUTES DISTRIBUTION OF OZONE FROM CLIMATOLOGY
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *RADOZC* FROM *RADINT*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    95/01/25
+
+!     MODIFICATIONS.
+!     --------------
+!          D.SALMOND   ECMWF    99-06-14   Optimisation
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : R
+USE YOEOZOC  , ONLY : RSINC    ,ROZT     ,RPROC
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KDLON
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KRINT
+INTEGER_M :: KSHIFT
+INTEGER_M :: KTDIA
+
+
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+REAL_B :: PAPRS(KLON,KLEV+1),PGEMU(KLON)
+
+REAL_B :: POZON(KDLON,KLEV)
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZOZLT(0:35) , ZOZON(KDLON,KLEV+1)
+REAL_B :: ZRRR(0:34)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IL, INLA, JC, JK, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZPMR, ZSILAT, ZSIN
+
+!     ------------------------------------------------------------------
+!     ------------------------------------------------------------------
+!     ------------------------------------------------------------------
+
+!*         1.     LATITUDE INDEX WITHIN OZONE CLIMATOLOGY
+!                 ---------------------------------------
+
+
+
+ZSIN=PGEMU(KIDIA)
+INLA=0
+ZSILAT=-9999._JPRB
+DO JL=18,1,-1
+  IF (ZSIN <= RSINC(JL+1).AND.ZSIN >= RSINC(JL)) THEN
+    INLA=JL
+  ENDIF
+ENDDO
+IF (INLA == 0) THEN
+!  CALL ABOR1(' Problem with lat. interpolation in radozc!')
+  PRINT *,' Problem with lat. interpolation in radozc!'
+ENDIF
+ZSILAT=(ZSIN-RSINC(INLA))/(RSINC(INLA+1)-RSINC(INLA))
+
+!     ------------------------------------------------------------------
+
+
+!*         2.     LATITUDE INTERPOLATED FIELD
+!                 ---------------------------
+
+
+IF(INLA == 18.OR.INLA == 1) THEN
+  DO JC=0,35
+    ZOZLT(JC)=ROZT(INLA,JC)
+  ENDDO
+ELSE
+  DO JC=0,35
+    ZOZLT(JC)=ROZT(INLA,JC)+ZSILAT*(ROZT(INLA+1,JC)-ROZT(INLA,JC))
+  ENDDO
+ENDIF
+
+
+!     ------------------------------------------------------------------
+
+!*         3.     VERTICAL INTERPOLATION 
+!                 ----------------------
+
+DO JC=0,34
+  ZRRR(JC)=(_ONE_/(RPROC(JC)-RPROC(JC+1)))*(ZOZLT(JC)-ZOZLT(JC+1))
+ENDDO
+
+
+IL=KSHIFT
+DO JL=KIDIA,KFDIA,KRINT
+  IL=IL+1
+  DO JC=0,34
+    DO JK=1,KLEV+1
+    ZPMR=PAPRS(JL,JK)
+      IF(ZPMR >= RPROC(JC).AND.ZPMR < RPROC(JC+1)) &
+&        ZOZON(IL,JK)=ZOZLT(JC+1)+(ZPMR-RPROC(JC+1))*ZRRR(JC)
+    ENDDO
+  ENDDO
+ENDDO
+
+IL=KSHIFT
+DO JL=KIDIA,KFDIA,KRINT
+  IL=IL+1
+  DO JK=1,KLEV+1
+    ZPMR=PAPRS(JL,JK)
+    ZPMR=PAPRS(JL,JK)
+    IF(ZPMR >= RPROC(35)) ZOZON(IL,JK)=ZOZLT(35)
+  ENDDO
+ENDDO
+
+! INTEGRATION IN THE VERTICAL:
+IL=KSHIFT
+DO JL=KIDIA,KFDIA,KRINT
+  IL=IL+1
+  DO JK=1,KLEV
+    POZON(IL,JK)=(PAPRS(JL,JK+1)-PAPRS(JL,JK))&
+     &*(ZOZON(IL,JK)+ZOZON(IL,JK+1))*_HALF_
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------
+
+RETURN
+END SUBROUTINE RADOZC
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb1.F90	(revision 2160)
@@ -0,0 +1,159 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB1
+!***************************************************************************
+
+!  The subroutines CMBGB1->CMBGB16 input the absorption coefficient
+!  data for each band, which are defined for 16 g-points and 16 spectral
+!  bands. The data are combined with appropriate weighting following the
+!  g-point mapping arrays specified in RRTMINIT.  Plank fraction data
+!  in arrays FRACREFA and FRACREFB are combined without weighting.  All
+!  g-point reduced data are put into new arrays for use in RRTM.
+
+!  BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+!  INSTRUCTION EQUIVALENCE SUPPRESSED (H. Gallée, LGGE, 15 décembre 2003)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO1 , ONLY : KAO , KBO  , SELFREFO, FORREFO, FRACREFAO,FRACREFBO
+USE YOERRTA1 , ONLY : KA  , KB   , SELFREF , FORREF , FRACREFA ,FRACREFB      &
+             &      , ABSA, ABSB , NG1
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF1, SUMF2, SUMK
+
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(1)
+  SUMK = _ZERO_
+  SUMF1 = _ZERO_
+  SUMF2 = _ZERO_
+  DO IPR = 1, NGN(IGC)
+    IPRSM = IPRSM + 1
+
+
+
+    SUMK = SUMK + FORREFO(IPRSM)*RWGT(IPRSM)
+    SUMF1= SUMF1+ FRACREFAO(IPRSM)
+    SUMF2= SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+
+
+  FORREF(IGC) = SUMK
+  FRACREFA(IGC) = SUMF1
+  FRACREFB(IGC) = SUMF2
+ENDDO
+
+DO IGC = 1,NGC(1)
+
+
+  FREFA(IGC,1) = FRACREFA(IGC)
+  FREFB(IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JT  = 0
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG1
+      DO MEQ=1,65
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSA(MEQ,NEQ) = KA(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG1
+      DO MEQ=1,235
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb10.F90	(revision 2160)
@@ -0,0 +1,133 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB10
+!***************************************************************************
+
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+USE YOERRTA10, ONLY : KA      ,KB       ,FRACREFA    ,FRACREFB             &
+             &      , ABSA    ,ABSB     ,NG10
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF1, SUMF2, SUMK
+
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(10)
+  SUMF1= _ZERO_
+  SUMF2= _ZERO_
+  DO IPR = 1, NGN(NGS(9)+IGC)
+    IPRSM = IPRSM + 1
+
+
+    SUMF1= SUMF1+ FRACREFAO(IPRSM)
+    SUMF2= SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+
+  FRACREFA(IGC) = SUMF1
+  FRACREFB(IGC) = SUMF2
+ENDDO
+
+DO IGC = 1,NGC(10)
+
+
+  FREFA(NGS(9)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(9)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JT  = 0
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG10
+      DO MEQ=1,65
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSA(MEQ,NEQ) = KA(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG10
+      DO MEQ=1,235
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB10
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb11.F90	(revision 2160)
@@ -0,0 +1,147 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB11
+!***************************************************************************
+
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+USE YOERRTA11, ONLY : KA      ,KB      ,SELFREF     ,FRACREFA  ,FRACREFB   &
+             &      , ABSA    ,ABSB    ,NG11
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF1, SUMF2, SUMK
+
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(11)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(10)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+160)
+      ENDDO
+
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(11)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(10)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+160)
+      ENDDO
+
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(11)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(10)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+160)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(11)
+  SUMF1= _ZERO_
+  SUMF2= _ZERO_
+  DO IPR = 1, NGN(NGS(10)+IGC)
+    IPRSM = IPRSM + 1
+
+
+    SUMF1= SUMF1+ FRACREFAO(IPRSM)
+    SUMF2= SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+
+  FRACREFA(IGC) = SUMF1
+  FRACREFB(IGC) = SUMF2
+ENDDO
+
+DO IGC = 1,NGC(11)
+
+
+  FREFA(NGS(10)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(10)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JT  = 0
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG11
+      DO MEQ=1,65
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSA(MEQ,NEQ) = KA(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG11
+      DO MEQ=1,235
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB11
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb12.F90	(revision 2160)
@@ -0,0 +1,123 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB12
+!***************************************************************************
+
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : KA      ,SELFREF    ,FRACREFA                        &
+             &      , ABSA    ,NG12
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(12)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(11)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+176)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(12)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(11)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+176)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(12)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(11)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(12)
+
+    FREFA(NGS(11)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(12)
+
+
+    FREFADF(NGS(11)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG12
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB12
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb13.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb13.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb13.F90	(revision 2160)
@@ -0,0 +1,123 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB13
+!***************************************************************************
+
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : KA      ,SELFREF    ,FRACREFA                        &
+             &      , ABSA    ,NG13
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+192)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(13)
+
+    FREFA(NGS(12)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(13)
+
+
+    FREFADF(NGS(12)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG13
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB13
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb14.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb14.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb14.F90	(revision 2160)
@@ -0,0 +1,148 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB14
+!***************************************************************************
+
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA14, ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB   &
+             &      , ABSA    ,ABSB    ,NG14
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF1, SUMF2, SUMK
+
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(14)
+  SUMF1= _ZERO_
+  SUMF2= _ZERO_
+  DO IPR = 1, NGN(NGS(13)+IGC)
+    IPRSM = IPRSM + 1
+
+
+    SUMF1= SUMF1+ FRACREFAO(IPRSM)
+    SUMF2= SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+
+  FRACREFA(IGC) = SUMF1
+  FRACREFB(IGC) = SUMF2
+ENDDO
+
+DO IGC = 1,NGC(14)
+
+
+  FREFA(NGS(13)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(13)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JT  = 0
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG14
+      DO MEQ=1,65
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSA(MEQ,NEQ) = KA(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG14
+      DO MEQ=1,235
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB14
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb15.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb15.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb15.F90	(revision 2160)
@@ -0,0 +1,123 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB15
+!***************************************************************************
+
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : KA      ,SELFREF    ,FRACREFA                        &
+             &      , ABSA    ,NG15
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(15)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(14)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+224)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(15)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(14)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+224)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(15)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(14)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(15)
+
+    FREFA(NGS(14)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(15)
+
+
+    FREFADF(NGS(14)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG15
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB15
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb16.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb16.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb16.F90	(revision 2160)
@@ -0,0 +1,124 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB16
+!***************************************************************************
+
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : KA      ,SELFREF    ,FRACREFA                        &
+             &      , ABSA    ,NG16
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(16)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(15)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+240)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(16)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(15)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+240)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(16)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(15)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(16)
+
+    FREFA(NGS(15)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+DO JP = 1,8
+  DO IGC = 1,NGC(16)
+
+
+    FREFADF(NGS(15)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG16
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB16
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb2.F90	(revision 2160)
@@ -0,0 +1,172 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB2
+!***************************************************************************
+
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO
+USE YOERRTA2 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+             &        FRACREFB,FORREF  ,REFPARAM               ,&
+             &        ABSA    ,ABSB    ,NG2
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(2)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(1)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+16)
+      ENDDO
+
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(2)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(1)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+16)
+      ENDDO
+!               KBC(JT,JP,IGC) = SUMK
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,13
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(2)
+  SUMK = _ZERO_
+  SUMF = _ZERO_
+  DO IPR = 1, NGN(NGS(1)+IGC)
+    IPRSM = IPRSM + 1
+
+
+    SUMK = SUMK + FORREFO(IPRSM)*RWGT(IPRSM+16)
+    SUMF = SUMF + FRACREFBO(IPRSM)
+  ENDDO
+
+
+  FORREF(IGC) = SUMK
+  FRACREFB(IGC) = SUMF
+ENDDO
+
+DO JP = 1,13
+  DO IGC = 1,NGC(2)
+
+    FREFA(NGS(1)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 2,13
+  DO IGC = 1,NGC(2)
+
+
+    FREFADF(NGS(1)+IGC,JP) = FRACREFA(IGC,JP-1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO IGC = 1,NGC(2)
+
+  FREFB(NGS(1)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JT  = 0
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG2
+      DO MEQ=1,65
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSA(MEQ,NEQ) = KA(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG2
+      DO MEQ=1,235
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb3.F90	(revision 2160)
@@ -0,0 +1,207 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB3
+!***************************************************************************
+
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+             &        FRACREFB,FORREF  ,ABSN2OA    ,ABSN2OB    ,&
+             &        ABSA    ,ABSB    ,NG3
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK, SUMK1, SUMK2, SUMK3
+
+
+DO JN = 1,10
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    SUMK = _ZERO_
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+32)
+      SUMF = SUMF + FRACREFAO(IPRSM,JT)
+    ENDDO
+
+
+    SELFREF(JT,IGC) = SUMK
+    FRACREFA(IGC,JT) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(3)
+  SUMK1= _ZERO_
+  SUMK2= _ZERO_
+  SUMK3= _ZERO_
+  DO IPR = 1, NGN(NGS(2)+IGC)
+    IPRSM = IPRSM + 1
+
+
+
+    SUMK1= SUMK1+ FORREFO(IPRSM)*RWGT(IPRSM+32)
+    SUMK2= SUMK2+ ABSN2OAO(IPRSM)*RWGT(IPRSM+32)
+    SUMK3= SUMK3+ ABSN2OBO(IPRSM)*RWGT(IPRSM+32)
+  ENDDO
+
+
+
+  FORREF(IGC) = SUMK1
+  ABSN2OA(IGC) = SUMK2
+  ABSN2OB(IGC) = SUMK3
+ENDDO
+
+DO JP = 1,10
+  DO IGC = 1,NGC(3)
+
+    FREFA(NGS(2)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,9
+  DO IGC = 1,NGC(3)
+
+
+    FREFADF(NGS(2)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,5
+  DO IGC = 1,NGC(3)
+
+    FREFB(NGS(2)+IGC,JP) = FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,4
+  DO IGC = 1,NGC(3)
+
+
+    FREFBDF(NGS(2)+IGC,JP) = FRACREFB(IGC,JP+1) -FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG3
+      DO MEQ=1,650
+             JN =  JN  + 1
+      IF   ( JN == 10  + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG3
+      DO MEQ=1,1175
+             JN =  JN  + 1
+      IF   ( JN == 5   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSB(MEQ,NEQ) = KB(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB3
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb4.F90	(revision 2160)
@@ -0,0 +1,192 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB4
+!***************************************************************************
+
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB   &
+               &    , ABSA    ,ABSB    ,NG4
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,6
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,6
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(4)
+
+    FREFA(NGS(3)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(4)
+
+
+    FREFADF(NGS(3)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,6
+  DO IGC = 1,NGC(4)
+
+    FREFB(NGS(3)+IGC,JP) = FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,5
+  DO IGC = 1,NGC(4)
+
+
+    FREFBDF(NGS(3)+IGC,JP) = FRACREFB(IGC,JP+1) -FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG4
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG4
+      DO MEQ=1,1410
+             JN =  JN  + 1
+      IF   ( JN == 6   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSB(MEQ,NEQ) = KB(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB4
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb5.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb5.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb5.F90	(revision 2160)
@@ -0,0 +1,206 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB5
+!***************************************************************************
+
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+             &        FRACREFB,CCL4                            ,&
+             &        ABSA    ,ABSB    ,NG5
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(5)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(4)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+64)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(5)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(4)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+64)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(5)
+  SUMK = _ZERO_
+  DO IPR = 1, NGN(NGS(4)+IGC)
+    IPRSM = IPRSM + 1
+
+    SUMK = SUMK + CCL4O(IPRSM)*RWGT(IPRSM+64)
+  ENDDO
+
+  CCL4(IGC) = SUMK
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(5)
+
+    FREFA(NGS(4)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(5)
+
+
+    FREFADF(NGS(4)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,5
+  DO IGC = 1,NGC(5)
+
+    FREFB(NGS(4)+IGC,JP) = FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,4
+  DO IGC = 1,NGC(5)
+
+
+    FREFBDF(NGS(4)+IGC,JP) = FRACREFB(IGC,JP+1) -FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG5
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG5
+      DO MEQ=1,1175
+             JN =  JN  + 1
+      IF   ( JN == 5   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSB(MEQ,NEQ) = KB(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB5
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb6.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb6.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb6.F90	(revision 2160)
@@ -0,0 +1,124 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB6
+!***************************************************************************
+
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND  ,JPG        ,JPXSEC     ,JPGPT 
+
+USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,&
+           &ABSCO2O ,CFC11ADJO,CFC12O
+USE YOERRTA6 , ONLY : KA      ,SELFREF    ,FRACREFA   ,&
+             &        ABSCO2  ,CFC11ADJ   ,CFC12      ,&
+             &        ABSA    ,NG6
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK, SUMK1, SUMK2, SUMK3
+
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(6)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(5)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+80)
+      ENDDO
+
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(6)
+  SUMF = _ZERO_
+  SUMK1= _ZERO_
+  SUMK2= _ZERO_
+  SUMK3= _ZERO_
+  DO IPR = 1, NGN(NGS(5)+IGC)
+    IPRSM = IPRSM + 1
+
+
+
+
+    SUMF = SUMF + FRACREFAO(IPRSM)
+    SUMK1= SUMK1+ ABSCO2O(IPRSM)*RWGT(IPRSM+80)
+    SUMK2= SUMK2+ CFC11ADJO(IPRSM)*RWGT(IPRSM+80)
+    SUMK3= SUMK3+ CFC12O(IPRSM)*RWGT(IPRSM+80)
+  ENDDO
+
+
+
+
+  FRACREFA(IGC) = SUMF
+  ABSCO2(IGC) = SUMK1
+  CFC11ADJ(IGC) = SUMK2
+  CFC12(IGC) = SUMK3
+ENDDO
+
+DO IGC = 1,NGC(6)
+
+
+  FREFA(NGS(5)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(5)+IGC,1) = FRACREFA(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+      DO NEQ=1,NG6
+      DO MEQ=1,65
+             JN =  JN  + 1
+      IF   ( JN == 5   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 13  + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB6
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb7.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb7.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb7.F90	(revision 2160)
@@ -0,0 +1,180 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB7
+!***************************************************************************
+
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, ABSCO2O
+USE YOERRTA7 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+             &        FRACREFB,ABSCO2                          ,& 
+             &        ABSA    ,ABSB    ,NG7
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(7)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(6)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+96)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(7)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(6)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+96)
+      ENDDO
+
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(7)
+  SUMF = _ZERO_
+  SUMK = _ZERO_
+  DO IPR = 1, NGN(NGS(6)+IGC)
+    IPRSM = IPRSM + 1
+
+
+    SUMF = SUMF + FRACREFBO(IPRSM)
+    SUMK = SUMK + ABSCO2O(IPRSM)*RWGT(IPRSM+96)
+  ENDDO
+
+
+  FRACREFB(IGC) = SUMF
+  ABSCO2(IGC) = SUMK
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(7)
+
+    FREFA(NGS(6)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(7)
+
+
+    FREFADF(NGS(6)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO IGC = 1,NGC(7)
+
+  FREFB(NGS(6)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG7
+      DO MEQ=1,585
+             JN =  JN  + 1
+      IF   ( JN == 9   + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JN  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG7
+      DO MEQ=1,235
+             JN =  JN  + 1
+      IF   ( JN == 5   + 1)                                         THEN
+             JN =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+      END IF
+             ABSB(MEQ,NEQ) = KB(JN,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB7
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb8.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb8.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb8.F90	(revision 2160)
@@ -0,0 +1,156 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB8
+!***************************************************************************
+
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT 
+
+USE YOERRTO8 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, ABSCO2AO,ABSCO2BO,ABSN2OAO   ,ABSN2OBO   ,&
+           &CFC12O   , CFC22ADJO
+USE YOERRTA8 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+           &FRACREFB , ABSCO2A ,ABSCO2B ,ABSN2OA   ,ABSN2OB    ,&
+           &CFC12    , CFC22ADJ,ABSA    ,ABSB      ,NG8
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF1, SUMF2, SUMK, SUMK1, SUMK2, SUMK3, SUMK4, SUMK5, SUMK6
+
+
+DO JT = 1,5
+  DO JP = 1,7
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        SUMK = SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KA(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 7,59
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(8)
+  SUMF1= _ZERO_
+  SUMF2= _ZERO_
+  SUMK1= _ZERO_
+  SUMK2= _ZERO_
+  SUMK3= _ZERO_
+  SUMK4= _ZERO_
+  SUMK5= _ZERO_
+  SUMK6= _ZERO_
+  DO IPR = 1, NGN(NGS(7)+IGC)
+    IPRSM = IPRSM + 1
+    SUMF1= SUMF1+ FRACREFAO(IPRSM)
+    SUMF2= SUMF2+ FRACREFBO(IPRSM)
+    SUMK1= SUMK1+ ABSCO2AO(IPRSM)*RWGT(IPRSM+112)
+    SUMK2= SUMK2+ ABSCO2BO(IPRSM)*RWGT(IPRSM+112)
+    SUMK3= SUMK3+ ABSN2OAO(IPRSM)*RWGT(IPRSM+112)
+    SUMK4= SUMK4+ ABSN2OBO(IPRSM)*RWGT(IPRSM+112)
+    SUMK5= SUMK5+ CFC12O(IPRSM)*RWGT(IPRSM+112)
+    SUMK6= SUMK6+ CFC22ADJO(IPRSM)*RWGT(IPRSM+112)
+  ENDDO
+  FRACREFA(IGC) = SUMF1
+  FRACREFB(IGC) = SUMF2
+  ABSCO2A(IGC) = SUMK1
+  ABSCO2B(IGC) = SUMK2
+  ABSN2OA(IGC) = SUMK3
+  ABSN2OB(IGC) = SUMK4
+  CFC12(IGC) = SUMK5
+  CFC22ADJ(IGC) = SUMK6
+ENDDO
+
+DO IGC = 1,NGC(8)
+  FREFA(NGS(7)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(7)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JT  = 0
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG8
+      DO MEQ=1,35
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 7   + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSA(MEQ,NEQ) = KA(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 7
+         IGC = 1
+      DO NEQ=1,NG8
+      DO MEQ=1,265
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  7
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB8
Index: LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb9.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb9.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_cmbgb9.F90	(revision 2160)
@@ -0,0 +1,193 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB9
+!***************************************************************************
+
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!***************************************************************************
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND  ,JPG     ,JPXSEC     ,JPGPT 
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
+           &FRACREFBO, ABSN2OO
+USE YOERRTA9 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA  ,&
+             &        FRACREFB,ABSN2O                         ,&
+             &        ABSA    ,ABSB    ,NG9
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IGC, IPR, IPRSM, JN, JND, JNDC, JP, JT
+INTEGER_M :: MEQ, NEQ                    ! To force equivalence, HG, 13-DEC-2003
+
+!     LOCAL REAL SCALARS
+REAL_B :: SUMF, SUMK
+
+
+DO JN = 1,11
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(9)
+        SUMK = _ZERO_
+        DO IPR = 1, NGN(NGS(8)+IGC)
+          IPRSM = IPRSM + 1
+
+          SUMK = SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+128)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(9)
+      SUMK = _ZERO_
+      DO IPR = 1, NGN(NGS(8)+IGC)
+        IPRSM = IPRSM + 1
+
+        SUMK = SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+128)
+      ENDDO
+
+      KB(JT,JP,IGC) = SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMK = SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+
+    SELFREF(JT,IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JN = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    SUMK = _ZERO_
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      JND = (JN-1)*16
+
+      SUMK = SUMK + ABSN2OO(JND+IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    JNDC = (JN-1)*NGC(9)
+
+    ABSN2O(JNDC+IGC) = SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    SUMF = _ZERO_
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+
+      SUMF = SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(9)
+  SUMF = _ZERO_
+  DO IPR = 1, NGN(NGS(8)+IGC)
+    IPRSM = IPRSM + 1
+
+    SUMF = SUMF + FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFB(IGC) = SUMF
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(9)
+
+    FREFA(NGS(8)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(9)
+
+
+    FREFADF(NGS(8)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO IGC = 1,NGC(9)
+
+  FREFB(NGS(8)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+
+! +--Force the equivalence: BEGIN (HG, 13-DEC-2003)
+! +  ============================
+
+! +--ABSA
+! +  ^^^^
+         JN  = 0
+         JT  = 1
+         JP  = 1
+         IGC = 1
+      DO NEQ=1,NG9
+      DO MEQ=1,715
+             JN =  JN  + 1
+      IF   ( JN == 11  + 1)                                         THEN
+             JN =  1
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 13  + 1 )                                        THEN
+             JP =  1
+             IGC=  IGC + 1
+        END IF
+       END IF
+      END IF
+             ABSA(MEQ,NEQ) = KA(JN,JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--ABSB
+! +  ^^^^
+         JT  = 0
+         JP  = 13
+         IGC = 1
+      DO NEQ=1,NG9
+      DO MEQ=1,235
+             JT =  JT  + 1
+       IF  ( JT == 5   + 1 )                                        THEN
+             JT =  1
+             JP =  JP  + 1
+        IF ( JP == 59  + 1 )                                        THEN
+             JP =  13
+             IGC=  IGC + 1
+        END IF
+       END IF
+             ABSB(MEQ,NEQ) = KB(JT,JP,IGC)
+      ENDDO
+      ENDDO
+
+! +--Force the equivalence: END   (HG, 13-DEC-2003)
+! +  ==========================
+
+
+RETURN
+END SUBROUTINE RRTM_CMBGB9
Index: LMDZ5/branches/testing/libf/phymar/rrtm_ecrt_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_ecrt_140gp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_ecrt_140gp.F90	(revision 2160)
@@ -0,0 +1,417 @@
+!****************** SUBROUTINE RRTM_ECRT_140GP **************************
+
+SUBROUTINE RRTM_ECRT_140GP &
+ &( iplon, klon , klev, kcld &
+ &, paer , paph , pap &
+ &, pts  , pth  , pt &
+ &, zemis, zemiw &
+ &, pq   , pcco2, pozn, pcldf, ptaucld, ptclear &
+ &, CLDFRAC,TAUCLD,COLDRY,WKL,WX &
+ &, TAUAERL,PAVEL,TAVEL,PZ,TZ,TBOUND,NLAYERS,SEMISS,IREFLECT)
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+!     Read in atmospheric profile from ECMWF radiation code, and prepare it
+!     for use in RRTM.  Set other RRTM input parameters.  Values are passed
+!     back through existing RRTM arrays and commons.
+
+!- Modifications
+
+!     2000-05-15 Deborah Salmond  Speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,JPLAY   ,&
+            &JPINPX
+USE YOERAD   , ONLY : NOVLP
+USE YOERDI   , ONLY : RCARDI   ,RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE YOESW    , ONLY : RAER
+
+!------------------------------Arguments--------------------------------
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: iplon
+INTEGER_M :: kcld
+
+!     DUMMY REAL SCALARS
+REAL_B :: ptclear
+
+INTEGER_M :: kidia                   ! First atmosphere index
+INTEGER_M :: kfdia                   ! Last atmosphere index
+INTEGER_M :: klon                    ! Number of atmospheres (longitudes)
+INTEGER_M :: klev                    ! Number of atmospheric layers
+REAL_B :: paer(klon,6,klev)          ! Aerosol optical thickness
+REAL_B :: pap(klon,klev)             ! Layer pressures (Pa)
+REAL_B :: paph(klon,klev+1)          ! Interface pressures (Pa)
+REAL_B :: pts(klon)                  ! Surface temperature (K)
+REAL_B :: pth(klon,klev+1)           ! Interface temperatures (K)
+REAL_B :: pt(klon,klev)              ! Layer temperature (K)
+REAL_B :: zemis(klon)                ! Non-window surface emissivity
+REAL_B :: zemiw(klon)                ! Window surface emissivity
+REAL_B :: pq(klon,klev)              ! H2O specific humidity (mmr)
+REAL_B :: pozn(klon,klev)            ! O3 mass mixing ratio
+REAL_B :: pcco2                      ! CO2 mass mixing ratio
+!      real rch4                       ! CH4 mass mixing ratio
+!      real rn2o                       ! N2O mass mixing ratio
+!      real rcfc11                     ! CFC11 mass mixing ratio
+!      real rcfc12                     ! CFC12 mass mixing ratio
+REAL_B :: pcldf(klon,klev)           ! Cloud fraction
+REAL_B :: ptaucld(klon,klev,JPBAND)  ! Cloud optical depth
+REAL_B :: CLDFRAC(JPLAY)             ! Cloud fraction
+REAL_B :: TAUCLD(JPLAY,JPBAND)       ! Spectral optical thickness
+REAL_B :: COLDRY(JPLAY)
+REAL_B :: WKL(JPINPX,JPLAY)
+REAL_B :: WX(JPXSEC,JPLAY)           ! Amount of trace gases
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from PROFILE             
+REAL_B :: PAVEL(JPLAY)
+REAL_B :: TAVEL(JPLAY)
+REAL_B :: PZ(0:JPLAY)
+REAL_B :: TZ(0:JPLAY)
+REAL_B :: TBOUND
+INTEGER_M :: NLAYERS
+
+!- from SURFACE             
+REAL_B :: SEMISS(JPBAND)
+INTEGER_M :: IREFLECT
+
+REAL_B :: ztauaer(5)
+REAL_B :: zc1j(0:klev)               ! total cloud from top and level k
+INTEGER_M ::  IXINDX(JPINPX)         ! Indices of trace gases accounted for
+
+REAL_B :: amd                  ! Effective molecular weight of dry air (g/mol)
+REAL_B :: amw                  ! Molecular weight of water vapor (g/mol)
+REAL_B :: amco2                ! Molecular weight of carbon dioxide (g/mol)
+REAL_B :: amo                  ! Molecular weight of ozone (g/mol)
+REAL_B :: amch4                ! Molecular weight of methane (g/mol)
+REAL_B :: amn2o                ! Molecular weight of nitrous oxide (g/mol)
+REAL_B :: amc11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL_B :: amc12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL_B :: avgdro               ! Avogadro's number (molecules/mole)
+REAL_B :: gravit               ! Gravitational acceleration (cm/sec2)
+
+! Atomic weights for conversion from mass to volume mixing ratios; these
+!  are the same values used in ECRT to assure accurate conversion to vmr
+data amd   /  28.970_JPRB    /
+data amw   /  18.0154_JPRB   /
+data amco2 /  44.011_JPRB    /
+data amo   /  47.9982_JPRB   /
+data amch4 /  16.043_JPRB    /
+data amn2o /  44.013_JPRB    /
+data amc11 / 137.3686_JPRB   /
+data amc12 / 120.9140_JPRB   /
+data avgdro/ 6.02214E23_JPRB /
+data gravit/ 9.80665E02_JPRB /
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IATM, IMOL, IX, IXMAX, J1, J2, JAE, JB, JK, JL, L, JIS
+INTEGER_M :: NMOL, NXMOL
+
+!     LOCAL REAL SCALARS
+REAL_B :: amm, ZCLDLY, ZCLEAR, ZCLOUD, ZEPSEC
+
+! ***
+
+! *** mji
+! Initialize all molecular amounts and aerosol optical depths to zero here, 
+! then pass ECRT amounts into RRTM arrays below.
+
+!      DATA ZWKL /MAXPRDW*0.0/
+!      DATA ZWX  /MAXPROD*0.0/
+!      DATA KREFLECT /0/
+
+! Activate cross section molecules:
+!     NXMOL     - number of cross-sections input by user
+!     IXINDX(I) - index of cross-section molecule corresponding to Ith
+!                 cross-section specified by user
+!                 = 0 -- not allowed in RRTM
+!                 = 1 -- CCL4
+!                 = 2 -- CFC11
+!                 = 3 -- CFC12
+!                 = 4 -- CFC22
+!      DATA KXMOL  /2/
+!      DATA KXINDX /0,2,3,0,31*0/
+
+!      IREFLECT=KREFLECT
+!      NXMOL=KXMOL
+
+!print *,'Just entering RRTM_ECRT_140GP KLEV=',KLEV,' IPLON=',IPLON
+
+IREFLECT=0
+NXMOL=2
+
+DO J1=1,35
+  IXINDX(J1)=0
+  DO J2=1,KLEV
+    WKL(J1,J2)=_ZERO_
+  ENDDO
+ENDDO
+IXINDX(2)=2
+IXINDX(3)=3
+DO J1=1,JPXSEC
+  DO J2=1,KLEV
+    WX(J1,J2)=_ZERO_
+  ENDDO
+ENDDO
+
+!     Set parameters needed for RRTM execution:
+IATM    = 0
+!      IXSECT  = 1
+!      NUMANGS = 0
+!      IOUT    = -1
+IXMAX   = 4
+
+!     Bands 6,7,8 are considered the 'window' and allowed to have a
+!     different surface emissivity (as in ECMWF).  Eli wrote this part....
+SEMISS(1)  = ZEMIS(IPLON)
+SEMISS(2)  = ZEMIS(IPLON)
+SEMISS(3)  = ZEMIS(IPLON)
+SEMISS(4)  = ZEMIS(IPLON)
+SEMISS(5)  = ZEMIS(IPLON)
+SEMISS(6)  = ZEMIW(IPLON)
+SEMISS(7)  = ZEMIW(IPLON)
+SEMISS(8)  = ZEMIW(IPLON)
+SEMISS(9)  = ZEMIS(IPLON)
+SEMISS(10) = ZEMIS(IPLON)
+SEMISS(11) = ZEMIS(IPLON)
+SEMISS(12) = ZEMIS(IPLON)
+SEMISS(13) = ZEMIS(IPLON)
+SEMISS(14) = ZEMIS(IPLON)
+SEMISS(15) = ZEMIS(IPLON)
+SEMISS(16) = ZEMIS(IPLON)
+
+!print *,'after SEMISS'
+
+!     Set surface temperature.  
+
+TBOUND = pts(iplon)
+!print *,'after TBOUND=',TBOUND
+
+!     Install ECRT arrays into RRTM arrays for pressure, temperature,
+!     and molecular amounts.  Pressures are converted from Pascals
+!     (ECRT) to mb (RRTM).  H2O, CO2, O3 and trace gas amounts are 
+!     converted from mass mixing ratio to volume mixing ratio.  CO2
+!     converted with same dry air and CO2 molecular weights used in 
+!     ECRT to assure correct conversion back to the proper CO2 vmr.
+!     The dry air column COLDRY (in molec/cm2) is calculated from 
+!     the level pressures PZ (in mb) based on the hydrostatic equation
+!     and includes a correction to account for H2O in the layer.  The
+!     molecular weight of moist air (amm) is calculated for each layer.
+!     Note: RRTM levels count from bottom to top, while the ECRT input
+!     variables count from the top down and must be reversed here.
+
+NLAYERS = klev
+NMOL = 6
+PZ(0) = paph(iplon,klev+1)/100._JPRB
+TZ(0) = pth(iplon,klev+1)
+DO L = 1, KLEV
+  PAVEL(L) = pap(iplon,KLEV-L+1)/100._JPRB
+  TAVEL(L) = pt(iplon,KLEV-L+1)
+  PZ(L) = paph(iplon,KLEV-L+1)/100._JPRB
+  TZ(L) = pth(iplon,KLEV-L+1)
+  WKL(1,L) = pq(iplon,KLEV-L+1)*amd/amw
+  WKL(2,L) = pcco2*amd/amco2
+  WKL(3,L) = pozn(iplon,KLEV-L+1)*amd/amo
+  WKL(4,L) = rn2o*amd/amn2o
+  WKL(6,L) = rch4*amd/amch4
+  amm = (1-WKL(1,L))*amd + WKL(1,L)*amw
+  COLDRY(L) = (PZ(L-1)-PZ(L))*1.E3_JPRB*avgdro/(gravit*amm*(1+WKL(1,L)))
+ENDDO
+
+!print *,'after WKL'
+!print 9001,((RAER(JIS,JAE),JAE=1,6),JIS=1,5)
+9001 format(1x,6E12.5)
+
+
+!- Fill RRTM aerosol arrays with operational ECMWF aerosols,
+!  do the mixing and distribute over the 16 spectral intervals
+
+DO L=1,KLEV
+  JK=KLEV-L+1
+!  print 9002,JK,(PAER(IPLON,JK,JAE),JAE=1,6)
+9002 format(1x,I3,6E12.5)
+  
+  
+!       DO JAE=1,5
+  JAE=1
+  ZTAUAER(JAE) =&
+   &(RAER(JAE,1)*PAER(IPLON,1,JK)+RAER(JAE,2)*PAER(IPLON,2,JK)&
+   &+RAER(JAE,3)*PAER(IPLON,3,JK)+RAER(JAE,4)*PAER(IPLON,4,JK)&
+   &+RAER(JAE,5)*PAER(IPLON,5,JK)+RAER(JAE,6)*PAER(IPLON,6,JK))
+!   &/(PAPH(IPLON,JK+1)-PAPH(IPLON,JK))
+  TAUAERL(L, 1)=ZTAUAER(1)
+  TAUAERL(L, 2)=ZTAUAER(1)
+  JAE=2
+  ZTAUAER(JAE) =&
+   &(RAER(JAE,1)*PAER(IPLON,1,JK)+RAER(JAE,2)*PAER(IPLON,2,JK)&
+   &+RAER(JAE,3)*PAER(IPLON,3,JK)+RAER(JAE,4)*PAER(IPLON,4,JK)&
+   &+RAER(JAE,5)*PAER(IPLON,5,JK)+RAER(JAE,6)*PAER(IPLON,6,JK))
+!   &/(PAPH(IPLON,JK+1)-PAPH(IPLON,JK))
+  TAUAERL(L, 3)=ZTAUAER(2)
+  TAUAERL(L, 4)=ZTAUAER(2)
+  TAUAERL(L, 5)=ZTAUAER(2)
+  JAE=3
+  ZTAUAER(JAE) =&
+   &(RAER(JAE,1)*PAER(IPLON,1,JK)+RAER(JAE,2)*PAER(IPLON,2,JK)&
+   &+RAER(JAE,3)*PAER(IPLON,3,JK)+RAER(JAE,4)*PAER(IPLON,4,JK)&
+   &+RAER(JAE,5)*PAER(IPLON,5,JK)+RAER(JAE,6)*PAER(IPLON,6,JK))
+!   &/(PAPH(IPLON,JK+1)-PAPH(IPLON,JK))
+  TAUAERL(L, 6)=ZTAUAER(3)
+  TAUAERL(L, 8)=ZTAUAER(3)
+  TAUAERL(L, 9)=ZTAUAER(3)
+  JAE=4
+  ZTAUAER(JAE) =&
+   &(RAER(JAE,1)*PAER(IPLON,1,JK)+RAER(JAE,2)*PAER(IPLON,2,JK)&
+   &+RAER(JAE,3)*PAER(IPLON,3,JK)+RAER(JAE,4)*PAER(IPLON,4,JK)&
+   &+RAER(JAE,5)*PAER(IPLON,5,JK)+RAER(JAE,6)*PAER(IPLON,6,JK))
+!   &/(PAPH(IPLON,JK+1)-PAPH(IPLON,JK))
+  TAUAERL(L, 7)=ZTAUAER(4)
+  JAE=5
+  ZTAUAER(JAE) =&
+   &(RAER(JAE,1)*PAER(IPLON,1,JK)+RAER(JAE,2)*PAER(IPLON,2,JK)&
+   &+RAER(JAE,3)*PAER(IPLON,3,JK)+RAER(JAE,4)*PAER(IPLON,4,JK)&
+   &+RAER(JAE,5)*PAER(IPLON,5,JK)+RAER(JAE,6)*PAER(IPLON,6,JK))
+!   &/(PAPH(IPLON,JK+1)-PAPH(IPLON,JK))
+!       END DO
+  TAUAERL(L,10)=ZTAUAER(5)
+  TAUAERL(L,11)=ZTAUAER(5)
+  TAUAERL(L,12)=ZTAUAER(5)
+  TAUAERL(L,13)=ZTAUAER(5)
+  TAUAERL(L,14)=ZTAUAER(5)
+  TAUAERL(L,15)=ZTAUAER(5)
+  TAUAERL(L,16)=ZTAUAER(5)
+!  print 9003,L,(ZTAUAER(JAE),JAE=1,5)
+9003 format(1x,'rrtm_ecrt ZTAUAER:',I3,5e13.6)  
+ENDDO
+
+DO L = 1, KLEV
+!- Set cross section molecule amounts from ECRT; convert to vmr
+  WX(2,L) = rcfc11*amd/amc11
+  WX(3,L) = rcfc12*amd/amc12
+!-- DS_000515  
+END DO
+
+!- Here, all molecules in WKL and WX are in volume mixing ratio; convert to
+!  molec/cm2 based on COLDRY for use in RRTM
+DO IMOL = 1, NMOL
+  DO L = 1, KLEV
+!-- DS_000515  
+    WKL(IMOL,L) = COLDRY(L) * WKL(IMOL,L)
+  END DO  
+ENDDO
+  
+DO IX = 1,JPXSEC
+  IF (IXINDX(IX)  /=  0) THEN
+!-- DS_000515  
+    DO L=1 , KLEV
+      WX(IXINDX(IX),L) = COLDRY(L) * WX(IX,L) * 1.E-20_JPRB
+    END DO  
+  ENDIF
+ENDDO
+
+
+!- Approximate treatment for various cloud overlaps
+ZCLEAR=_ONE_
+ZCLOUD=_ZERO_
+ZC1J(0)=_ZERO_
+ZEPSEC=1.E-03_JPRB
+JL=IPLON
+
+IF (NOVLP == 1) THEN
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLEAR=ZCLEAR &
+       &*(_ONE_-MAX( ZCLDLY , ZCLOUD ))&
+       &/(_ONE_-MIN( ZCLOUD , _ONE_-ZEPSEC ))
+      ZCLOUD = ZCLDLY
+      ZC1J(JK)= _ONE_ - ZCLEAR
+    ELSE
+      ZCLDLY=_ZERO_
+      ZCLEAR=ZCLEAR &
+       &*(_ONE_-MAX( ZCLDLY , ZCLOUD ))&
+       &/(_ONE_-MIN( ZCLOUD , _ONE_-ZEPSEC ))
+      ZCLOUD = ZCLDLY
+      ZC1J(JK)= _ONE_ - ZCLEAR
+    ENDIF
+  ENDDO
+
+ELSEIF (NOVLP == 2) THEN
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLOUD = MAX( ZCLDLY , ZCLOUD )
+      ZC1J(JK) = ZCLOUD
+    ELSE
+      ZCLDLY=_ZERO_
+      ZCLOUD = MAX( ZCLDLY , ZCLOUD )
+      ZC1J(JK) = ZCLOUD
+    ENDIF
+  ENDDO
+
+ELSEIF (NOVLP == 3) THEN
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLEAR = ZCLEAR * (_ONE_-ZCLDLY)
+      ZCLOUD = _ONE_ - ZCLEAR
+      ZC1J(JK) = ZCLOUD
+    ELSE
+      ZCLDLY=_ZERO_
+      ZCLEAR = ZCLEAR * (_ONE_-ZCLDLY)
+      ZCLOUD = _ONE_ - ZCLEAR
+      ZC1J(JK) = ZCLOUD
+    ENDIF
+  ENDDO
+
+ENDIF
+PTCLEAR=_ONE_-ZC1J(KLEV)
+
+! Transfer cloud fraction and cloud optical depth to RRTM arrays; 
+! invert array index for pcldf to go from bottom to top for RRTM
+
+!- clear-sky column
+IF (PTCLEAR  >  _ONE_-ZEPSEC) THEN
+  KCLD=0
+  DO L = 1, KLEV
+    CLDFRAC(L) = _ZERO_
+  ENDDO
+  DO JB=1,JPBAND
+    DO L=1,KLEV
+      TAUCLD(L,JB) = _ZERO_
+    ENDDO
+  ENDDO
+
+ELSE
+
+!- cloudy column
+!   The diffusivity factor (Savijarvi, 1997) on the cloud optical 
+!   thickness TAUCLD has already been applied in RADLSW
+
+  KCLD=1
+  DO L=1,KLEV
+    CLDFRAC(L) = pcldf(iplon,L)
+  ENDDO
+  DO JB=1,JPBAND
+    DO L=1,KLEV
+      TAUCLD(L,JB) = ptaucld(iplon,L,JB)
+    ENDDO
+  ENDDO
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE RRTM_ECRT_140GP
Index: LMDZ5/branches/testing/libf/phymar/rrtm_gasabs1a_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_gasabs1a_140gp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_gasabs1a_140gp.F90	(revision 2160)
@@ -0,0 +1,142 @@
+SUBROUTINE RRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT,&
+  &LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY    ,JPBAND   ,JPGPT   ,JPXSEC
+USE YOERRTAB , ONLY : TRANS    ,BPADE
+
+IMPLICIT NONE
+
+REAL_B :: ATR1  (JPGPT,JPLAY)
+REAL_B :: OD    (JPGPT,JPLAY)
+REAL_B :: TF1   (JPGPT,JPLAY)
+REAL_B :: COLDRY(JPLAY)
+REAL_B :: WX(JPXSEC,JPLAY)           ! Amount of trace gases
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+REAL_B :: COLN2O(JPLAY)
+REAL_B :: COLCH4(JPLAY)
+REAL_B :: COLO2 (JPLAY)
+REAL_B :: CO2MULT(JPLAY)
+INTEGER_M :: LAYTROP
+INTEGER_M :: LAYSWTCH
+INTEGER_M :: LAYLOW
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IPR, ITR, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: ODEPTH, SECANG, TF
+
+
+!- SECANG is equal to the secant of the diffusivity angle.
+SECANG = 1.66_JPRB
+
+CALL RRTM_TAUMOL1  (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
+  &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL2  (KLEV,TAU,COLDRY,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
+  &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL3  (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL4  (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL5  (KLEV,TAU,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL6  (KLEV,TAU,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL7  (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLO3,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL8  (KLEV,TAU,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,COLO3,COLN2O,CO2MULT,LAYSWTCH,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL9  (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLN2O,COLCH4,LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL10 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,LAYTROP,PFRAC)
+CALL RRTM_TAUMOL11 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL12 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL13 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL14 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL15 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+CALL RRTM_TAUMOL16 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCH4,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!- Loop over g-channels.
+DO LAY = 1, KLEV
+  DO IPR = 1, JPGPT
+    ODEPTH = SECANG * TAU(IPR,LAY)
+    OD(IPR,LAY) = ODEPTH
+!-- revised code to get the pre-computed transmission            
+    TF = ODEPTH/(BPADE+ODEPTH)
+!          IF (ODEPTH.LE.0.) PRINT*, 'ODEPTH = ',ODEPTH
+    IF (ODEPTH <= _ZERO_) TF = _ZERO_
+    ITR=INT(5.E+03_JPRB*TF+_HALF_)
+    ATR1(IPR,LAY) = _ONE_ - TRANS(ITR)
+    TF1(IPR,LAY) = TF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE RRTM_GASABS1A_140GP
Index: LMDZ5/branches/testing/libf/phymar/rrtm_init_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_init_140gp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_init_140gp.F90	(revision 2160)
@@ -0,0 +1,106 @@
+!***************************************************************************
+SUBROUTINE RRTM_INIT_140GP
+!***************************************************************************
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+! Parameters
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT
+USE YOERRTWN , ONLY : NG       ,NSPA     ,NSPB
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+! Output
+USE YOERRTBG2, ONLY : CORR1    ,CORR2
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+
+! Local
+
+IMPLICIT NONE
+REAL_B :: WTSM(JPG)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: I, IBND, IG, IGC, IGCSM, IND, IPR, IPRSM, IPT
+
+!     LOCAL REAL SCALARS
+REAL_B :: FP, RTFP, WTSUM
+
+
+!  Calculate lookup tables for functions needed in routine TAUMOL (TAUGB2)
+CORR1(0) = _ONE_
+CORR1(200) = _ONE_
+CORR2(0) = _ONE_
+CORR2(200) = _ONE_
+DO I = 1,199
+  FP = 0.005_JPRB*REAL(I)
+  RTFP = SQRT(FP)
+  CORR1(I) = RTFP/FP
+  CORR2(I) = (_ONE_-RTFP)/(_ONE_-FP)
+ENDDO
+
+!  Perform g-point reduction from 16 per band (256 total points) to
+!  a band dependant number (140 total points) for all absorption
+!  coefficient input data and Planck fraction input data.
+!  Compute relative weighting for new g-point combinations.
+
+IGCSM = 0
+DO IBND = 1,JPBAND
+  IPRSM = 0
+  IF (NGC(IBND) < 16) THEN
+    DO IGC = 1,NGC(IBND)
+      IGCSM = IGCSM + 1
+      WTSUM = _ZERO_
+      DO IPR = 1, NGN(IGCSM)
+        IPRSM = IPRSM + 1
+        WTSUM = WTSUM + WT(IPRSM)
+      ENDDO
+      WTSM(IGC) = WTSUM
+    ENDDO
+    DO IG = 1,NG(IBND)
+      IND = (IBND-1)*16 + IG
+      RWGT(IND) = WT(IG)/WTSM(NGM(IND))
+    ENDDO
+  ELSE
+    DO IG = 1,NG(IBND)
+      IGCSM = IGCSM + 1
+      IND = (IBND-1)*16 + IG
+      RWGT(IND) = _ONE_
+    ENDDO
+  ENDIF
+ENDDO
+
+!  Initialize arrays for combined Planck fraction data.
+
+DO IPT = 1,13
+  DO IPR = 1, JPGPT
+    FREFA(IPR,IPT) = _ZERO_
+    FREFADF(IPR,IPT) = _ZERO_
+  ENDDO
+ENDDO
+DO IPT = 1,6
+  DO IPR = 1, JPGPT
+    FREFB(IPR,IPT) = _ZERO_
+    FREFBDF(IPR,IPT) = _ZERO_
+  ENDDO
+ENDDO
+
+!  Reduce g-points for relevant data in each LW spectral band.
+
+CALL RRTM_CMBGB1
+CALL RRTM_CMBGB2
+CALL RRTM_CMBGB3
+CALL RRTM_CMBGB4
+CALL RRTM_CMBGB5
+CALL RRTM_CMBGB6
+CALL RRTM_CMBGB7
+CALL RRTM_CMBGB8
+CALL RRTM_CMBGB9
+CALL RRTM_CMBGB10
+CALL RRTM_CMBGB11
+CALL RRTM_CMBGB12
+CALL RRTM_CMBGB13
+CALL RRTM_CMBGB14
+CALL RRTM_CMBGB15
+CALL RRTM_CMBGB16
+
+RETURN
+END SUBROUTINE RRTM_INIT_140GP
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb1.F90	(revision 2160)
@@ -0,0 +1,16 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE 
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB1_01
+      call RRTM_KGB1_02
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb10.F90	(revision 2160)
@@ -0,0 +1,1982 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB10
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFAO( :) = (/&
+!     From P = 473 mb.
+    &0.16271301_JPRB,0.15141940_JPRB,0.14065412_JPRB,0.12899506_JPRB,&
+    &0.11607002_JPRB,0.10142808_JPRB,0.08116794_JPRB,0.06104711_JPRB,&
+    &0.04146209_JPRB,0.00447386_JPRB,0.00372902_JPRB,0.00287258_JPRB,&
+    &0.00206028_JPRB,0.00134634_JPRB,0.00049232_JPRB,0.00006927_JPRB/)
+
+FRACREFBO( :) = (/&
+!     From P = 1.17 mb.
+    &0.16571465_JPRB,0.15262246_JPRB,0.14036226_JPRB,0.12620729_JPRB,&
+    &0.11477834_JPRB,0.09967982_JPRB,0.08155201_JPRB,0.06159503_JPRB,&
+    &0.04196607_JPRB,0.00453940_JPRB,0.00376881_JPRB,0.00300437_JPRB,&
+    &0.00223034_JPRB,0.00139432_JPRB,0.00051516_JPRB,0.00007095_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&4.3436E-02_JPRB,4.4287E-02_JPRB,4.5209E-02_JPRB,4.6235E-02_JPRB,4.7373E-02_JPRB/)
+KAO( :, 2, 1) = (/&
+&3.3904E-02_JPRB,3.4737E-02_JPRB,3.5589E-02_JPRB,3.6523E-02_JPRB,3.7507E-02_JPRB/)
+KAO( :, 3, 1) = (/&
+&2.6121E-02_JPRB,2.6913E-02_JPRB,2.7706E-02_JPRB,2.8545E-02_JPRB,2.9408E-02_JPRB/)
+KAO( :, 4, 1) = (/&
+&2.0504E-02_JPRB,2.1226E-02_JPRB,2.1920E-02_JPRB,2.2632E-02_JPRB,2.3375E-02_JPRB/)
+KAO( :, 5, 1) = (/&
+&1.6329E-02_JPRB,1.6959E-02_JPRB,1.7565E-02_JPRB,1.8162E-02_JPRB,1.8767E-02_JPRB/)
+KAO( :, 6, 1) = (/&
+&1.3082E-02_JPRB,1.3618E-02_JPRB,1.4143E-02_JPRB,1.4651E-02_JPRB,1.5156E-02_JPRB/)
+KAO( :, 7, 1) = (/&
+&1.0505E-02_JPRB,1.0980E-02_JPRB,1.1432E-02_JPRB,1.1872E-02_JPRB,1.2303E-02_JPRB/)
+KAO( :, 8, 1) = (/&
+&8.4782E-03_JPRB,8.9309E-03_JPRB,9.3409E-03_JPRB,9.7321E-03_JPRB,1.0116E-02_JPRB/)
+KAO( :, 9, 1) = (/&
+&7.0083E-03_JPRB,7.5470E-03_JPRB,8.0513E-03_JPRB,8.5154E-03_JPRB,8.9405E-03_JPRB/)
+KAO( :,10, 1) = (/&
+&6.2679E-03_JPRB,6.8607E-03_JPRB,7.4696E-03_JPRB,8.0836E-03_JPRB,8.7113E-03_JPRB/)
+KAO( :,11, 1) = (/&
+&5.5738E-03_JPRB,6.1775E-03_JPRB,6.7768E-03_JPRB,7.3796E-03_JPRB,7.9869E-03_JPRB/)
+KAO( :,12, 1) = (/&
+&4.8170E-03_JPRB,5.3653E-03_JPRB,5.9132E-03_JPRB,6.4615E-03_JPRB,6.9965E-03_JPRB/)
+KAO( :,13, 1) = (/&
+&4.0124E-03_JPRB,4.4686E-03_JPRB,4.9254E-03_JPRB,5.3837E-03_JPRB,5.8220E-03_JPRB/)
+KAO( :, 1, 2) = (/&
+&7.6052E-02_JPRB,7.8155E-02_JPRB,8.0398E-02_JPRB,8.2890E-02_JPRB,8.5349E-02_JPRB/)
+KAO( :, 2, 2) = (/&
+&5.9857E-02_JPRB,6.1820E-02_JPRB,6.3993E-02_JPRB,6.6271E-02_JPRB,6.8386E-02_JPRB/)
+KAO( :, 3, 2) = (/&
+&4.6547E-02_JPRB,4.8389E-02_JPRB,5.0377E-02_JPRB,5.2388E-02_JPRB,5.4300E-02_JPRB/)
+KAO( :, 4, 2) = (/&
+&3.6687E-02_JPRB,3.8357E-02_JPRB,4.0103E-02_JPRB,4.1837E-02_JPRB,4.3530E-02_JPRB/)
+KAO( :, 5, 2) = (/&
+&2.9237E-02_JPRB,3.0733E-02_JPRB,3.2226E-02_JPRB,3.3703E-02_JPRB,3.5156E-02_JPRB/)
+KAO( :, 6, 2) = (/&
+&2.3348E-02_JPRB,2.4684E-02_JPRB,2.5978E-02_JPRB,2.7223E-02_JPRB,2.8447E-02_JPRB/)
+KAO( :, 7, 2) = (/&
+&1.8712E-02_JPRB,1.9885E-02_JPRB,2.1023E-02_JPRB,2.2089E-02_JPRB,2.3117E-02_JPRB/)
+KAO( :, 8, 2) = (/&
+&1.5248E-02_JPRB,1.6226E-02_JPRB,1.7260E-02_JPRB,1.8206E-02_JPRB,1.9081E-02_JPRB/)
+KAO( :, 9, 2) = (/&
+&1.3662E-02_JPRB,1.4539E-02_JPRB,1.5452E-02_JPRB,1.6398E-02_JPRB,1.7332E-02_JPRB/)
+KAO( :,10, 2) = (/&
+&1.5758E-02_JPRB,1.7065E-02_JPRB,1.8351E-02_JPRB,1.9608E-02_JPRB,2.0713E-02_JPRB/)
+KAO( :,11, 2) = (/&
+&1.5809E-02_JPRB,1.7330E-02_JPRB,1.8795E-02_JPRB,2.0165E-02_JPRB,2.1363E-02_JPRB/)
+KAO( :,12, 2) = (/&
+&1.4427E-02_JPRB,1.5923E-02_JPRB,1.7365E-02_JPRB,1.8668E-02_JPRB,1.9829E-02_JPRB/)
+KAO( :,13, 2) = (/&
+&1.2159E-02_JPRB,1.3438E-02_JPRB,1.4645E-02_JPRB,1.5727E-02_JPRB,1.6711E-02_JPRB/)
+KAO( :, 1, 3) = (/&
+&1.1941E-01_JPRB,1.2154E-01_JPRB,1.2325E-01_JPRB,1.2478E-01_JPRB,1.2668E-01_JPRB/)
+KAO( :, 2, 3) = (/&
+&9.4949E-02_JPRB,9.7174E-02_JPRB,9.8951E-02_JPRB,1.0048E-01_JPRB,1.0239E-01_JPRB/)
+KAO( :, 3, 3) = (/&
+&7.4601E-02_JPRB,7.6873E-02_JPRB,7.8765E-02_JPRB,8.0479E-02_JPRB,8.2213E-02_JPRB/)
+KAO( :, 4, 3) = (/&
+&5.9324E-02_JPRB,6.1532E-02_JPRB,6.3434E-02_JPRB,6.5160E-02_JPRB,6.6762E-02_JPRB/)
+KAO( :, 5, 3) = (/&
+&4.7627E-02_JPRB,4.9624E-02_JPRB,5.1388E-02_JPRB,5.3000E-02_JPRB,5.4460E-02_JPRB/)
+KAO( :, 6, 3) = (/&
+&3.8325E-02_JPRB,4.0081E-02_JPRB,4.1660E-02_JPRB,4.3161E-02_JPRB,4.4493E-02_JPRB/)
+KAO( :, 7, 3) = (/&
+&3.1008E-02_JPRB,3.2491E-02_JPRB,3.3918E-02_JPRB,3.5275E-02_JPRB,3.6482E-02_JPRB/)
+KAO( :, 8, 3) = (/&
+&2.5375E-02_JPRB,2.6683E-02_JPRB,2.7918E-02_JPRB,2.9119E-02_JPRB,3.0227E-02_JPRB/)
+KAO( :, 9, 3) = (/&
+&2.2773E-02_JPRB,2.4067E-02_JPRB,2.5227E-02_JPRB,2.6300E-02_JPRB,2.7274E-02_JPRB/)
+KAO( :,10, 3) = (/&
+&2.5056E-02_JPRB,2.7108E-02_JPRB,2.9103E-02_JPRB,3.1105E-02_JPRB,3.2910E-02_JPRB/)
+KAO( :,11, 3) = (/&
+&2.5964E-02_JPRB,2.7973E-02_JPRB,2.9944E-02_JPRB,3.1965E-02_JPRB,3.4025E-02_JPRB/)
+KAO( :,12, 3) = (/&
+&2.4537E-02_JPRB,2.6383E-02_JPRB,2.8189E-02_JPRB,3.0029E-02_JPRB,3.1820E-02_JPRB/)
+KAO( :,13, 3) = (/&
+&2.0785E-02_JPRB,2.2351E-02_JPRB,2.3915E-02_JPRB,2.5481E-02_JPRB,2.6957E-02_JPRB/)
+KAO( :, 1, 4) = (/&
+&1.7062E-01_JPRB,1.7437E-01_JPRB,1.7838E-01_JPRB,1.8288E-01_JPRB,1.8787E-01_JPRB/)
+KAO( :, 2, 4) = (/&
+&1.3654E-01_JPRB,1.4010E-01_JPRB,1.4403E-01_JPRB,1.4850E-01_JPRB,1.5295E-01_JPRB/)
+KAO( :, 3, 4) = (/&
+&1.0835E-01_JPRB,1.1169E-01_JPRB,1.1522E-01_JPRB,1.1900E-01_JPRB,1.2314E-01_JPRB/)
+KAO( :, 4, 4) = (/&
+&8.6891E-02_JPRB,8.9909E-02_JPRB,9.2966E-02_JPRB,9.6155E-02_JPRB,9.9768E-02_JPRB/)
+KAO( :, 5, 4) = (/&
+&7.0296E-02_JPRB,7.2932E-02_JPRB,7.5596E-02_JPRB,7.8371E-02_JPRB,8.1518E-02_JPRB/)
+KAO( :, 6, 4) = (/&
+&5.7106E-02_JPRB,5.9401E-02_JPRB,6.1747E-02_JPRB,6.4154E-02_JPRB,6.6823E-02_JPRB/)
+KAO( :, 7, 4) = (/&
+&4.6442E-02_JPRB,4.8507E-02_JPRB,5.0535E-02_JPRB,5.2614E-02_JPRB,5.4880E-02_JPRB/)
+KAO( :, 8, 4) = (/&
+&3.8129E-02_JPRB,3.9923E-02_JPRB,4.1657E-02_JPRB,4.3454E-02_JPRB,4.5387E-02_JPRB/)
+KAO( :, 9, 4) = (/&
+&3.3848E-02_JPRB,3.5287E-02_JPRB,3.6775E-02_JPRB,3.8335E-02_JPRB,4.0012E-02_JPRB/)
+KAO( :,10, 4) = (/&
+&4.0975E-02_JPRB,4.3174E-02_JPRB,4.4060E-02_JPRB,4.4660E-02_JPRB,4.5678E-02_JPRB/)
+KAO( :,11, 4) = (/&
+&4.1946E-02_JPRB,4.4641E-02_JPRB,4.6896E-02_JPRB,4.7962E-02_JPRB,4.8832E-02_JPRB/)
+KAO( :,12, 4) = (/&
+&3.9213E-02_JPRB,4.1960E-02_JPRB,4.4202E-02_JPRB,4.5849E-02_JPRB,4.6828E-02_JPRB/)
+KAO( :,13, 4) = (/&
+&3.3349E-02_JPRB,3.5638E-02_JPRB,3.7527E-02_JPRB,3.8919E-02_JPRB,3.9723E-02_JPRB/)
+KAO( :, 1, 5) = (/&
+&2.9031E-01_JPRB,3.0033E-01_JPRB,3.0967E-01_JPRB,3.1844E-01_JPRB,3.2668E-01_JPRB/)
+KAO( :, 2, 5) = (/&
+&2.3357E-01_JPRB,2.4199E-01_JPRB,2.5006E-01_JPRB,2.5762E-01_JPRB,2.6525E-01_JPRB/)
+KAO( :, 3, 5) = (/&
+&1.8503E-01_JPRB,1.9252E-01_JPRB,1.9961E-01_JPRB,2.0653E-01_JPRB,2.1345E-01_JPRB/)
+KAO( :, 4, 5) = (/&
+&1.4814E-01_JPRB,1.5482E-01_JPRB,1.6122E-01_JPRB,1.6737E-01_JPRB,1.7343E-01_JPRB/)
+KAO( :, 5, 5) = (/&
+&1.1942E-01_JPRB,1.2535E-01_JPRB,1.3092E-01_JPRB,1.3637E-01_JPRB,1.4171E-01_JPRB/)
+KAO( :, 6, 5) = (/&
+&9.6108E-02_JPRB,1.0135E-01_JPRB,1.0623E-01_JPRB,1.1100E-01_JPRB,1.1566E-01_JPRB/)
+KAO( :, 7, 5) = (/&
+&7.7384E-02_JPRB,8.2024E-02_JPRB,8.6286E-02_JPRB,9.0422E-02_JPRB,9.4500E-02_JPRB/)
+KAO( :, 8, 5) = (/&
+&6.2754E-02_JPRB,6.6850E-02_JPRB,7.0634E-02_JPRB,7.4249E-02_JPRB,7.7804E-02_JPRB/)
+KAO( :, 9, 5) = (/&
+&5.3581E-02_JPRB,5.7247E-02_JPRB,6.0673E-02_JPRB,6.3910E-02_JPRB,6.7155E-02_JPRB/)
+KAO( :,10, 5) = (/&
+&5.9240E-02_JPRB,6.0661E-02_JPRB,6.3351E-02_JPRB,6.6308E-02_JPRB,6.9274E-02_JPRB/)
+KAO( :,11, 5) = (/&
+&6.3231E-02_JPRB,6.3689E-02_JPRB,6.4470E-02_JPRB,6.6608E-02_JPRB,6.9366E-02_JPRB/)
+KAO( :,12, 5) = (/&
+&6.0132E-02_JPRB,6.0508E-02_JPRB,6.1046E-02_JPRB,6.2310E-02_JPRB,6.4789E-02_JPRB/)
+KAO( :,13, 5) = (/&
+&5.1121E-02_JPRB,5.1506E-02_JPRB,5.2003E-02_JPRB,5.3196E-02_JPRB,5.5479E-02_JPRB/)
+KAO( :, 1, 6) = (/&
+&6.0412E-01_JPRB,6.3664E-01_JPRB,6.6664E-01_JPRB,6.9440E-01_JPRB,7.1921E-01_JPRB/)
+KAO( :, 2, 6) = (/&
+&4.9197E-01_JPRB,5.2036E-01_JPRB,5.4668E-01_JPRB,5.6991E-01_JPRB,5.8959E-01_JPRB/)
+KAO( :, 3, 6) = (/&
+&3.9398E-01_JPRB,4.1866E-01_JPRB,4.4086E-01_JPRB,4.6020E-01_JPRB,4.7687E-01_JPRB/)
+KAO( :, 4, 6) = (/&
+&3.1559E-01_JPRB,3.3697E-01_JPRB,3.5576E-01_JPRB,3.7272E-01_JPRB,3.8759E-01_JPRB/)
+KAO( :, 5, 6) = (/&
+&2.5260E-01_JPRB,2.7101E-01_JPRB,2.8744E-01_JPRB,3.0238E-01_JPRB,3.1591E-01_JPRB/)
+KAO( :, 6, 6) = (/&
+&2.0091E-01_JPRB,2.1697E-01_JPRB,2.3138E-01_JPRB,2.4461E-01_JPRB,2.5682E-01_JPRB/)
+KAO( :, 7, 6) = (/&
+&1.5940E-01_JPRB,1.7343E-01_JPRB,1.8618E-01_JPRB,1.9790E-01_JPRB,2.0866E-01_JPRB/)
+KAO( :, 8, 6) = (/&
+&1.2672E-01_JPRB,1.3889E-01_JPRB,1.5007E-01_JPRB,1.6032E-01_JPRB,1.6978E-01_JPRB/)
+KAO( :, 9, 6) = (/&
+&1.0353E-01_JPRB,1.1398E-01_JPRB,1.2372E-01_JPRB,1.3277E-01_JPRB,1.4111E-01_JPRB/)
+KAO( :,10, 6) = (/&
+&9.9695E-02_JPRB,1.0872E-01_JPRB,1.1790E-01_JPRB,1.2674E-01_JPRB,1.3501E-01_JPRB/)
+KAO( :,11, 6) = (/&
+&9.7426E-02_JPRB,1.0472E-01_JPRB,1.1248E-01_JPRB,1.2011E-01_JPRB,1.2749E-01_JPRB/)
+KAO( :,12, 6) = (/&
+&9.0482E-02_JPRB,9.5993E-02_JPRB,1.0239E-01_JPRB,1.0916E-01_JPRB,1.1593E-01_JPRB/)
+KAO( :,13, 6) = (/&
+&7.7446E-02_JPRB,8.2236E-02_JPRB,8.7832E-02_JPRB,9.3763E-02_JPRB,9.9783E-02_JPRB/)
+KAO( :, 1, 7) = (/&
+&1.4493E+00_JPRB,1.5125E+00_JPRB,1.5653E+00_JPRB,1.6113E+00_JPRB,1.6505E+00_JPRB/)
+KAO( :, 2, 7) = (/&
+&1.2048E+00_JPRB,1.2601E+00_JPRB,1.3081E+00_JPRB,1.3501E+00_JPRB,1.3864E+00_JPRB/)
+KAO( :, 3, 7) = (/&
+&9.7872E-01_JPRB,1.0273E+00_JPRB,1.0705E+00_JPRB,1.1100E+00_JPRB,1.1448E+00_JPRB/)
+KAO( :, 4, 7) = (/&
+&7.9188E-01_JPRB,8.3582E-01_JPRB,8.7697E-01_JPRB,9.1358E-01_JPRB,9.4568E-01_JPRB/)
+KAO( :, 5, 7) = (/&
+&6.4056E-01_JPRB,6.8141E-01_JPRB,7.1898E-01_JPRB,7.5224E-01_JPRB,7.8089E-01_JPRB/)
+KAO( :, 6, 7) = (/&
+&5.1630E-01_JPRB,5.5324E-01_JPRB,5.8683E-01_JPRB,6.1659E-01_JPRB,6.4131E-01_JPRB/)
+KAO( :, 7, 7) = (/&
+&4.1372E-01_JPRB,4.4648E-01_JPRB,4.7630E-01_JPRB,5.0239E-01_JPRB,5.2429E-01_JPRB/)
+KAO( :, 8, 7) = (/&
+&3.2974E-01_JPRB,3.5852E-01_JPRB,3.8490E-01_JPRB,4.0778E-01_JPRB,4.2741E-01_JPRB/)
+KAO( :, 9, 7) = (/&
+&2.6388E-01_JPRB,2.8902E-01_JPRB,3.1205E-01_JPRB,3.3216E-01_JPRB,3.4989E-01_JPRB/)
+KAO( :,10, 7) = (/&
+&2.2852E-01_JPRB,2.5006E-01_JPRB,2.6982E-01_JPRB,2.8757E-01_JPRB,3.0387E-01_JPRB/)
+KAO( :,11, 7) = (/&
+&2.0865E-01_JPRB,2.2711E-01_JPRB,2.4426E-01_JPRB,2.6021E-01_JPRB,2.7515E-01_JPRB/)
+KAO( :,12, 7) = (/&
+&1.8470E-01_JPRB,2.0063E-01_JPRB,2.1568E-01_JPRB,2.2975E-01_JPRB,2.4284E-01_JPRB/)
+KAO( :,13, 7) = (/&
+&1.5719E-01_JPRB,1.7078E-01_JPRB,1.8355E-01_JPRB,1.9562E-01_JPRB,2.0694E-01_JPRB/)
+KAO( :, 1, 8) = (/&
+&3.6048E+00_JPRB,3.7864E+00_JPRB,3.9572E+00_JPRB,4.1208E+00_JPRB,4.2621E+00_JPRB/)
+KAO( :, 2, 8) = (/&
+&3.2220E+00_JPRB,3.3940E+00_JPRB,3.5604E+00_JPRB,3.7122E+00_JPRB,3.8478E+00_JPRB/)
+KAO( :, 3, 8) = (/&
+&2.7870E+00_JPRB,2.9546E+00_JPRB,3.1086E+00_JPRB,3.2475E+00_JPRB,3.3673E+00_JPRB/)
+KAO( :, 4, 8) = (/&
+&2.3680E+00_JPRB,2.5226E+00_JPRB,2.6640E+00_JPRB,2.7896E+00_JPRB,2.9005E+00_JPRB/)
+KAO( :, 5, 8) = (/&
+&1.9804E+00_JPRB,2.1208E+00_JPRB,2.2489E+00_JPRB,2.3642E+00_JPRB,2.4671E+00_JPRB/)
+KAO( :, 6, 8) = (/&
+&1.6272E+00_JPRB,1.7543E+00_JPRB,1.8719E+00_JPRB,1.9790E+00_JPRB,2.0761E+00_JPRB/)
+KAO( :, 7, 8) = (/&
+&1.3207E+00_JPRB,1.4367E+00_JPRB,1.5433E+00_JPRB,1.6406E+00_JPRB,1.7283E+00_JPRB/)
+KAO( :, 8, 8) = (/&
+&1.0622E+00_JPRB,1.1672E+00_JPRB,1.2628E+00_JPRB,1.3495E+00_JPRB,1.4288E+00_JPRB/)
+KAO( :, 9, 8) = (/&
+&8.5006E-01_JPRB,9.4334E-01_JPRB,1.0274E+00_JPRB,1.1050E+00_JPRB,1.1774E+00_JPRB/)
+KAO( :,10, 8) = (/&
+&6.9534E-01_JPRB,7.7588E-01_JPRB,8.4968E-01_JPRB,9.1816E-01_JPRB,9.8186E-01_JPRB/)
+KAO( :,11, 8) = (/&
+&6.0417E-01_JPRB,6.7126E-01_JPRB,7.3436E-01_JPRB,7.9325E-01_JPRB,8.4784E-01_JPRB/)
+KAO( :,12, 8) = (/&
+&5.2502E-01_JPRB,5.8268E-01_JPRB,6.3773E-01_JPRB,6.8892E-01_JPRB,7.3666E-01_JPRB/)
+KAO( :,13, 8) = (/&
+&4.4795E-01_JPRB,4.9759E-01_JPRB,5.4478E-01_JPRB,5.8860E-01_JPRB,6.2907E-01_JPRB/)
+KAO( :, 1, 9) = (/&
+&1.0325E+01_JPRB,1.0910E+01_JPRB,1.1448E+01_JPRB,1.1915E+01_JPRB,1.2359E+01_JPRB/)
+KAO( :, 2, 9) = (/&
+&1.0216E+01_JPRB,1.0824E+01_JPRB,1.1398E+01_JPRB,1.1919E+01_JPRB,1.2397E+01_JPRB/)
+KAO( :, 3, 9) = (/&
+&9.7874E+00_JPRB,1.0437E+01_JPRB,1.1041E+01_JPRB,1.1612E+01_JPRB,1.2113E+01_JPRB/)
+KAO( :, 4, 9) = (/&
+&9.1882E+00_JPRB,9.8563E+00_JPRB,1.0485E+01_JPRB,1.1057E+01_JPRB,1.1572E+01_JPRB/)
+KAO( :, 5, 9) = (/&
+&8.4385E+00_JPRB,9.1197E+00_JPRB,9.7493E+00_JPRB,1.0327E+01_JPRB,1.0868E+01_JPRB/)
+KAO( :, 6, 9) = (/&
+&7.5691E+00_JPRB,8.2477E+00_JPRB,8.8854E+00_JPRB,9.4650E+00_JPRB,9.9983E+00_JPRB/)
+KAO( :, 7, 9) = (/&
+&6.6646E+00_JPRB,7.3353E+00_JPRB,7.9606E+00_JPRB,8.5227E+00_JPRB,9.0234E+00_JPRB/)
+KAO( :, 8, 9) = (/&
+&5.7671E+00_JPRB,6.4061E+00_JPRB,6.9962E+00_JPRB,7.5311E+00_JPRB,8.0050E+00_JPRB/)
+KAO( :, 9, 9) = (/&
+&4.9062E+00_JPRB,5.4976E+00_JPRB,6.0386E+00_JPRB,6.5346E+00_JPRB,6.9797E+00_JPRB/)
+KAO( :,10, 9) = (/&
+&4.1414E+00_JPRB,4.6741E+00_JPRB,5.1658E+00_JPRB,5.6197E+00_JPRB,6.0353E+00_JPRB/)
+KAO( :,11, 9) = (/&
+&3.6507E+00_JPRB,4.1155E+00_JPRB,4.5422E+00_JPRB,4.9433E+00_JPRB,5.3072E+00_JPRB/)
+KAO( :,12, 9) = (/&
+&3.1807E+00_JPRB,3.5811E+00_JPRB,3.9600E+00_JPRB,4.3005E+00_JPRB,4.6110E+00_JPRB/)
+KAO( :,13, 9) = (/&
+&2.7426E+00_JPRB,3.0911E+00_JPRB,3.4116E+00_JPRB,3.6974E+00_JPRB,3.9613E+00_JPRB/)
+KAO( :, 1,10) = (/&
+&1.9502E+01_JPRB,2.0541E+01_JPRB,2.1654E+01_JPRB,2.2558E+01_JPRB,2.3382E+01_JPRB/)
+KAO( :, 2,10) = (/&
+&2.0339E+01_JPRB,2.1542E+01_JPRB,2.2723E+01_JPRB,2.3677E+01_JPRB,2.4384E+01_JPRB/)
+KAO( :, 3,10) = (/&
+&2.0653E+01_JPRB,2.1896E+01_JPRB,2.3069E+01_JPRB,2.4110E+01_JPRB,2.5101E+01_JPRB/)
+KAO( :, 4,10) = (/&
+&2.0148E+01_JPRB,2.1653E+01_JPRB,2.3150E+01_JPRB,2.4435E+01_JPRB,2.5600E+01_JPRB/)
+KAO( :, 5,10) = (/&
+&1.9857E+01_JPRB,2.1600E+01_JPRB,2.3190E+01_JPRB,2.4486E+01_JPRB,2.5655E+01_JPRB/)
+KAO( :, 6,10) = (/&
+&1.9401E+01_JPRB,2.1152E+01_JPRB,2.2655E+01_JPRB,2.3968E+01_JPRB,2.5347E+01_JPRB/)
+KAO( :, 7,10) = (/&
+&1.8259E+01_JPRB,1.9961E+01_JPRB,2.1523E+01_JPRB,2.3098E+01_JPRB,2.4731E+01_JPRB/)
+KAO( :, 8,10) = (/&
+&1.6748E+01_JPRB,1.8504E+01_JPRB,2.0269E+01_JPRB,2.2106E+01_JPRB,2.3862E+01_JPRB/)
+KAO( :, 9,10) = (/&
+&1.5105E+01_JPRB,1.7003E+01_JPRB,1.8953E+01_JPRB,2.0882E+01_JPRB,2.2601E+01_JPRB/)
+KAO( :,10,10) = (/&
+&1.3610E+01_JPRB,1.5598E+01_JPRB,1.7574E+01_JPRB,1.9412E+01_JPRB,2.0955E+01_JPRB/)
+KAO( :,11,10) = (/&
+&1.3112E+01_JPRB,1.5038E+01_JPRB,1.6757E+01_JPRB,1.8284E+01_JPRB,1.9636E+01_JPRB/)
+KAO( :,12,10) = (/&
+&1.2298E+01_JPRB,1.3933E+01_JPRB,1.5418E+01_JPRB,1.6787E+01_JPRB,1.8202E+01_JPRB/)
+KAO( :,13,10) = (/&
+&1.1121E+01_JPRB,1.2535E+01_JPRB,1.3895E+01_JPRB,1.5262E+01_JPRB,1.6521E+01_JPRB/)
+KAO( :, 1,11) = (/&
+&2.3585E+01_JPRB,2.4605E+01_JPRB,2.5501E+01_JPRB,2.6482E+01_JPRB,2.7552E+01_JPRB/)
+KAO( :, 2,11) = (/&
+&2.5370E+01_JPRB,2.6451E+01_JPRB,2.7573E+01_JPRB,2.8778E+01_JPRB,2.9736E+01_JPRB/)
+KAO( :, 3,11) = (/&
+&2.6353E+01_JPRB,2.7678E+01_JPRB,2.9066E+01_JPRB,3.0456E+01_JPRB,3.1588E+01_JPRB/)
+KAO( :, 4,11) = (/&
+&2.6933E+01_JPRB,2.8519E+01_JPRB,3.0105E+01_JPRB,3.1590E+01_JPRB,3.2868E+01_JPRB/)
+KAO( :, 5,11) = (/&
+&2.6708E+01_JPRB,2.8629E+01_JPRB,3.0424E+01_JPRB,3.2298E+01_JPRB,3.3849E+01_JPRB/)
+KAO( :, 6,11) = (/&
+&2.5912E+01_JPRB,2.8223E+01_JPRB,3.0549E+01_JPRB,3.2673E+01_JPRB,3.4542E+01_JPRB/)
+KAO( :, 7,11) = (/&
+&2.5158E+01_JPRB,2.7915E+01_JPRB,3.0571E+01_JPRB,3.2861E+01_JPRB,3.4743E+01_JPRB/)
+KAO( :, 8,11) = (/&
+&2.4390E+01_JPRB,2.7375E+01_JPRB,3.0000E+01_JPRB,3.2144E+01_JPRB,3.4135E+01_JPRB/)
+KAO( :, 9,11) = (/&
+&2.3045E+01_JPRB,2.5927E+01_JPRB,2.8454E+01_JPRB,3.0669E+01_JPRB,3.2987E+01_JPRB/)
+KAO( :,10,11) = (/&
+&2.1314E+01_JPRB,2.4114E+01_JPRB,2.6618E+01_JPRB,2.9130E+01_JPRB,3.1810E+01_JPRB/)
+KAO( :,11,11) = (/&
+&2.0509E+01_JPRB,2.3271E+01_JPRB,2.6048E+01_JPRB,2.8884E+01_JPRB,3.1559E+01_JPRB/)
+KAO( :,12,11) = (/&
+&1.9750E+01_JPRB,2.2592E+01_JPRB,2.5456E+01_JPRB,2.8124E+01_JPRB,3.0408E+01_JPRB/)
+KAO( :,13,11) = (/&
+&1.8985E+01_JPRB,2.1757E+01_JPRB,2.4278E+01_JPRB,2.6507E+01_JPRB,2.8545E+01_JPRB/)
+KAO( :, 1,12) = (/&
+&2.7620E+01_JPRB,2.9109E+01_JPRB,3.0583E+01_JPRB,3.1779E+01_JPRB,3.2904E+01_JPRB/)
+KAO( :, 2,12) = (/&
+&3.0792E+01_JPRB,3.2479E+01_JPRB,3.3920E+01_JPRB,3.5408E+01_JPRB,3.6645E+01_JPRB/)
+KAO( :, 3,12) = (/&
+&3.3732E+01_JPRB,3.5632E+01_JPRB,3.7155E+01_JPRB,3.8664E+01_JPRB,4.0176E+01_JPRB/)
+KAO( :, 4,12) = (/&
+&3.6062E+01_JPRB,3.8172E+01_JPRB,3.9899E+01_JPRB,4.1650E+01_JPRB,4.3354E+01_JPRB/)
+KAO( :, 5,12) = (/&
+&3.7489E+01_JPRB,3.9900E+01_JPRB,4.2014E+01_JPRB,4.4198E+01_JPRB,4.6166E+01_JPRB/)
+KAO( :, 6,12) = (/&
+&3.8225E+01_JPRB,4.1024E+01_JPRB,4.3423E+01_JPRB,4.5937E+01_JPRB,4.7978E+01_JPRB/)
+KAO( :, 7,12) = (/&
+&3.8206E+01_JPRB,4.1095E+01_JPRB,4.3824E+01_JPRB,4.6668E+01_JPRB,4.9398E+01_JPRB/)
+KAO( :, 8,12) = (/&
+&3.6912E+01_JPRB,4.0130E+01_JPRB,4.3546E+01_JPRB,4.7024E+01_JPRB,5.0224E+01_JPRB/)
+KAO( :, 9,12) = (/&
+&3.5011E+01_JPRB,3.8952E+01_JPRB,4.3085E+01_JPRB,4.6961E+01_JPRB,5.0773E+01_JPRB/)
+KAO( :,10,12) = (/&
+&3.3435E+01_JPRB,3.8068E+01_JPRB,4.2569E+01_JPRB,4.6931E+01_JPRB,5.0777E+01_JPRB/)
+KAO( :,11,12) = (/&
+&3.4126E+01_JPRB,3.9013E+01_JPRB,4.3484E+01_JPRB,4.7491E+01_JPRB,5.1057E+01_JPRB/)
+KAO( :,12,12) = (/&
+&3.4318E+01_JPRB,3.8949E+01_JPRB,4.3070E+01_JPRB,4.6988E+01_JPRB,5.0849E+01_JPRB/)
+KAO( :,13,12) = (/&
+&3.3457E+01_JPRB,3.7874E+01_JPRB,4.2090E+01_JPRB,4.6382E+01_JPRB,5.0526E+01_JPRB/)
+KAO( :, 1,13) = (/&
+&3.2081E+01_JPRB,3.3951E+01_JPRB,3.5976E+01_JPRB,3.7442E+01_JPRB,3.9187E+01_JPRB/)
+KAO( :, 2,13) = (/&
+&3.6410E+01_JPRB,3.8639E+01_JPRB,4.0837E+01_JPRB,4.2715E+01_JPRB,4.4604E+01_JPRB/)
+KAO( :, 3,13) = (/&
+&4.1117E+01_JPRB,4.3836E+01_JPRB,4.6286E+01_JPRB,4.8485E+01_JPRB,5.0635E+01_JPRB/)
+KAO( :, 4,13) = (/&
+&4.5894E+01_JPRB,4.8808E+01_JPRB,5.1561E+01_JPRB,5.4122E+01_JPRB,5.6665E+01_JPRB/)
+KAO( :, 5,13) = (/&
+&5.0469E+01_JPRB,5.3828E+01_JPRB,5.7025E+01_JPRB,5.9732E+01_JPRB,6.2393E+01_JPRB/)
+KAO( :, 6,13) = (/&
+&5.4490E+01_JPRB,5.8263E+01_JPRB,6.1693E+01_JPRB,6.4893E+01_JPRB,6.8000E+01_JPRB/)
+KAO( :, 7,13) = (/&
+&5.7509E+01_JPRB,6.1997E+01_JPRB,6.5932E+01_JPRB,6.9593E+01_JPRB,7.3010E+01_JPRB/)
+KAO( :, 8,13) = (/&
+&5.9554E+01_JPRB,6.4679E+01_JPRB,6.9084E+01_JPRB,7.3440E+01_JPRB,7.7536E+01_JPRB/)
+KAO( :, 9,13) = (/&
+&6.0329E+01_JPRB,6.5898E+01_JPRB,7.0895E+01_JPRB,7.5993E+01_JPRB,8.0372E+01_JPRB/)
+KAO( :,10,13) = (/&
+&6.0280E+01_JPRB,6.6133E+01_JPRB,7.1850E+01_JPRB,7.7277E+01_JPRB,8.2310E+01_JPRB/)
+KAO( :,11,13) = (/&
+&6.1417E+01_JPRB,6.8046E+01_JPRB,7.4182E+01_JPRB,8.0392E+01_JPRB,8.6582E+01_JPRB/)
+KAO( :,12,13) = (/&
+&6.2068E+01_JPRB,6.9536E+01_JPRB,7.6455E+01_JPRB,8.3609E+01_JPRB,9.0395E+01_JPRB/)
+KAO( :,13,13) = (/&
+&6.2814E+01_JPRB,7.0863E+01_JPRB,7.8689E+01_JPRB,8.6158E+01_JPRB,9.3125E+01_JPRB/)
+KAO( :, 1,14) = (/&
+&4.1518E+01_JPRB,4.3146E+01_JPRB,4.5346E+01_JPRB,4.6853E+01_JPRB,4.8598E+01_JPRB/)
+KAO( :, 2,14) = (/&
+&4.6781E+01_JPRB,4.8970E+01_JPRB,5.1880E+01_JPRB,5.4105E+01_JPRB,5.6522E+01_JPRB/)
+KAO( :, 3,14) = (/&
+&5.1825E+01_JPRB,5.5318E+01_JPRB,5.8975E+01_JPRB,6.1521E+01_JPRB,6.4785E+01_JPRB/)
+KAO( :, 4,14) = (/&
+&5.7018E+01_JPRB,6.1165E+01_JPRB,6.5581E+01_JPRB,6.9138E+01_JPRB,7.3301E+01_JPRB/)
+KAO( :, 5,14) = (/&
+&6.2559E+01_JPRB,6.7532E+01_JPRB,7.2921E+01_JPRB,7.7434E+01_JPRB,8.2255E+01_JPRB/)
+KAO( :, 6,14) = (/&
+&6.8405E+01_JPRB,7.4630E+01_JPRB,8.0801E+01_JPRB,8.6601E+01_JPRB,9.2153E+01_JPRB/)
+KAO( :, 7,14) = (/&
+&7.4932E+01_JPRB,8.2383E+01_JPRB,8.9625E+01_JPRB,9.6790E+01_JPRB,1.0268E+02_JPRB/)
+KAO( :, 8,14) = (/&
+&8.2763E+01_JPRB,9.1560E+01_JPRB,9.9722E+01_JPRB,1.0772E+02_JPRB,1.1418E+02_JPRB/)
+KAO( :, 9,14) = (/&
+&9.0637E+01_JPRB,1.0061E+02_JPRB,1.1013E+02_JPRB,1.1911E+02_JPRB,1.2622E+02_JPRB/)
+KAO( :,10,14) = (/&
+&9.8104E+01_JPRB,1.0968E+02_JPRB,1.2088E+02_JPRB,1.3085E+02_JPRB,1.3916E+02_JPRB/)
+KAO( :,11,14) = (/&
+&1.1038E+02_JPRB,1.2405E+02_JPRB,1.3571E+02_JPRB,1.4612E+02_JPRB,1.5567E+02_JPRB/)
+KAO( :,12,14) = (/&
+&1.2285E+02_JPRB,1.3772E+02_JPRB,1.4999E+02_JPRB,1.6146E+02_JPRB,1.7128E+02_JPRB/)
+KAO( :,13,14) = (/&
+&1.3421E+02_JPRB,1.4967E+02_JPRB,1.6247E+02_JPRB,1.7507E+02_JPRB,1.8543E+02_JPRB/)
+KAO( :, 1,15) = (/&
+&5.1285E+01_JPRB,5.3369E+01_JPRB,5.5201E+01_JPRB,5.6834E+01_JPRB,5.8171E+01_JPRB/)
+KAO( :, 2,15) = (/&
+&6.1486E+01_JPRB,6.4224E+01_JPRB,6.6483E+01_JPRB,6.8385E+01_JPRB,7.0263E+01_JPRB/)
+KAO( :, 3,15) = (/&
+&7.2996E+01_JPRB,7.6763E+01_JPRB,7.9527E+01_JPRB,8.1282E+01_JPRB,8.3483E+01_JPRB/)
+KAO( :, 4,15) = (/&
+&8.5243E+01_JPRB,8.9543E+01_JPRB,9.2811E+01_JPRB,9.4927E+01_JPRB,9.7733E+01_JPRB/)
+KAO( :, 5,15) = (/&
+&9.7960E+01_JPRB,1.0251E+02_JPRB,1.0689E+02_JPRB,1.0988E+02_JPRB,1.1399E+02_JPRB/)
+KAO( :, 6,15) = (/&
+&1.1053E+02_JPRB,1.1600E+02_JPRB,1.1928E+02_JPRB,1.2539E+02_JPRB,1.3116E+02_JPRB/)
+KAO( :, 7,15) = (/&
+&1.1978E+02_JPRB,1.2735E+02_JPRB,1.3342E+02_JPRB,1.4289E+02_JPRB,1.4830E+02_JPRB/)
+KAO( :, 8,15) = (/&
+&1.3066E+02_JPRB,1.3994E+02_JPRB,1.4782E+02_JPRB,1.6007E+02_JPRB,1.6737E+02_JPRB/)
+KAO( :, 9,15) = (/&
+&1.4352E+02_JPRB,1.5439E+02_JPRB,1.6271E+02_JPRB,1.7712E+02_JPRB,1.8796E+02_JPRB/)
+KAO( :,10,15) = (/&
+&1.5667E+02_JPRB,1.6982E+02_JPRB,1.8206E+02_JPRB,1.9739E+02_JPRB,2.1049E+02_JPRB/)
+KAO( :,11,15) = (/&
+&1.7812E+02_JPRB,1.9349E+02_JPRB,2.0867E+02_JPRB,2.2613E+02_JPRB,2.4362E+02_JPRB/)
+KAO( :,12,15) = (/&
+&2.0254E+02_JPRB,2.2124E+02_JPRB,2.3990E+02_JPRB,2.6100E+02_JPRB,2.8038E+02_JPRB/)
+KAO( :,13,15) = (/&
+&2.3108E+02_JPRB,2.5315E+02_JPRB,2.7665E+02_JPRB,3.0075E+02_JPRB,3.2274E+02_JPRB/)
+KAO( :, 1,16) = (/&
+&5.2777E+01_JPRB,5.4993E+01_JPRB,5.6841E+01_JPRB,5.8609E+01_JPRB,6.0050E+01_JPRB/)
+KAO( :, 2,16) = (/&
+&6.3981E+01_JPRB,6.6669E+01_JPRB,6.9358E+01_JPRB,7.1554E+01_JPRB,7.3336E+01_JPRB/)
+KAO( :, 3,16) = (/&
+&7.7059E+01_JPRB,8.0904E+01_JPRB,8.4188E+01_JPRB,8.7082E+01_JPRB,8.9526E+01_JPRB/)
+KAO( :, 4,16) = (/&
+&9.1463E+01_JPRB,9.6542E+01_JPRB,1.0088E+02_JPRB,1.0476E+02_JPRB,1.0800E+02_JPRB/)
+KAO( :, 5,16) = (/&
+&1.0757E+02_JPRB,1.1414E+02_JPRB,1.1997E+02_JPRB,1.2530E+02_JPRB,1.2942E+02_JPRB/)
+KAO( :, 6,16) = (/&
+&1.2556E+02_JPRB,1.3416E+02_JPRB,1.4146E+02_JPRB,1.4899E+02_JPRB,1.5433E+02_JPRB/)
+KAO( :, 7,16) = (/&
+&1.4547E+02_JPRB,1.5695E+02_JPRB,1.6648E+02_JPRB,1.7621E+02_JPRB,1.8397E+02_JPRB/)
+KAO( :, 8,16) = (/&
+&1.6809E+02_JPRB,1.8302E+02_JPRB,1.9611E+02_JPRB,2.0827E+02_JPRB,2.1845E+02_JPRB/)
+KAO( :, 9,16) = (/&
+&1.9340E+02_JPRB,2.1273E+02_JPRB,2.2936E+02_JPRB,2.4529E+02_JPRB,2.5864E+02_JPRB/)
+KAO( :,10,16) = (/&
+&2.2291E+02_JPRB,2.4754E+02_JPRB,2.6870E+02_JPRB,2.8931E+02_JPRB,3.0639E+02_JPRB/)
+KAO( :,11,16) = (/&
+&2.7009E+02_JPRB,2.9993E+02_JPRB,3.2506E+02_JPRB,3.4949E+02_JPRB,3.6996E+02_JPRB/)
+KAO( :,12,16) = (/&
+&3.2630E+02_JPRB,3.6087E+02_JPRB,3.9287E+02_JPRB,4.2005E+02_JPRB,4.4424E+02_JPRB/)
+KAO( :,13,16) = (/&
+&3.9266E+02_JPRB,4.3453E+02_JPRB,4.7167E+02_JPRB,5.0330E+02_JPRB,5.3095E+02_JPRB/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&4.0127E-03_JPRB,4.4687E-03_JPRB,4.9253E-03_JPRB,5.3836E-03_JPRB,5.8217E-03_JPRB/)
+KBO( :,14, 1) = (/&
+&3.3542E-03_JPRB,3.7289E-03_JPRB,4.1053E-03_JPRB,4.4790E-03_JPRB,4.8344E-03_JPRB/)
+KBO( :,15, 1) = (/&
+&2.7756E-03_JPRB,3.0771E-03_JPRB,3.3799E-03_JPRB,3.6798E-03_JPRB,3.9637E-03_JPRB/)
+KBO( :,16, 1) = (/&
+&2.2794E-03_JPRB,2.5195E-03_JPRB,2.7599E-03_JPRB,2.9987E-03_JPRB,3.2238E-03_JPRB/)
+KBO( :,17, 1) = (/&
+&1.8616E-03_JPRB,2.0514E-03_JPRB,2.2420E-03_JPRB,2.4313E-03_JPRB,2.6094E-03_JPRB/)
+KBO( :,18, 1) = (/&
+&1.5125E-03_JPRB,1.6613E-03_JPRB,1.8116E-03_JPRB,1.9607E-03_JPRB,2.1007E-03_JPRB/)
+KBO( :,19, 1) = (/&
+&1.2313E-03_JPRB,1.3491E-03_JPRB,1.4681E-03_JPRB,1.5860E-03_JPRB,1.6968E-03_JPRB/)
+KBO( :,20, 1) = (/&
+&1.0110E-03_JPRB,1.1056E-03_JPRB,1.2012E-03_JPRB,1.2955E-03_JPRB,1.3844E-03_JPRB/)
+KBO( :,21, 1) = (/&
+&8.3158E-04_JPRB,9.0796E-04_JPRB,9.8512E-04_JPRB,1.0609E-03_JPRB,1.1323E-03_JPRB/)
+KBO( :,22, 1) = (/&
+&6.8798E-04_JPRB,7.4987E-04_JPRB,8.1214E-04_JPRB,8.7287E-04_JPRB,9.3028E-04_JPRB/)
+KBO( :,23, 1) = (/&
+&5.6933E-04_JPRB,6.1950E-04_JPRB,6.6971E-04_JPRB,7.1844E-04_JPRB,7.6466E-04_JPRB/)
+KBO( :,24, 1) = (/&
+&4.7205E-04_JPRB,5.1270E-04_JPRB,5.5326E-04_JPRB,5.9246E-04_JPRB,6.2965E-04_JPRB/)
+KBO( :,25, 1) = (/&
+&3.9177E-04_JPRB,4.2473E-04_JPRB,4.5751E-04_JPRB,4.8901E-04_JPRB,5.1899E-04_JPRB/)
+KBO( :,26, 1) = (/&
+&3.2582E-04_JPRB,3.5264E-04_JPRB,3.7910E-04_JPRB,4.0446E-04_JPRB,4.2868E-04_JPRB/)
+KBO( :,27, 1) = (/&
+&2.7103E-04_JPRB,2.9280E-04_JPRB,3.1418E-04_JPRB,3.3460E-04_JPRB,3.5420E-04_JPRB/)
+KBO( :,28, 1) = (/&
+&2.2547E-04_JPRB,2.4309E-04_JPRB,2.6039E-04_JPRB,2.7684E-04_JPRB,2.9269E-04_JPRB/)
+KBO( :,29, 1) = (/&
+&1.8743E-04_JPRB,2.0170E-04_JPRB,2.1564E-04_JPRB,2.2888E-04_JPRB,2.4168E-04_JPRB/)
+KBO( :,30, 1) = (/&
+&1.5564E-04_JPRB,1.6721E-04_JPRB,1.7844E-04_JPRB,1.8907E-04_JPRB,1.9939E-04_JPRB/)
+KBO( :,31, 1) = (/&
+&1.2905E-04_JPRB,1.3840E-04_JPRB,1.4740E-04_JPRB,1.5595E-04_JPRB,1.6423E-04_JPRB/)
+KBO( :,32, 1) = (/&
+&1.0702E-04_JPRB,1.1456E-04_JPRB,1.2177E-04_JPRB,1.2865E-04_JPRB,1.3529E-04_JPRB/)
+KBO( :,33, 1) = (/&
+&8.8739E-05_JPRB,9.4805E-05_JPRB,1.0060E-04_JPRB,1.0612E-04_JPRB,1.1146E-04_JPRB/)
+KBO( :,34, 1) = (/&
+&7.3484E-05_JPRB,7.8377E-05_JPRB,8.3031E-05_JPRB,8.7477E-05_JPRB,9.1774E-05_JPRB/)
+KBO( :,35, 1) = (/&
+&6.0456E-05_JPRB,6.4420E-05_JPRB,6.8176E-05_JPRB,7.1769E-05_JPRB,7.5241E-05_JPRB/)
+KBO( :,36, 1) = (/&
+&4.9390E-05_JPRB,5.2616E-05_JPRB,5.5665E-05_JPRB,5.8580E-05_JPRB,6.1393E-05_JPRB/)
+KBO( :,37, 1) = (/&
+&4.0090E-05_JPRB,4.2739E-05_JPRB,4.5249E-05_JPRB,4.7640E-05_JPRB,4.9946E-05_JPRB/)
+KBO( :,38, 1) = (/&
+&3.2525E-05_JPRB,3.4701E-05_JPRB,3.6769E-05_JPRB,3.8731E-05_JPRB,4.0622E-05_JPRB/)
+KBO( :,39, 1) = (/&
+&2.6387E-05_JPRB,2.8171E-05_JPRB,2.9873E-05_JPRB,3.1484E-05_JPRB,3.3034E-05_JPRB/)
+KBO( :,40, 1) = (/&
+&2.1316E-05_JPRB,2.2785E-05_JPRB,2.4198E-05_JPRB,2.5534E-05_JPRB,2.6814E-05_JPRB/)
+KBO( :,41, 1) = (/&
+&1.7206E-05_JPRB,1.8415E-05_JPRB,1.9590E-05_JPRB,2.0699E-05_JPRB,2.1759E-05_JPRB/)
+KBO( :,42, 1) = (/&
+&1.3884E-05_JPRB,1.4880E-05_JPRB,1.5854E-05_JPRB,1.6776E-05_JPRB,1.7653E-05_JPRB/)
+KBO( :,43, 1) = (/&
+&1.1169E-05_JPRB,1.1994E-05_JPRB,1.2804E-05_JPRB,1.3575E-05_JPRB,1.4303E-05_JPRB/)
+KBO( :,44, 1) = (/&
+&8.9694E-06_JPRB,9.6558E-06_JPRB,1.0326E-05_JPRB,1.0973E-05_JPRB,1.1582E-05_JPRB/)
+KBO( :,45, 1) = (/&
+&7.1970E-06_JPRB,7.7692E-06_JPRB,8.3256E-06_JPRB,8.8667E-06_JPRB,9.3774E-06_JPRB/)
+KBO( :,46, 1) = (/&
+&5.7603E-06_JPRB,6.2374E-06_JPRB,6.7026E-06_JPRB,7.1541E-06_JPRB,7.5833E-06_JPRB/)
+KBO( :,47, 1) = (/&
+&4.5904E-06_JPRB,4.9886E-06_JPRB,5.3792E-06_JPRB,5.7558E-06_JPRB,6.1172E-06_JPRB/)
+KBO( :,48, 1) = (/&
+&3.6534E-06_JPRB,3.9855E-06_JPRB,4.3124E-06_JPRB,4.6286E-06_JPRB,4.9326E-06_JPRB/)
+KBO( :,49, 1) = (/&
+&2.9034E-06_JPRB,3.1805E-06_JPRB,3.4538E-06_JPRB,3.7207E-06_JPRB,3.9759E-06_JPRB/)
+KBO( :,50, 1) = (/&
+&2.3065E-06_JPRB,2.5402E-06_JPRB,2.7688E-06_JPRB,2.9931E-06_JPRB,3.2082E-06_JPRB/)
+KBO( :,51, 1) = (/&
+&1.8310E-06_JPRB,2.0285E-06_JPRB,2.2198E-06_JPRB,2.4080E-06_JPRB,2.5898E-06_JPRB/)
+KBO( :,52, 1) = (/&
+&1.4543E-06_JPRB,1.6160E-06_JPRB,1.7779E-06_JPRB,1.9362E-06_JPRB,2.0898E-06_JPRB/)
+KBO( :,53, 1) = (/&
+&1.1560E-06_JPRB,1.2848E-06_JPRB,1.4229E-06_JPRB,1.5555E-06_JPRB,1.6854E-06_JPRB/)
+KBO( :,54, 1) = (/&
+&9.2302E-07_JPRB,1.0251E-06_JPRB,1.1393E-06_JPRB,1.2519E-06_JPRB,1.3618E-06_JPRB/)
+KBO( :,55, 1) = (/&
+&7.3926E-07_JPRB,8.1986E-07_JPRB,9.1193E-07_JPRB,1.0087E-06_JPRB,1.1013E-06_JPRB/)
+KBO( :,56, 1) = (/&
+&5.9333E-07_JPRB,6.5666E-07_JPRB,7.3046E-07_JPRB,8.1142E-07_JPRB,8.9049E-07_JPRB/)
+KBO( :,57, 1) = (/&
+&4.7736E-07_JPRB,5.2694E-07_JPRB,5.8578E-07_JPRB,6.5161E-07_JPRB,7.2007E-07_JPRB/)
+KBO( :,58, 1) = (/&
+&3.8567E-07_JPRB,4.2438E-07_JPRB,4.7128E-07_JPRB,5.2459E-07_JPRB,5.8203E-07_JPRB/)
+KBO( :,59, 1) = (/&
+&3.1642E-07_JPRB,3.4778E-07_JPRB,3.8612E-07_JPRB,4.2992E-07_JPRB,4.7734E-07_JPRB/)
+KBO( :,13, 2) = (/&
+&1.2160E-02_JPRB,1.3438E-02_JPRB,1.4645E-02_JPRB,1.5727E-02_JPRB,1.6711E-02_JPRB/)
+KBO( :,14, 2) = (/&
+&1.0225E-02_JPRB,1.1288E-02_JPRB,1.2265E-02_JPRB,1.3154E-02_JPRB,1.3956E-02_JPRB/)
+KBO( :,15, 2) = (/&
+&8.4456E-03_JPRB,9.2918E-03_JPRB,1.0065E-02_JPRB,1.0768E-02_JPRB,1.1393E-02_JPRB/)
+KBO( :,16, 2) = (/&
+&6.8924E-03_JPRB,7.5463E-03_JPRB,8.1481E-03_JPRB,8.6924E-03_JPRB,9.1710E-03_JPRB/)
+KBO( :,17, 2) = (/&
+&5.5778E-03_JPRB,6.0832E-03_JPRB,6.5471E-03_JPRB,6.9629E-03_JPRB,7.3305E-03_JPRB/)
+KBO( :,18, 2) = (/&
+&4.4688E-03_JPRB,4.8540E-03_JPRB,5.2070E-03_JPRB,5.5215E-03_JPRB,5.8036E-03_JPRB/)
+KBO( :,19, 2) = (/&
+&3.5967E-03_JPRB,3.8949E-03_JPRB,4.1669E-03_JPRB,4.4096E-03_JPRB,4.6280E-03_JPRB/)
+KBO( :,20, 2) = (/&
+&2.9298E-03_JPRB,3.1646E-03_JPRB,3.3779E-03_JPRB,3.5694E-03_JPRB,3.7401E-03_JPRB/)
+KBO( :,21, 2) = (/&
+&2.3932E-03_JPRB,2.5790E-03_JPRB,2.7477E-03_JPRB,2.8993E-03_JPRB,3.0338E-03_JPRB/)
+KBO( :,22, 2) = (/&
+&1.9643E-03_JPRB,2.1105E-03_JPRB,2.2434E-03_JPRB,2.3626E-03_JPRB,2.4679E-03_JPRB/)
+KBO( :,23, 2) = (/&
+&1.6125E-03_JPRB,1.7277E-03_JPRB,1.8326E-03_JPRB,1.9262E-03_JPRB,2.0085E-03_JPRB/)
+KBO( :,24, 2) = (/&
+&1.3282E-03_JPRB,1.4199E-03_JPRB,1.5028E-03_JPRB,1.5765E-03_JPRB,1.6410E-03_JPRB/)
+KBO( :,25, 2) = (/&
+&1.0951E-03_JPRB,1.1683E-03_JPRB,1.2337E-03_JPRB,1.2916E-03_JPRB,1.3424E-03_JPRB/)
+KBO( :,26, 2) = (/&
+&9.0567E-04_JPRB,9.6375E-04_JPRB,1.0153E-03_JPRB,1.0609E-03_JPRB,1.1006E-03_JPRB/)
+KBO( :,27, 2) = (/&
+&7.4971E-04_JPRB,7.9563E-04_JPRB,8.3627E-04_JPRB,8.7231E-04_JPRB,9.0333E-04_JPRB/)
+KBO( :,28, 2) = (/&
+&6.2083E-04_JPRB,6.5706E-04_JPRB,6.8919E-04_JPRB,7.1762E-04_JPRB,7.4183E-04_JPRB/)
+KBO( :,29, 2) = (/&
+&5.1283E-04_JPRB,5.4134E-04_JPRB,5.6668E-04_JPRB,5.8892E-04_JPRB,6.0775E-04_JPRB/)
+KBO( :,30, 2) = (/&
+&4.2274E-04_JPRB,4.4513E-04_JPRB,4.6510E-04_JPRB,4.8244E-04_JPRB,4.9704E-04_JPRB/)
+KBO( :,31, 2) = (/&
+&3.4700E-04_JPRB,3.6458E-04_JPRB,3.8019E-04_JPRB,3.9360E-04_JPRB,4.0492E-04_JPRB/)
+KBO( :,32, 2) = (/&
+&2.8510E-04_JPRB,2.9895E-04_JPRB,3.1110E-04_JPRB,3.2149E-04_JPRB,3.3026E-04_JPRB/)
+KBO( :,33, 2) = (/&
+&2.3440E-04_JPRB,2.4528E-04_JPRB,2.5470E-04_JPRB,2.6280E-04_JPRB,2.6955E-04_JPRB/)
+KBO( :,34, 2) = (/&
+&1.9316E-04_JPRB,2.0175E-04_JPRB,2.0916E-04_JPRB,2.1548E-04_JPRB,2.2075E-04_JPRB/)
+KBO( :,35, 2) = (/&
+&1.5858E-04_JPRB,1.6542E-04_JPRB,1.7135E-04_JPRB,1.7637E-04_JPRB,1.8056E-04_JPRB/)
+KBO( :,36, 2) = (/&
+&1.2966E-04_JPRB,1.3522E-04_JPRB,1.4003E-04_JPRB,1.4410E-04_JPRB,1.4751E-04_JPRB/)
+KBO( :,37, 2) = (/&
+&1.0583E-04_JPRB,1.1047E-04_JPRB,1.1450E-04_JPRB,1.1791E-04_JPRB,1.2077E-04_JPRB/)
+KBO( :,38, 2) = (/&
+&8.6354E-05_JPRB,9.0236E-05_JPRB,9.3617E-05_JPRB,9.6482E-05_JPRB,9.8878E-05_JPRB/)
+KBO( :,39, 2) = (/&
+&7.0455E-05_JPRB,7.3698E-05_JPRB,7.6539E-05_JPRB,7.8943E-05_JPRB,8.0950E-05_JPRB/)
+KBO( :,40, 2) = (/&
+&5.7475E-05_JPRB,6.0235E-05_JPRB,6.2673E-05_JPRB,6.4741E-05_JPRB,6.6460E-05_JPRB/)
+KBO( :,41, 2) = (/&
+&4.6872E-05_JPRB,4.9225E-05_JPRB,5.1315E-05_JPRB,5.3102E-05_JPRB,5.4585E-05_JPRB/)
+KBO( :,42, 2) = (/&
+&3.8212E-05_JPRB,4.0216E-05_JPRB,4.1999E-05_JPRB,4.3546E-05_JPRB,4.4830E-05_JPRB/)
+KBO( :,43, 2) = (/&
+&3.1158E-05_JPRB,3.2889E-05_JPRB,3.4429E-05_JPRB,3.5779E-05_JPRB,3.6907E-05_JPRB/)
+KBO( :,44, 2) = (/&
+&2.5395E-05_JPRB,2.6902E-05_JPRB,2.8242E-05_JPRB,2.9418E-05_JPRB,3.0418E-05_JPRB/)
+KBO( :,45, 2) = (/&
+&2.0690E-05_JPRB,2.1996E-05_JPRB,2.3163E-05_JPRB,2.4189E-05_JPRB,2.5065E-05_JPRB/)
+KBO( :,46, 2) = (/&
+&1.6831E-05_JPRB,1.7958E-05_JPRB,1.8979E-05_JPRB,1.9882E-05_JPRB,2.0651E-05_JPRB/)
+KBO( :,47, 2) = (/&
+&1.3652E-05_JPRB,1.4627E-05_JPRB,1.5521E-05_JPRB,1.6321E-05_JPRB,1.7007E-05_JPRB/)
+KBO( :,48, 2) = (/&
+&1.1060E-05_JPRB,1.1904E-05_JPRB,1.2686E-05_JPRB,1.3393E-05_JPRB,1.4006E-05_JPRB/)
+KBO( :,49, 2) = (/&
+&8.9492E-06_JPRB,9.6804E-06_JPRB,1.0363E-05_JPRB,1.0983E-05_JPRB,1.1533E-05_JPRB/)
+KBO( :,50, 2) = (/&
+&7.2405E-06_JPRB,7.8785E-06_JPRB,8.4705E-06_JPRB,9.0129E-06_JPRB,9.5008E-06_JPRB/)
+KBO( :,51, 2) = (/&
+&5.8460E-06_JPRB,6.4101E-06_JPRB,6.9248E-06_JPRB,7.3984E-06_JPRB,7.8284E-06_JPRB/)
+KBO( :,52, 2) = (/&
+&4.6997E-06_JPRB,5.2070E-06_JPRB,5.6596E-06_JPRB,6.0736E-06_JPRB,6.4507E-06_JPRB/)
+KBO( :,53, 2) = (/&
+&3.7614E-06_JPRB,4.2159E-06_JPRB,4.6210E-06_JPRB,4.9854E-06_JPRB,5.3156E-06_JPRB/)
+KBO( :,54, 2) = (/&
+&3.0075E-06_JPRB,3.4121E-06_JPRB,3.7745E-06_JPRB,4.1002E-06_JPRB,4.3906E-06_JPRB/)
+KBO( :,55, 2) = (/&
+&2.4043E-06_JPRB,2.7566E-06_JPRB,3.0802E-06_JPRB,3.3721E-06_JPRB,3.6314E-06_JPRB/)
+KBO( :,56, 2) = (/&
+&1.9210E-06_JPRB,2.2197E-06_JPRB,2.5091E-06_JPRB,2.7692E-06_JPRB,3.0032E-06_JPRB/)
+KBO( :,57, 2) = (/&
+&1.5317E-06_JPRB,1.7871E-06_JPRB,2.0379E-06_JPRB,2.2717E-06_JPRB,2.4826E-06_JPRB/)
+KBO( :,58, 2) = (/&
+&1.2206E-06_JPRB,1.4418E-06_JPRB,1.6546E-06_JPRB,1.8628E-06_JPRB,2.0522E-06_JPRB/)
+KBO( :,59, 2) = (/&
+&9.9907E-07_JPRB,1.1883E-06_JPRB,1.3690E-06_JPRB,1.5455E-06_JPRB,1.7114E-06_JPRB/)
+KBO( :,13, 3) = (/&
+&2.0786E-02_JPRB,2.2351E-02_JPRB,2.3914E-02_JPRB,2.5482E-02_JPRB,2.6955E-02_JPRB/)
+KBO( :,14, 3) = (/&
+&1.7451E-02_JPRB,1.8772E-02_JPRB,2.0114E-02_JPRB,2.1398E-02_JPRB,2.2623E-02_JPRB/)
+KBO( :,15, 3) = (/&
+&1.4302E-02_JPRB,1.5409E-02_JPRB,1.6505E-02_JPRB,1.7555E-02_JPRB,1.8558E-02_JPRB/)
+KBO( :,16, 3) = (/&
+&1.1560E-02_JPRB,1.2473E-02_JPRB,1.3359E-02_JPRB,1.4211E-02_JPRB,1.4998E-02_JPRB/)
+KBO( :,17, 3) = (/&
+&9.2944E-03_JPRB,1.0027E-02_JPRB,1.0736E-02_JPRB,1.1417E-02_JPRB,1.2019E-02_JPRB/)
+KBO( :,18, 3) = (/&
+&7.4021E-03_JPRB,7.9861E-03_JPRB,8.5472E-03_JPRB,9.0743E-03_JPRB,9.5344E-03_JPRB/)
+KBO( :,19, 3) = (/&
+&5.9440E-03_JPRB,6.4084E-03_JPRB,6.8519E-03_JPRB,7.2597E-03_JPRB,7.6128E-03_JPRB/)
+KBO( :,20, 3) = (/&
+&4.8413E-03_JPRB,5.2128E-03_JPRB,5.5678E-03_JPRB,5.8851E-03_JPRB,6.1565E-03_JPRB/)
+KBO( :,21, 3) = (/&
+&3.9554E-03_JPRB,4.2547E-03_JPRB,4.5379E-03_JPRB,4.7882E-03_JPRB,4.9942E-03_JPRB/)
+KBO( :,22, 3) = (/&
+&3.2474E-03_JPRB,3.4884E-03_JPRB,3.7113E-03_JPRB,3.9077E-03_JPRB,4.0588E-03_JPRB/)
+KBO( :,23, 3) = (/&
+&2.6676E-03_JPRB,2.8612E-03_JPRB,3.0356E-03_JPRB,3.1862E-03_JPRB,3.2997E-03_JPRB/)
+KBO( :,24, 3) = (/&
+&2.2001E-03_JPRB,2.3544E-03_JPRB,2.4920E-03_JPRB,2.6064E-03_JPRB,2.6941E-03_JPRB/)
+KBO( :,25, 3) = (/&
+&1.8169E-03_JPRB,1.9393E-03_JPRB,2.0482E-03_JPRB,2.1336E-03_JPRB,2.2024E-03_JPRB/)
+KBO( :,26, 3) = (/&
+&1.5047E-03_JPRB,1.6016E-03_JPRB,1.6869E-03_JPRB,1.7502E-03_JPRB,1.8053E-03_JPRB/)
+KBO( :,27, 3) = (/&
+&1.2468E-03_JPRB,1.3235E-03_JPRB,1.3890E-03_JPRB,1.4372E-03_JPRB,1.4821E-03_JPRB/)
+KBO( :,28, 3) = (/&
+&1.0331E-03_JPRB,1.0942E-03_JPRB,1.1434E-03_JPRB,1.1812E-03_JPRB,1.2183E-03_JPRB/)
+KBO( :,29, 3) = (/&
+&8.5445E-04_JPRB,9.0249E-04_JPRB,9.3879E-04_JPRB,9.6890E-04_JPRB,9.9940E-04_JPRB/)
+KBO( :,30, 3) = (/&
+&7.0538E-04_JPRB,7.4243E-04_JPRB,7.6932E-04_JPRB,7.9375E-04_JPRB,8.1874E-04_JPRB/)
+KBO( :,31, 3) = (/&
+&5.8013E-04_JPRB,6.0755E-04_JPRB,6.2805E-04_JPRB,6.4789E-04_JPRB,6.6815E-04_JPRB/)
+KBO( :,32, 3) = (/&
+&4.7748E-04_JPRB,4.9738E-04_JPRB,5.1357E-04_JPRB,5.2976E-04_JPRB,5.4616E-04_JPRB/)
+KBO( :,33, 3) = (/&
+&3.9283E-04_JPRB,4.0745E-04_JPRB,4.2047E-04_JPRB,4.3362E-04_JPRB,4.4699E-04_JPRB/)
+KBO( :,34, 3) = (/&
+&3.2354E-04_JPRB,3.3493E-04_JPRB,3.4555E-04_JPRB,3.5630E-04_JPRB,3.6722E-04_JPRB/)
+KBO( :,35, 3) = (/&
+&2.6563E-04_JPRB,2.7479E-04_JPRB,2.8346E-04_JPRB,2.9224E-04_JPRB,3.0115E-04_JPRB/)
+KBO( :,36, 3) = (/&
+&2.1746E-04_JPRB,2.2496E-04_JPRB,2.3205E-04_JPRB,2.3922E-04_JPRB,2.4648E-04_JPRB/)
+KBO( :,37, 3) = (/&
+&1.7790E-04_JPRB,1.8421E-04_JPRB,1.9005E-04_JPRB,1.9594E-04_JPRB,2.0188E-04_JPRB/)
+KBO( :,38, 3) = (/&
+&1.4546E-04_JPRB,1.5084E-04_JPRB,1.5564E-04_JPRB,1.6048E-04_JPRB,1.6535E-04_JPRB/)
+KBO( :,39, 3) = (/&
+&1.1888E-04_JPRB,1.2350E-04_JPRB,1.2746E-04_JPRB,1.3144E-04_JPRB,1.3545E-04_JPRB/)
+KBO( :,40, 3) = (/&
+&9.7055E-05_JPRB,1.0127E-04_JPRB,1.0459E-04_JPRB,1.0789E-04_JPRB,1.1120E-04_JPRB/)
+KBO( :,41, 3) = (/&
+&7.9154E-05_JPRB,8.3014E-05_JPRB,8.5866E-05_JPRB,8.8590E-05_JPRB,9.1337E-05_JPRB/)
+KBO( :,42, 3) = (/&
+&6.4516E-05_JPRB,6.7988E-05_JPRB,7.0503E-05_JPRB,7.2755E-05_JPRB,7.5027E-05_JPRB/)
+KBO( :,43, 3) = (/&
+&5.2586E-05_JPRB,5.5638E-05_JPRB,5.8012E-05_JPRB,5.9918E-05_JPRB,6.1807E-05_JPRB/)
+KBO( :,44, 3) = (/&
+&4.2846E-05_JPRB,4.5469E-05_JPRB,4.7752E-05_JPRB,4.9435E-05_JPRB,5.1007E-05_JPRB/)
+KBO( :,45, 3) = (/&
+&3.4876E-05_JPRB,3.7158E-05_JPRB,3.9219E-05_JPRB,4.0798E-05_JPRB,4.2133E-05_JPRB/)
+KBO( :,46, 3) = (/&
+&2.8345E-05_JPRB,3.0331E-05_JPRB,3.2109E-05_JPRB,3.3641E-05_JPRB,3.4818E-05_JPRB/)
+KBO( :,47, 3) = (/&
+&2.2997E-05_JPRB,2.4688E-05_JPRB,2.6250E-05_JPRB,2.7649E-05_JPRB,2.8769E-05_JPRB/)
+KBO( :,48, 3) = (/&
+&1.8671E-05_JPRB,2.0088E-05_JPRB,2.1457E-05_JPRB,2.2672E-05_JPRB,2.3753E-05_JPRB/)
+KBO( :,49, 3) = (/&
+&1.5172E-05_JPRB,1.6362E-05_JPRB,1.7526E-05_JPRB,1.8600E-05_JPRB,1.9566E-05_JPRB/)
+KBO( :,50, 3) = (/&
+&1.2371E-05_JPRB,1.3362E-05_JPRB,1.4334E-05_JPRB,1.5278E-05_JPRB,1.6112E-05_JPRB/)
+KBO( :,51, 3) = (/&
+&1.0118E-05_JPRB,1.0936E-05_JPRB,1.1749E-05_JPRB,1.2556E-05_JPRB,1.3289E-05_JPRB/)
+KBO( :,52, 3) = (/&
+&8.2966E-06_JPRB,8.9718E-06_JPRB,9.6516E-06_JPRB,1.0325E-05_JPRB,1.0972E-05_JPRB/)
+KBO( :,53, 3) = (/&
+&6.8197E-06_JPRB,7.3847E-06_JPRB,7.9459E-06_JPRB,8.5100E-06_JPRB,9.0658E-06_JPRB/)
+KBO( :,54, 3) = (/&
+&5.6318E-06_JPRB,6.1106E-06_JPRB,6.5789E-06_JPRB,7.0470E-06_JPRB,7.5143E-06_JPRB/)
+KBO( :,55, 3) = (/&
+&4.6648E-06_JPRB,5.0803E-06_JPRB,5.4755E-06_JPRB,5.8623E-06_JPRB,6.2545E-06_JPRB/)
+KBO( :,56, 3) = (/&
+&3.8708E-06_JPRB,4.2378E-06_JPRB,4.5762E-06_JPRB,4.9013E-06_JPRB,5.2284E-06_JPRB/)
+KBO( :,57, 3) = (/&
+&3.2206E-06_JPRB,3.5441E-06_JPRB,3.8440E-06_JPRB,4.1208E-06_JPRB,4.3930E-06_JPRB/)
+KBO( :,58, 3) = (/&
+&2.6894E-06_JPRB,2.9742E-06_JPRB,3.2435E-06_JPRB,3.4859E-06_JPRB,3.7158E-06_JPRB/)
+KBO( :,59, 3) = (/&
+&2.2697E-06_JPRB,2.5173E-06_JPRB,2.7510E-06_JPRB,2.9640E-06_JPRB,3.1586E-06_JPRB/)
+KBO( :,13, 4) = (/&
+&3.3348E-02_JPRB,3.5638E-02_JPRB,3.7527E-02_JPRB,3.8919E-02_JPRB,3.9722E-02_JPRB/)
+KBO( :,14, 4) = (/&
+&2.8133E-02_JPRB,2.9965E-02_JPRB,3.1537E-02_JPRB,3.2552E-02_JPRB,3.3172E-02_JPRB/)
+KBO( :,15, 4) = (/&
+&2.3195E-02_JPRB,2.4631E-02_JPRB,2.5882E-02_JPRB,2.6505E-02_JPRB,2.6995E-02_JPRB/)
+KBO( :,16, 4) = (/&
+&1.8840E-02_JPRB,1.9967E-02_JPRB,2.0839E-02_JPRB,2.1232E-02_JPRB,2.1643E-02_JPRB/)
+KBO( :,17, 4) = (/&
+&1.5191E-02_JPRB,1.6076E-02_JPRB,1.6629E-02_JPRB,1.6911E-02_JPRB,1.7254E-02_JPRB/)
+KBO( :,18, 4) = (/&
+&1.2129E-02_JPRB,1.2801E-02_JPRB,1.3112E-02_JPRB,1.3338E-02_JPRB,1.3606E-02_JPRB/)
+KBO( :,19, 4) = (/&
+&9.7476E-03_JPRB,1.0232E-02_JPRB,1.0428E-02_JPRB,1.0608E-02_JPRB,1.0828E-02_JPRB/)
+KBO( :,20, 4) = (/&
+&7.9368E-03_JPRB,8.2717E-03_JPRB,8.4067E-03_JPRB,8.5556E-03_JPRB,8.7467E-03_JPRB/)
+KBO( :,21, 4) = (/&
+&6.4875E-03_JPRB,6.7006E-03_JPRB,6.8050E-03_JPRB,6.9274E-03_JPRB,7.0981E-03_JPRB/)
+KBO( :,22, 4) = (/&
+&5.3123E-03_JPRB,5.4283E-03_JPRB,5.5157E-03_JPRB,5.6201E-03_JPRB,5.7769E-03_JPRB/)
+KBO( :,23, 4) = (/&
+&4.3285E-03_JPRB,4.4003E-03_JPRB,4.4749E-03_JPRB,4.5691E-03_JPRB,4.7070E-03_JPRB/)
+KBO( :,24, 4) = (/&
+&3.5319E-03_JPRB,3.5856E-03_JPRB,3.6485E-03_JPRB,3.7338E-03_JPRB,3.8516E-03_JPRB/)
+KBO( :,25, 4) = (/&
+&2.8812E-03_JPRB,2.9257E-03_JPRB,2.9788E-03_JPRB,3.0577E-03_JPRB,3.1571E-03_JPRB/)
+KBO( :,26, 4) = (/&
+&2.3549E-03_JPRB,2.3931E-03_JPRB,2.4398E-03_JPRB,2.5120E-03_JPRB,2.5956E-03_JPRB/)
+KBO( :,27, 4) = (/&
+&1.9281E-03_JPRB,1.9612E-03_JPRB,2.0042E-03_JPRB,2.0672E-03_JPRB,2.1371E-03_JPRB/)
+KBO( :,28, 4) = (/&
+&1.5812E-03_JPRB,1.6092E-03_JPRB,1.6493E-03_JPRB,1.7029E-03_JPRB,1.7614E-03_JPRB/)
+KBO( :,29, 4) = (/&
+&1.2934E-03_JPRB,1.3182E-03_JPRB,1.3554E-03_JPRB,1.4008E-03_JPRB,1.4497E-03_JPRB/)
+KBO( :,30, 4) = (/&
+&1.0569E-03_JPRB,1.0795E-03_JPRB,1.1129E-03_JPRB,1.1513E-03_JPRB,1.1924E-03_JPRB/)
+KBO( :,31, 4) = (/&
+&8.6072E-04_JPRB,8.8192E-04_JPRB,9.1116E-04_JPRB,9.4362E-04_JPRB,9.7860E-04_JPRB/)
+KBO( :,32, 4) = (/&
+&7.0258E-04_JPRB,7.2255E-04_JPRB,7.4782E-04_JPRB,7.7514E-04_JPRB,8.0493E-04_JPRB/)
+KBO( :,33, 4) = (/&
+&5.7482E-04_JPRB,5.9318E-04_JPRB,6.1484E-04_JPRB,6.3779E-04_JPRB,6.6313E-04_JPRB/)
+KBO( :,34, 4) = (/&
+&4.7271E-04_JPRB,4.8878E-04_JPRB,5.0702E-04_JPRB,5.2638E-04_JPRB,5.4786E-04_JPRB/)
+KBO( :,35, 4) = (/&
+&3.8824E-04_JPRB,4.0194E-04_JPRB,4.1715E-04_JPRB,4.3337E-04_JPRB,4.5133E-04_JPRB/)
+KBO( :,36, 4) = (/&
+&3.1820E-04_JPRB,3.2965E-04_JPRB,3.4225E-04_JPRB,3.5569E-04_JPRB,3.7045E-04_JPRB/)
+KBO( :,37, 4) = (/&
+&2.6087E-04_JPRB,2.7015E-04_JPRB,2.8055E-04_JPRB,2.9152E-04_JPRB,3.0353E-04_JPRB/)
+KBO( :,38, 4) = (/&
+&2.1395E-04_JPRB,2.2142E-04_JPRB,2.2996E-04_JPRB,2.3892E-04_JPRB,2.4870E-04_JPRB/)
+KBO( :,39, 4) = (/&
+&1.7555E-04_JPRB,1.8151E-04_JPRB,1.8852E-04_JPRB,1.9581E-04_JPRB,2.0378E-04_JPRB/)
+KBO( :,40, 4) = (/&
+&1.4448E-04_JPRB,1.4897E-04_JPRB,1.5464E-04_JPRB,1.6057E-04_JPRB,1.6703E-04_JPRB/)
+KBO( :,41, 4) = (/&
+&1.1907E-04_JPRB,1.2237E-04_JPRB,1.2690E-04_JPRB,1.3173E-04_JPRB,1.3696E-04_JPRB/)
+KBO( :,42, 4) = (/&
+&9.8189E-05_JPRB,1.0062E-04_JPRB,1.0417E-04_JPRB,1.0812E-04_JPRB,1.1234E-04_JPRB/)
+KBO( :,43, 4) = (/&
+&8.1285E-05_JPRB,8.3104E-05_JPRB,8.5710E-05_JPRB,8.8901E-05_JPRB,9.2309E-05_JPRB/)
+KBO( :,44, 4) = (/&
+&6.7490E-05_JPRB,6.8895E-05_JPRB,7.0708E-05_JPRB,7.3224E-05_JPRB,7.5980E-05_JPRB/)
+KBO( :,45, 4) = (/&
+&5.6130E-05_JPRB,5.7190E-05_JPRB,5.8518E-05_JPRB,6.0401E-05_JPRB,6.2619E-05_JPRB/)
+KBO( :,46, 4) = (/&
+&4.6746E-05_JPRB,4.7563E-05_JPRB,4.8588E-05_JPRB,4.9905E-05_JPRB,5.1654E-05_JPRB/)
+KBO( :,47, 4) = (/&
+&3.8886E-05_JPRB,3.9651E-05_JPRB,4.0414E-05_JPRB,4.1369E-05_JPRB,4.2661E-05_JPRB/)
+KBO( :,48, 4) = (/&
+&3.2050E-05_JPRB,3.3124E-05_JPRB,3.3698E-05_JPRB,3.4432E-05_JPRB,3.5333E-05_JPRB/)
+KBO( :,49, 4) = (/&
+&2.6226E-05_JPRB,2.7647E-05_JPRB,2.8176E-05_JPRB,2.8720E-05_JPRB,2.9390E-05_JPRB/)
+KBO( :,50, 4) = (/&
+&2.1474E-05_JPRB,2.2897E-05_JPRB,2.3616E-05_JPRB,2.4028E-05_JPRB,2.4549E-05_JPRB/)
+KBO( :,51, 4) = (/&
+&1.7587E-05_JPRB,1.8848E-05_JPRB,1.9798E-05_JPRB,2.0162E-05_JPRB,2.0554E-05_JPRB/)
+KBO( :,52, 4) = (/&
+&1.4397E-05_JPRB,1.5513E-05_JPRB,1.6498E-05_JPRB,1.6964E-05_JPRB,1.7266E-05_JPRB/)
+KBO( :,53, 4) = (/&
+&1.1772E-05_JPRB,1.2776E-05_JPRB,1.3653E-05_JPRB,1.4290E-05_JPRB,1.4555E-05_JPRB/)
+KBO( :,54, 4) = (/&
+&9.6285E-06_JPRB,1.0547E-05_JPRB,1.1325E-05_JPRB,1.1997E-05_JPRB,1.2314E-05_JPRB/)
+KBO( :,55, 4) = (/&
+&7.8686E-06_JPRB,8.7205E-06_JPRB,9.4148E-06_JPRB,1.0021E-05_JPRB,1.0444E-05_JPRB/)
+KBO( :,56, 4) = (/&
+&6.4474E-06_JPRB,7.2044E-06_JPRB,7.8377E-06_JPRB,8.3851E-06_JPRB,8.8446E-06_JPRB/)
+KBO( :,57, 4) = (/&
+&5.3026E-06_JPRB,5.9425E-06_JPRB,6.5385E-06_JPRB,7.0305E-06_JPRB,7.4552E-06_JPRB/)
+KBO( :,58, 4) = (/&
+&4.3875E-06_JPRB,4.9223E-06_JPRB,5.4609E-06_JPRB,5.9117E-06_JPRB,6.2971E-06_JPRB/)
+KBO( :,59, 4) = (/&
+&3.6889E-06_JPRB,4.1378E-06_JPRB,4.5957E-06_JPRB,4.9992E-06_JPRB,5.3354E-06_JPRB/)
+KBO( :,13, 5) = (/&
+&5.1121E-02_JPRB,5.1507E-02_JPRB,5.2004E-02_JPRB,5.3195E-02_JPRB,5.5478E-02_JPRB/)
+KBO( :,14, 5) = (/&
+&4.2903E-02_JPRB,4.3219E-02_JPRB,4.3663E-02_JPRB,4.5005E-02_JPRB,4.7060E-02_JPRB/)
+KBO( :,15, 5) = (/&
+&3.5068E-02_JPRB,3.5353E-02_JPRB,3.5864E-02_JPRB,3.7306E-02_JPRB,3.9103E-02_JPRB/)
+KBO( :,16, 5) = (/&
+&2.8258E-02_JPRB,2.8536E-02_JPRB,2.9205E-02_JPRB,3.0568E-02_JPRB,3.2105E-02_JPRB/)
+KBO( :,17, 5) = (/&
+&2.2642E-02_JPRB,2.2932E-02_JPRB,2.3698E-02_JPRB,2.4891E-02_JPRB,2.6185E-02_JPRB/)
+KBO( :,18, 5) = (/&
+&1.7964E-02_JPRB,1.8281E-02_JPRB,1.9084E-02_JPRB,2.0096E-02_JPRB,2.1180E-02_JPRB/)
+KBO( :,19, 5) = (/&
+&1.4384E-02_JPRB,1.4732E-02_JPRB,1.5474E-02_JPRB,1.6321E-02_JPRB,1.7214E-02_JPRB/)
+KBO( :,20, 5) = (/&
+&1.1675E-02_JPRB,1.2051E-02_JPRB,1.2712E-02_JPRB,1.3419E-02_JPRB,1.4150E-02_JPRB/)
+KBO( :,21, 5) = (/&
+&9.5108E-03_JPRB,9.9043E-03_JPRB,1.0466E-02_JPRB,1.1048E-02_JPRB,1.1656E-02_JPRB/)
+KBO( :,22, 5) = (/&
+&7.7720E-03_JPRB,8.1751E-03_JPRB,8.6406E-03_JPRB,9.1253E-03_JPRB,9.6344E-03_JPRB/)
+KBO( :,23, 5) = (/&
+&6.3846E-03_JPRB,6.7498E-03_JPRB,7.1331E-03_JPRB,7.5377E-03_JPRB,7.9653E-03_JPRB/)
+KBO( :,24, 5) = (/&
+&5.2771E-03_JPRB,5.5862E-03_JPRB,5.9043E-03_JPRB,6.2445E-03_JPRB,6.6015E-03_JPRB/)
+KBO( :,25, 5) = (/&
+&4.3695E-03_JPRB,4.6259E-03_JPRB,4.8938E-03_JPRB,5.1786E-03_JPRB,5.4764E-03_JPRB/)
+KBO( :,26, 5) = (/&
+&3.6280E-03_JPRB,3.8403E-03_JPRB,4.0669E-03_JPRB,4.3054E-03_JPRB,4.5535E-03_JPRB/)
+KBO( :,27, 5) = (/&
+&3.0145E-03_JPRB,3.1918E-03_JPRB,3.3815E-03_JPRB,3.5819E-03_JPRB,3.7878E-03_JPRB/)
+KBO( :,28, 5) = (/&
+&2.5051E-03_JPRB,2.6547E-03_JPRB,2.8145E-03_JPRB,2.9821E-03_JPRB,3.1545E-03_JPRB/)
+KBO( :,29, 5) = (/&
+&2.0801E-03_JPRB,2.2062E-03_JPRB,2.3413E-03_JPRB,2.4808E-03_JPRB,2.6265E-03_JPRB/)
+KBO( :,30, 5) = (/&
+&1.7263E-03_JPRB,1.8332E-03_JPRB,1.9470E-03_JPRB,2.0638E-03_JPRB,2.1862E-03_JPRB/)
+KBO( :,31, 5) = (/&
+&1.4306E-03_JPRB,1.5217E-03_JPRB,1.6165E-03_JPRB,1.7146E-03_JPRB,1.8178E-03_JPRB/)
+KBO( :,32, 5) = (/&
+&1.1879E-03_JPRB,1.2650E-03_JPRB,1.3439E-03_JPRB,1.4268E-03_JPRB,1.5142E-03_JPRB/)
+KBO( :,33, 5) = (/&
+&9.8791E-04_JPRB,1.0524E-03_JPRB,1.1186E-03_JPRB,1.1891E-03_JPRB,1.2634E-03_JPRB/)
+KBO( :,34, 5) = (/&
+&8.2253E-04_JPRB,8.7618E-04_JPRB,9.3221E-04_JPRB,9.9230E-04_JPRB,1.0553E-03_JPRB/)
+KBO( :,35, 5) = (/&
+&6.8111E-04_JPRB,7.2574E-04_JPRB,7.7324E-04_JPRB,8.2413E-04_JPRB,8.7761E-04_JPRB/)
+KBO( :,36, 5) = (/&
+&5.6044E-04_JPRB,5.9769E-04_JPRB,6.3770E-04_JPRB,6.8068E-04_JPRB,7.2574E-04_JPRB/)
+KBO( :,37, 5) = (/&
+&4.5897E-04_JPRB,4.9003E-04_JPRB,5.2346E-04_JPRB,5.5953E-04_JPRB,5.9740E-04_JPRB/)
+KBO( :,38, 5) = (/&
+&3.7569E-04_JPRB,4.0153E-04_JPRB,4.2953E-04_JPRB,4.5975E-04_JPRB,4.9160E-04_JPRB/)
+KBO( :,39, 5) = (/&
+&3.0744E-04_JPRB,3.2897E-04_JPRB,3.5240E-04_JPRB,3.7773E-04_JPRB,4.0452E-04_JPRB/)
+KBO( :,40, 5) = (/&
+&2.5088E-04_JPRB,2.6871E-04_JPRB,2.8819E-04_JPRB,3.0931E-04_JPRB,3.3175E-04_JPRB/)
+KBO( :,41, 5) = (/&
+&2.0462E-04_JPRB,2.1937E-04_JPRB,2.3556E-04_JPRB,2.5314E-04_JPRB,2.7185E-04_JPRB/)
+KBO( :,42, 5) = (/&
+&1.6686E-04_JPRB,1.7907E-04_JPRB,1.9249E-04_JPRB,2.0708E-04_JPRB,2.2271E-04_JPRB/)
+KBO( :,43, 5) = (/&
+&1.3590E-04_JPRB,1.4594E-04_JPRB,1.5698E-04_JPRB,1.6901E-04_JPRB,1.8205E-04_JPRB/)
+KBO( :,44, 5) = (/&
+&1.1067E-04_JPRB,1.1887E-04_JPRB,1.2791E-04_JPRB,1.3780E-04_JPRB,1.4862E-04_JPRB/)
+KBO( :,45, 5) = (/&
+&9.0208E-05_JPRB,9.6857E-05_JPRB,1.0424E-04_JPRB,1.1235E-04_JPRB,1.2129E-04_JPRB/)
+KBO( :,46, 5) = (/&
+&7.3529E-05_JPRB,7.8854E-05_JPRB,8.4864E-05_JPRB,9.1484E-05_JPRB,9.8816E-05_JPRB/)
+KBO( :,47, 5) = (/&
+&6.0013E-05_JPRB,6.4106E-05_JPRB,6.8939E-05_JPRB,7.4314E-05_JPRB,8.0262E-05_JPRB/)
+KBO( :,48, 5) = (/&
+&4.9475E-05_JPRB,5.2215E-05_JPRB,5.6060E-05_JPRB,6.0396E-05_JPRB,6.5219E-05_JPRB/)
+KBO( :,49, 5) = (/&
+&4.1161E-05_JPRB,4.2705E-05_JPRB,4.5656E-05_JPRB,4.9133E-05_JPRB,5.3026E-05_JPRB/)
+KBO( :,50, 5) = (/&
+&3.4418E-05_JPRB,3.5307E-05_JPRB,3.7317E-05_JPRB,4.0090E-05_JPRB,4.3229E-05_JPRB/)
+KBO( :,51, 5) = (/&
+&2.8922E-05_JPRB,2.9472E-05_JPRB,3.0638E-05_JPRB,3.2797E-05_JPRB,3.5318E-05_JPRB/)
+KBO( :,52, 5) = (/&
+&2.4424E-05_JPRB,2.4734E-05_JPRB,2.5383E-05_JPRB,2.6898E-05_JPRB,2.8901E-05_JPRB/)
+KBO( :,53, 5) = (/&
+&2.0598E-05_JPRB,2.0869E-05_JPRB,2.1258E-05_JPRB,2.2148E-05_JPRB,2.3706E-05_JPRB/)
+KBO( :,54, 5) = (/&
+&1.7186E-05_JPRB,1.7712E-05_JPRB,1.7923E-05_JPRB,1.8433E-05_JPRB,1.9552E-05_JPRB/)
+KBO( :,55, 5) = (/&
+&1.4224E-05_JPRB,1.5080E-05_JPRB,1.5208E-05_JPRB,1.5518E-05_JPRB,1.6207E-05_JPRB/)
+KBO( :,56, 5) = (/&
+&1.1740E-05_JPRB,1.2734E-05_JPRB,1.2993E-05_JPRB,1.3155E-05_JPRB,1.3546E-05_JPRB/)
+KBO( :,57, 5) = (/&
+&9.7276E-06_JPRB,1.0657E-05_JPRB,1.1168E-05_JPRB,1.1239E-05_JPRB,1.1467E-05_JPRB/)
+KBO( :,58, 5) = (/&
+&8.1077E-06_JPRB,8.9005E-06_JPRB,9.5538E-06_JPRB,9.6723E-06_JPRB,9.7928E-06_JPRB/)
+KBO( :,59, 5) = (/&
+&6.8383E-06_JPRB,7.5009E-06_JPRB,8.1193E-06_JPRB,8.2851E-06_JPRB,8.3569E-06_JPRB/)
+KBO( :,13, 6) = (/&
+&7.7444E-02_JPRB,8.2236E-02_JPRB,8.7838E-02_JPRB,9.3753E-02_JPRB,9.9786E-02_JPRB/)
+KBO( :,14, 6) = (/&
+&6.5845E-02_JPRB,7.0239E-02_JPRB,7.5214E-02_JPRB,8.0372E-02_JPRB,8.5713E-02_JPRB/)
+KBO( :,15, 6) = (/&
+&5.5227E-02_JPRB,5.9200E-02_JPRB,6.3504E-02_JPRB,6.7983E-02_JPRB,7.2630E-02_JPRB/)
+KBO( :,16, 6) = (/&
+&4.5844E-02_JPRB,4.9349E-02_JPRB,5.3056E-02_JPRB,5.6921E-02_JPRB,6.0814E-02_JPRB/)
+KBO( :,17, 6) = (/&
+&3.7783E-02_JPRB,4.0819E-02_JPRB,4.4007E-02_JPRB,4.7268E-02_JPRB,5.0508E-02_JPRB/)
+KBO( :,18, 6) = (/&
+&3.0896E-02_JPRB,3.3488E-02_JPRB,3.6191E-02_JPRB,3.8886E-02_JPRB,4.1550E-02_JPRB/)
+KBO( :,19, 6) = (/&
+&2.5364E-02_JPRB,2.7572E-02_JPRB,2.9829E-02_JPRB,3.2058E-02_JPRB,3.4260E-02_JPRB/)
+KBO( :,20, 6) = (/&
+&2.1100E-02_JPRB,2.2979E-02_JPRB,2.4877E-02_JPRB,2.6754E-02_JPRB,2.8602E-02_JPRB/)
+KBO( :,21, 6) = (/&
+&1.7607E-02_JPRB,1.9203E-02_JPRB,2.0798E-02_JPRB,2.2390E-02_JPRB,2.3916E-02_JPRB/)
+KBO( :,22, 6) = (/&
+&1.4783E-02_JPRB,1.6131E-02_JPRB,1.7478E-02_JPRB,1.8806E-02_JPRB,2.0049E-02_JPRB/)
+KBO( :,23, 6) = (/&
+&1.2411E-02_JPRB,1.3542E-02_JPRB,1.4674E-02_JPRB,1.5762E-02_JPRB,1.6774E-02_JPRB/)
+KBO( :,24, 6) = (/&
+&1.0438E-02_JPRB,1.1384E-02_JPRB,1.2322E-02_JPRB,1.3209E-02_JPRB,1.4046E-02_JPRB/)
+KBO( :,25, 6) = (/&
+&8.7842E-03_JPRB,9.5736E-03_JPRB,1.0349E-02_JPRB,1.1074E-02_JPRB,1.1769E-02_JPRB/)
+KBO( :,26, 6) = (/&
+&7.4110E-03_JPRB,8.0713E-03_JPRB,8.7058E-03_JPRB,9.3054E-03_JPRB,9.8871E-03_JPRB/)
+KBO( :,27, 6) = (/&
+&6.2558E-03_JPRB,6.8061E-03_JPRB,7.3256E-03_JPRB,7.8243E-03_JPRB,8.3130E-03_JPRB/)
+KBO( :,28, 6) = (/&
+&5.2801E-03_JPRB,5.7341E-03_JPRB,6.1638E-03_JPRB,6.5800E-03_JPRB,6.9900E-03_JPRB/)
+KBO( :,29, 6) = (/&
+&4.4527E-03_JPRB,4.8252E-03_JPRB,5.1813E-03_JPRB,5.5298E-03_JPRB,5.8731E-03_JPRB/)
+KBO( :,30, 6) = (/&
+&3.7503E-03_JPRB,4.0566E-03_JPRB,4.3519E-03_JPRB,4.6440E-03_JPRB,4.9327E-03_JPRB/)
+KBO( :,31, 6) = (/&
+&3.1521E-03_JPRB,3.4037E-03_JPRB,3.6510E-03_JPRB,3.8964E-03_JPRB,4.1394E-03_JPRB/)
+KBO( :,32, 6) = (/&
+&2.6499E-03_JPRB,2.8587E-03_JPRB,3.0669E-03_JPRB,3.2733E-03_JPRB,3.4804E-03_JPRB/)
+KBO( :,33, 6) = (/&
+&2.2285E-03_JPRB,2.4036E-03_JPRB,2.5790E-03_JPRB,2.7532E-03_JPRB,2.9305E-03_JPRB/)
+KBO( :,34, 6) = (/&
+&1.8728E-03_JPRB,2.0206E-03_JPRB,2.1684E-03_JPRB,2.3169E-03_JPRB,2.4685E-03_JPRB/)
+KBO( :,35, 6) = (/&
+&1.5635E-03_JPRB,1.6884E-03_JPRB,1.8131E-03_JPRB,1.9393E-03_JPRB,2.0686E-03_JPRB/)
+KBO( :,36, 6) = (/&
+&1.2949E-03_JPRB,1.4000E-03_JPRB,1.5055E-03_JPRB,1.6126E-03_JPRB,1.7231E-03_JPRB/)
+KBO( :,37, 6) = (/&
+&1.0650E-03_JPRB,1.1540E-03_JPRB,1.2435E-03_JPRB,1.3349E-03_JPRB,1.4294E-03_JPRB/)
+KBO( :,38, 6) = (/&
+&8.7519E-04_JPRB,9.5059E-04_JPRB,1.0265E-03_JPRB,1.1043E-03_JPRB,1.1854E-03_JPRB/)
+KBO( :,39, 6) = (/&
+&7.1904E-04_JPRB,7.8281E-04_JPRB,8.4716E-04_JPRB,9.1345E-04_JPRB,9.8297E-04_JPRB/)
+KBO( :,40, 6) = (/&
+&5.8756E-04_JPRB,6.4152E-04_JPRB,6.9608E-04_JPRB,7.5269E-04_JPRB,8.1218E-04_JPRB/)
+KBO( :,41, 6) = (/&
+&4.7943E-04_JPRB,5.2501E-04_JPRB,5.7132E-04_JPRB,6.1957E-04_JPRB,6.7045E-04_JPRB/)
+KBO( :,42, 6) = (/&
+&3.9089E-04_JPRB,4.2934E-04_JPRB,4.6858E-04_JPRB,5.0963E-04_JPRB,5.5304E-04_JPRB/)
+KBO( :,43, 6) = (/&
+&3.1717E-04_JPRB,3.4955E-04_JPRB,3.8275E-04_JPRB,4.1759E-04_JPRB,4.5458E-04_JPRB/)
+KBO( :,44, 6) = (/&
+&2.5660E-04_JPRB,2.8381E-04_JPRB,3.1180E-04_JPRB,3.4130E-04_JPRB,3.7266E-04_JPRB/)
+KBO( :,45, 6) = (/&
+&2.0734E-04_JPRB,2.3011E-04_JPRB,2.5370E-04_JPRB,2.7860E-04_JPRB,3.0513E-04_JPRB/)
+KBO( :,46, 6) = (/&
+&1.6698E-04_JPRB,1.8599E-04_JPRB,2.0575E-04_JPRB,2.2669E-04_JPRB,2.4909E-04_JPRB/)
+KBO( :,47, 6) = (/&
+&1.3369E-04_JPRB,1.4948E-04_JPRB,1.6598E-04_JPRB,1.8350E-04_JPRB,2.0231E-04_JPRB/)
+KBO( :,48, 6) = (/&
+&1.0692E-04_JPRB,1.1997E-04_JPRB,1.3372E-04_JPRB,1.4834E-04_JPRB,1.6409E-04_JPRB/)
+KBO( :,49, 6) = (/&
+&8.5441E-05_JPRB,9.6159E-05_JPRB,1.0757E-04_JPRB,1.1975E-04_JPRB,1.3290E-04_JPRB/)
+KBO( :,50, 6) = (/&
+&6.8463E-05_JPRB,7.7220E-05_JPRB,8.6669E-05_JPRB,9.6779E-05_JPRB,1.0774E-04_JPRB/)
+KBO( :,51, 6) = (/&
+&5.4963E-05_JPRB,6.2053E-05_JPRB,6.9849E-05_JPRB,7.8222E-05_JPRB,8.7346E-05_JPRB/)
+KBO( :,52, 6) = (/&
+&4.4218E-05_JPRB,4.9878E-05_JPRB,5.6264E-05_JPRB,6.3175E-05_JPRB,7.0755E-05_JPRB/)
+KBO( :,53, 6) = (/&
+&3.5855E-05_JPRB,4.0139E-05_JPRB,4.5314E-05_JPRB,5.0998E-05_JPRB,5.7267E-05_JPRB/)
+KBO( :,54, 6) = (/&
+&2.9695E-05_JPRB,3.2492E-05_JPRB,3.6654E-05_JPRB,4.1299E-05_JPRB,4.6492E-05_JPRB/)
+KBO( :,55, 6) = (/&
+&2.5066E-05_JPRB,2.6500E-05_JPRB,2.9735E-05_JPRB,3.3517E-05_JPRB,3.7804E-05_JPRB/)
+KBO( :,56, 6) = (/&
+&2.1455E-05_JPRB,2.1969E-05_JPRB,2.4192E-05_JPRB,2.7229E-05_JPRB,3.0752E-05_JPRB/)
+KBO( :,57, 6) = (/&
+&1.8563E-05_JPRB,1.8584E-05_JPRB,1.9785E-05_JPRB,2.2171E-05_JPRB,2.5035E-05_JPRB/)
+KBO( :,58, 6) = (/&
+&1.6189E-05_JPRB,1.5969E-05_JPRB,1.6446E-05_JPRB,1.8150E-05_JPRB,2.0451E-05_JPRB/)
+KBO( :,59, 6) = (/&
+&1.3883E-05_JPRB,1.3701E-05_JPRB,1.3912E-05_JPRB,1.5148E-05_JPRB,1.7050E-05_JPRB/)
+KBO( :,13, 7) = (/&
+&1.5712E-01_JPRB,1.7077E-01_JPRB,1.8355E-01_JPRB,1.9563E-01_JPRB,2.0695E-01_JPRB/)
+KBO( :,14, 7) = (/&
+&1.3457E-01_JPRB,1.4585E-01_JPRB,1.5670E-01_JPRB,1.6701E-01_JPRB,1.7684E-01_JPRB/)
+KBO( :,15, 7) = (/&
+&1.1408E-01_JPRB,1.2355E-01_JPRB,1.3267E-01_JPRB,1.4142E-01_JPRB,1.5007E-01_JPRB/)
+KBO( :,16, 7) = (/&
+&9.6177E-02_JPRB,1.0414E-01_JPRB,1.1181E-01_JPRB,1.1927E-01_JPRB,1.2686E-01_JPRB/)
+KBO( :,17, 7) = (/&
+&8.0695E-02_JPRB,8.7374E-02_JPRB,9.3807E-02_JPRB,1.0015E-01_JPRB,1.0671E-01_JPRB/)
+KBO( :,18, 7) = (/&
+&6.7227E-02_JPRB,7.2774E-02_JPRB,7.8173E-02_JPRB,8.3614E-02_JPRB,8.9191E-02_JPRB/)
+KBO( :,19, 7) = (/&
+&5.5951E-02_JPRB,6.0594E-02_JPRB,6.5183E-02_JPRB,6.9851E-02_JPRB,7.4565E-02_JPRB/)
+KBO( :,20, 7) = (/&
+&4.7003E-02_JPRB,5.0964E-02_JPRB,5.4960E-02_JPRB,5.9008E-02_JPRB,6.3089E-02_JPRB/)
+KBO( :,21, 7) = (/&
+&3.9571E-02_JPRB,4.2979E-02_JPRB,4.6449E-02_JPRB,4.9946E-02_JPRB,5.3508E-02_JPRB/)
+KBO( :,22, 7) = (/&
+&3.3519E-02_JPRB,3.6474E-02_JPRB,3.9467E-02_JPRB,4.2489E-02_JPRB,4.5580E-02_JPRB/)
+KBO( :,23, 7) = (/&
+&2.8427E-02_JPRB,3.0972E-02_JPRB,3.3547E-02_JPRB,3.6170E-02_JPRB,3.8855E-02_JPRB/)
+KBO( :,24, 7) = (/&
+&2.4149E-02_JPRB,2.6342E-02_JPRB,2.8570E-02_JPRB,3.0859E-02_JPRB,3.3200E-02_JPRB/)
+KBO( :,25, 7) = (/&
+&2.0558E-02_JPRB,2.2456E-02_JPRB,2.4392E-02_JPRB,2.6381E-02_JPRB,2.8422E-02_JPRB/)
+KBO( :,26, 7) = (/&
+&1.7573E-02_JPRB,1.9221E-02_JPRB,2.0907E-02_JPRB,2.2636E-02_JPRB,2.4397E-02_JPRB/)
+KBO( :,27, 7) = (/&
+&1.5044E-02_JPRB,1.6466E-02_JPRB,1.7926E-02_JPRB,1.9419E-02_JPRB,2.0934E-02_JPRB/)
+KBO( :,28, 7) = (/&
+&1.2886E-02_JPRB,1.4109E-02_JPRB,1.5370E-02_JPRB,1.6664E-02_JPRB,1.7968E-02_JPRB/)
+KBO( :,29, 7) = (/&
+&1.1030E-02_JPRB,1.2088E-02_JPRB,1.3180E-02_JPRB,1.4300E-02_JPRB,1.5425E-02_JPRB/)
+KBO( :,30, 7) = (/&
+&9.4386E-03_JPRB,1.0357E-02_JPRB,1.1303E-02_JPRB,1.2268E-02_JPRB,1.3245E-02_JPRB/)
+KBO( :,31, 7) = (/&
+&8.0733E-03_JPRB,8.8677E-03_JPRB,9.6883E-03_JPRB,1.0518E-02_JPRB,1.1366E-02_JPRB/)
+KBO( :,32, 7) = (/&
+&6.9177E-03_JPRB,7.6069E-03_JPRB,8.3126E-03_JPRB,9.0312E-03_JPRB,9.7643E-03_JPRB/)
+KBO( :,33, 7) = (/&
+&5.9333E-03_JPRB,6.5312E-03_JPRB,7.1390E-03_JPRB,7.7622E-03_JPRB,8.3990E-03_JPRB/)
+KBO( :,34, 7) = (/&
+&5.0834E-03_JPRB,5.6003E-03_JPRB,6.1274E-03_JPRB,6.6689E-03_JPRB,7.2266E-03_JPRB/)
+KBO( :,35, 7) = (/&
+&4.3170E-03_JPRB,4.7611E-03_JPRB,5.2173E-03_JPRB,5.6888E-03_JPRB,6.1769E-03_JPRB/)
+KBO( :,36, 7) = (/&
+&3.6248E-03_JPRB,4.0060E-03_JPRB,4.3997E-03_JPRB,4.8092E-03_JPRB,5.2371E-03_JPRB/)
+KBO( :,37, 7) = (/&
+&3.0276E-03_JPRB,3.3587E-03_JPRB,3.7027E-03_JPRB,4.0632E-03_JPRB,4.4411E-03_JPRB/)
+KBO( :,38, 7) = (/&
+&2.5258E-03_JPRB,2.8131E-03_JPRB,3.1144E-03_JPRB,3.4319E-03_JPRB,3.7659E-03_JPRB/)
+KBO( :,39, 7) = (/&
+&2.1056E-03_JPRB,2.3549E-03_JPRB,2.6188E-03_JPRB,2.8979E-03_JPRB,3.1925E-03_JPRB/)
+KBO( :,40, 7) = (/&
+&1.7476E-03_JPRB,1.9653E-03_JPRB,2.1979E-03_JPRB,2.4447E-03_JPRB,2.7070E-03_JPRB/)
+KBO( :,41, 7) = (/&
+&1.4476E-03_JPRB,1.6380E-03_JPRB,1.8422E-03_JPRB,2.0603E-03_JPRB,2.2939E-03_JPRB/)
+KBO( :,42, 7) = (/&
+&1.1969E-03_JPRB,1.3628E-03_JPRB,1.5418E-03_JPRB,1.7341E-03_JPRB,1.9416E-03_JPRB/)
+KBO( :,43, 7) = (/&
+&9.8263E-04_JPRB,1.1265E-03_JPRB,1.2827E-03_JPRB,1.4514E-03_JPRB,1.6351E-03_JPRB/)
+KBO( :,44, 7) = (/&
+&8.0249E-04_JPRB,9.2668E-04_JPRB,1.0625E-03_JPRB,1.2096E-03_JPRB,1.3707E-03_JPRB/)
+KBO( :,45, 7) = (/&
+&6.5298E-04_JPRB,7.5994E-04_JPRB,8.7728E-04_JPRB,1.0055E-03_JPRB,1.1461E-03_JPRB/)
+KBO( :,46, 7) = (/&
+&5.2766E-04_JPRB,6.1908E-04_JPRB,7.1997E-04_JPRB,8.3119E-04_JPRB,9.5370E-04_JPRB/)
+KBO( :,47, 7) = (/&
+&4.2190E-04_JPRB,4.9924E-04_JPRB,5.8514E-04_JPRB,6.8083E-04_JPRB,7.8680E-04_JPRB/)
+KBO( :,48, 7) = (/&
+&3.3585E-04_JPRB,4.0081E-04_JPRB,4.7372E-04_JPRB,5.5558E-04_JPRB,6.4689E-04_JPRB/)
+KBO( :,49, 7) = (/&
+&2.6612E-04_JPRB,3.2038E-04_JPRB,3.8190E-04_JPRB,4.5171E-04_JPRB,5.3004E-04_JPRB/)
+KBO( :,50, 7) = (/&
+&2.1101E-04_JPRB,2.5616E-04_JPRB,3.0801E-04_JPRB,3.6730E-04_JPRB,4.3443E-04_JPRB/)
+KBO( :,51, 7) = (/&
+&1.6702E-04_JPRB,2.0440E-04_JPRB,2.4803E-04_JPRB,2.9825E-04_JPRB,3.5552E-04_JPRB/)
+KBO( :,52, 7) = (/&
+&1.3173E-04_JPRB,1.6253E-04_JPRB,1.9899E-04_JPRB,2.4139E-04_JPRB,2.9010E-04_JPRB/)
+KBO( :,53, 7) = (/&
+&1.0353E-04_JPRB,1.2873E-04_JPRB,1.5900E-04_JPRB,1.9462E-04_JPRB,2.3588E-04_JPRB/)
+KBO( :,54, 7) = (/&
+&8.1672E-05_JPRB,1.0229E-04_JPRB,1.2738E-04_JPRB,1.5734E-04_JPRB,1.9225E-04_JPRB/)
+KBO( :,55, 7) = (/&
+&6.4500E-05_JPRB,8.1316E-05_JPRB,1.0205E-04_JPRB,1.2719E-04_JPRB,1.5669E-04_JPRB/)
+KBO( :,56, 7) = (/&
+&5.0893E-05_JPRB,6.4506E-05_JPRB,8.1571E-05_JPRB,1.0252E-04_JPRB,1.2738E-04_JPRB/)
+KBO( :,57, 7) = (/&
+&4.0182E-05_JPRB,5.1082E-05_JPRB,6.5020E-05_JPRB,8.2415E-05_JPRB,1.0329E-04_JPRB/)
+KBO( :,58, 7) = (/&
+&3.1954E-05_JPRB,4.0565E-05_JPRB,5.1914E-05_JPRB,6.6302E-05_JPRB,8.3823E-05_JPRB/)
+KBO( :,59, 7) = (/&
+&2.6572E-05_JPRB,3.3591E-05_JPRB,4.3211E-05_JPRB,5.5528E-05_JPRB,7.0676E-05_JPRB/)
+KBO( :,13, 8) = (/&
+&4.4787E-01_JPRB,4.9751E-01_JPRB,5.4470E-01_JPRB,5.8862E-01_JPRB,6.2908E-01_JPRB/)
+KBO( :,14, 8) = (/&
+&3.8445E-01_JPRB,4.2715E-01_JPRB,4.6742E-01_JPRB,5.0464E-01_JPRB,5.3938E-01_JPRB/)
+KBO( :,15, 8) = (/&
+&3.2779E-01_JPRB,3.6397E-01_JPRB,3.9785E-01_JPRB,4.2935E-01_JPRB,4.5890E-01_JPRB/)
+KBO( :,16, 8) = (/&
+&2.7790E-01_JPRB,3.0790E-01_JPRB,3.3600E-01_JPRB,3.6256E-01_JPRB,3.8746E-01_JPRB/)
+KBO( :,17, 8) = (/&
+&2.3458E-01_JPRB,2.5937E-01_JPRB,2.8268E-01_JPRB,3.0493E-01_JPRB,3.2595E-01_JPRB/)
+KBO( :,18, 8) = (/&
+&1.9764E-01_JPRB,2.1801E-01_JPRB,2.3742E-01_JPRB,2.5590E-01_JPRB,2.7378E-01_JPRB/)
+KBO( :,19, 8) = (/&
+&1.6729E-01_JPRB,1.8411E-01_JPRB,2.0019E-01_JPRB,2.1556E-01_JPRB,2.3089E-01_JPRB/)
+KBO( :,20, 8) = (/&
+&1.4346E-01_JPRB,1.5764E-01_JPRB,1.7106E-01_JPRB,1.8428E-01_JPRB,1.9747E-01_JPRB/)
+KBO( :,21, 8) = (/&
+&1.2344E-01_JPRB,1.3538E-01_JPRB,1.4684E-01_JPRB,1.5826E-01_JPRB,1.6972E-01_JPRB/)
+KBO( :,22, 8) = (/&
+&1.0677E-01_JPRB,1.1691E-01_JPRB,1.2686E-01_JPRB,1.3681E-01_JPRB,1.4681E-01_JPRB/)
+KBO( :,23, 8) = (/&
+&9.2153E-02_JPRB,1.0099E-01_JPRB,1.0971E-01_JPRB,1.1847E-01_JPRB,1.2717E-01_JPRB/)
+KBO( :,24, 8) = (/&
+&7.9606E-02_JPRB,8.7367E-02_JPRB,9.5083E-02_JPRB,1.0275E-01_JPRB,1.1037E-01_JPRB/)
+KBO( :,25, 8) = (/&
+&6.8847E-02_JPRB,7.5684E-02_JPRB,8.2485E-02_JPRB,8.9220E-02_JPRB,9.5941E-02_JPRB/)
+KBO( :,26, 8) = (/&
+&5.9776E-02_JPRB,6.5803E-02_JPRB,7.1776E-02_JPRB,7.7759E-02_JPRB,8.3752E-02_JPRB/)
+KBO( :,27, 8) = (/&
+&5.1998E-02_JPRB,5.7305E-02_JPRB,6.2592E-02_JPRB,6.7931E-02_JPRB,7.3284E-02_JPRB/)
+KBO( :,28, 8) = (/&
+&4.5335E-02_JPRB,5.0017E-02_JPRB,5.4715E-02_JPRB,5.9468E-02_JPRB,6.4255E-02_JPRB/)
+KBO( :,29, 8) = (/&
+&3.9576E-02_JPRB,4.3721E-02_JPRB,4.7903E-02_JPRB,5.2114E-02_JPRB,5.6419E-02_JPRB/)
+KBO( :,30, 8) = (/&
+&3.4575E-02_JPRB,3.8250E-02_JPRB,4.1958E-02_JPRB,4.5723E-02_JPRB,4.9573E-02_JPRB/)
+KBO( :,31, 8) = (/&
+&3.0216E-02_JPRB,3.3461E-02_JPRB,3.6737E-02_JPRB,4.0102E-02_JPRB,4.3522E-02_JPRB/)
+KBO( :,32, 8) = (/&
+&2.6463E-02_JPRB,2.9325E-02_JPRB,3.2235E-02_JPRB,3.5225E-02_JPRB,3.8255E-02_JPRB/)
+KBO( :,33, 8) = (/&
+&2.3214E-02_JPRB,2.5730E-02_JPRB,2.8315E-02_JPRB,3.0956E-02_JPRB,3.3645E-02_JPRB/)
+KBO( :,34, 8) = (/&
+&2.0354E-02_JPRB,2.2577E-02_JPRB,2.4858E-02_JPRB,2.7195E-02_JPRB,2.9569E-02_JPRB/)
+KBO( :,35, 8) = (/&
+&1.7652E-02_JPRB,1.9611E-02_JPRB,2.1620E-02_JPRB,2.3679E-02_JPRB,2.5793E-02_JPRB/)
+KBO( :,36, 8) = (/&
+&1.5121E-02_JPRB,1.6837E-02_JPRB,1.8603E-02_JPRB,2.0413E-02_JPRB,2.2284E-02_JPRB/)
+KBO( :,37, 8) = (/&
+&1.2910E-02_JPRB,1.4438E-02_JPRB,1.6023E-02_JPRB,1.7651E-02_JPRB,1.9335E-02_JPRB/)
+KBO( :,38, 8) = (/&
+&1.1016E-02_JPRB,1.2377E-02_JPRB,1.3800E-02_JPRB,1.5264E-02_JPRB,1.6785E-02_JPRB/)
+KBO( :,39, 8) = (/&
+&9.3971E-03_JPRB,1.0610E-02_JPRB,1.1882E-02_JPRB,1.3195E-02_JPRB,1.4575E-02_JPRB/)
+KBO( :,40, 8) = (/&
+&8.0032E-03_JPRB,9.0996E-03_JPRB,1.0249E-02_JPRB,1.1449E-02_JPRB,1.2715E-02_JPRB/)
+KBO( :,41, 8) = (/&
+&6.8143E-03_JPRB,7.8019E-03_JPRB,8.8465E-03_JPRB,9.9478E-03_JPRB,1.1108E-02_JPRB/)
+KBO( :,42, 8) = (/&
+&5.7987E-03_JPRB,6.6880E-03_JPRB,7.6360E-03_JPRB,8.6473E-03_JPRB,9.7138E-03_JPRB/)
+KBO( :,43, 8) = (/&
+&4.9102E-03_JPRB,5.7128E-03_JPRB,6.5767E-03_JPRB,7.5054E-03_JPRB,8.4907E-03_JPRB/)
+KBO( :,44, 8) = (/&
+&4.1435E-03_JPRB,4.8687E-03_JPRB,5.6557E-03_JPRB,6.5117E-03_JPRB,7.4261E-03_JPRB/)
+KBO( :,45, 8) = (/&
+&3.4889E-03_JPRB,4.1453E-03_JPRB,4.8619E-03_JPRB,5.6491E-03_JPRB,6.4985E-03_JPRB/)
+KBO( :,46, 8) = (/&
+&2.9183E-03_JPRB,3.5111E-03_JPRB,4.1627E-03_JPRB,4.8843E-03_JPRB,5.6717E-03_JPRB/)
+KBO( :,47, 8) = (/&
+&2.4091E-03_JPRB,2.9412E-03_JPRB,3.5329E-03_JPRB,4.1906E-03_JPRB,4.9179E-03_JPRB/)
+KBO( :,48, 8) = (/&
+&1.9761E-03_JPRB,2.4516E-03_JPRB,2.9867E-03_JPRB,3.5873E-03_JPRB,4.2592E-03_JPRB/)
+KBO( :,49, 8) = (/&
+&1.6100E-03_JPRB,2.0311E-03_JPRB,2.5133E-03_JPRB,3.0616E-03_JPRB,3.6821E-03_JPRB/)
+KBO( :,50, 8) = (/&
+&1.3098E-03_JPRB,1.6814E-03_JPRB,2.1143E-03_JPRB,2.6145E-03_JPRB,3.1877E-03_JPRB/)
+KBO( :,51, 8) = (/&
+&1.0616E-03_JPRB,1.3873E-03_JPRB,1.7732E-03_JPRB,2.2275E-03_JPRB,2.7552E-03_JPRB/)
+KBO( :,52, 8) = (/&
+&8.5431E-04_JPRB,1.1375E-03_JPRB,1.4802E-03_JPRB,1.8899E-03_JPRB,2.3744E-03_JPRB/)
+KBO( :,53, 8) = (/&
+&6.8250E-04_JPRB,9.2625E-04_JPRB,1.2281E-03_JPRB,1.5967E-03_JPRB,2.0393E-03_JPRB/)
+KBO( :,54, 8) = (/&
+&5.4646E-04_JPRB,7.5582E-04_JPRB,1.0218E-03_JPRB,1.3535E-03_JPRB,1.7581E-03_JPRB/)
+KBO( :,55, 8) = (/&
+&4.3631E-04_JPRB,6.1609E-04_JPRB,8.4963E-04_JPRB,1.1470E-03_JPRB,1.5165E-03_JPRB/)
+KBO( :,56, 8) = (/&
+&3.4597E-04_JPRB,4.9939E-04_JPRB,7.0303E-04_JPRB,9.6849E-04_JPRB,1.3045E-03_JPRB/)
+KBO( :,57, 8) = (/&
+&2.7231E-04_JPRB,4.0225E-04_JPRB,5.7843E-04_JPRB,8.1401E-04_JPRB,1.1188E-03_JPRB/)
+KBO( :,58, 8) = (/&
+&2.1404E-04_JPRB,3.2388E-04_JPRB,4.7635E-04_JPRB,6.8490E-04_JPRB,9.6152E-04_JPRB/)
+KBO( :,59, 8) = (/&
+&1.8077E-04_JPRB,2.7867E-04_JPRB,4.1775E-04_JPRB,6.1150E-04_JPRB,8.7266E-04_JPRB/)
+KBO( :,13, 9) = (/&
+&2.7435E+00_JPRB,3.0906E+00_JPRB,3.4108E+00_JPRB,3.6982E+00_JPRB,3.9627E+00_JPRB/)
+KBO( :,14, 9) = (/&
+&2.3802E+00_JPRB,2.6705E+00_JPRB,2.9382E+00_JPRB,3.1823E+00_JPRB,3.4042E+00_JPRB/)
+KBO( :,15, 9) = (/&
+&2.0515E+00_JPRB,2.2949E+00_JPRB,2.5214E+00_JPRB,2.7256E+00_JPRB,2.9082E+00_JPRB/)
+KBO( :,16, 9) = (/&
+&1.7616E+00_JPRB,1.9678E+00_JPRB,2.1547E+00_JPRB,2.3237E+00_JPRB,2.4783E+00_JPRB/)
+KBO( :,17, 9) = (/&
+&1.5089E+00_JPRB,1.6786E+00_JPRB,1.8334E+00_JPRB,1.9756E+00_JPRB,2.1052E+00_JPRB/)
+KBO( :,18, 9) = (/&
+&1.2832E+00_JPRB,1.4238E+00_JPRB,1.5536E+00_JPRB,1.6726E+00_JPRB,1.7800E+00_JPRB/)
+KBO( :,19, 9) = (/&
+&1.0879E+00_JPRB,1.2054E+00_JPRB,1.3138E+00_JPRB,1.4118E+00_JPRB,1.5002E+00_JPRB/)
+KBO( :,20, 9) = (/&
+&9.2520E-01_JPRB,1.0230E+00_JPRB,1.1126E+00_JPRB,1.1933E+00_JPRB,1.2674E+00_JPRB/)
+KBO( :,21, 9) = (/&
+&7.8791E-01_JPRB,8.6885E-01_JPRB,9.4260E-01_JPRB,1.0104E+00_JPRB,1.0727E+00_JPRB/)
+KBO( :,22, 9) = (/&
+&6.7633E-01_JPRB,7.4273E-01_JPRB,8.0382E-01_JPRB,8.6005E-01_JPRB,9.1295E-01_JPRB/)
+KBO( :,23, 9) = (/&
+&5.8122E-01_JPRB,6.3601E-01_JPRB,6.8664E-01_JPRB,7.3416E-01_JPRB,7.7931E-01_JPRB/)
+KBO( :,24, 9) = (/&
+&5.0026E-01_JPRB,5.4576E-01_JPRB,5.8810E-01_JPRB,6.2834E-01_JPRB,6.6798E-01_JPRB/)
+KBO( :,25, 9) = (/&
+&4.3213E-01_JPRB,4.6996E-01_JPRB,5.0587E-01_JPRB,5.4068E-01_JPRB,5.7579E-01_JPRB/)
+KBO( :,26, 9) = (/&
+&3.7530E-01_JPRB,4.0715E-01_JPRB,4.3791E-01_JPRB,4.6854E-01_JPRB,5.0040E-01_JPRB/)
+KBO( :,27, 9) = (/&
+&3.2720E-01_JPRB,3.5436E-01_JPRB,3.8108E-01_JPRB,4.0857E-01_JPRB,4.3759E-01_JPRB/)
+KBO( :,28, 9) = (/&
+&2.8625E-01_JPRB,3.0981E-01_JPRB,3.3353E-01_JPRB,3.5864E-01_JPRB,3.8484E-01_JPRB/)
+KBO( :,29, 9) = (/&
+&2.5143E-01_JPRB,2.7201E-01_JPRB,2.9352E-01_JPRB,3.1618E-01_JPRB,3.4020E-01_JPRB/)
+KBO( :,30, 9) = (/&
+&2.2172E-01_JPRB,2.4013E-01_JPRB,2.5952E-01_JPRB,2.8016E-01_JPRB,3.0172E-01_JPRB/)
+KBO( :,31, 9) = (/&
+&1.9610E-01_JPRB,2.1281E-01_JPRB,2.3037E-01_JPRB,2.4895E-01_JPRB,2.6850E-01_JPRB/)
+KBO( :,32, 9) = (/&
+&1.7415E-01_JPRB,1.8930E-01_JPRB,2.0532E-01_JPRB,2.2216E-01_JPRB,2.3994E-01_JPRB/)
+KBO( :,33, 9) = (/&
+&1.5516E-01_JPRB,1.6907E-01_JPRB,1.8355E-01_JPRB,1.9888E-01_JPRB,2.1515E-01_JPRB/)
+KBO( :,34, 9) = (/&
+&1.3857E-01_JPRB,1.5131E-01_JPRB,1.6462E-01_JPRB,1.7854E-01_JPRB,1.9347E-01_JPRB/)
+KBO( :,35, 9) = (/&
+&1.2324E-01_JPRB,1.3480E-01_JPRB,1.4696E-01_JPRB,1.5978E-01_JPRB,1.7337E-01_JPRB/)
+KBO( :,36, 9) = (/&
+&1.0878E-01_JPRB,1.1937E-01_JPRB,1.3043E-01_JPRB,1.4217E-01_JPRB,1.5452E-01_JPRB/)
+KBO( :,37, 9) = (/&
+&9.5776E-02_JPRB,1.0563E-01_JPRB,1.1583E-01_JPRB,1.2665E-01_JPRB,1.3805E-01_JPRB/)
+KBO( :,38, 9) = (/&
+&8.4466E-02_JPRB,9.3612E-02_JPRB,1.0315E-01_JPRB,1.1317E-01_JPRB,1.2370E-01_JPRB/)
+KBO( :,39, 9) = (/&
+&7.4614E-02_JPRB,8.3124E-02_JPRB,9.2043E-02_JPRB,1.0145E-01_JPRB,1.1118E-01_JPRB/)
+KBO( :,40, 9) = (/&
+&6.5857E-02_JPRB,7.3870E-02_JPRB,8.2261E-02_JPRB,9.1193E-02_JPRB,1.0040E-01_JPRB/)
+KBO( :,41, 9) = (/&
+&5.8183E-02_JPRB,6.5774E-02_JPRB,7.3720E-02_JPRB,8.2197E-02_JPRB,9.1007E-02_JPRB/)
+KBO( :,42, 9) = (/&
+&5.1461E-02_JPRB,5.8649E-02_JPRB,6.6221E-02_JPRB,7.4278E-02_JPRB,8.2751E-02_JPRB/)
+KBO( :,43, 9) = (/&
+&4.5392E-02_JPRB,5.2200E-02_JPRB,5.9437E-02_JPRB,6.7121E-02_JPRB,7.5296E-02_JPRB/)
+KBO( :,44, 9) = (/&
+&4.0017E-02_JPRB,4.6452E-02_JPRB,5.3355E-02_JPRB,6.0754E-02_JPRB,6.8643E-02_JPRB/)
+KBO( :,45, 9) = (/&
+&3.5304E-02_JPRB,4.1396E-02_JPRB,4.7987E-02_JPRB,5.5092E-02_JPRB,6.2720E-02_JPRB/)
+KBO( :,46, 9) = (/&
+&3.1075E-02_JPRB,3.6822E-02_JPRB,4.3097E-02_JPRB,4.9898E-02_JPRB,5.7283E-02_JPRB/)
+KBO( :,47, 9) = (/&
+&2.7177E-02_JPRB,3.2558E-02_JPRB,3.8513E-02_JPRB,4.5021E-02_JPRB,5.2127E-02_JPRB/)
+KBO( :,48, 9) = (/&
+&2.3744E-02_JPRB,2.8781E-02_JPRB,3.4434E-02_JPRB,4.0680E-02_JPRB,4.7484E-02_JPRB/)
+KBO( :,49, 9) = (/&
+&2.0728E-02_JPRB,2.5421E-02_JPRB,3.0794E-02_JPRB,3.6770E-02_JPRB,4.3357E-02_JPRB/)
+KBO( :,50, 9) = (/&
+&1.8168E-02_JPRB,2.2568E-02_JPRB,2.7658E-02_JPRB,3.3413E-02_JPRB,3.9781E-02_JPRB/)
+KBO( :,51, 9) = (/&
+&1.5961E-02_JPRB,2.0091E-02_JPRB,2.4921E-02_JPRB,3.0460E-02_JPRB,3.6640E-02_JPRB/)
+KBO( :,52, 9) = (/&
+&1.4012E-02_JPRB,1.7898E-02_JPRB,2.2474E-02_JPRB,2.7799E-02_JPRB,3.3804E-02_JPRB/)
+KBO( :,53, 9) = (/&
+&1.2274E-02_JPRB,1.5954E-02_JPRB,2.0286E-02_JPRB,2.5396E-02_JPRB,3.1223E-02_JPRB/)
+KBO( :,54, 9) = (/&
+&1.0807E-02_JPRB,1.4326E-02_JPRB,1.8466E-02_JPRB,2.3375E-02_JPRB,2.9075E-02_JPRB/)
+KBO( :,55, 9) = (/&
+&9.5319E-03_JPRB,1.2915E-02_JPRB,1.6895E-02_JPRB,2.1632E-02_JPRB,2.7210E-02_JPRB/)
+KBO( :,56, 9) = (/&
+&8.3912E-03_JPRB,1.1632E-02_JPRB,1.5477E-02_JPRB,2.0079E-02_JPRB,2.5547E-02_JPRB/)
+KBO( :,57, 9) = (/&
+&7.3723E-03_JPRB,1.0474E-02_JPRB,1.4207E-02_JPRB,1.8687E-02_JPRB,2.4063E-02_JPRB/)
+KBO( :,58, 9) = (/&
+&6.4991E-03_JPRB,9.4761E-03_JPRB,1.3112E-02_JPRB,1.7511E-02_JPRB,2.2815E-02_JPRB/)
+KBO( :,59, 9) = (/&
+&6.1473E-03_JPRB,9.1090E-03_JPRB,1.2767E-02_JPRB,1.7218E-02_JPRB,2.2606E-02_JPRB/)
+KBO( :,13,10) = (/&
+&1.1116E+01_JPRB,1.2524E+01_JPRB,1.3896E+01_JPRB,1.5268E+01_JPRB,1.6536E+01_JPRB/)
+KBO( :,14,10) = (/&
+&9.9682E+00_JPRB,1.1262E+01_JPRB,1.2560E+01_JPRB,1.3723E+01_JPRB,1.4792E+01_JPRB/)
+KBO( :,15,10) = (/&
+&8.8893E+00_JPRB,1.0059E+01_JPRB,1.1121E+01_JPRB,1.2116E+01_JPRB,1.3075E+01_JPRB/)
+KBO( :,16,10) = (/&
+&7.8467E+00_JPRB,8.8032E+00_JPRB,9.7316E+00_JPRB,1.0625E+01_JPRB,1.1425E+01_JPRB/)
+KBO( :,17,10) = (/&
+&6.8078E+00_JPRB,7.6463E+00_JPRB,8.4707E+00_JPRB,9.1981E+00_JPRB,9.8604E+00_JPRB/)
+KBO( :,18,10) = (/&
+&5.9071E+00_JPRB,6.6462E+00_JPRB,7.3087E+00_JPRB,7.9162E+00_JPRB,8.4956E+00_JPRB/)
+KBO( :,19,10) = (/&
+&5.1307E+00_JPRB,5.7208E+00_JPRB,6.2833E+00_JPRB,6.8158E+00_JPRB,7.3233E+00_JPRB/)
+KBO( :,20,10) = (/&
+&4.4064E+00_JPRB,4.9086E+00_JPRB,5.4011E+00_JPRB,5.8668E+00_JPRB,6.2919E+00_JPRB/)
+KBO( :,21,10) = (/&
+&3.7746E+00_JPRB,4.2108E+00_JPRB,4.6377E+00_JPRB,5.0222E+00_JPRB,5.3698E+00_JPRB/)
+KBO( :,22,10) = (/&
+&3.2585E+00_JPRB,3.6369E+00_JPRB,3.9831E+00_JPRB,4.2976E+00_JPRB,4.5905E+00_JPRB/)
+KBO( :,23,10) = (/&
+&2.8213E+00_JPRB,3.1329E+00_JPRB,3.4129E+00_JPRB,3.6764E+00_JPRB,3.9234E+00_JPRB/)
+KBO( :,24,10) = (/&
+&2.4431E+00_JPRB,2.6958E+00_JPRB,2.9321E+00_JPRB,3.1552E+00_JPRB,3.3597E+00_JPRB/)
+KBO( :,25,10) = (/&
+&2.1126E+00_JPRB,2.3241E+00_JPRB,2.5221E+00_JPRB,2.7073E+00_JPRB,2.8751E+00_JPRB/)
+KBO( :,26,10) = (/&
+&1.8249E+00_JPRB,2.0037E+00_JPRB,2.1706E+00_JPRB,2.3266E+00_JPRB,2.4674E+00_JPRB/)
+KBO( :,27,10) = (/&
+&1.5746E+00_JPRB,1.7247E+00_JPRB,1.8648E+00_JPRB,1.9941E+00_JPRB,2.1217E+00_JPRB/)
+KBO( :,28,10) = (/&
+&1.3617E+00_JPRB,1.4866E+00_JPRB,1.6031E+00_JPRB,1.7154E+00_JPRB,1.8338E+00_JPRB/)
+KBO( :,29,10) = (/&
+&1.1807E+00_JPRB,1.2866E+00_JPRB,1.3847E+00_JPRB,1.4869E+00_JPRB,1.6014E+00_JPRB/)
+KBO( :,30,10) = (/&
+&1.0269E+00_JPRB,1.1156E+00_JPRB,1.2031E+00_JPRB,1.3007E+00_JPRB,1.4104E+00_JPRB/)
+KBO( :,31,10) = (/&
+&8.9671E-01_JPRB,9.7234E-01_JPRB,1.0534E+00_JPRB,1.1474E+00_JPRB,1.2536E+00_JPRB/)
+KBO( :,32,10) = (/&
+&7.8677E-01_JPRB,8.5519E-01_JPRB,9.3281E-01_JPRB,1.0217E+00_JPRB,1.1241E+00_JPRB/)
+KBO( :,33,10) = (/&
+&6.9580E-01_JPRB,7.5947E-01_JPRB,8.3338E-01_JPRB,9.2124E-01_JPRB,1.0172E+00_JPRB/)
+KBO( :,34,10) = (/&
+&6.2020E-01_JPRB,6.7933E-01_JPRB,7.4919E-01_JPRB,8.3240E-01_JPRB,9.2556E-01_JPRB/)
+KBO( :,35,10) = (/&
+&5.5258E-01_JPRB,6.0746E-01_JPRB,6.7338E-01_JPRB,7.4935E-01_JPRB,8.3904E-01_JPRB/)
+KBO( :,36,10) = (/&
+&4.9155E-01_JPRB,5.4163E-01_JPRB,6.0187E-01_JPRB,6.7186E-01_JPRB,7.5578E-01_JPRB/)
+KBO( :,37,10) = (/&
+&4.3530E-01_JPRB,4.8026E-01_JPRB,5.3386E-01_JPRB,5.9737E-01_JPRB,6.7325E-01_JPRB/)
+KBO( :,38,10) = (/&
+&3.8752E-01_JPRB,4.2820E-01_JPRB,4.7540E-01_JPRB,5.3327E-01_JPRB,6.0315E-01_JPRB/)
+KBO( :,39,10) = (/&
+&3.4711E-01_JPRB,3.8416E-01_JPRB,4.2683E-01_JPRB,4.7819E-01_JPRB,5.4308E-01_JPRB/)
+KBO( :,40,10) = (/&
+&3.1156E-01_JPRB,3.4469E-01_JPRB,3.8303E-01_JPRB,4.2846E-01_JPRB,4.8625E-01_JPRB/)
+KBO( :,41,10) = (/&
+&2.8072E-01_JPRB,3.1142E-01_JPRB,3.4605E-01_JPRB,3.8706E-01_JPRB,4.3793E-01_JPRB/)
+KBO( :,42,10) = (/&
+&2.5421E-01_JPRB,2.8301E-01_JPRB,3.1501E-01_JPRB,3.5201E-01_JPRB,3.9774E-01_JPRB/)
+KBO( :,43,10) = (/&
+&2.3024E-01_JPRB,2.5750E-01_JPRB,2.8768E-01_JPRB,3.2168E-01_JPRB,3.6246E-01_JPRB/)
+KBO( :,44,10) = (/&
+&2.0882E-01_JPRB,2.3454E-01_JPRB,2.6350E-01_JPRB,2.9554E-01_JPRB,3.3285E-01_JPRB/)
+KBO( :,45,10) = (/&
+&1.8997E-01_JPRB,2.1445E-01_JPRB,2.4251E-01_JPRB,2.7313E-01_JPRB,3.0812E-01_JPRB/)
+KBO( :,46,10) = (/&
+&1.7240E-01_JPRB,1.9626E-01_JPRB,2.2342E-01_JPRB,2.5309E-01_JPRB,2.8552E-01_JPRB/)
+KBO( :,47,10) = (/&
+&1.5588E-01_JPRB,1.7894E-01_JPRB,2.0504E-01_JPRB,2.3411E-01_JPRB,2.6565E-01_JPRB/)
+KBO( :,48,10) = (/&
+&1.4123E-01_JPRB,1.6344E-01_JPRB,1.8846E-01_JPRB,2.1670E-01_JPRB,2.4797E-01_JPRB/)
+KBO( :,49,10) = (/&
+&1.2790E-01_JPRB,1.4966E-01_JPRB,1.7367E-01_JPRB,2.0107E-01_JPRB,2.3131E-01_JPRB/)
+KBO( :,50,10) = (/&
+&1.1631E-01_JPRB,1.3796E-01_JPRB,1.6097E-01_JPRB,1.8742E-01_JPRB,2.1727E-01_JPRB/)
+KBO( :,51,10) = (/&
+&1.0575E-01_JPRB,1.2733E-01_JPRB,1.4991E-01_JPRB,1.7544E-01_JPRB,2.0476E-01_JPRB/)
+KBO( :,52,10) = (/&
+&9.6036E-02_JPRB,1.1774E-01_JPRB,1.4002E-01_JPRB,1.6481E-01_JPRB,1.9345E-01_JPRB/)
+KBO( :,53,10) = (/&
+&8.7304E-02_JPRB,1.0881E-01_JPRB,1.3107E-01_JPRB,1.5527E-01_JPRB,1.8336E-01_JPRB/)
+KBO( :,54,10) = (/&
+&7.9875E-02_JPRB,1.0109E-01_JPRB,1.2361E-01_JPRB,1.4762E-01_JPRB,1.7497E-01_JPRB/)
+KBO( :,55,10) = (/&
+&7.3300E-02_JPRB,9.4374E-02_JPRB,1.1713E-01_JPRB,1.4114E-01_JPRB,1.6800E-01_JPRB/)
+KBO( :,56,10) = (/&
+&6.7351E-02_JPRB,8.8262E-02_JPRB,1.1132E-01_JPRB,1.3535E-01_JPRB,1.6204E-01_JPRB/)
+KBO( :,57,10) = (/&
+&6.1746E-02_JPRB,8.2507E-02_JPRB,1.0564E-01_JPRB,1.3036E-01_JPRB,1.5696E-01_JPRB/)
+KBO( :,58,10) = (/&
+&5.6716E-02_JPRB,7.7524E-02_JPRB,1.0086E-01_JPRB,1.2629E-01_JPRB,1.5285E-01_JPRB/)
+KBO( :,59,10) = (/&
+&5.5147E-02_JPRB,7.6460E-02_JPRB,1.0042E-01_JPRB,1.2667E-01_JPRB,1.5391E-01_JPRB/)
+KBO( :,13,11) = (/&
+&1.8957E+01_JPRB,2.1748E+01_JPRB,2.4276E+01_JPRB,2.6474E+01_JPRB,2.8529E+01_JPRB/)
+KBO( :,14,11) = (/&
+&1.8017E+01_JPRB,2.0380E+01_JPRB,2.2545E+01_JPRB,2.4583E+01_JPRB,2.6571E+01_JPRB/)
+KBO( :,15,11) = (/&
+&1.6510E+01_JPRB,1.8590E+01_JPRB,2.0569E+01_JPRB,2.2529E+01_JPRB,2.4350E+01_JPRB/)
+KBO( :,16,11) = (/&
+&1.4872E+01_JPRB,1.6760E+01_JPRB,1.8614E+01_JPRB,2.0335E+01_JPRB,2.1912E+01_JPRB/)
+KBO( :,17,11) = (/&
+&1.3279E+01_JPRB,1.4995E+01_JPRB,1.6568E+01_JPRB,1.8053E+01_JPRB,1.9485E+01_JPRB/)
+KBO( :,18,11) = (/&
+&1.1753E+01_JPRB,1.3179E+01_JPRB,1.4580E+01_JPRB,1.5907E+01_JPRB,1.7114E+01_JPRB/)
+KBO( :,19,11) = (/&
+&1.0231E+01_JPRB,1.1513E+01_JPRB,1.2740E+01_JPRB,1.3859E+01_JPRB,1.4884E+01_JPRB/)
+KBO( :,20,11) = (/&
+&8.9451E+00_JPRB,1.0050E+01_JPRB,1.1073E+01_JPRB,1.1999E+01_JPRB,1.2912E+01_JPRB/)
+KBO( :,21,11) = (/&
+&7.7987E+00_JPRB,8.7082E+00_JPRB,9.5625E+00_JPRB,1.0395E+01_JPRB,1.1226E+01_JPRB/)
+KBO( :,22,11) = (/&
+&6.8043E+00_JPRB,7.5642E+00_JPRB,8.3187E+00_JPRB,9.0767E+00_JPRB,9.8017E+00_JPRB/)
+KBO( :,23,11) = (/&
+&5.8859E+00_JPRB,6.5615E+00_JPRB,7.2498E+00_JPRB,7.9149E+00_JPRB,8.5372E+00_JPRB/)
+KBO( :,24,11) = (/&
+&5.1134E+00_JPRB,5.7222E+00_JPRB,6.3175E+00_JPRB,6.8808E+00_JPRB,7.4024E+00_JPRB/)
+KBO( :,25,11) = (/&
+&4.4669E+00_JPRB,4.9952E+00_JPRB,5.4997E+00_JPRB,5.9652E+00_JPRB,6.4204E+00_JPRB/)
+KBO( :,26,11) = (/&
+&3.9220E+00_JPRB,4.3661E+00_JPRB,4.7791E+00_JPRB,5.1780E+00_JPRB,5.5750E+00_JPRB/)
+KBO( :,27,11) = (/&
+&3.4424E+00_JPRB,3.8118E+00_JPRB,4.1663E+00_JPRB,4.5195E+00_JPRB,4.8555E+00_JPRB/)
+KBO( :,28,11) = (/&
+&3.0179E+00_JPRB,3.3339E+00_JPRB,3.6464E+00_JPRB,3.9515E+00_JPRB,4.2432E+00_JPRB/)
+KBO( :,29,11) = (/&
+&2.6509E+00_JPRB,2.9253E+00_JPRB,3.1964E+00_JPRB,3.4617E+00_JPRB,3.7117E+00_JPRB/)
+KBO( :,30,11) = (/&
+&2.3307E+00_JPRB,2.5742E+00_JPRB,2.8104E+00_JPRB,3.0372E+00_JPRB,3.2705E+00_JPRB/)
+KBO( :,31,11) = (/&
+&2.0517E+00_JPRB,2.2676E+00_JPRB,2.4784E+00_JPRB,2.6845E+00_JPRB,2.9117E+00_JPRB/)
+KBO( :,32,11) = (/&
+&1.8127E+00_JPRB,2.0021E+00_JPRB,2.1892E+00_JPRB,2.3933E+00_JPRB,2.6228E+00_JPRB/)
+KBO( :,33,11) = (/&
+&1.6070E+00_JPRB,1.7736E+00_JPRB,1.9506E+00_JPRB,2.1502E+00_JPRB,2.3904E+00_JPRB/)
+KBO( :,34,11) = (/&
+&1.4245E+00_JPRB,1.5783E+00_JPRB,1.7496E+00_JPRB,1.9501E+00_JPRB,2.1946E+00_JPRB/)
+KBO( :,35,11) = (/&
+&1.2566E+00_JPRB,1.4023E+00_JPRB,1.5672E+00_JPRB,1.7720E+00_JPRB,2.0104E+00_JPRB/)
+KBO( :,36,11) = (/&
+&1.1042E+00_JPRB,1.2386E+00_JPRB,1.4007E+00_JPRB,1.6008E+00_JPRB,1.8331E+00_JPRB/)
+KBO( :,37,11) = (/&
+&9.6207E-01_JPRB,1.0840E+00_JPRB,1.2374E+00_JPRB,1.4256E+00_JPRB,1.6496E+00_JPRB/)
+KBO( :,38,11) = (/&
+&8.4455E-01_JPRB,9.5449E-01_JPRB,1.0990E+00_JPRB,1.2750E+00_JPRB,1.4911E+00_JPRB/)
+KBO( :,39,11) = (/&
+&7.4626E-01_JPRB,8.4779E-01_JPRB,9.8068E-01_JPRB,1.1482E+00_JPRB,1.3562E+00_JPRB/)
+KBO( :,40,11) = (/&
+&6.5687E-01_JPRB,7.4696E-01_JPRB,8.6819E-01_JPRB,1.0227E+00_JPRB,1.2185E+00_JPRB/)
+KBO( :,41,11) = (/&
+&5.8461E-01_JPRB,6.6225E-01_JPRB,7.7143E-01_JPRB,9.1274E-01_JPRB,1.0964E+00_JPRB/)
+KBO( :,42,11) = (/&
+&5.2648E-01_JPRB,5.9347E-01_JPRB,6.8980E-01_JPRB,8.2031E-01_JPRB,9.9027E-01_JPRB/)
+KBO( :,43,11) = (/&
+&4.7640E-01_JPRB,5.3372E-01_JPRB,6.1655E-01_JPRB,7.3335E-01_JPRB,8.8864E-01_JPRB/)
+KBO( :,44,11) = (/&
+&4.3331E-01_JPRB,4.8509E-01_JPRB,5.5515E-01_JPRB,6.5677E-01_JPRB,7.9761E-01_JPRB/)
+KBO( :,45,11) = (/&
+&3.9738E-01_JPRB,4.4505E-01_JPRB,5.0582E-01_JPRB,5.9392E-01_JPRB,7.1934E-01_JPRB/)
+KBO( :,46,11) = (/&
+&3.6702E-01_JPRB,4.1005E-01_JPRB,4.6451E-01_JPRB,5.4011E-01_JPRB,6.5038E-01_JPRB/)
+KBO( :,47,11) = (/&
+&3.3839E-01_JPRB,3.7909E-01_JPRB,4.2775E-01_JPRB,4.9390E-01_JPRB,5.8796E-01_JPRB/)
+KBO( :,48,11) = (/&
+&3.1214E-01_JPRB,3.5328E-01_JPRB,3.9721E-01_JPRB,4.5625E-01_JPRB,5.3740E-01_JPRB/)
+KBO( :,49,11) = (/&
+&2.8824E-01_JPRB,3.3045E-01_JPRB,3.7202E-01_JPRB,4.2475E-01_JPRB,4.9686E-01_JPRB/)
+KBO( :,50,11) = (/&
+&2.6700E-01_JPRB,3.0926E-01_JPRB,3.5179E-01_JPRB,3.9959E-01_JPRB,4.6448E-01_JPRB/)
+KBO( :,51,11) = (/&
+&2.4729E-01_JPRB,2.9050E-01_JPRB,3.3394E-01_JPRB,3.7954E-01_JPRB,4.3852E-01_JPRB/)
+KBO( :,52,11) = (/&
+&2.2915E-01_JPRB,2.7331E-01_JPRB,3.1717E-01_JPRB,3.6223E-01_JPRB,4.1654E-01_JPRB/)
+KBO( :,53,11) = (/&
+&2.1197E-01_JPRB,2.5644E-01_JPRB,3.0181E-01_JPRB,3.4764E-01_JPRB,3.9788E-01_JPRB/)
+KBO( :,54,11) = (/&
+&1.9678E-01_JPRB,2.4209E-01_JPRB,2.8845E-01_JPRB,3.3563E-01_JPRB,3.8416E-01_JPRB/)
+KBO( :,55,11) = (/&
+&1.8279E-01_JPRB,2.2890E-01_JPRB,2.7659E-01_JPRB,3.2457E-01_JPRB,3.7331E-01_JPRB/)
+KBO( :,56,11) = (/&
+&1.6948E-01_JPRB,2.1660E-01_JPRB,2.6478E-01_JPRB,3.1391E-01_JPRB,3.6327E-01_JPRB/)
+KBO( :,57,11) = (/&
+&1.5665E-01_JPRB,2.0505E-01_JPRB,2.5378E-01_JPRB,3.0423E-01_JPRB,3.5431E-01_JPRB/)
+KBO( :,58,11) = (/&
+&1.4542E-01_JPRB,1.9412E-01_JPRB,2.4425E-01_JPRB,2.9539E-01_JPRB,3.4713E-01_JPRB/)
+KBO( :,59,11) = (/&
+&1.4258E-01_JPRB,1.9210E-01_JPRB,2.4323E-01_JPRB,2.9526E-01_JPRB,3.4821E-01_JPRB/)
+KBO( :,13,12) = (/&
+&3.3441E+01_JPRB,3.7821E+01_JPRB,4.2136E+01_JPRB,4.6394E+01_JPRB,5.0550E+01_JPRB/)
+KBO( :,14,12) = (/&
+&3.2651E+01_JPRB,3.7152E+01_JPRB,4.1595E+01_JPRB,4.5890E+01_JPRB,4.9879E+01_JPRB/)
+KBO( :,15,12) = (/&
+&3.1800E+01_JPRB,3.6293E+01_JPRB,4.0605E+01_JPRB,4.4452E+01_JPRB,4.7952E+01_JPRB/)
+KBO( :,16,12) = (/&
+&3.0652E+01_JPRB,3.4834E+01_JPRB,3.8488E+01_JPRB,4.1902E+01_JPRB,4.5172E+01_JPRB/)
+KBO( :,17,12) = (/&
+&2.8740E+01_JPRB,3.2239E+01_JPRB,3.5631E+01_JPRB,3.8859E+01_JPRB,4.1888E+01_JPRB/)
+KBO( :,18,12) = (/&
+&2.6152E+01_JPRB,2.9383E+01_JPRB,3.2433E+01_JPRB,3.5444E+01_JPRB,3.8304E+01_JPRB/)
+KBO( :,19,12) = (/&
+&2.3535E+01_JPRB,2.6428E+01_JPRB,2.9253E+01_JPRB,3.1986E+01_JPRB,3.4626E+01_JPRB/)
+KBO( :,20,12) = (/&
+&2.1009E+01_JPRB,2.3665E+01_JPRB,2.6170E+01_JPRB,2.8648E+01_JPRB,3.1009E+01_JPRB/)
+KBO( :,21,12) = (/&
+&1.8666E+01_JPRB,2.0970E+01_JPRB,2.3240E+01_JPRB,2.5449E+01_JPRB,2.7590E+01_JPRB/)
+KBO( :,22,12) = (/&
+&1.6562E+01_JPRB,1.8637E+01_JPRB,2.0680E+01_JPRB,2.2664E+01_JPRB,2.4579E+01_JPRB/)
+KBO( :,23,12) = (/&
+&1.4724E+01_JPRB,1.6583E+01_JPRB,1.8398E+01_JPRB,2.0130E+01_JPRB,2.1853E+01_JPRB/)
+KBO( :,24,12) = (/&
+&1.3115E+01_JPRB,1.4740E+01_JPRB,1.6306E+01_JPRB,1.7839E+01_JPRB,1.9442E+01_JPRB/)
+KBO( :,25,12) = (/&
+&1.1682E+01_JPRB,1.3060E+01_JPRB,1.4446E+01_JPRB,1.5890E+01_JPRB,1.7412E+01_JPRB/)
+KBO( :,26,12) = (/&
+&1.0376E+01_JPRB,1.1606E+01_JPRB,1.2912E+01_JPRB,1.4282E+01_JPRB,1.5708E+01_JPRB/)
+KBO( :,27,12) = (/&
+&9.2264E+00_JPRB,1.0375E+01_JPRB,1.1611E+01_JPRB,1.2892E+01_JPRB,1.4269E+01_JPRB/)
+KBO( :,28,12) = (/&
+&8.2384E+00_JPRB,9.3278E+00_JPRB,1.0501E+01_JPRB,1.1713E+01_JPRB,1.3001E+01_JPRB/)
+KBO( :,29,12) = (/&
+&7.4191E+00_JPRB,8.4528E+00_JPRB,9.5480E+00_JPRB,1.0688E+01_JPRB,1.1930E+01_JPRB/)
+KBO( :,30,12) = (/&
+&6.7411E+00_JPRB,7.6959E+00_JPRB,8.7238E+00_JPRB,9.8332E+00_JPRB,1.1024E+01_JPRB/)
+KBO( :,31,12) = (/&
+&6.1743E+00_JPRB,7.0565E+00_JPRB,8.0433E+00_JPRB,9.1146E+00_JPRB,1.0281E+01_JPRB/)
+KBO( :,32,12) = (/&
+&5.6829E+00_JPRB,6.5368E+00_JPRB,7.4832E+00_JPRB,8.5285E+00_JPRB,9.6975E+00_JPRB/)
+KBO( :,33,12) = (/&
+&5.2696E+00_JPRB,6.1016E+00_JPRB,7.0284E+00_JPRB,8.0819E+00_JPRB,9.2712E+00_JPRB/)
+KBO( :,34,12) = (/&
+&4.9064E+00_JPRB,5.7181E+00_JPRB,6.6470E+00_JPRB,7.7097E+00_JPRB,8.9376E+00_JPRB/)
+KBO( :,35,12) = (/&
+&4.5385E+00_JPRB,5.3339E+00_JPRB,6.2645E+00_JPRB,7.3393E+00_JPRB,8.6167E+00_JPRB/)
+KBO( :,36,12) = (/&
+&4.1592E+00_JPRB,4.9372E+00_JPRB,5.8640E+00_JPRB,6.9463E+00_JPRB,8.2444E+00_JPRB/)
+KBO( :,37,12) = (/&
+&3.7366E+00_JPRB,4.4851E+00_JPRB,5.3891E+00_JPRB,6.4562E+00_JPRB,7.7447E+00_JPRB/)
+KBO( :,38,12) = (/&
+&3.3663E+00_JPRB,4.0921E+00_JPRB,4.9726E+00_JPRB,6.0256E+00_JPRB,7.2966E+00_JPRB/)
+KBO( :,39,12) = (/&
+&3.0524E+00_JPRB,3.7541E+00_JPRB,4.6132E+00_JPRB,5.6531E+00_JPRB,6.9025E+00_JPRB/)
+KBO( :,40,12) = (/&
+&2.7210E+00_JPRB,3.3890E+00_JPRB,4.2060E+00_JPRB,5.2106E+00_JPRB,6.4181E+00_JPRB/)
+KBO( :,41,12) = (/&
+&2.4254E+00_JPRB,3.0563E+00_JPRB,3.8366E+00_JPRB,4.7969E+00_JPRB,5.9597E+00_JPRB/)
+KBO( :,42,12) = (/&
+&2.1679E+00_JPRB,2.7607E+00_JPRB,3.5045E+00_JPRB,4.4213E+00_JPRB,5.5422E+00_JPRB/)
+KBO( :,43,12) = (/&
+&1.9142E+00_JPRB,2.4659E+00_JPRB,3.1656E+00_JPRB,4.0260E+00_JPRB,5.0928E+00_JPRB/)
+KBO( :,44,12) = (/&
+&1.6815E+00_JPRB,2.1897E+00_JPRB,2.8396E+00_JPRB,3.6424E+00_JPRB,4.6457E+00_JPRB/)
+KBO( :,45,12) = (/&
+&1.4779E+00_JPRB,1.9464E+00_JPRB,2.5447E+00_JPRB,3.2950E+00_JPRB,4.2351E+00_JPRB/)
+KBO( :,46,12) = (/&
+&1.2911E+00_JPRB,1.7201E+00_JPRB,2.2670E+00_JPRB,2.9688E+00_JPRB,3.8370E+00_JPRB/)
+KBO( :,47,12) = (/&
+&1.1167E+00_JPRB,1.4998E+00_JPRB,1.9968E+00_JPRB,2.6327E+00_JPRB,3.4335E+00_JPRB/)
+KBO( :,48,12) = (/&
+&9.7000E-01_JPRB,1.3056E+00_JPRB,1.7582E+00_JPRB,2.3318E+00_JPRB,3.0672E+00_JPRB/)
+KBO( :,49,12) = (/&
+&8.4948E-01_JPRB,1.1387E+00_JPRB,1.5440E+00_JPRB,2.0638E+00_JPRB,2.7325E+00_JPRB/)
+KBO( :,50,12) = (/&
+&7.5798E-01_JPRB,1.0046E+00_JPRB,1.3648E+00_JPRB,1.8406E+00_JPRB,2.4475E+00_JPRB/)
+KBO( :,51,12) = (/&
+&6.8725E-01_JPRB,8.9444E-01_JPRB,1.2113E+00_JPRB,1.6439E+00_JPRB,2.1974E+00_JPRB/)
+KBO( :,52,12) = (/&
+&6.3115E-01_JPRB,8.0296E-01_JPRB,1.0776E+00_JPRB,1.4683E+00_JPRB,1.9726E+00_JPRB/)
+KBO( :,53,12) = (/&
+&5.8219E-01_JPRB,7.2999E-01_JPRB,9.6258E-01_JPRB,1.3098E+00_JPRB,1.7704E+00_JPRB/)
+KBO( :,54,12) = (/&
+&5.4205E-01_JPRB,6.7503E-01_JPRB,8.7235E-01_JPRB,1.1796E+00_JPRB,1.6017E+00_JPRB/)
+KBO( :,55,12) = (/&
+&5.0666E-01_JPRB,6.3248E-01_JPRB,8.0079E-01_JPRB,1.0716E+00_JPRB,1.4553E+00_JPRB/)
+KBO( :,56,12) = (/&
+&4.7570E-01_JPRB,5.9469E-01_JPRB,7.4368E-01_JPRB,9.7802E-01_JPRB,1.3247E+00_JPRB/)
+KBO( :,57,12) = (/&
+&4.4744E-01_JPRB,5.6112E-01_JPRB,6.9690E-01_JPRB,8.9836E-01_JPRB,1.2094E+00_JPRB/)
+KBO( :,58,12) = (/&
+&4.2060E-01_JPRB,5.3249E-01_JPRB,6.6124E-01_JPRB,8.3779E-01_JPRB,1.1150E+00_JPRB/)
+KBO( :,59,12) = (/&
+&4.1336E-01_JPRB,5.2583E-01_JPRB,6.5442E-01_JPRB,8.2324E-01_JPRB,1.0875E+00_JPRB/)
+KBO( :,13,13) = (/&
+&6.2911E+01_JPRB,7.0866E+01_JPRB,7.8801E+01_JPRB,8.6317E+01_JPRB,9.3133E+01_JPRB/)
+KBO( :,14,13) = (/&
+&6.4149E+01_JPRB,7.2816E+01_JPRB,8.0994E+01_JPRB,8.8794E+01_JPRB,9.5784E+01_JPRB/)
+KBO( :,15,13) = (/&
+&6.5438E+01_JPRB,7.4262E+01_JPRB,8.2489E+01_JPRB,9.0124E+01_JPRB,9.7424E+01_JPRB/)
+KBO( :,16,13) = (/&
+&6.5590E+01_JPRB,7.4146E+01_JPRB,8.2531E+01_JPRB,9.0209E+01_JPRB,9.7706E+01_JPRB/)
+KBO( :,17,13) = (/&
+&6.4830E+01_JPRB,7.3370E+01_JPRB,8.1573E+01_JPRB,8.9511E+01_JPRB,9.7077E+01_JPRB/)
+KBO( :,18,13) = (/&
+&6.3631E+01_JPRB,7.1937E+01_JPRB,8.0198E+01_JPRB,8.8105E+01_JPRB,9.5322E+01_JPRB/)
+KBO( :,19,13) = (/&
+&6.1647E+01_JPRB,6.9823E+01_JPRB,7.7707E+01_JPRB,8.5203E+01_JPRB,9.2333E+01_JPRB/)
+KBO( :,20,13) = (/&
+&5.9220E+01_JPRB,6.6886E+01_JPRB,7.4459E+01_JPRB,8.1516E+01_JPRB,8.8383E+01_JPRB/)
+KBO( :,21,13) = (/&
+&5.5943E+01_JPRB,6.3222E+01_JPRB,7.0272E+01_JPRB,7.7027E+01_JPRB,8.3664E+01_JPRB/)
+KBO( :,22,13) = (/&
+&5.2530E+01_JPRB,5.9289E+01_JPRB,6.5955E+01_JPRB,7.2675E+01_JPRB,7.9278E+01_JPRB/)
+KBO( :,23,13) = (/&
+&4.8798E+01_JPRB,5.5211E+01_JPRB,6.1705E+01_JPRB,6.8359E+01_JPRB,7.5139E+01_JPRB/)
+KBO( :,24,13) = (/&
+&4.5161E+01_JPRB,5.1397E+01_JPRB,5.7807E+01_JPRB,6.4502E+01_JPRB,7.1268E+01_JPRB/)
+KBO( :,25,13) = (/&
+&4.1926E+01_JPRB,4.8095E+01_JPRB,5.4440E+01_JPRB,6.1093E+01_JPRB,6.7734E+01_JPRB/)
+KBO( :,26,13) = (/&
+&3.9234E+01_JPRB,4.5282E+01_JPRB,5.1559E+01_JPRB,5.8099E+01_JPRB,6.4750E+01_JPRB/)
+KBO( :,27,13) = (/&
+&3.7014E+01_JPRB,4.2942E+01_JPRB,4.9090E+01_JPRB,5.5651E+01_JPRB,6.2419E+01_JPRB/)
+KBO( :,28,13) = (/&
+&3.5158E+01_JPRB,4.0969E+01_JPRB,4.7074E+01_JPRB,5.3764E+01_JPRB,6.0756E+01_JPRB/)
+KBO( :,29,13) = (/&
+&3.3618E+01_JPRB,3.9411E+01_JPRB,4.5654E+01_JPRB,5.2544E+01_JPRB,5.9755E+01_JPRB/)
+KBO( :,30,13) = (/&
+&3.2426E+01_JPRB,3.8339E+01_JPRB,4.4787E+01_JPRB,5.1833E+01_JPRB,5.9294E+01_JPRB/)
+KBO( :,31,13) = (/&
+&3.1684E+01_JPRB,3.7780E+01_JPRB,4.4404E+01_JPRB,5.1653E+01_JPRB,5.9352E+01_JPRB/)
+KBO( :,32,13) = (/&
+&3.1354E+01_JPRB,3.7669E+01_JPRB,4.4512E+01_JPRB,5.1974E+01_JPRB,5.9794E+01_JPRB/)
+KBO( :,33,13) = (/&
+&3.1431E+01_JPRB,3.7960E+01_JPRB,4.5034E+01_JPRB,5.2659E+01_JPRB,6.0610E+01_JPRB/)
+KBO( :,34,13) = (/&
+&3.1647E+01_JPRB,3.8355E+01_JPRB,4.5600E+01_JPRB,5.3397E+01_JPRB,6.1465E+01_JPRB/)
+KBO( :,35,13) = (/&
+&3.1516E+01_JPRB,3.8346E+01_JPRB,4.5688E+01_JPRB,5.3575E+01_JPRB,6.1719E+01_JPRB/)
+KBO( :,36,13) = (/&
+&3.0864E+01_JPRB,3.7754E+01_JPRB,4.5120E+01_JPRB,5.3052E+01_JPRB,6.1227E+01_JPRB/)
+KBO( :,37,13) = (/&
+&2.9388E+01_JPRB,3.6192E+01_JPRB,4.3536E+01_JPRB,5.1439E+01_JPRB,5.9606E+01_JPRB/)
+KBO( :,38,13) = (/&
+&2.7977E+01_JPRB,3.4812E+01_JPRB,4.2002E+01_JPRB,4.9861E+01_JPRB,5.8021E+01_JPRB/)
+KBO( :,39,13) = (/&
+&2.6681E+01_JPRB,3.3428E+01_JPRB,4.0601E+01_JPRB,4.8374E+01_JPRB,5.6514E+01_JPRB/)
+KBO( :,40,13) = (/&
+&2.4843E+01_JPRB,3.1428E+01_JPRB,3.8462E+01_JPRB,4.6157E+01_JPRB,5.4241E+01_JPRB/)
+KBO( :,41,13) = (/&
+&2.3029E+01_JPRB,2.9429E+01_JPRB,3.6318E+01_JPRB,4.3916E+01_JPRB,5.1916E+01_JPRB/)
+KBO( :,42,13) = (/&
+&2.1319E+01_JPRB,2.7525E+01_JPRB,3.4247E+01_JPRB,4.1738E+01_JPRB,4.9652E+01_JPRB/)
+KBO( :,43,13) = (/&
+&1.9398E+01_JPRB,2.5350E+01_JPRB,3.1861E+01_JPRB,3.9204E+01_JPRB,4.6981E+01_JPRB/)
+KBO( :,44,13) = (/&
+&1.7469E+01_JPRB,2.3129E+01_JPRB,2.9410E+01_JPRB,3.6561E+01_JPRB,4.4193E+01_JPRB/)
+KBO( :,45,13) = (/&
+&1.5674E+01_JPRB,2.1025E+01_JPRB,2.7064E+01_JPRB,3.4000E+01_JPRB,4.1469E+01_JPRB/)
+KBO( :,46,13) = (/&
+&1.3910E+01_JPRB,1.8921E+01_JPRB,2.4680E+01_JPRB,3.1376E+01_JPRB,3.8606E+01_JPRB/)
+KBO( :,47,13) = (/&
+&1.2107E+01_JPRB,1.6739E+01_JPRB,2.2157E+01_JPRB,2.8551E+01_JPRB,3.5550E+01_JPRB/)
+KBO( :,48,13) = (/&
+&1.0467E+01_JPRB,1.4727E+01_JPRB,1.9785E+01_JPRB,2.5861E+01_JPRB,3.2591E+01_JPRB/)
+KBO( :,49,13) = (/&
+&8.9964E+00_JPRB,1.2871E+01_JPRB,1.7569E+01_JPRB,2.3303E+01_JPRB,2.9748E+01_JPRB/)
+KBO( :,50,13) = (/&
+&7.7376E+00_JPRB,1.1272E+01_JPRB,1.5632E+01_JPRB,2.1029E+01_JPRB,2.7193E+01_JPRB/)
+KBO( :,51,13) = (/&
+&6.6259E+00_JPRB,9.8500E+00_JPRB,1.3883E+01_JPRB,1.8950E+01_JPRB,2.4815E+01_JPRB/)
+KBO( :,52,13) = (/&
+&5.6271E+00_JPRB,8.5555E+00_JPRB,1.2269E+01_JPRB,1.6994E+01_JPRB,2.2544E+01_JPRB/)
+KBO( :,53,13) = (/&
+&4.7464E+00_JPRB,7.3819E+00_JPRB,1.0780E+01_JPRB,1.5159E+01_JPRB,2.0385E+01_JPRB/)
+KBO( :,54,13) = (/&
+&4.0353E+00_JPRB,6.3931E+00_JPRB,9.5243E+00_JPRB,1.3591E+01_JPRB,1.8508E+01_JPRB/)
+KBO( :,55,13) = (/&
+&3.4415E+00_JPRB,5.5338E+00_JPRB,8.4199E+00_JPRB,1.2188E+01_JPRB,1.6812E+01_JPRB/)
+KBO( :,56,13) = (/&
+&2.9273E+00_JPRB,4.7696E+00_JPRB,7.4019E+00_JPRB,1.0887E+01_JPRB,1.5214E+01_JPRB/)
+KBO( :,57,13) = (/&
+&2.4891E+00_JPRB,4.0887E+00_JPRB,6.4628E+00_JPRB,9.6770E+00_JPRB,1.3714E+01_JPRB/)
+KBO( :,58,13) = (/&
+&2.1365E+00_JPRB,3.5240E+00_JPRB,5.6504E+00_JPRB,8.6145E+00_JPRB,1.2383E+01_JPRB/)
+KBO( :,59,13) = (/&
+&2.0108E+00_JPRB,3.3183E+00_JPRB,5.3478E+00_JPRB,8.2077E+00_JPRB,1.1868E+01_JPRB/)
+KBO( :,13,14) = (/&
+&1.3475E+02_JPRB,1.4982E+02_JPRB,1.6261E+02_JPRB,1.7487E+02_JPRB,1.8519E+02_JPRB/)
+KBO( :,14,14) = (/&
+&1.4605E+02_JPRB,1.6065E+02_JPRB,1.7393E+02_JPRB,1.8700E+02_JPRB,1.9852E+02_JPRB/)
+KBO( :,15,14) = (/&
+&1.5360E+02_JPRB,1.6964E+02_JPRB,1.8495E+02_JPRB,1.9863E+02_JPRB,2.1254E+02_JPRB/)
+KBO( :,16,14) = (/&
+&1.6093E+02_JPRB,1.7838E+02_JPRB,1.9523E+02_JPRB,2.1044E+02_JPRB,2.2565E+02_JPRB/)
+KBO( :,17,14) = (/&
+&1.6793E+02_JPRB,1.8625E+02_JPRB,2.0393E+02_JPRB,2.2116E+02_JPRB,2.3675E+02_JPRB/)
+KBO( :,18,14) = (/&
+&1.7285E+02_JPRB,1.9238E+02_JPRB,2.1120E+02_JPRB,2.2923E+02_JPRB,2.4575E+02_JPRB/)
+KBO( :,19,14) = (/&
+&1.7622E+02_JPRB,1.9702E+02_JPRB,2.1717E+02_JPRB,2.3603E+02_JPRB,2.5402E+02_JPRB/)
+KBO( :,20,14) = (/&
+&1.7911E+02_JPRB,2.0088E+02_JPRB,2.2224E+02_JPRB,2.4259E+02_JPRB,2.6154E+02_JPRB/)
+KBO( :,21,14) = (/&
+&1.8174E+02_JPRB,2.0471E+02_JPRB,2.2728E+02_JPRB,2.4849E+02_JPRB,2.6851E+02_JPRB/)
+KBO( :,22,14) = (/&
+&1.8638E+02_JPRB,2.1059E+02_JPRB,2.3335E+02_JPRB,2.5504E+02_JPRB,2.7546E+02_JPRB/)
+KBO( :,23,14) = (/&
+&1.9098E+02_JPRB,2.1549E+02_JPRB,2.3861E+02_JPRB,2.6061E+02_JPRB,2.8131E+02_JPRB/)
+KBO( :,24,14) = (/&
+&1.9501E+02_JPRB,2.1999E+02_JPRB,2.4340E+02_JPRB,2.6590E+02_JPRB,2.8693E+02_JPRB/)
+KBO( :,25,14) = (/&
+&1.9819E+02_JPRB,2.2397E+02_JPRB,2.4813E+02_JPRB,2.7104E+02_JPRB,2.9266E+02_JPRB/)
+KBO( :,26,14) = (/&
+&2.0202E+02_JPRB,2.2842E+02_JPRB,2.5295E+02_JPRB,2.7657E+02_JPRB,2.9876E+02_JPRB/)
+KBO( :,27,14) = (/&
+&2.0582E+02_JPRB,2.3283E+02_JPRB,2.5800E+02_JPRB,2.8203E+02_JPRB,3.0452E+02_JPRB/)
+KBO( :,28,14) = (/&
+&2.1022E+02_JPRB,2.3779E+02_JPRB,2.6328E+02_JPRB,2.8767E+02_JPRB,3.1024E+02_JPRB/)
+KBO( :,29,14) = (/&
+&2.1520E+02_JPRB,2.4340E+02_JPRB,2.6893E+02_JPRB,2.9346E+02_JPRB,3.1620E+02_JPRB/)
+KBO( :,30,14) = (/&
+&2.2063E+02_JPRB,2.4918E+02_JPRB,2.7482E+02_JPRB,2.9948E+02_JPRB,3.2215E+02_JPRB/)
+KBO( :,31,14) = (/&
+&2.2657E+02_JPRB,2.5536E+02_JPRB,2.8102E+02_JPRB,3.0571E+02_JPRB,3.2824E+02_JPRB/)
+KBO( :,32,14) = (/&
+&2.3308E+02_JPRB,2.6187E+02_JPRB,2.8740E+02_JPRB,3.1199E+02_JPRB,3.3425E+02_JPRB/)
+KBO( :,33,14) = (/&
+&2.3986E+02_JPRB,2.6855E+02_JPRB,2.9383E+02_JPRB,3.1826E+02_JPRB,3.4018E+02_JPRB/)
+KBO( :,34,14) = (/&
+&2.4577E+02_JPRB,2.7438E+02_JPRB,2.9944E+02_JPRB,3.2357E+02_JPRB,3.4520E+02_JPRB/)
+KBO( :,35,14) = (/&
+&2.4905E+02_JPRB,2.7766E+02_JPRB,3.0272E+02_JPRB,3.2667E+02_JPRB,3.4817E+02_JPRB/)
+KBO( :,36,14) = (/&
+&2.4929E+02_JPRB,2.7807E+02_JPRB,3.0324E+02_JPRB,3.2723E+02_JPRB,3.4886E+02_JPRB/)
+KBO( :,37,14) = (/&
+&2.4523E+02_JPRB,2.7437E+02_JPRB,2.9994E+02_JPRB,3.2429E+02_JPRB,3.4633E+02_JPRB/)
+KBO( :,38,14) = (/&
+&2.4091E+02_JPRB,2.6959E+02_JPRB,2.9637E+02_JPRB,3.2107E+02_JPRB,3.4355E+02_JPRB/)
+KBO( :,39,14) = (/&
+&2.3660E+02_JPRB,2.6566E+02_JPRB,2.9263E+02_JPRB,3.1774E+02_JPRB,3.4063E+02_JPRB/)
+KBO( :,40,14) = (/&
+&2.2919E+02_JPRB,2.5872E+02_JPRB,2.8615E+02_JPRB,3.1182E+02_JPRB,3.3536E+02_JPRB/)
+KBO( :,41,14) = (/&
+&2.2133E+02_JPRB,2.5130E+02_JPRB,2.7920E+02_JPRB,3.0540E+02_JPRB,3.2953E+02_JPRB/)
+KBO( :,42,14) = (/&
+&2.1340E+02_JPRB,2.4374E+02_JPRB,2.7207E+02_JPRB,2.9884E+02_JPRB,3.2354E+02_JPRB/)
+KBO( :,43,14) = (/&
+&2.0367E+02_JPRB,2.3438E+02_JPRB,2.6323E+02_JPRB,2.9066E+02_JPRB,3.1594E+02_JPRB/)
+KBO( :,44,14) = (/&
+&1.9308E+02_JPRB,2.2419E+02_JPRB,2.5349E+02_JPRB,2.8159E+02_JPRB,3.0748E+02_JPRB/)
+KBO( :,45,14) = (/&
+&1.8246E+02_JPRB,2.1385E+02_JPRB,2.4356E+02_JPRB,2.7233E+02_JPRB,2.9882E+02_JPRB/)
+KBO( :,46,14) = (/&
+&1.7114E+02_JPRB,2.0272E+02_JPRB,2.3288E+02_JPRB,2.6301E+02_JPRB,2.8969E+02_JPRB/)
+KBO( :,47,14) = (/&
+&1.5855E+02_JPRB,1.9020E+02_JPRB,2.2076E+02_JPRB,2.5136E+02_JPRB,2.7873E+02_JPRB/)
+KBO( :,48,14) = (/&
+&1.4607E+02_JPRB,1.7757E+02_JPRB,2.0844E+02_JPRB,2.3948E+02_JPRB,2.6744E+02_JPRB/)
+KBO( :,49,14) = (/&
+&1.3419E+02_JPRB,1.6492E+02_JPRB,1.9597E+02_JPRB,2.2733E+02_JPRB,2.5595E+02_JPRB/)
+KBO( :,50,14) = (/&
+&1.2262E+02_JPRB,1.5312E+02_JPRB,1.8424E+02_JPRB,2.1573E+02_JPRB,2.4494E+02_JPRB/)
+KBO( :,51,14) = (/&
+&1.1164E+02_JPRB,1.4176E+02_JPRB,1.7283E+02_JPRB,2.0437E+02_JPRB,2.3409E+02_JPRB/)
+KBO( :,52,14) = (/&
+&1.0096E+02_JPRB,1.3046E+02_JPRB,1.6140E+02_JPRB,1.9297E+02_JPRB,2.2308E+02_JPRB/)
+KBO( :,53,14) = (/&
+&9.0551E+01_JPRB,1.1931E+02_JPRB,1.4994E+02_JPRB,1.8152E+02_JPRB,2.1190E+02_JPRB/)
+KBO( :,54,14) = (/&
+&8.1410E+01_JPRB,1.0953E+02_JPRB,1.3953E+02_JPRB,1.7100E+02_JPRB,2.0156E+02_JPRB/)
+KBO( :,55,14) = (/&
+&7.2959E+01_JPRB,1.0018E+02_JPRB,1.2955E+02_JPRB,1.6095E+02_JPRB,1.9160E+02_JPRB/)
+KBO( :,56,14) = (/&
+&6.4819E+01_JPRB,9.1140E+01_JPRB,1.1985E+02_JPRB,1.5098E+02_JPRB,1.8160E+02_JPRB/)
+KBO( :,57,14) = (/&
+&5.7095E+01_JPRB,8.2366E+01_JPRB,1.1034E+02_JPRB,1.4102E+02_JPRB,1.7160E+02_JPRB/)
+KBO( :,58,14) = (/&
+&5.0134E+01_JPRB,7.4344E+01_JPRB,1.0153E+02_JPRB,1.3164E+02_JPRB,1.6214E+02_JPRB/)
+KBO( :,59,14) = (/&
+&4.7470E+01_JPRB,7.1199E+01_JPRB,9.8036E+01_JPRB,1.2792E+02_JPRB,1.5834E+02_JPRB/)
+KBO( :,13,15) = (/&
+&2.3558E+02_JPRB,2.5344E+02_JPRB,2.7628E+02_JPRB,3.0031E+02_JPRB,3.2250E+02_JPRB/)
+KBO( :,14,15) = (/&
+&2.7096E+02_JPRB,2.9360E+02_JPRB,3.2037E+02_JPRB,3.4774E+02_JPRB,3.7218E+02_JPRB/)
+KBO( :,15,15) = (/&
+&3.0994E+02_JPRB,3.4303E+02_JPRB,3.7440E+02_JPRB,3.9962E+02_JPRB,4.2667E+02_JPRB/)
+KBO( :,16,15) = (/&
+&3.5542E+02_JPRB,3.9314E+02_JPRB,4.2812E+02_JPRB,4.5543E+02_JPRB,4.8444E+02_JPRB/)
+KBO( :,17,15) = (/&
+&4.0444E+02_JPRB,4.4528E+02_JPRB,4.7841E+02_JPRB,5.1608E+02_JPRB,5.4481E+02_JPRB/)
+KBO( :,18,15) = (/&
+&4.5639E+02_JPRB,5.0053E+02_JPRB,5.3577E+02_JPRB,5.7622E+02_JPRB,6.0843E+02_JPRB/)
+KBO( :,19,15) = (/&
+&5.0901E+02_JPRB,5.5503E+02_JPRB,5.9764E+02_JPRB,6.3637E+02_JPRB,6.7067E+02_JPRB/)
+KBO( :,20,15) = (/&
+&5.6225E+02_JPRB,6.1156E+02_JPRB,6.5621E+02_JPRB,6.9717E+02_JPRB,7.3299E+02_JPRB/)
+KBO( :,21,15) = (/&
+&6.1341E+02_JPRB,6.6505E+02_JPRB,7.1266E+02_JPRB,7.5506E+02_JPRB,7.9166E+02_JPRB/)
+KBO( :,22,15) = (/&
+&6.6477E+02_JPRB,7.2026E+02_JPRB,7.6733E+02_JPRB,8.1180E+02_JPRB,8.4941E+02_JPRB/)
+KBO( :,23,15) = (/&
+&7.1351E+02_JPRB,7.7168E+02_JPRB,8.2016E+02_JPRB,8.6518E+02_JPRB,9.0001E+02_JPRB/)
+KBO( :,24,15) = (/&
+&7.6064E+02_JPRB,8.2095E+02_JPRB,8.7032E+02_JPRB,9.1500E+02_JPRB,9.4974E+02_JPRB/)
+KBO( :,25,15) = (/&
+&8.0382E+02_JPRB,8.6818E+02_JPRB,9.1637E+02_JPRB,9.6097E+02_JPRB,9.9482E+02_JPRB/)
+KBO( :,26,15) = (/&
+&8.4787E+02_JPRB,9.1216E+02_JPRB,9.5982E+02_JPRB,1.0033E+03_JPRB,1.0355E+03_JPRB/)
+KBO( :,27,15) = (/&
+&8.8962E+02_JPRB,9.5330E+02_JPRB,9.9941E+02_JPRB,1.0412E+03_JPRB,1.0715E+03_JPRB/)
+KBO( :,28,15) = (/&
+&9.2764E+02_JPRB,9.9055E+02_JPRB,1.0352E+03_JPRB,1.0749E+03_JPRB,1.1028E+03_JPRB/)
+KBO( :,29,15) = (/&
+&9.6348E+02_JPRB,1.0242E+03_JPRB,1.0673E+03_JPRB,1.1051E+03_JPRB,1.1303E+03_JPRB/)
+KBO( :,30,15) = (/&
+&9.9639E+02_JPRB,1.0551E+03_JPRB,1.0958E+03_JPRB,1.1311E+03_JPRB,1.1539E+03_JPRB/)
+KBO( :,31,15) = (/&
+&1.0263E+03_JPRB,1.0827E+03_JPRB,1.1208E+03_JPRB,1.1537E+03_JPRB,1.1744E+03_JPRB/)
+KBO( :,32,15) = (/&
+&1.0534E+03_JPRB,1.1075E+03_JPRB,1.1431E+03_JPRB,1.1732E+03_JPRB,1.1921E+03_JPRB/)
+KBO( :,33,15) = (/&
+&1.0779E+03_JPRB,1.1295E+03_JPRB,1.1625E+03_JPRB,1.1902E+03_JPRB,1.2073E+03_JPRB/)
+KBO( :,34,15) = (/&
+&1.0982E+03_JPRB,1.1477E+03_JPRB,1.1785E+03_JPRB,1.2044E+03_JPRB,1.2197E+03_JPRB/)
+KBO( :,35,15) = (/&
+&1.1118E+03_JPRB,1.1603E+03_JPRB,1.1896E+03_JPRB,1.2145E+03_JPRB,1.2287E+03_JPRB/)
+KBO( :,36,15) = (/&
+&1.1191E+03_JPRB,1.1674E+03_JPRB,1.1964E+03_JPRB,1.2211E+03_JPRB,1.2348E+03_JPRB/)
+KBO( :,37,15) = (/&
+&1.1180E+03_JPRB,1.1678E+03_JPRB,1.1978E+03_JPRB,1.2234E+03_JPRB,1.2378E+03_JPRB/)
+KBO( :,38,15) = (/&
+&1.1152E+03_JPRB,1.1644E+03_JPRB,1.1974E+03_JPRB,1.2244E+03_JPRB,1.2396E+03_JPRB/)
+KBO( :,39,15) = (/&
+&1.1116E+03_JPRB,1.1623E+03_JPRB,1.1960E+03_JPRB,1.2249E+03_JPRB,1.2407E+03_JPRB/)
+KBO( :,40,15) = (/&
+&1.1018E+03_JPRB,1.1551E+03_JPRB,1.1910E+03_JPRB,1.2221E+03_JPRB,1.2391E+03_JPRB/)
+KBO( :,41,15) = (/&
+&1.0898E+03_JPRB,1.1461E+03_JPRB,1.1848E+03_JPRB,1.2178E+03_JPRB,1.2366E+03_JPRB/)
+KBO( :,42,15) = (/&
+&1.0762E+03_JPRB,1.1359E+03_JPRB,1.1775E+03_JPRB,1.2126E+03_JPRB,1.2333E+03_JPRB/)
+KBO( :,43,15) = (/&
+&1.0578E+03_JPRB,1.1216E+03_JPRB,1.1668E+03_JPRB,1.2048E+03_JPRB,1.2281E+03_JPRB/)
+KBO( :,44,15) = (/&
+&1.0362E+03_JPRB,1.1044E+03_JPRB,1.1534E+03_JPRB,1.1947E+03_JPRB,1.2212E+03_JPRB/)
+KBO( :,45,15) = (/&
+&1.0130E+03_JPRB,1.0854E+03_JPRB,1.1384E+03_JPRB,1.1833E+03_JPRB,1.2130E+03_JPRB/)
+KBO( :,46,15) = (/&
+&9.8649E+02_JPRB,1.0633E+03_JPRB,1.1204E+03_JPRB,1.1664E+03_JPRB,1.2047E+03_JPRB/)
+KBO( :,47,15) = (/&
+&9.5447E+02_JPRB,1.0363E+03_JPRB,1.0984E+03_JPRB,1.1495E+03_JPRB,1.1920E+03_JPRB/)
+KBO( :,48,15) = (/&
+&9.1939E+02_JPRB,1.0072E+03_JPRB,1.0744E+03_JPRB,1.1303E+03_JPRB,1.1778E+03_JPRB/)
+KBO( :,49,15) = (/&
+&8.8250E+02_JPRB,9.7585E+02_JPRB,1.0483E+03_JPRB,1.1094E+03_JPRB,1.1613E+03_JPRB/)
+KBO( :,50,15) = (/&
+&8.4647E+02_JPRB,9.4477E+02_JPRB,1.0219E+03_JPRB,1.0877E+03_JPRB,1.1441E+03_JPRB/)
+KBO( :,51,15) = (/&
+&8.1004E+02_JPRB,9.1259E+02_JPRB,9.9388E+02_JPRB,1.0648E+03_JPRB,1.1259E+03_JPRB/)
+KBO( :,52,15) = (/&
+&7.7148E+02_JPRB,8.7865E+02_JPRB,9.6436E+02_JPRB,1.0402E+03_JPRB,1.1061E+03_JPRB/)
+KBO( :,53,15) = (/&
+&7.3147E+02_JPRB,8.4306E+02_JPRB,9.3344E+02_JPRB,1.0140E+03_JPRB,1.0845E+03_JPRB/)
+KBO( :,54,15) = (/&
+&6.9315E+02_JPRB,8.0891E+02_JPRB,9.0347E+02_JPRB,9.8850E+02_JPRB,1.0632E+03_JPRB/)
+KBO( :,55,15) = (/&
+&6.5555E+02_JPRB,7.7476E+02_JPRB,8.7174E+02_JPRB,9.6242E+02_JPRB,1.0413E+03_JPRB/)
+KBO( :,56,15) = (/&
+&6.1722E+02_JPRB,7.3961E+02_JPRB,8.4012E+02_JPRB,9.3483E+02_JPRB,1.0182E+03_JPRB/)
+KBO( :,57,15) = (/&
+&5.7836E+02_JPRB,7.0324E+02_JPRB,8.0736E+02_JPRB,9.0611E+02_JPRB,9.9376E+02_JPRB/)
+KBO( :,58,15) = (/&
+&5.4103E+02_JPRB,6.6804E+02_JPRB,7.7522E+02_JPRB,8.7787E+02_JPRB,9.6912E+02_JPRB/)
+KBO( :,59,15) = (/&
+&5.2599E+02_JPRB,6.5379E+02_JPRB,7.6206E+02_JPRB,8.6623E+02_JPRB,9.5904E+02_JPRB/)
+KBO( :,13,16) = (/&
+&3.9649E+02_JPRB,4.3420E+02_JPRB,4.7059E+02_JPRB,5.0417E+02_JPRB,5.3141E+02_JPRB/)
+KBO( :,14,16) = (/&
+&4.8075E+02_JPRB,5.2232E+02_JPRB,5.6418E+02_JPRB,6.0325E+02_JPRB,6.3379E+02_JPRB/)
+KBO( :,15,16) = (/&
+&5.7530E+02_JPRB,6.3245E+02_JPRB,6.8080E+02_JPRB,7.1352E+02_JPRB,7.4957E+02_JPRB/)
+KBO( :,16,16) = (/&
+&6.8549E+02_JPRB,7.5045E+02_JPRB,8.0419E+02_JPRB,8.3617E+02_JPRB,8.7485E+02_JPRB/)
+KBO( :,17,16) = (/&
+&8.0730E+02_JPRB,8.7949E+02_JPRB,9.2029E+02_JPRB,9.8275E+02_JPRB,1.0083E+03_JPRB/)
+KBO( :,18,16) = (/&
+&9.3777E+02_JPRB,1.0165E+03_JPRB,1.0537E+03_JPRB,1.1246E+03_JPRB,1.1558E+03_JPRB/)
+KBO( :,19,16) = (/&
+&1.0735E+03_JPRB,1.1454E+03_JPRB,1.2091E+03_JPRB,1.2558E+03_JPRB,1.3004E+03_JPRB/)
+KBO( :,20,16) = (/&
+&1.2127E+03_JPRB,1.2868E+03_JPRB,1.3551E+03_JPRB,1.3975E+03_JPRB,1.4452E+03_JPRB/)
+KBO( :,21,16) = (/&
+&1.3592E+03_JPRB,1.4356E+03_JPRB,1.5001E+03_JPRB,1.5456E+03_JPRB,1.5923E+03_JPRB/)
+KBO( :,22,16) = (/&
+&1.5169E+03_JPRB,1.5965E+03_JPRB,1.6436E+03_JPRB,1.6935E+03_JPRB,1.7383E+03_JPRB/)
+KBO( :,23,16) = (/&
+&1.6753E+03_JPRB,1.7518E+03_JPRB,1.7912E+03_JPRB,1.8444E+03_JPRB,1.8635E+03_JPRB/)
+KBO( :,24,16) = (/&
+&1.8317E+03_JPRB,1.8968E+03_JPRB,1.9298E+03_JPRB,1.9801E+03_JPRB,1.9925E+03_JPRB/)
+KBO( :,25,16) = (/&
+&1.9704E+03_JPRB,2.0341E+03_JPRB,2.0605E+03_JPRB,2.1039E+03_JPRB,2.1070E+03_JPRB/)
+KBO( :,26,16) = (/&
+&2.1057E+03_JPRB,2.1630E+03_JPRB,2.1799E+03_JPRB,2.2140E+03_JPRB,2.2098E+03_JPRB/)
+KBO( :,27,16) = (/&
+&2.2281E+03_JPRB,2.2763E+03_JPRB,2.2836E+03_JPRB,2.3113E+03_JPRB,2.2992E+03_JPRB/)
+KBO( :,28,16) = (/&
+&2.3345E+03_JPRB,2.3737E+03_JPRB,2.3719E+03_JPRB,2.3935E+03_JPRB,2.3762E+03_JPRB/)
+KBO( :,29,16) = (/&
+&2.4261E+03_JPRB,2.4570E+03_JPRB,2.4461E+03_JPRB,2.4611E+03_JPRB,2.4401E+03_JPRB/)
+KBO( :,30,16) = (/&
+&2.5032E+03_JPRB,2.5264E+03_JPRB,2.5077E+03_JPRB,2.5178E+03_JPRB,2.4915E+03_JPRB/)
+KBO( :,31,16) = (/&
+&2.5677E+03_JPRB,2.5833E+03_JPRB,2.5596E+03_JPRB,2.5650E+03_JPRB,2.5320E+03_JPRB/)
+KBO( :,32,16) = (/&
+&2.6198E+03_JPRB,2.6282E+03_JPRB,2.6001E+03_JPRB,2.6017E+03_JPRB,2.5636E+03_JPRB/)
+KBO( :,33,16) = (/&
+&2.6610E+03_JPRB,2.6631E+03_JPRB,2.6317E+03_JPRB,2.6296E+03_JPRB,2.5876E+03_JPRB/)
+KBO( :,34,16) = (/&
+&2.6943E+03_JPRB,2.6908E+03_JPRB,2.6559E+03_JPRB,2.6515E+03_JPRB,2.6062E+03_JPRB/)
+KBO( :,35,16) = (/&
+&2.7216E+03_JPRB,2.7136E+03_JPRB,2.6772E+03_JPRB,2.6701E+03_JPRB,2.6232E+03_JPRB/)
+KBO( :,36,16) = (/&
+&2.7447E+03_JPRB,2.7345E+03_JPRB,2.6971E+03_JPRB,2.6885E+03_JPRB,2.6393E+03_JPRB/)
+KBO( :,37,16) = (/&
+&2.7663E+03_JPRB,2.7556E+03_JPRB,2.7187E+03_JPRB,2.7089E+03_JPRB,2.6589E+03_JPRB/)
+KBO( :,38,16) = (/&
+&2.7858E+03_JPRB,2.7874E+03_JPRB,2.7366E+03_JPRB,2.7269E+03_JPRB,2.6752E+03_JPRB/)
+KBO( :,39,16) = (/&
+&2.8024E+03_JPRB,2.8038E+03_JPRB,2.7625E+03_JPRB,2.7421E+03_JPRB,2.6902E+03_JPRB/)
+KBO( :,40,16) = (/&
+&2.8177E+03_JPRB,2.8195E+03_JPRB,2.7788E+03_JPRB,2.7591E+03_JPRB,2.7091E+03_JPRB/)
+KBO( :,41,16) = (/&
+&2.8303E+03_JPRB,2.8352E+03_JPRB,2.7935E+03_JPRB,2.7758E+03_JPRB,2.7270E+03_JPRB/)
+KBO( :,42,16) = (/&
+&2.8434E+03_JPRB,2.8482E+03_JPRB,2.8071E+03_JPRB,2.7922E+03_JPRB,2.7438E+03_JPRB/)
+KBO( :,43,16) = (/&
+&2.8548E+03_JPRB,2.8612E+03_JPRB,2.8211E+03_JPRB,2.8082E+03_JPRB,2.7619E+03_JPRB/)
+KBO( :,44,16) = (/&
+&2.8632E+03_JPRB,2.8731E+03_JPRB,2.8359E+03_JPRB,2.8241E+03_JPRB,2.7786E+03_JPRB/)
+KBO( :,45,16) = (/&
+&2.8674E+03_JPRB,2.8836E+03_JPRB,2.8494E+03_JPRB,2.8388E+03_JPRB,2.7940E+03_JPRB/)
+KBO( :,46,16) = (/&
+&2.8677E+03_JPRB,2.8925E+03_JPRB,2.8629E+03_JPRB,2.8226E+03_JPRB,2.8119E+03_JPRB/)
+KBO( :,47,16) = (/&
+&2.8633E+03_JPRB,2.9002E+03_JPRB,2.8748E+03_JPRB,2.8361E+03_JPRB,2.8260E+03_JPRB/)
+KBO( :,48,16) = (/&
+&2.8578E+03_JPRB,2.9030E+03_JPRB,2.8832E+03_JPRB,2.8487E+03_JPRB,2.8389E+03_JPRB/)
+KBO( :,49,16) = (/&
+&2.8403E+03_JPRB,2.9008E+03_JPRB,2.8874E+03_JPRB,2.8585E+03_JPRB,2.8534E+03_JPRB/)
+KBO( :,50,16) = (/&
+&2.8204E+03_JPRB,2.8937E+03_JPRB,2.8907E+03_JPRB,2.8681E+03_JPRB,2.8665E+03_JPRB/)
+KBO( :,51,16) = (/&
+&2.7945E+03_JPRB,2.8834E+03_JPRB,2.8924E+03_JPRB,2.8761E+03_JPRB,2.8762E+03_JPRB/)
+KBO( :,52,16) = (/&
+&2.7647E+03_JPRB,2.8693E+03_JPRB,2.8895E+03_JPRB,2.8805E+03_JPRB,2.8863E+03_JPRB/)
+KBO( :,53,16) = (/&
+&2.7286E+03_JPRB,2.8496E+03_JPRB,2.8822E+03_JPRB,2.8814E+03_JPRB,2.8931E+03_JPRB/)
+KBO( :,54,16) = (/&
+&2.6904E+03_JPRB,2.8223E+03_JPRB,2.8712E+03_JPRB,2.8790E+03_JPRB,2.8991E+03_JPRB/)
+KBO( :,55,16) = (/&
+&2.6470E+03_JPRB,2.7955E+03_JPRB,2.8486E+03_JPRB,2.8755E+03_JPRB,2.9024E+03_JPRB/)
+KBO( :,56,16) = (/&
+&2.5966E+03_JPRB,2.7630E+03_JPRB,2.8315E+03_JPRB,2.8687E+03_JPRB,2.9035E+03_JPRB/)
+KBO( :,57,16) = (/&
+&2.5400E+03_JPRB,2.7247E+03_JPRB,2.8099E+03_JPRB,2.8582E+03_JPRB,2.9024E+03_JPRB/)
+KBO( :,58,16) = (/&
+&2.4795E+03_JPRB,2.6821E+03_JPRB,2.7847E+03_JPRB,2.8441E+03_JPRB,2.8994E+03_JPRB/)
+KBO( :,59,16) = (/&
+&2.4534E+03_JPRB,2.6638E+03_JPRB,2.7735E+03_JPRB,2.8383E+03_JPRB,2.8978E+03_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB10
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb11.F90	(revision 2160)
@@ -0,0 +1,2037 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB11
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFAO( :) = (/&
+!     From P = 473 mb.
+    &0.14152819_JPRB,0.13811260_JPRB,0.14312185_JPRB,0.13705885_JPRB,&
+    &0.11944738_JPRB,0.10570189_JPRB,0.08866373_JPRB,0.06565409_JPRB,&
+    &0.04428961_JPRB,0.00481540_JPRB,0.00387058_JPRB,0.00329187_JPRB,&
+    &0.00238294_JPRB,0.00150971_JPRB,0.00049287_JPRB,0.00005980_JPRB/)
+
+FRACREFBO( :) = (/&
+!     From P = 1.17 mb.
+    &0.10874039_JPRB,0.15164889_JPRB,0.15149839_JPRB,0.14515044_JPRB,&
+    &0.12486220_JPRB,0.10725017_JPRB,0.08715712_JPRB,0.06463144_JPRB,&
+    &0.04332319_JPRB,0.00441193_JPRB,0.00393819_JPRB,0.00305960_JPRB,&
+    &0.00224221_JPRB,0.00145100_JPRB,0.00055586_JPRB,0.00007934_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&8.3522E-02_JPRB,8.1897E-02_JPRB,8.0229E-02_JPRB,7.8579E-02_JPRB,7.6970E-02_JPRB/)
+KAO( :, 2, 1) = (/&
+&6.8945E-02_JPRB,6.7573E-02_JPRB,6.6206E-02_JPRB,6.4835E-02_JPRB,6.3486E-02_JPRB/)
+KAO( :, 3, 1) = (/&
+&5.7102E-02_JPRB,5.5943E-02_JPRB,5.4810E-02_JPRB,5.3668E-02_JPRB,5.2541E-02_JPRB/)
+KAO( :, 4, 1) = (/&
+&4.7668E-02_JPRB,4.6657E-02_JPRB,4.5724E-02_JPRB,4.4753E-02_JPRB,4.3808E-02_JPRB/)
+KAO( :, 5, 1) = (/&
+&4.0002E-02_JPRB,3.9124E-02_JPRB,3.8315E-02_JPRB,3.7502E-02_JPRB,3.6705E-02_JPRB/)
+KAO( :, 6, 1) = (/&
+&3.3776E-02_JPRB,3.3000E-02_JPRB,3.2282E-02_JPRB,3.1596E-02_JPRB,3.0909E-02_JPRB/)
+KAO( :, 7, 1) = (/&
+&2.8835E-02_JPRB,2.8128E-02_JPRB,2.7478E-02_JPRB,2.6862E-02_JPRB,2.6273E-02_JPRB/)
+KAO( :, 8, 1) = (/&
+&2.5465E-02_JPRB,2.4809E-02_JPRB,2.4170E-02_JPRB,2.3568E-02_JPRB,2.3010E-02_JPRB/)
+KAO( :, 9, 1) = (/&
+&2.7031E-02_JPRB,2.6297E-02_JPRB,2.5569E-02_JPRB,2.4878E-02_JPRB,2.4216E-02_JPRB/)
+KAO( :,10, 1) = (/&
+&2.6955E-02_JPRB,2.7533E-02_JPRB,2.7941E-02_JPRB,2.8269E-02_JPRB,2.8556E-02_JPRB/)
+KAO( :,11, 1) = (/&
+&2.3333E-02_JPRB,2.4026E-02_JPRB,2.4613E-02_JPRB,2.5142E-02_JPRB,2.5601E-02_JPRB/)
+KAO( :,12, 1) = (/&
+&1.9793E-02_JPRB,2.0434E-02_JPRB,2.0982E-02_JPRB,2.1484E-02_JPRB,2.1945E-02_JPRB/)
+KAO( :,13, 1) = (/&
+&1.6447E-02_JPRB,1.6981E-02_JPRB,1.7444E-02_JPRB,1.7868E-02_JPRB,1.8252E-02_JPRB/)
+KAO( :, 1, 2) = (/&
+&1.8412E-01_JPRB,1.7858E-01_JPRB,1.7358E-01_JPRB,1.6916E-01_JPRB,1.6516E-01_JPRB/)
+KAO( :, 2, 2) = (/&
+&1.5257E-01_JPRB,1.4806E-01_JPRB,1.4389E-01_JPRB,1.4020E-01_JPRB,1.3683E-01_JPRB/)
+KAO( :, 3, 2) = (/&
+&1.2692E-01_JPRB,1.2322E-01_JPRB,1.1970E-01_JPRB,1.1654E-01_JPRB,1.1362E-01_JPRB/)
+KAO( :, 4, 2) = (/&
+&1.0642E-01_JPRB,1.0336E-01_JPRB,1.0039E-01_JPRB,9.7683E-02_JPRB,9.5128E-02_JPRB/)
+KAO( :, 5, 2) = (/&
+&8.9523E-02_JPRB,8.6972E-02_JPRB,8.4476E-02_JPRB,8.2142E-02_JPRB,7.9952E-02_JPRB/)
+KAO( :, 6, 2) = (/&
+&7.5430E-02_JPRB,7.3336E-02_JPRB,7.1244E-02_JPRB,6.9235E-02_JPRB,6.7354E-02_JPRB/)
+KAO( :, 7, 2) = (/&
+&6.3775E-02_JPRB,6.2031E-02_JPRB,6.0281E-02_JPRB,5.8573E-02_JPRB,5.6925E-02_JPRB/)
+KAO( :, 8, 2) = (/&
+&5.4827E-02_JPRB,5.3223E-02_JPRB,5.1676E-02_JPRB,5.0200E-02_JPRB,4.8747E-02_JPRB/)
+KAO( :, 9, 2) = (/&
+&5.4030E-02_JPRB,5.1628E-02_JPRB,4.9558E-02_JPRB,4.7732E-02_JPRB,4.6090E-02_JPRB/)
+KAO( :,10, 2) = (/&
+&8.3445E-02_JPRB,7.9695E-02_JPRB,7.5528E-02_JPRB,7.1349E-02_JPRB,6.7427E-02_JPRB/)
+KAO( :,11, 2) = (/&
+&8.4499E-02_JPRB,8.2002E-02_JPRB,7.9684E-02_JPRB,7.7445E-02_JPRB,7.4716E-02_JPRB/)
+KAO( :,12, 2) = (/&
+&7.7856E-02_JPRB,7.5679E-02_JPRB,7.3803E-02_JPRB,7.2014E-02_JPRB,7.0273E-02_JPRB/)
+KAO( :,13, 2) = (/&
+&6.5859E-02_JPRB,6.3974E-02_JPRB,6.2346E-02_JPRB,6.0810E-02_JPRB,5.9317E-02_JPRB/)
+KAO( :, 1, 3) = (/&
+&2.9197E-01_JPRB,2.8442E-01_JPRB,2.7750E-01_JPRB,2.7131E-01_JPRB,2.6568E-01_JPRB/)
+KAO( :, 2, 3) = (/&
+&2.4244E-01_JPRB,2.3605E-01_JPRB,2.3044E-01_JPRB,2.2538E-01_JPRB,2.2082E-01_JPRB/)
+KAO( :, 3, 3) = (/&
+&2.0181E-01_JPRB,1.9632E-01_JPRB,1.9163E-01_JPRB,1.8739E-01_JPRB,1.8374E-01_JPRB/)
+KAO( :, 4, 3) = (/&
+&1.6959E-01_JPRB,1.6475E-01_JPRB,1.6065E-01_JPRB,1.5699E-01_JPRB,1.5395E-01_JPRB/)
+KAO( :, 5, 3) = (/&
+&1.4314E-01_JPRB,1.3886E-01_JPRB,1.3520E-01_JPRB,1.3204E-01_JPRB,1.2940E-01_JPRB/)
+KAO( :, 6, 3) = (/&
+&1.2136E-01_JPRB,1.1746E-01_JPRB,1.1417E-01_JPRB,1.1138E-01_JPRB,1.0905E-01_JPRB/)
+KAO( :, 7, 3) = (/&
+&1.0338E-01_JPRB,9.9815E-02_JPRB,9.6778E-02_JPRB,9.4240E-02_JPRB,9.2133E-02_JPRB/)
+KAO( :, 8, 3) = (/&
+&8.9213E-02_JPRB,8.5864E-02_JPRB,8.2965E-02_JPRB,8.0544E-02_JPRB,7.8544E-02_JPRB/)
+KAO( :, 9, 3) = (/&
+&8.5385E-02_JPRB,8.1609E-02_JPRB,7.8239E-02_JPRB,7.5298E-02_JPRB,7.2804E-02_JPRB/)
+KAO( :,10, 3) = (/&
+&1.2007E-01_JPRB,1.1056E-01_JPRB,1.0332E-01_JPRB,9.7549E-02_JPRB,9.2699E-02_JPRB/)
+KAO( :,11, 3) = (/&
+&1.4027E-01_JPRB,1.2871E-01_JPRB,1.1832E-01_JPRB,1.0920E-01_JPRB,1.0190E-01_JPRB/)
+KAO( :,12, 3) = (/&
+&1.3635E-01_JPRB,1.2627E-01_JPRB,1.1647E-01_JPRB,1.0761E-01_JPRB,9.9760E-02_JPRB/)
+KAO( :,13, 3) = (/&
+&1.1578E-01_JPRB,1.0716E-01_JPRB,9.8794E-02_JPRB,9.1233E-02_JPRB,8.4550E-02_JPRB/)
+KAO( :, 1, 4) = (/&
+&4.8086E-01_JPRB,4.7132E-01_JPRB,4.6205E-01_JPRB,4.5354E-01_JPRB,4.4595E-01_JPRB/)
+KAO( :, 2, 4) = (/&
+&4.0074E-01_JPRB,3.9253E-01_JPRB,3.8477E-01_JPRB,3.7758E-01_JPRB,3.7132E-01_JPRB/)
+KAO( :, 3, 4) = (/&
+&3.3455E-01_JPRB,3.2760E-01_JPRB,3.2088E-01_JPRB,3.1483E-01_JPRB,3.0965E-01_JPRB/)
+KAO( :, 4, 4) = (/&
+&2.8170E-01_JPRB,2.7587E-01_JPRB,2.7011E-01_JPRB,2.6499E-01_JPRB,2.6048E-01_JPRB/)
+KAO( :, 5, 4) = (/&
+&2.3795E-01_JPRB,2.3301E-01_JPRB,2.2814E-01_JPRB,2.2368E-01_JPRB,2.1976E-01_JPRB/)
+KAO( :, 6, 4) = (/&
+&2.0113E-01_JPRB,1.9701E-01_JPRB,1.9292E-01_JPRB,1.8907E-01_JPRB,1.8557E-01_JPRB/)
+KAO( :, 7, 4) = (/&
+&1.7006E-01_JPRB,1.6661E-01_JPRB,1.6317E-01_JPRB,1.5986E-01_JPRB,1.5679E-01_JPRB/)
+KAO( :, 8, 4) = (/&
+&1.4477E-01_JPRB,1.4172E-01_JPRB,1.3877E-01_JPRB,1.3586E-01_JPRB,1.3312E-01_JPRB/)
+KAO( :, 9, 4) = (/&
+&1.3199E-01_JPRB,1.2821E-01_JPRB,1.2474E-01_JPRB,1.2152E-01_JPRB,1.1855E-01_JPRB/)
+KAO( :,10, 4) = (/&
+&1.6601E-01_JPRB,1.5603E-01_JPRB,1.4717E-01_JPRB,1.3948E-01_JPRB,1.3292E-01_JPRB/)
+KAO( :,11, 4) = (/&
+&1.7889E-01_JPRB,1.6649E-01_JPRB,1.5552E-01_JPRB,1.4618E-01_JPRB,1.3804E-01_JPRB/)
+KAO( :,12, 4) = (/&
+&1.7280E-01_JPRB,1.5923E-01_JPRB,1.4821E-01_JPRB,1.3870E-01_JPRB,1.3058E-01_JPRB/)
+KAO( :,13, 4) = (/&
+&1.4697E-01_JPRB,1.3536E-01_JPRB,1.2589E-01_JPRB,1.1779E-01_JPRB,1.1082E-01_JPRB/)
+KAO( :, 1, 5) = (/&
+&8.2847E-01_JPRB,8.1706E-01_JPRB,8.0603E-01_JPRB,7.9489E-01_JPRB,7.8340E-01_JPRB/)
+KAO( :, 2, 5) = (/&
+&6.9594E-01_JPRB,6.8698E-01_JPRB,6.7809E-01_JPRB,6.6891E-01_JPRB,6.5974E-01_JPRB/)
+KAO( :, 3, 5) = (/&
+&5.8279E-01_JPRB,5.7548E-01_JPRB,5.6796E-01_JPRB,5.6025E-01_JPRB,5.5235E-01_JPRB/)
+KAO( :, 4, 5) = (/&
+&4.9038E-01_JPRB,4.8412E-01_JPRB,4.7772E-01_JPRB,4.7110E-01_JPRB,4.6460E-01_JPRB/)
+KAO( :, 5, 5) = (/&
+&4.1378E-01_JPRB,4.0847E-01_JPRB,4.0311E-01_JPRB,3.9759E-01_JPRB,3.9230E-01_JPRB/)
+KAO( :, 6, 5) = (/&
+&3.4972E-01_JPRB,3.4519E-01_JPRB,3.4085E-01_JPRB,3.3630E-01_JPRB,3.3209E-01_JPRB/)
+KAO( :, 7, 5) = (/&
+&2.9568E-01_JPRB,2.9179E-01_JPRB,2.8827E-01_JPRB,2.8454E-01_JPRB,2.8107E-01_JPRB/)
+KAO( :, 8, 5) = (/&
+&2.5092E-01_JPRB,2.4746E-01_JPRB,2.4424E-01_JPRB,2.4103E-01_JPRB,2.3811E-01_JPRB/)
+KAO( :, 9, 5) = (/&
+&2.2123E-01_JPRB,2.1714E-01_JPRB,2.1336E-01_JPRB,2.0980E-01_JPRB,2.0674E-01_JPRB/)
+KAO( :,10, 5) = (/&
+&2.3952E-01_JPRB,2.2844E-01_JPRB,2.1930E-01_JPRB,2.1169E-01_JPRB,2.0553E-01_JPRB/)
+KAO( :,11, 5) = (/&
+&2.4873E-01_JPRB,2.3190E-01_JPRB,2.1857E-01_JPRB,2.0774E-01_JPRB,1.9916E-01_JPRB/)
+KAO( :,12, 5) = (/&
+&2.3605E-01_JPRB,2.1832E-01_JPRB,2.0375E-01_JPRB,1.9219E-01_JPRB,1.8288E-01_JPRB/)
+KAO( :,13, 5) = (/&
+&2.0036E-01_JPRB,1.8536E-01_JPRB,1.7319E-01_JPRB,1.6345E-01_JPRB,1.5566E-01_JPRB/)
+KAO( :, 1, 6) = (/&
+&1.6289E+00_JPRB,1.6053E+00_JPRB,1.5817E+00_JPRB,1.5589E+00_JPRB,1.5373E+00_JPRB/)
+KAO( :, 2, 6) = (/&
+&1.3936E+00_JPRB,1.3733E+00_JPRB,1.3535E+00_JPRB,1.3341E+00_JPRB,1.3148E+00_JPRB/)
+KAO( :, 3, 6) = (/&
+&1.1841E+00_JPRB,1.1673E+00_JPRB,1.1508E+00_JPRB,1.1346E+00_JPRB,1.1181E+00_JPRB/)
+KAO( :, 4, 6) = (/&
+&1.0080E+00_JPRB,9.9445E-01_JPRB,9.8106E-01_JPRB,9.6749E-01_JPRB,9.5407E-01_JPRB/)
+KAO( :, 5, 6) = (/&
+&8.5742E-01_JPRB,8.4664E-01_JPRB,8.3551E-01_JPRB,8.2440E-01_JPRB,8.1340E-01_JPRB/)
+KAO( :, 6, 6) = (/&
+&7.2750E-01_JPRB,7.1904E-01_JPRB,7.0964E-01_JPRB,7.0043E-01_JPRB,6.9094E-01_JPRB/)
+KAO( :, 7, 6) = (/&
+&6.1594E-01_JPRB,6.0900E-01_JPRB,6.0116E-01_JPRB,5.9327E-01_JPRB,5.8510E-01_JPRB/)
+KAO( :, 8, 6) = (/&
+&5.2157E-01_JPRB,5.1588E-01_JPRB,5.0935E-01_JPRB,5.0256E-01_JPRB,4.9566E-01_JPRB/)
+KAO( :, 9, 6) = (/&
+&4.4895E-01_JPRB,4.4354E-01_JPRB,4.3759E-01_JPRB,4.3150E-01_JPRB,4.2532E-01_JPRB/)
+KAO( :,10, 6) = (/&
+&4.2442E-01_JPRB,4.1504E-01_JPRB,4.0636E-01_JPRB,3.9814E-01_JPRB,3.9006E-01_JPRB/)
+KAO( :,11, 6) = (/&
+&3.9535E-01_JPRB,3.8239E-01_JPRB,3.7132E-01_JPRB,3.6140E-01_JPRB,3.5225E-01_JPRB/)
+KAO( :,12, 6) = (/&
+&3.5520E-01_JPRB,3.4132E-01_JPRB,3.2979E-01_JPRB,3.1961E-01_JPRB,3.1084E-01_JPRB/)
+KAO( :,13, 6) = (/&
+&3.0031E-01_JPRB,2.8876E-01_JPRB,2.7891E-01_JPRB,2.7050E-01_JPRB,2.6328E-01_JPRB/)
+KAO( :, 1, 7) = (/&
+&3.4694E+00_JPRB,3.4297E+00_JPRB,3.3904E+00_JPRB,3.3487E+00_JPRB,3.3017E+00_JPRB/)
+KAO( :, 2, 7) = (/&
+&3.0726E+00_JPRB,3.0336E+00_JPRB,2.9923E+00_JPRB,2.9489E+00_JPRB,2.9055E+00_JPRB/)
+KAO( :, 3, 7) = (/&
+&2.6840E+00_JPRB,2.6467E+00_JPRB,2.6074E+00_JPRB,2.5687E+00_JPRB,2.5313E+00_JPRB/)
+KAO( :, 4, 7) = (/&
+&2.3349E+00_JPRB,2.3013E+00_JPRB,2.2673E+00_JPRB,2.2337E+00_JPRB,2.2014E+00_JPRB/)
+KAO( :, 5, 7) = (/&
+&2.0215E+00_JPRB,1.9929E+00_JPRB,1.9642E+00_JPRB,1.9357E+00_JPRB,1.9075E+00_JPRB/)
+KAO( :, 6, 7) = (/&
+&1.7423E+00_JPRB,1.7184E+00_JPRB,1.6935E+00_JPRB,1.6697E+00_JPRB,1.6459E+00_JPRB/)
+KAO( :, 7, 7) = (/&
+&1.4935E+00_JPRB,1.4730E+00_JPRB,1.4523E+00_JPRB,1.4325E+00_JPRB,1.4131E+00_JPRB/)
+KAO( :, 8, 7) = (/&
+&1.2741E+00_JPRB,1.2566E+00_JPRB,1.2398E+00_JPRB,1.2241E+00_JPRB,1.2075E+00_JPRB/)
+KAO( :, 9, 7) = (/&
+&1.0910E+00_JPRB,1.0756E+00_JPRB,1.0611E+00_JPRB,1.0471E+00_JPRB,1.0328E+00_JPRB/)
+KAO( :,10, 7) = (/&
+&9.6869E-01_JPRB,9.5109E-01_JPRB,9.3551E-01_JPRB,9.2022E-01_JPRB,9.0558E-01_JPRB/)
+KAO( :,11, 7) = (/&
+&8.5022E-01_JPRB,8.3262E-01_JPRB,8.1646E-01_JPRB,8.0094E-01_JPRB,7.8632E-01_JPRB/)
+KAO( :,12, 7) = (/&
+&7.3620E-01_JPRB,7.1934E-01_JPRB,7.0369E-01_JPRB,6.8927E-01_JPRB,6.7565E-01_JPRB/)
+KAO( :,13, 7) = (/&
+&6.2075E-01_JPRB,6.0642E-01_JPRB,5.9315E-01_JPRB,5.8082E-01_JPRB,5.6896E-01_JPRB/)
+KAO( :, 1, 8) = (/&
+&7.9943E+00_JPRB,7.8622E+00_JPRB,7.7337E+00_JPRB,7.6053E+00_JPRB,7.4825E+00_JPRB/)
+KAO( :, 2, 8) = (/&
+&7.5299E+00_JPRB,7.3990E+00_JPRB,7.2772E+00_JPRB,7.1539E+00_JPRB,7.0340E+00_JPRB/)
+KAO( :, 3, 8) = (/&
+&6.9582E+00_JPRB,6.8392E+00_JPRB,6.7240E+00_JPRB,6.6095E+00_JPRB,6.4993E+00_JPRB/)
+KAO( :, 4, 8) = (/&
+&6.3616E+00_JPRB,6.2560E+00_JPRB,6.1487E+00_JPRB,6.0437E+00_JPRB,5.9411E+00_JPRB/)
+KAO( :, 5, 8) = (/&
+&5.7571E+00_JPRB,5.6594E+00_JPRB,5.5598E+00_JPRB,5.4641E+00_JPRB,5.3662E+00_JPRB/)
+KAO( :, 6, 8) = (/&
+&5.1527E+00_JPRB,5.0625E+00_JPRB,4.9739E+00_JPRB,4.8820E+00_JPRB,4.7886E+00_JPRB/)
+KAO( :, 7, 8) = (/&
+&4.5602E+00_JPRB,4.4806E+00_JPRB,4.3973E+00_JPRB,4.3111E+00_JPRB,4.2273E+00_JPRB/)
+KAO( :, 8, 8) = (/&
+&3.9984E+00_JPRB,3.9261E+00_JPRB,3.8484E+00_JPRB,3.7714E+00_JPRB,3.6990E+00_JPRB/)
+KAO( :, 9, 8) = (/&
+&3.4828E+00_JPRB,3.4160E+00_JPRB,3.3474E+00_JPRB,3.2815E+00_JPRB,3.2194E+00_JPRB/)
+KAO( :,10, 8) = (/&
+&3.0434E+00_JPRB,2.9801E+00_JPRB,2.9179E+00_JPRB,2.8592E+00_JPRB,2.8030E+00_JPRB/)
+KAO( :,11, 8) = (/&
+&2.6134E+00_JPRB,2.5563E+00_JPRB,2.5021E+00_JPRB,2.4506E+00_JPRB,2.4022E+00_JPRB/)
+KAO( :,12, 8) = (/&
+&2.2242E+00_JPRB,2.1754E+00_JPRB,2.1288E+00_JPRB,2.0857E+00_JPRB,2.0457E+00_JPRB/)
+KAO( :,13, 8) = (/&
+&1.8749E+00_JPRB,1.8340E+00_JPRB,1.7958E+00_JPRB,1.7607E+00_JPRB,1.7271E+00_JPRB/)
+KAO( :, 1, 9) = (/&
+&1.8807E+01_JPRB,1.8545E+01_JPRB,1.8312E+01_JPRB,1.8089E+01_JPRB,1.7885E+01_JPRB/)
+KAO( :, 2, 9) = (/&
+&1.9472E+01_JPRB,1.9225E+01_JPRB,1.8970E+01_JPRB,1.8737E+01_JPRB,1.8518E+01_JPRB/)
+KAO( :, 3, 9) = (/&
+&1.9976E+01_JPRB,1.9718E+01_JPRB,1.9452E+01_JPRB,1.9190E+01_JPRB,1.8937E+01_JPRB/)
+KAO( :, 4, 9) = (/&
+&2.0179E+01_JPRB,1.9901E+01_JPRB,1.9617E+01_JPRB,1.9339E+01_JPRB,1.9071E+01_JPRB/)
+KAO( :, 5, 9) = (/&
+&2.0073E+01_JPRB,1.9777E+01_JPRB,1.9491E+01_JPRB,1.9213E+01_JPRB,1.8936E+01_JPRB/)
+KAO( :, 6, 9) = (/&
+&1.9652E+01_JPRB,1.9360E+01_JPRB,1.9080E+01_JPRB,1.8806E+01_JPRB,1.8526E+01_JPRB/)
+KAO( :, 7, 9) = (/&
+&1.8940E+01_JPRB,1.8655E+01_JPRB,1.8384E+01_JPRB,1.8113E+01_JPRB,1.7820E+01_JPRB/)
+KAO( :, 8, 9) = (/&
+&1.7954E+01_JPRB,1.7679E+01_JPRB,1.7419E+01_JPRB,1.7144E+01_JPRB,1.6856E+01_JPRB/)
+KAO( :, 9, 9) = (/&
+&1.6744E+01_JPRB,1.6495E+01_JPRB,1.6235E+01_JPRB,1.5966E+01_JPRB,1.5690E+01_JPRB/)
+KAO( :,10, 9) = (/&
+&1.5389E+01_JPRB,1.5156E+01_JPRB,1.4910E+01_JPRB,1.4661E+01_JPRB,1.4409E+01_JPRB/)
+KAO( :,11, 9) = (/&
+&1.3852E+01_JPRB,1.3629E+01_JPRB,1.3408E+01_JPRB,1.3185E+01_JPRB,1.2963E+01_JPRB/)
+KAO( :,12, 9) = (/&
+&1.2299E+01_JPRB,1.2107E+01_JPRB,1.1912E+01_JPRB,1.1717E+01_JPRB,1.1509E+01_JPRB/)
+KAO( :,13, 9) = (/&
+&1.0790E+01_JPRB,1.0623E+01_JPRB,1.0457E+01_JPRB,1.0277E+01_JPRB,1.0096E+01_JPRB/)
+KAO( :, 1,10) = (/&
+&3.4330E+01_JPRB,3.3765E+01_JPRB,3.3237E+01_JPRB,3.2695E+01_JPRB,3.2149E+01_JPRB/)
+KAO( :, 2,10) = (/&
+&3.6844E+01_JPRB,3.6202E+01_JPRB,3.5649E+01_JPRB,3.5225E+01_JPRB,3.4890E+01_JPRB/)
+KAO( :, 3,10) = (/&
+&3.9801E+01_JPRB,3.9093E+01_JPRB,3.8604E+01_JPRB,3.8270E+01_JPRB,3.7931E+01_JPRB/)
+KAO( :, 4,10) = (/&
+&4.2629E+01_JPRB,4.2009E+01_JPRB,4.1641E+01_JPRB,4.1207E+01_JPRB,4.0730E+01_JPRB/)
+KAO( :, 5,10) = (/&
+&4.5222E+01_JPRB,4.4631E+01_JPRB,4.4212E+01_JPRB,4.3567E+01_JPRB,4.2975E+01_JPRB/)
+KAO( :, 6,10) = (/&
+&4.7625E+01_JPRB,4.7023E+01_JPRB,4.6428E+01_JPRB,4.5641E+01_JPRB,4.5059E+01_JPRB/)
+KAO( :, 7,10) = (/&
+&4.9512E+01_JPRB,4.8922E+01_JPRB,4.8261E+01_JPRB,4.7488E+01_JPRB,4.7086E+01_JPRB/)
+KAO( :, 8,10) = (/&
+&5.0685E+01_JPRB,5.0115E+01_JPRB,4.9437E+01_JPRB,4.8806E+01_JPRB,4.8343E+01_JPRB/)
+KAO( :, 9,10) = (/&
+&5.1127E+01_JPRB,5.0594E+01_JPRB,4.9931E+01_JPRB,4.9312E+01_JPRB,4.8711E+01_JPRB/)
+KAO( :,10,10) = (/&
+&5.0693E+01_JPRB,5.0048E+01_JPRB,4.9328E+01_JPRB,4.8631E+01_JPRB,4.7896E+01_JPRB/)
+KAO( :,11,10) = (/&
+&4.8604E+01_JPRB,4.7864E+01_JPRB,4.7094E+01_JPRB,4.6287E+01_JPRB,4.5518E+01_JPRB/)
+KAO( :,12,10) = (/&
+&4.5443E+01_JPRB,4.4681E+01_JPRB,4.3926E+01_JPRB,4.3210E+01_JPRB,4.2649E+01_JPRB/)
+KAO( :,13,10) = (/&
+&4.1744E+01_JPRB,4.1045E+01_JPRB,4.0400E+01_JPRB,3.9894E+01_JPRB,3.9431E+01_JPRB/)
+KAO( :, 1,11) = (/&
+&4.2365E+01_JPRB,4.2019E+01_JPRB,4.1430E+01_JPRB,4.0878E+01_JPRB,4.0399E+01_JPRB/)
+KAO( :, 2,11) = (/&
+&4.7142E+01_JPRB,4.6442E+01_JPRB,4.5764E+01_JPRB,4.5114E+01_JPRB,4.4407E+01_JPRB/)
+KAO( :, 3,11) = (/&
+&5.1205E+01_JPRB,5.0483E+01_JPRB,4.9649E+01_JPRB,4.8898E+01_JPRB,4.8108E+01_JPRB/)
+KAO( :, 4,11) = (/&
+&5.5163E+01_JPRB,5.4376E+01_JPRB,5.3481E+01_JPRB,5.2648E+01_JPRB,5.2016E+01_JPRB/)
+KAO( :, 5,11) = (/&
+&5.9396E+01_JPRB,5.8482E+01_JPRB,5.7563E+01_JPRB,5.6780E+01_JPRB,5.6221E+01_JPRB/)
+KAO( :, 6,11) = (/&
+&6.3331E+01_JPRB,6.2412E+01_JPRB,6.1450E+01_JPRB,6.0859E+01_JPRB,6.0233E+01_JPRB/)
+KAO( :, 7,11) = (/&
+&6.6545E+01_JPRB,6.5768E+01_JPRB,6.5025E+01_JPRB,6.4467E+01_JPRB,6.3676E+01_JPRB/)
+KAO( :, 8,11) = (/&
+&6.9498E+01_JPRB,6.8933E+01_JPRB,6.8310E+01_JPRB,6.7609E+01_JPRB,6.6704E+01_JPRB/)
+KAO( :, 9,11) = (/&
+&7.1921E+01_JPRB,7.1404E+01_JPRB,7.0826E+01_JPRB,7.0092E+01_JPRB,6.9245E+01_JPRB/)
+KAO( :,10,11) = (/&
+&7.3427E+01_JPRB,7.3002E+01_JPRB,7.2375E+01_JPRB,7.1636E+01_JPRB,7.0858E+01_JPRB/)
+KAO( :,11,11) = (/&
+&7.3760E+01_JPRB,7.3287E+01_JPRB,7.2603E+01_JPRB,7.1801E+01_JPRB,7.0946E+01_JPRB/)
+KAO( :,12,11) = (/&
+&7.2915E+01_JPRB,7.2168E+01_JPRB,7.1245E+01_JPRB,7.0254E+01_JPRB,6.9156E+01_JPRB/)
+KAO( :,13,11) = (/&
+&7.0157E+01_JPRB,6.9120E+01_JPRB,6.8062E+01_JPRB,6.6888E+01_JPRB,6.5831E+01_JPRB/)
+KAO( :, 1,12) = (/&
+&5.0027E+01_JPRB,4.9611E+01_JPRB,4.9300E+01_JPRB,4.8951E+01_JPRB,4.8362E+01_JPRB/)
+KAO( :, 2,12) = (/&
+&5.7937E+01_JPRB,5.7505E+01_JPRB,5.7159E+01_JPRB,5.6651E+01_JPRB,5.5993E+01_JPRB/)
+KAO( :, 3,12) = (/&
+&6.6111E+01_JPRB,6.5700E+01_JPRB,6.5251E+01_JPRB,6.4576E+01_JPRB,6.3894E+01_JPRB/)
+KAO( :, 4,12) = (/&
+&7.3585E+01_JPRB,7.2903E+01_JPRB,7.2232E+01_JPRB,7.1435E+01_JPRB,7.0602E+01_JPRB/)
+KAO( :, 5,12) = (/&
+&7.9953E+01_JPRB,7.9031E+01_JPRB,7.8235E+01_JPRB,7.7242E+01_JPRB,7.6289E+01_JPRB/)
+KAO( :, 6,12) = (/&
+&8.6205E+01_JPRB,8.5051E+01_JPRB,8.4155E+01_JPRB,8.3091E+01_JPRB,8.2068E+01_JPRB/)
+KAO( :, 7,12) = (/&
+&9.2997E+01_JPRB,9.1567E+01_JPRB,9.0372E+01_JPRB,8.9220E+01_JPRB,8.8255E+01_JPRB/)
+KAO( :, 8,12) = (/&
+&9.9753E+01_JPRB,9.8062E+01_JPRB,9.6706E+01_JPRB,9.5557E+01_JPRB,9.4592E+01_JPRB/)
+KAO( :, 9,12) = (/&
+&1.0585E+02_JPRB,1.0395E+02_JPRB,1.0257E+02_JPRB,1.0128E+02_JPRB,1.0041E+02_JPRB/)
+KAO( :,10,12) = (/&
+&1.1079E+02_JPRB,1.0894E+02_JPRB,1.0770E+02_JPRB,1.0659E+02_JPRB,1.0559E+02_JPRB/)
+KAO( :,11,12) = (/&
+&1.1382E+02_JPRB,1.1273E+02_JPRB,1.1179E+02_JPRB,1.1077E+02_JPRB,1.0960E+02_JPRB/)
+KAO( :,12,12) = (/&
+&1.1615E+02_JPRB,1.1562E+02_JPRB,1.1476E+02_JPRB,1.1362E+02_JPRB,1.1239E+02_JPRB/)
+KAO( :,13,12) = (/&
+&1.1766E+02_JPRB,1.1707E+02_JPRB,1.1606E+02_JPRB,1.1493E+02_JPRB,1.1363E+02_JPRB/)
+KAO( :, 1,13) = (/&
+&5.9338E+01_JPRB,5.8766E+01_JPRB,5.8140E+01_JPRB,5.7609E+01_JPRB,5.7193E+01_JPRB/)
+KAO( :, 2,13) = (/&
+&6.9799E+01_JPRB,6.9254E+01_JPRB,6.8563E+01_JPRB,6.7850E+01_JPRB,6.7241E+01_JPRB/)
+KAO( :, 3,13) = (/&
+&8.2129E+01_JPRB,8.1337E+01_JPRB,8.0301E+01_JPRB,7.9572E+01_JPRB,7.8927E+01_JPRB/)
+KAO( :, 4,13) = (/&
+&9.5236E+01_JPRB,9.4396E+01_JPRB,9.3373E+01_JPRB,9.2365E+01_JPRB,9.1463E+01_JPRB/)
+KAO( :, 5,13) = (/&
+&1.0931E+02_JPRB,1.0828E+02_JPRB,1.0716E+02_JPRB,1.0592E+02_JPRB,1.0469E+02_JPRB/)
+KAO( :, 6,13) = (/&
+&1.2326E+02_JPRB,1.2219E+02_JPRB,1.2081E+02_JPRB,1.1929E+02_JPRB,1.1786E+02_JPRB/)
+KAO( :, 7,13) = (/&
+&1.3701E+02_JPRB,1.3559E+02_JPRB,1.3388E+02_JPRB,1.3200E+02_JPRB,1.3026E+02_JPRB/)
+KAO( :, 8,13) = (/&
+&1.5000E+02_JPRB,1.4809E+02_JPRB,1.4591E+02_JPRB,1.4371E+02_JPRB,1.4177E+02_JPRB/)
+KAO( :, 9,13) = (/&
+&1.6256E+02_JPRB,1.6031E+02_JPRB,1.5793E+02_JPRB,1.5565E+02_JPRB,1.5331E+02_JPRB/)
+KAO( :,10,13) = (/&
+&1.7522E+02_JPRB,1.7277E+02_JPRB,1.7005E+02_JPRB,1.6730E+02_JPRB,1.6477E+02_JPRB/)
+KAO( :,11,13) = (/&
+&1.8704E+02_JPRB,1.8360E+02_JPRB,1.8020E+02_JPRB,1.7766E+02_JPRB,1.7538E+02_JPRB/)
+KAO( :,12,13) = (/&
+&1.9721E+02_JPRB,1.9323E+02_JPRB,1.9024E+02_JPRB,1.8798E+02_JPRB,1.8579E+02_JPRB/)
+KAO( :,13,13) = (/&
+&2.0522E+02_JPRB,2.0182E+02_JPRB,1.9928E+02_JPRB,1.9689E+02_JPRB,1.9487E+02_JPRB/)
+KAO( :, 1,14) = (/&
+&6.7502E+01_JPRB,6.6524E+01_JPRB,6.6072E+01_JPRB,6.5802E+01_JPRB,6.5743E+01_JPRB/)
+KAO( :, 2,14) = (/&
+&8.2170E+01_JPRB,8.1149E+01_JPRB,8.0359E+01_JPRB,7.9744E+01_JPRB,7.9317E+01_JPRB/)
+KAO( :, 3,14) = (/&
+&1.0017E+02_JPRB,9.8960E+01_JPRB,9.7919E+01_JPRB,9.6962E+01_JPRB,9.5952E+01_JPRB/)
+KAO( :, 4,14) = (/&
+&1.2011E+02_JPRB,1.1875E+02_JPRB,1.1746E+02_JPRB,1.1624E+02_JPRB,1.1505E+02_JPRB/)
+KAO( :, 5,14) = (/&
+&1.4236E+02_JPRB,1.4034E+02_JPRB,1.3884E+02_JPRB,1.3761E+02_JPRB,1.3626E+02_JPRB/)
+KAO( :, 6,14) = (/&
+&1.6712E+02_JPRB,1.6463E+02_JPRB,1.6306E+02_JPRB,1.6156E+02_JPRB,1.5998E+02_JPRB/)
+KAO( :, 7,14) = (/&
+&1.9406E+02_JPRB,1.9176E+02_JPRB,1.8985E+02_JPRB,1.8810E+02_JPRB,1.8617E+02_JPRB/)
+KAO( :, 8,14) = (/&
+&2.2382E+02_JPRB,2.2149E+02_JPRB,2.1954E+02_JPRB,2.1758E+02_JPRB,2.1540E+02_JPRB/)
+KAO( :, 9,14) = (/&
+&2.5634E+02_JPRB,2.5414E+02_JPRB,2.5166E+02_JPRB,2.4940E+02_JPRB,2.4661E+02_JPRB/)
+KAO( :,10,14) = (/&
+&2.8999E+02_JPRB,2.8771E+02_JPRB,2.8448E+02_JPRB,2.8216E+02_JPRB,2.7875E+02_JPRB/)
+KAO( :,11,14) = (/&
+&3.2226E+02_JPRB,3.1916E+02_JPRB,3.1653E+02_JPRB,3.1272E+02_JPRB,3.0896E+02_JPRB/)
+KAO( :,12,14) = (/&
+&3.5464E+02_JPRB,3.5123E+02_JPRB,3.4726E+02_JPRB,3.4270E+02_JPRB,3.3845E+02_JPRB/)
+KAO( :,13,14) = (/&
+&3.8725E+02_JPRB,3.8309E+02_JPRB,3.7834E+02_JPRB,3.7304E+02_JPRB,3.6820E+02_JPRB/)
+KAO( :, 1,15) = (/&
+&7.8084E+01_JPRB,7.7914E+01_JPRB,7.8402E+01_JPRB,7.8217E+01_JPRB,7.8646E+01_JPRB/)
+KAO( :, 2,15) = (/&
+&9.4779E+01_JPRB,9.4641E+01_JPRB,9.4900E+01_JPRB,9.5560E+01_JPRB,9.6118E+01_JPRB/)
+KAO( :, 3,15) = (/&
+&1.1669E+02_JPRB,1.1613E+02_JPRB,1.1582E+02_JPRB,1.1604E+02_JPRB,1.1741E+02_JPRB/)
+KAO( :, 4,15) = (/&
+&1.4166E+02_JPRB,1.4067E+02_JPRB,1.3938E+02_JPRB,1.3929E+02_JPRB,1.4030E+02_JPRB/)
+KAO( :, 5,15) = (/&
+&1.7200E+02_JPRB,1.6974E+02_JPRB,1.6765E+02_JPRB,1.6701E+02_JPRB,1.6674E+02_JPRB/)
+KAO( :, 6,15) = (/&
+&2.0913E+02_JPRB,2.0570E+02_JPRB,2.0221E+02_JPRB,2.0039E+02_JPRB,1.9903E+02_JPRB/)
+KAO( :, 7,15) = (/&
+&2.5392E+02_JPRB,2.4919E+02_JPRB,2.4443E+02_JPRB,2.4058E+02_JPRB,2.3803E+02_JPRB/)
+KAO( :, 8,15) = (/&
+&3.0711E+02_JPRB,3.0120E+02_JPRB,2.9497E+02_JPRB,2.8940E+02_JPRB,2.8562E+02_JPRB/)
+KAO( :, 9,15) = (/&
+&3.7033E+02_JPRB,3.6170E+02_JPRB,3.5403E+02_JPRB,3.4775E+02_JPRB,3.4171E+02_JPRB/)
+KAO( :,10,15) = (/&
+&4.4192E+02_JPRB,4.3106E+02_JPRB,4.2140E+02_JPRB,4.1427E+02_JPRB,4.0680E+02_JPRB/)
+KAO( :,11,15) = (/&
+&5.1756E+02_JPRB,5.0440E+02_JPRB,4.9429E+02_JPRB,4.8599E+02_JPRB,4.7734E+02_JPRB/)
+KAO( :,12,15) = (/&
+&6.0261E+02_JPRB,5.8732E+02_JPRB,5.7721E+02_JPRB,5.6784E+02_JPRB,5.5802E+02_JPRB/)
+KAO( :,13,15) = (/&
+&6.9467E+02_JPRB,6.8189E+02_JPRB,6.7026E+02_JPRB,6.5869E+02_JPRB,6.4922E+02_JPRB/)
+KAO( :, 1,16) = (/&
+&8.4011E+01_JPRB,8.3820E+01_JPRB,8.3802E+01_JPRB,8.4342E+01_JPRB,8.4737E+01_JPRB/)
+KAO( :, 2,16) = (/&
+&1.0457E+02_JPRB,1.0437E+02_JPRB,1.0452E+02_JPRB,1.0492E+02_JPRB,1.0505E+02_JPRB/)
+KAO( :, 3,16) = (/&
+&1.3081E+02_JPRB,1.3074E+02_JPRB,1.3067E+02_JPRB,1.3085E+02_JPRB,1.3130E+02_JPRB/)
+KAO( :, 4,16) = (/&
+&1.6036E+02_JPRB,1.6101E+02_JPRB,1.6092E+02_JPRB,1.6141E+02_JPRB,1.6148E+02_JPRB/)
+KAO( :, 5,16) = (/&
+&1.9521E+02_JPRB,1.9614E+02_JPRB,1.9659E+02_JPRB,1.9718E+02_JPRB,1.9784E+02_JPRB/)
+KAO( :, 6,16) = (/&
+&2.3599E+02_JPRB,2.3769E+02_JPRB,2.3905E+02_JPRB,2.3984E+02_JPRB,2.4105E+02_JPRB/)
+KAO( :, 7,16) = (/&
+&2.8624E+02_JPRB,2.8792E+02_JPRB,2.8925E+02_JPRB,2.9040E+02_JPRB,2.9197E+02_JPRB/)
+KAO( :, 8,16) = (/&
+&3.4928E+02_JPRB,3.4848E+02_JPRB,3.4810E+02_JPRB,3.5059E+02_JPRB,3.5311E+02_JPRB/)
+KAO( :, 9,16) = (/&
+&4.2722E+02_JPRB,4.2296E+02_JPRB,4.2078E+02_JPRB,4.2340E+02_JPRB,4.2506E+02_JPRB/)
+KAO( :,10,16) = (/&
+&5.2290E+02_JPRB,5.1431E+02_JPRB,5.1021E+02_JPRB,5.0875E+02_JPRB,5.0973E+02_JPRB/)
+KAO( :,11,16) = (/&
+&6.3361E+02_JPRB,6.2265E+02_JPRB,6.1495E+02_JPRB,6.1325E+02_JPRB,6.1231E+02_JPRB/)
+KAO( :,12,16) = (/&
+&7.6899E+02_JPRB,7.5167E+02_JPRB,7.4101E+02_JPRB,7.3718E+02_JPRB,7.3364E+02_JPRB/)
+KAO( :,13,16) = (/&
+&9.2904E+02_JPRB,9.0879E+02_JPRB,8.9032E+02_JPRB,8.8110E+02_JPRB,8.7634E+02_JPRB/)
+
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&1.6448E-02_JPRB,1.6981E-02_JPRB,1.7447E-02_JPRB,1.7868E-02_JPRB,1.8252E-02_JPRB/)
+KBO( :,14, 1) = (/&
+&1.3791E-02_JPRB,1.4222E-02_JPRB,1.4610E-02_JPRB,1.4952E-02_JPRB,1.5267E-02_JPRB/)
+KBO( :,15, 1) = (/&
+&1.1520E-02_JPRB,1.1865E-02_JPRB,1.2171E-02_JPRB,1.2437E-02_JPRB,1.2693E-02_JPRB/)
+KBO( :,16, 1) = (/&
+&9.5363E-03_JPRB,9.8097E-03_JPRB,1.0040E-02_JPRB,1.0251E-02_JPRB,1.0450E-02_JPRB/)
+KBO( :,17, 1) = (/&
+&7.8780E-03_JPRB,8.0826E-03_JPRB,8.2596E-03_JPRB,8.4216E-03_JPRB,8.5653E-03_JPRB/)
+KBO( :,18, 1) = (/&
+&6.4817E-03_JPRB,6.6351E-03_JPRB,6.7691E-03_JPRB,6.8780E-03_JPRB,6.9825E-03_JPRB/)
+KBO( :,19, 1) = (/&
+&5.3453E-03_JPRB,5.4640E-03_JPRB,5.5554E-03_JPRB,5.6332E-03_JPRB,5.7111E-03_JPRB/)
+KBO( :,20, 1) = (/&
+&4.4040E-03_JPRB,4.4936E-03_JPRB,4.5584E-03_JPRB,4.6182E-03_JPRB,4.6772E-03_JPRB/)
+KBO( :,21, 1) = (/&
+&3.6258E-03_JPRB,3.6901E-03_JPRB,3.7391E-03_JPRB,3.7854E-03_JPRB,3.8304E-03_JPRB/)
+KBO( :,22, 1) = (/&
+&2.9839E-03_JPRB,3.0283E-03_JPRB,3.0657E-03_JPRB,3.1009E-03_JPRB,3.1358E-03_JPRB/)
+KBO( :,23, 1) = (/&
+&2.4521E-03_JPRB,2.4841E-03_JPRB,2.5126E-03_JPRB,2.5397E-03_JPRB,2.5675E-03_JPRB/)
+KBO( :,24, 1) = (/&
+&2.0171E-03_JPRB,2.0411E-03_JPRB,2.0630E-03_JPRB,2.0844E-03_JPRB,2.1071E-03_JPRB/)
+KBO( :,25, 1) = (/&
+&1.6582E-03_JPRB,1.6765E-03_JPRB,1.6934E-03_JPRB,1.7108E-03_JPRB,1.7288E-03_JPRB/)
+KBO( :,26, 1) = (/&
+&1.3630E-03_JPRB,1.3770E-03_JPRB,1.3905E-03_JPRB,1.4049E-03_JPRB,1.4189E-03_JPRB/)
+KBO( :,27, 1) = (/&
+&1.1189E-03_JPRB,1.1298E-03_JPRB,1.1410E-03_JPRB,1.1528E-03_JPRB,1.1640E-03_JPRB/)
+KBO( :,28, 1) = (/&
+&9.1766E-04_JPRB,9.2656E-04_JPRB,9.3588E-04_JPRB,9.4542E-04_JPRB,9.5464E-04_JPRB/)
+KBO( :,29, 1) = (/&
+&7.5009E-04_JPRB,7.5750E-04_JPRB,7.6532E-04_JPRB,7.7307E-04_JPRB,7.8058E-04_JPRB/)
+KBO( :,30, 1) = (/&
+&6.1229E-04_JPRB,6.1848E-04_JPRB,6.2499E-04_JPRB,6.3126E-04_JPRB,6.3737E-04_JPRB/)
+KBO( :,31, 1) = (/&
+&4.9822E-04_JPRB,5.0337E-04_JPRB,5.0876E-04_JPRB,5.1376E-04_JPRB,5.1867E-04_JPRB/)
+KBO( :,32, 1) = (/&
+&4.0576E-04_JPRB,4.1007E-04_JPRB,4.1447E-04_JPRB,4.1853E-04_JPRB,4.2247E-04_JPRB/)
+KBO( :,33, 1) = (/&
+&3.3066E-04_JPRB,3.3431E-04_JPRB,3.3786E-04_JPRB,3.4118E-04_JPRB,3.4427E-04_JPRB/)
+KBO( :,34, 1) = (/&
+&2.7031E-04_JPRB,2.7336E-04_JPRB,2.7627E-04_JPRB,2.7896E-04_JPRB,2.8137E-04_JPRB/)
+KBO( :,35, 1) = (/&
+&2.2093E-04_JPRB,2.2344E-04_JPRB,2.2584E-04_JPRB,2.2800E-04_JPRB,2.2992E-04_JPRB/)
+KBO( :,36, 1) = (/&
+&1.8050E-04_JPRB,1.8257E-04_JPRB,1.8457E-04_JPRB,1.8634E-04_JPRB,1.8790E-04_JPRB/)
+KBO( :,37, 1) = (/&
+&1.4754E-04_JPRB,1.4928E-04_JPRB,1.5098E-04_JPRB,1.5247E-04_JPRB,1.5379E-04_JPRB/)
+KBO( :,38, 1) = (/&
+&1.2055E-04_JPRB,1.2202E-04_JPRB,1.2346E-04_JPRB,1.2473E-04_JPRB,1.2584E-04_JPRB/)
+KBO( :,39, 1) = (/&
+&9.8439E-05_JPRB,9.9693E-05_JPRB,1.0089E-04_JPRB,1.0198E-04_JPRB,1.0292E-04_JPRB/)
+KBO( :,40, 1) = (/&
+&8.0526E-05_JPRB,8.1618E-05_JPRB,8.2621E-05_JPRB,8.3584E-05_JPRB,8.4404E-05_JPRB/)
+KBO( :,41, 1) = (/&
+&6.5872E-05_JPRB,6.6811E-05_JPRB,6.7670E-05_JPRB,6.8504E-05_JPRB,6.9227E-05_JPRB/)
+KBO( :,42, 1) = (/&
+&5.3861E-05_JPRB,5.4663E-05_JPRB,5.5407E-05_JPRB,5.6110E-05_JPRB,5.6761E-05_JPRB/)
+KBO( :,43, 1) = (/&
+&4.4048E-05_JPRB,4.4743E-05_JPRB,4.5396E-05_JPRB,4.6004E-05_JPRB,4.6586E-05_JPRB/)
+KBO( :,44, 1) = (/&
+&3.6000E-05_JPRB,3.6620E-05_JPRB,3.7187E-05_JPRB,3.7726E-05_JPRB,3.8228E-05_JPRB/)
+KBO( :,45, 1) = (/&
+&2.9370E-05_JPRB,2.9944E-05_JPRB,3.0441E-05_JPRB,3.0913E-05_JPRB,3.1356E-05_JPRB/)
+KBO( :,46, 1) = (/&
+&2.3891E-05_JPRB,2.4458E-05_JPRB,2.4903E-05_JPRB,2.5314E-05_JPRB,2.5708E-05_JPRB/)
+KBO( :,47, 1) = (/&
+&1.9404E-05_JPRB,1.9925E-05_JPRB,2.0357E-05_JPRB,2.0722E-05_JPRB,2.1066E-05_JPRB/)
+KBO( :,48, 1) = (/&
+&1.5725E-05_JPRB,1.6197E-05_JPRB,1.6603E-05_JPRB,1.6945E-05_JPRB,1.7248E-05_JPRB/)
+KBO( :,49, 1) = (/&
+&1.2722E-05_JPRB,1.3139E-05_JPRB,1.3505E-05_JPRB,1.3828E-05_JPRB,1.4106E-05_JPRB/)
+KBO( :,50, 1) = (/&
+&1.0301E-05_JPRB,1.0665E-05_JPRB,1.0996E-05_JPRB,1.1280E-05_JPRB,1.1543E-05_JPRB/)
+KBO( :,51, 1) = (/&
+&8.3385E-06_JPRB,8.6603E-06_JPRB,8.9500E-06_JPRB,9.2043E-06_JPRB,9.4349E-06_JPRB/)
+KBO( :,52, 1) = (/&
+&6.7457E-06_JPRB,7.0201E-06_JPRB,7.2750E-06_JPRB,7.5028E-06_JPRB,7.7047E-06_JPRB/)
+KBO( :,53, 1) = (/&
+&5.4538E-06_JPRB,5.6816E-06_JPRB,5.9061E-06_JPRB,6.1054E-06_JPRB,6.2862E-06_JPRB/)
+KBO( :,54, 1) = (/&
+&4.4285E-06_JPRB,4.6181E-06_JPRB,4.8085E-06_JPRB,4.9862E-06_JPRB,5.1448E-06_JPRB/)
+KBO( :,55, 1) = (/&
+&3.6038E-06_JPRB,3.7624E-06_JPRB,3.9229E-06_JPRB,4.0804E-06_JPRB,4.2193E-06_JPRB/)
+KBO( :,56, 1) = (/&
+&2.9326E-06_JPRB,3.0656E-06_JPRB,3.2010E-06_JPRB,3.3368E-06_JPRB,3.4604E-06_JPRB/)
+KBO( :,57, 1) = (/&
+&2.3859E-06_JPRB,2.4983E-06_JPRB,2.6127E-06_JPRB,2.7280E-06_JPRB,2.8384E-06_JPRB/)
+KBO( :,58, 1) = (/&
+&1.9434E-06_JPRB,2.0390E-06_JPRB,2.1360E-06_JPRB,2.2340E-06_JPRB,2.3298E-06_JPRB/)
+KBO( :,59, 1) = (/&
+&1.6040E-06_JPRB,1.6859E-06_JPRB,1.7694E-06_JPRB,1.8537E-06_JPRB,1.9359E-06_JPRB/)
+KBO( :,13, 2) = (/&
+&6.5857E-02_JPRB,6.3975E-02_JPRB,6.2348E-02_JPRB,6.0811E-02_JPRB,5.9318E-02_JPRB/)
+KBO( :,14, 2) = (/&
+&5.5335E-02_JPRB,5.3693E-02_JPRB,5.2240E-02_JPRB,5.0877E-02_JPRB,4.9563E-02_JPRB/)
+KBO( :,15, 2) = (/&
+&4.5552E-02_JPRB,4.4145E-02_JPRB,4.2866E-02_JPRB,4.1679E-02_JPRB,4.0479E-02_JPRB/)
+KBO( :,16, 2) = (/&
+&3.6852E-02_JPRB,3.5658E-02_JPRB,3.4584E-02_JPRB,3.3581E-02_JPRB,3.2436E-02_JPRB/)
+KBO( :,17, 2) = (/&
+&2.9622E-02_JPRB,2.8635E-02_JPRB,2.7748E-02_JPRB,2.6847E-02_JPRB,2.5789E-02_JPRB/)
+KBO( :,18, 2) = (/&
+&2.3577E-02_JPRB,2.2776E-02_JPRB,2.2036E-02_JPRB,2.1181E-02_JPRB,2.0244E-02_JPRB/)
+KBO( :,19, 2) = (/&
+&1.8914E-02_JPRB,1.8260E-02_JPRB,1.7601E-02_JPRB,1.6830E-02_JPRB,1.6029E-02_JPRB/)
+KBO( :,20, 2) = (/&
+&1.5260E-02_JPRB,1.4727E-02_JPRB,1.4133E-02_JPRB,1.3470E-02_JPRB,1.2804E-02_JPRB/)
+KBO( :,21, 2) = (/&
+&1.2334E-02_JPRB,1.1886E-02_JPRB,1.1364E-02_JPRB,1.0806E-02_JPRB,1.0260E-02_JPRB/)
+KBO( :,22, 2) = (/&
+&9.9375E-03_JPRB,9.5457E-03_JPRB,9.0943E-03_JPRB,8.6315E-03_JPRB,8.1875E-03_JPRB/)
+KBO( :,23, 2) = (/&
+&8.0034E-03_JPRB,7.6569E-03_JPRB,7.2757E-03_JPRB,6.8952E-03_JPRB,6.5351E-03_JPRB/)
+KBO( :,24, 2) = (/&
+&6.4644E-03_JPRB,6.1649E-03_JPRB,5.8474E-03_JPRB,5.5363E-03_JPRB,5.2447E-03_JPRB/)
+KBO( :,25, 2) = (/&
+&5.2170E-03_JPRB,4.9615E-03_JPRB,4.6990E-03_JPRB,4.4463E-03_JPRB,4.2118E-03_JPRB/)
+KBO( :,26, 2) = (/&
+&4.2078E-03_JPRB,3.9936E-03_JPRB,3.7782E-03_JPRB,3.5736E-03_JPRB,3.3867E-03_JPRB/)
+KBO( :,27, 2) = (/&
+&3.3923E-03_JPRB,3.2149E-03_JPRB,3.0399E-03_JPRB,2.8755E-03_JPRB,2.7265E-03_JPRB/)
+KBO( :,28, 2) = (/&
+&2.7345E-03_JPRB,2.5888E-03_JPRB,2.4474E-03_JPRB,2.3159E-03_JPRB,2.1973E-03_JPRB/)
+KBO( :,29, 2) = (/&
+&2.1927E-03_JPRB,2.0742E-03_JPRB,1.9609E-03_JPRB,1.8566E-03_JPRB,1.7629E-03_JPRB/)
+KBO( :,30, 2) = (/&
+&1.7534E-03_JPRB,1.6577E-03_JPRB,1.5672E-03_JPRB,1.4849E-03_JPRB,1.4111E-03_JPRB/)
+KBO( :,31, 2) = (/&
+&1.3923E-03_JPRB,1.3158E-03_JPRB,1.2442E-03_JPRB,1.1799E-03_JPRB,1.1222E-03_JPRB/)
+KBO( :,32, 2) = (/&
+&1.1073E-03_JPRB,1.0463E-03_JPRB,9.9006E-04_JPRB,9.3956E-04_JPRB,8.9454E-04_JPRB/)
+KBO( :,33, 2) = (/&
+&8.8168E-04_JPRB,8.3321E-04_JPRB,7.8903E-04_JPRB,7.4943E-04_JPRB,7.1437E-04_JPRB/)
+KBO( :,34, 2) = (/&
+&7.0843E-04_JPRB,6.6985E-04_JPRB,6.3483E-04_JPRB,6.0356E-04_JPRB,5.7597E-04_JPRB/)
+KBO( :,35, 2) = (/&
+&5.7335E-04_JPRB,5.4243E-04_JPRB,5.1437E-04_JPRB,4.8935E-04_JPRB,4.6731E-04_JPRB/)
+KBO( :,36, 2) = (/&
+&4.6786E-04_JPRB,4.4279E-04_JPRB,4.2001E-04_JPRB,3.9969E-04_JPRB,3.8175E-04_JPRB/)
+KBO( :,37, 2) = (/&
+&3.8722E-04_JPRB,3.6652E-04_JPRB,3.4765E-04_JPRB,3.3074E-04_JPRB,3.1577E-04_JPRB/)
+KBO( :,38, 2) = (/&
+&3.2064E-04_JPRB,3.0358E-04_JPRB,2.8795E-04_JPRB,2.7387E-04_JPRB,2.6137E-04_JPRB/)
+KBO( :,39, 2) = (/&
+&2.6542E-04_JPRB,2.5139E-04_JPRB,2.3846E-04_JPRB,2.2675E-04_JPRB,2.1632E-04_JPRB/)
+KBO( :,40, 2) = (/&
+&2.2243E-04_JPRB,2.1077E-04_JPRB,1.9994E-04_JPRB,1.9003E-04_JPRB,1.8117E-04_JPRB/)
+KBO( :,41, 2) = (/&
+&1.8662E-04_JPRB,1.7701E-04_JPRB,1.6793E-04_JPRB,1.5956E-04_JPRB,1.5202E-04_JPRB/)
+KBO( :,42, 2) = (/&
+&1.5648E-04_JPRB,1.4863E-04_JPRB,1.4106E-04_JPRB,1.3402E-04_JPRB,1.2761E-04_JPRB/)
+KBO( :,43, 2) = (/&
+&1.3212E-04_JPRB,1.2582E-04_JPRB,1.1952E-04_JPRB,1.1357E-04_JPRB,1.0810E-04_JPRB/)
+KBO( :,44, 2) = (/&
+&1.1174E-04_JPRB,1.0680E-04_JPRB,1.0165E-04_JPRB,9.6663E-05_JPRB,9.2016E-05_JPRB/)
+KBO( :,45, 2) = (/&
+&9.4238E-05_JPRB,9.0536E-05_JPRB,8.6432E-05_JPRB,8.2292E-05_JPRB,7.8367E-05_JPRB/)
+KBO( :,46, 2) = (/&
+&7.9325E-05_JPRB,7.6718E-05_JPRB,7.3544E-05_JPRB,7.0182E-05_JPRB,6.6892E-05_JPRB/)
+KBO( :,47, 2) = (/&
+&6.6879E-05_JPRB,6.4961E-05_JPRB,6.2686E-05_JPRB,6.0033E-05_JPRB,5.7320E-05_JPRB/)
+KBO( :,48, 2) = (/&
+&5.6419E-05_JPRB,5.4793E-05_JPRB,5.3249E-05_JPRB,5.1268E-05_JPRB,4.9104E-05_JPRB/)
+KBO( :,49, 2) = (/&
+&4.7582E-05_JPRB,4.6223E-05_JPRB,4.5008E-05_JPRB,4.3677E-05_JPRB,4.2007E-05_JPRB/)
+KBO( :,50, 2) = (/&
+&4.0134E-05_JPRB,3.9021E-05_JPRB,3.7999E-05_JPRB,3.7054E-05_JPRB,3.5858E-05_JPRB/)
+KBO( :,51, 2) = (/&
+&3.3881E-05_JPRB,3.2950E-05_JPRB,3.2114E-05_JPRB,3.1337E-05_JPRB,3.0540E-05_JPRB/)
+KBO( :,52, 2) = (/&
+&2.8622E-05_JPRB,2.7826E-05_JPRB,2.7144E-05_JPRB,2.6512E-05_JPRB,2.5904E-05_JPRB/)
+KBO( :,53, 2) = (/&
+&2.4202E-05_JPRB,2.3517E-05_JPRB,2.2936E-05_JPRB,2.2437E-05_JPRB,2.1946E-05_JPRB/)
+KBO( :,54, 2) = (/&
+&2.0552E-05_JPRB,1.9947E-05_JPRB,1.9446E-05_JPRB,1.9029E-05_JPRB,1.8643E-05_JPRB/)
+KBO( :,55, 2) = (/&
+&1.7521E-05_JPRB,1.6983E-05_JPRB,1.6547E-05_JPRB,1.6182E-05_JPRB,1.5869E-05_JPRB/)
+KBO( :,56, 2) = (/&
+&1.4964E-05_JPRB,1.4501E-05_JPRB,1.4113E-05_JPRB,1.3797E-05_JPRB,1.3531E-05_JPRB/)
+KBO( :,57, 2) = (/&
+&1.2786E-05_JPRB,1.2428E-05_JPRB,1.2073E-05_JPRB,1.1795E-05_JPRB,1.1567E-05_JPRB/)
+KBO( :,58, 2) = (/&
+&1.0926E-05_JPRB,1.0676E-05_JPRB,1.0370E-05_JPRB,1.0111E-05_JPRB,9.9144E-06_JPRB/)
+KBO( :,59, 2) = (/&
+&9.3343E-06_JPRB,9.1398E-06_JPRB,8.8844E-06_JPRB,8.6525E-06_JPRB,8.4760E-06_JPRB/)
+KBO( :,13, 3) = (/&
+&1.1578E-01_JPRB,1.0716E-01_JPRB,9.8800E-02_JPRB,9.1233E-02_JPRB,8.4552E-02_JPRB/)
+KBO( :,14, 3) = (/&
+&9.6358E-02_JPRB,8.8872E-02_JPRB,8.1796E-02_JPRB,7.5462E-02_JPRB,6.9923E-02_JPRB/)
+KBO( :,15, 3) = (/&
+&7.7679E-02_JPRB,7.1362E-02_JPRB,6.5590E-02_JPRB,6.0478E-02_JPRB,5.6079E-02_JPRB/)
+KBO( :,16, 3) = (/&
+&6.1300E-02_JPRB,5.6180E-02_JPRB,5.1590E-02_JPRB,4.7554E-02_JPRB,4.4239E-02_JPRB/)
+KBO( :,17, 3) = (/&
+&4.8045E-02_JPRB,4.3962E-02_JPRB,4.0343E-02_JPRB,3.7246E-02_JPRB,3.4805E-02_JPRB/)
+KBO( :,18, 3) = (/&
+&3.7178E-02_JPRB,3.3974E-02_JPRB,3.1173E-02_JPRB,2.8927E-02_JPRB,2.7155E-02_JPRB/)
+KBO( :,19, 3) = (/&
+&2.9119E-02_JPRB,2.6589E-02_JPRB,2.4456E-02_JPRB,2.2801E-02_JPRB,2.1476E-02_JPRB/)
+KBO( :,20, 3) = (/&
+&2.3060E-02_JPRB,2.1055E-02_JPRB,1.9446E-02_JPRB,1.8194E-02_JPRB,1.7172E-02_JPRB/)
+KBO( :,21, 3) = (/&
+&1.8331E-02_JPRB,1.6763E-02_JPRB,1.5542E-02_JPRB,1.4585E-02_JPRB,1.3783E-02_JPRB/)
+KBO( :,22, 3) = (/&
+&1.4479E-02_JPRB,1.3291E-02_JPRB,1.2379E-02_JPRB,1.1652E-02_JPRB,1.1027E-02_JPRB/)
+KBO( :,23, 3) = (/&
+&1.1453E-02_JPRB,1.0564E-02_JPRB,9.8785E-03_JPRB,9.3186E-03_JPRB,8.8332E-03_JPRB/)
+KBO( :,24, 3) = (/&
+&9.1256E-03_JPRB,8.4545E-03_JPRB,7.9319E-03_JPRB,7.4939E-03_JPRB,7.1141E-03_JPRB/)
+KBO( :,25, 3) = (/&
+&7.2833E-03_JPRB,6.7767E-03_JPRB,6.3758E-03_JPRB,6.0322E-03_JPRB,5.7344E-03_JPRB/)
+KBO( :,26, 3) = (/&
+&5.8255E-03_JPRB,5.4418E-03_JPRB,5.1312E-03_JPRB,4.8611E-03_JPRB,4.6284E-03_JPRB/)
+KBO( :,27, 3) = (/&
+&4.6693E-03_JPRB,4.3763E-03_JPRB,4.1328E-03_JPRB,3.9209E-03_JPRB,3.7392E-03_JPRB/)
+KBO( :,28, 3) = (/&
+&3.7489E-03_JPRB,3.5232E-03_JPRB,3.3314E-03_JPRB,3.1652E-03_JPRB,3.0230E-03_JPRB/)
+KBO( :,29, 3) = (/&
+&2.9982E-03_JPRB,2.8244E-03_JPRB,2.6743E-03_JPRB,2.5451E-03_JPRB,2.4345E-03_JPRB/)
+KBO( :,30, 3) = (/&
+&2.3941E-03_JPRB,2.2596E-03_JPRB,2.1432E-03_JPRB,2.0432E-03_JPRB,1.9574E-03_JPRB/)
+KBO( :,31, 3) = (/&
+&1.9015E-03_JPRB,1.7982E-03_JPRB,1.7086E-03_JPRB,1.6320E-03_JPRB,1.5660E-03_JPRB/)
+KBO( :,32, 3) = (/&
+&1.5140E-03_JPRB,1.4341E-03_JPRB,1.3651E-03_JPRB,1.3063E-03_JPRB,1.2555E-03_JPRB/)
+KBO( :,33, 3) = (/&
+&1.2075E-03_JPRB,1.1458E-03_JPRB,1.0928E-03_JPRB,1.0474E-03_JPRB,1.0084E-03_JPRB/)
+KBO( :,34, 3) = (/&
+&9.7167E-04_JPRB,9.2329E-04_JPRB,8.8190E-04_JPRB,8.4640E-04_JPRB,8.1606E-04_JPRB/)
+KBO( :,35, 3) = (/&
+&7.8747E-04_JPRB,7.4887E-04_JPRB,7.1595E-04_JPRB,6.8779E-04_JPRB,6.6369E-04_JPRB/)
+KBO( :,36, 3) = (/&
+&6.4309E-04_JPRB,6.1175E-04_JPRB,5.8503E-04_JPRB,5.6224E-04_JPRB,5.4265E-04_JPRB/)
+KBO( :,37, 3) = (/&
+&5.3206E-04_JPRB,5.0587E-04_JPRB,4.8341E-04_JPRB,4.6439E-04_JPRB,4.4794E-04_JPRB/)
+KBO( :,38, 3) = (/&
+&4.4053E-04_JPRB,4.1858E-04_JPRB,3.9969E-04_JPRB,3.8376E-04_JPRB,3.6993E-04_JPRB/)
+KBO( :,39, 3) = (/&
+&3.6472E-04_JPRB,3.4631E-04_JPRB,3.3044E-04_JPRB,3.1709E-04_JPRB,3.0547E-04_JPRB/)
+KBO( :,40, 3) = (/&
+&3.0560E-04_JPRB,2.8982E-04_JPRB,2.7615E-04_JPRB,2.6461E-04_JPRB,2.5462E-04_JPRB/)
+KBO( :,41, 3) = (/&
+&2.5670E-04_JPRB,2.4305E-04_JPRB,2.3127E-04_JPRB,2.2125E-04_JPRB,2.1263E-04_JPRB/)
+KBO( :,42, 3) = (/&
+&2.1586E-04_JPRB,2.0401E-04_JPRB,1.9383E-04_JPRB,1.8512E-04_JPRB,1.7766E-04_JPRB/)
+KBO( :,43, 3) = (/&
+&1.8349E-04_JPRB,1.7278E-04_JPRB,1.6384E-04_JPRB,1.5615E-04_JPRB,1.4957E-04_JPRB/)
+KBO( :,44, 3) = (/&
+&1.5716E-04_JPRB,1.4719E-04_JPRB,1.3923E-04_JPRB,1.3237E-04_JPRB,1.2650E-04_JPRB/)
+KBO( :,45, 3) = (/&
+&1.3523E-04_JPRB,1.2581E-04_JPRB,1.1854E-04_JPRB,1.1244E-04_JPRB,1.0719E-04_JPRB/)
+KBO( :,46, 3) = (/&
+&1.1723E-04_JPRB,1.0821E-04_JPRB,1.0137E-04_JPRB,9.5892E-05_JPRB,9.1160E-05_JPRB/)
+KBO( :,47, 3) = (/&
+&1.0246E-04_JPRB,9.4070E-05_JPRB,8.7415E-05_JPRB,8.2283E-05_JPRB,7.8012E-05_JPRB/)
+KBO( :,48, 3) = (/&
+&8.9698E-05_JPRB,8.2247E-05_JPRB,7.5847E-05_JPRB,7.0891E-05_JPRB,6.6960E-05_JPRB/)
+KBO( :,49, 3) = (/&
+&7.8632E-05_JPRB,7.2058E-05_JPRB,6.6260E-05_JPRB,6.1415E-05_JPRB,5.7680E-05_JPRB/)
+KBO( :,50, 3) = (/&
+&6.8816E-05_JPRB,6.3112E-05_JPRB,5.7964E-05_JPRB,5.3476E-05_JPRB,4.9851E-05_JPRB/)
+KBO( :,51, 3) = (/&
+&6.0093E-05_JPRB,5.5311E-05_JPRB,5.0781E-05_JPRB,4.6782E-05_JPRB,4.3320E-05_JPRB/)
+KBO( :,52, 3) = (/&
+&5.2290E-05_JPRB,4.8493E-05_JPRB,4.4587E-05_JPRB,4.1036E-05_JPRB,3.7908E-05_JPRB/)
+KBO( :,53, 3) = (/&
+&4.5363E-05_JPRB,4.2435E-05_JPRB,3.9221E-05_JPRB,3.6100E-05_JPRB,3.3314E-05_JPRB/)
+KBO( :,54, 3) = (/&
+&3.9232E-05_JPRB,3.6987E-05_JPRB,3.4457E-05_JPRB,3.1794E-05_JPRB,2.9324E-05_JPRB/)
+KBO( :,55, 3) = (/&
+&3.3909E-05_JPRB,3.2196E-05_JPRB,3.0223E-05_JPRB,2.8046E-05_JPRB,2.5889E-05_JPRB/)
+KBO( :,56, 3) = (/&
+&2.9375E-05_JPRB,2.7990E-05_JPRB,2.6480E-05_JPRB,2.4756E-05_JPRB,2.2937E-05_JPRB/)
+KBO( :,57, 3) = (/&
+&2.5600E-05_JPRB,2.4324E-05_JPRB,2.3181E-05_JPRB,2.1853E-05_JPRB,2.0369E-05_JPRB/)
+KBO( :,58, 3) = (/&
+&2.2451E-05_JPRB,2.1215E-05_JPRB,2.0255E-05_JPRB,1.9251E-05_JPRB,1.8079E-05_JPRB/)
+KBO( :,59, 3) = (/&
+&1.9440E-05_JPRB,1.8313E-05_JPRB,1.7459E-05_JPRB,1.6654E-05_JPRB,1.5711E-05_JPRB/)
+KBO( :,13, 4) = (/&
+&1.4696E-01_JPRB,1.3536E-01_JPRB,1.2591E-01_JPRB,1.1779E-01_JPRB,1.1082E-01_JPRB/)
+KBO( :,14, 4) = (/&
+&1.2236E-01_JPRB,1.1293E-01_JPRB,1.0507E-01_JPRB,9.8308E-02_JPRB,9.2452E-02_JPRB/)
+KBO( :,15, 4) = (/&
+&9.8855E-02_JPRB,9.1490E-02_JPRB,8.5185E-02_JPRB,7.9782E-02_JPRB,7.5090E-02_JPRB/)
+KBO( :,16, 4) = (/&
+&7.8479E-02_JPRB,7.2784E-02_JPRB,6.7904E-02_JPRB,6.3672E-02_JPRB,6.0007E-02_JPRB/)
+KBO( :,17, 4) = (/&
+&6.2026E-02_JPRB,5.7636E-02_JPRB,5.3869E-02_JPRB,5.0578E-02_JPRB,4.7744E-02_JPRB/)
+KBO( :,18, 4) = (/&
+&4.8533E-02_JPRB,4.5221E-02_JPRB,4.2336E-02_JPRB,3.9824E-02_JPRB,3.7663E-02_JPRB/)
+KBO( :,19, 4) = (/&
+&3.8437E-02_JPRB,3.5877E-02_JPRB,3.3631E-02_JPRB,3.1685E-02_JPRB,3.0017E-02_JPRB/)
+KBO( :,20, 4) = (/&
+&3.0742E-02_JPRB,2.8726E-02_JPRB,2.6959E-02_JPRB,2.5432E-02_JPRB,2.4138E-02_JPRB/)
+KBO( :,21, 4) = (/&
+&2.4672E-02_JPRB,2.3073E-02_JPRB,2.1679E-02_JPRB,2.0477E-02_JPRB,1.9477E-02_JPRB/)
+KBO( :,22, 4) = (/&
+&1.9706E-02_JPRB,1.8455E-02_JPRB,1.7366E-02_JPRB,1.6436E-02_JPRB,1.5677E-02_JPRB/)
+KBO( :,23, 4) = (/&
+&1.5753E-02_JPRB,1.4774E-02_JPRB,1.3923E-02_JPRB,1.3212E-02_JPRB,1.2632E-02_JPRB/)
+KBO( :,24, 4) = (/&
+&1.2655E-02_JPRB,1.1885E-02_JPRB,1.1219E-02_JPRB,1.0672E-02_JPRB,1.0225E-02_JPRB/)
+KBO( :,25, 4) = (/&
+&1.0171E-02_JPRB,9.5654E-03_JPRB,9.0480E-03_JPRB,8.6282E-03_JPRB,8.2836E-03_JPRB/)
+KBO( :,26, 4) = (/&
+&8.1813E-03_JPRB,7.7056E-03_JPRB,7.3062E-03_JPRB,6.9847E-03_JPRB,6.7168E-03_JPRB/)
+KBO( :,27, 4) = (/&
+&6.5848E-03_JPRB,6.2128E-03_JPRB,5.9057E-03_JPRB,5.6577E-03_JPRB,5.4495E-03_JPRB/)
+KBO( :,28, 4) = (/&
+&5.3033E-03_JPRB,5.0131E-03_JPRB,4.7776E-03_JPRB,4.5851E-03_JPRB,4.4243E-03_JPRB/)
+KBO( :,29, 4) = (/&
+&4.2539E-03_JPRB,4.0307E-03_JPRB,3.8512E-03_JPRB,3.7034E-03_JPRB,3.5804E-03_JPRB/)
+KBO( :,30, 4) = (/&
+&3.4070E-03_JPRB,3.2374E-03_JPRB,3.1007E-03_JPRB,2.9878E-03_JPRB,2.8943E-03_JPRB/)
+KBO( :,31, 4) = (/&
+&2.7164E-03_JPRB,2.5892E-03_JPRB,2.4867E-03_JPRB,2.4014E-03_JPRB,2.3318E-03_JPRB/)
+KBO( :,32, 4) = (/&
+&2.1714E-03_JPRB,2.0763E-03_JPRB,1.9989E-03_JPRB,1.9347E-03_JPRB,1.8824E-03_JPRB/)
+KBO( :,33, 4) = (/&
+&1.7396E-03_JPRB,1.6683E-03_JPRB,1.6097E-03_JPRB,1.5614E-03_JPRB,1.5217E-03_JPRB/)
+KBO( :,34, 4) = (/&
+&1.4048E-03_JPRB,1.3500E-03_JPRB,1.3048E-03_JPRB,1.2676E-03_JPRB,1.2371E-03_JPRB/)
+KBO( :,35, 4) = (/&
+&1.1411E-03_JPRB,1.0980E-03_JPRB,1.0625E-03_JPRB,1.0331E-03_JPRB,1.0094E-03_JPRB/)
+KBO( :,36, 4) = (/&
+&9.3251E-04_JPRB,8.9778E-04_JPRB,8.6918E-04_JPRB,8.4547E-04_JPRB,8.2657E-04_JPRB/)
+KBO( :,37, 4) = (/&
+&7.7030E-04_JPRB,7.4111E-04_JPRB,7.1717E-04_JPRB,6.9726E-04_JPRB,6.8147E-04_JPRB/)
+KBO( :,38, 4) = (/&
+&6.3669E-04_JPRB,6.1205E-04_JPRB,5.9195E-04_JPRB,5.7523E-04_JPRB,5.6199E-04_JPRB/)
+KBO( :,39, 4) = (/&
+&5.2623E-04_JPRB,5.0538E-04_JPRB,4.8849E-04_JPRB,4.7446E-04_JPRB,4.6332E-04_JPRB/)
+KBO( :,40, 4) = (/&
+&4.3959E-04_JPRB,4.2119E-04_JPRB,4.0652E-04_JPRB,3.9437E-04_JPRB,3.8468E-04_JPRB/)
+KBO( :,41, 4) = (/&
+&3.6806E-04_JPRB,3.5172E-04_JPRB,3.3885E-04_JPRB,3.2829E-04_JPRB,3.1983E-04_JPRB/)
+KBO( :,42, 4) = (/&
+&3.0846E-04_JPRB,2.9396E-04_JPRB,2.8262E-04_JPRB,2.7343E-04_JPRB,2.6601E-04_JPRB/)
+KBO( :,43, 4) = (/&
+&2.6070E-04_JPRB,2.4764E-04_JPRB,2.3730E-04_JPRB,2.2909E-04_JPRB,2.2243E-04_JPRB/)
+KBO( :,44, 4) = (/&
+&2.2145E-04_JPRB,2.0973E-04_JPRB,2.0015E-04_JPRB,1.9268E-04_JPRB,1.8663E-04_JPRB/)
+KBO( :,45, 4) = (/&
+&1.8844E-04_JPRB,1.7798E-04_JPRB,1.6924E-04_JPRB,1.6233E-04_JPRB,1.5683E-04_JPRB/)
+KBO( :,46, 4) = (/&
+&1.6102E-04_JPRB,1.5165E-04_JPRB,1.4374E-04_JPRB,1.3727E-04_JPRB,1.3220E-04_JPRB/)
+KBO( :,47, 4) = (/&
+&1.3849E-04_JPRB,1.3004E-04_JPRB,1.2284E-04_JPRB,1.1682E-04_JPRB,1.1200E-04_JPRB/)
+KBO( :,48, 4) = (/&
+&1.1939E-04_JPRB,1.1184E-04_JPRB,1.0528E-04_JPRB,9.9774E-05_JPRB,9.5200E-05_JPRB/)
+KBO( :,49, 4) = (/&
+&1.0325E-04_JPRB,9.6448E-05_JPRB,9.0509E-05_JPRB,8.5480E-05_JPRB,8.1243E-05_JPRB/)
+KBO( :,50, 4) = (/&
+&8.9502E-05_JPRB,8.3289E-05_JPRB,7.8000E-05_JPRB,7.3411E-05_JPRB,6.9545E-05_JPRB/)
+KBO( :,51, 4) = (/&
+&7.7885E-05_JPRB,7.2170E-05_JPRB,6.7387E-05_JPRB,6.3245E-05_JPRB,5.9716E-05_JPRB/)
+KBO( :,52, 4) = (/&
+&6.8289E-05_JPRB,6.2790E-05_JPRB,5.8412E-05_JPRB,5.4691E-05_JPRB,5.1470E-05_JPRB/)
+KBO( :,53, 4) = (/&
+&6.0379E-05_JPRB,5.4962E-05_JPRB,5.0864E-05_JPRB,4.7466E-05_JPRB,4.4555E-05_JPRB/)
+KBO( :,54, 4) = (/&
+&5.3778E-05_JPRB,4.8463E-05_JPRB,4.4464E-05_JPRB,4.1340E-05_JPRB,3.8702E-05_JPRB/)
+KBO( :,55, 4) = (/&
+&4.8218E-05_JPRB,4.3063E-05_JPRB,3.9148E-05_JPRB,3.6179E-05_JPRB,3.3764E-05_JPRB/)
+KBO( :,56, 4) = (/&
+&4.3470E-05_JPRB,3.8635E-05_JPRB,3.4783E-05_JPRB,3.1873E-05_JPRB,2.9614E-05_JPRB/)
+KBO( :,57, 4) = (/&
+&3.9310E-05_JPRB,3.4974E-05_JPRB,3.1231E-05_JPRB,2.8344E-05_JPRB,2.6153E-05_JPRB/)
+KBO( :,58, 4) = (/&
+&3.5464E-05_JPRB,3.1728E-05_JPRB,2.8260E-05_JPRB,2.5410E-05_JPRB,2.3248E-05_JPRB/)
+KBO( :,59, 4) = (/&
+&3.1043E-05_JPRB,2.7897E-05_JPRB,2.4869E-05_JPRB,2.2274E-05_JPRB,2.0279E-05_JPRB/)
+KBO( :,13, 5) = (/&
+&2.0037E-01_JPRB,1.8536E-01_JPRB,1.7319E-01_JPRB,1.6345E-01_JPRB,1.5565E-01_JPRB/)
+KBO( :,14, 5) = (/&
+&1.6811E-01_JPRB,1.5583E-01_JPRB,1.4603E-01_JPRB,1.3819E-01_JPRB,1.3191E-01_JPRB/)
+KBO( :,15, 5) = (/&
+&1.3720E-01_JPRB,1.2762E-01_JPRB,1.2008E-01_JPRB,1.1403E-01_JPRB,1.0921E-01_JPRB/)
+KBO( :,16, 5) = (/&
+&1.0988E-01_JPRB,1.0274E-01_JPRB,9.7095E-02_JPRB,9.2609E-02_JPRB,8.9031E-02_JPRB/)
+KBO( :,17, 5) = (/&
+&8.7687E-02_JPRB,8.2411E-02_JPRB,7.8231E-02_JPRB,7.4955E-02_JPRB,7.2265E-02_JPRB/)
+KBO( :,18, 5) = (/&
+&6.9546E-02_JPRB,6.5690E-02_JPRB,6.2692E-02_JPRB,6.0308E-02_JPRB,5.8300E-02_JPRB/)
+KBO( :,19, 5) = (/&
+&5.5764E-02_JPRB,5.2922E-02_JPRB,5.0726E-02_JPRB,4.8917E-02_JPRB,4.7401E-02_JPRB/)
+KBO( :,20, 5) = (/&
+&4.5060E-02_JPRB,4.2954E-02_JPRB,4.1283E-02_JPRB,3.9887E-02_JPRB,3.8724E-02_JPRB/)
+KBO( :,21, 5) = (/&
+&3.6528E-02_JPRB,3.4947E-02_JPRB,3.3647E-02_JPRB,3.2572E-02_JPRB,3.1670E-02_JPRB/)
+KBO( :,22, 5) = (/&
+&2.9537E-02_JPRB,2.8342E-02_JPRB,2.7350E-02_JPRB,2.6530E-02_JPRB,2.5834E-02_JPRB/)
+KBO( :,23, 5) = (/&
+&2.3912E-02_JPRB,2.2997E-02_JPRB,2.2244E-02_JPRB,2.1612E-02_JPRB,2.1080E-02_JPRB/)
+KBO( :,24, 5) = (/&
+&1.9429E-02_JPRB,1.8726E-02_JPRB,1.8145E-02_JPRB,1.7658E-02_JPRB,1.7246E-02_JPRB/)
+KBO( :,25, 5) = (/&
+&1.5792E-02_JPRB,1.5254E-02_JPRB,1.4806E-02_JPRB,1.4430E-02_JPRB,1.4113E-02_JPRB/)
+KBO( :,26, 5) = (/&
+&1.2845E-02_JPRB,1.2431E-02_JPRB,1.2086E-02_JPRB,1.1796E-02_JPRB,1.1555E-02_JPRB/)
+KBO( :,27, 5) = (/&
+&1.0446E-02_JPRB,1.0127E-02_JPRB,9.8617E-03_JPRB,9.6396E-03_JPRB,9.4551E-03_JPRB/)
+KBO( :,28, 5) = (/&
+&8.4938E-03_JPRB,8.2489E-03_JPRB,8.0449E-03_JPRB,7.8756E-03_JPRB,7.7339E-03_JPRB/)
+KBO( :,29, 5) = (/&
+&6.8810E-03_JPRB,6.6955E-03_JPRB,6.5403E-03_JPRB,6.4124E-03_JPRB,6.3046E-03_JPRB/)
+KBO( :,30, 5) = (/&
+&5.5679E-03_JPRB,5.4274E-03_JPRB,5.3105E-03_JPRB,5.2139E-03_JPRB,5.1338E-03_JPRB/)
+KBO( :,31, 5) = (/&
+&4.4884E-03_JPRB,4.3834E-03_JPRB,4.2967E-03_JPRB,4.2249E-03_JPRB,4.1673E-03_JPRB/)
+KBO( :,32, 5) = (/&
+&3.6233E-03_JPRB,3.5452E-03_JPRB,3.4808E-03_JPRB,3.4277E-03_JPRB,3.3868E-03_JPRB/)
+KBO( :,33, 5) = (/&
+&2.9282E-03_JPRB,2.8695E-03_JPRB,2.8214E-03_JPRB,2.7830E-03_JPRB,2.7552E-03_JPRB/)
+KBO( :,34, 5) = (/&
+&2.3787E-03_JPRB,2.3339E-03_JPRB,2.2982E-03_JPRB,2.2711E-03_JPRB,2.2512E-03_JPRB/)
+KBO( :,35, 5) = (/&
+&1.9384E-03_JPRB,1.9039E-03_JPRB,1.8770E-03_JPRB,1.8573E-03_JPRB,1.8425E-03_JPRB/)
+KBO( :,36, 5) = (/&
+&1.5850E-03_JPRB,1.5579E-03_JPRB,1.5371E-03_JPRB,1.5221E-03_JPRB,1.5109E-03_JPRB/)
+KBO( :,37, 5) = (/&
+&1.3051E-03_JPRB,1.2827E-03_JPRB,1.2657E-03_JPRB,1.2537E-03_JPRB,1.2449E-03_JPRB/)
+KBO( :,38, 5) = (/&
+&1.0746E-03_JPRB,1.0560E-03_JPRB,1.0422E-03_JPRB,1.0325E-03_JPRB,1.0256E-03_JPRB/)
+KBO( :,39, 5) = (/&
+&8.8434E-04_JPRB,8.6898E-04_JPRB,8.5778E-04_JPRB,8.4994E-04_JPRB,8.4447E-04_JPRB/)
+KBO( :,40, 5) = (/&
+&7.3292E-04_JPRB,7.1976E-04_JPRB,7.1015E-04_JPRB,7.0344E-04_JPRB,6.9883E-04_JPRB/)
+KBO( :,41, 5) = (/&
+&6.0814E-04_JPRB,5.9676E-04_JPRB,5.8842E-04_JPRB,5.8265E-04_JPRB,5.7869E-04_JPRB/)
+KBO( :,42, 5) = (/&
+&5.0473E-04_JPRB,4.9486E-04_JPRB,4.8758E-04_JPRB,4.8259E-04_JPRB,4.7917E-04_JPRB/)
+KBO( :,43, 5) = (/&
+&4.2073E-04_JPRB,4.1190E-04_JPRB,4.0535E-04_JPRB,4.0084E-04_JPRB,3.9773E-04_JPRB/)
+KBO( :,44, 5) = (/&
+&3.5172E-04_JPRB,3.4367E-04_JPRB,3.3767E-04_JPRB,3.3350E-04_JPRB,3.3063E-04_JPRB/)
+KBO( :,45, 5) = (/&
+&2.9444E-04_JPRB,2.8703E-04_JPRB,2.8150E-04_JPRB,2.7764E-04_JPRB,2.7498E-04_JPRB/)
+KBO( :,46, 5) = (/&
+&2.4727E-04_JPRB,2.4031E-04_JPRB,2.3512E-04_JPRB,2.3150E-04_JPRB,2.2899E-04_JPRB/)
+KBO( :,47, 5) = (/&
+&2.0882E-04_JPRB,2.0207E-04_JPRB,1.9709E-04_JPRB,1.9359E-04_JPRB,1.9119E-04_JPRB/)
+KBO( :,48, 5) = (/&
+&1.7704E-04_JPRB,1.7038E-04_JPRB,1.6557E-04_JPRB,1.6214E-04_JPRB,1.5982E-04_JPRB/)
+KBO( :,49, 5) = (/&
+&1.5080E-04_JPRB,1.4420E-04_JPRB,1.3945E-04_JPRB,1.3608E-04_JPRB,1.3379E-04_JPRB/)
+KBO( :,50, 5) = (/&
+&1.2911E-04_JPRB,1.2261E-04_JPRB,1.1789E-04_JPRB,1.1456E-04_JPRB,1.1230E-04_JPRB/)
+KBO( :,51, 5) = (/&
+&1.1123E-04_JPRB,1.0476E-04_JPRB,1.0009E-04_JPRB,9.6777E-05_JPRB,9.4528E-05_JPRB/)
+KBO( :,52, 5) = (/&
+&9.6410E-05_JPRB,9.0064E-05_JPRB,8.5407E-05_JPRB,8.2070E-05_JPRB,7.9798E-05_JPRB/)
+KBO( :,53, 5) = (/&
+&8.4067E-05_JPRB,7.7964E-05_JPRB,7.3302E-05_JPRB,6.9956E-05_JPRB,6.7619E-05_JPRB/)
+KBO( :,54, 5) = (/&
+&7.3546E-05_JPRB,6.7856E-05_JPRB,6.3334E-05_JPRB,5.9970E-05_JPRB,5.7596E-05_JPRB/)
+KBO( :,55, 5) = (/&
+&6.4676E-05_JPRB,5.9391E-05_JPRB,5.5074E-05_JPRB,5.1740E-05_JPRB,4.9340E-05_JPRB/)
+KBO( :,56, 5) = (/&
+&5.7222E-05_JPRB,5.2288E-05_JPRB,4.8229E-05_JPRB,4.4985E-05_JPRB,4.2543E-05_JPRB/)
+KBO( :,57, 5) = (/&
+&5.0943E-05_JPRB,4.6360E-05_JPRB,4.2538E-05_JPRB,3.9423E-05_JPRB,3.6983E-05_JPRB/)
+KBO( :,58, 5) = (/&
+&4.5636E-05_JPRB,4.1296E-05_JPRB,3.7718E-05_JPRB,3.4778E-05_JPRB,3.2393E-05_JPRB/)
+KBO( :,59, 5) = (/&
+&3.9918E-05_JPRB,3.5967E-05_JPRB,3.2789E-05_JPRB,3.0147E-05_JPRB,2.7981E-05_JPRB/)
+KBO( :,13, 6) = (/&
+&3.0031E-01_JPRB,2.8877E-01_JPRB,2.7889E-01_JPRB,2.7050E-01_JPRB,2.6327E-01_JPRB/)
+KBO( :,14, 6) = (/&
+&2.5567E-01_JPRB,2.4634E-01_JPRB,2.3843E-01_JPRB,2.3160E-01_JPRB,2.2574E-01_JPRB/)
+KBO( :,15, 6) = (/&
+&2.1660E-01_JPRB,2.0921E-01_JPRB,2.0286E-01_JPRB,1.9734E-01_JPRB,1.9258E-01_JPRB/)
+KBO( :,16, 6) = (/&
+&1.7950E-01_JPRB,1.7370E-01_JPRB,1.6867E-01_JPRB,1.6432E-01_JPRB,1.6061E-01_JPRB/)
+KBO( :,17, 6) = (/&
+&1.4767E-01_JPRB,1.4318E-01_JPRB,1.3929E-01_JPRB,1.3594E-01_JPRB,1.3314E-01_JPRB/)
+KBO( :,18, 6) = (/&
+&1.2067E-01_JPRB,1.1726E-01_JPRB,1.1432E-01_JPRB,1.1181E-01_JPRB,1.0970E-01_JPRB/)
+KBO( :,19, 6) = (/&
+&9.9158E-02_JPRB,9.6553E-02_JPRB,9.4280E-02_JPRB,9.2392E-02_JPRB,9.0731E-02_JPRB/)
+KBO( :,20, 6) = (/&
+&8.1605E-02_JPRB,7.9577E-02_JPRB,7.7850E-02_JPRB,7.6412E-02_JPRB,7.5067E-02_JPRB/)
+KBO( :,21, 6) = (/&
+&6.7154E-02_JPRB,6.5582E-02_JPRB,6.4294E-02_JPRB,6.3166E-02_JPRB,6.2094E-02_JPRB/)
+KBO( :,22, 6) = (/&
+&5.5082E-02_JPRB,5.3919E-02_JPRB,5.2957E-02_JPRB,5.2061E-02_JPRB,5.1235E-02_JPRB/)
+KBO( :,23, 6) = (/&
+&4.5194E-02_JPRB,4.4345E-02_JPRB,4.3595E-02_JPRB,4.2898E-02_JPRB,4.2263E-02_JPRB/)
+KBO( :,24, 6) = (/&
+&3.7185E-02_JPRB,3.6539E-02_JPRB,3.5952E-02_JPRB,3.5414E-02_JPRB,3.4913E-02_JPRB/)
+KBO( :,25, 6) = (/&
+&3.0590E-02_JPRB,3.0087E-02_JPRB,2.9634E-02_JPRB,2.9216E-02_JPRB,2.8826E-02_JPRB/)
+KBO( :,26, 6) = (/&
+&2.5152E-02_JPRB,2.4764E-02_JPRB,2.4418E-02_JPRB,2.4095E-02_JPRB,2.3796E-02_JPRB/)
+KBO( :,27, 6) = (/&
+&2.0643E-02_JPRB,2.0349E-02_JPRB,2.0083E-02_JPRB,1.9833E-02_JPRB,1.9610E-02_JPRB/)
+KBO( :,28, 6) = (/&
+&1.6922E-02_JPRB,1.6700E-02_JPRB,1.6497E-02_JPRB,1.6309E-02_JPRB,1.6143E-02_JPRB/)
+KBO( :,29, 6) = (/&
+&1.3806E-02_JPRB,1.3641E-02_JPRB,1.3490E-02_JPRB,1.3350E-02_JPRB,1.3233E-02_JPRB/)
+KBO( :,30, 6) = (/&
+&1.1246E-02_JPRB,1.1125E-02_JPRB,1.1013E-02_JPRB,1.0912E-02_JPRB,1.0833E-02_JPRB/)
+KBO( :,31, 6) = (/&
+&9.1223E-03_JPRB,9.0371E-03_JPRB,8.9562E-03_JPRB,8.8890E-03_JPRB,8.8381E-03_JPRB/)
+KBO( :,32, 6) = (/&
+&7.4088E-03_JPRB,7.3486E-03_JPRB,7.2922E-03_JPRB,7.2503E-03_JPRB,7.2208E-03_JPRB/)
+KBO( :,33, 6) = (/&
+&6.0213E-03_JPRB,5.9797E-03_JPRB,5.9439E-03_JPRB,5.9193E-03_JPRB,5.9059E-03_JPRB/)
+KBO( :,34, 6) = (/&
+&4.9171E-03_JPRB,4.8889E-03_JPRB,4.8670E-03_JPRB,4.8546E-03_JPRB,4.8528E-03_JPRB/)
+KBO( :,35, 6) = (/&
+&4.0228E-03_JPRB,4.0047E-03_JPRB,3.9922E-03_JPRB,3.9878E-03_JPRB,3.9938E-03_JPRB/)
+KBO( :,36, 6) = (/&
+&3.2970E-03_JPRB,3.2861E-03_JPRB,3.2797E-03_JPRB,3.2811E-03_JPRB,3.2916E-03_JPRB/)
+KBO( :,37, 6) = (/&
+&2.7162E-03_JPRB,2.7102E-03_JPRB,2.7075E-03_JPRB,2.7117E-03_JPRB,2.7239E-03_JPRB/)
+KBO( :,38, 6) = (/&
+&2.2373E-03_JPRB,2.2347E-03_JPRB,2.2349E-03_JPRB,2.2411E-03_JPRB,2.2537E-03_JPRB/)
+KBO( :,39, 6) = (/&
+&1.8417E-03_JPRB,1.8418E-03_JPRB,1.8441E-03_JPRB,1.8517E-03_JPRB,1.8647E-03_JPRB/)
+KBO( :,40, 6) = (/&
+&1.5238E-03_JPRB,1.5254E-03_JPRB,1.5285E-03_JPRB,1.5359E-03_JPRB,1.5481E-03_JPRB/)
+KBO( :,41, 6) = (/&
+&1.2613E-03_JPRB,1.2638E-03_JPRB,1.2673E-03_JPRB,1.2744E-03_JPRB,1.2856E-03_JPRB/)
+KBO( :,42, 6) = (/&
+&1.0436E-03_JPRB,1.0466E-03_JPRB,1.0504E-03_JPRB,1.0571E-03_JPRB,1.0674E-03_JPRB/)
+KBO( :,43, 6) = (/&
+&8.6452E-04_JPRB,8.6761E-04_JPRB,8.7142E-04_JPRB,8.7743E-04_JPRB,8.8666E-04_JPRB/)
+KBO( :,44, 6) = (/&
+&7.1654E-04_JPRB,7.1945E-04_JPRB,7.2309E-04_JPRB,7.2846E-04_JPRB,7.3657E-04_JPRB/)
+KBO( :,45, 6) = (/&
+&5.9379E-04_JPRB,5.9641E-04_JPRB,5.9986E-04_JPRB,6.0460E-04_JPRB,6.1175E-04_JPRB/)
+KBO( :,46, 6) = (/&
+&4.9225E-04_JPRB,4.9449E-04_JPRB,4.9768E-04_JPRB,5.0182E-04_JPRB,5.0799E-04_JPRB/)
+KBO( :,47, 6) = (/&
+&4.0862E-04_JPRB,4.1037E-04_JPRB,4.1308E-04_JPRB,4.1665E-04_JPRB,4.2178E-04_JPRB/)
+KBO( :,48, 6) = (/&
+&3.3951E-04_JPRB,3.4066E-04_JPRB,3.4289E-04_JPRB,3.4596E-04_JPRB,3.5019E-04_JPRB/)
+KBO( :,49, 6) = (/&
+&2.8241E-04_JPRB,2.8294E-04_JPRB,2.8471E-04_JPRB,2.8728E-04_JPRB,2.9076E-04_JPRB/)
+KBO( :,50, 6) = (/&
+&2.3555E-04_JPRB,2.3552E-04_JPRB,2.3680E-04_JPRB,2.3892E-04_JPRB,2.4178E-04_JPRB/)
+KBO( :,51, 6) = (/&
+&1.9697E-04_JPRB,1.9644E-04_JPRB,1.9724E-04_JPRB,1.9893E-04_JPRB,2.0124E-04_JPRB/)
+KBO( :,52, 6) = (/&
+&1.6513E-04_JPRB,1.6415E-04_JPRB,1.6450E-04_JPRB,1.6575E-04_JPRB,1.6760E-04_JPRB/)
+KBO( :,53, 6) = (/&
+&1.3891E-04_JPRB,1.3752E-04_JPRB,1.3740E-04_JPRB,1.3821E-04_JPRB,1.3969E-04_JPRB/)
+KBO( :,54, 6) = (/&
+&1.1751E-04_JPRB,1.1571E-04_JPRB,1.1518E-04_JPRB,1.1561E-04_JPRB,1.1672E-04_JPRB/)
+KBO( :,55, 6) = (/&
+&9.9984E-05_JPRB,9.7805E-05_JPRB,9.6898E-05_JPRB,9.6976E-05_JPRB,9.7759E-05_JPRB/)
+KBO( :,56, 6) = (/&
+&8.5702E-05_JPRB,8.3105E-05_JPRB,8.1841E-05_JPRB,8.1573E-05_JPRB,8.2039E-05_JPRB/)
+KBO( :,57, 6) = (/&
+&7.4232E-05_JPRB,7.1097E-05_JPRB,6.9487E-05_JPRB,6.8880E-05_JPRB,6.9030E-05_JPRB/)
+KBO( :,58, 6) = (/&
+&6.4989E-05_JPRB,6.1340E-05_JPRB,5.9365E-05_JPRB,5.8430E-05_JPRB,5.8292E-05_JPRB/)
+KBO( :,59, 6) = (/&
+&5.6238E-05_JPRB,5.2637E-05_JPRB,5.0574E-05_JPRB,4.9552E-05_JPRB,4.9287E-05_JPRB/)
+KBO( :,13, 7) = (/&
+&6.2076E-01_JPRB,6.0643E-01_JPRB,5.9318E-01_JPRB,5.8083E-01_JPRB,5.6896E-01_JPRB/)
+KBO( :,14, 7) = (/&
+&5.2361E-01_JPRB,5.1159E-01_JPRB,5.0059E-01_JPRB,4.9028E-01_JPRB,4.8050E-01_JPRB/)
+KBO( :,15, 7) = (/&
+&4.4985E-01_JPRB,4.3986E-01_JPRB,4.3102E-01_JPRB,4.2237E-01_JPRB,4.1436E-01_JPRB/)
+KBO( :,16, 7) = (/&
+&3.8706E-01_JPRB,3.7895E-01_JPRB,3.7119E-01_JPRB,3.6386E-01_JPRB,3.5724E-01_JPRB/)
+KBO( :,17, 7) = (/&
+&3.2955E-01_JPRB,3.2266E-01_JPRB,3.1591E-01_JPRB,3.0973E-01_JPRB,3.0418E-01_JPRB/)
+KBO( :,18, 7) = (/&
+&2.7679E-01_JPRB,2.7082E-01_JPRB,2.6513E-01_JPRB,2.5995E-01_JPRB,2.5545E-01_JPRB/)
+KBO( :,19, 7) = (/&
+&2.3226E-01_JPRB,2.2714E-01_JPRB,2.2242E-01_JPRB,2.1825E-01_JPRB,2.1464E-01_JPRB/)
+KBO( :,20, 7) = (/&
+&1.9394E-01_JPRB,1.8975E-01_JPRB,1.8600E-01_JPRB,1.8267E-01_JPRB,1.7989E-01_JPRB/)
+KBO( :,21, 7) = (/&
+&1.6150E-01_JPRB,1.5816E-01_JPRB,1.5519E-01_JPRB,1.5258E-01_JPRB,1.5046E-01_JPRB/)
+KBO( :,22, 7) = (/&
+&1.3388E-01_JPRB,1.3131E-01_JPRB,1.2899E-01_JPRB,1.2704E-01_JPRB,1.2536E-01_JPRB/)
+KBO( :,23, 7) = (/&
+&1.1091E-01_JPRB,1.0891E-01_JPRB,1.0717E-01_JPRB,1.0571E-01_JPRB,1.0434E-01_JPRB/)
+KBO( :,24, 7) = (/&
+&9.2054E-02_JPRB,9.0515E-02_JPRB,8.9212E-02_JPRB,8.8060E-02_JPRB,8.6983E-02_JPRB/)
+KBO( :,25, 7) = (/&
+&7.6343E-02_JPRB,7.5207E-02_JPRB,7.4226E-02_JPRB,7.3309E-02_JPRB,7.2502E-02_JPRB/)
+KBO( :,26, 7) = (/&
+&6.3290E-02_JPRB,6.2474E-02_JPRB,6.1708E-02_JPRB,6.1011E-02_JPRB,6.0412E-02_JPRB/)
+KBO( :,27, 7) = (/&
+&5.2357E-02_JPRB,5.1753E-02_JPRB,5.1172E-02_JPRB,5.0665E-02_JPRB,5.0225E-02_JPRB/)
+KBO( :,28, 7) = (/&
+&4.3244E-02_JPRB,4.2787E-02_JPRB,4.2361E-02_JPRB,4.2002E-02_JPRB,4.1698E-02_JPRB/)
+KBO( :,29, 7) = (/&
+&3.5503E-02_JPRB,3.5181E-02_JPRB,3.4891E-02_JPRB,3.4654E-02_JPRB,3.4461E-02_JPRB/)
+KBO( :,30, 7) = (/&
+&2.9099E-02_JPRB,2.8880E-02_JPRB,2.8695E-02_JPRB,2.8556E-02_JPRB,2.8451E-02_JPRB/)
+KBO( :,31, 7) = (/&
+&2.3756E-02_JPRB,2.3624E-02_JPRB,2.3525E-02_JPRB,2.3461E-02_JPRB,2.3423E-02_JPRB/)
+KBO( :,32, 7) = (/&
+&1.9426E-02_JPRB,1.9356E-02_JPRB,1.9321E-02_JPRB,1.9314E-02_JPRB,1.9320E-02_JPRB/)
+KBO( :,33, 7) = (/&
+&1.5905E-02_JPRB,1.5887E-02_JPRB,1.5897E-02_JPRB,1.5926E-02_JPRB,1.5970E-02_JPRB/)
+KBO( :,34, 7) = (/&
+&1.3090E-02_JPRB,1.3109E-02_JPRB,1.3146E-02_JPRB,1.3197E-02_JPRB,1.3269E-02_JPRB/)
+KBO( :,35, 7) = (/&
+&1.0797E-02_JPRB,1.0836E-02_JPRB,1.0888E-02_JPRB,1.0958E-02_JPRB,1.1045E-02_JPRB/)
+KBO( :,36, 7) = (/&
+&8.9196E-03_JPRB,8.9674E-03_JPRB,9.0310E-03_JPRB,9.1096E-03_JPRB,9.2030E-03_JPRB/)
+KBO( :,37, 7) = (/&
+&7.4032E-03_JPRB,7.4569E-03_JPRB,7.5263E-03_JPRB,7.6089E-03_JPRB,7.7061E-03_JPRB/)
+KBO( :,38, 7) = (/&
+&6.1455E-03_JPRB,6.2033E-03_JPRB,6.2752E-03_JPRB,6.3592E-03_JPRB,6.4581E-03_JPRB/)
+KBO( :,39, 7) = (/&
+&5.1018E-03_JPRB,5.1610E-03_JPRB,5.2331E-03_JPRB,5.3164E-03_JPRB,5.4128E-03_JPRB/)
+KBO( :,40, 7) = (/&
+&4.2521E-03_JPRB,4.3105E-03_JPRB,4.3809E-03_JPRB,4.4621E-03_JPRB,4.5540E-03_JPRB/)
+KBO( :,41, 7) = (/&
+&3.5452E-03_JPRB,3.6013E-03_JPRB,3.6690E-03_JPRB,3.7462E-03_JPRB,3.8330E-03_JPRB/)
+KBO( :,42, 7) = (/&
+&2.9546E-03_JPRB,3.0079E-03_JPRB,3.0718E-03_JPRB,3.1441E-03_JPRB,3.2249E-03_JPRB/)
+KBO( :,43, 7) = (/&
+&2.4623E-03_JPRB,2.5120E-03_JPRB,2.5713E-03_JPRB,2.6380E-03_JPRB,2.7122E-03_JPRB/)
+KBO( :,44, 7) = (/&
+&2.0503E-03_JPRB,2.0962E-03_JPRB,2.1506E-03_JPRB,2.2118E-03_JPRB,2.2791E-03_JPRB/)
+KBO( :,45, 7) = (/&
+&1.7056E-03_JPRB,1.7475E-03_JPRB,1.7968E-03_JPRB,1.8522E-03_JPRB,1.9127E-03_JPRB/)
+KBO( :,46, 7) = (/&
+&1.4169E-03_JPRB,1.4548E-03_JPRB,1.4988E-03_JPRB,1.5483E-03_JPRB,1.6024E-03_JPRB/)
+KBO( :,47, 7) = (/&
+&1.1753E-03_JPRB,1.2090E-03_JPRB,1.2477E-03_JPRB,1.2915E-03_JPRB,1.3391E-03_JPRB/)
+KBO( :,48, 7) = (/&
+&9.7359E-04_JPRB,1.0036E-03_JPRB,1.0372E-03_JPRB,1.0757E-03_JPRB,1.1176E-03_JPRB/)
+KBO( :,49, 7) = (/&
+&8.0541E-04_JPRB,8.3180E-04_JPRB,8.6089E-04_JPRB,8.9457E-04_JPRB,9.3110E-04_JPRB/)
+KBO( :,50, 7) = (/&
+&6.6674E-04_JPRB,6.8981E-04_JPRB,7.1508E-04_JPRB,7.4417E-04_JPRB,7.7606E-04_JPRB/)
+KBO( :,51, 7) = (/&
+&5.5204E-04_JPRB,5.7200E-04_JPRB,5.9387E-04_JPRB,6.1888E-04_JPRB,6.4663E-04_JPRB/)
+KBO( :,52, 7) = (/&
+&4.5687E-04_JPRB,4.7390E-04_JPRB,4.9275E-04_JPRB,5.1420E-04_JPRB,5.3821E-04_JPRB/)
+KBO( :,53, 7) = (/&
+&3.7797E-04_JPRB,3.9233E-04_JPRB,4.0850E-04_JPRB,4.2681E-04_JPRB,4.4742E-04_JPRB/)
+KBO( :,54, 7) = (/&
+&3.1354E-04_JPRB,3.2560E-04_JPRB,3.3944E-04_JPRB,3.5505E-04_JPRB,3.7284E-04_JPRB/)
+KBO( :,55, 7) = (/&
+&2.6060E-04_JPRB,2.7065E-04_JPRB,2.8242E-04_JPRB,2.9574E-04_JPRB,3.1104E-04_JPRB/)
+KBO( :,56, 7) = (/&
+&2.1677E-04_JPRB,2.2507E-04_JPRB,2.3503E-04_JPRB,2.4632E-04_JPRB,2.5934E-04_JPRB/)
+KBO( :,57, 7) = (/&
+&1.8057E-04_JPRB,1.8733E-04_JPRB,1.9567E-04_JPRB,2.0522E-04_JPRB,2.1627E-04_JPRB/)
+KBO( :,58, 7) = (/&
+&1.5084E-04_JPRB,1.5628E-04_JPRB,1.6318E-04_JPRB,1.7119E-04_JPRB,1.8056E-04_JPRB/)
+KBO( :,59, 7) = (/&
+&1.2696E-04_JPRB,1.3148E-04_JPRB,1.3737E-04_JPRB,1.4430E-04_JPRB,1.5250E-04_JPRB/)
+KBO( :,13, 8) = (/&
+&1.8749E+00_JPRB,1.8339E+00_JPRB,1.7958E+00_JPRB,1.7607E+00_JPRB,1.7271E+00_JPRB/)
+KBO( :,14, 8) = (/&
+&1.5743E+00_JPRB,1.5413E+00_JPRB,1.5105E+00_JPRB,1.4812E+00_JPRB,1.4530E+00_JPRB/)
+KBO( :,15, 8) = (/&
+&1.3213E+00_JPRB,1.2948E+00_JPRB,1.2694E+00_JPRB,1.2449E+00_JPRB,1.2211E+00_JPRB/)
+KBO( :,16, 8) = (/&
+&1.1162E+00_JPRB,1.0945E+00_JPRB,1.0731E+00_JPRB,1.0524E+00_JPRB,1.0321E+00_JPRB/)
+KBO( :,17, 8) = (/&
+&9.5687E-01_JPRB,9.3833E-01_JPRB,9.2020E-01_JPRB,9.0235E-01_JPRB,8.8485E-01_JPRB/)
+KBO( :,18, 8) = (/&
+&8.2749E-01_JPRB,8.1191E-01_JPRB,7.9641E-01_JPRB,7.8105E-01_JPRB,7.6632E-01_JPRB/)
+KBO( :,19, 8) = (/&
+&7.1804E-01_JPRB,7.0461E-01_JPRB,6.9106E-01_JPRB,6.7763E-01_JPRB,6.6520E-01_JPRB/)
+KBO( :,20, 8) = (/&
+&6.1468E-01_JPRB,6.0286E-01_JPRB,5.9089E-01_JPRB,5.7959E-01_JPRB,5.6959E-01_JPRB/)
+KBO( :,21, 8) = (/&
+&5.2096E-01_JPRB,5.1044E-01_JPRB,5.0026E-01_JPRB,4.9101E-01_JPRB,4.8331E-01_JPRB/)
+KBO( :,22, 8) = (/&
+&4.3720E-01_JPRB,4.2829E-01_JPRB,4.2010E-01_JPRB,4.1308E-01_JPRB,4.0742E-01_JPRB/)
+KBO( :,23, 8) = (/&
+&3.6550E-01_JPRB,3.5834E-01_JPRB,3.5202E-01_JPRB,3.4689E-01_JPRB,3.4279E-01_JPRB/)
+KBO( :,24, 8) = (/&
+&3.0558E-01_JPRB,2.9995E-01_JPRB,2.9531E-01_JPRB,2.9161E-01_JPRB,2.8882E-01_JPRB/)
+KBO( :,25, 8) = (/&
+&2.5505E-01_JPRB,2.5086E-01_JPRB,2.4760E-01_JPRB,2.4506E-01_JPRB,2.4335E-01_JPRB/)
+KBO( :,26, 8) = (/&
+&2.1270E-01_JPRB,2.0980E-01_JPRB,2.0754E-01_JPRB,2.0600E-01_JPRB,2.0500E-01_JPRB/)
+KBO( :,27, 8) = (/&
+&1.7708E-01_JPRB,1.7513E-01_JPRB,1.7373E-01_JPRB,1.7293E-01_JPRB,1.7242E-01_JPRB/)
+KBO( :,28, 8) = (/&
+&1.4736E-01_JPRB,1.4615E-01_JPRB,1.4547E-01_JPRB,1.4511E-01_JPRB,1.4503E-01_JPRB/)
+KBO( :,29, 8) = (/&
+&1.2217E-01_JPRB,1.2161E-01_JPRB,1.2142E-01_JPRB,1.2147E-01_JPRB,1.2176E-01_JPRB/)
+KBO( :,30, 8) = (/&
+&1.0135E-01_JPRB,1.0129E-01_JPRB,1.0143E-01_JPRB,1.0181E-01_JPRB,1.0237E-01_JPRB/)
+KBO( :,31, 8) = (/&
+&8.4026E-02_JPRB,8.4283E-02_JPRB,8.4701E-02_JPRB,8.5319E-02_JPRB,8.6090E-02_JPRB/)
+KBO( :,32, 8) = (/&
+&6.9968E-02_JPRB,7.0421E-02_JPRB,7.1041E-02_JPRB,7.1799E-02_JPRB,7.2670E-02_JPRB/)
+KBO( :,33, 8) = (/&
+&5.8463E-02_JPRB,5.9059E-02_JPRB,5.9804E-02_JPRB,6.0644E-02_JPRB,6.1569E-02_JPRB/)
+KBO( :,34, 8) = (/&
+&4.9124E-02_JPRB,4.9817E-02_JPRB,5.0609E-02_JPRB,5.1484E-02_JPRB,5.2418E-02_JPRB/)
+KBO( :,35, 8) = (/&
+&4.1343E-02_JPRB,4.2075E-02_JPRB,4.2881E-02_JPRB,4.3757E-02_JPRB,4.4680E-02_JPRB/)
+KBO( :,36, 8) = (/&
+&3.4807E-02_JPRB,3.5542E-02_JPRB,3.6329E-02_JPRB,3.7186E-02_JPRB,3.8085E-02_JPRB/)
+KBO( :,37, 8) = (/&
+&2.9387E-02_JPRB,3.0107E-02_JPRB,3.0877E-02_JPRB,3.1701E-02_JPRB,3.2565E-02_JPRB/)
+KBO( :,38, 8) = (/&
+&2.4810E-02_JPRB,2.5504E-02_JPRB,2.6245E-02_JPRB,2.7036E-02_JPRB,2.7858E-02_JPRB/)
+KBO( :,39, 8) = (/&
+&2.0945E-02_JPRB,2.1603E-02_JPRB,2.2309E-02_JPRB,2.3055E-02_JPRB,2.3834E-02_JPRB/)
+KBO( :,40, 8) = (/&
+&1.7727E-02_JPRB,1.8351E-02_JPRB,1.9022E-02_JPRB,1.9730E-02_JPRB,2.0475E-02_JPRB/)
+KBO( :,41, 8) = (/&
+&1.5006E-02_JPRB,1.5596E-02_JPRB,1.6231E-02_JPRB,1.6901E-02_JPRB,1.7608E-02_JPRB/)
+KBO( :,42, 8) = (/&
+&1.2699E-02_JPRB,1.3252E-02_JPRB,1.3848E-02_JPRB,1.4479E-02_JPRB,1.5149E-02_JPRB/)
+KBO( :,43, 8) = (/&
+&1.0731E-02_JPRB,1.1247E-02_JPRB,1.1804E-02_JPRB,1.2397E-02_JPRB,1.3032E-02_JPRB/)
+KBO( :,44, 8) = (/&
+&9.0535E-03_JPRB,9.5318E-03_JPRB,1.0051E-02_JPRB,1.0609E-02_JPRB,1.1207E-02_JPRB/)
+KBO( :,45, 8) = (/&
+&7.6285E-03_JPRB,8.0697E-03_JPRB,8.5520E-03_JPRB,9.0723E-03_JPRB,9.6338E-03_JPRB/)
+KBO( :,46, 8) = (/&
+&6.4125E-03_JPRB,6.8146E-03_JPRB,7.2602E-03_JPRB,7.7440E-03_JPRB,8.2655E-03_JPRB/)
+KBO( :,47, 8) = (/&
+&5.3712E-03_JPRB,5.7353E-03_JPRB,6.1421E-03_JPRB,6.5868E-03_JPRB,7.0707E-03_JPRB/)
+KBO( :,48, 8) = (/&
+&4.4885E-03_JPRB,4.8157E-03_JPRB,5.1854E-03_JPRB,5.5906E-03_JPRB,6.0354E-03_JPRB/)
+KBO( :,49, 8) = (/&
+&3.7410E-03_JPRB,4.0329E-03_JPRB,4.3660E-03_JPRB,4.7329E-03_JPRB,5.1395E-03_JPRB/)
+KBO( :,50, 8) = (/&
+&3.1195E-03_JPRB,3.3801E-03_JPRB,3.6785E-03_JPRB,4.0128E-03_JPRB,4.3847E-03_JPRB/)
+KBO( :,51, 8) = (/&
+&2.5986E-03_JPRB,2.8303E-03_JPRB,3.0979E-03_JPRB,3.4004E-03_JPRB,3.7414E-03_JPRB/)
+KBO( :,52, 8) = (/&
+&2.1586E-03_JPRB,2.3637E-03_JPRB,2.6022E-03_JPRB,2.8753E-03_JPRB,3.1853E-03_JPRB/)
+KBO( :,53, 8) = (/&
+&1.7874E-03_JPRB,1.9676E-03_JPRB,2.1789E-03_JPRB,2.4235E-03_JPRB,2.7038E-03_JPRB/)
+KBO( :,54, 8) = (/&
+&1.4850E-03_JPRB,1.6436E-03_JPRB,1.8314E-03_JPRB,2.0513E-03_JPRB,2.3056E-03_JPRB/)
+KBO( :,55, 8) = (/&
+&1.2350E-03_JPRB,1.3746E-03_JPRB,1.5414E-03_JPRB,1.7391E-03_JPRB,1.9699E-03_JPRB/)
+KBO( :,56, 8) = (/&
+&1.0255E-03_JPRB,1.1469E-03_JPRB,1.2945E-03_JPRB,1.4714E-03_JPRB,1.6800E-03_JPRB/)
+KBO( :,57, 8) = (/&
+&8.4971E-04_JPRB,9.5464E-04_JPRB,1.0846E-03_JPRB,1.2416E-03_JPRB,1.4294E-03_JPRB/)
+KBO( :,58, 8) = (/&
+&7.0441E-04_JPRB,7.9508E-04_JPRB,9.0916E-04_JPRB,1.0487E-03_JPRB,1.2170E-03_JPRB/)
+KBO( :,59, 8) = (/&
+&5.9755E-04_JPRB,6.7949E-04_JPRB,7.8382E-04_JPRB,9.1237E-04_JPRB,1.0695E-03_JPRB/)
+KBO( :,13, 9) = (/&
+&1.0788E+01_JPRB,1.0623E+01_JPRB,1.0458E+01_JPRB,1.0276E+01_JPRB,1.0096E+01_JPRB/)
+KBO( :,14, 9) = (/&
+&9.3612E+00_JPRB,9.2219E+00_JPRB,9.0719E+00_JPRB,8.9125E+00_JPRB,8.7475E+00_JPRB/)
+KBO( :,15, 9) = (/&
+&8.0594E+00_JPRB,7.9366E+00_JPRB,7.7985E+00_JPRB,7.6538E+00_JPRB,7.5121E+00_JPRB/)
+KBO( :,16, 9) = (/&
+&6.8883E+00_JPRB,6.7721E+00_JPRB,6.6502E+00_JPRB,6.5309E+00_JPRB,6.4164E+00_JPRB/)
+KBO( :,17, 9) = (/&
+&5.8447E+00_JPRB,5.7441E+00_JPRB,5.6460E+00_JPRB,5.5501E+00_JPRB,5.4594E+00_JPRB/)
+KBO( :,18, 9) = (/&
+&4.9433E+00_JPRB,4.8620E+00_JPRB,4.7817E+00_JPRB,4.7042E+00_JPRB,4.6310E+00_JPRB/)
+KBO( :,19, 9) = (/&
+&4.1982E+00_JPRB,4.1312E+00_JPRB,4.0653E+00_JPRB,4.0039E+00_JPRB,3.9459E+00_JPRB/)
+KBO( :,20, 9) = (/&
+&3.5838E+00_JPRB,3.5285E+00_JPRB,3.4759E+00_JPRB,3.4263E+00_JPRB,3.3770E+00_JPRB/)
+KBO( :,21, 9) = (/&
+&3.0778E+00_JPRB,3.0331E+00_JPRB,2.9909E+00_JPRB,2.9486E+00_JPRB,2.9057E+00_JPRB/)
+KBO( :,22, 9) = (/&
+&2.6565E+00_JPRB,2.6204E+00_JPRB,2.5833E+00_JPRB,2.5458E+00_JPRB,2.5109E+00_JPRB/)
+KBO( :,23, 9) = (/&
+&2.3092E+00_JPRB,2.2775E+00_JPRB,2.2448E+00_JPRB,2.2133E+00_JPRB,2.1844E+00_JPRB/)
+KBO( :,24, 9) = (/&
+&2.0249E+00_JPRB,1.9974E+00_JPRB,1.9695E+00_JPRB,1.9433E+00_JPRB,1.9191E+00_JPRB/)
+KBO( :,25, 9) = (/&
+&1.7740E+00_JPRB,1.7527E+00_JPRB,1.7317E+00_JPRB,1.7118E+00_JPRB,1.6945E+00_JPRB/)
+KBO( :,26, 9) = (/&
+&1.5476E+00_JPRB,1.5328E+00_JPRB,1.5186E+00_JPRB,1.5057E+00_JPRB,1.4963E+00_JPRB/)
+KBO( :,27, 9) = (/&
+&1.3401E+00_JPRB,1.3314E+00_JPRB,1.3233E+00_JPRB,1.3171E+00_JPRB,1.3143E+00_JPRB/)
+KBO( :,28, 9) = (/&
+&1.1557E+00_JPRB,1.1517E+00_JPRB,1.1490E+00_JPRB,1.1490E+00_JPRB,1.1516E+00_JPRB/)
+KBO( :,29, 9) = (/&
+&9.8748E-01_JPRB,9.8745E-01_JPRB,9.8953E-01_JPRB,9.9392E-01_JPRB,1.0010E+00_JPRB/)
+KBO( :,30, 9) = (/&
+&8.4260E-01_JPRB,8.4608E-01_JPRB,8.5152E-01_JPRB,8.5914E-01_JPRB,8.6963E-01_JPRB/)
+KBO( :,31, 9) = (/&
+&7.1579E-01_JPRB,7.2173E-01_JPRB,7.2917E-01_JPRB,7.3933E-01_JPRB,7.5097E-01_JPRB/)
+KBO( :,32, 9) = (/&
+&6.1011E-01_JPRB,6.1766E-01_JPRB,6.2713E-01_JPRB,6.3845E-01_JPRB,6.5062E-01_JPRB/)
+KBO( :,33, 9) = (/&
+&5.2120E-01_JPRB,5.3013E-01_JPRB,5.4091E-01_JPRB,5.5249E-01_JPRB,5.6506E-01_JPRB/)
+KBO( :,34, 9) = (/&
+&4.4937E-01_JPRB,4.5962E-01_JPRB,4.7092E-01_JPRB,4.8296E-01_JPRB,4.9617E-01_JPRB/)
+KBO( :,35, 9) = (/&
+&3.8853E-01_JPRB,3.9924E-01_JPRB,4.1075E-01_JPRB,4.2296E-01_JPRB,4.3648E-01_JPRB/)
+KBO( :,36, 9) = (/&
+&3.3659E-01_JPRB,3.4736E-01_JPRB,3.5887E-01_JPRB,3.7122E-01_JPRB,3.8466E-01_JPRB/)
+KBO( :,37, 9) = (/&
+&2.9273E-01_JPRB,3.0346E-01_JPRB,3.1486E-01_JPRB,3.2720E-01_JPRB,3.4049E-01_JPRB/)
+KBO( :,38, 9) = (/&
+&2.5454E-01_JPRB,2.6503E-01_JPRB,2.7620E-01_JPRB,2.8834E-01_JPRB,3.0122E-01_JPRB/)
+KBO( :,39, 9) = (/&
+&2.2111E-01_JPRB,2.3117E-01_JPRB,2.4193E-01_JPRB,2.5368E-01_JPRB,2.6599E-01_JPRB/)
+KBO( :,40, 9) = (/&
+&1.9377E-01_JPRB,2.0358E-01_JPRB,2.1415E-01_JPRB,2.2567E-01_JPRB,2.3776E-01_JPRB/)
+KBO( :,41, 9) = (/&
+&1.7005E-01_JPRB,1.7960E-01_JPRB,1.8995E-01_JPRB,2.0120E-01_JPRB,2.1299E-01_JPRB/)
+KBO( :,42, 9) = (/&
+&1.4922E-01_JPRB,1.5844E-01_JPRB,1.6847E-01_JPRB,1.7937E-01_JPRB,1.9081E-01_JPRB/)
+KBO( :,43, 9) = (/&
+&1.3075E-01_JPRB,1.3959E-01_JPRB,1.4924E-01_JPRB,1.5974E-01_JPRB,1.7085E-01_JPRB/)
+KBO( :,44, 9) = (/&
+&1.1438E-01_JPRB,1.2283E-01_JPRB,1.3202E-01_JPRB,1.4209E-01_JPRB,1.5286E-01_JPRB/)
+KBO( :,45, 9) = (/&
+&9.9902E-02_JPRB,1.0790E-01_JPRB,1.1661E-01_JPRB,1.2618E-01_JPRB,1.3651E-01_JPRB/)
+KBO( :,46, 9) = (/&
+&8.7103E-02_JPRB,9.4627E-02_JPRB,1.0284E-01_JPRB,1.1186E-01_JPRB,1.2171E-01_JPRB/)
+KBO( :,47, 9) = (/&
+&7.5878E-02_JPRB,8.2893E-02_JPRB,9.0643E-02_JPRB,9.9147E-02_JPRB,1.0851E-01_JPRB/)
+KBO( :,48, 9) = (/&
+&6.5893E-02_JPRB,7.2362E-02_JPRB,7.9630E-02_JPRB,8.7572E-02_JPRB,9.6345E-02_JPRB/)
+KBO( :,49, 9) = (/&
+&5.6945E-02_JPRB,6.2864E-02_JPRB,6.9577E-02_JPRB,7.6900E-02_JPRB,8.5016E-02_JPRB/)
+KBO( :,50, 9) = (/&
+&4.9637E-02_JPRB,5.5145E-02_JPRB,6.1441E-02_JPRB,6.8345E-02_JPRB,7.5988E-02_JPRB/)
+KBO( :,51, 9) = (/&
+&4.3422E-02_JPRB,4.8608E-02_JPRB,5.4551E-02_JPRB,6.1122E-02_JPRB,6.8380E-02_JPRB/)
+KBO( :,52, 9) = (/&
+&3.7823E-02_JPRB,4.2708E-02_JPRB,4.8270E-02_JPRB,5.4493E-02_JPRB,6.1367E-02_JPRB/)
+KBO( :,53, 9) = (/&
+&3.2716E-02_JPRB,3.7294E-02_JPRB,4.2470E-02_JPRB,4.8310E-02_JPRB,5.4754E-02_JPRB/)
+KBO( :,54, 9) = (/&
+&2.8879E-02_JPRB,3.3341E-02_JPRB,3.8351E-02_JPRB,4.4083E-02_JPRB,5.0425E-02_JPRB/)
+KBO( :,55, 9) = (/&
+&2.5791E-02_JPRB,3.0208E-02_JPRB,3.5200E-02_JPRB,4.0945E-02_JPRB,4.7385E-02_JPRB/)
+KBO( :,56, 9) = (/&
+&2.2986E-02_JPRB,2.7363E-02_JPRB,3.2337E-02_JPRB,3.8064E-02_JPRB,4.4613E-02_JPRB/)
+KBO( :,57, 9) = (/&
+&2.0449E-02_JPRB,2.4769E-02_JPRB,2.9701E-02_JPRB,3.5425E-02_JPRB,4.2056E-02_JPRB/)
+KBO( :,58, 9) = (/&
+&1.8265E-02_JPRB,2.2536E-02_JPRB,2.7482E-02_JPRB,3.3264E-02_JPRB,4.0010E-02_JPRB/)
+KBO( :,59, 9) = (/&
+&1.7419E-02_JPRB,2.1942E-02_JPRB,2.7259E-02_JPRB,3.3550E-02_JPRB,4.0933E-02_JPRB/)
+KBO( :,13,10) = (/&
+&4.1739E+01_JPRB,4.1046E+01_JPRB,4.0406E+01_JPRB,3.9903E+01_JPRB,3.9432E+01_JPRB/)
+KBO( :,14,10) = (/&
+&3.7780E+01_JPRB,3.7208E+01_JPRB,3.6738E+01_JPRB,3.6356E+01_JPRB,3.5932E+01_JPRB/)
+KBO( :,15,10) = (/&
+&3.3722E+01_JPRB,3.3320E+01_JPRB,3.3014E+01_JPRB,3.2683E+01_JPRB,3.2296E+01_JPRB/)
+KBO( :,16,10) = (/&
+&2.9809E+01_JPRB,2.9590E+01_JPRB,2.9319E+01_JPRB,2.8947E+01_JPRB,2.8490E+01_JPRB/)
+KBO( :,17,10) = (/&
+&2.6216E+01_JPRB,2.5994E+01_JPRB,2.5636E+01_JPRB,2.5227E+01_JPRB,2.4815E+01_JPRB/)
+KBO( :,18,10) = (/&
+&2.2808E+01_JPRB,2.2491E+01_JPRB,2.2154E+01_JPRB,2.1818E+01_JPRB,2.1508E+01_JPRB/)
+KBO( :,19,10) = (/&
+&1.9565E+01_JPRB,1.9296E+01_JPRB,1.9038E+01_JPRB,1.8774E+01_JPRB,1.8537E+01_JPRB/)
+KBO( :,20,10) = (/&
+&1.6665E+01_JPRB,1.6469E+01_JPRB,1.6266E+01_JPRB,1.6063E+01_JPRB,1.5906E+01_JPRB/)
+KBO( :,21,10) = (/&
+&1.4150E+01_JPRB,1.3996E+01_JPRB,1.3834E+01_JPRB,1.3710E+01_JPRB,1.3628E+01_JPRB/)
+KBO( :,22,10) = (/&
+&1.1976E+01_JPRB,1.1855E+01_JPRB,1.1765E+01_JPRB,1.1705E+01_JPRB,1.1637E+01_JPRB/)
+KBO( :,23,10) = (/&
+&1.0127E+01_JPRB,1.0053E+01_JPRB,1.0018E+01_JPRB,9.9752E+00_JPRB,9.9226E+00_JPRB/)
+KBO( :,24,10) = (/&
+&8.6146E+00_JPRB,8.5826E+00_JPRB,8.5522E+00_JPRB,8.5043E+00_JPRB,8.4734E+00_JPRB/)
+KBO( :,25,10) = (/&
+&7.4968E+00_JPRB,7.4470E+00_JPRB,7.3837E+00_JPRB,7.3316E+00_JPRB,7.2993E+00_JPRB/)
+KBO( :,26,10) = (/&
+&6.6803E+00_JPRB,6.6009E+00_JPRB,6.5219E+00_JPRB,6.4615E+00_JPRB,6.4001E+00_JPRB/)
+KBO( :,27,10) = (/&
+&5.9868E+00_JPRB,5.9080E+00_JPRB,5.8394E+00_JPRB,5.7646E+00_JPRB,5.6979E+00_JPRB/)
+KBO( :,28,10) = (/&
+&5.3464E+00_JPRB,5.2910E+00_JPRB,5.2326E+00_JPRB,5.1670E+00_JPRB,5.1173E+00_JPRB/)
+KBO( :,29,10) = (/&
+&4.6977E+00_JPRB,4.6608E+00_JPRB,4.6112E+00_JPRB,4.5661E+00_JPRB,4.5356E+00_JPRB/)
+KBO( :,30,10) = (/&
+&4.1012E+00_JPRB,4.0712E+00_JPRB,4.0379E+00_JPRB,4.0156E+00_JPRB,3.9964E+00_JPRB/)
+KBO( :,31,10) = (/&
+&3.5181E+00_JPRB,3.4969E+00_JPRB,3.4850E+00_JPRB,3.4732E+00_JPRB,3.4789E+00_JPRB/)
+KBO( :,32,10) = (/&
+&3.0189E+00_JPRB,3.0109E+00_JPRB,3.0086E+00_JPRB,3.0140E+00_JPRB,3.0440E+00_JPRB/)
+KBO( :,33,10) = (/&
+&2.5886E+00_JPRB,2.5926E+00_JPRB,2.5982E+00_JPRB,2.6243E+00_JPRB,2.6716E+00_JPRB/)
+KBO( :,34,10) = (/&
+&2.2587E+00_JPRB,2.2647E+00_JPRB,2.2836E+00_JPRB,2.3246E+00_JPRB,2.3804E+00_JPRB/)
+KBO( :,35,10) = (/&
+&1.9773E+00_JPRB,1.9897E+00_JPRB,2.0203E+00_JPRB,2.0679E+00_JPRB,2.1301E+00_JPRB/)
+KBO( :,36,10) = (/&
+&1.7395E+00_JPRB,1.7595E+00_JPRB,1.7974E+00_JPRB,1.8469E+00_JPRB,1.9158E+00_JPRB/)
+KBO( :,37,10) = (/&
+&1.5472E+00_JPRB,1.5730E+00_JPRB,1.6139E+00_JPRB,1.6628E+00_JPRB,1.7327E+00_JPRB/)
+KBO( :,38,10) = (/&
+&1.3714E+00_JPRB,1.4025E+00_JPRB,1.4462E+00_JPRB,1.4974E+00_JPRB,1.5691E+00_JPRB/)
+KBO( :,39,10) = (/&
+&1.2087E+00_JPRB,1.2443E+00_JPRB,1.2905E+00_JPRB,1.3459E+00_JPRB,1.4223E+00_JPRB/)
+KBO( :,40,10) = (/&
+&1.0876E+00_JPRB,1.1253E+00_JPRB,1.1721E+00_JPRB,1.2268E+00_JPRB,1.3018E+00_JPRB/)
+KBO( :,41,10) = (/&
+&9.8026E-01_JPRB,1.0194E+00_JPRB,1.0667E+00_JPRB,1.1210E+00_JPRB,1.1950E+00_JPRB/)
+KBO( :,42,10) = (/&
+&8.8231E-01_JPRB,9.2156E-01_JPRB,9.6932E-01_JPRB,1.0233E+00_JPRB,1.0965E+00_JPRB/)
+KBO( :,43,10) = (/&
+&7.9349E-01_JPRB,8.3234E-01_JPRB,8.7952E-01_JPRB,9.3292E-01_JPRB,1.0030E+00_JPRB/)
+KBO( :,44,10) = (/&
+&7.1136E-01_JPRB,7.4926E-01_JPRB,7.9572E-01_JPRB,8.4791E-01_JPRB,9.1488E-01_JPRB/)
+KBO( :,45,10) = (/&
+&6.3430E-01_JPRB,6.7145E-01_JPRB,7.1626E-01_JPRB,7.6714E-01_JPRB,8.3123E-01_JPRB/)
+KBO( :,46,10) = (/&
+&5.6439E-01_JPRB,6.0014E-01_JPRB,6.4281E-01_JPRB,6.9208E-01_JPRB,7.5262E-01_JPRB/)
+KBO( :,47,10) = (/&
+&5.0247E-01_JPRB,5.3776E-01_JPRB,5.7789E-01_JPRB,6.2500E-01_JPRB,6.8134E-01_JPRB/)
+KBO( :,48,10) = (/&
+&4.4383E-01_JPRB,4.7811E-01_JPRB,5.1539E-01_JPRB,5.6031E-01_JPRB,6.1366E-01_JPRB/)
+KBO( :,49,10) = (/&
+&3.8764E-01_JPRB,4.2029E-01_JPRB,4.5444E-01_JPRB,4.9673E-01_JPRB,5.4849E-01_JPRB/)
+KBO( :,50,10) = (/&
+&3.4416E-01_JPRB,3.7626E-01_JPRB,4.0876E-01_JPRB,4.4843E-01_JPRB,4.9768E-01_JPRB/)
+KBO( :,51,10) = (/&
+&3.0832E-01_JPRB,3.4001E-01_JPRB,3.7156E-01_JPRB,4.0857E-01_JPRB,4.5514E-01_JPRB/)
+KBO( :,52,10) = (/&
+&2.7467E-01_JPRB,3.0526E-01_JPRB,3.3577E-01_JPRB,3.7029E-01_JPRB,4.1417E-01_JPRB/)
+KBO( :,53,10) = (/&
+&2.4290E-01_JPRB,2.7158E-01_JPRB,3.0075E-01_JPRB,3.3282E-01_JPRB,3.7486E-01_JPRB/)
+KBO( :,54,10) = (/&
+&2.2403E-01_JPRB,2.5308E-01_JPRB,2.8293E-01_JPRB,3.1404E-01_JPRB,3.5280E-01_JPRB/)
+KBO( :,55,10) = (/&
+&2.1196E-01_JPRB,2.4297E-01_JPRB,2.7480E-01_JPRB,3.0677E-01_JPRB,3.4328E-01_JPRB/)
+KBO( :,56,10) = (/&
+&2.0061E-01_JPRB,2.3363E-01_JPRB,2.6759E-01_JPRB,3.0162E-01_JPRB,3.3751E-01_JPRB/)
+KBO( :,57,10) = (/&
+&1.8972E-01_JPRB,2.2491E-01_JPRB,2.6131E-01_JPRB,2.9791E-01_JPRB,3.3473E-01_JPRB/)
+KBO( :,58,10) = (/&
+&1.8070E-01_JPRB,2.1925E-01_JPRB,2.5864E-01_JPRB,2.9863E-01_JPRB,3.3832E-01_JPRB/)
+KBO( :,59,10) = (/&
+&1.9009E-01_JPRB,2.3640E-01_JPRB,2.8437E-01_JPRB,3.3376E-01_JPRB,3.8278E-01_JPRB/)
+KBO( :,13,11) = (/&
+&7.0149E+01_JPRB,6.9123E+01_JPRB,6.8075E+01_JPRB,6.6895E+01_JPRB,6.5820E+01_JPRB/)
+KBO( :,14,11) = (/&
+&6.5578E+01_JPRB,6.4536E+01_JPRB,6.3472E+01_JPRB,6.2454E+01_JPRB,6.1689E+01_JPRB/)
+KBO( :,15,11) = (/&
+&6.0260E+01_JPRB,5.9271E+01_JPRB,5.8388E+01_JPRB,5.7747E+01_JPRB,5.7148E+01_JPRB/)
+KBO( :,16,11) = (/&
+&5.4585E+01_JPRB,5.3841E+01_JPRB,5.3248E+01_JPRB,5.2830E+01_JPRB,5.2312E+01_JPRB/)
+KBO( :,17,11) = (/&
+&4.8861E+01_JPRB,4.8416E+01_JPRB,4.8107E+01_JPRB,4.7718E+01_JPRB,4.7237E+01_JPRB/)
+KBO( :,18,11) = (/&
+&4.3383E+01_JPRB,4.3211E+01_JPRB,4.2923E+01_JPRB,4.2513E+01_JPRB,4.2012E+01_JPRB/)
+KBO( :,19,11) = (/&
+&3.8334E+01_JPRB,3.8170E+01_JPRB,3.7821E+01_JPRB,3.7371E+01_JPRB,3.6895E+01_JPRB/)
+KBO( :,20,11) = (/&
+&3.3555E+01_JPRB,3.3295E+01_JPRB,3.2935E+01_JPRB,3.2565E+01_JPRB,3.2201E+01_JPRB/)
+KBO( :,21,11) = (/&
+&2.9039E+01_JPRB,2.8767E+01_JPRB,2.8509E+01_JPRB,2.8236E+01_JPRB,2.8026E+01_JPRB/)
+KBO( :,22,11) = (/&
+&2.4902E+01_JPRB,2.4733E+01_JPRB,2.4566E+01_JPRB,2.4421E+01_JPRB,2.4354E+01_JPRB/)
+KBO( :,23,11) = (/&
+&2.1296E+01_JPRB,2.1205E+01_JPRB,2.1131E+01_JPRB,2.1097E+01_JPRB,2.1132E+01_JPRB/)
+KBO( :,24,11) = (/&
+&1.8198E+01_JPRB,1.8158E+01_JPRB,1.8158E+01_JPRB,1.8237E+01_JPRB,1.8336E+01_JPRB/)
+KBO( :,25,11) = (/&
+&1.5544E+01_JPRB,1.5571E+01_JPRB,1.5662E+01_JPRB,1.5796E+01_JPRB,1.5933E+01_JPRB/)
+KBO( :,26,11) = (/&
+&1.3326E+01_JPRB,1.3410E+01_JPRB,1.3550E+01_JPRB,1.3704E+01_JPRB,1.3869E+01_JPRB/)
+KBO( :,27,11) = (/&
+&1.1535E+01_JPRB,1.1648E+01_JPRB,1.1786E+01_JPRB,1.1944E+01_JPRB,1.2119E+01_JPRB/)
+KBO( :,28,11) = (/&
+&1.0126E+01_JPRB,1.0223E+01_JPRB,1.0334E+01_JPRB,1.0469E+01_JPRB,1.0651E+01_JPRB/)
+KBO( :,29,11) = (/&
+&8.9101E+00_JPRB,8.9853E+00_JPRB,9.0819E+00_JPRB,9.2309E+00_JPRB,9.4172E+00_JPRB/)
+KBO( :,30,11) = (/&
+&7.8287E+00_JPRB,7.9021E+00_JPRB,8.0148E+00_JPRB,8.1712E+00_JPRB,8.3714E+00_JPRB/)
+KBO( :,31,11) = (/&
+&6.8306E+00_JPRB,6.9335E+00_JPRB,7.0726E+00_JPRB,7.2494E+00_JPRB,7.4774E+00_JPRB/)
+KBO( :,32,11) = (/&
+&5.9792E+00_JPRB,6.1135E+00_JPRB,6.2718E+00_JPRB,6.4804E+00_JPRB,6.7529E+00_JPRB/)
+KBO( :,33,11) = (/&
+&5.2618E+00_JPRB,5.4133E+00_JPRB,5.6076E+00_JPRB,5.8571E+00_JPRB,6.1763E+00_JPRB/)
+KBO( :,34,11) = (/&
+&4.6698E+00_JPRB,4.8453E+00_JPRB,5.0695E+00_JPRB,5.3575E+00_JPRB,5.7160E+00_JPRB/)
+KBO( :,35,11) = (/&
+&4.1584E+00_JPRB,4.3575E+00_JPRB,4.6070E+00_JPRB,4.9274E+00_JPRB,5.3225E+00_JPRB/)
+KBO( :,36,11) = (/&
+&3.7186E+00_JPRB,3.9296E+00_JPRB,4.1978E+00_JPRB,4.5407E+00_JPRB,4.9651E+00_JPRB/)
+KBO( :,37,11) = (/&
+&3.3279E+00_JPRB,3.5372E+00_JPRB,3.8098E+00_JPRB,4.1628E+00_JPRB,4.5979E+00_JPRB/)
+KBO( :,38,11) = (/&
+&2.9878E+00_JPRB,3.1966E+00_JPRB,3.4726E+00_JPRB,3.8328E+00_JPRB,4.2770E+00_JPRB/)
+KBO( :,39,11) = (/&
+&2.6914E+00_JPRB,2.9029E+00_JPRB,3.1837E+00_JPRB,3.5477E+00_JPRB,4.0016E+00_JPRB/)
+KBO( :,40,11) = (/&
+&2.4319E+00_JPRB,2.6362E+00_JPRB,2.9062E+00_JPRB,3.2638E+00_JPRB,3.7133E+00_JPRB/)
+KBO( :,41,11) = (/&
+&2.2031E+00_JPRB,2.4012E+00_JPRB,2.6621E+00_JPRB,3.0107E+00_JPRB,3.4498E+00_JPRB/)
+KBO( :,42,11) = (/&
+&2.0013E+00_JPRB,2.1930E+00_JPRB,2.4477E+00_JPRB,2.7865E+00_JPRB,3.2158E+00_JPRB/)
+KBO( :,43,11) = (/&
+&1.8155E+00_JPRB,1.9974E+00_JPRB,2.2421E+00_JPRB,2.5673E+00_JPRB,2.9810E+00_JPRB/)
+KBO( :,44,11) = (/&
+&1.6439E+00_JPRB,1.8173E+00_JPRB,2.0498E+00_JPRB,2.3631E+00_JPRB,2.7568E+00_JPRB/)
+KBO( :,45,11) = (/&
+&1.4842E+00_JPRB,1.6535E+00_JPRB,1.8762E+00_JPRB,2.1775E+00_JPRB,2.5541E+00_JPRB/)
+KBO( :,46,11) = (/&
+&1.3346E+00_JPRB,1.5007E+00_JPRB,1.7141E+00_JPRB,2.0007E+00_JPRB,2.3614E+00_JPRB/)
+KBO( :,47,11) = (/&
+&1.1958E+00_JPRB,1.3538E+00_JPRB,1.5588E+00_JPRB,1.8260E+00_JPRB,2.1685E+00_JPRB/)
+KBO( :,48,11) = (/&
+&1.0640E+00_JPRB,1.2166E+00_JPRB,1.4134E+00_JPRB,1.6668E+00_JPRB,1.9895E+00_JPRB/)
+KBO( :,49,11) = (/&
+&9.3797E-01_JPRB,1.0854E+00_JPRB,1.2775E+00_JPRB,1.5201E+00_JPRB,1.8241E+00_JPRB/)
+KBO( :,50,11) = (/&
+&8.3668E-01_JPRB,9.7538E-01_JPRB,1.1607E+00_JPRB,1.3932E+00_JPRB,1.6808E+00_JPRB/)
+KBO( :,51,11) = (/&
+&7.5008E-01_JPRB,8.7912E-01_JPRB,1.0560E+00_JPRB,1.2775E+00_JPRB,1.5512E+00_JPRB/)
+KBO( :,52,11) = (/&
+&6.6890E-01_JPRB,7.8952E-01_JPRB,9.5710E-01_JPRB,1.1702E+00_JPRB,1.4314E+00_JPRB/)
+KBO( :,53,11) = (/&
+&5.9133E-01_JPRB,7.0597E-01_JPRB,8.6435E-01_JPRB,1.0696E+00_JPRB,1.3200E+00_JPRB/)
+KBO( :,54,11) = (/&
+&5.4247E-01_JPRB,6.4706E-01_JPRB,7.9188E-01_JPRB,9.8503E-01_JPRB,1.2232E+00_JPRB/)
+KBO( :,55,11) = (/&
+&5.1549E-01_JPRB,6.0734E-01_JPRB,7.3731E-01_JPRB,9.1442E-01_JPRB,1.1379E+00_JPRB/)
+KBO( :,56,11) = (/&
+&4.9471E-01_JPRB,5.7941E-01_JPRB,6.9440E-01_JPRB,8.5446E-01_JPRB,1.0607E+00_JPRB/)
+KBO( :,57,11) = (/&
+&4.7679E-01_JPRB,5.6152E-01_JPRB,6.6311E-01_JPRB,8.0517E-01_JPRB,9.9285E-01_JPRB/)
+KBO( :,58,11) = (/&
+&4.6722E-01_JPRB,5.5574E-01_JPRB,6.5140E-01_JPRB,7.7485E-01_JPRB,9.4214E-01_JPRB/)
+KBO( :,59,11) = (/&
+&5.1746E-01_JPRB,6.2446E-01_JPRB,7.3396E-01_JPRB,8.4651E-01_JPRB,9.8677E-01_JPRB/)
+KBO( :,13,12) = (/&
+&1.1763E+02_JPRB,1.1704E+02_JPRB,1.1603E+02_JPRB,1.1496E+02_JPRB,1.1364E+02_JPRB/)
+KBO( :,14,12) = (/&
+&1.1720E+02_JPRB,1.1632E+02_JPRB,1.1514E+02_JPRB,1.1375E+02_JPRB,1.1226E+02_JPRB/)
+KBO( :,15,12) = (/&
+&1.1432E+02_JPRB,1.1304E+02_JPRB,1.1152E+02_JPRB,1.1000E+02_JPRB,1.0842E+02_JPRB/)
+KBO( :,16,12) = (/&
+&1.0854E+02_JPRB,1.0712E+02_JPRB,1.0555E+02_JPRB,1.0402E+02_JPRB,1.0281E+02_JPRB/)
+KBO( :,17,12) = (/&
+&1.0094E+02_JPRB,9.9554E+01_JPRB,9.8139E+01_JPRB,9.7144E+01_JPRB,9.6378E+01_JPRB/)
+KBO( :,18,12) = (/&
+&9.2454E+01_JPRB,9.1307E+01_JPRB,9.0476E+01_JPRB,8.9927E+01_JPRB,8.9509E+01_JPRB/)
+KBO( :,19,12) = (/&
+&8.3732E+01_JPRB,8.3060E+01_JPRB,8.2781E+01_JPRB,8.2603E+01_JPRB,8.2376E+01_JPRB/)
+KBO( :,20,12) = (/&
+&7.5210E+01_JPRB,7.5083E+01_JPRB,7.5219E+01_JPRB,7.5148E+01_JPRB,7.5022E+01_JPRB/)
+KBO( :,21,12) = (/&
+&6.7221E+01_JPRB,6.7502E+01_JPRB,6.7667E+01_JPRB,6.7706E+01_JPRB,6.7670E+01_JPRB/)
+KBO( :,22,12) = (/&
+&5.9857E+01_JPRB,6.0211E+01_JPRB,6.0464E+01_JPRB,6.0528E+01_JPRB,6.0584E+01_JPRB/)
+KBO( :,23,12) = (/&
+&5.3034E+01_JPRB,5.3411E+01_JPRB,5.3657E+01_JPRB,5.3849E+01_JPRB,5.4089E+01_JPRB/)
+KBO( :,24,12) = (/&
+&4.6747E+01_JPRB,4.7114E+01_JPRB,4.7455E+01_JPRB,4.7832E+01_JPRB,4.8289E+01_JPRB/)
+KBO( :,25,12) = (/&
+&4.1034E+01_JPRB,4.1487E+01_JPRB,4.1992E+01_JPRB,4.2559E+01_JPRB,4.3281E+01_JPRB/)
+KBO( :,26,12) = (/&
+&3.5986E+01_JPRB,3.6596E+01_JPRB,3.7280E+01_JPRB,3.8073E+01_JPRB,3.9028E+01_JPRB/)
+KBO( :,27,12) = (/&
+&3.1660E+01_JPRB,3.2405E+01_JPRB,3.3245E+01_JPRB,3.4269E+01_JPRB,3.5471E+01_JPRB/)
+KBO( :,28,12) = (/&
+&2.7947E+01_JPRB,2.8848E+01_JPRB,2.9895E+01_JPRB,3.1146E+01_JPRB,3.2530E+01_JPRB/)
+KBO( :,29,12) = (/&
+&2.4835E+01_JPRB,2.5907E+01_JPRB,2.7165E+01_JPRB,2.8573E+01_JPRB,3.0101E+01_JPRB/)
+KBO( :,30,12) = (/&
+&2.2283E+01_JPRB,2.3505E+01_JPRB,2.4915E+01_JPRB,2.6460E+01_JPRB,2.8145E+01_JPRB/)
+KBO( :,31,12) = (/&
+&2.0220E+01_JPRB,2.1547E+01_JPRB,2.3078E+01_JPRB,2.4775E+01_JPRB,2.6630E+01_JPRB/)
+KBO( :,32,12) = (/&
+&1.8546E+01_JPRB,1.9996E+01_JPRB,2.1643E+01_JPRB,2.3497E+01_JPRB,2.5478E+01_JPRB/)
+KBO( :,33,12) = (/&
+&1.7230E+01_JPRB,1.8797E+01_JPRB,2.0565E+01_JPRB,2.2562E+01_JPRB,2.4685E+01_JPRB/)
+KBO( :,34,12) = (/&
+&1.6179E+01_JPRB,1.7864E+01_JPRB,1.9755E+01_JPRB,2.1868E+01_JPRB,2.4108E+01_JPRB/)
+KBO( :,35,12) = (/&
+&1.5234E+01_JPRB,1.7011E+01_JPRB,1.9013E+01_JPRB,2.1222E+01_JPRB,2.3546E+01_JPRB/)
+KBO( :,36,12) = (/&
+&1.4312E+01_JPRB,1.6162E+01_JPRB,1.8243E+01_JPRB,2.0518E+01_JPRB,2.2905E+01_JPRB/)
+KBO( :,37,12) = (/&
+&1.3297E+01_JPRB,1.5184E+01_JPRB,1.7295E+01_JPRB,1.9599E+01_JPRB,2.2032E+01_JPRB/)
+KBO( :,38,12) = (/&
+&1.2404E+01_JPRB,1.4319E+01_JPRB,1.6454E+01_JPRB,1.8773E+01_JPRB,2.1247E+01_JPRB/)
+KBO( :,39,12) = (/&
+&1.1631E+01_JPRB,1.3561E+01_JPRB,1.5713E+01_JPRB,1.8045E+01_JPRB,2.0533E+01_JPRB/)
+KBO( :,40,12) = (/&
+&1.0776E+01_JPRB,1.2683E+01_JPRB,1.4823E+01_JPRB,1.7145E+01_JPRB,1.9624E+01_JPRB/)
+KBO( :,41,12) = (/&
+&9.9846E+00_JPRB,1.1854E+01_JPRB,1.3973E+01_JPRB,1.6278E+01_JPRB,1.8741E+01_JPRB/)
+KBO( :,42,12) = (/&
+&9.2669E+00_JPRB,1.1094E+01_JPRB,1.3178E+01_JPRB,1.5464E+01_JPRB,1.7906E+01_JPRB/)
+KBO( :,43,12) = (/&
+&8.5220E+00_JPRB,1.0286E+01_JPRB,1.2314E+01_JPRB,1.4565E+01_JPRB,1.6968E+01_JPRB/)
+KBO( :,44,12) = (/&
+&7.8007E+00_JPRB,9.4905E+00_JPRB,1.1450E+01_JPRB,1.3650E+01_JPRB,1.6009E+01_JPRB/)
+KBO( :,45,12) = (/&
+&7.1409E+00_JPRB,8.7509E+00_JPRB,1.0635E+01_JPRB,1.2772E+01_JPRB,1.5090E+01_JPRB/)
+KBO( :,46,12) = (/&
+&6.4944E+00_JPRB,8.0237E+00_JPRB,9.8250E+00_JPRB,1.1888E+01_JPRB,1.4153E+01_JPRB/)
+KBO( :,47,12) = (/&
+&5.8398E+00_JPRB,7.2873E+00_JPRB,8.9871E+00_JPRB,1.0958E+01_JPRB,1.3150E+01_JPRB/)
+KBO( :,48,12) = (/&
+&5.2382E+00_JPRB,6.6014E+00_JPRB,8.2063E+00_JPRB,1.0074E+01_JPRB,1.2187E+01_JPRB/)
+KBO( :,49,12) = (/&
+&4.6806E+00_JPRB,5.9636E+00_JPRB,7.4774E+00_JPRB,9.2397E+00_JPRB,1.1262E+01_JPRB/)
+KBO( :,50,12) = (/&
+&4.1950E+00_JPRB,5.4065E+00_JPRB,6.8409E+00_JPRB,8.5038E+00_JPRB,1.0433E+01_JPRB/)
+KBO( :,51,12) = (/&
+&3.7601E+00_JPRB,4.9006E+00_JPRB,6.2541E+00_JPRB,7.8347E+00_JPRB,9.6656E+00_JPRB/)
+KBO( :,52,12) = (/&
+&3.3634E+00_JPRB,4.4254E+00_JPRB,5.7055E+00_JPRB,7.2078E+00_JPRB,8.9393E+00_JPRB/)
+KBO( :,53,12) = (/&
+&2.9998E+00_JPRB,3.9820E+00_JPRB,5.1884E+00_JPRB,6.6101E+00_JPRB,8.2541E+00_JPRB/)
+KBO( :,54,12) = (/&
+&2.6868E+00_JPRB,3.6047E+00_JPRB,4.7437E+00_JPRB,6.0916E+00_JPRB,7.6592E+00_JPRB/)
+KBO( :,55,12) = (/&
+&2.4117E+00_JPRB,3.2705E+00_JPRB,4.3398E+00_JPRB,5.6205E+00_JPRB,7.1187E+00_JPRB/)
+KBO( :,56,12) = (/&
+&2.1660E+00_JPRB,2.9605E+00_JPRB,3.9604E+00_JPRB,5.1726E+00_JPRB,6.6011E+00_JPRB/)
+KBO( :,57,12) = (/&
+&1.9495E+00_JPRB,2.6745E+00_JPRB,3.6080E+00_JPRB,4.7499E+00_JPRB,6.1107E+00_JPRB/)
+KBO( :,58,12) = (/&
+&1.7779E+00_JPRB,2.4322E+00_JPRB,3.2974E+00_JPRB,4.3714E+00_JPRB,5.6684E+00_JPRB/)
+KBO( :,59,12) = (/&
+&1.8044E+00_JPRB,2.3958E+00_JPRB,3.1943E+00_JPRB,4.2235E+00_JPRB,5.4952E+00_JPRB/)
+KBO( :,13,13) = (/&
+&2.0512E+02_JPRB,2.0180E+02_JPRB,1.9927E+02_JPRB,1.9697E+02_JPRB,1.9484E+02_JPRB/)
+KBO( :,14,13) = (/&
+&2.1130E+02_JPRB,2.0859E+02_JPRB,2.0670E+02_JPRB,2.0479E+02_JPRB,2.0269E+02_JPRB/)
+KBO( :,15,13) = (/&
+&2.1567E+02_JPRB,2.1436E+02_JPRB,2.1270E+02_JPRB,2.1071E+02_JPRB,2.0862E+02_JPRB/)
+KBO( :,16,13) = (/&
+&2.1924E+02_JPRB,2.1808E+02_JPRB,2.1632E+02_JPRB,2.1429E+02_JPRB,2.1205E+02_JPRB/)
+KBO( :,17,13) = (/&
+&2.1990E+02_JPRB,2.1849E+02_JPRB,2.1654E+02_JPRB,2.1444E+02_JPRB,2.1217E+02_JPRB/)
+KBO( :,18,13) = (/&
+&2.1655E+02_JPRB,2.1510E+02_JPRB,2.1314E+02_JPRB,2.1102E+02_JPRB,2.0899E+02_JPRB/)
+KBO( :,19,13) = (/&
+&2.0961E+02_JPRB,2.0798E+02_JPRB,2.0612E+02_JPRB,2.0453E+02_JPRB,2.0306E+02_JPRB/)
+KBO( :,20,13) = (/&
+&1.9928E+02_JPRB,1.9792E+02_JPRB,1.9688E+02_JPRB,1.9606E+02_JPRB,1.9544E+02_JPRB/)
+KBO( :,21,13) = (/&
+&1.8688E+02_JPRB,1.8632E+02_JPRB,1.8628E+02_JPRB,1.8637E+02_JPRB,1.8670E+02_JPRB/)
+KBO( :,22,13) = (/&
+&1.7350E+02_JPRB,1.7419E+02_JPRB,1.7515E+02_JPRB,1.7641E+02_JPRB,1.7783E+02_JPRB/)
+KBO( :,23,13) = (/&
+&1.6055E+02_JPRB,1.6233E+02_JPRB,1.6459E+02_JPRB,1.6688E+02_JPRB,1.6939E+02_JPRB/)
+KBO( :,24,13) = (/&
+&1.4859E+02_JPRB,1.5153E+02_JPRB,1.5476E+02_JPRB,1.5830E+02_JPRB,1.6165E+02_JPRB/)
+KBO( :,25,13) = (/&
+&1.3793E+02_JPRB,1.4190E+02_JPRB,1.4615E+02_JPRB,1.5046E+02_JPRB,1.5447E+02_JPRB/)
+KBO( :,26,13) = (/&
+&1.2881E+02_JPRB,1.3370E+02_JPRB,1.3871E+02_JPRB,1.4366E+02_JPRB,1.4837E+02_JPRB/)
+KBO( :,27,13) = (/&
+&1.2091E+02_JPRB,1.2669E+02_JPRB,1.3236E+02_JPRB,1.3790E+02_JPRB,1.4323E+02_JPRB/)
+KBO( :,28,13) = (/&
+&1.1443E+02_JPRB,1.2084E+02_JPRB,1.2716E+02_JPRB,1.3332E+02_JPRB,1.3925E+02_JPRB/)
+KBO( :,29,13) = (/&
+&1.0924E+02_JPRB,1.1623E+02_JPRB,1.2318E+02_JPRB,1.2992E+02_JPRB,1.3643E+02_JPRB/)
+KBO( :,30,13) = (/&
+&1.0522E+02_JPRB,1.1286E+02_JPRB,1.2038E+02_JPRB,1.2758E+02_JPRB,1.3457E+02_JPRB/)
+KBO( :,31,13) = (/&
+&1.0235E+02_JPRB,1.1060E+02_JPRB,1.1856E+02_JPRB,1.2616E+02_JPRB,1.3349E+02_JPRB/)
+KBO( :,32,13) = (/&
+&1.0060E+02_JPRB,1.0929E+02_JPRB,1.1766E+02_JPRB,1.2555E+02_JPRB,1.3305E+02_JPRB/)
+KBO( :,33,13) = (/&
+&9.9754E+01_JPRB,1.0883E+02_JPRB,1.1748E+02_JPRB,1.2555E+02_JPRB,1.3314E+02_JPRB/)
+KBO( :,34,13) = (/&
+&9.9339E+01_JPRB,1.0865E+02_JPRB,1.1753E+02_JPRB,1.2571E+02_JPRB,1.3339E+02_JPRB/)
+KBO( :,35,13) = (/&
+&9.8596E+01_JPRB,1.0810E+02_JPRB,1.1714E+02_JPRB,1.2546E+02_JPRB,1.3323E+02_JPRB/)
+KBO( :,36,13) = (/&
+&9.7185E+01_JPRB,1.0690E+02_JPRB,1.1612E+02_JPRB,1.2461E+02_JPRB,1.3247E+02_JPRB/)
+KBO( :,37,13) = (/&
+&9.4552E+01_JPRB,1.0450E+02_JPRB,1.1396E+02_JPRB,1.2268E+02_JPRB,1.3072E+02_JPRB/)
+KBO( :,38,13) = (/&
+&9.2021E+01_JPRB,1.0218E+02_JPRB,1.1183E+02_JPRB,1.2080E+02_JPRB,1.2896E+02_JPRB/)
+KBO( :,39,13) = (/&
+&8.9655E+01_JPRB,1.0001E+02_JPRB,1.0984E+02_JPRB,1.1901E+02_JPRB,1.2733E+02_JPRB/)
+KBO( :,40,13) = (/&
+&8.6395E+01_JPRB,9.6898E+01_JPRB,1.0693E+02_JPRB,1.1637E+02_JPRB,1.2493E+02_JPRB/)
+KBO( :,41,13) = (/&
+&8.3008E+01_JPRB,9.3700E+01_JPRB,1.0393E+02_JPRB,1.1362E+02_JPRB,1.2243E+02_JPRB/)
+KBO( :,42,13) = (/&
+&7.9672E+01_JPRB,9.0529E+01_JPRB,1.0096E+02_JPRB,1.1088E+02_JPRB,1.1992E+02_JPRB/)
+KBO( :,43,13) = (/&
+&7.5762E+01_JPRB,8.6769E+01_JPRB,9.7419E+01_JPRB,1.0755E+02_JPRB,1.1689E+02_JPRB/)
+KBO( :,44,13) = (/&
+&7.1629E+01_JPRB,8.2730E+01_JPRB,9.3566E+01_JPRB,1.0394E+02_JPRB,1.1358E+02_JPRB/)
+KBO( :,45,13) = (/&
+&6.7556E+01_JPRB,7.8701E+01_JPRB,8.9702E+01_JPRB,1.0031E+02_JPRB,1.1019E+02_JPRB/)
+KBO( :,46,13) = (/&
+&6.3293E+01_JPRB,7.4433E+01_JPRB,8.5570E+01_JPRB,9.6371E+01_JPRB,1.0651E+02_JPRB/)
+KBO( :,47,13) = (/&
+&5.8590E+01_JPRB,6.9723E+01_JPRB,8.0924E+01_JPRB,9.1933E+01_JPRB,1.0234E+02_JPRB/)
+KBO( :,48,13) = (/&
+&5.3939E+01_JPRB,6.5035E+01_JPRB,7.6260E+01_JPRB,8.7442E+01_JPRB,9.8085E+01_JPRB/)
+KBO( :,49,13) = (/&
+&4.9372E+01_JPRB,6.0382E+01_JPRB,7.1607E+01_JPRB,8.2898E+01_JPRB,9.3743E+01_JPRB/)
+KBO( :,50,13) = (/&
+&4.5182E+01_JPRB,5.6046E+01_JPRB,6.7282E+01_JPRB,7.8580E+01_JPRB,8.9608E+01_JPRB/)
+KBO( :,51,13) = (/&
+&4.1225E+01_JPRB,5.1903E+01_JPRB,6.3083E+01_JPRB,7.4337E+01_JPRB,8.5550E+01_JPRB/)
+KBO( :,52,13) = (/&
+&3.7400E+01_JPRB,4.7849E+01_JPRB,5.8911E+01_JPRB,7.0135E+01_JPRB,8.1453E+01_JPRB/)
+KBO( :,53,13) = (/&
+&3.3724E+01_JPRB,4.3867E+01_JPRB,5.4766E+01_JPRB,6.5951E+01_JPRB,7.7304E+01_JPRB/)
+KBO( :,54,13) = (/&
+&3.0521E+01_JPRB,4.0307E+01_JPRB,5.1017E+01_JPRB,6.2127E+01_JPRB,7.3480E+01_JPRB/)
+KBO( :,55,13) = (/&
+&2.7567E+01_JPRB,3.6992E+01_JPRB,4.7489E+01_JPRB,5.8488E+01_JPRB,6.9808E+01_JPRB/)
+KBO( :,56,13) = (/&
+&2.4765E+01_JPRB,3.3801E+01_JPRB,4.4027E+01_JPRB,5.4887E+01_JPRB,6.6150E+01_JPRB/)
+KBO( :,57,13) = (/&
+&2.2126E+01_JPRB,3.0733E+01_JPRB,4.0624E+01_JPRB,5.1332E+01_JPRB,6.2512E+01_JPRB/)
+KBO( :,58,13) = (/&
+&1.9779E+01_JPRB,2.7951E+01_JPRB,3.7480E+01_JPRB,4.7995E+01_JPRB,5.9073E+01_JPRB/)
+KBO( :,59,13) = (/&
+&1.8871E+01_JPRB,2.6859E+01_JPRB,3.6240E+01_JPRB,4.6659E+01_JPRB,5.7692E+01_JPRB/)
+KBO( :,13,14) = (/&
+&3.8707E+02_JPRB,3.8322E+02_JPRB,3.7871E+02_JPRB,3.7328E+02_JPRB,3.6786E+02_JPRB/)
+KBO( :,14,14) = (/&
+&4.1884E+02_JPRB,4.1330E+02_JPRB,4.0744E+02_JPRB,4.0116E+02_JPRB,3.9496E+02_JPRB/)
+KBO( :,15,14) = (/&
+&4.4801E+02_JPRB,4.4018E+02_JPRB,4.3297E+02_JPRB,4.2678E+02_JPRB,4.2069E+02_JPRB/)
+KBO( :,16,14) = (/&
+&4.7264E+02_JPRB,4.6443E+02_JPRB,4.5766E+02_JPRB,4.5139E+02_JPRB,4.4521E+02_JPRB/)
+KBO( :,17,14) = (/&
+&4.9540E+02_JPRB,4.8838E+02_JPRB,4.8129E+02_JPRB,4.7490E+02_JPRB,4.6866E+02_JPRB/)
+KBO( :,18,14) = (/&
+&5.1671E+02_JPRB,5.0996E+02_JPRB,5.0313E+02_JPRB,4.9709E+02_JPRB,4.9175E+02_JPRB/)
+KBO( :,19,14) = (/&
+&5.3506E+02_JPRB,5.2890E+02_JPRB,5.2336E+02_JPRB,5.1765E+02_JPRB,5.1228E+02_JPRB/)
+KBO( :,20,14) = (/&
+&5.5004E+02_JPRB,5.4514E+02_JPRB,5.3989E+02_JPRB,5.3465E+02_JPRB,5.2969E+02_JPRB/)
+KBO( :,21,14) = (/&
+&5.6147E+02_JPRB,5.5729E+02_JPRB,5.5301E+02_JPRB,5.4855E+02_JPRB,5.4414E+02_JPRB/)
+KBO( :,22,14) = (/&
+&5.6866E+02_JPRB,5.6616E+02_JPRB,5.6274E+02_JPRB,5.5924E+02_JPRB,5.5570E+02_JPRB/)
+KBO( :,23,14) = (/&
+&5.7274E+02_JPRB,5.7195E+02_JPRB,5.7007E+02_JPRB,5.6757E+02_JPRB,5.6416E+02_JPRB/)
+KBO( :,24,14) = (/&
+&5.7471E+02_JPRB,5.7582E+02_JPRB,5.7502E+02_JPRB,5.7329E+02_JPRB,5.7041E+02_JPRB/)
+KBO( :,25,14) = (/&
+&5.7535E+02_JPRB,5.7804E+02_JPRB,5.7836E+02_JPRB,5.7753E+02_JPRB,5.7582E+02_JPRB/)
+KBO( :,26,14) = (/&
+&5.7542E+02_JPRB,5.7938E+02_JPRB,5.8066E+02_JPRB,5.8114E+02_JPRB,5.8000E+02_JPRB/)
+KBO( :,27,14) = (/&
+&5.7537E+02_JPRB,5.8032E+02_JPRB,5.8293E+02_JPRB,5.8414E+02_JPRB,5.8351E+02_JPRB/)
+KBO( :,28,14) = (/&
+&5.7542E+02_JPRB,5.8169E+02_JPRB,5.8508E+02_JPRB,5.8663E+02_JPRB,5.8623E+02_JPRB/)
+KBO( :,29,14) = (/&
+&5.7592E+02_JPRB,5.8334E+02_JPRB,5.8700E+02_JPRB,5.8877E+02_JPRB,5.8850E+02_JPRB/)
+KBO( :,30,14) = (/&
+&5.7705E+02_JPRB,5.8477E+02_JPRB,5.8859E+02_JPRB,5.9059E+02_JPRB,5.9045E+02_JPRB/)
+KBO( :,31,14) = (/&
+&5.7869E+02_JPRB,5.8639E+02_JPRB,5.9018E+02_JPRB,5.9225E+02_JPRB,5.9219E+02_JPRB/)
+KBO( :,32,14) = (/&
+&5.8067E+02_JPRB,5.8815E+02_JPRB,5.9179E+02_JPRB,5.9363E+02_JPRB,5.9369E+02_JPRB/)
+KBO( :,33,14) = (/&
+&5.8279E+02_JPRB,5.8990E+02_JPRB,5.9323E+02_JPRB,5.9481E+02_JPRB,5.9486E+02_JPRB/)
+KBO( :,34,14) = (/&
+&5.8464E+02_JPRB,5.9150E+02_JPRB,5.9440E+02_JPRB,5.9589E+02_JPRB,5.9578E+02_JPRB/)
+KBO( :,35,14) = (/&
+&5.8569E+02_JPRB,5.9251E+02_JPRB,5.9535E+02_JPRB,5.9677E+02_JPRB,5.9665E+02_JPRB/)
+KBO( :,36,14) = (/&
+&5.8587E+02_JPRB,5.9292E+02_JPRB,5.9596E+02_JPRB,5.9747E+02_JPRB,5.9747E+02_JPRB/)
+KBO( :,37,14) = (/&
+&5.8477E+02_JPRB,5.9243E+02_JPRB,5.9596E+02_JPRB,5.9792E+02_JPRB,5.9828E+02_JPRB/)
+KBO( :,38,14) = (/&
+&5.8340E+02_JPRB,5.9173E+02_JPRB,5.9590E+02_JPRB,5.9820E+02_JPRB,5.9879E+02_JPRB/)
+KBO( :,39,14) = (/&
+&5.8197E+02_JPRB,5.9091E+02_JPRB,5.9561E+02_JPRB,5.9833E+02_JPRB,5.9927E+02_JPRB/)
+KBO( :,40,14) = (/&
+&5.7939E+02_JPRB,5.8916E+02_JPRB,5.9475E+02_JPRB,5.9816E+02_JPRB,5.9962E+02_JPRB/)
+KBO( :,41,14) = (/&
+&5.7608E+02_JPRB,5.8699E+02_JPRB,5.9359E+02_JPRB,5.9774E+02_JPRB,5.9982E+02_JPRB/)
+KBO( :,42,14) = (/&
+&5.7232E+02_JPRB,5.8456E+02_JPRB,5.9223E+02_JPRB,5.9718E+02_JPRB,5.9987E+02_JPRB/)
+KBO( :,43,14) = (/&
+&5.6728E+02_JPRB,5.8121E+02_JPRB,5.9028E+02_JPRB,5.9616E+02_JPRB,5.9954E+02_JPRB/)
+KBO( :,44,14) = (/&
+&5.6123E+02_JPRB,5.7709E+02_JPRB,5.8763E+02_JPRB,5.9468E+02_JPRB,5.9887E+02_JPRB/)
+KBO( :,45,14) = (/&
+&5.5447E+02_JPRB,5.7231E+02_JPRB,5.8444E+02_JPRB,5.9277E+02_JPRB,5.9784E+02_JPRB/)
+KBO( :,46,14) = (/&
+&5.4640E+02_JPRB,5.6618E+02_JPRB,5.8043E+02_JPRB,5.9039E+02_JPRB,5.9653E+02_JPRB/)
+KBO( :,47,14) = (/&
+&5.3656E+02_JPRB,5.5868E+02_JPRB,5.7521E+02_JPRB,5.8706E+02_JPRB,5.9448E+02_JPRB/)
+KBO( :,48,14) = (/&
+&5.2560E+02_JPRB,5.5033E+02_JPRB,5.6904E+02_JPRB,5.8292E+02_JPRB,5.9200E+02_JPRB/)
+KBO( :,49,14) = (/&
+&5.1361E+02_JPRB,5.4088E+02_JPRB,5.6193E+02_JPRB,5.7800E+02_JPRB,5.8895E+02_JPRB/)
+KBO( :,50,14) = (/&
+&5.0091E+02_JPRB,5.3110E+02_JPRB,5.5541E+02_JPRB,5.7270E+02_JPRB,5.8551E+02_JPRB/)
+KBO( :,51,14) = (/&
+&4.8751E+02_JPRB,5.2063E+02_JPRB,5.4741E+02_JPRB,5.6726E+02_JPRB,5.8153E+02_JPRB/)
+KBO( :,52,14) = (/&
+&4.7297E+02_JPRB,5.0923E+02_JPRB,5.3861E+02_JPRB,5.6059E+02_JPRB,5.7676E+02_JPRB/)
+KBO( :,53,14) = (/&
+&4.5743E+02_JPRB,4.9674E+02_JPRB,5.2890E+02_JPRB,5.5315E+02_JPRB,5.7135E+02_JPRB/)
+KBO( :,54,14) = (/&
+&4.4140E+02_JPRB,4.8429E+02_JPRB,5.1910E+02_JPRB,5.4570E+02_JPRB,5.6577E+02_JPRB/)
+KBO( :,55,14) = (/&
+&4.2564E+02_JPRB,4.7143E+02_JPRB,5.0881E+02_JPRB,5.3786E+02_JPRB,5.5980E+02_JPRB/)
+KBO( :,56,14) = (/&
+&4.0890E+02_JPRB,4.5764E+02_JPRB,4.9778E+02_JPRB,5.2941E+02_JPRB,5.5381E+02_JPRB/)
+KBO( :,57,14) = (/&
+&3.9121E+02_JPRB,4.4300E+02_JPRB,4.8601E+02_JPRB,5.2017E+02_JPRB,5.4671E+02_JPRB/)
+KBO( :,58,14) = (/&
+&3.7355E+02_JPRB,4.2830E+02_JPRB,4.7408E+02_JPRB,5.1067E+02_JPRB,5.3936E+02_JPRB/)
+KBO( :,59,14) = (/&
+&3.6625E+02_JPRB,4.2210E+02_JPRB,4.6902E+02_JPRB,5.0665E+02_JPRB,5.3625E+02_JPRB/)
+KBO( :,13,15) = (/&
+&6.9472E+02_JPRB,6.8190E+02_JPRB,6.7012E+02_JPRB,6.5938E+02_JPRB,6.4861E+02_JPRB/)
+KBO( :,14,15) = (/&
+&7.9617E+02_JPRB,7.8432E+02_JPRB,7.7183E+02_JPRB,7.5985E+02_JPRB,7.4779E+02_JPRB/)
+KBO( :,15,15) = (/&
+&9.0905E+02_JPRB,8.9621E+02_JPRB,8.8202E+02_JPRB,8.6871E+02_JPRB,8.5523E+02_JPRB/)
+KBO( :,16,15) = (/&
+&1.0296E+03_JPRB,1.0152E+03_JPRB,9.9738E+02_JPRB,9.8243E+02_JPRB,9.6638E+02_JPRB/)
+KBO( :,17,15) = (/&
+&1.1531E+03_JPRB,1.1349E+03_JPRB,1.1154E+03_JPRB,1.0980E+03_JPRB,1.0783E+03_JPRB/)
+KBO( :,18,15) = (/&
+&1.2776E+03_JPRB,1.2567E+03_JPRB,1.2351E+03_JPRB,1.2117E+03_JPRB,1.1888E+03_JPRB/)
+KBO( :,19,15) = (/&
+&1.4027E+03_JPRB,1.3760E+03_JPRB,1.3510E+03_JPRB,1.3233E+03_JPRB,1.2971E+03_JPRB/)
+KBO( :,20,15) = (/&
+&1.5265E+03_JPRB,1.4940E+03_JPRB,1.4647E+03_JPRB,1.4325E+03_JPRB,1.4019E+03_JPRB/)
+KBO( :,21,15) = (/&
+&1.6464E+03_JPRB,1.6088E+03_JPRB,1.5749E+03_JPRB,1.5375E+03_JPRB,1.5006E+03_JPRB/)
+KBO( :,22,15) = (/&
+&1.7545E+03_JPRB,1.7140E+03_JPRB,1.6756E+03_JPRB,1.6321E+03_JPRB,1.5896E+03_JPRB/)
+KBO( :,23,15) = (/&
+&1.8570E+03_JPRB,1.8142E+03_JPRB,1.7654E+03_JPRB,1.7168E+03_JPRB,1.6706E+03_JPRB/)
+KBO( :,24,15) = (/&
+&1.9478E+03_JPRB,1.8990E+03_JPRB,1.8442E+03_JPRB,1.7915E+03_JPRB,1.7417E+03_JPRB/)
+KBO( :,25,15) = (/&
+&2.0258E+03_JPRB,1.9727E+03_JPRB,1.9128E+03_JPRB,1.8556E+03_JPRB,1.8012E+03_JPRB/)
+KBO( :,26,15) = (/&
+&2.0908E+03_JPRB,2.0335E+03_JPRB,1.9696E+03_JPRB,1.9080E+03_JPRB,1.8501E+03_JPRB/)
+KBO( :,27,15) = (/&
+&2.1446E+03_JPRB,2.0838E+03_JPRB,2.0154E+03_JPRB,1.9506E+03_JPRB,1.8894E+03_JPRB/)
+KBO( :,28,15) = (/&
+&2.1876E+03_JPRB,2.1227E+03_JPRB,2.0508E+03_JPRB,1.9839E+03_JPRB,1.9200E+03_JPRB/)
+KBO( :,29,15) = (/&
+&2.2206E+03_JPRB,2.1519E+03_JPRB,2.0777E+03_JPRB,2.0084E+03_JPRB,1.9419E+03_JPRB/)
+KBO( :,30,15) = (/&
+&2.2449E+03_JPRB,2.1734E+03_JPRB,2.0968E+03_JPRB,2.0255E+03_JPRB,1.9570E+03_JPRB/)
+KBO( :,31,15) = (/&
+&2.2605E+03_JPRB,2.1872E+03_JPRB,2.1090E+03_JPRB,2.0359E+03_JPRB,1.9658E+03_JPRB/)
+KBO( :,32,15) = (/&
+&2.2689E+03_JPRB,2.1943E+03_JPRB,2.1149E+03_JPRB,2.0406E+03_JPRB,1.9691E+03_JPRB/)
+KBO( :,33,15) = (/&
+&2.2716E+03_JPRB,2.1958E+03_JPRB,2.1158E+03_JPRB,2.0406E+03_JPRB,1.9683E+03_JPRB/)
+KBO( :,34,15) = (/&
+&2.2726E+03_JPRB,2.1959E+03_JPRB,2.1153E+03_JPRB,2.0395E+03_JPRB,1.9664E+03_JPRB/)
+KBO( :,35,15) = (/&
+&2.2780E+03_JPRB,2.2004E+03_JPRB,2.1189E+03_JPRB,2.0426E+03_JPRB,1.9688E+03_JPRB/)
+KBO( :,36,15) = (/&
+&2.2896E+03_JPRB,2.2110E+03_JPRB,2.1289E+03_JPRB,2.0514E+03_JPRB,1.9767E+03_JPRB/)
+KBO( :,37,15) = (/&
+&2.3120E+03_JPRB,2.2323E+03_JPRB,2.1486E+03_JPRB,2.0699E+03_JPRB,1.9941E+03_JPRB/)
+KBO( :,38,15) = (/&
+&2.3338E+03_JPRB,2.2528E+03_JPRB,2.1676E+03_JPRB,2.0877E+03_JPRB,2.0113E+03_JPRB/)
+KBO( :,39,15) = (/&
+&2.3539E+03_JPRB,2.2719E+03_JPRB,2.1856E+03_JPRB,2.1045E+03_JPRB,2.0272E+03_JPRB/)
+KBO( :,40,15) = (/&
+&2.3870E+03_JPRB,2.2992E+03_JPRB,2.2111E+03_JPRB,2.1286E+03_JPRB,2.0498E+03_JPRB/)
+KBO( :,41,15) = (/&
+&2.4163E+03_JPRB,2.3270E+03_JPRB,2.2370E+03_JPRB,2.1533E+03_JPRB,2.0730E+03_JPRB/)
+KBO( :,42,15) = (/&
+&2.4453E+03_JPRB,2.3543E+03_JPRB,2.2627E+03_JPRB,2.1777E+03_JPRB,2.0960E+03_JPRB/)
+KBO( :,43,15) = (/&
+&2.4791E+03_JPRB,2.3868E+03_JPRB,2.2928E+03_JPRB,2.2066E+03_JPRB,2.1231E+03_JPRB/)
+KBO( :,44,15) = (/&
+&2.5148E+03_JPRB,2.4212E+03_JPRB,2.3254E+03_JPRB,2.2375E+03_JPRB,2.1527E+03_JPRB/)
+KBO( :,45,15) = (/&
+&2.5507E+03_JPRB,2.4560E+03_JPRB,2.3582E+03_JPRB,2.2685E+03_JPRB,2.1823E+03_JPRB/)
+KBO( :,46,15) = (/&
+&2.5882E+03_JPRB,2.4891E+03_JPRB,2.3936E+03_JPRB,2.3018E+03_JPRB,2.2138E+03_JPRB/)
+KBO( :,47,15) = (/&
+&2.6293E+03_JPRB,2.5303E+03_JPRB,2.4336E+03_JPRB,2.3391E+03_JPRB,2.2494E+03_JPRB/)
+KBO( :,48,15) = (/&
+&2.6705E+03_JPRB,2.5712E+03_JPRB,2.4742E+03_JPRB,2.3769E+03_JPRB,2.2856E+03_JPRB/)
+KBO( :,49,15) = (/&
+&2.7114E+03_JPRB,2.6125E+03_JPRB,2.5152E+03_JPRB,2.4156E+03_JPRB,2.3224E+03_JPRB/)
+KBO( :,50,15) = (/&
+&2.7491E+03_JPRB,2.6508E+03_JPRB,2.5540E+03_JPRB,2.4523E+03_JPRB,2.3573E+03_JPRB/)
+KBO( :,51,15) = (/&
+&2.7853E+03_JPRB,2.6877E+03_JPRB,2.5908E+03_JPRB,2.4896E+03_JPRB,2.3917E+03_JPRB/)
+KBO( :,52,15) = (/&
+&2.8208E+03_JPRB,2.7242E+03_JPRB,2.6274E+03_JPRB,2.5261E+03_JPRB,2.4271E+03_JPRB/)
+KBO( :,53,15) = (/&
+&2.8545E+03_JPRB,2.7603E+03_JPRB,2.6642E+03_JPRB,2.5626E+03_JPRB,2.4630E+03_JPRB/)
+KBO( :,54,15) = (/&
+&2.8809E+03_JPRB,2.7931E+03_JPRB,2.6980E+03_JPRB,2.5960E+03_JPRB,2.4960E+03_JPRB/)
+KBO( :,55,15) = (/&
+&2.9090E+03_JPRB,2.8236E+03_JPRB,2.7303E+03_JPRB,2.6276E+03_JPRB,2.5279E+03_JPRB/)
+KBO( :,56,15) = (/&
+&2.9353E+03_JPRB,2.8536E+03_JPRB,2.7620E+03_JPRB,2.6592E+03_JPRB,2.5632E+03_JPRB/)
+KBO( :,57,15) = (/&
+&2.9603E+03_JPRB,2.8821E+03_JPRB,2.7934E+03_JPRB,2.6910E+03_JPRB,2.5953E+03_JPRB/)
+KBO( :,58,15) = (/&
+&2.9819E+03_JPRB,2.9080E+03_JPRB,2.8223E+03_JPRB,2.7212E+03_JPRB,2.6255E+03_JPRB/)
+KBO( :,59,15) = (/&
+&2.9898E+03_JPRB,2.9181E+03_JPRB,2.8340E+03_JPRB,2.7333E+03_JPRB,2.6376E+03_JPRB/)
+KBO( :,13,16) = (/&
+&9.2927E+02_JPRB,9.0834E+02_JPRB,8.8939E+02_JPRB,8.8213E+02_JPRB,8.7527E+02_JPRB/)
+KBO( :,14,16) = (/&
+&1.1173E+03_JPRB,1.0898E+03_JPRB,1.0649E+03_JPRB,1.0517E+03_JPRB,1.0398E+03_JPRB/)
+KBO( :,15,16) = (/&
+&1.3390E+03_JPRB,1.3003E+03_JPRB,1.2694E+03_JPRB,1.2485E+03_JPRB,1.2287E+03_JPRB/)
+KBO( :,16,16) = (/&
+&1.5922E+03_JPRB,1.5426E+03_JPRB,1.5018E+03_JPRB,1.4720E+03_JPRB,1.4416E+03_JPRB/)
+KBO( :,17,16) = (/&
+&1.8814E+03_JPRB,1.8176E+03_JPRB,1.7654E+03_JPRB,1.7224E+03_JPRB,1.6795E+03_JPRB/)
+KBO( :,18,16) = (/&
+&2.2031E+03_JPRB,2.1229E+03_JPRB,2.0590E+03_JPRB,1.9971E+03_JPRB,1.9384E+03_JPRB/)
+KBO( :,19,16) = (/&
+&2.5548E+03_JPRB,2.4553E+03_JPRB,2.3724E+03_JPRB,2.2895E+03_JPRB,2.2135E+03_JPRB/)
+KBO( :,20,16) = (/&
+&2.9295E+03_JPRB,2.8050E+03_JPRB,2.6977E+03_JPRB,2.5929E+03_JPRB,2.4952E+03_JPRB/)
+KBO( :,21,16) = (/&
+&3.3178E+03_JPRB,3.1609E+03_JPRB,3.0264E+03_JPRB,2.8971E+03_JPRB,2.7751E+03_JPRB/)
+KBO( :,22,16) = (/&
+&3.6887E+03_JPRB,3.5013E+03_JPRB,3.3414E+03_JPRB,3.1845E+03_JPRB,3.0382E+03_JPRB/)
+KBO( :,23,16) = (/&
+&4.0451E+03_JPRB,3.8382E+03_JPRB,3.6372E+03_JPRB,3.4533E+03_JPRB,3.2810E+03_JPRB/)
+KBO( :,24,16) = (/&
+&4.3758E+03_JPRB,4.1366E+03_JPRB,3.9051E+03_JPRB,3.6946E+03_JPRB,3.4976E+03_JPRB/)
+KBO( :,25,16) = (/&
+&4.6718E+03_JPRB,4.3974E+03_JPRB,4.1374E+03_JPRB,3.9025E+03_JPRB,3.6844E+03_JPRB/)
+KBO( :,26,16) = (/&
+&4.9191E+03_JPRB,4.6159E+03_JPRB,4.3305E+03_JPRB,4.0724E+03_JPRB,3.8356E+03_JPRB/)
+KBO( :,27,16) = (/&
+&5.1211E+03_JPRB,4.7932E+03_JPRB,4.4865E+03_JPRB,4.2071E+03_JPRB,3.9560E+03_JPRB/)
+KBO( :,28,16) = (/&
+&5.2790E+03_JPRB,4.9305E+03_JPRB,4.6056E+03_JPRB,4.3100E+03_JPRB,4.0465E+03_JPRB/)
+KBO( :,29,16) = (/&
+&5.3926E+03_JPRB,5.0282E+03_JPRB,4.6893E+03_JPRB,4.3812E+03_JPRB,4.1090E+03_JPRB/)
+KBO( :,30,16) = (/&
+&5.4669E+03_JPRB,5.0909E+03_JPRB,4.7431E+03_JPRB,4.4273E+03_JPRB,4.1484E+03_JPRB/)
+KBO( :,31,16) = (/&
+&5.5059E+03_JPRB,5.1237E+03_JPRB,4.7693E+03_JPRB,4.4498E+03_JPRB,4.1668E+03_JPRB/)
+KBO( :,32,16) = (/&
+&5.5159E+03_JPRB,5.1307E+03_JPRB,4.7740E+03_JPRB,4.4530E+03_JPRB,4.1682E+03_JPRB/)
+KBO( :,33,16) = (/&
+&5.5016E+03_JPRB,5.1180E+03_JPRB,4.7604E+03_JPRB,4.4403E+03_JPRB,4.1565E+03_JPRB/)
+KBO( :,34,16) = (/&
+&5.4845E+03_JPRB,5.1021E+03_JPRB,4.7448E+03_JPRB,4.4256E+03_JPRB,4.1432E+03_JPRB/)
+KBO( :,35,16) = (/&
+&5.4942E+03_JPRB,5.1092E+03_JPRB,4.7499E+03_JPRB,4.4299E+03_JPRB,4.1471E+03_JPRB/)
+KBO( :,36,16) = (/&
+&5.5382E+03_JPRB,5.1472E+03_JPRB,4.7829E+03_JPRB,4.4591E+03_JPRB,4.1726E+03_JPRB/)
+KBO( :,37,16) = (/&
+&5.6404E+03_JPRB,5.2373E+03_JPRB,4.8618E+03_JPRB,4.5288E+03_JPRB,4.2337E+03_JPRB/)
+KBO( :,38,16) = (/&
+&5.7408E+03_JPRB,5.3251E+03_JPRB,4.9400E+03_JPRB,4.5977E+03_JPRB,4.2959E+03_JPRB/)
+KBO( :,39,16) = (/&
+&5.8371E+03_JPRB,5.4104E+03_JPRB,5.0144E+03_JPRB,4.6631E+03_JPRB,4.3540E+03_JPRB/)
+KBO( :,40,16) = (/&
+&5.9951E+03_JPRB,5.5360E+03_JPRB,5.1266E+03_JPRB,4.7607E+03_JPRB,4.4409E+03_JPRB/)
+KBO( :,41,16) = (/&
+&6.1460E+03_JPRB,5.6683E+03_JPRB,5.2438E+03_JPRB,4.8629E+03_JPRB,4.5331E+03_JPRB/)
+KBO( :,42,16) = (/&
+&6.2988E+03_JPRB,5.8023E+03_JPRB,5.3625E+03_JPRB,4.9665E+03_JPRB,4.6258E+03_JPRB/)
+KBO( :,43,16) = (/&
+&6.4883E+03_JPRB,5.9649E+03_JPRB,5.5067E+03_JPRB,5.0922E+03_JPRB,4.7383E+03_JPRB/)
+KBO( :,44,16) = (/&
+&6.6999E+03_JPRB,6.1469E+03_JPRB,5.6668E+03_JPRB,5.2323E+03_JPRB,4.8626E+03_JPRB/)
+KBO( :,45,16) = (/&
+&6.9195E+03_JPRB,6.3372E+03_JPRB,5.8320E+03_JPRB,5.3771E+03_JPRB,4.9912E+03_JPRB/)
+KBO( :,46,16) = (/&
+&7.1659E+03_JPRB,6.5469E+03_JPRB,6.0143E+03_JPRB,5.5360E+03_JPRB,5.1328E+03_JPRB/)
+KBO( :,47,16) = (/&
+&7.4570E+03_JPRB,6.7935E+03_JPRB,6.2257E+03_JPRB,5.7237E+03_JPRB,5.2972E+03_JPRB/)
+KBO( :,48,16) = (/&
+&7.7630E+03_JPRB,7.0556E+03_JPRB,6.4469E+03_JPRB,5.9204E+03_JPRB,5.4684E+03_JPRB/)
+KBO( :,49,16) = (/&
+&8.0892E+03_JPRB,7.3332E+03_JPRB,6.6834E+03_JPRB,6.1280E+03_JPRB,5.6471E+03_JPRB/)
+KBO( :,50,16) = (/&
+&8.4185E+03_JPRB,7.6100E+03_JPRB,6.9229E+03_JPRB,6.3324E+03_JPRB,5.8236E+03_JPRB/)
+KBO( :,51,16) = (/&
+&8.7578E+03_JPRB,7.8949E+03_JPRB,7.1667E+03_JPRB,6.5320E+03_JPRB,6.0026E+03_JPRB/)
+KBO( :,52,16) = (/&
+&9.1141E+03_JPRB,8.1976E+03_JPRB,7.4241E+03_JPRB,6.7492E+03_JPRB,6.1897E+03_JPRB/)
+KBO( :,53,16) = (/&
+&9.4976E+03_JPRB,8.5191E+03_JPRB,7.6952E+03_JPRB,6.9807E+03_JPRB,6.3873E+03_JPRB/)
+KBO( :,54,16) = (/&
+&9.8568E+03_JPRB,8.8303E+03_JPRB,7.9588E+03_JPRB,7.2035E+03_JPRB,6.5794E+03_JPRB/)
+KBO( :,55,16) = (/&
+&1.0230E+04_JPRB,9.1463E+03_JPRB,8.2248E+03_JPRB,7.4320E+03_JPRB,6.7726E+03_JPRB/)
+KBO( :,56,16) = (/&
+&1.0624E+04_JPRB,9.4808E+03_JPRB,8.5054E+03_JPRB,7.6701E+03_JPRB,6.9720E+03_JPRB/)
+KBO( :,57,16) = (/&
+&1.1039E+04_JPRB,9.8338E+03_JPRB,8.8017E+03_JPRB,7.9194E+03_JPRB,7.1847E+03_JPRB/)
+KBO( :,58,16) = (/&
+&1.1458E+04_JPRB,1.0189E+04_JPRB,9.0957E+03_JPRB,8.1671E+03_JPRB,7.3970E+03_JPRB/)
+KBO( :,59,16) = (/&
+&1.1633E+04_JPRB,1.0336E+04_JPRB,9.2185E+03_JPRB,8.2700E+03_JPRB,7.4844E+03_JPRB/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&5.95900E-01_JPRB, 5.48533E-01_JPRB, 5.04931E-01_JPRB, 4.64796E-01_JPRB, 4.27850E-01_JPRB,&
+&3.93841E-01_JPRB, 3.62536E-01_JPRB, 3.33719E-01_JPRB, 3.07192E-01_JPRB, 2.82774E-01_JPRB/)
+SELFREFO( :, 2) = (/&
+&7.47113E-01_JPRB, 6.83084E-01_JPRB, 6.24541E-01_JPRB, 5.71016E-01_JPRB, 5.22079E-01_JPRB,&
+&4.77335E-01_JPRB, 4.36426E-01_JPRB, 3.99023E-01_JPRB, 3.64826E-01_JPRB, 3.33559E-01_JPRB/)
+SELFREFO( :, 3) = (/&
+&7.85964E-01_JPRB, 7.20327E-01_JPRB, 6.60171E-01_JPRB, 6.05039E-01_JPRB, 5.54511E-01_JPRB,&
+&5.08203E-01_JPRB, 4.65762E-01_JPRB, 4.26866E-01_JPRB, 3.91218E-01_JPRB, 3.58546E-01_JPRB/)
+SELFREFO( :, 4) = (/&
+&8.12851E-01_JPRB, 7.45432E-01_JPRB, 6.83605E-01_JPRB, 6.26905E-01_JPRB, 5.74908E-01_JPRB,&
+&5.27225E-01_JPRB, 4.83496E-01_JPRB, 4.43394E-01_JPRB, 4.06618E-01_JPRB, 3.72892E-01_JPRB/)
+SELFREFO( :, 5) = (/&
+&8.13391E-01_JPRB, 7.46128E-01_JPRB, 6.84427E-01_JPRB, 6.27828E-01_JPRB, 5.75909E-01_JPRB,&
+&5.28284E-01_JPRB, 4.84598E-01_JPRB, 4.44524E-01_JPRB, 4.07764E-01_JPRB, 3.74044E-01_JPRB/)
+SELFREFO( :, 6) = (/&
+&8.11843E-01_JPRB, 7.44722E-01_JPRB, 6.83151E-01_JPRB, 6.26670E-01_JPRB, 5.74858E-01_JPRB,&
+&5.27331E-01_JPRB, 4.83733E-01_JPRB, 4.43739E-01_JPRB, 4.07052E-01_JPRB, 3.73398E-01_JPRB/)
+SELFREFO( :, 7) = (/&
+&8.13885E-01_JPRB, 7.48643E-01_JPRB, 6.88631E-01_JPRB, 6.33429E-01_JPRB, 5.82652E-01_JPRB,&
+&5.35946E-01_JPRB, 4.92984E-01_JPRB, 4.53465E-01_JPRB, 4.17115E-01_JPRB, 3.83678E-01_JPRB/)
+SELFREFO( :, 8) = (/&
+&8.24139E-01_JPRB, 7.57334E-01_JPRB, 6.95944E-01_JPRB, 6.39531E-01_JPRB, 5.87690E-01_JPRB,&
+&5.40052E-01_JPRB, 4.96275E-01_JPRB, 4.56047E-01_JPRB, 4.19079E-01_JPRB, 3.85109E-01_JPRB/)
+SELFREFO( :, 9) = (/&
+&8.30928E-01_JPRB, 7.64239E-01_JPRB, 7.02903E-01_JPRB, 6.46490E-01_JPRB, 5.94604E-01_JPRB,&
+&5.46882E-01_JPRB, 5.02990E-01_JPRB, 4.62622E-01_JPRB, 4.25493E-01_JPRB, 3.91344E-01_JPRB/)
+SELFREFO( :,10) = (/&
+&8.66448E-01_JPRB, 7.91238E-01_JPRB, 7.22557E-01_JPRB, 6.59838E-01_JPRB, 6.02563E-01_JPRB,&
+&5.50259E-01_JPRB, 5.02495E-01_JPRB, 4.58878E-01_JPRB, 4.19046E-01_JPRB, 3.82672E-01_JPRB/)
+SELFREFO( :,11) = (/&
+&8.51827E-01_JPRB, 7.79605E-01_JPRB, 7.13506E-01_JPRB, 6.53012E-01_JPRB, 5.97647E-01_JPRB,&
+&5.46975E-01_JPRB, 5.00600E-01_JPRB, 4.58157E-01_JPRB, 4.19312E-01_JPRB, 3.83761E-01_JPRB/)
+SELFREFO( :,12) = (/&
+&8.39267E-01_JPRB, 7.72292E-01_JPRB, 7.10661E-01_JPRB, 6.53949E-01_JPRB, 6.01762E-01_JPRB,&
+&5.53740E-01_JPRB, 5.09550E-01_JPRB, 4.68887E-01_JPRB, 4.31469E-01_JPRB, 3.97036E-01_JPRB/)
+SELFREFO( :,13) = (/&
+&8.36265E-01_JPRB, 7.69768E-01_JPRB, 7.08558E-01_JPRB, 6.52215E-01_JPRB, 6.00353E-01_JPRB,&
+&5.52615E-01_JPRB, 5.08672E-01_JPRB, 4.68224E-01_JPRB, 4.30992E-01_JPRB, 3.96721E-01_JPRB/)
+SELFREFO( :,14) = (/&
+&8.73722E-01_JPRB, 8.03395E-01_JPRB, 7.38728E-01_JPRB, 6.79267E-01_JPRB, 6.24592E-01_JPRB,&
+&5.74318E-01_JPRB, 5.28090E-01_JPRB, 4.85583E-01_JPRB, 4.46498E-01_JPRB, 4.10559E-01_JPRB/)
+SELFREFO( :,15) = (/&
+&9.08371E-01_JPRB, 8.34388E-01_JPRB, 7.66431E-01_JPRB, 7.04009E-01_JPRB, 6.46670E-01_JPRB,&
+&5.94002E-01_JPRB, 5.45623E-01_JPRB, 5.01184E-01_JPRB, 4.60365E-01_JPRB, 4.22870E-01_JPRB/)
+SELFREFO( :,16) = (/&
+&9.88709E-01_JPRB, 8.99303E-01_JPRB, 8.17981E-01_JPRB, 7.44014E-01_JPRB, 6.76735E-01_JPRB,&
+&6.15540E-01_JPRB, 5.59878E-01_JPRB, 5.09250E-01_JPRB, 4.63200E-01_JPRB, 4.21315E-01_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB11
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb12.F90	(revision 2160)
@@ -0,0 +1,17 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB12
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB12_00
+      call RRTM_KGB12_A1
+      call RRTM_KGB12_A2
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB12
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_00.F90	(revision 2160)
@@ -0,0 +1,128 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB12_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+STRRAT = 0.009736757_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&2.34973E-02_JPRB, 2.07877E-02_JPRB, 1.83905E-02_JPRB, 1.62698E-02_JPRB, 1.43936E-02_JPRB,&
+&1.27338E-02_JPRB, 1.12654E-02_JPRB, 9.96632E-03_JPRB, 8.81704E-03_JPRB, 7.80030E-03_JPRB/)
+SELFREFO( :, 2) = (/&
+&3.10090E-02_JPRB, 2.82626E-02_JPRB, 2.57594E-02_JPRB, 2.34779E-02_JPRB, 2.13985E-02_JPRB,&
+&1.95033E-02_JPRB, 1.77759E-02_JPRB, 1.62015E-02_JPRB, 1.47665E-02_JPRB, 1.34587E-02_JPRB/)
+SELFREFO( :, 3) = (/&
+&5.36676E-02_JPRB, 4.95621E-02_JPRB, 4.57706E-02_JPRB, 4.22692E-02_JPRB, 3.90356E-02_JPRB,&
+&3.60494E-02_JPRB, 3.32917E-02_JPRB, 3.07449E-02_JPRB, 2.83929E-02_JPRB, 2.62209E-02_JPRB/)
+SELFREFO( :, 4) = (/&
+&9.05844E-02_JPRB, 8.33349E-02_JPRB, 7.66656E-02_JPRB, 7.05300E-02_JPRB, 6.48855E-02_JPRB,&
+&5.96927E-02_JPRB, 5.49155E-02_JPRB, 5.05206E-02_JPRB, 4.64774E-02_JPRB, 4.27578E-02_JPRB/)
+SELFREFO( :, 5) = (/&
+&1.10531E-01_JPRB, 1.03430E-01_JPRB, 9.67851E-02_JPRB, 9.05670E-02_JPRB, 8.47484E-02_JPRB,&
+&7.93037E-02_JPRB, 7.42087E-02_JPRB, 6.94411E-02_JPRB, 6.49797E-02_JPRB, 6.08050E-02_JPRB/)
+SELFREFO( :, 6) = (/&
+&1.24308E-01_JPRB, 1.16014E-01_JPRB, 1.08274E-01_JPRB, 1.01050E-01_JPRB, 9.43078E-02_JPRB,&
+&8.80155E-02_JPRB, 8.21431E-02_JPRB, 7.66624E-02_JPRB, 7.15475E-02_JPRB, 6.67738E-02_JPRB/)
+SELFREFO( :, 7) = (/&
+&1.34594E-01_JPRB, 1.25054E-01_JPRB, 1.16190E-01_JPRB, 1.07954E-01_JPRB, 1.00302E-01_JPRB,&
+&9.31920E-02_JPRB, 8.65863E-02_JPRB, 8.04488E-02_JPRB, 7.47464E-02_JPRB, 6.94481E-02_JPRB/)
+SELFREFO( :, 8) = (/&
+&1.26966E-01_JPRB, 1.18270E-01_JPRB, 1.10169E-01_JPRB, 1.02624E-01_JPRB, 9.55948E-02_JPRB,&
+&8.90474E-02_JPRB, 8.29484E-02_JPRB, 7.72672E-02_JPRB, 7.19750E-02_JPRB, 6.70453E-02_JPRB/)
+SELFREFO( :, 9) = (/&
+&1.29806E-01_JPRB, 1.21296E-01_JPRB, 1.13344E-01_JPRB, 1.05913E-01_JPRB, 9.89690E-02_JPRB,&
+&9.24805E-02_JPRB, 8.64175E-02_JPRB, 8.07519E-02_JPRB, 7.54578E-02_JPRB, 7.05108E-02_JPRB/)
+SELFREFO( :,10) = (/&
+&1.37781E-01_JPRB, 1.26830E-01_JPRB, 1.16751E-01_JPRB, 1.07472E-01_JPRB, 9.89303E-02_JPRB,&
+&9.10678E-02_JPRB, 8.38301E-02_JPRB, 7.71677E-02_JPRB, 7.10347E-02_JPRB, 6.53892E-02_JPRB/)
+SELFREFO( :,11) = (/&
+&1.30675E-01_JPRB, 1.24254E-01_JPRB, 1.18149E-01_JPRB, 1.12344E-01_JPRB, 1.06824E-01_JPRB,&
+&1.01575E-01_JPRB, 9.65839E-02_JPRB, 9.18383E-02_JPRB, 8.73258E-02_JPRB, 8.30351E-02_JPRB/)
+SELFREFO( :,12) = (/&
+&1.55998E-01_JPRB, 1.45155E-01_JPRB, 1.35067E-01_JPRB, 1.25679E-01_JPRB, 1.16944E-01_JPRB,&
+&1.08816E-01_JPRB, 1.01253E-01_JPRB, 9.42160E-02_JPRB, 8.76677E-02_JPRB, 8.15746E-02_JPRB/)
+SELFREFO( :,13) = (/&
+&1.56508E-01_JPRB, 1.46390E-01_JPRB, 1.36925E-01_JPRB, 1.28072E-01_JPRB, 1.19792E-01_JPRB,&
+&1.12047E-01_JPRB, 1.04803E-01_JPRB, 9.80266E-02_JPRB, 9.16888E-02_JPRB, 8.57608E-02_JPRB/)
+SELFREFO( :,14) = (/&
+&1.55206E-01_JPRB, 1.43469E-01_JPRB, 1.32620E-01_JPRB, 1.22591E-01_JPRB, 1.13321E-01_JPRB,&
+&1.04752E-01_JPRB, 9.68305E-02_JPRB, 8.95082E-02_JPRB, 8.27396E-02_JPRB, 7.64829E-02_JPRB/)
+SELFREFO( :,15) = (/&
+&1.46694E-01_JPRB, 1.35458E-01_JPRB, 1.25082E-01_JPRB, 1.15501E-01_JPRB, 1.06654E-01_JPRB,&
+&9.84840E-02_JPRB, 9.09403E-02_JPRB, 8.39744E-02_JPRB, 7.75420E-02_JPRB, 7.16024E-02_JPRB/)
+SELFREFO( :,16) = (/&
+&1.65126E-01_JPRB, 1.53281E-01_JPRB, 1.42287E-01_JPRB, 1.32081E-01_JPRB, 1.22607E-01_JPRB,&
+&1.13812E-01_JPRB, 1.05649E-01_JPRB, 9.80707E-02_JPRB, 9.10362E-02_JPRB, 8.45063E-02_JPRB/)
+
+FRACREFAO( : ,1) = (/&
+!     From P = 706.3 mb.
+    &0.21245100_JPRB,0.15164700_JPRB,0.14486700_JPRB,0.13075501_JPRB,&
+    &0.11629600_JPRB,0.09266050_JPRB,0.06579930_JPRB,0.04524000_JPRB,&
+    &0.03072870_JPRB,0.00284297_JPRB,0.00234660_JPRB,0.00185208_JPRB,&
+    &0.00133978_JPRB,0.00082214_JPRB,0.00031016_JPRB,0.00004363_JPRB/)
+FRACREFAO( : ,2) = (/&
+    &0.14703900_JPRB,0.16937999_JPRB,0.15605700_JPRB,0.14159000_JPRB,&
+    &0.12088500_JPRB,0.10058500_JPRB,0.06809110_JPRB,0.05131470_JPRB,&
+    &0.03487040_JPRB,0.00327281_JPRB,0.00250183_JPRB,0.00190024_JPRB,&
+    &0.00133978_JPRB,0.00082214_JPRB,0.00031016_JPRB,0.00004363_JPRB/)
+FRACREFAO( : ,3) = (/&
+    &0.13689300_JPRB,0.16610400_JPRB,0.15723500_JPRB,0.14299500_JPRB,&
+    &0.12399400_JPRB,0.09907820_JPRB,0.07169690_JPRB,0.05367370_JPRB,&
+    &0.03671630_JPRB,0.00378148_JPRB,0.00290510_JPRB,0.00221076_JPRB,&
+    &0.00142810_JPRB,0.00093527_JPRB,0.00031016_JPRB,0.00004363_JPRB/)
+FRACREFAO( : ,4) = (/&
+    &0.13054299_JPRB,0.16273800_JPRB,0.15874299_JPRB,0.14279599_JPRB,&
+    &0.12674300_JPRB,0.09664900_JPRB,0.07462200_JPRB,0.05620080_JPRB,&
+    &0.03789090_JPRB,0.00411690_JPRB,0.00322920_JPRB,0.00245036_JPRB,&
+    &0.00178303_JPRB,0.00098595_JPRB,0.00040802_JPRB,0.00010150_JPRB/)
+FRACREFAO( : ,5) = (/&
+    &0.12828299_JPRB,0.15824600_JPRB,0.15688400_JPRB,0.14449100_JPRB,&
+    &0.12787800_JPRB,0.09517830_JPRB,0.07679350_JPRB,0.05890820_JPRB,&
+    &0.03883570_JPRB,0.00442304_JPRB,0.00346796_JPRB,0.00255333_JPRB,&
+    &0.00212519_JPRB,0.00116168_JPRB,0.00067065_JPRB,0.00010150_JPRB/)
+FRACREFAO( : ,6) = (/&
+    &0.12649800_JPRB,0.15195100_JPRB,0.15646499_JPRB,0.14569700_JPRB,&
+    &0.12669300_JPRB,0.09653520_JPRB,0.07887920_JPRB,0.06106920_JPRB,&
+    &0.04043910_JPRB,0.00430390_JPRB,0.00364453_JPRB,0.00314360_JPRB,&
+    &0.00203206_JPRB,0.00187787_JPRB,0.00067075_JPRB,0.00010150_JPRB/)
+FRACREFAO( : ,7) = (/&
+    &0.12500300_JPRB,0.14460599_JPRB,0.15672199_JPRB,0.14724600_JPRB,&
+    &0.11978900_JPRB,0.10190200_JPRB,0.08196710_JPRB,0.06315770_JPRB,&
+    &0.04240100_JPRB,0.00433645_JPRB,0.00404097_JPRB,0.00329466_JPRB,&
+    &0.00288491_JPRB,0.00187803_JPRB,0.00067093_JPRB,0.00010150_JPRB/)
+FRACREFAO( : ,8) = (/&
+    &0.12317200_JPRB,0.14118700_JPRB,0.15242000_JPRB,0.13794300_JPRB,&
+    &0.12119200_JPRB,0.10655400_JPRB,0.08808350_JPRB,0.06521370_JPRB,&
+    &0.04505680_JPRB,0.00485949_JPRB,0.00477105_JPRB,0.00401468_JPRB,&
+    &0.00288491_JPRB,0.00187786_JPRB,0.00067110_JPRB,0.00010150_JPRB/)
+FRACREFAO( : ,9) = (/&
+    &0.10193600_JPRB,0.11693000_JPRB,0.13236099_JPRB,0.14053200_JPRB,&
+    &0.13749801_JPRB,0.12193100_JPRB,0.10221000_JPRB,0.07448910_JPRB,&
+    &0.05205320_JPRB,0.00572312_JPRB,0.00476882_JPRB,0.00403380_JPRB,&
+    &0.00288871_JPRB,0.00187396_JPRB,0.00067218_JPRB,0.00010150_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB12_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_A1.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB12_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&1.1071E-04_JPRB,1.7190E-03_JPRB,2.1297E-03_JPRB,2.2974E-03_JPRB,2.3638E-03_JPRB,2.3377E-03_JPRB,&
+&2.2182E-03_JPRB,1.9598E-03_JPRB,6.0644E-04_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&1.1961E-04_JPRB,1.8523E-03_JPRB,2.3139E-03_JPRB,2.5087E-03_JPRB,2.5832E-03_JPRB,2.5507E-03_JPRB,&
+&2.4226E-03_JPRB,2.1400E-03_JPRB,6.6787E-04_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&1.2897E-04_JPRB,1.9814E-03_JPRB,2.4904E-03_JPRB,2.7224E-03_JPRB,2.7992E-03_JPRB,2.7616E-03_JPRB,&
+&2.6285E-03_JPRB,2.3297E-03_JPRB,7.4226E-04_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&1.3900E-04_JPRB,2.1069E-03_JPRB,2.6619E-03_JPRB,2.9256E-03_JPRB,3.0085E-03_JPRB,2.9760E-03_JPRB,&
+&2.8383E-03_JPRB,2.5269E-03_JPRB,8.2019E-04_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&1.4980E-04_JPRB,2.2307E-03_JPRB,2.8258E-03_JPRB,3.1153E-03_JPRB,3.2140E-03_JPRB,3.1919E-03_JPRB,&
+&3.0529E-03_JPRB,2.7312E-03_JPRB,9.0306E-04_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&9.5033E-05_JPRB,1.3952E-03_JPRB,1.7345E-03_JPRB,1.8757E-03_JPRB,1.9301E-03_JPRB,1.9088E-03_JPRB,&
+&1.8109E-03_JPRB,1.6003E-03_JPRB,4.8147E-04_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&1.0264E-04_JPRB,1.5043E-03_JPRB,1.8862E-03_JPRB,2.0524E-03_JPRB,2.1155E-03_JPRB,2.0891E-03_JPRB,&
+&1.9828E-03_JPRB,1.7518E-03_JPRB,5.3179E-04_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&1.1088E-04_JPRB,1.6110E-03_JPRB,2.0326E-03_JPRB,2.2296E-03_JPRB,2.2969E-03_JPRB,2.2672E-03_JPRB,&
+&2.1565E-03_JPRB,1.9107E-03_JPRB,5.9063E-04_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&1.1978E-04_JPRB,1.7142E-03_JPRB,2.1747E-03_JPRB,2.4004E-03_JPRB,2.4722E-03_JPRB,2.4486E-03_JPRB,&
+&2.3338E-03_JPRB,2.0762E-03_JPRB,6.5252E-04_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&1.2917E-04_JPRB,1.8168E-03_JPRB,2.3124E-03_JPRB,2.5589E-03_JPRB,2.6465E-03_JPRB,2.6314E-03_JPRB,&
+&2.5162E-03_JPRB,2.2491E-03_JPRB,7.1928E-04_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&7.9672E-05_JPRB,1.1113E-03_JPRB,1.3811E-03_JPRB,1.4950E-03_JPRB,1.5396E-03_JPRB,1.5237E-03_JPRB,&
+&1.4450E-03_JPRB,1.2772E-03_JPRB,3.7750E-04_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&8.5835E-05_JPRB,1.2012E-03_JPRB,1.5072E-03_JPRB,1.6412E-03_JPRB,1.6938E-03_JPRB,1.6765E-03_JPRB,&
+&1.5878E-03_JPRB,1.4020E-03_JPRB,4.1693E-04_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&9.2724E-05_JPRB,1.2894E-03_JPRB,1.6284E-03_JPRB,1.7887E-03_JPRB,1.8470E-03_JPRB,1.8261E-03_JPRB,&
+&1.7328E-03_JPRB,1.5335E-03_JPRB,4.6226E-04_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&1.0021E-04_JPRB,1.3753E-03_JPRB,1.7467E-03_JPRB,1.9334E-03_JPRB,1.9945E-03_JPRB,1.9763E-03_JPRB,&
+&1.8807E-03_JPRB,1.6701E-03_JPRB,5.1131E-04_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&1.0826E-04_JPRB,1.4602E-03_JPRB,1.8628E-03_JPRB,2.0684E-03_JPRB,2.1410E-03_JPRB,2.1291E-03_JPRB,&
+&2.0333E-03_JPRB,1.8146E-03_JPRB,5.6359E-04_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&6.6541E-05_JPRB,8.7720E-04_JPRB,1.0880E-03_JPRB,1.1789E-03_JPRB,1.2150E-03_JPRB,1.2040E-03_JPRB,&
+&1.1429E-03_JPRB,1.0102E-03_JPRB,3.0065E-04_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&7.1240E-05_JPRB,9.5116E-04_JPRB,1.1928E-03_JPRB,1.2997E-03_JPRB,1.3427E-03_JPRB,1.3311E-03_JPRB,&
+&1.2602E-03_JPRB,1.1118E-03_JPRB,3.3112E-04_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&7.6627E-05_JPRB,1.0246E-03_JPRB,1.2929E-03_JPRB,1.4214E-03_JPRB,1.4711E-03_JPRB,1.4559E-03_JPRB,&
+&1.3800E-03_JPRB,1.2193E-03_JPRB,3.6623E-04_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&8.2697E-05_JPRB,1.0967E-03_JPRB,1.3910E-03_JPRB,1.5434E-03_JPRB,1.5957E-03_JPRB,1.5801E-03_JPRB,&
+&1.5019E-03_JPRB,1.3318E-03_JPRB,4.0479E-04_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&8.9353E-05_JPRB,1.1675E-03_JPRB,1.4884E-03_JPRB,1.6584E-03_JPRB,1.7180E-03_JPRB,1.7064E-03_JPRB,&
+&1.6273E-03_JPRB,1.4511E-03_JPRB,4.4590E-04_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&5.5998E-05_JPRB,6.8983E-04_JPRB,8.5274E-04_JPRB,9.2493E-04_JPRB,9.5405E-04_JPRB,9.4771E-04_JPRB,&
+&9.0156E-04_JPRB,7.9782E-04_JPRB,2.4473E-04_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&5.9569E-05_JPRB,7.5053E-04_JPRB,9.3935E-04_JPRB,1.0247E-03_JPRB,1.0592E-03_JPRB,1.0509E-03_JPRB,&
+&9.9609E-04_JPRB,8.7904E-04_JPRB,2.6874E-04_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&6.3728E-05_JPRB,8.1164E-04_JPRB,1.0227E-03_JPRB,1.1245E-03_JPRB,1.1656E-03_JPRB,1.1550E-03_JPRB,&
+&1.0939E-03_JPRB,9.6668E-04_JPRB,2.9631E-04_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&6.8493E-05_JPRB,8.7191E-04_JPRB,1.1043E-03_JPRB,1.2254E-03_JPRB,1.2701E-03_JPRB,1.2575E-03_JPRB,&
+&1.1938E-03_JPRB,1.0585E-03_JPRB,3.2693E-04_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&7.3804E-05_JPRB,9.3124E-04_JPRB,1.1858E-03_JPRB,1.3231E-03_JPRB,1.3713E-03_JPRB,1.3618E-03_JPRB,&
+&1.2967E-03_JPRB,1.1556E-03_JPRB,3.5959E-04_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&4.7433E-05_JPRB,5.3952E-04_JPRB,6.6302E-04_JPRB,7.1941E-04_JPRB,7.4278E-04_JPRB,7.3993E-04_JPRB,&
+&7.0682E-04_JPRB,6.2737E-04_JPRB,2.0502E-04_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&5.0194E-05_JPRB,5.8914E-04_JPRB,7.3430E-04_JPRB,8.0093E-04_JPRB,8.2839E-04_JPRB,8.2234E-04_JPRB,&
+&7.8161E-04_JPRB,6.9096E-04_JPRB,2.2413E-04_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&5.3412E-05_JPRB,6.3967E-04_JPRB,8.0393E-04_JPRB,8.8246E-04_JPRB,9.1533E-04_JPRB,9.0872E-04_JPRB,&
+&8.6111E-04_JPRB,7.6158E-04_JPRB,2.4611E-04_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&5.7167E-05_JPRB,6.9003E-04_JPRB,8.7186E-04_JPRB,9.6499E-04_JPRB,1.0025E-03_JPRB,9.9324E-04_JPRB,&
+&9.4228E-04_JPRB,8.3524E-04_JPRB,2.7084E-04_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&6.1369E-05_JPRB,7.3991E-04_JPRB,9.3979E-04_JPRB,1.0473E-03_JPRB,1.0862E-03_JPRB,1.0788E-03_JPRB,&
+&1.0266E-03_JPRB,9.1379E-04_JPRB,2.9720E-04_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&4.0204E-05_JPRB,4.2071E-04_JPRB,5.1329E-04_JPRB,5.5704E-04_JPRB,5.7598E-04_JPRB,5.7560E-04_JPRB,&
+&5.5294E-04_JPRB,4.9311E-04_JPRB,1.8038E-04_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&4.2409E-05_JPRB,4.6139E-04_JPRB,5.7116E-04_JPRB,6.2323E-04_JPRB,6.4451E-04_JPRB,6.4096E-04_JPRB,&
+&6.1142E-04_JPRB,5.4196E-04_JPRB,1.9582E-04_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&4.4969E-05_JPRB,5.0267E-04_JPRB,6.2911E-04_JPRB,6.8938E-04_JPRB,7.1511E-04_JPRB,7.1073E-04_JPRB,&
+&6.7548E-04_JPRB,5.9790E-04_JPRB,2.1379E-04_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&4.7926E-05_JPRB,5.4471E-04_JPRB,6.8586E-04_JPRB,7.5653E-04_JPRB,7.8682E-04_JPRB,7.8099E-04_JPRB,&
+&7.4115E-04_JPRB,6.5723E-04_JPRB,2.3382E-04_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&5.1304E-05_JPRB,5.8645E-04_JPRB,7.4180E-04_JPRB,8.2446E-04_JPRB,8.5674E-04_JPRB,8.5104E-04_JPRB,&
+&8.0968E-04_JPRB,7.2033E-04_JPRB,2.5569E-04_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&3.4404E-05_JPRB,3.2742E-04_JPRB,3.9628E-04_JPRB,4.3044E-04_JPRB,4.4582E-04_JPRB,4.4750E-04_JPRB,&
+&4.3255E-04_JPRB,3.8824E-04_JPRB,1.6140E-04_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&3.6102E-05_JPRB,3.6078E-04_JPRB,4.4317E-04_JPRB,4.8349E-04_JPRB,5.0006E-04_JPRB,4.9874E-04_JPRB,&
+&4.7786E-04_JPRB,4.2529E-04_JPRB,1.7382E-04_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&3.8232E-05_JPRB,3.9477E-04_JPRB,4.9069E-04_JPRB,5.3712E-04_JPRB,5.5703E-04_JPRB,5.5425E-04_JPRB,&
+&5.2840E-04_JPRB,4.6878E-04_JPRB,1.8872E-04_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&4.0723E-05_JPRB,4.2935E-04_JPRB,5.3782E-04_JPRB,5.9167E-04_JPRB,6.1513E-04_JPRB,6.1219E-04_JPRB,&
+&5.8195E-04_JPRB,5.1637E-04_JPRB,2.0568E-04_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&4.3533E-05_JPRB,4.6405E-04_JPRB,5.8430E-04_JPRB,6.4724E-04_JPRB,6.7394E-04_JPRB,6.6968E-04_JPRB,&
+&6.3735E-04_JPRB,5.6685E-04_JPRB,2.2475E-04_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&2.9435E-05_JPRB,2.5407E-04_JPRB,3.0513E-04_JPRB,3.3154E-04_JPRB,3.4450E-04_JPRB,3.4770E-04_JPRB,&
+&3.3823E-04_JPRB,3.0612E-04_JPRB,1.4904E-04_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&3.0832E-05_JPRB,2.8156E-04_JPRB,3.4307E-04_JPRB,3.7395E-04_JPRB,3.8707E-04_JPRB,3.8740E-04_JPRB,&
+&3.7308E-04_JPRB,3.3384E-04_JPRB,1.6021E-04_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&3.2541E-05_JPRB,3.0967E-04_JPRB,3.8142E-04_JPRB,4.1751E-04_JPRB,4.3262E-04_JPRB,4.3109E-04_JPRB,&
+&4.1241E-04_JPRB,3.6699E-04_JPRB,1.7304E-04_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&3.4598E-05_JPRB,3.3815E-04_JPRB,4.2037E-04_JPRB,4.6162E-04_JPRB,4.7971E-04_JPRB,4.7802E-04_JPRB,&
+&4.5577E-04_JPRB,4.0458E-04_JPRB,1.8804E-04_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&3.7007E-05_JPRB,3.6690E-04_JPRB,4.5921E-04_JPRB,5.0690E-04_JPRB,5.2823E-04_JPRB,5.2576E-04_JPRB,&
+&5.0057E-04_JPRB,4.4491E-04_JPRB,2.0554E-04_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&2.4927E-05_JPRB,1.9806E-04_JPRB,2.3689E-04_JPRB,2.5751E-04_JPRB,2.6867E-04_JPRB,2.7252E-04_JPRB,&
+&2.6649E-04_JPRB,2.4340E-04_JPRB,1.3926E-04_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&2.6291E-05_JPRB,2.2099E-04_JPRB,2.6740E-04_JPRB,2.9137E-04_JPRB,3.0194E-04_JPRB,3.0327E-04_JPRB,&
+&2.9342E-04_JPRB,2.6414E-04_JPRB,1.4846E-04_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&2.7951E-05_JPRB,2.4437E-04_JPRB,2.9848E-04_JPRB,3.2658E-04_JPRB,3.3827E-04_JPRB,3.3778E-04_JPRB,&
+&3.2415E-04_JPRB,2.8946E-04_JPRB,1.5998E-04_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&2.9907E-05_JPRB,2.6821E-04_JPRB,3.3026E-04_JPRB,3.6237E-04_JPRB,3.7643E-04_JPRB,3.7538E-04_JPRB,&
+&3.5861E-04_JPRB,3.1891E-04_JPRB,1.7396E-04_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&3.2074E-05_JPRB,2.9213E-04_JPRB,3.6237E-04_JPRB,3.9914E-04_JPRB,4.1580E-04_JPRB,4.1475E-04_JPRB,&
+&3.9509E-04_JPRB,3.5105E-04_JPRB,1.9000E-04_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&2.1030E-05_JPRB,1.6262E-04_JPRB,1.9497E-04_JPRB,2.1213E-04_JPRB,2.2124E-04_JPRB,2.2434E-04_JPRB,&
+&2.1945E-04_JPRB,2.0056E-04_JPRB,1.1989E-04_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&2.2215E-05_JPRB,1.8182E-04_JPRB,2.1979E-04_JPRB,2.3981E-04_JPRB,2.4860E-04_JPRB,2.4965E-04_JPRB,&
+&2.4153E-04_JPRB,2.1771E-04_JPRB,1.2772E-04_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&2.3854E-05_JPRB,2.0140E-04_JPRB,2.4523E-04_JPRB,2.6860E-04_JPRB,2.7834E-04_JPRB,2.7805E-04_JPRB,&
+&2.6683E-04_JPRB,2.3853E-04_JPRB,1.3777E-04_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&2.5937E-05_JPRB,2.2145E-04_JPRB,2.7132E-04_JPRB,2.9797E-04_JPRB,3.0980E-04_JPRB,3.0914E-04_JPRB,&
+&2.9535E-04_JPRB,2.6276E-04_JPRB,1.4975E-04_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&2.8200E-05_JPRB,2.4157E-04_JPRB,2.9784E-04_JPRB,3.2825E-04_JPRB,3.4224E-04_JPRB,3.4158E-04_JPRB,&
+&3.2548E-04_JPRB,2.8921E-04_JPRB,1.6349E-04_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&1.7436E-05_JPRB,1.3336E-04_JPRB,1.6029E-04_JPRB,1.7464E-04_JPRB,1.8206E-04_JPRB,1.8451E-04_JPRB,&
+&1.8046E-04_JPRB,1.6506E-04_JPRB,9.9378E-05_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&1.8421E-05_JPRB,1.4922E-04_JPRB,1.8056E-04_JPRB,1.9727E-04_JPRB,2.0452E-04_JPRB,2.0534E-04_JPRB,&
+&1.9861E-04_JPRB,1.7923E-04_JPRB,1.0594E-04_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&1.9770E-05_JPRB,1.6546E-04_JPRB,2.0137E-04_JPRB,2.2080E-04_JPRB,2.2895E-04_JPRB,2.2873E-04_JPRB,&
+&2.1950E-04_JPRB,1.9634E-04_JPRB,1.1437E-04_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&2.1532E-05_JPRB,1.8214E-04_JPRB,2.2278E-04_JPRB,2.4485E-04_JPRB,2.5477E-04_JPRB,2.5442E-04_JPRB,&
+&2.4312E-04_JPRB,2.1633E-04_JPRB,1.2430E-04_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&2.3665E-05_JPRB,1.9894E-04_JPRB,2.4466E-04_JPRB,2.6980E-04_JPRB,2.8155E-04_JPRB,2.8120E-04_JPRB,&
+&2.6804E-04_JPRB,2.3807E-04_JPRB,1.3565E-04_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&1.4387E-05_JPRB,1.0908E-04_JPRB,1.3157E-04_JPRB,1.4361E-04_JPRB,1.4965E-04_JPRB,1.5162E-04_JPRB,&
+&1.4826E-04_JPRB,1.3570E-04_JPRB,8.1068E-05_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&1.5222E-05_JPRB,1.2208E-04_JPRB,1.4808E-04_JPRB,1.6206E-04_JPRB,1.6806E-04_JPRB,1.6873E-04_JPRB,&
+&1.6320E-04_JPRB,1.4737E-04_JPRB,8.6440E-05_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&1.6337E-05_JPRB,1.3561E-04_JPRB,1.6504E-04_JPRB,1.8124E-04_JPRB,1.8815E-04_JPRB,1.8808E-04_JPRB,&
+&1.8048E-04_JPRB,1.6146E-04_JPRB,9.3311E-05_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&1.7783E-05_JPRB,1.4947E-04_JPRB,1.8257E-04_JPRB,2.0095E-04_JPRB,2.0933E-04_JPRB,2.0927E-04_JPRB,&
+&2.0001E-04_JPRB,1.7792E-04_JPRB,1.0131E-04_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&1.9570E-05_JPRB,1.6345E-04_JPRB,2.0062E-04_JPRB,2.2151E-04_JPRB,2.3144E-04_JPRB,2.3129E-04_JPRB,&
+&2.2049E-04_JPRB,1.9577E-04_JPRB,1.1046E-04_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&9.2497E-04_JPRB,4.3144E-03_JPRB,5.6991E-03_JPRB,6.4942E-03_JPRB,6.8938E-03_JPRB,6.9128E-03_JPRB,&
+&6.4921E-03_JPRB,5.6369E-03_JPRB,1.8483E-03_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&1.0409E-03_JPRB,4.6383E-03_JPRB,6.0633E-03_JPRB,6.9063E-03_JPRB,7.3169E-03_JPRB,7.3608E-03_JPRB,&
+&6.9192E-03_JPRB,6.0028E-03_JPRB,2.0300E-03_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&1.1556E-03_JPRB,4.9764E-03_JPRB,6.4488E-03_JPRB,7.3288E-03_JPRB,7.7717E-03_JPRB,7.8279E-03_JPRB,&
+&7.3748E-03_JPRB,6.3833E-03_JPRB,2.2072E-03_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&1.2675E-03_JPRB,5.3121E-03_JPRB,6.8537E-03_JPRB,7.7796E-03_JPRB,8.2492E-03_JPRB,8.3162E-03_JPRB,&
+&7.8626E-03_JPRB,6.7865E-03_JPRB,2.3969E-03_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&1.3758E-03_JPRB,5.6410E-03_JPRB,7.2804E-03_JPRB,8.2553E-03_JPRB,8.7528E-03_JPRB,8.8226E-03_JPRB,&
+&8.3750E-03_JPRB,7.2191E-03_JPRB,2.6089E-03_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&7.5186E-04_JPRB,3.6103E-03_JPRB,4.7635E-03_JPRB,5.4240E-03_JPRB,5.7535E-03_JPRB,5.7797E-03_JPRB,&
+&5.4198E-03_JPRB,4.6836E-03_JPRB,1.4556E-03_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&8.4398E-04_JPRB,3.8877E-03_JPRB,5.0819E-03_JPRB,5.7839E-03_JPRB,6.1171E-03_JPRB,6.1580E-03_JPRB,&
+&5.7873E-03_JPRB,4.9984E-03_JPRB,1.6006E-03_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&9.3483E-04_JPRB,4.1713E-03_JPRB,5.4170E-03_JPRB,6.1567E-03_JPRB,6.5115E-03_JPRB,6.5572E-03_JPRB,&
+&6.1783E-03_JPRB,5.3232E-03_JPRB,1.7489E-03_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&1.0238E-03_JPRB,4.4548E-03_JPRB,5.7647E-03_JPRB,6.5444E-03_JPRB,6.9273E-03_JPRB,6.9708E-03_JPRB,&
+&6.5984E-03_JPRB,5.6708E-03_JPRB,1.9109E-03_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&1.1107E-03_JPRB,4.7357E-03_JPRB,6.1219E-03_JPRB,6.9538E-03_JPRB,7.3658E-03_JPRB,7.4046E-03_JPRB,&
+&7.0322E-03_JPRB,6.0412E-03_JPRB,2.0904E-03_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&6.0142E-04_JPRB,2.9523E-03_JPRB,3.9104E-03_JPRB,4.4517E-03_JPRB,4.7174E-03_JPRB,4.7372E-03_JPRB,&
+&4.4492E-03_JPRB,3.8243E-03_JPRB,1.1263E-03_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&6.7406E-04_JPRB,3.1823E-03_JPRB,4.1811E-03_JPRB,4.7592E-03_JPRB,5.0290E-03_JPRB,5.0575E-03_JPRB,&
+&4.7588E-03_JPRB,4.0940E-03_JPRB,1.2428E-03_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&7.4620E-04_JPRB,3.4210E-03_JPRB,4.4618E-03_JPRB,5.0793E-03_JPRB,5.3629E-03_JPRB,5.3950E-03_JPRB,&
+&5.0905E-03_JPRB,4.3739E-03_JPRB,1.3657E-03_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&8.1752E-04_JPRB,3.6598E-03_JPRB,4.7515E-03_JPRB,5.4067E-03_JPRB,5.7176E-03_JPRB,5.7460E-03_JPRB,&
+&5.4447E-03_JPRB,4.6676E-03_JPRB,1.5007E-03_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&8.8750E-04_JPRB,3.8967E-03_JPRB,5.0479E-03_JPRB,5.7482E-03_JPRB,6.0925E-03_JPRB,6.1154E-03_JPRB,&
+&5.8092E-03_JPRB,4.9824E-03_JPRB,1.6471E-03_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&4.8101E-04_JPRB,2.3906E-03_JPRB,3.1853E-03_JPRB,3.6231E-03_JPRB,3.8360E-03_JPRB,3.8452E-03_JPRB,&
+&3.6186E-03_JPRB,3.1019E-03_JPRB,8.7573E-04_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&5.3961E-04_JPRB,2.5785E-03_JPRB,3.4085E-03_JPRB,3.8820E-03_JPRB,4.0987E-03_JPRB,4.1183E-03_JPRB,&
+&3.8800E-03_JPRB,3.3305E-03_JPRB,9.6932E-04_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&5.9799E-04_JPRB,2.7768E-03_JPRB,3.6406E-03_JPRB,4.1517E-03_JPRB,4.3797E-03_JPRB,4.4028E-03_JPRB,&
+&4.1601E-03_JPRB,3.5700E-03_JPRB,1.0703E-03_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&6.5579E-04_JPRB,2.9752E-03_JPRB,3.8795E-03_JPRB,4.4220E-03_JPRB,4.6790E-03_JPRB,4.7001E-03_JPRB,&
+&4.4581E-03_JPRB,3.8199E-03_JPRB,1.1808E-03_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&7.1241E-04_JPRB,3.1724E-03_JPRB,4.1257E-03_JPRB,4.7025E-03_JPRB,4.9913E-03_JPRB,5.0113E-03_JPRB,&
+&4.7649E-03_JPRB,4.0844E-03_JPRB,1.3011E-03_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&3.7985E-04_JPRB,1.9296E-03_JPRB,2.5823E-03_JPRB,2.9367E-03_JPRB,3.1053E-03_JPRB,3.1068E-03_JPRB,&
+&2.9256E-03_JPRB,2.5075E-03_JPRB,6.8590E-04_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&4.2774E-04_JPRB,2.0822E-03_JPRB,2.7665E-03_JPRB,3.1512E-03_JPRB,3.3261E-03_JPRB,3.3384E-03_JPRB,&
+&3.1468E-03_JPRB,2.7004E-03_JPRB,7.6134E-04_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&4.7586E-04_JPRB,2.2442E-03_JPRB,2.9575E-03_JPRB,3.3747E-03_JPRB,3.5611E-03_JPRB,3.5804E-03_JPRB,&
+&3.3851E-03_JPRB,2.9033E-03_JPRB,8.4414E-04_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&5.2378E-04_JPRB,2.4068E-03_JPRB,3.1534E-03_JPRB,3.5994E-03_JPRB,3.8099E-03_JPRB,3.8326E-03_JPRB,&
+&3.6365E-03_JPRB,3.1178E-03_JPRB,9.3392E-04_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&5.7107E-04_JPRB,2.5676E-03_JPRB,3.3559E-03_JPRB,3.8294E-03_JPRB,4.0688E-03_JPRB,4.0931E-03_JPRB,&
+&3.8958E-03_JPRB,3.3418E-03_JPRB,1.0329E-03_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&2.9735E-04_JPRB,1.5488E-03_JPRB,2.0781E-03_JPRB,2.3635E-03_JPRB,2.4968E-03_JPRB,2.4931E-03_JPRB,&
+&2.3467E-03_JPRB,2.0085E-03_JPRB,5.4223E-04_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&3.3587E-04_JPRB,1.6709E-03_JPRB,2.2308E-03_JPRB,2.5409E-03_JPRB,2.6808E-03_JPRB,2.6895E-03_JPRB,&
+&2.5340E-03_JPRB,2.1715E-03_JPRB,6.0215E-04_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&3.7473E-04_JPRB,1.8004E-03_JPRB,2.3875E-03_JPRB,2.7253E-03_JPRB,2.8757E-03_JPRB,2.8921E-03_JPRB,&
+&2.7340E-03_JPRB,2.3415E-03_JPRB,6.6920E-04_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&4.1385E-04_JPRB,1.9336E-03_JPRB,2.5474E-03_JPRB,2.9106E-03_JPRB,3.0795E-03_JPRB,3.1041E-03_JPRB,&
+&2.9464E-03_JPRB,2.5236E-03_JPRB,7.4227E-04_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&4.5282E-04_JPRB,2.0641E-03_JPRB,2.7125E-03_JPRB,3.0998E-03_JPRB,3.2937E-03_JPRB,3.3201E-03_JPRB,&
+&3.1630E-03_JPRB,2.7121E-03_JPRB,8.2264E-04_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&2.3216E-04_JPRB,1.2362E-03_JPRB,1.6616E-03_JPRB,1.8908E-03_JPRB,1.9971E-03_JPRB,1.9905E-03_JPRB,&
+&1.8720E-03_JPRB,1.5991E-03_JPRB,4.4178E-04_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&2.6289E-04_JPRB,1.3329E-03_JPRB,1.7891E-03_JPRB,2.0369E-03_JPRB,2.1504E-03_JPRB,2.1555E-03_JPRB,&
+&2.0290E-03_JPRB,1.7365E-03_JPRB,4.9123E-04_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&2.9417E-04_JPRB,1.4359E-03_JPRB,1.9156E-03_JPRB,2.1896E-03_JPRB,2.3102E-03_JPRB,2.3250E-03_JPRB,&
+&2.1958E-03_JPRB,1.8783E-03_JPRB,5.4688E-04_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&3.2585E-04_JPRB,1.5437E-03_JPRB,2.0463E-03_JPRB,2.3419E-03_JPRB,2.4777E-03_JPRB,2.4981E-03_JPRB,&
+&2.3744E-03_JPRB,2.0299E-03_JPRB,6.0742E-04_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&3.5762E-04_JPRB,1.6504E-03_JPRB,2.1798E-03_JPRB,2.4967E-03_JPRB,2.6528E-03_JPRB,2.6762E-03_JPRB,&
+&2.5533E-03_JPRB,2.1888E-03_JPRB,6.7380E-04_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&1.8254E-04_JPRB,9.8374E-04_JPRB,1.3243E-03_JPRB,1.5057E-03_JPRB,1.5902E-03_JPRB,1.5824E-03_JPRB,&
+&1.4869E-03_JPRB,1.2665E-03_JPRB,3.9850E-04_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&2.0666E-04_JPRB,1.0603E-03_JPRB,1.4275E-03_JPRB,1.6259E-03_JPRB,1.7181E-03_JPRB,1.7201E-03_JPRB,&
+&1.6174E-03_JPRB,1.3826E-03_JPRB,4.4169E-04_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&2.3157E-04_JPRB,1.1419E-03_JPRB,1.5319E-03_JPRB,1.7520E-03_JPRB,1.8487E-03_JPRB,1.8612E-03_JPRB,&
+&1.7566E-03_JPRB,1.5015E-03_JPRB,4.8905E-04_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&2.5700E-04_JPRB,1.2278E-03_JPRB,1.6373E-03_JPRB,1.8765E-03_JPRB,1.9849E-03_JPRB,2.0014E-03_JPRB,&
+&1.9031E-03_JPRB,1.6270E-03_JPRB,5.4213E-04_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&2.8283E-04_JPRB,1.3158E-03_JPRB,1.7450E-03_JPRB,2.0017E-03_JPRB,2.1255E-03_JPRB,2.1468E-03_JPRB,&
+&2.0518E-03_JPRB,1.7597E-03_JPRB,6.0087E-04_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&1.4492E-04_JPRB,7.8220E-04_JPRB,1.0529E-03_JPRB,1.1948E-03_JPRB,1.2616E-03_JPRB,1.2532E-03_JPRB,&
+&1.1763E-03_JPRB,9.9787E-04_JPRB,3.8271E-04_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&1.6385E-04_JPRB,8.4332E-04_JPRB,1.1362E-03_JPRB,1.2935E-03_JPRB,1.3677E-03_JPRB,1.3665E-03_JPRB,&
+&1.2847E-03_JPRB,1.0960E-03_JPRB,4.2068E-04_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&1.8366E-04_JPRB,9.0787E-04_JPRB,1.2223E-03_JPRB,1.3959E-03_JPRB,1.4750E-03_JPRB,1.4839E-03_JPRB,&
+&1.3993E-03_JPRB,1.1955E-03_JPRB,4.6660E-04_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&2.0401E-04_JPRB,9.7621E-04_JPRB,1.3079E-03_JPRB,1.4991E-03_JPRB,1.5844E-03_JPRB,1.5989E-03_JPRB,&
+&1.5186E-03_JPRB,1.3000E-03_JPRB,5.2016E-04_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&2.2477E-04_JPRB,1.0479E-03_JPRB,1.3948E-03_JPRB,1.6006E-03_JPRB,1.6979E-03_JPRB,1.7159E-03_JPRB,&
+&1.6415E-03_JPRB,1.4093E-03_JPRB,5.7816E-04_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&1.1869E-04_JPRB,6.2671E-04_JPRB,8.4082E-04_JPRB,9.5190E-04_JPRB,1.0039E-03_JPRB,9.9693E-04_JPRB,&
+&9.3504E-04_JPRB,7.8902E-04_JPRB,3.5140E-04_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&1.3381E-04_JPRB,6.7599E-04_JPRB,9.0913E-04_JPRB,1.0332E-03_JPRB,1.0921E-03_JPRB,1.0891E-03_JPRB,&
+&1.0243E-03_JPRB,8.7218E-04_JPRB,3.8763E-04_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&1.4959E-04_JPRB,7.2765E-04_JPRB,9.7958E-04_JPRB,1.1159E-03_JPRB,1.1802E-03_JPRB,1.1859E-03_JPRB,&
+&1.1183E-03_JPRB,9.5533E-04_JPRB,4.3010E-04_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&1.6589E-04_JPRB,7.8204E-04_JPRB,1.0498E-03_JPRB,1.2013E-03_JPRB,1.2689E-03_JPRB,1.2810E-03_JPRB,&
+&1.2156E-03_JPRB,1.0417E-03_JPRB,4.7716E-04_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&1.8260E-04_JPRB,8.3938E-04_JPRB,1.1206E-03_JPRB,1.2847E-03_JPRB,1.3612E-03_JPRB,1.3753E-03_JPRB,&
+&1.3161E-03_JPRB,1.1315E-03_JPRB,5.2947E-04_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&1.0311E-04_JPRB,5.2056E-04_JPRB,6.9637E-04_JPRB,7.8750E-04_JPRB,8.3059E-04_JPRB,8.2575E-04_JPRB,&
+&7.7490E-04_JPRB,6.5424E-04_JPRB,3.0281E-04_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&1.1590E-04_JPRB,5.6136E-04_JPRB,7.5296E-04_JPRB,8.5480E-04_JPRB,9.0353E-04_JPRB,9.0216E-04_JPRB,&
+&8.4999E-04_JPRB,7.2420E-04_JPRB,3.3507E-04_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&1.2889E-04_JPRB,6.0382E-04_JPRB,8.1101E-04_JPRB,9.2302E-04_JPRB,9.7570E-04_JPRB,9.8182E-04_JPRB,&
+&9.2806E-04_JPRB,7.9438E-04_JPRB,3.7284E-04_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&1.4211E-04_JPRB,6.4818E-04_JPRB,8.6860E-04_JPRB,9.9311E-04_JPRB,1.0487E-03_JPRB,1.0592E-03_JPRB,&
+&1.0081E-03_JPRB,8.6646E-04_JPRB,4.1455E-04_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&1.5566E-04_JPRB,6.9514E-04_JPRB,9.2716E-04_JPRB,1.0621E-03_JPRB,1.1251E-03_JPRB,1.1363E-03_JPRB,&
+&1.0898E-03_JPRB,9.4096E-04_JPRB,4.6093E-04_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&8.6906E-05_JPRB,4.2943E-04_JPRB,5.7386E-04_JPRB,6.4907E-04_JPRB,6.8516E-04_JPRB,6.8236E-04_JPRB,&
+&6.4150E-04_JPRB,5.4221E-04_JPRB,2.5343E-04_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&9.7363E-05_JPRB,4.6320E-04_JPRB,6.2055E-04_JPRB,7.0430E-04_JPRB,7.4506E-04_JPRB,7.4512E-04_JPRB,&
+&7.0369E-04_JPRB,6.0080E-04_JPRB,2.8076E-04_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&1.0822E-04_JPRB,4.9810E-04_JPRB,6.6816E-04_JPRB,7.6045E-04_JPRB,8.0385E-04_JPRB,8.1033E-04_JPRB,&
+&7.6791E-04_JPRB,6.5916E-04_JPRB,3.1267E-04_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&1.1919E-04_JPRB,5.3431E-04_JPRB,7.1547E-04_JPRB,8.1798E-04_JPRB,8.6412E-04_JPRB,8.7316E-04_JPRB,&
+&8.3318E-04_JPRB,7.1884E-04_JPRB,3.4804E-04_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&1.3020E-04_JPRB,5.7282E-04_JPRB,7.6401E-04_JPRB,8.7493E-04_JPRB,9.2683E-04_JPRB,9.3624E-04_JPRB,&
+&8.9962E-04_JPRB,7.8030E-04_JPRB,3.8737E-04_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&7.2736E-05_JPRB,3.5287E-04_JPRB,4.7103E-04_JPRB,5.3285E-04_JPRB,5.6294E-04_JPRB,5.6189E-04_JPRB,&
+&5.2952E-04_JPRB,4.4876E-04_JPRB,2.0844E-04_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&8.1220E-05_JPRB,3.8092E-04_JPRB,5.0957E-04_JPRB,5.7824E-04_JPRB,6.1199E-04_JPRB,6.1315E-04_JPRB,&
+&5.8053E-04_JPRB,4.9725E-04_JPRB,2.3115E-04_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&9.0164E-05_JPRB,4.0966E-04_JPRB,5.4894E-04_JPRB,6.2460E-04_JPRB,6.6024E-04_JPRB,6.6621E-04_JPRB,&
+&6.3308E-04_JPRB,5.4537E-04_JPRB,2.5750E-04_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&9.9376E-05_JPRB,4.3939E-04_JPRB,5.8810E-04_JPRB,6.7200E-04_JPRB,7.1008E-04_JPRB,7.1773E-04_JPRB,&
+&6.8617E-04_JPRB,5.9441E-04_JPRB,2.8680E-04_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&1.0854E-04_JPRB,4.7117E-04_JPRB,6.2833E-04_JPRB,7.1918E-04_JPRB,7.6187E-04_JPRB,7.6982E-04_JPRB,&
+&7.4086E-04_JPRB,6.4493E-04_JPRB,3.1932E-04_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&2.8268E-03_JPRB,8.0007E-03_JPRB,1.0129E-02_JPRB,1.1600E-02_JPRB,1.2484E-02_JPRB,1.2903E-02_JPRB,&
+&1.2756E-02_JPRB,1.1762E-02_JPRB,4.6746E-03_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&3.1283E-03_JPRB,8.6463E-03_JPRB,1.0922E-02_JPRB,1.2433E-02_JPRB,1.3339E-02_JPRB,1.3730E-02_JPRB,&
+&1.3558E-02_JPRB,1.2454E-02_JPRB,5.0133E-03_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&3.4558E-03_JPRB,9.3189E-03_JPRB,1.1784E-02_JPRB,1.3331E-02_JPRB,1.4258E-02_JPRB,1.4611E-02_JPRB,&
+&1.4389E-02_JPRB,1.3149E-02_JPRB,5.3761E-03_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&3.8003E-03_JPRB,1.0040E-02_JPRB,1.2672E-02_JPRB,1.4281E-02_JPRB,1.5240E-02_JPRB,1.5546E-02_JPRB,&
+&1.5245E-02_JPRB,1.3873E-02_JPRB,5.7489E-03_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&4.1364E-03_JPRB,1.0810E-02_JPRB,1.3574E-02_JPRB,1.5264E-02_JPRB,1.6259E-02_JPRB,1.6515E-02_JPRB,&
+&1.6129E-02_JPRB,1.4624E-02_JPRB,6.1285E-03_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&2.3785E-03_JPRB,6.8111E-03_JPRB,8.5917E-03_JPRB,9.8069E-03_JPRB,1.0520E-02_JPRB,1.0823E-02_JPRB,&
+&1.0667E-02_JPRB,9.8152E-03_JPRB,3.7184E-03_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&2.6403E-03_JPRB,7.3805E-03_JPRB,9.2734E-03_JPRB,1.0506E-02_JPRB,1.1253E-02_JPRB,1.1531E-02_JPRB,&
+&1.1349E-02_JPRB,1.0403E-02_JPRB,4.0032E-03_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&2.9257E-03_JPRB,7.9766E-03_JPRB,1.0007E-02_JPRB,1.1267E-02_JPRB,1.2040E-02_JPRB,1.2292E-02_JPRB,&
+&1.2064E-02_JPRB,1.1014E-02_JPRB,4.2975E-03_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&3.2219E-03_JPRB,8.6148E-03_JPRB,1.0770E-02_JPRB,1.2085E-02_JPRB,1.2878E-02_JPRB,1.3098E-02_JPRB,&
+&1.2794E-02_JPRB,1.1649E-02_JPRB,4.6021E-03_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&3.5088E-03_JPRB,9.2842E-03_JPRB,1.1557E-02_JPRB,1.2935E-02_JPRB,1.3737E-02_JPRB,1.3940E-02_JPRB,&
+&1.3572E-02_JPRB,1.2310E-02_JPRB,4.9140E-03_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&1.9386E-03_JPRB,5.6660E-03_JPRB,7.1297E-03_JPRB,8.1429E-03_JPRB,8.7357E-03_JPRB,8.9496E-03_JPRB,&
+&8.7747E-03_JPRB,8.0582E-03_JPRB,2.9088E-03_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&2.1579E-03_JPRB,6.1637E-03_JPRB,7.7083E-03_JPRB,8.7254E-03_JPRB,9.3435E-03_JPRB,9.5443E-03_JPRB,&
+&9.3488E-03_JPRB,8.5545E-03_JPRB,3.1389E-03_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&2.3960E-03_JPRB,6.6842E-03_JPRB,8.3410E-03_JPRB,9.3621E-03_JPRB,1.0004E-02_JPRB,1.0182E-02_JPRB,&
+&9.9526E-03_JPRB,9.0715E-03_JPRB,3.3810E-03_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&2.6451E-03_JPRB,7.2345E-03_JPRB,9.0005E-03_JPRB,1.0055E-02_JPRB,1.0704E-02_JPRB,1.0864E-02_JPRB,&
+&1.0573E-02_JPRB,9.6158E-03_JPRB,3.6280E-03_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&2.8859E-03_JPRB,7.8078E-03_JPRB,9.6814E-03_JPRB,1.0782E-02_JPRB,1.1421E-02_JPRB,1.1580E-02_JPRB,&
+&1.1241E-02_JPRB,1.0187E-02_JPRB,3.8829E-03_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&1.5600E-03_JPRB,4.6546E-03_JPRB,5.8495E-03_JPRB,6.6996E-03_JPRB,7.2044E-03_JPRB,7.3765E-03_JPRB,&
+&7.1865E-03_JPRB,6.5682E-03_JPRB,2.2826E-03_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&1.7367E-03_JPRB,5.0823E-03_JPRB,6.3406E-03_JPRB,7.1867E-03_JPRB,7.7058E-03_JPRB,7.8650E-03_JPRB,&
+&7.6617E-03_JPRB,6.9802E-03_JPRB,2.4709E-03_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&1.9306E-03_JPRB,5.5299E-03_JPRB,6.8812E-03_JPRB,7.7221E-03_JPRB,8.2549E-03_JPRB,8.3977E-03_JPRB,&
+&8.1626E-03_JPRB,7.4067E-03_JPRB,2.6716E-03_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&2.1349E-03_JPRB,5.9971E-03_JPRB,7.4507E-03_JPRB,8.3116E-03_JPRB,8.8413E-03_JPRB,8.9674E-03_JPRB,&
+&8.6864E-03_JPRB,7.8658E-03_JPRB,2.8745E-03_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&2.3336E-03_JPRB,6.4807E-03_JPRB,8.0336E-03_JPRB,8.9354E-03_JPRB,9.4416E-03_JPRB,9.5691E-03_JPRB,&
+&9.2483E-03_JPRB,8.3517E-03_JPRB,3.0875E-03_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&1.2643E-03_JPRB,3.7992E-03_JPRB,4.7706E-03_JPRB,5.4821E-03_JPRB,5.9156E-03_JPRB,6.0631E-03_JPRB,&
+&5.8873E-03_JPRB,5.3374E-03_JPRB,1.7987E-03_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&1.4029E-03_JPRB,4.1601E-03_JPRB,5.1876E-03_JPRB,5.8930E-03_JPRB,6.3304E-03_JPRB,6.4641E-03_JPRB,&
+&6.2801E-03_JPRB,5.6828E-03_JPRB,1.9541E-03_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&1.5562E-03_JPRB,4.5381E-03_JPRB,5.6449E-03_JPRB,6.3470E-03_JPRB,6.7903E-03_JPRB,6.9025E-03_JPRB,&
+&6.6934E-03_JPRB,6.0371E-03_JPRB,2.1188E-03_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&1.7190E-03_JPRB,4.9285E-03_JPRB,6.1272E-03_JPRB,6.8449E-03_JPRB,7.2797E-03_JPRB,7.3760E-03_JPRB,&
+&7.1291E-03_JPRB,6.4167E-03_JPRB,2.2886E-03_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&1.8807E-03_JPRB,5.3341E-03_JPRB,6.6172E-03_JPRB,7.3735E-03_JPRB,7.7846E-03_JPRB,7.8779E-03_JPRB,&
+&7.5974E-03_JPRB,6.8236E-03_JPRB,2.4671E-03_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&1.0213E-03_JPRB,3.0721E-03_JPRB,3.8660E-03_JPRB,4.4559E-03_JPRB,4.8197E-03_JPRB,4.9478E-03_JPRB,&
+&4.7982E-03_JPRB,4.3290E-03_JPRB,1.4118E-03_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&1.1324E-03_JPRB,3.3728E-03_JPRB,4.2119E-03_JPRB,4.7959E-03_JPRB,5.1628E-03_JPRB,5.2793E-03_JPRB,&
+&5.1225E-03_JPRB,4.6162E-03_JPRB,1.5418E-03_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&1.2545E-03_JPRB,3.6892E-03_JPRB,4.5936E-03_JPRB,5.1743E-03_JPRB,5.5467E-03_JPRB,5.6393E-03_JPRB,&
+&5.4667E-03_JPRB,4.9091E-03_JPRB,1.6767E-03_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&1.3844E-03_JPRB,4.0151E-03_JPRB,4.9945E-03_JPRB,5.5888E-03_JPRB,5.9562E-03_JPRB,6.0318E-03_JPRB,&
+&5.8253E-03_JPRB,5.2198E-03_JPRB,1.8201E-03_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&1.5162E-03_JPRB,4.3530E-03_JPRB,5.4044E-03_JPRB,6.0308E-03_JPRB,6.3808E-03_JPRB,6.4545E-03_JPRB,&
+&6.2163E-03_JPRB,5.5575E-03_JPRB,1.9706E-03_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&8.1383E-04_JPRB,2.4690E-03_JPRB,3.1190E-03_JPRB,3.6045E-03_JPRB,3.9078E-03_JPRB,4.0152E-03_JPRB,&
+&3.8892E-03_JPRB,3.5066E-03_JPRB,1.1162E-03_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&9.0133E-04_JPRB,2.7200E-03_JPRB,3.4007E-03_JPRB,3.8875E-03_JPRB,4.1896E-03_JPRB,4.2887E-03_JPRB,&
+&4.1574E-03_JPRB,3.7464E-03_JPRB,1.2253E-03_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&9.9758E-04_JPRB,2.9822E-03_JPRB,3.7154E-03_JPRB,4.1988E-03_JPRB,4.5072E-03_JPRB,4.5864E-03_JPRB,&
+&4.4444E-03_JPRB,3.9910E-03_JPRB,1.3374E-03_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&1.1009E-03_JPRB,3.2536E-03_JPRB,4.0499E-03_JPRB,4.5399E-03_JPRB,4.8474E-03_JPRB,4.9140E-03_JPRB,&
+&4.7441E-03_JPRB,4.2483E-03_JPRB,1.4572E-03_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&1.2079E-03_JPRB,3.5321E-03_JPRB,4.3905E-03_JPRB,4.9045E-03_JPRB,5.2002E-03_JPRB,5.2665E-03_JPRB,&
+&5.0703E-03_JPRB,4.5267E-03_JPRB,1.5834E-03_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&6.4403E-04_JPRB,1.9711E-03_JPRB,2.5061E-03_JPRB,2.9046E-03_JPRB,3.1552E-03_JPRB,3.2467E-03_JPRB,&
+&3.1397E-03_JPRB,2.8272E-03_JPRB,9.2879E-04_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&7.1238E-04_JPRB,2.1771E-03_JPRB,2.7335E-03_JPRB,3.1363E-03_JPRB,3.3882E-03_JPRB,3.4702E-03_JPRB,&
+&3.3609E-03_JPRB,3.0275E-03_JPRB,1.0282E-03_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&7.8775E-04_JPRB,2.3928E-03_JPRB,2.9888E-03_JPRB,3.3912E-03_JPRB,3.6502E-03_JPRB,3.7161E-03_JPRB,&
+&3.5992E-03_JPRB,3.2322E-03_JPRB,1.1312E-03_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&8.6902E-04_JPRB,2.6176E-03_JPRB,3.2653E-03_JPRB,3.6711E-03_JPRB,3.9303E-03_JPRB,3.9873E-03_JPRB,&
+&3.8512E-03_JPRB,3.4474E-03_JPRB,1.2372E-03_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&9.5395E-04_JPRB,2.8439E-03_JPRB,3.5472E-03_JPRB,3.9717E-03_JPRB,4.2227E-03_JPRB,4.2804E-03_JPRB,&
+&4.1230E-03_JPRB,3.6794E-03_JPRB,1.3472E-03_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&5.1007E-04_JPRB,1.5656E-03_JPRB,2.0060E-03_JPRB,2.3330E-03_JPRB,2.5370E-03_JPRB,2.6132E-03_JPRB,&
+&2.5254E-03_JPRB,2.2694E-03_JPRB,9.3729E-04_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&5.6353E-04_JPRB,1.7326E-03_JPRB,2.1869E-03_JPRB,2.5189E-03_JPRB,2.7285E-03_JPRB,2.7995E-03_JPRB,&
+&2.7056E-03_JPRB,2.4351E-03_JPRB,1.0493E-03_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&6.2213E-04_JPRB,1.9088E-03_JPRB,2.3915E-03_JPRB,2.7258E-03_JPRB,2.9423E-03_JPRB,2.9995E-03_JPRB,&
+&2.9041E-03_JPRB,2.6067E-03_JPRB,1.1607E-03_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&6.8571E-04_JPRB,2.0922E-03_JPRB,2.6149E-03_JPRB,2.9528E-03_JPRB,3.1723E-03_JPRB,3.2231E-03_JPRB,&
+&3.1163E-03_JPRB,2.7863E-03_JPRB,1.2669E-03_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&7.5285E-04_JPRB,2.2758E-03_JPRB,2.8459E-03_JPRB,3.1985E-03_JPRB,3.4132E-03_JPRB,3.4638E-03_JPRB,&
+&3.3423E-03_JPRB,2.9799E-03_JPRB,1.3708E-03_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&4.0986E-04_JPRB,1.2514E-03_JPRB,1.6149E-03_JPRB,1.8827E-03_JPRB,2.0477E-03_JPRB,2.1068E-03_JPRB,&
+&2.0342E-03_JPRB,1.8264E-03_JPRB,9.4172E-04_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&4.5195E-04_JPRB,1.3870E-03_JPRB,1.7594E-03_JPRB,2.0313E-03_JPRB,2.2041E-03_JPRB,2.2637E-03_JPRB,&
+&2.1836E-03_JPRB,1.9630E-03_JPRB,1.0592E-03_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&4.9807E-04_JPRB,1.5305E-03_JPRB,1.9232E-03_JPRB,2.1993E-03_JPRB,2.3783E-03_JPRB,2.4282E-03_JPRB,&
+&2.3477E-03_JPRB,2.1050E-03_JPRB,1.1691E-03_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&5.4808E-04_JPRB,1.6789E-03_JPRB,2.1022E-03_JPRB,2.3829E-03_JPRB,2.5654E-03_JPRB,2.6091E-03_JPRB,&
+&2.5255E-03_JPRB,2.2562E-03_JPRB,1.2759E-03_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&6.0117E-04_JPRB,1.8287E-03_JPRB,2.2888E-03_JPRB,2.5807E-03_JPRB,2.7622E-03_JPRB,2.8066E-03_JPRB,&
+&2.7118E-03_JPRB,2.4197E-03_JPRB,1.3798E-03_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&3.4587E-04_JPRB,1.0486E-03_JPRB,1.3498E-03_JPRB,1.5706E-03_JPRB,1.7067E-03_JPRB,1.7541E-03_JPRB,&
+&1.6904E-03_JPRB,1.5189E-03_JPRB,8.4922E-04_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&3.8030E-04_JPRB,1.1612E-03_JPRB,1.4720E-03_JPRB,1.6962E-03_JPRB,1.8396E-03_JPRB,1.8877E-03_JPRB,&
+&1.8189E-03_JPRB,1.6321E-03_JPRB,9.4886E-04_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&4.1775E-04_JPRB,1.2794E-03_JPRB,1.6083E-03_JPRB,1.8372E-03_JPRB,1.9863E-03_JPRB,2.0269E-03_JPRB,&
+&1.9602E-03_JPRB,1.7534E-03_JPRB,1.0435E-03_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&4.5831E-04_JPRB,1.4012E-03_JPRB,1.7558E-03_JPRB,1.9899E-03_JPRB,2.1423E-03_JPRB,2.1791E-03_JPRB,&
+&2.1105E-03_JPRB,1.8847E-03_JPRB,1.1342E-03_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&5.0160E-04_JPRB,1.5235E-03_JPRB,1.9068E-03_JPRB,2.1518E-03_JPRB,2.3031E-03_JPRB,2.3452E-03_JPRB,&
+&2.2691E-03_JPRB,2.0271E-03_JPRB,1.2246E-03_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&2.8728E-04_JPRB,8.7138E-04_JPRB,1.1212E-03_JPRB,1.3035E-03_JPRB,1.4166E-03_JPRB,1.4556E-03_JPRB,&
+&1.4016E-03_JPRB,1.2592E-03_JPRB,7.2447E-04_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&3.1564E-04_JPRB,9.6434E-04_JPRB,1.2235E-03_JPRB,1.4085E-03_JPRB,1.5279E-03_JPRB,1.5679E-03_JPRB,&
+&1.5112E-03_JPRB,1.3542E-03_JPRB,8.0728E-04_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&3.4588E-04_JPRB,1.0616E-03_JPRB,1.3357E-03_JPRB,1.5255E-03_JPRB,1.6505E-03_JPRB,1.6842E-03_JPRB,&
+&1.6309E-03_JPRB,1.4584E-03_JPRB,8.8538E-04_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&3.7862E-04_JPRB,1.1614E-03_JPRB,1.4559E-03_JPRB,1.6504E-03_JPRB,1.7780E-03_JPRB,1.8118E-03_JPRB,&
+&1.7570E-03_JPRB,1.5710E-03_JPRB,9.6174E-04_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&4.1375E-04_JPRB,1.2608E-03_JPRB,1.5783E-03_JPRB,1.7829E-03_JPRB,1.9097E-03_JPRB,1.9490E-03_JPRB,&
+&1.8902E-03_JPRB,1.6924E-03_JPRB,1.0383E-03_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&2.3648E-04_JPRB,7.2058E-04_JPRB,9.2721E-04_JPRB,1.0773E-03_JPRB,1.1715E-03_JPRB,1.2041E-03_JPRB,&
+&1.1590E-03_JPRB,1.0409E-03_JPRB,5.9750E-04_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&2.5991E-04_JPRB,7.9700E-04_JPRB,1.0119E-03_JPRB,1.1647E-03_JPRB,1.2640E-03_JPRB,1.2977E-03_JPRB,&
+&1.2520E-03_JPRB,1.1213E-03_JPRB,6.6442E-04_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&2.8463E-04_JPRB,8.7643E-04_JPRB,1.1035E-03_JPRB,1.2606E-03_JPRB,1.3651E-03_JPRB,1.3947E-03_JPRB,&
+&1.3520E-03_JPRB,1.2099E-03_JPRB,7.2829E-04_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&3.1116E-04_JPRB,9.5840E-04_JPRB,1.2015E-03_JPRB,1.3629E-03_JPRB,1.4693E-03_JPRB,1.4997E-03_JPRB,&
+&1.4571E-03_JPRB,1.3050E-03_JPRB,7.9195E-04_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&3.3973E-04_JPRB,1.0393E-03_JPRB,1.3011E-03_JPRB,1.4709E-03_JPRB,1.5771E-03_JPRB,1.6125E-03_JPRB,&
+&1.5669E-03_JPRB,1.4078E-03_JPRB,8.5580E-04_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&6.8556E-03_JPRB,1.5209E-02_JPRB,1.8964E-02_JPRB,2.1311E-02_JPRB,2.2775E-02_JPRB,2.3573E-02_JPRB,&
+&2.3412E-02_JPRB,2.1611E-02_JPRB,1.0754E-02_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&7.5360E-03_JPRB,1.6539E-02_JPRB,2.0389E-02_JPRB,2.2809E-02_JPRB,2.4368E-02_JPRB,2.5124E-02_JPRB,&
+&2.4893E-02_JPRB,2.2807E-02_JPRB,1.1409E-02_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&8.2731E-03_JPRB,1.7967E-02_JPRB,2.1859E-02_JPRB,2.4354E-02_JPRB,2.6001E-02_JPRB,2.6738E-02_JPRB,&
+&2.6424E-02_JPRB,2.3981E-02_JPRB,1.2028E-02_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&9.0669E-03_JPRB,1.9440E-02_JPRB,2.3386E-02_JPRB,2.5951E-02_JPRB,2.7638E-02_JPRB,2.8404E-02_JPRB,&
+&2.7993E-02_JPRB,2.5105E-02_JPRB,1.2622E-02_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&9.9297E-03_JPRB,2.0867E-02_JPRB,2.4992E-02_JPRB,2.7620E-02_JPRB,2.9333E-02_JPRB,3.0144E-02_JPRB,&
+&2.9561E-02_JPRB,2.6196E-02_JPRB,1.3246E-02_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&6.0458E-03_JPRB,1.3057E-02_JPRB,1.6177E-02_JPRB,1.8072E-02_JPRB,1.9267E-02_JPRB,1.9866E-02_JPRB,&
+&1.9708E-02_JPRB,1.7998E-02_JPRB,8.6186E-03_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&6.6625E-03_JPRB,1.4207E-02_JPRB,1.7424E-02_JPRB,1.9390E-02_JPRB,2.0646E-02_JPRB,2.1226E-02_JPRB,&
+&2.0989E-02_JPRB,1.9040E-02_JPRB,9.1596E-03_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&7.3258E-03_JPRB,1.5446E-02_JPRB,1.8730E-02_JPRB,2.0756E-02_JPRB,2.2068E-02_JPRB,2.2641E-02_JPRB,&
+&2.2320E-02_JPRB,2.0040E-02_JPRB,9.6719E-03_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&8.0389E-03_JPRB,1.6697E-02_JPRB,2.0086E-02_JPRB,2.2176E-02_JPRB,2.3509E-02_JPRB,2.4128E-02_JPRB,&
+&2.3691E-02_JPRB,2.0995E-02_JPRB,1.0163E-02_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&8.8116E-03_JPRB,1.7924E-02_JPRB,2.1495E-02_JPRB,2.3659E-02_JPRB,2.5007E-02_JPRB,2.5649E-02_JPRB,&
+&2.5070E-02_JPRB,2.1939E-02_JPRB,1.0681E-02_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&5.1529E-03_JPRB,1.1010E-02_JPRB,1.3576E-02_JPRB,1.5057E-02_JPRB,1.5941E-02_JPRB,1.6391E-02_JPRB,&
+&1.6252E-02_JPRB,1.4825E-02_JPRB,6.7965E-03_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&5.7021E-03_JPRB,1.1982E-02_JPRB,1.4643E-02_JPRB,1.6192E-02_JPRB,1.7140E-02_JPRB,1.7565E-02_JPRB,&
+&1.7355E-02_JPRB,1.5736E-02_JPRB,7.2498E-03_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&6.2951E-03_JPRB,1.3030E-02_JPRB,1.5759E-02_JPRB,1.7371E-02_JPRB,1.8379E-02_JPRB,1.8797E-02_JPRB,&
+&1.8506E-02_JPRB,1.6604E-02_JPRB,7.6744E-03_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&6.9329E-03_JPRB,1.4099E-02_JPRB,1.6924E-02_JPRB,1.8614E-02_JPRB,1.9640E-02_JPRB,2.0080E-02_JPRB,&
+&1.9697E-02_JPRB,1.7427E-02_JPRB,8.0855E-03_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&7.6208E-03_JPRB,1.5154E-02_JPRB,1.8132E-02_JPRB,1.9899E-02_JPRB,2.0953E-02_JPRB,2.1403E-02_JPRB,&
+&2.0907E-02_JPRB,1.8236E-02_JPRB,8.5123E-03_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&4.3117E-03_JPRB,9.2399E-03_JPRB,1.1333E-02_JPRB,1.2460E-02_JPRB,1.3088E-02_JPRB,1.3384E-02_JPRB,&
+&1.3264E-02_JPRB,1.2129E-02_JPRB,5.3638E-03_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&4.7919E-03_JPRB,1.0057E-02_JPRB,1.2236E-02_JPRB,1.3425E-02_JPRB,1.4108E-02_JPRB,1.4384E-02_JPRB,&
+&1.4215E-02_JPRB,1.2919E-02_JPRB,5.7448E-03_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&5.3141E-03_JPRB,1.0939E-02_JPRB,1.3172E-02_JPRB,1.4430E-02_JPRB,1.5160E-02_JPRB,1.5438E-02_JPRB,&
+&1.5198E-02_JPRB,1.3684E-02_JPRB,6.1060E-03_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&5.8726E-03_JPRB,1.1850E-02_JPRB,1.4160E-02_JPRB,1.5498E-02_JPRB,1.6255E-02_JPRB,1.6542E-02_JPRB,&
+&1.6226E-02_JPRB,1.4411E-02_JPRB,6.4545E-03_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&6.4675E-03_JPRB,1.2764E-02_JPRB,1.5190E-02_JPRB,1.6608E-02_JPRB,1.7400E-02_JPRB,1.7692E-02_JPRB,&
+&1.7269E-02_JPRB,1.5120E-02_JPRB,6.8073E-03_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&3.5690E-03_JPRB,7.7051E-03_JPRB,9.4368E-03_JPRB,1.0305E-02_JPRB,1.0745E-02_JPRB,1.0912E-02_JPRB,&
+&1.0785E-02_JPRB,9.8773E-03_JPRB,4.2532E-03_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&3.9820E-03_JPRB,8.3977E-03_JPRB,1.0194E-02_JPRB,1.1112E-02_JPRB,1.1609E-02_JPRB,1.1756E-02_JPRB,&
+&1.1595E-02_JPRB,1.0560E-02_JPRB,4.5731E-03_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&4.4305E-03_JPRB,9.1511E-03_JPRB,1.0990E-02_JPRB,1.1967E-02_JPRB,1.2498E-02_JPRB,1.2650E-02_JPRB,&
+&1.2430E-02_JPRB,1.1229E-02_JPRB,4.8830E-03_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&4.9079E-03_JPRB,9.9363E-03_JPRB,1.1832E-02_JPRB,1.2872E-02_JPRB,1.3434E-02_JPRB,1.3592E-02_JPRB,&
+&1.3307E-02_JPRB,1.1872E-02_JPRB,5.1810E-03_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&5.4148E-03_JPRB,1.0727E-02_JPRB,1.2716E-02_JPRB,1.3820E-02_JPRB,1.4419E-02_JPRB,1.4584E-02_JPRB,&
+&1.4197E-02_JPRB,1.2492E-02_JPRB,5.4782E-03_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&2.9249E-03_JPRB,6.3510E-03_JPRB,7.7849E-03_JPRB,8.4721E-03_JPRB,8.7941E-03_JPRB,8.8837E-03_JPRB,&
+&8.7388E-03_JPRB,7.9841E-03_JPRB,3.3710E-03_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&3.2672E-03_JPRB,6.9385E-03_JPRB,8.4203E-03_JPRB,9.1541E-03_JPRB,9.5165E-03_JPRB,9.5904E-03_JPRB,&
+&9.4152E-03_JPRB,8.5713E-03_JPRB,3.6377E-03_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&3.6418E-03_JPRB,7.5787E-03_JPRB,9.0887E-03_JPRB,9.8765E-03_JPRB,1.0268E-02_JPRB,1.0342E-02_JPRB,&
+&1.0116E-02_JPRB,9.1545E-03_JPRB,3.8990E-03_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&4.0414E-03_JPRB,8.2510E-03_JPRB,9.8093E-03_JPRB,1.0646E-02_JPRB,1.1060E-02_JPRB,1.1134E-02_JPRB,&
+&1.0854E-02_JPRB,9.7190E-03_JPRB,4.1544E-03_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&4.4633E-03_JPRB,8.9345E-03_JPRB,1.0570E-02_JPRB,1.1457E-02_JPRB,1.1902E-02_JPRB,1.1976E-02_JPRB,&
+&1.1614E-02_JPRB,1.0272E-02_JPRB,4.4061E-03_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&2.3975E-03_JPRB,5.1959E-03_JPRB,6.3675E-03_JPRB,6.9242E-03_JPRB,7.1717E-03_JPRB,7.2208E-03_JPRB,&
+&7.0819E-03_JPRB,6.4278E-03_JPRB,2.6775E-03_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&2.6794E-03_JPRB,5.6899E-03_JPRB,6.9066E-03_JPRB,7.4942E-03_JPRB,7.7787E-03_JPRB,7.8098E-03_JPRB,&
+&7.6464E-03_JPRB,6.9290E-03_JPRB,2.9001E-03_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&2.9849E-03_JPRB,6.2316E-03_JPRB,7.4741E-03_JPRB,8.1056E-03_JPRB,8.4139E-03_JPRB,8.4374E-03_JPRB,&
+&8.2281E-03_JPRB,7.4302E-03_JPRB,3.1195E-03_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&3.3129E-03_JPRB,6.7984E-03_JPRB,8.0790E-03_JPRB,8.7600E-03_JPRB,9.0837E-03_JPRB,9.1052E-03_JPRB,&
+&8.8458E-03_JPRB,7.9231E-03_JPRB,3.3376E-03_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&3.6598E-03_JPRB,7.3757E-03_JPRB,8.7298E-03_JPRB,9.4547E-03_JPRB,9.7958E-03_JPRB,9.8221E-03_JPRB,&
+&9.4863E-03_JPRB,8.4060E-03_JPRB,3.5509E-03_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&1.9434E-03_JPRB,4.2318E-03_JPRB,5.1740E-03_JPRB,5.6370E-03_JPRB,5.8246E-03_JPRB,5.8488E-03_JPRB,&
+&5.7327E-03_JPRB,5.1810E-03_JPRB,2.1537E-03_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&2.1750E-03_JPRB,4.6511E-03_JPRB,5.6344E-03_JPRB,6.1150E-03_JPRB,6.3286E-03_JPRB,6.3404E-03_JPRB,&
+&6.2037E-03_JPRB,5.6029E-03_JPRB,2.3441E-03_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&2.4260E-03_JPRB,5.1070E-03_JPRB,6.1176E-03_JPRB,6.6292E-03_JPRB,6.8641E-03_JPRB,6.8681E-03_JPRB,&
+&6.6887E-03_JPRB,6.0329E-03_JPRB,2.5317E-03_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&2.6978E-03_JPRB,5.5812E-03_JPRB,6.6317E-03_JPRB,7.1849E-03_JPRB,7.4298E-03_JPRB,7.4337E-03_JPRB,&
+&7.2011E-03_JPRB,6.4503E-03_JPRB,2.7201E-03_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&2.9851E-03_JPRB,6.0671E-03_JPRB,7.1793E-03_JPRB,7.7747E-03_JPRB,8.0358E-03_JPRB,8.0369E-03_JPRB,&
+&7.7421E-03_JPRB,6.8660E-03_JPRB,2.9050E-03_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&1.5624E-03_JPRB,3.4224E-03_JPRB,4.1803E-03_JPRB,4.5613E-03_JPRB,4.7117E-03_JPRB,4.7269E-03_JPRB,&
+&4.6315E-03_JPRB,4.1802E-03_JPRB,2.0354E-03_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&1.7467E-03_JPRB,3.7749E-03_JPRB,4.5748E-03_JPRB,4.9706E-03_JPRB,5.1343E-03_JPRB,5.1344E-03_JPRB,&
+&5.0243E-03_JPRB,4.5350E-03_JPRB,2.2250E-03_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&1.9492E-03_JPRB,4.1547E-03_JPRB,4.9867E-03_JPRB,5.4054E-03_JPRB,5.5868E-03_JPRB,5.5764E-03_JPRB,&
+&5.4288E-03_JPRB,4.8977E-03_JPRB,2.4149E-03_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&2.1701E-03_JPRB,4.5508E-03_JPRB,5.4194E-03_JPRB,5.8744E-03_JPRB,6.0659E-03_JPRB,6.0518E-03_JPRB,&
+&5.8540E-03_JPRB,5.2537E-03_JPRB,2.5971E-03_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&2.4022E-03_JPRB,4.9613E-03_JPRB,5.8787E-03_JPRB,6.3727E-03_JPRB,6.5778E-03_JPRB,6.5618E-03_JPRB,&
+&6.3067E-03_JPRB,5.6053E-03_JPRB,2.7830E-03_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&1.2651E-03_JPRB,2.7744E-03_JPRB,3.3801E-03_JPRB,3.6900E-03_JPRB,3.8178E-03_JPRB,3.8360E-03_JPRB,&
+&3.7605E-03_JPRB,3.3907E-03_JPRB,2.1692E-03_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&1.4111E-03_JPRB,3.0657E-03_JPRB,3.7136E-03_JPRB,4.0421E-03_JPRB,4.1735E-03_JPRB,4.1745E-03_JPRB,&
+&4.0861E-03_JPRB,3.6872E-03_JPRB,2.3639E-03_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&1.5740E-03_JPRB,3.3806E-03_JPRB,4.0618E-03_JPRB,4.4105E-03_JPRB,4.5571E-03_JPRB,4.5460E-03_JPRB,&
+&4.4247E-03_JPRB,3.9923E-03_JPRB,2.5630E-03_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&1.7522E-03_JPRB,3.7084E-03_JPRB,4.4249E-03_JPRB,4.8035E-03_JPRB,4.9639E-03_JPRB,4.9498E-03_JPRB,&
+&4.7806E-03_JPRB,4.2956E-03_JPRB,2.7623E-03_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&1.9383E-03_JPRB,4.0495E-03_JPRB,4.8094E-03_JPRB,5.2222E-03_JPRB,5.3934E-03_JPRB,5.3817E-03_JPRB,&
+&5.1614E-03_JPRB,4.5951E-03_JPRB,2.9665E-03_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&1.0742E-03_JPRB,2.3468E-03_JPRB,2.8469E-03_JPRB,3.1039E-03_JPRB,3.2098E-03_JPRB,3.2233E-03_JPRB,&
+&3.1623E-03_JPRB,2.8537E-03_JPRB,1.9822E-03_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&1.1960E-03_JPRB,2.5965E-03_JPRB,3.1323E-03_JPRB,3.4077E-03_JPRB,3.5194E-03_JPRB,3.5164E-03_JPRB,&
+&3.4380E-03_JPRB,3.1056E-03_JPRB,2.1578E-03_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&1.3316E-03_JPRB,2.8599E-03_JPRB,3.4277E-03_JPRB,3.7260E-03_JPRB,3.8497E-03_JPRB,3.8405E-03_JPRB,&
+&3.7265E-03_JPRB,3.3630E-03_JPRB,2.3306E-03_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&1.4781E-03_JPRB,3.1344E-03_JPRB,3.7357E-03_JPRB,4.0610E-03_JPRB,4.1987E-03_JPRB,4.1913E-03_JPRB,&
+&4.0345E-03_JPRB,3.6192E-03_JPRB,2.5097E-03_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&1.6288E-03_JPRB,3.4177E-03_JPRB,4.0619E-03_JPRB,4.4185E-03_JPRB,4.5672E-03_JPRB,4.5600E-03_JPRB,&
+&4.3663E-03_JPRB,3.8756E-03_JPRB,2.6889E-03_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&8.9874E-04_JPRB,1.9689E-03_JPRB,2.3835E-03_JPRB,2.5973E-03_JPRB,2.6864E-03_JPRB,2.6939E-03_JPRB,&
+&2.6425E-03_JPRB,2.3895E-03_JPRB,1.7049E-03_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&1.0002E-03_JPRB,2.1778E-03_JPRB,2.6233E-03_JPRB,2.8564E-03_JPRB,2.9517E-03_JPRB,2.9476E-03_JPRB,&
+&2.8766E-03_JPRB,2.6019E-03_JPRB,1.8543E-03_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&1.1122E-03_JPRB,2.3973E-03_JPRB,2.8713E-03_JPRB,3.1266E-03_JPRB,3.2310E-03_JPRB,3.2276E-03_JPRB,&
+&3.1237E-03_JPRB,2.8177E-03_JPRB,2.0046E-03_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&1.2310E-03_JPRB,2.6254E-03_JPRB,3.1305E-03_JPRB,3.4112E-03_JPRB,3.5275E-03_JPRB,3.5259E-03_JPRB,&
+&3.3898E-03_JPRB,3.0349E-03_JPRB,2.1565E-03_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&1.3518E-03_JPRB,2.8575E-03_JPRB,3.4006E-03_JPRB,3.7092E-03_JPRB,3.8403E-03_JPRB,3.8370E-03_JPRB,&
+&3.6750E-03_JPRB,3.2557E-03_JPRB,2.3061E-03_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&7.4537E-04_JPRB,1.6409E-03_JPRB,1.9863E-03_JPRB,2.1648E-03_JPRB,2.2399E-03_JPRB,2.2444E-03_JPRB,&
+&2.1988E-03_JPRB,1.9916E-03_JPRB,1.4115E-03_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&8.2943E-04_JPRB,1.8143E-03_JPRB,2.1850E-03_JPRB,2.3828E-03_JPRB,2.4639E-03_JPRB,2.4609E-03_JPRB,&
+&2.3970E-03_JPRB,2.1692E-03_JPRB,1.5369E-03_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&9.2142E-04_JPRB,1.9970E-03_JPRB,2.3927E-03_JPRB,2.6093E-03_JPRB,2.6971E-03_JPRB,2.6969E-03_JPRB,&
+&2.6076E-03_JPRB,2.3521E-03_JPRB,1.6626E-03_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&1.0167E-03_JPRB,2.1837E-03_JPRB,2.6078E-03_JPRB,2.8478E-03_JPRB,2.9467E-03_JPRB,2.9488E-03_JPRB,&
+&2.8346E-03_JPRB,2.5383E-03_JPRB,1.7879E-03_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&1.1138E-03_JPRB,2.3733E-03_JPRB,2.8290E-03_JPRB,3.0924E-03_JPRB,3.2079E-03_JPRB,3.2103E-03_JPRB,&
+&3.0778E-03_JPRB,2.7284E-03_JPRB,1.9133E-03_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&1.7181E-02_JPRB,3.2302E-02_JPRB,3.8595E-02_JPRB,4.2778E-02_JPRB,4.5051E-02_JPRB,4.5779E-02_JPRB,&
+&4.4076E-02_JPRB,3.6499E-02_JPRB,2.1167E-02_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&1.8715E-02_JPRB,3.4583E-02_JPRB,4.1400E-02_JPRB,4.5830E-02_JPRB,4.8256E-02_JPRB,4.8951E-02_JPRB,&
+&4.6576E-02_JPRB,3.8480E-02_JPRB,2.2565E-02_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&2.0319E-02_JPRB,3.6940E-02_JPRB,4.4260E-02_JPRB,4.8908E-02_JPRB,5.1471E-02_JPRB,5.2022E-02_JPRB,&
+&4.8965E-02_JPRB,4.0507E-02_JPRB,2.4057E-02_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&2.1938E-02_JPRB,3.9364E-02_JPRB,4.7234E-02_JPRB,5.2022E-02_JPRB,5.4697E-02_JPRB,5.4911E-02_JPRB,&
+&5.1216E-02_JPRB,4.2565E-02_JPRB,2.5590E-02_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&2.3550E-02_JPRB,4.1966E-02_JPRB,5.0230E-02_JPRB,5.5149E-02_JPRB,5.7839E-02_JPRB,5.7598E-02_JPRB,&
+&5.3448E-02_JPRB,4.4689E-02_JPRB,2.7100E-02_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&1.5052E-02_JPRB,2.7803E-02_JPRB,3.3102E-02_JPRB,3.6670E-02_JPRB,3.8668E-02_JPRB,3.9030E-02_JPRB,&
+&3.7189E-02_JPRB,3.0668E-02_JPRB,1.6985E-02_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&1.6394E-02_JPRB,2.9857E-02_JPRB,3.5621E-02_JPRB,3.9412E-02_JPRB,4.1539E-02_JPRB,4.1835E-02_JPRB,&
+&3.9351E-02_JPRB,3.2356E-02_JPRB,1.8150E-02_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&1.7773E-02_JPRB,3.1981E-02_JPRB,3.8209E-02_JPRB,4.2190E-02_JPRB,4.4385E-02_JPRB,4.4554E-02_JPRB,&
+&4.1400E-02_JPRB,3.4106E-02_JPRB,1.9354E-02_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&1.9186E-02_JPRB,3.4227E-02_JPRB,4.0894E-02_JPRB,4.4998E-02_JPRB,4.7235E-02_JPRB,4.7050E-02_JPRB,&
+&4.3366E-02_JPRB,3.5935E-02_JPRB,2.0592E-02_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&2.0602E-02_JPRB,3.6657E-02_JPRB,4.3639E-02_JPRB,4.7854E-02_JPRB,5.0031E-02_JPRB,4.9403E-02_JPRB,&
+&4.5298E-02_JPRB,3.7775E-02_JPRB,2.1830E-02_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&1.3014E-02_JPRB,2.3440E-02_JPRB,2.7739E-02_JPRB,3.0683E-02_JPRB,3.2476E-02_JPRB,3.2815E-02_JPRB,&
+&3.1052E-02_JPRB,2.5347E-02_JPRB,1.3409E-02_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&1.4134E-02_JPRB,2.5267E-02_JPRB,2.9956E-02_JPRB,3.3121E-02_JPRB,3.5013E-02_JPRB,3.5276E-02_JPRB,&
+&3.2969E-02_JPRB,2.6772E-02_JPRB,1.4346E-02_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&1.5286E-02_JPRB,2.7161E-02_JPRB,3.2264E-02_JPRB,3.5614E-02_JPRB,3.7525E-02_JPRB,3.7651E-02_JPRB,&
+&3.4766E-02_JPRB,2.8284E-02_JPRB,1.5307E-02_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&1.6478E-02_JPRB,2.9176E-02_JPRB,3.4663E-02_JPRB,3.8132E-02_JPRB,4.0060E-02_JPRB,3.9857E-02_JPRB,&
+&3.6493E-02_JPRB,2.9862E-02_JPRB,1.6309E-02_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&1.7703E-02_JPRB,3.1371E-02_JPRB,3.7140E-02_JPRB,4.0703E-02_JPRB,4.2572E-02_JPRB,4.1936E-02_JPRB,&
+&3.8184E-02_JPRB,3.1459E-02_JPRB,1.7321E-02_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&1.1231E-02_JPRB,1.9592E-02_JPRB,2.3001E-02_JPRB,2.5417E-02_JPRB,2.6918E-02_JPRB,2.7254E-02_JPRB,&
+&2.5764E-02_JPRB,2.0867E-02_JPRB,1.0611E-02_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&1.2152E-02_JPRB,2.1190E-02_JPRB,2.4941E-02_JPRB,2.7556E-02_JPRB,2.9134E-02_JPRB,2.9416E-02_JPRB,&
+&2.7448E-02_JPRB,2.2085E-02_JPRB,1.1371E-02_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&1.3112E-02_JPRB,2.2852E-02_JPRB,2.6983E-02_JPRB,2.9739E-02_JPRB,3.1347E-02_JPRB,3.1506E-02_JPRB,&
+&2.9043E-02_JPRB,2.3373E-02_JPRB,1.2148E-02_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&1.4124E-02_JPRB,2.4635E-02_JPRB,2.9094E-02_JPRB,3.1959E-02_JPRB,3.3566E-02_JPRB,3.3485E-02_JPRB,&
+&3.0596E-02_JPRB,2.4717E-02_JPRB,1.2964E-02_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&1.5184E-02_JPRB,2.6570E-02_JPRB,3.1299E-02_JPRB,3.4230E-02_JPRB,3.5790E-02_JPRB,3.5353E-02_JPRB,&
+&3.2102E-02_JPRB,2.6103E-02_JPRB,1.3794E-02_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&9.6625E-03_JPRB,1.6401E-02_JPRB,1.9034E-02_JPRB,2.0952E-02_JPRB,2.2133E-02_JPRB,2.2396E-02_JPRB,&
+&2.1200E-02_JPRB,1.7173E-02_JPRB,8.4178E-03_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&1.0438E-02_JPRB,1.7777E-02_JPRB,2.0706E-02_JPRB,2.2811E-02_JPRB,2.4067E-02_JPRB,2.4293E-02_JPRB,&
+&2.2690E-02_JPRB,1.8230E-02_JPRB,9.0426E-03_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&1.1254E-02_JPRB,1.9209E-02_JPRB,2.2469E-02_JPRB,2.4701E-02_JPRB,2.6015E-02_JPRB,2.6148E-02_JPRB,&
+&2.4123E-02_JPRB,1.9342E-02_JPRB,9.6801E-03_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&1.2133E-02_JPRB,2.0762E-02_JPRB,2.4308E-02_JPRB,2.6645E-02_JPRB,2.7949E-02_JPRB,2.7917E-02_JPRB,&
+&2.5517E-02_JPRB,2.0494E-02_JPRB,1.0342E-02_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&1.3065E-02_JPRB,2.2455E-02_JPRB,2.6254E-02_JPRB,2.8630E-02_JPRB,2.9901E-02_JPRB,2.9590E-02_JPRB,&
+&2.6871E-02_JPRB,2.1687E-02_JPRB,1.1028E-02_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&8.2007E-03_JPRB,1.3715E-02_JPRB,1.5729E-02_JPRB,1.7180E-02_JPRB,1.8048E-02_JPRB,1.8207E-02_JPRB,&
+&1.7264E-02_JPRB,1.4054E-02_JPRB,6.6647E-03_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&8.8577E-03_JPRB,1.4875E-02_JPRB,1.7145E-02_JPRB,1.8767E-02_JPRB,1.9710E-02_JPRB,1.9852E-02_JPRB,&
+&1.8586E-02_JPRB,1.4966E-02_JPRB,7.1861E-03_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&9.5621E-03_JPRB,1.6088E-02_JPRB,1.8646E-02_JPRB,2.0384E-02_JPRB,2.1390E-02_JPRB,2.1481E-02_JPRB,&
+&1.9863E-02_JPRB,1.5925E-02_JPRB,7.7141E-03_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&1.0328E-02_JPRB,1.7422E-02_JPRB,2.0223E-02_JPRB,2.2061E-02_JPRB,2.3072E-02_JPRB,2.3059E-02_JPRB,&
+&2.1135E-02_JPRB,1.6924E-02_JPRB,8.2553E-03_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&1.1150E-02_JPRB,1.8880E-02_JPRB,2.1894E-02_JPRB,2.3787E-02_JPRB,2.4780E-02_JPRB,2.4546E-02_JPRB,&
+&2.2361E-02_JPRB,1.7956E-02_JPRB,8.8222E-03_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&6.8716E-03_JPRB,1.1438E-02_JPRB,1.2980E-02_JPRB,1.4066E-02_JPRB,1.4694E-02_JPRB,1.4738E-02_JPRB,&
+&1.3970E-02_JPRB,1.1459E-02_JPRB,5.2799E-03_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&7.4237E-03_JPRB,1.2422E-02_JPRB,1.4174E-02_JPRB,1.5413E-02_JPRB,1.6105E-02_JPRB,1.6152E-02_JPRB,&
+&1.5139E-02_JPRB,1.2254E-02_JPRB,5.7135E-03_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&8.0288E-03_JPRB,1.3449E-02_JPRB,1.5440E-02_JPRB,1.6795E-02_JPRB,1.7529E-02_JPRB,1.7565E-02_JPRB,&
+&1.6277E-02_JPRB,1.3083E-02_JPRB,6.1506E-03_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&8.6956E-03_JPRB,1.4582E-02_JPRB,1.6791E-02_JPRB,1.8226E-02_JPRB,1.8968E-02_JPRB,1.8943E-02_JPRB,&
+&1.7401E-02_JPRB,1.3948E-02_JPRB,6.5933E-03_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&9.4131E-03_JPRB,1.5832E-02_JPRB,1.8226E-02_JPRB,1.9705E-02_JPRB,2.0439E-02_JPRB,2.0248E-02_JPRB,&
+&1.8508E-02_JPRB,1.4839E-02_JPRB,7.0585E-03_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&5.7435E-03_JPRB,9.4740E-03_JPRB,1.0676E-02_JPRB,1.1493E-02_JPRB,1.1955E-02_JPRB,1.1929E-02_JPRB,&
+&1.1279E-02_JPRB,9.3230E-03_JPRB,4.2354E-03_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&6.2010E-03_JPRB,1.0304E-02_JPRB,1.1685E-02_JPRB,1.2627E-02_JPRB,1.3147E-02_JPRB,1.3135E-02_JPRB,&
+&1.2304E-02_JPRB,1.0014E-02_JPRB,4.5941E-03_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&6.7137E-03_JPRB,1.1183E-02_JPRB,1.2753E-02_JPRB,1.3801E-02_JPRB,1.4354E-02_JPRB,1.4340E-02_JPRB,&
+&1.3315E-02_JPRB,1.0741E-02_JPRB,4.9555E-03_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&7.2796E-03_JPRB,1.2147E-02_JPRB,1.3897E-02_JPRB,1.5019E-02_JPRB,1.5585E-02_JPRB,1.5528E-02_JPRB,&
+&1.4315E-02_JPRB,1.1502E-02_JPRB,5.3165E-03_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&7.8871E-03_JPRB,1.3218E-02_JPRB,1.5130E-02_JPRB,1.6296E-02_JPRB,1.6839E-02_JPRB,1.6669E-02_JPRB,&
+&1.5291E-02_JPRB,1.2282E-02_JPRB,5.6971E-03_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&4.7912E-03_JPRB,7.8358E-03_JPRB,8.7667E-03_JPRB,9.3820E-03_JPRB,9.7143E-03_JPRB,9.6500E-03_JPRB,&
+&9.0841E-03_JPRB,7.5626E-03_JPRB,3.7702E-03_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&5.1805E-03_JPRB,8.5367E-03_JPRB,9.6133E-03_JPRB,1.0334E-02_JPRB,1.0715E-02_JPRB,1.0676E-02_JPRB,&
+&9.9859E-03_JPRB,8.1627E-03_JPRB,4.1139E-03_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&5.6138E-03_JPRB,9.2835E-03_JPRB,1.0517E-02_JPRB,1.1325E-02_JPRB,1.1739E-02_JPRB,1.1698E-02_JPRB,&
+&1.0873E-02_JPRB,8.7929E-03_JPRB,4.4462E-03_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&6.0888E-03_JPRB,1.0103E-02_JPRB,1.1488E-02_JPRB,1.2361E-02_JPRB,1.2785E-02_JPRB,1.2718E-02_JPRB,&
+&1.1751E-02_JPRB,9.4626E-03_JPRB,4.7957E-03_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&6.6048E-03_JPRB,1.1011E-02_JPRB,1.2538E-02_JPRB,1.3462E-02_JPRB,1.3863E-02_JPRB,1.3713E-02_JPRB,&
+&1.2615E-02_JPRB,1.0155E-02_JPRB,5.1561E-03_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&3.9863E-03_JPRB,6.4924E-03_JPRB,7.2470E-03_JPRB,7.7132E-03_JPRB,7.9522E-03_JPRB,7.8682E-03_JPRB,&
+&7.3679E-03_JPRB,6.1741E-03_JPRB,4.1464E-03_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&4.3124E-03_JPRB,7.0973E-03_JPRB,7.9675E-03_JPRB,8.5161E-03_JPRB,8.8014E-03_JPRB,8.7362E-03_JPRB,&
+&8.1504E-03_JPRB,6.7002E-03_JPRB,4.5619E-03_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&4.6741E-03_JPRB,7.7383E-03_JPRB,8.7399E-03_JPRB,9.3597E-03_JPRB,9.6733E-03_JPRB,9.6088E-03_JPRB,&
+&8.9286E-03_JPRB,7.2584E-03_JPRB,4.9900E-03_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&5.0713E-03_JPRB,8.4456E-03_JPRB,9.5735E-03_JPRB,1.0251E-02_JPRB,1.0572E-02_JPRB,1.0481E-02_JPRB,&
+&9.6979E-03_JPRB,7.8488E-03_JPRB,5.4214E-03_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&5.5035E-03_JPRB,9.2235E-03_JPRB,1.0475E-02_JPRB,1.1200E-02_JPRB,1.1508E-02_JPRB,1.1347E-02_JPRB,&
+&1.0465E-02_JPRB,8.4573E-03_JPRB,5.8532E-03_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&3.4140E-03_JPRB,5.5663E-03_JPRB,6.2176E-03_JPRB,6.6132E-03_JPRB,6.8087E-03_JPRB,6.7328E-03_JPRB,&
+&6.2855E-03_JPRB,5.2486E-03_JPRB,3.9285E-03_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&3.6967E-03_JPRB,6.0927E-03_JPRB,6.8505E-03_JPRB,7.3111E-03_JPRB,7.5377E-03_JPRB,7.4746E-03_JPRB,&
+&6.9609E-03_JPRB,5.7240E-03_JPRB,4.3138E-03_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&4.0076E-03_JPRB,6.6620E-03_JPRB,7.5356E-03_JPRB,8.0510E-03_JPRB,8.2975E-03_JPRB,8.2276E-03_JPRB,&
+&7.6355E-03_JPRB,6.2275E-03_JPRB,4.7141E-03_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&4.3451E-03_JPRB,7.2880E-03_JPRB,8.2782E-03_JPRB,8.8424E-03_JPRB,9.0928E-03_JPRB,8.9832E-03_JPRB,&
+&8.3078E-03_JPRB,6.7453E-03_JPRB,5.1152E-03_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&4.7137E-03_JPRB,7.9681E-03_JPRB,9.0805E-03_JPRB,9.6843E-03_JPRB,9.9239E-03_JPRB,9.7470E-03_JPRB,&
+&8.9796E-03_JPRB,7.2798E-03_JPRB,5.5223E-03_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&2.8904E-03_JPRB,4.7236E-03_JPRB,5.2777E-03_JPRB,5.6093E-03_JPRB,5.7722E-03_JPRB,5.7159E-03_JPRB,&
+&5.3358E-03_JPRB,4.4458E-03_JPRB,3.4411E-03_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&3.1305E-03_JPRB,5.1808E-03_JPRB,5.8340E-03_JPRB,6.2167E-03_JPRB,6.4011E-03_JPRB,6.3506E-03_JPRB,&
+&5.9136E-03_JPRB,4.8660E-03_JPRB,3.7674E-03_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&3.3899E-03_JPRB,5.6784E-03_JPRB,6.4390E-03_JPRB,6.8698E-03_JPRB,7.0684E-03_JPRB,6.9989E-03_JPRB,&
+&6.4975E-03_JPRB,5.3037E-03_JPRB,4.1043E-03_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&3.6744E-03_JPRB,6.2189E-03_JPRB,7.0905E-03_JPRB,7.5674E-03_JPRB,7.7704E-03_JPRB,7.6566E-03_JPRB,&
+&7.0778E-03_JPRB,5.7507E-03_JPRB,4.4508E-03_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&3.9835E-03_JPRB,6.8035E-03_JPRB,7.7845E-03_JPRB,8.3062E-03_JPRB,8.4996E-03_JPRB,8.3274E-03_JPRB,&
+&7.6592E-03_JPRB,6.2151E-03_JPRB,4.8132E-03_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&2.4250E-03_JPRB,3.9803E-03_JPRB,4.4491E-03_JPRB,4.7254E-03_JPRB,4.8599E-03_JPRB,4.8181E-03_JPRB,&
+&4.5058E-03_JPRB,3.7586E-03_JPRB,2.8856E-03_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&2.6244E-03_JPRB,4.3727E-03_JPRB,4.9354E-03_JPRB,5.2533E-03_JPRB,5.4054E-03_JPRB,5.3645E-03_JPRB,&
+&5.0027E-03_JPRB,4.1245E-03_JPRB,3.1558E-03_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&2.8394E-03_JPRB,4.7986E-03_JPRB,5.4578E-03_JPRB,5.8227E-03_JPRB,5.9899E-03_JPRB,5.9263E-03_JPRB,&
+&5.5030E-03_JPRB,4.4990E-03_JPRB,3.4378E-03_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&3.0777E-03_JPRB,5.2577E-03_JPRB,6.0171E-03_JPRB,6.4265E-03_JPRB,6.6019E-03_JPRB,6.4996E-03_JPRB,&
+&6.0065E-03_JPRB,4.8862E-03_JPRB,3.7311E-03_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&3.3322E-03_JPRB,5.7564E-03_JPRB,6.6107E-03_JPRB,7.0607E-03_JPRB,7.2295E-03_JPRB,7.0815E-03_JPRB,&
+&6.5094E-03_JPRB,5.2886E-03_JPRB,4.0375E-03_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&4.8059E-02_JPRB,7.5661E-02_JPRB,8.9697E-02_JPRB,9.6448E-02_JPRB,9.6739E-02_JPRB,9.1321E-02_JPRB,&
+&8.0664E-02_JPRB,6.5698E-02_JPRB,4.2723E-02_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&5.1263E-02_JPRB,8.1256E-02_JPRB,9.5858E-02_JPRB,1.0217E-01_JPRB,1.0171E-01_JPRB,9.5631E-02_JPRB,&
+&8.5046E-02_JPRB,6.9688E-02_JPRB,4.5844E-02_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&5.4622E-02_JPRB,8.6828E-02_JPRB,1.0177E-01_JPRB,1.0751E-01_JPRB,1.0632E-01_JPRB,9.9795E-02_JPRB,&
+&8.9370E-02_JPRB,7.3806E-02_JPRB,4.9014E-02_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&5.8181E-02_JPRB,9.2294E-02_JPRB,1.0720E-01_JPRB,1.1246E-01_JPRB,1.1070E-01_JPRB,1.0392E-01_JPRB,&
+&9.3642E-02_JPRB,7.8008E-02_JPRB,5.2233E-02_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&6.1920E-02_JPRB,9.7606E-02_JPRB,1.1219E-01_JPRB,1.1714E-01_JPRB,1.1501E-01_JPRB,1.0812E-01_JPRB,&
+&9.7841E-02_JPRB,8.2254E-02_JPRB,5.5493E-02_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&4.2387E-02_JPRB,6.7507E-02_JPRB,7.8624E-02_JPRB,8.3202E-02_JPRB,8.2483E-02_JPRB,7.7642E-02_JPRB,&
+&6.8845E-02_JPRB,5.6151E-02_JPRB,3.4701E-02_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&4.5358E-02_JPRB,7.2621E-02_JPRB,8.4105E-02_JPRB,8.8143E-02_JPRB,8.6828E-02_JPRB,8.1423E-02_JPRB,&
+&7.2754E-02_JPRB,5.9777E-02_JPRB,3.7226E-02_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&4.8530E-02_JPRB,7.7675E-02_JPRB,8.9237E-02_JPRB,9.2816E-02_JPRB,9.0945E-02_JPRB,8.5108E-02_JPRB,&
+&7.6583E-02_JPRB,6.3482E-02_JPRB,3.9865E-02_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&5.1885E-02_JPRB,8.2602E-02_JPRB,9.3935E-02_JPRB,9.7188E-02_JPRB,9.4884E-02_JPRB,8.8874E-02_JPRB,&
+&8.0329E-02_JPRB,6.7178E-02_JPRB,4.2571E-02_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&5.5413E-02_JPRB,8.7298E-02_JPRB,9.8304E-02_JPRB,1.0128E-01_JPRB,9.8763E-02_JPRB,9.2748E-02_JPRB,&
+&8.4077E-02_JPRB,7.0956E-02_JPRB,4.5317E-02_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&3.6455E-02_JPRB,5.8761E-02_JPRB,6.7738E-02_JPRB,7.0855E-02_JPRB,6.9598E-02_JPRB,6.5071E-02_JPRB,&
+&5.7664E-02_JPRB,4.7187E-02_JPRB,2.7522E-02_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&3.9177E-02_JPRB,6.3373E-02_JPRB,7.2623E-02_JPRB,7.5288E-02_JPRB,7.3424E-02_JPRB,6.8383E-02_JPRB,&
+&6.1089E-02_JPRB,5.0369E-02_JPRB,2.9594E-02_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&4.2098E-02_JPRB,6.7937E-02_JPRB,7.7177E-02_JPRB,7.9459E-02_JPRB,7.7094E-02_JPRB,7.1679E-02_JPRB,&
+&6.4440E-02_JPRB,5.3598E-02_JPRB,3.1800E-02_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&4.5184E-02_JPRB,7.2373E-02_JPRB,8.1328E-02_JPRB,8.3304E-02_JPRB,8.0619E-02_JPRB,7.5059E-02_JPRB,&
+&6.7785E-02_JPRB,5.6837E-02_JPRB,3.4061E-02_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&4.8428E-02_JPRB,7.6612E-02_JPRB,8.5198E-02_JPRB,8.6971E-02_JPRB,8.4087E-02_JPRB,7.8597E-02_JPRB,&
+&7.1152E-02_JPRB,6.0069E-02_JPRB,3.6300E-02_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&3.0996E-02_JPRB,5.0246E-02_JPRB,5.7596E-02_JPRB,5.9940E-02_JPRB,5.8577E-02_JPRB,5.4443E-02_JPRB,&
+&4.7987E-02_JPRB,3.9247E-02_JPRB,2.1796E-02_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&3.3466E-02_JPRB,5.4388E-02_JPRB,6.1941E-02_JPRB,6.3890E-02_JPRB,6.2051E-02_JPRB,5.7420E-02_JPRB,&
+&5.0954E-02_JPRB,4.2026E-02_JPRB,2.3521E-02_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&3.6103E-02_JPRB,5.8512E-02_JPRB,6.5986E-02_JPRB,6.7619E-02_JPRB,6.5381E-02_JPRB,6.0341E-02_JPRB,&
+&5.3887E-02_JPRB,4.4806E-02_JPRB,2.5354E-02_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&3.8902E-02_JPRB,6.2522E-02_JPRB,6.9761E-02_JPRB,7.1083E-02_JPRB,6.8563E-02_JPRB,6.3337E-02_JPRB,&
+&5.6817E-02_JPRB,4.7569E-02_JPRB,2.7230E-02_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&4.1856E-02_JPRB,6.6293E-02_JPRB,7.3260E-02_JPRB,7.4402E-02_JPRB,7.1665E-02_JPRB,6.6453E-02_JPRB,&
+&5.9783E-02_JPRB,5.0307E-02_JPRB,2.9093E-02_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&2.6300E-02_JPRB,4.2494E-02_JPRB,4.8463E-02_JPRB,5.0296E-02_JPRB,4.9139E-02_JPRB,4.5597E-02_JPRB,&
+&3.9984E-02_JPRB,3.2427E-02_JPRB,1.7285E-02_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&2.8485E-02_JPRB,4.6204E-02_JPRB,5.2338E-02_JPRB,5.3863E-02_JPRB,5.2270E-02_JPRB,4.8312E-02_JPRB,&
+&4.2548E-02_JPRB,3.4804E-02_JPRB,1.8719E-02_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&3.0827E-02_JPRB,4.9910E-02_JPRB,5.5974E-02_JPRB,5.7207E-02_JPRB,5.5255E-02_JPRB,5.0912E-02_JPRB,&
+&4.5100E-02_JPRB,3.7174E-02_JPRB,2.0228E-02_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&3.3317E-02_JPRB,5.3494E-02_JPRB,5.9405E-02_JPRB,6.0361E-02_JPRB,5.8140E-02_JPRB,5.3556E-02_JPRB,&
+&4.7658E-02_JPRB,3.9537E-02_JPRB,2.1785E-02_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&3.5980E-02_JPRB,5.6835E-02_JPRB,6.2631E-02_JPRB,6.3411E-02_JPRB,6.1001E-02_JPRB,5.6317E-02_JPRB,&
+&5.0255E-02_JPRB,4.1909E-02_JPRB,2.3351E-02_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&2.2346E-02_JPRB,3.5586E-02_JPRB,4.0310E-02_JPRB,4.1785E-02_JPRB,4.0899E-02_JPRB,3.7930E-02_JPRB,&
+&3.3177E-02_JPRB,2.6660E-02_JPRB,1.3671E-02_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&2.4236E-02_JPRB,3.8875E-02_JPRB,4.3767E-02_JPRB,4.4998E-02_JPRB,4.3719E-02_JPRB,4.0355E-02_JPRB,&
+&3.5414E-02_JPRB,2.8669E-02_JPRB,1.4853E-02_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&2.6259E-02_JPRB,4.2194E-02_JPRB,4.7065E-02_JPRB,4.8039E-02_JPRB,4.6410E-02_JPRB,4.2692E-02_JPRB,&
+&3.7647E-02_JPRB,3.0658E-02_JPRB,1.6097E-02_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&2.8435E-02_JPRB,4.5379E-02_JPRB,5.0168E-02_JPRB,5.0950E-02_JPRB,4.9017E-02_JPRB,4.5071E-02_JPRB,&
+&3.9870E-02_JPRB,3.2675E-02_JPRB,1.7389E-02_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&3.0784E-02_JPRB,4.8355E-02_JPRB,5.3115E-02_JPRB,5.3744E-02_JPRB,5.1611E-02_JPRB,4.7542E-02_JPRB,&
+&4.2135E-02_JPRB,3.4713E-02_JPRB,1.8719E-02_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&1.9038E-02_JPRB,2.9659E-02_JPRB,3.3335E-02_JPRB,3.4533E-02_JPRB,3.3796E-02_JPRB,3.1353E-02_JPRB,&
+&2.7369E-02_JPRB,2.1858E-02_JPRB,1.0821E-02_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&2.0661E-02_JPRB,3.2535E-02_JPRB,3.6409E-02_JPRB,3.7416E-02_JPRB,3.6337E-02_JPRB,3.3530E-02_JPRB,&
+&2.9317E-02_JPRB,2.3570E-02_JPRB,1.1782E-02_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&2.2409E-02_JPRB,3.5475E-02_JPRB,3.9394E-02_JPRB,4.0148E-02_JPRB,3.8791E-02_JPRB,3.5637E-02_JPRB,&
+&3.1269E-02_JPRB,2.5254E-02_JPRB,1.2818E-02_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&2.4302E-02_JPRB,3.8296E-02_JPRB,4.2195E-02_JPRB,4.2786E-02_JPRB,4.1191E-02_JPRB,3.7785E-02_JPRB,&
+&3.3232E-02_JPRB,2.6957E-02_JPRB,1.3893E-02_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&2.6331E-02_JPRB,4.0952E-02_JPRB,4.4849E-02_JPRB,4.5357E-02_JPRB,4.3572E-02_JPRB,4.0019E-02_JPRB,&
+&3.5226E-02_JPRB,2.8694E-02_JPRB,1.5017E-02_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&1.6199E-02_JPRB,2.4730E-02_JPRB,2.7533E-02_JPRB,2.8457E-02_JPRB,2.7828E-02_JPRB,2.5812E-02_JPRB,&
+&2.2538E-02_JPRB,1.7879E-02_JPRB,8.5690E-03_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&1.7586E-02_JPRB,2.7225E-02_JPRB,3.0249E-02_JPRB,3.1021E-02_JPRB,3.0098E-02_JPRB,2.7767E-02_JPRB,&
+&2.4248E-02_JPRB,1.9357E-02_JPRB,9.3582E-03_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&1.9094E-02_JPRB,2.9782E-02_JPRB,3.2913E-02_JPRB,3.3499E-02_JPRB,3.2325E-02_JPRB,2.9706E-02_JPRB,&
+&2.5968E-02_JPRB,2.0796E-02_JPRB,1.0214E-02_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&2.0716E-02_JPRB,3.2253E-02_JPRB,3.5436E-02_JPRB,3.5895E-02_JPRB,3.4530E-02_JPRB,3.1664E-02_JPRB,&
+&2.7699E-02_JPRB,2.2256E-02_JPRB,1.1116E-02_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&2.2480E-02_JPRB,3.4617E-02_JPRB,3.7818E-02_JPRB,3.8224E-02_JPRB,3.6738E-02_JPRB,3.3713E-02_JPRB,&
+&2.9501E-02_JPRB,2.3740E-02_JPRB,1.2059E-02_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&1.3777E-02_JPRB,2.0619E-02_JPRB,2.2737E-02_JPRB,2.3415E-02_JPRB,2.2850E-02_JPRB,2.1193E-02_JPRB,&
+&1.8507E-02_JPRB,1.4598E-02_JPRB,7.1490E-03_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&1.4973E-02_JPRB,2.2774E-02_JPRB,2.5113E-02_JPRB,2.5666E-02_JPRB,2.4873E-02_JPRB,2.2943E-02_JPRB,&
+&2.0009E-02_JPRB,1.5897E-02_JPRB,7.8590E-03_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&1.6264E-02_JPRB,2.4964E-02_JPRB,2.7466E-02_JPRB,2.7896E-02_JPRB,2.6883E-02_JPRB,2.4711E-02_JPRB,&
+&2.1541E-02_JPRB,1.7155E-02_JPRB,8.6415E-03_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&1.7663E-02_JPRB,2.7143E-02_JPRB,2.9704E-02_JPRB,3.0059E-02_JPRB,2.8911E-02_JPRB,2.6494E-02_JPRB,&
+&2.3105E-02_JPRB,1.8422E-02_JPRB,9.4633E-03_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&1.9189E-02_JPRB,2.9225E-02_JPRB,3.1858E-02_JPRB,3.2145E-02_JPRB,3.0918E-02_JPRB,2.8362E-02_JPRB,&
+&2.4736E-02_JPRB,1.9714E-02_JPRB,1.0309E-02_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&1.1829E-02_JPRB,1.7391E-02_JPRB,1.8971E-02_JPRB,1.9425E-02_JPRB,1.8925E-02_JPRB,1.7526E-02_JPRB,&
+&1.5318E-02_JPRB,1.2046E-02_JPRB,7.9104E-03_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&1.2882E-02_JPRB,1.9237E-02_JPRB,2.1011E-02_JPRB,2.1409E-02_JPRB,2.0725E-02_JPRB,1.9099E-02_JPRB,&
+&1.6657E-02_JPRB,1.3189E-02_JPRB,8.8513E-03_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&1.4005E-02_JPRB,2.1109E-02_JPRB,2.3070E-02_JPRB,2.3396E-02_JPRB,2.2541E-02_JPRB,2.0715E-02_JPRB,&
+&1.8034E-02_JPRB,1.4319E-02_JPRB,9.8121E-03_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&1.5220E-02_JPRB,2.2998E-02_JPRB,2.5049E-02_JPRB,2.5317E-02_JPRB,2.4368E-02_JPRB,2.2361E-02_JPRB,&
+&1.9453E-02_JPRB,1.5444E-02_JPRB,1.0807E-02_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&1.6552E-02_JPRB,2.4838E-02_JPRB,2.6967E-02_JPRB,2.7211E-02_JPRB,2.6179E-02_JPRB,2.4058E-02_JPRB,&
+&2.0933E-02_JPRB,1.6593E-02_JPRB,1.1823E-02_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&1.0495E-02_JPRB,1.5432E-02_JPRB,1.6714E-02_JPRB,1.6992E-02_JPRB,1.6455E-02_JPRB,1.5168E-02_JPRB,&
+&1.3224E-02_JPRB,1.0391E-02_JPRB,8.1978E-03_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&1.1451E-02_JPRB,1.7054E-02_JPRB,1.8505E-02_JPRB,1.8735E-02_JPRB,1.8057E-02_JPRB,1.6595E-02_JPRB,&
+&1.4441E-02_JPRB,1.1397E-02_JPRB,9.2592E-03_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&1.2482E-02_JPRB,1.8697E-02_JPRB,2.0258E-02_JPRB,2.0450E-02_JPRB,1.9674E-02_JPRB,1.8068E-02_JPRB,&
+&1.5698E-02_JPRB,1.2409E-02_JPRB,1.0347E-02_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&1.3612E-02_JPRB,2.0341E-02_JPRB,2.1972E-02_JPRB,2.2138E-02_JPRB,2.1292E-02_JPRB,1.9560E-02_JPRB,&
+&1.7011E-02_JPRB,1.3437E-02_JPRB,1.1444E-02_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&1.4838E-02_JPRB,2.1977E-02_JPRB,2.3658E-02_JPRB,2.3819E-02_JPRB,2.2926E-02_JPRB,2.1098E-02_JPRB,&
+&1.8364E-02_JPRB,1.4494E-02_JPRB,1.2537E-02_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&9.1433E-03_JPRB,1.3500E-02_JPRB,1.4586E-02_JPRB,1.4769E-02_JPRB,1.4241E-02_JPRB,1.3083E-02_JPRB,&
+&1.1367E-02_JPRB,8.9090E-03_JPRB,7.5780E-03_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&1.0001E-02_JPRB,1.4910E-02_JPRB,1.6125E-02_JPRB,1.6273E-02_JPRB,1.5652E-02_JPRB,1.4357E-02_JPRB,&
+&1.2453E-02_JPRB,9.7929E-03_JPRB,8.5785E-03_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&1.0949E-02_JPRB,1.6356E-02_JPRB,1.7635E-02_JPRB,1.7750E-02_JPRB,1.7058E-02_JPRB,1.5652E-02_JPRB,&
+&1.3578E-02_JPRB,1.0697E-02_JPRB,9.5948E-03_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&1.1985E-02_JPRB,1.7801E-02_JPRB,1.9128E-02_JPRB,1.9222E-02_JPRB,1.8476E-02_JPRB,1.6972E-02_JPRB,&
+&1.4745E-02_JPRB,1.1628E-02_JPRB,1.0600E-02_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&1.3096E-02_JPRB,1.9267E-02_JPRB,2.0626E-02_JPRB,2.0713E-02_JPRB,1.9923E-02_JPRB,1.8336E-02_JPRB,&
+&1.5960E-02_JPRB,1.2572E-02_JPRB,1.1582E-02_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&7.8612E-03_JPRB,1.1670E-02_JPRB,1.2609E-02_JPRB,1.2723E-02_JPRB,1.2259E-02_JPRB,1.1258E-02_JPRB,&
+&9.7650E-03_JPRB,7.6525E-03_JPRB,6.5421E-03_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&8.6369E-03_JPRB,1.2899E-02_JPRB,1.3916E-02_JPRB,1.4009E-02_JPRB,1.3482E-02_JPRB,1.2381E-02_JPRB,&
+&1.0732E-02_JPRB,8.4378E-03_JPRB,7.4103E-03_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&9.4942E-03_JPRB,1.4163E-02_JPRB,1.5223E-02_JPRB,1.5298E-02_JPRB,1.4708E-02_JPRB,1.3515E-02_JPRB,&
+&1.1735E-02_JPRB,9.2523E-03_JPRB,8.2790E-03_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&1.0421E-02_JPRB,1.5442E-02_JPRB,1.6542E-02_JPRB,1.6603E-02_JPRB,1.5959E-02_JPRB,1.4684E-02_JPRB,&
+&1.2779E-02_JPRB,1.0090E-02_JPRB,9.1372E-03_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&1.1403E-02_JPRB,1.6752E-02_JPRB,1.7882E-02_JPRB,1.7947E-02_JPRB,1.7255E-02_JPRB,1.5898E-02_JPRB,&
+&1.3874E-02_JPRB,1.0931E-02_JPRB,9.9832E-03_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&1.6154E-01_JPRB,1.9464E-01_JPRB,1.9968E-01_JPRB,1.9566E-01_JPRB,1.8810E-01_JPRB,1.7612E-01_JPRB,&
+&1.6037E-01_JPRB,1.3871E-01_JPRB,9.9439E-02_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&1.6718E-01_JPRB,2.0083E-01_JPRB,2.0683E-01_JPRB,2.0477E-01_JPRB,1.9764E-01_JPRB,1.8624E-01_JPRB,&
+&1.6994E-01_JPRB,1.4688E-01_JPRB,1.0691E-01_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&1.7242E-01_JPRB,2.0656E-01_JPRB,2.1371E-01_JPRB,2.1366E-01_JPRB,2.0783E-01_JPRB,1.9677E-01_JPRB,&
+&1.7978E-01_JPRB,1.5487E-01_JPRB,1.1430E-01_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&1.7742E-01_JPRB,2.1213E-01_JPRB,2.2064E-01_JPRB,2.2231E-01_JPRB,2.1832E-01_JPRB,2.0746E-01_JPRB,&
+&1.8983E-01_JPRB,1.6294E-01_JPRB,1.2155E-01_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&1.8214E-01_JPRB,2.1767E-01_JPRB,2.2778E-01_JPRB,2.3090E-01_JPRB,2.2852E-01_JPRB,2.1832E-01_JPRB,&
+&2.0005E-01_JPRB,1.7084E-01_JPRB,1.2867E-01_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&1.4145E-01_JPRB,1.6994E-01_JPRB,1.7429E-01_JPRB,1.7183E-01_JPRB,1.6506E-01_JPRB,1.5419E-01_JPRB,&
+&1.3930E-01_JPRB,1.2012E-01_JPRB,8.1602E-02_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&1.4643E-01_JPRB,1.7555E-01_JPRB,1.8089E-01_JPRB,1.8028E-01_JPRB,1.7424E-01_JPRB,1.6361E-01_JPRB,&
+&1.4828E-01_JPRB,1.2787E-01_JPRB,8.7984E-02_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&1.5117E-01_JPRB,1.8085E-01_JPRB,1.8746E-01_JPRB,1.8838E-01_JPRB,1.8361E-01_JPRB,1.7334E-01_JPRB,&
+&1.5765E-01_JPRB,1.3543E-01_JPRB,9.4264E-02_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&1.5573E-01_JPRB,1.8623E-01_JPRB,1.9419E-01_JPRB,1.9646E-01_JPRB,1.9291E-01_JPRB,1.8328E-01_JPRB,&
+&1.6725E-01_JPRB,1.4294E-01_JPRB,1.0040E-01_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&1.6013E-01_JPRB,1.9161E-01_JPRB,2.0111E-01_JPRB,2.0451E-01_JPRB,2.0197E-01_JPRB,1.9329E-01_JPRB,&
+&1.7696E-01_JPRB,1.5031E-01_JPRB,1.0647E-01_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&1.2309E-01_JPRB,1.4704E-01_JPRB,1.5024E-01_JPRB,1.4812E-01_JPRB,1.4219E-01_JPRB,1.3226E-01_JPRB,&
+&1.1881E-01_JPRB,1.0141E-01_JPRB,6.5459E-02_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&1.2767E-01_JPRB,1.5222E-01_JPRB,1.5637E-01_JPRB,1.5568E-01_JPRB,1.5055E-01_JPRB,1.4090E-01_JPRB,&
+&1.2701E-01_JPRB,1.0859E-01_JPRB,7.0881E-02_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&1.3203E-01_JPRB,1.5727E-01_JPRB,1.6255E-01_JPRB,1.6317E-01_JPRB,1.5886E-01_JPRB,1.4989E-01_JPRB,&
+&1.3559E-01_JPRB,1.1576E-01_JPRB,7.6083E-02_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&1.3635E-01_JPRB,1.6234E-01_JPRB,1.6898E-01_JPRB,1.7060E-01_JPRB,1.6716E-01_JPRB,1.5892E-01_JPRB,&
+&1.4437E-01_JPRB,1.2295E-01_JPRB,8.1201E-02_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&1.4056E-01_JPRB,1.6755E-01_JPRB,1.7569E-01_JPRB,1.7797E-01_JPRB,1.7536E-01_JPRB,1.6774E-01_JPRB,&
+&1.5329E-01_JPRB,1.3002E-01_JPRB,8.6370E-02_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&1.0694E-01_JPRB,1.2727E-01_JPRB,1.2915E-01_JPRB,1.2666E-01_JPRB,1.2117E-01_JPRB,1.1228E-01_JPRB,&
+&1.0026E-01_JPRB,8.4627E-02_JPRB,5.2347E-02_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&1.1128E-01_JPRB,1.3208E-01_JPRB,1.3481E-01_JPRB,1.3351E-01_JPRB,1.2855E-01_JPRB,1.2006E-01_JPRB,&
+&1.0771E-01_JPRB,9.1021E-02_JPRB,5.6953E-02_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&1.1540E-01_JPRB,1.3680E-01_JPRB,1.4057E-01_JPRB,1.4029E-01_JPRB,1.3591E-01_JPRB,1.2809E-01_JPRB,&
+&1.1544E-01_JPRB,9.7575E-02_JPRB,6.1322E-02_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&1.1945E-01_JPRB,1.4164E-01_JPRB,1.4662E-01_JPRB,1.4706E-01_JPRB,1.4340E-01_JPRB,1.3603E-01_JPRB,&
+&1.2336E-01_JPRB,1.0424E-01_JPRB,6.5662E-02_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&1.2340E-01_JPRB,1.4675E-01_JPRB,1.5288E-01_JPRB,1.5380E-01_JPRB,1.5079E-01_JPRB,1.4378E-01_JPRB,&
+&1.3119E-01_JPRB,1.1079E-01_JPRB,7.0042E-02_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&9.2366E-02_JPRB,1.1024E-01_JPRB,1.1122E-01_JPRB,1.0839E-01_JPRB,1.0297E-01_JPRB,9.4813E-02_JPRB,&
+&8.4116E-02_JPRB,7.0267E-02_JPRB,4.1776E-02_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&9.6355E-02_JPRB,1.1479E-01_JPRB,1.1644E-01_JPRB,1.1449E-01_JPRB,1.0946E-01_JPRB,1.0165E-01_JPRB,&
+&9.0750E-02_JPRB,7.5967E-02_JPRB,4.5678E-02_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&1.0024E-01_JPRB,1.1923E-01_JPRB,1.2179E-01_JPRB,1.2053E-01_JPRB,1.1597E-01_JPRB,1.0868E-01_JPRB,&
+&9.7605E-02_JPRB,8.1879E-02_JPRB,4.9420E-02_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&1.0406E-01_JPRB,1.2386E-01_JPRB,1.2729E-01_JPRB,1.2663E-01_JPRB,1.2262E-01_JPRB,1.1560E-01_JPRB,&
+&1.0455E-01_JPRB,8.7805E-02_JPRB,5.3104E-02_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&1.0784E-01_JPRB,1.2877E-01_JPRB,1.3298E-01_JPRB,1.3282E-01_JPRB,1.2921E-01_JPRB,1.2238E-01_JPRB,&
+&1.1132E-01_JPRB,9.3754E-02_JPRB,5.6821E-02_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&7.9024E-02_JPRB,9.4822E-02_JPRB,9.5344E-02_JPRB,9.2551E-02_JPRB,8.7276E-02_JPRB,7.9771E-02_JPRB,&
+&7.0098E-02_JPRB,5.7834E-02_JPRB,3.3015E-02_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&8.2738E-02_JPRB,9.8989E-02_JPRB,1.0012E-01_JPRB,9.7961E-02_JPRB,9.2877E-02_JPRB,8.5652E-02_JPRB,&
+&7.5923E-02_JPRB,6.2877E-02_JPRB,3.6314E-02_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&8.6408E-02_JPRB,1.0314E-01_JPRB,1.0499E-01_JPRB,1.0331E-01_JPRB,9.8576E-02_JPRB,9.1675E-02_JPRB,&
+&8.1907E-02_JPRB,6.8103E-02_JPRB,3.9534E-02_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&9.0076E-02_JPRB,1.0755E-01_JPRB,1.1005E-01_JPRB,1.0872E-01_JPRB,1.0446E-01_JPRB,9.7640E-02_JPRB,&
+&8.7824E-02_JPRB,7.3333E-02_JPRB,4.2688E-02_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&9.3695E-02_JPRB,1.1225E-01_JPRB,1.1524E-01_JPRB,1.1429E-01_JPRB,1.1026E-01_JPRB,1.0360E-01_JPRB,&
+&9.3605E-02_JPRB,7.8587E-02_JPRB,4.5859E-02_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&6.7188E-02_JPRB,8.0973E-02_JPRB,8.1282E-02_JPRB,7.8604E-02_JPRB,7.3758E-02_JPRB,6.7095E-02_JPRB,&
+&5.8393E-02_JPRB,4.7360E-02_JPRB,2.5942E-02_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&7.0634E-02_JPRB,8.4835E-02_JPRB,8.5597E-02_JPRB,8.3380E-02_JPRB,7.8711E-02_JPRB,7.2137E-02_JPRB,&
+&6.3418E-02_JPRB,5.1732E-02_JPRB,2.8746E-02_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&7.4125E-02_JPRB,8.8733E-02_JPRB,9.0006E-02_JPRB,8.8141E-02_JPRB,8.3708E-02_JPRB,7.7276E-02_JPRB,&
+&6.8516E-02_JPRB,5.6288E-02_JPRB,3.1491E-02_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&7.7619E-02_JPRB,9.2938E-02_JPRB,9.4622E-02_JPRB,9.3008E-02_JPRB,8.8787E-02_JPRB,8.2441E-02_JPRB,&
+&7.3541E-02_JPRB,6.0853E-02_JPRB,3.4197E-02_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&8.1130E-02_JPRB,9.7412E-02_JPRB,9.9437E-02_JPRB,9.7963E-02_JPRB,9.3908E-02_JPRB,8.7589E-02_JPRB,&
+&7.8507E-02_JPRB,6.5406E-02_JPRB,3.6876E-02_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&5.7087E-02_JPRB,6.8982E-02_JPRB,6.9219E-02_JPRB,6.6662E-02_JPRB,6.2257E-02_JPRB,5.6449E-02_JPRB,&
+&4.8696E-02_JPRB,3.8705E-02_JPRB,2.0368E-02_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&6.0267E-02_JPRB,7.2661E-02_JPRB,7.3164E-02_JPRB,7.0903E-02_JPRB,6.6680E-02_JPRB,6.0863E-02_JPRB,&
+&5.2991E-02_JPRB,4.2493E-02_JPRB,2.2764E-02_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&6.3568E-02_JPRB,7.6402E-02_JPRB,7.7191E-02_JPRB,7.5170E-02_JPRB,7.1124E-02_JPRB,6.5262E-02_JPRB,&
+&5.7325E-02_JPRB,4.6424E-02_JPRB,2.5106E-02_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&6.6952E-02_JPRB,8.0431E-02_JPRB,8.1433E-02_JPRB,7.9580E-02_JPRB,7.5603E-02_JPRB,6.9713E-02_JPRB,&
+&6.1612E-02_JPRB,5.0326E-02_JPRB,2.7428E-02_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&7.0374E-02_JPRB,8.4700E-02_JPRB,8.5936E-02_JPRB,8.4079E-02_JPRB,8.0117E-02_JPRB,7.4154E-02_JPRB,&
+&6.5876E-02_JPRB,5.4195E-02_JPRB,2.9716E-02_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&4.8541E-02_JPRB,5.8698E-02_JPRB,5.8862E-02_JPRB,5.6589E-02_JPRB,5.2616E-02_JPRB,4.7478E-02_JPRB,&
+&4.0621E-02_JPRB,3.1660E-02_JPRB,1.6311E-02_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&5.1470E-02_JPRB,6.2152E-02_JPRB,6.2537E-02_JPRB,6.0429E-02_JPRB,5.6605E-02_JPRB,5.1332E-02_JPRB,&
+&4.4320E-02_JPRB,3.4891E-02_JPRB,1.8357E-02_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&5.4592E-02_JPRB,6.5779E-02_JPRB,6.6299E-02_JPRB,6.4328E-02_JPRB,6.0595E-02_JPRB,5.5195E-02_JPRB,&
+&4.8026E-02_JPRB,3.8250E-02_JPRB,2.0370E-02_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&5.7857E-02_JPRB,6.9626E-02_JPRB,7.0279E-02_JPRB,6.8395E-02_JPRB,6.4585E-02_JPRB,5.9114E-02_JPRB,&
+&5.1701E-02_JPRB,4.1583E-02_JPRB,2.2355E-02_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&6.1151E-02_JPRB,7.3773E-02_JPRB,7.4523E-02_JPRB,7.2563E-02_JPRB,6.8640E-02_JPRB,6.3021E-02_JPRB,&
+&5.5368E-02_JPRB,4.4866E-02_JPRB,2.4319E-02_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&4.1703E-02_JPRB,5.0397E-02_JPRB,5.0498E-02_JPRB,4.8532E-02_JPRB,4.5038E-02_JPRB,4.0454E-02_JPRB,&
+&3.4353E-02_JPRB,2.6239E-02_JPRB,1.6946E-02_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&4.4435E-02_JPRB,5.3723E-02_JPRB,5.3968E-02_JPRB,5.2070E-02_JPRB,4.8666E-02_JPRB,4.3928E-02_JPRB,&
+&3.7574E-02_JPRB,2.9025E-02_JPRB,1.9214E-02_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&4.7412E-02_JPRB,5.7277E-02_JPRB,5.7540E-02_JPRB,5.5713E-02_JPRB,5.2331E-02_JPRB,4.7382E-02_JPRB,&
+&4.0823E-02_JPRB,3.1871E-02_JPRB,2.1538E-02_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&5.0574E-02_JPRB,6.1042E-02_JPRB,6.1373E-02_JPRB,5.9574E-02_JPRB,5.6031E-02_JPRB,5.0898E-02_JPRB,&
+&4.4058E-02_JPRB,3.4717E-02_JPRB,2.3877E-02_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&5.3746E-02_JPRB,6.5044E-02_JPRB,6.5451E-02_JPRB,6.3520E-02_JPRB,5.9778E-02_JPRB,5.4461E-02_JPRB,&
+&4.7278E-02_JPRB,3.7547E-02_JPRB,2.6231E-02_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&3.7231E-02_JPRB,4.4782E-02_JPRB,4.4834E-02_JPRB,4.3110E-02_JPRB,4.0069E-02_JPRB,3.5931E-02_JPRB,&
+&3.0502E-02_JPRB,2.3057E-02_JPRB,1.8284E-02_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&3.9875E-02_JPRB,4.8062E-02_JPRB,4.8155E-02_JPRB,4.6465E-02_JPRB,4.3416E-02_JPRB,3.9078E-02_JPRB,&
+&3.3371E-02_JPRB,2.5491E-02_JPRB,2.0825E-02_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&4.2772E-02_JPRB,5.1583E-02_JPRB,5.1719E-02_JPRB,5.0024E-02_JPRB,4.6821E-02_JPRB,4.2262E-02_JPRB,&
+&3.6260E-02_JPRB,2.7962E-02_JPRB,2.3421E-02_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&4.5744E-02_JPRB,5.5320E-02_JPRB,5.5524E-02_JPRB,5.3716E-02_JPRB,5.0328E-02_JPRB,4.5568E-02_JPRB,&
+&3.9152E-02_JPRB,3.0434E-02_JPRB,2.6081E-02_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&4.8771E-02_JPRB,5.9196E-02_JPRB,5.9515E-02_JPRB,5.7526E-02_JPRB,5.3932E-02_JPRB,4.8905E-02_JPRB,&
+&4.2062E-02_JPRB,3.2920E-02_JPRB,2.8799E-02_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&3.3165E-02_JPRB,3.9692E-02_JPRB,3.9599E-02_JPRB,3.8024E-02_JPRB,3.5310E-02_JPRB,3.1588E-02_JPRB,&
+&2.6724E-02_JPRB,2.0140E-02_JPRB,1.7962E-02_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&3.5669E-02_JPRB,4.2809E-02_JPRB,4.2746E-02_JPRB,4.1180E-02_JPRB,3.8355E-02_JPRB,3.4405E-02_JPRB,&
+&2.9261E-02_JPRB,2.2261E-02_JPRB,2.0601E-02_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&3.8321E-02_JPRB,4.6119E-02_JPRB,4.6151E-02_JPRB,4.4514E-02_JPRB,4.1510E-02_JPRB,3.7321E-02_JPRB,&
+&3.1841E-02_JPRB,2.4389E-02_JPRB,2.3308E-02_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&4.1022E-02_JPRB,4.9612E-02_JPRB,4.9764E-02_JPRB,4.7979E-02_JPRB,4.4755E-02_JPRB,4.0343E-02_JPRB,&
+&3.4469E-02_JPRB,2.6528E-02_JPRB,2.6037E-02_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&4.3787E-02_JPRB,5.3202E-02_JPRB,5.3413E-02_JPRB,5.1511E-02_JPRB,4.8094E-02_JPRB,4.3379E-02_JPRB,&
+&3.7123E-02_JPRB,2.8712E-02_JPRB,2.8765E-02_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&2.9468E-02_JPRB,3.5299E-02_JPRB,3.5147E-02_JPRB,3.3716E-02_JPRB,3.1258E-02_JPRB,2.7857E-02_JPRB,&
+&2.3479E-02_JPRB,1.7565E-02_JPRB,1.6401E-02_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&3.1822E-02_JPRB,3.8242E-02_JPRB,3.8151E-02_JPRB,3.6698E-02_JPRB,3.4080E-02_JPRB,3.0460E-02_JPRB,&
+&2.5743E-02_JPRB,1.9422E-02_JPRB,1.8869E-02_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&3.4255E-02_JPRB,4.1360E-02_JPRB,4.1371E-02_JPRB,3.9795E-02_JPRB,3.7027E-02_JPRB,3.3168E-02_JPRB,&
+&2.8068E-02_JPRB,2.1290E-02_JPRB,2.1356E-02_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&3.6724E-02_JPRB,4.4593E-02_JPRB,4.4667E-02_JPRB,4.2990E-02_JPRB,4.0057E-02_JPRB,3.5909E-02_JPRB,&
+&3.0433E-02_JPRB,2.3190E-02_JPRB,2.3849E-02_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&3.9283E-02_JPRB,4.7884E-02_JPRB,4.8024E-02_JPRB,4.6223E-02_JPRB,4.3087E-02_JPRB,3.8671E-02_JPRB,&
+&3.2860E-02_JPRB,2.5142E-02_JPRB,2.6303E-02_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&4.0322E-01_JPRB,4.2884E-01_JPRB,4.4287E-01_JPRB,4.4611E-01_JPRB,4.3402E-01_JPRB,4.1077E-01_JPRB,&
+&3.7521E-01_JPRB,3.2697E-01_JPRB,2.6830E-01_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&4.1659E-01_JPRB,4.4635E-01_JPRB,4.6251E-01_JPRB,4.6551E-01_JPRB,4.5392E-01_JPRB,4.3080E-01_JPRB,&
+&3.9654E-01_JPRB,3.4859E-01_JPRB,2.8992E-01_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&4.3066E-01_JPRB,4.6487E-01_JPRB,4.8341E-01_JPRB,4.8533E-01_JPRB,4.7318E-01_JPRB,4.5018E-01_JPRB,&
+&4.1684E-01_JPRB,3.6978E-01_JPRB,3.1151E-01_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&4.4540E-01_JPRB,4.8420E-01_JPRB,5.0502E-01_JPRB,5.0600E-01_JPRB,4.9161E-01_JPRB,4.6895E-01_JPRB,&
+&4.3612E-01_JPRB,3.9090E-01_JPRB,3.3327E-01_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&4.6087E-01_JPRB,5.0391E-01_JPRB,5.2680E-01_JPRB,5.2675E-01_JPRB,5.1014E-01_JPRB,4.8707E-01_JPRB,&
+&4.5479E-01_JPRB,4.1126E-01_JPRB,3.5494E-01_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&3.6116E-01_JPRB,3.9180E-01_JPRB,4.0630E-01_JPRB,4.0741E-01_JPRB,3.9710E-01_JPRB,3.7545E-01_JPRB,&
+&3.4074E-01_JPRB,2.9225E-01_JPRB,2.2503E-01_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&3.7429E-01_JPRB,4.0933E-01_JPRB,4.2583E-01_JPRB,4.2659E-01_JPRB,4.1646E-01_JPRB,3.9447E-01_JPRB,&
+&3.6022E-01_JPRB,3.1183E-01_JPRB,2.4425E-01_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&3.8833E-01_JPRB,4.2821E-01_JPRB,4.4642E-01_JPRB,4.4678E-01_JPRB,4.3567E-01_JPRB,4.1270E-01_JPRB,&
+&3.7849E-01_JPRB,3.3160E-01_JPRB,2.6352E-01_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&4.0301E-01_JPRB,4.4802E-01_JPRB,4.6770E-01_JPRB,4.6760E-01_JPRB,4.5474E-01_JPRB,4.3035E-01_JPRB,&
+&3.9631E-01_JPRB,3.5077E-01_JPRB,2.8292E-01_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&4.1749E-01_JPRB,4.6796E-01_JPRB,4.8938E-01_JPRB,4.8856E-01_JPRB,4.7348E-01_JPRB,4.4790E-01_JPRB,&
+&4.1404E-01_JPRB,3.6908E-01_JPRB,3.0219E-01_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&3.1836E-01_JPRB,3.5137E-01_JPRB,3.6460E-01_JPRB,3.6422E-01_JPRB,3.5477E-01_JPRB,3.3593E-01_JPRB,&
+&3.0362E-01_JPRB,2.5584E-01_JPRB,1.8328E-01_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&3.3096E-01_JPRB,3.6850E-01_JPRB,3.8310E-01_JPRB,3.8300E-01_JPRB,3.7372E-01_JPRB,3.5449E-01_JPRB,&
+&3.2124E-01_JPRB,2.7389E-01_JPRB,2.0014E-01_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&3.4458E-01_JPRB,3.8711E-01_JPRB,4.0276E-01_JPRB,4.0262E-01_JPRB,3.9285E-01_JPRB,3.7244E-01_JPRB,&
+&3.3829E-01_JPRB,2.9150E-01_JPRB,2.1726E-01_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&3.5799E-01_JPRB,4.0642E-01_JPRB,4.2324E-01_JPRB,4.2311E-01_JPRB,4.1204E-01_JPRB,3.8967E-01_JPRB,&
+&3.5509E-01_JPRB,3.0840E-01_JPRB,2.3441E-01_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&3.7101E-01_JPRB,4.2557E-01_JPRB,4.4433E-01_JPRB,4.4402E-01_JPRB,4.3131E-01_JPRB,4.0719E-01_JPRB,&
+&3.7164E-01_JPRB,3.2487E-01_JPRB,2.5132E-01_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&2.7843E-01_JPRB,3.1174E-01_JPRB,3.2299E-01_JPRB,3.2159E-01_JPRB,3.1254E-01_JPRB,2.9513E-01_JPRB,&
+&2.6711E-01_JPRB,2.2161E-01_JPRB,1.4841E-01_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&2.9013E-01_JPRB,3.2832E-01_JPRB,3.4033E-01_JPRB,3.3944E-01_JPRB,3.3063E-01_JPRB,3.1287E-01_JPRB,&
+&2.8384E-01_JPRB,2.3810E-01_JPRB,1.6312E-01_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&3.0268E-01_JPRB,3.4605E-01_JPRB,3.5891E-01_JPRB,3.5819E-01_JPRB,3.4915E-01_JPRB,3.3041E-01_JPRB,&
+&2.9986E-01_JPRB,2.5399E-01_JPRB,1.7819E-01_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&3.1479E-01_JPRB,3.6429E-01_JPRB,3.7832E-01_JPRB,3.7789E-01_JPRB,3.6791E-01_JPRB,3.4794E-01_JPRB,&
+&3.1552E-01_JPRB,2.6914E-01_JPRB,1.9313E-01_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&3.2665E-01_JPRB,3.8187E-01_JPRB,3.9828E-01_JPRB,3.9805E-01_JPRB,3.8707E-01_JPRB,3.6554E-01_JPRB,&
+&3.3111E-01_JPRB,2.8418E-01_JPRB,2.0797E-01_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&2.4307E-01_JPRB,2.7459E-01_JPRB,2.8334E-01_JPRB,2.8148E-01_JPRB,2.7250E-01_JPRB,2.5608E-01_JPRB,&
+&2.3119E-01_JPRB,1.9095E-01_JPRB,1.1978E-01_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&2.5412E-01_JPRB,2.9006E-01_JPRB,2.9964E-01_JPRB,2.9834E-01_JPRB,2.8946E-01_JPRB,2.7270E-01_JPRB,&
+&2.4720E-01_JPRB,2.0586E-01_JPRB,1.3250E-01_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&2.6544E-01_JPRB,3.0651E-01_JPRB,3.1718E-01_JPRB,3.1602E-01_JPRB,3.0707E-01_JPRB,2.8950E-01_JPRB,&
+&2.6270E-01_JPRB,2.1996E-01_JPRB,1.4559E-01_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&2.7620E-01_JPRB,3.2315E-01_JPRB,3.3545E-01_JPRB,3.3465E-01_JPRB,3.2491E-01_JPRB,3.0648E-01_JPRB,&
+&2.7754E-01_JPRB,2.3379E-01_JPRB,1.5847E-01_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&2.8682E-01_JPRB,3.3927E-01_JPRB,3.5367E-01_JPRB,3.5367E-01_JPRB,3.4331E-01_JPRB,3.2364E-01_JPRB,&
+&2.9241E-01_JPRB,2.4747E-01_JPRB,1.7133E-01_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&2.1177E-01_JPRB,2.4018E-01_JPRB,2.4637E-01_JPRB,2.4351E-01_JPRB,2.3439E-01_JPRB,2.1931E-01_JPRB,&
+&1.9713E-01_JPRB,1.6297E-01_JPRB,9.5914E-02_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&2.2169E-01_JPRB,2.5443E-01_JPRB,2.6139E-01_JPRB,2.5908E-01_JPRB,2.5022E-01_JPRB,2.3482E-01_JPRB,&
+&2.1183E-01_JPRB,1.7638E-01_JPRB,1.0688E-01_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&2.3172E-01_JPRB,2.6938E-01_JPRB,2.7763E-01_JPRB,2.7552E-01_JPRB,2.6672E-01_JPRB,2.5051E-01_JPRB,&
+&2.2626E-01_JPRB,1.8899E-01_JPRB,1.1795E-01_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&2.4156E-01_JPRB,2.8413E-01_JPRB,2.9429E-01_JPRB,2.9295E-01_JPRB,2.8356E-01_JPRB,2.6650E-01_JPRB,&
+&2.4057E-01_JPRB,2.0157E-01_JPRB,1.2896E-01_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&2.5124E-01_JPRB,2.9850E-01_JPRB,3.1067E-01_JPRB,3.1041E-01_JPRB,3.0075E-01_JPRB,2.8246E-01_JPRB,&
+&2.5505E-01_JPRB,2.1388E-01_JPRB,1.3998E-01_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&1.8473E-01_JPRB,2.0924E-01_JPRB,2.1335E-01_JPRB,2.0936E-01_JPRB,1.9988E-01_JPRB,1.8587E-01_JPRB,&
+&1.6639E-01_JPRB,1.3717E-01_JPRB,7.6364E-02_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&1.9350E-01_JPRB,2.2219E-01_JPRB,2.2721E-01_JPRB,2.2345E-01_JPRB,2.1426E-01_JPRB,2.0011E-01_JPRB,&
+&1.7972E-01_JPRB,1.4932E-01_JPRB,8.5682E-02_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&2.0222E-01_JPRB,2.3570E-01_JPRB,2.4195E-01_JPRB,2.3854E-01_JPRB,2.2951E-01_JPRB,2.1468E-01_JPRB,&
+&1.9301E-01_JPRB,1.6077E-01_JPRB,9.5001E-02_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&2.1095E-01_JPRB,2.4886E-01_JPRB,2.5670E-01_JPRB,2.5432E-01_JPRB,2.4507E-01_JPRB,2.2935E-01_JPRB,&
+&2.0620E-01_JPRB,1.7210E-01_JPRB,1.0440E-01_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&2.1973E-01_JPRB,2.6165E-01_JPRB,2.7115E-01_JPRB,2.6994E-01_JPRB,2.6086E-01_JPRB,2.4410E-01_JPRB,&
+&2.1974E-01_JPRB,1.8329E-01_JPRB,1.1378E-01_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&1.6185E-01_JPRB,1.8253E-01_JPRB,1.8444E-01_JPRB,1.7949E-01_JPRB,1.7015E-01_JPRB,1.5690E-01_JPRB,&
+&1.3935E-01_JPRB,1.1432E-01_JPRB,6.0540E-02_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&1.6964E-01_JPRB,1.9418E-01_JPRB,1.9717E-01_JPRB,1.9247E-01_JPRB,1.8312E-01_JPRB,1.6970E-01_JPRB,&
+&1.5135E-01_JPRB,1.2506E-01_JPRB,6.8356E-02_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&1.7743E-01_JPRB,2.0616E-01_JPRB,2.1045E-01_JPRB,2.0623E-01_JPRB,1.9689E-01_JPRB,1.8297E-01_JPRB,&
+&1.6334E-01_JPRB,1.3545E-01_JPRB,7.6236E-02_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&1.8525E-01_JPRB,2.1798E-01_JPRB,2.2355E-01_JPRB,2.2023E-01_JPRB,2.1094E-01_JPRB,1.9625E-01_JPRB,&
+&1.7545E-01_JPRB,1.4584E-01_JPRB,8.4195E-02_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&1.9322E-01_JPRB,2.2966E-01_JPRB,2.3631E-01_JPRB,2.3389E-01_JPRB,2.2488E-01_JPRB,2.0966E-01_JPRB,&
+&1.8787E-01_JPRB,1.5609E-01_JPRB,9.2157E-02_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&1.4213E-01_JPRB,1.5963E-01_JPRB,1.5968E-01_JPRB,1.5380E-01_JPRB,1.4472E-01_JPRB,1.3224E-01_JPRB,&
+&1.1621E-01_JPRB,9.4456E-02_JPRB,4.8155E-02_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&1.4924E-01_JPRB,1.7020E-01_JPRB,1.7123E-01_JPRB,1.6570E-01_JPRB,1.5648E-01_JPRB,1.4372E-01_JPRB,&
+&1.2686E-01_JPRB,1.0389E-01_JPRB,5.4797E-02_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&1.5626E-01_JPRB,1.8093E-01_JPRB,1.8312E-01_JPRB,1.7819E-01_JPRB,1.6892E-01_JPRB,1.5552E-01_JPRB,&
+&1.3756E-01_JPRB,1.1314E-01_JPRB,6.1551E-02_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&1.6335E-01_JPRB,1.9168E-01_JPRB,1.9486E-01_JPRB,1.9059E-01_JPRB,1.8138E-01_JPRB,1.6740E-01_JPRB,&
+&1.4849E-01_JPRB,1.2245E-01_JPRB,6.8420E-02_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&1.7076E-01_JPRB,2.0225E-01_JPRB,2.0643E-01_JPRB,2.0268E-01_JPRB,1.9350E-01_JPRB,1.7935E-01_JPRB,&
+&1.5962E-01_JPRB,1.3184E-01_JPRB,7.5344E-02_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&1.2689E-01_JPRB,1.4153E-01_JPRB,1.4002E-01_JPRB,1.3364E-01_JPRB,1.2448E-01_JPRB,1.1260E-01_JPRB,&
+&9.7712E-02_JPRB,7.8252E-02_JPRB,4.4638E-02_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&1.3357E-01_JPRB,1.5129E-01_JPRB,1.5077E-01_JPRB,1.4472E-01_JPRB,1.3525E-01_JPRB,1.2292E-01_JPRB,&
+&1.0714E-01_JPRB,8.6493E-02_JPRB,5.1139E-02_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&1.4033E-01_JPRB,1.6116E-01_JPRB,1.6169E-01_JPRB,1.5606E-01_JPRB,1.4653E-01_JPRB,1.3358E-01_JPRB,&
+&1.1667E-01_JPRB,9.4648E-02_JPRB,5.7687E-02_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&1.4713E-01_JPRB,1.7114E-01_JPRB,1.7244E-01_JPRB,1.6723E-01_JPRB,1.5766E-01_JPRB,1.4412E-01_JPRB,&
+&1.2643E-01_JPRB,1.0289E-01_JPRB,6.4268E-02_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&1.5435E-01_JPRB,1.8097E-01_JPRB,1.8303E-01_JPRB,1.7815E-01_JPRB,1.6844E-01_JPRB,1.5450E-01_JPRB,&
+&1.3627E-01_JPRB,1.1126E-01_JPRB,7.0752E-02_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&1.1735E-01_JPRB,1.3093E-01_JPRB,1.2881E-01_JPRB,1.2210E-01_JPRB,1.1270E-01_JPRB,1.0103E-01_JPRB,&
+&8.6539E-02_JPRB,6.8130E-02_JPRB,4.9846E-02_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&1.2384E-01_JPRB,1.4024E-01_JPRB,1.3893E-01_JPRB,1.3259E-01_JPRB,1.2292E-01_JPRB,1.1061E-01_JPRB,&
+&9.5115E-02_JPRB,7.5252E-02_JPRB,5.6964E-02_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&1.3035E-01_JPRB,1.4957E-01_JPRB,1.4914E-01_JPRB,1.4306E-01_JPRB,1.3321E-01_JPRB,1.2022E-01_JPRB,&
+&1.0374E-01_JPRB,8.2465E-02_JPRB,6.4200E-02_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&1.3725E-01_JPRB,1.5898E-01_JPRB,1.5927E-01_JPRB,1.5334E-01_JPRB,1.4326E-01_JPRB,1.2961E-01_JPRB,&
+&1.1238E-01_JPRB,8.9805E-02_JPRB,7.1457E-02_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&1.4463E-01_JPRB,1.6851E-01_JPRB,1.6933E-01_JPRB,1.6346E-01_JPRB,1.5308E-01_JPRB,1.3883E-01_JPRB,&
+&1.2096E-01_JPRB,9.7193E-02_JPRB,7.8536E-02_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&1.0640E-01_JPRB,1.1932E-01_JPRB,1.1727E-01_JPRB,1.1093E-01_JPRB,1.0195E-01_JPRB,9.0676E-02_JPRB,&
+&7.6870E-02_JPRB,5.9379E-02_JPRB,5.1106E-02_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&1.1251E-01_JPRB,1.2789E-01_JPRB,1.2658E-01_JPRB,1.2048E-01_JPRB,1.1127E-01_JPRB,9.9404E-02_JPRB,&
+&8.4625E-02_JPRB,6.5652E-02_JPRB,5.8364E-02_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&1.1894E-01_JPRB,1.3655E-01_JPRB,1.3586E-01_JPRB,1.2993E-01_JPRB,1.2048E-01_JPRB,1.0801E-01_JPRB,&
+&9.2363E-02_JPRB,7.2052E-02_JPRB,6.5735E-02_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&1.2590E-01_JPRB,1.4545E-01_JPRB,1.4519E-01_JPRB,1.3926E-01_JPRB,1.2958E-01_JPRB,1.1647E-01_JPRB,&
+&9.9973E-02_JPRB,7.8534E-02_JPRB,7.3095E-02_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&1.3337E-01_JPRB,1.5470E-01_JPRB,1.5466E-01_JPRB,1.4861E-01_JPRB,1.3857E-01_JPRB,1.2488E-01_JPRB,&
+&1.0746E-01_JPRB,8.4929E-02_JPRB,8.0418E-02_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&9.6972E-02_JPRB,1.0868E-01_JPRB,1.0670E-01_JPRB,1.0090E-01_JPRB,9.2463E-02_JPRB,8.1893E-02_JPRB,&
+&6.8722E-02_JPRB,5.2187E-02_JPRB,4.8936E-02_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&1.0286E-01_JPRB,1.1675E-01_JPRB,1.1538E-01_JPRB,1.0956E-01_JPRB,1.0086E-01_JPRB,8.9655E-02_JPRB,&
+&7.5733E-02_JPRB,5.7797E-02_JPRB,5.5923E-02_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&1.0928E-01_JPRB,1.2507E-01_JPRB,1.2410E-01_JPRB,1.1821E-01_JPRB,1.0914E-01_JPRB,9.7343E-02_JPRB,&
+&8.2660E-02_JPRB,6.3457E-02_JPRB,6.3021E-02_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&1.1629E-01_JPRB,1.3382E-01_JPRB,1.3304E-01_JPRB,1.2689E-01_JPRB,1.1743E-01_JPRB,1.0500E-01_JPRB,&
+&8.9516E-02_JPRB,6.9087E-02_JPRB,7.0154E-02_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&1.2379E-01_JPRB,1.4288E-01_JPRB,1.4218E-01_JPRB,1.3575E-01_JPRB,1.2584E-01_JPRB,1.1273E-01_JPRB,&
+&9.6241E-02_JPRB,7.4622E-02_JPRB,7.7264E-02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB12_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb12_A2.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB12_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&1.3428E+00_JPRB,1.2969E+00_JPRB,1.3205E+00_JPRB,1.3175E+00_JPRB,1.2990E+00_JPRB,1.2468E+00_JPRB,&
+&1.1628E+00_JPRB,1.0614E+00_JPRB,1.0372E+00_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&1.3746E+00_JPRB,1.3335E+00_JPRB,1.3668E+00_JPRB,1.3722E+00_JPRB,1.3567E+00_JPRB,1.3085E+00_JPRB,&
+&1.2270E+00_JPRB,1.1261E+00_JPRB,1.1147E+00_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&1.4073E+00_JPRB,1.3698E+00_JPRB,1.4124E+00_JPRB,1.4260E+00_JPRB,1.4123E+00_JPRB,1.3693E+00_JPRB,&
+&1.2904E+00_JPRB,1.1888E+00_JPRB,1.1913E+00_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&1.4400E+00_JPRB,1.4058E+00_JPRB,1.4573E+00_JPRB,1.4759E+00_JPRB,1.4676E+00_JPRB,1.4301E+00_JPRB,&
+&1.3531E+00_JPRB,1.2469E+00_JPRB,1.2654E+00_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&1.4734E+00_JPRB,1.4423E+00_JPRB,1.5023E+00_JPRB,1.5245E+00_JPRB,1.5225E+00_JPRB,1.4892E+00_JPRB,&
+&1.4132E+00_JPRB,1.3011E+00_JPRB,1.3376E+00_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&1.2829E+00_JPRB,1.2633E+00_JPRB,1.2907E+00_JPRB,1.2907E+00_JPRB,1.2660E+00_JPRB,1.2110E+00_JPRB,&
+&1.1297E+00_JPRB,1.0058E+00_JPRB,9.3684E-01_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&1.3149E+00_JPRB,1.3008E+00_JPRB,1.3384E+00_JPRB,1.3472E+00_JPRB,1.3248E+00_JPRB,1.2742E+00_JPRB,&
+&1.1952E+00_JPRB,1.0698E+00_JPRB,1.0113E+00_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&1.3475E+00_JPRB,1.3378E+00_JPRB,1.3854E+00_JPRB,1.4016E+00_JPRB,1.3821E+00_JPRB,1.3377E+00_JPRB,&
+&1.2602E+00_JPRB,1.1308E+00_JPRB,1.0840E+00_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&1.3810E+00_JPRB,1.3744E+00_JPRB,1.4322E+00_JPRB,1.4528E+00_JPRB,1.4388E+00_JPRB,1.4001E+00_JPRB,&
+&1.3236E+00_JPRB,1.1887E+00_JPRB,1.1546E+00_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&1.4157E+00_JPRB,1.4118E+00_JPRB,1.4780E+00_JPRB,1.5023E+00_JPRB,1.4957E+00_JPRB,1.4603E+00_JPRB,&
+&1.3839E+00_JPRB,1.2445E+00_JPRB,1.2243E+00_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&1.2127E+00_JPRB,1.2149E+00_JPRB,1.2414E+00_JPRB,1.2413E+00_JPRB,1.2096E+00_JPRB,1.1509E+00_JPRB,&
+&1.0693E+00_JPRB,9.3505E-01_JPRB,8.1904E-01_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&1.2443E+00_JPRB,1.2526E+00_JPRB,1.2906E+00_JPRB,1.2980E+00_JPRB,1.2698E+00_JPRB,1.2150E+00_JPRB,&
+&1.1356E+00_JPRB,9.9732E-01_JPRB,8.8821E-01_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&1.2769E+00_JPRB,1.2896E+00_JPRB,1.3389E+00_JPRB,1.3532E+00_JPRB,1.3282E+00_JPRB,1.2784E+00_JPRB,&
+&1.2012E+00_JPRB,1.0574E+00_JPRB,9.5592E-01_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&1.3109E+00_JPRB,1.3271E+00_JPRB,1.3868E+00_JPRB,1.4049E+00_JPRB,1.3857E+00_JPRB,1.3410E+00_JPRB,&
+&1.2646E+00_JPRB,1.1151E+00_JPRB,1.0226E+00_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&1.3463E+00_JPRB,1.3657E+00_JPRB,1.4329E+00_JPRB,1.4555E+00_JPRB,1.4430E+00_JPRB,1.4020E+00_JPRB,&
+&1.3252E+00_JPRB,1.1714E+00_JPRB,1.0884E+00_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&1.1396E+00_JPRB,1.1562E+00_JPRB,1.1826E+00_JPRB,1.1757E+00_JPRB,1.1396E+00_JPRB,1.0800E+00_JPRB,&
+&9.9549E-01_JPRB,8.6118E-01_JPRB,7.0458E-01_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&1.1708E+00_JPRB,1.1941E+00_JPRB,1.2324E+00_JPRB,1.2326E+00_JPRB,1.2012E+00_JPRB,1.1447E+00_JPRB,&
+&1.0603E+00_JPRB,9.2111E-01_JPRB,7.6931E-01_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&1.2031E+00_JPRB,1.2324E+00_JPRB,1.2815E+00_JPRB,1.2882E+00_JPRB,1.2607E+00_JPRB,1.2072E+00_JPRB,&
+&1.1246E+00_JPRB,9.8015E-01_JPRB,8.3245E-01_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&1.2376E+00_JPRB,1.2714E+00_JPRB,1.3295E+00_JPRB,1.3421E+00_JPRB,1.3190E+00_JPRB,1.2690E+00_JPRB,&
+&1.1874E+00_JPRB,1.0376E+00_JPRB,8.9457E-01_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&1.2740E+00_JPRB,1.3119E+00_JPRB,1.3762E+00_JPRB,1.3940E+00_JPRB,1.3758E+00_JPRB,1.3293E+00_JPRB,&
+&1.2473E+00_JPRB,1.0924E+00_JPRB,9.5512E-01_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&1.0676E+00_JPRB,1.0934E+00_JPRB,1.1164E+00_JPRB,1.1017E+00_JPRB,1.0618E+00_JPRB,1.0031E+00_JPRB,&
+&9.1670E-01_JPRB,7.8582E-01_JPRB,6.0004E-01_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&1.0980E+00_JPRB,1.1317E+00_JPRB,1.1657E+00_JPRB,1.1576E+00_JPRB,1.1232E+00_JPRB,1.0675E+00_JPRB,&
+&9.7913E-01_JPRB,8.4460E-01_JPRB,6.6026E-01_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&1.1299E+00_JPRB,1.1708E+00_JPRB,1.2140E+00_JPRB,1.2133E+00_JPRB,1.1840E+00_JPRB,1.1288E+00_JPRB,&
+&1.0409E+00_JPRB,9.0310E-01_JPRB,7.1874E-01_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&1.1642E+00_JPRB,1.2107E+00_JPRB,1.2614E+00_JPRB,1.2677E+00_JPRB,1.2424E+00_JPRB,1.1890E+00_JPRB,&
+&1.1017E+00_JPRB,9.5891E-01_JPRB,7.7564E-01_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&1.2000E+00_JPRB,1.2526E+00_JPRB,1.3091E+00_JPRB,1.3207E+00_JPRB,1.2994E+00_JPRB,1.2483E+00_JPRB,&
+&1.1609E+00_JPRB,1.0119E+00_JPRB,8.3130E-01_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&9.9003E-01_JPRB,1.0258E+00_JPRB,1.0412E+00_JPRB,1.0201E+00_JPRB,9.7779E-01_JPRB,9.1873E-01_JPRB,&
+&8.3216E-01_JPRB,7.0459E-01_JPRB,5.0433E-01_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&1.0190E+00_JPRB,1.0642E+00_JPRB,1.0886E+00_JPRB,1.0744E+00_JPRB,1.0384E+00_JPRB,9.8045E-01_JPRB,&
+&8.9228E-01_JPRB,7.6180E-01_JPRB,5.5916E-01_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&1.0499E+00_JPRB,1.1031E+00_JPRB,1.1353E+00_JPRB,1.1293E+00_JPRB,1.0979E+00_JPRB,1.0403E+00_JPRB,&
+&9.5155E-01_JPRB,8.1856E-01_JPRB,6.1244E-01_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&1.0828E+00_JPRB,1.1437E+00_JPRB,1.1824E+00_JPRB,1.1833E+00_JPRB,1.1555E+00_JPRB,1.0993E+00_JPRB,&
+&1.0102E+00_JPRB,8.7279E-01_JPRB,6.6433E-01_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&1.1175E+00_JPRB,1.1857E+00_JPRB,1.2305E+00_JPRB,1.2360E+00_JPRB,1.2119E+00_JPRB,1.1569E+00_JPRB,&
+&1.0670E+00_JPRB,9.2416E-01_JPRB,7.1591E-01_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&9.0622E-01_JPRB,9.5046E-01_JPRB,9.6089E-01_JPRB,9.3711E-01_JPRB,8.9284E-01_JPRB,8.3176E-01_JPRB,&
+&7.4643E-01_JPRB,6.2447E-01_JPRB,4.1858E-01_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&9.3396E-01_JPRB,9.8759E-01_JPRB,1.0065E+00_JPRB,9.8973E-01_JPRB,9.5076E-01_JPRB,8.9008E-01_JPRB,&
+&8.0412E-01_JPRB,6.7884E-01_JPRB,4.6801E-01_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&9.6319E-01_JPRB,1.0255E+00_JPRB,1.0520E+00_JPRB,1.0425E+00_JPRB,1.0071E+00_JPRB,9.4738E-01_JPRB,&
+&8.6097E-01_JPRB,7.3289E-01_JPRB,5.1587E-01_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&9.9431E-01_JPRB,1.0653E+00_JPRB,1.0986E+00_JPRB,1.0946E+00_JPRB,1.0623E+00_JPRB,1.0043E+00_JPRB,&
+&9.1723E-01_JPRB,7.8478E-01_JPRB,5.6306E-01_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&1.0274E+00_JPRB,1.1069E+00_JPRB,1.1469E+00_JPRB,1.1464E+00_JPRB,1.1172E+00_JPRB,1.0599E+00_JPRB,&
+&9.7098E-01_JPRB,8.3391E-01_JPRB,6.1058E-01_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&8.1868E-01_JPRB,8.7029E-01_JPRB,8.7676E-01_JPRB,8.5425E-01_JPRB,8.0979E-01_JPRB,7.4690E-01_JPRB,&
+&6.6276E-01_JPRB,5.4807E-01_JPRB,3.4321E-01_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&8.4618E-01_JPRB,9.0631E-01_JPRB,9.1992E-01_JPRB,9.0408E-01_JPRB,8.6387E-01_JPRB,8.0135E-01_JPRB,&
+&7.1759E-01_JPRB,5.9903E-01_JPRB,3.8705E-01_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&8.7480E-01_JPRB,9.4290E-01_JPRB,9.6372E-01_JPRB,9.5463E-01_JPRB,9.1665E-01_JPRB,8.5535E-01_JPRB,&
+&7.7165E-01_JPRB,6.4994E-01_JPRB,4.2964E-01_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&9.0487E-01_JPRB,9.8122E-01_JPRB,1.0094E+00_JPRB,1.0045E+00_JPRB,9.6889E-01_JPRB,9.0941E-01_JPRB,&
+&8.2521E-01_JPRB,6.9828E-01_JPRB,4.7251E-01_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&9.3640E-01_JPRB,1.0212E+00_JPRB,1.0569E+00_JPRB,1.0548E+00_JPRB,1.0212E+00_JPRB,9.6279E-01_JPRB,&
+&8.7575E-01_JPRB,7.4474E-01_JPRB,5.1556E-01_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&7.3248E-01_JPRB,7.8661E-01_JPRB,7.9076E-01_JPRB,7.6949E-01_JPRB,7.2749E-01_JPRB,6.6515E-01_JPRB,&
+&5.8393E-01_JPRB,4.7588E-01_JPRB,2.7793E-01_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&7.5864E-01_JPRB,8.2147E-01_JPRB,8.3210E-01_JPRB,8.1596E-01_JPRB,7.7766E-01_JPRB,7.1604E-01_JPRB,&
+&6.3458E-01_JPRB,5.2262E-01_JPRB,3.1673E-01_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&7.8652E-01_JPRB,8.5723E-01_JPRB,8.7381E-01_JPRB,8.6296E-01_JPRB,8.2677E-01_JPRB,7.6708E-01_JPRB,&
+&6.8470E-01_JPRB,5.6962E-01_JPRB,3.5494E-01_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&8.1572E-01_JPRB,8.9416E-01_JPRB,9.1752E-01_JPRB,9.1007E-01_JPRB,8.7613E-01_JPRB,8.1762E-01_JPRB,&
+&7.3487E-01_JPRB,6.1457E-01_JPRB,3.9372E-01_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&8.4624E-01_JPRB,9.3262E-01_JPRB,9.6268E-01_JPRB,9.5791E-01_JPRB,9.2621E-01_JPRB,8.6785E-01_JPRB,&
+&7.8234E-01_JPRB,6.5797E-01_JPRB,4.3237E-01_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&6.5285E-01_JPRB,7.0556E-01_JPRB,7.0877E-01_JPRB,6.8957E-01_JPRB,6.5004E-01_JPRB,5.9094E-01_JPRB,&
+&5.1435E-01_JPRB,4.1208E-01_JPRB,2.3031E-01_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&6.7792E-01_JPRB,7.3916E-01_JPRB,7.4857E-01_JPRB,7.3319E-01_JPRB,6.9544E-01_JPRB,6.3833E-01_JPRB,&
+&5.6078E-01_JPRB,4.5470E-01_JPRB,2.6518E-01_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&7.0469E-01_JPRB,7.7387E-01_JPRB,7.8906E-01_JPRB,7.7634E-01_JPRB,7.4114E-01_JPRB,6.8557E-01_JPRB,&
+&6.0667E-01_JPRB,4.9747E-01_JPRB,3.0039E-01_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&7.3310E-01_JPRB,8.1001E-01_JPRB,8.3104E-01_JPRB,8.2017E-01_JPRB,7.8729E-01_JPRB,7.3297E-01_JPRB,&
+&6.5240E-01_JPRB,5.3892E-01_JPRB,3.3590E-01_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&7.6290E-01_JPRB,8.4760E-01_JPRB,8.7394E-01_JPRB,8.6505E-01_JPRB,8.3426E-01_JPRB,7.8012E-01_JPRB,&
+&6.9636E-01_JPRB,5.7926E-01_JPRB,3.7143E-01_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&5.9090E-01_JPRB,6.4305E-01_JPRB,6.4751E-01_JPRB,6.3053E-01_JPRB,5.9455E-01_JPRB,5.4070E-01_JPRB,&
+&4.6893E-01_JPRB,3.7172E-01_JPRB,2.1405E-01_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&6.1610E-01_JPRB,6.7624E-01_JPRB,6.8614E-01_JPRB,6.7105E-01_JPRB,6.3688E-01_JPRB,5.8397E-01_JPRB,&
+&5.1072E-01_JPRB,4.1032E-01_JPRB,2.4686E-01_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&6.4345E-01_JPRB,7.1119E-01_JPRB,7.2537E-01_JPRB,7.1231E-01_JPRB,6.7967E-01_JPRB,6.2716E-01_JPRB,&
+&5.5288E-01_JPRB,4.4844E-01_JPRB,2.7991E-01_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&6.7245E-01_JPRB,7.4763E-01_JPRB,7.6564E-01_JPRB,7.5469E-01_JPRB,7.2271E-01_JPRB,6.7051E-01_JPRB,&
+&5.9423E-01_JPRB,4.8613E-01_JPRB,3.1288E-01_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&7.0307E-01_JPRB,7.8557E-01_JPRB,8.0692E-01_JPRB,7.9786E-01_JPRB,7.6651E-01_JPRB,7.1310E-01_JPRB,&
+&6.3521E-01_JPRB,5.2316E-01_JPRB,3.4596E-01_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&5.3439E-01_JPRB,5.8391E-01_JPRB,5.8774E-01_JPRB,5.7122E-01_JPRB,5.3863E-01_JPRB,4.9053E-01_JPRB,&
+&4.2331E-01_JPRB,3.3386E-01_JPRB,2.0991E-01_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&5.5981E-01_JPRB,6.1691E-01_JPRB,6.2491E-01_JPRB,6.0974E-01_JPRB,5.7829E-01_JPRB,5.2963E-01_JPRB,&
+&4.6106E-01_JPRB,3.6833E-01_JPRB,2.4202E-01_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&5.8729E-01_JPRB,6.5190E-01_JPRB,6.6281E-01_JPRB,6.4965E-01_JPRB,6.1814E-01_JPRB,5.6902E-01_JPRB,&
+&4.9887E-01_JPRB,4.0268E-01_JPRB,2.7433E-01_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&6.1659E-01_JPRB,6.8828E-01_JPRB,7.0203E-01_JPRB,6.9007E-01_JPRB,6.5880E-01_JPRB,6.0818E-01_JPRB,&
+&5.3678E-01_JPRB,4.3667E-01_JPRB,3.0656E-01_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&6.4762E-01_JPRB,7.2645E-01_JPRB,7.4237E-01_JPRB,7.3145E-01_JPRB,6.9915E-01_JPRB,6.4741E-01_JPRB,&
+&5.7484E-01_JPRB,4.6985E-01_JPRB,3.3881E-01_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&4.8753E-01_JPRB,5.3273E-01_JPRB,5.3419E-01_JPRB,5.1662E-01_JPRB,4.8575E-01_JPRB,4.4090E-01_JPRB,&
+&3.7978E-01_JPRB,2.9794E-01_JPRB,2.0545E-01_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&5.1376E-01_JPRB,5.6597E-01_JPRB,5.6993E-01_JPRB,5.5397E-01_JPRB,5.2292E-01_JPRB,4.7698E-01_JPRB,&
+&4.1398E-01_JPRB,3.2894E-01_JPRB,2.3666E-01_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&5.4228E-01_JPRB,6.0098E-01_JPRB,6.0712E-01_JPRB,5.9219E-01_JPRB,5.6068E-01_JPRB,5.1331E-01_JPRB,&
+&4.4847E-01_JPRB,3.5992E-01_JPRB,2.6838E-01_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&5.7239E-01_JPRB,6.3765E-01_JPRB,6.4572E-01_JPRB,6.3133E-01_JPRB,5.9865E-01_JPRB,5.5003E-01_JPRB,&
+&4.8326E-01_JPRB,3.9056E-01_JPRB,3.0014E-01_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&6.0266E-01_JPRB,6.7556E-01_JPRB,6.8531E-01_JPRB,6.7067E-01_JPRB,6.3710E-01_JPRB,5.8691E-01_JPRB,&
+&5.1750E-01_JPRB,4.2055E-01_JPRB,3.3173E-01_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&3.6294E+00_JPRB,3.2562E+00_JPRB,3.2368E+00_JPRB,3.0996E+00_JPRB,2.9830E+00_JPRB,2.8753E+00_JPRB,&
+&2.7749E+00_JPRB,2.5993E+00_JPRB,2.8111E+00_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&3.7112E+00_JPRB,3.3258E+00_JPRB,3.3100E+00_JPRB,3.2079E+00_JPRB,3.1384E+00_JPRB,3.0034E+00_JPRB,&
+&2.8949E+00_JPRB,2.7070E+00_JPRB,3.0039E+00_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&3.7891E+00_JPRB,3.3949E+00_JPRB,3.3824E+00_JPRB,3.3195E+00_JPRB,3.2833E+00_JPRB,3.1133E+00_JPRB,&
+&3.0142E+00_JPRB,2.8340E+00_JPRB,3.1933E+00_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&3.8594E+00_JPRB,3.4595E+00_JPRB,3.4534E+00_JPRB,3.4596E+00_JPRB,3.3989E+00_JPRB,3.2137E+00_JPRB,&
+&3.1290E+00_JPRB,2.9765E+00_JPRB,3.3923E+00_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&3.9199E+00_JPRB,3.5165E+00_JPRB,3.5128E+00_JPRB,3.5924E+00_JPRB,3.4985E+00_JPRB,3.3169E+00_JPRB,&
+&3.2426E+00_JPRB,3.1423E+00_JPRB,3.5829E+00_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&3.6408E+00_JPRB,3.2851E+00_JPRB,3.3076E+00_JPRB,3.2113E+00_JPRB,3.1456E+00_JPRB,3.0206E+00_JPRB,&
+&2.7332E+00_JPRB,2.5617E+00_JPRB,2.6956E+00_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&3.7247E+00_JPRB,3.3643E+00_JPRB,3.3883E+00_JPRB,3.3308E+00_JPRB,3.3119E+00_JPRB,3.1672E+00_JPRB,&
+&2.8664E+00_JPRB,2.6839E+00_JPRB,2.9052E+00_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&3.8049E+00_JPRB,3.4403E+00_JPRB,3.4728E+00_JPRB,3.4603E+00_JPRB,3.4644E+00_JPRB,3.2894E+00_JPRB,&
+&2.9956E+00_JPRB,2.7983E+00_JPRB,3.1071E+00_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&3.8732E+00_JPRB,3.5109E+00_JPRB,3.5452E+00_JPRB,3.6076E+00_JPRB,3.5864E+00_JPRB,3.4101E+00_JPRB,&
+&3.1230E+00_JPRB,2.9350E+00_JPRB,3.3150E+00_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&3.9409E+00_JPRB,3.5762E+00_JPRB,3.6198E+00_JPRB,3.7407E+00_JPRB,3.6919E+00_JPRB,3.5308E+00_JPRB,&
+&3.2386E+00_JPRB,3.0801E+00_JPRB,3.5151E+00_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&3.5736E+00_JPRB,3.2584E+00_JPRB,3.3139E+00_JPRB,3.2719E+00_JPRB,3.2271E+00_JPRB,3.0778E+00_JPRB,&
+&2.7397E+00_JPRB,2.4788E+00_JPRB,2.5395E+00_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&3.6594E+00_JPRB,3.3492E+00_JPRB,3.4059E+00_JPRB,3.4088E+00_JPRB,3.3945E+00_JPRB,3.2416E+00_JPRB,&
+&2.8874E+00_JPRB,2.6220E+00_JPRB,2.7498E+00_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&3.7370E+00_JPRB,3.4383E+00_JPRB,3.4999E+00_JPRB,3.5416E+00_JPRB,3.5599E+00_JPRB,3.3810E+00_JPRB,&
+&3.0257E+00_JPRB,2.7502E+00_JPRB,2.9649E+00_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&3.8104E+00_JPRB,3.5143E+00_JPRB,3.5877E+00_JPRB,3.6896E+00_JPRB,3.6976E+00_JPRB,3.5128E+00_JPRB,&
+&3.1541E+00_JPRB,2.8734E+00_JPRB,3.1792E+00_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&3.8817E+00_JPRB,3.5850E+00_JPRB,3.6770E+00_JPRB,3.8155E+00_JPRB,3.8142E+00_JPRB,3.6439E+00_JPRB,&
+&3.2832E+00_JPRB,2.9977E+00_JPRB,3.3829E+00_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&3.4322E+00_JPRB,3.2007E+00_JPRB,3.2659E+00_JPRB,3.2997E+00_JPRB,3.2447E+00_JPRB,3.0584E+00_JPRB,&
+&2.7371E+00_JPRB,2.3518E+00_JPRB,2.3300E+00_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&3.5196E+00_JPRB,3.3050E+00_JPRB,3.3731E+00_JPRB,3.4388E+00_JPRB,3.4095E+00_JPRB,3.2370E+00_JPRB,&
+&2.9126E+00_JPRB,2.5092E+00_JPRB,2.5309E+00_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&3.5985E+00_JPRB,3.3943E+00_JPRB,3.4756E+00_JPRB,3.5772E+00_JPRB,3.5742E+00_JPRB,3.4032E+00_JPRB,&
+&3.0669E+00_JPRB,2.6516E+00_JPRB,2.7458E+00_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&3.6770E+00_JPRB,3.4750E+00_JPRB,3.5775E+00_JPRB,3.7106E+00_JPRB,3.7325E+00_JPRB,3.5499E+00_JPRB,&
+&3.2119E+00_JPRB,2.7759E+00_JPRB,2.9618E+00_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&3.7553E+00_JPRB,3.5545E+00_JPRB,3.6854E+00_JPRB,3.8420E+00_JPRB,3.8679E+00_JPRB,3.6893E+00_JPRB,&
+&3.3628E+00_JPRB,2.8870E+00_JPRB,3.1717E+00_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&3.2373E+00_JPRB,3.1117E+00_JPRB,3.1778E+00_JPRB,3.2611E+00_JPRB,3.1950E+00_JPRB,2.9886E+00_JPRB,&
+&2.6929E+00_JPRB,2.2194E+00_JPRB,2.0888E+00_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&3.3227E+00_JPRB,3.2184E+00_JPRB,3.2899E+00_JPRB,3.4098E+00_JPRB,3.3633E+00_JPRB,3.1652E+00_JPRB,&
+&2.8940E+00_JPRB,2.3720E+00_JPRB,2.2795E+00_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&3.4108E+00_JPRB,3.3097E+00_JPRB,3.4099E+00_JPRB,3.5509E+00_JPRB,3.5204E+00_JPRB,3.3546E+00_JPRB,&
+&3.0628E+00_JPRB,2.5129E+00_JPRB,2.4816E+00_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&3.5003E+00_JPRB,3.3952E+00_JPRB,3.5314E+00_JPRB,3.6804E+00_JPRB,3.6822E+00_JPRB,3.5261E+00_JPRB,&
+&3.2230E+00_JPRB,2.6514E+00_JPRB,2.6958E+00_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&3.5863E+00_JPRB,3.4801E+00_JPRB,3.6493E+00_JPRB,3.8038E+00_JPRB,3.8198E+00_JPRB,3.6739E+00_JPRB,&
+&3.3792E+00_JPRB,2.7781E+00_JPRB,2.9109E+00_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&3.0445E+00_JPRB,2.9620E+00_JPRB,3.0571E+00_JPRB,3.1457E+00_JPRB,3.0759E+00_JPRB,2.8664E+00_JPRB,&
+&2.5916E+00_JPRB,2.1266E+00_JPRB,1.8296E+00_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&3.1336E+00_JPRB,3.0624E+00_JPRB,3.1925E+00_JPRB,3.2966E+00_JPRB,3.2392E+00_JPRB,3.0536E+00_JPRB,&
+&2.7999E+00_JPRB,2.2755E+00_JPRB,2.0164E+00_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&3.2251E+00_JPRB,3.1623E+00_JPRB,3.3255E+00_JPRB,3.4339E+00_JPRB,3.3902E+00_JPRB,3.2529E+00_JPRB,&
+&2.9818E+00_JPRB,2.4175E+00_JPRB,2.2137E+00_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&3.3171E+00_JPRB,3.2585E+00_JPRB,3.4579E+00_JPRB,3.5597E+00_JPRB,3.5496E+00_JPRB,3.4294E+00_JPRB,&
+&3.1517E+00_JPRB,2.5627E+00_JPRB,2.4250E+00_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&3.4116E+00_JPRB,3.3553E+00_JPRB,3.5847E+00_JPRB,3.6942E+00_JPRB,3.6982E+00_JPRB,3.5971E+00_JPRB,&
+&3.3128E+00_JPRB,2.7040E+00_JPRB,2.6238E+00_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&2.9086E+00_JPRB,2.8374E+00_JPRB,2.9280E+00_JPRB,2.9562E+00_JPRB,2.8965E+00_JPRB,2.7121E+00_JPRB,&
+&2.4469E+00_JPRB,2.0175E+00_JPRB,1.5788E+00_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&2.9988E+00_JPRB,2.9438E+00_JPRB,3.0639E+00_JPRB,3.1077E+00_JPRB,3.0554E+00_JPRB,2.9073E+00_JPRB,&
+&2.6439E+00_JPRB,2.1750E+00_JPRB,1.7618E+00_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&3.0933E+00_JPRB,3.0485E+00_JPRB,3.1991E+00_JPRB,3.2496E+00_JPRB,3.2138E+00_JPRB,3.1110E+00_JPRB,&
+&2.8275E+00_JPRB,2.3269E+00_JPRB,1.9611E+00_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&3.1882E+00_JPRB,3.1521E+00_JPRB,3.3306E+00_JPRB,3.3838E+00_JPRB,3.3832E+00_JPRB,3.2822E+00_JPRB,&
+&2.9996E+00_JPRB,2.4824E+00_JPRB,2.1592E+00_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&3.2780E+00_JPRB,3.2584E+00_JPRB,3.4493E+00_JPRB,3.5229E+00_JPRB,3.5250E+00_JPRB,3.4373E+00_JPRB,&
+&3.1721E+00_JPRB,2.6319E+00_JPRB,2.3379E+00_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&2.8154E+00_JPRB,2.7401E+00_JPRB,2.8041E+00_JPRB,2.7499E+00_JPRB,2.6697E+00_JPRB,2.5266E+00_JPRB,&
+&2.2797E+00_JPRB,1.8696E+00_JPRB,1.3559E+00_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&2.8912E+00_JPRB,2.8557E+00_JPRB,2.9355E+00_JPRB,2.8974E+00_JPRB,2.8365E+00_JPRB,2.7206E+00_JPRB,&
+&2.4626E+00_JPRB,2.0339E+00_JPRB,1.5286E+00_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&2.9739E+00_JPRB,2.9692E+00_JPRB,3.0667E+00_JPRB,3.0335E+00_JPRB,3.0033E+00_JPRB,2.9063E+00_JPRB,&
+&2.6365E+00_JPRB,2.1906E+00_JPRB,1.7207E+00_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&3.0589E+00_JPRB,3.0798E+00_JPRB,3.1911E+00_JPRB,3.1726E+00_JPRB,3.1737E+00_JPRB,3.0654E+00_JPRB,&
+&2.8021E+00_JPRB,2.3587E+00_JPRB,1.9007E+00_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&3.1452E+00_JPRB,3.1888E+00_JPRB,3.3008E+00_JPRB,3.3242E+00_JPRB,3.3225E+00_JPRB,3.2145E+00_JPRB,&
+&2.9803E+00_JPRB,2.5138E+00_JPRB,2.0640E+00_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&2.7071E+00_JPRB,2.6491E+00_JPRB,2.6723E+00_JPRB,2.5686E+00_JPRB,2.4536E+00_JPRB,2.3106E+00_JPRB,&
+&2.0811E+00_JPRB,1.6991E+00_JPRB,1.1509E+00_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&2.7701E+00_JPRB,2.7593E+00_JPRB,2.7975E+00_JPRB,2.7179E+00_JPRB,2.6123E+00_JPRB,2.4920E+00_JPRB,&
+&2.2565E+00_JPRB,1.8667E+00_JPRB,1.3080E+00_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&2.8376E+00_JPRB,2.8669E+00_JPRB,2.9292E+00_JPRB,2.8584E+00_JPRB,2.7770E+00_JPRB,2.6567E+00_JPRB,&
+&2.4289E+00_JPRB,2.0233E+00_JPRB,1.4827E+00_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&2.9092E+00_JPRB,2.9736E+00_JPRB,3.0528E+00_JPRB,3.0034E+00_JPRB,2.9332E+00_JPRB,2.8084E+00_JPRB,&
+&2.5864E+00_JPRB,2.1897E+00_JPRB,1.6436E+00_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&2.9831E+00_JPRB,3.0790E+00_JPRB,3.1648E+00_JPRB,3.1509E+00_JPRB,3.0739E+00_JPRB,2.9530E+00_JPRB,&
+&2.7530E+00_JPRB,2.3477E+00_JPRB,1.7965E+00_JPRB/)
+KAO( :, 1,10,10) = (/&
+&2.5846E+00_JPRB,2.5566E+00_JPRB,2.5335E+00_JPRB,2.4083E+00_JPRB,2.2712E+00_JPRB,2.1147E+00_JPRB,&
+&1.8770E+00_JPRB,1.5356E+00_JPRB,9.6607E-01_JPRB/)
+KAO( :, 2,10,10) = (/&
+&2.6440E+00_JPRB,2.6579E+00_JPRB,2.6475E+00_JPRB,2.5522E+00_JPRB,2.4355E+00_JPRB,2.2753E+00_JPRB,&
+&2.0432E+00_JPRB,1.6979E+00_JPRB,1.1107E+00_JPRB/)
+KAO( :, 3,10,10) = (/&
+&2.7001E+00_JPRB,2.7579E+00_JPRB,2.7665E+00_JPRB,2.7021E+00_JPRB,2.5868E+00_JPRB,2.4222E+00_JPRB,&
+&2.2111E+00_JPRB,1.8498E+00_JPRB,1.2644E+00_JPRB/)
+KAO( :, 4,10,10) = (/&
+&2.7579E+00_JPRB,2.8520E+00_JPRB,2.8806E+00_JPRB,2.8506E+00_JPRB,2.7323E+00_JPRB,2.5633E+00_JPRB,&
+&2.3644E+00_JPRB,2.0104E+00_JPRB,1.4137E+00_JPRB/)
+KAO( :, 5,10,10) = (/&
+&2.8173E+00_JPRB,2.9491E+00_JPRB,2.9936E+00_JPRB,2.9898E+00_JPRB,2.8664E+00_JPRB,2.7018E+00_JPRB,&
+&2.5230E+00_JPRB,2.1562E+00_JPRB,1.5648E+00_JPRB/)
+KAO( :, 1,11,10) = (/&
+&2.4512E+00_JPRB,2.4863E+00_JPRB,2.4335E+00_JPRB,2.3107E+00_JPRB,2.1733E+00_JPRB,1.9977E+00_JPRB,&
+&1.7582E+00_JPRB,1.4416E+00_JPRB,8.5970E-01_JPRB/)
+KAO( :, 2,11,10) = (/&
+&2.5092E+00_JPRB,2.5823E+00_JPRB,2.5374E+00_JPRB,2.4481E+00_JPRB,2.3213E+00_JPRB,2.1404E+00_JPRB,&
+&1.9153E+00_JPRB,1.5898E+00_JPRB,9.9211E-01_JPRB/)
+KAO( :, 3,11,10) = (/&
+&2.5638E+00_JPRB,2.6670E+00_JPRB,2.6481E+00_JPRB,2.5840E+00_JPRB,2.4592E+00_JPRB,2.2850E+00_JPRB,&
+&2.0595E+00_JPRB,1.7358E+00_JPRB,1.1287E+00_JPRB/)
+KAO( :, 4,11,10) = (/&
+&2.6180E+00_JPRB,2.7488E+00_JPRB,2.7545E+00_JPRB,2.7101E+00_JPRB,2.5960E+00_JPRB,2.4226E+00_JPRB,&
+&2.2050E+00_JPRB,1.8751E+00_JPRB,1.2713E+00_JPRB/)
+KAO( :, 5,11,10) = (/&
+&2.6708E+00_JPRB,2.8308E+00_JPRB,2.8655E+00_JPRB,2.8311E+00_JPRB,2.7233E+00_JPRB,2.5640E+00_JPRB,&
+&2.3410E+00_JPRB,2.0028E+00_JPRB,1.4162E+00_JPRB/)
+KAO( :, 1,12,10) = (/&
+&2.2798E+00_JPRB,2.3643E+00_JPRB,2.3131E+00_JPRB,2.2090E+00_JPRB,2.0595E+00_JPRB,1.8678E+00_JPRB,&
+&1.6491E+00_JPRB,1.3284E+00_JPRB,7.5824E-01_JPRB/)
+KAO( :, 2,12,10) = (/&
+&2.3366E+00_JPRB,2.4475E+00_JPRB,2.4167E+00_JPRB,2.3329E+00_JPRB,2.1840E+00_JPRB,2.0081E+00_JPRB,&
+&1.7907E+00_JPRB,1.4613E+00_JPRB,8.7475E-01_JPRB/)
+KAO( :, 3,12,10) = (/&
+&2.3890E+00_JPRB,2.5244E+00_JPRB,2.5206E+00_JPRB,2.4421E+00_JPRB,2.3136E+00_JPRB,2.1465E+00_JPRB,&
+&1.9227E+00_JPRB,1.5932E+00_JPRB,9.9953E-01_JPRB/)
+KAO( :, 4,12,10) = (/&
+&2.4374E+00_JPRB,2.6016E+00_JPRB,2.6217E+00_JPRB,2.5543E+00_JPRB,2.4367E+00_JPRB,2.2813E+00_JPRB,&
+&2.0490E+00_JPRB,1.7139E+00_JPRB,1.1310E+00_JPRB/)
+KAO( :, 5,12,10) = (/&
+&2.4838E+00_JPRB,2.6702E+00_JPRB,2.7195E+00_JPRB,2.6584E+00_JPRB,2.5615E+00_JPRB,2.4117E+00_JPRB,&
+&2.1613E+00_JPRB,1.8334E+00_JPRB,1.2595E+00_JPRB/)
+KAO( :, 1,13,10) = (/&
+&2.0791E+00_JPRB,2.1960E+00_JPRB,2.1642E+00_JPRB,2.0798E+00_JPRB,1.9340E+00_JPRB,1.7492E+00_JPRB,&
+&1.5316E+00_JPRB,1.2117E+00_JPRB,6.7239E-01_JPRB/)
+KAO( :, 2,13,10) = (/&
+&2.1335E+00_JPRB,2.2729E+00_JPRB,2.2653E+00_JPRB,2.1865E+00_JPRB,2.0515E+00_JPRB,1.8780E+00_JPRB,&
+&1.6557E+00_JPRB,1.3290E+00_JPRB,7.8385E-01_JPRB/)
+KAO( :, 3,13,10) = (/&
+&2.1832E+00_JPRB,2.3472E+00_JPRB,2.3626E+00_JPRB,2.2909E+00_JPRB,2.1703E+00_JPRB,1.9998E+00_JPRB,&
+&1.7751E+00_JPRB,1.4395E+00_JPRB,8.9988E-01_JPRB/)
+KAO( :, 4,13,10) = (/&
+&2.2317E+00_JPRB,2.4190E+00_JPRB,2.4536E+00_JPRB,2.3945E+00_JPRB,2.2843E+00_JPRB,2.1191E+00_JPRB,&
+&1.8849E+00_JPRB,1.5486E+00_JPRB,1.0181E+00_JPRB/)
+KAO( :, 5,13,10) = (/&
+&2.2928E+00_JPRB,2.4912E+00_JPRB,2.5411E+00_JPRB,2.4970E+00_JPRB,2.3950E+00_JPRB,2.2262E+00_JPRB,&
+&1.9945E+00_JPRB,1.6570E+00_JPRB,1.1340E+00_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&5.1188E+00_JPRB,4.4962E+00_JPRB,4.1898E+00_JPRB,4.1232E+00_JPRB,3.8282E+00_JPRB,3.7520E+00_JPRB,&
+&3.8632E+00_JPRB,3.7314E+00_JPRB,4.2299E+00_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&5.2357E+00_JPRB,4.6021E+00_JPRB,4.3195E+00_JPRB,4.2578E+00_JPRB,3.9916E+00_JPRB,3.9872E+00_JPRB,&
+&4.0538E+00_JPRB,3.9583E+00_JPRB,4.4896E+00_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&5.3431E+00_JPRB,4.6995E+00_JPRB,4.4290E+00_JPRB,4.3921E+00_JPRB,4.1757E+00_JPRB,4.2052E+00_JPRB,&
+&4.1799E+00_JPRB,4.1518E+00_JPRB,4.7182E+00_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&5.4410E+00_JPRB,4.7855E+00_JPRB,4.5302E+00_JPRB,4.5043E+00_JPRB,4.3792E+00_JPRB,4.3589E+00_JPRB,&
+&4.2659E+00_JPRB,4.3498E+00_JPRB,4.9265E+00_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&5.5309E+00_JPRB,4.8636E+00_JPRB,4.6308E+00_JPRB,4.6226E+00_JPRB,4.5553E+00_JPRB,4.4731E+00_JPRB,&
+&4.3313E+00_JPRB,4.5563E+00_JPRB,5.1476E+00_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&5.3830E+00_JPRB,4.7598E+00_JPRB,4.5038E+00_JPRB,4.4124E+00_JPRB,4.1256E+00_JPRB,3.9352E+00_JPRB,&
+&3.9288E+00_JPRB,3.6529E+00_JPRB,4.1533E+00_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&5.5093E+00_JPRB,4.8746E+00_JPRB,4.6320E+00_JPRB,4.5446E+00_JPRB,4.3075E+00_JPRB,4.1643E+00_JPRB,&
+&4.1158E+00_JPRB,3.8793E+00_JPRB,4.4270E+00_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&5.6175E+00_JPRB,4.9740E+00_JPRB,4.7438E+00_JPRB,4.6765E+00_JPRB,4.5041E+00_JPRB,4.3624E+00_JPRB,&
+&4.2461E+00_JPRB,4.1118E+00_JPRB,4.6851E+00_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&5.7157E+00_JPRB,5.0593E+00_JPRB,4.8530E+00_JPRB,4.7924E+00_JPRB,4.7291E+00_JPRB,4.5102E+00_JPRB,&
+&4.3461E+00_JPRB,4.3454E+00_JPRB,4.9401E+00_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&5.8004E+00_JPRB,5.1349E+00_JPRB,4.9550E+00_JPRB,4.9255E+00_JPRB,4.9201E+00_JPRB,4.6238E+00_JPRB,&
+&4.4516E+00_JPRB,4.5890E+00_JPRB,5.2057E+00_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&5.5164E+00_JPRB,4.9212E+00_JPRB,4.7297E+00_JPRB,4.6037E+00_JPRB,4.3740E+00_JPRB,4.1348E+00_JPRB,&
+&3.8407E+00_JPRB,3.5074E+00_JPRB,3.9068E+00_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&5.6457E+00_JPRB,5.0403E+00_JPRB,4.8708E+00_JPRB,4.7481E+00_JPRB,4.5713E+00_JPRB,4.3408E+00_JPRB,&
+&4.0590E+00_JPRB,3.7279E+00_JPRB,4.2270E+00_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&5.7648E+00_JPRB,5.1472E+00_JPRB,4.9917E+00_JPRB,4.8917E+00_JPRB,4.7668E+00_JPRB,4.5432E+00_JPRB,&
+&4.2248E+00_JPRB,3.9671E+00_JPRB,4.5272E+00_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&5.8726E+00_JPRB,5.2450E+00_JPRB,5.1073E+00_JPRB,5.0262E+00_JPRB,4.9765E+00_JPRB,4.7078E+00_JPRB,&
+&4.3673E+00_JPRB,4.2265E+00_JPRB,4.8206E+00_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&5.9741E+00_JPRB,5.3354E+00_JPRB,5.2185E+00_JPRB,5.1809E+00_JPRB,5.1510E+00_JPRB,4.8375E+00_JPRB,&
+&4.4951E+00_JPRB,4.4978E+00_JPRB,5.1274E+00_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&5.5586E+00_JPRB,4.9938E+00_JPRB,4.8775E+00_JPRB,4.7228E+00_JPRB,4.5678E+00_JPRB,4.2888E+00_JPRB,&
+&3.7572E+00_JPRB,3.3686E+00_JPRB,3.6371E+00_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&5.7048E+00_JPRB,5.1254E+00_JPRB,5.0246E+00_JPRB,4.8865E+00_JPRB,4.7638E+00_JPRB,4.4945E+00_JPRB,&
+&3.9733E+00_JPRB,3.5886E+00_JPRB,3.9962E+00_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&5.8381E+00_JPRB,5.2468E+00_JPRB,5.1587E+00_JPRB,5.0517E+00_JPRB,4.9564E+00_JPRB,4.6974E+00_JPRB,&
+&4.1859E+00_JPRB,3.8140E+00_JPRB,4.3209E+00_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&5.9605E+00_JPRB,5.3609E+00_JPRB,5.2847E+00_JPRB,5.2114E+00_JPRB,5.1284E+00_JPRB,4.8993E+00_JPRB,&
+&4.3580E+00_JPRB,4.0704E+00_JPRB,4.6439E+00_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&6.0637E+00_JPRB,5.4599E+00_JPRB,5.4065E+00_JPRB,5.3711E+00_JPRB,5.2958E+00_JPRB,5.0595E+00_JPRB,&
+&4.5112E+00_JPRB,4.3517E+00_JPRB,4.9660E+00_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&5.5140E+00_JPRB,4.9813E+00_JPRB,4.9335E+00_JPRB,4.7913E+00_JPRB,4.6774E+00_JPRB,4.3710E+00_JPRB,&
+&3.7530E+00_JPRB,3.2477E+00_JPRB,3.3634E+00_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&5.6664E+00_JPRB,5.1255E+00_JPRB,5.1035E+00_JPRB,4.9717E+00_JPRB,4.8774E+00_JPRB,4.5859E+00_JPRB,&
+&3.9668E+00_JPRB,3.4677E+00_JPRB,3.7405E+00_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&5.8011E+00_JPRB,5.2612E+00_JPRB,5.2545E+00_JPRB,5.1514E+00_JPRB,5.0632E+00_JPRB,4.7735E+00_JPRB,&
+&4.2022E+00_JPRB,3.6795E+00_JPRB,4.0879E+00_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&5.9195E+00_JPRB,5.3879E+00_JPRB,5.3990E+00_JPRB,5.3253E+00_JPRB,5.2340E+00_JPRB,4.9702E+00_JPRB,&
+&4.4129E+00_JPRB,3.9016E+00_JPRB,4.4176E+00_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&6.0324E+00_JPRB,5.5030E+00_JPRB,5.5351E+00_JPRB,5.4951E+00_JPRB,5.4012E+00_JPRB,5.1456E+00_JPRB,&
+&4.5860E+00_JPRB,4.1610E+00_JPRB,4.7497E+00_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&5.3460E+00_JPRB,4.8907E+00_JPRB,4.9037E+00_JPRB,4.7959E+00_JPRB,4.6720E+00_JPRB,4.3428E+00_JPRB,&
+&3.7532E+00_JPRB,3.0728E+00_JPRB,3.0483E+00_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&5.5016E+00_JPRB,5.0576E+00_JPRB,5.0845E+00_JPRB,4.9968E+00_JPRB,4.8768E+00_JPRB,4.5629E+00_JPRB,&
+&3.9805E+00_JPRB,3.3257E+00_JPRB,3.4138E+00_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&5.6458E+00_JPRB,5.2128E+00_JPRB,5.2471E+00_JPRB,5.1892E+00_JPRB,5.0839E+00_JPRB,4.7513E+00_JPRB,&
+&4.2341E+00_JPRB,3.5158E+00_JPRB,3.7567E+00_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&5.7776E+00_JPRB,5.3547E+00_JPRB,5.4002E+00_JPRB,5.3806E+00_JPRB,5.2566E+00_JPRB,4.9480E+00_JPRB,&
+&4.4656E+00_JPRB,3.7111E+00_JPRB,4.0913E+00_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&5.8886E+00_JPRB,5.4776E+00_JPRB,5.5415E+00_JPRB,5.5583E+00_JPRB,5.4285E+00_JPRB,5.1330E+00_JPRB,&
+&4.6590E+00_JPRB,3.9360E+00_JPRB,4.4349E+00_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&5.0900E+00_JPRB,4.7460E+00_JPRB,4.7704E+00_JPRB,4.7424E+00_JPRB,4.5661E+00_JPRB,4.2208E+00_JPRB,&
+&3.7025E+00_JPRB,2.9233E+00_JPRB,2.7128E+00_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&5.2495E+00_JPRB,4.9306E+00_JPRB,4.9678E+00_JPRB,4.9514E+00_JPRB,4.7835E+00_JPRB,4.4516E+00_JPRB,&
+&3.9503E+00_JPRB,3.1699E+00_JPRB,3.0368E+00_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&5.3908E+00_JPRB,5.0938E+00_JPRB,5.1429E+00_JPRB,5.1559E+00_JPRB,4.9966E+00_JPRB,4.6413E+00_JPRB,&
+&4.2020E+00_JPRB,3.3718E+00_JPRB,3.3561E+00_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&5.5155E+00_JPRB,5.2363E+00_JPRB,5.3032E+00_JPRB,5.3596E+00_JPRB,5.1777E+00_JPRB,4.8555E+00_JPRB,&
+&4.4333E+00_JPRB,3.5353E+00_JPRB,3.6838E+00_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&5.6325E+00_JPRB,5.3617E+00_JPRB,5.4630E+00_JPRB,5.5298E+00_JPRB,5.3705E+00_JPRB,5.0766E+00_JPRB,&
+&4.6290E+00_JPRB,3.7252E+00_JPRB,4.0295E+00_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&4.7924E+00_JPRB,4.5440E+00_JPRB,4.5871E+00_JPRB,4.5972E+00_JPRB,4.3821E+00_JPRB,4.0282E+00_JPRB,&
+&3.5782E+00_JPRB,2.8267E+00_JPRB,2.3643E+00_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&4.9458E+00_JPRB,4.7238E+00_JPRB,4.7983E+00_JPRB,4.8145E+00_JPRB,4.6002E+00_JPRB,4.2694E+00_JPRB,&
+&3.8266E+00_JPRB,3.0607E+00_JPRB,2.6625E+00_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&5.0872E+00_JPRB,4.8848E+00_JPRB,4.9881E+00_JPRB,5.0206E+00_JPRB,4.8258E+00_JPRB,4.4891E+00_JPRB,&
+&4.0830E+00_JPRB,3.2647E+00_JPRB,2.9566E+00_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&5.2177E+00_JPRB,5.0262E+00_JPRB,5.1648E+00_JPRB,5.2193E+00_JPRB,5.0190E+00_JPRB,4.7309E+00_JPRB,&
+&4.3124E+00_JPRB,3.4443E+00_JPRB,3.2673E+00_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&5.3303E+00_JPRB,5.1466E+00_JPRB,5.3381E+00_JPRB,5.3870E+00_JPRB,5.2200E+00_JPRB,4.9620E+00_JPRB,&
+&4.5031E+00_JPRB,3.6204E+00_JPRB,3.6052E+00_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&4.5347E+00_JPRB,4.3328E+00_JPRB,4.3689E+00_JPRB,4.3513E+00_JPRB,4.1174E+00_JPRB,3.7868E+00_JPRB,&
+&3.3737E+00_JPRB,2.7015E+00_JPRB,2.0218E+00_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&4.6866E+00_JPRB,4.5049E+00_JPRB,4.5898E+00_JPRB,4.5628E+00_JPRB,4.3507E+00_JPRB,4.0425E+00_JPRB,&
+&3.6252E+00_JPRB,2.9347E+00_JPRB,2.3048E+00_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&4.8251E+00_JPRB,4.6663E+00_JPRB,4.7848E+00_JPRB,4.7704E+00_JPRB,4.5826E+00_JPRB,4.2849E+00_JPRB,&
+&3.8759E+00_JPRB,3.1451E+00_JPRB,2.5879E+00_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&4.9503E+00_JPRB,4.8087E+00_JPRB,4.9642E+00_JPRB,4.9727E+00_JPRB,4.7915E+00_JPRB,4.5387E+00_JPRB,&
+&4.1015E+00_JPRB,3.3321E+00_JPRB,2.8859E+00_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&5.0642E+00_JPRB,4.9400E+00_JPRB,5.1410E+00_JPRB,5.1452E+00_JPRB,5.0116E+00_JPRB,4.7755E+00_JPRB,&
+&4.3020E+00_JPRB,3.5123E+00_JPRB,3.1955E+00_JPRB/)
+KAO( :, 1,10,11) = (/&
+&4.3141E+00_JPRB,4.1481E+00_JPRB,4.1872E+00_JPRB,4.0732E+00_JPRB,3.8258E+00_JPRB,3.5260E+00_JPRB,&
+&3.1443E+00_JPRB,2.5485E+00_JPRB,1.7391E+00_JPRB/)
+KAO( :, 2,10,11) = (/&
+&4.4657E+00_JPRB,4.3291E+00_JPRB,4.4068E+00_JPRB,4.2778E+00_JPRB,4.0645E+00_JPRB,3.7865E+00_JPRB,&
+&3.3989E+00_JPRB,2.7666E+00_JPRB,2.0042E+00_JPRB/)
+KAO( :, 3,10,11) = (/&
+&4.6073E+00_JPRB,4.4901E+00_JPRB,4.5937E+00_JPRB,4.4815E+00_JPRB,4.3022E+00_JPRB,4.0396E+00_JPRB,&
+&3.6341E+00_JPRB,2.9783E+00_JPRB,2.2696E+00_JPRB/)
+KAO( :, 4,10,11) = (/&
+&4.7332E+00_JPRB,4.6441E+00_JPRB,4.7670E+00_JPRB,4.6811E+00_JPRB,4.5263E+00_JPRB,4.2880E+00_JPRB,&
+&3.8564E+00_JPRB,3.1687E+00_JPRB,2.5448E+00_JPRB/)
+KAO( :, 5,10,11) = (/&
+&4.8482E+00_JPRB,4.7816E+00_JPRB,4.9366E+00_JPRB,4.8606E+00_JPRB,4.7563E+00_JPRB,4.5121E+00_JPRB,&
+&4.0582E+00_JPRB,3.3600E+00_JPRB,2.8205E+00_JPRB/)
+KAO( :, 1,11,11) = (/&
+&4.1814E+00_JPRB,4.0541E+00_JPRB,4.0844E+00_JPRB,3.9070E+00_JPRB,3.6510E+00_JPRB,3.3593E+00_JPRB,&
+&3.0020E+00_JPRB,2.4435E+00_JPRB,1.5974E+00_JPRB/)
+KAO( :, 2,11,11) = (/&
+&4.3118E+00_JPRB,4.2274E+00_JPRB,4.2869E+00_JPRB,4.1141E+00_JPRB,3.8852E+00_JPRB,3.6134E+00_JPRB,&
+&3.2400E+00_JPRB,2.6533E+00_JPRB,1.8419E+00_JPRB/)
+KAO( :, 3,11,11) = (/&
+&4.4319E+00_JPRB,4.3935E+00_JPRB,4.4651E+00_JPRB,4.3182E+00_JPRB,4.1137E+00_JPRB,3.8517E+00_JPRB,&
+&3.4603E+00_JPRB,2.8608E+00_JPRB,2.0902E+00_JPRB/)
+KAO( :, 4,11,11) = (/&
+&4.5390E+00_JPRB,4.5400E+00_JPRB,4.6448E+00_JPRB,4.5087E+00_JPRB,4.3372E+00_JPRB,4.0750E+00_JPRB,&
+&3.6707E+00_JPRB,3.0507E+00_JPRB,2.3393E+00_JPRB/)
+KAO( :, 5,11,11) = (/&
+&4.6299E+00_JPRB,4.6729E+00_JPRB,4.7998E+00_JPRB,4.6995E+00_JPRB,4.5508E+00_JPRB,4.2784E+00_JPRB,&
+&3.8764E+00_JPRB,3.2454E+00_JPRB,2.5677E+00_JPRB/)
+KAO( :, 1,12,11) = (/&
+&4.0099E+00_JPRB,3.9422E+00_JPRB,3.9403E+00_JPRB,3.7407E+00_JPRB,3.4918E+00_JPRB,3.1976E+00_JPRB,&
+&2.8203E+00_JPRB,2.3020E+00_JPRB,1.4455E+00_JPRB/)
+KAO( :, 2,12,11) = (/&
+&4.1176E+00_JPRB,4.1055E+00_JPRB,4.1224E+00_JPRB,3.9486E+00_JPRB,3.7245E+00_JPRB,3.4270E+00_JPRB,&
+&3.0337E+00_JPRB,2.5124E+00_JPRB,1.6679E+00_JPRB/)
+KAO( :, 3,12,11) = (/&
+&4.2129E+00_JPRB,4.2545E+00_JPRB,4.2966E+00_JPRB,4.1603E+00_JPRB,3.9419E+00_JPRB,3.6332E+00_JPRB,&
+&3.2538E+00_JPRB,2.7031E+00_JPRB,1.8904E+00_JPRB/)
+KAO( :, 4,12,11) = (/&
+&4.2979E+00_JPRB,4.3881E+00_JPRB,4.4616E+00_JPRB,4.3568E+00_JPRB,4.1443E+00_JPRB,3.8364E+00_JPRB,&
+&3.4615E+00_JPRB,2.8971E+00_JPRB,2.1003E+00_JPRB/)
+KAO( :, 5,12,11) = (/&
+&4.3757E+00_JPRB,4.5140E+00_JPRB,4.6083E+00_JPRB,4.5481E+00_JPRB,4.3321E+00_JPRB,4.0278E+00_JPRB,&
+&3.6672E+00_JPRB,3.0746E+00_JPRB,2.3111E+00_JPRB/)
+KAO( :, 1,13,11) = (/&
+&3.8115E+00_JPRB,3.8123E+00_JPRB,3.7564E+00_JPRB,3.5672E+00_JPRB,3.3321E+00_JPRB,3.0260E+00_JPRB,&
+&2.6276E+00_JPRB,2.1465E+00_JPRB,1.2822E+00_JPRB/)
+KAO( :, 2,13,11) = (/&
+&3.9006E+00_JPRB,3.9563E+00_JPRB,3.9216E+00_JPRB,3.7726E+00_JPRB,3.5504E+00_JPRB,3.2297E+00_JPRB,&
+&2.8365E+00_JPRB,2.3385E+00_JPRB,1.4776E+00_JPRB/)
+KAO( :, 3,13,11) = (/&
+&3.9788E+00_JPRB,4.0838E+00_JPRB,4.0868E+00_JPRB,3.9664E+00_JPRB,3.7467E+00_JPRB,3.4326E+00_JPRB,&
+&3.0397E+00_JPRB,2.5221E+00_JPRB,1.6670E+00_JPRB/)
+KAO( :, 4,13,11) = (/&
+&4.0518E+00_JPRB,4.2003E+00_JPRB,4.2397E+00_JPRB,4.1476E+00_JPRB,3.9371E+00_JPRB,3.6284E+00_JPRB,&
+&3.2340E+00_JPRB,2.6989E+00_JPRB,1.8578E+00_JPRB/)
+KAO( :, 5,13,11) = (/&
+&4.1173E+00_JPRB,4.3105E+00_JPRB,4.3846E+00_JPRB,4.3176E+00_JPRB,4.1129E+00_JPRB,3.8156E+00_JPRB,&
+&3.4246E+00_JPRB,2.8636E+00_JPRB,2.0525E+00_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&7.0750E+00_JPRB,6.1912E+00_JPRB,5.5399E+00_JPRB,5.3350E+00_JPRB,5.4706E+00_JPRB,5.3762E+00_JPRB,&
+&5.1145E+00_JPRB,5.3782E+00_JPRB,6.0148E+00_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&7.2687E+00_JPRB,6.3607E+00_JPRB,5.6891E+00_JPRB,5.4701E+00_JPRB,5.6126E+00_JPRB,5.5473E+00_JPRB,&
+&5.2734E+00_JPRB,5.8115E+00_JPRB,6.4886E+00_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&7.4429E+00_JPRB,6.5131E+00_JPRB,5.8367E+00_JPRB,5.5928E+00_JPRB,5.7515E+00_JPRB,5.7097E+00_JPRB,&
+&5.5260E+00_JPRB,6.2806E+00_JPRB,6.9951E+00_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&7.6028E+00_JPRB,6.6530E+00_JPRB,5.9756E+00_JPRB,5.7243E+00_JPRB,5.8730E+00_JPRB,5.9264E+00_JPRB,&
+&5.8242E+00_JPRB,6.7348E+00_JPRB,7.5240E+00_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&7.7448E+00_JPRB,6.7771E+00_JPRB,6.1045E+00_JPRB,5.8318E+00_JPRB,6.0223E+00_JPRB,6.1431E+00_JPRB,&
+&6.1145E+00_JPRB,7.1272E+00_JPRB,7.9899E+00_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&7.7545E+00_JPRB,6.7857E+00_JPRB,6.1014E+00_JPRB,5.8641E+00_JPRB,5.6627E+00_JPRB,5.4924E+00_JPRB,&
+&5.3064E+00_JPRB,5.5478E+00_JPRB,6.2448E+00_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&7.9626E+00_JPRB,6.9679E+00_JPRB,6.2884E+00_JPRB,6.0331E+00_JPRB,5.8184E+00_JPRB,5.6805E+00_JPRB,&
+&5.5037E+00_JPRB,5.9946E+00_JPRB,6.7468E+00_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&8.1571E+00_JPRB,7.1382E+00_JPRB,6.4613E+00_JPRB,6.1841E+00_JPRB,5.9708E+00_JPRB,5.8941E+00_JPRB,&
+&5.7532E+00_JPRB,6.4635E+00_JPRB,7.2816E+00_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&8.3326E+00_JPRB,7.2918E+00_JPRB,6.6225E+00_JPRB,6.3365E+00_JPRB,6.0835E+00_JPRB,6.1383E+00_JPRB,&
+&6.0067E+00_JPRB,6.8804E+00_JPRB,7.7820E+00_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&8.4888E+00_JPRB,7.4285E+00_JPRB,6.7684E+00_JPRB,6.4625E+00_JPRB,6.2260E+00_JPRB,6.3461E+00_JPRB,&
+&6.2452E+00_JPRB,7.2451E+00_JPRB,8.2111E+00_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&8.3602E+00_JPRB,7.3163E+00_JPRB,6.6388E+00_JPRB,6.3825E+00_JPRB,5.9192E+00_JPRB,5.5791E+00_JPRB,&
+&5.5047E+00_JPRB,5.5786E+00_JPRB,6.3479E+00_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&8.5890E+00_JPRB,7.5183E+00_JPRB,6.8453E+00_JPRB,6.5628E+00_JPRB,6.0922E+00_JPRB,5.8078E+00_JPRB,&
+&5.7041E+00_JPRB,6.0248E+00_JPRB,6.8536E+00_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&8.7942E+00_JPRB,7.6989E+00_JPRB,7.0385E+00_JPRB,6.7230E+00_JPRB,6.2576E+00_JPRB,6.0242E+00_JPRB,&
+&5.9018E+00_JPRB,6.4818E+00_JPRB,7.3747E+00_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&8.9740E+00_JPRB,7.8579E+00_JPRB,7.2067E+00_JPRB,6.8812E+00_JPRB,6.4038E+00_JPRB,6.2630E+00_JPRB,&
+&6.1272E+00_JPRB,6.9158E+00_JPRB,7.8669E+00_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&9.1236E+00_JPRB,7.9895E+00_JPRB,7.3566E+00_JPRB,7.0154E+00_JPRB,6.5927E+00_JPRB,6.4547E+00_JPRB,&
+&6.3294E+00_JPRB,7.2767E+00_JPRB,8.2820E+00_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&8.8847E+00_JPRB,7.7960E+00_JPRB,7.1075E+00_JPRB,6.8009E+00_JPRB,6.2444E+00_JPRB,5.7477E+00_JPRB,&
+&5.6301E+00_JPRB,5.4141E+00_JPRB,6.1834E+00_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&9.1116E+00_JPRB,7.9999E+00_JPRB,7.3356E+00_JPRB,7.0007E+00_JPRB,6.4482E+00_JPRB,5.9737E+00_JPRB,&
+&5.8408E+00_JPRB,5.8678E+00_JPRB,6.6961E+00_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&9.3094E+00_JPRB,8.1759E+00_JPRB,7.5373E+00_JPRB,7.1726E+00_JPRB,6.6509E+00_JPRB,6.2012E+00_JPRB,&
+&5.9911E+00_JPRB,6.3277E+00_JPRB,7.2196E+00_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&9.4683E+00_JPRB,8.3188E+00_JPRB,7.7174E+00_JPRB,7.3409E+00_JPRB,6.8481E+00_JPRB,6.3961E+00_JPRB,&
+&6.1664E+00_JPRB,6.7597E+00_JPRB,7.7146E+00_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&9.6042E+00_JPRB,8.4435E+00_JPRB,7.8581E+00_JPRB,7.4916E+00_JPRB,7.0560E+00_JPRB,6.5810E+00_JPRB,&
+&6.3225E+00_JPRB,7.1406E+00_JPRB,8.1513E+00_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&9.2292E+00_JPRB,8.1377E+00_JPRB,7.4945E+00_JPRB,7.1495E+00_JPRB,6.5484E+00_JPRB,5.9913E+00_JPRB,&
+&5.6165E+00_JPRB,5.1149E+00_JPRB,5.8309E+00_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&9.4577E+00_JPRB,8.3475E+00_JPRB,7.7472E+00_JPRB,7.3686E+00_JPRB,6.7878E+00_JPRB,6.2469E+00_JPRB,&
+&5.8285E+00_JPRB,5.5605E+00_JPRB,6.3475E+00_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&9.6601E+00_JPRB,8.5348E+00_JPRB,7.9661E+00_JPRB,7.5611E+00_JPRB,7.0335E+00_JPRB,6.4923E+00_JPRB,&
+&5.9827E+00_JPRB,5.9978E+00_JPRB,6.8470E+00_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&9.8370E+00_JPRB,8.6956E+00_JPRB,8.1396E+00_JPRB,7.7502E+00_JPRB,7.2566E+00_JPRB,6.6903E+00_JPRB,&
+&6.1155E+00_JPRB,6.4492E+00_JPRB,7.3614E+00_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&9.9720E+00_JPRB,8.8165E+00_JPRB,8.2799E+00_JPRB,7.9327E+00_JPRB,7.4895E+00_JPRB,6.8872E+00_JPRB,&
+&6.2655E+00_JPRB,6.8604E+00_JPRB,7.8326E+00_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&9.4228E+00_JPRB,8.3583E+00_JPRB,7.7791E+00_JPRB,7.3895E+00_JPRB,6.8260E+00_JPRB,6.2621E+00_JPRB,&
+&5.5219E+00_JPRB,4.8043E+00_JPRB,5.3717E+00_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&9.6680E+00_JPRB,8.5862E+00_JPRB,8.0441E+00_JPRB,7.6459E+00_JPRB,7.1022E+00_JPRB,6.5301E+00_JPRB,&
+&5.7540E+00_JPRB,5.1597E+00_JPRB,5.8750E+00_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&9.8647E+00_JPRB,8.7696E+00_JPRB,8.2709E+00_JPRB,7.8751E+00_JPRB,7.3582E+00_JPRB,6.7963E+00_JPRB,&
+&5.9278E+00_JPRB,5.6000E+00_JPRB,6.3870E+00_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&1.0026E+01_JPRB,8.9182E+00_JPRB,8.4588E+00_JPRB,8.0791E+00_JPRB,7.6205E+00_JPRB,7.0216E+00_JPRB,&
+&6.0965E+00_JPRB,6.0596E+00_JPRB,6.9174E+00_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&1.0167E+01_JPRB,9.0497E+00_JPRB,8.6148E+00_JPRB,8.2660E+00_JPRB,7.8544E+00_JPRB,7.2260E+00_JPRB,&
+&6.2428E+00_JPRB,6.4815E+00_JPRB,7.4016E+00_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&9.4277E+00_JPRB,8.4150E+00_JPRB,7.9357E+00_JPRB,7.5305E+00_JPRB,7.0405E+00_JPRB,6.4321E+00_JPRB,&
+&5.4684E+00_JPRB,4.5169E+00_JPRB,4.8723E+00_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&9.6610E+00_JPRB,8.6378E+00_JPRB,8.2182E+00_JPRB,7.8169E+00_JPRB,7.3595E+00_JPRB,6.7122E+00_JPRB,&
+&5.7318E+00_JPRB,4.8302E+00_JPRB,5.4033E+00_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&9.8776E+00_JPRB,8.8386E+00_JPRB,8.4643E+00_JPRB,8.0697E+00_JPRB,7.6404E+00_JPRB,7.0024E+00_JPRB,&
+&5.9545E+00_JPRB,5.2084E+00_JPRB,5.9332E+00_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&1.0065E+01_JPRB,9.0111E+00_JPRB,8.6669E+00_JPRB,8.2878E+00_JPRB,7.9176E+00_JPRB,7.2460E+00_JPRB,&
+&6.1780E+00_JPRB,5.6640E+00_JPRB,6.4647E+00_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&1.0201E+01_JPRB,9.1389E+00_JPRB,8.8345E+00_JPRB,8.5103E+00_JPRB,8.1626E+00_JPRB,7.4581E+00_JPRB,&
+&6.4020E+00_JPRB,6.0910E+00_JPRB,6.9537E+00_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&9.2811E+00_JPRB,8.3345E+00_JPRB,7.9563E+00_JPRB,7.5592E+00_JPRB,7.1819E+00_JPRB,6.4953E+00_JPRB,&
+&5.4582E+00_JPRB,4.2950E+00_JPRB,4.3920E+00_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&9.5392E+00_JPRB,8.5773E+00_JPRB,8.2536E+00_JPRB,7.8937E+00_JPRB,7.5195E+00_JPRB,6.7954E+00_JPRB,&
+&5.7637E+00_JPRB,4.5610E+00_JPRB,4.9202E+00_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&9.7485E+00_JPRB,8.7863E+00_JPRB,8.5113E+00_JPRB,8.1791E+00_JPRB,7.8003E+00_JPRB,7.1017E+00_JPRB,&
+&6.0337E+00_JPRB,4.8844E+00_JPRB,5.4469E+00_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&9.9204E+00_JPRB,8.9649E+00_JPRB,8.7333E+00_JPRB,8.4326E+00_JPRB,8.0879E+00_JPRB,7.3644E+00_JPRB,&
+&6.2970E+00_JPRB,5.2617E+00_JPRB,5.9740E+00_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&1.0071E+01_JPRB,9.1243E+00_JPRB,8.9157E+00_JPRB,8.6785E+00_JPRB,8.3414E+00_JPRB,7.5947E+00_JPRB,&
+&6.5710E+00_JPRB,5.6445E+00_JPRB,6.4414E+00_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&8.9609E+00_JPRB,8.1123E+00_JPRB,7.8302E+00_JPRB,7.5091E+00_JPRB,7.1654E+00_JPRB,6.4417E+00_JPRB,&
+&5.3958E+00_JPRB,4.1476E+00_JPRB,3.9139E+00_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&9.2116E+00_JPRB,8.3782E+00_JPRB,8.1493E+00_JPRB,7.8784E+00_JPRB,7.5112E+00_JPRB,6.7501E+00_JPRB,&
+&5.7326E+00_JPRB,4.3938E+00_JPRB,4.4110E+00_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&9.4264E+00_JPRB,8.6064E+00_JPRB,8.4239E+00_JPRB,8.1936E+00_JPRB,7.8020E+00_JPRB,7.0726E+00_JPRB,&
+&6.0450E+00_JPRB,4.6670E+00_JPRB,4.9111E+00_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&9.6121E+00_JPRB,8.8121E+00_JPRB,8.6565E+00_JPRB,8.4692E+00_JPRB,8.1000E+00_JPRB,7.3553E+00_JPRB,&
+&6.3481E+00_JPRB,4.9681E+00_JPRB,5.3926E+00_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&9.7546E+00_JPRB,8.9755E+00_JPRB,8.8628E+00_JPRB,8.7297E+00_JPRB,8.3623E+00_JPRB,7.6149E+00_JPRB,&
+&6.6558E+00_JPRB,5.2826E+00_JPRB,5.8453E+00_JPRB/)
+KAO( :, 1,10,12) = (/&
+&8.5361E+00_JPRB,7.8147E+00_JPRB,7.5979E+00_JPRB,7.3794E+00_JPRB,7.0310E+00_JPRB,6.2793E+00_JPRB,&
+&5.2791E+00_JPRB,4.0318E+00_JPRB,3.4661E+00_JPRB/)
+KAO( :, 2,10,12) = (/&
+&8.7722E+00_JPRB,8.0890E+00_JPRB,7.9244E+00_JPRB,7.7654E+00_JPRB,7.3651E+00_JPRB,6.6087E+00_JPRB,&
+&5.6393E+00_JPRB,4.3325E+00_JPRB,3.9297E+00_JPRB/)
+KAO( :, 3,10,12) = (/&
+&8.9854E+00_JPRB,8.3416E+00_JPRB,8.2149E+00_JPRB,8.1092E+00_JPRB,7.6681E+00_JPRB,6.9412E+00_JPRB,&
+&5.9891E+00_JPRB,4.5941E+00_JPRB,4.3794E+00_JPRB/)
+KAO( :, 4,10,12) = (/&
+&9.1549E+00_JPRB,8.5424E+00_JPRB,8.4801E+00_JPRB,8.3931E+00_JPRB,7.9670E+00_JPRB,7.2576E+00_JPRB,&
+&6.3219E+00_JPRB,4.8394E+00_JPRB,4.8247E+00_JPRB/)
+KAO( :, 5,10,12) = (/&
+&9.2930E+00_JPRB,8.7150E+00_JPRB,8.6983E+00_JPRB,8.6747E+00_JPRB,8.2356E+00_JPRB,7.5515E+00_JPRB,&
+&6.6530E+00_JPRB,5.0978E+00_JPRB,5.2580E+00_JPRB/)
+KAO( :, 1,11,12) = (/&
+&8.1665E+00_JPRB,7.5900E+00_JPRB,7.4402E+00_JPRB,7.3130E+00_JPRB,6.8936E+00_JPRB,6.1750E+00_JPRB,&
+&5.2487E+00_JPRB,4.0527E+00_JPRB,3.2183E+00_JPRB/)
+KAO( :, 2,11,12) = (/&
+&8.3894E+00_JPRB,7.8591E+00_JPRB,7.7685E+00_JPRB,7.6781E+00_JPRB,7.2197E+00_JPRB,6.5157E+00_JPRB,&
+&5.6333E+00_JPRB,4.3626E+00_JPRB,3.6379E+00_JPRB/)
+KAO( :, 3,11,12) = (/&
+&8.5776E+00_JPRB,8.0897E+00_JPRB,8.0638E+00_JPRB,7.9845E+00_JPRB,7.5334E+00_JPRB,6.8745E+00_JPRB,&
+&5.9959E+00_JPRB,4.6206E+00_JPRB,4.0541E+00_JPRB/)
+KAO( :, 4,11,12) = (/&
+&8.7343E+00_JPRB,8.2889E+00_JPRB,8.3048E+00_JPRB,8.2761E+00_JPRB,7.8416E+00_JPRB,7.2002E+00_JPRB,&
+&6.3426E+00_JPRB,4.8817E+00_JPRB,4.4717E+00_JPRB/)
+KAO( :, 5,11,12) = (/&
+&8.8713E+00_JPRB,8.4483E+00_JPRB,8.5341E+00_JPRB,8.5312E+00_JPRB,8.1167E+00_JPRB,7.5296E+00_JPRB,&
+&6.6477E+00_JPRB,5.1325E+00_JPRB,4.9081E+00_JPRB/)
+KAO( :, 1,12,12) = (/&
+&7.8094E+00_JPRB,7.3653E+00_JPRB,7.2542E+00_JPRB,7.0902E+00_JPRB,6.6433E+00_JPRB,5.9686E+00_JPRB,&
+&5.1635E+00_JPRB,4.0194E+00_JPRB,2.9475E+00_JPRB/)
+KAO( :, 2,12,12) = (/&
+&8.0117E+00_JPRB,7.6155E+00_JPRB,7.5651E+00_JPRB,7.4151E+00_JPRB,6.9696E+00_JPRB,6.3450E+00_JPRB,&
+&5.5476E+00_JPRB,4.3129E+00_JPRB,3.3366E+00_JPRB/)
+KAO( :, 3,12,12) = (/&
+&8.1910E+00_JPRB,7.8328E+00_JPRB,7.8418E+00_JPRB,7.7049E+00_JPRB,7.2969E+00_JPRB,6.7155E+00_JPRB,&
+&5.8961E+00_JPRB,4.5906E+00_JPRB,3.7405E+00_JPRB/)
+KAO( :, 4,12,12) = (/&
+&8.3426E+00_JPRB,8.0165E+00_JPRB,8.0839E+00_JPRB,7.9767E+00_JPRB,7.6138E+00_JPRB,7.0590E+00_JPRB,&
+&6.2190E+00_JPRB,4.8660E+00_JPRB,4.1525E+00_JPRB/)
+KAO( :, 5,12,12) = (/&
+&8.4617E+00_JPRB,8.1705E+00_JPRB,8.3144E+00_JPRB,8.2344E+00_JPRB,7.9033E+00_JPRB,7.3931E+00_JPRB,&
+&6.5112E+00_JPRB,5.1463E+00_JPRB,4.5704E+00_JPRB/)
+KAO( :, 1,13,12) = (/&
+&7.4570E+00_JPRB,7.1219E+00_JPRB,7.0631E+00_JPRB,6.7931E+00_JPRB,6.3176E+00_JPRB,5.7305E+00_JPRB,&
+&4.9924E+00_JPRB,3.9078E+00_JPRB,2.6864E+00_JPRB/)
+KAO( :, 2,13,12) = (/&
+&7.6593E+00_JPRB,7.3680E+00_JPRB,7.3595E+00_JPRB,7.0913E+00_JPRB,6.6544E+00_JPRB,6.1127E+00_JPRB,&
+&5.3577E+00_JPRB,4.1969E+00_JPRB,3.0587E+00_JPRB/)
+KAO( :, 3,13,12) = (/&
+&7.8270E+00_JPRB,7.5824E+00_JPRB,7.6095E+00_JPRB,7.3732E+00_JPRB,7.0009E+00_JPRB,6.4671E+00_JPRB,&
+&5.6889E+00_JPRB,4.4965E+00_JPRB,3.4369E+00_JPRB/)
+KAO( :, 4,13,12) = (/&
+&7.9650E+00_JPRB,7.7709E+00_JPRB,7.8397E+00_JPRB,7.6582E+00_JPRB,7.3100E+00_JPRB,6.7945E+00_JPRB,&
+&6.0051E+00_JPRB,4.7890E+00_JPRB,3.8174E+00_JPRB/)
+KAO( :, 5,13,12) = (/&
+&8.0792E+00_JPRB,7.9275E+00_JPRB,8.0591E+00_JPRB,7.9074E+00_JPRB,7.6140E+00_JPRB,7.1099E+00_JPRB,&
+&6.2973E+00_JPRB,5.0841E+00_JPRB,4.2048E+00_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&1.0577E+01_JPRB,9.2549E+00_JPRB,8.1600E+00_JPRB,7.7278E+00_JPRB,7.7653E+00_JPRB,7.7716E+00_JPRB,&
+&7.5669E+00_JPRB,8.8236E+00_JPRB,9.8756E+00_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&1.0671E+01_JPRB,9.3375E+00_JPRB,8.2378E+00_JPRB,7.8122E+00_JPRB,7.8593E+00_JPRB,7.7059E+00_JPRB,&
+&7.9393E+00_JPRB,9.2604E+00_JPRB,1.0358E+01_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&1.0744E+01_JPRB,9.4010E+00_JPRB,8.2968E+00_JPRB,7.8823E+00_JPRB,7.9000E+00_JPRB,7.7087E+00_JPRB,&
+&8.3139E+00_JPRB,9.6974E+00_JPRB,1.0851E+01_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&1.0801E+01_JPRB,9.4514E+00_JPRB,8.3377E+00_JPRB,7.9397E+00_JPRB,7.9429E+00_JPRB,7.7123E+00_JPRB,&
+&8.6663E+00_JPRB,1.0108E+01_JPRB,1.1303E+01_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&1.0828E+01_JPRB,9.4745E+00_JPRB,8.3567E+00_JPRB,8.0119E+00_JPRB,7.9284E+00_JPRB,7.7671E+00_JPRB,&
+&9.0671E+00_JPRB,1.0577E+01_JPRB,1.1784E+01_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&1.1163E+01_JPRB,9.7674E+00_JPRB,8.6478E+00_JPRB,8.0225E+00_JPRB,8.2244E+00_JPRB,8.0837E+00_JPRB,&
+&7.7758E+00_JPRB,9.0278E+00_JPRB,1.0229E+01_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&1.1323E+01_JPRB,9.9081E+00_JPRB,8.7792E+00_JPRB,8.1586E+00_JPRB,8.2869E+00_JPRB,8.0551E+00_JPRB,&
+&8.1451E+00_JPRB,9.5005E+00_JPRB,1.0748E+01_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&1.1461E+01_JPRB,1.0028E+01_JPRB,8.8854E+00_JPRB,8.2743E+00_JPRB,8.3048E+00_JPRB,8.0402E+00_JPRB,&
+&8.5556E+00_JPRB,9.9796E+00_JPRB,1.1282E+01_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&1.1566E+01_JPRB,1.0120E+01_JPRB,8.9543E+00_JPRB,8.3710E+00_JPRB,8.3468E+00_JPRB,8.0313E+00_JPRB,&
+&8.9856E+00_JPRB,1.0481E+01_JPRB,1.1824E+01_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&1.1629E+01_JPRB,1.0176E+01_JPRB,8.9870E+00_JPRB,8.4547E+00_JPRB,8.3497E+00_JPRB,8.1172E+00_JPRB,&
+&9.4516E+00_JPRB,1.1026E+01_JPRB,1.2419E+01_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&1.1962E+01_JPRB,1.0467E+01_JPRB,9.2709E+00_JPRB,8.4291E+00_JPRB,8.5436E+00_JPRB,8.3200E+00_JPRB,&
+&7.8658E+00_JPRB,9.0562E+00_JPRB,1.0308E+01_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&1.2205E+01_JPRB,1.0680E+01_JPRB,9.4411E+00_JPRB,8.6517E+00_JPRB,8.6197E+00_JPRB,8.3368E+00_JPRB,&
+&8.2049E+00_JPRB,9.5685E+00_JPRB,1.0891E+01_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&1.2410E+01_JPRB,1.0859E+01_JPRB,9.5853E+00_JPRB,8.8479E+00_JPRB,8.6747E+00_JPRB,8.3471E+00_JPRB,&
+&8.6431E+00_JPRB,1.0082E+01_JPRB,1.1474E+01_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&1.2574E+01_JPRB,1.1002E+01_JPRB,9.6989E+00_JPRB,8.9698E+00_JPRB,8.7471E+00_JPRB,8.3398E+00_JPRB,&
+&9.0831E+00_JPRB,1.0595E+01_JPRB,1.2056E+01_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&1.2712E+01_JPRB,1.1123E+01_JPRB,9.7902E+00_JPRB,9.0790E+00_JPRB,8.7667E+00_JPRB,8.4500E+00_JPRB,&
+&9.6002E+00_JPRB,1.1199E+01_JPRB,1.2724E+01_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&1.2978E+01_JPRB,1.1356E+01_JPRB,1.0016E+01_JPRB,9.0951E+00_JPRB,8.8183E+00_JPRB,8.5105E+00_JPRB,&
+&7.9105E+00_JPRB,9.0384E+00_JPRB,1.0315E+01_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&1.3298E+01_JPRB,1.1636E+01_JPRB,1.0263E+01_JPRB,9.3919E+00_JPRB,8.9613E+00_JPRB,8.5969E+00_JPRB,&
+&8.2211E+00_JPRB,9.5613E+00_JPRB,1.0907E+01_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&1.3575E+01_JPRB,1.1878E+01_JPRB,1.0487E+01_JPRB,9.6114E+00_JPRB,9.0632E+00_JPRB,8.6395E+00_JPRB,&
+&8.6771E+00_JPRB,1.0122E+01_JPRB,1.1544E+01_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&1.3811E+01_JPRB,1.2085E+01_JPRB,1.0662E+01_JPRB,9.7774E+00_JPRB,9.1650E+00_JPRB,8.6661E+00_JPRB,&
+&9.1672E+00_JPRB,1.0693E+01_JPRB,1.2193E+01_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&1.3981E+01_JPRB,1.2233E+01_JPRB,1.0802E+01_JPRB,9.9141E+00_JPRB,9.2432E+00_JPRB,8.7675E+00_JPRB,&
+&9.7195E+00_JPRB,1.1338E+01_JPRB,1.2921E+01_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&1.4114E+01_JPRB,1.2350E+01_JPRB,1.0930E+01_JPRB,9.8909E+00_JPRB,9.2442E+00_JPRB,8.6849E+00_JPRB,&
+&8.0205E+00_JPRB,9.0018E+00_JPRB,1.0281E+01_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&1.4481E+01_JPRB,1.2671E+01_JPRB,1.1207E+01_JPRB,1.0236E+01_JPRB,9.4445E+00_JPRB,8.8064E+00_JPRB,&
+&8.3341E+00_JPRB,9.5712E+00_JPRB,1.0927E+01_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&1.4780E+01_JPRB,1.2933E+01_JPRB,1.1441E+01_JPRB,1.0504E+01_JPRB,9.5949E+00_JPRB,8.9267E+00_JPRB,&
+&8.7559E+00_JPRB,1.0193E+01_JPRB,1.1635E+01_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&1.5014E+01_JPRB,1.3137E+01_JPRB,1.1651E+01_JPRB,1.0704E+01_JPRB,9.7669E+00_JPRB,9.0159E+00_JPRB,&
+&9.2560E+00_JPRB,1.0797E+01_JPRB,1.2325E+01_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&1.5187E+01_JPRB,1.3289E+01_JPRB,1.1815E+01_JPRB,1.0866E+01_JPRB,9.8919E+00_JPRB,9.1157E+00_JPRB,&
+&9.8156E+00_JPRB,1.1450E+01_JPRB,1.3070E+01_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&1.5160E+01_JPRB,1.3265E+01_JPRB,1.1763E+01_JPRB,1.0744E+01_JPRB,9.7606E+00_JPRB,8.8908E+00_JPRB,&
+&8.2258E+00_JPRB,8.8849E+00_JPRB,1.0152E+01_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&1.5549E+01_JPRB,1.3605E+01_JPRB,1.2084E+01_JPRB,1.1112E+01_JPRB,1.0034E+01_JPRB,9.1009E+00_JPRB,&
+&8.4931E+00_JPRB,9.5055E+00_JPRB,1.0858E+01_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&1.5873E+01_JPRB,1.3889E+01_JPRB,1.2356E+01_JPRB,1.1403E+01_JPRB,1.0281E+01_JPRB,9.2837E+00_JPRB,&
+&8.8721E+00_JPRB,1.0170E+01_JPRB,1.1619E+01_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&1.6112E+01_JPRB,1.4098E+01_JPRB,1.2586E+01_JPRB,1.1634E+01_JPRB,1.0494E+01_JPRB,9.4499E+00_JPRB,&
+&9.3030E+00_JPRB,1.0807E+01_JPRB,1.2339E+01_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&1.6286E+01_JPRB,1.4252E+01_JPRB,1.2775E+01_JPRB,1.1818E+01_JPRB,1.0693E+01_JPRB,9.5647E+00_JPRB,&
+&9.8402E+00_JPRB,1.1469E+01_JPRB,1.3094E+01_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&1.6122E+01_JPRB,1.4109E+01_JPRB,1.2562E+01_JPRB,1.1505E+01_JPRB,1.0368E+01_JPRB,9.2585E+00_JPRB,&
+&8.3696E+00_JPRB,8.5768E+00_JPRB,9.8029E+00_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&1.6526E+01_JPRB,1.4471E+01_JPRB,1.2919E+01_JPRB,1.1924E+01_JPRB,1.0722E+01_JPRB,9.5715E+00_JPRB,&
+&8.6023E+00_JPRB,9.2393E+00_JPRB,1.0560E+01_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&1.6858E+01_JPRB,1.4770E+01_JPRB,1.3234E+01_JPRB,1.2238E+01_JPRB,1.1035E+01_JPRB,9.8187E+00_JPRB,&
+&8.9328E+00_JPRB,9.9387E+00_JPRB,1.1350E+01_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&1.7093E+01_JPRB,1.4987E+01_JPRB,1.3501E+01_JPRB,1.2504E+01_JPRB,1.1279E+01_JPRB,1.0055E+01_JPRB,&
+&9.3088E+00_JPRB,1.0608E+01_JPRB,1.2111E+01_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&1.7259E+01_JPRB,1.5142E+01_JPRB,1.3707E+01_JPRB,1.2711E+01_JPRB,1.1518E+01_JPRB,1.0206E+01_JPRB,&
+&9.7355E+00_JPRB,1.1291E+01_JPRB,1.2889E+01_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&1.6916E+01_JPRB,1.4832E+01_JPRB,1.3277E+01_JPRB,1.2204E+01_JPRB,1.0940E+01_JPRB,9.7472E+00_JPRB,&
+&8.4449E+00_JPRB,8.0133E+00_JPRB,9.1571E+00_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&1.7329E+01_JPRB,1.5217E+01_JPRB,1.3686E+01_JPRB,1.2639E+01_JPRB,1.1376E+01_JPRB,1.0148E+01_JPRB,&
+&8.6472E+00_JPRB,8.7212E+00_JPRB,9.9586E+00_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&1.7658E+01_JPRB,1.5525E+01_JPRB,1.4035E+01_JPRB,1.3005E+01_JPRB,1.1745E+01_JPRB,1.0456E+01_JPRB,&
+&8.9277E+00_JPRB,9.4462E+00_JPRB,1.0783E+01_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&1.7910E+01_JPRB,1.5764E+01_JPRB,1.4326E+01_JPRB,1.3292E+01_JPRB,1.2039E+01_JPRB,1.0730E+01_JPRB,&
+&9.2875E+00_JPRB,1.0174E+01_JPRB,1.1613E+01_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&1.8061E+01_JPRB,1.5911E+01_JPRB,1.4552E+01_JPRB,1.3522E+01_JPRB,1.2313E+01_JPRB,1.0922E+01_JPRB,&
+&9.6669E+00_JPRB,1.0913E+01_JPRB,1.2458E+01_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&1.7489E+01_JPRB,1.5390E+01_JPRB,1.3855E+01_JPRB,1.2753E+01_JPRB,1.1443E+01_JPRB,1.0269E+01_JPRB,&
+&8.6020E+00_JPRB,7.3519E+00_JPRB,8.3472E+00_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&1.7914E+01_JPRB,1.5791E+01_JPRB,1.4307E+01_JPRB,1.3235E+01_JPRB,1.1959E+01_JPRB,1.0725E+01_JPRB,&
+&8.8103E+00_JPRB,8.0533E+00_JPRB,9.1895E+00_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&1.8257E+01_JPRB,1.6119E+01_JPRB,1.4693E+01_JPRB,1.3625E+01_JPRB,1.2389E+01_JPRB,1.1058E+01_JPRB,&
+&9.0504E+00_JPRB,8.8002E+00_JPRB,1.0042E+01_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&1.8479E+01_JPRB,1.6338E+01_JPRB,1.5015E+01_JPRB,1.3939E+01_JPRB,1.2757E+01_JPRB,1.1337E+01_JPRB,&
+&9.3866E+00_JPRB,9.5953E+00_JPRB,1.0949E+01_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&1.8635E+01_JPRB,1.6495E+01_JPRB,1.5249E+01_JPRB,1.4201E+01_JPRB,1.3054E+01_JPRB,1.1574E+01_JPRB,&
+&9.7301E+00_JPRB,1.0376E+01_JPRB,1.1842E+01_JPRB/)
+KAO( :, 1,10,13) = (/&
+&1.7834E+01_JPRB,1.5755E+01_JPRB,1.4296E+01_JPRB,1.3173E+01_JPRB,1.1876E+01_JPRB,1.0672E+01_JPRB,&
+&8.8079E+00_JPRB,6.8283E+00_JPRB,7.5346E+00_JPRB/)
+KAO( :, 2,10,13) = (/&
+&1.8252E+01_JPRB,1.6162E+01_JPRB,1.4783E+01_JPRB,1.3694E+01_JPRB,1.2464E+01_JPRB,1.1197E+01_JPRB,&
+&9.0829E+00_JPRB,7.4323E+00_JPRB,8.3917E+00_JPRB/)
+KAO( :, 3,10,13) = (/&
+&1.8558E+01_JPRB,1.6468E+01_JPRB,1.5228E+01_JPRB,1.4086E+01_JPRB,1.2957E+01_JPRB,1.1559E+01_JPRB,&
+&9.3588E+00_JPRB,8.1767E+00_JPRB,9.3163E+00_JPRB/)
+KAO( :, 4,10,13) = (/&
+&1.8778E+01_JPRB,1.6694E+01_JPRB,1.5535E+01_JPRB,1.4435E+01_JPRB,1.3366E+01_JPRB,1.1847E+01_JPRB,&
+&9.6760E+00_JPRB,9.0005E+00_JPRB,1.0268E+01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&1.8909E+01_JPRB,1.6834E+01_JPRB,1.5762E+01_JPRB,1.4717E+01_JPRB,1.3710E+01_JPRB,1.2145E+01_JPRB,&
+&1.0011E+01_JPRB,9.8258E+00_JPRB,1.1210E+01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&1.8087E+01_JPRB,1.6075E+01_JPRB,1.4790E+01_JPRB,1.3655E+01_JPRB,1.2497E+01_JPRB,1.1191E+01_JPRB,&
+&9.1399E+00_JPRB,6.6933E+00_JPRB,7.1162E+00_JPRB/)
+KAO( :, 2,11,13) = (/&
+&1.8432E+01_JPRB,1.6428E+01_JPRB,1.5277E+01_JPRB,1.4152E+01_JPRB,1.3089E+01_JPRB,1.1695E+01_JPRB,&
+&9.4501E+00_JPRB,7.3057E+00_JPRB,8.0369E+00_JPRB/)
+KAO( :, 3,11,13) = (/&
+&1.8659E+01_JPRB,1.6669E+01_JPRB,1.5627E+01_JPRB,1.4589E+01_JPRB,1.3582E+01_JPRB,1.2037E+01_JPRB,&
+&9.8265E+00_JPRB,8.0558E+00_JPRB,9.0157E+00_JPRB/)
+KAO( :, 4,11,13) = (/&
+&1.8822E+01_JPRB,1.6850E+01_JPRB,1.5905E+01_JPRB,1.4936E+01_JPRB,1.3964E+01_JPRB,1.2377E+01_JPRB,&
+&1.0203E+01_JPRB,8.8302E+00_JPRB,9.9768E+00_JPRB/)
+KAO( :, 5,11,13) = (/&
+&1.8912E+01_JPRB,1.6973E+01_JPRB,1.6104E+01_JPRB,1.5218E+01_JPRB,1.4312E+01_JPRB,1.2701E+01_JPRB,&
+&1.0619E+01_JPRB,9.6452E+00_JPRB,1.0951E+01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&1.7920E+01_JPRB,1.6053E+01_JPRB,1.5019E+01_JPRB,1.3982E+01_JPRB,1.2926E+01_JPRB,1.1508E+01_JPRB,&
+&9.3716E+00_JPRB,6.7503E+00_JPRB,6.7740E+00_JPRB/)
+KAO( :, 2,12,13) = (/&
+&1.8186E+01_JPRB,1.6353E+01_JPRB,1.5440E+01_JPRB,1.4490E+01_JPRB,1.3495E+01_JPRB,1.1962E+01_JPRB,&
+&9.7745E+00_JPRB,7.3828E+00_JPRB,7.7336E+00_JPRB/)
+KAO( :, 3,12,13) = (/&
+&1.8384E+01_JPRB,1.6588E+01_JPRB,1.5763E+01_JPRB,1.4906E+01_JPRB,1.3939E+01_JPRB,1.2345E+01_JPRB,&
+&1.0238E+01_JPRB,8.0656E+00_JPRB,8.6667E+00_JPRB/)
+KAO( :, 4,12,13) = (/&
+&1.8509E+01_JPRB,1.6759E+01_JPRB,1.6033E+01_JPRB,1.5245E+01_JPRB,1.4313E+01_JPRB,1.2752E+01_JPRB,&
+&1.0707E+01_JPRB,8.7818E+00_JPRB,9.6176E+00_JPRB/)
+KAO( :, 5,12,13) = (/&
+&1.8577E+01_JPRB,1.6881E+01_JPRB,1.6239E+01_JPRB,1.5529E+01_JPRB,1.4670E+01_JPRB,1.3127E+01_JPRB,&
+&1.1210E+01_JPRB,9.5549E+00_JPRB,1.0594E+01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&1.7404E+01_JPRB,1.5741E+01_JPRB,1.4917E+01_JPRB,1.4087E+01_JPRB,1.3107E+01_JPRB,1.1569E+01_JPRB,&
+&9.5101E+00_JPRB,6.9448E+00_JPRB,6.4373E+00_JPRB/)
+KAO( :, 2,13,13) = (/&
+&1.7616E+01_JPRB,1.6021E+01_JPRB,1.5315E+01_JPRB,1.4593E+01_JPRB,1.3608E+01_JPRB,1.2031E+01_JPRB,&
+&1.0008E+01_JPRB,7.5382E+00_JPRB,7.3336E+00_JPRB/)
+KAO( :, 3,13,13) = (/&
+&1.7758E+01_JPRB,1.6239E+01_JPRB,1.5665E+01_JPRB,1.5009E+01_JPRB,1.4000E+01_JPRB,1.2479E+01_JPRB,&
+&1.0559E+01_JPRB,8.1609E+00_JPRB,8.2503E+00_JPRB/)
+KAO( :, 4,13,13) = (/&
+&1.7857E+01_JPRB,1.6408E+01_JPRB,1.5937E+01_JPRB,1.5347E+01_JPRB,1.4396E+01_JPRB,1.2961E+01_JPRB,&
+&1.1094E+01_JPRB,8.8199E+00_JPRB,9.1733E+00_JPRB/)
+KAO( :, 5,13,13) = (/&
+&1.7901E+01_JPRB,1.6530E+01_JPRB,1.6155E+01_JPRB,1.5663E+01_JPRB,1.4778E+01_JPRB,1.3417E+01_JPRB,&
+&1.1660E+01_JPRB,9.5134E+00_JPRB,1.0096E+01_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&1.8068E+01_JPRB,1.5810E+01_JPRB,1.3551E+01_JPRB,1.1831E+01_JPRB,1.0304E+01_JPRB,9.7990E+00_JPRB,&
+&1.1739E+01_JPRB,1.3692E+01_JPRB,1.5004E+01_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&1.7600E+01_JPRB,1.5400E+01_JPRB,1.3200E+01_JPRB,1.1647E+01_JPRB,1.0167E+01_JPRB,1.0174E+01_JPRB,&
+&1.2204E+01_JPRB,1.4235E+01_JPRB,1.5608E+01_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&1.7123E+01_JPRB,1.4983E+01_JPRB,1.2843E+01_JPRB,1.1396E+01_JPRB,1.0063E+01_JPRB,1.0510E+01_JPRB,&
+&1.2607E+01_JPRB,1.4704E+01_JPRB,1.6115E+01_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&1.6641E+01_JPRB,1.4561E+01_JPRB,1.2481E+01_JPRB,1.1106E+01_JPRB,9.9075E+00_JPRB,1.0883E+01_JPRB,&
+&1.3055E+01_JPRB,1.5227E+01_JPRB,1.6651E+01_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&1.6173E+01_JPRB,1.4152E+01_JPRB,1.2130E+01_JPRB,1.0803E+01_JPRB,9.8573E+00_JPRB,1.1271E+01_JPRB,&
+&1.3520E+01_JPRB,1.5769E+01_JPRB,1.7251E+01_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&1.8801E+01_JPRB,1.6451E+01_JPRB,1.4101E+01_JPRB,1.2604E+01_JPRB,1.1011E+01_JPRB,1.0737E+01_JPRB,&
+&1.2792E+01_JPRB,1.4921E+01_JPRB,1.6625E+01_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&1.8304E+01_JPRB,1.6016E+01_JPRB,1.3728E+01_JPRB,1.2330E+01_JPRB,1.0982E+01_JPRB,1.1096E+01_JPRB,&
+&1.3301E+01_JPRB,1.5514E+01_JPRB,1.7306E+01_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&1.7801E+01_JPRB,1.5576E+01_JPRB,1.3356E+01_JPRB,1.2016E+01_JPRB,1.0871E+01_JPRB,1.1458E+01_JPRB,&
+&1.3745E+01_JPRB,1.6031E+01_JPRB,1.7874E+01_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&1.7309E+01_JPRB,1.5145E+01_JPRB,1.3007E+01_JPRB,1.1693E+01_JPRB,1.0730E+01_JPRB,1.1860E+01_JPRB,&
+&1.4227E+01_JPRB,1.6594E+01_JPRB,1.8476E+01_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&1.6850E+01_JPRB,1.4744E+01_JPRB,1.2687E+01_JPRB,1.1410E+01_JPRB,1.0694E+01_JPRB,1.2279E+01_JPRB,&
+&1.4731E+01_JPRB,1.7182E+01_JPRB,1.9118E+01_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&1.9584E+01_JPRB,1.7136E+01_JPRB,1.4732E+01_JPRB,1.3313E+01_JPRB,1.1884E+01_JPRB,1.1593E+01_JPRB,&
+&1.3636E+01_JPRB,1.5905E+01_JPRB,1.7983E+01_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&1.9076E+01_JPRB,1.6691E+01_JPRB,1.4400E+01_JPRB,1.2989E+01_JPRB,1.1901E+01_JPRB,1.1927E+01_JPRB,&
+&1.4231E+01_JPRB,1.6600E+01_JPRB,1.8761E+01_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&1.8574E+01_JPRB,1.6253E+01_JPRB,1.4065E+01_JPRB,1.2664E+01_JPRB,1.1748E+01_JPRB,1.2312E+01_JPRB,&
+&1.4771E+01_JPRB,1.7229E+01_JPRB,1.9465E+01_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&1.8102E+01_JPRB,1.5839E+01_JPRB,1.3744E+01_JPRB,1.2408E+01_JPRB,1.1592E+01_JPRB,1.2780E+01_JPRB,&
+&1.5332E+01_JPRB,1.7885E+01_JPRB,2.0196E+01_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&1.7642E+01_JPRB,1.5437E+01_JPRB,1.3436E+01_JPRB,1.2180E+01_JPRB,1.1540E+01_JPRB,1.3243E+01_JPRB,&
+&1.5887E+01_JPRB,1.8532E+01_JPRB,2.0924E+01_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&2.0389E+01_JPRB,1.7840E+01_JPRB,1.5486E+01_JPRB,1.3966E+01_JPRB,1.2815E+01_JPRB,1.2346E+01_JPRB,&
+&1.4297E+01_JPRB,1.6677E+01_JPRB,1.8970E+01_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&1.9917E+01_JPRB,1.7427E+01_JPRB,1.5179E+01_JPRB,1.3667E+01_JPRB,1.2793E+01_JPRB,1.2684E+01_JPRB,&
+&1.5037E+01_JPRB,1.7540E+01_JPRB,1.9955E+01_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&1.9473E+01_JPRB,1.7039E+01_JPRB,1.4867E+01_JPRB,1.3426E+01_JPRB,1.2614E+01_JPRB,1.3089E+01_JPRB,&
+&1.5675E+01_JPRB,1.8284E+01_JPRB,2.0800E+01_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&1.9059E+01_JPRB,1.6676E+01_JPRB,1.4584E+01_JPRB,1.3222E+01_JPRB,1.2465E+01_JPRB,1.3596E+01_JPRB,&
+&1.6312E+01_JPRB,1.9027E+01_JPRB,2.1639E+01_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&1.8705E+01_JPRB,1.6367E+01_JPRB,1.4344E+01_JPRB,1.3059E+01_JPRB,1.2388E+01_JPRB,1.4128E+01_JPRB,&
+&1.6951E+01_JPRB,1.9772E+01_JPRB,2.2482E+01_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&2.1405E+01_JPRB,1.8730E+01_JPRB,1.6310E+01_JPRB,1.4662E+01_JPRB,1.3708E+01_JPRB,1.2986E+01_JPRB,&
+&1.4754E+01_JPRB,1.7211E+01_JPRB,1.9632E+01_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&2.1056E+01_JPRB,1.8424E+01_JPRB,1.6104E+01_JPRB,1.4452E+01_JPRB,1.3630E+01_JPRB,1.3357E+01_JPRB,&
+&1.5611E+01_JPRB,1.8209E+01_JPRB,2.0772E+01_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&2.0747E+01_JPRB,1.8154E+01_JPRB,1.5912E+01_JPRB,1.4296E+01_JPRB,1.3454E+01_JPRB,1.3757E+01_JPRB,&
+&1.6382E+01_JPRB,1.9110E+01_JPRB,2.1795E+01_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&2.0481E+01_JPRB,1.7921E+01_JPRB,1.5733E+01_JPRB,1.4190E+01_JPRB,1.3288E+01_JPRB,1.4283E+01_JPRB,&
+&1.7134E+01_JPRB,1.9987E+01_JPRB,2.2797E+01_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&2.0280E+01_JPRB,1.7745E+01_JPRB,1.5569E+01_JPRB,1.4068E+01_JPRB,1.3222E+01_JPRB,1.4895E+01_JPRB,&
+&1.7870E+01_JPRB,2.0845E+01_JPRB,2.3770E+01_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&2.2830E+01_JPRB,1.9976E+01_JPRB,1.7445E+01_JPRB,1.5500E+01_JPRB,1.4530E+01_JPRB,1.3547E+01_JPRB,&
+&1.4948E+01_JPRB,1.7437E+01_JPRB,1.9911E+01_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&2.2630E+01_JPRB,1.9801E+01_JPRB,1.7366E+01_JPRB,1.5418E+01_JPRB,1.4459E+01_JPRB,1.3928E+01_JPRB,&
+&1.5968E+01_JPRB,1.8628E+01_JPRB,2.1268E+01_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&2.2482E+01_JPRB,1.9672E+01_JPRB,1.7308E+01_JPRB,1.5393E+01_JPRB,1.4260E+01_JPRB,1.4337E+01_JPRB,&
+&1.6867E+01_JPRB,1.9676E+01_JPRB,2.2466E+01_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&2.2407E+01_JPRB,1.9606E+01_JPRB,1.7216E+01_JPRB,1.5390E+01_JPRB,1.4119E+01_JPRB,1.4843E+01_JPRB,&
+&1.7739E+01_JPRB,2.0693E+01_JPRB,2.3625E+01_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&2.2367E+01_JPRB,1.9571E+01_JPRB,1.7137E+01_JPRB,1.5329E+01_JPRB,1.4055E+01_JPRB,1.5517E+01_JPRB,&
+&1.8617E+01_JPRB,2.1718E+01_JPRB,2.4792E+01_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&2.4592E+01_JPRB,2.1518E+01_JPRB,1.8856E+01_JPRB,1.6609E+01_JPRB,1.5320E+01_JPRB,1.4052E+01_JPRB,&
+&1.5041E+01_JPRB,1.7546E+01_JPRB,2.0045E+01_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&2.4606E+01_JPRB,2.1531E+01_JPRB,1.8929E+01_JPRB,1.6667E+01_JPRB,1.5279E+01_JPRB,1.4417E+01_JPRB,&
+&1.6211E+01_JPRB,1.8911E+01_JPRB,2.1602E+01_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&2.4628E+01_JPRB,2.1549E+01_JPRB,1.8928E+01_JPRB,1.6801E+01_JPRB,1.5124E+01_JPRB,1.4851E+01_JPRB,&
+&1.7257E+01_JPRB,2.0131E+01_JPRB,2.2994E+01_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&2.4701E+01_JPRB,2.1614E+01_JPRB,1.8944E+01_JPRB,1.6872E+01_JPRB,1.5057E+01_JPRB,1.5367E+01_JPRB,&
+&1.8273E+01_JPRB,2.1316E+01_JPRB,2.4350E+01_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&2.4745E+01_JPRB,2.1652E+01_JPRB,1.8953E+01_JPRB,1.6836E+01_JPRB,1.5058E+01_JPRB,1.6097E+01_JPRB,&
+&1.9310E+01_JPRB,2.2526E+01_JPRB,2.5728E+01_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&2.6722E+01_JPRB,2.3382E+01_JPRB,2.0515E+01_JPRB,1.7956E+01_JPRB,1.6236E+01_JPRB,1.4458E+01_JPRB,&
+&1.5041E+01_JPRB,1.7547E+01_JPRB,2.0050E+01_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&2.6899E+01_JPRB,2.3537E+01_JPRB,2.0679E+01_JPRB,1.8189E+01_JPRB,1.6278E+01_JPRB,1.4827E+01_JPRB,&
+&1.6369E+01_JPRB,1.9095E+01_JPRB,2.1820E+01_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&2.7094E+01_JPRB,2.3707E+01_JPRB,2.0816E+01_JPRB,1.8418E+01_JPRB,1.6222E+01_JPRB,1.5309E+01_JPRB,&
+&1.7578E+01_JPRB,2.0506E+01_JPRB,2.3432E+01_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&2.7179E+01_JPRB,2.3782E+01_JPRB,2.0862E+01_JPRB,1.8540E+01_JPRB,1.6231E+01_JPRB,1.5886E+01_JPRB,&
+&1.8721E+01_JPRB,2.1839E+01_JPRB,2.4952E+01_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&2.7158E+01_JPRB,2.3764E+01_JPRB,2.0818E+01_JPRB,1.8502E+01_JPRB,1.6332E+01_JPRB,1.6675E+01_JPRB,&
+&1.9896E+01_JPRB,2.3208E+01_JPRB,2.6519E+01_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&2.9121E+01_JPRB,2.5481E+01_JPRB,2.2378E+01_JPRB,1.9520E+01_JPRB,1.7350E+01_JPRB,1.4884E+01_JPRB,&
+&1.4926E+01_JPRB,1.7361E+01_JPRB,1.9841E+01_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&2.9461E+01_JPRB,2.5779E+01_JPRB,2.2643E+01_JPRB,1.9924E+01_JPRB,1.7494E+01_JPRB,1.5326E+01_JPRB,&
+&1.6362E+01_JPRB,1.9088E+01_JPRB,2.1811E+01_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&2.9610E+01_JPRB,2.5909E+01_JPRB,2.2771E+01_JPRB,2.0181E+01_JPRB,1.7582E+01_JPRB,1.5909E+01_JPRB,&
+&1.7732E+01_JPRB,2.0686E+01_JPRB,2.3639E+01_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&2.9659E+01_JPRB,2.5951E+01_JPRB,2.2782E+01_JPRB,2.0281E+01_JPRB,1.7675E+01_JPRB,1.6616E+01_JPRB,&
+&1.9018E+01_JPRB,2.2187E+01_JPRB,2.5355E+01_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&2.9568E+01_JPRB,2.5872E+01_JPRB,2.2719E+01_JPRB,2.0302E+01_JPRB,1.7861E+01_JPRB,1.7429E+01_JPRB,&
+&2.0313E+01_JPRB,2.3697E+01_JPRB,2.7083E+01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&3.1663E+01_JPRB,2.7706E+01_JPRB,2.4344E+01_JPRB,2.1280E+01_JPRB,1.8643E+01_JPRB,1.5678E+01_JPRB,&
+&1.4935E+01_JPRB,1.7101E+01_JPRB,1.9544E+01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&3.1965E+01_JPRB,2.7969E+01_JPRB,2.4607E+01_JPRB,2.1722E+01_JPRB,1.8925E+01_JPRB,1.6156E+01_JPRB,&
+&1.6364E+01_JPRB,1.9004E+01_JPRB,2.1720E+01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&3.2079E+01_JPRB,2.8070E+01_JPRB,2.4675E+01_JPRB,2.1979E+01_JPRB,1.9142E+01_JPRB,1.6843E+01_JPRB,&
+&1.7782E+01_JPRB,2.0734E+01_JPRB,2.3694E+01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&3.2076E+01_JPRB,2.8066E+01_JPRB,2.4720E+01_JPRB,2.2134E+01_JPRB,1.9355E+01_JPRB,1.7612E+01_JPRB,&
+&1.9151E+01_JPRB,2.2342E+01_JPRB,2.5534E+01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&3.2013E+01_JPRB,2.8013E+01_JPRB,2.4760E+01_JPRB,2.2247E+01_JPRB,1.9618E+01_JPRB,1.8439E+01_JPRB,&
+&2.0533E+01_JPRB,2.3954E+01_JPRB,2.7375E+01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&3.4213E+01_JPRB,2.9936E+01_JPRB,2.6354E+01_JPRB,2.3259E+01_JPRB,2.0227E+01_JPRB,1.7029E+01_JPRB,&
+&1.5715E+01_JPRB,1.7610E+01_JPRB,2.0126E+01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&3.4370E+01_JPRB,3.0074E+01_JPRB,2.6508E+01_JPRB,2.3642E+01_JPRB,2.0586E+01_JPRB,1.7628E+01_JPRB,&
+&1.7120E+01_JPRB,1.9500E+01_JPRB,2.2284E+01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&3.4467E+01_JPRB,3.0174E+01_JPRB,2.6677E+01_JPRB,2.3905E+01_JPRB,2.0930E+01_JPRB,1.8395E+01_JPRB,&
+&1.8472E+01_JPRB,2.1240E+01_JPRB,2.4275E+01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&3.4474E+01_JPRB,3.0204E+01_JPRB,2.6823E+01_JPRB,2.4177E+01_JPRB,2.1309E+01_JPRB,1.9245E+01_JPRB,&
+&1.9858E+01_JPRB,2.2983E+01_JPRB,2.6259E+01_JPRB/)
+KAO( :, 5,11,14) = (/&
+&3.4438E+01_JPRB,3.0209E+01_JPRB,2.6964E+01_JPRB,2.4440E+01_JPRB,2.1741E+01_JPRB,2.0132E+01_JPRB,&
+&2.1286E+01_JPRB,2.4694E+01_JPRB,2.8209E+01_JPRB/)
+KAO( :, 1,12,14) = (/&
+&3.6462E+01_JPRB,3.1921E+01_JPRB,2.8185E+01_JPRB,2.5122E+01_JPRB,2.1872E+01_JPRB,1.8703E+01_JPRB,&
+&1.6650E+01_JPRB,1.7829E+01_JPRB,2.0376E+01_JPRB/)
+KAO( :, 2,12,14) = (/&
+&3.6640E+01_JPRB,3.2114E+01_JPRB,2.8470E+01_JPRB,2.5545E+01_JPRB,2.2388E+01_JPRB,1.9455E+01_JPRB,&
+&1.8025E+01_JPRB,1.9728E+01_JPRB,2.2541E+01_JPRB/)
+KAO( :, 3,12,14) = (/&
+&3.6727E+01_JPRB,3.2238E+01_JPRB,2.8745E+01_JPRB,2.5954E+01_JPRB,2.2942E+01_JPRB,2.0299E+01_JPRB,&
+&1.9338E+01_JPRB,2.1588E+01_JPRB,2.4664E+01_JPRB/)
+KAO( :, 4,12,14) = (/&
+&3.6769E+01_JPRB,3.2319E+01_JPRB,2.8973E+01_JPRB,2.6373E+01_JPRB,2.3500E+01_JPRB,2.1128E+01_JPRB,&
+&2.0696E+01_JPRB,2.3398E+01_JPRB,2.6730E+01_JPRB/)
+KAO( :, 5,12,14) = (/&
+&3.6803E+01_JPRB,3.2384E+01_JPRB,2.9220E+01_JPRB,2.6759E+01_JPRB,2.4088E+01_JPRB,2.2049E+01_JPRB,&
+&2.2111E+01_JPRB,2.5193E+01_JPRB,2.8777E+01_JPRB/)
+KAO( :, 1,13,14) = (/&
+&3.8467E+01_JPRB,3.3764E+01_JPRB,3.0006E+01_JPRB,2.6925E+01_JPRB,2.3614E+01_JPRB,2.0501E+01_JPRB,&
+&1.7640E+01_JPRB,1.7695E+01_JPRB,2.0215E+01_JPRB/)
+KAO( :, 2,13,14) = (/&
+&3.8636E+01_JPRB,3.3983E+01_JPRB,3.0407E+01_JPRB,2.7476E+01_JPRB,2.4350E+01_JPRB,2.1406E+01_JPRB,&
+&1.8958E+01_JPRB,1.9690E+01_JPRB,2.2491E+01_JPRB/)
+KAO( :, 3,13,14) = (/&
+&3.8793E+01_JPRB,3.4176E+01_JPRB,3.0759E+01_JPRB,2.8040E+01_JPRB,2.5106E+01_JPRB,2.2301E+01_JPRB,&
+&2.0233E+01_JPRB,2.1614E+01_JPRB,2.4689E+01_JPRB/)
+KAO( :, 4,13,14) = (/&
+&3.8901E+01_JPRB,3.4320E+01_JPRB,3.1137E+01_JPRB,2.8555E+01_JPRB,2.5821E+01_JPRB,2.3168E+01_JPRB,&
+&2.1608E+01_JPRB,2.3543E+01_JPRB,2.6893E+01_JPRB/)
+KAO( :, 5,13,14) = (/&
+&3.8995E+01_JPRB,3.4448E+01_JPRB,3.1494E+01_JPRB,2.9062E+01_JPRB,2.6523E+01_JPRB,2.4144E+01_JPRB,&
+&2.3025E+01_JPRB,2.5501E+01_JPRB,2.9129E+01_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&2.2665E+01_JPRB,1.9832E+01_JPRB,1.6999E+01_JPRB,1.4166E+01_JPRB,1.3383E+01_JPRB,1.5987E+01_JPRB,&
+&1.9182E+01_JPRB,2.2378E+01_JPRB,2.4474E+01_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&2.1844E+01_JPRB,1.9113E+01_JPRB,1.6383E+01_JPRB,1.3666E+01_JPRB,1.3442E+01_JPRB,1.6440E+01_JPRB,&
+&1.9723E+01_JPRB,2.3008E+01_JPRB,2.5060E+01_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&2.1030E+01_JPRB,1.8401E+01_JPRB,1.5773E+01_JPRB,1.3277E+01_JPRB,1.3532E+01_JPRB,1.6873E+01_JPRB,&
+&2.0241E+01_JPRB,2.3609E+01_JPRB,2.5652E+01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&2.0230E+01_JPRB,1.7702E+01_JPRB,1.5173E+01_JPRB,1.2884E+01_JPRB,1.3829E+01_JPRB,1.7277E+01_JPRB,&
+&2.0725E+01_JPRB,2.4172E+01_JPRB,2.6214E+01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&1.9446E+01_JPRB,1.7016E+01_JPRB,1.4585E+01_JPRB,1.2542E+01_JPRB,1.4133E+01_JPRB,1.7655E+01_JPRB,&
+&2.1178E+01_JPRB,2.4699E+01_JPRB,2.6742E+01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&2.4301E+01_JPRB,2.1263E+01_JPRB,1.8226E+01_JPRB,1.5270E+01_JPRB,1.4740E+01_JPRB,1.7631E+01_JPRB,&
+&2.1154E+01_JPRB,2.4675E+01_JPRB,2.7320E+01_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&2.3371E+01_JPRB,2.0449E+01_JPRB,1.7528E+01_JPRB,1.4826E+01_JPRB,1.4773E+01_JPRB,1.8276E+01_JPRB,&
+&2.1927E+01_JPRB,2.5577E+01_JPRB,2.8254E+01_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&2.2456E+01_JPRB,1.9650E+01_JPRB,1.6843E+01_JPRB,1.4407E+01_JPRB,1.5106E+01_JPRB,1.8875E+01_JPRB,&
+&2.2644E+01_JPRB,2.6416E+01_JPRB,2.9163E+01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&2.1563E+01_JPRB,1.8868E+01_JPRB,1.6173E+01_JPRB,1.4036E+01_JPRB,1.5558E+01_JPRB,1.9438E+01_JPRB,&
+&2.3319E+01_JPRB,2.7202E+01_JPRB,2.9991E+01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&2.0691E+01_JPRB,1.8105E+01_JPRB,1.5519E+01_JPRB,1.3694E+01_JPRB,1.5968E+01_JPRB,1.9949E+01_JPRB,&
+&2.3930E+01_JPRB,2.7910E+01_JPRB,3.0755E+01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&2.6150E+01_JPRB,2.2881E+01_JPRB,1.9612E+01_JPRB,1.6625E+01_JPRB,1.6080E+01_JPRB,1.9323E+01_JPRB,&
+&2.3184E+01_JPRB,2.7047E+01_JPRB,3.0423E+01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&2.5095E+01_JPRB,2.1958E+01_JPRB,1.8821E+01_JPRB,1.6149E+01_JPRB,1.6204E+01_JPRB,2.0181E+01_JPRB,&
+&2.4213E+01_JPRB,2.8246E+01_JPRB,3.1757E+01_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&2.4070E+01_JPRB,2.1061E+01_JPRB,1.8052E+01_JPRB,1.5726E+01_JPRB,1.6789E+01_JPRB,2.0979E+01_JPRB,&
+&2.5169E+01_JPRB,2.9357E+01_JPRB,3.2991E+01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&2.3070E+01_JPRB,2.0187E+01_JPRB,1.7303E+01_JPRB,1.5335E+01_JPRB,1.7368E+01_JPRB,2.1701E+01_JPRB,&
+&2.6034E+01_JPRB,3.0366E+01_JPRB,3.4124E+01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&2.2104E+01_JPRB,1.9341E+01_JPRB,1.6579E+01_JPRB,1.4961E+01_JPRB,1.7892E+01_JPRB,2.2355E+01_JPRB,&
+&2.6817E+01_JPRB,3.1278E+01_JPRB,3.5133E+01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&2.8084E+01_JPRB,2.4574E+01_JPRB,2.1063E+01_JPRB,1.8074E+01_JPRB,1.7393E+01_JPRB,2.1136E+01_JPRB,&
+&2.5360E+01_JPRB,2.9584E+01_JPRB,3.3561E+01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&2.6902E+01_JPRB,2.3539E+01_JPRB,2.0176E+01_JPRB,1.7575E+01_JPRB,1.7767E+01_JPRB,2.2202E+01_JPRB,&
+&2.6641E+01_JPRB,3.1076E+01_JPRB,3.5240E+01_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&2.5761E+01_JPRB,2.2541E+01_JPRB,1.9321E+01_JPRB,1.7116E+01_JPRB,1.8559E+01_JPRB,2.3193E+01_JPRB,&
+&2.7826E+01_JPRB,3.2458E+01_JPRB,3.6803E+01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&2.4660E+01_JPRB,2.1578E+01_JPRB,1.8496E+01_JPRB,1.6679E+01_JPRB,1.9285E+01_JPRB,2.4099E+01_JPRB,&
+&2.8913E+01_JPRB,3.3725E+01_JPRB,3.8229E+01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&2.3603E+01_JPRB,2.0653E+01_JPRB,1.7702E+01_JPRB,1.6251E+01_JPRB,1.9930E+01_JPRB,2.4904E+01_JPRB,&
+&2.9878E+01_JPRB,3.4850E+01_JPRB,3.9510E+01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&3.0121E+01_JPRB,2.6356E+01_JPRB,2.2591E+01_JPRB,1.9572E+01_JPRB,1.8803E+01_JPRB,2.3068E+01_JPRB,&
+&2.7679E+01_JPRB,3.2291E+01_JPRB,3.6764E+01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&2.8817E+01_JPRB,2.5215E+01_JPRB,2.1613E+01_JPRB,1.9016E+01_JPRB,1.9519E+01_JPRB,2.4395E+01_JPRB,&
+&2.9271E+01_JPRB,3.4145E+01_JPRB,3.8882E+01_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&2.7566E+01_JPRB,2.4120E+01_JPRB,2.0674E+01_JPRB,1.8500E+01_JPRB,2.0501E+01_JPRB,2.5621E+01_JPRB,&
+&3.0741E+01_JPRB,3.5860E+01_JPRB,4.0822E+01_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&2.6363E+01_JPRB,2.3068E+01_JPRB,1.9789E+01_JPRB,1.8007E+01_JPRB,2.1387E+01_JPRB,2.6727E+01_JPRB,&
+&3.2067E+01_JPRB,3.7405E+01_JPRB,4.2586E+01_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&2.5212E+01_JPRB,2.2061E+01_JPRB,1.9051E+01_JPRB,1.7643E+01_JPRB,2.2182E+01_JPRB,2.7719E+01_JPRB,&
+&3.3256E+01_JPRB,3.8795E+01_JPRB,4.4162E+01_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&3.2321E+01_JPRB,2.8281E+01_JPRB,2.4241E+01_JPRB,2.1098E+01_JPRB,2.0339E+01_JPRB,2.4932E+01_JPRB,&
+&2.9917E+01_JPRB,3.4901E+01_JPRB,3.9811E+01_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&3.0886E+01_JPRB,2.7025E+01_JPRB,2.3164E+01_JPRB,2.0488E+01_JPRB,2.1264E+01_JPRB,2.6574E+01_JPRB,&
+&3.1885E+01_JPRB,3.7195E+01_JPRB,4.2430E+01_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&2.9511E+01_JPRB,2.5822E+01_JPRB,2.2177E+01_JPRB,1.9914E+01_JPRB,2.2458E+01_JPRB,2.8068E+01_JPRB,&
+&3.3678E+01_JPRB,3.9285E+01_JPRB,4.4801E+01_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&2.8199E+01_JPRB,2.4674E+01_JPRB,2.1349E+01_JPRB,1.9431E+01_JPRB,2.3532E+01_JPRB,2.9409E+01_JPRB,&
+&3.5286E+01_JPRB,4.1160E+01_JPRB,4.6949E+01_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&2.6942E+01_JPRB,2.3574E+01_JPRB,2.0489E+01_JPRB,1.9227E+01_JPRB,2.4487E+01_JPRB,3.0601E+01_JPRB,&
+&3.6715E+01_JPRB,4.2828E+01_JPRB,4.8844E+01_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&3.4610E+01_JPRB,3.0284E+01_JPRB,2.5957E+01_JPRB,2.2686E+01_JPRB,2.1900E+01_JPRB,2.6660E+01_JPRB,&
+&3.1990E+01_JPRB,3.7320E+01_JPRB,4.2613E+01_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&3.3032E+01_JPRB,2.8903E+01_JPRB,2.4823E+01_JPRB,2.1999E+01_JPRB,2.2959E+01_JPRB,2.8635E+01_JPRB,&
+&3.4359E+01_JPRB,4.0081E+01_JPRB,4.5761E+01_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&3.1543E+01_JPRB,2.7600E+01_JPRB,2.3940E+01_JPRB,2.1366E+01_JPRB,2.4341E+01_JPRB,3.0423E+01_JPRB,&
+&3.6504E+01_JPRB,4.2582E+01_JPRB,4.8628E+01_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&3.0190E+01_JPRB,2.6416E+01_JPRB,2.3001E+01_JPRB,2.1013E+01_JPRB,2.5623E+01_JPRB,3.2024E+01_JPRB,&
+&3.8424E+01_JPRB,4.4822E+01_JPRB,5.1169E+01_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&2.9167E+01_JPRB,2.5521E+01_JPRB,2.2165E+01_JPRB,2.1088E+01_JPRB,2.6745E+01_JPRB,3.3425E+01_JPRB,&
+&4.0104E+01_JPRB,4.6781E+01_JPRB,5.3415E+01_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&3.7034E+01_JPRB,3.2405E+01_JPRB,2.7803E+01_JPRB,2.4330E+01_JPRB,2.3433E+01_JPRB,2.8325E+01_JPRB,&
+&3.3988E+01_JPRB,3.9652E+01_JPRB,4.5298E+01_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&3.5387E+01_JPRB,3.0964E+01_JPRB,2.6815E+01_JPRB,2.3568E+01_JPRB,2.4642E+01_JPRB,3.0668E+01_JPRB,&
+&3.6800E+01_JPRB,4.2932E+01_JPRB,4.9043E+01_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&3.3957E+01_JPRB,2.9713E+01_JPRB,2.5844E+01_JPRB,2.3027E+01_JPRB,2.6228E+01_JPRB,3.2782E+01_JPRB,&
+&3.9335E+01_JPRB,4.5888E+01_JPRB,5.2425E+01_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&3.2996E+01_JPRB,2.8872E+01_JPRB,2.5090E+01_JPRB,2.2964E+01_JPRB,2.7731E+01_JPRB,3.4659E+01_JPRB,&
+&4.1586E+01_JPRB,4.8516E+01_JPRB,5.5417E+01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&3.2468E+01_JPRB,2.8410E+01_JPRB,2.4743E+01_JPRB,2.3402E+01_JPRB,2.9047E+01_JPRB,3.6303E+01_JPRB,&
+&4.3558E+01_JPRB,5.0811E+01_JPRB,5.8046E+01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&3.9783E+01_JPRB,3.4811E+01_JPRB,2.9994E+01_JPRB,2.6093E+01_JPRB,2.4971E+01_JPRB,2.9758E+01_JPRB,&
+&3.5708E+01_JPRB,4.1658E+01_JPRB,4.7610E+01_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&3.8247E+01_JPRB,3.3466E+01_JPRB,2.9067E+01_JPRB,2.5305E+01_JPRB,2.6362E+01_JPRB,3.2520E+01_JPRB,&
+&3.9021E+01_JPRB,4.5520E+01_JPRB,5.2017E+01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&3.7366E+01_JPRB,3.2696E+01_JPRB,2.8422E+01_JPRB,2.5157E+01_JPRB,2.8053E+01_JPRB,3.4990E+01_JPRB,&
+&4.1984E+01_JPRB,4.8979E+01_JPRB,5.5970E+01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&3.6951E+01_JPRB,3.2332E+01_JPRB,2.8166E+01_JPRB,2.5574E+01_JPRB,2.9746E+01_JPRB,3.7179E+01_JPRB,&
+&4.4610E+01_JPRB,5.2042E+01_JPRB,5.9480E+01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&3.6807E+01_JPRB,3.2206E+01_JPRB,2.8238E+01_JPRB,2.6320E+01_JPRB,3.1345E+01_JPRB,3.9177E+01_JPRB,&
+&4.7007E+01_JPRB,5.4838E+01_JPRB,6.2666E+01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&4.3060E+01_JPRB,3.7677E+01_JPRB,3.2562E+01_JPRB,2.8079E+01_JPRB,2.6750E+01_JPRB,3.1106E+01_JPRB,&
+&3.7325E+01_JPRB,4.3543E+01_JPRB,4.9762E+01_JPRB/)
+KAO( :, 2,10,15) = (/&
+&4.2169E+01_JPRB,3.6897E+01_JPRB,3.2071E+01_JPRB,2.7706E+01_JPRB,2.8300E+01_JPRB,3.4266E+01_JPRB,&
+&4.1118E+01_JPRB,4.7968E+01_JPRB,5.4829E+01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&4.1907E+01_JPRB,3.6669E+01_JPRB,3.1957E+01_JPRB,2.8123E+01_JPRB,3.0151E+01_JPRB,3.7151E+01_JPRB,&
+&4.4578E+01_JPRB,5.2003E+01_JPRB,5.9438E+01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&4.1908E+01_JPRB,3.6670E+01_JPRB,3.2098E+01_JPRB,2.8899E+01_JPRB,3.2061E+01_JPRB,3.9810E+01_JPRB,&
+&4.7769E+01_JPRB,5.5728E+01_JPRB,6.3685E+01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&4.2172E+01_JPRB,3.6900E+01_JPRB,3.2471E+01_JPRB,2.9889E+01_JPRB,3.3921E+01_JPRB,4.2203E+01_JPRB,&
+&5.0640E+01_JPRB,5.9081E+01_JPRB,6.7523E+01_JPRB/)
+KAO( :, 1,11,15) = (/&
+&4.7323E+01_JPRB,4.1408E+01_JPRB,3.5997E+01_JPRB,3.0832E+01_JPRB,2.9578E+01_JPRB,3.3795E+01_JPRB,&
+&4.0553E+01_JPRB,4.7310E+01_JPRB,5.4070E+01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&4.7418E+01_JPRB,4.1491E+01_JPRB,3.6200E+01_JPRB,3.1353E+01_JPRB,3.1571E+01_JPRB,3.7371E+01_JPRB,&
+&4.4844E+01_JPRB,5.2315E+01_JPRB,5.9798E+01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&4.7687E+01_JPRB,4.1726E+01_JPRB,3.6545E+01_JPRB,3.2311E+01_JPRB,3.3701E+01_JPRB,4.0657E+01_JPRB,&
+&4.8786E+01_JPRB,5.6913E+01_JPRB,6.5046E+01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&4.8161E+01_JPRB,4.2141E+01_JPRB,3.7083E+01_JPRB,3.3405E+01_JPRB,3.5837E+01_JPRB,4.3612E+01_JPRB,&
+&5.2330E+01_JPRB,6.1049E+01_JPRB,6.9766E+01_JPRB/)
+KAO( :, 5,11,15) = (/&
+&4.8813E+01_JPRB,4.2712E+01_JPRB,3.7729E+01_JPRB,3.4639E+01_JPRB,3.7893E+01_JPRB,4.6304E+01_JPRB,&
+&5.5561E+01_JPRB,6.4817E+01_JPRB,7.4079E+01_JPRB/)
+KAO( :, 1,12,15) = (/&
+&5.3537E+01_JPRB,4.6845E+01_JPRB,4.0868E+01_JPRB,3.5074E+01_JPRB,3.3315E+01_JPRB,3.6716E+01_JPRB,&
+&4.3952E+01_JPRB,5.1273E+01_JPRB,5.8607E+01_JPRB/)
+KAO( :, 2,12,15) = (/&
+&5.4108E+01_JPRB,4.7344E+01_JPRB,4.1453E+01_JPRB,3.6183E+01_JPRB,3.5626E+01_JPRB,4.0597E+01_JPRB,&
+&4.8705E+01_JPRB,5.6822E+01_JPRB,6.4945E+01_JPRB/)
+KAO( :, 3,12,15) = (/&
+&5.4788E+01_JPRB,4.7940E+01_JPRB,4.2158E+01_JPRB,3.7480E+01_JPRB,3.7956E+01_JPRB,4.4233E+01_JPRB,&
+&5.3076E+01_JPRB,6.1921E+01_JPRB,7.0769E+01_JPRB/)
+KAO( :, 4,12,15) = (/&
+&5.5656E+01_JPRB,4.8699E+01_JPRB,4.2978E+01_JPRB,3.8824E+01_JPRB,4.0296E+01_JPRB,4.7573E+01_JPRB,&
+&5.7085E+01_JPRB,6.6598E+01_JPRB,7.6119E+01_JPRB/)
+KAO( :, 5,12,15) = (/&
+&5.6545E+01_JPRB,4.9477E+01_JPRB,4.3802E+01_JPRB,4.0209E+01_JPRB,4.2495E+01_JPRB,5.0548E+01_JPRB,&
+&6.0654E+01_JPRB,7.0757E+01_JPRB,8.0864E+01_JPRB/)
+KAO( :, 1,13,15) = (/&
+&6.1085E+01_JPRB,5.3449E+01_JPRB,4.6803E+01_JPRB,4.0529E+01_JPRB,3.7896E+01_JPRB,4.0194E+01_JPRB,&
+&4.7752E+01_JPRB,5.5708E+01_JPRB,6.3666E+01_JPRB/)
+KAO( :, 2,13,15) = (/&
+&6.2117E+01_JPRB,5.4352E+01_JPRB,4.7746E+01_JPRB,4.2003E+01_JPRB,4.0420E+01_JPRB,4.4278E+01_JPRB,&
+&5.2905E+01_JPRB,6.1722E+01_JPRB,7.0545E+01_JPRB/)
+KAO( :, 3,13,15) = (/&
+&6.3149E+01_JPRB,5.5256E+01_JPRB,4.8730E+01_JPRB,4.3496E+01_JPRB,4.2927E+01_JPRB,4.8152E+01_JPRB,&
+&5.7673E+01_JPRB,6.7281E+01_JPRB,7.6896E+01_JPRB/)
+KAO( :, 4,13,15) = (/&
+&6.4233E+01_JPRB,5.6204E+01_JPRB,4.9701E+01_JPRB,4.5014E+01_JPRB,4.5352E+01_JPRB,5.1670E+01_JPRB,&
+&6.1941E+01_JPRB,7.2260E+01_JPRB,8.2578E+01_JPRB/)
+KAO( :, 5,13,15) = (/&
+&6.5315E+01_JPRB,5.7151E+01_JPRB,5.0642E+01_JPRB,4.6520E+01_JPRB,4.7583E+01_JPRB,5.4805E+01_JPRB,&
+&6.5738E+01_JPRB,7.6689E+01_JPRB,8.7640E+01_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&2.3217E+01_JPRB,2.0315E+01_JPRB,1.7413E+01_JPRB,1.4511E+01_JPRB,1.7128E+01_JPRB,2.1409E+01_JPRB,&
+&2.5690E+01_JPRB,2.9970E+01_JPRB,3.1682E+01_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&2.2360E+01_JPRB,1.9565E+01_JPRB,1.6770E+01_JPRB,1.3975E+01_JPRB,1.7727E+01_JPRB,2.2158E+01_JPRB,&
+&2.6589E+01_JPRB,3.1019E+01_JPRB,3.2781E+01_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&2.1511E+01_JPRB,1.8822E+01_JPRB,1.6134E+01_JPRB,1.3677E+01_JPRB,1.8236E+01_JPRB,2.2795E+01_JPRB,&
+&2.7353E+01_JPRB,3.1910E+01_JPRB,3.3717E+01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&2.0675E+01_JPRB,1.8091E+01_JPRB,1.5507E+01_JPRB,1.4001E+01_JPRB,1.8668E+01_JPRB,2.3334E+01_JPRB,&
+&2.8002E+01_JPRB,3.2666E+01_JPRB,3.4515E+01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&1.9862E+01_JPRB,1.7379E+01_JPRB,1.4897E+01_JPRB,1.4274E+01_JPRB,1.9032E+01_JPRB,2.3789E+01_JPRB,&
+&2.8546E+01_JPRB,3.3301E+01_JPRB,3.5180E+01_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&2.4993E+01_JPRB,2.1869E+01_JPRB,1.8745E+01_JPRB,1.5621E+01_JPRB,2.0288E+01_JPRB,2.5360E+01_JPRB,&
+&3.0431E+01_JPRB,3.5501E+01_JPRB,3.8500E+01_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&2.4003E+01_JPRB,2.1003E+01_JPRB,1.8003E+01_JPRB,1.5799E+01_JPRB,2.1064E+01_JPRB,2.6330E+01_JPRB,&
+&3.1595E+01_JPRB,3.6859E+01_JPRB,3.9965E+01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&2.3031E+01_JPRB,2.0153E+01_JPRB,1.7274E+01_JPRB,1.6296E+01_JPRB,2.1728E+01_JPRB,2.7159E+01_JPRB,&
+&3.2591E+01_JPRB,3.8020E+01_JPRB,4.1220E+01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&2.2084E+01_JPRB,1.9324E+01_JPRB,1.6564E+01_JPRB,1.6718E+01_JPRB,2.2290E+01_JPRB,2.7862E+01_JPRB,&
+&3.3433E+01_JPRB,3.9003E+01_JPRB,4.2289E+01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&2.1176E+01_JPRB,1.8529E+01_JPRB,1.5883E+01_JPRB,1.7075E+01_JPRB,2.2766E+01_JPRB,2.8457E+01_JPRB,&
+&3.4148E+01_JPRB,3.9837E+01_JPRB,4.3190E+01_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&2.7048E+01_JPRB,2.3667E+01_JPRB,2.0286E+01_JPRB,1.7873E+01_JPRB,2.3831E+01_JPRB,2.9788E+01_JPRB,&
+&3.5745E+01_JPRB,4.1700E+01_JPRB,4.6434E+01_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&2.5923E+01_JPRB,2.2683E+01_JPRB,1.9443E+01_JPRB,1.8645E+01_JPRB,2.4860E+01_JPRB,3.1075E+01_JPRB,&
+&3.7289E+01_JPRB,4.3501E+01_JPRB,4.8433E+01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&2.4829E+01_JPRB,2.1725E+01_JPRB,1.8622E+01_JPRB,1.9301E+01_JPRB,2.5734E+01_JPRB,3.2168E+01_JPRB,&
+&3.8600E+01_JPRB,4.5030E+01_JPRB,5.0155E+01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&2.3775E+01_JPRB,2.0804E+01_JPRB,1.7832E+01_JPRB,1.9866E+01_JPRB,2.6487E+01_JPRB,3.3108E+01_JPRB,&
+&3.9729E+01_JPRB,4.6348E+01_JPRB,5.1627E+01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&2.2759E+01_JPRB,1.9914E+01_JPRB,1.7070E+01_JPRB,2.0344E+01_JPRB,2.7124E+01_JPRB,3.3905E+01_JPRB,&
+&4.0685E+01_JPRB,4.7463E+01_JPRB,5.2855E+01_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&2.9281E+01_JPRB,2.5621E+01_JPRB,2.1961E+01_JPRB,2.0878E+01_JPRB,2.7836E+01_JPRB,3.4801E+01_JPRB,&
+&4.1761E+01_JPRB,4.8718E+01_JPRB,5.5008E+01_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&2.8016E+01_JPRB,2.4514E+01_JPRB,2.1012E+01_JPRB,2.1904E+01_JPRB,2.9205E+01_JPRB,3.6506E+01_JPRB,&
+&4.3806E+01_JPRB,5.1103E+01_JPRB,5.7673E+01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&2.6800E+01_JPRB,2.3450E+01_JPRB,2.0100E+01_JPRB,2.2779E+01_JPRB,3.0372E+01_JPRB,3.7964E+01_JPRB,&
+&4.5556E+01_JPRB,5.3145E+01_JPRB,6.0000E+01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&2.5622E+01_JPRB,2.2420E+01_JPRB,1.9217E+01_JPRB,2.3531E+01_JPRB,3.1375E+01_JPRB,3.9218E+01_JPRB,&
+&4.7060E+01_JPRB,5.4900E+01_JPRB,6.1967E+01_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&2.4489E+01_JPRB,2.1428E+01_JPRB,1.8368E+01_JPRB,2.4165E+01_JPRB,3.2219E+01_JPRB,4.0274E+01_JPRB,&
+&4.8327E+01_JPRB,5.6378E+01_JPRB,6.3637E+01_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&3.1572E+01_JPRB,2.7626E+01_JPRB,2.3679E+01_JPRB,2.4302E+01_JPRB,3.2402E+01_JPRB,4.0502E+01_JPRB,&
+&4.8601E+01_JPRB,5.6697E+01_JPRB,6.4411E+01_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&3.0155E+01_JPRB,2.6386E+01_JPRB,2.2616E+01_JPRB,2.5641E+01_JPRB,3.4188E+01_JPRB,4.2734E+01_JPRB,&
+&5.1280E+01_JPRB,5.9822E+01_JPRB,6.7939E+01_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&2.8800E+01_JPRB,2.5200E+01_JPRB,2.1600E+01_JPRB,2.6788E+01_JPRB,3.5717E+01_JPRB,4.4645E+01_JPRB,&
+&5.3573E+01_JPRB,6.2498E+01_JPRB,7.0987E+01_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&2.7508E+01_JPRB,2.4070E+01_JPRB,2.0631E+01_JPRB,2.7770E+01_JPRB,3.7026E+01_JPRB,4.6282E+01_JPRB,&
+&5.5538E+01_JPRB,6.4790E+01_JPRB,7.3602E+01_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&2.6277E+01_JPRB,2.2993E+01_JPRB,1.9723E+01_JPRB,2.8602E+01_JPRB,3.8136E+01_JPRB,4.7669E+01_JPRB,&
+&5.7201E+01_JPRB,6.6735E+01_JPRB,7.5802E+01_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&3.4063E+01_JPRB,2.9805E+01_JPRB,2.5548E+01_JPRB,2.8070E+01_JPRB,3.7426E+01_JPRB,4.6782E+01_JPRB,&
+&5.6138E+01_JPRB,6.5490E+01_JPRB,7.4618E+01_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&3.2500E+01_JPRB,2.8438E+01_JPRB,2.4375E+01_JPRB,2.9810E+01_JPRB,3.9747E+01_JPRB,4.9683E+01_JPRB,&
+&5.9618E+01_JPRB,6.9550E+01_JPRB,7.9236E+01_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&3.1024E+01_JPRB,2.7146E+01_JPRB,2.3268E+01_JPRB,3.1309E+01_JPRB,4.1745E+01_JPRB,5.2181E+01_JPRB,&
+&6.2616E+01_JPRB,7.3047E+01_JPRB,8.3222E+01_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&2.9629E+01_JPRB,2.5925E+01_JPRB,2.2365E+01_JPRB,3.2588E+01_JPRB,4.3451E+01_JPRB,5.4313E+01_JPRB,&
+&6.5174E+01_JPRB,7.6032E+01_JPRB,8.6614E+01_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&2.8309E+01_JPRB,2.4770E+01_JPRB,2.2515E+01_JPRB,3.3663E+01_JPRB,4.4883E+01_JPRB,5.6104E+01_JPRB,&
+&6.7323E+01_JPRB,7.8538E+01_JPRB,8.9494E+01_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&3.6910E+01_JPRB,3.2297E+01_JPRB,2.7683E+01_JPRB,3.2196E+01_JPRB,4.2928E+01_JPRB,5.3659E+01_JPRB,&
+&6.4389E+01_JPRB,7.5116E+01_JPRB,8.5705E+01_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&3.5197E+01_JPRB,3.0797E+01_JPRB,2.6398E+01_JPRB,3.4425E+01_JPRB,4.5900E+01_JPRB,5.7374E+01_JPRB,&
+&6.8848E+01_JPRB,8.0317E+01_JPRB,9.1670E+01_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&3.3605E+01_JPRB,2.9404E+01_JPRB,2.5310E+01_JPRB,3.6355E+01_JPRB,4.8473E+01_JPRB,6.0591E+01_JPRB,&
+&7.2708E+01_JPRB,8.4820E+01_JPRB,9.6786E+01_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&3.2106E+01_JPRB,2.8093E+01_JPRB,2.5533E+01_JPRB,3.7999E+01_JPRB,5.0665E+01_JPRB,6.3330E+01_JPRB,&
+&7.5995E+01_JPRB,8.8655E+01_JPRB,1.0117E+02_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&3.0744E+01_JPRB,2.6901E+01_JPRB,2.6250E+01_JPRB,3.9375E+01_JPRB,5.2499E+01_JPRB,6.5623E+01_JPRB,&
+&7.8746E+01_JPRB,9.1865E+01_JPRB,1.0485E+02_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&4.0073E+01_JPRB,3.5064E+01_JPRB,3.0055E+01_JPRB,3.6634E+01_JPRB,4.8845E+01_JPRB,6.1056E+01_JPRB,&
+&7.3265E+01_JPRB,8.5470E+01_JPRB,9.7620E+01_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&3.8256E+01_JPRB,3.3474E+01_JPRB,2.8692E+01_JPRB,3.9468E+01_JPRB,5.2623E+01_JPRB,6.5778E+01_JPRB,&
+&7.8932E+01_JPRB,9.2081E+01_JPRB,1.0517E+02_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&3.6587E+01_JPRB,3.2013E+01_JPRB,2.8588E+01_JPRB,4.1890E+01_JPRB,5.5854E+01_JPRB,6.9816E+01_JPRB,&
+&8.3778E+01_JPRB,9.7751E+01_JPRB,1.1165E+02_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&3.5145E+01_JPRB,3.0752E+01_JPRB,2.9433E+01_JPRB,4.3973E+01_JPRB,5.8630E+01_JPRB,7.3286E+01_JPRB,&
+&8.7942E+01_JPRB,1.0259E+02_JPRB,1.1716E+02_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&3.4615E+01_JPRB,3.0288E+01_JPRB,3.0495E+01_JPRB,4.5712E+01_JPRB,6.0949E+01_JPRB,7.6185E+01_JPRB,&
+&9.1420E+01_JPRB,1.0665E+02_JPRB,1.2183E+02_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&4.3755E+01_JPRB,3.8286E+01_JPRB,3.2816E+01_JPRB,4.1247E+01_JPRB,5.4995E+01_JPRB,6.8743E+01_JPRB,&
+&8.2490E+01_JPRB,9.6233E+01_JPRB,1.0997E+02_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&4.1945E+01_JPRB,3.6702E+01_JPRB,3.1862E+01_JPRB,4.4780E+01_JPRB,5.9706E+01_JPRB,7.4631E+01_JPRB,&
+&8.9556E+01_JPRB,1.0447E+02_JPRB,1.1940E+02_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&4.0428E+01_JPRB,3.5374E+01_JPRB,3.2607E+01_JPRB,4.7818E+01_JPRB,6.3757E+01_JPRB,7.9695E+01_JPRB,&
+&9.5632E+01_JPRB,1.1156E+02_JPRB,1.2752E+02_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&3.9770E+01_JPRB,3.4798E+01_JPRB,3.3900E+01_JPRB,5.0397E+01_JPRB,6.7196E+01_JPRB,8.3994E+01_JPRB,&
+&1.0079E+02_JPRB,1.1758E+02_JPRB,1.3434E+02_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&4.1051E+01_JPRB,3.5919E+01_JPRB,3.5387E+01_JPRB,5.2540E+01_JPRB,7.0054E+01_JPRB,8.7567E+01_JPRB,&
+&1.0508E+02_JPRB,1.2258E+02_JPRB,1.4009E+02_JPRB/)
+KAO( :, 1,10,16) = (/&
+&4.8191E+01_JPRB,4.2167E+01_JPRB,3.6143E+01_JPRB,4.6233E+01_JPRB,6.1643E+01_JPRB,7.7053E+01_JPRB,&
+&9.2462E+01_JPRB,1.0788E+02_JPRB,1.2329E+02_JPRB/)
+KAO( :, 2,10,16) = (/&
+&4.6632E+01_JPRB,4.0803E+01_JPRB,3.6096E+01_JPRB,5.0540E+01_JPRB,6.7392E+01_JPRB,8.4239E+01_JPRB,&
+&1.0109E+02_JPRB,1.1792E+02_JPRB,1.3475E+02_JPRB/)
+KAO( :, 3,10,16) = (/&
+&4.5798E+01_JPRB,4.0073E+01_JPRB,3.7372E+01_JPRB,5.4219E+01_JPRB,7.2291E+01_JPRB,9.0363E+01_JPRB,&
+&1.0843E+02_JPRB,1.2650E+02_JPRB,1.4462E+02_JPRB/)
+KAO( :, 4,10,16) = (/&
+&4.7009E+01_JPRB,4.1133E+01_JPRB,3.9401E+01_JPRB,5.7318E+01_JPRB,7.6424E+01_JPRB,9.5528E+01_JPRB,&
+&1.1463E+02_JPRB,1.3373E+02_JPRB,1.5287E+02_JPRB/)
+KAO( :, 5,10,16) = (/&
+&4.8862E+01_JPRB,4.2754E+01_JPRB,4.1265E+01_JPRB,5.9899E+01_JPRB,7.9865E+01_JPRB,9.9835E+01_JPRB,&
+&1.1980E+02_JPRB,1.3976E+02_JPRB,1.5971E+02_JPRB/)
+KAO( :, 1,11,16) = (/&
+&5.3373E+01_JPRB,4.6702E+01_JPRB,4.0606E+01_JPRB,5.3674E+01_JPRB,7.1565E+01_JPRB,8.9455E+01_JPRB,&
+&1.0734E+02_JPRB,1.2523E+02_JPRB,1.4312E+02_JPRB/)
+KAO( :, 2,11,16) = (/&
+&5.3017E+01_JPRB,4.6390E+01_JPRB,4.2053E+01_JPRB,5.8474E+01_JPRB,7.7965E+01_JPRB,9.7455E+01_JPRB,&
+&1.1694E+02_JPRB,1.3643E+02_JPRB,1.5595E+02_JPRB/)
+KAO( :, 3,11,16) = (/&
+&5.4550E+01_JPRB,4.7731E+01_JPRB,4.4590E+01_JPRB,6.2526E+01_JPRB,8.3367E+01_JPRB,1.0421E+02_JPRB,&
+&1.2505E+02_JPRB,1.4588E+02_JPRB,1.6674E+02_JPRB/)
+KAO( :, 4,11,16) = (/&
+&5.6780E+01_JPRB,4.9683E+01_JPRB,4.6971E+01_JPRB,6.5903E+01_JPRB,8.7870E+01_JPRB,1.0984E+02_JPRB,&
+&1.3180E+02_JPRB,1.5376E+02_JPRB,1.7563E+02_JPRB/)
+KAO( :, 5,11,16) = (/&
+&5.9041E+01_JPRB,5.1661E+01_JPRB,4.9066E+01_JPRB,6.8642E+01_JPRB,9.1523E+01_JPRB,1.1440E+02_JPRB,&
+&1.3728E+02_JPRB,1.6015E+02_JPRB,1.8306E+02_JPRB/)
+KAO( :, 1,12,16) = (/&
+&6.1525E+01_JPRB,5.3834E+01_JPRB,4.7398E+01_JPRB,6.1480E+01_JPRB,8.1973E+01_JPRB,1.0246E+02_JPRB,&
+&1.2296E+02_JPRB,1.4346E+02_JPRB,1.6393E+02_JPRB/)
+KAO( :, 2,12,16) = (/&
+&6.3155E+01_JPRB,5.5261E+01_JPRB,5.0248E+01_JPRB,6.6709E+01_JPRB,8.8945E+01_JPRB,1.1118E+02_JPRB,&
+&1.3341E+02_JPRB,1.5564E+02_JPRB,1.7789E+02_JPRB/)
+KAO( :, 3,12,16) = (/&
+&6.5829E+01_JPRB,5.7600E+01_JPRB,5.3241E+01_JPRB,7.1073E+01_JPRB,9.4764E+01_JPRB,1.1845E+02_JPRB,&
+&1.4214E+02_JPRB,1.6583E+02_JPRB,1.8954E+02_JPRB/)
+KAO( :, 4,12,16) = (/&
+&6.8453E+01_JPRB,5.9896E+01_JPRB,5.5974E+01_JPRB,7.4756E+01_JPRB,9.9674E+01_JPRB,1.2459E+02_JPRB,&
+&1.4950E+02_JPRB,1.7441E+02_JPRB,1.9932E+02_JPRB/)
+KAO( :, 5,12,16) = (/&
+&7.1079E+01_JPRB,6.2194E+01_JPRB,5.8308E+01_JPRB,7.7950E+01_JPRB,1.0393E+02_JPRB,1.2991E+02_JPRB,&
+&1.5589E+02_JPRB,1.8186E+02_JPRB,2.0786E+02_JPRB/)
+KAO( :, 1,13,16) = (/&
+&7.3106E+01_JPRB,6.3968E+01_JPRB,5.6524E+01_JPRB,6.9787E+01_JPRB,9.2588E+01_JPRB,1.1573E+02_JPRB,&
+&1.3888E+02_JPRB,1.6201E+02_JPRB,1.8517E+02_JPRB/)
+KAO( :, 2,13,16) = (/&
+&7.5846E+01_JPRB,6.6365E+01_JPRB,6.0094E+01_JPRB,7.5398E+01_JPRB,1.0038E+02_JPRB,1.2548E+02_JPRB,&
+&1.5057E+02_JPRB,1.7566E+02_JPRB,2.0075E+02_JPRB/)
+KAO( :, 3,13,16) = (/&
+&7.9121E+01_JPRB,6.9231E+01_JPRB,6.3478E+01_JPRB,8.0291E+01_JPRB,1.0705E+02_JPRB,1.3382E+02_JPRB,&
+&1.6058E+02_JPRB,1.8733E+02_JPRB,2.1409E+02_JPRB/)
+KAO( :, 4,13,16) = (/&
+&8.2254E+01_JPRB,7.1972E+01_JPRB,6.6518E+01_JPRB,8.4693E+01_JPRB,1.1292E+02_JPRB,1.4115E+02_JPRB,&
+&1.6938E+02_JPRB,1.9759E+02_JPRB,2.2586E+02_JPRB/)
+KAO( :, 5,13,16) = (/&
+&8.5142E+01_JPRB,7.4499E+01_JPRB,6.9191E+01_JPRB,8.8493E+01_JPRB,1.1799E+02_JPRB,1.4748E+02_JPRB,&
+&1.7697E+02_JPRB,2.0646E+02_JPRB,2.3600E+02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB12_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb13.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb13.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb13.F90	(revision 2160)
@@ -0,0 +1,17 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB13
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB13_00
+      call RRTM_KGB13_A1
+      call RRTM_KGB13_A2
+
+!     ------------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB13
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_00.F90	(revision 2160)
@@ -0,0 +1,128 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB13_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+STRRAT = 16658.87_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&9.83745E-03_JPRB, 8.45687E-03_JPRB, 7.27004E-03_JPRB, 6.24977E-03_JPRB, 5.37269E-03_JPRB,&
+&4.61869E-03_JPRB, 3.97051E-03_JPRB, 3.41329E-03_JPRB, 2.93427E-03_JPRB, 2.52248E-03_JPRB/)
+SELFREFO( :, 2) = (/&
+&9.79014E-03_JPRB, 8.48557E-03_JPRB, 7.35483E-03_JPRB, 6.37477E-03_JPRB, 5.52531E-03_JPRB,&
+&4.78905E-03_JPRB, 4.15089E-03_JPRB, 3.59777E-03_JPRB, 3.11835E-03_JPRB, 2.70282E-03_JPRB/)
+SELFREFO( :, 3) = (/&
+&9.36931E-03_JPRB, 8.10880E-03_JPRB, 7.01787E-03_JPRB, 6.07371E-03_JPRB, 5.25658E-03_JPRB,&
+&4.54938E-03_JPRB, 3.93732E-03_JPRB, 3.40761E-03_JPRB, 2.94916E-03_JPRB, 2.55239E-03_JPRB/)
+SELFREFO( :, 4) = (/&
+&8.44896E-03_JPRB, 7.26401E-03_JPRB, 6.24525E-03_JPRB, 5.36937E-03_JPRB, 4.61632E-03_JPRB,&
+&3.96889E-03_JPRB, 3.41226E-03_JPRB, 2.93370E-03_JPRB, 2.52226E-03_JPRB, 2.16851E-03_JPRB/)
+SELFREFO( :, 5) = (/&
+&6.69018E-03_JPRB, 5.93911E-03_JPRB, 5.27237E-03_JPRB, 4.68047E-03_JPRB, 4.15502E-03_JPRB,&
+&3.68856E-03_JPRB, 3.27447E-03_JPRB, 2.90686E-03_JPRB, 2.58053E-03_JPRB, 2.29083E-03_JPRB/)
+SELFREFO( :, 6) = (/&
+&6.26590E-03_JPRB, 5.54076E-03_JPRB, 4.89954E-03_JPRB, 4.33252E-03_JPRB, 3.83113E-03_JPRB,&
+&3.38776E-03_JPRB, 2.99570E-03_JPRB, 2.64901E-03_JPRB, 2.34244E-03_JPRB, 2.07136E-03_JPRB/)
+SELFREFO( :, 7) = (/&
+&6.01943E-03_JPRB, 5.31006E-03_JPRB, 4.68429E-03_JPRB, 4.13226E-03_JPRB, 3.64529E-03_JPRB,&
+&3.21570E-03_JPRB, 2.83674E-03_JPRB, 2.50244E-03_JPRB, 2.20754E-03_JPRB, 1.94739E-03_JPRB/)
+SELFREFO( :, 8) = (/&
+&5.80205E-03_JPRB, 5.07696E-03_JPRB, 4.44248E-03_JPRB, 3.88730E-03_JPRB, 3.40149E-03_JPRB,&
+&2.97640E-03_JPRB, 2.60444E-03_JPRB, 2.27895E-03_JPRB, 1.99415E-03_JPRB, 1.74494E-03_JPRB/)
+SELFREFO( :, 9) = (/&
+&4.90962E-03_JPRB, 4.54613E-03_JPRB, 4.20956E-03_JPRB, 3.89790E-03_JPRB, 3.60931E-03_JPRB,&
+&3.34210E-03_JPRB, 3.09466E-03_JPRB, 2.86555E-03_JPRB, 2.65339E-03_JPRB, 2.45695E-03_JPRB/)
+SELFREFO( :,10) = (/&
+&4.51541E-03_JPRB, 4.34841E-03_JPRB, 4.18758E-03_JPRB, 4.03271E-03_JPRB, 3.88356E-03_JPRB,&
+&3.73992E-03_JPRB, 3.60160E-03_JPRB, 3.46840E-03_JPRB, 3.34012E-03_JPRB, 3.21658E-03_JPRB/)
+SELFREFO( :,11) = (/&
+&4.41859E-03_JPRB, 4.25299E-03_JPRB, 4.09360E-03_JPRB, 3.94018E-03_JPRB, 3.79252E-03_JPRB,&
+&3.65038E-03_JPRB, 3.51357E-03_JPRB, 3.38189E-03_JPRB, 3.25515E-03_JPRB, 3.13316E-03_JPRB/)
+SELFREFO( :,12) = (/&
+&4.41867E-03_JPRB, 4.22140E-03_JPRB, 4.03294E-03_JPRB, 3.85289E-03_JPRB, 3.68088E-03_JPRB,&
+&3.51655E-03_JPRB, 3.35956E-03_JPRB, 3.20957E-03_JPRB, 3.06628E-03_JPRB, 2.92939E-03_JPRB/)
+SELFREFO( :,13) = (/&
+&4.42776E-03_JPRB, 4.34604E-03_JPRB, 4.26583E-03_JPRB, 4.18710E-03_JPRB, 4.10983E-03_JPRB,&
+&4.03398E-03_JPRB, 3.95953E-03_JPRB, 3.88645E-03_JPRB, 3.81472E-03_JPRB, 3.74432E-03_JPRB/)
+SELFREFO( :,14) = (/&
+&4.46410E-03_JPRB, 4.46210E-03_JPRB, 4.46011E-03_JPRB, 4.45812E-03_JPRB, 4.45613E-03_JPRB,&
+&4.45414E-03_JPRB, 4.45216E-03_JPRB, 4.45017E-03_JPRB, 4.44818E-03_JPRB, 4.44620E-03_JPRB/)
+SELFREFO( :,15) = (/&
+&3.21270E-03_JPRB, 3.42098E-03_JPRB, 3.64276E-03_JPRB, 3.87892E-03_JPRB, 4.13040E-03_JPRB,&
+&4.39817E-03_JPRB, 4.68330E-03_JPRB, 4.98692E-03_JPRB, 5.31023E-03_JPRB, 5.65449E-03_JPRB/)
+SELFREFO( :,16) = (/&
+&3.11411E-03_JPRB, 3.35874E-03_JPRB, 3.62259E-03_JPRB, 3.90717E-03_JPRB, 4.21410E-03_JPRB,&
+&4.54514E-03_JPRB, 4.90219E-03_JPRB, 5.28729E-03_JPRB, 5.70264E-03_JPRB, 6.15061E-03_JPRB/)
+
+FRACREFAO( : , 1) = (/&
+!   From P = 706.3 mb.
+    &0.17683899_JPRB,0.17319500_JPRB,0.15712699_JPRB,0.13604601_JPRB,&
+    &0.10776200_JPRB,0.08750010_JPRB,0.06808820_JPRB,0.04905150_JPRB,&
+    &0.03280360_JPRB,0.00350836_JPRB,0.00281864_JPRB,0.00219862_JPRB,&
+    &0.00160943_JPRB,0.00101885_JPRB,0.00038147_JPRB,0.00005348_JPRB/)
+FRACREFAO( : , 2) = (/&
+    &0.17535400_JPRB,0.16999300_JPRB,0.15610200_JPRB,0.13589200_JPRB,&
+    &0.10842100_JPRB,0.08988550_JPRB,0.06943920_JPRB,0.04974900_JPRB,&
+    &0.03323400_JPRB,0.00352752_JPRB,0.00289402_JPRB,0.00231003_JPRB,&
+    &0.00174659_JPRB,0.00101884_JPRB,0.00038147_JPRB,0.00005348_JPRB/)
+FRACREFAO( : , 3) = (/&
+    &0.17409500_JPRB,0.16846400_JPRB,0.15641899_JPRB,0.13503000_JPRB,&
+    &0.10838600_JPRB,0.08985800_JPRB,0.07092720_JPRB,0.05075710_JPRB,&
+    &0.03364180_JPRB,0.00354241_JPRB,0.00303507_JPRB,0.00243391_JPRB,&
+    &0.00177502_JPRB,0.00114638_JPRB,0.00043585_JPRB,0.00005348_JPRB/)
+FRACREFAO( : , 4) = (/&
+    &0.17248300_JPRB,0.16778600_JPRB,0.15543500_JPRB,0.13496999_JPRB,&
+    &0.10826300_JPRB,0.09028740_JPRB,0.07156720_JPRB,0.05187120_JPRB,&
+    &0.03424890_JPRB,0.00363933_JPRB,0.00324715_JPRB,0.00255030_JPRB,&
+    &0.00187380_JPRB,0.00116978_JPRB,0.00051229_JPRB,0.00009768_JPRB/)
+FRACREFAO( : , 5) = (/&
+    &0.17061099_JPRB,0.16715799_JPRB,0.15405200_JPRB,0.13471501_JPRB,&
+    &0.10896400_JPRB,0.09069460_JPRB,0.07229760_JPRB,0.05218280_JPRB,&
+    &0.03555340_JPRB,0.00379576_JPRB,0.00330240_JPRB,0.00274693_JPRB,&
+    &0.00201587_JPRB,0.00119598_JPRB,0.00061885_JPRB,0.00009768_JPRB/)
+FRACREFAO( : , 6) = (/&
+    &0.16789700_JPRB,0.16629100_JPRB,0.15270300_JPRB,0.13360199_JPRB,&
+    &0.11047200_JPRB,0.09151080_JPRB,0.07325000_JPRB,0.05261450_JPRB,&
+    &0.03657990_JPRB,0.00450092_JPRB,0.00349537_JPRB,0.00283321_JPRB,&
+    &0.00208396_JPRB,0.00140354_JPRB,0.00066587_JPRB,0.00009768_JPRB/)
+FRACREFAO( : , 7) = (/&
+    &0.16412200_JPRB,0.16387400_JPRB,0.15211500_JPRB,0.13062200_JPRB,&
+    &0.11325100_JPRB,0.09348130_JPRB,0.07381380_JPRB,0.05434740_JPRB,&
+    &0.03803160_JPRB,0.00481346_JPRB,0.00393592_JPRB,0.00296633_JPRB,&
+    &0.00222532_JPRB,0.00163762_JPRB,0.00066648_JPRB,0.00009768_JPRB/)
+FRACREFAO( : , 8) = (/&
+    &0.15513401_JPRB,0.15768200_JPRB,0.14850400_JPRB,0.13330200_JPRB,&
+    &0.11446500_JPRB,0.09868230_JPRB,0.07642050_JPRB,0.05624170_JPRB,&
+    &0.04197810_JPRB,0.00502288_JPRB,0.00429452_JPRB,0.00315347_JPRB,&
+    &0.00263559_JPRB,0.00171772_JPRB,0.00066860_JPRB,0.00009768_JPRB/)
+FRACREFAO( : , 9) = (/&
+    &0.15732600_JPRB,0.15223300_JPRB,0.14271900_JPRB,0.13563600_JPRB,&
+    &0.11859600_JPRB,0.10274200_JPRB,0.07934560_JPRB,0.05763410_JPRB,&
+    &0.03921740_JPRB,0.00437741_JPRB,0.00337921_JPRB,0.00280212_JPRB,&
+    &0.00200156_JPRB,0.00124812_JPRB,0.00064664_JPRB,0.00009768_JPRB/)
+
+!     ------------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB13_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_A1.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB13_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&6.0224E-05_JPRB,8.4190E-05_JPRB,9.2945E-05_JPRB,9.8340E-05_JPRB,1.0097E-04_JPRB,1.0123E-04_JPRB,&
+&9.8980E-05_JPRB,9.5101E-05_JPRB,1.0057E-04_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&6.0879E-05_JPRB,8.9195E-05_JPRB,9.9910E-05_JPRB,1.0710E-04_JPRB,1.1122E-04_JPRB,1.1263E-04_JPRB,&
+&1.1044E-04_JPRB,1.0763E-04_JPRB,1.0542E-04_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&6.1791E-05_JPRB,9.5106E-05_JPRB,1.0827E-04_JPRB,1.1785E-04_JPRB,1.2380E-04_JPRB,1.2668E-04_JPRB,&
+&1.2512E-04_JPRB,1.2107E-04_JPRB,1.1351E-04_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&6.3010E-05_JPRB,1.0201E-04_JPRB,1.1821E-04_JPRB,1.3067E-04_JPRB,1.3868E-04_JPRB,1.4333E-04_JPRB,&
+&1.4292E-04_JPRB,1.3776E-04_JPRB,1.2486E-04_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&6.4569E-05_JPRB,1.0987E-04_JPRB,1.2980E-04_JPRB,1.4543E-04_JPRB,1.5604E-04_JPRB,1.6272E-04_JPRB,&
+&1.6360E-04_JPRB,1.5809E-04_JPRB,1.3899E-04_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&5.2287E-05_JPRB,7.1405E-05_JPRB,7.7712E-05_JPRB,8.1186E-05_JPRB,8.2505E-05_JPRB,8.2006E-05_JPRB,&
+&7.9565E-05_JPRB,7.6455E-05_JPRB,9.9524E-05_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&5.2781E-05_JPRB,7.5455E-05_JPRB,8.3243E-05_JPRB,8.8119E-05_JPRB,9.0567E-05_JPRB,9.0970E-05_JPRB,&
+&8.8663E-05_JPRB,8.6015E-05_JPRB,1.0412E-04_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&5.3548E-05_JPRB,8.0317E-05_JPRB,9.0003E-05_JPRB,9.6753E-05_JPRB,1.0065E-04_JPRB,1.0210E-04_JPRB,&
+&1.0019E-04_JPRB,9.6846E-05_JPRB,1.1058E-04_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&5.4581E-05_JPRB,8.6067E-05_JPRB,9.8148E-05_JPRB,1.0717E-04_JPRB,1.1272E-04_JPRB,1.1541E-04_JPRB,&
+&1.1436E-04_JPRB,1.1002E-04_JPRB,1.1929E-04_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&5.5952E-05_JPRB,9.2760E-05_JPRB,1.0776E-04_JPRB,1.1931E-04_JPRB,1.2684E-04_JPRB,1.3110E-04_JPRB,&
+&1.3118E-04_JPRB,1.2615E-04_JPRB,1.3023E-04_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&4.5915E-05_JPRB,6.0577E-05_JPRB,6.4826E-05_JPRB,6.6685E-05_JPRB,6.6750E-05_JPRB,6.5539E-05_JPRB,&
+&6.2942E-05_JPRB,6.0959E-05_JPRB,1.1753E-04_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&4.6227E-05_JPRB,6.3783E-05_JPRB,6.9133E-05_JPRB,7.1876E-05_JPRB,7.2797E-05_JPRB,7.2195E-05_JPRB,&
+&6.9765E-05_JPRB,6.7154E-05_JPRB,1.2464E-04_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&4.6851E-05_JPRB,6.7690E-05_JPRB,7.4367E-05_JPRB,7.8503E-05_JPRB,8.0513E-05_JPRB,8.0733E-05_JPRB,&
+&7.8338E-05_JPRB,7.5667E-05_JPRB,1.3207E-04_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&4.7751E-05_JPRB,7.2324E-05_JPRB,8.0776E-05_JPRB,8.6619E-05_JPRB,8.9966E-05_JPRB,9.1016E-05_JPRB,&
+&8.9192E-05_JPRB,8.5836E-05_JPRB,1.3971E-04_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&4.8912E-05_JPRB,7.7822E-05_JPRB,8.8433E-05_JPRB,9.6277E-05_JPRB,1.0117E-04_JPRB,1.0326E-04_JPRB,&
+&1.0232E-04_JPRB,9.7968E-05_JPRB,1.4868E-04_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&4.0950E-05_JPRB,5.2139E-05_JPRB,5.4765E-05_JPRB,5.5573E-05_JPRB,5.4704E-05_JPRB,5.2865E-05_JPRB,&
+&5.0161E-05_JPRB,4.9155E-05_JPRB,1.5352E-04_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&4.1070E-05_JPRB,5.4592E-05_JPRB,5.8140E-05_JPRB,5.9442E-05_JPRB,5.9104E-05_JPRB,5.7678E-05_JPRB,&
+&5.5011E-05_JPRB,5.2621E-05_JPRB,1.6066E-04_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&4.1547E-05_JPRB,5.7742E-05_JPRB,6.2323E-05_JPRB,6.4435E-05_JPRB,6.4943E-05_JPRB,6.4068E-05_JPRB,&
+&6.1387E-05_JPRB,5.9195E-05_JPRB,1.6903E-04_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&4.2287E-05_JPRB,6.1604E-05_JPRB,6.7380E-05_JPRB,7.0692E-05_JPRB,7.2200E-05_JPRB,7.1920E-05_JPRB,&
+&6.9467E-05_JPRB,6.6532E-05_JPRB,1.7839E-04_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&4.3274E-05_JPRB,6.6127E-05_JPRB,7.3452E-05_JPRB,7.8267E-05_JPRB,8.0937E-05_JPRB,8.1435E-05_JPRB,&
+&7.9548E-05_JPRB,7.5644E-05_JPRB,1.8879E-04_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&3.6899E-05_JPRB,4.5432E-05_JPRB,4.6910E-05_JPRB,4.6828E-05_JPRB,4.5505E-05_JPRB,4.3257E-05_JPRB,&
+&4.0494E-05_JPRB,4.0683E-05_JPRB,2.1040E-04_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&3.6791E-05_JPRB,4.7257E-05_JPRB,4.9430E-05_JPRB,4.9831E-05_JPRB,4.8726E-05_JPRB,4.6653E-05_JPRB,&
+&4.3906E-05_JPRB,4.1943E-05_JPRB,2.1714E-04_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&3.7067E-05_JPRB,4.9759E-05_JPRB,5.2813E-05_JPRB,5.3675E-05_JPRB,5.3108E-05_JPRB,5.1487E-05_JPRB,&
+&4.8518E-05_JPRB,4.6186E-05_JPRB,2.2577E-04_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&3.7713E-05_JPRB,5.2955E-05_JPRB,5.6991E-05_JPRB,5.8578E-05_JPRB,5.8728E-05_JPRB,5.7522E-05_JPRB,&
+&5.4651E-05_JPRB,5.2154E-05_JPRB,2.3593E-04_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&3.8601E-05_JPRB,5.6859E-05_JPRB,6.2047E-05_JPRB,6.4624E-05_JPRB,6.5592E-05_JPRB,6.4919E-05_JPRB,&
+&6.2327E-05_JPRB,5.8914E-05_JPRB,2.4626E-04_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&3.3082E-05_JPRB,3.9382E-05_JPRB,4.0055E-05_JPRB,3.9341E-05_JPRB,3.7713E-05_JPRB,3.5318E-05_JPRB,&
+&3.2652E-05_JPRB,3.2896E-05_JPRB,2.9458E-04_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&3.2847E-05_JPRB,4.0822E-05_JPRB,4.1992E-05_JPRB,4.1637E-05_JPRB,4.0248E-05_JPRB,3.7895E-05_JPRB,&
+&3.4950E-05_JPRB,3.3596E-05_JPRB,2.9908E-04_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&3.2992E-05_JPRB,4.2782E-05_JPRB,4.4664E-05_JPRB,4.4799E-05_JPRB,4.3587E-05_JPRB,4.1448E-05_JPRB,&
+&3.8538E-05_JPRB,3.6195E-05_JPRB,3.0643E-04_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&3.3529E-05_JPRB,4.5435E-05_JPRB,4.8125E-05_JPRB,4.8714E-05_JPRB,4.7939E-05_JPRB,4.6103E-05_JPRB,&
+&4.3124E-05_JPRB,4.0777E-05_JPRB,3.1650E-04_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&3.4353E-05_JPRB,4.8744E-05_JPRB,5.2397E-05_JPRB,5.3568E-05_JPRB,5.3408E-05_JPRB,5.1940E-05_JPRB,&
+&4.9013E-05_JPRB,4.5970E-05_JPRB,3.2817E-04_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&2.9702E-05_JPRB,3.4031E-05_JPRB,3.4045E-05_JPRB,3.2966E-05_JPRB,3.1191E-05_JPRB,2.8774E-05_JPRB,&
+&2.6215E-05_JPRB,2.6660E-05_JPRB,4.4900E-04_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&2.9362E-05_JPRB,3.5097E-05_JPRB,3.5527E-05_JPRB,3.4696E-05_JPRB,3.3156E-05_JPRB,3.0815E-05_JPRB,&
+&2.7832E-05_JPRB,2.7318E-05_JPRB,4.4931E-04_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&2.9381E-05_JPRB,3.6764E-05_JPRB,3.7674E-05_JPRB,3.7240E-05_JPRB,3.5897E-05_JPRB,3.3579E-05_JPRB,&
+&3.0718E-05_JPRB,2.8716E-05_JPRB,4.5416E-04_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&2.9804E-05_JPRB,3.8980E-05_JPRB,4.0580E-05_JPRB,4.0617E-05_JPRB,3.9435E-05_JPRB,3.7220E-05_JPRB,&
+&3.4325E-05_JPRB,3.1670E-05_JPRB,4.6259E-04_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&3.0562E-05_JPRB,4.1836E-05_JPRB,4.4230E-05_JPRB,4.4708E-05_JPRB,4.3841E-05_JPRB,4.1868E-05_JPRB,&
+&3.8884E-05_JPRB,3.5908E-05_JPRB,4.7345E-04_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&2.7321E-05_JPRB,3.0014E-05_JPRB,2.9442E-05_JPRB,2.8040E-05_JPRB,2.6171E-05_JPRB,2.3688E-05_JPRB,&
+&2.1169E-05_JPRB,2.1771E-05_JPRB,8.4757E-04_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&2.6852E-05_JPRB,3.0756E-05_JPRB,3.0519E-05_JPRB,2.9342E-05_JPRB,2.7606E-05_JPRB,2.5285E-05_JPRB,&
+&2.2516E-05_JPRB,2.2054E-05_JPRB,8.3254E-04_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&2.6744E-05_JPRB,3.2077E-05_JPRB,3.2249E-05_JPRB,3.1375E-05_JPRB,2.9814E-05_JPRB,2.7516E-05_JPRB,&
+&2.4584E-05_JPRB,2.2691E-05_JPRB,8.2738E-04_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&2.7044E-05_JPRB,3.3995E-05_JPRB,3.4700E-05_JPRB,3.4193E-05_JPRB,3.2808E-05_JPRB,3.0482E-05_JPRB,&
+&2.7565E-05_JPRB,2.5008E-05_JPRB,8.3006E-04_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&2.7742E-05_JPRB,3.6507E-05_JPRB,3.7912E-05_JPRB,3.7803E-05_JPRB,3.6547E-05_JPRB,3.4307E-05_JPRB,&
+&3.1271E-05_JPRB,2.8258E-05_JPRB,8.3842E-04_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&2.4687E-05_JPRB,2.6227E-05_JPRB,2.5301E-05_JPRB,2.3694E-05_JPRB,2.1797E-05_JPRB,1.9441E-05_JPRB,&
+&1.7144E-05_JPRB,1.8070E-05_JPRB,3.0692E-03_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&2.4149E-05_JPRB,2.6661E-05_JPRB,2.5983E-05_JPRB,2.4666E-05_JPRB,2.2860E-05_JPRB,2.0564E-05_JPRB,&
+&1.8143E-05_JPRB,1.7595E-05_JPRB,2.9547E-03_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&2.3961E-05_JPRB,2.7611E-05_JPRB,2.7357E-05_JPRB,2.6251E-05_JPRB,2.4586E-05_JPRB,2.2361E-05_JPRB,&
+&1.9658E-05_JPRB,1.8317E-05_JPRB,2.8730E-03_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&2.4159E-05_JPRB,2.9205E-05_JPRB,2.9375E-05_JPRB,2.8560E-05_JPRB,2.7008E-05_JPRB,2.4819E-05_JPRB,&
+&2.2013E-05_JPRB,1.9707E-05_JPRB,2.8257E-03_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&2.4768E-05_JPRB,3.1434E-05_JPRB,3.2114E-05_JPRB,3.1586E-05_JPRB,3.0168E-05_JPRB,2.7970E-05_JPRB,&
+&2.5064E-05_JPRB,2.2198E-05_JPRB,2.8077E-03_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&2.1797E-05_JPRB,2.2612E-05_JPRB,2.1570E-05_JPRB,1.9956E-05_JPRB,1.8112E-05_JPRB,1.6002E-05_JPRB,&
+&1.3941E-05_JPRB,1.4620E-05_JPRB,1.2580E-02_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&2.1252E-05_JPRB,2.2866E-05_JPRB,2.2054E-05_JPRB,2.0662E-05_JPRB,1.8925E-05_JPRB,1.6823E-05_JPRB,&
+&1.4740E-05_JPRB,1.4291E-05_JPRB,1.1973E-02_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&2.1032E-05_JPRB,2.3616E-05_JPRB,2.3143E-05_JPRB,2.1982E-05_JPRB,2.0293E-05_JPRB,1.8202E-05_JPRB,&
+&1.5821E-05_JPRB,1.4749E-05_JPRB,1.1500E-02_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&2.1171E-05_JPRB,2.4967E-05_JPRB,2.4887E-05_JPRB,2.3890E-05_JPRB,2.2324E-05_JPRB,2.0262E-05_JPRB,&
+&1.7708E-05_JPRB,1.5622E-05_JPRB,1.1158E-02_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&2.1717E-05_JPRB,2.6968E-05_JPRB,2.7236E-05_JPRB,2.6488E-05_JPRB,2.5038E-05_JPRB,2.2971E-05_JPRB,&
+&2.0251E-05_JPRB,1.7568E-05_JPRB,1.0927E-02_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&1.8470E-05_JPRB,1.9129E-05_JPRB,1.8217E-05_JPRB,1.6833E-05_JPRB,1.5198E-05_JPRB,1.3363E-05_JPRB,&
+&1.1543E-05_JPRB,1.1814E-05_JPRB,1.7618E-02_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&1.8063E-05_JPRB,1.9445E-05_JPRB,1.8772E-05_JPRB,1.7526E-05_JPRB,1.5974E-05_JPRB,1.4135E-05_JPRB,&
+&1.2268E-05_JPRB,1.1501E-05_JPRB,1.6744E-02_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&1.7957E-05_JPRB,2.0240E-05_JPRB,1.9844E-05_JPRB,1.8765E-05_JPRB,1.7266E-05_JPRB,1.5419E-05_JPRB,&
+&1.3308E-05_JPRB,1.2031E-05_JPRB,1.6060E-02_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&1.8203E-05_JPRB,2.1589E-05_JPRB,2.1496E-05_JPRB,2.0575E-05_JPRB,1.9161E-05_JPRB,1.7309E-05_JPRB,&
+&1.5025E-05_JPRB,1.2988E-05_JPRB,1.5567E-02_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&1.8839E-05_JPRB,2.3539E-05_JPRB,2.3752E-05_JPRB,2.3027E-05_JPRB,2.1716E-05_JPRB,1.9862E-05_JPRB,&
+&1.7378E-05_JPRB,1.4830E-05_JPRB,1.5199E-02_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&1.5612E-05_JPRB,1.6179E-05_JPRB,1.5392E-05_JPRB,1.4206E-05_JPRB,1.2794E-05_JPRB,1.1200E-05_JPRB,&
+&9.6111E-06_JPRB,9.5638E-06_JPRB,1.8266E-02_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&1.5307E-05_JPRB,1.6515E-05_JPRB,1.5933E-05_JPRB,1.4844E-05_JPRB,1.3479E-05_JPRB,1.1890E-05_JPRB,&
+&1.0208E-05_JPRB,9.3516E-06_JPRB,1.7358E-02_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&1.5280E-05_JPRB,1.7278E-05_JPRB,1.6918E-05_JPRB,1.5945E-05_JPRB,1.4639E-05_JPRB,1.3025E-05_JPRB,&
+&1.1176E-05_JPRB,9.8024E-06_JPRB,1.6665E-02_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&1.5592E-05_JPRB,1.8520E-05_JPRB,1.8406E-05_JPRB,1.7580E-05_JPRB,1.6331E-05_JPRB,1.4710E-05_JPRB,&
+&1.2711E-05_JPRB,1.0774E-05_JPRB,1.6133E-02_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&1.6237E-05_JPRB,2.0286E-05_JPRB,2.0469E-05_JPRB,1.9802E-05_JPRB,1.8638E-05_JPRB,1.6992E-05_JPRB,&
+&1.4787E-05_JPRB,1.2409E-05_JPRB,1.5729E-02_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&1.3792E-05_JPRB,1.4238E-05_JPRB,1.3502E-05_JPRB,1.2414E-05_JPRB,1.1117E-05_JPRB,9.6608E-06_JPRB,&
+&8.1806E-06_JPRB,7.6738E-06_JPRB,1.5338E-02_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&1.3542E-05_JPRB,1.4555E-05_JPRB,1.3995E-05_JPRB,1.2981E-05_JPRB,1.1719E-05_JPRB,1.0269E-05_JPRB,&
+&8.6775E-06_JPRB,7.6029E-06_JPRB,1.4590E-02_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&1.3558E-05_JPRB,1.5256E-05_JPRB,1.4880E-05_JPRB,1.3955E-05_JPRB,1.2744E-05_JPRB,1.1268E-05_JPRB,&
+&9.5734E-06_JPRB,8.0878E-06_JPRB,1.4000E-02_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&1.3858E-05_JPRB,1.6375E-05_JPRB,1.6230E-05_JPRB,1.5419E-05_JPRB,1.4252E-05_JPRB,1.2754E-05_JPRB,&
+&1.0921E-05_JPRB,9.0320E-06_JPRB,1.3543E-02_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&1.4462E-05_JPRB,1.7948E-05_JPRB,1.8079E-05_JPRB,1.7409E-05_JPRB,1.6310E-05_JPRB,1.4770E-05_JPRB,&
+&1.2761E-05_JPRB,1.0416E-05_JPRB,1.3196E-02_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&1.0631E-04_JPRB,1.5549E-04_JPRB,1.7340E-04_JPRB,1.8106E-04_JPRB,1.8266E-04_JPRB,1.7952E-04_JPRB,&
+&1.7173E-04_JPRB,1.6014E-04_JPRB,1.4099E-04_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&1.0836E-04_JPRB,1.6879E-04_JPRB,1.9237E-04_JPRB,2.0382E-04_JPRB,2.0859E-04_JPRB,2.0748E-04_JPRB,&
+&2.0039E-04_JPRB,1.8243E-04_JPRB,1.5914E-04_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&1.1141E-04_JPRB,1.8503E-04_JPRB,2.1527E-04_JPRB,2.3112E-04_JPRB,2.3976E-04_JPRB,2.4062E-04_JPRB,&
+&2.3400E-04_JPRB,2.1520E-04_JPRB,1.8165E-04_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&1.1542E-04_JPRB,2.0406E-04_JPRB,2.4207E-04_JPRB,2.6306E-04_JPRB,2.7542E-04_JPRB,2.7832E-04_JPRB,&
+&2.7291E-04_JPRB,2.5096E-04_JPRB,2.0989E-04_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&1.2040E-04_JPRB,2.2620E-04_JPRB,2.7276E-04_JPRB,2.9953E-04_JPRB,3.1543E-04_JPRB,3.2079E-04_JPRB,&
+&3.1620E-04_JPRB,2.8905E-04_JPRB,2.4408E-04_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&9.2736E-05_JPRB,1.3080E-04_JPRB,1.4408E-04_JPRB,1.4918E-04_JPRB,1.4919E-04_JPRB,1.4563E-04_JPRB,&
+&1.3832E-04_JPRB,1.2913E-04_JPRB,1.3821E-04_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&9.4585E-05_JPRB,1.4205E-04_JPRB,1.5994E-04_JPRB,1.6797E-04_JPRB,1.7060E-04_JPRB,1.6851E-04_JPRB,&
+&1.6121E-04_JPRB,1.4625E-04_JPRB,1.5045E-04_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&9.7336E-05_JPRB,1.5584E-04_JPRB,1.7917E-04_JPRB,1.9059E-04_JPRB,1.9617E-04_JPRB,1.9585E-04_JPRB,&
+&1.8879E-04_JPRB,1.7257E-04_JPRB,1.6847E-04_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&1.0100E-04_JPRB,1.7222E-04_JPRB,2.0175E-04_JPRB,2.1726E-04_JPRB,2.2590E-04_JPRB,2.2731E-04_JPRB,&
+&2.2070E-04_JPRB,2.0218E-04_JPRB,1.9129E-04_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&1.0558E-04_JPRB,1.9122E-04_JPRB,2.2772E-04_JPRB,2.4801E-04_JPRB,2.5982E-04_JPRB,2.6260E-04_JPRB,&
+&2.5652E-04_JPRB,2.3358E-04_JPRB,2.1889E-04_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&8.2078E-05_JPRB,1.0954E-04_JPRB,1.1829E-04_JPRB,1.2081E-04_JPRB,1.1948E-04_JPRB,1.1532E-04_JPRB,&
+&1.0856E-04_JPRB,1.0266E-04_JPRB,1.7007E-04_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&8.3515E-05_JPRB,1.1841E-04_JPRB,1.3075E-04_JPRB,1.3555E-04_JPRB,1.3601E-04_JPRB,1.3281E-04_JPRB,&
+&1.2585E-04_JPRB,1.1400E-04_JPRB,1.7692E-04_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&8.5702E-05_JPRB,1.2951E-04_JPRB,1.4617E-04_JPRB,1.5357E-04_JPRB,1.5612E-04_JPRB,1.5431E-04_JPRB,&
+&1.4752E-04_JPRB,1.3319E-04_JPRB,1.8883E-04_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&8.8714E-05_JPRB,1.4294E-04_JPRB,1.6445E-04_JPRB,1.7481E-04_JPRB,1.7986E-04_JPRB,1.7967E-04_JPRB,&
+&1.7282E-04_JPRB,1.5669E-04_JPRB,2.0641E-04_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&9.2653E-05_JPRB,1.5873E-04_JPRB,1.8560E-04_JPRB,1.9973E-04_JPRB,2.0749E-04_JPRB,2.0832E-04_JPRB,&
+&2.0174E-04_JPRB,1.8232E-04_JPRB,2.2828E-04_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&7.5057E-05_JPRB,9.3742E-05_JPRB,9.8708E-05_JPRB,9.9032E-05_JPRB,9.6534E-05_JPRB,9.1631E-05_JPRB,&
+&8.5330E-05_JPRB,8.0637E-05_JPRB,2.4302E-04_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&7.6019E-05_JPRB,1.0050E-04_JPRB,1.0818E-04_JPRB,1.1027E-04_JPRB,1.0900E-04_JPRB,1.0488E-04_JPRB,&
+&9.8357E-05_JPRB,8.9315E-05_JPRB,2.5003E-04_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&7.7597E-05_JPRB,1.0920E-04_JPRB,1.2007E-04_JPRB,1.2426E-04_JPRB,1.2440E-04_JPRB,1.2138E-04_JPRB,&
+&1.1480E-04_JPRB,1.0183E-04_JPRB,2.5796E-04_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&7.9952E-05_JPRB,1.1979E-04_JPRB,1.3449E-04_JPRB,1.4091E-04_JPRB,1.4297E-04_JPRB,1.4131E-04_JPRB,&
+&1.3468E-04_JPRB,1.2088E-04_JPRB,2.6766E-04_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&8.3148E-05_JPRB,1.3259E-04_JPRB,1.5143E-04_JPRB,1.6061E-04_JPRB,1.6491E-04_JPRB,1.6427E-04_JPRB,&
+&1.5762E-04_JPRB,1.4129E-04_JPRB,2.8200E-04_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&7.0507E-05_JPRB,8.2851E-05_JPRB,8.4727E-05_JPRB,8.3356E-05_JPRB,7.9669E-05_JPRB,7.4240E-05_JPRB,&
+&6.8168E-05_JPRB,6.4269E-05_JPRB,3.5533E-04_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&7.1163E-05_JPRB,8.7993E-05_JPRB,9.1940E-05_JPRB,9.1728E-05_JPRB,8.9016E-05_JPRB,8.4180E-05_JPRB,&
+&7.7602E-05_JPRB,7.0901E-05_JPRB,3.6205E-04_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&7.2353E-05_JPRB,9.4696E-05_JPRB,1.0096E-04_JPRB,1.0241E-04_JPRB,1.0073E-04_JPRB,9.6618E-05_JPRB,&
+&9.0257E-05_JPRB,7.9342E-05_JPRB,3.6910E-04_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&7.4211E-05_JPRB,1.0309E-04_JPRB,1.1198E-04_JPRB,1.1540E-04_JPRB,1.1506E-04_JPRB,1.1201E-04_JPRB,&
+&1.0538E-04_JPRB,9.2743E-05_JPRB,3.7730E-04_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&7.6842E-05_JPRB,1.1301E-04_JPRB,1.2533E-04_JPRB,1.3080E-04_JPRB,1.3221E-04_JPRB,1.3010E-04_JPRB,&
+&1.2341E-04_JPRB,1.0902E-04_JPRB,3.8882E-04_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&6.7057E-05_JPRB,7.4992E-05_JPRB,7.4494E-05_JPRB,7.1808E-05_JPRB,6.7401E-05_JPRB,6.1558E-05_JPRB,&
+&5.5600E-05_JPRB,5.3582E-05_JPRB,5.2728E-04_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&6.7342E-05_JPRB,7.8865E-05_JPRB,7.9962E-05_JPRB,7.8191E-05_JPRB,7.4156E-05_JPRB,6.8577E-05_JPRB,&
+&6.2398E-05_JPRB,5.6569E-05_JPRB,5.3013E-04_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&6.8218E-05_JPRB,8.4114E-05_JPRB,8.7034E-05_JPRB,8.6152E-05_JPRB,8.2978E-05_JPRB,7.8073E-05_JPRB,&
+&7.1379E-05_JPRB,6.2472E-05_JPRB,5.3405E-04_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&6.9765E-05_JPRB,9.0741E-05_JPRB,9.5513E-05_JPRB,9.6075E-05_JPRB,9.4001E-05_JPRB,8.9757E-05_JPRB,&
+&8.2727E-05_JPRB,7.1298E-05_JPRB,5.3812E-04_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&7.2087E-05_JPRB,9.8694E-05_JPRB,1.0570E-04_JPRB,1.0811E-04_JPRB,1.0716E-04_JPRB,1.0356E-04_JPRB,&
+&9.6610E-05_JPRB,8.3845E-05_JPRB,5.4521E-04_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&6.3981E-05_JPRB,6.8796E-05_JPRB,6.6960E-05_JPRB,6.3245E-05_JPRB,5.8395E-05_JPRB,5.2642E-05_JPRB,&
+&4.7017E-05_JPRB,4.3597E-05_JPRB,8.5561E-04_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&6.4065E-05_JPRB,7.1972E-05_JPRB,7.1316E-05_JPRB,6.8334E-05_JPRB,6.3687E-05_JPRB,5.7772E-05_JPRB,&
+&5.1662E-05_JPRB,4.6088E-05_JPRB,8.4325E-04_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&6.4710E-05_JPRB,7.6213E-05_JPRB,7.7049E-05_JPRB,7.4782E-05_JPRB,7.0451E-05_JPRB,6.4812E-05_JPRB,&
+&5.7879E-05_JPRB,5.0007E-05_JPRB,8.3547E-04_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&6.6047E-05_JPRB,8.1740E-05_JPRB,8.4011E-05_JPRB,8.2492E-05_JPRB,7.9038E-05_JPRB,7.3729E-05_JPRB,&
+&6.6297E-05_JPRB,5.5934E-05_JPRB,8.3289E-04_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&6.8167E-05_JPRB,8.8466E-05_JPRB,9.2188E-05_JPRB,9.2019E-05_JPRB,8.9278E-05_JPRB,8.4398E-05_JPRB,&
+&7.6796E-05_JPRB,6.5449E-05_JPRB,8.3519E-04_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&6.2510E-05_JPRB,6.4632E-05_JPRB,6.1651E-05_JPRB,5.7339E-05_JPRB,5.1955E-05_JPRB,4.6202E-05_JPRB,&
+&4.0544E-05_JPRB,3.4871E-05_JPRB,1.7109E-03_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&6.2657E-05_JPRB,6.7414E-05_JPRB,6.5438E-05_JPRB,6.1572E-05_JPRB,5.6549E-05_JPRB,5.0497E-05_JPRB,&
+&4.4065E-05_JPRB,3.7625E-05_JPRB,1.6570E-03_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&6.3371E-05_JPRB,7.1203E-05_JPRB,7.0449E-05_JPRB,6.7168E-05_JPRB,6.2333E-05_JPRB,5.6127E-05_JPRB,&
+&4.8965E-05_JPRB,4.1883E-05_JPRB,1.6155E-03_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&6.4738E-05_JPRB,7.6021E-05_JPRB,7.6569E-05_JPRB,7.3931E-05_JPRB,6.9329E-05_JPRB,6.3277E-05_JPRB,&
+&5.5409E-05_JPRB,4.5618E-05_JPRB,1.5874E-03_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&6.6770E-05_JPRB,8.2019E-05_JPRB,8.3827E-05_JPRB,8.1865E-05_JPRB,7.7838E-05_JPRB,7.1738E-05_JPRB,&
+&6.3577E-05_JPRB,5.2190E-05_JPRB,1.5711E-03_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&5.9728E-05_JPRB,5.9777E-05_JPRB,5.6068E-05_JPRB,5.1537E-05_JPRB,4.6074E-05_JPRB,4.0294E-05_JPRB,&
+&3.4429E-05_JPRB,2.7470E-05_JPRB,6.4927E-03_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&6.0003E-05_JPRB,6.2162E-05_JPRB,5.9412E-05_JPRB,5.5191E-05_JPRB,4.9924E-05_JPRB,4.3949E-05_JPRB,&
+&3.7436E-05_JPRB,3.0651E-05_JPRB,6.2135E-03_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&6.0913E-05_JPRB,6.5739E-05_JPRB,6.3824E-05_JPRB,6.0113E-05_JPRB,5.5046E-05_JPRB,4.8801E-05_JPRB,&
+&4.1506E-05_JPRB,3.4176E-05_JPRB,5.9805E-03_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&6.2491E-05_JPRB,7.0239E-05_JPRB,6.9462E-05_JPRB,6.6167E-05_JPRB,6.1198E-05_JPRB,5.4677E-05_JPRB,&
+&4.6786E-05_JPRB,3.7966E-05_JPRB,5.7915E-03_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&6.4708E-05_JPRB,7.5807E-05_JPRB,7.6215E-05_JPRB,7.3304E-05_JPRB,6.8390E-05_JPRB,6.1872E-05_JPRB,&
+&5.3436E-05_JPRB,4.2944E-05_JPRB,5.6478E-03_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&5.7126E-05_JPRB,5.5833E-05_JPRB,5.1557E-05_JPRB,4.6740E-05_JPRB,4.1349E-05_JPRB,3.5460E-05_JPRB,&
+&2.9383E-05_JPRB,2.2254E-05_JPRB,2.8102E-02_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&5.7625E-05_JPRB,5.8090E-05_JPRB,5.4514E-05_JPRB,5.0007E-05_JPRB,4.4659E-05_JPRB,3.8611E-05_JPRB,&
+&3.1928E-05_JPRB,2.5019E-05_JPRB,2.6630E-02_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&5.8840E-05_JPRB,6.1513E-05_JPRB,5.8714E-05_JPRB,5.4556E-05_JPRB,4.9297E-05_JPRB,4.2998E-05_JPRB,&
+&3.5795E-05_JPRB,2.7821E-05_JPRB,2.5370E-02_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&6.0763E-05_JPRB,6.6038E-05_JPRB,6.4072E-05_JPRB,6.0305E-05_JPRB,5.4952E-05_JPRB,4.8371E-05_JPRB,&
+&4.0375E-05_JPRB,3.1951E-05_JPRB,2.4311E-02_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&6.3372E-05_JPRB,7.1487E-05_JPRB,7.0499E-05_JPRB,6.7017E-05_JPRB,6.1584E-05_JPRB,5.4655E-05_JPRB,&
+&4.6116E-05_JPRB,3.6268E-05_JPRB,2.3439E-02_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&5.3603E-05_JPRB,5.2084E-05_JPRB,4.7825E-05_JPRB,4.2996E-05_JPRB,3.7707E-05_JPRB,3.1871E-05_JPRB,&
+&2.5749E-05_JPRB,1.8962E-05_JPRB,4.0768E-02_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&5.4665E-05_JPRB,5.4805E-05_JPRB,5.1049E-05_JPRB,4.6457E-05_JPRB,4.1159E-05_JPRB,3.5139E-05_JPRB,&
+&2.8405E-05_JPRB,2.1377E-05_JPRB,3.8491E-02_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&5.6497E-05_JPRB,5.8583E-05_JPRB,5.5394E-05_JPRB,5.1053E-05_JPRB,4.5792E-05_JPRB,3.9489E-05_JPRB,&
+&3.2243E-05_JPRB,2.4328E-05_JPRB,3.6513E-02_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&5.8985E-05_JPRB,6.3339E-05_JPRB,6.0862E-05_JPRB,5.6796E-05_JPRB,5.1415E-05_JPRB,4.4728E-05_JPRB,&
+&3.6818E-05_JPRB,2.8272E-05_JPRB,3.4835E-02_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&6.2109E-05_JPRB,6.9025E-05_JPRB,6.7331E-05_JPRB,6.3560E-05_JPRB,5.7958E-05_JPRB,5.0821E-05_JPRB,&
+&4.2238E-05_JPRB,3.2283E-05_JPRB,3.3538E-02_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&4.8218E-05_JPRB,4.6772E-05_JPRB,4.2783E-05_JPRB,3.8266E-05_JPRB,3.3329E-05_JPRB,2.7973E-05_JPRB,&
+&2.2210E-05_JPRB,1.6103E-05_JPRB,4.2855E-02_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&4.9589E-05_JPRB,4.9591E-05_JPRB,4.5984E-05_JPRB,4.1620E-05_JPRB,3.6685E-05_JPRB,3.1116E-05_JPRB,&
+&2.4857E-05_JPRB,1.8118E-05_JPRB,4.0385E-02_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&5.1684E-05_JPRB,5.3446E-05_JPRB,5.0256E-05_JPRB,4.6072E-05_JPRB,4.1058E-05_JPRB,3.5154E-05_JPRB,&
+&2.8460E-05_JPRB,2.1061E-05_JPRB,3.8259E-02_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&5.4404E-05_JPRB,5.8179E-05_JPRB,5.5538E-05_JPRB,5.1508E-05_JPRB,4.6383E-05_JPRB,4.0102E-05_JPRB,&
+&3.2710E-05_JPRB,2.4512E-05_JPRB,3.6555E-02_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&5.7705E-05_JPRB,6.3751E-05_JPRB,6.1743E-05_JPRB,5.7901E-05_JPRB,5.2567E-05_JPRB,4.5798E-05_JPRB,&
+&3.7620E-05_JPRB,2.8071E-05_JPRB,3.5258E-02_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&4.4847E-05_JPRB,4.3227E-05_JPRB,3.9370E-05_JPRB,3.5016E-05_JPRB,3.0292E-05_JPRB,2.5212E-05_JPRB,&
+&1.9650E-05_JPRB,1.3504E-05_JPRB,3.6293E-02_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&4.6428E-05_JPRB,4.6148E-05_JPRB,4.2554E-05_JPRB,3.8305E-05_JPRB,3.3519E-05_JPRB,2.8187E-05_JPRB,&
+&2.2241E-05_JPRB,1.5699E-05_JPRB,3.4162E-02_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&4.8652E-05_JPRB,5.0010E-05_JPRB,4.6740E-05_JPRB,4.2580E-05_JPRB,3.7668E-05_JPRB,3.2017E-05_JPRB,&
+&2.5602E-05_JPRB,1.8433E-05_JPRB,3.2408E-02_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&5.1540E-05_JPRB,5.4741E-05_JPRB,5.1862E-05_JPRB,4.7783E-05_JPRB,4.2732E-05_JPRB,3.6679E-05_JPRB,&
+&2.9552E-05_JPRB,2.1520E-05_JPRB,3.1021E-02_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&5.5009E-05_JPRB,6.0274E-05_JPRB,5.7902E-05_JPRB,5.3924E-05_JPRB,4.8654E-05_JPRB,4.2058E-05_JPRB,&
+&3.4024E-05_JPRB,2.4705E-05_JPRB,2.9920E-02_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&2.1996E-04_JPRB,2.9526E-04_JPRB,3.2298E-04_JPRB,3.3886E-04_JPRB,3.4278E-04_JPRB,3.3270E-04_JPRB,&
+&3.0580E-04_JPRB,2.6421E-04_JPRB,1.9405E-04_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&2.2777E-04_JPRB,3.2546E-04_JPRB,3.6631E-04_JPRB,3.9178E-04_JPRB,3.9976E-04_JPRB,3.8992E-04_JPRB,&
+&3.6015E-04_JPRB,3.0390E-04_JPRB,2.3244E-04_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&2.3798E-04_JPRB,3.6240E-04_JPRB,4.1819E-04_JPRB,4.5171E-04_JPRB,4.6388E-04_JPRB,4.5403E-04_JPRB,&
+&4.2005E-04_JPRB,3.4862E-04_JPRB,2.7996E-04_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&2.5036E-04_JPRB,4.0578E-04_JPRB,4.7739E-04_JPRB,5.1796E-04_JPRB,5.3466E-04_JPRB,5.2428E-04_JPRB,&
+&4.8540E-04_JPRB,4.0265E-04_JPRB,3.3613E-04_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&2.6491E-04_JPRB,4.5514E-04_JPRB,5.4139E-04_JPRB,5.9019E-04_JPRB,6.1021E-04_JPRB,6.0113E-04_JPRB,&
+&5.5511E-04_JPRB,4.6549E-04_JPRB,4.0231E-04_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&1.9023E-04_JPRB,2.4938E-04_JPRB,2.6928E-04_JPRB,2.7999E-04_JPRB,2.8164E-04_JPRB,2.7165E-04_JPRB,&
+&2.4816E-04_JPRB,2.1405E-04_JPRB,1.8605E-04_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&1.9755E-04_JPRB,2.7578E-04_JPRB,3.0701E-04_JPRB,3.2514E-04_JPRB,3.2961E-04_JPRB,3.1950E-04_JPRB,&
+&2.9350E-04_JPRB,2.4834E-04_JPRB,2.1661E-04_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&2.0698E-04_JPRB,3.0835E-04_JPRB,3.5213E-04_JPRB,3.7659E-04_JPRB,3.8400E-04_JPRB,3.7352E-04_JPRB,&
+&3.4485E-04_JPRB,2.8635E-04_JPRB,2.5484E-04_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&2.1845E-04_JPRB,3.4704E-04_JPRB,4.0375E-04_JPRB,4.3389E-04_JPRB,4.4469E-04_JPRB,4.3366E-04_JPRB,&
+&4.0044E-04_JPRB,3.3118E-04_JPRB,3.0181E-04_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&2.3191E-04_JPRB,3.9121E-04_JPRB,4.5961E-04_JPRB,4.9694E-04_JPRB,5.1051E-04_JPRB,5.0008E-04_JPRB,&
+&4.5954E-04_JPRB,3.8446E-04_JPRB,3.5821E-04_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&1.6337E-04_JPRB,2.0696E-04_JPRB,2.1920E-04_JPRB,2.2438E-04_JPRB,2.2325E-04_JPRB,2.1342E-04_JPRB,&
+&1.9346E-04_JPRB,1.6754E-04_JPRB,2.2851E-04_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&1.6969E-04_JPRB,2.2863E-04_JPRB,2.5003E-04_JPRB,2.6113E-04_JPRB,2.6214E-04_JPRB,2.5210E-04_JPRB,&
+&2.2996E-04_JPRB,1.9528E-04_JPRB,2.5004E-04_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&1.7794E-04_JPRB,2.5581E-04_JPRB,2.8765E-04_JPRB,3.0386E-04_JPRB,3.0684E-04_JPRB,2.9654E-04_JPRB,&
+&2.7213E-04_JPRB,2.2576E-04_JPRB,2.7938E-04_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&1.8809E-04_JPRB,2.8851E-04_JPRB,3.3100E-04_JPRB,3.5226E-04_JPRB,3.5780E-04_JPRB,3.4669E-04_JPRB,&
+&3.1871E-04_JPRB,2.6155E-04_JPRB,3.1781E-04_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&2.0000E-04_JPRB,3.2610E-04_JPRB,3.7882E-04_JPRB,4.0593E-04_JPRB,4.1389E-04_JPRB,4.0266E-04_JPRB,&
+&3.6759E-04_JPRB,3.0486E-04_JPRB,3.6667E-04_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&1.4241E-04_JPRB,1.7332E-04_JPRB,1.7952E-04_JPRB,1.8020E-04_JPRB,1.7647E-04_JPRB,1.6735E-04_JPRB,&
+&1.4973E-04_JPRB,1.3184E-04_JPRB,3.2106E-04_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&1.4769E-04_JPRB,1.9050E-04_JPRB,2.0392E-04_JPRB,2.0940E-04_JPRB,2.0737E-04_JPRB,1.9737E-04_JPRB,&
+&1.7818E-04_JPRB,1.5166E-04_JPRB,3.3469E-04_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&1.5465E-04_JPRB,2.1252E-04_JPRB,2.3439E-04_JPRB,2.4418E-04_JPRB,2.4355E-04_JPRB,2.3330E-04_JPRB,&
+&2.1176E-04_JPRB,1.7565E-04_JPRB,3.5614E-04_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&1.6328E-04_JPRB,2.3941E-04_JPRB,2.6997E-04_JPRB,2.8414E-04_JPRB,2.8560E-04_JPRB,2.7432E-04_JPRB,&
+&2.4968E-04_JPRB,2.0300E-04_JPRB,3.8786E-04_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&1.7360E-04_JPRB,2.7074E-04_JPRB,3.1000E-04_JPRB,3.2898E-04_JPRB,3.3251E-04_JPRB,3.2018E-04_JPRB,&
+&2.9030E-04_JPRB,2.3792E-04_JPRB,4.3003E-04_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&1.2728E-04_JPRB,1.4778E-04_JPRB,1.4974E-04_JPRB,1.4737E-04_JPRB,1.4151E-04_JPRB,1.3231E-04_JPRB,&
+&1.1681E-04_JPRB,1.0270E-04_JPRB,4.7573E-04_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&1.3157E-04_JPRB,1.6147E-04_JPRB,1.6852E-04_JPRB,1.6982E-04_JPRB,1.6546E-04_JPRB,1.5568E-04_JPRB,&
+&1.3883E-04_JPRB,1.1790E-04_JPRB,4.8146E-04_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&1.3726E-04_JPRB,1.7914E-04_JPRB,1.9255E-04_JPRB,1.9744E-04_JPRB,1.9449E-04_JPRB,1.8411E-04_JPRB,&
+&1.6473E-04_JPRB,1.3672E-04_JPRB,4.9353E-04_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&1.4435E-04_JPRB,2.0063E-04_JPRB,2.2141E-04_JPRB,2.2988E-04_JPRB,2.2840E-04_JPRB,2.1697E-04_JPRB,&
+&1.9533E-04_JPRB,1.5780E-04_JPRB,5.1440E-04_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&1.5296E-04_JPRB,2.2635E-04_JPRB,2.5441E-04_JPRB,2.6691E-04_JPRB,2.6692E-04_JPRB,2.5417E-04_JPRB,&
+&2.2886E-04_JPRB,1.8463E-04_JPRB,5.4687E-04_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&1.1763E-04_JPRB,1.2927E-04_JPRB,1.2797E-04_JPRB,1.2303E-04_JPRB,1.1545E-04_JPRB,1.0562E-04_JPRB,&
+&9.1765E-05_JPRB,7.9707E-05_JPRB,7.1798E-04_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&1.2108E-04_JPRB,1.3972E-04_JPRB,1.4189E-04_JPRB,1.3941E-04_JPRB,1.3314E-04_JPRB,1.2332E-04_JPRB,&
+&1.0817E-04_JPRB,9.2633E-05_JPRB,7.1177E-04_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&1.2566E-04_JPRB,1.5364E-04_JPRB,1.6005E-04_JPRB,1.6046E-04_JPRB,1.5545E-04_JPRB,1.4506E-04_JPRB,&
+&1.2802E-04_JPRB,1.0643E-04_JPRB,7.1286E-04_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&1.3128E-04_JPRB,1.7051E-04_JPRB,1.8240E-04_JPRB,1.8616E-04_JPRB,1.8213E-04_JPRB,1.7092E-04_JPRB,&
+&1.5182E-04_JPRB,1.2232E-04_JPRB,7.2407E-04_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&1.3815E-04_JPRB,1.9078E-04_JPRB,2.0902E-04_JPRB,2.1580E-04_JPRB,2.1291E-04_JPRB,2.0039E-04_JPRB,&
+&1.7876E-04_JPRB,1.4231E-04_JPRB,7.4599E-04_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&1.1390E-04_JPRB,1.1947E-04_JPRB,1.1509E-04_JPRB,1.0795E-04_JPRB,9.8745E-05_JPRB,8.7676E-05_JPRB,&
+&7.3630E-05_JPRB,6.4348E-05_JPRB,1.1861E-03_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&1.1683E-04_JPRB,1.2744E-04_JPRB,1.2545E-04_JPRB,1.1972E-04_JPRB,1.1135E-04_JPRB,1.0038E-04_JPRB,&
+&8.6144E-05_JPRB,7.3622E-05_JPRB,1.1591E-03_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&1.2074E-04_JPRB,1.3815E-04_JPRB,1.3900E-04_JPRB,1.3526E-04_JPRB,1.2779E-04_JPRB,1.1675E-04_JPRB,&
+&1.0110E-04_JPRB,8.3354E-05_JPRB,1.1418E-03_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&1.2564E-04_JPRB,1.5125E-04_JPRB,1.5566E-04_JPRB,1.5486E-04_JPRB,1.4804E-04_JPRB,1.3653E-04_JPRB,&
+&1.1897E-04_JPRB,9.5580E-05_JPRB,1.1345E-03_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&1.3130E-04_JPRB,1.6685E-04_JPRB,1.7626E-04_JPRB,1.7784E-04_JPRB,1.7201E-04_JPRB,1.5950E-04_JPRB,&
+&1.4031E-04_JPRB,1.0987E-04_JPRB,1.1432E-03_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&1.1676E-04_JPRB,1.1853E-04_JPRB,1.1141E-04_JPRB,1.0211E-04_JPRB,9.1156E-05_JPRB,7.8301E-05_JPRB,&
+&6.3522E-05_JPRB,5.5937E-05_JPRB,2.4094E-03_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&1.1985E-04_JPRB,1.2513E-04_JPRB,1.1980E-04_JPRB,1.1130E-04_JPRB,1.0061E-04_JPRB,8.7533E-05_JPRB,&
+&7.2505E-05_JPRB,6.1035E-05_JPRB,2.3252E-03_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&1.2377E-04_JPRB,1.3400E-04_JPRB,1.3053E-04_JPRB,1.2319E-04_JPRB,1.1282E-04_JPRB,9.9725E-05_JPRB,&
+&8.3671E-05_JPRB,6.6418E-05_JPRB,2.2547E-03_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&1.2843E-04_JPRB,1.4498E-04_JPRB,1.4372E-04_JPRB,1.3796E-04_JPRB,1.2812E-04_JPRB,1.1463E-04_JPRB,&
+&9.6976E-05_JPRB,7.5638E-05_JPRB,2.2063E-03_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&1.3377E-04_JPRB,1.5770E-04_JPRB,1.5943E-04_JPRB,1.5571E-04_JPRB,1.4617E-04_JPRB,1.3202E-04_JPRB,&
+&1.1296E-04_JPRB,8.6665E-05_JPRB,2.1851E-03_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&1.1900E-04_JPRB,1.1760E-04_JPRB,1.0852E-04_JPRB,9.7634E-05_JPRB,8.5611E-05_JPRB,7.2038E-05_JPRB,&
+&5.7121E-05_JPRB,5.0882E-05_JPRB,9.3039E-03_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&1.2244E-04_JPRB,1.2389E-04_JPRB,1.1590E-04_JPRB,1.0554E-04_JPRB,9.3325E-05_JPRB,7.9548E-05_JPRB,&
+&6.3970E-05_JPRB,5.3089E-05_JPRB,8.8588E-03_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&1.2665E-04_JPRB,1.3180E-04_JPRB,1.2538E-04_JPRB,1.1542E-04_JPRB,1.0335E-04_JPRB,8.9270E-05_JPRB,&
+&7.2786E-05_JPRB,5.6389E-05_JPRB,8.4831E-03_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&1.3137E-04_JPRB,1.4182E-04_JPRB,1.3671E-04_JPRB,1.2766E-04_JPRB,1.1600E-04_JPRB,1.0124E-04_JPRB,&
+&8.3094E-05_JPRB,6.1858E-05_JPRB,8.1874E-03_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&1.3659E-04_JPRB,1.5316E-04_JPRB,1.4996E-04_JPRB,1.4235E-04_JPRB,1.3080E-04_JPRB,1.1485E-04_JPRB,&
+&9.5226E-05_JPRB,6.9785E-05_JPRB,7.9858E-03_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&1.2241E-04_JPRB,1.1830E-04_JPRB,1.0781E-04_JPRB,9.5617E-05_JPRB,8.2345E-05_JPRB,6.8338E-05_JPRB,&
+&5.2826E-05_JPRB,4.6160E-05_JPRB,4.0381E-02_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&1.2664E-04_JPRB,1.2454E-04_JPRB,1.1474E-04_JPRB,1.0301E-04_JPRB,8.9686E-05_JPRB,7.5133E-05_JPRB,&
+&5.8776E-05_JPRB,4.7480E-05_JPRB,3.8200E-02_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&1.3156E-04_JPRB,1.3237E-04_JPRB,1.2366E-04_JPRB,1.1203E-04_JPRB,9.8559E-05_JPRB,8.3570E-05_JPRB,&
+&6.6092E-05_JPRB,4.9993E-05_JPRB,3.6380E-02_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&1.3697E-04_JPRB,1.4182E-04_JPRB,1.3416E-04_JPRB,1.2285E-04_JPRB,1.0946E-04_JPRB,9.3555E-05_JPRB,&
+&7.4960E-05_JPRB,5.3295E-05_JPRB,3.4905E-02_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&1.4259E-04_JPRB,1.5277E-04_JPRB,1.4630E-04_JPRB,1.3560E-04_JPRB,1.2209E-04_JPRB,1.0520E-04_JPRB,&
+&8.5036E-05_JPRB,5.9404E-05_JPRB,3.3870E-02_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&1.2464E-04_JPRB,1.1924E-04_JPRB,1.0798E-04_JPRB,9.5208E-05_JPRB,8.1370E-05_JPRB,6.6802E-05_JPRB,&
+&5.0925E-05_JPRB,4.1000E-05_JPRB,5.9272E-02_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&1.2962E-04_JPRB,1.2601E-04_JPRB,1.1550E-04_JPRB,1.0297E-04_JPRB,8.8796E-05_JPRB,7.3413E-05_JPRB,&
+&5.6677E-05_JPRB,4.3091E-05_JPRB,5.5988E-02_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&1.3526E-04_JPRB,1.3432E-04_JPRB,1.2476E-04_JPRB,1.1207E-04_JPRB,9.7433E-05_JPRB,8.1433E-05_JPRB,&
+&6.3587E-05_JPRB,4.4893E-05_JPRB,5.3301E-02_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&1.4143E-04_JPRB,1.4433E-04_JPRB,1.3524E-04_JPRB,1.2250E-04_JPRB,1.0762E-04_JPRB,9.0841E-05_JPRB,&
+&7.1572E-05_JPRB,4.8589E-05_JPRB,5.1249E-02_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&1.4794E-04_JPRB,1.5535E-04_JPRB,1.4694E-04_JPRB,1.3429E-04_JPRB,1.1923E-04_JPRB,1.0163E-04_JPRB,&
+&8.0508E-05_JPRB,5.4223E-05_JPRB,4.9838E-02_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&1.1910E-04_JPRB,1.1316E-04_JPRB,1.0208E-04_JPRB,8.9709E-05_JPRB,7.6333E-05_JPRB,6.2180E-05_JPRB,&
+&4.7000E-05_JPRB,3.5676E-05_JPRB,6.3357E-02_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&1.2455E-04_JPRB,1.2008E-04_JPRB,1.0962E-04_JPRB,9.7228E-05_JPRB,8.3393E-05_JPRB,6.8465E-05_JPRB,&
+&5.2437E-05_JPRB,3.7619E-05_JPRB,5.9804E-02_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&1.3047E-04_JPRB,1.2832E-04_JPRB,1.1854E-04_JPRB,1.0591E-04_JPRB,9.1615E-05_JPRB,7.5950E-05_JPRB,&
+&5.8544E-05_JPRB,3.9665E-05_JPRB,5.6934E-02_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&1.3670E-04_JPRB,1.3799E-04_JPRB,1.2856E-04_JPRB,1.1584E-04_JPRB,1.0096E-04_JPRB,8.4392E-05_JPRB,&
+&6.5619E-05_JPRB,4.3295E-05_JPRB,5.4726E-02_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&1.4329E-04_JPRB,1.4852E-04_JPRB,1.3961E-04_JPRB,1.2668E-04_JPRB,1.1132E-04_JPRB,9.3911E-05_JPRB,&
+&7.3404E-05_JPRB,4.8588E-05_JPRB,5.3331E-02_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&1.1744E-04_JPRB,1.1063E-04_JPRB,9.9314E-05_JPRB,8.6900E-05_JPRB,7.3501E-05_JPRB,5.9317E-05_JPRB,&
+&4.4384E-05_JPRB,3.1424E-05_JPRB,5.4422E-02_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&1.2299E-04_JPRB,1.1743E-04_JPRB,1.0678E-04_JPRB,9.4184E-05_JPRB,8.0294E-05_JPRB,6.5353E-05_JPRB,&
+&4.9396E-05_JPRB,3.3221E-05_JPRB,5.1307E-02_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&1.2905E-04_JPRB,1.2561E-04_JPRB,1.1534E-04_JPRB,1.0249E-04_JPRB,8.8036E-05_JPRB,7.2203E-05_JPRB,&
+&5.4868E-05_JPRB,3.5562E-05_JPRB,4.8781E-02_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&1.3536E-04_JPRB,1.3482E-04_JPRB,1.2477E-04_JPRB,1.1168E-04_JPRB,9.6529E-05_JPRB,7.9711E-05_JPRB,&
+&6.1059E-05_JPRB,3.9213E-05_JPRB,4.6937E-02_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&1.4199E-04_JPRB,1.4483E-04_JPRB,1.3499E-04_JPRB,1.2149E-04_JPRB,1.0563E-04_JPRB,8.7931E-05_JPRB,&
+&6.7855E-05_JPRB,4.4192E-05_JPRB,4.5940E-02_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&5.9013E-04_JPRB,7.0245E-04_JPRB,7.3164E-04_JPRB,7.2179E-04_JPRB,6.8573E-04_JPRB,6.2586E-04_JPRB,&
+&5.3565E-04_JPRB,3.8435E-04_JPRB,2.9201E-04_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&6.1984E-04_JPRB,7.6785E-04_JPRB,8.0887E-04_JPRB,8.0653E-04_JPRB,7.7581E-04_JPRB,7.1523E-04_JPRB,&
+&6.1584E-04_JPRB,4.5439E-04_JPRB,3.5568E-04_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&6.5388E-04_JPRB,8.3863E-04_JPRB,8.9298E-04_JPRB,9.0379E-04_JPRB,8.7674E-04_JPRB,8.1428E-04_JPRB,&
+&7.0393E-04_JPRB,5.3376E-04_JPRB,4.3604E-04_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&6.9104E-04_JPRB,9.1397E-04_JPRB,9.8676E-04_JPRB,1.0109E-03_JPRB,9.8675E-04_JPRB,9.2127E-04_JPRB,&
+&8.0143E-04_JPRB,6.2432E-04_JPRB,5.3306E-04_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&7.3106E-04_JPRB,9.9279E-04_JPRB,1.0893E-03_JPRB,1.1247E-03_JPRB,1.1052E-03_JPRB,1.0359E-03_JPRB,&
+&9.1211E-04_JPRB,7.2751E-04_JPRB,6.4803E-04_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&5.1187E-04_JPRB,6.0705E-04_JPRB,6.2677E-04_JPRB,6.1236E-04_JPRB,5.7704E-04_JPRB,5.2457E-04_JPRB,&
+&4.4788E-04_JPRB,3.2136E-04_JPRB,2.7655E-04_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&5.4076E-04_JPRB,6.6478E-04_JPRB,6.9333E-04_JPRB,6.8548E-04_JPRB,6.5547E-04_JPRB,6.0224E-04_JPRB,&
+&5.1801E-04_JPRB,3.7991E-04_JPRB,3.3492E-04_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&5.7303E-04_JPRB,7.2753E-04_JPRB,7.6688E-04_JPRB,7.7045E-04_JPRB,7.4435E-04_JPRB,6.8770E-04_JPRB,&
+&5.9408E-04_JPRB,4.4774E-04_JPRB,4.0831E-04_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&6.0856E-04_JPRB,7.9562E-04_JPRB,8.4981E-04_JPRB,8.6454E-04_JPRB,8.3973E-04_JPRB,7.7971E-04_JPRB,&
+&6.7967E-04_JPRB,5.2619E-04_JPRB,4.9767E-04_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&6.4744E-04_JPRB,8.6751E-04_JPRB,9.4144E-04_JPRB,9.6462E-04_JPRB,9.4185E-04_JPRB,8.7987E-04_JPRB,&
+&7.7686E-04_JPRB,6.1504E-04_JPRB,6.0360E-04_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&4.3480E-04_JPRB,5.0939E-04_JPRB,5.1971E-04_JPRB,5.0362E-04_JPRB,4.7059E-04_JPRB,4.2466E-04_JPRB,&
+&3.6011E-04_JPRB,2.5628E-04_JPRB,3.1317E-04_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&4.6125E-04_JPRB,5.5965E-04_JPRB,5.7749E-04_JPRB,5.6507E-04_JPRB,5.3629E-04_JPRB,4.9048E-04_JPRB,&
+&4.1883E-04_JPRB,3.0535E-04_JPRB,3.6323E-04_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&4.9122E-04_JPRB,6.1523E-04_JPRB,6.4073E-04_JPRB,6.3706E-04_JPRB,6.1179E-04_JPRB,5.6184E-04_JPRB,&
+&4.8250E-04_JPRB,3.6188E-04_JPRB,4.3066E-04_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&5.2513E-04_JPRB,6.7573E-04_JPRB,7.1288E-04_JPRB,7.1737E-04_JPRB,6.9265E-04_JPRB,6.3867E-04_JPRB,&
+&5.5339E-04_JPRB,4.2777E-04_JPRB,5.1587E-04_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&5.6222E-04_JPRB,7.4076E-04_JPRB,7.9225E-04_JPRB,8.0338E-04_JPRB,7.7867E-04_JPRB,7.2219E-04_JPRB,&
+&6.3593E-04_JPRB,5.0139E-04_JPRB,6.1836E-04_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&3.6976E-04_JPRB,4.2501E-04_JPRB,4.2710E-04_JPRB,4.1037E-04_JPRB,3.7995E-04_JPRB,3.3967E-04_JPRB,&
+&2.8574E-04_JPRB,1.9979E-04_JPRB,4.2399E-04_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&3.9327E-04_JPRB,4.6788E-04_JPRB,4.7574E-04_JPRB,4.6106E-04_JPRB,4.3415E-04_JPRB,3.9414E-04_JPRB,&
+&3.3408E-04_JPRB,2.4080E-04_JPRB,4.6262E-04_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&4.2065E-04_JPRB,5.1570E-04_JPRB,5.3050E-04_JPRB,5.2117E-04_JPRB,4.9670E-04_JPRB,4.5372E-04_JPRB,&
+&3.8660E-04_JPRB,2.8761E-04_JPRB,5.2104E-04_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&4.5210E-04_JPRB,5.6870E-04_JPRB,5.9248E-04_JPRB,5.8890E-04_JPRB,5.6466E-04_JPRB,5.1691E-04_JPRB,&
+&4.4461E-04_JPRB,3.4096E-04_JPRB,6.0030E-04_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&4.8655E-04_JPRB,6.2705E-04_JPRB,6.6097E-04_JPRB,6.6244E-04_JPRB,6.3703E-04_JPRB,5.8594E-04_JPRB,&
+&5.1212E-04_JPRB,4.0060E-04_JPRB,6.9904E-04_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&3.1593E-04_JPRB,3.5529E-04_JPRB,3.5086E-04_JPRB,3.3304E-04_JPRB,3.0635E-04_JPRB,2.7113E-04_JPRB,&
+&2.2537E-04_JPRB,1.5625E-04_JPRB,6.0940E-04_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&3.3652E-04_JPRB,3.9074E-04_JPRB,3.9127E-04_JPRB,3.7581E-04_JPRB,3.5016E-04_JPRB,3.1504E-04_JPRB,&
+&2.6515E-04_JPRB,1.8777E-04_JPRB,6.3592E-04_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&3.6116E-04_JPRB,4.3121E-04_JPRB,4.3815E-04_JPRB,4.2535E-04_JPRB,4.0138E-04_JPRB,3.6428E-04_JPRB,&
+&3.0823E-04_JPRB,2.2541E-04_JPRB,6.8312E-04_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&3.8955E-04_JPRB,4.7734E-04_JPRB,4.9105E-04_JPRB,4.8184E-04_JPRB,4.5822E-04_JPRB,4.1678E-04_JPRB,&
+&3.5536E-04_JPRB,2.6865E-04_JPRB,7.5327E-04_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&4.2054E-04_JPRB,5.2915E-04_JPRB,5.4965E-04_JPRB,5.4417E-04_JPRB,5.1930E-04_JPRB,4.7415E-04_JPRB,&
+&4.0964E-04_JPRB,3.1712E-04_JPRB,8.4523E-04_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&2.6945E-04_JPRB,2.9554E-04_JPRB,2.8676E-04_JPRB,2.6850E-04_JPRB,2.4490E-04_JPRB,2.1445E-04_JPRB,&
+&1.7595E-04_JPRB,1.2228E-04_JPRB,9.0714E-04_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&2.8703E-04_JPRB,3.2438E-04_JPRB,3.1923E-04_JPRB,3.0362E-04_JPRB,2.8005E-04_JPRB,2.4944E-04_JPRB,&
+&2.0785E-04_JPRB,1.4399E-04_JPRB,9.1574E-04_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&3.0826E-04_JPRB,3.5756E-04_JPRB,3.5816E-04_JPRB,3.4447E-04_JPRB,3.2155E-04_JPRB,2.8951E-04_JPRB,&
+&2.4288E-04_JPRB,1.7387E-04_JPRB,9.4950E-04_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&3.3280E-04_JPRB,3.9668E-04_JPRB,4.0334E-04_JPRB,3.9114E-04_JPRB,3.6863E-04_JPRB,3.3278E-04_JPRB,&
+&2.8109E-04_JPRB,2.0888E-04_JPRB,1.0075E-03_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&3.5966E-04_JPRB,4.4146E-04_JPRB,4.5343E-04_JPRB,4.4331E-04_JPRB,4.1953E-04_JPRB,3.7997E-04_JPRB,&
+&3.2403E-04_JPRB,2.4762E-04_JPRB,1.0914E-03_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&2.3611E-04_JPRB,2.5013E-04_JPRB,2.3826E-04_JPRB,2.1972E-04_JPRB,1.9747E-04_JPRB,1.7091E-04_JPRB,&
+&1.3828E-04_JPRB,9.7674E-05_JPRB,1.5029E-03_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&2.5027E-04_JPRB,2.7295E-04_JPRB,2.6351E-04_JPRB,2.4730E-04_JPRB,2.2544E-04_JPRB,1.9811E-04_JPRB,&
+&1.6292E-04_JPRB,1.1091E-04_JPRB,1.4865E-03_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&2.6744E-04_JPRB,2.9951E-04_JPRB,2.9483E-04_JPRB,2.8048E-04_JPRB,2.5858E-04_JPRB,2.3043E-04_JPRB,&
+&1.9141E-04_JPRB,1.3387E-04_JPRB,1.5029E-03_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&2.8737E-04_JPRB,3.3140E-04_JPRB,3.3216E-04_JPRB,3.1861E-04_JPRB,2.9712E-04_JPRB,2.6612E-04_JPRB,&
+&2.2227E-04_JPRB,1.6157E-04_JPRB,1.5533E-03_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&3.0980E-04_JPRB,3.6893E-04_JPRB,3.7432E-04_JPRB,3.6173E-04_JPRB,3.3923E-04_JPRB,3.0465E-04_JPRB,&
+&2.5628E-04_JPRB,1.9217E-04_JPRB,1.6348E-03_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&2.2652E-04_JPRB,2.2848E-04_JPRB,2.1284E-04_JPRB,1.9191E-04_JPRB,1.6879E-04_JPRB,1.4336E-04_JPRB,&
+&1.1285E-04_JPRB,7.9764E-05_JPRB,3.0781E-03_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&2.3707E-04_JPRB,2.4545E-04_JPRB,2.3111E-04_JPRB,2.1207E-04_JPRB,1.8962E-04_JPRB,1.6330E-04_JPRB,&
+&1.3129E-04_JPRB,8.8046E-05_JPRB,3.0098E-03_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&2.4991E-04_JPRB,2.6528E-04_JPRB,2.5454E-04_JPRB,2.3750E-04_JPRB,2.1491E-04_JPRB,1.8797E-04_JPRB,&
+&1.5356E-04_JPRB,1.0513E-04_JPRB,2.9995E-03_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&2.6517E-04_JPRB,2.8955E-04_JPRB,2.8339E-04_JPRB,2.6733E-04_JPRB,2.4488E-04_JPRB,2.1619E-04_JPRB,&
+&1.7792E-04_JPRB,1.2592E-04_JPRB,3.0451E-03_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&2.8248E-04_JPRB,3.1914E-04_JPRB,3.1724E-04_JPRB,3.0164E-04_JPRB,2.7867E-04_JPRB,2.4743E-04_JPRB,&
+&2.0485E-04_JPRB,1.4978E-04_JPRB,3.1535E-03_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&2.3338E-04_JPRB,2.2637E-04_JPRB,2.0631E-04_JPRB,1.8248E-04_JPRB,1.5663E-04_JPRB,1.2940E-04_JPRB,&
+&9.8919E-05_JPRB,6.6772E-05_JPRB,1.1981E-02_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&2.4198E-04_JPRB,2.3910E-04_JPRB,2.1989E-04_JPRB,1.9677E-04_JPRB,1.7190E-04_JPRB,1.4401E-04_JPRB,&
+&1.1186E-04_JPRB,7.2859E-05_JPRB,1.1621E-02_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&2.5171E-04_JPRB,2.5396E-04_JPRB,2.3686E-04_JPRB,2.1562E-04_JPRB,1.9038E-04_JPRB,1.6141E-04_JPRB,&
+&1.2789E-04_JPRB,8.4203E-05_JPRB,1.1443E-02_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&2.6331E-04_JPRB,2.7176E-04_JPRB,2.5835E-04_JPRB,2.3792E-04_JPRB,2.1195E-04_JPRB,1.8205E-04_JPRB,&
+&1.4597E-04_JPRB,9.9793E-05_JPRB,1.1469E-02_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&2.7657E-04_JPRB,2.9387E-04_JPRB,2.8372E-04_JPRB,2.6346E-04_JPRB,2.3692E-04_JPRB,2.0548E-04_JPRB,&
+&1.6638E-04_JPRB,1.1782E-04_JPRB,1.1707E-02_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&2.4954E-04_JPRB,2.3620E-04_JPRB,2.1260E-04_JPRB,1.8570E-04_JPRB,1.5704E-04_JPRB,1.2663E-04_JPRB,&
+&9.4550E-05_JPRB,5.8858E-05_JPRB,5.2756E-02_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&2.5766E-04_JPRB,2.4800E-04_JPRB,2.2452E-04_JPRB,1.9756E-04_JPRB,1.6882E-04_JPRB,1.3823E-04_JPRB,&
+&1.0447E-04_JPRB,6.4244E-05_JPRB,5.0947E-02_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&2.6638E-04_JPRB,2.6038E-04_JPRB,2.3824E-04_JPRB,2.1240E-04_JPRB,1.8367E-04_JPRB,1.5156E-04_JPRB,&
+&1.1609E-04_JPRB,7.2825E-05_JPRB,5.0037E-02_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&2.7598E-04_JPRB,2.7501E-04_JPRB,2.5538E-04_JPRB,2.3010E-04_JPRB,2.0028E-04_JPRB,1.6662E-04_JPRB,&
+&1.2905E-04_JPRB,8.4471E-05_JPRB,5.0181E-02_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&2.8718E-04_JPRB,2.9275E-04_JPRB,2.7541E-04_JPRB,2.4987E-04_JPRB,2.1867E-04_JPRB,1.8373E-04_JPRB,&
+&1.4422E-04_JPRB,9.7498E-05_JPRB,5.1335E-02_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&2.6411E-04_JPRB,2.4710E-04_JPRB,2.2075E-04_JPRB,1.9143E-04_JPRB,1.6059E-04_JPRB,1.2809E-04_JPRB,&
+&9.4145E-05_JPRB,5.5264E-05_JPRB,7.9299E-02_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&2.7210E-04_JPRB,2.5809E-04_JPRB,2.3159E-04_JPRB,2.0221E-04_JPRB,1.7108E-04_JPRB,1.3827E-04_JPRB,&
+&1.0265E-04_JPRB,6.0771E-05_JPRB,7.7122E-02_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&2.8014E-04_JPRB,2.6895E-04_JPRB,2.4355E-04_JPRB,2.1491E-04_JPRB,1.8365E-04_JPRB,1.4942E-04_JPRB,&
+&1.1181E-04_JPRB,6.9122E-05_JPRB,7.6765E-02_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&2.8881E-04_JPRB,2.8113E-04_JPRB,2.5786E-04_JPRB,2.2946E-04_JPRB,1.9727E-04_JPRB,1.6160E-04_JPRB,&
+&1.2257E-04_JPRB,7.8465E-05_JPRB,7.8124E-02_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&2.9828E-04_JPRB,2.9581E-04_JPRB,2.7411E-04_JPRB,2.4589E-04_JPRB,2.1291E-04_JPRB,1.7587E-04_JPRB,&
+&1.3594E-04_JPRB,8.9600E-05_JPRB,8.1170E-02_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&2.5900E-04_JPRB,2.4054E-04_JPRB,2.1383E-04_JPRB,1.8455E-04_JPRB,1.5406E-04_JPRB,1.2218E-04_JPRB,&
+&8.8914E-05_JPRB,5.0392E-05_JPRB,8.6490E-02_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&2.6587E-04_JPRB,2.4971E-04_JPRB,2.2287E-04_JPRB,1.9390E-04_JPRB,1.6307E-04_JPRB,1.3059E-04_JPRB,&
+&9.5693E-05_JPRB,5.6200E-05_JPRB,8.4739E-02_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&2.7262E-04_JPRB,2.5871E-04_JPRB,2.3314E-04_JPRB,2.0445E-04_JPRB,1.7328E-04_JPRB,1.3985E-04_JPRB,&
+&1.0369E-04_JPRB,6.3281E-05_JPRB,8.5196E-02_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&2.7987E-04_JPRB,2.6889E-04_JPRB,2.4524E-04_JPRB,2.1669E-04_JPRB,1.8519E-04_JPRB,1.5064E-04_JPRB,&
+&1.1324E-04_JPRB,7.1445E-05_JPRB,8.7799E-02_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&2.8782E-04_JPRB,2.8193E-04_JPRB,2.5958E-04_JPRB,2.3156E-04_JPRB,1.9937E-04_JPRB,1.6355E-04_JPRB,&
+&1.2524E-04_JPRB,8.1256E-05_JPRB,9.2236E-02_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&2.5778E-04_JPRB,2.3735E-04_JPRB,2.0980E-04_JPRB,1.8003E-04_JPRB,1.4941E-04_JPRB,1.1772E-04_JPRB,&
+&8.4515E-05_JPRB,4.7447E-05_JPRB,7.6105E-02_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&2.6333E-04_JPRB,2.4457E-04_JPRB,2.1672E-04_JPRB,1.8743E-04_JPRB,1.5665E-04_JPRB,1.2434E-04_JPRB,&
+&9.0194E-05_JPRB,5.2576E-05_JPRB,7.5229E-02_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&2.6832E-04_JPRB,2.5148E-04_JPRB,2.2532E-04_JPRB,1.9639E-04_JPRB,1.6531E-04_JPRB,1.3247E-04_JPRB,&
+&9.7365E-05_JPRB,5.8706E-05_JPRB,7.6481E-02_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&2.7426E-04_JPRB,2.6072E-04_JPRB,2.3633E-04_JPRB,2.0753E-04_JPRB,1.7633E-04_JPRB,1.4258E-04_JPRB,&
+&1.0613E-04_JPRB,6.5878E-05_JPRB,7.9777E-02_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&2.8141E-04_JPRB,2.7288E-04_JPRB,2.4996E-04_JPRB,2.2169E-04_JPRB,1.8986E-04_JPRB,1.5488E-04_JPRB,&
+&1.1727E-04_JPRB,7.4750E-05_JPRB,8.4864E-02_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&1.7137E-03_JPRB,1.6965E-03_JPRB,1.6056E-03_JPRB,1.4623E-03_JPRB,1.2864E-03_JPRB,1.0870E-03_JPRB,&
+&8.6301E-04_JPRB,6.0966E-04_JPRB,4.4058E-04_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&1.7704E-03_JPRB,1.7874E-03_JPRB,1.7001E-03_JPRB,1.5551E-03_JPRB,1.3819E-03_JPRB,1.1838E-03_JPRB,&
+&9.5980E-04_JPRB,7.0743E-04_JPRB,5.5098E-04_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&1.8247E-03_JPRB,1.8784E-03_JPRB,1.8001E-03_JPRB,1.6592E-03_JPRB,1.4952E-03_JPRB,1.3012E-03_JPRB,&
+&1.0846E-03_JPRB,8.2466E-04_JPRB,6.8654E-04_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&1.8807E-03_JPRB,1.9750E-03_JPRB,1.9078E-03_JPRB,1.7834E-03_JPRB,1.6310E-03_JPRB,1.4483E-03_JPRB,&
+&1.2338E-03_JPRB,9.6045E-04_JPRB,8.5044E-04_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&1.9386E-03_JPRB,2.0802E-03_JPRB,2.0314E-03_JPRB,1.9311E-03_JPRB,1.7973E-03_JPRB,1.6224E-03_JPRB,&
+&1.4041E-03_JPRB,1.1149E-03_JPRB,1.0435E-03_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&1.5019E-03_JPRB,1.4891E-03_JPRB,1.4050E-03_JPRB,1.2791E-03_JPRB,1.1249E-03_JPRB,9.4471E-04_JPRB,&
+&7.4490E-04_JPRB,5.1735E-04_JPRB,4.2795E-04_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&1.5481E-03_JPRB,1.5670E-03_JPRB,1.4869E-03_JPRB,1.3627E-03_JPRB,1.2086E-03_JPRB,1.0310E-03_JPRB,&
+&8.2991E-04_JPRB,6.0449E-04_JPRB,5.2985E-04_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&1.5955E-03_JPRB,1.6464E-03_JPRB,1.5764E-03_JPRB,1.4549E-03_JPRB,1.3083E-03_JPRB,1.1370E-03_JPRB,&
+&9.3949E-04_JPRB,7.0586E-04_JPRB,6.5574E-04_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&1.6449E-03_JPRB,1.7318E-03_JPRB,1.6759E-03_JPRB,1.5663E-03_JPRB,1.4318E-03_JPRB,1.2693E-03_JPRB,&
+&1.0703E-03_JPRB,8.2289E-04_JPRB,8.0944E-04_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&1.6963E-03_JPRB,1.8275E-03_JPRB,1.7899E-03_JPRB,1.7018E-03_JPRB,1.5826E-03_JPRB,1.4255E-03_JPRB,&
+&1.2208E-03_JPRB,9.5732E-04_JPRB,9.9376E-04_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&1.2946E-03_JPRB,1.2789E-03_JPRB,1.2021E-03_JPRB,1.0905E-03_JPRB,9.5582E-04_JPRB,7.9856E-04_JPRB,&
+&6.2419E-04_JPRB,4.2060E-04_JPRB,4.8597E-04_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&1.3334E-03_JPRB,1.3450E-03_JPRB,1.2700E-03_JPRB,1.1621E-03_JPRB,1.0260E-03_JPRB,8.6938E-04_JPRB,&
+&6.9581E-04_JPRB,4.9333E-04_JPRB,5.8939E-04_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&1.3735E-03_JPRB,1.4122E-03_JPRB,1.3468E-03_JPRB,1.2420E-03_JPRB,1.1098E-03_JPRB,9.5952E-04_JPRB,&
+&7.8793E-04_JPRB,5.7747E-04_JPRB,7.1825E-04_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&1.4149E-03_JPRB,1.4860E-03_JPRB,1.4348E-03_JPRB,1.3382E-03_JPRB,1.2156E-03_JPRB,1.0728E-03_JPRB,&
+&8.9873E-04_JPRB,6.7617E-04_JPRB,8.7351E-04_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&1.4592E-03_JPRB,1.5699E-03_JPRB,1.5381E-03_JPRB,1.4563E-03_JPRB,1.3459E-03_JPRB,1.2082E-03_JPRB,&
+&1.0276E-03_JPRB,7.9087E-04_JPRB,1.0595E-03_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&1.1144E-03_JPRB,1.0934E-03_JPRB,1.0240E-03_JPRB,9.2287E-04_JPRB,8.0421E-04_JPRB,6.6808E-04_JPRB,&
+&5.1730E-04_JPRB,3.3813E-04_JPRB,6.1462E-04_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&1.1469E-03_JPRB,1.1488E-03_JPRB,1.0800E-03_JPRB,9.8253E-04_JPRB,8.6268E-04_JPRB,7.2497E-04_JPRB,&
+&5.7476E-04_JPRB,3.9764E-04_JPRB,7.1472E-04_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&1.1797E-03_JPRB,1.2067E-03_JPRB,1.1428E-03_JPRB,1.0501E-03_JPRB,9.3226E-04_JPRB,7.9746E-04_JPRB,&
+&6.5011E-04_JPRB,4.6691E-04_JPRB,8.5032E-04_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&1.2139E-03_JPRB,1.2682E-03_JPRB,1.2174E-03_JPRB,1.1319E-03_JPRB,1.0196E-03_JPRB,8.9229E-04_JPRB,&
+&7.4246E-04_JPRB,5.4839E-04_JPRB,1.0185E-03_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&1.2525E-03_JPRB,1.3386E-03_JPRB,1.3069E-03_JPRB,1.2320E-03_JPRB,1.1286E-03_JPRB,1.0072E-03_JPRB,&
+&8.5027E-04_JPRB,6.4344E-04_JPRB,1.2190E-03_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&9.5403E-04_JPRB,9.3019E-04_JPRB,8.6917E-04_JPRB,7.7882E-04_JPRB,6.7397E-04_JPRB,5.5681E-04_JPRB,&
+&4.2732E-04_JPRB,2.7040E-04_JPRB,8.4167E-04_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&9.8163E-04_JPRB,9.7748E-04_JPRB,9.1548E-04_JPRB,8.2676E-04_JPRB,7.2236E-04_JPRB,6.0295E-04_JPRB,&
+&4.7188E-04_JPRB,3.1812E-04_JPRB,9.2459E-04_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&1.0087E-03_JPRB,1.0268E-03_JPRB,9.6743E-04_JPRB,8.8361E-04_JPRB,7.8023E-04_JPRB,6.6112E-04_JPRB,&
+&5.3219E-04_JPRB,3.7543E-04_JPRB,1.0523E-03_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&1.0377E-03_JPRB,1.0786E-03_JPRB,1.0288E-03_JPRB,9.5341E-04_JPRB,8.5203E-04_JPRB,7.3754E-04_JPRB,&
+&6.0792E-04_JPRB,4.4270E-04_JPRB,1.2261E-03_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&1.0724E-03_JPRB,1.1380E-03_JPRB,1.1047E-03_JPRB,1.0358E-03_JPRB,9.4134E-04_JPRB,8.3220E-04_JPRB,&
+&6.9728E-04_JPRB,5.2081E-04_JPRB,1.4470E-03_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&8.0588E-04_JPRB,7.8134E-04_JPRB,7.2703E-04_JPRB,6.4891E-04_JPRB,5.5742E-04_JPRB,4.5781E-04_JPRB,&
+&3.4857E-04_JPRB,2.1150E-04_JPRB,1.1955E-03_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&8.2987E-04_JPRB,8.2145E-04_JPRB,7.6654E-04_JPRB,6.8713E-04_JPRB,5.9710E-04_JPRB,4.9603E-04_JPRB,&
+&3.8344E-04_JPRB,2.5028E-04_JPRB,1.2644E-03_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&8.5260E-04_JPRB,8.6248E-04_JPRB,8.0901E-04_JPRB,7.3393E-04_JPRB,6.4549E-04_JPRB,5.4230E-04_JPRB,&
+&4.3028E-04_JPRB,2.9597E-04_JPRB,1.3809E-03_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&8.7789E-04_JPRB,9.0633E-04_JPRB,8.5910E-04_JPRB,7.9201E-04_JPRB,7.0399E-04_JPRB,6.0291E-04_JPRB,&
+&4.9056E-04_JPRB,3.5045E-04_JPRB,1.5502E-03_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&9.0920E-04_JPRB,9.5736E-04_JPRB,9.2249E-04_JPRB,8.6100E-04_JPRB,7.7647E-04_JPRB,6.7926E-04_JPRB,&
+&5.6406E-04_JPRB,4.1413E-04_JPRB,1.7775E-03_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&6.7718E-04_JPRB,6.5283E-04_JPRB,6.0385E-04_JPRB,5.3746E-04_JPRB,4.5928E-04_JPRB,3.7434E-04_JPRB,&
+&2.8222E-04_JPRB,1.6381E-04_JPRB,1.9446E-03_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&6.9831E-04_JPRB,6.8657E-04_JPRB,6.3767E-04_JPRB,5.6836E-04_JPRB,4.9039E-04_JPRB,4.0548E-04_JPRB,&
+&3.1038E-04_JPRB,1.9535E-04_JPRB,2.0007E-03_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&7.1868E-04_JPRB,7.2062E-04_JPRB,6.7244E-04_JPRB,6.0563E-04_JPRB,5.3050E-04_JPRB,4.4299E-04_JPRB,&
+&3.4588E-04_JPRB,2.3206E-04_JPRB,2.1166E-03_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&7.4125E-04_JPRB,7.5799E-04_JPRB,7.1378E-04_JPRB,6.5339E-04_JPRB,5.7827E-04_JPRB,4.9033E-04_JPRB,&
+&3.9327E-04_JPRB,2.7533E-04_JPRB,2.2963E-03_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&7.6923E-04_JPRB,8.0202E-04_JPRB,7.6642E-04_JPRB,7.1096E-04_JPRB,6.3687E-04_JPRB,5.5087E-04_JPRB,&
+&4.5258E-04_JPRB,3.2683E-04_JPRB,2.5393E-03_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&5.7599E-04_JPRB,5.5064E-04_JPRB,5.0518E-04_JPRB,4.4746E-04_JPRB,3.8078E-04_JPRB,3.0749E-04_JPRB,&
+&2.2925E-04_JPRB,1.2727E-04_JPRB,4.0446E-03_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&5.9400E-04_JPRB,5.7851E-04_JPRB,5.3320E-04_JPRB,4.7317E-04_JPRB,4.0494E-04_JPRB,3.3229E-04_JPRB,&
+&2.5224E-04_JPRB,1.5307E-04_JPRB,4.1120E-03_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&6.1213E-04_JPRB,6.0695E-04_JPRB,5.6225E-04_JPRB,5.0253E-04_JPRB,4.3721E-04_JPRB,3.6322E-04_JPRB,&
+&2.7965E-04_JPRB,1.8169E-04_JPRB,4.2811E-03_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&6.3202E-04_JPRB,6.3848E-04_JPRB,5.9649E-04_JPRB,5.4156E-04_JPRB,4.7672E-04_JPRB,4.0069E-04_JPRB,&
+&3.1617E-04_JPRB,2.1644E-04_JPRB,4.5447E-03_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&6.5665E-04_JPRB,6.7566E-04_JPRB,6.4050E-04_JPRB,5.8944E-04_JPRB,5.2476E-04_JPRB,4.4890E-04_JPRB,&
+&3.6328E-04_JPRB,2.5754E-04_JPRB,4.8900E-03_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&5.0775E-04_JPRB,4.7779E-04_JPRB,4.3345E-04_JPRB,3.8064E-04_JPRB,3.2167E-04_JPRB,2.5711E-04_JPRB,&
+&1.8824E-04_JPRB,1.0074E-04_JPRB,1.6194E-02_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&5.2113E-04_JPRB,4.9905E-04_JPRB,4.5480E-04_JPRB,4.0079E-04_JPRB,3.3970E-04_JPRB,2.7482E-04_JPRB,&
+&2.0609E-04_JPRB,1.2012E-04_JPRB,1.6408E-02_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&5.3522E-04_JPRB,5.2108E-04_JPRB,4.7732E-04_JPRB,4.2276E-04_JPRB,3.6348E-04_JPRB,2.9937E-04_JPRB,&
+&2.2764E-04_JPRB,1.4255E-04_JPRB,1.6992E-02_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&5.5077E-04_JPRB,5.4517E-04_JPRB,5.0402E-04_JPRB,4.5270E-04_JPRB,3.9497E-04_JPRB,3.2945E-04_JPRB,&
+&2.5566E-04_JPRB,1.6981E-04_JPRB,1.7864E-02_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&5.6949E-04_JPRB,5.7445E-04_JPRB,5.3893E-04_JPRB,4.9094E-04_JPRB,4.3412E-04_JPRB,3.6760E-04_JPRB,&
+&2.9217E-04_JPRB,2.0252E-04_JPRB,1.8952E-02_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&4.9717E-04_JPRB,4.5696E-04_JPRB,4.0763E-04_JPRB,3.5309E-04_JPRB,2.9433E-04_JPRB,2.3192E-04_JPRB,&
+&1.6609E-04_JPRB,8.8589E-05_JPRB,7.4795E-02_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&5.0423E-04_JPRB,4.7002E-04_JPRB,4.2162E-04_JPRB,3.6653E-04_JPRB,3.0673E-04_JPRB,2.4316E-04_JPRB,&
+&1.7817E-04_JPRB,1.0118E-04_JPRB,7.6452E-02_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&5.1212E-04_JPRB,4.8431E-04_JPRB,4.3650E-04_JPRB,3.8161E-04_JPRB,3.2242E-04_JPRB,2.6059E-04_JPRB,&
+&1.9440E-04_JPRB,1.1733E-04_JPRB,7.9783E-02_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&5.2160E-04_JPRB,5.0030E-04_JPRB,4.5482E-04_JPRB,4.0224E-04_JPRB,3.4538E-04_JPRB,2.8370E-04_JPRB,&
+&2.1573E-04_JPRB,1.3763E-04_JPRB,8.4425E-02_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&5.3403E-04_JPRB,5.2047E-04_JPRB,4.8022E-04_JPRB,4.3074E-04_JPRB,3.7548E-04_JPRB,3.1365E-04_JPRB,&
+&2.4302E-04_JPRB,1.6290E-04_JPRB,8.9982E-02_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&5.0375E-04_JPRB,4.5815E-04_JPRB,4.0474E-04_JPRB,3.4759E-04_JPRB,2.8717E-04_JPRB,2.2431E-04_JPRB,&
+&1.5880E-04_JPRB,8.5670E-05_JPRB,1.2034E-01_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&5.0787E-04_JPRB,4.6747E-04_JPRB,4.1520E-04_JPRB,3.5802E-04_JPRB,2.9753E-04_JPRB,2.3416E-04_JPRB,&
+&1.6914E-04_JPRB,9.5910E-05_JPRB,1.2557E-01_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&5.1316E-04_JPRB,4.7918E-04_JPRB,4.2800E-04_JPRB,3.7201E-04_JPRB,3.1196E-04_JPRB,2.4926E-04_JPRB,&
+&1.8340E-04_JPRB,1.0921E-04_JPRB,1.3355E-01_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&5.2086E-04_JPRB,4.9333E-04_JPRB,4.4531E-04_JPRB,3.9163E-04_JPRB,3.3267E-04_JPRB,2.6993E-04_JPRB,&
+&2.0215E-04_JPRB,1.2601E-04_JPRB,1.4382E-01_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&5.3248E-04_JPRB,5.1252E-04_JPRB,4.7016E-04_JPRB,4.1783E-04_JPRB,3.5976E-04_JPRB,2.9627E-04_JPRB,&
+&2.2508E-04_JPRB,1.4674E-04_JPRB,1.5553E-01_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&4.8240E-04_JPRB,4.3715E-04_JPRB,3.8420E-04_JPRB,3.2860E-04_JPRB,2.7039E-04_JPRB,2.1019E-04_JPRB,&
+&1.4796E-04_JPRB,8.0464E-05_JPRB,1.3884E-01_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&4.8661E-04_JPRB,4.4595E-04_JPRB,3.9410E-04_JPRB,3.3838E-04_JPRB,2.8030E-04_JPRB,2.1996E-04_JPRB,&
+&1.5763E-04_JPRB,8.9327E-05_JPRB,1.4656E-01_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&4.9262E-04_JPRB,4.5710E-04_JPRB,4.0631E-04_JPRB,3.5229E-04_JPRB,2.9463E-04_JPRB,2.3404E-04_JPRB,&
+&1.7076E-04_JPRB,1.0107E-04_JPRB,1.5747E-01_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&5.0100E-04_JPRB,4.7173E-04_JPRB,4.2405E-04_JPRB,3.7163E-04_JPRB,3.1400E-04_JPRB,2.5322E-04_JPRB,&
+&1.8793E-04_JPRB,1.1578E-04_JPRB,1.7108E-01_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&5.1336E-04_JPRB,4.9148E-04_JPRB,4.4858E-04_JPRB,3.9659E-04_JPRB,3.3958E-04_JPRB,2.7759E-04_JPRB,&
+&2.0885E-04_JPRB,1.3367E-04_JPRB,1.8676E-01_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&4.6582E-04_JPRB,4.2090E-04_JPRB,3.6844E-04_JPRB,3.1420E-04_JPRB,2.5774E-04_JPRB,1.9961E-04_JPRB,&
+&1.4017E-04_JPRB,7.6735E-05_JPRB,1.3087E-01_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&4.7086E-04_JPRB,4.2959E-04_JPRB,3.7847E-04_JPRB,3.2415E-04_JPRB,2.6787E-04_JPRB,2.0968E-04_JPRB,&
+&1.4924E-04_JPRB,8.4911E-05_JPRB,1.3959E-01_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&4.7837E-04_JPRB,4.4165E-04_JPRB,3.9141E-04_JPRB,3.3849E-04_JPRB,2.8244E-04_JPRB,2.2337E-04_JPRB,&
+&1.6172E-04_JPRB,9.5329E-05_JPRB,1.5133E-01_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&4.8890E-04_JPRB,4.5706E-04_JPRB,4.0967E-04_JPRB,3.5806E-04_JPRB,3.0129E-04_JPRB,2.4154E-04_JPRB,&
+&1.7785E-04_JPRB,1.0830E-04_JPRB,1.6573E-01_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&5.0378E-04_JPRB,4.7838E-04_JPRB,4.3426E-04_JPRB,3.8267E-04_JPRB,3.2585E-04_JPRB,2.6428E-04_JPRB,&
+&1.9742E-04_JPRB,1.2409E-04_JPRB,1.8212E-01_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&3.2508E-03_JPRB,2.9778E-03_JPRB,2.7444E-03_JPRB,2.4732E-03_JPRB,2.1617E-03_JPRB,1.8050E-03_JPRB,&
+&1.4116E-03_JPRB,9.5646E-04_JPRB,7.5194E-04_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&3.2951E-03_JPRB,3.0775E-03_JPRB,2.8725E-03_JPRB,2.6161E-03_JPRB,2.3021E-03_JPRB,1.9458E-03_JPRB,&
+&1.5643E-03_JPRB,1.1089E-03_JPRB,9.5011E-04_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&3.3739E-03_JPRB,3.2201E-03_JPRB,3.0329E-03_JPRB,2.7889E-03_JPRB,2.4684E-03_JPRB,2.1285E-03_JPRB,&
+&1.7492E-03_JPRB,1.2948E-03_JPRB,1.1897E-03_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&3.4775E-03_JPRB,3.3896E-03_JPRB,3.2288E-03_JPRB,2.9832E-03_JPRB,2.6770E-03_JPRB,2.3508E-03_JPRB,&
+&1.9685E-03_JPRB,1.5165E-03_JPRB,1.4693E-03_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&3.6048E-03_JPRB,3.5835E-03_JPRB,3.4508E-03_JPRB,3.2113E-03_JPRB,2.9250E-03_JPRB,2.6127E-03_JPRB,&
+&2.2307E-03_JPRB,1.7682E-03_JPRB,1.7887E-03_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&2.9479E-03_JPRB,2.7010E-03_JPRB,2.4920E-03_JPRB,2.2328E-03_JPRB,1.9390E-03_JPRB,1.6094E-03_JPRB,&
+&1.2398E-03_JPRB,8.2486E-04_JPRB,7.2631E-04_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&2.9968E-03_JPRB,2.8020E-03_JPRB,2.6127E-03_JPRB,2.3636E-03_JPRB,2.0690E-03_JPRB,1.7351E-03_JPRB,&
+&1.3731E-03_JPRB,9.5550E-04_JPRB,9.1418E-04_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&3.0736E-03_JPRB,2.9425E-03_JPRB,2.7649E-03_JPRB,2.5241E-03_JPRB,2.2257E-03_JPRB,1.8987E-03_JPRB,&
+&1.5376E-03_JPRB,1.1187E-03_JPRB,1.1471E-03_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&3.1728E-03_JPRB,3.1058E-03_JPRB,2.9466E-03_JPRB,2.7114E-03_JPRB,2.4176E-03_JPRB,2.0996E-03_JPRB,&
+&1.7359E-03_JPRB,1.3160E-03_JPRB,1.4227E-03_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&3.2938E-03_JPRB,3.2890E-03_JPRB,3.1552E-03_JPRB,2.9263E-03_JPRB,2.6481E-03_JPRB,2.3331E-03_JPRB,&
+&1.9715E-03_JPRB,1.5406E-03_JPRB,1.7422E-03_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&2.6363E-03_JPRB,2.4111E-03_JPRB,2.2160E-03_JPRB,1.9706E-03_JPRB,1.6942E-03_JPRB,1.3925E-03_JPRB,&
+&1.0560E-03_JPRB,6.8807E-04_JPRB,8.1595E-04_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&2.6810E-03_JPRB,2.5033E-03_JPRB,2.3265E-03_JPRB,2.0848E-03_JPRB,1.8107E-03_JPRB,1.5037E-03_JPRB,&
+&1.1662E-03_JPRB,7.9613E-04_JPRB,9.9881E-04_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&2.7498E-03_JPRB,2.6291E-03_JPRB,2.4618E-03_JPRB,2.2271E-03_JPRB,1.9564E-03_JPRB,1.6455E-03_JPRB,&
+&1.3062E-03_JPRB,9.3309E-04_JPRB,1.2299E-03_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&2.8378E-03_JPRB,2.7765E-03_JPRB,2.6213E-03_JPRB,2.3981E-03_JPRB,2.1275E-03_JPRB,1.8208E-03_JPRB,&
+&1.4785E-03_JPRB,1.0978E-03_JPRB,1.5182E-03_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&2.9436E-03_JPRB,2.9446E-03_JPRB,2.8064E-03_JPRB,2.5984E-03_JPRB,2.3329E-03_JPRB,2.0260E-03_JPRB,&
+&1.6822E-03_JPRB,1.2888E-03_JPRB,1.8654E-03_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&2.3305E-03_JPRB,2.1270E-03_JPRB,1.9394E-03_JPRB,1.7178E-03_JPRB,1.4629E-03_JPRB,1.1886E-03_JPRB,&
+&8.9024E-04_JPRB,5.6452E-04_JPRB,1.0437E-03_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&2.3711E-03_JPRB,2.2090E-03_JPRB,2.0410E-03_JPRB,1.8166E-03_JPRB,1.5629E-03_JPRB,1.2867E-03_JPRB,&
+&9.8103E-04_JPRB,6.5250E-04_JPRB,1.2371E-03_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&2.4284E-03_JPRB,2.3161E-03_JPRB,2.1600E-03_JPRB,1.9393E-03_JPRB,1.6907E-03_JPRB,1.4107E-03_JPRB,&
+&1.0981E-03_JPRB,7.6618E-04_JPRB,1.4857E-03_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&2.5037E-03_JPRB,2.4445E-03_JPRB,2.2974E-03_JPRB,2.0880E-03_JPRB,1.8467E-03_JPRB,1.5615E-03_JPRB,&
+&1.2436E-03_JPRB,9.0463E-04_JPRB,1.7998E-03_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&2.5974E-03_JPRB,2.5927E-03_JPRB,2.4566E-03_JPRB,2.2651E-03_JPRB,2.0287E-03_JPRB,1.7391E-03_JPRB,&
+&1.4181E-03_JPRB,1.0646E-03_JPRB,2.1898E-03_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&2.0361E-03_JPRB,1.8547E-03_JPRB,1.6766E-03_JPRB,1.4795E-03_JPRB,1.2501E-03_JPRB,1.0047E-03_JPRB,&
+&7.4302E-04_JPRB,4.6057E-04_JPRB,1.3928E-03_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&2.0694E-03_JPRB,1.9228E-03_JPRB,1.7645E-03_JPRB,1.5634E-03_JPRB,1.3341E-03_JPRB,1.0877E-03_JPRB,&
+&8.2111E-04_JPRB,5.3228E-04_JPRB,1.6120E-03_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&2.1184E-03_JPRB,2.0120E-03_JPRB,1.8652E-03_JPRB,1.6659E-03_JPRB,1.4419E-03_JPRB,1.1971E-03_JPRB,&
+&9.1972E-04_JPRB,6.2395E-04_JPRB,1.9022E-03_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&2.1844E-03_JPRB,2.1219E-03_JPRB,1.9833E-03_JPRB,1.7902E-03_JPRB,1.5765E-03_JPRB,1.3280E-03_JPRB,&
+&1.0415E-03_JPRB,7.3888E-04_JPRB,2.2685E-03_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&2.2663E-03_JPRB,2.2517E-03_JPRB,2.1217E-03_JPRB,1.9449E-03_JPRB,1.7373E-03_JPRB,1.4799E-03_JPRB,&
+&1.1890E-03_JPRB,8.7483E-04_JPRB,2.7203E-03_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&1.7550E-03_JPRB,1.5950E-03_JPRB,1.4324E-03_JPRB,1.2563E-03_JPRB,1.0568E-03_JPRB,8.4088E-04_JPRB,&
+&6.1343E-04_JPRB,3.7218E-04_JPRB,1.8822E-03_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&1.7806E-03_JPRB,1.6483E-03_JPRB,1.5014E-03_JPRB,1.3260E-03_JPRB,1.1237E-03_JPRB,9.0650E-04_JPRB,&
+&6.7793E-04_JPRB,4.3012E-04_JPRB,2.1151E-03_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&1.8227E-03_JPRB,1.7227E-03_JPRB,1.5844E-03_JPRB,1.4081E-03_JPRB,1.2080E-03_JPRB,9.9575E-04_JPRB,&
+&7.6012E-04_JPRB,5.0351E-04_JPRB,2.4397E-03_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&1.8792E-03_JPRB,1.8150E-03_JPRB,1.6849E-03_JPRB,1.5100E-03_JPRB,1.3192E-03_JPRB,1.1065E-03_JPRB,&
+&8.6119E-04_JPRB,5.9588E-04_JPRB,2.8694E-03_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&1.9487E-03_JPRB,1.9242E-03_JPRB,1.8033E-03_JPRB,1.6413E-03_JPRB,1.4558E-03_JPRB,1.2357E-03_JPRB,&
+&9.8340E-04_JPRB,7.0882E-04_JPRB,3.4091E-03_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&1.4965E-03_JPRB,1.3571E-03_JPRB,1.2126E-03_JPRB,1.0566E-03_JPRB,8.8614E-04_JPRB,7.0122E-04_JPRB,&
+&5.0618E-04_JPRB,3.0014E-04_JPRB,2.8627E-03_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&1.5173E-03_JPRB,1.3996E-03_JPRB,1.2672E-03_JPRB,1.1141E-03_JPRB,9.3989E-04_JPRB,7.5155E-04_JPRB,&
+&5.5619E-04_JPRB,3.4628E-04_JPRB,3.1242E-03_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&1.5535E-03_JPRB,1.4627E-03_JPRB,1.3365E-03_JPRB,1.1831E-03_JPRB,1.0064E-03_JPRB,8.2131E-04_JPRB,&
+&6.2417E-04_JPRB,4.0465E-04_JPRB,3.4941E-03_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&1.6022E-03_JPRB,1.5406E-03_JPRB,1.4217E-03_JPRB,1.2670E-03_JPRB,1.0965E-03_JPRB,9.1271E-04_JPRB,&
+&7.0644E-04_JPRB,4.7877E-04_JPRB,3.9901E-03_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&1.6619E-03_JPRB,1.6316E-03_JPRB,1.5215E-03_JPRB,1.3760E-03_JPRB,1.2105E-03_JPRB,1.0220E-03_JPRB,&
+&8.0646E-04_JPRB,5.7116E-04_JPRB,4.6499E-03_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&1.2713E-03_JPRB,1.1506E-03_JPRB,1.0229E-03_JPRB,8.8637E-04_JPRB,7.3985E-04_JPRB,5.8404E-04_JPRB,&
+&4.1869E-04_JPRB,2.4146E-04_JPRB,5.8577E-03_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&1.2886E-03_JPRB,1.1855E-03_JPRB,1.0667E-03_JPRB,9.3200E-04_JPRB,7.8398E-04_JPRB,6.2296E-04_JPRB,&
+&4.5565E-04_JPRB,2.7881E-04_JPRB,6.2369E-03_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&1.3186E-03_JPRB,1.2381E-03_JPRB,1.1243E-03_JPRB,9.9079E-04_JPRB,8.3814E-04_JPRB,6.7723E-04_JPRB,&
+&5.1049E-04_JPRB,3.2546E-04_JPRB,6.7543E-03_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&1.3600E-03_JPRB,1.3028E-03_JPRB,1.1954E-03_JPRB,1.0612E-03_JPRB,9.1150E-04_JPRB,7.5260E-04_JPRB,&
+&5.7914E-04_JPRB,3.8472E-04_JPRB,7.4388E-03_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&1.4121E-03_JPRB,1.3805E-03_JPRB,1.2804E-03_JPRB,1.1524E-03_JPRB,1.0064E-03_JPRB,8.4434E-04_JPRB,&
+&6.6144E-04_JPRB,4.5882E-04_JPRB,8.3420E-03_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&1.0717E-03_JPRB,9.6880E-04_JPRB,8.5692E-04_JPRB,7.3841E-04_JPRB,6.1349E-04_JPRB,4.8265E-04_JPRB,&
+&3.4488E-04_JPRB,1.9332E-04_JPRB,2.4273E-02_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&1.0856E-03_JPRB,9.9623E-04_JPRB,8.9079E-04_JPRB,7.7337E-04_JPRB,6.4809E-04_JPRB,5.1388E-04_JPRB,&
+&3.7203E-04_JPRB,2.2290E-04_JPRB,2.5642E-02_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&1.1096E-03_JPRB,1.0377E-03_JPRB,9.3686E-04_JPRB,8.2124E-04_JPRB,6.9314E-04_JPRB,5.5575E-04_JPRB,&
+&4.1434E-04_JPRB,2.5972E-04_JPRB,2.7416E-02_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&1.1443E-03_JPRB,1.0913E-03_JPRB,9.9449E-04_JPRB,8.7964E-04_JPRB,7.5151E-04_JPRB,6.1540E-04_JPRB,&
+&4.6972E-04_JPRB,3.0675E-04_JPRB,2.9667E-02_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&1.1902E-03_JPRB,1.1571E-03_JPRB,1.0659E-03_JPRB,9.5531E-04_JPRB,8.2901E-04_JPRB,6.9019E-04_JPRB,&
+&5.3796E-04_JPRB,3.6567E-04_JPRB,3.2492E-02_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&9.1682E-04_JPRB,8.2727E-04_JPRB,7.2786E-04_JPRB,6.2407E-04_JPRB,5.1616E-04_JPRB,4.0448E-04_JPRB,&
+&2.8759E-04_JPRB,1.5707E-04_JPRB,1.2096E-01_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&9.2807E-04_JPRB,8.4772E-04_JPRB,7.5273E-04_JPRB,6.4976E-04_JPRB,5.4191E-04_JPRB,4.2868E-04_JPRB,&
+&3.0799E-04_JPRB,1.8018E-04_JPRB,1.2769E-01_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&9.4733E-04_JPRB,8.8010E-04_JPRB,7.8844E-04_JPRB,6.8649E-04_JPRB,5.7756E-04_JPRB,4.6108E-04_JPRB,&
+&3.3990E-04_JPRB,2.0965E-04_JPRB,1.3587E-01_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&9.7616E-04_JPRB,9.2298E-04_JPRB,8.3457E-04_JPRB,7.3405E-04_JPRB,6.2454E-04_JPRB,5.0775E-04_JPRB,&
+&3.8366E-04_JPRB,2.4715E-04_JPRB,1.4598E-01_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&1.0147E-03_JPRB,9.7749E-04_JPRB,8.9296E-04_JPRB,7.9678E-04_JPRB,6.8754E-04_JPRB,5.6799E-04_JPRB,&
+&4.3982E-04_JPRB,2.9475E-04_JPRB,1.5853E-01_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&8.5061E-04_JPRB,7.6545E-04_JPRB,6.7209E-04_JPRB,5.7435E-04_JPRB,4.7342E-04_JPRB,3.6961E-04_JPRB,&
+&2.6119E-04_JPRB,1.4392E-04_JPRB,2.1829E-01_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&8.6223E-04_JPRB,7.8453E-04_JPRB,6.9368E-04_JPRB,5.9640E-04_JPRB,4.9523E-04_JPRB,3.8977E-04_JPRB,&
+&2.7888E-04_JPRB,1.6251E-04_JPRB,2.3198E-01_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&8.8180E-04_JPRB,8.1321E-04_JPRB,7.2410E-04_JPRB,6.2697E-04_JPRB,5.2544E-04_JPRB,4.1867E-04_JPRB,&
+&3.0656E-04_JPRB,1.8726E-04_JPRB,2.4754E-01_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&9.0901E-04_JPRB,8.5074E-04_JPRB,7.6319E-04_JPRB,6.6771E-04_JPRB,5.6719E-04_JPRB,4.5846E-04_JPRB,&
+&3.4374E-04_JPRB,2.1942E-04_JPRB,2.6580E-01_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&9.4336E-04_JPRB,8.9780E-04_JPRB,8.1395E-04_JPRB,7.2298E-04_JPRB,6.2010E-04_JPRB,5.0948E-04_JPRB,&
+&3.9195E-04_JPRB,2.5983E-04_JPRB,2.8833E-01_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&8.0200E-04_JPRB,7.2122E-04_JPRB,6.3265E-04_JPRB,5.3924E-04_JPRB,4.4340E-04_JPRB,3.4532E-04_JPRB,&
+&2.4304E-04_JPRB,1.3437E-04_JPRB,2.6966E-01_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&8.1599E-04_JPRB,7.4215E-04_JPRB,6.5450E-04_JPRB,5.6136E-04_JPRB,4.6493E-04_JPRB,3.6523E-04_JPRB,&
+&2.6103E-04_JPRB,1.5096E-04_JPRB,2.8948E-01_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&8.3783E-04_JPRB,7.7160E-04_JPRB,6.8467E-04_JPRB,5.9130E-04_JPRB,4.9479E-04_JPRB,3.9390E-04_JPRB,&
+&2.8643E-04_JPRB,1.7267E-04_JPRB,3.1014E-01_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&8.6812E-04_JPRB,8.0949E-04_JPRB,7.2339E-04_JPRB,6.3152E-04_JPRB,5.3506E-04_JPRB,4.2989E-04_JPRB,&
+&3.1937E-04_JPRB,2.0004E-04_JPRB,3.3406E-01_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&9.0435E-04_JPRB,8.5462E-04_JPRB,7.7208E-04_JPRB,6.8293E-04_JPRB,5.8297E-04_JPRB,4.7540E-04_JPRB,&
+&3.6088E-04_JPRB,2.3381E-04_JPRB,3.6313E-01_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&7.8053E-04_JPRB,7.0155E-04_JPRB,6.1461E-04_JPRB,5.2266E-04_JPRB,4.2870E-04_JPRB,3.3288E-04_JPRB,&
+&2.3333E-04_JPRB,1.2902E-04_JPRB,2.6881E-01_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&7.9882E-04_JPRB,7.2653E-04_JPRB,6.3912E-04_JPRB,5.4681E-04_JPRB,4.5162E-04_JPRB,3.5376E-04_JPRB,&
+&2.5204E-04_JPRB,1.4416E-04_JPRB,2.9113E-01_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&8.2403E-04_JPRB,7.5779E-04_JPRB,6.7018E-04_JPRB,5.7745E-04_JPRB,4.8198E-04_JPRB,3.8252E-04_JPRB,&
+&2.7644E-04_JPRB,1.6449E-04_JPRB,3.1399E-01_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&8.5594E-04_JPRB,7.9631E-04_JPRB,7.0954E-04_JPRB,6.1806E-04_JPRB,5.2193E-04_JPRB,4.1790E-04_JPRB,&
+&3.0801E-04_JPRB,1.8991E-04_JPRB,3.3908E-01_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&8.9284E-04_JPRB,8.4070E-04_JPRB,7.5811E-04_JPRB,6.6820E-04_JPRB,5.6955E-04_JPRB,4.6197E-04_JPRB,&
+&3.4688E-04_JPRB,2.2019E-04_JPRB,3.6894E-01_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&6.0831E-03_JPRB,5.4716E-03_JPRB,4.8761E-03_JPRB,4.3169E-03_JPRB,3.7156E-03_JPRB,3.0689E-03_JPRB,&
+&2.3667E-03_JPRB,1.5757E-03_JPRB,1.3430E-03_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&6.2160E-03_JPRB,5.6592E-03_JPRB,5.1333E-03_JPRB,4.5937E-03_JPRB,3.9991E-03_JPRB,3.3587E-03_JPRB,&
+&2.6257E-03_JPRB,1.8103E-03_JPRB,1.6552E-03_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&6.3763E-03_JPRB,5.8806E-03_JPRB,5.4307E-03_JPRB,4.8990E-03_JPRB,4.3331E-03_JPRB,3.6723E-03_JPRB,&
+&2.9252E-03_JPRB,2.0812E-03_JPRB,2.0370E-03_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&6.5762E-03_JPRB,6.1595E-03_JPRB,5.7556E-03_JPRB,5.2564E-03_JPRB,4.6989E-03_JPRB,4.0150E-03_JPRB,&
+&3.2758E-03_JPRB,2.3980E-03_JPRB,2.4986E-03_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&6.8177E-03_JPRB,6.4963E-03_JPRB,6.1231E-03_JPRB,5.6619E-03_JPRB,5.0935E-03_JPRB,4.4057E-03_JPRB,&
+&3.6750E-03_JPRB,2.7782E-03_JPRB,3.0517E-03_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&5.5406E-03_JPRB,4.9770E-03_JPRB,4.4333E-03_JPRB,3.9291E-03_JPRB,3.3714E-03_JPRB,2.7757E-03_JPRB,&
+&2.1410E-03_JPRB,1.4066E-03_JPRB,1.3940E-03_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&5.6795E-03_JPRB,5.1605E-03_JPRB,4.6810E-03_JPRB,4.1841E-03_JPRB,3.6317E-03_JPRB,3.0411E-03_JPRB,&
+&2.3785E-03_JPRB,1.6219E-03_JPRB,1.7125E-03_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&5.8479E-03_JPRB,5.3775E-03_JPRB,4.9639E-03_JPRB,4.4697E-03_JPRB,3.9362E-03_JPRB,3.3371E-03_JPRB,&
+&2.6519E-03_JPRB,1.8755E-03_JPRB,2.0935E-03_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&6.0553E-03_JPRB,5.6506E-03_JPRB,5.2744E-03_JPRB,4.7999E-03_JPRB,4.2764E-03_JPRB,3.6617E-03_JPRB,&
+&2.9719E-03_JPRB,2.1746E-03_JPRB,2.5431E-03_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&6.2994E-03_JPRB,5.9802E-03_JPRB,5.6290E-03_JPRB,5.1787E-03_JPRB,4.6510E-03_JPRB,4.0342E-03_JPRB,&
+&3.3435E-03_JPRB,2.5279E-03_JPRB,3.0760E-03_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&4.9647E-03_JPRB,4.4497E-03_JPRB,3.9602E-03_JPRB,3.5016E-03_JPRB,2.9975E-03_JPRB,2.4522E-03_JPRB,&
+&1.8688E-03_JPRB,1.2052E-03_JPRB,1.6686E-03_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&5.0999E-03_JPRB,4.6210E-03_JPRB,4.1813E-03_JPRB,3.7355E-03_JPRB,3.2261E-03_JPRB,2.6792E-03_JPRB,&
+&2.0838E-03_JPRB,1.3908E-03_JPRB,2.0388E-03_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&5.2679E-03_JPRB,4.8293E-03_JPRB,4.4423E-03_JPRB,3.9951E-03_JPRB,3.4860E-03_JPRB,2.9419E-03_JPRB,&
+&2.3248E-03_JPRB,1.6141E-03_JPRB,2.4914E-03_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&5.4762E-03_JPRB,5.0914E-03_JPRB,4.7365E-03_JPRB,4.2903E-03_JPRB,3.7907E-03_JPRB,3.2409E-03_JPRB,&
+&2.6074E-03_JPRB,1.8823E-03_JPRB,3.0282E-03_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&5.7173E-03_JPRB,5.4006E-03_JPRB,5.0668E-03_JPRB,4.6277E-03_JPRB,4.1360E-03_JPRB,3.5816E-03_JPRB,&
+&2.9410E-03_JPRB,2.2019E-03_JPRB,3.6468E-03_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&4.4058E-03_JPRB,3.9416E-03_JPRB,3.5104E-03_JPRB,3.0879E-03_JPRB,2.6418E-03_JPRB,2.1472E-03_JPRB,&
+&1.6100E-03_JPRB,1.0192E-03_JPRB,2.1860E-03_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&4.5309E-03_JPRB,4.0974E-03_JPRB,3.7008E-03_JPRB,3.2995E-03_JPRB,2.8437E-03_JPRB,2.3378E-03_JPRB,&
+&1.7928E-03_JPRB,1.1728E-03_JPRB,2.6265E-03_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&4.6961E-03_JPRB,4.2954E-03_JPRB,3.9392E-03_JPRB,3.5397E-03_JPRB,3.0713E-03_JPRB,2.5630E-03_JPRB,&
+&2.0061E-03_JPRB,1.3611E-03_JPRB,3.1721E-03_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&4.8988E-03_JPRB,4.5465E-03_JPRB,4.2146E-03_JPRB,3.8097E-03_JPRB,3.3355E-03_JPRB,2.8256E-03_JPRB,&
+&2.2535E-03_JPRB,1.5915E-03_JPRB,3.8341E-03_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&5.1310E-03_JPRB,4.8388E-03_JPRB,4.5280E-03_JPRB,4.1140E-03_JPRB,3.6446E-03_JPRB,3.1343E-03_JPRB,&
+&2.5481E-03_JPRB,1.8697E-03_JPRB,4.6238E-03_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&3.8779E-03_JPRB,3.4634E-03_JPRB,3.0842E-03_JPRB,2.6949E-03_JPRB,2.2979E-03_JPRB,1.8588E-03_JPRB,&
+&1.3777E-03_JPRB,8.5534E-04_JPRB,2.9342E-03_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&3.9975E-03_JPRB,3.6104E-03_JPRB,3.2535E-03_JPRB,2.8827E-03_JPRB,2.4794E-03_JPRB,2.0228E-03_JPRB,&
+&1.5286E-03_JPRB,9.8435E-04_JPRB,3.4742E-03_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&4.1529E-03_JPRB,3.7986E-03_JPRB,3.4711E-03_JPRB,3.1033E-03_JPRB,2.6811E-03_JPRB,2.2132E-03_JPRB,&
+&1.7129E-03_JPRB,1.1425E-03_JPRB,4.1273E-03_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&4.3432E-03_JPRB,4.0329E-03_JPRB,3.7255E-03_JPRB,3.3556E-03_JPRB,2.9159E-03_JPRB,2.4433E-03_JPRB,&
+&1.9336E-03_JPRB,1.3357E-03_JPRB,4.9170E-03_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&4.5622E-03_JPRB,4.3036E-03_JPRB,4.0154E-03_JPRB,3.6360E-03_JPRB,3.1929E-03_JPRB,2.7222E-03_JPRB,&
+&2.1936E-03_JPRB,1.5699E-03_JPRB,5.8667E-03_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&3.3589E-03_JPRB,2.9956E-03_JPRB,2.6626E-03_JPRB,2.3138E-03_JPRB,1.9609E-03_JPRB,1.5811E-03_JPRB,&
+&1.1611E-03_JPRB,7.0395E-04_JPRB,3.8423E-03_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&3.4759E-03_JPRB,3.1375E-03_JPRB,2.8167E-03_JPRB,2.4801E-03_JPRB,2.1214E-03_JPRB,1.7215E-03_JPRB,&
+&1.2829E-03_JPRB,8.1184E-04_JPRB,4.5185E-03_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&3.6242E-03_JPRB,3.3148E-03_JPRB,3.0137E-03_JPRB,2.6792E-03_JPRB,2.3068E-03_JPRB,1.8847E-03_JPRB,&
+&1.4366E-03_JPRB,9.4529E-04_JPRB,5.3431E-03_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&3.8024E-03_JPRB,3.5303E-03_JPRB,3.2447E-03_JPRB,2.9079E-03_JPRB,2.5158E-03_JPRB,2.0837E-03_JPRB,&
+&1.6281E-03_JPRB,1.1078E-03_JPRB,6.3321E-03_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&4.0032E-03_JPRB,3.7796E-03_JPRB,3.5066E-03_JPRB,3.1648E-03_JPRB,2.7620E-03_JPRB,2.3300E-03_JPRB,&
+&1.8584E-03_JPRB,1.3026E-03_JPRB,7.5117E-03_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&2.8830E-03_JPRB,2.5691E-03_JPRB,2.2767E-03_JPRB,1.9708E-03_JPRB,1.6569E-03_JPRB,1.3271E-03_JPRB,&
+&9.6810E-04_JPRB,5.7391E-04_JPRB,5.4404E-03_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&2.9931E-03_JPRB,2.7018E-03_JPRB,2.4141E-03_JPRB,2.1144E-03_JPRB,1.7953E-03_JPRB,1.4497E-03_JPRB,&
+&1.0681E-03_JPRB,6.6067E-04_JPRB,6.3234E-03_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&3.1305E-03_JPRB,2.8628E-03_JPRB,2.5899E-03_JPRB,2.2886E-03_JPRB,1.9605E-03_JPRB,1.5922E-03_JPRB,&
+&1.1949E-03_JPRB,7.7319E-04_JPRB,7.4384E-03_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&3.2919E-03_JPRB,3.0575E-03_JPRB,2.7962E-03_JPRB,2.4931E-03_JPRB,2.1505E-03_JPRB,1.7657E-03_JPRB,&
+&1.3594E-03_JPRB,9.0965E-04_JPRB,8.7978E-03_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&3.4715E-03_JPRB,3.2809E-03_JPRB,3.0291E-03_JPRB,2.7241E-03_JPRB,2.3709E-03_JPRB,1.9816E-03_JPRB,&
+&1.5601E-03_JPRB,1.0736E-03_JPRB,1.0416E-02_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&2.4760E-03_JPRB,2.2062E-03_JPRB,1.9505E-03_JPRB,1.6811E-03_JPRB,1.4033E-03_JPRB,1.1135E-03_JPRB,&
+&8.0567E-04_JPRB,4.6971E-04_JPRB,1.0033E-02_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&2.5766E-03_JPRB,2.3254E-03_JPRB,2.0701E-03_JPRB,1.8033E-03_JPRB,1.5196E-03_JPRB,1.2179E-03_JPRB,&
+&8.9015E-04_JPRB,5.3726E-04_JPRB,1.1309E-02_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&2.7010E-03_JPRB,2.4689E-03_JPRB,2.2239E-03_JPRB,1.9529E-03_JPRB,1.6624E-03_JPRB,1.3434E-03_JPRB,&
+&9.9513E-04_JPRB,6.2989E-04_JPRB,1.3008E-02_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&2.8429E-03_JPRB,2.6411E-03_JPRB,2.4042E-03_JPRB,2.1312E-03_JPRB,1.8298E-03_JPRB,1.4940E-03_JPRB,&
+&1.1345E-03_JPRB,7.4505E-04_JPRB,1.5177E-02_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&2.9996E-03_JPRB,2.8348E-03_JPRB,2.6056E-03_JPRB,2.3332E-03_JPRB,2.0258E-03_JPRB,1.6825E-03_JPRB,&
+&1.3078E-03_JPRB,8.8471E-04_JPRB,1.7852E-02_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&2.1045E-03_JPRB,1.8749E-03_JPRB,1.6563E-03_JPRB,1.4213E-03_JPRB,1.1793E-03_JPRB,9.2862E-04_JPRB,&
+&6.6550E-04_JPRB,3.8300E-04_JPRB,4.0779E-02_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&2.1941E-03_JPRB,1.9801E-03_JPRB,1.7595E-03_JPRB,1.5250E-03_JPRB,1.2768E-03_JPRB,1.0150E-03_JPRB,&
+&7.3680E-04_JPRB,4.3556E-04_JPRB,4.4180E-02_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&2.3035E-03_JPRB,2.1066E-03_JPRB,1.8914E-03_JPRB,1.6530E-03_JPRB,1.3964E-03_JPRB,1.1220E-03_JPRB,&
+&8.2430E-04_JPRB,5.1028E-04_JPRB,4.8665E-02_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&2.4266E-03_JPRB,2.2548E-03_JPRB,2.0445E-03_JPRB,1.8037E-03_JPRB,1.5398E-03_JPRB,1.2522E-03_JPRB,&
+&9.4060E-04_JPRB,6.0474E-04_JPRB,5.4418E-02_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&2.5648E-03_JPRB,2.4232E-03_JPRB,2.2170E-03_JPRB,1.9746E-03_JPRB,1.7066E-03_JPRB,1.4131E-03_JPRB,&
+&1.0872E-03_JPRB,7.2231E-04_JPRB,6.1744E-02_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&1.7736E-03_JPRB,1.5819E-03_JPRB,1.3957E-03_JPRB,1.1944E-03_JPRB,9.8623E-04_JPRB,7.7163E-04_JPRB,&
+&5.4898E-04_JPRB,3.1298E-04_JPRB,2.1288E-01_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&1.8520E-03_JPRB,1.6738E-03_JPRB,1.4851E-03_JPRB,1.2823E-03_JPRB,1.0679E-03_JPRB,8.4345E-04_JPRB,&
+&6.0874E-04_JPRB,3.5579E-04_JPRB,2.2960E-01_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&1.9439E-03_JPRB,1.7818E-03_JPRB,1.5963E-03_JPRB,1.3903E-03_JPRB,1.1685E-03_JPRB,9.3435E-04_JPRB,&
+&6.8422E-04_JPRB,4.1671E-04_JPRB,2.4868E-01_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&2.0519E-03_JPRB,1.9108E-03_JPRB,1.7263E-03_JPRB,1.5165E-03_JPRB,1.2885E-03_JPRB,1.0455E-03_JPRB,&
+&7.8283E-04_JPRB,4.9584E-04_JPRB,2.7032E-01_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&2.1743E-03_JPRB,2.0588E-03_JPRB,1.8772E-03_JPRB,1.6640E-03_JPRB,1.4326E-03_JPRB,1.1843E-03_JPRB,&
+&9.0587E-04_JPRB,5.9427E-04_JPRB,2.9596E-01_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&1.5501E-03_JPRB,1.3901E-03_JPRB,1.2238E-03_JPRB,1.0457E-03_JPRB,8.6223E-04_JPRB,6.7257E-04_JPRB,&
+&4.7782E-04_JPRB,2.7194E-04_JPRB,4.0190E-01_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&1.6161E-03_JPRB,1.4686E-03_JPRB,1.3022E-03_JPRB,1.1228E-03_JPRB,9.3349E-04_JPRB,7.3693E-04_JPRB,&
+&5.3209E-04_JPRB,3.1210E-04_JPRB,4.3586E-01_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&1.6959E-03_JPRB,1.5640E-03_JPRB,1.3990E-03_JPRB,1.2156E-03_JPRB,1.0204E-03_JPRB,8.1637E-04_JPRB,&
+&6.0174E-04_JPRB,3.6844E-04_JPRB,4.7353E-01_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&1.7905E-03_JPRB,1.6788E-03_JPRB,1.5149E-03_JPRB,1.3282E-03_JPRB,1.1282E-03_JPRB,9.1912E-04_JPRB,&
+&6.9230E-04_JPRB,4.4075E-04_JPRB,5.1437E-01_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&1.8993E-03_JPRB,1.8110E-03_JPRB,1.6496E-03_JPRB,1.4619E-03_JPRB,1.2633E-03_JPRB,1.0482E-03_JPRB,&
+&8.0399E-04_JPRB,5.3153E-04_JPRB,5.6007E-01_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&1.4337E-03_JPRB,1.2858E-03_JPRB,1.1285E-03_JPRB,9.6281E-04_JPRB,7.9113E-04_JPRB,6.1463E-04_JPRB,&
+&4.3486E-04_JPRB,2.4590E-04_JPRB,5.1560E-01_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&1.4907E-03_JPRB,1.3522E-03_JPRB,1.1952E-03_JPRB,1.0259E-03_JPRB,8.4928E-04_JPRB,6.6742E-04_JPRB,&
+&4.8034E-04_JPRB,2.8126E-04_JPRB,5.6136E-01_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&1.5589E-03_JPRB,1.4349E-03_JPRB,1.2778E-03_JPRB,1.1050E-03_JPRB,9.2336E-04_JPRB,7.3586E-04_JPRB,&
+&5.4130E-04_JPRB,3.2994E-04_JPRB,6.1298E-01_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&1.6374E-03_JPRB,1.5317E-03_JPRB,1.3749E-03_JPRB,1.1997E-03_JPRB,1.0160E-03_JPRB,8.2656E-04_JPRB,&
+&6.2085E-04_JPRB,3.9394E-04_JPRB,6.6802E-01_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&1.7281E-03_JPRB,1.6427E-03_JPRB,1.4888E-03_JPRB,1.3162E-03_JPRB,1.1355E-03_JPRB,9.3878E-04_JPRB,&
+&7.1928E-04_JPRB,4.7571E-04_JPRB,7.2750E-01_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&1.4127E-03_JPRB,1.2657E-03_JPRB,1.1099E-03_JPRB,9.4602E-04_JPRB,7.7557E-04_JPRB,6.0086E-04_JPRB,&
+&4.2330E-04_JPRB,2.3798E-04_JPRB,5.3307E-01_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&1.4751E-03_JPRB,1.3349E-03_JPRB,1.1777E-03_JPRB,1.0078E-03_JPRB,8.3162E-04_JPRB,6.5054E-04_JPRB,&
+&4.6516E-04_JPRB,2.6968E-04_JPRB,5.8063E-01_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&1.5459E-03_JPRB,1.4170E-03_JPRB,1.2569E-03_JPRB,1.0823E-03_JPRB,9.0010E-04_JPRB,7.1353E-04_JPRB,&
+&5.2060E-04_JPRB,3.1113E-04_JPRB,6.3437E-01_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&1.6229E-03_JPRB,1.5083E-03_JPRB,1.3464E-03_JPRB,1.1679E-03_JPRB,9.8357E-04_JPRB,7.9315E-04_JPRB,&
+&5.8870E-04_JPRB,3.6533E-04_JPRB,6.9306E-01_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&1.7093E-03_JPRB,1.6104E-03_JPRB,1.4477E-03_JPRB,1.2713E-03_JPRB,1.0860E-03_JPRB,8.8862E-04_JPRB,&
+&6.7236E-04_JPRB,4.3506E-04_JPRB,7.5652E-01_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&1.1271E-02_JPRB,1.0036E-02_JPRB,8.8055E-03_JPRB,7.5864E-03_JPRB,6.4304E-03_JPRB,5.2105E-03_JPRB,&
+&3.8976E-03_JPRB,2.4887E-03_JPRB,2.5781E-03_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&1.1795E-02_JPRB,1.0572E-02_JPRB,9.3466E-03_JPRB,8.1711E-03_JPRB,6.9948E-03_JPRB,5.7121E-03_JPRB,&
+&4.3485E-03_JPRB,2.8557E-03_JPRB,3.2233E-03_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&1.2322E-02_JPRB,1.1132E-02_JPRB,9.9358E-03_JPRB,8.8252E-03_JPRB,7.5937E-03_JPRB,6.2705E-03_JPRB,&
+&4.8434E-03_JPRB,3.3250E-03_JPRB,3.9875E-03_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&1.2851E-02_JPRB,1.1725E-02_JPRB,1.0603E-02_JPRB,9.4992E-03_JPRB,8.2313E-03_JPRB,6.8944E-03_JPRB,&
+&5.3932E-03_JPRB,3.9133E-03_JPRB,4.8783E-03_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&1.3382E-02_JPRB,1.2340E-02_JPRB,1.1321E-02_JPRB,1.0197E-02_JPRB,8.9293E-03_JPRB,7.5819E-03_JPRB,&
+&6.0303E-03_JPRB,4.6405E-03_JPRB,5.9012E-03_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&1.0672E-02_JPRB,9.5056E-03_JPRB,8.3387E-03_JPRB,7.1916E-03_JPRB,6.1140E-03_JPRB,4.9607E-03_JPRB,&
+&3.7058E-03_JPRB,2.3880E-03_JPRB,2.7395E-03_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&1.1169E-02_JPRB,1.0020E-02_JPRB,8.8610E-03_JPRB,7.7691E-03_JPRB,6.6689E-03_JPRB,5.4487E-03_JPRB,&
+&4.1407E-03_JPRB,2.7243E-03_JPRB,3.3802E-03_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&1.1679E-02_JPRB,1.0568E-02_JPRB,9.4396E-03_JPRB,8.4156E-03_JPRB,7.2560E-03_JPRB,5.9872E-03_JPRB,&
+&4.6292E-03_JPRB,3.1276E-03_JPRB,4.1522E-03_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&1.2189E-02_JPRB,1.1143E-02_JPRB,1.0088E-02_JPRB,9.0819E-03_JPRB,7.8824E-03_JPRB,6.5917E-03_JPRB,&
+&5.1714E-03_JPRB,3.6254E-03_JPRB,5.0691E-03_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&1.2702E-02_JPRB,1.1729E-02_JPRB,1.0782E-02_JPRB,9.7685E-03_JPRB,8.5622E-03_JPRB,7.2579E-03_JPRB,&
+&5.7650E-03_JPRB,4.2498E-03_JPRB,6.1336E-03_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&9.8797E-03_JPRB,8.7861E-03_JPRB,7.6933E-03_JPRB,6.6349E-03_JPRB,5.6262E-03_JPRB,4.5704E-03_JPRB,&
+&3.4179E-03_JPRB,2.1903E-03_JPRB,3.6361E-03_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&1.0349E-02_JPRB,9.2701E-03_JPRB,8.1866E-03_JPRB,7.1655E-03_JPRB,6.1521E-03_JPRB,5.0318E-03_JPRB,&
+&3.8109E-03_JPRB,2.5138E-03_JPRB,4.3860E-03_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&1.0830E-02_JPRB,9.7857E-03_JPRB,8.7308E-03_JPRB,7.7641E-03_JPRB,6.7179E-03_JPRB,5.5402E-03_JPRB,&
+&4.2653E-03_JPRB,2.8863E-03_JPRB,5.2476E-03_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&1.1311E-02_JPRB,1.0326E-02_JPRB,9.3387E-03_JPRB,8.4020E-03_JPRB,7.3182E-03_JPRB,6.0959E-03_JPRB,&
+&4.7833E-03_JPRB,3.3218E-03_JPRB,6.2518E-03_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&1.1804E-02_JPRB,1.0884E-02_JPRB,9.9988E-03_JPRB,9.0694E-03_JPRB,7.9619E-03_JPRB,6.7205E-03_JPRB,&
+&5.3622E-03_JPRB,3.8455E-03_JPRB,7.4421E-03_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&9.0341E-03_JPRB,8.0181E-03_JPRB,7.0097E-03_JPRB,6.0433E-03_JPRB,5.0961E-03_JPRB,4.1279E-03_JPRB,&
+&3.0949E-03_JPRB,1.9591E-03_JPRB,5.2205E-03_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&9.4663E-03_JPRB,8.4620E-03_JPRB,7.4631E-03_JPRB,6.5118E-03_JPRB,5.5670E-03_JPRB,4.5574E-03_JPRB,&
+&3.4524E-03_JPRB,2.2551E-03_JPRB,6.2821E-03_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&9.9093E-03_JPRB,8.9346E-03_JPRB,7.9590E-03_JPRB,7.0438E-03_JPRB,6.0869E-03_JPRB,5.0245E-03_JPRB,&
+&3.8570E-03_JPRB,2.6046E-03_JPRB,7.4874E-03_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&1.0364E-02_JPRB,9.4379E-03_JPRB,8.5216E-03_JPRB,7.6276E-03_JPRB,6.6482E-03_JPRB,5.5372E-03_JPRB,&
+&4.3314E-03_JPRB,3.0117E-03_JPRB,8.8492E-03_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&1.0832E-02_JPRB,9.9630E-03_JPRB,9.1301E-03_JPRB,8.2526E-03_JPRB,7.2502E-03_JPRB,6.1063E-03_JPRB,&
+&4.8699E-03_JPRB,3.4864E-03_JPRB,1.0381E-02_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&8.2066E-03_JPRB,7.2704E-03_JPRB,6.3520E-03_JPRB,5.4803E-03_JPRB,4.5989E-03_JPRB,3.7047E-03_JPRB,&
+&2.7766E-03_JPRB,1.7333E-03_JPRB,7.2922E-03_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&8.5864E-03_JPRB,7.6589E-03_JPRB,6.7541E-03_JPRB,5.8852E-03_JPRB,5.0024E-03_JPRB,4.0864E-03_JPRB,&
+&3.0959E-03_JPRB,1.9895E-03_JPRB,8.7707E-03_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&8.9852E-03_JPRB,8.0815E-03_JPRB,7.1976E-03_JPRB,6.3516E-03_JPRB,5.4653E-03_JPRB,4.5110E-03_JPRB,&
+&3.4542E-03_JPRB,2.3009E-03_JPRB,1.0486E-02_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&9.4036E-03_JPRB,8.5424E-03_JPRB,7.7055E-03_JPRB,6.8683E-03_JPRB,5.9736E-03_JPRB,4.9773E-03_JPRB,&
+&3.8692E-03_JPRB,2.6768E-03_JPRB,1.2445E-02_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&9.8437E-03_JPRB,9.0342E-03_JPRB,8.2571E-03_JPRB,7.4313E-03_JPRB,6.5257E-03_JPRB,5.4908E-03_JPRB,&
+&4.3579E-03_JPRB,3.1244E-03_JPRB,1.4671E-02_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&7.3775E-03_JPRB,6.5258E-03_JPRB,5.7033E-03_JPRB,4.9243E-03_JPRB,4.1126E-03_JPRB,3.2909E-03_JPRB,&
+&2.4468E-03_JPRB,1.5110E-03_JPRB,9.9543E-03_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&7.6997E-03_JPRB,6.8542E-03_JPRB,6.0539E-03_JPRB,5.2649E-03_JPRB,4.4522E-03_JPRB,3.6170E-03_JPRB,&
+&2.7307E-03_JPRB,1.7266E-03_JPRB,1.1860E-02_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&8.0489E-03_JPRB,7.2263E-03_JPRB,6.4458E-03_JPRB,5.6660E-03_JPRB,4.8447E-03_JPRB,3.9877E-03_JPRB,&
+&3.0489E-03_JPRB,1.9907E-03_JPRB,1.4111E-02_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&8.4274E-03_JPRB,7.6434E-03_JPRB,6.8896E-03_JPRB,6.1185E-03_JPRB,5.2908E-03_JPRB,4.4013E-03_JPRB,&
+&3.4126E-03_JPRB,2.3197E-03_JPRB,1.6745E-02_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&8.8394E-03_JPRB,8.0956E-03_JPRB,7.3855E-03_JPRB,6.6147E-03_JPRB,5.7835E-03_JPRB,4.8630E-03_JPRB,&
+&3.8408E-03_JPRB,2.7242E-03_JPRB,1.9764E-02_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&6.5565E-03_JPRB,5.7913E-03_JPRB,5.0650E-03_JPRB,4.3717E-03_JPRB,3.6417E-03_JPRB,2.9003E-03_JPRB,&
+&2.1352E-03_JPRB,1.3029E-03_JPRB,1.4373E-02_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&6.8314E-03_JPRB,6.0702E-03_JPRB,5.3740E-03_JPRB,4.6650E-03_JPRB,3.9304E-03_JPRB,3.1756E-03_JPRB,&
+&2.3780E-03_JPRB,1.4833E-03_JPRB,1.7113E-02_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&7.1400E-03_JPRB,6.4022E-03_JPRB,5.7201E-03_JPRB,5.0134E-03_JPRB,4.2702E-03_JPRB,3.4939E-03_JPRB,&
+&2.6530E-03_JPRB,1.7044E-03_JPRB,2.0310E-02_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&7.4900E-03_JPRB,6.7869E-03_JPRB,6.1184E-03_JPRB,5.4134E-03_JPRB,4.6538E-03_JPRB,3.8497E-03_JPRB,&
+&2.9716E-03_JPRB,1.9853E-03_JPRB,2.4047E-02_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&7.8853E-03_JPRB,7.2198E-03_JPRB,6.5744E-03_JPRB,5.8583E-03_JPRB,5.0855E-03_JPRB,4.2547E-03_JPRB,&
+&3.3480E-03_JPRB,2.3372E-03_JPRB,2.8402E-02_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&5.7906E-03_JPRB,5.1087E-03_JPRB,4.4702E-03_JPRB,3.8543E-03_JPRB,3.2058E-03_JPRB,2.5413E-03_JPRB,&
+&1.8524E-03_JPRB,1.1137E-03_JPRB,2.4973E-02_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&6.0296E-03_JPRB,5.3498E-03_JPRB,4.7428E-03_JPRB,4.1103E-03_JPRB,3.4527E-03_JPRB,2.7740E-03_JPRB,&
+&2.0568E-03_JPRB,1.2678E-03_JPRB,2.9683E-02_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&6.3087E-03_JPRB,5.6506E-03_JPRB,5.0549E-03_JPRB,4.4167E-03_JPRB,3.7489E-03_JPRB,3.0452E-03_JPRB,&
+&2.2930E-03_JPRB,1.4507E-03_JPRB,3.5325E-02_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&6.6419E-03_JPRB,6.0135E-03_JPRB,5.4190E-03_JPRB,4.7745E-03_JPRB,4.0857E-03_JPRB,3.3552E-03_JPRB,&
+&2.5672E-03_JPRB,1.6862E-03_JPRB,4.1942E-02_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&7.0283E-03_JPRB,6.4363E-03_JPRB,5.8469E-03_JPRB,5.1836E-03_JPRB,4.4693E-03_JPRB,3.7129E-03_JPRB,&
+&2.8969E-03_JPRB,1.9865E-03_JPRB,4.9701E-02_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&5.0360E-03_JPRB,4.4397E-03_JPRB,3.8840E-03_JPRB,3.3435E-03_JPRB,2.7807E-03_JPRB,2.1932E-03_JPRB,&
+&1.5839E-03_JPRB,9.3584E-04_JPRB,8.5840E-02_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&5.2453E-03_JPRB,4.6508E-03_JPRB,4.1231E-03_JPRB,3.5696E-03_JPRB,2.9904E-03_JPRB,2.3871E-03_JPRB,&
+&1.7527E-03_JPRB,1.0640E-03_JPRB,1.0011E-01_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&5.5017E-03_JPRB,4.9250E-03_JPRB,4.4061E-03_JPRB,3.8385E-03_JPRB,3.2464E-03_JPRB,2.6177E-03_JPRB,&
+&1.9509E-03_JPRB,1.2177E-03_JPRB,1.1783E-01_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&5.8157E-03_JPRB,5.2667E-03_JPRB,4.7409E-03_JPRB,4.1617E-03_JPRB,3.5430E-03_JPRB,2.8840E-03_JPRB,&
+&2.1850E-03_JPRB,1.4137E-03_JPRB,1.3938E-01_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&6.1830E-03_JPRB,5.6669E-03_JPRB,5.1359E-03_JPRB,4.5353E-03_JPRB,3.8872E-03_JPRB,3.1987E-03_JPRB,&
+&2.4695E-03_JPRB,1.6659E-03_JPRB,1.6517E-01_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&4.3296E-03_JPRB,3.8182E-03_JPRB,3.3429E-03_JPRB,2.8727E-03_JPRB,2.3861E-03_JPRB,1.8763E-03_JPRB,&
+&1.3438E-03_JPRB,7.8161E-04_JPRB,3.9143E-01_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&4.5130E-03_JPRB,4.0050E-03_JPRB,3.5504E-03_JPRB,3.0710E-03_JPRB,2.5674E-03_JPRB,2.0397E-03_JPRB,&
+&1.4837E-03_JPRB,8.8733E-04_JPRB,4.3656E-01_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&4.7537E-03_JPRB,4.2601E-03_JPRB,3.8073E-03_JPRB,3.3140E-03_JPRB,2.7911E-03_JPRB,2.2372E-03_JPRB,&
+&1.6497E-03_JPRB,1.0161E-03_JPRB,4.9451E-01_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&5.0463E-03_JPRB,4.5800E-03_JPRB,4.1210E-03_JPRB,3.6090E-03_JPRB,3.0570E-03_JPRB,2.4709E-03_JPRB,&
+&1.8508E-03_JPRB,1.1821E-03_JPRB,5.6882E-01_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&5.3939E-03_JPRB,4.9543E-03_JPRB,4.4851E-03_JPRB,3.9500E-03_JPRB,3.3687E-03_JPRB,2.7497E-03_JPRB,&
+&2.1004E-03_JPRB,1.3979E-03_JPRB,6.6139E-01_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&3.7600E-03_JPRB,3.3296E-03_JPRB,2.9316E-03_JPRB,2.5257E-03_JPRB,2.0989E-03_JPRB,1.6511E-03_JPRB,&
+&1.1820E-03_JPRB,6.8533E-04_JPRB,7.4408E-01_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&3.9507E-03_JPRB,3.5282E-03_JPRB,3.1373E-03_JPRB,2.7184E-03_JPRB,2.2731E-03_JPRB,1.8035E-03_JPRB,&
+&1.3072E-03_JPRB,7.7991E-04_JPRB,8.1308E-01_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&4.1947E-03_JPRB,3.7893E-03_JPRB,3.3928E-03_JPRB,2.9586E-03_JPRB,2.4893E-03_JPRB,1.9891E-03_JPRB,&
+&1.4610E-03_JPRB,8.9963E-04_JPRB,8.9527E-01_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&4.4908E-03_JPRB,4.1076E-03_JPRB,3.7028E-03_JPRB,3.2435E-03_JPRB,2.7433E-03_JPRB,2.2120E-03_JPRB,&
+&1.6527E-03_JPRB,1.0595E-03_JPRB,9.9684E-01_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&4.8478E-03_JPRB,4.4859E-03_JPRB,4.0645E-03_JPRB,3.5748E-03_JPRB,3.0447E-03_JPRB,2.4822E-03_JPRB,&
+&1.8975E-03_JPRB,1.2673E-03_JPRB,1.1166E+00_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&3.2909E-03_JPRB,2.9295E-03_JPRB,2.5867E-03_JPRB,2.2286E-03_JPRB,1.8515E-03_JPRB,1.4556E-03_JPRB,&
+&1.0393E-03_JPRB,6.0072E-04_JPRB,1.0077E+00_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&3.4843E-03_JPRB,3.1331E-03_JPRB,2.7896E-03_JPRB,2.4180E-03_JPRB,2.0217E-03_JPRB,1.5999E-03_JPRB,&
+&1.1545E-03_JPRB,6.8643E-04_JPRB,1.0948E+00_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&3.7310E-03_JPRB,3.3942E-03_JPRB,3.0433E-03_JPRB,2.6518E-03_JPRB,2.2272E-03_JPRB,1.7748E-03_JPRB,&
+&1.3002E-03_JPRB,8.0128E-04_JPRB,1.1979E+00_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&4.0332E-03_JPRB,3.7134E-03_JPRB,3.3499E-03_JPRB,2.9292E-03_JPRB,2.4733E-03_JPRB,1.9891E-03_JPRB,&
+&1.4867E-03_JPRB,9.5533E-04_JPRB,1.3214E+00_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&4.3825E-03_JPRB,4.0886E-03_JPRB,3.7068E-03_JPRB,3.2581E-03_JPRB,2.7706E-03_JPRB,2.2595E-03_JPRB,&
+&1.7283E-03_JPRB,1.1510E-03_JPRB,1.4622E+00_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&3.0478E-03_JPRB,2.7205E-03_JPRB,2.3969E-03_JPRB,2.0570E-03_JPRB,1.7018E-03_JPRB,1.3312E-03_JPRB,&
+&9.4239E-04_JPRB,5.3797E-04_JPRB,1.1139E+00_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&3.2266E-03_JPRB,2.9089E-03_JPRB,2.5816E-03_JPRB,2.2296E-03_JPRB,1.8550E-03_JPRB,1.4585E-03_JPRB,&
+&1.0452E-03_JPRB,6.1598E-04_JPRB,1.2073E+00_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&3.4554E-03_JPRB,3.1502E-03_JPRB,2.8168E-03_JPRB,2.4455E-03_JPRB,2.0432E-03_JPRB,1.6195E-03_JPRB,&
+&1.1807E-03_JPRB,7.2584E-04_JPRB,1.3161E+00_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&3.7354E-03_JPRB,3.4492E-03_JPRB,3.1036E-03_JPRB,2.7077E-03_JPRB,2.2785E-03_JPRB,1.8279E-03_JPRB,&
+&1.3627E-03_JPRB,8.7250E-04_JPRB,1.4441E+00_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&4.0484E-03_JPRB,3.7921E-03_JPRB,3.4369E-03_JPRB,3.0193E-03_JPRB,2.5680E-03_JPRB,2.0959E-03_JPRB,&
+&1.6011E-03_JPRB,1.0569E-03_JPRB,1.5851E+00_JPRB/)
+
+
+!     ------------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB13_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb13_A2.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB13_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&1.9029E-02_JPRB,1.6853E-02_JPRB,1.4735E-02_JPRB,1.2587E-02_JPRB,1.0467E-02_JPRB,8.5540E-03_JPRB,&
+&6.8482E-03_JPRB,5.4691E-03_JPRB,7.2696E-03_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&2.0092E-02_JPRB,1.7878E-02_JPRB,1.5728E-02_JPRB,1.3580E-02_JPRB,1.1524E-02_JPRB,9.7463E-03_JPRB,&
+&8.1292E-03_JPRB,6.9002E-03_JPRB,9.2265E-03_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&2.1289E-02_JPRB,1.9078E-02_JPRB,1.6951E-02_JPRB,1.4803E-02_JPRB,1.2902E-02_JPRB,1.1235E-02_JPRB,&
+&9.7244E-03_JPRB,8.5896E-03_JPRB,1.1472E-02_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&2.2660E-02_JPRB,2.0471E-02_JPRB,1.8401E-02_JPRB,1.6346E-02_JPRB,1.4609E-02_JPRB,1.3016E-02_JPRB,&
+&1.1621E-02_JPRB,1.0516E-02_JPRB,1.4012E-02_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&2.4197E-02_JPRB,2.2063E-02_JPRB,2.0065E-02_JPRB,1.8209E-02_JPRB,1.6609E-02_JPRB,1.5079E-02_JPRB,&
+&1.3788E-02_JPRB,1.2665E-02_JPRB,1.6825E-02_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&1.9742E-02_JPRB,1.7478E-02_JPRB,1.5268E-02_JPRB,1.3020E-02_JPRB,1.0794E-02_JPRB,8.7264E-03_JPRB,&
+&6.7494E-03_JPRB,5.0072E-03_JPRB,7.5472E-03_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&2.0752E-02_JPRB,1.8451E-02_JPRB,1.6203E-02_JPRB,1.3921E-02_JPRB,1.1711E-02_JPRB,9.7269E-03_JPRB,&
+&7.8214E-03_JPRB,6.2435E-03_JPRB,9.6127E-03_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&2.1850E-02_JPRB,1.9539E-02_JPRB,1.7284E-02_JPRB,1.4968E-02_JPRB,1.2893E-02_JPRB,1.0990E-02_JPRB,&
+&9.1753E-03_JPRB,7.7563E-03_JPRB,1.2009E-02_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&2.3047E-02_JPRB,2.0746E-02_JPRB,1.8528E-02_JPRB,1.6289E-02_JPRB,1.4365E-02_JPRB,1.2522E-02_JPRB,&
+&1.0820E-02_JPRB,9.5216E-03_JPRB,1.4733E-02_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&2.4378E-02_JPRB,2.2145E-02_JPRB,1.9963E-02_JPRB,1.7904E-02_JPRB,1.6106E-02_JPRB,1.4326E-02_JPRB,&
+&1.2781E-02_JPRB,1.1538E-02_JPRB,1.7764E-02_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&2.0246E-02_JPRB,1.7907E-02_JPRB,1.5619E-02_JPRB,1.3303E-02_JPRB,1.1014E-02_JPRB,8.8212E-03_JPRB,&
+&6.6585E-03_JPRB,4.5305E-03_JPRB,9.1026E-03_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&2.1216E-02_JPRB,1.8847E-02_JPRB,1.6535E-02_JPRB,1.4182E-02_JPRB,1.1869E-02_JPRB,9.7020E-03_JPRB,&
+&7.5117E-03_JPRB,5.5113E-03_JPRB,1.1552E-02_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&2.2286E-02_JPRB,1.9902E-02_JPRB,1.7571E-02_JPRB,1.5169E-02_JPRB,1.2921E-02_JPRB,1.0740E-02_JPRB,&
+&8.6112E-03_JPRB,6.7529E-03_JPRB,1.4497E-02_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&2.3424E-02_JPRB,2.1046E-02_JPRB,1.8711E-02_JPRB,1.6326E-02_JPRB,1.4157E-02_JPRB,1.2014E-02_JPRB,&
+&9.9676E-03_JPRB,8.2723E-03_JPRB,1.7885E-02_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&2.4644E-02_JPRB,2.2304E-02_JPRB,1.9954E-02_JPRB,1.7680E-02_JPRB,1.5613E-02_JPRB,1.3543E-02_JPRB,&
+&1.1603E-02_JPRB,1.0079E-02_JPRB,2.1675E-02_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&2.0516E-02_JPRB,1.8121E-02_JPRB,1.5769E-02_JPRB,1.3411E-02_JPRB,1.1085E-02_JPRB,8.8389E-03_JPRB,&
+&6.5833E-03_JPRB,4.2076E-03_JPRB,1.2881E-02_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&2.1468E-02_JPRB,1.9043E-02_JPRB,1.6678E-02_JPRB,1.4283E-02_JPRB,1.1934E-02_JPRB,9.6739E-03_JPRB,&
+&7.3557E-03_JPRB,4.9709E-03_JPRB,1.5909E-02_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&2.2532E-02_JPRB,2.0092E-02_JPRB,1.7713E-02_JPRB,1.5283E-02_JPRB,1.2949E-02_JPRB,1.0652E-02_JPRB,&
+&8.2469E-03_JPRB,5.9560E-03_JPRB,1.9619E-02_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&2.3665E-02_JPRB,2.1230E-02_JPRB,1.8849E-02_JPRB,1.6407E-02_JPRB,1.4104E-02_JPRB,1.1750E-02_JPRB,&
+&9.3432E-03_JPRB,7.1888E-03_JPRB,2.4018E-02_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&2.4860E-02_JPRB,2.2477E-02_JPRB,2.0057E-02_JPRB,1.7676E-02_JPRB,1.5382E-02_JPRB,1.3031E-02_JPRB,&
+&1.0691E-02_JPRB,8.7092E-03_JPRB,2.9097E-02_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&2.0504E-02_JPRB,1.8088E-02_JPRB,1.5703E-02_JPRB,1.3326E-02_JPRB,1.0997E-02_JPRB,8.7375E-03_JPRB,&
+&6.4349E-03_JPRB,4.0325E-03_JPRB,1.9706E-02_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&2.1455E-02_JPRB,1.9003E-02_JPRB,1.6600E-02_JPRB,1.4207E-02_JPRB,1.1857E-02_JPRB,9.5485E-03_JPRB,&
+&7.1823E-03_JPRB,4.6356E-03_JPRB,2.3733E-02_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&2.2502E-02_JPRB,2.0037E-02_JPRB,1.7638E-02_JPRB,1.5221E-02_JPRB,1.2854E-02_JPRB,1.0499E-02_JPRB,&
+&8.0330E-03_JPRB,5.4121E-03_JPRB,2.8573E-02_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&2.3616E-02_JPRB,2.1161E-02_JPRB,1.8779E-02_JPRB,1.6343E-02_JPRB,1.3995E-02_JPRB,1.1576E-02_JPRB,&
+&8.9770E-03_JPRB,6.4039E-03_JPRB,3.4371E-02_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&2.4795E-02_JPRB,2.2401E-02_JPRB,2.0008E-02_JPRB,1.7611E-02_JPRB,1.5244E-02_JPRB,1.2739E-02_JPRB,&
+&1.0086E-02_JPRB,7.6459E-03_JPRB,4.1145E-02_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&2.0133E-02_JPRB,1.7738E-02_JPRB,1.5364E-02_JPRB,1.2999E-02_JPRB,1.0725E-02_JPRB,8.4927E-03_JPRB,&
+&6.2104E-03_JPRB,3.8293E-03_JPRB,2.9307E-02_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&2.1045E-02_JPRB,1.8610E-02_JPRB,1.6208E-02_JPRB,1.3856E-02_JPRB,1.1560E-02_JPRB,9.2671E-03_JPRB,&
+&6.8969E-03_JPRB,4.3962E-03_JPRB,3.5253E-02_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&2.2058E-02_JPRB,1.9606E-02_JPRB,1.7213E-02_JPRB,1.4861E-02_JPRB,1.2529E-02_JPRB,1.0178E-02_JPRB,&
+&7.7198E-03_JPRB,5.0397E-03_JPRB,4.2153E-02_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&2.3150E-02_JPRB,2.0703E-02_JPRB,1.8349E-02_JPRB,1.5982E-02_JPRB,1.3648E-02_JPRB,1.1231E-02_JPRB,&
+&8.6302E-03_JPRB,5.8174E-03_JPRB,5.0140E-02_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&2.4302E-02_JPRB,2.1916E-02_JPRB,1.9594E-02_JPRB,1.7235E-02_JPRB,1.4884E-02_JPRB,1.2368E-02_JPRB,&
+&9.6429E-03_JPRB,6.8104E-03_JPRB,5.9434E-02_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&1.9536E-02_JPRB,1.7189E-02_JPRB,1.4859E-02_JPRB,1.2545E-02_JPRB,1.0327E-02_JPRB,8.1473E-03_JPRB,&
+&5.9285E-03_JPRB,3.5890E-03_JPRB,4.5929E-02_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&2.0386E-02_JPRB,1.8001E-02_JPRB,1.5633E-02_JPRB,1.3342E-02_JPRB,1.1116E-02_JPRB,8.8902E-03_JPRB,&
+&6.5600E-03_JPRB,4.1234E-03_JPRB,5.5119E-02_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&2.1349E-02_JPRB,1.8942E-02_JPRB,1.6585E-02_JPRB,1.4307E-02_JPRB,1.2057E-02_JPRB,9.7494E-03_JPRB,&
+&7.3377E-03_JPRB,4.7340E-03_JPRB,6.5943E-02_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&2.2403E-02_JPRB,1.9996E-02_JPRB,1.7685E-02_JPRB,1.5416E-02_JPRB,1.3126E-02_JPRB,1.0758E-02_JPRB,&
+&8.2128E-03_JPRB,5.4226E-03_JPRB,7.8488E-02_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&2.3510E-02_JPRB,2.1150E-02_JPRB,1.8904E-02_JPRB,1.6637E-02_JPRB,1.4327E-02_JPRB,1.1873E-02_JPRB,&
+&9.1897E-03_JPRB,6.2247E-03_JPRB,9.2665E-02_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&1.8746E-02_JPRB,1.6470E-02_JPRB,1.4220E-02_JPRB,1.1987E-02_JPRB,9.8350E-03_JPRB,7.7336E-03_JPRB,&
+&5.6041E-03_JPRB,3.3408E-03_JPRB,8.6619E-02_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&1.9538E-02_JPRB,1.7231E-02_JPRB,1.4934E-02_JPRB,1.2719E-02_JPRB,1.0574E-02_JPRB,8.4413E-03_JPRB,&
+&6.1857E-03_JPRB,3.8236E-03_JPRB,1.0386E-01_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&2.0463E-02_JPRB,1.8125E-02_JPRB,1.5828E-02_JPRB,1.3641E-02_JPRB,1.1488E-02_JPRB,9.2568E-03_JPRB,&
+&6.9051E-03_JPRB,4.3974E-03_JPRB,1.2423E-01_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&2.1475E-02_JPRB,1.9130E-02_JPRB,1.6884E-02_JPRB,1.4717E-02_JPRB,1.2518E-02_JPRB,1.0208E-02_JPRB,&
+&7.7414E-03_JPRB,5.0487E-03_JPRB,1.4791E-01_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&2.2552E-02_JPRB,2.0240E-02_JPRB,1.8077E-02_JPRB,1.5918E-02_JPRB,1.3670E-02_JPRB,1.1281E-02_JPRB,&
+&8.6774E-03_JPRB,5.7934E-03_JPRB,1.7479E-01_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&1.7677E-02_JPRB,1.5514E-02_JPRB,1.3384E-02_JPRB,1.1273E-02_JPRB,9.2209E-03_JPRB,7.2255E-03_JPRB,&
+&5.2054E-03_JPRB,3.0724E-03_JPRB,3.0542E-01_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&1.8381E-02_JPRB,1.6193E-02_JPRB,1.4015E-02_JPRB,1.1915E-02_JPRB,9.8821E-03_JPRB,7.8714E-03_JPRB,&
+&5.7484E-03_JPRB,3.4992E-03_JPRB,3.6713E-01_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&1.9248E-02_JPRB,1.7024E-02_JPRB,1.4840E-02_JPRB,1.2769E-02_JPRB,1.0738E-02_JPRB,8.6406E-03_JPRB,&
+&6.3997E-03_JPRB,4.0183E-03_JPRB,4.4040E-01_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&2.0207E-02_JPRB,1.7971E-02_JPRB,1.5835E-02_JPRB,1.3795E-02_JPRB,1.1724E-02_JPRB,9.5294E-03_JPRB,&
+&7.1782E-03_JPRB,4.6229E-03_JPRB,5.2636E-01_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&2.1234E-02_JPRB,1.9021E-02_JPRB,1.6969E-02_JPRB,1.4942E-02_JPRB,1.2829E-02_JPRB,1.0542E-02_JPRB,&
+&8.0575E-03_JPRB,5.3170E-03_JPRB,6.2525E-01_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&1.6394E-02_JPRB,1.4380E-02_JPRB,1.2403E-02_JPRB,1.0449E-02_JPRB,8.5433E-03_JPRB,6.6777E-03_JPRB,&
+&4.7921E-03_JPRB,2.8109E-03_JPRB,1.2050E+00_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&1.7024E-02_JPRB,1.4988E-02_JPRB,1.2970E-02_JPRB,1.1025E-02_JPRB,9.1364E-03_JPRB,7.2561E-03_JPRB,&
+&5.2885E-03_JPRB,3.1895E-03_JPRB,1.4500E+00_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&1.7826E-02_JPRB,1.5753E-02_JPRB,1.3734E-02_JPRB,1.1808E-02_JPRB,9.9253E-03_JPRB,7.9700E-03_JPRB,&
+&5.8931E-03_JPRB,3.6564E-03_JPRB,1.7463E+00_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&1.8735E-02_JPRB,1.6645E-02_JPRB,1.4665E-02_JPRB,1.2773E-02_JPRB,1.0857E-02_JPRB,8.8090E-03_JPRB,&
+&6.6108E-03_JPRB,4.2090E-03_JPRB,2.0981E+00_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&1.9712E-02_JPRB,1.7647E-02_JPRB,1.5744E-02_JPRB,1.3877E-02_JPRB,1.1904E-02_JPRB,9.7573E-03_JPRB,&
+&7.4286E-03_JPRB,4.8520E-03_JPRB,2.5126E+00_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&1.5188E-02_JPRB,1.3334E-02_JPRB,1.1520E-02_JPRB,9.7424E-03_JPRB,8.0090E-03_JPRB,6.2916E-03_JPRB,&
+&4.5326E-03_JPRB,2.6753E-03_JPRB,1.9077E+00_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&1.5822E-02_JPRB,1.3943E-02_JPRB,1.2110E-02_JPRB,1.0341E-02_JPRB,8.6186E-03_JPRB,6.8684E-03_JPRB,&
+&5.0259E-03_JPRB,3.0456E-03_JPRB,2.2451E+00_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&1.6607E-02_JPRB,1.4701E-02_JPRB,1.2884E-02_JPRB,1.1139E-02_JPRB,9.4122E-03_JPRB,7.5743E-03_JPRB,&
+&5.6288E-03_JPRB,3.4987E-03_JPRB,2.6727E+00_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&1.7478E-02_JPRB,1.5574E-02_JPRB,1.3803E-02_JPRB,1.2100E-02_JPRB,1.0320E-02_JPRB,8.3983E-03_JPRB,&
+&6.3281E-03_JPRB,4.0305E-03_JPRB,3.1969E+00_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&1.8411E-02_JPRB,1.6558E-02_JPRB,1.4871E-02_JPRB,1.3181E-02_JPRB,1.1341E-02_JPRB,9.3258E-03_JPRB,&
+&7.1170E-03_JPRB,4.6613E-03_JPRB,3.8404E+00_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&1.3941E-02_JPRB,1.2255E-02_JPRB,1.0613E-02_JPRB,9.0147E-03_JPRB,7.4482E-03_JPRB,5.8708E-03_JPRB,&
+&4.2432E-03_JPRB,2.5105E-03_JPRB,2.4052E+00_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&1.4580E-02_JPRB,1.2868E-02_JPRB,1.1223E-02_JPRB,9.6378E-03_JPRB,8.0671E-03_JPRB,6.4400E-03_JPRB,&
+&4.7289E-03_JPRB,2.8707E-03_JPRB,2.7400E+00_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&1.5332E-02_JPRB,1.3609E-02_JPRB,1.1989E-02_JPRB,1.0428E-02_JPRB,8.8315E-03_JPRB,7.1273E-03_JPRB,&
+&5.3125E-03_JPRB,3.3035E-03_JPRB,3.1791E+00_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&1.6161E-02_JPRB,1.4458E-02_JPRB,1.2893E-02_JPRB,1.1362E-02_JPRB,9.7096E-03_JPRB,7.9231E-03_JPRB,&
+&5.9850E-03_JPRB,3.8141E-03_JPRB,3.7447E+00_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&1.7070E-02_JPRB,1.5426E-02_JPRB,1.3937E-02_JPRB,1.2403E-02_JPRB,1.0694E-02_JPRB,8.8139E-03_JPRB,&
+&6.7376E-03_JPRB,4.4323E-03_JPRB,4.4627E+00_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&1.2794E-02_JPRB,1.1266E-02_JPRB,9.7854E-03_JPRB,8.3492E-03_JPRB,6.9236E-03_JPRB,5.4666E-03_JPRB,&
+&3.9567E-03_JPRB,2.3393E-03_JPRB,2.6597E+00_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&1.3432E-02_JPRB,1.1882E-02_JPRB,1.0408E-02_JPRB,8.9833E-03_JPRB,7.5382E-03_JPRB,6.0260E-03_JPRB,&
+&4.4305E-03_JPRB,2.6861E-03_JPRB,2.9232E+00_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&1.4173E-02_JPRB,1.2623E-02_JPRB,1.1177E-02_JPRB,9.7661E-03_JPRB,8.2766E-03_JPRB,6.6966E-03_JPRB,&
+&4.9881E-03_JPRB,3.0967E-03_JPRB,3.2802E+00_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&1.5004E-02_JPRB,1.3479E-02_JPRB,1.2087E-02_JPRB,1.0672E-02_JPRB,9.1287E-03_JPRB,7.4565E-03_JPRB,&
+&5.6287E-03_JPRB,3.5870E-03_JPRB,3.7540E+00_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&1.5937E-02_JPRB,1.4472E-02_JPRB,1.3138E-02_JPRB,1.1698E-02_JPRB,1.0080E-02_JPRB,8.3092E-03_JPRB,&
+&6.3550E-03_JPRB,4.1944E-03_JPRB,4.3785E+00_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&2.6762E-02_JPRB,2.3836E-02_JPRB,2.1231E-02_JPRB,1.8931E-02_JPRB,1.6906E-02_JPRB,1.4777E-02_JPRB,&
+&1.3342E-02_JPRB,1.2105E-02_JPRB,1.6563E-02_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&2.9265E-02_JPRB,2.6518E-02_JPRB,2.4370E-02_JPRB,2.2173E-02_JPRB,2.0444E-02_JPRB,1.8164E-02_JPRB,&
+&1.7054E-02_JPRB,1.5689E-02_JPRB,2.1225E-02_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&3.2760E-02_JPRB,2.9967E-02_JPRB,2.8038E-02_JPRB,2.6333E-02_JPRB,2.4279E-02_JPRB,2.2399E-02_JPRB,&
+&2.1466E-02_JPRB,1.9893E-02_JPRB,2.6794E-02_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&3.6728E-02_JPRB,3.3924E-02_JPRB,3.2080E-02_JPRB,3.0665E-02_JPRB,2.8563E-02_JPRB,2.7253E-02_JPRB,&
+&2.6630E-02_JPRB,2.4967E-02_JPRB,3.3311E-02_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&4.1067E-02_JPRB,3.8420E-02_JPRB,3.6876E-02_JPRB,3.5143E-02_JPRB,3.3523E-02_JPRB,3.2742E-02_JPRB,&
+&3.2418E-02_JPRB,3.0721E-02_JPRB,4.0819E-02_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&2.8605E-02_JPRB,2.5321E-02_JPRB,2.2167E-02_JPRB,1.9077E-02_JPRB,1.6173E-02_JPRB,1.3425E-02_JPRB,&
+&1.2233E-02_JPRB,1.1219E-02_JPRB,1.7512E-02_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&3.0223E-02_JPRB,2.6983E-02_JPRB,2.4080E-02_JPRB,2.1317E-02_JPRB,1.8746E-02_JPRB,1.6523E-02_JPRB,&
+&1.5770E-02_JPRB,1.4686E-02_JPRB,2.2528E-02_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&3.2701E-02_JPRB,2.9579E-02_JPRB,2.6971E-02_JPRB,2.4770E-02_JPRB,2.2162E-02_JPRB,2.0505E-02_JPRB,&
+&1.9969E-02_JPRB,1.8858E-02_JPRB,2.8417E-02_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&3.6116E-02_JPRB,3.3194E-02_JPRB,3.0876E-02_JPRB,2.8651E-02_JPRB,2.6284E-02_JPRB,2.5161E-02_JPRB,&
+&2.4787E-02_JPRB,2.3679E-02_JPRB,3.5174E-02_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&4.0224E-02_JPRB,3.7508E-02_JPRB,3.5629E-02_JPRB,3.3002E-02_JPRB,3.1044E-02_JPRB,3.0447E-02_JPRB,&
+&3.0074E-02_JPRB,2.9018E-02_JPRB,4.2802E-02_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&3.1173E-02_JPRB,2.7478E-02_JPRB,2.3852E-02_JPRB,2.0280E-02_JPRB,1.6676E-02_JPRB,1.3128E-02_JPRB,&
+&1.0535E-02_JPRB,9.7264E-03_JPRB,2.0918E-02_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&3.2510E-02_JPRB,2.8808E-02_JPRB,2.5249E-02_JPRB,2.1598E-02_JPRB,1.8067E-02_JPRB,1.5028E-02_JPRB,&
+&1.3592E-02_JPRB,1.2783E-02_JPRB,2.6767E-02_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&3.4191E-02_JPRB,3.0498E-02_JPRB,2.6966E-02_JPRB,2.3575E-02_JPRB,2.0182E-02_JPRB,1.8352E-02_JPRB,&
+&1.7404E-02_JPRB,1.6536E-02_JPRB,3.3672E-02_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&3.6367E-02_JPRB,3.2714E-02_JPRB,2.9565E-02_JPRB,2.6531E-02_JPRB,2.3647E-02_JPRB,2.2602E-02_JPRB,&
+&2.1804E-02_JPRB,2.0933E-02_JPRB,4.1820E-02_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&3.9166E-02_JPRB,3.5919E-02_JPRB,3.3501E-02_JPRB,3.0557E-02_JPRB,2.8090E-02_JPRB,2.7339E-02_JPRB,&
+&2.6717E-02_JPRB,2.5907E-02_JPRB,5.1316E-02_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&3.4066E-02_JPRB,2.9987E-02_JPRB,2.5967E-02_JPRB,2.1961E-02_JPRB,1.7860E-02_JPRB,1.3888E-02_JPRB,&
+&1.0186E-02_JPRB,8.1254E-03_JPRB,2.9250E-02_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&3.5460E-02_JPRB,3.1308E-02_JPRB,2.7262E-02_JPRB,2.3213E-02_JPRB,1.9156E-02_JPRB,1.5144E-02_JPRB,&
+&1.1782E-02_JPRB,1.0834E-02_JPRB,3.8098E-02_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&3.6874E-02_JPRB,3.2726E-02_JPRB,2.8680E-02_JPRB,2.4650E-02_JPRB,2.0393E-02_JPRB,1.6831E-02_JPRB,&
+&1.4883E-02_JPRB,1.4098E-02_JPRB,4.8024E-02_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&3.8521E-02_JPRB,3.4326E-02_JPRB,3.0378E-02_JPRB,2.6392E-02_JPRB,2.2432E-02_JPRB,1.9980E-02_JPRB,&
+&1.8770E-02_JPRB,1.7981E-02_JPRB,5.9374E-02_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&4.0371E-02_JPRB,3.6305E-02_JPRB,3.2708E-02_JPRB,2.8856E-02_JPRB,2.5853E-02_JPRB,2.4145E-02_JPRB,&
+&2.3195E-02_JPRB,2.2463E-02_JPRB,7.2233E-02_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&3.6434E-02_JPRB,3.2049E-02_JPRB,2.7755E-02_JPRB,2.3391E-02_JPRB,1.9132E-02_JPRB,1.4843E-02_JPRB,&
+&1.0790E-02_JPRB,6.8244E-03_JPRB,4.2858E-02_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&3.8052E-02_JPRB,3.3555E-02_JPRB,2.9121E-02_JPRB,2.4755E-02_JPRB,2.0357E-02_JPRB,1.6002E-02_JPRB,&
+&1.1813E-02_JPRB,9.0432E-03_JPRB,5.4802E-02_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&3.9720E-02_JPRB,3.5157E-02_JPRB,3.0682E-02_JPRB,2.6285E-02_JPRB,2.1672E-02_JPRB,1.7348E-02_JPRB,&
+&1.3380E-02_JPRB,1.1960E-02_JPRB,7.0286E-02_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&4.1616E-02_JPRB,3.6963E-02_JPRB,3.2456E-02_JPRB,2.8024E-02_JPRB,2.3329E-02_JPRB,1.9031E-02_JPRB,&
+&1.6245E-02_JPRB,1.5312E-02_JPRB,8.8323E-02_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&4.3467E-02_JPRB,3.8778E-02_JPRB,3.4533E-02_JPRB,2.9811E-02_JPRB,2.5445E-02_JPRB,2.1728E-02_JPRB,&
+&2.0136E-02_JPRB,1.9200E-02_JPRB,1.0804E-01_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&3.9016E-02_JPRB,3.4252E-02_JPRB,2.9584E-02_JPRB,2.4915E-02_JPRB,2.0266E-02_JPRB,1.5607E-02_JPRB,&
+&1.1369E-02_JPRB,6.7556E-03_JPRB,6.7432E-02_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&4.0452E-02_JPRB,3.5642E-02_JPRB,3.0903E-02_JPRB,2.6184E-02_JPRB,2.1443E-02_JPRB,1.6916E-02_JPRB,&
+&1.2438E-02_JPRB,7.7587E-03_JPRB,8.0666E-02_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&4.2155E-02_JPRB,3.7272E-02_JPRB,3.2474E-02_JPRB,2.7702E-02_JPRB,2.2975E-02_JPRB,1.8296E-02_JPRB,&
+&1.3696E-02_JPRB,9.8129E-03_JPRB,9.9349E-02_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&4.4121E-02_JPRB,3.9182E-02_JPRB,3.4311E-02_JPRB,2.9590E-02_JPRB,2.4570E-02_JPRB,1.9828E-02_JPRB,&
+&1.5267E-02_JPRB,1.2859E-02_JPRB,1.2445E-01_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&4.6213E-02_JPRB,4.1161E-02_JPRB,3.6458E-02_JPRB,3.1468E-02_JPRB,2.6559E-02_JPRB,2.1785E-02_JPRB,&
+&1.7650E-02_JPRB,1.6392E-02_JPRB,1.5469E-01_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&4.1359E-02_JPRB,3.6208E-02_JPRB,3.1312E-02_JPRB,2.6328E-02_JPRB,2.1267E-02_JPRB,1.6329E-02_JPRB,&
+&1.1827E-02_JPRB,6.9169E-03_JPRB,1.1368E-01_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&4.2810E-02_JPRB,3.7687E-02_JPRB,3.2642E-02_JPRB,2.7514E-02_JPRB,2.2469E-02_JPRB,1.7642E-02_JPRB,&
+&1.2961E-02_JPRB,7.8247E-03_JPRB,1.3536E-01_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&4.4524E-02_JPRB,3.9305E-02_JPRB,3.4135E-02_JPRB,2.9034E-02_JPRB,2.4045E-02_JPRB,1.9110E-02_JPRB,&
+&1.4148E-02_JPRB,8.9564E-03_JPRB,1.6103E-01_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&4.6334E-02_JPRB,4.1093E-02_JPRB,3.5887E-02_JPRB,3.0860E-02_JPRB,2.5799E-02_JPRB,2.0761E-02_JPRB,&
+&1.5735E-02_JPRB,1.0795E-02_JPRB,1.9350E-01_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&4.8572E-02_JPRB,4.3224E-02_JPRB,3.8076E-02_JPRB,3.3049E-02_JPRB,2.7908E-02_JPRB,2.2762E-02_JPRB,&
+&1.7415E-02_JPRB,1.3780E-02_JPRB,2.3787E-01_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&4.3378E-02_JPRB,3.7958E-02_JPRB,3.2795E-02_JPRB,2.7505E-02_JPRB,2.2211E-02_JPRB,1.6954E-02_JPRB,&
+&1.2107E-02_JPRB,7.0694E-03_JPRB,2.2556E-01_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&4.4773E-02_JPRB,3.9362E-02_JPRB,3.4029E-02_JPRB,2.8646E-02_JPRB,2.3299E-02_JPRB,1.8142E-02_JPRB,&
+&1.3413E-02_JPRB,7.9253E-03_JPRB,2.7089E-01_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&4.6409E-02_JPRB,4.0922E-02_JPRB,3.5484E-02_JPRB,3.0037E-02_JPRB,2.4685E-02_JPRB,1.9797E-02_JPRB,&
+&1.4575E-02_JPRB,9.0349E-03_JPRB,3.2354E-01_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&4.8517E-02_JPRB,4.2960E-02_JPRB,3.7415E-02_JPRB,3.1998E-02_JPRB,2.6730E-02_JPRB,2.1507E-02_JPRB,&
+&1.6141E-02_JPRB,1.0325E-02_JPRB,3.8344E-01_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&5.0774E-02_JPRB,4.5143E-02_JPRB,3.9523E-02_JPRB,3.4165E-02_JPRB,2.9055E-02_JPRB,2.3639E-02_JPRB,&
+&1.7862E-02_JPRB,1.1998E-02_JPRB,4.5852E-01_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&4.4741E-02_JPRB,3.9148E-02_JPRB,3.3761E-02_JPRB,2.8274E-02_JPRB,2.2811E-02_JPRB,1.7318E-02_JPRB,&
+&1.2244E-02_JPRB,7.1252E-03_JPRB,8.3568E-01_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&4.6123E-02_JPRB,4.0465E-02_JPRB,3.4958E-02_JPRB,2.9415E-02_JPRB,2.3808E-02_JPRB,1.8402E-02_JPRB,&
+&1.3524E-02_JPRB,7.9651E-03_JPRB,1.0063E+00_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&4.7534E-02_JPRB,4.1886E-02_JPRB,3.6283E-02_JPRB,3.0629E-02_JPRB,2.4989E-02_JPRB,2.0028E-02_JPRB,&
+&1.4812E-02_JPRB,9.0475E-03_JPRB,1.2094E+00_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&4.9654E-02_JPRB,4.3880E-02_JPRB,3.8124E-02_JPRB,3.2363E-02_JPRB,2.7020E-02_JPRB,2.1905E-02_JPRB,&
+&1.6314E-02_JPRB,1.0326E-02_JPRB,1.4400E+00_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&5.2092E-02_JPRB,4.6279E-02_JPRB,4.0415E-02_JPRB,3.4883E-02_JPRB,2.9494E-02_JPRB,2.4010E-02_JPRB,&
+&1.8108E-02_JPRB,1.1750E-02_JPRB,1.7026E+00_JPRB/)
+KAO( :, 1,10,10) = (/&
+&4.5400E-02_JPRB,3.9727E-02_JPRB,3.4202E-02_JPRB,2.8645E-02_JPRB,2.3051E-02_JPRB,1.7520E-02_JPRB,&
+&1.2293E-02_JPRB,7.0668E-03_JPRB,3.4266E+00_JPRB/)
+KAO( :, 2,10,10) = (/&
+&4.6758E-02_JPRB,4.0959E-02_JPRB,3.5395E-02_JPRB,2.9735E-02_JPRB,2.3996E-02_JPRB,1.8576E-02_JPRB,&
+&1.3516E-02_JPRB,7.9973E-03_JPRB,4.1099E+00_JPRB/)
+KAO( :, 3,10,10) = (/&
+&4.8048E-02_JPRB,4.2318E-02_JPRB,3.6627E-02_JPRB,3.0846E-02_JPRB,2.5140E-02_JPRB,2.0176E-02_JPRB,&
+&1.4829E-02_JPRB,9.0540E-03_JPRB,4.9855E+00_JPRB/)
+KAO( :, 4,10,10) = (/&
+&4.9997E-02_JPRB,4.4155E-02_JPRB,3.8326E-02_JPRB,3.2491E-02_JPRB,2.7179E-02_JPRB,2.1979E-02_JPRB,&
+&1.6362E-02_JPRB,1.0317E-02_JPRB,6.0098E+00_JPRB/)
+KAO( :, 5,10,10) = (/&
+&5.2444E-02_JPRB,4.6561E-02_JPRB,4.0609E-02_JPRB,3.4910E-02_JPRB,2.9562E-02_JPRB,2.4235E-02_JPRB,&
+&1.8223E-02_JPRB,1.1743E-02_JPRB,7.1315E+00_JPRB/)
+KAO( :, 1,11,10) = (/&
+&4.5658E-02_JPRB,3.9952E-02_JPRB,3.4443E-02_JPRB,2.8833E-02_JPRB,2.3231E-02_JPRB,1.7803E-02_JPRB,&
+&1.2587E-02_JPRB,7.2875E-03_JPRB,5.3649E+00_JPRB/)
+KAO( :, 2,11,10) = (/&
+&4.6850E-02_JPRB,4.1124E-02_JPRB,3.5510E-02_JPRB,2.9860E-02_JPRB,2.4205E-02_JPRB,1.8972E-02_JPRB,&
+&1.3852E-02_JPRB,8.2974E-03_JPRB,6.4734E+00_JPRB/)
+KAO( :, 3,11,10) = (/&
+&4.8321E-02_JPRB,4.2589E-02_JPRB,3.6878E-02_JPRB,3.1119E-02_JPRB,2.5570E-02_JPRB,2.0721E-02_JPRB,&
+&1.5183E-02_JPRB,9.4279E-03_JPRB,7.8016E+00_JPRB/)
+KAO( :, 4,11,10) = (/&
+&5.0607E-02_JPRB,4.4776E-02_JPRB,3.8924E-02_JPRB,3.3081E-02_JPRB,2.7944E-02_JPRB,2.2646E-02_JPRB,&
+&1.6967E-02_JPRB,1.0786E-02_JPRB,9.3814E+00_JPRB/)
+KAO( :, 5,11,10) = (/&
+&5.3189E-02_JPRB,4.7267E-02_JPRB,4.1301E-02_JPRB,3.5698E-02_JPRB,3.0480E-02_JPRB,2.5061E-02_JPRB,&
+&1.9030E-02_JPRB,1.2260E-02_JPRB,1.1143E+01_JPRB/)
+KAO( :, 1,12,10) = (/&
+&4.4854E-02_JPRB,3.9248E-02_JPRB,3.3879E-02_JPRB,2.8362E-02_JPRB,2.2914E-02_JPRB,1.7730E-02_JPRB,&
+&1.2612E-02_JPRB,7.3730E-03_JPRB,6.1785E+00_JPRB/)
+KAO( :, 2,12,10) = (/&
+&4.6033E-02_JPRB,4.0478E-02_JPRB,3.4947E-02_JPRB,2.9376E-02_JPRB,2.4012E-02_JPRB,1.9043E-02_JPRB,&
+&1.3870E-02_JPRB,8.4065E-03_JPRB,7.5551E+00_JPRB/)
+KAO( :, 3,12,10) = (/&
+&4.7929E-02_JPRB,4.2284E-02_JPRB,3.6631E-02_JPRB,3.0973E-02_JPRB,2.5841E-02_JPRB,2.0835E-02_JPRB,&
+&1.5374E-02_JPRB,9.6454E-03_JPRB,9.2004E+00_JPRB/)
+KAO( :, 4,12,10) = (/&
+&5.0374E-02_JPRB,4.4657E-02_JPRB,3.8857E-02_JPRB,3.3248E-02_JPRB,2.8288E-02_JPRB,2.3006E-02_JPRB,&
+&1.7300E-02_JPRB,1.1060E-02_JPRB,1.0995E+01_JPRB/)
+KAO( :, 5,12,10) = (/&
+&5.3127E-02_JPRB,4.7293E-02_JPRB,4.1498E-02_JPRB,3.6136E-02_JPRB,3.1085E-02_JPRB,2.5531E-02_JPRB,&
+&1.9582E-02_JPRB,1.2642E-02_JPRB,1.3019E+01_JPRB/)
+KAO( :, 1,13,10) = (/&
+&4.3325E-02_JPRB,3.7930E-02_JPRB,3.2755E-02_JPRB,2.7447E-02_JPRB,2.2319E-02_JPRB,1.7411E-02_JPRB,&
+&1.2453E-02_JPRB,7.3368E-03_JPRB,5.8866E+00_JPRB/)
+KAO( :, 2,13,10) = (/&
+&4.4885E-02_JPRB,3.9512E-02_JPRB,3.4133E-02_JPRB,2.8720E-02_JPRB,2.3711E-02_JPRB,1.8875E-02_JPRB,&
+&1.3756E-02_JPRB,8.3802E-03_JPRB,7.1313E+00_JPRB/)
+KAO( :, 3,13,10) = (/&
+&4.7105E-02_JPRB,4.1602E-02_JPRB,3.6075E-02_JPRB,3.0646E-02_JPRB,2.5891E-02_JPRB,2.0741E-02_JPRB,&
+&1.5481E-02_JPRB,9.7027E-03_JPRB,8.6483E+00_JPRB/)
+KAO( :, 4,13,10) = (/&
+&4.9710E-02_JPRB,4.4134E-02_JPRB,3.8464E-02_JPRB,3.3281E-02_JPRB,2.8408E-02_JPRB,2.3139E-02_JPRB,&
+&1.7501E-02_JPRB,1.1201E-02_JPRB,1.0384E+01_JPRB/)
+KAO( :, 5,13,10) = (/&
+&5.2678E-02_JPRB,4.7001E-02_JPRB,4.1355E-02_JPRB,3.6354E-02_JPRB,3.1421E-02_JPRB,2.5818E-02_JPRB,&
+&1.9874E-02_JPRB,1.2850E-02_JPRB,1.2332E+01_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&3.4006E-02_JPRB,3.0838E-02_JPRB,2.8315E-02_JPRB,2.6031E-02_JPRB,2.3204E-02_JPRB,2.0875E-02_JPRB,&
+&1.7987E-02_JPRB,1.5519E-02_JPRB,2.1659E-02_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&3.8880E-02_JPRB,3.5625E-02_JPRB,3.3192E-02_JPRB,3.0992E-02_JPRB,2.8389E-02_JPRB,2.5986E-02_JPRB,&
+&2.2691E-02_JPRB,2.0442E-02_JPRB,2.7838E-02_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&4.3962E-02_JPRB,4.0825E-02_JPRB,3.8703E-02_JPRB,3.6297E-02_JPRB,3.4511E-02_JPRB,3.1450E-02_JPRB,&
+&2.8328E-02_JPRB,2.6446E-02_JPRB,3.5353E-02_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&4.9311E-02_JPRB,4.6293E-02_JPRB,4.4623E-02_JPRB,4.2521E-02_JPRB,4.0745E-02_JPRB,3.7590E-02_JPRB,&
+&3.5066E-02_JPRB,3.3577E-02_JPRB,4.4098E-02_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&5.4902E-02_JPRB,5.1787E-02_JPRB,5.0538E-02_JPRB,4.9462E-02_JPRB,4.7171E-02_JPRB,4.4663E-02_JPRB,&
+&4.2782E-02_JPRB,4.2346E-02_JPRB,5.4138E-02_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&3.3012E-02_JPRB,2.9524E-02_JPRB,2.6537E-02_JPRB,2.4015E-02_JPRB,2.1124E-02_JPRB,1.8957E-02_JPRB,&
+&1.6213E-02_JPRB,1.4498E-02_JPRB,2.4045E-02_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&3.6932E-02_JPRB,3.3550E-02_JPRB,3.1000E-02_JPRB,2.8534E-02_JPRB,2.6293E-02_JPRB,2.3594E-02_JPRB,&
+&2.0668E-02_JPRB,1.9041E-02_JPRB,3.0483E-02_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&4.1673E-02_JPRB,3.8445E-02_JPRB,3.6326E-02_JPRB,3.3911E-02_JPRB,3.1922E-02_JPRB,2.8763E-02_JPRB,&
+&2.6126E-02_JPRB,2.4581E-02_JPRB,3.8179E-02_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&4.6918E-02_JPRB,4.3776E-02_JPRB,4.1906E-02_JPRB,4.0246E-02_JPRB,3.7729E-02_JPRB,3.4837E-02_JPRB,&
+&3.2578E-02_JPRB,3.1324E-02_JPRB,4.7309E-02_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&5.2471E-02_JPRB,4.9278E-02_JPRB,4.7809E-02_JPRB,4.6827E-02_JPRB,4.4067E-02_JPRB,4.1837E-02_JPRB,&
+&4.0124E-02_JPRB,3.9172E-02_JPRB,5.7813E-02_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&3.4501E-02_JPRB,3.0473E-02_JPRB,2.6575E-02_JPRB,2.2929E-02_JPRB,1.9181E-02_JPRB,1.6191E-02_JPRB,&
+&1.4206E-02_JPRB,1.2625E-02_JPRB,3.1974E-02_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&3.6715E-02_JPRB,3.2658E-02_JPRB,2.9031E-02_JPRB,2.5829E-02_JPRB,2.3118E-02_JPRB,2.0224E-02_JPRB,&
+&1.8346E-02_JPRB,1.6857E-02_JPRB,4.0926E-02_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&3.9788E-02_JPRB,3.6029E-02_JPRB,3.3165E-02_JPRB,3.0553E-02_JPRB,2.7991E-02_JPRB,2.5038E-02_JPRB,&
+&2.3354E-02_JPRB,2.2060E-02_JPRB,5.0503E-02_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&4.4214E-02_JPRB,4.0649E-02_JPRB,3.8329E-02_JPRB,3.6284E-02_JPRB,3.3473E-02_JPRB,3.0774E-02_JPRB,&
+&2.9336E-02_JPRB,2.8146E-02_JPRB,6.1109E-02_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&4.9685E-02_JPRB,4.6100E-02_JPRB,4.4117E-02_JPRB,4.2257E-02_JPRB,3.9617E-02_JPRB,3.7525E-02_JPRB,&
+&3.6458E-02_JPRB,3.5132E-02_JPRB,7.3052E-02_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&3.7701E-02_JPRB,3.3183E-02_JPRB,2.8775E-02_JPRB,2.4369E-02_JPRB,1.9949E-02_JPRB,1.5608E-02_JPRB,&
+&1.2337E-02_JPRB,1.0909E-02_JPRB,4.5234E-02_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&3.9570E-02_JPRB,3.4927E-02_JPRB,3.0377E-02_JPRB,2.5987E-02_JPRB,2.1638E-02_JPRB,1.7716E-02_JPRB,&
+&1.5957E-02_JPRB,1.4485E-02_JPRB,5.8101E-02_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&4.1487E-02_JPRB,3.6886E-02_JPRB,3.2552E-02_JPRB,2.8478E-02_JPRB,2.4613E-02_JPRB,2.1797E-02_JPRB,&
+&2.0639E-02_JPRB,1.9138E-02_JPRB,7.3443E-02_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&4.4074E-02_JPRB,3.9637E-02_JPRB,3.5709E-02_JPRB,3.2584E-02_JPRB,2.9098E-02_JPRB,2.7106E-02_JPRB,&
+&2.6271E-02_JPRB,2.4880E-02_JPRB,9.0496E-02_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&4.7920E-02_JPRB,4.3761E-02_JPRB,4.0716E-02_JPRB,3.7902E-02_JPRB,3.4829E-02_JPRB,3.3417E-02_JPRB,&
+&3.2862E-02_JPRB,3.1333E-02_JPRB,1.0813E-01_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&4.1870E-02_JPRB,3.6784E-02_JPRB,3.1817E-02_JPRB,2.6817E-02_JPRB,2.1907E-02_JPRB,1.6884E-02_JPRB,&
+&1.2273E-02_JPRB,9.3968E-03_JPRB,6.4840E-02_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&4.3297E-02_JPRB,3.8168E-02_JPRB,3.3137E-02_JPRB,2.8168E-02_JPRB,2.3151E-02_JPRB,1.8216E-02_JPRB,&
+&1.4106E-02_JPRB,1.2594E-02_JPRB,8.4416E-02_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&4.5197E-02_JPRB,3.9955E-02_JPRB,3.4866E-02_JPRB,2.9774E-02_JPRB,2.4780E-02_JPRB,2.0210E-02_JPRB,&
+&1.7877E-02_JPRB,1.6653E-02_JPRB,1.0767E-01_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&4.7208E-02_JPRB,4.1906E-02_JPRB,3.6778E-02_JPRB,3.1900E-02_JPRB,2.6959E-02_JPRB,2.4148E-02_JPRB,&
+&2.3054E-02_JPRB,2.1659E-02_JPRB,1.3362E-01_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&4.9723E-02_JPRB,4.4415E-02_JPRB,3.9606E-02_JPRB,3.5130E-02_JPRB,3.1176E-02_JPRB,2.9987E-02_JPRB,&
+&2.9188E-02_JPRB,2.7574E-02_JPRB,1.6267E-01_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&4.6177E-02_JPRB,4.0428E-02_JPRB,3.5000E-02_JPRB,2.9479E-02_JPRB,2.3910E-02_JPRB,1.8380E-02_JPRB,&
+&1.3182E-02_JPRB,8.0681E-03_JPRB,9.4271E-02_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&4.7848E-02_JPRB,4.2133E-02_JPRB,3.6528E-02_JPRB,3.0847E-02_JPRB,2.5231E-02_JPRB,1.9720E-02_JPRB,&
+&1.4391E-02_JPRB,1.0657E-02_JPRB,1.2169E-01_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&4.9573E-02_JPRB,4.3747E-02_JPRB,3.7998E-02_JPRB,3.2369E-02_JPRB,2.6844E-02_JPRB,2.1245E-02_JPRB,&
+&1.6159E-02_JPRB,1.4369E-02_JPRB,1.5614E-01_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&5.1449E-02_JPRB,4.5620E-02_JPRB,3.9881E-02_JPRB,3.4359E-02_JPRB,2.8492E-02_JPRB,2.3216E-02_JPRB,&
+&1.9980E-02_JPRB,1.8809E-02_JPRB,1.9622E-01_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&5.3758E-02_JPRB,4.7819E-02_JPRB,4.2046E-02_JPRB,3.6553E-02_JPRB,3.0747E-02_JPRB,2.6899E-02_JPRB,&
+&2.5355E-02_JPRB,2.3973E-02_JPRB,2.4061E-01_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&5.0539E-02_JPRB,4.4226E-02_JPRB,3.8237E-02_JPRB,3.2119E-02_JPRB,2.5955E-02_JPRB,1.9850E-02_JPRB,&
+&1.4014E-02_JPRB,8.2656E-03_JPRB,1.5715E-01_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&5.2213E-02_JPRB,4.5893E-02_JPRB,3.9703E-02_JPRB,3.3446E-02_JPRB,2.7259E-02_JPRB,2.1129E-02_JPRB,&
+&1.5451E-02_JPRB,9.4123E-03_JPRB,1.9172E-01_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&5.3964E-02_JPRB,4.7586E-02_JPRB,4.1300E-02_JPRB,3.5018E-02_JPRB,2.8812E-02_JPRB,2.2874E-02_JPRB,&
+&1.6862E-02_JPRB,1.2078E-02_JPRB,2.4474E-01_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&5.6281E-02_JPRB,4.9820E-02_JPRB,4.3435E-02_JPRB,3.7102E-02_JPRB,3.0863E-02_JPRB,2.4675E-02_JPRB,&
+&1.8760E-02_JPRB,1.6116E-02_JPRB,3.1097E-01_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&5.8608E-02_JPRB,5.2097E-02_JPRB,4.5621E-02_JPRB,3.9415E-02_JPRB,3.3038E-02_JPRB,2.6921E-02_JPRB,&
+&2.2270E-02_JPRB,2.0802E-02_JPRB,3.8459E-01_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&5.4836E-02_JPRB,4.7985E-02_JPRB,4.1396E-02_JPRB,3.4685E-02_JPRB,2.8011E-02_JPRB,2.1239E-02_JPRB,&
+&1.4808E-02_JPRB,8.7162E-03_JPRB,3.2201E-01_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&5.6598E-02_JPRB,4.9598E-02_JPRB,4.2901E-02_JPRB,3.6120E-02_JPRB,2.9254E-02_JPRB,2.2462E-02_JPRB,&
+&1.6430E-02_JPRB,9.7013E-03_JPRB,3.8537E-01_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&5.8383E-02_JPRB,5.1431E-02_JPRB,4.4592E-02_JPRB,3.7658E-02_JPRB,3.0762E-02_JPRB,2.4304E-02_JPRB,&
+&1.8006E-02_JPRB,1.1047E-02_JPRB,4.7230E-01_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&6.0542E-02_JPRB,5.3465E-02_JPRB,4.6470E-02_JPRB,3.9515E-02_JPRB,3.2802E-02_JPRB,2.6370E-02_JPRB,&
+&1.9678E-02_JPRB,1.3674E-02_JPRB,5.9222E-01_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&6.3504E-02_JPRB,5.6367E-02_JPRB,4.9211E-02_JPRB,4.2376E-02_JPRB,3.5393E-02_JPRB,2.8477E-02_JPRB,&
+&2.1872E-02_JPRB,1.7879E-02_JPRB,7.4060E-01_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&5.8530E-02_JPRB,5.1215E-02_JPRB,4.4050E-02_JPRB,3.6938E-02_JPRB,2.9723E-02_JPRB,2.2521E-02_JPRB,&
+&1.5575E-02_JPRB,8.9613E-03_JPRB,1.2250E+00_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&6.0508E-02_JPRB,5.2947E-02_JPRB,4.5790E-02_JPRB,3.8466E-02_JPRB,3.1050E-02_JPRB,2.3735E-02_JPRB,&
+&1.7082E-02_JPRB,1.0081E-02_JPRB,1.4743E+00_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&6.2412E-02_JPRB,5.4914E-02_JPRB,4.7544E-02_JPRB,4.0031E-02_JPRB,3.2611E-02_JPRB,2.5512E-02_JPRB,&
+&1.8968E-02_JPRB,1.1343E-02_JPRB,1.7744E+00_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&6.4422E-02_JPRB,5.6870E-02_JPRB,4.9390E-02_JPRB,4.1890E-02_JPRB,3.4611E-02_JPRB,2.7684E-02_JPRB,&
+&2.0680E-02_JPRB,1.2948E-02_JPRB,2.1658E+00_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&6.7272E-02_JPRB,5.9620E-02_JPRB,5.1959E-02_JPRB,4.4449E-02_JPRB,3.7070E-02_JPRB,3.0178E-02_JPRB,&
+&2.2884E-02_JPRB,1.5505E-02_JPRB,2.6879E+00_JPRB/)
+KAO( :, 1,10,11) = (/&
+&6.1580E-02_JPRB,5.3887E-02_JPRB,4.6212E-02_JPRB,3.8787E-02_JPRB,3.1170E-02_JPRB,2.3588E-02_JPRB,&
+&1.6242E-02_JPRB,9.1562E-03_JPRB,5.0131E+00_JPRB/)
+KAO( :, 2,10,11) = (/&
+&6.3734E-02_JPRB,5.5768E-02_JPRB,4.8169E-02_JPRB,4.0370E-02_JPRB,3.2604E-02_JPRB,2.4832E-02_JPRB,&
+&1.7635E-02_JPRB,1.0375E-02_JPRB,6.1201E+00_JPRB/)
+KAO( :, 3,10,11) = (/&
+&6.5820E-02_JPRB,5.7831E-02_JPRB,4.9999E-02_JPRB,4.2115E-02_JPRB,3.4203E-02_JPRB,2.6490E-02_JPRB,&
+&1.9622E-02_JPRB,1.1697E-02_JPRB,7.4107E+00_JPRB/)
+KAO( :, 4,10,11) = (/&
+&6.7912E-02_JPRB,5.9913E-02_JPRB,5.1985E-02_JPRB,4.3986E-02_JPRB,3.6001E-02_JPRB,2.8914E-02_JPRB,&
+&2.1590E-02_JPRB,1.3339E-02_JPRB,9.0185E+00_JPRB/)
+KAO( :, 5,10,11) = (/&
+&7.0732E-02_JPRB,6.2601E-02_JPRB,5.4503E-02_JPRB,4.6414E-02_JPRB,3.8865E-02_JPRB,3.1467E-02_JPRB,&
+&2.3923E-02_JPRB,1.5241E-02_JPRB,1.1156E+01_JPRB/)
+KAO( :, 1,11,11) = (/&
+&6.4605E-02_JPRB,5.6532E-02_JPRB,4.8552E-02_JPRB,4.0738E-02_JPRB,3.2744E-02_JPRB,2.4819E-02_JPRB,&
+&1.7263E-02_JPRB,9.7908E-03_JPRB,7.8274E+00_JPRB/)
+KAO( :, 2,11,11) = (/&
+&6.6894E-02_JPRB,5.8534E-02_JPRB,5.0603E-02_JPRB,4.2448E-02_JPRB,3.4262E-02_JPRB,2.6260E-02_JPRB,&
+&1.8818E-02_JPRB,1.1087E-02_JPRB,9.5674E+00_JPRB/)
+KAO( :, 3,11,11) = (/&
+&6.9134E-02_JPRB,6.0821E-02_JPRB,5.2610E-02_JPRB,4.4286E-02_JPRB,3.6011E-02_JPRB,2.8243E-02_JPRB,&
+&2.0923E-02_JPRB,1.2641E-02_JPRB,1.1695E+01_JPRB/)
+KAO( :, 4,11,11) = (/&
+&7.1444E-02_JPRB,6.3062E-02_JPRB,5.4727E-02_JPRB,4.6341E-02_JPRB,3.8163E-02_JPRB,3.0937E-02_JPRB,&
+&2.3046E-02_JPRB,1.4407E-02_JPRB,1.4290E+01_JPRB/)
+KAO( :, 5,11,11) = (/&
+&7.4689E-02_JPRB,6.6247E-02_JPRB,5.7761E-02_JPRB,4.9331E-02_JPRB,4.1557E-02_JPRB,3.3813E-02_JPRB,&
+&2.5726E-02_JPRB,1.6474E-02_JPRB,1.7723E+01_JPRB/)
+KAO( :, 1,12,11) = (/&
+&6.6565E-02_JPRB,5.8241E-02_JPRB,5.0116E-02_JPRB,4.2016E-02_JPRB,3.3802E-02_JPRB,2.5721E-02_JPRB,&
+&1.8057E-02_JPRB,1.0339E-02_JPRB,9.3068E+00_JPRB/)
+KAO( :, 2,12,11) = (/&
+&6.8895E-02_JPRB,6.0321E-02_JPRB,5.2166E-02_JPRB,4.3813E-02_JPRB,3.5352E-02_JPRB,2.7349E-02_JPRB,&
+&1.9762E-02_JPRB,1.1726E-02_JPRB,1.1320E+01_JPRB/)
+KAO( :, 3,12,11) = (/&
+&7.1293E-02_JPRB,6.2788E-02_JPRB,5.4349E-02_JPRB,4.5762E-02_JPRB,3.7291E-02_JPRB,2.9714E-02_JPRB,&
+&2.1861E-02_JPRB,1.3399E-02_JPRB,1.3746E+01_JPRB/)
+KAO( :, 4,12,11) = (/&
+&7.4182E-02_JPRB,6.5550E-02_JPRB,5.6943E-02_JPRB,4.8285E-02_JPRB,4.0149E-02_JPRB,3.2582E-02_JPRB,&
+&2.4300E-02_JPRB,1.5394E-02_JPRB,1.6888E+01_JPRB/)
+KAO( :, 5,12,11) = (/&
+&7.7769E-02_JPRB,6.9096E-02_JPRB,6.0288E-02_JPRB,5.1657E-02_JPRB,4.3787E-02_JPRB,3.5953E-02_JPRB,&
+&2.7241E-02_JPRB,1.7571E-02_JPRB,2.0864E+01_JPRB/)
+KAO( :, 1,13,11) = (/&
+&6.7288E-02_JPRB,5.8877E-02_JPRB,5.0755E-02_JPRB,4.2517E-02_JPRB,3.4247E-02_JPRB,2.6263E-02_JPRB,&
+&1.8588E-02_JPRB,1.0728E-02_JPRB,8.9064E+00_JPRB/)
+KAO( :, 2,13,11) = (/&
+&6.9672E-02_JPRB,6.1086E-02_JPRB,5.2816E-02_JPRB,4.4401E-02_JPRB,3.5953E-02_JPRB,2.8119E-02_JPRB,&
+&2.0390E-02_JPRB,1.2229E-02_JPRB,1.0911E+01_JPRB/)
+KAO( :, 3,13,11) = (/&
+&7.2646E-02_JPRB,6.4043E-02_JPRB,5.5467E-02_JPRB,4.6763E-02_JPRB,3.8350E-02_JPRB,3.0852E-02_JPRB,&
+&2.2586E-02_JPRB,1.3987E-02_JPRB,1.3268E+01_JPRB/)
+KAO( :, 4,13,11) = (/&
+&7.6364E-02_JPRB,6.7563E-02_JPRB,5.8748E-02_JPRB,4.9899E-02_JPRB,4.1863E-02_JPRB,3.3973E-02_JPRB,&
+&2.5440E-02_JPRB,1.6181E-02_JPRB,1.6175E+01_JPRB/)
+KAO( :, 5,13,11) = (/&
+&8.0410E-02_JPRB,7.1534E-02_JPRB,6.2509E-02_JPRB,5.3806E-02_JPRB,4.5873E-02_JPRB,3.7854E-02_JPRB,&
+&2.8649E-02_JPRB,1.8582E-02_JPRB,1.9867E+01_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&4.9841E-02_JPRB,4.4490E-02_JPRB,4.1303E-02_JPRB,3.7661E-02_JPRB,3.4374E-02_JPRB,3.0218E-02_JPRB,&
+&2.6408E-02_JPRB,2.2425E-02_JPRB,3.2278E-02_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&5.7650E-02_JPRB,5.2260E-02_JPRB,4.8821E-02_JPRB,4.5102E-02_JPRB,4.1618E-02_JPRB,3.7433E-02_JPRB,&
+&3.4112E-02_JPRB,2.9968E-02_JPRB,4.1893E-02_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&6.5474E-02_JPRB,6.0019E-02_JPRB,5.6468E-02_JPRB,5.3494E-02_JPRB,4.9266E-02_JPRB,4.6229E-02_JPRB,&
+&4.2427E-02_JPRB,3.9480E-02_JPRB,5.2169E-02_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&7.3266E-02_JPRB,6.7747E-02_JPRB,6.4431E-02_JPRB,6.2152E-02_JPRB,5.8324E-02_JPRB,5.6278E-02_JPRB,&
+&5.1411E-02_JPRB,5.1078E-02_JPRB,6.3958E-02_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&8.0950E-02_JPRB,7.5647E-02_JPRB,7.3090E-02_JPRB,7.0878E-02_JPRB,6.8730E-02_JPRB,6.6425E-02_JPRB,&
+&6.1537E-02_JPRB,6.4721E-02_JPRB,7.7752E-02_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&4.6529E-02_JPRB,4.1918E-02_JPRB,3.8638E-02_JPRB,3.5085E-02_JPRB,3.2117E-02_JPRB,2.7976E-02_JPRB,&
+&2.4660E-02_JPRB,2.0193E-02_JPRB,3.6378E-02_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&5.4059E-02_JPRB,4.9350E-02_JPRB,4.6045E-02_JPRB,4.2538E-02_JPRB,3.9123E-02_JPRB,3.5351E-02_JPRB,&
+&3.1963E-02_JPRB,2.6590E-02_JPRB,4.7334E-02_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&6.1738E-02_JPRB,5.6865E-02_JPRB,5.3592E-02_JPRB,5.0849E-02_JPRB,4.7212E-02_JPRB,4.4241E-02_JPRB,&
+&3.9834E-02_JPRB,3.4654E-02_JPRB,5.9199E-02_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&6.9699E-02_JPRB,6.4653E-02_JPRB,6.1768E-02_JPRB,5.9341E-02_JPRB,5.6731E-02_JPRB,5.3710E-02_JPRB,&
+&4.8897E-02_JPRB,4.4731E-02_JPRB,7.2042E-02_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&7.7745E-02_JPRB,7.2901E-02_JPRB,7.0552E-02_JPRB,6.8743E-02_JPRB,6.7472E-02_JPRB,6.3767E-02_JPRB,&
+&5.9291E-02_JPRB,5.7415E-02_JPRB,8.6627E-02_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&4.2062E-02_JPRB,3.7711E-02_JPRB,3.4334E-02_JPRB,3.0926E-02_JPRB,2.8025E-02_JPRB,2.4558E-02_JPRB,&
+&2.1311E-02_JPRB,1.7634E-02_JPRB,4.9902E-02_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&4.8678E-02_JPRB,4.4324E-02_JPRB,4.1100E-02_JPRB,3.8070E-02_JPRB,3.4742E-02_JPRB,3.1650E-02_JPRB,&
+&2.7890E-02_JPRB,2.3218E-02_JPRB,6.2894E-02_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&5.6167E-02_JPRB,5.1670E-02_JPRB,4.8444E-02_JPRB,4.5977E-02_JPRB,4.2837E-02_JPRB,4.0019E-02_JPRB,&
+&3.5364E-02_JPRB,3.0176E-02_JPRB,7.8591E-02_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&6.3921E-02_JPRB,5.9620E-02_JPRB,5.6596E-02_JPRB,5.4403E-02_JPRB,5.2332E-02_JPRB,4.8849E-02_JPRB,&
+&4.4022E-02_JPRB,3.8881E-02_JPRB,9.6792E-02_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&7.1755E-02_JPRB,6.7802E-02_JPRB,6.5648E-02_JPRB,6.4060E-02_JPRB,6.2628E-02_JPRB,5.8608E-02_JPRB,&
+&5.3986E-02_JPRB,4.9725E-02_JPRB,1.1574E-01_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&4.2323E-02_JPRB,3.7345E-02_JPRB,3.2720E-02_JPRB,2.8218E-02_JPRB,2.4532E-02_JPRB,2.0757E-02_JPRB,&
+&1.8047E-02_JPRB,1.5414E-02_JPRB,7.5075E-02_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&4.5621E-02_JPRB,4.0856E-02_JPRB,3.6741E-02_JPRB,3.3228E-02_JPRB,3.0105E-02_JPRB,2.7246E-02_JPRB,&
+&2.3891E-02_JPRB,2.0542E-02_JPRB,9.4476E-02_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&5.0938E-02_JPRB,4.6389E-02_JPRB,4.2972E-02_JPRB,4.0292E-02_JPRB,3.7820E-02_JPRB,3.4834E-02_JPRB,&
+&3.0651E-02_JPRB,2.6871E-02_JPRB,1.1638E-01_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&5.7835E-02_JPRB,5.3600E-02_JPRB,5.0835E-02_JPRB,4.8668E-02_JPRB,4.6908E-02_JPRB,4.3138E-02_JPRB,&
+&3.8678E-02_JPRB,3.4608E-02_JPRB,1.4036E-01_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&6.5625E-02_JPRB,6.1550E-02_JPRB,5.9598E-02_JPRB,5.8329E-02_JPRB,5.6532E-02_JPRB,5.2486E-02_JPRB,&
+&4.8246E-02_JPRB,4.4046E-02_JPRB,1.6774E-01_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&4.7313E-02_JPRB,4.1507E-02_JPRB,3.5955E-02_JPRB,3.0395E-02_JPRB,2.4915E-02_JPRB,1.9463E-02_JPRB,&
+&1.5471E-02_JPRB,1.3526E-02_JPRB,1.1349E-01_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&4.9244E-02_JPRB,4.3467E-02_JPRB,3.7885E-02_JPRB,3.2452E-02_JPRB,2.7414E-02_JPRB,2.3444E-02_JPRB,&
+&2.0705E-02_JPRB,1.8174E-02_JPRB,1.4301E-01_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&5.1407E-02_JPRB,4.5739E-02_JPRB,4.0584E-02_JPRB,3.6389E-02_JPRB,3.2936E-02_JPRB,2.9965E-02_JPRB,&
+&2.6974E-02_JPRB,2.4069E-02_JPRB,1.7509E-01_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&5.5244E-02_JPRB,5.0142E-02_JPRB,4.5994E-02_JPRB,4.3212E-02_JPRB,4.1091E-02_JPRB,3.7645E-02_JPRB,&
+&3.4454E-02_JPRB,3.1352E-02_JPRB,2.1139E-01_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&6.0988E-02_JPRB,5.6526E-02_JPRB,5.3622E-02_JPRB,5.2392E-02_JPRB,5.0078E-02_JPRB,4.6505E-02_JPRB,&
+&4.3357E-02_JPRB,4.0176E-02_JPRB,2.5233E-01_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&5.3543E-02_JPRB,4.6854E-02_JPRB,4.0556E-02_JPRB,3.4124E-02_JPRB,2.7581E-02_JPRB,2.1205E-02_JPRB,&
+&1.5012E-02_JPRB,1.1854E-02_JPRB,1.6344E-01_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&5.5268E-02_JPRB,4.8609E-02_JPRB,4.2123E-02_JPRB,3.5498E-02_JPRB,2.9110E-02_JPRB,2.2794E-02_JPRB,&
+&1.8116E-02_JPRB,1.5898E-02_JPRB,2.0983E-01_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&5.7133E-02_JPRB,5.0456E-02_JPRB,4.3928E-02_JPRB,3.7527E-02_JPRB,3.1445E-02_JPRB,2.6337E-02_JPRB,&
+&2.3556E-02_JPRB,2.1068E-02_JPRB,2.6329E-01_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&5.9454E-02_JPRB,5.2789E-02_JPRB,4.6413E-02_JPRB,4.0569E-02_JPRB,3.6370E-02_JPRB,3.2588E-02_JPRB,&
+&3.0510E-02_JPRB,2.7765E-02_JPRB,3.2205E-01_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&6.2205E-02_JPRB,5.6007E-02_JPRB,5.0615E-02_JPRB,4.6993E-02_JPRB,4.3715E-02_JPRB,4.0774E-02_JPRB,&
+&3.8896E-02_JPRB,3.6103E-02_JPRB,3.8619E-01_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&6.0265E-02_JPRB,5.2736E-02_JPRB,4.5532E-02_JPRB,3.8162E-02_JPRB,3.0863E-02_JPRB,2.3507E-02_JPRB,&
+&1.6295E-02_JPRB,1.0412E-02_JPRB,2.4973E-01_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&6.2205E-02_JPRB,5.4530E-02_JPRB,4.7203E-02_JPRB,3.9805E-02_JPRB,3.2362E-02_JPRB,2.4886E-02_JPRB,&
+&1.8121E-02_JPRB,1.3884E-02_JPRB,3.2971E-01_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&6.4226E-02_JPRB,5.6598E-02_JPRB,4.9127E-02_JPRB,4.1578E-02_JPRB,3.4062E-02_JPRB,2.6961E-02_JPRB,&
+&2.1190E-02_JPRB,1.8496E-02_JPRB,4.1960E-01_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&6.6268E-02_JPRB,5.8530E-02_JPRB,5.0921E-02_JPRB,4.3485E-02_JPRB,3.6432E-02_JPRB,3.0158E-02_JPRB,&
+&2.6927E-02_JPRB,2.4386E-02_JPRB,5.2305E-01_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&6.9017E-02_JPRB,6.1350E-02_JPRB,5.3776E-02_JPRB,4.6719E-02_JPRB,4.0414E-02_JPRB,3.6297E-02_JPRB,&
+&3.4763E-02_JPRB,3.1958E-02_JPRB,6.4099E-01_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&6.7351E-02_JPRB,5.8939E-02_JPRB,5.0741E-02_JPRB,4.2559E-02_JPRB,3.4322E-02_JPRB,2.6023E-02_JPRB,&
+&1.7903E-02_JPRB,1.0436E-02_JPRB,4.7669E-01_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&6.9803E-02_JPRB,6.1083E-02_JPRB,5.2877E-02_JPRB,4.4484E-02_JPRB,3.5947E-02_JPRB,2.7535E-02_JPRB,&
+&1.9536E-02_JPRB,1.2383E-02_JPRB,6.1756E-01_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&7.2114E-02_JPRB,6.3433E-02_JPRB,5.4955E-02_JPRB,4.6298E-02_JPRB,3.7783E-02_JPRB,2.9395E-02_JPRB,&
+&2.1671E-02_JPRB,1.6236E-02_JPRB,8.0333E-01_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&7.4179E-02_JPRB,6.5484E-02_JPRB,5.6918E-02_JPRB,4.8333E-02_JPRB,3.9986E-02_JPRB,3.1892E-02_JPRB,&
+&2.4841E-02_JPRB,2.1727E-02_JPRB,1.0238E+00_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&7.6619E-02_JPRB,6.7894E-02_JPRB,5.9259E-02_JPRB,5.0828E-02_JPRB,4.2369E-02_JPRB,3.5339E-02_JPRB,&
+&3.0974E-02_JPRB,2.8579E-02_JPRB,1.2721E+00_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&7.4478E-02_JPRB,6.5171E-02_JPRB,5.5864E-02_JPRB,4.6941E-02_JPRB,3.7748E-02_JPRB,2.8605E-02_JPRB,&
+&1.9435E-02_JPRB,1.1004E-02_JPRB,1.7884E+00_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&7.7257E-02_JPRB,6.7603E-02_JPRB,5.8386E-02_JPRB,4.8944E-02_JPRB,3.9580E-02_JPRB,3.0097E-02_JPRB,&
+&2.0950E-02_JPRB,1.2526E-02_JPRB,2.2521E+00_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&7.9904E-02_JPRB,7.0069E-02_JPRB,6.0638E-02_JPRB,5.1114E-02_JPRB,4.1495E-02_JPRB,3.1843E-02_JPRB,&
+&2.3233E-02_JPRB,1.4537E-02_JPRB,2.9339E+00_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&8.2346E-02_JPRB,7.2597E-02_JPRB,6.3019E-02_JPRB,5.3300E-02_JPRB,4.3544E-02_JPRB,3.4492E-02_JPRB,&
+&2.5780E-02_JPRB,1.8842E-02_JPRB,3.7982E+00_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&8.4921E-02_JPRB,7.5081E-02_JPRB,6.5371E-02_JPRB,5.5672E-02_JPRB,4.6484E-02_JPRB,3.7440E-02_JPRB,&
+&2.9153E-02_JPRB,2.5208E-02_JPRB,4.8104E+00_JPRB/)
+KAO( :, 1,10,12) = (/&
+&8.1560E-02_JPRB,7.1369E-02_JPRB,6.1175E-02_JPRB,5.1264E-02_JPRB,4.1241E-02_JPRB,3.1126E-02_JPRB,&
+&2.1112E-02_JPRB,1.1696E-02_JPRB,7.4468E+00_JPRB/)
+KAO( :, 2,10,12) = (/&
+&8.4440E-02_JPRB,7.3887E-02_JPRB,6.3687E-02_JPRB,5.3392E-02_JPRB,4.3082E-02_JPRB,3.2635E-02_JPRB,&
+&2.2609E-02_JPRB,1.3248E-02_JPRB,9.2981E+00_JPRB/)
+KAO( :, 3,10,12) = (/&
+&8.7510E-02_JPRB,7.6590E-02_JPRB,6.6316E-02_JPRB,5.5795E-02_JPRB,4.5078E-02_JPRB,3.4503E-02_JPRB,&
+&2.4942E-02_JPRB,1.4958E-02_JPRB,1.2082E+01_JPRB/)
+KAO( :, 4,10,12) = (/&
+&9.0511E-02_JPRB,7.9705E-02_JPRB,6.9107E-02_JPRB,5.8258E-02_JPRB,4.7506E-02_JPRB,3.7279E-02_JPRB,&
+&2.7590E-02_JPRB,1.7415E-02_JPRB,1.5900E+01_JPRB/)
+KAO( :, 5,10,12) = (/&
+&9.3419E-02_JPRB,8.2537E-02_JPRB,7.1769E-02_JPRB,6.0958E-02_JPRB,5.0392E-02_JPRB,4.0420E-02_JPRB,&
+&3.0465E-02_JPRB,2.2350E-02_JPRB,2.0480E+01_JPRB/)
+KAO( :, 1,11,12) = (/&
+&8.9464E-02_JPRB,7.8283E-02_JPRB,6.7101E-02_JPRB,5.6285E-02_JPRB,4.5266E-02_JPRB,3.4192E-02_JPRB,&
+&2.3302E-02_JPRB,1.2995E-02_JPRB,1.1790E+01_JPRB/)
+KAO( :, 2,11,12) = (/&
+&9.2590E-02_JPRB,8.1019E-02_JPRB,6.9897E-02_JPRB,5.8591E-02_JPRB,4.7313E-02_JPRB,3.5860E-02_JPRB,&
+&2.5050E-02_JPRB,1.4711E-02_JPRB,1.4906E+01_JPRB/)
+KAO( :, 3,11,12) = (/&
+&9.5857E-02_JPRB,8.3955E-02_JPRB,7.2681E-02_JPRB,6.1172E-02_JPRB,4.9475E-02_JPRB,3.7915E-02_JPRB,&
+&2.7663E-02_JPRB,1.6572E-02_JPRB,1.9642E+01_JPRB/)
+KAO( :, 4,11,12) = (/&
+&9.9442E-02_JPRB,8.7628E-02_JPRB,7.5988E-02_JPRB,6.4098E-02_JPRB,5.2240E-02_JPRB,4.1108E-02_JPRB,&
+&3.0576E-02_JPRB,1.8973E-02_JPRB,2.5991E+01_JPRB/)
+KAO( :, 5,11,12) = (/&
+&1.0289E-01_JPRB,9.0944E-02_JPRB,7.9112E-02_JPRB,6.7235E-02_JPRB,5.5656E-02_JPRB,4.4964E-02_JPRB,&
+&3.3825E-02_JPRB,2.2911E-02_JPRB,3.3545E+01_JPRB/)
+KAO( :, 1,12,12) = (/&
+&9.6584E-02_JPRB,8.4508E-02_JPRB,7.2437E-02_JPRB,6.0815E-02_JPRB,4.8901E-02_JPRB,3.6973E-02_JPRB,&
+&2.5367E-02_JPRB,1.4216E-02_JPRB,1.4049E+01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&9.9962E-02_JPRB,8.7468E-02_JPRB,7.5539E-02_JPRB,6.3320E-02_JPRB,5.1161E-02_JPRB,3.8859E-02_JPRB,&
+&2.7427E-02_JPRB,1.6079E-02_JPRB,1.7978E+01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&1.0340E-01_JPRB,9.0660E-02_JPRB,7.8491E-02_JPRB,6.6122E-02_JPRB,5.3580E-02_JPRB,4.1278E-02_JPRB,&
+&3.0377E-02_JPRB,1.8202E-02_JPRB,2.3758E+01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&1.0749E-01_JPRB,9.4783E-02_JPRB,8.2213E-02_JPRB,6.9419E-02_JPRB,5.6626E-02_JPRB,4.4917E-02_JPRB,&
+&3.3518E-02_JPRB,2.0812E-02_JPRB,3.1380E+01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&1.1220E-01_JPRB,9.9222E-02_JPRB,8.6341E-02_JPRB,7.3393E-02_JPRB,6.0808E-02_JPRB,4.9200E-02_JPRB,&
+&3.7236E-02_JPRB,2.4135E-02_JPRB,4.0595E+01_JPRB/)
+KAO( :, 1,13,12) = (/&
+&1.0300E-01_JPRB,9.0135E-02_JPRB,7.7297E-02_JPRB,6.4939E-02_JPRB,5.2208E-02_JPRB,3.9524E-02_JPRB,&
+&2.7327E-02_JPRB,1.5400E-02_JPRB,1.3848E+01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&1.0667E-01_JPRB,9.3334E-02_JPRB,8.0681E-02_JPRB,6.7642E-02_JPRB,5.4655E-02_JPRB,4.1706E-02_JPRB,&
+&2.9739E-02_JPRB,1.7385E-02_JPRB,1.7658E+01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&1.1046E-01_JPRB,9.6956E-02_JPRB,8.3948E-02_JPRB,7.0727E-02_JPRB,5.7403E-02_JPRB,4.4569E-02_JPRB,&
+&3.2904E-02_JPRB,1.9868E-02_JPRB,2.3136E+01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&1.1527E-01_JPRB,1.0171E-01_JPRB,8.8265E-02_JPRB,7.4632E-02_JPRB,6.1070E-02_JPRB,4.8844E-02_JPRB,&
+&3.6366E-02_JPRB,2.2679E-02_JPRB,3.0331E+01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&1.2126E-01_JPRB,1.0736E-01_JPRB,9.3522E-02_JPRB,7.9617E-02_JPRB,6.6218E-02_JPRB,5.3664E-02_JPRB,&
+&4.0795E-02_JPRB,2.6028E-02_JPRB,3.9050E+01_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&7.7575E-02_JPRB,6.7876E-02_JPRB,6.3410E-02_JPRB,5.7807E-02_JPRB,5.1861E-02_JPRB,4.6380E-02_JPRB,&
+&3.9791E-02_JPRB,3.9685E-02_JPRB,4.9236E-02_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&8.9138E-02_JPRB,7.8170E-02_JPRB,7.4208E-02_JPRB,6.9230E-02_JPRB,6.2955E-02_JPRB,5.7605E-02_JPRB,&
+&5.0411E-02_JPRB,5.4657E-02_JPRB,6.4256E-02_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&1.0111E-01_JPRB,8.9496E-02_JPRB,8.5836E-02_JPRB,8.0803E-02_JPRB,7.5668E-02_JPRB,6.9307E-02_JPRB,&
+&6.4355E-02_JPRB,7.2863E-02_JPRB,8.3997E-02_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&1.1325E-01_JPRB,1.0162E-01_JPRB,9.8222E-02_JPRB,9.3360E-02_JPRB,8.9664E-02_JPRB,8.2030E-02_JPRB,&
+&8.1890E-02_JPRB,9.4421E-02_JPRB,1.0835E-01_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&1.2539E-01_JPRB,1.1433E-01_JPRB,1.1116E-01_JPRB,1.0717E-01_JPRB,1.0371E-01_JPRB,9.7171E-02_JPRB,&
+&1.0295E-01_JPRB,1.1937E-01_JPRB,1.3710E-01_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&7.5084E-02_JPRB,6.5711E-02_JPRB,6.1443E-02_JPRB,5.6215E-02_JPRB,5.0525E-02_JPRB,4.5190E-02_JPRB,&
+&3.8256E-02_JPRB,3.4359E-02_JPRB,5.8705E-02_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&8.7481E-02_JPRB,7.7103E-02_JPRB,7.2673E-02_JPRB,6.7753E-02_JPRB,6.2029E-02_JPRB,5.6624E-02_JPRB,&
+&4.8617E-02_JPRB,4.8264E-02_JPRB,7.3515E-02_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&1.0027E-01_JPRB,8.9526E-02_JPRB,8.4990E-02_JPRB,7.9770E-02_JPRB,7.5196E-02_JPRB,6.8702E-02_JPRB,&
+&6.1742E-02_JPRB,6.5561E-02_JPRB,9.1679E-02_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&1.1299E-01_JPRB,1.0255E-01_JPRB,9.8199E-02_JPRB,9.3168E-02_JPRB,8.9322E-02_JPRB,8.2695E-02_JPRB,&
+&7.7970E-02_JPRB,8.6300E-02_JPRB,1.1329E-01_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&1.2555E-01_JPRB,1.1568E-01_JPRB,1.1171E-01_JPRB,1.0774E-01_JPRB,1.0377E-01_JPRB,9.8889E-02_JPRB,&
+&9.7493E-02_JPRB,1.1062E-01_JPRB,1.3853E-01_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&6.9691E-02_JPRB,6.1107E-02_JPRB,5.6756E-02_JPRB,5.1486E-02_JPRB,4.6192E-02_JPRB,4.1148E-02_JPRB,&
+&3.4753E-02_JPRB,2.8332E-02_JPRB,8.2983E-02_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&8.2227E-02_JPRB,7.2883E-02_JPRB,6.8298E-02_JPRB,6.2912E-02_JPRB,5.7544E-02_JPRB,5.2210E-02_JPRB,&
+&4.4957E-02_JPRB,4.0005E-02_JPRB,1.0478E-01_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&9.4982E-02_JPRB,8.5432E-02_JPRB,8.0995E-02_JPRB,7.5178E-02_JPRB,7.0646E-02_JPRB,6.4384E-02_JPRB,&
+&5.7678E-02_JPRB,5.5116E-02_JPRB,1.2972E-01_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&1.0814E-01_JPRB,9.8743E-02_JPRB,9.4541E-02_JPRB,8.8889E-02_JPRB,8.4938E-02_JPRB,7.8960E-02_JPRB,&
+&7.3010E-02_JPRB,7.4136E-02_JPRB,1.5589E-01_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&1.2147E-01_JPRB,1.1222E-01_JPRB,1.0815E-01_JPRB,1.0392E-01_JPRB,1.0025E-01_JPRB,9.5831E-02_JPRB,&
+&9.0492E-02_JPRB,9.6998E-02_JPRB,1.8572E-01_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&6.2565E-02_JPRB,5.4985E-02_JPRB,5.1005E-02_JPRB,4.5945E-02_JPRB,4.0688E-02_JPRB,3.6000E-02_JPRB,&
+&3.0283E-02_JPRB,2.3725E-02_JPRB,1.3254E-01_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&7.4730E-02_JPRB,6.6495E-02_JPRB,6.2334E-02_JPRB,5.7038E-02_JPRB,5.1581E-02_JPRB,4.6682E-02_JPRB,&
+&4.0217E-02_JPRB,3.3423E-02_JPRB,1.6553E-01_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&8.7721E-02_JPRB,7.9227E-02_JPRB,7.4754E-02_JPRB,6.9285E-02_JPRB,6.4310E-02_JPRB,5.8891E-02_JPRB,&
+&5.2591E-02_JPRB,4.6205E-02_JPRB,2.0091E-01_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&1.0117E-01_JPRB,9.2830E-02_JPRB,8.8248E-02_JPRB,8.2981E-02_JPRB,7.8335E-02_JPRB,7.3405E-02_JPRB,&
+&6.7339E-02_JPRB,6.2337E-02_JPRB,2.4019E-01_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&1.1481E-01_JPRB,1.0652E-01_JPRB,1.0206E-01_JPRB,9.8001E-02_JPRB,9.4065E-02_JPRB,9.0188E-02_JPRB,&
+&8.3658E-02_JPRB,8.2259E-02_JPRB,2.8323E-01_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&5.8407E-02_JPRB,5.1108E-02_JPRB,4.6239E-02_JPRB,4.0778E-02_JPRB,3.5382E-02_JPRB,3.0729E-02_JPRB,&
+&2.5929E-02_JPRB,2.0262E-02_JPRB,2.0976E-01_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&6.7590E-02_JPRB,6.0046E-02_JPRB,5.5590E-02_JPRB,5.0588E-02_JPRB,4.5609E-02_JPRB,4.0658E-02_JPRB,&
+&3.5218E-02_JPRB,2.8718E-02_JPRB,2.6203E-01_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&7.9667E-02_JPRB,7.2301E-02_JPRB,6.7704E-02_JPRB,6.2413E-02_JPRB,5.7716E-02_JPRB,5.2470E-02_JPRB,&
+&4.6833E-02_JPRB,3.9205E-02_JPRB,3.2020E-01_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&9.2812E-02_JPRB,8.5546E-02_JPRB,8.0951E-02_JPRB,7.5755E-02_JPRB,7.1407E-02_JPRB,6.6676E-02_JPRB,&
+&6.0889E-02_JPRB,5.2582E-02_JPRB,3.8339E-01_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&1.0648E-01_JPRB,9.9221E-02_JPRB,9.4821E-02_JPRB,9.0576E-02_JPRB,8.7197E-02_JPRB,8.3294E-02_JPRB,&
+&7.6479E-02_JPRB,6.9420E-02_JPRB,4.4984E-01_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&6.1074E-02_JPRB,5.3442E-02_JPRB,4.6642E-02_JPRB,3.9682E-02_JPRB,3.3065E-02_JPRB,2.6709E-02_JPRB,&
+&2.1402E-02_JPRB,1.7316E-02_JPRB,3.1217E-01_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&6.6102E-02_JPRB,5.8128E-02_JPRB,5.1965E-02_JPRB,4.5770E-02_JPRB,3.9615E-02_JPRB,3.4605E-02_JPRB,&
+&2.9773E-02_JPRB,2.4794E-02_JPRB,3.9753E-01_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&7.3850E-02_JPRB,6.6350E-02_JPRB,6.0820E-02_JPRB,5.4981E-02_JPRB,5.0172E-02_JPRB,4.5675E-02_JPRB,&
+&4.0524E-02_JPRB,3.4061E-02_JPRB,4.9206E-01_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&8.4087E-02_JPRB,7.7167E-02_JPRB,7.2506E-02_JPRB,6.7577E-02_JPRB,6.3361E-02_JPRB,5.9142E-02_JPRB,&
+&5.3549E-02_JPRB,4.5331E-02_JPRB,5.9295E-01_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&9.7016E-02_JPRB,9.0406E-02_JPRB,8.6048E-02_JPRB,8.1976E-02_JPRB,7.8673E-02_JPRB,7.5050E-02_JPRB,&
+&6.8277E-02_JPRB,5.9321E-02_JPRB,7.0097E-01_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&6.9484E-02_JPRB,6.0801E-02_JPRB,5.2496E-02_JPRB,4.4095E-02_JPRB,3.5736E-02_JPRB,2.7213E-02_JPRB,&
+&1.9462E-02_JPRB,1.5131E-02_JPRB,4.9666E-01_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&7.2482E-02_JPRB,6.3426E-02_JPRB,5.5184E-02_JPRB,4.6899E-02_JPRB,3.8506E-02_JPRB,3.1147E-02_JPRB,&
+&2.5118E-02_JPRB,2.1656E-02_JPRB,6.3678E-01_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&7.6126E-02_JPRB,6.7402E-02_JPRB,5.9699E-02_JPRB,5.1994E-02_JPRB,4.4998E-02_JPRB,3.9088E-02_JPRB,&
+&3.4888E-02_JPRB,3.0019E-02_JPRB,7.9664E-01_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&8.2337E-02_JPRB,7.4163E-02_JPRB,6.7469E-02_JPRB,6.0768E-02_JPRB,5.5760E-02_JPRB,5.1620E-02_JPRB,&
+&4.6705E-02_JPRB,4.0344E-02_JPRB,9.7480E-01_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&9.1160E-02_JPRB,8.3680E-02_JPRB,7.7975E-02_JPRB,7.3495E-02_JPRB,7.0289E-02_JPRB,6.6562E-02_JPRB,&
+&6.0431E-02_JPRB,5.2966E-02_JPRB,1.1667E+00_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&7.9875E-02_JPRB,6.9892E-02_JPRB,5.9964E-02_JPRB,5.0404E-02_JPRB,4.0546E-02_JPRB,3.0791E-02_JPRB,&
+&2.0999E-02_JPRB,1.3352E-02_JPRB,9.4134E-01_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&8.2831E-02_JPRB,7.2481E-02_JPRB,6.2676E-02_JPRB,5.2633E-02_JPRB,4.2647E-02_JPRB,3.2676E-02_JPRB,&
+&2.3318E-02_JPRB,1.9244E-02_JPRB,1.2413E+00_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&8.5814E-02_JPRB,7.5310E-02_JPRB,6.5363E-02_JPRB,5.5397E-02_JPRB,4.5622E-02_JPRB,3.6515E-02_JPRB,&
+&3.0395E-02_JPRB,2.6861E-02_JPRB,1.5851E+00_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&8.9328E-02_JPRB,7.9178E-02_JPRB,6.9765E-02_JPRB,6.0251E-02_JPRB,5.1815E-02_JPRB,4.5308E-02_JPRB,&
+&4.1250E-02_JPRB,3.6343E-02_JPRB,1.9653E+00_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&9.4353E-02_JPRB,8.4864E-02_JPRB,7.6567E-02_JPRB,6.8745E-02_JPRB,6.3044E-02_JPRB,5.8949E-02_JPRB,&
+&5.4004E-02_JPRB,4.8133E-02_JPRB,2.3851E+00_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&9.1060E-02_JPRB,7.9678E-02_JPRB,6.8298E-02_JPRB,5.7272E-02_JPRB,4.6070E-02_JPRB,3.4830E-02_JPRB,&
+&2.3532E-02_JPRB,1.3075E-02_JPRB,3.3036E+00_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&9.4393E-02_JPRB,8.2597E-02_JPRB,7.1203E-02_JPRB,5.9719E-02_JPRB,4.8226E-02_JPRB,3.6550E-02_JPRB,&
+&2.5153E-02_JPRB,1.6919E-02_JPRB,4.4974E+00_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&9.7943E-02_JPRB,8.5705E-02_JPRB,7.4242E-02_JPRB,6.2533E-02_JPRB,5.0588E-02_JPRB,3.8901E-02_JPRB,&
+&2.8455E-02_JPRB,2.3917E-02_JPRB,5.8908E+00_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&1.0146E-01_JPRB,8.9335E-02_JPRB,7.7594E-02_JPRB,6.5536E-02_JPRB,5.3840E-02_JPRB,4.3166E-02_JPRB,&
+&3.6140E-02_JPRB,3.2576E-02_JPRB,7.5007E+00_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&1.0475E-01_JPRB,9.2703E-02_JPRB,8.1242E-02_JPRB,7.0200E-02_JPRB,6.0029E-02_JPRB,5.2409E-02_JPRB,&
+&4.7785E-02_JPRB,4.3561E-02_JPRB,9.3123E+00_JPRB/)
+KAO( :, 1,10,13) = (/&
+&1.0323E-01_JPRB,9.0321E-02_JPRB,7.7420E-02_JPRB,6.4606E-02_JPRB,5.2109E-02_JPRB,3.9304E-02_JPRB,&
+&2.6545E-02_JPRB,1.4340E-02_JPRB,1.3176E+01_JPRB/)
+KAO( :, 2,10,13) = (/&
+&1.0726E-01_JPRB,9.3851E-02_JPRB,8.0568E-02_JPRB,6.7728E-02_JPRB,5.4502E-02_JPRB,4.1373E-02_JPRB,&
+&2.8209E-02_JPRB,1.6426E-02_JPRB,1.8337E+01_JPRB/)
+KAO( :, 3,10,13) = (/&
+&1.1119E-01_JPRB,9.7297E-02_JPRB,8.4158E-02_JPRB,7.0666E-02_JPRB,5.7175E-02_JPRB,4.3645E-02_JPRB,&
+&3.0420E-02_JPRB,2.1518E-02_JPRB,2.4733E+01_JPRB/)
+KAO( :, 4,10,13) = (/&
+&1.1524E-01_JPRB,1.0114E-01_JPRB,8.7553E-02_JPRB,7.3838E-02_JPRB,6.0042E-02_JPRB,4.6213E-02_JPRB,&
+&3.5024E-02_JPRB,2.9502E-02_JPRB,3.2293E+01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&1.1918E-01_JPRB,1.0517E-01_JPRB,9.1457E-02_JPRB,7.7569E-02_JPRB,6.3670E-02_JPRB,5.1602E-02_JPRB,&
+&4.3593E-02_JPRB,3.9624E-02_JPRB,4.0987E+01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&1.1809E-01_JPRB,1.0333E-01_JPRB,8.8567E-02_JPRB,7.3956E-02_JPRB,5.9648E-02_JPRB,4.4991E-02_JPRB,&
+&3.0394E-02_JPRB,1.6520E-02_JPRB,2.1329E+01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&1.2259E-01_JPRB,1.0727E-01_JPRB,9.2136E-02_JPRB,7.7442E-02_JPRB,6.2348E-02_JPRB,4.7316E-02_JPRB,&
+&3.2372E-02_JPRB,1.8681E-02_JPRB,3.0195E+01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&1.2699E-01_JPRB,1.1113E-01_JPRB,9.6180E-02_JPRB,8.0804E-02_JPRB,6.5376E-02_JPRB,4.9936E-02_JPRB,&
+&3.5020E-02_JPRB,2.2950E-02_JPRB,4.1235E+01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&1.3128E-01_JPRB,1.1530E-01_JPRB,9.9899E-02_JPRB,8.4291E-02_JPRB,6.8622E-02_JPRB,5.2932E-02_JPRB,&
+&3.9181E-02_JPRB,3.0475E-02_JPRB,5.4497E+01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&1.3614E-01_JPRB,1.2013E-01_JPRB,1.0437E-01_JPRB,8.8367E-02_JPRB,7.2398E-02_JPRB,5.7416E-02_JPRB,&
+&4.6256E-02_JPRB,4.1156E-02_JPRB,6.9986E+01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&1.3386E-01_JPRB,1.1712E-01_JPRB,1.0039E-01_JPRB,8.3885E-02_JPRB,6.7654E-02_JPRB,5.1023E-02_JPRB,&
+&3.4519E-02_JPRB,1.8911E-02_JPRB,2.6006E+01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&1.3877E-01_JPRB,1.2143E-01_JPRB,1.0437E-01_JPRB,8.7721E-02_JPRB,7.0645E-02_JPRB,5.3609E-02_JPRB,&
+&3.6836E-02_JPRB,2.1259E-02_JPRB,3.7252E+01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&1.4375E-01_JPRB,1.2579E-01_JPRB,1.0893E-01_JPRB,9.1548E-02_JPRB,7.4049E-02_JPRB,5.6582E-02_JPRB,&
+&3.9974E-02_JPRB,2.4775E-02_JPRB,5.1456E+01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&1.4854E-01_JPRB,1.3051E-01_JPRB,1.1314E-01_JPRB,9.5475E-02_JPRB,7.7776E-02_JPRB,6.0170E-02_JPRB,&
+&4.4338E-02_JPRB,3.1553E-02_JPRB,6.8626E+01_JPRB/)
+KAO( :, 5,12,13) = (/&
+&1.5381E-01_JPRB,1.3581E-01_JPRB,1.1807E-01_JPRB,1.0009E-01_JPRB,8.2154E-02_JPRB,6.5109E-02_JPRB,&
+&5.0201E-02_JPRB,4.2427E-02_JPRB,8.8644E+01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&1.5013E-01_JPRB,1.3136E-01_JPRB,1.1260E-01_JPRB,9.4157E-02_JPRB,7.5949E-02_JPRB,5.7300E-02_JPRB,&
+&3.8872E-02_JPRB,2.1485E-02_JPRB,2.5822E+01_JPRB/)
+KAO( :, 2,13,13) = (/&
+&1.5573E-01_JPRB,1.3627E-01_JPRB,1.1719E-01_JPRB,9.8539E-02_JPRB,7.9406E-02_JPRB,6.0263E-02_JPRB,&
+&4.1620E-02_JPRB,2.4096E-02_JPRB,3.6956E+01_JPRB/)
+KAO( :, 3,13,13) = (/&
+&1.6146E-01_JPRB,1.4129E-01_JPRB,1.2242E-01_JPRB,1.0291E-01_JPRB,8.3225E-02_JPRB,6.3641E-02_JPRB,&
+&4.5364E-02_JPRB,2.7291E-02_JPRB,5.1399E+01_JPRB/)
+KAO( :, 4,13,13) = (/&
+&1.6709E-01_JPRB,1.4686E-01_JPRB,1.2738E-01_JPRB,1.0746E-01_JPRB,8.7536E-02_JPRB,6.7870E-02_JPRB,&
+&5.0138E-02_JPRB,3.3350E-02_JPRB,6.8906E+01_JPRB/)
+KAO( :, 5,13,13) = (/&
+&1.7380E-01_JPRB,1.5350E-01_JPRB,1.3346E-01_JPRB,1.1314E-01_JPRB,9.2912E-02_JPRB,7.3777E-02_JPRB,&
+&5.5622E-02_JPRB,4.3609E-02_JPRB,8.9452E+01_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&1.2272E-01_JPRB,1.0738E-01_JPRB,9.4283E-02_JPRB,8.6737E-02_JPRB,7.7664E-02_JPRB,7.2045E-02_JPRB,&
+&7.8412E-02_JPRB,9.0417E-02_JPRB,1.0437E-01_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&1.4194E-01_JPRB,1.2421E-01_JPRB,1.1268E-01_JPRB,1.0273E-01_JPRB,9.4698E-02_JPRB,9.3256E-02_JPRB,&
+&1.0748E-01_JPRB,1.2382E-01_JPRB,1.4306E-01_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&1.6121E-01_JPRB,1.4107E-01_JPRB,1.3136E-01_JPRB,1.2076E-01_JPRB,1.1385E-01_JPRB,1.2008E-01_JPRB,&
+&1.4204E-01_JPRB,1.6386E-01_JPRB,1.8913E-01_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&1.8022E-01_JPRB,1.5771E-01_JPRB,1.4978E-01_JPRB,1.4054E-01_JPRB,1.3566E-01_JPRB,1.5231E-01_JPRB,&
+&1.8204E-01_JPRB,2.1017E-01_JPRB,2.4241E-01_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&1.9876E-01_JPRB,1.7399E-01_JPRB,1.6813E-01_JPRB,1.6037E-01_JPRB,1.6177E-01_JPRB,1.8999E-01_JPRB,&
+&2.2725E-01_JPRB,2.6257E-01_JPRB,3.0267E-01_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&1.2729E-01_JPRB,1.1140E-01_JPRB,9.8262E-02_JPRB,9.0117E-02_JPRB,7.9778E-02_JPRB,7.1136E-02_JPRB,&
+&7.1341E-02_JPRB,8.1863E-02_JPRB,9.9580E-02_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&1.4798E-01_JPRB,1.2949E-01_JPRB,1.1804E-01_JPRB,1.0763E-01_JPRB,9.8062E-02_JPRB,9.0609E-02_JPRB,&
+&9.8103E-02_JPRB,1.1375E-01_JPRB,1.3363E-01_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&1.6873E-01_JPRB,1.4766E-01_JPRB,1.3850E-01_JPRB,1.2733E-01_JPRB,1.1689E-01_JPRB,1.1520E-01_JPRB,&
+&1.3107E-01_JPRB,1.5211E-01_JPRB,1.7565E-01_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&1.8958E-01_JPRB,1.6590E-01_JPRB,1.5866E-01_JPRB,1.4880E-01_JPRB,1.3847E-01_JPRB,1.4498E-01_JPRB,&
+&1.6951E-01_JPRB,1.9684E-01_JPRB,2.2617E-01_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&2.1038E-01_JPRB,1.8454E-01_JPRB,1.7933E-01_JPRB,1.7078E-01_JPRB,1.6390E-01_JPRB,1.7978E-01_JPRB,&
+&2.1333E-01_JPRB,2.4781E-01_JPRB,2.8462E-01_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&1.2550E-01_JPRB,1.0981E-01_JPRB,9.6955E-02_JPRB,8.9024E-02_JPRB,7.7880E-02_JPRB,6.7645E-02_JPRB,&
+&6.1403E-02_JPRB,6.7382E-02_JPRB,1.4225E-01_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&1.4763E-01_JPRB,1.2918E-01_JPRB,1.1753E-01_JPRB,1.0765E-01_JPRB,9.6693E-02_JPRB,8.5332E-02_JPRB,&
+&8.4254E-02_JPRB,9.5793E-02_JPRB,1.7778E-01_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&1.7047E-01_JPRB,1.4918E-01_JPRB,1.3933E-01_JPRB,1.2852E-01_JPRB,1.1691E-01_JPRB,1.0756E-01_JPRB,&
+&1.1280E-01_JPRB,1.3060E-01_JPRB,2.1534E-01_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&1.9358E-01_JPRB,1.6939E-01_JPRB,1.6102E-01_JPRB,1.5122E-01_JPRB,1.3831E-01_JPRB,1.3427E-01_JPRB,&
+&1.4739E-01_JPRB,1.7189E-01_JPRB,2.5797E-01_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&2.1660E-01_JPRB,1.9053E-01_JPRB,1.8371E-01_JPRB,1.7470E-01_JPRB,1.6255E-01_JPRB,1.6554E-01_JPRB,&
+&1.8894E-01_JPRB,2.1979E-01_JPRB,3.0718E-01_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&1.2051E-01_JPRB,1.0544E-01_JPRB,9.2670E-02_JPRB,8.4885E-02_JPRB,7.4104E-02_JPRB,6.3445E-02_JPRB,&
+&5.3222E-02_JPRB,5.2652E-02_JPRB,2.4708E-01_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&1.4414E-01_JPRB,1.2613E-01_JPRB,1.1387E-01_JPRB,1.0420E-01_JPRB,9.2996E-02_JPRB,8.0617E-02_JPRB,&
+&7.2382E-02_JPRB,7.7038E-02_JPRB,3.0415E-01_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&1.6863E-01_JPRB,1.4759E-01_JPRB,1.3702E-01_JPRB,1.2578E-01_JPRB,1.1376E-01_JPRB,1.0097E-01_JPRB,&
+&9.6748E-02_JPRB,1.0777E-01_JPRB,3.6725E-01_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&1.9357E-01_JPRB,1.6961E-01_JPRB,1.6032E-01_JPRB,1.4935E-01_JPRB,1.3627E-01_JPRB,1.2523E-01_JPRB,&
+&1.2694E-01_JPRB,1.4559E-01_JPRB,4.3596E-01_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&2.1857E-01_JPRB,1.9291E-01_JPRB,1.8484E-01_JPRB,1.7444E-01_JPRB,1.6154E-01_JPRB,1.5384E-01_JPRB,&
+&1.6473E-01_JPRB,1.9089E-01_JPRB,5.0957E-01_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&1.1387E-01_JPRB,9.9639E-02_JPRB,8.7347E-02_JPRB,7.9247E-02_JPRB,6.8932E-02_JPRB,5.8370E-02_JPRB,&
+&4.7289E-02_JPRB,4.1078E-02_JPRB,4.1374E-01_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&1.3841E-01_JPRB,1.2111E-01_JPRB,1.0901E-01_JPRB,9.8972E-02_JPRB,8.7653E-02_JPRB,7.5350E-02_JPRB,&
+&6.3780E-02_JPRB,6.0994E-02_JPRB,5.1453E-01_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&1.6401E-01_JPRB,1.4350E-01_JPRB,1.3292E-01_JPRB,1.2113E-01_JPRB,1.0884E-01_JPRB,9.5638E-02_JPRB,&
+&8.4952E-02_JPRB,8.8128E-02_JPRB,6.2691E-01_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&1.9052E-01_JPRB,1.6716E-01_JPRB,1.5743E-01_JPRB,1.4548E-01_JPRB,1.3189E-01_JPRB,1.1925E-01_JPRB,&
+&1.1148E-01_JPRB,1.2277E-01_JPRB,7.4875E-01_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&2.1750E-01_JPRB,1.9225E-01_JPRB,1.8333E-01_JPRB,1.7169E-01_JPRB,1.5768E-01_JPRB,1.4619E-01_JPRB,&
+&1.4557E-01_JPRB,1.6521E-01_JPRB,8.7275E-01_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&1.0474E-01_JPRB,9.1641E-02_JPRB,8.0224E-02_JPRB,7.2183E-02_JPRB,6.2228E-02_JPRB,5.2131E-02_JPRB,&
+&4.1492E-02_JPRB,3.2184E-02_JPRB,6.9511E-01_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&1.2944E-01_JPRB,1.1326E-01_JPRB,1.0170E-01_JPRB,9.1896E-02_JPRB,8.0557E-02_JPRB,6.8664E-02_JPRB,&
+&5.6745E-02_JPRB,4.8206E-02_JPRB,8.6732E-01_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&1.5591E-01_JPRB,1.3642E-01_JPRB,1.2581E-01_JPRB,1.1418E-01_JPRB,1.0169E-01_JPRB,8.8193E-02_JPRB,&
+&7.5718E-02_JPRB,7.0944E-02_JPRB,1.0534E+00_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&1.8354E-01_JPRB,1.6133E-01_JPRB,1.5134E-01_JPRB,1.3874E-01_JPRB,1.2518E-01_JPRB,1.1115E-01_JPRB,&
+&9.9229E-02_JPRB,1.0154E-01_JPRB,1.2543E+00_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&2.1175E-01_JPRB,1.8777E-01_JPRB,1.7853E-01_JPRB,1.6545E-01_JPRB,1.5132E-01_JPRB,1.3778E-01_JPRB,&
+&1.2959E-01_JPRB,1.4035E-01_JPRB,1.4668E+00_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&9.8037E-02_JPRB,8.5785E-02_JPRB,7.4031E-02_JPRB,6.5638E-02_JPRB,5.5734E-02_JPRB,4.5971E-02_JPRB,&
+&3.6011E-02_JPRB,2.6144E-02_JPRB,1.2159E+00_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&1.1998E-01_JPRB,1.0498E-01_JPRB,9.3637E-02_JPRB,8.4452E-02_JPRB,7.3349E-02_JPRB,6.1893E-02_JPRB,&
+&4.9919E-02_JPRB,3.9040E-02_JPRB,1.5511E+00_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&1.4686E-01_JPRB,1.2856E-01_JPRB,1.1785E-01_JPRB,1.0669E-01_JPRB,9.3946E-02_JPRB,8.0872E-02_JPRB,&
+&6.7552E-02_JPRB,5.7747E-02_JPRB,1.9129E+00_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&1.7522E-01_JPRB,1.5432E-01_JPRB,1.4422E-01_JPRB,1.3156E-01_JPRB,1.1748E-01_JPRB,1.0312E-01_JPRB,&
+&9.0045E-02_JPRB,8.3407E-02_JPRB,2.2944E+00_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&2.0470E-01_JPRB,1.8180E-01_JPRB,1.7230E-01_JPRB,1.5882E-01_JPRB,1.4368E-01_JPRB,1.2923E-01_JPRB,&
+&1.1721E-01_JPRB,1.1674E-01_JPRB,2.6936E+00_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&9.9268E-02_JPRB,8.6861E-02_JPRB,7.4453E-02_JPRB,6.4036E-02_JPRB,5.3505E-02_JPRB,4.2319E-02_JPRB,&
+&3.1550E-02_JPRB,2.2217E-02_JPRB,2.4996E+00_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&1.1614E-01_JPRB,1.0162E-01_JPRB,8.8779E-02_JPRB,7.8855E-02_JPRB,6.7312E-02_JPRB,5.5689E-02_JPRB,&
+&4.4126E-02_JPRB,3.3034E-02_JPRB,3.2562E+00_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&1.3955E-01_JPRB,1.2210E-01_JPRB,1.1063E-01_JPRB,9.9801E-02_JPRB,8.7158E-02_JPRB,7.3984E-02_JPRB,&
+&6.0483E-02_JPRB,4.8160E-02_JPRB,4.0870E+00_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&1.6821E-01_JPRB,1.4816E-01_JPRB,1.3755E-01_JPRB,1.2480E-01_JPRB,1.1087E-01_JPRB,9.5535E-02_JPRB,&
+&8.1708E-02_JPRB,6.9310E-02_JPRB,4.9903E+00_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&1.9964E-01_JPRB,1.7735E-01_JPRB,1.6653E-01_JPRB,1.5239E-01_JPRB,1.3733E-01_JPRB,1.2121E-01_JPRB,&
+&1.0795E-01_JPRB,9.7500E-02_JPRB,5.9489E+00_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&1.0767E-01_JPRB,9.4219E-02_JPRB,8.0760E-02_JPRB,6.7681E-02_JPRB,5.5573E-02_JPRB,4.2663E-02_JPRB,&
+&3.0129E-02_JPRB,1.9372E-02_JPRB,9.4494E+00_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&1.1878E-01_JPRB,1.0394E-01_JPRB,8.9411E-02_JPRB,7.7688E-02_JPRB,6.4557E-02_JPRB,5.1682E-02_JPRB,&
+&3.8689E-02_JPRB,2.8319E-02_JPRB,1.2605E+01_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&1.3639E-01_JPRB,1.1934E-01_JPRB,1.0569E-01_JPRB,9.3279E-02_JPRB,7.9895E-02_JPRB,6.6582E-02_JPRB,&
+&5.3130E-02_JPRB,4.1437E-02_JPRB,1.6195E+01_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&1.6051E-01_JPRB,1.4083E-01_JPRB,1.2883E-01_JPRB,1.1557E-01_JPRB,1.0198E-01_JPRB,8.7219E-02_JPRB,&
+&7.3054E-02_JPRB,5.9439E-02_JPRB,2.0162E+01_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&1.9047E-01_JPRB,1.6928E-01_JPRB,1.5797E-01_JPRB,1.4317E-01_JPRB,1.2816E-01_JPRB,1.1220E-01_JPRB,&
+&9.8138E-02_JPRB,8.3143E-02_JPRB,2.4370E+01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&1.2399E-01_JPRB,1.0850E-01_JPRB,9.2999E-02_JPRB,7.7504E-02_JPRB,6.2608E-02_JPRB,4.7376E-02_JPRB,&
+&3.2192E-02_JPRB,1.8471E-02_JPRB,3.9887E+01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&1.3044E-01_JPRB,1.1413E-01_JPRB,9.7827E-02_JPRB,8.3086E-02_JPRB,6.7807E-02_JPRB,5.2528E-02_JPRB,&
+&3.7452E-02_JPRB,2.5677E-02_JPRB,5.4647E+01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&1.4288E-01_JPRB,1.2502E-01_JPRB,1.0881E-01_JPRB,9.4032E-02_JPRB,7.8460E-02_JPRB,6.3126E-02_JPRB,&
+&4.8115E-02_JPRB,3.7197E-02_JPRB,7.1742E+01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&1.6124E-01_JPRB,1.4108E-01_JPRB,1.2689E-01_JPRB,1.1135E-01_JPRB,9.5742E-02_JPRB,8.0119E-02_JPRB,&
+&6.6079E-02_JPRB,5.3593E-02_JPRB,9.0502E+01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&1.8553E-01_JPRB,1.6386E-01_JPRB,1.5092E-01_JPRB,1.3528E-01_JPRB,1.1973E-01_JPRB,1.0415E-01_JPRB,&
+&8.9746E-02_JPRB,7.5568E-02_JPRB,1.1085E+02_JPRB/)
+KAO( :, 1,11,14) = (/&
+&1.4634E-01_JPRB,1.2805E-01_JPRB,1.0976E-01_JPRB,9.1467E-02_JPRB,7.3855E-02_JPRB,5.5821E-02_JPRB,&
+&3.7725E-02_JPRB,2.1087E-02_JPRB,6.7956E+01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&1.5280E-01_JPRB,1.3370E-01_JPRB,1.1460E-01_JPRB,9.6711E-02_JPRB,7.8221E-02_JPRB,6.0001E-02_JPRB,&
+&4.1942E-02_JPRB,2.7978E-02_JPRB,9.3212E+01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&1.6241E-01_JPRB,1.4212E-01_JPRB,1.2352E-01_JPRB,1.0575E-01_JPRB,8.7369E-02_JPRB,6.9001E-02_JPRB,&
+&5.1438E-02_JPRB,4.0090E-02_JPRB,1.2204E+02_JPRB/)
+KAO( :, 4,11,14) = (/&
+&1.7773E-01_JPRB,1.5551E-01_JPRB,1.3890E-01_JPRB,1.2079E-01_JPRB,1.0263E-01_JPRB,8.4231E-02_JPRB,&
+&6.9240E-02_JPRB,5.7401E-02_JPRB,1.5432E+02_JPRB/)
+KAO( :, 5,11,14) = (/&
+&1.9855E-01_JPRB,1.7536E-01_JPRB,1.5997E-01_JPRB,1.4235E-01_JPRB,1.2466E-01_JPRB,1.0802E-01_JPRB,&
+&9.3905E-02_JPRB,8.0223E-02_JPRB,1.8971E+02_JPRB/)
+KAO( :, 1,12,14) = (/&
+&1.7212E-01_JPRB,1.5061E-01_JPRB,1.2910E-01_JPRB,1.0758E-01_JPRB,8.6852E-02_JPRB,6.5625E-02_JPRB,&
+&4.4312E-02_JPRB,2.4340E-02_JPRB,8.4903E+01_JPRB/)
+KAO( :, 2,12,14) = (/&
+&1.7934E-01_JPRB,1.5692E-01_JPRB,1.3450E-01_JPRB,1.1330E-01_JPRB,9.1337E-02_JPRB,6.9634E-02_JPRB,&
+&4.7833E-02_JPRB,3.1026E-02_JPRB,1.1639E+02_JPRB/)
+KAO( :, 3,12,14) = (/&
+&1.8728E-01_JPRB,1.6386E-01_JPRB,1.4213E-01_JPRB,1.2054E-01_JPRB,9.8954E-02_JPRB,7.7262E-02_JPRB,&
+&5.6412E-02_JPRB,4.3794E-02_JPRB,1.5321E+02_JPRB/)
+KAO( :, 4,12,14) = (/&
+&2.0028E-01_JPRB,1.7525E-01_JPRB,1.5522E-01_JPRB,1.3365E-01_JPRB,1.1228E-01_JPRB,9.0973E-02_JPRB,&
+&7.3137E-02_JPRB,6.1836E-02_JPRB,1.9487E+02_JPRB/)
+KAO( :, 5,12,14) = (/&
+&2.1815E-01_JPRB,1.9249E-01_JPRB,1.7398E-01_JPRB,1.5323E-01_JPRB,1.3224E-01_JPRB,1.1343E-01_JPRB,&
+&9.8759E-02_JPRB,8.5478E-02_JPRB,2.4055E+02_JPRB/)
+KAO( :, 1,13,14) = (/&
+&2.0214E-01_JPRB,1.7687E-01_JPRB,1.5160E-01_JPRB,1.2634E-01_JPRB,1.0196E-01_JPRB,7.7014E-02_JPRB,&
+&5.1962E-02_JPRB,2.8242E-02_JPRB,8.4112E+01_JPRB/)
+KAO( :, 2,13,14) = (/&
+&2.1011E-01_JPRB,1.8385E-01_JPRB,1.5760E-01_JPRB,1.3272E-01_JPRB,1.0696E-01_JPRB,8.1283E-02_JPRB,&
+&5.5458E-02_JPRB,3.4895E-02_JPRB,1.1624E+02_JPRB/)
+KAO( :, 3,13,14) = (/&
+&2.1853E-01_JPRB,1.9120E-01_JPRB,1.6551E-01_JPRB,1.3968E-01_JPRB,1.1398E-01_JPRB,8.8112E-02_JPRB,&
+&6.3575E-02_JPRB,4.8146E-02_JPRB,1.5368E+02_JPRB/)
+KAO( :, 4,13,14) = (/&
+&2.2961E-01_JPRB,2.0092E-01_JPRB,1.7711E-01_JPRB,1.5169E-01_JPRB,1.2625E-01_JPRB,1.0098E-01_JPRB,&
+&7.9581E-02_JPRB,6.7244E-02_JPRB,1.9645E+02_JPRB/)
+KAO( :, 5,13,14) = (/&
+&2.4584E-01_JPRB,2.1666E-01_JPRB,1.9421E-01_JPRB,1.6994E-01_JPRB,1.4516E-01_JPRB,1.2228E-01_JPRB,&
+&1.0565E-01_JPRB,9.1741E-02_JPRB,2.4440E+02_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&1.6714E-01_JPRB,1.4623E-01_JPRB,1.2535E-01_JPRB,1.1978E-01_JPRB,1.3700E-01_JPRB,1.6925E-01_JPRB,&
+&2.0052E-01_JPRB,2.2511E-01_JPRB,2.6590E-01_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&1.9315E-01_JPRB,1.6902E-01_JPRB,1.4490E-01_JPRB,1.5051E-01_JPRB,1.8304E-01_JPRB,2.2712E-01_JPRB,&
+&2.6888E-01_JPRB,3.0220E-01_JPRB,3.5680E-01_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&2.1967E-01_JPRB,1.9223E-01_JPRB,1.6933E-01_JPRB,1.8733E-01_JPRB,2.3841E-01_JPRB,2.9577E-01_JPRB,&
+&3.5003E-01_JPRB,3.9291E-01_JPRB,4.6433E-01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&2.4620E-01_JPRB,2.1544E-01_JPRB,1.9690E-01_JPRB,2.3005E-01_JPRB,3.0239E-01_JPRB,3.7520E-01_JPRB,&
+&4.4404E-01_JPRB,4.9769E-01_JPRB,5.8881E-01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&2.7258E-01_JPRB,2.3851E-01_JPRB,2.2655E-01_JPRB,2.8238E-01_JPRB,3.7464E-01_JPRB,4.6513E-01_JPRB,&
+&5.5029E-01_JPRB,6.1683E-01_JPRB,7.3011E-01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&1.8366E-01_JPRB,1.6071E-01_JPRB,1.3776E-01_JPRB,1.2787E-01_JPRB,1.3633E-01_JPRB,1.6291E-01_JPRB,&
+&1.9304E-01_JPRB,2.1749E-01_JPRB,2.5915E-01_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&2.1410E-01_JPRB,1.8735E-01_JPRB,1.6059E-01_JPRB,1.5940E-01_JPRB,1.8012E-01_JPRB,2.2284E-01_JPRB,&
+&2.6404E-01_JPRB,2.9719E-01_JPRB,3.5437E-01_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&2.4518E-01_JPRB,2.1455E-01_JPRB,1.8756E-01_JPRB,1.9671E-01_JPRB,2.3732E-01_JPRB,2.9467E-01_JPRB,&
+&3.4914E-01_JPRB,3.9288E-01_JPRB,4.6863E-01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&2.7631E-01_JPRB,2.4179E-01_JPRB,2.1947E-01_JPRB,2.3962E-01_JPRB,3.0475E-01_JPRB,3.7844E-01_JPRB,&
+&4.4844E-01_JPRB,5.0450E-01_JPRB,6.0205E-01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&3.0712E-01_JPRB,2.6878E-01_JPRB,2.5148E-01_JPRB,2.9094E-01_JPRB,3.8157E-01_JPRB,4.7390E-01_JPRB,&
+&5.6159E-01_JPRB,6.3185E-01_JPRB,7.5391E-01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&1.9381E-01_JPRB,1.6957E-01_JPRB,1.4535E-01_JPRB,1.3089E-01_JPRB,1.3034E-01_JPRB,1.4478E-01_JPRB,&
+&1.7182E-01_JPRB,1.9411E-01_JPRB,2.5084E-01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&2.2879E-01_JPRB,2.0020E-01_JPRB,1.7161E-01_JPRB,1.6253E-01_JPRB,1.7117E-01_JPRB,2.0325E-01_JPRB,&
+&2.4118E-01_JPRB,2.7244E-01_JPRB,3.3342E-01_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&2.6449E-01_JPRB,2.3152E-01_JPRB,2.0076E-01_JPRB,1.9976E-01_JPRB,2.2310E-01_JPRB,2.7442E-01_JPRB,&
+&3.2567E-01_JPRB,3.6802E-01_JPRB,4.4181E-01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&3.0062E-01_JPRB,2.6305E-01_JPRB,2.3583E-01_JPRB,2.4242E-01_JPRB,2.8858E-01_JPRB,3.5854E-01_JPRB,&
+&4.2563E-01_JPRB,4.8116E-01_JPRB,5.7642E-01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&3.3647E-01_JPRB,2.9433E-01_JPRB,2.7280E-01_JPRB,2.9278E-01_JPRB,3.6645E-01_JPRB,4.5559E-01_JPRB,&
+&5.4090E-01_JPRB,6.1169E-01_JPRB,7.3212E-01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&1.9999E-01_JPRB,1.7501E-01_JPRB,1.5001E-01_JPRB,1.3105E-01_JPRB,1.2399E-01_JPRB,1.2689E-01_JPRB,&
+&1.4635E-01_JPRB,1.6609E-01_JPRB,3.8961E-01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&2.3934E-01_JPRB,2.0943E-01_JPRB,1.7951E-01_JPRB,1.6550E-01_JPRB,1.6246E-01_JPRB,1.7858E-01_JPRB,&
+&2.1156E-01_JPRB,2.4017E-01_JPRB,4.8945E-01_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&2.7991E-01_JPRB,2.4495E-01_JPRB,2.1142E-01_JPRB,2.0298E-01_JPRB,2.1064E-01_JPRB,2.4602E-01_JPRB,&
+&2.9261E-01_JPRB,3.3237E-01_JPRB,5.9861E-01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&3.2106E-01_JPRB,2.8093E-01_JPRB,2.4927E-01_JPRB,2.4578E-01_JPRB,2.7114E-01_JPRB,3.2797E-01_JPRB,&
+&3.9010E-01_JPRB,4.4342E-01_JPRB,7.1678E-01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&3.6208E-01_JPRB,3.1681E-01_JPRB,2.9211E-01_JPRB,2.9449E-01_JPRB,3.4380E-01_JPRB,4.2351E-01_JPRB,&
+&5.0405E-01_JPRB,5.7325E-01_JPRB,8.4831E-01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&2.0321E-01_JPRB,1.7781E-01_JPRB,1.5241E-01_JPRB,1.3060E-01_JPRB,1.1953E-01_JPRB,1.1366E-01_JPRB,&
+&1.2139E-01_JPRB,1.3841E-01_JPRB,7.6737E-01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&2.4681E-01_JPRB,2.1596E-01_JPRB,1.8512E-01_JPRB,1.6773E-01_JPRB,1.5630E-01_JPRB,1.5939E-01_JPRB,&
+&1.8094E-01_JPRB,2.0654E-01_JPRB,9.3237E-01_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&2.9225E-01_JPRB,2.5571E-01_JPRB,2.2020E-01_JPRB,2.0776E-01_JPRB,2.0115E-01_JPRB,2.1929E-01_JPRB,&
+&2.5668E-01_JPRB,2.9327E-01_JPRB,1.1037E+00_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&3.3924E-01_JPRB,2.9689E-01_JPRB,2.6138E-01_JPRB,2.5151E-01_JPRB,2.5830E-01_JPRB,2.9435E-01_JPRB,&
+&3.4948E-01_JPRB,3.9959E-01_JPRB,1.2806E+00_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&3.8698E-01_JPRB,3.3860E-01_JPRB,3.0762E-01_JPRB,3.0044E-01_JPRB,3.2724E-01_JPRB,3.8517E-01_JPRB,&
+&4.5934E-01_JPRB,5.2570E-01_JPRB,1.4803E+00_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&2.0167E-01_JPRB,1.7647E-01_JPRB,1.5126E-01_JPRB,1.2807E-01_JPRB,1.1544E-01_JPRB,1.0229E-01_JPRB,&
+&9.9864E-02_JPRB,1.1026E-01_JPRB,1.4089E+00_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&2.4970E-01_JPRB,2.1848E-01_JPRB,1.8731E-01_JPRB,1.6569E-01_JPRB,1.5115E-01_JPRB,1.4241E-01_JPRB,&
+&1.4999E-01_JPRB,1.7053E-01_JPRB,1.7402E+00_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&3.0094E-01_JPRB,2.6336E-01_JPRB,2.2581E-01_JPRB,2.1051E-01_JPRB,1.9387E-01_JPRB,1.9632E-01_JPRB,&
+&2.1699E-01_JPRB,2.4938E-01_JPRB,2.0912E+00_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&3.5441E-01_JPRB,3.1006E-01_JPRB,2.6999E-01_JPRB,2.5637E-01_JPRB,2.4732E-01_JPRB,2.6431E-01_JPRB,&
+&3.0280E-01_JPRB,3.4805E-01_JPRB,2.4589E+00_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&4.0878E-01_JPRB,3.5772E-01_JPRB,3.1991E-01_JPRB,3.0644E-01_JPRB,3.1239E-01_JPRB,3.4703E-01_JPRB,&
+&4.0741E-01_JPRB,4.6767E-01_JPRB,2.8357E+00_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&1.9961E-01_JPRB,1.7465E-01_JPRB,1.4970E-01_JPRB,1.2517E-01_JPRB,1.1019E-01_JPRB,9.4432E-02_JPRB,&
+&8.3552E-02_JPRB,8.4867E-02_JPRB,2.6743E+00_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&2.5271E-01_JPRB,2.2112E-01_JPRB,1.8951E-01_JPRB,1.6349E-01_JPRB,1.4808E-01_JPRB,1.3037E-01_JPRB,&
+&1.2620E-01_JPRB,1.3661E-01_JPRB,3.3775E+00_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&3.0993E-01_JPRB,2.7118E-01_JPRB,2.3244E-01_JPRB,2.1005E-01_JPRB,1.9021E-01_JPRB,1.7858E-01_JPRB,&
+&1.8396E-01_JPRB,2.0656E-01_JPRB,4.1391E+00_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&3.7010E-01_JPRB,3.2384E-01_JPRB,2.8021E-01_JPRB,2.6259E-01_JPRB,2.4156E-01_JPRB,2.4022E-01_JPRB,&
+&2.5897E-01_JPRB,2.9714E-01_JPRB,4.9411E+00_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&4.3194E-01_JPRB,3.7799E-01_JPRB,3.3448E-01_JPRB,3.1568E-01_JPRB,3.0414E-01_JPRB,3.1604E-01_JPRB,&
+&3.5629E-01_JPRB,4.0998E-01_JPRB,5.7688E+00_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&1.9933E-01_JPRB,1.7442E-01_JPRB,1.4950E-01_JPRB,1.2458E-01_JPRB,1.0537E-01_JPRB,8.9910E-02_JPRB,&
+&7.2635E-02_JPRB,6.5335E-02_JPRB,6.0216E+00_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&2.5812E-01_JPRB,2.2586E-01_JPRB,1.9358E-01_JPRB,1.6410E-01_JPRB,1.4589E-01_JPRB,1.2373E-01_JPRB,&
+&1.0885E-01_JPRB,1.0727E-01_JPRB,7.7945E+00_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&3.2225E-01_JPRB,2.8198E-01_JPRB,2.4170E-01_JPRB,2.1259E-01_JPRB,1.9127E-01_JPRB,1.6827E-01_JPRB,&
+&1.5878E-01_JPRB,1.6851E-01_JPRB,9.7347E+00_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&3.9033E-01_JPRB,3.4151E-01_JPRB,2.9429E-01_JPRB,2.7000E-01_JPRB,2.4193E-01_JPRB,2.2526E-01_JPRB,&
+&2.2474E-01_JPRB,2.5040E-01_JPRB,1.1796E+01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&4.6081E-01_JPRB,4.0323E-01_JPRB,3.5398E-01_JPRB,3.3209E-01_JPRB,3.0343E-01_JPRB,2.9566E-01_JPRB,&
+&3.1093E-01_JPRB,3.5490E-01_JPRB,1.3934E+01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&1.9412E-01_JPRB,1.6985E-01_JPRB,1.4559E-01_JPRB,1.2132E-01_JPRB,1.0003E-01_JPRB,8.3920E-02_JPRB,&
+&6.4680E-02_JPRB,5.0884E-02_JPRB,2.5202E+01_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&2.5742E-01_JPRB,2.2525E-01_JPRB,1.9306E-01_JPRB,1.6223E-01_JPRB,1.4019E-01_JPRB,1.1848E-01_JPRB,&
+&9.6308E-02_JPRB,8.4787E-02_JPRB,3.3443E+01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&3.2748E-01_JPRB,2.8656E-01_JPRB,2.4562E-01_JPRB,2.1272E-01_JPRB,1.9002E-01_JPRB,1.6032E-01_JPRB,&
+&1.4014E-01_JPRB,1.3516E-01_JPRB,4.2589E+01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&4.0257E-01_JPRB,3.5230E-01_JPRB,3.0305E-01_JPRB,2.7255E-01_JPRB,2.4419E-01_JPRB,2.1398E-01_JPRB,&
+&1.9809E-01_JPRB,2.0651E-01_JPRB,5.2403E+01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&4.8160E-01_JPRB,4.2145E-01_JPRB,3.6810E-01_JPRB,3.4131E-01_JPRB,3.0598E-01_JPRB,2.8022E-01_JPRB,&
+&2.7440E-01_JPRB,3.0100E-01_JPRB,6.2821E+01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&1.9076E-01_JPRB,1.6691E-01_JPRB,1.4306E-01_JPRB,1.1922E-01_JPRB,9.6624E-02_JPRB,7.8836E-02_JPRB,&
+&6.0420E-02_JPRB,4.2402E-02_JPRB,1.1849E+02_JPRB/)
+KAO( :, 2,10,15) = (/&
+&2.5693E-01_JPRB,2.2481E-01_JPRB,1.9273E-01_JPRB,1.6146E-01_JPRB,1.3713E-01_JPRB,1.1570E-01_JPRB,&
+&8.9288E-02_JPRB,7.0550E-02_JPRB,1.6078E+02_JPRB/)
+KAO( :, 3,10,15) = (/&
+&3.3240E-01_JPRB,2.9084E-01_JPRB,2.4929E-01_JPRB,2.1443E-01_JPRB,1.8866E-01_JPRB,1.5859E-01_JPRB,&
+&1.2931E-01_JPRB,1.1318E-01_JPRB,2.0842E+02_JPRB/)
+KAO( :, 4,10,15) = (/&
+&4.1554E-01_JPRB,3.6358E-01_JPRB,3.1223E-01_JPRB,2.7723E-01_JPRB,2.4827E-01_JPRB,2.1112E-01_JPRB,&
+&1.8236E-01_JPRB,1.7494E-01_JPRB,2.6109E+02_JPRB/)
+KAO( :, 5,10,15) = (/&
+&5.0485E-01_JPRB,4.4183E-01_JPRB,3.8382E-01_JPRB,3.4997E-01_JPRB,3.1509E-01_JPRB,2.7563E-01_JPRB,&
+&2.5258E-01_JPRB,2.5852E-01_JPRB,3.1766E+02_JPRB/)
+KAO( :, 1,11,15) = (/&
+&2.1844E-01_JPRB,1.9116E-01_JPRB,1.6385E-01_JPRB,1.3654E-01_JPRB,1.1043E-01_JPRB,8.9314E-02_JPRB,&
+&6.8138E-02_JPRB,4.5935E-02_JPRB,2.2340E+02_JPRB/)
+KAO( :, 2,11,15) = (/&
+&2.8726E-01_JPRB,2.5136E-01_JPRB,2.1545E-01_JPRB,1.8158E-01_JPRB,1.5471E-01_JPRB,1.3017E-01_JPRB,&
+&9.9967E-02_JPRB,7.4771E-02_JPRB,3.0363E+02_JPRB/)
+KAO( :, 3,11,15) = (/&
+&3.7321E-01_JPRB,3.2655E-01_JPRB,2.7990E-01_JPRB,2.4162E-01_JPRB,2.1196E-01_JPRB,1.7932E-01_JPRB,&
+&1.4260E-01_JPRB,1.1849E-01_JPRB,3.9534E+02_JPRB/)
+KAO( :, 4,11,15) = (/&
+&4.6764E-01_JPRB,4.0919E-01_JPRB,3.5259E-01_JPRB,3.1283E-01_JPRB,2.7919E-01_JPRB,2.3760E-01_JPRB,&
+&1.9841E-01_JPRB,1.8073E-01_JPRB,4.9612E+02_JPRB/)
+KAO( :, 5,11,15) = (/&
+&5.6847E-01_JPRB,4.9745E-01_JPRB,4.3470E-01_JPRB,3.9501E-01_JPRB,3.5535E-01_JPRB,3.0691E-01_JPRB,&
+&2.7182E-01_JPRB,2.6544E-01_JPRB,6.0376E+02_JPRB/)
+KAO( :, 1,12,15) = (/&
+&2.5386E-01_JPRB,2.2213E-01_JPRB,1.9039E-01_JPRB,1.5866E-01_JPRB,1.2803E-01_JPRB,1.0260E-01_JPRB,&
+&7.7411E-02_JPRB,5.0505E-02_JPRB,3.1181E+02_JPRB/)
+KAO( :, 2,12,15) = (/&
+&3.2584E-01_JPRB,2.8511E-01_JPRB,2.4435E-01_JPRB,2.0586E-01_JPRB,1.7487E-01_JPRB,1.4640E-01_JPRB,&
+&1.1295E-01_JPRB,8.0206E-02_JPRB,4.2527E+02_JPRB/)
+KAO( :, 3,12,15) = (/&
+&4.2185E-01_JPRB,3.6913E-01_JPRB,3.1659E-01_JPRB,2.7453E-01_JPRB,2.3949E-01_JPRB,2.0235E-01_JPRB,&
+&1.5885E-01_JPRB,1.2527E-01_JPRB,5.5386E+02_JPRB/)
+KAO( :, 4,12,15) = (/&
+&5.2872E-01_JPRB,4.6263E-01_JPRB,4.0035E-01_JPRB,3.5526E-01_JPRB,3.1589E-01_JPRB,2.6854E-01_JPRB,&
+&2.1892E-01_JPRB,1.8866E-01_JPRB,6.9524E+02_JPRB/)
+KAO( :, 5,12,15) = (/&
+&6.4364E-01_JPRB,5.6320E-01_JPRB,4.9357E-01_JPRB,4.4708E-01_JPRB,4.0237E-01_JPRB,3.4474E-01_JPRB,&
+&2.9649E-01_JPRB,2.7537E-01_JPRB,8.4735E+02_JPRB/)
+KAO( :, 1,13,15) = (/&
+&3.0271E-01_JPRB,2.6486E-01_JPRB,2.2703E-01_JPRB,1.8919E-01_JPRB,1.5231E-01_JPRB,1.2084E-01_JPRB,&
+&9.0270E-02_JPRB,5.7320E-02_JPRB,3.4698E+02_JPRB/)
+KAO( :, 2,13,15) = (/&
+&3.8384E-01_JPRB,3.3586E-01_JPRB,2.8793E-01_JPRB,2.4185E-01_JPRB,2.0369E-01_JPRB,1.6894E-01_JPRB,&
+&1.3012E-01_JPRB,8.8518E-02_JPRB,4.7325E+02_JPRB/)
+KAO( :, 3,13,15) = (/&
+&4.9165E-01_JPRB,4.3019E-01_JPRB,3.6920E-01_JPRB,3.1973E-01_JPRB,2.7695E-01_JPRB,2.3380E-01_JPRB,&
+&1.8192E-01_JPRB,1.3513E-01_JPRB,6.1726E+02_JPRB/)
+KAO( :, 4,13,15) = (/&
+&6.1738E-01_JPRB,5.4020E-01_JPRB,4.6750E-01_JPRB,4.1230E-01_JPRB,3.6547E-01_JPRB,3.1024E-01_JPRB,&
+&2.4776E-01_JPRB,2.0059E-01_JPRB,7.7596E+02_JPRB/)
+KAO( :, 5,13,15) = (/&
+&7.5168E-01_JPRB,6.5770E-01_JPRB,5.7644E-01_JPRB,5.1768E-01_JPRB,4.6514E-01_JPRB,3.9851E-01_JPRB,&
+&3.3091E-01_JPRB,2.9046E-01_JPRB,9.4535E+02_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&1.8794E-01_JPRB,1.6446E-01_JPRB,1.4098E-01_JPRB,1.4453E-01_JPRB,1.9112E-01_JPRB,2.3568E-01_JPRB,&
+&2.7559E-01_JPRB,2.9928E-01_JPRB,3.6389E-01_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&2.1699E-01_JPRB,1.8988E-01_JPRB,1.6277E-01_JPRB,1.9700E-01_JPRB,2.6048E-01_JPRB,3.2128E-01_JPRB,&
+&3.7575E-01_JPRB,4.0820E-01_JPRB,4.9613E-01_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&2.4618E-01_JPRB,2.1543E-01_JPRB,1.8468E-01_JPRB,2.5950E-01_JPRB,3.4314E-01_JPRB,4.2321E-01_JPRB,&
+&4.9501E-01_JPRB,5.3795E-01_JPRB,6.5375E-01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&2.7517E-01_JPRB,2.4080E-01_JPRB,2.2265E-01_JPRB,3.3206E-01_JPRB,4.3916E-01_JPRB,5.4174E-01_JPRB,&
+&6.3374E-01_JPRB,6.8883E-01_JPRB,8.3685E-01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&3.0356E-01_JPRB,2.6563E-01_JPRB,2.7796E-01_JPRB,4.1454E-01_JPRB,5.4825E-01_JPRB,6.7630E-01_JPRB,&
+&7.9114E-01_JPRB,8.6022E-01_JPRB,1.0450E+00_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&2.1263E-01_JPRB,1.8604E-01_JPRB,1.5947E-01_JPRB,1.5196E-01_JPRB,2.0093E-01_JPRB,2.4784E-01_JPRB,&
+&2.8986E-01_JPRB,3.1499E-01_JPRB,3.9172E-01_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&2.4750E-01_JPRB,2.1657E-01_JPRB,1.8564E-01_JPRB,2.1030E-01_JPRB,2.7808E-01_JPRB,3.4296E-01_JPRB,&
+&4.0127E-01_JPRB,4.3611E-01_JPRB,5.4225E-01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&2.8278E-01_JPRB,2.4744E-01_JPRB,2.1211E-01_JPRB,2.8057E-01_JPRB,3.7097E-01_JPRB,4.5769E-01_JPRB,&
+&5.3545E-01_JPRB,5.8223E-01_JPRB,7.2368E-01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&3.1792E-01_JPRB,2.7821E-01_JPRB,2.4340E-01_JPRB,3.6301E-01_JPRB,4.8000E-01_JPRB,5.9222E-01_JPRB,&
+&6.9274E-01_JPRB,7.5351E-01_JPRB,9.3616E-01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&3.5252E-01_JPRB,3.0850E-01_JPRB,3.0650E-01_JPRB,4.5727E-01_JPRB,6.0467E-01_JPRB,7.4622E-01_JPRB,&
+&8.7306E-01_JPRB,9.4984E-01_JPRB,1.1794E+00_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&2.3237E-01_JPRB,2.0331E-01_JPRB,1.7427E-01_JPRB,1.4795E-01_JPRB,1.9535E-01_JPRB,2.4099E-01_JPRB,&
+&2.8188E-01_JPRB,3.0650E-01_JPRB,3.8991E-01_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&2.7395E-01_JPRB,2.3972E-01_JPRB,2.0548E-01_JPRB,2.0945E-01_JPRB,2.7700E-01_JPRB,3.4180E-01_JPRB,&
+&3.9994E-01_JPRB,4.3491E-01_JPRB,5.5290E-01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&3.1641E-01_JPRB,2.7688E-01_JPRB,2.3734E-01_JPRB,2.8529E-01_JPRB,3.7722E-01_JPRB,4.6547E-01_JPRB,&
+&5.4473E-01_JPRB,5.9265E-01_JPRB,7.5290E-01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&3.5913E-01_JPRB,3.1425E-01_JPRB,2.6936E-01_JPRB,3.7538E-01_JPRB,4.9654E-01_JPRB,6.1283E-01_JPRB,&
+&7.1724E-01_JPRB,7.8067E-01_JPRB,9.9115E-01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&4.0136E-01_JPRB,3.5124E-01_JPRB,3.2170E-01_JPRB,4.7982E-01_JPRB,6.3476E-01_JPRB,7.8330E-01_JPRB,&
+&9.1698E-01_JPRB,9.9858E-01_JPRB,1.2670E+00_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&2.4989E-01_JPRB,2.1869E-01_JPRB,1.8745E-01_JPRB,1.5621E-01_JPRB,1.8314E-01_JPRB,2.2578E-01_JPRB,&
+&2.6437E-01_JPRB,2.8743E-01_JPRB,4.8014E-01_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&2.9922E-01_JPRB,2.6183E-01_JPRB,2.2443E-01_JPRB,2.0216E-01_JPRB,2.6741E-01_JPRB,3.2989E-01_JPRB,&
+&3.8624E-01_JPRB,4.2053E-01_JPRB,5.7494E-01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&3.5007E-01_JPRB,3.0634E-01_JPRB,2.6259E-01_JPRB,2.8203E-01_JPRB,3.7315E-01_JPRB,4.6045E-01_JPRB,&
+&5.3900E-01_JPRB,5.8709E-01_JPRB,7.5343E-01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&4.0160E-01_JPRB,3.5141E-01_JPRB,3.0118E-01_JPRB,3.7881E-01_JPRB,5.0127E-01_JPRB,6.1841E-01_JPRB,&
+&7.2420E-01_JPRB,7.8857E-01_JPRB,1.0118E+00_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&4.5313E-01_JPRB,3.9646E-01_JPRB,3.4036E-01_JPRB,4.9269E-01_JPRB,6.5192E-01_JPRB,8.0453E-01_JPRB,&
+&9.4219E-01_JPRB,1.0271E+00_JPRB,1.3148E+00_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&2.6693E-01_JPRB,2.3353E-01_JPRB,2.0017E-01_JPRB,1.6678E-01_JPRB,1.6870E-01_JPRB,2.0825E-01_JPRB,&
+&2.4377E-01_JPRB,2.6562E-01_JPRB,1.0097E+00_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&3.2490E-01_JPRB,2.8429E-01_JPRB,2.4362E-01_JPRB,2.0306E-01_JPRB,2.5435E-01_JPRB,3.1387E-01_JPRB,&
+&3.6729E-01_JPRB,4.0072E-01_JPRB,1.2293E+00_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&3.8533E-01_JPRB,3.3720E-01_JPRB,2.8903E-01_JPRB,2.7540E-01_JPRB,3.6433E-01_JPRB,4.4941E-01_JPRB,&
+&5.2674E-01_JPRB,5.7460E-01_JPRB,1.4580E+00_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&4.4720E-01_JPRB,3.9129E-01_JPRB,3.3549E-01_JPRB,3.7808E-01_JPRB,5.0020E-01_JPRB,6.1752E-01_JPRB,&
+&7.2292E-01_JPRB,7.8975E-01_JPRB,1.6925E+00_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&5.0948E-01_JPRB,4.4592E-01_JPRB,3.8223E-01_JPRB,5.0057E-01_JPRB,6.6242E-01_JPRB,8.1818E-01_JPRB,&
+&9.5865E-01_JPRB,1.0467E+00_JPRB,1.9289E+00_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&2.8083E-01_JPRB,2.4573E-01_JPRB,2.1063E-01_JPRB,1.7555E-01_JPRB,1.5015E-01_JPRB,1.8516E-01_JPRB,&
+&2.1690E-01_JPRB,2.3675E-01_JPRB,1.9657E+00_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&3.4835E-01_JPRB,3.0480E-01_JPRB,2.6132E-01_JPRB,2.1777E-01_JPRB,2.3453E-01_JPRB,2.8980E-01_JPRB,&
+&3.3958E-01_JPRB,3.7078E-01_JPRB,2.4391E+00_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&4.1976E-01_JPRB,3.6729E-01_JPRB,3.1483E-01_JPRB,2.6738E-01_JPRB,3.4635E-01_JPRB,4.2784E-01_JPRB,&
+&5.0150E-01_JPRB,5.4802E-01_JPRB,2.9392E+00_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&4.9356E-01_JPRB,4.3188E-01_JPRB,3.7019E-01_JPRB,3.6832E-01_JPRB,4.8722E-01_JPRB,6.0225E-01_JPRB,&
+&7.0615E-01_JPRB,7.7190E-01_JPRB,3.4563E+00_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&5.6851E-01_JPRB,4.9738E-01_JPRB,4.2634E-01_JPRB,4.9804E-01_JPRB,6.5918E-01_JPRB,8.1420E-01_JPRB,&
+&9.5511E-01_JPRB,1.0452E+00_JPRB,3.9808E+00_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&2.9602E-01_JPRB,2.5901E-01_JPRB,2.2201E-01_JPRB,1.8497E-01_JPRB,1.4799E-01_JPRB,1.6095E-01_JPRB,&
+&1.8877E-01_JPRB,2.0662E-01_JPRB,3.9956E+00_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&3.7489E-01_JPRB,3.2803E-01_JPRB,2.8110E-01_JPRB,2.3429E-01_JPRB,2.1216E-01_JPRB,2.6198E-01_JPRB,&
+&3.0739E-01_JPRB,3.3690E-01_JPRB,5.0612E+00_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&4.5934E-01_JPRB,4.0186E-01_JPRB,3.4446E-01_JPRB,2.8709E-01_JPRB,3.2355E-01_JPRB,3.9962E-01_JPRB,&
+&4.6900E-01_JPRB,5.1413E-01_JPRB,6.2014E+00_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&5.4772E-01_JPRB,4.7919E-01_JPRB,4.1082E-01_JPRB,3.5907E-01_JPRB,4.6765E-01_JPRB,5.7781E-01_JPRB,&
+&6.7844E-01_JPRB,7.4475E-01_JPRB,7.3945E+00_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&6.3818E-01_JPRB,5.5843E-01_JPRB,4.7875E-01_JPRB,4.8820E-01_JPRB,6.4638E-01_JPRB,7.9944E-01_JPRB,&
+&9.3819E-01_JPRB,1.0310E+00_JPRB,8.6187E+00_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&3.1643E-01_JPRB,2.7689E-01_JPRB,2.3733E-01_JPRB,1.9778E-01_JPRB,1.5822E-01_JPRB,1.3698E-01_JPRB,&
+&1.6092E-01_JPRB,1.7692E-01_JPRB,9.6744E+00_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&4.0971E-01_JPRB,3.5849E-01_JPRB,3.0728E-01_JPRB,2.5607E-01_JPRB,2.0550E-01_JPRB,2.3311E-01_JPRB,&
+&2.7394E-01_JPRB,3.0140E-01_JPRB,1.2526E+01_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&5.1114E-01_JPRB,4.4727E-01_JPRB,3.8338E-01_JPRB,3.1946E-01_JPRB,2.9762E-01_JPRB,3.6825E-01_JPRB,&
+&4.3294E-01_JPRB,4.7698E-01_JPRB,1.5632E+01_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&6.1845E-01_JPRB,5.4119E-01_JPRB,4.6383E-01_JPRB,3.8657E-01_JPRB,4.4256E-01_JPRB,5.4777E-01_JPRB,&
+&6.4434E-01_JPRB,7.1023E-01_JPRB,1.8915E+01_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&7.2956E-01_JPRB,6.3833E-01_JPRB,5.4715E-01_JPRB,4.8521E-01_JPRB,6.2642E-01_JPRB,7.7483E-01_JPRB,&
+&9.1223E-01_JPRB,1.0061E+00_JPRB,2.2311E+01_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&3.3206E-01_JPRB,2.9059E-01_JPRB,2.4908E-01_JPRB,2.0756E-01_JPRB,1.6605E-01_JPRB,1.2520E-01_JPRB,&
+&1.3332E-01_JPRB,1.4726E-01_JPRB,4.3754E+01_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&4.4050E-01_JPRB,3.8544E-01_JPRB,3.3040E-01_JPRB,2.7529E-01_JPRB,2.2025E-01_JPRB,2.0212E-01_JPRB,&
+&2.3801E-01_JPRB,2.6323E-01_JPRB,5.8016E+01_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&5.6026E-01_JPRB,4.9023E-01_JPRB,4.2020E-01_JPRB,3.5022E-01_JPRB,2.8778E-01_JPRB,3.3184E-01_JPRB,&
+&3.9083E-01_JPRB,4.3264E-01_JPRB,7.3805E+01_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&6.8858E-01_JPRB,6.0253E-01_JPRB,5.1637E-01_JPRB,4.3040E-01_JPRB,4.1206E-01_JPRB,5.0884E-01_JPRB,&
+&5.9967E-01_JPRB,6.6456E-01_JPRB,9.0709E+01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&8.2259E-01_JPRB,7.1975E-01_JPRB,6.1688E-01_JPRB,5.1707E-01_JPRB,5.9606E-01_JPRB,7.3858E-01_JPRB,&
+&8.7057E-01_JPRB,9.6569E-01_JPRB,1.0838E+02_JPRB/)
+KAO( :, 1,10,16) = (/&
+&3.5261E-01_JPRB,3.0855E-01_JPRB,2.6447E-01_JPRB,2.2042E-01_JPRB,1.7636E-01_JPRB,1.3225E-01_JPRB,&
+&1.1302E-01_JPRB,1.2540E-01_JPRB,2.2383E+02_JPRB/)
+KAO( :, 2,10,16) = (/&
+&4.7821E-01_JPRB,4.1843E-01_JPRB,3.5857E-01_JPRB,2.9886E-01_JPRB,2.3906E-01_JPRB,1.8964E-01_JPRB,&
+&2.1098E-01_JPRB,2.3441E-01_JPRB,3.0350E+02_JPRB/)
+KAO( :, 3,10,16) = (/&
+&6.1881E-01_JPRB,5.4145E-01_JPRB,4.6410E-01_JPRB,3.8673E-01_JPRB,3.0946E-01_JPRB,3.0407E-01_JPRB,&
+&3.5878E-01_JPRB,3.9920E-01_JPRB,3.9277E+02_JPRB/)
+KAO( :, 4,10,16) = (/&
+&7.7105E-01_JPRB,6.7484E-01_JPRB,5.7823E-01_JPRB,4.8190E-01_JPRB,4.1230E-01_JPRB,4.7947E-01_JPRB,&
+&5.6602E-01_JPRB,6.3051E-01_JPRB,4.8953E+02_JPRB/)
+KAO( :, 5,10,16) = (/&
+&9.3145E-01_JPRB,8.1502E-01_JPRB,6.9859E-01_JPRB,5.8205E-01_JPRB,5.7779E-01_JPRB,7.1138E-01_JPRB,&
+&8.4040E-01_JPRB,9.3669E-01_JPRB,5.9127E+02_JPRB/)
+KAO( :, 1,11,16) = (/&
+&4.3261E-01_JPRB,3.7853E-01_JPRB,3.2446E-01_JPRB,2.7039E-01_JPRB,2.1632E-01_JPRB,1.6222E-01_JPRB,&
+&1.3099E-01_JPRB,1.4452E-01_JPRB,4.6285E+02_JPRB/)
+KAO( :, 2,11,16) = (/&
+&5.8535E-01_JPRB,5.1218E-01_JPRB,4.3901E-01_JPRB,3.6590E-01_JPRB,2.9265E-01_JPRB,2.2872E-01_JPRB,&
+&2.4101E-01_JPRB,2.6929E-01_JPRB,6.2611E+02_JPRB/)
+KAO( :, 3,11,16) = (/&
+&7.5565E-01_JPRB,6.6141E-01_JPRB,5.6693E-01_JPRB,4.7237E-01_JPRB,3.7786E-01_JPRB,3.5050E-01_JPRB,&
+&4.0844E-01_JPRB,4.5697E-01_JPRB,8.0847E+02_JPRB/)
+KAO( :, 4,11,16) = (/&
+&9.3953E-01_JPRB,8.2209E-01_JPRB,7.0458E-01_JPRB,5.8709E-01_JPRB,4.9467E-01_JPRB,5.4296E-01_JPRB,&
+&6.4241E-01_JPRB,7.1951E-01_JPRB,1.0051E+03_JPRB/)
+KAO( :, 5,11,16) = (/&
+&1.1321E+00_JPRB,9.9048E-01_JPRB,8.4898E-01_JPRB,7.0764E-01_JPRB,6.7182E-01_JPRB,8.0337E-01_JPRB,&
+&9.5077E-01_JPRB,1.0665E+00_JPRB,1.2110E+03_JPRB/)
+KAO( :, 1,12,16) = (/&
+&5.3519E-01_JPRB,4.6832E-01_JPRB,4.0142E-01_JPRB,3.3452E-01_JPRB,2.6763E-01_JPRB,2.0072E-01_JPRB,&
+&1.5467E-01_JPRB,1.6502E-01_JPRB,7.0824E+02_JPRB/)
+KAO( :, 2,12,16) = (/&
+&7.2183E-01_JPRB,6.3160E-01_JPRB,5.4131E-01_JPRB,4.5112E-01_JPRB,3.6090E-01_JPRB,2.7900E-01_JPRB,&
+&2.7245E-01_JPRB,3.0622E-01_JPRB,9.5519E+02_JPRB/)
+KAO( :, 3,12,16) = (/&
+&9.2882E-01_JPRB,8.1286E-01_JPRB,6.9674E-01_JPRB,5.8057E-01_JPRB,4.6450E-01_JPRB,4.1101E-01_JPRB,&
+&4.5999E-01_JPRB,5.1778E-01_JPRB,1.2292E+03_JPRB/)
+KAO( :, 4,12,16) = (/&
+&1.1518E+00_JPRB,1.0078E+00_JPRB,8.6369E-01_JPRB,7.1969E-01_JPRB,5.9900E-01_JPRB,6.1266E-01_JPRB,&
+&7.2069E-01_JPRB,8.1237E-01_JPRB,1.5237E+03_JPRB/)
+KAO( :, 5,12,16) = (/&
+&1.3877E+00_JPRB,1.2141E+00_JPRB,1.0407E+00_JPRB,8.6727E-01_JPRB,7.9163E-01_JPRB,8.9653E-01_JPRB,&
+&1.0630E+00_JPRB,1.1997E+00_JPRB,1.8362E+03_JPRB/)
+KAO( :, 1,13,16) = (/&
+&6.8305E-01_JPRB,5.9769E-01_JPRB,5.1231E-01_JPRB,4.2692E-01_JPRB,3.4152E-01_JPRB,2.5608E-01_JPRB,&
+&1.8801E-01_JPRB,1.8615E-01_JPRB,8.6247E+02_JPRB/)
+KAO( :, 2,13,16) = (/&
+&9.1792E-01_JPRB,8.0318E-01_JPRB,6.8841E-01_JPRB,5.7362E-01_JPRB,4.5889E-01_JPRB,3.5002E-01_JPRB,&
+&3.1177E-01_JPRB,3.4406E-01_JPRB,1.1588E+03_JPRB/)
+KAO( :, 3,13,16) = (/&
+&1.1812E+00_JPRB,1.0334E+00_JPRB,8.8578E-01_JPRB,7.3808E-01_JPRB,5.9053E-01_JPRB,4.9511E-01_JPRB,&
+&5.1116E-01_JPRB,5.7929E-01_JPRB,1.4913E+03_JPRB/)
+KAO( :, 4,13,16) = (/&
+&1.4677E+00_JPRB,1.2842E+00_JPRB,1.1009E+00_JPRB,9.1748E-01_JPRB,7.4504E-01_JPRB,7.0766E-01_JPRB,&
+&7.9819E-01_JPRB,9.0553E-01_JPRB,1.8526E+03_JPRB/)
+KAO( :, 5,13,16) = (/&
+&1.7710E+00_JPRB,1.5496E+00_JPRB,1.3282E+00_JPRB,1.1069E+00_JPRB,9.5682E-01_JPRB,1.0004E+00_JPRB,&
+&1.1734E+00_JPRB,1.3329E+00_JPRB,2.2362E+03_JPRB/)
+
+
+!     ------------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB13_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb14.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb14.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb14.F90	(revision 2160)
@@ -0,0 +1,2037 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB14
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFAO( :) = (/&
+!     From P = 1053.6 mb.
+    &0.18446200_JPRB,0.16795200_JPRB,0.14949700_JPRB,0.12036000_JPRB,&
+    &0.10440100_JPRB,0.09024280_JPRB,0.07435880_JPRB,0.05629380_JPRB,&
+    &0.03825420_JPRB,0.00417276_JPRB,0.00345278_JPRB,0.00272949_JPRB,&
+    &0.00200378_JPRB,0.00127404_JPRB,0.00050721_JPRB,0.00004141_JPRB/)
+
+FRACREFBO( :) = (/&
+!     From P = 0.64 mb.
+    &0.19128500_JPRB,0.16495700_JPRB,0.14146100_JPRB,0.11904500_JPRB,&
+    &0.10350200_JPRB,0.09151190_JPRB,0.07604270_JPRB,0.05806020_JPRB,&
+    &0.03979950_JPRB,0.00423959_JPRB,0.00357439_JPRB,0.00287559_JPRB,&
+    &0.00198860_JPRB,0.00116529_JPRB,0.00043616_JPRB,0.00005987_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&3.5949E-01_JPRB,3.8238E-01_JPRB,4.1007E-01_JPRB,4.4339E-01_JPRB,4.8230E-01_JPRB/)
+KAO( :, 2, 1) = (/&
+&3.0485E-01_JPRB,3.2295E-01_JPRB,3.4552E-01_JPRB,3.7333E-01_JPRB,4.0603E-01_JPRB/)
+KAO( :, 3, 1) = (/&
+&2.5422E-01_JPRB,2.6754E-01_JPRB,2.8483E-01_JPRB,3.0668E-01_JPRB,3.3252E-01_JPRB/)
+KAO( :, 4, 1) = (/&
+&2.1093E-01_JPRB,2.2073E-01_JPRB,2.3378E-01_JPRB,2.5076E-01_JPRB,2.7135E-01_JPRB/)
+KAO( :, 5, 1) = (/&
+&1.7483E-01_JPRB,1.8205E-01_JPRB,1.9194E-01_JPRB,2.0512E-01_JPRB,2.2145E-01_JPRB/)
+KAO( :, 6, 1) = (/&
+&1.4472E-01_JPRB,1.4992E-01_JPRB,1.5732E-01_JPRB,1.6735E-01_JPRB,1.8017E-01_JPRB/)
+KAO( :, 7, 1) = (/&
+&1.1982E-01_JPRB,1.2359E-01_JPRB,1.2898E-01_JPRB,1.3657E-01_JPRB,1.4653E-01_JPRB/)
+KAO( :, 8, 1) = (/&
+&9.9228E-02_JPRB,1.0198E-01_JPRB,1.0592E-01_JPRB,1.1158E-01_JPRB,1.1926E-01_JPRB/)
+KAO( :, 9, 1) = (/&
+&8.2262E-02_JPRB,8.4210E-02_JPRB,8.7109E-02_JPRB,9.1293E-02_JPRB,9.7123E-02_JPRB/)
+KAO( :,10, 1) = (/&
+&6.8209E-02_JPRB,6.9606E-02_JPRB,7.1781E-02_JPRB,7.4983E-02_JPRB,7.9504E-02_JPRB/)
+KAO( :,11, 1) = (/&
+&5.6845E-02_JPRB,5.8087E-02_JPRB,6.0031E-02_JPRB,6.2957E-02_JPRB,6.7037E-02_JPRB/)
+KAO( :,12, 1) = (/&
+&4.7244E-02_JPRB,4.8375E-02_JPRB,5.0140E-02_JPRB,5.2785E-02_JPRB,5.6455E-02_JPRB/)
+KAO( :,13, 1) = (/&
+&3.9170E-02_JPRB,4.0208E-02_JPRB,4.1811E-02_JPRB,4.4178E-02_JPRB,4.7427E-02_JPRB/)
+KAO( :, 1, 2) = (/&
+&1.2872E+00_JPRB,1.3933E+00_JPRB,1.5229E+00_JPRB,1.6818E+00_JPRB,1.8746E+00_JPRB/)
+KAO( :, 2, 2) = (/&
+&1.1067E+00_JPRB,1.2035E+00_JPRB,1.3215E+00_JPRB,1.4648E+00_JPRB,1.6373E+00_JPRB/)
+KAO( :, 3, 2) = (/&
+&9.2875E-01_JPRB,1.0145E+00_JPRB,1.1171E+00_JPRB,1.2402E+00_JPRB,1.3874E+00_JPRB/)
+KAO( :, 4, 2) = (/&
+&7.7024E-01_JPRB,8.4470E-01_JPRB,9.3397E-01_JPRB,1.0398E+00_JPRB,1.1644E+00_JPRB/)
+KAO( :, 5, 2) = (/&
+&6.3547E-01_JPRB,6.9999E-01_JPRB,7.7719E-01_JPRB,8.6762E-01_JPRB,9.7354E-01_JPRB/)
+KAO( :, 6, 2) = (/&
+&5.2029E-01_JPRB,5.7514E-01_JPRB,6.4113E-01_JPRB,7.1778E-01_JPRB,8.0690E-01_JPRB/)
+KAO( :, 7, 2) = (/&
+&4.2402E-01_JPRB,4.7059E-01_JPRB,5.2574E-01_JPRB,5.9013E-01_JPRB,6.6415E-01_JPRB/)
+KAO( :, 8, 2) = (/&
+&3.4478E-01_JPRB,3.8240E-01_JPRB,4.2694E-01_JPRB,4.7936E-01_JPRB,5.3995E-01_JPRB/)
+KAO( :, 9, 2) = (/&
+&2.7872E-01_JPRB,3.0857E-01_JPRB,3.4389E-01_JPRB,3.8559E-01_JPRB,4.3444E-01_JPRB/)
+KAO( :,10, 2) = (/&
+&2.2596E-01_JPRB,2.5018E-01_JPRB,2.7837E-01_JPRB,3.1178E-01_JPRB,3.5123E-01_JPRB/)
+KAO( :,11, 2) = (/&
+&1.9149E-01_JPRB,2.1236E-01_JPRB,2.3673E-01_JPRB,2.6562E-01_JPRB,2.9993E-01_JPRB/)
+KAO( :,12, 2) = (/&
+&1.6195E-01_JPRB,1.7991E-01_JPRB,2.0098E-01_JPRB,2.2594E-01_JPRB,2.5567E-01_JPRB/)
+KAO( :,13, 2) = (/&
+&1.3643E-01_JPRB,1.5192E-01_JPRB,1.7016E-01_JPRB,1.9179E-01_JPRB,2.1776E-01_JPRB/)
+KAO( :, 1, 3) = (/&
+&5.3360E+00_JPRB,5.9602E+00_JPRB,6.6311E+00_JPRB,7.3500E+00_JPRB,8.1211E+00_JPRB/)
+KAO( :, 2, 3) = (/&
+&4.6843E+00_JPRB,5.2481E+00_JPRB,5.8517E+00_JPRB,6.5055E+00_JPRB,7.2045E+00_JPRB/)
+KAO( :, 3, 3) = (/&
+&3.9306E+00_JPRB,4.4236E+00_JPRB,4.9546E+00_JPRB,5.5277E+00_JPRB,6.1375E+00_JPRB/)
+KAO( :, 4, 3) = (/&
+&3.2173E+00_JPRB,3.6357E+00_JPRB,4.0925E+00_JPRB,4.5878E+00_JPRB,5.1170E+00_JPRB/)
+KAO( :, 5, 3) = (/&
+&2.5942E+00_JPRB,2.9460E+00_JPRB,3.3334E+00_JPRB,3.7556E+00_JPRB,4.2107E+00_JPRB/)
+KAO( :, 6, 3) = (/&
+&2.0555E+00_JPRB,2.3477E+00_JPRB,2.6712E+00_JPRB,3.0269E+00_JPRB,3.4138E+00_JPRB/)
+KAO( :, 7, 3) = (/&
+&1.6118E+00_JPRB,1.8526E+00_JPRB,2.1224E+00_JPRB,2.4196E+00_JPRB,2.7460E+00_JPRB/)
+KAO( :, 8, 3) = (/&
+&1.2564E+00_JPRB,1.4546E+00_JPRB,1.6794E+00_JPRB,1.9292E+00_JPRB,2.2031E+00_JPRB/)
+KAO( :, 9, 3) = (/&
+&9.7439E-01_JPRB,1.1371E+00_JPRB,1.3228E+00_JPRB,1.5317E+00_JPRB,1.7615E+00_JPRB/)
+KAO( :,10, 3) = (/&
+&7.6284E-01_JPRB,8.9693E-01_JPRB,1.0511E+00_JPRB,1.2260E+00_JPRB,1.4196E+00_JPRB/)
+KAO( :,11, 3) = (/&
+&6.4505E-01_JPRB,7.6321E-01_JPRB,8.9939E-01_JPRB,1.0531E+00_JPRB,1.2207E+00_JPRB/)
+KAO( :,12, 3) = (/&
+&5.4741E-01_JPRB,6.5142E-01_JPRB,7.6976E-01_JPRB,9.0081E-01_JPRB,1.0418E+00_JPRB/)
+KAO( :,13, 3) = (/&
+&4.6530E-01_JPRB,5.5436E-01_JPRB,6.5441E-01_JPRB,7.6383E-01_JPRB,8.8219E-01_JPRB/)
+KAO( :, 1, 4) = (/&
+&1.6152E+01_JPRB,1.7527E+01_JPRB,1.8781E+01_JPRB,1.9894E+01_JPRB,2.0832E+01_JPRB/)
+KAO( :, 2, 4) = (/&
+&1.4046E+01_JPRB,1.5178E+01_JPRB,1.6195E+01_JPRB,1.7086E+01_JPRB,1.7867E+01_JPRB/)
+KAO( :, 3, 4) = (/&
+&1.2099E+01_JPRB,1.3048E+01_JPRB,1.3899E+01_JPRB,1.4662E+01_JPRB,1.5345E+01_JPRB/)
+KAO( :, 4, 4) = (/&
+&1.0250E+01_JPRB,1.1071E+01_JPRB,1.1812E+01_JPRB,1.2480E+01_JPRB,1.3082E+01_JPRB/)
+KAO( :, 5, 4) = (/&
+&8.5710E+00_JPRB,9.2814E+00_JPRB,9.9329E+00_JPRB,1.0519E+01_JPRB,1.1047E+01_JPRB/)
+KAO( :, 6, 4) = (/&
+&7.0718E+00_JPRB,7.6889E+00_JPRB,8.2584E+00_JPRB,8.7766E+00_JPRB,9.2483E+00_JPRB/)
+KAO( :, 7, 4) = (/&
+&5.7749E+00_JPRB,6.3070E+00_JPRB,6.8047E+00_JPRB,7.2640E+00_JPRB,7.6824E+00_JPRB/)
+KAO( :, 8, 4) = (/&
+&4.6724E+00_JPRB,5.1283E+00_JPRB,5.5581E+00_JPRB,5.9613E+00_JPRB,6.3358E+00_JPRB/)
+KAO( :, 9, 4) = (/&
+&3.7440E+00_JPRB,4.1328E+00_JPRB,4.5018E+00_JPRB,4.8548E+00_JPRB,5.1877E+00_JPRB/)
+KAO( :,10, 4) = (/&
+&2.9973E+00_JPRB,3.3277E+00_JPRB,3.6442E+00_JPRB,3.9507E+00_JPRB,4.2451E+00_JPRB/)
+KAO( :,11, 4) = (/&
+&2.5128E+00_JPRB,2.7893E+00_JPRB,3.0562E+00_JPRB,3.3207E+00_JPRB,3.5778E+00_JPRB/)
+KAO( :,12, 4) = (/&
+&2.1002E+00_JPRB,2.3318E+00_JPRB,2.5620E+00_JPRB,2.7945E+00_JPRB,3.0199E+00_JPRB/)
+KAO( :,13, 4) = (/&
+&1.7517E+00_JPRB,1.9494E+00_JPRB,2.1523E+00_JPRB,2.3581E+00_JPRB,2.5501E+00_JPRB/)
+KAO( :, 1, 5) = (/&
+&3.4751E+01_JPRB,3.5230E+01_JPRB,3.5638E+01_JPRB,3.5981E+01_JPRB,3.6301E+01_JPRB/)
+KAO( :, 2, 5) = (/&
+&2.9729E+01_JPRB,3.0178E+01_JPRB,3.0562E+01_JPRB,3.0895E+01_JPRB,3.1160E+01_JPRB/)
+KAO( :, 3, 5) = (/&
+&2.5226E+01_JPRB,2.5646E+01_JPRB,2.6010E+01_JPRB,2.6290E+01_JPRB,2.6514E+01_JPRB/)
+KAO( :, 4, 5) = (/&
+&2.1570E+01_JPRB,2.1943E+01_JPRB,2.2252E+01_JPRB,2.2465E+01_JPRB,2.2652E+01_JPRB/)
+KAO( :, 5, 5) = (/&
+&1.8526E+01_JPRB,1.8854E+01_JPRB,1.9098E+01_JPRB,1.9261E+01_JPRB,1.9423E+01_JPRB/)
+KAO( :, 6, 5) = (/&
+&1.5776E+01_JPRB,1.6061E+01_JPRB,1.6258E+01_JPRB,1.6386E+01_JPRB,1.6522E+01_JPRB/)
+KAO( :, 7, 5) = (/&
+&1.3340E+01_JPRB,1.3594E+01_JPRB,1.3756E+01_JPRB,1.3864E+01_JPRB,1.3982E+01_JPRB/)
+KAO( :, 8, 5) = (/&
+&1.1233E+01_JPRB,1.1458E+01_JPRB,1.1599E+01_JPRB,1.1693E+01_JPRB,1.1791E+01_JPRB/)
+KAO( :, 9, 5) = (/&
+&9.4215E+00_JPRB,9.6164E+00_JPRB,9.7423E+00_JPRB,9.8254E+00_JPRB,9.9049E+00_JPRB/)
+KAO( :,10, 5) = (/&
+&7.8744E+00_JPRB,8.0390E+00_JPRB,8.1492E+00_JPRB,8.2195E+00_JPRB,8.2844E+00_JPRB/)
+KAO( :,11, 5) = (/&
+&6.6269E+00_JPRB,6.7416E+00_JPRB,6.8204E+00_JPRB,6.8736E+00_JPRB,6.9401E+00_JPRB/)
+KAO( :,12, 5) = (/&
+&5.5397E+00_JPRB,5.6256E+00_JPRB,5.6856E+00_JPRB,5.7347E+00_JPRB,5.8086E+00_JPRB/)
+KAO( :,13, 5) = (/&
+&4.6101E+00_JPRB,4.6786E+00_JPRB,4.7276E+00_JPRB,4.7772E+00_JPRB,4.8596E+00_JPRB/)
+KAO( :, 1, 6) = (/&
+&5.5130E+01_JPRB,5.5331E+01_JPRB,5.5751E+01_JPRB,5.6249E+01_JPRB,5.6765E+01_JPRB/)
+KAO( :, 2, 6) = (/&
+&4.8314E+01_JPRB,4.8735E+01_JPRB,4.9176E+01_JPRB,4.9631E+01_JPRB,5.0143E+01_JPRB/)
+KAO( :, 3, 6) = (/&
+&4.2059E+01_JPRB,4.2411E+01_JPRB,4.2762E+01_JPRB,4.3188E+01_JPRB,4.3691E+01_JPRB/)
+KAO( :, 4, 6) = (/&
+&3.6248E+01_JPRB,3.6478E+01_JPRB,3.6774E+01_JPRB,3.7187E+01_JPRB,3.7662E+01_JPRB/)
+KAO( :, 5, 6) = (/&
+&3.1107E+01_JPRB,3.1277E+01_JPRB,3.1534E+01_JPRB,3.1919E+01_JPRB,3.2341E+01_JPRB/)
+KAO( :, 6, 6) = (/&
+&2.6880E+01_JPRB,2.7008E+01_JPRB,2.7229E+01_JPRB,2.7549E+01_JPRB,2.7880E+01_JPRB/)
+KAO( :, 7, 6) = (/&
+&2.3158E+01_JPRB,2.3247E+01_JPRB,2.3429E+01_JPRB,2.3676E+01_JPRB,2.3946E+01_JPRB/)
+KAO( :, 8, 6) = (/&
+&1.9829E+01_JPRB,1.9879E+01_JPRB,2.0010E+01_JPRB,2.0196E+01_JPRB,2.0418E+01_JPRB/)
+KAO( :, 9, 6) = (/&
+&1.6898E+01_JPRB,1.6922E+01_JPRB,1.7013E+01_JPRB,1.7148E+01_JPRB,1.7325E+01_JPRB/)
+KAO( :,10, 6) = (/&
+&1.4366E+01_JPRB,1.4373E+01_JPRB,1.4439E+01_JPRB,1.4534E+01_JPRB,1.4675E+01_JPRB/)
+KAO( :,11, 6) = (/&
+&1.2164E+01_JPRB,1.2183E+01_JPRB,1.2231E+01_JPRB,1.2319E+01_JPRB,1.2450E+01_JPRB/)
+KAO( :,12, 6) = (/&
+&1.0258E+01_JPRB,1.0264E+01_JPRB,1.0303E+01_JPRB,1.0384E+01_JPRB,1.0512E+01_JPRB/)
+KAO( :,13, 6) = (/&
+&8.6118E+00_JPRB,8.6082E+00_JPRB,8.6451E+00_JPRB,8.7236E+00_JPRB,8.8552E+00_JPRB/)
+KAO( :, 1, 7) = (/&
+&9.6613E+01_JPRB,9.5560E+01_JPRB,9.4868E+01_JPRB,9.4707E+01_JPRB,9.5047E+01_JPRB/)
+KAO( :, 2, 7) = (/&
+&8.5378E+01_JPRB,8.4844E+01_JPRB,8.4980E+01_JPRB,8.5705E+01_JPRB,8.6820E+01_JPRB/)
+KAO( :, 3, 7) = (/&
+&7.4914E+01_JPRB,7.5068E+01_JPRB,7.5864E+01_JPRB,7.7176E+01_JPRB,7.8814E+01_JPRB/)
+KAO( :, 4, 7) = (/&
+&6.5406E+01_JPRB,6.6072E+01_JPRB,6.7363E+01_JPRB,6.9077E+01_JPRB,7.0805E+01_JPRB/)
+KAO( :, 5, 7) = (/&
+&5.6834E+01_JPRB,5.7880E+01_JPRB,5.9486E+01_JPRB,6.1110E+01_JPRB,6.2642E+01_JPRB/)
+KAO( :, 6, 7) = (/&
+&4.9134E+01_JPRB,5.0398E+01_JPRB,5.1914E+01_JPRB,5.3305E+01_JPRB,5.4686E+01_JPRB/)
+KAO( :, 7, 7) = (/&
+&4.2637E+01_JPRB,4.3892E+01_JPRB,4.5117E+01_JPRB,4.6325E+01_JPRB,4.7499E+01_JPRB/)
+KAO( :, 8, 7) = (/&
+&3.7229E+01_JPRB,3.8287E+01_JPRB,3.9278E+01_JPRB,4.0285E+01_JPRB,4.1280E+01_JPRB/)
+KAO( :, 9, 7) = (/&
+&3.2369E+01_JPRB,3.3232E+01_JPRB,3.4050E+01_JPRB,3.4909E+01_JPRB,3.5773E+01_JPRB/)
+KAO( :,10, 7) = (/&
+&2.7964E+01_JPRB,2.8642E+01_JPRB,2.9313E+01_JPRB,3.0048E+01_JPRB,3.0775E+01_JPRB/)
+KAO( :,11, 7) = (/&
+&2.4270E+01_JPRB,2.4795E+01_JPRB,2.5375E+01_JPRB,2.5988E+01_JPRB,2.6571E+01_JPRB/)
+KAO( :,12, 7) = (/&
+&2.0936E+01_JPRB,2.1384E+01_JPRB,2.1881E+01_JPRB,2.2373E+01_JPRB,2.2843E+01_JPRB/)
+KAO( :,13, 7) = (/&
+&1.7997E+01_JPRB,1.8384E+01_JPRB,1.8786E+01_JPRB,1.9175E+01_JPRB,1.9563E+01_JPRB/)
+KAO( :, 1, 8) = (/&
+&2.1875E+02_JPRB,2.1582E+02_JPRB,2.1296E+02_JPRB,2.1003E+02_JPRB,2.0715E+02_JPRB/)
+KAO( :, 2, 8) = (/&
+&2.0320E+02_JPRB,2.0039E+02_JPRB,1.9765E+02_JPRB,1.9490E+02_JPRB,1.9237E+02_JPRB/)
+KAO( :, 3, 8) = (/&
+&1.8600E+02_JPRB,1.8334E+02_JPRB,1.8077E+02_JPRB,1.7842E+02_JPRB,1.7627E+02_JPRB/)
+KAO( :, 4, 8) = (/&
+&1.6777E+02_JPRB,1.6536E+02_JPRB,1.6312E+02_JPRB,1.6113E+02_JPRB,1.5989E+02_JPRB/)
+KAO( :, 5, 8) = (/&
+&1.4943E+02_JPRB,1.4725E+02_JPRB,1.4535E+02_JPRB,1.4437E+02_JPRB,1.4430E+02_JPRB/)
+KAO( :, 6, 8) = (/&
+&1.3133E+02_JPRB,1.2945E+02_JPRB,1.2835E+02_JPRB,1.2837E+02_JPRB,1.2929E+02_JPRB/)
+KAO( :, 7, 8) = (/&
+&1.1418E+02_JPRB,1.1273E+02_JPRB,1.1250E+02_JPRB,1.1334E+02_JPRB,1.1514E+02_JPRB/)
+KAO( :, 8, 8) = (/&
+&9.8405E+01_JPRB,9.7565E+01_JPRB,9.8029E+01_JPRB,9.9545E+01_JPRB,1.0201E+02_JPRB/)
+KAO( :, 9, 8) = (/&
+&8.4682E+01_JPRB,8.4331E+01_JPRB,8.5271E+01_JPRB,8.7263E+01_JPRB,9.0114E+01_JPRB/)
+KAO( :,10, 8) = (/&
+&7.3042E+01_JPRB,7.3160E+01_JPRB,7.4507E+01_JPRB,7.6830E+01_JPRB,7.9492E+01_JPRB/)
+KAO( :,11, 8) = (/&
+&6.3320E+01_JPRB,6.4346E+01_JPRB,6.6364E+01_JPRB,6.8605E+01_JPRB,7.0750E+01_JPRB/)
+KAO( :,12, 8) = (/&
+&5.5520E+01_JPRB,5.7127E+01_JPRB,5.9034E+01_JPRB,6.0843E+01_JPRB,6.2628E+01_JPRB/)
+KAO( :,13, 8) = (/&
+&4.8720E+01_JPRB,5.0320E+01_JPRB,5.1854E+01_JPRB,5.3381E+01_JPRB,5.4848E+01_JPRB/)
+KAO( :, 1, 9) = (/&
+&5.5976E+02_JPRB,5.5606E+02_JPRB,5.5170E+02_JPRB,5.4679E+02_JPRB,5.4142E+02_JPRB/)
+KAO( :, 2, 9) = (/&
+&5.7991E+02_JPRB,5.7550E+02_JPRB,5.7048E+02_JPRB,5.6499E+02_JPRB,5.5881E+02_JPRB/)
+KAO( :, 3, 9) = (/&
+&5.9128E+02_JPRB,5.8623E+02_JPRB,5.8077E+02_JPRB,5.7450E+02_JPRB,5.6801E+02_JPRB/)
+KAO( :, 4, 9) = (/&
+&5.9173E+02_JPRB,5.8627E+02_JPRB,5.8008E+02_JPRB,5.7365E+02_JPRB,5.6657E+02_JPRB/)
+KAO( :, 5, 9) = (/&
+&5.8078E+02_JPRB,5.7460E+02_JPRB,5.6816E+02_JPRB,5.6109E+02_JPRB,5.5382E+02_JPRB/)
+KAO( :, 6, 9) = (/&
+&5.6004E+02_JPRB,5.5342E+02_JPRB,5.4648E+02_JPRB,5.3935E+02_JPRB,5.3177E+02_JPRB/)
+KAO( :, 7, 9) = (/&
+&5.3020E+02_JPRB,5.2344E+02_JPRB,5.1623E+02_JPRB,5.0891E+02_JPRB,5.0146E+02_JPRB/)
+KAO( :, 8, 9) = (/&
+&4.9306E+02_JPRB,4.8589E+02_JPRB,4.7879E+02_JPRB,4.7156E+02_JPRB,4.6424E+02_JPRB/)
+KAO( :, 9, 9) = (/&
+&4.5109E+02_JPRB,4.4398E+02_JPRB,4.3682E+02_JPRB,4.2990E+02_JPRB,4.2317E+02_JPRB/)
+KAO( :,10, 9) = (/&
+&4.0554E+02_JPRB,3.9861E+02_JPRB,3.9191E+02_JPRB,3.8539E+02_JPRB,3.7999E+02_JPRB/)
+KAO( :,11, 9) = (/&
+&3.5678E+02_JPRB,3.5028E+02_JPRB,3.4422E+02_JPRB,3.3949E+02_JPRB,3.3677E+02_JPRB/)
+KAO( :,12, 9) = (/&
+&3.0997E+02_JPRB,3.0426E+02_JPRB,2.9997E+02_JPRB,2.9770E+02_JPRB,2.9720E+02_JPRB/)
+KAO( :,13, 9) = (/&
+&2.6709E+02_JPRB,2.6293E+02_JPRB,2.6082E+02_JPRB,2.6061E+02_JPRB,2.6217E+02_JPRB/)
+KAO( :, 1,10) = (/&
+&9.5728E+02_JPRB,9.5690E+02_JPRB,9.5401E+02_JPRB,9.5007E+02_JPRB,9.4420E+02_JPRB/)
+KAO( :, 2,10) = (/&
+&1.0745E+03_JPRB,1.0719E+03_JPRB,1.0680E+03_JPRB,1.0623E+03_JPRB,1.0552E+03_JPRB/)
+KAO( :, 3,10) = (/&
+&1.1871E+03_JPRB,1.1845E+03_JPRB,1.1802E+03_JPRB,1.1737E+03_JPRB,1.1657E+03_JPRB/)
+KAO( :, 4,10) = (/&
+&1.2933E+03_JPRB,1.2895E+03_JPRB,1.2845E+03_JPRB,1.2769E+03_JPRB,1.2684E+03_JPRB/)
+KAO( :, 5,10) = (/&
+&1.3871E+03_JPRB,1.3843E+03_JPRB,1.3770E+03_JPRB,1.3701E+03_JPRB,1.3589E+03_JPRB/)
+KAO( :, 6,10) = (/&
+&1.4584E+03_JPRB,1.4525E+03_JPRB,1.4462E+03_JPRB,1.4355E+03_JPRB,1.4255E+03_JPRB/)
+KAO( :, 7,10) = (/&
+&1.5042E+03_JPRB,1.4961E+03_JPRB,1.4859E+03_JPRB,1.4751E+03_JPRB,1.4602E+03_JPRB/)
+KAO( :, 8,10) = (/&
+&1.5189E+03_JPRB,1.5105E+03_JPRB,1.4981E+03_JPRB,1.4842E+03_JPRB,1.4701E+03_JPRB/)
+KAO( :, 9,10) = (/&
+&1.5016E+03_JPRB,1.4885E+03_JPRB,1.4763E+03_JPRB,1.4608E+03_JPRB,1.4435E+03_JPRB/)
+KAO( :,10,10) = (/&
+&1.4531E+03_JPRB,1.4390E+03_JPRB,1.4217E+03_JPRB,1.4053E+03_JPRB,1.3883E+03_JPRB/)
+KAO( :,11,10) = (/&
+&1.3673E+03_JPRB,1.3498E+03_JPRB,1.3324E+03_JPRB,1.3154E+03_JPRB,1.2964E+03_JPRB/)
+KAO( :,12,10) = (/&
+&1.2564E+03_JPRB,1.2384E+03_JPRB,1.2210E+03_JPRB,1.2031E+03_JPRB,1.1837E+03_JPRB/)
+KAO( :,13,10) = (/&
+&1.1371E+03_JPRB,1.1192E+03_JPRB,1.1015E+03_JPRB,1.0830E+03_JPRB,1.0644E+03_JPRB/)
+KAO( :, 1,11) = (/&
+&1.0794E+03_JPRB,1.0788E+03_JPRB,1.0790E+03_JPRB,1.0769E+03_JPRB,1.0715E+03_JPRB/)
+KAO( :, 2,11) = (/&
+&1.2369E+03_JPRB,1.2394E+03_JPRB,1.2387E+03_JPRB,1.2348E+03_JPRB,1.2284E+03_JPRB/)
+KAO( :, 3,11) = (/&
+&1.4037E+03_JPRB,1.4057E+03_JPRB,1.4048E+03_JPRB,1.4010E+03_JPRB,1.3938E+03_JPRB/)
+KAO( :, 4,11) = (/&
+&1.5772E+03_JPRB,1.5782E+03_JPRB,1.5766E+03_JPRB,1.5700E+03_JPRB,1.5626E+03_JPRB/)
+KAO( :, 5,11) = (/&
+&1.7441E+03_JPRB,1.7459E+03_JPRB,1.7422E+03_JPRB,1.7359E+03_JPRB,1.7270E+03_JPRB/)
+KAO( :, 6,11) = (/&
+&1.9017E+03_JPRB,1.9021E+03_JPRB,1.8960E+03_JPRB,1.8905E+03_JPRB,1.8786E+03_JPRB/)
+KAO( :, 7,11) = (/&
+&2.0395E+03_JPRB,2.0360E+03_JPRB,2.0330E+03_JPRB,2.0229E+03_JPRB,2.0133E+03_JPRB/)
+KAO( :, 8,11) = (/&
+&2.1454E+03_JPRB,2.1404E+03_JPRB,2.1335E+03_JPRB,2.1240E+03_JPRB,2.1091E+03_JPRB/)
+KAO( :, 9,11) = (/&
+&2.2123E+03_JPRB,2.2075E+03_JPRB,2.1945E+03_JPRB,2.1814E+03_JPRB,2.1649E+03_JPRB/)
+KAO( :,10,11) = (/&
+&2.2367E+03_JPRB,2.2244E+03_JPRB,2.2129E+03_JPRB,2.1949E+03_JPRB,2.1755E+03_JPRB/)
+KAO( :,11,11) = (/&
+&2.2036E+03_JPRB,2.1899E+03_JPRB,2.1713E+03_JPRB,2.1494E+03_JPRB,2.1278E+03_JPRB/)
+KAO( :,12,11) = (/&
+&2.1239E+03_JPRB,2.1041E+03_JPRB,2.0806E+03_JPRB,2.0570E+03_JPRB,2.0321E+03_JPRB/)
+KAO( :,13,11) = (/&
+&1.9981E+03_JPRB,1.9741E+03_JPRB,1.9501E+03_JPRB,1.9259E+03_JPRB,1.8992E+03_JPRB/)
+KAO( :, 1,12) = (/&
+&1.1941E+03_JPRB,1.1961E+03_JPRB,1.1962E+03_JPRB,1.1934E+03_JPRB,1.1915E+03_JPRB/)
+KAO( :, 2,12) = (/&
+&1.3953E+03_JPRB,1.3978E+03_JPRB,1.3989E+03_JPRB,1.3989E+03_JPRB,1.3975E+03_JPRB/)
+KAO( :, 3,12) = (/&
+&1.6228E+03_JPRB,1.6258E+03_JPRB,1.6260E+03_JPRB,1.6268E+03_JPRB,1.6242E+03_JPRB/)
+KAO( :, 4,12) = (/&
+&1.8694E+03_JPRB,1.8740E+03_JPRB,1.8767E+03_JPRB,1.8774E+03_JPRB,1.8733E+03_JPRB/)
+KAO( :, 5,12) = (/&
+&2.1317E+03_JPRB,2.1362E+03_JPRB,2.1424E+03_JPRB,2.1420E+03_JPRB,2.1392E+03_JPRB/)
+KAO( :, 6,12) = (/&
+&2.4044E+03_JPRB,2.4133E+03_JPRB,2.4176E+03_JPRB,2.4160E+03_JPRB,2.4115E+03_JPRB/)
+KAO( :, 7,12) = (/&
+&2.6762E+03_JPRB,2.6888E+03_JPRB,2.6899E+03_JPRB,2.6906E+03_JPRB,2.6811E+03_JPRB/)
+KAO( :, 8,12) = (/&
+&2.9393E+03_JPRB,2.9492E+03_JPRB,2.9517E+03_JPRB,2.9490E+03_JPRB,2.9400E+03_JPRB/)
+KAO( :, 9,12) = (/&
+&3.1791E+03_JPRB,3.1838E+03_JPRB,3.1886E+03_JPRB,3.1814E+03_JPRB,3.1717E+03_JPRB/)
+KAO( :,10,12) = (/&
+&3.3778E+03_JPRB,3.3826E+03_JPRB,3.3785E+03_JPRB,3.3711E+03_JPRB,3.3555E+03_JPRB/)
+KAO( :,11,12) = (/&
+&3.5199E+03_JPRB,3.5143E+03_JPRB,3.5061E+03_JPRB,3.4899E+03_JPRB,3.4698E+03_JPRB/)
+KAO( :,12,12) = (/&
+&3.5918E+03_JPRB,3.5807E+03_JPRB,3.5632E+03_JPRB,3.5417E+03_JPRB,3.5132E+03_JPRB/)
+KAO( :,13,12) = (/&
+&3.5817E+03_JPRB,3.5602E+03_JPRB,3.5362E+03_JPRB,3.5063E+03_JPRB,3.4751E+03_JPRB/)
+KAO( :, 1,13) = (/&
+&1.2927E+03_JPRB,1.2959E+03_JPRB,1.2982E+03_JPRB,1.2977E+03_JPRB,1.2950E+03_JPRB/)
+KAO( :, 2,13) = (/&
+&1.5393E+03_JPRB,1.5429E+03_JPRB,1.5452E+03_JPRB,1.5442E+03_JPRB,1.5416E+03_JPRB/)
+KAO( :, 3,13) = (/&
+&1.8235E+03_JPRB,1.8299E+03_JPRB,1.8332E+03_JPRB,1.8330E+03_JPRB,1.8307E+03_JPRB/)
+KAO( :, 4,13) = (/&
+&2.1460E+03_JPRB,2.1562E+03_JPRB,2.1625E+03_JPRB,2.1633E+03_JPRB,2.1623E+03_JPRB/)
+KAO( :, 5,13) = (/&
+&2.5138E+03_JPRB,2.5270E+03_JPRB,2.5346E+03_JPRB,2.5383E+03_JPRB,2.5372E+03_JPRB/)
+KAO( :, 6,13) = (/&
+&2.9233E+03_JPRB,2.9381E+03_JPRB,2.9500E+03_JPRB,2.9556E+03_JPRB,2.9572E+03_JPRB/)
+KAO( :, 7,13) = (/&
+&3.3704E+03_JPRB,3.3895E+03_JPRB,3.4050E+03_JPRB,3.4111E+03_JPRB,3.4146E+03_JPRB/)
+KAO( :, 8,13) = (/&
+&3.8494E+03_JPRB,3.8729E+03_JPRB,3.8913E+03_JPRB,3.9008E+03_JPRB,3.9062E+03_JPRB/)
+KAO( :, 9,13) = (/&
+&4.3484E+03_JPRB,4.3768E+03_JPRB,4.3938E+03_JPRB,4.4075E+03_JPRB,4.4120E+03_JPRB/)
+KAO( :,10,13) = (/&
+&4.8563E+03_JPRB,4.8884E+03_JPRB,4.9080E+03_JPRB,4.9204E+03_JPRB,4.9230E+03_JPRB/)
+KAO( :,11,13) = (/&
+&5.3698E+03_JPRB,5.3968E+03_JPRB,5.4124E+03_JPRB,5.4206E+03_JPRB,5.4132E+03_JPRB/)
+KAO( :,12,13) = (/&
+&5.8401E+03_JPRB,5.8572E+03_JPRB,5.8683E+03_JPRB,5.8634E+03_JPRB,5.8549E+03_JPRB/)
+KAO( :,13,13) = (/&
+&6.2394E+03_JPRB,6.2548E+03_JPRB,6.2534E+03_JPRB,6.2438E+03_JPRB,6.2213E+03_JPRB/)
+KAO( :, 1,14) = (/&
+&1.3753E+03_JPRB,1.3791E+03_JPRB,1.3806E+03_JPRB,1.3820E+03_JPRB,1.3825E+03_JPRB/)
+KAO( :, 2,14) = (/&
+&1.6535E+03_JPRB,1.6590E+03_JPRB,1.6607E+03_JPRB,1.6628E+03_JPRB,1.6629E+03_JPRB/)
+KAO( :, 3,14) = (/&
+&1.9826E+03_JPRB,1.9922E+03_JPRB,1.9976E+03_JPRB,2.0007E+03_JPRB,2.0006E+03_JPRB/)
+KAO( :, 4,14) = (/&
+&2.3745E+03_JPRB,2.3859E+03_JPRB,2.3951E+03_JPRB,2.4030E+03_JPRB,2.4041E+03_JPRB/)
+KAO( :, 5,14) = (/&
+&2.8392E+03_JPRB,2.8553E+03_JPRB,2.8669E+03_JPRB,2.8760E+03_JPRB,2.8790E+03_JPRB/)
+KAO( :, 6,14) = (/&
+&3.3773E+03_JPRB,3.4016E+03_JPRB,3.4204E+03_JPRB,3.4341E+03_JPRB,3.4397E+03_JPRB/)
+KAO( :, 7,14) = (/&
+&4.0025E+03_JPRB,4.0325E+03_JPRB,4.0568E+03_JPRB,4.0775E+03_JPRB,4.0887E+03_JPRB/)
+KAO( :, 8,14) = (/&
+&4.7223E+03_JPRB,4.7649E+03_JPRB,4.7948E+03_JPRB,4.8179E+03_JPRB,4.8302E+03_JPRB/)
+KAO( :, 9,14) = (/&
+&5.5328E+03_JPRB,5.5878E+03_JPRB,5.6319E+03_JPRB,5.6661E+03_JPRB,5.6818E+03_JPRB/)
+KAO( :,10,14) = (/&
+&6.4532E+03_JPRB,6.5137E+03_JPRB,6.5680E+03_JPRB,6.6072E+03_JPRB,6.6322E+03_JPRB/)
+KAO( :,11,14) = (/&
+&7.5145E+03_JPRB,7.5791E+03_JPRB,7.6282E+03_JPRB,7.6633E+03_JPRB,7.6872E+03_JPRB/)
+KAO( :,12,14) = (/&
+&8.6607E+03_JPRB,8.7343E+03_JPRB,8.7852E+03_JPRB,8.8163E+03_JPRB,8.8288E+03_JPRB/)
+KAO( :,13,14) = (/&
+&9.8833E+03_JPRB,9.9529E+03_JPRB,1.0003E+04_JPRB,1.0028E+04_JPRB,1.0035E+04_JPRB/)
+KAO( :, 1,15) = (/&
+&1.4542E+03_JPRB,1.4589E+03_JPRB,1.4604E+03_JPRB,1.4579E+03_JPRB,1.4548E+03_JPRB/)
+KAO( :, 2,15) = (/&
+&1.7565E+03_JPRB,1.7644E+03_JPRB,1.7674E+03_JPRB,1.7671E+03_JPRB,1.7644E+03_JPRB/)
+KAO( :, 3,15) = (/&
+&2.1193E+03_JPRB,2.1295E+03_JPRB,2.1356E+03_JPRB,2.1395E+03_JPRB,2.1395E+03_JPRB/)
+KAO( :, 4,15) = (/&
+&2.5571E+03_JPRB,2.5704E+03_JPRB,2.5775E+03_JPRB,2.5844E+03_JPRB,2.5879E+03_JPRB/)
+KAO( :, 5,15) = (/&
+&3.0796E+03_JPRB,3.0997E+03_JPRB,3.1125E+03_JPRB,3.1195E+03_JPRB,3.1261E+03_JPRB/)
+KAO( :, 6,15) = (/&
+&3.7030E+03_JPRB,3.7342E+03_JPRB,3.7541E+03_JPRB,3.7653E+03_JPRB,3.7758E+03_JPRB/)
+KAO( :, 7,15) = (/&
+&4.4506E+03_JPRB,4.4902E+03_JPRB,4.5215E+03_JPRB,4.5394E+03_JPRB,4.5554E+03_JPRB/)
+KAO( :, 8,15) = (/&
+&5.3453E+03_JPRB,5.3952E+03_JPRB,5.4338E+03_JPRB,5.4624E+03_JPRB,5.4876E+03_JPRB/)
+KAO( :, 9,15) = (/&
+&6.4078E+03_JPRB,6.4736E+03_JPRB,6.5253E+03_JPRB,6.5575E+03_JPRB,6.5911E+03_JPRB/)
+KAO( :,10,15) = (/&
+&7.6598E+03_JPRB,7.7526E+03_JPRB,7.8219E+03_JPRB,7.8681E+03_JPRB,7.9031E+03_JPRB/)
+KAO( :,11,15) = (/&
+&9.1855E+03_JPRB,9.2916E+03_JPRB,9.3732E+03_JPRB,9.4318E+03_JPRB,9.4669E+03_JPRB/)
+KAO( :,12,15) = (/&
+&1.0994E+04_JPRB,1.1100E+04_JPRB,1.1186E+04_JPRB,1.1251E+04_JPRB,1.1289E+04_JPRB/)
+KAO( :,13,15) = (/&
+&1.3104E+04_JPRB,1.3212E+04_JPRB,1.3290E+04_JPRB,1.3346E+04_JPRB,1.3376E+04_JPRB/)
+KAO( :, 1,16) = (/&
+&1.4780E+03_JPRB,1.4827E+03_JPRB,1.4826E+03_JPRB,1.4874E+03_JPRB,1.4915E+03_JPRB/)
+KAO( :, 2,16) = (/&
+&1.7951E+03_JPRB,1.8015E+03_JPRB,1.8036E+03_JPRB,1.8055E+03_JPRB,1.8112E+03_JPRB/)
+KAO( :, 3,16) = (/&
+&2.1816E+03_JPRB,2.1886E+03_JPRB,2.1943E+03_JPRB,2.1956E+03_JPRB,2.1996E+03_JPRB/)
+KAO( :, 4,16) = (/&
+&2.6509E+03_JPRB,2.6606E+03_JPRB,2.6687E+03_JPRB,2.6722E+03_JPRB,2.6753E+03_JPRB/)
+KAO( :, 5,16) = (/&
+&3.2176E+03_JPRB,3.2329E+03_JPRB,3.2455E+03_JPRB,3.2518E+03_JPRB,3.2561E+03_JPRB/)
+KAO( :, 6,16) = (/&
+&3.8984E+03_JPRB,3.9245E+03_JPRB,3.9448E+03_JPRB,3.9570E+03_JPRB,3.9591E+03_JPRB/)
+KAO( :, 7,16) = (/&
+&4.7171E+03_JPRB,4.7549E+03_JPRB,4.7886E+03_JPRB,4.8095E+03_JPRB,4.8182E+03_JPRB/)
+KAO( :, 8,16) = (/&
+&5.7104E+03_JPRB,5.7554E+03_JPRB,5.8029E+03_JPRB,5.8388E+03_JPRB,5.8553E+03_JPRB/)
+KAO( :, 9,16) = (/&
+&6.9103E+03_JPRB,6.9722E+03_JPRB,7.0177E+03_JPRB,7.0728E+03_JPRB,7.1035E+03_JPRB/)
+KAO( :,10,16) = (/&
+&8.3550E+03_JPRB,8.4416E+03_JPRB,8.4942E+03_JPRB,8.5534E+03_JPRB,8.5999E+03_JPRB/)
+KAO( :,11,16) = (/&
+&1.0144E+04_JPRB,1.0238E+04_JPRB,1.0302E+04_JPRB,1.0361E+04_JPRB,1.0397E+04_JPRB/)
+KAO( :,12,16) = (/&
+&1.2283E+04_JPRB,1.2387E+04_JPRB,1.2470E+04_JPRB,1.2524E+04_JPRB,1.2537E+04_JPRB/)
+KAO( :,13,16) = (/&
+&1.4822E+04_JPRB,1.4946E+04_JPRB,1.5038E+04_JPRB,1.5076E+04_JPRB,1.5064E+04_JPRB/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&3.9171E-02_JPRB,4.0209E-02_JPRB,4.1806E-02_JPRB,4.4182E-02_JPRB,4.7428E-02_JPRB/)
+KBO( :,14, 1) = (/&
+&3.2490E-02_JPRB,3.3463E-02_JPRB,3.4945E-02_JPRB,3.7104E-02_JPRB,4.0032E-02_JPRB/)
+KBO( :,15, 1) = (/&
+&2.6917E-02_JPRB,2.7822E-02_JPRB,2.9187E-02_JPRB,3.1142E-02_JPRB,3.3701E-02_JPRB/)
+KBO( :,16, 1) = (/&
+&2.2291E-02_JPRB,2.3129E-02_JPRB,2.4369E-02_JPRB,2.6101E-02_JPRB,2.8325E-02_JPRB/)
+KBO( :,17, 1) = (/&
+&1.8463E-02_JPRB,1.9231E-02_JPRB,2.0335E-02_JPRB,2.1845E-02_JPRB,2.3775E-02_JPRB/)
+KBO( :,18, 1) = (/&
+&1.5304E-02_JPRB,1.5992E-02_JPRB,1.6967E-02_JPRB,1.8267E-02_JPRB,1.9954E-02_JPRB/)
+KBO( :,19, 1) = (/&
+&1.2689E-02_JPRB,1.3293E-02_JPRB,1.4142E-02_JPRB,1.5272E-02_JPRB,1.6744E-02_JPRB/)
+KBO( :,20, 1) = (/&
+&1.0525E-02_JPRB,1.1058E-02_JPRB,1.1796E-02_JPRB,1.2786E-02_JPRB,1.4077E-02_JPRB/)
+KBO( :,21, 1) = (/&
+&8.7289E-03_JPRB,9.1958E-03_JPRB,9.8417E-03_JPRB,1.0709E-02_JPRB,1.1847E-02_JPRB/)
+KBO( :,22, 1) = (/&
+&7.2588E-03_JPRB,7.6747E-03_JPRB,8.2530E-03_JPRB,9.0292E-03_JPRB,1.0054E-02_JPRB/)
+KBO( :,23, 1) = (/&
+&6.0387E-03_JPRB,6.4108E-03_JPRB,6.9298E-03_JPRB,7.6312E-03_JPRB,8.5511E-03_JPRB/)
+KBO( :,24, 1) = (/&
+&5.0265E-03_JPRB,5.3630E-03_JPRB,5.8339E-03_JPRB,6.4676E-03_JPRB,7.2886E-03_JPRB/)
+KBO( :,25, 1) = (/&
+&4.1912E-03_JPRB,4.4982E-03_JPRB,4.9297E-03_JPRB,5.4991E-03_JPRB,6.2336E-03_JPRB/)
+KBO( :,26, 1) = (/&
+&3.5050E-03_JPRB,3.7893E-03_JPRB,4.1842E-03_JPRB,4.6973E-03_JPRB,5.3580E-03_JPRB/)
+KBO( :,27, 1) = (/&
+&2.9383E-03_JPRB,3.2032E-03_JPRB,3.5605E-03_JPRB,4.0246E-03_JPRB,4.6201E-03_JPRB/)
+KBO( :,28, 1) = (/&
+&2.4712E-03_JPRB,2.7165E-03_JPRB,3.0381E-03_JPRB,3.4592E-03_JPRB,3.9959E-03_JPRB/)
+KBO( :,29, 1) = (/&
+&2.0871E-03_JPRB,2.3113E-03_JPRB,2.6040E-03_JPRB,2.9852E-03_JPRB,3.4732E-03_JPRB/)
+KBO( :,30, 1) = (/&
+&1.7686E-03_JPRB,1.9719E-03_JPRB,2.2397E-03_JPRB,2.5854E-03_JPRB,3.0292E-03_JPRB/)
+KBO( :,31, 1) = (/&
+&1.5043E-03_JPRB,1.6903E-03_JPRB,1.9338E-03_JPRB,2.2497E-03_JPRB,2.6538E-03_JPRB/)
+KBO( :,32, 1) = (/&
+&1.2840E-03_JPRB,1.4547E-03_JPRB,1.6770E-03_JPRB,1.9662E-03_JPRB,2.3339E-03_JPRB/)
+KBO( :,33, 1) = (/&
+&1.1003E-03_JPRB,1.2566E-03_JPRB,1.4609E-03_JPRB,1.7254E-03_JPRB,2.0596E-03_JPRB/)
+KBO( :,34, 1) = (/&
+&9.4252E-04_JPRB,1.0841E-03_JPRB,1.2703E-03_JPRB,1.5103E-03_JPRB,1.8108E-03_JPRB/)
+KBO( :,35, 1) = (/&
+&7.9883E-04_JPRB,9.2438E-04_JPRB,1.0899E-03_JPRB,1.3019E-03_JPRB,1.5661E-03_JPRB/)
+KBO( :,36, 1) = (/&
+&6.6758E-04_JPRB,7.7591E-04_JPRB,9.1882E-04_JPRB,1.1013E-03_JPRB,1.3278E-03_JPRB/)
+KBO( :,37, 1) = (/&
+&5.4656E-04_JPRB,6.3617E-04_JPRB,7.5472E-04_JPRB,9.0662E-04_JPRB,1.0949E-03_JPRB/)
+KBO( :,38, 1) = (/&
+&4.4691E-04_JPRB,5.2075E-04_JPRB,6.1878E-04_JPRB,7.4481E-04_JPRB,9.0091E-04_JPRB/)
+KBO( :,39, 1) = (/&
+&3.6542E-04_JPRB,4.2618E-04_JPRB,5.0722E-04_JPRB,6.1164E-04_JPRB,7.4104E-04_JPRB/)
+KBO( :,40, 1) = (/&
+&2.9441E-04_JPRB,3.4292E-04_JPRB,4.0801E-04_JPRB,4.9232E-04_JPRB,5.9726E-04_JPRB/)
+KBO( :,41, 1) = (/&
+&2.3677E-04_JPRB,2.7525E-04_JPRB,3.2723E-04_JPRB,3.9501E-04_JPRB,4.7963E-04_JPRB/)
+KBO( :,42, 1) = (/&
+&1.9036E-04_JPRB,2.2088E-04_JPRB,2.6226E-04_JPRB,3.1664E-04_JPRB,3.8484E-04_JPRB/)
+KBO( :,43, 1) = (/&
+&1.5188E-04_JPRB,1.7566E-04_JPRB,2.0797E-04_JPRB,2.5103E-04_JPRB,3.0521E-04_JPRB/)
+KBO( :,44, 1) = (/&
+&1.2085E-04_JPRB,1.3918E-04_JPRB,1.6418E-04_JPRB,1.9786E-04_JPRB,2.4065E-04_JPRB/)
+KBO( :,45, 1) = (/&
+&9.6221E-05_JPRB,1.1032E-04_JPRB,1.2961E-04_JPRB,1.5587E-04_JPRB,1.8956E-04_JPRB/)
+KBO( :,46, 1) = (/&
+&7.6451E-05_JPRB,8.7222E-05_JPRB,1.0196E-04_JPRB,1.2223E-04_JPRB,1.4859E-04_JPRB/)
+KBO( :,47, 1) = (/&
+&6.0518E-05_JPRB,6.8617E-05_JPRB,7.9736E-05_JPRB,9.5061E-05_JPRB,1.1539E-04_JPRB/)
+KBO( :,48, 1) = (/&
+&4.7995E-05_JPRB,5.4058E-05_JPRB,6.2416E-05_JPRB,7.3982E-05_JPRB,8.9568E-05_JPRB/)
+KBO( :,49, 1) = (/&
+&3.8135E-05_JPRB,4.2643E-05_JPRB,4.8908E-05_JPRB,5.7603E-05_JPRB,6.9496E-05_JPRB/)
+KBO( :,50, 1) = (/&
+&3.0417E-05_JPRB,3.3789E-05_JPRB,3.8523E-05_JPRB,4.5097E-05_JPRB,5.4183E-05_JPRB/)
+KBO( :,51, 1) = (/&
+&2.4294E-05_JPRB,2.6856E-05_JPRB,3.0433E-05_JPRB,3.5411E-05_JPRB,4.2342E-05_JPRB/)
+KBO( :,52, 1) = (/&
+&1.9384E-05_JPRB,2.1372E-05_JPRB,2.4069E-05_JPRB,2.7837E-05_JPRB,3.3107E-05_JPRB/)
+KBO( :,53, 1) = (/&
+&1.5445E-05_JPRB,1.7027E-05_JPRB,1.9053E-05_JPRB,2.1903E-05_JPRB,2.5892E-05_JPRB/)
+KBO( :,54, 1) = (/&
+&1.2327E-05_JPRB,1.3603E-05_JPRB,1.5162E-05_JPRB,1.7332E-05_JPRB,2.0379E-05_JPRB/)
+KBO( :,55, 1) = (/&
+&9.8408E-06_JPRB,1.0879E-05_JPRB,1.2096E-05_JPRB,1.3752E-05_JPRB,1.6089E-05_JPRB/)
+KBO( :,56, 1) = (/&
+&7.8284E-06_JPRB,8.6964E-06_JPRB,9.6567E-06_JPRB,1.0920E-05_JPRB,1.2709E-05_JPRB/)
+KBO( :,57, 1) = (/&
+&6.2093E-06_JPRB,6.9436E-06_JPRB,7.7088E-06_JPRB,8.6775E-06_JPRB,1.0049E-05_JPRB/)
+KBO( :,58, 1) = (/&
+&4.9212E-06_JPRB,5.5457E-06_JPRB,6.1634E-06_JPRB,6.9165E-06_JPRB,7.9717E-06_JPRB/)
+KBO( :,59, 1) = (/&
+&3.9876E-06_JPRB,4.5117E-06_JPRB,5.0251E-06_JPRB,5.6457E-06_JPRB,6.5064E-06_JPRB/)
+KBO( :,13, 2) = (/&
+&1.3642E-01_JPRB,1.5192E-01_JPRB,1.7017E-01_JPRB,1.9179E-01_JPRB,2.1776E-01_JPRB/)
+KBO( :,14, 2) = (/&
+&1.1549E-01_JPRB,1.2903E-01_JPRB,1.4505E-01_JPRB,1.6416E-01_JPRB,1.8735E-01_JPRB/)
+KBO( :,15, 2) = (/&
+&9.7601E-02_JPRB,1.0941E-01_JPRB,1.2344E-01_JPRB,1.4044E-01_JPRB,1.6109E-01_JPRB/)
+KBO( :,16, 2) = (/&
+&8.2400E-02_JPRB,9.2656E-02_JPRB,1.0500E-01_JPRB,1.2010E-01_JPRB,1.3841E-01_JPRB/)
+KBO( :,17, 2) = (/&
+&6.9444E-02_JPRB,7.8382E-02_JPRB,8.9340E-02_JPRB,1.0266E-01_JPRB,1.1885E-01_JPRB/)
+KBO( :,18, 2) = (/&
+&5.8427E-02_JPRB,6.6311E-02_JPRB,7.5999E-02_JPRB,8.7777E-02_JPRB,1.0199E-01_JPRB/)
+KBO( :,19, 2) = (/&
+&4.9105E-02_JPRB,5.6056E-02_JPRB,6.4599E-02_JPRB,7.4928E-02_JPRB,8.7316E-02_JPRB/)
+KBO( :,20, 2) = (/&
+&4.1362E-02_JPRB,4.7500E-02_JPRB,5.4972E-02_JPRB,6.3982E-02_JPRB,7.4793E-02_JPRB/)
+KBO( :,21, 2) = (/&
+&3.4892E-02_JPRB,4.0253E-02_JPRB,4.6723E-02_JPRB,5.4540E-02_JPRB,6.3927E-02_JPRB/)
+KBO( :,22, 2) = (/&
+&2.9712E-02_JPRB,3.4419E-02_JPRB,4.0080E-02_JPRB,4.6923E-02_JPRB,5.5143E-02_JPRB/)
+KBO( :,23, 2) = (/&
+&2.5337E-02_JPRB,2.9440E-02_JPRB,3.4407E-02_JPRB,4.0399E-02_JPRB,4.7598E-02_JPRB/)
+KBO( :,24, 2) = (/&
+&2.1646E-02_JPRB,2.5231E-02_JPRB,2.9587E-02_JPRB,3.4849E-02_JPRB,4.1184E-02_JPRB/)
+KBO( :,25, 2) = (/&
+&1.8533E-02_JPRB,2.1686E-02_JPRB,2.5506E-02_JPRB,3.0158E-02_JPRB,3.5787E-02_JPRB/)
+KBO( :,26, 2) = (/&
+&1.5940E-02_JPRB,1.8720E-02_JPRB,2.2097E-02_JPRB,2.6247E-02_JPRB,3.1293E-02_JPRB/)
+KBO( :,27, 2) = (/&
+&1.3738E-02_JPRB,1.6188E-02_JPRB,1.9206E-02_JPRB,2.2922E-02_JPRB,2.7465E-02_JPRB/)
+KBO( :,28, 2) = (/&
+&1.1858E-02_JPRB,1.4036E-02_JPRB,1.6746E-02_JPRB,2.0086E-02_JPRB,2.4173E-02_JPRB/)
+KBO( :,29, 2) = (/&
+&1.0271E-02_JPRB,1.2222E-02_JPRB,1.4667E-02_JPRB,1.7690E-02_JPRB,2.1356E-02_JPRB/)
+KBO( :,30, 2) = (/&
+&8.9226E-03_JPRB,1.0686E-02_JPRB,1.2896E-02_JPRB,1.5632E-02_JPRB,1.8914E-02_JPRB/)
+KBO( :,31, 2) = (/&
+&7.7843E-03_JPRB,9.3890E-03_JPRB,1.1399E-02_JPRB,1.3861E-02_JPRB,1.6797E-02_JPRB/)
+KBO( :,32, 2) = (/&
+&6.8247E-03_JPRB,8.2905E-03_JPRB,1.0116E-02_JPRB,1.2328E-02_JPRB,1.4951E-02_JPRB/)
+KBO( :,33, 2) = (/&
+&6.0149E-03_JPRB,7.3520E-03_JPRB,8.9996E-03_JPRB,1.0989E-02_JPRB,1.3332E-02_JPRB/)
+KBO( :,34, 2) = (/&
+&5.2871E-03_JPRB,6.4941E-03_JPRB,7.9727E-03_JPRB,9.7480E-03_JPRB,1.1841E-02_JPRB/)
+KBO( :,35, 2) = (/&
+&4.5697E-03_JPRB,5.6343E-03_JPRB,6.9361E-03_JPRB,8.4981E-03_JPRB,1.0344E-02_JPRB/)
+KBO( :,36, 2) = (/&
+&3.8668E-03_JPRB,4.7847E-03_JPRB,5.9090E-03_JPRB,7.2600E-03_JPRB,8.8580E-03_JPRB/)
+KBO( :,37, 2) = (/&
+&3.1704E-03_JPRB,3.9381E-03_JPRB,4.8844E-03_JPRB,6.0241E-03_JPRB,7.3747E-03_JPRB/)
+KBO( :,38, 2) = (/&
+&2.5936E-03_JPRB,3.2350E-03_JPRB,4.0298E-03_JPRB,4.9900E-03_JPRB,6.1292E-03_JPRB/)
+KBO( :,39, 2) = (/&
+&2.1215E-03_JPRB,2.6573E-03_JPRB,3.3247E-03_JPRB,4.1335E-03_JPRB,5.0950E-03_JPRB/)
+KBO( :,40, 2) = (/&
+&1.6950E-03_JPRB,2.1322E-03_JPRB,2.6802E-03_JPRB,3.3483E-03_JPRB,4.1474E-03_JPRB/)
+KBO( :,41, 2) = (/&
+&1.3487E-03_JPRB,1.7036E-03_JPRB,2.1515E-03_JPRB,2.7015E-03_JPRB,3.3638E-03_JPRB/)
+KBO( :,42, 2) = (/&
+&1.0717E-03_JPRB,1.3591E-03_JPRB,1.7246E-03_JPRB,2.1766E-03_JPRB,2.7248E-03_JPRB/)
+KBO( :,43, 2) = (/&
+&8.3901E-04_JPRB,1.0683E-03_JPRB,1.3622E-03_JPRB,1.7292E-03_JPRB,2.1771E-03_JPRB/)
+KBO( :,44, 2) = (/&
+&6.5192E-04_JPRB,8.3311E-04_JPRB,1.0673E-03_JPRB,1.3624E-03_JPRB,1.7262E-03_JPRB/)
+KBO( :,45, 2) = (/&
+&5.0592E-04_JPRB,6.4840E-04_JPRB,8.3427E-04_JPRB,1.0708E-03_JPRB,1.3653E-03_JPRB/)
+KBO( :,46, 2) = (/&
+&3.9015E-04_JPRB,5.0066E-04_JPRB,6.4700E-04_JPRB,8.3496E-04_JPRB,1.0720E-03_JPRB/)
+KBO( :,47, 2) = (/&
+&2.9734E-04_JPRB,3.8142E-04_JPRB,4.9495E-04_JPRB,6.4229E-04_JPRB,8.3000E-04_JPRB/)
+KBO( :,48, 2) = (/&
+&2.2635E-04_JPRB,2.9002E-04_JPRB,3.7759E-04_JPRB,4.9244E-04_JPRB,6.4043E-04_JPRB/)
+KBO( :,49, 2) = (/&
+&1.7220E-04_JPRB,2.2034E-04_JPRB,2.8722E-04_JPRB,3.7634E-04_JPRB,4.9229E-04_JPRB/)
+KBO( :,50, 2) = (/&
+&1.3177E-04_JPRB,1.6818E-04_JPRB,2.1937E-04_JPRB,2.8871E-04_JPRB,3.7961E-04_JPRB/)
+KBO( :,51, 2) = (/&
+&1.0109E-04_JPRB,1.2859E-04_JPRB,1.6766E-04_JPRB,2.2156E-04_JPRB,2.9268E-04_JPRB/)
+KBO( :,52, 2) = (/&
+&7.7612E-05_JPRB,9.8243E-05_JPRB,1.2795E-04_JPRB,1.6959E-04_JPRB,2.2502E-04_JPRB/)
+KBO( :,53, 2) = (/&
+&5.9611E-05_JPRB,7.4979E-05_JPRB,9.7483E-05_JPRB,1.2940E-04_JPRB,1.7242E-04_JPRB/)
+KBO( :,54, 2) = (/&
+&4.6116E-05_JPRB,5.7675E-05_JPRB,7.4813E-05_JPRB,9.9354E-05_JPRB,1.3295E-04_JPRB/)
+KBO( :,55, 2) = (/&
+&3.5802E-05_JPRB,4.4529E-05_JPRB,5.7546E-05_JPRB,7.6441E-05_JPRB,1.0268E-04_JPRB/)
+KBO( :,56, 2) = (/&
+&2.7830E-05_JPRB,3.4393E-05_JPRB,4.4221E-05_JPRB,5.8724E-05_JPRB,7.9138E-05_JPRB/)
+KBO( :,57, 2) = (/&
+&2.1657E-05_JPRB,2.6571E-05_JPRB,3.3962E-05_JPRB,4.5038E-05_JPRB,6.0834E-05_JPRB/)
+KBO( :,58, 2) = (/&
+&1.6922E-05_JPRB,2.0621E-05_JPRB,2.6207E-05_JPRB,3.4660E-05_JPRB,4.6890E-05_JPRB/)
+KBO( :,59, 2) = (/&
+&1.3669E-05_JPRB,1.6659E-05_JPRB,2.1203E-05_JPRB,2.8141E-05_JPRB,3.8169E-05_JPRB/)
+KBO( :,13, 3) = (/&
+&4.6528E-01_JPRB,5.5437E-01_JPRB,6.5439E-01_JPRB,7.6387E-01_JPRB,8.8225E-01_JPRB/)
+KBO( :,14, 3) = (/&
+&4.0092E-01_JPRB,4.7676E-01_JPRB,5.6104E-01_JPRB,6.5300E-01_JPRB,7.5323E-01_JPRB/)
+KBO( :,15, 3) = (/&
+&3.4496E-01_JPRB,4.0936E-01_JPRB,4.8004E-01_JPRB,5.5783E-01_JPRB,6.4259E-01_JPRB/)
+KBO( :,16, 3) = (/&
+&2.9656E-01_JPRB,3.5091E-01_JPRB,4.1039E-01_JPRB,4.7609E-01_JPRB,5.4769E-01_JPRB/)
+KBO( :,17, 3) = (/&
+&2.5400E-01_JPRB,2.9985E-01_JPRB,3.5009E-01_JPRB,4.0555E-01_JPRB,4.6622E-01_JPRB/)
+KBO( :,18, 3) = (/&
+&2.1658E-01_JPRB,2.5524E-01_JPRB,2.9779E-01_JPRB,3.4497E-01_JPRB,3.9663E-01_JPRB/)
+KBO( :,19, 3) = (/&
+&1.8401E-01_JPRB,2.1660E-01_JPRB,2.5265E-01_JPRB,2.9293E-01_JPRB,3.3703E-01_JPRB/)
+KBO( :,20, 3) = (/&
+&1.5650E-01_JPRB,1.8401E-01_JPRB,2.1476E-01_JPRB,2.4926E-01_JPRB,2.8701E-01_JPRB/)
+KBO( :,21, 3) = (/&
+&1.3298E-01_JPRB,1.5631E-01_JPRB,1.8271E-01_JPRB,2.1234E-01_JPRB,2.4465E-01_JPRB/)
+KBO( :,22, 3) = (/&
+&1.1417E-01_JPRB,1.3429E-01_JPRB,1.5724E-01_JPRB,1.8276E-01_JPRB,2.1037E-01_JPRB/)
+KBO( :,23, 3) = (/&
+&9.8014E-02_JPRB,1.1558E-01_JPRB,1.3557E-01_JPRB,1.5742E-01_JPRB,1.8091E-01_JPRB/)
+KBO( :,24, 3) = (/&
+&8.4303E-02_JPRB,9.9682E-02_JPRB,1.1696E-01_JPRB,1.3564E-01_JPRB,1.5560E-01_JPRB/)
+KBO( :,25, 3) = (/&
+&7.2747E-02_JPRB,8.6163E-02_JPRB,1.0094E-01_JPRB,1.1688E-01_JPRB,1.3386E-01_JPRB/)
+KBO( :,26, 3) = (/&
+&6.3075E-02_JPRB,7.4679E-02_JPRB,8.7296E-02_JPRB,1.0089E-01_JPRB,1.1530E-01_JPRB/)
+KBO( :,27, 3) = (/&
+&5.4748E-02_JPRB,6.4713E-02_JPRB,7.5472E-02_JPRB,8.7090E-02_JPRB,9.9299E-02_JPRB/)
+KBO( :,28, 3) = (/&
+&4.7545E-02_JPRB,5.6049E-02_JPRB,6.5267E-02_JPRB,7.5162E-02_JPRB,8.5597E-02_JPRB/)
+KBO( :,29, 3) = (/&
+&4.1339E-02_JPRB,4.8610E-02_JPRB,5.6528E-02_JPRB,6.4950E-02_JPRB,7.3930E-02_JPRB/)
+KBO( :,30, 3) = (/&
+&3.5954E-02_JPRB,4.2191E-02_JPRB,4.8989E-02_JPRB,5.6214E-02_JPRB,6.3907E-02_JPRB/)
+KBO( :,31, 3) = (/&
+&3.1296E-02_JPRB,3.6680E-02_JPRB,4.2495E-02_JPRB,4.8776E-02_JPRB,5.5328E-02_JPRB/)
+KBO( :,32, 3) = (/&
+&2.7277E-02_JPRB,3.1929E-02_JPRB,3.6963E-02_JPRB,4.2388E-02_JPRB,4.7945E-02_JPRB/)
+KBO( :,33, 3) = (/&
+&2.3800E-02_JPRB,2.7822E-02_JPRB,3.2216E-02_JPRB,3.6870E-02_JPRB,4.1544E-02_JPRB/)
+KBO( :,34, 3) = (/&
+&2.0672E-02_JPRB,2.4161E-02_JPRB,2.7975E-02_JPRB,3.1921E-02_JPRB,3.5834E-02_JPRB/)
+KBO( :,35, 3) = (/&
+&1.7697E-02_JPRB,2.0710E-02_JPRB,2.3987E-02_JPRB,2.7306E-02_JPRB,3.0580E-02_JPRB/)
+KBO( :,36, 3) = (/&
+&1.4902E-02_JPRB,1.7480E-02_JPRB,2.0264E-02_JPRB,2.3055E-02_JPRB,2.5809E-02_JPRB/)
+KBO( :,37, 3) = (/&
+&1.2253E-02_JPRB,1.4429E-02_JPRB,1.6775E-02_JPRB,1.9126E-02_JPRB,2.1452E-02_JPRB/)
+KBO( :,38, 3) = (/&
+&1.0063E-02_JPRB,1.1900E-02_JPRB,1.3875E-02_JPRB,1.5855E-02_JPRB,1.7824E-02_JPRB/)
+KBO( :,39, 3) = (/&
+&8.2683E-03_JPRB,9.8196E-03_JPRB,1.1482E-02_JPRB,1.3151E-02_JPRB,1.4822E-02_JPRB/)
+KBO( :,40, 3) = (/&
+&6.6706E-03_JPRB,7.9659E-03_JPRB,9.3641E-03_JPRB,1.0772E-02_JPRB,1.2185E-02_JPRB/)
+KBO( :,41, 3) = (/&
+&5.3639E-03_JPRB,6.4425E-03_JPRB,7.6176E-03_JPRB,8.8040E-03_JPRB,9.9984E-03_JPRB/)
+KBO( :,42, 3) = (/&
+&4.3069E-03_JPRB,5.2039E-03_JPRB,6.1906E-03_JPRB,7.1908E-03_JPRB,8.2008E-03_JPRB/)
+KBO( :,43, 3) = (/&
+&3.4140E-03_JPRB,4.1540E-03_JPRB,4.9779E-03_JPRB,5.8242E-03_JPRB,6.6751E-03_JPRB/)
+KBO( :,44, 3) = (/&
+&2.6853E-03_JPRB,3.2927E-03_JPRB,3.9767E-03_JPRB,4.6909E-03_JPRB,5.4086E-03_JPRB/)
+KBO( :,45, 3) = (/&
+&2.1067E-03_JPRB,2.6025E-03_JPRB,3.1683E-03_JPRB,3.7707E-03_JPRB,4.3756E-03_JPRB/)
+KBO( :,46, 3) = (/&
+&1.6407E-03_JPRB,2.0417E-03_JPRB,2.5060E-03_JPRB,3.0128E-03_JPRB,3.5248E-03_JPRB/)
+KBO( :,47, 3) = (/&
+&1.2608E-03_JPRB,1.5817E-03_JPRB,1.9591E-03_JPRB,2.3817E-03_JPRB,2.8141E-03_JPRB/)
+KBO( :,48, 3) = (/&
+&9.6508E-04_JPRB,1.2203E-03_JPRB,1.5253E-03_JPRB,1.8746E-03_JPRB,2.2397E-03_JPRB/)
+KBO( :,49, 3) = (/&
+&7.3585E-04_JPRB,9.3796E-04_JPRB,1.1824E-03_JPRB,1.4683E-03_JPRB,1.7760E-03_JPRB/)
+KBO( :,50, 3) = (/&
+&5.6241E-04_JPRB,7.2242E-04_JPRB,9.1862E-04_JPRB,1.1510E-03_JPRB,1.4096E-03_JPRB/)
+KBO( :,51, 3) = (/&
+&4.2964E-04_JPRB,5.5593E-04_JPRB,7.1290E-04_JPRB,9.0146E-04_JPRB,1.1171E-03_JPRB/)
+KBO( :,52, 3) = (/&
+&3.2726E-04_JPRB,4.2631E-04_JPRB,5.5102E-04_JPRB,7.0359E-04_JPRB,8.8175E-04_JPRB/)
+KBO( :,53, 3) = (/&
+&2.4838E-04_JPRB,3.2560E-04_JPRB,4.2431E-04_JPRB,5.4692E-04_JPRB,6.9286E-04_JPRB/)
+KBO( :,54, 3) = (/&
+&1.8942E-04_JPRB,2.4999E-04_JPRB,3.2832E-04_JPRB,4.2678E-04_JPRB,5.4592E-04_JPRB/)
+KBO( :,55, 3) = (/&
+&1.4456E-04_JPRB,1.9209E-04_JPRB,2.5406E-04_JPRB,3.3310E-04_JPRB,4.3005E-04_JPRB/)
+KBO( :,56, 3) = (/&
+&1.1005E-04_JPRB,1.4722E-04_JPRB,1.9603E-04_JPRB,2.5905E-04_JPRB,3.3773E-04_JPRB/)
+KBO( :,57, 3) = (/&
+&8.3591E-05_JPRB,1.1253E-04_JPRB,1.5073E-04_JPRB,2.0071E-04_JPRB,2.6434E-04_JPRB/)
+KBO( :,58, 3) = (/&
+&6.3746E-05_JPRB,8.6176E-05_JPRB,1.1609E-04_JPRB,1.5578E-04_JPRB,2.0708E-04_JPRB/)
+KBO( :,59, 3) = (/&
+&5.1259E-05_JPRB,6.9567E-05_JPRB,9.4236E-05_JPRB,1.2739E-04_JPRB,1.7028E-04_JPRB/)
+KBO( :,13, 4) = (/&
+&1.7515E+00_JPRB,1.9495E+00_JPRB,2.1521E+00_JPRB,2.3581E+00_JPRB,2.5501E+00_JPRB/)
+KBO( :,14, 4) = (/&
+&1.4765E+00_JPRB,1.6496E+00_JPRB,1.8290E+00_JPRB,2.0062E+00_JPRB,2.1622E+00_JPRB/)
+KBO( :,15, 4) = (/&
+&1.2492E+00_JPRB,1.4011E+00_JPRB,1.5567E+00_JPRB,1.6989E+00_JPRB,1.8218E+00_JPRB/)
+KBO( :,16, 4) = (/&
+&1.0604E+00_JPRB,1.1904E+00_JPRB,1.3179E+00_JPRB,1.4307E+00_JPRB,1.5294E+00_JPRB/)
+KBO( :,17, 4) = (/&
+&8.9936E-01_JPRB,1.0071E+00_JPRB,1.1099E+00_JPRB,1.2005E+00_JPRB,1.2809E+00_JPRB/)
+KBO( :,18, 4) = (/&
+&7.6142E-01_JPRB,8.4995E-01_JPRB,9.3267E-01_JPRB,1.0060E+00_JPRB,1.0720E+00_JPRB/)
+KBO( :,19, 4) = (/&
+&6.4349E-01_JPRB,7.1626E-01_JPRB,7.8316E-01_JPRB,8.4250E-01_JPRB,8.9631E-01_JPRB/)
+KBO( :,20, 4) = (/&
+&5.4427E-01_JPRB,6.0390E-01_JPRB,6.5771E-01_JPRB,7.0547E-01_JPRB,7.4978E-01_JPRB/)
+KBO( :,21, 4) = (/&
+&4.5925E-01_JPRB,5.0777E-01_JPRB,5.5117E-01_JPRB,5.9049E-01_JPRB,6.2731E-01_JPRB/)
+KBO( :,22, 4) = (/&
+&3.8923E-01_JPRB,4.2824E-01_JPRB,4.6341E-01_JPRB,4.9590E-01_JPRB,5.2688E-01_JPRB/)
+KBO( :,23, 4) = (/&
+&3.2937E-01_JPRB,3.6081E-01_JPRB,3.8954E-01_JPRB,4.1663E-01_JPRB,4.4301E-01_JPRB/)
+KBO( :,24, 4) = (/&
+&2.7854E-01_JPRB,3.0409E-01_JPRB,3.2784E-01_JPRB,3.5064E-01_JPRB,3.7278E-01_JPRB/)
+KBO( :,25, 4) = (/&
+&2.3559E-01_JPRB,2.5658E-01_JPRB,2.7647E-01_JPRB,2.9561E-01_JPRB,3.1381E-01_JPRB/)
+KBO( :,26, 4) = (/&
+&1.9962E-01_JPRB,2.1703E-01_JPRB,2.3374E-01_JPRB,2.4963E-01_JPRB,2.6441E-01_JPRB/)
+KBO( :,27, 4) = (/&
+&1.6921E-01_JPRB,1.8380E-01_JPRB,1.9768E-01_JPRB,2.1076E-01_JPRB,2.2287E-01_JPRB/)
+KBO( :,28, 4) = (/&
+&1.4345E-01_JPRB,1.5565E-01_JPRB,1.6716E-01_JPRB,1.7793E-01_JPRB,1.8788E-01_JPRB/)
+KBO( :,29, 4) = (/&
+&1.2177E-01_JPRB,1.3186E-01_JPRB,1.4136E-01_JPRB,1.5019E-01_JPRB,1.5853E-01_JPRB/)
+KBO( :,30, 4) = (/&
+&1.0336E-01_JPRB,1.1168E-01_JPRB,1.1949E-01_JPRB,1.2673E-01_JPRB,1.3395E-01_JPRB/)
+KBO( :,31, 4) = (/&
+&8.7734E-02_JPRB,9.4596E-02_JPRB,1.0101E-01_JPRB,1.0703E-01_JPRB,1.1341E-01_JPRB/)
+KBO( :,32, 4) = (/&
+&7.4481E-02_JPRB,8.0126E-02_JPRB,8.5362E-02_JPRB,9.0546E-02_JPRB,9.6274E-02_JPRB/)
+KBO( :,33, 4) = (/&
+&6.3213E-02_JPRB,6.7862E-02_JPRB,7.2206E-02_JPRB,7.6786E-02_JPRB,8.2026E-02_JPRB/)
+KBO( :,34, 4) = (/&
+&5.3531E-02_JPRB,5.7349E-02_JPRB,6.1073E-02_JPRB,6.5202E-02_JPRB,6.9973E-02_JPRB/)
+KBO( :,35, 4) = (/&
+&4.5020E-02_JPRB,4.8200E-02_JPRB,5.1452E-02_JPRB,5.5159E-02_JPRB,5.9429E-02_JPRB/)
+KBO( :,36, 4) = (/&
+&3.7576E-02_JPRB,4.0274E-02_JPRB,4.3123E-02_JPRB,4.6399E-02_JPRB,5.0146E-02_JPRB/)
+KBO( :,37, 4) = (/&
+&3.1036E-02_JPRB,3.3333E-02_JPRB,3.5789E-02_JPRB,3.8617E-02_JPRB,4.1842E-02_JPRB/)
+KBO( :,38, 4) = (/&
+&2.5615E-02_JPRB,2.7577E-02_JPRB,2.9689E-02_JPRB,3.2124E-02_JPRB,3.4898E-02_JPRB/)
+KBO( :,39, 4) = (/&
+&2.1142E-02_JPRB,2.2815E-02_JPRB,2.4636E-02_JPRB,2.6727E-02_JPRB,2.9117E-02_JPRB/)
+KBO( :,40, 4) = (/&
+&1.7305E-02_JPRB,1.8730E-02_JPRB,2.0274E-02_JPRB,2.2044E-02_JPRB,2.4076E-02_JPRB/)
+KBO( :,41, 4) = (/&
+&1.4141E-02_JPRB,1.5353E-02_JPRB,1.6658E-02_JPRB,1.8154E-02_JPRB,1.9875E-02_JPRB/)
+KBO( :,42, 4) = (/&
+&1.1548E-02_JPRB,1.2579E-02_JPRB,1.3681E-02_JPRB,1.4943E-02_JPRB,1.6400E-02_JPRB/)
+KBO( :,43, 4) = (/&
+&9.3739E-03_JPRB,1.0251E-02_JPRB,1.1178E-02_JPRB,1.2234E-02_JPRB,1.3456E-02_JPRB/)
+KBO( :,44, 4) = (/&
+&7.5827E-03_JPRB,8.3302E-03_JPRB,9.1085E-03_JPRB,9.9874E-03_JPRB,1.1008E-02_JPRB/)
+KBO( :,45, 4) = (/&
+&6.1263E-03_JPRB,6.7635E-03_JPRB,7.4181E-03_JPRB,8.1480E-03_JPRB,8.9981E-03_JPRB/)
+KBO( :,46, 4) = (/&
+&4.9321E-03_JPRB,5.4733E-03_JPRB,6.0244E-03_JPRB,6.6282E-03_JPRB,7.3328E-03_JPRB/)
+KBO( :,47, 4) = (/&
+&3.9434E-03_JPRB,4.4020E-03_JPRB,4.8671E-03_JPRB,5.3648E-03_JPRB,5.9417E-03_JPRB/)
+KBO( :,48, 4) = (/&
+&3.1433E-03_JPRB,3.5325E-03_JPRB,3.9255E-03_JPRB,4.3369E-03_JPRB,4.8087E-03_JPRB/)
+KBO( :,49, 4) = (/&
+&2.4978E-03_JPRB,2.8291E-03_JPRB,3.1605E-03_JPRB,3.5019E-03_JPRB,3.8874E-03_JPRB/)
+KBO( :,50, 4) = (/&
+&1.9842E-03_JPRB,2.2663E-03_JPRB,2.5454E-03_JPRB,2.8316E-03_JPRB,3.1474E-03_JPRB/)
+KBO( :,51, 4) = (/&
+&1.5720E-03_JPRB,1.8131E-03_JPRB,2.0480E-03_JPRB,2.2890E-03_JPRB,2.5485E-03_JPRB/)
+KBO( :,52, 4) = (/&
+&1.2397E-03_JPRB,1.4466E-03_JPRB,1.6443E-03_JPRB,1.8471E-03_JPRB,2.0617E-03_JPRB/)
+KBO( :,53, 4) = (/&
+&9.7269E-04_JPRB,1.1506E-03_JPRB,1.3170E-03_JPRB,1.4882E-03_JPRB,1.6660E-03_JPRB/)
+KBO( :,54, 4) = (/&
+&7.6427E-04_JPRB,9.1578E-04_JPRB,1.0573E-03_JPRB,1.2008E-03_JPRB,1.3494E-03_JPRB/)
+KBO( :,55, 4) = (/&
+&5.9962E-04_JPRB,7.2798E-04_JPRB,8.4833E-04_JPRB,9.6858E-04_JPRB,1.0933E-03_JPRB/)
+KBO( :,56, 4) = (/&
+&4.6816E-04_JPRB,5.7642E-04_JPRB,6.7912E-04_JPRB,7.7992E-04_JPRB,8.8480E-04_JPRB/)
+KBO( :,57, 4) = (/&
+&3.6414E-04_JPRB,4.5440E-04_JPRB,5.4227E-04_JPRB,6.2686E-04_JPRB,7.1489E-04_JPRB/)
+KBO( :,58, 4) = (/&
+&2.8365E-04_JPRB,3.5805E-04_JPRB,4.3286E-04_JPRB,5.0398E-04_JPRB,5.7785E-04_JPRB/)
+KBO( :,59, 4) = (/&
+&2.3044E-04_JPRB,2.9262E-04_JPRB,3.5550E-04_JPRB,4.1574E-04_JPRB,4.7795E-04_JPRB/)
+KBO( :,13, 5) = (/&
+&4.6093E+00_JPRB,4.6787E+00_JPRB,4.7279E+00_JPRB,4.7779E+00_JPRB,4.8597E+00_JPRB/)
+KBO( :,14, 5) = (/&
+&3.8282E+00_JPRB,3.8821E+00_JPRB,3.9279E+00_JPRB,3.9847E+00_JPRB,4.0757E+00_JPRB/)
+KBO( :,15, 5) = (/&
+&3.1725E+00_JPRB,3.2179E+00_JPRB,3.2654E+00_JPRB,3.3336E+00_JPRB,3.4242E+00_JPRB/)
+KBO( :,16, 5) = (/&
+&2.6254E+00_JPRB,2.6717E+00_JPRB,2.7257E+00_JPRB,2.7935E+00_JPRB,2.8681E+00_JPRB/)
+KBO( :,17, 5) = (/&
+&2.1766E+00_JPRB,2.2257E+00_JPRB,2.2759E+00_JPRB,2.3323E+00_JPRB,2.3943E+00_JPRB/)
+KBO( :,18, 5) = (/&
+&1.8104E+00_JPRB,1.8529E+00_JPRB,1.8948E+00_JPRB,1.9412E+00_JPRB,1.9943E+00_JPRB/)
+KBO( :,19, 5) = (/&
+&1.5048E+00_JPRB,1.5390E+00_JPRB,1.5736E+00_JPRB,1.6140E+00_JPRB,1.6604E+00_JPRB/)
+KBO( :,20, 5) = (/&
+&1.2496E+00_JPRB,1.2771E+00_JPRB,1.3070E+00_JPRB,1.3421E+00_JPRB,1.3834E+00_JPRB/)
+KBO( :,21, 5) = (/&
+&1.0376E+00_JPRB,1.0603E+00_JPRB,1.0863E+00_JPRB,1.1161E+00_JPRB,1.1527E+00_JPRB/)
+KBO( :,22, 5) = (/&
+&8.6290E-01_JPRB,8.8239E-01_JPRB,9.0428E-01_JPRB,9.3058E-01_JPRB,9.6346E-01_JPRB/)
+KBO( :,23, 5) = (/&
+&7.1714E-01_JPRB,7.3382E-01_JPRB,7.5282E-01_JPRB,7.7698E-01_JPRB,8.0640E-01_JPRB/)
+KBO( :,24, 5) = (/&
+&5.9554E-01_JPRB,6.0982E-01_JPRB,6.2698E-01_JPRB,6.4926E-01_JPRB,6.7588E-01_JPRB/)
+KBO( :,25, 5) = (/&
+&4.9438E-01_JPRB,5.0695E-01_JPRB,5.2299E-01_JPRB,5.4349E-01_JPRB,5.6801E-01_JPRB/)
+KBO( :,26, 5) = (/&
+&4.1054E-01_JPRB,4.2226E-01_JPRB,4.3732E-01_JPRB,4.5640E-01_JPRB,4.7888E-01_JPRB/)
+KBO( :,27, 5) = (/&
+&3.4145E-01_JPRB,3.5257E-01_JPRB,3.6692E-01_JPRB,3.8422E-01_JPRB,4.0431E-01_JPRB/)
+KBO( :,28, 5) = (/&
+&2.8483E-01_JPRB,2.9535E-01_JPRB,3.0859E-01_JPRB,3.2404E-01_JPRB,3.4192E-01_JPRB/)
+KBO( :,29, 5) = (/&
+&2.3827E-01_JPRB,2.4827E-01_JPRB,2.6013E-01_JPRB,2.7398E-01_JPRB,2.9004E-01_JPRB/)
+KBO( :,30, 5) = (/&
+&1.9983E-01_JPRB,2.0911E-01_JPRB,2.1978E-01_JPRB,2.3227E-01_JPRB,2.4681E-01_JPRB/)
+KBO( :,31, 5) = (/&
+&1.6804E-01_JPRB,1.7642E-01_JPRB,1.8613E-01_JPRB,1.9752E-01_JPRB,2.1089E-01_JPRB/)
+KBO( :,32, 5) = (/&
+&1.4159E-01_JPRB,1.4918E-01_JPRB,1.5803E-01_JPRB,1.6847E-01_JPRB,1.8108E-01_JPRB/)
+KBO( :,33, 5) = (/&
+&1.1954E-01_JPRB,1.2642E-01_JPRB,1.3455E-01_JPRB,1.4426E-01_JPRB,1.5610E-01_JPRB/)
+KBO( :,34, 5) = (/&
+&1.0095E-01_JPRB,1.0717E-01_JPRB,1.1462E-01_JPRB,1.2375E-01_JPRB,1.3481E-01_JPRB/)
+KBO( :,35, 5) = (/&
+&8.4924E-02_JPRB,9.0501E-02_JPRB,9.7279E-02_JPRB,1.0569E-01_JPRB,1.1588E-01_JPRB/)
+KBO( :,36, 5) = (/&
+&7.1064E-02_JPRB,7.5984E-02_JPRB,8.2057E-02_JPRB,8.9603E-02_JPRB,9.8847E-02_JPRB/)
+KBO( :,37, 5) = (/&
+&5.8932E-02_JPRB,6.3161E-02_JPRB,6.8439E-02_JPRB,7.5043E-02_JPRB,8.3182E-02_JPRB/)
+KBO( :,38, 5) = (/&
+&4.8865E-02_JPRB,5.2499E-02_JPRB,5.7079E-02_JPRB,6.2859E-02_JPRB,7.0017E-02_JPRB/)
+KBO( :,39, 5) = (/&
+&4.0531E-02_JPRB,4.3655E-02_JPRB,4.7640E-02_JPRB,5.2727E-02_JPRB,5.9016E-02_JPRB/)
+KBO( :,40, 5) = (/&
+&3.3380E-02_JPRB,3.6019E-02_JPRB,3.9402E-02_JPRB,4.3769E-02_JPRB,4.9191E-02_JPRB/)
+KBO( :,41, 5) = (/&
+&2.7463E-02_JPRB,2.9675E-02_JPRB,3.2537E-02_JPRB,3.6268E-02_JPRB,4.0932E-02_JPRB/)
+KBO( :,42, 5) = (/&
+&2.2583E-02_JPRB,2.4432E-02_JPRB,2.6850E-02_JPRB,3.0032E-02_JPRB,3.4041E-02_JPRB/)
+KBO( :,43, 5) = (/&
+&1.8485E-02_JPRB,2.0010E-02_JPRB,2.2013E-02_JPRB,2.4687E-02_JPRB,2.8084E-02_JPRB/)
+KBO( :,44, 5) = (/&
+&1.5098E-02_JPRB,1.6344E-02_JPRB,1.7988E-02_JPRB,2.0205E-02_JPRB,2.3066E-02_JPRB/)
+KBO( :,45, 5) = (/&
+&1.2325E-02_JPRB,1.3345E-02_JPRB,1.4686E-02_JPRB,1.6519E-02_JPRB,1.8916E-02_JPRB/)
+KBO( :,46, 5) = (/&
+&1.0042E-02_JPRB,1.0870E-02_JPRB,1.1952E-02_JPRB,1.3450E-02_JPRB,1.5443E-02_JPRB/)
+KBO( :,47, 5) = (/&
+&8.1480E-03_JPRB,8.8179E-03_JPRB,9.6778E-03_JPRB,1.0879E-02_JPRB,1.2508E-02_JPRB/)
+KBO( :,48, 5) = (/&
+&6.6080E-03_JPRB,7.1502E-03_JPRB,7.8346E-03_JPRB,8.7926E-03_JPRB,1.0114E-02_JPRB/)
+KBO( :,49, 5) = (/&
+&5.3563E-03_JPRB,5.7957E-03_JPRB,6.3414E-03_JPRB,7.1019E-03_JPRB,8.1661E-03_JPRB/)
+KBO( :,50, 5) = (/&
+&4.3491E-03_JPRB,4.7045E-03_JPRB,5.1464E-03_JPRB,5.7505E-03_JPRB,6.6095E-03_JPRB/)
+KBO( :,51, 5) = (/&
+&3.5331E-03_JPRB,3.8208E-03_JPRB,4.1803E-03_JPRB,4.6605E-03_JPRB,5.3531E-03_JPRB/)
+KBO( :,52, 5) = (/&
+&2.8692E-03_JPRB,3.1024E-03_JPRB,3.3948E-03_JPRB,3.7764E-03_JPRB,4.3307E-03_JPRB/)
+KBO( :,53, 5) = (/&
+&2.3284E-03_JPRB,2.5177E-03_JPRB,2.7545E-03_JPRB,3.0575E-03_JPRB,3.4986E-03_JPRB/)
+KBO( :,54, 5) = (/&
+&1.8918E-03_JPRB,2.0476E-03_JPRB,2.2400E-03_JPRB,2.4835E-03_JPRB,2.8364E-03_JPRB/)
+KBO( :,55, 5) = (/&
+&1.5376E-03_JPRB,1.6662E-03_JPRB,1.8225E-03_JPRB,2.0195E-03_JPRB,2.3020E-03_JPRB/)
+KBO( :,56, 5) = (/&
+&1.2490E-03_JPRB,1.3549E-03_JPRB,1.4817E-03_JPRB,1.6414E-03_JPRB,1.8660E-03_JPRB/)
+KBO( :,57, 5) = (/&
+&1.0129E-03_JPRB,1.1011E-03_JPRB,1.2038E-03_JPRB,1.3331E-03_JPRB,1.5112E-03_JPRB/)
+KBO( :,58, 5) = (/&
+&8.2101E-04_JPRB,8.9501E-04_JPRB,9.7881E-04_JPRB,1.0839E-03_JPRB,1.2260E-03_JPRB/)
+KBO( :,59, 5) = (/&
+&6.7572E-04_JPRB,7.3861E-04_JPRB,8.0949E-04_JPRB,8.9902E-04_JPRB,1.0203E-03_JPRB/)
+KBO( :,13, 6) = (/&
+&8.6113E+00_JPRB,8.6083E+00_JPRB,8.6450E+00_JPRB,8.7235E+00_JPRB,8.8556E+00_JPRB/)
+KBO( :,14, 6) = (/&
+&7.2014E+00_JPRB,7.2025E+00_JPRB,7.2397E+00_JPRB,7.3254E+00_JPRB,7.4723E+00_JPRB/)
+KBO( :,15, 6) = (/&
+&6.0044E+00_JPRB,6.0112E+00_JPRB,6.0572E+00_JPRB,6.1588E+00_JPRB,6.3194E+00_JPRB/)
+KBO( :,16, 6) = (/&
+&4.9871E+00_JPRB,5.0011E+00_JPRB,5.0609E+00_JPRB,5.1819E+00_JPRB,5.3526E+00_JPRB/)
+KBO( :,17, 6) = (/&
+&4.1295E+00_JPRB,4.1562E+00_JPRB,4.2380E+00_JPRB,4.3711E+00_JPRB,4.5320E+00_JPRB/)
+KBO( :,18, 6) = (/&
+&3.4160E+00_JPRB,3.4619E+00_JPRB,3.5592E+00_JPRB,3.6837E+00_JPRB,3.8207E+00_JPRB/)
+KBO( :,19, 6) = (/&
+&2.8320E+00_JPRB,2.8936E+00_JPRB,2.9843E+00_JPRB,3.0907E+00_JPRB,3.2080E+00_JPRB/)
+KBO( :,20, 6) = (/&
+&2.3566E+00_JPRB,2.4173E+00_JPRB,2.4971E+00_JPRB,2.5878E+00_JPRB,2.6909E+00_JPRB/)
+KBO( :,21, 6) = (/&
+&1.9610E+00_JPRB,2.0160E+00_JPRB,2.0844E+00_JPRB,2.1648E+00_JPRB,2.2552E+00_JPRB/)
+KBO( :,22, 6) = (/&
+&1.6333E+00_JPRB,1.6835E+00_JPRB,1.7446E+00_JPRB,1.8165E+00_JPRB,1.8978E+00_JPRB/)
+KBO( :,23, 6) = (/&
+&1.3622E+00_JPRB,1.4076E+00_JPRB,1.4625E+00_JPRB,1.5261E+00_JPRB,1.5991E+00_JPRB/)
+KBO( :,24, 6) = (/&
+&1.1385E+00_JPRB,1.1796E+00_JPRB,1.2278E+00_JPRB,1.2843E+00_JPRB,1.3507E+00_JPRB/)
+KBO( :,25, 6) = (/&
+&9.5319E-01_JPRB,9.8944E-01_JPRB,1.0319E+00_JPRB,1.0833E+00_JPRB,1.1441E+00_JPRB/)
+KBO( :,26, 6) = (/&
+&7.9849E-01_JPRB,8.3054E-01_JPRB,8.6957E-01_JPRB,9.1733E-01_JPRB,9.7330E-01_JPRB/)
+KBO( :,27, 6) = (/&
+&6.6899E-01_JPRB,6.9794E-01_JPRB,7.3432E-01_JPRB,7.7906E-01_JPRB,8.3118E-01_JPRB/)
+KBO( :,28, 6) = (/&
+&5.6075E-01_JPRB,5.8798E-01_JPRB,6.2243E-01_JPRB,6.6420E-01_JPRB,7.1248E-01_JPRB/)
+KBO( :,29, 6) = (/&
+&4.7122E-01_JPRB,4.9735E-01_JPRB,5.3000E-01_JPRB,5.6898E-01_JPRB,6.1331E-01_JPRB/)
+KBO( :,30, 6) = (/&
+&3.9766E-01_JPRB,4.2278E-01_JPRB,4.5340E-01_JPRB,4.8935E-01_JPRB,5.2965E-01_JPRB/)
+KBO( :,31, 6) = (/&
+&3.3747E-01_JPRB,3.6139E-01_JPRB,3.8970E-01_JPRB,4.2246E-01_JPRB,4.5888E-01_JPRB/)
+KBO( :,32, 6) = (/&
+&2.8804E-01_JPRB,3.1035E-01_JPRB,3.3634E-01_JPRB,3.6608E-01_JPRB,3.9890E-01_JPRB/)
+KBO( :,33, 6) = (/&
+&2.4714E-01_JPRB,2.6763E-01_JPRB,2.9142E-01_JPRB,3.1834E-01_JPRB,3.4859E-01_JPRB/)
+KBO( :,34, 6) = (/&
+&2.1224E-01_JPRB,2.3103E-01_JPRB,2.5268E-01_JPRB,2.7715E-01_JPRB,3.0529E-01_JPRB/)
+KBO( :,35, 6) = (/&
+&1.8132E-01_JPRB,1.9841E-01_JPRB,2.1788E-01_JPRB,2.4021E-01_JPRB,2.6615E-01_JPRB/)
+KBO( :,36, 6) = (/&
+&1.5372E-01_JPRB,1.6906E-01_JPRB,1.8646E-01_JPRB,2.0663E-01_JPRB,2.3032E-01_JPRB/)
+KBO( :,37, 6) = (/&
+&1.2864E-01_JPRB,1.4207E-01_JPRB,1.5741E-01_JPRB,1.7532E-01_JPRB,1.9647E-01_JPRB/)
+KBO( :,38, 6) = (/&
+&1.0758E-01_JPRB,1.1934E-01_JPRB,1.3284E-01_JPRB,1.4872E-01_JPRB,1.6769E-01_JPRB/)
+KBO( :,39, 6) = (/&
+&9.0014E-02_JPRB,1.0028E-01_JPRB,1.1215E-01_JPRB,1.2626E-01_JPRB,1.4329E-01_JPRB/)
+KBO( :,40, 6) = (/&
+&7.4527E-02_JPRB,8.3327E-02_JPRB,9.3593E-02_JPRB,1.0586E-01_JPRB,1.2084E-01_JPRB/)
+KBO( :,41, 6) = (/&
+&6.1610E-02_JPRB,6.9119E-02_JPRB,7.7943E-02_JPRB,8.8568E-02_JPRB,1.0169E-01_JPRB/)
+KBO( :,42, 6) = (/&
+&5.0916E-02_JPRB,5.7313E-02_JPRB,6.4881E-02_JPRB,7.4072E-02_JPRB,8.5537E-02_JPRB/)
+KBO( :,43, 6) = (/&
+&4.1772E-02_JPRB,4.7174E-02_JPRB,5.3598E-02_JPRB,6.1449E-02_JPRB,7.1316E-02_JPRB/)
+KBO( :,44, 6) = (/&
+&3.4127E-02_JPRB,3.8669E-02_JPRB,4.4102E-02_JPRB,5.0754E-02_JPRB,5.9162E-02_JPRB/)
+KBO( :,45, 6) = (/&
+&2.7847E-02_JPRB,3.1650E-02_JPRB,3.6246E-02_JPRB,4.1879E-02_JPRB,4.9025E-02_JPRB/)
+KBO( :,46, 6) = (/&
+&2.2640E-02_JPRB,2.5789E-02_JPRB,2.9652E-02_JPRB,3.4397E-02_JPRB,4.0430E-02_JPRB/)
+KBO( :,47, 6) = (/&
+&1.8270E-02_JPRB,2.0851E-02_JPRB,2.4060E-02_JPRB,2.8007E-02_JPRB,3.3038E-02_JPRB/)
+KBO( :,48, 6) = (/&
+&1.4718E-02_JPRB,1.6825E-02_JPRB,1.9472E-02_JPRB,2.2745E-02_JPRB,2.6928E-02_JPRB/)
+KBO( :,49, 6) = (/&
+&1.1830E-02_JPRB,1.3552E-02_JPRB,1.5716E-02_JPRB,1.8420E-02_JPRB,2.1884E-02_JPRB/)
+KBO( :,50, 6) = (/&
+&9.5237E-03_JPRB,1.0928E-02_JPRB,1.2702E-02_JPRB,1.4943E-02_JPRB,1.7817E-02_JPRB/)
+KBO( :,51, 6) = (/&
+&7.6692E-03_JPRB,8.8098E-03_JPRB,1.0261E-02_JPRB,1.2117E-02_JPRB,1.4501E-02_JPRB/)
+KBO( :,52, 6) = (/&
+&6.1727E-03_JPRB,7.0883E-03_JPRB,8.2706E-03_JPRB,9.8014E-03_JPRB,1.1773E-02_JPRB/)
+KBO( :,53, 6) = (/&
+&4.9680E-03_JPRB,5.6916E-03_JPRB,6.6514E-03_JPRB,7.9092E-03_JPRB,9.5340E-03_JPRB/)
+KBO( :,54, 6) = (/&
+&4.0130E-03_JPRB,4.5840E-03_JPRB,5.3714E-03_JPRB,6.4027E-03_JPRB,7.7491E-03_JPRB/)
+KBO( :,55, 6) = (/&
+&3.2475E-03_JPRB,3.6955E-03_JPRB,4.3373E-03_JPRB,5.1858E-03_JPRB,6.3030E-03_JPRB/)
+KBO( :,56, 6) = (/&
+&2.6304E-03_JPRB,2.9771E-03_JPRB,3.4979E-03_JPRB,4.1928E-03_JPRB,5.1174E-03_JPRB/)
+KBO( :,57, 6) = (/&
+&2.1330E-03_JPRB,2.3975E-03_JPRB,2.8161E-03_JPRB,3.3836E-03_JPRB,4.1464E-03_JPRB/)
+KBO( :,58, 6) = (/&
+&1.7350E-03_JPRB,1.9351E-03_JPRB,2.2702E-03_JPRB,2.7338E-03_JPRB,3.3646E-03_JPRB/)
+KBO( :,59, 6) = (/&
+&1.4314E-03_JPRB,1.6016E-03_JPRB,1.8884E-03_JPRB,2.2911E-03_JPRB,2.8369E-03_JPRB/)
+KBO( :,13, 7) = (/&
+&1.7998E+01_JPRB,1.8384E+01_JPRB,1.8787E+01_JPRB,1.9175E+01_JPRB,1.9563E+01_JPRB/)
+KBO( :,14, 7) = (/&
+&1.5399E+01_JPRB,1.5722E+01_JPRB,1.6043E+01_JPRB,1.6364E+01_JPRB,1.6692E+01_JPRB/)
+KBO( :,15, 7) = (/&
+&1.3091E+01_JPRB,1.3337E+01_JPRB,1.3597E+01_JPRB,1.3865E+01_JPRB,1.4179E+01_JPRB/)
+KBO( :,16, 7) = (/&
+&1.1057E+01_JPRB,1.1261E+01_JPRB,1.1479E+01_JPRB,1.1723E+01_JPRB,1.2049E+01_JPRB/)
+KBO( :,17, 7) = (/&
+&9.3100E+00_JPRB,9.4784E+00_JPRB,9.6707E+00_JPRB,9.9204E+00_JPRB,1.0268E+01_JPRB/)
+KBO( :,18, 7) = (/&
+&7.8212E+00_JPRB,7.9725E+00_JPRB,8.1612E+00_JPRB,8.4289E+00_JPRB,8.7794E+00_JPRB/)
+KBO( :,19, 7) = (/&
+&6.5480E+00_JPRB,6.6917E+00_JPRB,6.8980E+00_JPRB,7.1803E+00_JPRB,7.5042E+00_JPRB/)
+KBO( :,20, 7) = (/&
+&5.4693E+00_JPRB,5.6250E+00_JPRB,5.8473E+00_JPRB,6.1172E+00_JPRB,6.4007E+00_JPRB/)
+KBO( :,21, 7) = (/&
+&4.5737E+00_JPRB,4.7442E+00_JPRB,4.9649E+00_JPRB,5.1990E+00_JPRB,5.4386E+00_JPRB/)
+KBO( :,22, 7) = (/&
+&3.8455E+00_JPRB,4.0231E+00_JPRB,4.2157E+00_JPRB,4.4147E+00_JPRB,4.6179E+00_JPRB/)
+KBO( :,23, 7) = (/&
+&3.2447E+00_JPRB,3.4045E+00_JPRB,3.5713E+00_JPRB,3.7411E+00_JPRB,3.9201E+00_JPRB/)
+KBO( :,24, 7) = (/&
+&2.7398E+00_JPRB,2.8775E+00_JPRB,3.0223E+00_JPRB,3.1715E+00_JPRB,3.3312E+00_JPRB/)
+KBO( :,25, 7) = (/&
+&2.3131E+00_JPRB,2.4334E+00_JPRB,2.5607E+00_JPRB,2.6934E+00_JPRB,2.8395E+00_JPRB/)
+KBO( :,26, 7) = (/&
+&1.9571E+00_JPRB,2.0628E+00_JPRB,2.1758E+00_JPRB,2.2949E+00_JPRB,2.4331E+00_JPRB/)
+KBO( :,27, 7) = (/&
+&1.6594E+00_JPRB,1.7534E+00_JPRB,1.8527E+00_JPRB,1.9641E+00_JPRB,2.0963E+00_JPRB/)
+KBO( :,28, 7) = (/&
+&1.4114E+00_JPRB,1.4941E+00_JPRB,1.5830E+00_JPRB,1.6881E+00_JPRB,1.8157E+00_JPRB/)
+KBO( :,29, 7) = (/&
+&1.2034E+00_JPRB,1.2757E+00_JPRB,1.3579E+00_JPRB,1.4591E+00_JPRB,1.5811E+00_JPRB/)
+KBO( :,30, 7) = (/&
+&1.0272E+00_JPRB,1.0924E+00_JPRB,1.1710E+00_JPRB,1.2689E+00_JPRB,1.3849E+00_JPRB/)
+KBO( :,31, 7) = (/&
+&8.7820E-01_JPRB,9.4005E-01_JPRB,1.0171E+00_JPRB,1.1110E+00_JPRB,1.2204E+00_JPRB/)
+KBO( :,32, 7) = (/&
+&7.5354E-01_JPRB,8.1419E-01_JPRB,8.8955E-01_JPRB,9.7931E-01_JPRB,1.0823E+00_JPRB/)
+KBO( :,33, 7) = (/&
+&6.5024E-01_JPRB,7.1018E-01_JPRB,7.8337E-01_JPRB,8.6897E-01_JPRB,9.6647E-01_JPRB/)
+KBO( :,34, 7) = (/&
+&5.6343E-01_JPRB,6.2181E-01_JPRB,6.9198E-01_JPRB,7.7311E-01_JPRB,8.6525E-01_JPRB/)
+KBO( :,35, 7) = (/&
+&4.8705E-01_JPRB,5.4236E-01_JPRB,6.0822E-01_JPRB,6.8426E-01_JPRB,7.7067E-01_JPRB/)
+KBO( :,36, 7) = (/&
+&4.1841E-01_JPRB,4.6955E-01_JPRB,5.3016E-01_JPRB,6.0039E-01_JPRB,6.8061E-01_JPRB/)
+KBO( :,37, 7) = (/&
+&3.5459E-01_JPRB,4.0042E-01_JPRB,4.5487E-01_JPRB,5.1825E-01_JPRB,5.9150E-01_JPRB/)
+KBO( :,38, 7) = (/&
+&3.0070E-01_JPRB,3.4160E-01_JPRB,3.9046E-01_JPRB,4.4765E-01_JPRB,5.1436E-01_JPRB/)
+KBO( :,39, 7) = (/&
+&2.5532E-01_JPRB,2.9176E-01_JPRB,3.3565E-01_JPRB,3.8725E-01_JPRB,4.4814E-01_JPRB/)
+KBO( :,40, 7) = (/&
+&2.1409E-01_JPRB,2.4592E-01_JPRB,2.8460E-01_JPRB,3.3041E-01_JPRB,3.8495E-01_JPRB/)
+KBO( :,41, 7) = (/&
+&1.7907E-01_JPRB,2.0691E-01_JPRB,2.4085E-01_JPRB,2.8135E-01_JPRB,3.3001E-01_JPRB/)
+KBO( :,42, 7) = (/&
+&1.4955E-01_JPRB,1.7397E-01_JPRB,2.0378E-01_JPRB,2.3951E-01_JPRB,2.8290E-01_JPRB/)
+KBO( :,43, 7) = (/&
+&1.2365E-01_JPRB,1.4471E-01_JPRB,1.7077E-01_JPRB,2.0210E-01_JPRB,2.4022E-01_JPRB/)
+KBO( :,44, 7) = (/&
+&1.0162E-01_JPRB,1.1963E-01_JPRB,1.4218E-01_JPRB,1.6960E-01_JPRB,2.0293E-01_JPRB/)
+KBO( :,45, 7) = (/&
+&8.3355E-02_JPRB,9.8637E-02_JPRB,1.1807E-01_JPRB,1.4201E-01_JPRB,1.7123E-01_JPRB/)
+KBO( :,46, 7) = (/&
+&6.8005E-02_JPRB,8.0800E-02_JPRB,9.7358E-02_JPRB,1.1807E-01_JPRB,1.4373E-01_JPRB/)
+KBO( :,47, 7) = (/&
+&5.5003E-02_JPRB,6.5496E-02_JPRB,7.9363E-02_JPRB,9.6996E-02_JPRB,1.1911E-01_JPRB/)
+KBO( :,48, 7) = (/&
+&4.4405E-02_JPRB,5.2953E-02_JPRB,6.4487E-02_JPRB,7.9375E-02_JPRB,9.8343E-02_JPRB/)
+KBO( :,49, 7) = (/&
+&3.5783E-02_JPRB,4.2715E-02_JPRB,5.2233E-02_JPRB,6.4713E-02_JPRB,8.0863E-02_JPRB/)
+KBO( :,50, 7) = (/&
+&2.8912E-02_JPRB,3.4525E-02_JPRB,4.2407E-02_JPRB,5.2882E-02_JPRB,6.6632E-02_JPRB/)
+KBO( :,51, 7) = (/&
+&2.3366E-02_JPRB,2.7895E-02_JPRB,3.4405E-02_JPRB,4.3195E-02_JPRB,5.4868E-02_JPRB/)
+KBO( :,52, 7) = (/&
+&1.8859E-02_JPRB,2.2482E-02_JPRB,2.7819E-02_JPRB,3.5177E-02_JPRB,4.5036E-02_JPRB/)
+KBO( :,53, 7) = (/&
+&1.5196E-02_JPRB,1.8070E-02_JPRB,2.2410E-02_JPRB,2.8538E-02_JPRB,3.6840E-02_JPRB/)
+KBO( :,54, 7) = (/&
+&1.2283E-02_JPRB,1.4588E-02_JPRB,1.8123E-02_JPRB,2.3240E-02_JPRB,3.0277E-02_JPRB/)
+KBO( :,55, 7) = (/&
+&9.9346E-03_JPRB,1.1792E-02_JPRB,1.4660E-02_JPRB,1.8922E-02_JPRB,2.4879E-02_JPRB/)
+KBO( :,56, 7) = (/&
+&8.0224E-03_JPRB,9.5173E-03_JPRB,1.1833E-02_JPRB,1.5354E-02_JPRB,2.0376E-02_JPRB/)
+KBO( :,57, 7) = (/&
+&6.4674E-03_JPRB,7.6719E-03_JPRB,9.5269E-03_JPRB,1.2415E-02_JPRB,1.6626E-02_JPRB/)
+KBO( :,58, 7) = (/&
+&5.2243E-03_JPRB,6.1935E-03_JPRB,7.6844E-03_JPRB,1.0054E-02_JPRB,1.3583E-02_JPRB/)
+KBO( :,59, 7) = (/&
+&4.3349E-03_JPRB,5.1717E-03_JPRB,6.4734E-03_JPRB,8.5759E-03_JPRB,1.1721E-02_JPRB/)
+KBO( :,13, 8) = (/&
+&4.8718E+01_JPRB,5.0320E+01_JPRB,5.1858E+01_JPRB,5.3380E+01_JPRB,5.4850E+01_JPRB/)
+KBO( :,14, 8) = (/&
+&4.2766E+01_JPRB,4.4021E+01_JPRB,4.5285E+01_JPRB,4.6520E+01_JPRB,4.7719E+01_JPRB/)
+KBO( :,15, 8) = (/&
+&3.7265E+01_JPRB,3.8285E+01_JPRB,3.9305E+01_JPRB,4.0312E+01_JPRB,4.1280E+01_JPRB/)
+KBO( :,16, 8) = (/&
+&3.2320E+01_JPRB,3.3145E+01_JPRB,3.3978E+01_JPRB,3.4801E+01_JPRB,3.5603E+01_JPRB/)
+KBO( :,17, 8) = (/&
+&2.7905E+01_JPRB,2.8588E+01_JPRB,2.9274E+01_JPRB,2.9948E+01_JPRB,3.0618E+01_JPRB/)
+KBO( :,18, 8) = (/&
+&2.3907E+01_JPRB,2.4472E+01_JPRB,2.5035E+01_JPRB,2.5608E+01_JPRB,2.6240E+01_JPRB/)
+KBO( :,19, 8) = (/&
+&2.0357E+01_JPRB,2.0811E+01_JPRB,2.1283E+01_JPRB,2.1801E+01_JPRB,2.2463E+01_JPRB/)
+KBO( :,20, 8) = (/&
+&1.7248E+01_JPRB,1.7625E+01_JPRB,1.8041E+01_JPRB,1.8568E+01_JPRB,1.9286E+01_JPRB/)
+KBO( :,21, 8) = (/&
+&1.4568E+01_JPRB,1.4891E+01_JPRB,1.5295E+01_JPRB,1.5868E+01_JPRB,1.6645E+01_JPRB/)
+KBO( :,22, 8) = (/&
+&1.2302E+01_JPRB,1.2610E+01_JPRB,1.3060E+01_JPRB,1.3693E+01_JPRB,1.4488E+01_JPRB/)
+KBO( :,23, 8) = (/&
+&1.0398E+01_JPRB,1.0740E+01_JPRB,1.1241E+01_JPRB,1.1898E+01_JPRB,1.2647E+01_JPRB/)
+KBO( :,24, 8) = (/&
+&8.8094E+00_JPRB,9.1977E+00_JPRB,9.7363E+00_JPRB,1.0379E+01_JPRB,1.1057E+01_JPRB/)
+KBO( :,25, 8) = (/&
+&7.5025E+00_JPRB,7.9291E+00_JPRB,8.4687E+00_JPRB,9.0617E+00_JPRB,9.6792E+00_JPRB/)
+KBO( :,26, 8) = (/&
+&6.4368E+00_JPRB,6.8798E+00_JPRB,7.3859E+00_JPRB,7.9241E+00_JPRB,8.4787E+00_JPRB/)
+KBO( :,27, 8) = (/&
+&5.5620E+00_JPRB,5.9868E+00_JPRB,6.4448E+00_JPRB,6.9294E+00_JPRB,7.4281E+00_JPRB/)
+KBO( :,28, 8) = (/&
+&4.8240E+00_JPRB,5.2122E+00_JPRB,5.6283E+00_JPRB,6.0659E+00_JPRB,6.5242E+00_JPRB/)
+KBO( :,29, 8) = (/&
+&4.1944E+00_JPRB,4.5487E+00_JPRB,4.9272E+00_JPRB,5.3264E+00_JPRB,5.7585E+00_JPRB/)
+KBO( :,30, 8) = (/&
+&3.6568E+00_JPRB,3.9803E+00_JPRB,4.3255E+00_JPRB,4.6987E+00_JPRB,5.1122E+00_JPRB/)
+KBO( :,31, 8) = (/&
+&3.2011E+00_JPRB,3.4961E+00_JPRB,3.8161E+00_JPRB,4.1707E+00_JPRB,4.5746E+00_JPRB/)
+KBO( :,32, 8) = (/&
+&2.8138E+00_JPRB,3.0858E+00_JPRB,3.3881E+00_JPRB,3.7312E+00_JPRB,4.1306E+00_JPRB/)
+KBO( :,33, 8) = (/&
+&2.4854E+00_JPRB,2.7408E+00_JPRB,3.0308E+00_JPRB,3.3678E+00_JPRB,3.7681E+00_JPRB/)
+KBO( :,34, 8) = (/&
+&2.2003E+00_JPRB,2.4428E+00_JPRB,2.7239E+00_JPRB,3.0581E+00_JPRB,3.4595E+00_JPRB/)
+KBO( :,35, 8) = (/&
+&1.9399E+00_JPRB,2.1700E+00_JPRB,2.4416E+00_JPRB,2.7703E+00_JPRB,3.1684E+00_JPRB/)
+KBO( :,36, 8) = (/&
+&1.6987E+00_JPRB,1.9152E+00_JPRB,2.1743E+00_JPRB,2.4922E+00_JPRB,2.8785E+00_JPRB/)
+KBO( :,37, 8) = (/&
+&1.4664E+00_JPRB,1.6646E+00_JPRB,1.9059E+00_JPRB,2.2053E+00_JPRB,2.5708E+00_JPRB/)
+KBO( :,38, 8) = (/&
+&1.2664E+00_JPRB,1.4483E+00_JPRB,1.6728E+00_JPRB,1.9542E+00_JPRB,2.2994E+00_JPRB/)
+KBO( :,39, 8) = (/&
+&1.0955E+00_JPRB,1.2626E+00_JPRB,1.4719E+00_JPRB,1.7366E+00_JPRB,2.0631E+00_JPRB/)
+KBO( :,40, 8) = (/&
+&9.3556E-01_JPRB,1.0859E+00_JPRB,1.2762E+00_JPRB,1.5192E+00_JPRB,1.8216E+00_JPRB/)
+KBO( :,41, 8) = (/&
+&7.9800E-01_JPRB,9.3250E-01_JPRB,1.1046E+00_JPRB,1.3263E+00_JPRB,1.6051E+00_JPRB/)
+KBO( :,42, 8) = (/&
+&6.8026E-01_JPRB,8.0111E-01_JPRB,9.5621E-01_JPRB,1.1581E+00_JPRB,1.4148E+00_JPRB/)
+KBO( :,43, 8) = (/&
+&5.7416E-01_JPRB,6.8147E-01_JPRB,8.1937E-01_JPRB,1.0003E+00_JPRB,1.2325E+00_JPRB/)
+KBO( :,44, 8) = (/&
+&4.8192E-01_JPRB,5.7630E-01_JPRB,6.9849E-01_JPRB,8.5859E-01_JPRB,1.0670E+00_JPRB/)
+KBO( :,45, 8) = (/&
+&4.0390E-01_JPRB,4.8662E-01_JPRB,5.9437E-01_JPRB,7.3642E-01_JPRB,9.2241E-01_JPRB/)
+KBO( :,46, 8) = (/&
+&3.3692E-01_JPRB,4.0832E-01_JPRB,5.0245E-01_JPRB,6.2763E-01_JPRB,7.9306E-01_JPRB/)
+KBO( :,47, 8) = (/&
+&2.7795E-01_JPRB,3.3890E-01_JPRB,4.1977E-01_JPRB,5.2809E-01_JPRB,6.7337E-01_JPRB/)
+KBO( :,48, 8) = (/&
+&2.2885E-01_JPRB,2.8056E-01_JPRB,3.4963E-01_JPRB,4.4288E-01_JPRB,5.6978E-01_JPRB/)
+KBO( :,49, 8) = (/&
+&1.8806E-01_JPRB,2.3188E-01_JPRB,2.9038E-01_JPRB,3.7027E-01_JPRB,4.8015E-01_JPRB/)
+KBO( :,50, 8) = (/&
+&1.5486E-01_JPRB,1.9227E-01_JPRB,2.4202E-01_JPRB,3.1061E-01_JPRB,4.0591E-01_JPRB/)
+KBO( :,51, 8) = (/&
+&1.2721E-01_JPRB,1.5949E-01_JPRB,2.0189E-01_JPRB,2.6069E-01_JPRB,3.4317E-01_JPRB/)
+KBO( :,52, 8) = (/&
+&1.0403E-01_JPRB,1.3183E-01_JPRB,1.6821E-01_JPRB,2.1833E-01_JPRB,2.8940E-01_JPRB/)
+KBO( :,53, 8) = (/&
+&8.4647E-02_JPRB,1.0841E-01_JPRB,1.3976E-01_JPRB,1.8251E-01_JPRB,2.4335E-01_JPRB/)
+KBO( :,54, 8) = (/&
+&6.9094E-02_JPRB,8.9415E-02_JPRB,1.1671E-01_JPRB,1.5366E-01_JPRB,2.0608E-01_JPRB/)
+KBO( :,55, 8) = (/&
+&5.6395E-02_JPRB,7.3686E-02_JPRB,9.7324E-02_JPRB,1.2958E-01_JPRB,1.7505E-01_JPRB/)
+KBO( :,56, 8) = (/&
+&4.5872E-02_JPRB,6.0506E-02_JPRB,8.0843E-02_JPRB,1.0885E-01_JPRB,1.4852E-01_JPRB/)
+KBO( :,57, 8) = (/&
+&3.7163E-02_JPRB,4.9485E-02_JPRB,6.6836E-02_JPRB,9.1072E-02_JPRB,1.2569E-01_JPRB/)
+KBO( :,58, 8) = (/&
+&3.0142E-02_JPRB,4.0510E-02_JPRB,5.5284E-02_JPRB,7.6236E-02_JPRB,1.0654E-01_JPRB/)
+KBO( :,59, 8) = (/&
+&2.5655E-02_JPRB,3.4976E-02_JPRB,4.8360E-02_JPRB,6.7750E-02_JPRB,9.5910E-02_JPRB/)
+KBO( :,13, 9) = (/&
+&2.6710E+02_JPRB,2.6292E+02_JPRB,2.6081E+02_JPRB,2.6060E+02_JPRB,2.6216E+02_JPRB/)
+KBO( :,14, 9) = (/&
+&2.2905E+02_JPRB,2.2705E+02_JPRB,2.2701E+02_JPRB,2.2883E+02_JPRB,2.3237E+02_JPRB/)
+KBO( :,15, 9) = (/&
+&1.9681E+02_JPRB,1.9674E+02_JPRB,1.9855E+02_JPRB,2.0218E+02_JPRB,2.0745E+02_JPRB/)
+KBO( :,16, 9) = (/&
+&1.6990E+02_JPRB,1.7146E+02_JPRB,1.7490E+02_JPRB,1.8008E+02_JPRB,1.8673E+02_JPRB/)
+KBO( :,17, 9) = (/&
+&1.4763E+02_JPRB,1.5059E+02_JPRB,1.5539E+02_JPRB,1.6156E+02_JPRB,1.6765E+02_JPRB/)
+KBO( :,18, 9) = (/&
+&1.2952E+02_JPRB,1.3368E+02_JPRB,1.3907E+02_JPRB,1.4438E+02_JPRB,1.4950E+02_JPRB/)
+KBO( :,19, 9) = (/&
+&1.1453E+02_JPRB,1.1924E+02_JPRB,1.2392E+02_JPRB,1.2844E+02_JPRB,1.3271E+02_JPRB/)
+KBO( :,20, 9) = (/&
+&1.0152E+02_JPRB,1.0566E+02_JPRB,1.0970E+02_JPRB,1.1358E+02_JPRB,1.1731E+02_JPRB/)
+KBO( :,21, 9) = (/&
+&8.9460E+01_JPRB,9.3028E+01_JPRB,9.6510E+01_JPRB,9.9904E+01_JPRB,1.0318E+02_JPRB/)
+KBO( :,22, 9) = (/&
+&7.8631E+01_JPRB,8.1700E+01_JPRB,8.4725E+01_JPRB,8.7702E+01_JPRB,9.0717E+01_JPRB/)
+KBO( :,23, 9) = (/&
+&6.8898E+01_JPRB,7.1547E+01_JPRB,7.4194E+01_JPRB,7.6892E+01_JPRB,7.9806E+01_JPRB/)
+KBO( :,24, 9) = (/&
+&6.0312E+01_JPRB,6.2630E+01_JPRB,6.4994E+01_JPRB,6.7556E+01_JPRB,7.0443E+01_JPRB/)
+KBO( :,25, 9) = (/&
+&5.2851E+01_JPRB,5.4897E+01_JPRB,5.7127E+01_JPRB,5.9634E+01_JPRB,6.2506E+01_JPRB/)
+KBO( :,26, 9) = (/&
+&4.6436E+01_JPRB,4.8336E+01_JPRB,5.0486E+01_JPRB,5.2975E+01_JPRB,5.5885E+01_JPRB/)
+KBO( :,27, 9) = (/&
+&4.0910E+01_JPRB,4.2771E+01_JPRB,4.4909E+01_JPRB,4.7425E+01_JPRB,5.0391E+01_JPRB/)
+KBO( :,28, 9) = (/&
+&3.6155E+01_JPRB,3.8062E+01_JPRB,4.0266E+01_JPRB,4.2832E+01_JPRB,4.5858E+01_JPRB/)
+KBO( :,29, 9) = (/&
+&3.2126E+01_JPRB,3.4094E+01_JPRB,3.6392E+01_JPRB,3.9062E+01_JPRB,4.2162E+01_JPRB/)
+KBO( :,30, 9) = (/&
+&2.8724E+01_JPRB,3.0764E+01_JPRB,3.3154E+01_JPRB,3.5941E+01_JPRB,3.9179E+01_JPRB/)
+KBO( :,31, 9) = (/&
+&2.5882E+01_JPRB,2.7995E+01_JPRB,3.0486E+01_JPRB,3.3401E+01_JPRB,3.6792E+01_JPRB/)
+KBO( :,32, 9) = (/&
+&2.3528E+01_JPRB,2.5718E+01_JPRB,2.8311E+01_JPRB,3.1365E+01_JPRB,3.4906E+01_JPRB/)
+KBO( :,33, 9) = (/&
+&2.1587E+01_JPRB,2.3866E+01_JPRB,2.6575E+01_JPRB,2.9769E+01_JPRB,3.3431E+01_JPRB/)
+KBO( :,34, 9) = (/&
+&1.9935E+01_JPRB,2.2294E+01_JPRB,2.5115E+01_JPRB,2.8414E+01_JPRB,3.2169E+01_JPRB/)
+KBO( :,35, 9) = (/&
+&1.8379E+01_JPRB,2.0784E+01_JPRB,2.3667E+01_JPRB,2.7018E+01_JPRB,3.0818E+01_JPRB/)
+KBO( :,36, 9) = (/&
+&1.6837E+01_JPRB,1.9243E+01_JPRB,2.2128E+01_JPRB,2.5484E+01_JPRB,2.9290E+01_JPRB/)
+KBO( :,37, 9) = (/&
+&1.5193E+01_JPRB,1.7529E+01_JPRB,2.0337E+01_JPRB,2.3631E+01_JPRB,2.7386E+01_JPRB/)
+KBO( :,38, 9) = (/&
+&1.3737E+01_JPRB,1.6000E+01_JPRB,1.8725E+01_JPRB,2.1951E+01_JPRB,2.5656E+01_JPRB/)
+KBO( :,39, 9) = (/&
+&1.2460E+01_JPRB,1.4648E+01_JPRB,1.7295E+01_JPRB,2.0455E+01_JPRB,2.4116E+01_JPRB/)
+KBO( :,40, 9) = (/&
+&1.1143E+01_JPRB,1.3211E+01_JPRB,1.5737E+01_JPRB,1.8782E+01_JPRB,2.2346E+01_JPRB/)
+KBO( :,41, 9) = (/&
+&9.9585E+00_JPRB,1.1899E+01_JPRB,1.4300E+01_JPRB,1.7222E+01_JPRB,2.0680E+01_JPRB/)
+KBO( :,42, 9) = (/&
+&8.9074E+00_JPRB,1.0724E+01_JPRB,1.3003E+01_JPRB,1.5806E+01_JPRB,1.9155E+01_JPRB/)
+KBO( :,43, 9) = (/&
+&7.8838E+00_JPRB,9.5638E+00_JPRB,1.1699E+01_JPRB,1.4356E+01_JPRB,1.7558E+01_JPRB/)
+KBO( :,44, 9) = (/&
+&6.9325E+00_JPRB,8.4860E+00_JPRB,1.0467E+01_JPRB,1.2961E+01_JPRB,1.6001E+01_JPRB/)
+KBO( :,45, 9) = (/&
+&6.0822E+00_JPRB,7.5231E+00_JPRB,9.3599E+00_JPRB,1.1689E+01_JPRB,1.4566E+01_JPRB/)
+KBO( :,46, 9) = (/&
+&5.2984E+00_JPRB,6.6221E+00_JPRB,8.3226E+00_JPRB,1.0480E+01_JPRB,1.3187E+01_JPRB/)
+KBO( :,47, 9) = (/&
+&4.5534E+00_JPRB,5.7527E+00_JPRB,7.3122E+00_JPRB,9.2888E+00_JPRB,1.1789E+01_JPRB/)
+KBO( :,48, 9) = (/&
+&3.8949E+00_JPRB,4.9778E+00_JPRB,6.4003E+00_JPRB,8.2164E+00_JPRB,1.0513E+01_JPRB/)
+KBO( :,49, 9) = (/&
+&3.3152E+00_JPRB,4.2900E+00_JPRB,5.5808E+00_JPRB,7.2516E+00_JPRB,9.3536E+00_JPRB/)
+KBO( :,50, 9) = (/&
+&2.8251E+00_JPRB,3.7029E+00_JPRB,4.8790E+00_JPRB,6.4176E+00_JPRB,8.3604E+00_JPRB/)
+KBO( :,51, 9) = (/&
+&2.4036E+00_JPRB,3.1914E+00_JPRB,4.2626E+00_JPRB,5.6760E+00_JPRB,7.4806E+00_JPRB/)
+KBO( :,52, 9) = (/&
+&2.0358E+00_JPRB,2.7394E+00_JPRB,3.7092E+00_JPRB,5.0052E+00_JPRB,6.6771E+00_JPRB/)
+KBO( :,53, 9) = (/&
+&1.7150E+00_JPRB,2.3392E+00_JPRB,3.2126E+00_JPRB,4.3953E+00_JPRB,5.9352E+00_JPRB/)
+KBO( :,54, 9) = (/&
+&1.4515E+00_JPRB,2.0067E+00_JPRB,2.8012E+00_JPRB,3.8817E+00_JPRB,5.3047E+00_JPRB/)
+KBO( :,55, 9) = (/&
+&1.2285E+00_JPRB,1.7230E+00_JPRB,2.4420E+00_JPRB,3.4310E+00_JPRB,4.7490E+00_JPRB/)
+KBO( :,56, 9) = (/&
+&1.0358E+00_JPRB,1.4720E+00_JPRB,2.1203E+00_JPRB,3.0228E+00_JPRB,4.2384E+00_JPRB/)
+KBO( :,57, 9) = (/&
+&8.6995E-01_JPRB,1.2523E+00_JPRB,1.8327E+00_JPRB,2.6527E+00_JPRB,3.7712E+00_JPRB/)
+KBO( :,58, 9) = (/&
+&7.3361E-01_JPRB,1.0673E+00_JPRB,1.5876E+00_JPRB,2.3341E+00_JPRB,3.3624E+00_JPRB/)
+KBO( :,59, 9) = (/&
+&6.5934E-01_JPRB,9.7595E-01_JPRB,1.4746E+00_JPRB,2.2013E+00_JPRB,3.1927E+00_JPRB/)
+KBO( :,13,10) = (/&
+&1.1370E+03_JPRB,1.1193E+03_JPRB,1.1015E+03_JPRB,1.0831E+03_JPRB,1.0644E+03_JPRB/)
+KBO( :,14,10) = (/&
+&1.0077E+03_JPRB,9.9068E+02_JPRB,9.7382E+02_JPRB,9.5646E+02_JPRB,9.3960E+02_JPRB/)
+KBO( :,15,10) = (/&
+&8.7737E+02_JPRB,8.6162E+02_JPRB,8.4607E+02_JPRB,8.3075E+02_JPRB,8.1589E+02_JPRB/)
+KBO( :,16,10) = (/&
+&7.5426E+02_JPRB,7.4028E+02_JPRB,7.2665E+02_JPRB,7.1344E+02_JPRB,7.0172E+02_JPRB/)
+KBO( :,17,10) = (/&
+&6.4244E+02_JPRB,6.3047E+02_JPRB,6.1893E+02_JPRB,6.1102E+02_JPRB,6.1824E+02_JPRB/)
+KBO( :,18,10) = (/&
+&5.4326E+02_JPRB,5.3346E+02_JPRB,5.2903E+02_JPRB,5.4116E+02_JPRB,5.6772E+02_JPRB/)
+KBO( :,19,10) = (/&
+&4.6041E+02_JPRB,4.5657E+02_JPRB,4.6965E+02_JPRB,4.9609E+02_JPRB,5.2443E+02_JPRB/)
+KBO( :,20,10) = (/&
+&3.9849E+02_JPRB,4.0983E+02_JPRB,4.3310E+02_JPRB,4.5724E+02_JPRB,4.8136E+02_JPRB/)
+KBO( :,21,10) = (/&
+&3.5855E+02_JPRB,3.7953E+02_JPRB,4.0064E+02_JPRB,4.2132E+02_JPRB,4.4170E+02_JPRB/)
+KBO( :,22,10) = (/&
+&3.2988E+02_JPRB,3.4998E+02_JPRB,3.6966E+02_JPRB,3.8861E+02_JPRB,4.0637E+02_JPRB/)
+KBO( :,23,10) = (/&
+&3.0132E+02_JPRB,3.2005E+02_JPRB,3.3835E+02_JPRB,3.5588E+02_JPRB,3.7212E+02_JPRB/)
+KBO( :,24,10) = (/&
+&2.7350E+02_JPRB,2.9090E+02_JPRB,3.0784E+02_JPRB,3.2378E+02_JPRB,3.3905E+02_JPRB/)
+KBO( :,25,10) = (/&
+&2.4700E+02_JPRB,2.6316E+02_JPRB,2.7865E+02_JPRB,2.9355E+02_JPRB,3.0831E+02_JPRB/)
+KBO( :,26,10) = (/&
+&2.2261E+02_JPRB,2.3737E+02_JPRB,2.5178E+02_JPRB,2.6623E+02_JPRB,2.8060E+02_JPRB/)
+KBO( :,27,10) = (/&
+&2.0072E+02_JPRB,2.1392E+02_JPRB,2.2763E+02_JPRB,2.4159E+02_JPRB,2.5577E+02_JPRB/)
+KBO( :,28,10) = (/&
+&1.8170E+02_JPRB,1.9355E+02_JPRB,2.0624E+02_JPRB,2.1988E+02_JPRB,2.3391E+02_JPRB/)
+KBO( :,29,10) = (/&
+&1.6551E+02_JPRB,1.7639E+02_JPRB,1.8818E+02_JPRB,2.0102E+02_JPRB,2.1504E+02_JPRB/)
+KBO( :,30,10) = (/&
+&1.5197E+02_JPRB,1.6180E+02_JPRB,1.7277E+02_JPRB,1.8505E+02_JPRB,1.9878E+02_JPRB/)
+KBO( :,31,10) = (/&
+&1.4040E+02_JPRB,1.4951E+02_JPRB,1.5989E+02_JPRB,1.7189E+02_JPRB,1.8557E+02_JPRB/)
+KBO( :,32,10) = (/&
+&1.3052E+02_JPRB,1.3922E+02_JPRB,1.4931E+02_JPRB,1.6122E+02_JPRB,1.7537E+02_JPRB/)
+KBO( :,33,10) = (/&
+&1.2219E+02_JPRB,1.3073E+02_JPRB,1.4066E+02_JPRB,1.5295E+02_JPRB,1.6793E+02_JPRB/)
+KBO( :,34,10) = (/&
+&1.1485E+02_JPRB,1.2346E+02_JPRB,1.3352E+02_JPRB,1.4643E+02_JPRB,1.6252E+02_JPRB/)
+KBO( :,35,10) = (/&
+&1.0786E+02_JPRB,1.1670E+02_JPRB,1.2704E+02_JPRB,1.4054E+02_JPRB,1.5777E+02_JPRB/)
+KBO( :,36,10) = (/&
+&1.0096E+02_JPRB,1.1026E+02_JPRB,1.2083E+02_JPRB,1.3466E+02_JPRB,1.5266E+02_JPRB/)
+KBO( :,37,10) = (/&
+&9.3649E+01_JPRB,1.0335E+02_JPRB,1.1406E+02_JPRB,1.2775E+02_JPRB,1.4574E+02_JPRB/)
+KBO( :,38,10) = (/&
+&8.6966E+01_JPRB,9.7115E+01_JPRB,1.0831E+02_JPRB,1.2180E+02_JPRB,1.3969E+02_JPRB/)
+KBO( :,39,10) = (/&
+&8.1095E+01_JPRB,9.1619E+01_JPRB,1.0337E+02_JPRB,1.1677E+02_JPRB,1.3445E+02_JPRB/)
+KBO( :,40,10) = (/&
+&7.4825E+01_JPRB,8.5620E+01_JPRB,9.7708E+01_JPRB,1.1093E+02_JPRB,1.2782E+02_JPRB/)
+KBO( :,41,10) = (/&
+&6.8987E+01_JPRB,7.9975E+01_JPRB,9.2327E+01_JPRB,1.0557E+02_JPRB,1.2158E+02_JPRB/)
+KBO( :,42,10) = (/&
+&6.3582E+01_JPRB,7.4799E+01_JPRB,8.7292E+01_JPRB,1.0067E+02_JPRB,1.1590E+02_JPRB/)
+KBO( :,43,10) = (/&
+&5.8100E+01_JPRB,6.9336E+01_JPRB,8.1830E+01_JPRB,9.5341E+01_JPRB,1.0982E+02_JPRB/)
+KBO( :,44,10) = (/&
+&5.2932E+01_JPRB,6.3876E+01_JPRB,7.6294E+01_JPRB,8.9737E+01_JPRB,1.0391E+02_JPRB/)
+KBO( :,45,10) = (/&
+&4.8226E+01_JPRB,5.8773E+01_JPRB,7.1006E+01_JPRB,8.4358E+01_JPRB,9.8366E+01_JPRB/)
+KBO( :,46,10) = (/&
+&4.3799E+01_JPRB,5.3806E+01_JPRB,6.5676E+01_JPRB,7.8828E+01_JPRB,9.2780E+01_JPRB/)
+KBO( :,47,10) = (/&
+&3.9350E+01_JPRB,4.8773E+01_JPRB,6.0056E+01_JPRB,7.2887E+01_JPRB,8.6626E+01_JPRB/)
+KBO( :,48,10) = (/&
+&3.5360E+01_JPRB,4.4132E+01_JPRB,5.4788E+01_JPRB,6.7135E+01_JPRB,8.0643E+01_JPRB/)
+KBO( :,49,10) = (/&
+&3.1759E+01_JPRB,3.9919E+01_JPRB,4.9896E+01_JPRB,6.1616E+01_JPRB,7.4794E+01_JPRB/)
+KBO( :,50,10) = (/&
+&2.8696E+01_JPRB,3.6220E+01_JPRB,4.5579E+01_JPRB,5.6700E+01_JPRB,6.9436E+01_JPRB/)
+KBO( :,51,10) = (/&
+&2.5923E+01_JPRB,3.2951E+01_JPRB,4.1668E+01_JPRB,5.2205E+01_JPRB,6.4403E+01_JPRB/)
+KBO( :,52,10) = (/&
+&2.3246E+01_JPRB,2.9949E+01_JPRB,3.8044E+01_JPRB,4.7965E+01_JPRB,5.9561E+01_JPRB/)
+KBO( :,53,10) = (/&
+&2.0677E+01_JPRB,2.7212E+01_JPRB,3.4689E+01_JPRB,4.3992E+01_JPRB,5.4982E+01_JPRB/)
+KBO( :,54,10) = (/&
+&1.8394E+01_JPRB,2.4800E+01_JPRB,3.1896E+01_JPRB,4.0551E+01_JPRB,5.0999E+01_JPRB/)
+KBO( :,55,10) = (/&
+&1.6290E+01_JPRB,2.2530E+01_JPRB,2.9365E+01_JPRB,3.7468E+01_JPRB,4.7358E+01_JPRB/)
+KBO( :,56,10) = (/&
+&1.4293E+01_JPRB,2.0343E+01_JPRB,2.7025E+01_JPRB,3.4587E+01_JPRB,4.3934E+01_JPRB/)
+KBO( :,57,10) = (/&
+&1.2429E+01_JPRB,1.8222E+01_JPRB,2.4765E+01_JPRB,3.1908E+01_JPRB,4.0683E+01_JPRB/)
+KBO( :,58,10) = (/&
+&1.0794E+01_JPRB,1.6277E+01_JPRB,2.2653E+01_JPRB,2.9533E+01_JPRB,3.7782E+01_JPRB/)
+KBO( :,59,10) = (/&
+&1.0104E+01_JPRB,1.5485E+01_JPRB,2.1801E+01_JPRB,2.8646E+01_JPRB,3.6640E+01_JPRB/)
+KBO( :,13,11) = (/&
+&1.9982E+03_JPRB,1.9741E+03_JPRB,1.9501E+03_JPRB,1.9258E+03_JPRB,1.8991E+03_JPRB/)
+KBO( :,14,11) = (/&
+&1.8366E+03_JPRB,1.8117E+03_JPRB,1.7872E+03_JPRB,1.7620E+03_JPRB,1.7357E+03_JPRB/)
+KBO( :,15,11) = (/&
+&1.6593E+03_JPRB,1.6345E+03_JPRB,1.6105E+03_JPRB,1.5852E+03_JPRB,1.5607E+03_JPRB/)
+KBO( :,16,11) = (/&
+&1.4714E+03_JPRB,1.4482E+03_JPRB,1.4256E+03_JPRB,1.4029E+03_JPRB,1.3814E+03_JPRB/)
+KBO( :,17,11) = (/&
+&1.2821E+03_JPRB,1.2610E+03_JPRB,1.2407E+03_JPRB,1.2217E+03_JPRB,1.2035E+03_JPRB/)
+KBO( :,18,11) = (/&
+&1.1031E+03_JPRB,1.0851E+03_JPRB,1.0681E+03_JPRB,1.0526E+03_JPRB,1.0392E+03_JPRB/)
+KBO( :,19,11) = (/&
+&9.4073E+02_JPRB,9.2594E+02_JPRB,9.1239E+02_JPRB,9.0492E+02_JPRB,9.1389E+02_JPRB/)
+KBO( :,20,11) = (/&
+&7.9752E+02_JPRB,7.8605E+02_JPRB,7.8200E+02_JPRB,7.9771E+02_JPRB,8.3070E+02_JPRB/)
+KBO( :,21,11) = (/&
+&6.7621E+02_JPRB,6.7302E+02_JPRB,6.9037E+02_JPRB,7.2680E+02_JPRB,7.7342E+02_JPRB/)
+KBO( :,22,11) = (/&
+&5.8317E+02_JPRB,5.9901E+02_JPRB,6.3384E+02_JPRB,6.7592E+02_JPRB,7.2003E+02_JPRB/)
+KBO( :,23,11) = (/&
+&5.2345E+02_JPRB,5.5460E+02_JPRB,5.9107E+02_JPRB,6.2902E+02_JPRB,6.6965E+02_JPRB/)
+KBO( :,24,11) = (/&
+&4.8603E+02_JPRB,5.1872E+02_JPRB,5.5143E+02_JPRB,5.8645E+02_JPRB,6.2372E+02_JPRB/)
+KBO( :,25,11) = (/&
+&4.5248E+02_JPRB,4.8397E+02_JPRB,5.1550E+02_JPRB,5.4767E+02_JPRB,5.8239E+02_JPRB/)
+KBO( :,26,11) = (/&
+&4.2042E+02_JPRB,4.5092E+02_JPRB,4.8247E+02_JPRB,5.1356E+02_JPRB,5.4667E+02_JPRB/)
+KBO( :,27,11) = (/&
+&3.8993E+02_JPRB,4.2017E+02_JPRB,4.5102E+02_JPRB,4.8294E+02_JPRB,5.1599E+02_JPRB/)
+KBO( :,28,11) = (/&
+&3.6206E+02_JPRB,3.9191E+02_JPRB,4.2290E+02_JPRB,4.5578E+02_JPRB,4.8932E+02_JPRB/)
+KBO( :,29,11) = (/&
+&3.3701E+02_JPRB,3.6670E+02_JPRB,3.9835E+02_JPRB,4.3253E+02_JPRB,4.6763E+02_JPRB/)
+KBO( :,30,11) = (/&
+&3.1435E+02_JPRB,3.4509E+02_JPRB,3.7799E+02_JPRB,4.1371E+02_JPRB,4.5072E+02_JPRB/)
+KBO( :,31,11) = (/&
+&2.9536E+02_JPRB,3.2738E+02_JPRB,3.6185E+02_JPRB,3.9930E+02_JPRB,4.3870E+02_JPRB/)
+KBO( :,32,11) = (/&
+&2.8017E+02_JPRB,3.1347E+02_JPRB,3.5000E+02_JPRB,3.8948E+02_JPRB,4.3126E+02_JPRB/)
+KBO( :,33,11) = (/&
+&2.6842E+02_JPRB,3.0340E+02_JPRB,3.4238E+02_JPRB,3.8415E+02_JPRB,4.2838E+02_JPRB/)
+KBO( :,34,11) = (/&
+&2.5904E+02_JPRB,2.9599E+02_JPRB,3.3729E+02_JPRB,3.8143E+02_JPRB,4.2772E+02_JPRB/)
+KBO( :,35,11) = (/&
+&2.4977E+02_JPRB,2.8824E+02_JPRB,3.3150E+02_JPRB,3.7746E+02_JPRB,4.2524E+02_JPRB/)
+KBO( :,36,11) = (/&
+&2.3959E+02_JPRB,2.7880E+02_JPRB,3.2342E+02_JPRB,3.7070E+02_JPRB,4.1949E+02_JPRB/)
+KBO( :,37,11) = (/&
+&2.2622E+02_JPRB,2.6520E+02_JPRB,3.1011E+02_JPRB,3.5817E+02_JPRB,4.0759E+02_JPRB/)
+KBO( :,38,11) = (/&
+&2.1446E+02_JPRB,2.5305E+02_JPRB,2.9777E+02_JPRB,3.4633E+02_JPRB,3.9620E+02_JPRB/)
+KBO( :,39,11) = (/&
+&2.0431E+02_JPRB,2.4241E+02_JPRB,2.8661E+02_JPRB,3.3540E+02_JPRB,3.8561E+02_JPRB/)
+KBO( :,40,11) = (/&
+&1.9199E+02_JPRB,2.2883E+02_JPRB,2.7179E+02_JPRB,3.2005E+02_JPRB,3.7046E+02_JPRB/)
+KBO( :,41,11) = (/&
+&1.8042E+02_JPRB,2.1588E+02_JPRB,2.5742E+02_JPRB,3.0459E+02_JPRB,3.5513E+02_JPRB/)
+KBO( :,42,11) = (/&
+&1.6997E+02_JPRB,2.0388E+02_JPRB,2.4396E+02_JPRB,2.8977E+02_JPRB,3.4012E+02_JPRB/)
+KBO( :,43,11) = (/&
+&1.5886E+02_JPRB,1.9075E+02_JPRB,2.2902E+02_JPRB,2.7322E+02_JPRB,3.2256E+02_JPRB/)
+KBO( :,44,11) = (/&
+&1.4807E+02_JPRB,1.7777E+02_JPRB,2.1401E+02_JPRB,2.5624E+02_JPRB,3.0398E+02_JPRB/)
+KBO( :,45,11) = (/&
+&1.3833E+02_JPRB,1.6586E+02_JPRB,1.9992E+02_JPRB,2.4015E+02_JPRB,2.8607E+02_JPRB/)
+KBO( :,46,11) = (/&
+&1.2866E+02_JPRB,1.5433E+02_JPRB,1.8602E+02_JPRB,2.2411E+02_JPRB,2.6807E+02_JPRB/)
+KBO( :,47,11) = (/&
+&1.1806E+02_JPRB,1.4268E+02_JPRB,1.7176E+02_JPRB,2.0732E+02_JPRB,2.4896E+02_JPRB/)
+KBO( :,48,11) = (/&
+&1.0762E+02_JPRB,1.3206E+02_JPRB,1.5870E+02_JPRB,1.9169E+02_JPRB,2.3091E+02_JPRB/)
+KBO( :,49,11) = (/&
+&9.7413E+01_JPRB,1.2171E+02_JPRB,1.4684E+02_JPRB,1.7718E+02_JPRB,2.1396E+02_JPRB/)
+KBO( :,50,11) = (/&
+&8.8070E+01_JPRB,1.1204E+02_JPRB,1.3673E+02_JPRB,1.6460E+02_JPRB,1.9898E+02_JPRB/)
+KBO( :,51,11) = (/&
+&7.9391E+01_JPRB,1.0276E+02_JPRB,1.2732E+02_JPRB,1.5339E+02_JPRB,1.8537E+02_JPRB/)
+KBO( :,52,11) = (/&
+&7.1290E+01_JPRB,9.3724E+01_JPRB,1.1803E+02_JPRB,1.4312E+02_JPRB,1.7272E+02_JPRB/)
+KBO( :,53,11) = (/&
+&6.3690E+01_JPRB,8.4888E+01_JPRB,1.0877E+02_JPRB,1.3364E+02_JPRB,1.6093E+02_JPRB/)
+KBO( :,54,11) = (/&
+&5.7252E+01_JPRB,7.7190E+01_JPRB,1.0050E+02_JPRB,1.2512E+02_JPRB,1.5096E+02_JPRB/)
+KBO( :,55,11) = (/&
+&5.1553E+01_JPRB,7.0213E+01_JPRB,9.2633E+01_JPRB,1.1699E+02_JPRB,1.4211E+02_JPRB/)
+KBO( :,56,11) = (/&
+&4.6347E+01_JPRB,6.3641E+01_JPRB,8.4965E+01_JPRB,1.0895E+02_JPRB,1.3389E+02_JPRB/)
+KBO( :,57,11) = (/&
+&4.1558E+01_JPRB,5.7539E+01_JPRB,7.7656E+01_JPRB,1.0100E+02_JPRB,1.2577E+02_JPRB/)
+KBO( :,58,11) = (/&
+&3.7465E+01_JPRB,5.2155E+01_JPRB,7.1065E+01_JPRB,9.3602E+01_JPRB,1.1811E+02_JPRB/)
+KBO( :,59,11) = (/&
+&3.5865E+01_JPRB,5.0074E+01_JPRB,6.8488E+01_JPRB,9.0703E+01_JPRB,1.1503E+02_JPRB/)
+KBO( :,13,12) = (/&
+&3.5818E+03_JPRB,3.5602E+03_JPRB,3.5361E+03_JPRB,3.5062E+03_JPRB,3.4753E+03_JPRB/)
+KBO( :,14,12) = (/&
+&3.4873E+03_JPRB,3.4617E+03_JPRB,3.4320E+03_JPRB,3.3978E+03_JPRB,3.3640E+03_JPRB/)
+KBO( :,15,12) = (/&
+&3.3174E+03_JPRB,3.2873E+03_JPRB,3.2522E+03_JPRB,3.2184E+03_JPRB,3.1823E+03_JPRB/)
+KBO( :,16,12) = (/&
+&3.0916E+03_JPRB,3.0581E+03_JPRB,3.0238E+03_JPRB,2.9909E+03_JPRB,2.9539E+03_JPRB/)
+KBO( :,17,12) = (/&
+&2.8257E+03_JPRB,2.7923E+03_JPRB,2.7615E+03_JPRB,2.7297E+03_JPRB,2.6960E+03_JPRB/)
+KBO( :,18,12) = (/&
+&2.5404E+03_JPRB,2.5105E+03_JPRB,2.4823E+03_JPRB,2.4526E+03_JPRB,2.4250E+03_JPRB/)
+KBO( :,19,12) = (/&
+&2.2483E+03_JPRB,2.2241E+03_JPRB,2.1993E+03_JPRB,2.1755E+03_JPRB,2.1543E+03_JPRB/)
+KBO( :,20,12) = (/&
+&1.9604E+03_JPRB,1.9400E+03_JPRB,1.9209E+03_JPRB,1.9048E+03_JPRB,1.8895E+03_JPRB/)
+KBO( :,21,12) = (/&
+&1.6892E+03_JPRB,1.6737E+03_JPRB,1.6614E+03_JPRB,1.6516E+03_JPRB,1.6529E+03_JPRB/)
+KBO( :,22,12) = (/&
+&1.4436E+03_JPRB,1.4342E+03_JPRB,1.4286E+03_JPRB,1.4399E+03_JPRB,1.4734E+03_JPRB/)
+KBO( :,23,12) = (/&
+&1.2278E+03_JPRB,1.2256E+03_JPRB,1.2434E+03_JPRB,1.2846E+03_JPRB,1.3446E+03_JPRB/)
+KBO( :,24,12) = (/&
+&1.0469E+03_JPRB,1.0648E+03_JPRB,1.1103E+03_JPRB,1.1758E+03_JPRB,1.2604E+03_JPRB/)
+KBO( :,25,12) = (/&
+&9.1261E+02_JPRB,9.5264E+02_JPRB,1.0193E+03_JPRB,1.1064E+03_JPRB,1.2100E+03_JPRB/)
+KBO( :,26,12) = (/&
+&8.2117E+02_JPRB,8.8093E+02_JPRB,9.6383E+02_JPRB,1.0654E+03_JPRB,1.1751E+03_JPRB/)
+KBO( :,27,12) = (/&
+&7.6353E+02_JPRB,8.3890E+02_JPRB,9.3016E+02_JPRB,1.0327E+03_JPRB,1.1460E+03_JPRB/)
+KBO( :,28,12) = (/&
+&7.3032E+02_JPRB,8.1065E+02_JPRB,9.0335E+02_JPRB,1.0079E+03_JPRB,1.1263E+03_JPRB/)
+KBO( :,29,12) = (/&
+&7.0685E+02_JPRB,7.8909E+02_JPRB,8.8424E+02_JPRB,9.9311E+02_JPRB,1.1170E+03_JPRB/)
+KBO( :,30,12) = (/&
+&6.8897E+02_JPRB,7.7363E+02_JPRB,8.7322E+02_JPRB,9.8778E+02_JPRB,1.1175E+03_JPRB/)
+KBO( :,31,12) = (/&
+&6.7689E+02_JPRB,7.6589E+02_JPRB,8.7126E+02_JPRB,9.9171E+02_JPRB,1.1269E+03_JPRB/)
+KBO( :,32,12) = (/&
+&6.7137E+02_JPRB,7.6614E+02_JPRB,8.7757E+02_JPRB,1.0041E+03_JPRB,1.1438E+03_JPRB/)
+KBO( :,33,12) = (/&
+&6.7295E+02_JPRB,7.7394E+02_JPRB,8.9109E+02_JPRB,1.0224E+03_JPRB,1.1662E+03_JPRB/)
+KBO( :,34,12) = (/&
+&6.7760E+02_JPRB,7.8360E+02_JPRB,9.0569E+02_JPRB,1.0406E+03_JPRB,1.1879E+03_JPRB/)
+KBO( :,35,12) = (/&
+&6.7716E+02_JPRB,7.8671E+02_JPRB,9.1119E+02_JPRB,1.0486E+03_JPRB,1.1979E+03_JPRB/)
+KBO( :,36,12) = (/&
+&6.6904E+02_JPRB,7.7952E+02_JPRB,9.0494E+02_JPRB,1.0434E+03_JPRB,1.1930E+03_JPRB/)
+KBO( :,37,12) = (/&
+&6.4763E+02_JPRB,7.5648E+02_JPRB,8.8059E+02_JPRB,1.0176E+03_JPRB,1.1662E+03_JPRB/)
+KBO( :,38,12) = (/&
+&6.2716E+02_JPRB,7.3431E+02_JPRB,8.5661E+02_JPRB,9.9212E+02_JPRB,1.1395E+03_JPRB/)
+KBO( :,39,12) = (/&
+&6.0818E+02_JPRB,7.1366E+02_JPRB,8.3407E+02_JPRB,9.6793E+02_JPRB,1.1141E+03_JPRB/)
+KBO( :,40,12) = (/&
+&5.8003E+02_JPRB,6.8275E+02_JPRB,7.9982E+02_JPRB,9.3064E+02_JPRB,1.0742E+03_JPRB/)
+KBO( :,41,12) = (/&
+&5.5133E+02_JPRB,6.5206E+02_JPRB,7.6547E+02_JPRB,8.9303E+02_JPRB,1.0336E+03_JPRB/)
+KBO( :,42,12) = (/&
+&5.2305E+02_JPRB,6.2298E+02_JPRB,7.3258E+02_JPRB,8.5660E+02_JPRB,9.9409E+02_JPRB/)
+KBO( :,43,12) = (/&
+&4.8966E+02_JPRB,5.8921E+02_JPRB,6.9465E+02_JPRB,8.1454E+02_JPRB,9.4783E+02_JPRB/)
+KBO( :,44,12) = (/&
+&4.5450E+02_JPRB,5.5350E+02_JPRB,6.5588E+02_JPRB,7.7082E+02_JPRB,8.9980E+02_JPRB/)
+KBO( :,45,12) = (/&
+&4.2021E+02_JPRB,5.1820E+02_JPRB,6.1912E+02_JPRB,7.2914E+02_JPRB,8.5336E+02_JPRB/)
+KBO( :,46,12) = (/&
+&3.8545E+02_JPRB,4.8121E+02_JPRB,5.8143E+02_JPRB,6.8674E+02_JPRB,8.0608E+02_JPRB/)
+KBO( :,47,12) = (/&
+&3.4881E+02_JPRB,4.4053E+02_JPRB,5.3980E+02_JPRB,6.4195E+02_JPRB,7.5551E+02_JPRB/)
+KBO( :,48,12) = (/&
+&3.1491E+02_JPRB,4.0104E+02_JPRB,4.9870E+02_JPRB,5.9963E+02_JPRB,7.0738E+02_JPRB/)
+KBO( :,49,12) = (/&
+&2.8368E+02_JPRB,3.6400E+02_JPRB,4.5807E+02_JPRB,5.5813E+02_JPRB,6.6173E+02_JPRB/)
+KBO( :,50,12) = (/&
+&2.5677E+02_JPRB,3.3132E+02_JPRB,4.2070E+02_JPRB,5.1964E+02_JPRB,6.2120E+02_JPRB/)
+KBO( :,51,12) = (/&
+&2.3306E+02_JPRB,3.0179E+02_JPRB,3.8584E+02_JPRB,4.8266E+02_JPRB,5.8343E+02_JPRB/)
+KBO( :,52,12) = (/&
+&2.1156E+02_JPRB,2.7447E+02_JPRB,3.5296E+02_JPRB,4.4605E+02_JPRB,5.4606E+02_JPRB/)
+KBO( :,53,12) = (/&
+&1.9230E+02_JPRB,2.4924E+02_JPRB,3.2214E+02_JPRB,4.1028E+02_JPRB,5.0889E+02_JPRB/)
+KBO( :,54,12) = (/&
+&1.7631E+02_JPRB,2.2814E+02_JPRB,2.9584E+02_JPRB,3.7892E+02_JPRB,4.7521E+02_JPRB/)
+KBO( :,55,12) = (/&
+&1.6135E+02_JPRB,2.0966E+02_JPRB,2.7215E+02_JPRB,3.5038E+02_JPRB,4.4318E+02_JPRB/)
+KBO( :,56,12) = (/&
+&1.4671E+02_JPRB,1.9290E+02_JPRB,2.5021E+02_JPRB,3.2348E+02_JPRB,4.1193E+02_JPRB/)
+KBO( :,57,12) = (/&
+&1.3244E+02_JPRB,1.7761E+02_JPRB,2.2999E+02_JPRB,2.9808E+02_JPRB,3.8198E+02_JPRB/)
+KBO( :,58,12) = (/&
+&1.1934E+02_JPRB,1.6351E+02_JPRB,2.1236E+02_JPRB,2.7551E+02_JPRB,3.5480E+02_JPRB/)
+KBO( :,59,12) = (/&
+&1.1416E+02_JPRB,1.5788E+02_JPRB,2.0569E+02_JPRB,2.6705E+02_JPRB,3.4428E+02_JPRB/)
+KBO( :,13,13) = (/&
+&6.2395E+03_JPRB,6.2548E+03_JPRB,6.2528E+03_JPRB,6.2437E+03_JPRB,6.2212E+03_JPRB/)
+KBO( :,14,13) = (/&
+&6.5506E+03_JPRB,6.5502E+03_JPRB,6.5372E+03_JPRB,6.5181E+03_JPRB,6.4862E+03_JPRB/)
+KBO( :,15,13) = (/&
+&6.7305E+03_JPRB,6.7173E+03_JPRB,6.7025E+03_JPRB,6.6735E+03_JPRB,6.6396E+03_JPRB/)
+KBO( :,16,13) = (/&
+&6.7735E+03_JPRB,6.7593E+03_JPRB,6.7329E+03_JPRB,6.7018E+03_JPRB,6.6632E+03_JPRB/)
+KBO( :,17,13) = (/&
+&6.6866E+03_JPRB,6.6652E+03_JPRB,6.6418E+03_JPRB,6.6109E+03_JPRB,6.5815E+03_JPRB/)
+KBO( :,18,13) = (/&
+&6.4678E+03_JPRB,6.4550E+03_JPRB,6.4343E+03_JPRB,6.4161E+03_JPRB,6.3909E+03_JPRB/)
+KBO( :,19,13) = (/&
+&6.1502E+03_JPRB,6.1407E+03_JPRB,6.1364E+03_JPRB,6.1306E+03_JPRB,6.1254E+03_JPRB/)
+KBO( :,20,13) = (/&
+&5.7689E+03_JPRB,5.7735E+03_JPRB,5.7841E+03_JPRB,5.7948E+03_JPRB,5.8088E+03_JPRB/)
+KBO( :,21,13) = (/&
+&5.3403E+03_JPRB,5.3684E+03_JPRB,5.3985E+03_JPRB,5.4338E+03_JPRB,5.4704E+03_JPRB/)
+KBO( :,22,13) = (/&
+&4.8996E+03_JPRB,4.9455E+03_JPRB,5.0039E+03_JPRB,5.0665E+03_JPRB,5.1301E+03_JPRB/)
+KBO( :,23,13) = (/&
+&4.4632E+03_JPRB,4.5382E+03_JPRB,4.6203E+03_JPRB,4.7095E+03_JPRB,4.8061E+03_JPRB/)
+KBO( :,24,13) = (/&
+&4.0592E+03_JPRB,4.1561E+03_JPRB,4.2652E+03_JPRB,4.3841E+03_JPRB,4.5045E+03_JPRB/)
+KBO( :,25,13) = (/&
+&3.6916E+03_JPRB,3.8157E+03_JPRB,3.9506E+03_JPRB,4.0939E+03_JPRB,4.2439E+03_JPRB/)
+KBO( :,26,13) = (/&
+&3.3695E+03_JPRB,3.5229E+03_JPRB,3.6811E+03_JPRB,3.8560E+03_JPRB,4.0438E+03_JPRB/)
+KBO( :,27,13) = (/&
+&3.0970E+03_JPRB,3.2745E+03_JPRB,3.4707E+03_JPRB,3.6834E+03_JPRB,3.9050E+03_JPRB/)
+KBO( :,28,13) = (/&
+&2.8706E+03_JPRB,3.0888E+03_JPRB,3.3231E+03_JPRB,3.5664E+03_JPRB,3.8148E+03_JPRB/)
+KBO( :,29,13) = (/&
+&2.7113E+03_JPRB,2.9644E+03_JPRB,3.2288E+03_JPRB,3.4982E+03_JPRB,3.7656E+03_JPRB/)
+KBO( :,30,13) = (/&
+&2.6074E+03_JPRB,2.8885E+03_JPRB,3.1778E+03_JPRB,3.4648E+03_JPRB,3.7470E+03_JPRB/)
+KBO( :,31,13) = (/&
+&2.5496E+03_JPRB,2.8533E+03_JPRB,3.1606E+03_JPRB,3.4611E+03_JPRB,3.7527E+03_JPRB/)
+KBO( :,32,13) = (/&
+&2.5294E+03_JPRB,2.8506E+03_JPRB,3.1699E+03_JPRB,3.4785E+03_JPRB,3.7755E+03_JPRB/)
+KBO( :,33,13) = (/&
+&2.5376E+03_JPRB,2.8705E+03_JPRB,3.1985E+03_JPRB,3.5117E+03_JPRB,3.8116E+03_JPRB/)
+KBO( :,34,13) = (/&
+&2.5544E+03_JPRB,2.8966E+03_JPRB,3.2284E+03_JPRB,3.5457E+03_JPRB,3.8464E+03_JPRB/)
+KBO( :,35,13) = (/&
+&2.5535E+03_JPRB,2.9023E+03_JPRB,3.2375E+03_JPRB,3.5577E+03_JPRB,3.8601E+03_JPRB/)
+KBO( :,36,13) = (/&
+&2.5246E+03_JPRB,2.8777E+03_JPRB,3.2177E+03_JPRB,3.5406E+03_JPRB,3.8472E+03_JPRB/)
+KBO( :,37,13) = (/&
+&2.4476E+03_JPRB,2.8057E+03_JPRB,3.1519E+03_JPRB,3.4804E+03_JPRB,3.7923E+03_JPRB/)
+KBO( :,38,13) = (/&
+&2.3725E+03_JPRB,2.7347E+03_JPRB,3.0855E+03_JPRB,3.4198E+03_JPRB,3.7363E+03_JPRB/)
+KBO( :,39,13) = (/&
+&2.3022E+03_JPRB,2.6668E+03_JPRB,3.0226E+03_JPRB,3.3616E+03_JPRB,3.6822E+03_JPRB/)
+KBO( :,40,13) = (/&
+&2.1978E+03_JPRB,2.5643E+03_JPRB,2.9251E+03_JPRB,3.2708E+03_JPRB,3.5971E+03_JPRB/)
+KBO( :,41,13) = (/&
+&2.0936E+03_JPRB,2.4587E+03_JPRB,2.8232E+03_JPRB,3.1755E+03_JPRB,3.5072E+03_JPRB/)
+KBO( :,42,13) = (/&
+&1.9924E+03_JPRB,2.3537E+03_JPRB,2.7212E+03_JPRB,3.0790E+03_JPRB,3.4170E+03_JPRB/)
+KBO( :,43,13) = (/&
+&1.8759E+03_JPRB,2.2299E+03_JPRB,2.5995E+03_JPRB,2.9624E+03_JPRB,3.3082E+03_JPRB/)
+KBO( :,44,13) = (/&
+&1.7551E+03_JPRB,2.1002E+03_JPRB,2.4686E+03_JPRB,2.8357E+03_JPRB,3.1891E+03_JPRB/)
+KBO( :,45,13) = (/&
+&1.6392E+03_JPRB,1.9745E+03_JPRB,2.3377E+03_JPRB,2.7076E+03_JPRB,3.0676E+03_JPRB/)
+KBO( :,46,13) = (/&
+&1.5222E+03_JPRB,1.8455E+03_JPRB,2.1996E+03_JPRB,2.5709E+03_JPRB,2.9366E+03_JPRB/)
+KBO( :,47,13) = (/&
+&1.3973E+03_JPRB,1.7071E+03_JPRB,2.0502E+03_JPRB,2.4181E+03_JPRB,2.7876E+03_JPRB/)
+KBO( :,48,13) = (/&
+&1.2797E+03_JPRB,1.5744E+03_JPRB,1.9051E+03_JPRB,2.2652E+03_JPRB,2.6369E+03_JPRB/)
+KBO( :,49,13) = (/&
+&1.1690E+03_JPRB,1.4484E+03_JPRB,1.7654E+03_JPRB,2.1147E+03_JPRB,2.4860E+03_JPRB/)
+KBO( :,50,13) = (/&
+&1.0720E+03_JPRB,1.3359E+03_JPRB,1.6397E+03_JPRB,1.9779E+03_JPRB,2.3429E+03_JPRB/)
+KBO( :,51,13) = (/&
+&9.8386E+02_JPRB,1.2327E+03_JPRB,1.5222E+03_JPRB,1.8488E+03_JPRB,2.2054E+03_JPRB/)
+KBO( :,52,13) = (/&
+&9.0207E+02_JPRB,1.1351E+03_JPRB,1.4100E+03_JPRB,1.7243E+03_JPRB,2.0711E+03_JPRB/)
+KBO( :,53,13) = (/&
+&8.2675E+02_JPRB,1.0437E+03_JPRB,1.3030E+03_JPRB,1.6043E+03_JPRB,1.9396E+03_JPRB/)
+KBO( :,54,13) = (/&
+&7.6352E+02_JPRB,9.6482E+02_JPRB,1.2111E+03_JPRB,1.4982E+03_JPRB,1.8229E+03_JPRB/)
+KBO( :,55,13) = (/&
+&7.0952E+02_JPRB,8.9409E+02_JPRB,1.1266E+03_JPRB,1.4008E+03_JPRB,1.7142E+03_JPRB/)
+KBO( :,56,13) = (/&
+&6.6233E+02_JPRB,8.2850E+02_JPRB,1.0468E+03_JPRB,1.3073E+03_JPRB,1.6094E+03_JPRB/)
+KBO( :,57,13) = (/&
+&6.2132E+02_JPRB,7.6796E+02_JPRB,9.7144E+02_JPRB,1.2186E+03_JPRB,1.5081E+03_JPRB/)
+KBO( :,58,13) = (/&
+&5.8653E+02_JPRB,7.1647E+02_JPRB,9.0432E+02_JPRB,1.1383E+03_JPRB,1.4157E+03_JPRB/)
+KBO( :,59,13) = (/&
+&5.7212E+02_JPRB,6.9724E+02_JPRB,8.7847E+02_JPRB,1.1078E+03_JPRB,1.3794E+03_JPRB/)
+KBO( :,13,14) = (/&
+&9.8835E+03_JPRB,9.9539E+03_JPRB,1.0003E+04_JPRB,1.0028E+04_JPRB,1.0036E+04_JPRB/)
+KBO( :,14,14) = (/&
+&1.1157E+04_JPRB,1.1221E+04_JPRB,1.1261E+04_JPRB,1.1278E+04_JPRB,1.1272E+04_JPRB/)
+KBO( :,15,14) = (/&
+&1.2451E+04_JPRB,1.2500E+04_JPRB,1.2523E+04_JPRB,1.2525E+04_JPRB,1.2496E+04_JPRB/)
+KBO( :,16,14) = (/&
+&1.3702E+04_JPRB,1.3735E+04_JPRB,1.3749E+04_JPRB,1.3724E+04_JPRB,1.3688E+04_JPRB/)
+KBO( :,17,14) = (/&
+&1.4864E+04_JPRB,1.4899E+04_JPRB,1.4888E+04_JPRB,1.4860E+04_JPRB,1.4794E+04_JPRB/)
+KBO( :,18,14) = (/&
+&1.5913E+04_JPRB,1.5926E+04_JPRB,1.5919E+04_JPRB,1.5876E+04_JPRB,1.5804E+04_JPRB/)
+KBO( :,19,14) = (/&
+&1.6806E+04_JPRB,1.6819E+04_JPRB,1.6811E+04_JPRB,1.6767E+04_JPRB,1.6686E+04_JPRB/)
+KBO( :,20,14) = (/&
+&1.7528E+04_JPRB,1.7560E+04_JPRB,1.7554E+04_JPRB,1.7516E+04_JPRB,1.7446E+04_JPRB/)
+KBO( :,21,14) = (/&
+&1.8101E+04_JPRB,1.8142E+04_JPRB,1.8157E+04_JPRB,1.8133E+04_JPRB,1.8069E+04_JPRB/)
+KBO( :,22,14) = (/&
+&1.8522E+04_JPRB,1.8600E+04_JPRB,1.8643E+04_JPRB,1.8633E+04_JPRB,1.8576E+04_JPRB/)
+KBO( :,23,14) = (/&
+&1.8830E+04_JPRB,1.8951E+04_JPRB,1.9026E+04_JPRB,1.9036E+04_JPRB,1.8990E+04_JPRB/)
+KBO( :,24,14) = (/&
+&1.9044E+04_JPRB,1.9220E+04_JPRB,1.9318E+04_JPRB,1.9356E+04_JPRB,1.9336E+04_JPRB/)
+KBO( :,25,14) = (/&
+&1.9206E+04_JPRB,1.9423E+04_JPRB,1.9557E+04_JPRB,1.9620E+04_JPRB,1.9613E+04_JPRB/)
+KBO( :,26,14) = (/&
+&1.9345E+04_JPRB,1.9590E+04_JPRB,1.9754E+04_JPRB,1.9836E+04_JPRB,1.9837E+04_JPRB/)
+KBO( :,27,14) = (/&
+&1.9462E+04_JPRB,1.9735E+04_JPRB,1.9916E+04_JPRB,2.0012E+04_JPRB,2.0020E+04_JPRB/)
+KBO( :,28,14) = (/&
+&1.9573E+04_JPRB,1.9864E+04_JPRB,2.0059E+04_JPRB,2.0163E+04_JPRB,2.0168E+04_JPRB/)
+KBO( :,29,14) = (/&
+&1.9682E+04_JPRB,1.9985E+04_JPRB,2.0186E+04_JPRB,2.0286E+04_JPRB,2.0288E+04_JPRB/)
+KBO( :,30,14) = (/&
+&1.9789E+04_JPRB,2.0101E+04_JPRB,2.0295E+04_JPRB,2.0389E+04_JPRB,2.0383E+04_JPRB/)
+KBO( :,31,14) = (/&
+&1.9904E+04_JPRB,2.0212E+04_JPRB,2.0395E+04_JPRB,2.0474E+04_JPRB,2.0459E+04_JPRB/)
+KBO( :,32,14) = (/&
+&2.0019E+04_JPRB,2.0312E+04_JPRB,2.0477E+04_JPRB,2.0546E+04_JPRB,2.0515E+04_JPRB/)
+KBO( :,33,14) = (/&
+&2.0130E+04_JPRB,2.0401E+04_JPRB,2.0548E+04_JPRB,2.0603E+04_JPRB,2.0557E+04_JPRB/)
+KBO( :,34,14) = (/&
+&2.0224E+04_JPRB,2.0479E+04_JPRB,2.0609E+04_JPRB,2.0649E+04_JPRB,2.0588E+04_JPRB/)
+KBO( :,35,14) = (/&
+&2.0280E+04_JPRB,2.0527E+04_JPRB,2.0652E+04_JPRB,2.0686E+04_JPRB,2.0619E+04_JPRB/)
+KBO( :,36,14) = (/&
+&2.0300E+04_JPRB,2.0553E+04_JPRB,2.0683E+04_JPRB,2.0717E+04_JPRB,2.0652E+04_JPRB/)
+KBO( :,37,14) = (/&
+&2.0267E+04_JPRB,2.0544E+04_JPRB,2.0692E+04_JPRB,2.0745E+04_JPRB,2.0696E+04_JPRB/)
+KBO( :,38,14) = (/&
+&2.0221E+04_JPRB,2.0526E+04_JPRB,2.0695E+04_JPRB,2.0765E+04_JPRB,2.0733E+04_JPRB/)
+KBO( :,39,14) = (/&
+&2.0172E+04_JPRB,2.0502E+04_JPRB,2.0692E+04_JPRB,2.0780E+04_JPRB,2.0762E+04_JPRB/)
+KBO( :,40,14) = (/&
+&2.0072E+04_JPRB,2.0440E+04_JPRB,2.0669E+04_JPRB,2.0782E+04_JPRB,2.0789E+04_JPRB/)
+KBO( :,41,14) = (/&
+&1.9953E+04_JPRB,2.0365E+04_JPRB,2.0629E+04_JPRB,2.0773E+04_JPRB,2.0810E+04_JPRB/)
+KBO( :,42,14) = (/&
+&1.9824E+04_JPRB,2.0275E+04_JPRB,2.0580E+04_JPRB,2.0757E+04_JPRB,2.0819E+04_JPRB/)
+KBO( :,43,14) = (/&
+&1.9649E+04_JPRB,2.0152E+04_JPRB,2.0505E+04_JPRB,2.0716E+04_JPRB,2.0819E+04_JPRB/)
+KBO( :,44,14) = (/&
+&1.9430E+04_JPRB,2.0000E+04_JPRB,2.0405E+04_JPRB,2.0665E+04_JPRB,2.0802E+04_JPRB/)
+KBO( :,45,14) = (/&
+&1.9196E+04_JPRB,1.9828E+04_JPRB,2.0288E+04_JPRB,2.0595E+04_JPRB,2.0775E+04_JPRB/)
+KBO( :,46,14) = (/&
+&1.8908E+04_JPRB,1.9621E+04_JPRB,2.0141E+04_JPRB,2.0502E+04_JPRB,2.0723E+04_JPRB/)
+KBO( :,47,14) = (/&
+&1.8564E+04_JPRB,1.9359E+04_JPRB,1.9951E+04_JPRB,2.0375E+04_JPRB,2.0651E+04_JPRB/)
+KBO( :,48,14) = (/&
+&1.8186E+04_JPRB,1.9064E+04_JPRB,1.9734E+04_JPRB,2.0222E+04_JPRB,2.0560E+04_JPRB/)
+KBO( :,49,14) = (/&
+&1.7775E+04_JPRB,1.8727E+04_JPRB,1.9486E+04_JPRB,2.0046E+04_JPRB,2.0443E+04_JPRB/)
+KBO( :,50,14) = (/&
+&1.7362E+04_JPRB,1.8391E+04_JPRB,1.9223E+04_JPRB,1.9856E+04_JPRB,2.0310E+04_JPRB/)
+KBO( :,51,14) = (/&
+&1.6921E+04_JPRB,1.8033E+04_JPRB,1.8942E+04_JPRB,1.9648E+04_JPRB,2.0164E+04_JPRB/)
+KBO( :,52,14) = (/&
+&1.6453E+04_JPRB,1.7649E+04_JPRB,1.8637E+04_JPRB,1.9415E+04_JPRB,1.9994E+04_JPRB/)
+KBO( :,53,14) = (/&
+&1.5948E+04_JPRB,1.7240E+04_JPRB,1.8303E+04_JPRB,1.9152E+04_JPRB,1.9803E+04_JPRB/)
+KBO( :,54,14) = (/&
+&1.5455E+04_JPRB,1.6834E+04_JPRB,1.7961E+04_JPRB,1.8891E+04_JPRB,1.9606E+04_JPRB/)
+KBO( :,55,14) = (/&
+&1.4957E+04_JPRB,1.6418E+04_JPRB,1.7624E+04_JPRB,1.8615E+04_JPRB,1.9397E+04_JPRB/)
+KBO( :,56,14) = (/&
+&1.4440E+04_JPRB,1.5974E+04_JPRB,1.7263E+04_JPRB,1.8321E+04_JPRB,1.9169E+04_JPRB/)
+KBO( :,57,14) = (/&
+&1.3900E+04_JPRB,1.5506E+04_JPRB,1.6878E+04_JPRB,1.8004E+04_JPRB,1.8917E+04_JPRB/)
+KBO( :,58,14) = (/&
+&1.3361E+04_JPRB,1.5039E+04_JPRB,1.6487E+04_JPRB,1.7689E+04_JPRB,1.8664E+04_JPRB/)
+KBO( :,59,14) = (/&
+&1.3141E+04_JPRB,1.4845E+04_JPRB,1.6324E+04_JPRB,1.7549E+04_JPRB,1.8556E+04_JPRB/)
+KBO( :,13,15) = (/&
+&1.3105E+04_JPRB,1.3211E+04_JPRB,1.3290E+04_JPRB,1.3347E+04_JPRB,1.3377E+04_JPRB/)
+KBO( :,14,15) = (/&
+&1.5542E+04_JPRB,1.5648E+04_JPRB,1.5712E+04_JPRB,1.5742E+04_JPRB,1.5741E+04_JPRB/)
+KBO( :,15,15) = (/&
+&1.8293E+04_JPRB,1.8393E+04_JPRB,1.8434E+04_JPRB,1.8432E+04_JPRB,1.8387E+04_JPRB/)
+KBO( :,16,15) = (/&
+&2.1367E+04_JPRB,2.1424E+04_JPRB,2.1423E+04_JPRB,2.1375E+04_JPRB,2.1256E+04_JPRB/)
+KBO( :,17,15) = (/&
+&2.4738E+04_JPRB,2.4717E+04_JPRB,2.4651E+04_JPRB,2.4501E+04_JPRB,2.4302E+04_JPRB/)
+KBO( :,18,15) = (/&
+&2.8333E+04_JPRB,2.8229E+04_JPRB,2.8040E+04_JPRB,2.7775E+04_JPRB,2.7461E+04_JPRB/)
+KBO( :,19,15) = (/&
+&3.2088E+04_JPRB,3.1857E+04_JPRB,3.1527E+04_JPRB,3.1118E+04_JPRB,3.0643E+04_JPRB/)
+KBO( :,20,15) = (/&
+&3.5897E+04_JPRB,3.5492E+04_JPRB,3.5012E+04_JPRB,3.4430E+04_JPRB,3.3771E+04_JPRB/)
+KBO( :,21,15) = (/&
+&3.9650E+04_JPRB,3.9061E+04_JPRB,3.8385E+04_JPRB,3.7607E+04_JPRB,3.6774E+04_JPRB/)
+KBO( :,22,15) = (/&
+&4.3231E+04_JPRB,4.2424E+04_JPRB,4.1504E+04_JPRB,4.0530E+04_JPRB,3.9497E+04_JPRB/)
+KBO( :,23,15) = (/&
+&4.6557E+04_JPRB,4.5500E+04_JPRB,4.4350E+04_JPRB,4.3167E+04_JPRB,4.1929E+04_JPRB/)
+KBO( :,24,15) = (/&
+&4.9552E+04_JPRB,4.8236E+04_JPRB,4.6880E+04_JPRB,4.5475E+04_JPRB,4.4033E+04_JPRB/)
+KBO( :,25,15) = (/&
+&5.2158E+04_JPRB,5.0602E+04_JPRB,4.9033E+04_JPRB,4.7428E+04_JPRB,4.5797E+04_JPRB/)
+KBO( :,26,15) = (/&
+&5.4326E+04_JPRB,5.2566E+04_JPRB,5.0793E+04_JPRB,4.9004E+04_JPRB,4.7209E+04_JPRB/)
+KBO( :,27,15) = (/&
+&5.6113E+04_JPRB,5.4155E+04_JPRB,5.2200E+04_JPRB,5.0246E+04_JPRB,4.8319E+04_JPRB/)
+KBO( :,28,15) = (/&
+&5.7518E+04_JPRB,5.5394E+04_JPRB,5.3278E+04_JPRB,5.1199E+04_JPRB,4.9157E+04_JPRB/)
+KBO( :,29,15) = (/&
+&5.8580E+04_JPRB,5.6300E+04_JPRB,5.4057E+04_JPRB,5.1871E+04_JPRB,4.9732E+04_JPRB/)
+KBO( :,30,15) = (/&
+&5.9321E+04_JPRB,5.6927E+04_JPRB,5.4587E+04_JPRB,5.2312E+04_JPRB,5.0097E+04_JPRB/)
+KBO( :,31,15) = (/&
+&5.9791E+04_JPRB,5.7302E+04_JPRB,5.4893E+04_JPRB,5.2547E+04_JPRB,5.0272E+04_JPRB/)
+KBO( :,32,15) = (/&
+&6.0024E+04_JPRB,5.7470E+04_JPRB,5.5008E+04_JPRB,5.2603E+04_JPRB,5.0291E+04_JPRB/)
+KBO( :,33,15) = (/&
+&6.0073E+04_JPRB,5.7468E+04_JPRB,5.4966E+04_JPRB,5.2524E+04_JPRB,5.0181E+04_JPRB/)
+KBO( :,34,15) = (/&
+&6.0061E+04_JPRB,5.7423E+04_JPRB,5.4889E+04_JPRB,5.2419E+04_JPRB,5.0055E+04_JPRB/)
+KBO( :,35,15) = (/&
+&6.0191E+04_JPRB,5.7520E+04_JPRB,5.4955E+04_JPRB,5.2459E+04_JPRB,5.0075E+04_JPRB/)
+KBO( :,36,15) = (/&
+&6.0539E+04_JPRB,5.7824E+04_JPRB,5.5225E+04_JPRB,5.2698E+04_JPRB,5.0287E+04_JPRB/)
+KBO( :,37,15) = (/&
+&6.1234E+04_JPRB,5.8473E+04_JPRB,5.5831E+04_JPRB,5.3268E+04_JPRB,5.0811E+04_JPRB/)
+KBO( :,38,15) = (/&
+&6.1911E+04_JPRB,5.9110E+04_JPRB,5.6429E+04_JPRB,5.3825E+04_JPRB,5.1333E+04_JPRB/)
+KBO( :,39,15) = (/&
+&6.2546E+04_JPRB,5.9701E+04_JPRB,5.6980E+04_JPRB,5.4347E+04_JPRB,5.1826E+04_JPRB/)
+KBO( :,40,15) = (/&
+&6.3440E+04_JPRB,6.0560E+04_JPRB,5.7786E+04_JPRB,5.5116E+04_JPRB,5.2552E+04_JPRB/)
+KBO( :,41,15) = (/&
+&6.4362E+04_JPRB,6.1427E+04_JPRB,5.8612E+04_JPRB,5.5905E+04_JPRB,5.3303E+04_JPRB/)
+KBO( :,42,15) = (/&
+&6.5271E+04_JPRB,6.2297E+04_JPRB,5.9433E+04_JPRB,5.6685E+04_JPRB,5.4054E+04_JPRB/)
+KBO( :,43,15) = (/&
+&6.6345E+04_JPRB,6.3316E+04_JPRB,6.0412E+04_JPRB,5.7629E+04_JPRB,5.4943E+04_JPRB/)
+KBO( :,44,15) = (/&
+&6.7502E+04_JPRB,6.4418E+04_JPRB,6.1461E+04_JPRB,5.8625E+04_JPRB,5.5900E+04_JPRB/)
+KBO( :,45,15) = (/&
+&6.8664E+04_JPRB,6.5524E+04_JPRB,6.2518E+04_JPRB,5.9632E+04_JPRB,5.6859E+04_JPRB/)
+KBO( :,46,15) = (/&
+&6.9916E+04_JPRB,6.6699E+04_JPRB,6.3637E+04_JPRB,6.0705E+04_JPRB,5.7897E+04_JPRB/)
+KBO( :,47,15) = (/&
+&7.1307E+04_JPRB,6.8027E+04_JPRB,6.4908E+04_JPRB,6.1920E+04_JPRB,5.9052E+04_JPRB/)
+KBO( :,48,15) = (/&
+&7.2692E+04_JPRB,6.9380E+04_JPRB,6.6186E+04_JPRB,6.3144E+04_JPRB,6.0224E+04_JPRB/)
+KBO( :,49,15) = (/&
+&7.4089E+04_JPRB,7.0754E+04_JPRB,6.7488E+04_JPRB,6.4384E+04_JPRB,6.1415E+04_JPRB/)
+KBO( :,50,15) = (/&
+&7.5388E+04_JPRB,7.2035E+04_JPRB,6.8731E+04_JPRB,6.5568E+04_JPRB,6.2543E+04_JPRB/)
+KBO( :,51,15) = (/&
+&7.6677E+04_JPRB,7.3293E+04_JPRB,6.9952E+04_JPRB,6.6726E+04_JPRB,6.3655E+04_JPRB/)
+KBO( :,52,15) = (/&
+&7.7977E+04_JPRB,7.4539E+04_JPRB,7.1186E+04_JPRB,6.7906E+04_JPRB,6.4783E+04_JPRB/)
+KBO( :,53,15) = (/&
+&7.9289E+04_JPRB,7.5794E+04_JPRB,7.2422E+04_JPRB,6.9107E+04_JPRB,6.5922E+04_JPRB/)
+KBO( :,54,15) = (/&
+&8.0507E+04_JPRB,7.6976E+04_JPRB,7.3575E+04_JPRB,7.0226E+04_JPRB,6.6980E+04_JPRB/)
+KBO( :,55,15) = (/&
+&8.1668E+04_JPRB,7.8115E+04_JPRB,7.4665E+04_JPRB,7.1303E+04_JPRB,6.8017E+04_JPRB/)
+KBO( :,56,15) = (/&
+&8.2825E+04_JPRB,7.9256E+04_JPRB,7.5760E+04_JPRB,7.2375E+04_JPRB,6.9059E+04_JPRB/)
+KBO( :,57,15) = (/&
+&8.3969E+04_JPRB,8.0408E+04_JPRB,7.6872E+04_JPRB,7.3475E+04_JPRB,7.0130E+04_JPRB/)
+KBO( :,58,15) = (/&
+&8.5046E+04_JPRB,8.1501E+04_JPRB,7.7943E+04_JPRB,7.4498E+04_JPRB,7.1139E+04_JPRB/)
+KBO( :,59,15) = (/&
+&8.5481E+04_JPRB,8.1948E+04_JPRB,7.8376E+04_JPRB,7.4922E+04_JPRB,7.1551E+04_JPRB/)
+KBO( :,13,16) = (/&
+&1.4822E+04_JPRB,1.4947E+04_JPRB,1.5039E+04_JPRB,1.5078E+04_JPRB,1.5067E+04_JPRB/)
+KBO( :,14,16) = (/&
+&1.7844E+04_JPRB,1.7976E+04_JPRB,1.8048E+04_JPRB,1.8049E+04_JPRB,1.8009E+04_JPRB/)
+KBO( :,15,16) = (/&
+&2.1400E+04_JPRB,2.1492E+04_JPRB,2.1520E+04_JPRB,2.1466E+04_JPRB,2.1373E+04_JPRB/)
+KBO( :,16,16) = (/&
+&2.5508E+04_JPRB,2.5515E+04_JPRB,2.5445E+04_JPRB,2.5314E+04_JPRB,2.5126E+04_JPRB/)
+KBO( :,17,16) = (/&
+&3.0159E+04_JPRB,3.0040E+04_JPRB,2.9821E+04_JPRB,2.9561E+04_JPRB,2.9224E+04_JPRB/)
+KBO( :,18,16) = (/&
+&3.5323E+04_JPRB,3.5002E+04_JPRB,3.4578E+04_JPRB,3.4138E+04_JPRB,3.3586E+04_JPRB/)
+KBO( :,19,16) = (/&
+&4.0906E+04_JPRB,4.0304E+04_JPRB,3.9627E+04_JPRB,3.8916E+04_JPRB,3.8103E+04_JPRB/)
+KBO( :,20,16) = (/&
+&4.6757E+04_JPRB,4.5796E+04_JPRB,4.4798E+04_JPRB,4.3759E+04_JPRB,4.2633E+04_JPRB/)
+KBO( :,21,16) = (/&
+&5.2696E+04_JPRB,5.1326E+04_JPRB,4.9934E+04_JPRB,4.8491E+04_JPRB,4.7018E+04_JPRB/)
+KBO( :,22,16) = (/&
+&5.8463E+04_JPRB,5.6597E+04_JPRB,5.4757E+04_JPRB,5.2889E+04_JPRB,5.1042E+04_JPRB/)
+KBO( :,23,16) = (/&
+&6.3885E+04_JPRB,6.1516E+04_JPRB,5.9197E+04_JPRB,5.6911E+04_JPRB,5.4673E+04_JPRB/)
+KBO( :,24,16) = (/&
+&6.8792E+04_JPRB,6.5930E+04_JPRB,6.3138E+04_JPRB,6.0429E+04_JPRB,5.7833E+04_JPRB/)
+KBO( :,25,16) = (/&
+&7.3081E+04_JPRB,6.9742E+04_JPRB,6.6502E+04_JPRB,6.3413E+04_JPRB,6.0489E+04_JPRB/)
+KBO( :,26,16) = (/&
+&7.6659E+04_JPRB,7.2881E+04_JPRB,6.9229E+04_JPRB,6.5813E+04_JPRB,6.2609E+04_JPRB/)
+KBO( :,27,16) = (/&
+&7.9551E+04_JPRB,7.5372E+04_JPRB,7.1411E+04_JPRB,6.7691E+04_JPRB,6.4257E+04_JPRB/)
+KBO( :,28,16) = (/&
+&8.1786E+04_JPRB,7.7281E+04_JPRB,7.3039E+04_JPRB,6.9087E+04_JPRB,6.5469E+04_JPRB/)
+KBO( :,29,16) = (/&
+&8.3384E+04_JPRB,7.8614E+04_JPRB,7.4165E+04_JPRB,7.0047E+04_JPRB,6.6277E+04_JPRB/)
+KBO( :,30,16) = (/&
+&8.4452E+04_JPRB,7.9468E+04_JPRB,7.4871E+04_JPRB,7.0641E+04_JPRB,6.6750E+04_JPRB/)
+KBO( :,31,16) = (/&
+&8.5039E+04_JPRB,7.9905E+04_JPRB,7.5199E+04_JPRB,7.0901E+04_JPRB,6.6924E+04_JPRB/)
+KBO( :,32,16) = (/&
+&8.5212E+04_JPRB,7.9990E+04_JPRB,7.5213E+04_JPRB,7.0881E+04_JPRB,6.6857E+04_JPRB/)
+KBO( :,33,16) = (/&
+&8.5050E+04_JPRB,7.9794E+04_JPRB,7.5003E+04_JPRB,7.0644E+04_JPRB,6.6588E+04_JPRB/)
+KBO( :,34,16) = (/&
+&8.4825E+04_JPRB,7.9556E+04_JPRB,7.4769E+04_JPRB,7.0382E+04_JPRB,6.6308E+04_JPRB/)
+KBO( :,35,16) = (/&
+&8.4932E+04_JPRB,7.9627E+04_JPRB,7.4818E+04_JPRB,7.0396E+04_JPRB,6.6295E+04_JPRB/)
+KBO( :,36,16) = (/&
+&8.5505E+04_JPRB,8.0119E+04_JPRB,7.5241E+04_JPRB,7.0767E+04_JPRB,6.6616E+04_JPRB/)
+KBO( :,37,16) = (/&
+&8.6832E+04_JPRB,8.1301E+04_JPRB,7.6293E+04_JPRB,7.1722E+04_JPRB,6.7493E+04_JPRB/)
+KBO( :,38,16) = (/&
+&8.8141E+04_JPRB,8.2471E+04_JPRB,7.7320E+04_JPRB,7.2657E+04_JPRB,6.8355E+04_JPRB/)
+KBO( :,39,16) = (/&
+&8.9385E+04_JPRB,8.3583E+04_JPRB,7.8311E+04_JPRB,7.3555E+04_JPRB,6.9176E+04_JPRB/)
+KBO( :,40,16) = (/&
+&9.1225E+04_JPRB,8.5227E+04_JPRB,7.9808E+04_JPRB,7.4896E+04_JPRB,7.0406E+04_JPRB/)
+KBO( :,41,16) = (/&
+&9.3145E+04_JPRB,8.6959E+04_JPRB,8.1376E+04_JPRB,7.6283E+04_JPRB,7.1693E+04_JPRB/)
+KBO( :,42,16) = (/&
+&9.5061E+04_JPRB,8.8707E+04_JPRB,8.2949E+04_JPRB,7.7691E+04_JPRB,7.2983E+04_JPRB/)
+KBO( :,43,16) = (/&
+&9.7401E+04_JPRB,9.0828E+04_JPRB,8.4849E+04_JPRB,7.9428E+04_JPRB,7.4539E+04_JPRB/)
+KBO( :,44,16) = (/&
+&9.9953E+04_JPRB,9.3134E+04_JPRB,8.6932E+04_JPRB,8.1331E+04_JPRB,7.6228E+04_JPRB/)
+KBO( :,45,16) = (/&
+&1.0257E+05_JPRB,9.5499E+04_JPRB,8.9091E+04_JPRB,8.3270E+04_JPRB,7.7968E+04_JPRB/)
+KBO( :,46,16) = (/&
+&1.0547E+05_JPRB,9.8084E+04_JPRB,9.1440E+04_JPRB,8.5379E+04_JPRB,7.9900E+04_JPRB/)
+KBO( :,47,16) = (/&
+&1.0883E+05_JPRB,1.0107E+05_JPRB,9.4133E+04_JPRB,8.7821E+04_JPRB,8.2113E+04_JPRB/)
+KBO( :,48,16) = (/&
+&1.1238E+05_JPRB,1.0415E+05_JPRB,9.6911E+04_JPRB,9.0357E+04_JPRB,8.4400E+04_JPRB/)
+KBO( :,49,16) = (/&
+&1.1611E+05_JPRB,1.0741E+05_JPRB,9.9813E+04_JPRB,9.2980E+04_JPRB,8.6767E+04_JPRB/)
+KBO( :,50,16) = (/&
+&1.1983E+05_JPRB,1.1062E+05_JPRB,1.0263E+05_JPRB,9.5525E+04_JPRB,8.9084E+04_JPRB/)
+KBO( :,51,16) = (/&
+&1.2356E+05_JPRB,1.1388E+05_JPRB,1.0545E+05_JPRB,9.8084E+04_JPRB,9.1415E+04_JPRB/)
+KBO( :,52,16) = (/&
+&1.2745E+05_JPRB,1.1733E+05_JPRB,1.0841E+05_JPRB,1.0073E+05_JPRB,9.3803E+04_JPRB/)
+KBO( :,53,16) = (/&
+&1.3156E+05_JPRB,1.2095E+05_JPRB,1.1156E+05_JPRB,1.0347E+05_JPRB,9.6284E+04_JPRB/)
+KBO( :,54,16) = (/&
+&1.3554E+05_JPRB,1.2438E+05_JPRB,1.1460E+05_JPRB,1.0608E+05_JPRB,9.8639E+04_JPRB/)
+KBO( :,55,16) = (/&
+&1.3951E+05_JPRB,1.2782E+05_JPRB,1.1764E+05_JPRB,1.0869E+05_JPRB,1.0096E+05_JPRB/)
+KBO( :,56,16) = (/&
+&1.4367E+05_JPRB,1.3142E+05_JPRB,1.2080E+05_JPRB,1.1144E+05_JPRB,1.0335E+05_JPRB/)
+KBO( :,57,16) = (/&
+&1.4808E+05_JPRB,1.3519E+05_JPRB,1.2406E+05_JPRB,1.1429E+05_JPRB,1.0582E+05_JPRB/)
+KBO( :,58,16) = (/&
+&1.5260E+05_JPRB,1.3891E+05_JPRB,1.2727E+05_JPRB,1.1713E+05_JPRB,1.0827E+05_JPRB/)
+KBO( :,59,16) = (/&
+&1.5447E+05_JPRB,1.4046E+05_JPRB,1.2861E+05_JPRB,1.1836E+05_JPRB,1.0930E+05_JPRB/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&4.67280E-03_JPRB, 3.95219E-03_JPRB, 3.34270E-03_JPRB, 2.82721E-03_JPRB, 2.39121E-03_JPRB,&
+&2.02245E-03_JPRB, 1.71056E-03_JPRB, 1.44677E-03_JPRB, 1.22365E-03_JPRB, 1.03495E-03_JPRB/)
+SELFREFO( :, 2) = (/&
+&4.42573E-03_JPRB, 3.73328E-03_JPRB, 3.14917E-03_JPRB, 2.65644E-03_JPRB, 2.24081E-03_JPRB,&
+&1.89021E-03_JPRB, 1.59447E-03_JPRB, 1.34500E-03_JPRB, 1.13456E-03_JPRB, 9.57044E-04_JPRB/)
+SELFREFO( :, 3) = (/&
+&3.96061E-03_JPRB, 3.33783E-03_JPRB, 2.81297E-03_JPRB, 2.37065E-03_JPRB, 1.99788E-03_JPRB,&
+&1.68372E-03_JPRB, 1.41897E-03_JPRB, 1.19584E-03_JPRB, 1.00780E-03_JPRB, 8.49333E-04_JPRB/)
+SELFREFO( :, 4) = (/&
+&3.71838E-03_JPRB, 3.10031E-03_JPRB, 2.58497E-03_JPRB, 2.15529E-03_JPRB, 1.79704E-03_JPRB,&
+&1.49833E-03_JPRB, 1.24928E-03_JPRB, 1.04162E-03_JPRB, 8.68480E-04_JPRB, 7.24120E-04_JPRB/)
+SELFREFO( :, 5) = (/&
+&3.55795E-03_JPRB, 2.95385E-03_JPRB, 2.45232E-03_JPRB, 2.03594E-03_JPRB, 1.69026E-03_JPRB,&
+&1.40327E-03_JPRB, 1.16501E-03_JPRB, 9.67201E-04_JPRB, 8.02981E-04_JPRB, 6.66643E-04_JPRB/)
+SELFREFO( :, 6) = (/&
+&3.47573E-03_JPRB, 2.88608E-03_JPRB, 2.39646E-03_JPRB, 1.98991E-03_JPRB, 1.65232E-03_JPRB,&
+&1.37201E-03_JPRB, 1.13925E-03_JPRB, 9.45979E-04_JPRB, 7.85496E-04_JPRB, 6.52238E-04_JPRB/)
+SELFREFO( :, 7) = (/&
+&3.44473E-03_JPRB, 2.86220E-03_JPRB, 2.37818E-03_JPRB, 1.97601E-03_JPRB, 1.64185E-03_JPRB,&
+&1.36420E-03_JPRB, 1.13350E-03_JPRB, 9.41819E-04_JPRB, 7.82550E-04_JPRB, 6.50214E-04_JPRB/)
+SELFREFO( :, 8) = (/&
+&3.40166E-03_JPRB, 2.82961E-03_JPRB, 2.35376E-03_JPRB, 1.95793E-03_JPRB, 1.62867E-03_JPRB,&
+&1.35478E-03_JPRB, 1.12694E-03_JPRB, 9.37427E-04_JPRB, 7.79781E-04_JPRB, 6.48646E-04_JPRB/)
+SELFREFO( :, 9) = (/&
+&3.39363E-03_JPRB, 2.82276E-03_JPRB, 2.34792E-03_JPRB, 1.95296E-03_JPRB, 1.62443E-03_JPRB,&
+&1.35117E-03_JPRB, 1.12388E-03_JPRB, 9.34822E-04_JPRB, 7.77568E-04_JPRB, 6.46766E-04_JPRB/)
+SELFREFO( :,10) = (/&
+&3.37151E-03_JPRB, 2.80633E-03_JPRB, 2.33590E-03_JPRB, 1.94432E-03_JPRB, 1.61839E-03_JPRB,&
+&1.34709E-03_JPRB, 1.12128E-03_JPRB, 9.33313E-04_JPRB, 7.76859E-04_JPRB, 6.46632E-04_JPRB/)
+SELFREFO( :,11) = (/&
+&3.37954E-03_JPRB, 2.81192E-03_JPRB, 2.33963E-03_JPRB, 1.94666E-03_JPRB, 1.61970E-03_JPRB,&
+&1.34765E-03_JPRB, 1.12130E-03_JPRB, 9.32968E-04_JPRB, 7.76266E-04_JPRB, 6.45885E-04_JPRB/)
+SELFREFO( :,12) = (/&
+&3.39637E-03_JPRB, 2.82275E-03_JPRB, 2.34600E-03_JPRB, 1.94978E-03_JPRB, 1.62048E-03_JPRB,&
+&1.34679E-03_JPRB, 1.11933E-03_JPRB, 9.30281E-04_JPRB, 7.73163E-04_JPRB, 6.42581E-04_JPRB/)
+SELFREFO( :,13) = (/&
+&3.35979E-03_JPRB, 2.79857E-03_JPRB, 2.33109E-03_JPRB, 1.94170E-03_JPRB, 1.61736E-03_JPRB,&
+&1.34719E-03_JPRB, 1.12216E-03_JPRB, 9.34712E-04_JPRB, 7.78576E-04_JPRB, 6.48522E-04_JPRB/)
+SELFREFO( :,14) = (/&
+&3.40473E-03_JPRB, 2.82009E-03_JPRB, 2.33585E-03_JPRB, 1.93475E-03_JPRB, 1.60253E-03_JPRB,&
+&1.32736E-03_JPRB, 1.09943E-03_JPRB, 9.10645E-04_JPRB, 7.54276E-04_JPRB, 6.24757E-04_JPRB/)
+SELFREFO( :,15) = (/&
+&3.27200E-03_JPRB, 2.70869E-03_JPRB, 2.24237E-03_JPRB, 1.85633E-03_JPRB, 1.53675E-03_JPRB,&
+&1.27218E-03_JPRB, 1.05317E-03_JPRB, 8.71854E-04_JPRB, 7.21757E-04_JPRB, 5.97501E-04_JPRB/)
+SELFREFO( :,16) = (/&
+&3.22979E-03_JPRB, 2.67796E-03_JPRB, 2.22041E-03_JPRB, 1.84104E-03_JPRB, 1.52648E-03_JPRB,&
+&1.26567E-03_JPRB, 1.04942E-03_JPRB, 8.70124E-04_JPRB, 7.21457E-04_JPRB, 5.98191E-04_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB14
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb15.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb15.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb15.F90	(revision 2160)
@@ -0,0 +1,17 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB15
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB15_00
+      call RRTM_KGB15_A1
+      call RRTM_KGB15_A2
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB15
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_00.F90	(revision 2160)
@@ -0,0 +1,128 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB15_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+STRRAT = 0.2883201_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&1.72146E-03_JPRB, 1.41213E-03_JPRB, 1.15839E-03_JPRB, 9.50236E-04_JPRB, 7.79489E-04_JPRB,&
+&6.39423E-04_JPRB, 5.24525E-04_JPRB, 4.30274E-04_JPRB, 3.52958E-04_JPRB, 2.89535E-04_JPRB/)
+SELFREFO( :, 2) = (/&
+&1.83092E-03_JPRB, 1.50082E-03_JPRB, 1.23023E-03_JPRB, 1.00843E-03_JPRB, 8.26611E-04_JPRB,&
+&6.77578E-04_JPRB, 5.55414E-04_JPRB, 4.55276E-04_JPRB, 3.73192E-04_JPRB, 3.05908E-04_JPRB/)
+SELFREFO( :, 3) = (/&
+&1.92620E-03_JPRB, 1.57871E-03_JPRB, 1.29391E-03_JPRB, 1.06048E-03_JPRB, 8.69169E-04_JPRB,&
+&7.12370E-04_JPRB, 5.83857E-04_JPRB, 4.78528E-04_JPRB, 3.92201E-04_JPRB, 3.21447E-04_JPRB/)
+SELFREFO( :, 4) = (/&
+&2.11224E-03_JPRB, 1.72966E-03_JPRB, 1.41638E-03_JPRB, 1.15984E-03_JPRB, 9.49760E-04_JPRB,&
+&7.77734E-04_JPRB, 6.36867E-04_JPRB, 5.21514E-04_JPRB, 4.27055E-04_JPRB, 3.49704E-04_JPRB/)
+SELFREFO( :, 5) = (/&
+&2.31367E-03_JPRB, 1.88988E-03_JPRB, 1.54371E-03_JPRB, 1.26095E-03_JPRB, 1.02999E-03_JPRB,&
+&8.41325E-04_JPRB, 6.87221E-04_JPRB, 5.61344E-04_JPRB, 4.58523E-04_JPRB, 3.74536E-04_JPRB/)
+SELFREFO( :, 6) = (/&
+&2.47614E-03_JPRB, 2.03107E-03_JPRB, 1.66599E-03_JPRB, 1.36654E-03_JPRB, 1.12091E-03_JPRB,&
+&9.19433E-04_JPRB, 7.54170E-04_JPRB, 6.18612E-04_JPRB, 5.07419E-04_JPRB, 4.16213E-04_JPRB/)
+SELFREFO( :, 7) = (/&
+&2.55137E-03_JPRB, 2.10353E-03_JPRB, 1.73430E-03_JPRB, 1.42987E-03_JPRB, 1.17889E-03_JPRB,&
+&9.71958E-04_JPRB, 8.01350E-04_JPRB, 6.60688E-04_JPRB, 5.44717E-04_JPRB, 4.49103E-04_JPRB/)
+SELFREFO( :, 8) = (/&
+&2.59317E-03_JPRB, 2.13957E-03_JPRB, 1.76532E-03_JPRB, 1.45653E-03_JPRB, 1.20175E-03_JPRB,&
+&9.91539E-04_JPRB, 8.18098E-04_JPRB, 6.74996E-04_JPRB, 5.56926E-04_JPRB, 4.59508E-04_JPRB/)
+SELFREFO( :, 9) = (/&
+&2.83495E-03_JPRB, 2.34704E-03_JPRB, 1.94309E-03_JPRB, 1.60867E-03_JPRB, 1.33181E-03_JPRB,&
+&1.10259E-03_JPRB, 9.12826E-04_JPRB, 7.55721E-04_JPRB, 6.25656E-04_JPRB, 5.17975E-04_JPRB/)
+SELFREFO( :,10) = (/&
+&2.98196E-03_JPRB, 2.46746E-03_JPRB, 2.04173E-03_JPRB, 1.68946E-03_JPRB, 1.39796E-03_JPRB,&
+&1.15676E-03_JPRB, 9.57177E-04_JPRB, 7.92028E-04_JPRB, 6.55373E-04_JPRB, 5.42297E-04_JPRB/)
+SELFREFO( :,11) = (/&
+&2.98241E-03_JPRB, 2.46776E-03_JPRB, 2.04191E-03_JPRB, 1.68955E-03_JPRB, 1.39800E-03_JPRB,&
+&1.15675E-03_JPRB, 9.57141E-04_JPRB, 7.91974E-04_JPRB, 6.55308E-04_JPRB, 5.42226E-04_JPRB/)
+SELFREFO( :,12) = (/&
+&2.97837E-03_JPRB, 2.46464E-03_JPRB, 2.03952E-03_JPRB, 1.68773E-03_JPRB, 1.39662E-03_JPRB,&
+&1.15572E-03_JPRB, 9.56375E-04_JPRB, 7.91413E-04_JPRB, 6.54904E-04_JPRB, 5.41942E-04_JPRB/)
+SELFREFO( :,13) = (/&
+&2.97777E-03_JPRB, 2.46461E-03_JPRB, 2.03989E-03_JPRB, 1.68835E-03_JPRB, 1.39740E-03_JPRB,&
+&1.15659E-03_JPRB, 9.57271E-04_JPRB, 7.92305E-04_JPRB, 6.55767E-04_JPRB, 5.42759E-04_JPRB/)
+SELFREFO( :,14) = (/&
+&2.98331E-03_JPRB, 2.46947E-03_JPRB, 2.04413E-03_JPRB, 1.69205E-03_JPRB, 1.40061E-03_JPRB,&
+&1.15937E-03_JPRB, 9.59683E-04_JPRB, 7.94388E-04_JPRB, 6.57564E-04_JPRB, 5.44306E-04_JPRB/)
+SELFREFO( :,15) = (/&
+&2.99414E-03_JPRB, 2.47830E-03_JPRB, 2.05133E-03_JPRB, 1.69792E-03_JPRB, 1.40540E-03_JPRB,&
+&1.16328E-03_JPRB, 9.62863E-04_JPRB, 7.96978E-04_JPRB, 6.59673E-04_JPRB, 5.46023E-04_JPRB/)
+SELFREFO( :,16) = (/&
+&3.00006E-03_JPRB, 2.48297E-03_JPRB, 2.05501E-03_JPRB, 1.70081E-03_JPRB, 1.40766E-03_JPRB,&
+&1.16503E-03_JPRB, 9.64227E-04_JPRB, 7.98033E-04_JPRB, 6.60484E-04_JPRB, 5.46643E-04_JPRB/)
+
+FRACREFAO( :, 1) = (/&
+!     From P = 1053.6 mb.
+    &0.11287100_JPRB,0.12070200_JPRB,0.12729000_JPRB,0.12858100_JPRB,&
+    &0.12743001_JPRB,0.11961800_JPRB,0.10290400_JPRB,0.07888980_JPRB,&
+    &0.05900120_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.13918801_JPRB,0.16353001_JPRB,0.16155800_JPRB,0.14090499_JPRB,&
+    &0.11322300_JPRB,0.08757720_JPRB,0.07225720_JPRB,0.05173390_JPRB,&
+    &0.04731360_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.14687300_JPRB,0.17853101_JPRB,0.15664500_JPRB,0.13351700_JPRB,&
+    &0.10791200_JPRB,0.08684320_JPRB,0.07158090_JPRB,0.05198410_JPRB,&
+    &0.04340110_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.15760700_JPRB,0.17759100_JPRB,0.15158001_JPRB,0.13193300_JPRB,&
+    &0.10742800_JPRB,0.08693760_JPRB,0.07159490_JPRB,0.05196250_JPRB,&
+    &0.04065270_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.16646700_JPRB,0.17299300_JPRB,0.15018500_JPRB,0.13138700_JPRB,&
+    &0.10735900_JPRB,0.08713110_JPRB,0.07130330_JPRB,0.05279420_JPRB,&
+    &0.03766730_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.17546000_JPRB,0.16666500_JPRB,0.14969499_JPRB,0.13105400_JPRB,&
+    &0.10782500_JPRB,0.08718610_JPRB,0.07156770_JPRB,0.05308320_JPRB,&
+    &0.03753960_JPRB,0.00432465_JPRB,0.00509623_JPRB,0.00436993_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.18378501_JPRB,0.16064601_JPRB,0.14940400_JPRB,0.13146400_JPRB,&
+    &0.10810300_JPRB,0.08775740_JPRB,0.07115360_JPRB,0.05400040_JPRB,&
+    &0.03689970_JPRB,0.00388333_JPRB,0.00323610_JPRB,0.00353414_JPRB,&
+    &0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.18966800_JPRB,0.15744300_JPRB,0.14993000_JPRB,0.13152599_JPRB,&
+    &0.10899200_JPRB,0.08858690_JPRB,0.07142920_JPRB,0.05399600_JPRB,&
+    &0.03433460_JPRB,0.00374886_JPRB,0.00302066_JPRB,0.00240653_JPRB,&
+    &0.00199205_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.11887100_JPRB,0.12479600_JPRB,0.12569501_JPRB,0.12839900_JPRB,&
+    &0.12473500_JPRB,0.12012800_JPRB,0.11086700_JPRB,0.08493590_JPRB,&
+    &0.05063770_JPRB,0.00328723_JPRB,0.00266849_JPRB,0.00210232_JPRB,&
+    &0.00152114_JPRB,0.00095635_JPRB,0.00035374_JPRB,0.00004980_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB15_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_A1.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB15_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&4.2962E-03_JPRB,1.5232E-02_JPRB,1.9579E-02_JPRB,2.1453E-02_JPRB,2.1148E-02_JPRB,1.9096E-02_JPRB,&
+&1.5358E-02_JPRB,9.6936E-03_JPRB,2.2149E+00_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&4.2518E-03_JPRB,1.5711E-02_JPRB,2.0424E-02_JPRB,2.2179E-02_JPRB,2.1702E-02_JPRB,1.9467E-02_JPRB,&
+&1.5548E-02_JPRB,9.9480E-03_JPRB,2.1772E+00_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&4.2138E-03_JPRB,1.6217E-02_JPRB,2.1181E-02_JPRB,2.2786E-02_JPRB,2.2148E-02_JPRB,1.9747E-02_JPRB,&
+&1.5738E-02_JPRB,1.0309E-02_JPRB,2.1464E+00_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&4.1834E-03_JPRB,1.6748E-02_JPRB,2.1843E-02_JPRB,2.3305E-02_JPRB,2.2496E-02_JPRB,1.9972E-02_JPRB,&
+&1.5965E-02_JPRB,1.0775E-02_JPRB,2.1191E+00_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&4.1558E-03_JPRB,1.7275E-02_JPRB,2.2401E-02_JPRB,2.3742E-02_JPRB,2.2783E-02_JPRB,2.0184E-02_JPRB,&
+&1.6265E-02_JPRB,1.1330E-02_JPRB,2.0949E+00_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&3.2144E-03_JPRB,1.2713E-02_JPRB,1.6397E-02_JPRB,1.7964E-02_JPRB,1.7671E-02_JPRB,1.5897E-02_JPRB,&
+&1.2690E-02_JPRB,7.9486E-03_JPRB,1.7669E+00_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&3.1641E-03_JPRB,1.3084E-02_JPRB,1.7085E-02_JPRB,1.8507E-02_JPRB,1.8077E-02_JPRB,1.6151E-02_JPRB,&
+&1.2818E-02_JPRB,8.1279E-03_JPRB,1.7352E+00_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&3.1193E-03_JPRB,1.3476E-02_JPRB,1.7665E-02_JPRB,1.8949E-02_JPRB,1.8392E-02_JPRB,1.6337E-02_JPRB,&
+&1.2943E-02_JPRB,8.3974E-03_JPRB,1.7079E+00_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&3.0784E-03_JPRB,1.3887E-02_JPRB,1.8147E-02_JPRB,1.9317E-02_JPRB,1.8624E-02_JPRB,1.6477E-02_JPRB,&
+&1.3099E-02_JPRB,8.7556E-03_JPRB,1.6824E+00_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&3.0409E-03_JPRB,1.4281E-02_JPRB,1.8529E-02_JPRB,1.9610E-02_JPRB,1.8808E-02_JPRB,1.6609E-02_JPRB,&
+&1.3316E-02_JPRB,9.1921E-03_JPRB,1.6588E+00_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&2.3395E-03_JPRB,1.0516E-02_JPRB,1.3567E-02_JPRB,1.4918E-02_JPRB,1.4648E-02_JPRB,1.3103E-02_JPRB,&
+&1.0421E-02_JPRB,6.4902E-03_JPRB,1.3955E+00_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&2.2828E-03_JPRB,1.0805E-02_JPRB,1.4151E-02_JPRB,1.5331E-02_JPRB,1.4952E-02_JPRB,1.3287E-02_JPRB,&
+&1.0515E-02_JPRB,6.5971E-03_JPRB,1.3684E+00_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&2.2291E-03_JPRB,1.1094E-02_JPRB,1.4601E-02_JPRB,1.5662E-02_JPRB,1.5177E-02_JPRB,1.3417E-02_JPRB,&
+&1.0594E-02_JPRB,6.7764E-03_JPRB,1.3430E+00_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&2.1795E-03_JPRB,1.1390E-02_JPRB,1.4954E-02_JPRB,1.5923E-02_JPRB,1.5330E-02_JPRB,1.3512E-02_JPRB,&
+&1.0687E-02_JPRB,7.0307E-03_JPRB,1.3188E+00_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&2.1341E-03_JPRB,1.1671E-02_JPRB,1.5220E-02_JPRB,1.6118E-02_JPRB,1.5441E-02_JPRB,1.3589E-02_JPRB,&
+&1.0824E-02_JPRB,7.3529E-03_JPRB,1.2961E+00_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&1.7840E-03_JPRB,8.7256E-03_JPRB,1.1210E-02_JPRB,1.2367E-02_JPRB,1.2063E-02_JPRB,1.0762E-02_JPRB,&
+&8.5444E-03_JPRB,5.3058E-03_JPRB,1.1276E+00_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&1.7259E-03_JPRB,8.9625E-03_JPRB,1.1715E-02_JPRB,1.2698E-02_JPRB,1.2306E-02_JPRB,1.0908E-02_JPRB,&
+&8.6186E-03_JPRB,5.3631E-03_JPRB,1.1050E+00_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&1.6740E-03_JPRB,9.1828E-03_JPRB,1.2089E-02_JPRB,1.2950E-02_JPRB,1.2485E-02_JPRB,1.1008E-02_JPRB,&
+&8.6759E-03_JPRB,5.4730E-03_JPRB,1.0830E+00_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&1.6269E-03_JPRB,9.4080E-03_JPRB,1.2363E-02_JPRB,1.3144E-02_JPRB,1.2603E-02_JPRB,1.1084E-02_JPRB,&
+&8.7331E-03_JPRB,5.6457E-03_JPRB,1.0617E+00_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&1.5826E-03_JPRB,9.6219E-03_JPRB,1.2561E-02_JPRB,1.3277E-02_JPRB,1.2681E-02_JPRB,1.1138E-02_JPRB,&
+&8.8166E-03_JPRB,5.8778E-03_JPRB,1.0410E+00_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&1.4218E-03_JPRB,7.2507E-03_JPRB,9.2498E-03_JPRB,1.0184E-02_JPRB,9.8965E-03_JPRB,8.8186E-03_JPRB,&
+&6.9985E-03_JPRB,4.3450E-03_JPRB,9.2779E-01_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&1.3666E-03_JPRB,7.4483E-03_JPRB,9.6959E-03_JPRB,1.0459E-02_JPRB,1.0098E-02_JPRB,8.9432E-03_JPRB,&
+&7.0603E-03_JPRB,4.3726E-03_JPRB,9.0832E-01_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&1.3168E-03_JPRB,7.6293E-03_JPRB,1.0015E-02_JPRB,1.0662E-02_JPRB,1.0249E-02_JPRB,9.0283E-03_JPRB,&
+&7.1071E-03_JPRB,4.4354E-03_JPRB,8.8937E-01_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&1.2715E-03_JPRB,7.8071E-03_JPRB,1.0236E-02_JPRB,1.0812E-02_JPRB,1.0352E-02_JPRB,9.0911E-03_JPRB,&
+&7.1478E-03_JPRB,4.5476E-03_JPRB,8.7061E-01_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&1.2303E-03_JPRB,7.9773E-03_JPRB,1.0389E-02_JPRB,1.0918E-02_JPRB,1.0419E-02_JPRB,9.1375E-03_JPRB,&
+&7.1984E-03_JPRB,4.7106E-03_JPRB,8.5172E-01_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&1.1609E-03_JPRB,5.9982E-03_JPRB,7.5441E-03_JPRB,8.3219E-03_JPRB,8.0915E-03_JPRB,7.2051E-03_JPRB,&
+&5.7215E-03_JPRB,3.5604E-03_JPRB,7.7269E-01_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&1.1108E-03_JPRB,6.1686E-03_JPRB,7.9597E-03_JPRB,8.5717E-03_JPRB,8.2612E-03_JPRB,7.3195E-03_JPRB,&
+&5.7777E-03_JPRB,3.5731E-03_JPRB,7.5578E-01_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&1.0654E-03_JPRB,6.3243E-03_JPRB,8.2392E-03_JPRB,8.7441E-03_JPRB,8.3924E-03_JPRB,7.3948E-03_JPRB,&
+&5.8188E-03_JPRB,3.6047E-03_JPRB,7.3901E-01_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&1.0238E-03_JPRB,6.4720E-03_JPRB,8.4331E-03_JPRB,8.8696E-03_JPRB,8.4869E-03_JPRB,7.4498E-03_JPRB,&
+&5.8508E-03_JPRB,3.6714E-03_JPRB,7.2195E-01_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&9.8558E-04_JPRB,6.6127E-03_JPRB,8.5578E-03_JPRB,8.9617E-03_JPRB,8.5506E-03_JPRB,7.4929E-03_JPRB,&
+&5.8848E-03_JPRB,3.7810E-03_JPRB,7.0447E-01_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&9.5793E-04_JPRB,4.9392E-03_JPRB,6.0959E-03_JPRB,6.7658E-03_JPRB,6.6008E-03_JPRB,5.8761E-03_JPRB,&
+&4.6722E-03_JPRB,2.9165E-03_JPRB,6.5237E-01_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&9.1189E-04_JPRB,5.0775E-03_JPRB,6.4806E-03_JPRB,7.0004E-03_JPRB,6.7455E-03_JPRB,5.9796E-03_JPRB,&
+&4.7234E-03_JPRB,2.9250E-03_JPRB,6.3689E-01_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&8.7036E-04_JPRB,5.2121E-03_JPRB,6.7389E-03_JPRB,7.1547E-03_JPRB,6.8614E-03_JPRB,6.0502E-03_JPRB,&
+&4.7609E-03_JPRB,2.9391E-03_JPRB,6.2141E-01_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&8.3275E-04_JPRB,5.3378E-03_JPRB,6.9169E-03_JPRB,7.2639E-03_JPRB,6.9474E-03_JPRB,6.1007E-03_JPRB,&
+&4.7893E-03_JPRB,2.9754E-03_JPRB,6.0575E-01_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&7.9855E-04_JPRB,5.4591E-03_JPRB,7.0288E-03_JPRB,7.3444E-03_JPRB,7.0074E-03_JPRB,6.1400E-03_JPRB,&
+&4.8149E-03_JPRB,3.0449E-03_JPRB,5.8968E-01_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&7.9465E-04_JPRB,4.0550E-03_JPRB,4.9071E-03_JPRB,5.4722E-03_JPRB,5.3709E-03_JPRB,4.7864E-03_JPRB,&
+&3.8134E-03_JPRB,2.3876E-03_JPRB,5.5983E-01_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&7.5211E-04_JPRB,4.1645E-03_JPRB,5.2395E-03_JPRB,5.6983E-03_JPRB,5.5014E-03_JPRB,4.8765E-03_JPRB,&
+&3.8582E-03_JPRB,2.3958E-03_JPRB,5.4541E-01_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&7.1425E-04_JPRB,4.2775E-03_JPRB,5.4907E-03_JPRB,5.8442E-03_JPRB,5.6010E-03_JPRB,4.9449E-03_JPRB,&
+&3.8932E-03_JPRB,2.4025E-03_JPRB,5.3089E-01_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&6.8017E-04_JPRB,4.3807E-03_JPRB,5.6532E-03_JPRB,5.9396E-03_JPRB,5.6779E-03_JPRB,4.9919E-03_JPRB,&
+&3.9191E-03_JPRB,2.4205E-03_JPRB,5.1625E-01_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&6.4915E-04_JPRB,4.4822E-03_JPRB,5.7602E-03_JPRB,6.0112E-03_JPRB,5.7346E-03_JPRB,5.0274E-03_JPRB,&
+&3.9402E-03_JPRB,2.4616E-03_JPRB,5.0156E-01_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&6.6256E-04_JPRB,3.3231E-03_JPRB,3.9423E-03_JPRB,4.3965E-03_JPRB,4.3550E-03_JPRB,3.8950E-03_JPRB,&
+&3.1106E-03_JPRB,1.9527E-03_JPRB,4.7909E-01_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&6.2337E-04_JPRB,3.4093E-03_JPRB,4.2109E-03_JPRB,4.6231E-03_JPRB,4.4821E-03_JPRB,3.9733E-03_JPRB,&
+&3.1493E-03_JPRB,1.9618E-03_JPRB,4.6525E-01_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&5.8859E-04_JPRB,3.5021E-03_JPRB,4.4524E-03_JPRB,4.7638E-03_JPRB,4.5675E-03_JPRB,4.0358E-03_JPRB,&
+&3.1809E-03_JPRB,1.9669E-03_JPRB,4.5157E-01_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&5.5740E-04_JPRB,3.5874E-03_JPRB,4.6083E-03_JPRB,4.8522E-03_JPRB,4.6363E-03_JPRB,4.0813E-03_JPRB,&
+&3.2054E-03_JPRB,1.9751E-03_JPRB,4.3811E-01_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&5.2927E-04_JPRB,3.6711E-03_JPRB,4.7102E-03_JPRB,4.9155E-03_JPRB,4.6887E-03_JPRB,4.1135E-03_JPRB,&
+&3.2248E-03_JPRB,1.9974E-03_JPRB,4.2484E-01_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&5.5819E-04_JPRB,2.7284E-03_JPRB,3.1809E-03_JPRB,3.5314E-03_JPRB,3.5278E-03_JPRB,3.1713E-03_JPRB,&
+&2.5390E-03_JPRB,1.5979E-03_JPRB,4.1170E-01_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&5.2264E-04_JPRB,2.7960E-03_JPRB,3.3951E-03_JPRB,3.7490E-03_JPRB,3.6516E-03_JPRB,3.2397E-03_JPRB,&
+&2.5727E-03_JPRB,1.6061E-03_JPRB,3.9866E-01_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&4.9139E-04_JPRB,2.8693E-03_JPRB,3.6092E-03_JPRB,3.8820E-03_JPRB,3.7278E-03_JPRB,3.2940E-03_JPRB,&
+&2.5999E-03_JPRB,1.6112E-03_JPRB,3.8585E-01_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&4.6354E-04_JPRB,2.9405E-03_JPRB,3.7573E-03_JPRB,3.9654E-03_JPRB,3.7869E-03_JPRB,3.3368E-03_JPRB,&
+&2.6225E-03_JPRB,1.6157E-03_JPRB,3.7334E-01_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&4.3854E-04_JPRB,3.0087E-03_JPRB,3.8506E-03_JPRB,4.0212E-03_JPRB,3.8338E-03_JPRB,3.3662E-03_JPRB,&
+&2.6402E-03_JPRB,1.6279E-03_JPRB,3.6129E-01_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&4.5821E-04_JPRB,2.2621E-03_JPRB,2.6447E-03_JPRB,2.9297E-03_JPRB,2.9129E-03_JPRB,2.6105E-03_JPRB,&
+&2.0860E-03_JPRB,1.3108E-03_JPRB,3.4781E-01_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&4.2863E-04_JPRB,2.3183E-03_JPRB,2.8194E-03_JPRB,3.0973E-03_JPRB,3.0077E-03_JPRB,2.6638E-03_JPRB,&
+&2.1125E-03_JPRB,1.3172E-03_JPRB,3.3606E-01_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&4.0252E-04_JPRB,2.3779E-03_JPRB,2.9883E-03_JPRB,3.2000E-03_JPRB,3.0663E-03_JPRB,2.7064E-03_JPRB,&
+&2.1343E-03_JPRB,1.3214E-03_JPRB,3.2458E-01_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&3.7927E-04_JPRB,2.4351E-03_JPRB,3.1025E-03_JPRB,3.2639E-03_JPRB,3.1126E-03_JPRB,2.7399E-03_JPRB,&
+&2.1527E-03_JPRB,1.3253E-03_JPRB,3.1358E-01_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&3.5851E-04_JPRB,2.4897E-03_JPRB,3.1743E-03_JPRB,3.3073E-03_JPRB,3.1494E-03_JPRB,2.7631E-03_JPRB,&
+&2.1670E-03_JPRB,1.3357E-03_JPRB,3.0304E-01_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&3.7566E-04_JPRB,1.8705E-03_JPRB,2.1955E-03_JPRB,2.4263E-03_JPRB,2.4027E-03_JPRB,2.1477E-03_JPRB,&
+&1.7133E-03_JPRB,1.0753E-03_JPRB,2.9614E-01_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&3.5112E-04_JPRB,1.9175E-03_JPRB,2.3381E-03_JPRB,2.5565E-03_JPRB,2.4759E-03_JPRB,2.1892E-03_JPRB,&
+&1.7343E-03_JPRB,1.0803E-03_JPRB,2.8551E-01_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&3.2946E-04_JPRB,1.9676E-03_JPRB,2.4711E-03_JPRB,2.6363E-03_JPRB,2.5213E-03_JPRB,2.2227E-03_JPRB,&
+&1.7519E-03_JPRB,1.0837E-03_JPRB,2.7528E-01_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&3.1028E-04_JPRB,2.0138E-03_JPRB,2.5600E-03_JPRB,2.6860E-03_JPRB,2.5577E-03_JPRB,2.2494E-03_JPRB,&
+&1.7667E-03_JPRB,1.0872E-03_JPRB,2.6557E-01_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&2.9320E-04_JPRB,2.0583E-03_JPRB,2.6161E-03_JPRB,2.7200E-03_JPRB,2.5866E-03_JPRB,2.2676E-03_JPRB,&
+&1.7779E-03_JPRB,1.0961E-03_JPRB,2.5635E-01_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&3.0764E-04_JPRB,1.5429E-03_JPRB,1.8188E-03_JPRB,2.0063E-03_JPRB,1.9799E-03_JPRB,1.7660E-03_JPRB,&
+&1.4068E-03_JPRB,8.8203E-04_JPRB,2.5899E-01_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&2.8735E-04_JPRB,1.5821E-03_JPRB,1.9364E-03_JPRB,2.1086E-03_JPRB,2.0369E-03_JPRB,1.7986E-03_JPRB,&
+&1.4237E-03_JPRB,8.8599E-04_JPRB,2.4914E-01_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&2.6953E-04_JPRB,1.6236E-03_JPRB,2.0412E-03_JPRB,2.1709E-03_JPRB,2.0725E-03_JPRB,1.8251E-03_JPRB,&
+&1.4376E-03_JPRB,8.8887E-04_JPRB,2.3982E-01_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&2.5380E-04_JPRB,1.6612E-03_JPRB,2.1113E-03_JPRB,2.2099E-03_JPRB,2.1013E-03_JPRB,1.8462E-03_JPRB,&
+&1.4493E-03_JPRB,8.9188E-04_JPRB,2.3102E-01_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&2.3980E-04_JPRB,1.6979E-03_JPRB,2.1555E-03_JPRB,2.2365E-03_JPRB,2.1241E-03_JPRB,1.8607E-03_JPRB,&
+&1.4583E-03_JPRB,8.9931E-04_JPRB,2.2279E-01_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&7.0943E-03_JPRB,3.8387E-02_JPRB,4.3151E-02_JPRB,4.2731E-02_JPRB,4.0946E-02_JPRB,3.8949E-02_JPRB,&
+&3.7362E-02_JPRB,3.5997E-02_JPRB,3.1543E+00_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&7.0850E-03_JPRB,3.8454E-02_JPRB,4.2900E-02_JPRB,4.3028E-02_JPRB,4.2284E-02_JPRB,4.1753E-02_JPRB,&
+&4.1711E-02_JPRB,4.1528E-02_JPRB,3.1189E+00_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&7.0813E-03_JPRB,3.8363E-02_JPRB,4.2614E-02_JPRB,4.3463E-02_JPRB,4.3963E-02_JPRB,4.4905E-02_JPRB,&
+&4.6271E-02_JPRB,4.7132E-02_JPRB,3.0948E+00_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&7.0651E-03_JPRB,3.8151E-02_JPRB,4.2395E-02_JPRB,4.4068E-02_JPRB,4.5862E-02_JPRB,4.8163E-02_JPRB,&
+&5.0764E-02_JPRB,5.2533E-02_JPRB,3.0805E+00_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&7.0475E-03_JPRB,3.7840E-02_JPRB,4.2280E-02_JPRB,4.4809E-02_JPRB,4.7823E-02_JPRB,5.1372E-02_JPRB,&
+&5.5020E-02_JPRB,5.7574E-02_JPRB,3.0698E+00_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&5.4133E-03_JPRB,3.2388E-02_JPRB,3.6287E-02_JPRB,3.5903E-02_JPRB,3.4407E-02_JPRB,3.2747E-02_JPRB,&
+&3.1453E-02_JPRB,3.0272E-02_JPRB,2.5533E+00_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&5.3611E-03_JPRB,3.2430E-02_JPRB,3.6074E-02_JPRB,3.6216E-02_JPRB,3.5593E-02_JPRB,3.5203E-02_JPRB,&
+&3.5194E-02_JPRB,3.4997E-02_JPRB,2.5086E+00_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&5.3281E-03_JPRB,3.2322E-02_JPRB,3.5847E-02_JPRB,3.6639E-02_JPRB,3.7078E-02_JPRB,3.7935E-02_JPRB,&
+&3.9143E-02_JPRB,3.9849E-02_JPRB,2.4723E+00_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&5.3094E-03_JPRB,3.2112E-02_JPRB,3.5677E-02_JPRB,3.7178E-02_JPRB,3.8741E-02_JPRB,4.0767E-02_JPRB,&
+&4.3021E-02_JPRB,4.4489E-02_JPRB,2.4475E+00_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&5.2887E-03_JPRB,3.1839E-02_JPRB,3.5583E-02_JPRB,3.7831E-02_JPRB,4.0436E-02_JPRB,4.3525E-02_JPRB,&
+&4.6680E-02_JPRB,4.8869E-02_JPRB,2.4311E+00_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&4.0611E-03_JPRB,2.7170E-02_JPRB,3.0405E-02_JPRB,3.0026E-02_JPRB,2.8647E-02_JPRB,2.7115E-02_JPRB,&
+&2.5770E-02_JPRB,2.4484E-02_JPRB,2.0491E+00_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&3.9775E-03_JPRB,2.7189E-02_JPRB,3.0241E-02_JPRB,3.0301E-02_JPRB,2.9626E-02_JPRB,2.9114E-02_JPRB,&
+&2.8843E-02_JPRB,2.8434E-02_JPRB,1.9991E+00_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&3.9065E-03_JPRB,2.7099E-02_JPRB,3.0059E-02_JPRB,3.0647E-02_JPRB,3.0854E-02_JPRB,3.1397E-02_JPRB,&
+&3.2170E-02_JPRB,3.2541E-02_JPRB,1.9562E+00_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&3.8466E-03_JPRB,2.6925E-02_JPRB,2.9905E-02_JPRB,3.1087E-02_JPRB,3.2235E-02_JPRB,3.3772E-02_JPRB,&
+&3.5477E-02_JPRB,3.6558E-02_JPRB,1.9207E+00_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&3.7983E-03_JPRB,2.6668E-02_JPRB,2.9797E-02_JPRB,3.1593E-02_JPRB,3.3666E-02_JPRB,3.6136E-02_JPRB,&
+&3.8655E-02_JPRB,4.0337E-02_JPRB,1.8904E+00_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&3.1618E-03_JPRB,2.2735E-02_JPRB,2.5430E-02_JPRB,2.5073E-02_JPRB,2.3860E-02_JPRB,2.2346E-02_JPRB,&
+&2.0906E-02_JPRB,1.9493E-02_JPRB,1.6815E+00_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&3.0772E-03_JPRB,2.2769E-02_JPRB,2.5323E-02_JPRB,2.5294E-02_JPRB,2.4614E-02_JPRB,2.3917E-02_JPRB,&
+&2.3363E-02_JPRB,2.2717E-02_JPRB,1.6300E+00_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&2.9989E-03_JPRB,2.2705E-02_JPRB,2.5187E-02_JPRB,2.5585E-02_JPRB,2.5590E-02_JPRB,2.5772E-02_JPRB,&
+&2.6101E-02_JPRB,2.6159E-02_JPRB,1.5868E+00_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&2.9269E-03_JPRB,2.2567E-02_JPRB,2.5061E-02_JPRB,2.5933E-02_JPRB,2.6708E-02_JPRB,2.7738E-02_JPRB,&
+&2.8897E-02_JPRB,2.9580E-02_JPRB,1.5492E+00_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&2.8633E-03_JPRB,2.2345E-02_JPRB,2.4951E-02_JPRB,2.6338E-02_JPRB,2.7898E-02_JPRB,2.9732E-02_JPRB,&
+&3.1610E-02_JPRB,3.2830E-02_JPRB,1.5179E+00_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&2.5495E-03_JPRB,1.8985E-02_JPRB,2.1259E-02_JPRB,2.0956E-02_JPRB,1.9882E-02_JPRB,1.8351E-02_JPRB,&
+&1.6812E-02_JPRB,1.5262E-02_JPRB,1.4081E+00_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&2.4663E-03_JPRB,1.9038E-02_JPRB,2.1177E-02_JPRB,2.1145E-02_JPRB,2.0437E-02_JPRB,1.9579E-02_JPRB,&
+&1.8803E-02_JPRB,1.7942E-02_JPRB,1.3595E+00_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&2.3921E-03_JPRB,1.9006E-02_JPRB,2.1089E-02_JPRB,2.1375E-02_JPRB,2.1189E-02_JPRB,2.1072E-02_JPRB,&
+&2.1043E-02_JPRB,2.0814E-02_JPRB,1.3176E+00_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&2.3238E-03_JPRB,1.8899E-02_JPRB,2.0991E-02_JPRB,2.1643E-02_JPRB,2.2082E-02_JPRB,2.2687E-02_JPRB,&
+&2.3376E-02_JPRB,2.3722E-02_JPRB,1.2814E+00_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&2.2609E-03_JPRB,1.8711E-02_JPRB,2.0886E-02_JPRB,2.1958E-02_JPRB,2.3037E-02_JPRB,2.4321E-02_JPRB,&
+&2.5657E-02_JPRB,2.6474E-02_JPRB,1.2502E+00_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&2.1136E-03_JPRB,1.5844E-02_JPRB,1.7815E-02_JPRB,1.7475E-02_JPRB,1.6448E-02_JPRB,1.4925E-02_JPRB,&
+&1.3323E-02_JPRB,1.1714E-02_JPRB,1.1933E+00_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&2.0306E-03_JPRB,1.5911E-02_JPRB,1.7725E-02_JPRB,1.7645E-02_JPRB,1.6857E-02_JPRB,1.5846E-02_JPRB,&
+&1.4877E-02_JPRB,1.3852E-02_JPRB,1.1478E+00_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&1.9573E-03_JPRB,1.5900E-02_JPRB,1.7665E-02_JPRB,1.7815E-02_JPRB,1.7433E-02_JPRB,1.7030E-02_JPRB,&
+&1.6681E-02_JPRB,1.6204E-02_JPRB,1.1091E+00_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&1.8915E-03_JPRB,1.5823E-02_JPRB,1.7587E-02_JPRB,1.8019E-02_JPRB,1.8141E-02_JPRB,1.8355E-02_JPRB,&
+&1.8615E-02_JPRB,1.8633E-02_JPRB,1.0755E+00_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&1.8316E-03_JPRB,1.5671E-02_JPRB,1.7495E-02_JPRB,1.8250E-02_JPRB,1.8907E-02_JPRB,1.9704E-02_JPRB,&
+&2.0534E-02_JPRB,2.0986E-02_JPRB,1.0458E+00_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&1.7779E-03_JPRB,1.3214E-02_JPRB,1.4915E-02_JPRB,1.4490E-02_JPRB,1.3534E-02_JPRB,1.2115E-02_JPRB,&
+&1.0525E-02_JPRB,8.9151E-03_JPRB,1.0250E+00_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&1.6955E-03_JPRB,1.3308E-02_JPRB,1.4823E-02_JPRB,1.4622E-02_JPRB,1.3840E-02_JPRB,1.2763E-02_JPRB,&
+&1.1685E-02_JPRB,1.0574E-02_JPRB,9.8268E-01_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&1.6237E-03_JPRB,1.3311E-02_JPRB,1.4766E-02_JPRB,1.4761E-02_JPRB,1.4249E-02_JPRB,1.3650E-02_JPRB,&
+&1.3091E-02_JPRB,1.2450E-02_JPRB,9.4696E-01_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&1.5603E-03_JPRB,1.3256E-02_JPRB,1.4695E-02_JPRB,1.4910E-02_JPRB,1.4782E-02_JPRB,1.4700E-02_JPRB,&
+&1.4648E-02_JPRB,1.4438E-02_JPRB,9.1575E-01_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&1.5029E-03_JPRB,1.3127E-02_JPRB,1.4617E-02_JPRB,1.5078E-02_JPRB,1.5382E-02_JPRB,1.5792E-02_JPRB,&
+&1.6228E-02_JPRB,1.6399E-02_JPRB,8.8786E-01_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&1.5020E-03_JPRB,1.1002E-02_JPRB,1.2408E-02_JPRB,1.1986E-02_JPRB,1.1101E-02_JPRB,9.8378E-03_JPRB,&
+&8.3304E-03_JPRB,6.7732E-03_JPRB,8.9770E-01_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&1.4230E-03_JPRB,1.1110E-02_JPRB,1.2342E-02_JPRB,1.2073E-02_JPRB,1.1340E-02_JPRB,1.0282E-02_JPRB,&
+&9.1665E-03_JPRB,8.0270E-03_JPRB,8.5759E-01_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&1.3543E-03_JPRB,1.1124E-02_JPRB,1.2281E-02_JPRB,1.2183E-02_JPRB,1.1624E-02_JPRB,1.0918E-02_JPRB,&
+&1.0231E-02_JPRB,9.4957E-03_JPRB,8.2343E-01_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&1.2937E-03_JPRB,1.1088E-02_JPRB,1.2220E-02_JPRB,1.2293E-02_JPRB,1.2008E-02_JPRB,1.1719E-02_JPRB,&
+&1.1453E-02_JPRB,1.1081E-02_JPRB,7.9354E-01_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&1.2398E-03_JPRB,1.0985E-02_JPRB,1.2152E-02_JPRB,1.2411E-02_JPRB,1.2469E-02_JPRB,1.2594E-02_JPRB,&
+&1.2739E-02_JPRB,1.2705E-02_JPRB,7.6694E-01_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&1.2772E-03_JPRB,9.1185E-03_JPRB,1.0283E-02_JPRB,9.9108E-03_JPRB,9.0933E-03_JPRB,7.9937E-03_JPRB,&
+&6.6146E-03_JPRB,5.1482E-03_JPRB,7.8565E-01_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&1.2008E-03_JPRB,9.2246E-03_JPRB,1.0254E-02_JPRB,9.9497E-03_JPRB,9.2744E-03_JPRB,8.2956E-03_JPRB,&
+&7.1977E-03_JPRB,6.0715E-03_JPRB,7.4762E-01_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&1.1346E-03_JPRB,9.2567E-03_JPRB,1.0190E-02_JPRB,1.0030E-02_JPRB,9.4797E-03_JPRB,8.7349E-03_JPRB,&
+&7.9799E-03_JPRB,7.1919E-03_JPRB,7.1506E-01_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&1.0767E-03_JPRB,9.2317E-03_JPRB,1.0137E-02_JPRB,1.0114E-02_JPRB,9.7458E-03_JPRB,9.3188E-03_JPRB,&
+&8.9121E-03_JPRB,8.4415E-03_JPRB,6.8636E-01_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&1.0254E-03_JPRB,9.1543E-03_JPRB,1.0077E-02_JPRB,1.0198E-02_JPRB,1.0088E-02_JPRB,1.0005E-02_JPRB,&
+&9.9430E-03_JPRB,9.7610E-03_JPRB,6.6072E-01_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&1.0908E-03_JPRB,7.5349E-03_JPRB,8.5055E-03_JPRB,8.1913E-03_JPRB,7.4594E-03_JPRB,6.5117E-03_JPRB,&
+&5.3043E-03_JPRB,3.9738E-03_JPRB,6.8647E-01_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&1.0219E-03_JPRB,7.6350E-03_JPRB,8.4942E-03_JPRB,8.2002E-03_JPRB,7.5922E-03_JPRB,6.7288E-03_JPRB,&
+&5.7099E-03_JPRB,4.6532E-03_JPRB,6.5148E-01_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&9.6216E-04_JPRB,7.6768E-03_JPRB,8.4412E-03_JPRB,8.2544E-03_JPRB,7.7463E-03_JPRB,7.0316E-03_JPRB,&
+&6.2789E-03_JPRB,5.5007E-03_JPRB,6.2153E-01_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&9.0949E-04_JPRB,7.6636E-03_JPRB,8.3915E-03_JPRB,8.3156E-03_JPRB,7.9306E-03_JPRB,7.4536E-03_JPRB,&
+&6.9877E-03_JPRB,6.4813E-03_JPRB,5.9517E-01_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&8.6244E-04_JPRB,7.6028E-03_JPRB,8.3387E-03_JPRB,8.3779E-03_JPRB,8.1810E-03_JPRB,7.9831E-03_JPRB,&
+&7.7997E-03_JPRB,7.5371E-03_JPRB,5.7147E-01_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&9.0171E-04_JPRB,6.2591E-03_JPRB,7.0260E-03_JPRB,6.7592E-03_JPRB,6.1582E-03_JPRB,5.3757E-03_JPRB,&
+&4.3823E-03_JPRB,3.2909E-03_JPRB,5.8305E-01_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&8.4471E-04_JPRB,6.3292E-03_JPRB,7.0117E-03_JPRB,6.7680E-03_JPRB,6.2644E-03_JPRB,5.5512E-03_JPRB,&
+&4.7161E-03_JPRB,3.8488E-03_JPRB,5.5321E-01_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&7.9501E-04_JPRB,6.3542E-03_JPRB,6.9623E-03_JPRB,6.8076E-03_JPRB,6.3850E-03_JPRB,5.7984E-03_JPRB,&
+&5.1814E-03_JPRB,4.5421E-03_JPRB,5.2752E-01_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&7.5106E-04_JPRB,6.3305E-03_JPRB,6.9164E-03_JPRB,6.8517E-03_JPRB,6.5339E-03_JPRB,6.1441E-03_JPRB,&
+&5.7616E-03_JPRB,5.3442E-03_JPRB,5.0480E-01_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&7.1176E-04_JPRB,6.2680E-03_JPRB,6.8638E-03_JPRB,6.9010E-03_JPRB,6.7399E-03_JPRB,6.5787E-03_JPRB,&
+&6.4276E-03_JPRB,6.2093E-03_JPRB,4.8460E-01_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&7.4344E-04_JPRB,5.1893E-03_JPRB,5.7960E-03_JPRB,5.5712E-03_JPRB,5.0774E-03_JPRB,4.4320E-03_JPRB,&
+&3.6146E-03_JPRB,2.7192E-03_JPRB,4.9987E-01_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&6.9630E-04_JPRB,5.2389E-03_JPRB,5.7776E-03_JPRB,5.5769E-03_JPRB,5.1607E-03_JPRB,4.5730E-03_JPRB,&
+&3.8872E-03_JPRB,3.1759E-03_JPRB,4.7411E-01_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&6.5505E-04_JPRB,5.2495E-03_JPRB,5.7335E-03_JPRB,5.6051E-03_JPRB,5.2555E-03_JPRB,4.7752E-03_JPRB,&
+&4.2687E-03_JPRB,3.7439E-03_JPRB,4.5176E-01_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&6.1851E-04_JPRB,5.2199E-03_JPRB,5.6893E-03_JPRB,5.6379E-03_JPRB,5.3780E-03_JPRB,5.0596E-03_JPRB,&
+&4.7451E-03_JPRB,4.4010E-03_JPRB,4.3213E-01_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&5.8564E-04_JPRB,5.1584E-03_JPRB,5.6408E-03_JPRB,5.6781E-03_JPRB,5.5493E-03_JPRB,5.4174E-03_JPRB,&
+&5.2919E-03_JPRB,5.1102E-03_JPRB,4.1474E-01_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&6.1162E-04_JPRB,4.2978E-03_JPRB,4.7775E-03_JPRB,4.5861E-03_JPRB,4.1806E-03_JPRB,3.6483E-03_JPRB,&
+&2.9761E-03_JPRB,2.2409E-03_JPRB,4.4173E-01_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&5.7264E-04_JPRB,4.3335E-03_JPRB,4.7546E-03_JPRB,4.5895E-03_JPRB,4.2458E-03_JPRB,3.7618E-03_JPRB,&
+&3.1994E-03_JPRB,2.6153E-03_JPRB,4.1858E-01_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&5.3845E-04_JPRB,4.3324E-03_JPRB,4.7152E-03_JPRB,4.6098E-03_JPRB,4.3213E-03_JPRB,3.9280E-03_JPRB,&
+&3.5124E-03_JPRB,3.0807E-03_JPRB,3.9852E-01_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&5.0800E-04_JPRB,4.3007E-03_JPRB,4.6739E-03_JPRB,4.6354E-03_JPRB,4.4237E-03_JPRB,4.1636E-03_JPRB,&
+&3.9041E-03_JPRB,3.6190E-03_JPRB,3.8103E-01_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&4.8061E-04_JPRB,4.2432E-03_JPRB,4.6321E-03_JPRB,4.6674E-03_JPRB,4.5673E-03_JPRB,4.4592E-03_JPRB,&
+&4.3539E-03_JPRB,4.2010E-03_JPRB,3.6549E-01_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&1.1504E-02_JPRB,5.1115E-02_JPRB,6.3490E-02_JPRB,7.5739E-02_JPRB,8.9129E-02_JPRB,1.0261E-01_JPRB,&
+&1.1510E-01_JPRB,1.2497E-01_JPRB,4.5470E+00_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&1.1411E-02_JPRB,5.0441E-02_JPRB,6.4398E-02_JPRB,7.8958E-02_JPRB,9.4436E-02_JPRB,1.0965E-01_JPRB,&
+&1.2371E-01_JPRB,1.3505E-01_JPRB,4.5111E+00_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&1.1360E-02_JPRB,4.9859E-02_JPRB,6.5352E-02_JPRB,8.1890E-02_JPRB,9.8960E-02_JPRB,1.1556E-01_JPRB,&
+&1.3095E-01_JPRB,1.4357E-01_JPRB,4.4964E+00_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&1.1361E-02_JPRB,4.9396E-02_JPRB,6.6358E-02_JPRB,8.4565E-02_JPRB,1.0289E-01_JPRB,1.2064E-01_JPRB,&
+&1.3719E-01_JPRB,1.5089E-01_JPRB,4.4952E+00_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&1.1398E-02_JPRB,4.9071E-02_JPRB,6.7320E-02_JPRB,8.6942E-02_JPRB,1.0642E-01_JPRB,1.2520E-01_JPRB,&
+&1.4278E-01_JPRB,1.5748E-01_JPRB,4.5069E+00_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&9.0800E-03_JPRB,4.3518E-02_JPRB,5.4317E-02_JPRB,6.5007E-02_JPRB,7.6680E-02_JPRB,8.8428E-02_JPRB,&
+&9.9245E-02_JPRB,1.0777E-01_JPRB,3.7305E+00_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&8.9700E-03_JPRB,4.2947E-02_JPRB,5.5146E-02_JPRB,6.7953E-02_JPRB,8.1575E-02_JPRB,9.4893E-02_JPRB,&
+&1.0724E-01_JPRB,1.1720E-01_JPRB,3.6786E+00_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&8.8659E-03_JPRB,4.2433E-02_JPRB,5.6085E-02_JPRB,7.0736E-02_JPRB,8.5859E-02_JPRB,1.0050E-01_JPRB,&
+&1.1405E-01_JPRB,1.2513E-01_JPRB,3.6433E+00_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&8.7765E-03_JPRB,4.1995E-02_JPRB,5.7083E-02_JPRB,7.3307E-02_JPRB,8.9633E-02_JPRB,1.0538E-01_JPRB,&
+&1.1996E-01_JPRB,1.3207E-01_JPRB,3.6200E+00_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&8.7192E-03_JPRB,4.1672E-02_JPRB,5.8019E-02_JPRB,7.5546E-02_JPRB,9.2932E-02_JPRB,1.0966E-01_JPRB,&
+&1.2527E-01_JPRB,1.3822E-01_JPRB,3.6042E+00_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&6.9828E-03_JPRB,3.6975E-02_JPRB,4.6012E-02_JPRB,5.4717E-02_JPRB,6.4326E-02_JPRB,7.4011E-02_JPRB,&
+&8.2981E-02_JPRB,8.9968E-02_JPRB,3.0198E+00_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&6.8270E-03_JPRB,3.6472E-02_JPRB,4.6704E-02_JPRB,5.7392E-02_JPRB,6.8826E-02_JPRB,8.0074E-02_JPRB,&
+&9.0443E-02_JPRB,9.8762E-02_JPRB,2.9461E+00_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&6.7044E-03_JPRB,3.6003E-02_JPRB,4.7551E-02_JPRB,5.9975E-02_JPRB,7.2865E-02_JPRB,8.5354E-02_JPRB,&
+&9.6922E-02_JPRB,1.0635E-01_JPRB,2.8886E+00_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&6.5993E-03_JPRB,3.5562E-02_JPRB,4.8474E-02_JPRB,6.2398E-02_JPRB,7.6490E-02_JPRB,9.0037E-02_JPRB,&
+&1.0257E-01_JPRB,1.1285E-01_JPRB,2.8436E+00_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&6.5059E-03_JPRB,3.5210E-02_JPRB,4.9353E-02_JPRB,6.4534E-02_JPRB,7.9605E-02_JPRB,9.4094E-02_JPRB,&
+&1.0752E-01_JPRB,1.1864E-01_JPRB,2.8111E+00_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&5.5908E-03_JPRB,3.1365E-02_JPRB,3.8737E-02_JPRB,4.5544E-02_JPRB,5.3149E-02_JPRB,6.0919E-02_JPRB,&
+&6.8125E-02_JPRB,7.3670E-02_JPRB,2.5046E+00_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&5.3957E-03_JPRB,3.0920E-02_JPRB,3.9328E-02_JPRB,4.7957E-02_JPRB,5.7284E-02_JPRB,6.6485E-02_JPRB,&
+&7.5002E-02_JPRB,8.1748E-02_JPRB,2.4277E+00_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&5.2334E-03_JPRB,3.0500E-02_JPRB,4.0047E-02_JPRB,5.0287E-02_JPRB,6.0995E-02_JPRB,7.1412E-02_JPRB,&
+&8.1019E-02_JPRB,8.8826E-02_JPRB,2.3616E+00_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&5.0990E-03_JPRB,3.0103E-02_JPRB,4.0857E-02_JPRB,5.2515E-02_JPRB,6.4366E-02_JPRB,7.5769E-02_JPRB,&
+&8.6313E-02_JPRB,9.4909E-02_JPRB,2.3071E+00_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&4.9843E-03_JPRB,2.9769E-02_JPRB,4.1653E-02_JPRB,5.4480E-02_JPRB,6.7248E-02_JPRB,7.9493E-02_JPRB,&
+&9.0850E-02_JPRB,1.0015E-01_JPRB,2.2622E+00_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&4.6371E-03_JPRB,2.6536E-02_JPRB,3.2443E-02_JPRB,3.7642E-02_JPRB,4.3487E-02_JPRB,4.9620E-02_JPRB,&
+&5.5321E-02_JPRB,5.9691E-02_JPRB,2.1169E+00_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&4.4354E-03_JPRB,2.6146E-02_JPRB,3.2937E-02_JPRB,3.9753E-02_JPRB,4.7206E-02_JPRB,5.4649E-02_JPRB,&
+&6.1517E-02_JPRB,6.6941E-02_JPRB,2.0403E+00_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&4.2621E-03_JPRB,2.5770E-02_JPRB,3.3534E-02_JPRB,4.1840E-02_JPRB,5.0602E-02_JPRB,5.9123E-02_JPRB,&
+&6.7019E-02_JPRB,7.3387E-02_JPRB,1.9782E+00_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&4.1136E-03_JPRB,2.5421E-02_JPRB,3.4232E-02_JPRB,4.3837E-02_JPRB,5.3645E-02_JPRB,6.3092E-02_JPRB,&
+&7.1794E-02_JPRB,7.8876E-02_JPRB,1.9264E+00_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&3.9859E-03_JPRB,2.5135E-02_JPRB,3.4954E-02_JPRB,4.5597E-02_JPRB,5.6243E-02_JPRB,6.6466E-02_JPRB,&
+&7.5915E-02_JPRB,8.3643E-02_JPRB,1.8824E+00_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&3.9304E-03_JPRB,2.2403E-02_JPRB,2.7063E-02_JPRB,3.0926E-02_JPRB,3.5302E-02_JPRB,4.0017E-02_JPRB,&
+&4.4453E-02_JPRB,4.7785E-02_JPRB,1.8116E+00_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&3.7327E-03_JPRB,2.2045E-02_JPRB,2.7456E-02_JPRB,3.2698E-02_JPRB,3.8563E-02_JPRB,4.4474E-02_JPRB,&
+&4.9934E-02_JPRB,5.4194E-02_JPRB,1.7392E+00_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&3.5637E-03_JPRB,2.1717E-02_JPRB,2.7946E-02_JPRB,3.4540E-02_JPRB,4.1589E-02_JPRB,4.8508E-02_JPRB,&
+&5.4887E-02_JPRB,6.0005E-02_JPRB,1.6805E+00_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&3.4181E-03_JPRB,2.1413E-02_JPRB,2.8528E-02_JPRB,3.6294E-02_JPRB,4.4304E-02_JPRB,5.2019E-02_JPRB,&
+&5.9160E-02_JPRB,6.4927E-02_JPRB,1.6325E+00_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&3.2918E-03_JPRB,2.1166E-02_JPRB,2.9161E-02_JPRB,3.7872E-02_JPRB,4.6642E-02_JPRB,5.5066E-02_JPRB,&
+&6.2852E-02_JPRB,6.9193E-02_JPRB,1.5934E+00_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&3.3611E-03_JPRB,1.8890E-02_JPRB,2.2580E-02_JPRB,2.5423E-02_JPRB,2.8547E-02_JPRB,3.2022E-02_JPRB,&
+&3.5350E-02_JPRB,3.7816E-02_JPRB,1.5699E+00_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&3.1761E-03_JPRB,1.8547E-02_JPRB,2.2859E-02_JPRB,2.6861E-02_JPRB,3.1328E-02_JPRB,3.5924E-02_JPRB,&
+&4.0179E-02_JPRB,4.3442E-02_JPRB,1.5027E+00_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&3.0174E-03_JPRB,1.8258E-02_JPRB,2.3246E-02_JPRB,2.8428E-02_JPRB,3.4019E-02_JPRB,3.9530E-02_JPRB,&
+&4.4619E-02_JPRB,4.8631E-02_JPRB,1.4482E+00_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&2.8795E-03_JPRB,1.7993E-02_JPRB,2.3728E-02_JPRB,2.9950E-02_JPRB,3.6407E-02_JPRB,4.2653E-02_JPRB,&
+&4.8406E-02_JPRB,5.3042E-02_JPRB,1.4039E+00_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&2.7589E-03_JPRB,1.7786E-02_JPRB,2.4255E-02_JPRB,3.1342E-02_JPRB,3.8508E-02_JPRB,4.5385E-02_JPRB,&
+&5.1742E-02_JPRB,5.6887E-02_JPRB,1.3676E+00_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&2.8871E-03_JPRB,1.5916E-02_JPRB,1.8850E-02_JPRB,2.0853E-02_JPRB,2.2958E-02_JPRB,2.5335E-02_JPRB,&
+&2.7709E-02_JPRB,2.9422E-02_JPRB,1.3854E+00_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&2.7155E-03_JPRB,1.5597E-02_JPRB,1.9055E-02_JPRB,2.1994E-02_JPRB,2.5264E-02_JPRB,2.8724E-02_JPRB,&
+&3.1943E-02_JPRB,3.4360E-02_JPRB,1.3215E+00_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&2.5680E-03_JPRB,1.5338E-02_JPRB,1.9338E-02_JPRB,2.3296E-02_JPRB,2.7614E-02_JPRB,3.1925E-02_JPRB,&
+&3.5879E-02_JPRB,3.8941E-02_JPRB,1.2707E+00_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&2.4392E-03_JPRB,1.5108E-02_JPRB,1.9717E-02_JPRB,2.4602E-02_JPRB,2.9735E-02_JPRB,3.4708E-02_JPRB,&
+&3.9299E-02_JPRB,4.2946E-02_JPRB,1.2299E+00_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&2.3263E-03_JPRB,1.4926E-02_JPRB,2.0145E-02_JPRB,2.5818E-02_JPRB,3.1599E-02_JPRB,3.7151E-02_JPRB,&
+&4.2259E-02_JPRB,4.6364E-02_JPRB,1.1947E+00_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&2.4934E-03_JPRB,1.3429E-02_JPRB,1.5676E-02_JPRB,1.6996E-02_JPRB,1.8299E-02_JPRB,1.9797E-02_JPRB,&
+&2.1368E-02_JPRB,2.2488E-02_JPRB,1.2194E+00_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&2.3370E-03_JPRB,1.3137E-02_JPRB,1.5812E-02_JPRB,1.7884E-02_JPRB,2.0163E-02_JPRB,2.2642E-02_JPRB,&
+&2.5001E-02_JPRB,2.6734E-02_JPRB,1.1601E+00_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&2.2009E-03_JPRB,1.2890E-02_JPRB,1.6023E-02_JPRB,1.8937E-02_JPRB,2.2155E-02_JPRB,2.5427E-02_JPRB,&
+&2.8446E-02_JPRB,3.0735E-02_JPRB,1.1135E+00_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&2.0815E-03_JPRB,1.2690E-02_JPRB,1.6303E-02_JPRB,2.0037E-02_JPRB,2.4017E-02_JPRB,2.7921E-02_JPRB,&
+&3.1498E-02_JPRB,3.4306E-02_JPRB,1.0751E+00_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&1.9758E-03_JPRB,1.2522E-02_JPRB,1.6643E-02_JPRB,2.1089E-02_JPRB,2.5672E-02_JPRB,3.0080E-02_JPRB,&
+&3.4128E-02_JPRB,3.7357E-02_JPRB,1.0412E+00_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&2.1444E-03_JPRB,1.1292E-02_JPRB,1.2992E-02_JPRB,1.3863E-02_JPRB,1.4632E-02_JPRB,1.5527E-02_JPRB,&
+&1.6522E-02_JPRB,1.7216E-02_JPRB,1.0697E+00_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&2.0062E-03_JPRB,1.1025E-02_JPRB,1.3086E-02_JPRB,1.4548E-02_JPRB,1.6122E-02_JPRB,1.7867E-02_JPRB,&
+&1.9575E-02_JPRB,2.0804E-02_JPRB,1.0168E+00_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&1.8858E-03_JPRB,1.0796E-02_JPRB,1.3240E-02_JPRB,1.5386E-02_JPRB,1.7762E-02_JPRB,2.0237E-02_JPRB,&
+&2.2522E-02_JPRB,2.4230E-02_JPRB,9.7508E-01_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&1.7806E-03_JPRB,1.0614E-02_JPRB,1.3451E-02_JPRB,1.6297E-02_JPRB,1.9372E-02_JPRB,2.2410E-02_JPRB,&
+&2.5204E-02_JPRB,2.7358E-02_JPRB,9.3955E-01_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&1.6877E-03_JPRB,1.0465E-02_JPRB,1.3712E-02_JPRB,1.7180E-02_JPRB,2.0798E-02_JPRB,2.4286E-02_JPRB,&
+&2.7488E-02_JPRB,3.0016E-02_JPRB,9.0793E-01_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&1.7833E-03_JPRB,9.3555E-03_JPRB,1.0771E-02_JPRB,1.1508E-02_JPRB,1.2189E-02_JPRB,1.2975E-02_JPRB,&
+&1.3836E-02_JPRB,1.4432E-02_JPRB,9.1283E-01_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&1.6687E-03_JPRB,9.1314E-03_JPRB,1.0850E-02_JPRB,1.2098E-02_JPRB,1.3448E-02_JPRB,1.4933E-02_JPRB,&
+&1.6373E-02_JPRB,1.7407E-02_JPRB,8.7061E-01_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&1.5693E-03_JPRB,8.9406E-03_JPRB,1.0990E-02_JPRB,1.2807E-02_JPRB,1.4816E-02_JPRB,1.6890E-02_JPRB,&
+&1.8802E-02_JPRB,2.0227E-02_JPRB,8.3514E-01_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&1.4823E-03_JPRB,8.7931E-03_JPRB,1.1163E-02_JPRB,1.3552E-02_JPRB,1.6124E-02_JPRB,1.8657E-02_JPRB,&
+&2.0985E-02_JPRB,2.2777E-02_JPRB,8.0415E-01_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&1.4048E-03_JPRB,8.6627E-03_JPRB,1.1377E-02_JPRB,1.4262E-02_JPRB,1.7270E-02_JPRB,2.0165E-02_JPRB,&
+&2.2814E-02_JPRB,2.4901E-02_JPRB,7.7610E-01_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&1.4795E-03_JPRB,7.7320E-03_JPRB,8.9123E-03_JPRB,9.5371E-03_JPRB,1.0129E-02_JPRB,1.0809E-02_JPRB,&
+&1.1546E-02_JPRB,1.2053E-02_JPRB,7.8854E-01_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&1.3850E-03_JPRB,7.5464E-03_JPRB,8.9834E-03_JPRB,1.0043E-02_JPRB,1.1188E-02_JPRB,1.2441E-02_JPRB,&
+&1.3647E-02_JPRB,1.4511E-02_JPRB,7.5243E-01_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&1.3027E-03_JPRB,7.3902E-03_JPRB,9.1016E-03_JPRB,1.0632E-02_JPRB,1.2313E-02_JPRB,1.4042E-02_JPRB,&
+&1.5632E-02_JPRB,1.6816E-02_JPRB,7.2138E-01_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&1.2303E-03_JPRB,7.2649E-03_JPRB,9.2431E-03_JPRB,1.1235E-02_JPRB,1.3368E-02_JPRB,1.5466E-02_JPRB,&
+&1.7392E-02_JPRB,1.8872E-02_JPRB,6.9377E-01_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&1.1660E-03_JPRB,7.1513E-03_JPRB,9.4159E-03_JPRB,1.1801E-02_JPRB,1.4281E-02_JPRB,1.6671E-02_JPRB,&
+&1.8852E-02_JPRB,2.0566E-02_JPRB,6.6914E-01_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&1.2249E-03_JPRB,6.3782E-03_JPRB,7.3622E-03_JPRB,7.8943E-03_JPRB,8.4021E-03_JPRB,8.9820E-03_JPRB,&
+&9.6036E-03_JPRB,1.0029E-02_JPRB,7.0365E-01_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&1.1466E-03_JPRB,6.2255E-03_JPRB,7.4265E-03_JPRB,8.3184E-03_JPRB,9.2818E-03_JPRB,1.0328E-02_JPRB,&
+&1.1327E-02_JPRB,1.2042E-02_JPRB,6.7076E-01_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&1.0784E-03_JPRB,6.0974E-03_JPRB,7.5218E-03_JPRB,8.8021E-03_JPRB,1.0201E-02_JPRB,1.1630E-02_JPRB,&
+&1.2945E-02_JPRB,1.3920E-02_JPRB,6.4220E-01_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&1.0185E-03_JPRB,5.9888E-03_JPRB,7.6372E-03_JPRB,9.2865E-03_JPRB,1.1046E-02_JPRB,1.2772E-02_JPRB,&
+&1.4357E-02_JPRB,1.5571E-02_JPRB,6.1693E-01_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&9.6529E-04_JPRB,5.8902E-03_JPRB,7.7765E-03_JPRB,9.7442E-03_JPRB,1.1781E-02_JPRB,1.3744E-02_JPRB,&
+&1.5534E-02_JPRB,1.6937E-02_JPRB,5.9454E-01_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&1.8021E-02_JPRB,6.5790E-02_JPRB,9.7338E-02_JPRB,1.3126E-01_JPRB,1.6473E-01_JPRB,1.9719E-01_JPRB,&
+&2.2788E-01_JPRB,2.5486E-01_JPRB,6.7734E+00_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&1.7655E-02_JPRB,6.4900E-02_JPRB,9.8783E-02_JPRB,1.3458E-01_JPRB,1.6983E-01_JPRB,2.0389E-01_JPRB,&
+&2.3625E-01_JPRB,2.6464E-01_JPRB,6.6229E+00_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&1.7413E-02_JPRB,6.4418E-02_JPRB,1.0054E-01_JPRB,1.3796E-01_JPRB,1.7471E-01_JPRB,2.1025E-01_JPRB,&
+&2.4393E-01_JPRB,2.7353E-01_JPRB,6.4891E+00_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&1.7262E-02_JPRB,6.4165E-02_JPRB,1.0227E-01_JPRB,1.4108E-01_JPRB,1.7917E-01_JPRB,2.1605E-01_JPRB,&
+&2.5091E-01_JPRB,2.8164E-01_JPRB,6.3763E+00_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&1.7196E-02_JPRB,6.4095E-02_JPRB,1.0392E-01_JPRB,1.4402E-01_JPRB,1.8328E-01_JPRB,2.2127E-01_JPRB,&
+&2.5722E-01_JPRB,2.8879E-01_JPRB,6.2911E+00_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&1.4529E-02_JPRB,5.6872E-02_JPRB,8.5086E-02_JPRB,1.1534E-01_JPRB,1.4512E-01_JPRB,1.7394E-01_JPRB,&
+&2.0123E-01_JPRB,2.2499E-01_JPRB,5.6977E+00_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&1.4123E-02_JPRB,5.6310E-02_JPRB,8.6845E-02_JPRB,1.1891E-01_JPRB,1.5031E-01_JPRB,1.8072E-01_JPRB,&
+&2.0938E-01_JPRB,2.3448E-01_JPRB,5.5431E+00_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&1.3817E-02_JPRB,5.6056E-02_JPRB,8.8719E-02_JPRB,1.2233E-01_JPRB,1.5523E-01_JPRB,1.8697E-01_JPRB,&
+&2.1702E-01_JPRB,2.4322E-01_JPRB,5.4063E+00_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&1.3599E-02_JPRB,5.5957E-02_JPRB,9.0467E-02_JPRB,1.2549E-01_JPRB,1.5975E-01_JPRB,1.9279E-01_JPRB,&
+&2.2406E-01_JPRB,2.5131E-01_JPRB,5.2860E+00_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&1.3460E-02_JPRB,5.5961E-02_JPRB,9.2180E-02_JPRB,1.2851E-01_JPRB,1.6399E-01_JPRB,1.9829E-01_JPRB,&
+&2.3058E-01_JPRB,2.5880E-01_JPRB,5.1861E+00_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&1.1705E-02_JPRB,4.8966E-02_JPRB,7.3479E-02_JPRB,9.9794E-02_JPRB,1.2575E-01_JPRB,1.5078E-01_JPRB,&
+&1.7441E-01_JPRB,1.9480E-01_JPRB,4.7593E+00_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&1.1254E-02_JPRB,4.8604E-02_JPRB,7.5346E-02_JPRB,1.0340E-01_JPRB,1.3083E-01_JPRB,1.5727E-01_JPRB,&
+&1.8221E-01_JPRB,2.0377E-01_JPRB,4.6048E+00_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&1.0873E-02_JPRB,4.8463E-02_JPRB,7.7240E-02_JPRB,1.0681E-01_JPRB,1.3563E-01_JPRB,1.6344E-01_JPRB,&
+&1.8954E-01_JPRB,2.1219E-01_JPRB,4.4612E+00_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&1.0555E-02_JPRB,4.8429E-02_JPRB,7.9010E-02_JPRB,1.0996E-01_JPRB,1.4012E-01_JPRB,1.6913E-01_JPRB,&
+&1.9654E-01_JPRB,2.2020E-01_JPRB,4.3302E+00_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&1.0298E-02_JPRB,4.8470E-02_JPRB,8.0657E-02_JPRB,1.1290E-01_JPRB,1.4434E-01_JPRB,1.7459E-01_JPRB,&
+&2.0310E-01_JPRB,2.2776E-01_JPRB,4.2150E+00_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&9.6427E-03_JPRB,4.2071E-02_JPRB,6.2842E-02_JPRB,8.5269E-02_JPRB,1.0739E-01_JPRB,1.2873E-01_JPRB,&
+&1.4874E-01_JPRB,1.6592E-01_JPRB,4.0400E+00_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&9.2011E-03_JPRB,4.1815E-02_JPRB,6.4680E-02_JPRB,8.8757E-02_JPRB,1.1230E-01_JPRB,1.3495E-01_JPRB,&
+&1.5622E-01_JPRB,1.7447E-01_JPRB,3.8793E+00_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&8.8205E-03_JPRB,4.1737E-02_JPRB,6.6556E-02_JPRB,9.2068E-02_JPRB,1.1693E-01_JPRB,1.4084E-01_JPRB,&
+&1.6327E-01_JPRB,1.8245E-01_JPRB,3.7400E+00_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&8.4836E-03_JPRB,4.1724E-02_JPRB,6.8311E-02_JPRB,9.5165E-02_JPRB,1.2127E-01_JPRB,1.4641E-01_JPRB,&
+&1.6997E-01_JPRB,1.9023E-01_JPRB,3.6160E+00_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&8.1913E-03_JPRB,4.1779E-02_JPRB,6.9919E-02_JPRB,9.8052E-02_JPRB,1.2544E-01_JPRB,1.5176E-01_JPRB,&
+&1.7649E-01_JPRB,1.9765E-01_JPRB,3.5010E+00_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&8.1345E-03_JPRB,3.6015E-02_JPRB,5.3335E-02_JPRB,7.2138E-02_JPRB,9.0702E-02_JPRB,1.0859E-01_JPRB,&
+&1.2537E-01_JPRB,1.3961E-01_JPRB,3.4725E+00_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&7.7094E-03_JPRB,3.5776E-02_JPRB,5.4998E-02_JPRB,7.5337E-02_JPRB,9.5240E-02_JPRB,1.1439E-01_JPRB,&
+&1.3227E-01_JPRB,1.4749E-01_JPRB,3.3178E+00_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&7.3411E-03_JPRB,3.5699E-02_JPRB,5.6747E-02_JPRB,7.8425E-02_JPRB,9.9566E-02_JPRB,1.1985E-01_JPRB,&
+&1.3882E-01_JPRB,1.5490E-01_JPRB,3.1804E+00_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&7.0201E-03_JPRB,3.5715E-02_JPRB,5.8432E-02_JPRB,8.1402E-02_JPRB,1.0370E-01_JPRB,1.2511E-01_JPRB,&
+&1.4516E-01_JPRB,1.6215E-01_JPRB,3.0592E+00_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&6.7383E-03_JPRB,3.5791E-02_JPRB,5.9960E-02_JPRB,8.4146E-02_JPRB,1.0763E-01_JPRB,1.3019E-01_JPRB,&
+&1.5126E-01_JPRB,1.6919E-01_JPRB,2.9545E+00_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&6.9574E-03_JPRB,3.0705E-02_JPRB,4.4873E-02_JPRB,6.0368E-02_JPRB,7.5716E-02_JPRB,9.0457E-02_JPRB,&
+&1.0422E-01_JPRB,1.1586E-01_JPRB,3.0030E+00_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&6.5599E-03_JPRB,3.0473E-02_JPRB,4.6327E-02_JPRB,6.3240E-02_JPRB,7.9791E-02_JPRB,9.5693E-02_JPRB,&
+&1.1056E-01_JPRB,1.2311E-01_JPRB,2.8591E+00_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&6.2154E-03_JPRB,3.0355E-02_JPRB,4.7875E-02_JPRB,6.6021E-02_JPRB,8.3704E-02_JPRB,1.0067E-01_JPRB,&
+&1.1647E-01_JPRB,1.2979E-01_JPRB,2.7316E+00_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&5.9146E-03_JPRB,3.0358E-02_JPRB,4.9433E-02_JPRB,6.8766E-02_JPRB,8.7543E-02_JPRB,1.0553E-01_JPRB,&
+&1.2232E-01_JPRB,1.3650E-01_JPRB,2.6198E+00_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&5.6484E-03_JPRB,3.0432E-02_JPRB,5.0868E-02_JPRB,7.1327E-02_JPRB,9.1169E-02_JPRB,1.1020E-01_JPRB,&
+&1.2797E-01_JPRB,1.4294E-01_JPRB,2.5219E+00_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&5.9858E-03_JPRB,2.6066E-02_JPRB,3.7491E-02_JPRB,5.0091E-02_JPRB,6.2632E-02_JPRB,7.4695E-02_JPRB,&
+&8.5899E-02_JPRB,9.5307E-02_JPRB,2.6265E+00_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&5.6201E-03_JPRB,2.5818E-02_JPRB,3.8713E-02_JPRB,5.2603E-02_JPRB,6.6261E-02_JPRB,7.9344E-02_JPRB,&
+&9.1528E-02_JPRB,1.0179E-01_JPRB,2.4915E+00_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&5.3028E-03_JPRB,2.5679E-02_JPRB,4.0067E-02_JPRB,5.5077E-02_JPRB,6.9715E-02_JPRB,8.3744E-02_JPRB,&
+&9.6820E-02_JPRB,1.0780E-01_JPRB,2.3737E+00_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&5.0250E-03_JPRB,2.5664E-02_JPRB,4.1469E-02_JPRB,5.7563E-02_JPRB,7.3190E-02_JPRB,8.8174E-02_JPRB,&
+&1.0210E-01_JPRB,1.1380E-01_JPRB,2.2719E+00_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&4.7808E-03_JPRB,2.5724E-02_JPRB,4.2789E-02_JPRB,5.9902E-02_JPRB,7.6504E-02_JPRB,9.2382E-02_JPRB,&
+&1.0715E-01_JPRB,1.1955E-01_JPRB,2.1838E+00_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&5.1596E-03_JPRB,2.2052E-02_JPRB,3.1199E-02_JPRB,4.1353E-02_JPRB,5.1554E-02_JPRB,6.1370E-02_JPRB,&
+&7.0499E-02_JPRB,7.8103E-02_JPRB,2.3369E+00_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&4.8272E-03_JPRB,2.1774E-02_JPRB,3.2180E-02_JPRB,4.3545E-02_JPRB,5.4719E-02_JPRB,6.5446E-02_JPRB,&
+&7.5433E-02_JPRB,8.3810E-02_JPRB,2.2096E+00_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&4.5379E-03_JPRB,2.1626E-02_JPRB,3.3329E-02_JPRB,4.5683E-02_JPRB,5.7755E-02_JPRB,6.9313E-02_JPRB,&
+&8.0057E-02_JPRB,8.9096E-02_JPRB,2.0999E+00_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&4.2850E-03_JPRB,2.1592E-02_JPRB,3.4574E-02_JPRB,4.7884E-02_JPRB,6.0825E-02_JPRB,7.3203E-02_JPRB,&
+&8.4719E-02_JPRB,9.4365E-02_JPRB,2.0061E+00_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&4.0623E-03_JPRB,2.1641E-02_JPRB,3.5762E-02_JPRB,4.9985E-02_JPRB,6.3751E-02_JPRB,7.6922E-02_JPRB,&
+&8.9154E-02_JPRB,9.9364E-02_JPRB,1.9265E+00_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&4.4531E-03_JPRB,1.8626E-02_JPRB,2.5958E-02_JPRB,3.4051E-02_JPRB,4.2290E-02_JPRB,5.0232E-02_JPRB,&
+&5.7580E-02_JPRB,6.3645E-02_JPRB,2.0688E+00_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&4.1555E-03_JPRB,1.8330E-02_JPRB,2.6712E-02_JPRB,3.5938E-02_JPRB,4.5066E-02_JPRB,5.3798E-02_JPRB,&
+&6.1907E-02_JPRB,6.8669E-02_JPRB,1.9511E+00_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&3.8980E-03_JPRB,1.8171E-02_JPRB,2.7659E-02_JPRB,3.7795E-02_JPRB,4.7683E-02_JPRB,5.7159E-02_JPRB,&
+&6.5983E-02_JPRB,7.3362E-02_JPRB,1.8504E+00_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&3.6726E-03_JPRB,1.8123E-02_JPRB,2.8719E-02_JPRB,3.9685E-02_JPRB,5.0340E-02_JPRB,6.0531E-02_JPRB,&
+&6.9978E-02_JPRB,7.7857E-02_JPRB,1.7654E+00_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&3.4732E-03_JPRB,1.8155E-02_JPRB,2.9764E-02_JPRB,4.1511E-02_JPRB,5.2898E-02_JPRB,6.3750E-02_JPRB,&
+&7.3823E-02_JPRB,8.2208E-02_JPRB,1.6947E+00_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&3.8264E-03_JPRB,1.5718E-02_JPRB,2.1595E-02_JPRB,2.8016E-02_JPRB,3.4614E-02_JPRB,4.0975E-02_JPRB,&
+&4.6868E-02_JPRB,5.1662E-02_JPRB,1.8197E+00_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&3.5642E-03_JPRB,1.5429E-02_JPRB,2.2178E-02_JPRB,2.9617E-02_JPRB,3.7012E-02_JPRB,4.4107E-02_JPRB,&
+&5.0673E-02_JPRB,5.6104E-02_JPRB,1.7127E+00_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&3.3388E-03_JPRB,1.5262E-02_JPRB,2.2939E-02_JPRB,3.1209E-02_JPRB,3.9306E-02_JPRB,4.7049E-02_JPRB,&
+&5.4217E-02_JPRB,6.0186E-02_JPRB,1.6230E+00_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&3.1419E-03_JPRB,1.5205E-02_JPRB,2.3835E-02_JPRB,3.2828E-02_JPRB,4.1571E-02_JPRB,4.9911E-02_JPRB,&
+&5.7637E-02_JPRB,6.4044E-02_JPRB,1.5488E+00_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&2.9677E-03_JPRB,1.5219E-02_JPRB,2.4740E-02_JPRB,3.4412E-02_JPRB,4.3767E-02_JPRB,5.2705E-02_JPRB,&
+&6.0972E-02_JPRB,6.7792E-02_JPRB,1.4876E+00_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&3.1779E-03_JPRB,1.3095E-02_JPRB,1.8055E-02_JPRB,2.3506E-02_JPRB,2.9061E-02_JPRB,3.4415E-02_JPRB,&
+&3.9369E-02_JPRB,4.3393E-02_JPRB,1.5476E+00_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&2.9632E-03_JPRB,1.2861E-02_JPRB,1.8568E-02_JPRB,2.4842E-02_JPRB,3.1070E-02_JPRB,3.7036E-02_JPRB,&
+&4.2545E-02_JPRB,4.7085E-02_JPRB,1.4599E+00_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&2.7773E-03_JPRB,1.2736E-02_JPRB,1.9231E-02_JPRB,2.6199E-02_JPRB,3.3009E-02_JPRB,3.9506E-02_JPRB,&
+&4.5515E-02_JPRB,5.0494E-02_JPRB,1.3882E+00_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&2.6144E-03_JPRB,1.2699E-02_JPRB,1.9998E-02_JPRB,2.7568E-02_JPRB,3.4911E-02_JPRB,4.1912E-02_JPRB,&
+&4.8384E-02_JPRB,5.3719E-02_JPRB,1.3291E+00_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&2.4704E-03_JPRB,1.2732E-02_JPRB,2.0751E-02_JPRB,2.8878E-02_JPRB,3.6736E-02_JPRB,4.4233E-02_JPRB,&
+&5.1154E-02_JPRB,5.6829E-02_JPRB,1.2767E+00_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&2.6367E-03_JPRB,1.0870E-02_JPRB,1.5028E-02_JPRB,1.9613E-02_JPRB,2.4267E-02_JPRB,2.8743E-02_JPRB,&
+&3.2886E-02_JPRB,3.6247E-02_JPRB,1.3323E+00_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&2.4596E-03_JPRB,1.0682E-02_JPRB,1.5472E-02_JPRB,2.0731E-02_JPRB,2.5941E-02_JPRB,3.0929E-02_JPRB,&
+&3.5529E-02_JPRB,3.9309E-02_JPRB,1.2608E+00_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&2.3058E-03_JPRB,1.0585E-02_JPRB,1.6043E-02_JPRB,2.1873E-02_JPRB,2.7564E-02_JPRB,3.2990E-02_JPRB,&
+&3.8001E-02_JPRB,4.2137E-02_JPRB,1.2024E+00_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&2.1711E-03_JPRB,1.0572E-02_JPRB,1.6696E-02_JPRB,2.3023E-02_JPRB,2.9157E-02_JPRB,3.5001E-02_JPRB,&
+&4.0396E-02_JPRB,4.4820E-02_JPRB,1.1510E+00_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&2.0522E-03_JPRB,1.0605E-02_JPRB,1.7302E-02_JPRB,2.4078E-02_JPRB,3.0631E-02_JPRB,3.6880E-02_JPRB,&
+&4.2638E-02_JPRB,4.7351E-02_JPRB,1.1041E+00_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&2.1839E-03_JPRB,8.9998E-03_JPRB,1.2472E-02_JPRB,1.6303E-02_JPRB,2.0181E-02_JPRB,2.3909E-02_JPRB,&
+&2.7356E-02_JPRB,3.0152E-02_JPRB,1.1877E+00_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&2.0376E-03_JPRB,8.8480E-03_JPRB,1.2851E-02_JPRB,1.7235E-02_JPRB,2.1572E-02_JPRB,2.5723E-02_JPRB,&
+&2.9547E-02_JPRB,3.2688E-02_JPRB,1.1266E+00_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&1.9106E-03_JPRB,8.7808E-03_JPRB,1.3344E-02_JPRB,1.8195E-02_JPRB,2.2927E-02_JPRB,2.7435E-02_JPRB,&
+&3.1599E-02_JPRB,3.5023E-02_JPRB,1.0740E+00_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&1.7994E-03_JPRB,8.7806E-03_JPRB,1.3884E-02_JPRB,1.9140E-02_JPRB,2.4232E-02_JPRB,2.9085E-02_JPRB,&
+&3.3560E-02_JPRB,3.7215E-02_JPRB,1.0271E+00_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&1.7009E-03_JPRB,8.8054E-03_JPRB,1.4366E-02_JPRB,1.9979E-02_JPRB,2.5409E-02_JPRB,3.0588E-02_JPRB,&
+&3.5352E-02_JPRB,3.9242E-02_JPRB,9.8352E-01_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&2.7821E-02_JPRB,9.4758E-02_JPRB,1.5999E-01_JPRB,2.2454E-01_JPRB,2.8692E-01_JPRB,3.4665E-01_JPRB,&
+&4.0214E-01_JPRB,4.4847E-01_JPRB,9.2144E+00_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&2.6913E-02_JPRB,9.4630E-02_JPRB,1.6244E-01_JPRB,2.2902E-01_JPRB,2.9341E-01_JPRB,3.5518E-01_JPRB,&
+&4.1260E-01_JPRB,4.6112E-01_JPRB,8.9389E+00_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&2.6162E-02_JPRB,9.4753E-02_JPRB,1.6454E-01_JPRB,2.3287E-01_JPRB,2.9898E-01_JPRB,3.6235E-01_JPRB,&
+&4.2172E-01_JPRB,4.7189E-01_JPRB,8.6829E+00_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&2.5554E-02_JPRB,9.5076E-02_JPRB,1.6645E-01_JPRB,2.3629E-01_JPRB,3.0381E-01_JPRB,3.6863E-01_JPRB,&
+&4.2942E-01_JPRB,4.8118E-01_JPRB,8.4692E+00_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&2.5132E-02_JPRB,9.5584E-02_JPRB,1.6836E-01_JPRB,2.3931E-01_JPRB,3.0801E-01_JPRB,3.7403E-01_JPRB,&
+&4.3587E-01_JPRB,4.8876E-01_JPRB,8.2899E+00_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&2.2786E-02_JPRB,8.2873E-02_JPRB,1.4193E-01_JPRB,2.0025E-01_JPRB,2.5674E-01_JPRB,3.1069E-01_JPRB,&
+&3.6090E-01_JPRB,4.0281E-01_JPRB,7.8467E+00_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&2.1926E-02_JPRB,8.2844E-02_JPRB,1.4423E-01_JPRB,2.0445E-01_JPRB,2.6273E-01_JPRB,3.1850E-01_JPRB,&
+&3.7058E-01_JPRB,4.1426E-01_JPRB,7.5685E+00_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&2.1216E-02_JPRB,8.3137E-02_JPRB,1.4626E-01_JPRB,2.0800E-01_JPRB,2.6778E-01_JPRB,3.2530E-01_JPRB,&
+&3.7887E-01_JPRB,4.2447E-01_JPRB,7.3113E+00_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&2.0609E-02_JPRB,8.3648E-02_JPRB,1.4825E-01_JPRB,2.1130E-01_JPRB,2.7244E-01_JPRB,3.3120E-01_JPRB,&
+&3.8633E-01_JPRB,4.3319E-01_JPRB,7.0868E+00_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&2.0124E-02_JPRB,8.4283E-02_JPRB,1.5023E-01_JPRB,2.1439E-01_JPRB,2.7658E-01_JPRB,3.3624E-01_JPRB,&
+&3.9227E-01_JPRB,4.4011E-01_JPRB,6.8977E+00_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&1.8617E-02_JPRB,7.1627E-02_JPRB,1.2381E-01_JPRB,1.7543E-01_JPRB,2.2536E-01_JPRB,2.7317E-01_JPRB,&
+&3.1745E-01_JPRB,3.5456E-01_JPRB,6.6821E+00_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&1.7803E-02_JPRB,7.1692E-02_JPRB,1.2605E-01_JPRB,1.7941E-01_JPRB,2.3119E-01_JPRB,2.8073E-01_JPRB,&
+&3.2696E-01_JPRB,3.6594E-01_JPRB,6.4024E+00_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&1.7094E-02_JPRB,7.2019E-02_JPRB,1.2810E-01_JPRB,1.8301E-01_JPRB,2.3626E-01_JPRB,2.8733E-01_JPRB,&
+&3.3525E-01_JPRB,3.7585E-01_JPRB,6.1586E+00_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&1.6473E-02_JPRB,7.2618E-02_JPRB,1.3012E-01_JPRB,1.8637E-01_JPRB,2.4089E-01_JPRB,2.9345E-01_JPRB,&
+&3.4253E-01_JPRB,3.8463E-01_JPRB,5.9399E+00_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&1.5950E-02_JPRB,7.3287E-02_JPRB,1.3213E-01_JPRB,1.8950E-01_JPRB,2.4513E-01_JPRB,2.9856E-01_JPRB,&
+&3.4870E-01_JPRB,3.9140E-01_JPRB,5.7373E+00_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&1.5580E-02_JPRB,6.1790E-02_JPRB,1.0733E-01_JPRB,1.5233E-01_JPRB,1.9578E-01_JPRB,2.3731E-01_JPRB,&
+&2.7596E-01_JPRB,3.0816E-01_JPRB,5.7644E+00_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&1.4777E-02_JPRB,6.1923E-02_JPRB,1.0950E-01_JPRB,1.5621E-01_JPRB,2.0143E-01_JPRB,2.4487E-01_JPRB,&
+&2.8520E-01_JPRB,3.1931E-01_JPRB,5.4929E+00_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&1.4083E-02_JPRB,6.2360E-02_JPRB,1.1165E-01_JPRB,1.5990E-01_JPRB,2.0675E-01_JPRB,2.5162E-01_JPRB,&
+&2.9363E-01_JPRB,3.2936E-01_JPRB,5.2479E+00_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&1.3489E-02_JPRB,6.3056E-02_JPRB,1.1379E-01_JPRB,1.6338E-01_JPRB,2.1152E-01_JPRB,2.5770E-01_JPRB,&
+&3.0103E-01_JPRB,3.3790E-01_JPRB,5.0295E+00_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&1.2974E-02_JPRB,6.3786E-02_JPRB,1.1583E-01_JPRB,1.6662E-01_JPRB,2.1582E-01_JPRB,2.6318E-01_JPRB,&
+&3.0742E-01_JPRB,3.4538E-01_JPRB,4.8395E+00_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&1.3213E-02_JPRB,5.3251E-02_JPRB,9.2575E-02_JPRB,1.3138E-01_JPRB,1.6890E-01_JPRB,2.0468E-01_JPRB,&
+&2.3789E-01_JPRB,2.6563E-01_JPRB,4.9912E+00_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&1.2469E-02_JPRB,5.3471E-02_JPRB,9.4761E-02_JPRB,1.3531E-01_JPRB,1.7451E-01_JPRB,2.1205E-01_JPRB,&
+&2.4715E-01_JPRB,2.7671E-01_JPRB,4.7367E+00_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&1.1826E-02_JPRB,5.4006E-02_JPRB,9.6957E-02_JPRB,1.3905E-01_JPRB,1.7980E-01_JPRB,2.1900E-01_JPRB,&
+&2.5553E-01_JPRB,2.8664E-01_JPRB,4.5084E+00_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&1.1265E-02_JPRB,5.4777E-02_JPRB,9.9171E-02_JPRB,1.4252E-01_JPRB,1.8466E-01_JPRB,2.2509E-01_JPRB,&
+&2.6296E-01_JPRB,2.9525E-01_JPRB,4.3062E+00_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&1.0774E-02_JPRB,5.5536E-02_JPRB,1.0132E-01_JPRB,1.4589E-01_JPRB,1.8914E-01_JPRB,2.3064E-01_JPRB,&
+&2.6960E-01_JPRB,3.0272E-01_JPRB,4.1237E+00_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&1.1298E-02_JPRB,4.5718E-02_JPRB,7.9200E-02_JPRB,1.1232E-01_JPRB,1.4430E-01_JPRB,1.7486E-01_JPRB,&
+&2.0309E-01_JPRB,2.2655E-01_JPRB,4.3329E+00_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&1.0622E-02_JPRB,4.6005E-02_JPRB,8.1486E-02_JPRB,1.1629E-01_JPRB,1.5001E-01_JPRB,1.8222E-01_JPRB,&
+&2.1218E-01_JPRB,2.3741E-01_JPRB,4.0960E+00_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&1.0034E-02_JPRB,4.6615E-02_JPRB,8.3719E-02_JPRB,1.2009E-01_JPRB,1.5528E-01_JPRB,1.8897E-01_JPRB,&
+&2.2052E-01_JPRB,2.4712E-01_JPRB,3.8879E+00_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&9.5191E-03_JPRB,4.7402E-02_JPRB,8.5902E-02_JPRB,1.2353E-01_JPRB,1.5997E-01_JPRB,1.9501E-01_JPRB,&
+&2.2766E-01_JPRB,2.5531E-01_JPRB,3.7023E+00_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&9.0694E-03_JPRB,4.8127E-02_JPRB,8.7970E-02_JPRB,1.2673E-01_JPRB,1.6428E-01_JPRB,2.0026E-01_JPRB,&
+&2.3384E-01_JPRB,2.6225E-01_JPRB,3.5368E+00_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&9.7003E-03_JPRB,3.9103E-02_JPRB,6.7303E-02_JPRB,9.5321E-02_JPRB,1.2233E-01_JPRB,1.4806E-01_JPRB,&
+&1.7192E-01_JPRB,1.9156E-01_JPRB,3.7979E+00_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&9.0880E-03_JPRB,3.9405E-02_JPRB,6.9590E-02_JPRB,9.9254E-02_JPRB,1.2789E-01_JPRB,1.5530E-01_JPRB,&
+&1.8072E-01_JPRB,2.0187E-01_JPRB,3.5772E+00_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&8.5547E-03_JPRB,3.9999E-02_JPRB,7.1749E-02_JPRB,1.0282E-01_JPRB,1.3290E-01_JPRB,1.6166E-01_JPRB,&
+&1.8835E-01_JPRB,2.1077E-01_JPRB,3.3854E+00_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&8.0885E-03_JPRB,4.0699E-02_JPRB,7.3711E-02_JPRB,1.0595E-01_JPRB,1.3715E-01_JPRB,1.6698E-01_JPRB,&
+&1.9485E-01_JPRB,2.1815E-01_JPRB,3.2157E+00_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&7.6793E-03_JPRB,4.1301E-02_JPRB,7.5502E-02_JPRB,1.0878E-01_JPRB,1.4090E-01_JPRB,1.7170E-01_JPRB,&
+&2.0034E-01_JPRB,2.2441E-01_JPRB,3.0651E+00_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&8.3356E-03_JPRB,3.3311E-02_JPRB,5.6870E-02_JPRB,8.0308E-02_JPRB,1.0295E-01_JPRB,1.2448E-01_JPRB,&
+&1.4428E-01_JPRB,1.6086E-01_JPRB,3.3908E+00_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&7.7853E-03_JPRB,3.3608E-02_JPRB,5.9028E-02_JPRB,8.4055E-02_JPRB,1.0819E-01_JPRB,1.3119E-01_JPRB,&
+&1.5248E-01_JPRB,1.7004E-01_JPRB,3.1845E+00_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&7.3065E-03_JPRB,3.4089E-02_JPRB,6.0968E-02_JPRB,8.7276E-02_JPRB,1.1264E-01_JPRB,1.3686E-01_JPRB,&
+&1.5934E-01_JPRB,1.7794E-01_JPRB,3.0043E+00_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&6.8879E-03_JPRB,3.4663E-02_JPRB,6.2677E-02_JPRB,8.9967E-02_JPRB,1.1635E-01_JPRB,1.4158E-01_JPRB,&
+&1.6491E-01_JPRB,1.8439E-01_JPRB,2.8456E+00_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&6.5199E-03_JPRB,3.5157E-02_JPRB,6.4215E-02_JPRB,9.2448E-02_JPRB,1.1974E-01_JPRB,1.4577E-01_JPRB,&
+&1.7002E-01_JPRB,1.9020E-01_JPRB,2.7064E+00_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&7.1670E-03_JPRB,2.8264E-02_JPRB,4.7722E-02_JPRB,6.7185E-02_JPRB,8.5943E-02_JPRB,1.0376E-01_JPRB,&
+&1.2019E-01_JPRB,1.3426E-01_JPRB,3.0087E+00_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&6.6733E-03_JPRB,2.8499E-02_JPRB,4.9676E-02_JPRB,7.0525E-02_JPRB,9.0644E-02_JPRB,1.0983E-01_JPRB,&
+&1.2746E-01_JPRB,1.4211E-01_JPRB,2.8169E+00_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&6.2464E-03_JPRB,2.8870E-02_JPRB,5.1362E-02_JPRB,7.3368E-02_JPRB,9.4608E-02_JPRB,1.1481E-01_JPRB,&
+&1.3345E-01_JPRB,1.4885E-01_JPRB,2.6506E+00_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&5.8753E-03_JPRB,2.9313E-02_JPRB,5.2839E-02_JPRB,7.5761E-02_JPRB,9.7853E-02_JPRB,1.1892E-01_JPRB,&
+&1.3848E-01_JPRB,1.5462E-01_JPRB,2.5062E+00_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&5.5500E-03_JPRB,2.9736E-02_JPRB,5.4197E-02_JPRB,7.7953E-02_JPRB,1.0085E-01_JPRB,1.2274E-01_JPRB,&
+&1.4297E-01_JPRB,1.5977E-01_JPRB,2.3796E+00_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&6.1244E-03_JPRB,2.3891E-02_JPRB,3.9969E-02_JPRB,5.6166E-02_JPRB,7.1759E-02_JPRB,8.6539E-02_JPRB,&
+&1.0009E-01_JPRB,1.1231E-01_JPRB,2.6506E+00_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&5.6882E-03_JPRB,2.4047E-02_JPRB,4.1658E-02_JPRB,5.9064E-02_JPRB,7.5818E-02_JPRB,9.1738E-02_JPRB,&
+&1.0641E-01_JPRB,1.1881E-01_JPRB,2.4752E+00_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&5.3134E-03_JPRB,2.4335E-02_JPRB,4.3112E-02_JPRB,6.1483E-02_JPRB,7.9176E-02_JPRB,9.6027E-02_JPRB,&
+&1.1160E-01_JPRB,1.2443E-01_JPRB,2.3246E+00_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&4.9890E-03_JPRB,2.4682E-02_JPRB,4.4370E-02_JPRB,6.3529E-02_JPRB,8.2017E-02_JPRB,9.9655E-02_JPRB,&
+&1.1591E-01_JPRB,1.2935E-01_JPRB,2.1952E+00_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&4.7070E-03_JPRB,2.5048E-02_JPRB,4.5565E-02_JPRB,6.5484E-02_JPRB,8.4705E-02_JPRB,1.0298E-01_JPRB,&
+&1.1992E-01_JPRB,1.3395E-01_JPRB,2.0819E+00_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&5.0497E-03_JPRB,2.0186E-02_JPRB,3.4078E-02_JPRB,4.7979E-02_JPRB,6.1354E-02_JPRB,7.4036E-02_JPRB,&
+&8.5636E-02_JPRB,9.6183E-02_JPRB,2.2490E+00_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&4.6938E-03_JPRB,2.0334E-02_JPRB,3.5429E-02_JPRB,5.0287E-02_JPRB,6.4580E-02_JPRB,7.8155E-02_JPRB,&
+&9.0667E-02_JPRB,1.0125E-01_JPRB,2.1005E+00_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&4.3895E-03_JPRB,2.0572E-02_JPRB,3.6577E-02_JPRB,5.2195E-02_JPRB,6.7235E-02_JPRB,8.1560E-02_JPRB,&
+&9.4765E-02_JPRB,1.0567E-01_JPRB,1.9750E+00_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&4.1271E-03_JPRB,2.0876E-02_JPRB,3.7641E-02_JPRB,5.3937E-02_JPRB,6.9658E-02_JPRB,8.4612E-02_JPRB,&
+&9.8403E-02_JPRB,1.0977E-01_JPRB,1.8669E+00_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&3.8988E-03_JPRB,2.1198E-02_JPRB,3.8649E-02_JPRB,5.5601E-02_JPRB,7.1927E-02_JPRB,8.7466E-02_JPRB,&
+&1.0184E-01_JPRB,1.1364E-01_JPRB,1.7763E+00_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&4.1728E-03_JPRB,1.6993E-02_JPRB,2.8852E-02_JPRB,4.0662E-02_JPRB,5.2011E-02_JPRB,6.2760E-02_JPRB,&
+&7.2578E-02_JPRB,8.1564E-02_JPRB,1.9301E+00_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&3.8841E-03_JPRB,1.7115E-02_JPRB,2.9921E-02_JPRB,4.2476E-02_JPRB,5.4549E-02_JPRB,6.6006E-02_JPRB,&
+&7.6561E-02_JPRB,8.5509E-02_JPRB,1.8048E+00_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&3.6372E-03_JPRB,1.7332E-02_JPRB,3.0872E-02_JPRB,4.4059E-02_JPRB,5.6757E-02_JPRB,6.8840E-02_JPRB,&
+&7.9938E-02_JPRB,8.9112E-02_JPRB,1.6994E+00_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&3.4237E-03_JPRB,1.7595E-02_JPRB,3.1771E-02_JPRB,4.5538E-02_JPRB,5.8804E-02_JPRB,7.1398E-02_JPRB,&
+&8.2985E-02_JPRB,9.2488E-02_JPRB,1.6111E+00_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&3.2373E-03_JPRB,1.7880E-02_JPRB,3.2595E-02_JPRB,4.6898E-02_JPRB,6.0660E-02_JPRB,7.3740E-02_JPRB,&
+&8.5835E-02_JPRB,9.5657E-02_JPRB,1.5338E+00_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&3.4531E-03_JPRB,1.4217E-02_JPRB,2.4215E-02_JPRB,3.4135E-02_JPRB,4.3667E-02_JPRB,5.2684E-02_JPRB,&
+&6.0918E-02_JPRB,6.8490E-02_JPRB,1.7191E+00_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&3.2166E-03_JPRB,1.4327E-02_JPRB,2.5086E-02_JPRB,3.5607E-02_JPRB,4.5722E-02_JPRB,5.5317E-02_JPRB,&
+&6.4142E-02_JPRB,7.1650E-02_JPRB,1.6100E+00_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&3.0139E-03_JPRB,1.4515E-02_JPRB,2.5871E-02_JPRB,3.6915E-02_JPRB,4.7550E-02_JPRB,5.7658E-02_JPRB,&
+&6.6926E-02_JPRB,7.4589E-02_JPRB,1.5199E+00_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&2.8380E-03_JPRB,1.4739E-02_JPRB,2.6616E-02_JPRB,3.8152E-02_JPRB,4.9253E-02_JPRB,5.9779E-02_JPRB,&
+&6.9455E-02_JPRB,7.7339E-02_JPRB,1.4413E+00_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&2.6842E-03_JPRB,1.4990E-02_JPRB,2.7278E-02_JPRB,3.9228E-02_JPRB,5.0729E-02_JPRB,6.1660E-02_JPRB,&
+&7.1747E-02_JPRB,7.9916E-02_JPRB,1.3713E+00_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&3.8632E-02_JPRB,1.4563E-01_JPRB,2.6438E-01_JPRB,3.7994E-01_JPRB,4.9178E-01_JPRB,5.9825E-01_JPRB,&
+&6.9697E-01_JPRB,7.7896E-01_JPRB,1.1356E+01_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&3.7252E-02_JPRB,1.4645E-01_JPRB,2.6646E-01_JPRB,3.8318E-01_JPRB,4.9611E-01_JPRB,6.0391E-01_JPRB,&
+&7.0433E-01_JPRB,7.8721E-01_JPRB,1.0913E+01_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&3.6055E-02_JPRB,1.4710E-01_JPRB,2.6822E-01_JPRB,3.8583E-01_JPRB,4.9949E-01_JPRB,6.0852E-01_JPRB,&
+&7.0979E-01_JPRB,7.9483E-01_JPRB,1.0530E+01_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&3.5090E-02_JPRB,1.4760E-01_JPRB,2.6956E-01_JPRB,3.8772E-01_JPRB,5.0210E-01_JPRB,6.1181E-01_JPRB,&
+&7.1390E-01_JPRB,7.9958E-01_JPRB,1.0180E+01_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&3.4260E-02_JPRB,1.4804E-01_JPRB,2.7047E-01_JPRB,3.8919E-01_JPRB,5.0401E-01_JPRB,6.1383E-01_JPRB,&
+&7.1642E-01_JPRB,8.0271E-01_JPRB,9.8574E+00_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&3.1826E-02_JPRB,1.3117E-01_JPRB,2.4082E-01_JPRB,3.4734E-01_JPRB,4.4987E-01_JPRB,5.4781E-01_JPRB,&
+&6.3804E-01_JPRB,7.1206E-01_JPRB,9.6043E+00_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&3.0580E-02_JPRB,1.3188E-01_JPRB,2.4250E-01_JPRB,3.4978E-01_JPRB,4.5341E-01_JPRB,5.5237E-01_JPRB,&
+&6.4380E-01_JPRB,7.1952E-01_JPRB,9.2042E+00_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&2.9477E-02_JPRB,1.3242E-01_JPRB,2.4394E-01_JPRB,3.5199E-01_JPRB,4.5646E-01_JPRB,5.5595E-01_JPRB,&
+&6.4859E-01_JPRB,7.2500E-01_JPRB,8.8547E+00_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&2.8580E-02_JPRB,1.3291E-01_JPRB,2.4517E-01_JPRB,3.5389E-01_JPRB,4.5886E-01_JPRB,5.5917E-01_JPRB,&
+&6.5208E-01_JPRB,7.2920E-01_JPRB,8.5255E+00_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&2.7810E-02_JPRB,1.3345E-01_JPRB,2.4608E-01_JPRB,3.5526E-01_JPRB,4.6068E-01_JPRB,5.6160E-01_JPRB,&
+&6.5500E-01_JPRB,7.3217E-01_JPRB,8.2220E+00_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&2.6420E-02_JPRB,1.1646E-01_JPRB,2.1549E-01_JPRB,3.1138E-01_JPRB,4.0359E-01_JPRB,4.9120E-01_JPRB,&
+&5.7225E-01_JPRB,6.3794E-01_JPRB,8.1678E+00_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&2.5165E-02_JPRB,1.1697E-01_JPRB,2.1694E-01_JPRB,3.1375E-01_JPRB,4.0678E-01_JPRB,4.9551E-01_JPRB,&
+&5.7728E-01_JPRB,6.4420E-01_JPRB,7.7828E+00_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&2.4099E-02_JPRB,1.1741E-01_JPRB,2.1826E-01_JPRB,3.1581E-01_JPRB,4.0983E-01_JPRB,4.9937E-01_JPRB,&
+&5.8185E-01_JPRB,6.4952E-01_JPRB,7.4421E+00_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&2.3226E-02_JPRB,1.1793E-01_JPRB,2.1960E-01_JPRB,3.1782E-01_JPRB,4.1268E-01_JPRB,5.0276E-01_JPRB,&
+&5.8605E-01_JPRB,6.5374E-01_JPRB,7.1416E+00_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&2.2449E-02_JPRB,1.1853E-01_JPRB,2.2074E-01_JPRB,3.1965E-01_JPRB,4.1487E-01_JPRB,5.0573E-01_JPRB,&
+&5.8935E-01_JPRB,6.5775E-01_JPRB,6.8702E+00_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&2.2282E-02_JPRB,1.0267E-01_JPRB,1.9038E-01_JPRB,2.7507E-01_JPRB,3.5668E-01_JPRB,4.3406E-01_JPRB,&
+&5.0509E-01_JPRB,5.6272E-01_JPRB,7.0192E+00_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&2.1101E-02_JPRB,1.0311E-01_JPRB,1.9184E-01_JPRB,2.7754E-01_JPRB,3.5984E-01_JPRB,4.3790E-01_JPRB,&
+&5.1005E-01_JPRB,5.6828E-01_JPRB,6.6594E+00_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&2.0092E-02_JPRB,1.0356E-01_JPRB,1.9318E-01_JPRB,2.7978E-01_JPRB,3.6293E-01_JPRB,4.4207E-01_JPRB,&
+&5.1463E-01_JPRB,5.7356E-01_JPRB,6.3438E+00_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&1.9228E-02_JPRB,1.0414E-01_JPRB,1.9468E-01_JPRB,2.8199E-01_JPRB,3.6599E-01_JPRB,4.4583E-01_JPRB,&
+&5.1913E-01_JPRB,5.7829E-01_JPRB,6.0576E+00_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&1.8478E-02_JPRB,1.0486E-01_JPRB,1.9620E-01_JPRB,2.8416E-01_JPRB,3.6882E-01_JPRB,4.4907E-01_JPRB,&
+&5.2302E-01_JPRB,5.8267E-01_JPRB,5.7987E+00_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&1.8927E-02_JPRB,8.9665E-02_JPRB,1.6623E-01_JPRB,2.4010E-01_JPRB,3.1103E-01_JPRB,3.7843E-01_JPRB,&
+&4.4012E-01_JPRB,4.9065E-01_JPRB,6.0454E+00_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&1.7852E-02_JPRB,9.0154E-02_JPRB,1.6776E-01_JPRB,2.4246E-01_JPRB,3.1432E-01_JPRB,3.8239E-01_JPRB,&
+&4.4467E-01_JPRB,4.9513E-01_JPRB,5.7165E+00_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&1.6931E-02_JPRB,9.0711E-02_JPRB,1.6930E-01_JPRB,2.4502E-01_JPRB,3.1769E-01_JPRB,3.8643E-01_JPRB,&
+&4.4965E-01_JPRB,5.0025E-01_JPRB,5.4249E+00_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&1.6136E-02_JPRB,9.1383E-02_JPRB,1.7089E-01_JPRB,2.4749E-01_JPRB,3.2087E-01_JPRB,3.9057E-01_JPRB,&
+&4.5430E-01_JPRB,5.0560E-01_JPRB,5.1610E+00_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&1.5442E-02_JPRB,9.2230E-02_JPRB,1.7257E-01_JPRB,2.4990E-01_JPRB,3.2412E-01_JPRB,3.9447E-01_JPRB,&
+&4.5892E-01_JPRB,5.1059E-01_JPRB,4.9249E+00_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&1.6173E-02_JPRB,7.7572E-02_JPRB,1.4357E-01_JPRB,2.0729E-01_JPRB,2.6833E-01_JPRB,3.2615E-01_JPRB,&
+&3.7930E-01_JPRB,4.2429E-01_JPRB,5.2215E+00_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&1.5200E-02_JPRB,7.8077E-02_JPRB,1.4510E-01_JPRB,2.0962E-01_JPRB,2.7142E-01_JPRB,3.3008E-01_JPRB,&
+&3.8383E-01_JPRB,4.2773E-01_JPRB,4.9175E+00_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&1.4368E-02_JPRB,7.8730E-02_JPRB,1.4681E-01_JPRB,2.1218E-01_JPRB,2.7493E-01_JPRB,3.3435E-01_JPRB,&
+&3.8857E-01_JPRB,4.3236E-01_JPRB,4.6498E+00_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&1.3651E-02_JPRB,7.9498E-02_JPRB,1.4852E-01_JPRB,2.1489E-01_JPRB,2.7853E-01_JPRB,3.3867E-01_JPRB,&
+&3.9393E-01_JPRB,4.3813E-01_JPRB,4.4118E+00_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&1.3021E-02_JPRB,8.0512E-02_JPRB,1.5047E-01_JPRB,2.1785E-01_JPRB,2.8237E-01_JPRB,3.4356E-01_JPRB,&
+&3.9943E-01_JPRB,4.4445E-01_JPRB,4.1985E+00_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&1.3842E-02_JPRB,6.6570E-02_JPRB,1.2297E-01_JPRB,1.7734E-01_JPRB,2.2958E-01_JPRB,2.7900E-01_JPRB,&
+&3.2406E-01_JPRB,3.6469E-01_JPRB,4.5564E+00_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&1.2974E-02_JPRB,6.7120E-02_JPRB,1.2449E-01_JPRB,1.7977E-01_JPRB,2.3270E-01_JPRB,2.8277E-01_JPRB,&
+&3.2872E-01_JPRB,3.6760E-01_JPRB,4.2769E+00_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&1.2231E-02_JPRB,6.7829E-02_JPRB,1.2627E-01_JPRB,1.8248E-01_JPRB,2.3625E-01_JPRB,2.8721E-01_JPRB,&
+&3.3397E-01_JPRB,3.7214E-01_JPRB,4.0308E+00_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&1.1586E-02_JPRB,6.8704E-02_JPRB,1.2831E-01_JPRB,1.8551E-01_JPRB,2.4039E-01_JPRB,2.9244E-01_JPRB,&
+&3.3993E-01_JPRB,3.7842E-01_JPRB,3.8137E+00_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&1.1019E-02_JPRB,6.9935E-02_JPRB,1.3064E-01_JPRB,1.8899E-01_JPRB,2.4502E-01_JPRB,2.9795E-01_JPRB,&
+&3.4661E-01_JPRB,3.8562E-01_JPRB,3.6208E+00_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&1.1856E-02_JPRB,5.6687E-02_JPRB,1.0456E-01_JPRB,1.5068E-01_JPRB,1.9490E-01_JPRB,2.3680E-01_JPRB,&
+&2.7529E-01_JPRB,3.1187E-01_JPRB,4.0573E+00_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&1.1084E-02_JPRB,5.7283E-02_JPRB,1.0610E-01_JPRB,1.5305E-01_JPRB,1.9814E-01_JPRB,2.4092E-01_JPRB,&
+&2.8002E-01_JPRB,3.1482E-01_JPRB,3.7969E+00_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&1.0424E-02_JPRB,5.8111E-02_JPRB,1.0802E-01_JPRB,1.5601E-01_JPRB,2.0208E-01_JPRB,2.4566E-01_JPRB,&
+&2.8562E-01_JPRB,3.1943E-01_JPRB,3.5697E+00_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&9.8517E-03_JPRB,5.9109E-02_JPRB,1.1026E-01_JPRB,1.5951E-01_JPRB,2.0663E-01_JPRB,2.5128E-01_JPRB,&
+&2.9237E-01_JPRB,3.2591E-01_JPRB,3.3690E+00_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&9.3473E-03_JPRB,6.0458E-02_JPRB,1.1290E-01_JPRB,1.6330E-01_JPRB,2.1161E-01_JPRB,2.5747E-01_JPRB,&
+&2.9929E-01_JPRB,3.3311E-01_JPRB,3.1918E+00_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&1.0174E-02_JPRB,4.8047E-02_JPRB,8.8410E-02_JPRB,1.2743E-01_JPRB,1.6481E-01_JPRB,2.0018E-01_JPRB,&
+&2.3315E-01_JPRB,2.6585E-01_JPRB,3.5956E+00_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&9.4844E-03_JPRB,4.8661E-02_JPRB,9.0043E-02_JPRB,1.2994E-01_JPRB,1.6817E-01_JPRB,2.0441E-01_JPRB,&
+&2.3776E-01_JPRB,2.6902E-01_JPRB,3.3539E+00_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&8.8959E-03_JPRB,4.9547E-02_JPRB,9.2085E-02_JPRB,1.3295E-01_JPRB,1.7216E-01_JPRB,2.0943E-01_JPRB,&
+&2.4369E-01_JPRB,2.7374E-01_JPRB,3.1436E+00_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&8.3843E-03_JPRB,5.0652E-02_JPRB,9.4445E-02_JPRB,1.3652E-01_JPRB,1.7695E-01_JPRB,2.1526E-01_JPRB,&
+&2.5026E-01_JPRB,2.7964E-01_JPRB,2.9597E+00_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&7.9361E-03_JPRB,5.1996E-02_JPRB,9.7022E-02_JPRB,1.4032E-01_JPRB,1.8172E-01_JPRB,2.2081E-01_JPRB,&
+&2.5660E-01_JPRB,2.8539E-01_JPRB,2.7995E+00_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&8.6910E-03_JPRB,4.0662E-02_JPRB,7.4709E-02_JPRB,1.0753E-01_JPRB,1.3903E-01_JPRB,1.6890E-01_JPRB,&
+&1.9755E-01_JPRB,2.2624E-01_JPRB,3.1658E+00_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&8.0781E-03_JPRB,4.1334E-02_JPRB,7.6396E-02_JPRB,1.1015E-01_JPRB,1.4261E-01_JPRB,1.7346E-01_JPRB,&
+&2.0195E-01_JPRB,2.2973E-01_JPRB,2.9443E+00_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&7.5558E-03_JPRB,4.2237E-02_JPRB,7.8425E-02_JPRB,1.1329E-01_JPRB,1.4677E-01_JPRB,1.7847E-01_JPRB,&
+&2.0753E-01_JPRB,2.3421E-01_JPRB,2.7528E+00_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&7.1052E-03_JPRB,4.3295E-02_JPRB,8.0652E-02_JPRB,1.1657E-01_JPRB,1.5091E-01_JPRB,1.8339E-01_JPRB,&
+&2.1320E-01_JPRB,2.3872E-01_JPRB,2.5875E+00_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&6.7112E-03_JPRB,4.4456E-02_JPRB,8.2854E-02_JPRB,1.1964E-01_JPRB,1.5483E-01_JPRB,1.8812E-01_JPRB,&
+&2.1828E-01_JPRB,2.4305E-01_JPRB,2.4449E+00_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&7.1546E-03_JPRB,3.4641E-02_JPRB,6.3729E-02_JPRB,9.1774E-02_JPRB,1.1873E-01_JPRB,1.4430E-01_JPRB,&
+&1.6899E-01_JPRB,1.9377E-01_JPRB,2.6800E+00_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&6.6497E-03_JPRB,3.5437E-02_JPRB,6.5581E-02_JPRB,9.4605E-02_JPRB,1.2249E-01_JPRB,1.4891E-01_JPRB,&
+&1.7335E-01_JPRB,1.9740E-01_JPRB,2.4922E+00_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&6.2203E-03_JPRB,3.6291E-02_JPRB,6.7410E-02_JPRB,9.7360E-02_JPRB,1.2600E-01_JPRB,1.5308E-01_JPRB,&
+&1.7786E-01_JPRB,2.0080E-01_JPRB,2.3311E+00_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&5.8484E-03_JPRB,3.7194E-02_JPRB,6.9237E-02_JPRB,9.9960E-02_JPRB,1.2931E-01_JPRB,1.5705E-01_JPRB,&
+&1.8234E-01_JPRB,2.0415E-01_JPRB,2.1940E+00_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&5.5242E-03_JPRB,3.8204E-02_JPRB,7.1094E-02_JPRB,1.0253E-01_JPRB,1.3260E-01_JPRB,1.6091E-01_JPRB,&
+&1.8653E-01_JPRB,2.0766E-01_JPRB,2.0745E+00_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&5.8816E-03_JPRB,2.9599E-02_JPRB,5.4489E-02_JPRB,7.8480E-02_JPRB,1.0153E-01_JPRB,1.2338E-01_JPRB,&
+&1.4461E-01_JPRB,1.6589E-01_JPRB,2.2985E+00_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&5.4688E-03_JPRB,3.0298E-02_JPRB,5.6046E-02_JPRB,8.0826E-02_JPRB,1.0456E-01_JPRB,1.2701E-01_JPRB,&
+&1.4783E-01_JPRB,1.6844E-01_JPRB,2.1377E+00_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&5.1175E-03_JPRB,3.1020E-02_JPRB,5.7585E-02_JPRB,8.3084E-02_JPRB,1.0742E-01_JPRB,1.3040E-01_JPRB,&
+&1.5140E-01_JPRB,1.7099E-01_JPRB,2.0023E+00_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&4.8144E-03_JPRB,3.1808E-02_JPRB,5.9123E-02_JPRB,8.5255E-02_JPRB,1.1020E-01_JPRB,1.3374E-01_JPRB,&
+&1.5506E-01_JPRB,1.7366E-01_JPRB,1.8864E+00_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&4.5497E-03_JPRB,3.2704E-02_JPRB,6.0814E-02_JPRB,8.7626E-02_JPRB,1.1321E-01_JPRB,1.3720E-01_JPRB,&
+&1.5886E-01_JPRB,1.7678E-01_JPRB,1.7844E+00_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&4.8422E-03_JPRB,2.5177E-02_JPRB,4.6344E-02_JPRB,6.6734E-02_JPRB,8.6291E-02_JPRB,1.0482E-01_JPRB,&
+&1.2289E-01_JPRB,1.4102E-01_JPRB,2.0501E+00_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&4.5082E-03_JPRB,2.5759E-02_JPRB,4.7623E-02_JPRB,6.8651E-02_JPRB,8.8749E-02_JPRB,1.0771E-01_JPRB,&
+&1.2536E-01_JPRB,1.4285E-01_JPRB,1.9088E+00_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&4.2221E-03_JPRB,2.6388E-02_JPRB,4.8921E-02_JPRB,7.0509E-02_JPRB,9.1098E-02_JPRB,1.1050E-01_JPRB,&
+&1.2820E-01_JPRB,1.4481E-01_JPRB,1.7897E+00_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&3.9753E-03_JPRB,2.7097E-02_JPRB,5.0270E-02_JPRB,7.2404E-02_JPRB,9.3520E-02_JPRB,1.1341E-01_JPRB,&
+&1.3134E-01_JPRB,1.4713E-01_JPRB,1.6870E+00_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&3.7603E-03_JPRB,2.7904E-02_JPRB,5.1825E-02_JPRB,7.4620E-02_JPRB,9.6277E-02_JPRB,1.1654E-01_JPRB,&
+&1.3481E-01_JPRB,1.4987E-01_JPRB,1.5960E+00_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&5.2128E-02_JPRB,2.2573E-01_JPRB,4.1698E-01_JPRB,6.0142E-01_JPRB,7.7838E-01_JPRB,9.4635E-01_JPRB,&
+&1.1013E+00_JPRB,1.2264E+00_JPRB,1.2683E+01_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&5.0382E-02_JPRB,2.2718E-01_JPRB,4.1897E-01_JPRB,6.0369E-01_JPRB,7.8036E-01_JPRB,9.4806E-01_JPRB,&
+&1.1011E+00_JPRB,1.2250E+00_JPRB,1.2078E+01_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&4.9050E-02_JPRB,2.2916E-01_JPRB,4.2172E-01_JPRB,6.0675E-01_JPRB,7.8406E-01_JPRB,9.5134E-01_JPRB,&
+&1.1038E+00_JPRB,1.2245E+00_JPRB,1.1561E+01_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&4.8000E-02_JPRB,2.3161E-01_JPRB,4.2498E-01_JPRB,6.1081E-01_JPRB,7.8880E-01_JPRB,9.5615E-01_JPRB,&
+&1.1084E+00_JPRB,1.2283E+00_JPRB,1.1090E+01_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&4.7267E-02_JPRB,2.3436E-01_JPRB,4.2865E-01_JPRB,6.1543E-01_JPRB,7.9387E-01_JPRB,9.6245E-01_JPRB,&
+&1.1147E+00_JPRB,1.2334E+00_JPRB,1.0665E+01_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&4.2932E-02_JPRB,2.1372E-01_JPRB,3.9561E-01_JPRB,5.6920E-01_JPRB,7.3515E-01_JPRB,8.9082E-01_JPRB,&
+&1.0322E+00_JPRB,1.1443E+00_JPRB,1.0613E+01_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&4.1235E-02_JPRB,2.1562E-01_JPRB,3.9903E-01_JPRB,5.7421E-01_JPRB,7.4053E-01_JPRB,8.9640E-01_JPRB,&
+&1.0375E+00_JPRB,1.1460E+00_JPRB,1.0106E+01_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&3.9904E-02_JPRB,2.1797E-01_JPRB,4.0322E-01_JPRB,5.7993E-01_JPRB,7.4744E-01_JPRB,9.0475E-01_JPRB,&
+&1.0452E+00_JPRB,1.1527E+00_JPRB,9.6511E+00_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&3.8807E-02_JPRB,2.2063E-01_JPRB,4.0792E-01_JPRB,5.8615E-01_JPRB,7.5558E-01_JPRB,9.1342E-01_JPRB,&
+&1.0550E+00_JPRB,1.1616E+00_JPRB,9.2444E+00_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&3.7944E-02_JPRB,2.2348E-01_JPRB,4.1278E-01_JPRB,5.9308E-01_JPRB,7.6392E-01_JPRB,9.2334E-01_JPRB,&
+&1.0654E+00_JPRB,1.1718E+00_JPRB,8.8704E+00_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&3.5644E-02_JPRB,1.9900E-01_JPRB,3.6873E-01_JPRB,5.2969E-01_JPRB,6.8262E-01_JPRB,8.2576E-01_JPRB,&
+&9.5330E-01_JPRB,1.0560E+00_JPRB,9.0225E+00_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&3.3919E-02_JPRB,2.0128E-01_JPRB,3.7328E-01_JPRB,5.3629E-01_JPRB,6.9070E-01_JPRB,8.3419E-01_JPRB,&
+&9.6259E-01_JPRB,1.0599E+00_JPRB,8.5592E+00_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&3.2476E-02_JPRB,2.0401E-01_JPRB,3.7867E-01_JPRB,5.4408E-01_JPRB,7.0000E-01_JPRB,8.4506E-01_JPRB,&
+&9.7370E-01_JPRB,1.0690E+00_JPRB,8.1409E+00_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&3.1249E-02_JPRB,2.0698E-01_JPRB,3.8457E-01_JPRB,5.5225E-01_JPRB,7.1038E-01_JPRB,8.5708E-01_JPRB,&
+&9.8671E-01_JPRB,1.0811E+00_JPRB,7.7623E+00_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&3.0275E-02_JPRB,2.1021E-01_JPRB,3.9069E-01_JPRB,5.6104E-01_JPRB,7.2150E-01_JPRB,8.6973E-01_JPRB,&
+&1.0004E+00_JPRB,1.0948E+00_JPRB,7.4273E+00_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&3.0097E-02_JPRB,1.8261E-01_JPRB,3.3811E-01_JPRB,4.8498E-01_JPRB,6.2347E-01_JPRB,7.5244E-01_JPRB,&
+&8.6689E-01_JPRB,9.6397E-01_JPRB,7.7267E+00_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&2.8465E-02_JPRB,1.8532E-01_JPRB,3.4351E-01_JPRB,4.9262E-01_JPRB,6.3341E-01_JPRB,7.6377E-01_JPRB,&
+&8.7850E-01_JPRB,9.6891E-01_JPRB,7.2971E+00_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&2.7069E-02_JPRB,1.8851E-01_JPRB,3.4990E-01_JPRB,5.0190E-01_JPRB,6.4465E-01_JPRB,7.7654E-01_JPRB,&
+&8.9285E-01_JPRB,9.7883E-01_JPRB,6.9159E+00_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&2.5871E-02_JPRB,1.9199E-01_JPRB,3.5682E-01_JPRB,5.1175E-01_JPRB,6.5706E-01_JPRB,7.9119E-01_JPRB,&
+&9.0820E-01_JPRB,9.9217E-01_JPRB,6.5751E+00_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&2.4866E-02_JPRB,1.9576E-01_JPRB,3.6404E-01_JPRB,5.2207E-01_JPRB,6.7030E-01_JPRB,8.0638E-01_JPRB,&
+&9.2498E-01_JPRB,1.0073E+00_JPRB,6.2687E+00_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&2.5614E-02_JPRB,1.6487E-01_JPRB,3.0459E-01_JPRB,4.3623E-01_JPRB,5.5976E-01_JPRB,6.7396E-01_JPRB,&
+&7.7520E-01_JPRB,8.6835E-01_JPRB,6.6219E+00_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&2.4116E-02_JPRB,1.6799E-01_JPRB,3.1096E-01_JPRB,4.4514E-01_JPRB,5.7096E-01_JPRB,6.8731E-01_JPRB,&
+&7.8907E-01_JPRB,8.7442E-01_JPRB,6.2328E+00_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&2.2830E-02_JPRB,1.7162E-01_JPRB,3.1815E-01_JPRB,4.5551E-01_JPRB,5.8428E-01_JPRB,7.0249E-01_JPRB,&
+&8.0544E-01_JPRB,8.8480E-01_JPRB,5.8899E+00_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&2.1736E-02_JPRB,1.7560E-01_JPRB,3.2603E-01_JPRB,4.6697E-01_JPRB,5.9854E-01_JPRB,7.1908E-01_JPRB,&
+&8.2326E-01_JPRB,8.9862E-01_JPRB,5.5832E+00_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&2.0809E-02_JPRB,1.7988E-01_JPRB,3.3435E-01_JPRB,4.7875E-01_JPRB,6.1356E-01_JPRB,7.3657E-01_JPRB,&
+&8.4234E-01_JPRB,9.1423E-01_JPRB,5.3090E+00_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&2.1880E-02_JPRB,1.4623E-01_JPRB,2.6962E-01_JPRB,3.8553E-01_JPRB,4.9437E-01_JPRB,5.9458E-01_JPRB,&
+&6.8464E-01_JPRB,7.7290E-01_JPRB,5.6893E+00_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&2.0541E-02_JPRB,1.4964E-01_JPRB,2.7646E-01_JPRB,3.9534E-01_JPRB,5.0653E-01_JPRB,6.0867E-01_JPRB,&
+&6.9802E-01_JPRB,7.7944E-01_JPRB,5.3383E+00_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&1.9387E-02_JPRB,1.5367E-01_JPRB,2.8442E-01_JPRB,4.0664E-01_JPRB,5.2073E-01_JPRB,6.2519E-01_JPRB,&
+&7.1506E-01_JPRB,7.9013E-01_JPRB,5.0300E+00_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&1.8399E-02_JPRB,1.5808E-01_JPRB,2.9302E-01_JPRB,4.1898E-01_JPRB,5.3609E-01_JPRB,6.4281E-01_JPRB,&
+&7.3443E-01_JPRB,8.0386E-01_JPRB,4.7570E+00_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&1.7565E-02_JPRB,1.6282E-01_JPRB,3.0216E-01_JPRB,4.3178E-01_JPRB,5.5216E-01_JPRB,6.6163E-01_JPRB,&
+&7.5404E-01_JPRB,8.1847E-01_JPRB,4.5125E+00_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&1.8714E-02_JPRB,1.2767E-01_JPRB,2.3517E-01_JPRB,3.3585E-01_JPRB,4.3014E-01_JPRB,5.1698E-01_JPRB,&
+&5.9889E-01_JPRB,6.8052E-01_JPRB,4.9475E+00_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&1.7519E-02_JPRB,1.3119E-01_JPRB,2.4211E-01_JPRB,3.4588E-01_JPRB,4.4292E-01_JPRB,5.3168E-01_JPRB,&
+&6.1066E-01_JPRB,6.8710E-01_JPRB,4.6289E+00_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&1.6495E-02_JPRB,1.3547E-01_JPRB,2.5037E-01_JPRB,3.5759E-01_JPRB,4.5729E-01_JPRB,5.4816E-01_JPRB,&
+&6.2674E-01_JPRB,6.9772E-01_JPRB,4.3494E+00_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&1.5623E-02_JPRB,1.4024E-01_JPRB,2.5938E-01_JPRB,3.7018E-01_JPRB,4.7307E-01_JPRB,5.6640E-01_JPRB,&
+&6.4533E-01_JPRB,7.1032E-01_JPRB,4.1027E+00_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&1.4883E-02_JPRB,1.4521E-01_JPRB,2.6879E-01_JPRB,3.8347E-01_JPRB,4.8911E-01_JPRB,5.8444E-01_JPRB,&
+&6.6428E-01_JPRB,7.2392E-01_JPRB,3.8827E+00_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&1.6011E-02_JPRB,1.1016E-01_JPRB,2.0259E-01_JPRB,2.8923E-01_JPRB,3.7024E-01_JPRB,4.4570E-01_JPRB,&
+&5.1977E-01_JPRB,5.9363E-01_JPRB,4.3984E+00_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&1.4948E-02_JPRB,1.1367E-01_JPRB,2.0954E-01_JPRB,2.9900E-01_JPRB,3.8239E-01_JPRB,4.5865E-01_JPRB,&
+&5.2962E-01_JPRB,5.9992E-01_JPRB,4.1028E+00_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&1.4043E-02_JPRB,1.1790E-01_JPRB,2.1765E-01_JPRB,3.1052E-01_JPRB,3.9683E-01_JPRB,4.7512E-01_JPRB,&
+&5.4401E-01_JPRB,6.0979E-01_JPRB,3.8451E+00_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&1.3277E-02_JPRB,1.2271E-01_JPRB,2.2662E-01_JPRB,3.2293E-01_JPRB,4.1184E-01_JPRB,4.9204E-01_JPRB,&
+&5.6016E-01_JPRB,6.2114E-01_JPRB,3.6180E+00_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&1.2628E-02_JPRB,1.2779E-01_JPRB,2.3576E-01_JPRB,3.3533E-01_JPRB,4.2713E-01_JPRB,5.0925E-01_JPRB,&
+&5.7770E-01_JPRB,6.3359E-01_JPRB,3.4160E+00_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&1.3722E-02_JPRB,9.3985E-02_JPRB,1.7271E-01_JPRB,2.4639E-01_JPRB,3.1541E-01_JPRB,3.8164E-01_JPRB,&
+&4.4798E-01_JPRB,5.1362E-01_JPRB,3.8929E+00_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&1.2777E-02_JPRB,9.7414E-02_JPRB,1.7934E-01_JPRB,2.5581E-01_JPRB,3.2699E-01_JPRB,3.9259E-01_JPRB,&
+&4.5617E-01_JPRB,5.1941E-01_JPRB,3.6200E+00_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&1.1979E-02_JPRB,1.0152E-01_JPRB,1.8716E-01_JPRB,2.6666E-01_JPRB,3.4026E-01_JPRB,4.0688E-01_JPRB,&
+&4.6784E-01_JPRB,5.2783E-01_JPRB,3.3828E+00_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&1.1306E-02_JPRB,1.0607E-01_JPRB,1.9536E-01_JPRB,2.7793E-01_JPRB,3.5411E-01_JPRB,4.2250E-01_JPRB,&
+&4.8212E-01_JPRB,5.3856E-01_JPRB,3.1744E+00_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&1.0737E-02_JPRB,1.1080E-01_JPRB,2.0394E-01_JPRB,2.8968E-01_JPRB,3.6840E-01_JPRB,4.3899E-01_JPRB,&
+&4.9835E-01_JPRB,5.5128E-01_JPRB,2.9902E+00_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&1.1712E-02_JPRB,7.9698E-02_JPRB,1.4636E-01_JPRB,2.0884E-01_JPRB,2.6772E-01_JPRB,3.2572E-01_JPRB,&
+&3.8403E-01_JPRB,4.4146E-01_JPRB,3.4238E+00_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&1.0885E-02_JPRB,8.2934E-02_JPRB,1.5255E-01_JPRB,2.1737E-01_JPRB,2.7766E-01_JPRB,3.3439E-01_JPRB,&
+&3.9066E-01_JPRB,4.4635E-01_JPRB,3.1745E+00_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&1.0188E-02_JPRB,8.6824E-02_JPRB,1.5967E-01_JPRB,2.2716E-01_JPRB,2.8954E-01_JPRB,3.4626E-01_JPRB,&
+&4.0034E-01_JPRB,4.5401E-01_JPRB,2.9589E+00_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&9.6011E-03_JPRB,9.1065E-02_JPRB,1.6737E-01_JPRB,2.3778E-01_JPRB,3.0267E-01_JPRB,3.6104E-01_JPRB,&
+&4.1369E-01_JPRB,4.6516E-01_JPRB,2.7702E+00_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&9.1043E-03_JPRB,9.5561E-02_JPRB,1.7554E-01_JPRB,2.4912E-01_JPRB,3.1674E-01_JPRB,3.7708E-01_JPRB,&
+&4.2925E-01_JPRB,4.7811E-01_JPRB,2.6047E+00_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&9.6600E-03_JPRB,6.8416E-02_JPRB,1.2568E-01_JPRB,1.7918E-01_JPRB,2.2969E-01_JPRB,2.7960E-01_JPRB,&
+&3.2973E-01_JPRB,3.7899E-01_JPRB,2.8930E+00_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&8.9878E-03_JPRB,7.1652E-02_JPRB,1.3155E-01_JPRB,1.8712E-01_JPRB,2.3867E-01_JPRB,2.8757E-01_JPRB,&
+&3.3629E-01_JPRB,3.8441E-01_JPRB,2.6816E+00_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&8.4222E-03_JPRB,7.5378E-02_JPRB,1.3835E-01_JPRB,1.9668E-01_JPRB,2.5051E-01_JPRB,2.9968E-01_JPRB,&
+&3.4702E-01_JPRB,3.9398E-01_JPRB,2.4985E+00_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&7.9456E-03_JPRB,7.9499E-02_JPRB,1.4588E-01_JPRB,2.0704E-01_JPRB,2.6333E-01_JPRB,3.1396E-01_JPRB,&
+&3.6037E-01_JPRB,4.0593E-01_JPRB,2.3394E+00_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&7.5367E-03_JPRB,8.3782E-02_JPRB,1.5372E-01_JPRB,2.1807E-01_JPRB,2.7700E-01_JPRB,3.2966E-01_JPRB,&
+&3.7579E-01_JPRB,4.1961E-01_JPRB,2.2005E+00_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&7.9651E-03_JPRB,5.8686E-02_JPRB,1.0769E-01_JPRB,1.5334E-01_JPRB,1.9661E-01_JPRB,2.3953E-01_JPRB,&
+&2.8260E-01_JPRB,3.2486E-01_JPRB,2.4784E+00_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&7.4154E-03_JPRB,6.1767E-02_JPRB,1.1336E-01_JPRB,1.6127E-01_JPRB,2.0569E-01_JPRB,2.4818E-01_JPRB,&
+&2.9059E-01_JPRB,3.3236E-01_JPRB,2.2967E+00_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&6.9534E-03_JPRB,6.5368E-02_JPRB,1.1996E-01_JPRB,1.7048E-01_JPRB,2.1709E-01_JPRB,2.5998E-01_JPRB,&
+&3.0158E-01_JPRB,3.4278E-01_JPRB,2.1399E+00_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&6.5627E-03_JPRB,6.9215E-02_JPRB,1.2702E-01_JPRB,1.8030E-01_JPRB,2.2939E-01_JPRB,2.7353E-01_JPRB,&
+&3.1454E-01_JPRB,3.5481E-01_JPRB,2.0047E+00_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&6.2252E-03_JPRB,7.3310E-02_JPRB,1.3449E-01_JPRB,1.9068E-01_JPRB,2.4194E-01_JPRB,2.8763E-01_JPRB,&
+&3.2799E-01_JPRB,3.6662E-01_JPRB,1.8867E+00_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&6.5616E-03_JPRB,5.0380E-02_JPRB,9.2460E-02_JPRB,1.3167E-01_JPRB,1.6900E-01_JPRB,2.0616E-01_JPRB,&
+&2.4338E-01_JPRB,2.7988E-01_JPRB,2.2117E+00_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&6.1120E-03_JPRB,5.3375E-02_JPRB,9.7998E-02_JPRB,1.3948E-01_JPRB,1.7796E-01_JPRB,2.1500E-01_JPRB,&
+&2.5201E-01_JPRB,2.8843E-01_JPRB,2.0497E+00_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&5.7372E-03_JPRB,5.6731E-02_JPRB,1.0419E-01_JPRB,1.4804E-01_JPRB,1.8846E-01_JPRB,2.2583E-01_JPRB,&
+&2.6228E-01_JPRB,2.9829E-01_JPRB,1.9105E+00_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&5.4187E-03_JPRB,6.0281E-02_JPRB,1.1054E-01_JPRB,1.5676E-01_JPRB,1.9913E-01_JPRB,2.3709E-01_JPRB,&
+&2.7280E-01_JPRB,3.0791E-01_JPRB,1.7905E+00_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&5.1412E-03_JPRB,6.3942E-02_JPRB,1.1702E-01_JPRB,1.6550E-01_JPRB,2.0967E-01_JPRB,2.4883E-01_JPRB,&
+&2.8378E-01_JPRB,3.1751E-01_JPRB,1.6855E+00_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&8.0925E-02_JPRB,4.4695E-01_JPRB,8.0232E-01_JPRB,1.1226E+00_JPRB,1.4103E+00_JPRB,1.6623E+00_JPRB,&
+&1.8647E+00_JPRB,1.9976E+00_JPRB,1.3169E+01_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&7.9475E-02_JPRB,4.6155E-01_JPRB,8.2577E-01_JPRB,1.1515E+00_JPRB,1.4434E+00_JPRB,1.6972E+00_JPRB,&
+&1.8967E+00_JPRB,2.0110E+00_JPRB,1.2516E+01_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&7.9284E-02_JPRB,4.7585E-01_JPRB,8.4839E-01_JPRB,1.1813E+00_JPRB,1.4771E+00_JPRB,1.7315E+00_JPRB,&
+&1.9304E+00_JPRB,2.0281E+00_JPRB,1.1933E+01_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&8.0560E-02_JPRB,4.9019E-01_JPRB,8.7148E-01_JPRB,1.2102E+00_JPRB,1.5100E+00_JPRB,1.7671E+00_JPRB,&
+&1.9624E+00_JPRB,2.0460E+00_JPRB,1.1433E+01_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&8.3397E-02_JPRB,5.0455E-01_JPRB,8.9392E-01_JPRB,1.2384E+00_JPRB,1.5426E+00_JPRB,1.7995E+00_JPRB,&
+&1.9927E+00_JPRB,2.0655E+00_JPRB,1.1063E+01_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&6.6575E-02_JPRB,4.3479E-01_JPRB,7.7702E-01_JPRB,1.0845E+00_JPRB,1.3608E+00_JPRB,1.6027E+00_JPRB,&
+&1.7979E+00_JPRB,1.9533E+00_JPRB,1.1027E+01_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&6.4692E-02_JPRB,4.5045E-01_JPRB,8.0204E-01_JPRB,1.1153E+00_JPRB,1.3951E+00_JPRB,1.6384E+00_JPRB,&
+&1.8309E+00_JPRB,1.9634E+00_JPRB,1.0460E+01_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&6.3712E-02_JPRB,4.6604E-01_JPRB,8.2695E-01_JPRB,1.1467E+00_JPRB,1.4311E+00_JPRB,1.6740E+00_JPRB,&
+&1.8639E+00_JPRB,1.9755E+00_JPRB,9.9574E+00_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&6.3793E-02_JPRB,4.8171E-01_JPRB,8.5176E-01_JPRB,1.1782E+00_JPRB,1.4648E+00_JPRB,1.7096E+00_JPRB,&
+&1.8945E+00_JPRB,1.9900E+00_JPRB,9.5122E+00_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&6.5076E-02_JPRB,4.9750E-01_JPRB,8.7656E-01_JPRB,1.2084E+00_JPRB,1.4992E+00_JPRB,1.7428E+00_JPRB,&
+&1.9259E+00_JPRB,2.0066E+00_JPRB,9.1382E+00_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&5.5145E-02_JPRB,4.1677E-01_JPRB,7.4511E-01_JPRB,1.0407E+00_JPRB,1.3075E+00_JPRB,1.5427E+00_JPRB,&
+&1.7389E+00_JPRB,1.9204E+00_JPRB,9.3514E+00_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&5.2833E-02_JPRB,4.3270E-01_JPRB,7.7006E-01_JPRB,1.0719E+00_JPRB,1.3419E+00_JPRB,1.5776E+00_JPRB,&
+&1.7672E+00_JPRB,1.9272E+00_JPRB,8.8440E+00_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&5.1113E-02_JPRB,4.4882E-01_JPRB,7.9562E-01_JPRB,1.1025E+00_JPRB,1.3760E+00_JPRB,1.6125E+00_JPRB,&
+&1.7982E+00_JPRB,1.9366E+00_JPRB,8.3935E+00_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&5.0028E-02_JPRB,4.6513E-01_JPRB,8.2062E-01_JPRB,1.1341E+00_JPRB,1.4094E+00_JPRB,1.6457E+00_JPRB,&
+&1.8296E+00_JPRB,1.9485E+00_JPRB,7.9906E+00_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&4.9686E-02_JPRB,4.8163E-01_JPRB,8.4610E-01_JPRB,1.1641E+00_JPRB,1.4433E+00_JPRB,1.6796E+00_JPRB,&
+&1.8613E+00_JPRB,1.9622E+00_JPRB,7.6298E+00_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&4.6588E-02_JPRB,3.9692E-01_JPRB,7.1203E-01_JPRB,9.9677E-01_JPRB,1.2538E+00_JPRB,1.4779E+00_JPRB,&
+&1.6775E+00_JPRB,1.8726E+00_JPRB,7.9787E+00_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&4.4258E-02_JPRB,4.1229E-01_JPRB,7.3599E-01_JPRB,1.0269E+00_JPRB,1.2877E+00_JPRB,1.5133E+00_JPRB,&
+&1.7010E+00_JPRB,1.8766E+00_JPRB,7.5234E+00_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&4.2368E-02_JPRB,4.2843E-01_JPRB,7.6079E-01_JPRB,1.0562E+00_JPRB,1.3204E+00_JPRB,1.5488E+00_JPRB,&
+&1.7282E+00_JPRB,1.8838E+00_JPRB,7.1193E+00_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&4.0943E-02_JPRB,4.4462E-01_JPRB,7.8470E-01_JPRB,1.0862E+00_JPRB,1.3538E+00_JPRB,1.5826E+00_JPRB,&
+&1.7585E+00_JPRB,1.8945E+00_JPRB,6.7587E+00_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&4.0040E-02_JPRB,4.6133E-01_JPRB,8.0984E-01_JPRB,1.1157E+00_JPRB,1.3860E+00_JPRB,1.6174E+00_JPRB,&
+&1.7900E+00_JPRB,1.9072E+00_JPRB,6.4359E+00_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&3.9526E-02_JPRB,3.7682E-01_JPRB,6.7689E-01_JPRB,9.4443E-01_JPRB,1.1824E+00_JPRB,1.3941E+00_JPRB,&
+&1.5967E+00_JPRB,1.7951E+00_JPRB,6.8177E+00_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&3.7399E-02_JPRB,3.9138E-01_JPRB,7.0025E-01_JPRB,9.7513E-01_JPRB,1.2184E+00_JPRB,1.4257E+00_JPRB,&
+&1.6138E+00_JPRB,1.7967E+00_JPRB,6.4101E+00_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&3.5621E-02_JPRB,4.0679E-01_JPRB,7.2414E-01_JPRB,1.0055E+00_JPRB,1.2524E+00_JPRB,1.4609E+00_JPRB,&
+&1.6366E+00_JPRB,1.8029E+00_JPRB,6.0506E+00_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&3.4188E-02_JPRB,4.2215E-01_JPRB,7.4791E-01_JPRB,1.0353E+00_JPRB,1.2879E+00_JPRB,1.4982E+00_JPRB,&
+&1.6647E+00_JPRB,1.8130E+00_JPRB,5.7295E+00_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&3.3152E-02_JPRB,4.3822E-01_JPRB,7.7182E-01_JPRB,1.0659E+00_JPRB,1.3217E+00_JPRB,1.5355E+00_JPRB,&
+&1.6945E+00_JPRB,1.8268E+00_JPRB,5.4423E+00_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&3.3649E-02_JPRB,3.5246E-01_JPRB,6.2833E-01_JPRB,8.7232E-01_JPRB,1.0890E+00_JPRB,1.2936E+00_JPRB,&
+&1.4963E+00_JPRB,1.6916E+00_JPRB,5.8468E+00_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&3.1717E-02_JPRB,3.6739E-01_JPRB,6.5289E-01_JPRB,9.0324E-01_JPRB,1.1228E+00_JPRB,1.3194E+00_JPRB,&
+&1.5082E+00_JPRB,1.6913E+00_JPRB,5.4809E+00_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&3.0089E-02_JPRB,3.8258E-01_JPRB,6.7739E-01_JPRB,9.3533E-01_JPRB,1.1590E+00_JPRB,1.3502E+00_JPRB,&
+&1.5266E+00_JPRB,1.6967E+00_JPRB,5.1581E+00_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&2.8750E-02_JPRB,3.9797E-01_JPRB,7.0274E-01_JPRB,9.6682E-01_JPRB,1.1958E+00_JPRB,1.3860E+00_JPRB,&
+&1.5502E+00_JPRB,1.7067E+00_JPRB,4.8739E+00_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&2.7719E-02_JPRB,4.1340E-01_JPRB,7.2752E-01_JPRB,9.9958E-01_JPRB,1.2327E+00_JPRB,1.4235E+00_JPRB,&
+&1.5795E+00_JPRB,1.7225E+00_JPRB,4.6250E+00_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&2.8686E-02_JPRB,3.2127E-01_JPRB,5.6887E-01_JPRB,7.8697E-01_JPRB,9.8824E-01_JPRB,1.1850E+00_JPRB,&
+&1.3805E+00_JPRB,1.5678E+00_JPRB,5.0771E+00_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&2.6938E-02_JPRB,3.3637E-01_JPRB,5.9372E-01_JPRB,8.1756E-01_JPRB,1.0158E+00_JPRB,1.2031E+00_JPRB,&
+&1.3885E+00_JPRB,1.5659E+00_JPRB,4.7449E+00_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&2.5461E-02_JPRB,3.5175E-01_JPRB,6.1823E-01_JPRB,8.4914E-01_JPRB,1.0491E+00_JPRB,1.2297E+00_JPRB,&
+&1.4035E+00_JPRB,1.5709E+00_JPRB,4.4560E+00_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&2.4234E-02_JPRB,3.6782E-01_JPRB,6.4422E-01_JPRB,8.8204E-01_JPRB,1.0858E+00_JPRB,1.2613E+00_JPRB,&
+&1.4250E+00_JPRB,1.5825E+00_JPRB,4.2060E+00_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&2.3263E-02_JPRB,3.8390E-01_JPRB,6.7021E-01_JPRB,9.1556E-01_JPRB,1.1251E+00_JPRB,1.2988E+00_JPRB,&
+&1.4532E+00_JPRB,1.6007E+00_JPRB,3.9900E+00_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&2.4476E-02_JPRB,2.8592E-01_JPRB,5.0420E-01_JPRB,6.9822E-01_JPRB,8.8452E-01_JPRB,1.0702E+00_JPRB,&
+&1.2531E+00_JPRB,1.4283E+00_JPRB,4.5096E+00_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&2.2902E-02_JPRB,3.0083E-01_JPRB,5.2768E-01_JPRB,7.2503E-01_JPRB,9.0657E-01_JPRB,1.0833E+00_JPRB,&
+&1.2584E+00_JPRB,1.4254E+00_JPRB,4.2037E+00_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&2.1570E-02_JPRB,3.1592E-01_JPRB,5.5240E-01_JPRB,7.5563E-01_JPRB,9.3505E-01_JPRB,1.1044E+00_JPRB,&
+&1.2718E+00_JPRB,1.4312E+00_JPRB,3.9432E+00_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&2.0460E-02_JPRB,3.3184E-01_JPRB,5.7760E-01_JPRB,7.8855E-01_JPRB,9.6959E-01_JPRB,1.1343E+00_JPRB,&
+&1.2935E+00_JPRB,1.4455E+00_JPRB,3.7209E+00_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&1.9571E-02_JPRB,3.4825E-01_JPRB,6.0453E-01_JPRB,8.2286E-01_JPRB,1.0085E+00_JPRB,1.1703E+00_JPRB,&
+&1.3222E+00_JPRB,1.4674E+00_JPRB,3.5292E+00_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&2.0914E-02_JPRB,2.4921E-01_JPRB,4.3781E-01_JPRB,6.1146E-01_JPRB,7.8268E-01_JPRB,9.5318E-01_JPRB,&
+&1.1204E+00_JPRB,1.2813E+00_JPRB,3.9890E+00_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&1.9500E-02_JPRB,2.6300E-01_JPRB,4.5963E-01_JPRB,6.3281E-01_JPRB,7.9816E-01_JPRB,9.6251E-01_JPRB,&
+&1.1241E+00_JPRB,1.2781E+00_JPRB,3.7129E+00_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&1.8305E-02_JPRB,2.7783E-01_JPRB,4.8302E-01_JPRB,6.5998E-01_JPRB,8.2260E-01_JPRB,9.8070E-01_JPRB,&
+&1.1371E+00_JPRB,1.2855E+00_JPRB,3.4817E+00_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&1.7310E-02_JPRB,2.9315E-01_JPRB,5.0848E-01_JPRB,6.9210E-01_JPRB,8.5443E-01_JPRB,1.0078E+00_JPRB,&
+&1.1591E+00_JPRB,1.3024E+00_JPRB,3.2848E+00_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&1.6510E-02_JPRB,3.0981E-01_JPRB,5.3550E-01_JPRB,7.2742E-01_JPRB,8.9223E-01_JPRB,1.0429E+00_JPRB,&
+&1.1888E+00_JPRB,1.3273E+00_JPRB,3.1158E+00_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&1.7793E-02_JPRB,2.1412E-01_JPRB,3.7675E-01_JPRB,5.3142E-01_JPRB,6.8591E-01_JPRB,8.3908E-01_JPRB,&
+&9.8911E-01_JPRB,1.1340E+00_JPRB,3.5109E+00_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&1.6546E-02_JPRB,2.2684E-01_JPRB,3.9518E-01_JPRB,5.4826E-01_JPRB,6.9777E-01_JPRB,8.4666E-01_JPRB,&
+&9.9261E-01_JPRB,1.1322E+00_JPRB,3.2650E+00_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&1.5496E-02_JPRB,2.4055E-01_JPRB,4.1757E-01_JPRB,5.7218E-01_JPRB,7.1874E-01_JPRB,8.6407E-01_JPRB,&
+&1.0067E+00_JPRB,1.1422E+00_JPRB,3.0604E+00_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&1.4625E-02_JPRB,2.5576E-01_JPRB,4.4224E-01_JPRB,6.0209E-01_JPRB,7.4840E-01_JPRB,8.9005E-01_JPRB,&
+&1.0298E+00_JPRB,1.1620E+00_JPRB,2.8873E+00_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&1.3927E-02_JPRB,2.7189E-01_JPRB,4.6913E-01_JPRB,6.3661E-01_JPRB,7.8430E-01_JPRB,9.2340E-01_JPRB,&
+&1.0602E+00_JPRB,1.1893E+00_JPRB,2.7412E+00_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&1.4634E-02_JPRB,1.8646E-01_JPRB,3.2761E-01_JPRB,4.6309E-01_JPRB,5.9849E-01_JPRB,7.3245E-01_JPRB,&
+&8.6367E-01_JPRB,9.9041E-01_JPRB,2.9771E+00_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&1.3624E-02_JPRB,1.9847E-01_JPRB,3.4526E-01_JPRB,4.8008E-01_JPRB,6.1254E-01_JPRB,7.4424E-01_JPRB,&
+&8.7321E-01_JPRB,9.9642E-01_JPRB,2.7768E+00_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&1.2781E-02_JPRB,2.1218E-01_JPRB,3.6739E-01_JPRB,5.0421E-01_JPRB,6.3507E-01_JPRB,7.6517E-01_JPRB,&
+&8.9263E-01_JPRB,1.0135E+00_JPRB,2.6101E+00_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&1.2094E-02_JPRB,2.2714E-01_JPRB,3.9240E-01_JPRB,5.3424E-01_JPRB,6.6566E-01_JPRB,7.9378E-01_JPRB,&
+&9.1970E-01_JPRB,1.0385E+00_JPRB,2.4710E+00_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&1.1565E-02_JPRB,2.4340E-01_JPRB,4.1903E-01_JPRB,5.6803E-01_JPRB,7.0132E-01_JPRB,8.2803E-01_JPRB,&
+&9.5252E-01_JPRB,1.0696E+00_JPRB,2.3570E+00_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&1.2066E-02_JPRB,1.6101E-01_JPRB,2.8340E-01_JPRB,4.0165E-01_JPRB,5.1974E-01_JPRB,6.3658E-01_JPRB,&
+&7.5093E-01_JPRB,8.6137E-01_JPRB,2.5621E+00_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&1.1251E-02_JPRB,1.7279E-01_JPRB,3.0073E-01_JPRB,4.1913E-01_JPRB,5.3610E-01_JPRB,6.5212E-01_JPRB,&
+&7.6558E-01_JPRB,8.7414E-01_JPRB,2.3949E+00_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&1.0577E-02_JPRB,1.8625E-01_JPRB,3.2218E-01_JPRB,4.4327E-01_JPRB,5.5974E-01_JPRB,6.7543E-01_JPRB,&
+&7.8860E-01_JPRB,8.9593E-01_JPRB,2.2565E+00_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&1.0040E-02_JPRB,2.0090E-01_JPRB,3.4668E-01_JPRB,4.7237E-01_JPRB,5.8984E-01_JPRB,7.0511E-01_JPRB,&
+&8.1812E-01_JPRB,9.2463E-01_JPRB,2.1449E+00_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&9.6497E-03_JPRB,2.1689E-01_JPRB,3.7279E-01_JPRB,5.0486E-01_JPRB,6.2430E-01_JPRB,7.3876E-01_JPRB,&
+&8.5101E-01_JPRB,9.5619E-01_JPRB,2.0655E+00_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&9.9585E-03_JPRB,1.3861E-01_JPRB,2.4453E-01_JPRB,3.4735E-01_JPRB,4.5003E-01_JPRB,5.5145E-01_JPRB,&
+&6.5075E-01_JPRB,7.4674E-01_JPRB,2.2898E+00_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&9.2992E-03_JPRB,1.5005E-01_JPRB,2.6138E-01_JPRB,3.6503E-01_JPRB,4.6776E-01_JPRB,5.6948E-01_JPRB,&
+&6.6893E-01_JPRB,7.6408E-01_JPRB,2.1410E+00_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&8.7626E-03_JPRB,1.6301E-01_JPRB,2.8187E-01_JPRB,3.8870E-01_JPRB,4.9199E-01_JPRB,5.9459E-01_JPRB,&
+&6.9480E-01_JPRB,7.8975E-01_JPRB,2.0213E+00_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&8.3523E-03_JPRB,1.7715E-01_JPRB,3.0539E-01_JPRB,4.1632E-01_JPRB,5.2068E-01_JPRB,6.2370E-01_JPRB,&
+&7.2425E-01_JPRB,8.1879E-01_JPRB,1.9340E+00_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&8.0561E-03_JPRB,1.9260E-01_JPRB,3.3012E-01_JPRB,4.4598E-01_JPRB,5.5239E-01_JPRB,6.5539E-01_JPRB,&
+&7.5612E-01_JPRB,8.5015E-01_JPRB,1.8746E+00_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB15_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb15_A2.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB15_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&1.4008E+00_JPRB,1.6014E+00_JPRB,2.0178E+00_JPRB,2.5290E+00_JPRB,3.0648E+00_JPRB,3.4883E+00_JPRB,&
+&3.8106E+00_JPRB,4.1078E+00_JPRB,1.3510E+01_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&1.8642E+00_JPRB,1.9682E+00_JPRB,2.2869E+00_JPRB,2.7055E+00_JPRB,3.2045E+00_JPRB,3.6259E+00_JPRB,&
+&3.9148E+00_JPRB,4.1490E+00_JPRB,1.3219E+01_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&2.4188E+00_JPRB,2.4150E+00_JPRB,2.6255E+00_JPRB,2.9382E+00_JPRB,3.3460E+00_JPRB,3.7645E+00_JPRB,&
+&4.0194E+00_JPRB,4.1942E+00_JPRB,1.3301E+01_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&3.0606E+00_JPRB,2.9381E+00_JPRB,3.0294E+00_JPRB,3.2272E+00_JPRB,3.5230E+00_JPRB,3.8956E+00_JPRB,&
+&4.1275E+00_JPRB,4.2397E+00_JPRB,1.3766E+01_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&3.7794E+00_JPRB,3.5290E+00_JPRB,3.4922E+00_JPRB,3.5653E+00_JPRB,3.7393E+00_JPRB,4.0279E+00_JPRB,&
+&4.2356E+00_JPRB,4.2849E+00_JPRB,1.4541E+01_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&1.0743E+00_JPRB,1.4254E+00_JPRB,1.9959E+00_JPRB,2.6242E+00_JPRB,3.1478E+00_JPRB,3.5640E+00_JPRB,&
+&3.9315E+00_JPRB,4.2780E+00_JPRB,1.1246E+01_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&1.4450E+00_JPRB,1.7077E+00_JPRB,2.1920E+00_JPRB,2.7731E+00_JPRB,3.3077E+00_JPRB,3.7068E+00_JPRB,&
+&4.0280E+00_JPRB,4.3205E+00_JPRB,1.0854E+01_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&1.8935E+00_JPRB,2.0578E+00_JPRB,2.4461E+00_JPRB,2.9377E+00_JPRB,3.4636E+00_JPRB,3.8524E+00_JPRB,&
+&4.1310E+00_JPRB,4.3656E+00_JPRB,1.0696E+01_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&2.4131E+00_JPRB,2.4697E+00_JPRB,2.7529E+00_JPRB,3.1439E+00_JPRB,3.6214E+00_JPRB,3.9997E+00_JPRB,&
+&4.2395E+00_JPRB,4.4100E+00_JPRB,1.0792E+01_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&3.0060E+00_JPRB,2.9455E+00_JPRB,3.1147E+00_JPRB,3.3967E+00_JPRB,3.7810E+00_JPRB,4.1480E+00_JPRB,&
+&4.3467E+00_JPRB,4.4539E+00_JPRB,1.1120E+01_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&7.6472E-01_JPRB,1.2830E+00_JPRB,2.0011E+00_JPRB,2.6221E+00_JPRB,3.1251E+00_JPRB,3.5689E+00_JPRB,&
+&3.9960E+00_JPRB,4.3904E+00_JPRB,9.5265E+00_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&1.0454E+00_JPRB,1.4850E+00_JPRB,2.1444E+00_JPRB,2.7873E+00_JPRB,3.2876E+00_JPRB,3.7049E+00_JPRB,&
+&4.0848E+00_JPRB,4.4319E+00_JPRB,9.1222E+00_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&1.3885E+00_JPRB,1.7405E+00_JPRB,2.3171E+00_JPRB,2.9536E+00_JPRB,3.4575E+00_JPRB,3.8474E+00_JPRB,&
+&4.1795E+00_JPRB,4.4739E+00_JPRB,8.8598E+00_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&1.7962E+00_JPRB,2.0514E+00_JPRB,2.5375E+00_JPRB,3.1222E+00_JPRB,3.6306E+00_JPRB,3.9962E+00_JPRB,&
+&4.2785E+00_JPRB,4.5165E+00_JPRB,8.7328E+00_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&2.2640E+00_JPRB,2.4140E+00_JPRB,2.8016E+00_JPRB,3.3001E+00_JPRB,3.8026E+00_JPRB,4.1450E+00_JPRB,&
+&4.3795E+00_JPRB,4.5585E+00_JPRB,8.7266E+00_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&5.2796E-01_JPRB,1.2120E+00_JPRB,1.9543E+00_JPRB,2.5382E+00_JPRB,3.0533E+00_JPRB,3.5474E+00_JPRB,&
+&4.0298E+00_JPRB,4.4716E+00_JPRB,8.2598E+00_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&7.3237E-01_JPRB,1.3475E+00_JPRB,2.1063E+00_JPRB,2.7052E+00_JPRB,3.2055E+00_JPRB,3.6631E+00_JPRB,&
+&4.1092E+00_JPRB,4.5092E+00_JPRB,7.9321E+00_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&9.9035E-01_JPRB,1.5277E+00_JPRB,2.2632E+00_JPRB,2.8812E+00_JPRB,3.3695E+00_JPRB,3.7914E+00_JPRB,&
+&4.1936E+00_JPRB,4.5489E+00_JPRB,7.6815E+00_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&1.3002E+00_JPRB,1.7521E+00_JPRB,2.4291E+00_JPRB,3.0611E+00_JPRB,3.5379E+00_JPRB,3.9283E+00_JPRB,&
+&4.2814E+00_JPRB,4.5884E+00_JPRB,7.5173E+00_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&1.6645E+00_JPRB,2.0223E+00_JPRB,2.6149E+00_JPRB,3.2452E+00_JPRB,3.7109E+00_JPRB,4.0687E+00_JPRB,&
+&4.3710E+00_JPRB,4.6264E+00_JPRB,7.4184E+00_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&3.6057E-01_JPRB,1.1636E+00_JPRB,1.8513E+00_JPRB,2.4342E+00_JPRB,2.9866E+00_JPRB,3.5323E+00_JPRB,&
+&4.0567E+00_JPRB,4.5370E+00_JPRB,7.4568E+00_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&5.0709E-01_JPRB,1.2813E+00_JPRB,2.0048E+00_JPRB,2.5857E+00_JPRB,3.1141E+00_JPRB,3.6303E+00_JPRB,&
+&4.1258E+00_JPRB,4.5699E+00_JPRB,7.1852E+00_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&6.9711E-01_JPRB,1.4088E+00_JPRB,2.1674E+00_JPRB,2.7491E+00_JPRB,3.2569E+00_JPRB,3.7377E+00_JPRB,&
+&4.1985E+00_JPRB,4.6043E+00_JPRB,6.9783E+00_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&9.3089E-01_JPRB,1.5674E+00_JPRB,2.3376E+00_JPRB,2.9224E+00_JPRB,3.4095E+00_JPRB,3.8525E+00_JPRB,&
+&4.2748E+00_JPRB,4.6380E+00_JPRB,6.8324E+00_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&1.2095E+00_JPRB,1.7631E+00_JPRB,2.5127E+00_JPRB,3.1011E+00_JPRB,3.5697E+00_JPRB,3.9735E+00_JPRB,&
+&4.3536E+00_JPRB,4.6710E+00_JPRB,6.7237E+00_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&2.4200E-01_JPRB,1.0838E+00_JPRB,1.7394E+00_JPRB,2.3387E+00_JPRB,2.9299E+00_JPRB,3.5073E+00_JPRB,&
+&4.0603E+00_JPRB,4.5751E+00_JPRB,6.9990E+00_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&3.4394E-01_JPRB,1.1999E+00_JPRB,1.8760E+00_JPRB,2.4663E+00_JPRB,3.0343E+00_JPRB,3.5897E+00_JPRB,&
+&4.1192E+00_JPRB,4.6007E+00_JPRB,6.7915E+00_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&4.8030E-01_JPRB,1.3232E+00_JPRB,2.0255E+00_JPRB,2.6081E+00_JPRB,3.1512E+00_JPRB,3.6810E+00_JPRB,&
+&4.1825E+00_JPRB,4.6279E+00_JPRB,6.6211E+00_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&6.5272E-01_JPRB,1.4558E+00_JPRB,2.1847E+00_JPRB,2.7631E+00_JPRB,3.2807E+00_JPRB,3.7792E+00_JPRB,&
+&4.2485E+00_JPRB,4.6560E+00_JPRB,6.4814E+00_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&8.6213E-01_JPRB,1.5990E+00_JPRB,2.3528E+00_JPRB,2.9249E+00_JPRB,3.4200E+00_JPRB,3.8827E+00_JPRB,&
+&4.3177E+00_JPRB,4.6844E+00_JPRB,6.3643E+00_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&1.6234E-01_JPRB,9.9163E-01_JPRB,1.6372E+00_JPRB,2.2588E+00_JPRB,2.8704E+00_JPRB,3.4657E+00_JPRB,&
+&4.0381E+00_JPRB,4.5791E+00_JPRB,6.7312E+00_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&2.3147E-01_JPRB,1.0981E+00_JPRB,1.7520E+00_JPRB,2.3595E+00_JPRB,2.9563E+00_JPRB,3.5352E+00_JPRB,&
+&4.0869E+00_JPRB,4.5966E+00_JPRB,6.5680E+00_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&3.2772E-01_JPRB,1.2156E+00_JPRB,1.8829E+00_JPRB,2.4770E+00_JPRB,3.0534E+00_JPRB,3.6116E+00_JPRB,&
+&4.1400E+00_JPRB,4.6166E+00_JPRB,6.4257E+00_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&4.5268E-01_JPRB,1.3423E+00_JPRB,2.0240E+00_JPRB,2.6084E+00_JPRB,3.1603E+00_JPRB,3.6950E+00_JPRB,&
+&4.1975E+00_JPRB,4.6391E+00_JPRB,6.2960E+00_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&6.0838E-01_JPRB,1.4784E+00_JPRB,2.1759E+00_JPRB,2.7497E+00_JPRB,3.2763E+00_JPRB,3.7840E+00_JPRB,&
+&4.2569E+00_JPRB,4.6620E+00_JPRB,6.1756E+00_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&1.1004E-01_JPRB,9.0528E-01_JPRB,1.5488E+00_JPRB,2.1828E+00_JPRB,2.8043E+00_JPRB,3.4087E+00_JPRB,&
+&3.9936E+00_JPRB,4.5522E+00_JPRB,6.5679E+00_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&1.5599E-01_JPRB,9.9632E-01_JPRB,1.6406E+00_JPRB,2.2628E+00_JPRB,2.8729E+00_JPRB,3.4645E+00_JPRB,&
+&4.0312E+00_JPRB,4.5616E+00_JPRB,6.4237E+00_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&2.2275E-01_JPRB,1.1002E+00_JPRB,1.7485E+00_JPRB,2.3565E+00_JPRB,2.9517E+00_JPRB,3.5270E+00_JPRB,&
+&4.0737E+00_JPRB,4.5749E+00_JPRB,6.2919E+00_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&3.1235E-01_JPRB,1.2144E+00_JPRB,1.8706E+00_JPRB,2.4635E+00_JPRB,3.0405E+00_JPRB,3.5959E+00_JPRB,&
+&4.1201E+00_JPRB,4.5903E+00_JPRB,6.1693E+00_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&4.2664E-01_JPRB,1.3386E+00_JPRB,2.0030E+00_JPRB,2.5834E+00_JPRB,3.1377E+00_JPRB,3.6706E+00_JPRB,&
+&4.1692E+00_JPRB,4.6062E+00_JPRB,6.0528E+00_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&7.5621E-02_JPRB,8.2912E-01_JPRB,1.4726E+00_JPRB,2.1058E+00_JPRB,2.7258E+00_JPRB,3.3321E+00_JPRB,&
+&3.9225E+00_JPRB,4.4919E+00_JPRB,6.3820E+00_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&1.0543E-01_JPRB,9.0364E-01_JPRB,1.5428E+00_JPRB,2.1689E+00_JPRB,2.7807E+00_JPRB,3.3755E+00_JPRB,&
+&3.9494E+00_JPRB,4.4934E+00_JPRB,6.2476E+00_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&1.5066E-01_JPRB,9.9073E-01_JPRB,1.6283E+00_JPRB,2.2439E+00_JPRB,2.8447E+00_JPRB,3.4264E+00_JPRB,&
+&3.9821E+00_JPRB,4.4994E+00_JPRB,6.1231E+00_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&2.1408E-01_JPRB,1.0896E+00_JPRB,1.7277E+00_JPRB,2.3302E+00_JPRB,2.9173E+00_JPRB,3.4831E+00_JPRB,&
+&4.0188E+00_JPRB,4.5079E+00_JPRB,6.0062E+00_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&2.9679E-01_JPRB,1.1980E+00_JPRB,1.8391E+00_JPRB,2.4267E+00_JPRB,2.9974E+00_JPRB,3.5447E+00_JPRB,&
+&4.0590E+00_JPRB,4.5182E+00_JPRB,5.8937E+00_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&5.4240E-02_JPRB,7.6886E-01_JPRB,1.4043E+00_JPRB,2.0272E+00_JPRB,2.6366E+00_JPRB,3.2336E+00_JPRB,&
+&3.8172E+00_JPRB,4.3834E+00_JPRB,6.1517E+00_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&7.3880E-02_JPRB,8.2766E-01_JPRB,1.4592E+00_JPRB,2.0774E+00_JPRB,2.6804E+00_JPRB,3.2668E+00_JPRB,&
+&3.8346E+00_JPRB,4.3761E+00_JPRB,6.0252E+00_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&1.0494E-01_JPRB,8.9945E-01_JPRB,1.5264E+00_JPRB,2.1379E+00_JPRB,2.7325E+00_JPRB,3.3074E+00_JPRB,&
+&3.8583E+00_JPRB,4.3744E+00_JPRB,5.9074E+00_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&1.5013E-01_JPRB,9.8203E-01_JPRB,1.6069E+00_JPRB,2.2084E+00_JPRB,2.7922E+00_JPRB,3.3540E+00_JPRB,&
+&3.8866E+00_JPRB,4.3763E+00_JPRB,5.7958E+00_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&2.1071E-01_JPRB,1.0751E+00_JPRB,1.6988E+00_JPRB,2.2877E+00_JPRB,2.8591E+00_JPRB,3.4064E+00_JPRB,&
+&3.9198E+00_JPRB,4.3819E+00_JPRB,5.6875E+00_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&4.4683E-02_JPRB,7.3372E-01_JPRB,1.3451E+00_JPRB,1.9417E+00_JPRB,2.5248E+00_JPRB,3.0962E+00_JPRB,&
+&3.6538E+00_JPRB,4.1928E+00_JPRB,5.8131E+00_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&6.0954E-02_JPRB,7.8585E-01_JPRB,1.3950E+00_JPRB,1.9873E+00_JPRB,2.5636E+00_JPRB,3.1235E+00_JPRB,&
+&3.6649E+00_JPRB,4.1802E+00_JPRB,5.6980E+00_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&8.6688E-02_JPRB,8.4834E-01_JPRB,1.4554E+00_JPRB,2.0422E+00_JPRB,2.6105E+00_JPRB,3.1582E+00_JPRB,&
+&3.6827E+00_JPRB,4.1732E+00_JPRB,5.5896E+00_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&1.2398E-01_JPRB,9.2090E-01_JPRB,1.5262E+00_JPRB,2.1063E+00_JPRB,2.6652E+00_JPRB,3.2007E+00_JPRB,&
+&3.7079E+00_JPRB,4.1732E+00_JPRB,5.4857E+00_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&1.7398E-01_JPRB,1.0025E+00_JPRB,1.6073E+00_JPRB,2.1784E+00_JPRB,2.7274E+00_JPRB,3.2503E+00_JPRB,&
+&3.7400E+00_JPRB,4.1797E+00_JPRB,5.3881E+00_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&3.6885E-02_JPRB,6.8826E-01_JPRB,1.2637E+00_JPRB,1.8240E+00_JPRB,2.3716E+00_JPRB,2.9070E+00_JPRB,&
+&3.4294E+00_JPRB,3.9342E+00_JPRB,5.4594E+00_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&5.0362E-02_JPRB,7.3520E-01_JPRB,1.3086E+00_JPRB,1.8646E+00_JPRB,2.4044E+00_JPRB,2.9285E+00_JPRB,&
+&3.4352E+00_JPRB,3.9171E+00_JPRB,5.3534E+00_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&7.1651E-02_JPRB,7.9173E-01_JPRB,1.3635E+00_JPRB,1.9144E+00_JPRB,2.4467E+00_JPRB,2.9595E+00_JPRB,&
+&3.4502E+00_JPRB,3.9090E+00_JPRB,5.2531E+00_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&1.0249E-01_JPRB,8.5728E-01_JPRB,1.4282E+00_JPRB,1.9738E+00_JPRB,2.4980E+00_JPRB,2.9998E+00_JPRB,&
+&3.4748E+00_JPRB,3.9108E+00_JPRB,5.1595E+00_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&1.4372E-01_JPRB,9.2980E-01_JPRB,1.5022E+00_JPRB,2.0418E+00_JPRB,2.5591E+00_JPRB,3.0515E+00_JPRB,&
+&3.5127E+00_JPRB,3.9276E+00_JPRB,5.0750E+00_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&3.0491E-02_JPRB,6.3441E-01_JPRB,1.1660E+00_JPRB,1.6828E+00_JPRB,2.1872E+00_JPRB,2.6805E+00_JPRB,&
+&3.1616E+00_JPRB,3.6254E+00_JPRB,5.1279E+00_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&4.1640E-02_JPRB,6.7602E-01_JPRB,1.2060E+00_JPRB,1.7186E+00_JPRB,2.2159E+00_JPRB,2.6988E+00_JPRB,&
+&3.1653E+00_JPRB,3.6082E+00_JPRB,5.0296E+00_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&5.9248E-02_JPRB,7.2677E-01_JPRB,1.2558E+00_JPRB,1.7643E+00_JPRB,2.2553E+00_JPRB,2.7282E+00_JPRB,&
+&3.1808E+00_JPRB,3.6035E+00_JPRB,4.9390E+00_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&8.4663E-02_JPRB,7.8595E-01_JPRB,1.3152E+00_JPRB,1.8213E+00_JPRB,2.3074E+00_JPRB,2.7724E+00_JPRB,&
+&3.2128E+00_JPRB,3.6169E+00_JPRB,4.8589E+00_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&1.1865E-01_JPRB,8.5205E-01_JPRB,1.3845E+00_JPRB,1.8890E+00_JPRB,2.3711E+00_JPRB,2.8293E+00_JPRB,&
+&3.2586E+00_JPRB,3.6454E+00_JPRB,4.7958E+00_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&8.3046E+00_JPRB,7.2666E+00_JPRB,6.2285E+00_JPRB,5.1904E+00_JPRB,4.7329E+00_JPRB,5.2261E+00_JPRB,&
+&5.7808E+00_JPRB,6.3145E+00_JPRB,1.5403E+01_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&1.0500E+01_JPRB,9.1879E+00_JPRB,7.8753E+00_JPRB,6.5628E+00_JPRB,5.3429E+00_JPRB,5.4501E+00_JPRB,&
+&5.9313E+00_JPRB,6.4007E+00_JPRB,1.7452E+01_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&1.2866E+01_JPRB,1.1258E+01_JPRB,9.6496E+00_JPRB,8.0413E+00_JPRB,6.4330E+00_JPRB,5.7014E+00_JPRB,&
+&6.0980E+00_JPRB,6.4718E+00_JPRB,1.9513E+01_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&1.5392E+01_JPRB,1.3468E+01_JPRB,1.1544E+01_JPRB,9.6199E+00_JPRB,7.6959E+00_JPRB,6.1009E+00_JPRB,&
+&6.2722E+00_JPRB,6.5575E+00_JPRB,2.1715E+01_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&1.8056E+01_JPRB,1.5799E+01_JPRB,1.3542E+01_JPRB,1.1285E+01_JPRB,9.0279E+00_JPRB,6.8103E+00_JPRB,&
+&6.4441E+00_JPRB,6.6397E+00_JPRB,2.3850E+01_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&6.4947E+00_JPRB,5.6829E+00_JPRB,4.8711E+00_JPRB,4.3890E+00_JPRB,5.0074E+00_JPRB,5.7366E+00_JPRB,&
+&6.4315E+00_JPRB,7.0725E+00_JPRB,1.2054E+01_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&8.3011E+00_JPRB,7.2634E+00_JPRB,6.2258E+00_JPRB,5.2050E+00_JPRB,5.2909E+00_JPRB,5.9522E+00_JPRB,&
+&6.5881E+00_JPRB,7.1588E+00_JPRB,1.2666E+01_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&1.0256E+01_JPRB,8.9740E+00_JPRB,7.6920E+00_JPRB,6.4100E+00_JPRB,5.6644E+00_JPRB,6.1894E+00_JPRB,&
+&6.7625E+00_JPRB,7.2404E+00_JPRB,1.3682E+01_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&1.2397E+01_JPRB,1.0847E+01_JPRB,9.2971E+00_JPRB,7.7479E+00_JPRB,6.3118E+00_JPRB,6.4388E+00_JPRB,&
+&6.9414E+00_JPRB,7.3378E+00_JPRB,1.5028E+01_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&1.4660E+01_JPRB,1.2828E+01_JPRB,1.0995E+01_JPRB,9.1626E+00_JPRB,7.3301E+00_JPRB,6.6905E+00_JPRB,&
+&7.1124E+00_JPRB,7.4264E+00_JPRB,1.6436E+01_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&4.7461E+00_JPRB,4.1529E+00_JPRB,3.7000E+00_JPRB,4.4615E+00_JPRB,5.3639E+00_JPRB,6.2356E+00_JPRB,&
+&7.0823E+00_JPRB,7.8222E+00_JPRB,1.0768E+01_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&6.1674E+00_JPRB,5.3965E+00_JPRB,4.6255E+00_JPRB,4.7868E+00_JPRB,5.6404E+00_JPRB,6.4644E+00_JPRB,&
+&7.2578E+00_JPRB,7.9155E+00_JPRB,1.1012E+01_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&7.7651E+00_JPRB,6.7945E+00_JPRB,5.8238E+00_JPRB,5.2211E+00_JPRB,5.9299E+00_JPRB,6.7104E+00_JPRB,&
+&7.4369E+00_JPRB,8.0208E+00_JPRB,1.1349E+01_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&9.5128E+00_JPRB,8.3237E+00_JPRB,7.1346E+00_JPRB,5.9977E+00_JPRB,6.2294E+00_JPRB,6.9597E+00_JPRB,&
+&7.6063E+00_JPRB,8.1225E+00_JPRB,1.1679E+01_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&1.1390E+01_JPRB,9.9664E+00_JPRB,8.5426E+00_JPRB,7.1189E+00_JPRB,6.5507E+00_JPRB,7.2016E+00_JPRB,&
+&7.7732E+00_JPRB,8.2118E+00_JPRB,1.2040E+01_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&3.3503E+00_JPRB,2.9315E+00_JPRB,3.5683E+00_JPRB,4.6667E+00_JPRB,5.7273E+00_JPRB,6.7580E+00_JPRB,&
+&7.7198E+00_JPRB,8.5710E+00_JPRB,1.0440E+01_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&4.4561E+00_JPRB,3.8991E+00_JPRB,3.9300E+00_JPRB,4.9622E+00_JPRB,5.9939E+00_JPRB,6.9871E+00_JPRB,&
+&7.8925E+00_JPRB,8.6774E+00_JPRB,1.0521E+01_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&5.7189E+00_JPRB,5.0041E+00_JPRB,4.4573E+00_JPRB,5.2834E+00_JPRB,6.2798E+00_JPRB,7.2167E+00_JPRB,&
+&8.0686E+00_JPRB,8.7808E+00_JPRB,1.0645E+01_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&7.1243E+00_JPRB,6.2338E+00_JPRB,5.3456E+00_JPRB,5.6334E+00_JPRB,6.5793E+00_JPRB,7.4542E+00_JPRB,&
+&8.2512E+00_JPRB,8.8783E+00_JPRB,1.0735E+01_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&8.6595E+00_JPRB,7.5770E+00_JPRB,6.4946E+00_JPRB,6.0192E+00_JPRB,6.8955E+00_JPRB,7.7038E+00_JPRB,&
+&8.4443E+00_JPRB,8.9879E+00_JPRB,1.0819E+01_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&2.3228E+00_JPRB,2.3763E+00_JPRB,3.6372E+00_JPRB,4.8666E+00_JPRB,6.0758E+00_JPRB,7.2202E+00_JPRB,&
+&8.2887E+00_JPRB,9.2790E+00_JPRB,1.1044E+01_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&3.1750E+00_JPRB,2.8335E+00_JPRB,3.9429E+00_JPRB,5.1625E+00_JPRB,6.3325E+00_JPRB,7.4495E+00_JPRB,&
+&8.4649E+00_JPRB,9.3795E+00_JPRB,1.0992E+01_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&4.1502E+00_JPRB,3.6314E+00_JPRB,4.2777E+00_JPRB,5.4822E+00_JPRB,6.6129E+00_JPRB,7.6864E+00_JPRB,&
+&8.6584E+00_JPRB,9.4768E+00_JPRB,1.0934E+01_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&5.2710E+00_JPRB,4.6121E+00_JPRB,4.6433E+00_JPRB,5.8225E+00_JPRB,6.9099E+00_JPRB,7.9434E+00_JPRB,&
+&8.8623E+00_JPRB,9.5919E+00_JPRB,1.0860E+01_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&6.4981E+00_JPRB,5.6859E+00_JPRB,5.1116E+00_JPRB,6.1710E+00_JPRB,7.2254E+00_JPRB,8.2046E+00_JPRB,&
+&9.0650E+00_JPRB,9.7138E+00_JPRB,1.0789E+01_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&1.5637E+00_JPRB,2.2731E+00_JPRB,3.6873E+00_JPRB,5.0614E+00_JPRB,6.3700E+00_JPRB,7.6047E+00_JPRB,&
+&8.7790E+00_JPRB,9.8692E+00_JPRB,1.1665E+01_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&2.2000E+00_JPRB,2.5584E+00_JPRB,3.9755E+00_JPRB,5.3314E+00_JPRB,6.6268E+00_JPRB,7.8407E+00_JPRB,&
+&8.9633E+00_JPRB,9.9641E+00_JPRB,1.1590E+01_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&2.9496E+00_JPRB,2.8996E+00_JPRB,4.2934E+00_JPRB,5.6265E+00_JPRB,6.9043E+00_JPRB,8.0863E+00_JPRB,&
+&9.1639E+00_JPRB,1.0078E+01_JPRB,1.1504E+01_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&3.8153E+00_JPRB,3.4040E+00_JPRB,4.6361E+00_JPRB,5.9468E+00_JPRB,7.1994E+00_JPRB,8.3443E+00_JPRB,&
+&9.3743E+00_JPRB,1.0202E+01_JPRB,1.1405E+01_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&4.7923E+00_JPRB,4.1932E+00_JPRB,5.0029E+00_JPRB,6.2942E+00_JPRB,7.4973E+00_JPRB,8.6152E+00_JPRB,&
+&9.5722E+00_JPRB,1.0324E+01_JPRB,1.1282E+01_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&1.0319E+00_JPRB,2.2030E+00_JPRB,3.7189E+00_JPRB,5.1722E+00_JPRB,6.5639E+00_JPRB,7.8914E+00_JPRB,&
+&9.1498E+00_JPRB,1.0323E+01_JPRB,1.2175E+01_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&1.5011E+00_JPRB,2.4558E+00_JPRB,3.9785E+00_JPRB,5.4357E+00_JPRB,6.8145E+00_JPRB,8.1167E+00_JPRB,&
+&9.3258E+00_JPRB,1.0416E+01_JPRB,1.2083E+01_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&2.0652E+00_JPRB,2.7433E+00_JPRB,4.2735E+00_JPRB,5.7267E+00_JPRB,7.0874E+00_JPRB,8.3608E+00_JPRB,&
+&9.5223E+00_JPRB,1.0531E+01_JPRB,1.1978E+01_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&2.7290E+00_JPRB,3.0650E+00_JPRB,4.6079E+00_JPRB,6.0349E+00_JPRB,7.3838E+00_JPRB,8.6181E+00_JPRB,&
+&9.7231E+00_JPRB,1.0649E+01_JPRB,1.1858E+01_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&3.4888E+00_JPRB,3.4187E+00_JPRB,4.9649E+00_JPRB,6.3686E+00_JPRB,7.6906E+00_JPRB,8.8849E+00_JPRB,&
+&9.9240E+00_JPRB,1.0751E+01_JPRB,1.1715E+01_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&6.7247E-01_JPRB,2.1299E+00_JPRB,3.7166E+00_JPRB,5.2113E+00_JPRB,6.6383E+00_JPRB,8.0164E+00_JPRB,&
+&9.3365E+00_JPRB,1.0603E+01_JPRB,1.2480E+01_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&1.0116E+00_JPRB,2.3605E+00_JPRB,3.9609E+00_JPRB,5.4626E+00_JPRB,6.8806E+00_JPRB,8.2311E+00_JPRB,&
+&9.5015E+00_JPRB,1.0678E+01_JPRB,1.2368E+01_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&1.4308E+00_JPRB,2.6245E+00_JPRB,4.2324E+00_JPRB,5.7459E+00_JPRB,7.1525E+00_JPRB,8.4713E+00_JPRB,&
+&9.6847E+00_JPRB,1.0770E+01_JPRB,1.2245E+01_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&1.9350E+00_JPRB,2.9206E+00_JPRB,4.5353E+00_JPRB,6.0493E+00_JPRB,7.4438E+00_JPRB,8.7255E+00_JPRB,&
+&9.8811E+00_JPRB,1.0861E+01_JPRB,1.2099E+01_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&2.5213E+00_JPRB,3.2436E+00_JPRB,4.8666E+00_JPRB,6.3763E+00_JPRB,7.7488E+00_JPRB,8.9884E+00_JPRB,&
+&1.0076E+01_JPRB,1.0954E+01_JPRB,1.1942E+01_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&4.3208E-01_JPRB,2.0475E+00_JPRB,3.6377E+00_JPRB,5.1514E+00_JPRB,6.6073E+00_JPRB,8.0088E+00_JPRB,&
+&9.3664E+00_JPRB,1.0689E+01_JPRB,1.2722E+01_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&6.7092E-01_JPRB,2.2446E+00_JPRB,3.8634E+00_JPRB,5.3834E+00_JPRB,6.8242E+00_JPRB,8.1962E+00_JPRB,&
+&9.5019E+00_JPRB,1.0731E+01_JPRB,1.2602E+01_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&9.7959E-01_JPRB,2.4790E+00_JPRB,4.1220E+00_JPRB,5.6464E+00_JPRB,7.0720E+00_JPRB,8.4107E+00_JPRB,&
+&9.6598E+00_JPRB,1.0791E+01_JPRB,1.2470E+01_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&1.3555E+00_JPRB,2.7516E+00_JPRB,4.4105E+00_JPRB,5.9355E+00_JPRB,7.3438E+00_JPRB,8.6425E+00_JPRB,&
+&9.8283E+00_JPRB,1.0860E+01_JPRB,1.2324E+01_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&1.8036E+00_JPRB,3.0512E+00_JPRB,4.7212E+00_JPRB,6.2493E+00_JPRB,7.6308E+00_JPRB,8.8891E+00_JPRB,&
+&1.0011E+01_JPRB,1.0943E+01_JPRB,1.2174E+01_JPRB/)
+KAO( :, 1,10,10) = (/&
+&2.8562E-01_JPRB,1.9513E+00_JPRB,3.5205E+00_JPRB,5.0276E+00_JPRB,6.5019E+00_JPRB,7.9388E+00_JPRB,&
+&9.3417E+00_JPRB,1.0714E+01_JPRB,1.3024E+01_JPRB/)
+KAO( :, 2,10,10) = (/&
+&4.5369E-01_JPRB,2.1274E+00_JPRB,3.7193E+00_JPRB,5.2300E+00_JPRB,6.6874E+00_JPRB,8.0937E+00_JPRB,&
+&9.4530E+00_JPRB,1.0753E+01_JPRB,1.2922E+01_JPRB/)
+KAO( :, 3,10,10) = (/&
+&6.8195E-01_JPRB,2.3352E+00_JPRB,3.9538E+00_JPRB,5.4609E+00_JPRB,6.8984E+00_JPRB,8.2697E+00_JPRB,&
+&9.5779E+00_JPRB,1.0802E+01_JPRB,1.2803E+01_JPRB/)
+KAO( :, 4,10,10) = (/&
+&9.6434E-01_JPRB,2.5767E+00_JPRB,4.2212E+00_JPRB,5.7204E+00_JPRB,7.1311E+00_JPRB,8.4647E+00_JPRB,&
+&9.7207E+00_JPRB,1.0863E+01_JPRB,1.2673E+01_JPRB/)
+KAO( :, 5,10,10) = (/&
+&1.3075E+00_JPRB,2.8520E+00_JPRB,4.5133E+00_JPRB,6.0099E+00_JPRB,7.3901E+00_JPRB,8.6775E+00_JPRB,&
+&9.8779E+00_JPRB,1.0938E+01_JPRB,1.2543E+01_JPRB/)
+KAO( :, 1,11,10) = (/&
+&2.3625E-01_JPRB,1.9181E+00_JPRB,3.5155E+00_JPRB,5.0744E+00_JPRB,6.6008E+00_JPRB,8.0955E+00_JPRB,&
+&9.5644E+00_JPRB,1.1013E+01_JPRB,1.3397E+01_JPRB/)
+KAO( :, 2,11,10) = (/&
+&3.7530E-01_JPRB,2.0748E+00_JPRB,3.6829E+00_JPRB,5.2358E+00_JPRB,6.7464E+00_JPRB,8.2221E+00_JPRB,&
+&9.6585E+00_JPRB,1.1047E+01_JPRB,1.3278E+01_JPRB/)
+KAO( :, 3,11,10) = (/&
+&5.6319E-01_JPRB,2.2660E+00_JPRB,3.8799E+00_JPRB,5.4224E+00_JPRB,6.9139E+00_JPRB,8.3641E+00_JPRB,&
+&9.7629E+00_JPRB,1.1090E+01_JPRB,1.3144E+01_JPRB/)
+KAO( :, 4,11,10) = (/&
+&7.9630E-01_JPRB,2.4928E+00_JPRB,4.1097E+00_JPRB,5.6369E+00_JPRB,7.1043E+00_JPRB,8.5217E+00_JPRB,&
+&9.8785E+00_JPRB,1.1143E+01_JPRB,1.3008E+01_JPRB/)
+KAO( :, 5,11,10) = (/&
+&1.0789E+00_JPRB,2.7503E+00_JPRB,4.3718E+00_JPRB,5.8827E+00_JPRB,7.3180E+00_JPRB,8.6936E+00_JPRB,&
+&9.9992E+00_JPRB,1.1196E+01_JPRB,1.2862E+01_JPRB/)
+KAO( :, 1,12,10) = (/&
+&1.9532E-01_JPRB,1.9250E+00_JPRB,3.5848E+00_JPRB,5.1929E+00_JPRB,6.7611E+00_JPRB,8.3016E+00_JPRB,&
+&9.8096E+00_JPRB,1.1276E+01_JPRB,1.3592E+01_JPRB/)
+KAO( :, 2,12,10) = (/&
+&3.1059E-01_JPRB,2.0481E+00_JPRB,3.7225E+00_JPRB,5.3350E+00_JPRB,6.8984E+00_JPRB,8.4223E+00_JPRB,&
+&9.8976E+00_JPRB,1.1304E+01_JPRB,1.3454E+01_JPRB/)
+KAO( :, 3,12,10) = (/&
+&4.6509E-01_JPRB,2.2010E+00_JPRB,3.8811E+00_JPRB,5.4933E+00_JPRB,7.0507E+00_JPRB,8.5551E+00_JPRB,&
+&9.9951E+00_JPRB,1.1342E+01_JPRB,1.3311E+01_JPRB/)
+KAO( :, 4,12,10) = (/&
+&6.5689E-01_JPRB,2.3881E+00_JPRB,4.0636E+00_JPRB,5.6724E+00_JPRB,7.2165E+00_JPRB,8.6961E+00_JPRB,&
+&1.0098E+01_JPRB,1.1383E+01_JPRB,1.3165E+01_JPRB/)
+KAO( :, 5,12,10) = (/&
+&8.9052E-01_JPRB,2.6097E+00_JPRB,4.2735E+00_JPRB,5.8670E+00_JPRB,7.3919E+00_JPRB,8.8391E+00_JPRB,&
+&1.0193E+01_JPRB,1.1412E+01_JPRB,1.2995E+01_JPRB/)
+KAO( :, 1,13,10) = (/&
+&1.6125E-01_JPRB,1.9342E+00_JPRB,3.5999E+00_JPRB,5.2092E+00_JPRB,6.7843E+00_JPRB,8.3295E+00_JPRB,&
+&9.8358E+00_JPRB,1.1294E+01_JPRB,1.3567E+01_JPRB/)
+KAO( :, 2,13,10) = (/&
+&2.5632E-01_JPRB,2.0509E+00_JPRB,3.7362E+00_JPRB,5.3503E+00_JPRB,6.9167E+00_JPRB,8.4371E+00_JPRB,&
+&9.9071E+00_JPRB,1.1309E+01_JPRB,1.3421E+01_JPRB/)
+KAO( :, 3,13,10) = (/&
+&3.8326E-01_JPRB,2.1844E+00_JPRB,3.8935E+00_JPRB,5.5111E+00_JPRB,7.0668E+00_JPRB,8.5618E+00_JPRB,&
+&9.9929E+00_JPRB,1.1334E+01_JPRB,1.3271E+01_JPRB/)
+KAO( :, 4,13,10) = (/&
+&5.4156E-01_JPRB,2.3369E+00_JPRB,4.0660E+00_JPRB,5.6864E+00_JPRB,7.2274E+00_JPRB,8.6942E+00_JPRB,&
+&1.0083E+01_JPRB,1.1355E+01_JPRB,1.3103E+01_JPRB/)
+KAO( :, 5,13,10) = (/&
+&7.3401E-01_JPRB,2.5129E+00_JPRB,4.2495E+00_JPRB,5.8694E+00_JPRB,7.3940E+00_JPRB,8.8302E+00_JPRB,&
+&1.0173E+01_JPRB,1.1375E+01_JPRB,1.2923E+01_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&1.2249E+01_JPRB,1.0718E+01_JPRB,9.1868E+00_JPRB,7.6557E+00_JPRB,6.1245E+00_JPRB,5.7627E+00_JPRB,&
+&6.3444E+00_JPRB,6.9424E+00_JPRB,1.9044E+01_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&1.5357E+01_JPRB,1.3437E+01_JPRB,1.1518E+01_JPRB,9.5981E+00_JPRB,7.6785E+00_JPRB,6.1637E+00_JPRB,&
+&6.5230E+00_JPRB,7.0281E+00_JPRB,2.1345E+01_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&1.8886E+01_JPRB,1.6526E+01_JPRB,1.4165E+01_JPRB,1.1804E+01_JPRB,9.4432E+00_JPRB,7.1211E+00_JPRB,&
+&6.7255E+00_JPRB,7.1348E+00_JPRB,2.3750E+01_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&2.2784E+01_JPRB,1.9936E+01_JPRB,1.7088E+01_JPRB,1.4240E+01_JPRB,1.1392E+01_JPRB,8.5439E+00_JPRB,&
+&6.9461E+00_JPRB,7.2435E+00_JPRB,2.6291E+01_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&2.6987E+01_JPRB,2.3613E+01_JPRB,2.0240E+01_JPRB,1.6867E+01_JPRB,1.3493E+01_JPRB,1.0120E+01_JPRB,&
+&7.2891E+00_JPRB,7.3404E+00_JPRB,2.9031E+01_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&9.7136E+00_JPRB,8.4994E+00_JPRB,7.2852E+00_JPRB,6.0710E+00_JPRB,5.6278E+00_JPRB,6.3983E+00_JPRB,&
+&7.1952E+00_JPRB,7.9135E+00_JPRB,1.3515E+01_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&1.2396E+01_JPRB,1.0847E+01_JPRB,9.2971E+00_JPRB,7.7476E+00_JPRB,6.3714E+00_JPRB,6.6654E+00_JPRB,&
+&7.3884E+00_JPRB,8.0262E+00_JPRB,1.4990E+01_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&1.5432E+01_JPRB,1.3503E+01_JPRB,1.1574E+01_JPRB,9.6447E+00_JPRB,7.7158E+00_JPRB,6.9761E+00_JPRB,&
+&7.5844E+00_JPRB,8.1568E+00_JPRB,1.6717E+01_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&1.8816E+01_JPRB,1.6464E+01_JPRB,1.4112E+01_JPRB,1.1760E+01_JPRB,9.4077E+00_JPRB,7.5034E+00_JPRB,&
+&7.7791E+00_JPRB,8.2755E+00_JPRB,1.8558E+01_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&2.2537E+01_JPRB,1.9720E+01_JPRB,1.6903E+01_JPRB,1.4086E+01_JPRB,1.1268E+01_JPRB,8.5223E+00_JPRB,&
+&7.9761E+00_JPRB,8.3719E+00_JPRB,2.0482E+01_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&7.2299E+00_JPRB,6.3262E+00_JPRB,5.4224E+00_JPRB,5.1159E+00_JPRB,6.1132E+00_JPRB,7.1369E+00_JPRB,&
+&8.1089E+00_JPRB,8.9636E+00_JPRB,1.1955E+01_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&9.3918E+00_JPRB,8.2178E+00_JPRB,7.0438E+00_JPRB,5.9613E+00_JPRB,6.4360E+00_JPRB,7.3941E+00_JPRB,&
+&8.3154E+00_JPRB,9.1046E+00_JPRB,1.2271E+01_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&1.1905E+01_JPRB,1.0417E+01_JPRB,8.9285E+00_JPRB,7.4405E+00_JPRB,6.8201E+00_JPRB,7.6628E+00_JPRB,&
+&8.5181E+00_JPRB,9.2389E+00_JPRB,1.2625E+01_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&1.4757E+01_JPRB,1.2912E+01_JPRB,1.1068E+01_JPRB,9.2230E+00_JPRB,7.6302E+00_JPRB,7.9463E+00_JPRB,&
+&8.7305E+00_JPRB,9.3535E+00_JPRB,1.3024E+01_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&1.7893E+01_JPRB,1.5656E+01_JPRB,1.3420E+01_JPRB,1.1183E+01_JPRB,8.9555E+00_JPRB,8.2708E+00_JPRB,&
+&8.9555E+00_JPRB,9.4787E+00_JPRB,1.3397E+01_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&5.1773E+00_JPRB,4.5301E+00_JPRB,4.2164E+00_JPRB,5.4189E+00_JPRB,6.6862E+00_JPRB,7.9110E+00_JPRB,&
+&9.0375E+00_JPRB,1.0082E+01_JPRB,1.2163E+01_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&6.8907E+00_JPRB,6.0294E+00_JPRB,5.1859E+00_JPRB,5.7789E+00_JPRB,6.9881E+00_JPRB,8.1777E+00_JPRB,&
+&9.2600E+00_JPRB,1.0217E+01_JPRB,1.2164E+01_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&8.9163E+00_JPRB,7.8018E+00_JPRB,6.6872E+00_JPRB,6.2510E+00_JPRB,7.3281E+00_JPRB,8.4646E+00_JPRB,&
+&9.5034E+00_JPRB,1.0348E+01_JPRB,1.2247E+01_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&1.1229E+01_JPRB,9.8256E+00_JPRB,8.4220E+00_JPRB,7.1712E+00_JPRB,7.6975E+00_JPRB,8.7686E+00_JPRB,&
+&9.7453E+00_JPRB,1.0493E+01_JPRB,1.2364E+01_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&1.3839E+01_JPRB,1.2109E+01_JPRB,1.0379E+01_JPRB,8.6495E+00_JPRB,8.1169E+00_JPRB,9.0750E+00_JPRB,&
+&9.9810E+00_JPRB,1.0635E+01_JPRB,1.2462E+01_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&3.6436E+00_JPRB,3.1897E+00_JPRB,4.3289E+00_JPRB,5.8481E+00_JPRB,7.3102E+00_JPRB,8.6929E+00_JPRB,&
+&9.9995E+00_JPRB,1.1197E+01_JPRB,1.3283E+01_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&4.9664E+00_JPRB,4.3456E+00_JPRB,4.6924E+00_JPRB,6.1837E+00_JPRB,7.6374E+00_JPRB,8.9934E+00_JPRB,&
+&1.0249E+01_JPRB,1.1339E+01_JPRB,1.3236E+01_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&6.5513E+00_JPRB,5.7324E+00_JPRB,5.2481E+00_JPRB,6.5577E+00_JPRB,7.9818E+00_JPRB,9.3087E+00_JPRB,&
+&1.0503E+01_JPRB,1.1501E+01_JPRB,1.3169E+01_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&8.4164E+00_JPRB,7.3644E+00_JPRB,6.3448E+00_JPRB,6.9578E+00_JPRB,8.3373E+00_JPRB,9.6258E+00_JPRB,&
+&1.0752E+01_JPRB,1.1656E+01_JPRB,1.3106E+01_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&1.0527E+01_JPRB,9.2115E+00_JPRB,7.8956E+00_JPRB,7.4639E+00_JPRB,8.6974E+00_JPRB,9.9429E+00_JPRB,&
+&1.0997E+01_JPRB,1.1797E+01_JPRB,1.3036E+01_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&2.4932E+00_JPRB,2.7486E+00_JPRB,4.5320E+00_JPRB,6.2546E+00_JPRB,7.8988E+00_JPRB,9.4652E+00_JPRB,&
+&1.0939E+01_JPRB,1.2316E+01_JPRB,1.4467E+01_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&3.4773E+00_JPRB,3.1985E+00_JPRB,4.8742E+00_JPRB,6.5999E+00_JPRB,8.2329E+00_JPRB,9.7664E+00_JPRB,&
+&1.1186E+01_JPRB,1.2469E+01_JPRB,1.4417E+01_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&4.6971E+00_JPRB,4.1115E+00_JPRB,5.2651E+00_JPRB,6.9733E+00_JPRB,8.5867E+00_JPRB,1.0084E+01_JPRB,&
+&1.1436E+01_JPRB,1.2624E+01_JPRB,1.4351E+01_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&6.1495E+00_JPRB,5.3808E+00_JPRB,5.6975E+00_JPRB,7.3726E+00_JPRB,8.9642E+00_JPRB,1.0415E+01_JPRB,&
+&1.1698E+01_JPRB,1.2772E+01_JPRB,1.4267E+01_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&7.8284E+00_JPRB,6.8498E+00_JPRB,6.3225E+00_JPRB,7.7926E+00_JPRB,9.3619E+00_JPRB,1.0759E+01_JPRB,&
+&1.1977E+01_JPRB,1.2918E+01_JPRB,1.4175E+01_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&1.6743E+00_JPRB,2.7740E+00_JPRB,4.7631E+00_JPRB,6.6392E+00_JPRB,8.4234E+00_JPRB,1.0141E+01_JPRB,&
+&1.1784E+01_JPRB,1.3373E+01_JPRB,1.5635E+01_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&2.3935E+00_JPRB,3.0856E+00_JPRB,5.0953E+00_JPRB,6.9911E+00_JPRB,8.7690E+00_JPRB,1.0447E+01_JPRB,&
+&1.2034E+01_JPRB,1.3500E+01_JPRB,1.5579E+01_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&3.3116E+00_JPRB,3.4457E+00_JPRB,5.4635E+00_JPRB,7.3709E+00_JPRB,9.1406E+00_JPRB,1.0784E+01_JPRB,&
+&1.2298E+01_JPRB,1.3644E+01_JPRB,1.5506E+01_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&4.4248E+00_JPRB,4.0263E+00_JPRB,5.8643E+00_JPRB,7.7821E+00_JPRB,9.5339E+00_JPRB,1.1137E+01_JPRB,&
+&1.2583E+01_JPRB,1.3796E+01_JPRB,1.5411E+01_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&5.7412E+00_JPRB,5.0279E+00_JPRB,6.2969E+00_JPRB,8.2091E+00_JPRB,9.9459E+00_JPRB,1.1502E+01_JPRB,&
+&1.2876E+01_JPRB,1.3971E+01_JPRB,1.5296E+01_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&1.1086E+00_JPRB,2.8048E+00_JPRB,4.9324E+00_JPRB,6.9454E+00_JPRB,8.8812E+00_JPRB,1.0739E+01_JPRB,&
+&1.2537E+01_JPRB,1.4271E+01_JPRB,1.6686E+01_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&1.6296E+00_JPRB,3.0851E+00_JPRB,5.2594E+00_JPRB,7.2944E+00_JPRB,9.2229E+00_JPRB,1.1045E+01_JPRB,&
+&1.2773E+01_JPRB,1.4378E+01_JPRB,1.6616E+01_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&2.3055E+00_JPRB,3.4160E+00_JPRB,5.6286E+00_JPRB,7.6727E+00_JPRB,9.5919E+00_JPRB,1.1383E+01_JPRB,&
+&1.3041E+01_JPRB,1.4518E+01_JPRB,1.6520E+01_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&3.1507E+00_JPRB,3.7895E+00_JPRB,6.0300E+00_JPRB,8.0860E+00_JPRB,9.9827E+00_JPRB,1.1736E+01_JPRB,&
+&1.3326E+01_JPRB,1.4687E+01_JPRB,1.6411E+01_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&4.1629E+00_JPRB,4.2135E+00_JPRB,6.4636E+00_JPRB,8.5234E+00_JPRB,1.0396E+01_JPRB,1.2103E+01_JPRB,&
+&1.3619E+01_JPRB,1.4867E+01_JPRB,1.6271E+01_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&7.2274E-01_JPRB,2.8188E+00_JPRB,5.0463E+00_JPRB,7.1564E+00_JPRB,9.1934E+00_JPRB,1.1175E+01_JPRB,&
+&1.3093E+01_JPRB,1.4982E+01_JPRB,1.7490E+01_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&1.0936E+00_JPRB,3.0846E+00_JPRB,5.3597E+00_JPRB,7.4879E+00_JPRB,9.5212E+00_JPRB,1.1468E+01_JPRB,&
+&1.3317E+01_JPRB,1.5061E+01_JPRB,1.7405E+01_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&1.5844E+00_JPRB,3.3914E+00_JPRB,5.7218E+00_JPRB,7.8597E+00_JPRB,9.8794E+00_JPRB,1.1792E+01_JPRB,&
+&1.3571E+01_JPRB,1.5196E+01_JPRB,1.7299E+01_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&2.2133E+00_JPRB,3.7382E+00_JPRB,6.1198E+00_JPRB,8.2738E+00_JPRB,1.0272E+01_JPRB,1.2140E+01_JPRB,&
+&1.3853E+01_JPRB,1.5355E+01_JPRB,1.7167E+01_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&2.9830E+00_JPRB,4.1284E+00_JPRB,6.5526E+00_JPRB,8.7144E+00_JPRB,1.0697E+01_JPRB,1.2510E+01_JPRB,&
+&1.4140E+01_JPRB,1.5515E+01_JPRB,1.7007E+01_JPRB/)
+KAO( :, 1,10,11) = (/&
+&4.8237E-01_JPRB,2.8147E+00_JPRB,5.0928E+00_JPRB,7.2773E+00_JPRB,9.3839E+00_JPRB,1.1437E+01_JPRB,&
+&1.3443E+01_JPRB,1.5464E+01_JPRB,1.8003E+01_JPRB/)
+KAO( :, 2,10,11) = (/&
+&7.4855E-01_JPRB,3.0669E+00_JPRB,5.3977E+00_JPRB,7.5863E+00_JPRB,9.6799E+00_JPRB,1.1699E+01_JPRB,&
+&1.3634E+01_JPRB,1.5493E+01_JPRB,1.7884E+01_JPRB/)
+KAO( :, 3,10,11) = (/&
+&1.1085E+00_JPRB,3.3611E+00_JPRB,5.7474E+00_JPRB,7.9493E+00_JPRB,1.0026E+01_JPRB,1.2005E+01_JPRB,&
+&1.3869E+01_JPRB,1.5596E+01_JPRB,1.7749E+01_JPRB/)
+KAO( :, 4,10,11) = (/&
+&1.5772E+00_JPRB,3.6970E+00_JPRB,6.1332E+00_JPRB,8.3566E+00_JPRB,1.0418E+01_JPRB,1.2345E+01_JPRB,&
+&1.4128E+01_JPRB,1.5721E+01_JPRB,1.7584E+01_JPRB/)
+KAO( :, 5,10,11) = (/&
+&2.1652E+00_JPRB,4.0698E+00_JPRB,6.5606E+00_JPRB,8.7912E+00_JPRB,1.0837E+01_JPRB,1.2714E+01_JPRB,&
+&1.4407E+01_JPRB,1.5850E+01_JPRB,1.7388E+01_JPRB/)
+KAO( :, 1,11,11) = (/&
+&3.9938E-01_JPRB,2.8599E+00_JPRB,5.1737E+00_JPRB,7.3744E+00_JPRB,9.5072E+00_JPRB,1.1586E+01_JPRB,&
+&1.3611E+01_JPRB,1.5598E+01_JPRB,1.8201E+01_JPRB/)
+KAO( :, 2,11,11) = (/&
+&6.1944E-01_JPRB,3.1115E+00_JPRB,5.4721E+00_JPRB,7.6865E+00_JPRB,9.8054E+00_JPRB,1.1843E+01_JPRB,&
+&1.3793E+01_JPRB,1.5638E+01_JPRB,1.8068E+01_JPRB/)
+KAO( :, 3,11,11) = (/&
+&9.1846E-01_JPRB,3.4110E+00_JPRB,5.8171E+00_JPRB,8.0466E+00_JPRB,1.0149E+01_JPRB,1.2140E+01_JPRB,&
+&1.4010E+01_JPRB,1.5725E+01_JPRB,1.7913E+01_JPRB/)
+KAO( :, 4,11,11) = (/&
+&1.3105E+00_JPRB,3.7482E+00_JPRB,6.2097E+00_JPRB,8.4443E+00_JPRB,1.0527E+01_JPRB,1.2468E+01_JPRB,&
+&1.4250E+01_JPRB,1.5828E+01_JPRB,1.7729E+01_JPRB/)
+KAO( :, 5,11,11) = (/&
+&1.7999E+00_JPRB,4.1235E+00_JPRB,6.6430E+00_JPRB,8.8791E+00_JPRB,1.0932E+01_JPRB,1.2815E+01_JPRB,&
+&1.4506E+01_JPRB,1.5945E+01_JPRB,1.7528E+01_JPRB/)
+KAO( :, 1,12,11) = (/&
+&3.3001E-01_JPRB,2.8413E+00_JPRB,5.1496E+00_JPRB,7.3701E+00_JPRB,9.5381E+00_JPRB,1.1655E+01_JPRB,&
+&1.3720E+01_JPRB,1.5739E+01_JPRB,1.8506E+01_JPRB/)
+KAO( :, 2,12,11) = (/&
+&5.1236E-01_JPRB,3.0945E+00_JPRB,5.4327E+00_JPRB,7.6537E+00_JPRB,9.8045E+00_JPRB,1.1878E+01_JPRB,&
+&1.3880E+01_JPRB,1.5791E+01_JPRB,1.8378E+01_JPRB/)
+KAO( :, 3,12,11) = (/&
+&7.6165E-01_JPRB,3.3895E+00_JPRB,5.7691E+00_JPRB,7.9857E+00_JPRB,1.0106E+01_JPRB,1.2132E+01_JPRB,&
+&1.4063E+01_JPRB,1.5865E+01_JPRB,1.8221E+01_JPRB/)
+KAO( :, 4,12,11) = (/&
+&1.0868E+00_JPRB,3.7244E+00_JPRB,6.1541E+00_JPRB,8.3616E+00_JPRB,1.0442E+01_JPRB,1.2411E+01_JPRB,&
+&1.4266E+01_JPRB,1.5951E+01_JPRB,1.8046E+01_JPRB/)
+KAO( :, 5,12,11) = (/&
+&1.4941E+00_JPRB,4.0983E+00_JPRB,6.5760E+00_JPRB,8.7801E+00_JPRB,1.0819E+01_JPRB,1.2722E+01_JPRB,&
+&1.4491E+01_JPRB,1.6054E+01_JPRB,1.7865E+01_JPRB/)
+KAO( :, 1,13,11) = (/&
+&2.7270E-01_JPRB,2.8097E+00_JPRB,5.1608E+00_JPRB,7.4465E+00_JPRB,9.6830E+00_JPRB,1.1871E+01_JPRB,&
+&1.4022E+01_JPRB,1.6138E+01_JPRB,1.9047E+01_JPRB/)
+KAO( :, 2,13,11) = (/&
+&4.2335E-01_JPRB,3.0310E+00_JPRB,5.4040E+00_JPRB,7.6870E+00_JPRB,9.9007E+00_JPRB,1.2059E+01_JPRB,&
+&1.4159E+01_JPRB,1.6185E+01_JPRB,1.8912E+01_JPRB/)
+KAO( :, 3,13,11) = (/&
+&6.2933E-01_JPRB,3.3002E+00_JPRB,5.6896E+00_JPRB,7.9624E+00_JPRB,1.0150E+01_JPRB,1.2270E+01_JPRB,&
+&1.4311E+01_JPRB,1.6247E+01_JPRB,1.8754E+01_JPRB/)
+KAO( :, 4,13,11) = (/&
+&8.9928E-01_JPRB,3.6212E+00_JPRB,6.0182E+00_JPRB,8.2763E+00_JPRB,1.0433E+01_JPRB,1.2504E+01_JPRB,&
+&1.4478E+01_JPRB,1.6320E+01_JPRB,1.8583E+01_JPRB/)
+KAO( :, 5,13,11) = (/&
+&1.2370E+00_JPRB,3.9832E+00_JPRB,6.3965E+00_JPRB,8.6284E+00_JPRB,1.0744E+01_JPRB,1.2756E+01_JPRB,&
+&1.4653E+01_JPRB,1.6388E+01_JPRB,1.8390E+01_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&1.9306E+01_JPRB,1.6893E+01_JPRB,1.4480E+01_JPRB,1.2067E+01_JPRB,9.6532E+00_JPRB,7.2945E+00_JPRB,&
+&6.9148E+00_JPRB,7.5278E+00_JPRB,2.3433E+01_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&2.4650E+01_JPRB,2.1569E+01_JPRB,1.8488E+01_JPRB,1.5406E+01_JPRB,1.2325E+01_JPRB,9.2438E+00_JPRB,&
+&7.2171E+00_JPRB,7.6406E+00_JPRB,2.6606E+01_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&3.0678E+01_JPRB,2.6843E+01_JPRB,2.3008E+01_JPRB,1.9174E+01_JPRB,1.5339E+01_JPRB,1.1504E+01_JPRB,&
+&7.9763E+00_JPRB,7.7730E+00_JPRB,2.9832E+01_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&3.7441E+01_JPRB,3.2761E+01_JPRB,2.8081E+01_JPRB,2.3400E+01_JPRB,1.8720E+01_JPRB,1.4040E+01_JPRB,&
+&9.3666E+00_JPRB,7.8947E+00_JPRB,3.2935E+01_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&4.5012E+01_JPRB,3.9386E+01_JPRB,3.3759E+01_JPRB,2.8133E+01_JPRB,2.2506E+01_JPRB,1.6880E+01_JPRB,&
+&1.1253E+01_JPRB,8.0012E+00_JPRB,3.6133E+01_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&1.5936E+01_JPRB,1.3944E+01_JPRB,1.1952E+01_JPRB,9.9601E+00_JPRB,7.9681E+00_JPRB,7.1477E+00_JPRB,&
+&7.9439E+00_JPRB,8.7252E+00_JPRB,1.6736E+01_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&2.0659E+01_JPRB,1.8076E+01_JPRB,1.5494E+01_JPRB,1.2912E+01_JPRB,1.0329E+01_JPRB,8.0751E+00_JPRB,&
+&8.1865E+00_JPRB,8.8715E+00_JPRB,1.8751E+01_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&2.6211E+01_JPRB,2.2935E+01_JPRB,1.9658E+01_JPRB,1.6382E+01_JPRB,1.3106E+01_JPRB,9.8303E+00_JPRB,&
+&8.4476E+00_JPRB,9.0112E+00_JPRB,2.0857E+01_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&3.2434E+01_JPRB,2.8380E+01_JPRB,2.4326E+01_JPRB,2.0271E+01_JPRB,1.6217E+01_JPRB,1.2163E+01_JPRB,&
+&8.9851E+00_JPRB,9.1339E+00_JPRB,2.2883E+01_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&3.9217E+01_JPRB,3.4315E+01_JPRB,2.9413E+01_JPRB,2.4511E+01_JPRB,1.9608E+01_JPRB,1.4706E+01_JPRB,&
+&1.0077E+01_JPRB,9.2744E+00_JPRB,2.5016E+01_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&1.2204E+01_JPRB,1.0678E+01_JPRB,9.1529E+00_JPRB,7.6274E+00_JPRB,7.0064E+00_JPRB,8.0165E+00_JPRB,&
+&9.1087E+00_JPRB,1.0091E+01_JPRB,1.3158E+01_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&1.6264E+01_JPRB,1.4231E+01_JPRB,1.2198E+01_JPRB,1.0165E+01_JPRB,8.2928E+00_JPRB,8.3522E+00_JPRB,&
+&9.3382E+00_JPRB,1.0239E+01_JPRB,1.3470E+01_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&2.0966E+01_JPRB,1.8346E+01_JPRB,1.5725E+01_JPRB,1.3104E+01_JPRB,1.0483E+01_JPRB,8.9163E+00_JPRB,&
+&9.5941E+00_JPRB,1.0378E+01_JPRB,1.3791E+01_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&2.6346E+01_JPRB,2.3053E+01_JPRB,1.9760E+01_JPRB,1.6466E+01_JPRB,1.3173E+01_JPRB,1.0186E+01_JPRB,&
+&9.8769E+00_JPRB,1.0543E+01_JPRB,1.4208E+01_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&3.2499E+01_JPRB,2.8437E+01_JPRB,2.4374E+01_JPRB,2.0312E+01_JPRB,1.6250E+01_JPRB,1.2192E+01_JPRB,&
+&1.0198E+01_JPRB,1.0709E+01_JPRB,1.4690E+01_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&9.0048E+00_JPRB,7.8792E+00_JPRB,6.7536E+00_JPRB,6.3903E+00_JPRB,7.6603E+00_JPRB,9.0569E+00_JPRB,&
+&1.0373E+01_JPRB,1.1571E+01_JPRB,1.3828E+01_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&1.2261E+01_JPRB,1.0728E+01_JPRB,9.1954E+00_JPRB,7.7773E+00_JPRB,8.0813E+00_JPRB,9.3965E+00_JPRB,&
+&1.0654E+01_JPRB,1.1734E+01_JPRB,1.3859E+01_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&1.6168E+01_JPRB,1.4147E+01_JPRB,1.2126E+01_JPRB,1.0105E+01_JPRB,8.8961E+00_JPRB,9.7573E+00_JPRB,&
+&1.0940E+01_JPRB,1.1931E+01_JPRB,1.3916E+01_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&2.0801E+01_JPRB,1.8201E+01_JPRB,1.5600E+01_JPRB,1.3000E+01_JPRB,1.0554E+01_JPRB,1.0169E+01_JPRB,&
+&1.1223E+01_JPRB,1.2118E+01_JPRB,1.4034E+01_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&2.5988E+01_JPRB,2.2740E+01_JPRB,1.9491E+01_JPRB,1.6243E+01_JPRB,1.2994E+01_JPRB,1.0946E+01_JPRB,&
+&1.1496E+01_JPRB,1.2284E+01_JPRB,1.4164E+01_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&6.4609E+00_JPRB,5.6532E+00_JPRB,5.2932E+00_JPRB,6.8539E+00_JPRB,8.5960E+00_JPRB,1.0239E+01_JPRB,&
+&1.1787E+01_JPRB,1.3220E+01_JPRB,1.5562E+01_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&9.0364E+00_JPRB,7.9068E+00_JPRB,6.8055E+00_JPRB,7.2952E+00_JPRB,8.9859E+00_JPRB,1.0601E+01_JPRB,&
+&1.2085E+01_JPRB,1.3419E+01_JPRB,1.5565E+01_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&1.2240E+01_JPRB,1.0710E+01_JPRB,9.1797E+00_JPRB,8.2618E+00_JPRB,9.3995E+00_JPRB,1.0970E+01_JPRB,&
+&1.2380E+01_JPRB,1.3618E+01_JPRB,1.5546E+01_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&1.6001E+01_JPRB,1.4001E+01_JPRB,1.2001E+01_JPRB,1.0093E+01_JPRB,9.9460E+00_JPRB,1.1348E+01_JPRB,&
+&1.2695E+01_JPRB,1.3806E+01_JPRB,1.5493E+01_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&2.0392E+01_JPRB,1.7843E+01_JPRB,1.5294E+01_JPRB,1.2745E+01_JPRB,1.1072E+01_JPRB,1.1762E+01_JPRB,&
+&1.3031E+01_JPRB,1.4007E+01_JPRB,1.5413E+01_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&4.4633E+00_JPRB,3.9388E+00_JPRB,5.4668E+00_JPRB,7.5584E+00_JPRB,9.5392E+00_JPRB,1.1432E+01_JPRB,&
+&1.3234E+01_JPRB,1.4983E+01_JPRB,1.7552E+01_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&6.4534E+00_JPRB,5.6467E+00_JPRB,5.9493E+00_JPRB,7.9882E+00_JPRB,9.9652E+00_JPRB,1.1825E+01_JPRB,&
+&1.3565E+01_JPRB,1.5163E+01_JPRB,1.7552E+01_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&8.9369E+00_JPRB,7.8198E+00_JPRB,7.0306E+00_JPRB,8.4620E+00_JPRB,1.0422E+01_JPRB,1.2244E+01_JPRB,&
+&1.3924E+01_JPRB,1.5375E+01_JPRB,1.7522E+01_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&1.1971E+01_JPRB,1.0475E+01_JPRB,8.9883E+00_JPRB,9.0910E+00_JPRB,1.0899E+01_JPRB,1.2682E+01_JPRB,&
+&1.4284E+01_JPRB,1.5608E+01_JPRB,1.7458E+01_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&1.5570E+01_JPRB,1.3624E+01_JPRB,1.1678E+01_JPRB,1.0383E+01_JPRB,1.1407E+01_JPRB,1.3124E+01_JPRB,&
+&1.4643E+01_JPRB,1.5845E+01_JPRB,1.7360E+01_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&3.0144E+00_JPRB,3.4301E+00_JPRB,5.9195E+00_JPRB,8.2854E+00_JPRB,1.0547E+01_JPRB,1.2704E+01_JPRB,&
+&1.4784E+01_JPRB,1.6795E+01_JPRB,1.9646E+01_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&4.4866E+00_JPRB,4.1345E+00_JPRB,6.3401E+00_JPRB,8.7329E+00_JPRB,1.0993E+01_JPRB,1.3127E+01_JPRB,&
+&1.5133E+01_JPRB,1.6992E+01_JPRB,1.9648E+01_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&6.3891E+00_JPRB,5.5915E+00_JPRB,6.8167E+00_JPRB,9.2170E+00_JPRB,1.1473E+01_JPRB,1.3569E+01_JPRB,&
+&1.5507E+01_JPRB,1.7228E+01_JPRB,1.9616E+01_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&8.7782E+00_JPRB,7.6809E+00_JPRB,7.5739E+00_JPRB,9.7331E+00_JPRB,1.1970E+01_JPRB,1.4031E+01_JPRB,&
+&1.5873E+01_JPRB,1.7477E+01_JPRB,1.9541E+01_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&1.1625E+01_JPRB,1.0171E+01_JPRB,9.0298E+00_JPRB,1.0306E+01_JPRB,1.2492E+01_JPRB,1.4497E+01_JPRB,&
+&1.6257E+01_JPRB,1.7701E+01_JPRB,1.9439E+01_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&1.9926E+00_JPRB,3.6034E+00_JPRB,6.3775E+00_JPRB,8.9929E+00_JPRB,1.1503E+01_JPRB,1.3945E+01_JPRB,&
+&1.6299E+01_JPRB,1.8684E+01_JPRB,2.1745E+01_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&3.0617E+00_JPRB,3.9634E+00_JPRB,6.8142E+00_JPRB,9.4600E+00_JPRB,1.1969E+01_JPRB,1.4375E+01_JPRB,&
+&1.6657E+01_JPRB,1.8850E+01_JPRB,2.1761E+01_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&4.4985E+00_JPRB,4.5132E+00_JPRB,7.2998E+00_JPRB,9.9757E+00_JPRB,1.2478E+01_JPRB,1.4838E+01_JPRB,&
+&1.7040E+01_JPRB,1.9071E+01_JPRB,2.1736E+01_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&6.3130E+00_JPRB,5.6506E+00_JPRB,7.8250E+00_JPRB,1.0530E+01_JPRB,1.3024E+01_JPRB,1.5335E+01_JPRB,&
+&1.7448E+01_JPRB,1.9301E+01_JPRB,2.1660E+01_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&8.5677E+00_JPRB,7.4967E+00_JPRB,8.4271E+00_JPRB,1.1119E+01_JPRB,1.3598E+01_JPRB,1.5852E+01_JPRB,&
+&1.7874E+01_JPRB,1.9541E+01_JPRB,2.1548E+01_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&1.2882E+00_JPRB,3.7811E+00_JPRB,6.7889E+00_JPRB,9.6675E+00_JPRB,1.2448E+01_JPRB,1.5144E+01_JPRB,&
+&1.7789E+01_JPRB,2.0526E+01_JPRB,2.3798E+01_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&2.0503E+00_JPRB,4.1428E+00_JPRB,7.2351E+00_JPRB,1.0146E+01_JPRB,1.2918E+01_JPRB,1.5574E+01_JPRB,&
+&1.8133E+01_JPRB,2.0600E+01_JPRB,2.3807E+01_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&3.0980E+00_JPRB,4.5533E+00_JPRB,7.7296E+00_JPRB,1.0674E+01_JPRB,1.3445E+01_JPRB,1.6056E+01_JPRB,&
+&1.8526E+01_JPRB,2.0799E+01_JPRB,2.3759E+01_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&4.4694E+00_JPRB,5.0345E+00_JPRB,8.2724E+00_JPRB,1.1243E+01_JPRB,1.4010E+01_JPRB,1.6578E+01_JPRB,&
+&1.8947E+01_JPRB,2.1039E+01_JPRB,2.3671E+01_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&6.1961E+00_JPRB,5.9006E+00_JPRB,8.8587E+00_JPRB,1.1853E+01_JPRB,1.4601E+01_JPRB,1.7119E+01_JPRB,&
+&1.9383E+01_JPRB,2.1299E+01_JPRB,2.3541E+01_JPRB/)
+KAO( :, 1,10,12) = (/&
+&8.5127E-01_JPRB,3.9419E+00_JPRB,7.1781E+00_JPRB,1.0273E+01_JPRB,1.3291E+01_JPRB,1.6253E+01_JPRB,&
+&1.9160E+01_JPRB,2.2190E+01_JPRB,2.5668E+01_JPRB/)
+KAO( :, 2,10,12) = (/&
+&1.3967E+00_JPRB,4.3019E+00_JPRB,7.6193E+00_JPRB,1.0754E+01_JPRB,1.3770E+01_JPRB,1.6679E+01_JPRB,&
+&1.9482E+01_JPRB,2.2205E+01_JPRB,2.5653E+01_JPRB/)
+KAO( :, 3,10,12) = (/&
+&2.1663E+00_JPRB,4.7169E+00_JPRB,8.1215E+00_JPRB,1.1290E+01_JPRB,1.4299E+01_JPRB,1.7163E+01_JPRB,&
+&1.9866E+01_JPRB,2.2382E+01_JPRB,2.5585E+01_JPRB/)
+KAO( :, 4,10,12) = (/&
+&3.2052E+00_JPRB,5.1856E+00_JPRB,8.6831E+00_JPRB,1.1877E+01_JPRB,1.4873E+01_JPRB,1.7685E+01_JPRB,&
+&2.0283E+01_JPRB,2.2619E+01_JPRB,2.5476E+01_JPRB/)
+KAO( :, 5,10,12) = (/&
+&4.5284E+00_JPRB,5.7035E+00_JPRB,9.2918E+00_JPRB,1.2513E+01_JPRB,1.5482E+01_JPRB,1.8231E+01_JPRB,&
+&2.0720E+01_JPRB,2.2887E+01_JPRB,2.5332E+01_JPRB/)
+KAO( :, 1,11,12) = (/&
+&7.1408E-01_JPRB,4.2187E+00_JPRB,7.6724E+00_JPRB,1.0987E+01_JPRB,1.4213E+01_JPRB,1.7344E+01_JPRB,&
+&2.0412E+01_JPRB,2.3581E+01_JPRB,2.7221E+01_JPRB/)
+KAO( :, 2,11,12) = (/&
+&1.1737E+00_JPRB,4.6015E+00_JPRB,8.1394E+00_JPRB,1.1481E+01_JPRB,1.4695E+01_JPRB,1.7776E+01_JPRB,&
+&2.0744E+01_JPRB,2.3608E+01_JPRB,2.7158E+01_JPRB/)
+KAO( :, 3,11,12) = (/&
+&1.8278E+00_JPRB,5.0397E+00_JPRB,8.6695E+00_JPRB,1.2042E+01_JPRB,1.5239E+01_JPRB,1.8262E+01_JPRB,&
+&2.1130E+01_JPRB,2.3787E+01_JPRB,2.7045E+01_JPRB/)
+KAO( :, 4,11,12) = (/&
+&2.7031E+00_JPRB,5.5344E+00_JPRB,9.2593E+00_JPRB,1.2658E+01_JPRB,1.5837E+01_JPRB,1.8803E+01_JPRB,&
+&2.1557E+01_JPRB,2.4018E+01_JPRB,2.6895E+01_JPRB/)
+KAO( :, 5,11,12) = (/&
+&3.8301E+00_JPRB,6.0785E+00_JPRB,9.8968E+00_JPRB,1.3323E+01_JPRB,1.6474E+01_JPRB,1.9384E+01_JPRB,&
+&2.2018E+01_JPRB,2.4269E+01_JPRB,2.6697E+01_JPRB/)
+KAO( :, 1,12,12) = (/&
+&5.9719E-01_JPRB,4.4357E+00_JPRB,8.0495E+00_JPRB,1.1513E+01_JPRB,1.4864E+01_JPRB,1.8123E+01_JPRB,&
+&2.1317E+01_JPRB,2.4560E+01_JPRB,2.8304E+01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&9.8514E-01_JPRB,4.8310E+00_JPRB,8.5352E+00_JPRB,1.2024E+01_JPRB,1.5349E+01_JPRB,1.8551E+01_JPRB,&
+&2.1630E+01_JPRB,2.4592E+01_JPRB,2.8167E+01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&1.5344E+00_JPRB,5.2869E+00_JPRB,9.0837E+00_JPRB,1.2602E+01_JPRB,1.5914E+01_JPRB,1.9055E+01_JPRB,&
+&2.2019E+01_JPRB,2.4762E+01_JPRB,2.7998E+01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&2.2758E+00_JPRB,5.8021E+00_JPRB,9.6908E+00_JPRB,1.3238E+01_JPRB,1.6534E+01_JPRB,1.9617E+01_JPRB,&
+&2.2454E+01_JPRB,2.4978E+01_JPRB,2.7783E+01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&3.2239E+00_JPRB,6.3684E+00_JPRB,1.0355E+01_JPRB,1.3925E+01_JPRB,1.7197E+01_JPRB,2.0204E+01_JPRB,&
+&2.2925E+01_JPRB,2.5222E+01_JPRB,2.7528E+01_JPRB/)
+KAO( :, 1,13,12) = (/&
+&4.9832E-01_JPRB,4.5623E+00_JPRB,8.2781E+00_JPRB,1.1820E+01_JPRB,1.5240E+01_JPRB,1.8570E+01_JPRB,&
+&2.1811E+01_JPRB,2.5026E+01_JPRB,2.8851E+01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&8.2244E-01_JPRB,4.9642E+00_JPRB,8.7578E+00_JPRB,1.2321E+01_JPRB,1.5731E+01_JPRB,1.9002E+01_JPRB,&
+&2.2129E+01_JPRB,2.5100E+01_JPRB,2.8676E+01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&1.2846E+00_JPRB,5.4326E+00_JPRB,9.3155E+00_JPRB,1.2900E+01_JPRB,1.6287E+01_JPRB,1.9496E+01_JPRB,&
+&2.2507E+01_JPRB,2.5267E+01_JPRB,2.8460E+01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&1.9049E+00_JPRB,5.9589E+00_JPRB,9.9399E+00_JPRB,1.3548E+01_JPRB,1.6904E+01_JPRB,2.0038E+01_JPRB,&
+&2.2926E+01_JPRB,2.5474E+01_JPRB,2.8207E+01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&2.7022E+00_JPRB,6.5411E+00_JPRB,1.0623E+01_JPRB,1.4250E+01_JPRB,1.7574E+01_JPRB,2.0623E+01_JPRB,&
+&2.3373E+01_JPRB,2.5690E+01_JPRB,2.7914E+01_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&3.4080E+01_JPRB,2.9820E+01_JPRB,2.5560E+01_JPRB,2.1300E+01_JPRB,1.7040E+01_JPRB,1.2780E+01_JPRB,&
+&8.7310E+00_JPRB,8.0673E+00_JPRB,2.9577E+01_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&4.4290E+01_JPRB,3.8754E+01_JPRB,3.3217E+01_JPRB,2.7681E+01_JPRB,2.2145E+01_JPRB,1.6609E+01_JPRB,&
+&1.1073E+01_JPRB,8.2554E+00_JPRB,3.3128E+01_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&5.6045E+01_JPRB,4.9040E+01_JPRB,4.2034E+01_JPRB,3.5028E+01_JPRB,2.8023E+01_JPRB,2.1017E+01_JPRB,&
+&1.4011E+01_JPRB,8.4999E+00_JPRB,3.6715E+01_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&6.9030E+01_JPRB,6.0401E+01_JPRB,5.1772E+01_JPRB,4.3144E+01_JPRB,3.4515E+01_JPRB,2.5886E+01_JPRB,&
+&1.7257E+01_JPRB,9.2154E+00_JPRB,4.0421E+01_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&8.3025E+01_JPRB,7.2647E+01_JPRB,6.2269E+01_JPRB,5.1890E+01_JPRB,4.1512E+01_JPRB,3.1134E+01_JPRB,&
+&2.0756E+01_JPRB,1.0504E+01_JPRB,4.4180E+01_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&3.0233E+01_JPRB,2.6454E+01_JPRB,2.2675E+01_JPRB,1.8895E+01_JPRB,1.5116E+01_JPRB,1.1337E+01_JPRB,&
+&8.9456E+00_JPRB,9.4618E+00_JPRB,2.0893E+01_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&3.9883E+01_JPRB,3.4897E+01_JPRB,2.9912E+01_JPRB,2.4927E+01_JPRB,1.9941E+01_JPRB,1.4956E+01_JPRB,&
+&1.0322E+01_JPRB,9.6468E+00_JPRB,2.3460E+01_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&5.0858E+01_JPRB,4.4501E+01_JPRB,3.8144E+01_JPRB,3.1786E+01_JPRB,2.5429E+01_JPRB,1.9072E+01_JPRB,&
+&1.2717E+01_JPRB,9.8260E+00_JPRB,2.6105E+01_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&6.3293E+01_JPRB,5.5381E+01_JPRB,4.7469E+01_JPRB,3.9558E+01_JPRB,3.1646E+01_JPRB,2.3735E+01_JPRB,&
+&1.5823E+01_JPRB,1.0061E+01_JPRB,2.8871E+01_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&7.7095E+01_JPRB,6.7458E+01_JPRB,5.7821E+01_JPRB,4.8184E+01_JPRB,3.8547E+01_JPRB,2.8911E+01_JPRB,&
+&1.9274E+01_JPRB,1.0716E+01_JPRB,3.1684E+01_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&2.4631E+01_JPRB,2.1553E+01_JPRB,1.8474E+01_JPRB,1.5395E+01_JPRB,1.2316E+01_JPRB,9.8916E+00_JPRB,&
+&1.0038E+01_JPRB,1.1089E+01_JPRB,1.4306E+01_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&3.3118E+01_JPRB,2.8978E+01_JPRB,2.4838E+01_JPRB,2.0699E+01_JPRB,1.6559E+01_JPRB,1.2452E+01_JPRB,&
+&1.0491E+01_JPRB,1.1254E+01_JPRB,1.4773E+01_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&4.3194E+01_JPRB,3.7795E+01_JPRB,3.2396E+01_JPRB,2.6996E+01_JPRB,2.1597E+01_JPRB,1.6198E+01_JPRB,&
+&1.1695E+01_JPRB,1.1459E+01_JPRB,1.5413E+01_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&5.4783E+01_JPRB,4.7935E+01_JPRB,4.1087E+01_JPRB,3.4239E+01_JPRB,2.7391E+01_JPRB,2.0543E+01_JPRB,&
+&1.3845E+01_JPRB,1.1681E+01_JPRB,1.6296E+01_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&6.7780E+01_JPRB,5.9307E+01_JPRB,5.0835E+01_JPRB,4.2362E+01_JPRB,3.3890E+01_JPRB,2.5417E+01_JPRB,&
+&1.6945E+01_JPRB,1.1890E+01_JPRB,1.7557E+01_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&1.9088E+01_JPRB,1.6702E+01_JPRB,1.4316E+01_JPRB,1.1930E+01_JPRB,1.0048E+01_JPRB,1.0234E+01_JPRB,&
+&1.1609E+01_JPRB,1.2948E+01_JPRB,1.5443E+01_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&2.6468E+01_JPRB,2.3159E+01_JPRB,1.9851E+01_JPRB,1.6542E+01_JPRB,1.3234E+01_JPRB,1.1284E+01_JPRB,&
+&1.1975E+01_JPRB,1.3181E+01_JPRB,1.5496E+01_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&3.5386E+01_JPRB,3.0963E+01_JPRB,2.6539E+01_JPRB,2.2116E+01_JPRB,1.7693E+01_JPRB,1.3581E+01_JPRB,&
+&1.2366E+01_JPRB,1.3400E+01_JPRB,1.5533E+01_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&4.5721E+01_JPRB,4.0006E+01_JPRB,3.4291E+01_JPRB,2.8576E+01_JPRB,2.2861E+01_JPRB,1.7146E+01_JPRB,&
+&1.3293E+01_JPRB,1.3609E+01_JPRB,1.5601E+01_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&5.7463E+01_JPRB,5.0280E+01_JPRB,4.3097E+01_JPRB,3.5914E+01_JPRB,2.8732E+01_JPRB,2.1549E+01_JPRB,&
+&1.5088E+01_JPRB,1.3821E+01_JPRB,1.5706E+01_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&1.4426E+01_JPRB,1.2622E+01_JPRB,1.0819E+01_JPRB,9.3955E+00_JPRB,9.8959E+00_JPRB,1.1682E+01_JPRB,&
+&1.3442E+01_JPRB,1.5150E+01_JPRB,1.7787E+01_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&2.0633E+01_JPRB,1.8054E+01_JPRB,1.5474E+01_JPRB,1.2895E+01_JPRB,1.1371E+01_JPRB,1.2152E+01_JPRB,&
+&1.3795E+01_JPRB,1.5372E+01_JPRB,1.7817E+01_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&2.8181E+01_JPRB,2.4658E+01_JPRB,2.1135E+01_JPRB,1.7613E+01_JPRB,1.4271E+01_JPRB,1.3007E+01_JPRB,&
+&1.4200E+01_JPRB,1.5591E+01_JPRB,1.7815E+01_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&3.7172E+01_JPRB,3.2526E+01_JPRB,2.7879E+01_JPRB,2.3233E+01_JPRB,1.8586E+01_JPRB,1.4927E+01_JPRB,&
+&1.4654E+01_JPRB,1.5856E+01_JPRB,1.7795E+01_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&4.7583E+01_JPRB,4.1635E+01_JPRB,3.5687E+01_JPRB,2.9739E+01_JPRB,2.3791E+01_JPRB,1.8024E+01_JPRB,&
+&1.5280E+01_JPRB,1.6121E+01_JPRB,1.7748E+01_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&1.0461E+01_JPRB,9.1530E+00_JPRB,8.0649E+00_JPRB,8.9595E+00_JPRB,1.1163E+01_JPRB,1.3388E+01_JPRB,&
+&1.5529E+01_JPRB,1.7569E+01_JPRB,2.0564E+01_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&1.5391E+01_JPRB,1.3467E+01_JPRB,1.1543E+01_JPRB,1.0534E+01_JPRB,1.1753E+01_JPRB,1.3875E+01_JPRB,&
+&1.5945E+01_JPRB,1.7834E+01_JPRB,2.0625E+01_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&2.1628E+01_JPRB,1.8924E+01_JPRB,1.6221E+01_JPRB,1.3622E+01_JPRB,1.2887E+01_JPRB,1.4422E+01_JPRB,&
+&1.6374E+01_JPRB,1.8123E+01_JPRB,2.0643E+01_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&2.9247E+01_JPRB,2.5591E+01_JPRB,2.1935E+01_JPRB,1.8279E+01_JPRB,1.5333E+01_JPRB,1.5076E+01_JPRB,&
+&1.6798E+01_JPRB,1.8415E+01_JPRB,2.0622E+01_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&3.8260E+01_JPRB,3.3478E+01_JPRB,2.8695E+01_JPRB,2.3913E+01_JPRB,1.9193E+01_JPRB,1.6572E+01_JPRB,&
+&1.7244E+01_JPRB,1.8672E+01_JPRB,2.0568E+01_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&7.3043E+00_JPRB,6.3921E+00_JPRB,7.2574E+00_JPRB,9.9309E+00_JPRB,1.2660E+01_JPRB,1.5305E+01_JPRB,&
+&1.7830E+01_JPRB,2.0388E+01_JPRB,2.3721E+01_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&1.1153E+01_JPRB,9.7589E+00_JPRB,8.9368E+00_JPRB,1.0556E+01_JPRB,1.3220E+01_JPRB,1.5825E+01_JPRB,&
+&1.8263E+01_JPRB,2.0631E+01_JPRB,2.3818E+01_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&1.6186E+01_JPRB,1.4162E+01_JPRB,1.2167E+01_JPRB,1.1878E+01_JPRB,1.3854E+01_JPRB,1.6375E+01_JPRB,&
+&1.8737E+01_JPRB,2.0904E+01_JPRB,2.3851E+01_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&2.2456E+01_JPRB,1.9649E+01_JPRB,1.6842E+01_JPRB,1.4587E+01_JPRB,1.4796E+01_JPRB,1.6968E+01_JPRB,&
+&1.9249E+01_JPRB,2.1203E+01_JPRB,2.3842E+01_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&2.9970E+01_JPRB,2.6223E+01_JPRB,2.2477E+01_JPRB,1.8752E+01_JPRB,1.6763E+01_JPRB,1.7653E+01_JPRB,&
+&1.9767E+01_JPRB,2.1542E+01_JPRB,2.3797E+01_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&4.9692E+00_JPRB,4.9125E+00_JPRB,7.9064E+00_JPRB,1.1184E+01_JPRB,1.4336E+01_JPRB,1.7379E+01_JPRB,&
+&2.0369E+01_JPRB,2.3491E+01_JPRB,2.7234E+01_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&7.9016E+00_JPRB,6.9643E+00_JPRB,8.5289E+00_JPRB,1.1787E+01_JPRB,1.4948E+01_JPRB,1.7963E+01_JPRB,&
+&2.0857E+01_JPRB,2.3626E+01_JPRB,2.7349E+01_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&1.1829E+01_JPRB,1.0351E+01_JPRB,1.0018E+01_JPRB,1.2473E+01_JPRB,1.5611E+01_JPRB,1.8590E+01_JPRB,&
+&2.1391E+01_JPRB,2.3947E+01_JPRB,2.7404E+01_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&1.6837E+01_JPRB,1.4732E+01_JPRB,1.2874E+01_JPRB,1.3529E+01_JPRB,1.6319E+01_JPRB,1.9246E+01_JPRB,&
+&2.1937E+01_JPRB,2.4318E+01_JPRB,2.7406E+01_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&2.2996E+01_JPRB,2.0122E+01_JPRB,1.7247E+01_JPRB,1.5765E+01_JPRB,1.7114E+01_JPRB,1.9918E+01_JPRB,&
+&2.2479E+01_JPRB,2.4688E+01_JPRB,2.7359E+01_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&3.2797E+00_JPRB,4.8490E+00_JPRB,8.7424E+00_JPRB,1.2456E+01_JPRB,1.6073E+01_JPRB,1.9620E+01_JPRB,&
+&2.3097E+01_JPRB,2.6808E+01_JPRB,3.0988E+01_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&5.4392E+00_JPRB,5.6637E+00_JPRB,9.3267E+00_JPRB,1.3100E+01_JPRB,1.6727E+01_JPRB,2.0234E+01_JPRB,&
+&2.3592E+01_JPRB,2.6965E+01_JPRB,3.1144E+01_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&8.4169E+00_JPRB,7.5619E+00_JPRB,1.0020E+01_JPRB,1.3811E+01_JPRB,1.7436E+01_JPRB,2.0893E+01_JPRB,&
+&2.4142E+01_JPRB,2.7260E+01_JPRB,3.1227E+01_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&1.2342E+01_JPRB,1.0800E+01_JPRB,1.1274E+01_JPRB,1.4589E+01_JPRB,1.8199E+01_JPRB,2.1593E+01_JPRB,&
+&2.4734E+01_JPRB,2.7614E+01_JPRB,3.1244E+01_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&1.7292E+01_JPRB,1.5131E+01_JPRB,1.3759E+01_JPRB,1.5542E+01_JPRB,1.9006E+01_JPRB,2.2332E+01_JPRB,&
+&2.5355E+01_JPRB,2.7981E+01_JPRB,3.1197E+01_JPRB/)
+KAO( :, 1,10,13) = (/&
+&2.2032E+00_JPRB,5.2890E+00_JPRB,9.6706E+00_JPRB,1.3878E+01_JPRB,1.7966E+01_JPRB,2.1973E+01_JPRB,&
+&2.5989E+01_JPRB,3.0314E+01_JPRB,3.4958E+01_JPRB/)
+KAO( :, 2,10,13) = (/&
+&3.7831E+00_JPRB,5.7837E+00_JPRB,1.0292E+01_JPRB,1.4556E+01_JPRB,1.8648E+01_JPRB,2.2606E+01_JPRB,&
+&2.6478E+01_JPRB,3.0484E+01_JPRB,3.5130E+01_JPRB/)
+KAO( :, 3,10,13) = (/&
+&6.0546E+00_JPRB,6.6064E+00_JPRB,1.0987E+01_JPRB,1.5317E+01_JPRB,1.9415E+01_JPRB,2.3325E+01_JPRB,&
+&2.7070E+01_JPRB,3.0679E+01_JPRB,3.5221E+01_JPRB/)
+KAO( :, 4,10,13) = (/&
+&9.1249E+00_JPRB,8.4338E+00_JPRB,1.1767E+01_JPRB,1.6143E+01_JPRB,2.0247E+01_JPRB,2.4103E+01_JPRB,&
+&2.7726E+01_JPRB,3.1040E+01_JPRB,3.5231E+01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&1.3052E+01_JPRB,1.1454E+01_JPRB,1.2877E+01_JPRB,1.7024E+01_JPRB,2.1124E+01_JPRB,2.4923E+01_JPRB,&
+&2.8417E+01_JPRB,3.1455E+01_JPRB,3.5171E+01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&1.9086E+00_JPRB,5.9459E+00_JPRB,1.0873E+01_JPRB,1.5591E+01_JPRB,2.0164E+01_JPRB,2.4670E+01_JPRB,&
+&2.9154E+01_JPRB,3.3957E+01_JPRB,3.9072E+01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&3.2952E+00_JPRB,6.4851E+00_JPRB,1.1554E+01_JPRB,1.6337E+01_JPRB,2.0921E+01_JPRB,2.5369E+01_JPRB,&
+&2.9685E+01_JPRB,3.4092E+01_JPRB,3.9214E+01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&5.2771E+00_JPRB,7.1279E+00_JPRB,1.2325E+01_JPRB,1.7170E+01_JPRB,2.1762E+01_JPRB,2.6155E+01_JPRB,&
+&3.0331E+01_JPRB,3.4338E+01_JPRB,3.9267E+01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&7.9532E+00_JPRB,8.2986E+00_JPRB,1.3169E+01_JPRB,1.8082E+01_JPRB,2.2666E+01_JPRB,2.6993E+01_JPRB,&
+&3.1034E+01_JPRB,3.4728E+01_JPRB,3.9232E+01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&1.1408E+01_JPRB,1.0479E+01_JPRB,1.4101E+01_JPRB,1.9050E+01_JPRB,2.3632E+01_JPRB,2.7870E+01_JPRB,&
+&3.1762E+01_JPRB,3.5164E+01_JPRB,3.9117E+01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&1.6495E+00_JPRB,6.5961E+00_JPRB,1.2057E+01_JPRB,1.7278E+01_JPRB,2.2356E+01_JPRB,2.7342E+01_JPRB,&
+&3.2267E+01_JPRB,3.7500E+01_JPRB,4.3085E+01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&2.8452E+00_JPRB,7.1855E+00_JPRB,1.2796E+01_JPRB,1.8080E+01_JPRB,2.3168E+01_JPRB,2.8094E+01_JPRB,&
+&3.2847E+01_JPRB,3.7597E+01_JPRB,4.3183E+01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&4.5627E+00_JPRB,7.8617E+00_JPRB,1.3635E+01_JPRB,1.8987E+01_JPRB,2.4069E+01_JPRB,2.8923E+01_JPRB,&
+&3.3529E+01_JPRB,3.7904E+01_JPRB,4.3185E+01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&6.8882E+00_JPRB,8.6791E+00_JPRB,1.4557E+01_JPRB,1.9976E+01_JPRB,2.5052E+01_JPRB,2.9817E+01_JPRB,&
+&3.4260E+01_JPRB,3.8316E+01_JPRB,4.3097E+01_JPRB/)
+KAO( :, 5,12,13) = (/&
+&9.8701E+00_JPRB,1.0128E+01_JPRB,1.5550E+01_JPRB,2.1028E+01_JPRB,2.6084E+01_JPRB,3.0768E+01_JPRB,&
+&3.5030E+01_JPRB,3.8758E+01_JPRB,4.2923E+01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&1.4102E+00_JPRB,7.2101E+00_JPRB,1.3161E+01_JPRB,1.8856E+01_JPRB,2.4405E+01_JPRB,2.9839E+01_JPRB,&
+&3.5177E+01_JPRB,4.0784E+01_JPRB,4.6821E+01_JPRB/)
+KAO( :, 2,13,13) = (/&
+&2.4382E+00_JPRB,7.8482E+00_JPRB,1.3963E+01_JPRB,1.9729E+01_JPRB,2.5265E+01_JPRB,3.0620E+01_JPRB,&
+&3.5779E+01_JPRB,4.0841E+01_JPRB,4.6845E+01_JPRB/)
+KAO( :, 3,13,13) = (/&
+&3.9130E+00_JPRB,8.5783E+00_JPRB,1.4859E+01_JPRB,2.0699E+01_JPRB,2.6235E+01_JPRB,3.1498E+01_JPRB,&
+&3.6480E+01_JPRB,4.1163E+01_JPRB,4.6764E+01_JPRB/)
+KAO( :, 4,13,13) = (/&
+&5.9062E+00_JPRB,9.3898E+00_JPRB,1.5851E+01_JPRB,2.1749E+01_JPRB,2.7273E+01_JPRB,3.2456E+01_JPRB,&
+&3.7253E+01_JPRB,4.1590E+01_JPRB,4.6596E+01_JPRB/)
+KAO( :, 5,13,13) = (/&
+&8.4798E+00_JPRB,1.0367E+01_JPRB,1.6908E+01_JPRB,2.2869E+01_JPRB,2.8363E+01_JPRB,3.3450E+01_JPRB,&
+&3.8074E+01_JPRB,4.2068E+01_JPRB,4.6355E+01_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&6.5174E+01_JPRB,5.7027E+01_JPRB,4.8880E+01_JPRB,4.0734E+01_JPRB,3.2587E+01_JPRB,2.4440E+01_JPRB,&
+&1.6293E+01_JPRB,9.0902E+00_JPRB,3.6845E+01_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&8.4423E+01_JPRB,7.3870E+01_JPRB,6.3317E+01_JPRB,5.2765E+01_JPRB,4.2212E+01_JPRB,3.1659E+01_JPRB,&
+&2.1106E+01_JPRB,1.0672E+01_JPRB,4.1742E+01_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&1.0604E+02_JPRB,9.2788E+01_JPRB,7.9533E+01_JPRB,6.6277E+01_JPRB,5.3022E+01_JPRB,3.9766E+01_JPRB,&
+&2.6511E+01_JPRB,1.3255E+01_JPRB,4.6647E+01_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&1.3020E+02_JPRB,1.1393E+02_JPRB,9.7651E+01_JPRB,8.1376E+01_JPRB,6.5100E+01_JPRB,4.8825E+01_JPRB,&
+&3.2550E+01_JPRB,1.6275E+01_JPRB,5.1511E+01_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&1.5659E+02_JPRB,1.3701E+02_JPRB,1.1744E+02_JPRB,9.7867E+01_JPRB,7.8294E+01_JPRB,5.8720E+01_JPRB,&
+&3.9147E+01_JPRB,1.9573E+01_JPRB,5.6274E+01_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&6.1823E+01_JPRB,5.4095E+01_JPRB,4.6367E+01_JPRB,3.8639E+01_JPRB,3.0911E+01_JPRB,2.3183E+01_JPRB,&
+&1.5456E+01_JPRB,1.0277E+01_JPRB,2.7318E+01_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&8.1223E+01_JPRB,7.1070E+01_JPRB,6.0917E+01_JPRB,5.0764E+01_JPRB,4.0612E+01_JPRB,3.0459E+01_JPRB,&
+&2.0306E+01_JPRB,1.1162E+01_JPRB,3.1010E+01_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&1.0367E+02_JPRB,9.0711E+01_JPRB,7.7752E+01_JPRB,6.4794E+01_JPRB,5.1835E+01_JPRB,3.8876E+01_JPRB,&
+&2.5917E+01_JPRB,1.3111E+01_JPRB,3.4709E+01_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&1.2892E+02_JPRB,1.1280E+02_JPRB,9.6686E+01_JPRB,8.0572E+01_JPRB,6.4458E+01_JPRB,4.8343E+01_JPRB,&
+&3.2229E+01_JPRB,1.6114E+01_JPRB,3.8368E+01_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&1.5667E+02_JPRB,1.3708E+02_JPRB,1.1750E+02_JPRB,9.7916E+01_JPRB,7.8333E+01_JPRB,5.8750E+01_JPRB,&
+&3.9167E+01_JPRB,1.9583E+01_JPRB,4.1940E+01_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&5.4340E+01_JPRB,4.7547E+01_JPRB,4.0755E+01_JPRB,3.3962E+01_JPRB,2.7170E+01_JPRB,2.0377E+01_JPRB,&
+&1.3826E+01_JPRB,1.1988E+01_JPRB,1.6208E+01_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&7.3213E+01_JPRB,6.4061E+01_JPRB,5.4910E+01_JPRB,4.5758E+01_JPRB,3.6606E+01_JPRB,2.7455E+01_JPRB,&
+&1.8303E+01_JPRB,1.2321E+01_JPRB,1.7853E+01_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&9.5330E+01_JPRB,8.3414E+01_JPRB,7.1498E+01_JPRB,5.9581E+01_JPRB,4.7665E+01_JPRB,3.5749E+01_JPRB,&
+&2.3833E+01_JPRB,1.3383E+01_JPRB,1.9735E+01_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&1.2051E+02_JPRB,1.0545E+02_JPRB,9.0386E+01_JPRB,7.5322E+01_JPRB,6.0257E+01_JPRB,4.5193E+01_JPRB,&
+&3.0129E+01_JPRB,1.5439E+01_JPRB,2.1688E+01_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&1.4852E+02_JPRB,1.2996E+02_JPRB,1.1139E+02_JPRB,9.2828E+01_JPRB,7.4262E+01_JPRB,5.5697E+01_JPRB,&
+&3.7131E+01_JPRB,1.8572E+01_JPRB,2.3613E+01_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&4.5833E+01_JPRB,4.0104E+01_JPRB,3.4375E+01_JPRB,2.8646E+01_JPRB,2.2917E+01_JPRB,1.7188E+01_JPRB,&
+&1.3524E+01_JPRB,1.4143E+01_JPRB,1.6776E+01_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&6.3459E+01_JPRB,5.5527E+01_JPRB,4.7594E+01_JPRB,3.9662E+01_JPRB,3.1730E+01_JPRB,2.3797E+01_JPRB,&
+&1.6331E+01_JPRB,1.4451E+01_JPRB,1.6850E+01_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&8.4502E+01_JPRB,7.3939E+01_JPRB,6.3376E+01_JPRB,5.2814E+01_JPRB,4.2251E+01_JPRB,3.1688E+01_JPRB,&
+&2.1126E+01_JPRB,1.4779E+01_JPRB,1.6907E+01_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&1.0912E+02_JPRB,9.5484E+01_JPRB,8.1843E+01_JPRB,6.8203E+01_JPRB,5.4562E+01_JPRB,4.0922E+01_JPRB,&
+&2.7281E+01_JPRB,1.5904E+01_JPRB,1.6987E+01_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&1.3712E+02_JPRB,1.1998E+02_JPRB,1.0284E+02_JPRB,8.5701E+01_JPRB,6.8561E+01_JPRB,5.1421E+01_JPRB,&
+&3.4281E+01_JPRB,1.8042E+01_JPRB,1.7134E+01_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&3.7621E+01_JPRB,3.2918E+01_JPRB,2.8216E+01_JPRB,2.3513E+01_JPRB,1.8810E+01_JPRB,1.5213E+01_JPRB,&
+&1.4972E+01_JPRB,1.6713E+01_JPRB,1.9607E+01_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&5.3640E+01_JPRB,4.6935E+01_JPRB,4.0230E+01_JPRB,3.3525E+01_JPRB,2.6820E+01_JPRB,2.0195E+01_JPRB,&
+&1.6296E+01_JPRB,1.6983E+01_JPRB,1.9709E+01_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&7.3434E+01_JPRB,6.4254E+01_JPRB,5.5075E+01_JPRB,4.5896E+01_JPRB,3.6717E+01_JPRB,2.7538E+01_JPRB,&
+&1.9356E+01_JPRB,1.7364E+01_JPRB,1.9752E+01_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&9.6831E+01_JPRB,8.4727E+01_JPRB,7.2623E+01_JPRB,6.0519E+01_JPRB,4.8415E+01_JPRB,3.6311E+01_JPRB,&
+&2.4262E+01_JPRB,1.7815E+01_JPRB,1.9747E+01_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&1.2364E+02_JPRB,1.0818E+02_JPRB,9.2728E+01_JPRB,7.7274E+01_JPRB,6.1819E+01_JPRB,4.6364E+01_JPRB,&
+&3.0909E+01_JPRB,1.8880E+01_JPRB,1.9719E+01_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&2.9612E+01_JPRB,2.5911E+01_JPRB,2.2209E+01_JPRB,1.8508E+01_JPRB,1.5714E+01_JPRB,1.5485E+01_JPRB,&
+&1.7513E+01_JPRB,1.9803E+01_JPRB,2.3106E+01_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&4.3748E+01_JPRB,3.8279E+01_JPRB,3.2811E+01_JPRB,2.7342E+01_JPRB,2.1877E+01_JPRB,1.8205E+01_JPRB,&
+&1.8101E+01_JPRB,2.0115E+01_JPRB,2.3246E+01_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&6.1468E+01_JPRB,5.3784E+01_JPRB,4.6101E+01_JPRB,3.8417E+01_JPRB,3.0734E+01_JPRB,2.3328E+01_JPRB,&
+&1.9453E+01_JPRB,2.0483E+01_JPRB,2.3324E+01_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&8.2819E+01_JPRB,7.2467E+01_JPRB,6.2114E+01_JPRB,5.1762E+01_JPRB,4.1410E+01_JPRB,3.1057E+01_JPRB,&
+&2.2516E+01_JPRB,2.0832E+01_JPRB,2.3358E+01_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&1.0782E+02_JPRB,9.4345E+01_JPRB,8.0867E+01_JPRB,6.7389E+01_JPRB,5.3911E+01_JPRB,4.0434E+01_JPRB,&
+&2.7416E+01_JPRB,2.1303E+01_JPRB,2.3341E+01_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&2.2563E+01_JPRB,1.9743E+01_JPRB,1.6922E+01_JPRB,1.4880E+01_JPRB,1.5210E+01_JPRB,1.7595E+01_JPRB,&
+&2.0450E+01_JPRB,2.3517E+01_JPRB,2.7272E+01_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&3.4511E+01_JPRB,3.0197E+01_JPRB,2.5883E+01_JPRB,2.1569E+01_JPRB,1.8701E+01_JPRB,1.8664E+01_JPRB,&
+&2.1070E+01_JPRB,2.3724E+01_JPRB,2.7469E+01_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&4.9903E+01_JPRB,4.3665E+01_JPRB,3.7427E+01_JPRB,3.1189E+01_JPRB,2.5108E+01_JPRB,2.1510E+01_JPRB,&
+&2.1786E+01_JPRB,2.4110E+01_JPRB,2.7600E+01_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&6.8998E+01_JPRB,6.0373E+01_JPRB,5.1749E+01_JPRB,4.3124E+01_JPRB,3.4499E+01_JPRB,2.6735E+01_JPRB,&
+&2.3147E+01_JPRB,2.4558E+01_JPRB,2.7662E+01_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&9.2035E+01_JPRB,8.0530E+01_JPRB,6.9026E+01_JPRB,5.7522E+01_JPRB,4.6017E+01_JPRB,3.4527E+01_JPRB,&
+&2.6142E+01_JPRB,2.5028E+01_JPRB,2.7662E+01_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&1.6646E+01_JPRB,1.4565E+01_JPRB,1.2937E+01_JPRB,1.3876E+01_JPRB,1.6955E+01_JPRB,2.0502E+01_JPRB,&
+&2.4054E+01_JPRB,2.7834E+01_JPRB,3.2161E+01_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&2.6448E+01_JPRB,2.3142E+01_JPRB,1.9836E+01_JPRB,1.7715E+01_JPRB,1.8335E+01_JPRB,2.1296E+01_JPRB,&
+&2.4653E+01_JPRB,2.8077E+01_JPRB,3.2424E+01_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&3.9552E+01_JPRB,3.4608E+01_JPRB,2.9664E+01_JPRB,2.4793E+01_JPRB,2.2053E+01_JPRB,2.2399E+01_JPRB,&
+&2.5322E+01_JPRB,2.8464E+01_JPRB,3.2607E+01_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&5.6374E+01_JPRB,4.9327E+01_JPRB,4.2280E+01_JPRB,3.5233E+01_JPRB,2.8686E+01_JPRB,2.5344E+01_JPRB,&
+&2.6090E+01_JPRB,2.8900E+01_JPRB,3.2702E+01_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&7.7053E+01_JPRB,6.7421E+01_JPRB,5.7790E+01_JPRB,4.8158E+01_JPRB,3.8527E+01_JPRB,3.0635E+01_JPRB,&
+&2.7529E+01_JPRB,2.9328E+01_JPRB,3.2729E+01_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&1.1833E+01_JPRB,1.0384E+01_JPRB,1.1459E+01_JPRB,1.5199E+01_JPRB,1.9504E+01_JPRB,2.3789E+01_JPRB,&
+&2.8102E+01_JPRB,3.2786E+01_JPRB,3.7785E+01_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&1.9655E+01_JPRB,1.7198E+01_JPRB,1.5507E+01_JPRB,1.6804E+01_JPRB,2.0431E+01_JPRB,2.4589E+01_JPRB,&
+&2.8753E+01_JPRB,3.3108E+01_JPRB,3.8143E+01_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&3.0574E+01_JPRB,2.6753E+01_JPRB,2.2935E+01_JPRB,2.1004E+01_JPRB,2.2051E+01_JPRB,2.5542E+01_JPRB,&
+&2.9510E+01_JPRB,3.3363E+01_JPRB,3.8391E+01_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&4.4893E+01_JPRB,3.9281E+01_JPRB,3.3669E+01_JPRB,2.8405E+01_JPRB,2.5980E+01_JPRB,2.6856E+01_JPRB,&
+&3.0337E+01_JPRB,3.3859E+01_JPRB,3.8531E+01_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&6.2714E+01_JPRB,5.4875E+01_JPRB,4.7035E+01_JPRB,3.9196E+01_JPRB,3.2630E+01_JPRB,2.9798E+01_JPRB,&
+&3.1253E+01_JPRB,3.4423E+01_JPRB,3.8580E+01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&8.5124E+00_JPRB,8.2727E+00_JPRB,1.2161E+01_JPRB,1.7400E+01_JPRB,2.2620E+01_JPRB,2.7747E+01_JPRB,&
+&3.2952E+01_JPRB,3.8443E+01_JPRB,4.4221E+01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&1.4801E+01_JPRB,1.2999E+01_JPRB,1.4181E+01_JPRB,1.8385E+01_JPRB,2.3543E+01_JPRB,2.8614E+01_JPRB,&
+&3.3590E+01_JPRB,3.8847E+01_JPRB,4.4675E+01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&2.3770E+01_JPRB,2.0799E+01_JPRB,1.8887E+01_JPRB,2.0455E+01_JPRB,2.4642E+01_JPRB,2.9573E+01_JPRB,&
+&3.4392E+01_JPRB,3.9131E+01_JPRB,4.4994E+01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&3.5762E+01_JPRB,3.1292E+01_JPRB,2.6896E+01_JPRB,2.5061E+01_JPRB,2.6502E+01_JPRB,3.0662E+01_JPRB,&
+&3.5247E+01_JPRB,3.9648E+01_JPRB,4.5184E+01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&5.1160E+01_JPRB,4.4765E+01_JPRB,3.8370E+01_JPRB,3.2741E+01_JPRB,3.0611E+01_JPRB,3.2021E+01_JPRB,&
+&3.6131E+01_JPRB,4.0213E+01_JPRB,4.5252E+01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&7.9777E+00_JPRB,8.7265E+00_JPRB,1.4218E+01_JPRB,2.0419E+01_JPRB,2.6536E+01_JPRB,3.2537E+01_JPRB,&
+&3.8615E+01_JPRB,4.5051E+01_JPRB,5.1748E+01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&1.3839E+01_JPRB,1.2575E+01_JPRB,1.5679E+01_JPRB,2.1487E+01_JPRB,2.7590E+01_JPRB,3.3521E+01_JPRB,&
+&3.9346E+01_JPRB,4.5471E+01_JPRB,5.2220E+01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&2.2213E+01_JPRB,1.9436E+01_JPRB,1.9340E+01_JPRB,2.2978E+01_JPRB,2.8775E+01_JPRB,3.4623E+01_JPRB,&
+&4.0260E+01_JPRB,4.5752E+01_JPRB,5.2534E+01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&3.3533E+01_JPRB,2.9341E+01_JPRB,2.5981E+01_JPRB,2.6492E+01_JPRB,3.0190E+01_JPRB,3.5801E+01_JPRB,&
+&4.1239E+01_JPRB,4.6338E+01_JPRB,5.2703E+01_JPRB/)
+KAO( :, 5,11,14) = (/&
+&4.8125E+01_JPRB,4.2109E+01_JPRB,3.6128E+01_JPRB,3.2789E+01_JPRB,3.3249E+01_JPRB,3.7092E+01_JPRB,&
+&4.2227E+01_JPRB,4.6984E+01_JPRB,5.2733E+01_JPRB/)
+KAO( :, 1,12,14) = (/&
+&7.3404E+00_JPRB,9.4591E+00_JPRB,1.6537E+01_JPRB,2.3797E+01_JPRB,3.0901E+01_JPRB,3.7866E+01_JPRB,&
+&4.4903E+01_JPRB,5.2386E+01_JPRB,6.0116E+01_JPRB/)
+KAO( :, 2,12,14) = (/&
+&1.2760E+01_JPRB,1.2502E+01_JPRB,1.7728E+01_JPRB,2.4979E+01_JPRB,3.2095E+01_JPRB,3.8976E+01_JPRB,&
+&4.5735E+01_JPRB,5.2811E+01_JPRB,6.0596E+01_JPRB/)
+KAO( :, 3,12,14) = (/&
+&2.0574E+01_JPRB,1.8262E+01_JPRB,2.0491E+01_JPRB,2.6348E+01_JPRB,3.3404E+01_JPRB,4.0219E+01_JPRB,&
+&4.6757E+01_JPRB,5.3073E+01_JPRB,6.0869E+01_JPRB/)
+KAO( :, 4,12,14) = (/&
+&3.1115E+01_JPRB,2.7226E+01_JPRB,2.5855E+01_JPRB,2.8871E+01_JPRB,3.4864E+01_JPRB,4.1538E+01_JPRB,&
+&4.7864E+01_JPRB,5.3711E+01_JPRB,6.0982E+01_JPRB/)
+KAO( :, 5,12,14) = (/&
+&4.4619E+01_JPRB,3.9042E+01_JPRB,3.4233E+01_JPRB,3.3732E+01_JPRB,3.6915E+01_JPRB,4.2904E+01_JPRB,&
+&4.8966E+01_JPRB,5.4437E+01_JPRB,6.0955E+01_JPRB/)
+KAO( :, 1,13,14) = (/&
+&6.6733E+00_JPRB,1.0528E+01_JPRB,1.9102E+01_JPRB,2.7491E+01_JPRB,3.5658E+01_JPRB,4.3660E+01_JPRB,&
+&5.1735E+01_JPRB,6.0358E+01_JPRB,6.9219E+01_JPRB/)
+KAO( :, 2,13,14) = (/&
+&1.1655E+01_JPRB,1.2870E+01_JPRB,2.0329E+01_JPRB,2.8808E+01_JPRB,3.6997E+01_JPRB,4.4910E+01_JPRB,&
+&5.2656E+01_JPRB,6.0744E+01_JPRB,6.9651E+01_JPRB/)
+KAO( :, 3,13,14) = (/&
+&1.8767E+01_JPRB,1.7501E+01_JPRB,2.2287E+01_JPRB,3.0262E+01_JPRB,3.8454E+01_JPRB,4.6291E+01_JPRB,&
+&5.3806E+01_JPRB,6.1028E+01_JPRB,6.9886E+01_JPRB/)
+KAO( :, 4,13,14) = (/&
+&2.8382E+01_JPRB,2.4995E+01_JPRB,2.6394E+01_JPRB,3.2078E+01_JPRB,4.0012E+01_JPRB,4.7748E+01_JPRB,&
+&5.5029E+01_JPRB,6.1702E+01_JPRB,6.9938E+01_JPRB/)
+KAO( :, 5,13,14) = (/&
+&4.0772E+01_JPRB,3.5676E+01_JPRB,3.3182E+01_JPRB,3.5686E+01_JPRB,4.1712E+01_JPRB,4.9244E+01_JPRB,&
+&5.6238E+01_JPRB,6.2475E+01_JPRB,6.9819E+01_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&1.1094E+02_JPRB,9.7072E+01_JPRB,8.3204E+01_JPRB,6.9337E+01_JPRB,5.5470E+01_JPRB,4.1602E+01_JPRB,&
+&2.7735E+01_JPRB,1.3867E+01_JPRB,4.4845E+01_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&1.4352E+02_JPRB,1.2558E+02_JPRB,1.0764E+02_JPRB,8.9703E+01_JPRB,7.1762E+01_JPRB,5.3822E+01_JPRB,&
+&3.5881E+01_JPRB,1.7941E+01_JPRB,5.0973E+01_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&1.8038E+02_JPRB,1.5783E+02_JPRB,1.3528E+02_JPRB,1.1274E+02_JPRB,9.0189E+01_JPRB,6.7642E+01_JPRB,&
+&4.5094E+01_JPRB,2.2547E+01_JPRB,5.7040E+01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&2.2134E+02_JPRB,1.9367E+02_JPRB,1.6600E+02_JPRB,1.3834E+02_JPRB,1.1067E+02_JPRB,8.3002E+01_JPRB,&
+&5.5334E+01_JPRB,2.7667E+01_JPRB,6.3000E+01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&2.6568E+02_JPRB,2.3247E+02_JPRB,1.9926E+02_JPRB,1.6605E+02_JPRB,1.3284E+02_JPRB,9.9630E+01_JPRB,&
+&6.6420E+01_JPRB,3.3210E+01_JPRB,6.8855E+01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&1.1363E+02_JPRB,9.9422E+01_JPRB,8.5219E+01_JPRB,7.1016E+01_JPRB,5.6813E+01_JPRB,4.2609E+01_JPRB,&
+&2.8406E+01_JPRB,1.4203E+01_JPRB,3.3096E+01_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&1.4930E+02_JPRB,1.3064E+02_JPRB,1.1197E+02_JPRB,9.3312E+01_JPRB,7.4650E+01_JPRB,5.5987E+01_JPRB,&
+&3.7325E+01_JPRB,1.8662E+01_JPRB,3.7888E+01_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&1.9010E+02_JPRB,1.6634E+02_JPRB,1.4258E+02_JPRB,1.1881E+02_JPRB,9.5050E+01_JPRB,7.1288E+01_JPRB,&
+&4.7525E+01_JPRB,2.3763E+01_JPRB,4.2686E+01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&2.3571E+02_JPRB,2.0625E+02_JPRB,1.7678E+02_JPRB,1.4732E+02_JPRB,1.1785E+02_JPRB,8.8391E+01_JPRB,&
+&5.8927E+01_JPRB,2.9464E+01_JPRB,4.7440E+01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&2.8549E+02_JPRB,2.4980E+02_JPRB,2.1412E+02_JPRB,1.7843E+02_JPRB,1.4274E+02_JPRB,1.0706E+02_JPRB,&
+&7.1372E+01_JPRB,3.5686E+01_JPRB,5.2117E+01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&1.0870E+02_JPRB,9.5115E+01_JPRB,8.1527E+01_JPRB,6.7939E+01_JPRB,5.4352E+01_JPRB,4.0764E+01_JPRB,&
+&2.7176E+01_JPRB,1.4092E+01_JPRB,1.9358E+01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&1.4594E+02_JPRB,1.2770E+02_JPRB,1.0946E+02_JPRB,9.1215E+01_JPRB,7.2972E+01_JPRB,5.4729E+01_JPRB,&
+&3.6486E+01_JPRB,1.8243E+01_JPRB,2.1671E+01_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&1.8927E+02_JPRB,1.6561E+02_JPRB,1.4196E+02_JPRB,1.1830E+02_JPRB,9.4637E+01_JPRB,7.0978E+01_JPRB,&
+&4.7319E+01_JPRB,2.3659E+01_JPRB,2.4176E+01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&2.3825E+02_JPRB,2.0847E+02_JPRB,1.7869E+02_JPRB,1.4891E+02_JPRB,1.1913E+02_JPRB,8.9345E+01_JPRB,&
+&5.9563E+01_JPRB,2.9782E+01_JPRB,2.6798E+01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&2.9226E+02_JPRB,2.5573E+02_JPRB,2.1920E+02_JPRB,1.8266E+02_JPRB,1.4613E+02_JPRB,1.0960E+02_JPRB,&
+&7.3065E+01_JPRB,3.6533E+01_JPRB,2.9446E+01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&1.0014E+02_JPRB,8.7619E+01_JPRB,7.5102E+01_JPRB,6.2585E+01_JPRB,5.0068E+01_JPRB,3.7551E+01_JPRB,&
+&2.5034E+01_JPRB,1.5422E+01_JPRB,1.8003E+01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&1.3789E+02_JPRB,1.2065E+02_JPRB,1.0342E+02_JPRB,8.6180E+01_JPRB,6.8944E+01_JPRB,5.1708E+01_JPRB,&
+&3.4472E+01_JPRB,1.7683E+01_JPRB,1.8158E+01_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&1.8258E+02_JPRB,1.5976E+02_JPRB,1.3693E+02_JPRB,1.1411E+02_JPRB,9.1289E+01_JPRB,6.8467E+01_JPRB,&
+&4.5645E+01_JPRB,2.2822E+01_JPRB,1.8280E+01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&2.3380E+02_JPRB,2.0458E+02_JPRB,1.7535E+02_JPRB,1.4613E+02_JPRB,1.1690E+02_JPRB,8.7677E+01_JPRB,&
+&5.8451E+01_JPRB,2.9226E+01_JPRB,1.8394E+01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&2.9132E+02_JPRB,2.5490E+02_JPRB,2.1849E+02_JPRB,1.8207E+02_JPRB,1.4566E+02_JPRB,1.0924E+02_JPRB,&
+&7.2830E+01_JPRB,3.6415E+01_JPRB,1.8697E+01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&9.0165E+01_JPRB,7.8895E+01_JPRB,6.7624E+01_JPRB,5.6353E+01_JPRB,4.5083E+01_JPRB,3.3812E+01_JPRB,&
+&2.2547E+01_JPRB,1.8028E+01_JPRB,2.1110E+01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&1.2751E+02_JPRB,1.1157E+02_JPRB,9.5631E+01_JPRB,7.9692E+01_JPRB,6.3754E+01_JPRB,4.7815E+01_JPRB,&
+&3.1877E+01_JPRB,1.9044E+01_JPRB,2.1192E+01_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&1.7270E+02_JPRB,1.5111E+02_JPRB,1.2952E+02_JPRB,1.0794E+02_JPRB,8.6350E+01_JPRB,6.4762E+01_JPRB,&
+&4.3175E+01_JPRB,2.2254E+01_JPRB,2.1273E+01_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&2.2614E+02_JPRB,1.9787E+02_JPRB,1.6960E+02_JPRB,1.4133E+02_JPRB,1.1307E+02_JPRB,8.4801E+01_JPRB,&
+&5.6534E+01_JPRB,2.8267E+01_JPRB,2.1307E+01_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&2.8741E+02_JPRB,2.5148E+02_JPRB,2.1556E+02_JPRB,1.7963E+02_JPRB,1.4370E+02_JPRB,1.0778E+02_JPRB,&
+&7.1852E+01_JPRB,3.5926E+01_JPRB,2.1269E+01_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&7.8026E+01_JPRB,6.8273E+01_JPRB,5.8519E+01_JPRB,4.8766E+01_JPRB,3.9013E+01_JPRB,2.9260E+01_JPRB,&
+&2.1248E+01_JPRB,2.1634E+01_JPRB,2.5118E+01_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&1.1411E+02_JPRB,9.9849E+01_JPRB,8.5585E+01_JPRB,7.1321E+01_JPRB,5.7057E+01_JPRB,4.2792E+01_JPRB,&
+&2.8533E+01_JPRB,2.2027E+01_JPRB,2.5242E+01_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&1.5933E+02_JPRB,1.3941E+02_JPRB,1.1950E+02_JPRB,9.9580E+01_JPRB,7.9664E+01_JPRB,5.9748E+01_JPRB,&
+&3.9832E+01_JPRB,2.3409E+01_JPRB,2.5326E+01_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&2.1384E+02_JPRB,1.8711E+02_JPRB,1.6038E+02_JPRB,1.3365E+02_JPRB,1.0692E+02_JPRB,8.0189E+01_JPRB,&
+&5.3459E+01_JPRB,2.7570E+01_JPRB,2.5371E+01_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&2.7735E+02_JPRB,2.4268E+02_JPRB,2.0801E+02_JPRB,1.7334E+02_JPRB,1.3868E+02_JPRB,1.0401E+02_JPRB,&
+&6.9338E+01_JPRB,3.4669E+01_JPRB,2.5359E+01_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&6.5827E+01_JPRB,5.7598E+01_JPRB,4.9370E+01_JPRB,4.1142E+01_JPRB,3.2913E+01_JPRB,2.5331E+01_JPRB,&
+&2.3025E+01_JPRB,2.5936E+01_JPRB,2.9970E+01_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&1.0010E+02_JPRB,8.7584E+01_JPRB,7.5072E+01_JPRB,6.2560E+01_JPRB,5.0048E+01_JPRB,3.7536E+01_JPRB,&
+&2.7016E+01_JPRB,2.6117E+01_JPRB,3.0165E+01_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&1.4417E+02_JPRB,1.2615E+02_JPRB,1.0813E+02_JPRB,9.0105E+01_JPRB,7.2084E+01_JPRB,5.4063E+01_JPRB,&
+&3.6043E+01_JPRB,2.6827E+01_JPRB,3.0311E+01_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&1.9838E+02_JPRB,1.7359E+02_JPRB,1.4879E+02_JPRB,1.2399E+02_JPRB,9.9192E+01_JPRB,7.4394E+01_JPRB,&
+&4.9596E+01_JPRB,2.8984E+01_JPRB,3.0397E+01_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&2.6264E+02_JPRB,2.2981E+02_JPRB,1.9698E+02_JPRB,1.6415E+02_JPRB,1.3132E+02_JPRB,9.8492E+01_JPRB,&
+&6.5661E+01_JPRB,3.3916E+01_JPRB,3.0409E+01_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&5.4379E+01_JPRB,4.7581E+01_JPRB,4.0784E+01_JPRB,3.3987E+01_JPRB,2.7376E+01_JPRB,2.4616E+01_JPRB,&
+&2.6821E+01_JPRB,3.1053E+01_JPRB,3.5784E+01_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&8.6031E+01_JPRB,7.5277E+01_JPRB,6.4523E+01_JPRB,5.3770E+01_JPRB,4.3016E+01_JPRB,3.2712E+01_JPRB,&
+&2.8406E+01_JPRB,3.1344E+01_JPRB,3.6100E+01_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&1.2793E+02_JPRB,1.1194E+02_JPRB,9.5951E+01_JPRB,7.9959E+01_JPRB,6.3967E+01_JPRB,4.7975E+01_JPRB,&
+&3.4121E+01_JPRB,3.1758E+01_JPRB,3.6313E+01_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&1.8066E+02_JPRB,1.5808E+02_JPRB,1.3550E+02_JPRB,1.1291E+02_JPRB,9.0332E+01_JPRB,6.7749E+01_JPRB,&
+&4.5233E+01_JPRB,3.2608E+01_JPRB,3.6463E+01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&2.4439E+02_JPRB,2.1384E+02_JPRB,1.8329E+02_JPRB,1.5274E+02_JPRB,1.2219E+02_JPRB,9.1646E+01_JPRB,&
+&6.1097E+01_JPRB,3.5772E+01_JPRB,3.6527E+01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&4.3573E+01_JPRB,3.8127E+01_JPRB,3.2680E+01_JPRB,2.7311E+01_JPRB,2.5199E+01_JPRB,2.7215E+01_JPRB,&
+&3.1843E+01_JPRB,3.7151E+01_JPRB,4.2720E+01_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&7.1953E+01_JPRB,6.2959E+01_JPRB,5.3964E+01_JPRB,4.4970E+01_JPRB,3.6145E+01_JPRB,3.1469E+01_JPRB,&
+&3.2757E+01_JPRB,3.7549E+01_JPRB,4.3159E+01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&1.1068E+02_JPRB,9.6849E+01_JPRB,8.3014E+01_JPRB,6.9178E+01_JPRB,5.5342E+01_JPRB,4.2149E+01_JPRB,&
+&3.5486E+01_JPRB,3.7854E+01_JPRB,4.3494E+01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&1.6091E+02_JPRB,1.4079E+02_JPRB,1.2068E+02_JPRB,1.0057E+02_JPRB,8.0454E+01_JPRB,6.0340E+01_JPRB,&
+&4.2919E+01_JPRB,3.8576E+01_JPRB,4.3720E+01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&2.2364E+02_JPRB,1.9568E+02_JPRB,1.6773E+02_JPRB,1.3977E+02_JPRB,1.1182E+02_JPRB,8.3864E+01_JPRB,&
+&5.6032E+01_JPRB,3.9906E+01_JPRB,4.3837E+01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&3.5400E+01_JPRB,3.0975E+01_JPRB,2.6550E+01_JPRB,2.4562E+01_JPRB,2.6642E+01_JPRB,3.2016E+01_JPRB,&
+&3.8070E+01_JPRB,4.4415E+01_JPRB,5.0995E+01_JPRB/)
+KAO( :, 2,10,15) = (/&
+&6.0807E+01_JPRB,5.3206E+01_JPRB,4.5605E+01_JPRB,3.8054E+01_JPRB,3.3439E+01_JPRB,3.3829E+01_JPRB,&
+&3.8722E+01_JPRB,4.4959E+01_JPRB,5.1600E+01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&9.6798E+01_JPRB,8.4698E+01_JPRB,7.2598E+01_JPRB,6.0498E+01_JPRB,4.8510E+01_JPRB,4.0770E+01_JPRB,&
+&4.0001E+01_JPRB,4.5358E+01_JPRB,5.2042E+01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&1.4501E+02_JPRB,1.2688E+02_JPRB,1.0876E+02_JPRB,9.0630E+01_JPRB,7.2504E+01_JPRB,5.4950E+01_JPRB,&
+&4.4708E+01_JPRB,4.5865E+01_JPRB,5.2368E+01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&2.0627E+02_JPRB,1.8049E+02_JPRB,1.5470E+02_JPRB,1.2892E+02_JPRB,1.0314E+02_JPRB,7.7351E+01_JPRB,&
+&5.4677E+01_JPRB,4.6645E+01_JPRB,5.2546E+01_JPRB/)
+KAO( :, 1,11,15) = (/&
+&3.7164E+01_JPRB,3.2519E+01_JPRB,2.8213E+01_JPRB,2.7852E+01_JPRB,3.1623E+01_JPRB,3.8446E+01_JPRB,&
+&4.5726E+01_JPRB,5.3347E+01_JPRB,6.1167E+01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&6.4161E+01_JPRB,5.6141E+01_JPRB,4.8121E+01_JPRB,4.0753E+01_JPRB,3.7907E+01_JPRB,4.0136E+01_JPRB,&
+&4.6490E+01_JPRB,5.3971E+01_JPRB,6.1868E+01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&1.0256E+02_JPRB,8.9738E+01_JPRB,7.6919E+01_JPRB,6.4099E+01_JPRB,5.2370E+01_JPRB,4.6558E+01_JPRB,&
+&4.7795E+01_JPRB,5.4418E+01_JPRB,6.2373E+01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&1.5386E+02_JPRB,1.3463E+02_JPRB,1.1539E+02_JPRB,9.6161E+01_JPRB,7.6929E+01_JPRB,6.0144E+01_JPRB,&
+&5.2042E+01_JPRB,5.4998E+01_JPRB,6.2715E+01_JPRB/)
+KAO( :, 5,11,15) = (/&
+&2.1904E+02_JPRB,1.9166E+02_JPRB,1.6428E+02_JPRB,1.3690E+02_JPRB,1.0952E+02_JPRB,8.2243E+01_JPRB,&
+&6.1497E+01_JPRB,5.5854E+01_JPRB,6.2906E+01_JPRB/)
+KAO( :, 1,12,15) = (/&
+&3.8871E+01_JPRB,3.4012E+01_JPRB,3.0393E+01_JPRB,3.1931E+01_JPRB,3.7660E+01_JPRB,4.6060E+01_JPRB,&
+&5.4792E+01_JPRB,6.3924E+01_JPRB,7.3229E+01_JPRB/)
+KAO( :, 2,12,15) = (/&
+&6.7284E+01_JPRB,5.8873E+01_JPRB,5.0463E+01_JPRB,4.4214E+01_JPRB,4.3443E+01_JPRB,4.7760E+01_JPRB,&
+&5.5669E+01_JPRB,6.4596E+01_JPRB,7.3985E+01_JPRB/)
+KAO( :, 3,12,15) = (/&
+&1.0766E+02_JPRB,9.4199E+01_JPRB,8.0742E+01_JPRB,6.7302E+01_JPRB,5.7248E+01_JPRB,5.3670E+01_JPRB,&
+&5.7112E+01_JPRB,6.5078E+01_JPRB,7.4551E+01_JPRB/)
+KAO( :, 4,12,15) = (/&
+&1.6163E+02_JPRB,1.4143E+02_JPRB,1.2122E+02_JPRB,1.0102E+02_JPRB,8.1042E+01_JPRB,6.6522E+01_JPRB,&
+&6.0901E+01_JPRB,6.5731E+01_JPRB,7.4885E+01_JPRB/)
+KAO( :, 5,12,15) = (/&
+&2.3044E+02_JPRB,2.0164E+02_JPRB,1.7283E+02_JPRB,1.4403E+02_JPRB,1.1522E+02_JPRB,8.7709E+01_JPRB,&
+&6.9646E+01_JPRB,6.6631E+01_JPRB,7.5001E+01_JPRB/)
+KAO( :, 1,13,15) = (/&
+&4.0246E+01_JPRB,3.5215E+01_JPRB,3.3104E+01_JPRB,3.6905E+01_JPRB,4.4893E+01_JPRB,5.4993E+01_JPRB,&
+&6.5407E+01_JPRB,7.6308E+01_JPRB,8.7364E+01_JPRB/)
+KAO( :, 2,13,15) = (/&
+&6.9680E+01_JPRB,6.0970E+01_JPRB,5.2454E+01_JPRB,4.8453E+01_JPRB,5.0138E+01_JPRB,5.6837E+01_JPRB,&
+&6.6412E+01_JPRB,7.7026E+01_JPRB,8.8187E+01_JPRB/)
+KAO( :, 3,13,15) = (/&
+&1.1160E+02_JPRB,9.7650E+01_JPRB,8.3700E+01_JPRB,7.0502E+01_JPRB,6.3014E+01_JPRB,6.2089E+01_JPRB,&
+&6.7983E+01_JPRB,7.7487E+01_JPRB,8.8731E+01_JPRB/)
+KAO( :, 4,13,15) = (/&
+&1.6767E+02_JPRB,1.4671E+02_JPRB,1.2575E+02_JPRB,1.0479E+02_JPRB,8.5648E+01_JPRB,7.3989E+01_JPRB,&
+&7.1252E+01_JPRB,7.8174E+01_JPRB,8.8985E+01_JPRB/)
+KAO( :, 5,13,15) = (/&
+&2.3895E+02_JPRB,2.0908E+02_JPRB,1.7922E+02_JPRB,1.4935E+02_JPRB,1.1948E+02_JPRB,9.3985E+01_JPRB,&
+&7.9182E+01_JPRB,7.9098E+01_JPRB,8.9007E+01_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&1.3674E+02_JPRB,1.1964E+02_JPRB,1.0255E+02_JPRB,8.5460E+01_JPRB,6.8368E+01_JPRB,5.1276E+01_JPRB,&
+&3.4184E+01_JPRB,1.7092E+01_JPRB,4.7777E+01_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&1.7779E+02_JPRB,1.5556E+02_JPRB,1.3334E+02_JPRB,1.1112E+02_JPRB,8.8894E+01_JPRB,6.6670E+01_JPRB,&
+&4.4447E+01_JPRB,2.2223E+01_JPRB,5.4515E+01_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&2.2447E+02_JPRB,1.9641E+02_JPRB,1.6835E+02_JPRB,1.4030E+02_JPRB,1.1224E+02_JPRB,8.4177E+01_JPRB,&
+&5.6118E+01_JPRB,2.8059E+01_JPRB,6.1237E+01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&2.7629E+02_JPRB,2.4176E+02_JPRB,2.0722E+02_JPRB,1.7268E+02_JPRB,1.3815E+02_JPRB,1.0361E+02_JPRB,&
+&6.9073E+01_JPRB,3.4537E+01_JPRB,6.7881E+01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&3.3259E+02_JPRB,2.9102E+02_JPRB,2.4944E+02_JPRB,2.0787E+02_JPRB,1.6630E+02_JPRB,1.2472E+02_JPRB,&
+&8.3148E+01_JPRB,4.1574E+01_JPRB,7.4387E+01_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&1.4678E+02_JPRB,1.2843E+02_JPRB,1.1009E+02_JPRB,9.1739E+01_JPRB,7.3391E+01_JPRB,5.5044E+01_JPRB,&
+&3.6696E+01_JPRB,1.8348E+01_JPRB,3.6081E+01_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&1.9364E+02_JPRB,1.6943E+02_JPRB,1.4523E+02_JPRB,1.2102E+02_JPRB,9.6819E+01_JPRB,7.2614E+01_JPRB,&
+&4.8409E+01_JPRB,2.4205E+01_JPRB,4.1498E+01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&2.4749E+02_JPRB,2.1655E+02_JPRB,1.8562E+02_JPRB,1.5468E+02_JPRB,1.2374E+02_JPRB,9.2808E+01_JPRB,&
+&6.1872E+01_JPRB,3.0936E+01_JPRB,4.6929E+01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&3.0786E+02_JPRB,2.6938E+02_JPRB,2.3089E+02_JPRB,1.9241E+02_JPRB,1.5393E+02_JPRB,1.1545E+02_JPRB,&
+&7.6965E+01_JPRB,3.8482E+01_JPRB,5.2308E+01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&3.7405E+02_JPRB,3.2730E+02_JPRB,2.8054E+02_JPRB,2.3378E+02_JPRB,1.8703E+02_JPRB,1.4027E+02_JPRB,&
+&9.3513E+01_JPRB,4.6757E+01_JPRB,5.7603E+01_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&1.4770E+02_JPRB,1.2924E+02_JPRB,1.1078E+02_JPRB,9.2315E+01_JPRB,7.3852E+01_JPRB,5.5389E+01_JPRB,&
+&3.6926E+01_JPRB,1.8463E+01_JPRB,2.0017E+01_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&1.9922E+02_JPRB,1.7432E+02_JPRB,1.4941E+02_JPRB,1.2451E+02_JPRB,9.9609E+01_JPRB,7.4707E+01_JPRB,&
+&4.9805E+01_JPRB,2.4902E+01_JPRB,2.3072E+01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&2.5951E+02_JPRB,2.2707E+02_JPRB,1.9463E+02_JPRB,1.6219E+02_JPRB,1.2975E+02_JPRB,9.7315E+01_JPRB,&
+&6.4877E+01_JPRB,3.2438E+01_JPRB,2.6326E+01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&3.2798E+02_JPRB,2.8698E+02_JPRB,2.4598E+02_JPRB,2.0498E+02_JPRB,1.6399E+02_JPRB,1.2299E+02_JPRB,&
+&8.1994E+01_JPRB,4.0997E+01_JPRB,2.9574E+01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&4.0406E+02_JPRB,3.5355E+02_JPRB,3.0305E+02_JPRB,2.5254E+02_JPRB,2.0203E+02_JPRB,1.5152E+02_JPRB,&
+&1.0102E+02_JPRB,5.0508E+01_JPRB,3.2777E+01_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&1.4422E+02_JPRB,1.2619E+02_JPRB,1.0816E+02_JPRB,9.0137E+01_JPRB,7.2109E+01_JPRB,5.4082E+01_JPRB,&
+&3.6055E+01_JPRB,1.8027E+01_JPRB,1.8526E+01_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&1.9978E+02_JPRB,1.7481E+02_JPRB,1.4983E+02_JPRB,1.2486E+02_JPRB,9.9890E+01_JPRB,7.4917E+01_JPRB,&
+&4.9945E+01_JPRB,2.4972E+01_JPRB,1.9155E+01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&2.6597E+02_JPRB,2.3273E+02_JPRB,1.9948E+02_JPRB,1.6623E+02_JPRB,1.3299E+02_JPRB,9.9740E+01_JPRB,&
+&6.6493E+01_JPRB,3.3247E+01_JPRB,1.9814E+01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&3.4257E+02_JPRB,2.9975E+02_JPRB,2.5693E+02_JPRB,2.1411E+02_JPRB,1.7128E+02_JPRB,1.2846E+02_JPRB,&
+&8.5642E+01_JPRB,4.2821E+01_JPRB,2.0371E+01_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&4.2875E+02_JPRB,3.7515E+02_JPRB,3.2156E+02_JPRB,2.6797E+02_JPRB,2.1437E+02_JPRB,1.6078E+02_JPRB,&
+&1.0719E+02_JPRB,5.3593E+01_JPRB,2.0835E+01_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&1.3899E+02_JPRB,1.2162E+02_JPRB,1.0425E+02_JPRB,8.6871E+01_JPRB,6.9497E+01_JPRB,5.2123E+01_JPRB,&
+&3.4748E+01_JPRB,1.8596E+01_JPRB,2.1711E+01_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&1.9805E+02_JPRB,1.7329E+02_JPRB,1.4854E+02_JPRB,1.2378E+02_JPRB,9.9025E+01_JPRB,7.4269E+01_JPRB,&
+&4.9513E+01_JPRB,2.4756E+01_JPRB,2.1848E+01_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&2.7005E+02_JPRB,2.3630E+02_JPRB,2.0254E+02_JPRB,1.6878E+02_JPRB,1.3503E+02_JPRB,1.0127E+02_JPRB,&
+&6.7514E+01_JPRB,3.3757E+01_JPRB,2.1967E+01_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&3.5478E+02_JPRB,3.1044E+02_JPRB,2.6609E+02_JPRB,2.2174E+02_JPRB,1.7739E+02_JPRB,1.3304E+02_JPRB,&
+&8.8696E+01_JPRB,4.4348E+01_JPRB,2.2139E+01_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&4.5175E+02_JPRB,3.9528E+02_JPRB,3.3881E+02_JPRB,2.8234E+02_JPRB,2.2588E+02_JPRB,1.6941E+02_JPRB,&
+&1.1294E+02_JPRB,5.6469E+01_JPRB,2.2377E+01_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&1.3013E+02_JPRB,1.1386E+02_JPRB,9.7595E+01_JPRB,8.1329E+01_JPRB,6.5064E+01_JPRB,4.8798E+01_JPRB,&
+&3.2532E+01_JPRB,2.2484E+01_JPRB,2.6076E+01_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&1.9160E+02_JPRB,1.6765E+02_JPRB,1.4370E+02_JPRB,1.1975E+02_JPRB,9.5800E+01_JPRB,7.1850E+01_JPRB,&
+&4.7900E+01_JPRB,2.3950E+01_JPRB,2.6232E+01_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&2.6831E+02_JPRB,2.3477E+02_JPRB,2.0123E+02_JPRB,1.6769E+02_JPRB,1.3415E+02_JPRB,1.0061E+02_JPRB,&
+&6.7076E+01_JPRB,3.3538E+01_JPRB,2.6352E+01_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&3.6064E+02_JPRB,3.1556E+02_JPRB,2.7048E+02_JPRB,2.2540E+02_JPRB,1.8032E+02_JPRB,1.3524E+02_JPRB,&
+&9.0160E+01_JPRB,4.5080E+01_JPRB,2.6414E+01_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&4.6794E+02_JPRB,4.0944E+02_JPRB,3.5095E+02_JPRB,2.9246E+02_JPRB,2.3397E+02_JPRB,1.7548E+02_JPRB,&
+&1.1698E+02_JPRB,5.8492E+01_JPRB,2.6392E+01_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&1.1956E+02_JPRB,1.0461E+02_JPRB,8.9667E+01_JPRB,7.4722E+01_JPRB,5.9778E+01_JPRB,4.4833E+01_JPRB,&
+&2.9889E+01_JPRB,2.7199E+01_JPRB,3.1421E+01_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&1.8238E+02_JPRB,1.5958E+02_JPRB,1.3678E+02_JPRB,1.1398E+02_JPRB,9.1188E+01_JPRB,6.8391E+01_JPRB,&
+&4.5594E+01_JPRB,2.7417E+01_JPRB,3.1636E+01_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&2.6306E+02_JPRB,2.3018E+02_JPRB,1.9730E+02_JPRB,1.6441E+02_JPRB,1.3153E+02_JPRB,9.8648E+01_JPRB,&
+&6.5766E+01_JPRB,3.2883E+01_JPRB,3.1799E+01_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&3.6216E+02_JPRB,3.1689E+02_JPRB,2.7162E+02_JPRB,2.2635E+02_JPRB,1.8108E+02_JPRB,1.3581E+02_JPRB,&
+&9.0539E+01_JPRB,4.5269E+01_JPRB,3.1905E+01_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&4.7940E+02_JPRB,4.1947E+02_JPRB,3.5955E+02_JPRB,2.9962E+02_JPRB,2.3970E+02_JPRB,1.7977E+02_JPRB,&
+&1.1985E+02_JPRB,5.9925E+01_JPRB,3.1925E+01_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&1.0811E+02_JPRB,9.4599E+01_JPRB,8.1085E+01_JPRB,6.7571E+01_JPRB,5.4057E+01_JPRB,4.0543E+01_JPRB,&
+&2.8198E+01_JPRB,3.2881E+01_JPRB,3.7875E+01_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&1.7137E+02_JPRB,1.4995E+02_JPRB,1.2853E+02_JPRB,1.0711E+02_JPRB,8.5687E+01_JPRB,6.4265E+01_JPRB,&
+&4.2843E+01_JPRB,3.3181E+01_JPRB,3.8195E+01_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&2.5494E+02_JPRB,2.2307E+02_JPRB,1.9121E+02_JPRB,1.5934E+02_JPRB,1.2747E+02_JPRB,9.5603E+01_JPRB,&
+&6.3736E+01_JPRB,3.3454E+01_JPRB,3.8440E+01_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&3.5993E+02_JPRB,3.1494E+02_JPRB,2.6995E+02_JPRB,2.2496E+02_JPRB,1.7997E+02_JPRB,1.3498E+02_JPRB,&
+&8.9984E+01_JPRB,4.4992E+01_JPRB,3.8593E+01_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&4.8664E+02_JPRB,4.2581E+02_JPRB,3.6498E+02_JPRB,3.0415E+02_JPRB,2.4332E+02_JPRB,1.8249E+02_JPRB,&
+&1.2166E+02_JPRB,6.0830E+01_JPRB,3.8660E+01_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&9.5566E+01_JPRB,8.3620E+01_JPRB,7.1674E+01_JPRB,5.9728E+01_JPRB,4.7783E+01_JPRB,3.5837E+01_JPRB,&
+&3.4022E+01_JPRB,3.9693E+01_JPRB,4.5621E+01_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&1.5795E+02_JPRB,1.3820E+02_JPRB,1.1846E+02_JPRB,9.8717E+01_JPRB,7.8974E+01_JPRB,5.9230E+01_JPRB,&
+&3.9487E+01_JPRB,4.0126E+01_JPRB,4.6102E+01_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&2.4293E+02_JPRB,2.1257E+02_JPRB,1.8220E+02_JPRB,1.5183E+02_JPRB,1.2147E+02_JPRB,9.1099E+01_JPRB,&
+&6.0733E+01_JPRB,4.0455E+01_JPRB,4.6460E+01_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&3.5246E+02_JPRB,3.0840E+02_JPRB,2.6435E+02_JPRB,2.2029E+02_JPRB,1.7623E+02_JPRB,1.3217E+02_JPRB,&
+&8.8115E+01_JPRB,4.4330E+01_JPRB,4.6688E+01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&4.8730E+02_JPRB,4.2639E+02_JPRB,3.6548E+02_JPRB,3.0456E+02_JPRB,2.4365E+02_JPRB,1.8274E+02_JPRB,&
+&1.2183E+02_JPRB,6.0913E+01_JPRB,4.6814E+01_JPRB/)
+KAO( :, 1,10,16) = (/&
+&8.6364E+01_JPRB,7.5568E+01_JPRB,6.4773E+01_JPRB,5.3977E+01_JPRB,4.3182E+01_JPRB,3.4440E+01_JPRB,&
+&4.1088E+01_JPRB,4.7936E+01_JPRB,5.5004E+01_JPRB/)
+KAO( :, 2,10,16) = (/&
+&1.4833E+02_JPRB,1.2979E+02_JPRB,1.1125E+02_JPRB,9.2705E+01_JPRB,7.4164E+01_JPRB,5.5623E+01_JPRB,&
+&4.1568E+01_JPRB,4.8496E+01_JPRB,5.5636E+01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&2.3518E+02_JPRB,2.0578E+02_JPRB,1.7638E+02_JPRB,1.4699E+02_JPRB,1.1759E+02_JPRB,8.8191E+01_JPRB,&
+&5.8794E+01_JPRB,4.8955E+01_JPRB,5.6147E+01_JPRB/)
+KAO( :, 4,10,16) = (/&
+&3.4963E+02_JPRB,3.0592E+02_JPRB,2.6222E+02_JPRB,2.1852E+02_JPRB,1.7481E+02_JPRB,1.3111E+02_JPRB,&
+&8.7406E+01_JPRB,4.9235E+01_JPRB,5.6450E+01_JPRB/)
+KAO( :, 5,10,16) = (/&
+&4.9302E+02_JPRB,4.3139E+02_JPRB,3.6977E+02_JPRB,3.0814E+02_JPRB,2.4651E+02_JPRB,1.8488E+02_JPRB,&
+&1.2326E+02_JPRB,6.1628E+01_JPRB,5.6644E+01_JPRB/)
+KAO( :, 1,11,16) = (/&
+&1.0149E+02_JPRB,8.8804E+01_JPRB,7.6118E+01_JPRB,6.3431E+01_JPRB,5.0745E+01_JPRB,4.1772E+01_JPRB,&
+&4.9883E+01_JPRB,5.8197E+01_JPRB,6.6698E+01_JPRB/)
+KAO( :, 2,11,16) = (/&
+&1.7380E+02_JPRB,1.5208E+02_JPRB,1.3035E+02_JPRB,1.0863E+02_JPRB,8.6902E+01_JPRB,6.5176E+01_JPRB,&
+&5.0425E+01_JPRB,5.8829E+01_JPRB,6.7412E+01_JPRB/)
+KAO( :, 3,11,16) = (/&
+&2.7485E+02_JPRB,2.4050E+02_JPRB,2.0614E+02_JPRB,1.7178E+02_JPRB,1.3743E+02_JPRB,1.0307E+02_JPRB,&
+&6.8713E+01_JPRB,5.9345E+01_JPRB,6.7990E+01_JPRB/)
+KAO( :, 4,11,16) = (/&
+&4.0747E+02_JPRB,3.5653E+02_JPRB,3.0560E+02_JPRB,2.5467E+02_JPRB,2.0373E+02_JPRB,1.5280E+02_JPRB,&
+&1.0187E+02_JPRB,5.9645E+01_JPRB,6.8320E+01_JPRB/)
+KAO( :, 5,11,16) = (/&
+&5.7295E+02_JPRB,5.0133E+02_JPRB,4.2971E+02_JPRB,3.5809E+02_JPRB,2.8648E+02_JPRB,2.1486E+02_JPRB,&
+&1.4324E+02_JPRB,7.2192E+01_JPRB,6.8483E+01_JPRB/)
+KAO( :, 1,12,16) = (/&
+&1.1827E+02_JPRB,1.0349E+02_JPRB,8.8705E+01_JPRB,7.3921E+01_JPRB,5.9137E+01_JPRB,5.0630E+01_JPRB,&
+&6.0438E+01_JPRB,7.0510E+01_JPRB,8.0746E+01_JPRB/)
+KAO( :, 2,12,16) = (/&
+&2.0179E+02_JPRB,1.7656E+02_JPRB,1.5134E+02_JPRB,1.2612E+02_JPRB,1.0089E+02_JPRB,7.5670E+01_JPRB,&
+&6.1072E+01_JPRB,7.1251E+01_JPRB,8.1581E+01_JPRB/)
+KAO( :, 3,12,16) = (/&
+&3.1798E+02_JPRB,2.7824E+02_JPRB,2.3849E+02_JPRB,1.9874E+02_JPRB,1.5899E+02_JPRB,1.1924E+02_JPRB,&
+&7.9796E+01_JPRB,7.1750E+01_JPRB,8.2143E+01_JPRB/)
+KAO( :, 4,12,16) = (/&
+&4.7106E+02_JPRB,4.1218E+02_JPRB,3.5330E+02_JPRB,2.9441E+02_JPRB,2.3553E+02_JPRB,1.7665E+02_JPRB,&
+&1.1777E+02_JPRB,7.2076E+01_JPRB,8.2504E+01_JPRB/)
+KAO( :, 5,12,16) = (/&
+&6.6390E+02_JPRB,5.8091E+02_JPRB,4.9792E+02_JPRB,4.1494E+02_JPRB,3.3195E+02_JPRB,2.4896E+02_JPRB,&
+&1.6597E+02_JPRB,8.4840E+01_JPRB,8.2551E+01_JPRB/)
+KAO( :, 1,13,16) = (/&
+&1.3595E+02_JPRB,1.1896E+02_JPRB,1.0196E+02_JPRB,8.4968E+01_JPRB,6.8087E+01_JPRB,6.1225E+01_JPRB,&
+&7.3041E+01_JPRB,8.5214E+01_JPRB,9.7532E+01_JPRB/)
+KAO( :, 2,13,16) = (/&
+&2.3178E+02_JPRB,2.0280E+02_JPRB,1.7383E+02_JPRB,1.4486E+02_JPRB,1.1589E+02_JPRB,8.6916E+01_JPRB,&
+&7.3742E+01_JPRB,8.6032E+01_JPRB,9.8456E+01_JPRB/)
+KAO( :, 3,13,16) = (/&
+&3.6636E+02_JPRB,3.2056E+02_JPRB,2.7477E+02_JPRB,2.2897E+02_JPRB,1.8318E+02_JPRB,1.3738E+02_JPRB,&
+&9.2837E+01_JPRB,8.6498E+01_JPRB,9.8980E+01_JPRB/)
+KAO( :, 4,13,16) = (/&
+&5.4438E+02_JPRB,4.7633E+02_JPRB,4.0829E+02_JPRB,3.4024E+02_JPRB,2.7219E+02_JPRB,2.0414E+02_JPRB,&
+&1.3610E+02_JPRB,8.6750E+01_JPRB,9.9251E+01_JPRB/)
+KAO( :, 5,13,16) = (/&
+&7.6815E+02_JPRB,6.7213E+02_JPRB,5.7611E+02_JPRB,4.8009E+02_JPRB,3.8407E+02_JPRB,2.8805E+02_JPRB,&
+&1.9204E+02_JPRB,9.9763E+01_JPRB,9.9159E+01_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB15_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb16.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb16.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb16.F90	(revision 2160)
@@ -0,0 +1,17 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB16
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB16_00
+      call RRTM_KGB16_A1
+      call RRTM_KGB16_A2
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB16
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_00.F90	(revision 2160)
@@ -0,0 +1,128 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB16_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+STRRAT = 830.411_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&1.26476E-03_JPRB, 1.04962E-03_JPRB, 8.71080E-04_JPRB, 7.22907E-04_JPRB, 5.99939E-04_JPRB,&
+&4.97888E-04_JPRB, 4.13197E-04_JPRB, 3.42911E-04_JPRB, 2.84581E-04_JPRB, 2.36173E-04_JPRB/)
+SELFREFO( :, 2) = (/&
+&1.27380E-03_JPRB, 1.05867E-03_JPRB, 8.79870E-04_JPRB, 7.31270E-04_JPRB, 6.07767E-04_JPRB,&
+&5.05121E-04_JPRB, 4.19812E-04_JPRB, 3.48911E-04_JPRB, 2.89983E-04_JPRB, 2.41008E-04_JPRB/)
+SELFREFO( :, 3) = (/&
+&1.26332E-03_JPRB, 1.05867E-03_JPRB, 8.87172E-04_JPRB, 7.43454E-04_JPRB, 6.23018E-04_JPRB,&
+&5.22092E-04_JPRB, 4.37515E-04_JPRB, 3.66640E-04_JPRB, 3.07246E-04_JPRB, 2.57474E-04_JPRB/)
+SELFREFO( :, 4) = (/&
+&1.28078E-03_JPRB, 1.07802E-03_JPRB, 9.07363E-04_JPRB, 7.63722E-04_JPRB, 6.42820E-04_JPRB,&
+&5.41057E-04_JPRB, 4.55404E-04_JPRB, 3.83311E-04_JPRB, 3.22630E-04_JPRB, 2.71556E-04_JPRB/)
+SELFREFO( :, 5) = (/&
+&1.61188E-03_JPRB, 1.32375E-03_JPRB, 1.08712E-03_JPRB, 8.92794E-04_JPRB, 7.33203E-04_JPRB,&
+&6.02140E-04_JPRB, 4.94505E-04_JPRB, 4.06110E-04_JPRB, 3.33516E-04_JPRB, 2.73898E-04_JPRB/)
+SELFREFO( :, 6) = (/&
+&1.42549E-03_JPRB, 1.25964E-03_JPRB, 1.11309E-03_JPRB, 9.83595E-04_JPRB, 8.69162E-04_JPRB,&
+&7.68043E-04_JPRB, 6.78688E-04_JPRB, 5.99728E-04_JPRB, 5.29955E-04_JPRB, 4.68299E-04_JPRB/)
+SELFREFO( :, 7) = (/&
+&1.43253E-03_JPRB, 1.28535E-03_JPRB, 1.15330E-03_JPRB, 1.03480E-03_JPRB, 9.28488E-04_JPRB,&
+&8.33094E-04_JPRB, 7.47501E-04_JPRB, 6.70702E-04_JPRB, 6.01794E-04_JPRB, 5.39965E-04_JPRB/)
+SELFREFO( :, 8) = (/&
+&1.48973E-03_JPRB, 1.33348E-03_JPRB, 1.19363E-03_JPRB, 1.06844E-03_JPRB, 9.56378E-04_JPRB,&
+&8.56072E-04_JPRB, 7.66286E-04_JPRB, 6.85918E-04_JPRB, 6.13978E-04_JPRB, 5.49583E-04_JPRB/)
+SELFREFO( :, 9) = (/&
+&1.53002E-03_JPRB, 1.44607E-03_JPRB, 1.36674E-03_JPRB, 1.29175E-03_JPRB, 1.22088E-03_JPRB,&
+&1.15390E-03_JPRB, 1.09059E-03_JPRB, 1.03076E-03_JPRB, 9.74209E-04_JPRB, 9.20760E-04_JPRB/)
+SELFREFO( :,10) = (/&
+&1.78480E-03_JPRB, 1.68865E-03_JPRB, 1.59768E-03_JPRB, 1.51161E-03_JPRB, 1.43018E-03_JPRB,&
+&1.35313E-03_JPRB, 1.28023E-03_JPRB, 1.21126E-03_JPRB, 1.14601E-03_JPRB, 1.08427E-03_JPRB/)
+SELFREFO( :,11) = (/&
+&1.85121E-03_JPRB, 1.73903E-03_JPRB, 1.63364E-03_JPRB, 1.53464E-03_JPRB, 1.44164E-03_JPRB,&
+&1.35427E-03_JPRB, 1.27220E-03_JPRB, 1.19510E-03_JPRB, 1.12268E-03_JPRB, 1.05464E-03_JPRB/)
+SELFREFO( :,12) = (/&
+&2.10772E-03_JPRB, 1.96994E-03_JPRB, 1.84118E-03_JPRB, 1.72082E-03_JPRB, 1.60834E-03_JPRB,&
+&1.50321E-03_JPRB, 1.40495E-03_JPRB, 1.31311E-03_JPRB, 1.22728E-03_JPRB, 1.14705E-03_JPRB/)
+SELFREFO( :,13) = (/&
+&1.99323E-03_JPRB, 1.89279E-03_JPRB, 1.79741E-03_JPRB, 1.70684E-03_JPRB, 1.62083E-03_JPRB,&
+&1.53915E-03_JPRB, 1.46159E-03_JPRB, 1.38794E-03_JPRB, 1.31800E-03_JPRB, 1.25159E-03_JPRB/)
+SELFREFO( :,14) = (/&
+&2.05835E-03_JPRB, 1.93301E-03_JPRB, 1.81529E-03_JPRB, 1.70475E-03_JPRB, 1.60093E-03_JPRB,&
+&1.50344E-03_JPRB, 1.41189E-03_JPRB, 1.32591E-03_JPRB, 1.24516E-03_JPRB, 1.16934E-03_JPRB/)
+SELFREFO( :,15) = (/&
+&2.34120E-03_JPRB, 2.20012E-03_JPRB, 2.06754E-03_JPRB, 1.94295E-03_JPRB, 1.82587E-03_JPRB,&
+&1.71585E-03_JPRB, 1.61245E-03_JPRB, 1.51529E-03_JPRB, 1.42398E-03_JPRB, 1.33817E-03_JPRB/)
+SELFREFO( :,16) = (/&
+&3.03559E-03_JPRB, 2.80023E-03_JPRB, 2.58312E-03_JPRB, 2.38284E-03_JPRB, 2.19809E-03_JPRB,&
+&2.02767E-03_JPRB, 1.87045E-03_JPRB, 1.72543E-03_JPRB, 1.59165E-03_JPRB, 1.46825E-03_JPRB/)
+
+FRACREFAO( :, 1) = (/&
+!     From P = 862.6 mb.
+    &0.17356300_JPRB,0.18880001_JPRB,0.17704099_JPRB,0.13661300_JPRB,&
+    &0.10691600_JPRB,0.08222480_JPRB,0.05939860_JPRB,0.04230810_JPRB,&
+    &0.02526330_JPRB,0.00244532_JPRB,0.00193541_JPRB,0.00150415_JPRB,&
+    &0.00103528_JPRB,0.00067068_JPRB,0.00024951_JPRB,0.00003348_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.17779499_JPRB,0.19837400_JPRB,0.16557600_JPRB,0.13470000_JPRB,&
+    &0.11013600_JPRB,0.08342720_JPRB,0.05987030_JPRB,0.03938700_JPRB,&
+    &0.02293650_JPRB,0.00238849_JPRB,0.00192400_JPRB,0.00149921_JPRB,&
+    &0.00103539_JPRB,0.00067150_JPRB,0.00024822_JPRB,0.00003348_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.18535601_JPRB,0.19407199_JPRB,0.16053200_JPRB,0.13300700_JPRB,&
+    &0.10779000_JPRB,0.08408500_JPRB,0.06480450_JPRB,0.04070160_JPRB,&
+    &0.02203590_JPRB,0.00227779_JPRB,0.00189074_JPRB,0.00146888_JPRB,&
+    &0.00103147_JPRB,0.00066770_JPRB,0.00024751_JPRB,0.00003348_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.19139200_JPRB,0.18917400_JPRB,0.15748601_JPRB,0.13240699_JPRB,&
+    &0.10557300_JPRB,0.08383260_JPRB,0.06724060_JPRB,0.04364450_JPRB,&
+    &0.02175820_JPRB,0.00225436_JPRB,0.00184421_JPRB,0.00143153_JPRB,&
+    &0.00103027_JPRB,0.00066066_JPRB,0.00024222_JPRB,0.00003148_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.19547801_JPRB,0.18539500_JPRB,0.15442000_JPRB,0.13114899_JPRB,&
+    &0.10515600_JPRB,0.08350350_JPRB,0.06909780_JPRB,0.04671630_JPRB,&
+    &0.02168820_JPRB,0.00224400_JPRB,0.00182009_JPRB,0.00139098_JPRB,&
+    &0.00102582_JPRB,0.00065367_JPRB,0.00023202_JPRB,0.00003148_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.19757500_JPRB,0.18266800_JPRB,0.15208900_JPRB,0.12897800_JPRB,&
+    &0.10637200_JPRB,0.08391220_JPRB,0.06989830_JPRB,0.04964120_JPRB,&
+    &0.02155800_JPRB,0.00224310_JPRB,0.00177358_JPRB,0.00138184_JPRB,&
+    &0.00101538_JPRB,0.00063370_JPRB,0.00023227_JPRB,0.00003148_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.20145500_JPRB,0.17692900_JPRB,0.14940600_JPRB,0.12690400_JPRB,&
+    &0.10828800_JPRB,0.08553720_JPRB,0.07004940_JPRB,0.05153430_JPRB,&
+    &0.02268740_JPRB,0.00216943_JPRB,0.00178603_JPRB,0.00137754_JPRB,&
+    &0.00098344_JPRB,0.00063165_JPRB,0.00023218_JPRB,0.00003148_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.20383500_JPRB,0.17047501_JPRB,0.14570600_JPRB,0.12679300_JPRB,&
+    &0.11043100_JPRB,0.08719150_JPRB,0.07045440_JPRB,0.05345420_JPRB,&
+    &0.02448340_JPRB,0.00215839_JPRB,0.00175893_JPRB,0.00138296_JPRB,&
+    &0.00098318_JPRB,0.00063188_JPRB,0.00023199_JPRB,0.00003148_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.18680701_JPRB,0.15961801_JPRB,0.15092900_JPRB,0.13049100_JPRB,&
+    &0.11418400_JPRB,0.09380540_JPRB,0.07093450_JPRB,0.05664280_JPRB,&
+    &0.02938410_JPRB,0.00217751_JPRB,0.00176766_JPRB,0.00138275_JPRB,&
+    &0.00098377_JPRB,0.00063181_JPRB,0.00023193_JPRB,0.00003148_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB16_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_A1.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB16_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&4.2634E-03_JPRB,4.4619E-03_JPRB,4.8277E-03_JPRB,5.0574E-03_JPRB,5.1432E-03_JPRB,5.0824E-03_JPRB,&
+&4.7995E-03_JPRB,4.2519E-03_JPRB,3.6751E-03_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&4.3896E-03_JPRB,4.7056E-03_JPRB,5.1713E-03_JPRB,5.4539E-03_JPRB,5.5796E-03_JPRB,5.5445E-03_JPRB,&
+&5.2467E-03_JPRB,4.6622E-03_JPRB,4.1226E-03_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&4.5152E-03_JPRB,4.9543E-03_JPRB,5.5160E-03_JPRB,5.8544E-03_JPRB,6.0168E-03_JPRB,5.9967E-03_JPRB,&
+&5.6895E-03_JPRB,5.0855E-03_JPRB,4.6113E-03_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&4.6230E-03_JPRB,5.1933E-03_JPRB,5.8501E-03_JPRB,6.2450E-03_JPRB,6.4433E-03_JPRB,6.4316E-03_JPRB,&
+&6.1283E-03_JPRB,5.5148E-03_JPRB,5.1307E-03_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&4.7302E-03_JPRB,5.4309E-03_JPRB,6.1815E-03_JPRB,6.6303E-03_JPRB,6.8597E-03_JPRB,6.8605E-03_JPRB,&
+&6.5693E-03_JPRB,5.9487E-03_JPRB,5.6753E-03_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&3.9323E-03_JPRB,4.1568E-03_JPRB,4.4806E-03_JPRB,4.6618E-03_JPRB,4.7304E-03_JPRB,4.6715E-03_JPRB,&
+&4.4161E-03_JPRB,3.9503E-03_JPRB,3.3395E-03_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&4.0500E-03_JPRB,4.3934E-03_JPRB,4.8123E-03_JPRB,5.0480E-03_JPRB,5.1574E-03_JPRB,5.1013E-03_JPRB,&
+&4.8274E-03_JPRB,4.3142E-03_JPRB,3.7073E-03_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&4.1698E-03_JPRB,4.6359E-03_JPRB,5.1475E-03_JPRB,5.4370E-03_JPRB,5.5831E-03_JPRB,5.5288E-03_JPRB,&
+&5.2416E-03_JPRB,4.6953E-03_JPRB,4.1146E-03_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&4.2783E-03_JPRB,4.8739E-03_JPRB,5.4745E-03_JPRB,5.8228E-03_JPRB,5.9955E-03_JPRB,5.9514E-03_JPRB,&
+&5.6672E-03_JPRB,5.0790E-03_JPRB,4.5488E-03_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&4.3743E-03_JPRB,5.1081E-03_JPRB,5.7929E-03_JPRB,6.1965E-03_JPRB,6.3958E-03_JPRB,6.3715E-03_JPRB,&
+&6.0950E-03_JPRB,5.4684E-03_JPRB,5.0068E-03_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&3.6113E-03_JPRB,3.8183E-03_JPRB,4.0778E-03_JPRB,4.1984E-03_JPRB,4.2534E-03_JPRB,4.2158E-03_JPRB,&
+&4.0193E-03_JPRB,3.6415E-03_JPRB,3.0570E-03_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&3.7209E-03_JPRB,4.0412E-03_JPRB,4.3896E-03_JPRB,4.5667E-03_JPRB,4.6475E-03_JPRB,4.5983E-03_JPRB,&
+&4.3872E-03_JPRB,3.9635E-03_JPRB,3.3466E-03_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&3.8298E-03_JPRB,4.2704E-03_JPRB,4.6995E-03_JPRB,4.9388E-03_JPRB,5.0426E-03_JPRB,4.9845E-03_JPRB,&
+&4.7617E-03_JPRB,4.3009E-03_JPRB,3.6653E-03_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&3.9362E-03_JPRB,4.5071E-03_JPRB,5.0123E-03_JPRB,5.3097E-03_JPRB,5.4362E-03_JPRB,5.3784E-03_JPRB,&
+&5.1527E-03_JPRB,4.6419E-03_JPRB,4.0116E-03_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&4.0246E-03_JPRB,4.7366E-03_JPRB,5.3187E-03_JPRB,5.6677E-03_JPRB,5.8209E-03_JPRB,5.7784E-03_JPRB,&
+&5.5482E-03_JPRB,4.9812E-03_JPRB,4.3840E-03_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&3.3284E-03_JPRB,3.4973E-03_JPRB,3.6827E-03_JPRB,3.7696E-03_JPRB,3.8145E-03_JPRB,3.7973E-03_JPRB,&
+&3.6757E-03_JPRB,3.3953E-03_JPRB,2.8711E-03_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&3.4305E-03_JPRB,3.7049E-03_JPRB,3.9652E-03_JPRB,4.1049E-03_JPRB,4.1671E-03_JPRB,4.1383E-03_JPRB,&
+&3.9965E-03_JPRB,3.6722E-03_JPRB,3.0945E-03_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&3.5295E-03_JPRB,3.9206E-03_JPRB,4.2522E-03_JPRB,4.4452E-03_JPRB,4.5189E-03_JPRB,4.4874E-03_JPRB,&
+&4.3285E-03_JPRB,3.9676E-03_JPRB,3.3441E-03_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&3.6215E-03_JPRB,4.1396E-03_JPRB,4.5422E-03_JPRB,4.7812E-03_JPRB,4.8736E-03_JPRB,4.8440E-03_JPRB,&
+&4.6768E-03_JPRB,4.2674E-03_JPRB,3.6212E-03_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&3.7121E-03_JPRB,4.3594E-03_JPRB,4.8380E-03_JPRB,5.1176E-03_JPRB,5.2295E-03_JPRB,5.2140E-03_JPRB,&
+&5.0347E-03_JPRB,4.5696E-03_JPRB,3.9241E-03_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&3.0937E-03_JPRB,3.2190E-03_JPRB,3.3382E-03_JPRB,3.4069E-03_JPRB,3.4508E-03_JPRB,3.4576E-03_JPRB,&
+&3.4038E-03_JPRB,3.2121E-03_JPRB,2.7159E-03_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&3.1841E-03_JPRB,3.4102E-03_JPRB,3.5885E-03_JPRB,3.6988E-03_JPRB,3.7561E-03_JPRB,3.7570E-03_JPRB,&
+&3.6806E-03_JPRB,3.4524E-03_JPRB,2.9248E-03_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&3.2704E-03_JPRB,3.6051E-03_JPRB,3.8485E-03_JPRB,3.9980E-03_JPRB,4.0672E-03_JPRB,4.0649E-03_JPRB,&
+&3.9688E-03_JPRB,3.7070E-03_JPRB,3.1394E-03_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&3.3530E-03_JPRB,3.8023E-03_JPRB,4.1127E-03_JPRB,4.2944E-03_JPRB,4.3822E-03_JPRB,4.3830E-03_JPRB,&
+&4.2728E-03_JPRB,3.9665E-03_JPRB,3.3644E-03_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&3.4386E-03_JPRB,4.0026E-03_JPRB,4.3842E-03_JPRB,4.5975E-03_JPRB,4.7014E-03_JPRB,4.7133E-03_JPRB,&
+&4.5874E-03_JPRB,4.2339E-03_JPRB,3.6103E-03_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&2.9009E-03_JPRB,2.9757E-03_JPRB,3.0499E-03_JPRB,3.1038E-03_JPRB,3.1541E-03_JPRB,3.1847E-03_JPRB,&
+&3.1836E-03_JPRB,3.0557E-03_JPRB,2.5583E-03_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&2.9774E-03_JPRB,3.1460E-03_JPRB,3.2679E-03_JPRB,3.3537E-03_JPRB,3.4147E-03_JPRB,3.4421E-03_JPRB,&
+&3.4203E-03_JPRB,3.2723E-03_JPRB,2.7519E-03_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&3.0522E-03_JPRB,3.3185E-03_JPRB,3.4964E-03_JPRB,3.6100E-03_JPRB,3.6827E-03_JPRB,3.7087E-03_JPRB,&
+&3.6668E-03_JPRB,3.4927E-03_JPRB,2.9536E-03_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&3.1282E-03_JPRB,3.4957E-03_JPRB,3.7291E-03_JPRB,3.8695E-03_JPRB,3.9556E-03_JPRB,3.9847E-03_JPRB,&
+&3.9266E-03_JPRB,3.7176E-03_JPRB,3.1650E-03_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&3.1999E-03_JPRB,3.6746E-03_JPRB,3.9646E-03_JPRB,4.1331E-03_JPRB,4.2341E-03_JPRB,4.2712E-03_JPRB,&
+&4.1979E-03_JPRB,3.9512E-03_JPRB,3.3876E-03_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&2.7415E-03_JPRB,2.7746E-03_JPRB,2.8210E-03_JPRB,2.8741E-03_JPRB,2.9327E-03_JPRB,2.9829E-03_JPRB,&
+&2.9928E-03_JPRB,2.8802E-03_JPRB,2.4517E-03_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&2.8079E-03_JPRB,2.9223E-03_JPRB,3.0084E-03_JPRB,3.0853E-03_JPRB,3.1485E-03_JPRB,3.1999E-03_JPRB,&
+&3.2078E-03_JPRB,3.0910E-03_JPRB,2.6310E-03_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&2.8746E-03_JPRB,3.0732E-03_JPRB,3.2043E-03_JPRB,3.3040E-03_JPRB,3.3751E-03_JPRB,3.4239E-03_JPRB,&
+&3.4236E-03_JPRB,3.2999E-03_JPRB,2.8151E-03_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&2.9412E-03_JPRB,3.2304E-03_JPRB,3.4053E-03_JPRB,3.5266E-03_JPRB,3.6086E-03_JPRB,3.6573E-03_JPRB,&
+&3.6460E-03_JPRB,3.5085E-03_JPRB,3.0037E-03_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&3.0012E-03_JPRB,3.3903E-03_JPRB,3.6088E-03_JPRB,3.7519E-03_JPRB,3.8465E-03_JPRB,3.9004E-03_JPRB,&
+&3.8789E-03_JPRB,3.7197E-03_JPRB,3.2035E-03_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&2.6011E-03_JPRB,2.6087E-03_JPRB,2.6505E-03_JPRB,2.7115E-03_JPRB,2.7795E-03_JPRB,2.8145E-03_JPRB,&
+&2.7964E-03_JPRB,2.6829E-03_JPRB,2.5124E-03_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&2.6605E-03_JPRB,2.7384E-03_JPRB,2.8102E-03_JPRB,2.8876E-03_JPRB,2.9588E-03_JPRB,3.0106E-03_JPRB,&
+&2.9995E-03_JPRB,2.8886E-03_JPRB,2.6866E-03_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&2.7221E-03_JPRB,2.8708E-03_JPRB,2.9770E-03_JPRB,3.0697E-03_JPRB,3.1469E-03_JPRB,3.2045E-03_JPRB,&
+&3.2054E-03_JPRB,3.0872E-03_JPRB,2.8608E-03_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&2.7814E-03_JPRB,3.0087E-03_JPRB,3.1469E-03_JPRB,3.2564E-03_JPRB,3.3407E-03_JPRB,3.4007E-03_JPRB,&
+&3.4134E-03_JPRB,3.2854E-03_JPRB,3.0367E-03_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&2.8334E-03_JPRB,3.1463E-03_JPRB,3.3224E-03_JPRB,3.4471E-03_JPRB,3.5390E-03_JPRB,3.6049E-03_JPRB,&
+&3.6218E-03_JPRB,3.4862E-03_JPRB,3.2148E-03_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&2.4681E-03_JPRB,2.4670E-03_JPRB,2.5193E-03_JPRB,2.5927E-03_JPRB,2.6437E-03_JPRB,2.6462E-03_JPRB,&
+&2.5937E-03_JPRB,2.4688E-03_JPRB,4.0106E-03_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&2.5243E-03_JPRB,2.5823E-03_JPRB,2.6553E-03_JPRB,2.7401E-03_JPRB,2.8086E-03_JPRB,2.8274E-03_JPRB,&
+&2.7863E-03_JPRB,2.6637E-03_JPRB,4.1870E-03_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&2.5817E-03_JPRB,2.6985E-03_JPRB,2.7975E-03_JPRB,2.8934E-03_JPRB,2.9743E-03_JPRB,3.0076E-03_JPRB,&
+&2.9804E-03_JPRB,2.8541E-03_JPRB,4.3637E-03_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&2.6357E-03_JPRB,2.8178E-03_JPRB,2.9439E-03_JPRB,3.0496E-03_JPRB,3.1384E-03_JPRB,3.1881E-03_JPRB,&
+&3.1729E-03_JPRB,3.0435E-03_JPRB,4.5427E-03_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&2.6826E-03_JPRB,2.9379E-03_JPRB,3.0923E-03_JPRB,3.2096E-03_JPRB,3.3016E-03_JPRB,3.3682E-03_JPRB,&
+&3.3659E-03_JPRB,3.2338E-03_JPRB,4.7326E-03_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&2.3365E-03_JPRB,2.3445E-03_JPRB,2.4180E-03_JPRB,2.4933E-03_JPRB,2.5143E-03_JPRB,2.4864E-03_JPRB,&
+&2.4076E-03_JPRB,2.2631E-03_JPRB,1.0002E-02_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&2.3916E-03_JPRB,2.4482E-03_JPRB,2.5366E-03_JPRB,2.6275E-03_JPRB,2.6688E-03_JPRB,2.6554E-03_JPRB,&
+&2.5866E-03_JPRB,2.4438E-03_JPRB,1.0188E-02_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&2.4458E-03_JPRB,2.5525E-03_JPRB,2.6602E-03_JPRB,2.7640E-03_JPRB,2.8222E-03_JPRB,2.8241E-03_JPRB,&
+&2.7676E-03_JPRB,2.6219E-03_JPRB,1.0447E-02_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&2.4945E-03_JPRB,2.6579E-03_JPRB,2.7873E-03_JPRB,2.8998E-03_JPRB,2.9729E-03_JPRB,2.9898E-03_JPRB,&
+&2.9465E-03_JPRB,2.7998E-03_JPRB,1.0769E-02_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&2.5382E-03_JPRB,2.7637E-03_JPRB,2.9128E-03_JPRB,3.0348E-03_JPRB,3.1210E-03_JPRB,3.1536E-03_JPRB,&
+&3.1245E-03_JPRB,2.9806E-03_JPRB,1.1144E-02_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&2.2189E-03_JPRB,2.2637E-03_JPRB,2.3663E-03_JPRB,2.4375E-03_JPRB,2.4436E-03_JPRB,2.3971E-03_JPRB,&
+&2.2998E-03_JPRB,2.1349E-03_JPRB,1.4165E-02_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&2.2725E-03_JPRB,2.3594E-03_JPRB,2.4775E-03_JPRB,2.5648E-03_JPRB,2.5873E-03_JPRB,2.5525E-03_JPRB,&
+&2.4655E-03_JPRB,2.2999E-03_JPRB,1.4362E-02_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&2.3225E-03_JPRB,2.4563E-03_JPRB,2.5905E-03_JPRB,2.6905E-03_JPRB,2.7282E-03_JPRB,2.7081E-03_JPRB,&
+&2.6314E-03_JPRB,2.4622E-03_JPRB,1.4689E-02_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&2.3671E-03_JPRB,2.5537E-03_JPRB,2.7011E-03_JPRB,2.8153E-03_JPRB,2.8667E-03_JPRB,2.8616E-03_JPRB,&
+&2.7947E-03_JPRB,2.6271E-03_JPRB,1.5129E-02_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&2.4082E-03_JPRB,2.6482E-03_JPRB,2.8083E-03_JPRB,2.9363E-03_JPRB,3.0040E-03_JPRB,3.0155E-03_JPRB,&
+&2.9597E-03_JPRB,2.7977E-03_JPRB,1.5652E-02_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&2.0910E-03_JPRB,2.1698E-03_JPRB,2.2939E-03_JPRB,2.3579E-03_JPRB,2.3558E-03_JPRB,2.2934E-03_JPRB,&
+&2.1816E-03_JPRB,2.0022E-03_JPRB,1.5828E-02_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&2.1414E-03_JPRB,2.2595E-03_JPRB,2.4019E-03_JPRB,2.4797E-03_JPRB,2.4872E-03_JPRB,2.4364E-03_JPRB,&
+&2.3325E-03_JPRB,2.1497E-03_JPRB,1.6052E-02_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&2.1876E-03_JPRB,2.3512E-03_JPRB,2.5089E-03_JPRB,2.5983E-03_JPRB,2.6170E-03_JPRB,2.5791E-03_JPRB,&
+&2.4816E-03_JPRB,2.2977E-03_JPRB,1.6424E-02_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&2.2305E-03_JPRB,2.4411E-03_JPRB,2.6103E-03_JPRB,2.7123E-03_JPRB,2.7468E-03_JPRB,2.7221E-03_JPRB,&
+&2.6302E-03_JPRB,2.4491E-03_JPRB,1.6928E-02_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&2.2685E-03_JPRB,2.5264E-03_JPRB,2.7071E-03_JPRB,2.8237E-03_JPRB,2.8760E-03_JPRB,2.8651E-03_JPRB,&
+&2.7812E-03_JPRB,2.6061E-03_JPRB,1.7523E-02_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&1.9577E-03_JPRB,2.0704E-03_JPRB,2.2038E-03_JPRB,2.2584E-03_JPRB,2.2491E-03_JPRB,2.1789E-03_JPRB,&
+&2.0585E-03_JPRB,1.8702E-03_JPRB,1.4483E-02_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&2.0058E-03_JPRB,2.1546E-03_JPRB,2.3069E-03_JPRB,2.3735E-03_JPRB,2.3721E-03_JPRB,2.3101E-03_JPRB,&
+&2.1933E-03_JPRB,2.0001E-03_JPRB,1.4716E-02_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&2.0506E-03_JPRB,2.2392E-03_JPRB,2.4060E-03_JPRB,2.4864E-03_JPRB,2.4932E-03_JPRB,2.4402E-03_JPRB,&
+&2.3277E-03_JPRB,2.1324E-03_JPRB,1.5081E-02_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&2.0915E-03_JPRB,2.3209E-03_JPRB,2.5015E-03_JPRB,2.5952E-03_JPRB,2.6152E-03_JPRB,2.5711E-03_JPRB,&
+&2.4622E-03_JPRB,2.2684E-03_JPRB,1.5556E-02_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&2.1275E-03_JPRB,2.3984E-03_JPRB,2.5936E-03_JPRB,2.7019E-03_JPRB,2.7369E-03_JPRB,2.7034E-03_JPRB,&
+&2.5998E-03_JPRB,2.4103E-03_JPRB,1.6100E-02_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&1.7685E-02_JPRB,1.5886E-02_JPRB,1.5286E-02_JPRB,1.4910E-02_JPRB,1.4213E-02_JPRB,1.2872E-02_JPRB,&
+&1.1554E-02_JPRB,9.7299E-03_JPRB,9.7670E-03_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&1.7924E-02_JPRB,1.6198E-02_JPRB,1.5800E-02_JPRB,1.5762E-02_JPRB,1.5013E-02_JPRB,1.3648E-02_JPRB,&
+&1.2502E-02_JPRB,1.0682E-02_JPRB,1.1264E-02_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&1.8162E-02_JPRB,1.6493E-02_JPRB,1.6320E-02_JPRB,1.6501E-02_JPRB,1.5785E-02_JPRB,1.4461E-02_JPRB,&
+&1.3394E-02_JPRB,1.1688E-02_JPRB,1.2766E-02_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&1.8373E-02_JPRB,1.6799E-02_JPRB,1.6869E-02_JPRB,1.7132E-02_JPRB,1.6537E-02_JPRB,1.5302E-02_JPRB,&
+&1.4231E-02_JPRB,1.2873E-02_JPRB,1.4298E-02_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&1.8575E-02_JPRB,1.7109E-02_JPRB,1.7449E-02_JPRB,1.7721E-02_JPRB,1.7274E-02_JPRB,1.6125E-02_JPRB,&
+&1.4995E-02_JPRB,1.4230E-02_JPRB,1.5931E-02_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&1.6873E-02_JPRB,1.5273E-02_JPRB,1.4928E-02_JPRB,1.4779E-02_JPRB,1.3931E-02_JPRB,1.2662E-02_JPRB,&
+&1.1382E-02_JPRB,9.2864E-03_JPRB,8.6917E-03_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&1.7158E-02_JPRB,1.5636E-02_JPRB,1.5517E-02_JPRB,1.5568E-02_JPRB,1.4735E-02_JPRB,1.3617E-02_JPRB,&
+&1.2343E-02_JPRB,1.0165E-02_JPRB,1.0091E-02_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&1.7424E-02_JPRB,1.6018E-02_JPRB,1.6130E-02_JPRB,1.6288E-02_JPRB,1.5522E-02_JPRB,1.4562E-02_JPRB,&
+&1.3276E-02_JPRB,1.1047E-02_JPRB,1.1539E-02_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&1.7705E-02_JPRB,1.6391E-02_JPRB,1.6775E-02_JPRB,1.6913E-02_JPRB,1.6383E-02_JPRB,1.5440E-02_JPRB,&
+&1.4111E-02_JPRB,1.2115E-02_JPRB,1.3109E-02_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&1.7946E-02_JPRB,1.6730E-02_JPRB,1.7389E-02_JPRB,1.7560E-02_JPRB,1.7230E-02_JPRB,1.6260E-02_JPRB,&
+&1.4862E-02_JPRB,1.3377E-02_JPRB,1.4792E-02_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&1.5798E-02_JPRB,1.4431E-02_JPRB,1.4230E-02_JPRB,1.4159E-02_JPRB,1.3349E-02_JPRB,1.2204E-02_JPRB,&
+&1.0867E-02_JPRB,8.8000E-03_JPRB,7.4513E-03_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&1.6121E-02_JPRB,1.4897E-02_JPRB,1.4916E-02_JPRB,1.4922E-02_JPRB,1.4162E-02_JPRB,1.3251E-02_JPRB,&
+&1.1847E-02_JPRB,9.5823E-03_JPRB,8.7330E-03_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&1.6462E-02_JPRB,1.5342E-02_JPRB,1.5618E-02_JPRB,1.5620E-02_JPRB,1.5015E-02_JPRB,1.4282E-02_JPRB,&
+&1.2797E-02_JPRB,1.0384E-02_JPRB,1.0179E-02_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&1.6798E-02_JPRB,1.5765E-02_JPRB,1.6290E-02_JPRB,1.6289E-02_JPRB,1.5973E-02_JPRB,1.5269E-02_JPRB,&
+&1.3672E-02_JPRB,1.1383E-02_JPRB,1.1725E-02_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&1.7062E-02_JPRB,1.6131E-02_JPRB,1.6868E-02_JPRB,1.7006E-02_JPRB,1.6890E-02_JPRB,1.6143E-02_JPRB,&
+&1.4482E-02_JPRB,1.2538E-02_JPRB,1.3312E-02_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&1.4564E-02_JPRB,1.3497E-02_JPRB,1.3366E-02_JPRB,1.3251E-02_JPRB,1.2600E-02_JPRB,1.1517E-02_JPRB,&
+&1.0115E-02_JPRB,8.2572E-03_JPRB,6.3788E-03_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&1.4956E-02_JPRB,1.4021E-02_JPRB,1.4143E-02_JPRB,1.3989E-02_JPRB,1.3446E-02_JPRB,1.2579E-02_JPRB,&
+&1.1185E-02_JPRB,9.0656E-03_JPRB,7.4847E-03_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&1.5366E-02_JPRB,1.4523E-02_JPRB,1.4865E-02_JPRB,1.4686E-02_JPRB,1.4396E-02_JPRB,1.3630E-02_JPRB,&
+&1.2209E-02_JPRB,9.8300E-03_JPRB,8.7484E-03_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&1.5673E-02_JPRB,1.4963E-02_JPRB,1.5538E-02_JPRB,1.5419E-02_JPRB,1.5384E-02_JPRB,1.4661E-02_JPRB,&
+&1.3123E-02_JPRB,1.0681E-02_JPRB,1.0095E-02_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&1.5927E-02_JPRB,1.5374E-02_JPRB,1.6106E-02_JPRB,1.6246E-02_JPRB,1.6331E-02_JPRB,1.5570E-02_JPRB,&
+&1.3997E-02_JPRB,1.1612E-02_JPRB,1.1475E-02_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&1.3266E-02_JPRB,1.2466E-02_JPRB,1.2400E-02_JPRB,1.2242E-02_JPRB,1.1629E-02_JPRB,1.0628E-02_JPRB,&
+&9.2898E-03_JPRB,7.6240E-03_JPRB,5.9670E-03_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&1.3732E-02_JPRB,1.3052E-02_JPRB,1.3208E-02_JPRB,1.3005E-02_JPRB,1.2522E-02_JPRB,1.1685E-02_JPRB,&
+&1.0389E-02_JPRB,8.4463E-03_JPRB,6.6100E-03_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&1.4084E-02_JPRB,1.3547E-02_JPRB,1.3938E-02_JPRB,1.3750E-02_JPRB,1.3484E-02_JPRB,1.2725E-02_JPRB,&
+&1.1484E-02_JPRB,9.2095E-03_JPRB,7.5100E-03_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&1.4380E-02_JPRB,1.4005E-02_JPRB,1.4577E-02_JPRB,1.4581E-02_JPRB,1.4467E-02_JPRB,1.3764E-02_JPRB,&
+&1.2436E-02_JPRB,1.0053E-02_JPRB,8.5649E-03_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&1.4640E-02_JPRB,1.4480E-02_JPRB,1.5153E-02_JPRB,1.5470E-02_JPRB,1.5438E-02_JPRB,1.4721E-02_JPRB,&
+&1.3356E-02_JPRB,1.0839E-02_JPRB,9.6988E-03_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&1.1942E-02_JPRB,1.1353E-02_JPRB,1.1339E-02_JPRB,1.1150E-02_JPRB,1.0468E-02_JPRB,9.5854E-03_JPRB,&
+&8.3811E-03_JPRB,7.0885E-03_JPRB,5.8798E-03_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&1.2358E-02_JPRB,1.1922E-02_JPRB,1.2141E-02_JPRB,1.1920E-02_JPRB,1.1378E-02_JPRB,1.0610E-02_JPRB,&
+&9.4501E-03_JPRB,7.7713E-03_JPRB,6.4066E-03_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&1.2698E-02_JPRB,1.2427E-02_JPRB,1.2838E-02_JPRB,1.2735E-02_JPRB,1.2366E-02_JPRB,1.1633E-02_JPRB,&
+&1.0517E-02_JPRB,8.4962E-03_JPRB,6.9615E-03_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&1.2998E-02_JPRB,1.2956E-02_JPRB,1.3432E-02_JPRB,1.3603E-02_JPRB,1.3351E-02_JPRB,1.2693E-02_JPRB,&
+&1.1517E-02_JPRB,9.2932E-03_JPRB,7.5694E-03_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&1.3245E-02_JPRB,1.3459E-02_JPRB,1.4045E-02_JPRB,1.4501E-02_JPRB,1.4340E-02_JPRB,1.3672E-02_JPRB,&
+&1.2434E-02_JPRB,1.0037E-02_JPRB,8.3088E-03_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&1.0635E-02_JPRB,1.0181E-02_JPRB,1.0247E-02_JPRB,9.9535E-03_JPRB,9.2688E-03_JPRB,8.4744E-03_JPRB,&
+&7.6731E-03_JPRB,6.9595E-03_JPRB,5.7767E-03_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&1.1001E-02_JPRB,1.0731E-02_JPRB,1.1001E-02_JPRB,1.0727E-02_JPRB,1.0196E-02_JPRB,9.4273E-03_JPRB,&
+&8.5283E-03_JPRB,7.4633E-03_JPRB,6.2551E-03_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&1.1326E-02_JPRB,1.1289E-02_JPRB,1.1647E-02_JPRB,1.1559E-02_JPRB,1.1156E-02_JPRB,1.0455E-02_JPRB,&
+&9.4847E-03_JPRB,7.9997E-03_JPRB,6.7556E-03_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&1.1605E-02_JPRB,1.1840E-02_JPRB,1.2266E-02_JPRB,1.2419E-02_JPRB,1.2130E-02_JPRB,1.1514E-02_JPRB,&
+&1.0422E-02_JPRB,8.6046E-03_JPRB,7.2812E-03_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&1.1846E-02_JPRB,1.2301E-02_JPRB,1.2939E-02_JPRB,1.3278E-02_JPRB,1.3141E-02_JPRB,1.2520E-02_JPRB,&
+&1.1309E-02_JPRB,9.2291E-03_JPRB,7.8135E-03_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&9.5318E-03_JPRB,9.1400E-03_JPRB,9.1541E-03_JPRB,8.7469E-03_JPRB,8.1107E-03_JPRB,7.6844E-03_JPRB,&
+&7.4790E-03_JPRB,6.8560E-03_JPRB,6.1100E-03_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&9.8513E-03_JPRB,9.6543E-03_JPRB,9.8221E-03_JPRB,9.4930E-03_JPRB,8.9990E-03_JPRB,8.4087E-03_JPRB,&
+&8.1002E-03_JPRB,7.3297E-03_JPRB,6.5036E-03_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&1.0121E-02_JPRB,1.0183E-02_JPRB,1.0429E-02_JPRB,1.0295E-02_JPRB,9.9219E-03_JPRB,9.3052E-03_JPRB,&
+&8.7495E-03_JPRB,7.8409E-03_JPRB,6.8133E-03_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&1.0342E-02_JPRB,1.0668E-02_JPRB,1.1072E-02_JPRB,1.1128E-02_JPRB,1.0881E-02_JPRB,1.0314E-02_JPRB,&
+&9.4319E-03_JPRB,8.3379E-03_JPRB,7.1719E-03_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&1.0574E-02_JPRB,1.1111E-02_JPRB,1.1730E-02_JPRB,1.1969E-02_JPRB,1.1864E-02_JPRB,1.1283E-02_JPRB,&
+&1.0148E-02_JPRB,8.8068E-03_JPRB,7.6246E-03_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&8.6979E-03_JPRB,8.3079E-03_JPRB,8.1722E-03_JPRB,7.6777E-03_JPRB,7.3529E-03_JPRB,7.3690E-03_JPRB,&
+&7.3422E-03_JPRB,6.6830E-03_JPRB,8.5832E-03_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&8.9724E-03_JPRB,8.7731E-03_JPRB,8.7419E-03_JPRB,8.3348E-03_JPRB,7.9939E-03_JPRB,7.9020E-03_JPRB,&
+&7.8887E-03_JPRB,7.1655E-03_JPRB,9.0283E-03_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&9.1636E-03_JPRB,9.2350E-03_JPRB,9.2903E-03_JPRB,9.0718E-03_JPRB,8.7389E-03_JPRB,8.5612E-03_JPRB,&
+&8.4201E-03_JPRB,7.6462E-03_JPRB,9.4969E-03_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&9.3430E-03_JPRB,9.6411E-03_JPRB,9.8735E-03_JPRB,9.8458E-03_JPRB,9.5925E-03_JPRB,9.3082E-03_JPRB,&
+&8.9479E-03_JPRB,8.0999E-03_JPRB,9.9701E-03_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&9.5543E-03_JPRB,1.0034E-02_JPRB,1.0504E-02_JPRB,1.0652E-02_JPRB,1.0546E-02_JPRB,1.0105E-02_JPRB,&
+&9.4548E-03_JPRB,8.5503E-03_JPRB,1.0439E-02_JPRB/)
+KAO( :, 1,10,10) = (/&
+&8.1157E-03_JPRB,7.6953E-03_JPRB,7.3856E-03_JPRB,7.0143E-03_JPRB,7.0934E-03_JPRB,7.1592E-03_JPRB,&
+&7.1366E-03_JPRB,6.4736E-03_JPRB,2.5288E-02_JPRB/)
+KAO( :, 2,10,10) = (/&
+&8.3228E-03_JPRB,8.1050E-03_JPRB,7.8899E-03_JPRB,7.5150E-03_JPRB,7.5383E-03_JPRB,7.6577E-03_JPRB,&
+&7.6569E-03_JPRB,6.9536E-03_JPRB,2.5969E-02_JPRB/)
+KAO( :, 3,10,10) = (/&
+&8.4638E-03_JPRB,8.4927E-03_JPRB,8.3732E-03_JPRB,8.1065E-03_JPRB,8.0674E-03_JPRB,8.2304E-03_JPRB,&
+&8.1217E-03_JPRB,7.4527E-03_JPRB,2.6813E-02_JPRB/)
+KAO( :, 4,10,10) = (/&
+&8.6251E-03_JPRB,8.8393E-03_JPRB,8.8777E-03_JPRB,8.7542E-03_JPRB,8.7078E-03_JPRB,8.8286E-03_JPRB,&
+&8.6165E-03_JPRB,7.9058E-03_JPRB,2.7708E-02_JPRB/)
+KAO( :, 5,10,10) = (/&
+&8.7883E-03_JPRB,9.2004E-03_JPRB,9.4445E-03_JPRB,9.4717E-03_JPRB,9.4479E-03_JPRB,9.4125E-03_JPRB,&
+&9.0956E-03_JPRB,8.3203E-03_JPRB,2.8653E-02_JPRB/)
+KAO( :, 1,11,10) = (/&
+&7.8501E-03_JPRB,7.4452E-03_JPRB,7.0342E-03_JPRB,6.9004E-03_JPRB,7.0570E-03_JPRB,7.1201E-03_JPRB,&
+&7.0476E-03_JPRB,6.4243E-03_JPRB,4.0572E-02_JPRB/)
+KAO( :, 2,11,10) = (/&
+&7.9753E-03_JPRB,7.7749E-03_JPRB,7.4240E-03_JPRB,7.3009E-03_JPRB,7.4854E-03_JPRB,7.6408E-03_JPRB,&
+&7.5205E-03_JPRB,6.9049E-03_JPRB,4.1441E-02_JPRB/)
+KAO( :, 3,11,10) = (/&
+&8.0806E-03_JPRB,8.0563E-03_JPRB,7.8316E-03_JPRB,7.7518E-03_JPRB,7.9930E-03_JPRB,8.1574E-03_JPRB,&
+&7.9957E-03_JPRB,7.3976E-03_JPRB,4.2222E-02_JPRB/)
+KAO( :, 4,11,10) = (/&
+&8.1992E-03_JPRB,8.3401E-03_JPRB,8.2986E-03_JPRB,8.2629E-03_JPRB,8.5167E-03_JPRB,8.6635E-03_JPRB,&
+&8.4735E-03_JPRB,7.8541E-03_JPRB,4.3187E-02_JPRB/)
+KAO( :, 5,11,10) = (/&
+&8.2878E-03_JPRB,8.6780E-03_JPRB,8.8506E-03_JPRB,8.8633E-03_JPRB,9.0484E-03_JPRB,9.1413E-03_JPRB,&
+&8.9084E-03_JPRB,8.2746E-03_JPRB,4.4361E-02_JPRB/)
+KAO( :, 1,12,10) = (/&
+&7.6139E-03_JPRB,7.2726E-03_JPRB,6.8850E-03_JPRB,6.9089E-03_JPRB,6.9663E-03_JPRB,7.0443E-03_JPRB,&
+&6.8750E-03_JPRB,6.2469E-03_JPRB,4.8797E-02_JPRB/)
+KAO( :, 2,12,10) = (/&
+&7.7194E-03_JPRB,7.5180E-03_JPRB,7.1615E-03_JPRB,7.2509E-03_JPRB,7.4345E-03_JPRB,7.5251E-03_JPRB,&
+&7.3302E-03_JPRB,6.7269E-03_JPRB,4.9597E-02_JPRB/)
+KAO( :, 3,12,10) = (/&
+&7.8184E-03_JPRB,7.7399E-03_JPRB,7.4810E-03_JPRB,7.6258E-03_JPRB,7.9008E-03_JPRB,7.9967E-03_JPRB,&
+&7.8018E-03_JPRB,7.1947E-03_JPRB,5.0339E-02_JPRB/)
+KAO( :, 4,12,10) = (/&
+&7.8914E-03_JPRB,7.9922E-03_JPRB,7.8923E-03_JPRB,8.0511E-03_JPRB,8.3449E-03_JPRB,8.4240E-03_JPRB,&
+&8.2687E-03_JPRB,7.6521E-03_JPRB,5.1350E-02_JPRB/)
+KAO( :, 5,12,10) = (/&
+&7.9507E-03_JPRB,8.2886E-03_JPRB,8.3628E-03_JPRB,8.5321E-03_JPRB,8.7647E-03_JPRB,8.8141E-03_JPRB,&
+&8.7116E-03_JPRB,8.0986E-03_JPRB,5.2764E-02_JPRB/)
+KAO( :, 1,13,10) = (/&
+&7.3158E-03_JPRB,7.0328E-03_JPRB,6.8235E-03_JPRB,6.9230E-03_JPRB,6.9064E-03_JPRB,6.8869E-03_JPRB,&
+&6.6102E-03_JPRB,5.9534E-03_JPRB,4.6027E-02_JPRB/)
+KAO( :, 2,13,10) = (/&
+&7.4278E-03_JPRB,7.2607E-03_JPRB,7.0591E-03_JPRB,7.2420E-03_JPRB,7.3482E-03_JPRB,7.3254E-03_JPRB,&
+&7.0547E-03_JPRB,6.4187E-03_JPRB,4.6671E-02_JPRB/)
+KAO( :, 3,13,10) = (/&
+&7.5295E-03_JPRB,7.4924E-03_JPRB,7.3494E-03_JPRB,7.5754E-03_JPRB,7.7630E-03_JPRB,7.7638E-03_JPRB,&
+&7.4975E-03_JPRB,6.8755E-03_JPRB,4.7440E-02_JPRB/)
+KAO( :, 4,13,10) = (/&
+&7.6080E-03_JPRB,7.7470E-03_JPRB,7.6819E-03_JPRB,7.9565E-03_JPRB,8.1173E-03_JPRB,8.1428E-03_JPRB,&
+&7.9589E-03_JPRB,7.3493E-03_JPRB,4.8497E-02_JPRB/)
+KAO( :, 5,13,10) = (/&
+&7.6817E-03_JPRB,8.0217E-03_JPRB,8.0425E-03_JPRB,8.3061E-03_JPRB,8.4701E-03_JPRB,8.5085E-03_JPRB,&
+&8.3860E-03_JPRB,7.8301E-03_JPRB,4.9971E-02_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&2.7764E-02_JPRB,2.4426E-02_JPRB,2.1973E-02_JPRB,2.0093E-02_JPRB,1.8666E-02_JPRB,1.7278E-02_JPRB,&
+&1.5087E-02_JPRB,1.3103E-02_JPRB,1.4300E-02_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&2.7963E-02_JPRB,2.4667E-02_JPRB,2.2450E-02_JPRB,2.0789E-02_JPRB,1.9549E-02_JPRB,1.8247E-02_JPRB,&
+&1.6059E-02_JPRB,1.4781E-02_JPRB,1.6422E-02_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&2.8032E-02_JPRB,2.4854E-02_JPRB,2.2829E-02_JPRB,2.1504E-02_JPRB,2.0423E-02_JPRB,1.9213E-02_JPRB,&
+&1.7147E-02_JPRB,1.6580E-02_JPRB,1.8603E-02_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&2.7908E-02_JPRB,2.4878E-02_JPRB,2.3088E-02_JPRB,2.2255E-02_JPRB,2.1236E-02_JPRB,2.0204E-02_JPRB,&
+&1.8256E-02_JPRB,1.8454E-02_JPRB,2.0859E-02_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&2.7693E-02_JPRB,2.4833E-02_JPRB,2.3283E-02_JPRB,2.2953E-02_JPRB,2.2107E-02_JPRB,2.1010E-02_JPRB,&
+&1.9343E-02_JPRB,2.0385E-02_JPRB,2.3144E-02_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&2.7646E-02_JPRB,2.4332E-02_JPRB,2.2092E-02_JPRB,2.0298E-02_JPRB,1.9042E-02_JPRB,1.7440E-02_JPRB,&
+&1.5349E-02_JPRB,1.2664E-02_JPRB,1.3386E-02_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&2.7909E-02_JPRB,2.4672E-02_JPRB,2.2646E-02_JPRB,2.1214E-02_JPRB,2.0006E-02_JPRB,1.8412E-02_JPRB,&
+&1.6391E-02_JPRB,1.4178E-02_JPRB,1.5546E-02_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&2.7965E-02_JPRB,2.4859E-02_JPRB,2.3085E-02_JPRB,2.2119E-02_JPRB,2.0910E-02_JPRB,1.9436E-02_JPRB,&
+&1.7350E-02_JPRB,1.5867E-02_JPRB,1.7743E-02_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&2.7851E-02_JPRB,2.4932E-02_JPRB,2.3473E-02_JPRB,2.2951E-02_JPRB,2.1773E-02_JPRB,2.0509E-02_JPRB,&
+&1.8306E-02_JPRB,1.7658E-02_JPRB,1.9938E-02_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&2.7716E-02_JPRB,2.4986E-02_JPRB,2.3872E-02_JPRB,2.3624E-02_JPRB,2.2685E-02_JPRB,2.1385E-02_JPRB,&
+&1.9339E-02_JPRB,1.9475E-02_JPRB,2.2096E-02_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&2.7136E-02_JPRB,2.3913E-02_JPRB,2.1898E-02_JPRB,2.0239E-02_JPRB,1.8943E-02_JPRB,1.7255E-02_JPRB,&
+&1.5286E-02_JPRB,1.1962E-02_JPRB,1.1731E-02_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&2.7384E-02_JPRB,2.4261E-02_JPRB,2.2497E-02_JPRB,2.1296E-02_JPRB,2.0064E-02_JPRB,1.8265E-02_JPRB,&
+&1.6402E-02_JPRB,1.3201E-02_JPRB,1.3756E-02_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&2.7424E-02_JPRB,2.4494E-02_JPRB,2.3027E-02_JPRB,2.2286E-02_JPRB,2.1084E-02_JPRB,1.9295E-02_JPRB,&
+&1.7402E-02_JPRB,1.4625E-02_JPRB,1.5844E-02_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&2.7396E-02_JPRB,2.4666E-02_JPRB,2.3610E-02_JPRB,2.3218E-02_JPRB,2.1991E-02_JPRB,2.0436E-02_JPRB,&
+&1.8232E-02_JPRB,1.6186E-02_JPRB,1.7976E-02_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&2.7396E-02_JPRB,2.4863E-02_JPRB,2.4263E-02_JPRB,2.4003E-02_JPRB,2.2894E-02_JPRB,2.1428E-02_JPRB,&
+&1.9099E-02_JPRB,1.7923E-02_JPRB,2.0191E-02_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&2.6120E-02_JPRB,2.3055E-02_JPRB,2.1334E-02_JPRB,1.9874E-02_JPRB,1.8554E-02_JPRB,1.6913E-02_JPRB,&
+&1.4849E-02_JPRB,1.1247E-02_JPRB,9.9817E-03_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&2.6346E-02_JPRB,2.3452E-02_JPRB,2.1987E-02_JPRB,2.1036E-02_JPRB,1.9768E-02_JPRB,1.8034E-02_JPRB,&
+&1.5969E-02_JPRB,1.2323E-02_JPRB,1.1891E-02_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&2.6444E-02_JPRB,2.3743E-02_JPRB,2.2663E-02_JPRB,2.2134E-02_JPRB,2.0858E-02_JPRB,1.9164E-02_JPRB,&
+&1.7004E-02_JPRB,1.3536E-02_JPRB,1.3883E-02_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&2.6615E-02_JPRB,2.4091E-02_JPRB,2.3417E-02_JPRB,2.3175E-02_JPRB,2.1815E-02_JPRB,2.0352E-02_JPRB,&
+&1.7938E-02_JPRB,1.4897E-02_JPRB,1.5955E-02_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&2.6757E-02_JPRB,2.4467E-02_JPRB,2.4289E-02_JPRB,2.4064E-02_JPRB,2.2838E-02_JPRB,2.1378E-02_JPRB,&
+&1.8780E-02_JPRB,1.6458E-02_JPRB,1.8170E-02_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&2.4649E-02_JPRB,2.1845E-02_JPRB,2.0397E-02_JPRB,1.9200E-02_JPRB,1.7986E-02_JPRB,1.6354E-02_JPRB,&
+&1.4106E-02_JPRB,1.0659E-02_JPRB,8.5296E-03_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&2.4915E-02_JPRB,2.2302E-02_JPRB,2.1150E-02_JPRB,2.0451E-02_JPRB,1.9259E-02_JPRB,1.7581E-02_JPRB,&
+&1.5270E-02_JPRB,1.1646E-02_JPRB,1.0194E-02_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&2.5218E-02_JPRB,2.2788E-02_JPRB,2.1977E-02_JPRB,2.1628E-02_JPRB,2.0422E-02_JPRB,1.8826E-02_JPRB,&
+&1.6327E-02_JPRB,1.2719E-02_JPRB,1.2019E-02_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&2.5482E-02_JPRB,2.3305E-02_JPRB,2.2941E-02_JPRB,2.2718E-02_JPRB,2.1512E-02_JPRB,2.0034E-02_JPRB,&
+&1.7375E-02_JPRB,1.3885E-02_JPRB,1.4041E-02_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&2.5726E-02_JPRB,2.3793E-02_JPRB,2.3951E-02_JPRB,2.3636E-02_JPRB,2.2618E-02_JPRB,2.1077E-02_JPRB,&
+&1.8363E-02_JPRB,1.5350E-02_JPRB,1.6202E-02_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&2.2851E-02_JPRB,2.0373E-02_JPRB,1.9153E-02_JPRB,1.8191E-02_JPRB,1.7169E-02_JPRB,1.5447E-02_JPRB,&
+&1.3127E-02_JPRB,9.9268E-03_JPRB,7.8128E-03_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&2.3274E-02_JPRB,2.0974E-02_JPRB,2.0039E-02_JPRB,1.9515E-02_JPRB,1.8501E-02_JPRB,1.6740E-02_JPRB,&
+&1.4344E-02_JPRB,1.0951E-02_JPRB,8.8752E-03_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&2.3672E-02_JPRB,2.1617E-02_JPRB,2.1050E-02_JPRB,2.0731E-02_JPRB,1.9672E-02_JPRB,1.8067E-02_JPRB,&
+&1.5465E-02_JPRB,1.2013E-02_JPRB,1.0301E-02_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&2.4031E-02_JPRB,2.2215E-02_JPRB,2.2188E-02_JPRB,2.1796E-02_JPRB,2.0865E-02_JPRB,1.9256E-02_JPRB,&
+&1.6602E-02_JPRB,1.3087E-02_JPRB,1.2045E-02_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&2.4424E-02_JPRB,2.2835E-02_JPRB,2.3262E-02_JPRB,2.2762E-02_JPRB,2.2024E-02_JPRB,2.0317E-02_JPRB,&
+&1.7726E-02_JPRB,1.4330E-02_JPRB,1.3970E-02_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&2.0897E-02_JPRB,1.8755E-02_JPRB,1.7733E-02_JPRB,1.7022E-02_JPRB,1.6054E-02_JPRB,1.4311E-02_JPRB,&
+&1.2008E-02_JPRB,9.2731E-03_JPRB,7.7437E-03_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&2.1410E-02_JPRB,1.9491E-02_JPRB,1.8752E-02_JPRB,1.8362E-02_JPRB,1.7373E-02_JPRB,1.5636E-02_JPRB,&
+&1.3285E-02_JPRB,1.0177E-02_JPRB,8.5051E-03_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&2.1887E-02_JPRB,2.0202E-02_JPRB,1.9920E-02_JPRB,1.9593E-02_JPRB,1.8568E-02_JPRB,1.6958E-02_JPRB,&
+&1.4466E-02_JPRB,1.1212E-02_JPRB,9.3670E-03_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&2.2392E-02_JPRB,2.0930E-02_JPRB,2.1140E-02_JPRB,2.0643E-02_JPRB,1.9778E-02_JPRB,1.8147E-02_JPRB,&
+&1.5692E-02_JPRB,1.2278E-02_JPRB,1.0489E-02_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&2.2888E-02_JPRB,2.1742E-02_JPRB,2.2178E-02_JPRB,2.1714E-02_JPRB,2.0936E-02_JPRB,1.9278E-02_JPRB,&
+&1.6882E-02_JPRB,1.3452E-02_JPRB,1.1897E-02_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&1.8841E-02_JPRB,1.7056E-02_JPRB,1.6222E-02_JPRB,1.5693E-02_JPRB,1.4689E-02_JPRB,1.2994E-02_JPRB,&
+&1.0918E-02_JPRB,9.1547E-03_JPRB,7.9124E-03_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&1.9409E-02_JPRB,1.7855E-02_JPRB,1.7363E-02_JPRB,1.7024E-02_JPRB,1.5955E-02_JPRB,1.4305E-02_JPRB,&
+&1.2087E-02_JPRB,9.7905E-03_JPRB,8.4826E-03_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&1.9993E-02_JPRB,1.8663E-02_JPRB,1.8622E-02_JPRB,1.8244E-02_JPRB,1.7158E-02_JPRB,1.5610E-02_JPRB,&
+&1.3302E-02_JPRB,1.0551E-02_JPRB,9.2336E-03_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&2.0602E-02_JPRB,1.9539E-02_JPRB,1.9827E-02_JPRB,1.9347E-02_JPRB,1.8357E-02_JPRB,1.6779E-02_JPRB,&
+&1.4567E-02_JPRB,1.1467E-02_JPRB,9.9909E-03_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&2.1064E-02_JPRB,2.0402E-02_JPRB,2.0838E-02_JPRB,2.0466E-02_JPRB,1.9507E-02_JPRB,1.7959E-02_JPRB,&
+&1.5824E-02_JPRB,1.2520E-02_JPRB,1.0807E-02_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&1.6824E-02_JPRB,1.5334E-02_JPRB,1.4694E-02_JPRB,1.4181E-02_JPRB,1.3143E-02_JPRB,1.1680E-02_JPRB,&
+&1.0334E-02_JPRB,9.1831E-03_JPRB,1.1053E-02_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&1.7417E-02_JPRB,1.6144E-02_JPRB,1.5897E-02_JPRB,1.5487E-02_JPRB,1.4380E-02_JPRB,1.2867E-02_JPRB,&
+&1.1184E-02_JPRB,9.7551E-03_JPRB,1.1728E-02_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&1.8068E-02_JPRB,1.7042E-02_JPRB,1.7161E-02_JPRB,1.6678E-02_JPRB,1.5557E-02_JPRB,1.4093E-02_JPRB,&
+&1.2184E-02_JPRB,1.0404E-02_JPRB,1.2483E-02_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&1.8632E-02_JPRB,1.7983E-02_JPRB,1.8323E-02_JPRB,1.7788E-02_JPRB,1.6784E-02_JPRB,1.5260E-02_JPRB,&
+&1.3324E-02_JPRB,1.1123E-02_JPRB,1.3280E-02_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&1.9073E-02_JPRB,1.8843E-02_JPRB,1.9281E-02_JPRB,1.8905E-02_JPRB,1.7900E-02_JPRB,1.6447E-02_JPRB,&
+&1.4515E-02_JPRB,1.1877E-02_JPRB,1.4077E-02_JPRB/)
+KAO( :, 1,10,11) = (/&
+&1.5121E-02_JPRB,1.3838E-02_JPRB,1.3365E-02_JPRB,1.2721E-02_JPRB,1.1737E-02_JPRB,1.0953E-02_JPRB,&
+&1.0213E-02_JPRB,9.1916E-03_JPRB,3.5198E-02_JPRB/)
+KAO( :, 2,10,11) = (/&
+&1.5710E-02_JPRB,1.4640E-02_JPRB,1.4492E-02_JPRB,1.3911E-02_JPRB,1.2838E-02_JPRB,1.1818E-02_JPRB,&
+&1.0924E-02_JPRB,9.7376E-03_JPRB,3.6361E-02_JPRB/)
+KAO( :, 3,10,11) = (/&
+&1.6286E-02_JPRB,1.5525E-02_JPRB,1.5683E-02_JPRB,1.5045E-02_JPRB,1.3992E-02_JPRB,1.2769E-02_JPRB,&
+&1.1723E-02_JPRB,1.0342E-02_JPRB,3.7359E-02_JPRB/)
+KAO( :, 4,10,11) = (/&
+&1.6782E-02_JPRB,1.6440E-02_JPRB,1.6745E-02_JPRB,1.6156E-02_JPRB,1.5181E-02_JPRB,1.3811E-02_JPRB,&
+&1.2551E-02_JPRB,1.1044E-02_JPRB,3.8551E-02_JPRB/)
+KAO( :, 5,10,11) = (/&
+&1.7221E-02_JPRB,1.7284E-02_JPRB,1.7650E-02_JPRB,1.7276E-02_JPRB,1.6297E-02_JPRB,1.4958E-02_JPRB,&
+&1.3449E-02_JPRB,1.1753E-02_JPRB,3.9714E-02_JPRB/)
+KAO( :, 1,11,11) = (/&
+&1.4019E-02_JPRB,1.2957E-02_JPRB,1.2611E-02_JPRB,1.1869E-02_JPRB,1.1221E-02_JPRB,1.0951E-02_JPRB,&
+&1.0419E-02_JPRB,9.2574E-03_JPRB,5.9295E-02_JPRB/)
+KAO( :, 2,11,11) = (/&
+&1.4514E-02_JPRB,1.3729E-02_JPRB,1.3655E-02_JPRB,1.2913E-02_JPRB,1.2091E-02_JPRB,1.1604E-02_JPRB,&
+&1.1118E-02_JPRB,9.8828E-03_JPRB,6.0862E-02_JPRB/)
+KAO( :, 3,11,11) = (/&
+&1.4986E-02_JPRB,1.4596E-02_JPRB,1.4648E-02_JPRB,1.3931E-02_JPRB,1.3062E-02_JPRB,1.2353E-02_JPRB,&
+&1.1821E-02_JPRB,1.0518E-02_JPRB,6.2214E-02_JPRB/)
+KAO( :, 4,11,11) = (/&
+&1.5398E-02_JPRB,1.5423E-02_JPRB,1.5511E-02_JPRB,1.4991E-02_JPRB,1.4093E-02_JPRB,1.3225E-02_JPRB,&
+&1.2498E-02_JPRB,1.1195E-02_JPRB,6.3269E-02_JPRB/)
+KAO( :, 5,11,11) = (/&
+&1.5718E-02_JPRB,1.6102E-02_JPRB,1.6332E-02_JPRB,1.5968E-02_JPRB,1.5171E-02_JPRB,1.4160E-02_JPRB,&
+&1.3209E-02_JPRB,1.1891E-02_JPRB,6.4542E-02_JPRB/)
+KAO( :, 1,12,11) = (/&
+&1.3164E-02_JPRB,1.2292E-02_JPRB,1.1927E-02_JPRB,1.1265E-02_JPRB,1.1057E-02_JPRB,1.0913E-02_JPRB,&
+&1.0445E-02_JPRB,9.2736E-03_JPRB,7.4756E-02_JPRB/)
+KAO( :, 2,12,11) = (/&
+&1.3602E-02_JPRB,1.3075E-02_JPRB,1.2792E-02_JPRB,1.2052E-02_JPRB,1.1692E-02_JPRB,1.1536E-02_JPRB,&
+&1.1126E-02_JPRB,9.9170E-03_JPRB,7.6306E-02_JPRB/)
+KAO( :, 3,12,11) = (/&
+&1.3977E-02_JPRB,1.3830E-02_JPRB,1.3590E-02_JPRB,1.2927E-02_JPRB,1.2424E-02_JPRB,1.2227E-02_JPRB,&
+&1.1745E-02_JPRB,1.0613E-02_JPRB,7.7655E-02_JPRB/)
+KAO( :, 4,12,11) = (/&
+&1.4251E-02_JPRB,1.4432E-02_JPRB,1.4329E-02_JPRB,1.3821E-02_JPRB,1.3256E-02_JPRB,1.2933E-02_JPRB,&
+&1.2386E-02_JPRB,1.1303E-02_JPRB,7.8663E-02_JPRB/)
+KAO( :, 5,12,11) = (/&
+&1.4497E-02_JPRB,1.4939E-02_JPRB,1.5040E-02_JPRB,1.4676E-02_JPRB,1.4122E-02_JPRB,1.3675E-02_JPRB,&
+&1.3045E-02_JPRB,1.1981E-02_JPRB,7.9879E-02_JPRB/)
+KAO( :, 1,13,11) = (/&
+&1.2616E-02_JPRB,1.1893E-02_JPRB,1.1313E-02_JPRB,1.0907E-02_JPRB,1.0966E-02_JPRB,1.0790E-02_JPRB,&
+&1.0280E-02_JPRB,9.1949E-03_JPRB,7.3725E-02_JPRB/)
+KAO( :, 2,13,11) = (/&
+&1.2957E-02_JPRB,1.2555E-02_JPRB,1.2016E-02_JPRB,1.1533E-02_JPRB,1.1499E-02_JPRB,1.1400E-02_JPRB,&
+&1.0924E-02_JPRB,9.8797E-03_JPRB,7.4996E-02_JPRB/)
+KAO( :, 3,13,11) = (/&
+&1.3172E-02_JPRB,1.3071E-02_JPRB,1.2663E-02_JPRB,1.2207E-02_JPRB,1.2117E-02_JPRB,1.2009E-02_JPRB,&
+&1.1575E-02_JPRB,1.0610E-02_JPRB,7.6038E-02_JPRB/)
+KAO( :, 4,13,11) = (/&
+&1.3348E-02_JPRB,1.3517E-02_JPRB,1.3285E-02_JPRB,1.2851E-02_JPRB,1.2762E-02_JPRB,1.2671E-02_JPRB,&
+&1.2190E-02_JPRB,1.1315E-02_JPRB,7.7063E-02_JPRB/)
+KAO( :, 5,13,11) = (/&
+&1.3524E-02_JPRB,1.3946E-02_JPRB,1.3887E-02_JPRB,1.3540E-02_JPRB,1.3388E-02_JPRB,1.3305E-02_JPRB,&
+&1.2841E-02_JPRB,1.2009E-02_JPRB,7.8468E-02_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&3.9522E-02_JPRB,3.4695E-02_JPRB,3.0393E-02_JPRB,2.7444E-02_JPRB,2.4701E-02_JPRB,2.2430E-02_JPRB,&
+&1.9690E-02_JPRB,1.9007E-02_JPRB,2.1357E-02_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&3.9055E-02_JPRB,3.4293E-02_JPRB,3.0365E-02_JPRB,2.7692E-02_JPRB,2.5619E-02_JPRB,2.3505E-02_JPRB,&
+&2.1002E-02_JPRB,2.1723E-02_JPRB,2.4548E-02_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&3.8771E-02_JPRB,3.4045E-02_JPRB,3.0558E-02_JPRB,2.8122E-02_JPRB,2.6598E-02_JPRB,2.4455E-02_JPRB,&
+&2.2524E-02_JPRB,2.4725E-02_JPRB,2.7978E-02_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&3.8655E-02_JPRB,3.3972E-02_JPRB,3.0813E-02_JPRB,2.8575E-02_JPRB,2.7403E-02_JPRB,2.5405E-02_JPRB,&
+&2.4525E-02_JPRB,2.7903E-02_JPRB,3.1582E-02_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&3.8581E-02_JPRB,3.4020E-02_JPRB,3.1105E-02_JPRB,2.9186E-02_JPRB,2.7932E-02_JPRB,2.6686E-02_JPRB,&
+&2.7056E-02_JPRB,3.1213E-02_JPRB,3.5341E-02_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&4.0900E-02_JPRB,3.5882E-02_JPRB,3.1540E-02_JPRB,2.8648E-02_JPRB,2.5916E-02_JPRB,2.3479E-02_JPRB,&
+&1.9842E-02_JPRB,1.8172E-02_JPRB,2.0462E-02_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&4.0629E-02_JPRB,3.5647E-02_JPRB,3.1749E-02_JPRB,2.9079E-02_JPRB,2.7038E-02_JPRB,2.4448E-02_JPRB,&
+&2.0997E-02_JPRB,2.0801E-02_JPRB,2.3586E-02_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&4.0634E-02_JPRB,3.5666E-02_JPRB,3.2165E-02_JPRB,2.9630E-02_JPRB,2.8090E-02_JPRB,2.5205E-02_JPRB,&
+&2.2483E-02_JPRB,2.3756E-02_JPRB,2.6981E-02_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&4.0680E-02_JPRB,3.5804E-02_JPRB,3.2512E-02_JPRB,3.0271E-02_JPRB,2.8844E-02_JPRB,2.6048E-02_JPRB,&
+&2.4362E-02_JPRB,2.6965E-02_JPRB,3.0664E-02_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&4.0551E-02_JPRB,3.5850E-02_JPRB,3.2760E-02_JPRB,3.1085E-02_JPRB,2.9377E-02_JPRB,2.7302E-02_JPRB,&
+&2.6614E-02_JPRB,3.0323E-02_JPRB,3.4512E-02_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&4.2297E-02_JPRB,3.7083E-02_JPRB,3.2675E-02_JPRB,2.9696E-02_JPRB,2.6819E-02_JPRB,2.4251E-02_JPRB,&
+&1.9800E-02_JPRB,1.7013E-02_JPRB,1.8998E-02_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&4.2345E-02_JPRB,3.7129E-02_JPRB,3.3126E-02_JPRB,3.0221E-02_JPRB,2.7989E-02_JPRB,2.5268E-02_JPRB,&
+&2.0870E-02_JPRB,1.9534E-02_JPRB,2.2175E-02_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&4.2503E-02_JPRB,3.7329E-02_JPRB,3.3705E-02_JPRB,3.0884E-02_JPRB,2.9095E-02_JPRB,2.6012E-02_JPRB,&
+&2.2274E-02_JPRB,2.2409E-02_JPRB,2.5549E-02_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&4.2563E-02_JPRB,3.7513E-02_JPRB,3.4118E-02_JPRB,3.1719E-02_JPRB,2.9991E-02_JPRB,2.6648E-02_JPRB,&
+&2.4107E-02_JPRB,2.5501E-02_JPRB,2.9091E-02_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&4.2352E-02_JPRB,3.7494E-02_JPRB,3.4375E-02_JPRB,3.2625E-02_JPRB,3.0646E-02_JPRB,2.7653E-02_JPRB,&
+&2.6034E-02_JPRB,2.8674E-02_JPRB,3.2704E-02_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&4.3449E-02_JPRB,3.8071E-02_JPRB,3.3569E-02_JPRB,3.0433E-02_JPRB,2.7408E-02_JPRB,2.4611E-02_JPRB,&
+&2.0108E-02_JPRB,1.5832E-02_JPRB,1.6869E-02_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&4.3754E-02_JPRB,3.8357E-02_JPRB,3.4350E-02_JPRB,3.1115E-02_JPRB,2.8679E-02_JPRB,2.5625E-02_JPRB,&
+&2.1066E-02_JPRB,1.8077E-02_JPRB,2.0082E-02_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&4.3973E-02_JPRB,3.8656E-02_JPRB,3.5023E-02_JPRB,3.2006E-02_JPRB,2.9792E-02_JPRB,2.6458E-02_JPRB,&
+&2.2328E-02_JPRB,2.0812E-02_JPRB,2.3540E-02_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&4.3938E-02_JPRB,3.8773E-02_JPRB,3.5454E-02_JPRB,3.2980E-02_JPRB,3.0747E-02_JPRB,2.7193E-02_JPRB,&
+&2.3978E-02_JPRB,2.3783E-02_JPRB,2.7070E-02_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&4.3814E-02_JPRB,3.8836E-02_JPRB,3.5796E-02_JPRB,3.3909E-02_JPRB,3.1572E-02_JPRB,2.8214E-02_JPRB,&
+&2.5779E-02_JPRB,2.6823E-02_JPRB,3.0560E-02_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&4.3987E-02_JPRB,3.8530E-02_JPRB,3.4139E-02_JPRB,3.0809E-02_JPRB,2.7641E-02_JPRB,2.4664E-02_JPRB,&
+&2.0281E-02_JPRB,1.4828E-02_JPRB,1.4596E-02_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&4.4423E-02_JPRB,3.8965E-02_JPRB,3.5098E-02_JPRB,3.1717E-02_JPRB,2.9032E-02_JPRB,2.5717E-02_JPRB,&
+&2.1306E-02_JPRB,1.6792E-02_JPRB,1.7692E-02_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&4.4740E-02_JPRB,3.9368E-02_JPRB,3.5854E-02_JPRB,3.2800E-02_JPRB,3.0202E-02_JPRB,2.6633E-02_JPRB,&
+&2.2521E-02_JPRB,1.9130E-02_JPRB,2.0967E-02_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&4.4784E-02_JPRB,3.9578E-02_JPRB,3.6349E-02_JPRB,3.3852E-02_JPRB,3.1212E-02_JPRB,2.7594E-02_JPRB,&
+&2.3985E-02_JPRB,2.1768E-02_JPRB,2.4335E-02_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&4.4634E-02_JPRB,3.9684E-02_JPRB,3.6716E-02_JPRB,3.4783E-02_JPRB,3.2166E-02_JPRB,2.8840E-02_JPRB,&
+&2.5566E-02_JPRB,2.4589E-02_JPRB,2.7780E-02_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&4.3652E-02_JPRB,3.8230E-02_JPRB,3.4067E-02_JPRB,3.0633E-02_JPRB,2.7394E-02_JPRB,2.4357E-02_JPRB,&
+&2.0018E-02_JPRB,1.4129E-02_JPRB,1.2309E-02_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&4.4319E-02_JPRB,3.8893E-02_JPRB,3.5172E-02_JPRB,3.1745E-02_JPRB,2.8902E-02_JPRB,2.5570E-02_JPRB,&
+&2.1093E-02_JPRB,1.5716E-02_JPRB,1.5104E-02_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&4.4786E-02_JPRB,3.9451E-02_JPRB,3.6064E-02_JPRB,3.2991E-02_JPRB,3.0223E-02_JPRB,2.6609E-02_JPRB,&
+&2.2435E-02_JPRB,1.7637E-02_JPRB,1.8165E-02_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&4.4788E-02_JPRB,3.9699E-02_JPRB,3.6561E-02_JPRB,3.4163E-02_JPRB,3.1314E-02_JPRB,2.7788E-02_JPRB,&
+&2.3906E-02_JPRB,1.9877E-02_JPRB,2.1395E-02_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&4.4447E-02_JPRB,3.9668E-02_JPRB,3.6988E-02_JPRB,3.5173E-02_JPRB,3.2361E-02_JPRB,2.9209E-02_JPRB,&
+&2.5326E-02_JPRB,2.2392E-02_JPRB,2.4740E-02_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&4.2520E-02_JPRB,3.7241E-02_JPRB,3.3313E-02_JPRB,2.9817E-02_JPRB,2.6724E-02_JPRB,2.3713E-02_JPRB,&
+&1.9392E-02_JPRB,1.3514E-02_JPRB,1.0779E-02_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&4.3342E-02_JPRB,3.8062E-02_JPRB,3.4549E-02_JPRB,3.1204E-02_JPRB,2.8393E-02_JPRB,2.5083E-02_JPRB,&
+&2.0539E-02_JPRB,1.4970E-02_JPRB,1.2835E-02_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&4.3790E-02_JPRB,3.8673E-02_JPRB,3.5497E-02_JPRB,3.2592E-02_JPRB,2.9885E-02_JPRB,2.6278E-02_JPRB,&
+&2.1950E-02_JPRB,1.6561E-02_JPRB,1.5528E-02_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&4.3699E-02_JPRB,3.8889E-02_JPRB,3.6038E-02_JPRB,3.3992E-02_JPRB,3.1096E-02_JPRB,2.7610E-02_JPRB,&
+&2.3462E-02_JPRB,1.8494E-02_JPRB,1.8561E-02_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&4.3391E-02_JPRB,3.8899E-02_JPRB,3.6695E-02_JPRB,3.5094E-02_JPRB,3.2242E-02_JPRB,2.9127E-02_JPRB,&
+&2.4986E-02_JPRB,2.0683E-02_JPRB,2.1759E-02_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&4.0705E-02_JPRB,3.5661E-02_JPRB,3.2044E-02_JPRB,2.8588E-02_JPRB,2.5730E-02_JPRB,2.2651E-02_JPRB,&
+&1.8403E-02_JPRB,1.2786E-02_JPRB,1.0617E-02_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&4.1513E-02_JPRB,3.6523E-02_JPRB,3.3287E-02_JPRB,3.0168E-02_JPRB,2.7518E-02_JPRB,2.4185E-02_JPRB,&
+&1.9645E-02_JPRB,1.4186E-02_JPRB,1.1770E-02_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&4.1918E-02_JPRB,3.7171E-02_JPRB,3.4241E-02_JPRB,3.1699E-02_JPRB,2.9124E-02_JPRB,2.5489E-02_JPRB,&
+&2.1120E-02_JPRB,1.5769E-02_JPRB,1.3550E-02_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&4.1853E-02_JPRB,3.7439E-02_JPRB,3.4958E-02_JPRB,3.3201E-02_JPRB,3.0465E-02_JPRB,2.6939E-02_JPRB,&
+&2.2712E-02_JPRB,1.7517E-02_JPRB,1.5986E-02_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&4.1733E-02_JPRB,3.7668E-02_JPRB,3.5839E-02_JPRB,3.4355E-02_JPRB,3.1760E-02_JPRB,2.8542E-02_JPRB,&
+&2.4348E-02_JPRB,1.9402E-02_JPRB,1.8887E-02_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&3.8179E-02_JPRB,3.3470E-02_JPRB,3.0206E-02_JPRB,2.7054E-02_JPRB,2.4424E-02_JPRB,2.1213E-02_JPRB,&
+&1.7112E-02_JPRB,1.2467E-02_JPRB,1.5003E-02_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&3.9010E-02_JPRB,3.4434E-02_JPRB,3.1441E-02_JPRB,2.8741E-02_JPRB,2.6231E-02_JPRB,2.2823E-02_JPRB,&
+&1.8428E-02_JPRB,1.3530E-02_JPRB,1.6372E-02_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&3.9453E-02_JPRB,3.5166E-02_JPRB,3.2518E-02_JPRB,3.0394E-02_JPRB,2.7907E-02_JPRB,2.4225E-02_JPRB,&
+&1.9954E-02_JPRB,1.4900E-02_JPRB,1.8039E-02_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&3.9552E-02_JPRB,3.5595E-02_JPRB,3.3460E-02_JPRB,3.1929E-02_JPRB,2.9264E-02_JPRB,2.5769E-02_JPRB,&
+&2.1600E-02_JPRB,1.6537E-02_JPRB,1.9903E-02_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&3.9456E-02_JPRB,3.5940E-02_JPRB,3.4560E-02_JPRB,3.3060E-02_JPRB,3.0675E-02_JPRB,2.7481E-02_JPRB,&
+&2.3382E-02_JPRB,1.8398E-02_JPRB,2.1739E-02_JPRB/)
+KAO( :, 1,10,12) = (/&
+&3.5238E-02_JPRB,3.0971E-02_JPRB,2.8042E-02_JPRB,2.5331E-02_JPRB,2.2876E-02_JPRB,1.9632E-02_JPRB,&
+&1.5965E-02_JPRB,1.2700E-02_JPRB,4.7338E-02_JPRB/)
+KAO( :, 2,10,12) = (/&
+&3.6134E-02_JPRB,3.2062E-02_JPRB,2.9356E-02_JPRB,2.7135E-02_JPRB,2.4639E-02_JPRB,2.1263E-02_JPRB,&
+&1.7126E-02_JPRB,1.3564E-02_JPRB,4.9352E-02_JPRB/)
+KAO( :, 3,10,12) = (/&
+&3.6647E-02_JPRB,3.2881E-02_JPRB,3.0571E-02_JPRB,2.8822E-02_JPRB,2.6275E-02_JPRB,2.2691E-02_JPRB,&
+&1.8634E-02_JPRB,1.4609E-02_JPRB,5.1163E-02_JPRB/)
+KAO( :, 4,10,12) = (/&
+&3.6732E-02_JPRB,3.3352E-02_JPRB,3.1697E-02_JPRB,3.0299E-02_JPRB,2.7653E-02_JPRB,2.4298E-02_JPRB,&
+&2.0355E-02_JPRB,1.5925E-02_JPRB,5.2665E-02_JPRB/)
+KAO( :, 5,10,12) = (/&
+&3.6735E-02_JPRB,3.3801E-02_JPRB,3.2857E-02_JPRB,3.1401E-02_JPRB,2.9116E-02_JPRB,2.6070E-02_JPRB,&
+&2.2245E-02_JPRB,1.7479E-02_JPRB,5.4548E-02_JPRB/)
+KAO( :, 1,11,12) = (/&
+&3.2545E-02_JPRB,2.8854E-02_JPRB,2.6358E-02_JPRB,2.4300E-02_JPRB,2.1804E-02_JPRB,1.8684E-02_JPRB,&
+&1.5775E-02_JPRB,1.3392E-02_JPRB,8.3440E-02_JPRB/)
+KAO( :, 2,11,12) = (/&
+&3.3300E-02_JPRB,2.9905E-02_JPRB,2.7758E-02_JPRB,2.6019E-02_JPRB,2.3465E-02_JPRB,2.0097E-02_JPRB,&
+&1.6793E-02_JPRB,1.4249E-02_JPRB,8.5867E-02_JPRB/)
+KAO( :, 3,11,12) = (/&
+&3.3558E-02_JPRB,3.0525E-02_JPRB,2.8985E-02_JPRB,2.7554E-02_JPRB,2.4920E-02_JPRB,2.1636E-02_JPRB,&
+&1.8144E-02_JPRB,1.5281E-02_JPRB,8.8098E-02_JPRB/)
+KAO( :, 4,11,12) = (/&
+&3.3710E-02_JPRB,3.1080E-02_JPRB,3.0218E-02_JPRB,2.8753E-02_JPRB,2.6347E-02_JPRB,2.3365E-02_JPRB,&
+&1.9836E-02_JPRB,1.6406E-02_JPRB,9.0071E-02_JPRB/)
+KAO( :, 5,11,12) = (/&
+&3.3928E-02_JPRB,3.1726E-02_JPRB,3.1326E-02_JPRB,2.9966E-02_JPRB,2.7916E-02_JPRB,2.5204E-02_JPRB,&
+&2.1753E-02_JPRB,1.7712E-02_JPRB,9.1519E-02_JPRB/)
+KAO( :, 1,12,12) = (/&
+&2.9830E-02_JPRB,2.6721E-02_JPRB,2.4676E-02_JPRB,2.2938E-02_JPRB,2.0448E-02_JPRB,1.7882E-02_JPRB,&
+&1.5923E-02_JPRB,1.3970E-02_JPRB,1.1086E-01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&3.0231E-02_JPRB,2.7476E-02_JPRB,2.6007E-02_JPRB,2.4462E-02_JPRB,2.1935E-02_JPRB,1.9103E-02_JPRB,&
+&1.6840E-02_JPRB,1.4875E-02_JPRB,1.1330E-01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&3.0491E-02_JPRB,2.8099E-02_JPRB,2.7260E-02_JPRB,2.5711E-02_JPRB,2.3307E-02_JPRB,2.0562E-02_JPRB,&
+&1.8077E-02_JPRB,1.5918E-02_JPRB,1.1557E-01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&3.0757E-02_JPRB,2.8842E-02_JPRB,2.8411E-02_JPRB,2.6924E-02_JPRB,2.4803E-02_JPRB,2.2253E-02_JPRB,&
+&1.9581E-02_JPRB,1.7012E-02_JPRB,1.1765E-01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&3.0918E-02_JPRB,2.9599E-02_JPRB,2.9489E-02_JPRB,2.8288E-02_JPRB,2.6494E-02_JPRB,2.4129E-02_JPRB,&
+&2.1275E-02_JPRB,1.8143E-02_JPRB,1.1909E-01_JPRB/)
+KAO( :, 1,13,12) = (/&
+&2.7094E-02_JPRB,2.4532E-02_JPRB,2.3049E-02_JPRB,2.1309E-02_JPRB,1.9154E-02_JPRB,1.7486E-02_JPRB,&
+&1.6144E-02_JPRB,1.4353E-02_JPRB,1.1524E-01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&2.7412E-02_JPRB,2.5168E-02_JPRB,2.4223E-02_JPRB,2.2514E-02_JPRB,2.0316E-02_JPRB,1.8507E-02_JPRB,&
+&1.7150E-02_JPRB,1.5366E-02_JPRB,1.1754E-01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&2.7677E-02_JPRB,2.5904E-02_JPRB,2.5334E-02_JPRB,2.3685E-02_JPRB,2.1617E-02_JPRB,1.9773E-02_JPRB,&
+&1.8343E-02_JPRB,1.6413E-02_JPRB,1.1954E-01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&2.7872E-02_JPRB,2.6672E-02_JPRB,2.6384E-02_JPRB,2.5015E-02_JPRB,2.3188E-02_JPRB,2.1278E-02_JPRB,&
+&1.9644E-02_JPRB,1.7533E-02_JPRB,1.2118E-01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&2.7954E-02_JPRB,2.7488E-02_JPRB,2.7495E-02_JPRB,2.6532E-02_JPRB,2.4977E-02_JPRB,2.3012E-02_JPRB,&
+&2.1088E-02_JPRB,1.8595E-02_JPRB,1.2230E-01_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&5.6053E-02_JPRB,4.9173E-02_JPRB,4.2351E-02_JPRB,3.6619E-02_JPRB,3.1919E-02_JPRB,2.7549E-02_JPRB,&
+&2.5709E-02_JPRB,2.8817E-02_JPRB,3.2228E-02_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&5.5104E-02_JPRB,4.8363E-02_JPRB,4.1989E-02_JPRB,3.6731E-02_JPRB,3.2283E-02_JPRB,2.9042E-02_JPRB,&
+&2.9013E-02_JPRB,3.3235E-02_JPRB,3.7260E-02_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&5.3995E-02_JPRB,4.7411E-02_JPRB,4.1385E-02_JPRB,3.6532E-02_JPRB,3.2764E-02_JPRB,3.0737E-02_JPRB,&
+&3.2896E-02_JPRB,3.7808E-02_JPRB,4.2479E-02_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&5.2736E-02_JPRB,4.6336E-02_JPRB,4.0785E-02_JPRB,3.6489E-02_JPRB,3.3723E-02_JPRB,3.2658E-02_JPRB,&
+&3.6921E-02_JPRB,4.2523E-02_JPRB,4.7856E-02_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&5.1501E-02_JPRB,4.5267E-02_JPRB,4.0254E-02_JPRB,3.6460E-02_JPRB,3.5114E-02_JPRB,3.5037E-02_JPRB,&
+&4.0972E-02_JPRB,4.7260E-02_JPRB,5.3261E-02_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&6.0681E-02_JPRB,5.3202E-02_JPRB,4.5845E-02_JPRB,3.9636E-02_JPRB,3.4042E-02_JPRB,2.9064E-02_JPRB,&
+&2.6532E-02_JPRB,2.9036E-02_JPRB,3.2832E-02_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&5.9591E-02_JPRB,5.2263E-02_JPRB,4.5381E-02_JPRB,3.9598E-02_JPRB,3.4216E-02_JPRB,3.0746E-02_JPRB,&
+&2.9570E-02_JPRB,3.3591E-02_JPRB,3.8065E-02_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&5.8268E-02_JPRB,5.1123E-02_JPRB,4.4655E-02_JPRB,3.9364E-02_JPRB,3.4820E-02_JPRB,3.2584E-02_JPRB,&
+&3.3306E-02_JPRB,3.8344E-02_JPRB,4.3514E-02_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&5.6859E-02_JPRB,4.9908E-02_JPRB,4.4073E-02_JPRB,3.9320E-02_JPRB,3.5951E-02_JPRB,3.4443E-02_JPRB,&
+&3.7381E-02_JPRB,4.3145E-02_JPRB,4.9018E-02_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&5.5606E-02_JPRB,4.8809E-02_JPRB,4.3641E-02_JPRB,3.9295E-02_JPRB,3.7457E-02_JPRB,3.6510E-02_JPRB,&
+&4.1577E-02_JPRB,4.8053E-02_JPRB,5.4636E-02_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&6.5281E-02_JPRB,5.7202E-02_JPRB,4.9259E-02_JPRB,4.2481E-02_JPRB,3.6242E-02_JPRB,3.0257E-02_JPRB,&
+&2.6947E-02_JPRB,2.7850E-02_JPRB,3.1754E-02_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&6.4026E-02_JPRB,5.6115E-02_JPRB,4.8709E-02_JPRB,4.2529E-02_JPRB,3.6413E-02_JPRB,3.1975E-02_JPRB,&
+&2.9537E-02_JPRB,3.2421E-02_JPRB,3.6975E-02_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&6.2582E-02_JPRB,5.4864E-02_JPRB,4.7944E-02_JPRB,4.2387E-02_JPRB,3.6942E-02_JPRB,3.3882E-02_JPRB,&
+&3.2746E-02_JPRB,3.7152E-02_JPRB,4.2391E-02_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&6.1252E-02_JPRB,5.3699E-02_JPRB,4.7471E-02_JPRB,4.2276E-02_JPRB,3.8007E-02_JPRB,3.5845E-02_JPRB,&
+&3.6492E-02_JPRB,4.2063E-02_JPRB,4.8049E-02_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&6.0092E-02_JPRB,5.2697E-02_JPRB,4.7050E-02_JPRB,4.2178E-02_JPRB,3.9419E-02_JPRB,3.7791E-02_JPRB,&
+&4.0791E-02_JPRB,4.7197E-02_JPRB,5.3978E-02_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&6.9156E-02_JPRB,6.0580E-02_JPRB,5.2151E-02_JPRB,4.4993E-02_JPRB,3.8321E-02_JPRB,3.1681E-02_JPRB,&
+&2.7066E-02_JPRB,2.6200E-02_JPRB,2.9938E-02_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&6.7721E-02_JPRB,5.9333E-02_JPRB,5.1460E-02_JPRB,4.5174E-02_JPRB,3.8672E-02_JPRB,3.3341E-02_JPRB,&
+&2.9463E-02_JPRB,3.0601E-02_JPRB,3.4960E-02_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&6.6317E-02_JPRB,5.8105E-02_JPRB,5.0834E-02_JPRB,4.5138E-02_JPRB,3.9401E-02_JPRB,3.5131E-02_JPRB,&
+&3.2153E-02_JPRB,3.5157E-02_JPRB,4.0204E-02_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&6.5137E-02_JPRB,5.7074E-02_JPRB,5.0526E-02_JPRB,4.5041E-02_JPRB,4.0452E-02_JPRB,3.6956E-02_JPRB,&
+&3.5433E-02_JPRB,4.0097E-02_JPRB,4.5914E-02_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&6.4115E-02_JPRB,5.6230E-02_JPRB,5.0276E-02_JPRB,4.5144E-02_JPRB,4.1609E-02_JPRB,3.8932E-02_JPRB,&
+&3.9448E-02_JPRB,4.5417E-02_JPRB,5.2017E-02_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&7.2400E-02_JPRB,6.3404E-02_JPRB,5.4540E-02_JPRB,4.7112E-02_JPRB,4.0185E-02_JPRB,3.3245E-02_JPRB,&
+&2.7454E-02_JPRB,2.4538E-02_JPRB,2.7637E-02_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&7.1034E-02_JPRB,6.2212E-02_JPRB,5.3950E-02_JPRB,4.7421E-02_JPRB,4.0716E-02_JPRB,3.5033E-02_JPRB,&
+&2.9541E-02_JPRB,2.8475E-02_JPRB,3.2456E-02_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&6.9683E-02_JPRB,6.1033E-02_JPRB,5.3449E-02_JPRB,4.7487E-02_JPRB,4.1776E-02_JPRB,3.6647E-02_JPRB,&
+&3.1941E-02_JPRB,3.2964E-02_JPRB,3.7708E-02_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&6.8593E-02_JPRB,6.0082E-02_JPRB,5.3255E-02_JPRB,4.7581E-02_JPRB,4.2936E-02_JPRB,3.8247E-02_JPRB,&
+&3.4793E-02_JPRB,3.7940E-02_JPRB,4.3452E-02_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&6.7660E-02_JPRB,5.9367E-02_JPRB,5.3230E-02_JPRB,4.8095E-02_JPRB,4.3998E-02_JPRB,4.0012E-02_JPRB,&
+&3.8369E-02_JPRB,4.3216E-02_JPRB,4.9502E-02_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&7.5282E-02_JPRB,6.5913E-02_JPRB,5.6672E-02_JPRB,4.9038E-02_JPRB,4.1667E-02_JPRB,3.4580E-02_JPRB,&
+&2.8084E-02_JPRB,2.2885E-02_JPRB,2.4729E-02_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&7.3954E-02_JPRB,6.4757E-02_JPRB,5.6182E-02_JPRB,4.9451E-02_JPRB,4.2376E-02_JPRB,3.6480E-02_JPRB,&
+&3.0034E-02_JPRB,2.6432E-02_JPRB,2.9602E-02_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&7.2618E-02_JPRB,6.3591E-02_JPRB,5.5752E-02_JPRB,4.9591E-02_JPRB,4.3630E-02_JPRB,3.8182E-02_JPRB,&
+&3.2101E-02_JPRB,3.0615E-02_JPRB,3.4863E-02_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&7.1650E-02_JPRB,6.2766E-02_JPRB,5.5838E-02_JPRB,4.9867E-02_JPRB,4.5071E-02_JPRB,3.9626E-02_JPRB,&
+&3.4633E-02_JPRB,3.5415E-02_JPRB,4.0513E-02_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&7.0928E-02_JPRB,6.2275E-02_JPRB,5.5944E-02_JPRB,5.0656E-02_JPRB,4.6360E-02_JPRB,4.1240E-02_JPRB,&
+&3.7820E-02_JPRB,4.0601E-02_JPRB,4.6473E-02_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&7.7231E-02_JPRB,6.7608E-02_JPRB,5.8137E-02_JPRB,5.0496E-02_JPRB,4.2780E-02_JPRB,3.5440E-02_JPRB,&
+&2.8711E-02_JPRB,2.1532E-02_JPRB,2.1358E-02_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&7.6126E-02_JPRB,6.6645E-02_JPRB,5.7867E-02_JPRB,5.0956E-02_JPRB,4.3638E-02_JPRB,3.7441E-02_JPRB,&
+&3.0756E-02_JPRB,2.4515E-02_JPRB,2.6150E-02_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&7.4977E-02_JPRB,6.5643E-02_JPRB,5.7692E-02_JPRB,5.1264E-02_JPRB,4.5058E-02_JPRB,3.9385E-02_JPRB,&
+&3.2638E-02_JPRB,2.8375E-02_JPRB,3.1403E-02_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&7.4190E-02_JPRB,6.5005E-02_JPRB,5.7989E-02_JPRB,5.1738E-02_JPRB,4.6795E-02_JPRB,4.1075E-02_JPRB,&
+&3.4915E-02_JPRB,3.2892E-02_JPRB,3.7110E-02_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&7.3624E-02_JPRB,6.4678E-02_JPRB,5.8242E-02_JPRB,5.2839E-02_JPRB,4.8405E-02_JPRB,4.2696E-02_JPRB,&
+&3.7814E-02_JPRB,3.7869E-02_JPRB,4.3186E-02_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&7.8000E-02_JPRB,6.8274E-02_JPRB,5.8718E-02_JPRB,5.1101E-02_JPRB,4.3121E-02_JPRB,3.5929E-02_JPRB,&
+&2.8945E-02_JPRB,2.0591E-02_JPRB,1.8045E-02_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&7.7193E-02_JPRB,6.7571E-02_JPRB,5.8739E-02_JPRB,5.1625E-02_JPRB,4.4291E-02_JPRB,3.8058E-02_JPRB,&
+&3.1224E-02_JPRB,2.3099E-02_JPRB,2.2474E-02_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&7.6273E-02_JPRB,6.6769E-02_JPRB,5.8915E-02_JPRB,5.2274E-02_JPRB,4.5989E-02_JPRB,4.0273E-02_JPRB,&
+&3.3241E-02_JPRB,2.6350E-02_JPRB,2.7546E-02_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&7.5688E-02_JPRB,6.6346E-02_JPRB,5.9396E-02_JPRB,5.3087E-02_JPRB,4.8066E-02_JPRB,4.2222E-02_JPRB,&
+&3.5406E-02_JPRB,3.0325E-02_JPRB,3.3143E-02_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&7.5270E-02_JPRB,6.6169E-02_JPRB,5.9886E-02_JPRB,5.4558E-02_JPRB,5.0013E-02_JPRB,4.4073E-02_JPRB,&
+&3.8032E-02_JPRB,3.5067E-02_JPRB,3.9209E-02_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&7.7473E-02_JPRB,6.7808E-02_JPRB,5.8332E-02_JPRB,5.0781E-02_JPRB,4.2784E-02_JPRB,3.5895E-02_JPRB,&
+&2.8746E-02_JPRB,1.9977E-02_JPRB,2.5516E-02_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&7.6914E-02_JPRB,6.7321E-02_JPRB,5.8710E-02_JPRB,5.1554E-02_JPRB,4.4348E-02_JPRB,3.8188E-02_JPRB,&
+&3.1209E-02_JPRB,2.2143E-02_JPRB,2.7211E-02_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&7.6348E-02_JPRB,6.6831E-02_JPRB,5.9238E-02_JPRB,5.2455E-02_JPRB,4.6359E-02_JPRB,4.0690E-02_JPRB,&
+&3.3365E-02_JPRB,2.4927E-02_JPRB,2.8892E-02_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&7.6078E-02_JPRB,6.6718E-02_JPRB,5.9965E-02_JPRB,5.3687E-02_JPRB,4.8782E-02_JPRB,4.2963E-02_JPRB,&
+&3.5682E-02_JPRB,2.8422E-02_JPRB,3.1640E-02_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&7.5933E-02_JPRB,6.6835E-02_JPRB,6.0758E-02_JPRB,5.5666E-02_JPRB,5.1075E-02_JPRB,4.5007E-02_JPRB,&
+&3.8345E-02_JPRB,3.2458E-02_JPRB,3.5657E-02_JPRB/)
+KAO( :, 1,10,13) = (/&
+&7.5495E-02_JPRB,6.6073E-02_JPRB,5.6962E-02_JPRB,4.9669E-02_JPRB,4.1944E-02_JPRB,3.5433E-02_JPRB,&
+&2.8273E-02_JPRB,1.9547E-02_JPRB,6.8270E-02_JPRB/)
+KAO( :, 2,10,13) = (/&
+&7.5127E-02_JPRB,6.5753E-02_JPRB,5.7655E-02_JPRB,5.0612E-02_JPRB,4.3966E-02_JPRB,3.7985E-02_JPRB,&
+&3.0798E-02_JPRB,2.1586E-02_JPRB,7.2556E-02_JPRB/)
+KAO( :, 3,10,13) = (/&
+&7.4986E-02_JPRB,6.5658E-02_JPRB,5.8530E-02_JPRB,5.1941E-02_JPRB,4.6351E-02_JPRB,4.0729E-02_JPRB,&
+&3.3154E-02_JPRB,2.4145E-02_JPRB,7.6901E-02_JPRB/)
+KAO( :, 4,10,13) = (/&
+&7.5261E-02_JPRB,6.6078E-02_JPRB,5.9658E-02_JPRB,5.3761E-02_JPRB,4.9061E-02_JPRB,4.3256E-02_JPRB,&
+&3.5593E-02_JPRB,2.7205E-02_JPRB,8.0949E-02_JPRB/)
+KAO( :, 5,10,13) = (/&
+&7.5310E-02_JPRB,6.6484E-02_JPRB,6.0891E-02_JPRB,5.6203E-02_JPRB,5.1608E-02_JPRB,4.5631E-02_JPRB,&
+&3.8393E-02_JPRB,3.0810E-02_JPRB,8.3946E-02_JPRB/)
+KAO( :, 1,11,13) = (/&
+&7.2145E-02_JPRB,6.3140E-02_JPRB,5.5079E-02_JPRB,4.8199E-02_JPRB,4.1552E-02_JPRB,3.5607E-02_JPRB,&
+&2.8410E-02_JPRB,2.0333E-02_JPRB,1.1722E-01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&7.2308E-02_JPRB,6.3289E-02_JPRB,5.6229E-02_JPRB,4.9646E-02_JPRB,4.4153E-02_JPRB,3.8471E-02_JPRB,&
+&3.1024E-02_JPRB,2.2227E-02_JPRB,1.2017E-01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&7.2843E-02_JPRB,6.3926E-02_JPRB,5.7644E-02_JPRB,5.1784E-02_JPRB,4.7031E-02_JPRB,4.1323E-02_JPRB,&
+&3.3588E-02_JPRB,2.4733E-02_JPRB,1.2387E-01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&7.3135E-02_JPRB,6.4581E-02_JPRB,5.9101E-02_JPRB,5.4448E-02_JPRB,4.9988E-02_JPRB,4.3915E-02_JPRB,&
+&3.6387E-02_JPRB,2.7718E-02_JPRB,1.2773E-01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&7.3317E-02_JPRB,6.5357E-02_JPRB,6.0772E-02_JPRB,5.7257E-02_JPRB,5.2643E-02_JPRB,4.6647E-02_JPRB,&
+&3.9495E-02_JPRB,3.1088E-02_JPRB,1.3117E-01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&6.8339E-02_JPRB,5.9807E-02_JPRB,5.2868E-02_JPRB,4.6514E-02_JPRB,4.1030E-02_JPRB,3.5325E-02_JPRB,&
+&2.8259E-02_JPRB,2.1368E-02_JPRB,1.5845E-01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&6.9028E-02_JPRB,6.0544E-02_JPRB,5.4494E-02_JPRB,4.8800E-02_JPRB,4.4025E-02_JPRB,3.8260E-02_JPRB,&
+&3.0917E-02_JPRB,2.3169E-02_JPRB,1.6072E-01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&6.9564E-02_JPRB,6.1451E-02_JPRB,5.6107E-02_JPRB,5.1605E-02_JPRB,4.7233E-02_JPRB,4.1139E-02_JPRB,&
+&3.3727E-02_JPRB,2.5462E-02_JPRB,1.6379E-01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&7.0110E-02_JPRB,6.2544E-02_JPRB,5.8080E-02_JPRB,5.4612E-02_JPRB,5.0269E-02_JPRB,4.4060E-02_JPRB,&
+&3.6850E-02_JPRB,2.8277E-02_JPRB,1.6703E-01_JPRB/)
+KAO( :, 5,12,13) = (/&
+&7.0812E-02_JPRB,6.3874E-02_JPRB,6.0361E-02_JPRB,5.7551E-02_JPRB,5.3132E-02_JPRB,4.7188E-02_JPRB,&
+&4.0179E-02_JPRB,3.1468E-02_JPRB,1.7022E-01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&6.4142E-02_JPRB,5.6225E-02_JPRB,5.0394E-02_JPRB,4.4947E-02_JPRB,4.0201E-02_JPRB,3.4418E-02_JPRB,&
+&2.8158E-02_JPRB,2.2746E-02_JPRB,1.7050E-01_JPRB/)
+KAO( :, 2,13,13) = (/&
+&6.4886E-02_JPRB,5.7309E-02_JPRB,5.2171E-02_JPRB,4.7818E-02_JPRB,4.3432E-02_JPRB,3.7455E-02_JPRB,&
+&3.0630E-02_JPRB,2.4364E-02_JPRB,1.7276E-01_JPRB/)
+KAO( :, 3,13,13) = (/&
+&6.5727E-02_JPRB,5.8652E-02_JPRB,5.4299E-02_JPRB,5.0937E-02_JPRB,4.6609E-02_JPRB,4.0612E-02_JPRB,&
+&3.3484E-02_JPRB,2.6453E-02_JPRB,1.7566E-01_JPRB/)
+KAO( :, 4,13,13) = (/&
+&6.6753E-02_JPRB,6.0302E-02_JPRB,5.6875E-02_JPRB,5.4053E-02_JPRB,4.9735E-02_JPRB,4.3858E-02_JPRB,&
+&3.6837E-02_JPRB,2.8969E-02_JPRB,1.7832E-01_JPRB/)
+KAO( :, 5,13,13) = (/&
+&6.7695E-02_JPRB,6.1869E-02_JPRB,5.9620E-02_JPRB,5.7064E-02_JPRB,5.2850E-02_JPRB,4.7362E-02_JPRB,&
+&4.0382E-02_JPRB,3.1936E-02_JPRB,1.8057E-01_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&7.1125E-02_JPRB,6.2447E-02_JPRB,5.3777E-02_JPRB,4.6002E-02_JPRB,3.9919E-02_JPRB,3.6099E-02_JPRB,&
+&4.0006E-02_JPRB,4.6122E-02_JPRB,5.1833E-02_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&6.9870E-02_JPRB,6.1342E-02_JPRB,5.2827E-02_JPRB,4.5922E-02_JPRB,4.0565E-02_JPRB,3.9007E-02_JPRB,&
+&4.5679E-02_JPRB,5.2643E-02_JPRB,5.9148E-02_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&6.8757E-02_JPRB,6.0364E-02_JPRB,5.2393E-02_JPRB,4.6480E-02_JPRB,4.1375E-02_JPRB,4.3228E-02_JPRB,&
+&5.1554E-02_JPRB,5.9415E-02_JPRB,6.6727E-02_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&6.7713E-02_JPRB,5.9439E-02_JPRB,5.2158E-02_JPRB,4.6803E-02_JPRB,4.2633E-02_JPRB,4.8201E-02_JPRB,&
+&5.7539E-02_JPRB,6.6348E-02_JPRB,7.4536E-02_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&6.6600E-02_JPRB,5.8466E-02_JPRB,5.1820E-02_JPRB,4.7055E-02_JPRB,4.4661E-02_JPRB,5.3325E-02_JPRB,&
+&6.3678E-02_JPRB,7.3404E-02_JPRB,8.2448E-02_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&7.7042E-02_JPRB,6.7550E-02_JPRB,5.8058E-02_JPRB,4.9570E-02_JPRB,4.3264E-02_JPRB,3.8479E-02_JPRB,&
+&4.1328E-02_JPRB,4.7688E-02_JPRB,5.4228E-02_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&7.5776E-02_JPRB,6.6451E-02_JPRB,5.7187E-02_JPRB,4.9780E-02_JPRB,4.4125E-02_JPRB,4.1352E-02_JPRB,&
+&4.7706E-02_JPRB,5.5037E-02_JPRB,6.2579E-02_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&7.4669E-02_JPRB,6.5491E-02_JPRB,5.6847E-02_JPRB,5.0512E-02_JPRB,4.5218E-02_JPRB,4.5782E-02_JPRB,&
+&5.4332E-02_JPRB,6.2645E-02_JPRB,7.1228E-02_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&7.3494E-02_JPRB,6.4459E-02_JPRB,5.6471E-02_JPRB,5.0688E-02_JPRB,4.6511E-02_JPRB,5.1170E-02_JPRB,&
+&6.1095E-02_JPRB,7.0411E-02_JPRB,8.0040E-02_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&7.2133E-02_JPRB,6.3274E-02_JPRB,5.5909E-02_JPRB,5.0987E-02_JPRB,4.8402E-02_JPRB,5.6911E-02_JPRB,&
+&6.7954E-02_JPRB,7.8300E-02_JPRB,8.9007E-02_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&8.3277E-02_JPRB,7.2971E-02_JPRB,6.2667E-02_JPRB,5.3474E-02_JPRB,4.6645E-02_JPRB,4.0581E-02_JPRB,&
+&4.0951E-02_JPRB,4.7132E-02_JPRB,5.4097E-02_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&8.2055E-02_JPRB,7.1904E-02_JPRB,6.1829E-02_JPRB,5.3750E-02_JPRB,4.7688E-02_JPRB,4.3144E-02_JPRB,&
+&4.7845E-02_JPRB,5.5169E-02_JPRB,6.3384E-02_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&8.0862E-02_JPRB,7.0861E-02_JPRB,6.1457E-02_JPRB,5.4455E-02_JPRB,4.8823E-02_JPRB,4.7333E-02_JPRB,&
+&5.5190E-02_JPRB,6.3675E-02_JPRB,7.3215E-02_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&7.9537E-02_JPRB,6.9705E-02_JPRB,6.0972E-02_JPRB,5.4811E-02_JPRB,5.0281E-02_JPRB,5.2809E-02_JPRB,&
+&6.2782E-02_JPRB,7.2454E-02_JPRB,8.3349E-02_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&7.8064E-02_JPRB,6.8419E-02_JPRB,6.0465E-02_JPRB,5.5324E-02_JPRB,5.2307E-02_JPRB,5.9034E-02_JPRB,&
+&7.0524E-02_JPRB,8.1382E-02_JPRB,9.3638E-02_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&9.0845E-02_JPRB,7.9564E-02_JPRB,6.8284E-02_JPRB,5.7995E-02_JPRB,5.0071E-02_JPRB,4.2766E-02_JPRB,&
+&4.0354E-02_JPRB,4.5834E-02_JPRB,5.2848E-02_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&8.9552E-02_JPRB,7.8435E-02_JPRB,6.7367E-02_JPRB,5.8123E-02_JPRB,5.1123E-02_JPRB,4.5183E-02_JPRB,&
+&4.7218E-02_JPRB,5.4390E-02_JPRB,6.2802E-02_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&8.8242E-02_JPRB,7.7291E-02_JPRB,6.6872E-02_JPRB,5.8721E-02_JPRB,5.2277E-02_JPRB,4.9062E-02_JPRB,&
+&5.5104E-02_JPRB,6.3535E-02_JPRB,7.3415E-02_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&8.6759E-02_JPRB,7.5998E-02_JPRB,6.6249E-02_JPRB,5.9144E-02_JPRB,5.4005E-02_JPRB,5.4305E-02_JPRB,&
+&6.3297E-02_JPRB,7.3031E-02_JPRB,8.4384E-02_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&8.5264E-02_JPRB,7.4691E-02_JPRB,6.5716E-02_JPRB,5.9851E-02_JPRB,5.6460E-02_JPRB,6.0471E-02_JPRB,&
+&7.1720E-02_JPRB,8.2783E-02_JPRB,9.5664E-02_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&9.9315E-02_JPRB,8.6956E-02_JPRB,7.4597E-02_JPRB,6.3098E-02_JPRB,5.3822E-02_JPRB,4.5087E-02_JPRB,&
+&4.0285E-02_JPRB,4.4268E-02_JPRB,5.1127E-02_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&9.7906E-02_JPRB,8.5725E-02_JPRB,7.3576E-02_JPRB,6.3138E-02_JPRB,5.4941E-02_JPRB,4.7422E-02_JPRB,&
+&4.6902E-02_JPRB,5.3385E-02_JPRB,6.1752E-02_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&9.6528E-02_JPRB,8.4522E-02_JPRB,7.2985E-02_JPRB,6.3691E-02_JPRB,5.5941E-02_JPRB,5.1390E-02_JPRB,&
+&5.4800E-02_JPRB,6.3141E-02_JPRB,7.3064E-02_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&9.5030E-02_JPRB,8.3215E-02_JPRB,7.2382E-02_JPRB,6.4248E-02_JPRB,5.7876E-02_JPRB,5.6367E-02_JPRB,&
+&6.3403E-02_JPRB,7.3204E-02_JPRB,8.4675E-02_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&9.3519E-02_JPRB,8.1896E-02_JPRB,7.1942E-02_JPRB,6.4913E-02_JPRB,6.0750E-02_JPRB,6.2288E-02_JPRB,&
+&7.2363E-02_JPRB,8.3574E-02_JPRB,9.6711E-02_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&1.0848E-01_JPRB,9.4964E-02_JPRB,8.1446E-02_JPRB,6.8624E-02_JPRB,5.8073E-02_JPRB,4.7733E-02_JPRB,&
+&4.0794E-02_JPRB,4.2233E-02_JPRB,4.8838E-02_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&1.0700E-01_JPRB,9.3665E-02_JPRB,8.0341E-02_JPRB,6.8687E-02_JPRB,5.9287E-02_JPRB,4.9965E-02_JPRB,&
+&4.6801E-02_JPRB,5.1522E-02_JPRB,5.9571E-02_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&1.0569E-01_JPRB,9.2526E-02_JPRB,7.9786E-02_JPRB,6.9323E-02_JPRB,6.0296E-02_JPRB,5.3850E-02_JPRB,&
+&5.4326E-02_JPRB,6.1617E-02_JPRB,7.1174E-02_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&1.0422E-01_JPRB,9.1243E-02_JPRB,7.9257E-02_JPRB,7.0200E-02_JPRB,6.2110E-02_JPRB,5.8890E-02_JPRB,&
+&6.2697E-02_JPRB,7.2186E-02_JPRB,8.3411E-02_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&1.0274E-01_JPRB,8.9945E-02_JPRB,7.8955E-02_JPRB,7.0870E-02_JPRB,6.5007E-02_JPRB,6.4538E-02_JPRB,&
+&7.1962E-02_JPRB,8.3225E-02_JPRB,9.6184E-02_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&1.1805E-01_JPRB,1.0333E-01_JPRB,8.8604E-02_JPRB,7.4383E-02_JPRB,6.2795E-02_JPRB,5.0938E-02_JPRB,&
+&4.1734E-02_JPRB,4.0173E-02_JPRB,4.6320E-02_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&1.1659E-01_JPRB,1.0206E-01_JPRB,8.7517E-02_JPRB,7.4746E-02_JPRB,6.4050E-02_JPRB,5.3141E-02_JPRB,&
+&4.7155E-02_JPRB,4.9297E-02_JPRB,5.6966E-02_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&1.1548E-01_JPRB,1.0108E-01_JPRB,8.7065E-02_JPRB,7.5639E-02_JPRB,6.5270E-02_JPRB,5.6793E-02_JPRB,&
+&5.4049E-02_JPRB,5.9341E-02_JPRB,6.8535E-02_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&1.1421E-01_JPRB,9.9974E-02_JPRB,8.6788E-02_JPRB,7.6683E-02_JPRB,6.6954E-02_JPRB,6.1718E-02_JPRB,&
+&6.2059E-02_JPRB,7.0009E-02_JPRB,8.0835E-02_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&1.1283E-01_JPRB,9.8769E-02_JPRB,8.6621E-02_JPRB,7.7418E-02_JPRB,6.9776E-02_JPRB,6.7214E-02_JPRB,&
+&7.0897E-02_JPRB,8.1280E-02_JPRB,9.3717E-02_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&1.2760E-01_JPRB,1.1168E-01_JPRB,9.5756E-02_JPRB,8.0242E-02_JPRB,6.7771E-02_JPRB,5.4512E-02_JPRB,&
+&4.3297E-02_JPRB,3.8468E-02_JPRB,4.3412E-02_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&1.2647E-01_JPRB,1.1069E-01_JPRB,9.4911E-02_JPRB,8.1080E-02_JPRB,6.9303E-02_JPRB,5.6801E-02_JPRB,&
+&4.8262E-02_JPRB,4.7089E-02_JPRB,5.4046E-02_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&1.2554E-01_JPRB,1.0988E-01_JPRB,9.4556E-02_JPRB,8.2231E-02_JPRB,7.0704E-02_JPRB,6.0253E-02_JPRB,&
+&5.4589E-02_JPRB,5.6872E-02_JPRB,6.5560E-02_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&1.2457E-01_JPRB,1.0903E-01_JPRB,9.4616E-02_JPRB,8.3457E-02_JPRB,7.2396E-02_JPRB,6.4980E-02_JPRB,&
+&6.1867E-02_JPRB,6.7548E-02_JPRB,7.7808E-02_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&1.2330E-01_JPRB,1.0792E-01_JPRB,9.4626E-02_JPRB,8.4389E-02_JPRB,7.5157E-02_JPRB,7.0416E-02_JPRB,&
+&7.0105E-02_JPRB,7.8665E-02_JPRB,9.0560E-02_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&1.3720E-01_JPRB,1.2007E-01_JPRB,1.0294E-01_JPRB,8.6103E-02_JPRB,7.2470E-02_JPRB,5.8097E-02_JPRB,&
+&4.5389E-02_JPRB,3.6904E-02_JPRB,4.1799E-02_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&1.3628E-01_JPRB,1.1927E-01_JPRB,1.0226E-01_JPRB,8.7181E-02_JPRB,7.4343E-02_JPRB,6.0740E-02_JPRB,&
+&4.9959E-02_JPRB,4.4876E-02_JPRB,5.0393E-02_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&1.3535E-01_JPRB,1.1846E-01_JPRB,1.0188E-01_JPRB,8.8693E-02_JPRB,7.6184E-02_JPRB,6.4206E-02_JPRB,&
+&5.5907E-02_JPRB,5.4085E-02_JPRB,6.1556E-02_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&1.3444E-01_JPRB,1.1766E-01_JPRB,1.0208E-01_JPRB,9.0218E-02_JPRB,7.8130E-02_JPRB,6.8528E-02_JPRB,&
+&6.2619E-02_JPRB,6.4323E-02_JPRB,7.3797E-02_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&1.3348E-01_JPRB,1.1683E-01_JPRB,1.0242E-01_JPRB,9.1503E-02_JPRB,8.0977E-02_JPRB,7.3855E-02_JPRB,&
+&6.9865E-02_JPRB,7.5417E-02_JPRB,8.6747E-02_JPRB/)
+KAO( :, 1,10,14) = (/&
+&1.4622E-01_JPRB,1.2796E-01_JPRB,1.0970E-01_JPRB,9.1694E-02_JPRB,7.6915E-02_JPRB,6.1594E-02_JPRB,&
+&4.7802E-02_JPRB,3.6372E-02_JPRB,1.2782E-01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&1.4558E-01_JPRB,1.2740E-01_JPRB,1.0923E-01_JPRB,9.3107E-02_JPRB,7.9235E-02_JPRB,6.4561E-02_JPRB,&
+&5.2530E-02_JPRB,4.3432E-02_JPRB,1.2805E-01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&1.4478E-01_JPRB,1.2670E-01_JPRB,1.0897E-01_JPRB,9.4925E-02_JPRB,8.1357E-02_JPRB,6.8532E-02_JPRB,&
+&5.8051E-02_JPRB,5.1858E-02_JPRB,1.2910E-01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&1.4390E-01_JPRB,1.2594E-01_JPRB,1.0930E-01_JPRB,9.6640E-02_JPRB,8.3903E-02_JPRB,7.3006E-02_JPRB,&
+&6.4450E-02_JPRB,6.1593E-02_JPRB,1.3078E-01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&1.4315E-01_JPRB,1.2528E-01_JPRB,1.1004E-01_JPRB,9.8357E-02_JPRB,8.7154E-02_JPRB,7.8009E-02_JPRB,&
+&7.1120E-02_JPRB,7.2455E-02_JPRB,1.3316E-01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&1.5395E-01_JPRB,1.3473E-01_JPRB,1.1550E-01_JPRB,9.7315E-02_JPRB,8.2228E-02_JPRB,6.6162E-02_JPRB,&
+&5.2338E-02_JPRB,3.8889E-02_JPRB,2.0928E-01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&1.5355E-01_JPRB,1.3437E-01_JPRB,1.1530E-01_JPRB,9.9444E-02_JPRB,8.4668E-02_JPRB,7.0074E-02_JPRB,&
+&5.7545E-02_JPRB,4.5714E-02_JPRB,2.1031E-01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&1.5306E-01_JPRB,1.3395E-01_JPRB,1.1569E-01_JPRB,1.0160E-01_JPRB,8.7341E-02_JPRB,7.4791E-02_JPRB,&
+&6.3171E-02_JPRB,5.3818E-02_JPRB,2.0902E-01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&1.5264E-01_JPRB,1.3359E-01_JPRB,1.1675E-01_JPRB,1.0361E-01_JPRB,9.0695E-02_JPRB,7.9958E-02_JPRB,&
+&6.9362E-02_JPRB,6.3424E-02_JPRB,2.0832E-01_JPRB/)
+KAO( :, 5,11,14) = (/&
+&1.5211E-01_JPRB,1.3312E-01_JPRB,1.1800E-01_JPRB,1.0575E-01_JPRB,9.4915E-02_JPRB,8.5107E-02_JPRB,&
+&7.5798E-02_JPRB,7.4229E-02_JPRB,2.0949E-01_JPRB/)
+KAO( :, 1,12,14) = (/&
+&1.6007E-01_JPRB,1.4008E-01_JPRB,1.2008E-01_JPRB,1.0232E-01_JPRB,8.6761E-02_JPRB,7.0740E-02_JPRB,&
+&5.6718E-02_JPRB,4.1250E-02_JPRB,2.6518E-01_JPRB/)
+KAO( :, 2,12,14) = (/&
+&1.6020E-01_JPRB,1.4019E-01_JPRB,1.2063E-01_JPRB,1.0501E-01_JPRB,8.9744E-02_JPRB,7.5616E-02_JPRB,&
+&6.2355E-02_JPRB,4.7922E-02_JPRB,2.6549E-01_JPRB/)
+KAO( :, 3,12,14) = (/&
+&1.6044E-01_JPRB,1.4040E-01_JPRB,1.2209E-01_JPRB,1.0775E-01_JPRB,9.3316E-02_JPRB,8.1050E-02_JPRB,&
+&6.8087E-02_JPRB,5.5672E-02_JPRB,2.6354E-01_JPRB/)
+KAO( :, 4,12,14) = (/&
+&1.6037E-01_JPRB,1.4035E-01_JPRB,1.2384E-01_JPRB,1.1034E-01_JPRB,9.7597E-02_JPRB,8.6743E-02_JPRB,&
+&7.4072E-02_JPRB,6.4868E-02_JPRB,2.6219E-01_JPRB/)
+KAO( :, 5,12,14) = (/&
+&1.6003E-01_JPRB,1.4017E-01_JPRB,1.2549E-01_JPRB,1.1310E-01_JPRB,1.0250E-01_JPRB,9.1994E-02_JPRB,&
+&8.0439E-02_JPRB,7.5469E-02_JPRB,2.6239E-01_JPRB/)
+KAO( :, 1,13,14) = (/&
+&1.6469E-01_JPRB,1.4412E-01_JPRB,1.2368E-01_JPRB,1.0640E-01_JPRB,9.0617E-02_JPRB,7.5149E-02_JPRB,&
+&6.0781E-02_JPRB,4.3348E-02_JPRB,2.6721E-01_JPRB/)
+KAO( :, 2,13,14) = (/&
+&1.6562E-01_JPRB,1.4493E-01_JPRB,1.2548E-01_JPRB,1.0990E-01_JPRB,9.4570E-02_JPRB,8.0925E-02_JPRB,&
+&6.6783E-02_JPRB,4.9779E-02_JPRB,2.6700E-01_JPRB/)
+KAO( :, 3,13,14) = (/&
+&1.6629E-01_JPRB,1.4552E-01_JPRB,1.2768E-01_JPRB,1.1332E-01_JPRB,9.9317E-02_JPRB,8.6925E-02_JPRB,&
+&7.2626E-02_JPRB,5.7255E-02_JPRB,2.6579E-01_JPRB/)
+KAO( :, 4,13,14) = (/&
+&1.6653E-01_JPRB,1.4581E-01_JPRB,1.2999E-01_JPRB,1.1666E-01_JPRB,1.0451E-01_JPRB,9.2915E-02_JPRB,&
+&7.8534E-02_JPRB,6.6130E-02_JPRB,2.6675E-01_JPRB/)
+KAO( :, 5,13,14) = (/&
+&1.6684E-01_JPRB,1.4632E-01_JPRB,1.3221E-01_JPRB,1.2027E-01_JPRB,1.0991E-01_JPRB,9.8357E-02_JPRB,&
+&8.4972E-02_JPRB,7.6473E-02_JPRB,2.6996E-01_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&8.6335E-02_JPRB,7.5626E-02_JPRB,6.4917E-02_JPRB,5.5295E-02_JPRB,5.0812E-02_JPRB,5.9948E-02_JPRB,&
+&7.1505E-02_JPRB,8.2180E-02_JPRB,9.1859E-02_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&8.4567E-02_JPRB,7.4086E-02_JPRB,6.3604E-02_JPRB,5.5283E-02_JPRB,5.6490E-02_JPRB,6.9672E-02_JPRB,&
+&8.3123E-02_JPRB,9.5602E-02_JPRB,1.0689E-01_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&8.2946E-02_JPRB,7.2675E-02_JPRB,6.2405E-02_JPRB,5.5773E-02_JPRB,6.3940E-02_JPRB,7.9639E-02_JPRB,&
+&9.5049E-02_JPRB,1.0933E-01_JPRB,1.2237E-01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&8.1353E-02_JPRB,7.1286E-02_JPRB,6.1452E-02_JPRB,5.8032E-02_JPRB,7.2168E-02_JPRB,8.9901E-02_JPRB,&
+&1.0730E-01_JPRB,1.2343E-01_JPRB,1.3810E-01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&8.0306E-02_JPRB,7.0375E-02_JPRB,6.1401E-02_JPRB,6.2088E-02_JPRB,8.0744E-02_JPRB,1.0061E-01_JPRB,&
+&1.2011E-01_JPRB,1.3812E-01_JPRB,1.5455E-01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&9.5589E-02_JPRB,8.3777E-02_JPRB,7.1976E-02_JPRB,6.1258E-02_JPRB,5.5368E-02_JPRB,6.4085E-02_JPRB,&
+&7.6446E-02_JPRB,8.7825E-02_JPRB,9.9724E-02_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&9.3570E-02_JPRB,8.1988E-02_JPRB,7.0421E-02_JPRB,6.1059E-02_JPRB,6.1189E-02_JPRB,7.4507E-02_JPRB,&
+&8.8919E-02_JPRB,1.0224E-01_JPRB,1.1610E-01_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&9.1829E-02_JPRB,8.0436E-02_JPRB,6.9070E-02_JPRB,6.1314E-02_JPRB,6.8582E-02_JPRB,8.5238E-02_JPRB,&
+&1.0175E-01_JPRB,1.1706E-01_JPRB,1.3301E-01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&9.0487E-02_JPRB,7.9254E-02_JPRB,6.8526E-02_JPRB,6.4228E-02_JPRB,7.7434E-02_JPRB,9.6498E-02_JPRB,&
+&1.1522E-01_JPRB,1.3267E-01_JPRB,1.5077E-01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&8.9669E-02_JPRB,7.8542E-02_JPRB,6.8954E-02_JPRB,6.8451E-02_JPRB,8.6910E-02_JPRB,1.0835E-01_JPRB,&
+&1.2939E-01_JPRB,1.4902E-01_JPRB,1.6935E-01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&1.0676E-01_JPRB,9.3553E-02_JPRB,8.0347E-02_JPRB,6.7838E-02_JPRB,5.9827E-02_JPRB,6.6522E-02_JPRB,&
+&7.9363E-02_JPRB,9.1189E-02_JPRB,1.0525E-01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&1.0446E-01_JPRB,9.1534E-02_JPRB,7.8612E-02_JPRB,6.7925E-02_JPRB,6.5040E-02_JPRB,7.7741E-02_JPRB,&
+&9.2778E-02_JPRB,1.0667E-01_JPRB,1.2309E-01_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&1.0249E-01_JPRB,8.9809E-02_JPRB,7.7136E-02_JPRB,6.8091E-02_JPRB,7.2454E-02_JPRB,8.9300E-02_JPRB,&
+&1.0660E-01_JPRB,1.2265E-01_JPRB,1.4148E-01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&1.0145E-01_JPRB,8.8891E-02_JPRB,7.6929E-02_JPRB,7.0768E-02_JPRB,8.1305E-02_JPRB,1.0131E-01_JPRB,&
+&1.2096E-01_JPRB,1.3918E-01_JPRB,1.6053E-01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&1.0070E-01_JPRB,8.8241E-02_JPRB,7.7594E-02_JPRB,7.4852E-02_JPRB,9.1339E-02_JPRB,1.1386E-01_JPRB,&
+&1.3595E-01_JPRB,1.5652E-01_JPRB,1.8047E-01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&1.1948E-01_JPRB,1.0466E-01_JPRB,8.9846E-02_JPRB,7.5435E-02_JPRB,6.5653E-02_JPRB,6.8395E-02_JPRB,&
+&8.1117E-02_JPRB,9.3286E-02_JPRB,1.0845E-01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&1.1744E-01_JPRB,1.0288E-01_JPRB,8.8326E-02_JPRB,7.6088E-02_JPRB,7.0000E-02_JPRB,8.0045E-02_JPRB,&
+&9.5565E-02_JPRB,1.0996E-01_JPRB,1.2777E-01_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&1.1572E-01_JPRB,1.0138E-01_JPRB,8.7035E-02_JPRB,7.6536E-02_JPRB,7.6949E-02_JPRB,9.2508E-02_JPRB,&
+&1.1046E-01_JPRB,1.2718E-01_JPRB,1.4769E-01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&1.1457E-01_JPRB,1.0037E-01_JPRB,8.6743E-02_JPRB,7.8791E-02_JPRB,8.5479E-02_JPRB,1.0549E-01_JPRB,&
+&1.2598E-01_JPRB,1.4506E-01_JPRB,1.6844E-01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&1.1371E-01_JPRB,9.9614E-02_JPRB,8.7543E-02_JPRB,8.2406E-02_JPRB,9.5523E-02_JPRB,1.1901E-01_JPRB,&
+&1.4214E-01_JPRB,1.6372E-01_JPRB,1.9001E-01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&1.3435E-01_JPRB,1.1765E-01_JPRB,1.0095E-01_JPRB,8.4469E-02_JPRB,7.2853E-02_JPRB,7.1272E-02_JPRB,&
+&8.1960E-02_JPRB,9.4385E-02_JPRB,1.0990E-01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&1.3249E-01_JPRB,1.1603E-01_JPRB,9.9565E-02_JPRB,8.5291E-02_JPRB,7.6670E-02_JPRB,8.2310E-02_JPRB,&
+&9.7448E-02_JPRB,1.1228E-01_JPRB,1.3064E-01_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&1.3078E-01_JPRB,1.1453E-01_JPRB,9.8289E-02_JPRB,8.6209E-02_JPRB,8.3093E-02_JPRB,9.5057E-02_JPRB,&
+&1.1357E-01_JPRB,1.3082E-01_JPRB,1.5225E-01_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&1.2949E-01_JPRB,1.1340E-01_JPRB,9.7892E-02_JPRB,8.8436E-02_JPRB,9.1112E-02_JPRB,1.0924E-01_JPRB,&
+&1.3047E-01_JPRB,1.5034E-01_JPRB,1.7498E-01_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&1.2852E-01_JPRB,1.1256E-01_JPRB,9.8533E-02_JPRB,9.1755E-02_JPRB,1.0068E-01_JPRB,1.2400E-01_JPRB,&
+&1.4814E-01_JPRB,1.7069E-01_JPRB,1.9863E-01_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&1.5076E-01_JPRB,1.3198E-01_JPRB,1.1320E-01_JPRB,9.4463E-02_JPRB,8.0666E-02_JPRB,7.5054E-02_JPRB,&
+&8.0871E-02_JPRB,9.3264E-02_JPRB,1.0849E-01_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&1.4906E-01_JPRB,1.3049E-01_JPRB,1.1193E-01_JPRB,9.5115E-02_JPRB,8.4634E-02_JPRB,8.5281E-02_JPRB,&
+&9.7599E-02_JPRB,1.1257E-01_JPRB,1.3098E-01_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&1.4751E-01_JPRB,1.2914E-01_JPRB,1.1077E-01_JPRB,9.6775E-02_JPRB,9.0721E-02_JPRB,9.7408E-02_JPRB,&
+&1.1514E-01_JPRB,1.3281E-01_JPRB,1.5454E-01_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&1.4640E-01_JPRB,1.2818E-01_JPRB,1.1040E-01_JPRB,9.8990E-02_JPRB,9.8328E-02_JPRB,1.1180E-01_JPRB,&
+&1.3358E-01_JPRB,1.5404E-01_JPRB,1.7929E-01_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&1.4534E-01_JPRB,1.2726E-01_JPRB,1.1100E-01_JPRB,1.0247E-01_JPRB,1.0712E-01_JPRB,1.2780E-01_JPRB,&
+&1.5274E-01_JPRB,1.7614E-01_JPRB,2.0503E-01_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&1.7017E-01_JPRB,1.4895E-01_JPRB,1.2773E-01_JPRB,1.0651E-01_JPRB,8.8726E-02_JPRB,8.0014E-02_JPRB,&
+&7.9958E-02_JPRB,9.0777E-02_JPRB,1.0558E-01_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&1.6840E-01_JPRB,1.4740E-01_JPRB,1.2641E-01_JPRB,1.0633E-01_JPRB,9.3561E-02_JPRB,8.9399E-02_JPRB,&
+&9.6654E-02_JPRB,1.1154E-01_JPRB,1.2974E-01_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&1.6683E-01_JPRB,1.4603E-01_JPRB,1.2523E-01_JPRB,1.0816E-01_JPRB,9.9523E-02_JPRB,1.0085E-01_JPRB,&
+&1.1565E-01_JPRB,1.3349E-01_JPRB,1.5523E-01_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&1.6579E-01_JPRB,1.4512E-01_JPRB,1.2467E-01_JPRB,1.1069E-01_JPRB,1.0674E-01_JPRB,1.1452E-01_JPRB,&
+&1.3558E-01_JPRB,1.5645E-01_JPRB,1.8200E-01_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&1.6467E-01_JPRB,1.4415E-01_JPRB,1.2512E-01_JPRB,1.1428E-01_JPRB,1.1515E-01_JPRB,1.3096E-01_JPRB,&
+&1.5653E-01_JPRB,1.8061E-01_JPRB,2.1020E-01_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&1.9300E-01_JPRB,1.6891E-01_JPRB,1.4482E-01_JPRB,1.2074E-01_JPRB,9.8428E-02_JPRB,8.6453E-02_JPRB,&
+&8.0104E-02_JPRB,8.7414E-02_JPRB,1.0158E-01_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&1.9118E-01_JPRB,1.6732E-01_JPRB,1.4346E-01_JPRB,1.1993E-01_JPRB,1.0330E-01_JPRB,9.4785E-02_JPRB,&
+&9.5939E-02_JPRB,1.0927E-01_JPRB,1.2693E-01_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&1.8966E-01_JPRB,1.6599E-01_JPRB,1.4233E-01_JPRB,1.2111E-01_JPRB,1.0944E-01_JPRB,1.0556E-01_JPRB,&
+&1.1490E-01_JPRB,1.3272E-01_JPRB,1.5419E-01_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&1.8827E-01_JPRB,1.6478E-01_JPRB,1.4129E-01_JPRB,1.2410E-01_JPRB,1.1628E-01_JPRB,1.1877E-01_JPRB,&
+&1.3648E-01_JPRB,1.5764E-01_JPRB,1.8319E-01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&1.8700E-01_JPRB,1.6367E-01_JPRB,1.4137E-01_JPRB,1.2760E-01_JPRB,1.2425E-01_JPRB,1.3451E-01_JPRB,&
+&1.5950E-01_JPRB,1.8417E-01_JPRB,2.1419E-01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&2.1903E-01_JPRB,1.9168E-01_JPRB,1.6432E-01_JPRB,1.3697E-01_JPRB,1.1022E-01_JPRB,9.3381E-02_JPRB,&
+&8.1173E-02_JPRB,8.3378E-02_JPRB,9.6854E-02_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&2.1750E-01_JPRB,1.9034E-01_JPRB,1.6318E-01_JPRB,1.3602E-01_JPRB,1.1431E-01_JPRB,1.0171E-01_JPRB,&
+&9.6008E-02_JPRB,1.0601E-01_JPRB,1.2308E-01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&2.1621E-01_JPRB,1.8921E-01_JPRB,1.6222E-01_JPRB,1.3665E-01_JPRB,1.2052E-01_JPRB,1.1120E-01_JPRB,&
+&1.1434E-01_JPRB,1.3077E-01_JPRB,1.5182E-01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&2.1461E-01_JPRB,1.8782E-01_JPRB,1.6103E-01_JPRB,1.3944E-01_JPRB,1.2758E-01_JPRB,1.2410E-01_JPRB,&
+&1.3607E-01_JPRB,1.5728E-01_JPRB,1.8262E-01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&2.1295E-01_JPRB,1.8637E-01_JPRB,1.6039E-01_JPRB,1.4274E-01_JPRB,1.3480E-01_JPRB,1.3933E-01_JPRB,&
+&1.6084E-01_JPRB,1.8591E-01_JPRB,2.1587E-01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&2.4831E-01_JPRB,2.1729E-01_JPRB,1.8627E-01_JPRB,1.5526E-01_JPRB,1.2434E-01_JPRB,1.0185E-01_JPRB,&
+&8.4815E-02_JPRB,8.0841E-02_JPRB,1.7532E-01_JPRB/)
+KAO( :, 2,10,15) = (/&
+&2.4704E-01_JPRB,2.1618E-01_JPRB,1.8532E-01_JPRB,1.5447E-01_JPRB,1.2750E-01_JPRB,1.1098E-01_JPRB,&
+&9.8299E-02_JPRB,1.0410E-01_JPRB,1.7367E-01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&2.4585E-01_JPRB,2.1514E-01_JPRB,1.8444E-01_JPRB,1.5466E-01_JPRB,1.3408E-01_JPRB,1.1953E-01_JPRB,&
+&1.1633E-01_JPRB,1.3023E-01_JPRB,1.7996E-01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&2.4402E-01_JPRB,2.1354E-01_JPRB,1.8307E-01_JPRB,1.5695E-01_JPRB,1.4115E-01_JPRB,1.3126E-01_JPRB,&
+&1.3793E-01_JPRB,1.5846E-01_JPRB,1.9548E-01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&2.4208E-01_JPRB,2.1185E-01_JPRB,1.8198E-01_JPRB,1.6040E-01_JPRB,1.4820E-01_JPRB,1.4650E-01_JPRB,&
+&1.6334E-01_JPRB,1.8884E-01_JPRB,2.2082E-01_JPRB/)
+KAO( :, 1,11,15) = (/&
+&2.8046E-01_JPRB,2.4542E-01_JPRB,2.1039E-01_JPRB,1.7535E-01_JPRB,1.4072E-01_JPRB,1.1602E-01_JPRB,&
+&9.4756E-02_JPRB,8.8842E-02_JPRB,3.0507E-01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&2.7918E-01_JPRB,2.4430E-01_JPRB,2.0943E-01_JPRB,1.7456E-01_JPRB,1.4537E-01_JPRB,1.2533E-01_JPRB,&
+&1.0891E-01_JPRB,1.1392E-01_JPRB,2.9566E-01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&2.7735E-01_JPRB,2.4270E-01_JPRB,2.0805E-01_JPRB,1.7500E-01_JPRB,1.5257E-01_JPRB,1.3417E-01_JPRB,&
+&1.2847E-01_JPRB,1.4223E-01_JPRB,2.9322E-01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&2.7527E-01_JPRB,2.4088E-01_JPRB,2.0649E-01_JPRB,1.7781E-01_JPRB,1.5979E-01_JPRB,1.4614E-01_JPRB,&
+&1.5179E-01_JPRB,1.7334E-01_JPRB,2.9538E-01_JPRB/)
+KAO( :, 5,11,15) = (/&
+&2.7287E-01_JPRB,2.3878E-01_JPRB,2.0537E-01_JPRB,1.8183E-01_JPRB,1.6671E-01_JPRB,1.6236E-01_JPRB,&
+&1.7904E-01_JPRB,2.0699E-01_JPRB,3.0432E-01_JPRB/)
+KAO( :, 1,12,15) = (/&
+&3.1597E-01_JPRB,2.7649E-01_JPRB,2.3701E-01_JPRB,1.9754E-01_JPRB,1.5924E-01_JPRB,1.3168E-01_JPRB,&
+&1.0585E-01_JPRB,9.7375E-02_JPRB,4.0358E-01_JPRB/)
+KAO( :, 2,12,15) = (/&
+&3.1432E-01_JPRB,2.7505E-01_JPRB,2.3578E-01_JPRB,1.9654E-01_JPRB,1.6498E-01_JPRB,1.4094E-01_JPRB,&
+&1.2051E-01_JPRB,1.2392E-01_JPRB,3.9336E-01_JPRB/)
+KAO( :, 3,12,15) = (/&
+&3.1171E-01_JPRB,2.7277E-01_JPRB,2.3383E-01_JPRB,1.9721E-01_JPRB,1.7246E-01_JPRB,1.5023E-01_JPRB,&
+&1.4122E-01_JPRB,1.5462E-01_JPRB,3.9393E-01_JPRB/)
+KAO( :, 4,12,15) = (/&
+&3.0880E-01_JPRB,2.7022E-01_JPRB,2.3164E-01_JPRB,2.0058E-01_JPRB,1.7964E-01_JPRB,1.6232E-01_JPRB,&
+&1.6619E-01_JPRB,1.8839E-01_JPRB,3.9596E-01_JPRB/)
+KAO( :, 5,12,15) = (/&
+&3.0525E-01_JPRB,2.6711E-01_JPRB,2.3006E-01_JPRB,2.0488E-01_JPRB,1.8690E-01_JPRB,1.7940E-01_JPRB,&
+&1.9528E-01_JPRB,2.2516E-01_JPRB,4.0079E-01_JPRB/)
+KAO( :, 1,13,15) = (/&
+&3.5411E-01_JPRB,3.0986E-01_JPRB,2.6562E-01_JPRB,2.2137E-01_JPRB,1.7962E-01_JPRB,1.4841E-01_JPRB,&
+&1.1804E-01_JPRB,1.0632E-01_JPRB,4.1876E-01_JPRB/)
+KAO( :, 2,13,15) = (/&
+&3.5164E-01_JPRB,3.0771E-01_JPRB,2.6377E-01_JPRB,2.2010E-01_JPRB,1.8598E-01_JPRB,1.5750E-01_JPRB,&
+&1.3321E-01_JPRB,1.3429E-01_JPRB,4.1787E-01_JPRB/)
+KAO( :, 3,13,15) = (/&
+&3.4820E-01_JPRB,3.0469E-01_JPRB,2.6119E-01_JPRB,2.2112E-01_JPRB,1.9338E-01_JPRB,1.6728E-01_JPRB,&
+&1.5455E-01_JPRB,1.6711E-01_JPRB,4.2377E-01_JPRB/)
+KAO( :, 4,13,15) = (/&
+&3.4395E-01_JPRB,3.0097E-01_JPRB,2.5812E-01_JPRB,2.2469E-01_JPRB,2.0035E-01_JPRB,1.7975E-01_JPRB,&
+&1.8098E-01_JPRB,2.0337E-01_JPRB,4.2831E-01_JPRB/)
+KAO( :, 5,13,15) = (/&
+&3.3896E-01_JPRB,2.9661E-01_JPRB,2.5572E-01_JPRB,2.2897E-01_JPRB,2.0809E-01_JPRB,1.9725E-01_JPRB,&
+&2.1144E-01_JPRB,2.4250E-01_JPRB,4.3491E-01_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&9.7171E-02_JPRB,8.5148E-02_JPRB,7.3125E-02_JPRB,6.1102E-02_JPRB,7.6485E-02_JPRB,9.5172E-02_JPRB,&
+&1.1335E-01_JPRB,1.2955E-01_JPRB,1.4355E-01_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&9.4236E-02_JPRB,8.2602E-02_JPRB,7.0968E-02_JPRB,6.8035E-02_JPRB,9.0374E-02_JPRB,1.1244E-01_JPRB,&
+&1.3393E-01_JPRB,1.5311E-01_JPRB,1.6974E-01_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&9.1543E-02_JPRB,8.0273E-02_JPRB,6.9003E-02_JPRB,7.8791E-02_JPRB,1.0469E-01_JPRB,1.3025E-01_JPRB,&
+&1.5519E-01_JPRB,1.7738E-01_JPRB,1.9670E-01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&8.8644E-02_JPRB,7.7768E-02_JPRB,6.6893E-02_JPRB,8.9756E-02_JPRB,1.1926E-01_JPRB,1.4844E-01_JPRB,&
+&1.7683E-01_JPRB,2.0215E-01_JPRB,2.2416E-01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&8.6144E-02_JPRB,7.5584E-02_JPRB,6.7875E-02_JPRB,1.0078E-01_JPRB,1.3394E-01_JPRB,1.6670E-01_JPRB,&
+&1.9859E-01_JPRB,2.2714E-01_JPRB,2.5185E-01_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&1.1053E-01_JPRB,9.6812E-02_JPRB,8.3097E-02_JPRB,6.9381E-02_JPRB,8.5062E-02_JPRB,1.0587E-01_JPRB,&
+&1.2610E-01_JPRB,1.4420E-01_JPRB,1.6344E-01_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&1.0742E-01_JPRB,9.4110E-02_JPRB,8.0803E-02_JPRB,7.6274E-02_JPRB,1.0134E-01_JPRB,1.2610E-01_JPRB,&
+&1.5024E-01_JPRB,1.7183E-01_JPRB,1.9478E-01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&1.0452E-01_JPRB,9.1604E-02_JPRB,7.8683E-02_JPRB,8.8937E-02_JPRB,1.1819E-01_JPRB,1.4709E-01_JPRB,&
+&1.7526E-01_JPRB,2.0044E-01_JPRB,2.2725E-01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&1.0156E-01_JPRB,8.9034E-02_JPRB,7.6513E-02_JPRB,1.0188E-01_JPRB,1.3537E-01_JPRB,1.6848E-01_JPRB,&
+&2.0078E-01_JPRB,2.2973E-01_JPRB,2.6038E-01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&9.9221E-02_JPRB,8.6974E-02_JPRB,7.8015E-02_JPRB,1.1491E-01_JPRB,1.5271E-01_JPRB,1.9010E-01_JPRB,&
+&2.2653E-01_JPRB,2.5922E-01_JPRB,2.9391E-01_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&1.2741E-01_JPRB,1.1157E-01_JPRB,9.5716E-02_JPRB,7.9867E-02_JPRB,9.0261E-02_JPRB,1.1233E-01_JPRB,&
+&1.3379E-01_JPRB,1.5315E-01_JPRB,1.7733E-01_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&1.2407E-01_JPRB,1.0865E-01_JPRB,9.3240E-02_JPRB,8.3066E-02_JPRB,1.0895E-01_JPRB,1.3559E-01_JPRB,&
+&1.6159E-01_JPRB,1.8497E-01_JPRB,2.1412E-01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&1.2077E-01_JPRB,1.0579E-01_JPRB,9.0806E-02_JPRB,9.6664E-02_JPRB,1.2848E-01_JPRB,1.5988E-01_JPRB,&
+&1.9057E-01_JPRB,2.1812E-01_JPRB,2.5248E-01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&1.1796E-01_JPRB,1.0334E-01_JPRB,8.8711E-02_JPRB,1.1167E-01_JPRB,1.4847E-01_JPRB,1.8483E-01_JPRB,&
+&2.2029E-01_JPRB,2.5232E-01_JPRB,2.9201E-01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&1.1579E-01_JPRB,1.0144E-01_JPRB,8.8938E-02_JPRB,1.2695E-01_JPRB,1.6868E-01_JPRB,2.1009E-01_JPRB,&
+&2.5050E-01_JPRB,2.8682E-01_JPRB,3.3195E-01_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&1.4795E-01_JPRB,1.2951E-01_JPRB,1.1108E-01_JPRB,9.2642E-02_JPRB,9.3362E-02_JPRB,1.1620E-01_JPRB,&
+&1.3849E-01_JPRB,1.5859E-01_JPRB,1.8531E-01_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&1.4437E-01_JPRB,1.2639E-01_JPRB,1.0842E-01_JPRB,9.2423E-02_JPRB,1.1442E-01_JPRB,1.4252E-01_JPRB,&
+&1.6987E-01_JPRB,1.9459E-01_JPRB,2.2738E-01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&1.4082E-01_JPRB,1.2330E-01_JPRB,1.0578E-01_JPRB,1.0327E-01_JPRB,1.3669E-01_JPRB,1.7021E-01_JPRB,&
+&2.0291E-01_JPRB,2.3254E-01_JPRB,2.7168E-01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&1.3812E-01_JPRB,1.2094E-01_JPRB,1.0376E-01_JPRB,1.2016E-01_JPRB,1.5971E-01_JPRB,1.9884E-01_JPRB,&
+&2.3712E-01_JPRB,2.7173E-01_JPRB,3.1737E-01_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&1.3617E-01_JPRB,1.1924E-01_JPRB,1.0266E-01_JPRB,1.3775E-01_JPRB,1.8312E-01_JPRB,2.2801E-01_JPRB,&
+&2.7185E-01_JPRB,3.1180E-01_JPRB,3.6388E-01_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&1.7254E-01_JPRB,1.5104E-01_JPRB,1.2954E-01_JPRB,1.0804E-01_JPRB,9.7033E-02_JPRB,1.1821E-01_JPRB,&
+&1.4096E-01_JPRB,1.6165E-01_JPRB,1.8940E-01_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&1.6864E-01_JPRB,1.4763E-01_JPRB,1.2663E-01_JPRB,1.0583E-01_JPRB,1.1845E-01_JPRB,1.4755E-01_JPRB,&
+&1.7593E-01_JPRB,2.0174E-01_JPRB,2.3625E-01_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&1.6515E-01_JPRB,1.4456E-01_JPRB,1.2397E-01_JPRB,1.1290E-01_JPRB,1.4346E-01_JPRB,1.7861E-01_JPRB,&
+&2.1302E-01_JPRB,2.4445E-01_JPRB,2.8621E-01_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&1.6266E-01_JPRB,1.4239E-01_JPRB,1.2212E-01_JPRB,1.2793E-01_JPRB,1.6939E-01_JPRB,2.1102E-01_JPRB,&
+&2.5177E-01_JPRB,2.8892E-01_JPRB,3.3809E-01_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&1.6070E-01_JPRB,1.4068E-01_JPRB,1.2066E-01_JPRB,1.4743E-01_JPRB,1.9603E-01_JPRB,2.4421E-01_JPRB,&
+&2.9142E-01_JPRB,3.3457E-01_JPRB,3.9133E-01_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&2.0388E-01_JPRB,1.7849E-01_JPRB,1.5310E-01_JPRB,1.2771E-01_JPRB,1.0526E-01_JPRB,1.1860E-01_JPRB,&
+&1.4142E-01_JPRB,1.6203E-01_JPRB,1.9043E-01_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&1.9953E-01_JPRB,1.7470E-01_JPRB,1.4986E-01_JPRB,1.2501E-01_JPRB,1.2166E-01_JPRB,1.5016E-01_JPRB,&
+&1.7907E-01_JPRB,2.0547E-01_JPRB,2.4111E-01_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&1.9494E-01_JPRB,1.7068E-01_JPRB,1.4642E-01_JPRB,1.2626E-01_JPRB,1.4789E-01_JPRB,1.8422E-01_JPRB,&
+&2.1980E-01_JPRB,2.5220E-01_JPRB,2.9578E-01_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&1.9206E-01_JPRB,1.6810E-01_JPRB,1.4414E-01_JPRB,1.3841E-01_JPRB,1.7663E-01_JPRB,2.1999E-01_JPRB,&
+&2.6255E-01_JPRB,3.0157E-01_JPRB,3.5331E-01_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&1.9005E-01_JPRB,1.6635E-01_JPRB,1.4264E-01_JPRB,1.5606E-01_JPRB,2.0643E-01_JPRB,2.5713E-01_JPRB,&
+&3.0687E-01_JPRB,3.5252E-01_JPRB,4.1278E-01_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&2.4312E-01_JPRB,2.1282E-01_JPRB,1.8252E-01_JPRB,1.5222E-01_JPRB,1.2192E-01_JPRB,1.1888E-01_JPRB,&
+&1.4174E-01_JPRB,1.6248E-01_JPRB,1.9115E-01_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&2.3797E-01_JPRB,2.0832E-01_JPRB,1.7867E-01_JPRB,1.4904E-01_JPRB,1.2994E-01_JPRB,1.5302E-01_JPRB,&
+&1.8249E-01_JPRB,2.0929E-01_JPRB,2.4599E-01_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&2.3255E-01_JPRB,2.0359E-01_JPRB,1.7463E-01_JPRB,1.4575E-01_JPRB,1.5275E-01_JPRB,1.9023E-01_JPRB,&
+&2.2691E-01_JPRB,2.6041E-01_JPRB,3.0584E-01_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&2.2807E-01_JPRB,1.9965E-01_JPRB,1.7122E-01_JPRB,1.5317E-01_JPRB,1.8432E-01_JPRB,2.2969E-01_JPRB,&
+&2.7402E-01_JPRB,3.1471E-01_JPRB,3.6920E-01_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&2.2498E-01_JPRB,1.9692E-01_JPRB,1.6887E-01_JPRB,1.6865E-01_JPRB,2.1725E-01_JPRB,2.7068E-01_JPRB,&
+&3.2308E-01_JPRB,3.7116E-01_JPRB,4.3516E-01_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&2.9068E-01_JPRB,2.5442E-01_JPRB,2.1816E-01_JPRB,1.8190E-01_JPRB,1.4564E-01_JPRB,1.2041E-01_JPRB,&
+&1.4177E-01_JPRB,1.6257E-01_JPRB,1.9124E-01_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&2.8457E-01_JPRB,2.4908E-01_JPRB,2.1359E-01_JPRB,1.7807E-01_JPRB,1.4515E-01_JPRB,1.5579E-01_JPRB,&
+&1.8584E-01_JPRB,2.1331E-01_JPRB,2.5071E-01_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&2.7790E-01_JPRB,2.4325E-01_JPRB,2.0861E-01_JPRB,1.7396E-01_JPRB,1.6105E-01_JPRB,1.9656E-01_JPRB,&
+&2.3447E-01_JPRB,2.6926E-01_JPRB,3.1620E-01_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&2.7204E-01_JPRB,2.3812E-01_JPRB,2.0420E-01_JPRB,1.7391E-01_JPRB,1.9266E-01_JPRB,2.4008E-01_JPRB,&
+&2.8658E-01_JPRB,3.2922E-01_JPRB,3.8634E-01_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&2.6773E-01_JPRB,2.3434E-01_JPRB,2.0095E-01_JPRB,1.8582E-01_JPRB,2.2918E-01_JPRB,2.8567E-01_JPRB,&
+&3.4098E-01_JPRB,3.9189E-01_JPRB,4.5943E-01_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&3.4732E-01_JPRB,3.0397E-01_JPRB,2.6061E-01_JPRB,2.1726E-01_JPRB,1.7390E-01_JPRB,1.3271E-01_JPRB,&
+&1.4035E-01_JPRB,1.6109E-01_JPRB,1.8937E-01_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&3.3981E-01_JPRB,2.9740E-01_JPRB,2.5499E-01_JPRB,2.1257E-01_JPRB,1.7017E-01_JPRB,1.5746E-01_JPRB,&
+&1.8783E-01_JPRB,2.1574E-01_JPRB,2.5330E-01_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&3.3164E-01_JPRB,2.9026E-01_JPRB,2.4888E-01_JPRB,2.0750E-01_JPRB,1.7718E-01_JPRB,2.0179E-01_JPRB,&
+&2.4086E-01_JPRB,2.7675E-01_JPRB,3.2472E-01_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&3.2434E-01_JPRB,2.8387E-01_JPRB,2.4340E-01_JPRB,2.0299E-01_JPRB,2.0166E-01_JPRB,2.4979E-01_JPRB,&
+&2.9816E-01_JPRB,3.4279E-01_JPRB,4.0187E-01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&3.1856E-01_JPRB,2.7881E-01_JPRB,2.3907E-01_JPRB,2.0909E-01_JPRB,2.4079E-01_JPRB,3.0025E-01_JPRB,&
+&3.5852E-01_JPRB,4.1238E-01_JPRB,4.8294E-01_JPRB/)
+KAO( :, 1,10,16) = (/&
+&4.1296E-01_JPRB,3.6138E-01_JPRB,3.0981E-01_JPRB,2.5823E-01_JPRB,2.0667E-01_JPRB,1.5510E-01_JPRB,&
+&1.4272E-01_JPRB,1.6382E-01_JPRB,1.9375E-01_JPRB/)
+KAO( :, 2,10,16) = (/&
+&4.0355E-01_JPRB,3.5316E-01_JPRB,3.0277E-01_JPRB,2.5237E-01_JPRB,2.0198E-01_JPRB,1.6688E-01_JPRB,&
+&1.9258E-01_JPRB,2.2130E-01_JPRB,2.5965E-01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&3.9334E-01_JPRB,3.4423E-01_JPRB,2.9512E-01_JPRB,2.4601E-01_JPRB,2.0198E-01_JPRB,2.0922E-01_JPRB,&
+&2.4978E-01_JPRB,2.8734E-01_JPRB,3.3649E-01_JPRB/)
+KAO( :, 4,10,16) = (/&
+&3.8468E-01_JPRB,3.3665E-01_JPRB,2.8862E-01_JPRB,2.4064E-01_JPRB,2.1892E-01_JPRB,2.6187E-01_JPRB,&
+&3.1276E-01_JPRB,3.6003E-01_JPRB,4.2127E-01_JPRB/)
+KAO( :, 5,10,16) = (/&
+&3.7732E-01_JPRB,3.3021E-01_JPRB,2.8310E-01_JPRB,2.4052E-01_JPRB,2.5525E-01_JPRB,3.1772E-01_JPRB,&
+&3.7953E-01_JPRB,4.3694E-01_JPRB,5.1089E-01_JPRB/)
+KAO( :, 1,11,16) = (/&
+&4.8302E-01_JPRB,4.2268E-01_JPRB,3.6234E-01_JPRB,3.0200E-01_JPRB,2.4165E-01_JPRB,1.8151E-01_JPRB,&
+&1.6877E-01_JPRB,1.9388E-01_JPRB,3.3421E-01_JPRB/)
+KAO( :, 2,11,16) = (/&
+&4.7050E-01_JPRB,4.1173E-01_JPRB,3.5296E-01_JPRB,2.9420E-01_JPRB,2.3543E-01_JPRB,1.9660E-01_JPRB,&
+&2.2543E-01_JPRB,2.5921E-01_JPRB,3.3179E-01_JPRB/)
+KAO( :, 3,11,16) = (/&
+&4.5896E-01_JPRB,4.0163E-01_JPRB,3.4431E-01_JPRB,2.8698E-01_JPRB,2.3627E-01_JPRB,2.4234E-01_JPRB,&
+&2.8945E-01_JPRB,3.3305E-01_JPRB,3.8992E-01_JPRB/)
+KAO( :, 4,11,16) = (/&
+&4.4916E-01_JPRB,3.9306E-01_JPRB,3.3696E-01_JPRB,2.8088E-01_JPRB,2.5515E-01_JPRB,3.0073E-01_JPRB,&
+&3.5922E-01_JPRB,4.1373E-01_JPRB,4.8361E-01_JPRB/)
+KAO( :, 5,11,16) = (/&
+&4.3990E-01_JPRB,3.8496E-01_JPRB,3.3001E-01_JPRB,2.8070E-01_JPRB,2.9324E-01_JPRB,3.6251E-01_JPRB,&
+&4.3320E-01_JPRB,4.9939E-01_JPRB,5.8288E-01_JPRB/)
+KAO( :, 1,12,16) = (/&
+&5.5949E-01_JPRB,4.8959E-01_JPRB,4.1968E-01_JPRB,3.4978E-01_JPRB,2.7990E-01_JPRB,2.1117E-01_JPRB,&
+&1.9846E-01_JPRB,2.2823E-01_JPRB,4.6485E-01_JPRB/)
+KAO( :, 2,12,16) = (/&
+&5.4466E-01_JPRB,4.7661E-01_JPRB,4.0856E-01_JPRB,3.4053E-01_JPRB,2.7248E-01_JPRB,2.3023E-01_JPRB,&
+&2.6289E-01_JPRB,3.0262E-01_JPRB,4.5843E-01_JPRB/)
+KAO( :, 3,12,16) = (/&
+&5.3198E-01_JPRB,4.6551E-01_JPRB,3.9905E-01_JPRB,3.3259E-01_JPRB,2.7378E-01_JPRB,2.8016E-01_JPRB,&
+&3.3471E-01_JPRB,3.8547E-01_JPRB,4.7894E-01_JPRB/)
+KAO( :, 4,12,16) = (/&
+&5.2001E-01_JPRB,4.5505E-01_JPRB,3.9008E-01_JPRB,3.2510E-01_JPRB,2.9551E-01_JPRB,3.4473E-01_JPRB,&
+&4.1193E-01_JPRB,4.7482E-01_JPRB,5.5483E-01_JPRB/)
+KAO( :, 5,12,16) = (/&
+&5.0915E-01_JPRB,4.4554E-01_JPRB,3.8193E-01_JPRB,3.2460E-01_JPRB,3.3469E-01_JPRB,4.1244E-01_JPRB,&
+&4.9294E-01_JPRB,5.6854E-01_JPRB,6.6308E-01_JPRB/)
+KAO( :, 1,13,16) = (/&
+&6.4209E-01_JPRB,5.6185E-01_JPRB,4.8161E-01_JPRB,4.0138E-01_JPRB,3.2111E-01_JPRB,2.4405E-01_JPRB,&
+&2.3126E-01_JPRB,2.6629E-01_JPRB,5.1031E-01_JPRB/)
+KAO( :, 2,13,16) = (/&
+&6.2605E-01_JPRB,5.4782E-01_JPRB,4.6959E-01_JPRB,3.9135E-01_JPRB,3.1312E-01_JPRB,2.6752E-01_JPRB,&
+&3.0417E-01_JPRB,3.5056E-01_JPRB,5.0701E-01_JPRB/)
+KAO( :, 3,13,16) = (/&
+&6.1094E-01_JPRB,5.3460E-01_JPRB,4.5826E-01_JPRB,3.8192E-01_JPRB,3.1501E-01_JPRB,3.2162E-01_JPRB,&
+&3.8441E-01_JPRB,4.4331E-01_JPRB,5.4185E-01_JPRB/)
+KAO( :, 4,13,16) = (/&
+&5.9718E-01_JPRB,5.2256E-01_JPRB,4.4794E-01_JPRB,3.7327E-01_JPRB,3.3928E-01_JPRB,3.9296E-01_JPRB,&
+&4.6976E-01_JPRB,5.4198E-01_JPRB,6.3180E-01_JPRB/)
+KAO( :, 5,13,16) = (/&
+&5.8381E-01_JPRB,5.1086E-01_JPRB,4.3791E-01_JPRB,3.7153E-01_JPRB,3.7939E-01_JPRB,4.6700E-01_JPRB,&
+&5.5841E-01_JPRB,6.4458E-01_JPRB,7.5053E-01_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB16_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb16_A2.F90	(revision 2160)
@@ -0,0 +1,1603 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB16_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&1.9384E-05_JPRB,2.9898E-05_JPRB,3.4062E-05_JPRB,3.6004E-05_JPRB,3.6430E-05_JPRB,3.5549E-05_JPRB,&
+&3.3320E-05_JPRB,2.9615E-05_JPRB,2.3873E-05_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&1.9436E-05_JPRB,2.9740E-05_JPRB,3.3708E-05_JPRB,3.5476E-05_JPRB,3.5843E-05_JPRB,3.5033E-05_JPRB,&
+&3.2962E-05_JPRB,2.9462E-05_JPRB,2.4055E-05_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&1.9464E-05_JPRB,2.9570E-05_JPRB,3.3324E-05_JPRB,3.4974E-05_JPRB,3.5304E-05_JPRB,3.4544E-05_JPRB,&
+&3.2637E-05_JPRB,2.9289E-05_JPRB,2.4237E-05_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&1.9302E-05_JPRB,2.9247E-05_JPRB,3.2832E-05_JPRB,3.4416E-05_JPRB,3.4737E-05_JPRB,3.4031E-05_JPRB,&
+&3.2272E-05_JPRB,2.9080E-05_JPRB,2.4364E-05_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&1.9123E-05_JPRB,2.8885E-05_JPRB,3.2360E-05_JPRB,3.3877E-05_JPRB,3.4211E-05_JPRB,3.3554E-05_JPRB,&
+&3.1880E-05_JPRB,2.8883E-05_JPRB,2.4458E-05_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&1.6583E-05_JPRB,2.6012E-05_JPRB,2.9608E-05_JPRB,3.1154E-05_JPRB,3.1427E-05_JPRB,3.0616E-05_JPRB,&
+&2.8665E-05_JPRB,2.5368E-05_JPRB,2.0615E-05_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&1.6630E-05_JPRB,2.5863E-05_JPRB,2.9249E-05_JPRB,3.0678E-05_JPRB,3.0941E-05_JPRB,3.0197E-05_JPRB,&
+&2.8392E-05_JPRB,2.5270E-05_JPRB,2.0786E-05_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&1.6647E-05_JPRB,2.5697E-05_JPRB,2.8891E-05_JPRB,3.0222E-05_JPRB,3.0484E-05_JPRB,2.9802E-05_JPRB,&
+&2.8138E-05_JPRB,2.5165E-05_JPRB,2.0933E-05_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&1.6540E-05_JPRB,2.5405E-05_JPRB,2.8466E-05_JPRB,2.9745E-05_JPRB,3.0011E-05_JPRB,2.9400E-05_JPRB,&
+&2.7847E-05_JPRB,2.5027E-05_JPRB,2.1051E-05_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&1.6324E-05_JPRB,2.5032E-05_JPRB,2.7991E-05_JPRB,2.9251E-05_JPRB,2.9530E-05_JPRB,2.8984E-05_JPRB,&
+&2.7519E-05_JPRB,2.4864E-05_JPRB,2.1134E-05_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&1.4086E-05_JPRB,2.2526E-05_JPRB,2.5577E-05_JPRB,2.6862E-05_JPRB,2.7021E-05_JPRB,2.6302E-05_JPRB,&
+&2.4576E-05_JPRB,2.1643E-05_JPRB,1.8751E-05_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&1.4131E-05_JPRB,2.2392E-05_JPRB,2.5264E-05_JPRB,2.6452E-05_JPRB,2.6617E-05_JPRB,2.5964E-05_JPRB,&
+&2.4370E-05_JPRB,2.1595E-05_JPRB,1.8898E-05_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&1.4113E-05_JPRB,2.2191E-05_JPRB,2.4900E-05_JPRB,2.6018E-05_JPRB,2.6215E-05_JPRB,2.5621E-05_JPRB,&
+&2.4158E-05_JPRB,2.1540E-05_JPRB,1.9048E-05_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&1.4058E-05_JPRB,2.1961E-05_JPRB,2.4548E-05_JPRB,2.5623E-05_JPRB,2.5838E-05_JPRB,2.5312E-05_JPRB,&
+&2.3952E-05_JPRB,2.1469E-05_JPRB,1.9182E-05_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&1.3863E-05_JPRB,2.1619E-05_JPRB,2.4113E-05_JPRB,2.5184E-05_JPRB,2.5419E-05_JPRB,2.4957E-05_JPRB,&
+&2.3697E-05_JPRB,2.1357E-05_JPRB,1.9265E-05_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&1.1900E-05_JPRB,1.9396E-05_JPRB,2.1993E-05_JPRB,2.3049E-05_JPRB,2.3163E-05_JPRB,2.2508E-05_JPRB,&
+&2.0982E-05_JPRB,1.8407E-05_JPRB,1.7094E-05_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&1.1936E-05_JPRB,1.9289E-05_JPRB,2.1740E-05_JPRB,2.2712E-05_JPRB,2.2827E-05_JPRB,2.2234E-05_JPRB,&
+&2.0833E-05_JPRB,1.8390E-05_JPRB,1.7367E-05_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&1.1914E-05_JPRB,1.9113E-05_JPRB,2.1420E-05_JPRB,2.2348E-05_JPRB,2.2488E-05_JPRB,2.1958E-05_JPRB,&
+&2.0668E-05_JPRB,1.8368E-05_JPRB,1.7624E-05_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&1.1850E-05_JPRB,1.8882E-05_JPRB,2.1069E-05_JPRB,2.1971E-05_JPRB,2.2145E-05_JPRB,2.1684E-05_JPRB,&
+&2.0493E-05_JPRB,1.8332E-05_JPRB,1.7862E-05_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&1.1744E-05_JPRB,1.8626E-05_JPRB,2.0733E-05_JPRB,2.1634E-05_JPRB,2.1819E-05_JPRB,2.1414E-05_JPRB,&
+&2.0321E-05_JPRB,1.8279E-05_JPRB,1.8065E-05_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&1.0007E-05_JPRB,1.6633E-05_JPRB,1.8846E-05_JPRB,1.9714E-05_JPRB,1.9792E-05_JPRB,1.9192E-05_JPRB,&
+&1.7849E-05_JPRB,1.5620E-05_JPRB,1.4831E-05_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&1.0036E-05_JPRB,1.6537E-05_JPRB,1.8619E-05_JPRB,1.9430E-05_JPRB,1.9510E-05_JPRB,1.8974E-05_JPRB,&
+&1.7727E-05_JPRB,1.5597E-05_JPRB,1.5243E-05_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&1.0020E-05_JPRB,1.6382E-05_JPRB,1.8357E-05_JPRB,1.9125E-05_JPRB,1.9225E-05_JPRB,1.8747E-05_JPRB,&
+&1.7610E-05_JPRB,1.5596E-05_JPRB,1.5694E-05_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&9.9655E-06_JPRB,1.6185E-05_JPRB,1.8047E-05_JPRB,1.8806E-05_JPRB,1.8930E-05_JPRB,1.8511E-05_JPRB,&
+&1.7475E-05_JPRB,1.5592E-05_JPRB,1.6134E-05_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&9.8924E-06_JPRB,1.5961E-05_JPRB,1.7750E-05_JPRB,1.8511E-05_JPRB,1.8653E-05_JPRB,1.8287E-05_JPRB,&
+&1.7340E-05_JPRB,1.5571E-05_JPRB,1.6528E-05_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&8.3773E-06_JPRB,1.4205E-05_JPRB,1.6091E-05_JPRB,1.6810E-05_JPRB,1.6854E-05_JPRB,1.6312E-05_JPRB,&
+&1.5134E-05_JPRB,1.3227E-05_JPRB,1.2806E-05_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&8.4040E-06_JPRB,1.4116E-05_JPRB,1.5890E-05_JPRB,1.6565E-05_JPRB,1.6618E-05_JPRB,1.6134E-05_JPRB,&
+&1.5030E-05_JPRB,1.3175E-05_JPRB,1.3188E-05_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&8.3967E-06_JPRB,1.3982E-05_JPRB,1.5670E-05_JPRB,1.6315E-05_JPRB,1.6378E-05_JPRB,1.5948E-05_JPRB,&
+&1.4938E-05_JPRB,1.3181E-05_JPRB,1.3640E-05_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&8.3520E-06_JPRB,1.3808E-05_JPRB,1.5410E-05_JPRB,1.6041E-05_JPRB,1.6129E-05_JPRB,1.5748E-05_JPRB,&
+&1.4840E-05_JPRB,1.3187E-05_JPRB,1.4105E-05_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&8.2808E-06_JPRB,1.3600E-05_JPRB,1.5125E-05_JPRB,1.5766E-05_JPRB,1.5873E-05_JPRB,1.5546E-05_JPRB,&
+&1.4725E-05_JPRB,1.3184E-05_JPRB,1.4585E-05_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&6.9702E-06_JPRB,1.2049E-05_JPRB,1.3655E-05_JPRB,1.4254E-05_JPRB,1.4272E-05_JPRB,1.3786E-05_JPRB,&
+&1.2775E-05_JPRB,1.1193E-05_JPRB,1.1151E-05_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&6.9954E-06_JPRB,1.1967E-05_JPRB,1.3478E-05_JPRB,1.4043E-05_JPRB,1.4073E-05_JPRB,1.3643E-05_JPRB,&
+&1.2677E-05_JPRB,1.1085E-05_JPRB,1.1514E-05_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&6.9926E-06_JPRB,1.1851E-05_JPRB,1.3284E-05_JPRB,1.3826E-05_JPRB,1.3871E-05_JPRB,1.3488E-05_JPRB,&
+&1.2600E-05_JPRB,1.1081E-05_JPRB,1.1911E-05_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&6.9597E-06_JPRB,1.1700E-05_JPRB,1.3068E-05_JPRB,1.3600E-05_JPRB,1.3659E-05_JPRB,1.3321E-05_JPRB,&
+&1.2522E-05_JPRB,1.1091E-05_JPRB,1.2356E-05_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&6.9051E-06_JPRB,1.1522E-05_JPRB,1.2825E-05_JPRB,1.3359E-05_JPRB,1.3444E-05_JPRB,1.3151E-05_JPRB,&
+&1.2435E-05_JPRB,1.1100E-05_JPRB,1.2847E-05_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&5.8087E-06_JPRB,1.0208E-05_JPRB,1.1579E-05_JPRB,1.2087E-05_JPRB,1.2081E-05_JPRB,1.1640E-05_JPRB,&
+&1.0763E-05_JPRB,9.5182E-06_JPRB,9.7914E-06_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&5.8314E-06_JPRB,1.0134E-05_JPRB,1.1429E-05_JPRB,1.1911E-05_JPRB,1.1918E-05_JPRB,1.1522E-05_JPRB,&
+&1.0685E-05_JPRB,9.3144E-06_JPRB,1.0107E-05_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&5.8306E-06_JPRB,1.0039E-05_JPRB,1.1263E-05_JPRB,1.1721E-05_JPRB,1.1741E-05_JPRB,1.1392E-05_JPRB,&
+&1.0611E-05_JPRB,9.2970E-06_JPRB,1.0491E-05_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&5.8084E-06_JPRB,9.9094E-06_JPRB,1.1082E-05_JPRB,1.1528E-05_JPRB,1.1564E-05_JPRB,1.1253E-05_JPRB,&
+&1.0543E-05_JPRB,9.3028E-06_JPRB,1.0943E-05_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&5.7671E-06_JPRB,9.7597E-06_JPRB,1.0878E-05_JPRB,1.1322E-05_JPRB,1.1380E-05_JPRB,1.1112E-05_JPRB,&
+&1.0475E-05_JPRB,9.3153E-06_JPRB,1.1451E-05_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&4.8301E-06_JPRB,8.6067E-06_JPRB,9.7714E-06_JPRB,1.0210E-05_JPRB,1.0192E-05_JPRB,9.7977E-06_JPRB,&
+&9.0505E-06_JPRB,8.2004E-06_JPRB,9.1168E-06_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&4.8495E-06_JPRB,8.5468E-06_JPRB,9.6571E-06_JPRB,1.0063E-05_JPRB,1.0051E-05_JPRB,9.6903E-06_JPRB,&
+&8.9660E-06_JPRB,7.8251E-06_JPRB,9.4876E-06_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&4.8497E-06_JPRB,8.4643E-06_JPRB,9.5144E-06_JPRB,9.9014E-06_JPRB,9.9028E-06_JPRB,9.5821E-06_JPRB,&
+&8.9043E-06_JPRB,7.7718E-06_JPRB,9.9373E-06_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&4.8347E-06_JPRB,8.3597E-06_JPRB,9.3601E-06_JPRB,9.7348E-06_JPRB,9.7523E-06_JPRB,9.4691E-06_JPRB,&
+&8.8479E-06_JPRB,7.7751E-06_JPRB,1.0480E-05_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&4.8060E-06_JPRB,8.2344E-06_JPRB,9.1913E-06_JPRB,9.5624E-06_JPRB,9.5965E-06_JPRB,9.3522E-06_JPRB,&
+&8.7881E-06_JPRB,7.7833E-06_JPRB,1.1108E-05_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&4.0064E-06_JPRB,7.2194E-06_JPRB,8.1998E-06_JPRB,8.5791E-06_JPRB,8.5570E-06_JPRB,8.2127E-06_JPRB,&
+&7.5956E-06_JPRB,7.1868E-06_JPRB,1.0453E-05_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&4.0197E-06_JPRB,7.1679E-06_JPRB,8.1105E-06_JPRB,8.4531E-06_JPRB,8.4331E-06_JPRB,8.1149E-06_JPRB,&
+&7.4918E-06_JPRB,6.5776E-06_JPRB,1.0520E-05_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&4.0198E-06_JPRB,7.0974E-06_JPRB,7.9934E-06_JPRB,8.3195E-06_JPRB,8.3088E-06_JPRB,8.0216E-06_JPRB,&
+&7.4367E-06_JPRB,6.4788E-06_JPRB,1.0711E-05_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&4.0097E-06_JPRB,7.0130E-06_JPRB,7.8610E-06_JPRB,8.1737E-06_JPRB,8.1778E-06_JPRB,7.9289E-06_JPRB,&
+&7.3886E-06_JPRB,6.4723E-06_JPRB,1.1047E-05_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&3.9884E-06_JPRB,6.9092E-06_JPRB,7.7198E-06_JPRB,8.0283E-06_JPRB,8.0487E-06_JPRB,7.8282E-06_JPRB,&
+&7.3394E-06_JPRB,6.4785E-06_JPRB,1.1524E-05_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&3.3235E-06_JPRB,6.0184E-06_JPRB,6.8284E-06_JPRB,7.1399E-06_JPRB,7.1176E-06_JPRB,6.8268E-06_JPRB,&
+&6.3069E-06_JPRB,5.9015E-06_JPRB,1.0775E-05_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&3.3290E-06_JPRB,5.9691E-06_JPRB,6.7492E-06_JPRB,7.0301E-06_JPRB,7.0090E-06_JPRB,6.7423E-06_JPRB,&
+&6.2217E-06_JPRB,5.4471E-06_JPRB,1.0671E-05_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&3.3251E-06_JPRB,5.9052E-06_JPRB,6.6470E-06_JPRB,6.9153E-06_JPRB,6.9027E-06_JPRB,6.6631E-06_JPRB,&
+&6.1768E-06_JPRB,5.3794E-06_JPRB,1.0714E-05_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&3.3144E-06_JPRB,5.8297E-06_JPRB,6.5309E-06_JPRB,6.7910E-06_JPRB,6.7926E-06_JPRB,6.5831E-06_JPRB,&
+&6.1358E-06_JPRB,5.3736E-06_JPRB,1.0902E-05_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&3.2953E-06_JPRB,5.7419E-06_JPRB,6.4131E-06_JPRB,6.6688E-06_JPRB,6.6812E-06_JPRB,6.4951E-06_JPRB,&
+&6.0888E-06_JPRB,5.3759E-06_JPRB,1.1211E-05_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&2.7539E-06_JPRB,5.0055E-06_JPRB,5.6748E-06_JPRB,5.9323E-06_JPRB,5.9106E-06_JPRB,5.6659E-06_JPRB,&
+&5.2301E-06_JPRB,4.8410E-06_JPRB,1.0041E-05_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&2.7540E-06_JPRB,4.9609E-06_JPRB,5.6055E-06_JPRB,5.8388E-06_JPRB,5.8173E-06_JPRB,5.5933E-06_JPRB,&
+&5.1585E-06_JPRB,4.5035E-06_JPRB,9.8783E-06_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&2.7488E-06_JPRB,4.9048E-06_JPRB,5.5190E-06_JPRB,5.7407E-06_JPRB,5.7275E-06_JPRB,5.5257E-06_JPRB,&
+&5.1201E-06_JPRB,4.4556E-06_JPRB,9.8584E-06_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&2.7385E-06_JPRB,4.8395E-06_JPRB,5.4207E-06_JPRB,5.6356E-06_JPRB,5.6337E-06_JPRB,5.4559E-06_JPRB,&
+&5.0826E-06_JPRB,4.4482E-06_JPRB,9.9631E-06_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&2.7214E-06_JPRB,4.7654E-06_JPRB,5.3225E-06_JPRB,5.5318E-06_JPRB,5.5373E-06_JPRB,5.3782E-06_JPRB,&
+&5.0386E-06_JPRB,4.4476E-06_JPRB,1.0178E-05_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&2.2801E-06_JPRB,4.1555E-06_JPRB,4.7093E-06_JPRB,4.9224E-06_JPRB,4.9034E-06_JPRB,4.6982E-06_JPRB,&
+&4.3297E-06_JPRB,3.9733E-06_JPRB,8.4129E-06_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&2.2770E-06_JPRB,4.1173E-06_JPRB,4.6509E-06_JPRB,4.8443E-06_JPRB,4.8245E-06_JPRB,4.6351E-06_JPRB,&
+&4.2708E-06_JPRB,3.7196E-06_JPRB,8.2708E-06_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&2.2712E-06_JPRB,4.0679E-06_JPRB,4.5774E-06_JPRB,4.7613E-06_JPRB,4.7480E-06_JPRB,4.5771E-06_JPRB,&
+&4.2377E-06_JPRB,3.6828E-06_JPRB,8.2482E-06_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&2.2616E-06_JPRB,4.0128E-06_JPRB,4.4962E-06_JPRB,4.6740E-06_JPRB,4.6674E-06_JPRB,4.5144E-06_JPRB,&
+&4.2021E-06_JPRB,3.6746E-06_JPRB,8.3289E-06_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&2.2466E-06_JPRB,3.9523E-06_JPRB,4.4147E-06_JPRB,4.5851E-06_JPRB,4.5844E-06_JPRB,4.4468E-06_JPRB,&
+&4.1612E-06_JPRB,3.6696E-06_JPRB,8.4982E-06_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&4.5009E-05_JPRB,5.8537E-05_JPRB,6.2677E-05_JPRB,6.4420E-05_JPRB,6.4899E-05_JPRB,6.4046E-05_JPRB,&
+&6.1758E-05_JPRB,5.7308E-05_JPRB,4.4974E-05_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&4.4639E-05_JPRB,5.7851E-05_JPRB,6.2018E-05_JPRB,6.3985E-05_JPRB,6.4709E-05_JPRB,6.3972E-05_JPRB,&
+&6.1776E-05_JPRB,5.7584E-05_JPRB,4.6032E-05_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&4.4183E-05_JPRB,5.7134E-05_JPRB,6.1429E-05_JPRB,6.3594E-05_JPRB,6.4467E-05_JPRB,6.3906E-05_JPRB,&
+&6.1866E-05_JPRB,5.7909E-05_JPRB,4.7065E-05_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&4.3603E-05_JPRB,5.6311E-05_JPRB,6.0747E-05_JPRB,6.3098E-05_JPRB,6.4110E-05_JPRB,6.3723E-05_JPRB,&
+&6.1859E-05_JPRB,5.8107E-05_JPRB,4.8038E-05_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&4.3016E-05_JPRB,5.5575E-05_JPRB,6.0089E-05_JPRB,6.2604E-05_JPRB,6.3758E-05_JPRB,6.3526E-05_JPRB,&
+&6.1825E-05_JPRB,5.8256E-05_JPRB,4.8937E-05_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&3.8991E-05_JPRB,5.1237E-05_JPRB,5.5073E-05_JPRB,5.6912E-05_JPRB,5.7291E-05_JPRB,5.6357E-05_JPRB,&
+&5.4136E-05_JPRB,4.9871E-05_JPRB,3.8345E-05_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&3.8628E-05_JPRB,5.0611E-05_JPRB,5.4618E-05_JPRB,5.6670E-05_JPRB,5.7177E-05_JPRB,5.6367E-05_JPRB,&
+&5.4237E-05_JPRB,5.0203E-05_JPRB,3.9241E-05_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&3.8218E-05_JPRB,5.0047E-05_JPRB,5.4219E-05_JPRB,5.6458E-05_JPRB,5.7088E-05_JPRB,5.6414E-05_JPRB,&
+&5.4375E-05_JPRB,5.0554E-05_JPRB,4.0182E-05_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&3.7696E-05_JPRB,4.9413E-05_JPRB,5.3740E-05_JPRB,5.6131E-05_JPRB,5.6939E-05_JPRB,5.6393E-05_JPRB,&
+&5.4506E-05_JPRB,5.0827E-05_JPRB,4.1063E-05_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&3.7087E-05_JPRB,4.8772E-05_JPRB,5.3212E-05_JPRB,5.5737E-05_JPRB,5.6714E-05_JPRB,5.6323E-05_JPRB,&
+&5.4580E-05_JPRB,5.1064E-05_JPRB,4.1833E-05_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&3.3664E-05_JPRB,4.4718E-05_JPRB,4.8316E-05_JPRB,5.0054E-05_JPRB,5.0316E-05_JPRB,4.9337E-05_JPRB,&
+&4.7131E-05_JPRB,4.3067E-05_JPRB,3.3821E-05_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&3.3332E-05_JPRB,4.4193E-05_JPRB,4.7982E-05_JPRB,4.9921E-05_JPRB,5.0286E-05_JPRB,4.9400E-05_JPRB,&
+&4.7278E-05_JPRB,4.3395E-05_JPRB,3.4508E-05_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&3.2912E-05_JPRB,4.3709E-05_JPRB,4.7689E-05_JPRB,4.9796E-05_JPRB,5.0261E-05_JPRB,4.9490E-05_JPRB,&
+&4.7455E-05_JPRB,4.3769E-05_JPRB,3.5275E-05_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&3.2477E-05_JPRB,4.3262E-05_JPRB,4.7404E-05_JPRB,4.9658E-05_JPRB,5.0286E-05_JPRB,4.9612E-05_JPRB,&
+&4.7676E-05_JPRB,4.4119E-05_JPRB,3.6032E-05_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&3.1897E-05_JPRB,4.2732E-05_JPRB,4.7020E-05_JPRB,4.9397E-05_JPRB,5.0209E-05_JPRB,4.9662E-05_JPRB,&
+&4.7863E-05_JPRB,4.4408E-05_JPRB,3.6739E-05_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&2.9034E-05_JPRB,3.9020E-05_JPRB,4.2255E-05_JPRB,4.3779E-05_JPRB,4.3941E-05_JPRB,4.2940E-05_JPRB,&
+&4.0749E-05_JPRB,3.6991E-05_JPRB,3.2231E-05_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&2.8733E-05_JPRB,3.8566E-05_JPRB,4.1993E-05_JPRB,4.3688E-05_JPRB,4.3978E-05_JPRB,4.3065E-05_JPRB,&
+&4.0955E-05_JPRB,3.7298E-05_JPRB,3.2530E-05_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&2.8365E-05_JPRB,3.8166E-05_JPRB,4.1800E-05_JPRB,4.3640E-05_JPRB,4.4034E-05_JPRB,4.3186E-05_JPRB,&
+&4.1171E-05_JPRB,3.7663E-05_JPRB,3.3003E-05_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&2.7906E-05_JPRB,3.7772E-05_JPRB,4.1598E-05_JPRB,4.3582E-05_JPRB,4.4101E-05_JPRB,4.3335E-05_JPRB,&
+&4.1429E-05_JPRB,3.8018E-05_JPRB,3.3543E-05_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&2.7464E-05_JPRB,3.7412E-05_JPRB,4.1395E-05_JPRB,4.3505E-05_JPRB,4.4180E-05_JPRB,4.3547E-05_JPRB,&
+&4.1708E-05_JPRB,3.8366E-05_JPRB,3.4090E-05_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&2.5046E-05_JPRB,3.4030E-05_JPRB,3.6841E-05_JPRB,3.8123E-05_JPRB,3.8161E-05_JPRB,3.7165E-05_JPRB,&
+&3.5069E-05_JPRB,3.1597E-05_JPRB,3.1884E-05_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&2.4766E-05_JPRB,3.3630E-05_JPRB,3.6644E-05_JPRB,3.8042E-05_JPRB,3.8206E-05_JPRB,3.7320E-05_JPRB,&
+&3.5335E-05_JPRB,3.1911E-05_JPRB,3.2055E-05_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&2.4433E-05_JPRB,3.3294E-05_JPRB,3.6479E-05_JPRB,3.8027E-05_JPRB,3.8311E-05_JPRB,3.7468E-05_JPRB,&
+&3.5564E-05_JPRB,3.2236E-05_JPRB,3.2305E-05_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&2.4018E-05_JPRB,3.2959E-05_JPRB,3.6349E-05_JPRB,3.8027E-05_JPRB,3.8418E-05_JPRB,3.7650E-05_JPRB,&
+&3.5828E-05_JPRB,3.2583E-05_JPRB,3.2642E-05_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&2.3591E-05_JPRB,3.2668E-05_JPRB,3.6232E-05_JPRB,3.8051E-05_JPRB,3.8551E-05_JPRB,3.7905E-05_JPRB,&
+&3.6128E-05_JPRB,3.2939E-05_JPRB,3.3008E-05_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&2.1579E-05_JPRB,2.9591E-05_JPRB,3.1991E-05_JPRB,3.3013E-05_JPRB,3.2936E-05_JPRB,3.1944E-05_JPRB,&
+&3.0025E-05_JPRB,2.6876E-05_JPRB,2.9999E-05_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&2.1317E-05_JPRB,2.9255E-05_JPRB,3.1830E-05_JPRB,3.2965E-05_JPRB,3.2983E-05_JPRB,3.2102E-05_JPRB,&
+&3.0272E-05_JPRB,2.7170E-05_JPRB,3.0568E-05_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&2.1011E-05_JPRB,2.8952E-05_JPRB,3.1684E-05_JPRB,3.2945E-05_JPRB,3.3093E-05_JPRB,3.2263E-05_JPRB,&
+&3.0533E-05_JPRB,2.7474E-05_JPRB,3.1151E-05_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&2.0627E-05_JPRB,2.8670E-05_JPRB,3.1569E-05_JPRB,3.2960E-05_JPRB,3.3217E-05_JPRB,3.2461E-05_JPRB,&
+&3.0780E-05_JPRB,2.7789E-05_JPRB,3.1790E-05_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&2.0182E-05_JPRB,2.8368E-05_JPRB,3.1449E-05_JPRB,3.2969E-05_JPRB,3.3342E-05_JPRB,3.2673E-05_JPRB,&
+&3.1052E-05_JPRB,2.8119E-05_JPRB,3.2386E-05_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&1.8452E-05_JPRB,2.5532E-05_JPRB,2.7551E-05_JPRB,2.8351E-05_JPRB,2.8204E-05_JPRB,2.7262E-05_JPRB,&
+&2.5546E-05_JPRB,2.2740E-05_JPRB,2.8091E-05_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&1.8215E-05_JPRB,2.5256E-05_JPRB,2.7416E-05_JPRB,2.8318E-05_JPRB,2.8249E-05_JPRB,2.7395E-05_JPRB,&
+&2.5765E-05_JPRB,2.3002E-05_JPRB,2.8720E-05_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&1.7931E-05_JPRB,2.4972E-05_JPRB,2.7294E-05_JPRB,2.8314E-05_JPRB,2.8348E-05_JPRB,2.7572E-05_JPRB,&
+&2.6008E-05_JPRB,2.3291E-05_JPRB,2.9431E-05_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&1.7583E-05_JPRB,2.4714E-05_JPRB,2.7183E-05_JPRB,2.8322E-05_JPRB,2.8484E-05_JPRB,2.7765E-05_JPRB,&
+&2.6265E-05_JPRB,2.3586E-05_JPRB,3.0235E-05_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&1.7179E-05_JPRB,2.4453E-05_JPRB,2.7076E-05_JPRB,2.8339E-05_JPRB,2.8609E-05_JPRB,2.7972E-05_JPRB,&
+&2.6510E-05_JPRB,2.3882E-05_JPRB,3.1083E-05_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&1.5794E-05_JPRB,2.2020E-05_JPRB,2.3670E-05_JPRB,2.4259E-05_JPRB,2.4056E-05_JPRB,2.3178E-05_JPRB,&
+&2.1635E-05_JPRB,1.9134E-05_JPRB,2.7582E-05_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&1.5579E-05_JPRB,2.1775E-05_JPRB,2.3546E-05_JPRB,2.4231E-05_JPRB,2.4092E-05_JPRB,2.3297E-05_JPRB,&
+&2.1816E-05_JPRB,1.9397E-05_JPRB,2.8313E-05_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&1.5328E-05_JPRB,2.1517E-05_JPRB,2.3429E-05_JPRB,2.4220E-05_JPRB,2.4175E-05_JPRB,2.3443E-05_JPRB,&
+&2.2039E-05_JPRB,1.9642E-05_JPRB,2.9205E-05_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&1.5023E-05_JPRB,2.1268E-05_JPRB,2.3319E-05_JPRB,2.4225E-05_JPRB,2.4291E-05_JPRB,2.3637E-05_JPRB,&
+&2.2285E-05_JPRB,1.9922E-05_JPRB,3.0174E-05_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&1.4668E-05_JPRB,2.1020E-05_JPRB,2.3208E-05_JPRB,2.4227E-05_JPRB,2.4407E-05_JPRB,2.3824E-05_JPRB,&
+&2.2528E-05_JPRB,2.0191E-05_JPRB,3.1226E-05_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&1.3453E-05_JPRB,1.8874E-05_JPRB,2.0200E-05_JPRB,2.0614E-05_JPRB,2.0394E-05_JPRB,1.9585E-05_JPRB,&
+&1.8218E-05_JPRB,1.5952E-05_JPRB,3.1081E-05_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&1.3262E-05_JPRB,1.8651E-05_JPRB,2.0085E-05_JPRB,2.0598E-05_JPRB,2.0424E-05_JPRB,1.9696E-05_JPRB,&
+&1.8380E-05_JPRB,1.6281E-05_JPRB,3.2467E-05_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&1.3038E-05_JPRB,1.8418E-05_JPRB,1.9972E-05_JPRB,2.0581E-05_JPRB,2.0487E-05_JPRB,1.9824E-05_JPRB,&
+&1.8572E-05_JPRB,1.6491E-05_JPRB,3.3986E-05_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&1.2776E-05_JPRB,1.8181E-05_JPRB,1.9859E-05_JPRB,2.0572E-05_JPRB,2.0585E-05_JPRB,1.9985E-05_JPRB,&
+&1.8794E-05_JPRB,1.6733E-05_JPRB,3.5607E-05_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&1.2471E-05_JPRB,1.7952E-05_JPRB,1.9753E-05_JPRB,2.0569E-05_JPRB,2.0679E-05_JPRB,2.0158E-05_JPRB,&
+&1.9021E-05_JPRB,1.6980E-05_JPRB,3.7340E-05_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&1.1374E-05_JPRB,1.6047E-05_JPRB,1.7111E-05_JPRB,1.7393E-05_JPRB,1.7165E-05_JPRB,1.6451E-05_JPRB,&
+&1.5255E-05_JPRB,1.3140E-05_JPRB,3.4787E-05_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&1.1208E-05_JPRB,1.5847E-05_JPRB,1.6997E-05_JPRB,1.7386E-05_JPRB,1.7209E-05_JPRB,1.6555E-05_JPRB,&
+&1.5407E-05_JPRB,1.3598E-05_JPRB,3.7476E-05_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&1.1010E-05_JPRB,1.5634E-05_JPRB,1.6890E-05_JPRB,1.7366E-05_JPRB,1.7258E-05_JPRB,1.6670E-05_JPRB,&
+&1.5570E-05_JPRB,1.3793E-05_JPRB,4.0426E-05_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&1.0782E-05_JPRB,1.5423E-05_JPRB,1.6783E-05_JPRB,1.7341E-05_JPRB,1.7331E-05_JPRB,1.6806E-05_JPRB,&
+&1.5764E-05_JPRB,1.4000E-05_JPRB,4.3679E-05_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&1.0524E-05_JPRB,1.5209E-05_JPRB,1.6680E-05_JPRB,1.7333E-05_JPRB,1.7403E-05_JPRB,1.6952E-05_JPRB,&
+&1.5975E-05_JPRB,1.4224E-05_JPRB,4.7059E-05_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&9.5209E-06_JPRB,1.3499E-05_JPRB,1.4375E-05_JPRB,1.4600E-05_JPRB,1.4393E-05_JPRB,1.3793E-05_JPRB,&
+&1.2781E-05_JPRB,1.1038E-05_JPRB,3.2865E-05_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&9.3637E-06_JPRB,1.3313E-05_JPRB,1.4267E-05_JPRB,1.4592E-05_JPRB,1.4440E-05_JPRB,1.3889E-05_JPRB,&
+&1.2920E-05_JPRB,1.1404E-05_JPRB,3.5445E-05_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&9.1833E-06_JPRB,1.3123E-05_JPRB,1.4166E-05_JPRB,1.4568E-05_JPRB,1.4482E-05_JPRB,1.3996E-05_JPRB,&
+&1.3070E-05_JPRB,1.1568E-05_JPRB,3.8218E-05_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&8.9761E-06_JPRB,1.2932E-05_JPRB,1.4072E-05_JPRB,1.4544E-05_JPRB,1.4541E-05_JPRB,1.4107E-05_JPRB,&
+&1.3243E-05_JPRB,1.1758E-05_JPRB,4.1117E-05_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&8.7519E-06_JPRB,1.2738E-05_JPRB,1.3974E-05_JPRB,1.4523E-05_JPRB,1.4594E-05_JPRB,1.4232E-05_JPRB,&
+&1.3426E-05_JPRB,1.1955E-05_JPRB,4.4210E-05_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&7.9463E-06_JPRB,1.1314E-05_JPRB,1.2032E-05_JPRB,1.2211E-05_JPRB,1.2025E-05_JPRB,1.1526E-05_JPRB,&
+&1.0676E-05_JPRB,9.2413E-06_JPRB,2.9106E-05_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&7.8042E-06_JPRB,1.1141E-05_JPRB,1.1931E-05_JPRB,1.2198E-05_JPRB,1.2069E-05_JPRB,1.1610E-05_JPRB,&
+&1.0799E-05_JPRB,9.5264E-06_JPRB,3.1349E-05_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&7.6428E-06_JPRB,1.0975E-05_JPRB,1.1841E-05_JPRB,1.2172E-05_JPRB,1.2102E-05_JPRB,1.1694E-05_JPRB,&
+&1.0928E-05_JPRB,9.6721E-06_JPRB,3.3866E-05_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&7.4623E-06_JPRB,1.0806E-05_JPRB,1.1756E-05_JPRB,1.2145E-05_JPRB,1.2145E-05_JPRB,1.1788E-05_JPRB,&
+&1.1076E-05_JPRB,9.8394E-06_JPRB,3.6457E-05_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&7.2711E-06_JPRB,1.0633E-05_JPRB,1.1656E-05_JPRB,1.2115E-05_JPRB,1.2181E-05_JPRB,1.1891E-05_JPRB,&
+&1.1228E-05_JPRB,1.0010E-05_JPRB,3.9156E-05_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&6.6184E-06_JPRB,9.4565E-06_JPRB,1.0043E-05_JPRB,1.0182E-05_JPRB,1.0021E-05_JPRB,9.6035E-06_JPRB,&
+&8.8893E-06_JPRB,7.7053E-06_JPRB,2.4435E-05_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&6.4936E-06_JPRB,9.3020E-06_JPRB,9.9506E-06_JPRB,1.0164E-05_JPRB,1.0053E-05_JPRB,9.6688E-06_JPRB,&
+&8.9931E-06_JPRB,7.9311E-06_JPRB,2.6318E-05_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&6.3517E-06_JPRB,9.1558E-06_JPRB,9.8692E-06_JPRB,1.0135E-05_JPRB,1.0076E-05_JPRB,9.7347E-06_JPRB,&
+&9.1027E-06_JPRB,8.0612E-06_JPRB,2.8419E-05_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&6.1987E-06_JPRB,9.0085E-06_JPRB,9.7873E-06_JPRB,1.0106E-05_JPRB,1.0104E-05_JPRB,9.8108E-06_JPRB,&
+&9.2254E-06_JPRB,8.2025E-06_JPRB,3.0596E-05_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&6.0390E-06_JPRB,8.8585E-06_JPRB,9.6966E-06_JPRB,1.0071E-05_JPRB,1.0127E-05_JPRB,9.8907E-06_JPRB,&
+&9.3441E-06_JPRB,8.3431E-06_JPRB,3.2866E-05_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&7.0753E-05_JPRB,8.7371E-05_JPRB,9.5172E-05_JPRB,9.9390E-05_JPRB,1.0056E-04_JPRB,9.9494E-05_JPRB,&
+&9.5837E-05_JPRB,8.9326E-05_JPRB,7.4323E-05_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&6.9795E-05_JPRB,8.7509E-05_JPRB,9.5691E-05_JPRB,9.9950E-05_JPRB,1.0125E-04_JPRB,1.0041E-04_JPRB,&
+&9.7011E-05_JPRB,9.0609E-05_JPRB,7.5641E-05_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&6.9131E-05_JPRB,8.7916E-05_JPRB,9.6468E-05_JPRB,1.0076E-04_JPRB,1.0214E-04_JPRB,1.0141E-04_JPRB,&
+&9.8247E-05_JPRB,9.2085E-05_JPRB,7.7357E-05_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&6.8482E-05_JPRB,8.8338E-05_JPRB,9.7157E-05_JPRB,1.0153E-04_JPRB,1.0307E-04_JPRB,1.0249E-04_JPRB,&
+&9.9530E-05_JPRB,9.3696E-05_JPRB,7.9379E-05_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&6.7880E-05_JPRB,8.8892E-05_JPRB,9.7857E-05_JPRB,1.0242E-04_JPRB,1.0411E-04_JPRB,1.0366E-04_JPRB,&
+&1.0077E-04_JPRB,9.5333E-05_JPRB,8.1423E-05_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&6.2276E-05_JPRB,7.8469E-05_JPRB,8.5472E-05_JPRB,8.8868E-05_JPRB,8.9888E-05_JPRB,8.8903E-05_JPRB,&
+&8.5409E-05_JPRB,7.9146E-05_JPRB,6.4309E-05_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&6.1522E-05_JPRB,7.8775E-05_JPRB,8.6027E-05_JPRB,8.9487E-05_JPRB,9.0686E-05_JPRB,8.9927E-05_JPRB,&
+&8.6540E-05_JPRB,8.0293E-05_JPRB,6.5447E-05_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&6.1045E-05_JPRB,7.9281E-05_JPRB,8.6793E-05_JPRB,9.0368E-05_JPRB,9.1669E-05_JPRB,9.0966E-05_JPRB,&
+&8.7713E-05_JPRB,8.1579E-05_JPRB,6.6858E-05_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&6.0651E-05_JPRB,7.9924E-05_JPRB,8.7586E-05_JPRB,9.1281E-05_JPRB,9.2660E-05_JPRB,9.2033E-05_JPRB,&
+&8.8973E-05_JPRB,8.3100E-05_JPRB,6.8552E-05_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&6.0196E-05_JPRB,8.0517E-05_JPRB,8.8362E-05_JPRB,9.2181E-05_JPRB,9.3655E-05_JPRB,9.3124E-05_JPRB,&
+&9.0231E-05_JPRB,8.4620E-05_JPRB,7.0321E-05_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&5.4594E-05_JPRB,7.0140E-05_JPRB,7.6291E-05_JPRB,7.9103E-05_JPRB,7.9908E-05_JPRB,7.8825E-05_JPRB,&
+&7.5557E-05_JPRB,6.9638E-05_JPRB,5.6129E-05_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&5.3987E-05_JPRB,7.0481E-05_JPRB,7.6809E-05_JPRB,7.9722E-05_JPRB,8.0799E-05_JPRB,7.9847E-05_JPRB,&
+&7.6636E-05_JPRB,7.0746E-05_JPRB,5.7083E-05_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&5.3598E-05_JPRB,7.0935E-05_JPRB,7.7478E-05_JPRB,8.0559E-05_JPRB,8.1742E-05_JPRB,8.0926E-05_JPRB,&
+&7.7718E-05_JPRB,7.1792E-05_JPRB,5.8231E-05_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&5.3419E-05_JPRB,7.1650E-05_JPRB,7.8342E-05_JPRB,8.1570E-05_JPRB,8.2791E-05_JPRB,8.1991E-05_JPRB,&
+&7.8849E-05_JPRB,7.3062E-05_JPRB,5.9633E-05_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&5.3129E-05_JPRB,7.2273E-05_JPRB,7.9178E-05_JPRB,8.2486E-05_JPRB,8.3759E-05_JPRB,8.3022E-05_JPRB,&
+&8.0014E-05_JPRB,7.4467E-05_JPRB,6.1152E-05_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&4.7696E-05_JPRB,6.2286E-05_JPRB,6.7749E-05_JPRB,7.0181E-05_JPRB,7.0624E-05_JPRB,6.9456E-05_JPRB,&
+&6.6381E-05_JPRB,6.0701E-05_JPRB,5.1576E-05_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&4.7208E-05_JPRB,6.2637E-05_JPRB,6.8240E-05_JPRB,7.0849E-05_JPRB,7.1530E-05_JPRB,7.0423E-05_JPRB,&
+&6.7425E-05_JPRB,6.1760E-05_JPRB,5.2349E-05_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&4.6920E-05_JPRB,6.3058E-05_JPRB,6.8836E-05_JPRB,7.1607E-05_JPRB,7.2463E-05_JPRB,7.1509E-05_JPRB,&
+&6.8509E-05_JPRB,6.2750E-05_JPRB,5.3224E-05_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&4.6776E-05_JPRB,6.3606E-05_JPRB,6.9601E-05_JPRB,7.2517E-05_JPRB,7.3446E-05_JPRB,7.2570E-05_JPRB,&
+&6.9521E-05_JPRB,6.3786E-05_JPRB,5.4286E-05_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&4.6682E-05_JPRB,6.4343E-05_JPRB,7.0568E-05_JPRB,7.3573E-05_JPRB,7.4545E-05_JPRB,7.3619E-05_JPRB,&
+&7.0604E-05_JPRB,6.5003E-05_JPRB,5.5521E-05_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&4.1581E-05_JPRB,5.4899E-05_JPRB,5.9799E-05_JPRB,6.1832E-05_JPRB,6.2136E-05_JPRB,6.0898E-05_JPRB,&
+&5.7964E-05_JPRB,5.2516E-05_JPRB,5.0115E-05_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&4.1165E-05_JPRB,5.5257E-05_JPRB,6.0251E-05_JPRB,6.2555E-05_JPRB,6.3007E-05_JPRB,6.1795E-05_JPRB,&
+&5.8864E-05_JPRB,5.3500E-05_JPRB,5.0524E-05_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&4.0905E-05_JPRB,5.5656E-05_JPRB,6.0839E-05_JPRB,6.3322E-05_JPRB,6.3891E-05_JPRB,6.2840E-05_JPRB,&
+&5.9887E-05_JPRB,5.4446E-05_JPRB,5.1001E-05_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&4.0790E-05_JPRB,5.6129E-05_JPRB,6.1526E-05_JPRB,6.4146E-05_JPRB,6.4873E-05_JPRB,6.3880E-05_JPRB,&
+&6.0934E-05_JPRB,5.5421E-05_JPRB,5.1576E-05_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&4.0741E-05_JPRB,5.6811E-05_JPRB,6.2419E-05_JPRB,6.5146E-05_JPRB,6.5947E-05_JPRB,6.4915E-05_JPRB,&
+&6.1966E-05_JPRB,5.6459E-05_JPRB,5.2345E-05_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&3.6128E-05_JPRB,4.8074E-05_JPRB,5.2303E-05_JPRB,5.4088E-05_JPRB,5.4305E-05_JPRB,5.3072E-05_JPRB,&
+&5.0232E-05_JPRB,4.5105E-05_JPRB,5.1680E-05_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&3.5776E-05_JPRB,4.8378E-05_JPRB,5.2790E-05_JPRB,5.4763E-05_JPRB,5.5146E-05_JPRB,5.3920E-05_JPRB,&
+&5.1041E-05_JPRB,4.6023E-05_JPRB,5.1519E-05_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&3.5527E-05_JPRB,4.8788E-05_JPRB,5.3350E-05_JPRB,5.5505E-05_JPRB,5.5990E-05_JPRB,5.4859E-05_JPRB,&
+&5.1952E-05_JPRB,4.6910E-05_JPRB,5.1451E-05_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&3.5393E-05_JPRB,4.9227E-05_JPRB,5.4029E-05_JPRB,5.6316E-05_JPRB,5.6902E-05_JPRB,5.5852E-05_JPRB,&
+&5.2950E-05_JPRB,4.7839E-05_JPRB,5.1463E-05_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&3.5279E-05_JPRB,4.9738E-05_JPRB,5.4773E-05_JPRB,5.7200E-05_JPRB,5.7864E-05_JPRB,5.6831E-05_JPRB,&
+&5.3962E-05_JPRB,4.8775E-05_JPRB,5.1664E-05_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&3.1175E-05_JPRB,4.1797E-05_JPRB,4.5353E-05_JPRB,4.6878E-05_JPRB,4.7045E-05_JPRB,4.5914E-05_JPRB,&
+&4.3260E-05_JPRB,3.8528E-05_JPRB,5.5034E-05_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&3.0861E-05_JPRB,4.2063E-05_JPRB,4.5864E-05_JPRB,4.7535E-05_JPRB,4.7827E-05_JPRB,4.6677E-05_JPRB,&
+&4.3974E-05_JPRB,3.9350E-05_JPRB,5.5182E-05_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&3.0632E-05_JPRB,4.2441E-05_JPRB,4.6427E-05_JPRB,4.8241E-05_JPRB,4.8620E-05_JPRB,4.7526E-05_JPRB,&
+&4.4793E-05_JPRB,4.0140E-05_JPRB,5.5398E-05_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&3.0475E-05_JPRB,4.2876E-05_JPRB,4.7039E-05_JPRB,4.9018E-05_JPRB,4.9446E-05_JPRB,4.8432E-05_JPRB,&
+&4.5701E-05_JPRB,4.0986E-05_JPRB,5.5585E-05_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&3.0340E-05_JPRB,4.3333E-05_JPRB,4.7753E-05_JPRB,4.9874E-05_JPRB,5.0366E-05_JPRB,4.9368E-05_JPRB,&
+&4.6641E-05_JPRB,4.1870E-05_JPRB,5.5728E-05_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&2.6882E-05_JPRB,3.6181E-05_JPRB,3.9159E-05_JPRB,4.0385E-05_JPRB,4.0472E-05_JPRB,3.9467E-05_JPRB,&
+&3.7068E-05_JPRB,3.2787E-05_JPRB,6.0191E-05_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&2.6577E-05_JPRB,3.6420E-05_JPRB,3.9630E-05_JPRB,4.1005E-05_JPRB,4.1190E-05_JPRB,4.0154E-05_JPRB,&
+&3.7711E-05_JPRB,3.3501E-05_JPRB,6.0976E-05_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&2.6344E-05_JPRB,3.6733E-05_JPRB,4.0183E-05_JPRB,4.1714E-05_JPRB,4.1930E-05_JPRB,4.0908E-05_JPRB,&
+&3.8425E-05_JPRB,3.4195E-05_JPRB,6.1747E-05_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&2.6154E-05_JPRB,3.7129E-05_JPRB,4.0772E-05_JPRB,4.2424E-05_JPRB,4.2698E-05_JPRB,4.1708E-05_JPRB,&
+&3.9208E-05_JPRB,3.4923E-05_JPRB,6.2436E-05_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&2.5969E-05_JPRB,3.7541E-05_JPRB,4.1396E-05_JPRB,4.3205E-05_JPRB,4.3544E-05_JPRB,4.2561E-05_JPRB,&
+&4.0066E-05_JPRB,3.5716E-05_JPRB,6.2996E-05_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&2.3030E-05_JPRB,3.1081E-05_JPRB,3.3574E-05_JPRB,3.4578E-05_JPRB,3.4594E-05_JPRB,3.3680E-05_JPRB,&
+&3.1564E-05_JPRB,2.7753E-05_JPRB,8.2972E-05_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&2.2745E-05_JPRB,3.1301E-05_JPRB,3.4001E-05_JPRB,3.5099E-05_JPRB,3.5210E-05_JPRB,3.4293E-05_JPRB,&
+&3.2147E-05_JPRB,2.8418E-05_JPRB,8.5573E-05_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&2.2504E-05_JPRB,3.1575E-05_JPRB,3.4507E-05_JPRB,3.5759E-05_JPRB,3.5892E-05_JPRB,3.4957E-05_JPRB,&
+&3.2777E-05_JPRB,2.9021E-05_JPRB,8.7692E-05_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&2.2288E-05_JPRB,3.1903E-05_JPRB,3.5055E-05_JPRB,3.6460E-05_JPRB,3.6616E-05_JPRB,3.5667E-05_JPRB,&
+&3.3440E-05_JPRB,2.9641E-05_JPRB,8.9596E-05_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&2.2076E-05_JPRB,3.2254E-05_JPRB,3.5612E-05_JPRB,3.7158E-05_JPRB,3.7379E-05_JPRB,3.6426E-05_JPRB,&
+&3.4185E-05_JPRB,3.0329E-05_JPRB,9.1172E-05_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&1.9573E-05_JPRB,2.6501E-05_JPRB,2.8604E-05_JPRB,2.9434E-05_JPRB,2.9415E-05_JPRB,2.8586E-05_JPRB,&
+&2.6756E-05_JPRB,2.3398E-05_JPRB,1.1831E-04_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&1.9311E-05_JPRB,2.6696E-05_JPRB,2.8987E-05_JPRB,2.9871E-05_JPRB,2.9930E-05_JPRB,2.9131E-05_JPRB,&
+&2.7291E-05_JPRB,2.4061E-05_JPRB,1.2413E-04_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&1.9064E-05_JPRB,2.6931E-05_JPRB,2.9433E-05_JPRB,3.0442E-05_JPRB,3.0524E-05_JPRB,2.9723E-05_JPRB,&
+&2.7830E-05_JPRB,2.4575E-05_JPRB,1.2968E-04_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&1.8838E-05_JPRB,2.7200E-05_JPRB,2.9911E-05_JPRB,3.1092E-05_JPRB,3.1189E-05_JPRB,3.0347E-05_JPRB,&
+&2.8402E-05_JPRB,2.5111E-05_JPRB,1.3500E-04_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&1.8619E-05_JPRB,2.7473E-05_JPRB,3.0391E-05_JPRB,3.1737E-05_JPRB,3.1883E-05_JPRB,3.1020E-05_JPRB,&
+&2.9042E-05_JPRB,2.5702E-05_JPRB,1.4050E-04_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&1.6456E-05_JPRB,2.2515E-05_JPRB,2.4353E-05_JPRB,2.5062E-05_JPRB,2.5054E-05_JPRB,2.4348E-05_JPRB,&
+&2.2780E-05_JPRB,1.9929E-05_JPRB,1.2447E-04_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&1.6210E-05_JPRB,2.2705E-05_JPRB,2.4709E-05_JPRB,2.5473E-05_JPRB,2.5515E-05_JPRB,2.4826E-05_JPRB,&
+&2.3259E-05_JPRB,2.0482E-05_JPRB,1.3150E-04_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&1.5971E-05_JPRB,2.2902E-05_JPRB,2.5095E-05_JPRB,2.5990E-05_JPRB,2.6068E-05_JPRB,2.5361E-05_JPRB,&
+&2.3741E-05_JPRB,2.0933E-05_JPRB,1.3833E-04_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&1.5752E-05_JPRB,2.3106E-05_JPRB,2.5493E-05_JPRB,2.6568E-05_JPRB,2.6674E-05_JPRB,2.5935E-05_JPRB,&
+&2.4259E-05_JPRB,2.1401E-05_JPRB,1.4470E-04_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&1.5528E-05_JPRB,2.3318E-05_JPRB,2.5901E-05_JPRB,2.7141E-05_JPRB,2.7302E-05_JPRB,2.6558E-05_JPRB,&
+&2.4843E-05_JPRB,2.1914E-05_JPRB,1.5074E-04_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&1.3780E-05_JPRB,1.9033E-05_JPRB,2.0619E-05_JPRB,2.1228E-05_JPRB,2.1226E-05_JPRB,2.0621E-05_JPRB,&
+&1.9294E-05_JPRB,1.6882E-05_JPRB,1.1649E-04_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&1.3548E-05_JPRB,1.9199E-05_JPRB,2.0913E-05_JPRB,2.1600E-05_JPRB,2.1645E-05_JPRB,2.1053E-05_JPRB,&
+&1.9719E-05_JPRB,1.7352E-05_JPRB,1.2368E-04_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&1.3324E-05_JPRB,1.9341E-05_JPRB,2.1240E-05_JPRB,2.2050E-05_JPRB,2.2132E-05_JPRB,2.1536E-05_JPRB,&
+&2.0156E-05_JPRB,1.7750E-05_JPRB,1.3017E-04_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&1.3111E-05_JPRB,1.9487E-05_JPRB,2.1558E-05_JPRB,2.2533E-05_JPRB,2.2665E-05_JPRB,2.2056E-05_JPRB,&
+&2.0628E-05_JPRB,1.8158E-05_JPRB,1.3659E-04_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&1.2895E-05_JPRB,1.9642E-05_JPRB,2.1889E-05_JPRB,2.3011E-05_JPRB,2.3210E-05_JPRB,2.2606E-05_JPRB,&
+&2.1150E-05_JPRB,1.8610E-05_JPRB,1.4251E-04_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&1.1500E-05_JPRB,1.6003E-05_JPRB,1.7357E-05_JPRB,1.7889E-05_JPRB,1.7884E-05_JPRB,1.7367E-05_JPRB,&
+&1.6254E-05_JPRB,1.4227E-05_JPRB,9.8757E-05_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&1.1286E-05_JPRB,1.6126E-05_JPRB,1.7594E-05_JPRB,1.8210E-05_JPRB,1.8252E-05_JPRB,1.7751E-05_JPRB,&
+&1.6632E-05_JPRB,1.4641E-05_JPRB,1.0488E-04_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&1.1079E-05_JPRB,1.6225E-05_JPRB,1.7843E-05_JPRB,1.8579E-05_JPRB,1.8672E-05_JPRB,1.8176E-05_JPRB,&
+&1.7024E-05_JPRB,1.4980E-05_JPRB,1.1036E-04_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&1.0876E-05_JPRB,1.6327E-05_JPRB,1.8099E-05_JPRB,1.8965E-05_JPRB,1.9122E-05_JPRB,1.8629E-05_JPRB,&
+&1.7445E-05_JPRB,1.5339E-05_JPRB,1.1580E-04_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&1.0678E-05_JPRB,1.6434E-05_JPRB,1.8360E-05_JPRB,1.9355E-05_JPRB,1.9573E-05_JPRB,1.9100E-05_JPRB,&
+&1.7895E-05_JPRB,1.5734E-05_JPRB,1.2071E-04_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&1.0452E-04_JPRB,1.3483E-04_JPRB,1.4507E-04_JPRB,1.5035E-04_JPRB,1.5233E-04_JPRB,1.5098E-04_JPRB,&
+&1.4623E-04_JPRB,1.3688E-04_JPRB,1.1596E-04_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&1.0431E-04_JPRB,1.3598E-04_JPRB,1.4693E-04_JPRB,1.5285E-04_JPRB,1.5505E-04_JPRB,1.5376E-04_JPRB,&
+&1.4899E-04_JPRB,1.4010E-04_JPRB,1.1898E-04_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&1.0452E-04_JPRB,1.3748E-04_JPRB,1.4911E-04_JPRB,1.5568E-04_JPRB,1.5820E-04_JPRB,1.5701E-04_JPRB,&
+&1.5204E-04_JPRB,1.4309E-04_JPRB,1.2195E-04_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&1.0446E-04_JPRB,1.3898E-04_JPRB,1.5142E-04_JPRB,1.5876E-04_JPRB,1.6160E-04_JPRB,1.6033E-04_JPRB,&
+&1.5519E-04_JPRB,1.4614E-04_JPRB,1.2504E-04_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&1.0490E-04_JPRB,1.4072E-04_JPRB,1.5426E-04_JPRB,1.6221E-04_JPRB,1.6521E-04_JPRB,1.6398E-04_JPRB,&
+&1.5900E-04_JPRB,1.4986E-04_JPRB,1.2878E-04_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&9.4204E-05_JPRB,1.2226E-04_JPRB,1.3172E-04_JPRB,1.3677E-04_JPRB,1.3845E-04_JPRB,1.3676E-04_JPRB,&
+&1.3184E-04_JPRB,1.2295E-04_JPRB,1.0190E-04_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&9.4074E-05_JPRB,1.2351E-04_JPRB,1.3361E-04_JPRB,1.3908E-04_JPRB,1.4094E-04_JPRB,1.3921E-04_JPRB,&
+&1.3441E-04_JPRB,1.2595E-04_JPRB,1.0466E-04_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&9.4344E-05_JPRB,1.2509E-04_JPRB,1.3579E-04_JPRB,1.4166E-04_JPRB,1.4376E-04_JPRB,1.4219E-04_JPRB,&
+&1.3731E-04_JPRB,1.2889E-04_JPRB,1.0736E-04_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&9.4551E-05_JPRB,1.2662E-04_JPRB,1.3810E-04_JPRB,1.4452E-04_JPRB,1.4685E-04_JPRB,1.4532E-04_JPRB,&
+&1.4026E-04_JPRB,1.3156E-04_JPRB,1.1005E-04_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&9.4911E-05_JPRB,1.2828E-04_JPRB,1.4068E-04_JPRB,1.4753E-04_JPRB,1.5017E-04_JPRB,1.4865E-04_JPRB,&
+&1.4353E-04_JPRB,1.3462E-04_JPRB,1.1332E-04_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&8.4477E-05_JPRB,1.0977E-04_JPRB,1.1875E-04_JPRB,1.2346E-04_JPRB,1.2481E-04_JPRB,1.2312E-04_JPRB,&
+&1.1833E-04_JPRB,1.0957E-04_JPRB,8.9535E-05_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&8.4379E-05_JPRB,1.1105E-04_JPRB,1.2059E-04_JPRB,1.2560E-04_JPRB,1.2700E-04_JPRB,1.2527E-04_JPRB,&
+&1.2063E-04_JPRB,1.1208E-04_JPRB,9.1925E-05_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&8.4459E-05_JPRB,1.1263E-04_JPRB,1.2255E-04_JPRB,1.2789E-04_JPRB,1.2949E-04_JPRB,1.2788E-04_JPRB,&
+&1.2327E-04_JPRB,1.1489E-04_JPRB,9.4307E-05_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&8.4957E-05_JPRB,1.1436E-04_JPRB,1.2477E-04_JPRB,1.3051E-04_JPRB,1.3225E-04_JPRB,1.3075E-04_JPRB,&
+&1.2605E-04_JPRB,1.1763E-04_JPRB,9.6664E-05_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&8.5267E-05_JPRB,1.1603E-04_JPRB,1.2711E-04_JPRB,1.3323E-04_JPRB,1.3522E-04_JPRB,1.3376E-04_JPRB,&
+&1.2892E-04_JPRB,1.2027E-04_JPRB,9.9423E-05_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&7.5106E-05_JPRB,9.8023E-05_JPRB,1.0634E-04_JPRB,1.1074E-04_JPRB,1.1207E-04_JPRB,1.1047E-04_JPRB,&
+&1.0566E-04_JPRB,9.7179E-05_JPRB,8.0970E-05_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&7.5068E-05_JPRB,9.9316E-05_JPRB,1.0818E-04_JPRB,1.1273E-04_JPRB,1.1400E-04_JPRB,1.1240E-04_JPRB,&
+&1.0763E-04_JPRB,9.9160E-05_JPRB,8.2847E-05_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&7.5176E-05_JPRB,1.0088E-04_JPRB,1.1012E-04_JPRB,1.1492E-04_JPRB,1.1630E-04_JPRB,1.1469E-04_JPRB,&
+&1.0990E-04_JPRB,1.0156E-04_JPRB,8.4919E-05_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&7.5441E-05_JPRB,1.0260E-04_JPRB,1.1218E-04_JPRB,1.1722E-04_JPRB,1.1877E-04_JPRB,1.1722E-04_JPRB,&
+&1.1247E-04_JPRB,1.0418E-04_JPRB,8.7047E-05_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&7.6234E-05_JPRB,1.0451E-04_JPRB,1.1445E-04_JPRB,1.1978E-04_JPRB,1.2144E-04_JPRB,1.1995E-04_JPRB,&
+&1.1523E-04_JPRB,1.0678E-04_JPRB,8.9379E-05_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&6.6160E-05_JPRB,8.7240E-05_JPRB,9.4827E-05_JPRB,9.8971E-05_JPRB,1.0023E-04_JPRB,9.8598E-05_JPRB,&
+&9.3977E-05_JPRB,8.6015E-05_JPRB,7.7683E-05_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&6.6183E-05_JPRB,8.8517E-05_JPRB,9.6624E-05_JPRB,1.0080E-04_JPRB,1.0196E-04_JPRB,1.0036E-04_JPRB,&
+&9.5737E-05_JPRB,8.7609E-05_JPRB,7.8892E-05_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&6.6375E-05_JPRB,9.0052E-05_JPRB,9.8476E-05_JPRB,1.0284E-04_JPRB,1.0408E-04_JPRB,1.0241E-04_JPRB,&
+&9.7689E-05_JPRB,8.9585E-05_JPRB,8.0494E-05_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&6.6706E-05_JPRB,9.1731E-05_JPRB,1.0049E-04_JPRB,1.0501E-04_JPRB,1.0639E-04_JPRB,1.0469E-04_JPRB,&
+&9.9852E-05_JPRB,9.1849E-05_JPRB,8.2317E-05_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&6.7530E-05_JPRB,9.3541E-05_JPRB,1.0261E-04_JPRB,1.0728E-04_JPRB,1.0881E-04_JPRB,1.0721E-04_JPRB,&
+&1.0236E-04_JPRB,9.4247E-05_JPRB,8.4311E-05_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&5.7820E-05_JPRB,7.7124E-05_JPRB,8.4195E-05_JPRB,8.7927E-05_JPRB,8.8972E-05_JPRB,8.7430E-05_JPRB,&
+&8.3132E-05_JPRB,7.5650E-05_JPRB,7.8327E-05_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&5.7858E-05_JPRB,7.8413E-05_JPRB,8.5775E-05_JPRB,8.9605E-05_JPRB,9.0590E-05_JPRB,8.9122E-05_JPRB,&
+&8.4773E-05_JPRB,7.7051E-05_JPRB,7.8482E-05_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&5.8124E-05_JPRB,7.9824E-05_JPRB,8.7576E-05_JPRB,9.1549E-05_JPRB,9.2483E-05_JPRB,9.0882E-05_JPRB,&
+&8.6480E-05_JPRB,7.8637E-05_JPRB,7.9105E-05_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&5.8563E-05_JPRB,8.1362E-05_JPRB,8.9405E-05_JPRB,9.3593E-05_JPRB,9.4634E-05_JPRB,9.2868E-05_JPRB,&
+&8.8337E-05_JPRB,8.0467E-05_JPRB,8.0117E-05_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&5.9163E-05_JPRB,8.2947E-05_JPRB,9.1328E-05_JPRB,9.5614E-05_JPRB,9.6868E-05_JPRB,9.5118E-05_JPRB,&
+&9.0461E-05_JPRB,8.2517E-05_JPRB,8.1395E-05_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&5.0089E-05_JPRB,6.7496E-05_JPRB,7.4227E-05_JPRB,7.7520E-05_JPRB,7.8410E-05_JPRB,7.6863E-05_JPRB,&
+&7.2879E-05_JPRB,6.5963E-05_JPRB,8.6270E-05_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&5.0200E-05_JPRB,6.8721E-05_JPRB,7.5605E-05_JPRB,7.9011E-05_JPRB,7.9876E-05_JPRB,7.8434E-05_JPRB,&
+&7.4469E-05_JPRB,6.7323E-05_JPRB,8.5543E-05_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&5.0465E-05_JPRB,7.0073E-05_JPRB,7.7198E-05_JPRB,8.0725E-05_JPRB,8.1573E-05_JPRB,8.0081E-05_JPRB,&
+&7.6049E-05_JPRB,6.8699E-05_JPRB,8.4940E-05_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&5.0935E-05_JPRB,7.1437E-05_JPRB,7.8942E-05_JPRB,8.2653E-05_JPRB,8.3546E-05_JPRB,8.1849E-05_JPRB,&
+&7.7644E-05_JPRB,7.0190E-05_JPRB,8.4597E-05_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&5.1558E-05_JPRB,7.2909E-05_JPRB,8.0657E-05_JPRB,8.4558E-05_JPRB,8.5533E-05_JPRB,8.3860E-05_JPRB,&
+&7.9445E-05_JPRB,7.1873E-05_JPRB,8.4633E-05_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&4.3241E-05_JPRB,5.8715E-05_JPRB,6.4907E-05_JPRB,6.7818E-05_JPRB,6.8520E-05_JPRB,6.7059E-05_JPRB,&
+&6.3436E-05_JPRB,5.7025E-05_JPRB,1.0556E-04_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&4.3396E-05_JPRB,5.9829E-05_JPRB,6.6154E-05_JPRB,6.9172E-05_JPRB,6.9903E-05_JPRB,6.8506E-05_JPRB,&
+&6.4888E-05_JPRB,5.8346E-05_JPRB,1.0621E-04_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&4.3671E-05_JPRB,6.1116E-05_JPRB,6.7537E-05_JPRB,7.0639E-05_JPRB,7.1418E-05_JPRB,7.0005E-05_JPRB,&
+&6.6322E-05_JPRB,5.9628E-05_JPRB,1.0623E-04_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&4.4098E-05_JPRB,6.2393E-05_JPRB,6.9085E-05_JPRB,7.2351E-05_JPRB,7.3148E-05_JPRB,7.1679E-05_JPRB,&
+&6.7759E-05_JPRB,6.0926E-05_JPRB,1.0598E-04_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&4.4692E-05_JPRB,6.3732E-05_JPRB,7.0698E-05_JPRB,7.4137E-05_JPRB,7.4984E-05_JPRB,7.3462E-05_JPRB,&
+&6.9302E-05_JPRB,6.2346E-05_JPRB,1.0567E-04_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&3.7132E-05_JPRB,5.0817E-05_JPRB,5.6256E-05_JPRB,5.8754E-05_JPRB,5.9255E-05_JPRB,5.8002E-05_JPRB,&
+&5.4741E-05_JPRB,4.8907E-05_JPRB,1.5932E-04_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&3.7275E-05_JPRB,5.1787E-05_JPRB,5.7392E-05_JPRB,6.0022E-05_JPRB,6.0595E-05_JPRB,5.9356E-05_JPRB,&
+&5.6080E-05_JPRB,5.0176E-05_JPRB,1.6074E-04_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&3.7562E-05_JPRB,5.2932E-05_JPRB,5.8629E-05_JPRB,6.1314E-05_JPRB,6.1975E-05_JPRB,6.0718E-05_JPRB,&
+&5.7380E-05_JPRB,5.1383E-05_JPRB,1.6208E-04_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&3.7959E-05_JPRB,5.4161E-05_JPRB,5.9989E-05_JPRB,6.2778E-05_JPRB,6.3464E-05_JPRB,6.2208E-05_JPRB,&
+&5.8730E-05_JPRB,5.2572E-05_JPRB,1.6367E-04_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&3.8474E-05_JPRB,5.5413E-05_JPRB,6.1478E-05_JPRB,6.4374E-05_JPRB,6.5107E-05_JPRB,6.3821E-05_JPRB,&
+&6.0122E-05_JPRB,5.3780E-05_JPRB,1.6576E-04_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&3.1661E-05_JPRB,4.3721E-05_JPRB,4.8375E-05_JPRB,5.0533E-05_JPRB,5.0884E-05_JPRB,4.9757E-05_JPRB,&
+&4.6933E-05_JPRB,4.1760E-05_JPRB,3.3288E-04_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&3.1799E-05_JPRB,4.4567E-05_JPRB,4.9444E-05_JPRB,5.1711E-05_JPRB,5.2132E-05_JPRB,5.1037E-05_JPRB,&
+&4.8202E-05_JPRB,4.2932E-05_JPRB,3.3259E-04_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&3.2076E-05_JPRB,4.5598E-05_JPRB,5.0572E-05_JPRB,5.2901E-05_JPRB,5.3401E-05_JPRB,5.2274E-05_JPRB,&
+&4.9410E-05_JPRB,4.4046E-05_JPRB,3.3116E-04_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&3.2432E-05_JPRB,4.6745E-05_JPRB,5.1822E-05_JPRB,5.4161E-05_JPRB,5.4721E-05_JPRB,5.3605E-05_JPRB,&
+&5.0657E-05_JPRB,4.5130E-05_JPRB,3.2908E-04_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&3.2849E-05_JPRB,4.7929E-05_JPRB,5.3191E-05_JPRB,5.5555E-05_JPRB,5.6151E-05_JPRB,5.5034E-05_JPRB,&
+&5.1913E-05_JPRB,4.6196E-05_JPRB,3.2646E-04_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&2.6856E-05_JPRB,3.7683E-05_JPRB,4.1693E-05_JPRB,4.3606E-05_JPRB,4.3883E-05_JPRB,4.2891E-05_JPRB,&
+&4.0459E-05_JPRB,3.5912E-05_JPRB,4.0077E-04_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&2.7039E-05_JPRB,3.8497E-05_JPRB,4.2726E-05_JPRB,4.4727E-05_JPRB,4.5037E-05_JPRB,4.4055E-05_JPRB,&
+&4.1621E-05_JPRB,3.6978E-05_JPRB,3.9949E-04_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&2.7307E-05_JPRB,3.9484E-05_JPRB,4.3818E-05_JPRB,4.5808E-05_JPRB,4.6194E-05_JPRB,4.5211E-05_JPRB,&
+&4.2730E-05_JPRB,3.7986E-05_JPRB,3.9696E-04_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&2.7612E-05_JPRB,4.0551E-05_JPRB,4.5021E-05_JPRB,4.6980E-05_JPRB,4.7421E-05_JPRB,4.6420E-05_JPRB,&
+&4.3860E-05_JPRB,3.8943E-05_JPRB,3.9400E-04_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&2.7944E-05_JPRB,4.1639E-05_JPRB,4.6278E-05_JPRB,4.8247E-05_JPRB,4.8726E-05_JPRB,4.7717E-05_JPRB,&
+&4.5010E-05_JPRB,3.9912E-05_JPRB,3.9021E-04_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&2.2674E-05_JPRB,3.2256E-05_JPRB,3.5706E-05_JPRB,3.7375E-05_JPRB,3.7620E-05_JPRB,3.6748E-05_JPRB,&
+&3.4672E-05_JPRB,3.0753E-05_JPRB,3.9801E-04_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&2.2856E-05_JPRB,3.3035E-05_JPRB,3.6681E-05_JPRB,3.8389E-05_JPRB,3.8658E-05_JPRB,3.7799E-05_JPRB,&
+&3.5709E-05_JPRB,3.1711E-05_JPRB,3.9549E-04_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&2.3070E-05_JPRB,3.3949E-05_JPRB,3.7724E-05_JPRB,3.9400E-05_JPRB,3.9718E-05_JPRB,3.8860E-05_JPRB,&
+&3.6712E-05_JPRB,3.2588E-05_JPRB,3.9241E-04_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&2.3301E-05_JPRB,3.4905E-05_JPRB,3.8836E-05_JPRB,4.0484E-05_JPRB,4.0838E-05_JPRB,3.9966E-05_JPRB,&
+&3.7706E-05_JPRB,3.3447E-05_JPRB,3.8870E-04_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&2.3543E-05_JPRB,3.5840E-05_JPRB,3.9948E-05_JPRB,4.1657E-05_JPRB,4.2028E-05_JPRB,4.1130E-05_JPRB,&
+&3.8770E-05_JPRB,3.4320E-05_JPRB,3.8474E-04_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&1.9048E-05_JPRB,2.7433E-05_JPRB,3.0355E-05_JPRB,3.1781E-05_JPRB,3.2020E-05_JPRB,3.1297E-05_JPRB,&
+&2.9545E-05_JPRB,2.6213E-05_JPRB,3.3572E-04_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&1.9186E-05_JPRB,2.8151E-05_JPRB,3.1249E-05_JPRB,3.2687E-05_JPRB,3.2953E-05_JPRB,3.2236E-05_JPRB,&
+&3.0464E-05_JPRB,2.7042E-05_JPRB,3.3299E-04_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&1.9336E-05_JPRB,2.8946E-05_JPRB,3.2213E-05_JPRB,3.3632E-05_JPRB,3.3925E-05_JPRB,3.3202E-05_JPRB,&
+&3.1346E-05_JPRB,2.7832E-05_JPRB,3.2995E-04_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&1.9500E-05_JPRB,2.9752E-05_JPRB,3.3189E-05_JPRB,3.4641E-05_JPRB,3.4936E-05_JPRB,3.4186E-05_JPRB,&
+&3.2242E-05_JPRB,2.8586E-05_JPRB,3.2636E-04_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&1.9647E-05_JPRB,3.0517E-05_JPRB,3.4157E-05_JPRB,3.5690E-05_JPRB,3.6009E-05_JPRB,3.5240E-05_JPRB,&
+&3.3224E-05_JPRB,2.9383E-05_JPRB,3.2302E-04_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&1.5710E-04_JPRB,2.0320E-04_JPRB,2.2809E-04_JPRB,2.4127E-04_JPRB,2.4664E-04_JPRB,2.4637E-04_JPRB,&
+&2.3954E-04_JPRB,2.2558E-04_JPRB,1.9226E-04_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&1.5763E-04_JPRB,2.0602E-04_JPRB,2.3252E-04_JPRB,2.4654E-04_JPRB,2.5266E-04_JPRB,2.5275E-04_JPRB,&
+&2.4636E-04_JPRB,2.3254E-04_JPRB,1.9836E-04_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&1.5885E-04_JPRB,2.0936E-04_JPRB,2.3726E-04_JPRB,2.5211E-04_JPRB,2.5917E-04_JPRB,2.5987E-04_JPRB,&
+&2.5423E-04_JPRB,2.4110E-04_JPRB,2.0597E-04_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&1.6010E-04_JPRB,2.1292E-04_JPRB,2.4195E-04_JPRB,2.5773E-04_JPRB,2.6599E-04_JPRB,2.6801E-04_JPRB,&
+&2.6343E-04_JPRB,2.5079E-04_JPRB,2.1448E-04_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&1.6183E-04_JPRB,2.1689E-04_JPRB,2.4710E-04_JPRB,2.6390E-04_JPRB,2.7349E-04_JPRB,2.7678E-04_JPRB,&
+&2.7286E-04_JPRB,2.6055E-04_JPRB,2.2334E-04_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&1.4264E-04_JPRB,1.8747E-04_JPRB,2.0916E-04_JPRB,2.2048E-04_JPRB,2.2542E-04_JPRB,2.2467E-04_JPRB,&
+&2.1833E-04_JPRB,2.0428E-04_JPRB,1.7002E-04_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&1.4357E-04_JPRB,1.9029E-04_JPRB,2.1342E-04_JPRB,2.2542E-04_JPRB,2.3082E-04_JPRB,2.3044E-04_JPRB,&
+&2.2413E-04_JPRB,2.1022E-04_JPRB,1.7510E-04_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&1.4512E-04_JPRB,1.9354E-04_JPRB,2.1804E-04_JPRB,2.3071E-04_JPRB,2.3662E-04_JPRB,2.3677E-04_JPRB,&
+&2.3090E-04_JPRB,2.1760E-04_JPRB,1.8164E-04_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&1.4675E-04_JPRB,1.9716E-04_JPRB,2.2262E-04_JPRB,2.3622E-04_JPRB,2.4303E-04_JPRB,2.4400E-04_JPRB,&
+&2.3876E-04_JPRB,2.2602E-04_JPRB,1.8905E-04_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&1.4825E-04_JPRB,2.0084E-04_JPRB,2.2744E-04_JPRB,2.4214E-04_JPRB,2.4980E-04_JPRB,2.5170E-04_JPRB,&
+&2.4697E-04_JPRB,2.3468E-04_JPRB,1.9668E-04_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&1.2913E-04_JPRB,1.7105E-04_JPRB,1.8962E-04_JPRB,1.9927E-04_JPRB,2.0344E-04_JPRB,2.0263E-04_JPRB,&
+&1.9648E-04_JPRB,1.8374E-04_JPRB,1.5154E-04_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&1.3034E-04_JPRB,1.7385E-04_JPRB,1.9352E-04_JPRB,2.0379E-04_JPRB,2.0816E-04_JPRB,2.0767E-04_JPRB,&
+&2.0141E-04_JPRB,1.8880E-04_JPRB,1.5543E-04_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&1.3189E-04_JPRB,1.7683E-04_JPRB,1.9785E-04_JPRB,2.0858E-04_JPRB,2.1306E-04_JPRB,2.1289E-04_JPRB,&
+&2.0705E-04_JPRB,1.9450E-04_JPRB,1.6042E-04_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&1.3375E-04_JPRB,1.8038E-04_JPRB,2.0233E-04_JPRB,2.1375E-04_JPRB,2.1890E-04_JPRB,2.1897E-04_JPRB,&
+&2.1362E-04_JPRB,2.0111E-04_JPRB,1.6638E-04_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&1.3531E-04_JPRB,1.8393E-04_JPRB,2.0677E-04_JPRB,2.1903E-04_JPRB,2.2516E-04_JPRB,2.2557E-04_JPRB,&
+&2.2073E-04_JPRB,2.0849E-04_JPRB,1.7278E-04_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&1.1675E-04_JPRB,1.5471E-04_JPRB,1.7086E-04_JPRB,1.7907E-04_JPRB,1.8234E-04_JPRB,1.8104E-04_JPRB,&
+&1.7606E-04_JPRB,1.6488E-04_JPRB,1.3686E-04_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&1.1811E-04_JPRB,1.5738E-04_JPRB,1.7430E-04_JPRB,1.8299E-04_JPRB,1.8662E-04_JPRB,1.8551E-04_JPRB,&
+&1.8028E-04_JPRB,1.6914E-04_JPRB,1.4021E-04_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&1.1971E-04_JPRB,1.6033E-04_JPRB,1.7826E-04_JPRB,1.8706E-04_JPRB,1.9073E-04_JPRB,1.9003E-04_JPRB,&
+&1.8491E-04_JPRB,1.7381E-04_JPRB,1.4440E-04_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&1.2145E-04_JPRB,1.6360E-04_JPRB,1.8232E-04_JPRB,1.9160E-04_JPRB,1.9546E-04_JPRB,1.9520E-04_JPRB,&
+&1.9032E-04_JPRB,1.7913E-04_JPRB,1.4919E-04_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&1.2345E-04_JPRB,1.6734E-04_JPRB,1.8679E-04_JPRB,1.9667E-04_JPRB,2.0102E-04_JPRB,2.0119E-04_JPRB,&
+&1.9631E-04_JPRB,1.8511E-04_JPRB,1.5453E-04_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&1.0534E-04_JPRB,1.3892E-04_JPRB,1.5318E-04_JPRB,1.6013E-04_JPRB,1.6249E-04_JPRB,1.6140E-04_JPRB,&
+&1.5677E-04_JPRB,1.4673E-04_JPRB,1.2734E-04_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&1.0682E-04_JPRB,1.4149E-04_JPRB,1.5615E-04_JPRB,1.6351E-04_JPRB,1.6643E-04_JPRB,1.6536E-04_JPRB,&
+&1.6060E-04_JPRB,1.5077E-04_JPRB,1.3032E-04_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&1.0832E-04_JPRB,1.4437E-04_JPRB,1.5968E-04_JPRB,1.6719E-04_JPRB,1.7007E-04_JPRB,1.6925E-04_JPRB,&
+&1.6475E-04_JPRB,1.5487E-04_JPRB,1.3383E-04_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&1.0998E-04_JPRB,1.4759E-04_JPRB,1.6348E-04_JPRB,1.7115E-04_JPRB,1.7411E-04_JPRB,1.7355E-04_JPRB,&
+&1.6947E-04_JPRB,1.5945E-04_JPRB,1.3787E-04_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&1.1196E-04_JPRB,1.5129E-04_JPRB,1.6770E-04_JPRB,1.7586E-04_JPRB,1.7902E-04_JPRB,1.7859E-04_JPRB,&
+&1.7456E-04_JPRB,1.6452E-04_JPRB,1.4233E-04_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&9.4514E-05_JPRB,1.2412E-04_JPRB,1.3657E-04_JPRB,1.4247E-04_JPRB,1.4441E-04_JPRB,1.4315E-04_JPRB,&
+&1.3838E-04_JPRB,1.2929E-04_JPRB,1.2327E-04_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&9.5941E-05_JPRB,1.2645E-04_JPRB,1.3931E-04_JPRB,1.4558E-04_JPRB,1.4789E-04_JPRB,1.4670E-04_JPRB,&
+&1.4200E-04_JPRB,1.3303E-04_JPRB,1.2601E-04_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&9.7365E-05_JPRB,1.2920E-04_JPRB,1.4235E-04_JPRB,1.4876E-04_JPRB,1.5129E-04_JPRB,1.5035E-04_JPRB,&
+&1.4574E-04_JPRB,1.3687E-04_JPRB,1.2924E-04_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&9.8894E-05_JPRB,1.3238E-04_JPRB,1.4586E-04_JPRB,1.5224E-04_JPRB,1.5484E-04_JPRB,1.5423E-04_JPRB,&
+&1.4989E-04_JPRB,1.4089E-04_JPRB,1.3292E-04_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&1.0059E-04_JPRB,1.3577E-04_JPRB,1.4967E-04_JPRB,1.5644E-04_JPRB,1.5902E-04_JPRB,1.5844E-04_JPRB,&
+&1.5428E-04_JPRB,1.4522E-04_JPRB,1.3684E-04_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&8.3817E-05_JPRB,1.1024E-04_JPRB,1.2069E-04_JPRB,1.2606E-04_JPRB,1.2762E-04_JPRB,1.2601E-04_JPRB,&
+&1.2142E-04_JPRB,1.1275E-04_JPRB,1.2580E-04_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&8.5049E-05_JPRB,1.1240E-04_JPRB,1.2345E-04_JPRB,1.2908E-04_JPRB,1.3088E-04_JPRB,1.2946E-04_JPRB,&
+&1.2489E-04_JPRB,1.1643E-04_JPRB,1.2769E-04_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&8.6443E-05_JPRB,1.1489E-04_JPRB,1.2631E-04_JPRB,1.3210E-04_JPRB,1.3408E-04_JPRB,1.3284E-04_JPRB,&
+&1.2822E-04_JPRB,1.1996E-04_JPRB,1.3009E-04_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&8.7868E-05_JPRB,1.1787E-04_JPRB,1.2952E-04_JPRB,1.3521E-04_JPRB,1.3734E-04_JPRB,1.3637E-04_JPRB,&
+&1.3189E-04_JPRB,1.2366E-04_JPRB,1.3307E-04_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&8.9520E-05_JPRB,1.2113E-04_JPRB,1.3311E-04_JPRB,1.3890E-04_JPRB,1.4111E-04_JPRB,1.4019E-04_JPRB,&
+&1.3574E-04_JPRB,1.2746E-04_JPRB,1.3629E-04_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&7.3739E-05_JPRB,9.7315E-05_JPRB,1.0630E-04_JPRB,1.1091E-04_JPRB,1.1210E-04_JPRB,1.1034E-04_JPRB,&
+&1.0576E-04_JPRB,9.7435E-05_JPRB,1.5219E-04_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&7.4739E-05_JPRB,9.9339E-05_JPRB,1.0888E-04_JPRB,1.1385E-04_JPRB,1.1515E-04_JPRB,1.1361E-04_JPRB,&
+&1.0914E-04_JPRB,1.0091E-04_JPRB,1.5078E-04_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&7.5979E-05_JPRB,1.0158E-04_JPRB,1.1168E-04_JPRB,1.1676E-04_JPRB,1.1825E-04_JPRB,1.1684E-04_JPRB,&
+&1.1240E-04_JPRB,1.0417E-04_JPRB,1.5044E-04_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&7.7389E-05_JPRB,1.0425E-04_JPRB,1.1460E-04_JPRB,1.1977E-04_JPRB,1.2131E-04_JPRB,1.2000E-04_JPRB,&
+&1.1564E-04_JPRB,1.0754E-04_JPRB,1.5083E-04_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&7.8988E-05_JPRB,1.0719E-04_JPRB,1.1787E-04_JPRB,1.2308E-04_JPRB,1.2465E-04_JPRB,1.2345E-04_JPRB,&
+&1.1918E-04_JPRB,1.1099E-04_JPRB,1.5186E-04_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&6.4327E-05_JPRB,8.5194E-05_JPRB,9.3124E-05_JPRB,9.6906E-05_JPRB,9.7902E-05_JPRB,9.6087E-05_JPRB,&
+&9.1486E-05_JPRB,8.3530E-05_JPRB,3.0559E-04_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&6.5169E-05_JPRB,8.7114E-05_JPRB,9.5498E-05_JPRB,9.9699E-05_JPRB,1.0078E-04_JPRB,9.9075E-05_JPRB,&
+&9.4585E-05_JPRB,8.6649E-05_JPRB,3.0376E-04_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&6.6228E-05_JPRB,8.9174E-05_JPRB,9.8080E-05_JPRB,1.0257E-04_JPRB,1.0373E-04_JPRB,1.0212E-04_JPRB,&
+&9.7761E-05_JPRB,8.9715E-05_JPRB,3.0205E-04_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&6.7560E-05_JPRB,9.1493E-05_JPRB,1.0085E-04_JPRB,1.0546E-04_JPRB,1.0670E-04_JPRB,1.0511E-04_JPRB,&
+&1.0078E-04_JPRB,9.2773E-05_JPRB,2.9925E-04_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&6.9090E-05_JPRB,9.4108E-05_JPRB,1.0377E-04_JPRB,1.0852E-04_JPRB,1.0981E-04_JPRB,1.0822E-04_JPRB,&
+&1.0396E-04_JPRB,9.5948E-05_JPRB,2.9560E-04_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&5.5732E-05_JPRB,7.4195E-05_JPRB,8.1092E-05_JPRB,8.4263E-05_JPRB,8.5004E-05_JPRB,8.3260E-05_JPRB,&
+&7.8896E-05_JPRB,7.1326E-05_JPRB,7.3141E-04_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&5.6464E-05_JPRB,7.5996E-05_JPRB,8.3306E-05_JPRB,8.6877E-05_JPRB,8.7776E-05_JPRB,8.6058E-05_JPRB,&
+&8.1636E-05_JPRB,7.4082E-05_JPRB,7.1679E-04_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&5.7403E-05_JPRB,7.7891E-05_JPRB,8.5666E-05_JPRB,8.9585E-05_JPRB,9.0592E-05_JPRB,8.8875E-05_JPRB,&
+&8.4523E-05_JPRB,7.6897E-05_JPRB,7.0421E-04_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&5.8620E-05_JPRB,7.9933E-05_JPRB,8.8213E-05_JPRB,9.2386E-05_JPRB,9.3433E-05_JPRB,9.1667E-05_JPRB,&
+&8.7388E-05_JPRB,7.9742E-05_JPRB,6.9385E-04_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&6.0067E-05_JPRB,8.2256E-05_JPRB,9.0893E-05_JPRB,9.5273E-05_JPRB,9.6366E-05_JPRB,9.4596E-05_JPRB,&
+&9.0298E-05_JPRB,8.2632E-05_JPRB,6.8465E-04_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&4.8186E-05_JPRB,6.4983E-05_JPRB,7.1108E-05_JPRB,7.3858E-05_JPRB,7.4401E-05_JPRB,7.2817E-05_JPRB,&
+&6.8716E-05_JPRB,6.1721E-05_JPRB,9.3137E-04_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&4.8927E-05_JPRB,6.6681E-05_JPRB,7.3165E-05_JPRB,7.6242E-05_JPRB,7.7034E-05_JPRB,7.5453E-05_JPRB,&
+&7.1255E-05_JPRB,6.4142E-05_JPRB,9.0283E-04_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&4.9906E-05_JPRB,6.8442E-05_JPRB,7.5379E-05_JPRB,7.8833E-05_JPRB,7.9706E-05_JPRB,7.8052E-05_JPRB,&
+&7.3833E-05_JPRB,6.6698E-05_JPRB,8.7896E-04_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&5.1140E-05_JPRB,7.0403E-05_JPRB,7.7738E-05_JPRB,8.1490E-05_JPRB,8.2392E-05_JPRB,8.0715E-05_JPRB,&
+&7.6507E-05_JPRB,6.9333E-05_JPRB,8.5877E-04_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&5.2547E-05_JPRB,7.2595E-05_JPRB,8.0310E-05_JPRB,8.4272E-05_JPRB,8.5190E-05_JPRB,8.3479E-05_JPRB,&
+&7.9204E-05_JPRB,7.1956E-05_JPRB,8.4129E-04_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&4.1357E-05_JPRB,5.6591E-05_JPRB,6.2004E-05_JPRB,6.4335E-05_JPRB,6.4718E-05_JPRB,6.3255E-05_JPRB,&
+&5.9536E-05_JPRB,5.3170E-05_JPRB,9.4628E-04_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&4.2117E-05_JPRB,5.8142E-05_JPRB,6.3912E-05_JPRB,6.6563E-05_JPRB,6.7175E-05_JPRB,6.5721E-05_JPRB,&
+&6.1864E-05_JPRB,5.5283E-05_JPRB,9.1448E-04_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&4.3123E-05_JPRB,5.9831E-05_JPRB,6.5955E-05_JPRB,6.8956E-05_JPRB,6.9677E-05_JPRB,6.8113E-05_JPRB,&
+&6.4202E-05_JPRB,5.7597E-05_JPRB,8.8738E-04_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&4.4308E-05_JPRB,6.1719E-05_JPRB,6.8165E-05_JPRB,7.1448E-05_JPRB,7.2209E-05_JPRB,7.0617E-05_JPRB,&
+&6.6651E-05_JPRB,5.9974E-05_JPRB,8.6370E-04_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&4.5586E-05_JPRB,6.3825E-05_JPRB,7.0651E-05_JPRB,7.4074E-05_JPRB,7.4824E-05_JPRB,7.3199E-05_JPRB,&
+&6.9129E-05_JPRB,6.2368E-05_JPRB,8.4394E-04_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&3.5199E-05_JPRB,4.8904E-05_JPRB,5.3685E-05_JPRB,5.5708E-05_JPRB,5.5958E-05_JPRB,5.4602E-05_JPRB,&
+&5.1289E-05_JPRB,4.5544E-05_JPRB,7.9844E-04_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&3.5968E-05_JPRB,5.0359E-05_JPRB,5.5441E-05_JPRB,5.7776E-05_JPRB,5.8210E-05_JPRB,5.6833E-05_JPRB,&
+&5.3406E-05_JPRB,4.7437E-05_JPRB,7.7225E-04_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&3.6919E-05_JPRB,5.1978E-05_JPRB,5.7339E-05_JPRB,5.9942E-05_JPRB,6.0487E-05_JPRB,5.9061E-05_JPRB,&
+&5.5548E-05_JPRB,4.9491E-05_JPRB,7.4964E-04_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&3.7983E-05_JPRB,5.3790E-05_JPRB,5.9444E-05_JPRB,6.2256E-05_JPRB,6.2844E-05_JPRB,6.1377E-05_JPRB,&
+&5.7755E-05_JPRB,5.1611E-05_JPRB,7.3016E-04_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&3.9071E-05_JPRB,5.5803E-05_JPRB,6.1798E-05_JPRB,6.4723E-05_JPRB,6.5302E-05_JPRB,6.3732E-05_JPRB,&
+&5.9993E-05_JPRB,5.3748E-05_JPRB,7.1404E-04_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&2.5660E-04_JPRB,3.1807E-04_JPRB,3.6094E-04_JPRB,3.8920E-04_JPRB,4.0736E-04_JPRB,4.1545E-04_JPRB,&
+&4.1386E-04_JPRB,4.0633E-04_JPRB,3.6193E-04_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&2.5865E-04_JPRB,3.2319E-04_JPRB,3.6764E-04_JPRB,3.9762E-04_JPRB,4.1800E-04_JPRB,4.2858E-04_JPRB,&
+&4.2847E-04_JPRB,4.2235E-04_JPRB,3.7675E-04_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&2.6137E-04_JPRB,3.2915E-04_JPRB,3.7535E-04_JPRB,4.0750E-04_JPRB,4.2970E-04_JPRB,4.4147E-04_JPRB,&
+&4.4293E-04_JPRB,4.3843E-04_JPRB,3.9233E-04_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&2.6360E-04_JPRB,3.3488E-04_JPRB,3.8404E-04_JPRB,4.1788E-04_JPRB,4.4114E-04_JPRB,4.5427E-04_JPRB,&
+&4.5738E-04_JPRB,4.5544E-04_JPRB,4.1003E-04_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&2.6660E-04_JPRB,3.4173E-04_JPRB,3.9350E-04_JPRB,4.2919E-04_JPRB,4.5400E-04_JPRB,4.6894E-04_JPRB,&
+&4.7415E-04_JPRB,4.7523E-04_JPRB,4.3058E-04_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&2.3631E-04_JPRB,2.9631E-04_JPRB,3.3525E-04_JPRB,3.5919E-04_JPRB,3.7267E-04_JPRB,3.7835E-04_JPRB,&
+&3.7529E-04_JPRB,3.6555E-04_JPRB,3.2111E-04_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&2.3829E-04_JPRB,3.0128E-04_JPRB,3.4159E-04_JPRB,3.6758E-04_JPRB,3.8290E-04_JPRB,3.9019E-04_JPRB,&
+&3.8891E-04_JPRB,3.7964E-04_JPRB,3.3378E-04_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&2.4092E-04_JPRB,3.0698E-04_JPRB,3.4893E-04_JPRB,3.7703E-04_JPRB,3.9429E-04_JPRB,4.0240E-04_JPRB,&
+&4.0189E-04_JPRB,3.9363E-04_JPRB,3.4730E-04_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&2.4353E-04_JPRB,3.1280E-04_JPRB,3.5757E-04_JPRB,3.8697E-04_JPRB,4.0550E-04_JPRB,4.1447E-04_JPRB,&
+&4.1496E-04_JPRB,4.0890E-04_JPRB,3.6318E-04_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&2.4646E-04_JPRB,3.1930E-04_JPRB,3.6666E-04_JPRB,3.9774E-04_JPRB,4.1741E-04_JPRB,4.2801E-04_JPRB,&
+&4.2988E-04_JPRB,4.2637E-04_JPRB,3.8102E-04_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&2.1702E-04_JPRB,2.7392E-04_JPRB,3.0713E-04_JPRB,3.2661E-04_JPRB,3.3701E-04_JPRB,3.4012E-04_JPRB,&
+&3.3574E-04_JPRB,3.2367E-04_JPRB,2.7953E-04_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&2.1882E-04_JPRB,2.7874E-04_JPRB,3.1368E-04_JPRB,3.3483E-04_JPRB,3.4655E-04_JPRB,3.5089E-04_JPRB,&
+&3.4836E-04_JPRB,3.3662E-04_JPRB,2.9075E-04_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&2.2093E-04_JPRB,2.8379E-04_JPRB,3.2031E-04_JPRB,3.4355E-04_JPRB,3.5690E-04_JPRB,3.6196E-04_JPRB,&
+&3.6029E-04_JPRB,3.4924E-04_JPRB,3.0255E-04_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&2.2391E-04_JPRB,2.8964E-04_JPRB,3.2857E-04_JPRB,3.5322E-04_JPRB,3.6741E-04_JPRB,3.7364E-04_JPRB,&
+&3.7227E-04_JPRB,3.6287E-04_JPRB,3.1610E-04_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&2.2678E-04_JPRB,2.9569E-04_JPRB,3.3712E-04_JPRB,3.6314E-04_JPRB,3.7839E-04_JPRB,3.8589E-04_JPRB,&
+&3.8538E-04_JPRB,3.7808E-04_JPRB,3.3103E-04_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&1.9893E-04_JPRB,2.5184E-04_JPRB,2.7904E-04_JPRB,2.9424E-04_JPRB,3.0215E-04_JPRB,3.0353E-04_JPRB,&
+&2.9750E-04_JPRB,2.8367E-04_JPRB,2.4378E-04_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&2.0039E-04_JPRB,2.5636E-04_JPRB,2.8551E-04_JPRB,3.0218E-04_JPRB,3.1138E-04_JPRB,3.1364E-04_JPRB,&
+&3.0933E-04_JPRB,2.9596E-04_JPRB,2.5360E-04_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&2.0244E-04_JPRB,2.6111E-04_JPRB,2.9172E-04_JPRB,3.1073E-04_JPRB,3.2138E-04_JPRB,3.2408E-04_JPRB,&
+&3.2030E-04_JPRB,3.0766E-04_JPRB,2.6380E-04_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&2.0501E-04_JPRB,2.6640E-04_JPRB,2.9889E-04_JPRB,3.1956E-04_JPRB,3.3116E-04_JPRB,3.3435E-04_JPRB,&
+&3.3120E-04_JPRB,3.1983E-04_JPRB,2.7551E-04_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&2.0836E-04_JPRB,2.7264E-04_JPRB,3.0721E-04_JPRB,3.2917E-04_JPRB,3.4139E-04_JPRB,3.4585E-04_JPRB,&
+&3.4342E-04_JPRB,3.3321E-04_JPRB,2.8833E-04_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&1.8177E-04_JPRB,2.3005E-04_JPRB,2.5216E-04_JPRB,2.6400E-04_JPRB,2.6980E-04_JPRB,2.6977E-04_JPRB,&
+&2.6270E-04_JPRB,2.4807E-04_JPRB,2.1566E-04_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&1.8288E-04_JPRB,2.3456E-04_JPRB,2.5850E-04_JPRB,2.7178E-04_JPRB,2.7838E-04_JPRB,2.7918E-04_JPRB,&
+&2.7326E-04_JPRB,2.5893E-04_JPRB,2.2464E-04_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&1.8495E-04_JPRB,2.3899E-04_JPRB,2.6446E-04_JPRB,2.7972E-04_JPRB,2.8778E-04_JPRB,2.8887E-04_JPRB,&
+&2.8352E-04_JPRB,2.6965E-04_JPRB,2.3371E-04_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&1.8757E-04_JPRB,2.4389E-04_JPRB,2.7104E-04_JPRB,2.8807E-04_JPRB,2.9709E-04_JPRB,2.9855E-04_JPRB,&
+&2.9335E-04_JPRB,2.8065E-04_JPRB,2.4386E-04_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&1.9089E-04_JPRB,2.4987E-04_JPRB,2.7871E-04_JPRB,2.9704E-04_JPRB,3.0660E-04_JPRB,3.0888E-04_JPRB,&
+&3.0414E-04_JPRB,2.9240E-04_JPRB,2.5489E-04_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&1.6548E-04_JPRB,2.0845E-04_JPRB,2.2667E-04_JPRB,2.3621E-04_JPRB,2.3998E-04_JPRB,2.3852E-04_JPRB,&
+&2.3181E-04_JPRB,2.1713E-04_JPRB,1.9774E-04_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&1.6647E-04_JPRB,2.1295E-04_JPRB,2.3285E-04_JPRB,2.4356E-04_JPRB,2.4798E-04_JPRB,2.4711E-04_JPRB,&
+&2.4086E-04_JPRB,2.2656E-04_JPRB,2.0619E-04_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&1.6832E-04_JPRB,2.1735E-04_JPRB,2.3897E-04_JPRB,2.5101E-04_JPRB,2.5638E-04_JPRB,2.5608E-04_JPRB,&
+&2.5005E-04_JPRB,2.3612E-04_JPRB,2.1472E-04_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&1.7090E-04_JPRB,2.2192E-04_JPRB,2.4527E-04_JPRB,2.5863E-04_JPRB,2.6479E-04_JPRB,2.6498E-04_JPRB,&
+&2.5909E-04_JPRB,2.4595E-04_JPRB,2.2382E-04_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&1.7392E-04_JPRB,2.2728E-04_JPRB,2.5204E-04_JPRB,2.6653E-04_JPRB,2.7329E-04_JPRB,2.7417E-04_JPRB,&
+&2.6871E-04_JPRB,2.5622E-04_JPRB,2.3379E-04_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&1.4974E-04_JPRB,1.8746E-04_JPRB,2.0303E-04_JPRB,2.1075E-04_JPRB,2.1306E-04_JPRB,2.1110E-04_JPRB,&
+&2.0431E-04_JPRB,1.8998E-04_JPRB,1.9358E-04_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&1.5089E-04_JPRB,1.9183E-04_JPRB,2.0895E-04_JPRB,2.1750E-04_JPRB,2.2044E-04_JPRB,2.1873E-04_JPRB,&
+&2.1228E-04_JPRB,1.9808E-04_JPRB,2.0012E-04_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&1.5257E-04_JPRB,1.9611E-04_JPRB,2.1478E-04_JPRB,2.2448E-04_JPRB,2.2805E-04_JPRB,2.2660E-04_JPRB,&
+&2.2066E-04_JPRB,2.0672E-04_JPRB,2.0775E-04_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&1.5493E-04_JPRB,2.0056E-04_JPRB,2.2076E-04_JPRB,2.3152E-04_JPRB,2.3569E-04_JPRB,2.3461E-04_JPRB,&
+&2.2897E-04_JPRB,2.1559E-04_JPRB,2.1605E-04_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&1.5774E-04_JPRB,2.0562E-04_JPRB,2.2715E-04_JPRB,2.3878E-04_JPRB,2.4330E-04_JPRB,2.4290E-04_JPRB,&
+&2.3768E-04_JPRB,2.2474E-04_JPRB,2.2537E-04_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&1.3469E-04_JPRB,1.6768E-04_JPRB,1.8125E-04_JPRB,1.8765E-04_JPRB,1.8912E-04_JPRB,1.8647E-04_JPRB,&
+&1.7925E-04_JPRB,1.6551E-04_JPRB,2.2549E-04_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&1.3601E-04_JPRB,1.7179E-04_JPRB,1.8676E-04_JPRB,1.9388E-04_JPRB,1.9601E-04_JPRB,1.9365E-04_JPRB,&
+&1.8651E-04_JPRB,1.7268E-04_JPRB,2.2728E-04_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&1.3770E-04_JPRB,1.7606E-04_JPRB,1.9214E-04_JPRB,2.0024E-04_JPRB,2.0294E-04_JPRB,2.0077E-04_JPRB,&
+&1.9394E-04_JPRB,1.8025E-04_JPRB,2.3037E-04_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&1.3980E-04_JPRB,1.8052E-04_JPRB,1.9782E-04_JPRB,2.0667E-04_JPRB,2.0985E-04_JPRB,2.0804E-04_JPRB,&
+&2.0170E-04_JPRB,1.8820E-04_JPRB,2.3502E-04_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&1.4234E-04_JPRB,1.8549E-04_JPRB,2.0378E-04_JPRB,2.1326E-04_JPRB,2.1685E-04_JPRB,2.1554E-04_JPRB,&
+&2.0965E-04_JPRB,1.9644E-04_JPRB,2.4136E-04_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&1.1992E-04_JPRB,1.4933E-04_JPRB,1.6105E-04_JPRB,1.6671E-04_JPRB,1.6730E-04_JPRB,1.6393E-04_JPRB,&
+&1.5666E-04_JPRB,1.4342E-04_JPRB,4.8653E-04_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&1.2149E-04_JPRB,1.5326E-04_JPRB,1.6624E-04_JPRB,1.7247E-04_JPRB,1.7376E-04_JPRB,1.7057E-04_JPRB,&
+&1.6339E-04_JPRB,1.5015E-04_JPRB,4.7263E-04_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&1.2314E-04_JPRB,1.5738E-04_JPRB,1.7131E-04_JPRB,1.7818E-04_JPRB,1.8004E-04_JPRB,1.7724E-04_JPRB,&
+&1.6998E-04_JPRB,1.5688E-04_JPRB,4.6122E-04_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&1.2514E-04_JPRB,1.6177E-04_JPRB,1.7650E-04_JPRB,1.8400E-04_JPRB,1.8641E-04_JPRB,1.8403E-04_JPRB,&
+&1.7684E-04_JPRB,1.6385E-04_JPRB,4.5149E-04_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&1.2748E-04_JPRB,1.6660E-04_JPRB,1.8214E-04_JPRB,1.9005E-04_JPRB,1.9284E-04_JPRB,1.9097E-04_JPRB,&
+&1.8405E-04_JPRB,1.7111E-04_JPRB,4.4363E-04_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&1.0584E-04_JPRB,1.3236E-04_JPRB,1.4288E-04_JPRB,1.4761E-04_JPRB,1.4780E-04_JPRB,1.4423E-04_JPRB,&
+&1.3667E-04_JPRB,1.2400E-04_JPRB,1.5407E-03_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&1.0748E-04_JPRB,1.3619E-04_JPRB,1.4771E-04_JPRB,1.5305E-04_JPRB,1.5361E-04_JPRB,1.5017E-04_JPRB,&
+&1.4291E-04_JPRB,1.3024E-04_JPRB,1.4707E-03_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&1.0916E-04_JPRB,1.4012E-04_JPRB,1.5258E-04_JPRB,1.5840E-04_JPRB,1.5929E-04_JPRB,1.5625E-04_JPRB,&
+&1.4913E-04_JPRB,1.3639E-04_JPRB,1.4078E-03_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&1.1108E-04_JPRB,1.4432E-04_JPRB,1.5744E-04_JPRB,1.6378E-04_JPRB,1.6514E-04_JPRB,1.6251E-04_JPRB,&
+&1.5541E-04_JPRB,1.4254E-04_JPRB,1.3501E-03_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&1.1328E-04_JPRB,1.4893E-04_JPRB,1.6265E-04_JPRB,1.6934E-04_JPRB,1.7119E-04_JPRB,1.6880E-04_JPRB,&
+&1.6190E-04_JPRB,1.4900E-04_JPRB,1.2982E-03_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&9.3489E-05_JPRB,1.1825E-04_JPRB,1.2805E-04_JPRB,1.3224E-04_JPRB,1.3232E-04_JPRB,1.2873E-04_JPRB,&
+&1.2131E-04_JPRB,1.0918E-04_JPRB,2.0757E-03_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&9.5099E-05_JPRB,1.2195E-04_JPRB,1.3268E-04_JPRB,1.3732E-04_JPRB,1.3748E-04_JPRB,1.3414E-04_JPRB,&
+&1.2695E-04_JPRB,1.1489E-04_JPRB,1.9797E-03_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&9.6804E-05_JPRB,1.2575E-04_JPRB,1.3731E-04_JPRB,1.4230E-04_JPRB,1.4278E-04_JPRB,1.3973E-04_JPRB,&
+&1.3283E-04_JPRB,1.2047E-04_JPRB,1.8901E-03_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&9.8710E-05_JPRB,1.2986E-04_JPRB,1.4205E-04_JPRB,1.4740E-04_JPRB,1.4826E-04_JPRB,1.4548E-04_JPRB,&
+&1.3868E-04_JPRB,1.2603E-04_JPRB,1.8079E-03_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&1.0095E-04_JPRB,1.3435E-04_JPRB,1.4704E-04_JPRB,1.5275E-04_JPRB,1.5397E-04_JPRB,1.5141E-04_JPRB,&
+&1.4471E-04_JPRB,1.3186E-04_JPRB,1.7340E-03_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&8.2093E-05_JPRB,1.0522E-04_JPRB,1.1410E-04_JPRB,1.1782E-04_JPRB,1.1761E-04_JPRB,1.1416E-04_JPRB,&
+&1.0724E-04_JPRB,9.5735E-05_JPRB,2.1586E-03_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&8.3669E-05_JPRB,1.0871E-04_JPRB,1.1846E-04_JPRB,1.2251E-04_JPRB,1.2240E-04_JPRB,1.1908E-04_JPRB,&
+&1.1234E-04_JPRB,1.0091E-04_JPRB,2.0547E-03_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&8.5301E-05_JPRB,1.1235E-04_JPRB,1.2282E-04_JPRB,1.2721E-04_JPRB,1.2738E-04_JPRB,1.2431E-04_JPRB,&
+&1.1770E-04_JPRB,1.0601E-04_JPRB,1.9599E-03_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&8.7242E-05_JPRB,1.1626E-04_JPRB,1.2740E-04_JPRB,1.3207E-04_JPRB,1.3252E-04_JPRB,1.2966E-04_JPRB,&
+&1.2318E-04_JPRB,1.1105E-04_JPRB,1.8736E-03_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&8.9569E-05_JPRB,1.2041E-04_JPRB,1.3214E-04_JPRB,1.3715E-04_JPRB,1.3802E-04_JPRB,1.3533E-04_JPRB,&
+&1.2876E-04_JPRB,1.1627E-04_JPRB,1.7949E-03_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&7.1569E-05_JPRB,9.3060E-05_JPRB,1.0102E-04_JPRB,1.0423E-04_JPRB,1.0388E-04_JPRB,1.0052E-04_JPRB,&
+&9.4174E-05_JPRB,8.3531E-05_JPRB,1.8351E-03_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&7.3011E-05_JPRB,9.6373E-05_JPRB,1.0503E-04_JPRB,1.0856E-04_JPRB,1.0834E-04_JPRB,1.0508E-04_JPRB,&
+&9.8836E-05_JPRB,8.8176E-05_JPRB,1.7459E-03_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&7.4663E-05_JPRB,9.9794E-05_JPRB,1.0913E-04_JPRB,1.1298E-04_JPRB,1.1299E-04_JPRB,1.0991E-04_JPRB,&
+&1.0372E-04_JPRB,9.2787E-05_JPRB,1.6660E-03_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&7.6630E-05_JPRB,1.0344E-04_JPRB,1.1345E-04_JPRB,1.1756E-04_JPRB,1.1782E-04_JPRB,1.1495E-04_JPRB,&
+&1.0877E-04_JPRB,9.7412E-05_JPRB,1.5932E-03_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&7.9007E-05_JPRB,1.0733E-04_JPRB,1.1787E-04_JPRB,1.2235E-04_JPRB,1.2303E-04_JPRB,1.2033E-04_JPRB,&
+&1.1390E-04_JPRB,1.0206E-04_JPRB,1.5265E-03_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&4.6305E-04_JPRB,5.4556E-04_JPRB,6.0200E-04_JPRB,6.4863E-04_JPRB,6.8107E-04_JPRB,7.0420E-04_JPRB,&
+&7.2199E-04_JPRB,7.3085E-04_JPRB,6.7646E-04_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&4.6301E-04_JPRB,5.5700E-04_JPRB,6.1674E-04_JPRB,6.6918E-04_JPRB,7.0683E-04_JPRB,7.3382E-04_JPRB,&
+&7.5720E-04_JPRB,7.6870E-04_JPRB,7.1353E-04_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&4.6454E-04_JPRB,5.7050E-04_JPRB,6.3324E-04_JPRB,6.9016E-04_JPRB,7.3249E-04_JPRB,7.6632E-04_JPRB,&
+&7.9567E-04_JPRB,8.0915E-04_JPRB,7.5224E-04_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&4.6651E-04_JPRB,5.8405E-04_JPRB,6.4895E-04_JPRB,7.1069E-04_JPRB,7.5837E-04_JPRB,7.9949E-04_JPRB,&
+&8.3506E-04_JPRB,8.5087E-04_JPRB,7.9164E-04_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&4.7034E-04_JPRB,5.9930E-04_JPRB,6.6683E-04_JPRB,7.3355E-04_JPRB,7.8609E-04_JPRB,8.3312E-04_JPRB,&
+&8.7517E-04_JPRB,8.9333E-04_JPRB,8.3199E-04_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&4.3178E-04_JPRB,5.0967E-04_JPRB,5.7208E-04_JPRB,6.1793E-04_JPRB,6.4678E-04_JPRB,6.6138E-04_JPRB,&
+&6.6815E-04_JPRB,6.6568E-04_JPRB,5.9744E-04_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&4.3227E-04_JPRB,5.2067E-04_JPRB,5.8785E-04_JPRB,6.3795E-04_JPRB,6.7133E-04_JPRB,6.9007E-04_JPRB,&
+&7.0100E-04_JPRB,7.0211E-04_JPRB,6.3355E-04_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&4.3414E-04_JPRB,5.3362E-04_JPRB,6.0473E-04_JPRB,6.5841E-04_JPRB,6.9567E-04_JPRB,7.2097E-04_JPRB,&
+&7.3754E-04_JPRB,7.4189E-04_JPRB,6.7066E-04_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&4.3688E-04_JPRB,5.4677E-04_JPRB,6.2106E-04_JPRB,6.7900E-04_JPRB,7.2053E-04_JPRB,7.5255E-04_JPRB,&
+&7.7596E-04_JPRB,7.8317E-04_JPRB,7.0771E-04_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&4.4026E-04_JPRB,5.6009E-04_JPRB,6.3723E-04_JPRB,6.9996E-04_JPRB,7.4621E-04_JPRB,7.8382E-04_JPRB,&
+&8.1411E-04_JPRB,8.2479E-04_JPRB,7.4663E-04_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&4.0042E-04_JPRB,4.7588E-04_JPRB,5.3737E-04_JPRB,5.7848E-04_JPRB,6.0266E-04_JPRB,6.1092E-04_JPRB,&
+&6.0756E-04_JPRB,5.9389E-04_JPRB,5.1726E-04_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&4.0139E-04_JPRB,4.8636E-04_JPRB,5.5256E-04_JPRB,5.9842E-04_JPRB,6.2668E-04_JPRB,6.3795E-04_JPRB,&
+&6.3723E-04_JPRB,6.2673E-04_JPRB,5.4890E-04_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&4.0264E-04_JPRB,4.9818E-04_JPRB,5.6878E-04_JPRB,6.1775E-04_JPRB,6.4985E-04_JPRB,6.6625E-04_JPRB,&
+&6.6960E-04_JPRB,6.6297E-04_JPRB,5.8203E-04_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&4.0594E-04_JPRB,5.1098E-04_JPRB,5.8559E-04_JPRB,6.3812E-04_JPRB,6.7417E-04_JPRB,6.9560E-04_JPRB,&
+&7.0436E-04_JPRB,7.0139E-04_JPRB,6.1550E-04_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&4.0942E-04_JPRB,5.2279E-04_JPRB,6.0106E-04_JPRB,6.5810E-04_JPRB,6.9804E-04_JPRB,7.2431E-04_JPRB,&
+&7.3907E-04_JPRB,7.3980E-04_JPRB,6.5087E-04_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&3.6954E-04_JPRB,4.4390E-04_JPRB,4.9967E-04_JPRB,5.3490E-04_JPRB,5.5341E-04_JPRB,5.5728E-04_JPRB,&
+&5.4744E-04_JPRB,5.2585E-04_JPRB,4.5076E-04_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&3.7099E-04_JPRB,4.5452E-04_JPRB,5.1452E-04_JPRB,5.5410E-04_JPRB,5.7617E-04_JPRB,5.8227E-04_JPRB,&
+&5.7394E-04_JPRB,5.5446E-04_JPRB,4.7750E-04_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&3.7261E-04_JPRB,4.6594E-04_JPRB,5.3039E-04_JPRB,5.7264E-04_JPRB,5.9783E-04_JPRB,6.0838E-04_JPRB,&
+&6.0270E-04_JPRB,5.8596E-04_JPRB,5.0606E-04_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&3.7542E-04_JPRB,4.7733E-04_JPRB,5.4631E-04_JPRB,5.9142E-04_JPRB,6.2021E-04_JPRB,6.3532E-04_JPRB,&
+&6.3302E-04_JPRB,6.1929E-04_JPRB,5.3494E-04_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&3.7994E-04_JPRB,4.8922E-04_JPRB,5.6238E-04_JPRB,6.1134E-04_JPRB,6.4405E-04_JPRB,6.6206E-04_JPRB,&
+&6.6409E-04_JPRB,6.5333E-04_JPRB,5.6564E-04_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&3.4061E-04_JPRB,4.1228E-04_JPRB,4.6040E-04_JPRB,4.8986E-04_JPRB,5.0320E-04_JPRB,5.0314E-04_JPRB,&
+&4.9155E-04_JPRB,4.6563E-04_JPRB,3.9708E-04_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&3.4265E-04_JPRB,4.2238E-04_JPRB,4.7497E-04_JPRB,5.0787E-04_JPRB,5.2436E-04_JPRB,5.2638E-04_JPRB,&
+&5.1586E-04_JPRB,4.9074E-04_JPRB,4.1980E-04_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&3.4457E-04_JPRB,4.3316E-04_JPRB,4.9022E-04_JPRB,5.2547E-04_JPRB,5.4476E-04_JPRB,5.5018E-04_JPRB,&
+&5.4131E-04_JPRB,5.1767E-04_JPRB,4.4445E-04_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&3.4732E-04_JPRB,4.4421E-04_JPRB,5.0540E-04_JPRB,5.4314E-04_JPRB,5.6518E-04_JPRB,5.7439E-04_JPRB,&
+&5.6831E-04_JPRB,5.4593E-04_JPRB,4.6962E-04_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&3.5182E-04_JPRB,4.5580E-04_JPRB,5.2093E-04_JPRB,5.6187E-04_JPRB,5.8688E-04_JPRB,5.9917E-04_JPRB,&
+&5.9551E-04_JPRB,5.7498E-04_JPRB,4.9655E-04_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&3.1397E-04_JPRB,3.8099E-04_JPRB,4.2085E-04_JPRB,4.4392E-04_JPRB,4.5344E-04_JPRB,4.5128E-04_JPRB,&
+&4.3795E-04_JPRB,4.1046E-04_JPRB,3.5811E-04_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&3.1655E-04_JPRB,3.9053E-04_JPRB,4.3489E-04_JPRB,4.6069E-04_JPRB,4.7295E-04_JPRB,4.7284E-04_JPRB,&
+&4.6063E-04_JPRB,4.3290E-04_JPRB,3.7673E-04_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&3.1898E-04_JPRB,4.0060E-04_JPRB,4.4896E-04_JPRB,4.7714E-04_JPRB,4.9199E-04_JPRB,4.9458E-04_JPRB,&
+&4.8353E-04_JPRB,4.5629E-04_JPRB,3.9672E-04_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&3.2158E-04_JPRB,4.1129E-04_JPRB,4.6291E-04_JPRB,4.9376E-04_JPRB,5.1129E-04_JPRB,5.1624E-04_JPRB,&
+&5.0719E-04_JPRB,4.8049E-04_JPRB,4.1801E-04_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&3.2502E-04_JPRB,4.2183E-04_JPRB,4.7677E-04_JPRB,5.1073E-04_JPRB,5.3095E-04_JPRB,5.3777E-04_JPRB,&
+&5.3107E-04_JPRB,5.0560E-04_JPRB,4.4095E-04_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&2.8858E-04_JPRB,3.5072E-04_JPRB,3.8244E-04_JPRB,3.9969E-04_JPRB,4.0628E-04_JPRB,4.0266E-04_JPRB,&
+&3.8820E-04_JPRB,3.6095E-04_JPRB,3.4917E-04_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&2.9154E-04_JPRB,3.5995E-04_JPRB,3.9513E-04_JPRB,4.1562E-04_JPRB,4.2428E-04_JPRB,4.2225E-04_JPRB,&
+&4.0848E-04_JPRB,3.8100E-04_JPRB,3.6556E-04_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&2.9427E-04_JPRB,3.6955E-04_JPRB,4.0818E-04_JPRB,4.3070E-04_JPRB,4.4206E-04_JPRB,4.4209E-04_JPRB,&
+&4.2902E-04_JPRB,4.0153E-04_JPRB,3.8273E-04_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&2.9693E-04_JPRB,3.7937E-04_JPRB,4.2130E-04_JPRB,4.4602E-04_JPRB,4.5975E-04_JPRB,4.6189E-04_JPRB,&
+&4.5029E-04_JPRB,4.2249E-04_JPRB,4.0122E-04_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&3.0032E-04_JPRB,3.8893E-04_JPRB,4.3431E-04_JPRB,4.6164E-04_JPRB,4.7805E-04_JPRB,4.8151E-04_JPRB,&
+&4.7139E-04_JPRB,4.4430E-04_JPRB,4.2113E-04_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&2.6433E-04_JPRB,3.2164E-04_JPRB,3.4678E-04_JPRB,3.5895E-04_JPRB,3.6313E-04_JPRB,3.5828E-04_JPRB,&
+&3.4379E-04_JPRB,3.1784E-04_JPRB,3.8325E-04_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&2.6764E-04_JPRB,3.3079E-04_JPRB,3.5818E-04_JPRB,3.7326E-04_JPRB,3.7969E-04_JPRB,3.7570E-04_JPRB,&
+&3.6173E-04_JPRB,3.3531E-04_JPRB,3.9627E-04_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&2.7049E-04_JPRB,3.3967E-04_JPRB,3.6984E-04_JPRB,3.8764E-04_JPRB,3.9567E-04_JPRB,3.9347E-04_JPRB,&
+&3.7992E-04_JPRB,3.5345E-04_JPRB,4.1157E-04_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&2.7332E-04_JPRB,3.4840E-04_JPRB,3.8188E-04_JPRB,4.0186E-04_JPRB,4.1166E-04_JPRB,4.1115E-04_JPRB,&
+&3.9867E-04_JPRB,3.7201E-04_JPRB,4.2882E-04_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&2.7670E-04_JPRB,3.5697E-04_JPRB,3.9392E-04_JPRB,4.1633E-04_JPRB,4.2814E-04_JPRB,4.2877E-04_JPRB,&
+&4.1760E-04_JPRB,3.9091E-04_JPRB,4.4711E-04_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&2.4137E-04_JPRB,2.9350E-04_JPRB,3.1375E-04_JPRB,3.2233E-04_JPRB,3.2400E-04_JPRB,3.1859E-04_JPRB,&
+&3.0441E-04_JPRB,2.7946E-04_JPRB,7.4112E-04_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&2.4480E-04_JPRB,3.0210E-04_JPRB,3.2420E-04_JPRB,3.3517E-04_JPRB,3.3871E-04_JPRB,3.3414E-04_JPRB,&
+&3.2021E-04_JPRB,2.9498E-04_JPRB,7.2877E-04_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&2.4785E-04_JPRB,3.1022E-04_JPRB,3.3497E-04_JPRB,3.4812E-04_JPRB,3.5338E-04_JPRB,3.4970E-04_JPRB,&
+&3.3648E-04_JPRB,3.1095E-04_JPRB,7.2183E-04_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&2.5068E-04_JPRB,3.1830E-04_JPRB,3.4602E-04_JPRB,3.6150E-04_JPRB,3.6764E-04_JPRB,3.6525E-04_JPRB,&
+&3.5301E-04_JPRB,3.2741E-04_JPRB,7.2069E-04_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&2.5395E-04_JPRB,3.2629E-04_JPRB,3.5706E-04_JPRB,3.7496E-04_JPRB,3.8230E-04_JPRB,3.8101E-04_JPRB,&
+&3.6964E-04_JPRB,3.4426E-04_JPRB,7.2393E-04_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&2.1916E-04_JPRB,2.6728E-04_JPRB,2.8357E-04_JPRB,2.9003E-04_JPRB,2.9019E-04_JPRB,2.8394E-04_JPRB,&
+&2.6987E-04_JPRB,2.4557E-04_JPRB,2.2951E-03_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&2.2269E-04_JPRB,2.7508E-04_JPRB,2.9328E-04_JPRB,3.0170E-04_JPRB,3.0330E-04_JPRB,2.9810E-04_JPRB,&
+&2.8439E-04_JPRB,2.5963E-04_JPRB,2.1937E-03_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&2.2592E-04_JPRB,2.8247E-04_JPRB,3.0321E-04_JPRB,3.1354E-04_JPRB,3.1659E-04_JPRB,3.1208E-04_JPRB,&
+&2.9880E-04_JPRB,2.7415E-04_JPRB,2.1089E-03_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&2.2891E-04_JPRB,2.8992E-04_JPRB,3.1332E-04_JPRB,3.2558E-04_JPRB,3.2968E-04_JPRB,3.2576E-04_JPRB,&
+&3.1353E-04_JPRB,2.8898E-04_JPRB,2.0353E-03_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&2.3224E-04_JPRB,2.9740E-04_JPRB,3.2354E-04_JPRB,3.3796E-04_JPRB,3.4280E-04_JPRB,3.3971E-04_JPRB,&
+&3.2827E-04_JPRB,3.0414E-04_JPRB,1.9694E-03_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&1.9917E-04_JPRB,2.4536E-04_JPRB,2.5993E-04_JPRB,2.6557E-04_JPRB,2.6515E-04_JPRB,2.5837E-04_JPRB,&
+&2.4462E-04_JPRB,2.2066E-04_JPRB,3.1341E-03_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&2.0264E-04_JPRB,2.5224E-04_JPRB,2.6895E-04_JPRB,2.7632E-04_JPRB,2.7737E-04_JPRB,2.7142E-04_JPRB,&
+&2.5767E-04_JPRB,2.3346E-04_JPRB,2.9845E-03_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&2.0597E-04_JPRB,2.5913E-04_JPRB,2.7799E-04_JPRB,2.8723E-04_JPRB,2.8930E-04_JPRB,2.8411E-04_JPRB,&
+&2.7068E-04_JPRB,2.4666E-04_JPRB,2.8531E-03_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&2.0923E-04_JPRB,2.6606E-04_JPRB,2.8717E-04_JPRB,2.9817E-04_JPRB,3.0130E-04_JPRB,2.9662E-04_JPRB,&
+&2.8382E-04_JPRB,2.6011E-04_JPRB,2.7344E-03_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&2.1283E-04_JPRB,2.7325E-04_JPRB,2.9677E-04_JPRB,3.0938E-04_JPRB,3.1326E-04_JPRB,3.0919E-04_JPRB,&
+&2.9712E-04_JPRB,2.7384E-04_JPRB,2.6277E-03_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&1.7936E-04_JPRB,2.2328E-04_JPRB,2.3724E-04_JPRB,2.4243E-04_JPRB,2.4172E-04_JPRB,2.3478E-04_JPRB,&
+&2.2093E-04_JPRB,1.9737E-04_JPRB,3.2835E-03_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&1.8285E-04_JPRB,2.2978E-04_JPRB,2.4543E-04_JPRB,2.5241E-04_JPRB,2.5294E-04_JPRB,2.4651E-04_JPRB,&
+&2.3266E-04_JPRB,2.0912E-04_JPRB,3.1216E-03_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&1.8634E-04_JPRB,2.3640E-04_JPRB,2.5382E-04_JPRB,2.6232E-04_JPRB,2.6378E-04_JPRB,2.5795E-04_JPRB,&
+&2.4444E-04_JPRB,2.2095E-04_JPRB,2.9752E-03_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&1.8978E-04_JPRB,2.4319E-04_JPRB,2.6232E-04_JPRB,2.7232E-04_JPRB,2.7477E-04_JPRB,2.6960E-04_JPRB,&
+&2.5603E-04_JPRB,2.3306E-04_JPRB,2.8433E-03_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&1.9368E-04_JPRB,2.5043E-04_JPRB,2.7137E-04_JPRB,2.8261E-04_JPRB,2.8588E-04_JPRB,2.8109E-04_JPRB,&
+&2.6784E-04_JPRB,2.4548E-04_JPRB,2.7264E-03_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&1.6014E-04_JPRB,2.0144E-04_JPRB,2.1482E-04_JPRB,2.1993E-04_JPRB,2.1918E-04_JPRB,2.1245E-04_JPRB,&
+&1.9850E-04_JPRB,1.7572E-04_JPRB,2.8014E-03_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&1.6372E-04_JPRB,2.0772E-04_JPRB,2.2263E-04_JPRB,2.2918E-04_JPRB,2.2929E-04_JPRB,2.2295E-04_JPRB,&
+&2.0909E-04_JPRB,1.8627E-04_JPRB,2.6597E-03_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&1.6711E-04_JPRB,2.1423E-04_JPRB,2.3053E-04_JPRB,2.3833E-04_JPRB,2.3922E-04_JPRB,2.3334E-04_JPRB,&
+&2.1968E-04_JPRB,1.9695E-04_JPRB,2.5327E-03_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&1.7075E-04_JPRB,2.2099E-04_JPRB,2.3863E-04_JPRB,2.4766E-04_JPRB,2.4941E-04_JPRB,2.4382E-04_JPRB,&
+&2.3022E-04_JPRB,2.0776E-04_JPRB,2.4204E-03_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&1.7481E-04_JPRB,2.2827E-04_JPRB,2.4735E-04_JPRB,2.5731E-04_JPRB,2.5972E-04_JPRB,2.5434E-04_JPRB,&
+&2.4101E-04_JPRB,2.1916E-04_JPRB,2.3207E-03_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&9.5608E-04_JPRB,1.1137E-03_JPRB,1.1928E-03_JPRB,1.2676E-03_JPRB,1.3453E-03_JPRB,1.4201E-03_JPRB,&
+&1.4858E-03_JPRB,1.4985E-03_JPRB,1.3296E-03_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&9.5994E-04_JPRB,1.1580E-03_JPRB,1.2586E-03_JPRB,1.3444E-03_JPRB,1.4304E-03_JPRB,1.5065E-03_JPRB,&
+&1.5698E-03_JPRB,1.5822E-03_JPRB,1.4127E-03_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&9.6434E-04_JPRB,1.2039E-03_JPRB,1.3295E-03_JPRB,1.4283E-03_JPRB,1.5240E-03_JPRB,1.6021E-03_JPRB,&
+&1.6610E-03_JPRB,1.6690E-03_JPRB,1.4964E-03_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&9.6594E-04_JPRB,1.2459E-03_JPRB,1.3992E-03_JPRB,1.5151E-03_JPRB,1.6213E-03_JPRB,1.7037E-03_JPRB,&
+&1.7586E-03_JPRB,1.7581E-03_JPRB,1.5822E-03_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&9.7112E-04_JPRB,1.2922E-03_JPRB,1.4733E-03_JPRB,1.6088E-03_JPRB,1.7251E-03_JPRB,1.8137E-03_JPRB,&
+&1.8637E-03_JPRB,1.8544E-03_JPRB,1.6729E-03_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&9.2093E-04_JPRB,1.0546E-03_JPRB,1.1184E-03_JPRB,1.1877E-03_JPRB,1.2677E-03_JPRB,1.3451E-03_JPRB,&
+&1.4085E-03_JPRB,1.4282E-03_JPRB,1.2587E-03_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&9.2391E-04_JPRB,1.0934E-03_JPRB,1.1705E-03_JPRB,1.2485E-03_JPRB,1.3345E-03_JPRB,1.4205E-03_JPRB,&
+&1.4904E-03_JPRB,1.5108E-03_JPRB,1.3375E-03_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&9.2775E-04_JPRB,1.1328E-03_JPRB,1.2272E-03_JPRB,1.3169E-03_JPRB,1.4101E-03_JPRB,1.5006E-03_JPRB,&
+&1.5743E-03_JPRB,1.5928E-03_JPRB,1.4152E-03_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&9.3033E-04_JPRB,1.1705E-03_JPRB,1.2842E-03_JPRB,1.3889E-03_JPRB,1.4909E-03_JPRB,1.5847E-03_JPRB,&
+&1.6559E-03_JPRB,1.6749E-03_JPRB,1.4953E-03_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&9.3350E-04_JPRB,1.2078E-03_JPRB,1.3426E-03_JPRB,1.4642E-03_JPRB,1.5755E-03_JPRB,1.6738E-03_JPRB,&
+&1.7416E-03_JPRB,1.7599E-03_JPRB,1.5794E-03_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&8.8225E-04_JPRB,9.9524E-04_JPRB,1.0564E-03_JPRB,1.1307E-03_JPRB,1.2003E-03_JPRB,1.2591E-03_JPRB,&
+&1.3108E-03_JPRB,1.3309E-03_JPRB,1.1549E-03_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&8.8537E-04_JPRB,1.0284E-03_JPRB,1.0990E-03_JPRB,1.1784E-03_JPRB,1.2595E-03_JPRB,1.3310E-03_JPRB,&
+&1.3892E-03_JPRB,1.4138E-03_JPRB,1.2306E-03_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&8.8781E-04_JPRB,1.0600E-03_JPRB,1.1442E-03_JPRB,1.2314E-03_JPRB,1.3222E-03_JPRB,1.4061E-03_JPRB,&
+&1.4693E-03_JPRB,1.4932E-03_JPRB,1.3048E-03_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&8.9189E-04_JPRB,1.0939E-03_JPRB,1.1921E-03_JPRB,1.2907E-03_JPRB,1.3886E-03_JPRB,1.4820E-03_JPRB,&
+&1.5492E-03_JPRB,1.5703E-03_JPRB,1.3811E-03_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&8.9438E-04_JPRB,1.1258E-03_JPRB,1.2397E-03_JPRB,1.3504E-03_JPRB,1.4556E-03_JPRB,1.5581E-03_JPRB,&
+&1.6301E-03_JPRB,1.6498E-03_JPRB,1.4607E-03_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&8.3849E-04_JPRB,9.3566E-04_JPRB,1.0099E-03_JPRB,1.0816E-03_JPRB,1.1344E-03_JPRB,1.1752E-03_JPRB,&
+&1.2048E-03_JPRB,1.2139E-03_JPRB,1.0399E-03_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&8.4244E-04_JPRB,9.6570E-04_JPRB,1.0454E-03_JPRB,1.1259E-03_JPRB,1.1888E-03_JPRB,1.2423E-03_JPRB,&
+&1.2800E-03_JPRB,1.2943E-03_JPRB,1.1122E-03_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&8.4472E-04_JPRB,9.9456E-04_JPRB,1.0829E-03_JPRB,1.1722E-03_JPRB,1.2472E-03_JPRB,1.3102E-03_JPRB,&
+&1.3565E-03_JPRB,1.3722E-03_JPRB,1.1831E-03_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&8.4703E-04_JPRB,1.0229E-03_JPRB,1.1215E-03_JPRB,1.2221E-03_JPRB,1.3077E-03_JPRB,1.3778E-03_JPRB,&
+&1.4318E-03_JPRB,1.4488E-03_JPRB,1.2549E-03_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&8.5239E-04_JPRB,1.0541E-03_JPRB,1.1634E-03_JPRB,1.2735E-03_JPRB,1.3695E-03_JPRB,1.4485E-03_JPRB,&
+&1.5090E-03_JPRB,1.5277E-03_JPRB,1.3292E-03_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&7.9083E-04_JPRB,8.8170E-04_JPRB,9.6674E-04_JPRB,1.0299E-03_JPRB,1.0698E-03_JPRB,1.0915E-03_JPRB,&
+&1.0968E-03_JPRB,1.0912E-03_JPRB,9.3090E-04_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&7.9562E-04_JPRB,9.0868E-04_JPRB,9.9995E-04_JPRB,1.0720E-03_JPRB,1.1213E-03_JPRB,1.1526E-03_JPRB,&
+&1.1662E-03_JPRB,1.1662E-03_JPRB,9.9625E-04_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&7.9829E-04_JPRB,9.3547E-04_JPRB,1.0342E-03_JPRB,1.1161E-03_JPRB,1.1759E-03_JPRB,1.2152E-03_JPRB,&
+&1.2368E-03_JPRB,1.2405E-03_JPRB,1.0609E-03_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&8.0091E-04_JPRB,9.6089E-04_JPRB,1.0686E-03_JPRB,1.1624E-03_JPRB,1.2313E-03_JPRB,1.2778E-03_JPRB,&
+&1.3076E-03_JPRB,1.3141E-03_JPRB,1.1274E-03_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&8.0636E-04_JPRB,9.8796E-04_JPRB,1.1047E-03_JPRB,1.2088E-03_JPRB,1.2883E-03_JPRB,1.3425E-03_JPRB,&
+&1.3805E-03_JPRB,1.3900E-03_JPRB,1.1960E-03_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&7.4042E-04_JPRB,8.3357E-04_JPRB,9.1717E-04_JPRB,9.7114E-04_JPRB,1.0002E-03_JPRB,1.0057E-03_JPRB,&
+&9.9270E-04_JPRB,9.6792E-04_JPRB,8.3659E-04_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&7.4565E-04_JPRB,8.5743E-04_JPRB,9.4912E-04_JPRB,1.0119E-03_JPRB,1.0480E-03_JPRB,1.0602E-03_JPRB,&
+&1.0545E-03_JPRB,1.0369E-03_JPRB,8.9582E-04_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&7.4922E-04_JPRB,8.8128E-04_JPRB,9.8142E-04_JPRB,1.0542E-03_JPRB,1.0980E-03_JPRB,1.1167E-03_JPRB,&
+&1.1185E-03_JPRB,1.1056E-03_JPRB,9.5443E-04_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&7.5232E-04_JPRB,9.0308E-04_JPRB,1.0141E-03_JPRB,1.0981E-03_JPRB,1.1486E-03_JPRB,1.1744E-03_JPRB,&
+&1.1833E-03_JPRB,1.1741E-03_JPRB,1.0132E-03_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&7.5627E-04_JPRB,9.2523E-04_JPRB,1.0466E-03_JPRB,1.1406E-03_JPRB,1.2001E-03_JPRB,1.2335E-03_JPRB,&
+&1.2490E-03_JPRB,1.2439E-03_JPRB,1.0736E-03_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&6.8964E-04_JPRB,7.8723E-04_JPRB,8.6407E-04_JPRB,9.0570E-04_JPRB,9.2461E-04_JPRB,9.2134E-04_JPRB,&
+&8.9655E-04_JPRB,8.5470E-04_JPRB,7.7227E-04_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&6.9565E-04_JPRB,8.0904E-04_JPRB,8.9444E-04_JPRB,9.4366E-04_JPRB,9.6915E-04_JPRB,9.7063E-04_JPRB,&
+&9.5066E-04_JPRB,9.1508E-04_JPRB,8.2464E-04_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&7.0042E-04_JPRB,8.3032E-04_JPRB,9.2461E-04_JPRB,9.8296E-04_JPRB,1.0152E-03_JPRB,1.0214E-03_JPRB,&
+&1.0076E-03_JPRB,9.7640E-04_JPRB,8.7766E-04_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&7.0426E-04_JPRB,8.4981E-04_JPRB,9.5485E-04_JPRB,1.0240E-03_JPRB,1.0623E-03_JPRB,1.0734E-03_JPRB,&
+&1.0651E-03_JPRB,1.0378E-03_JPRB,9.3187E-04_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&7.0821E-04_JPRB,8.6946E-04_JPRB,9.8537E-04_JPRB,1.0646E-03_JPRB,1.1098E-03_JPRB,1.1263E-03_JPRB,&
+&1.1245E-03_JPRB,1.1007E-03_JPRB,9.8663E-04_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&6.4047E-04_JPRB,7.3858E-04_JPRB,8.0453E-04_JPRB,8.3694E-04_JPRB,8.4619E-04_JPRB,8.3765E-04_JPRB,&
+&8.0766E-04_JPRB,7.5466E-04_JPRB,8.2781E-04_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&6.4742E-04_JPRB,7.5904E-04_JPRB,8.3405E-04_JPRB,8.7266E-04_JPRB,8.8676E-04_JPRB,8.8236E-04_JPRB,&
+&8.5570E-04_JPRB,8.0688E-04_JPRB,8.7433E-04_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&6.5283E-04_JPRB,7.7980E-04_JPRB,8.6316E-04_JPRB,9.0850E-04_JPRB,9.2898E-04_JPRB,9.2841E-04_JPRB,&
+&9.0551E-04_JPRB,8.6048E-04_JPRB,9.2376E-04_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&6.5707E-04_JPRB,7.9894E-04_JPRB,8.9224E-04_JPRB,9.4602E-04_JPRB,9.7258E-04_JPRB,9.7562E-04_JPRB,&
+&9.5565E-04_JPRB,9.1442E-04_JPRB,9.7371E-04_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&6.6119E-04_JPRB,8.1764E-04_JPRB,9.2118E-04_JPRB,9.8357E-04_JPRB,1.0164E-03_JPRB,1.0233E-03_JPRB,&
+&1.0075E-03_JPRB,9.7011E-04_JPRB,1.0250E-03_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&5.9304E-04_JPRB,6.8835E-04_JPRB,7.4179E-04_JPRB,7.6634E-04_JPRB,7.7050E-04_JPRB,7.5604E-04_JPRB,&
+&7.2393E-04_JPRB,6.6767E-04_JPRB,1.3527E-03_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&6.0061E-04_JPRB,7.0826E-04_JPRB,7.7005E-04_JPRB,7.9970E-04_JPRB,8.0682E-04_JPRB,7.9622E-04_JPRB,&
+&7.6713E-04_JPRB,7.1229E-04_JPRB,1.3810E-03_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&6.0690E-04_JPRB,7.2826E-04_JPRB,7.9782E-04_JPRB,8.3277E-04_JPRB,8.4414E-04_JPRB,8.3763E-04_JPRB,&
+&8.1182E-04_JPRB,7.5863E-04_JPRB,1.4228E-03_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&6.1167E-04_JPRB,7.4710E-04_JPRB,8.2533E-04_JPRB,8.6687E-04_JPRB,8.8342E-04_JPRB,8.8028E-04_JPRB,&
+&8.5678E-04_JPRB,8.0590E-04_JPRB,1.4759E-03_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&6.1627E-04_JPRB,7.6539E-04_JPRB,8.5255E-04_JPRB,9.0125E-04_JPRB,9.2320E-04_JPRB,9.2321E-04_JPRB,&
+&9.0266E-04_JPRB,8.5442E-04_JPRB,1.5365E-03_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&5.4825E-04_JPRB,6.3891E-04_JPRB,6.8254E-04_JPRB,7.0037E-04_JPRB,6.9928E-04_JPRB,6.8268E-04_JPRB,&
+&6.4957E-04_JPRB,5.9476E-04_JPRB,3.8180E-03_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&5.5676E-04_JPRB,6.5829E-04_JPRB,7.0890E-04_JPRB,7.3100E-04_JPRB,7.3257E-04_JPRB,7.1817E-04_JPRB,&
+&6.8748E-04_JPRB,6.3344E-04_JPRB,3.7319E-03_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&5.6387E-04_JPRB,6.7778E-04_JPRB,7.3493E-04_JPRB,7.6099E-04_JPRB,7.6595E-04_JPRB,7.5519E-04_JPRB,&
+&7.2717E-04_JPRB,6.7342E-04_JPRB,3.6841E-03_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&5.6965E-04_JPRB,6.9628E-04_JPRB,7.6095E-04_JPRB,7.9168E-04_JPRB,8.0061E-04_JPRB,7.9369E-04_JPRB,&
+&7.6769E-04_JPRB,7.1402E-04_JPRB,3.6718E-03_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&5.7483E-04_JPRB,7.1426E-04_JPRB,7.8640E-04_JPRB,8.2247E-04_JPRB,8.3634E-04_JPRB,8.3289E-04_JPRB,&
+&8.0894E-04_JPRB,7.5561E-04_JPRB,3.6884E-03_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&5.0971E-04_JPRB,5.9908E-04_JPRB,6.3716E-04_JPRB,6.5075E-04_JPRB,6.4646E-04_JPRB,6.2883E-04_JPRB,&
+&5.9611E-04_JPRB,5.4516E-04_JPRB,5.2044E-03_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&5.1851E-04_JPRB,6.1830E-04_JPRB,6.6103E-04_JPRB,6.7814E-04_JPRB,6.7644E-04_JPRB,6.6100E-04_JPRB,&
+&6.3054E-04_JPRB,5.7922E-04_JPRB,5.0472E-03_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&5.2576E-04_JPRB,6.3685E-04_JPRB,6.8508E-04_JPRB,7.0561E-04_JPRB,7.0702E-04_JPRB,6.9454E-04_JPRB,&
+&6.6622E-04_JPRB,6.1448E-04_JPRB,4.9485E-03_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&5.3230E-04_JPRB,6.5426E-04_JPRB,7.0906E-04_JPRB,7.3336E-04_JPRB,7.3854E-04_JPRB,7.2917E-04_JPRB,&
+&7.0247E-04_JPRB,6.5031E-04_JPRB,4.8945E-03_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&5.3825E-04_JPRB,6.7152E-04_JPRB,7.3265E-04_JPRB,7.6088E-04_JPRB,7.7057E-04_JPRB,7.6479E-04_JPRB,&
+&7.3945E-04_JPRB,6.8664E-04_JPRB,4.8718E-03_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&4.7268E-04_JPRB,5.5911E-04_JPRB,5.9221E-04_JPRB,6.0202E-04_JPRB,5.9599E-04_JPRB,5.7673E-04_JPRB,&
+&5.4567E-04_JPRB,4.9766E-04_JPRB,5.4784E-03_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&4.8142E-04_JPRB,5.7788E-04_JPRB,6.1435E-04_JPRB,6.2655E-04_JPRB,6.2325E-04_JPRB,6.0670E-04_JPRB,&
+&5.7673E-04_JPRB,5.2800E-04_JPRB,5.3059E-03_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&4.8905E-04_JPRB,5.9521E-04_JPRB,6.3638E-04_JPRB,6.5188E-04_JPRB,6.5138E-04_JPRB,6.3718E-04_JPRB,&
+&6.0852E-04_JPRB,5.5928E-04_JPRB,5.1929E-03_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&4.9586E-04_JPRB,6.1204E-04_JPRB,6.5810E-04_JPRB,6.7725E-04_JPRB,6.7983E-04_JPRB,6.6800E-04_JPRB,&
+&6.4102E-04_JPRB,5.9098E-04_JPRB,5.1181E-03_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&5.0219E-04_JPRB,6.2893E-04_JPRB,6.7933E-04_JPRB,7.0239E-04_JPRB,7.0829E-04_JPRB,6.9992E-04_JPRB,&
+&6.7457E-04_JPRB,6.2315E-04_JPRB,5.0659E-03_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&4.3613E-04_JPRB,5.1896E-04_JPRB,5.4757E-04_JPRB,5.5450E-04_JPRB,5.4716E-04_JPRB,5.2848E-04_JPRB,&
+&4.9828E-04_JPRB,4.5179E-04_JPRB,4.7039E-03_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&4.4480E-04_JPRB,5.3652E-04_JPRB,5.6828E-04_JPRB,5.7733E-04_JPRB,5.7232E-04_JPRB,5.5571E-04_JPRB,&
+&5.2643E-04_JPRB,4.7940E-04_JPRB,4.5588E-03_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&4.5255E-04_JPRB,5.5296E-04_JPRB,5.8851E-04_JPRB,6.0068E-04_JPRB,5.9826E-04_JPRB,5.8320E-04_JPRB,&
+&5.5480E-04_JPRB,5.0729E-04_JPRB,4.4582E-03_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&4.5948E-04_JPRB,5.6913E-04_JPRB,6.0860E-04_JPRB,6.2380E-04_JPRB,6.2384E-04_JPRB,6.1098E-04_JPRB,&
+&5.8363E-04_JPRB,5.3555E-04_JPRB,4.3840E-03_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&4.6648E-04_JPRB,5.8526E-04_JPRB,6.2843E-04_JPRB,6.4682E-04_JPRB,6.4977E-04_JPRB,6.3953E-04_JPRB,&
+&6.1349E-04_JPRB,5.6436E-04_JPRB,4.3301E-03_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB16_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb1_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb1_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb1_01.F90	(revision 2160)
@@ -0,0 +1,525 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB1_01
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO1 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
+           &FRACREFBO  ,FORREFO
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFAO( :) = (/&
+    &0.08452097_JPRB,0.17952873_JPRB,0.16214369_JPRB,0.13602182_JPRB,&
+    &0.12760490_JPRB,0.10302561_JPRB,0.08392423_JPRB,0.06337652_JPRB,&
+    &0.04206551_JPRB,0.00487497_JPRB,0.00410743_JPRB,0.00344421_JPRB,&
+    &0.00285731_JPRB,0.00157327_JPRB,0.00080648_JPRB,0.00012406_JPRB/)
+
+FRACREFBO( :) = (/&
+    &0.15492001_JPRB,0.17384727_JPRB,0.15165100_JPRB,0.12675308_JPRB,&
+    &0.10986247_JPRB,0.09006091_JPRB,0.07584465_JPRB,0.05990077_JPRB,&
+    &0.04113461_JPRB,0.00438638_JPRB,0.00374754_JPRB,0.00313924_JPRB,&
+    &0.00234381_JPRB,0.00167167_JPRB,0.00062744_JPRB,0.00010889_JPRB/)
+
+FORREFO( :) = (/&
+     &-4.50470E-02_JPRB,-1.18908E-01_JPRB,-7.21730E-02_JPRB,-2.83862E-02_JPRB,&
+     &-3.01961E-02_JPRB,-1.56877E-02_JPRB,-1.53684E-02_JPRB,-1.29135E-02_JPRB,&
+     &-1.27963E-02_JPRB,-1.81742E-03_JPRB, 4.40008E-05_JPRB, 1.05260E-02_JPRB,&
+      &2.17290E-02_JPRB, 1.65571E-02_JPRB, 7.60751E-02_JPRB, 1.47405E-01_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&2.9728E-01_JPRB,2.7117E-01_JPRB,2.4824E-01_JPRB,2.2823E-01_JPRB,2.1073E-01_JPRB/)
+KAO( :, 2, 1) = (/&
+&2.5383E-01_JPRB,2.3094E-01_JPRB,2.1122E-01_JPRB,1.9387E-01_JPRB,1.7870E-01_JPRB/)
+KAO( :, 3, 1) = (/&
+&2.2079E-01_JPRB,2.0034E-01_JPRB,1.8264E-01_JPRB,1.6726E-01_JPRB,1.5378E-01_JPRB/)
+KAO( :, 4, 1) = (/&
+&1.9385E-01_JPRB,1.7531E-01_JPRB,1.5932E-01_JPRB,1.4544E-01_JPRB,1.3338E-01_JPRB/)
+KAO( :, 5, 1) = (/&
+&1.7059E-01_JPRB,1.5374E-01_JPRB,1.3930E-01_JPRB,1.2682E-01_JPRB,1.1600E-01_JPRB/)
+KAO( :, 6, 1) = (/&
+&1.5085E-01_JPRB,1.3549E-01_JPRB,1.2235E-01_JPRB,1.1112E-01_JPRB,1.0142E-01_JPRB/)
+KAO( :, 7, 1) = (/&
+&1.3366E-01_JPRB,1.1960E-01_JPRB,1.0771E-01_JPRB,9.7560E-02_JPRB,8.8804E-02_JPRB/)
+KAO( :, 8, 1) = (/&
+&1.1833E-01_JPRB,1.0551E-01_JPRB,9.4748E-02_JPRB,8.5642E-02_JPRB,7.7808E-02_JPRB/)
+KAO( :, 9, 1) = (/&
+&1.0407E-01_JPRB,9.2585E-02_JPRB,8.3046E-02_JPRB,7.5077E-02_JPRB,6.8338E-02_JPRB/)
+KAO( :,10, 1) = (/&
+&9.6249E-02_JPRB,8.6268E-02_JPRB,7.7918E-02_JPRB,7.0909E-02_JPRB,6.5026E-02_JPRB/)
+KAO( :,11, 1) = (/&
+&8.5798E-02_JPRB,7.7607E-02_JPRB,7.0781E-02_JPRB,6.5084E-02_JPRB,6.0324E-02_JPRB/)
+KAO( :,12, 1) = (/&
+&7.5259E-02_JPRB,6.8525E-02_JPRB,6.2945E-02_JPRB,5.8330E-02_JPRB,5.4507E-02_JPRB/)
+KAO( :,13, 1) = (/&
+&6.6022E-02_JPRB,6.0316E-02_JPRB,5.5584E-02_JPRB,5.1665E-02_JPRB,4.8461E-02_JPRB/)
+KAO( :, 1, 2) = (/&
+&1.0868E+00_JPRB,1.0180E+00_JPRB,9.5619E-01_JPRB,9.0008E-01_JPRB,8.4968E-01_JPRB/)
+KAO( :, 2, 2) = (/&
+&9.1280E-01_JPRB,8.5427E-01_JPRB,8.0215E-01_JPRB,7.5470E-01_JPRB,7.1212E-01_JPRB/)
+KAO( :, 3, 2) = (/&
+&7.7699E-01_JPRB,7.2607E-01_JPRB,6.8084E-01_JPRB,6.3997E-01_JPRB,6.0293E-01_JPRB/)
+KAO( :, 4, 2) = (/&
+&6.6708E-01_JPRB,6.2264E-01_JPRB,5.8280E-01_JPRB,5.4723E-01_JPRB,5.1498E-01_JPRB/)
+KAO( :, 5, 2) = (/&
+&5.7399E-01_JPRB,5.3509E-01_JPRB,5.0018E-01_JPRB,4.6892E-01_JPRB,4.4080E-01_JPRB/)
+KAO( :, 6, 2) = (/&
+&4.9530E-01_JPRB,4.6110E-01_JPRB,4.3040E-01_JPRB,4.0285E-01_JPRB,3.7815E-01_JPRB/)
+KAO( :, 7, 2) = (/&
+&4.2745E-01_JPRB,3.9732E-01_JPRB,3.7040E-01_JPRB,3.4614E-01_JPRB,3.2442E-01_JPRB/)
+KAO( :, 8, 2) = (/&
+&3.6869E-01_JPRB,3.4268E-01_JPRB,3.1900E-01_JPRB,2.9776E-01_JPRB,2.7880E-01_JPRB/)
+KAO( :, 9, 2) = (/&
+&3.1986E-01_JPRB,2.9734E-01_JPRB,2.7688E-01_JPRB,2.5843E-01_JPRB,2.4196E-01_JPRB/)
+KAO( :,10, 2) = (/&
+&2.8291E-01_JPRB,2.6327E-01_JPRB,2.4583E-01_JPRB,2.3014E-01_JPRB,2.1607E-01_JPRB/)
+KAO( :,11, 2) = (/&
+&2.4260E-01_JPRB,2.2644E-01_JPRB,2.1226E-01_JPRB,1.9956E-01_JPRB,1.8806E-01_JPRB/)
+KAO( :,12, 2) = (/&
+&2.0558E-01_JPRB,1.9256E-01_JPRB,1.8115E-01_JPRB,1.7097E-01_JPRB,1.6176E-01_JPRB/)
+KAO( :,13, 2) = (/&
+&1.7296E-01_JPRB,1.6235E-01_JPRB,1.5298E-01_JPRB,1.4476E-01_JPRB,1.3735E-01_JPRB/)
+KAO( :, 1, 3) = (/&
+&1.9978E+00_JPRB,1.9059E+00_JPRB,1.8189E+00_JPRB,1.7366E+00_JPRB,1.6586E+00_JPRB/)
+KAO( :, 2, 3) = (/&
+&1.6606E+00_JPRB,1.5839E+00_JPRB,1.5107E+00_JPRB,1.4431E+00_JPRB,1.3779E+00_JPRB/)
+KAO( :, 3, 3) = (/&
+&1.3892E+00_JPRB,1.3254E+00_JPRB,1.2641E+00_JPRB,1.2074E+00_JPRB,1.1536E+00_JPRB/)
+KAO( :, 4, 3) = (/&
+&1.1729E+00_JPRB,1.1192E+00_JPRB,1.0684E+00_JPRB,1.0206E+00_JPRB,9.7581E-01_JPRB/)
+KAO( :, 5, 3) = (/&
+&9.9394E-01_JPRB,9.4858E-01_JPRB,9.0600E-01_JPRB,8.6583E-01_JPRB,8.2779E-01_JPRB/)
+KAO( :, 6, 3) = (/&
+&8.4450E-01_JPRB,8.0530E-01_JPRB,7.6915E-01_JPRB,7.3568E-01_JPRB,7.0371E-01_JPRB/)
+KAO( :, 7, 3) = (/&
+&7.1829E-01_JPRB,6.8411E-01_JPRB,6.5331E-01_JPRB,6.2452E-01_JPRB,5.9760E-01_JPRB/)
+KAO( :, 8, 3) = (/&
+&6.1224E-01_JPRB,5.8194E-01_JPRB,5.5498E-01_JPRB,5.3049E-01_JPRB,5.0749E-01_JPRB/)
+KAO( :, 9, 3) = (/&
+&5.2649E-01_JPRB,4.9920E-01_JPRB,4.7516E-01_JPRB,4.5390E-01_JPRB,4.3400E-01_JPRB/)
+KAO( :,10, 3) = (/&
+&4.6036E-01_JPRB,4.3661E-01_JPRB,4.1510E-01_JPRB,3.9653E-01_JPRB,3.7973E-01_JPRB/)
+KAO( :,11, 3) = (/&
+&3.9552E-01_JPRB,3.7556E-01_JPRB,3.5783E-01_JPRB,3.4242E-01_JPRB,3.2854E-01_JPRB/)
+KAO( :,12, 3) = (/&
+&3.3619E-01_JPRB,3.1976E-01_JPRB,3.0528E-01_JPRB,2.9270E-01_JPRB,2.8130E-01_JPRB/)
+KAO( :,13, 3) = (/&
+&2.8224E-01_JPRB,2.6905E-01_JPRB,2.5767E-01_JPRB,2.4740E-01_JPRB,2.3812E-01_JPRB/)
+KAO( :, 1, 4) = (/&
+&3.1134E+00_JPRB,2.9768E+00_JPRB,2.8528E+00_JPRB,2.7371E+00_JPRB,2.6298E+00_JPRB/)
+KAO( :, 2, 4) = (/&
+&2.5980E+00_JPRB,2.4825E+00_JPRB,2.3758E+00_JPRB,2.2768E+00_JPRB,2.1885E+00_JPRB/)
+KAO( :, 3, 4) = (/&
+&2.1823E+00_JPRB,2.0815E+00_JPRB,1.9888E+00_JPRB,1.9036E+00_JPRB,1.8278E+00_JPRB/)
+KAO( :, 4, 4) = (/&
+&1.8482E+00_JPRB,1.7602E+00_JPRB,1.6798E+00_JPRB,1.6064E+00_JPRB,1.5402E+00_JPRB/)
+KAO( :, 5, 4) = (/&
+&1.5691E+00_JPRB,1.4937E+00_JPRB,1.4240E+00_JPRB,1.3603E+00_JPRB,1.3038E+00_JPRB/)
+KAO( :, 6, 4) = (/&
+&1.3353E+00_JPRB,1.2714E+00_JPRB,1.2114E+00_JPRB,1.1566E+00_JPRB,1.1076E+00_JPRB/)
+KAO( :, 7, 4) = (/&
+&1.1365E+00_JPRB,1.0823E+00_JPRB,1.0312E+00_JPRB,9.8386E-01_JPRB,9.4149E-01_JPRB/)
+KAO( :, 8, 4) = (/&
+&9.6785E-01_JPRB,9.2216E-01_JPRB,8.7848E-01_JPRB,8.3819E-01_JPRB,8.0171E-01_JPRB/)
+KAO( :, 9, 4) = (/&
+&8.2906E-01_JPRB,7.9098E-01_JPRB,7.5375E-01_JPRB,7.1927E-01_JPRB,6.8769E-01_JPRB/)
+KAO( :,10, 4) = (/&
+&7.2091E-01_JPRB,6.8867E-01_JPRB,6.5764E-01_JPRB,6.2852E-01_JPRB,6.0157E-01_JPRB/)
+KAO( :,11, 4) = (/&
+&6.1639E-01_JPRB,5.8956E-01_JPRB,5.6471E-01_JPRB,5.4117E-01_JPRB,5.1965E-01_JPRB/)
+KAO( :,12, 4) = (/&
+&5.2694E-01_JPRB,5.0446E-01_JPRB,4.8409E-01_JPRB,4.6534E-01_JPRB,4.4808E-01_JPRB/)
+KAO( :,13, 4) = (/&
+&4.4495E-01_JPRB,4.2623E-01_JPRB,4.0962E-01_JPRB,3.9458E-01_JPRB,3.8091E-01_JPRB/)
+KAO( :, 1, 5) = (/&
+&5.1530E+00_JPRB,4.9766E+00_JPRB,4.8081E+00_JPRB,4.6516E+00_JPRB,4.5093E+00_JPRB/)
+KAO( :, 2, 5) = (/&
+&4.3491E+00_JPRB,4.2045E+00_JPRB,4.0708E+00_JPRB,3.9418E+00_JPRB,3.8163E+00_JPRB/)
+KAO( :, 3, 5) = (/&
+&3.6708E+00_JPRB,3.5507E+00_JPRB,3.4414E+00_JPRB,3.3312E+00_JPRB,3.2173E+00_JPRB/)
+KAO( :, 4, 5) = (/&
+&3.1175E+00_JPRB,3.0159E+00_JPRB,2.9223E+00_JPRB,2.8267E+00_JPRB,2.7279E+00_JPRB/)
+KAO( :, 5, 5) = (/&
+&2.6518E+00_JPRB,2.5625E+00_JPRB,2.4801E+00_JPRB,2.3975E+00_JPRB,2.3146E+00_JPRB/)
+KAO( :, 6, 5) = (/&
+&2.2564E+00_JPRB,2.1773E+00_JPRB,2.1039E+00_JPRB,2.0333E+00_JPRB,1.9631E+00_JPRB/)
+KAO( :, 7, 5) = (/&
+&1.9182E+00_JPRB,1.8476E+00_JPRB,1.7832E+00_JPRB,1.7230E+00_JPRB,1.6643E+00_JPRB/)
+KAO( :, 8, 5) = (/&
+&1.6337E+00_JPRB,1.5705E+00_JPRB,1.5139E+00_JPRB,1.4617E+00_JPRB,1.4128E+00_JPRB/)
+KAO( :, 9, 5) = (/&
+&1.4083E+00_JPRB,1.3508E+00_JPRB,1.3006E+00_JPRB,1.2545E+00_JPRB,1.2118E+00_JPRB/)
+KAO( :,10, 5) = (/&
+&1.2328E+00_JPRB,1.1811E+00_JPRB,1.1365E+00_JPRB,1.0948E+00_JPRB,1.0570E+00_JPRB/)
+KAO( :,11, 5) = (/&
+&1.0545E+00_JPRB,1.0121E+00_JPRB,9.7473E-01_JPRB,9.3945E-01_JPRB,9.0734E-01_JPRB/)
+KAO( :,12, 5) = (/&
+&9.0496E-01_JPRB,8.7115E-01_JPRB,8.4024E-01_JPRB,8.1130E-01_JPRB,7.8449E-01_JPRB/)
+KAO( :,13, 5) = (/&
+&7.7164E-01_JPRB,7.4436E-01_JPRB,7.1910E-01_JPRB,6.9522E-01_JPRB,6.7297E-01_JPRB/)
+KAO( :, 1, 6) = (/&
+&9.6973E+00_JPRB,9.3787E+00_JPRB,9.0588E+00_JPRB,8.7497E+00_JPRB,8.4590E+00_JPRB/)
+KAO( :, 2, 6) = (/&
+&8.3422E+00_JPRB,8.0414E+00_JPRB,7.7516E+00_JPRB,7.4834E+00_JPRB,7.2408E+00_JPRB/)
+KAO( :, 3, 6) = (/&
+&7.1314E+00_JPRB,6.8664E+00_JPRB,6.6149E+00_JPRB,6.3897E+00_JPRB,6.1962E+00_JPRB/)
+KAO( :, 4, 6) = (/&
+&6.1234E+00_JPRB,5.8927E+00_JPRB,5.6767E+00_JPRB,5.4877E+00_JPRB,5.3211E+00_JPRB/)
+KAO( :, 5, 6) = (/&
+&5.2539E+00_JPRB,5.0548E+00_JPRB,4.8732E+00_JPRB,4.7110E+00_JPRB,4.5668E+00_JPRB/)
+KAO( :, 6, 6) = (/&
+&4.5026E+00_JPRB,4.3343E+00_JPRB,4.1792E+00_JPRB,4.0419E+00_JPRB,3.9124E+00_JPRB/)
+KAO( :, 7, 6) = (/&
+&3.8524E+00_JPRB,3.7093E+00_JPRB,3.5777E+00_JPRB,3.4570E+00_JPRB,3.3411E+00_JPRB/)
+KAO( :, 8, 6) = (/&
+&3.2864E+00_JPRB,3.1665E+00_JPRB,3.0553E+00_JPRB,2.9496E+00_JPRB,2.8463E+00_JPRB/)
+KAO( :, 9, 6) = (/&
+&2.8265E+00_JPRB,2.7253E+00_JPRB,2.6293E+00_JPRB,2.5362E+00_JPRB,2.4454E+00_JPRB/)
+KAO( :,10, 6) = (/&
+&2.4703E+00_JPRB,2.3851E+00_JPRB,2.3012E+00_JPRB,2.2197E+00_JPRB,2.1390E+00_JPRB/)
+KAO( :,11, 6) = (/&
+&2.1039E+00_JPRB,2.0324E+00_JPRB,1.9625E+00_JPRB,1.8926E+00_JPRB,1.8236E+00_JPRB/)
+KAO( :,12, 6) = (/&
+&1.7889E+00_JPRB,1.7295E+00_JPRB,1.6689E+00_JPRB,1.6099E+00_JPRB,1.5530E+00_JPRB/)
+KAO( :,13, 6) = (/&
+&1.5191E+00_JPRB,1.4695E+00_JPRB,1.4192E+00_JPRB,1.3697E+00_JPRB,1.3233E+00_JPRB/)
+KAO( :, 1, 7) = (/&
+&1.9309E+01_JPRB,1.8684E+01_JPRB,1.8099E+01_JPRB,1.7538E+01_JPRB,1.7003E+01_JPRB/)
+KAO( :, 2, 7) = (/&
+&1.7226E+01_JPRB,1.6672E+01_JPRB,1.6118E+01_JPRB,1.5594E+01_JPRB,1.5067E+01_JPRB/)
+KAO( :, 3, 7) = (/&
+&1.5276E+01_JPRB,1.4769E+01_JPRB,1.4264E+01_JPRB,1.3763E+01_JPRB,1.3263E+01_JPRB/)
+KAO( :, 4, 7) = (/&
+&1.3460E+01_JPRB,1.3002E+01_JPRB,1.2544E+01_JPRB,1.2084E+01_JPRB,1.1633E+01_JPRB/)
+KAO( :, 5, 7) = (/&
+&1.1768E+01_JPRB,1.1365E+01_JPRB,1.0948E+01_JPRB,1.0535E+01_JPRB,1.0140E+01_JPRB/)
+KAO( :, 6, 7) = (/&
+&1.0233E+01_JPRB,9.8691E+00_JPRB,9.5008E+00_JPRB,9.1399E+00_JPRB,8.8037E+00_JPRB/)
+KAO( :, 7, 7) = (/&
+&8.8418E+00_JPRB,8.5251E+00_JPRB,8.2044E+00_JPRB,7.8974E+00_JPRB,7.6097E+00_JPRB/)
+KAO( :, 8, 7) = (/&
+&7.5932E+00_JPRB,7.3228E+00_JPRB,7.0494E+00_JPRB,6.7890E+00_JPRB,6.5466E+00_JPRB/)
+KAO( :, 9, 7) = (/&
+&6.5438E+00_JPRB,6.3102E+00_JPRB,6.0785E+00_JPRB,5.8572E+00_JPRB,5.6536E+00_JPRB/)
+KAO( :,10, 7) = (/&
+&5.7701E+00_JPRB,5.5632E+00_JPRB,5.3602E+00_JPRB,5.1657E+00_JPRB,4.9886E+00_JPRB/)
+KAO( :,11, 7) = (/&
+&4.9229E+00_JPRB,4.7468E+00_JPRB,4.5754E+00_JPRB,4.4156E+00_JPRB,4.2640E+00_JPRB/)
+KAO( :,12, 7) = (/&
+&4.1712E+00_JPRB,4.0245E+00_JPRB,3.8835E+00_JPRB,3.7490E+00_JPRB,3.6186E+00_JPRB/)
+KAO( :,13, 7) = (/&
+&3.5142E+00_JPRB,3.3938E+00_JPRB,3.2767E+00_JPRB,3.1632E+00_JPRB,3.0535E+00_JPRB/)
+KAO( :, 1, 8) = (/&
+&4.3792E+01_JPRB,4.2562E+01_JPRB,4.1326E+01_JPRB,4.0173E+01_JPRB,3.9029E+01_JPRB/)
+KAO( :, 2, 8) = (/&
+&4.1083E+01_JPRB,3.9961E+01_JPRB,3.8875E+01_JPRB,3.7761E+01_JPRB,3.6732E+01_JPRB/)
+KAO( :, 3, 8) = (/&
+&3.8232E+01_JPRB,3.7158E+01_JPRB,3.6113E+01_JPRB,3.5094E+01_JPRB,3.4130E+01_JPRB/)
+KAO( :, 4, 8) = (/&
+&3.5298E+01_JPRB,3.4286E+01_JPRB,3.3318E+01_JPRB,3.2377E+01_JPRB,3.1455E+01_JPRB/)
+KAO( :, 5, 8) = (/&
+&3.2307E+01_JPRB,3.1366E+01_JPRB,3.0496E+01_JPRB,2.9612E+01_JPRB,2.8733E+01_JPRB/)
+KAO( :, 6, 8) = (/&
+&2.9245E+01_JPRB,2.8430E+01_JPRB,2.7640E+01_JPRB,2.6836E+01_JPRB,2.6022E+01_JPRB/)
+KAO( :, 7, 8) = (/&
+&2.6088E+01_JPRB,2.5397E+01_JPRB,2.4695E+01_JPRB,2.3991E+01_JPRB,2.3257E+01_JPRB/)
+KAO( :, 8, 8) = (/&
+&2.2981E+01_JPRB,2.2412E+01_JPRB,2.1823E+01_JPRB,2.1203E+01_JPRB,2.0533E+01_JPRB/)
+KAO( :, 9, 8) = (/&
+&2.0055E+01_JPRB,1.9585E+01_JPRB,1.9088E+01_JPRB,1.8539E+01_JPRB,1.7936E+01_JPRB/)
+KAO( :,10, 8) = (/&
+&1.7813E+01_JPRB,1.7392E+01_JPRB,1.6941E+01_JPRB,1.6433E+01_JPRB,1.5881E+01_JPRB/)
+KAO( :,11, 8) = (/&
+&1.5517E+01_JPRB,1.5141E+01_JPRB,1.4721E+01_JPRB,1.4250E+01_JPRB,1.3762E+01_JPRB/)
+KAO( :,12, 8) = (/&
+&1.3307E+01_JPRB,1.2968E+01_JPRB,1.2587E+01_JPRB,1.2173E+01_JPRB,1.1765E+01_JPRB/)
+KAO( :,13, 8) = (/&
+&1.1246E+01_JPRB,1.0950E+01_JPRB,1.0619E+01_JPRB,1.0276E+01_JPRB,9.9339E+00_JPRB/)
+KAO( :, 1, 9) = (/&
+&1.1805E+02_JPRB,1.1497E+02_JPRB,1.1183E+02_JPRB,1.0901E+02_JPRB,1.0608E+02_JPRB/)
+KAO( :, 2, 9) = (/&
+&1.2044E+02_JPRB,1.1710E+02_JPRB,1.1402E+02_JPRB,1.1089E+02_JPRB,1.0784E+02_JPRB/)
+KAO( :, 3, 9) = (/&
+&1.2224E+02_JPRB,1.1882E+02_JPRB,1.1548E+02_JPRB,1.1225E+02_JPRB,1.0912E+02_JPRB/)
+KAO( :, 4, 9) = (/&
+&1.2253E+02_JPRB,1.1914E+02_JPRB,1.1570E+02_JPRB,1.1248E+02_JPRB,1.0936E+02_JPRB/)
+KAO( :, 5, 9) = (/&
+&1.2110E+02_JPRB,1.1772E+02_JPRB,1.1430E+02_JPRB,1.1120E+02_JPRB,1.0822E+02_JPRB/)
+KAO( :, 6, 9) = (/&
+&1.1824E+02_JPRB,1.1487E+02_JPRB,1.1155E+02_JPRB,1.0851E+02_JPRB,1.0564E+02_JPRB/)
+KAO( :, 7, 9) = (/&
+&1.1353E+02_JPRB,1.1029E+02_JPRB,1.0721E+02_JPRB,1.0431E+02_JPRB,1.0150E+02_JPRB/)
+KAO( :, 8, 9) = (/&
+&1.0728E+02_JPRB,1.0430E+02_JPRB,1.0145E+02_JPRB,9.8717E+01_JPRB,9.6110E+01_JPRB/)
+KAO( :, 9, 9) = (/&
+&9.9961E+01_JPRB,9.7260E+01_JPRB,9.4661E+01_JPRB,9.2129E+01_JPRB,8.9711E+01_JPRB/)
+KAO( :,10, 9) = (/&
+&9.2244E+01_JPRB,8.9827E+01_JPRB,8.7426E+01_JPRB,8.5062E+01_JPRB,8.2760E+01_JPRB/)
+KAO( :,11, 9) = (/&
+&8.3999E+01_JPRB,8.1726E+01_JPRB,7.9419E+01_JPRB,7.7163E+01_JPRB,7.4981E+01_JPRB/)
+KAO( :,12, 9) = (/&
+&7.5642E+01_JPRB,7.3608E+01_JPRB,7.1481E+01_JPRB,6.9416E+01_JPRB,6.7422E+01_JPRB/)
+KAO( :,13, 9) = (/&
+&6.6934E+01_JPRB,6.5046E+01_JPRB,6.3162E+01_JPRB,6.1319E+01_JPRB,5.9545E+01_JPRB/)
+KAO( :, 1,10) = (/&
+&2.5219E+02_JPRB,2.4571E+02_JPRB,2.3918E+02_JPRB,2.3279E+02_JPRB,2.2858E+02_JPRB/)
+KAO( :, 2,10) = (/&
+&2.6944E+02_JPRB,2.6208E+02_JPRB,2.5593E+02_JPRB,2.5059E+02_JPRB,2.4739E+02_JPRB/)
+KAO( :, 3,10) = (/&
+&2.8444E+02_JPRB,2.7711E+02_JPRB,2.7148E+02_JPRB,2.6629E+02_JPRB,2.6255E+02_JPRB/)
+KAO( :, 4,10) = (/&
+&3.0272E+02_JPRB,2.9452E+02_JPRB,2.8714E+02_JPRB,2.7941E+02_JPRB,2.7276E+02_JPRB/)
+KAO( :, 5,10) = (/&
+&3.1679E+02_JPRB,3.0877E+02_JPRB,3.0015E+02_JPRB,2.9068E+02_JPRB,2.8102E+02_JPRB/)
+KAO( :, 6,10) = (/&
+&3.2322E+02_JPRB,3.1468E+02_JPRB,3.0521E+02_JPRB,2.9571E+02_JPRB,2.8597E+02_JPRB/)
+KAO( :, 7,10) = (/&
+&3.2856E+02_JPRB,3.1908E+02_JPRB,3.0869E+02_JPRB,2.9873E+02_JPRB,2.8901E+02_JPRB/)
+KAO( :, 8,10) = (/&
+&3.2929E+02_JPRB,3.1918E+02_JPRB,3.0900E+02_JPRB,2.9900E+02_JPRB,2.8972E+02_JPRB/)
+KAO( :, 9,10) = (/&
+&3.2403E+02_JPRB,3.1482E+02_JPRB,3.0502E+02_JPRB,2.9579E+02_JPRB,2.8721E+02_JPRB/)
+KAO( :,10,10) = (/&
+&3.1039E+02_JPRB,3.0245E+02_JPRB,2.9340E+02_JPRB,2.8545E+02_JPRB,2.7823E+02_JPRB/)
+KAO( :,11,10) = (/&
+&2.8971E+02_JPRB,2.8193E+02_JPRB,2.7523E+02_JPRB,2.6877E+02_JPRB,2.6210E+02_JPRB/)
+KAO( :,12,10) = (/&
+&2.7119E+02_JPRB,2.6399E+02_JPRB,2.5760E+02_JPRB,2.5064E+02_JPRB,2.4326E+02_JPRB/)
+KAO( :,13,10) = (/&
+&2.5228E+02_JPRB,2.4612E+02_JPRB,2.3937E+02_JPRB,2.3200E+02_JPRB,2.2456E+02_JPRB/)
+KAO( :, 1,11) = (/&
+&3.2436E+02_JPRB,3.1705E+02_JPRB,3.0936E+02_JPRB,3.0225E+02_JPRB,2.9528E+02_JPRB/)
+KAO( :, 2,11) = (/&
+&3.6387E+02_JPRB,3.5499E+02_JPRB,3.4471E+02_JPRB,3.3477E+02_JPRB,3.2544E+02_JPRB/)
+KAO( :, 3,11) = (/&
+&3.9089E+02_JPRB,3.8297E+02_JPRB,3.7268E+02_JPRB,3.6169E+02_JPRB,3.5104E+02_JPRB/)
+KAO( :, 4,11) = (/&
+&4.0614E+02_JPRB,3.9591E+02_JPRB,3.8584E+02_JPRB,3.7702E+02_JPRB,3.6787E+02_JPRB/)
+KAO( :, 5,11) = (/&
+&4.2111E+02_JPRB,4.0953E+02_JPRB,3.9791E+02_JPRB,3.8868E+02_JPRB,3.8088E+02_JPRB/)
+KAO( :, 6,11) = (/&
+&4.4478E+02_JPRB,4.3170E+02_JPRB,4.1878E+02_JPRB,4.0704E+02_JPRB,3.9607E+02_JPRB/)
+KAO( :, 7,11) = (/&
+&4.6528E+02_JPRB,4.5296E+02_JPRB,4.4095E+02_JPRB,4.2830E+02_JPRB,4.1414E+02_JPRB/)
+KAO( :, 8,11) = (/&
+&4.8103E+02_JPRB,4.6875E+02_JPRB,4.5586E+02_JPRB,4.4138E+02_JPRB,4.2642E+02_JPRB/)
+KAO( :, 9,11) = (/&
+&4.9211E+02_JPRB,4.7875E+02_JPRB,4.6419E+02_JPRB,4.4833E+02_JPRB,4.3292E+02_JPRB/)
+KAO( :,10,11) = (/&
+&4.9428E+02_JPRB,4.7899E+02_JPRB,4.6351E+02_JPRB,4.4779E+02_JPRB,4.3245E+02_JPRB/)
+KAO( :,11,11) = (/&
+&4.7778E+02_JPRB,4.6338E+02_JPRB,4.4778E+02_JPRB,4.3344E+02_JPRB,4.2003E+02_JPRB/)
+KAO( :,12,11) = (/&
+&4.5095E+02_JPRB,4.3803E+02_JPRB,4.2442E+02_JPRB,4.1242E+02_JPRB,4.0150E+02_JPRB/)
+KAO( :,13,11) = (/&
+&4.2162E+02_JPRB,4.0890E+02_JPRB,3.9818E+02_JPRB,3.8811E+02_JPRB,3.7807E+02_JPRB/)
+KAO( :, 1,12) = (/&
+&4.0765E+02_JPRB,4.0438E+02_JPRB,4.0112E+02_JPRB,3.9703E+02_JPRB,3.9278E+02_JPRB/)
+KAO( :, 2,12) = (/&
+&4.5408E+02_JPRB,4.4591E+02_JPRB,4.3895E+02_JPRB,4.3184E+02_JPRB,4.2260E+02_JPRB/)
+KAO( :, 3,12) = (/&
+&5.0754E+02_JPRB,4.9609E+02_JPRB,4.8458E+02_JPRB,4.7355E+02_JPRB,4.6248E+02_JPRB/)
+KAO( :, 4,12) = (/&
+&5.5729E+02_JPRB,5.4777E+02_JPRB,5.3611E+02_JPRB,5.2186E+02_JPRB,5.0830E+02_JPRB/)
+KAO( :, 5,12) = (/&
+&5.9884E+02_JPRB,5.9059E+02_JPRB,5.8025E+02_JPRB,5.6682E+02_JPRB,5.5220E+02_JPRB/)
+KAO( :, 6,12) = (/&
+&6.3069E+02_JPRB,6.2342E+02_JPRB,6.1247E+02_JPRB,5.9971E+02_JPRB,5.8566E+02_JPRB/)
+KAO( :, 7,12) = (/&
+&6.6576E+02_JPRB,6.5415E+02_JPRB,6.3907E+02_JPRB,6.2535E+02_JPRB,6.1174E+02_JPRB/)
+KAO( :, 8,12) = (/&
+&7.0612E+02_JPRB,6.9050E+02_JPRB,6.7253E+02_JPRB,6.5500E+02_JPRB,6.3767E+02_JPRB/)
+KAO( :, 9,12) = (/&
+&7.4151E+02_JPRB,7.2711E+02_JPRB,7.0818E+02_JPRB,6.8887E+02_JPRB,6.6982E+02_JPRB/)
+KAO( :,10,12) = (/&
+&7.6876E+02_JPRB,7.5445E+02_JPRB,7.3627E+02_JPRB,7.1768E+02_JPRB,6.9714E+02_JPRB/)
+KAO( :,11,12) = (/&
+&7.8345E+02_JPRB,7.6652E+02_JPRB,7.4553E+02_JPRB,7.2384E+02_JPRB,7.0114E+02_JPRB/)
+KAO( :,12,12) = (/&
+&7.8623E+02_JPRB,7.6501E+02_JPRB,7.4277E+02_JPRB,7.1917E+02_JPRB,6.9536E+02_JPRB/)
+KAO( :,13,12) = (/&
+&7.6967E+02_JPRB,7.4813E+02_JPRB,7.2429E+02_JPRB,7.0066E+02_JPRB,6.7901E+02_JPRB/)
+KAO( :, 1,13) = (/&
+&5.1329E+02_JPRB,5.0716E+02_JPRB,5.0382E+02_JPRB,4.9878E+02_JPRB,4.9356E+02_JPRB/)
+KAO( :, 2,13) = (/&
+&5.7148E+02_JPRB,5.6846E+02_JPRB,5.6431E+02_JPRB,5.6063E+02_JPRB,5.5653E+02_JPRB/)
+KAO( :, 3,13) = (/&
+&6.5145E+02_JPRB,6.4483E+02_JPRB,6.3790E+02_JPRB,6.3094E+02_JPRB,6.2717E+02_JPRB/)
+KAO( :, 4,13) = (/&
+&7.5002E+02_JPRB,7.3461E+02_JPRB,7.2296E+02_JPRB,7.1138E+02_JPRB,7.0213E+02_JPRB/)
+KAO( :, 5,13) = (/&
+&8.5963E+02_JPRB,8.3647E+02_JPRB,8.1752E+02_JPRB,7.9952E+02_JPRB,7.8427E+02_JPRB/)
+KAO( :, 6,13) = (/&
+&9.6412E+02_JPRB,9.4095E+02_JPRB,9.1679E+02_JPRB,8.9731E+02_JPRB,8.7656E+02_JPRB/)
+KAO( :, 7,13) = (/&
+&1.0550E+03_JPRB,1.0327E+03_JPRB,1.0118E+03_JPRB,9.9247E+02_JPRB,9.6895E+02_JPRB/)
+KAO( :, 8,13) = (/&
+&1.1351E+03_JPRB,1.1102E+03_JPRB,1.0930E+03_JPRB,1.0757E+03_JPRB,1.0518E+03_JPRB/)
+KAO( :, 9,13) = (/&
+&1.2061E+03_JPRB,1.1763E+03_JPRB,1.1581E+03_JPRB,1.1387E+03_JPRB,1.1187E+03_JPRB/)
+KAO( :,10,13) = (/&
+&1.2746E+03_JPRB,1.2431E+03_JPRB,1.2211E+03_JPRB,1.1969E+03_JPRB,1.1743E+03_JPRB/)
+KAO( :,11,13) = (/&
+&1.3270E+03_JPRB,1.3002E+03_JPRB,1.2748E+03_JPRB,1.2457E+03_JPRB,1.2158E+03_JPRB/)
+KAO( :,12,13) = (/&
+&1.3778E+03_JPRB,1.3525E+03_JPRB,1.3230E+03_JPRB,1.2880E+03_JPRB,1.2527E+03_JPRB/)
+KAO( :,13,13) = (/&
+&1.4203E+03_JPRB,1.3956E+03_JPRB,1.3627E+03_JPRB,1.3265E+03_JPRB,1.2880E+03_JPRB/)
+KAO( :, 1,14) = (/&
+&7.0659E+02_JPRB,6.8649E+02_JPRB,6.7585E+02_JPRB,6.6280E+02_JPRB,6.4777E+02_JPRB/)
+KAO( :, 2,14) = (/&
+&8.1314E+02_JPRB,7.9545E+02_JPRB,7.8563E+02_JPRB,7.7042E+02_JPRB,7.6159E+02_JPRB/)
+KAO( :, 3,14) = (/&
+&9.2212E+02_JPRB,9.1802E+02_JPRB,9.0672E+02_JPRB,8.9703E+02_JPRB,8.8878E+02_JPRB/)
+KAO( :, 4,14) = (/&
+&1.0533E+03_JPRB,1.0471E+03_JPRB,1.0407E+03_JPRB,1.0252E+03_JPRB,1.0216E+03_JPRB/)
+KAO( :, 5,14) = (/&
+&1.1902E+03_JPRB,1.1874E+03_JPRB,1.1827E+03_JPRB,1.1705E+03_JPRB,1.1629E+03_JPRB/)
+KAO( :, 6,14) = (/&
+&1.3538E+03_JPRB,1.3468E+03_JPRB,1.3305E+03_JPRB,1.3230E+03_JPRB,1.3152E+03_JPRB/)
+KAO( :, 7,14) = (/&
+&1.5575E+03_JPRB,1.5374E+03_JPRB,1.5135E+03_JPRB,1.4950E+03_JPRB,1.4827E+03_JPRB/)
+KAO( :, 8,14) = (/&
+&1.7978E+03_JPRB,1.7650E+03_JPRB,1.7335E+03_JPRB,1.7038E+03_JPRB,1.6772E+03_JPRB/)
+KAO( :, 9,14) = (/&
+&2.0608E+03_JPRB,2.0242E+03_JPRB,1.9804E+03_JPRB,1.9383E+03_JPRB,1.9020E+03_JPRB/)
+KAO( :,10,14) = (/&
+&2.3189E+03_JPRB,2.2831E+03_JPRB,2.2391E+03_JPRB,2.1847E+03_JPRB,2.1380E+03_JPRB/)
+KAO( :,11,14) = (/&
+&2.5479E+03_JPRB,2.4992E+03_JPRB,2.4561E+03_JPRB,2.4037E+03_JPRB,2.3531E+03_JPRB/)
+KAO( :,12,14) = (/&
+&2.7503E+03_JPRB,2.6955E+03_JPRB,2.6487E+03_JPRB,2.6000E+03_JPRB,2.5509E+03_JPRB/)
+KAO( :,13,14) = (/&
+&2.9348E+03_JPRB,2.8771E+03_JPRB,2.8224E+03_JPRB,2.7731E+03_JPRB,2.7137E+03_JPRB/)
+KAO( :, 1,15) = (/&
+&1.0087E+03_JPRB,9.8320E+02_JPRB,9.7093E+02_JPRB,9.5615E+02_JPRB,9.3254E+02_JPRB/)
+KAO( :, 2,15) = (/&
+&1.2013E+03_JPRB,1.1684E+03_JPRB,1.1519E+03_JPRB,1.1213E+03_JPRB,1.1065E+03_JPRB/)
+KAO( :, 3,15) = (/&
+&1.4276E+03_JPRB,1.4001E+03_JPRB,1.3700E+03_JPRB,1.3257E+03_JPRB,1.3068E+03_JPRB/)
+KAO( :, 4,15) = (/&
+&1.6836E+03_JPRB,1.6523E+03_JPRB,1.6210E+03_JPRB,1.5698E+03_JPRB,1.5625E+03_JPRB/)
+KAO( :, 5,15) = (/&
+&1.9769E+03_JPRB,1.9333E+03_JPRB,1.9035E+03_JPRB,1.8613E+03_JPRB,1.8254E+03_JPRB/)
+KAO( :, 6,15) = (/&
+&2.3172E+03_JPRB,2.2683E+03_JPRB,2.2153E+03_JPRB,2.1871E+03_JPRB,2.1654E+03_JPRB/)
+KAO( :, 7,15) = (/&
+&2.6839E+03_JPRB,2.6608E+03_JPRB,2.5827E+03_JPRB,2.5461E+03_JPRB,2.5090E+03_JPRB/)
+KAO( :, 8,15) = (/&
+&3.0767E+03_JPRB,3.0634E+03_JPRB,3.0007E+03_JPRB,2.9429E+03_JPRB,2.9079E+03_JPRB/)
+KAO( :, 9,15) = (/&
+&3.4941E+03_JPRB,3.4634E+03_JPRB,3.4221E+03_JPRB,3.3814E+03_JPRB,3.3456E+03_JPRB/)
+KAO( :,10,15) = (/&
+&3.9537E+03_JPRB,3.9378E+03_JPRB,3.9008E+03_JPRB,3.8414E+03_JPRB,3.8169E+03_JPRB/)
+KAO( :,11,15) = (/&
+&4.5046E+03_JPRB,4.4637E+03_JPRB,4.4210E+03_JPRB,4.3583E+03_JPRB,4.3332E+03_JPRB/)
+KAO( :,12,15) = (/&
+&5.1528E+03_JPRB,5.0823E+03_JPRB,5.0105E+03_JPRB,4.9465E+03_JPRB,4.9071E+03_JPRB/)
+KAO( :,13,15) = (/&
+&5.8749E+03_JPRB,5.7913E+03_JPRB,5.6995E+03_JPRB,5.6331E+03_JPRB,5.5557E+03_JPRB/)
+KAO( :, 1,16) = (/&
+&1.2189E+03_JPRB,1.2224E+03_JPRB,1.2164E+03_JPRB,1.2064E+03_JPRB,1.1935E+03_JPRB/)
+KAO( :, 2,16) = (/&
+&1.4789E+03_JPRB,1.4888E+03_JPRB,1.4867E+03_JPRB,1.4809E+03_JPRB,1.4687E+03_JPRB/)
+KAO( :, 3,16) = (/&
+&1.8114E+03_JPRB,1.8246E+03_JPRB,1.8350E+03_JPRB,1.8138E+03_JPRB,1.8019E+03_JPRB/)
+KAO( :, 4,16) = (/&
+&2.1704E+03_JPRB,2.2074E+03_JPRB,2.2239E+03_JPRB,2.2048E+03_JPRB,2.2173E+03_JPRB/)
+KAO( :, 5,16) = (/&
+&2.5886E+03_JPRB,2.6353E+03_JPRB,2.6810E+03_JPRB,2.6789E+03_JPRB,2.6704E+03_JPRB/)
+KAO( :, 6,16) = (/&
+&3.0777E+03_JPRB,3.1359E+03_JPRB,3.1850E+03_JPRB,3.2159E+03_JPRB,3.2625E+03_JPRB/)
+KAO( :, 7,16) = (/&
+&3.6815E+03_JPRB,3.7549E+03_JPRB,3.7825E+03_JPRB,3.8441E+03_JPRB,3.9118E+03_JPRB/)
+KAO( :, 8,16) = (/&
+&4.4826E+03_JPRB,4.4982E+03_JPRB,4.5205E+03_JPRB,4.5598E+03_JPRB,4.6673E+03_JPRB/)
+KAO( :, 9,16) = (/&
+&5.4808E+03_JPRB,5.4311E+03_JPRB,5.4325E+03_JPRB,5.4480E+03_JPRB,5.4909E+03_JPRB/)
+KAO( :,10,16) = (/&
+&6.6128E+03_JPRB,6.5719E+03_JPRB,6.5761E+03_JPRB,6.5449E+03_JPRB,6.5647E+03_JPRB/)
+KAO( :,11,16) = (/&
+&7.9375E+03_JPRB,7.9476E+03_JPRB,7.9279E+03_JPRB,7.8912E+03_JPRB,7.8532E+03_JPRB/)
+KAO( :,12,16) = (/&
+&9.5403E+03_JPRB,9.5531E+03_JPRB,9.5122E+03_JPRB,9.4385E+03_JPRB,9.3648E+03_JPRB/)
+KAO( :,13,16) = (/&
+&1.1398E+04_JPRB,1.1400E+04_JPRB,1.1334E+04_JPRB,1.1241E+04_JPRB,1.1075E+04_JPRB/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ &1.84925E+00_JPRB,1.65087E+00_JPRB,1.47377E+00_JPRB,1.31567E+00_JPRB,1.17453E+00_JPRB,&
+ &1.04853E+00_JPRB,9.36042E-01_JPRB,8.35626E-01_JPRB,7.45982E-01_JPRB,6.65955E-01_JPRB/)
+SELFREFO( :, 2) = (/&
+ &5.91460E+00_JPRB,5.37056E+00_JPRB,4.87657E+00_JPRB,4.42802E+00_JPRB,4.02073E+00_JPRB,&
+ &3.65090E+00_JPRB,3.31508E+00_JPRB,3.01016E+00_JPRB,2.73328E+00_JPRB,2.48187E+00_JPRB/)
+SELFREFO( :, 3) = (/&
+ &6.37319E+00_JPRB,5.76807E+00_JPRB,5.22041E+00_JPRB,4.72475E+00_JPRB,4.27614E+00_JPRB,&
+ &3.87014E+00_JPRB,3.50268E+00_JPRB,3.17011E+00_JPRB,2.86911E+00_JPRB,2.59670E+00_JPRB/)
+SELFREFO( :, 4) = (/&
+ &6.24391E+00_JPRB,5.67335E+00_JPRB,5.15493E+00_JPRB,4.68388E+00_JPRB,4.25588E+00_JPRB,&
+ &3.86699E+00_JPRB,3.51363E+00_JPRB,3.19256E+00_JPRB,2.90083E+00_JPRB,2.63576E+00_JPRB/)
+SELFREFO( :, 5) = (/&
+ &6.28855E+00_JPRB,5.70697E+00_JPRB,5.17918E+00_JPRB,4.70019E+00_JPRB,4.26551E+00_JPRB,&
+ &3.87103E+00_JPRB,3.51303E+00_JPRB,3.18813E+00_JPRB,2.89329E+00_JPRB,2.62571E+00_JPRB/)
+SELFREFO( :, 6) = (/&
+ &6.15500E+00_JPRB,5.58229E+00_JPRB,5.06287E+00_JPRB,4.59178E+00_JPRB,4.16453E+00_JPRB,&
+ &3.77703E+00_JPRB,3.42558E+00_JPRB,3.10684E+00_JPRB,2.81776E+00_JPRB,2.55557E+00_JPRB/)
+SELFREFO( :, 7) = (/&
+ &6.25544E+00_JPRB,5.67036E+00_JPRB,5.14000E+00_JPRB,4.65925E+00_JPRB,4.22346E+00_JPRB,&
+ &3.82844E+00_JPRB,3.47036E+00_JPRB,3.14577E+00_JPRB,2.85154E+00_JPRB,2.58483E+00_JPRB/)
+SELFREFO( :, 8) = (/&
+ &6.08431E+00_JPRB,5.55653E+00_JPRB,5.07454E+00_JPRB,4.63436E+00_JPRB,4.23236E+00_JPRB,&
+ &3.86523E+00_JPRB,3.52994E+00_JPRB,3.22374E+00_JPRB,2.94410E+00_JPRB,2.68872E+00_JPRB/)
+SELFREFO( :, 9) = (/&
+ &6.22772E+00_JPRB,5.71381E+00_JPRB,5.24231E+00_JPRB,4.80972E+00_JPRB,4.41282E+00_JPRB,&
+ &4.04868E+00_JPRB,3.71458E+00_JPRB,3.40806E+00_JPRB,3.12683E+00_JPRB,2.86880E+00_JPRB/)
+SELFREFO( :,10) = (/&
+ &6.63397E+00_JPRB,6.10398E+00_JPRB,5.61633E+00_JPRB,5.16764E+00_JPRB,4.75480E+00_JPRB,&
+ &4.37494E+00_JPRB,4.02543E+00_JPRB,3.70384E+00_JPRB,3.40794E+00_JPRB,3.13568E+00_JPRB/)
+SELFREFO( :,11) = (/&
+ &7.05802E+00_JPRB,6.40896E+00_JPRB,5.81959E+00_JPRB,5.28442E+00_JPRB,4.79846E+00_JPRB,&
+ &4.35719E+00_JPRB,3.95651E+00_JPRB,3.59266E+00_JPRB,3.26228E+00_JPRB,2.96228E+00_JPRB/)
+SELFREFO( :,12) = (/&
+ &7.26302E+00_JPRB,6.57623E+00_JPRB,5.95438E+00_JPRB,5.39134E+00_JPRB,4.88153E+00_JPRB,&
+ &4.41994E+00_JPRB,4.00199E+00_JPRB,3.62356E+00_JPRB,3.28092E+00_JPRB,2.97067E+00_JPRB/)
+SELFREFO( :,13) = (/&
+ &6.76462E+00_JPRB,6.23813E+00_JPRB,5.75262E+00_JPRB,5.30490E+00_JPRB,4.89202E+00_JPRB,&
+ &4.51128E+00_JPRB,4.16017E+00_JPRB,3.83638E+00_JPRB,3.53780E+00_JPRB,3.26245E+00_JPRB/)
+SELFREFO( :,14) = (/&
+ &7.35977E+00_JPRB,6.71848E+00_JPRB,6.13306E+00_JPRB,5.59866E+00_JPRB,5.11082E+00_JPRB,&
+ &4.66549E+00_JPRB,4.25896E+00_JPRB,3.88786E+00_JPRB,3.54909E+00_JPRB,3.23984E+00_JPRB/)
+SELFREFO( :,15) = (/&
+ &7.51978E+00_JPRB,6.83155E+00_JPRB,6.20632E+00_JPRB,5.63830E+00_JPRB,5.12227E+00_JPRB,&
+ &4.65347E+00_JPRB,4.22758E+00_JPRB,3.84066E+00_JPRB,3.48915E+00_JPRB,3.16982E+00_JPRB/)
+SELFREFO( :,16) = (/&
+ &6.95561E+00_JPRB,6.36239E+00_JPRB,5.81977E+00_JPRB,5.32342E+00_JPRB,4.86941E+00_JPRB,&
+ &4.45411E+00_JPRB,4.07424E+00_JPRB,3.72676E+00_JPRB,3.40892E+00_JPRB,3.11819E+00_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB1_01
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb1_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb1_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb1_02.F90	(revision 2160)
@@ -0,0 +1,1539 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB1_02
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO1 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
+           &FRACREFBO  ,FORREFO
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&6.6025E-02_JPRB,6.0321E-02_JPRB,5.5586E-02_JPRB,5.1665E-02_JPRB,4.8458E-02_JPRB/)
+KBO( :,14, 1) = (/&
+&6.0235E-02_JPRB,5.5378E-02_JPRB,5.1361E-02_JPRB,4.8017E-02_JPRB,4.5225E-02_JPRB/)
+KBO( :,15, 1) = (/&
+&5.4400E-02_JPRB,5.0262E-02_JPRB,4.6762E-02_JPRB,4.3816E-02_JPRB,4.1346E-02_JPRB/)
+KBO( :,16, 1) = (/&
+&4.7050E-02_JPRB,4.3532E-02_JPRB,4.0554E-02_JPRB,3.8051E-02_JPRB,3.5973E-02_JPRB/)
+KBO( :,17, 1) = (/&
+&4.0158E-02_JPRB,3.7199E-02_JPRB,3.4718E-02_JPRB,3.2658E-02_JPRB,3.0958E-02_JPRB/)
+KBO( :,18, 1) = (/&
+&3.3944E-02_JPRB,3.1506E-02_JPRB,2.9487E-02_JPRB,2.7811E-02_JPRB,2.6421E-02_JPRB/)
+KBO( :,19, 1) = (/&
+&2.8784E-02_JPRB,2.6805E-02_JPRB,2.5163E-02_JPRB,2.3816E-02_JPRB,2.2648E-02_JPRB/)
+KBO( :,20, 1) = (/&
+&2.4061E-02_JPRB,2.2468E-02_JPRB,2.1155E-02_JPRB,2.0067E-02_JPRB,1.9096E-02_JPRB/)
+KBO( :,21, 1) = (/&
+&2.0001E-02_JPRB,1.8722E-02_JPRB,1.7675E-02_JPRB,1.6787E-02_JPRB,1.5981E-02_JPRB/)
+KBO( :,22, 1) = (/&
+&1.6465E-02_JPRB,1.5454E-02_JPRB,1.4621E-02_JPRB,1.3904E-02_JPRB,1.3240E-02_JPRB/)
+KBO( :,23, 1) = (/&
+&1.3531E-02_JPRB,1.2731E-02_JPRB,1.2060E-02_JPRB,1.1483E-02_JPRB,1.0937E-02_JPRB/)
+KBO( :,24, 1) = (/&
+&1.1122E-02_JPRB,1.0488E-02_JPRB,9.9449E-03_JPRB,9.4777E-03_JPRB,9.0360E-03_JPRB/)
+KBO( :,25, 1) = (/&
+&9.1073E-03_JPRB,8.6036E-03_JPRB,8.1702E-03_JPRB,7.7857E-03_JPRB,7.4321E-03_JPRB/)
+KBO( :,26, 1) = (/&
+&7.4301E-03_JPRB,7.0285E-03_JPRB,6.6816E-03_JPRB,6.3677E-03_JPRB,6.0862E-03_JPRB/)
+KBO( :,27, 1) = (/&
+&6.0232E-03_JPRB,5.7026E-03_JPRB,5.4272E-03_JPRB,5.1710E-03_JPRB,4.9473E-03_JPRB/)
+KBO( :,28, 1) = (/&
+&4.8603E-03_JPRB,4.6055E-03_JPRB,4.3859E-03_JPRB,4.1792E-03_JPRB,4.0017E-03_JPRB/)
+KBO( :,29, 1) = (/&
+&3.8797E-03_JPRB,3.6792E-03_JPRB,3.5020E-03_JPRB,3.3388E-03_JPRB,3.1981E-03_JPRB/)
+KBO( :,30, 1) = (/&
+&3.0812E-03_JPRB,2.9236E-03_JPRB,2.7805E-03_JPRB,2.6518E-03_JPRB,2.5406E-03_JPRB/)
+KBO( :,31, 1) = (/&
+&2.4193E-03_JPRB,2.2960E-03_JPRB,2.1816E-03_JPRB,2.0808E-03_JPRB,1.9933E-03_JPRB/)
+KBO( :,32, 1) = (/&
+&1.8919E-03_JPRB,1.7956E-03_JPRB,1.7054E-03_JPRB,1.6268E-03_JPRB,1.5587E-03_JPRB/)
+KBO( :,33, 1) = (/&
+&1.4723E-03_JPRB,1.3971E-03_JPRB,1.3273E-03_JPRB,1.2662E-03_JPRB,1.2122E-03_JPRB/)
+KBO( :,34, 1) = (/&
+&1.1545E-03_JPRB,1.0954E-03_JPRB,1.0408E-03_JPRB,9.9313E-04_JPRB,9.5040E-04_JPRB/)
+KBO( :,35, 1) = (/&
+&9.0984E-04_JPRB,8.6285E-04_JPRB,8.1968E-04_JPRB,7.8221E-04_JPRB,7.4823E-04_JPRB/)
+KBO( :,36, 1) = (/&
+&7.2230E-04_JPRB,6.8430E-04_JPRB,6.4998E-04_JPRB,6.2002E-04_JPRB,5.9274E-04_JPRB/)
+KBO( :,37, 1) = (/&
+&5.8190E-04_JPRB,5.5079E-04_JPRB,5.2276E-04_JPRB,4.9827E-04_JPRB,4.7605E-04_JPRB/)
+KBO( :,38, 1) = (/&
+&4.6798E-04_JPRB,4.4253E-04_JPRB,4.1941E-04_JPRB,3.9951E-04_JPRB,3.8152E-04_JPRB/)
+KBO( :,39, 1) = (/&
+&3.7512E-04_JPRB,3.5422E-04_JPRB,3.3519E-04_JPRB,3.1894E-04_JPRB,3.0452E-04_JPRB/)
+KBO( :,40, 1) = (/&
+&3.0666E-04_JPRB,2.8941E-04_JPRB,2.7336E-04_JPRB,2.6010E-04_JPRB,2.4845E-04_JPRB/)
+KBO( :,41, 1) = (/&
+&2.5152E-04_JPRB,2.3686E-04_JPRB,2.2364E-04_JPRB,2.1291E-04_JPRB,2.0310E-04_JPRB/)
+KBO( :,42, 1) = (/&
+&2.0566E-04_JPRB,1.9385E-04_JPRB,1.8299E-04_JPRB,1.7309E-04_JPRB,1.6576E-04_JPRB/)
+KBO( :,43, 1) = (/&
+&1.6932E-04_JPRB,1.5934E-04_JPRB,1.5033E-04_JPRB,1.4188E-04_JPRB,1.3564E-04_JPRB/)
+KBO( :,44, 1) = (/&
+&1.3958E-04_JPRB,1.3104E-04_JPRB,1.2350E-04_JPRB,1.1633E-04_JPRB,1.1027E-04_JPRB/)
+KBO( :,45, 1) = (/&
+&1.1479E-04_JPRB,1.0750E-04_JPRB,1.0104E-04_JPRB,9.5141E-05_JPRB,8.9953E-05_JPRB/)
+KBO( :,46, 1) = (/&
+&9.4553E-05_JPRB,8.8276E-05_JPRB,8.2742E-05_JPRB,7.7888E-05_JPRB,7.3435E-05_JPRB/)
+KBO( :,47, 1) = (/&
+&7.8399E-05_JPRB,7.2932E-05_JPRB,6.8177E-05_JPRB,6.4080E-05_JPRB,6.0318E-05_JPRB/)
+KBO( :,48, 1) = (/&
+&6.4849E-05_JPRB,5.9884E-05_JPRB,5.6012E-05_JPRB,5.2488E-05_JPRB,4.9388E-05_JPRB/)
+KBO( :,49, 1) = (/&
+&5.3502E-05_JPRB,4.9159E-05_JPRB,4.5822E-05_JPRB,4.2806E-05_JPRB,4.0245E-05_JPRB/)
+KBO( :,50, 1) = (/&
+&4.4506E-05_JPRB,4.0716E-05_JPRB,3.7652E-05_JPRB,3.5217E-05_JPRB,3.3017E-05_JPRB/)
+KBO( :,51, 1) = (/&
+&3.7201E-05_JPRB,3.3887E-05_JPRB,3.1219E-05_JPRB,2.9106E-05_JPRB,2.7216E-05_JPRB/)
+KBO( :,52, 1) = (/&
+&3.0990E-05_JPRB,2.8176E-05_JPRB,2.5850E-05_JPRB,2.4002E-05_JPRB,2.2382E-05_JPRB/)
+KBO( :,53, 1) = (/&
+&2.5835E-05_JPRB,2.3389E-05_JPRB,2.1361E-05_JPRB,1.9746E-05_JPRB,1.8343E-05_JPRB/)
+KBO( :,54, 1) = (/&
+&2.1861E-05_JPRB,1.9731E-05_JPRB,1.7961E-05_JPRB,1.6554E-05_JPRB,1.5340E-05_JPRB/)
+KBO( :,55, 1) = (/&
+&1.8660E-05_JPRB,1.6806E-05_JPRB,1.5260E-05_JPRB,1.3974E-05_JPRB,1.2979E-05_JPRB/)
+KBO( :,56, 1) = (/&
+&1.5934E-05_JPRB,1.4319E-05_JPRB,1.2975E-05_JPRB,1.1855E-05_JPRB,1.0987E-05_JPRB/)
+KBO( :,57, 1) = (/&
+&1.3617E-05_JPRB,1.2204E-05_JPRB,1.1040E-05_JPRB,1.0065E-05_JPRB,9.2784E-06_JPRB/)
+KBO( :,58, 1) = (/&
+&1.1657E-05_JPRB,1.0421E-05_JPRB,9.4154E-06_JPRB,8.5710E-06_JPRB,7.8889E-06_JPRB/)
+KBO( :,59, 1) = (/&
+&1.0037E-05_JPRB,8.9852E-06_JPRB,8.1354E-06_JPRB,7.4217E-06_JPRB,6.8483E-06_JPRB/)
+KBO( :,13, 2) = (/&
+&1.7296E-01_JPRB,1.6235E-01_JPRB,1.5299E-01_JPRB,1.4476E-01_JPRB,1.3736E-01_JPRB/)
+KBO( :,14, 2) = (/&
+&1.4802E-01_JPRB,1.3939E-01_JPRB,1.3201E-01_JPRB,1.2559E-01_JPRB,1.1999E-01_JPRB/)
+KBO( :,15, 2) = (/&
+&1.2666E-01_JPRB,1.2001E-01_JPRB,1.1439E-01_JPRB,1.0960E-01_JPRB,1.0553E-01_JPRB/)
+KBO( :,16, 2) = (/&
+&1.0662E-01_JPRB,1.0147E-01_JPRB,9.7166E-02_JPRB,9.3517E-02_JPRB,9.0354E-02_JPRB/)
+KBO( :,17, 2) = (/&
+&8.9370E-02_JPRB,8.5365E-02_JPRB,8.2044E-02_JPRB,7.9207E-02_JPRB,7.6642E-02_JPRB/)
+KBO( :,18, 2) = (/&
+&7.4539E-02_JPRB,7.1393E-02_JPRB,6.8781E-02_JPRB,6.6515E-02_JPRB,6.4461E-02_JPRB/)
+KBO( :,19, 2) = (/&
+&6.2471E-02_JPRB,5.9987E-02_JPRB,5.7923E-02_JPRB,5.6100E-02_JPRB,5.4514E-02_JPRB/)
+KBO( :,20, 2) = (/&
+&5.1909E-02_JPRB,4.9946E-02_JPRB,4.8296E-02_JPRB,4.6857E-02_JPRB,4.5636E-02_JPRB/)
+KBO( :,21, 2) = (/&
+&4.2988E-02_JPRB,4.1439E-02_JPRB,4.0114E-02_JPRB,3.8994E-02_JPRB,3.8038E-02_JPRB/)
+KBO( :,22, 2) = (/&
+&3.5398E-02_JPRB,3.4178E-02_JPRB,3.3135E-02_JPRB,3.2273E-02_JPRB,3.1510E-02_JPRB/)
+KBO( :,23, 2) = (/&
+&2.9122E-02_JPRB,2.8160E-02_JPRB,2.7348E-02_JPRB,2.6671E-02_JPRB,2.6057E-02_JPRB/)
+KBO( :,24, 2) = (/&
+&2.4007E-02_JPRB,2.3245E-02_JPRB,2.2611E-02_JPRB,2.2076E-02_JPRB,2.1589E-02_JPRB/)
+KBO( :,25, 2) = (/&
+&1.9740E-02_JPRB,1.9139E-02_JPRB,1.8649E-02_JPRB,1.8220E-02_JPRB,1.7833E-02_JPRB/)
+KBO( :,26, 2) = (/&
+&1.6183E-02_JPRB,1.5716E-02_JPRB,1.5331E-02_JPRB,1.4993E-02_JPRB,1.4681E-02_JPRB/)
+KBO( :,27, 2) = (/&
+&1.3189E-02_JPRB,1.2828E-02_JPRB,1.2525E-02_JPRB,1.2251E-02_JPRB,1.1998E-02_JPRB/)
+KBO( :,28, 2) = (/&
+&1.0709E-02_JPRB,1.0427E-02_JPRB,1.0183E-02_JPRB,9.9604E-03_JPRB,9.7547E-03_JPRB/)
+KBO( :,29, 2) = (/&
+&8.6054E-03_JPRB,8.3799E-03_JPRB,8.1829E-03_JPRB,8.0027E-03_JPRB,7.8337E-03_JPRB/)
+KBO( :,30, 2) = (/&
+&6.8847E-03_JPRB,6.7028E-03_JPRB,6.5429E-03_JPRB,6.3953E-03_JPRB,6.2560E-03_JPRB/)
+KBO( :,31, 2) = (/&
+&5.4573E-03_JPRB,5.3105E-03_JPRB,5.1791E-03_JPRB,5.0569E-03_JPRB,4.9413E-03_JPRB/)
+KBO( :,32, 2) = (/&
+&4.3219E-03_JPRB,4.2029E-03_JPRB,4.0937E-03_JPRB,3.9929E-03_JPRB,3.8969E-03_JPRB/)
+KBO( :,33, 2) = (/&
+&3.4170E-03_JPRB,3.3182E-03_JPRB,3.2286E-03_JPRB,3.1450E-03_JPRB,3.0655E-03_JPRB/)
+KBO( :,34, 2) = (/&
+&2.7189E-03_JPRB,2.6370E-03_JPRB,2.5635E-03_JPRB,2.4948E-03_JPRB,2.4287E-03_JPRB/)
+KBO( :,35, 2) = (/&
+&2.1701E-03_JPRB,2.1021E-03_JPRB,2.0414E-03_JPRB,1.9845E-03_JPRB,1.9298E-03_JPRB/)
+KBO( :,36, 2) = (/&
+&1.7404E-03_JPRB,1.6842E-03_JPRB,1.6334E-03_JPRB,1.5862E-03_JPRB,1.5407E-03_JPRB/)
+KBO( :,37, 2) = (/&
+&1.4096E-03_JPRB,1.3631E-03_JPRB,1.3204E-03_JPRB,1.2809E-03_JPRB,1.2432E-03_JPRB/)
+KBO( :,38, 2) = (/&
+&1.1406E-03_JPRB,1.1018E-03_JPRB,1.0661E-03_JPRB,1.0329E-03_JPRB,1.0017E-03_JPRB/)
+KBO( :,39, 2) = (/&
+&9.2061E-04_JPRB,8.8850E-04_JPRB,8.5860E-04_JPRB,8.3080E-04_JPRB,8.0479E-04_JPRB/)
+KBO( :,40, 2) = (/&
+&7.5311E-04_JPRB,7.2636E-04_JPRB,7.0127E-04_JPRB,6.7848E-04_JPRB,6.5692E-04_JPRB/)
+KBO( :,41, 2) = (/&
+&6.1744E-04_JPRB,5.9466E-04_JPRB,5.7382E-04_JPRB,5.5531E-04_JPRB,5.3731E-04_JPRB/)
+KBO( :,42, 2) = (/&
+&5.0580E-04_JPRB,4.8681E-04_JPRB,4.6945E-04_JPRB,4.5312E-04_JPRB,4.3911E-04_JPRB/)
+KBO( :,43, 2) = (/&
+&4.1621E-04_JPRB,3.9990E-04_JPRB,3.8526E-04_JPRB,3.7146E-04_JPRB,3.5984E-04_JPRB/)
+KBO( :,44, 2) = (/&
+&3.4312E-04_JPRB,3.2894E-04_JPRB,3.1642E-04_JPRB,3.0474E-04_JPRB,2.9403E-04_JPRB/)
+KBO( :,45, 2) = (/&
+&2.8281E-04_JPRB,2.7042E-04_JPRB,2.5951E-04_JPRB,2.4968E-04_JPRB,2.4057E-04_JPRB/)
+KBO( :,46, 2) = (/&
+&2.3357E-04_JPRB,2.2272E-04_JPRB,2.1318E-04_JPRB,2.0478E-04_JPRB,1.9704E-04_JPRB/)
+KBO( :,47, 2) = (/&
+&1.9389E-04_JPRB,1.8431E-04_JPRB,1.7596E-04_JPRB,1.6864E-04_JPRB,1.6210E-04_JPRB/)
+KBO( :,48, 2) = (/&
+&1.6095E-04_JPRB,1.5228E-04_JPRB,1.4517E-04_JPRB,1.3875E-04_JPRB,1.3313E-04_JPRB/)
+KBO( :,49, 2) = (/&
+&1.3353E-04_JPRB,1.2596E-04_JPRB,1.1967E-04_JPRB,1.1403E-04_JPRB,1.0914E-04_JPRB/)
+KBO( :,50, 2) = (/&
+&1.1117E-04_JPRB,1.0462E-04_JPRB,9.8990E-05_JPRB,9.4240E-05_JPRB,8.9977E-05_JPRB/)
+KBO( :,51, 2) = (/&
+&9.2729E-05_JPRB,8.7105E-05_JPRB,8.2233E-05_JPRB,7.8109E-05_JPRB,7.4418E-05_JPRB/)
+KBO( :,52, 2) = (/&
+&7.7287E-05_JPRB,7.2506E-05_JPRB,6.8306E-05_JPRB,6.4721E-05_JPRB,6.1530E-05_JPRB/)
+KBO( :,53, 2) = (/&
+&6.4464E-05_JPRB,6.0324E-05_JPRB,5.6713E-05_JPRB,5.3606E-05_JPRB,5.0841E-05_JPRB/)
+KBO( :,54, 2) = (/&
+&5.4091E-05_JPRB,5.0519E-05_JPRB,4.7424E-05_JPRB,4.4759E-05_JPRB,4.2387E-05_JPRB/)
+KBO( :,55, 2) = (/&
+&4.5573E-05_JPRB,4.2477E-05_JPRB,3.9832E-05_JPRB,3.7495E-05_JPRB,3.5529E-05_JPRB/)
+KBO( :,56, 2) = (/&
+&3.8441E-05_JPRB,3.5737E-05_JPRB,3.3472E-05_JPRB,3.1478E-05_JPRB,2.9797E-05_JPRB/)
+KBO( :,57, 2) = (/&
+&3.2461E-05_JPRB,3.0095E-05_JPRB,2.8145E-05_JPRB,2.6441E-05_JPRB,2.4970E-05_JPRB/)
+KBO( :,58, 2) = (/&
+&2.7443E-05_JPRB,2.5378E-05_JPRB,2.3692E-05_JPRB,2.2241E-05_JPRB,2.0988E-05_JPRB/)
+KBO( :,59, 2) = (/&
+&2.3149E-05_JPRB,2.1418E-05_JPRB,2.0012E-05_JPRB,1.8802E-05_JPRB,1.7768E-05_JPRB/)
+KBO( :,13, 3) = (/&
+&2.8224E-01_JPRB,2.6908E-01_JPRB,2.5766E-01_JPRB,2.4741E-01_JPRB,2.3813E-01_JPRB/)
+KBO( :,14, 3) = (/&
+&2.4257E-01_JPRB,2.3240E-01_JPRB,2.2331E-01_JPRB,2.1490E-01_JPRB,2.0721E-01_JPRB/)
+KBO( :,15, 3) = (/&
+&2.0889E-01_JPRB,2.0084E-01_JPRB,1.9363E-01_JPRB,1.8713E-01_JPRB,1.8096E-01_JPRB/)
+KBO( :,16, 3) = (/&
+&1.7673E-01_JPRB,1.7035E-01_JPRB,1.6477E-01_JPRB,1.5966E-01_JPRB,1.5481E-01_JPRB/)
+KBO( :,17, 3) = (/&
+&1.4881E-01_JPRB,1.4382E-01_JPRB,1.3951E-01_JPRB,1.3543E-01_JPRB,1.3171E-01_JPRB/)
+KBO( :,18, 3) = (/&
+&1.2458E-01_JPRB,1.2075E-01_JPRB,1.1737E-01_JPRB,1.1420E-01_JPRB,1.1137E-01_JPRB/)
+KBO( :,19, 3) = (/&
+&1.0492E-01_JPRB,1.0202E-01_JPRB,9.9387E-02_JPRB,9.7022E-02_JPRB,9.4878E-02_JPRB/)
+KBO( :,20, 3) = (/&
+&8.7628E-02_JPRB,8.5398E-02_JPRB,8.3368E-02_JPRB,8.1588E-02_JPRB,7.9957E-02_JPRB/)
+KBO( :,21, 3) = (/&
+&7.2933E-02_JPRB,7.1178E-02_JPRB,6.9640E-02_JPRB,6.8291E-02_JPRB,6.7043E-02_JPRB/)
+KBO( :,22, 3) = (/&
+&6.0366E-02_JPRB,5.8999E-02_JPRB,5.7832E-02_JPRB,5.6813E-02_JPRB,5.5848E-02_JPRB/)
+KBO( :,23, 3) = (/&
+&4.9914E-02_JPRB,4.8873E-02_JPRB,4.8003E-02_JPRB,4.7216E-02_JPRB,4.6455E-02_JPRB/)
+KBO( :,24, 3) = (/&
+&4.1391E-02_JPRB,4.0620E-02_JPRB,3.9959E-02_JPRB,3.9347E-02_JPRB,3.8754E-02_JPRB/)
+KBO( :,25, 3) = (/&
+&3.4252E-02_JPRB,3.3678E-02_JPRB,3.3169E-02_JPRB,3.2674E-02_JPRB,3.2208E-02_JPRB/)
+KBO( :,26, 3) = (/&
+&2.8274E-02_JPRB,2.7835E-02_JPRB,2.7424E-02_JPRB,2.7032E-02_JPRB,2.6670E-02_JPRB/)
+KBO( :,27, 3) = (/&
+&2.3167E-02_JPRB,2.2814E-02_JPRB,2.2487E-02_JPRB,2.2168E-02_JPRB,2.1877E-02_JPRB/)
+KBO( :,28, 3) = (/&
+&1.8878E-02_JPRB,1.8591E-02_JPRB,1.8322E-02_JPRB,1.8060E-02_JPRB,1.7820E-02_JPRB/)
+KBO( :,29, 3) = (/&
+&1.5174E-02_JPRB,1.4934E-02_JPRB,1.4701E-02_JPRB,1.4483E-02_JPRB,1.4279E-02_JPRB/)
+KBO( :,30, 3) = (/&
+&1.2128E-02_JPRB,1.1922E-02_JPRB,1.1721E-02_JPRB,1.1534E-02_JPRB,1.1359E-02_JPRB/)
+KBO( :,31, 3) = (/&
+&9.5821E-03_JPRB,9.4015E-03_JPRB,9.2253E-03_JPRB,9.0655E-03_JPRB,8.9152E-03_JPRB/)
+KBO( :,32, 3) = (/&
+&7.5634E-03_JPRB,7.4049E-03_JPRB,7.2553E-03_JPRB,7.1189E-03_JPRB,6.9900E-03_JPRB/)
+KBO( :,33, 3) = (/&
+&5.9579E-03_JPRB,5.8225E-03_JPRB,5.6947E-03_JPRB,5.5780E-03_JPRB,5.4685E-03_JPRB/)
+KBO( :,34, 3) = (/&
+&4.7299E-03_JPRB,4.6155E-03_JPRB,4.5082E-03_JPRB,4.4109E-03_JPRB,4.3191E-03_JPRB/)
+KBO( :,35, 3) = (/&
+&3.7680E-03_JPRB,3.6721E-03_JPRB,3.5816E-03_JPRB,3.4997E-03_JPRB,3.4229E-03_JPRB/)
+KBO( :,36, 3) = (/&
+&3.0177E-03_JPRB,2.9373E-03_JPRB,2.8611E-03_JPRB,2.7917E-03_JPRB,2.7276E-03_JPRB/)
+KBO( :,37, 3) = (/&
+&2.4418E-03_JPRB,2.3740E-03_JPRB,2.3098E-03_JPRB,2.2509E-03_JPRB,2.1971E-03_JPRB/)
+KBO( :,38, 3) = (/&
+&1.9747E-03_JPRB,1.9173E-03_JPRB,1.8635E-03_JPRB,1.8136E-03_JPRB,1.7682E-03_JPRB/)
+KBO( :,39, 3) = (/&
+&1.5944E-03_JPRB,1.5460E-03_JPRB,1.5009E-03_JPRB,1.4588E-03_JPRB,1.4203E-03_JPRB/)
+KBO( :,40, 3) = (/&
+&1.3041E-03_JPRB,1.2634E-03_JPRB,1.2255E-03_JPRB,1.1907E-03_JPRB,1.1583E-03_JPRB/)
+KBO( :,41, 3) = (/&
+&1.0685E-03_JPRB,1.0341E-03_JPRB,1.0025E-03_JPRB,9.7393E-04_JPRB,9.4659E-04_JPRB/)
+KBO( :,42, 3) = (/&
+&8.7449E-04_JPRB,8.4639E-04_JPRB,8.1987E-04_JPRB,7.9484E-04_JPRB,7.7315E-04_JPRB/)
+KBO( :,43, 3) = (/&
+&7.1788E-04_JPRB,6.9483E-04_JPRB,6.7250E-04_JPRB,6.5138E-04_JPRB,6.3319E-04_JPRB/)
+KBO( :,44, 3) = (/&
+&5.8977E-04_JPRB,5.7088E-04_JPRB,5.5200E-04_JPRB,5.3418E-04_JPRB,5.1765E-04_JPRB/)
+KBO( :,45, 3) = (/&
+&4.8411E-04_JPRB,4.6836E-04_JPRB,4.5260E-04_JPRB,4.3755E-04_JPRB,4.2370E-04_JPRB/)
+KBO( :,46, 3) = (/&
+&3.9795E-04_JPRB,3.8453E-04_JPRB,3.7150E-04_JPRB,3.5880E-04_JPRB,3.4714E-04_JPRB/)
+KBO( :,47, 3) = (/&
+&3.2839E-04_JPRB,3.1685E-04_JPRB,3.0597E-04_JPRB,2.9536E-04_JPRB,2.8543E-04_JPRB/)
+KBO( :,48, 3) = (/&
+&2.7072E-04_JPRB,2.6046E-04_JPRB,2.5163E-04_JPRB,2.4282E-04_JPRB,2.3441E-04_JPRB/)
+KBO( :,49, 3) = (/&
+&2.2287E-04_JPRB,2.1412E-04_JPRB,2.0662E-04_JPRB,1.9921E-04_JPRB,1.9220E-04_JPRB/)
+KBO( :,50, 3) = (/&
+&1.8426E-04_JPRB,1.7673E-04_JPRB,1.7009E-04_JPRB,1.6411E-04_JPRB,1.5828E-04_JPRB/)
+KBO( :,51, 3) = (/&
+&1.5273E-04_JPRB,1.4618E-04_JPRB,1.4053E-04_JPRB,1.3551E-04_JPRB,1.3063E-04_JPRB/)
+KBO( :,52, 3) = (/&
+&1.2644E-04_JPRB,1.2087E-04_JPRB,1.1601E-04_JPRB,1.1179E-04_JPRB,1.0769E-04_JPRB/)
+KBO( :,53, 3) = (/&
+&1.0472E-04_JPRB,9.9917E-05_JPRB,9.5685E-05_JPRB,9.2134E-05_JPRB,8.8673E-05_JPRB/)
+KBO( :,54, 3) = (/&
+&8.7277E-05_JPRB,8.3176E-05_JPRB,7.9528E-05_JPRB,7.6521E-05_JPRB,7.3630E-05_JPRB/)
+KBO( :,55, 3) = (/&
+&7.3027E-05_JPRB,6.9537E-05_JPRB,6.6419E-05_JPRB,6.3736E-05_JPRB,6.1447E-05_JPRB/)
+KBO( :,56, 3) = (/&
+&6.1140E-05_JPRB,5.8170E-05_JPRB,5.5506E-05_JPRB,5.3220E-05_JPRB,5.1302E-05_JPRB/)
+KBO( :,57, 3) = (/&
+&5.1226E-05_JPRB,4.8684E-05_JPRB,4.6422E-05_JPRB,4.4463E-05_JPRB,4.2775E-05_JPRB/)
+KBO( :,58, 3) = (/&
+&4.2970E-05_JPRB,4.0795E-05_JPRB,3.8883E-05_JPRB,3.7209E-05_JPRB,3.5788E-05_JPRB/)
+KBO( :,59, 3) = (/&
+&3.6137E-05_JPRB,3.4363E-05_JPRB,3.2789E-05_JPRB,3.1431E-05_JPRB,3.0267E-05_JPRB/)
+KBO( :,13, 4) = (/&
+&4.4498E-01_JPRB,4.2624E-01_JPRB,4.0964E-01_JPRB,3.9457E-01_JPRB,3.8094E-01_JPRB/)
+KBO( :,14, 4) = (/&
+&3.8421E-01_JPRB,3.6885E-01_JPRB,3.5551E-01_JPRB,3.4386E-01_JPRB,3.3352E-01_JPRB/)
+KBO( :,15, 4) = (/&
+&3.3432E-01_JPRB,3.2219E-01_JPRB,3.1159E-01_JPRB,3.0226E-01_JPRB,2.9429E-01_JPRB/)
+KBO( :,16, 4) = (/&
+&2.8560E-01_JPRB,2.7613E-01_JPRB,2.6777E-01_JPRB,2.6061E-01_JPRB,2.5464E-01_JPRB/)
+KBO( :,17, 4) = (/&
+&2.4342E-01_JPRB,2.3605E-01_JPRB,2.2955E-01_JPRB,2.2421E-01_JPRB,2.1979E-01_JPRB/)
+KBO( :,18, 4) = (/&
+&2.0619E-01_JPRB,2.0048E-01_JPRB,1.9555E-01_JPRB,1.9161E-01_JPRB,1.8825E-01_JPRB/)
+KBO( :,19, 4) = (/&
+&1.7598E-01_JPRB,1.7158E-01_JPRB,1.6796E-01_JPRB,1.6505E-01_JPRB,1.6259E-01_JPRB/)
+KBO( :,20, 4) = (/&
+&1.4854E-01_JPRB,1.4525E-01_JPRB,1.4255E-01_JPRB,1.4041E-01_JPRB,1.3862E-01_JPRB/)
+KBO( :,21, 4) = (/&
+&1.2481E-01_JPRB,1.2236E-01_JPRB,1.2038E-01_JPRB,1.1880E-01_JPRB,1.1756E-01_JPRB/)
+KBO( :,22, 4) = (/&
+&1.0419E-01_JPRB,1.0238E-01_JPRB,1.0094E-01_JPRB,9.9828E-02_JPRB,9.8963E-02_JPRB/)
+KBO( :,23, 4) = (/&
+&8.6892E-02_JPRB,8.5552E-02_JPRB,8.4508E-02_JPRB,8.3742E-02_JPRB,8.3137E-02_JPRB/)
+KBO( :,24, 4) = (/&
+&7.2705E-02_JPRB,7.1741E-02_JPRB,7.1008E-02_JPRB,7.0499E-02_JPRB,7.0039E-02_JPRB/)
+KBO( :,25, 4) = (/&
+&6.0676E-02_JPRB,5.9993E-02_JPRB,5.9492E-02_JPRB,5.9114E-02_JPRB,5.8730E-02_JPRB/)
+KBO( :,26, 4) = (/&
+&5.0468E-02_JPRB,4.9976E-02_JPRB,4.9610E-02_JPRB,4.9307E-02_JPRB,4.8978E-02_JPRB/)
+KBO( :,27, 4) = (/&
+&4.1559E-02_JPRB,4.1193E-02_JPRB,4.0911E-02_JPRB,4.0637E-02_JPRB,4.0354E-02_JPRB/)
+KBO( :,28, 4) = (/&
+&3.3971E-02_JPRB,3.3679E-02_JPRB,3.3442E-02_JPRB,3.3204E-02_JPRB,3.2964E-02_JPRB/)
+KBO( :,29, 4) = (/&
+&2.7264E-02_JPRB,2.7013E-02_JPRB,2.6808E-02_JPRB,2.6604E-02_JPRB,2.6386E-02_JPRB/)
+KBO( :,30, 4) = (/&
+&2.1713E-02_JPRB,2.1498E-02_JPRB,2.1318E-02_JPRB,2.1130E-02_JPRB,2.0938E-02_JPRB/)
+KBO( :,31, 4) = (/&
+&1.7042E-02_JPRB,1.6858E-02_JPRB,1.6691E-02_JPRB,1.6519E-02_JPRB,1.6352E-02_JPRB/)
+KBO( :,32, 4) = (/&
+&1.3370E-02_JPRB,1.3212E-02_JPRB,1.3061E-02_JPRB,1.2908E-02_JPRB,1.2763E-02_JPRB/)
+KBO( :,33, 4) = (/&
+&1.0471E-02_JPRB,1.0335E-02_JPRB,1.0205E-02_JPRB,1.0071E-02_JPRB,9.9443E-03_JPRB/)
+KBO( :,34, 4) = (/&
+&8.2822E-03_JPRB,8.1673E-03_JPRB,8.0568E-03_JPRB,7.9430E-03_JPRB,7.8343E-03_JPRB/)
+KBO( :,35, 4) = (/&
+&6.5706E-03_JPRB,6.4732E-03_JPRB,6.3800E-03_JPRB,6.2836E-03_JPRB,6.1906E-03_JPRB/)
+KBO( :,36, 4) = (/&
+&5.2374E-03_JPRB,5.1544E-03_JPRB,5.0765E-03_JPRB,4.9959E-03_JPRB,4.9170E-03_JPRB/)
+KBO( :,37, 4) = (/&
+&4.2152E-03_JPRB,4.1453E-03_JPRB,4.0802E-03_JPRB,4.0137E-03_JPRB,3.9470E-03_JPRB/)
+KBO( :,38, 4) = (/&
+&3.3887E-03_JPRB,3.3299E-03_JPRB,3.2750E-03_JPRB,3.2202E-03_JPRB,3.1640E-03_JPRB/)
+KBO( :,39, 4) = (/&
+&2.7192E-03_JPRB,2.6687E-03_JPRB,2.6217E-03_JPRB,2.5767E-03_JPRB,2.5302E-03_JPRB/)
+KBO( :,40, 4) = (/&
+&2.2135E-03_JPRB,2.1698E-03_JPRB,2.1301E-03_JPRB,2.0941E-03_JPRB,2.0563E-03_JPRB/)
+KBO( :,41, 4) = (/&
+&1.8054E-03_JPRB,1.7673E-03_JPRB,1.7338E-03_JPRB,1.7053E-03_JPRB,1.6746E-03_JPRB/)
+KBO( :,42, 4) = (/&
+&1.4708E-03_JPRB,1.4392E-03_JPRB,1.4108E-03_JPRB,1.3843E-03_JPRB,1.3624E-03_JPRB/)
+KBO( :,43, 4) = (/&
+&1.2027E-03_JPRB,1.1753E-03_JPRB,1.1507E-03_JPRB,1.1283E-03_JPRB,1.1105E-03_JPRB/)
+KBO( :,44, 4) = (/&
+&9.8462E-04_JPRB,9.6042E-04_JPRB,9.3913E-04_JPRB,9.1991E-04_JPRB,9.0230E-04_JPRB/)
+KBO( :,45, 4) = (/&
+&8.0542E-04_JPRB,7.8415E-04_JPRB,7.6564E-04_JPRB,7.4892E-04_JPRB,7.3408E-04_JPRB/)
+KBO( :,46, 4) = (/&
+&6.5968E-04_JPRB,6.4114E-04_JPRB,6.2484E-04_JPRB,6.1027E-04_JPRB,5.9757E-04_JPRB/)
+KBO( :,47, 4) = (/&
+&5.4254E-04_JPRB,5.2637E-04_JPRB,5.1198E-04_JPRB,4.9924E-04_JPRB,4.8823E-04_JPRB/)
+KBO( :,48, 4) = (/&
+&4.4583E-04_JPRB,4.3098E-04_JPRB,4.1917E-04_JPRB,4.0789E-04_JPRB,3.9833E-04_JPRB/)
+KBO( :,49, 4) = (/&
+&3.6597E-04_JPRB,3.5313E-04_JPRB,3.4272E-04_JPRB,3.3276E-04_JPRB,3.2437E-04_JPRB/)
+KBO( :,50, 4) = (/&
+&3.0183E-04_JPRB,2.9081E-04_JPRB,2.8109E-04_JPRB,2.7313E-04_JPRB,2.6573E-04_JPRB/)
+KBO( :,51, 4) = (/&
+&2.4952E-04_JPRB,2.4012E-04_JPRB,2.3178E-04_JPRB,2.2484E-04_JPRB,2.1839E-04_JPRB/)
+KBO( :,52, 4) = (/&
+&2.0590E-04_JPRB,1.9816E-04_JPRB,1.9102E-04_JPRB,1.8499E-04_JPRB,1.7939E-04_JPRB/)
+KBO( :,53, 4) = (/&
+&1.6997E-04_JPRB,1.6338E-04_JPRB,1.5728E-04_JPRB,1.5208E-04_JPRB,1.4721E-04_JPRB/)
+KBO( :,54, 4) = (/&
+&1.4137E-04_JPRB,1.3582E-04_JPRB,1.3065E-04_JPRB,1.2623E-04_JPRB,1.2203E-04_JPRB/)
+KBO( :,55, 4) = (/&
+&1.1811E-04_JPRB,1.1349E-04_JPRB,1.0913E-04_JPRB,1.0509E-04_JPRB,1.0178E-04_JPRB/)
+KBO( :,56, 4) = (/&
+&9.8748E-05_JPRB,9.4876E-05_JPRB,9.1206E-05_JPRB,8.7799E-05_JPRB,8.4972E-05_JPRB/)
+KBO( :,57, 4) = (/&
+&8.2626E-05_JPRB,7.9374E-05_JPRB,7.6285E-05_JPRB,7.3421E-05_JPRB,7.0844E-05_JPRB/)
+KBO( :,58, 4) = (/&
+&6.9274E-05_JPRB,6.6523E-05_JPRB,6.3940E-05_JPRB,6.1535E-05_JPRB,5.9367E-05_JPRB/)
+KBO( :,59, 4) = (/&
+&5.8640E-05_JPRB,5.6344E-05_JPRB,5.4214E-05_JPRB,5.2234E-05_JPRB,5.0475E-05_JPRB/)
+KBO( :,13, 5) = (/&
+&7.7160E-01_JPRB,7.4444E-01_JPRB,7.1907E-01_JPRB,6.9531E-01_JPRB,6.7298E-01_JPRB/)
+KBO( :,14, 5) = (/&
+&6.7466E-01_JPRB,6.5300E-01_JPRB,6.3239E-01_JPRB,6.1248E-01_JPRB,5.9379E-01_JPRB/)
+KBO( :,15, 5) = (/&
+&5.9635E-01_JPRB,5.7861E-01_JPRB,5.6121E-01_JPRB,5.4480E-01_JPRB,5.2962E-01_JPRB/)
+KBO( :,16, 5) = (/&
+&5.1541E-01_JPRB,5.0066E-01_JPRB,4.8672E-01_JPRB,4.7349E-01_JPRB,4.6138E-01_JPRB/)
+KBO( :,17, 5) = (/&
+&4.4269E-01_JPRB,4.3080E-01_JPRB,4.1977E-01_JPRB,4.0931E-01_JPRB,3.9988E-01_JPRB/)
+KBO( :,18, 5) = (/&
+&3.7780E-01_JPRB,3.6850E-01_JPRB,3.5976E-01_JPRB,3.5172E-01_JPRB,3.4458E-01_JPRB/)
+KBO( :,19, 5) = (/&
+&3.2514E-01_JPRB,3.1806E-01_JPRB,3.1138E-01_JPRB,3.0554E-01_JPRB,3.0027E-01_JPRB/)
+KBO( :,20, 5) = (/&
+&2.7650E-01_JPRB,2.7122E-01_JPRB,2.6628E-01_JPRB,2.6193E-01_JPRB,2.5804E-01_JPRB/)
+KBO( :,21, 5) = (/&
+&2.3395E-01_JPRB,2.2994E-01_JPRB,2.2632E-01_JPRB,2.2310E-01_JPRB,2.2015E-01_JPRB/)
+KBO( :,22, 5) = (/&
+&1.9653E-01_JPRB,1.9358E-01_JPRB,1.9093E-01_JPRB,1.8856E-01_JPRB,1.8639E-01_JPRB/)
+KBO( :,23, 5) = (/&
+&1.6491E-01_JPRB,1.6277E-01_JPRB,1.6085E-01_JPRB,1.5911E-01_JPRB,1.5759E-01_JPRB/)
+KBO( :,24, 5) = (/&
+&1.3897E-01_JPRB,1.3743E-01_JPRB,1.3602E-01_JPRB,1.3482E-01_JPRB,1.3382E-01_JPRB/)
+KBO( :,25, 5) = (/&
+&1.1669E-01_JPRB,1.1561E-01_JPRB,1.1461E-01_JPRB,1.1379E-01_JPRB,1.1309E-01_JPRB/)
+KBO( :,26, 5) = (/&
+&9.7609E-02_JPRB,9.6847E-02_JPRB,9.6135E-02_JPRB,9.5565E-02_JPRB,9.5002E-02_JPRB/)
+KBO( :,27, 5) = (/&
+&8.0793E-02_JPRB,8.0221E-02_JPRB,7.9703E-02_JPRB,7.9212E-02_JPRB,7.8694E-02_JPRB/)
+KBO( :,28, 5) = (/&
+&6.6330E-02_JPRB,6.5862E-02_JPRB,6.5425E-02_JPRB,6.4984E-02_JPRB,6.4496E-02_JPRB/)
+KBO( :,29, 5) = (/&
+&5.3342E-02_JPRB,5.2927E-02_JPRB,5.2528E-02_JPRB,5.2127E-02_JPRB,5.1683E-02_JPRB/)
+KBO( :,30, 5) = (/&
+&4.2517E-02_JPRB,4.2134E-02_JPRB,4.1768E-02_JPRB,4.1401E-02_JPRB,4.1018E-02_JPRB/)
+KBO( :,31, 5) = (/&
+&3.3321E-02_JPRB,3.2971E-02_JPRB,3.2637E-02_JPRB,3.2307E-02_JPRB,3.1983E-02_JPRB/)
+KBO( :,32, 5) = (/&
+&2.6085E-02_JPRB,2.5777E-02_JPRB,2.5482E-02_JPRB,2.5197E-02_JPRB,2.4920E-02_JPRB/)
+KBO( :,33, 5) = (/&
+&2.0380E-02_JPRB,2.0114E-02_JPRB,1.9855E-02_JPRB,1.9613E-02_JPRB,1.9379E-02_JPRB/)
+KBO( :,34, 5) = (/&
+&1.6094E-02_JPRB,1.5866E-02_JPRB,1.5645E-02_JPRB,1.5443E-02_JPRB,1.5250E-02_JPRB/)
+KBO( :,35, 5) = (/&
+&1.2747E-02_JPRB,1.2551E-02_JPRB,1.2366E-02_JPRB,1.2199E-02_JPRB,1.2040E-02_JPRB/)
+KBO( :,36, 5) = (/&
+&1.0146E-02_JPRB,9.9805E-03_JPRB,9.8261E-03_JPRB,9.6852E-03_JPRB,9.5528E-03_JPRB/)
+KBO( :,37, 5) = (/&
+&8.1592E-03_JPRB,8.0204E-03_JPRB,7.8907E-03_JPRB,7.7704E-03_JPRB,7.6600E-03_JPRB/)
+KBO( :,38, 5) = (/&
+&6.5529E-03_JPRB,6.4351E-03_JPRB,6.3266E-03_JPRB,6.2249E-03_JPRB,6.1328E-03_JPRB/)
+KBO( :,39, 5) = (/&
+&5.2501E-03_JPRB,5.1505E-03_JPRB,5.0574E-03_JPRB,4.9738E-03_JPRB,4.8970E-03_JPRB/)
+KBO( :,40, 5) = (/&
+&4.2699E-03_JPRB,4.1868E-03_JPRB,4.1077E-03_JPRB,4.0405E-03_JPRB,3.9772E-03_JPRB/)
+KBO( :,41, 5) = (/&
+&3.4793E-03_JPRB,3.4089E-03_JPRB,3.3430E-03_JPRB,3.2899E-03_JPRB,3.2370E-03_JPRB/)
+KBO( :,42, 5) = (/&
+&2.8300E-03_JPRB,2.7744E-03_JPRB,2.7198E-03_JPRB,2.6679E-03_JPRB,2.6320E-03_JPRB/)
+KBO( :,43, 5) = (/&
+&2.3102E-03_JPRB,2.2637E-03_JPRB,2.2184E-03_JPRB,2.1738E-03_JPRB,2.1446E-03_JPRB/)
+KBO( :,44, 5) = (/&
+&1.8868E-03_JPRB,1.8478E-03_JPRB,1.8100E-03_JPRB,1.7720E-03_JPRB,1.7388E-03_JPRB/)
+KBO( :,45, 5) = (/&
+&1.5390E-03_JPRB,1.5063E-03_JPRB,1.4743E-03_JPRB,1.4422E-03_JPRB,1.4137E-03_JPRB/)
+KBO( :,46, 5) = (/&
+&1.2560E-03_JPRB,1.2289E-03_JPRB,1.2018E-03_JPRB,1.1747E-03_JPRB,1.1502E-03_JPRB/)
+KBO( :,47, 5) = (/&
+&1.0286E-03_JPRB,1.0064E-03_JPRB,9.8327E-04_JPRB,9.6042E-04_JPRB,9.3954E-04_JPRB/)
+KBO( :,48, 5) = (/&
+&8.4091E-04_JPRB,8.1988E-04_JPRB,8.0308E-04_JPRB,7.8384E-04_JPRB,7.6613E-04_JPRB/)
+KBO( :,49, 5) = (/&
+&6.8566E-04_JPRB,6.6838E-04_JPRB,6.5450E-04_JPRB,6.3815E-04_JPRB,6.2312E-04_JPRB/)
+KBO( :,50, 5) = (/&
+&5.6202E-04_JPRB,5.4792E-04_JPRB,5.3430E-04_JPRB,5.2267E-04_JPRB,5.0999E-04_JPRB/)
+KBO( :,51, 5) = (/&
+&4.6200E-04_JPRB,4.5031E-04_JPRB,4.3906E-04_JPRB,4.2940E-04_JPRB,4.1869E-04_JPRB/)
+KBO( :,52, 5) = (/&
+&3.7843E-04_JPRB,3.6947E-04_JPRB,3.6036E-04_JPRB,3.5233E-04_JPRB,3.4327E-04_JPRB/)
+KBO( :,53, 5) = (/&
+&3.1055E-04_JPRB,3.0267E-04_JPRB,2.9523E-04_JPRB,2.8852E-04_JPRB,2.8094E-04_JPRB/)
+KBO( :,54, 5) = (/&
+&2.5746E-04_JPRB,2.5066E-04_JPRB,2.4444E-04_JPRB,2.3894E-04_JPRB,2.3267E-04_JPRB/)
+KBO( :,55, 5) = (/&
+&2.1472E-04_JPRB,2.0894E-04_JPRB,2.0371E-04_JPRB,1.9841E-04_JPRB,1.9408E-04_JPRB/)
+KBO( :,56, 5) = (/&
+&1.7913E-04_JPRB,1.7430E-04_JPRB,1.6988E-04_JPRB,1.6554E-04_JPRB,1.6197E-04_JPRB/)
+KBO( :,57, 5) = (/&
+&1.4951E-04_JPRB,1.4553E-04_JPRB,1.4177E-04_JPRB,1.3820E-04_JPRB,1.3474E-04_JPRB/)
+KBO( :,58, 5) = (/&
+&1.2504E-04_JPRB,1.2181E-04_JPRB,1.1864E-04_JPRB,1.1569E-04_JPRB,1.1287E-04_JPRB/)
+KBO( :,59, 5) = (/&
+&1.0614E-04_JPRB,1.0364E-04_JPRB,1.0111E-04_JPRB,9.8749E-05_JPRB,9.6452E-05_JPRB/)
+KBO( :,13, 6) = (/&
+&1.5191E+00_JPRB,1.4695E+00_JPRB,1.4192E+00_JPRB,1.3697E+00_JPRB,1.3235E+00_JPRB/)
+KBO( :,14, 6) = (/&
+&1.3318E+00_JPRB,1.2897E+00_JPRB,1.2478E+00_JPRB,1.2076E+00_JPRB,1.1701E+00_JPRB/)
+KBO( :,15, 6) = (/&
+&1.1798E+00_JPRB,1.1443E+00_JPRB,1.1093E+00_JPRB,1.0759E+00_JPRB,1.0445E+00_JPRB/)
+KBO( :,16, 6) = (/&
+&1.0281E+00_JPRB,9.9819E-01_JPRB,9.6877E-01_JPRB,9.4092E-01_JPRB,9.1439E-01_JPRB/)
+KBO( :,17, 6) = (/&
+&8.8986E-01_JPRB,8.6523E-01_JPRB,8.4111E-01_JPRB,8.1786E-01_JPRB,7.9588E-01_JPRB/)
+KBO( :,18, 6) = (/&
+&7.6316E-01_JPRB,7.4298E-01_JPRB,7.2337E-01_JPRB,7.0449E-01_JPRB,6.8700E-01_JPRB/)
+KBO( :,19, 6) = (/&
+&6.5943E-01_JPRB,6.4308E-01_JPRB,6.2731E-01_JPRB,6.1232E-01_JPRB,5.9858E-01_JPRB/)
+KBO( :,20, 6) = (/&
+&5.6316E-01_JPRB,5.4994E-01_JPRB,5.3764E-01_JPRB,5.2623E-01_JPRB,5.1573E-01_JPRB/)
+KBO( :,21, 6) = (/&
+&4.7806E-01_JPRB,4.6791E-01_JPRB,4.5861E-01_JPRB,4.4996E-01_JPRB,4.4207E-01_JPRB/)
+KBO( :,22, 6) = (/&
+&4.0277E-01_JPRB,3.9520E-01_JPRB,3.8813E-01_JPRB,3.8164E-01_JPRB,3.7585E-01_JPRB/)
+KBO( :,23, 6) = (/&
+&3.3902E-01_JPRB,3.3325E-01_JPRB,3.2795E-01_JPRB,3.2312E-01_JPRB,3.1896E-01_JPRB/)
+KBO( :,24, 6) = (/&
+&2.8650E-01_JPRB,2.8213E-01_JPRB,2.7823E-01_JPRB,2.7486E-01_JPRB,2.7205E-01_JPRB/)
+KBO( :,25, 6) = (/&
+&2.4143E-01_JPRB,2.3816E-01_JPRB,2.3547E-01_JPRB,2.3317E-01_JPRB,2.3145E-01_JPRB/)
+KBO( :,26, 6) = (/&
+&2.0266E-01_JPRB,2.0036E-01_JPRB,1.9851E-01_JPRB,1.9709E-01_JPRB,1.9604E-01_JPRB/)
+KBO( :,27, 6) = (/&
+&1.6827E-01_JPRB,1.6669E-01_JPRB,1.6549E-01_JPRB,1.6454E-01_JPRB,1.6379E-01_JPRB/)
+KBO( :,28, 6) = (/&
+&1.3863E-01_JPRB,1.3755E-01_JPRB,1.3670E-01_JPRB,1.3598E-01_JPRB,1.3532E-01_JPRB/)
+KBO( :,29, 6) = (/&
+&1.1195E-01_JPRB,1.1112E-01_JPRB,1.1039E-01_JPRB,1.0972E-01_JPRB,1.0905E-01_JPRB/)
+KBO( :,30, 6) = (/&
+&8.9622E-02_JPRB,8.8892E-02_JPRB,8.8204E-02_JPRB,8.7546E-02_JPRB,8.6864E-02_JPRB/)
+KBO( :,31, 6) = (/&
+&7.0503E-02_JPRB,6.9820E-02_JPRB,6.9151E-02_JPRB,6.8505E-02_JPRB,6.7845E-02_JPRB/)
+KBO( :,32, 6) = (/&
+&5.5386E-02_JPRB,5.4746E-02_JPRB,5.4116E-02_JPRB,5.3514E-02_JPRB,5.2914E-02_JPRB/)
+KBO( :,33, 6) = (/&
+&4.3379E-02_JPRB,4.2797E-02_JPRB,4.2232E-02_JPRB,4.1691E-02_JPRB,4.1166E-02_JPRB/)
+KBO( :,34, 6) = (/&
+&3.4320E-02_JPRB,3.3808E-02_JPRB,3.3321E-02_JPRB,3.2856E-02_JPRB,3.2407E-02_JPRB/)
+KBO( :,35, 6) = (/&
+&2.7216E-02_JPRB,2.6777E-02_JPRB,2.6359E-02_JPRB,2.5963E-02_JPRB,2.5584E-02_JPRB/)
+KBO( :,36, 6) = (/&
+&2.1684E-02_JPRB,2.1311E-02_JPRB,2.0954E-02_JPRB,2.0621E-02_JPRB,2.0303E-02_JPRB/)
+KBO( :,37, 6) = (/&
+&1.7460E-02_JPRB,1.7144E-02_JPRB,1.6842E-02_JPRB,1.6560E-02_JPRB,1.6295E-02_JPRB/)
+KBO( :,38, 6) = (/&
+&1.4038E-02_JPRB,1.3770E-02_JPRB,1.3517E-02_JPRB,1.3278E-02_JPRB,1.3058E-02_JPRB/)
+KBO( :,39, 6) = (/&
+&1.1256E-02_JPRB,1.1031E-02_JPRB,1.0816E-02_JPRB,1.0618E-02_JPRB,1.0434E-02_JPRB/)
+KBO( :,40, 6) = (/&
+&9.1649E-03_JPRB,8.9760E-03_JPRB,8.7972E-03_JPRB,8.6398E-03_JPRB,8.4878E-03_JPRB/)
+KBO( :,41, 6) = (/&
+&7.4755E-03_JPRB,7.3166E-03_JPRB,7.1692E-03_JPRB,7.0488E-03_JPRB,6.9207E-03_JPRB/)
+KBO( :,42, 6) = (/&
+&6.0804E-03_JPRB,5.9624E-03_JPRB,5.8409E-03_JPRB,5.7188E-03_JPRB,5.6367E-03_JPRB/)
+KBO( :,43, 6) = (/&
+&4.9643E-03_JPRB,4.8712E-03_JPRB,4.7704E-03_JPRB,4.6675E-03_JPRB,4.6008E-03_JPRB/)
+KBO( :,44, 6) = (/&
+&4.0546E-03_JPRB,3.9806E-03_JPRB,3.8967E-03_JPRB,3.8101E-03_JPRB,3.7308E-03_JPRB/)
+KBO( :,45, 6) = (/&
+&3.3063E-03_JPRB,3.2467E-03_JPRB,3.1772E-03_JPRB,3.1048E-03_JPRB,3.0380E-03_JPRB/)
+KBO( :,46, 6) = (/&
+&2.6976E-03_JPRB,2.6493E-03_JPRB,2.5918E-03_JPRB,2.5315E-03_JPRB,2.4753E-03_JPRB/)
+KBO( :,47, 6) = (/&
+&2.2084E-03_JPRB,2.1692E-03_JPRB,2.1216E-03_JPRB,2.0717E-03_JPRB,2.0247E-03_JPRB/)
+KBO( :,48, 6) = (/&
+&1.8045E-03_JPRB,1.7627E-03_JPRB,1.7331E-03_JPRB,1.6919E-03_JPRB,1.6528E-03_JPRB/)
+KBO( :,49, 6) = (/&
+&1.4712E-03_JPRB,1.4359E-03_JPRB,1.4119E-03_JPRB,1.3778E-03_JPRB,1.3455E-03_JPRB/)
+KBO( :,50, 6) = (/&
+&1.2061E-03_JPRB,1.1766E-03_JPRB,1.1505E-03_JPRB,1.1288E-03_JPRB,1.1022E-03_JPRB/)
+KBO( :,51, 6) = (/&
+&9.9096E-04_JPRB,9.6691E-04_JPRB,9.4524E-04_JPRB,9.2753E-04_JPRB,9.0555E-04_JPRB/)
+KBO( :,52, 6) = (/&
+&8.0904E-04_JPRB,7.9365E-04_JPRB,7.7550E-04_JPRB,7.6091E-04_JPRB,7.4280E-04_JPRB/)
+KBO( :,53, 6) = (/&
+&6.6208E-04_JPRB,6.5010E-04_JPRB,6.3515E-04_JPRB,6.2298E-04_JPRB,6.0802E-04_JPRB/)
+KBO( :,54, 6) = (/&
+&5.4731E-04_JPRB,5.3810E-04_JPRB,5.2612E-04_JPRB,5.1599E-04_JPRB,5.0369E-04_JPRB/)
+KBO( :,55, 6) = (/&
+&4.5523E-04_JPRB,4.4817E-04_JPRB,4.3877E-04_JPRB,4.2800E-04_JPRB,4.2030E-04_JPRB/)
+KBO( :,56, 6) = (/&
+&3.7865E-04_JPRB,3.7332E-04_JPRB,3.6607E-04_JPRB,3.5724E-04_JPRB,3.5095E-04_JPRB/)
+KBO( :,57, 6) = (/&
+&3.1496E-04_JPRB,3.1113E-04_JPRB,3.0556E-04_JPRB,2.9842E-04_JPRB,2.9145E-04_JPRB/)
+KBO( :,58, 6) = (/&
+&2.6256E-04_JPRB,2.5998E-04_JPRB,2.5570E-04_JPRB,2.5003E-04_JPRB,2.4428E-04_JPRB/)
+KBO( :,59, 6) = (/&
+&2.2328E-04_JPRB,2.2151E-04_JPRB,2.1824E-04_JPRB,2.1368E-04_JPRB,2.0910E-04_JPRB/)
+KBO( :,13, 7) = (/&
+&3.5144E+00_JPRB,3.3937E+00_JPRB,3.2768E+00_JPRB,3.1634E+00_JPRB,3.0537E+00_JPRB/)
+KBO( :,14, 7) = (/&
+&3.0165E+00_JPRB,2.9173E+00_JPRB,2.8200E+00_JPRB,2.7244E+00_JPRB,2.6317E+00_JPRB/)
+KBO( :,15, 7) = (/&
+&2.6711E+00_JPRB,2.5902E+00_JPRB,2.5088E+00_JPRB,2.4285E+00_JPRB,2.3516E+00_JPRB/)
+KBO( :,16, 7) = (/&
+&2.3379E+00_JPRB,2.2701E+00_JPRB,2.2031E+00_JPRB,2.1365E+00_JPRB,2.0740E+00_JPRB/)
+KBO( :,17, 7) = (/&
+&2.0449E+00_JPRB,1.9876E+00_JPRB,1.9309E+00_JPRB,1.8761E+00_JPRB,1.8247E+00_JPRB/)
+KBO( :,18, 7) = (/&
+&1.7762E+00_JPRB,1.7285E+00_JPRB,1.6813E+00_JPRB,1.6362E+00_JPRB,1.5941E+00_JPRB/)
+KBO( :,19, 7) = (/&
+&1.5531E+00_JPRB,1.5133E+00_JPRB,1.4745E+00_JPRB,1.4378E+00_JPRB,1.4037E+00_JPRB/)
+KBO( :,20, 7) = (/&
+&1.3391E+00_JPRB,1.3069E+00_JPRB,1.2760E+00_JPRB,1.2466E+00_JPRB,1.2198E+00_JPRB/)
+KBO( :,21, 7) = (/&
+&1.1467E+00_JPRB,1.1212E+00_JPRB,1.0970E+00_JPRB,1.0743E+00_JPRB,1.0539E+00_JPRB/)
+KBO( :,22, 7) = (/&
+&9.7329E-01_JPRB,9.5340E-01_JPRB,9.3512E-01_JPRB,9.1844E-01_JPRB,9.0375E-01_JPRB/)
+KBO( :,23, 7) = (/&
+&8.2392E-01_JPRB,8.0923E-01_JPRB,7.9603E-01_JPRB,7.8447E-01_JPRB,7.7374E-01_JPRB/)
+KBO( :,24, 7) = (/&
+&7.0013E-01_JPRB,6.8981E-01_JPRB,6.8073E-01_JPRB,6.7262E-01_JPRB,6.6488E-01_JPRB/)
+KBO( :,25, 7) = (/&
+&5.9333E-01_JPRB,5.8623E-01_JPRB,5.8008E-01_JPRB,5.7417E-01_JPRB,5.6882E-01_JPRB/)
+KBO( :,26, 7) = (/&
+&5.0099E-01_JPRB,4.9624E-01_JPRB,4.9180E-01_JPRB,4.8790E-01_JPRB,4.8459E-01_JPRB/)
+KBO( :,27, 7) = (/&
+&4.1867E-01_JPRB,4.1536E-01_JPRB,4.1237E-01_JPRB,4.0992E-01_JPRB,4.0810E-01_JPRB/)
+KBO( :,28, 7) = (/&
+&3.4703E-01_JPRB,3.4468E-01_JPRB,3.4282E-01_JPRB,3.4143E-01_JPRB,3.4043E-01_JPRB/)
+KBO( :,29, 7) = (/&
+&2.8153E-01_JPRB,2.7991E-01_JPRB,2.7869E-01_JPRB,2.7784E-01_JPRB,2.7705E-01_JPRB/)
+KBO( :,30, 7) = (/&
+&2.2635E-01_JPRB,2.2520E-01_JPRB,2.2433E-01_JPRB,2.2358E-01_JPRB,2.2275E-01_JPRB/)
+KBO( :,31, 7) = (/&
+&1.7873E-01_JPRB,1.7779E-01_JPRB,1.7701E-01_JPRB,1.7620E-01_JPRB,1.7525E-01_JPRB/)
+KBO( :,32, 7) = (/&
+&1.4094E-01_JPRB,1.4013E-01_JPRB,1.3934E-01_JPRB,1.3848E-01_JPRB,1.3746E-01_JPRB/)
+KBO( :,33, 7) = (/&
+&1.1081E-01_JPRB,1.1005E-01_JPRB,1.0925E-01_JPRB,1.0837E-01_JPRB,1.0737E-01_JPRB/)
+KBO( :,34, 7) = (/&
+&8.8073E-02_JPRB,8.7360E-02_JPRB,8.6598E-02_JPRB,8.5752E-02_JPRB,8.4831E-02_JPRB/)
+KBO( :,35, 7) = (/&
+&7.0093E-02_JPRB,6.9431E-02_JPRB,6.8725E-02_JPRB,6.7961E-02_JPRB,6.7163E-02_JPRB/)
+KBO( :,36, 7) = (/&
+&5.5974E-02_JPRB,5.5383E-02_JPRB,5.4751E-02_JPRB,5.4084E-02_JPRB,5.3401E-02_JPRB/)
+KBO( :,37, 7) = (/&
+&4.5129E-02_JPRB,4.4617E-02_JPRB,4.4069E-02_JPRB,4.3496E-02_JPRB,4.2919E-02_JPRB/)
+KBO( :,38, 7) = (/&
+&3.6297E-02_JPRB,3.5849E-02_JPRB,3.5383E-02_JPRB,3.4895E-02_JPRB,3.4409E-02_JPRB/)
+KBO( :,39, 7) = (/&
+&2.9094E-02_JPRB,2.8702E-02_JPRB,2.8301E-02_JPRB,2.7894E-02_JPRB,2.7483E-02_JPRB/)
+KBO( :,40, 7) = (/&
+&2.3698E-02_JPRB,2.3361E-02_JPRB,2.3022E-02_JPRB,2.2702E-02_JPRB,2.2363E-02_JPRB/)
+KBO( :,41, 7) = (/&
+&1.9342E-02_JPRB,1.9046E-02_JPRB,1.8762E-02_JPRB,1.8535E-02_JPRB,1.8252E-02_JPRB/)
+KBO( :,42, 7) = (/&
+&1.5735E-02_JPRB,1.5529E-02_JPRB,1.5289E-02_JPRB,1.5039E-02_JPRB,1.4884E-02_JPRB/)
+KBO( :,43, 7) = (/&
+&1.2856E-02_JPRB,1.2693E-02_JPRB,1.2490E-02_JPRB,1.2276E-02_JPRB,1.2162E-02_JPRB/)
+KBO( :,44, 7) = (/&
+&1.0504E-02_JPRB,1.0374E-02_JPRB,1.0203E-02_JPRB,1.0021E-02_JPRB,9.8561E-03_JPRB/)
+KBO( :,45, 7) = (/&
+&8.5662E-03_JPRB,8.4611E-03_JPRB,8.3174E-03_JPRB,8.1619E-03_JPRB,8.0238E-03_JPRB/)
+KBO( :,46, 7) = (/&
+&6.9878E-03_JPRB,6.9029E-03_JPRB,6.7830E-03_JPRB,6.6504E-03_JPRB,6.5338E-03_JPRB/)
+KBO( :,47, 7) = (/&
+&5.7199E-03_JPRB,5.6500E-03_JPRB,5.5517E-03_JPRB,5.4400E-03_JPRB,5.3409E-03_JPRB/)
+KBO( :,48, 7) = (/&
+&4.6721E-03_JPRB,4.5783E-03_JPRB,4.5326E-03_JPRB,4.4394E-03_JPRB,4.3553E-03_JPRB/)
+KBO( :,49, 7) = (/&
+&3.8045E-03_JPRB,3.7261E-03_JPRB,3.6884E-03_JPRB,3.6111E-03_JPRB,3.5400E-03_JPRB/)
+KBO( :,50, 7) = (/&
+&3.1168E-03_JPRB,3.0525E-03_JPRB,2.9971E-03_JPRB,2.9577E-03_JPRB,2.8982E-03_JPRB/)
+KBO( :,51, 7) = (/&
+&2.5606E-03_JPRB,2.5082E-03_JPRB,2.4624E-03_JPRB,2.4305E-03_JPRB,2.3812E-03_JPRB/)
+KBO( :,52, 7) = (/&
+&2.0858E-03_JPRB,2.0571E-03_JPRB,2.0195E-03_JPRB,1.9935E-03_JPRB,1.9528E-03_JPRB/)
+KBO( :,53, 7) = (/&
+&1.7067E-03_JPRB,1.6831E-03_JPRB,1.6522E-03_JPRB,1.6308E-03_JPRB,1.5976E-03_JPRB/)
+KBO( :,54, 7) = (/&
+&1.4124E-03_JPRB,1.3940E-03_JPRB,1.3693E-03_JPRB,1.3524E-03_JPRB,1.3253E-03_JPRB/)
+KBO( :,55, 7) = (/&
+&1.1765E-03_JPRB,1.1628E-03_JPRB,1.1437E-03_JPRB,1.1214E-03_JPRB,1.1087E-03_JPRB/)
+KBO( :,56, 7) = (/&
+&9.8017E-04_JPRB,9.7016E-04_JPRB,9.5539E-04_JPRB,9.3773E-04_JPRB,9.2785E-04_JPRB/)
+KBO( :,57, 7) = (/&
+&8.1688E-04_JPRB,8.0965E-04_JPRB,7.9840E-04_JPRB,7.8450E-04_JPRB,7.6983E-04_JPRB/)
+KBO( :,58, 7) = (/&
+&6.8243E-04_JPRB,6.7751E-04_JPRB,6.6917E-04_JPRB,6.5832E-04_JPRB,6.4667E-04_JPRB/)
+KBO( :,59, 7) = (/&
+&5.8205E-04_JPRB,5.7925E-04_JPRB,5.7356E-04_JPRB,5.6509E-04_JPRB,5.5607E-04_JPRB/)
+KBO( :,13, 8) = (/&
+&1.1247E+01_JPRB,1.0949E+01_JPRB,1.0618E+01_JPRB,1.0275E+01_JPRB,9.9354E+00_JPRB/)
+KBO( :,14, 8) = (/&
+&9.4998E+00_JPRB,9.2422E+00_JPRB,8.9633E+00_JPRB,8.6775E+00_JPRB,8.4009E+00_JPRB/)
+KBO( :,15, 8) = (/&
+&8.1034E+00_JPRB,7.8837E+00_JPRB,7.6521E+00_JPRB,7.4181E+00_JPRB,7.1838E+00_JPRB/)
+KBO( :,16, 8) = (/&
+&6.9956E+00_JPRB,6.8151E+00_JPRB,6.6234E+00_JPRB,6.4261E+00_JPRB,6.2274E+00_JPRB/)
+KBO( :,17, 8) = (/&
+&6.1438E+00_JPRB,5.9920E+00_JPRB,5.8323E+00_JPRB,5.6650E+00_JPRB,5.4972E+00_JPRB/)
+KBO( :,18, 8) = (/&
+&5.4091E+00_JPRB,5.2794E+00_JPRB,5.1420E+00_JPRB,4.9996E+00_JPRB,4.8583E+00_JPRB/)
+KBO( :,19, 8) = (/&
+&4.8000E+00_JPRB,4.6894E+00_JPRB,4.5724E+00_JPRB,4.4526E+00_JPRB,4.3345E+00_JPRB/)
+KBO( :,20, 8) = (/&
+&4.2099E+00_JPRB,4.1143E+00_JPRB,4.0152E+00_JPRB,3.9152E+00_JPRB,3.8177E+00_JPRB/)
+KBO( :,21, 8) = (/&
+&3.6600E+00_JPRB,3.5795E+00_JPRB,3.4965E+00_JPRB,3.4138E+00_JPRB,3.3344E+00_JPRB/)
+KBO( :,22, 8) = (/&
+&3.1475E+00_JPRB,3.0803E+00_JPRB,3.0119E+00_JPRB,2.9452E+00_JPRB,2.8804E+00_JPRB/)
+KBO( :,23, 8) = (/&
+&2.6953E+00_JPRB,2.6395E+00_JPRB,2.5848E+00_JPRB,2.5305E+00_JPRB,2.4794E+00_JPRB/)
+KBO( :,24, 8) = (/&
+&2.3108E+00_JPRB,2.2665E+00_JPRB,2.2227E+00_JPRB,2.1812E+00_JPRB,2.1425E+00_JPRB/)
+KBO( :,25, 8) = (/&
+&1.9716E+00_JPRB,1.9373E+00_JPRB,1.9040E+00_JPRB,1.8732E+00_JPRB,1.8452E+00_JPRB/)
+KBO( :,26, 8) = (/&
+&1.6730E+00_JPRB,1.6473E+00_JPRB,1.6232E+00_JPRB,1.6019E+00_JPRB,1.5822E+00_JPRB/)
+KBO( :,27, 8) = (/&
+&1.4039E+00_JPRB,1.3856E+00_JPRB,1.3691E+00_JPRB,1.3536E+00_JPRB,1.3394E+00_JPRB/)
+KBO( :,28, 8) = (/&
+&1.1694E+00_JPRB,1.1563E+00_JPRB,1.1443E+00_JPRB,1.1331E+00_JPRB,1.1233E+00_JPRB/)
+KBO( :,29, 8) = (/&
+&9.5436E-01_JPRB,9.4464E-01_JPRB,9.3564E-01_JPRB,9.2762E-01_JPRB,9.2078E-01_JPRB/)
+KBO( :,30, 8) = (/&
+&7.7171E-01_JPRB,7.6417E-01_JPRB,7.5736E-01_JPRB,7.5152E-01_JPRB,7.4699E-01_JPRB/)
+KBO( :,31, 8) = (/&
+&6.1295E-01_JPRB,6.0696E-01_JPRB,6.0170E-01_JPRB,5.9736E-01_JPRB,5.9407E-01_JPRB/)
+KBO( :,32, 8) = (/&
+&4.8600E-01_JPRB,4.8128E-01_JPRB,4.7723E-01_JPRB,4.7397E-01_JPRB,4.7138E-01_JPRB/)
+KBO( :,33, 8) = (/&
+&3.8415E-01_JPRB,3.8042E-01_JPRB,3.7730E-01_JPRB,3.7473E-01_JPRB,3.7262E-01_JPRB/)
+KBO( :,34, 8) = (/&
+&3.0697E-01_JPRB,3.0410E-01_JPRB,3.0171E-01_JPRB,2.9969E-01_JPRB,2.9792E-01_JPRB/)
+KBO( :,35, 8) = (/&
+&2.4580E-01_JPRB,2.4358E-01_JPRB,2.4169E-01_JPRB,2.4002E-01_JPRB,2.3839E-01_JPRB/)
+KBO( :,36, 8) = (/&
+&1.9762E-01_JPRB,1.9584E-01_JPRB,1.9432E-01_JPRB,1.9290E-01_JPRB,1.9143E-01_JPRB/)
+KBO( :,37, 8) = (/&
+&1.6039E-01_JPRB,1.5897E-01_JPRB,1.5773E-01_JPRB,1.5653E-01_JPRB,1.5525E-01_JPRB/)
+KBO( :,38, 8) = (/&
+&1.2981E-01_JPRB,1.2864E-01_JPRB,1.2763E-01_JPRB,1.2661E-01_JPRB,1.2550E-01_JPRB/)
+KBO( :,39, 8) = (/&
+&1.0464E-01_JPRB,1.0367E-01_JPRB,1.0279E-01_JPRB,1.0196E-01_JPRB,1.0102E-01_JPRB/)
+KBO( :,40, 8) = (/&
+&8.5656E-02_JPRB,8.4878E-02_JPRB,8.4168E-02_JPRB,8.3551E-02_JPRB,8.2787E-02_JPRB/)
+KBO( :,41, 8) = (/&
+&7.0184E-02_JPRB,6.9534E-02_JPRB,6.8986E-02_JPRB,6.8614E-02_JPRB,6.7985E-02_JPRB/)
+KBO( :,42, 8) = (/&
+&5.7310E-02_JPRB,5.6919E-02_JPRB,5.6491E-02_JPRB,5.5977E-02_JPRB,5.5749E-02_JPRB/)
+KBO( :,43, 8) = (/&
+&4.6943E-02_JPRB,4.6680E-02_JPRB,4.6336E-02_JPRB,4.5896E-02_JPRB,4.5779E-02_JPRB/)
+KBO( :,44, 8) = (/&
+&3.8447E-02_JPRB,3.8265E-02_JPRB,3.7983E-02_JPRB,3.7610E-02_JPRB,3.7254E-02_JPRB/)
+KBO( :,45, 8) = (/&
+&3.1416E-02_JPRB,3.1280E-02_JPRB,3.1046E-02_JPRB,3.0737E-02_JPRB,3.0447E-02_JPRB/)
+KBO( :,46, 8) = (/&
+&2.5663E-02_JPRB,2.5562E-02_JPRB,2.5366E-02_JPRB,2.5110E-02_JPRB,2.4876E-02_JPRB/)
+KBO( :,47, 8) = (/&
+&2.1026E-02_JPRB,2.0945E-02_JPRB,2.0784E-02_JPRB,2.0576E-02_JPRB,2.0390E-02_JPRB/)
+KBO( :,48, 8) = (/&
+&1.7175E-02_JPRB,1.6957E-02_JPRB,1.6972E-02_JPRB,1.6802E-02_JPRB,1.6659E-02_JPRB/)
+KBO( :,49, 8) = (/&
+&1.3974E-02_JPRB,1.3790E-02_JPRB,1.3801E-02_JPRB,1.3660E-02_JPRB,1.3550E-02_JPRB/)
+KBO( :,50, 8) = (/&
+&1.1444E-02_JPRB,1.1294E-02_JPRB,1.1196E-02_JPRB,1.1188E-02_JPRB,1.1103E-02_JPRB/)
+KBO( :,51, 8) = (/&
+&9.4010E-03_JPRB,9.2766E-03_JPRB,9.1976E-03_JPRB,9.1935E-03_JPRB,9.1284E-03_JPRB/)
+KBO( :,52, 8) = (/&
+&7.6374E-03_JPRB,7.6018E-03_JPRB,7.5370E-03_JPRB,7.5350E-03_JPRB,7.4842E-03_JPRB/)
+KBO( :,53, 8) = (/&
+&6.2404E-03_JPRB,6.2108E-03_JPRB,6.1568E-03_JPRB,6.1543E-03_JPRB,6.1140E-03_JPRB/)
+KBO( :,54, 8) = (/&
+&5.1676E-03_JPRB,5.1471E-03_JPRB,5.1049E-03_JPRB,5.1078E-03_JPRB,5.0779E-03_JPRB/)
+KBO( :,55, 8) = (/&
+&4.3128E-03_JPRB,4.3025E-03_JPRB,4.2708E-03_JPRB,4.2369E-03_JPRB,4.2598E-03_JPRB/)
+KBO( :,56, 8) = (/&
+&3.5995E-03_JPRB,3.5977E-03_JPRB,3.5746E-03_JPRB,3.5491E-03_JPRB,3.5749E-03_JPRB/)
+KBO( :,57, 8) = (/&
+&3.0055E-03_JPRB,3.0101E-03_JPRB,2.9938E-03_JPRB,2.9746E-03_JPRB,2.9652E-03_JPRB/)
+KBO( :,58, 8) = (/&
+&2.5176E-03_JPRB,2.5272E-03_JPRB,2.5169E-03_JPRB,2.5032E-03_JPRB,2.4979E-03_JPRB/)
+KBO( :,59, 8) = (/&
+&2.1638E-03_JPRB,2.1807E-03_JPRB,2.1789E-03_JPRB,2.1728E-03_JPRB,2.1711E-03_JPRB/)
+KBO( :,13, 9) = (/&
+&6.6930E+01_JPRB,6.5036E+01_JPRB,6.3159E+01_JPRB,6.1318E+01_JPRB,5.9549E+01_JPRB/)
+KBO( :,14, 9) = (/&
+&5.8293E+01_JPRB,5.6634E+01_JPRB,5.4990E+01_JPRB,5.3428E+01_JPRB,5.1912E+01_JPRB/)
+KBO( :,15, 9) = (/&
+&5.0205E+01_JPRB,4.8785E+01_JPRB,4.7427E+01_JPRB,4.6113E+01_JPRB,4.4777E+01_JPRB/)
+KBO( :,16, 9) = (/&
+&4.2911E+01_JPRB,4.1757E+01_JPRB,4.0616E+01_JPRB,3.9459E+01_JPRB,3.8271E+01_JPRB/)
+KBO( :,17, 9) = (/&
+&3.6557E+01_JPRB,3.5595E+01_JPRB,3.4588E+01_JPRB,3.3574E+01_JPRB,3.2559E+01_JPRB/)
+KBO( :,18, 9) = (/&
+&3.1149E+01_JPRB,3.0309E+01_JPRB,2.9446E+01_JPRB,2.8581E+01_JPRB,2.7714E+01_JPRB/)
+KBO( :,19, 9) = (/&
+&2.6798E+01_JPRB,2.6081E+01_JPRB,2.5351E+01_JPRB,2.4620E+01_JPRB,2.3892E+01_JPRB/)
+KBO( :,20, 9) = (/&
+&2.3235E+01_JPRB,2.2624E+01_JPRB,2.2007E+01_JPRB,2.1386E+01_JPRB,2.0773E+01_JPRB/)
+KBO( :,21, 9) = (/&
+&2.0332E+01_JPRB,1.9813E+01_JPRB,1.9282E+01_JPRB,1.8758E+01_JPRB,1.8233E+01_JPRB/)
+KBO( :,22, 9) = (/&
+&1.7867E+01_JPRB,1.7423E+01_JPRB,1.6975E+01_JPRB,1.6525E+01_JPRB,1.6078E+01_JPRB/)
+KBO( :,23, 9) = (/&
+&1.5726E+01_JPRB,1.5346E+01_JPRB,1.4961E+01_JPRB,1.4574E+01_JPRB,1.4194E+01_JPRB/)
+KBO( :,24, 9) = (/&
+&1.3878E+01_JPRB,1.3552E+01_JPRB,1.3218E+01_JPRB,1.2890E+01_JPRB,1.2567E+01_JPRB/)
+KBO( :,25, 9) = (/&
+&1.2174E+01_JPRB,1.1894E+01_JPRB,1.1612E+01_JPRB,1.1333E+01_JPRB,1.1065E+01_JPRB/)
+KBO( :,26, 9) = (/&
+&1.0586E+01_JPRB,1.0349E+01_JPRB,1.0113E+01_JPRB,9.8834E+00_JPRB,9.6689E+00_JPRB/)
+KBO( :,27, 9) = (/&
+&9.0691E+00_JPRB,8.8721E+00_JPRB,8.6784E+00_JPRB,8.4956E+00_JPRB,8.3263E+00_JPRB/)
+KBO( :,28, 9) = (/&
+&7.6767E+00_JPRB,7.5165E+00_JPRB,7.3638E+00_JPRB,7.2221E+00_JPRB,7.0906E+00_JPRB/)
+KBO( :,29, 9) = (/&
+&6.3535E+00_JPRB,6.2280E+00_JPRB,6.1107E+00_JPRB,6.0030E+00_JPRB,5.9021E+00_JPRB/)
+KBO( :,30, 9) = (/&
+&5.2055E+00_JPRB,5.1092E+00_JPRB,5.0195E+00_JPRB,4.9376E+00_JPRB,4.8626E+00_JPRB/)
+KBO( :,31, 9) = (/&
+&4.1917E+00_JPRB,4.1182E+00_JPRB,4.0499E+00_JPRB,3.9891E+00_JPRB,3.9344E+00_JPRB/)
+KBO( :,32, 9) = (/&
+&3.3675E+00_JPRB,3.3117E+00_JPRB,3.2607E+00_JPRB,3.2163E+00_JPRB,3.1756E+00_JPRB/)
+KBO( :,33, 9) = (/&
+&2.6963E+00_JPRB,2.6546E+00_JPRB,2.6175E+00_JPRB,2.5837E+00_JPRB,2.5542E+00_JPRB/)
+KBO( :,34, 9) = (/&
+&2.1803E+00_JPRB,2.1495E+00_JPRB,2.1217E+00_JPRB,2.0970E+00_JPRB,2.0762E+00_JPRB/)
+KBO( :,35, 9) = (/&
+&1.7668E+00_JPRB,1.7436E+00_JPRB,1.7230E+00_JPRB,1.7051E+00_JPRB,1.6899E+00_JPRB/)
+KBO( :,36, 9) = (/&
+&1.4368E+00_JPRB,1.4193E+00_JPRB,1.4041E+00_JPRB,1.3910E+00_JPRB,1.3800E+00_JPRB/)
+KBO( :,37, 9) = (/&
+&1.1784E+00_JPRB,1.1654E+00_JPRB,1.1542E+00_JPRB,1.1446E+00_JPRB,1.1369E+00_JPRB/)
+KBO( :,38, 9) = (/&
+&9.6334E-01_JPRB,9.5349E-01_JPRB,9.4564E-01_JPRB,9.3870E-01_JPRB,9.3338E-01_JPRB/)
+KBO( :,39, 9) = (/&
+&7.8429E-01_JPRB,7.7685E-01_JPRB,7.7074E-01_JPRB,7.6618E-01_JPRB,7.6263E-01_JPRB/)
+KBO( :,40, 9) = (/&
+&6.4772E-01_JPRB,6.4229E-01_JPRB,6.3796E-01_JPRB,6.3535E-01_JPRB,6.3341E-01_JPRB/)
+KBO( :,41, 9) = (/&
+&5.3551E-01_JPRB,5.3135E-01_JPRB,5.2845E-01_JPRB,5.2779E-01_JPRB,5.2692E-01_JPRB/)
+KBO( :,42, 9) = (/&
+&4.4125E-01_JPRB,4.3914E-01_JPRB,4.3725E-01_JPRB,4.3576E-01_JPRB,4.3762E-01_JPRB/)
+KBO( :,43, 9) = (/&
+&3.6461E-01_JPRB,3.6349E-01_JPRB,3.6221E-01_JPRB,3.6126E-01_JPRB,3.6369E-01_JPRB/)
+KBO( :,44, 9) = (/&
+&3.0116E-01_JPRB,3.0069E-01_JPRB,2.9982E-01_JPRB,2.9918E-01_JPRB,2.9973E-01_JPRB/)
+KBO( :,45, 9) = (/&
+&2.4811E-01_JPRB,2.4796E-01_JPRB,2.4739E-01_JPRB,2.4699E-01_JPRB,2.4766E-01_JPRB/)
+KBO( :,46, 9) = (/&
+&2.0425E-01_JPRB,2.0434E-01_JPRB,2.0395E-01_JPRB,2.0369E-01_JPRB,2.0438E-01_JPRB/)
+KBO( :,47, 9) = (/&
+&1.6854E-01_JPRB,1.6878E-01_JPRB,1.6855E-01_JPRB,1.6839E-01_JPRB,1.6908E-01_JPRB/)
+KBO( :,48, 9) = (/&
+&1.3856E-01_JPRB,1.3781E-01_JPRB,1.3873E-01_JPRB,1.3865E-01_JPRB,1.3926E-01_JPRB/)
+KBO( :,49, 9) = (/&
+&1.1334E-01_JPRB,1.1274E-01_JPRB,1.1357E-01_JPRB,1.1351E-01_JPRB,1.1403E-01_JPRB/)
+KBO( :,50, 9) = (/&
+&9.3340E-02_JPRB,9.2916E-02_JPRB,9.2960E-02_JPRB,9.3712E-02_JPRB,9.4205E-02_JPRB/)
+KBO( :,51, 9) = (/&
+&7.7078E-02_JPRB,7.6810E-02_JPRB,7.6922E-02_JPRB,7.7641E-02_JPRB,7.8122E-02_JPRB/)
+KBO( :,52, 9) = (/&
+&6.2961E-02_JPRB,6.3281E-02_JPRB,6.3427E-02_JPRB,6.4092E-02_JPRB,6.4534E-02_JPRB/)
+KBO( :,53, 9) = (/&
+&5.1588E-02_JPRB,5.1905E-02_JPRB,5.2063E-02_JPRB,5.2646E-02_JPRB,5.3031E-02_JPRB/)
+KBO( :,54, 9) = (/&
+&4.2943E-02_JPRB,4.3300E-02_JPRB,4.3511E-02_JPRB,4.4097E-02_JPRB,4.4499E-02_JPRB/)
+KBO( :,55, 9) = (/&
+&3.6096E-02_JPRB,3.6506E-02_JPRB,3.6778E-02_JPRB,3.7049E-02_JPRB,3.7847E-02_JPRB/)
+KBO( :,56, 9) = (/&
+&3.0345E-02_JPRB,3.0787E-02_JPRB,3.1097E-02_JPRB,3.1405E-02_JPRB,3.2218E-02_JPRB/)
+KBO( :,57, 9) = (/&
+&2.5512E-02_JPRB,2.5968E-02_JPRB,2.6302E-02_JPRB,2.6632E-02_JPRB,2.7138E-02_JPRB/)
+KBO( :,58, 9) = (/&
+&2.1539E-02_JPRB,2.1998E-02_JPRB,2.2352E-02_JPRB,2.2699E-02_JPRB,2.3217E-02_JPRB/)
+KBO( :,59, 9) = (/&
+&1.8855E-02_JPRB,1.9380E-02_JPRB,1.9801E-02_JPRB,2.0231E-02_JPRB,2.0859E-02_JPRB/)
+KBO( :,13,10) = (/&
+&2.5222E+02_JPRB,2.4612E+02_JPRB,2.3929E+02_JPRB,2.3199E+02_JPRB,2.2461E+02_JPRB/)
+KBO( :,14,10) = (/&
+&2.3124E+02_JPRB,2.2528E+02_JPRB,2.1850E+02_JPRB,2.1149E+02_JPRB,2.0433E+02_JPRB/)
+KBO( :,15,10) = (/&
+&2.0842E+02_JPRB,2.0210E+02_JPRB,1.9531E+02_JPRB,1.8854E+02_JPRB,1.8251E+02_JPRB/)
+KBO( :,16,10) = (/&
+&1.8399E+02_JPRB,1.7799E+02_JPRB,1.7194E+02_JPRB,1.6680E+02_JPRB,1.6231E+02_JPRB/)
+KBO( :,17,10) = (/&
+&1.6010E+02_JPRB,1.5487E+02_JPRB,1.5049E+02_JPRB,1.4638E+02_JPRB,1.4212E+02_JPRB/)
+KBO( :,18,10) = (/&
+&1.3804E+02_JPRB,1.3430E+02_JPRB,1.3065E+02_JPRB,1.2671E+02_JPRB,1.2276E+02_JPRB/)
+KBO( :,19,10) = (/&
+&1.1867E+02_JPRB,1.1546E+02_JPRB,1.1199E+02_JPRB,1.0849E+02_JPRB,1.0500E+02_JPRB/)
+KBO( :,20,10) = (/&
+&1.0103E+02_JPRB,9.8101E+01_JPRB,9.5080E+01_JPRB,9.2102E+01_JPRB,8.9111E+01_JPRB/)
+KBO( :,21,10) = (/&
+&8.5674E+01_JPRB,8.3188E+01_JPRB,8.0672E+01_JPRB,7.8136E+01_JPRB,7.5728E+01_JPRB/)
+KBO( :,22,10) = (/&
+&7.2715E+01_JPRB,7.0591E+01_JPRB,6.8415E+01_JPRB,6.6340E+01_JPRB,6.4345E+01_JPRB/)
+KBO( :,23,10) = (/&
+&6.3022E+01_JPRB,6.1199E+01_JPRB,5.9439E+01_JPRB,5.7725E+01_JPRB,5.6010E+01_JPRB/)
+KBO( :,24,10) = (/&
+&5.5774E+01_JPRB,5.4272E+01_JPRB,5.2819E+01_JPRB,5.1321E+01_JPRB,4.9883E+01_JPRB/)
+KBO( :,25,10) = (/&
+&4.9593E+01_JPRB,4.8355E+01_JPRB,4.7055E+01_JPRB,4.5778E+01_JPRB,4.4535E+01_JPRB/)
+KBO( :,26,10) = (/&
+&4.4197E+01_JPRB,4.3085E+01_JPRB,4.1954E+01_JPRB,4.0860E+01_JPRB,3.9753E+01_JPRB/)
+KBO( :,27,10) = (/&
+&3.8885E+01_JPRB,3.7934E+01_JPRB,3.6990E+01_JPRB,3.6031E+01_JPRB,3.5121E+01_JPRB/)
+KBO( :,28,10) = (/&
+&3.3738E+01_JPRB,3.2939E+01_JPRB,3.2117E+01_JPRB,3.1331E+01_JPRB,3.0617E+01_JPRB/)
+KBO( :,29,10) = (/&
+&2.8541E+01_JPRB,2.7853E+01_JPRB,2.7182E+01_JPRB,2.6569E+01_JPRB,2.6005E+01_JPRB/)
+KBO( :,30,10) = (/&
+&2.3779E+01_JPRB,2.3214E+01_JPRB,2.2688E+01_JPRB,2.2215E+01_JPRB,2.1758E+01_JPRB/)
+KBO( :,31,10) = (/&
+&1.9404E+01_JPRB,1.8965E+01_JPRB,1.8559E+01_JPRB,1.8185E+01_JPRB,1.7827E+01_JPRB/)
+KBO( :,32,10) = (/&
+&1.5788E+01_JPRB,1.5447E+01_JPRB,1.5130E+01_JPRB,1.4835E+01_JPRB,1.4579E+01_JPRB/)
+KBO( :,33,10) = (/&
+&1.2793E+01_JPRB,1.2531E+01_JPRB,1.2285E+01_JPRB,1.2073E+01_JPRB,1.1879E+01_JPRB/)
+KBO( :,34,10) = (/&
+&1.0446E+01_JPRB,1.0243E+01_JPRB,1.0069E+01_JPRB,9.9145E+00_JPRB,9.7688E+00_JPRB/)
+KBO( :,35,10) = (/&
+&8.5407E+00_JPRB,8.3976E+00_JPRB,8.2688E+00_JPRB,8.1501E+00_JPRB,8.0525E+00_JPRB/)
+KBO( :,36,10) = (/&
+&7.0161E+00_JPRB,6.9119E+00_JPRB,6.8145E+00_JPRB,6.7306E+00_JPRB,6.6644E+00_JPRB/)
+KBO( :,37,10) = (/&
+&5.8170E+00_JPRB,5.7380E+00_JPRB,5.6680E+00_JPRB,5.6107E+00_JPRB,5.5656E+00_JPRB/)
+KBO( :,38,10) = (/&
+&4.8093E+00_JPRB,4.7487E+00_JPRB,4.7024E+00_JPRB,4.6645E+00_JPRB,4.6357E+00_JPRB/)
+KBO( :,39,10) = (/&
+&3.9585E+00_JPRB,3.9132E+00_JPRB,3.8808E+00_JPRB,3.8606E+00_JPRB,3.8428E+00_JPRB/)
+KBO( :,40,10) = (/&
+&3.2997E+00_JPRB,3.2689E+00_JPRB,3.2488E+00_JPRB,3.2415E+00_JPRB,3.2340E+00_JPRB/)
+KBO( :,41,10) = (/&
+&2.7489E+00_JPRB,2.7291E+00_JPRB,2.7189E+00_JPRB,2.7232E+00_JPRB,2.7224E+00_JPRB/)
+KBO( :,42,10) = (/&
+&2.2781E+00_JPRB,2.2743E+00_JPRB,2.2709E+00_JPRB,2.2713E+00_JPRB,2.2863E+00_JPRB/)
+KBO( :,43,10) = (/&
+&1.8935E+00_JPRB,1.8963E+00_JPRB,1.8973E+00_JPRB,1.9006E+00_JPRB,1.9189E+00_JPRB/)
+KBO( :,44,10) = (/&
+&1.5720E+00_JPRB,1.5786E+00_JPRB,1.5822E+00_JPRB,1.5873E+00_JPRB,1.5962E+00_JPRB/)
+KBO( :,45,10) = (/&
+&1.3015E+00_JPRB,1.3098E+00_JPRB,1.3146E+00_JPRB,1.3205E+00_JPRB,1.3299E+00_JPRB/)
+KBO( :,46,10) = (/&
+&1.0763E+00_JPRB,1.0855E+00_JPRB,1.0907E+00_JPRB,1.0967E+00_JPRB,1.1061E+00_JPRB/)
+KBO( :,47,10) = (/&
+&8.9190E-01_JPRB,9.0098E-01_JPRB,9.0614E-01_JPRB,9.1228E-01_JPRB,9.2153E-01_JPRB/)
+KBO( :,48,10) = (/&
+&7.3634E-01_JPRB,7.3759E-01_JPRB,7.4968E-01_JPRB,7.5555E-01_JPRB,7.6432E-01_JPRB/)
+KBO( :,49,10) = (/&
+&6.0496E-01_JPRB,6.0623E-01_JPRB,6.1696E-01_JPRB,6.2219E-01_JPRB,6.3000E-01_JPRB/)
+KBO( :,50,10) = (/&
+&5.0029E-01_JPRB,5.0191E-01_JPRB,5.0745E-01_JPRB,5.1663E-01_JPRB,5.2391E-01_JPRB/)
+KBO( :,51,10) = (/&
+&4.1493E-01_JPRB,4.1674E-01_JPRB,4.2213E-01_JPRB,4.3055E-01_JPRB,4.3747E-01_JPRB/)
+KBO( :,52,10) = (/&
+&3.3972E-01_JPRB,3.4486E-01_JPRB,3.4995E-01_JPRB,3.5750E-01_JPRB,3.6394E-01_JPRB/)
+KBO( :,53,10) = (/&
+&2.7969E-01_JPRB,2.8412E-01_JPRB,2.8871E-01_JPRB,2.9534E-01_JPRB,3.0120E-01_JPRB/)
+KBO( :,54,10) = (/&
+&2.3381E-01_JPRB,2.3806E-01_JPRB,2.4256E-01_JPRB,2.4899E-01_JPRB,2.5461E-01_JPRB/)
+KBO( :,55,10) = (/&
+&1.9747E-01_JPRB,2.0173E-01_JPRB,2.0629E-01_JPRB,2.1052E-01_JPRB,2.1835E-01_JPRB/)
+KBO( :,56,10) = (/&
+&1.6704E-01_JPRB,1.7122E-01_JPRB,1.7573E-01_JPRB,1.8004E-01_JPRB,1.8767E-01_JPRB/)
+KBO( :,57,10) = (/&
+&1.4152E-01_JPRB,1.4559E-01_JPRB,1.5002E-01_JPRB,1.5430E-01_JPRB,1.5960E-01_JPRB/)
+KBO( :,58,10) = (/&
+&1.2052E-01_JPRB,1.2461E-01_JPRB,1.2894E-01_JPRB,1.3321E-01_JPRB,1.3854E-01_JPRB/)
+KBO( :,59,10) = (/&
+&1.0716E-01_JPRB,1.1189E-01_JPRB,1.1675E-01_JPRB,1.2166E-01_JPRB,1.2804E-01_JPRB/)
+KBO( :,13,11) = (/&
+&4.2154E+02_JPRB,4.0884E+02_JPRB,3.9820E+02_JPRB,3.8820E+02_JPRB,3.7793E+02_JPRB/)
+KBO( :,14,11) = (/&
+&3.9257E+02_JPRB,3.8172E+02_JPRB,3.7181E+02_JPRB,3.6139E+02_JPRB,3.5047E+02_JPRB/)
+KBO( :,15,11) = (/&
+&3.6309E+02_JPRB,3.5353E+02_JPRB,3.4340E+02_JPRB,3.3282E+02_JPRB,3.2240E+02_JPRB/)
+KBO( :,16,11) = (/&
+&3.3141E+02_JPRB,3.2240E+02_JPRB,3.1248E+02_JPRB,3.0233E+02_JPRB,2.9245E+02_JPRB/)
+KBO( :,17,11) = (/&
+&2.9757E+02_JPRB,2.8848E+02_JPRB,2.7872E+02_JPRB,2.6968E+02_JPRB,2.6158E+02_JPRB/)
+KBO( :,18,11) = (/&
+&2.6199E+02_JPRB,2.5343E+02_JPRB,2.4537E+02_JPRB,2.3848E+02_JPRB,2.3223E+02_JPRB/)
+KBO( :,19,11) = (/&
+&2.2769E+02_JPRB,2.2078E+02_JPRB,2.1490E+02_JPRB,2.0918E+02_JPRB,2.0314E+02_JPRB/)
+KBO( :,20,11) = (/&
+&1.9687E+02_JPRB,1.9172E+02_JPRB,1.8662E+02_JPRB,1.8113E+02_JPRB,1.7551E+02_JPRB/)
+KBO( :,21,11) = (/&
+&1.6926E+02_JPRB,1.6478E+02_JPRB,1.5994E+02_JPRB,1.5502E+02_JPRB,1.5010E+02_JPRB/)
+KBO( :,22,11) = (/&
+&1.4392E+02_JPRB,1.3980E+02_JPRB,1.3565E+02_JPRB,1.3147E+02_JPRB,1.2734E+02_JPRB/)
+KBO( :,23,11) = (/&
+&1.2176E+02_JPRB,1.1828E+02_JPRB,1.1480E+02_JPRB,1.1132E+02_JPRB,1.0802E+02_JPRB/)
+KBO( :,24,11) = (/&
+&1.0420E+02_JPRB,1.0127E+02_JPRB,9.8266E+01_JPRB,9.5452E+01_JPRB,9.2657E+01_JPRB/)
+KBO( :,25,11) = (/&
+&9.1405E+01_JPRB,8.8856E+01_JPRB,8.6441E+01_JPRB,8.4023E+01_JPRB,8.1601E+01_JPRB/)
+KBO( :,26,11) = (/&
+&8.1068E+01_JPRB,7.8976E+01_JPRB,7.6905E+01_JPRB,7.4806E+01_JPRB,7.2749E+01_JPRB/)
+KBO( :,27,11) = (/&
+&7.1641E+01_JPRB,6.9868E+01_JPRB,6.8049E+01_JPRB,6.6237E+01_JPRB,6.4456E+01_JPRB/)
+KBO( :,28,11) = (/&
+&6.3023E+01_JPRB,6.1456E+01_JPRB,5.9871E+01_JPRB,5.8321E+01_JPRB,5.6798E+01_JPRB/)
+KBO( :,29,11) = (/&
+&5.4205E+01_JPRB,5.2861E+01_JPRB,5.1529E+01_JPRB,5.0220E+01_JPRB,4.8999E+01_JPRB/)
+KBO( :,30,11) = (/&
+&4.5934E+01_JPRB,4.4818E+01_JPRB,4.3703E+01_JPRB,4.2668E+01_JPRB,4.1730E+01_JPRB/)
+KBO( :,31,11) = (/&
+&3.8066E+01_JPRB,3.7138E+01_JPRB,3.6268E+01_JPRB,3.5481E+01_JPRB,3.4768E+01_JPRB/)
+KBO( :,32,11) = (/&
+&3.1328E+01_JPRB,3.0606E+01_JPRB,2.9939E+01_JPRB,2.9343E+01_JPRB,2.8780E+01_JPRB/)
+KBO( :,33,11) = (/&
+&2.5648E+01_JPRB,2.5098E+01_JPRB,2.4592E+01_JPRB,2.4122E+01_JPRB,2.3697E+01_JPRB/)
+KBO( :,34,11) = (/&
+&2.1176E+01_JPRB,2.0755E+01_JPRB,2.0363E+01_JPRB,2.0008E+01_JPRB,1.9706E+01_JPRB/)
+KBO( :,35,11) = (/&
+&1.7503E+01_JPRB,1.7179E+01_JPRB,1.6884E+01_JPRB,1.6631E+01_JPRB,1.6410E+01_JPRB/)
+KBO( :,36,11) = (/&
+&1.4490E+01_JPRB,1.4242E+01_JPRB,1.4035E+01_JPRB,1.3856E+01_JPRB,1.3691E+01_JPRB/)
+KBO( :,37,11) = (/&
+&1.2080E+01_JPRB,1.1899E+01_JPRB,1.1752E+01_JPRB,1.1622E+01_JPRB,1.1507E+01_JPRB/)
+KBO( :,38,11) = (/&
+&1.0040E+01_JPRB,9.9127E+00_JPRB,9.8092E+00_JPRB,9.7168E+00_JPRB,9.6388E+00_JPRB/)
+KBO( :,39,11) = (/&
+&8.3186E+00_JPRB,8.2268E+00_JPRB,8.1489E+00_JPRB,8.0924E+00_JPRB,8.0458E+00_JPRB/)
+KBO( :,40,11) = (/&
+&6.9855E+00_JPRB,6.9204E+00_JPRB,6.8705E+00_JPRB,6.8363E+00_JPRB,6.8129E+00_JPRB/)
+KBO( :,41,11) = (/&
+&5.8673E+00_JPRB,5.8227E+00_JPRB,5.7933E+00_JPRB,5.7844E+00_JPRB,5.7806E+00_JPRB/)
+KBO( :,42,11) = (/&
+&4.9033E+00_JPRB,4.8902E+00_JPRB,4.8772E+00_JPRB,4.8711E+00_JPRB,4.8995E+00_JPRB/)
+KBO( :,43,11) = (/&
+&4.1043E+00_JPRB,4.1084E+00_JPRB,4.1066E+00_JPRB,4.1113E+00_JPRB,4.1531E+00_JPRB/)
+KBO( :,44,11) = (/&
+&3.4292E+00_JPRB,3.4435E+00_JPRB,3.4506E+00_JPRB,3.4628E+00_JPRB,3.4927E+00_JPRB/)
+KBO( :,45,11) = (/&
+&2.8550E+00_JPRB,2.8746E+00_JPRB,2.8867E+00_JPRB,2.9043E+00_JPRB,2.9376E+00_JPRB/)
+KBO( :,46,11) = (/&
+&2.3728E+00_JPRB,2.3953E+00_JPRB,2.4108E+00_JPRB,2.4301E+00_JPRB,2.4648E+00_JPRB/)
+KBO( :,47,11) = (/&
+&1.9739E+00_JPRB,1.9977E+00_JPRB,2.0154E+00_JPRB,2.0359E+00_JPRB,2.0698E+00_JPRB/)
+KBO( :,48,11) = (/&
+&1.6359E+00_JPRB,1.6436E+00_JPRB,1.6769E+00_JPRB,1.6970E+00_JPRB,1.7291E+00_JPRB/)
+KBO( :,49,11) = (/&
+&1.3494E+00_JPRB,1.3567E+00_JPRB,1.3870E+00_JPRB,1.4058E+00_JPRB,1.4355E+00_JPRB/)
+KBO( :,50,11) = (/&
+&1.1201E+00_JPRB,1.1274E+00_JPRB,1.1447E+00_JPRB,1.1735E+00_JPRB,1.2015E+00_JPRB/)
+KBO( :,51,11) = (/&
+&9.3236E-01_JPRB,9.3956E-01_JPRB,9.5616E-01_JPRB,9.8266E-01_JPRB,1.0088E+00_JPRB/)
+KBO( :,52,11) = (/&
+&7.6514E-01_JPRB,7.8058E-01_JPRB,7.9612E-01_JPRB,8.2019E-01_JPRB,8.4401E-01_JPRB/)
+KBO( :,53,11) = (/&
+&6.3163E-01_JPRB,6.4570E-01_JPRB,6.5991E-01_JPRB,6.8147E-01_JPRB,7.0283E-01_JPRB/)
+KBO( :,54,11) = (/&
+&5.2916E-01_JPRB,5.4264E-01_JPRB,5.5622E-01_JPRB,5.7680E-01_JPRB,5.9711E-01_JPRB/)
+KBO( :,55,11) = (/&
+&4.4763E-01_JPRB,4.6092E-01_JPRB,4.7420E-01_JPRB,4.8811E-01_JPRB,5.1412E-01_JPRB/)
+KBO( :,56,11) = (/&
+&3.7915E-01_JPRB,3.9216E-01_JPRB,4.0486E-01_JPRB,4.1856E-01_JPRB,4.4359E-01_JPRB/)
+KBO( :,57,11) = (/&
+&3.2167E-01_JPRB,3.3432E-01_JPRB,3.4630E-01_JPRB,3.5981E-01_JPRB,3.7784E-01_JPRB/)
+KBO( :,58,11) = (/&
+&2.7464E-01_JPRB,2.8702E-01_JPRB,2.9867E-01_JPRB,3.1204E-01_JPRB,3.2934E-01_JPRB/)
+KBO( :,59,11) = (/&
+&2.4621E-01_JPRB,2.6016E-01_JPRB,2.7340E-01_JPRB,2.8845E-01_JPRB,3.0710E-01_JPRB/)
+KBO( :,13,12) = (/&
+&7.6977E+02_JPRB,7.4793E+02_JPRB,7.2446E+02_JPRB,7.0066E+02_JPRB,6.7917E+02_JPRB/)
+KBO( :,14,12) = (/&
+&7.3387E+02_JPRB,7.1230E+02_JPRB,6.9130E+02_JPRB,6.7176E+02_JPRB,6.5300E+02_JPRB/)
+KBO( :,15,12) = (/&
+&6.8782E+02_JPRB,6.6903E+02_JPRB,6.5059E+02_JPRB,6.3401E+02_JPRB,6.1759E+02_JPRB/)
+KBO( :,16,12) = (/&
+&6.4095E+02_JPRB,6.2380E+02_JPRB,6.0836E+02_JPRB,5.9188E+02_JPRB,5.7529E+02_JPRB/)
+KBO( :,17,12) = (/&
+&5.9449E+02_JPRB,5.7921E+02_JPRB,5.6352E+02_JPRB,5.4698E+02_JPRB,5.3012E+02_JPRB/)
+KBO( :,18,12) = (/&
+&5.4607E+02_JPRB,5.3143E+02_JPRB,5.1532E+02_JPRB,4.9867E+02_JPRB,4.8280E+02_JPRB/)
+KBO( :,19,12) = (/&
+&4.9392E+02_JPRB,4.7903E+02_JPRB,4.6380E+02_JPRB,4.4890E+02_JPRB,4.3556E+02_JPRB/)
+KBO( :,20,12) = (/&
+&4.3831E+02_JPRB,4.2422E+02_JPRB,4.1067E+02_JPRB,3.9873E+02_JPRB,3.8790E+02_JPRB/)
+KBO( :,21,12) = (/&
+&3.8303E+02_JPRB,3.7136E+02_JPRB,3.6097E+02_JPRB,3.5152E+02_JPRB,3.4179E+02_JPRB/)
+KBO( :,22,12) = (/&
+&3.3154E+02_JPRB,3.2264E+02_JPRB,3.1420E+02_JPRB,3.0537E+02_JPRB,2.9621E+02_JPRB/)
+KBO( :,23,12) = (/&
+&2.8552E+02_JPRB,2.7799E+02_JPRB,2.7005E+02_JPRB,2.6190E+02_JPRB,2.5375E+02_JPRB/)
+KBO( :,24,12) = (/&
+&2.4392E+02_JPRB,2.3705E+02_JPRB,2.3003E+02_JPRB,2.2307E+02_JPRB,2.1616E+02_JPRB/)
+KBO( :,25,12) = (/&
+&2.0671E+02_JPRB,2.0086E+02_JPRB,1.9497E+02_JPRB,1.8915E+02_JPRB,1.8353E+02_JPRB/)
+KBO( :,26,12) = (/&
+&1.7664E+02_JPRB,1.7174E+02_JPRB,1.6687E+02_JPRB,1.6216E+02_JPRB,1.5754E+02_JPRB/)
+KBO( :,27,12) = (/&
+&1.5319E+02_JPRB,1.4908E+02_JPRB,1.4506E+02_JPRB,1.4106E+02_JPRB,1.3709E+02_JPRB/)
+KBO( :,28,12) = (/&
+&1.3430E+02_JPRB,1.3082E+02_JPRB,1.2741E+02_JPRB,1.2394E+02_JPRB,1.2050E+02_JPRB/)
+KBO( :,29,12) = (/&
+&1.1630E+02_JPRB,1.1343E+02_JPRB,1.1046E+02_JPRB,1.0751E+02_JPRB,1.0464E+02_JPRB/)
+KBO( :,30,12) = (/&
+&1.0003E+02_JPRB,9.7504E+01_JPRB,9.4984E+01_JPRB,9.2511E+01_JPRB,9.0094E+01_JPRB/)
+KBO( :,31,12) = (/&
+&8.4543E+01_JPRB,8.2421E+01_JPRB,8.0309E+01_JPRB,7.8252E+01_JPRB,7.6362E+01_JPRB/)
+KBO( :,32,12) = (/&
+&7.1066E+01_JPRB,6.9287E+01_JPRB,6.7542E+01_JPRB,6.5943E+01_JPRB,6.4517E+01_JPRB/)
+KBO( :,33,12) = (/&
+&5.9266E+01_JPRB,5.7811E+01_JPRB,5.6464E+01_JPRB,5.5276E+01_JPRB,5.4194E+01_JPRB/)
+KBO( :,34,12) = (/&
+&4.9681E+01_JPRB,4.8546E+01_JPRB,4.7554E+01_JPRB,4.6656E+01_JPRB,4.5832E+01_JPRB/)
+KBO( :,35,12) = (/&
+&4.1619E+01_JPRB,4.0779E+01_JPRB,4.0048E+01_JPRB,3.9371E+01_JPRB,3.8753E+01_JPRB/)
+KBO( :,36,12) = (/&
+&3.4973E+01_JPRB,3.4356E+01_JPRB,3.3793E+01_JPRB,3.3278E+01_JPRB,3.2853E+01_JPRB/)
+KBO( :,37,12) = (/&
+&2.9625E+01_JPRB,2.9160E+01_JPRB,2.8725E+01_JPRB,2.8363E+01_JPRB,2.8073E+01_JPRB/)
+KBO( :,38,12) = (/&
+&2.4970E+01_JPRB,2.4629E+01_JPRB,2.4322E+01_JPRB,2.4082E+01_JPRB,2.3896E+01_JPRB/)
+KBO( :,39,12) = (/&
+&2.0934E+01_JPRB,2.0693E+01_JPRB,2.0489E+01_JPRB,2.0344E+01_JPRB,2.0233E+01_JPRB/)
+KBO( :,40,12) = (/&
+&1.7744E+01_JPRB,1.7586E+01_JPRB,1.7465E+01_JPRB,1.7392E+01_JPRB,1.7346E+01_JPRB/)
+KBO( :,41,12) = (/&
+&1.5025E+01_JPRB,1.4924E+01_JPRB,1.4869E+01_JPRB,1.4860E+01_JPRB,1.4867E+01_JPRB/)
+KBO( :,42,12) = (/&
+&1.2685E+01_JPRB,1.2638E+01_JPRB,1.2631E+01_JPRB,1.2651E+01_JPRB,1.2715E+01_JPRB/)
+KBO( :,43,12) = (/&
+&1.0719E+01_JPRB,1.0717E+01_JPRB,1.0742E+01_JPRB,1.0783E+01_JPRB,1.0880E+01_JPRB/)
+KBO( :,44,12) = (/&
+&9.0501E+00_JPRB,9.0820E+00_JPRB,9.1279E+00_JPRB,9.1850E+00_JPRB,9.2721E+00_JPRB/)
+KBO( :,45,12) = (/&
+&7.6162E+00_JPRB,7.6722E+00_JPRB,7.7324E+00_JPRB,7.8018E+00_JPRB,7.9000E+00_JPRB/)
+KBO( :,46,12) = (/&
+&6.3962E+00_JPRB,6.4687E+00_JPRB,6.5373E+00_JPRB,6.6160E+00_JPRB,6.7192E+00_JPRB/)
+KBO( :,47,12) = (/&
+&5.3742E+00_JPRB,5.4559E+00_JPRB,5.5296E+00_JPRB,5.6153E+00_JPRB,5.7197E+00_JPRB/)
+KBO( :,48,12) = (/&
+&4.4947E+00_JPRB,4.5364E+00_JPRB,4.6536E+00_JPRB,4.7417E+00_JPRB,4.8452E+00_JPRB/)
+KBO( :,49,12) = (/&
+&3.7377E+00_JPRB,3.7797E+00_JPRB,3.8917E+00_JPRB,3.9774E+00_JPRB,4.0760E+00_JPRB/)
+KBO( :,50,12) = (/&
+&3.1257E+00_JPRB,3.1688E+00_JPRB,3.2414E+00_JPRB,3.3587E+00_JPRB,3.4531E+00_JPRB/)
+KBO( :,51,12) = (/&
+&2.6197E+00_JPRB,2.6616E+00_JPRB,2.7310E+00_JPRB,2.8422E+00_JPRB,2.9329E+00_JPRB/)
+KBO( :,52,12) = (/&
+&2.1600E+00_JPRB,2.2271E+00_JPRB,2.2920E+00_JPRB,2.3952E+00_JPRB,2.4794E+00_JPRB/)
+KBO( :,53,12) = (/&
+&1.7940E+00_JPRB,1.8552E+00_JPRB,1.9143E+00_JPRB,2.0071E+00_JPRB,2.0842E+00_JPRB/)
+KBO( :,54,12) = (/&
+&1.5125E+00_JPRB,1.5709E+00_JPRB,1.6271E+00_JPRB,1.7149E+00_JPRB,1.7900E+00_JPRB/)
+KBO( :,55,12) = (/&
+&1.2864E+00_JPRB,1.3434E+00_JPRB,1.3983E+00_JPRB,1.4607E+00_JPRB,1.5586E+00_JPRB/)
+KBO( :,56,12) = (/&
+&1.0940E+00_JPRB,1.1493E+00_JPRB,1.2023E+00_JPRB,1.2621E+00_JPRB,1.3583E+00_JPRB/)
+KBO( :,57,12) = (/&
+&9.3078E-01_JPRB,9.8417E-01_JPRB,1.0349E+00_JPRB,1.0915E+00_JPRB,1.1646E+00_JPRB/)
+KBO( :,58,12) = (/&
+&7.9608E-01_JPRB,8.4769E-01_JPRB,8.9646E-01_JPRB,9.5071E-01_JPRB,1.0223E+00_JPRB/)
+KBO( :,59,12) = (/&
+&7.1554E-01_JPRB,7.6833E-01_JPRB,8.2032E-01_JPRB,8.7901E-01_JPRB,9.5749E-01_JPRB/)
+KBO( :,13,13) = (/&
+&1.4216E+03_JPRB,1.3963E+03_JPRB,1.3631E+03_JPRB,1.3261E+03_JPRB,1.2872E+03_JPRB/)
+KBO( :,14,13) = (/&
+&1.4474E+03_JPRB,1.4163E+03_JPRB,1.3787E+03_JPRB,1.3394E+03_JPRB,1.2981E+03_JPRB/)
+KBO( :,15,13) = (/&
+&1.4512E+03_JPRB,1.4149E+03_JPRB,1.3749E+03_JPRB,1.3327E+03_JPRB,1.2901E+03_JPRB/)
+KBO( :,16,13) = (/&
+&1.4256E+03_JPRB,1.3858E+03_JPRB,1.3435E+03_JPRB,1.3004E+03_JPRB,1.2608E+03_JPRB/)
+KBO( :,17,13) = (/&
+&1.3679E+03_JPRB,1.3285E+03_JPRB,1.2893E+03_JPRB,1.2520E+03_JPRB,1.2169E+03_JPRB/)
+KBO( :,18,13) = (/&
+&1.2910E+03_JPRB,1.2552E+03_JPRB,1.2211E+03_JPRB,1.1883E+03_JPRB,1.1564E+03_JPRB/)
+KBO( :,19,13) = (/&
+&1.2049E+03_JPRB,1.1727E+03_JPRB,1.1421E+03_JPRB,1.1114E+03_JPRB,1.0816E+03_JPRB/)
+KBO( :,20,13) = (/&
+&1.1167E+03_JPRB,1.0881E+03_JPRB,1.0594E+03_JPRB,1.0292E+03_JPRB,9.9813E+02_JPRB/)
+KBO( :,21,13) = (/&
+&1.0270E+03_JPRB,9.9863E+02_JPRB,9.6867E+02_JPRB,9.3868E+02_JPRB,9.1038E+02_JPRB/)
+KBO( :,22,13) = (/&
+&9.2976E+02_JPRB,9.0181E+02_JPRB,8.7366E+02_JPRB,8.4725E+02_JPRB,8.2285E+02_JPRB/)
+KBO( :,23,13) = (/&
+&8.2725E+02_JPRB,8.0202E+02_JPRB,7.7822E+02_JPRB,7.5610E+02_JPRB,7.3490E+02_JPRB/)
+KBO( :,24,13) = (/&
+&7.2581E+02_JPRB,7.0458E+02_JPRB,6.8480E+02_JPRB,6.6655E+02_JPRB,6.4907E+02_JPRB/)
+KBO( :,25,13) = (/&
+&6.3072E+02_JPRB,6.1389E+02_JPRB,5.9813E+02_JPRB,5.8216E+02_JPRB,5.6605E+02_JPRB/)
+KBO( :,26,13) = (/&
+&5.4441E+02_JPRB,5.3034E+02_JPRB,5.1604E+02_JPRB,5.0169E+02_JPRB,4.8714E+02_JPRB/)
+KBO( :,27,13) = (/&
+&4.6653E+02_JPRB,4.5389E+02_JPRB,4.4148E+02_JPRB,4.2897E+02_JPRB,4.1698E+02_JPRB/)
+KBO( :,28,13) = (/&
+&3.9708E+02_JPRB,3.8655E+02_JPRB,3.7613E+02_JPRB,3.6588E+02_JPRB,3.5605E+02_JPRB/)
+KBO( :,29,13) = (/&
+&3.3742E+02_JPRB,3.2877E+02_JPRB,3.2031E+02_JPRB,3.1201E+02_JPRB,3.0377E+02_JPRB/)
+KBO( :,30,13) = (/&
+&2.8701E+02_JPRB,2.8009E+02_JPRB,2.7310E+02_JPRB,2.6617E+02_JPRB,2.5918E+02_JPRB/)
+KBO( :,31,13) = (/&
+&2.4344E+02_JPRB,2.3761E+02_JPRB,2.3174E+02_JPRB,2.2586E+02_JPRB,2.1997E+02_JPRB/)
+KBO( :,32,13) = (/&
+&2.0631E+02_JPRB,2.0140E+02_JPRB,1.9647E+02_JPRB,1.9146E+02_JPRB,1.8661E+02_JPRB/)
+KBO( :,33,13) = (/&
+&1.7451E+02_JPRB,1.7040E+02_JPRB,1.6625E+02_JPRB,1.6215E+02_JPRB,1.5828E+02_JPRB/)
+KBO( :,34,13) = (/&
+&1.4849E+02_JPRB,1.4504E+02_JPRB,1.4164E+02_JPRB,1.3837E+02_JPRB,1.3534E+02_JPRB/)
+KBO( :,35,13) = (/&
+&1.2667E+02_JPRB,1.2383E+02_JPRB,1.2110E+02_JPRB,1.1850E+02_JPRB,1.1620E+02_JPRB/)
+KBO( :,36,13) = (/&
+&1.0839E+02_JPRB,1.0609E+02_JPRB,1.0390E+02_JPRB,1.0191E+02_JPRB,1.0024E+02_JPRB/)
+KBO( :,37,13) = (/&
+&9.3433E+01_JPRB,9.1633E+01_JPRB,8.9904E+01_JPRB,8.8384E+01_JPRB,8.7182E+01_JPRB/)
+KBO( :,38,13) = (/&
+&8.0277E+01_JPRB,7.8883E+01_JPRB,7.7590E+01_JPRB,7.6493E+01_JPRB,7.5656E+01_JPRB/)
+KBO( :,39,13) = (/&
+&6.8616E+01_JPRB,6.7545E+01_JPRB,6.6602E+01_JPRB,6.5907E+01_JPRB,6.5350E+01_JPRB/)
+KBO( :,40,13) = (/&
+&5.9404E+01_JPRB,5.8632E+01_JPRB,5.7971E+01_JPRB,5.7558E+01_JPRB,5.7248E+01_JPRB/)
+KBO( :,41,13) = (/&
+&5.1376E+01_JPRB,5.0859E+01_JPRB,5.0445E+01_JPRB,5.0221E+01_JPRB,5.0128E+01_JPRB/)
+KBO( :,42,13) = (/&
+&4.4234E+01_JPRB,4.3936E+01_JPRB,4.3743E+01_JPRB,4.3725E+01_JPRB,4.3767E+01_JPRB/)
+KBO( :,43,13) = (/&
+&3.8053E+01_JPRB,3.7937E+01_JPRB,3.7898E+01_JPRB,3.8023E+01_JPRB,3.8201E+01_JPRB/)
+KBO( :,44,13) = (/&
+&3.2676E+01_JPRB,3.2705E+01_JPRB,3.2770E+01_JPRB,3.2989E+01_JPRB,3.3265E+01_JPRB/)
+KBO( :,45,13) = (/&
+&2.7944E+01_JPRB,2.8089E+01_JPRB,2.8247E+01_JPRB,2.8518E+01_JPRB,2.8846E+01_JPRB/)
+KBO( :,46,13) = (/&
+&2.3845E+01_JPRB,2.4085E+01_JPRB,2.4309E+01_JPRB,2.4615E+01_JPRB,2.4979E+01_JPRB/)
+KBO( :,47,13) = (/&
+&2.0369E+01_JPRB,2.0675E+01_JPRB,2.0941E+01_JPRB,2.1268E+01_JPRB,2.1673E+01_JPRB/)
+KBO( :,48,13) = (/&
+&1.7326E+01_JPRB,1.7556E+01_JPRB,1.7948E+01_JPRB,1.8285E+01_JPRB,1.8703E+01_JPRB/)
+KBO( :,49,13) = (/&
+&1.4637E+01_JPRB,1.4880E+01_JPRB,1.5276E+01_JPRB,1.5608E+01_JPRB,1.6019E+01_JPRB/)
+KBO( :,50,13) = (/&
+&1.2439E+01_JPRB,1.2696E+01_JPRB,1.3009E+01_JPRB,1.3432E+01_JPRB,1.3843E+01_JPRB/)
+KBO( :,51,13) = (/&
+&1.0584E+01_JPRB,1.0852E+01_JPRB,1.1176E+01_JPRB,1.1603E+01_JPRB,1.2011E+01_JPRB/)
+KBO( :,52,13) = (/&
+&8.8615E+00_JPRB,9.2312E+00_JPRB,9.5521E+00_JPRB,9.9700E+00_JPRB,1.0369E+01_JPRB/)
+KBO( :,53,13) = (/&
+&7.4436E+00_JPRB,7.8034E+00_JPRB,8.1100E+00_JPRB,8.5076E+00_JPRB,8.8838E+00_JPRB/)
+KBO( :,54,13) = (/&
+&6.3609E+00_JPRB,6.7200E+00_JPRB,7.0326E+00_JPRB,7.4311E+00_JPRB,7.8042E+00_JPRB/)
+KBO( :,55,13) = (/&
+&5.4942E+00_JPRB,5.8571E+00_JPRB,6.1799E+00_JPRB,6.4978E+00_JPRB,6.9694E+00_JPRB/)
+KBO( :,56,13) = (/&
+&4.7434E+00_JPRB,5.1101E+00_JPRB,5.4346E+00_JPRB,5.7533E+00_JPRB,6.2335E+00_JPRB/)
+KBO( :,57,13) = (/&
+&4.0946E+00_JPRB,4.4592E+00_JPRB,4.7823E+00_JPRB,5.1021E+00_JPRB,5.4957E+00_JPRB/)
+KBO( :,58,13) = (/&
+&3.5510E+00_JPRB,3.9146E+00_JPRB,4.2394E+00_JPRB,4.5624E+00_JPRB,4.9570E+00_JPRB/)
+KBO( :,59,13) = (/&
+&3.2469E+00_JPRB,3.6400E+00_JPRB,4.0004E+00_JPRB,4.3660E+00_JPRB,4.8112E+00_JPRB/)
+KBO( :,13,14) = (/&
+&2.9334E+03_JPRB,2.8777E+03_JPRB,2.8251E+03_JPRB,2.7722E+03_JPRB,2.7139E+03_JPRB/)
+KBO( :,14,14) = (/&
+&3.0980E+03_JPRB,3.0395E+03_JPRB,2.9754E+03_JPRB,2.9139E+03_JPRB,2.8590E+03_JPRB/)
+KBO( :,15,14) = (/&
+&3.2422E+03_JPRB,3.1687E+03_JPRB,3.1071E+03_JPRB,3.0415E+03_JPRB,2.9792E+03_JPRB/)
+KBO( :,16,14) = (/&
+&3.3594E+03_JPRB,3.2894E+03_JPRB,3.2245E+03_JPRB,3.1534E+03_JPRB,3.0780E+03_JPRB/)
+KBO( :,17,14) = (/&
+&3.4662E+03_JPRB,3.3974E+03_JPRB,3.3177E+03_JPRB,3.2347E+03_JPRB,3.1458E+03_JPRB/)
+KBO( :,18,14) = (/&
+&3.5551E+03_JPRB,3.4706E+03_JPRB,3.3818E+03_JPRB,3.2833E+03_JPRB,3.1871E+03_JPRB/)
+KBO( :,19,14) = (/&
+&3.5953E+03_JPRB,3.5053E+03_JPRB,3.4059E+03_JPRB,3.3056E+03_JPRB,3.2071E+03_JPRB/)
+KBO( :,20,14) = (/&
+&3.5722E+03_JPRB,3.4751E+03_JPRB,3.3772E+03_JPRB,3.2793E+03_JPRB,3.1813E+03_JPRB/)
+KBO( :,21,14) = (/&
+&3.4918E+03_JPRB,3.3970E+03_JPRB,3.3000E+03_JPRB,3.2054E+03_JPRB,3.1102E+03_JPRB/)
+KBO( :,22,14) = (/&
+&3.3556E+03_JPRB,3.2639E+03_JPRB,3.1694E+03_JPRB,3.0789E+03_JPRB,2.9903E+03_JPRB/)
+KBO( :,23,14) = (/&
+&3.1787E+03_JPRB,3.0917E+03_JPRB,3.0049E+03_JPRB,2.9210E+03_JPRB,2.8398E+03_JPRB/)
+KBO( :,24,14) = (/&
+&2.9739E+03_JPRB,2.8938E+03_JPRB,2.8153E+03_JPRB,2.7372E+03_JPRB,2.6621E+03_JPRB/)
+KBO( :,25,14) = (/&
+&2.7453E+03_JPRB,2.6720E+03_JPRB,2.6011E+03_JPRB,2.5300E+03_JPRB,2.4637E+03_JPRB/)
+KBO( :,26,14) = (/&
+&2.5096E+03_JPRB,2.4426E+03_JPRB,2.3775E+03_JPRB,2.3148E+03_JPRB,2.2551E+03_JPRB/)
+KBO( :,27,14) = (/&
+&2.2699E+03_JPRB,2.2101E+03_JPRB,2.1525E+03_JPRB,2.0966E+03_JPRB,2.0458E+03_JPRB/)
+KBO( :,28,14) = (/&
+&2.0339E+03_JPRB,1.9809E+03_JPRB,1.9302E+03_JPRB,1.8831E+03_JPRB,1.8402E+03_JPRB/)
+KBO( :,29,14) = (/&
+&1.8034E+03_JPRB,1.7583E+03_JPRB,1.7163E+03_JPRB,1.6782E+03_JPRB,1.6421E+03_JPRB/)
+KBO( :,30,14) = (/&
+&1.5820E+03_JPRB,1.5447E+03_JPRB,1.5128E+03_JPRB,1.4831E+03_JPRB,1.4550E+03_JPRB/)
+KBO( :,31,14) = (/&
+&1.3768E+03_JPRB,1.3502E+03_JPRB,1.3259E+03_JPRB,1.3028E+03_JPRB,1.2805E+03_JPRB/)
+KBO( :,32,14) = (/&
+&1.1943E+03_JPRB,1.1745E+03_JPRB,1.1559E+03_JPRB,1.1380E+03_JPRB,1.1211E+03_JPRB/)
+KBO( :,33,14) = (/&
+&1.0318E+03_JPRB,1.0174E+03_JPRB,1.0030E+03_JPRB,9.8941E+02_JPRB,9.7764E+02_JPRB/)
+KBO( :,34,14) = (/&
+&8.9071E+02_JPRB,8.7939E+02_JPRB,8.6886E+02_JPRB,8.6024E+02_JPRB,8.5244E+02_JPRB/)
+KBO( :,35,14) = (/&
+&7.6798E+02_JPRB,7.6029E+02_JPRB,7.5422E+02_JPRB,7.4951E+02_JPRB,7.4470E+02_JPRB/)
+KBO( :,36,14) = (/&
+&6.6325E+02_JPRB,6.5893E+02_JPRB,6.5635E+02_JPRB,6.5426E+02_JPRB,6.5190E+02_JPRB/)
+KBO( :,37,14) = (/&
+&5.7400E+02_JPRB,5.7252E+02_JPRB,5.7250E+02_JPRB,5.7225E+02_JPRB,5.7202E+02_JPRB/)
+KBO( :,38,14) = (/&
+&4.9686E+02_JPRB,4.9759E+02_JPRB,4.9968E+02_JPRB,5.0087E+02_JPRB,5.0220E+02_JPRB/)
+KBO( :,39,14) = (/&
+&4.3040E+02_JPRB,4.3277E+02_JPRB,4.3573E+02_JPRB,4.3837E+02_JPRB,4.4124E+02_JPRB/)
+KBO( :,40,14) = (/&
+&3.7403E+02_JPRB,3.7755E+02_JPRB,3.8110E+02_JPRB,3.8474E+02_JPRB,3.8876E+02_JPRB/)
+KBO( :,41,14) = (/&
+&3.2578E+02_JPRB,3.3002E+02_JPRB,3.3411E+02_JPRB,3.3839E+02_JPRB,3.4323E+02_JPRB/)
+KBO( :,42,14) = (/&
+&2.8407E+02_JPRB,2.8896E+02_JPRB,2.9341E+02_JPRB,2.9793E+02_JPRB,3.0372E+02_JPRB/)
+KBO( :,43,14) = (/&
+&2.4780E+02_JPRB,2.5311E+02_JPRB,2.5804E+02_JPRB,2.6300E+02_JPRB,2.6916E+02_JPRB/)
+KBO( :,44,14) = (/&
+&2.1608E+02_JPRB,2.2160E+02_JPRB,2.2690E+02_JPRB,2.3233E+02_JPRB,2.3866E+02_JPRB/)
+KBO( :,45,14) = (/&
+&1.8824E+02_JPRB,1.9381E+02_JPRB,1.9935E+02_JPRB,2.0504E+02_JPRB,2.1167E+02_JPRB/)
+KBO( :,46,14) = (/&
+&1.6388E+02_JPRB,1.6938E+02_JPRB,1.7501E+02_JPRB,1.8081E+02_JPRB,1.8759E+02_JPRB/)
+KBO( :,47,14) = (/&
+&1.4266E+02_JPRB,1.4798E+02_JPRB,1.5358E+02_JPRB,1.5946E+02_JPRB,1.6626E+02_JPRB/)
+KBO( :,48,14) = (/&
+&1.2380E+02_JPRB,1.2887E+02_JPRB,1.3460E+02_JPRB,1.4036E+02_JPRB,1.4712E+02_JPRB/)
+KBO( :,49,14) = (/&
+&1.0697E+02_JPRB,1.1187E+02_JPRB,1.1753E+02_JPRB,1.2324E+02_JPRB,1.2991E+02_JPRB/)
+KBO( :,50,14) = (/&
+&9.2940E+01_JPRB,9.7678E+01_JPRB,1.0307E+02_JPRB,1.0888E+02_JPRB,1.1536E+02_JPRB/)
+KBO( :,51,14) = (/&
+&8.1029E+01_JPRB,8.5527E+01_JPRB,9.0730E+01_JPRB,9.6501E+01_JPRB,1.0280E+02_JPRB/)
+KBO( :,52,14) = (/&
+&7.0406E+01_JPRB,7.4706E+01_JPRB,7.9713E+01_JPRB,8.5353E+01_JPRB,9.1529E+01_JPRB/)
+KBO( :,53,14) = (/&
+&6.0914E+01_JPRB,6.5029E+01_JPRB,6.9770E+01_JPRB,7.5302E+01_JPRB,8.1302E+01_JPRB/)
+KBO( :,54,14) = (/&
+&5.3685E+01_JPRB,5.7712E+01_JPRB,6.2246E+01_JPRB,6.7555E+01_JPRB,7.3372E+01_JPRB/)
+KBO( :,55,14) = (/&
+&4.8002E+01_JPRB,5.1999E+01_JPRB,5.6435E+01_JPRB,6.1422E+01_JPRB,6.7178E+01_JPRB/)
+KBO( :,56,14) = (/&
+&4.3069E+01_JPRB,4.7058E+01_JPRB,5.1421E+01_JPRB,5.6338E+01_JPRB,6.1901E+01_JPRB/)
+KBO( :,57,14) = (/&
+&3.8718E+01_JPRB,4.2795E+01_JPRB,4.7064E+01_JPRB,5.1974E+01_JPRB,5.7337E+01_JPRB/)
+KBO( :,58,14) = (/&
+&3.5127E+01_JPRB,3.9394E+01_JPRB,4.3676E+01_JPRB,4.8594E+01_JPRB,5.4054E+01_JPRB/)
+KBO( :,59,14) = (/&
+&3.4411E+01_JPRB,3.9387E+01_JPRB,4.4312E+01_JPRB,4.9761E+01_JPRB,5.5833E+01_JPRB/)
+KBO( :,13,15) = (/&
+&5.8626E+03_JPRB,5.7531E+03_JPRB,5.6999E+03_JPRB,5.6080E+03_JPRB,5.5646E+03_JPRB/)
+KBO( :,14,15) = (/&
+&6.6299E+03_JPRB,6.5552E+03_JPRB,6.4532E+03_JPRB,6.3570E+03_JPRB,6.2707E+03_JPRB/)
+KBO( :,15,15) = (/&
+&7.5140E+03_JPRB,7.3938E+03_JPRB,7.2851E+03_JPRB,7.1606E+03_JPRB,7.0596E+03_JPRB/)
+KBO( :,16,15) = (/&
+&8.4004E+03_JPRB,8.2640E+03_JPRB,8.1296E+03_JPRB,7.9995E+03_JPRB,7.8682E+03_JPRB/)
+KBO( :,17,15) = (/&
+&9.2783E+03_JPRB,9.1233E+03_JPRB,8.9809E+03_JPRB,8.8341E+03_JPRB,8.6706E+03_JPRB/)
+KBO( :,18,15) = (/&
+&1.0203E+04_JPRB,9.9981E+03_JPRB,9.8375E+03_JPRB,9.6605E+03_JPRB,9.4887E+03_JPRB/)
+KBO( :,19,15) = (/&
+&1.1106E+04_JPRB,1.0894E+04_JPRB,1.0688E+04_JPRB,1.0490E+04_JPRB,1.0272E+04_JPRB/)
+KBO( :,20,15) = (/&
+&1.2022E+04_JPRB,1.1788E+04_JPRB,1.1526E+04_JPRB,1.1301E+04_JPRB,1.1063E+04_JPRB/)
+KBO( :,21,15) = (/&
+&1.2860E+04_JPRB,1.2601E+04_JPRB,1.2351E+04_JPRB,1.2080E+04_JPRB,1.1797E+04_JPRB/)
+KBO( :,22,15) = (/&
+&1.3622E+04_JPRB,1.3359E+04_JPRB,1.3050E+04_JPRB,1.2774E+04_JPRB,1.2461E+04_JPRB/)
+KBO( :,23,15) = (/&
+&1.4282E+04_JPRB,1.3995E+04_JPRB,1.3676E+04_JPRB,1.3349E+04_JPRB,1.3009E+04_JPRB/)
+KBO( :,24,15) = (/&
+&1.4830E+04_JPRB,1.4486E+04_JPRB,1.4138E+04_JPRB,1.3782E+04_JPRB,1.3441E+04_JPRB/)
+KBO( :,25,15) = (/&
+&1.5198E+04_JPRB,1.4832E+04_JPRB,1.4459E+04_JPRB,1.4100E+04_JPRB,1.3752E+04_JPRB/)
+KBO( :,26,15) = (/&
+&1.5360E+04_JPRB,1.4999E+04_JPRB,1.4642E+04_JPRB,1.4292E+04_JPRB,1.3943E+04_JPRB/)
+KBO( :,27,15) = (/&
+&1.5406E+04_JPRB,1.5053E+04_JPRB,1.4691E+04_JPRB,1.4344E+04_JPRB,1.3993E+04_JPRB/)
+KBO( :,28,15) = (/&
+&1.5350E+04_JPRB,1.4989E+04_JPRB,1.4625E+04_JPRB,1.4280E+04_JPRB,1.3936E+04_JPRB/)
+KBO( :,29,15) = (/&
+&1.5162E+04_JPRB,1.4811E+04_JPRB,1.4452E+04_JPRB,1.4117E+04_JPRB,1.3798E+04_JPRB/)
+KBO( :,30,15) = (/&
+&1.4888E+04_JPRB,1.4556E+04_JPRB,1.4228E+04_JPRB,1.3905E+04_JPRB,1.3609E+04_JPRB/)
+KBO( :,31,15) = (/&
+&1.4511E+04_JPRB,1.4207E+04_JPRB,1.3919E+04_JPRB,1.3634E+04_JPRB,1.3368E+04_JPRB/)
+KBO( :,32,15) = (/&
+&1.4068E+04_JPRB,1.3811E+04_JPRB,1.3560E+04_JPRB,1.3325E+04_JPRB,1.3103E+04_JPRB/)
+KBO( :,33,15) = (/&
+&1.3601E+04_JPRB,1.3399E+04_JPRB,1.3196E+04_JPRB,1.3006E+04_JPRB,1.2830E+04_JPRB/)
+KBO( :,34,15) = (/&
+&1.3119E+04_JPRB,1.2976E+04_JPRB,1.2834E+04_JPRB,1.2699E+04_JPRB,1.2559E+04_JPRB/)
+KBO( :,35,15) = (/&
+&1.2646E+04_JPRB,1.2564E+04_JPRB,1.2475E+04_JPRB,1.2392E+04_JPRB,1.2320E+04_JPRB/)
+KBO( :,36,15) = (/&
+&1.2190E+04_JPRB,1.2170E+04_JPRB,1.2138E+04_JPRB,1.2103E+04_JPRB,1.2079E+04_JPRB/)
+KBO( :,37,15) = (/&
+&1.1737E+04_JPRB,1.1781E+04_JPRB,1.1808E+04_JPRB,1.1824E+04_JPRB,1.1847E+04_JPRB/)
+KBO( :,38,15) = (/&
+&1.1288E+04_JPRB,1.1385E+04_JPRB,1.1474E+04_JPRB,1.1550E+04_JPRB,1.1619E+04_JPRB/)
+KBO( :,39,15) = (/&
+&1.0856E+04_JPRB,1.1010E+04_JPRB,1.1156E+04_JPRB,1.1287E+04_JPRB,1.1401E+04_JPRB/)
+KBO( :,40,15) = (/&
+&1.0434E+04_JPRB,1.0638E+04_JPRB,1.0839E+04_JPRB,1.1017E+04_JPRB,1.1176E+04_JPRB/)
+KBO( :,41,15) = (/&
+&1.0025E+04_JPRB,1.0281E+04_JPRB,1.0529E+04_JPRB,1.0755E+04_JPRB,1.0956E+04_JPRB/)
+KBO( :,42,15) = (/&
+&9.6179E+03_JPRB,9.9405E+03_JPRB,1.0234E+04_JPRB,1.0504E+04_JPRB,1.0740E+04_JPRB/)
+KBO( :,43,15) = (/&
+&9.2261E+03_JPRB,9.6002E+03_JPRB,9.9385E+03_JPRB,1.0249E+04_JPRB,1.0522E+04_JPRB/)
+KBO( :,44,15) = (/&
+&8.8369E+03_JPRB,9.2610E+03_JPRB,9.6434E+03_JPRB,9.9917E+03_JPRB,1.0304E+04_JPRB/)
+KBO( :,45,15) = (/&
+&8.4565E+03_JPRB,8.9270E+03_JPRB,9.3572E+03_JPRB,9.7378E+03_JPRB,1.0089E+04_JPRB/)
+KBO( :,46,15) = (/&
+&8.0787E+03_JPRB,8.5914E+03_JPRB,9.0699E+03_JPRB,9.4822E+03_JPRB,9.8664E+03_JPRB/)
+KBO( :,47,15) = (/&
+&7.6853E+03_JPRB,8.2420E+03_JPRB,8.7669E+03_JPRB,9.2155E+03_JPRB,9.6327E+03_JPRB/)
+KBO( :,48,15) = (/&
+&7.2976E+03_JPRB,7.9018E+03_JPRB,8.4572E+03_JPRB,8.9503E+03_JPRB,9.3974E+03_JPRB/)
+KBO( :,49,15) = (/&
+&6.9137E+03_JPRB,7.5530E+03_JPRB,8.1461E+03_JPRB,8.6824E+03_JPRB,9.1633E+03_JPRB/)
+KBO( :,50,15) = (/&
+&6.5439E+03_JPRB,7.2215E+03_JPRB,7.8385E+03_JPRB,8.4232E+03_JPRB,8.9404E+03_JPRB/)
+KBO( :,51,15) = (/&
+&6.1848E+03_JPRB,6.8963E+03_JPRB,7.5471E+03_JPRB,8.1684E+03_JPRB,8.7207E+03_JPRB/)
+KBO( :,52,15) = (/&
+&5.8189E+03_JPRB,6.5740E+03_JPRB,7.2547E+03_JPRB,7.9146E+03_JPRB,8.4977E+03_JPRB/)
+KBO( :,53,15) = (/&
+&5.4670E+03_JPRB,6.2525E+03_JPRB,6.9648E+03_JPRB,7.6568E+03_JPRB,8.2688E+03_JPRB/)
+KBO( :,54,15) = (/&
+&5.1436E+03_JPRB,5.9527E+03_JPRB,6.6949E+03_JPRB,7.4192E+03_JPRB,8.0568E+03_JPRB/)
+KBO( :,55,15) = (/&
+&4.8355E+03_JPRB,5.6683E+03_JPRB,6.4321E+03_JPRB,7.1732E+03_JPRB,7.8507E+03_JPRB/)
+KBO( :,56,15) = (/&
+&4.5326E+03_JPRB,5.3883E+03_JPRB,6.1757E+03_JPRB,6.9385E+03_JPRB,7.6455E+03_JPRB/)
+KBO( :,57,15) = (/&
+&4.2335E+03_JPRB,5.1109E+03_JPRB,5.9237E+03_JPRB,6.7072E+03_JPRB,7.4206E+03_JPRB/)
+KBO( :,58,15) = (/&
+&3.9599E+03_JPRB,4.8524E+03_JPRB,5.6868E+03_JPRB,6.4919E+03_JPRB,7.2242E+03_JPRB/)
+KBO( :,59,15) = (/&
+&3.8525E+03_JPRB,4.7532E+03_JPRB,5.5997E+03_JPRB,6.4149E+03_JPRB,7.1557E+03_JPRB/)
+KBO( :,13,16) = (/&
+&1.1371E+04_JPRB,1.1323E+04_JPRB,1.1315E+04_JPRB,1.1164E+04_JPRB,1.1081E+04_JPRB/)
+KBO( :,14,16) = (/&
+&1.3431E+04_JPRB,1.3485E+04_JPRB,1.3332E+04_JPRB,1.3142E+04_JPRB,1.2900E+04_JPRB/)
+KBO( :,15,16) = (/&
+&1.5843E+04_JPRB,1.5741E+04_JPRB,1.5575E+04_JPRB,1.5331E+04_JPRB,1.5089E+04_JPRB/)
+KBO( :,16,16) = (/&
+&1.8399E+04_JPRB,1.8340E+04_JPRB,1.8137E+04_JPRB,1.7913E+04_JPRB,1.7697E+04_JPRB/)
+KBO( :,17,16) = (/&
+&2.1310E+04_JPRB,2.1226E+04_JPRB,2.1046E+04_JPRB,2.0865E+04_JPRB,2.0549E+04_JPRB/)
+KBO( :,18,16) = (/&
+&2.4633E+04_JPRB,2.4423E+04_JPRB,2.4337E+04_JPRB,2.4031E+04_JPRB,2.3685E+04_JPRB/)
+KBO( :,19,16) = (/&
+&2.8116E+04_JPRB,2.8107E+04_JPRB,2.7914E+04_JPRB,2.7644E+04_JPRB,2.7235E+04_JPRB/)
+KBO( :,20,16) = (/&
+&3.2352E+04_JPRB,3.2111E+04_JPRB,3.1818E+04_JPRB,3.1625E+04_JPRB,3.1234E+04_JPRB/)
+KBO( :,21,16) = (/&
+&3.7036E+04_JPRB,3.6651E+04_JPRB,3.6428E+04_JPRB,3.6095E+04_JPRB,3.5692E+04_JPRB/)
+KBO( :,22,16) = (/&
+&4.2524E+04_JPRB,4.2050E+04_JPRB,4.1496E+04_JPRB,4.1174E+04_JPRB,4.0706E+04_JPRB/)
+KBO( :,23,16) = (/&
+&4.8715E+04_JPRB,4.8086E+04_JPRB,4.7446E+04_JPRB,4.6855E+04_JPRB,4.6215E+04_JPRB/)
+KBO( :,24,16) = (/&
+&5.5639E+04_JPRB,5.4833E+04_JPRB,5.3941E+04_JPRB,5.3072E+04_JPRB,5.2154E+04_JPRB/)
+KBO( :,25,16) = (/&
+&6.3125E+04_JPRB,6.2076E+04_JPRB,6.0936E+04_JPRB,5.9802E+04_JPRB,5.8643E+04_JPRB/)
+KBO( :,26,16) = (/&
+&7.0969E+04_JPRB,6.9666E+04_JPRB,6.8250E+04_JPRB,6.6863E+04_JPRB,6.5447E+04_JPRB/)
+KBO( :,27,16) = (/&
+&7.9041E+04_JPRB,7.7424E+04_JPRB,7.5739E+04_JPRB,7.4111E+04_JPRB,7.2428E+04_JPRB/)
+KBO( :,28,16) = (/&
+&8.7171E+04_JPRB,8.5329E+04_JPRB,8.3283E+04_JPRB,8.1385E+04_JPRB,7.9412E+04_JPRB/)
+KBO( :,29,16) = (/&
+&9.5287E+04_JPRB,9.3095E+04_JPRB,9.0725E+04_JPRB,8.8465E+04_JPRB,8.6095E+04_JPRB/)
+KBO( :,30,16) = (/&
+&1.0333E+05_JPRB,1.0061E+05_JPRB,9.7918E+04_JPRB,9.5190E+04_JPRB,9.2462E+04_JPRB/)
+KBO( :,31,16) = (/&
+&1.1108E+05_JPRB,1.0788E+05_JPRB,1.0471E+05_JPRB,1.0154E+05_JPRB,9.8354E+04_JPRB/)
+KBO( :,32,16) = (/&
+&1.1839E+05_JPRB,1.1468E+05_JPRB,1.1110E+05_JPRB,1.0744E+05_JPRB,1.0381E+05_JPRB/)
+KBO( :,33,16) = (/&
+&1.2510E+05_JPRB,1.2097E+05_JPRB,1.1682E+05_JPRB,1.1275E+05_JPRB,1.0867E+05_JPRB/)
+KBO( :,34,16) = (/&
+&1.3142E+05_JPRB,1.2677E+05_JPRB,1.2209E+05_JPRB,1.1755E+05_JPRB,1.1311E+05_JPRB/)
+KBO( :,35,16) = (/&
+&1.3764E+05_JPRB,1.3245E+05_JPRB,1.2727E+05_JPRB,1.2228E+05_JPRB,1.1753E+05_JPRB/)
+KBO( :,36,16) = (/&
+&1.4383E+05_JPRB,1.3810E+05_JPRB,1.3243E+05_JPRB,1.2701E+05_JPRB,1.2185E+05_JPRB/)
+KBO( :,37,16) = (/&
+&1.5046E+05_JPRB,1.4418E+05_JPRB,1.3799E+05_JPRB,1.3212E+05_JPRB,1.2655E+05_JPRB/)
+KBO( :,38,16) = (/&
+&1.5675E+05_JPRB,1.4982E+05_JPRB,1.4330E+05_JPRB,1.3693E+05_JPRB,1.3095E+05_JPRB/)
+KBO( :,39,16) = (/&
+&1.6258E+05_JPRB,1.5518E+05_JPRB,1.4815E+05_JPRB,1.4138E+05_JPRB,1.3502E+05_JPRB/)
+KBO( :,40,16) = (/&
+&1.6871E+05_JPRB,1.6088E+05_JPRB,1.5341E+05_JPRB,1.4623E+05_JPRB,1.3948E+05_JPRB/)
+KBO( :,41,16) = (/&
+&1.7458E+05_JPRB,1.6635E+05_JPRB,1.5848E+05_JPRB,1.5090E+05_JPRB,1.4379E+05_JPRB/)
+KBO( :,42,16) = (/&
+&1.7998E+05_JPRB,1.7152E+05_JPRB,1.6328E+05_JPRB,1.5532E+05_JPRB,1.4790E+05_JPRB/)
+KBO( :,43,16) = (/&
+&1.8575E+05_JPRB,1.7689E+05_JPRB,1.6831E+05_JPRB,1.5999E+05_JPRB,1.5225E+05_JPRB/)
+KBO( :,44,16) = (/&
+&1.9152E+05_JPRB,1.8231E+05_JPRB,1.7334E+05_JPRB,1.6472E+05_JPRB,1.5657E+05_JPRB/)
+KBO( :,45,16) = (/&
+&1.9710E+05_JPRB,1.8756E+05_JPRB,1.7825E+05_JPRB,1.6934E+05_JPRB,1.6086E+05_JPRB/)
+KBO( :,46,16) = (/&
+&2.0271E+05_JPRB,1.9287E+05_JPRB,1.8321E+05_JPRB,1.7404E+05_JPRB,1.6527E+05_JPRB/)
+KBO( :,47,16) = (/&
+&2.0857E+05_JPRB,1.9849E+05_JPRB,1.8848E+05_JPRB,1.7903E+05_JPRB,1.6997E+05_JPRB/)
+KBO( :,48,16) = (/&
+&2.1432E+05_JPRB,2.0416E+05_JPRB,1.9373E+05_JPRB,1.8395E+05_JPRB,1.7463E+05_JPRB/)
+KBO( :,49,16) = (/&
+&2.1996E+05_JPRB,2.0961E+05_JPRB,1.9896E+05_JPRB,1.8885E+05_JPRB,1.7927E+05_JPRB/)
+KBO( :,50,16) = (/&
+&2.2527E+05_JPRB,2.1474E+05_JPRB,2.0397E+05_JPRB,1.9350E+05_JPRB,1.8363E+05_JPRB/)
+KBO( :,51,16) = (/&
+&2.3036E+05_JPRB,2.1969E+05_JPRB,2.0872E+05_JPRB,1.9800E+05_JPRB,1.8789E+05_JPRB/)
+KBO( :,52,16) = (/&
+&2.3557E+05_JPRB,2.2457E+05_JPRB,2.1344E+05_JPRB,2.0248E+05_JPRB,1.9215E+05_JPRB/)
+KBO( :,53,16) = (/&
+&2.4051E+05_JPRB,2.2942E+05_JPRB,2.1813E+05_JPRB,2.0698E+05_JPRB,1.9645E+05_JPRB/)
+KBO( :,54,16) = (/&
+&2.4502E+05_JPRB,2.3386E+05_JPRB,2.2247E+05_JPRB,2.1113E+05_JPRB,2.0043E+05_JPRB/)
+KBO( :,55,16) = (/&
+&2.4930E+05_JPRB,2.3811E+05_JPRB,2.2662E+05_JPRB,2.1524E+05_JPRB,2.0429E+05_JPRB/)
+KBO( :,56,16) = (/&
+&2.5354E+05_JPRB,2.4234E+05_JPRB,2.3079E+05_JPRB,2.1928E+05_JPRB,2.0814E+05_JPRB/)
+KBO( :,57,16) = (/&
+&2.5774E+05_JPRB,2.4654E+05_JPRB,2.3491E+05_JPRB,2.2331E+05_JPRB,2.1201E+05_JPRB/)
+KBO( :,58,16) = (/&
+&2.6172E+05_JPRB,2.5053E+05_JPRB,2.3885E+05_JPRB,2.2717E+05_JPRB,2.1576E+05_JPRB/)
+KBO( :,59,16) = (/&
+&2.6363E+05_JPRB,2.5242E+05_JPRB,2.4067E+05_JPRB,2.2890E+05_JPRB,2.1741E+05_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB1_02
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb2.F90	(revision 2160)
@@ -0,0 +1,16 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by  HGallée   , LGGE 
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB2_01
+      call RRTM_KGB2_02
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb2_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb2_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb2_01.F90	(revision 2160)
@@ -0,0 +1,597 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB2_01
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO
+USE YOERRTA2 , ONLY : REFPARAM
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFBO( :) = (/&
+!     From P = 0.432 mb.
+    &0.17444289_JPRB,0.16467269_JPRB,0.15021490_JPRB,0.12460902_JPRB,&
+    &0.10400643_JPRB,0.09481928_JPRB,0.07590704_JPRB,0.05752856_JPRB,&
+    &0.03931715_JPRB,0.00428572_JPRB,0.00349352_JPRB,0.00278938_JPRB,&
+    &0.00203448_JPRB,0.00130037_JPRB,0.00051560_JPRB,0.00006255_JPRB/)
+
+FORREFO( :) = (/&
+     &-2.34550E-03_JPRB,-8.42698E-03_JPRB,-2.01816E-02_JPRB,-5.66701E-02_JPRB,&
+     &-8.93189E-02_JPRB,-6.37487E-02_JPRB,-4.56455E-02_JPRB,-4.41417E-02_JPRB,&
+     &-4.48605E-02_JPRB,-4.74696E-02_JPRB,-5.16648E-02_JPRB,-5.63099E-02_JPRB,&
+     &-4.74781E-02_JPRB,-3.84704E-02_JPRB,-2.49905E-02_JPRB, 2.02114E-03_JPRB/)
+
+!     The following are parameters related to the reference water vapor
+!     mixing ratios by REFPARAM(I) = REFH2O(I) / (.002+REFH2O(I)).
+!     These parameters are used for the Planck function interpolation.
+REFPARAM( :) = (/&
+ &0.903661_JPRB   , 0.859386_JPRB   , 0.746542_JPRB   , 0.580496_JPRB   , 0.412889_JPRB   ,&
+ &0.275283_JPRB   , 0.162745_JPRB   , 7.63929E-02_JPRB, 1.82553E-02_JPRB, 3.72432E-03_JPRB, &
+ &2.14946E-03_JPRB, 1.66320E-03_JPRB, 1.59940E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&1.4400E-02_JPRB,1.5554E-02_JPRB,1.6739E-02_JPRB,1.7961E-02_JPRB,1.9379E-02_JPRB/)
+KAO( :, 2, 1) = (/&
+&1.1452E-02_JPRB,1.2288E-02_JPRB,1.3232E-02_JPRB,1.4190E-02_JPRB,1.5277E-02_JPRB/)
+KAO( :, 3, 1) = (/&
+&8.9989E-03_JPRB,9.5960E-03_JPRB,1.0327E-02_JPRB,1.1068E-02_JPRB,1.1889E-02_JPRB/)
+KAO( :, 4, 1) = (/&
+&7.1078E-03_JPRB,7.5424E-03_JPRB,8.0710E-03_JPRB,8.6639E-03_JPRB,9.2920E-03_JPRB/)
+KAO( :, 5, 1) = (/&
+&5.6632E-03_JPRB,5.9616E-03_JPRB,6.3421E-03_JPRB,6.8076E-03_JPRB,7.2949E-03_JPRB/)
+KAO( :, 6, 1) = (/&
+&4.5348E-03_JPRB,4.7267E-03_JPRB,5.0015E-03_JPRB,5.3391E-03_JPRB,5.7317E-03_JPRB/)
+KAO( :, 7, 1) = (/&
+&3.6484E-03_JPRB,3.7737E-03_JPRB,3.9583E-03_JPRB,4.2050E-03_JPRB,4.5069E-03_JPRB/)
+KAO( :, 8, 1) = (/&
+&2.9485E-03_JPRB,3.0305E-03_JPRB,3.1509E-03_JPRB,3.3270E-03_JPRB,3.5470E-03_JPRB/)
+KAO( :, 9, 1) = (/&
+&2.4028E-03_JPRB,2.4476E-03_JPRB,2.5272E-03_JPRB,2.6456E-03_JPRB,2.8089E-03_JPRB/)
+KAO( :,10, 1) = (/&
+&1.9899E-03_JPRB,2.0047E-03_JPRB,2.0583E-03_JPRB,2.1403E-03_JPRB,2.2643E-03_JPRB/)
+KAO( :,11, 1) = (/&
+&1.6478E-03_JPRB,1.6593E-03_JPRB,1.7036E-03_JPRB,1.7737E-03_JPRB,1.8823E-03_JPRB/)
+KAO( :,12, 1) = (/&
+&1.3599E-03_JPRB,1.3694E-03_JPRB,1.4067E-03_JPRB,1.4672E-03_JPRB,1.5617E-03_JPRB/)
+KAO( :,13, 1) = (/&
+&1.1157E-03_JPRB,1.1241E-03_JPRB,1.1555E-03_JPRB,1.2073E-03_JPRB,1.2864E-03_JPRB/)
+KAO( :, 1, 2) = (/&
+&3.8905E-02_JPRB,4.2429E-02_JPRB,4.6513E-02_JPRB,5.0588E-02_JPRB,5.5021E-02_JPRB/)
+KAO( :, 2, 2) = (/&
+&3.0803E-02_JPRB,3.3461E-02_JPRB,3.6546E-02_JPRB,3.9922E-02_JPRB,4.3440E-02_JPRB/)
+KAO( :, 3, 2) = (/&
+&2.4144E-02_JPRB,2.6019E-02_JPRB,2.8287E-02_JPRB,3.0953E-02_JPRB,3.3739E-02_JPRB/)
+KAO( :, 4, 2) = (/&
+&1.9082E-02_JPRB,2.0371E-02_JPRB,2.2034E-02_JPRB,2.4014E-02_JPRB,2.6250E-02_JPRB/)
+KAO( :, 5, 2) = (/&
+&1.5203E-02_JPRB,1.6092E-02_JPRB,1.7271E-02_JPRB,1.8721E-02_JPRB,2.0471E-02_JPRB/)
+KAO( :, 6, 2) = (/&
+&1.2164E-02_JPRB,1.2769E-02_JPRB,1.3578E-02_JPRB,1.4643E-02_JPRB,1.5928E-02_JPRB/)
+KAO( :, 7, 2) = (/&
+&9.7815E-03_JPRB,1.0186E-02_JPRB,1.0740E-02_JPRB,1.1487E-02_JPRB,1.2435E-02_JPRB/)
+KAO( :, 8, 2) = (/&
+&7.9245E-03_JPRB,8.1687E-03_JPRB,8.5497E-03_JPRB,9.0644E-03_JPRB,9.7618E-03_JPRB/)
+KAO( :, 9, 2) = (/&
+&6.4727E-03_JPRB,6.5836E-03_JPRB,6.8391E-03_JPRB,7.1947E-03_JPRB,7.6826E-03_JPRB/)
+KAO( :,10, 2) = (/&
+&5.3240E-03_JPRB,5.3575E-03_JPRB,5.5193E-03_JPRB,5.7706E-03_JPRB,6.1166E-03_JPRB/)
+KAO( :,11, 2) = (/&
+&4.3783E-03_JPRB,4.4065E-03_JPRB,4.5391E-03_JPRB,4.7453E-03_JPRB,5.0313E-03_JPRB/)
+KAO( :,12, 2) = (/&
+&3.5968E-03_JPRB,3.6203E-03_JPRB,3.7298E-03_JPRB,3.8998E-03_JPRB,4.1378E-03_JPRB/)
+KAO( :,13, 2) = (/&
+&2.9507E-03_JPRB,2.9704E-03_JPRB,3.0611E-03_JPRB,3.2015E-03_JPRB,3.4012E-03_JPRB/)
+KAO( :, 1, 3) = (/&
+&1.0636E-01_JPRB,1.1680E-01_JPRB,1.2824E-01_JPRB,1.4017E-01_JPRB,1.5266E-01_JPRB/)
+KAO( :, 2, 3) = (/&
+&8.4443E-02_JPRB,9.2480E-02_JPRB,1.0148E-01_JPRB,1.1092E-01_JPRB,1.2100E-01_JPRB/)
+KAO( :, 3, 3) = (/&
+&6.5959E-02_JPRB,7.1869E-02_JPRB,7.8770E-02_JPRB,8.6250E-02_JPRB,9.4058E-02_JPRB/)
+KAO( :, 4, 3) = (/&
+&5.1681E-02_JPRB,5.6029E-02_JPRB,6.1207E-02_JPRB,6.7088E-02_JPRB,7.3195E-02_JPRB/)
+KAO( :, 5, 3) = (/&
+&4.0734E-02_JPRB,4.3938E-02_JPRB,4.7777E-02_JPRB,5.2288E-02_JPRB,5.7243E-02_JPRB/)
+KAO( :, 6, 3) = (/&
+&3.2248E-02_JPRB,3.4534E-02_JPRB,3.7344E-02_JPRB,4.0738E-02_JPRB,4.4673E-02_JPRB/)
+KAO( :, 7, 3) = (/&
+&2.5731E-02_JPRB,2.7244E-02_JPRB,2.9333E-02_JPRB,3.1849E-02_JPRB,3.4861E-02_JPRB/)
+KAO( :, 8, 3) = (/&
+&2.0693E-02_JPRB,2.1657E-02_JPRB,2.3154E-02_JPRB,2.5012E-02_JPRB,2.7268E-02_JPRB/)
+KAO( :, 9, 3) = (/&
+&1.6730E-02_JPRB,1.7346E-02_JPRB,1.8327E-02_JPRB,1.9716E-02_JPRB,2.1381E-02_JPRB/)
+KAO( :,10, 3) = (/&
+&1.3588E-02_JPRB,1.4015E-02_JPRB,1.4658E-02_JPRB,1.5680E-02_JPRB,1.6936E-02_JPRB/)
+KAO( :,11, 3) = (/&
+&1.1180E-02_JPRB,1.1528E-02_JPRB,1.2063E-02_JPRB,1.2917E-02_JPRB,1.3959E-02_JPRB/)
+KAO( :,12, 3) = (/&
+&9.1920E-03_JPRB,9.4766E-03_JPRB,9.9244E-03_JPRB,1.0636E-02_JPRB,1.1502E-02_JPRB/)
+KAO( :,13, 3) = (/&
+&7.5517E-03_JPRB,7.7861E-03_JPRB,8.1602E-03_JPRB,8.7504E-03_JPRB,9.4682E-03_JPRB/)
+KAO( :, 1, 4) = (/&
+&2.6559E-01_JPRB,2.7778E-01_JPRB,2.8983E-01_JPRB,3.0112E-01_JPRB,3.1151E-01_JPRB/)
+KAO( :, 2, 4) = (/&
+&2.1415E-01_JPRB,2.2376E-01_JPRB,2.3372E-01_JPRB,2.4291E-01_JPRB,2.5148E-01_JPRB/)
+KAO( :, 3, 4) = (/&
+&1.7113E-01_JPRB,1.7864E-01_JPRB,1.8679E-01_JPRB,1.9418E-01_JPRB,2.0158E-01_JPRB/)
+KAO( :, 4, 4) = (/&
+&1.3689E-01_JPRB,1.4305E-01_JPRB,1.4933E-01_JPRB,1.5577E-01_JPRB,1.6212E-01_JPRB/)
+KAO( :, 5, 4) = (/&
+&1.0951E-01_JPRB,1.1484E-01_JPRB,1.1993E-01_JPRB,1.2527E-01_JPRB,1.3048E-01_JPRB/)
+KAO( :, 6, 4) = (/&
+&8.7678E-02_JPRB,9.2013E-02_JPRB,9.6292E-02_JPRB,1.0052E-01_JPRB,1.0492E-01_JPRB/)
+KAO( :, 7, 4) = (/&
+&7.0271E-02_JPRB,7.3646E-02_JPRB,7.7252E-02_JPRB,8.0679E-02_JPRB,8.4295E-02_JPRB/)
+KAO( :, 8, 4) = (/&
+&5.6292E-02_JPRB,5.9027E-02_JPRB,6.1915E-02_JPRB,6.4784E-02_JPRB,6.7662E-02_JPRB/)
+KAO( :, 9, 4) = (/&
+&4.5045E-02_JPRB,4.7308E-02_JPRB,4.9593E-02_JPRB,5.1992E-02_JPRB,5.4350E-02_JPRB/)
+KAO( :,10, 4) = (/&
+&3.6083E-02_JPRB,3.8037E-02_JPRB,3.9928E-02_JPRB,4.1868E-02_JPRB,4.3827E-02_JPRB/)
+KAO( :,11, 4) = (/&
+&2.9684E-02_JPRB,3.1305E-02_JPRB,3.2869E-02_JPRB,3.4458E-02_JPRB,3.6069E-02_JPRB/)
+KAO( :,12, 4) = (/&
+&2.4428E-02_JPRB,2.5760E-02_JPRB,2.7039E-02_JPRB,2.8345E-02_JPRB,2.9671E-02_JPRB/)
+KAO( :,13, 4) = (/&
+&2.0094E-02_JPRB,2.1179E-02_JPRB,2.2224E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/)
+KAO( :, 1, 5) = (/&
+&4.7290E-01_JPRB,4.8928E-01_JPRB,5.0887E-01_JPRB,5.3328E-01_JPRB,5.6216E-01_JPRB/)
+KAO( :, 2, 5) = (/&
+&3.8475E-01_JPRB,3.9762E-01_JPRB,4.1280E-01_JPRB,4.3219E-01_JPRB,4.5473E-01_JPRB/)
+KAO( :, 3, 5) = (/&
+&3.0979E-01_JPRB,3.1996E-01_JPRB,3.3105E-01_JPRB,3.4530E-01_JPRB,3.6216E-01_JPRB/)
+KAO( :, 4, 5) = (/&
+&2.5002E-01_JPRB,2.5800E-01_JPRB,2.6674E-01_JPRB,2.7709E-01_JPRB,2.8946E-01_JPRB/)
+KAO( :, 5, 5) = (/&
+&2.0218E-01_JPRB,2.0847E-01_JPRB,2.1546E-01_JPRB,2.2311E-01_JPRB,2.3239E-01_JPRB/)
+KAO( :, 6, 5) = (/&
+&1.6286E-01_JPRB,1.6840E-01_JPRB,1.7397E-01_JPRB,1.7996E-01_JPRB,1.8683E-01_JPRB/)
+KAO( :, 7, 5) = (/&
+&1.3055E-01_JPRB,1.3602E-01_JPRB,1.4050E-01_JPRB,1.4524E-01_JPRB,1.5047E-01_JPRB/)
+KAO( :, 8, 5) = (/&
+&1.0442E-01_JPRB,1.0954E-01_JPRB,1.1353E-01_JPRB,1.1737E-01_JPRB,1.2143E-01_JPRB/)
+KAO( :, 9, 5) = (/&
+&8.3388E-02_JPRB,8.7841E-02_JPRB,9.1682E-02_JPRB,9.4816E-02_JPRB,9.8050E-02_JPRB/)
+KAO( :,10, 5) = (/&
+&6.7010E-02_JPRB,7.0598E-02_JPRB,7.4015E-02_JPRB,7.6769E-02_JPRB,7.9372E-02_JPRB/)
+KAO( :,11, 5) = (/&
+&5.5118E-02_JPRB,5.8051E-02_JPRB,6.0869E-02_JPRB,6.3114E-02_JPRB,6.5294E-02_JPRB/)
+KAO( :,12, 5) = (/&
+&4.5300E-02_JPRB,4.7721E-02_JPRB,5.0049E-02_JPRB,5.1890E-02_JPRB,5.3682E-02_JPRB/)
+KAO( :,13, 5) = (/&
+&3.7225E-02_JPRB,3.9236E-02_JPRB,4.1133E-02_JPRB,4.2631E-02_JPRB,4.4126E-02_JPRB/)
+KAO( :, 1, 6) = (/&
+&8.4224E-01_JPRB,9.2264E-01_JPRB,1.0073E+00_JPRB,1.0930E+00_JPRB,1.1793E+00_JPRB/)
+KAO( :, 2, 6) = (/&
+&6.7595E-01_JPRB,7.4232E-01_JPRB,8.1248E-01_JPRB,8.8302E-01_JPRB,9.5616E-01_JPRB/)
+KAO( :, 3, 6) = (/&
+&5.2904E-01_JPRB,5.8048E-01_JPRB,6.3751E-01_JPRB,6.9642E-01_JPRB,7.5721E-01_JPRB/)
+KAO( :, 4, 6) = (/&
+&4.1315E-01_JPRB,4.5407E-01_JPRB,4.9971E-01_JPRB,5.4886E-01_JPRB,5.9964E-01_JPRB/)
+KAO( :, 5, 6) = (/&
+&3.2467E-01_JPRB,3.5531E-01_JPRB,3.9159E-01_JPRB,4.3161E-01_JPRB,4.7423E-01_JPRB/)
+KAO( :, 6, 6) = (/&
+&2.5574E-01_JPRB,2.7784E-01_JPRB,3.0579E-01_JPRB,3.3817E-01_JPRB,3.7278E-01_JPRB/)
+KAO( :, 7, 6) = (/&
+&2.0313E-01_JPRB,2.1792E-01_JPRB,2.3876E-01_JPRB,2.6386E-01_JPRB,2.9205E-01_JPRB/)
+KAO( :, 8, 6) = (/&
+&1.6285E-01_JPRB,1.7201E-01_JPRB,1.8675E-01_JPRB,2.0598E-01_JPRB,2.2843E-01_JPRB/)
+KAO( :, 9, 6) = (/&
+&1.3178E-01_JPRB,1.3687E-01_JPRB,1.4670E-01_JPRB,1.6087E-01_JPRB,1.7827E-01_JPRB/)
+KAO( :,10, 6) = (/&
+&1.0760E-01_JPRB,1.1022E-01_JPRB,1.1661E-01_JPRB,1.2690E-01_JPRB,1.4033E-01_JPRB/)
+KAO( :,11, 6) = (/&
+&8.8471E-02_JPRB,9.0742E-02_JPRB,9.6088E-02_JPRB,1.0477E-01_JPRB,1.1601E-01_JPRB/)
+KAO( :,12, 6) = (/&
+&7.2724E-02_JPRB,7.4645E-02_JPRB,7.9165E-02_JPRB,8.6464E-02_JPRB,9.5844E-02_JPRB/)
+KAO( :,13, 6) = (/&
+&5.9719E-02_JPRB,6.1350E-02_JPRB,6.5177E-02_JPRB,7.1301E-02_JPRB,7.9088E-02_JPRB/)
+KAO( :, 1, 7) = (/&
+&1.8416E+00_JPRB,2.0377E+00_JPRB,2.2351E+00_JPRB,2.4351E+00_JPRB,2.6357E+00_JPRB/)
+KAO( :, 2, 7) = (/&
+&1.5057E+00_JPRB,1.6691E+00_JPRB,1.8342E+00_JPRB,2.0031E+00_JPRB,2.1705E+00_JPRB/)
+KAO( :, 3, 7) = (/&
+&1.1980E+00_JPRB,1.3329E+00_JPRB,1.4704E+00_JPRB,1.6099E+00_JPRB,1.7488E+00_JPRB/)
+KAO( :, 4, 7) = (/&
+&9.4408E-01_JPRB,1.0566E+00_JPRB,1.1708E+00_JPRB,1.2874E+00_JPRB,1.4014E+00_JPRB/)
+KAO( :, 5, 7) = (/&
+&7.4052E-01_JPRB,8.3332E-01_JPRB,9.3007E-01_JPRB,1.0263E+00_JPRB,1.1221E+00_JPRB/)
+KAO( :, 6, 7) = (/&
+&5.7502E-01_JPRB,6.5145E-01_JPRB,7.3102E-01_JPRB,8.1228E-01_JPRB,8.9283E-01_JPRB/)
+KAO( :, 7, 7) = (/&
+&4.4413E-01_JPRB,5.0565E-01_JPRB,5.7113E-01_JPRB,6.3832E-01_JPRB,7.0636E-01_JPRB/)
+KAO( :, 8, 7) = (/&
+&3.4215E-01_JPRB,3.9125E-01_JPRB,4.4414E-01_JPRB,4.9963E-01_JPRB,5.5600E-01_JPRB/)
+KAO( :, 9, 7) = (/&
+&2.6278E-01_JPRB,3.0155E-01_JPRB,3.4409E-01_JPRB,3.8940E-01_JPRB,4.3634E-01_JPRB/)
+KAO( :,10, 7) = (/&
+&2.0399E-01_JPRB,2.3450E-01_JPRB,2.6863E-01_JPRB,3.0559E-01_JPRB,3.4410E-01_JPRB/)
+KAO( :,11, 7) = (/&
+&1.6899E-01_JPRB,1.9452E-01_JPRB,2.2306E-01_JPRB,2.5367E-01_JPRB,2.8600E-01_JPRB/)
+KAO( :,12, 7) = (/&
+&1.4000E-01_JPRB,1.6132E-01_JPRB,1.8504E-01_JPRB,2.1049E-01_JPRB,2.3736E-01_JPRB/)
+KAO( :,13, 7) = (/&
+&1.1587E-01_JPRB,1.3364E-01_JPRB,1.5332E-01_JPRB,1.7448E-01_JPRB,1.9695E-01_JPRB/)
+KAO( :, 1, 8) = (/&
+&4.7751E+00_JPRB,5.2791E+00_JPRB,5.7933E+00_JPRB,6.3083E+00_JPRB,6.8326E+00_JPRB/)
+KAO( :, 2, 8) = (/&
+&4.0048E+00_JPRB,4.4443E+00_JPRB,4.8940E+00_JPRB,5.3580E+00_JPRB,5.8267E+00_JPRB/)
+KAO( :, 3, 8) = (/&
+&3.2400E+00_JPRB,3.6253E+00_JPRB,4.0207E+00_JPRB,4.4230E+00_JPRB,4.8210E+00_JPRB/)
+KAO( :, 4, 8) = (/&
+&2.5883E+00_JPRB,2.9210E+00_JPRB,3.2656E+00_JPRB,3.6154E+00_JPRB,3.9641E+00_JPRB/)
+KAO( :, 5, 8) = (/&
+&2.0550E+00_JPRB,2.3390E+00_JPRB,2.6351E+00_JPRB,2.9336E+00_JPRB,3.2370E+00_JPRB/)
+KAO( :, 6, 8) = (/&
+&1.6130E+00_JPRB,1.8538E+00_JPRB,2.1027E+00_JPRB,2.3582E+00_JPRB,2.6184E+00_JPRB/)
+KAO( :, 7, 8) = (/&
+&1.2548E+00_JPRB,1.4567E+00_JPRB,1.6664E+00_JPRB,1.8820E+00_JPRB,2.1036E+00_JPRB/)
+KAO( :, 8, 8) = (/&
+&9.6687E-01_JPRB,1.1348E+00_JPRB,1.3110E+00_JPRB,1.4930E+00_JPRB,1.6805E+00_JPRB/)
+KAO( :, 9, 8) = (/&
+&7.3847E-01_JPRB,8.7593E-01_JPRB,1.0221E+00_JPRB,1.1741E+00_JPRB,1.3319E+00_JPRB/)
+KAO( :,10, 8) = (/&
+&5.6776E-01_JPRB,6.8017E-01_JPRB,8.0059E-01_JPRB,9.2750E-01_JPRB,1.0593E+00_JPRB/)
+KAO( :,11, 8) = (/&
+&4.7511E-01_JPRB,5.6972E-01_JPRB,6.7118E-01_JPRB,7.7840E-01_JPRB,8.8949E-01_JPRB/)
+KAO( :,12, 8) = (/&
+&3.9658E-01_JPRB,4.7593E-01_JPRB,5.6128E-01_JPRB,6.5124E-01_JPRB,7.4417E-01_JPRB/)
+KAO( :,13, 8) = (/&
+&3.3005E-01_JPRB,3.9650E-01_JPRB,4.6807E-01_JPRB,5.4357E-01_JPRB,6.2155E-01_JPRB/)
+KAO( :, 1, 9) = (/&
+&1.7831E+01_JPRB,1.9823E+01_JPRB,2.1884E+01_JPRB,2.3937E+01_JPRB,2.5904E+01_JPRB/)
+KAO( :, 2, 9) = (/&
+&1.5983E+01_JPRB,1.7908E+01_JPRB,1.9844E+01_JPRB,2.1750E+01_JPRB,2.3639E+01_JPRB/)
+KAO( :, 3, 9) = (/&
+&1.3838E+01_JPRB,1.5652E+01_JPRB,1.7428E+01_JPRB,1.9195E+01_JPRB,2.0946E+01_JPRB/)
+KAO( :, 4, 9) = (/&
+&1.1707E+01_JPRB,1.3372E+01_JPRB,1.5018E+01_JPRB,1.6675E+01_JPRB,1.8330E+01_JPRB/)
+KAO( :, 5, 9) = (/&
+&9.7619E+00_JPRB,1.1244E+01_JPRB,1.2752E+01_JPRB,1.4279E+01_JPRB,1.5837E+01_JPRB/)
+KAO( :, 6, 9) = (/&
+&7.9817E+00_JPRB,9.2988E+00_JPRB,1.0650E+01_JPRB,1.2029E+01_JPRB,1.3449E+01_JPRB/)
+KAO( :, 7, 9) = (/&
+&6.4478E+00_JPRB,7.5864E+00_JPRB,8.7717E+00_JPRB,1.0008E+01_JPRB,1.1289E+01_JPRB/)
+KAO( :, 8, 9) = (/&
+&5.1550E+00_JPRB,6.1381E+00_JPRB,7.1667E+00_JPRB,8.2567E+00_JPRB,9.3759E+00_JPRB/)
+KAO( :, 9, 9) = (/&
+&4.0462E+00_JPRB,4.8924E+00_JPRB,5.7944E+00_JPRB,6.7466E+00_JPRB,7.7100E+00_JPRB/)
+KAO( :,10, 9) = (/&
+&3.1920E+00_JPRB,3.9133E+00_JPRB,4.6912E+00_JPRB,5.5091E+00_JPRB,6.3432E+00_JPRB/)
+KAO( :,11, 9) = (/&
+&2.7717E+00_JPRB,3.4039E+00_JPRB,4.0800E+00_JPRB,4.7818E+00_JPRB,5.5081E+00_JPRB/)
+KAO( :,12, 9) = (/&
+&2.3978E+00_JPRB,2.9436E+00_JPRB,3.5235E+00_JPRB,4.1293E+00_JPRB,4.7600E+00_JPRB/)
+KAO( :,13, 9) = (/&
+&2.0575E+00_JPRB,2.5263E+00_JPRB,3.0244E+00_JPRB,3.5477E+00_JPRB,4.0896E+00_JPRB/)
+KAO( :, 1,10) = (/&
+&4.9748E+01_JPRB,5.5112E+01_JPRB,5.9938E+01_JPRB,6.5023E+01_JPRB,7.0458E+01_JPRB/)
+KAO( :, 2,10) = (/&
+&4.6588E+01_JPRB,5.1661E+01_JPRB,5.6901E+01_JPRB,6.2463E+01_JPRB,6.8487E+01_JPRB/)
+KAO( :, 3,10) = (/&
+&4.1628E+01_JPRB,4.6699E+01_JPRB,5.2314E+01_JPRB,5.8353E+01_JPRB,6.4458E+01_JPRB/)
+KAO( :, 4,10) = (/&
+&3.7456E+01_JPRB,4.2469E+01_JPRB,4.7867E+01_JPRB,5.3384E+01_JPRB,5.9111E+01_JPRB/)
+KAO( :, 5,10) = (/&
+&3.3436E+01_JPRB,3.8793E+01_JPRB,4.3992E+01_JPRB,4.9077E+01_JPRB,5.4046E+01_JPRB/)
+KAO( :, 6,10) = (/&
+&2.8948E+01_JPRB,3.4066E+01_JPRB,3.9093E+01_JPRB,4.3943E+01_JPRB,4.8577E+01_JPRB/)
+KAO( :, 7,10) = (/&
+&2.4411E+01_JPRB,2.9169E+01_JPRB,3.3772E+01_JPRB,3.8328E+01_JPRB,4.2674E+01_JPRB/)
+KAO( :, 8,10) = (/&
+&2.0213E+01_JPRB,2.4379E+01_JPRB,2.8547E+01_JPRB,3.2632E+01_JPRB,3.6717E+01_JPRB/)
+KAO( :, 9,10) = (/&
+&1.6770E+01_JPRB,2.0275E+01_JPRB,2.3726E+01_JPRB,2.7289E+01_JPRB,3.1149E+01_JPRB/)
+KAO( :,10,10) = (/&
+&1.3740E+01_JPRB,1.6814E+01_JPRB,1.9874E+01_JPRB,2.3039E+01_JPRB,2.6529E+01_JPRB/)
+KAO( :,11,10) = (/&
+&1.2161E+01_JPRB,1.4820E+01_JPRB,1.7667E+01_JPRB,2.0767E+01_JPRB,2.3948E+01_JPRB/)
+KAO( :,12,10) = (/&
+&1.0666E+01_JPRB,1.3093E+01_JPRB,1.5727E+01_JPRB,1.8473E+01_JPRB,2.1195E+01_JPRB/)
+KAO( :,13,10) = (/&
+&9.3915E+00_JPRB,1.1557E+01_JPRB,1.3847E+01_JPRB,1.6172E+01_JPRB,1.8558E+01_JPRB/)
+KAO( :, 1,11) = (/&
+&7.2842E+01_JPRB,8.2127E+01_JPRB,9.1751E+01_JPRB,1.0081E+02_JPRB,1.0868E+02_JPRB/)
+KAO( :, 2,11) = (/&
+&7.0912E+01_JPRB,8.0211E+01_JPRB,8.9133E+01_JPRB,9.7767E+01_JPRB,1.0537E+02_JPRB/)
+KAO( :, 3,11) = (/&
+&6.7169E+01_JPRB,7.5895E+01_JPRB,8.3957E+01_JPRB,9.1467E+01_JPRB,9.8740E+01_JPRB/)
+KAO( :, 4,11) = (/&
+&6.1046E+01_JPRB,6.9086E+01_JPRB,7.7071E+01_JPRB,8.4625E+01_JPRB,9.2325E+01_JPRB/)
+KAO( :, 5,11) = (/&
+&5.4291E+01_JPRB,6.1624E+01_JPRB,6.9146E+01_JPRB,7.6916E+01_JPRB,8.5050E+01_JPRB/)
+KAO( :, 6,11) = (/&
+&4.7940E+01_JPRB,5.4754E+01_JPRB,6.1943E+01_JPRB,6.9739E+01_JPRB,7.7765E+01_JPRB/)
+KAO( :, 7,11) = (/&
+&4.1424E+01_JPRB,4.8323E+01_JPRB,5.5884E+01_JPRB,6.3434E+01_JPRB,7.1064E+01_JPRB/)
+KAO( :, 8,11) = (/&
+&3.4808E+01_JPRB,4.1718E+01_JPRB,4.9240E+01_JPRB,5.6728E+01_JPRB,6.4032E+01_JPRB/)
+KAO( :, 9,11) = (/&
+&2.8724E+01_JPRB,3.5333E+01_JPRB,4.2395E+01_JPRB,4.9372E+01_JPRB,5.6186E+01_JPRB/)
+KAO( :,10,11) = (/&
+&2.4060E+01_JPRB,2.9886E+01_JPRB,3.6171E+01_JPRB,4.2511E+01_JPRB,4.8855E+01_JPRB/)
+KAO( :,11,11) = (/&
+&2.2466E+01_JPRB,2.7842E+01_JPRB,3.3276E+01_JPRB,3.8707E+01_JPRB,4.4411E+01_JPRB/)
+KAO( :,12,11) = (/&
+&2.0635E+01_JPRB,2.5402E+01_JPRB,3.0130E+01_JPRB,3.5065E+01_JPRB,4.0456E+01_JPRB/)
+KAO( :,13,11) = (/&
+&1.8375E+01_JPRB,2.2528E+01_JPRB,2.6944E+01_JPRB,3.1721E+01_JPRB,3.6642E+01_JPRB/)
+KAO( :, 1,12) = (/&
+&1.2814E+02_JPRB,1.3938E+02_JPRB,1.4994E+02_JPRB,1.6150E+02_JPRB,1.7273E+02_JPRB/)
+KAO( :, 2,12) = (/&
+&1.2028E+02_JPRB,1.3171E+02_JPRB,1.4381E+02_JPRB,1.5628E+02_JPRB,1.6936E+02_JPRB/)
+KAO( :, 3,12) = (/&
+&1.0908E+02_JPRB,1.2221E+02_JPRB,1.3662E+02_JPRB,1.5108E+02_JPRB,1.6591E+02_JPRB/)
+KAO( :, 4,12) = (/&
+&9.9689E+01_JPRB,1.1393E+02_JPRB,1.2899E+02_JPRB,1.4446E+02_JPRB,1.5932E+02_JPRB/)
+KAO( :, 5,12) = (/&
+&9.1574E+01_JPRB,1.0647E+02_JPRB,1.2179E+02_JPRB,1.3681E+02_JPRB,1.5090E+02_JPRB/)
+KAO( :, 6,12) = (/&
+&8.3159E+01_JPRB,9.8372E+01_JPRB,1.1370E+02_JPRB,1.2787E+02_JPRB,1.4184E+02_JPRB/)
+KAO( :, 7,12) = (/&
+&7.5130E+01_JPRB,8.9279E+01_JPRB,1.0335E+02_JPRB,1.1696E+02_JPRB,1.3088E+02_JPRB/)
+KAO( :, 8,12) = (/&
+&6.6942E+01_JPRB,7.9719E+01_JPRB,9.2547E+01_JPRB,1.0530E+02_JPRB,1.1887E+02_JPRB/)
+KAO( :, 9,12) = (/&
+&5.7722E+01_JPRB,6.9837E+01_JPRB,8.2082E+01_JPRB,9.4593E+01_JPRB,1.0770E+02_JPRB/)
+KAO( :,10,12) = (/&
+&4.9040E+01_JPRB,6.0620E+01_JPRB,7.2577E+01_JPRB,8.5187E+01_JPRB,9.7844E+01_JPRB/)
+KAO( :,11,12) = (/&
+&4.5433E+01_JPRB,5.6352E+01_JPRB,6.8223E+01_JPRB,8.0499E+01_JPRB,9.2512E+01_JPRB/)
+KAO( :,12,12) = (/&
+&4.1971E+01_JPRB,5.2467E+01_JPRB,6.3533E+01_JPRB,7.4543E+01_JPRB,8.5084E+01_JPRB/)
+KAO( :,13,12) = (/&
+&3.9013E+01_JPRB,4.8568E+01_JPRB,5.8272E+01_JPRB,6.7741E+01_JPRB,7.7194E+01_JPRB/)
+KAO( :, 1,13) = (/&
+&2.2210E+02_JPRB,2.4767E+02_JPRB,2.7177E+02_JPRB,2.9506E+02_JPRB,3.1428E+02_JPRB/)
+KAO( :, 2,13) = (/&
+&2.2387E+02_JPRB,2.5269E+02_JPRB,2.7872E+02_JPRB,2.9937E+02_JPRB,3.1679E+02_JPRB/)
+KAO( :, 3,13) = (/&
+&2.1746E+02_JPRB,2.4620E+02_JPRB,2.7168E+02_JPRB,2.9352E+02_JPRB,3.1488E+02_JPRB/)
+KAO( :, 4,13) = (/&
+&2.0527E+02_JPRB,2.3513E+02_JPRB,2.5998E+02_JPRB,2.8303E+02_JPRB,3.0506E+02_JPRB/)
+KAO( :, 5,13) = (/&
+&1.8964E+02_JPRB,2.1890E+02_JPRB,2.4311E+02_JPRB,2.6810E+02_JPRB,2.9248E+02_JPRB/)
+KAO( :, 6,13) = (/&
+&1.7090E+02_JPRB,1.9758E+02_JPRB,2.2284E+02_JPRB,2.4839E+02_JPRB,2.7463E+02_JPRB/)
+KAO( :, 7,13) = (/&
+&1.5109E+02_JPRB,1.7710E+02_JPRB,2.0295E+02_JPRB,2.2932E+02_JPRB,2.5634E+02_JPRB/)
+KAO( :, 8,13) = (/&
+&1.3270E+02_JPRB,1.5826E+02_JPRB,1.8450E+02_JPRB,2.1121E+02_JPRB,2.3873E+02_JPRB/)
+KAO( :, 9,13) = (/&
+&1.1570E+02_JPRB,1.4021E+02_JPRB,1.6653E+02_JPRB,1.9389E+02_JPRB,2.2105E+02_JPRB/)
+KAO( :,10,13) = (/&
+&1.0259E+02_JPRB,1.2584E+02_JPRB,1.5091E+02_JPRB,1.7718E+02_JPRB,2.0281E+02_JPRB/)
+KAO( :,11,13) = (/&
+&1.0076E+02_JPRB,1.2370E+02_JPRB,1.4756E+02_JPRB,1.7147E+02_JPRB,1.9575E+02_JPRB/)
+KAO( :,12,13) = (/&
+&9.7325E+01_JPRB,1.1939E+02_JPRB,1.4174E+02_JPRB,1.6449E+02_JPRB,1.8836E+02_JPRB/)
+KAO( :,13,13) = (/&
+&9.2070E+01_JPRB,1.1299E+02_JPRB,1.3489E+02_JPRB,1.5734E+02_JPRB,1.8036E+02_JPRB/)
+KAO( :, 1,14) = (/&
+&4.2241E+02_JPRB,4.5820E+02_JPRB,4.8815E+02_JPRB,5.1730E+02_JPRB,5.4765E+02_JPRB/)
+KAO( :, 2,14) = (/&
+&4.2461E+02_JPRB,4.6681E+02_JPRB,4.9982E+02_JPRB,5.3726E+02_JPRB,5.6640E+02_JPRB/)
+KAO( :, 3,14) = (/&
+&4.1742E+02_JPRB,4.5924E+02_JPRB,4.9930E+02_JPRB,5.3630E+02_JPRB,5.8090E+02_JPRB/)
+KAO( :, 4,14) = (/&
+&3.9739E+02_JPRB,4.4336E+02_JPRB,4.8832E+02_JPRB,5.2886E+02_JPRB,5.8035E+02_JPRB/)
+KAO( :, 5,14) = (/&
+&3.7398E+02_JPRB,4.2048E+02_JPRB,4.7438E+02_JPRB,5.2486E+02_JPRB,5.7134E+02_JPRB/)
+KAO( :, 6,14) = (/&
+&3.4725E+02_JPRB,3.9940E+02_JPRB,4.5648E+02_JPRB,5.1230E+02_JPRB,5.6617E+02_JPRB/)
+KAO( :, 7,14) = (/&
+&3.2072E+02_JPRB,3.7728E+02_JPRB,4.3646E+02_JPRB,4.9362E+02_JPRB,5.5200E+02_JPRB/)
+KAO( :, 8,14) = (/&
+&2.9404E+02_JPRB,3.5487E+02_JPRB,4.1802E+02_JPRB,4.7825E+02_JPRB,5.4076E+02_JPRB/)
+KAO( :, 9,14) = (/&
+&2.7034E+02_JPRB,3.3232E+02_JPRB,3.9722E+02_JPRB,4.5997E+02_JPRB,5.2290E+02_JPRB/)
+KAO( :,10,14) = (/&
+&2.5045E+02_JPRB,3.1309E+02_JPRB,3.7582E+02_JPRB,4.4096E+02_JPRB,5.0588E+02_JPRB/)
+KAO( :,11,14) = (/&
+&2.5624E+02_JPRB,3.1911E+02_JPRB,3.8269E+02_JPRB,4.5034E+02_JPRB,5.1713E+02_JPRB/)
+KAO( :,12,14) = (/&
+&2.6046E+02_JPRB,3.2208E+02_JPRB,3.8851E+02_JPRB,4.5644E+02_JPRB,5.2468E+02_JPRB/)
+KAO( :,13,14) = (/&
+&2.6376E+02_JPRB,3.2552E+02_JPRB,3.9097E+02_JPRB,4.5804E+02_JPRB,5.2614E+02_JPRB/)
+KAO( :, 1,15) = (/&
+&8.5706E+02_JPRB,9.2142E+02_JPRB,9.6878E+02_JPRB,1.0281E+03_JPRB,1.0795E+03_JPRB/)
+KAO( :, 2,15) = (/&
+&9.5189E+02_JPRB,1.0335E+03_JPRB,1.0913E+03_JPRB,1.1632E+03_JPRB,1.2011E+03_JPRB/)
+KAO( :, 3,15) = (/&
+&1.0232E+03_JPRB,1.0861E+03_JPRB,1.1646E+03_JPRB,1.2285E+03_JPRB,1.3057E+03_JPRB/)
+KAO( :, 4,15) = (/&
+&1.0392E+03_JPRB,1.1356E+03_JPRB,1.2544E+03_JPRB,1.3115E+03_JPRB,1.4338E+03_JPRB/)
+KAO( :, 5,15) = (/&
+&1.0616E+03_JPRB,1.1713E+03_JPRB,1.3147E+03_JPRB,1.4146E+03_JPRB,1.4989E+03_JPRB/)
+KAO( :, 6,15) = (/&
+&1.0788E+03_JPRB,1.1886E+03_JPRB,1.3302E+03_JPRB,1.4680E+03_JPRB,1.5638E+03_JPRB/)
+KAO( :, 7,15) = (/&
+&1.0593E+03_JPRB,1.1909E+03_JPRB,1.3423E+03_JPRB,1.4840E+03_JPRB,1.6000E+03_JPRB/)
+KAO( :, 8,15) = (/&
+&9.9873E+02_JPRB,1.1655E+03_JPRB,1.3439E+03_JPRB,1.4887E+03_JPRB,1.6318E+03_JPRB/)
+KAO( :, 9,15) = (/&
+&9.4071E+02_JPRB,1.1173E+03_JPRB,1.3103E+03_JPRB,1.4801E+03_JPRB,1.6507E+03_JPRB/)
+KAO( :,10,15) = (/&
+&8.8647E+02_JPRB,1.0727E+03_JPRB,1.2703E+03_JPRB,1.4721E+03_JPRB,1.6711E+03_JPRB/)
+KAO( :,11,15) = (/&
+&9.2131E+02_JPRB,1.1303E+03_JPRB,1.3379E+03_JPRB,1.5675E+03_JPRB,1.7706E+03_JPRB/)
+KAO( :,12,15) = (/&
+&9.6245E+02_JPRB,1.1976E+03_JPRB,1.4205E+03_JPRB,1.6577E+03_JPRB,1.8724E+03_JPRB/)
+KAO( :,13,15) = (/&
+&1.0149E+03_JPRB,1.2514E+03_JPRB,1.4928E+03_JPRB,1.7376E+03_JPRB,1.9688E+03_JPRB/)
+KAO( :, 1,16) = (/&
+&1.1893E+03_JPRB,1.2688E+03_JPRB,1.3351E+03_JPRB,1.3959E+03_JPRB,1.4433E+03_JPRB/)
+KAO( :, 2,16) = (/&
+&1.4043E+03_JPRB,1.5015E+03_JPRB,1.5933E+03_JPRB,1.6702E+03_JPRB,1.7343E+03_JPRB/)
+KAO( :, 3,16) = (/&
+&1.6203E+03_JPRB,1.7272E+03_JPRB,1.8338E+03_JPRB,1.9414E+03_JPRB,2.0288E+03_JPRB/)
+KAO( :, 4,16) = (/&
+&1.7997E+03_JPRB,1.9426E+03_JPRB,2.1186E+03_JPRB,2.2171E+03_JPRB,2.3429E+03_JPRB/)
+KAO( :, 5,16) = (/&
+&1.9840E+03_JPRB,2.1906E+03_JPRB,2.3875E+03_JPRB,2.5360E+03_JPRB,2.6578E+03_JPRB/)
+KAO( :, 6,16) = (/&
+&2.1706E+03_JPRB,2.4031E+03_JPRB,2.6185E+03_JPRB,2.8410E+03_JPRB,2.9858E+03_JPRB/)
+KAO( :, 7,16) = (/&
+&2.3367E+03_JPRB,2.6044E+03_JPRB,2.8764E+03_JPRB,3.1365E+03_JPRB,3.3254E+03_JPRB/)
+KAO( :, 8,16) = (/&
+&2.4353E+03_JPRB,2.7922E+03_JPRB,3.1601E+03_JPRB,3.4455E+03_JPRB,3.6918E+03_JPRB/)
+KAO( :, 9,16) = (/&
+&2.5375E+03_JPRB,2.9571E+03_JPRB,3.4043E+03_JPRB,3.7567E+03_JPRB,4.0876E+03_JPRB/)
+KAO( :,10,16) = (/&
+&2.6751E+03_JPRB,3.1240E+03_JPRB,3.6015E+03_JPRB,4.0631E+03_JPRB,4.4658E+03_JPRB/)
+KAO( :,11,16) = (/&
+&3.0220E+03_JPRB,3.5297E+03_JPRB,4.0306E+03_JPRB,4.6185E+03_JPRB,5.0516E+03_JPRB/)
+KAO( :,12,16) = (/&
+&3.3138E+03_JPRB,4.0094E+03_JPRB,4.5368E+03_JPRB,5.2030E+03_JPRB,5.7257E+03_JPRB/)
+KAO( :,13,16) = (/&
+&3.6770E+03_JPRB,4.3534E+03_JPRB,5.0748E+03_JPRB,5.8067E+03_JPRB,6.4888E+03_JPRB/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&7.54232E-01_JPRB, 6.87231E-01_JPRB, 6.26181E-01_JPRB, 5.70555E-01_JPRB, 5.19870E-01_JPRB,&
+&4.73688E-01_JPRB, 4.31608E-01_JPRB, 3.93266E-01_JPRB, 3.58331E-01_JPRB, 3.26499E-01_JPRB/)
+SELFREFO( :, 2) = (/&
+&1.01377E+00_JPRB, 9.30266E-01_JPRB, 8.53637E-01_JPRB, 7.83320E-01_JPRB, 7.18796E-01_JPRB,&
+&6.59587E-01_JPRB, 6.05254E-01_JPRB, 5.55398E-01_JPRB, 5.09648E-01_JPRB, 4.67667E-01_JPRB/)
+SELFREFO( :, 3) = (/&
+&1.31954E+00_JPRB, 1.22523E+00_JPRB, 1.13766E+00_JPRB, 1.05635E+00_JPRB, 9.80853E-01_JPRB,&
+&9.10749E-01_JPRB, 8.45656E-01_JPRB, 7.85215E-01_JPRB, 7.29095E-01_JPRB, 6.76985E-01_JPRB/)
+SELFREFO( :, 4) = (/&
+&2.18726E+00_JPRB, 2.05960E+00_JPRB, 1.93940E+00_JPRB, 1.82621E+00_JPRB, 1.71962E+00_JPRB,&
+&1.61926E+00_JPRB, 1.52476E+00_JPRB, 1.43577E+00_JPRB, 1.35197E+00_JPRB, 1.27306E+00_JPRB/)
+SELFREFO( :, 5) = (/&
+&3.17440E+00_JPRB, 2.92794E+00_JPRB, 2.70061E+00_JPRB, 2.49094E+00_JPRB, 2.29754E+00_JPRB,&
+&2.11916E+00_JPRB, 1.95463E+00_JPRB, 1.80287E+00_JPRB, 1.66290E+00_JPRB, 1.53379E+00_JPRB/)
+SELFREFO( :, 6) = (/&
+&2.69705E+00_JPRB, 2.48684E+00_JPRB, 2.29302E+00_JPRB, 2.11431E+00_JPRB, 1.94952E+00_JPRB,&
+&1.79758E+00_JPRB, 1.65748E+00_JPRB, 1.52830E+00_JPRB, 1.40919E+00_JPRB, 1.29936E+00_JPRB/)
+SELFREFO( :, 7) = (/&
+&2.91893E+00_JPRB, 2.68371E+00_JPRB, 2.46745E+00_JPRB, 2.26862E+00_JPRB, 2.08581E+00_JPRB,&
+&1.91773E+00_JPRB, 1.76319E+00_JPRB, 1.62111E+00_JPRB, 1.49048E+00_JPRB, 1.37037E+00_JPRB/)
+SELFREFO( :, 8) = (/&
+&2.91847E+00_JPRB, 2.69138E+00_JPRB, 2.48195E+00_JPRB, 2.28883E+00_JPRB, 2.11073E+00_JPRB,&
+&1.94648E+00_JPRB, 1.79502E+00_JPRB, 1.65535E+00_JPRB, 1.52654E+00_JPRB, 1.40776E+00_JPRB/)
+SELFREFO( :, 9) = (/&
+&2.73994E+00_JPRB, 2.54834E+00_JPRB, 2.37014E+00_JPRB, 2.20440E+00_JPRB, 2.05026E+00_JPRB,&
+&1.90689E+00_JPRB, 1.77354E+00_JPRB, 1.64952E+00_JPRB, 1.53418E+00_JPRB, 1.42690E+00_JPRB/)
+SELFREFO( :,10) = (/&
+&2.81902E+00_JPRB, 2.66010E+00_JPRB, 2.51014E+00_JPRB, 2.36863E+00_JPRB, 2.23510E+00_JPRB,&
+&2.10909E+00_JPRB, 1.99020E+00_JPRB, 1.87800E+00_JPRB, 1.77213E+00_JPRB, 1.67222E+00_JPRB/)
+SELFREFO( :,11) = (/&
+&3.19430E+00_JPRB, 2.97671E+00_JPRB, 2.77395E+00_JPRB, 2.58500E+00_JPRB, 2.40891E+00_JPRB,&
+&2.24483E+00_JPRB, 2.09192E+00_JPRB, 1.94942E+00_JPRB, 1.81663E+00_JPRB, 1.69289E+00_JPRB/)
+SELFREFO( :,12) = (/&
+&3.24778E+00_JPRB, 3.04535E+00_JPRB, 2.85553E+00_JPRB, 2.67755E+00_JPRB, 2.51066E+00_JPRB,&
+&2.35417E+00_JPRB, 2.20744E+00_JPRB, 2.06985E+00_JPRB, 1.94084E+00_JPRB, 1.81987E+00_JPRB/)
+SELFREFO( :,13) = (/&
+&3.67142E+00_JPRB, 3.39875E+00_JPRB, 3.14634E+00_JPRB, 2.91267E+00_JPRB, 2.69636E+00_JPRB,&
+&2.49611E+00_JPRB, 2.31073E+00_JPRB, 2.13913E+00_JPRB, 1.98026E+00_JPRB, 1.83319E+00_JPRB/)
+SELFREFO( :,14) = (/&
+&3.73679E+00_JPRB, 3.49113E+00_JPRB, 3.26162E+00_JPRB, 3.04719E+00_JPRB, 2.84686E+00_JPRB,&
+&2.65970E+00_JPRB, 2.48485E+00_JPRB, 2.32149E+00_JPRB, 2.16887E+00_JPRB, 2.02628E+00_JPRB/)
+SELFREFO( :,15) = (/&
+&4.25684E+00_JPRB, 3.95885E+00_JPRB, 3.68171E+00_JPRB, 3.42397E+00_JPRB, 3.18428E+00_JPRB,&
+&2.96137E+00_JPRB, 2.75406E+00_JPRB, 2.56126E+00_JPRB, 2.38196E+00_JPRB, 2.21521E+00_JPRB/)
+SELFREFO( :,16) = (/&
+&4.97048E+00_JPRB, 4.59255E+00_JPRB, 4.24336E+00_JPRB, 3.92072E+00_JPRB, 3.62261E+00_JPRB,&
+&3.34717E+00_JPRB, 3.09267E+00_JPRB, 2.85752E+00_JPRB, 2.64025E+00_JPRB, 2.43950E+00_JPRB/)
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+FRACREFAO( :, 1) = (/&
+    &0.18068060_JPRB,0.16803175_JPRB,0.15140158_JPRB,0.12221480_JPRB,&
+    &0.10240850_JPRB,0.09330297_JPRB,0.07518960_JPRB,0.05611294_JPRB,&
+    &0.03781487_JPRB,0.00387192_JPRB,0.00321285_JPRB,0.00244440_JPRB,&
+    &0.00179546_JPRB,0.00107704_JPRB,0.00038798_JPRB,0.00005060_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.17927621_JPRB,0.16731168_JPRB,0.15129538_JPRB,0.12328085_JPRB,&
+    &0.10243484_JPRB,0.09354796_JPRB,0.07538418_JPRB,0.05633071_JPRB,&
+    &0.03810832_JPRB,0.00398347_JPRB,0.00320262_JPRB,0.00250029_JPRB,&
+    &0.00178666_JPRB,0.00111127_JPRB,0.00039438_JPRB,0.00005169_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.17762886_JPRB,0.16638555_JPRB,0.15115446_JPRB,0.12470623_JPRB,&
+    &0.10253213_JPRB,0.09383459_JPRB,0.07560240_JPRB,0.05646568_JPRB,&
+    &0.03844077_JPRB,0.00409142_JPRB,0.00322521_JPRB,0.00254918_JPRB,&
+    &0.00179296_JPRB,0.00113652_JPRB,0.00040169_JPRB,0.00005259_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.17566043_JPRB,0.16539773_JPRB,0.15092199_JPRB,0.12571971_JPRB,&
+    &0.10340609_JPRB,0.09426189_JPRB,0.07559051_JPRB,0.05678188_JPRB,&
+    &0.03881499_JPRB,0.00414102_JPRB,0.00328551_JPRB,0.00258795_JPRB,&
+    &0.00181648_JPRB,0.00115145_JPRB,0.00040969_JPRB,0.00005357_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.17335825_JPRB,0.16442548_JPRB,0.15070701_JPRB,0.12667464_JPRB,&
+    &0.10452303_JPRB,0.09450833_JPRB,0.07599410_JPRB,0.05706393_JPRB,&
+    &0.03910370_JPRB,0.00417880_JPRB,0.00335256_JPRB,0.00261708_JPRB,&
+    &0.00185491_JPRB,0.00116627_JPRB,0.00041759_JPRB,0.00005464_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.17082544_JPRB,0.16321516_JPRB,0.15044247_JPRB,0.12797612_JPRB,&
+    &0.10574646_JPRB,0.09470057_JPRB,0.07647423_JPRB,0.05738756_JPRB,&
+    &0.03935621_JPRB,0.00423789_JPRB,0.00342651_JPRB,0.00264549_JPRB,&
+    &0.00190188_JPRB,0.00118281_JPRB,0.00042592_JPRB,0.00005583_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.16809277_JPRB,0.16193336_JPRB,0.15013184_JPRB,0.12937409_JPRB,&
+    &0.10720784_JPRB,0.09485368_JPRB,0.07692636_JPRB,0.05771774_JPRB,&
+    &0.03966988_JPRB,0.00427754_JPRB,0.00349696_JPRB,0.00268946_JPRB,&
+    &0.00193536_JPRB,0.00120222_JPRB,0.00043462_JPRB,0.00005712_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.16517997_JPRB,0.16059248_JPRB,0.14984852_JPRB,0.13079269_JPRB,&
+    &0.10865030_JPRB,0.09492947_JPRB,0.07759736_JPRB,0.05812201_JPRB,&
+    &0.03997169_JPRB,0.00432356_JPRB,0.00355308_JPRB,0.00274031_JPRB,&
+    &0.00197243_JPRB,0.00122401_JPRB,0.00044359_JPRB,0.00005849_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.16209179_JPRB,0.15912023_JPRB,0.14938223_JPRB,0.13198245_JPRB,&
+    &0.11077233_JPRB,0.09487948_JPRB,0.07831636_JPRB,0.05863440_JPRB,&
+    &0.04028239_JPRB,0.00436804_JPRB,0.00360407_JPRB,0.00279885_JPRB,&
+    &0.00200364_JPRB,0.00124861_JPRB,0.00045521_JPRB,0.00005996_JPRB/)
+FRACREFAO( :,10) = (/&
+    &0.15962425_JPRB,0.15789343_JPRB,0.14898103_JPRB,0.13275230_JPRB,&
+    &0.11253940_JPRB,0.09503502_JPRB,0.07884382_JPRB,0.05908009_JPRB,&
+    &0.04053524_JPRB,0.00439971_JPRB,0.00364269_JPRB,0.00284965_JPRB,&
+    &0.00202758_JPRB,0.00127076_JPRB,0.00046408_JPRB,0.00006114_JPRB/)
+FRACREFAO( :,11) = (/&
+    &0.15926200_JPRB,0.15770932_JPRB,0.14891729_JPRB,0.13283882_JPRB,&
+    &0.11276010_JPRB,0.09507311_JPRB,0.07892222_JPRB,0.05919230_JPRB,&
+    &0.04054824_JPRB,0.00440833_JPRB,0.00365575_JPRB,0.00286459_JPRB,&
+    &0.00203786_JPRB,0.00128405_JPRB,0.00046504_JPRB,0.00006146_JPRB/)
+FRACREFAO( :,12) = (/&
+    &0.15926351_JPRB,0.15770483_JPRB,0.14891177_JPRB,0.13279966_JPRB,&
+    &0.11268171_JPRB,0.09515216_JPRB,0.07890341_JPRB,0.05924807_JPRB,&
+    &0.04052851_JPRB,0.00440870_JPRB,0.00365425_JPRB,0.00286878_JPRB,&
+    &0.00205747_JPRB,0.00128916_JPRB,0.00046589_JPRB,0.00006221_JPRB/)
+FRACREFAO( :,13) = (/&
+    &0.15937765_JPRB,0.15775780_JPRB,0.14892603_JPRB,0.13273248_JPRB,&
+    &0.11252731_JPRB,0.09521657_JPRB,0.07885858_JPRB,0.05927679_JPRB,&
+    &0.04050184_JPRB,0.00440285_JPRB,0.00365748_JPRB,0.00286791_JPRB,&
+    &0.00207507_JPRB,0.00129193_JPRB,0.00046679_JPRB,0.00006308_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB2_01
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb2_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb2_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb2_02.F90	(revision 2160)
@@ -0,0 +1,1542 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB2_02
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO
+USE YOERRTA2 , ONLY : REFPARAM
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&1.1165E-03_JPRB,1.1247E-03_JPRB,1.1560E-03_JPRB,1.2076E-03_JPRB,1.2869E-03_JPRB/)
+KBO( :,14, 1) = (/&
+&9.1499E-04_JPRB,9.2417E-04_JPRB,9.5214E-04_JPRB,9.9793E-04_JPRB,1.0647E-03_JPRB/)
+KBO( :,15, 1) = (/&
+&7.4895E-04_JPRB,7.5885E-04_JPRB,7.8398E-04_JPRB,8.2364E-04_JPRB,8.7934E-04_JPRB/)
+KBO( :,16, 1) = (/&
+&6.1285E-04_JPRB,6.2301E-04_JPRB,6.4528E-04_JPRB,6.7919E-04_JPRB,7.2561E-04_JPRB/)
+KBO( :,17, 1) = (/&
+&5.0161E-04_JPRB,5.1162E-04_JPRB,5.3088E-04_JPRB,5.5956E-04_JPRB,5.9827E-04_JPRB/)
+KBO( :,18, 1) = (/&
+&4.1059E-04_JPRB,4.2007E-04_JPRB,4.3635E-04_JPRB,4.6069E-04_JPRB,4.9285E-04_JPRB/)
+KBO( :,19, 1) = (/&
+&3.3641E-04_JPRB,3.4500E-04_JPRB,3.5879E-04_JPRB,3.7929E-04_JPRB,4.0616E-04_JPRB/)
+KBO( :,20, 1) = (/&
+&2.7603E-04_JPRB,2.8363E-04_JPRB,2.9537E-04_JPRB,3.1276E-04_JPRB,3.3531E-04_JPRB/)
+KBO( :,21, 1) = (/&
+&2.2659E-04_JPRB,2.3317E-04_JPRB,2.4324E-04_JPRB,2.5796E-04_JPRB,2.7695E-04_JPRB/)
+KBO( :,22, 1) = (/&
+&1.8631E-04_JPRB,1.9217E-04_JPRB,2.0103E-04_JPRB,2.1374E-04_JPRB,2.2994E-04_JPRB/)
+KBO( :,23, 1) = (/&
+&1.5327E-04_JPRB,1.5846E-04_JPRB,1.6631E-04_JPRB,1.7723E-04_JPRB,1.9096E-04_JPRB/)
+KBO( :,24, 1) = (/&
+&1.2620E-04_JPRB,1.3080E-04_JPRB,1.3778E-04_JPRB,1.4714E-04_JPRB,1.5867E-04_JPRB/)
+KBO( :,25, 1) = (/&
+&1.0400E-04_JPRB,1.0810E-04_JPRB,1.1426E-04_JPRB,1.2231E-04_JPRB,1.3192E-04_JPRB/)
+KBO( :,26, 1) = (/&
+&8.5812E-05_JPRB,8.9507E-05_JPRB,9.4927E-05_JPRB,1.0190E-04_JPRB,1.0982E-04_JPRB/)
+KBO( :,27, 1) = (/&
+&7.0859E-05_JPRB,7.4205E-05_JPRB,7.8939E-05_JPRB,8.4957E-05_JPRB,9.1449E-05_JPRB/)
+KBO( :,28, 1) = (/&
+&5.8569E-05_JPRB,6.1594E-05_JPRB,6.5700E-05_JPRB,7.0820E-05_JPRB,7.6191E-05_JPRB/)
+KBO( :,29, 1) = (/&
+&4.8465E-05_JPRB,5.1177E-05_JPRB,5.4745E-05_JPRB,5.9040E-05_JPRB,6.3532E-05_JPRB/)
+KBO( :,30, 1) = (/&
+&4.0147E-05_JPRB,4.2553E-05_JPRB,4.5653E-05_JPRB,4.9207E-05_JPRB,5.2981E-05_JPRB/)
+KBO( :,31, 1) = (/&
+&3.3300E-05_JPRB,3.5414E-05_JPRB,3.8102E-05_JPRB,4.1014E-05_JPRB,4.4195E-05_JPRB/)
+KBO( :,32, 1) = (/&
+&2.7662E-05_JPRB,2.9504E-05_JPRB,3.1798E-05_JPRB,3.4208E-05_JPRB,3.6892E-05_JPRB/)
+KBO( :,33, 1) = (/&
+&2.3000E-05_JPRB,2.4605E-05_JPRB,2.6531E-05_JPRB,2.8549E-05_JPRB,3.0814E-05_JPRB/)
+KBO( :,34, 1) = (/&
+&1.9101E-05_JPRB,2.0488E-05_JPRB,2.2081E-05_JPRB,2.3773E-05_JPRB,2.5683E-05_JPRB/)
+KBO( :,35, 1) = (/&
+&1.5772E-05_JPRB,1.6945E-05_JPRB,1.8248E-05_JPRB,1.9654E-05_JPRB,2.1248E-05_JPRB/)
+KBO( :,36, 1) = (/&
+&1.2932E-05_JPRB,1.3897E-05_JPRB,1.4964E-05_JPRB,1.6118E-05_JPRB,1.7427E-05_JPRB/)
+KBO( :,37, 1) = (/&
+&1.0500E-05_JPRB,1.1266E-05_JPRB,1.2140E-05_JPRB,1.3070E-05_JPRB,1.4122E-05_JPRB/)
+KBO( :,38, 1) = (/&
+&8.5232E-06_JPRB,9.1293E-06_JPRB,9.8424E-06_JPRB,1.0593E-05_JPRB,1.1438E-05_JPRB/)
+KBO( :,39, 1) = (/&
+&6.9199E-06_JPRB,7.4001E-06_JPRB,7.9793E-06_JPRB,8.5851E-06_JPRB,9.2651E-06_JPRB/)
+KBO( :,40, 1) = (/&
+&5.5869E-06_JPRB,5.9579E-06_JPRB,6.4208E-06_JPRB,6.9067E-06_JPRB,7.4490E-06_JPRB/)
+KBO( :,41, 1) = (/&
+&4.5102E-06_JPRB,4.7959E-06_JPRB,5.1598E-06_JPRB,5.5535E-06_JPRB,5.9845E-06_JPRB/)
+KBO( :,42, 1) = (/&
+&3.6455E-06_JPRB,3.8634E-06_JPRB,4.1445E-06_JPRB,4.4666E-06_JPRB,4.8093E-06_JPRB/)
+KBO( :,43, 1) = (/&
+&2.9434E-06_JPRB,3.1045E-06_JPRB,3.3181E-06_JPRB,3.5779E-06_JPRB,3.8500E-06_JPRB/)
+KBO( :,44, 1) = (/&
+&2.3784E-06_JPRB,2.4940E-06_JPRB,2.6554E-06_JPRB,2.8596E-06_JPRB,3.0773E-06_JPRB/)
+KBO( :,45, 1) = (/&
+&1.9254E-06_JPRB,2.0073E-06_JPRB,2.1280E-06_JPRB,2.2840E-06_JPRB,2.4615E-06_JPRB/)
+KBO( :,46, 1) = (/&
+&1.5599E-06_JPRB,1.6176E-06_JPRB,1.7055E-06_JPRB,1.8226E-06_JPRB,1.9656E-06_JPRB/)
+KBO( :,47, 1) = (/&
+&1.2647E-06_JPRB,1.3045E-06_JPRB,1.3657E-06_JPRB,1.4527E-06_JPRB,1.5636E-06_JPRB/)
+KBO( :,48, 1) = (/&
+&1.0280E-06_JPRB,1.0546E-06_JPRB,1.0967E-06_JPRB,1.1602E-06_JPRB,1.2430E-06_JPRB/)
+KBO( :,49, 1) = (/&
+&8.3899E-07_JPRB,8.5435E-07_JPRB,8.8348E-07_JPRB,9.2841E-07_JPRB,9.8990E-07_JPRB/)
+KBO( :,50, 1) = (/&
+&6.8758E-07_JPRB,6.9417E-07_JPRB,7.1424E-07_JPRB,7.4551E-07_JPRB,7.9125E-07_JPRB/)
+KBO( :,51, 1) = (/&
+&5.6525E-07_JPRB,5.6564E-07_JPRB,5.7879E-07_JPRB,6.0067E-07_JPRB,6.3406E-07_JPRB/)
+KBO( :,52, 1) = (/&
+&4.6614E-07_JPRB,4.6262E-07_JPRB,4.6991E-07_JPRB,4.8521E-07_JPRB,5.0895E-07_JPRB/)
+KBO( :,53, 1) = (/&
+&3.8583E-07_JPRB,3.7971E-07_JPRB,3.8237E-07_JPRB,3.9285E-07_JPRB,4.0940E-07_JPRB/)
+KBO( :,54, 1) = (/&
+&3.1998E-07_JPRB,3.1249E-07_JPRB,3.1214E-07_JPRB,3.1896E-07_JPRB,3.3069E-07_JPRB/)
+KBO( :,55, 1) = (/&
+&2.6585E-07_JPRB,2.5784E-07_JPRB,2.5568E-07_JPRB,2.5953E-07_JPRB,2.6785E-07_JPRB/)
+KBO( :,56, 1) = (/&
+&2.2137E-07_JPRB,2.1341E-07_JPRB,2.1005E-07_JPRB,2.1159E-07_JPRB,2.1739E-07_JPRB/)
+KBO( :,57, 1) = (/&
+&1.8477E-07_JPRB,1.7712E-07_JPRB,1.7304E-07_JPRB,1.7292E-07_JPRB,1.7676E-07_JPRB/)
+KBO( :,58, 1) = (/&
+&1.5448E-07_JPRB,1.4728E-07_JPRB,1.4291E-07_JPRB,1.4181E-07_JPRB,1.4406E-07_JPRB/)
+KBO( :,59, 1) = (/&
+&1.2795E-07_JPRB,1.2169E-07_JPRB,1.1777E-07_JPRB,1.1651E-07_JPRB,1.1802E-07_JPRB/)
+KBO( :,13, 2) = (/&
+&2.9516E-03_JPRB,2.9713E-03_JPRB,3.0616E-03_JPRB,3.2019E-03_JPRB,3.4017E-03_JPRB/)
+KBO( :,14, 2) = (/&
+&2.4197E-03_JPRB,2.4414E-03_JPRB,2.5207E-03_JPRB,2.6407E-03_JPRB,2.8167E-03_JPRB/)
+KBO( :,15, 2) = (/&
+&1.9831E-03_JPRB,2.0063E-03_JPRB,2.0755E-03_JPRB,2.1800E-03_JPRB,2.3342E-03_JPRB/)
+KBO( :,16, 2) = (/&
+&1.6252E-03_JPRB,1.6492E-03_JPRB,1.7097E-03_JPRB,1.8014E-03_JPRB,1.9341E-03_JPRB/)
+KBO( :,17, 2) = (/&
+&1.3321E-03_JPRB,1.3556E-03_JPRB,1.4086E-03_JPRB,1.4882E-03_JPRB,1.6017E-03_JPRB/)
+KBO( :,18, 2) = (/&
+&1.0920E-03_JPRB,1.1148E-03_JPRB,1.1610E-03_JPRB,1.2292E-03_JPRB,1.3248E-03_JPRB/)
+KBO( :,19, 2) = (/&
+&8.9534E-04_JPRB,9.1690E-04_JPRB,9.5709E-04_JPRB,1.0148E-03_JPRB,1.0951E-03_JPRB/)
+KBO( :,20, 2) = (/&
+&7.3445E-04_JPRB,7.5503E-04_JPRB,7.8958E-04_JPRB,8.3863E-04_JPRB,9.0600E-04_JPRB/)
+KBO( :,21, 2) = (/&
+&6.0290E-04_JPRB,6.2180E-04_JPRB,6.5148E-04_JPRB,6.9308E-04_JPRB,7.4966E-04_JPRB/)
+KBO( :,22, 2) = (/&
+&4.9595E-04_JPRB,5.1353E-04_JPRB,5.3937E-04_JPRB,5.7561E-04_JPRB,6.2348E-04_JPRB/)
+KBO( :,23, 2) = (/&
+&4.0855E-04_JPRB,4.2434E-04_JPRB,4.4677E-04_JPRB,4.7846E-04_JPRB,5.1897E-04_JPRB/)
+KBO( :,24, 2) = (/&
+&3.3704E-04_JPRB,3.5087E-04_JPRB,3.7041E-04_JPRB,3.9825E-04_JPRB,4.3254E-04_JPRB/)
+KBO( :,25, 2) = (/&
+&2.7823E-04_JPRB,2.9034E-04_JPRB,3.0756E-04_JPRB,3.3176E-04_JPRB,3.6108E-04_JPRB/)
+KBO( :,26, 2) = (/&
+&2.2988E-04_JPRB,2.4065E-04_JPRB,2.5599E-04_JPRB,2.7689E-04_JPRB,3.0218E-04_JPRB/)
+KBO( :,27, 2) = (/&
+&1.9008E-04_JPRB,1.9966E-04_JPRB,2.1335E-04_JPRB,2.3118E-04_JPRB,2.5287E-04_JPRB/)
+KBO( :,28, 2) = (/&
+&1.5729E-04_JPRB,1.6582E-04_JPRB,1.7804E-04_JPRB,1.9321E-04_JPRB,2.1158E-04_JPRB/)
+KBO( :,29, 2) = (/&
+&1.3030E-04_JPRB,1.3794E-04_JPRB,1.4870E-04_JPRB,1.6172E-04_JPRB,1.7712E-04_JPRB/)
+KBO( :,30, 2) = (/&
+&1.0807E-04_JPRB,1.1491E-04_JPRB,1.2423E-04_JPRB,1.3552E-04_JPRB,1.4830E-04_JPRB/)
+KBO( :,31, 2) = (/&
+&8.9737E-05_JPRB,9.5873E-05_JPRB,1.0385E-04_JPRB,1.1357E-04_JPRB,1.2422E-04_JPRB/)
+KBO( :,32, 2) = (/&
+&7.4607E-05_JPRB,8.0114E-05_JPRB,8.6925E-05_JPRB,9.5160E-05_JPRB,1.0409E-04_JPRB/)
+KBO( :,33, 2) = (/&
+&6.2115E-05_JPRB,6.6976E-05_JPRB,7.2842E-05_JPRB,7.9749E-05_JPRB,8.7261E-05_JPRB/)
+KBO( :,34, 2) = (/&
+&5.1667E-05_JPRB,5.5854E-05_JPRB,6.0911E-05_JPRB,6.6641E-05_JPRB,7.2945E-05_JPRB/)
+KBO( :,35, 2) = (/&
+&4.2714E-05_JPRB,4.6224E-05_JPRB,5.0476E-05_JPRB,5.5207E-05_JPRB,6.0446E-05_JPRB/)
+KBO( :,36, 2) = (/&
+&3.5033E-05_JPRB,3.7916E-05_JPRB,4.1413E-05_JPRB,4.5290E-05_JPRB,4.9590E-05_JPRB/)
+KBO( :,37, 2) = (/&
+&2.8417E-05_JPRB,3.0724E-05_JPRB,3.3511E-05_JPRB,3.6656E-05_JPRB,4.0123E-05_JPRB/)
+KBO( :,38, 2) = (/&
+&2.3044E-05_JPRB,2.4879E-05_JPRB,2.7091E-05_JPRB,2.9646E-05_JPRB,3.2440E-05_JPRB/)
+KBO( :,39, 2) = (/&
+&1.8696E-05_JPRB,2.0150E-05_JPRB,2.1905E-05_JPRB,2.3977E-05_JPRB,2.6231E-05_JPRB/)
+KBO( :,40, 2) = (/&
+&1.5079E-05_JPRB,1.6190E-05_JPRB,1.7561E-05_JPRB,1.9219E-05_JPRB,2.1019E-05_JPRB/)
+KBO( :,41, 2) = (/&
+&1.2166E-05_JPRB,1.2998E-05_JPRB,1.4076E-05_JPRB,1.5387E-05_JPRB,1.6826E-05_JPRB/)
+KBO( :,42, 2) = (/&
+&9.8245E-06_JPRB,1.0447E-05_JPRB,1.1292E-05_JPRB,1.2314E-05_JPRB,1.3470E-05_JPRB/)
+KBO( :,43, 2) = (/&
+&7.9207E-06_JPRB,8.3766E-06_JPRB,9.0212E-06_JPRB,9.8015E-06_JPRB,1.0730E-05_JPRB/)
+KBO( :,44, 2) = (/&
+&6.3891E-06_JPRB,6.7204E-06_JPRB,7.1950E-06_JPRB,7.7968E-06_JPRB,8.5295E-06_JPRB/)
+KBO( :,45, 2) = (/&
+&5.1614E-06_JPRB,5.4018E-06_JPRB,5.7463E-06_JPRB,6.2126E-06_JPRB,6.7779E-06_JPRB/)
+KBO( :,46, 2) = (/&
+&4.1735E-06_JPRB,4.3451E-06_JPRB,4.5931E-06_JPRB,4.9450E-06_JPRB,5.3724E-06_JPRB/)
+KBO( :,47, 2) = (/&
+&3.3750E-06_JPRB,3.4959E-06_JPRB,3.6722E-06_JPRB,3.9247E-06_JPRB,4.2513E-06_JPRB/)
+KBO( :,48, 2) = (/&
+&2.7418E-06_JPRB,2.8192E-06_JPRB,2.9434E-06_JPRB,3.1225E-06_JPRB,3.3711E-06_JPRB/)
+KBO( :,49, 2) = (/&
+&2.2371E-06_JPRB,2.2775E-06_JPRB,2.3656E-06_JPRB,2.4925E-06_JPRB,2.6750E-06_JPRB/)
+KBO( :,50, 2) = (/&
+&1.8317E-06_JPRB,1.8465E-06_JPRB,1.9073E-06_JPRB,1.9984E-06_JPRB,2.1290E-06_JPRB/)
+KBO( :,51, 2) = (/&
+&1.5036E-06_JPRB,1.5039E-06_JPRB,1.5416E-06_JPRB,1.6065E-06_JPRB,1.7002E-06_JPRB/)
+KBO( :,52, 2) = (/&
+&1.2365E-06_JPRB,1.2289E-06_JPRB,1.2476E-06_JPRB,1.2944E-06_JPRB,1.3617E-06_JPRB/)
+KBO( :,53, 2) = (/&
+&1.0180E-06_JPRB,1.0070E-06_JPRB,1.0130E-06_JPRB,1.0447E-06_JPRB,1.0931E-06_JPRB/)
+KBO( :,54, 2) = (/&
+&8.3881E-07_JPRB,8.2694E-07_JPRB,8.2607E-07_JPRB,8.4574E-07_JPRB,8.8059E-07_JPRB/)
+KBO( :,55, 2) = (/&
+&6.9195E-07_JPRB,6.7987E-07_JPRB,6.7548E-07_JPRB,6.8562E-07_JPRB,7.1114E-07_JPRB/)
+KBO( :,56, 2) = (/&
+&5.7173E-07_JPRB,5.5948E-07_JPRB,5.5356E-07_JPRB,5.5733E-07_JPRB,5.7508E-07_JPRB/)
+KBO( :,57, 2) = (/&
+&4.7316E-07_JPRB,4.6096E-07_JPRB,4.5452E-07_JPRB,4.5448E-07_JPRB,4.6581E-07_JPRB/)
+KBO( :,58, 2) = (/&
+&3.9189E-07_JPRB,3.8013E-07_JPRB,3.7366E-07_JPRB,3.7160E-07_JPRB,3.7785E-07_JPRB/)
+KBO( :,59, 2) = (/&
+&3.2262E-07_JPRB,3.1241E-07_JPRB,3.0663E-07_JPRB,3.0438E-07_JPRB,3.0850E-07_JPRB/)
+KBO( :,13, 3) = (/&
+&7.5527E-03_JPRB,7.7875E-03_JPRB,8.1613E-03_JPRB,8.7500E-03_JPRB,9.4693E-03_JPRB/)
+KBO( :,14, 3) = (/&
+&6.2162E-03_JPRB,6.4179E-03_JPRB,6.7443E-03_JPRB,7.2436E-03_JPRB,7.8488E-03_JPRB/)
+KBO( :,15, 3) = (/&
+&5.1154E-03_JPRB,5.2899E-03_JPRB,5.5758E-03_JPRB,5.9977E-03_JPRB,6.5097E-03_JPRB/)
+KBO( :,16, 3) = (/&
+&4.2091E-03_JPRB,4.3598E-03_JPRB,4.6108E-03_JPRB,4.9662E-03_JPRB,5.4041E-03_JPRB/)
+KBO( :,17, 3) = (/&
+&3.4624E-03_JPRB,3.5931E-03_JPRB,3.8125E-03_JPRB,4.1118E-03_JPRB,4.4867E-03_JPRB/)
+KBO( :,18, 3) = (/&
+&2.8478E-03_JPRB,2.9611E-03_JPRB,3.1513E-03_JPRB,3.4056E-03_JPRB,3.7227E-03_JPRB/)
+KBO( :,19, 3) = (/&
+&2.3424E-03_JPRB,2.4403E-03_JPRB,2.6050E-03_JPRB,2.8205E-03_JPRB,3.0875E-03_JPRB/)
+KBO( :,20, 3) = (/&
+&1.9279E-03_JPRB,2.0136E-03_JPRB,2.1568E-03_JPRB,2.3394E-03_JPRB,2.5633E-03_JPRB/)
+KBO( :,21, 3) = (/&
+&1.5868E-03_JPRB,1.6625E-03_JPRB,1.7866E-03_JPRB,1.9403E-03_JPRB,2.1279E-03_JPRB/)
+KBO( :,22, 3) = (/&
+&1.3095E-03_JPRB,1.3798E-03_JPRB,1.4873E-03_JPRB,1.6185E-03_JPRB,1.7762E-03_JPRB/)
+KBO( :,23, 3) = (/&
+&1.0820E-03_JPRB,1.1470E-03_JPRB,1.2388E-03_JPRB,1.3506E-03_JPRB,1.4828E-03_JPRB/)
+KBO( :,24, 3) = (/&
+&8.9533E-04_JPRB,9.5480E-04_JPRB,1.0325E-03_JPRB,1.1273E-03_JPRB,1.2391E-03_JPRB/)
+KBO( :,25, 3) = (/&
+&7.4229E-04_JPRB,7.9534E-04_JPRB,8.6151E-04_JPRB,9.4186E-04_JPRB,1.0361E-03_JPRB/)
+KBO( :,26, 3) = (/&
+&6.1705E-04_JPRB,6.6349E-04_JPRB,7.2018E-04_JPRB,7.8870E-04_JPRB,8.6741E-04_JPRB/)
+KBO( :,27, 3) = (/&
+&5.1373E-04_JPRB,5.5377E-04_JPRB,6.0259E-04_JPRB,6.6085E-04_JPRB,7.2640E-04_JPRB/)
+KBO( :,28, 3) = (/&
+&4.2826E-04_JPRB,4.6245E-04_JPRB,5.0434E-04_JPRB,5.5405E-04_JPRB,6.0850E-04_JPRB/)
+KBO( :,29, 3) = (/&
+&3.5730E-04_JPRB,3.8667E-04_JPRB,4.2255E-04_JPRB,4.6475E-04_JPRB,5.1008E-04_JPRB/)
+KBO( :,30, 3) = (/&
+&2.9823E-04_JPRB,3.2356E-04_JPRB,3.5427E-04_JPRB,3.8963E-04_JPRB,4.2762E-04_JPRB/)
+KBO( :,31, 3) = (/&
+&2.4915E-04_JPRB,2.7111E-04_JPRB,2.9730E-04_JPRB,3.2676E-04_JPRB,3.5853E-04_JPRB/)
+KBO( :,32, 3) = (/&
+&2.0835E-04_JPRB,2.2726E-04_JPRB,2.4969E-04_JPRB,2.7415E-04_JPRB,3.0052E-04_JPRB/)
+KBO( :,33, 3) = (/&
+&1.7440E-04_JPRB,1.9063E-04_JPRB,2.0966E-04_JPRB,2.3004E-04_JPRB,2.5180E-04_JPRB/)
+KBO( :,34, 3) = (/&
+&1.4566E-04_JPRB,1.5949E-04_JPRB,1.7537E-04_JPRB,1.9242E-04_JPRB,2.1028E-04_JPRB/)
+KBO( :,35, 3) = (/&
+&1.2069E-04_JPRB,1.3227E-04_JPRB,1.4538E-04_JPRB,1.5949E-04_JPRB,1.7412E-04_JPRB/)
+KBO( :,36, 3) = (/&
+&9.9043E-05_JPRB,1.0856E-04_JPRB,1.1931E-04_JPRB,1.3088E-04_JPRB,1.4285E-04_JPRB/)
+KBO( :,37, 3) = (/&
+&8.0192E-05_JPRB,8.7828E-05_JPRB,9.6552E-05_JPRB,1.0592E-04_JPRB,1.1571E-04_JPRB/)
+KBO( :,38, 3) = (/&
+&6.4895E-05_JPRB,7.1006E-05_JPRB,7.8078E-05_JPRB,8.5641E-05_JPRB,9.3649E-05_JPRB/)
+KBO( :,39, 3) = (/&
+&5.2529E-05_JPRB,5.7417E-05_JPRB,6.3137E-05_JPRB,6.9248E-05_JPRB,7.5786E-05_JPRB/)
+KBO( :,40, 3) = (/&
+&4.2172E-05_JPRB,4.6011E-05_JPRB,5.0550E-05_JPRB,5.5469E-05_JPRB,6.0782E-05_JPRB/)
+KBO( :,41, 3) = (/&
+&3.3845E-05_JPRB,3.6843E-05_JPRB,4.0405E-05_JPRB,4.4378E-05_JPRB,4.8669E-05_JPRB/)
+KBO( :,42, 3) = (/&
+&2.7178E-05_JPRB,2.9499E-05_JPRB,3.2305E-05_JPRB,3.5507E-05_JPRB,3.8948E-05_JPRB/)
+KBO( :,43, 3) = (/&
+&2.1748E-05_JPRB,2.3526E-05_JPRB,2.5707E-05_JPRB,2.8262E-05_JPRB,3.0999E-05_JPRB/)
+KBO( :,44, 3) = (/&
+&1.7386E-05_JPRB,1.8745E-05_JPRB,2.0430E-05_JPRB,2.2420E-05_JPRB,2.4615E-05_JPRB/)
+KBO( :,45, 3) = (/&
+&1.3919E-05_JPRB,1.4955E-05_JPRB,1.6239E-05_JPRB,1.7786E-05_JPRB,1.9548E-05_JPRB/)
+KBO( :,46, 3) = (/&
+&1.1164E-05_JPRB,1.1925E-05_JPRB,1.2898E-05_JPRB,1.4092E-05_JPRB,1.5493E-05_JPRB/)
+KBO( :,47, 3) = (/&
+&8.9724E-06_JPRB,9.4906E-06_JPRB,1.0225E-05_JPRB,1.1136E-05_JPRB,1.2214E-05_JPRB/)
+KBO( :,48, 3) = (/&
+&7.2294E-06_JPRB,7.5737E-06_JPRB,8.1199E-06_JPRB,8.8033E-06_JPRB,9.6335E-06_JPRB/)
+KBO( :,49, 3) = (/&
+&5.8381E-06_JPRB,6.0726E-06_JPRB,6.4582E-06_JPRB,6.9718E-06_JPRB,7.6076E-06_JPRB/)
+KBO( :,50, 3) = (/&
+&4.7296E-06_JPRB,4.8930E-06_JPRB,5.1532E-06_JPRB,5.5428E-06_JPRB,6.0261E-06_JPRB/)
+KBO( :,51, 3) = (/&
+&3.8399E-06_JPRB,3.9514E-06_JPRB,4.1284E-06_JPRB,4.4168E-06_JPRB,4.7822E-06_JPRB/)
+KBO( :,52, 3) = (/&
+&3.1245E-06_JPRB,3.1973E-06_JPRB,3.3211E-06_JPRB,3.5239E-06_JPRB,3.8012E-06_JPRB/)
+KBO( :,53, 3) = (/&
+&2.5471E-06_JPRB,2.5925E-06_JPRB,2.6785E-06_JPRB,2.8158E-06_JPRB,3.0258E-06_JPRB/)
+KBO( :,54, 3) = (/&
+&2.0814E-06_JPRB,2.1073E-06_JPRB,2.1664E-06_JPRB,2.2617E-06_JPRB,2.4173E-06_JPRB/)
+KBO( :,55, 3) = (/&
+&1.7028E-06_JPRB,1.7165E-06_JPRB,1.7558E-06_JPRB,1.8239E-06_JPRB,1.9350E-06_JPRB/)
+KBO( :,56, 3) = (/&
+&1.3936E-06_JPRB,1.4001E-06_JPRB,1.4255E-06_JPRB,1.4737E-06_JPRB,1.5508E-06_JPRB/)
+KBO( :,57, 3) = (/&
+&1.1409E-06_JPRB,1.1442E-06_JPRB,1.1589E-06_JPRB,1.1924E-06_JPRB,1.2461E-06_JPRB/)
+KBO( :,58, 3) = (/&
+&9.3532E-07_JPRB,9.3617E-07_JPRB,9.4415E-07_JPRB,9.6677E-07_JPRB,1.0053E-06_JPRB/)
+KBO( :,59, 3) = (/&
+&7.6716E-07_JPRB,7.6655E-07_JPRB,7.7193E-07_JPRB,7.8900E-07_JPRB,8.1899E-07_JPRB/)
+KBO( :,13, 4) = (/&
+&2.0095E-02_JPRB,2.1182E-02_JPRB,2.2225E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/)
+KBO( :,14, 4) = (/&
+&1.6601E-02_JPRB,1.7480E-02_JPRB,1.8338E-02_JPRB,1.9231E-02_JPRB,2.0128E-02_JPRB/)
+KBO( :,15, 4) = (/&
+&1.3711E-02_JPRB,1.4425E-02_JPRB,1.5134E-02_JPRB,1.5868E-02_JPRB,1.6611E-02_JPRB/)
+KBO( :,16, 4) = (/&
+&1.1319E-02_JPRB,1.1903E-02_JPRB,1.2490E-02_JPRB,1.3094E-02_JPRB,1.3700E-02_JPRB/)
+KBO( :,17, 4) = (/&
+&9.3377E-03_JPRB,9.8166E-03_JPRB,1.0301E-02_JPRB,1.0797E-02_JPRB,1.1296E-02_JPRB/)
+KBO( :,18, 4) = (/&
+&7.6994E-03_JPRB,8.0931E-03_JPRB,8.4951E-03_JPRB,8.8986E-03_JPRB,9.3140E-03_JPRB/)
+KBO( :,19, 4) = (/&
+&6.3454E-03_JPRB,6.6690E-03_JPRB,7.0019E-03_JPRB,7.3313E-03_JPRB,7.6829E-03_JPRB/)
+KBO( :,20, 4) = (/&
+&5.2328E-03_JPRB,5.5001E-03_JPRB,5.7724E-03_JPRB,6.0469E-03_JPRB,6.3413E-03_JPRB/)
+KBO( :,21, 4) = (/&
+&4.3150E-03_JPRB,4.5344E-03_JPRB,4.7593E-03_JPRB,4.9881E-03_JPRB,5.2336E-03_JPRB/)
+KBO( :,22, 4) = (/&
+&3.5703E-03_JPRB,3.7499E-03_JPRB,3.9366E-03_JPRB,4.1268E-03_JPRB,4.3318E-03_JPRB/)
+KBO( :,23, 4) = (/&
+&2.9547E-03_JPRB,3.1024E-03_JPRB,3.2576E-03_JPRB,3.4140E-03_JPRB,3.5849E-03_JPRB/)
+KBO( :,24, 4) = (/&
+&2.4452E-03_JPRB,2.5697E-03_JPRB,2.6961E-03_JPRB,2.8259E-03_JPRB,2.9642E-03_JPRB/)
+KBO( :,25, 4) = (/&
+&2.0245E-03_JPRB,2.1288E-03_JPRB,2.2320E-03_JPRB,2.3397E-03_JPRB,2.4511E-03_JPRB/)
+KBO( :,26, 4) = (/&
+&1.6785E-03_JPRB,1.7643E-03_JPRB,1.8488E-03_JPRB,1.9387E-03_JPRB,2.0283E-03_JPRB/)
+KBO( :,27, 4) = (/&
+&1.3920E-03_JPRB,1.4619E-03_JPRB,1.5313E-03_JPRB,1.6067E-03_JPRB,1.6789E-03_JPRB/)
+KBO( :,28, 4) = (/&
+&1.1548E-03_JPRB,1.2112E-03_JPRB,1.2686E-03_JPRB,1.3305E-03_JPRB,1.3899E-03_JPRB/)
+KBO( :,29, 4) = (/&
+&9.5779E-04_JPRB,1.0036E-03_JPRB,1.0515E-03_JPRB,1.1016E-03_JPRB,1.1501E-03_JPRB/)
+KBO( :,30, 4) = (/&
+&7.9398E-04_JPRB,8.3159E-04_JPRB,8.7176E-04_JPRB,9.1222E-04_JPRB,9.5119E-04_JPRB/)
+KBO( :,31, 4) = (/&
+&6.5813E-04_JPRB,6.8913E-04_JPRB,7.2305E-04_JPRB,7.5559E-04_JPRB,7.8680E-04_JPRB/)
+KBO( :,32, 4) = (/&
+&5.4557E-04_JPRB,5.7133E-04_JPRB,5.9920E-04_JPRB,6.2591E-04_JPRB,6.5094E-04_JPRB/)
+KBO( :,33, 4) = (/&
+&4.5225E-04_JPRB,4.7384E-04_JPRB,4.9635E-04_JPRB,5.1810E-04_JPRB,5.3850E-04_JPRB/)
+KBO( :,34, 4) = (/&
+&3.7429E-04_JPRB,3.9240E-04_JPRB,4.1057E-04_JPRB,4.2811E-04_JPRB,4.4483E-04_JPRB/)
+KBO( :,35, 4) = (/&
+&3.0841E-04_JPRB,3.2350E-04_JPRB,3.3821E-04_JPRB,3.5240E-04_JPRB,3.6608E-04_JPRB/)
+KBO( :,36, 4) = (/&
+&2.5285E-04_JPRB,2.6525E-04_JPRB,2.7729E-04_JPRB,2.8885E-04_JPRB,3.0006E-04_JPRB/)
+KBO( :,37, 4) = (/&
+&2.0586E-04_JPRB,2.1585E-04_JPRB,2.2582E-04_JPRB,2.3540E-04_JPRB,2.4457E-04_JPRB/)
+KBO( :,38, 4) = (/&
+&1.6753E-04_JPRB,1.7559E-04_JPRB,1.8384E-04_JPRB,1.9177E-04_JPRB,1.9927E-04_JPRB/)
+KBO( :,39, 4) = (/&
+&1.3635E-04_JPRB,1.4286E-04_JPRB,1.4968E-04_JPRB,1.5622E-04_JPRB,1.6235E-04_JPRB/)
+KBO( :,40, 4) = (/&
+&1.1045E-04_JPRB,1.1567E-04_JPRB,1.2132E-04_JPRB,1.2672E-04_JPRB,1.3176E-04_JPRB/)
+KBO( :,41, 4) = (/&
+&8.9410E-05_JPRB,9.3610E-05_JPRB,9.8241E-05_JPRB,1.0266E-04_JPRB,1.0686E-04_JPRB/)
+KBO( :,42, 4) = (/&
+&7.2378E-05_JPRB,7.5781E-05_JPRB,7.9465E-05_JPRB,8.3145E-05_JPRB,8.6672E-05_JPRB/)
+KBO( :,43, 4) = (/&
+&5.8424E-05_JPRB,6.1188E-05_JPRB,6.4107E-05_JPRB,6.7188E-05_JPRB,7.0140E-05_JPRB/)
+KBO( :,44, 4) = (/&
+&4.7058E-05_JPRB,4.9346E-05_JPRB,5.1671E-05_JPRB,5.4230E-05_JPRB,5.6657E-05_JPRB/)
+KBO( :,45, 4) = (/&
+&3.7899E-05_JPRB,3.9798E-05_JPRB,4.1669E-05_JPRB,4.3706E-05_JPRB,4.5724E-05_JPRB/)
+KBO( :,46, 4) = (/&
+&3.0497E-05_JPRB,3.2055E-05_JPRB,3.3572E-05_JPRB,3.5176E-05_JPRB,3.6873E-05_JPRB/)
+KBO( :,47, 4) = (/&
+&2.4479E-05_JPRB,2.5732E-05_JPRB,2.6995E-05_JPRB,2.8267E-05_JPRB,2.9671E-05_JPRB/)
+KBO( :,48, 4) = (/&
+&1.9635E-05_JPRB,2.0659E-05_JPRB,2.1706E-05_JPRB,2.2729E-05_JPRB,2.3830E-05_JPRB/)
+KBO( :,49, 4) = (/&
+&1.5750E-05_JPRB,1.6588E-05_JPRB,1.7438E-05_JPRB,1.8276E-05_JPRB,1.9144E-05_JPRB/)
+KBO( :,50, 4) = (/&
+&1.2638E-05_JPRB,1.3327E-05_JPRB,1.4014E-05_JPRB,1.4713E-05_JPRB,1.5408E-05_JPRB/)
+KBO( :,51, 4) = (/&
+&1.0134E-05_JPRB,1.0710E-05_JPRB,1.1273E-05_JPRB,1.1849E-05_JPRB,1.2410E-05_JPRB/)
+KBO( :,52, 4) = (/&
+&8.1350E-06_JPRB,8.6070E-06_JPRB,9.0666E-06_JPRB,9.5314E-06_JPRB,9.9961E-06_JPRB/)
+KBO( :,53, 4) = (/&
+&6.5268E-06_JPRB,6.9077E-06_JPRB,7.2874E-06_JPRB,7.6647E-06_JPRB,8.0514E-06_JPRB/)
+KBO( :,54, 4) = (/&
+&5.2400E-06_JPRB,5.5504E-06_JPRB,5.8662E-06_JPRB,6.1754E-06_JPRB,6.4922E-06_JPRB/)
+KBO( :,55, 4) = (/&
+&4.2244E-06_JPRB,4.4665E-06_JPRB,4.7250E-06_JPRB,4.9775E-06_JPRB,5.2331E-06_JPRB/)
+KBO( :,56, 4) = (/&
+&3.4163E-06_JPRB,3.5930E-06_JPRB,3.8023E-06_JPRB,4.0104E-06_JPRB,4.2175E-06_JPRB/)
+KBO( :,57, 4) = (/&
+&2.7693E-06_JPRB,2.8867E-06_JPRB,3.0575E-06_JPRB,3.2307E-06_JPRB,3.4003E-06_JPRB/)
+KBO( :,58, 4) = (/&
+&2.2500E-06_JPRB,2.3279E-06_JPRB,2.4627E-06_JPRB,2.6048E-06_JPRB,2.7433E-06_JPRB/)
+KBO( :,59, 4) = (/&
+&1.8386E-06_JPRB,1.8966E-06_JPRB,2.0040E-06_JPRB,2.1199E-06_JPRB,2.2332E-06_JPRB/)
+KBO( :,13, 5) = (/&
+&3.7227E-02_JPRB,3.9236E-02_JPRB,4.1136E-02_JPRB,4.2635E-02_JPRB,4.4125E-02_JPRB/)
+KBO( :,14, 5) = (/&
+&3.0731E-02_JPRB,3.2386E-02_JPRB,3.3908E-02_JPRB,3.5126E-02_JPRB,3.6383E-02_JPRB/)
+KBO( :,15, 5) = (/&
+&2.5378E-02_JPRB,2.6727E-02_JPRB,2.7941E-02_JPRB,2.8947E-02_JPRB,3.0002E-02_JPRB/)
+KBO( :,16, 5) = (/&
+&2.0959E-02_JPRB,2.2046E-02_JPRB,2.3014E-02_JPRB,2.3851E-02_JPRB,2.4734E-02_JPRB/)
+KBO( :,17, 5) = (/&
+&1.7294E-02_JPRB,1.8176E-02_JPRB,1.8952E-02_JPRB,1.9643E-02_JPRB,2.0380E-02_JPRB/)
+KBO( :,18, 5) = (/&
+&1.4261E-02_JPRB,1.4983E-02_JPRB,1.5597E-02_JPRB,1.6174E-02_JPRB,1.6784E-02_JPRB/)
+KBO( :,19, 5) = (/&
+&1.1754E-02_JPRB,1.2342E-02_JPRB,1.2837E-02_JPRB,1.3312E-02_JPRB,1.3820E-02_JPRB/)
+KBO( :,20, 5) = (/&
+&9.6940E-03_JPRB,1.0172E-02_JPRB,1.0569E-02_JPRB,1.0962E-02_JPRB,1.1389E-02_JPRB/)
+KBO( :,21, 5) = (/&
+&7.9935E-03_JPRB,8.3804E-03_JPRB,8.7019E-03_JPRB,9.0256E-03_JPRB,9.3917E-03_JPRB/)
+KBO( :,22, 5) = (/&
+&6.6098E-03_JPRB,6.9213E-03_JPRB,7.1802E-03_JPRB,7.4552E-03_JPRB,7.7626E-03_JPRB/)
+KBO( :,23, 5) = (/&
+&5.4675E-03_JPRB,5.7122E-03_JPRB,5.9276E-03_JPRB,6.1590E-03_JPRB,6.4177E-03_JPRB/)
+KBO( :,24, 5) = (/&
+&4.5248E-03_JPRB,4.7145E-03_JPRB,4.8956E-03_JPRB,5.0905E-03_JPRB,5.3103E-03_JPRB/)
+KBO( :,25, 5) = (/&
+&3.7436E-03_JPRB,3.8938E-03_JPRB,4.0451E-03_JPRB,4.2083E-03_JPRB,4.3977E-03_JPRB/)
+KBO( :,26, 5) = (/&
+&3.0980E-03_JPRB,3.2193E-03_JPRB,3.3446E-03_JPRB,3.4820E-03_JPRB,3.6461E-03_JPRB/)
+KBO( :,27, 5) = (/&
+&2.5629E-03_JPRB,2.6621E-03_JPRB,2.7660E-03_JPRB,2.8810E-03_JPRB,3.0242E-03_JPRB/)
+KBO( :,28, 5) = (/&
+&2.1185E-03_JPRB,2.2012E-03_JPRB,2.2881E-03_JPRB,2.3854E-03_JPRB,2.5100E-03_JPRB/)
+KBO( :,29, 5) = (/&
+&1.7520E-03_JPRB,1.8201E-03_JPRB,1.8933E-03_JPRB,1.9774E-03_JPRB,2.0861E-03_JPRB/)
+KBO( :,30, 5) = (/&
+&1.4490E-03_JPRB,1.5053E-03_JPRB,1.5668E-03_JPRB,1.6405E-03_JPRB,1.7353E-03_JPRB/)
+KBO( :,31, 5) = (/&
+&1.1987E-03_JPRB,1.2454E-03_JPRB,1.2970E-03_JPRB,1.3620E-03_JPRB,1.4446E-03_JPRB/)
+KBO( :,32, 5) = (/&
+&9.9162E-04_JPRB,1.0307E-03_JPRB,1.0749E-03_JPRB,1.1317E-03_JPRB,1.2036E-03_JPRB/)
+KBO( :,33, 5) = (/&
+&8.2024E-04_JPRB,8.5336E-04_JPRB,8.9176E-04_JPRB,9.4137E-04_JPRB,1.0034E-03_JPRB/)
+KBO( :,34, 5) = (/&
+&6.7773E-04_JPRB,7.0554E-04_JPRB,7.3898E-04_JPRB,7.8201E-04_JPRB,8.3490E-04_JPRB/)
+KBO( :,35, 5) = (/&
+&5.5797E-04_JPRB,5.8103E-04_JPRB,6.0950E-04_JPRB,6.4595E-04_JPRB,6.9024E-04_JPRB/)
+KBO( :,36, 5) = (/&
+&4.5741E-04_JPRB,4.7636E-04_JPRB,4.9987E-04_JPRB,5.2994E-04_JPRB,5.6634E-04_JPRB/)
+KBO( :,37, 5) = (/&
+&3.7275E-04_JPRB,3.8812E-04_JPRB,4.0671E-04_JPRB,4.3063E-04_JPRB,4.5983E-04_JPRB/)
+KBO( :,38, 5) = (/&
+&3.0368E-04_JPRB,3.1612E-04_JPRB,3.3079E-04_JPRB,3.4977E-04_JPRB,3.7316E-04_JPRB/)
+KBO( :,39, 5) = (/&
+&2.4743E-04_JPRB,2.5746E-04_JPRB,2.6909E-04_JPRB,2.8414E-04_JPRB,3.0287E-04_JPRB/)
+KBO( :,40, 5) = (/&
+&2.0083E-04_JPRB,2.0881E-04_JPRB,2.1786E-04_JPRB,2.2950E-04_JPRB,2.4422E-04_JPRB/)
+KBO( :,41, 5) = (/&
+&1.6290E-04_JPRB,1.6930E-04_JPRB,1.7640E-04_JPRB,1.8539E-04_JPRB,1.9681E-04_JPRB/)
+KBO( :,42, 5) = (/&
+&1.3212E-04_JPRB,1.3729E-04_JPRB,1.4297E-04_JPRB,1.4983E-04_JPRB,1.5865E-04_JPRB/)
+KBO( :,43, 5) = (/&
+&1.0692E-04_JPRB,1.1111E-04_JPRB,1.1561E-04_JPRB,1.2081E-04_JPRB,1.2752E-04_JPRB/)
+KBO( :,44, 5) = (/&
+&8.6484E-05_JPRB,8.9851E-05_JPRB,9.3401E-05_JPRB,9.7384E-05_JPRB,1.0246E-04_JPRB/)
+KBO( :,45, 5) = (/&
+&6.9902E-05_JPRB,7.2641E-05_JPRB,7.5491E-05_JPRB,7.8632E-05_JPRB,8.2438E-05_JPRB/)
+KBO( :,46, 5) = (/&
+&5.6357E-05_JPRB,5.8678E-05_JPRB,6.0987E-05_JPRB,6.3456E-05_JPRB,6.6309E-05_JPRB/)
+KBO( :,47, 5) = (/&
+&4.5246E-05_JPRB,4.7351E-05_JPRB,4.9188E-05_JPRB,5.1132E-05_JPRB,5.3302E-05_JPRB/)
+KBO( :,48, 5) = (/&
+&3.6331E-05_JPRB,3.8149E-05_JPRB,3.9667E-05_JPRB,4.1226E-05_JPRB,4.2932E-05_JPRB/)
+KBO( :,49, 5) = (/&
+&2.9150E-05_JPRB,3.0662E-05_JPRB,3.1997E-05_JPRB,3.3254E-05_JPRB,3.4583E-05_JPRB/)
+KBO( :,50, 5) = (/&
+&2.3393E-05_JPRB,2.4645E-05_JPRB,2.5835E-05_JPRB,2.6842E-05_JPRB,2.7903E-05_JPRB/)
+KBO( :,51, 5) = (/&
+&1.8850E-05_JPRB,1.9822E-05_JPRB,2.0830E-05_JPRB,2.1675E-05_JPRB,2.2533E-05_JPRB/)
+KBO( :,52, 5) = (/&
+&1.5259E-05_JPRB,1.5932E-05_JPRB,1.6760E-05_JPRB,1.7514E-05_JPRB,1.8199E-05_JPRB/)
+KBO( :,53, 5) = (/&
+&1.2418E-05_JPRB,1.2796E-05_JPRB,1.3482E-05_JPRB,1.4141E-05_JPRB,1.4696E-05_JPRB/)
+KBO( :,54, 5) = (/&
+&1.0153E-05_JPRB,1.0334E-05_JPRB,1.0859E-05_JPRB,1.1414E-05_JPRB,1.1882E-05_JPRB/)
+KBO( :,55, 5) = (/&
+&8.3134E-06_JPRB,8.3805E-06_JPRB,8.7476E-06_JPRB,9.2016E-06_JPRB,9.6168E-06_JPRB/)
+KBO( :,56, 5) = (/&
+&6.8128E-06_JPRB,6.8250E-06_JPRB,7.0422E-06_JPRB,7.4184E-06_JPRB,7.7786E-06_JPRB/)
+KBO( :,57, 5) = (/&
+&5.5871E-06_JPRB,5.5794E-06_JPRB,5.6879E-06_JPRB,5.9805E-06_JPRB,6.2836E-06_JPRB/)
+KBO( :,58, 5) = (/&
+&4.5833E-06_JPRB,4.5677E-06_JPRB,4.6123E-06_JPRB,4.8228E-06_JPRB,5.0715E-06_JPRB/)
+KBO( :,59, 5) = (/&
+&3.7554E-06_JPRB,3.7413E-06_JPRB,3.7664E-06_JPRB,3.9250E-06_JPRB,4.1286E-06_JPRB/)
+KBO( :,13, 6) = (/&
+&5.9721E-02_JPRB,6.1354E-02_JPRB,6.5184E-02_JPRB,7.1296E-02_JPRB,7.9076E-02_JPRB/)
+KBO( :,14, 6) = (/&
+&4.9090E-02_JPRB,5.0657E-02_JPRB,5.4055E-02_JPRB,5.9268E-02_JPRB,6.5784E-02_JPRB/)
+KBO( :,15, 6) = (/&
+&4.0373E-02_JPRB,4.1857E-02_JPRB,4.4839E-02_JPRB,4.9265E-02_JPRB,5.4749E-02_JPRB/)
+KBO( :,16, 6) = (/&
+&3.3205E-02_JPRB,3.4589E-02_JPRB,3.7200E-02_JPRB,4.0963E-02_JPRB,4.5588E-02_JPRB/)
+KBO( :,17, 6) = (/&
+&2.7321E-02_JPRB,2.8572E-02_JPRB,3.0844E-02_JPRB,3.4044E-02_JPRB,3.7943E-02_JPRB/)
+KBO( :,18, 6) = (/&
+&2.2479E-02_JPRB,2.3595E-02_JPRB,2.5570E-02_JPRB,2.8293E-02_JPRB,3.1545E-02_JPRB/)
+KBO( :,19, 6) = (/&
+&1.8500E-02_JPRB,1.9491E-02_JPRB,2.1196E-02_JPRB,2.3496E-02_JPRB,2.6203E-02_JPRB/)
+KBO( :,20, 6) = (/&
+&1.5238E-02_JPRB,1.6125E-02_JPRB,1.7598E-02_JPRB,1.9543E-02_JPRB,2.1792E-02_JPRB/)
+KBO( :,21, 6) = (/&
+&1.2557E-02_JPRB,1.3343E-02_JPRB,1.4614E-02_JPRB,1.6252E-02_JPRB,1.8124E-02_JPRB/)
+KBO( :,22, 6) = (/&
+&1.0384E-02_JPRB,1.1107E-02_JPRB,1.2217E-02_JPRB,1.3612E-02_JPRB,1.5187E-02_JPRB/)
+KBO( :,23, 6) = (/&
+&8.6014E-03_JPRB,9.2602E-03_JPRB,1.0223E-02_JPRB,1.1410E-02_JPRB,1.2737E-02_JPRB/)
+KBO( :,24, 6) = (/&
+&7.1344E-03_JPRB,7.7349E-03_JPRB,8.5670E-03_JPRB,9.5773E-03_JPRB,1.0688E-02_JPRB/)
+KBO( :,25, 6) = (/&
+&5.9318E-03_JPRB,6.4720E-03_JPRB,7.1956E-03_JPRB,8.0463E-03_JPRB,8.9744E-03_JPRB/)
+KBO( :,26, 6) = (/&
+&4.9484E-03_JPRB,5.4321E-03_JPRB,6.0595E-03_JPRB,6.7732E-03_JPRB,7.5465E-03_JPRB/)
+KBO( :,27, 6) = (/&
+&4.1359E-03_JPRB,4.5660E-03_JPRB,5.1046E-03_JPRB,5.7011E-03_JPRB,6.3447E-03_JPRB/)
+KBO( :,28, 6) = (/&
+&3.4651E-03_JPRB,3.8427E-03_JPRB,4.2986E-03_JPRB,4.7976E-03_JPRB,5.3324E-03_JPRB/)
+KBO( :,29, 6) = (/&
+&2.9102E-03_JPRB,3.2386E-03_JPRB,3.6218E-03_JPRB,4.0393E-03_JPRB,4.4830E-03_JPRB/)
+KBO( :,30, 6) = (/&
+&2.4470E-03_JPRB,2.7307E-03_JPRB,3.0520E-03_JPRB,3.4007E-03_JPRB,3.7682E-03_JPRB/)
+KBO( :,31, 6) = (/&
+&2.0606E-03_JPRB,2.3037E-03_JPRB,2.5728E-03_JPRB,2.8636E-03_JPRB,3.1684E-03_JPRB/)
+KBO( :,32, 6) = (/&
+&1.7372E-03_JPRB,1.9434E-03_JPRB,2.1690E-03_JPRB,2.4112E-03_JPRB,2.6643E-03_JPRB/)
+KBO( :,33, 6) = (/&
+&1.4660E-03_JPRB,1.6395E-03_JPRB,1.8287E-03_JPRB,2.0301E-03_JPRB,2.2400E-03_JPRB/)
+KBO( :,34, 6) = (/&
+&1.2328E-03_JPRB,1.3780E-03_JPRB,1.5359E-03_JPRB,1.7027E-03_JPRB,1.8761E-03_JPRB/)
+KBO( :,35, 6) = (/&
+&1.0255E-03_JPRB,1.1459E-03_JPRB,1.2766E-03_JPRB,1.4142E-03_JPRB,1.5568E-03_JPRB/)
+KBO( :,36, 6) = (/&
+&8.4246E-04_JPRB,9.4144E-04_JPRB,1.0489E-03_JPRB,1.1618E-03_JPRB,1.2788E-03_JPRB/)
+KBO( :,37, 6) = (/&
+&6.8032E-04_JPRB,7.6059E-04_JPRB,8.4800E-04_JPRB,9.4011E-04_JPRB,1.0358E-03_JPRB/)
+KBO( :,38, 6) = (/&
+&5.4877E-04_JPRB,6.1380E-04_JPRB,6.8481E-04_JPRB,7.5996E-04_JPRB,8.3820E-04_JPRB/)
+KBO( :,39, 6) = (/&
+&4.4270E-04_JPRB,4.9539E-04_JPRB,5.5302E-04_JPRB,6.1429E-04_JPRB,6.7818E-04_JPRB/)
+KBO( :,40, 6) = (/&
+&3.5308E-04_JPRB,3.9528E-04_JPRB,4.4159E-04_JPRB,4.9127E-04_JPRB,5.4322E-04_JPRB/)
+KBO( :,41, 6) = (/&
+&2.8136E-04_JPRB,3.1489E-04_JPRB,3.5201E-04_JPRB,3.9219E-04_JPRB,4.3434E-04_JPRB/)
+KBO( :,42, 6) = (/&
+&2.2435E-04_JPRB,2.5074E-04_JPRB,2.8049E-04_JPRB,3.1292E-04_JPRB,3.4710E-04_JPRB/)
+KBO( :,43, 6) = (/&
+&1.7802E-04_JPRB,1.9831E-04_JPRB,2.2204E-04_JPRB,2.4800E-04_JPRB,2.7568E-04_JPRB/)
+KBO( :,44, 6) = (/&
+&1.4111E-04_JPRB,1.5650E-04_JPRB,1.7526E-04_JPRB,1.9592E-04_JPRB,2.1824E-04_JPRB/)
+KBO( :,45, 6) = (/&
+&1.1219E-04_JPRB,1.2365E-04_JPRB,1.3828E-04_JPRB,1.5471E-04_JPRB,1.7263E-04_JPRB/)
+KBO( :,46, 6) = (/&
+&8.9353E-05_JPRB,9.7626E-05_JPRB,1.0876E-04_JPRB,1.2182E-04_JPRB,1.3611E-04_JPRB/)
+KBO( :,47, 6) = (/&
+&7.1331E-05_JPRB,7.6923E-05_JPRB,8.5223E-05_JPRB,9.5443E-05_JPRB,1.0675E-04_JPRB/)
+KBO( :,48, 6) = (/&
+&5.7219E-05_JPRB,6.0885E-05_JPRB,6.6897E-05_JPRB,7.4726E-05_JPRB,8.3664E-05_JPRB/)
+KBO( :,49, 6) = (/&
+&4.6157E-05_JPRB,4.8450E-05_JPRB,5.2634E-05_JPRB,5.8499E-05_JPRB,6.5552E-05_JPRB/)
+KBO( :,50, 6) = (/&
+&3.7497E-05_JPRB,3.8822E-05_JPRB,4.1643E-05_JPRB,4.5997E-05_JPRB,5.1490E-05_JPRB/)
+KBO( :,51, 6) = (/&
+&3.0548E-05_JPRB,3.1258E-05_JPRB,3.3116E-05_JPRB,3.6272E-05_JPRB,4.0468E-05_JPRB/)
+KBO( :,52, 6) = (/&
+&2.4904E-05_JPRB,2.5290E-05_JPRB,2.6467E-05_JPRB,2.8662E-05_JPRB,3.1824E-05_JPRB/)
+KBO( :,53, 6) = (/&
+&2.0318E-05_JPRB,2.0573E-05_JPRB,2.1239E-05_JPRB,2.2721E-05_JPRB,2.5059E-05_JPRB/)
+KBO( :,54, 6) = (/&
+&1.6597E-05_JPRB,1.6771E-05_JPRB,1.7139E-05_JPRB,1.8127E-05_JPRB,1.9830E-05_JPRB/)
+KBO( :,55, 6) = (/&
+&1.3561E-05_JPRB,1.3681E-05_JPRB,1.3892E-05_JPRB,1.4536E-05_JPRB,1.5739E-05_JPRB/)
+KBO( :,56, 6) = (/&
+&1.1086E-05_JPRB,1.1167E-05_JPRB,1.1310E-05_JPRB,1.1693E-05_JPRB,1.2526E-05_JPRB/)
+KBO( :,57, 6) = (/&
+&9.0628E-06_JPRB,9.1225E-06_JPRB,9.2203E-06_JPRB,9.4367E-06_JPRB,9.9993E-06_JPRB/)
+KBO( :,58, 6) = (/&
+&7.4303E-06_JPRB,7.4548E-06_JPRB,7.5223E-06_JPRB,7.6481E-06_JPRB,8.0215E-06_JPRB/)
+KBO( :,59, 6) = (/&
+&6.0935E-06_JPRB,6.1009E-06_JPRB,6.1525E-06_JPRB,6.2448E-06_JPRB,6.5226E-06_JPRB/)
+KBO( :,13, 7) = (/&
+&1.1588E-01_JPRB,1.3365E-01_JPRB,1.5332E-01_JPRB,1.7451E-01_JPRB,1.9690E-01_JPRB/)
+KBO( :,14, 7) = (/&
+&9.7055E-02_JPRB,1.1196E-01_JPRB,1.2839E-01_JPRB,1.4612E-01_JPRB,1.6488E-01_JPRB/)
+KBO( :,15, 7) = (/&
+&8.1294E-02_JPRB,9.3772E-02_JPRB,1.0756E-01_JPRB,1.2240E-01_JPRB,1.3809E-01_JPRB/)
+KBO( :,16, 7) = (/&
+&6.8061E-02_JPRB,7.8545E-02_JPRB,9.0101E-02_JPRB,1.0250E-01_JPRB,1.1550E-01_JPRB/)
+KBO( :,17, 7) = (/&
+&5.6952E-02_JPRB,6.5739E-02_JPRB,7.5393E-02_JPRB,8.5665E-02_JPRB,9.6436E-02_JPRB/)
+KBO( :,18, 7) = (/&
+&4.7617E-02_JPRB,5.4966E-02_JPRB,6.2979E-02_JPRB,7.1480E-02_JPRB,8.0409E-02_JPRB/)
+KBO( :,19, 7) = (/&
+&3.9773E-02_JPRB,4.5894E-02_JPRB,5.2544E-02_JPRB,5.9585E-02_JPRB,6.7003E-02_JPRB/)
+KBO( :,20, 7) = (/&
+&3.3266E-02_JPRB,3.8381E-02_JPRB,4.3891E-02_JPRB,4.9742E-02_JPRB,5.5899E-02_JPRB/)
+KBO( :,21, 7) = (/&
+&2.7821E-02_JPRB,3.2077E-02_JPRB,3.6647E-02_JPRB,4.1505E-02_JPRB,4.6608E-02_JPRB/)
+KBO( :,22, 7) = (/&
+&2.3478E-02_JPRB,2.7039E-02_JPRB,3.0839E-02_JPRB,3.4879E-02_JPRB,3.9103E-02_JPRB/)
+KBO( :,23, 7) = (/&
+&1.9822E-02_JPRB,2.2790E-02_JPRB,2.5960E-02_JPRB,2.9305E-02_JPRB,3.2804E-02_JPRB/)
+KBO( :,24, 7) = (/&
+&1.6745E-02_JPRB,1.9225E-02_JPRB,2.1856E-02_JPRB,2.4636E-02_JPRB,2.7545E-02_JPRB/)
+KBO( :,25, 7) = (/&
+&1.4161E-02_JPRB,1.6225E-02_JPRB,1.8415E-02_JPRB,2.0732E-02_JPRB,2.3157E-02_JPRB/)
+KBO( :,26, 7) = (/&
+&1.2003E-02_JPRB,1.3719E-02_JPRB,1.5547E-02_JPRB,1.7489E-02_JPRB,1.9498E-02_JPRB/)
+KBO( :,27, 7) = (/&
+&1.0171E-02_JPRB,1.1602E-02_JPRB,1.3133E-02_JPRB,1.4753E-02_JPRB,1.6413E-02_JPRB/)
+KBO( :,28, 7) = (/&
+&8.6151E-03_JPRB,9.8138E-03_JPRB,1.1097E-02_JPRB,1.2440E-02_JPRB,1.3808E-02_JPRB/)
+KBO( :,29, 7) = (/&
+&7.3031E-03_JPRB,8.3100E-03_JPRB,9.3806E-03_JPRB,1.0489E-02_JPRB,1.1614E-02_JPRB/)
+KBO( :,30, 7) = (/&
+&6.1924E-03_JPRB,7.0350E-03_JPRB,7.9243E-03_JPRB,8.8379E-03_JPRB,9.7615E-03_JPRB/)
+KBO( :,31, 7) = (/&
+&5.2533E-03_JPRB,5.9562E-03_JPRB,6.6929E-03_JPRB,7.4442E-03_JPRB,8.2040E-03_JPRB/)
+KBO( :,32, 7) = (/&
+&4.4571E-03_JPRB,5.0422E-03_JPRB,5.6504E-03_JPRB,6.2688E-03_JPRB,6.8946E-03_JPRB/)
+KBO( :,33, 7) = (/&
+&3.7800E-03_JPRB,4.2660E-03_JPRB,4.7678E-03_JPRB,5.2772E-03_JPRB,5.7931E-03_JPRB/)
+KBO( :,34, 7) = (/&
+&3.1899E-03_JPRB,3.5923E-03_JPRB,4.0058E-03_JPRB,4.4259E-03_JPRB,4.8520E-03_JPRB/)
+KBO( :,35, 7) = (/&
+&2.6588E-03_JPRB,2.9911E-03_JPRB,3.3311E-03_JPRB,3.6773E-03_JPRB,4.0289E-03_JPRB/)
+KBO( :,36, 7) = (/&
+&2.1867E-03_JPRB,2.4598E-03_JPRB,2.7392E-03_JPRB,3.0239E-03_JPRB,3.3135E-03_JPRB/)
+KBO( :,37, 7) = (/&
+&1.7654E-03_JPRB,1.9884E-03_JPRB,2.2175E-03_JPRB,2.4512E-03_JPRB,2.6886E-03_JPRB/)
+KBO( :,38, 7) = (/&
+&1.4235E-03_JPRB,1.6055E-03_JPRB,1.7932E-03_JPRB,1.9849E-03_JPRB,2.1796E-03_JPRB/)
+KBO( :,39, 7) = (/&
+&1.1477E-03_JPRB,1.2961E-03_JPRB,1.4499E-03_JPRB,1.6071E-03_JPRB,1.7668E-03_JPRB/)
+KBO( :,40, 7) = (/&
+&9.1302E-04_JPRB,1.0335E-03_JPRB,1.1591E-03_JPRB,1.2877E-03_JPRB,1.4185E-03_JPRB/)
+KBO( :,41, 7) = (/&
+&7.2467E-04_JPRB,8.2221E-04_JPRB,9.2464E-04_JPRB,1.0298E-03_JPRB,1.1370E-03_JPRB/)
+KBO( :,42, 7) = (/&
+&5.7474E-04_JPRB,6.5369E-04_JPRB,7.3701E-04_JPRB,8.2293E-04_JPRB,9.1070E-04_JPRB/)
+KBO( :,43, 7) = (/&
+&4.5204E-04_JPRB,5.1571E-04_JPRB,5.8312E-04_JPRB,6.5322E-04_JPRB,7.2492E-04_JPRB/)
+KBO( :,44, 7) = (/&
+&3.5397E-04_JPRB,4.0509E-04_JPRB,4.5944E-04_JPRB,5.1651E-04_JPRB,5.7502E-04_JPRB/)
+KBO( :,45, 7) = (/&
+&2.7677E-04_JPRB,3.1783E-04_JPRB,3.6162E-04_JPRB,4.0793E-04_JPRB,4.5562E-04_JPRB/)
+KBO( :,46, 7) = (/&
+&2.1540E-04_JPRB,2.4835E-04_JPRB,2.8358E-04_JPRB,3.2093E-04_JPRB,3.5979E-04_JPRB/)
+KBO( :,47, 7) = (/&
+&1.6633E-04_JPRB,1.9266E-04_JPRB,2.2081E-04_JPRB,2.5080E-04_JPRB,2.8236E-04_JPRB/)
+KBO( :,48, 7) = (/&
+&1.2830E-04_JPRB,1.4914E-04_JPRB,1.7167E-04_JPRB,1.9573E-04_JPRB,2.2121E-04_JPRB/)
+KBO( :,49, 7) = (/&
+&9.8900E-05_JPRB,1.1524E-04_JPRB,1.3325E-04_JPRB,1.5252E-04_JPRB,1.7300E-04_JPRB/)
+KBO( :,50, 7) = (/&
+&7.6523E-05_JPRB,8.9264E-05_JPRB,1.0363E-04_JPRB,1.1906E-04_JPRB,1.3550E-04_JPRB/)
+KBO( :,51, 7) = (/&
+&5.9350E-05_JPRB,6.9204E-05_JPRB,8.0571E-05_JPRB,9.2952E-05_JPRB,1.0617E-04_JPRB/)
+KBO( :,52, 7) = (/&
+&4.6110E-05_JPRB,5.3638E-05_JPRB,6.2565E-05_JPRB,7.2480E-05_JPRB,8.3081E-05_JPRB/)
+KBO( :,53, 7) = (/&
+&3.5907E-05_JPRB,4.1572E-05_JPRB,4.8523E-05_JPRB,5.6421E-05_JPRB,6.4919E-05_JPRB/)
+KBO( :,54, 7) = (/&
+&2.8169E-05_JPRB,3.2394E-05_JPRB,3.7786E-05_JPRB,4.4047E-05_JPRB,5.0874E-05_JPRB/)
+KBO( :,55, 7) = (/&
+&2.2244E-05_JPRB,2.5332E-05_JPRB,2.9480E-05_JPRB,3.4420E-05_JPRB,3.9903E-05_JPRB/)
+KBO( :,56, 7) = (/&
+&1.7661E-05_JPRB,1.9848E-05_JPRB,2.3004E-05_JPRB,2.6875E-05_JPRB,3.1261E-05_JPRB/)
+KBO( :,57, 7) = (/&
+&1.4116E-05_JPRB,1.5590E-05_JPRB,1.7962E-05_JPRB,2.0972E-05_JPRB,2.4457E-05_JPRB/)
+KBO( :,58, 7) = (/&
+&1.1342E-05_JPRB,1.2323E-05_JPRB,1.4076E-05_JPRB,1.6403E-05_JPRB,1.9161E-05_JPRB/)
+KBO( :,59, 7) = (/&
+&9.2282E-06_JPRB,9.9669E-06_JPRB,1.1338E-05_JPRB,1.3199E-05_JPRB,1.5427E-05_JPRB/)
+KBO( :,13, 8) = (/&
+&3.3007E-01_JPRB,3.9651E-01_JPRB,4.6809E-01_JPRB,5.4357E-01_JPRB,6.2157E-01_JPRB/)
+KBO( :,14, 8) = (/&
+&2.7899E-01_JPRB,3.3507E-01_JPRB,3.9534E-01_JPRB,4.5851E-01_JPRB,5.2383E-01_JPRB/)
+KBO( :,15, 8) = (/&
+&2.3603E-01_JPRB,2.8320E-01_JPRB,3.3377E-01_JPRB,3.8669E-01_JPRB,4.4137E-01_JPRB/)
+KBO( :,16, 8) = (/&
+&1.9959E-01_JPRB,2.3926E-01_JPRB,2.8155E-01_JPRB,3.2567E-01_JPRB,3.7161E-01_JPRB/)
+KBO( :,17, 8) = (/&
+&1.6854E-01_JPRB,2.0171E-01_JPRB,2.3696E-01_JPRB,2.7391E-01_JPRB,3.1236E-01_JPRB/)
+KBO( :,18, 8) = (/&
+&1.4209E-01_JPRB,1.6977E-01_JPRB,1.9918E-01_JPRB,2.3009E-01_JPRB,2.6229E-01_JPRB/)
+KBO( :,19, 8) = (/&
+&1.1954E-01_JPRB,1.4262E-01_JPRB,1.6719E-01_JPRB,1.9301E-01_JPRB,2.1984E-01_JPRB/)
+KBO( :,20, 8) = (/&
+&1.0077E-01_JPRB,1.2005E-01_JPRB,1.4054E-01_JPRB,1.6208E-01_JPRB,1.8429E-01_JPRB/)
+KBO( :,21, 8) = (/&
+&8.4914E-02_JPRB,1.0100E-01_JPRB,1.1806E-01_JPRB,1.3588E-01_JPRB,1.5437E-01_JPRB/)
+KBO( :,22, 8) = (/&
+&7.2355E-02_JPRB,8.5791E-02_JPRB,9.9982E-02_JPRB,1.1481E-01_JPRB,1.3020E-01_JPRB/)
+KBO( :,23, 8) = (/&
+&6.1637E-02_JPRB,7.2833E-02_JPRB,8.4658E-02_JPRB,9.6984E-02_JPRB,1.0981E-01_JPRB/)
+KBO( :,24, 8) = (/&
+&5.2514E-02_JPRB,6.1860E-02_JPRB,7.1701E-02_JPRB,8.1967E-02_JPRB,9.2596E-02_JPRB/)
+KBO( :,25, 8) = (/&
+&4.4769E-02_JPRB,5.2568E-02_JPRB,6.0763E-02_JPRB,6.9296E-02_JPRB,7.8120E-02_JPRB/)
+KBO( :,26, 8) = (/&
+&3.8253E-02_JPRB,4.4756E-02_JPRB,5.1578E-02_JPRB,5.8670E-02_JPRB,6.6013E-02_JPRB/)
+KBO( :,27, 8) = (/&
+&3.2667E-02_JPRB,3.8088E-02_JPRB,4.3757E-02_JPRB,4.9656E-02_JPRB,5.5793E-02_JPRB/)
+KBO( :,28, 8) = (/&
+&2.7877E-02_JPRB,3.2393E-02_JPRB,3.7109E-02_JPRB,4.2030E-02_JPRB,4.7179E-02_JPRB/)
+KBO( :,29, 8) = (/&
+&2.3797E-02_JPRB,2.7555E-02_JPRB,3.1491E-02_JPRB,3.5617E-02_JPRB,3.9923E-02_JPRB/)
+KBO( :,30, 8) = (/&
+&2.0298E-02_JPRB,2.3432E-02_JPRB,2.6727E-02_JPRB,3.0189E-02_JPRB,3.3773E-02_JPRB/)
+KBO( :,31, 8) = (/&
+&1.7314E-02_JPRB,1.9936E-02_JPRB,2.2701E-02_JPRB,2.5587E-02_JPRB,2.8571E-02_JPRB/)
+KBO( :,32, 8) = (/&
+&1.4770E-02_JPRB,1.6972E-02_JPRB,1.9281E-02_JPRB,2.1688E-02_JPRB,2.4162E-02_JPRB/)
+KBO( :,33, 8) = (/&
+&1.2600E-02_JPRB,1.4446E-02_JPRB,1.6373E-02_JPRB,1.8374E-02_JPRB,2.0424E-02_JPRB/)
+KBO( :,34, 8) = (/&
+&1.0696E-02_JPRB,1.2236E-02_JPRB,1.3839E-02_JPRB,1.5497E-02_JPRB,1.7194E-02_JPRB/)
+KBO( :,35, 8) = (/&
+&8.9555E-03_JPRB,1.0232E-02_JPRB,1.1559E-02_JPRB,1.2931E-02_JPRB,1.4335E-02_JPRB/)
+KBO( :,36, 8) = (/&
+&7.3846E-03_JPRB,8.4373E-03_JPRB,9.5325E-03_JPRB,1.0662E-02_JPRB,1.1822E-02_JPRB/)
+KBO( :,37, 8) = (/&
+&5.9606E-03_JPRB,6.8233E-03_JPRB,7.7209E-03_JPRB,8.6487E-03_JPRB,9.6041E-03_JPRB/)
+KBO( :,38, 8) = (/&
+&4.8037E-03_JPRB,5.5105E-03_JPRB,6.2459E-03_JPRB,7.0079E-03_JPRB,7.7943E-03_JPRB/)
+KBO( :,39, 8) = (/&
+&3.8706E-03_JPRB,4.4491E-03_JPRB,5.0519E-03_JPRB,5.6779E-03_JPRB,6.3251E-03_JPRB/)
+KBO( :,40, 8) = (/&
+&3.0705E-03_JPRB,3.5417E-03_JPRB,4.0336E-03_JPRB,4.5461E-03_JPRB,5.0773E-03_JPRB/)
+KBO( :,41, 8) = (/&
+&2.4285E-03_JPRB,2.8118E-03_JPRB,3.2129E-03_JPRB,3.6318E-03_JPRB,4.0673E-03_JPRB/)
+KBO( :,42, 8) = (/&
+&1.9184E-03_JPRB,2.2300E-03_JPRB,2.5570E-03_JPRB,2.8991E-03_JPRB,3.2561E-03_JPRB/)
+KBO( :,43, 8) = (/&
+&1.4999E-03_JPRB,1.7522E-03_JPRB,2.0180E-03_JPRB,2.2966E-03_JPRB,2.5881E-03_JPRB/)
+KBO( :,44, 8) = (/&
+&1.1655E-03_JPRB,1.3694E-03_JPRB,1.5849E-03_JPRB,1.8113E-03_JPRB,2.0488E-03_JPRB/)
+KBO( :,45, 8) = (/&
+&9.0376E-04_JPRB,1.0682E-03_JPRB,1.2427E-03_JPRB,1.4266E-03_JPRB,1.6199E-03_JPRB/)
+KBO( :,46, 8) = (/&
+&6.9650E-04_JPRB,8.2858E-04_JPRB,9.6950E-04_JPRB,1.1186E-03_JPRB,1.2755E-03_JPRB/)
+KBO( :,47, 8) = (/&
+&5.3108E-04_JPRB,6.3643E-04_JPRB,7.4984E-04_JPRB,8.7018E-04_JPRB,9.9721E-04_JPRB/)
+KBO( :,48, 8) = (/&
+&4.0361E-04_JPRB,4.8742E-04_JPRB,5.7833E-04_JPRB,6.7534E-04_JPRB,7.7807E-04_JPRB/)
+KBO( :,49, 8) = (/&
+&3.0566E-04_JPRB,3.7215E-04_JPRB,4.4475E-04_JPRB,5.2279E-04_JPRB,6.0579E-04_JPRB/)
+KBO( :,50, 8) = (/&
+&2.3193E-04_JPRB,2.8459E-04_JPRB,3.4251E-04_JPRB,4.0526E-04_JPRB,4.7230E-04_JPRB/)
+KBO( :,51, 8) = (/&
+&1.7590E-04_JPRB,2.1748E-04_JPRB,2.6361E-04_JPRB,3.1395E-04_JPRB,3.6804E-04_JPRB/)
+KBO( :,52, 8) = (/&
+&1.3304E-04_JPRB,1.6573E-04_JPRB,2.0240E-04_JPRB,2.4265E-04_JPRB,2.8621E-04_JPRB/)
+KBO( :,53, 8) = (/&
+&1.0033E-04_JPRB,1.2590E-04_JPRB,1.5496E-04_JPRB,1.8704E-04_JPRB,2.2201E-04_JPRB/)
+KBO( :,54, 8) = (/&
+&7.6043E-05_JPRB,9.6033E-05_JPRB,1.1903E-04_JPRB,1.4464E-04_JPRB,1.7271E-04_JPRB/)
+KBO( :,55, 8) = (/&
+&5.7725E-05_JPRB,7.3309E-05_JPRB,9.1482E-05_JPRB,1.1190E-04_JPRB,1.3439E-04_JPRB/)
+KBO( :,56, 8) = (/&
+&4.3773E-05_JPRB,5.5845E-05_JPRB,7.0155E-05_JPRB,8.6401E-05_JPRB,1.0439E-04_JPRB/)
+KBO( :,57, 8) = (/&
+&3.3178E-05_JPRB,4.2466E-05_JPRB,5.3677E-05_JPRB,6.6562E-05_JPRB,8.0932E-05_JPRB/)
+KBO( :,58, 8) = (/&
+&2.5276E-05_JPRB,3.2365E-05_JPRB,4.1133E-05_JPRB,5.1343E-05_JPRB,6.2815E-05_JPRB/)
+KBO( :,59, 8) = (/&
+&2.0138E-05_JPRB,2.5779E-05_JPRB,3.2836E-05_JPRB,4.1105E-05_JPRB,5.0433E-05_JPRB/)
+KBO( :,13, 9) = (/&
+&2.0575E+00_JPRB,2.5259E+00_JPRB,3.0234E+00_JPRB,3.5471E+00_JPRB,4.0892E+00_JPRB/)
+KBO( :,14, 9) = (/&
+&1.7896E+00_JPRB,2.1936E+00_JPRB,2.6243E+00_JPRB,3.0754E+00_JPRB,3.5357E+00_JPRB/)
+KBO( :,15, 9) = (/&
+&1.5532E+00_JPRB,1.9005E+00_JPRB,2.2698E+00_JPRB,2.6534E+00_JPRB,3.0460E+00_JPRB/)
+KBO( :,16, 9) = (/&
+&1.3431E+00_JPRB,1.6399E+00_JPRB,1.9542E+00_JPRB,2.2801E+00_JPRB,2.6154E+00_JPRB/)
+KBO( :,17, 9) = (/&
+&1.1564E+00_JPRB,1.4091E+00_JPRB,1.6750E+00_JPRB,1.9517E+00_JPRB,2.2353E+00_JPRB/)
+KBO( :,18, 9) = (/&
+&9.9261E-01_JPRB,1.2059E+00_JPRB,1.4303E+00_JPRB,1.6635E+00_JPRB,1.9029E+00_JPRB/)
+KBO( :,19, 9) = (/&
+&8.4829E-01_JPRB,1.0283E+00_JPRB,1.2171E+00_JPRB,1.4131E+00_JPRB,1.6142E+00_JPRB/)
+KBO( :,20, 9) = (/&
+&7.2551E-01_JPRB,8.7689E-01_JPRB,1.0360E+00_JPRB,1.2012E+00_JPRB,1.3703E+00_JPRB/)
+KBO( :,21, 9) = (/&
+&6.1932E-01_JPRB,7.4645E-01_JPRB,8.8019E-01_JPRB,1.0189E+00_JPRB,1.1616E+00_JPRB/)
+KBO( :,22, 9) = (/&
+&5.3436E-01_JPRB,6.4171E-01_JPRB,7.5441E-01_JPRB,8.7104E-01_JPRB,9.9107E-01_JPRB/)
+KBO( :,23, 9) = (/&
+&4.6064E-01_JPRB,5.5112E-01_JPRB,6.4570E-01_JPRB,7.4365E-01_JPRB,8.4436E-01_JPRB/)
+KBO( :,24, 9) = (/&
+&3.9696E-01_JPRB,4.7292E-01_JPRB,5.5220E-01_JPRB,6.3452E-01_JPRB,7.1905E-01_JPRB/)
+KBO( :,25, 9) = (/&
+&3.4206E-01_JPRB,4.0576E-01_JPRB,4.7240E-01_JPRB,5.4144E-01_JPRB,6.1253E-01_JPRB/)
+KBO( :,26, 9) = (/&
+&2.9509E-01_JPRB,3.4866E-01_JPRB,4.0462E-01_JPRB,4.6255E-01_JPRB,5.2212E-01_JPRB/)
+KBO( :,27, 9) = (/&
+&2.5432E-01_JPRB,2.9938E-01_JPRB,3.4636E-01_JPRB,3.9487E-01_JPRB,4.4473E-01_JPRB/)
+KBO( :,28, 9) = (/&
+&2.1897E-01_JPRB,2.5686E-01_JPRB,2.9621E-01_JPRB,3.3690E-01_JPRB,3.7871E-01_JPRB/)
+KBO( :,29, 9) = (/&
+&1.8863E-01_JPRB,2.2035E-01_JPRB,2.5338E-01_JPRB,2.8746E-01_JPRB,3.2276E-01_JPRB/)
+KBO( :,30, 9) = (/&
+&1.6227E-01_JPRB,1.8891E-01_JPRB,2.1659E-01_JPRB,2.4532E-01_JPRB,2.7508E-01_JPRB/)
+KBO( :,31, 9) = (/&
+&1.3961E-01_JPRB,1.6197E-01_JPRB,1.8522E-01_JPRB,2.0946E-01_JPRB,2.3451E-01_JPRB/)
+KBO( :,32, 9) = (/&
+&1.2009E-01_JPRB,1.3886E-01_JPRB,1.5848E-01_JPRB,1.7888E-01_JPRB,2.0001E-01_JPRB/)
+KBO( :,33, 9) = (/&
+&1.0324E-01_JPRB,1.1904E-01_JPRB,1.3559E-01_JPRB,1.5281E-01_JPRB,1.7071E-01_JPRB/)
+KBO( :,34, 9) = (/&
+&8.8245E-02_JPRB,1.0156E-01_JPRB,1.1550E-01_JPRB,1.3006E-01_JPRB,1.4528E-01_JPRB/)
+KBO( :,35, 9) = (/&
+&7.4373E-02_JPRB,8.5551E-02_JPRB,9.7297E-02_JPRB,1.0957E-01_JPRB,1.2251E-01_JPRB/)
+KBO( :,36, 9) = (/&
+&6.1704E-02_JPRB,7.1049E-02_JPRB,8.0900E-02_JPRB,9.1251E-02_JPRB,1.0221E-01_JPRB/)
+KBO( :,37, 9) = (/&
+&5.0060E-02_JPRB,5.7820E-02_JPRB,6.6024E-02_JPRB,7.4701E-02_JPRB,8.3923E-02_JPRB/)
+KBO( :,38, 9) = (/&
+&4.0550E-02_JPRB,4.6991E-02_JPRB,5.3826E-02_JPRB,6.1105E-02_JPRB,6.8864E-02_JPRB/)
+KBO( :,39, 9) = (/&
+&3.2845E-02_JPRB,3.8185E-02_JPRB,4.3883E-02_JPRB,4.9990E-02_JPRB,5.6512E-02_JPRB/)
+KBO( :,40, 9) = (/&
+&2.6159E-02_JPRB,3.0559E-02_JPRB,3.5279E-02_JPRB,4.0364E-02_JPRB,4.5803E-02_JPRB/)
+KBO( :,41, 9) = (/&
+&2.0762E-02_JPRB,2.4380E-02_JPRB,2.8285E-02_JPRB,3.2514E-02_JPRB,3.7041E-02_JPRB/)
+KBO( :,42, 9) = (/&
+&1.6454E-02_JPRB,1.9426E-02_JPRB,2.2652E-02_JPRB,2.6163E-02_JPRB,2.9929E-02_JPRB/)
+KBO( :,43, 9) = (/&
+&1.2889E-02_JPRB,1.5316E-02_JPRB,1.7969E-02_JPRB,2.0865E-02_JPRB,2.3986E-02_JPRB/)
+KBO( :,44, 9) = (/&
+&1.0025E-02_JPRB,1.2000E-02_JPRB,1.4172E-02_JPRB,1.6553E-02_JPRB,1.9131E-02_JPRB/)
+KBO( :,45, 9) = (/&
+&7.7746E-03_JPRB,9.3784E-03_JPRB,1.1153E-02_JPRB,1.3107E-02_JPRB,1.5232E-02_JPRB/)
+KBO( :,46, 9) = (/&
+&5.9839E-03_JPRB,7.2803E-03_JPRB,8.7236E-03_JPRB,1.0320E-02_JPRB,1.2066E-02_JPRB/)
+KBO( :,47, 9) = (/&
+&4.5469E-03_JPRB,5.5872E-03_JPRB,6.7527E-03_JPRB,8.0490E-03_JPRB,9.4737E-03_JPRB/)
+KBO( :,48, 9) = (/&
+&3.4387E-03_JPRB,4.2707E-03_JPRB,5.2081E-03_JPRB,6.2578E-03_JPRB,7.4170E-03_JPRB/)
+KBO( :,49, 9) = (/&
+&2.5872E-03_JPRB,3.2502E-03_JPRB,4.0014E-03_JPRB,4.8487E-03_JPRB,5.7896E-03_JPRB/)
+KBO( :,50, 9) = (/&
+&1.9484E-03_JPRB,2.4763E-03_JPRB,3.0782E-03_JPRB,3.7619E-03_JPRB,4.5255E-03_JPRB/)
+KBO( :,51, 9) = (/&
+&1.4641E-03_JPRB,1.8833E-03_JPRB,2.3642E-03_JPRB,2.9156E-03_JPRB,3.5343E-03_JPRB/)
+KBO( :,52, 9) = (/&
+&1.0947E-03_JPRB,1.4260E-03_JPRB,1.8092E-03_JPRB,2.2525E-03_JPRB,2.7523E-03_JPRB/)
+KBO( :,53, 9) = (/&
+&8.1385E-04_JPRB,1.0744E-03_JPRB,1.3788E-03_JPRB,1.7335E-03_JPRB,2.1363E-03_JPRB/)
+KBO( :,54, 9) = (/&
+&6.0727E-04_JPRB,8.1227E-04_JPRB,1.0543E-03_JPRB,1.3383E-03_JPRB,1.6634E-03_JPRB/)
+KBO( :,55, 9) = (/&
+&4.5272E-04_JPRB,6.1374E-04_JPRB,8.0589E-04_JPRB,1.0331E-03_JPRB,1.2952E-03_JPRB/)
+KBO( :,56, 9) = (/&
+&3.3583E-04_JPRB,4.6181E-04_JPRB,6.1377E-04_JPRB,7.9508E-04_JPRB,1.0057E-03_JPRB/)
+KBO( :,57, 9) = (/&
+&2.4776E-04_JPRB,3.4590E-04_JPRB,4.6559E-04_JPRB,6.0978E-04_JPRB,7.7861E-04_JPRB/)
+KBO( :,58, 9) = (/&
+&1.8283E-04_JPRB,2.5924E-04_JPRB,3.5338E-04_JPRB,4.6808E-04_JPRB,6.0340E-04_JPRB/)
+KBO( :,59, 9) = (/&
+&1.4394E-04_JPRB,2.0565E-04_JPRB,2.8231E-04_JPRB,3.7641E-04_JPRB,4.8766E-04_JPRB/)
+KBO( :,13,10) = (/&
+&9.3904E+00_JPRB,1.1558E+01_JPRB,1.3845E+01_JPRB,1.6163E+01_JPRB,1.8555E+01_JPRB/)
+KBO( :,14,10) = (/&
+&8.3973E+00_JPRB,1.0270E+01_JPRB,1.2209E+01_JPRB,1.4231E+01_JPRB,1.6403E+01_JPRB/)
+KBO( :,15,10) = (/&
+&7.4227E+00_JPRB,9.0328E+00_JPRB,1.0725E+01_JPRB,1.2539E+01_JPRB,1.4424E+01_JPRB/)
+KBO( :,16,10) = (/&
+&6.5205E+00_JPRB,7.9257E+00_JPRB,9.4310E+00_JPRB,1.1012E+01_JPRB,1.2602E+01_JPRB/)
+KBO( :,17,10) = (/&
+&5.6968E+00_JPRB,6.9236E+00_JPRB,8.2313E+00_JPRB,9.5792E+00_JPRB,1.0956E+01_JPRB/)
+KBO( :,18,10) = (/&
+&4.9471E+00_JPRB,6.0161E+00_JPRB,7.1339E+00_JPRB,8.2948E+00_JPRB,9.4857E+00_JPRB/)
+KBO( :,19,10) = (/&
+&4.2895E+00_JPRB,5.2029E+00_JPRB,6.1642E+00_JPRB,7.1527E+00_JPRB,8.1730E+00_JPRB/)
+KBO( :,20,10) = (/&
+&3.7147E+00_JPRB,4.4929E+00_JPRB,5.3068E+00_JPRB,6.1474E+00_JPRB,7.0078E+00_JPRB/)
+KBO( :,21,10) = (/&
+&3.2024E+00_JPRB,3.8631E+00_JPRB,4.5499E+00_JPRB,5.2596E+00_JPRB,5.9867E+00_JPRB/)
+KBO( :,22,10) = (/&
+&2.7881E+00_JPRB,3.3462E+00_JPRB,3.9291E+00_JPRB,4.5332E+00_JPRB,5.1516E+00_JPRB/)
+KBO( :,23,10) = (/&
+&2.4221E+00_JPRB,2.8934E+00_JPRB,3.3888E+00_JPRB,3.9007E+00_JPRB,4.4296E+00_JPRB/)
+KBO( :,24,10) = (/&
+&2.1012E+00_JPRB,2.5042E+00_JPRB,2.9257E+00_JPRB,3.3605E+00_JPRB,3.8099E+00_JPRB/)
+KBO( :,25,10) = (/&
+&1.8234E+00_JPRB,2.1683E+00_JPRB,2.5234E+00_JPRB,2.8940E+00_JPRB,3.2740E+00_JPRB/)
+KBO( :,26,10) = (/&
+&1.5880E+00_JPRB,1.8773E+00_JPRB,2.1781E+00_JPRB,2.4921E+00_JPRB,2.8182E+00_JPRB/)
+KBO( :,27,10) = (/&
+&1.3795E+00_JPRB,1.6233E+00_JPRB,1.8790E+00_JPRB,2.1463E+00_JPRB,2.4246E+00_JPRB/)
+KBO( :,28,10) = (/&
+&1.1952E+00_JPRB,1.4020E+00_JPRB,1.6204E+00_JPRB,1.8473E+00_JPRB,2.0818E+00_JPRB/)
+KBO( :,29,10) = (/&
+&1.0353E+00_JPRB,1.2126E+00_JPRB,1.3974E+00_JPRB,1.5895E+00_JPRB,1.7854E+00_JPRB/)
+KBO( :,30,10) = (/&
+&8.9710E-01_JPRB,1.0479E+00_JPRB,1.2046E+00_JPRB,1.3665E+00_JPRB,1.5321E+00_JPRB/)
+KBO( :,31,10) = (/&
+&7.7817E-01_JPRB,9.0519E-01_JPRB,1.0386E+00_JPRB,1.1754E+00_JPRB,1.3182E+00_JPRB/)
+KBO( :,32,10) = (/&
+&6.7399E-01_JPRB,7.8251E-01_JPRB,8.9515E-01_JPRB,1.0127E+00_JPRB,1.1369E+00_JPRB/)
+KBO( :,33,10) = (/&
+&5.8405E-01_JPRB,6.7622E-01_JPRB,7.7236E-01_JPRB,8.7403E-01_JPRB,9.7956E-01_JPRB/)
+KBO( :,34,10) = (/&
+&5.0357E-01_JPRB,5.8182E-01_JPRB,6.6452E-01_JPRB,7.5151E-01_JPRB,8.4035E-01_JPRB/)
+KBO( :,35,10) = (/&
+&4.2779E-01_JPRB,4.9440E-01_JPRB,5.6491E-01_JPRB,6.3892E-01_JPRB,7.1333E-01_JPRB/)
+KBO( :,36,10) = (/&
+&3.5777E-01_JPRB,4.1421E-01_JPRB,4.7387E-01_JPRB,5.3617E-01_JPRB,5.9900E-01_JPRB/)
+KBO( :,37,10) = (/&
+&2.9234E-01_JPRB,3.3963E-01_JPRB,3.8973E-01_JPRB,4.4194E-01_JPRB,4.9508E-01_JPRB/)
+KBO( :,38,10) = (/&
+&2.3845E-01_JPRB,2.7804E-01_JPRB,3.2014E-01_JPRB,3.6393E-01_JPRB,4.0887E-01_JPRB/)
+KBO( :,39,10) = (/&
+&1.9449E-01_JPRB,2.2762E-01_JPRB,2.6303E-01_JPRB,2.9987E-01_JPRB,3.3808E-01_JPRB/)
+KBO( :,40,10) = (/&
+&1.5581E-01_JPRB,1.8338E-01_JPRB,2.1298E-01_JPRB,2.4388E-01_JPRB,2.7640E-01_JPRB/)
+KBO( :,41,10) = (/&
+&1.2437E-01_JPRB,1.4728E-01_JPRB,1.7198E-01_JPRB,1.9790E-01_JPRB,2.2561E-01_JPRB/)
+KBO( :,42,10) = (/&
+&9.9114E-02_JPRB,1.1814E-01_JPRB,1.3871E-01_JPRB,1.6049E-01_JPRB,1.8409E-01_JPRB/)
+KBO( :,43,10) = (/&
+&7.8014E-02_JPRB,9.3699E-02_JPRB,1.1072E-01_JPRB,1.2897E-01_JPRB,1.4893E-01_JPRB/)
+KBO( :,44,10) = (/&
+&6.0930E-02_JPRB,7.3813E-02_JPRB,8.7829E-02_JPRB,1.0306E-01_JPRB,1.1990E-01_JPRB/)
+KBO( :,45,10) = (/&
+&4.7439E-02_JPRB,5.7963E-02_JPRB,6.9524E-02_JPRB,8.2179E-02_JPRB,9.6377E-02_JPRB/)
+KBO( :,46,10) = (/&
+&3.6628E-02_JPRB,4.5189E-02_JPRB,5.4663E-02_JPRB,6.5139E-02_JPRB,7.7031E-02_JPRB/)
+KBO( :,47,10) = (/&
+&2.7890E-02_JPRB,3.4787E-02_JPRB,4.2493E-02_JPRB,5.1096E-02_JPRB,6.0965E-02_JPRB/)
+KBO( :,48,10) = (/&
+&2.1119E-02_JPRB,2.6645E-02_JPRB,3.2896E-02_JPRB,3.9921E-02_JPRB,4.8089E-02_JPRB/)
+KBO( :,49,10) = (/&
+&1.5900E-02_JPRB,2.0307E-02_JPRB,2.5351E-02_JPRB,3.1064E-02_JPRB,3.7792E-02_JPRB/)
+KBO( :,50,10) = (/&
+&1.1982E-02_JPRB,1.5486E-02_JPRB,1.9553E-02_JPRB,2.4196E-02_JPRB,2.9727E-02_JPRB/)
+KBO( :,51,10) = (/&
+&9.0056E-03_JPRB,1.1788E-02_JPRB,1.5051E-02_JPRB,1.8815E-02_JPRB,2.3348E-02_JPRB/)
+KBO( :,52,10) = (/&
+&6.7287E-03_JPRB,8.9323E-03_JPRB,1.1543E-02_JPRB,1.4581E-02_JPRB,1.8277E-02_JPRB/)
+KBO( :,53,10) = (/&
+&4.9917E-03_JPRB,6.7318E-03_JPRB,8.8095E-03_JPRB,1.1255E-02_JPRB,1.4250E-02_JPRB/)
+KBO( :,54,10) = (/&
+&3.7166E-03_JPRB,5.0897E-03_JPRB,6.7438E-03_JPRB,8.7155E-03_JPRB,1.1147E-02_JPRB/)
+KBO( :,55,10) = (/&
+&2.7631E-03_JPRB,3.8456E-03_JPRB,5.1593E-03_JPRB,6.7476E-03_JPRB,8.7195E-03_JPRB/)
+KBO( :,56,10) = (/&
+&2.0411E-03_JPRB,2.8905E-03_JPRB,3.9308E-03_JPRB,5.2031E-03_JPRB,6.7949E-03_JPRB/)
+KBO( :,57,10) = (/&
+&1.4978E-03_JPRB,2.1598E-03_JPRB,2.9807E-03_JPRB,3.9948E-03_JPRB,5.2752E-03_JPRB/)
+KBO( :,58,10) = (/&
+&1.0985E-03_JPRB,1.6142E-03_JPRB,2.2613E-03_JPRB,3.0687E-03_JPRB,4.0986E-03_JPRB/)
+KBO( :,59,10) = (/&
+&8.6500E-04_JPRB,1.2833E-03_JPRB,1.8127E-03_JPRB,2.4817E-03_JPRB,3.3443E-03_JPRB/)
+KBO( :,13,11) = (/&
+&1.8372E+01_JPRB,2.2531E+01_JPRB,2.6942E+01_JPRB,3.1721E+01_JPRB,3.6666E+01_JPRB/)
+KBO( :,14,11) = (/&
+&1.6476E+01_JPRB,2.0266E+01_JPRB,2.4375E+01_JPRB,2.8673E+01_JPRB,3.2960E+01_JPRB/)
+KBO( :,15,11) = (/&
+&1.4838E+01_JPRB,1.8258E+01_JPRB,2.1874E+01_JPRB,2.5540E+01_JPRB,2.9299E+01_JPRB/)
+KBO( :,16,11) = (/&
+&1.3322E+01_JPRB,1.6282E+01_JPRB,1.9361E+01_JPRB,2.2553E+01_JPRB,2.5938E+01_JPRB/)
+KBO( :,17,11) = (/&
+&1.1797E+01_JPRB,1.4340E+01_JPRB,1.7022E+01_JPRB,1.9865E+01_JPRB,2.2805E+01_JPRB/)
+KBO( :,18,11) = (/&
+&1.0354E+01_JPRB,1.2576E+01_JPRB,1.4945E+01_JPRB,1.7409E+01_JPRB,1.9880E+01_JPRB/)
+KBO( :,19,11) = (/&
+&9.0365E+00_JPRB,1.0980E+01_JPRB,1.3039E+01_JPRB,1.5152E+01_JPRB,1.7258E+01_JPRB/)
+KBO( :,20,11) = (/&
+&7.8834E+00_JPRB,9.5695E+00_JPRB,1.1327E+01_JPRB,1.3132E+01_JPRB,1.4932E+01_JPRB/)
+KBO( :,21,11) = (/&
+&6.8550E+00_JPRB,8.2970E+00_JPRB,9.8119E+00_JPRB,1.1335E+01_JPRB,1.2856E+01_JPRB/)
+KBO( :,22,11) = (/&
+&6.0199E+00_JPRB,7.2562E+00_JPRB,8.5326E+00_JPRB,9.8104E+00_JPRB,1.1086E+01_JPRB/)
+KBO( :,23,11) = (/&
+&5.2655E+00_JPRB,6.3155E+00_JPRB,7.3813E+00_JPRB,8.4546E+00_JPRB,9.5205E+00_JPRB/)
+KBO( :,24,11) = (/&
+&4.5968E+00_JPRB,5.4765E+00_JPRB,6.3717E+00_JPRB,7.2772E+00_JPRB,8.1752E+00_JPRB/)
+KBO( :,25,11) = (/&
+&4.0046E+00_JPRB,4.7437E+00_JPRB,5.5012E+00_JPRB,6.2582E+00_JPRB,7.0243E+00_JPRB/)
+KBO( :,26,11) = (/&
+&3.4899E+00_JPRB,4.1156E+00_JPRB,4.7544E+00_JPRB,5.3978E+00_JPRB,6.0478E+00_JPRB/)
+KBO( :,27,11) = (/&
+&3.0370E+00_JPRB,3.5704E+00_JPRB,4.1083E+00_JPRB,4.6559E+00_JPRB,5.2026E+00_JPRB/)
+KBO( :,28,11) = (/&
+&2.6441E+00_JPRB,3.0908E+00_JPRB,3.5452E+00_JPRB,4.0092E+00_JPRB,4.4774E+00_JPRB/)
+KBO( :,29,11) = (/&
+&2.2991E+00_JPRB,2.6744E+00_JPRB,3.0609E+00_JPRB,3.4545E+00_JPRB,3.8571E+00_JPRB/)
+KBO( :,30,11) = (/&
+&1.9952E+00_JPRB,2.3130E+00_JPRB,2.6436E+00_JPRB,2.9785E+00_JPRB,3.3224E+00_JPRB/)
+KBO( :,31,11) = (/&
+&1.7303E+00_JPRB,2.0035E+00_JPRB,2.2828E+00_JPRB,2.5698E+00_JPRB,2.8597E+00_JPRB/)
+KBO( :,32,11) = (/&
+&1.5021E+00_JPRB,1.7349E+00_JPRB,1.9723E+00_JPRB,2.2162E+00_JPRB,2.4607E+00_JPRB/)
+KBO( :,33,11) = (/&
+&1.3048E+00_JPRB,1.5022E+00_JPRB,1.7054E+00_JPRB,1.9112E+00_JPRB,2.1255E+00_JPRB/)
+KBO( :,34,11) = (/&
+&1.1267E+00_JPRB,1.2952E+00_JPRB,1.4682E+00_JPRB,1.6457E+00_JPRB,1.8352E+00_JPRB/)
+KBO( :,35,11) = (/&
+&9.5958E-01_JPRB,1.1033E+00_JPRB,1.2514E+00_JPRB,1.4063E+00_JPRB,1.5730E+00_JPRB/)
+KBO( :,36,11) = (/&
+&8.0543E-01_JPRB,9.2728E-01_JPRB,1.0546E+00_JPRB,1.1895E+00_JPRB,1.3346E+00_JPRB/)
+KBO( :,37,11) = (/&
+&6.6117E-01_JPRB,7.6429E-01_JPRB,8.7311E-01_JPRB,9.8956E-01_JPRB,1.1138E+00_JPRB/)
+KBO( :,38,11) = (/&
+&5.4219E-01_JPRB,6.2915E-01_JPRB,7.2220E-01_JPRB,8.2189E-01_JPRB,9.2832E-01_JPRB/)
+KBO( :,39,11) = (/&
+&4.4474E-01_JPRB,5.1851E-01_JPRB,5.9758E-01_JPRB,6.8269E-01_JPRB,7.7379E-01_JPRB/)
+KBO( :,40,11) = (/&
+&3.5874E-01_JPRB,4.2077E-01_JPRB,4.8738E-01_JPRB,5.5930E-01_JPRB,6.3666E-01_JPRB/)
+KBO( :,41,11) = (/&
+&2.8809E-01_JPRB,3.4018E-01_JPRB,3.9623E-01_JPRB,4.5702E-01_JPRB,5.2265E-01_JPRB/)
+KBO( :,42,11) = (/&
+&2.3093E-01_JPRB,2.7453E-01_JPRB,3.2175E-01_JPRB,3.7304E-01_JPRB,4.2866E-01_JPRB/)
+KBO( :,43,11) = (/&
+&1.8286E-01_JPRB,2.1908E-01_JPRB,2.5860E-01_JPRB,3.0169E-01_JPRB,3.4866E-01_JPRB/)
+KBO( :,44,11) = (/&
+&1.4371E-01_JPRB,1.7364E-01_JPRB,2.0655E-01_JPRB,2.4258E-01_JPRB,2.8218E-01_JPRB/)
+KBO( :,45,11) = (/&
+&1.1254E-01_JPRB,1.3724E-01_JPRB,1.6458E-01_JPRB,1.9466E-01_JPRB,2.2800E-01_JPRB/)
+KBO( :,46,11) = (/&
+&8.7419E-02_JPRB,1.0769E-01_JPRB,1.3029E-01_JPRB,1.5534E-01_JPRB,1.8325E-01_JPRB/)
+KBO( :,47,11) = (/&
+&6.6946E-02_JPRB,8.3455E-02_JPRB,1.0198E-01_JPRB,1.2266E-01_JPRB,1.4588E-01_JPRB/)
+KBO( :,48,11) = (/&
+&5.0941E-02_JPRB,6.4338E-02_JPRB,7.9485E-02_JPRB,9.6523E-02_JPRB,1.1573E-01_JPRB/)
+KBO( :,49,11) = (/&
+&3.8506E-02_JPRB,4.9326E-02_JPRB,6.1662E-02_JPRB,7.5682E-02_JPRB,9.1536E-02_JPRB/)
+KBO( :,50,11) = (/&
+&2.9103E-02_JPRB,3.7840E-02_JPRB,4.7868E-02_JPRB,5.9376E-02_JPRB,7.2482E-02_JPRB/)
+KBO( :,51,11) = (/&
+&2.1916E-02_JPRB,2.8951E-02_JPRB,3.7067E-02_JPRB,4.6499E-02_JPRB,5.7317E-02_JPRB/)
+KBO( :,52,11) = (/&
+&1.6392E-02_JPRB,2.2020E-02_JPRB,2.8575E-02_JPRB,3.6268E-02_JPRB,4.5169E-02_JPRB/)
+KBO( :,53,11) = (/&
+&1.2172E-02_JPRB,1.6642E-02_JPRB,2.1908E-02_JPRB,2.8155E-02_JPRB,3.5457E-02_JPRB/)
+KBO( :,54,11) = (/&
+&9.0658E-03_JPRB,1.2613E-02_JPRB,1.6847E-02_JPRB,2.1915E-02_JPRB,2.7906E-02_JPRB/)
+KBO( :,55,11) = (/&
+&6.7444E-03_JPRB,9.5483E-03_JPRB,1.2947E-02_JPRB,1.7041E-02_JPRB,2.1954E-02_JPRB/)
+KBO( :,56,11) = (/&
+&4.9837E-03_JPRB,7.1893E-03_JPRB,9.9031E-03_JPRB,1.3201E-02_JPRB,1.7215E-02_JPRB/)
+KBO( :,57,11) = (/&
+&3.6555E-03_JPRB,5.3797E-03_JPRB,7.5345E-03_JPRB,1.0185E-02_JPRB,1.3448E-02_JPRB/)
+KBO( :,58,11) = (/&
+&2.6798E-03_JPRB,4.0234E-03_JPRB,5.7322E-03_JPRB,7.8591E-03_JPRB,1.0509E-02_JPRB/)
+KBO( :,59,11) = (/&
+&2.1174E-03_JPRB,3.2126E-03_JPRB,4.6178E-03_JPRB,6.3890E-03_JPRB,8.6307E-03_JPRB/)
+KBO( :,13,12) = (/&
+&3.9037E+01_JPRB,4.8595E+01_JPRB,5.8290E+01_JPRB,6.7743E+01_JPRB,7.7175E+01_JPRB/)
+KBO( :,14,12) = (/&
+&3.6731E+01_JPRB,4.5143E+01_JPRB,5.3367E+01_JPRB,6.1735E+01_JPRB,7.0266E+01_JPRB/)
+KBO( :,15,12) = (/&
+&3.3782E+01_JPRB,4.1053E+01_JPRB,4.8465E+01_JPRB,5.6101E+01_JPRB,6.4046E+01_JPRB/)
+KBO( :,16,12) = (/&
+&3.0361E+01_JPRB,3.6837E+01_JPRB,4.3692E+01_JPRB,5.0749E+01_JPRB,5.7770E+01_JPRB/)
+KBO( :,17,12) = (/&
+&2.7181E+01_JPRB,3.3037E+01_JPRB,3.9122E+01_JPRB,4.5236E+01_JPRB,5.1302E+01_JPRB/)
+KBO( :,18,12) = (/&
+&2.4289E+01_JPRB,2.9373E+01_JPRB,3.4573E+01_JPRB,3.9820E+01_JPRB,4.5254E+01_JPRB/)
+KBO( :,19,12) = (/&
+&2.1489E+01_JPRB,2.5832E+01_JPRB,3.0286E+01_JPRB,3.4895E+01_JPRB,3.9728E+01_JPRB/)
+KBO( :,20,12) = (/&
+&1.8889E+01_JPRB,2.2626E+01_JPRB,2.6516E+01_JPRB,3.0573E+01_JPRB,3.4729E+01_JPRB/)
+KBO( :,21,12) = (/&
+&1.6499E+01_JPRB,1.9772E+01_JPRB,2.3169E+01_JPRB,2.6668E+01_JPRB,3.0247E+01_JPRB/)
+KBO( :,22,12) = (/&
+&1.4564E+01_JPRB,1.7397E+01_JPRB,2.0332E+01_JPRB,2.3375E+01_JPRB,2.6482E+01_JPRB/)
+KBO( :,23,12) = (/&
+&1.2811E+01_JPRB,1.5254E+01_JPRB,1.7803E+01_JPRB,2.0436E+01_JPRB,2.3110E+01_JPRB/)
+KBO( :,24,12) = (/&
+&1.1250E+01_JPRB,1.3354E+01_JPRB,1.5549E+01_JPRB,1.7797E+01_JPRB,2.0094E+01_JPRB/)
+KBO( :,25,12) = (/&
+&9.8597E+00_JPRB,1.1670E+01_JPRB,1.3537E+01_JPRB,1.5466E+01_JPRB,1.7423E+01_JPRB/)
+KBO( :,26,12) = (/&
+&8.6447E+00_JPRB,1.0181E+01_JPRB,1.1779E+01_JPRB,1.3417E+01_JPRB,1.5081E+01_JPRB/)
+KBO( :,27,12) = (/&
+&7.5594E+00_JPRB,8.8642E+00_JPRB,1.0226E+01_JPRB,1.1630E+01_JPRB,1.3058E+01_JPRB/)
+KBO( :,28,12) = (/&
+&6.5925E+00_JPRB,7.7161E+00_JPRB,8.8897E+00_JPRB,1.0087E+01_JPRB,1.1327E+01_JPRB/)
+KBO( :,29,12) = (/&
+&5.7565E+00_JPRB,6.7240E+00_JPRB,7.7268E+00_JPRB,8.7632E+00_JPRB,9.8409E+00_JPRB/)
+KBO( :,30,12) = (/&
+&5.0290E+00_JPRB,5.8636E+00_JPRB,6.7247E+00_JPRB,7.6290E+00_JPRB,8.5599E+00_JPRB/)
+KBO( :,31,12) = (/&
+&4.4035E+00_JPRB,5.1182E+00_JPRB,5.8680E+00_JPRB,6.6555E+00_JPRB,7.4665E+00_JPRB/)
+KBO( :,32,12) = (/&
+&3.8578E+00_JPRB,4.4752E+00_JPRB,5.1308E+00_JPRB,5.8151E+00_JPRB,6.5278E+00_JPRB/)
+KBO( :,33,12) = (/&
+&3.3794E+00_JPRB,3.9167E+00_JPRB,4.4904E+00_JPRB,5.0880E+00_JPRB,5.7148E+00_JPRB/)
+KBO( :,34,12) = (/&
+&2.9486E+00_JPRB,3.4193E+00_JPRB,3.9167E+00_JPRB,4.4410E+00_JPRB,4.9898E+00_JPRB/)
+KBO( :,35,12) = (/&
+&2.5384E+00_JPRB,2.9485E+00_JPRB,3.3806E+00_JPRB,3.8382E+00_JPRB,4.3138E+00_JPRB/)
+KBO( :,36,12) = (/&
+&2.1524E+00_JPRB,2.5062E+00_JPRB,2.8802E+00_JPRB,3.2776E+00_JPRB,3.6933E+00_JPRB/)
+KBO( :,37,12) = (/&
+&1.7833E+00_JPRB,2.0847E+00_JPRB,2.4072E+00_JPRB,2.7505E+00_JPRB,3.1124E+00_JPRB/)
+KBO( :,38,12) = (/&
+&1.4749E+00_JPRB,1.7326E+00_JPRB,2.0108E+00_JPRB,2.3067E+00_JPRB,2.6244E+00_JPRB/)
+KBO( :,39,12) = (/&
+&1.2194E+00_JPRB,1.4403E+00_JPRB,1.6807E+00_JPRB,1.9373E+00_JPRB,2.2164E+00_JPRB/)
+KBO( :,40,12) = (/&
+&9.9010E-01_JPRB,1.1776E+00_JPRB,1.3838E+00_JPRB,1.6055E+00_JPRB,1.8489E+00_JPRB/)
+KBO( :,41,12) = (/&
+&8.0150E-01_JPRB,9.6002E-01_JPRB,1.1360E+00_JPRB,1.3281E+00_JPRB,1.5396E+00_JPRB/)
+KBO( :,42,12) = (/&
+&6.4778E-01_JPRB,7.8194E-01_JPRB,9.3223E-01_JPRB,1.0980E+00_JPRB,1.2824E+00_JPRB/)
+KBO( :,43,12) = (/&
+&5.1676E-01_JPRB,6.2955E-01_JPRB,7.5710E-01_JPRB,8.9908E-01_JPRB,1.0583E+00_JPRB/)
+KBO( :,44,12) = (/&
+&4.0901E-01_JPRB,5.0320E-01_JPRB,6.1071E-01_JPRB,7.3181E-01_JPRB,8.6848E-01_JPRB/)
+KBO( :,45,12) = (/&
+&3.2265E-01_JPRB,4.0131E-01_JPRB,4.9147E-01_JPRB,5.9412E-01_JPRB,7.1124E-01_JPRB/)
+KBO( :,46,12) = (/&
+&2.5210E-01_JPRB,3.1747E-01_JPRB,3.9284E-01_JPRB,4.7937E-01_JPRB,5.7886E-01_JPRB/)
+KBO( :,47,12) = (/&
+&1.9387E-01_JPRB,2.4750E-01_JPRB,3.1014E-01_JPRB,3.8262E-01_JPRB,4.6634E-01_JPRB/)
+KBO( :,48,12) = (/&
+&1.4828E-01_JPRB,1.9192E-01_JPRB,2.4351E-01_JPRB,3.0403E-01_JPRB,3.7442E-01_JPRB/)
+KBO( :,49,12) = (/&
+&1.1268E-01_JPRB,1.4796E-01_JPRB,1.9021E-01_JPRB,2.4026E-01_JPRB,2.9934E-01_JPRB/)
+KBO( :,50,12) = (/&
+&8.5692E-02_JPRB,1.1419E-01_JPRB,1.4876E-01_JPRB,1.9007E-01_JPRB,2.3948E-01_JPRB/)
+KBO( :,51,12) = (/&
+&6.4968E-02_JPRB,8.7898E-02_JPRB,1.1604E-01_JPRB,1.5016E-01_JPRB,1.9137E-01_JPRB/)
+KBO( :,52,12) = (/&
+&4.8913E-02_JPRB,6.7280E-02_JPRB,9.0117E-02_JPRB,1.1814E-01_JPRB,1.5238E-01_JPRB/)
+KBO( :,53,12) = (/&
+&3.6537E-02_JPRB,5.1125E-02_JPRB,6.9609E-02_JPRB,9.2472E-02_JPRB,1.2076E-01_JPRB/)
+KBO( :,54,12) = (/&
+&2.7389E-02_JPRB,3.8999E-02_JPRB,5.3932E-02_JPRB,7.2676E-02_JPRB,9.6049E-02_JPRB/)
+KBO( :,55,12) = (/&
+&2.0487E-02_JPRB,2.9701E-02_JPRB,4.1725E-02_JPRB,5.7075E-02_JPRB,7.6390E-02_JPRB/)
+KBO( :,56,12) = (/&
+&1.5211E-02_JPRB,2.2473E-02_JPRB,3.2096E-02_JPRB,4.4552E-02_JPRB,6.0534E-02_JPRB/)
+KBO( :,57,12) = (/&
+&1.1206E-02_JPRB,1.6892E-02_JPRB,2.4543E-02_JPRB,3.4596E-02_JPRB,4.7689E-02_JPRB/)
+KBO( :,58,12) = (/&
+&8.2520E-03_JPRB,1.2686E-02_JPRB,1.8758E-02_JPRB,2.6873E-02_JPRB,3.7588E-02_JPRB/)
+KBO( :,59,12) = (/&
+&6.5700E-03_JPRB,1.0221E-02_JPRB,1.5297E-02_JPRB,2.2161E-02_JPRB,3.1343E-02_JPRB/)
+KBO( :,13,13) = (/&
+&9.2129E+01_JPRB,1.1302E+02_JPRB,1.3488E+02_JPRB,1.5732E+02_JPRB,1.8023E+02_JPRB/)
+KBO( :,14,13) = (/&
+&8.7183E+01_JPRB,1.0718E+02_JPRB,1.2873E+02_JPRB,1.5116E+02_JPRB,1.7346E+02_JPRB/)
+KBO( :,15,13) = (/&
+&8.2328E+01_JPRB,1.0157E+02_JPRB,1.2222E+02_JPRB,1.4315E+02_JPRB,1.6347E+02_JPRB/)
+KBO( :,16,13) = (/&
+&7.8040E+01_JPRB,9.6014E+01_JPRB,1.1471E+02_JPRB,1.3306E+02_JPRB,1.5181E+02_JPRB/)
+KBO( :,17,13) = (/&
+&7.3174E+01_JPRB,8.9440E+01_JPRB,1.0586E+02_JPRB,1.2255E+02_JPRB,1.3976E+02_JPRB/)
+KBO( :,18,13) = (/&
+&6.7948E+01_JPRB,8.2226E+01_JPRB,9.6794E+01_JPRB,1.1202E+02_JPRB,1.2767E+02_JPRB/)
+KBO( :,19,13) = (/&
+&6.1809E+01_JPRB,7.4613E+01_JPRB,8.7919E+01_JPRB,1.0172E+02_JPRB,1.1585E+02_JPRB/)
+KBO( :,20,13) = (/&
+&5.5733E+01_JPRB,6.7276E+01_JPRB,7.9378E+01_JPRB,9.1765E+01_JPRB,1.0432E+02_JPRB/)
+KBO( :,21,13) = (/&
+&5.0119E+01_JPRB,6.0399E+01_JPRB,7.1023E+01_JPRB,8.1955E+01_JPRB,9.3098E+01_JPRB/)
+KBO( :,22,13) = (/&
+&4.5387E+01_JPRB,5.4362E+01_JPRB,6.3623E+01_JPRB,7.3263E+01_JPRB,8.3176E+01_JPRB/)
+KBO( :,23,13) = (/&
+&4.0785E+01_JPRB,4.8586E+01_JPRB,5.6740E+01_JPRB,6.5256E+01_JPRB,7.4004E+01_JPRB/)
+KBO( :,24,13) = (/&
+&3.6418E+01_JPRB,4.3297E+01_JPRB,5.0491E+01_JPRB,5.7972E+01_JPRB,6.5666E+01_JPRB/)
+KBO( :,25,13) = (/&
+&3.2482E+01_JPRB,3.8561E+01_JPRB,4.4879E+01_JPRB,5.1407E+01_JPRB,5.8182E+01_JPRB/)
+KBO( :,26,13) = (/&
+&2.9006E+01_JPRB,3.4335E+01_JPRB,3.9885E+01_JPRB,4.5662E+01_JPRB,5.1599E+01_JPRB/)
+KBO( :,27,13) = (/&
+&2.5837E+01_JPRB,3.0498E+01_JPRB,3.5383E+01_JPRB,4.0444E+01_JPRB,4.5658E+01_JPRB/)
+KBO( :,28,13) = (/&
+&2.2962E+01_JPRB,2.7037E+01_JPRB,3.1320E+01_JPRB,3.5758E+01_JPRB,4.0290E+01_JPRB/)
+KBO( :,29,13) = (/&
+&2.0397E+01_JPRB,2.3995E+01_JPRB,2.7731E+01_JPRB,3.1631E+01_JPRB,3.5578E+01_JPRB/)
+KBO( :,30,13) = (/&
+&1.8112E+01_JPRB,2.1250E+01_JPRB,2.4540E+01_JPRB,2.7936E+01_JPRB,3.1421E+01_JPRB/)
+KBO( :,31,13) = (/&
+&1.6067E+01_JPRB,1.8811E+01_JPRB,2.1703E+01_JPRB,2.4693E+01_JPRB,2.7776E+01_JPRB/)
+KBO( :,32,13) = (/&
+&1.4258E+01_JPRB,1.6681E+01_JPRB,1.9216E+01_JPRB,2.1851E+01_JPRB,2.4609E+01_JPRB/)
+KBO( :,33,13) = (/&
+&1.2678E+01_JPRB,1.4812E+01_JPRB,1.7059E+01_JPRB,1.9407E+01_JPRB,2.1877E+01_JPRB/)
+KBO( :,34,13) = (/&
+&1.1234E+01_JPRB,1.3124E+01_JPRB,1.5116E+01_JPRB,1.7220E+01_JPRB,1.9477E+01_JPRB/)
+KBO( :,35,13) = (/&
+&9.8183E+00_JPRB,1.1494E+01_JPRB,1.3264E+01_JPRB,1.5165E+01_JPRB,1.7217E+01_JPRB/)
+KBO( :,36,13) = (/&
+&8.4512E+00_JPRB,9.9248E+00_JPRB,1.1505E+01_JPRB,1.3215E+01_JPRB,1.5066E+01_JPRB/)
+KBO( :,37,13) = (/&
+&7.1046E+00_JPRB,8.3927E+00_JPRB,9.7872E+00_JPRB,1.1310E+01_JPRB,1.2976E+01_JPRB/)
+KBO( :,38,13) = (/&
+&5.9713E+00_JPRB,7.0990E+00_JPRB,8.3334E+00_JPRB,9.6940E+00_JPRB,1.1182E+01_JPRB/)
+KBO( :,39,13) = (/&
+&5.0257E+00_JPRB,6.0152E+00_JPRB,7.1078E+00_JPRB,8.3261E+00_JPRB,9.6615E+00_JPRB/)
+KBO( :,40,13) = (/&
+&4.1523E+00_JPRB,5.0116E+00_JPRB,5.9715E+00_JPRB,7.0484E+00_JPRB,8.2344E+00_JPRB/)
+KBO( :,41,13) = (/&
+&3.4206E+00_JPRB,4.1640E+00_JPRB,5.0022E+00_JPRB,5.9574E+00_JPRB,7.0137E+00_JPRB/)
+KBO( :,42,13) = (/&
+&2.8151E+00_JPRB,3.4582E+00_JPRB,4.1916E+00_JPRB,5.0330E+00_JPRB,5.9745E+00_JPRB/)
+KBO( :,43,13) = (/&
+&2.2836E+00_JPRB,2.8346E+00_JPRB,3.4702E+00_JPRB,4.2076E+00_JPRB,5.0392E+00_JPRB/)
+KBO( :,44,13) = (/&
+&1.8358E+00_JPRB,2.3065E+00_JPRB,2.8540E+00_JPRB,3.4947E+00_JPRB,4.2292E+00_JPRB/)
+KBO( :,45,13) = (/&
+&1.4699E+00_JPRB,1.8708E+00_JPRB,2.3414E+00_JPRB,2.8971E+00_JPRB,3.5454E+00_JPRB/)
+KBO( :,46,13) = (/&
+&1.1650E+00_JPRB,1.5043E+00_JPRB,1.9061E+00_JPRB,2.3856E+00_JPRB,2.9537E+00_JPRB/)
+KBO( :,47,13) = (/&
+&9.0755E-01_JPRB,1.1912E+00_JPRB,1.5311E+00_JPRB,1.9396E+00_JPRB,2.4325E+00_JPRB/)
+KBO( :,48,13) = (/&
+&7.0184E-01_JPRB,9.3709E-01_JPRB,1.2239E+00_JPRB,1.5710E+00_JPRB,1.9958E+00_JPRB/)
+KBO( :,49,13) = (/&
+&5.3970E-01_JPRB,7.3243E-01_JPRB,9.7194E-01_JPRB,1.2677E+00_JPRB,1.6307E+00_JPRB/)
+KBO( :,50,13) = (/&
+&4.1584E-01_JPRB,5.7380E-01_JPRB,7.7303E-01_JPRB,1.0235E+00_JPRB,1.3360E+00_JPRB/)
+KBO( :,51,13) = (/&
+&3.1970E-01_JPRB,4.4857E-01_JPRB,6.1406E-01_JPRB,8.2493E-01_JPRB,1.0932E+00_JPRB/)
+KBO( :,52,13) = (/&
+&2.4403E-01_JPRB,3.4872E-01_JPRB,4.8565E-01_JPRB,6.6228E-01_JPRB,8.9043E-01_JPRB/)
+KBO( :,53,13) = (/&
+&1.8461E-01_JPRB,2.6942E-01_JPRB,3.8200E-01_JPRB,5.2938E-01_JPRB,7.2205E-01_JPRB/)
+KBO( :,54,13) = (/&
+&1.4016E-01_JPRB,2.0879E-01_JPRB,3.0199E-01_JPRB,4.2537E-01_JPRB,5.8863E-01_JPRB/)
+KBO( :,55,13) = (/&
+&1.0627E-01_JPRB,1.6160E-01_JPRB,2.3840E-01_JPRB,3.4179E-01_JPRB,4.8036E-01_JPRB/)
+KBO( :,56,13) = (/&
+&7.9975E-02_JPRB,1.2430E-01_JPRB,1.8699E-01_JPRB,2.7356E-01_JPRB,3.9081E-01_JPRB/)
+KBO( :,57,13) = (/&
+&5.9672E-02_JPRB,9.4998E-02_JPRB,1.4581E-01_JPRB,2.1774E-01_JPRB,3.1655E-01_JPRB/)
+KBO( :,58,13) = (/&
+&4.4475E-02_JPRB,7.2566E-02_JPRB,1.1372E-01_JPRB,1.7325E-01_JPRB,2.5698E-01_JPRB/)
+KBO( :,59,13) = (/&
+&3.6215E-02_JPRB,6.0132E-02_JPRB,9.5691E-02_JPRB,1.4806E-01_JPRB,2.2323E-01_JPRB/)
+KBO( :,13,14) = (/&
+&2.6336E+02_JPRB,3.2548E+02_JPRB,3.9074E+02_JPRB,4.5756E+02_JPRB,5.2579E+02_JPRB/)
+KBO( :,14,14) = (/&
+&2.7039E+02_JPRB,3.3171E+02_JPRB,3.9551E+02_JPRB,4.6127E+02_JPRB,5.2944E+02_JPRB/)
+KBO( :,15,14) = (/&
+&2.7394E+02_JPRB,3.3456E+02_JPRB,3.9772E+02_JPRB,4.6386E+02_JPRB,5.3259E+02_JPRB/)
+KBO( :,16,14) = (/&
+&2.7489E+02_JPRB,3.3472E+02_JPRB,3.9868E+02_JPRB,4.6474E+02_JPRB,5.3170E+02_JPRB/)
+KBO( :,17,14) = (/&
+&2.7361E+02_JPRB,3.3269E+02_JPRB,3.9532E+02_JPRB,4.5778E+02_JPRB,5.2000E+02_JPRB/)
+KBO( :,18,14) = (/&
+&2.6867E+02_JPRB,3.2519E+02_JPRB,3.8389E+02_JPRB,4.4282E+02_JPRB,5.0150E+02_JPRB/)
+KBO( :,19,14) = (/&
+&2.5965E+02_JPRB,3.1265E+02_JPRB,3.6765E+02_JPRB,4.2321E+02_JPRB,4.7874E+02_JPRB/)
+KBO( :,20,14) = (/&
+&2.4734E+02_JPRB,2.9762E+02_JPRB,3.4946E+02_JPRB,4.0232E+02_JPRB,4.5540E+02_JPRB/)
+KBO( :,21,14) = (/&
+&2.3283E+02_JPRB,2.7966E+02_JPRB,3.2877E+02_JPRB,3.7834E+02_JPRB,4.2789E+02_JPRB/)
+KBO( :,22,14) = (/&
+&2.2036E+02_JPRB,2.6406E+02_JPRB,3.0915E+02_JPRB,3.5433E+02_JPRB,3.9946E+02_JPRB/)
+KBO( :,23,14) = (/&
+&2.0698E+02_JPRB,2.4687E+02_JPRB,2.8731E+02_JPRB,3.2870E+02_JPRB,3.7050E+02_JPRB/)
+KBO( :,24,14) = (/&
+&1.9330E+02_JPRB,2.2881E+02_JPRB,2.6520E+02_JPRB,3.0278E+02_JPRB,3.4148E+02_JPRB/)
+KBO( :,25,14) = (/&
+&1.7915E+02_JPRB,2.1082E+02_JPRB,2.4386E+02_JPRB,2.7843E+02_JPRB,3.1413E+02_JPRB/)
+KBO( :,26,14) = (/&
+&1.6500E+02_JPRB,1.9389E+02_JPRB,2.2412E+02_JPRB,2.5557E+02_JPRB,2.8754E+02_JPRB/)
+KBO( :,27,14) = (/&
+&1.5126E+02_JPRB,1.7765E+02_JPRB,2.0524E+02_JPRB,2.3351E+02_JPRB,2.6284E+02_JPRB/)
+KBO( :,28,14) = (/&
+&1.3836E+02_JPRB,1.6228E+02_JPRB,1.8728E+02_JPRB,2.1350E+02_JPRB,2.4088E+02_JPRB/)
+KBO( :,29,14) = (/&
+&1.2669E+02_JPRB,1.4825E+02_JPRB,1.7120E+02_JPRB,1.9571E+02_JPRB,2.2144E+02_JPRB/)
+KBO( :,30,14) = (/&
+&1.1586E+02_JPRB,1.3560E+02_JPRB,1.5706E+02_JPRB,1.7985E+02_JPRB,2.0425E+02_JPRB/)
+KBO( :,31,14) = (/&
+&1.0606E+02_JPRB,1.2445E+02_JPRB,1.4457E+02_JPRB,1.6605E+02_JPRB,1.8909E+02_JPRB/)
+KBO( :,32,14) = (/&
+&9.7506E+01_JPRB,1.1472E+02_JPRB,1.3364E+02_JPRB,1.5393E+02_JPRB,1.7576E+02_JPRB/)
+KBO( :,33,14) = (/&
+&9.0128E+01_JPRB,1.0634E+02_JPRB,1.2404E+02_JPRB,1.4330E+02_JPRB,1.6431E+02_JPRB/)
+KBO( :,34,14) = (/&
+&8.3269E+01_JPRB,9.8432E+01_JPRB,1.1521E+02_JPRB,1.3353E+02_JPRB,1.5390E+02_JPRB/)
+KBO( :,35,14) = (/&
+&7.5995E+01_JPRB,9.0208E+01_JPRB,1.0603E+02_JPRB,1.2357E+02_JPRB,1.4330E+02_JPRB/)
+KBO( :,36,14) = (/&
+&6.8313E+01_JPRB,8.1602E+01_JPRB,9.6446E+01_JPRB,1.1317E+02_JPRB,1.3204E+02_JPRB/)
+KBO( :,37,14) = (/&
+&5.9886E+01_JPRB,7.2145E+01_JPRB,8.5923E+01_JPRB,1.0161E+02_JPRB,1.1943E+02_JPRB/)
+KBO( :,38,14) = (/&
+&5.2518E+01_JPRB,6.3836E+01_JPRB,7.6674E+01_JPRB,9.1446E+01_JPRB,1.0826E+02_JPRB/)
+KBO( :,39,14) = (/&
+&4.6141E+01_JPRB,5.6624E+01_JPRB,6.8640E+01_JPRB,8.2585E+01_JPRB,9.8545E+01_JPRB/)
+KBO( :,40,14) = (/&
+&3.9743E+01_JPRB,4.9296E+01_JPRB,6.0431E+01_JPRB,7.3425E+01_JPRB,8.8431E+01_JPRB/)
+KBO( :,41,14) = (/&
+&3.4132E+01_JPRB,4.2840E+01_JPRB,5.3118E+01_JPRB,6.5214E+01_JPRB,7.9338E+01_JPRB/)
+KBO( :,42,14) = (/&
+&2.9302E+01_JPRB,3.7264E+01_JPRB,4.6737E+01_JPRB,5.8014E+01_JPRB,7.1287E+01_JPRB/)
+KBO( :,43,14) = (/&
+&2.4764E+01_JPRB,3.1960E+01_JPRB,4.0612E+01_JPRB,5.1039E+01_JPRB,6.3433E+01_JPRB/)
+KBO( :,44,14) = (/&
+&2.0724E+01_JPRB,2.7192E+01_JPRB,3.5067E+01_JPRB,4.4640E+01_JPRB,5.6164E+01_JPRB/)
+KBO( :,45,14) = (/&
+&1.7302E+01_JPRB,2.3086E+01_JPRB,3.0232E+01_JPRB,3.8995E+01_JPRB,4.9699E+01_JPRB/)
+KBO( :,46,14) = (/&
+&1.4294E+01_JPRB,1.9412E+01_JPRB,2.5856E+01_JPRB,3.3850E+01_JPRB,4.3695E+01_JPRB/)
+KBO( :,47,14) = (/&
+&1.1576E+01_JPRB,1.6045E+01_JPRB,2.1765E+01_JPRB,2.8969E+01_JPRB,3.7957E+01_JPRB/)
+KBO( :,48,14) = (/&
+&9.3047E+00_JPRB,1.3187E+01_JPRB,1.8238E+01_JPRB,2.4704E+01_JPRB,3.2846E+01_JPRB/)
+KBO( :,49,14) = (/&
+&7.4233E+00_JPRB,1.0766E+01_JPRB,1.5205E+01_JPRB,2.0973E+01_JPRB,2.8303E+01_JPRB/)
+KBO( :,50,14) = (/&
+&5.9319E+00_JPRB,8.8036E+00_JPRB,1.2699E+01_JPRB,1.7857E+01_JPRB,2.4492E+01_JPRB/)
+KBO( :,51,14) = (/&
+&4.7353E+00_JPRB,7.1869E+00_JPRB,1.0601E+01_JPRB,1.5199E+01_JPRB,2.1205E+01_JPRB/)
+KBO( :,52,14) = (/&
+&3.7469E+00_JPRB,5.8275E+00_JPRB,8.7938E+00_JPRB,1.2866E+01_JPRB,1.8302E+01_JPRB/)
+KBO( :,53,14) = (/&
+&2.9368E+00_JPRB,4.6957E+00_JPRB,7.2478E+00_JPRB,1.0838E+01_JPRB,1.5721E+01_JPRB/)
+KBO( :,54,14) = (/&
+&2.3156E+00_JPRB,3.8057E+00_JPRB,6.0167E+00_JPRB,9.1925E+00_JPRB,1.3590E+01_JPRB/)
+KBO( :,55,14) = (/&
+&1.8252E+00_JPRB,3.0811E+00_JPRB,5.0017E+00_JPRB,7.8029E+00_JPRB,1.1764E+01_JPRB/)
+KBO( :,56,14) = (/&
+&1.4272E+00_JPRB,2.4767E+00_JPRB,4.1376E+00_JPRB,6.5946E+00_JPRB,1.0136E+01_JPRB/)
+KBO( :,57,14) = (/&
+&1.1086E+00_JPRB,1.9781E+00_JPRB,3.3958E+00_JPRB,5.5471E+00_JPRB,8.7031E+00_JPRB/)
+KBO( :,58,14) = (/&
+&8.6140E-01_JPRB,1.5824E+00_JPRB,2.7911E+00_JPRB,4.6768E+00_JPRB,7.4888E+00_JPRB/)
+KBO( :,59,14) = (/&
+&7.4828E-01_JPRB,1.4056E+00_JPRB,2.5265E+00_JPRB,4.3052E+00_JPRB,6.9802E+00_JPRB/)
+KBO( :,13,15) = (/&
+&1.0111E+03_JPRB,1.2570E+03_JPRB,1.4901E+03_JPRB,1.7375E+03_JPRB,1.9647E+03_JPRB/)
+KBO( :,14,15) = (/&
+&1.0798E+03_JPRB,1.3354E+03_JPRB,1.5807E+03_JPRB,1.8253E+03_JPRB,2.0644E+03_JPRB/)
+KBO( :,15,15) = (/&
+&1.1550E+03_JPRB,1.4096E+03_JPRB,1.6671E+03_JPRB,1.9146E+03_JPRB,2.1680E+03_JPRB/)
+KBO( :,16,15) = (/&
+&1.2133E+03_JPRB,1.4796E+03_JPRB,1.7458E+03_JPRB,1.9980E+03_JPRB,2.2730E+03_JPRB/)
+KBO( :,17,15) = (/&
+&1.2650E+03_JPRB,1.5359E+03_JPRB,1.8049E+03_JPRB,2.0803E+03_JPRB,2.3678E+03_JPRB/)
+KBO( :,18,15) = (/&
+&1.3114E+03_JPRB,1.5935E+03_JPRB,1.8807E+03_JPRB,2.1759E+03_JPRB,2.4722E+03_JPRB/)
+KBO( :,19,15) = (/&
+&1.3601E+03_JPRB,1.6562E+03_JPRB,1.9621E+03_JPRB,2.2640E+03_JPRB,2.5731E+03_JPRB/)
+KBO( :,20,15) = (/&
+&1.4219E+03_JPRB,1.7257E+03_JPRB,2.0357E+03_JPRB,2.3424E+03_JPRB,2.6494E+03_JPRB/)
+KBO( :,21,15) = (/&
+&1.4797E+03_JPRB,1.7824E+03_JPRB,2.0872E+03_JPRB,2.4001E+03_JPRB,2.7105E+03_JPRB/)
+KBO( :,22,15) = (/&
+&1.5335E+03_JPRB,1.8378E+03_JPRB,2.1448E+03_JPRB,2.4560E+03_JPRB,2.7714E+03_JPRB/)
+KBO( :,23,15) = (/&
+&1.5773E+03_JPRB,1.8793E+03_JPRB,2.1836E+03_JPRB,2.4946E+03_JPRB,2.8114E+03_JPRB/)
+KBO( :,24,15) = (/&
+&1.6080E+03_JPRB,1.9047E+03_JPRB,2.2086E+03_JPRB,2.5288E+03_JPRB,2.8346E+03_JPRB/)
+KBO( :,25,15) = (/&
+&1.6263E+03_JPRB,1.9189E+03_JPRB,2.2269E+03_JPRB,2.5372E+03_JPRB,2.8437E+03_JPRB/)
+KBO( :,26,15) = (/&
+&1.6402E+03_JPRB,1.9311E+03_JPRB,2.2342E+03_JPRB,2.5429E+03_JPRB,2.8526E+03_JPRB/)
+KBO( :,27,15) = (/&
+&1.6484E+03_JPRB,1.9393E+03_JPRB,2.2378E+03_JPRB,2.5479E+03_JPRB,2.8584E+03_JPRB/)
+KBO( :,28,15) = (/&
+&1.6552E+03_JPRB,1.9438E+03_JPRB,2.2426E+03_JPRB,2.5488E+03_JPRB,2.8513E+03_JPRB/)
+KBO( :,29,15) = (/&
+&1.6623E+03_JPRB,1.9469E+03_JPRB,2.2435E+03_JPRB,2.5469E+03_JPRB,2.8487E+03_JPRB/)
+KBO( :,30,15) = (/&
+&1.6645E+03_JPRB,1.9461E+03_JPRB,2.2408E+03_JPRB,2.5383E+03_JPRB,2.8471E+03_JPRB/)
+KBO( :,31,15) = (/&
+&1.6666E+03_JPRB,1.9464E+03_JPRB,2.2424E+03_JPRB,2.5437E+03_JPRB,2.8541E+03_JPRB/)
+KBO( :,32,15) = (/&
+&1.6715E+03_JPRB,1.9532E+03_JPRB,2.2512E+03_JPRB,2.5534E+03_JPRB,2.8676E+03_JPRB/)
+KBO( :,33,15) = (/&
+&1.6819E+03_JPRB,1.9666E+03_JPRB,2.2688E+03_JPRB,2.5748E+03_JPRB,2.8918E+03_JPRB/)
+KBO( :,34,15) = (/&
+&1.6895E+03_JPRB,1.9778E+03_JPRB,2.2816E+03_JPRB,2.5925E+03_JPRB,2.9158E+03_JPRB/)
+KBO( :,35,15) = (/&
+&1.6762E+03_JPRB,1.9659E+03_JPRB,2.2723E+03_JPRB,2.5875E+03_JPRB,2.9156E+03_JPRB/)
+KBO( :,36,15) = (/&
+&1.6393E+03_JPRB,1.9297E+03_JPRB,2.2372E+03_JPRB,2.5554E+03_JPRB,2.8869E+03_JPRB/)
+KBO( :,37,15) = (/&
+&1.5657E+03_JPRB,1.8547E+03_JPRB,2.1621E+03_JPRB,2.4812E+03_JPRB,2.8134E+03_JPRB/)
+KBO( :,38,15) = (/&
+&1.4959E+03_JPRB,1.7834E+03_JPRB,2.0905E+03_JPRB,2.4085E+03_JPRB,2.7423E+03_JPRB/)
+KBO( :,39,15) = (/&
+&1.4312E+03_JPRB,1.7180E+03_JPRB,2.0231E+03_JPRB,2.3408E+03_JPRB,2.6756E+03_JPRB/)
+KBO( :,40,15) = (/&
+&1.3437E+03_JPRB,1.6273E+03_JPRB,1.9282E+03_JPRB,2.2440E+03_JPRB,2.5841E+03_JPRB/)
+KBO( :,41,15) = (/&
+&1.2581E+03_JPRB,1.5370E+03_JPRB,1.8334E+03_JPRB,2.1461E+03_JPRB,2.4843E+03_JPRB/)
+KBO( :,42,15) = (/&
+&1.1774E+03_JPRB,1.4499E+03_JPRB,1.7425E+03_JPRB,2.0516E+03_JPRB,2.3873E+03_JPRB/)
+KBO( :,43,15) = (/&
+&1.0861E+03_JPRB,1.3512E+03_JPRB,1.6377E+03_JPRB,1.9415E+03_JPRB,2.2734E+03_JPRB/)
+KBO( :,44,15) = (/&
+&9.9323E+02_JPRB,1.2501E+03_JPRB,1.5289E+03_JPRB,1.8275E+03_JPRB,2.1544E+03_JPRB/)
+KBO( :,45,15) = (/&
+&9.0550E+02_JPRB,1.1536E+03_JPRB,1.4239E+03_JPRB,1.7214E+03_JPRB,2.0382E+03_JPRB/)
+KBO( :,46,15) = (/&
+&8.1702E+02_JPRB,1.0558E+03_JPRB,1.3173E+03_JPRB,1.6071E+03_JPRB,1.9180E+03_JPRB/)
+KBO( :,47,15) = (/&
+&7.2488E+02_JPRB,9.5181E+02_JPRB,1.2036E+03_JPRB,1.4836E+03_JPRB,1.7874E+03_JPRB/)
+KBO( :,48,15) = (/&
+&6.3986E+02_JPRB,8.5318E+02_JPRB,1.0938E+03_JPRB,1.3648E+03_JPRB,1.6602E+03_JPRB/)
+KBO( :,49,15) = (/&
+&5.5978E+02_JPRB,7.6064E+02_JPRB,9.8918E+02_JPRB,1.2514E+03_JPRB,1.5371E+03_JPRB/)
+KBO( :,50,15) = (/&
+&4.9043E+02_JPRB,6.7832E+02_JPRB,8.9646E+02_JPRB,1.1489E+03_JPRB,1.4252E+03_JPRB/)
+KBO( :,51,15) = (/&
+&4.2854E+02_JPRB,6.0344E+02_JPRB,8.1294E+02_JPRB,1.0522E+03_JPRB,1.3193E+03_JPRB/)
+KBO( :,52,15) = (/&
+&3.7247E+02_JPRB,5.3364E+02_JPRB,7.3121E+02_JPRB,9.5966E+02_JPRB,1.2181E+03_JPRB/)
+KBO( :,53,15) = (/&
+&3.2147E+02_JPRB,4.6899E+02_JPRB,6.5393E+02_JPRB,8.7133E+02_JPRB,1.1199E+03_JPRB/)
+KBO( :,54,15) = (/&
+&2.7925E+02_JPRB,4.1444E+02_JPRB,5.8692E+02_JPRB,7.9382E+02_JPRB,1.0327E+03_JPRB/)
+KBO( :,55,15) = (/&
+&2.4236E+02_JPRB,3.6648E+02_JPRB,5.2661E+02_JPRB,7.2283E+02_JPRB,9.5269E+02_JPRB/)
+KBO( :,56,15) = (/&
+&2.0878E+02_JPRB,3.2240E+02_JPRB,4.7042E+02_JPRB,6.5558E+02_JPRB,8.7457E+02_JPRB/)
+KBO( :,57,15) = (/&
+&1.7832E+02_JPRB,2.8217E+02_JPRB,4.1844E+02_JPRB,5.9173E+02_JPRB,8.0081E+02_JPRB/)
+KBO( :,58,15) = (/&
+&1.5222E+02_JPRB,2.4706E+02_JPRB,3.7269E+02_JPRB,5.3459E+02_JPRB,7.3370E+02_JPRB/)
+KBO( :,59,15) = (/&
+&1.4227E+02_JPRB,2.3374E+02_JPRB,3.5521E+02_JPRB,5.1259E+02_JPRB,7.0748E+02_JPRB/)
+KBO( :,13,16) = (/&
+&3.6681E+03_JPRB,4.4146E+03_JPRB,5.0601E+03_JPRB,5.8217E+03_JPRB,6.4602E+03_JPRB/)
+KBO( :,14,16) = (/&
+&4.1383E+03_JPRB,5.0055E+03_JPRB,5.7969E+03_JPRB,6.5815E+03_JPRB,7.3466E+03_JPRB/)
+KBO( :,15,16) = (/&
+&4.7877E+03_JPRB,5.7010E+03_JPRB,6.6308E+03_JPRB,7.5076E+03_JPRB,8.4346E+03_JPRB/)
+KBO( :,16,16) = (/&
+&5.4281E+03_JPRB,6.5150E+03_JPRB,7.5529E+03_JPRB,8.5202E+03_JPRB,9.5967E+03_JPRB/)
+KBO( :,17,16) = (/&
+&6.1845E+03_JPRB,7.4144E+03_JPRB,8.5274E+03_JPRB,9.6391E+03_JPRB,1.0752E+04_JPRB/)
+KBO( :,18,16) = (/&
+&7.0091E+03_JPRB,8.3702E+03_JPRB,9.5741E+03_JPRB,1.0846E+04_JPRB,1.1981E+04_JPRB/)
+KBO( :,19,16) = (/&
+&7.8177E+03_JPRB,9.3538E+03_JPRB,1.0755E+04_JPRB,1.2016E+04_JPRB,1.3317E+04_JPRB/)
+KBO( :,20,16) = (/&
+&8.7063E+03_JPRB,1.0319E+04_JPRB,1.1914E+04_JPRB,1.3366E+04_JPRB,1.4769E+04_JPRB/)
+KBO( :,21,16) = (/&
+&9.6583E+03_JPRB,1.1430E+04_JPRB,1.3099E+04_JPRB,1.4798E+04_JPRB,1.6351E+04_JPRB/)
+KBO( :,22,16) = (/&
+&1.0855E+04_JPRB,1.2791E+04_JPRB,1.4609E+04_JPRB,1.6400E+04_JPRB,1.8171E+04_JPRB/)
+KBO( :,23,16) = (/&
+&1.2201E+04_JPRB,1.4278E+04_JPRB,1.6275E+04_JPRB,1.8206E+04_JPRB,2.0113E+04_JPRB/)
+KBO( :,24,16) = (/&
+&1.3628E+04_JPRB,1.5860E+04_JPRB,1.8039E+04_JPRB,2.0176E+04_JPRB,2.2137E+04_JPRB/)
+KBO( :,25,16) = (/&
+&1.5188E+04_JPRB,1.7579E+04_JPRB,1.9918E+04_JPRB,2.2170E+04_JPRB,2.4222E+04_JPRB/)
+KBO( :,26,16) = (/&
+&1.6826E+04_JPRB,1.9365E+04_JPRB,2.1844E+04_JPRB,2.4184E+04_JPRB,2.6322E+04_JPRB/)
+KBO( :,27,16) = (/&
+&1.8524E+04_JPRB,2.1162E+04_JPRB,2.3751E+04_JPRB,2.6170E+04_JPRB,2.8371E+04_JPRB/)
+KBO( :,28,16) = (/&
+&2.0216E+04_JPRB,2.2951E+04_JPRB,2.5589E+04_JPRB,2.8116E+04_JPRB,3.0326E+04_JPRB/)
+KBO( :,29,16) = (/&
+&2.1910E+04_JPRB,2.4742E+04_JPRB,2.7452E+04_JPRB,3.0040E+04_JPRB,3.2278E+04_JPRB/)
+KBO( :,30,16) = (/&
+&2.3613E+04_JPRB,2.6515E+04_JPRB,2.9278E+04_JPRB,3.1815E+04_JPRB,3.4145E+04_JPRB/)
+KBO( :,31,16) = (/&
+&2.5314E+04_JPRB,2.8268E+04_JPRB,3.1043E+04_JPRB,3.3568E+04_JPRB,3.5897E+04_JPRB/)
+KBO( :,32,16) = (/&
+&2.6975E+04_JPRB,2.9937E+04_JPRB,3.2719E+04_JPRB,3.5244E+04_JPRB,3.7549E+04_JPRB/)
+KBO( :,33,16) = (/&
+&2.8572E+04_JPRB,3.1529E+04_JPRB,3.4290E+04_JPRB,3.6787E+04_JPRB,3.9063E+04_JPRB/)
+KBO( :,34,16) = (/&
+&2.9977E+04_JPRB,3.2921E+04_JPRB,3.5678E+04_JPRB,3.8134E+04_JPRB,4.0357E+04_JPRB/)
+KBO( :,35,16) = (/&
+&3.0980E+04_JPRB,3.3963E+04_JPRB,3.6707E+04_JPRB,3.9142E+04_JPRB,4.1334E+04_JPRB/)
+KBO( :,36,16) = (/&
+&3.1578E+04_JPRB,3.4586E+04_JPRB,3.7314E+04_JPRB,3.9783E+04_JPRB,4.1980E+04_JPRB/)
+KBO( :,37,16) = (/&
+&3.1622E+04_JPRB,3.4683E+04_JPRB,3.7456E+04_JPRB,3.9972E+04_JPRB,4.2211E+04_JPRB/)
+KBO( :,38,16) = (/&
+&3.1560E+04_JPRB,3.4667E+04_JPRB,3.7489E+04_JPRB,4.0060E+04_JPRB,4.2344E+04_JPRB/)
+KBO( :,39,16) = (/&
+&3.1432E+04_JPRB,3.4581E+04_JPRB,3.7452E+04_JPRB,4.0068E+04_JPRB,4.2389E+04_JPRB/)
+KBO( :,40,16) = (/&
+&3.0900E+04_JPRB,3.4111E+04_JPRB,3.7067E+04_JPRB,3.9756E+04_JPRB,4.2232E+04_JPRB/)
+KBO( :,41,16) = (/&
+&3.0258E+04_JPRB,3.3539E+04_JPRB,3.6571E+04_JPRB,3.9344E+04_JPRB,4.1895E+04_JPRB/)
+KBO( :,42,16) = (/&
+&2.9543E+04_JPRB,3.2906E+04_JPRB,3.6015E+04_JPRB,3.8861E+04_JPRB,4.1489E+04_JPRB/)
+KBO( :,43,16) = (/&
+&2.8595E+04_JPRB,3.2035E+04_JPRB,3.5232E+04_JPRB,3.8174E+04_JPRB,4.0894E+04_JPRB/)
+KBO( :,44,16) = (/&
+&2.7503E+04_JPRB,3.1021E+04_JPRB,3.4315E+04_JPRB,3.7350E+04_JPRB,4.0170E+04_JPRB/)
+KBO( :,45,16) = (/&
+&2.6360E+04_JPRB,2.9953E+04_JPRB,3.3340E+04_JPRB,3.6512E+04_JPRB,3.9389E+04_JPRB/)
+KBO( :,46,16) = (/&
+&2.5097E+04_JPRB,2.8760E+04_JPRB,3.2236E+04_JPRB,3.5509E+04_JPRB,3.8490E+04_JPRB/)
+KBO( :,47,16) = (/&
+&2.3642E+04_JPRB,2.7372E+04_JPRB,3.0938E+04_JPRB,3.4319E+04_JPRB,3.7409E+04_JPRB/)
+KBO( :,48,16) = (/&
+&2.2183E+04_JPRB,2.5937E+04_JPRB,2.9591E+04_JPRB,3.3067E+04_JPRB,3.6272E+04_JPRB/)
+KBO( :,49,16) = (/&
+&2.0670E+04_JPRB,2.4507E+04_JPRB,2.8195E+04_JPRB,3.1753E+04_JPRB,3.5074E+04_JPRB/)
+KBO( :,50,16) = (/&
+&1.9238E+04_JPRB,2.3103E+04_JPRB,2.6846E+04_JPRB,3.0481E+04_JPRB,3.3904E+04_JPRB/)
+KBO( :,51,16) = (/&
+&1.7844E+04_JPRB,2.1722E+04_JPRB,2.5514E+04_JPRB,2.9217E+04_JPRB,3.2732E+04_JPRB/)
+KBO( :,52,16) = (/&
+&1.6449E+04_JPRB,2.0331E+04_JPRB,2.4157E+04_JPRB,2.7921E+04_JPRB,3.1511E+04_JPRB/)
+KBO( :,53,16) = (/&
+&1.5063E+04_JPRB,1.8925E+04_JPRB,2.2776E+04_JPRB,2.6593E+04_JPRB,3.0255E+04_JPRB/)
+KBO( :,54,16) = (/&
+&1.3809E+04_JPRB,1.7636E+04_JPRB,2.1500E+04_JPRB,2.5353E+04_JPRB,2.9077E+04_JPRB/)
+KBO( :,55,16) = (/&
+&1.2629E+04_JPRB,1.6403E+04_JPRB,2.0265E+04_JPRB,2.4149E+04_JPRB,2.7924E+04_JPRB/)
+KBO( :,56,16) = (/&
+&1.1481E+04_JPRB,1.5182E+04_JPRB,1.9032E+04_JPRB,2.2931E+04_JPRB,2.6738E+04_JPRB/)
+KBO( :,57,16) = (/&
+&1.0369E+04_JPRB,1.3975E+04_JPRB,1.7793E+04_JPRB,2.1704E+04_JPRB,2.5546E+04_JPRB/)
+KBO( :,58,16) = (/&
+&9.3525E+03_JPRB,1.2853E+04_JPRB,1.6624E+04_JPRB,2.0533E+04_JPRB,2.4399E+04_JPRB/)
+KBO( :,59,16) = (/&
+&8.9578E+03_JPRB,1.2412E+04_JPRB,1.6161E+04_JPRB,2.0067E+04_JPRB,2.3943E+04_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB2_02
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3.F90	(revision 2160)
@@ -0,0 +1,21 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB3_00
+      call RRTM_KGB3_A1
+      call RRTM_KGB3_A2
+      call RRTM_KGB3_B1
+      call RRTM_KGB3_B2
+      call RRTM_KGB3_B3
+      call RRTM_KGB3_B4
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_00.F90	(revision 2160)
@@ -0,0 +1,226 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FORREFO( :) = (/&
+      &1.76842E-04_JPRB, 1.77913E-04_JPRB, 1.25186E-04_JPRB, 1.07912E-04_JPRB,&
+      &1.05217E-04_JPRB, 7.48726E-05_JPRB, 1.11701E-04_JPRB, 7.68921E-05_JPRB,&
+      &9.87242E-05_JPRB, 9.85711E-05_JPRB, 6.16557E-05_JPRB,-1.61291E-05_JPRB,&
+     &-1.26794E-04_JPRB,-1.19011E-04_JPRB,-2.67814E-04_JPRB, 6.95005E-05_JPRB/)
+
+ABSN2OAO( :) = (/&
+     &1.50387E-01_JPRB,2.91407E-01_JPRB,6.28803E-01_JPRB,9.65619E-01_JPRB,&
+     &1.15054E-00_JPRB,2.23424E-00_JPRB,1.83392E-00_JPRB,1.39033E-00_JPRB,&
+     &4.28457E-01_JPRB,2.73502E-01_JPRB,1.84307E-01_JPRB,1.61325E-01_JPRB,&
+     &7.66314E-02_JPRB,1.33862E-01_JPRB,6.71196E-07_JPRB,1.59293E-06_JPRB/)
+
+ABSN2OBO( :) = (/&
+     &9.37044E-05_JPRB,1.23318E-03_JPRB,7.91720E-03_JPRB,5.33005E-02_JPRB,&
+     &1.72343E-01_JPRB,4.29571E-01_JPRB,1.01288E+00_JPRB,3.83863E+00_JPRB,&
+     &1.15312E+01_JPRB,1.08383E+00_JPRB,2.24847E+00_JPRB,1.51268E+00_JPRB,&
+     &3.33177E-01_JPRB,7.82102E-01_JPRB,3.44631E-01_JPRB,1.61039E-03_JPRB/)
+
+ETAREF( :) = (/&
+     &_ZERO_,0.125_JPRB,0.25_JPRB,0.375_JPRB,_HALF_,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.9875_JPRB,_ONE_/)
+
+H2OREF( :) = (/&
+     &1.87599E-02_JPRB,1.22233E-02_JPRB,5.89086E-03_JPRB,2.76753E-03_JPRB,1.40651E-03_JPRB, &
+     &7.59698E-04_JPRB,3.88758E-04_JPRB,1.65422E-04_JPRB,3.71895E-05_JPRB,7.47648E-06_JPRB, &
+     &4.30818E-06_JPRB,3.33194E-06_JPRB,3.20393E-06_JPRB,3.16186E-06_JPRB,3.25235E-06_JPRB, &
+     &3.42258E-06_JPRB,3.62884E-06_JPRB,3.91482E-06_JPRB,4.14875E-06_JPRB,4.30810E-06_JPRB,&
+     &4.44204E-06_JPRB,4.57783E-06_JPRB,4.70865E-06_JPRB,4.79432E-06_JPRB,4.86971E-06_JPRB, &
+     &4.92603E-06_JPRB,4.96688E-06_JPRB,4.99628E-06_JPRB,5.05266E-06_JPRB,5.12658E-06_JPRB, &
+     &5.25028E-06_JPRB,5.35708E-06_JPRB,5.45085E-06_JPRB,5.48304E-06_JPRB,5.50000E-06_JPRB, &
+     &5.50000E-06_JPRB,5.45359E-06_JPRB,5.40468E-06_JPRB,5.35576E-06_JPRB,5.25327E-06_JPRB,&
+     &5.14362E-06_JPRB,5.03396E-06_JPRB,4.87662E-06_JPRB,4.69787E-06_JPRB,4.51911E-06_JPRB, &
+     &4.33600E-06_JPRB,4.14416E-06_JPRB,3.95232E-06_JPRB,3.76048E-06_JPRB,3.57217E-06_JPRB, &
+     &3.38549E-06_JPRB,3.19881E-06_JPRB,3.01212E-06_JPRB,2.82621E-06_JPRB,2.64068E-06_JPRB, &
+     &2.45515E-06_JPRB,2.26962E-06_JPRB,2.08659E-06_JPRB,1.93029E-06_JPRB/)
+
+N2OREF( :) = (/&
+     &3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
+     &3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
+     &2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB,2.09547E-07_JPRB,1.71945E-07_JPRB,&
+     &1.37491E-07_JPRB,1.13319E-07_JPRB,1.00354E-07_JPRB,9.12812E-08_JPRB,8.54633E-08_JPRB,&
+     &8.03631E-08_JPRB,7.33718E-08_JPRB,6.59754E-08_JPRB,5.60386E-08_JPRB,4.70901E-08_JPRB,&
+     &3.99774E-08_JPRB,3.29786E-08_JPRB,2.60642E-08_JPRB,2.10663E-08_JPRB,1.65918E-08_JPRB,&
+     &1.30167E-08_JPRB,1.00900E-08_JPRB,7.62490E-09_JPRB,6.11592E-09_JPRB,4.66725E-09_JPRB,&
+     &3.28574E-09_JPRB,2.84838E-09_JPRB,2.46198E-09_JPRB,2.07557E-09_JPRB,1.85507E-09_JPRB,&
+     &1.65675E-09_JPRB,1.45843E-09_JPRB,1.31948E-09_JPRB,1.20716E-09_JPRB,1.09485E-09_JPRB,&
+     &9.97803E-10_JPRB,9.31260E-10_JPRB,8.64721E-10_JPRB,7.98181E-10_JPRB,7.51380E-10_JPRB,&
+     &7.13670E-10_JPRB,6.75960E-10_JPRB,6.38250E-10_JPRB,6.09811E-10_JPRB,5.85998E-10_JPRB,&
+     &5.62185E-10_JPRB,5.38371E-10_JPRB,5.15183E-10_JPRB,4.98660E-10_JPRB/)
+
+CO2REF( :) = (/&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+     &3.5470873E-04_JPRB, 3.5427220E-04_JPRB, 3.5383567E-04_JPRB,&
+     &3.5339911E-04_JPRB, 3.5282588E-04_JPRB, 3.5079606E-04_JPRB/) 
+
+STRRAT = 1.19268_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&5.10286E-01_JPRB, 4.30424E-01_JPRB, 3.63061E-01_JPRB, 3.06241E-01_JPRB, 2.58313E-01_JPRB,&
+&2.17886E-01_JPRB, 1.83786E-01_JPRB, 1.55023E-01_JPRB, 1.30761E-01_JPRB, 1.10297E-01_JPRB/)
+SELFREFO( :, 2) = (/&
+&4.96777E-01_JPRB, 4.30758E-01_JPRB, 3.73512E-01_JPRB, 3.23874E-01_JPRB, 2.80833E-01_JPRB,&
+&2.43512E-01_JPRB, 2.11150E-01_JPRB, 1.83089E-01_JPRB, 1.58758E-01_JPRB, 1.37659E-01_JPRB/)
+SELFREFO( :, 3) = (/&
+&4.65595E-01_JPRB, 4.04778E-01_JPRB, 3.51905E-01_JPRB, 3.05939E-01_JPRB, 2.65976E-01_JPRB,&
+&2.31234E-01_JPRB, 2.01030E-01_JPRB, 1.74771E-01_JPRB, 1.51942E-01_JPRB, 1.32095E-01_JPRB/)
+SELFREFO( :, 4) = (/&
+&4.34629E-01_JPRB, 3.86709E-01_JPRB, 3.44073E-01_JPRB, 3.06137E-01_JPRB, 2.72384E-01_JPRB,&
+&2.42353E-01_JPRB, 2.15633E-01_JPRB, 1.91858E-01_JPRB, 1.70705E-01_JPRB, 1.51884E-01_JPRB/)
+SELFREFO( :, 5) = (/&
+&4.17625E-01_JPRB, 3.75442E-01_JPRB, 3.37519E-01_JPRB, 3.03427E-01_JPRB, 2.72778E-01_JPRB,&
+&2.45225E-01_JPRB, 2.20456E-01_JPRB, 1.98188E-01_JPRB, 1.78169E-01_JPRB, 1.60173E-01_JPRB/)
+SELFREFO( :, 6) = (/&
+&3.97412E-01_JPRB, 3.61249E-01_JPRB, 3.28376E-01_JPRB, 2.98494E-01_JPRB, 2.71332E-01_JPRB,&
+&2.46641E-01_JPRB, 2.24198E-01_JPRB, 2.03796E-01_JPRB, 1.85251E-01_JPRB, 1.68394E-01_JPRB/)
+SELFREFO( :, 7) = (/&
+&3.89795E-01_JPRB, 3.56178E-01_JPRB, 3.25460E-01_JPRB, 2.97391E-01_JPRB, 2.71743E-01_JPRB,&
+&2.48307E-01_JPRB, 2.26892E-01_JPRB, 2.07324E-01_JPRB, 1.89444E-01_JPRB, 1.73105E-01_JPRB/)
+SELFREFO( :, 8) = (/&
+&3.79095E-01_JPRB, 3.46828E-01_JPRB, 3.17308E-01_JPRB, 2.90301E-01_JPRB, 2.65592E-01_JPRB,&
+&2.42986E-01_JPRB, 2.22305E-01_JPRB, 2.03384E-01_JPRB, 1.86073E-01_JPRB, 1.70235E-01_JPRB/)
+SELFREFO( :, 9) = (/&
+&3.87086E-01_JPRB, 3.53988E-01_JPRB, 3.23720E-01_JPRB, 2.96040E-01_JPRB, 2.70727E-01_JPRB,&
+&2.47578E-01_JPRB, 2.26409E-01_JPRB, 2.07050E-01_JPRB, 1.89346E-01_JPRB, 1.73156E-01_JPRB/)
+SELFREFO( :,10) = (/&
+&4.07529E-01_JPRB, 3.71284E-01_JPRB, 3.38263E-01_JPRB, 3.08179E-01_JPRB, 2.80770E-01_JPRB,&
+&2.55799E-01_JPRB, 2.33049E-01_JPRB, 2.12322E-01_JPRB, 1.93438E-01_JPRB, 1.76234E-01_JPRB/)
+SELFREFO( :,11) = (/&
+&4.09315E-01_JPRB, 3.74420E-01_JPRB, 3.42500E-01_JPRB, 3.13302E-01_JPRB, 2.86592E-01_JPRB,&
+&2.62160E-01_JPRB, 2.39811E-01_JPRB, 2.19367E-01_JPRB, 2.00665E-01_JPRB, 1.83558E-01_JPRB/)
+SELFREFO( :,12) = (/&
+&3.73996E-01_JPRB, 3.51462E-01_JPRB, 3.30286E-01_JPRB, 3.10385E-01_JPRB, 2.91684E-01_JPRB,&
+&2.74109E-01_JPRB, 2.57593E-01_JPRB, 2.42072E-01_JPRB, 2.27487E-01_JPRB, 2.13780E-01_JPRB/)
+SELFREFO( :,13) = (/&
+&4.87965E-01_JPRB, 4.44525E-01_JPRB, 4.04952E-01_JPRB, 3.68902E-01_JPRB, 3.36061E-01_JPRB,&
+&3.06144E-01_JPRB, 2.78891E-01_JPRB, 2.54063E-01_JPRB, 2.31446E-01_JPRB, 2.10842E-01_JPRB/)
+SELFREFO( :,14) = (/&
+&5.67999E-01_JPRB, 5.03336E-01_JPRB, 4.46034E-01_JPRB, 3.95256E-01_JPRB, 3.50259E-01_JPRB,&
+&3.10384E-01_JPRB, 2.75048E-01_JPRB, 2.43736E-01_JPRB, 2.15988E-01_JPRB, 1.91399E-01_JPRB/)
+SELFREFO( :,15) = (/&
+&5.92492E-01_JPRB, 5.27072E-01_JPRB, 4.68874E-01_JPRB, 4.17103E-01_JPRB, 3.71048E-01_JPRB,&
+&3.30079E-01_JPRB, 2.93633E-01_JPRB, 2.61211E-01_JPRB, 2.32369E-01_JPRB, 2.06712E-01_JPRB/)
+SELFREFO( :,16) = (/&
+&5.04176E-01_JPRB, 4.64845E-01_JPRB, 4.28582E-01_JPRB, 3.95148E-01_JPRB, 3.64322E-01_JPRB,&
+&3.35901E-01_JPRB, 3.09697E-01_JPRB, 2.85538E-01_JPRB, 2.63263E-01_JPRB, 2.42725E-01_JPRB/)
+
+FRACREFAO( :, 1) = (/&
+!     From P = 1053.6 mb.
+    &0.15116400_JPRB,0.14875700_JPRB,0.14232300_JPRB,0.13234501_JPRB,&
+    &0.11881600_JPRB,0.10224100_JPRB,0.08345580_JPRB,0.06267490_JPRB,&
+    &0.04250650_JPRB,0.00462650_JPRB,0.00382259_JPRB,0.00302600_JPRB,&
+    &0.00222004_JPRB,0.00141397_JPRB,0.00053379_JPRB,0.00007421_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.15266000_JPRB,0.14888400_JPRB,0.14195900_JPRB,0.13179500_JPRB,&
+    &0.11842700_JPRB,0.10209000_JPRB,0.08336130_JPRB,0.06264370_JPRB,&
+    &0.04247660_JPRB,0.00461946_JPRB,0.00381536_JPRB,0.00302601_JPRB,&
+    &0.00222004_JPRB,0.00141397_JPRB,0.00053302_JPRB,0.00007498_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.15282799_JPRB,0.14903000_JPRB,0.14192399_JPRB,0.13174300_JPRB,&
+    &0.11835300_JPRB,0.10202700_JPRB,0.08329830_JPRB,0.06264830_JPRB,&
+    &0.04246910_JPRB,0.00460242_JPRB,0.00381904_JPRB,0.00301573_JPRB,&
+    &0.00222004_JPRB,0.00141397_JPRB,0.00053379_JPRB,0.00007421_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.15298399_JPRB,0.14902800_JPRB,0.14193401_JPRB,0.13173500_JPRB,&
+    &0.11833300_JPRB,0.10195800_JPRB,0.08324730_JPRB,0.06264770_JPRB,&
+    &0.04246490_JPRB,0.00460489_JPRB,0.00381123_JPRB,0.00301893_JPRB,&
+    &0.00221093_JPRB,0.00141397_JPRB,0.00053379_JPRB,0.00007421_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.15307599_JPRB,0.14907201_JPRB,0.14198899_JPRB,0.13169800_JPRB,&
+    &0.11827300_JPRB,0.10192300_JPRB,0.08321600_JPRB,0.06263490_JPRB,&
+    &0.04245600_JPRB,0.00460846_JPRB,0.00380836_JPRB,0.00301663_JPRB,&
+    &0.00221402_JPRB,0.00141167_JPRB,0.00052807_JPRB,0.00007376_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.15311401_JPRB,0.14915401_JPRB,0.14207301_JPRB,0.13167299_JPRB,&
+    &0.11819300_JPRB,0.10188900_JPRB,0.08318760_JPRB,0.06261960_JPRB,&
+    &0.04243890_JPRB,0.00461584_JPRB,0.00380929_JPRB,0.00300815_JPRB,&
+    &0.00221736_JPRB,0.00140588_JPRB,0.00052776_JPRB,0.00007376_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.15316001_JPRB,0.14925499_JPRB,0.14213000_JPRB,0.13170999_JPRB,&
+    &0.11807700_JPRB,0.10181400_JPRB,0.08317400_JPRB,0.06260300_JPRB,&
+    &0.04242720_JPRB,0.00461520_JPRB,0.00381381_JPRB,0.00301285_JPRB,&
+    &0.00220275_JPRB,0.00140371_JPRB,0.00052776_JPRB,0.00007376_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.15321200_JPRB,0.14940999_JPRB,0.14222500_JPRB,0.13164200_JPRB,&
+    &0.11798200_JPRB,0.10174500_JPRB,0.08317500_JPRB,0.06253640_JPRB,&
+    &0.04243130_JPRB,0.00461724_JPRB,0.00381534_JPRB,0.00300320_JPRB,&
+    &0.00220091_JPRB,0.00140364_JPRB,0.00052852_JPRB,0.00007300_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.15312800_JPRB,0.14973100_JPRB,0.14234400_JPRB,0.13168900_JPRB,&
+    &0.11795200_JPRB,0.10156100_JPRB,0.08302990_JPRB,0.06252240_JPRB,&
+    &0.04240980_JPRB,0.00461035_JPRB,0.00381381_JPRB,0.00300176_JPRB,&
+    &0.00220160_JPRB,0.00140284_JPRB,0.00052774_JPRB,0.00007376_JPRB/)
+FRACREFAO( :,10) = (/&
+    &0.15292500_JPRB,0.14978001_JPRB,0.14242400_JPRB,0.13172600_JPRB,&
+    &0.11798800_JPRB,0.10156400_JPRB,0.08303050_JPRB,0.06251670_JPRB,&
+    &0.04240970_JPRB,0.00461302_JPRB,0.00381452_JPRB,0.00300250_JPRB,&
+    &0.00220126_JPRB,0.00140324_JPRB,0.00052850_JPRB,0.00007300_JPRB/)
+
+FRACREFBO( :, 1) = (/&
+!     From P = 64.1 mb.
+    &0.16340201_JPRB,0.15607700_JPRB,0.14601400_JPRB,0.13182700_JPRB,&
+    &0.11524700_JPRB,0.09666570_JPRB,0.07825360_JPRB,0.05849780_JPRB,&
+    &0.03949650_JPRB,0.00427980_JPRB,0.00353719_JPRB,0.00279303_JPRB,&
+    &0.00204788_JPRB,0.00130139_JPRB,0.00049055_JPRB,0.00006904_JPRB/)
+FRACREFBO( :, 2) = (/&
+    &0.15762900_JPRB,0.15494700_JPRB,0.14659800_JPRB,0.13267800_JPRB,&
+    &0.11562700_JPRB,0.09838360_JPRB,0.07930420_JPRB,0.05962700_JPRB,&
+    &0.04036360_JPRB,0.00438053_JPRB,0.00361463_JPRB,0.00285723_JPRB,&
+    &0.00208345_JPRB,0.00132135_JPRB,0.00050528_JPRB,0.00008003_JPRB/)
+FRACREFBO( :, 3) = (/&
+    &0.15641500_JPRB,0.15394500_JPRB,0.14633600_JPRB,0.13180400_JPRB,&
+    &0.11617100_JPRB,0.09924170_JPRB,0.08000510_JPRB,0.06021420_JPRB,&
+    &0.04082730_JPRB,0.00441694_JPRB,0.00365364_JPRB,0.00287723_JPRB,&
+    &0.00210914_JPRB,0.00135784_JPRB,0.00054651_JPRB,0.00008003_JPRB/)
+FRACREFBO( :, 4) = (/&
+    &0.15482700_JPRB,0.15286300_JPRB,0.14392500_JPRB,0.13244100_JPRB,&
+    &0.11712000_JPRB,0.09994920_JPRB,0.08119200_JPRB,0.06104360_JPRB,&
+    &0.04135600_JPRB,0.00446685_JPRB,0.00368377_JPRB,0.00290767_JPRB,&
+    &0.00215445_JPRB,0.00142865_JPRB,0.00056142_JPRB,0.00008003_JPRB/)
+FRACREFBO( :, 5) = (/&
+    &0.15975100_JPRB,0.15653500_JPRB,0.14214399_JPRB,0.12892200_JPRB,&
+    &0.11508400_JPRB,0.09906020_JPRB,0.08087940_JPRB,0.06078190_JPRB,&
+    &0.04140530_JPRB,0.00452724_JPRB,0.00374558_JPRB,0.00295328_JPRB,&
+    &0.00218509_JPRB,0.00138644_JPRB,0.00056018_JPRB,0.00008003_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_A1.F90	(revision 2160)
@@ -0,0 +1,1218 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 10 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&1.3905E-05_JPRB,5.5491E-04_JPRB,9.4069E-04_JPRB,1.2683E-03_JPRB,1.5758E-03_JPRB,1.8657E-03_JPRB,&
+&2.1271E-03_JPRB,2.3310E-03_JPRB,2.2238E-03_JPRB,1.2098E-03_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&1.8718E-05_JPRB,6.2254E-04_JPRB,1.0419E-03_JPRB,1.3944E-03_JPRB,1.7096E-03_JPRB,2.0070E-03_JPRB,&
+&2.2783E-03_JPRB,2.4921E-03_JPRB,2.4893E-03_JPRB,1.3329E-03_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&2.5277E-05_JPRB,7.0791E-04_JPRB,1.1679E-03_JPRB,1.5540E-03_JPRB,1.8826E-03_JPRB,2.1855E-03_JPRB,&
+&2.4637E-03_JPRB,2.6836E-03_JPRB,2.4870E-03_JPRB,1.4683E-03_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&3.3974E-05_JPRB,8.1479E-04_JPRB,1.3277E-03_JPRB,1.7495E-03_JPRB,2.1019E-03_JPRB,2.4115E-03_JPRB,&
+&2.6955E-03_JPRB,2.9144E-03_JPRB,2.6786E-03_JPRB,1.5835E-03_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&4.5018E-05_JPRB,9.4621E-04_JPRB,1.5225E-03_JPRB,1.9888E-03_JPRB,2.3735E-03_JPRB,2.6924E-03_JPRB,&
+&2.9767E-03_JPRB,3.1904E-03_JPRB,2.9199E-03_JPRB,1.7196E-03_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&1.0592E-05_JPRB,4.4499E-04_JPRB,7.6480E-04_JPRB,1.0361E-03_JPRB,1.2851E-03_JPRB,1.5183E-03_JPRB,&
+&1.7260E-03_JPRB,1.8861E-03_JPRB,1.7869E-03_JPRB,9.5189E-04_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&1.4233E-05_JPRB,4.9754E-04_JPRB,8.4386E-04_JPRB,1.1364E-03_JPRB,1.3930E-03_JPRB,1.6308E-03_JPRB,&
+&1.8450E-03_JPRB,2.0088E-03_JPRB,1.9843E-03_JPRB,1.0406E-03_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&1.9306E-05_JPRB,5.6436E-04_JPRB,9.4285E-04_JPRB,1.2611E-03_JPRB,1.5318E-03_JPRB,1.7753E-03_JPRB,&
+&1.9931E-03_JPRB,2.1588E-03_JPRB,2.0128E-03_JPRB,1.1498E-03_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&2.6119E-05_JPRB,6.4842E-04_JPRB,1.0680E-03_JPRB,1.4147E-03_JPRB,1.7071E-03_JPRB,1.9567E-03_JPRB,&
+&2.1789E-03_JPRB,2.3401E-03_JPRB,2.1538E-03_JPRB,1.2358E-03_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&3.4871E-05_JPRB,7.5256E-04_JPRB,1.2221E-03_JPRB,1.6045E-03_JPRB,1.9204E-03_JPRB,2.1824E-03_JPRB,&
+&2.4047E-03_JPRB,2.5599E-03_JPRB,2.3558E-03_JPRB,1.3458E-03_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&7.6650E-06_JPRB,3.4947E-04_JPRB,6.0867E-04_JPRB,8.3119E-04_JPRB,1.0323E-03_JPRB,1.2185E-03_JPRB,&
+&1.3830E-03_JPRB,1.5087E-03_JPRB,1.4187E-03_JPRB,7.5325E-04_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&1.0208E-05_JPRB,3.8799E-04_JPRB,6.6727E-04_JPRB,9.0569E-04_JPRB,1.1140E-03_JPRB,1.3039E-03_JPRB,&
+&1.4728E-03_JPRB,1.5994E-03_JPRB,1.5541E-03_JPRB,8.1826E-04_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&1.3852E-05_JPRB,4.3745E-04_JPRB,7.4132E-04_JPRB,9.9801E-04_JPRB,1.2192E-03_JPRB,1.4137E-03_JPRB,&
+&1.5849E-03_JPRB,1.7123E-03_JPRB,1.6593E-03_JPRB,8.9528E-04_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&1.8873E-05_JPRB,5.0084E-04_JPRB,8.3488E-04_JPRB,1.1136E-03_JPRB,1.3505E-03_JPRB,1.5529E-03_JPRB,&
+&1.7249E-03_JPRB,1.8487E-03_JPRB,1.7141E-03_JPRB,9.6472E-04_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&2.5412E-05_JPRB,5.7989E-04_JPRB,9.5083E-04_JPRB,1.2577E-03_JPRB,1.5110E-03_JPRB,1.7265E-03_JPRB,&
+&1.9001E-03_JPRB,2.0154E-03_JPRB,1.8592E-03_JPRB,1.0514E-03_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&5.5327E-06_JPRB,2.7370E-04_JPRB,4.8202E-04_JPRB,6.6293E-04_JPRB,8.2705E-04_JPRB,9.7621E-04_JPRB,&
+&1.1071E-03_JPRB,1.2149E-03_JPRB,1.1365E-03_JPRB,6.2235E-04_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&7.2381E-06_JPRB,3.0138E-04_JPRB,5.2416E-04_JPRB,7.1697E-04_JPRB,8.8620E-04_JPRB,1.0391E-03_JPRB,&
+&1.1730E-03_JPRB,1.2726E-03_JPRB,1.2113E-03_JPRB,6.7320E-04_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&9.7698E-06_JPRB,3.3721E-04_JPRB,5.7856E-04_JPRB,7.8512E-04_JPRB,9.6459E-04_JPRB,1.1210E-03_JPRB,&
+&1.2565E-03_JPRB,1.3549E-03_JPRB,1.3452E-03_JPRB,7.2416E-04_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&1.3344E-05_JPRB,3.8381E-04_JPRB,6.4739E-04_JPRB,8.7038E-04_JPRB,1.0615E-03_JPRB,1.2252E-03_JPRB,&
+&1.3612E-03_JPRB,1.4576E-03_JPRB,1.3655E-03_JPRB,7.8325E-04_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&1.8090E-05_JPRB,4.4258E-04_JPRB,7.3288E-04_JPRB,9.7754E-04_JPRB,1.1813E-03_JPRB,1.3549E-03_JPRB,&
+&1.4926E-03_JPRB,1.5822E-03_JPRB,1.4607E-03_JPRB,8.5221E-04_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&4.0810E-06_JPRB,2.1551E-04_JPRB,3.8283E-04_JPRB,5.2940E-04_JPRB,6.6368E-04_JPRB,7.8503E-04_JPRB,&
+&8.8897E-04_JPRB,9.7870E-04_JPRB,9.2885E-04_JPRB,5.3112E-04_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&5.1916E-06_JPRB,2.3507E-04_JPRB,4.1271E-04_JPRB,5.6826E-04_JPRB,7.0568E-04_JPRB,8.2971E-04_JPRB,&
+&9.3695E-04_JPRB,1.0168E-03_JPRB,9.5220E-04_JPRB,5.6840E-04_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&6.9159E-06_JPRB,2.6088E-04_JPRB,4.5208E-04_JPRB,6.1797E-04_JPRB,7.6301E-04_JPRB,8.8979E-04_JPRB,&
+&9.9853E-04_JPRB,1.0759E-03_JPRB,1.0389E-03_JPRB,6.0777E-04_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&9.4196E-06_JPRB,2.9480E-04_JPRB,5.0274E-04_JPRB,6.8088E-04_JPRB,8.3550E-04_JPRB,9.6746E-04_JPRB,&
+&1.0764E-03_JPRB,1.1522E-03_JPRB,1.1313E-03_JPRB,6.5577E-04_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&1.2823E-05_JPRB,3.3834E-04_JPRB,5.6555E-04_JPRB,7.6000E-04_JPRB,9.2459E-04_JPRB,1.0640E-03_JPRB,&
+&1.1745E-03_JPRB,1.2456E-03_JPRB,1.1599E-03_JPRB,7.1205E-04_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&3.0745E-06_JPRB,1.7028E-04_JPRB,3.0467E-04_JPRB,4.2351E-04_JPRB,5.3324E-04_JPRB,6.3166E-04_JPRB,&
+&7.1362E-04_JPRB,7.7595E-04_JPRB,7.2555E-04_JPRB,4.6766E-04_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&3.7467E-06_JPRB,1.8364E-04_JPRB,3.2533E-04_JPRB,4.4992E-04_JPRB,5.6174E-04_JPRB,6.6289E-04_JPRB,&
+&7.4918E-04_JPRB,8.1992E-04_JPRB,7.7217E-04_JPRB,4.9540E-04_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&4.8844E-06_JPRB,2.0189E-04_JPRB,3.5318E-04_JPRB,4.8611E-04_JPRB,6.0248E-04_JPRB,7.0548E-04_JPRB,&
+&7.9343E-04_JPRB,8.5556E-04_JPRB,8.1719E-04_JPRB,5.2871E-04_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&6.5875E-06_JPRB,2.2623E-04_JPRB,3.8987E-04_JPRB,5.3174E-04_JPRB,6.5615E-04_JPRB,7.6255E-04_JPRB,&
+&8.5105E-04_JPRB,9.1164E-04_JPRB,9.0776E-04_JPRB,5.6738E-04_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&8.9782E-06_JPRB,2.5797E-04_JPRB,4.3574E-04_JPRB,5.8945E-04_JPRB,7.2180E-04_JPRB,8.3401E-04_JPRB,&
+&9.2288E-04_JPRB,9.8059E-04_JPRB,9.2715E-04_JPRB,6.1340E-04_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&2.3852E-06_JPRB,1.3537E-04_JPRB,2.4376E-04_JPRB,3.4046E-04_JPRB,4.2953E-04_JPRB,5.0877E-04_JPRB,&
+&5.7353E-04_JPRB,6.1192E-04_JPRB,5.7270E-04_JPRB,4.3319E-04_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&2.7620E-06_JPRB,1.4429E-04_JPRB,2.5761E-04_JPRB,3.5752E-04_JPRB,4.4861E-04_JPRB,5.3102E-04_JPRB,&
+&5.9966E-04_JPRB,6.5817E-04_JPRB,6.2541E-04_JPRB,4.5750E-04_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&3.4880E-06_JPRB,1.5701E-04_JPRB,2.7701E-04_JPRB,3.8344E-04_JPRB,4.7691E-04_JPRB,5.6092E-04_JPRB,&
+&6.3220E-04_JPRB,6.8391E-04_JPRB,6.4333E-04_JPRB,4.8664E-04_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&4.6192E-06_JPRB,1.7428E-04_JPRB,3.0330E-04_JPRB,4.1640E-04_JPRB,5.1608E-04_JPRB,6.0192E-04_JPRB,&
+&6.7387E-04_JPRB,7.2302E-04_JPRB,7.0029E-04_JPRB,5.2115E-04_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&6.2659E-06_JPRB,1.9723E-04_JPRB,3.3668E-04_JPRB,4.5828E-04_JPRB,5.6442E-04_JPRB,6.5465E-04_JPRB,&
+&7.2699E-04_JPRB,7.7405E-04_JPRB,7.7413E-04_JPRB,5.6002E-04_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&1.9015E-06_JPRB,1.0820E-04_JPRB,1.9592E-04_JPRB,2.7484E-04_JPRB,3.4688E-04_JPRB,4.0988E-04_JPRB,&
+&4.6037E-04_JPRB,4.8747E-04_JPRB,4.5723E-04_JPRB,4.3074E-04_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&2.0897E-06_JPRB,1.1410E-04_JPRB,2.0489E-04_JPRB,2.8543E-04_JPRB,3.5954E-04_JPRB,4.2599E-04_JPRB,&
+&4.8075E-04_JPRB,5.2102E-04_JPRB,4.8940E-04_JPRB,4.6091E-04_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&2.5320E-06_JPRB,1.2277E-04_JPRB,2.1834E-04_JPRB,3.0321E-04_JPRB,3.7874E-04_JPRB,4.4717E-04_JPRB,&
+&5.0489E-04_JPRB,5.5180E-04_JPRB,5.2338E-04_JPRB,4.9080E-04_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&3.2727E-06_JPRB,1.3498E-04_JPRB,2.3690E-04_JPRB,3.2720E-04_JPRB,4.0672E-04_JPRB,4.7636E-04_JPRB,&
+&5.3491E-04_JPRB,5.7561E-04_JPRB,5.5051E-04_JPRB,5.1978E-04_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&4.3856E-06_JPRB,1.5147E-04_JPRB,2.6111E-04_JPRB,3.5765E-04_JPRB,4.4264E-04_JPRB,5.1502E-04_JPRB,&
+&5.7382E-04_JPRB,6.1302E-04_JPRB,6.1438E-04_JPRB,5.4976E-04_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&1.5482E-06_JPRB,8.7052E-05_JPRB,1.5839E-04_JPRB,2.2300E-04_JPRB,2.8105E-04_JPRB,3.3090E-04_JPRB,&
+&3.6936E-04_JPRB,3.8992E-04_JPRB,3.6561E-04_JPRB,5.0307E-04_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&1.6233E-06_JPRB,9.0800E-05_JPRB,1.6386E-04_JPRB,2.2916E-04_JPRB,2.8933E-04_JPRB,3.4270E-04_JPRB,&
+&3.8603E-04_JPRB,4.1137E-04_JPRB,3.8679E-04_JPRB,5.3034E-04_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&1.8727E-06_JPRB,9.6605E-05_JPRB,1.7299E-04_JPRB,2.4068E-04_JPRB,3.0216E-04_JPRB,3.5768E-04_JPRB,&
+&4.0386E-04_JPRB,4.4306E-04_JPRB,4.2523E-04_JPRB,5.5823E-04_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&2.3460E-06_JPRB,1.0514E-04_JPRB,1.8594E-04_JPRB,2.5798E-04_JPRB,3.2158E-04_JPRB,3.7830E-04_JPRB,&
+&4.2604E-04_JPRB,4.6061E-04_JPRB,4.3830E-04_JPRB,5.8904E-04_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&3.0835E-06_JPRB,1.1691E-04_JPRB,2.0336E-04_JPRB,2.8015E-04_JPRB,3.4814E-04_JPRB,4.0638E-04_JPRB,&
+&4.5421E-04_JPRB,4.8658E-04_JPRB,4.7615E-04_JPRB,6.2435E-04_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&1.2799E-06_JPRB,7.0646E-05_JPRB,1.2898E-04_JPRB,1.8180E-04_JPRB,2.2870E-04_JPRB,2.6728E-04_JPRB,&
+&2.9678E-04_JPRB,3.1565E-04_JPRB,2.9877E-04_JPRB,5.6519E-04_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&1.2987E-06_JPRB,7.2906E-05_JPRB,1.3215E-04_JPRB,1.8535E-04_JPRB,2.3421E-04_JPRB,2.7695E-04_JPRB,&
+&3.1130E-04_JPRB,3.2886E-04_JPRB,3.1021E-04_JPRB,5.8706E-04_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&1.4353E-06_JPRB,7.6915E-05_JPRB,1.3835E-04_JPRB,1.9290E-04_JPRB,2.4295E-04_JPRB,2.8803E-04_JPRB,&
+&3.2514E-04_JPRB,3.5354E-04_JPRB,3.3578E-04_JPRB,6.1412E-04_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&1.7387E-06_JPRB,8.2894E-05_JPRB,1.4759E-04_JPRB,2.0528E-04_JPRB,2.5663E-04_JPRB,3.0293E-04_JPRB,&
+&3.4175E-04_JPRB,3.7216E-04_JPRB,3.5751E-04_JPRB,6.4985E-04_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&2.2343E-06_JPRB,9.1469E-05_JPRB,1.6022E-04_JPRB,2.2168E-04_JPRB,2.7630E-04_JPRB,3.2346E-04_JPRB,&
+&3.6268E-04_JPRB,3.8938E-04_JPRB,3.7492E-04_JPRB,6.9583E-04_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&1.0543E-06_JPRB,5.7983E-05_JPRB,1.0582E-04_JPRB,1.4919E-04_JPRB,1.8791E-04_JPRB,2.2000E-04_JPRB,&
+&2.4433E-04_JPRB,2.5995E-04_JPRB,2.4592E-04_JPRB,5.0307E-04_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&1.0726E-06_JPRB,5.9907E-05_JPRB,1.0858E-04_JPRB,1.5223E-04_JPRB,1.9244E-04_JPRB,2.2775E-04_JPRB,&
+&2.5610E-04_JPRB,2.7046E-04_JPRB,2.5615E-04_JPRB,5.1588E-04_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&1.1894E-06_JPRB,6.3212E-05_JPRB,1.1383E-04_JPRB,1.5870E-04_JPRB,1.9979E-04_JPRB,2.3693E-04_JPRB,&
+&2.6747E-04_JPRB,2.9154E-04_JPRB,2.7919E-04_JPRB,5.3855E-04_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&1.4390E-06_JPRB,6.8258E-05_JPRB,1.2145E-04_JPRB,1.6906E-04_JPRB,2.1138E-04_JPRB,2.4948E-04_JPRB,&
+&2.8136E-04_JPRB,3.0581E-04_JPRB,2.9553E-04_JPRB,5.7296E-04_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&1.8470E-06_JPRB,7.5489E-05_JPRB,1.3202E-04_JPRB,1.8257E-04_JPRB,2.2782E-04_JPRB,2.6681E-04_JPRB,&
+&2.9892E-04_JPRB,3.2058E-04_JPRB,3.1052E-04_JPRB,6.1818E-04_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&8.6798E-07_JPRB,4.7553E-05_JPRB,8.6730E-05_JPRB,1.2226E-04_JPRB,1.5413E-04_JPRB,1.8085E-04_JPRB,&
+&2.0088E-04_JPRB,2.1368E-04_JPRB,2.0252E-04_JPRB,4.1925E-04_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&8.8495E-07_JPRB,4.9183E-05_JPRB,8.9118E-05_JPRB,1.2490E-04_JPRB,1.5790E-04_JPRB,1.8699E-04_JPRB,&
+&2.1049E-04_JPRB,2.2231E-04_JPRB,2.1170E-04_JPRB,4.2911E-04_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&9.8325E-07_JPRB,5.1925E-05_JPRB,9.3547E-05_JPRB,1.3044E-04_JPRB,1.6413E-04_JPRB,1.9471E-04_JPRB,&
+&2.1986E-04_JPRB,2.4001E-04_JPRB,2.3209E-04_JPRB,4.4871E-04_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&1.1889E-06_JPRB,5.6183E-05_JPRB,9.9863E-05_JPRB,1.3905E-04_JPRB,1.7391E-04_JPRB,2.0522E-04_JPRB,&
+&2.3142E-04_JPRB,2.5135E-04_JPRB,2.4267E-04_JPRB,4.7818E-04_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&1.5235E-06_JPRB,6.2281E-05_JPRB,1.0874E-04_JPRB,1.5023E-04_JPRB,1.8755E-04_JPRB,2.1980E-04_JPRB,&
+&2.4617E-04_JPRB,2.6379E-04_JPRB,2.5784E-04_JPRB,5.1708E-04_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&7.1418E-07_JPRB,3.8921E-05_JPRB,7.0891E-05_JPRB,9.9889E-05_JPRB,1.2597E-04_JPRB,1.4799E-04_JPRB,&
+&1.6453E-04_JPRB,1.7513E-04_JPRB,1.6667E-04_JPRB,3.4309E-04_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&7.2895E-07_JPRB,4.0284E-05_JPRB,7.2945E-05_JPRB,1.0221E-04_JPRB,1.2923E-04_JPRB,1.5309E-04_JPRB,&
+&1.7258E-04_JPRB,1.8229E-04_JPRB,1.7386E-04_JPRB,3.5109E-04_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&8.1079E-07_JPRB,4.2576E-05_JPRB,7.6659E-05_JPRB,1.0692E-04_JPRB,1.3449E-04_JPRB,1.5961E-04_JPRB,&
+&1.8026E-04_JPRB,1.9704E-04_JPRB,1.9240E-04_JPRB,3.6700E-04_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&9.8001E-07_JPRB,4.6149E-05_JPRB,8.1932E-05_JPRB,1.1406E-04_JPRB,1.4271E-04_JPRB,1.6841E-04_JPRB,&
+&1.8992E-04_JPRB,2.0617E-04_JPRB,1.9928E-04_JPRB,3.9092E-04_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&1.2528E-06_JPRB,5.1280E-05_JPRB,8.9359E-05_JPRB,1.2338E-04_JPRB,1.5401E-04_JPRB,1.8056E-04_JPRB,&
+&2.0225E-04_JPRB,2.1672E-04_JPRB,2.1360E-04_JPRB,4.2252E-04_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&6.1207E-05_JPRB,1.0978E-03_JPRB,1.7611E-03_JPRB,2.3638E-03_JPRB,2.9057E-03_JPRB,3.3651E-03_JPRB,&
+&3.7137E-03_JPRB,3.8383E-03_JPRB,3.2297E-03_JPRB,2.4264E-03_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&8.5058E-05_JPRB,1.3292E-03_JPRB,2.0750E-03_JPRB,2.7338E-03_JPRB,3.3403E-03_JPRB,3.8629E-03_JPRB,&
+&4.2579E-03_JPRB,4.3337E-03_JPRB,3.4101E-03_JPRB,2.6736E-03_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&1.1682E-04_JPRB,1.6162E-03_JPRB,2.4689E-03_JPRB,3.1946E-03_JPRB,3.8719E-03_JPRB,4.4552E-03_JPRB,&
+&4.9076E-03_JPRB,4.9335E-03_JPRB,3.9022E-03_JPRB,2.9247E-03_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&1.5789E-04_JPRB,1.9668E-03_JPRB,2.9480E-03_JPRB,3.7669E-03_JPRB,4.5171E-03_JPRB,5.1682E-03_JPRB,&
+&5.6653E-03_JPRB,5.6499E-03_JPRB,4.0652E-03_JPRB,3.1515E-03_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&2.0990E-04_JPRB,2.3887E-03_JPRB,3.5299E-03_JPRB,4.4565E-03_JPRB,5.2844E-03_JPRB,6.0076E-03_JPRB,&
+&6.5551E-03_JPRB,6.4764E-03_JPRB,4.4385E-03_JPRB,3.4538E-03_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&4.6541E-05_JPRB,8.8674E-04_JPRB,1.4099E-03_JPRB,1.8864E-03_JPRB,2.3180E-03_JPRB,2.6798E-03_JPRB,&
+&2.9613E-03_JPRB,3.0615E-03_JPRB,2.6597E-03_JPRB,1.8872E-03_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&6.5339E-05_JPRB,1.0747E-03_JPRB,1.6670E-03_JPRB,2.1855E-03_JPRB,2.6622E-03_JPRB,3.0710E-03_JPRB,&
+&3.3862E-03_JPRB,3.4584E-03_JPRB,2.7852E-03_JPRB,2.0782E-03_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&9.0589E-05_JPRB,1.3082E-03_JPRB,1.9947E-03_JPRB,2.5634E-03_JPRB,3.0860E-03_JPRB,3.5379E-03_JPRB,&
+&3.8975E-03_JPRB,3.9366E-03_JPRB,3.1668E-03_JPRB,2.2590E-03_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&1.2385E-04_JPRB,1.5968E-03_JPRB,2.3941E-03_JPRB,3.0350E-03_JPRB,3.6067E-03_JPRB,4.1057E-03_JPRB,&
+&4.4942E-03_JPRB,4.5107E-03_JPRB,3.2782E-03_JPRB,2.4504E-03_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&1.6667E-04_JPRB,1.9480E-03_JPRB,2.8786E-03_JPRB,3.6064E-03_JPRB,4.2370E-03_JPRB,4.7805E-03_JPRB,&
+&5.2024E-03_JPRB,5.1677E-03_JPRB,3.5425E-03_JPRB,2.6975E-03_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&3.2922E-05_JPRB,6.8654E-04_JPRB,1.0970E-03_JPRB,1.4654E-03_JPRB,1.8051E-03_JPRB,2.0847E-03_JPRB,&
+&2.3088E-03_JPRB,2.3837E-03_JPRB,2.1265E-03_JPRB,1.4540E-03_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&4.6583E-05_JPRB,8.3015E-04_JPRB,1.2948E-03_JPRB,1.6958E-03_JPRB,2.0663E-03_JPRB,2.3792E-03_JPRB,&
+&2.6229E-03_JPRB,2.6951E-03_JPRB,2.2518E-03_JPRB,1.5969E-03_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&6.5410E-05_JPRB,1.0114E-03_JPRB,1.5518E-03_JPRB,1.9919E-03_JPRB,2.3944E-03_JPRB,2.7366E-03_JPRB,&
+&3.0098E-03_JPRB,3.0595E-03_JPRB,2.4530E-03_JPRB,1.7299E-03_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&9.0734E-05_JPRB,1.2366E-03_JPRB,1.8688E-03_JPRB,2.3652E-03_JPRB,2.8005E-03_JPRB,3.1725E-03_JPRB,&
+&3.4706E-03_JPRB,3.5000E-03_JPRB,2.6641E-03_JPRB,1.8912E-03_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&1.2407E-04_JPRB,1.5126E-03_JPRB,2.2510E-03_JPRB,2.8211E-03_JPRB,3.2989E-03_JPRB,3.7001E-03_JPRB,&
+&4.0161E-03_JPRB,4.0075E-03_JPRB,2.7798E-03_JPRB,2.0796E-03_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&2.2778E-05_JPRB,5.2510E-04_JPRB,8.4888E-04_JPRB,1.1352E-03_JPRB,1.3979E-03_JPRB,1.6168E-03_JPRB,&
+&1.7964E-03_JPRB,1.8331E-03_JPRB,1.7837E-03_JPRB,1.1723E-03_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&3.2363E-05_JPRB,6.3086E-04_JPRB,9.9709E-04_JPRB,1.3073E-03_JPRB,1.5943E-03_JPRB,1.8366E-03_JPRB,&
+&2.0244E-03_JPRB,2.0875E-03_JPRB,1.8124E-03_JPRB,1.2732E-03_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&4.5962E-05_JPRB,7.6788E-04_JPRB,1.1912E-03_JPRB,1.5347E-03_JPRB,1.8433E-03_JPRB,2.1077E-03_JPRB,&
+&2.3135E-03_JPRB,2.3586E-03_JPRB,1.8966E-03_JPRB,1.3806E-03_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&6.4739E-05_JPRB,9.3992E-04_JPRB,1.4352E-03_JPRB,1.8248E-03_JPRB,2.1580E-03_JPRB,2.4403E-03_JPRB,&
+&2.6639E-03_JPRB,2.6893E-03_JPRB,2.1413E-03_JPRB,1.4999E-03_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&9.0009E-05_JPRB,1.1535E-03_JPRB,1.7330E-03_JPRB,2.1811E-03_JPRB,2.5487E-03_JPRB,2.8464E-03_JPRB,&
+&3.0813E-03_JPRB,3.0811E-03_JPRB,2.2013E-03_JPRB,1.6370E-03_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&1.5792E-05_JPRB,4.0148E-04_JPRB,6.5831E-04_JPRB,8.8434E-04_JPRB,1.0869E-03_JPRB,1.2568E-03_JPRB,&
+&1.4030E-03_JPRB,1.4157E-03_JPRB,1.3790E-03_JPRB,9.9471E-04_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&2.2397E-05_JPRB,4.7887E-04_JPRB,7.6705E-04_JPRB,1.0113E-03_JPRB,1.2329E-03_JPRB,1.4202E-03_JPRB,&
+&1.5687E-03_JPRB,1.6184E-03_JPRB,1.4582E-03_JPRB,1.0698E-03_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&3.2096E-05_JPRB,5.8078E-04_JPRB,9.1183E-04_JPRB,1.1823E-03_JPRB,1.4221E-03_JPRB,1.6260E-03_JPRB,&
+&1.7823E-03_JPRB,1.8208E-03_JPRB,1.5493E-03_JPRB,1.1486E-03_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&4.5840E-05_JPRB,7.1160E-04_JPRB,1.0969E-03_JPRB,1.4034E-03_JPRB,1.6628E-03_JPRB,1.8804E-03_JPRB,&
+&2.0470E-03_JPRB,2.0686E-03_JPRB,1.6540E-03_JPRB,1.2365E-03_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&6.4822E-05_JPRB,8.7496E-04_JPRB,1.3269E-03_JPRB,1.6793E-03_JPRB,1.9658E-03_JPRB,2.1946E-03_JPRB,&
+&2.3671E-03_JPRB,2.3677E-03_JPRB,1.7812E-03_JPRB,1.3376E-03_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&1.0902E-05_JPRB,3.0605E-04_JPRB,5.1028E-04_JPRB,6.8853E-04_JPRB,8.4488E-04_JPRB,9.7840E-04_JPRB,&
+&1.0974E-03_JPRB,1.1101E-03_JPRB,1.0645E-03_JPRB,8.6648E-04_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&1.5301E-05_JPRB,3.6130E-04_JPRB,5.8719E-04_JPRB,7.8079E-04_JPRB,9.5252E-04_JPRB,1.0959E-03_JPRB,&
+&1.2152E-03_JPRB,1.2397E-03_JPRB,1.2046E-03_JPRB,9.1885E-04_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&2.2016E-05_JPRB,4.3548E-04_JPRB,6.9267E-04_JPRB,9.0511E-04_JPRB,1.0924E-03_JPRB,1.2498E-03_JPRB,&
+&1.3720E-03_JPRB,1.4053E-03_JPRB,1.2319E-03_JPRB,9.7396E-04_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&3.1830E-05_JPRB,5.3317E-04_JPRB,8.3063E-04_JPRB,1.0698E-03_JPRB,1.2734E-03_JPRB,1.4418E-03_JPRB,&
+&1.5687E-03_JPRB,1.5881E-03_JPRB,1.2775E-03_JPRB,1.0399E-03_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&4.5738E-05_JPRB,6.5696E-04_JPRB,1.0039E-03_JPRB,1.2790E-03_JPRB,1.5021E-03_JPRB,1.6812E-03_JPRB,&
+&1.8119E-03_JPRB,1.8117E-03_JPRB,1.4274E-03_JPRB,1.1156E-03_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&7.6369E-06_JPRB,2.3409E-04_JPRB,3.9662E-04_JPRB,5.3736E-04_JPRB,6.5954E-04_JPRB,7.6628E-04_JPRB,&
+&8.6324E-04_JPRB,8.8119E-04_JPRB,8.6194E-04_JPRB,7.9079E-04_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&1.0494E-05_JPRB,2.7293E-04_JPRB,4.5033E-04_JPRB,6.0419E-04_JPRB,7.3771E-04_JPRB,8.4846E-04_JPRB,&
+&9.4512E-04_JPRB,9.5497E-04_JPRB,9.2999E-04_JPRB,8.2387E-04_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&1.5059E-05_JPRB,3.2612E-04_JPRB,5.2570E-04_JPRB,6.9285E-04_JPRB,8.4056E-04_JPRB,9.6214E-04_JPRB,&
+&1.0579E-03_JPRB,1.0868E-03_JPRB,9.8600E-04_JPRB,8.6421E-04_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&2.1973E-05_JPRB,3.9766E-04_JPRB,6.2716E-04_JPRB,8.1307E-04_JPRB,9.7314E-04_JPRB,1.1062E-03_JPRB,&
+&1.2052E-03_JPRB,1.2224E-03_JPRB,1.0473E-03_JPRB,9.1386E-04_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&3.2024E-05_JPRB,4.9023E-04_JPRB,7.5693E-04_JPRB,9.6942E-04_JPRB,1.1441E-03_JPRB,1.2861E-03_JPRB,&
+&1.3873E-03_JPRB,1.3904E-03_JPRB,1.0995E-03_JPRB,9.7409E-04_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&5.4819E-06_JPRB,1.8022E-04_JPRB,3.0951E-04_JPRB,4.2109E-04_JPRB,5.1765E-04_JPRB,6.0434E-04_JPRB,&
+&6.7966E-04_JPRB,7.0414E-04_JPRB,7.0729E-04_JPRB,7.6543E-04_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&7.2946E-06_JPRB,2.0689E-04_JPRB,3.4673E-04_JPRB,4.6841E-04_JPRB,5.7263E-04_JPRB,6.6046E-04_JPRB,&
+&7.3949E-04_JPRB,7.4887E-04_JPRB,7.2137E-04_JPRB,7.8512E-04_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&1.0351E-05_JPRB,2.4457E-04_JPRB,3.9988E-04_JPRB,5.3188E-04_JPRB,6.4791E-04_JPRB,7.4247E-04_JPRB,&
+&8.1941E-04_JPRB,8.3495E-04_JPRB,8.1545E-04_JPRB,8.2107E-04_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&1.5156E-05_JPRB,2.9629E-04_JPRB,4.7365E-04_JPRB,6.1873E-04_JPRB,7.4454E-04_JPRB,8.4958E-04_JPRB,&
+&9.2854E-04_JPRB,9.4393E-04_JPRB,8.3940E-04_JPRB,8.7281E-04_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&2.2361E-05_JPRB,3.6482E-04_JPRB,5.6983E-04_JPRB,7.3407E-04_JPRB,8.7045E-04_JPRB,9.8366E-04_JPRB,&
+&1.0651E-03_JPRB,1.0698E-03_JPRB,8.6698E-04_JPRB,9.3613E-04_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&4.0452E-06_JPRB,1.4017E-04_JPRB,2.4329E-04_JPRB,3.3218E-04_JPRB,4.0925E-04_JPRB,4.8103E-04_JPRB,&
+&5.3918E-04_JPRB,5.6100E-04_JPRB,5.6501E-04_JPRB,8.0970E-04_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&5.1567E-06_JPRB,1.5795E-04_JPRB,2.6863E-04_JPRB,3.6500E-04_JPRB,4.4688E-04_JPRB,5.1756E-04_JPRB,&
+&5.8306E-04_JPRB,5.9423E-04_JPRB,5.8894E-04_JPRB,8.6646E-04_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&7.1657E-06_JPRB,1.8427E-04_JPRB,3.0563E-04_JPRB,4.1026E-04_JPRB,5.0076E-04_JPRB,5.7510E-04_JPRB,&
+&6.3796E-04_JPRB,6.4416E-04_JPRB,6.2814E-04_JPRB,9.4589E-04_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&1.0454E-05_JPRB,2.2117E-04_JPRB,3.5855E-04_JPRB,4.7222E-04_JPRB,5.7137E-04_JPRB,6.5350E-04_JPRB,&
+&7.1676E-04_JPRB,7.3182E-04_JPRB,6.7180E-04_JPRB,1.0445E-03_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&1.5554E-05_JPRB,2.7129E-04_JPRB,4.2902E-04_JPRB,5.5622E-04_JPRB,6.6296E-04_JPRB,7.5220E-04_JPRB,&
+&8.1926E-04_JPRB,8.2534E-04_JPRB,7.1317E-04_JPRB,1.1567E-03_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&3.1057E-06_JPRB,1.1083E-04_JPRB,1.9379E-04_JPRB,2.6511E-04_JPRB,3.2793E-04_JPRB,3.8622E-04_JPRB,&
+&4.3071E-04_JPRB,4.4441E-04_JPRB,4.5952E-04_JPRB,8.8174E-04_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&3.7991E-06_JPRB,1.2283E-04_JPRB,2.1113E-04_JPRB,2.8821E-04_JPRB,3.5348E-04_JPRB,4.1112E-04_JPRB,&
+&4.6174E-04_JPRB,4.7717E-04_JPRB,4.8657E-04_JPRB,9.8685E-04_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&5.1499E-06_JPRB,1.4143E-04_JPRB,2.3734E-04_JPRB,3.2100E-04_JPRB,3.9236E-04_JPRB,4.5145E-04_JPRB,&
+&5.0315E-04_JPRB,5.0792E-04_JPRB,4.9406E-04_JPRB,1.1242E-03_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&7.4528E-06_JPRB,1.6827E-04_JPRB,2.7574E-04_JPRB,3.6613E-04_JPRB,4.4442E-04_JPRB,5.0912E-04_JPRB,&
+&5.6026E-04_JPRB,5.7140E-04_JPRB,5.5681E-04_JPRB,1.2935E-03_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&1.1134E-05_JPRB,2.0532E-04_JPRB,3.2832E-04_JPRB,4.2825E-04_JPRB,5.1275E-04_JPRB,5.8331E-04_JPRB,&
+&6.3709E-04_JPRB,6.4447E-04_JPRB,5.7554E-04_JPRB,1.4892E-03_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&2.5793E-06_JPRB,9.1386E-05_JPRB,1.5991E-04_JPRB,2.1914E-04_JPRB,2.7076E-04_JPRB,3.1821E-04_JPRB,&
+&3.5500E-04_JPRB,3.6871E-04_JPRB,3.7899E-04_JPRB,8.3339E-04_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&3.1932E-06_JPRB,1.0152E-04_JPRB,1.7439E-04_JPRB,2.3840E-04_JPRB,2.9253E-04_JPRB,3.3975E-04_JPRB,&
+&3.8122E-04_JPRB,3.9384E-04_JPRB,4.0567E-04_JPRB,9.5074E-04_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&4.3709E-06_JPRB,1.1728E-04_JPRB,1.9656E-04_JPRB,2.6595E-04_JPRB,3.2495E-04_JPRB,3.7366E-04_JPRB,&
+&4.1570E-04_JPRB,4.1965E-04_JPRB,4.1122E-04_JPRB,1.0992E-03_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&6.3954E-06_JPRB,1.4000E-04_JPRB,2.2922E-04_JPRB,3.0419E-04_JPRB,3.6879E-04_JPRB,4.2168E-04_JPRB,&
+&4.6345E-04_JPRB,4.7319E-04_JPRB,4.5954E-04_JPRB,1.2804E-03_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&9.6174E-06_JPRB,1.7120E-04_JPRB,2.7357E-04_JPRB,3.5711E-04_JPRB,4.2654E-04_JPRB,4.8415E-04_JPRB,&
+&5.2775E-04_JPRB,5.3321E-04_JPRB,4.7537E-04_JPRB,1.4946E-03_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&2.1449E-06_JPRB,7.5185E-05_JPRB,1.3159E-04_JPRB,1.8068E-04_JPRB,2.2335E-04_JPRB,2.6198E-04_JPRB,&
+&2.9235E-04_JPRB,3.0350E-04_JPRB,3.1256E-04_JPRB,7.2986E-04_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&2.6849E-06_JPRB,8.3739E-05_JPRB,1.4370E-04_JPRB,1.9666E-04_JPRB,2.4153E-04_JPRB,2.8046E-04_JPRB,&
+&3.1445E-04_JPRB,3.2440E-04_JPRB,3.3814E-04_JPRB,8.3896E-04_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&3.7120E-06_JPRB,9.7072E-05_JPRB,1.6242E-04_JPRB,2.1974E-04_JPRB,2.6866E-04_JPRB,3.0880E-04_JPRB,&
+&3.4296E-04_JPRB,3.4655E-04_JPRB,3.4183E-04_JPRB,9.7914E-04_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&5.4750E-06_JPRB,1.1621E-04_JPRB,1.9012E-04_JPRB,2.5210E-04_JPRB,3.0547E-04_JPRB,3.4901E-04_JPRB,&
+&3.8299E-04_JPRB,3.9098E-04_JPRB,3.8045E-04_JPRB,1.1499E-03_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&8.2703E-06_JPRB,1.4241E-04_JPRB,2.2731E-04_JPRB,2.9701E-04_JPRB,3.5442E-04_JPRB,4.0147E-04_JPRB,&
+&4.3679E-04_JPRB,4.4039E-04_JPRB,3.9154E-04_JPRB,1.3496E-03_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&1.7830E-06_JPRB,6.1545E-05_JPRB,1.0776E-04_JPRB,1.4816E-04_JPRB,1.8346E-04_JPRB,2.1518E-04_JPRB,&
+&2.4003E-04_JPRB,2.4920E-04_JPRB,2.5855E-04_JPRB,6.0483E-04_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&2.2523E-06_JPRB,6.8708E-05_JPRB,1.1787E-04_JPRB,1.6139E-04_JPRB,1.9846E-04_JPRB,2.3065E-04_JPRB,&
+&2.5831E-04_JPRB,2.6663E-04_JPRB,2.8115E-04_JPRB,6.9533E-04_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&3.1394E-06_JPRB,7.9894E-05_JPRB,1.3357E-04_JPRB,1.8071E-04_JPRB,2.2106E-04_JPRB,2.5423E-04_JPRB,&
+&2.8211E-04_JPRB,2.8541E-04_JPRB,2.8437E-04_JPRB,8.1181E-04_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&4.6431E-06_JPRB,9.5872E-05_JPRB,1.5677E-04_JPRB,2.0791E-04_JPRB,2.5190E-04_JPRB,2.8785E-04_JPRB,&
+&3.1567E-04_JPRB,3.2214E-04_JPRB,3.1077E-04_JPRB,9.5374E-04_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&7.0293E-06_JPRB,1.1782E-04_JPRB,1.8782E-04_JPRB,2.4556E-04_JPRB,2.9310E-04_JPRB,3.3172E-04_JPRB,&
+&3.6069E-04_JPRB,3.6276E-04_JPRB,3.2321E-04_JPRB,1.1190E-03_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&3.1395E-04_JPRB,2.3358E-03_JPRB,3.6695E-03_JPRB,4.7583E-03_JPRB,5.6300E-03_JPRB,6.3084E-03_JPRB,&
+&6.4459E-03_JPRB,5.6476E-03_JPRB,4.3114E-03_JPRB,3.5359E-03_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&4.4041E-04_JPRB,2.8550E-03_JPRB,4.4288E-03_JPRB,5.7337E-03_JPRB,6.7703E-03_JPRB,7.4874E-03_JPRB,&
+&7.5852E-03_JPRB,6.6048E-03_JPRB,4.4609E-03_JPRB,3.7307E-03_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&6.0889E-04_JPRB,3.4990E-03_JPRB,5.3318E-03_JPRB,6.8783E-03_JPRB,8.0899E-03_JPRB,8.8562E-03_JPRB,&
+&8.8659E-03_JPRB,7.6998E-03_JPRB,5.0834E-03_JPRB,4.1606E-03_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&8.2945E-04_JPRB,4.2967E-03_JPRB,6.4106E-03_JPRB,8.2013E-03_JPRB,9.6038E-03_JPRB,1.0382E-02_JPRB,&
+&1.0298E-02_JPRB,8.9419E-03_JPRB,6.1506E-03_JPRB,4.8030E-03_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&1.1111E-03_JPRB,5.2640E-03_JPRB,7.6785E-03_JPRB,9.7243E-03_JPRB,1.1313E-02_JPRB,1.2073E-02_JPRB,&
+&1.1918E-02_JPRB,1.0340E-02_JPRB,7.2231E-03_JPRB,5.5559E-03_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&2.5786E-04_JPRB,1.8689E-03_JPRB,2.9171E-03_JPRB,3.7655E-03_JPRB,4.4557E-03_JPRB,4.9851E-03_JPRB,&
+&5.0877E-03_JPRB,4.4987E-03_JPRB,3.5624E-03_JPRB,2.7823E-03_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&3.6518E-04_JPRB,2.2982E-03_JPRB,3.5229E-03_JPRB,4.5348E-03_JPRB,5.3627E-03_JPRB,5.9413E-03_JPRB,&
+&6.0131E-03_JPRB,5.2796E-03_JPRB,3.6528E-03_JPRB,2.9862E-03_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&5.0963E-04_JPRB,2.8326E-03_JPRB,4.2490E-03_JPRB,5.4478E-03_JPRB,6.4291E-03_JPRB,7.0522E-03_JPRB,&
+&7.0637E-03_JPRB,6.1794E-03_JPRB,4.0832E-03_JPRB,3.3326E-03_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&7.0041E-04_JPRB,3.4946E-03_JPRB,5.1315E-03_JPRB,6.5181E-03_JPRB,7.6574E-03_JPRB,8.3039E-03_JPRB,&
+&8.2501E-03_JPRB,7.2013E-03_JPRB,4.9579E-03_JPRB,3.8182E-03_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&9.4509E-04_JPRB,4.3042E-03_JPRB,6.1780E-03_JPRB,7.7645E-03_JPRB,9.0552E-03_JPRB,9.6970E-03_JPRB,&
+&9.5937E-03_JPRB,8.3644E-03_JPRB,5.8475E-03_JPRB,4.3744E-03_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&1.9379E-04_JPRB,1.4316E-03_JPRB,2.2324E-03_JPRB,2.8735E-03_JPRB,3.3970E-03_JPRB,3.8041E-03_JPRB,&
+&3.8802E-03_JPRB,3.4669E-03_JPRB,2.9119E-03_JPRB,2.1744E-03_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&2.7770E-04_JPRB,1.7674E-03_JPRB,2.7001E-03_JPRB,3.4577E-03_JPRB,4.0882E-03_JPRB,4.5451E-03_JPRB,&
+&4.6130E-03_JPRB,4.0692E-03_JPRB,2.9379E-03_JPRB,2.3588E-03_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&3.9251E-04_JPRB,2.1938E-03_JPRB,3.2645E-03_JPRB,4.1604E-03_JPRB,4.9099E-03_JPRB,5.4125E-03_JPRB,&
+&5.4492E-03_JPRB,4.7846E-03_JPRB,3.2003E-03_JPRB,2.6346E-03_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&5.4605E-04_JPRB,2.7278E-03_JPRB,3.9609E-03_JPRB,4.9977E-03_JPRB,5.8740E-03_JPRB,6.4067E-03_JPRB,&
+&6.4003E-03_JPRB,5.6054E-03_JPRB,3.7732E-03_JPRB,2.9860E-03_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&7.4466E-04_JPRB,3.3848E-03_JPRB,4.8045E-03_JPRB,5.9823E-03_JPRB,6.9787E-03_JPRB,7.5209E-03_JPRB,&
+&7.4708E-03_JPRB,6.5433E-03_JPRB,4.5620E-03_JPRB,3.3966E-03_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&1.4015E-04_JPRB,1.0813E-03_JPRB,1.6854E-03_JPRB,2.1729E-03_JPRB,2.5709E-03_JPRB,2.8772E-03_JPRB,&
+&2.9317E-03_JPRB,2.6451E-03_JPRB,2.2657E-03_JPRB,1.7383E-03_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&2.0311E-04_JPRB,1.3407E-03_JPRB,2.0417E-03_JPRB,2.6162E-03_JPRB,3.0900E-03_JPRB,3.4371E-03_JPRB,&
+&3.4970E-03_JPRB,3.1030E-03_JPRB,2.4331E-03_JPRB,1.8807E-03_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&2.9086E-04_JPRB,1.6740E-03_JPRB,2.4810E-03_JPRB,3.1478E-03_JPRB,3.7091E-03_JPRB,4.1012E-03_JPRB,&
+&4.1503E-03_JPRB,3.6669E-03_JPRB,2.5193E-03_JPRB,2.0853E-03_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&4.1019E-04_JPRB,2.0975E-03_JPRB,3.0276E-03_JPRB,3.7932E-03_JPRB,4.4503E-03_JPRB,4.8736E-03_JPRB,&
+&4.8948E-03_JPRB,4.3129E-03_JPRB,2.8422E-03_JPRB,2.3481E-03_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&5.6658E-04_JPRB,2.6213E-03_JPRB,3.6972E-03_JPRB,4.5663E-03_JPRB,5.3124E-03_JPRB,5.7564E-03_JPRB,&
+&5.7449E-03_JPRB,5.0602E-03_JPRB,3.4831E-03_JPRB,2.6607E-03_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&1.0005E-04_JPRB,8.1751E-04_JPRB,1.2728E-03_JPRB,1.6409E-03_JPRB,1.9492E-03_JPRB,2.1828E-03_JPRB,&
+&2.2210E-03_JPRB,2.0236E-03_JPRB,1.7728E-03_JPRB,1.4477E-03_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&1.4628E-04_JPRB,1.0154E-03_JPRB,1.5439E-03_JPRB,1.9778E-03_JPRB,2.3404E-03_JPRB,2.6065E-03_JPRB,&
+&2.6499E-03_JPRB,2.3648E-03_JPRB,1.9853E-03_JPRB,1.5598E-03_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&2.1213E-04_JPRB,1.2737E-03_JPRB,1.8830E-03_JPRB,2.3878E-03_JPRB,2.8089E-03_JPRB,3.1116E-03_JPRB,&
+&3.1584E-03_JPRB,2.8055E-03_JPRB,1.9979E-03_JPRB,1.7165E-03_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&3.0316E-04_JPRB,1.6037E-03_JPRB,2.3102E-03_JPRB,2.8890E-03_JPRB,3.3732E-03_JPRB,3.7052E-03_JPRB,&
+&3.7386E-03_JPRB,3.3128E-03_JPRB,2.1889E-03_JPRB,1.9135E-03_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&4.2437E-04_JPRB,2.0170E-03_JPRB,2.8415E-03_JPRB,3.4970E-03_JPRB,4.0448E-03_JPRB,4.3946E-03_JPRB,&
+&4.4054E-03_JPRB,3.8956E-03_JPRB,2.6089E-03_JPRB,2.1456E-03_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&6.9848E-05_JPRB,6.1344E-04_JPRB,9.5427E-04_JPRB,1.2333E-03_JPRB,1.4696E-03_JPRB,1.6459E-03_JPRB,&
+&1.6778E-03_JPRB,1.5491E-03_JPRB,1.4340E-03_JPRB,1.2155E-03_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&1.0287E-04_JPRB,7.6231E-04_JPRB,1.1596E-03_JPRB,1.4875E-03_JPRB,1.7602E-03_JPRB,1.9644E-03_JPRB,&
+&1.9987E-03_JPRB,1.8015E-03_JPRB,1.5475E-03_JPRB,1.3106E-03_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&1.5064E-04_JPRB,9.5897E-04_JPRB,1.4184E-03_JPRB,1.7997E-03_JPRB,2.1174E-03_JPRB,2.3481E-03_JPRB,&
+&2.3855E-03_JPRB,2.1239E-03_JPRB,1.6664E-03_JPRB,1.4397E-03_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&2.1812E-04_JPRB,1.2102E-03_JPRB,1.7485E-03_JPRB,2.1875E-03_JPRB,2.5486E-03_JPRB,2.8028E-03_JPRB,&
+&2.8356E-03_JPRB,2.5206E-03_JPRB,1.7195E-03_JPRB,1.5934E-03_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&3.0969E-04_JPRB,1.5273E-03_JPRB,2.1634E-03_JPRB,2.6620E-03_JPRB,3.0695E-03_JPRB,3.3380E-03_JPRB,&
+&3.3515E-03_JPRB,2.9746E-03_JPRB,1.9515E-03_JPRB,1.7778E-03_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&4.8221E-05_JPRB,4.6010E-04_JPRB,7.1481E-04_JPRB,9.2859E-04_JPRB,1.1100E-03_JPRB,1.2408E-03_JPRB,&
+&1.2683E-03_JPRB,1.1941E-03_JPRB,1.1654E-03_JPRB,1.0618E-03_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&7.1316E-05_JPRB,5.6993E-04_JPRB,8.6994E-04_JPRB,1.1165E-03_JPRB,1.3220E-03_JPRB,1.4781E-03_JPRB,&
+&1.5050E-03_JPRB,1.3757E-03_JPRB,1.2140E-03_JPRB,1.1427E-03_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&1.0540E-04_JPRB,7.1740E-04_JPRB,1.0671E-03_JPRB,1.3546E-03_JPRB,1.5921E-03_JPRB,1.7675E-03_JPRB,&
+&1.7993E-03_JPRB,1.6085E-03_JPRB,1.3409E-03_JPRB,1.2460E-03_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&1.5421E-04_JPRB,9.0675E-04_JPRB,1.3194E-03_JPRB,1.6531E-03_JPRB,1.9239E-03_JPRB,2.1163E-03_JPRB,&
+&2.1446E-03_JPRB,1.9118E-03_JPRB,1.3549E-03_JPRB,1.3702E-03_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&2.2207E-04_JPRB,1.1485E-03_JPRB,1.6379E-03_JPRB,2.0236E-03_JPRB,2.3292E-03_JPRB,2.5319E-03_JPRB,&
+&2.5452E-03_JPRB,2.2618E-03_JPRB,1.4884E-03_JPRB,1.5202E-03_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&3.3024E-05_JPRB,3.4530E-04_JPRB,5.3688E-04_JPRB,7.0115E-04_JPRB,8.4229E-04_JPRB,9.3889E-04_JPRB,&
+&9.6725E-04_JPRB,9.1694E-04_JPRB,9.1670E-04_JPRB,1.0135E-03_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&4.8867E-05_JPRB,4.2560E-04_JPRB,6.5145E-04_JPRB,8.3778E-04_JPRB,9.9544E-04_JPRB,1.1134E-03_JPRB,&
+&1.1345E-03_JPRB,1.0538E-03_JPRB,9.7113E-04_JPRB,1.0857E-03_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&7.2825E-05_JPRB,5.3471E-04_JPRB,8.0022E-04_JPRB,1.0181E-03_JPRB,1.1967E-03_JPRB,1.3302E-03_JPRB,&
+&1.3547E-03_JPRB,1.2266E-03_JPRB,1.0446E-03_JPRB,1.1774E-03_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&1.0774E-04_JPRB,6.7652E-04_JPRB,9.9081E-04_JPRB,1.2458E-03_JPRB,1.4508E-03_JPRB,1.5976E-03_JPRB,&
+&1.6199E-03_JPRB,1.4510E-03_JPRB,1.1389E-03_JPRB,1.2913E-03_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&1.5712E-04_JPRB,8.5893E-04_JPRB,1.2330E-03_JPRB,1.5318E-03_JPRB,1.7648E-03_JPRB,1.9188E-03_JPRB,&
+&1.9298E-03_JPRB,1.7197E-03_JPRB,1.1585E-03_JPRB,1.4301E-03_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&2.2694E-05_JPRB,2.5964E-04_JPRB,4.0587E-04_JPRB,5.3244E-04_JPRB,6.4307E-04_JPRB,7.1486E-04_JPRB,&
+&7.4240E-04_JPRB,7.1164E-04_JPRB,7.2273E-04_JPRB,1.2493E-03_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&3.3403E-05_JPRB,3.1851E-04_JPRB,4.8826E-04_JPRB,6.2982E-04_JPRB,7.5282E-04_JPRB,8.4067E-04_JPRB,&
+&8.5777E-04_JPRB,8.1055E-04_JPRB,7.8048E-04_JPRB,1.3812E-03_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&5.0028E-05_JPRB,3.9826E-04_JPRB,5.9931E-04_JPRB,7.6424E-04_JPRB,9.0031E-04_JPRB,1.0018E-03_JPRB,&
+&1.0201E-03_JPRB,9.3771E-04_JPRB,8.2897E-04_JPRB,1.5248E-03_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&7.4767E-05_JPRB,5.0392E-04_JPRB,7.4141E-04_JPRB,9.3676E-04_JPRB,1.0930E-03_JPRB,1.2050E-03_JPRB,&
+&1.2228E-03_JPRB,1.0983E-03_JPRB,9.0134E-04_JPRB,1.6871E-03_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&1.1035E-04_JPRB,6.4097E-04_JPRB,9.2434E-04_JPRB,1.1532E-03_JPRB,1.3334E-03_JPRB,1.4526E-03_JPRB,&
+&1.4614E-03_JPRB,1.3054E-03_JPRB,9.1810E-04_JPRB,1.8727E-03_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&1.6131E-05_JPRB,1.9889E-04_JPRB,3.1275E-04_JPRB,4.1228E-04_JPRB,4.9839E-04_JPRB,5.5623E-04_JPRB,&
+&5.8253E-04_JPRB,5.6343E-04_JPRB,5.6050E-04_JPRB,1.5889E-03_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&2.3548E-05_JPRB,2.4279E-04_JPRB,3.7289E-04_JPRB,4.8222E-04_JPRB,5.7912E-04_JPRB,6.4486E-04_JPRB,&
+&6.6265E-04_JPRB,6.3391E-04_JPRB,6.2287E-04_JPRB,1.8970E-03_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&3.5345E-05_JPRB,3.0213E-04_JPRB,4.5662E-04_JPRB,5.8302E-04_JPRB,6.8872E-04_JPRB,7.6652E-04_JPRB,&
+&7.8037E-04_JPRB,7.2531E-04_JPRB,6.6020E-04_JPRB,2.2611E-03_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&5.3207E-05_JPRB,3.8181E-04_JPRB,5.6403E-04_JPRB,7.1428E-04_JPRB,8.3596E-04_JPRB,9.2165E-04_JPRB,&
+&9.3562E-04_JPRB,8.4502E-04_JPRB,7.1249E-04_JPRB,2.6676E-03_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&7.9349E-05_JPRB,4.8668E-04_JPRB,7.0365E-04_JPRB,8.7954E-04_JPRB,1.0204E-03_JPRB,1.1145E-03_JPRB,&
+&1.1232E-03_JPRB,1.0045E-03_JPRB,7.7476E-04_JPRB,3.1110E-03_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&1.3601E-05_JPRB,1.6644E-04_JPRB,2.6059E-04_JPRB,3.4190E-04_JPRB,4.1323E-04_JPRB,4.6098E-04_JPRB,&
+&4.8236E-04_JPRB,4.6602E-04_JPRB,4.6408E-04_JPRB,1.7060E-03_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&2.0015E-05_JPRB,2.0390E-04_JPRB,3.1274E-04_JPRB,4.0248E-04_JPRB,4.8157E-04_JPRB,5.3553E-04_JPRB,&
+&5.5000E-04_JPRB,5.2592E-04_JPRB,5.1327E-04_JPRB,2.0930E-03_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&3.0229E-05_JPRB,2.5493E-04_JPRB,3.8325E-04_JPRB,4.8838E-04_JPRB,5.7590E-04_JPRB,6.3868E-04_JPRB,&
+&6.4952E-04_JPRB,6.0329E-04_JPRB,5.4354E-04_JPRB,2.5341E-03_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&4.5728E-05_JPRB,3.2357E-04_JPRB,4.7513E-04_JPRB,5.9900E-04_JPRB,7.0032E-04_JPRB,7.7052E-04_JPRB,&
+&7.8160E-04_JPRB,7.0364E-04_JPRB,5.8867E-04_JPRB,3.0110E-03_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&6.8471E-05_JPRB,4.1453E-04_JPRB,5.9518E-04_JPRB,7.3943E-04_JPRB,8.5586E-04_JPRB,9.3243E-04_JPRB,&
+&9.3985E-04_JPRB,8.3888E-04_JPRB,6.4004E-04_JPRB,3.5144E-03_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&1.1390E-05_JPRB,1.3855E-04_JPRB,2.1705E-04_JPRB,2.8356E-04_JPRB,3.4198E-04_JPRB,3.8125E-04_JPRB,&
+&3.9897E-04_JPRB,3.8701E-04_JPRB,3.8428E-04_JPRB,1.6202E-03_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&1.6895E-05_JPRB,1.7033E-04_JPRB,2.6132E-04_JPRB,3.3574E-04_JPRB,4.0033E-04_JPRB,4.4440E-04_JPRB,&
+&4.5547E-04_JPRB,4.3453E-04_JPRB,4.1795E-04_JPRB,2.0056E-03_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&2.5697E-05_JPRB,2.1399E-04_JPRB,3.2079E-04_JPRB,4.0794E-04_JPRB,4.8080E-04_JPRB,5.3172E-04_JPRB,&
+&5.4015E-04_JPRB,5.0131E-04_JPRB,4.5062E-04_JPRB,2.4356E-03_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&3.9098E-05_JPRB,2.7301E-04_JPRB,3.9923E-04_JPRB,5.0137E-04_JPRB,5.8487E-04_JPRB,6.4185E-04_JPRB,&
+&6.5190E-04_JPRB,5.8598E-04_JPRB,4.9100E-04_JPRB,2.8992E-03_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&5.8880E-05_JPRB,3.5135E-04_JPRB,5.0233E-04_JPRB,6.2054E-04_JPRB,7.1596E-04_JPRB,7.7742E-04_JPRB,&
+&7.8406E-04_JPRB,7.0089E-04_JPRB,5.2975E-04_JPRB,3.3853E-03_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&9.3589E-06_JPRB,1.1404E-04_JPRB,1.7929E-04_JPRB,2.3424E-04_JPRB,2.8177E-04_JPRB,3.1382E-04_JPRB,&
+&3.2887E-04_JPRB,3.1939E-04_JPRB,3.1782E-04_JPRB,1.3712E-03_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&1.3997E-05_JPRB,1.4070E-04_JPRB,2.1638E-04_JPRB,2.7822E-04_JPRB,3.3131E-04_JPRB,3.6740E-04_JPRB,&
+&3.7618E-04_JPRB,3.5875E-04_JPRB,3.4257E-04_JPRB,1.6948E-03_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&2.1467E-05_JPRB,1.7760E-04_JPRB,2.6657E-04_JPRB,3.3860E-04_JPRB,3.9863E-04_JPRB,4.4020E-04_JPRB,&
+&4.4774E-04_JPRB,4.1503E-04_JPRB,3.7387E-04_JPRB,2.0555E-03_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&3.2939E-05_JPRB,2.2791E-04_JPRB,3.3320E-04_JPRB,4.1728E-04_JPRB,4.8576E-04_JPRB,5.3169E-04_JPRB,&
+&5.4072E-04_JPRB,4.8718E-04_JPRB,4.1358E-04_JPRB,2.4418E-03_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&5.0038E-05_JPRB,2.9443E-04_JPRB,4.2080E-04_JPRB,5.1807E-04_JPRB,5.9619E-04_JPRB,6.4532E-04_JPRB,&
+&6.5035E-04_JPRB,5.8360E-04_JPRB,4.3228E-04_JPRB,2.8426E-03_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&1.3959E-03_JPRB,5.9922E-03_JPRB,8.2316E-03_JPRB,9.8059E-03_JPRB,1.0613E-02_JPRB,1.0620E-02_JPRB,&
+&1.0007E-02_JPRB,8.7254E-03_JPRB,5.9465E-03_JPRB,5.3438E-03_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&1.8497E-03_JPRB,7.5460E-03_JPRB,1.0203E-02_JPRB,1.1955E-02_JPRB,1.2786E-02_JPRB,1.2712E-02_JPRB,&
+&1.1856E-02_JPRB,1.0291E-02_JPRB,7.1447E-03_JPRB,6.1713E-03_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&2.4455E-03_JPRB,9.3977E-03_JPRB,1.2548E-02_JPRB,1.4434E-02_JPRB,1.5252E-02_JPRB,1.5095E-02_JPRB,&
+&1.3989E-02_JPRB,1.2066E-02_JPRB,8.3510E-03_JPRB,7.1167E-03_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&3.2093E-03_JPRB,1.1523E-02_JPRB,1.5232E-02_JPRB,1.7235E-02_JPRB,1.8051E-02_JPRB,1.7818E-02_JPRB,&
+&1.6407E-02_JPRB,1.4008E-02_JPRB,9.7059E-03_JPRB,8.2637E-03_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&4.1640E-03_JPRB,1.3947E-02_JPRB,1.8138E-02_JPRB,2.0353E-02_JPRB,2.1133E-02_JPRB,2.0847E-02_JPRB,&
+&1.9064E-02_JPRB,1.6182E-02_JPRB,1.1218E-02_JPRB,9.5219E-03_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&1.1784E-03_JPRB,4.8259E-03_JPRB,6.5824E-03_JPRB,7.8076E-03_JPRB,8.3997E-03_JPRB,8.4013E-03_JPRB,&
+&7.9589E-03_JPRB,6.9035E-03_JPRB,4.7972E-03_JPRB,4.1536E-03_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&1.5660E-03_JPRB,6.0867E-03_JPRB,8.2146E-03_JPRB,9.5892E-03_JPRB,1.0197E-02_JPRB,1.0118E-02_JPRB,&
+&9.4816E-03_JPRB,8.1710E-03_JPRB,5.7311E-03_JPRB,4.7856E-03_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&2.0771E-03_JPRB,7.6156E-03_JPRB,1.0151E-02_JPRB,1.1655E-02_JPRB,1.2244E-02_JPRB,1.2103E-02_JPRB,&
+&1.1249E-02_JPRB,9.6217E-03_JPRB,6.7053E-03_JPRB,5.5268E-03_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&2.7371E-03_JPRB,9.3986E-03_JPRB,1.2362E-02_JPRB,1.3996E-02_JPRB,1.4573E-02_JPRB,1.4394E-02_JPRB,&
+&1.3273E-02_JPRB,1.1249E-02_JPRB,7.8082E-03_JPRB,6.4145E-03_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&3.5707E-03_JPRB,1.1441E-02_JPRB,1.4782E-02_JPRB,1.6569E-02_JPRB,1.7185E-02_JPRB,1.6953E-02_JPRB,&
+&1.5517E-02_JPRB,1.3078E-02_JPRB,9.0555E-03_JPRB,7.4094E-03_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&9.3612E-04_JPRB,3.7181E-03_JPRB,5.0390E-03_JPRB,5.9502E-03_JPRB,6.3679E-03_JPRB,6.3786E-03_JPRB,&
+&6.0698E-03_JPRB,5.2727E-03_JPRB,3.7120E-03_JPRB,3.2201E-03_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&1.2490E-03_JPRB,4.6957E-03_JPRB,6.3176E-03_JPRB,7.3745E-03_JPRB,7.7966E-03_JPRB,7.7361E-03_JPRB,&
+&7.2751E-03_JPRB,6.2746E-03_JPRB,4.4490E-03_JPRB,3.6844E-03_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&1.6672E-03_JPRB,5.9017E-03_JPRB,7.8487E-03_JPRB,9.0223E-03_JPRB,9.4573E-03_JPRB,9.3283E-03_JPRB,&
+&8.6995E-03_JPRB,7.4301E-03_JPRB,5.1895E-03_JPRB,4.2405E-03_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&2.2134E-03_JPRB,7.3371E-03_JPRB,9.6281E-03_JPRB,1.0911E-02_JPRB,1.1346E-02_JPRB,1.1187E-02_JPRB,&
+&1.0343E-02_JPRB,8.7520E-03_JPRB,6.1061E-03_JPRB,4.8883E-03_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&2.9080E-03_JPRB,9.0078E-03_JPRB,1.1596E-02_JPRB,1.2990E-02_JPRB,1.3474E-02_JPRB,1.3306E-02_JPRB,&
+&1.2200E-02_JPRB,1.0250E-02_JPRB,7.0746E-03_JPRB,5.6394E-03_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&7.2899E-04_JPRB,2.8358E-03_JPRB,3.8166E-03_JPRB,4.4649E-03_JPRB,4.7605E-03_JPRB,4.7776E-03_JPRB,&
+&4.5645E-03_JPRB,3.9905E-03_JPRB,2.8172E-03_JPRB,2.5259E-03_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&9.7562E-04_JPRB,3.5858E-03_JPRB,4.8000E-03_JPRB,5.5643E-03_JPRB,5.8729E-03_JPRB,5.8345E-03_JPRB,&
+&5.5106E-03_JPRB,4.7660E-03_JPRB,3.3369E-03_JPRB,2.8747E-03_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&1.3110E-03_JPRB,4.5252E-03_JPRB,5.9861E-03_JPRB,6.8654E-03_JPRB,7.1912E-03_JPRB,7.0898E-03_JPRB,&
+&6.6257E-03_JPRB,5.6788E-03_JPRB,3.9467E-03_JPRB,3.3017E-03_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&1.7535E-03_JPRB,5.6592E-03_JPRB,7.3895E-03_JPRB,8.3600E-03_JPRB,8.7028E-03_JPRB,8.5726E-03_JPRB,&
+&7.9544E-03_JPRB,6.7413E-03_JPRB,4.7023E-03_JPRB,3.7920E-03_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&2.3234E-03_JPRB,7.0001E-03_JPRB,8.9795E-03_JPRB,1.0033E-02_JPRB,1.0407E-02_JPRB,1.0269E-02_JPRB,&
+&9.4690E-03_JPRB,7.9455E-03_JPRB,5.4450E-03_JPRB,4.3729E-03_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&5.6650E-04_JPRB,2.1549E-03_JPRB,2.8964E-03_JPRB,3.3619E-03_JPRB,3.5664E-03_JPRB,3.5841E-03_JPRB,&
+&3.4323E-03_JPRB,3.0201E-03_JPRB,2.2575E-03_JPRB,2.0547E-03_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&7.5923E-04_JPRB,2.7449E-03_JPRB,3.6494E-03_JPRB,4.2010E-03_JPRB,4.4180E-03_JPRB,4.3953E-03_JPRB,&
+&4.1675E-03_JPRB,3.6219E-03_JPRB,2.5473E-03_JPRB,2.3046E-03_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&1.0253E-03_JPRB,3.4834E-03_JPRB,4.5686E-03_JPRB,5.2069E-03_JPRB,5.4481E-03_JPRB,5.3758E-03_JPRB,&
+&5.0408E-03_JPRB,4.3359E-03_JPRB,3.0162E-03_JPRB,2.6195E-03_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&1.3801E-03_JPRB,4.3804E-03_JPRB,5.6725E-03_JPRB,6.3841E-03_JPRB,6.6485E-03_JPRB,6.5457E-03_JPRB,&
+&6.0914E-03_JPRB,5.1828E-03_JPRB,3.5636E-03_JPRB,2.9971E-03_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&1.8434E-03_JPRB,5.4391E-03_JPRB,6.9434E-03_JPRB,7.7307E-03_JPRB,8.0143E-03_JPRB,7.8901E-03_JPRB,&
+&7.3072E-03_JPRB,6.1548E-03_JPRB,4.1784E-03_JPRB,3.4508E-03_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&4.3479E-04_JPRB,1.6105E-03_JPRB,2.1624E-03_JPRB,2.5048E-03_JPRB,2.6629E-03_JPRB,2.6833E-03_JPRB,&
+&2.5738E-03_JPRB,2.2737E-03_JPRB,1.8606E-03_JPRB,1.7234E-03_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&5.8233E-04_JPRB,2.0650E-03_JPRB,2.7444E-03_JPRB,3.1464E-03_JPRB,3.3112E-03_JPRB,3.2967E-03_JPRB,&
+&3.1292E-03_JPRB,2.7330E-03_JPRB,1.9142E-03_JPRB,1.9183E-03_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&7.8843E-04_JPRB,2.6457E-03_JPRB,3.4646E-03_JPRB,3.9221E-03_JPRB,4.0954E-03_JPRB,4.0443E-03_JPRB,&
+&3.8065E-03_JPRB,3.2872E-03_JPRB,2.2472E-03_JPRB,2.1603E-03_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&1.0676E-03_JPRB,3.3599E-03_JPRB,4.3294E-03_JPRB,4.8406E-03_JPRB,5.0306E-03_JPRB,4.9525E-03_JPRB,&
+&4.6235E-03_JPRB,3.9530E-03_JPRB,2.6778E-03_JPRB,2.4636E-03_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&1.4360E-03_JPRB,4.2028E-03_JPRB,5.3355E-03_JPRB,5.9075E-03_JPRB,6.1148E-03_JPRB,6.0070E-03_JPRB,&
+&5.5779E-03_JPRB,4.7305E-03_JPRB,3.1938E-03_JPRB,2.8201E-03_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&3.3066E-04_JPRB,1.1921E-03_JPRB,1.5997E-03_JPRB,1.8508E-03_JPRB,1.9750E-03_JPRB,2.0065E-03_JPRB,&
+&1.9362E-03_JPRB,1.7121E-03_JPRB,1.5102E-03_JPRB,1.4755E-03_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&4.4251E-04_JPRB,1.5399E-03_JPRB,2.0431E-03_JPRB,2.3386E-03_JPRB,2.4693E-03_JPRB,2.4731E-03_JPRB,&
+&2.3559E-03_JPRB,2.0619E-03_JPRB,1.5167E-03_JPRB,1.6278E-03_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&5.9954E-04_JPRB,1.9895E-03_JPRB,2.5996E-03_JPRB,2.9389E-03_JPRB,3.0769E-03_JPRB,3.0449E-03_JPRB,&
+&2.8696E-03_JPRB,2.4854E-03_JPRB,1.7100E-03_JPRB,1.8261E-03_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&8.1539E-04_JPRB,2.5548E-03_JPRB,3.2831E-03_JPRB,3.6604E-03_JPRB,3.8004E-03_JPRB,3.7406E-03_JPRB,&
+&3.5004E-03_JPRB,3.0009E-03_JPRB,2.0185E-03_JPRB,2.0723E-03_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&1.1035E-03_JPRB,3.2299E-03_JPRB,4.0851E-03_JPRB,4.5054E-03_JPRB,4.6506E-03_JPRB,4.5636E-03_JPRB,&
+&4.2458E-03_JPRB,3.6170E-03_JPRB,2.4150E-03_JPRB,2.3689E-03_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&2.4824E-04_JPRB,8.7576E-04_JPRB,1.1750E-03_JPRB,1.3620E-03_JPRB,1.4591E-03_JPRB,1.4944E-03_JPRB,&
+&1.4530E-03_JPRB,1.3016E-03_JPRB,1.2362E-03_JPRB,1.3815E-03_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&3.3230E-04_JPRB,1.1390E-03_JPRB,1.5103E-03_JPRB,1.7306E-03_JPRB,1.8323E-03_JPRB,1.8454E-03_JPRB,&
+&1.7715E-03_JPRB,1.5588E-03_JPRB,1.2567E-03_JPRB,1.5241E-03_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&4.5036E-04_JPRB,1.4833E-03_JPRB,1.9397E-03_JPRB,2.1911E-03_JPRB,2.2984E-03_JPRB,2.2843E-03_JPRB,&
+&2.1644E-03_JPRB,1.8786E-03_JPRB,1.3010E-03_JPRB,1.7047E-03_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&6.1425E-04_JPRB,1.9258E-03_JPRB,2.4736E-03_JPRB,2.7526E-03_JPRB,2.8618E-03_JPRB,2.8208E-03_JPRB,&
+&2.6474E-03_JPRB,2.2738E-03_JPRB,1.4977E-03_JPRB,1.9231E-03_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&8.3579E-04_JPRB,2.4677E-03_JPRB,3.1100E-03_JPRB,3.4209E-03_JPRB,3.5321E-03_JPRB,3.4664E-03_JPRB,&
+&3.2302E-03_JPRB,2.7529E-03_JPRB,1.8211E-03_JPRB,2.1802E-03_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&1.8648E-04_JPRB,6.4213E-04_JPRB,8.6248E-04_JPRB,1.0018E-03_JPRB,1.0759E-03_JPRB,1.1114E-03_JPRB,&
+&1.0893E-03_JPRB,9.9064E-04_JPRB,9.8753E-04_JPRB,1.8775E-03_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&2.4931E-04_JPRB,8.3843E-04_JPRB,1.1135E-03_JPRB,1.2777E-03_JPRB,1.3549E-03_JPRB,1.3735E-03_JPRB,&
+&1.3267E-03_JPRB,1.1784E-03_JPRB,1.0225E-03_JPRB,2.0725E-03_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&3.3739E-04_JPRB,1.0997E-03_JPRB,1.4388E-03_JPRB,1.6275E-03_JPRB,1.7095E-03_JPRB,1.7064E-03_JPRB,&
+&1.6276E-03_JPRB,1.4244E-03_JPRB,1.0196E-03_JPRB,2.3196E-03_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&4.6000E-04_JPRB,1.4414E-03_JPRB,1.8531E-03_JPRB,2.0634E-03_JPRB,2.1453E-03_JPRB,2.1162E-03_JPRB,&
+&1.9970E-03_JPRB,1.7248E-03_JPRB,1.1677E-03_JPRB,2.6078E-03_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&6.2819E-04_JPRB,1.8702E-03_JPRB,2.3574E-03_JPRB,2.5903E-03_JPRB,2.6704E-03_JPRB,2.6214E-03_JPRB,&
+&2.4477E-03_JPRB,2.0914E-03_JPRB,1.3608E-03_JPRB,2.9294E-03_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&1.4307E-04_JPRB,4.7989E-04_JPRB,6.4527E-04_JPRB,7.5154E-04_JPRB,8.0960E-04_JPRB,8.4090E-04_JPRB,&
+&8.3086E-04_JPRB,7.6874E-04_JPRB,8.2863E-04_JPRB,3.6347E-03_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&1.9105E-04_JPRB,6.2858E-04_JPRB,8.3500E-04_JPRB,9.5991E-04_JPRB,1.0185E-03_JPRB,1.0393E-03_JPRB,&
+&1.0095E-03_JPRB,9.0118E-04_JPRB,8.3114E-04_JPRB,4.2294E-03_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&2.5819E-04_JPRB,8.2975E-04_JPRB,1.0848E-03_JPRB,1.2290E-03_JPRB,1.2908E-03_JPRB,1.2943E-03_JPRB,&
+&1.2407E-03_JPRB,1.0947E-03_JPRB,8.4507E-04_JPRB,4.7942E-03_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&3.5175E-04_JPRB,1.0966E-03_JPRB,1.4090E-03_JPRB,1.5695E-03_JPRB,1.6301E-03_JPRB,1.6125E-03_JPRB,&
+&1.5271E-03_JPRB,1.3244E-03_JPRB,8.9574E-04_JPRB,5.3326E-03_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&4.8140E-04_JPRB,1.4355E-03_JPRB,1.8096E-03_JPRB,1.9894E-03_JPRB,2.0475E-03_JPRB,2.0080E-03_JPRB,&
+&1.8768E-03_JPRB,1.6118E-03_JPRB,1.0323E-03_JPRB,5.8712E-03_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&1.2480E-04_JPRB,4.0651E-04_JPRB,5.4317E-04_JPRB,6.3057E-04_JPRB,6.7711E-04_JPRB,7.0124E-04_JPRB,&
+&6.9230E-04_JPRB,6.3637E-04_JPRB,6.7480E-04_JPRB,4.4748E-03_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&1.6789E-04_JPRB,5.3657E-04_JPRB,7.0675E-04_JPRB,8.0798E-04_JPRB,8.5575E-04_JPRB,8.7116E-04_JPRB,&
+&8.4422E-04_JPRB,7.5306E-04_JPRB,6.8219E-04_JPRB,5.2484E-03_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&2.2748E-04_JPRB,7.1324E-04_JPRB,9.2430E-04_JPRB,1.0391E-03_JPRB,1.0880E-03_JPRB,1.0885E-03_JPRB,&
+&1.0414E-03_JPRB,9.1761E-04_JPRB,6.9310E-04_JPRB,5.9997E-03_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&3.1100E-04_JPRB,9.4662E-04_JPRB,1.2062E-03_JPRB,1.3345E-03_JPRB,1.3806E-03_JPRB,1.3616E-03_JPRB,&
+&1.2842E-03_JPRB,1.1132E-03_JPRB,7.5183E-04_JPRB,6.7275E-03_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&4.2632E-04_JPRB,1.2375E-03_JPRB,1.5507E-03_JPRB,1.6996E-03_JPRB,1.7428E-03_JPRB,1.7046E-03_JPRB,&
+&1.5835E-03_JPRB,1.3580E-03_JPRB,8.6852E-04_JPRB,7.4572E-03_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&1.0738E-04_JPRB,3.4370E-04_JPRB,4.5561E-04_JPRB,5.2712E-04_JPRB,5.6512E-04_JPRB,5.8418E-04_JPRB,&
+&5.7608E-04_JPRB,5.2824E-04_JPRB,5.5584E-04_JPRB,4.5229E-03_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&1.4509E-04_JPRB,4.5719E-04_JPRB,5.9628E-04_JPRB,6.7809E-04_JPRB,7.1697E-04_JPRB,7.2848E-04_JPRB,&
+&7.0565E-04_JPRB,6.2997E-04_JPRB,5.6436E-04_JPRB,5.3156E-03_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&1.9783E-04_JPRB,6.1167E-04_JPRB,7.8481E-04_JPRB,8.7764E-04_JPRB,9.1476E-04_JPRB,9.1298E-04_JPRB,&
+&8.7252E-04_JPRB,7.6652E-04_JPRB,5.7011E-04_JPRB,6.0757E-03_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&2.7192E-04_JPRB,8.1173E-04_JPRB,1.0265E-03_JPRB,1.1333E-03_JPRB,1.1680E-03_JPRB,1.1490E-03_JPRB,&
+&1.0784E-03_JPRB,9.3361E-04_JPRB,6.2718E-04_JPRB,6.8113E-03_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&3.7397E-04_JPRB,1.0598E-03_JPRB,1.3197E-03_JPRB,1.4449E-03_JPRB,1.4799E-03_JPRB,1.4465E-03_JPRB,&
+&1.3362E-03_JPRB,1.1407E-03_JPRB,7.2415E-04_JPRB,7.5425E-03_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&8.9292E-05_JPRB,2.8719E-04_JPRB,3.7864E-04_JPRB,4.3694E-04_JPRB,4.6878E-04_JPRB,4.8461E-04_JPRB,&
+&4.7788E-04_JPRB,4.3842E-04_JPRB,4.5719E-04_JPRB,3.8416E-03_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&1.2149E-04_JPRB,3.8537E-04_JPRB,4.9918E-04_JPRB,5.6557E-04_JPRB,5.9698E-04_JPRB,6.0549E-04_JPRB,&
+&5.8708E-04_JPRB,5.2472E-04_JPRB,4.6787E-04_JPRB,4.4931E-03_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&1.6719E-04_JPRB,5.1756E-04_JPRB,6.6044E-04_JPRB,7.3666E-04_JPRB,7.6591E-04_JPRB,7.6260E-04_JPRB,&
+&7.2753E-04_JPRB,6.3867E-04_JPRB,4.6954E-04_JPRB,5.0961E-03_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&2.3161E-04_JPRB,6.8759E-04_JPRB,8.6435E-04_JPRB,9.5388E-04_JPRB,9.8295E-04_JPRB,9.6568E-04_JPRB,&
+&9.0300E-04_JPRB,7.7979E-04_JPRB,5.2227E-04_JPRB,5.6855E-03_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&3.2057E-04_JPRB,8.9923E-04_JPRB,1.1130E-03_JPRB,1.2171E-03_JPRB,1.2465E-03_JPRB,1.2193E-03_JPRB,&
+&1.1245E-03_JPRB,9.5521E-04_JPRB,6.0646E-04_JPRB,6.2875E-03_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&7.8581E-03_JPRB,1.6359E-02_JPRB,1.8747E-02_JPRB,1.9104E-02_JPRB,1.8493E-02_JPRB,1.7453E-02_JPRB,&
+&1.6124E-02_JPRB,1.4436E-02_JPRB,9.9634E-03_JPRB,9.0266E-03_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&1.0248E-02_JPRB,1.9930E-02_JPRB,2.2543E-02_JPRB,2.2901E-02_JPRB,2.2187E-02_JPRB,2.0954E-02_JPRB,&
+&1.9379E-02_JPRB,1.7194E-02_JPRB,1.1961E-02_JPRB,1.0706E-02_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&1.3096E-02_JPRB,2.3888E-02_JPRB,2.6739E-02_JPRB,2.7195E-02_JPRB,2.6433E-02_JPRB,2.4936E-02_JPRB,&
+&2.3046E-02_JPRB,2.0295E-02_JPRB,1.4106E-02_JPRB,1.2544E-02_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&1.6338E-02_JPRB,2.8329E-02_JPRB,3.1500E-02_JPRB,3.2047E-02_JPRB,3.1151E-02_JPRB,2.9395E-02_JPRB,&
+&2.7258E-02_JPRB,2.3909E-02_JPRB,1.6479E-02_JPRB,1.4541E-02_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&1.9905E-02_JPRB,3.3267E-02_JPRB,3.6925E-02_JPRB,3.7523E-02_JPRB,3.6460E-02_JPRB,3.4480E-02_JPRB,&
+&3.1939E-02_JPRB,2.7924E-02_JPRB,1.9096E-02_JPRB,1.6820E-02_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&6.5000E-03_JPRB,1.3210E-02_JPRB,1.5017E-02_JPRB,1.5338E-02_JPRB,1.4894E-02_JPRB,1.4046E-02_JPRB,&
+&1.2886E-02_JPRB,1.1485E-02_JPRB,7.8396E-03_JPRB,6.9835E-03_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&8.5060E-03_JPRB,1.6246E-02_JPRB,1.8196E-02_JPRB,1.8546E-02_JPRB,1.7999E-02_JPRB,1.6962E-02_JPRB,&
+&1.5570E-02_JPRB,1.3759E-02_JPRB,9.5004E-03_JPRB,8.2524E-03_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&1.0895E-02_JPRB,1.9629E-02_JPRB,2.1801E-02_JPRB,2.2202E-02_JPRB,2.1571E-02_JPRB,2.0287E-02_JPRB,&
+&1.8619E-02_JPRB,1.6336E-02_JPRB,1.1311E-02_JPRB,9.6763E-03_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&1.3634E-02_JPRB,2.3467E-02_JPRB,2.5938E-02_JPRB,2.6385E-02_JPRB,2.5626E-02_JPRB,2.4039E-02_JPRB,&
+&2.2108E-02_JPRB,1.9320E-02_JPRB,1.3277E-02_JPRB,1.1254E-02_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&1.6643E-02_JPRB,2.7789E-02_JPRB,3.0666E-02_JPRB,3.1149E-02_JPRB,3.0178E-02_JPRB,2.8317E-02_JPRB,&
+&2.6023E-02_JPRB,2.2644E-02_JPRB,1.5438E-02_JPRB,1.3058E-02_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&5.1068E-03_JPRB,1.0155E-02_JPRB,1.1485E-02_JPRB,1.1770E-02_JPRB,1.1484E-02_JPRB,1.0823E-02_JPRB,&
+&9.8623E-03_JPRB,8.7594E-03_JPRB,5.9958E-03_JPRB,5.2611E-03_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&6.6835E-03_JPRB,1.2640E-02_JPRB,1.4084E-02_JPRB,1.4382E-02_JPRB,1.4023E-02_JPRB,1.3192E-02_JPRB,&
+&1.2012E-02_JPRB,1.0560E-02_JPRB,7.2917E-03_JPRB,6.1864E-03_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&8.6033E-03_JPRB,1.5444E-02_JPRB,1.7069E-02_JPRB,1.7437E-02_JPRB,1.6940E-02_JPRB,1.5900E-02_JPRB,&
+&1.4464E-02_JPRB,1.2619E-02_JPRB,8.8116E-03_JPRB,7.2531E-03_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&1.0832E-02_JPRB,1.8665E-02_JPRB,2.0521E-02_JPRB,2.0939E-02_JPRB,2.0314E-02_JPRB,1.9000E-02_JPRB,&
+&1.7289E-02_JPRB,1.5015E-02_JPRB,1.0355E-02_JPRB,8.4725E-03_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&1.3328E-02_JPRB,2.2307E-02_JPRB,2.4508E-02_JPRB,2.4967E-02_JPRB,2.4135E-02_JPRB,2.2494E-02_JPRB,&
+&2.0482E-02_JPRB,1.7714E-02_JPRB,1.2161E-02_JPRB,9.8543E-03_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&3.9695E-03_JPRB,7.6818E-03_JPRB,8.6331E-03_JPRB,8.8728E-03_JPRB,8.6847E-03_JPRB,8.1743E-03_JPRB,&
+&7.4171E-03_JPRB,6.5733E-03_JPRB,4.6756E-03_JPRB,4.0395E-03_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&5.1871E-03_JPRB,9.6669E-03_JPRB,1.0730E-02_JPRB,1.0984E-02_JPRB,1.0727E-02_JPRB,1.0079E-02_JPRB,&
+&9.1130E-03_JPRB,7.9640E-03_JPRB,5.5230E-03_JPRB,4.7457E-03_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&6.6872E-03_JPRB,1.1936E-02_JPRB,1.3150E-02_JPRB,1.3447E-02_JPRB,1.3090E-02_JPRB,1.2266E-02_JPRB,&
+&1.1082E-02_JPRB,9.5819E-03_JPRB,6.7239E-03_JPRB,5.5582E-03_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&8.4686E-03_JPRB,1.4558E-02_JPRB,1.5982E-02_JPRB,1.6346E-02_JPRB,1.5841E-02_JPRB,1.4783E-02_JPRB,&
+&1.3331E-02_JPRB,1.1473E-02_JPRB,7.9455E-03_JPRB,6.5009E-03_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&1.0530E-02_JPRB,1.7532E-02_JPRB,1.9245E-02_JPRB,1.9697E-02_JPRB,1.9021E-02_JPRB,1.7663E-02_JPRB,&
+&1.5910E-02_JPRB,1.3642E-02_JPRB,9.4173E-03_JPRB,7.5638E-03_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&3.1180E-03_JPRB,5.8209E-03_JPRB,6.4854E-03_JPRB,6.6644E-03_JPRB,6.5380E-03_JPRB,6.1410E-03_JPRB,&
+&5.5609E-03_JPRB,4.9182E-03_JPRB,3.5969E-03_JPRB,3.1582E-03_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&4.0549E-03_JPRB,7.3757E-03_JPRB,8.1520E-03_JPRB,8.3497E-03_JPRB,8.1550E-03_JPRB,7.6434E-03_JPRB,&
+&6.8934E-03_JPRB,5.9840E-03_JPRB,4.1290E-03_JPRB,3.6940E-03_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&5.2180E-03_JPRB,9.1787E-03_JPRB,1.0116E-02_JPRB,1.0335E-02_JPRB,1.0048E-02_JPRB,9.4058E-03_JPRB,&
+&8.4592E-03_JPRB,7.2447E-03_JPRB,5.0478E-03_JPRB,4.3308E-03_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&6.6347E-03_JPRB,1.1285E-02_JPRB,1.2392E-02_JPRB,1.2680E-02_JPRB,1.2274E-02_JPRB,1.1447E-02_JPRB,&
+&1.0271E-02_JPRB,8.7310E-03_JPRB,6.0849E-03_JPRB,5.0691E-03_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&8.3131E-03_JPRB,1.3706E-02_JPRB,1.5023E-02_JPRB,1.5394E-02_JPRB,1.4880E-02_JPRB,1.3810E-02_JPRB,&
+&1.2359E-02_JPRB,1.0459E-02_JPRB,7.2538E-03_JPRB,5.9083E-03_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&2.4113E-03_JPRB,4.4035E-03_JPRB,4.8584E-03_JPRB,4.9702E-03_JPRB,4.8652E-03_JPRB,4.5631E-03_JPRB,&
+&4.1282E-03_JPRB,3.6475E-03_JPRB,2.6495E-03_JPRB,2.6380E-03_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&3.1417E-03_JPRB,5.6041E-03_JPRB,6.1552E-03_JPRB,6.2788E-03_JPRB,6.1209E-03_JPRB,5.7279E-03_JPRB,&
+&5.1621E-03_JPRB,4.4647E-03_JPRB,3.1333E-03_JPRB,3.0490E-03_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&4.0523E-03_JPRB,7.0107E-03_JPRB,7.6974E-03_JPRB,7.8556E-03_JPRB,7.6249E-03_JPRB,7.1228E-03_JPRB,&
+&6.3982E-03_JPRB,5.4412E-03_JPRB,3.7354E-03_JPRB,3.5351E-03_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&5.1735E-03_JPRB,8.6714E-03_JPRB,9.5046E-03_JPRB,9.7062E-03_JPRB,9.3937E-03_JPRB,8.7514E-03_JPRB,&
+&7.8427E-03_JPRB,6.5998E-03_JPRB,4.6231E-03_JPRB,4.0931E-03_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&6.5266E-03_JPRB,1.0615E-02_JPRB,1.1603E-02_JPRB,1.1862E-02_JPRB,1.1470E-02_JPRB,1.0665E-02_JPRB,&
+&9.5307E-03_JPRB,7.9589E-03_JPRB,5.4908E-03_JPRB,4.7354E-03_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&1.8313E-03_JPRB,3.2981E-03_JPRB,3.6334E-03_JPRB,3.7067E-03_JPRB,3.6201E-03_JPRB,3.3912E-03_JPRB,&
+&3.0679E-03_JPRB,2.7066E-03_JPRB,2.0241E-03_JPRB,2.2554E-03_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&2.3976E-03_JPRB,4.2444E-03_JPRB,4.6442E-03_JPRB,4.7217E-03_JPRB,4.5915E-03_JPRB,4.2847E-03_JPRB,&
+&3.8546E-03_JPRB,3.3328E-03_JPRB,2.4081E-03_JPRB,2.5954E-03_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&3.1184E-03_JPRB,5.3559E-03_JPRB,5.8460E-03_JPRB,5.9451E-03_JPRB,5.7583E-03_JPRB,5.3717E-03_JPRB,&
+&4.8180E-03_JPRB,4.0888E-03_JPRB,2.7879E-03_JPRB,3.0032E-03_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&4.0216E-03_JPRB,6.6605E-03_JPRB,7.2700E-03_JPRB,7.4007E-03_JPRB,7.1549E-03_JPRB,6.6561E-03_JPRB,&
+&5.9599E-03_JPRB,4.9929E-03_JPRB,3.4384E-03_JPRB,3.4860E-03_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&5.1206E-03_JPRB,8.2127E-03_JPRB,8.9364E-03_JPRB,9.0944E-03_JPRB,8.7960E-03_JPRB,8.1717E-03_JPRB,&
+&7.3059E-03_JPRB,6.0651E-03_JPRB,4.1362E-03_JPRB,4.0383E-03_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&1.3678E-03_JPRB,2.4344E-03_JPRB,2.6771E-03_JPRB,2.7314E-03_JPRB,2.6764E-03_JPRB,2.5199E-03_JPRB,&
+&2.2892E-03_JPRB,2.0146E-03_JPRB,1.5158E-03_JPRB,2.0717E-03_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&1.7986E-03_JPRB,3.1721E-03_JPRB,3.4698E-03_JPRB,3.5325E-03_JPRB,3.4383E-03_JPRB,3.2125E-03_JPRB,&
+&2.8853E-03_JPRB,2.4940E-03_JPRB,1.7790E-03_JPRB,2.3653E-03_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&2.3644E-03_JPRB,4.0587E-03_JPRB,4.4194E-03_JPRB,4.4912E-03_JPRB,4.3505E-03_JPRB,4.0574E-03_JPRB,&
+&3.6294E-03_JPRB,3.0753E-03_JPRB,2.0908E-03_JPRB,2.7075E-03_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&3.0885E-03_JPRB,5.1052E-03_JPRB,5.5511E-03_JPRB,5.6359E-03_JPRB,5.4460E-03_JPRB,5.0617E-03_JPRB,&
+&4.5202E-03_JPRB,3.7834E-03_JPRB,2.5293E-03_JPRB,3.1178E-03_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&3.9843E-03_JPRB,6.3521E-03_JPRB,6.8780E-03_JPRB,6.9729E-03_JPRB,6.7374E-03_JPRB,6.2484E-03_JPRB,&
+&5.5746E-03_JPRB,4.6304E-03_JPRB,3.1216E-03_JPRB,3.5944E-03_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&1.0180E-03_JPRB,1.7808E-03_JPRB,1.9513E-03_JPRB,1.9917E-03_JPRB,1.9571E-03_JPRB,1.8568E-03_JPRB,&
+&1.7034E-03_JPRB,1.5143E-03_JPRB,1.2324E-03_JPRB,2.9566E-03_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&1.3409E-03_JPRB,2.3491E-03_JPRB,2.5644E-03_JPRB,2.6103E-03_JPRB,2.5515E-03_JPRB,2.3969E-03_JPRB,&
+&2.1596E-03_JPRB,1.8679E-03_JPRB,1.3632E-03_JPRB,3.3317E-03_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&1.7770E-03_JPRB,3.0450E-03_JPRB,3.3094E-03_JPRB,3.3641E-03_JPRB,3.2693E-03_JPRB,3.0590E-03_JPRB,&
+&2.7358E-03_JPRB,2.3083E-03_JPRB,1.6204E-03_JPRB,3.7464E-03_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&2.3520E-03_JPRB,3.8805E-03_JPRB,4.2090E-03_JPRB,4.2722E-03_JPRB,4.1362E-03_JPRB,3.8521E-03_JPRB,&
+&3.4256E-03_JPRB,2.8568E-03_JPRB,1.8732E-03_JPRB,4.2061E-03_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&3.0729E-03_JPRB,4.8855E-03_JPRB,5.2770E-03_JPRB,5.3379E-03_JPRB,5.1589E-03_JPRB,4.7790E-03_JPRB,&
+&4.2478E-03_JPRB,3.5241E-03_JPRB,2.3400E-03_JPRB,4.7374E-03_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&7.7253E-04_JPRB,1.3219E-03_JPRB,1.4421E-03_JPRB,1.4740E-03_JPRB,1.4539E-03_JPRB,1.3876E-03_JPRB,&
+&1.2853E-03_JPRB,1.1567E-03_JPRB,1.0022E-03_JPRB,6.8847E-03_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&1.0173E-03_JPRB,1.7625E-03_JPRB,1.9200E-03_JPRB,1.9559E-03_JPRB,1.9175E-03_JPRB,1.8087E-03_JPRB,&
+&1.6367E-03_JPRB,1.4242E-03_JPRB,1.0394E-03_JPRB,7.5328E-03_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&1.3564E-03_JPRB,2.3122E-03_JPRB,2.5093E-03_JPRB,2.5497E-03_JPRB,2.4848E-03_JPRB,2.3312E-03_JPRB,&
+&2.0902E-03_JPRB,1.7668E-03_JPRB,1.2230E-03_JPRB,8.3126E-03_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&1.8134E-03_JPRB,2.9832E-03_JPRB,3.2264E-03_JPRB,3.2755E-03_JPRB,3.1788E-03_JPRB,2.9672E-03_JPRB,&
+&2.6373E-03_JPRB,2.1956E-03_JPRB,1.4206E-03_JPRB,9.1949E-03_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&2.3982E-03_JPRB,3.8024E-03_JPRB,4.0921E-03_JPRB,4.1370E-03_JPRB,4.0025E-03_JPRB,3.7132E-03_JPRB,&
+&3.2913E-03_JPRB,2.7187E-03_JPRB,1.7437E-03_JPRB,1.0174E-02_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&6.6311E-04_JPRB,1.1233E-03_JPRB,1.2219E-03_JPRB,1.2485E-03_JPRB,1.2298E-03_JPRB,1.1731E-03_JPRB,&
+&1.0818E-03_JPRB,9.6812E-04_JPRB,8.2277E-04_JPRB,9.1151E-03_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&8.7961E-04_JPRB,1.5044E-03_JPRB,1.6329E-03_JPRB,1.6631E-03_JPRB,1.6279E-03_JPRB,1.5346E-03_JPRB,&
+&1.3878E-03_JPRB,1.1990E-03_JPRB,8.6844E-04_JPRB,9.9636E-03_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&1.1836E-03_JPRB,1.9811E-03_JPRB,2.1444E-03_JPRB,2.1783E-03_JPRB,2.1211E-03_JPRB,1.9859E-03_JPRB,&
+&1.7780E-03_JPRB,1.4952E-03_JPRB,1.0190E-03_JPRB,1.0941E-02_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&1.5905E-03_JPRB,2.5713E-03_JPRB,2.7694E-03_JPRB,2.8087E-03_JPRB,2.7235E-03_JPRB,2.5357E-03_JPRB,&
+&2.2512E-03_JPRB,1.8676E-03_JPRB,1.1718E-03_JPRB,1.2060E-02_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&2.1118E-03_JPRB,3.3009E-03_JPRB,3.5298E-03_JPRB,3.5548E-03_JPRB,3.4369E-03_JPRB,3.1821E-03_JPRB,&
+&2.8194E-03_JPRB,2.3141E-03_JPRB,1.4442E-03_JPRB,1.3285E-02_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&5.6477E-04_JPRB,9.5054E-04_JPRB,1.0327E-03_JPRB,1.0546E-03_JPRB,1.0374E-03_JPRB,9.8870E-04_JPRB,&
+&9.0992E-04_JPRB,8.0701E-04_JPRB,6.7076E-04_JPRB,9.4607E-03_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&7.5728E-04_JPRB,1.2785E-03_JPRB,1.3875E-03_JPRB,1.4113E-03_JPRB,1.3782E-03_JPRB,1.2986E-03_JPRB,&
+&1.1731E-03_JPRB,1.0074E-03_JPRB,7.2589E-04_JPRB,1.0331E-02_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&1.0261E-03_JPRB,1.6921E-03_JPRB,1.8295E-03_JPRB,1.8570E-03_JPRB,1.8051E-03_JPRB,1.6888E-03_JPRB,&
+&1.5086E-03_JPRB,1.2626E-03_JPRB,8.4339E-04_JPRB,1.1368E-02_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&1.3869E-03_JPRB,2.2095E-03_JPRB,2.3736E-03_JPRB,2.4008E-03_JPRB,2.3247E-03_JPRB,2.1615E-03_JPRB,&
+&1.9167E-03_JPRB,1.5821E-03_JPRB,9.6809E-04_JPRB,1.2545E-02_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&1.8434E-03_JPRB,2.8588E-03_JPRB,3.0424E-03_JPRB,3.0524E-03_JPRB,2.9442E-03_JPRB,2.7194E-03_JPRB,&
+&2.4068E-03_JPRB,1.9656E-03_JPRB,1.2057E-03_JPRB,1.3846E-02_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&4.7278E-04_JPRB,7.9552E-04_JPRB,8.6502E-04_JPRB,8.8337E-04_JPRB,8.6881E-04_JPRB,8.2802E-04_JPRB,&
+&7.6164E-04_JPRB,6.7146E-04_JPRB,5.4706E-04_JPRB,7.8912E-03_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&6.4178E-04_JPRB,1.0759E-03_JPRB,1.1686E-03_JPRB,1.1883E-03_JPRB,1.1601E-03_JPRB,1.0935E-03_JPRB,&
+&9.8725E-04_JPRB,8.4294E-04_JPRB,6.0294E-04_JPRB,8.6805E-03_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&8.7757E-04_JPRB,1.4325E-03_JPRB,1.5486E-03_JPRB,1.5698E-03_JPRB,1.5267E-03_JPRB,1.4283E-03_JPRB,&
+&1.2744E-03_JPRB,1.0604E-03_JPRB,6.9497E-04_JPRB,9.6337E-03_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&1.1912E-03_JPRB,1.8857E-03_JPRB,2.0225E-03_JPRB,2.0388E-03_JPRB,1.9725E-03_JPRB,1.8334E-03_JPRB,&
+&1.6247E-03_JPRB,1.3326E-03_JPRB,8.0026E-04_JPRB,1.0694E-02_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&1.5846E-03_JPRB,2.4545E-03_JPRB,2.6070E-03_JPRB,2.6093E-03_JPRB,2.5111E-03_JPRB,2.3151E-03_JPRB,&
+&2.0441E-03_JPRB,1.6606E-03_JPRB,1.0091E-03_JPRB,1.1828E-02_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&2.7778E-02_JPRB,3.3405E-02_JPRB,3.5267E-02_JPRB,3.6006E-02_JPRB,3.5898E-02_JPRB,3.4553E-02_JPRB,&
+&3.1100E-02_JPRB,2.5014E-02_JPRB,1.8094E-02_JPRB,1.6794E-02_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&3.3366E-02_JPRB,4.0235E-02_JPRB,4.2608E-02_JPRB,4.3370E-02_JPRB,4.2914E-02_JPRB,4.1247E-02_JPRB,&
+&3.7064E-02_JPRB,2.9946E-02_JPRB,2.1940E-02_JPRB,2.0091E-02_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&3.9476E-02_JPRB,4.7919E-02_JPRB,5.0670E-02_JPRB,5.1321E-02_JPRB,5.0664E-02_JPRB,4.8610E-02_JPRB,&
+&4.3793E-02_JPRB,3.5486E-02_JPRB,2.6228E-02_JPRB,2.3816E-02_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&4.6165E-02_JPRB,5.6406E-02_JPRB,5.9353E-02_JPRB,6.0117E-02_JPRB,5.9468E-02_JPRB,5.6918E-02_JPRB,&
+&5.1329E-02_JPRB,4.1643E-02_JPRB,3.1155E-02_JPRB,2.8224E-02_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&5.3590E-02_JPRB,6.5676E-02_JPRB,6.8956E-02_JPRB,6.9882E-02_JPRB,6.9299E-02_JPRB,6.6139E-02_JPRB,&
+&5.9733E-02_JPRB,4.8638E-02_JPRB,3.6701E-02_JPRB,3.3219E-02_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&2.2559E-02_JPRB,2.7654E-02_JPRB,2.9015E-02_JPRB,2.9337E-02_JPRB,2.9078E-02_JPRB,2.7937E-02_JPRB,&
+&2.5189E-02_JPRB,2.0404E-02_JPRB,1.4144E-02_JPRB,1.2909E-02_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&2.7361E-02_JPRB,3.3523E-02_JPRB,3.5340E-02_JPRB,3.5540E-02_JPRB,3.5037E-02_JPRB,3.3575E-02_JPRB,&
+&3.0234E-02_JPRB,2.4558E-02_JPRB,1.7358E-02_JPRB,1.5458E-02_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&3.2702E-02_JPRB,4.0222E-02_JPRB,4.2266E-02_JPRB,4.2370E-02_JPRB,4.1690E-02_JPRB,3.9887E-02_JPRB,&
+&3.5945E-02_JPRB,2.9242E-02_JPRB,2.0872E-02_JPRB,1.8389E-02_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&3.8698E-02_JPRB,4.7703E-02_JPRB,4.9874E-02_JPRB,5.0037E-02_JPRB,4.9234E-02_JPRB,4.7000E-02_JPRB,&
+&4.2355E-02_JPRB,3.4462E-02_JPRB,2.4936E-02_JPRB,2.1874E-02_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&4.5406E-02_JPRB,5.5864E-02_JPRB,5.8250E-02_JPRB,5.8611E-02_JPRB,5.7701E-02_JPRB,5.4940E-02_JPRB,&
+&4.9541E-02_JPRB,4.0425E-02_JPRB,2.9498E-02_JPRB,2.5824E-02_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&1.7492E-02_JPRB,2.1787E-02_JPRB,2.2652E-02_JPRB,2.2750E-02_JPRB,2.2453E-02_JPRB,2.1534E-02_JPRB,&
+&1.9495E-02_JPRB,1.5819E-02_JPRB,1.0602E-02_JPRB,9.5365E-03_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&2.1519E-02_JPRB,2.6731E-02_JPRB,2.7902E-02_JPRB,2.7864E-02_JPRB,2.7355E-02_JPRB,2.6151E-02_JPRB,&
+&2.3624E-02_JPRB,1.9184E-02_JPRB,1.3144E-02_JPRB,1.1427E-02_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&2.6104E-02_JPRB,3.2391E-02_JPRB,3.3736E-02_JPRB,3.3545E-02_JPRB,3.2846E-02_JPRB,3.1374E-02_JPRB,&
+&2.8297E-02_JPRB,2.2996E-02_JPRB,1.5964E-02_JPRB,1.3632E-02_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&3.1327E-02_JPRB,3.8767E-02_JPRB,4.0227E-02_JPRB,3.9993E-02_JPRB,3.9114E-02_JPRB,3.7263E-02_JPRB,&
+&3.3562E-02_JPRB,2.7293E-02_JPRB,1.9234E-02_JPRB,1.6283E-02_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&3.7182E-02_JPRB,4.5791E-02_JPRB,4.7452E-02_JPRB,4.7270E-02_JPRB,4.6211E-02_JPRB,4.3900E-02_JPRB,&
+&3.9502E-02_JPRB,3.2188E-02_JPRB,2.2900E-02_JPRB,1.9326E-02_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&1.3291E-02_JPRB,1.6678E-02_JPRB,1.7275E-02_JPRB,1.7278E-02_JPRB,1.6993E-02_JPRB,1.6286E-02_JPRB,&
+&1.4822E-02_JPRB,1.1990E-02_JPRB,7.7579E-03_JPRB,7.1488E-03_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&1.6630E-02_JPRB,2.0815E-02_JPRB,2.1568E-02_JPRB,2.1440E-02_JPRB,2.0973E-02_JPRB,2.0006E-02_JPRB,&
+&1.8126E-02_JPRB,1.4654E-02_JPRB,9.8329E-03_JPRB,8.5205E-03_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&2.0444E-02_JPRB,2.5553E-02_JPRB,2.6397E-02_JPRB,2.6132E-02_JPRB,2.5471E-02_JPRB,2.4223E-02_JPRB,&
+&2.1910E-02_JPRB,1.7722E-02_JPRB,1.2155E-02_JPRB,1.0148E-02_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&2.4887E-02_JPRB,3.0959E-02_JPRB,3.1847E-02_JPRB,3.1469E-02_JPRB,3.0641E-02_JPRB,2.9051E-02_JPRB,&
+&2.6190E-02_JPRB,2.1212E-02_JPRB,1.4767E-02_JPRB,1.2110E-02_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&2.9912E-02_JPRB,3.7010E-02_JPRB,3.8031E-02_JPRB,3.7546E-02_JPRB,3.6509E-02_JPRB,3.4523E-02_JPRB,&
+&3.1009E-02_JPRB,2.5164E-02_JPRB,1.7705E-02_JPRB,1.4427E-02_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&1.0066E-02_JPRB,1.2668E-02_JPRB,1.3071E-02_JPRB,1.3029E-02_JPRB,1.2765E-02_JPRB,1.2217E-02_JPRB,&
+&1.1148E-02_JPRB,9.0021E-03_JPRB,5.7587E-03_JPRB,5.4209E-03_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&1.2757E-02_JPRB,1.6015E-02_JPRB,1.6544E-02_JPRB,1.6397E-02_JPRB,1.5990E-02_JPRB,1.5234E-02_JPRB,&
+&1.3789E-02_JPRB,1.1105E-02_JPRB,7.3967E-03_JPRB,6.5046E-03_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&1.5901E-02_JPRB,1.9963E-02_JPRB,2.0508E-02_JPRB,2.0254E-02_JPRB,1.9682E-02_JPRB,1.8644E-02_JPRB,&
+&1.6821E-02_JPRB,1.3552E-02_JPRB,9.2356E-03_JPRB,7.7811E-03_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&1.9596E-02_JPRB,2.4499E-02_JPRB,2.5082E-02_JPRB,2.4696E-02_JPRB,2.3936E-02_JPRB,2.2580E-02_JPRB,&
+&2.0269E-02_JPRB,1.6344E-02_JPRB,1.1321E-02_JPRB,9.3163E-03_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&2.3830E-02_JPRB,2.9650E-02_JPRB,3.0334E-02_JPRB,2.9811E-02_JPRB,2.8792E-02_JPRB,2.7070E-02_JPRB,&
+&2.4166E-02_JPRB,1.9536E-02_JPRB,1.3665E-02_JPRB,1.1111E-02_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&7.6087E-03_JPRB,9.4951E-03_JPRB,9.7649E-03_JPRB,9.6943E-03_JPRB,9.4691E-03_JPRB,9.0311E-03_JPRB,&
+&8.2249E-03_JPRB,6.6528E-03_JPRB,4.3378E-03_JPRB,4.2627E-03_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&9.7029E-03_JPRB,1.2146E-02_JPRB,1.2495E-02_JPRB,1.2394E-02_JPRB,1.2047E-02_JPRB,1.1438E-02_JPRB,&
+&1.0329E-02_JPRB,8.2946E-03_JPRB,5.4267E-03_JPRB,5.0549E-03_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&1.2241E-02_JPRB,1.5353E-02_JPRB,1.5729E-02_JPRB,1.5534E-02_JPRB,1.5039E-02_JPRB,1.4188E-02_JPRB,&
+&1.2727E-02_JPRB,1.0218E-02_JPRB,6.8803E-03_JPRB,6.0223E-03_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&1.5222E-02_JPRB,1.9088E-02_JPRB,1.9504E-02_JPRB,1.9213E-02_JPRB,1.8550E-02_JPRB,1.7379E-02_JPRB,&
+&1.5483E-02_JPRB,1.2434E-02_JPRB,8.5170E-03_JPRB,7.2084E-03_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&1.8677E-02_JPRB,2.3384E-02_JPRB,2.3892E-02_JPRB,2.3510E-02_JPRB,2.2581E-02_JPRB,2.1034E-02_JPRB,&
+&1.8630E-02_JPRB,1.4980E-02_JPRB,1.0415E-02_JPRB,8.6059E-03_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&5.7827E-03_JPRB,7.1313E-03_JPRB,7.2802E-03_JPRB,7.2045E-03_JPRB,6.9954E-03_JPRB,6.6269E-03_JPRB,&
+&6.0097E-03_JPRB,4.8731E-03_JPRB,3.1264E-03_JPRB,3.7137E-03_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&7.4084E-03_JPRB,9.1887E-03_JPRB,9.4000E-03_JPRB,9.3096E-03_JPRB,9.0304E-03_JPRB,8.5190E-03_JPRB,&
+&7.6733E-03_JPRB,6.1525E-03_JPRB,3.9263E-03_JPRB,4.3944E-03_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&9.4040E-03_JPRB,1.1717E-02_JPRB,1.1976E-02_JPRB,1.1835E-02_JPRB,1.1434E-02_JPRB,1.0726E-02_JPRB,&
+&9.5804E-03_JPRB,7.6627E-03_JPRB,5.0656E-03_JPRB,5.1961E-03_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&1.1772E-02_JPRB,1.4730E-02_JPRB,1.5048E-02_JPRB,1.4854E-02_JPRB,1.4302E-02_JPRB,1.3320E-02_JPRB,&
+&1.1779E-02_JPRB,9.4074E-03_JPRB,6.3725E-03_JPRB,6.1249E-03_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&1.4533E-02_JPRB,1.8234E-02_JPRB,1.8652E-02_JPRB,1.8417E-02_JPRB,1.7654E-02_JPRB,1.6319E-02_JPRB,&
+&1.4317E-02_JPRB,1.1422E-02_JPRB,7.8881E-03_JPRB,7.1931E-03_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&4.3473E-03_JPRB,5.3530E-03_JPRB,5.4453E-03_JPRB,5.3772E-03_JPRB,5.1866E-03_JPRB,4.8647E-03_JPRB,&
+&4.3808E-03_JPRB,3.5559E-03_JPRB,2.4173E-03_JPRB,3.5108E-03_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&5.6534E-03_JPRB,6.9608E-03_JPRB,7.0942E-03_JPRB,6.9933E-03_JPRB,6.7489E-03_JPRB,6.3330E-03_JPRB,&
+&5.6745E-03_JPRB,4.5520E-03_JPRB,2.9081E-03_JPRB,4.1180E-03_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&7.2231E-03_JPRB,8.9492E-03_JPRB,9.1155E-03_JPRB,8.9772E-03_JPRB,8.6519E-03_JPRB,8.0865E-03_JPRB,&
+&7.1842E-03_JPRB,5.7298E-03_JPRB,3.7126E-03_JPRB,4.8510E-03_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&9.0980E-03_JPRB,1.1325E-02_JPRB,1.1554E-02_JPRB,1.1402E-02_JPRB,1.0960E-02_JPRB,1.0182E-02_JPRB,&
+&8.9521E-03_JPRB,7.1103E-03_JPRB,4.7399E-03_JPRB,5.6880E-03_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&1.1302E-02_JPRB,1.4121E-02_JPRB,1.4457E-02_JPRB,1.4302E-02_JPRB,1.3709E-02_JPRB,1.2644E-02_JPRB,&
+&1.1007E-02_JPRB,8.6993E-03_JPRB,5.9281E-03_JPRB,6.6436E-03_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&3.2166E-03_JPRB,3.9635E-03_JPRB,4.0421E-03_JPRB,3.9936E-03_JPRB,3.8441E-03_JPRB,3.5923E-03_JPRB,&
+&3.2097E-03_JPRB,2.5886E-03_JPRB,1.7693E-03_JPRB,5.0615E-03_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&4.2551E-03_JPRB,5.2496E-03_JPRB,5.3431E-03_JPRB,5.2633E-03_JPRB,5.0543E-03_JPRB,4.7090E-03_JPRB,&
+&4.1979E-03_JPRB,3.3556E-03_JPRB,2.0811E-03_JPRB,5.7517E-03_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&5.5178E-03_JPRB,6.8310E-03_JPRB,6.9481E-03_JPRB,6.8181E-03_JPRB,6.5340E-03_JPRB,6.0733E-03_JPRB,&
+&5.3775E-03_JPRB,4.2779E-03_JPRB,2.6744E-03_JPRB,6.5436E-03_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&7.0233E-03_JPRB,8.7120E-03_JPRB,8.8693E-03_JPRB,8.7209E-03_JPRB,8.3514E-03_JPRB,7.7376E-03_JPRB,&
+&6.7992E-03_JPRB,5.3653E-03_JPRB,3.4836E-03_JPRB,7.4458E-03_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&8.7908E-03_JPRB,1.0935E-02_JPRB,1.1156E-02_JPRB,1.1011E-02_JPRB,1.0551E-02_JPRB,9.7377E-03_JPRB,&
+&8.4643E-03_JPRB,6.6157E-03_JPRB,4.4105E-03_JPRB,8.4131E-03_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&2.4036E-03_JPRB,2.9626E-03_JPRB,3.0270E-03_JPRB,2.9891E-03_JPRB,2.8783E-03_JPRB,2.6966E-03_JPRB,&
+&2.4167E-03_JPRB,1.9384E-03_JPRB,1.2950E-03_JPRB,1.2580E-02_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&3.2304E-03_JPRB,3.9936E-03_JPRB,4.0696E-03_JPRB,4.0063E-03_JPRB,3.8441E-03_JPRB,3.5817E-03_JPRB,&
+&3.1841E-03_JPRB,2.5258E-03_JPRB,1.6318E-03_JPRB,1.3867E-02_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&4.2450E-03_JPRB,5.2713E-03_JPRB,5.3717E-03_JPRB,5.2683E-03_JPRB,5.0339E-03_JPRB,4.6625E-03_JPRB,&
+&4.1091E-03_JPRB,3.2509E-03_JPRB,2.0065E-03_JPRB,1.5204E-02_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&5.4744E-03_JPRB,6.8064E-03_JPRB,6.9238E-03_JPRB,6.7912E-03_JPRB,6.4905E-03_JPRB,5.9838E-03_JPRB,&
+&5.2439E-03_JPRB,4.1188E-03_JPRB,2.6002E-03_JPRB,1.6652E-02_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&6.9353E-03_JPRB,8.6079E-03_JPRB,8.7635E-03_JPRB,8.6181E-03_JPRB,8.2349E-03_JPRB,7.5886E-03_JPRB,&
+&6.5994E-03_JPRB,5.1192E-03_JPRB,3.3239E-03_JPRB,1.8251E-02_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&2.0648E-03_JPRB,2.5481E-03_JPRB,2.6000E-03_JPRB,2.5607E-03_JPRB,2.4630E-03_JPRB,2.3069E-03_JPRB,&
+&2.0692E-03_JPRB,1.6562E-03_JPRB,1.0860E-03_JPRB,1.7049E-02_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&2.7859E-03_JPRB,3.4547E-03_JPRB,3.5237E-03_JPRB,3.4594E-03_JPRB,3.3142E-03_JPRB,3.0841E-03_JPRB,&
+&2.7345E-03_JPRB,2.1584E-03_JPRB,1.3341E-03_JPRB,1.8747E-02_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&3.6773E-03_JPRB,4.5764E-03_JPRB,4.6633E-03_JPRB,4.5751E-03_JPRB,4.3721E-03_JPRB,4.0405E-03_JPRB,&
+&3.5419E-03_JPRB,2.7771E-03_JPRB,1.6730E-03_JPRB,2.0460E-02_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&4.7645E-03_JPRB,5.9262E-03_JPRB,6.0301E-03_JPRB,5.9104E-03_JPRB,5.6462E-03_JPRB,5.2017E-03_JPRB,&
+&4.5306E-03_JPRB,3.5163E-03_JPRB,2.1775E-03_JPRB,2.2225E-02_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&6.0673E-03_JPRB,7.5194E-03_JPRB,7.6592E-03_JPRB,7.5146E-03_JPRB,7.1608E-03_JPRB,6.5750E-03_JPRB,&
+&5.6954E-03_JPRB,4.3877E-03_JPRB,2.7878E-03_JPRB,2.4112E-02_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&1.7649E-03_JPRB,2.1840E-03_JPRB,2.2273E-03_JPRB,2.1894E-03_JPRB,2.1029E-03_JPRB,1.9647E-03_JPRB,&
+&1.7570E-03_JPRB,1.4092E-03_JPRB,9.0612E-04_JPRB,1.8116E-02_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&2.3911E-03_JPRB,2.9721E-03_JPRB,3.0306E-03_JPRB,2.9776E-03_JPRB,2.8514E-03_JPRB,2.6450E-03_JPRB,&
+&2.3351E-03_JPRB,1.8424E-03_JPRB,1.0968E-03_JPRB,1.9929E-02_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&3.1732E-03_JPRB,3.9503E-03_JPRB,4.0215E-03_JPRB,3.9440E-03_JPRB,3.7721E-03_JPRB,3.4863E-03_JPRB,&
+&3.0465E-03_JPRB,2.3738E-03_JPRB,1.3931E-03_JPRB,2.1707E-02_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&4.1329E-03_JPRB,5.1374E-03_JPRB,5.2226E-03_JPRB,5.1161E-03_JPRB,4.8827E-03_JPRB,4.4950E-03_JPRB,&
+&3.9019E-03_JPRB,3.0106E-03_JPRB,1.8199E-03_JPRB,2.3542E-02_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&5.2972E-03_JPRB,6.5406E-03_JPRB,6.6636E-03_JPRB,6.5319E-03_JPRB,6.2060E-03_JPRB,5.6779E-03_JPRB,&
+&4.9006E-03_JPRB,3.7653E-03_JPRB,2.3340E-03_JPRB,2.5478E-02_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&1.4917E-03_JPRB,1.8531E-03_JPRB,1.8920E-03_JPRB,1.8620E-03_JPRB,1.7861E-03_JPRB,1.6617E-03_JPRB,&
+&1.4788E-03_JPRB,1.1873E-03_JPRB,7.5550E-04_JPRB,1.5444E-02_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&2.0333E-03_JPRB,2.5348E-03_JPRB,2.5838E-03_JPRB,2.5408E-03_JPRB,2.4328E-03_JPRB,2.2514E-03_JPRB,&
+&1.9783E-03_JPRB,1.5611E-03_JPRB,9.0187E-04_JPRB,1.7015E-02_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&2.7153E-03_JPRB,3.3873E-03_JPRB,3.4439E-03_JPRB,3.3763E-03_JPRB,3.2264E-03_JPRB,2.9750E-03_JPRB,&
+&2.5932E-03_JPRB,2.0239E-03_JPRB,1.1597E-03_JPRB,1.8564E-02_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&3.5625E-03_JPRB,4.4244E-03_JPRB,4.4971E-03_JPRB,4.4025E-03_JPRB,4.1909E-03_JPRB,3.8436E-03_JPRB,&
+&3.3277E-03_JPRB,2.5719E-03_JPRB,1.5159E-03_JPRB,2.0176E-02_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&4.5915E-03_JPRB,5.6599E-03_JPRB,5.7629E-03_JPRB,5.6406E-03_JPRB,5.3423E-03_JPRB,4.8700E-03_JPRB,&
+&4.1907E-03_JPRB,3.2171E-03_JPRB,1.9497E-03_JPRB,2.1913E-02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_A2.F90	(revision 2160)
@@ -0,0 +1,1998 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 10 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 7) = (/&
+&6.4013E-02_JPRB,7.3559E-02_JPRB,7.8016E-02_JPRB,7.8110E-02_JPRB,7.4963E-02_JPRB,6.8933E-02_JPRB,&
+&6.0750E-02_JPRB,4.8875E-02_JPRB,3.9308E-02_JPRB,3.6560E-02_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&7.6363E-02_JPRB,8.7960E-02_JPRB,9.3559E-02_JPRB,9.3979E-02_JPRB,9.0734E-02_JPRB,8.3349E-02_JPRB,&
+&7.3192E-02_JPRB,5.8774E-02_JPRB,4.7441E-02_JPRB,4.4036E-02_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&8.9758E-02_JPRB,1.0331E-01_JPRB,1.1051E-01_JPRB,1.1169E-01_JPRB,1.0769E-01_JPRB,9.8679E-02_JPRB,&
+&8.6726E-02_JPRB,6.9819E-02_JPRB,5.6655E-02_JPRB,5.2675E-02_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&1.0433E-01_JPRB,1.2008E-01_JPRB,1.2928E-01_JPRB,1.3105E-01_JPRB,1.2576E-01_JPRB,1.1544E-01_JPRB,&
+&1.0166E-01_JPRB,8.2241E-02_JPRB,6.7142E-02_JPRB,6.2520E-02_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&1.2001E-01_JPRB,1.3824E-01_JPRB,1.4932E-01_JPRB,1.5158E-01_JPRB,1.4526E-01_JPRB,1.3374E-01_JPRB,&
+&1.1804E-01_JPRB,9.5951E-02_JPRB,7.9016E-02_JPRB,7.3734E-02_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&5.2968E-02_JPRB,6.2116E-02_JPRB,6.5835E-02_JPRB,6.6044E-02_JPRB,6.3294E-02_JPRB,5.8161E-02_JPRB,&
+&5.1176E-02_JPRB,4.1393E-02_JPRB,3.1133E-02_JPRB,2.8255E-02_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&6.3728E-02_JPRB,7.4899E-02_JPRB,7.9536E-02_JPRB,8.0057E-02_JPRB,7.7101E-02_JPRB,7.0839E-02_JPRB,&
+&6.2175E-02_JPRB,5.0108E-02_JPRB,3.7798E-02_JPRB,3.4182E-02_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&7.5532E-02_JPRB,8.8572E-02_JPRB,9.4648E-02_JPRB,9.5700E-02_JPRB,9.1973E-02_JPRB,8.4443E-02_JPRB,&
+&7.4085E-02_JPRB,5.9918E-02_JPRB,4.5429E-02_JPRB,4.1069E-02_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&8.8404E-02_JPRB,1.0356E-01_JPRB,1.1124E-01_JPRB,1.1259E-01_JPRB,1.0798E-01_JPRB,9.9246E-02_JPRB,&
+&8.7373E-02_JPRB,7.0993E-02_JPRB,5.4110E-02_JPRB,4.8926E-02_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&1.0235E-01_JPRB,1.2010E-01_JPRB,1.2926E-01_JPRB,1.3064E-01_JPRB,1.2537E-01_JPRB,1.1556E-01_JPRB,&
+&1.0208E-01_JPRB,8.3206E-02_JPRB,6.4030E-02_JPRB,5.7947E-02_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&4.1735E-02_JPRB,4.9803E-02_JPRB,5.2741E-02_JPRB,5.2657E-02_JPRB,5.0249E-02_JPRB,4.6113E-02_JPRB,&
+&4.0588E-02_JPRB,3.2986E-02_JPRB,2.3522E-02_JPRB,2.0886E-02_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&5.0841E-02_JPRB,6.0757E-02_JPRB,6.4389E-02_JPRB,6.4564E-02_JPRB,6.1844E-02_JPRB,5.6795E-02_JPRB,&
+&4.9854E-02_JPRB,4.0407E-02_JPRB,2.8855E-02_JPRB,2.5442E-02_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&6.0889E-02_JPRB,7.2603E-02_JPRB,7.7334E-02_JPRB,7.7876E-02_JPRB,7.4574E-02_JPRB,6.8388E-02_JPRB,&
+&6.0037E-02_JPRB,4.8827E-02_JPRB,3.5004E-02_JPRB,3.0751E-02_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&7.1992E-02_JPRB,8.5675E-02_JPRB,9.1634E-02_JPRB,9.2233E-02_JPRB,8.8356E-02_JPRB,8.1063E-02_JPRB,&
+&7.1397E-02_JPRB,5.8371E-02_JPRB,4.1972E-02_JPRB,3.6821E-02_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&8.4144E-02_JPRB,1.0019E-01_JPRB,1.0713E-01_JPRB,1.0774E-01_JPRB,1.0345E-01_JPRB,9.5140E-02_JPRB,&
+&8.4076E-02_JPRB,6.8896E-02_JPRB,4.9944E-02_JPRB,4.3832E-02_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&3.2154E-02_JPRB,3.8970E-02_JPRB,4.1150E-02_JPRB,4.0802E-02_JPRB,3.8734E-02_JPRB,3.5463E-02_JPRB,&
+&3.1189E-02_JPRB,2.5441E-02_JPRB,1.7426E-02_JPRB,1.5348E-02_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&3.9739E-02_JPRB,4.8115E-02_JPRB,5.0846E-02_JPRB,5.0567E-02_JPRB,4.8188E-02_JPRB,4.4146E-02_JPRB,&
+&3.8765E-02_JPRB,3.1629E-02_JPRB,2.1722E-02_JPRB,1.8824E-02_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&4.8232E-02_JPRB,5.8202E-02_JPRB,6.1786E-02_JPRB,6.1691E-02_JPRB,5.8769E-02_JPRB,5.3800E-02_JPRB,&
+&4.7237E-02_JPRB,3.8627E-02_JPRB,2.6596E-02_JPRB,2.2906E-02_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&5.7693E-02_JPRB,6.9403E-02_JPRB,7.3912E-02_JPRB,7.3801E-02_JPRB,7.0370E-02_JPRB,6.4487E-02_JPRB,&
+&5.6733E-02_JPRB,4.6604E-02_JPRB,3.2157E-02_JPRB,2.7582E-02_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&6.8162E-02_JPRB,8.1910E-02_JPRB,8.6943E-02_JPRB,8.6947E-02_JPRB,8.3116E-02_JPRB,7.6355E-02_JPRB,&
+&6.7389E-02_JPRB,5.5474E-02_JPRB,3.8506E-02_JPRB,3.2984E-02_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&2.4543E-02_JPRB,3.0114E-02_JPRB,3.1564E-02_JPRB,3.1114E-02_JPRB,2.9453E-02_JPRB,2.6887E-02_JPRB,&
+&2.3575E-02_JPRB,1.9323E-02_JPRB,1.2795E-02_JPRB,1.1691E-02_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&3.0843E-02_JPRB,3.7719E-02_JPRB,3.9540E-02_JPRB,3.9065E-02_JPRB,3.7079E-02_JPRB,3.3845E-02_JPRB,&
+&2.9679E-02_JPRB,2.4367E-02_JPRB,1.6282E-02_JPRB,1.4283E-02_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&3.7989E-02_JPRB,4.6141E-02_JPRB,4.8601E-02_JPRB,4.8164E-02_JPRB,4.5691E-02_JPRB,4.1697E-02_JPRB,&
+&3.6599E-02_JPRB,3.0110E-02_JPRB,2.0230E-02_JPRB,1.7316E-02_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&4.5997E-02_JPRB,5.5639E-02_JPRB,5.8738E-02_JPRB,5.8217E-02_JPRB,5.5293E-02_JPRB,5.0551E-02_JPRB,&
+&4.4474E-02_JPRB,3.6675E-02_JPRB,2.4679E-02_JPRB,2.0824E-02_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&5.4980E-02_JPRB,6.6335E-02_JPRB,6.9689E-02_JPRB,6.9220E-02_JPRB,6.5934E-02_JPRB,6.0477E-02_JPRB,&
+&5.3356E-02_JPRB,4.4023E-02_JPRB,2.9735E-02_JPRB,2.4925E-02_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&1.8426E-02_JPRB,2.2761E-02_JPRB,2.3641E-02_JPRB,2.3226E-02_JPRB,2.1929E-02_JPRB,1.9968E-02_JPRB,&
+&1.7467E-02_JPRB,1.4347E-02_JPRB,9.1807E-03_JPRB,8.8441E-03_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&2.3578E-02_JPRB,2.9032E-02_JPRB,3.0133E-02_JPRB,2.9606E-02_JPRB,2.7996E-02_JPRB,2.5495E-02_JPRB,&
+&2.2298E-02_JPRB,1.8363E-02_JPRB,1.2129E-02_JPRB,1.0950E-02_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&2.9507E-02_JPRB,3.6047E-02_JPRB,3.7508E-02_JPRB,3.6913E-02_JPRB,3.4886E-02_JPRB,3.1786E-02_JPRB,&
+&2.7844E-02_JPRB,2.2965E-02_JPRB,1.5292E-02_JPRB,1.3409E-02_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&3.6266E-02_JPRB,4.4015E-02_JPRB,4.5865E-02_JPRB,4.5103E-02_JPRB,4.2675E-02_JPRB,3.8982E-02_JPRB,&
+&3.4261E-02_JPRB,2.8279E-02_JPRB,1.8853E-02_JPRB,1.6214E-02_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&4.3984E-02_JPRB,5.3041E-02_JPRB,5.5017E-02_JPRB,5.4129E-02_JPRB,5.1429E-02_JPRB,4.7161E-02_JPRB,&
+&4.1564E-02_JPRB,3.4270E-02_JPRB,2.2882E-02_JPRB,1.9446E-02_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&1.3764E-02_JPRB,1.6980E-02_JPRB,1.7488E-02_JPRB,1.7108E-02_JPRB,1.6106E-02_JPRB,1.4660E-02_JPRB,&
+&1.2811E-02_JPRB,1.0508E-02_JPRB,6.5858E-03_JPRB,7.3979E-03_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&1.7905E-02_JPRB,2.2049E-02_JPRB,2.2708E-02_JPRB,2.2213E-02_JPRB,2.0912E-02_JPRB,1.9015E-02_JPRB,&
+&1.6594E-02_JPRB,1.3616E-02_JPRB,8.9925E-03_JPRB,8.9127E-03_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&2.2781E-02_JPRB,2.7834E-02_JPRB,2.8707E-02_JPRB,2.8089E-02_JPRB,2.6436E-02_JPRB,2.4036E-02_JPRB,&
+&2.1001E-02_JPRB,1.7243E-02_JPRB,1.1550E-02_JPRB,1.0727E-02_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&2.8466E-02_JPRB,3.4473E-02_JPRB,3.5499E-02_JPRB,3.4681E-02_JPRB,3.2695E-02_JPRB,2.9803E-02_JPRB,&
+&2.6138E-02_JPRB,2.1504E-02_JPRB,1.4432E-02_JPRB,1.2888E-02_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&3.5087E-02_JPRB,4.2091E-02_JPRB,4.3096E-02_JPRB,4.2057E-02_JPRB,3.9781E-02_JPRB,3.6456E-02_JPRB,&
+&3.2089E-02_JPRB,2.6356E-02_JPRB,1.7665E-02_JPRB,1.5419E-02_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&1.0353E-02_JPRB,1.2614E-02_JPRB,1.2882E-02_JPRB,1.2507E-02_JPRB,1.1737E-02_JPRB,1.0675E-02_JPRB,&
+&9.3093E-03_JPRB,7.6257E-03_JPRB,4.6116E-03_JPRB,7.3615E-03_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&1.3587E-02_JPRB,1.6625E-02_JPRB,1.6988E-02_JPRB,1.6539E-02_JPRB,1.5521E-02_JPRB,1.4075E-02_JPRB,&
+&1.2252E-02_JPRB,1.0008E-02_JPRB,6.5742E-03_JPRB,8.8183E-03_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&1.7551E-02_JPRB,2.1310E-02_JPRB,2.1821E-02_JPRB,2.1262E-02_JPRB,1.9937E-02_JPRB,1.8066E-02_JPRB,&
+&1.5721E-02_JPRB,1.2839E-02_JPRB,8.6653E-03_JPRB,1.0458E-02_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&2.2265E-02_JPRB,2.6814E-02_JPRB,2.7357E-02_JPRB,2.6600E-02_JPRB,2.4976E-02_JPRB,2.2670E-02_JPRB,&
+&1.9796E-02_JPRB,1.6193E-02_JPRB,1.0979E-02_JPRB,1.2332E-02_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&2.7862E-02_JPRB,3.3218E-02_JPRB,3.3662E-02_JPRB,3.2634E-02_JPRB,3.0703E-02_JPRB,2.8021E-02_JPRB,&
+&2.4581E-02_JPRB,2.0102E-02_JPRB,1.3589E-02_JPRB,1.4413E-02_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&7.8781E-03_JPRB,9.4357E-03_JPRB,9.5082E-03_JPRB,9.1567E-03_JPRB,8.5455E-03_JPRB,7.7115E-03_JPRB,&
+&6.6987E-03_JPRB,5.4668E-03_JPRB,3.2375E-03_JPRB,1.0690E-02_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&1.0378E-02_JPRB,1.2532E-02_JPRB,1.2692E-02_JPRB,1.2260E-02_JPRB,1.1450E-02_JPRB,1.0342E-02_JPRB,&
+&8.9582E-03_JPRB,7.2956E-03_JPRB,4.7236E-03_JPRB,1.2330E-02_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&1.3495E-02_JPRB,1.6270E-02_JPRB,1.6516E-02_JPRB,1.6000E-02_JPRB,1.4955E-02_JPRB,1.3485E-02_JPRB,&
+&1.1675E-02_JPRB,9.4744E-03_JPRB,6.3929E-03_JPRB,1.4160E-02_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&1.7315E-02_JPRB,2.0761E-02_JPRB,2.1026E-02_JPRB,2.0326E-02_JPRB,1.9009E-02_JPRB,1.7164E-02_JPRB,&
+&1.4884E-02_JPRB,1.2091E-02_JPRB,8.2532E-03_JPRB,1.6229E-02_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&2.1950E-02_JPRB,2.6079E-02_JPRB,2.6242E-02_JPRB,2.5301E-02_JPRB,2.3645E-02_JPRB,2.1443E-02_JPRB,&
+&1.8684E-02_JPRB,1.5203E-02_JPRB,1.0361E-02_JPRB,1.8623E-02_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&6.0912E-03_JPRB,7.2618E-03_JPRB,7.2497E-03_JPRB,6.9368E-03_JPRB,6.4251E-03_JPRB,5.7381E-03_JPRB,&
+&4.9224E-03_JPRB,3.9870E-03_JPRB,2.3279E-03_JPRB,2.4406E-02_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&8.1237E-03_JPRB,9.7061E-03_JPRB,9.7375E-03_JPRB,9.3388E-03_JPRB,8.6591E-03_JPRB,7.7505E-03_JPRB,&
+&6.6642E-03_JPRB,5.3997E-03_JPRB,3.3513E-03_JPRB,2.6559E-02_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&1.0643E-02_JPRB,1.2680E-02_JPRB,1.2767E-02_JPRB,1.2292E-02_JPRB,1.1416E-02_JPRB,1.0235E-02_JPRB,&
+&8.8042E-03_JPRB,7.1077E-03_JPRB,4.7423E-03_JPRB,2.9166E-02_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&1.3745E-02_JPRB,1.6327E-02_JPRB,1.6432E-02_JPRB,1.5803E-02_JPRB,1.4680E-02_JPRB,1.3196E-02_JPRB,&
+&1.1368E-02_JPRB,9.1591E-03_JPRB,6.2576E-03_JPRB,3.2140E-02_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&1.7515E-02_JPRB,2.0726E-02_JPRB,2.0778E-02_JPRB,1.9936E-02_JPRB,1.8503E-02_JPRB,1.6679E-02_JPRB,&
+&1.4419E-02_JPRB,1.1642E-02_JPRB,7.9656E-03_JPRB,3.5445E-02_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&5.3549E-03_JPRB,6.3816E-03_JPRB,6.3660E-03_JPRB,6.0840E-03_JPRB,5.6156E-03_JPRB,4.9825E-03_JPRB,&
+&4.2303E-03_JPRB,3.3795E-03_JPRB,1.9749E-03_JPRB,3.2367E-02_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&7.2013E-03_JPRB,8.5604E-03_JPRB,8.5532E-03_JPRB,8.1763E-03_JPRB,7.5421E-03_JPRB,6.6997E-03_JPRB,&
+&5.7065E-03_JPRB,4.5729E-03_JPRB,2.8632E-03_JPRB,3.5196E-02_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&9.5022E-03_JPRB,1.1202E-02_JPRB,1.1204E-02_JPRB,1.0716E-02_JPRB,9.9000E-03_JPRB,8.8230E-03_JPRB,&
+&7.5394E-03_JPRB,6.0331E-03_JPRB,4.0236E-03_JPRB,3.8638E-02_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&1.2288E-02_JPRB,1.4432E-02_JPRB,1.4424E-02_JPRB,1.3791E-02_JPRB,1.2735E-02_JPRB,1.1387E-02_JPRB,&
+&9.7608E-03_JPRB,7.8103E-03_JPRB,5.3234E-03_JPRB,4.2507E-02_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&1.5567E-02_JPRB,1.8295E-02_JPRB,1.8261E-02_JPRB,1.7460E-02_JPRB,1.6145E-02_JPRB,1.4469E-02_JPRB,&
+&1.2448E-02_JPRB,9.9477E-03_JPRB,6.7800E-03_JPRB,4.6703E-02_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&4.6610E-03_JPRB,5.5454E-03_JPRB,5.5315E-03_JPRB,5.2838E-03_JPRB,4.8759E-03_JPRB,4.3254E-03_JPRB,&
+&3.6583E-03_JPRB,2.8821E-03_JPRB,1.6681E-03_JPRB,3.4347E-02_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&6.3285E-03_JPRB,7.4864E-03_JPRB,7.4682E-03_JPRB,7.1266E-03_JPRB,6.5590E-03_JPRB,5.8111E-03_JPRB,&
+&4.9232E-03_JPRB,3.8901E-03_JPRB,2.4263E-03_JPRB,3.7723E-02_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&8.4114E-03_JPRB,9.8725E-03_JPRB,9.8303E-03_JPRB,9.3562E-03_JPRB,8.6044E-03_JPRB,7.6370E-03_JPRB,&
+&6.4946E-03_JPRB,5.1447E-03_JPRB,3.4144E-03_JPRB,4.1645E-02_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&1.0877E-02_JPRB,1.2730E-02_JPRB,1.2662E-02_JPRB,1.2056E-02_JPRB,1.1093E-02_JPRB,9.8741E-03_JPRB,&
+&8.4352E-03_JPRB,6.6865E-03_JPRB,4.5146E-03_JPRB,4.5836E-02_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&1.3747E-02_JPRB,1.6074E-02_JPRB,1.5983E-02_JPRB,1.5257E-02_JPRB,1.4098E-02_JPRB,1.2612E-02_JPRB,&
+&1.0799E-02_JPRB,8.5347E-03_JPRB,5.7461E-03_JPRB,5.0295E-02_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&4.0079E-03_JPRB,4.7560E-03_JPRB,4.7417E-03_JPRB,4.5251E-03_JPRB,4.1763E-03_JPRB,3.7162E-03_JPRB,&
+&3.1488E-03_JPRB,2.4610E-03_JPRB,1.3983E-03_JPRB,2.9797E-02_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&5.4975E-03_JPRB,6.4791E-03_JPRB,6.4467E-03_JPRB,6.1399E-03_JPRB,5.6502E-03_JPRB,5.0140E-03_JPRB,&
+&4.2451E-03_JPRB,3.3175E-03_JPRB,2.0465E-03_JPRB,3.3074E-02_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&7.3173E-03_JPRB,8.5913E-03_JPRB,8.5377E-03_JPRB,8.1192E-03_JPRB,7.4539E-03_JPRB,6.6075E-03_JPRB,&
+&5.6063E-03_JPRB,4.3940E-03_JPRB,2.8772E-03_JPRB,3.6709E-02_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&9.4743E-03_JPRB,1.1090E-02_JPRB,1.1002E-02_JPRB,1.0468E-02_JPRB,9.6356E-03_JPRB,8.5792E-03_JPRB,&
+&7.2993E-03_JPRB,5.7314E-03_JPRB,3.8025E-03_JPRB,4.0547E-02_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&1.2013E-02_JPRB,1.3994E-02_JPRB,1.3879E-02_JPRB,1.3228E-02_JPRB,1.2234E-02_JPRB,1.0964E-02_JPRB,&
+&9.3662E-03_JPRB,7.3363E-03_JPRB,4.8412E-03_JPRB,4.4593E-02_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&1.6043E-01_JPRB,1.5955E-01_JPRB,1.5744E-01_JPRB,1.5203E-01_JPRB,1.4391E-01_JPRB,1.3266E-01_JPRB,&
+&1.1826E-01_JPRB,1.0647E-01_JPRB,1.0371E-01_JPRB,1.0144E-01_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&1.9219E-01_JPRB,1.9200E-01_JPRB,1.8944E-01_JPRB,1.8309E-01_JPRB,1.7324E-01_JPRB,1.6054E-01_JPRB,&
+&1.4443E-01_JPRB,1.3095E-01_JPRB,1.2672E-01_JPRB,1.2410E-01_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&2.2629E-01_JPRB,2.2700E-01_JPRB,2.2424E-01_JPRB,2.1719E-01_JPRB,2.0625E-01_JPRB,1.9280E-01_JPRB,&
+&1.7410E-01_JPRB,1.5851E-01_JPRB,1.5238E-01_JPRB,1.4924E-01_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&2.6302E-01_JPRB,2.6487E-01_JPRB,2.6214E-01_JPRB,2.5470E-01_JPRB,2.4371E-01_JPRB,2.2882E-01_JPRB,&
+&2.0692E-01_JPRB,1.8914E-01_JPRB,1.8098E-01_JPRB,1.7748E-01_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&3.0195E-01_JPRB,3.0538E-01_JPRB,3.0299E-01_JPRB,2.9584E-01_JPRB,2.8471E-01_JPRB,2.6793E-01_JPRB,&
+&2.4285E-01_JPRB,2.2301E-01_JPRB,2.1336E-01_JPRB,2.0952E-01_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&1.3846E-01_JPRB,1.4022E-01_JPRB,1.4003E-01_JPRB,1.3582E-01_JPRB,1.2900E-01_JPRB,1.1965E-01_JPRB,&
+&1.0668E-01_JPRB,9.1059E-02_JPRB,8.5585E-02_JPRB,8.1636E-02_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&1.6715E-01_JPRB,1.6985E-01_JPRB,1.6971E-01_JPRB,1.6484E-01_JPRB,1.5668E-01_JPRB,1.4564E-01_JPRB,&
+&1.3093E-01_JPRB,1.1285E-01_JPRB,1.0555E-01_JPRB,1.0079E-01_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&1.9803E-01_JPRB,2.0244E-01_JPRB,2.0211E-01_JPRB,1.9690E-01_JPRB,1.8801E-01_JPRB,1.7558E-01_JPRB,&
+&1.5851E-01_JPRB,1.3719E-01_JPRB,1.2761E-01_JPRB,1.2193E-01_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&2.3133E-01_JPRB,2.3777E-01_JPRB,2.3782E-01_JPRB,2.3254E-01_JPRB,2.2351E-01_JPRB,2.0946E-01_JPRB,&
+&1.8890E-01_JPRB,1.6397E-01_JPRB,1.5196E-01_JPRB,1.4557E-01_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&2.6711E-01_JPRB,2.7542E-01_JPRB,2.7668E-01_JPRB,2.7185E-01_JPRB,2.6232E-01_JPRB,2.4621E-01_JPRB,&
+&2.2197E-01_JPRB,1.9371E-01_JPRB,1.7953E-01_JPRB,1.7231E-01_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&1.1272E-01_JPRB,1.1648E-01_JPRB,1.1742E-01_JPRB,1.1452E-01_JPRB,1.0929E-01_JPRB,1.0158E-01_JPRB,&
+&9.0376E-02_JPRB,7.4637E-02_JPRB,6.6429E-02_JPRB,6.1506E-02_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&1.3749E-01_JPRB,1.4273E-01_JPRB,1.4386E-01_JPRB,1.4052E-01_JPRB,1.3417E-01_JPRB,1.2510E-01_JPRB,&
+&1.1193E-01_JPRB,9.3361E-02_JPRB,8.2893E-02_JPRB,7.6819E-02_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&1.6469E-01_JPRB,1.7179E-01_JPRB,1.7314E-01_JPRB,1.6944E-01_JPRB,1.6261E-01_JPRB,1.5216E-01_JPRB,&
+&1.3674E-01_JPRB,1.1431E-01_JPRB,1.0110E-01_JPRB,9.3702E-02_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&1.9422E-01_JPRB,2.0356E-01_JPRB,2.0555E-01_JPRB,2.0203E-01_JPRB,1.9491E-01_JPRB,1.8285E-01_JPRB,&
+&1.6414E-01_JPRB,1.3754E-01_JPRB,1.2151E-01_JPRB,1.1286E-01_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&2.2623E-01_JPRB,2.3781E-01_JPRB,2.4116E-01_JPRB,2.3829E-01_JPRB,2.3049E-01_JPRB,2.1610E-01_JPRB,&
+&1.9397E-01_JPRB,1.6347E-01_JPRB,1.4442E-01_JPRB,1.3449E-01_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&8.9051E-02_JPRB,9.4148E-02_JPRB,9.5376E-02_JPRB,9.3490E-02_JPRB,8.9564E-02_JPRB,8.3123E-02_JPRB,&
+&7.3825E-02_JPRB,6.0440E-02_JPRB,5.0018E-02_JPRB,4.5241E-02_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&1.0984E-01_JPRB,1.1667E-01_JPRB,1.1837E-01_JPRB,1.1624E-01_JPRB,1.1142E-01_JPRB,1.0383E-01_JPRB,&
+&9.2686E-02_JPRB,7.6384E-02_JPRB,6.3307E-02_JPRB,5.7158E-02_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&1.3321E-01_JPRB,1.4188E-01_JPRB,1.4403E-01_JPRB,1.4173E-01_JPRB,1.3641E-01_JPRB,1.2779E-01_JPRB,&
+&1.1439E-01_JPRB,9.4375E-02_JPRB,7.8066E-02_JPRB,7.0497E-02_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&1.5891E-01_JPRB,1.6984E-01_JPRB,1.7265E-01_JPRB,1.7069E-01_JPRB,1.6497E-01_JPRB,1.5505E-01_JPRB,&
+&1.3862E-01_JPRB,1.1439E-01_JPRB,9.4690E-02_JPRB,8.5635E-02_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&1.8690E-01_JPRB,2.0031E-01_JPRB,2.0459E-01_JPRB,2.0306E-01_JPRB,1.9673E-01_JPRB,1.8463E-01_JPRB,&
+&1.6524E-01_JPRB,1.3669E-01_JPRB,1.1330E-01_JPRB,1.0289E-01_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&6.9203E-02_JPRB,7.4779E-02_JPRB,7.5983E-02_JPRB,7.4840E-02_JPRB,7.1567E-02_JPRB,6.6398E-02_JPRB,&
+&5.8865E-02_JPRB,4.8193E-02_JPRB,3.7188E-02_JPRB,3.3169E-02_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&8.6430E-02_JPRB,9.3817E-02_JPRB,9.5587E-02_JPRB,9.4322E-02_JPRB,9.0456E-02_JPRB,8.4124E-02_JPRB,&
+&7.5016E-02_JPRB,6.1615E-02_JPRB,4.7744E-02_JPRB,4.2317E-02_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&1.0608E-01_JPRB,1.1542E-01_JPRB,1.1772E-01_JPRB,1.1636E-01_JPRB,1.1218E-01_JPRB,1.0479E-01_JPRB,&
+&9.3784E-02_JPRB,7.6996E-02_JPRB,5.9545E-02_JPRB,5.2656E-02_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&1.2808E-01_JPRB,1.3974E-01_JPRB,1.4262E-01_JPRB,1.4148E-01_JPRB,1.3703E-01_JPRB,1.2845E-01_JPRB,&
+&1.1485E-01_JPRB,9.4184E-02_JPRB,7.2838E-02_JPRB,6.4516E-02_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&1.5224E-01_JPRB,1.6648E-01_JPRB,1.7081E-01_JPRB,1.6990E-01_JPRB,1.6471E-01_JPRB,1.5442E-01_JPRB,&
+&1.3821E-01_JPRB,1.1347E-01_JPRB,8.7956E-02_JPRB,7.8195E-02_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&5.2711E-02_JPRB,5.7994E-02_JPRB,5.9096E-02_JPRB,5.8090E-02_JPRB,5.5430E-02_JPRB,5.1354E-02_JPRB,&
+&4.5515E-02_JPRB,3.7271E-02_JPRB,2.7030E-02_JPRB,2.5040E-02_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&6.6719E-02_JPRB,7.3700E-02_JPRB,7.5367E-02_JPRB,7.4311E-02_JPRB,7.1156E-02_JPRB,6.6068E-02_JPRB,&
+&5.8853E-02_JPRB,4.8369E-02_JPRB,3.5301E-02_JPRB,3.1744E-02_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&8.2863E-02_JPRB,9.1758E-02_JPRB,9.3947E-02_JPRB,9.2979E-02_JPRB,8.9500E-02_JPRB,8.3468E-02_JPRB,&
+&7.4609E-02_JPRB,6.1328E-02_JPRB,4.4683E-02_JPRB,3.9440E-02_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&1.0132E-01_JPRB,1.1234E-01_JPRB,1.1520E-01_JPRB,1.1443E-01_JPRB,1.1059E-01_JPRB,1.0353E-01_JPRB,&
+&9.2489E-02_JPRB,7.5833E-02_JPRB,5.5318E-02_JPRB,4.8406E-02_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&1.2185E-01_JPRB,1.3538E-01_JPRB,1.3945E-01_JPRB,1.3895E-01_JPRB,1.3433E-01_JPRB,1.2572E-01_JPRB,&
+&1.1243E-01_JPRB,9.2112E-02_JPRB,6.7492E-02_JPRB,5.8870E-02_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&3.9562E-02_JPRB,4.4276E-02_JPRB,4.5109E-02_JPRB,4.4187E-02_JPRB,4.2082E-02_JPRB,3.8859E-02_JPRB,&
+&3.4454E-02_JPRB,2.8224E-02_JPRB,1.9384E-02_JPRB,1.9321E-02_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&5.0879E-02_JPRB,5.7055E-02_JPRB,5.8399E-02_JPRB,5.7367E-02_JPRB,5.4802E-02_JPRB,5.0789E-02_JPRB,&
+&4.5232E-02_JPRB,3.7273E-02_JPRB,2.5806E-02_JPRB,2.4869E-02_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&6.4003E-02_JPRB,7.1996E-02_JPRB,7.3764E-02_JPRB,7.2774E-02_JPRB,6.9847E-02_JPRB,6.5078E-02_JPRB,&
+&5.8125E-02_JPRB,4.7947E-02_JPRB,3.3205E-02_JPRB,3.1173E-02_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&7.9173E-02_JPRB,8.9239E-02_JPRB,9.1617E-02_JPRB,9.0750E-02_JPRB,8.7396E-02_JPRB,8.1720E-02_JPRB,&
+&7.3031E-02_JPRB,6.0013E-02_JPRB,4.1674E-02_JPRB,3.8297E-02_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&9.6350E-02_JPRB,1.0877E-01_JPRB,1.1214E-01_JPRB,1.1148E-01_JPRB,1.0740E-01_JPRB,1.0030E-01_JPRB,&
+&8.9645E-02_JPRB,7.3703E-02_JPRB,5.1413E-02_JPRB,4.6217E-02_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&2.9374E-02_JPRB,3.3358E-02_JPRB,3.3910E-02_JPRB,3.3176E-02_JPRB,3.1488E-02_JPRB,2.9002E-02_JPRB,&
+&2.5651E-02_JPRB,2.0998E-02_JPRB,1.3790E-02_JPRB,1.7931E-02_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&3.8453E-02_JPRB,4.3732E-02_JPRB,4.4619E-02_JPRB,4.3676E-02_JPRB,4.1586E-02_JPRB,3.8491E-02_JPRB,&
+&3.4234E-02_JPRB,2.8236E-02_JPRB,1.8826E-02_JPRB,2.1882E-02_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&4.9075E-02_JPRB,5.5936E-02_JPRB,5.7139E-02_JPRB,5.6138E-02_JPRB,5.3708E-02_JPRB,4.9953E-02_JPRB,&
+&4.4646E-02_JPRB,3.6887E-02_JPRB,2.4662E-02_JPRB,2.6591E-02_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&6.1437E-02_JPRB,7.0140E-02_JPRB,7.1902E-02_JPRB,7.0919E-02_JPRB,6.8027E-02_JPRB,6.3508E-02_JPRB,&
+&5.6793E-02_JPRB,4.6822E-02_JPRB,3.1405E-02_JPRB,3.2120E-02_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&7.5648E-02_JPRB,8.6455E-02_JPRB,8.9059E-02_JPRB,8.8138E-02_JPRB,8.4612E-02_JPRB,7.8826E-02_JPRB,&
+&7.0474E-02_JPRB,5.8121E-02_JPRB,3.9203E-02_JPRB,3.8693E-02_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&2.1631E-02_JPRB,2.4762E-02_JPRB,2.5091E-02_JPRB,2.4519E-02_JPRB,2.3245E-02_JPRB,2.1343E-02_JPRB,&
+&1.8810E-02_JPRB,1.5373E-02_JPRB,9.7641E-03_JPRB,2.9273E-02_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&2.8813E-02_JPRB,3.3084E-02_JPRB,3.3621E-02_JPRB,3.2842E-02_JPRB,3.1201E-02_JPRB,2.8769E-02_JPRB,&
+&2.5516E-02_JPRB,2.1018E-02_JPRB,1.3707E-02_JPRB,3.3813E-02_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&3.7408E-02_JPRB,4.2984E-02_JPRB,4.3696E-02_JPRB,4.2737E-02_JPRB,4.0787E-02_JPRB,3.7847E-02_JPRB,&
+&3.3777E-02_JPRB,2.7905E-02_JPRB,1.8311E-02_JPRB,3.9010E-02_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&4.7502E-02_JPRB,5.4598E-02_JPRB,5.5650E-02_JPRB,5.4654E-02_JPRB,5.2292E-02_JPRB,4.8701E-02_JPRB,&
+&4.3528E-02_JPRB,3.5956E-02_JPRB,2.3660E-02_JPRB,4.4684E-02_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&5.9184E-02_JPRB,6.8075E-02_JPRB,6.9737E-02_JPRB,6.8716E-02_JPRB,6.5788E-02_JPRB,6.1148E-02_JPRB,&
+&5.4664E-02_JPRB,4.5216E-02_JPRB,2.9878E-02_JPRB,5.0829E-02_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&1.6420E-02_JPRB,1.8693E-02_JPRB,1.8856E-02_JPRB,1.8334E-02_JPRB,1.7341E-02_JPRB,1.5930E-02_JPRB,&
+&1.4013E-02_JPRB,1.1403E-02_JPRB,7.0640E-03_JPRB,7.0532E-02_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&2.2040E-02_JPRB,2.5317E-02_JPRB,2.5632E-02_JPRB,2.5009E-02_JPRB,2.3702E-02_JPRB,2.1797E-02_JPRB,&
+&1.9273E-02_JPRB,1.5810E-02_JPRB,1.0204E-02_JPRB,7.6827E-02_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&2.8968E-02_JPRB,3.3418E-02_JPRB,3.3805E-02_JPRB,3.2963E-02_JPRB,3.1358E-02_JPRB,2.9007E-02_JPRB,&
+&2.5810E-02_JPRB,2.1266E-02_JPRB,1.3886E-02_JPRB,8.3691E-02_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&3.7285E-02_JPRB,4.3000E-02_JPRB,4.3529E-02_JPRB,4.2562E-02_JPRB,4.0635E-02_JPRB,3.7704E-02_JPRB,&
+&3.3617E-02_JPRB,2.7781E-02_JPRB,1.8177E-02_JPRB,9.1457E-02_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&4.7085E-02_JPRB,5.4248E-02_JPRB,5.5089E-02_JPRB,5.4027E-02_JPRB,5.1573E-02_JPRB,4.7828E-02_JPRB,&
+&4.2671E-02_JPRB,3.5326E-02_JPRB,2.3198E-02_JPRB,9.9898E-02_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&1.4563E-02_JPRB,1.6480E-02_JPRB,1.6520E-02_JPRB,1.5972E-02_JPRB,1.5054E-02_JPRB,1.3800E-02_JPRB,&
+&1.2151E-02_JPRB,9.8498E-03_JPRB,6.1529E-03_JPRB,9.3025E-02_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&1.9422E-02_JPRB,2.2230E-02_JPRB,2.2365E-02_JPRB,2.1742E-02_JPRB,2.0575E-02_JPRB,1.8920E-02_JPRB,&
+&1.6702E-02_JPRB,1.3649E-02_JPRB,8.8593E-03_JPRB,9.9753E-02_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&2.5471E-02_JPRB,2.9351E-02_JPRB,2.9545E-02_JPRB,2.8766E-02_JPRB,2.7276E-02_JPRB,2.5150E-02_JPRB,&
+&2.2319E-02_JPRB,1.8330E-02_JPRB,1.2044E-02_JPRB,1.0708E-01_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&3.2877E-02_JPRB,3.7913E-02_JPRB,3.8172E-02_JPRB,3.7200E-02_JPRB,3.5345E-02_JPRB,3.2640E-02_JPRB,&
+&2.9010E-02_JPRB,2.3912E-02_JPRB,1.5750E-02_JPRB,1.1551E-01_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&4.1783E-02_JPRB,4.8070E-02_JPRB,4.8478E-02_JPRB,4.7211E-02_JPRB,4.4842E-02_JPRB,4.1431E-02_JPRB,&
+&3.6822E-02_JPRB,3.0426E-02_JPRB,2.0117E-02_JPRB,1.2493E-01_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&1.2968E-02_JPRB,1.4613E-02_JPRB,1.4518E-02_JPRB,1.3965E-02_JPRB,1.3108E-02_JPRB,1.1965E-02_JPRB,&
+&1.0480E-02_JPRB,8.4661E-03_JPRB,5.3281E-03_JPRB,9.6224E-02_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&1.7226E-02_JPRB,1.9607E-02_JPRB,1.9589E-02_JPRB,1.8955E-02_JPRB,1.7877E-02_JPRB,1.6390E-02_JPRB,&
+&1.4401E-02_JPRB,1.1714E-02_JPRB,7.6423E-03_JPRB,1.0281E-01_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&2.2561E-02_JPRB,2.5832E-02_JPRB,2.5887E-02_JPRB,2.5130E-02_JPRB,2.3746E-02_JPRB,2.1760E-02_JPRB,&
+&1.9184E-02_JPRB,1.5701E-02_JPRB,1.0359E-02_JPRB,1.1042E-01_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&2.9208E-02_JPRB,3.3517E-02_JPRB,3.3592E-02_JPRB,3.2561E-02_JPRB,3.0751E-02_JPRB,2.8221E-02_JPRB,&
+&2.4906E-02_JPRB,2.0465E-02_JPRB,1.3564E-02_JPRB,1.1943E-01_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&3.7315E-02_JPRB,4.2782E-02_JPRB,4.2863E-02_JPRB,4.1414E-02_JPRB,3.9083E-02_JPRB,3.5863E-02_JPRB,&
+&3.1661E-02_JPRB,2.6087E-02_JPRB,1.7348E-02_JPRB,1.2941E-01_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&1.1431E-02_JPRB,1.2896E-02_JPRB,1.2736E-02_JPRB,1.2199E-02_JPRB,1.1402E-02_JPRB,1.0345E-02_JPRB,&
+&9.0003E-03_JPRB,7.2287E-03_JPRB,4.5824E-03_JPRB,8.0519E-02_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&1.5206E-02_JPRB,1.7258E-02_JPRB,1.7158E-02_JPRB,1.6539E-02_JPRB,1.5531E-02_JPRB,1.4140E-02_JPRB,&
+&1.2338E-02_JPRB,9.9830E-03_JPRB,6.5464E-03_JPRB,8.6863E-02_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&1.9972E-02_JPRB,2.2777E-02_JPRB,2.2713E-02_JPRB,2.1940E-02_JPRB,2.0631E-02_JPRB,1.8770E-02_JPRB,&
+&1.6415E-02_JPRB,1.3364E-02_JPRB,8.8693E-03_JPRB,9.4420E-02_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&2.5947E-02_JPRB,2.9698E-02_JPRB,2.9634E-02_JPRB,2.8542E-02_JPRB,2.6762E-02_JPRB,2.4361E-02_JPRB,&
+&2.1338E-02_JPRB,1.7424E-02_JPRB,1.1633E-02_JPRB,1.0329E-01_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&3.3342E-02_JPRB,3.8082E-02_JPRB,3.7942E-02_JPRB,3.6482E-02_JPRB,3.4168E-02_JPRB,3.1080E-02_JPRB,&
+&2.7224E-02_JPRB,2.2266E-02_JPRB,1.4896E-02_JPRB,1.1299E-01_JPRB/)
+KAO( :, 1, 1, 9) = (/&
+&3.5399E-01_JPRB,3.3121E-01_JPRB,3.2486E-01_JPRB,3.1880E-01_JPRB,3.1822E-01_JPRB,3.2442E-01_JPRB,&
+&3.3586E-01_JPRB,3.4269E-01_JPRB,3.3501E-01_JPRB,3.3685E-01_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&4.2651E-01_JPRB,4.0055E-01_JPRB,3.9461E-01_JPRB,3.8890E-01_JPRB,3.8920E-01_JPRB,3.9613E-01_JPRB,&
+&4.0802E-01_JPRB,4.1445E-01_JPRB,4.0640E-01_JPRB,4.0867E-01_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&5.0539E-01_JPRB,4.7639E-01_JPRB,4.7090E-01_JPRB,4.6538E-01_JPRB,4.6724E-01_JPRB,4.7472E-01_JPRB,&
+&4.8830E-01_JPRB,4.9479E-01_JPRB,4.8770E-01_JPRB,4.9083E-01_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&5.9058E-01_JPRB,5.5850E-01_JPRB,5.5373E-01_JPRB,5.4899E-01_JPRB,5.5264E-01_JPRB,5.6233E-01_JPRB,&
+&5.7911E-01_JPRB,5.8486E-01_JPRB,5.8020E-01_JPRB,5.8417E-01_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&6.8144E-01_JPRB,6.4618E-01_JPRB,6.4280E-01_JPRB,6.4028E-01_JPRB,6.4693E-01_JPRB,6.6026E-01_JPRB,&
+&6.7993E-01_JPRB,6.8608E-01_JPRB,6.8519E-01_JPRB,6.9037E-01_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&3.4190E-01_JPRB,3.2327E-01_JPRB,3.1819E-01_JPRB,3.0936E-01_JPRB,3.0384E-01_JPRB,3.0263E-01_JPRB,&
+&3.0472E-01_JPRB,3.0754E-01_JPRB,2.9901E-01_JPRB,2.9844E-01_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&4.1493E-01_JPRB,3.9389E-01_JPRB,3.8895E-01_JPRB,3.7913E-01_JPRB,3.7292E-01_JPRB,3.7132E-01_JPRB,&
+&3.7292E-01_JPRB,3.7436E-01_JPRB,3.6462E-01_JPRB,3.6374E-01_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&4.9524E-01_JPRB,4.7144E-01_JPRB,4.6681E-01_JPRB,4.5556E-01_JPRB,4.4901E-01_JPRB,4.4730E-01_JPRB,&
+&4.4941E-01_JPRB,4.4980E-01_JPRB,4.3975E-01_JPRB,4.3888E-01_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&5.8258E-01_JPRB,5.5620E-01_JPRB,5.5130E-01_JPRB,5.3974E-01_JPRB,5.3286E-01_JPRB,5.3221E-01_JPRB,&
+&5.3561E-01_JPRB,5.3530E-01_JPRB,5.2641E-01_JPRB,5.2532E-01_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&6.7549E-01_JPRB,6.4700E-01_JPRB,6.4191E-01_JPRB,6.3134E-01_JPRB,6.2562E-01_JPRB,6.2644E-01_JPRB,&
+&6.3141E-01_JPRB,6.3148E-01_JPRB,6.2520E-01_JPRB,6.2423E-01_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&3.1322E-01_JPRB,2.9905E-01_JPRB,2.9475E-01_JPRB,2.8714E-01_JPRB,2.7777E-01_JPRB,2.7056E-01_JPRB,&
+&2.6471E-01_JPRB,2.6169E-01_JPRB,2.5251E-01_JPRB,2.4874E-01_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&3.8433E-01_JPRB,3.6852E-01_JPRB,3.6478E-01_JPRB,3.5517E-01_JPRB,3.4410E-01_JPRB,3.3552E-01_JPRB,&
+&3.2763E-01_JPRB,3.2198E-01_JPRB,3.1065E-01_JPRB,3.0619E-01_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&4.6279E-01_JPRB,4.4538E-01_JPRB,4.4243E-01_JPRB,4.3036E-01_JPRB,4.1731E-01_JPRB,4.0795E-01_JPRB,&
+&3.9813E-01_JPRB,3.9008E-01_JPRB,3.7721E-01_JPRB,3.7260E-01_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&5.4926E-01_JPRB,5.2996E-01_JPRB,5.2724E-01_JPRB,5.1320E-01_JPRB,4.9840E-01_JPRB,4.8894E-01_JPRB,&
+&4.7837E-01_JPRB,4.6780E-01_JPRB,4.5401E-01_JPRB,4.4835E-01_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&6.4194E-01_JPRB,6.2152E-01_JPRB,6.1862E-01_JPRB,6.0327E-01_JPRB,5.8767E-01_JPRB,5.7864E-01_JPRB,&
+&5.6818E-01_JPRB,5.5487E-01_JPRB,5.4176E-01_JPRB,5.3533E-01_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&2.7768E-01_JPRB,2.6760E-01_JPRB,2.6572E-01_JPRB,2.5980E-01_JPRB,2.4896E-01_JPRB,2.3795E-01_JPRB,&
+&2.2584E-01_JPRB,2.1553E-01_JPRB,2.0567E-01_JPRB,1.9994E-01_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&3.4628E-01_JPRB,3.3518E-01_JPRB,3.3312E-01_JPRB,3.2573E-01_JPRB,3.1238E-01_JPRB,2.9848E-01_JPRB,&
+&2.8332E-01_JPRB,2.6934E-01_JPRB,2.5641E-01_JPRB,2.4969E-01_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&4.2166E-01_JPRB,4.1018E-01_JPRB,4.0846E-01_JPRB,3.9896E-01_JPRB,3.8288E-01_JPRB,3.6617E-01_JPRB,&
+&3.4804E-01_JPRB,3.3049E-01_JPRB,3.1485E-01_JPRB,3.0688E-01_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&5.0480E-01_JPRB,4.9294E-01_JPRB,4.9184E-01_JPRB,4.7995E-01_JPRB,4.6126E-01_JPRB,4.4207E-01_JPRB,&
+&4.2165E-01_JPRB,4.0000E-01_JPRB,3.8208E-01_JPRB,3.7264E-01_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&5.9516E-01_JPRB,5.8326E-01_JPRB,5.8244E-01_JPRB,5.6852E-01_JPRB,5.4774E-01_JPRB,5.2760E-01_JPRB,&
+&5.0410E-01_JPRB,4.7792E-01_JPRB,4.5860E-01_JPRB,4.4782E-01_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&2.4131E-01_JPRB,2.3501E-01_JPRB,2.3520E-01_JPRB,2.3089E-01_JPRB,2.2183E-01_JPRB,2.0721E-01_JPRB,&
+&1.9087E-01_JPRB,1.7544E-01_JPRB,1.6409E-01_JPRB,1.5817E-01_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&3.0553E-01_JPRB,2.9936E-01_JPRB,2.9956E-01_JPRB,2.9368E-01_JPRB,2.8148E-01_JPRB,2.6374E-01_JPRB,&
+&2.4318E-01_JPRB,2.2281E-01_JPRB,2.0743E-01_JPRB,2.0014E-01_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&3.7703E-01_JPRB,3.7157E-01_JPRB,3.7167E-01_JPRB,3.6419E-01_JPRB,3.4859E-01_JPRB,3.2739E-01_JPRB,&
+&3.0264E-01_JPRB,2.7688E-01_JPRB,2.5755E-01_JPRB,2.4828E-01_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&4.5610E-01_JPRB,4.5131E-01_JPRB,4.5213E-01_JPRB,4.4247E-01_JPRB,4.2387E-01_JPRB,3.9882E-01_JPRB,&
+&3.7008E-01_JPRB,3.3849E-01_JPRB,3.1536E-01_JPRB,3.0426E-01_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&5.4247E-01_JPRB,5.3886E-01_JPRB,5.4021E-01_JPRB,5.2840E-01_JPRB,5.0753E-01_JPRB,4.7901E-01_JPRB,&
+&4.4567E-01_JPRB,4.0809E-01_JPRB,3.8163E-01_JPRB,3.6881E-01_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&2.0298E-01_JPRB,2.0025E-01_JPRB,2.0213E-01_JPRB,1.9982E-01_JPRB,1.9212E-01_JPRB,1.7691E-01_JPRB,&
+&1.5886E-01_JPRB,1.4069E-01_JPRB,1.2763E-01_JPRB,1.2147E-01_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&2.6157E-01_JPRB,2.5976E-01_JPRB,2.6209E-01_JPRB,2.5832E-01_JPRB,2.4798E-01_JPRB,2.2871E-01_JPRB,&
+&2.0577E-01_JPRB,1.8197E-01_JPRB,1.6416E-01_JPRB,1.5634E-01_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&3.2801E-01_JPRB,3.2761E-01_JPRB,3.3023E-01_JPRB,3.2484E-01_JPRB,3.1114E-01_JPRB,2.8803E-01_JPRB,&
+&2.5966E-01_JPRB,2.2885E-01_JPRB,2.0587E-01_JPRB,1.9644E-01_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&4.0207E-01_JPRB,4.0351E-01_JPRB,4.0622E-01_JPRB,3.9903E-01_JPRB,3.8234E-01_JPRB,3.5465E-01_JPRB,&
+&3.2062E-01_JPRB,2.8289E-01_JPRB,2.5440E-01_JPRB,2.4312E-01_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&4.8336E-01_JPRB,4.8697E-01_JPRB,4.9003E-01_JPRB,4.8114E-01_JPRB,4.6185E-01_JPRB,4.2928E-01_JPRB,&
+&3.8966E-01_JPRB,3.4463E-01_JPRB,3.1043E-01_JPRB,2.9706E-01_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&1.6688E-01_JPRB,1.6702E-01_JPRB,1.7031E-01_JPRB,1.6921E-01_JPRB,1.6199E-01_JPRB,1.4897E-01_JPRB,&
+&1.3092E-01_JPRB,1.1133E-01_JPRB,9.6760E-02_JPRB,9.3718E-02_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&2.1882E-01_JPRB,2.2087E-01_JPRB,2.2486E-01_JPRB,2.2286E-01_JPRB,2.1335E-01_JPRB,1.9615E-01_JPRB,&
+&1.7285E-01_JPRB,1.4695E-01_JPRB,1.2690E-01_JPRB,1.2096E-01_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&2.7888E-01_JPRB,2.8306E-01_JPRB,2.8777E-01_JPRB,2.8469E-01_JPRB,2.7204E-01_JPRB,2.5033E-01_JPRB,&
+&2.2122E-01_JPRB,1.8786E-01_JPRB,1.6161E-01_JPRB,1.5296E-01_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&3.4680E-01_JPRB,3.5385E-01_JPRB,3.5881E-01_JPRB,3.5420E-01_JPRB,3.3854E-01_JPRB,3.1188E-01_JPRB,&
+&2.7612E-01_JPRB,2.3528E-01_JPRB,2.0215E-01_JPRB,1.9095E-01_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&4.2205E-01_JPRB,4.3215E-01_JPRB,4.3759E-01_JPRB,4.3127E-01_JPRB,4.1273E-01_JPRB,3.8116E-01_JPRB,&
+&3.3879E-01_JPRB,2.8948E-01_JPRB,2.4886E-01_JPRB,2.3560E-01_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&1.3459E-01_JPRB,1.3692E-01_JPRB,1.4080E-01_JPRB,1.3971E-01_JPRB,1.3347E-01_JPRB,1.2262E-01_JPRB,&
+&1.0666E-01_JPRB,8.7305E-02_JPRB,7.1915E-02_JPRB,8.0038E-02_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&1.7963E-01_JPRB,1.8442E-01_JPRB,1.8954E-01_JPRB,1.8806E-01_JPRB,1.7951E-01_JPRB,1.6497E-01_JPRB,&
+&1.4377E-01_JPRB,1.1758E-01_JPRB,9.6206E-02_JPRB,1.0094E-01_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&2.3266E-01_JPRB,2.4033E-01_JPRB,2.4672E-01_JPRB,2.4454E-01_JPRB,2.3290E-01_JPRB,2.1424E-01_JPRB,&
+&1.8695E-01_JPRB,1.5303E-01_JPRB,1.2456E-01_JPRB,1.2568E-01_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&2.9355E-01_JPRB,3.0495E-01_JPRB,3.1213E-01_JPRB,3.0852E-01_JPRB,2.9407E-01_JPRB,2.7020E-01_JPRB,&
+&2.3654E-01_JPRB,1.9451E-01_JPRB,1.5796E-01_JPRB,1.5516E-01_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&3.6186E-01_JPRB,3.7725E-01_JPRB,3.8522E-01_JPRB,3.7996E-01_JPRB,3.6242E-01_JPRB,3.3355E-01_JPRB,&
+&2.9318E-01_JPRB,2.4229E-01_JPRB,1.9677E-01_JPRB,1.8992E-01_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&1.0631E-01_JPRB,1.0993E-01_JPRB,1.1355E-01_JPRB,1.1237E-01_JPRB,1.0701E-01_JPRB,9.8207E-02_JPRB,&
+&8.5182E-02_JPRB,6.7755E-02_JPRB,5.2331E-02_JPRB,1.0492E-01_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&1.4454E-01_JPRB,1.5090E-01_JPRB,1.5590E-01_JPRB,1.5444E-01_JPRB,1.4727E-01_JPRB,1.3526E-01_JPRB,&
+&1.1750E-01_JPRB,9.3259E-02_JPRB,7.1622E-02_JPRB,1.2467E-01_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&1.9019E-01_JPRB,2.0011E-01_JPRB,2.0653E-01_JPRB,2.0466E-01_JPRB,1.9486E-01_JPRB,1.7904E-01_JPRB,&
+&1.5563E-01_JPRB,1.2364E-01_JPRB,9.4415E-02_JPRB,1.4740E-01_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&2.4347E-01_JPRB,2.5775E-01_JPRB,2.6549E-01_JPRB,2.6241E-01_JPRB,2.4987E-01_JPRB,2.2949E-01_JPRB,&
+&1.9969E-01_JPRB,1.5939E-01_JPRB,1.2136E-01_JPRB,1.7369E-01_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&3.0422E-01_JPRB,3.2317E-01_JPRB,3.3203E-01_JPRB,3.2777E-01_JPRB,3.1197E-01_JPRB,2.8664E-01_JPRB,&
+&2.5051E-01_JPRB,2.0084E-01_JPRB,1.5296E-01_JPRB,2.0398E-01_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&8.4350E-02_JPRB,8.8815E-02_JPRB,9.2007E-02_JPRB,9.0712E-02_JPRB,8.6235E-02_JPRB,7.8834E-02_JPRB,&
+&6.8251E-02_JPRB,5.3494E-02_JPRB,3.8569E-02_JPRB,2.8448E-01_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&1.1655E-01_JPRB,1.2396E-01_JPRB,1.2864E-01_JPRB,1.2700E-01_JPRB,1.2091E-01_JPRB,1.1076E-01_JPRB,&
+&9.6175E-02_JPRB,7.5206E-02_JPRB,5.3741E-02_JPRB,3.1183E-01_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&1.5575E-01_JPRB,1.6688E-01_JPRB,1.7302E-01_JPRB,1.7096E-01_JPRB,1.6280E-01_JPRB,1.4927E-01_JPRB,&
+&1.2964E-01_JPRB,1.0128E-01_JPRB,7.1998E-02_JPRB,3.4035E-01_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&2.0199E-01_JPRB,2.1771E-01_JPRB,2.2539E-01_JPRB,2.2239E-01_JPRB,2.1182E-01_JPRB,1.9426E-01_JPRB,&
+&1.6870E-01_JPRB,1.3220E-01_JPRB,9.3820E-02_JPRB,3.7022E-01_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&2.5543E-01_JPRB,2.7602E-01_JPRB,2.8512E-01_JPRB,2.8125E-01_JPRB,2.6776E-01_JPRB,2.4558E-01_JPRB,&
+&2.1379E-01_JPRB,1.6843E-01_JPRB,1.1967E-01_JPRB,4.0133E-01_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&7.7305E-02_JPRB,8.3512E-02_JPRB,8.6558E-02_JPRB,8.5115E-02_JPRB,8.0759E-02_JPRB,7.3668E-02_JPRB,&
+&6.3729E-02_JPRB,4.9798E-02_JPRB,3.3279E-02_JPRB,4.2331E-01_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&1.0674E-01_JPRB,1.1631E-01_JPRB,1.2074E-01_JPRB,1.1897E-01_JPRB,1.1306E-01_JPRB,1.0338E-01_JPRB,&
+&8.9693E-02_JPRB,6.9947E-02_JPRB,4.6392E-02_JPRB,4.5759E-01_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&1.4252E-01_JPRB,1.5630E-01_JPRB,1.6230E-01_JPRB,1.5989E-01_JPRB,1.5215E-01_JPRB,1.3931E-01_JPRB,&
+&1.2082E-01_JPRB,9.4229E-02_JPRB,6.2207E-02_JPRB,4.9301E-01_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&1.8495E-01_JPRB,2.0344E-01_JPRB,2.1113E-01_JPRB,2.0801E-01_JPRB,1.9807E-01_JPRB,1.8125E-01_JPRB,&
+&1.5734E-01_JPRB,1.2303E-01_JPRB,8.1307E-02_JPRB,5.3012E-01_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&2.3411E-01_JPRB,2.5783E-01_JPRB,2.6690E-01_JPRB,2.6303E-01_JPRB,2.5035E-01_JPRB,2.2944E-01_JPRB,&
+&1.9943E-01_JPRB,1.5658E-01_JPRB,1.0397E-01_JPRB,5.6789E-01_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&7.0108E-02_JPRB,7.7427E-02_JPRB,8.0063E-02_JPRB,7.8695E-02_JPRB,7.4412E-02_JPRB,6.7798E-02_JPRB,&
+&5.8710E-02_JPRB,4.5826E-02_JPRB,2.8701E-02_JPRB,4.8793E-01_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&9.6572E-02_JPRB,1.0765E-01_JPRB,1.1154E-01_JPRB,1.0976E-01_JPRB,1.0403E-01_JPRB,9.5053E-02_JPRB,&
+&8.2414E-02_JPRB,6.4355E-02_JPRB,4.0085E-02_JPRB,5.2480E-01_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&1.2890E-01_JPRB,1.4436E-01_JPRB,1.4960E-01_JPRB,1.4739E-01_JPRB,1.3992E-01_JPRB,1.2801E-01_JPRB,&
+&1.1096E-01_JPRB,8.6644E-02_JPRB,5.3975E-02_JPRB,5.6251E-01_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&1.6737E-01_JPRB,1.8778E-01_JPRB,1.9430E-01_JPRB,1.9165E-01_JPRB,1.8208E-01_JPRB,1.6659E-01_JPRB,&
+&1.4450E-01_JPRB,1.1307E-01_JPRB,7.0696E-02_JPRB,6.0183E-01_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&2.1186E-01_JPRB,2.3792E-01_JPRB,2.4587E-01_JPRB,2.4233E-01_JPRB,2.3021E-01_JPRB,2.1086E-01_JPRB,&
+&1.8327E-01_JPRB,1.4386E-01_JPRB,9.0292E-02_JPRB,6.4163E-01_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&6.2750E-02_JPRB,7.0678E-02_JPRB,7.2850E-02_JPRB,7.1358E-02_JPRB,6.7441E-02_JPRB,6.1433E-02_JPRB,&
+&5.3185E-02_JPRB,4.1505E-02_JPRB,2.4806E-02_JPRB,4.4700E-01_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&8.6316E-02_JPRB,9.8143E-02_JPRB,1.0134E-01_JPRB,9.9447E-02_JPRB,9.4210E-02_JPRB,8.6014E-02_JPRB,&
+&7.4526E-02_JPRB,5.8273E-02_JPRB,3.4743E-02_JPRB,4.8103E-01_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&1.1529E-01_JPRB,1.3156E-01_JPRB,1.3579E-01_JPRB,1.3346E-01_JPRB,1.2666E-01_JPRB,1.1573E-01_JPRB,&
+&1.0031E-01_JPRB,7.8511E-02_JPRB,4.6928E-02_JPRB,5.1606E-01_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&1.4976E-01_JPRB,1.7104E-01_JPRB,1.7643E-01_JPRB,1.7358E-01_JPRB,1.6473E-01_JPRB,1.5058E-01_JPRB,&
+&1.3067E-01_JPRB,1.0249E-01_JPRB,6.1551E-02_JPRB,5.5224E-01_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&1.8964E-01_JPRB,2.1656E-01_JPRB,2.2339E-01_JPRB,2.1970E-01_JPRB,2.0856E-01_JPRB,1.9074E-01_JPRB,&
+&1.6575E-01_JPRB,1.3031E-01_JPRB,7.8382E-02_JPRB,5.8913E-01_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&6.1867E-01_JPRB,5.7630E-01_JPRB,6.0305E-01_JPRB,6.9456E-01_JPRB,7.7261E-01_JPRB,8.1005E-01_JPRB,&
+&8.2424E-01_JPRB,7.8487E-01_JPRB,7.9716E-01_JPRB,8.1097E-01_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&7.5538E-01_JPRB,7.0706E-01_JPRB,7.4825E-01_JPRB,8.6573E-01_JPRB,9.5133E-01_JPRB,9.9496E-01_JPRB,&
+&1.0144E+00_JPRB,9.4349E-01_JPRB,9.7510E-01_JPRB,9.8557E-01_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&9.0753E-01_JPRB,8.5431E-01_JPRB,9.0954E-01_JPRB,1.0504E+00_JPRB,1.1439E+00_JPRB,1.1961E+00_JPRB,&
+&1.2138E+00_JPRB,1.1038E+00_JPRB,1.1635E+00_JPRB,1.1729E+00_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&1.0717E+00_JPRB,1.0134E+00_JPRB,1.0876E+00_JPRB,1.2471E+00_JPRB,1.3505E+00_JPRB,1.4049E+00_JPRB,&
+&1.4219E+00_JPRB,1.2915E+00_JPRB,1.3878E+00_JPRB,1.3991E+00_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&1.2427E+00_JPRB,1.1827E+00_JPRB,1.2833E+00_JPRB,1.4504E+00_JPRB,1.5635E+00_JPRB,1.6298E+00_JPRB,&
+&1.6597E+00_JPRB,1.4857E+00_JPRB,1.6414E+00_JPRB,1.6460E+00_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&6.4321E-01_JPRB,5.8696E-01_JPRB,5.8230E-01_JPRB,6.5619E-01_JPRB,7.1556E-01_JPRB,7.4170E-01_JPRB,&
+&7.6071E-01_JPRB,7.3912E-01_JPRB,7.4532E-01_JPRB,7.5850E-01_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&7.8984E-01_JPRB,7.2453E-01_JPRB,7.3316E-01_JPRB,8.2574E-01_JPRB,8.9339E-01_JPRB,9.2578E-01_JPRB,&
+&9.3666E-01_JPRB,8.9172E-01_JPRB,9.0627E-01_JPRB,9.2412E-01_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&9.4869E-01_JPRB,8.7312E-01_JPRB,8.9992E-01_JPRB,1.0108E+00_JPRB,1.0906E+00_JPRB,1.1228E+00_JPRB,&
+&1.1184E+00_JPRB,1.0532E+00_JPRB,1.0816E+00_JPRB,1.1050E+00_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&1.1182E+00_JPRB,1.0333E+00_JPRB,1.0816E+00_JPRB,1.2099E+00_JPRB,1.2991E+00_JPRB,1.3295E+00_JPRB,&
+&1.3183E+00_JPRB,1.2305E+00_JPRB,1.2865E+00_JPRB,1.3109E+00_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&1.2953E+00_JPRB,1.2046E+00_JPRB,1.2743E+00_JPRB,1.4197E+00_JPRB,1.5179E+00_JPRB,1.5565E+00_JPRB,&
+&1.5463E+00_JPRB,1.4061E+00_JPRB,1.5050E+00_JPRB,1.5282E+00_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&6.2757E-01_JPRB,5.7473E-01_JPRB,5.5914E-01_JPRB,5.8172E-01_JPRB,6.2887E-01_JPRB,6.5014E-01_JPRB,&
+&6.7802E-01_JPRB,6.5904E-01_JPRB,6.5934E-01_JPRB,6.7295E-01_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&7.8418E-01_JPRB,7.1588E-01_JPRB,7.0607E-01_JPRB,7.4238E-01_JPRB,8.0014E-01_JPRB,8.1822E-01_JPRB,&
+&8.4016E-01_JPRB,8.0936E-01_JPRB,8.1484E-01_JPRB,8.2805E-01_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&9.6014E-01_JPRB,8.7612E-01_JPRB,8.6845E-01_JPRB,9.2232E-01_JPRB,9.9214E-01_JPRB,9.9810E-01_JPRB,&
+&1.0104E+00_JPRB,9.7306E-01_JPRB,9.8869E-01_JPRB,1.0030E+00_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&1.1436E+00_JPRB,1.0500E+00_JPRB,1.0473E+00_JPRB,1.1216E+00_JPRB,1.1992E+00_JPRB,1.1909E+00_JPRB,&
+&1.1979E+00_JPRB,1.1493E+00_JPRB,1.1843E+00_JPRB,1.2028E+00_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&1.3363E+00_JPRB,1.2288E+00_JPRB,1.2400E+00_JPRB,1.3328E+00_JPRB,1.4189E+00_JPRB,1.4085E+00_JPRB,&
+&1.4054E+00_JPRB,1.3326E+00_JPRB,1.3952E+00_JPRB,1.4190E+00_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&6.0902E-01_JPRB,5.5865E-01_JPRB,5.2875E-01_JPRB,5.1792E-01_JPRB,5.4518E-01_JPRB,5.6325E-01_JPRB,&
+&5.8877E-01_JPRB,5.8387E-01_JPRB,5.8206E-01_JPRB,5.9308E-01_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&7.6140E-01_JPRB,6.9912E-01_JPRB,6.7757E-01_JPRB,6.6690E-01_JPRB,7.0327E-01_JPRB,7.2305E-01_JPRB,&
+&7.4172E-01_JPRB,7.2030E-01_JPRB,7.2068E-01_JPRB,7.3161E-01_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&9.4002E-01_JPRB,8.6365E-01_JPRB,8.4366E-01_JPRB,8.3795E-01_JPRB,8.8109E-01_JPRB,8.9279E-01_JPRB,&
+&9.0652E-01_JPRB,8.7018E-01_JPRB,8.7595E-01_JPRB,8.8773E-01_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&1.1361E+00_JPRB,1.0471E+00_JPRB,1.0239E+00_JPRB,1.0291E+00_JPRB,1.0729E+00_JPRB,1.0769E+00_JPRB,&
+&1.0898E+00_JPRB,1.0370E+00_JPRB,1.0554E+00_JPRB,1.0680E+00_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&1.3459E+00_JPRB,1.2415E+00_JPRB,1.2200E+00_JPRB,1.2343E+00_JPRB,1.2811E+00_JPRB,1.2812E+00_JPRB,&
+&1.2941E+00_JPRB,1.2225E+00_JPRB,1.2598E+00_JPRB,1.2702E+00_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&5.7515E-01_JPRB,5.3232E-01_JPRB,5.0391E-01_JPRB,4.7978E-01_JPRB,4.6984E-01_JPRB,4.8839E-01_JPRB,&
+&5.1587E-01_JPRB,5.0590E-01_JPRB,5.0049E-01_JPRB,4.9518E-01_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&7.3128E-01_JPRB,6.7406E-01_JPRB,6.4811E-01_JPRB,6.2049E-01_JPRB,6.1868E-01_JPRB,6.3401E-01_JPRB,&
+&6.5439E-01_JPRB,6.3488E-01_JPRB,6.3015E-01_JPRB,6.2410E-01_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&9.0920E-01_JPRB,8.3759E-01_JPRB,8.1835E-01_JPRB,7.8435E-01_JPRB,7.8487E-01_JPRB,7.9695E-01_JPRB,&
+&8.0516E-01_JPRB,7.7727E-01_JPRB,7.7504E-01_JPRB,7.7636E-01_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&1.1099E+00_JPRB,1.0245E+00_JPRB,1.0070E+00_JPRB,9.7052E-01_JPRB,9.6348E-01_JPRB,9.7780E-01_JPRB,&
+&9.7649E-01_JPRB,9.3660E-01_JPRB,9.3973E-01_JPRB,9.4451E-01_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&1.3305E+00_JPRB,1.2272E+00_JPRB,1.2112E+00_JPRB,1.1732E+00_JPRB,1.1594E+00_JPRB,1.1784E+00_JPRB,&
+&1.1704E+00_JPRB,1.1112E+00_JPRB,1.1263E+00_JPRB,1.1272E+00_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&5.3624E-01_JPRB,4.9966E-01_JPRB,4.7124E-01_JPRB,4.4396E-01_JPRB,4.1309E-01_JPRB,4.1799E-01_JPRB,&
+&4.3204E-01_JPRB,4.1689E-01_JPRB,4.0796E-01_JPRB,4.0296E-01_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&6.9086E-01_JPRB,6.4214E-01_JPRB,6.1471E-01_JPRB,5.8168E-01_JPRB,5.4576E-01_JPRB,5.5331E-01_JPRB,&
+&5.6106E-01_JPRB,5.3207E-01_JPRB,5.1983E-01_JPRB,5.1381E-01_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&8.6785E-01_JPRB,8.0700E-01_JPRB,7.8156E-01_JPRB,7.4169E-01_JPRB,7.0281E-01_JPRB,7.0090E-01_JPRB,&
+&7.0317E-01_JPRB,6.6880E-01_JPRB,6.5685E-01_JPRB,6.4884E-01_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&1.0625E+00_JPRB,9.9150E-01_JPRB,9.7284E-01_JPRB,9.2583E-01_JPRB,8.7592E-01_JPRB,8.6864E-01_JPRB,&
+&8.6733E-01_JPRB,8.2238E-01_JPRB,8.1245E-01_JPRB,8.0011E-01_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&1.2823E+00_JPRB,1.1975E+00_JPRB,1.1856E+00_JPRB,1.1255E+00_JPRB,1.0659E+00_JPRB,1.0612E+00_JPRB,&
+&1.0498E+00_JPRB,9.8546E-01_JPRB,9.8371E-01_JPRB,9.6751E-01_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&4.8822E-01_JPRB,4.5431E-01_JPRB,4.2346E-01_JPRB,3.9680E-01_JPRB,3.7415E-01_JPRB,3.5071E-01_JPRB,&
+&3.5118E-01_JPRB,3.4152E-01_JPRB,3.3119E-01_JPRB,3.2558E-01_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&6.4341E-01_JPRB,5.9836E-01_JPRB,5.6565E-01_JPRB,5.3167E-01_JPRB,5.0027E-01_JPRB,4.7116E-01_JPRB,&
+&4.6350E-01_JPRB,4.4353E-01_JPRB,4.2884E-01_JPRB,4.2493E-01_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&8.2158E-01_JPRB,7.6606E-01_JPRB,7.3098E-01_JPRB,6.8632E-01_JPRB,6.4732E-01_JPRB,6.1167E-01_JPRB,&
+&5.9535E-01_JPRB,5.6548E-01_JPRB,5.4739E-01_JPRB,5.4288E-01_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&1.0179E+00_JPRB,9.5156E-01_JPRB,9.1785E-01_JPRB,8.6567E-01_JPRB,8.1404E-01_JPRB,7.7261E-01_JPRB,&
+&7.5332E-01_JPRB,7.0277E-01_JPRB,6.8164E-01_JPRB,6.6834E-01_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&1.2332E+00_JPRB,1.1568E+00_JPRB,1.1270E+00_JPRB,1.0643E+00_JPRB,1.0019E+00_JPRB,9.5490E-01_JPRB,&
+&9.2760E-01_JPRB,8.5293E-01_JPRB,8.3234E-01_JPRB,8.1269E-01_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&4.2698E-01_JPRB,3.9591E-01_JPRB,3.6905E-01_JPRB,3.5247E-01_JPRB,3.3247E-01_JPRB,3.0233E-01_JPRB,&
+&2.8539E-01_JPRB,2.7613E-01_JPRB,2.6380E-01_JPRB,2.5566E-01_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&5.7792E-01_JPRB,5.3599E-01_JPRB,5.0504E-01_JPRB,4.7965E-01_JPRB,4.5454E-01_JPRB,4.1047E-01_JPRB,&
+&3.8401E-01_JPRB,3.6795E-01_JPRB,3.5022E-01_JPRB,3.4085E-01_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&7.5312E-01_JPRB,7.0208E-01_JPRB,6.6433E-01_JPRB,6.2807E-01_JPRB,5.9800E-01_JPRB,5.3750E-01_JPRB,&
+&5.0237E-01_JPRB,4.7916E-01_JPRB,4.5629E-01_JPRB,4.4355E-01_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&9.4927E-01_JPRB,8.8669E-01_JPRB,8.4547E-01_JPRB,8.0194E-01_JPRB,7.5725E-01_JPRB,6.9205E-01_JPRB,&
+&6.4511E-01_JPRB,6.0026E-01_JPRB,5.7127E-01_JPRB,5.5530E-01_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&1.1639E+00_JPRB,1.0911E+00_JPRB,1.0454E+00_JPRB,9.9552E-01_JPRB,9.4083E-01_JPRB,8.6800E-01_JPRB,&
+&8.0258E-01_JPRB,7.3309E-01_JPRB,6.9987E-01_JPRB,6.8251E-01_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&3.5900E-01_JPRB,3.3445E-01_JPRB,3.1730E-01_JPRB,3.0609E-01_JPRB,2.8916E-01_JPRB,2.6120E-01_JPRB,&
+&2.3361E-01_JPRB,2.1576E-01_JPRB,2.0240E-01_JPRB,3.1625E-01_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&4.9875E-01_JPRB,4.6530E-01_JPRB,4.4401E-01_JPRB,4.2786E-01_JPRB,4.0336E-01_JPRB,3.6326E-01_JPRB,&
+&3.2063E-01_JPRB,2.9583E-01_JPRB,2.7549E-01_JPRB,3.9596E-01_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&6.6489E-01_JPRB,6.2199E-01_JPRB,5.9558E-01_JPRB,5.7021E-01_JPRB,5.3875E-01_JPRB,4.8355E-01_JPRB,&
+&4.2692E-01_JPRB,3.9415E-01_JPRB,3.6637E-01_JPRB,4.8553E-01_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&8.5340E-01_JPRB,8.0059E-01_JPRB,7.6830E-01_JPRB,7.3710E-01_JPRB,6.9306E-01_JPRB,6.2454E-01_JPRB,&
+&5.5697E-01_JPRB,5.0419E-01_JPRB,4.6742E-01_JPRB,5.7732E-01_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&1.0646E+00_JPRB,1.0028E+00_JPRB,9.6218E-01_JPRB,9.2180E-01_JPRB,8.7012E-01_JPRB,7.9202E-01_JPRB,&
+&6.9796E-01_JPRB,6.2710E-01_JPRB,5.8174E-01_JPRB,6.5582E-01_JPRB/)
+KAO( :, 1,10,10) = (/&
+&3.0304E-01_JPRB,2.8397E-01_JPRB,2.7440E-01_JPRB,2.6814E-01_JPRB,2.5119E-01_JPRB,2.2864E-01_JPRB,&
+&1.9712E-01_JPRB,1.7067E-01_JPRB,1.5439E-01_JPRB,6.7616E-01_JPRB/)
+KAO( :, 2,10,10) = (/&
+&4.3039E-01_JPRB,4.0463E-01_JPRB,3.9135E-01_JPRB,3.8116E-01_JPRB,3.5873E-01_JPRB,3.2509E-01_JPRB,&
+&2.7758E-01_JPRB,2.3881E-01_JPRB,2.1708E-01_JPRB,7.4040E-01_JPRB/)
+KAO( :, 3,10,10) = (/&
+&5.8308E-01_JPRB,5.5089E-01_JPRB,5.3392E-01_JPRB,5.1881E-01_JPRB,4.8588E-01_JPRB,4.3969E-01_JPRB,&
+&3.7659E-01_JPRB,3.2471E-01_JPRB,2.9357E-01_JPRB,8.1103E-01_JPRB/)
+KAO( :, 4,10,10) = (/&
+&7.6072E-01_JPRB,7.2098E-01_JPRB,6.9990E-01_JPRB,6.8047E-01_JPRB,6.3309E-01_JPRB,5.7383E-01_JPRB,&
+&4.9589E-01_JPRB,4.2336E-01_JPRB,3.8001E-01_JPRB,8.9328E-01_JPRB/)
+KAO( :, 5,10,10) = (/&
+&9.6027E-01_JPRB,9.1775E-01_JPRB,8.8924E-01_JPRB,8.5893E-01_JPRB,8.0372E-01_JPRB,7.2911E-01_JPRB,&
+&6.3058E-01_JPRB,5.3610E-01_JPRB,4.7858E-01_JPRB,1.0024E+00_JPRB/)
+KAO( :, 1,11,10) = (/&
+&2.9953E-01_JPRB,2.8331E-01_JPRB,2.7926E-01_JPRB,2.7321E-01_JPRB,2.5698E-01_JPRB,2.3318E-01_JPRB,&
+&1.9872E-01_JPRB,1.5868E-01_JPRB,1.3779E-01_JPRB,1.1107E+00_JPRB/)
+KAO( :, 2,11,10) = (/&
+&4.2474E-01_JPRB,4.0404E-01_JPRB,3.9781E-01_JPRB,3.8780E-01_JPRB,3.6438E-01_JPRB,3.3087E-01_JPRB,&
+&2.8103E-01_JPRB,2.2386E-01_JPRB,1.9434E-01_JPRB,1.2029E+00_JPRB/)
+KAO( :, 3,11,10) = (/&
+&5.7442E-01_JPRB,5.4924E-01_JPRB,5.3961E-01_JPRB,5.2667E-01_JPRB,4.9259E-01_JPRB,4.4653E-01_JPRB,&
+&3.8245E-01_JPRB,3.0341E-01_JPRB,2.6142E-01_JPRB,1.2915E+00_JPRB/)
+KAO( :, 4,11,10) = (/&
+&7.4813E-01_JPRB,7.2159E-01_JPRB,7.0602E-01_JPRB,6.8759E-01_JPRB,6.4029E-01_JPRB,5.8462E-01_JPRB,&
+&4.9983E-01_JPRB,3.9642E-01_JPRB,3.3795E-01_JPRB,1.3704E+00_JPRB/)
+KAO( :, 5,11,10) = (/&
+&9.4256E-01_JPRB,9.1581E-01_JPRB,8.9684E-01_JPRB,8.6915E-01_JPRB,8.1278E-01_JPRB,7.3805E-01_JPRB,&
+&6.3353E-01_JPRB,5.0310E-01_JPRB,4.2644E-01_JPRB,1.4638E+00_JPRB/)
+KAO( :, 1,12,10) = (/&
+&2.9002E-01_JPRB,2.7890E-01_JPRB,2.8045E-01_JPRB,2.7244E-01_JPRB,2.5769E-01_JPRB,2.3303E-01_JPRB,&
+&1.9729E-01_JPRB,1.5119E-01_JPRB,1.2251E-01_JPRB,1.4129E+00_JPRB/)
+KAO( :, 2,12,10) = (/&
+&4.1026E-01_JPRB,3.9679E-01_JPRB,3.9830E-01_JPRB,3.8652E-01_JPRB,3.6420E-01_JPRB,3.2847E-01_JPRB,&
+&2.8036E-01_JPRB,2.1376E-01_JPRB,1.7058E-01_JPRB,1.5197E+00_JPRB/)
+KAO( :, 3,12,10) = (/&
+&5.5455E-01_JPRB,5.4038E-01_JPRB,5.4011E-01_JPRB,5.2208E-01_JPRB,4.9107E-01_JPRB,4.4447E-01_JPRB,&
+&3.8090E-01_JPRB,2.8868E-01_JPRB,2.2751E-01_JPRB,1.6225E+00_JPRB/)
+KAO( :, 4,12,10) = (/&
+&7.2014E-01_JPRB,7.0695E-01_JPRB,7.0633E-01_JPRB,6.7903E-01_JPRB,6.3973E-01_JPRB,5.8007E-01_JPRB,&
+&4.9576E-01_JPRB,3.7656E-01_JPRB,2.9460E-01_JPRB,1.7134E+00_JPRB/)
+KAO( :, 5,12,10) = (/&
+&9.0944E-01_JPRB,8.9423E-01_JPRB,8.9075E-01_JPRB,8.5941E-01_JPRB,8.0946E-01_JPRB,7.3161E-01_JPRB,&
+&6.2652E-01_JPRB,4.7880E-01_JPRB,3.7532E-01_JPRB,1.8224E+00_JPRB/)
+KAO( :, 1,13,10) = (/&
+&2.7340E-01_JPRB,2.7076E-01_JPRB,2.7526E-01_JPRB,2.6770E-01_JPRB,2.5179E-01_JPRB,2.2675E-01_JPRB,&
+&1.9245E-01_JPRB,1.4682E-01_JPRB,1.0619E-01_JPRB,1.4210E+00_JPRB/)
+KAO( :, 2,13,10) = (/&
+&3.8641E-01_JPRB,3.8425E-01_JPRB,3.8930E-01_JPRB,3.7816E-01_JPRB,3.5501E-01_JPRB,3.1994E-01_JPRB,&
+&2.7350E-01_JPRB,2.0671E-01_JPRB,1.4761E-01_JPRB,1.5251E+00_JPRB/)
+KAO( :, 3,13,10) = (/&
+&5.2089E-01_JPRB,5.2113E-01_JPRB,5.2738E-01_JPRB,5.0973E-01_JPRB,4.7827E-01_JPRB,4.3346E-01_JPRB,&
+&3.6991E-01_JPRB,2.7849E-01_JPRB,1.9608E-01_JPRB,1.6238E+00_JPRB/)
+KAO( :, 4,13,10) = (/&
+&6.7786E-01_JPRB,6.7938E-01_JPRB,6.8608E-01_JPRB,6.6233E-01_JPRB,6.2421E-01_JPRB,5.6410E-01_JPRB,&
+&4.8140E-01_JPRB,3.6259E-01_JPRB,2.5473E-01_JPRB,1.7230E+00_JPRB/)
+KAO( :, 5,13,10) = (/&
+&8.5711E-01_JPRB,8.6068E-01_JPRB,8.6472E-01_JPRB,8.3617E-01_JPRB,7.8602E-01_JPRB,7.1217E-01_JPRB,&
+&6.0760E-01_JPRB,4.5966E-01_JPRB,3.2905E-01_JPRB,1.8345E+00_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&9.4159E-01_JPRB,8.6910E-01_JPRB,9.4939E-01_JPRB,1.0309E+00_JPRB,1.0971E+00_JPRB,1.1597E+00_JPRB,&
+&1.1573E+00_JPRB,1.0198E+00_JPRB,1.1259E+00_JPRB,1.1444E+00_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&1.1816E+00_JPRB,1.0903E+00_JPRB,1.1681E+00_JPRB,1.2491E+00_JPRB,1.3524E+00_JPRB,1.4252E+00_JPRB,&
+&1.4017E+00_JPRB,1.2548E+00_JPRB,1.3885E+00_JPRB,1.4161E+00_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&1.4457E+00_JPRB,1.3338E+00_JPRB,1.4098E+00_JPRB,1.4943E+00_JPRB,1.6257E+00_JPRB,1.6966E+00_JPRB,&
+&1.6615E+00_JPRB,1.5145E+00_JPRB,1.6823E+00_JPRB,1.7160E+00_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&1.7261E+00_JPRB,1.5936E+00_JPRB,1.6676E+00_JPRB,1.7640E+00_JPRB,1.9034E+00_JPRB,1.9816E+00_JPRB,&
+&1.9375E+00_JPRB,1.7904E+00_JPRB,1.9915E+00_JPRB,2.0290E+00_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&2.0222E+00_JPRB,1.8664E+00_JPRB,1.9402E+00_JPRB,2.0588E+00_JPRB,2.1886E+00_JPRB,2.2719E+00_JPRB,&
+&2.2171E+00_JPRB,2.1130E+00_JPRB,2.3320E+00_JPRB,2.3861E+00_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&8.8414E-01_JPRB,8.3470E-01_JPRB,9.0122E-01_JPRB,9.8198E-01_JPRB,1.0450E+00_JPRB,1.0902E+00_JPRB,&
+&1.0770E+00_JPRB,9.4855E-01_JPRB,1.0386E+00_JPRB,1.0581E+00_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&1.1143E+00_JPRB,1.0550E+00_JPRB,1.1151E+00_JPRB,1.2176E+00_JPRB,1.3030E+00_JPRB,1.3437E+00_JPRB,&
+&1.3207E+00_JPRB,1.1746E+00_JPRB,1.3022E+00_JPRB,1.3229E+00_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&1.3705E+00_JPRB,1.3001E+00_JPRB,1.3557E+00_JPRB,1.4797E+00_JPRB,1.5774E+00_JPRB,1.6133E+00_JPRB,&
+&1.5892E+00_JPRB,1.4167E+00_JPRB,1.5912E+00_JPRB,1.6096E+00_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&1.6529E+00_JPRB,1.5667E+00_JPRB,1.6252E+00_JPRB,1.7602E+00_JPRB,1.8638E+00_JPRB,1.8995E+00_JPRB,&
+&1.8687E+00_JPRB,1.6782E+00_JPRB,1.8967E+00_JPRB,1.9189E+00_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&1.9543E+00_JPRB,1.8492E+00_JPRB,1.9198E+00_JPRB,2.0574E+00_JPRB,2.1583E+00_JPRB,2.1944E+00_JPRB,&
+&2.1594E+00_JPRB,1.9939E+00_JPRB,2.2472E+00_JPRB,2.2791E+00_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&8.1869E-01_JPRB,7.7023E-01_JPRB,8.2109E-01_JPRB,8.8336E-01_JPRB,9.2805E-01_JPRB,9.6128E-01_JPRB,&
+&9.4856E-01_JPRB,8.5843E-01_JPRB,9.1983E-01_JPRB,9.4743E-01_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&1.0389E+00_JPRB,9.8615E-01_JPRB,1.0345E+00_JPRB,1.1256E+00_JPRB,1.1752E+00_JPRB,1.2020E+00_JPRB,&
+&1.1857E+00_JPRB,1.0608E+00_JPRB,1.1599E+00_JPRB,1.1854E+00_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&1.2826E+00_JPRB,1.2250E+00_JPRB,1.2747E+00_JPRB,1.3968E+00_JPRB,1.4383E+00_JPRB,1.4671E+00_JPRB,&
+&1.4487E+00_JPRB,1.2721E+00_JPRB,1.4175E+00_JPRB,1.4350E+00_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&1.5564E+00_JPRB,1.4865E+00_JPRB,1.5447E+00_JPRB,1.6881E+00_JPRB,1.7201E+00_JPRB,1.7557E+00_JPRB,&
+&1.7225E+00_JPRB,1.5035E+00_JPRB,1.6929E+00_JPRB,1.7100E+00_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&1.8539E+00_JPRB,1.7704E+00_JPRB,1.8370E+00_JPRB,1.9889E+00_JPRB,2.0183E+00_JPRB,2.0511E+00_JPRB,&
+&2.0075E+00_JPRB,1.7816E+00_JPRB,2.0126E+00_JPRB,2.0331E+00_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&7.6497E-01_JPRB,7.1076E-01_JPRB,7.3295E-01_JPRB,7.7006E-01_JPRB,7.9642E-01_JPRB,8.2481E-01_JPRB,&
+&8.2608E-01_JPRB,7.5993E-01_JPRB,8.0777E-01_JPRB,8.2848E-01_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&9.8352E-01_JPRB,9.1857E-01_JPRB,9.4611E-01_JPRB,1.0073E+00_JPRB,1.0282E+00_JPRB,1.0497E+00_JPRB,&
+&1.0467E+00_JPRB,9.5389E-01_JPRB,1.0316E+00_JPRB,1.0517E+00_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&1.2292E+00_JPRB,1.1512E+00_JPRB,1.1846E+00_JPRB,1.2709E+00_JPRB,1.2824E+00_JPRB,1.3065E+00_JPRB,&
+&1.2899E+00_JPRB,1.1574E+00_JPRB,1.2650E+00_JPRB,1.2904E+00_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&1.5012E+00_JPRB,1.4093E+00_JPRB,1.4510E+00_JPRB,1.5565E+00_JPRB,1.5637E+00_JPRB,1.5870E+00_JPRB,&
+&1.5399E+00_JPRB,1.3774E+00_JPRB,1.5183E+00_JPRB,1.5518E+00_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&1.7934E+00_JPRB,1.6886E+00_JPRB,1.7434E+00_JPRB,1.8620E+00_JPRB,1.8667E+00_JPRB,1.8779E+00_JPRB,&
+&1.8058E+00_JPRB,1.6243E+00_JPRB,1.8061E+00_JPRB,1.8476E+00_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&7.4548E-01_JPRB,6.7814E-01_JPRB,6.5476E-01_JPRB,6.5948E-01_JPRB,6.7934E-01_JPRB,7.0788E-01_JPRB,&
+&7.1745E-01_JPRB,6.7353E-01_JPRB,7.0461E-01_JPRB,7.3099E-01_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&9.5969E-01_JPRB,8.7825E-01_JPRB,8.6017E-01_JPRB,8.8155E-01_JPRB,8.9239E-01_JPRB,9.1670E-01_JPRB,&
+&9.2708E-01_JPRB,8.5000E-01_JPRB,9.0728E-01_JPRB,9.3032E-01_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&1.2058E+00_JPRB,1.1099E+00_JPRB,1.0960E+00_JPRB,1.1330E+00_JPRB,1.1377E+00_JPRB,1.1558E+00_JPRB,&
+&1.1565E+00_JPRB,1.0416E+00_JPRB,1.1278E+00_JPRB,1.1476E+00_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&1.4810E+00_JPRB,1.3671E+00_JPRB,1.3639E+00_JPRB,1.4095E+00_JPRB,1.4162E+00_JPRB,1.4159E+00_JPRB,&
+&1.3960E+00_JPRB,1.2531E+00_JPRB,1.3726E+00_JPRB,1.3940E+00_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&1.7798E+00_JPRB,1.6471E+00_JPRB,1.6584E+00_JPRB,1.7100E+00_JPRB,1.7173E+00_JPRB,1.6890E+00_JPRB,&
+&1.6525E+00_JPRB,1.4879E+00_JPRB,1.6471E+00_JPRB,1.6748E+00_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&7.0565E-01_JPRB,6.4191E-01_JPRB,5.9174E-01_JPRB,5.6344E-01_JPRB,5.7413E-01_JPRB,6.0216E-01_JPRB,&
+&6.1735E-01_JPRB,5.8882E-01_JPRB,6.1391E-01_JPRB,6.2532E-01_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&9.2376E-01_JPRB,8.4064E-01_JPRB,7.8353E-01_JPRB,7.6203E-01_JPRB,7.6995E-01_JPRB,7.9470E-01_JPRB,&
+&8.0774E-01_JPRB,7.5710E-01_JPRB,7.9836E-01_JPRB,8.1211E-01_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&1.1735E+00_JPRB,1.0693E+00_JPRB,1.0163E+00_JPRB,9.9460E-01_JPRB,1.0005E+00_JPRB,1.0222E+00_JPRB,&
+&1.0221E+00_JPRB,9.3247E-01_JPRB,9.9633E-01_JPRB,1.0096E+00_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&1.4611E+00_JPRB,1.3294E+00_JPRB,1.2780E+00_JPRB,1.2558E+00_JPRB,1.2632E+00_JPRB,1.2674E+00_JPRB,&
+&1.2528E+00_JPRB,1.1244E+00_JPRB,1.2175E+00_JPRB,1.2339E+00_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&1.7762E+00_JPRB,1.6171E+00_JPRB,1.5645E+00_JPRB,1.5462E+00_JPRB,1.5483E+00_JPRB,1.5299E+00_JPRB,&
+&1.5045E+00_JPRB,1.3389E+00_JPRB,1.4702E+00_JPRB,1.4860E+00_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&6.4397E-01_JPRB,5.8848E-01_JPRB,5.4164E-01_JPRB,5.0438E-01_JPRB,4.8904E-01_JPRB,5.1205E-01_JPRB,&
+&5.2888E-01_JPRB,4.9547E-01_JPRB,5.1219E-01_JPRB,5.1357E-01_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&8.6014E-01_JPRB,7.8541E-01_JPRB,7.2738E-01_JPRB,6.8109E-01_JPRB,6.6447E-01_JPRB,6.8735E-01_JPRB,&
+&7.0610E-01_JPRB,6.4880E-01_JPRB,6.8044E-01_JPRB,6.7457E-01_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&1.1052E+00_JPRB,1.0089E+00_JPRB,9.5053E-01_JPRB,8.9433E-01_JPRB,8.7834E-01_JPRB,8.9637E-01_JPRB,&
+&9.0307E-01_JPRB,8.1519E-01_JPRB,8.6489E-01_JPRB,8.5495E-01_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&1.3894E+00_JPRB,1.2661E+00_JPRB,1.2117E+00_JPRB,1.1436E+00_JPRB,1.1239E+00_JPRB,1.1302E+00_JPRB,&
+&1.1159E+00_JPRB,1.0009E+00_JPRB,1.0705E+00_JPRB,1.0686E+00_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&1.7112E+00_JPRB,1.5598E+00_JPRB,1.4999E+00_JPRB,1.4251E+00_JPRB,1.3915E+00_JPRB,1.3874E+00_JPRB,&
+&1.3517E+00_JPRB,1.2058E+00_JPRB,1.3049E+00_JPRB,1.3059E+00_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&5.7879E-01_JPRB,5.3274E-01_JPRB,4.8973E-01_JPRB,4.5630E-01_JPRB,4.3269E-01_JPRB,4.3284E-01_JPRB,&
+&4.3930E-01_JPRB,4.0946E-01_JPRB,4.1860E-01_JPRB,4.1655E-01_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&7.8913E-01_JPRB,7.2614E-01_JPRB,6.7155E-01_JPRB,6.2927E-01_JPRB,5.8919E-01_JPRB,5.9377E-01_JPRB,&
+&5.9849E-01_JPRB,5.4629E-01_JPRB,5.6116E-01_JPRB,5.5524E-01_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&1.0315E+00_JPRB,9.4848E-01_JPRB,8.8923E-01_JPRB,8.3184E-01_JPRB,7.8312E-01_JPRB,7.8922E-01_JPRB,&
+&7.8217E-01_JPRB,6.9528E-01_JPRB,7.2027E-01_JPRB,7.1126E-01_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&1.3089E+00_JPRB,1.2030E+00_JPRB,1.1421E+00_JPRB,1.0710E+00_JPRB,1.0184E+00_JPRB,1.0078E+00_JPRB,&
+&9.8494E-01_JPRB,8.6981E-01_JPRB,9.1055E-01_JPRB,9.0117E-01_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&1.6233E+00_JPRB,1.4930E+00_JPRB,1.4334E+00_JPRB,1.3459E+00_JPRB,1.2797E+00_JPRB,1.2512E+00_JPRB,&
+&1.2155E+00_JPRB,1.0647E+00_JPRB,1.1303E+00_JPRB,1.1143E+00_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&5.0872E-01_JPRB,4.7000E-01_JPRB,4.3189E-01_JPRB,4.0703E-01_JPRB,3.8347E-01_JPRB,3.6637E-01_JPRB,&
+&3.5722E-01_JPRB,3.3322E-01_JPRB,3.3519E-01_JPRB,4.9629E-01_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&7.1032E-01_JPRB,6.5670E-01_JPRB,6.0796E-01_JPRB,5.7264E-01_JPRB,5.3661E-01_JPRB,5.0689E-01_JPRB,&
+&4.9599E-01_JPRB,4.5581E-01_JPRB,4.5901E-01_JPRB,6.1504E-01_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&9.4725E-01_JPRB,8.7492E-01_JPRB,8.2052E-01_JPRB,7.7219E-01_JPRB,7.2220E-01_JPRB,6.8379E-01_JPRB,&
+&6.5839E-01_JPRB,5.9352E-01_JPRB,5.9853E-01_JPRB,7.1363E-01_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&1.2212E+00_JPRB,1.1285E+00_JPRB,1.0680E+00_JPRB,1.0029E+00_JPRB,9.4208E-01_JPRB,8.9072E-01_JPRB,&
+&8.4577E-01_JPRB,7.5557E-01_JPRB,7.6527E-01_JPRB,8.0522E-01_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&1.5263E+00_JPRB,1.4126E+00_JPRB,1.3499E+00_JPRB,1.2718E+00_JPRB,1.1921E+00_JPRB,1.1220E+00_JPRB,&
+&1.0685E+00_JPRB,9.3213E-01_JPRB,9.5775E-01_JPRB,9.4303E-01_JPRB/)
+KAO( :, 1,10,11) = (/&
+&4.4834E-01_JPRB,4.1596E-01_JPRB,3.8519E-01_JPRB,3.6738E-01_JPRB,3.4707E-01_JPRB,3.1667E-01_JPRB,&
+&2.9935E-01_JPRB,2.7308E-01_JPRB,2.6993E-01_JPRB,8.6202E-01_JPRB/)
+KAO( :, 2,10,11) = (/&
+&6.4018E-01_JPRB,5.9476E-01_JPRB,5.5452E-01_JPRB,5.2742E-01_JPRB,4.9444E-01_JPRB,4.5039E-01_JPRB,&
+&4.1885E-01_JPRB,3.8235E-01_JPRB,3.7606E-01_JPRB,1.0050E+00_JPRB/)
+KAO( :, 3,10,11) = (/&
+&8.6941E-01_JPRB,8.0719E-01_JPRB,7.6128E-01_JPRB,7.2083E-01_JPRB,6.7778E-01_JPRB,6.1132E-01_JPRB,&
+&5.6485E-01_JPRB,5.0977E-01_JPRB,5.0052E-01_JPRB,1.1879E+00_JPRB/)
+KAO( :, 4,10,11) = (/&
+&1.1374E+00_JPRB,1.0578E+00_JPRB,1.0048E+00_JPRB,9.4669E-01_JPRB,8.9485E-01_JPRB,8.0262E-01_JPRB,&
+&7.3730E-01_JPRB,6.6231E-01_JPRB,6.5210E-01_JPRB,1.3926E+00_JPRB/)
+KAO( :, 5,10,11) = (/&
+&1.4379E+00_JPRB,1.3398E+00_JPRB,1.2800E+00_JPRB,1.2099E+00_JPRB,1.1369E+00_JPRB,1.0290E+00_JPRB,&
+&9.4239E-01_JPRB,8.2621E-01_JPRB,8.2033E-01_JPRB,1.5987E+00_JPRB/)
+KAO( :, 1,11,11) = (/&
+&4.6437E-01_JPRB,4.3195E-01_JPRB,4.0640E-01_JPRB,3.9083E-01_JPRB,3.6759E-01_JPRB,3.3095E-01_JPRB,&
+&2.9621E-01_JPRB,2.6059E-01_JPRB,2.4898E-01_JPRB,1.4424E+00_JPRB/)
+KAO( :, 2,11,11) = (/&
+&6.5995E-01_JPRB,6.1504E-01_JPRB,5.8354E-01_JPRB,5.6109E-01_JPRB,5.2448E-01_JPRB,4.7076E-01_JPRB,&
+&4.1510E-01_JPRB,3.6345E-01_JPRB,3.4571E-01_JPRB,1.5679E+00_JPRB/)
+KAO( :, 3,11,11) = (/&
+&8.9627E-01_JPRB,8.3726E-01_JPRB,7.9810E-01_JPRB,7.6313E-01_JPRB,7.1561E-01_JPRB,6.3926E-01_JPRB,&
+&5.5804E-01_JPRB,4.8959E-01_JPRB,4.6565E-01_JPRB,1.7093E+00_JPRB/)
+KAO( :, 4,11,11) = (/&
+&1.1695E+00_JPRB,1.0949E+00_JPRB,1.0494E+00_JPRB,9.9979E-01_JPRB,9.3792E-01_JPRB,8.3384E-01_JPRB,&
+&7.3304E-01_JPRB,6.3611E-01_JPRB,6.0648E-01_JPRB,1.8687E+00_JPRB/)
+KAO( :, 5,11,11) = (/&
+&1.4756E+00_JPRB,1.3865E+00_JPRB,1.3306E+00_JPRB,1.2700E+00_JPRB,1.1860E+00_JPRB,1.0648E+00_JPRB,&
+&9.3310E-01_JPRB,7.9796E-01_JPRB,7.6114E-01_JPRB,2.0433E+00_JPRB/)
+KAO( :, 1,12,11) = (/&
+&4.6883E-01_JPRB,4.3992E-01_JPRB,4.2363E-01_JPRB,4.0991E-01_JPRB,3.8267E-01_JPRB,3.4548E-01_JPRB,&
+&2.9549E-01_JPRB,2.4606E-01_JPRB,2.2406E-01_JPRB,1.9161E+00_JPRB/)
+KAO( :, 2,12,11) = (/&
+&6.6619E-01_JPRB,6.2643E-01_JPRB,6.0394E-01_JPRB,5.8416E-01_JPRB,5.4621E-01_JPRB,4.9020E-01_JPRB,&
+&4.1568E-01_JPRB,3.4416E-01_JPRB,3.1499E-01_JPRB,2.0541E+00_JPRB/)
+KAO( :, 3,12,11) = (/&
+&9.0247E-01_JPRB,8.5182E-01_JPRB,8.2328E-01_JPRB,7.9362E-01_JPRB,7.4057E-01_JPRB,6.6249E-01_JPRB,&
+&5.6167E-01_JPRB,4.6621E-01_JPRB,4.2576E-01_JPRB,2.2005E+00_JPRB/)
+KAO( :, 4,12,11) = (/&
+&1.1754E+00_JPRB,1.1141E+00_JPRB,1.0763E+00_JPRB,1.0393E+00_JPRB,9.6314E-01_JPRB,8.6349E-01_JPRB,&
+&7.3733E-01_JPRB,6.0555E-01_JPRB,5.5108E-01_JPRB,2.3506E+00_JPRB/)
+KAO( :, 5,12,11) = (/&
+&1.4816E+00_JPRB,1.4118E+00_JPRB,1.3630E+00_JPRB,1.3109E+00_JPRB,1.2174E+00_JPRB,1.0945E+00_JPRB,&
+&9.3470E-01_JPRB,7.6327E-01_JPRB,6.9458E-01_JPRB,2.4817E+00_JPRB/)
+KAO( :, 1,13,11) = (/&
+&4.6581E-01_JPRB,4.3907E-01_JPRB,4.3125E-01_JPRB,4.2012E-01_JPRB,3.9142E-01_JPRB,3.5288E-01_JPRB,&
+&2.9764E-01_JPRB,2.3165E-01_JPRB,2.0022E-01_JPRB,2.0038E+00_JPRB/)
+KAO( :, 2,13,11) = (/&
+&6.6014E-01_JPRB,6.2525E-01_JPRB,6.1363E-01_JPRB,5.9556E-01_JPRB,5.5565E-01_JPRB,4.9958E-01_JPRB,&
+&4.1989E-01_JPRB,3.2603E-01_JPRB,2.8204E-01_JPRB,2.1506E+00_JPRB/)
+KAO( :, 3,13,11) = (/&
+&8.9162E-01_JPRB,8.4866E-01_JPRB,8.3231E-01_JPRB,8.0747E-01_JPRB,7.5010E-01_JPRB,6.7287E-01_JPRB,&
+&5.6952E-01_JPRB,4.4032E-01_JPRB,3.7944E-01_JPRB,2.2963E+00_JPRB/)
+KAO( :, 4,13,11) = (/&
+&1.1582E+00_JPRB,1.1105E+00_JPRB,1.0865E+00_JPRB,1.0526E+00_JPRB,9.7320E-01_JPRB,8.7688E-01_JPRB,&
+&7.4169E-01_JPRB,5.7254E-01_JPRB,4.9090E-01_JPRB,2.4264E+00_JPRB/)
+KAO( :, 5,13,11) = (/&
+&1.4557E+00_JPRB,1.4054E+00_JPRB,1.3756E+00_JPRB,1.3241E+00_JPRB,1.2283E+00_JPRB,1.1037E+00_JPRB,&
+&9.3580E-01_JPRB,7.2342E-01_JPRB,6.1924E-01_JPRB,2.5526E+00_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&1.9899E+00_JPRB,1.7416E+00_JPRB,1.6557E+00_JPRB,1.6626E+00_JPRB,1.6292E+00_JPRB,1.6186E+00_JPRB,&
+&1.5516E+00_JPRB,1.5111E+00_JPRB,1.6515E+00_JPRB,1.6999E+00_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&2.4167E+00_JPRB,2.1150E+00_JPRB,2.0285E+00_JPRB,2.0154E+00_JPRB,1.9446E+00_JPRB,1.9378E+00_JPRB,&
+&1.8912E+00_JPRB,1.8727E+00_JPRB,2.0572E+00_JPRB,2.1137E+00_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&2.8678E+00_JPRB,2.5098E+00_JPRB,2.4251E+00_JPRB,2.3840E+00_JPRB,2.2898E+00_JPRB,2.2925E+00_JPRB,&
+&2.2262E+00_JPRB,2.2528E+00_JPRB,2.4748E+00_JPRB,2.5402E+00_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&3.3334E+00_JPRB,2.9172E+00_JPRB,2.8340E+00_JPRB,2.7633E+00_JPRB,2.6747E+00_JPRB,2.6799E+00_JPRB,&
+&2.5511E+00_JPRB,2.6575E+00_JPRB,2.9171E+00_JPRB,2.9951E+00_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&3.8070E+00_JPRB,3.3317E+00_JPRB,3.2431E+00_JPRB,3.1434E+00_JPRB,3.0844E+00_JPRB,3.0767E+00_JPRB,&
+&2.8871E+00_JPRB,3.0851E+00_JPRB,3.3768E+00_JPRB,3.4700E+00_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&1.8020E+00_JPRB,1.5771E+00_JPRB,1.5658E+00_JPRB,1.5529E+00_JPRB,1.5678E+00_JPRB,1.5609E+00_JPRB,&
+&1.5068E+00_JPRB,1.4322E+00_JPRB,1.5794E+00_JPRB,1.6265E+00_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&2.2244E+00_JPRB,1.9467E+00_JPRB,1.9376E+00_JPRB,1.8878E+00_JPRB,1.8907E+00_JPRB,1.9156E+00_JPRB,&
+&1.8451E+00_JPRB,1.7806E+00_JPRB,1.9775E+00_JPRB,2.0248E+00_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&2.6777E+00_JPRB,2.3433E+00_JPRB,2.3279E+00_JPRB,2.2466E+00_JPRB,2.2434E+00_JPRB,2.3061E+00_JPRB,&
+&2.1731E+00_JPRB,2.1601E+00_JPRB,2.3971E+00_JPRB,2.4544E+00_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&3.1544E+00_JPRB,2.7605E+00_JPRB,2.7326E+00_JPRB,2.6320E+00_JPRB,2.6342E+00_JPRB,2.7059E+00_JPRB,&
+&2.5082E+00_JPRB,2.5770E+00_JPRB,2.8498E+00_JPRB,2.9233E+00_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&3.6408E+00_JPRB,3.1864E+00_JPRB,3.1392E+00_JPRB,3.0321E+00_JPRB,3.0540E+00_JPRB,3.0950E+00_JPRB,&
+&2.8509E+00_JPRB,3.0202E+00_JPRB,3.3350E+00_JPRB,3.4273E+00_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&1.5649E+00_JPRB,1.3732E+00_JPRB,1.3826E+00_JPRB,1.4020E+00_JPRB,1.4318E+00_JPRB,1.4266E+00_JPRB,&
+&1.3676E+00_JPRB,1.2621E+00_JPRB,1.4113E+00_JPRB,1.4411E+00_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&1.9750E+00_JPRB,1.7323E+00_JPRB,1.7348E+00_JPRB,1.7212E+00_JPRB,1.7704E+00_JPRB,1.7925E+00_JPRB,&
+&1.6949E+00_JPRB,1.5960E+00_JPRB,1.7832E+00_JPRB,1.8209E+00_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&2.4222E+00_JPRB,2.1256E+00_JPRB,2.1157E+00_JPRB,2.0688E+00_JPRB,2.1464E+00_JPRB,2.1852E+00_JPRB,&
+&2.0239E+00_JPRB,1.9726E+00_JPRB,2.1958E+00_JPRB,2.2498E+00_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&2.9000E+00_JPRB,2.5481E+00_JPRB,2.5206E+00_JPRB,2.4500E+00_JPRB,2.5548E+00_JPRB,2.5853E+00_JPRB,&
+&2.3675E+00_JPRB,2.3891E+00_JPRB,2.6536E+00_JPRB,2.7238E+00_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&3.3931E+00_JPRB,2.9865E+00_JPRB,2.9396E+00_JPRB,2.8624E+00_JPRB,2.9741E+00_JPRB,2.9949E+00_JPRB,&
+&2.7166E+00_JPRB,2.8252E+00_JPRB,3.1477E+00_JPRB,3.2225E+00_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&1.3280E+00_JPRB,1.1786E+00_JPRB,1.2003E+00_JPRB,1.2384E+00_JPRB,1.2621E+00_JPRB,1.2623E+00_JPRB,&
+&1.2074E+00_JPRB,1.0954E+00_JPRB,1.2178E+00_JPRB,1.2519E+00_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&1.7214E+00_JPRB,1.5303E+00_JPRB,1.5296E+00_JPRB,1.5581E+00_JPRB,1.6045E+00_JPRB,1.6160E+00_JPRB,&
+&1.5191E+00_JPRB,1.4004E+00_JPRB,1.5599E+00_JPRB,1.5995E+00_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&2.1531E+00_JPRB,1.9184E+00_JPRB,1.8960E+00_JPRB,1.9073E+00_JPRB,1.9909E+00_JPRB,1.9956E+00_JPRB,&
+&1.8466E+00_JPRB,1.7529E+00_JPRB,1.9597E+00_JPRB,2.0020E+00_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&2.6259E+00_JPRB,2.3421E+00_JPRB,2.3006E+00_JPRB,2.2911E+00_JPRB,2.4098E+00_JPRB,2.3862E+00_JPRB,&
+&2.2059E+00_JPRB,2.1477E+00_JPRB,2.4083E+00_JPRB,2.4533E+00_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&3.1312E+00_JPRB,2.7951E+00_JPRB,2.7289E+00_JPRB,2.7098E+00_JPRB,2.8440E+00_JPRB,2.7955E+00_JPRB,&
+&2.5674E+00_JPRB,2.5718E+00_JPRB,2.8862E+00_JPRB,2.9375E+00_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&1.1161E+00_JPRB,1.0073E+00_JPRB,1.0475E+00_JPRB,1.0704E+00_JPRB,1.0924E+00_JPRB,1.0965E+00_JPRB,&
+&1.0516E+00_JPRB,9.4881E-01_JPRB,1.0568E+00_JPRB,1.0851E+00_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&1.4852E+00_JPRB,1.3439E+00_JPRB,1.3607E+00_JPRB,1.3892E+00_JPRB,1.4288E+00_JPRB,1.4308E+00_JPRB,&
+&1.3421E+00_JPRB,1.2297E+00_JPRB,1.3696E+00_JPRB,1.4061E+00_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&1.9072E+00_JPRB,1.7266E+00_JPRB,1.7136E+00_JPRB,1.7495E+00_JPRB,1.8113E+00_JPRB,1.7903E+00_JPRB,&
+&1.6625E+00_JPRB,1.5561E+00_JPRB,1.7354E+00_JPRB,1.7786E+00_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&2.3754E+00_JPRB,2.1543E+00_JPRB,2.1024E+00_JPRB,2.1512E+00_JPRB,2.2237E+00_JPRB,2.1735E+00_JPRB,&
+&2.0175E+00_JPRB,1.9176E+00_JPRB,2.1504E+00_JPRB,2.1913E+00_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&2.8766E+00_JPRB,2.6154E+00_JPRB,2.5264E+00_JPRB,2.5896E+00_JPRB,2.6493E+00_JPRB,2.5886E+00_JPRB,&
+&2.3776E+00_JPRB,2.3037E+00_JPRB,2.5969E+00_JPRB,2.6316E+00_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&9.4985E-01_JPRB,8.5933E-01_JPRB,8.8898E-01_JPRB,9.0232E-01_JPRB,9.2354E-01_JPRB,9.3066E-01_JPRB,&
+&9.0486E-01_JPRB,8.1739E-01_JPRB,9.0706E-01_JPRB,9.3532E-01_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&1.2834E+00_JPRB,1.1690E+00_JPRB,1.1908E+00_JPRB,1.2086E+00_JPRB,1.2415E+00_JPRB,1.2368E+00_JPRB,&
+&1.1756E+00_JPRB,1.0742E+00_JPRB,1.1928E+00_JPRB,1.2288E+00_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&1.6799E+00_JPRB,1.5378E+00_JPRB,1.5358E+00_JPRB,1.5673E+00_JPRB,1.6035E+00_JPRB,1.5726E+00_JPRB,&
+&1.4795E+00_JPRB,1.3798E+00_JPRB,1.5315E+00_JPRB,1.5776E+00_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&2.1238E+00_JPRB,1.9529E+00_JPRB,1.9235E+00_JPRB,1.9758E+00_JPRB,1.9970E+00_JPRB,1.9496E+00_JPRB,&
+&1.8190E+00_JPRB,1.7092E+00_JPRB,1.9137E+00_JPRB,1.9536E+00_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&2.6095E+00_JPRB,2.4084E+00_JPRB,2.3509E+00_JPRB,2.4228E+00_JPRB,2.4180E+00_JPRB,2.3618E+00_JPRB,&
+&2.1597E+00_JPRB,2.0675E+00_JPRB,2.3214E+00_JPRB,2.3618E+00_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&8.4812E-01_JPRB,7.6841E-01_JPRB,7.5326E-01_JPRB,7.5035E-01_JPRB,7.7118E-01_JPRB,7.8872E-01_JPRB,&
+&7.7183E-01_JPRB,7.0585E-01_JPRB,7.7946E-01_JPRB,8.0795E-01_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&1.1465E+00_JPRB,1.0445E+00_JPRB,1.0290E+00_JPRB,1.0370E+00_JPRB,1.0598E+00_JPRB,1.0683E+00_JPRB,&
+&1.0242E+00_JPRB,9.3963E-01_JPRB,1.0386E+00_JPRB,1.0754E+00_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&1.5193E+00_JPRB,1.3894E+00_JPRB,1.3649E+00_JPRB,1.3853E+00_JPRB,1.3982E+00_JPRB,1.3813E+00_JPRB,&
+&1.3178E+00_JPRB,1.2173E+00_JPRB,1.3509E+00_JPRB,1.3914E+00_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&1.9518E+00_JPRB,1.7884E+00_JPRB,1.7513E+00_JPRB,1.7865E+00_JPRB,1.7771E+00_JPRB,1.7370E+00_JPRB,&
+&1.6446E+00_JPRB,1.5222E+00_JPRB,1.7063E+00_JPRB,1.7391E+00_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&2.4259E+00_JPRB,2.2279E+00_JPRB,2.1794E+00_JPRB,2.2290E+00_JPRB,2.1962E+00_JPRB,2.1299E+00_JPRB,&
+&1.9788E+00_JPRB,1.8585E+00_JPRB,2.0857E+00_JPRB,2.1225E+00_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&7.7841E-01_JPRB,7.0711E-01_JPRB,6.6522E-01_JPRB,6.3606E-01_JPRB,6.4760E-01_JPRB,6.6713E-01_JPRB,&
+&6.6148E-01_JPRB,6.0390E-01_JPRB,6.6973E-01_JPRB,6.8843E-01_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&1.0658E+00_JPRB,9.6636E-01_JPRB,9.1583E-01_JPRB,8.8699E-01_JPRB,9.0848E-01_JPRB,9.1965E-01_JPRB,&
+&8.9372E-01_JPRB,8.1955E-01_JPRB,9.1141E-01_JPRB,9.3497E-01_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&1.4137E+00_JPRB,1.2836E+00_JPRB,1.2307E+00_JPRB,1.2115E+00_JPRB,1.2232E+00_JPRB,1.2116E+00_JPRB,&
+&1.1659E+00_JPRB,1.0732E+00_JPRB,1.1969E+00_JPRB,1.2259E+00_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&1.8330E+00_JPRB,1.6670E+00_JPRB,1.6047E+00_JPRB,1.5956E+00_JPRB,1.5811E+00_JPRB,1.5515E+00_JPRB,&
+&1.4752E+00_JPRB,1.3507E+00_JPRB,1.5186E+00_JPRB,1.5425E+00_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&2.3049E+00_JPRB,2.1036E+00_JPRB,2.0278E+00_JPRB,2.0220E+00_JPRB,1.9855E+00_JPRB,1.9308E+00_JPRB,&
+&1.8019E+00_JPRB,1.6605E+00_JPRB,1.8705E+00_JPRB,1.8963E+00_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&7.0912E-01_JPRB,6.4469E-01_JPRB,5.9363E-01_JPRB,5.5627E-01_JPRB,5.5384E-01_JPRB,5.6186E-01_JPRB,&
+&5.5927E-01_JPRB,5.0354E-01_JPRB,5.6125E-01_JPRB,7.4969E-01_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&9.9527E-01_JPRB,9.0550E-01_JPRB,8.3442E-01_JPRB,7.8264E-01_JPRB,7.7752E-01_JPRB,7.8969E-01_JPRB,&
+&7.7692E-01_JPRB,6.9354E-01_JPRB,7.7793E-01_JPRB,8.7043E-01_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&1.3412E+00_JPRB,1.2190E+00_JPRB,1.1268E+00_JPRB,1.0743E+00_JPRB,1.0606E+00_JPRB,1.0614E+00_JPRB,&
+&1.0350E+00_JPRB,9.2237E-01_JPRB,1.0409E+00_JPRB,1.0573E+00_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&1.7493E+00_JPRB,1.5874E+00_JPRB,1.4863E+00_JPRB,1.4310E+00_JPRB,1.3986E+00_JPRB,1.3843E+00_JPRB,&
+&1.3254E+00_JPRB,1.1771E+00_JPRB,1.3374E+00_JPRB,1.3371E+00_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&2.2176E+00_JPRB,2.0127E+00_JPRB,1.9126E+00_JPRB,1.8371E+00_JPRB,1.7903E+00_JPRB,1.7504E+00_JPRB,&
+&1.6358E+00_JPRB,1.4630E+00_JPRB,1.6600E+00_JPRB,1.6679E+00_JPRB/)
+KAO( :, 1,10,12) = (/&
+&6.5376E-01_JPRB,5.9649E-01_JPRB,5.4382E-01_JPRB,5.0392E-01_JPRB,4.9222E-01_JPRB,4.9094E-01_JPRB,&
+&4.7672E-01_JPRB,4.1966E-01_JPRB,4.6921E-01_JPRB,1.3769E+00_JPRB/)
+KAO( :, 2,10,12) = (/&
+&9.3800E-01_JPRB,8.5670E-01_JPRB,7.8367E-01_JPRB,7.2595E-01_JPRB,6.9805E-01_JPRB,6.9533E-01_JPRB,&
+&6.7619E-01_JPRB,5.9132E-01_JPRB,6.6160E-01_JPRB,1.6706E+00_JPRB/)
+KAO( :, 3,10,12) = (/&
+&1.2854E+00_JPRB,1.1741E+00_JPRB,1.0774E+00_JPRB,1.0008E+00_JPRB,9.5668E-01_JPRB,9.5165E-01_JPRB,&
+&9.1656E-01_JPRB,7.9224E-01_JPRB,8.9510E-01_JPRB,1.9785E+00_JPRB/)
+KAO( :, 4,10,12) = (/&
+&1.6921E+00_JPRB,1.5448E+00_JPRB,1.4301E+00_JPRB,1.3361E+00_JPRB,1.2735E+00_JPRB,1.2587E+00_JPRB,&
+&1.1957E+00_JPRB,1.0181E+00_JPRB,1.1609E+00_JPRB,2.2894E+00_JPRB/)
+KAO( :, 5,10,12) = (/&
+&2.1576E+00_JPRB,1.9664E+00_JPRB,1.8494E+00_JPRB,1.7300E+00_JPRB,1.6509E+00_JPRB,1.6070E+00_JPRB,&
+&1.4973E+00_JPRB,1.2816E+00_JPRB,1.4648E+00_JPRB,2.6067E+00_JPRB/)
+KAO( :, 1,11,12) = (/&
+&7.0952E-01_JPRB,6.5053E-01_JPRB,5.9316E-01_JPRB,5.5146E-01_JPRB,5.2180E-01_JPRB,5.0652E-01_JPRB,&
+&4.7718E-01_JPRB,4.1246E-01_JPRB,4.5783E-01_JPRB,2.0241E+00_JPRB/)
+KAO( :, 2,11,12) = (/&
+&1.0167E+00_JPRB,9.3262E-01_JPRB,8.5333E-01_JPRB,7.9232E-01_JPRB,7.4499E-01_JPRB,7.1140E-01_JPRB,&
+&6.7465E-01_JPRB,5.7859E-01_JPRB,6.4613E-01_JPRB,2.2912E+00_JPRB/)
+KAO( :, 3,11,12) = (/&
+&1.3886E+00_JPRB,1.2732E+00_JPRB,1.1736E+00_JPRB,1.0906E+00_JPRB,1.0139E+00_JPRB,9.7034E-01_JPRB,&
+&9.1240E-01_JPRB,7.7049E-01_JPRB,8.6376E-01_JPRB,2.6463E+00_JPRB/)
+KAO( :, 4,11,12) = (/&
+&1.8181E+00_JPRB,1.6680E+00_JPRB,1.5549E+00_JPRB,1.4417E+00_JPRB,1.3425E+00_JPRB,1.2830E+00_JPRB,&
+&1.1836E+00_JPRB,9.8857E-01_JPRB,1.1129E+00_JPRB,3.0263E+00_JPRB/)
+KAO( :, 5,11,12) = (/&
+&2.3057E+00_JPRB,2.1146E+00_JPRB,1.9950E+00_JPRB,1.8508E+00_JPRB,1.7289E+00_JPRB,1.6307E+00_JPRB,&
+&1.4919E+00_JPRB,1.2455E+00_JPRB,1.4085E+00_JPRB,3.4186E+00_JPRB/)
+KAO( :, 1,12,12) = (/&
+&7.5886E-01_JPRB,6.9796E-01_JPRB,6.3852E-01_JPRB,5.9929E-01_JPRB,5.5990E-01_JPRB,5.1924E-01_JPRB,&
+&4.7840E-01_JPRB,4.0341E-01_JPRB,4.4154E-01_JPRB,2.6087E+00_JPRB/)
+KAO( :, 2,12,12) = (/&
+&1.0851E+00_JPRB,9.9770E-01_JPRB,9.1673E-01_JPRB,8.5899E-01_JPRB,7.9809E-01_JPRB,7.3287E-01_JPRB,&
+&6.7148E-01_JPRB,5.6350E-01_JPRB,6.1612E-01_JPRB,2.8310E+00_JPRB/)
+KAO( :, 3,12,12) = (/&
+&1.4755E+00_JPRB,1.3573E+00_JPRB,1.2579E+00_JPRB,1.1774E+00_JPRB,1.0886E+00_JPRB,9.9484E-01_JPRB,&
+&9.0354E-01_JPRB,7.5007E-01_JPRB,8.2214E-01_JPRB,3.1388E+00_JPRB/)
+KAO( :, 4,12,12) = (/&
+&1.9253E+00_JPRB,1.7711E+00_JPRB,1.6604E+00_JPRB,1.5471E+00_JPRB,1.4336E+00_JPRB,1.3051E+00_JPRB,&
+&1.1698E+00_JPRB,9.7140E-01_JPRB,1.0651E+00_JPRB,3.4850E+00_JPRB/)
+KAO( :, 5,12,12) = (/&
+&2.4308E+00_JPRB,2.2396E+00_JPRB,2.1167E+00_JPRB,1.9729E+00_JPRB,1.8272E+00_JPRB,1.6585E+00_JPRB,&
+&1.4809E+00_JPRB,1.2177E+00_JPRB,1.3448E+00_JPRB,3.8825E+00_JPRB/)
+KAO( :, 1,13,12) = (/&
+&7.9229E-01_JPRB,7.3221E-01_JPRB,6.7737E-01_JPRB,6.4130E-01_JPRB,5.9847E-01_JPRB,5.3580E-01_JPRB,&
+&4.7728E-01_JPRB,3.9003E-01_JPRB,4.1400E-01_JPRB,2.7638E+00_JPRB/)
+KAO( :, 2,13,12) = (/&
+&1.1297E+00_JPRB,1.0450E+00_JPRB,9.7140E-01_JPRB,9.1618E-01_JPRB,8.5138E-01_JPRB,7.6006E-01_JPRB,&
+&6.6619E-01_JPRB,5.4383E-01_JPRB,5.7638E-01_JPRB,2.9703E+00_JPRB/)
+KAO( :, 3,13,12) = (/&
+&1.5310E+00_JPRB,1.4169E+00_JPRB,1.3280E+00_JPRB,1.2470E+00_JPRB,1.1584E+00_JPRB,1.0272E+00_JPRB,&
+&8.9295E-01_JPRB,7.3007E-01_JPRB,7.7208E-01_JPRB,3.2180E+00_JPRB/)
+KAO( :, 4,13,12) = (/&
+&1.9939E+00_JPRB,1.8457E+00_JPRB,1.7416E+00_JPRB,1.6315E+00_JPRB,1.5169E+00_JPRB,1.3360E+00_JPRB,&
+&1.1634E+00_JPRB,9.4900E-01_JPRB,1.0058E+00_JPRB,3.5288E+00_JPRB/)
+KAO( :, 5,13,12) = (/&
+&2.5079E+00_JPRB,2.3287E+00_JPRB,2.2043E+00_JPRB,2.0691E+00_JPRB,1.9162E+00_JPRB,1.6967E+00_JPRB,&
+&1.4732E+00_JPRB,1.1903E+00_JPRB,1.2641E+00_JPRB,3.8603E+00_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&3.9649E+00_JPRB,3.4696E+00_JPRB,2.9742E+00_JPRB,2.6893E+00_JPRB,2.5814E+00_JPRB,2.2539E+00_JPRB,&
+&1.9591E+00_JPRB,2.1953E+00_JPRB,2.3585E+00_JPRB,2.4435E+00_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&4.6934E+00_JPRB,4.1070E+00_JPRB,3.5206E+00_JPRB,3.2425E+00_JPRB,3.0762E+00_JPRB,2.6670E+00_JPRB,&
+&2.3213E+00_JPRB,2.6577E+00_JPRB,2.8281E+00_JPRB,2.9391E+00_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&5.4309E+00_JPRB,4.7524E+00_JPRB,4.0738E+00_JPRB,3.8211E+00_JPRB,3.5699E+00_JPRB,3.1013E+00_JPRB,&
+&2.7446E+00_JPRB,3.1848E+00_JPRB,3.3841E+00_JPRB,3.5205E+00_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&6.1708E+00_JPRB,5.3997E+00_JPRB,4.6331E+00_JPRB,4.4110E+00_JPRB,4.0650E+00_JPRB,3.5506E+00_JPRB,&
+&3.2653E+00_JPRB,3.7939E+00_JPRB,4.0349E+00_JPRB,4.1946E+00_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&6.8879E+00_JPRB,6.0273E+00_JPRB,5.1873E+00_JPRB,4.9821E+00_JPRB,4.5559E+00_JPRB,4.0078E+00_JPRB,&
+&3.8433E+00_JPRB,4.4688E+00_JPRB,4.7724E+00_JPRB,4.9544E+00_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&3.6698E+00_JPRB,3.2113E+00_JPRB,2.7634E+00_JPRB,2.6220E+00_JPRB,2.4498E+00_JPRB,2.2177E+00_JPRB,&
+&1.9317E+00_JPRB,2.1759E+00_JPRB,2.3566E+00_JPRB,2.4539E+00_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&4.3922E+00_JPRB,3.8433E+00_JPRB,3.3174E+00_JPRB,3.1962E+00_JPRB,2.9402E+00_JPRB,2.6303E+00_JPRB,&
+&2.3496E+00_JPRB,2.7064E+00_JPRB,2.8995E+00_JPRB,3.0421E+00_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&5.1315E+00_JPRB,4.4903E+00_JPRB,3.8960E+00_JPRB,3.7804E+00_JPRB,3.4475E+00_JPRB,3.0575E+00_JPRB,&
+&2.8478E+00_JPRB,3.3075E+00_JPRB,3.5154E+00_JPRB,3.7101E+00_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&5.8800E+00_JPRB,5.1453E+00_JPRB,4.4924E+00_JPRB,4.3646E+00_JPRB,3.9642E+00_JPRB,3.5208E+00_JPRB,&
+&3.3891E+00_JPRB,3.9399E+00_JPRB,4.1954E+00_JPRB,4.4214E+00_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&6.6101E+00_JPRB,5.7841E+00_JPRB,5.0872E+00_JPRB,4.9348E+00_JPRB,4.4777E+00_JPRB,4.0458E+00_JPRB,&
+&3.9713E+00_JPRB,4.6160E+00_JPRB,4.9393E+00_JPRB,5.1870E+00_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&3.2411E+00_JPRB,2.8361E+00_JPRB,2.4831E+00_JPRB,2.4070E+00_JPRB,2.2480E+00_JPRB,2.0870E+00_JPRB,&
+&1.8051E+00_JPRB,2.0202E+00_JPRB,2.1994E+00_JPRB,2.3002E+00_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&3.9470E+00_JPRB,3.4538E+00_JPRB,3.0483E+00_JPRB,2.9667E+00_JPRB,2.7181E+00_JPRB,2.5148E+00_JPRB,&
+&2.2501E+00_JPRB,2.5765E+00_JPRB,2.7837E+00_JPRB,2.9313E+00_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&4.6804E+00_JPRB,4.0955E+00_JPRB,3.6459E+00_JPRB,3.5399E+00_JPRB,3.2163E+00_JPRB,2.9639E+00_JPRB,&
+&2.7715E+00_JPRB,3.2088E+00_JPRB,3.4557E+00_JPRB,3.6507E+00_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&5.4312E+00_JPRB,4.7525E+00_JPRB,4.2675E+00_JPRB,4.1206E+00_JPRB,3.7364E+00_JPRB,3.4562E+00_JPRB,&
+&3.3399E+00_JPRB,3.8844E+00_JPRB,4.1920E+00_JPRB,4.4202E+00_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&6.1796E+00_JPRB,5.4074E+00_JPRB,4.8990E+00_JPRB,4.7013E+00_JPRB,4.2915E+00_JPRB,3.9757E+00_JPRB,&
+&3.9407E+00_JPRB,4.5828E+00_JPRB,4.9410E+00_JPRB,5.2123E+00_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&2.7929E+00_JPRB,2.4439E+00_JPRB,2.1939E+00_JPRB,2.1454E+00_JPRB,2.0515E+00_JPRB,1.8877E+00_JPRB,&
+&1.6383E+00_JPRB,1.8045E+00_JPRB,1.9740E+00_JPRB,2.0628E+00_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&3.4793E+00_JPRB,3.0445E+00_JPRB,2.7598E+00_JPRB,2.6705E+00_JPRB,2.5121E+00_JPRB,2.3266E+00_JPRB,&
+&2.0901E+00_JPRB,2.3620E+00_JPRB,2.5689E+00_JPRB,2.6998E+00_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&4.2010E+00_JPRB,3.6761E+00_JPRB,3.3660E+00_JPRB,3.2278E+00_JPRB,3.0027E+00_JPRB,2.8086E+00_JPRB,&
+&2.6028E+00_JPRB,2.9855E+00_JPRB,3.2574E+00_JPRB,3.4124E+00_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&4.9519E+00_JPRB,4.3331E+00_JPRB,4.0066E+00_JPRB,3.8137E+00_JPRB,3.5269E+00_JPRB,3.3453E+00_JPRB,&
+&3.1635E+00_JPRB,3.6670E+00_JPRB,4.0070E+00_JPRB,4.1903E+00_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&5.7128E+00_JPRB,4.9989E+00_JPRB,4.6672E+00_JPRB,4.4092E+00_JPRB,4.0817E+00_JPRB,3.8791E+00_JPRB,&
+&3.7698E+00_JPRB,4.3882E+00_JPRB,4.8065E+00_JPRB,5.0150E+00_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&2.3832E+00_JPRB,2.0854E+00_JPRB,1.9206E+00_JPRB,1.9102E+00_JPRB,1.8377E+00_JPRB,1.6804E+00_JPRB,&
+&1.4581E+00_JPRB,1.5820E+00_JPRB,1.7385E+00_JPRB,1.8104E+00_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&3.0408E+00_JPRB,2.6608E+00_JPRB,2.4785E+00_JPRB,2.4054E+00_JPRB,2.3025E+00_JPRB,2.1234E+00_JPRB,&
+&1.8947E+00_JPRB,2.1142E+00_JPRB,2.3213E+00_JPRB,2.4192E+00_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&3.7472E+00_JPRB,3.2789E+00_JPRB,3.0888E+00_JPRB,2.9395E+00_JPRB,2.8036E+00_JPRB,2.6282E+00_JPRB,&
+&2.3906E+00_JPRB,2.7153E+00_JPRB,2.9926E+00_JPRB,3.1059E+00_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&4.4915E+00_JPRB,3.9302E+00_JPRB,3.7393E+00_JPRB,3.5090E+00_JPRB,3.3375E+00_JPRB,3.1759E+00_JPRB,&
+&2.9354E+00_JPRB,3.3827E+00_JPRB,3.7352E+00_JPRB,3.8690E+00_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&5.2663E+00_JPRB,4.6081E+00_JPRB,4.4077E+00_JPRB,4.1006E+00_JPRB,3.9180E+00_JPRB,3.7090E+00_JPRB,&
+&3.5307E+00_JPRB,4.1076E+00_JPRB,4.5338E+00_JPRB,4.6986E+00_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&1.9932E+00_JPRB,1.7450E+00_JPRB,1.6663E+00_JPRB,1.6747E+00_JPRB,1.5875E+00_JPRB,1.4577E+00_JPRB,&
+&1.2653E+00_JPRB,1.3499E+00_JPRB,1.4817E+00_JPRB,1.5465E+00_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&2.6126E+00_JPRB,2.2877E+00_JPRB,2.1906E+00_JPRB,2.1465E+00_JPRB,2.0440E+00_JPRB,1.8948E+00_JPRB,&
+&1.6751E+00_JPRB,1.8295E+00_JPRB,2.0253E+00_JPRB,2.0939E+00_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&3.3035E+00_JPRB,2.8922E+00_JPRB,2.7796E+00_JPRB,2.6671E+00_JPRB,2.5564E+00_JPRB,2.3982E+00_JPRB,&
+&2.1433E+00_JPRB,2.3876E+00_JPRB,2.6563E+00_JPRB,2.7311E+00_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&4.0480E+00_JPRB,3.5441E+00_JPRB,3.4094E+00_JPRB,3.2253E+00_JPRB,3.1196E+00_JPRB,2.9346E+00_JPRB,&
+&2.6536E+00_JPRB,3.0266E+00_JPRB,3.3710E+00_JPRB,3.4616E+00_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&4.8342E+00_JPRB,4.2338E+00_JPRB,4.0696E+00_JPRB,3.8230E+00_JPRB,3.7396E+00_JPRB,3.4594E+00_JPRB,&
+&3.2309E+00_JPRB,3.7339E+00_JPRB,4.1600E+00_JPRB,4.2696E+00_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&1.6468E+00_JPRB,1.4469E+00_JPRB,1.4375E+00_JPRB,1.4321E+00_JPRB,1.3474E+00_JPRB,1.2424E+00_JPRB,&
+&1.0892E+00_JPRB,1.1510E+00_JPRB,1.2626E+00_JPRB,1.3183E+00_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&2.2291E+00_JPRB,1.9582E+00_JPRB,1.9270E+00_JPRB,1.8946E+00_JPRB,1.7899E+00_JPRB,1.6613E+00_JPRB,&
+&1.4638E+00_JPRB,1.5844E+00_JPRB,1.7486E+00_JPRB,1.8143E+00_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&2.8937E+00_JPRB,2.5452E+00_JPRB,2.4760E+00_JPRB,2.4095E+00_JPRB,2.2977E+00_JPRB,2.1475E+00_JPRB,&
+&1.8921E+00_JPRB,2.0920E+00_JPRB,2.3240E+00_JPRB,2.3941E+00_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&3.6319E+00_JPRB,3.2018E+00_JPRB,3.0807E+00_JPRB,2.9736E+00_JPRB,2.8721E+00_JPRB,2.6699E+00_JPRB,&
+&2.3689E+00_JPRB,2.6767E+00_JPRB,2.9818E+00_JPRB,3.0621E+00_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&4.4294E+00_JPRB,3.9124E+00_JPRB,3.7363E+00_JPRB,3.5826E+00_JPRB,3.5031E+00_JPRB,3.1936E+00_JPRB,&
+&2.9162E+00_JPRB,3.3346E+00_JPRB,3.7295E+00_JPRB,3.8139E+00_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&1.3645E+00_JPRB,1.2030E+00_JPRB,1.2251E+00_JPRB,1.1980E+00_JPRB,1.1267E+00_JPRB,1.0496E+00_JPRB,&
+&9.4007E-01_JPRB,9.8738E-01_JPRB,1.0795E+00_JPRB,1.1321E+00_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&1.8875E+00_JPRB,1.6716E+00_JPRB,1.6787E+00_JPRB,1.6357E+00_JPRB,1.5491E+00_JPRB,1.4420E+00_JPRB,&
+&1.2844E+00_JPRB,1.3709E+00_JPRB,1.5112E+00_JPRB,1.5708E+00_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&2.5235E+00_JPRB,2.2405E+00_JPRB,2.2018E+00_JPRB,2.1383E+00_JPRB,2.0418E+00_JPRB,1.9034E+00_JPRB,&
+&1.6797E+00_JPRB,1.8309E+00_JPRB,2.0369E+00_JPRB,2.0956E+00_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&3.2460E+00_JPRB,2.8890E+00_JPRB,2.7989E+00_JPRB,2.7089E+00_JPRB,2.6113E+00_JPRB,2.4070E+00_JPRB,&
+&2.1243E+00_JPRB,2.3727E+00_JPRB,2.6443E+00_JPRB,2.7141E+00_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&4.0415E+00_JPRB,3.6015E+00_JPRB,3.4549E+00_JPRB,3.3427E+00_JPRB,3.2300E+00_JPRB,2.9321E+00_JPRB,&
+&2.6354E+00_JPRB,2.9888E+00_JPRB,3.3390E+00_JPRB,3.4186E+00_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&1.1543E+00_JPRB,1.0251E+00_JPRB,1.0349E+00_JPRB,9.8794E-01_JPRB,9.3205E-01_JPRB,8.8440E-01_JPRB,&
+&8.0320E-01_JPRB,8.4519E-01_JPRB,9.2711E-01_JPRB,1.0206E+00_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&1.6108E+00_JPRB,1.4310E+00_JPRB,1.4476E+00_JPRB,1.3885E+00_JPRB,1.3235E+00_JPRB,1.2492E+00_JPRB,&
+&1.1169E+00_JPRB,1.1958E+00_JPRB,1.3141E+00_JPRB,1.3705E+00_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&2.1885E+00_JPRB,1.9532E+00_JPRB,1.9550E+00_JPRB,1.8741E+00_JPRB,1.7932E+00_JPRB,1.6819E+00_JPRB,&
+&1.4843E+00_JPRB,1.6106E+00_JPRB,1.7801E+00_JPRB,1.8447E+00_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&2.8811E+00_JPRB,2.5830E+00_JPRB,2.5357E+00_JPRB,2.4436E+00_JPRB,2.3447E+00_JPRB,2.1613E+00_JPRB,&
+&1.9043E+00_JPRB,2.1005E+00_JPRB,2.3339E+00_JPRB,2.4057E+00_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&3.6764E+00_JPRB,3.3079E+00_JPRB,3.1796E+00_JPRB,3.0911E+00_JPRB,2.9539E+00_JPRB,2.6757E+00_JPRB,&
+&2.3874E+00_JPRB,2.6741E+00_JPRB,2.9820E+00_JPRB,3.0611E+00_JPRB/)
+KAO( :, 1,10,13) = (/&
+&1.0302E+00_JPRB,9.2176E-01_JPRB,9.0574E-01_JPRB,8.4615E-01_JPRB,7.9970E-01_JPRB,7.6976E-01_JPRB,&
+&7.0274E-01_JPRB,7.4283E-01_JPRB,8.1565E-01_JPRB,2.7017E+00_JPRB/)
+KAO( :, 2,10,13) = (/&
+&1.4458E+00_JPRB,1.2918E+00_JPRB,1.2726E+00_JPRB,1.2041E+00_JPRB,1.1546E+00_JPRB,1.1052E+00_JPRB,&
+&9.9535E-01_JPRB,1.0584E+00_JPRB,1.1691E+00_JPRB,2.9336E+00_JPRB/)
+KAO( :, 3,10,13) = (/&
+&1.9856E+00_JPRB,1.7787E+00_JPRB,1.7427E+00_JPRB,1.6691E+00_JPRB,1.6016E+00_JPRB,1.5137E+00_JPRB,&
+&1.3407E+00_JPRB,1.4471E+00_JPRB,1.6060E+00_JPRB,3.2154E+00_JPRB/)
+KAO( :, 4,10,13) = (/&
+&2.6493E+00_JPRB,2.3820E+00_JPRB,2.3103E+00_JPRB,2.2284E+00_JPRB,2.1316E+00_JPRB,1.9769E+00_JPRB,&
+&1.7435E+00_JPRB,1.9143E+00_JPRB,2.1248E+00_JPRB,3.4633E+00_JPRB/)
+KAO( :, 5,10,13) = (/&
+&3.4281E+00_JPRB,3.0946E+00_JPRB,2.9645E+00_JPRB,2.8748E+00_JPRB,2.7245E+00_JPRB,2.4879E+00_JPRB,&
+&2.2103E+00_JPRB,2.4551E+00_JPRB,2.7307E+00_JPRB,3.6000E+00_JPRB/)
+KAO( :, 1,11,13) = (/&
+&1.0987E+00_JPRB,9.8883E-01_JPRB,9.4457E-01_JPRB,8.7599E-01_JPRB,8.3570E-01_JPRB,8.0174E-01_JPRB,&
+&7.2908E-01_JPRB,7.6400E-01_JPRB,8.5040E-01_JPRB,4.1644E+00_JPRB/)
+KAO( :, 2,11,13) = (/&
+&1.5519E+00_JPRB,1.3960E+00_JPRB,1.3272E+00_JPRB,1.2419E+00_JPRB,1.1936E+00_JPRB,1.1475E+00_JPRB,&
+&1.0323E+00_JPRB,1.0904E+00_JPRB,1.2118E+00_JPRB,4.4377E+00_JPRB/)
+KAO( :, 3,11,13) = (/&
+&2.1168E+00_JPRB,1.9062E+00_JPRB,1.8156E+00_JPRB,1.7151E+00_JPRB,1.6554E+00_JPRB,1.5612E+00_JPRB,&
+&1.3900E+00_JPRB,1.4823E+00_JPRB,1.6504E+00_JPRB,4.7648E+00_JPRB/)
+KAO( :, 4,11,13) = (/&
+&2.8109E+00_JPRB,2.5372E+00_JPRB,2.4065E+00_JPRB,2.2977E+00_JPRB,2.1984E+00_JPRB,2.0338E+00_JPRB,&
+&1.8057E+00_JPRB,1.9491E+00_JPRB,2.1792E+00_JPRB,5.1367E+00_JPRB/)
+KAO( :, 5,11,13) = (/&
+&3.6200E+00_JPRB,3.2757E+00_JPRB,3.0973E+00_JPRB,2.9725E+00_JPRB,2.8049E+00_JPRB,2.5726E+00_JPRB,&
+&2.2731E+00_JPRB,2.4759E+00_JPRB,2.7857E+00_JPRB,5.3931E+00_JPRB/)
+KAO( :, 1,12,13) = (/&
+&1.1834E+00_JPRB,1.0718E+00_JPRB,9.9832E-01_JPRB,9.1951E-01_JPRB,8.8066E-01_JPRB,8.3984E-01_JPRB,&
+&7.5516E-01_JPRB,7.7629E-01_JPRB,8.6924E-01_JPRB,5.0196E+00_JPRB/)
+KAO( :, 2,12,13) = (/&
+&1.6817E+00_JPRB,1.5210E+00_JPRB,1.4125E+00_JPRB,1.3041E+00_JPRB,1.2468E+00_JPRB,1.1910E+00_JPRB,&
+&1.0644E+00_JPRB,1.0991E+00_JPRB,1.2384E+00_JPRB,5.3253E+00_JPRB/)
+KAO( :, 3,12,13) = (/&
+&2.2884E+00_JPRB,2.0697E+00_JPRB,1.9237E+00_JPRB,1.7926E+00_JPRB,1.7105E+00_JPRB,1.6141E+00_JPRB,&
+&1.4356E+00_JPRB,1.4903E+00_JPRB,1.6827E+00_JPRB,5.6934E+00_JPRB/)
+KAO( :, 4,12,13) = (/&
+&3.0153E+00_JPRB,2.7275E+00_JPRB,2.5449E+00_JPRB,2.3911E+00_JPRB,2.2578E+00_JPRB,2.1058E+00_JPRB,&
+&1.8686E+00_JPRB,1.9453E+00_JPRB,2.2026E+00_JPRB,6.1123E+00_JPRB/)
+KAO( :, 5,12,13) = (/&
+&3.8521E+00_JPRB,3.4852E+00_JPRB,3.2646E+00_JPRB,3.0814E+00_JPRB,2.8800E+00_JPRB,2.6613E+00_JPRB,&
+&2.3377E+00_JPRB,2.4576E+00_JPRB,2.7866E+00_JPRB,6.4282E+00_JPRB/)
+KAO( :, 1,13,13) = (/&
+&1.2852E+00_JPRB,1.1646E+00_JPRB,1.0642E+00_JPRB,9.7556E-01_JPRB,9.2420E-01_JPRB,8.7620E-01_JPRB,&
+&7.7196E-01_JPRB,7.7146E-01_JPRB,8.7630E-01_JPRB,4.8556E+00_JPRB/)
+KAO( :, 2,13,13) = (/&
+&1.8301E+00_JPRB,1.6589E+00_JPRB,1.5152E+00_JPRB,1.3893E+00_JPRB,1.3055E+00_JPRB,1.2323E+00_JPRB,&
+&1.0895E+00_JPRB,1.0875E+00_JPRB,1.2372E+00_JPRB,5.1762E+00_JPRB/)
+KAO( :, 3,13,13) = (/&
+&2.4889E+00_JPRB,2.2558E+00_JPRB,2.0613E+00_JPRB,1.9034E+00_JPRB,1.7774E+00_JPRB,1.6692E+00_JPRB,&
+&1.4717E+00_JPRB,1.4657E+00_JPRB,1.6743E+00_JPRB,5.5984E+00_JPRB/)
+KAO( :, 4,13,13) = (/&
+&3.2570E+00_JPRB,2.9493E+00_JPRB,2.7127E+00_JPRB,2.5175E+00_JPRB,2.3371E+00_JPRB,2.1800E+00_JPRB,&
+&1.9099E+00_JPRB,1.9041E+00_JPRB,2.1795E+00_JPRB,5.9989E+00_JPRB/)
+KAO( :, 5,13,13) = (/&
+&4.1326E+00_JPRB,3.7382E+00_JPRB,3.4726E+00_JPRB,3.2172E+00_JPRB,2.9811E+00_JPRB,2.7433E+00_JPRB,&
+&2.3977E+00_JPRB,2.4060E+00_JPRB,2.7519E+00_JPRB,6.3218E+00_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&6.3467E+00_JPRB,5.5536E+00_JPRB,4.7605E+00_JPRB,3.9673E+00_JPRB,3.4386E+00_JPRB,3.0089E+00_JPRB,&
+&3.2295E+00_JPRB,3.7567E+00_JPRB,4.0531E+00_JPRB,4.1923E+00_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&7.3964E+00_JPRB,6.4721E+00_JPRB,5.5478E+00_JPRB,4.6234E+00_JPRB,4.0808E+00_JPRB,3.6137E+00_JPRB,&
+&3.9782E+00_JPRB,4.6298E+00_JPRB,5.0268E+00_JPRB,5.1845E+00_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&8.4250E+00_JPRB,7.3721E+00_JPRB,6.3192E+00_JPRB,5.2663E+00_JPRB,4.6836E+00_JPRB,4.2376E+00_JPRB,&
+&4.8035E+00_JPRB,5.5919E+00_JPRB,6.0740E+00_JPRB,6.2648E+00_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&9.4499E+00_JPRB,8.2689E+00_JPRB,7.0879E+00_JPRB,5.9239E+00_JPRB,5.2786E+00_JPRB,4.8999E+00_JPRB,&
+&5.6760E+00_JPRB,6.6052E+00_JPRB,7.1802E+00_JPRB,7.4022E+00_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&1.0423E+01_JPRB,9.1200E+00_JPRB,7.8174E+00_JPRB,6.5882E+00_JPRB,5.8558E+00_JPRB,5.6014E+00_JPRB,&
+&6.5884E+00_JPRB,7.6675E+00_JPRB,8.3255E+00_JPRB,8.5803E+00_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&6.0960E+00_JPRB,5.3341E+00_JPRB,4.5723E+00_JPRB,3.8126E+00_JPRB,3.4069E+00_JPRB,2.9396E+00_JPRB,&
+&3.2197E+00_JPRB,3.7455E+00_JPRB,4.0286E+00_JPRB,4.2155E+00_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&7.1676E+00_JPRB,6.2719E+00_JPRB,5.3761E+00_JPRB,4.4966E+00_JPRB,4.0412E+00_JPRB,3.5493E+00_JPRB,&
+&3.9472E+00_JPRB,4.5920E+00_JPRB,4.9699E+00_JPRB,5.1775E+00_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&8.2275E+00_JPRB,7.1993E+00_JPRB,6.1710E+00_JPRB,5.2089E+00_JPRB,4.6568E+00_JPRB,4.1985E+00_JPRB,&
+&4.7440E+00_JPRB,5.5211E+00_JPRB,6.0149E+00_JPRB,6.2370E+00_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&9.2799E+00_JPRB,8.1202E+00_JPRB,6.9604E+00_JPRB,5.9586E+00_JPRB,5.2716E+00_JPRB,4.8960E+00_JPRB,&
+&5.6599E+00_JPRB,6.5872E+00_JPRB,7.1735E+00_JPRB,7.4414E+00_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&1.0290E+01_JPRB,9.0044E+00_JPRB,7.7181E+00_JPRB,6.7211E+00_JPRB,5.8757E+00_JPRB,5.6245E+00_JPRB,&
+&6.6558E+00_JPRB,7.7452E+00_JPRB,8.4069E+00_JPRB,8.7373E+00_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&5.6039E+00_JPRB,4.9036E+00_JPRB,4.2032E+00_JPRB,3.5445E+00_JPRB,3.1902E+00_JPRB,2.7537E+00_JPRB,&
+&3.0813E+00_JPRB,3.5840E+00_JPRB,3.8576E+00_JPRB,4.0764E+00_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&6.6863E+00_JPRB,5.8506E+00_JPRB,5.0150E+00_JPRB,4.2815E+00_JPRB,3.8270E+00_JPRB,3.3352E+00_JPRB,&
+&3.7857E+00_JPRB,4.4048E+00_JPRB,4.7637E+00_JPRB,5.0131E+00_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&7.7737E+00_JPRB,6.8021E+00_JPRB,5.8305E+00_JPRB,5.0665E+00_JPRB,4.4594E+00_JPRB,3.9827E+00_JPRB,&
+&4.5659E+00_JPRB,5.3124E+00_JPRB,5.7659E+00_JPRB,6.0477E+00_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&8.8508E+00_JPRB,7.7446E+00_JPRB,6.6384E+00_JPRB,5.8813E+00_JPRB,5.0859E+00_JPRB,4.6840E+00_JPRB,&
+&5.4591E+00_JPRB,6.3527E+00_JPRB,6.8914E+00_JPRB,7.2291E+00_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&9.9079E+00_JPRB,8.6696E+00_JPRB,7.4314E+00_JPRB,6.6539E+00_JPRB,5.7107E+00_JPRB,5.4618E+00_JPRB,&
+&6.4933E+00_JPRB,7.5556E+00_JPRB,8.1916E+00_JPRB,8.5967E+00_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&5.0429E+00_JPRB,4.4127E+00_JPRB,3.7824E+00_JPRB,3.2565E+00_JPRB,2.9117E+00_JPRB,2.5898E+00_JPRB,&
+&2.8958E+00_JPRB,3.3702E+00_JPRB,3.6408E+00_JPRB,3.8526E+00_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&6.1165E+00_JPRB,5.3520E+00_JPRB,4.5876E+00_JPRB,4.0300E+00_JPRB,3.5416E+00_JPRB,3.1532E+00_JPRB,&
+&3.5780E+00_JPRB,4.1633E+00_JPRB,4.5155E+00_JPRB,4.7595E+00_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&7.2202E+00_JPRB,6.3178E+00_JPRB,5.4153E+00_JPRB,4.8492E+00_JPRB,4.1829E+00_JPRB,3.7790E+00_JPRB,&
+&4.3631E+00_JPRB,5.0766E+00_JPRB,5.4928E+00_JPRB,5.8029E+00_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&8.3276E+00_JPRB,7.2868E+00_JPRB,6.2460E+00_JPRB,5.6534E+00_JPRB,4.8225E+00_JPRB,4.4640E+00_JPRB,&
+&5.2625E+00_JPRB,6.1221E+00_JPRB,6.6156E+00_JPRB,6.9984E+00_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&9.4148E+00_JPRB,8.2381E+00_JPRB,7.0618E+00_JPRB,6.4221E+00_JPRB,5.4760E+00_JPRB,5.2668E+00_JPRB,&
+&6.3012E+00_JPRB,7.3279E+00_JPRB,7.8962E+00_JPRB,8.3774E+00_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&4.4802E+00_JPRB,3.9202E+00_JPRB,3.3603E+00_JPRB,2.9662E+00_JPRB,2.6611E+00_JPRB,2.4288E+00_JPRB,&
+&2.7026E+00_JPRB,3.1455E+00_JPRB,3.4114E+00_JPRB,3.6024E+00_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&5.5401E+00_JPRB,4.8477E+00_JPRB,4.1552E+00_JPRB,3.7384E+00_JPRB,3.2633E+00_JPRB,2.9928E+00_JPRB,&
+&3.3900E+00_JPRB,3.9443E+00_JPRB,4.2636E+00_JPRB,4.5188E+00_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&6.6438E+00_JPRB,5.8134E+00_JPRB,4.9831E+00_JPRB,4.5446E+00_JPRB,3.8884E+00_JPRB,3.6053E+00_JPRB,&
+&4.1835E+00_JPRB,4.8658E+00_JPRB,5.2435E+00_JPRB,5.5754E+00_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&7.7709E+00_JPRB,6.7996E+00_JPRB,5.8338E+00_JPRB,5.3460E+00_JPRB,4.5461E+00_JPRB,4.3055E+00_JPRB,&
+&5.1051E+00_JPRB,5.9359E+00_JPRB,6.3763E+00_JPRB,6.8031E+00_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&8.8898E+00_JPRB,7.7787E+00_JPRB,6.6983E+00_JPRB,6.1260E+00_JPRB,5.2267E+00_JPRB,5.1517E+00_JPRB,&
+&6.1712E+00_JPRB,7.1748E+00_JPRB,7.6888E+00_JPRB,8.2242E+00_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&3.8956E+00_JPRB,3.4087E+00_JPRB,2.9221E+00_JPRB,2.6281E+00_JPRB,2.4050E+00_JPRB,2.1916E+00_JPRB,&
+&2.4174E+00_JPRB,2.8161E+00_JPRB,3.0927E+00_JPRB,3.2244E+00_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&4.9303E+00_JPRB,4.3141E+00_JPRB,3.7046E+00_JPRB,3.3844E+00_JPRB,3.0105E+00_JPRB,2.7770E+00_JPRB,&
+&3.1412E+00_JPRB,3.6575E+00_JPRB,3.9814E+00_JPRB,4.1910E+00_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&6.0218E+00_JPRB,5.2691E+00_JPRB,4.5387E+00_JPRB,4.1657E+00_JPRB,3.6350E+00_JPRB,3.4172E+00_JPRB,&
+&3.9726E+00_JPRB,4.6214E+00_JPRB,4.9897E+00_JPRB,5.2991E+00_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&7.1568E+00_JPRB,6.2623E+00_JPRB,5.4345E+00_JPRB,4.9658E+00_JPRB,4.2966E+00_JPRB,4.1563E+00_JPRB,&
+&4.9351E+00_JPRB,5.7383E+00_JPRB,6.1434E+00_JPRB,6.5857E+00_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&8.3003E+00_JPRB,7.2628E+00_JPRB,6.3671E+00_JPRB,5.7590E+00_JPRB,4.9644E+00_JPRB,5.0298E+00_JPRB,&
+&6.0229E+00_JPRB,7.0046E+00_JPRB,7.4957E+00_JPRB,8.0375E+00_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&3.3388E+00_JPRB,2.9215E+00_JPRB,2.5187E+00_JPRB,2.3253E+00_JPRB,2.1119E+00_JPRB,1.9164E+00_JPRB,&
+&2.0859E+00_JPRB,2.4315E+00_JPRB,2.6982E+00_JPRB,2.7836E+00_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&4.3359E+00_JPRB,3.7940E+00_JPRB,3.2869E+00_JPRB,3.0293E+00_JPRB,2.7102E+00_JPRB,2.5026E+00_JPRB,&
+&2.8032E+00_JPRB,3.2661E+00_JPRB,3.5953E+00_JPRB,3.7400E+00_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&5.4120E+00_JPRB,4.7356E+00_JPRB,4.1395E+00_JPRB,3.7778E+00_JPRB,3.3513E+00_JPRB,3.1688E+00_JPRB,&
+&3.6572E+00_JPRB,4.2574E+00_JPRB,4.6459E+00_JPRB,4.8805E+00_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&6.5428E+00_JPRB,5.7250E+00_JPRB,5.0639E+00_JPRB,4.5620E+00_JPRB,4.0362E+00_JPRB,3.9521E+00_JPRB,&
+&4.6701E+00_JPRB,5.4350E+00_JPRB,5.8814E+00_JPRB,6.2344E+00_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&7.7011E+00_JPRB,6.7385E+00_JPRB,6.0359E+00_JPRB,5.3689E+00_JPRB,4.7398E+00_JPRB,4.8671E+00_JPRB,&
+&5.8104E+00_JPRB,6.7609E+00_JPRB,7.2855E+00_JPRB,7.7564E+00_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&2.8332E+00_JPRB,2.4790E+00_JPRB,2.1588E+00_JPRB,2.0517E+00_JPRB,1.8212E+00_JPRB,1.6427E+00_JPRB,&
+&1.7555E+00_JPRB,2.0463E+00_JPRB,2.2808E+00_JPRB,2.3417E+00_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&3.7845E+00_JPRB,3.3115E+00_JPRB,2.9062E+00_JPRB,2.7307E+00_JPRB,2.4002E+00_JPRB,2.2076E+00_JPRB,&
+&2.4394E+00_JPRB,2.8424E+00_JPRB,3.1489E+00_JPRB,3.2550E+00_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&4.8341E+00_JPRB,4.2299E+00_JPRB,3.7584E+00_JPRB,3.4582E+00_JPRB,3.0437E+00_JPRB,2.8748E+00_JPRB,&
+&3.2834E+00_JPRB,3.8242E+00_JPRB,4.1983E+00_JPRB,4.3823E+00_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&5.9611E+00_JPRB,5.2160E+00_JPRB,4.6841E+00_JPRB,4.2257E+00_JPRB,3.7381E+00_JPRB,3.6695E+00_JPRB,&
+&4.3008E+00_JPRB,5.0080E+00_JPRB,5.4653E+00_JPRB,5.7413E+00_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&7.1388E+00_JPRB,6.2465E+00_JPRB,5.6516E+00_JPRB,5.0317E+00_JPRB,4.4851E+00_JPRB,4.5966E+00_JPRB,&
+&5.4606E+00_JPRB,6.3571E+00_JPRB,6.9303E+00_JPRB,7.2901E+00_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&2.3712E+00_JPRB,2.0748E+00_JPRB,1.8514E+00_JPRB,1.7610E+00_JPRB,1.5410E+00_JPRB,1.3776E+00_JPRB,&
+&1.4602E+00_JPRB,1.7019E+00_JPRB,1.8917E+00_JPRB,1.9491E+00_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&3.2706E+00_JPRB,2.8618E+00_JPRB,2.5535E+00_JPRB,2.4121E+00_JPRB,2.0953E+00_JPRB,1.9091E+00_JPRB,&
+&2.0867E+00_JPRB,2.4315E+00_JPRB,2.6961E+00_JPRB,2.7855E+00_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&4.2928E+00_JPRB,3.7562E+00_JPRB,3.3707E+00_JPRB,3.1325E+00_JPRB,2.7323E+00_JPRB,2.5568E+00_JPRB,&
+&2.8897E+00_JPRB,3.3658E+00_JPRB,3.7112E+00_JPRB,3.8566E+00_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&5.4084E+00_JPRB,4.7324E+00_JPRB,4.2872E+00_JPRB,3.9074E+00_JPRB,3.4333E+00_JPRB,3.3403E+00_JPRB,&
+&3.8759E+00_JPRB,4.5148E+00_JPRB,4.9657E+00_JPRB,5.1730E+00_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&6.5945E+00_JPRB,5.7702E+00_JPRB,5.2612E+00_JPRB,4.7341E+00_JPRB,4.2027E+00_JPRB,4.2619E+00_JPRB,&
+&5.0203E+00_JPRB,5.8475E+00_JPRB,6.4247E+00_JPRB,6.7007E+00_JPRB/)
+KAO( :, 1,10,14) = (/&
+&2.0238E+00_JPRB,1.7709E+00_JPRB,1.6271E+00_JPRB,1.5213E+00_JPRB,1.3211E+00_JPRB,1.1708E+00_JPRB,&
+&1.2470E+00_JPRB,1.4529E+00_JPRB,1.6100E+00_JPRB,4.3675E+00_JPRB/)
+KAO( :, 2,10,14) = (/&
+&2.8739E+00_JPRB,2.5147E+00_JPRB,2.3020E+00_JPRB,2.1393E+00_JPRB,1.8575E+00_JPRB,1.6735E+00_JPRB,&
+&1.8305E+00_JPRB,2.1324E+00_JPRB,2.3565E+00_JPRB,4.3227E+00_JPRB/)
+KAO( :, 3,10,14) = (/&
+&3.8650E+00_JPRB,3.3819E+00_JPRB,3.1009E+00_JPRB,2.8438E+00_JPRB,2.4832E+00_JPRB,2.3021E+00_JPRB,&
+&2.5924E+00_JPRB,3.0194E+00_JPRB,3.3202E+00_JPRB,4.3938E+00_JPRB/)
+KAO( :, 4,10,14) = (/&
+&4.9777E+00_JPRB,4.3555E+00_JPRB,3.9964E+00_JPRB,3.6309E+00_JPRB,3.1871E+00_JPRB,3.0700E+00_JPRB,&
+&3.5258E+00_JPRB,4.1073E+00_JPRB,4.5249E+00_JPRB,4.9612E+00_JPRB/)
+KAO( :, 5,10,14) = (/&
+&6.1825E+00_JPRB,5.4114E+00_JPRB,4.9528E+00_JPRB,4.4825E+00_JPRB,3.9869E+00_JPRB,3.9806E+00_JPRB,&
+&4.6382E+00_JPRB,5.4027E+00_JPRB,5.9521E+00_JPRB,6.1940E+00_JPRB/)
+KAO( :, 1,11,14) = (/&
+&2.0804E+00_JPRB,1.8204E+00_JPRB,1.7005E+00_JPRB,1.5536E+00_JPRB,1.3500E+00_JPRB,1.2044E+00_JPRB,&
+&1.3053E+00_JPRB,1.5201E+00_JPRB,1.6683E+00_JPRB,7.0995E+00_JPRB/)
+KAO( :, 2,11,14) = (/&
+&2.9372E+00_JPRB,2.5710E+00_JPRB,2.4123E+00_JPRB,2.1876E+00_JPRB,1.9103E+00_JPRB,1.7356E+00_JPRB,&
+&1.9131E+00_JPRB,2.2284E+00_JPRB,2.4493E+00_JPRB,7.0950E+00_JPRB/)
+KAO( :, 3,11,14) = (/&
+&3.9628E+00_JPRB,3.4731E+00_JPRB,3.2411E+00_JPRB,2.9265E+00_JPRB,2.5614E+00_JPRB,2.3947E+00_JPRB,&
+&2.6976E+00_JPRB,3.1434E+00_JPRB,3.4700E+00_JPRB,6.9637E+00_JPRB/)
+KAO( :, 4,11,14) = (/&
+&5.1248E+00_JPRB,4.4937E+00_JPRB,4.1603E+00_JPRB,3.7597E+00_JPRB,3.3177E+00_JPRB,3.2015E+00_JPRB,&
+&3.6687E+00_JPRB,4.2746E+00_JPRB,4.7220E+00_JPRB,6.9069E+00_JPRB/)
+KAO( :, 5,11,14) = (/&
+&6.4048E+00_JPRB,5.6238E+00_JPRB,5.1596E+00_JPRB,4.6653E+00_JPRB,4.1869E+00_JPRB,4.1503E+00_JPRB,&
+&4.8291E+00_JPRB,5.6278E+00_JPRB,6.2131E+00_JPRB,7.3735E+00_JPRB/)
+KAO( :, 1,12,14) = (/&
+&2.1606E+00_JPRB,1.8919E+00_JPRB,1.7776E+00_JPRB,1.5988E+00_JPRB,1.3931E+00_JPRB,1.2607E+00_JPRB,&
+&1.3765E+00_JPRB,1.6030E+00_JPRB,1.7584E+00_JPRB,8.8539E+00_JPRB/)
+KAO( :, 2,12,14) = (/&
+&3.0241E+00_JPRB,2.6538E+00_JPRB,2.5108E+00_JPRB,2.2558E+00_JPRB,1.9760E+00_JPRB,1.8135E+00_JPRB,&
+&2.0048E+00_JPRB,2.3354E+00_JPRB,2.5682E+00_JPRB,8.8299E+00_JPRB/)
+KAO( :, 3,12,14) = (/&
+&4.0854E+00_JPRB,3.5917E+00_JPRB,3.3758E+00_JPRB,3.0347E+00_JPRB,2.6732E+00_JPRB,2.5117E+00_JPRB,&
+&2.8106E+00_JPRB,3.2743E+00_JPRB,3.6095E+00_JPRB,8.6670E+00_JPRB/)
+KAO( :, 4,12,14) = (/&
+&5.3044E+00_JPRB,4.6786E+00_JPRB,4.3443E+00_JPRB,3.9213E+00_JPRB,3.4969E+00_JPRB,3.3585E+00_JPRB,&
+&3.8040E+00_JPRB,4.4330E+00_JPRB,4.9075E+00_JPRB,8.5700E+00_JPRB/)
+KAO( :, 5,12,14) = (/&
+&6.6440E+00_JPRB,5.8812E+00_JPRB,5.4120E+00_JPRB,4.9125E+00_JPRB,4.4282E+00_JPRB,4.3429E+00_JPRB,&
+&4.9855E+00_JPRB,5.8102E+00_JPRB,6.4492E+00_JPRB,8.6830E+00_JPRB/)
+KAO( :, 1,13,14) = (/&
+&2.2525E+00_JPRB,1.9864E+00_JPRB,1.8643E+00_JPRB,1.6602E+00_JPRB,1.4614E+00_JPRB,1.3350E+00_JPRB,&
+&1.4569E+00_JPRB,1.6960E+00_JPRB,1.8539E+00_JPRB,8.7601E+00_JPRB/)
+KAO( :, 2,13,14) = (/&
+&3.1332E+00_JPRB,2.7632E+00_JPRB,2.6018E+00_JPRB,2.3367E+00_JPRB,2.0765E+00_JPRB,1.9171E+00_JPRB,&
+&2.1105E+00_JPRB,2.4578E+00_JPRB,2.6945E+00_JPRB,8.6837E+00_JPRB/)
+KAO( :, 3,13,14) = (/&
+&4.2146E+00_JPRB,3.7269E+00_JPRB,3.4963E+00_JPRB,3.1609E+00_JPRB,2.8326E+00_JPRB,2.6522E+00_JPRB,&
+&2.9390E+00_JPRB,3.4234E+00_JPRB,3.7715E+00_JPRB,8.5952E+00_JPRB/)
+KAO( :, 4,13,14) = (/&
+&5.4718E+00_JPRB,4.8645E+00_JPRB,4.5313E+00_JPRB,4.1221E+00_JPRB,3.7163E+00_JPRB,3.5387E+00_JPRB,&
+&3.9442E+00_JPRB,4.5945E+00_JPRB,5.0796E+00_JPRB,8.5494E+00_JPRB/)
+KAO( :, 5,13,14) = (/&
+&6.8761E+00_JPRB,6.1372E+00_JPRB,5.6718E+00_JPRB,5.2229E+00_JPRB,4.7155E+00_JPRB,4.5637E+00_JPRB,&
+&5.1163E+00_JPRB,5.9645E+00_JPRB,6.6388E+00_JPRB,8.7275E+00_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&7.4038E+00_JPRB,6.4785E+00_JPRB,5.5532E+00_JPRB,4.6280E+00_JPRB,3.7389E+00_JPRB,4.3853E+00_JPRB,&
+&5.2514E+00_JPRB,6.0902E+00_JPRB,6.2346E+00_JPRB,6.5981E+00_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&8.5770E+00_JPRB,7.5051E+00_JPRB,6.4332E+00_JPRB,5.3613E+00_JPRB,4.4922E+00_JPRB,5.5332E+00_JPRB,&
+&6.6248E+00_JPRB,7.6856E+00_JPRB,7.8788E+00_JPRB,8.3358E+00_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&9.7196E+00_JPRB,8.4924E+00_JPRB,7.2901E+00_JPRB,6.0754E+00_JPRB,5.4287E+00_JPRB,6.7758E+00_JPRB,&
+&8.1174E+00_JPRB,9.4295E+00_JPRB,9.6454E+00_JPRB,1.0231E+01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&1.0823E+01_JPRB,9.4701E+00_JPRB,8.1175E+00_JPRB,6.7650E+00_JPRB,6.4845E+00_JPRB,8.0968E+00_JPRB,&
+&9.6971E+00_JPRB,1.1247E+01_JPRB,1.1535E+01_JPRB,1.2232E+01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&1.1862E+01_JPRB,1.0380E+01_JPRB,8.8975E+00_JPRB,7.4149E+00_JPRB,7.5987E+00_JPRB,9.4854E+00_JPRB,&
+&1.1367E+01_JPRB,1.3183E+01_JPRB,1.3535E+01_JPRB,1.4322E+01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&7.2487E+00_JPRB,6.3428E+00_JPRB,5.4369E+00_JPRB,4.5309E+00_JPRB,3.8305E+00_JPRB,4.6866E+00_JPRB,&
+&5.6122E+00_JPRB,6.5109E+00_JPRB,6.6944E+00_JPRB,7.2237E+00_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&8.4632E+00_JPRB,7.4054E+00_JPRB,6.3477E+00_JPRB,5.2900E+00_JPRB,4.7972E+00_JPRB,5.9774E+00_JPRB,&
+&7.1612E+00_JPRB,8.3091E+00_JPRB,8.5448E+00_JPRB,9.2203E+00_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&9.6376E+00_JPRB,8.4331E+00_JPRB,7.2286E+00_JPRB,6.0241E+00_JPRB,5.9277E+00_JPRB,7.4032E+00_JPRB,&
+&8.8670E+00_JPRB,1.0288E+01_JPRB,1.0591E+01_JPRB,1.1420E+01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&1.0787E+01_JPRB,9.4386E+00_JPRB,8.0905E+00_JPRB,6.7423E+00_JPRB,7.1365E+00_JPRB,8.9120E+00_JPRB,&
+&1.0675E+01_JPRB,1.2387E+01_JPRB,1.2766E+01_JPRB,1.3751E+01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&1.1876E+01_JPRB,1.0392E+01_JPRB,8.9076E+00_JPRB,7.4263E+00_JPRB,8.4093E+00_JPRB,1.0502E+01_JPRB,&
+&1.2577E+01_JPRB,1.4600E+01_JPRB,1.5061E+01_JPRB,1.6216E+01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&6.8060E+00_JPRB,5.9554E+00_JPRB,5.1048E+00_JPRB,4.2541E+00_JPRB,3.7945E+00_JPRB,4.6793E+00_JPRB,&
+&5.6066E+00_JPRB,6.5069E+00_JPRB,6.7262E+00_JPRB,7.3705E+00_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&8.0512E+00_JPRB,7.0449E+00_JPRB,6.0387E+00_JPRB,5.0324E+00_JPRB,4.8723E+00_JPRB,6.0807E+00_JPRB,&
+&7.2845E+00_JPRB,8.4534E+00_JPRB,8.7471E+00_JPRB,9.5785E+00_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&9.2771E+00_JPRB,8.1176E+00_JPRB,6.9581E+00_JPRB,5.7986E+00_JPRB,6.1227E+00_JPRB,7.6490E+00_JPRB,&
+&9.1620E+00_JPRB,1.0634E+01_JPRB,1.1013E+01_JPRB,1.2049E+01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&1.0461E+01_JPRB,9.1535E+00_JPRB,7.8460E+00_JPRB,6.5548E+00_JPRB,7.4810E+00_JPRB,9.3445E+00_JPRB,&
+&1.1193E+01_JPRB,1.2995E+01_JPRB,1.3474E+01_JPRB,1.4726E+01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&1.1612E+01_JPRB,1.0161E+01_JPRB,8.7094E+00_JPRB,7.3963E+00_JPRB,8.9014E+00_JPRB,1.1119E+01_JPRB,&
+&1.3323E+01_JPRB,1.5462E+01_JPRB,1.6055E+01_JPRB,1.7525E+01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&6.2727E+00_JPRB,5.4887E+00_JPRB,4.7047E+00_JPRB,3.9207E+00_JPRB,3.6525E+00_JPRB,4.5000E+00_JPRB,&
+&5.3898E+00_JPRB,6.2588E+00_JPRB,6.5149E+00_JPRB,7.1567E+00_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&7.5169E+00_JPRB,6.5774E+00_JPRB,5.6379E+00_JPRB,4.6985E+00_JPRB,4.7911E+00_JPRB,5.9751E+00_JPRB,&
+&7.1596E+00_JPRB,8.3141E+00_JPRB,8.6620E+00_JPRB,9.5044E+00_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&8.7861E+00_JPRB,7.6880E+00_JPRB,6.5898E+00_JPRB,5.5305E+00_JPRB,6.1247E+00_JPRB,7.6488E+00_JPRB,&
+&9.1669E+00_JPRB,1.0645E+01_JPRB,1.1106E+01_JPRB,1.2173E+01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&1.0026E+01_JPRB,8.7728E+00_JPRB,7.5197E+00_JPRB,6.4473E+00_JPRB,7.6081E+00_JPRB,9.5022E+00_JPRB,&
+&1.1386E+01_JPRB,1.3225E+01_JPRB,1.3819E+01_JPRB,1.5121E+01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&1.1215E+01_JPRB,9.8132E+00_JPRB,8.4117E+00_JPRB,7.4634E+00_JPRB,9.1763E+00_JPRB,1.1465E+01_JPRB,&
+&1.3734E+01_JPRB,1.5956E+01_JPRB,1.6697E+01_JPRB,1.8243E+01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&5.7094E+00_JPRB,4.9958E+00_JPRB,4.2822E+00_JPRB,3.5751E+00_JPRB,3.4456E+00_JPRB,4.2408E+00_JPRB,&
+&5.0808E+00_JPRB,5.9001E+00_JPRB,6.1640E+00_JPRB,6.7724E+00_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&6.9610E+00_JPRB,6.0909E+00_JPRB,5.2209E+00_JPRB,4.3950E+00_JPRB,4.6160E+00_JPRB,5.7378E+00_JPRB,&
+&6.8746E+00_JPRB,7.9877E+00_JPRB,8.3933E+00_JPRB,9.1641E+00_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&8.2452E+00_JPRB,7.2146E+00_JPRB,6.1840E+00_JPRB,5.2978E+00_JPRB,5.9973E+00_JPRB,7.4900E+00_JPRB,&
+&8.9757E+00_JPRB,1.0429E+01_JPRB,1.0974E+01_JPRB,1.1967E+01_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&9.5317E+00_JPRB,8.3403E+00_JPRB,7.1489E+00_JPRB,6.3594E+00_JPRB,7.5690E+00_JPRB,9.4570E+00_JPRB,&
+&1.1330E+01_JPRB,1.3166E+01_JPRB,1.3879E+01_JPRB,1.5102E+01_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&1.0774E+01_JPRB,9.4271E+00_JPRB,8.0808E+00_JPRB,7.5165E+00_JPRB,9.2600E+00_JPRB,1.1570E+01_JPRB,&
+&1.3864E+01_JPRB,1.6116E+01_JPRB,1.7021E+01_JPRB,1.8481E+01_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&5.0892E+00_JPRB,4.4531E+00_JPRB,3.8170E+00_JPRB,3.2199E+00_JPRB,3.2113E+00_JPRB,4.0113E+00_JPRB,&
+&4.8052E+00_JPRB,5.5784E+00_JPRB,5.7946E+00_JPRB,6.4168E+00_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&6.3415E+00_JPRB,5.5489E+00_JPRB,4.7563E+00_JPRB,4.0482E+00_JPRB,4.3407E+00_JPRB,5.4212E+00_JPRB,&
+&6.4943E+00_JPRB,7.5434E+00_JPRB,7.9031E+00_JPRB,8.6734E+00_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&7.6230E+00_JPRB,6.6701E+00_JPRB,5.7173E+00_JPRB,5.0372E+00_JPRB,5.7049E+00_JPRB,7.1268E+00_JPRB,&
+&8.5427E+00_JPRB,9.9277E+00_JPRB,1.0503E+01_JPRB,1.1401E+01_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&8.9427E+00_JPRB,7.8250E+00_JPRB,6.7072E+00_JPRB,6.1864E+00_JPRB,7.3054E+00_JPRB,9.1262E+00_JPRB,&
+&1.0936E+01_JPRB,1.2717E+01_JPRB,1.3530E+01_JPRB,1.4596E+01_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&1.0234E+01_JPRB,8.9552E+00_JPRB,7.6757E+00_JPRB,7.4408E+00_JPRB,9.0975E+00_JPRB,1.1364E+01_JPRB,&
+&1.3619E+01_JPRB,1.5837E+01_JPRB,1.6857E+01_JPRB,1.8182E+01_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&4.4701E+00_JPRB,3.9114E+00_JPRB,3.3527E+00_JPRB,2.8491E+00_JPRB,3.0525E+00_JPRB,3.8120E+00_JPRB,&
+&4.5671E+00_JPRB,5.3029E+00_JPRB,5.5170E+00_JPRB,6.1054E+00_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&5.7025E+00_JPRB,4.9897E+00_JPRB,4.2769E+00_JPRB,3.7076E+00_JPRB,4.1441E+00_JPRB,5.1768E+00_JPRB,&
+&6.2022E+00_JPRB,7.2045E+00_JPRB,7.5353E+00_JPRB,8.2888E+00_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&6.9903E+00_JPRB,6.1166E+00_JPRB,5.2429E+00_JPRB,4.7421E+00_JPRB,5.4711E+00_JPRB,6.8345E+00_JPRB,&
+&8.1908E+00_JPRB,9.5158E+00_JPRB,1.0021E+01_JPRB,1.0944E+01_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&8.3116E+00_JPRB,7.2727E+00_JPRB,6.2339E+00_JPRB,5.9347E+00_JPRB,7.0277E+00_JPRB,8.7788E+00_JPRB,&
+&1.0523E+01_JPRB,1.2229E+01_JPRB,1.2970E+01_JPRB,1.4056E+01_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&9.6433E+00_JPRB,8.4379E+00_JPRB,7.2404E+00_JPRB,7.2539E+00_JPRB,8.8191E+00_JPRB,1.1015E+01_JPRB,&
+&1.3202E+01_JPRB,1.5351E+01_JPRB,1.6381E+01_JPRB,1.7636E+01_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&3.8815E+00_JPRB,3.3963E+00_JPRB,2.9112E+00_JPRB,2.5144E+00_JPRB,2.8901E+00_JPRB,3.6107E+00_JPRB,&
+&4.3267E+00_JPRB,5.0237E+00_JPRB,5.2562E+00_JPRB,5.7843E+00_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&5.0803E+00_JPRB,4.4453E+00_JPRB,3.8103E+00_JPRB,3.3588E+00_JPRB,3.9581E+00_JPRB,4.9433E+00_JPRB,&
+&5.9245E+00_JPRB,6.8831E+00_JPRB,7.2246E+00_JPRB,7.9205E+00_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&6.3642E+00_JPRB,5.5687E+00_JPRB,4.7732E+00_JPRB,4.4061E+00_JPRB,5.2635E+00_JPRB,6.5746E+00_JPRB,&
+&7.8793E+00_JPRB,9.1591E+00_JPRB,9.6612E+00_JPRB,1.0533E+01_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&7.6962E+00_JPRB,6.7342E+00_JPRB,5.8016E+00_JPRB,5.6218E+00_JPRB,6.8073E+00_JPRB,8.5035E+00_JPRB,&
+&1.0191E+01_JPRB,1.1842E+01_JPRB,1.2564E+01_JPRB,1.3618E+01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&9.0600E+00_JPRB,7.9276E+00_JPRB,6.8887E+00_JPRB,6.9782E+00_JPRB,8.5965E+00_JPRB,1.0738E+01_JPRB,&
+&1.2872E+01_JPRB,1.4959E+01_JPRB,1.5916E+01_JPRB,1.7201E+01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&3.3248E+00_JPRB,2.9093E+00_JPRB,2.4937E+00_JPRB,2.2724E+00_JPRB,2.6961E+00_JPRB,3.3684E+00_JPRB,&
+&4.0359E+00_JPRB,4.6900E+00_JPRB,4.9499E+00_JPRB,5.3973E+00_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&4.4808E+00_JPRB,3.9207E+00_JPRB,3.3615E+00_JPRB,3.0920E+00_JPRB,3.7395E+00_JPRB,4.6706E+00_JPRB,&
+&5.5971E+00_JPRB,6.5044E+00_JPRB,6.8727E+00_JPRB,7.4836E+00_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&5.7505E+00_JPRB,5.0317E+00_JPRB,4.3435E+00_JPRB,4.1016E+00_JPRB,5.0205E+00_JPRB,6.2714E+00_JPRB,&
+&7.5160E+00_JPRB,8.7397E+00_JPRB,9.2709E+00_JPRB,1.0047E+01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&7.0908E+00_JPRB,6.2044E+00_JPRB,5.3782E+00_JPRB,5.2882E+00_JPRB,6.5597E+00_JPRB,8.1944E+00_JPRB,&
+&9.8217E+00_JPRB,1.1416E+01_JPRB,1.2142E+01_JPRB,1.3130E+01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&8.4732E+00_JPRB,7.4141E+00_JPRB,6.4913E+00_JPRB,6.6287E+00_JPRB,8.3565E+00_JPRB,1.0438E+01_JPRB,&
+&1.2512E+01_JPRB,1.4551E+01_JPRB,1.5514E+01_JPRB,1.6723E+01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&2.8920E+00_JPRB,2.5306E+00_JPRB,2.1693E+00_JPRB,2.0986E+00_JPRB,2.5124E+00_JPRB,3.1388E+00_JPRB,&
+&3.7625E+00_JPRB,4.3752E+00_JPRB,4.6672E+00_JPRB,5.6157E+00_JPRB/)
+KAO( :, 2,10,15) = (/&
+&4.0040E+00_JPRB,3.5035E+00_JPRB,3.0238E+00_JPRB,2.9376E+00_JPRB,3.5667E+00_JPRB,4.4559E+00_JPRB,&
+&5.3416E+00_JPRB,6.2115E+00_JPRB,6.6210E+00_JPRB,7.1691E+00_JPRB/)
+KAO( :, 3,10,15) = (/&
+&5.2529E+00_JPRB,4.5963E+00_JPRB,3.9804E+00_JPRB,3.9436E+00_JPRB,4.8397E+00_JPRB,6.0465E+00_JPRB,&
+&7.2474E+00_JPRB,8.4282E+00_JPRB,9.0023E+00_JPRB,9.6885E+00_JPRB/)
+KAO( :, 4,10,15) = (/&
+&6.6009E+00_JPRB,5.7758E+00_JPRB,5.0451E+00_JPRB,5.1236E+00_JPRB,6.3901E+00_JPRB,7.9831E+00_JPRB,&
+&9.5690E+00_JPRB,1.1128E+01_JPRB,1.1898E+01_JPRB,1.2790E+01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&8.0358E+00_JPRB,7.0314E+00_JPRB,6.2146E+00_JPRB,6.4650E+00_JPRB,8.1964E+00_JPRB,1.0240E+01_JPRB,&
+&1.2274E+01_JPRB,1.4283E+01_JPRB,1.5317E+01_JPRB,1.6405E+01_JPRB/)
+KAO( :, 1,11,15) = (/&
+&2.9597E+00_JPRB,2.5897E+00_JPRB,2.2655E+00_JPRB,2.2769E+00_JPRB,2.7359E+00_JPRB,3.4131E+00_JPRB,&
+&4.0924E+00_JPRB,4.7622E+00_JPRB,5.1369E+00_JPRB,8.7664E+00_JPRB/)
+KAO( :, 2,11,15) = (/&
+&4.1090E+00_JPRB,3.5954E+00_JPRB,3.1274E+00_JPRB,3.2086E+00_JPRB,3.8891E+00_JPRB,4.8589E+00_JPRB,&
+&5.8255E+00_JPRB,6.7761E+00_JPRB,7.2974E+00_JPRB,9.1429E+00_JPRB/)
+KAO( :, 3,11,15) = (/&
+&5.4257E+00_JPRB,4.7475E+00_JPRB,4.1432E+00_JPRB,4.3071E+00_JPRB,5.2960E+00_JPRB,6.6178E+00_JPRB,&
+&7.9327E+00_JPRB,9.2300E+00_JPRB,9.9139E+00_JPRB,1.0877E+01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&6.8635E+00_JPRB,6.0056E+00_JPRB,5.3031E+00_JPRB,5.5726E+00_JPRB,6.9728E+00_JPRB,8.7117E+00_JPRB,&
+&1.0444E+01_JPRB,1.2152E+01_JPRB,1.3068E+01_JPRB,1.3956E+01_JPRB/)
+KAO( :, 5,11,15) = (/&
+&8.4007E+00_JPRB,7.3506E+00_JPRB,6.6010E+00_JPRB,7.0376E+00_JPRB,8.9249E+00_JPRB,1.1150E+01_JPRB,&
+&1.3367E+01_JPRB,1.5547E+01_JPRB,1.6736E+01_JPRB,1.7861E+01_JPRB/)
+KAO( :, 1,12,15) = (/&
+&3.0706E+00_JPRB,2.6868E+00_JPRB,2.3786E+00_JPRB,2.4650E+00_JPRB,2.9376E+00_JPRB,3.6606E+00_JPRB,&
+&4.3900E+00_JPRB,5.1097E+00_JPRB,5.5523E+00_JPRB,1.1122E+01_JPRB/)
+KAO( :, 2,12,15) = (/&
+&4.2894E+00_JPRB,3.7532E+00_JPRB,3.3135E+00_JPRB,3.4942E+00_JPRB,4.2139E+00_JPRB,5.2646E+00_JPRB,&
+&6.3121E+00_JPRB,7.3466E+00_JPRB,7.9376E+00_JPRB,1.1136E+01_JPRB/)
+KAO( :, 3,12,15) = (/&
+&5.6884E+00_JPRB,4.9773E+00_JPRB,4.4260E+00_JPRB,4.7039E+00_JPRB,5.7519E+00_JPRB,7.1866E+00_JPRB,&
+&8.6165E+00_JPRB,1.0029E+01_JPRB,1.0827E+01_JPRB,1.2499E+01_JPRB/)
+KAO( :, 4,12,15) = (/&
+&7.2505E+00_JPRB,6.3448E+00_JPRB,5.7066E+00_JPRB,6.0941E+00_JPRB,7.5592E+00_JPRB,9.4443E+00_JPRB,&
+&1.1323E+01_JPRB,1.3172E+01_JPRB,1.4230E+01_JPRB,1.5157E+01_JPRB/)
+KAO( :, 5,12,15) = (/&
+&8.9729E+00_JPRB,7.8513E+00_JPRB,7.1677E+00_JPRB,7.7018E+00_JPRB,9.6945E+00_JPRB,1.2112E+01_JPRB,&
+&1.4519E+01_JPRB,1.6896E+01_JPRB,1.8235E+01_JPRB,1.9402E+01_JPRB/)
+KAO( :, 1,13,15) = (/&
+&3.2246E+00_JPRB,2.8216E+00_JPRB,2.5410E+00_JPRB,2.6672E+00_JPRB,3.1335E+00_JPRB,3.8953E+00_JPRB,&
+&4.6718E+00_JPRB,5.4398E+00_JPRB,5.9398E+00_JPRB,1.1048E+01_JPRB/)
+KAO( :, 2,13,15) = (/&
+&4.5396E+00_JPRB,3.9722E+00_JPRB,3.6057E+00_JPRB,3.8124E+00_JPRB,4.5235E+00_JPRB,5.6334E+00_JPRB,&
+&6.7551E+00_JPRB,7.8654E+00_JPRB,8.5655E+00_JPRB,1.1523E+01_JPRB/)
+KAO( :, 3,13,15) = (/&
+&6.0822E+00_JPRB,5.3219E+00_JPRB,4.8716E+00_JPRB,5.1514E+00_JPRB,6.1861E+00_JPRB,7.7214E+00_JPRB,&
+&9.2581E+00_JPRB,1.0776E+01_JPRB,1.1699E+01_JPRB,1.3150E+01_JPRB/)
+KAO( :, 4,13,15) = (/&
+&7.8600E+00_JPRB,6.8777E+00_JPRB,6.3193E+00_JPRB,6.6903E+00_JPRB,8.1367E+00_JPRB,1.0164E+01_JPRB,&
+&1.2187E+01_JPRB,1.4188E+01_JPRB,1.5392E+01_JPRB,1.6289E+01_JPRB/)
+KAO( :, 5,13,15) = (/&
+&9.8483E+00_JPRB,8.6182E+00_JPRB,7.9619E+00_JPRB,8.4555E+00_JPRB,1.0467E+01_JPRB,1.3077E+01_JPRB,&
+&1.5680E+01_JPRB,1.8246E+01_JPRB,1.9749E+01_JPRB,2.0946E+01_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&7.5127E+00_JPRB,6.5737E+00_JPRB,5.6349E+00_JPRB,4.6958E+00_JPRB,3.8779E+00_JPRB,4.8416E+00_JPRB,&
+&5.7981E+00_JPRB,6.7189E+00_JPRB,6.8002E+00_JPRB,7.2408E+00_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&8.6979E+00_JPRB,7.6109E+00_JPRB,6.5239E+00_JPRB,5.4368E+00_JPRB,4.7903E+00_JPRB,5.9807E+00_JPRB,&
+&7.1609E+00_JPRB,8.2994E+00_JPRB,8.3109E+00_JPRB,8.9455E+00_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&9.7317E+00_JPRB,8.6042E+00_JPRB,7.2993E+00_JPRB,6.0830E+00_JPRB,5.8526E+00_JPRB,7.3076E+00_JPRB,&
+&8.7490E+00_JPRB,1.0034E+01_JPRB,1.0263E+01_JPRB,1.0816E+01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&1.0961E+01_JPRB,9.5913E+00_JPRB,8.2214E+00_JPRB,6.8514E+00_JPRB,7.1532E+00_JPRB,8.9336E+00_JPRB,&
+&1.0696E+01_JPRB,1.2395E+01_JPRB,1.2541E+01_JPRB,1.3218E+01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&1.2007E+01_JPRB,1.0506E+01_JPRB,9.0063E+00_JPRB,7.5055E+00_JPRB,8.5533E+00_JPRB,1.0682E+01_JPRB,&
+&1.2789E+01_JPRB,1.4823E+01_JPRB,1.5003E+01_JPRB,1.5975E+01_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&7.3731E+00_JPRB,6.4516E+00_JPRB,5.5301E+00_JPRB,4.6086E+00_JPRB,4.2937E+00_JPRB,5.3609E+00_JPRB,&
+&6.4198E+00_JPRB,7.4408E+00_JPRB,7.5329E+00_JPRB,8.2124E+00_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&8.6021E+00_JPRB,7.5271E+00_JPRB,6.4520E+00_JPRB,5.3768E+00_JPRB,5.3675E+00_JPRB,6.7018E+00_JPRB,&
+&8.0237E+00_JPRB,9.2997E+00_JPRB,9.4140E+00_JPRB,1.0264E+01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&9.7888E+00_JPRB,8.5654E+00_JPRB,7.3420E+00_JPRB,6.1186E+00_JPRB,6.5496E+00_JPRB,8.1782E+00_JPRB,&
+&9.7904E+00_JPRB,1.1344E+01_JPRB,1.1474E+01_JPRB,1.2519E+01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&1.0945E+01_JPRB,9.5769E+00_JPRB,8.2090E+00_JPRB,6.8412E+00_JPRB,8.0474E+00_JPRB,1.0048E+01_JPRB,&
+&1.2030E+01_JPRB,1.3944E+01_JPRB,1.4114E+01_JPRB,1.5388E+01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&1.2042E+01_JPRB,1.0537E+01_JPRB,9.0333E+00_JPRB,7.5280E+00_JPRB,9.7062E+00_JPRB,1.2117E+01_JPRB,&
+&1.4511E+01_JPRB,1.6819E+01_JPRB,1.7024E+01_JPRB,1.8558E+01_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&6.9437E+00_JPRB,6.0759E+00_JPRB,5.2080E+00_JPRB,4.3402E+00_JPRB,4.5023E+00_JPRB,5.6214E+00_JPRB,&
+&6.7297E+00_JPRB,7.8026E+00_JPRB,7.9012E+00_JPRB,8.8155E+00_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&8.2070E+00_JPRB,7.1813E+00_JPRB,6.1554E+00_JPRB,5.1298E+00_JPRB,5.7329E+00_JPRB,7.1578E+00_JPRB,&
+&8.5699E+00_JPRB,9.9336E+00_JPRB,1.0060E+01_JPRB,1.1228E+01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&9.4491E+00_JPRB,8.2681E+00_JPRB,7.0872E+00_JPRB,5.9062E+00_JPRB,7.0707E+00_JPRB,8.8297E+00_JPRB,&
+&1.0581E+01_JPRB,1.2262E+01_JPRB,1.2422E+01_JPRB,1.3860E+01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&1.0642E+01_JPRB,9.3115E+00_JPRB,7.9815E+00_JPRB,6.6515E+00_JPRB,8.6654E+00_JPRB,1.0819E+01_JPRB,&
+&1.2954E+01_JPRB,1.5013E+01_JPRB,1.5194E+01_JPRB,1.6966E+01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&1.1807E+01_JPRB,1.0331E+01_JPRB,8.8554E+00_JPRB,7.9416E+00_JPRB,1.0582E+01_JPRB,1.3212E+01_JPRB,&
+&1.5820E+01_JPRB,1.8322E+01_JPRB,1.8571E+01_JPRB,2.0721E+01_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&6.4258E+00_JPRB,5.6226E+00_JPRB,4.8196E+00_JPRB,4.0164E+00_JPRB,4.5983E+00_JPRB,5.7339E+00_JPRB,&
+&6.8740E+00_JPRB,7.9661E+00_JPRB,8.0728E+00_JPRB,9.1132E+00_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&7.6917E+00_JPRB,6.7303E+00_JPRB,5.7690E+00_JPRB,4.8076E+00_JPRB,5.9866E+00_JPRB,7.4749E+00_JPRB,&
+&8.9518E+00_JPRB,1.0377E+01_JPRB,1.0515E+01_JPRB,1.1857E+01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&8.9813E+00_JPRB,7.8586E+00_JPRB,6.7361E+00_JPRB,5.6678E+00_JPRB,7.5316E+00_JPRB,9.4038E+00_JPRB,&
+&1.1247E+01_JPRB,1.3049E+01_JPRB,1.3228E+01_JPRB,1.4925E+01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&1.0239E+01_JPRB,8.9593E+00_JPRB,7.6796E+00_JPRB,6.9509E+00_JPRB,9.2615E+00_JPRB,1.1564E+01_JPRB,&
+&1.3845E+01_JPRB,1.6028E+01_JPRB,1.6220E+01_JPRB,1.8333E+01_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&1.1440E+01_JPRB,1.0010E+01_JPRB,8.5838E+00_JPRB,8.5098E+00_JPRB,1.1339E+01_JPRB,1.4159E+01_JPRB,&
+&1.6953E+01_JPRB,1.9656E+01_JPRB,1.9906E+01_JPRB,2.2476E+01_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&5.8770E+00_JPRB,5.1424E+00_JPRB,4.4079E+00_JPRB,3.6733E+00_JPRB,4.6297E+00_JPRB,5.7866E+00_JPRB,&
+&6.9277E+00_JPRB,8.0308E+00_JPRB,8.1369E+00_JPRB,9.2272E+00_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&7.1523E+00_JPRB,6.2582E+00_JPRB,5.3644E+00_JPRB,4.6413E+00_JPRB,6.1841E+00_JPRB,7.7213E+00_JPRB,&
+&9.2461E+00_JPRB,1.0718E+01_JPRB,1.0873E+01_JPRB,1.2325E+01_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&8.4613E+00_JPRB,7.4038E+00_JPRB,6.3462E+00_JPRB,5.9572E+00_JPRB,7.9337E+00_JPRB,9.9057E+00_JPRB,&
+&1.1872E+01_JPRB,1.3758E+01_JPRB,1.3965E+01_JPRB,1.5800E+01_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&9.7676E+00_JPRB,8.5468E+00_JPRB,7.3259E+00_JPRB,7.4238E+00_JPRB,9.8916E+00_JPRB,1.2352E+01_JPRB,&
+&1.4791E+01_JPRB,1.7147E+01_JPRB,1.7384E+01_JPRB,1.9719E+01_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&1.1025E+01_JPRB,9.6472E+00_JPRB,8.2716E+00_JPRB,9.1406E+00_JPRB,1.2179E+01_JPRB,1.5208E+01_JPRB,&
+&1.8211E+01_JPRB,2.1097E+01_JPRB,2.1364E+01_JPRB,2.4267E+01_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&5.2650E+00_JPRB,4.6069E+00_JPRB,3.9488E+00_JPRB,3.4184E+00_JPRB,4.5538E+00_JPRB,5.6834E+00_JPRB,&
+&6.8059E+00_JPRB,7.8914E+00_JPRB,8.0145E+00_JPRB,9.0940E+00_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&6.5470E+00_JPRB,5.7287E+00_JPRB,4.9104E+00_JPRB,4.6912E+00_JPRB,6.2505E+00_JPRB,7.8043E+00_JPRB,&
+&9.3463E+00_JPRB,1.0825E+01_JPRB,1.1010E+01_JPRB,1.2479E+01_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&7.8534E+00_JPRB,6.8718E+00_JPRB,5.8902E+00_JPRB,6.1640E+00_JPRB,8.2139E+00_JPRB,1.0257E+01_JPRB,&
+&1.2274E+01_JPRB,1.4245E+01_JPRB,1.4468E+01_JPRB,1.6406E+01_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&9.2007E+00_JPRB,8.0507E+00_JPRB,6.9007E+00_JPRB,7.8216E+00_JPRB,1.0421E+01_JPRB,1.3014E+01_JPRB,&
+&1.5581E+01_JPRB,1.8055E+01_JPRB,1.8344E+01_JPRB,2.0809E+01_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&1.0512E+01_JPRB,9.1984E+00_JPRB,7.8842E+00_JPRB,9.7429E+00_JPRB,1.2982E+01_JPRB,1.6206E+01_JPRB,&
+&1.9407E+01_JPRB,2.2502E+01_JPRB,2.2789E+01_JPRB,2.5928E+01_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&4.6565E+00_JPRB,4.0745E+00_JPRB,3.4925E+00_JPRB,3.2956E+00_JPRB,4.3911E+00_JPRB,5.4864E+00_JPRB,&
+&6.5695E+00_JPRB,7.6115E+00_JPRB,7.7439E+00_JPRB,8.7837E+00_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&5.9292E+00_JPRB,5.1881E+00_JPRB,4.4470E+00_JPRB,4.6697E+00_JPRB,6.2219E+00_JPRB,7.7686E+00_JPRB,&
+&9.3043E+00_JPRB,1.0790E+01_JPRB,1.0982E+01_JPRB,1.2451E+01_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&7.2576E+00_JPRB,6.3505E+00_JPRB,5.4433E+00_JPRB,6.2922E+00_JPRB,8.3823E+00_JPRB,1.0468E+01_JPRB,&
+&1.2543E+01_JPRB,1.4536E+01_JPRB,1.4805E+01_JPRB,1.6765E+01_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&8.6179E+00_JPRB,7.5406E+00_JPRB,6.4633E+00_JPRB,8.1550E+00_JPRB,1.0866E+01_JPRB,1.3567E+01_JPRB,&
+&1.6244E+01_JPRB,1.8842E+01_JPRB,1.9186E+01_JPRB,2.1742E+01_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&9.9851E+00_JPRB,8.7370E+00_JPRB,7.4898E+00_JPRB,1.0321E+01_JPRB,1.3752E+01_JPRB,1.7171E+01_JPRB,&
+&2.0561E+01_JPRB,2.3825E+01_JPRB,2.4177E+01_JPRB,2.7508E+01_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&4.0754E+00_JPRB,3.5660E+00_JPRB,3.0566E+00_JPRB,3.1333E+00_JPRB,4.1749E+00_JPRB,5.2109E+00_JPRB,&
+&6.2379E+00_JPRB,7.2391E+00_JPRB,7.3822E+00_JPRB,8.3583E+00_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&5.3273E+00_JPRB,4.6614E+00_JPRB,3.9956E+00_JPRB,4.5880E+00_JPRB,6.1132E+00_JPRB,7.6329E+00_JPRB,&
+&9.1372E+00_JPRB,1.0600E+01_JPRB,1.0819E+01_JPRB,1.2238E+01_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&6.6607E+00_JPRB,5.8281E+00_JPRB,4.9956E+00_JPRB,6.3489E+00_JPRB,8.4692E+00_JPRB,1.0575E+01_JPRB,&
+&1.2658E+01_JPRB,1.4678E+01_JPRB,1.4991E+01_JPRB,1.6951E+01_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&8.0394E+00_JPRB,7.0344E+00_JPRB,6.0296E+00_JPRB,8.4237E+00_JPRB,1.1224E+01_JPRB,1.4014E+01_JPRB,&
+&1.6789E+01_JPRB,1.9460E+01_JPRB,1.9854E+01_JPRB,2.2470E+01_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&9.4437E+00_JPRB,8.2633E+00_JPRB,7.2895E+00_JPRB,1.0868E+01_JPRB,1.4480E+01_JPRB,1.8081E+01_JPRB,&
+&2.1653E+01_JPRB,2.5111E+01_JPRB,2.5514E+01_JPRB,2.8990E+01_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&3.5121E+00_JPRB,3.0731E+00_JPRB,2.6341E+00_JPRB,2.9279E+00_JPRB,3.9013E+00_JPRB,4.8754E+00_JPRB,&
+&5.8368E+00_JPRB,6.7644E+00_JPRB,6.8920E+00_JPRB,7.8150E+00_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&4.7223E+00_JPRB,4.1321E+00_JPRB,3.5416E+00_JPRB,4.4240E+00_JPRB,5.8947E+00_JPRB,7.3602E+00_JPRB,&
+&8.8237E+00_JPRB,1.0234E+01_JPRB,1.0473E+01_JPRB,1.1818E+01_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&6.0478E+00_JPRB,5.2918E+00_JPRB,4.5359E+00_JPRB,6.3118E+00_JPRB,8.4105E+00_JPRB,1.0504E+01_JPRB,&
+&1.2585E+01_JPRB,1.4594E+01_JPRB,1.4948E+01_JPRB,1.6837E+01_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&7.4404E+00_JPRB,6.5104E+00_JPRB,5.8282E+00_JPRB,8.5908E+00_JPRB,1.1447E+01_JPRB,1.4294E+01_JPRB,&
+&1.7119E+01_JPRB,1.9856E+01_JPRB,2.0299E+01_JPRB,2.2935E+01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&8.8732E+00_JPRB,7.7641E+00_JPRB,7.5539E+00_JPRB,1.1327E+01_JPRB,1.5093E+01_JPRB,1.8849E+01_JPRB,&
+&2.2573E+01_JPRB,2.6165E+01_JPRB,2.6652E+01_JPRB,3.0230E+01_JPRB/)
+KAO( :, 1,10,16) = (/&
+&3.0618E+00_JPRB,2.6791E+00_JPRB,2.2964E+00_JPRB,2.9364E+00_JPRB,3.9126E+00_JPRB,4.8847E+00_JPRB,&
+&5.8475E+00_JPRB,6.7808E+00_JPRB,6.8756E+00_JPRB,7.8358E+00_JPRB/)
+KAO( :, 2,10,16) = (/&
+&4.2316E+00_JPRB,3.7027E+00_JPRB,3.1743E+00_JPRB,4.3350E+00_JPRB,5.7762E+00_JPRB,7.2138E+00_JPRB,&
+&8.6367E+00_JPRB,1.0019E+01_JPRB,1.0284E+01_JPRB,1.1570E+01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&5.5457E+00_JPRB,4.8525E+00_JPRB,4.3615E+00_JPRB,6.3373E+00_JPRB,8.4492E+00_JPRB,1.0550E+01_JPRB,&
+&1.2638E+01_JPRB,1.4656E+01_JPRB,1.5082E+01_JPRB,1.6923E+01_JPRB/)
+KAO( :, 4,10,16) = (/&
+&6.9593E+00_JPRB,6.0894E+00_JPRB,5.9134E+00_JPRB,8.8661E+00_JPRB,1.1814E+01_JPRB,1.4751E+01_JPRB,&
+&1.7669E+01_JPRB,2.0491E+01_JPRB,2.0978E+01_JPRB,2.3664E+01_JPRB/)
+KAO( :, 5,10,16) = (/&
+&8.4396E+00_JPRB,7.3847E+00_JPRB,7.9651E+00_JPRB,1.1942E+01_JPRB,1.5915E+01_JPRB,1.9872E+01_JPRB,&
+&2.3793E+01_JPRB,2.7593E+01_JPRB,2.8161E+01_JPRB,3.1872E+01_JPRB/)
+KAO( :, 1,11,16) = (/&
+&3.1579E+00_JPRB,2.7632E+00_JPRB,2.3896E+00_JPRB,3.5545E+00_JPRB,4.7362E+00_JPRB,5.9136E+00_JPRB,&
+&7.0823E+00_JPRB,8.2069E+00_JPRB,8.3323E+00_JPRB,9.4873E+00_JPRB/)
+KAO( :, 2,11,16) = (/&
+&4.3744E+00_JPRB,3.8276E+00_JPRB,3.5100E+00_JPRB,5.1538E+00_JPRB,6.8671E+00_JPRB,8.5743E+00_JPRB,&
+&1.0274E+01_JPRB,1.1914E+01_JPRB,1.2209E+01_JPRB,1.3757E+01_JPRB/)
+KAO( :, 3,11,16) = (/&
+&5.7471E+00_JPRB,5.0288E+00_JPRB,5.0034E+00_JPRB,7.4970E+00_JPRB,9.9888E+00_JPRB,1.2472E+01_JPRB,&
+&1.4942E+01_JPRB,1.7333E+01_JPRB,1.7821E+01_JPRB,2.0007E+01_JPRB/)
+KAO( :, 4,11,16) = (/&
+&7.2629E+00_JPRB,6.3550E+00_JPRB,7.0474E+00_JPRB,1.0566E+01_JPRB,1.4079E+01_JPRB,1.7584E+01_JPRB,&
+&2.1057E+01_JPRB,2.4419E+01_JPRB,2.5019E+01_JPRB,2.8211E+01_JPRB/)
+KAO( :, 5,11,16) = (/&
+&8.9069E+00_JPRB,7.7936E+00_JPRB,9.5284E+00_JPRB,1.4286E+01_JPRB,1.9037E+01_JPRB,2.3771E+01_JPRB,&
+&2.8468E+01_JPRB,3.3010E+01_JPRB,3.3751E+01_JPRB,3.8130E+01_JPRB/)
+KAO( :, 1,12,16) = (/&
+&3.3006E+00_JPRB,2.8881E+00_JPRB,2.8666E+00_JPRB,4.2985E+00_JPRB,5.7274E+00_JPRB,7.1506E+00_JPRB,&
+&8.5607E+00_JPRB,9.9299E+00_JPRB,1.0097E+01_JPRB,1.1570E+01_JPRB/)
+KAO( :, 2,12,16) = (/&
+&4.5952E+00_JPRB,4.0208E+00_JPRB,4.1024E+00_JPRB,6.1511E+00_JPRB,8.1959E+00_JPRB,1.0235E+01_JPRB,&
+&1.2254E+01_JPRB,1.4215E+01_JPRB,1.4558E+01_JPRB,1.6415E+01_JPRB/)
+KAO( :, 3,12,16) = (/&
+&6.1172E+00_JPRB,5.3526E+00_JPRB,5.9205E+00_JPRB,8.8783E+00_JPRB,1.1835E+01_JPRB,1.4781E+01_JPRB,&
+&1.7706E+01_JPRB,2.0531E+01_JPRB,2.1114E+01_JPRB,2.3705E+01_JPRB/)
+KAO( :, 4,12,16) = (/&
+&7.9063E+00_JPRB,6.9180E+00_JPRB,8.3812E+00_JPRB,1.2566E+01_JPRB,1.6747E+01_JPRB,2.0915E+01_JPRB,&
+&2.5049E+01_JPRB,2.9064E+01_JPRB,2.9820E+01_JPRB,3.3552E+01_JPRB/)
+KAO( :, 5,12,16) = (/&
+&9.9405E+00_JPRB,8.6980E+00_JPRB,1.1361E+01_JPRB,1.7034E+01_JPRB,2.2697E+01_JPRB,2.8347E+01_JPRB,&
+&3.3936E+01_JPRB,3.9357E+01_JPRB,4.0377E+01_JPRB,4.5471E+01_JPRB/)
+KAO( :, 1,13,16) = (/&
+&3.5240E+00_JPRB,3.0835E+00_JPRB,3.4502E+00_JPRB,5.1734E+00_JPRB,6.8947E+00_JPRB,8.6091E+00_JPRB,&
+&1.0310E+01_JPRB,1.1954E+01_JPRB,1.2187E+01_JPRB,1.3806E+01_JPRB/)
+KAO( :, 2,13,16) = (/&
+&5.0191E+00_JPRB,4.3917E+00_JPRB,4.8873E+00_JPRB,7.3276E+00_JPRB,9.7654E+00_JPRB,1.2194E+01_JPRB,&
+&1.4608E+01_JPRB,1.6943E+01_JPRB,1.7366E+01_JPRB,1.9559E+01_JPRB/)
+KAO( :, 3,13,16) = (/&
+&6.8612E+00_JPRB,6.0035E+00_JPRB,6.9941E+00_JPRB,1.0486E+01_JPRB,1.3971E+01_JPRB,1.7446E+01_JPRB,&
+&2.0896E+01_JPRB,2.4256E+01_JPRB,2.4993E+01_JPRB,2.7979E+01_JPRB/)
+KAO( :, 4,13,16) = (/&
+&8.9937E+00_JPRB,7.8713E+00_JPRB,9.9172E+00_JPRB,1.4874E+01_JPRB,1.9818E+01_JPRB,2.4754E+01_JPRB,&
+&2.9642E+01_JPRB,3.4374E+01_JPRB,3.5407E+01_JPRB,3.9689E+01_JPRB/)
+KAO( :, 5,13,16) = (/&
+&1.1386E+01_JPRB,9.9632E+00_JPRB,1.3441E+01_JPRB,2.0157E+01_JPRB,2.6861E+01_JPRB,3.3545E+01_JPRB,&
+&4.0165E+01_JPRB,4.6616E+01_JPRB,4.7981E+01_JPRB,5.3793E+01_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B1.F90	(revision 2160)
@@ -0,0 +1,1925 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_B1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different H2O to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = H2O/(H2O+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of H2O.  For instance, JS=1 refers to no H2O, 
+!     JS = 2 corresponds to eta = 0.25, etc.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 1) = (/&
+&7.1418E-07_JPRB,7.7683E-05_JPRB,1.6530E-04_JPRB,3.3221E-04_JPRB,3.4375E-04_JPRB/)
+KBO( :, 2,13, 1) = (/&
+&7.2895E-07_JPRB,7.7891E-05_JPRB,1.5813E-04_JPRB,2.9611E-04_JPRB,3.5156E-04_JPRB/)
+KBO( :, 3,13, 1) = (/&
+&8.1104E-07_JPRB,8.0313E-05_JPRB,1.5573E-04_JPRB,2.7205E-04_JPRB,3.6744E-04_JPRB/)
+KBO( :, 4,13, 1) = (/&
+&9.8030E-07_JPRB,8.4645E-05_JPRB,1.5829E-04_JPRB,2.5788E-04_JPRB,3.9124E-04_JPRB/)
+KBO( :, 5,13, 1) = (/&
+&1.2532E-06_JPRB,9.1367E-05_JPRB,1.6556E-04_JPRB,2.5243E-04_JPRB,4.2278E-04_JPRB/)
+KBO( :, 1,14, 1) = (/&
+&5.8662E-07_JPRB,6.3217E-05_JPRB,1.3394E-04_JPRB,2.6815E-04_JPRB,2.8024E-04_JPRB/)
+KBO( :, 2,14, 1) = (/&
+&6.0322E-07_JPRB,6.3644E-05_JPRB,1.2871E-04_JPRB,2.3989E-04_JPRB,2.8697E-04_JPRB/)
+KBO( :, 3,14, 1) = (/&
+&6.7707E-07_JPRB,6.5857E-05_JPRB,1.2726E-04_JPRB,2.2113E-04_JPRB,3.0014E-04_JPRB/)
+KBO( :, 4,14, 1) = (/&
+&8.2251E-07_JPRB,6.9663E-05_JPRB,1.2984E-04_JPRB,2.1038E-04_JPRB,3.1976E-04_JPRB/)
+KBO( :, 5,14, 1) = (/&
+&1.0537E-06_JPRB,7.5477E-05_JPRB,1.3625E-04_JPRB,2.0669E-04_JPRB,3.4553E-04_JPRB/)
+KBO( :, 1,15, 1) = (/&
+&4.8159E-07_JPRB,5.1327E-05_JPRB,1.0828E-04_JPRB,2.1580E-04_JPRB,2.2716E-04_JPRB/)
+KBO( :, 2,15, 1) = (/&
+&4.9953E-07_JPRB,5.1898E-05_JPRB,1.0456E-04_JPRB,1.9384E-04_JPRB,2.3282E-04_JPRB/)
+KBO( :, 3,15, 1) = (/&
+&5.6592E-07_JPRB,5.3937E-05_JPRB,1.0383E-04_JPRB,1.7938E-04_JPRB,2.4342E-04_JPRB/)
+KBO( :, 4,15, 1) = (/&
+&6.9060E-07_JPRB,5.7276E-05_JPRB,1.0637E-04_JPRB,1.7136E-04_JPRB,2.5925E-04_JPRB/)
+KBO( :, 5,15, 1) = (/&
+&8.8764E-07_JPRB,6.2300E-05_JPRB,1.1206E-04_JPRB,1.6901E-04_JPRB,2.7978E-04_JPRB/)
+KBO( :, 1,16, 1) = (/&
+&3.9534E-07_JPRB,4.1658E-05_JPRB,8.7509E-05_JPRB,1.7349E-04_JPRB,1.8327E-04_JPRB/)
+KBO( :, 2,16, 1) = (/&
+&4.1395E-07_JPRB,4.2305E-05_JPRB,8.4934E-05_JPRB,1.5653E-04_JPRB,1.8794E-04_JPRB/)
+KBO( :, 3,16, 1) = (/&
+&4.7298E-07_JPRB,4.4176E-05_JPRB,8.4714E-05_JPRB,1.4546E-04_JPRB,1.9627E-04_JPRB/)
+KBO( :, 4,16, 1) = (/&
+&5.8017E-07_JPRB,4.7094E-05_JPRB,8.7162E-05_JPRB,1.3953E-04_JPRB,2.0862E-04_JPRB/)
+KBO( :, 5,16, 1) = (/&
+&7.4847E-07_JPRB,5.1410E-05_JPRB,9.2164E-05_JPRB,1.3822E-04_JPRB,2.2492E-04_JPRB/)
+KBO( :, 1,17, 1) = (/&
+&3.2461E-07_JPRB,3.3900E-05_JPRB,7.0928E-05_JPRB,1.3982E-04_JPRB,1.4790E-04_JPRB/)
+KBO( :, 2,17, 1) = (/&
+&3.4310E-07_JPRB,3.4570E-05_JPRB,6.9142E-05_JPRB,1.2666E-04_JPRB,1.5175E-04_JPRB/)
+KBO( :, 3,17, 1) = (/&
+&3.9502E-07_JPRB,3.6243E-05_JPRB,6.9258E-05_JPRB,1.1817E-04_JPRB,1.5840E-04_JPRB/)
+KBO( :, 4,17, 1) = (/&
+&4.8706E-07_JPRB,3.8770E-05_JPRB,7.1558E-05_JPRB,1.1380E-04_JPRB,1.6811E-04_JPRB/)
+KBO( :, 5,17, 1) = (/&
+&6.3052E-07_JPRB,4.2462E-05_JPRB,7.5924E-05_JPRB,1.1322E-04_JPRB,1.8097E-04_JPRB/)
+KBO( :, 1,18, 1) = (/&
+&2.6665E-07_JPRB,2.7690E-05_JPRB,5.7714E-05_JPRB,1.1306E-04_JPRB,1.1974E-04_JPRB/)
+KBO( :, 2,18, 1) = (/&
+&2.8433E-07_JPRB,2.8352E-05_JPRB,5.6467E-05_JPRB,1.0278E-04_JPRB,1.2295E-04_JPRB/)
+KBO( :, 3,18, 1) = (/&
+&3.2991E-07_JPRB,2.9820E-05_JPRB,5.6782E-05_JPRB,9.6223E-05_JPRB,1.2833E-04_JPRB/)
+KBO( :, 4,18, 1) = (/&
+&4.0885E-07_JPRB,3.1990E-05_JPRB,5.8916E-05_JPRB,9.3033E-05_JPRB,1.3601E-04_JPRB/)
+KBO( :, 5,18, 1) = (/&
+&5.3113E-07_JPRB,3.5147E-05_JPRB,6.2667E-05_JPRB,9.2955E-05_JPRB,1.4604E-04_JPRB/)
+KBO( :, 1,19, 1) = (/&
+&2.1915E-07_JPRB,2.2650E-05_JPRB,4.7032E-05_JPRB,9.1545E-05_JPRB,9.7174E-05_JPRB/)
+KBO( :, 2,19, 1) = (/&
+&2.3563E-07_JPRB,2.3282E-05_JPRB,4.6172E-05_JPRB,8.3486E-05_JPRB,9.9869E-05_JPRB/)
+KBO( :, 3,19, 1) = (/&
+&2.7548E-07_JPRB,2.4553E-05_JPRB,4.6603E-05_JPRB,7.8441E-05_JPRB,1.0422E-04_JPRB/)
+KBO( :, 4,19, 1) = (/&
+&3.4310E-07_JPRB,2.6414E-05_JPRB,4.8547E-05_JPRB,7.6134E-05_JPRB,1.1036E-04_JPRB/)
+KBO( :, 5,19, 1) = (/&
+&4.4724E-07_JPRB,2.9096E-05_JPRB,5.1737E-05_JPRB,7.6381E-05_JPRB,1.1839E-04_JPRB/)
+KBO( :, 1,20, 1) = (/&
+&1.8030E-07_JPRB,1.8558E-05_JPRB,3.8356E-05_JPRB,7.4071E-05_JPRB,7.9169E-05_JPRB/)
+KBO( :, 2,20, 1) = (/&
+&1.9579E-07_JPRB,1.9155E-05_JPRB,3.7791E-05_JPRB,6.7788E-05_JPRB,8.1446E-05_JPRB/)
+KBO( :, 3,20, 1) = (/&
+&2.3085E-07_JPRB,2.0254E-05_JPRB,3.8309E-05_JPRB,6.3956E-05_JPRB,8.5047E-05_JPRB/)
+KBO( :, 4,20, 1) = (/&
+&2.8924E-07_JPRB,2.1859E-05_JPRB,4.0062E-05_JPRB,6.2346E-05_JPRB,9.0082E-05_JPRB/)
+KBO( :, 5,20, 1) = (/&
+&3.7846E-07_JPRB,2.4137E-05_JPRB,4.2788E-05_JPRB,6.2820E-05_JPRB,9.6650E-05_JPRB/)
+KBO( :, 1,21, 1) = (/&
+&1.4847E-07_JPRB,1.5215E-05_JPRB,3.1290E-05_JPRB,5.9949E-05_JPRB,6.4552E-05_JPRB/)
+KBO( :, 2,21, 1) = (/&
+&1.6287E-07_JPRB,1.5766E-05_JPRB,3.0943E-05_JPRB,5.5054E-05_JPRB,6.6478E-05_JPRB/)
+KBO( :, 3,21, 1) = (/&
+&1.9366E-07_JPRB,1.6713E-05_JPRB,3.1503E-05_JPRB,5.2161E-05_JPRB,6.9475E-05_JPRB/)
+KBO( :, 4,21, 1) = (/&
+&2.4408E-07_JPRB,1.8092E-05_JPRB,3.3059E-05_JPRB,5.1064E-05_JPRB,7.3632E-05_JPRB/)
+KBO( :, 5,21, 1) = (/&
+&3.2048E-07_JPRB,2.0022E-05_JPRB,3.5383E-05_JPRB,5.1675E-05_JPRB,7.9025E-05_JPRB/)
+KBO( :, 1,22, 1) = (/&
+&1.2289E-07_JPRB,1.2484E-05_JPRB,2.5472E-05_JPRB,4.8192E-05_JPRB,5.2603E-05_JPRB/)
+KBO( :, 2,22, 1) = (/&
+&1.3697E-07_JPRB,1.3009E-05_JPRB,2.5334E-05_JPRB,4.4504E-05_JPRB,5.4267E-05_JPRB/)
+KBO( :, 3,22, 1) = (/&
+&1.6488E-07_JPRB,1.3843E-05_JPRB,2.5950E-05_JPRB,4.2432E-05_JPRB,5.6803E-05_JPRB/)
+KBO( :, 4,22, 1) = (/&
+&2.0968E-07_JPRB,1.5052E-05_JPRB,2.7363E-05_JPRB,4.1803E-05_JPRB,6.0274E-05_JPRB/)
+KBO( :, 5,22, 1) = (/&
+&2.7669E-07_JPRB,1.6715E-05_JPRB,2.9384E-05_JPRB,4.2575E-05_JPRB,6.4715E-05_JPRB/)
+KBO( :, 1,23, 1) = (/&
+&1.0206E-07_JPRB,1.0252E-05_JPRB,2.0747E-05_JPRB,3.8734E-05_JPRB,4.2840E-05_JPRB/)
+KBO( :, 2,23, 1) = (/&
+&1.1559E-07_JPRB,1.0742E-05_JPRB,2.0755E-05_JPRB,3.5990E-05_JPRB,4.4274E-05_JPRB/)
+KBO( :, 3,23, 1) = (/&
+&1.4082E-07_JPRB,1.1473E-05_JPRB,2.1391E-05_JPRB,3.4535E-05_JPRB,4.6409E-05_JPRB/)
+KBO( :, 4,23, 1) = (/&
+&1.8064E-07_JPRB,1.2528E-05_JPRB,2.2650E-05_JPRB,3.4245E-05_JPRB,4.9289E-05_JPRB/)
+KBO( :, 5,23, 1) = (/&
+&2.3944E-07_JPRB,1.3961E-05_JPRB,2.4408E-05_JPRB,3.5094E-05_JPRB,5.2908E-05_JPRB/)
+KBO( :, 1,24, 1) = (/&
+&8.5103E-08_JPRB,8.4147E-06_JPRB,1.6891E-05_JPRB,3.1099E-05_JPRB,3.4780E-05_JPRB/)
+KBO( :, 2,24, 1) = (/&
+&9.8006E-08_JPRB,8.8655E-06_JPRB,1.6999E-05_JPRB,2.9091E-05_JPRB,3.5996E-05_JPRB/)
+KBO( :, 3,24, 1) = (/&
+&1.2073E-07_JPRB,9.5086E-06_JPRB,1.7631E-05_JPRB,2.8105E-05_JPRB,3.7773E-05_JPRB/)
+KBO( :, 4,24, 1) = (/&
+&1.5616E-07_JPRB,1.0427E-05_JPRB,1.8742E-05_JPRB,2.8056E-05_JPRB,4.0114E-05_JPRB/)
+KBO( :, 5,24, 1) = (/&
+&2.0784E-07_JPRB,1.1663E-05_JPRB,2.0274E-05_JPRB,2.8927E-05_JPRB,4.3028E-05_JPRB/)
+KBO( :, 1,25, 1) = (/&
+&7.1310E-08_JPRB,6.9185E-06_JPRB,1.3767E-05_JPRB,2.4976E-05_JPRB,2.8241E-05_JPRB/)
+KBO( :, 2,25, 1) = (/&
+&8.3499E-08_JPRB,7.3246E-06_JPRB,1.3943E-05_JPRB,2.3533E-05_JPRB,2.9273E-05_JPRB/)
+KBO( :, 3,25, 1) = (/&
+&1.0401E-07_JPRB,7.8935E-06_JPRB,1.4555E-05_JPRB,2.2896E-05_JPRB,3.0735E-05_JPRB/)
+KBO( :, 4,25, 1) = (/&
+&1.3555E-07_JPRB,8.6941E-06_JPRB,1.5529E-05_JPRB,2.3015E-05_JPRB,3.2639E-05_JPRB/)
+KBO( :, 5,25, 1) = (/&
+&1.8108E-07_JPRB,9.7609E-06_JPRB,1.6867E-05_JPRB,2.3873E-05_JPRB,3.4993E-05_JPRB/)
+KBO( :, 1,26, 1) = (/&
+&6.0142E-08_JPRB,5.7047E-06_JPRB,1.1243E-05_JPRB,2.0069E-05_JPRB,2.2978E-05_JPRB/)
+KBO( :, 2,26, 1) = (/&
+&7.1603E-08_JPRB,6.0681E-06_JPRB,1.1465E-05_JPRB,1.9057E-05_JPRB,2.3854E-05_JPRB/)
+KBO( :, 3,26, 1) = (/&
+&9.0251E-08_JPRB,6.5738E-06_JPRB,1.2045E-05_JPRB,1.8681E-05_JPRB,2.5076E-05_JPRB/)
+KBO( :, 4,26, 1) = (/&
+&1.1847E-07_JPRB,7.2745E-06_JPRB,1.2903E-05_JPRB,1.8921E-05_JPRB,2.6626E-05_JPRB/)
+KBO( :, 5,26, 1) = (/&
+&1.5875E-07_JPRB,8.1996E-06_JPRB,1.4077E-05_JPRB,1.9751E-05_JPRB,2.8555E-05_JPRB/)
+KBO( :, 1,27, 1) = (/&
+&5.0983E-08_JPRB,4.7088E-06_JPRB,9.1912E-06_JPRB,1.6147E-05_JPRB,1.8668E-05_JPRB/)
+KBO( :, 2,27, 1) = (/&
+&6.1630E-08_JPRB,5.0315E-06_JPRB,9.4402E-06_JPRB,1.5452E-05_JPRB,1.9405E-05_JPRB/)
+KBO( :, 3,27, 1) = (/&
+&7.8563E-08_JPRB,5.4806E-06_JPRB,9.9742E-06_JPRB,1.5262E-05_JPRB,2.0403E-05_JPRB/)
+KBO( :, 4,27, 1) = (/&
+&1.0377E-07_JPRB,6.0931E-06_JPRB,1.0731E-05_JPRB,1.5575E-05_JPRB,2.1672E-05_JPRB/)
+KBO( :, 5,27, 1) = (/&
+&1.3934E-07_JPRB,6.8942E-06_JPRB,1.1760E-05_JPRB,1.6361E-05_JPRB,2.3196E-05_JPRB/)
+KBO( :, 1,28, 1) = (/&
+&4.3423E-08_JPRB,3.8906E-06_JPRB,7.5226E-06_JPRB,1.3009E-05_JPRB,1.5127E-05_JPRB/)
+KBO( :, 2,28, 1) = (/&
+&5.3228E-08_JPRB,4.1755E-06_JPRB,7.7818E-06_JPRB,1.2546E-05_JPRB,1.5736E-05_JPRB/)
+KBO( :, 3,28, 1) = (/&
+&6.8564E-08_JPRB,4.5731E-06_JPRB,8.2639E-06_JPRB,1.2487E-05_JPRB,1.6536E-05_JPRB/)
+KBO( :, 4,28, 1) = (/&
+&9.1039E-08_JPRB,5.1074E-06_JPRB,8.9326E-06_JPRB,1.2837E-05_JPRB,1.7505E-05_JPRB/)
+KBO( :, 5,28, 1) = (/&
+&1.2239E-07_JPRB,5.8016E-06_JPRB,9.8318E-06_JPRB,1.3565E-05_JPRB,1.8670E-05_JPRB/)
+KBO( :, 1,29, 1) = (/&
+&3.7204E-08_JPRB,3.2238E-06_JPRB,6.1736E-06_JPRB,1.0502E-05_JPRB,1.2279E-05_JPRB/)
+KBO( :, 2,29, 1) = (/&
+&4.6206E-08_JPRB,3.4759E-06_JPRB,6.4330E-06_JPRB,1.0209E-05_JPRB,1.2764E-05_JPRB/)
+KBO( :, 3,29, 1) = (/&
+&6.0076E-08_JPRB,3.8273E-06_JPRB,6.8635E-06_JPRB,1.0241E-05_JPRB,1.3368E-05_JPRB/)
+KBO( :, 4,29, 1) = (/&
+&8.0144E-08_JPRB,4.2936E-06_JPRB,7.4538E-06_JPRB,1.0606E-05_JPRB,1.4121E-05_JPRB/)
+KBO( :, 5,29, 1) = (/&
+&1.0777E-07_JPRB,4.8966E-06_JPRB,8.2412E-06_JPRB,1.1275E-05_JPRB,1.5046E-05_JPRB/)
+KBO( :, 1,30, 1) = (/&
+&3.1996E-08_JPRB,2.6737E-06_JPRB,5.0754E-06_JPRB,8.4948E-06_JPRB,9.8822E-06_JPRB/)
+KBO( :, 2,30, 1) = (/&
+&4.0245E-08_JPRB,2.8984E-06_JPRB,5.3264E-06_JPRB,8.3223E-06_JPRB,1.0256E-05_JPRB/)
+KBO( :, 3,30, 1) = (/&
+&5.2747E-08_JPRB,3.2079E-06_JPRB,5.7080E-06_JPRB,8.4160E-06_JPRB,1.0727E-05_JPRB/)
+KBO( :, 4,30, 1) = (/&
+&7.0609E-08_JPRB,3.6138E-06_JPRB,6.2283E-06_JPRB,8.7777E-06_JPRB,1.1320E-05_JPRB/)
+KBO( :, 5,30, 1) = (/&
+&9.4984E-08_JPRB,4.1398E-06_JPRB,6.9193E-06_JPRB,9.3872E-06_JPRB,1.2062E-05_JPRB/)
+KBO( :, 1,31, 1) = (/&
+&2.7641E-08_JPRB,2.2221E-06_JPRB,4.1820E-06_JPRB,6.8854E-06_JPRB,7.8857E-06_JPRB/)
+KBO( :, 2,31, 1) = (/&
+&3.5201E-08_JPRB,2.4225E-06_JPRB,4.4182E-06_JPRB,6.7986E-06_JPRB,8.1875E-06_JPRB/)
+KBO( :, 3,31, 1) = (/&
+&4.6451E-08_JPRB,2.6943E-06_JPRB,4.7566E-06_JPRB,6.9330E-06_JPRB,8.5704E-06_JPRB/)
+KBO( :, 4,31, 1) = (/&
+&6.2336E-08_JPRB,3.0481E-06_JPRB,5.2150E-06_JPRB,7.2810E-06_JPRB,9.0473E-06_JPRB/)
+KBO( :, 5,31, 1) = (/&
+&8.3774E-08_JPRB,3.5048E-06_JPRB,5.8188E-06_JPRB,7.8290E-06_JPRB,9.6365E-06_JPRB/)
+KBO( :, 1,32, 1) = (/&
+&2.3981E-08_JPRB,1.8500E-06_JPRB,3.4538E-06_JPRB,5.5925E-06_JPRB,6.2708E-06_JPRB/)
+KBO( :, 2,32, 1) = (/&
+&3.0888E-08_JPRB,2.0288E-06_JPRB,3.6701E-06_JPRB,5.5668E-06_JPRB,6.5148E-06_JPRB/)
+KBO( :, 3,32, 1) = (/&
+&4.1004E-08_JPRB,2.2672E-06_JPRB,3.9709E-06_JPRB,5.7241E-06_JPRB,6.8232E-06_JPRB/)
+KBO( :, 4,32, 1) = (/&
+&5.5092E-08_JPRB,2.5754E-06_JPRB,4.3743E-06_JPRB,6.0514E-06_JPRB,7.2153E-06_JPRB/)
+KBO( :, 5,32, 1) = (/&
+&7.3928E-08_JPRB,2.9722E-06_JPRB,4.9013E-06_JPRB,6.5406E-06_JPRB,7.6884E-06_JPRB/)
+KBO( :, 1,33, 1) = (/&
+&2.0891E-08_JPRB,1.5432E-06_JPRB,2.8587E-06_JPRB,4.5518E-06_JPRB,4.9648E-06_JPRB/)
+KBO( :, 2,33, 1) = (/&
+&2.7170E-08_JPRB,1.7018E-06_JPRB,3.0535E-06_JPRB,4.5689E-06_JPRB,5.1628E-06_JPRB/)
+KBO( :, 3,33, 1) = (/&
+&3.6242E-08_JPRB,1.9105E-06_JPRB,3.3202E-06_JPRB,4.7346E-06_JPRB,5.4226E-06_JPRB/)
+KBO( :, 4,33, 1) = (/&
+&4.8741E-08_JPRB,2.1800E-06_JPRB,3.6760E-06_JPRB,5.0388E-06_JPRB,5.7379E-06_JPRB/)
+KBO( :, 5,33, 1) = (/&
+&6.5227E-08_JPRB,2.5234E-06_JPRB,4.1341E-06_JPRB,5.4730E-06_JPRB,6.1189E-06_JPRB/)
+KBO( :, 1,34, 1) = (/&
+&1.8095E-08_JPRB,1.2866E-06_JPRB,2.3675E-06_JPRB,3.7154E-06_JPRB,3.9669E-06_JPRB/)
+KBO( :, 2,34, 1) = (/&
+&2.3709E-08_JPRB,1.4253E-06_JPRB,2.5394E-06_JPRB,3.7569E-06_JPRB,4.1359E-06_JPRB/)
+KBO( :, 3,34, 1) = (/&
+&3.1721E-08_JPRB,1.6060E-06_JPRB,2.7729E-06_JPRB,3.9185E-06_JPRB,4.3498E-06_JPRB/)
+KBO( :, 4,34, 1) = (/&
+&4.2654E-08_JPRB,1.8394E-06_JPRB,3.0822E-06_JPRB,4.1918E-06_JPRB,4.6083E-06_JPRB/)
+KBO( :, 5,34, 1) = (/&
+&5.6945E-08_JPRB,2.1348E-06_JPRB,3.4773E-06_JPRB,4.5733E-06_JPRB,4.9229E-06_JPRB/)
+KBO( :, 1,35, 1) = (/&
+&1.5318E-08_JPRB,1.0637E-06_JPRB,1.9503E-06_JPRB,3.0369E-06_JPRB,3.1425E-06_JPRB/)
+KBO( :, 2,35, 1) = (/&
+&2.0142E-08_JPRB,1.1814E-06_JPRB,2.0969E-06_JPRB,3.0840E-06_JPRB,3.2804E-06_JPRB/)
+KBO( :, 3,35, 1) = (/&
+&2.6985E-08_JPRB,1.3339E-06_JPRB,2.2954E-06_JPRB,3.2281E-06_JPRB,3.4506E-06_JPRB/)
+KBO( :, 4,35, 1) = (/&
+&3.6271E-08_JPRB,1.5312E-06_JPRB,2.5572E-06_JPRB,3.4632E-06_JPRB,3.6600E-06_JPRB/)
+KBO( :, 5,35, 1) = (/&
+&4.8348E-08_JPRB,1.7796E-06_JPRB,2.8900E-06_JPRB,3.7877E-06_JPRB,3.9119E-06_JPRB/)
+KBO( :, 1,36, 1) = (/&
+&1.2609E-08_JPRB,8.7019E-07_JPRB,1.5952E-06_JPRB,2.4829E-06_JPRB,2.4549E-06_JPRB/)
+KBO( :, 2,36, 1) = (/&
+&1.6587E-08_JPRB,9.6711E-07_JPRB,1.7160E-06_JPRB,2.5229E-06_JPRB,2.5656E-06_JPRB/)
+KBO( :, 3,36, 1) = (/&
+&2.2224E-08_JPRB,1.0924E-06_JPRB,1.8795E-06_JPRB,2.6424E-06_JPRB,2.6986E-06_JPRB/)
+KBO( :, 4,36, 1) = (/&
+&2.9869E-08_JPRB,1.2544E-06_JPRB,2.0948E-06_JPRB,2.8361E-06_JPRB,2.8620E-06_JPRB/)
+KBO( :, 5,36, 1) = (/&
+&3.9802E-08_JPRB,1.4584E-06_JPRB,2.3682E-06_JPRB,3.1034E-06_JPRB,3.0593E-06_JPRB/)
+KBO( :, 1,37, 1) = (/&
+&9.9825E-09_JPRB,7.0298E-07_JPRB,1.2942E-06_JPRB,2.0328E-06_JPRB,1.9580E-06_JPRB/)
+KBO( :, 2,37, 1) = (/&
+&1.3082E-08_JPRB,7.7949E-07_JPRB,1.3892E-06_JPRB,2.0567E-06_JPRB,2.0455E-06_JPRB/)
+KBO( :, 3,37, 1) = (/&
+&1.7504E-08_JPRB,8.7873E-07_JPRB,1.5181E-06_JPRB,2.1464E-06_JPRB,2.1505E-06_JPRB/)
+KBO( :, 4,37, 1) = (/&
+&2.3530E-08_JPRB,1.0069E-06_JPRB,1.6884E-06_JPRB,2.2974E-06_JPRB,2.2783E-06_JPRB/)
+KBO( :, 5,37, 1) = (/&
+&3.1408E-08_JPRB,1.1691E-06_JPRB,1.9058E-06_JPRB,2.5076E-06_JPRB,2.4325E-06_JPRB/)
+KBO( :, 1,38, 1) = (/&
+&7.8914E-09_JPRB,5.6770E-07_JPRB,1.0500E-06_JPRB,1.6653E-06_JPRB,1.5591E-06_JPRB/)
+KBO( :, 2,38, 1) = (/&
+&1.0298E-08_JPRB,6.2785E-07_JPRB,1.1243E-06_JPRB,1.6773E-06_JPRB,1.6284E-06_JPRB/)
+KBO( :, 3,38, 1) = (/&
+&1.3752E-08_JPRB,7.0630E-07_JPRB,1.2256E-06_JPRB,1.7435E-06_JPRB,1.7113E-06_JPRB/)
+KBO( :, 4,38, 1) = (/&
+&1.8491E-08_JPRB,8.0748E-07_JPRB,1.3600E-06_JPRB,1.8604E-06_JPRB,1.8119E-06_JPRB/)
+KBO( :, 5,38, 1) = (/&
+&2.4713E-08_JPRB,9.3623E-07_JPRB,1.5323E-06_JPRB,2.0252E-06_JPRB,1.9325E-06_JPRB/)
+KBO( :, 1,39, 1) = (/&
+&6.2449E-09_JPRB,4.5862E-07_JPRB,8.5227E-07_JPRB,1.3650E-06_JPRB,1.2362E-06_JPRB/)
+KBO( :, 2,39, 1) = (/&
+&8.1107E-09_JPRB,5.0588E-07_JPRB,9.1024E-07_JPRB,1.3687E-06_JPRB,1.2913E-06_JPRB/)
+KBO( :, 3,39, 1) = (/&
+&1.0807E-08_JPRB,5.6790E-07_JPRB,9.8979E-07_JPRB,1.4171E-06_JPRB,1.3567E-06_JPRB/)
+KBO( :, 4,39, 1) = (/&
+&1.4528E-08_JPRB,6.4780E-07_JPRB,1.0958E-06_JPRB,1.5072E-06_JPRB,1.4361E-06_JPRB/)
+KBO( :, 5,39, 1) = (/&
+&1.9446E-08_JPRB,7.4988E-07_JPRB,1.2323E-06_JPRB,1.6363E-06_JPRB,1.5306E-06_JPRB/)
+KBO( :, 1,40, 1) = (/&
+&4.8302E-09_JPRB,3.6764E-07_JPRB,6.8890E-07_JPRB,1.1218E-06_JPRB,9.8696E-07_JPRB/)
+KBO( :, 2,40, 1) = (/&
+&6.2157E-09_JPRB,4.0354E-07_JPRB,7.3207E-07_JPRB,1.1164E-06_JPRB,1.0304E-06_JPRB/)
+KBO( :, 3,40, 1) = (/&
+&8.2441E-09_JPRB,4.5131E-07_JPRB,7.9261E-07_JPRB,1.1474E-06_JPRB,1.0817E-06_JPRB/)
+KBO( :, 4,40, 1) = (/&
+&1.1074E-08_JPRB,5.1282E-07_JPRB,8.7386E-07_JPRB,1.2132E-06_JPRB,1.1434E-06_JPRB/)
+KBO( :, 5,40, 1) = (/&
+&1.4851E-08_JPRB,5.9180E-07_JPRB,9.7921E-07_JPRB,1.3110E-06_JPRB,1.2171E-06_JPRB/)
+KBO( :, 1,41, 1) = (/&
+&3.7368E-09_JPRB,2.9476E-07_JPRB,5.5755E-07_JPRB,9.2376E-07_JPRB,7.8720E-07_JPRB/)
+KBO( :, 2,41, 1) = (/&
+&4.7545E-09_JPRB,3.2182E-07_JPRB,5.8886E-07_JPRB,9.1238E-07_JPRB,8.2191E-07_JPRB/)
+KBO( :, 3,41, 1) = (/&
+&6.2690E-09_JPRB,3.5842E-07_JPRB,6.3462E-07_JPRB,9.3003E-07_JPRB,8.6237E-07_JPRB/)
+KBO( :, 4,41, 1) = (/&
+&8.4086E-09_JPRB,4.0567E-07_JPRB,6.9663E-07_JPRB,9.7688E-07_JPRB,9.1026E-07_JPRB/)
+KBO( :, 5,41, 1) = (/&
+&1.1291E-08_JPRB,4.6640E-07_JPRB,7.7748E-07_JPRB,1.0503E-06_JPRB,9.6752E-07_JPRB/)
+KBO( :, 1,42, 1) = (/&
+&2.9007E-09_JPRB,2.3650E-07_JPRB,4.5213E-07_JPRB,7.6209E-07_JPRB,6.2575E-07_JPRB/)
+KBO( :, 2,42, 1) = (/&
+&3.6445E-09_JPRB,2.5698E-07_JPRB,4.7408E-07_JPRB,7.4714E-07_JPRB,6.5397E-07_JPRB/)
+KBO( :, 3,42, 1) = (/&
+&4.7714E-09_JPRB,2.8488E-07_JPRB,5.0867E-07_JPRB,7.5527E-07_JPRB,6.8601E-07_JPRB/)
+KBO( :, 4,42, 1) = (/&
+&6.3838E-09_JPRB,3.2120E-07_JPRB,5.5584E-07_JPRB,7.8778E-07_JPRB,7.2350E-07_JPRB/)
+KBO( :, 5,42, 1) = (/&
+&8.5773E-09_JPRB,3.6777E-07_JPRB,6.1782E-07_JPRB,8.4249E-07_JPRB,7.6794E-07_JPRB/)
+KBO( :, 1,43, 1) = (/&
+&2.2351E-09_JPRB,1.8911E-07_JPRB,3.6687E-07_JPRB,6.3162E-07_JPRB,4.9805E-07_JPRB/)
+KBO( :, 2,43, 1) = (/&
+&2.7634E-09_JPRB,2.0451E-07_JPRB,3.8115E-07_JPRB,6.1360E-07_JPRB,5.2107E-07_JPRB/)
+KBO( :, 3,43, 1) = (/&
+&3.5807E-09_JPRB,2.2534E-07_JPRB,4.0658E-07_JPRB,6.1409E-07_JPRB,5.4635E-07_JPRB/)
+KBO( :, 4,43, 1) = (/&
+&4.7672E-09_JPRB,2.5284E-07_JPRB,4.4177E-07_JPRB,6.3473E-07_JPRB,5.7553E-07_JPRB/)
+KBO( :, 5,43, 1) = (/&
+&6.4052E-09_JPRB,2.8805E-07_JPRB,4.8846E-07_JPRB,6.7397E-07_JPRB,6.0977E-07_JPRB/)
+KBO( :, 1,44, 1) = (/&
+&1.7248E-09_JPRB,1.5121E-07_JPRB,2.9826E-07_JPRB,5.2580E-07_JPRB,3.9624E-07_JPRB/)
+KBO( :, 2,44, 1) = (/&
+&2.0939E-09_JPRB,1.6277E-07_JPRB,3.0698E-07_JPRB,5.0563E-07_JPRB,4.1515E-07_JPRB/)
+KBO( :, 3,44, 1) = (/&
+&2.6759E-09_JPRB,1.7808E-07_JPRB,3.2502E-07_JPRB,5.0085E-07_JPRB,4.3507E-07_JPRB/)
+KBO( :, 4,44, 1) = (/&
+&3.5375E-09_JPRB,1.9875E-07_JPRB,3.5098E-07_JPRB,5.1227E-07_JPRB,4.5779E-07_JPRB/)
+KBO( :, 5,44, 1) = (/&
+&4.7457E-09_JPRB,2.2523E-07_JPRB,3.8582E-07_JPRB,5.3933E-07_JPRB,4.8421E-07_JPRB/)
+KBO( :, 1,45, 1) = (/&
+&1.3426E-09_JPRB,1.2131E-07_JPRB,2.4315E-07_JPRB,4.3919E-07_JPRB,3.1429E-07_JPRB/)
+KBO( :, 2,45, 1) = (/&
+&1.5963E-09_JPRB,1.2978E-07_JPRB,2.4811E-07_JPRB,4.1799E-07_JPRB,3.2982E-07_JPRB/)
+KBO( :, 3,45, 1) = (/&
+&2.0068E-09_JPRB,1.4107E-07_JPRB,2.6027E-07_JPRB,4.0999E-07_JPRB,3.4585E-07_JPRB/)
+KBO( :, 4,45, 1) = (/&
+&2.6291E-09_JPRB,1.5649E-07_JPRB,2.7939E-07_JPRB,4.1473E-07_JPRB,3.6360E-07_JPRB/)
+KBO( :, 5,45, 1) = (/&
+&3.5165E-09_JPRB,1.7643E-07_JPRB,3.0531E-07_JPRB,4.3268E-07_JPRB,3.8407E-07_JPRB/)
+KBO( :, 1,46, 1) = (/&
+&1.0525E-09_JPRB,9.7607E-08_JPRB,1.9871E-07_JPRB,3.6864E-07_JPRB,2.4954E-07_JPRB/)
+KBO( :, 2,46, 1) = (/&
+&1.2190E-09_JPRB,1.0342E-07_JPRB,2.0108E-07_JPRB,3.4713E-07_JPRB,2.6150E-07_JPRB/)
+KBO( :, 3,46, 1) = (/&
+&1.5044E-09_JPRB,1.1181E-07_JPRB,2.0871E-07_JPRB,3.3691E-07_JPRB,2.7474E-07_JPRB/)
+KBO( :, 4,46, 1) = (/&
+&1.9474E-09_JPRB,1.2315E-07_JPRB,2.2254E-07_JPRB,3.3690E-07_JPRB,2.8869E-07_JPRB/)
+KBO( :, 5,46, 1) = (/&
+&2.5900E-09_JPRB,1.3809E-07_JPRB,2.4160E-07_JPRB,3.4784E-07_JPRB,3.0446E-07_JPRB/)
+KBO( :, 1,47, 1) = (/&
+&8.3184E-10_JPRB,7.8730E-08_JPRB,1.6288E-07_JPRB,3.1142E-07_JPRB,1.9926E-07_JPRB/)
+KBO( :, 2,47, 1) = (/&
+&9.3189E-10_JPRB,8.2400E-08_JPRB,1.6338E-07_JPRB,2.9014E-07_JPRB,2.0781E-07_JPRB/)
+KBO( :, 3,47, 1) = (/&
+&1.1246E-09_JPRB,8.8566E-08_JPRB,1.6773E-07_JPRB,2.7820E-07_JPRB,2.1850E-07_JPRB/)
+KBO( :, 4,47, 1) = (/&
+&1.4310E-09_JPRB,9.6726E-08_JPRB,1.7718E-07_JPRB,2.7482E-07_JPRB,2.2960E-07_JPRB/)
+KBO( :, 5,47, 1) = (/&
+&1.8866E-09_JPRB,1.0777E-07_JPRB,1.9096E-07_JPRB,2.8016E-07_JPRB,2.4174E-07_JPRB/)
+KBO( :, 1,48, 1) = (/&
+&6.6667E-10_JPRB,6.3743E-08_JPRB,1.3383E-07_JPRB,2.6444E-07_JPRB,1.5919E-07_JPRB/)
+KBO( :, 2,48, 1) = (/&
+&7.2152E-10_JPRB,6.5980E-08_JPRB,1.3326E-07_JPRB,2.4370E-07_JPRB,1.6500E-07_JPRB/)
+KBO( :, 3,48, 1) = (/&
+&8.4803E-10_JPRB,7.0305E-08_JPRB,1.3546E-07_JPRB,2.3079E-07_JPRB,1.7325E-07_JPRB/)
+KBO( :, 4,48, 1) = (/&
+&1.0576E-09_JPRB,7.6239E-08_JPRB,1.4145E-07_JPRB,2.2533E-07_JPRB,1.8229E-07_JPRB/)
+KBO( :, 5,48, 1) = (/&
+&1.3781E-09_JPRB,8.4292E-08_JPRB,1.5136E-07_JPRB,2.2672E-07_JPRB,1.9179E-07_JPRB/)
+KBO( :, 1,49, 1) = (/&
+&5.4144E-10_JPRB,5.1801E-08_JPRB,1.1013E-07_JPRB,2.2618E-07_JPRB,1.2711E-07_JPRB/)
+KBO( :, 2,49, 1) = (/&
+&5.6629E-10_JPRB,5.3107E-08_JPRB,1.0907E-07_JPRB,2.0553E-07_JPRB,1.3089E-07_JPRB/)
+KBO( :, 3,49, 1) = (/&
+&6.4486E-10_JPRB,5.5918E-08_JPRB,1.0986E-07_JPRB,1.9244E-07_JPRB,1.3676E-07_JPRB/)
+KBO( :, 4,49, 1) = (/&
+&7.8735E-10_JPRB,6.0291E-08_JPRB,1.1339E-07_JPRB,1.8565E-07_JPRB,1.4422E-07_JPRB/)
+KBO( :, 5,49, 1) = (/&
+&1.0106E-09_JPRB,6.6110E-08_JPRB,1.2034E-07_JPRB,1.8446E-07_JPRB,1.5185E-07_JPRB/)
+KBO( :, 1,50, 1) = (/&
+&4.4437E-10_JPRB,4.2232E-08_JPRB,9.0862E-08_JPRB,1.9444E-07_JPRB,1.0220E-07_JPRB/)
+KBO( :, 2,50, 1) = (/&
+&4.5142E-10_JPRB,4.2954E-08_JPRB,8.9495E-08_JPRB,1.7367E-07_JPRB,1.0478E-07_JPRB/)
+KBO( :, 3,50, 1) = (/&
+&4.9792E-10_JPRB,4.4724E-08_JPRB,8.9470E-08_JPRB,1.6100E-07_JPRB,1.0886E-07_JPRB/)
+KBO( :, 4,50, 1) = (/&
+&5.9436E-10_JPRB,4.7919E-08_JPRB,9.1442E-08_JPRB,1.5352E-07_JPRB,1.1464E-07_JPRB/)
+KBO( :, 5,50, 1) = (/&
+&7.4940E-10_JPRB,5.2145E-08_JPRB,9.6092E-08_JPRB,1.5086E-07_JPRB,1.2088E-07_JPRB/)
+KBO( :, 1,51, 1) = (/&
+&3.6713E-10_JPRB,3.4474E-08_JPRB,7.5308E-08_JPRB,1.6803E-07_JPRB,8.2415E-08_JPRB/)
+KBO( :, 2,51, 1) = (/&
+&3.6430E-10_JPRB,3.4862E-08_JPRB,7.3571E-08_JPRB,1.4732E-07_JPRB,8.4283E-08_JPRB/)
+KBO( :, 3,51, 1) = (/&
+&3.8938E-10_JPRB,3.5958E-08_JPRB,7.3095E-08_JPRB,1.3515E-07_JPRB,8.7129E-08_JPRB/)
+KBO( :, 4,51, 1) = (/&
+&4.5287E-10_JPRB,3.8169E-08_JPRB,7.4068E-08_JPRB,1.2746E-07_JPRB,9.1359E-08_JPRB/)
+KBO( :, 5,51, 1) = (/&
+&5.6042E-10_JPRB,4.1297E-08_JPRB,7.7005E-08_JPRB,1.2390E-07_JPRB,9.6467E-08_JPRB/)
+KBO( :, 1,52, 1) = (/&
+&3.0507E-10_JPRB,2.8135E-08_JPRB,6.2903E-08_JPRB,1.4596E-07_JPRB,6.6326E-08_JPRB/)
+KBO( :, 2,52, 1) = (/&
+&2.9709E-10_JPRB,2.8385E-08_JPRB,6.0554E-08_JPRB,1.2580E-07_JPRB,6.7717E-08_JPRB/)
+KBO( :, 3,52, 1) = (/&
+&3.0805E-10_JPRB,2.9029E-08_JPRB,5.9886E-08_JPRB,1.1380E-07_JPRB,6.9709E-08_JPRB/)
+KBO( :, 4,52, 1) = (/&
+&3.4776E-10_JPRB,3.0470E-08_JPRB,6.0190E-08_JPRB,1.0625E-07_JPRB,7.2725E-08_JPRB/)
+KBO( :, 5,52, 1) = (/&
+&4.2195E-10_JPRB,3.2800E-08_JPRB,6.1944E-08_JPRB,1.0216E-07_JPRB,7.6745E-08_JPRB/)
+KBO( :, 1,53, 1) = (/&
+&2.5471E-10_JPRB,2.2998E-08_JPRB,5.2959E-08_JPRB,1.2738E-07_JPRB,5.3131E-08_JPRB/)
+KBO( :, 2,53, 1) = (/&
+&2.4432E-10_JPRB,2.3152E-08_JPRB,5.0007E-08_JPRB,1.0819E-07_JPRB,5.4179E-08_JPRB/)
+KBO( :, 3,53, 1) = (/&
+&2.4654E-10_JPRB,2.3508E-08_JPRB,4.9165E-08_JPRB,9.6195E-08_JPRB,5.5658E-08_JPRB/)
+KBO( :, 4,53, 1) = (/&
+&2.6977E-10_JPRB,2.4417E-08_JPRB,4.9071E-08_JPRB,8.8939E-08_JPRB,5.7790E-08_JPRB/)
+KBO( :, 5,53, 1) = (/&
+&3.1992E-10_JPRB,2.6104E-08_JPRB,5.0031E-08_JPRB,8.4550E-08_JPRB,6.0803E-08_JPRB/)
+KBO( :, 1,54, 1) = (/&
+&2.1314E-10_JPRB,1.8852E-08_JPRB,4.4748E-08_JPRB,1.1115E-07_JPRB,4.3302E-08_JPRB/)
+KBO( :, 2,54, 1) = (/&
+&2.0193E-10_JPRB,1.8904E-08_JPRB,4.1449E-08_JPRB,9.3135E-08_JPRB,4.4067E-08_JPRB/)
+KBO( :, 3,54, 1) = (/&
+&1.9965E-10_JPRB,1.9105E-08_JPRB,4.0409E-08_JPRB,8.1420E-08_JPRB,4.5177E-08_JPRB/)
+KBO( :, 4,54, 1) = (/&
+&2.1224E-10_JPRB,1.9678E-08_JPRB,4.0114E-08_JPRB,7.4541E-08_JPRB,4.6704E-08_JPRB/)
+KBO( :, 5,54, 1) = (/&
+&2.4557E-10_JPRB,2.0847E-08_JPRB,4.0586E-08_JPRB,7.0154E-08_JPRB,4.8932E-08_JPRB/)
+KBO( :, 1,55, 1) = (/&
+&1.7867E-10_JPRB,1.5555E-08_JPRB,3.7972E-08_JPRB,9.7108E-08_JPRB,3.5728E-08_JPRB/)
+KBO( :, 2,55, 1) = (/&
+&1.6760E-10_JPRB,1.5433E-08_JPRB,3.4555E-08_JPRB,8.0306E-08_JPRB,3.6271E-08_JPRB/)
+KBO( :, 3,55, 1) = (/&
+&1.6306E-10_JPRB,1.5570E-08_JPRB,3.3237E-08_JPRB,6.9179E-08_JPRB,3.7075E-08_JPRB/)
+KBO( :, 4,55, 1) = (/&
+&1.6881E-10_JPRB,1.5918E-08_JPRB,3.2865E-08_JPRB,6.2543E-08_JPRB,3.8181E-08_JPRB/)
+KBO( :, 5,55, 1) = (/&
+&1.9022E-10_JPRB,1.6697E-08_JPRB,3.3018E-08_JPRB,5.8357E-08_JPRB,3.9829E-08_JPRB/)
+KBO( :, 1,56, 1) = (/&
+&1.5014E-10_JPRB,1.2915E-08_JPRB,3.2380E-08_JPRB,8.5055E-08_JPRB,2.9526E-08_JPRB/)
+KBO( :, 2,56, 1) = (/&
+&1.3958E-10_JPRB,1.2616E-08_JPRB,2.8978E-08_JPRB,6.9473E-08_JPRB,2.9904E-08_JPRB/)
+KBO( :, 3,56, 1) = (/&
+&1.3402E-10_JPRB,1.2704E-08_JPRB,2.7411E-08_JPRB,5.9088E-08_JPRB,3.0485E-08_JPRB/)
+KBO( :, 4,56, 1) = (/&
+&1.3548E-10_JPRB,1.2908E-08_JPRB,2.6966E-08_JPRB,5.2631E-08_JPRB,3.1281E-08_JPRB/)
+KBO( :, 5,56, 1) = (/&
+&1.4854E-10_JPRB,1.3416E-08_JPRB,2.6928E-08_JPRB,4.8694E-08_JPRB,3.2487E-08_JPRB/)
+KBO( :, 1,57, 1) = (/&
+&1.2648E-10_JPRB,1.0778E-08_JPRB,2.7708E-08_JPRB,7.4942E-08_JPRB,2.4443E-08_JPRB/)
+KBO( :, 2,57, 1) = (/&
+&1.1666E-10_JPRB,1.0334E-08_JPRB,2.4430E-08_JPRB,6.0404E-08_JPRB,2.4707E-08_JPRB/)
+KBO( :, 3,57, 1) = (/&
+&1.1067E-10_JPRB,1.0374E-08_JPRB,2.2691E-08_JPRB,5.0714E-08_JPRB,2.5111E-08_JPRB/)
+KBO( :, 4,57, 1) = (/&
+&1.0967E-10_JPRB,1.0490E-08_JPRB,2.2155E-08_JPRB,4.4446E-08_JPRB,2.5686E-08_JPRB/)
+KBO( :, 5,57, 1) = (/&
+&1.1697E-10_JPRB,1.0815E-08_JPRB,2.2007E-08_JPRB,4.0752E-08_JPRB,2.6560E-08_JPRB/)
+KBO( :, 1,58, 1) = (/&
+&1.0659E-10_JPRB,9.0293E-09_JPRB,2.3759E-08_JPRB,6.6089E-08_JPRB,2.0347E-08_JPRB/)
+KBO( :, 2,58, 1) = (/&
+&9.7636E-11_JPRB,8.5135E-09_JPRB,2.0668E-08_JPRB,5.2543E-08_JPRB,2.0525E-08_JPRB/)
+KBO( :, 3,58, 1) = (/&
+&9.1732E-11_JPRB,8.4689E-09_JPRB,1.8876E-08_JPRB,4.3570E-08_JPRB,2.0785E-08_JPRB/)
+KBO( :, 4,58, 1) = (/&
+&8.9487E-11_JPRB,8.5483E-09_JPRB,1.8213E-08_JPRB,3.7645E-08_JPRB,2.1195E-08_JPRB/)
+KBO( :, 5,58, 1) = (/&
+&9.3059E-11_JPRB,8.7505E-09_JPRB,1.8022E-08_JPRB,3.4131E-08_JPRB,2.1827E-08_JPRB/)
+KBO( :, 1,59, 1) = (/&
+&8.8331E-11_JPRB,7.4630E-09_JPRB,1.9793E-08_JPRB,5.5593E-08_JPRB,1.7482E-08_JPRB/)
+KBO( :, 2,59, 1) = (/&
+&8.0694E-11_JPRB,6.9932E-09_JPRB,1.7133E-08_JPRB,4.3957E-08_JPRB,1.7486E-08_JPRB/)
+KBO( :, 3,59, 1) = (/&
+&7.5549E-11_JPRB,6.9233E-09_JPRB,1.5553E-08_JPRB,3.6288E-08_JPRB,1.7620E-08_JPRB/)
+KBO( :, 4,59, 1) = (/&
+&7.3293E-11_JPRB,6.9863E-09_JPRB,1.4925E-08_JPRB,3.1206E-08_JPRB,1.7870E-08_JPRB/)
+KBO( :, 5,59, 1) = (/&
+&7.5492E-11_JPRB,7.1328E-09_JPRB,1.4750E-08_JPRB,2.8159E-08_JPRB,1.8369E-08_JPRB/)
+KBO( :, 1,13, 2) = (/&
+&1.7831E-06_JPRB,1.1485E-04_JPRB,2.2492E-04_JPRB,4.1688E-04_JPRB,6.0547E-04_JPRB/)
+KBO( :, 2,13, 2) = (/&
+&2.2523E-06_JPRB,1.2306E-04_JPRB,2.2855E-04_JPRB,3.8873E-04_JPRB,6.9580E-04_JPRB/)
+KBO( :, 3,13, 2) = (/&
+&3.1401E-06_JPRB,1.3738E-04_JPRB,2.4315E-04_JPRB,3.7873E-04_JPRB,8.1218E-04_JPRB/)
+KBO( :, 4,13, 2) = (/&
+&4.6444E-06_JPRB,1.5956E-04_JPRB,2.6822E-04_JPRB,3.8629E-04_JPRB,9.5399E-04_JPRB/)
+KBO( :, 5,13, 2) = (/&
+&7.0313E-06_JPRB,1.8987E-04_JPRB,3.0507E-04_JPRB,4.1261E-04_JPRB,1.1192E-03_JPRB/)
+KBO( :, 1,14, 2) = (/&
+&1.5078E-06_JPRB,9.3955E-05_JPRB,1.8376E-04_JPRB,3.3845E-04_JPRB,5.0372E-04_JPRB/)
+KBO( :, 2,14, 2) = (/&
+&1.9334E-06_JPRB,1.0121E-04_JPRB,1.8743E-04_JPRB,3.1713E-04_JPRB,5.7910E-04_JPRB/)
+KBO( :, 3,14, 2) = (/&
+&2.7160E-06_JPRB,1.1368E-04_JPRB,2.0048E-04_JPRB,3.1032E-04_JPRB,6.7658E-04_JPRB/)
+KBO( :, 4,14, 2) = (/&
+&4.0314E-06_JPRB,1.3266E-04_JPRB,2.2233E-04_JPRB,3.1845E-04_JPRB,7.9423E-04_JPRB/)
+KBO( :, 5,14, 2) = (/&
+&6.1144E-06_JPRB,1.5848E-04_JPRB,2.5408E-04_JPRB,3.4197E-04_JPRB,9.2922E-04_JPRB/)
+KBO( :, 1,15, 2) = (/&
+&1.2774E-06_JPRB,7.6659E-05_JPRB,1.4966E-04_JPRB,2.7428E-04_JPRB,4.0806E-04_JPRB/)
+KBO( :, 2,15, 2) = (/&
+&1.6539E-06_JPRB,8.3075E-05_JPRB,1.5341E-04_JPRB,2.5818E-04_JPRB,4.6824E-04_JPRB/)
+KBO( :, 3,15, 2) = (/&
+&2.3327E-06_JPRB,9.3823E-05_JPRB,1.6504E-04_JPRB,2.5400E-04_JPRB,5.4554E-04_JPRB/)
+KBO( :, 4,15, 2) = (/&
+&3.4694E-06_JPRB,1.1007E-04_JPRB,1.8398E-04_JPRB,2.6231E-04_JPRB,6.3780E-04_JPRB/)
+KBO( :, 5,15, 2) = (/&
+&5.2705E-06_JPRB,1.3207E-04_JPRB,2.1119E-04_JPRB,2.8323E-04_JPRB,7.4509E-04_JPRB/)
+KBO( :, 1,16, 2) = (/&
+&1.0807E-06_JPRB,6.2530E-05_JPRB,1.2180E-04_JPRB,2.2215E-04_JPRB,3.2808E-04_JPRB/)
+KBO( :, 2,16, 2) = (/&
+&1.4084E-06_JPRB,6.8196E-05_JPRB,1.2558E-04_JPRB,2.1014E-04_JPRB,3.7445E-04_JPRB/)
+KBO( :, 3,16, 2) = (/&
+&1.9921E-06_JPRB,7.7409E-05_JPRB,1.3589E-04_JPRB,2.0792E-04_JPRB,4.3322E-04_JPRB/)
+KBO( :, 4,16, 2) = (/&
+&2.9709E-06_JPRB,9.1317E-05_JPRB,1.5223E-04_JPRB,2.1610E-04_JPRB,5.0329E-04_JPRB/)
+KBO( :, 5,16, 2) = (/&
+&4.5175E-06_JPRB,1.1013E-04_JPRB,1.7552E-04_JPRB,2.3456E-04_JPRB,5.8394E-04_JPRB/)
+KBO( :, 1,17, 2) = (/&
+&9.1180E-07_JPRB,5.1179E-05_JPRB,9.9386E-05_JPRB,1.8025E-04_JPRB,2.6437E-04_JPRB/)
+KBO( :, 2,17, 2) = (/&
+&1.1946E-06_JPRB,5.6143E-05_JPRB,1.0310E-04_JPRB,1.7134E-04_JPRB,2.9996E-04_JPRB/)
+KBO( :, 3,17, 2) = (/&
+&1.6972E-06_JPRB,6.4077E-05_JPRB,1.1216E-04_JPRB,1.7049E-04_JPRB,3.4494E-04_JPRB/)
+KBO( :, 4,17, 2) = (/&
+&2.5402E-06_JPRB,7.6034E-05_JPRB,1.2620E-04_JPRB,1.7834E-04_JPRB,3.9850E-04_JPRB/)
+KBO( :, 5,17, 2) = (/&
+&3.8602E-06_JPRB,9.2137E-05_JPRB,1.4620E-04_JPRB,1.9446E-04_JPRB,4.6053E-04_JPRB/)
+KBO( :, 1,18, 2) = (/&
+&7.6847E-07_JPRB,4.2128E-05_JPRB,8.1427E-05_JPRB,1.4663E-04_JPRB,2.1428E-04_JPRB/)
+KBO( :, 2,18, 2) = (/&
+&1.0140E-06_JPRB,4.6467E-05_JPRB,8.5018E-05_JPRB,1.4005E-04_JPRB,2.4221E-04_JPRB/)
+KBO( :, 3,18, 2) = (/&
+&1.4492E-06_JPRB,5.3358E-05_JPRB,9.2939E-05_JPRB,1.4019E-04_JPRB,2.7739E-04_JPRB/)
+KBO( :, 4,18, 2) = (/&
+&2.1756E-06_JPRB,6.3671E-05_JPRB,1.0504E-04_JPRB,1.4753E-04_JPRB,3.1937E-04_JPRB/)
+KBO( :, 5,18, 2) = (/&
+&3.2973E-06_JPRB,7.7469E-05_JPRB,1.2233E-04_JPRB,1.6159E-04_JPRB,3.6805E-04_JPRB/)
+KBO( :, 1,19, 2) = (/&
+&6.4665E-07_JPRB,3.4756E-05_JPRB,6.6830E-05_JPRB,1.1940E-04_JPRB,1.7455E-04_JPRB/)
+KBO( :, 2,19, 2) = (/&
+&8.6026E-07_JPRB,3.8528E-05_JPRB,7.0212E-05_JPRB,1.1460E-04_JPRB,1.9694E-04_JPRB/)
+KBO( :, 3,19, 2) = (/&
+&1.2368E-06_JPRB,4.4528E-05_JPRB,7.7120E-05_JPRB,1.1540E-04_JPRB,2.2498E-04_JPRB/)
+KBO( :, 4,19, 2) = (/&
+&1.8580E-06_JPRB,5.3404E-05_JPRB,8.7557E-05_JPRB,1.2215E-04_JPRB,2.5850E-04_JPRB/)
+KBO( :, 5,19, 2) = (/&
+&2.8103E-06_JPRB,6.5162E-05_JPRB,1.0249E-04_JPRB,1.3438E-04_JPRB,2.9679E-04_JPRB/)
+KBO( :, 1,20, 2) = (/&
+&5.4656E-07_JPRB,2.8770E-05_JPRB,5.4975E-05_JPRB,9.7196E-05_JPRB,1.4326E-04_JPRB/)
+KBO( :, 2,20, 2) = (/&
+&7.3436E-07_JPRB,3.2085E-05_JPRB,5.8157E-05_JPRB,9.3865E-05_JPRB,1.6155E-04_JPRB/)
+KBO( :, 3,20, 2) = (/&
+&1.0622E-06_JPRB,3.7358E-05_JPRB,6.4221E-05_JPRB,9.5159E-05_JPRB,1.8436E-04_JPRB/)
+KBO( :, 4,20, 2) = (/&
+&1.5965E-06_JPRB,4.4974E-05_JPRB,7.3287E-05_JPRB,1.0139E-04_JPRB,2.1149E-04_JPRB/)
+KBO( :, 5,20, 2) = (/&
+&2.4119E-06_JPRB,5.5033E-05_JPRB,8.6244E-05_JPRB,1.1207E-04_JPRB,2.4172E-04_JPRB/)
+KBO( :, 1,21, 2) = (/&
+&4.6233E-07_JPRB,2.3834E-05_JPRB,4.5264E-05_JPRB,7.9149E-05_JPRB,1.1774E-04_JPRB/)
+KBO( :, 2,21, 2) = (/&
+&6.2707E-07_JPRB,2.6751E-05_JPRB,4.8202E-05_JPRB,7.6928E-05_JPRB,1.3273E-04_JPRB/)
+KBO( :, 3,21, 2) = (/&
+&9.1123E-07_JPRB,3.1358E-05_JPRB,5.3515E-05_JPRB,7.8550E-05_JPRB,1.5133E-04_JPRB/)
+KBO( :, 4,21, 2) = (/&
+&1.3711E-06_JPRB,3.7856E-05_JPRB,6.1405E-05_JPRB,8.4206E-05_JPRB,1.7321E-04_JPRB/)
+KBO( :, 5,21, 2) = (/&
+&2.0698E-06_JPRB,4.6466E-05_JPRB,7.2555E-05_JPRB,9.3524E-05_JPRB,1.9698E-04_JPRB/)
+KBO( :, 1,22, 2) = (/&
+&3.9809E-07_JPRB,1.9861E-05_JPRB,3.7362E-05_JPRB,6.4255E-05_JPRB,9.7130E-05_JPRB/)
+KBO( :, 2,22, 2) = (/&
+&5.4666E-07_JPRB,2.2487E-05_JPRB,4.0159E-05_JPRB,6.3058E-05_JPRB,1.0946E-04_JPRB/)
+KBO( :, 3,22, 2) = (/&
+&8.0057E-07_JPRB,2.6577E-05_JPRB,4.4935E-05_JPRB,6.5070E-05_JPRB,1.2456E-04_JPRB/)
+KBO( :, 4,22, 2) = (/&
+&1.2071E-06_JPRB,3.2211E-05_JPRB,5.1924E-05_JPRB,7.0344E-05_JPRB,1.4182E-04_JPRB/)
+KBO( :, 5,22, 2) = (/&
+&1.8195E-06_JPRB,3.9674E-05_JPRB,6.1645E-05_JPRB,7.8623E-05_JPRB,1.6040E-04_JPRB/)
+KBO( :, 1,23, 2) = (/&
+&3.4367E-07_JPRB,1.6568E-05_JPRB,3.0880E-05_JPRB,5.2238E-05_JPRB,8.0021E-05_JPRB/)
+KBO( :, 2,23, 2) = (/&
+&4.7758E-07_JPRB,1.8928E-05_JPRB,3.3504E-05_JPRB,5.1762E-05_JPRB,9.0054E-05_JPRB/)
+KBO( :, 3,23, 2) = (/&
+&7.0447E-07_JPRB,2.2529E-05_JPRB,3.7774E-05_JPRB,5.3990E-05_JPRB,1.0211E-04_JPRB/)
+KBO( :, 4,23, 2) = (/&
+&1.0638E-06_JPRB,2.7414E-05_JPRB,4.3928E-05_JPRB,5.8845E-05_JPRB,1.1542E-04_JPRB/)
+KBO( :, 5,23, 2) = (/&
+&1.6007E-06_JPRB,3.3849E-05_JPRB,5.2353E-05_JPRB,6.6134E-05_JPRB,1.3002E-04_JPRB/)
+KBO( :, 1,24, 2) = (/&
+&2.9731E-07_JPRB,1.3817E-05_JPRB,2.5531E-05_JPRB,4.2477E-05_JPRB,6.5483E-05_JPRB/)
+KBO( :, 2,24, 2) = (/&
+&4.1800E-07_JPRB,1.5925E-05_JPRB,2.7963E-05_JPRB,4.2525E-05_JPRB,7.3450E-05_JPRB/)
+KBO( :, 3,24, 2) = (/&
+&6.2039E-07_JPRB,1.9083E-05_JPRB,3.1748E-05_JPRB,4.4841E-05_JPRB,8.2603E-05_JPRB/)
+KBO( :, 4,24, 2) = (/&
+&9.3799E-07_JPRB,2.3303E-05_JPRB,3.7155E-05_JPRB,4.9236E-05_JPRB,9.2771E-05_JPRB/)
+KBO( :, 5,24, 2) = (/&
+&1.4084E-06_JPRB,2.8824E-05_JPRB,4.4404E-05_JPRB,5.5621E-05_JPRB,1.0401E-04_JPRB/)
+KBO( :, 1,25, 2) = (/&
+&2.5846E-07_JPRB,1.1557E-05_JPRB,2.1168E-05_JPRB,3.4591E-05_JPRB,5.3402E-05_JPRB/)
+KBO( :, 2,25, 2) = (/&
+&3.6779E-07_JPRB,1.3446E-05_JPRB,2.3397E-05_JPRB,3.5019E-05_JPRB,5.9504E-05_JPRB/)
+KBO( :, 3,25, 2) = (/&
+&5.4914E-07_JPRB,1.6203E-05_JPRB,2.6747E-05_JPRB,3.7316E-05_JPRB,6.6453E-05_JPRB/)
+KBO( :, 4,25, 2) = (/&
+&8.3081E-07_JPRB,1.9848E-05_JPRB,3.1489E-05_JPRB,4.1271E-05_JPRB,7.4204E-05_JPRB/)
+KBO( :, 5,25, 2) = (/&
+&1.2434E-06_JPRB,2.4586E-05_JPRB,3.7706E-05_JPRB,4.6843E-05_JPRB,8.2964E-05_JPRB/)
+KBO( :, 1,26, 2) = (/&
+&2.2688E-07_JPRB,9.7182E-06_JPRB,1.7626E-05_JPRB,2.8238E-05_JPRB,4.3458E-05_JPRB/)
+KBO( :, 2,26, 2) = (/&
+&3.2698E-07_JPRB,1.1421E-05_JPRB,1.9660E-05_JPRB,2.8946E-05_JPRB,4.8104E-05_JPRB/)
+KBO( :, 3,26, 2) = (/&
+&4.9095E-07_JPRB,1.3827E-05_JPRB,2.2642E-05_JPRB,3.1162E-05_JPRB,5.3458E-05_JPRB/)
+KBO( :, 4,26, 2) = (/&
+&7.4254E-07_JPRB,1.6991E-05_JPRB,2.6804E-05_JPRB,3.4710E-05_JPRB,5.9616E-05_JPRB/)
+KBO( :, 5,26, 2) = (/&
+&1.1064E-06_JPRB,2.1073E-05_JPRB,3.2131E-05_JPRB,3.9581E-05_JPRB,6.6564E-05_JPRB/)
+KBO( :, 1,27, 2) = (/&
+&1.9993E-07_JPRB,8.1890E-06_JPRB,1.4706E-05_JPRB,2.3104E-05_JPRB,3.4885E-05_JPRB/)
+KBO( :, 2,27, 2) = (/&
+&2.9147E-07_JPRB,9.7120E-06_JPRB,1.6544E-05_JPRB,2.3984E-05_JPRB,3.8444E-05_JPRB/)
+KBO( :, 3,27, 2) = (/&
+&4.3955E-07_JPRB,1.1803E-05_JPRB,1.9192E-05_JPRB,2.6063E-05_JPRB,4.2658E-05_JPRB/)
+KBO( :, 4,27, 2) = (/&
+&6.6365E-07_JPRB,1.4549E-05_JPRB,2.2817E-05_JPRB,2.9214E-05_JPRB,4.7548E-05_JPRB/)
+KBO( :, 5,27, 2) = (/&
+&9.8399E-07_JPRB,1.8060E-05_JPRB,2.7381E-05_JPRB,3.3454E-05_JPRB,5.3034E-05_JPRB/)
+KBO( :, 1,28, 2) = (/&
+&1.7666E-07_JPRB,6.9106E-06_JPRB,1.2291E-05_JPRB,1.8950E-05_JPRB,2.7614E-05_JPRB/)
+KBO( :, 2,28, 2) = (/&
+&2.6027E-07_JPRB,8.2613E-06_JPRB,1.3939E-05_JPRB,1.9912E-05_JPRB,3.0347E-05_JPRB/)
+KBO( :, 3,28, 2) = (/&
+&3.9360E-07_JPRB,1.0076E-05_JPRB,1.6277E-05_JPRB,2.1822E-05_JPRB,3.3665E-05_JPRB/)
+KBO( :, 4,28, 2) = (/&
+&5.9255E-07_JPRB,1.2455E-05_JPRB,1.9419E-05_JPRB,2.4599E-05_JPRB,3.7521E-05_JPRB/)
+KBO( :, 5,28, 2) = (/&
+&8.7397E-07_JPRB,1.5474E-05_JPRB,2.3332E-05_JPRB,2.8281E-05_JPRB,4.1809E-05_JPRB/)
+KBO( :, 1,29, 2) = (/&
+&1.5731E-07_JPRB,5.8606E-06_JPRB,1.0316E-05_JPRB,1.5600E-05_JPRB,2.1902E-05_JPRB/)
+KBO( :, 2,29, 2) = (/&
+&2.3400E-07_JPRB,7.0543E-06_JPRB,1.1790E-05_JPRB,1.6590E-05_JPRB,2.4089E-05_JPRB/)
+KBO( :, 3,29, 2) = (/&
+&3.5418E-07_JPRB,8.6343E-06_JPRB,1.3853E-05_JPRB,1.8324E-05_JPRB,2.6737E-05_JPRB/)
+KBO( :, 4,29, 2) = (/&
+&5.3119E-07_JPRB,1.0700E-05_JPRB,1.6576E-05_JPRB,2.0766E-05_JPRB,2.9758E-05_JPRB/)
+KBO( :, 5,29, 2) = (/&
+&7.7916E-07_JPRB,1.3299E-05_JPRB,1.9939E-05_JPRB,2.3971E-05_JPRB,3.3117E-05_JPRB/)
+KBO( :, 1,30, 2) = (/&
+&1.4063E-07_JPRB,4.9824E-06_JPRB,8.6764E-06_JPRB,1.2880E-05_JPRB,1.7310E-05_JPRB/)
+KBO( :, 2,30, 2) = (/&
+&2.1067E-07_JPRB,6.0303E-06_JPRB,9.9875E-06_JPRB,1.3848E-05_JPRB,1.9047E-05_JPRB/)
+KBO( :, 3,30, 2) = (/&
+&3.1873E-07_JPRB,7.4093E-06_JPRB,1.1804E-05_JPRB,1.5408E-05_JPRB,2.1112E-05_JPRB/)
+KBO( :, 4,30, 2) = (/&
+&4.7602E-07_JPRB,9.1990E-06_JPRB,1.4156E-05_JPRB,1.7550E-05_JPRB,2.3467E-05_JPRB/)
+KBO( :, 5,30, 2) = (/&
+&6.9431E-07_JPRB,1.1442E-05_JPRB,1.7053E-05_JPRB,2.0340E-05_JPRB,2.6091E-05_JPRB/)
+KBO( :, 1,31, 2) = (/&
+&1.2644E-07_JPRB,4.2516E-06_JPRB,7.3195E-06_JPRB,1.0673E-05_JPRB,1.3682E-05_JPRB/)
+KBO( :, 2,31, 2) = (/&
+&1.9031E-07_JPRB,5.1693E-06_JPRB,8.4857E-06_JPRB,1.1593E-05_JPRB,1.5034E-05_JPRB/)
+KBO( :, 3,31, 2) = (/&
+&2.8751E-07_JPRB,6.3745E-06_JPRB,1.0084E-05_JPRB,1.2985E-05_JPRB,1.6635E-05_JPRB/)
+KBO( :, 4,31, 2) = (/&
+&4.2724E-07_JPRB,7.9260E-06_JPRB,1.2109E-05_JPRB,1.4860E-05_JPRB,1.8446E-05_JPRB/)
+KBO( :, 5,31, 2) = (/&
+&6.1916E-07_JPRB,9.8570E-06_JPRB,1.4602E-05_JPRB,1.7280E-05_JPRB,2.0481E-05_JPRB/)
+KBO( :, 1,32, 2) = (/&
+&1.1409E-07_JPRB,3.6379E-06_JPRB,6.1915E-06_JPRB,8.8747E-06_JPRB,1.0783E-05_JPRB/)
+KBO( :, 2,32, 2) = (/&
+&1.7228E-07_JPRB,4.4412E-06_JPRB,7.2287E-06_JPRB,9.7273E-06_JPRB,1.1842E-05_JPRB/)
+KBO( :, 3,32, 2) = (/&
+&2.5962E-07_JPRB,5.4949E-06_JPRB,8.6268E-06_JPRB,1.0963E-05_JPRB,1.3078E-05_JPRB/)
+KBO( :, 4,32, 2) = (/&
+&3.8365E-07_JPRB,6.8377E-06_JPRB,1.0371E-05_JPRB,1.2605E-05_JPRB,1.4477E-05_JPRB/)
+KBO( :, 5,32, 2) = (/&
+&5.5233E-07_JPRB,8.5032E-06_JPRB,1.2515E-05_JPRB,1.4698E-05_JPRB,1.6068E-05_JPRB/)
+KBO( :, 1,33, 2) = (/&
+&1.0319E-07_JPRB,3.1180E-06_JPRB,5.2481E-06_JPRB,7.4004E-06_JPRB,8.4500E-06_JPRB/)
+KBO( :, 2,33, 2) = (/&
+&1.5612E-07_JPRB,3.8215E-06_JPRB,6.1686E-06_JPRB,8.1771E-06_JPRB,9.2833E-06_JPRB/)
+KBO( :, 3,33, 2) = (/&
+&2.3441E-07_JPRB,4.7418E-06_JPRB,7.3861E-06_JPRB,9.2700E-06_JPRB,1.0235E-05_JPRB/)
+KBO( :, 4,33, 2) = (/&
+&3.4446E-07_JPRB,5.9060E-06_JPRB,8.8925E-06_JPRB,1.0710E-05_JPRB,1.1335E-05_JPRB/)
+KBO( :, 5,33, 2) = (/&
+&4.9241E-07_JPRB,7.3371E-06_JPRB,1.0731E-05_JPRB,1.2507E-05_JPRB,1.2576E-05_JPRB/)
+KBO( :, 1,34, 2) = (/&
+&9.2307E-08_JPRB,2.6619E-06_JPRB,4.4385E-06_JPRB,6.1710E-06_JPRB,6.7086E-06_JPRB/)
+KBO( :, 2,34, 2) = (/&
+&1.3970E-07_JPRB,3.2731E-06_JPRB,5.2448E-06_JPRB,6.8652E-06_JPRB,7.3666E-06_JPRB/)
+KBO( :, 3,34, 2) = (/&
+&2.0895E-07_JPRB,4.0690E-06_JPRB,6.2930E-06_JPRB,7.8186E-06_JPRB,8.1274E-06_JPRB/)
+KBO( :, 4,34, 2) = (/&
+&3.0532E-07_JPRB,5.0681E-06_JPRB,7.5836E-06_JPRB,9.0634E-06_JPRB,9.0071E-06_JPRB/)
+KBO( :, 5,34, 2) = (/&
+&4.3392E-07_JPRB,6.2912E-06_JPRB,9.1516E-06_JPRB,1.0598E-05_JPRB,1.0001E-05_JPRB/)
+KBO( :, 1,35, 2) = (/&
+&7.9334E-08_JPRB,2.2294E-06_JPRB,3.6998E-06_JPRB,5.1049E-06_JPRB,5.2466E-06_JPRB/)
+KBO( :, 2,35, 2) = (/&
+&1.2002E-07_JPRB,2.7467E-06_JPRB,4.3846E-06_JPRB,5.6993E-06_JPRB,5.7554E-06_JPRB/)
+KBO( :, 3,35, 2) = (/&
+&1.7912E-07_JPRB,3.4176E-06_JPRB,5.2654E-06_JPRB,6.5073E-06_JPRB,6.3538E-06_JPRB/)
+KBO( :, 4,35, 2) = (/&
+&2.6096E-07_JPRB,4.2572E-06_JPRB,6.3499E-06_JPRB,7.5566E-06_JPRB,7.0484E-06_JPRB/)
+KBO( :, 5,35, 2) = (/&
+&3.6971E-07_JPRB,5.2820E-06_JPRB,7.6616E-06_JPRB,8.8415E-06_JPRB,7.8403E-06_JPRB/)
+KBO( :, 1,36, 2) = (/&
+&6.5133E-08_JPRB,1.8258E-06_JPRB,3.0305E-06_JPRB,4.1781E-06_JPRB,4.0391E-06_JPRB/)
+KBO( :, 2,36, 2) = (/&
+&9.8521E-08_JPRB,2.2504E-06_JPRB,3.5927E-06_JPRB,4.6670E-06_JPRB,4.4257E-06_JPRB/)
+KBO( :, 3,36, 2) = (/&
+&1.4704E-07_JPRB,2.8014E-06_JPRB,4.3159E-06_JPRB,5.3307E-06_JPRB,4.8851E-06_JPRB/)
+KBO( :, 4,36, 2) = (/&
+&2.1423E-07_JPRB,3.4905E-06_JPRB,5.2056E-06_JPRB,6.1919E-06_JPRB,5.4221E-06_JPRB/)
+KBO( :, 5,36, 2) = (/&
+&3.0347E-07_JPRB,4.3311E-06_JPRB,6.2810E-06_JPRB,7.2464E-06_JPRB,6.0400E-06_JPRB/)
+KBO( :, 1,37, 2) = (/&
+&5.0409E-08_JPRB,1.4546E-06_JPRB,2.4297E-06_JPRB,3.3777E-06_JPRB,3.1888E-06_JPRB/)
+KBO( :, 2,37, 2) = (/&
+&7.6278E-08_JPRB,1.7897E-06_JPRB,2.8722E-06_JPRB,3.7595E-06_JPRB,3.4883E-06_JPRB/)
+KBO( :, 3,37, 2) = (/&
+&1.1416E-07_JPRB,2.2265E-06_JPRB,3.4480E-06_JPRB,4.2834E-06_JPRB,3.8454E-06_JPRB/)
+KBO( :, 4,37, 2) = (/&
+&1.6695E-07_JPRB,2.7752E-06_JPRB,4.1566E-06_JPRB,4.9670E-06_JPRB,4.2653E-06_JPRB/)
+KBO( :, 5,37, 2) = (/&
+&2.3741E-07_JPRB,3.4464E-06_JPRB,5.0175E-06_JPRB,5.8098E-06_JPRB,4.7509E-06_JPRB/)
+KBO( :, 1,38, 2) = (/&
+&3.8890E-08_JPRB,1.1572E-06_JPRB,1.9462E-06_JPRB,2.7303E-06_JPRB,2.5173E-06_JPRB/)
+KBO( :, 2,38, 2) = (/&
+&5.8839E-08_JPRB,1.4211E-06_JPRB,2.2935E-06_JPRB,3.0265E-06_JPRB,2.7490E-06_JPRB/)
+KBO( :, 3,38, 2) = (/&
+&8.8306E-08_JPRB,1.7664E-06_JPRB,2.7503E-06_JPRB,3.4388E-06_JPRB,3.0259E-06_JPRB/)
+KBO( :, 4,38, 2) = (/&
+&1.2963E-07_JPRB,2.2023E-06_JPRB,3.3138E-06_JPRB,3.9798E-06_JPRB,3.3533E-06_JPRB/)
+KBO( :, 5,38, 2) = (/&
+&1.8509E-07_JPRB,2.7372E-06_JPRB,4.0007E-06_JPRB,4.6520E-06_JPRB,3.7342E-06_JPRB/)
+KBO( :, 1,39, 2) = (/&
+&3.0015E-08_JPRB,9.2084E-07_JPRB,1.5596E-06_JPRB,2.2083E-06_JPRB,1.9828E-06_JPRB/)
+KBO( :, 2,39, 2) = (/&
+&4.5385E-08_JPRB,1.1288E-06_JPRB,1.8319E-06_JPRB,2.4376E-06_JPRB,2.1608E-06_JPRB/)
+KBO( :, 3,39, 2) = (/&
+&6.8278E-08_JPRB,1.4014E-06_JPRB,2.1937E-06_JPRB,2.7616E-06_JPRB,2.3751E-06_JPRB/)
+KBO( :, 4,39, 2) = (/&
+&1.0061E-07_JPRB,1.7477E-06_JPRB,2.6422E-06_JPRB,3.1891E-06_JPRB,2.6290E-06_JPRB/)
+KBO( :, 5,39, 2) = (/&
+&1.4423E-07_JPRB,2.1734E-06_JPRB,3.1901E-06_JPRB,3.7248E-06_JPRB,2.9256E-06_JPRB/)
+KBO( :, 1,40, 2) = (/&
+&2.2256E-08_JPRB,7.1912E-07_JPRB,1.2329E-06_JPRB,1.7745E-06_JPRB,1.5697E-06_JPRB/)
+KBO( :, 2,40, 2) = (/&
+&3.3569E-08_JPRB,8.7851E-07_JPRB,1.4396E-06_JPRB,1.9436E-06_JPRB,1.7055E-06_JPRB/)
+KBO( :, 3,40, 2) = (/&
+&5.0664E-08_JPRB,1.0879E-06_JPRB,1.7182E-06_JPRB,2.1900E-06_JPRB,1.8705E-06_JPRB/)
+KBO( :, 4,40, 2) = (/&
+&7.5118E-08_JPRB,1.3564E-06_JPRB,2.0680E-06_JPRB,2.5192E-06_JPRB,2.0668E-06_JPRB/)
+KBO( :, 5,40, 2) = (/&
+&1.0843E-07_JPRB,1.6886E-06_JPRB,2.4960E-06_JPRB,2.9369E-06_JPRB,2.2973E-06_JPRB/)
+KBO( :, 1,41, 2) = (/&
+&1.6447E-08_JPRB,5.6080E-07_JPRB,9.7444E-07_JPRB,1.4286E-06_JPRB,1.2435E-06_JPRB/)
+KBO( :, 2,41, 2) = (/&
+&2.4695E-08_JPRB,6.8242E-07_JPRB,1.1302E-06_JPRB,1.5500E-06_JPRB,1.3469E-06_JPRB/)
+KBO( :, 3,41, 2) = (/&
+&3.7349E-08_JPRB,8.4229E-07_JPRB,1.3428E-06_JPRB,1.7360E-06_JPRB,1.4732E-06_JPRB/)
+KBO( :, 4,41, 2) = (/&
+&5.5705E-08_JPRB,1.0497E-06_JPRB,1.6148E-06_JPRB,1.9875E-06_JPRB,1.6246E-06_JPRB/)
+KBO( :, 5,41, 2) = (/&
+&8.0988E-08_JPRB,1.3075E-06_JPRB,1.9479E-06_JPRB,2.3109E-06_JPRB,1.8030E-06_JPRB/)
+KBO( :, 1,42, 2) = (/&
+&1.2186E-08_JPRB,4.3819E-07_JPRB,7.7124E-07_JPRB,1.1538E-06_JPRB,9.8460E-07_JPRB/)
+KBO( :, 2,42, 2) = (/&
+&1.8167E-08_JPRB,5.3040E-07_JPRB,8.8867E-07_JPRB,1.2386E-06_JPRB,1.0631E-06_JPRB/)
+KBO( :, 3,42, 2) = (/&
+&2.7496E-08_JPRB,6.5240E-07_JPRB,1.0501E-06_JPRB,1.3776E-06_JPRB,1.1592E-06_JPRB/)
+KBO( :, 4,42, 2) = (/&
+&4.1226E-08_JPRB,8.1205E-07_JPRB,1.2611E-06_JPRB,1.5695E-06_JPRB,1.2755E-06_JPRB/)
+KBO( :, 5,42, 2) = (/&
+&6.0358E-08_JPRB,1.0122E-06_JPRB,1.5198E-06_JPRB,1.8189E-06_JPRB,1.4129E-06_JPRB/)
+KBO( :, 1,43, 2) = (/&
+&8.8825E-09_JPRB,3.4025E-07_JPRB,6.0770E-07_JPRB,9.3331E-07_JPRB,7.8085E-07_JPRB/)
+KBO( :, 2,43, 2) = (/&
+&1.3077E-08_JPRB,4.0821E-07_JPRB,6.9425E-07_JPRB,9.8759E-07_JPRB,8.3977E-07_JPRB/)
+KBO( :, 3,43, 2) = (/&
+&1.9763E-08_JPRB,4.9996E-07_JPRB,8.1437E-07_JPRB,1.0881E-06_JPRB,9.1252E-07_JPRB/)
+KBO( :, 4,43, 2) = (/&
+&2.9785E-08_JPRB,6.2062E-07_JPRB,9.7495E-07_JPRB,1.2316E-06_JPRB,1.0010E-06_JPRB/)
+KBO( :, 5,43, 2) = (/&
+&4.3968E-08_JPRB,7.7371E-07_JPRB,1.1737E-06_JPRB,1.4206E-06_JPRB,1.1059E-06_JPRB/)
+KBO( :, 1,44, 2) = (/&
+&6.4652E-09_JPRB,2.6432E-07_JPRB,4.7930E-07_JPRB,7.5854E-07_JPRB,6.2018E-07_JPRB/)
+KBO( :, 2,44, 2) = (/&
+&9.3431E-09_JPRB,3.1321E-07_JPRB,5.4189E-07_JPRB,7.8917E-07_JPRB,6.6342E-07_JPRB/)
+KBO( :, 3,44, 2) = (/&
+&1.4054E-08_JPRB,3.8170E-07_JPRB,6.3021E-07_JPRB,8.5948E-07_JPRB,7.1866E-07_JPRB/)
+KBO( :, 4,44, 2) = (/&
+&2.1257E-08_JPRB,4.7192E-07_JPRB,7.5053E-07_JPRB,9.6532E-07_JPRB,7.8542E-07_JPRB/)
+KBO( :, 5,44, 2) = (/&
+&3.1636E-08_JPRB,5.8814E-07_JPRB,9.0255E-07_JPRB,1.1069E-06_JPRB,8.6508E-07_JPRB/)
+KBO( :, 1,45, 2) = (/&
+&4.7493E-09_JPRB,2.0618E-07_JPRB,3.7955E-07_JPRB,6.2010E-07_JPRB,4.9320E-07_JPRB/)
+KBO( :, 2,45, 2) = (/&
+&6.7046E-09_JPRB,2.4103E-07_JPRB,4.2421E-07_JPRB,6.3409E-07_JPRB,5.2372E-07_JPRB/)
+KBO( :, 3,45, 2) = (/&
+&9.9979E-09_JPRB,2.9183E-07_JPRB,4.8903E-07_JPRB,6.8121E-07_JPRB,5.6534E-07_JPRB/)
+KBO( :, 4,45, 2) = (/&
+&1.5142E-08_JPRB,3.5915E-07_JPRB,5.7833E-07_JPRB,7.5825E-07_JPRB,6.1575E-07_JPRB/)
+KBO( :, 5,45, 2) = (/&
+&2.2692E-08_JPRB,4.4695E-07_JPRB,6.9435E-07_JPRB,8.6394E-07_JPRB,6.7584E-07_JPRB/)
+KBO( :, 1,46, 2) = (/&
+&3.5026E-09_JPRB,1.6095E-07_JPRB,3.0164E-07_JPRB,5.0988E-07_JPRB,3.9266E-07_JPRB/)
+KBO( :, 2,46, 2) = (/&
+&4.8056E-09_JPRB,1.8571E-07_JPRB,3.3238E-07_JPRB,5.1211E-07_JPRB,4.1411E-07_JPRB/)
+KBO( :, 3,46, 2) = (/&
+&7.0611E-09_JPRB,2.2256E-07_JPRB,3.7936E-07_JPRB,5.4108E-07_JPRB,4.4422E-07_JPRB/)
+KBO( :, 4,46, 2) = (/&
+&1.0674E-08_JPRB,2.7254E-07_JPRB,4.4484E-07_JPRB,5.9573E-07_JPRB,4.8213E-07_JPRB/)
+KBO( :, 5,46, 2) = (/&
+&1.6091E-08_JPRB,3.3807E-07_JPRB,5.3220E-07_JPRB,6.7368E-07_JPRB,5.2739E-07_JPRB/)
+KBO( :, 1,47, 2) = (/&
+&2.5860E-09_JPRB,1.2558E-07_JPRB,2.4079E-07_JPRB,4.2237E-07_JPRB,3.1326E-07_JPRB/)
+KBO( :, 2,47, 2) = (/&
+&3.4290E-09_JPRB,1.4300E-07_JPRB,2.6056E-07_JPRB,4.1623E-07_JPRB,3.2857E-07_JPRB/)
+KBO( :, 3,47, 2) = (/&
+&4.9220E-09_JPRB,1.6878E-07_JPRB,2.9365E-07_JPRB,4.3092E-07_JPRB,3.4960E-07_JPRB/)
+KBO( :, 4,47, 2) = (/&
+&7.3908E-09_JPRB,2.0541E-07_JPRB,3.4074E-07_JPRB,4.6771E-07_JPRB,3.7790E-07_JPRB/)
+KBO( :, 5,47, 2) = (/&
+&1.1182E-08_JPRB,2.5354E-07_JPRB,4.0498E-07_JPRB,5.2394E-07_JPRB,4.1187E-07_JPRB/)
+KBO( :, 1,48, 2) = (/&
+&1.9362E-09_JPRB,9.8548E-08_JPRB,1.9411E-07_JPRB,3.5272E-07_JPRB,2.4937E-07_JPRB/)
+KBO( :, 2,48, 2) = (/&
+&2.4798E-09_JPRB,1.1072E-07_JPRB,2.0550E-07_JPRB,3.4105E-07_JPRB,2.6090E-07_JPRB/)
+KBO( :, 3,48, 2) = (/&
+&3.4555E-09_JPRB,1.2865E-07_JPRB,2.2828E-07_JPRB,3.4594E-07_JPRB,2.7560E-07_JPRB/)
+KBO( :, 4,48, 2) = (/&
+&5.1234E-09_JPRB,1.5515E-07_JPRB,2.6207E-07_JPRB,3.6909E-07_JPRB,2.9595E-07_JPRB/)
+KBO( :, 5,48, 2) = (/&
+&7.7538E-09_JPRB,1.9045E-07_JPRB,3.0872E-07_JPRB,4.0878E-07_JPRB,3.2128E-07_JPRB/)
+KBO( :, 1,49, 2) = (/&
+&1.4693E-09_JPRB,7.7790E-08_JPRB,1.5796E-07_JPRB,2.9638E-07_JPRB,1.9770E-07_JPRB/)
+KBO( :, 2,49, 2) = (/&
+&1.8189E-09_JPRB,8.6134E-08_JPRB,1.6334E-07_JPRB,2.8139E-07_JPRB,2.0674E-07_JPRB/)
+KBO( :, 3,49, 2) = (/&
+&2.4514E-09_JPRB,9.8737E-08_JPRB,1.7842E-07_JPRB,2.8001E-07_JPRB,2.1740E-07_JPRB/)
+KBO( :, 4,49, 2) = (/&
+&3.5625E-09_JPRB,1.1749E-07_JPRB,2.0240E-07_JPRB,2.9292E-07_JPRB,2.3150E-07_JPRB/)
+KBO( :, 5,49, 2) = (/&
+&5.3682E-09_JPRB,1.4339E-07_JPRB,2.3606E-07_JPRB,3.2024E-07_JPRB,2.5000E-07_JPRB/)
+KBO( :, 1,50, 2) = (/&
+&1.1339E-09_JPRB,6.1945E-08_JPRB,1.2933E-07_JPRB,2.5041E-07_JPRB,1.5748E-07_JPRB/)
+KBO( :, 2,50, 2) = (/&
+&1.3605E-09_JPRB,6.7603E-08_JPRB,1.3118E-07_JPRB,2.3383E-07_JPRB,1.6480E-07_JPRB/)
+KBO( :, 3,50, 2) = (/&
+&1.7751E-09_JPRB,7.6527E-08_JPRB,1.4063E-07_JPRB,2.2853E-07_JPRB,1.7288E-07_JPRB/)
+KBO( :, 4,50, 2) = (/&
+&2.5157E-09_JPRB,8.9697E-08_JPRB,1.5753E-07_JPRB,2.3451E-07_JPRB,1.8295E-07_JPRB/)
+KBO( :, 5,50, 2) = (/&
+&3.7579E-09_JPRB,1.0875E-07_JPRB,1.8190E-07_JPRB,2.5266E-07_JPRB,1.9633E-07_JPRB/)
+KBO( :, 1,51, 2) = (/&
+&8.8714E-10_JPRB,4.9745E-08_JPRB,1.0659E-07_JPRB,2.1260E-07_JPRB,1.2561E-07_JPRB/)
+KBO( :, 2,51, 2) = (/&
+&1.0323E-09_JPRB,5.3369E-08_JPRB,1.0630E-07_JPRB,1.9542E-07_JPRB,1.3171E-07_JPRB/)
+KBO( :, 3,51, 2) = (/&
+&1.3054E-09_JPRB,5.9668E-08_JPRB,1.1161E-07_JPRB,1.8777E-07_JPRB,1.3801E-07_JPRB/)
+KBO( :, 4,51, 2) = (/&
+&1.7978E-09_JPRB,6.8999E-08_JPRB,1.2328E-07_JPRB,1.8919E-07_JPRB,1.4548E-07_JPRB/)
+KBO( :, 5,51, 2) = (/&
+&2.6478E-09_JPRB,8.2837E-08_JPRB,1.4093E-07_JPRB,2.0051E-07_JPRB,1.5510E-07_JPRB/)
+KBO( :, 1,52, 2) = (/&
+&7.0184E-10_JPRB,4.0190E-08_JPRB,8.8218E-08_JPRB,1.8136E-07_JPRB,9.9731E-08_JPRB/)
+KBO( :, 2,52, 2) = (/&
+&7.9197E-10_JPRB,4.2349E-08_JPRB,8.6755E-08_JPRB,1.6417E-07_JPRB,1.0496E-07_JPRB/)
+KBO( :, 3,52, 2) = (/&
+&9.7132E-10_JPRB,4.6717E-08_JPRB,8.9179E-08_JPRB,1.5515E-07_JPRB,1.1000E-07_JPRB/)
+KBO( :, 4,52, 2) = (/&
+&1.2972E-09_JPRB,5.3380E-08_JPRB,9.6954E-08_JPRB,1.5366E-07_JPRB,1.1563E-07_JPRB/)
+KBO( :, 5,52, 2) = (/&
+&1.8721E-09_JPRB,6.3248E-08_JPRB,1.0959E-07_JPRB,1.5990E-07_JPRB,1.2254E-07_JPRB/)
+KBO( :, 1,53, 2) = (/&
+&5.6092E-10_JPRB,3.2648E-08_JPRB,7.3117E-08_JPRB,1.5519E-07_JPRB,7.8979E-08_JPRB/)
+KBO( :, 2,53, 2) = (/&
+&6.1423E-10_JPRB,3.3821E-08_JPRB,7.1138E-08_JPRB,1.3880E-07_JPRB,8.3275E-08_JPRB/)
+KBO( :, 3,53, 2) = (/&
+&7.3095E-10_JPRB,3.6763E-08_JPRB,7.1824E-08_JPRB,1.2909E-07_JPRB,8.7408E-08_JPRB/)
+KBO( :, 4,53, 2) = (/&
+&9.4591E-10_JPRB,4.1492E-08_JPRB,7.6609E-08_JPRB,1.2565E-07_JPRB,9.1725E-08_JPRB/)
+KBO( :, 5,53, 2) = (/&
+&1.3305E-09_JPRB,4.8452E-08_JPRB,8.5519E-08_JPRB,1.2833E-07_JPRB,9.6780E-08_JPRB/)
+KBO( :, 1,54, 2) = (/&
+&4.5340E-10_JPRB,2.6715E-08_JPRB,6.0844E-08_JPRB,1.3273E-07_JPRB,6.3768E-08_JPRB/)
+KBO( :, 2,54, 2) = (/&
+&4.8357E-10_JPRB,2.7241E-08_JPRB,5.8664E-08_JPRB,1.1758E-07_JPRB,6.7028E-08_JPRB/)
+KBO( :, 3,54, 2) = (/&
+&5.5955E-10_JPRB,2.9137E-08_JPRB,5.8341E-08_JPRB,1.0779E-07_JPRB,7.0461E-08_JPRB/)
+KBO( :, 4,54, 2) = (/&
+&7.0364E-10_JPRB,3.2508E-08_JPRB,6.1041E-08_JPRB,1.0330E-07_JPRB,7.3905E-08_JPRB/)
+KBO( :, 5,54, 2) = (/&
+&9.6348E-10_JPRB,3.7510E-08_JPRB,6.7236E-08_JPRB,1.0378E-07_JPRB,7.7793E-08_JPRB/)
+KBO( :, 1,55, 2) = (/&
+&3.7018E-10_JPRB,2.1877E-08_JPRB,5.0748E-08_JPRB,1.1383E-07_JPRB,5.2143E-08_JPRB/)
+KBO( :, 2,55, 2) = (/&
+&3.8461E-10_JPRB,2.2059E-08_JPRB,4.8491E-08_JPRB,9.9810E-08_JPRB,5.4531E-08_JPRB/)
+KBO( :, 3,55, 2) = (/&
+&4.3319E-10_JPRB,2.3219E-08_JPRB,4.7656E-08_JPRB,9.0291E-08_JPRB,5.7357E-08_JPRB/)
+KBO( :, 4,55, 2) = (/&
+&5.3033E-10_JPRB,2.5603E-08_JPRB,4.8945E-08_JPRB,8.5282E-08_JPRB,6.0114E-08_JPRB/)
+KBO( :, 5,55, 2) = (/&
+&7.0668E-10_JPRB,2.9236E-08_JPRB,5.3162E-08_JPRB,8.4413E-08_JPRB,6.3151E-08_JPRB/)
+KBO( :, 1,56, 2) = (/&
+&3.0445E-10_JPRB,1.7931E-08_JPRB,4.2378E-08_JPRB,9.8533E-08_JPRB,4.2768E-08_JPRB/)
+KBO( :, 2,56, 2) = (/&
+&3.0831E-10_JPRB,1.7934E-08_JPRB,4.0116E-08_JPRB,8.4908E-08_JPRB,4.4445E-08_JPRB/)
+KBO( :, 3,56, 2) = (/&
+&3.3824E-10_JPRB,1.8600E-08_JPRB,3.9063E-08_JPRB,7.5998E-08_JPRB,4.6738E-08_JPRB/)
+KBO( :, 4,56, 2) = (/&
+&4.0330E-10_JPRB,2.0246E-08_JPRB,3.9492E-08_JPRB,7.0783E-08_JPRB,4.8957E-08_JPRB/)
+KBO( :, 5,56, 2) = (/&
+&5.2280E-10_JPRB,2.2872E-08_JPRB,4.2190E-08_JPRB,6.9008E-08_JPRB,5.1331E-08_JPRB/)
+KBO( :, 1,57, 2) = (/&
+&2.5188E-10_JPRB,1.4754E-08_JPRB,3.5438E-08_JPRB,8.5756E-08_JPRB,3.5193E-08_JPRB/)
+KBO( :, 2,57, 2) = (/&
+&2.4912E-10_JPRB,1.4670E-08_JPRB,3.3337E-08_JPRB,7.2430E-08_JPRB,3.6276E-08_JPRB/)
+KBO( :, 3,57, 2) = (/&
+&2.6653E-10_JPRB,1.4983E-08_JPRB,3.2184E-08_JPRB,6.4241E-08_JPRB,3.8128E-08_JPRB/)
+KBO( :, 4,57, 2) = (/&
+&3.0939E-10_JPRB,1.6062E-08_JPRB,3.2064E-08_JPRB,5.9025E-08_JPRB,3.9920E-08_JPRB/)
+KBO( :, 5,57, 2) = (/&
+&3.9021E-10_JPRB,1.7948E-08_JPRB,3.3635E-08_JPRB,5.6680E-08_JPRB,4.1787E-08_JPRB/)
+KBO( :, 1,58, 2) = (/&
+&2.0925E-10_JPRB,1.2170E-08_JPRB,2.9715E-08_JPRB,7.4671E-08_JPRB,2.9109E-08_JPRB/)
+KBO( :, 2,58, 2) = (/&
+&2.0318E-10_JPRB,1.2015E-08_JPRB,2.7763E-08_JPRB,6.1869E-08_JPRB,2.9789E-08_JPRB/)
+KBO( :, 3,58, 2) = (/&
+&2.1207E-10_JPRB,1.2135E-08_JPRB,2.6581E-08_JPRB,5.4388E-08_JPRB,3.1254E-08_JPRB/)
+KBO( :, 4,58, 2) = (/&
+&2.3998E-10_JPRB,1.2810E-08_JPRB,2.6176E-08_JPRB,4.9330E-08_JPRB,3.2703E-08_JPRB/)
+KBO( :, 5,58, 2) = (/&
+&2.9508E-10_JPRB,1.4156E-08_JPRB,2.6975E-08_JPRB,4.6724E-08_JPRB,3.4169E-08_JPRB/)
+KBO( :, 1,59, 2) = (/&
+&1.7253E-10_JPRB,9.9906E-09_JPRB,2.4546E-08_JPRB,6.2526E-08_JPRB,2.4559E-08_JPRB/)
+KBO( :, 2,59, 2) = (/&
+&1.6644E-10_JPRB,9.8313E-09_JPRB,2.2868E-08_JPRB,5.1484E-08_JPRB,2.5300E-08_JPRB/)
+KBO( :, 3,59, 2) = (/&
+&1.7202E-10_JPRB,9.8966E-09_JPRB,2.1823E-08_JPRB,4.5067E-08_JPRB,2.6453E-08_JPRB/)
+KBO( :, 4,59, 2) = (/&
+&1.9270E-10_JPRB,1.0388E-08_JPRB,2.1414E-08_JPRB,4.0702E-08_JPRB,2.7518E-08_JPRB/)
+KBO( :, 5,59, 2) = (/&
+&2.3454E-10_JPRB,1.1431E-08_JPRB,2.1928E-08_JPRB,3.8364E-08_JPRB,2.8657E-08_JPRB/)
+KBO( :, 1,13, 3) = (/&
+&9.3592E-06_JPRB,1.8635E-04_JPRB,3.2360E-04_JPRB,5.1013E-04_JPRB,1.3719E-03_JPRB/)
+KBO( :, 2,13, 3) = (/&
+&1.3997E-05_JPRB,2.2150E-04_JPRB,3.6186E-04_JPRB,5.0766E-04_JPRB,1.6952E-03_JPRB/)
+KBO( :, 3,13, 3) = (/&
+&2.1472E-05_JPRB,2.7029E-04_JPRB,4.2086E-04_JPRB,5.4160E-04_JPRB,2.0559E-03_JPRB/)
+KBO( :, 4,13, 3) = (/&
+&3.2949E-05_JPRB,3.3595E-04_JPRB,5.0190E-04_JPRB,6.0909E-04_JPRB,2.4422E-03_JPRB/)
+KBO( :, 5,13, 3) = (/&
+&5.0055E-05_JPRB,4.2283E-04_JPRB,6.0794E-04_JPRB,7.0057E-04_JPRB,2.8431E-03_JPRB/)
+KBO( :, 1,14, 3) = (/&
+&7.7811E-06_JPRB,1.5443E-04_JPRB,2.6731E-04_JPRB,4.1737E-04_JPRB,1.1937E-03_JPRB/)
+KBO( :, 2,14, 3) = (/&
+&1.1790E-05_JPRB,1.8454E-04_JPRB,3.0104E-04_JPRB,4.1861E-04_JPRB,1.4661E-03_JPRB/)
+KBO( :, 3,14, 3) = (/&
+&1.8281E-05_JPRB,2.2651E-04_JPRB,3.5177E-04_JPRB,4.5049E-04_JPRB,1.7659E-03_JPRB/)
+KBO( :, 4,14, 3) = (/&
+&2.8361E-05_JPRB,2.8319E-04_JPRB,4.2136E-04_JPRB,5.0814E-04_JPRB,2.0759E-03_JPRB/)
+KBO( :, 5,14, 3) = (/&
+&4.3496E-05_JPRB,3.5806E-04_JPRB,5.1240E-04_JPRB,5.8626E-04_JPRB,2.3955E-03_JPRB/)
+KBO( :, 1,15, 3) = (/&
+&6.4085E-06_JPRB,1.2732E-04_JPRB,2.2021E-04_JPRB,3.4093E-04_JPRB,1.0104E-03_JPRB/)
+KBO( :, 2,15, 3) = (/&
+&9.8620E-06_JPRB,1.5303E-04_JPRB,2.4982E-04_JPRB,3.4487E-04_JPRB,1.2327E-03_JPRB/)
+KBO( :, 3,15, 3) = (/&
+&1.5483E-05_JPRB,1.8913E-04_JPRB,2.9331E-04_JPRB,3.7385E-04_JPRB,1.4660E-03_JPRB/)
+KBO( :, 4,15, 3) = (/&
+&2.4329E-05_JPRB,2.3772E-04_JPRB,3.5313E-04_JPRB,4.2330E-04_JPRB,1.7021E-03_JPRB/)
+KBO( :, 5,15, 3) = (/&
+&3.7620E-05_JPRB,3.0181E-04_JPRB,4.3081E-04_JPRB,4.9037E-04_JPRB,1.9309E-03_JPRB/)
+KBO( :, 1,16, 3) = (/&
+&5.2944E-06_JPRB,1.0489E-04_JPRB,1.8139E-04_JPRB,2.7836E-04_JPRB,8.1553E-04_JPRB/)
+KBO( :, 2,16, 3) = (/&
+&8.2639E-06_JPRB,1.2685E-04_JPRB,2.0708E-04_JPRB,2.8409E-04_JPRB,9.8078E-04_JPRB/)
+KBO( :, 3,16, 3) = (/&
+&1.3171E-05_JPRB,1.5775E-04_JPRB,2.4443E-04_JPRB,3.0988E-04_JPRB,1.1503E-03_JPRB/)
+KBO( :, 4,16, 3) = (/&
+&2.0912E-05_JPRB,1.9929E-04_JPRB,2.9554E-04_JPRB,3.5252E-04_JPRB,1.3131E-03_JPRB/)
+KBO( :, 5,16, 3) = (/&
+&3.2496E-05_JPRB,2.5409E-04_JPRB,3.6179E-04_JPRB,4.0963E-04_JPRB,1.4760E-03_JPRB/)
+KBO( :, 1,17, 3) = (/&
+&4.4493E-06_JPRB,8.6770E-05_JPRB,1.4991E-04_JPRB,2.2771E-04_JPRB,6.5245E-04_JPRB/)
+KBO( :, 2,17, 3) = (/&
+&7.0395E-06_JPRB,1.0559E-04_JPRB,1.7203E-04_JPRB,2.3430E-04_JPRB,7.7262E-04_JPRB/)
+KBO( :, 3,17, 3) = (/&
+&1.1335E-05_JPRB,1.3208E-04_JPRB,2.0407E-04_JPRB,2.5722E-04_JPRB,8.9028E-04_JPRB/)
+KBO( :, 4,17, 3) = (/&
+&1.8069E-05_JPRB,1.6765E-04_JPRB,2.4779E-04_JPRB,2.9368E-04_JPRB,1.0063E-03_JPRB/)
+KBO( :, 5,17, 3) = (/&
+&2.8090E-05_JPRB,2.1455E-04_JPRB,3.0412E-04_JPRB,3.4249E-04_JPRB,1.1248E-03_JPRB/)
+KBO( :, 1,18, 3) = (/&
+&3.8316E-06_JPRB,7.2347E-05_JPRB,1.2458E-04_JPRB,1.8673E-04_JPRB,5.2122E-04_JPRB/)
+KBO( :, 2,18, 3) = (/&
+&6.1184E-06_JPRB,8.8580E-05_JPRB,1.4361E-04_JPRB,1.9377E-04_JPRB,6.0767E-04_JPRB/)
+KBO( :, 3,18, 3) = (/&
+&9.8947E-06_JPRB,1.1135E-04_JPRB,1.7120E-04_JPRB,2.1410E-04_JPRB,6.9194E-04_JPRB/)
+KBO( :, 4,18, 3) = (/&
+&1.5756E-05_JPRB,1.4190E-04_JPRB,2.0855E-04_JPRB,2.4531E-04_JPRB,7.7868E-04_JPRB/)
+KBO( :, 5,18, 3) = (/&
+&2.4472E-05_JPRB,1.8227E-04_JPRB,2.5667E-04_JPRB,2.8708E-04_JPRB,8.6975E-04_JPRB/)
+KBO( :, 1,19, 3) = (/&
+&3.3167E-06_JPRB,6.0472E-05_JPRB,1.0361E-04_JPRB,1.5344E-04_JPRB,4.1912E-04_JPRB/)
+KBO( :, 2,19, 3) = (/&
+&5.3275E-06_JPRB,7.4485E-05_JPRB,1.2002E-04_JPRB,1.6049E-04_JPRB,4.8167E-04_JPRB/)
+KBO( :, 3,19, 3) = (/&
+&8.6182E-06_JPRB,9.4048E-05_JPRB,1.4375E-04_JPRB,1.7839E-04_JPRB,5.4498E-04_JPRB/)
+KBO( :, 4,19, 3) = (/&
+&1.3697E-05_JPRB,1.2034E-04_JPRB,1.7570E-04_JPRB,2.0508E-04_JPRB,6.1244E-04_JPRB/)
+KBO( :, 5,19, 3) = (/&
+&2.1261E-05_JPRB,1.5516E-04_JPRB,2.1680E-04_JPRB,2.4089E-04_JPRB,6.8509E-04_JPRB/)
+KBO( :, 1,20, 3) = (/&
+&2.9049E-06_JPRB,5.0863E-05_JPRB,8.6497E-05_JPRB,1.2631E-04_JPRB,3.3898E-04_JPRB/)
+KBO( :, 2,20, 3) = (/&
+&4.6782E-06_JPRB,6.3037E-05_JPRB,1.0077E-04_JPRB,1.3328E-04_JPRB,3.8658E-04_JPRB/)
+KBO( :, 3,20, 3) = (/&
+&7.5551E-06_JPRB,7.9949E-05_JPRB,1.2127E-04_JPRB,1.4912E-04_JPRB,4.3608E-04_JPRB/)
+KBO( :, 4,20, 3) = (/&
+&1.1985E-05_JPRB,1.0272E-04_JPRB,1.4880E-04_JPRB,1.7209E-04_JPRB,4.8968E-04_JPRB/)
+KBO( :, 5,20, 3) = (/&
+&1.8564E-05_JPRB,1.3289E-04_JPRB,1.8395E-04_JPRB,2.0290E-04_JPRB,5.4862E-04_JPRB/)
+KBO( :, 1,21, 3) = (/&
+&2.5348E-06_JPRB,4.2827E-05_JPRB,7.2239E-05_JPRB,1.0405E-04_JPRB,2.7347E-04_JPRB/)
+KBO( :, 2,21, 3) = (/&
+&4.0896E-06_JPRB,5.3392E-05_JPRB,8.4682E-05_JPRB,1.1078E-04_JPRB,3.1033E-04_JPRB/)
+KBO( :, 3,21, 3) = (/&
+&6.5911E-06_JPRB,6.8002E-05_JPRB,1.0240E-04_JPRB,1.2468E-04_JPRB,3.4945E-04_JPRB/)
+KBO( :, 4,21, 3) = (/&
+&1.0443E-05_JPRB,8.7777E-05_JPRB,1.2604E-04_JPRB,1.4448E-04_JPRB,3.9270E-04_JPRB/)
+KBO( :, 5,21, 3) = (/&
+&1.6126E-05_JPRB,1.1384E-04_JPRB,1.5619E-04_JPRB,1.7100E-04_JPRB,4.4032E-04_JPRB/)
+KBO( :, 1,22, 3) = (/&
+&2.2535E-06_JPRB,3.6484E-05_JPRB,6.0844E-05_JPRB,8.5915E-05_JPRB,2.1861E-04_JPRB/)
+KBO( :, 2,22, 3) = (/&
+&3.6421E-06_JPRB,4.5838E-05_JPRB,7.1930E-05_JPRB,9.2688E-05_JPRB,2.4695E-04_JPRB/)
+KBO( :, 3,22, 3) = (/&
+&5.8649E-06_JPRB,5.8716E-05_JPRB,8.7516E-05_JPRB,1.0512E-04_JPRB,2.7805E-04_JPRB/)
+KBO( :, 4,22, 3) = (/&
+&9.2724E-06_JPRB,7.6158E-05_JPRB,1.0809E-04_JPRB,1.2256E-04_JPRB,3.1283E-04_JPRB/)
+KBO( :, 5,22, 3) = (/&
+&1.4237E-05_JPRB,9.8834E-05_JPRB,1.3432E-04_JPRB,1.4571E-04_JPRB,3.5095E-04_JPRB/)
+KBO( :, 1,23, 3) = (/&
+&1.9940E-06_JPRB,3.1133E-05_JPRB,5.1328E-05_JPRB,7.1090E-05_JPRB,1.7327E-04_JPRB/)
+KBO( :, 2,23, 3) = (/&
+&3.2312E-06_JPRB,3.9399E-05_JPRB,6.1179E-05_JPRB,7.7708E-05_JPRB,1.9531E-04_JPRB/)
+KBO( :, 3,23, 3) = (/&
+&5.2011E-06_JPRB,5.0768E-05_JPRB,7.4847E-05_JPRB,8.8760E-05_JPRB,2.2017E-04_JPRB/)
+KBO( :, 4,23, 3) = (/&
+&8.1919E-06_JPRB,6.6023E-05_JPRB,9.2815E-05_JPRB,1.0413E-04_JPRB,2.4809E-04_JPRB/)
+KBO( :, 5,23, 3) = (/&
+&1.2498E-05_JPRB,8.5676E-05_JPRB,1.1550E-04_JPRB,1.2430E-04_JPRB,2.7861E-04_JPRB/)
+KBO( :, 1,24, 3) = (/&
+&1.7459E-06_JPRB,2.6558E-05_JPRB,4.3302E-05_JPRB,5.8931E-05_JPRB,1.3456E-04_JPRB/)
+KBO( :, 2,24, 3) = (/&
+&2.8378E-06_JPRB,3.3840E-05_JPRB,5.2034E-05_JPRB,6.5221E-05_JPRB,1.5184E-04_JPRB/)
+KBO( :, 3,24, 3) = (/&
+&4.5668E-06_JPRB,4.3812E-05_JPRB,6.4027E-05_JPRB,7.5015E-05_JPRB,1.7156E-04_JPRB/)
+KBO( :, 4,24, 3) = (/&
+&7.1655E-06_JPRB,5.7056E-05_JPRB,7.9597E-05_JPRB,8.8545E-05_JPRB,1.9368E-04_JPRB/)
+KBO( :, 5,24, 3) = (/&
+&1.0891E-05_JPRB,7.4041E-05_JPRB,9.9156E-05_JPRB,1.0602E-04_JPRB,2.1759E-04_JPRB/)
+KBO( :, 1,25, 3) = (/&
+&1.5351E-06_JPRB,2.2739E-05_JPRB,3.6661E-05_JPRB,4.9033E-05_JPRB,1.0464E-04_JPRB/)
+KBO( :, 2,25, 3) = (/&
+&2.5013E-06_JPRB,2.9156E-05_JPRB,4.4403E-05_JPRB,5.4906E-05_JPRB,1.1839E-04_JPRB/)
+KBO( :, 3,25, 3) = (/&
+&4.0193E-06_JPRB,3.7867E-05_JPRB,5.4900E-05_JPRB,6.3596E-05_JPRB,1.3405E-04_JPRB/)
+KBO( :, 4,25, 3) = (/&
+&6.2816E-06_JPRB,4.9369E-05_JPRB,6.8362E-05_JPRB,7.5478E-05_JPRB,1.5142E-04_JPRB/)
+KBO( :, 5,25, 3) = (/&
+&9.5147E-06_JPRB,6.4006E-05_JPRB,8.5212E-05_JPRB,9.0532E-05_JPRB,1.6998E-04_JPRB/)
+KBO( :, 1,26, 3) = (/&
+&1.3683E-06_JPRB,1.9609E-05_JPRB,3.1239E-05_JPRB,4.1025E-05_JPRB,8.2529E-05_JPRB/)
+KBO( :, 2,26, 3) = (/&
+&2.2313E-06_JPRB,2.5269E-05_JPRB,3.8126E-05_JPRB,4.6436E-05_JPRB,9.3600E-05_JPRB/)
+KBO( :, 3,26, 3) = (/&
+&3.5754E-06_JPRB,3.2913E-05_JPRB,4.7295E-05_JPRB,5.4190E-05_JPRB,1.0611E-04_JPRB/)
+KBO( :, 4,26, 3) = (/&
+&5.5664E-06_JPRB,4.2915E-05_JPRB,5.8952E-05_JPRB,6.4581E-05_JPRB,1.1966E-04_JPRB/)
+KBO( :, 5,26, 3) = (/&
+&8.3928E-06_JPRB,5.5540E-05_JPRB,7.3478E-05_JPRB,7.7578E-05_JPRB,1.3407E-04_JPRB/)
+KBO( :, 1,27, 3) = (/&
+&1.2171E-06_JPRB,1.6923E-05_JPRB,2.6666E-05_JPRB,3.4428E-05_JPRB,6.4836E-05_JPRB/)
+KBO( :, 2,27, 3) = (/&
+&1.9862E-06_JPRB,2.1896E-05_JPRB,3.2752E-05_JPRB,3.9332E-05_JPRB,7.3650E-05_JPRB/)
+KBO( :, 3,27, 3) = (/&
+&3.1750E-06_JPRB,2.8593E-05_JPRB,4.0727E-05_JPRB,4.6210E-05_JPRB,8.3366E-05_JPRB/)
+KBO( :, 4,27, 3) = (/&
+&4.9257E-06_JPRB,3.7245E-05_JPRB,5.0788E-05_JPRB,5.5242E-05_JPRB,9.3744E-05_JPRB/)
+KBO( :, 5,27, 3) = (/&
+&7.3934E-06_JPRB,4.8090E-05_JPRB,6.3249E-05_JPRB,6.6414E-05_JPRB,1.0490E-04_JPRB/)
+KBO( :, 1,28, 3) = (/&
+&1.0792E-06_JPRB,1.4600E-05_JPRB,2.2784E-05_JPRB,2.8952E-05_JPRB,5.0485E-05_JPRB/)
+KBO( :, 2,28, 3) = (/&
+&1.7629E-06_JPRB,1.8972E-05_JPRB,2.8123E-05_JPRB,3.3346E-05_JPRB,5.7277E-05_JPRB/)
+KBO( :, 3,28, 3) = (/&
+&2.8131E-06_JPRB,2.4805E-05_JPRB,3.5042E-05_JPRB,3.9409E-05_JPRB,6.4622E-05_JPRB/)
+KBO( :, 4,28, 3) = (/&
+&4.3512E-06_JPRB,3.2251E-05_JPRB,4.3694E-05_JPRB,4.7211E-05_JPRB,7.2602E-05_JPRB/)
+KBO( :, 5,28, 3) = (/&
+&6.4989E-06_JPRB,4.1559E-05_JPRB,5.4337E-05_JPRB,5.6763E-05_JPRB,8.1333E-05_JPRB/)
+KBO( :, 1,29, 3) = (/&
+&9.6857E-07_JPRB,1.2666E-05_JPRB,1.9556E-05_JPRB,2.4447E-05_JPRB,3.9529E-05_JPRB/)
+KBO( :, 2,29, 3) = (/&
+&1.5818E-06_JPRB,1.6515E-05_JPRB,2.4236E-05_JPRB,2.8362E-05_JPRB,4.4697E-05_JPRB/)
+KBO( :, 3,29, 3) = (/&
+&2.5168E-06_JPRB,2.1586E-05_JPRB,3.0227E-05_JPRB,3.3688E-05_JPRB,5.0413E-05_JPRB/)
+KBO( :, 4,29, 3) = (/&
+&3.8723E-06_JPRB,2.8010E-05_JPRB,3.7666E-05_JPRB,4.0411E-05_JPRB,5.6688E-05_JPRB/)
+KBO( :, 5,29, 3) = (/&
+&5.7462E-06_JPRB,3.6016E-05_JPRB,4.6768E-05_JPRB,4.8565E-05_JPRB,6.3553E-05_JPRB/)
+KBO( :, 1,30, 3) = (/&
+&8.7056E-07_JPRB,1.1001E-05_JPRB,1.6806E-05_JPRB,2.0679E-05_JPRB,3.0642E-05_JPRB/)
+KBO( :, 2,30, 3) = (/&
+&1.4204E-06_JPRB,1.4373E-05_JPRB,2.0891E-05_JPRB,2.4158E-05_JPRB,3.4644E-05_JPRB/)
+KBO( :, 3,30, 3) = (/&
+&2.2511E-06_JPRB,1.8769E-05_JPRB,2.6058E-05_JPRB,2.8796E-05_JPRB,3.9114E-05_JPRB/)
+KBO( :, 4,30, 3) = (/&
+&3.4456E-06_JPRB,2.4312E-05_JPRB,3.2449E-05_JPRB,3.4570E-05_JPRB,4.4025E-05_JPRB/)
+KBO( :, 5,30, 3) = (/&
+&5.0796E-06_JPRB,3.1203E-05_JPRB,4.0247E-05_JPRB,4.1528E-05_JPRB,4.9430E-05_JPRB/)
+KBO( :, 1,31, 3) = (/&
+&7.8800E-07_JPRB,9.5841E-06_JPRB,1.4480E-05_JPRB,1.7537E-05_JPRB,2.3703E-05_JPRB/)
+KBO( :, 2,31, 3) = (/&
+&1.2827E-06_JPRB,1.2532E-05_JPRB,1.8035E-05_JPRB,2.0619E-05_JPRB,2.6829E-05_JPRB/)
+KBO( :, 3,31, 3) = (/&
+&2.0224E-06_JPRB,1.6343E-05_JPRB,2.2488E-05_JPRB,2.4639E-05_JPRB,3.0300E-05_JPRB/)
+KBO( :, 4,31, 3) = (/&
+&3.0735E-06_JPRB,2.1137E-05_JPRB,2.7988E-05_JPRB,2.9590E-05_JPRB,3.4174E-05_JPRB/)
+KBO( :, 5,31, 3) = (/&
+&4.5010E-06_JPRB,2.7051E-05_JPRB,3.4649E-05_JPRB,3.5519E-05_JPRB,3.8449E-05_JPRB/)
+KBO( :, 1,32, 3) = (/&
+&7.1645E-07_JPRB,8.3621E-06_JPRB,1.2499E-05_JPRB,1.4908E-05_JPRB,1.8443E-05_JPRB/)
+KBO( :, 2,32, 3) = (/&
+&1.1619E-06_JPRB,1.0942E-05_JPRB,1.5584E-05_JPRB,1.7626E-05_JPRB,2.0886E-05_JPRB/)
+KBO( :, 3,32, 3) = (/&
+&1.8202E-06_JPRB,1.4246E-05_JPRB,1.9422E-05_JPRB,2.1099E-05_JPRB,2.3648E-05_JPRB/)
+KBO( :, 4,32, 3) = (/&
+&2.7468E-06_JPRB,1.8389E-05_JPRB,2.4154E-05_JPRB,2.5344E-05_JPRB,2.6722E-05_JPRB/)
+KBO( :, 5,32, 3) = (/&
+&3.9939E-06_JPRB,2.3459E-05_JPRB,2.9845E-05_JPRB,3.0391E-05_JPRB,3.0128E-05_JPRB/)
+KBO( :, 1,33, 3) = (/&
+&6.5279E-07_JPRB,7.3021E-06_JPRB,1.0797E-05_JPRB,1.2695E-05_JPRB,1.4402E-05_JPRB/)
+KBO( :, 2,33, 3) = (/&
+&1.0533E-06_JPRB,9.5550E-06_JPRB,1.3466E-05_JPRB,1.5078E-05_JPRB,1.6322E-05_JPRB/)
+KBO( :, 3,33, 3) = (/&
+&1.6386E-06_JPRB,1.2420E-05_JPRB,1.6777E-05_JPRB,1.8071E-05_JPRB,1.8509E-05_JPRB/)
+KBO( :, 4,33, 3) = (/&
+&2.4555E-06_JPRB,1.6002E-05_JPRB,2.0850E-05_JPRB,2.1713E-05_JPRB,2.0967E-05_JPRB/)
+KBO( :, 5,33, 3) = (/&
+&3.5438E-06_JPRB,2.0331E-05_JPRB,2.5695E-05_JPRB,2.6001E-05_JPRB,2.3644E-05_JPRB/)
+KBO( :, 1,34, 3) = (/&
+&5.8863E-07_JPRB,6.3339E-06_JPRB,9.2734E-06_JPRB,1.0778E-05_JPRB,1.1469E-05_JPRB/)
+KBO( :, 2,34, 3) = (/&
+&9.4445E-07_JPRB,8.2845E-06_JPRB,1.1567E-05_JPRB,1.2839E-05_JPRB,1.3017E-05_JPRB/)
+KBO( :, 3,34, 3) = (/&
+&1.4596E-06_JPRB,1.0750E-05_JPRB,1.4406E-05_JPRB,1.5399E-05_JPRB,1.4774E-05_JPRB/)
+KBO( :, 4,34, 3) = (/&
+&2.1724E-06_JPRB,1.3818E-05_JPRB,1.7879E-05_JPRB,1.8493E-05_JPRB,1.6729E-05_JPRB/)
+KBO( :, 5,34, 3) = (/&
+&3.1148E-06_JPRB,1.7498E-05_JPRB,2.1987E-05_JPRB,2.2131E-05_JPRB,1.8824E-05_JPRB/)
+KBO( :, 1,35, 3) = (/&
+&5.0537E-07_JPRB,5.3493E-06_JPRB,7.7919E-06_JPRB,9.0039E-06_JPRB,8.9781E-06_JPRB/)
+KBO( :, 2,35, 3) = (/&
+&8.0918E-07_JPRB,6.9937E-06_JPRB,9.7192E-06_JPRB,1.0739E-05_JPRB,1.0213E-05_JPRB/)
+KBO( :, 3,35, 3) = (/&
+&1.2470E-06_JPRB,9.0680E-06_JPRB,1.2102E-05_JPRB,1.2886E-05_JPRB,1.1596E-05_JPRB/)
+KBO( :, 4,35, 3) = (/&
+&1.8501E-06_JPRB,1.1641E-05_JPRB,1.5006E-05_JPRB,1.5470E-05_JPRB,1.3118E-05_JPRB/)
+KBO( :, 5,35, 3) = (/&
+&2.6449E-06_JPRB,1.4713E-05_JPRB,1.8433E-05_JPRB,1.8505E-05_JPRB,1.4740E-05_JPRB/)
+KBO( :, 1,36, 3) = (/&
+&4.1057E-07_JPRB,4.3814E-06_JPRB,6.3851E-06_JPRB,7.3787E-06_JPRB,6.8704E-06_JPRB/)
+KBO( :, 2,36, 3) = (/&
+&6.5882E-07_JPRB,5.7295E-06_JPRB,7.9649E-06_JPRB,8.8014E-06_JPRB,7.8310E-06_JPRB/)
+KBO( :, 3,36, 3) = (/&
+&1.0168E-06_JPRB,7.4305E-06_JPRB,9.9179E-06_JPRB,1.0562E-05_JPRB,8.9079E-06_JPRB/)
+KBO( :, 4,36, 3) = (/&
+&1.5108E-06_JPRB,9.5390E-06_JPRB,1.2298E-05_JPRB,1.2679E-05_JPRB,1.0083E-05_JPRB/)
+KBO( :, 5,36, 3) = (/&
+&2.1616E-06_JPRB,1.2056E-05_JPRB,1.5104E-05_JPRB,1.5169E-05_JPRB,1.1345E-05_JPRB/)
+KBO( :, 1,37, 3) = (/&
+&3.1315E-07_JPRB,3.4610E-06_JPRB,5.0780E-06_JPRB,5.9099E-06_JPRB,5.3692E-06_JPRB/)
+KBO( :, 2,37, 3) = (/&
+&5.0553E-07_JPRB,4.5300E-06_JPRB,6.3356E-06_JPRB,7.0381E-06_JPRB,6.1160E-06_JPRB/)
+KBO( :, 3,37, 3) = (/&
+&7.8502E-07_JPRB,5.8822E-06_JPRB,7.8910E-06_JPRB,8.4420E-06_JPRB,6.9587E-06_JPRB/)
+KBO( :, 4,37, 3) = (/&
+&1.1731E-06_JPRB,7.5654E-06_JPRB,9.7936E-06_JPRB,1.0137E-05_JPRB,7.8860E-06_JPRB/)
+KBO( :, 5,37, 3) = (/&
+&1.6874E-06_JPRB,9.5810E-06_JPRB,1.2045E-05_JPRB,1.2132E-05_JPRB,8.8810E-06_JPRB/)
+KBO( :, 1,38, 3) = (/&
+&2.3771E-07_JPRB,2.7274E-06_JPRB,4.0311E-06_JPRB,4.7281E-06_JPRB,4.1877E-06_JPRB/)
+KBO( :, 2,38, 3) = (/&
+&3.8612E-07_JPRB,3.5727E-06_JPRB,5.0296E-06_JPRB,5.6200E-06_JPRB,4.7630E-06_JPRB/)
+KBO( :, 3,38, 3) = (/&
+&6.0348E-07_JPRB,4.6457E-06_JPRB,6.2661E-06_JPRB,6.7370E-06_JPRB,5.4196E-06_JPRB/)
+KBO( :, 4,38, 3) = (/&
+&9.0735E-07_JPRB,5.9856E-06_JPRB,7.7840E-06_JPRB,8.0913E-06_JPRB,6.1484E-06_JPRB/)
+KBO( :, 5,38, 3) = (/&
+&1.3127E-06_JPRB,7.5975E-06_JPRB,9.5859E-06_JPRB,9.6880E-06_JPRB,6.9288E-06_JPRB/)
+KBO( :, 1,39, 3) = (/&
+&1.8023E-07_JPRB,2.1491E-06_JPRB,3.2000E-06_JPRB,3.7837E-06_JPRB,3.2502E-06_JPRB/)
+KBO( :, 2,39, 3) = (/&
+&2.9456E-07_JPRB,2.8164E-06_JPRB,3.9921E-06_JPRB,4.4877E-06_JPRB,3.6914E-06_JPRB/)
+KBO( :, 3,39, 3) = (/&
+&4.6344E-07_JPRB,3.6676E-06_JPRB,4.9751E-06_JPRB,5.3760E-06_JPRB,4.1983E-06_JPRB/)
+KBO( :, 4,39, 3) = (/&
+&7.0119E-07_JPRB,4.7335E-06_JPRB,6.1852E-06_JPRB,6.4579E-06_JPRB,4.7648E-06_JPRB/)
+KBO( :, 5,39, 3) = (/&
+&1.0202E-06_JPRB,6.0220E-06_JPRB,7.6267E-06_JPRB,7.7355E-06_JPRB,5.3712E-06_JPRB/)
+KBO( :, 1,40, 3) = (/&
+&1.2988E-07_JPRB,1.6490E-06_JPRB,2.4862E-06_JPRB,2.9837E-06_JPRB,2.5331E-06_JPRB/)
+KBO( :, 2,40, 3) = (/&
+&2.1421E-07_JPRB,2.1615E-06_JPRB,3.1003E-06_JPRB,3.5229E-06_JPRB,2.8723E-06_JPRB/)
+KBO( :, 3,40, 3) = (/&
+&3.4046E-07_JPRB,2.8213E-06_JPRB,3.8655E-06_JPRB,4.2144E-06_JPRB,3.2646E-06_JPRB/)
+KBO( :, 4,40, 3) = (/&
+&5.2031E-07_JPRB,3.6506E-06_JPRB,4.8112E-06_JPRB,5.0626E-06_JPRB,3.7075E-06_JPRB/)
+KBO( :, 5,40, 3) = (/&
+&7.6450E-07_JPRB,4.6621E-06_JPRB,5.9448E-06_JPRB,6.0685E-06_JPRB,4.1839E-06_JPRB/)
+KBO( :, 1,41, 3) = (/&
+&9.2788E-08_JPRB,1.2611E-06_JPRB,1.9271E-06_JPRB,2.3514E-06_JPRB,1.9748E-06_JPRB/)
+KBO( :, 2,41, 3) = (/&
+&1.5438E-07_JPRB,1.6527E-06_JPRB,2.4004E-06_JPRB,2.7614E-06_JPRB,2.2337E-06_JPRB/)
+KBO( :, 3,41, 3) = (/&
+&2.4802E-07_JPRB,2.1617E-06_JPRB,2.9945E-06_JPRB,3.2967E-06_JPRB,2.5364E-06_JPRB/)
+KBO( :, 4,41, 3) = (/&
+&3.8306E-07_JPRB,2.8040E-06_JPRB,3.7298E-06_JPRB,3.9584E-06_JPRB,2.8813E-06_JPRB/)
+KBO( :, 5,41, 3) = (/&
+&5.6866E-07_JPRB,3.5943E-06_JPRB,4.6183E-06_JPRB,4.7484E-06_JPRB,3.2555E-06_JPRB/)
+KBO( :, 1,42, 3) = (/&
+&6.6123E-08_JPRB,9.6442E-07_JPRB,1.4943E-06_JPRB,1.8557E-06_JPRB,1.5379E-06_JPRB/)
+KBO( :, 2,42, 3) = (/&
+&1.1090E-07_JPRB,1.2629E-06_JPRB,1.8581E-06_JPRB,2.1664E-06_JPRB,1.7336E-06_JPRB/)
+KBO( :, 3,42, 3) = (/&
+&1.8006E-07_JPRB,1.6546E-06_JPRB,2.3186E-06_JPRB,2.5790E-06_JPRB,1.9660E-06_JPRB/)
+KBO( :, 4,42, 3) = (/&
+&2.8112E-07_JPRB,2.1513E-06_JPRB,2.8897E-06_JPRB,3.0943E-06_JPRB,2.2331E-06_JPRB/)
+KBO( :, 5,42, 3) = (/&
+&4.2176E-07_JPRB,2.7676E-06_JPRB,3.5854E-06_JPRB,3.7139E-06_JPRB,2.5247E-06_JPRB/)
+KBO( :, 1,43, 3) = (/&
+&4.5723E-08_JPRB,7.2721E-07_JPRB,1.1468E-06_JPRB,1.4561E-06_JPRB,1.1970E-06_JPRB/)
+KBO( :, 2,43, 3) = (/&
+&7.7279E-08_JPRB,9.5086E-07_JPRB,1.4214E-06_JPRB,1.6869E-06_JPRB,1.3436E-06_JPRB/)
+KBO( :, 3,43, 3) = (/&
+&1.2698E-07_JPRB,1.2469E-06_JPRB,1.7734E-06_JPRB,1.9988E-06_JPRB,1.5201E-06_JPRB/)
+KBO( :, 4,43, 3) = (/&
+&2.0087E-07_JPRB,1.6261E-06_JPRB,2.2117E-06_JPRB,2.3948E-06_JPRB,1.7257E-06_JPRB/)
+KBO( :, 5,43, 3) = (/&
+&3.0517E-07_JPRB,2.0997E-06_JPRB,2.7492E-06_JPRB,2.8756E-06_JPRB,1.9526E-06_JPRB/)
+KBO( :, 1,44, 3) = (/&
+&3.1195E-08_JPRB,5.4529E-07_JPRB,8.7740E-07_JPRB,1.1428E-06_JPRB,9.3212E-07_JPRB/)
+KBO( :, 2,44, 3) = (/&
+&5.3002E-08_JPRB,7.1132E-07_JPRB,1.0821E-06_JPRB,1.3117E-06_JPRB,1.0411E-06_JPRB/)
+KBO( :, 3,44, 3) = (/&
+&8.8116E-08_JPRB,9.3281E-07_JPRB,1.3488E-06_JPRB,1.5439E-06_JPRB,1.1733E-06_JPRB/)
+KBO( :, 4,44, 3) = (/&
+&1.4135E-07_JPRB,1.2201E-06_JPRB,1.6833E-06_JPRB,1.8457E-06_JPRB,1.3305E-06_JPRB/)
+KBO( :, 5,44, 3) = (/&
+&2.1772E-07_JPRB,1.5809E-06_JPRB,2.0956E-06_JPRB,2.2159E-06_JPRB,1.5063E-06_JPRB/)
+KBO( :, 1,45, 3) = (/&
+&2.1310E-08_JPRB,4.0944E-07_JPRB,6.7327E-07_JPRB,9.0153E-07_JPRB,7.2497E-07_JPRB/)
+KBO( :, 2,45, 3) = (/&
+&3.6231E-08_JPRB,5.3235E-07_JPRB,8.2462E-07_JPRB,1.0227E-06_JPRB,8.0606E-07_JPRB/)
+KBO( :, 3,45, 3) = (/&
+&6.0860E-08_JPRB,6.9752E-07_JPRB,1.0257E-06_JPRB,1.1946E-06_JPRB,9.0421E-07_JPRB/)
+KBO( :, 4,45, 3) = (/&
+&9.8966E-08_JPRB,9.1442E-07_JPRB,1.2808E-06_JPRB,1.4232E-06_JPRB,1.0228E-06_JPRB/)
+KBO( :, 5,45, 3) = (/&
+&1.5458E-07_JPRB,1.1885E-06_JPRB,1.5957E-06_JPRB,1.7071E-06_JPRB,1.1581E-06_JPRB/)
+KBO( :, 1,46, 3) = (/&
+&1.4455E-08_JPRB,3.0647E-07_JPRB,5.1657E-07_JPRB,7.1517E-07_JPRB,5.6309E-07_JPRB/)
+KBO( :, 2,46, 3) = (/&
+&2.4438E-08_JPRB,3.9644E-07_JPRB,6.2668E-07_JPRB,7.9740E-07_JPRB,6.2357E-07_JPRB/)
+KBO( :, 3,46, 3) = (/&
+&4.1400E-08_JPRB,5.1850E-07_JPRB,7.7667E-07_JPRB,9.2312E-07_JPRB,6.9619E-07_JPRB/)
+KBO( :, 4,46, 3) = (/&
+&6.8241E-08_JPRB,6.8045E-07_JPRB,9.6951E-07_JPRB,1.0939E-06_JPRB,7.8455E-07_JPRB/)
+KBO( :, 5,46, 3) = (/&
+&1.0821E-07_JPRB,8.8739E-07_JPRB,1.2089E-06_JPRB,1.3101E-06_JPRB,8.8794E-07_JPRB/)
+KBO( :, 1,47, 3) = (/&
+&9.6929E-09_JPRB,2.2797E-07_JPRB,3.9542E-07_JPRB,5.7182E-07_JPRB,4.3847E-07_JPRB/)
+KBO( :, 2,47, 3) = (/&
+&1.6123E-08_JPRB,2.9242E-07_JPRB,4.7359E-07_JPRB,6.2141E-07_JPRB,4.8271E-07_JPRB/)
+KBO( :, 3,47, 3) = (/&
+&2.7447E-08_JPRB,3.8129E-07_JPRB,5.8328E-07_JPRB,7.1120E-07_JPRB,5.3692E-07_JPRB/)
+KBO( :, 4,47, 3) = (/&
+&4.5855E-08_JPRB,5.0030E-07_JPRB,7.2710E-07_JPRB,8.3592E-07_JPRB,6.0206E-07_JPRB/)
+KBO( :, 5,47, 3) = (/&
+&7.3923E-08_JPRB,6.5467E-07_JPRB,9.0733E-07_JPRB,9.9829E-07_JPRB,6.8031E-07_JPRB/)
+KBO( :, 1,48, 3) = (/&
+&6.6058E-09_JPRB,1.7063E-07_JPRB,3.0447E-07_JPRB,4.6224E-07_JPRB,3.4217E-07_JPRB/)
+KBO( :, 2,48, 3) = (/&
+&1.0670E-08_JPRB,2.1618E-07_JPRB,3.5958E-07_JPRB,4.8824E-07_JPRB,3.7325E-07_JPRB/)
+KBO( :, 3,48, 3) = (/&
+&1.8128E-08_JPRB,2.8060E-07_JPRB,4.3881E-07_JPRB,5.5007E-07_JPRB,4.1348E-07_JPRB/)
+KBO( :, 4,48, 3) = (/&
+&3.0624E-08_JPRB,3.6766E-07_JPRB,5.4535E-07_JPRB,6.4036E-07_JPRB,4.6137E-07_JPRB/)
+KBO( :, 5,48, 3) = (/&
+&5.0151E-08_JPRB,4.8217E-07_JPRB,6.8071E-07_JPRB,7.6123E-07_JPRB,5.1955E-07_JPRB/)
+KBO( :, 1,49, 3) = (/&
+&4.6014E-09_JPRB,1.2872E-07_JPRB,2.3633E-07_JPRB,3.7814E-07_JPRB,2.6748E-07_JPRB/)
+KBO( :, 2,49, 3) = (/&
+&7.1127E-09_JPRB,1.6040E-07_JPRB,2.7445E-07_JPRB,3.8804E-07_JPRB,2.8841E-07_JPRB/)
+KBO( :, 3,49, 3) = (/&
+&1.1951E-08_JPRB,2.0675E-07_JPRB,3.3098E-07_JPRB,4.2738E-07_JPRB,3.1734E-07_JPRB/)
+KBO( :, 4,49, 3) = (/&
+&2.0341E-08_JPRB,2.7019E-07_JPRB,4.0929E-07_JPRB,4.9230E-07_JPRB,3.5284E-07_JPRB/)
+KBO( :, 5,49, 3) = (/&
+&3.3789E-08_JPRB,3.5457E-07_JPRB,5.1051E-07_JPRB,5.8104E-07_JPRB,3.9543E-07_JPRB/)
+KBO( :, 1,50, 3) = (/&
+&3.3123E-09_JPRB,9.8389E-08_JPRB,1.8583E-07_JPRB,3.1200E-07_JPRB,2.1151E-07_JPRB/)
+KBO( :, 2,50, 3) = (/&
+&4.8635E-09_JPRB,1.2034E-07_JPRB,2.1156E-07_JPRB,3.1223E-07_JPRB,2.2606E-07_JPRB/)
+KBO( :, 3,50, 3) = (/&
+&8.0017E-09_JPRB,1.5366E-07_JPRB,2.5190E-07_JPRB,3.3521E-07_JPRB,2.4676E-07_JPRB/)
+KBO( :, 4,50, 3) = (/&
+&1.3638E-08_JPRB,2.0012E-07_JPRB,3.0928E-07_JPRB,3.8141E-07_JPRB,2.7336E-07_JPRB/)
+KBO( :, 5,50, 3) = (/&
+&2.2922E-08_JPRB,2.6241E-07_JPRB,3.8502E-07_JPRB,4.4648E-07_JPRB,3.0528E-07_JPRB/)
+KBO( :, 1,51, 3) = (/&
+&2.4418E-09_JPRB,7.5933E-08_JPRB,1.4742E-07_JPRB,2.5968E-07_JPRB,1.6891E-07_JPRB/)
+KBO( :, 2,51, 3) = (/&
+&3.3989E-09_JPRB,9.1095E-08_JPRB,1.6428E-07_JPRB,2.5385E-07_JPRB,1.7889E-07_JPRB/)
+KBO( :, 3,51, 3) = (/&
+&5.4139E-09_JPRB,1.1482E-07_JPRB,1.9299E-07_JPRB,2.6542E-07_JPRB,1.9344E-07_JPRB/)
+KBO( :, 4,51, 3) = (/&
+&9.1803E-09_JPRB,1.4881E-07_JPRB,2.3477E-07_JPRB,2.9709E-07_JPRB,2.1318E-07_JPRB/)
+KBO( :, 5,51, 3) = (/&
+&1.5567E-08_JPRB,1.9481E-07_JPRB,2.9131E-07_JPRB,3.4464E-07_JPRB,2.3734E-07_JPRB/)
+KBO( :, 1,52, 3) = (/&
+&1.8356E-09_JPRB,5.9138E-08_JPRB,1.1788E-07_JPRB,2.1792E-07_JPRB,1.3551E-07_JPRB/)
+KBO( :, 2,52, 3) = (/&
+&2.4226E-09_JPRB,6.9427E-08_JPRB,1.2853E-07_JPRB,2.0827E-07_JPRB,1.4167E-07_JPRB/)
+KBO( :, 3,52, 3) = (/&
+&3.6921E-09_JPRB,8.6117E-08_JPRB,1.4855E-07_JPRB,2.1230E-07_JPRB,1.5195E-07_JPRB/)
+KBO( :, 4,52, 3) = (/&
+&6.1793E-09_JPRB,1.1080E-07_JPRB,1.7865E-07_JPRB,2.3238E-07_JPRB,1.6623E-07_JPRB/)
+KBO( :, 5,52, 3) = (/&
+&1.0533E-08_JPRB,1.4468E-07_JPRB,2.2055E-07_JPRB,2.6689E-07_JPRB,1.8440E-07_JPRB/)
+KBO( :, 1,53, 3) = (/&
+&1.4057E-09_JPRB,4.6460E-08_JPRB,9.5335E-08_JPRB,1.8476E-07_JPRB,1.0859E-07_JPRB/)
+KBO( :, 2,53, 3) = (/&
+&1.7607E-09_JPRB,5.3285E-08_JPRB,1.0139E-07_JPRB,1.7215E-07_JPRB,1.1242E-07_JPRB/)
+KBO( :, 3,53, 3) = (/&
+&2.5488E-09_JPRB,6.4871E-08_JPRB,1.1488E-07_JPRB,1.7132E-07_JPRB,1.1951E-07_JPRB/)
+KBO( :, 4,53, 3) = (/&
+&4.1657E-09_JPRB,8.2629E-08_JPRB,1.3641E-07_JPRB,1.8283E-07_JPRB,1.2965E-07_JPRB/)
+KBO( :, 5,53, 3) = (/&
+&7.0997E-09_JPRB,1.0750E-07_JPRB,1.6715E-07_JPRB,2.0732E-07_JPRB,1.4296E-07_JPRB/)
+KBO( :, 1,54, 3) = (/&
+&1.0999E-09_JPRB,3.6846E-08_JPRB,7.7697E-08_JPRB,1.5754E-07_JPRB,8.8206E-08_JPRB/)
+KBO( :, 2,54, 3) = (/&
+&1.3156E-09_JPRB,4.1399E-08_JPRB,8.0749E-08_JPRB,1.4331E-07_JPRB,9.0854E-08_JPRB/)
+KBO( :, 3,54, 3) = (/&
+&1.8124E-09_JPRB,4.9493E-08_JPRB,8.9710E-08_JPRB,1.3962E-07_JPRB,9.5712E-08_JPRB/)
+KBO( :, 4,54, 3) = (/&
+&2.8677E-09_JPRB,6.2264E-08_JPRB,1.0518E-07_JPRB,1.4542E-07_JPRB,1.0312E-07_JPRB/)
+KBO( :, 5,54, 3) = (/&
+&4.8571E-09_JPRB,8.0602E-08_JPRB,1.2774E-07_JPRB,1.6229E-07_JPRB,1.1315E-07_JPRB/)
+KBO( :, 1,55, 3) = (/&
+&8.7254E-10_JPRB,2.9511E-08_JPRB,6.3773E-08_JPRB,1.3472E-07_JPRB,7.2224E-08_JPRB/)
+KBO( :, 2,55, 3) = (/&
+&1.0019E-09_JPRB,3.2470E-08_JPRB,6.4795E-08_JPRB,1.1996E-07_JPRB,7.4131E-08_JPRB/)
+KBO( :, 3,55, 3) = (/&
+&1.3171E-09_JPRB,3.8081E-08_JPRB,7.0642E-08_JPRB,1.1458E-07_JPRB,7.7438E-08_JPRB/)
+KBO( :, 4,55, 3) = (/&
+&2.0021E-09_JPRB,4.7221E-08_JPRB,8.1614E-08_JPRB,1.1674E-07_JPRB,8.2998E-08_JPRB/)
+KBO( :, 5,55, 3) = (/&
+&3.3482E-09_JPRB,6.0727E-08_JPRB,9.8113E-08_JPRB,1.2774E-07_JPRB,9.0672E-08_JPRB/)
+KBO( :, 1,56, 3) = (/&
+&6.9950E-10_JPRB,2.3838E-08_JPRB,5.2680E-08_JPRB,1.1562E-07_JPRB,5.9234E-08_JPRB/)
+KBO( :, 2,56, 3) = (/&
+&7.7413E-10_JPRB,2.5644E-08_JPRB,5.2472E-08_JPRB,1.0117E-07_JPRB,6.0572E-08_JPRB/)
+KBO( :, 3,56, 3) = (/&
+&9.7208E-10_JPRB,2.9465E-08_JPRB,5.5972E-08_JPRB,9.4548E-08_JPRB,6.2834E-08_JPRB/)
+KBO( :, 4,56, 3) = (/&
+&1.4121E-09_JPRB,3.5940E-08_JPRB,6.3562E-08_JPRB,9.4353E-08_JPRB,6.6970E-08_JPRB/)
+KBO( :, 5,56, 3) = (/&
+&2.3128E-09_JPRB,4.5822E-08_JPRB,7.5568E-08_JPRB,1.0098E-07_JPRB,7.2808E-08_JPRB/)
+KBO( :, 1,57, 3) = (/&
+&5.6581E-10_JPRB,1.9346E-08_JPRB,4.3790E-08_JPRB,9.9565E-08_JPRB,4.8602E-08_JPRB/)
+KBO( :, 2,57, 3) = (/&
+&6.0638E-10_JPRB,2.0352E-08_JPRB,4.2737E-08_JPRB,8.6020E-08_JPRB,4.9598E-08_JPRB/)
+KBO( :, 3,57, 3) = (/&
+&7.2835E-10_JPRB,2.2928E-08_JPRB,4.4588E-08_JPRB,7.8554E-08_JPRB,5.1156E-08_JPRB/)
+KBO( :, 4,57, 3) = (/&
+&1.0089E-09_JPRB,2.7487E-08_JPRB,4.9704E-08_JPRB,7.6812E-08_JPRB,5.4188E-08_JPRB/)
+KBO( :, 5,57, 3) = (/&
+&1.6034E-09_JPRB,3.4641E-08_JPRB,5.8392E-08_JPRB,8.0331E-08_JPRB,5.8574E-08_JPRB/)
+KBO( :, 1,58, 3) = (/&
+&4.6103E-10_JPRB,1.5793E-08_JPRB,3.6627E-08_JPRB,8.5726E-08_JPRB,3.9978E-08_JPRB/)
+KBO( :, 2,58, 3) = (/&
+&4.8130E-10_JPRB,1.6286E-08_JPRB,3.5015E-08_JPRB,7.3307E-08_JPRB,4.0789E-08_JPRB/)
+KBO( :, 3,58, 3) = (/&
+&5.5585E-10_JPRB,1.8004E-08_JPRB,3.5764E-08_JPRB,6.5610E-08_JPRB,4.1884E-08_JPRB/)
+KBO( :, 4,58, 3) = (/&
+&7.3630E-10_JPRB,2.1198E-08_JPRB,3.9171E-08_JPRB,6.2959E-08_JPRB,4.4100E-08_JPRB/)
+KBO( :, 5,58, 3) = (/&
+&1.1276E-09_JPRB,2.6366E-08_JPRB,4.5403E-08_JPRB,6.4458E-08_JPRB,4.7431E-08_JPRB/)
+KBO( :, 1,59, 3) = (/&
+&3.7755E-10_JPRB,1.2932E-08_JPRB,3.0232E-08_JPRB,7.1480E-08_JPRB,3.3647E-08_JPRB/)
+KBO( :, 2,59, 3) = (/&
+&3.9028E-10_JPRB,1.3252E-08_JPRB,2.8716E-08_JPRB,6.0919E-08_JPRB,3.4209E-08_JPRB/)
+KBO( :, 3,59, 3) = (/&
+&4.4415E-10_JPRB,1.4531E-08_JPRB,2.9099E-08_JPRB,5.4129E-08_JPRB,3.5197E-08_JPRB/)
+KBO( :, 4,59, 3) = (/&
+&5.7804E-10_JPRB,1.6979E-08_JPRB,3.1645E-08_JPRB,5.1588E-08_JPRB,3.7203E-08_JPRB/)
+KBO( :, 5,59, 3) = (/&
+&8.7073E-10_JPRB,2.0997E-08_JPRB,3.6469E-08_JPRB,5.2428E-08_JPRB,4.0115E-08_JPRB/)
+KBO( :, 1,13, 4) = (/&
+&8.9291E-05_JPRB,3.8524E-04_JPRB,5.0838E-04_JPRB,6.5865E-04_JPRB,3.8422E-03_JPRB/)
+KBO( :, 2,13, 4) = (/&
+&1.2150E-04_JPRB,5.0395E-04_JPRB,6.2502E-04_JPRB,7.1591E-04_JPRB,4.4934E-03_JPRB/)
+KBO( :, 3,13, 4) = (/&
+&1.6722E-04_JPRB,6.6391E-04_JPRB,7.8605E-04_JPRB,8.2001E-04_JPRB,5.0967E-03_JPRB/)
+KBO( :, 4,13, 4) = (/&
+&2.3167E-04_JPRB,8.6690E-04_JPRB,9.9738E-04_JPRB,9.6960E-04_JPRB,5.6862E-03_JPRB/)
+KBO( :, 5,13, 4) = (/&
+&3.2066E-04_JPRB,1.1149E-03_JPRB,1.2572E-03_JPRB,1.1723E-03_JPRB,6.2886E-03_JPRB/)
+KBO( :, 1,14, 4) = (/&
+&7.3069E-05_JPRB,3.2443E-04_JPRB,4.2572E-04_JPRB,5.4565E-04_JPRB,3.2324E-03_JPRB/)
+KBO( :, 2,14, 4) = (/&
+&1.0078E-04_JPRB,4.2788E-04_JPRB,5.2773E-04_JPRB,5.9812E-04_JPRB,3.7083E-03_JPRB/)
+KBO( :, 3,14, 4) = (/&
+&1.4066E-04_JPRB,5.6564E-04_JPRB,6.6846E-04_JPRB,6.8982E-04_JPRB,4.1601E-03_JPRB/)
+KBO( :, 4,14, 4) = (/&
+&1.9708E-04_JPRB,7.3974E-04_JPRB,8.5021E-04_JPRB,8.2165E-04_JPRB,4.6256E-03_JPRB/)
+KBO( :, 5,14, 4) = (/&
+&2.7523E-04_JPRB,9.5281E-04_JPRB,1.0713E-03_JPRB,9.9745E-04_JPRB,5.1177E-03_JPRB/)
+KBO( :, 1,15, 4) = (/&
+&5.8268E-05_JPRB,2.7203E-04_JPRB,3.5604E-04_JPRB,4.5206E-04_JPRB,2.5355E-03_JPRB/)
+KBO( :, 2,15, 4) = (/&
+&8.1805E-05_JPRB,3.6098E-04_JPRB,4.4467E-04_JPRB,4.9956E-04_JPRB,2.8581E-03_JPRB/)
+KBO( :, 3,15, 4) = (/&
+&1.1620E-04_JPRB,4.7910E-04_JPRB,5.6641E-04_JPRB,5.8044E-04_JPRB,3.1903E-03_JPRB/)
+KBO( :, 4,15, 4) = (/&
+&1.6501E-04_JPRB,6.2810E-04_JPRB,7.2148E-04_JPRB,6.9577E-04_JPRB,3.5501E-03_JPRB/)
+KBO( :, 5,15, 4) = (/&
+&2.3301E-04_JPRB,8.1144E-04_JPRB,9.1027E-04_JPRB,8.4726E-04_JPRB,3.9463E-03_JPRB/)
+KBO( :, 1,16, 4) = (/&
+&4.6115E-05_JPRB,2.2742E-04_JPRB,2.9760E-04_JPRB,3.7441E-04_JPRB,1.8635E-03_JPRB/)
+KBO( :, 2,16, 4) = (/&
+&6.6044E-05_JPRB,3.0388E-04_JPRB,3.7432E-04_JPRB,4.1709E-04_JPRB,2.0896E-03_JPRB/)
+KBO( :, 3,16, 4) = (/&
+&9.5513E-05_JPRB,4.0494E-04_JPRB,4.7881E-04_JPRB,4.8833E-04_JPRB,2.3373E-03_JPRB/)
+KBO( :, 4,16, 4) = (/&
+&1.3768E-04_JPRB,5.3229E-04_JPRB,6.1073E-04_JPRB,5.8836E-04_JPRB,2.6201E-03_JPRB/)
+KBO( :, 5,16, 4) = (/&
+&1.9676E-04_JPRB,6.8916E-04_JPRB,7.7223E-04_JPRB,7.1811E-04_JPRB,2.9128E-03_JPRB/)
+KBO( :, 1,17, 4) = (/&
+&3.7236E-05_JPRB,1.9117E-04_JPRB,2.4928E-04_JPRB,3.1036E-04_JPRB,1.3781E-03_JPRB/)
+KBO( :, 2,17, 4) = (/&
+&5.4291E-05_JPRB,2.5693E-04_JPRB,3.1565E-04_JPRB,3.4867E-04_JPRB,1.5505E-03_JPRB/)
+KBO( :, 3,17, 4) = (/&
+&7.9749E-05_JPRB,3.4332E-04_JPRB,4.0498E-04_JPRB,4.1127E-04_JPRB,1.7502E-03_JPRB/)
+KBO( :, 4,17, 4) = (/&
+&1.1653E-04_JPRB,4.5210E-04_JPRB,5.1744E-04_JPRB,4.9715E-04_JPRB,1.9654E-03_JPRB/)
+KBO( :, 5,17, 4) = (/&
+&1.6848E-04_JPRB,5.8567E-04_JPRB,6.5487E-04_JPRB,6.0828E-04_JPRB,2.1867E-03_JPRB/)
+KBO( :, 1,18, 4) = (/&
+&3.1214E-05_JPRB,1.6265E-04_JPRB,2.1001E-04_JPRB,2.5789E-04_JPRB,1.0508E-03_JPRB/)
+KBO( :, 2,18, 4) = (/&
+&4.6115E-05_JPRB,2.1928E-04_JPRB,2.6764E-04_JPRB,2.9235E-04_JPRB,1.1925E-03_JPRB/)
+KBO( :, 3,18, 4) = (/&
+&6.8526E-05_JPRB,2.9311E-04_JPRB,3.4395E-04_JPRB,3.4662E-04_JPRB,1.3522E-03_JPRB/)
+KBO( :, 4,18, 4) = (/&
+&1.0108E-04_JPRB,3.8595E-04_JPRB,4.3972E-04_JPRB,4.2050E-04_JPRB,1.5200E-03_JPRB/)
+KBO( :, 5,18, 4) = (/&
+&1.4724E-04_JPRB,4.9979E-04_JPRB,5.5620E-04_JPRB,5.1508E-04_JPRB,1.6884E-03_JPRB/)
+KBO( :, 1,19, 4) = (/&
+&2.6494E-05_JPRB,1.3877E-04_JPRB,1.7752E-04_JPRB,2.1456E-04_JPRB,8.3267E-04_JPRB/)
+KBO( :, 2,19, 4) = (/&
+&3.9645E-05_JPRB,1.8735E-04_JPRB,2.2717E-04_JPRB,2.4531E-04_JPRB,9.5168E-04_JPRB/)
+KBO( :, 3,19, 4) = (/&
+&5.9441E-05_JPRB,2.5031E-04_JPRB,2.9223E-04_JPRB,2.9203E-04_JPRB,1.0814E-03_JPRB/)
+KBO( :, 4,19, 4) = (/&
+&8.8341E-05_JPRB,3.2954E-04_JPRB,3.7346E-04_JPRB,3.5516E-04_JPRB,1.2143E-03_JPRB/)
+KBO( :, 5,19, 4) = (/&
+&1.2952E-04_JPRB,4.2674E-04_JPRB,4.7232E-04_JPRB,4.3565E-04_JPRB,1.3453E-03_JPRB/)
+KBO( :, 1,20, 4) = (/&
+&2.2953E-05_JPRB,1.1923E-04_JPRB,1.5106E-04_JPRB,1.7906E-04_JPRB,6.7531E-04_JPRB/)
+KBO( :, 2,20, 4) = (/&
+&3.4684E-05_JPRB,1.6096E-04_JPRB,1.9387E-04_JPRB,2.0645E-04_JPRB,7.7360E-04_JPRB/)
+KBO( :, 3,20, 4) = (/&
+&5.2387E-05_JPRB,2.1493E-04_JPRB,2.4939E-04_JPRB,2.4674E-04_JPRB,8.7927E-04_JPRB/)
+KBO( :, 4,20, 4) = (/&
+&7.8339E-05_JPRB,2.8287E-04_JPRB,3.1867E-04_JPRB,3.0094E-04_JPRB,9.8457E-04_JPRB/)
+KBO( :, 5,20, 4) = (/&
+&1.1532E-04_JPRB,3.6655E-04_JPRB,4.0332E-04_JPRB,3.6955E-04_JPRB,1.0890E-03_JPRB/)
+KBO( :, 1,21, 4) = (/&
+&1.9939E-05_JPRB,1.0230E-04_JPRB,1.2858E-04_JPRB,1.4968E-04_JPRB,5.4869E-04_JPRB/)
+KBO( :, 2,21, 4) = (/&
+&3.0427E-05_JPRB,1.3816E-04_JPRB,1.6531E-04_JPRB,1.7375E-04_JPRB,6.2932E-04_JPRB/)
+KBO( :, 3,21, 4) = (/&
+&4.6301E-05_JPRB,1.8453E-04_JPRB,2.1269E-04_JPRB,2.0848E-04_JPRB,7.1424E-04_JPRB/)
+KBO( :, 4,21, 4) = (/&
+&6.9612E-05_JPRB,2.4288E-04_JPRB,2.7189E-04_JPRB,2.5497E-04_JPRB,7.9799E-04_JPRB/)
+KBO( :, 5,21, 4) = (/&
+&1.0255E-04_JPRB,3.1496E-04_JPRB,3.4452E-04_JPRB,3.1356E-04_JPRB,8.8178E-04_JPRB/)
+KBO( :, 1,22, 4) = (/&
+&1.7650E-05_JPRB,8.9099E-05_JPRB,1.1086E-04_JPRB,1.2617E-04_JPRB,4.4136E-04_JPRB/)
+KBO( :, 2,22, 4) = (/&
+&2.7256E-05_JPRB,1.2040E-04_JPRB,1.4288E-04_JPRB,1.4770E-04_JPRB,5.0625E-04_JPRB/)
+KBO( :, 3,22, 4) = (/&
+&4.1784E-05_JPRB,1.6082E-04_JPRB,1.8391E-04_JPRB,1.7825E-04_JPRB,5.7259E-04_JPRB/)
+KBO( :, 4,22, 4) = (/&
+&6.2963E-05_JPRB,2.1168E-04_JPRB,2.3528E-04_JPRB,2.1869E-04_JPRB,6.3831E-04_JPRB/)
+KBO( :, 5,22, 4) = (/&
+&9.2479E-05_JPRB,2.7473E-04_JPRB,2.9834E-04_JPRB,2.6936E-04_JPRB,7.0511E-04_JPRB/)
+KBO( :, 1,23, 4) = (/&
+&1.5661E-05_JPRB,7.7570E-05_JPRB,9.5606E-05_JPRB,1.0649E-04_JPRB,3.5282E-04_JPRB/)
+KBO( :, 2,23, 4) = (/&
+&2.4419E-05_JPRB,1.0492E-04_JPRB,1.2350E-04_JPRB,1.2569E-04_JPRB,4.0389E-04_JPRB/)
+KBO( :, 3,23, 4) = (/&
+&3.7617E-05_JPRB,1.4021E-04_JPRB,1.5914E-04_JPRB,1.5253E-04_JPRB,4.5535E-04_JPRB/)
+KBO( :, 4,23, 4) = (/&
+&5.6623E-05_JPRB,1.8459E-04_JPRB,2.0378E-04_JPRB,1.8772E-04_JPRB,5.0734E-04_JPRB/)
+KBO( :, 5,23, 4) = (/&
+&8.2850E-05_JPRB,2.3955E-04_JPRB,2.5868E-04_JPRB,2.3168E-04_JPRB,5.6073E-04_JPRB/)
+KBO( :, 1,24, 4) = (/&
+&1.3761E-05_JPRB,6.7313E-05_JPRB,8.2387E-05_JPRB,8.9985E-05_JPRB,2.7657E-04_JPRB/)
+KBO( :, 2,24, 4) = (/&
+&2.1660E-05_JPRB,9.1214E-05_JPRB,1.0663E-04_JPRB,1.0703E-04_JPRB,3.1564E-04_JPRB/)
+KBO( :, 3,24, 4) = (/&
+&3.3471E-05_JPRB,1.2198E-04_JPRB,1.3767E-04_JPRB,1.3062E-04_JPRB,3.5536E-04_JPRB/)
+KBO( :, 4,24, 4) = (/&
+&5.0313E-05_JPRB,1.6066E-04_JPRB,1.7646E-04_JPRB,1.6127E-04_JPRB,3.9633E-04_JPRB/)
+KBO( :, 5,24, 4) = (/&
+&7.3360E-05_JPRB,2.0829E-04_JPRB,2.2414E-04_JPRB,1.9939E-04_JPRB,4.3964E-04_JPRB/)
+KBO( :, 1,25, 4) = (/&
+&1.2163E-05_JPRB,5.8632E-05_JPRB,7.1210E-05_JPRB,7.6289E-05_JPRB,2.1557E-04_JPRB/)
+KBO( :, 2,25, 4) = (/&
+&1.9262E-05_JPRB,7.9563E-05_JPRB,9.2384E-05_JPRB,9.1431E-05_JPRB,2.4548E-04_JPRB/)
+KBO( :, 3,25, 4) = (/&
+&2.9768E-05_JPRB,1.0645E-04_JPRB,1.1942E-04_JPRB,1.1222E-04_JPRB,2.7636E-04_JPRB/)
+KBO( :, 4,25, 4) = (/&
+&4.4635E-05_JPRB,1.4006E-04_JPRB,1.5316E-04_JPRB,1.3892E-04_JPRB,3.0913E-04_JPRB/)
+KBO( :, 5,25, 4) = (/&
+&6.4723E-05_JPRB,1.8122E-04_JPRB,1.9446E-04_JPRB,1.7203E-04_JPRB,3.4459E-04_JPRB/)
+KBO( :, 1,26, 4) = (/&
+&1.0905E-05_JPRB,5.1509E-05_JPRB,6.1982E-05_JPRB,6.5048E-05_JPRB,1.6912E-04_JPRB/)
+KBO( :, 2,26, 4) = (/&
+&1.7301E-05_JPRB,6.9938E-05_JPRB,8.0564E-05_JPRB,7.8594E-05_JPRB,1.9235E-04_JPRB/)
+KBO( :, 3,26, 4) = (/&
+&2.6674E-05_JPRB,9.3478E-05_JPRB,1.0420E-04_JPRB,9.6933E-05_JPRB,2.1692E-04_JPRB/)
+KBO( :, 4,26, 4) = (/&
+&3.9810E-05_JPRB,1.2260E-04_JPRB,1.3358E-04_JPRB,1.2031E-04_JPRB,2.4372E-04_JPRB/)
+KBO( :, 5,26, 4) = (/&
+&5.7269E-05_JPRB,1.5819E-04_JPRB,1.6929E-04_JPRB,1.4904E-04_JPRB,2.7283E-04_JPRB/)
+KBO( :, 1,27, 4) = (/&
+&9.7443E-06_JPRB,4.5256E-05_JPRB,5.3977E-05_JPRB,5.5564E-05_JPRB,1.3079E-04_JPRB/)
+KBO( :, 2,27, 4) = (/&
+&1.5468E-05_JPRB,6.1434E-05_JPRB,7.0240E-05_JPRB,6.7661E-05_JPRB,1.4885E-04_JPRB/)
+KBO( :, 3,27, 4) = (/&
+&2.3785E-05_JPRB,8.1876E-05_JPRB,9.0868E-05_JPRB,8.3801E-05_JPRB,1.6857E-04_JPRB/)
+KBO( :, 4,27, 4) = (/&
+&3.5289E-05_JPRB,1.0705E-04_JPRB,1.1628E-04_JPRB,1.0418E-04_JPRB,1.9038E-04_JPRB/)
+KBO( :, 5,27, 4) = (/&
+&5.0352E-05_JPRB,1.3763E-04_JPRB,1.4705E-04_JPRB,1.2891E-04_JPRB,2.1399E-04_JPRB/)
+KBO( :, 1,28, 4) = (/&
+&8.6662E-06_JPRB,3.9710E-05_JPRB,4.6973E-05_JPRB,4.7545E-05_JPRB,9.9573E-05_JPRB/)
+KBO( :, 2,28, 4) = (/&
+&1.3762E-05_JPRB,5.3808E-05_JPRB,6.1191E-05_JPRB,5.8312E-05_JPRB,1.1378E-04_JPRB/)
+KBO( :, 3,28, 4) = (/&
+&2.1087E-05_JPRB,7.1458E-05_JPRB,7.9071E-05_JPRB,7.2428E-05_JPRB,1.2969E-04_JPRB/)
+KBO( :, 4,28, 4) = (/&
+&3.1073E-05_JPRB,9.3127E-05_JPRB,1.0097E-04_JPRB,9.0079E-05_JPRB,1.4713E-04_JPRB/)
+KBO( :, 5,28, 4) = (/&
+&4.4032E-05_JPRB,1.1919E-04_JPRB,1.2726E-04_JPRB,1.1128E-04_JPRB,1.6603E-04_JPRB/)
+KBO( :, 1,29, 4) = (/&
+&7.7998E-06_JPRB,3.4996E-05_JPRB,4.1036E-05_JPRB,4.0865E-05_JPRB,7.6462E-05_JPRB/)
+KBO( :, 2,29, 4) = (/&
+&1.2351E-05_JPRB,4.7253E-05_JPRB,5.3436E-05_JPRB,5.0409E-05_JPRB,8.7836E-05_JPRB/)
+KBO( :, 3,29, 4) = (/&
+&1.8799E-05_JPRB,6.2498E-05_JPRB,6.8909E-05_JPRB,6.2727E-05_JPRB,1.0047E-04_JPRB/)
+KBO( :, 4,29, 4) = (/&
+&2.7485E-05_JPRB,8.1095E-05_JPRB,8.7731E-05_JPRB,7.7973E-05_JPRB,1.1434E-04_JPRB/)
+KBO( :, 5,29, 4) = (/&
+&3.8681E-05_JPRB,1.0324E-04_JPRB,1.1009E-04_JPRB,9.6092E-05_JPRB,1.2937E-04_JPRB/)
+KBO( :, 1,30, 4) = (/&
+&7.0184E-06_JPRB,3.0793E-05_JPRB,3.5835E-05_JPRB,3.5181E-05_JPRB,5.8539E-05_JPRB/)
+KBO( :, 2,30, 4) = (/&
+&1.1059E-05_JPRB,4.1419E-05_JPRB,4.6605E-05_JPRB,4.3585E-05_JPRB,6.7504E-05_JPRB/)
+KBO( :, 3,30, 4) = (/&
+&1.6707E-05_JPRB,5.4550E-05_JPRB,5.9937E-05_JPRB,5.4295E-05_JPRB,7.7471E-05_JPRB/)
+KBO( :, 4,30, 4) = (/&
+&2.4261E-05_JPRB,7.0416E-05_JPRB,7.6043E-05_JPRB,6.7394E-05_JPRB,8.8468E-05_JPRB/)
+KBO( :, 5,30, 4) = (/&
+&3.3920E-05_JPRB,8.9259E-05_JPRB,9.5020E-05_JPRB,8.2834E-05_JPRB,1.0026E-04_JPRB/)
+KBO( :, 1,31, 4) = (/&
+&6.3446E-06_JPRB,2.7130E-05_JPRB,3.1326E-05_JPRB,3.0364E-05_JPRB,4.4778E-05_JPRB/)
+KBO( :, 2,31, 4) = (/&
+&9.9240E-06_JPRB,3.6330E-05_JPRB,4.0667E-05_JPRB,3.7732E-05_JPRB,5.1776E-05_JPRB/)
+KBO( :, 3,31, 4) = (/&
+&1.4883E-05_JPRB,4.7593E-05_JPRB,5.2134E-05_JPRB,4.7015E-05_JPRB,5.9603E-05_JPRB/)
+KBO( :, 4,31, 4) = (/&
+&2.1454E-05_JPRB,6.1120E-05_JPRB,6.5847E-05_JPRB,5.8207E-05_JPRB,6.8104E-05_JPRB/)
+KBO( :, 5,31, 4) = (/&
+&2.9770E-05_JPRB,7.7114E-05_JPRB,8.1935E-05_JPRB,7.1309E-05_JPRB,7.7163E-05_JPRB/)
+KBO( :, 1,32, 4) = (/&
+&5.7447E-06_JPRB,2.3909E-05_JPRB,2.7402E-05_JPRB,2.6256E-05_JPRB,3.4475E-05_JPRB/)
+KBO( :, 2,32, 4) = (/&
+&8.9146E-06_JPRB,3.1849E-05_JPRB,3.5487E-05_JPRB,3.2695E-05_JPRB,3.9934E-05_JPRB/)
+KBO( :, 3,32, 4) = (/&
+&1.3271E-05_JPRB,4.1481E-05_JPRB,4.5305E-05_JPRB,4.0703E-05_JPRB,4.6002E-05_JPRB/)
+KBO( :, 4,32, 4) = (/&
+&1.8982E-05_JPRB,5.3015E-05_JPRB,5.6969E-05_JPRB,5.0230E-05_JPRB,5.2546E-05_JPRB/)
+KBO( :, 5,32, 4) = (/&
+&2.6129E-05_JPRB,6.6634E-05_JPRB,7.0625E-05_JPRB,6.1359E-05_JPRB,5.9507E-05_JPRB/)
+KBO( :, 1,33, 4) = (/&
+&5.1981E-06_JPRB,2.1048E-05_JPRB,2.3959E-05_JPRB,2.2727E-05_JPRB,2.6591E-05_JPRB/)
+KBO( :, 2,33, 4) = (/&
+&8.0045E-06_JPRB,2.7863E-05_JPRB,3.0928E-05_JPRB,2.8329E-05_JPRB,3.0795E-05_JPRB/)
+KBO( :, 3,33, 4) = (/&
+&1.1826E-05_JPRB,3.6107E-05_JPRB,3.9311E-05_JPRB,3.5200E-05_JPRB,3.5437E-05_JPRB/)
+KBO( :, 4,33, 4) = (/&
+&1.6780E-05_JPRB,4.5955E-05_JPRB,4.9249E-05_JPRB,4.3321E-05_JPRB,4.0422E-05_JPRB/)
+KBO( :, 5,33, 4) = (/&
+&2.2903E-05_JPRB,5.7519E-05_JPRB,6.0835E-05_JPRB,5.2765E-05_JPRB,4.5739E-05_JPRB/)
+KBO( :, 1,34, 4) = (/&
+&4.6580E-06_JPRB,1.8365E-05_JPRB,2.0792E-05_JPRB,1.9562E-05_JPRB,2.0973E-05_JPRB/)
+KBO( :, 2,34, 4) = (/&
+&7.1195E-06_JPRB,2.4178E-05_JPRB,2.6741E-05_JPRB,2.4385E-05_JPRB,2.4253E-05_JPRB/)
+KBO( :, 3,34, 4) = (/&
+&1.0442E-05_JPRB,3.1196E-05_JPRB,3.3863E-05_JPRB,3.0227E-05_JPRB,2.7827E-05_JPRB/)
+KBO( :, 4,34, 4) = (/&
+&1.4703E-05_JPRB,3.9556E-05_JPRB,4.2281E-05_JPRB,3.7105E-05_JPRB,3.1694E-05_JPRB/)
+KBO( :, 5,34, 4) = (/&
+&1.9922E-05_JPRB,4.9351E-05_JPRB,5.2082E-05_JPRB,4.5102E-05_JPRB,3.5824E-05_JPRB/)
+KBO( :, 1,35, 4) = (/&
+&3.9871E-06_JPRB,1.5551E-05_JPRB,1.7571E-05_JPRB,1.6475E-05_JPRB,1.6236E-05_JPRB/)
+KBO( :, 2,35, 4) = (/&
+&6.0757E-06_JPRB,2.0414E-05_JPRB,2.2542E-05_JPRB,2.0527E-05_JPRB,1.8741E-05_JPRB/)
+KBO( :, 3,35, 4) = (/&
+&8.8794E-06_JPRB,2.6281E-05_JPRB,2.8490E-05_JPRB,2.5405E-05_JPRB,2.1473E-05_JPRB/)
+KBO( :, 4,35, 4) = (/&
+&1.2455E-05_JPRB,3.3253E-05_JPRB,3.5511E-05_JPRB,3.1147E-05_JPRB,2.4458E-05_JPRB/)
+KBO( :, 5,35, 4) = (/&
+&1.6817E-05_JPRB,4.1417E-05_JPRB,4.3680E-05_JPRB,3.7812E-05_JPRB,2.7668E-05_JPRB/)
+KBO( :, 1,36, 4) = (/&
+&3.2421E-06_JPRB,1.2741E-05_JPRB,1.4415E-05_JPRB,1.3532E-05_JPRB,1.2305E-05_JPRB/)
+KBO( :, 2,36, 4) = (/&
+&4.9489E-06_JPRB,1.6721E-05_JPRB,1.8482E-05_JPRB,1.6856E-05_JPRB,1.4197E-05_JPRB/)
+KBO( :, 3,36, 4) = (/&
+&7.2420E-06_JPRB,2.1525E-05_JPRB,2.3354E-05_JPRB,2.0857E-05_JPRB,1.6279E-05_JPRB/)
+KBO( :, 4,36, 4) = (/&
+&1.0165E-05_JPRB,2.7235E-05_JPRB,2.9106E-05_JPRB,2.5564E-05_JPRB,1.8568E-05_JPRB/)
+KBO( :, 5,36, 4) = (/&
+&1.3731E-05_JPRB,3.3924E-05_JPRB,3.5798E-05_JPRB,3.1035E-05_JPRB,2.1028E-05_JPRB/)
+KBO( :, 1,37, 4) = (/&
+&2.4960E-06_JPRB,1.0060E-05_JPRB,1.1424E-05_JPRB,1.0782E-05_JPRB,9.5086E-06_JPRB/)
+KBO( :, 2,37, 4) = (/&
+&3.8363E-06_JPRB,1.3236E-05_JPRB,1.4673E-05_JPRB,1.3431E-05_JPRB,1.0977E-05_JPRB/)
+KBO( :, 3,37, 4) = (/&
+&5.6488E-06_JPRB,1.7076E-05_JPRB,1.8572E-05_JPRB,1.6635E-05_JPRB,1.2594E-05_JPRB/)
+KBO( :, 4,37, 4) = (/&
+&7.9747E-06_JPRB,2.1652E-05_JPRB,2.3188E-05_JPRB,2.0415E-05_JPRB,1.4374E-05_JPRB/)
+KBO( :, 5,37, 4) = (/&
+&1.0825E-05_JPRB,2.7021E-05_JPRB,2.8566E-05_JPRB,2.4811E-05_JPRB,1.6291E-05_JPRB/)
+KBO( :, 1,38, 4) = (/&
+&1.9124E-06_JPRB,7.9183E-06_JPRB,9.0316E-06_JPRB,8.5743E-06_JPRB,7.3236E-06_JPRB/)
+KBO( :, 2,38, 4) = (/&
+&2.9610E-06_JPRB,1.0450E-05_JPRB,1.1621E-05_JPRB,1.0680E-05_JPRB,8.4614E-06_JPRB/)
+KBO( :, 3,38, 4) = (/&
+&4.3884E-06_JPRB,1.3515E-05_JPRB,1.4735E-05_JPRB,1.3241E-05_JPRB,9.7136E-06_JPRB/)
+KBO( :, 4,38, 4) = (/&
+&6.2344E-06_JPRB,1.7177E-05_JPRB,1.8435E-05_JPRB,1.6272E-05_JPRB,1.1094E-05_JPRB/)
+KBO( :, 5,38, 4) = (/&
+&8.5074E-06_JPRB,2.1480E-05_JPRB,2.2749E-05_JPRB,1.9801E-05_JPRB,1.2587E-05_JPRB/)
+KBO( :, 1,39, 4) = (/&
+&1.4627E-06_JPRB,6.2280E-06_JPRB,7.1358E-06_JPRB,6.8164E-06_JPRB,5.6091E-06_JPRB/)
+KBO( :, 2,39, 4) = (/&
+&2.2819E-06_JPRB,8.2437E-06_JPRB,9.1991E-06_JPRB,8.4900E-06_JPRB,6.4837E-06_JPRB/)
+KBO( :, 3,39, 4) = (/&
+&3.4040E-06_JPRB,1.0689E-05_JPRB,1.1687E-05_JPRB,1.0535E-05_JPRB,7.4507E-06_JPRB/)
+KBO( :, 4,39, 4) = (/&
+&4.8667E-06_JPRB,1.3619E-05_JPRB,1.4649E-05_JPRB,1.2965E-05_JPRB,8.5144E-06_JPRB/)
+KBO( :, 5,39, 4) = (/&
+&6.6789E-06_JPRB,1.7065E-05_JPRB,1.8109E-05_JPRB,1.5796E-05_JPRB,9.6724E-06_JPRB/)
+KBO( :, 1,40, 4) = (/&
+&1.0675E-06_JPRB,4.7580E-06_JPRB,5.4948E-06_JPRB,5.3059E-06_JPRB,4.3235E-06_JPRB/)
+KBO( :, 2,40, 4) = (/&
+&1.6854E-06_JPRB,6.3316E-06_JPRB,7.1065E-06_JPRB,6.6059E-06_JPRB,5.0037E-06_JPRB/)
+KBO( :, 3,40, 4) = (/&
+&2.5416E-06_JPRB,8.2475E-06_JPRB,9.0584E-06_JPRB,8.2078E-06_JPRB,5.7598E-06_JPRB/)
+KBO( :, 4,40, 4) = (/&
+&3.6732E-06_JPRB,1.0552E-05_JPRB,1.1392E-05_JPRB,1.0125E-05_JPRB,6.5921E-06_JPRB/)
+KBO( :, 5,40, 4) = (/&
+&5.0895E-06_JPRB,1.3270E-05_JPRB,1.4125E-05_JPRB,1.2362E-05_JPRB,7.4983E-06_JPRB/)
+KBO( :, 1,41, 4) = (/&
+&7.7161E-07_JPRB,3.6153E-06_JPRB,4.2135E-06_JPRB,4.1208E-06_JPRB,3.3291E-06_JPRB/)
+KBO( :, 2,41, 4) = (/&
+&1.2341E-06_JPRB,4.8398E-06_JPRB,5.4667E-06_JPRB,5.1245E-06_JPRB,3.8572E-06_JPRB/)
+KBO( :, 3,41, 4) = (/&
+&1.8830E-06_JPRB,6.3358E-06_JPRB,6.9937E-06_JPRB,6.3742E-06_JPRB,4.4475E-06_JPRB/)
+KBO( :, 4,41, 4) = (/&
+&2.7524E-06_JPRB,8.1422E-06_JPRB,8.8253E-06_JPRB,7.8806E-06_JPRB,5.1001E-06_JPRB/)
+KBO( :, 5,41, 4) = (/&
+&3.8533E-06_JPRB,1.0280E-05_JPRB,1.0980E-05_JPRB,9.6445E-06_JPRB,5.8088E-06_JPRB/)
+KBO( :, 1,42, 4) = (/&
+&5.5525E-07_JPRB,2.7416E-06_JPRB,3.2273E-06_JPRB,3.2019E-06_JPRB,2.5561E-06_JPRB/)
+KBO( :, 2,42, 4) = (/&
+&8.9993E-07_JPRB,3.6924E-06_JPRB,4.1998E-06_JPRB,3.9740E-06_JPRB,2.9638E-06_JPRB/)
+KBO( :, 3,42, 4) = (/&
+&1.3900E-06_JPRB,4.8597E-06_JPRB,5.3933E-06_JPRB,4.9465E-06_JPRB,3.4230E-06_JPRB/)
+KBO( :, 4,42, 4) = (/&
+&2.0552E-06_JPRB,6.2735E-06_JPRB,6.8295E-06_JPRB,6.1284E-06_JPRB,3.9326E-06_JPRB/)
+KBO( :, 5,42, 4) = (/&
+&2.9084E-06_JPRB,7.9541E-06_JPRB,8.5264E-06_JPRB,7.5190E-06_JPRB,4.4871E-06_JPRB/)
+KBO( :, 1,43, 4) = (/&
+&3.8700E-07_JPRB,2.0403E-06_JPRB,2.4343E-06_JPRB,2.4629E-06_JPRB,1.9559E-06_JPRB/)
+KBO( :, 2,43, 4) = (/&
+&6.3768E-07_JPRB,2.7683E-06_JPRB,3.1780E-06_JPRB,3.0455E-06_JPRB,2.2677E-06_JPRB/)
+KBO( :, 3,43, 4) = (/&
+&9.9992E-07_JPRB,3.6688E-06_JPRB,4.0996E-06_JPRB,3.7915E-06_JPRB,2.6241E-06_JPRB/)
+KBO( :, 4,43, 4) = (/&
+&1.4987E-06_JPRB,4.7637E-06_JPRB,5.2140E-06_JPRB,4.7076E-06_JPRB,3.0207E-06_JPRB/)
+KBO( :, 5,43, 4) = (/&
+&2.1501E-06_JPRB,6.0714E-06_JPRB,6.5361E-06_JPRB,5.7934E-06_JPRB,3.4541E-06_JPRB/)
+KBO( :, 1,44, 4) = (/&
+&2.6473E-07_JPRB,1.5026E-06_JPRB,1.8221E-06_JPRB,1.8897E-06_JPRB,1.4930E-06_JPRB/)
+KBO( :, 2,44, 4) = (/&
+&4.4431E-07_JPRB,2.0561E-06_JPRB,2.3866E-06_JPRB,2.3229E-06_JPRB,1.7300E-06_JPRB/)
+KBO( :, 3,44, 4) = (/&
+&7.0836E-07_JPRB,2.7457E-06_JPRB,3.0927E-06_JPRB,2.8894E-06_JPRB,2.0046E-06_JPRB/)
+KBO( :, 4,44, 4) = (/&
+&1.0778E-06_JPRB,3.5888E-06_JPRB,3.9529E-06_JPRB,3.5941E-06_JPRB,2.3122E-06_JPRB/)
+KBO( :, 5,44, 4) = (/&
+&1.5696E-06_JPRB,4.6015E-06_JPRB,4.9786E-06_JPRB,4.4373E-06_JPRB,2.6499E-06_JPRB/)
+KBO( :, 1,45, 4) = (/&
+&1.7988E-07_JPRB,1.1038E-06_JPRB,1.3625E-06_JPRB,1.4540E-06_JPRB,1.1371E-06_JPRB/)
+KBO( :, 2,45, 4) = (/&
+&3.0761E-07_JPRB,1.5225E-06_JPRB,1.7898E-06_JPRB,1.7738E-06_JPRB,1.3160E-06_JPRB/)
+KBO( :, 3,45, 4) = (/&
+&4.9893E-07_JPRB,2.0494E-06_JPRB,2.3287E-06_JPRB,2.2017E-06_JPRB,1.5258E-06_JPRB/)
+KBO( :, 4,45, 4) = (/&
+&7.7117E-07_JPRB,2.6974E-06_JPRB,2.9913E-06_JPRB,2.7416E-06_JPRB,1.7632E-06_JPRB/)
+KBO( :, 5,45, 4) = (/&
+&1.1399E-06_JPRB,3.4797E-06_JPRB,3.7851E-06_JPRB,3.3943E-06_JPRB,2.0252E-06_JPRB/)
+KBO( :, 1,46, 4) = (/&
+&1.1995E-07_JPRB,8.0292E-07_JPRB,1.0121E-06_JPRB,1.1184E-06_JPRB,8.6488E-07_JPRB/)
+KBO( :, 2,46, 4) = (/&
+&2.0923E-07_JPRB,1.1166E-06_JPRB,1.3331E-06_JPRB,1.3511E-06_JPRB,9.9849E-07_JPRB/)
+KBO( :, 3,46, 4) = (/&
+&3.4582E-07_JPRB,1.5161E-06_JPRB,1.7409E-06_JPRB,1.6700E-06_JPRB,1.1579E-06_JPRB/)
+KBO( :, 4,46, 4) = (/&
+&5.4384E-07_JPRB,2.0114E-06_JPRB,2.2481E-06_JPRB,2.0803E-06_JPRB,1.3401E-06_JPRB/)
+KBO( :, 5,46, 4) = (/&
+&8.1669E-07_JPRB,2.6123E-06_JPRB,2.8596E-06_JPRB,2.5822E-06_JPRB,1.5424E-06_JPRB/)
+KBO( :, 1,47, 4) = (/&
+&7.7552E-08_JPRB,5.7430E-07_JPRB,7.4352E-07_JPRB,8.5913E-07_JPRB,6.5834E-07_JPRB/)
+KBO( :, 2,47, 4) = (/&
+&1.3815E-07_JPRB,8.0547E-07_JPRB,9.8055E-07_JPRB,1.0241E-06_JPRB,7.5785E-07_JPRB/)
+KBO( :, 3,47, 4) = (/&
+&2.3338E-07_JPRB,1.1046E-06_JPRB,1.2855E-06_JPRB,1.2567E-06_JPRB,8.7753E-07_JPRB/)
+KBO( :, 4,47, 4) = (/&
+&3.7439E-07_JPRB,1.4793E-06_JPRB,1.6690E-06_JPRB,1.5636E-06_JPRB,1.0168E-06_JPRB/)
+KBO( :, 5,47, 4) = (/&
+&5.7238E-07_JPRB,1.9364E-06_JPRB,2.1357E-06_JPRB,1.9451E-06_JPRB,1.1726E-06_JPRB/)
+KBO( :, 1,48, 4) = (/&
+&4.9759E-08_JPRB,4.0982E-07_JPRB,5.4734E-07_JPRB,6.6597E-07_JPRB,5.0055E-07_JPRB/)
+KBO( :, 2,48, 4) = (/&
+&9.0399E-08_JPRB,5.7899E-07_JPRB,7.2041E-07_JPRB,7.7952E-07_JPRB,5.7407E-07_JPRB/)
+KBO( :, 3,48, 4) = (/&
+&1.5613E-07_JPRB,8.0155E-07_JPRB,9.4754E-07_JPRB,9.4742E-07_JPRB,6.6288E-07_JPRB/)
+KBO( :, 4,48, 4) = (/&
+&2.5563E-07_JPRB,1.0837E-06_JPRB,1.2359E-06_JPRB,1.1750E-06_JPRB,7.6860E-07_JPRB/)
+KBO( :, 5,48, 4) = (/&
+&3.9824E-07_JPRB,1.4310E-06_JPRB,1.5913E-06_JPRB,1.4634E-06_JPRB,8.8756E-07_JPRB/)
+KBO( :, 1,49, 4) = (/&
+&3.1747E-08_JPRB,2.9202E-07_JPRB,4.0458E-07_JPRB,5.2185E-07_JPRB,3.8074E-07_JPRB/)
+KBO( :, 2,49, 4) = (/&
+&5.8620E-08_JPRB,4.1476E-07_JPRB,5.2889E-07_JPRB,5.9643E-07_JPRB,4.3322E-07_JPRB/)
+KBO( :, 3,49, 4) = (/&
+&1.0349E-07_JPRB,5.7925E-07_JPRB,6.9731E-07_JPRB,7.1647E-07_JPRB,4.9889E-07_JPRB/)
+KBO( :, 4,49, 4) = (/&
+&1.7311E-07_JPRB,7.9083E-07_JPRB,9.1312E-07_JPRB,8.8335E-07_JPRB,5.7760E-07_JPRB/)
+KBO( :, 5,49, 4) = (/&
+&2.7502E-07_JPRB,1.0539E-06_JPRB,1.1826E-06_JPRB,1.1000E-06_JPRB,6.6799E-07_JPRB/)
+KBO( :, 1,50, 4) = (/&
+&2.0584E-08_JPRB,2.1008E-07_JPRB,3.0301E-07_JPRB,4.1495E-07_JPRB,2.9497E-07_JPRB/)
+KBO( :, 2,50, 4) = (/&
+&3.8348E-08_JPRB,2.9905E-07_JPRB,3.9149E-07_JPRB,4.6171E-07_JPRB,3.3200E-07_JPRB/)
+KBO( :, 3,50, 4) = (/&
+&6.9001E-08_JPRB,4.2073E-07_JPRB,5.1626E-07_JPRB,5.4677E-07_JPRB,3.8063E-07_JPRB/)
+KBO( :, 4,50, 4) = (/&
+&1.1783E-07_JPRB,5.7965E-07_JPRB,6.7829E-07_JPRB,6.6887E-07_JPRB,4.3991E-07_JPRB/)
+KBO( :, 5,50, 4) = (/&
+&1.9076E-07_JPRB,7.7947E-07_JPRB,8.8269E-07_JPRB,8.3154E-07_JPRB,5.0913E-07_JPRB/)
+KBO( :, 1,51, 4) = (/&
+&1.3493E-08_JPRB,1.5211E-07_JPRB,2.2929E-07_JPRB,3.3385E-07_JPRB,2.3077E-07_JPRB/)
+KBO( :, 2,51, 4) = (/&
+&2.5122E-08_JPRB,2.1611E-07_JPRB,2.9145E-07_JPRB,3.6106E-07_JPRB,2.5676E-07_JPRB/)
+KBO( :, 3,51, 4) = (/&
+&4.5978E-08_JPRB,3.0596E-07_JPRB,3.8316E-07_JPRB,4.1984E-07_JPRB,2.9257E-07_JPRB/)
+KBO( :, 4,51, 4) = (/&
+&8.0110E-08_JPRB,4.2511E-07_JPRB,5.0483E-07_JPRB,5.0877E-07_JPRB,3.3737E-07_JPRB/)
+KBO( :, 5,51, 4) = (/&
+&1.3215E-07_JPRB,5.7668E-07_JPRB,6.5965E-07_JPRB,6.3029E-07_JPRB,3.9043E-07_JPRB/)
+KBO( :, 1,52, 4) = (/&
+&8.9230E-09_JPRB,1.1071E-07_JPRB,1.7523E-07_JPRB,2.7190E-07_JPRB,1.8118E-07_JPRB/)
+KBO( :, 2,52, 4) = (/&
+&1.6411E-08_JPRB,1.5606E-07_JPRB,2.1785E-07_JPRB,2.8505E-07_JPRB,1.9923E-07_JPRB/)
+KBO( :, 3,52, 4) = (/&
+&3.0439E-08_JPRB,2.2195E-07_JPRB,2.8438E-07_JPRB,3.2394E-07_JPRB,2.2485E-07_JPRB/)
+KBO( :, 4,52, 4) = (/&
+&5.4073E-08_JPRB,3.1080E-07_JPRB,3.7535E-07_JPRB,3.8813E-07_JPRB,2.5827E-07_JPRB/)
+KBO( :, 5,52, 4) = (/&
+&9.0961E-08_JPRB,4.2534E-07_JPRB,4.9215E-07_JPRB,4.7800E-07_JPRB,2.9864E-07_JPRB/)
+KBO( :, 1,53, 4) = (/&
+&5.9876E-09_JPRB,8.1201E-08_JPRB,1.3536E-07_JPRB,2.2434E-07_JPRB,1.4306E-07_JPRB/)
+KBO( :, 2,53, 4) = (/&
+&1.0717E-08_JPRB,1.1272E-07_JPRB,1.6383E-07_JPRB,2.2748E-07_JPRB,1.5495E-07_JPRB/)
+KBO( :, 3,53, 4) = (/&
+&2.0015E-08_JPRB,1.6060E-07_JPRB,2.1125E-07_JPRB,2.5162E-07_JPRB,1.7284E-07_JPRB/)
+KBO( :, 4,53, 4) = (/&
+&3.6209E-08_JPRB,2.2643E-07_JPRB,2.7869E-07_JPRB,2.9706E-07_JPRB,1.9723E-07_JPRB/)
+KBO( :, 5,53, 4) = (/&
+&6.2161E-08_JPRB,3.1263E-07_JPRB,3.6655E-07_JPRB,3.6292E-07_JPRB,2.2770E-07_JPRB/)
+KBO( :, 1,54, 4) = (/&
+&4.1655E-09_JPRB,6.0699E-08_JPRB,1.0631E-07_JPRB,1.8695E-07_JPRB,1.1504E-07_JPRB/)
+KBO( :, 2,54, 4) = (/&
+&7.1662E-09_JPRB,8.2506E-08_JPRB,1.2498E-07_JPRB,1.8360E-07_JPRB,1.2311E-07_JPRB/)
+KBO( :, 3,54, 4) = (/&
+&1.3353E-08_JPRB,1.1732E-07_JPRB,1.5863E-07_JPRB,1.9781E-07_JPRB,1.3609E-07_JPRB/)
+KBO( :, 4,54, 4) = (/&
+&2.4527E-08_JPRB,1.6632E-07_JPRB,2.0860E-07_JPRB,2.2954E-07_JPRB,1.5431E-07_JPRB/)
+KBO( :, 5,54, 4) = (/&
+&4.2883E-08_JPRB,2.3139E-07_JPRB,2.7507E-07_JPRB,2.7789E-07_JPRB,1.7766E-07_JPRB/)
+KBO( :, 1,55, 4) = (/&
+&2.9815E-09_JPRB,4.5994E-08_JPRB,8.4525E-08_JPRB,1.5735E-07_JPRB,9.3462E-08_JPRB/)
+KBO( :, 2,55, 4) = (/&
+&4.8723E-09_JPRB,6.0940E-08_JPRB,9.6391E-08_JPRB,1.4974E-07_JPRB,9.9006E-08_JPRB/)
+KBO( :, 3,55, 4) = (/&
+&8.9683E-09_JPRB,8.6061E-08_JPRB,1.1996E-07_JPRB,1.5698E-07_JPRB,1.0869E-07_JPRB/)
+KBO( :, 4,55, 4) = (/&
+&1.6661E-08_JPRB,1.2249E-07_JPRB,1.5677E-07_JPRB,1.7852E-07_JPRB,1.2250E-07_JPRB/)
+KBO( :, 5,55, 4) = (/&
+&2.9629E-08_JPRB,1.7161E-07_JPRB,2.0705E-07_JPRB,2.1394E-07_JPRB,1.4060E-07_JPRB/)
+KBO( :, 1,56, 4) = (/&
+&2.1861E-09_JPRB,3.5243E-08_JPRB,6.7842E-08_JPRB,1.3338E-07_JPRB,7.6071E-08_JPRB/)
+KBO( :, 2,56, 4) = (/&
+&3.3518E-09_JPRB,4.5292E-08_JPRB,7.4962E-08_JPRB,1.2335E-07_JPRB,7.9965E-08_JPRB/)
+KBO( :, 3,56, 4) = (/&
+&6.0272E-09_JPRB,6.3165E-08_JPRB,9.1168E-08_JPRB,1.2562E-07_JPRB,8.7021E-08_JPRB/)
+KBO( :, 4,56, 4) = (/&
+&1.1269E-08_JPRB,9.0068E-08_JPRB,1.1792E-07_JPRB,1.3956E-07_JPRB,9.7479E-08_JPRB/)
+KBO( :, 5,56, 4) = (/&
+&2.0362E-08_JPRB,1.2698E-07_JPRB,1.5571E-07_JPRB,1.6515E-07_JPRB,1.1148E-07_JPRB/)
+KBO( :, 1,57, 4) = (/&
+&1.6409E-09_JPRB,2.7386E-08_JPRB,5.4848E-08_JPRB,1.1388E-07_JPRB,6.2033E-08_JPRB/)
+KBO( :, 2,57, 4) = (/&
+&2.3428E-09_JPRB,3.3930E-08_JPRB,5.8875E-08_JPRB,1.0251E-07_JPRB,6.4870E-08_JPRB/)
+KBO( :, 3,57, 4) = (/&
+&4.0625E-09_JPRB,4.6423E-08_JPRB,6.9674E-08_JPRB,1.0133E-07_JPRB,6.9866E-08_JPRB/)
+KBO( :, 4,57, 4) = (/&
+&7.5880E-09_JPRB,6.6138E-08_JPRB,8.8862E-08_JPRB,1.0977E-07_JPRB,7.7746E-08_JPRB/)
+KBO( :, 5,57, 4) = (/&
+&1.3915E-08_JPRB,9.3738E-08_JPRB,1.1702E-07_JPRB,1.2786E-07_JPRB,8.8586E-08_JPRB/)
+KBO( :, 1,58, 4) = (/&
+&1.2635E-09_JPRB,2.1604E-08_JPRB,4.4731E-08_JPRB,9.7552E-08_JPRB,5.0828E-08_JPRB/)
+KBO( :, 2,58, 4) = (/&
+&1.6814E-09_JPRB,2.5762E-08_JPRB,4.6786E-08_JPRB,8.5976E-08_JPRB,5.2911E-08_JPRB/)
+KBO( :, 3,58, 4) = (/&
+&2.7835E-09_JPRB,3.4427E-08_JPRB,5.3815E-08_JPRB,8.2469E-08_JPRB,5.6515E-08_JPRB/)
+KBO( :, 4,58, 4) = (/&
+&5.1497E-09_JPRB,4.8806E-08_JPRB,6.7425E-08_JPRB,8.7085E-08_JPRB,6.2504E-08_JPRB/)
+KBO( :, 5,58, 4) = (/&
+&9.5533E-09_JPRB,6.9446E-08_JPRB,8.8336E-08_JPRB,9.9625E-08_JPRB,7.0988E-08_JPRB/)
+KBO( :, 1,59, 4) = (/&
+&1.0158E-09_JPRB,1.7490E-08_JPRB,3.6651E-08_JPRB,8.1330E-08_JPRB,4.2750E-08_JPRB/)
+KBO( :, 2,59, 4) = (/&
+&1.3161E-09_JPRB,2.0543E-08_JPRB,3.7942E-08_JPRB,7.1098E-08_JPRB,4.4506E-08_JPRB/)
+KBO( :, 3,59, 4) = (/&
+&2.1325E-09_JPRB,2.7191E-08_JPRB,4.3180E-08_JPRB,6.7506E-08_JPRB,4.7664E-08_JPRB/)
+KBO( :, 4,59, 4) = (/&
+&3.9206E-09_JPRB,3.8435E-08_JPRB,5.3711E-08_JPRB,7.0587E-08_JPRB,5.2961E-08_JPRB/)
+KBO( :, 5,59, 4) = (/&
+&7.2991E-09_JPRB,5.4760E-08_JPRB,7.0199E-08_JPRB,8.0158E-08_JPRB,6.0356E-08_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_B1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B2.F90	(revision 2160)
@@ -0,0 +1,1925 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_B2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different H2O to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = H2O/(H2O+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of H2O.  For instance, JS=1 refers to no H2O, 
+!     JS = 2 corresponds to eta = 0.25, etc.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 5) = (/&
+&4.7279E-04_JPRB,8.7098E-04_JPRB,9.0543E-04_JPRB,9.3823E-04_JPRB,7.8919E-03_JPRB/)
+KBO( :, 2,13, 5) = (/&
+&6.4177E-04_JPRB,1.1728E-03_JPRB,1.1865E-03_JPRB,1.1108E-03_JPRB,8.6809E-03_JPRB/)
+KBO( :, 3,13, 5) = (/&
+&8.7771E-04_JPRB,1.5520E-03_JPRB,1.5457E-03_JPRB,1.3624E-03_JPRB,9.6358E-03_JPRB/)
+KBO( :, 4,13, 5) = (/&
+&1.1913E-03_JPRB,2.0247E-03_JPRB,1.9864E-03_JPRB,1.6883E-03_JPRB,1.0697E-02_JPRB/)
+KBO( :, 5,13, 5) = (/&
+&1.5849E-03_JPRB,2.6087E-03_JPRB,2.5214E-03_JPRB,2.0902E-03_JPRB,1.1832E-02_JPRB/)
+KBO( :, 1,14, 5) = (/&
+&3.9797E-04_JPRB,7.4264E-04_JPRB,7.7131E-04_JPRB,7.8917E-04_JPRB,6.3875E-03_JPRB/)
+KBO( :, 2,14, 5) = (/&
+&5.4883E-04_JPRB,1.0041E-03_JPRB,1.0164E-03_JPRB,9.4462E-04_JPRB,7.1228E-03_JPRB/)
+KBO( :, 3,14, 5) = (/&
+&7.5764E-04_JPRB,1.3360E-03_JPRB,1.3281E-03_JPRB,1.1660E-03_JPRB,7.9451E-03_JPRB/)
+KBO( :, 4,14, 5) = (/&
+&1.0318E-03_JPRB,1.7525E-03_JPRB,1.7145E-03_JPRB,1.4506E-03_JPRB,8.8337E-03_JPRB/)
+KBO( :, 5,14, 5) = (/&
+&1.3764E-03_JPRB,2.2658E-03_JPRB,2.1860E-03_JPRB,1.8014E-03_JPRB,9.7391E-03_JPRB/)
+KBO( :, 1,15, 5) = (/&
+&3.3164E-04_JPRB,6.3085E-04_JPRB,6.5753E-04_JPRB,6.6377E-04_JPRB,4.8736E-03_JPRB/)
+KBO( :, 2,15, 5) = (/&
+&4.6431E-04_JPRB,8.5791E-04_JPRB,8.7041E-04_JPRB,8.0246E-04_JPRB,5.4864E-03_JPRB/)
+KBO( :, 3,15, 5) = (/&
+&6.4635E-04_JPRB,1.1477E-03_JPRB,1.1413E-03_JPRB,9.9664E-04_JPRB,6.1519E-03_JPRB/)
+KBO( :, 4,15, 5) = (/&
+&8.8542E-04_JPRB,1.5118E-03_JPRB,1.4797E-03_JPRB,1.2450E-03_JPRB,6.8384E-03_JPRB/)
+KBO( :, 5,15, 5) = (/&
+&1.1860E-03_JPRB,1.9607E-03_JPRB,1.8917E-03_JPRB,1.5514E-03_JPRB,7.5330E-03_JPRB/)
+KBO( :, 1,16, 5) = (/&
+&2.7547E-04_JPRB,5.3540E-04_JPRB,5.5986E-04_JPRB,5.5850E-04_JPRB,3.5571E-03_JPRB/)
+KBO( :, 2,16, 5) = (/&
+&3.9076E-04_JPRB,7.3210E-04_JPRB,7.4449E-04_JPRB,6.8182E-04_JPRB,4.0376E-03_JPRB/)
+KBO( :, 3,16, 5) = (/&
+&5.4914E-04_JPRB,9.8388E-04_JPRB,9.7975E-04_JPRB,8.5148E-04_JPRB,4.5400E-03_JPRB/)
+KBO( :, 4,16, 5) = (/&
+&7.5647E-04_JPRB,1.3013E-03_JPRB,1.2750E-03_JPRB,1.0673E-03_JPRB,5.0491E-03_JPRB/)
+KBO( :, 5,16, 5) = (/&
+&1.0168E-03_JPRB,1.6894E-03_JPRB,1.6327E-03_JPRB,1.3347E-03_JPRB,5.5864E-03_JPRB/)
+KBO( :, 1,17, 5) = (/&
+&2.3152E-04_JPRB,4.5640E-04_JPRB,4.7753E-04_JPRB,4.7152E-04_JPRB,2.6479E-03_JPRB/)
+KBO( :, 2,17, 5) = (/&
+&3.3215E-04_JPRB,6.2600E-04_JPRB,6.3690E-04_JPRB,5.8069E-04_JPRB,3.0163E-03_JPRB/)
+KBO( :, 3,17, 5) = (/&
+&4.6960E-04_JPRB,8.4466E-04_JPRB,8.4113E-04_JPRB,7.2795E-04_JPRB,3.3924E-03_JPRB/)
+KBO( :, 4,17, 5) = (/&
+&6.4890E-04_JPRB,1.1190E-03_JPRB,1.0981E-03_JPRB,9.1560E-04_JPRB,3.7876E-03_JPRB/)
+KBO( :, 5,17, 5) = (/&
+&8.7357E-04_JPRB,1.4542E-03_JPRB,1.4067E-03_JPRB,1.1490E-03_JPRB,4.2015E-03_JPRB/)
+KBO( :, 1,18, 5) = (/&
+&1.9932E-04_JPRB,3.9153E-04_JPRB,4.0894E-04_JPRB,3.9983E-04_JPRB,2.0392E-03_JPRB/)
+KBO( :, 2,18, 5) = (/&
+&2.8740E-04_JPRB,5.3802E-04_JPRB,5.4670E-04_JPRB,4.9548E-04_JPRB,2.3218E-03_JPRB/)
+KBO( :, 3,18, 5) = (/&
+&4.0688E-04_JPRB,7.2769E-04_JPRB,7.2473E-04_JPRB,6.2367E-04_JPRB,2.6171E-03_JPRB/)
+KBO( :, 4,18, 5) = (/&
+&5.6212E-04_JPRB,9.6442E-04_JPRB,9.4622E-04_JPRB,7.8767E-04_JPRB,2.9286E-03_JPRB/)
+KBO( :, 5,18, 5) = (/&
+&7.5657E-04_JPRB,1.2523E-03_JPRB,1.2126E-03_JPRB,9.8987E-04_JPRB,3.2584E-03_JPRB/)
+KBO( :, 1,19, 5) = (/&
+&1.7300E-04_JPRB,3.3615E-04_JPRB,3.5010E-04_JPRB,3.3920E-04_JPRB,1.6249E-03_JPRB/)
+KBO( :, 2,19, 5) = (/&
+&2.4990E-04_JPRB,4.6314E-04_JPRB,4.6930E-04_JPRB,4.2253E-04_JPRB,1.8509E-03_JPRB/)
+KBO( :, 3,19, 5) = (/&
+&3.5374E-04_JPRB,6.2681E-04_JPRB,6.2354E-04_JPRB,5.3462E-04_JPRB,2.0903E-03_JPRB/)
+KBO( :, 4,19, 5) = (/&
+&4.8808E-04_JPRB,8.3000E-04_JPRB,8.1368E-04_JPRB,6.7693E-04_JPRB,2.3442E-03_JPRB/)
+KBO( :, 5,19, 5) = (/&
+&6.5622E-04_JPRB,1.0763E-03_JPRB,1.0415E-03_JPRB,8.5100E-04_JPRB,2.6149E-03_JPRB/)
+KBO( :, 1,20, 5) = (/&
+&1.5202E-04_JPRB,2.9089E-04_JPRB,3.0118E-04_JPRB,2.8847E-04_JPRB,1.3195E-03_JPRB/)
+KBO( :, 2,20, 5) = (/&
+&2.1947E-04_JPRB,4.0137E-04_JPRB,4.0488E-04_JPRB,3.6160E-04_JPRB,1.5051E-03_JPRB/)
+KBO( :, 3,20, 5) = (/&
+&3.1005E-04_JPRB,5.4229E-04_JPRB,5.3773E-04_JPRB,4.5934E-04_JPRB,1.7011E-03_JPRB/)
+KBO( :, 4,20, 5) = (/&
+&4.2687E-04_JPRB,7.1641E-04_JPRB,7.0062E-04_JPRB,5.8213E-04_JPRB,1.9126E-03_JPRB/)
+KBO( :, 5,20, 5) = (/&
+&5.7243E-04_JPRB,9.2825E-04_JPRB,8.9565E-04_JPRB,7.3135E-04_JPRB,2.1352E-03_JPRB/)
+KBO( :, 1,21, 5) = (/&
+&1.3342E-04_JPRB,2.5207E-04_JPRB,2.5927E-04_JPRB,2.4529E-04_JPRB,1.0741E-03_JPRB/)
+KBO( :, 2,21, 5) = (/&
+&1.9233E-04_JPRB,3.4753E-04_JPRB,3.4906E-04_JPRB,3.0934E-04_JPRB,1.2262E-03_JPRB/)
+KBO( :, 3,21, 5) = (/&
+&2.7108E-04_JPRB,4.6836E-04_JPRB,4.6295E-04_JPRB,3.9387E-04_JPRB,1.3885E-03_JPRB/)
+KBO( :, 4,21, 5) = (/&
+&3.7228E-04_JPRB,6.1777E-04_JPRB,6.0200E-04_JPRB,4.9887E-04_JPRB,1.5626E-03_JPRB/)
+KBO( :, 5,21, 5) = (/&
+&4.9911E-04_JPRB,7.9951E-04_JPRB,7.6864E-04_JPRB,6.2637E-04_JPRB,1.7443E-03_JPRB/)
+KBO( :, 1,22, 5) = (/&
+&1.1876E-04_JPRB,2.2232E-04_JPRB,2.2723E-04_JPRB,2.1144E-04_JPRB,8.6475E-04_JPRB/)
+KBO( :, 2,22, 5) = (/&
+&1.7098E-04_JPRB,3.0547E-04_JPRB,3.0556E-04_JPRB,2.6827E-04_JPRB,9.8817E-04_JPRB/)
+KBO( :, 3,22, 5) = (/&
+&2.4024E-04_JPRB,4.1043E-04_JPRB,4.0412E-04_JPRB,3.4171E-04_JPRB,1.1213E-03_JPRB/)
+KBO( :, 4,22, 5) = (/&
+&3.2954E-04_JPRB,5.4028E-04_JPRB,5.2414E-04_JPRB,4.3238E-04_JPRB,1.2619E-03_JPRB/)
+KBO( :, 5,22, 5) = (/&
+&4.4187E-04_JPRB,6.9761E-04_JPRB,6.6809E-04_JPRB,5.4249E-04_JPRB,1.4080E-03_JPRB/)
+KBO( :, 1,23, 5) = (/&
+&1.0533E-04_JPRB,1.9573E-04_JPRB,1.9910E-04_JPRB,1.8269E-04_JPRB,6.9257E-04_JPRB/)
+KBO( :, 2,23, 5) = (/&
+&1.5155E-04_JPRB,2.6816E-04_JPRB,2.6720E-04_JPRB,2.3262E-04_JPRB,7.9308E-04_JPRB/)
+KBO( :, 3,23, 5) = (/&
+&2.1274E-04_JPRB,3.5921E-04_JPRB,3.5244E-04_JPRB,2.9616E-04_JPRB,9.0068E-04_JPRB/)
+KBO( :, 4,23, 5) = (/&
+&2.9190E-04_JPRB,4.7191E-04_JPRB,4.5593E-04_JPRB,3.7445E-04_JPRB,1.0136E-03_JPRB/)
+KBO( :, 5,23, 5) = (/&
+&3.9138E-04_JPRB,6.0878E-04_JPRB,5.8059E-04_JPRB,4.6968E-04_JPRB,1.1306E-03_JPRB/)
+KBO( :, 1,24, 5) = (/&
+&9.2582E-05_JPRB,1.7167E-04_JPRB,1.7398E-04_JPRB,1.5781E-04_JPRB,5.4677E-04_JPRB/)
+KBO( :, 2,24, 5) = (/&
+&1.3344E-04_JPRB,2.3456E-04_JPRB,2.3315E-04_JPRB,2.0139E-04_JPRB,6.2782E-04_JPRB/)
+KBO( :, 3,24, 5) = (/&
+&1.8769E-04_JPRB,3.1365E-04_JPRB,3.0670E-04_JPRB,2.5637E-04_JPRB,7.1420E-04_JPRB/)
+KBO( :, 4,24, 5) = (/&
+&2.5773E-04_JPRB,4.1174E-04_JPRB,3.9630E-04_JPRB,3.2402E-04_JPRB,8.0431E-04_JPRB/)
+KBO( :, 5,24, 5) = (/&
+&3.4549E-04_JPRB,5.3124E-04_JPRB,5.0449E-04_JPRB,4.0653E-04_JPRB,8.9759E-04_JPRB/)
+KBO( :, 1,25, 5) = (/&
+&8.1720E-05_JPRB,1.5080E-04_JPRB,1.5235E-04_JPRB,1.3662E-04_JPRB,4.3240E-04_JPRB/)
+KBO( :, 2,25, 5) = (/&
+&1.1805E-04_JPRB,2.0558E-04_JPRB,2.0367E-04_JPRB,1.7460E-04_JPRB,4.9748E-04_JPRB/)
+KBO( :, 3,25, 5) = (/&
+&1.6632E-04_JPRB,2.7459E-04_JPRB,2.6746E-04_JPRB,2.2227E-04_JPRB,5.6662E-04_JPRB/)
+KBO( :, 4,25, 5) = (/&
+&2.2820E-04_JPRB,3.6032E-04_JPRB,3.4539E-04_JPRB,2.8107E-04_JPRB,6.3853E-04_JPRB/)
+KBO( :, 5,25, 5) = (/&
+&3.0509E-04_JPRB,4.6497E-04_JPRB,4.3993E-04_JPRB,3.5289E-04_JPRB,7.1328E-04_JPRB/)
+KBO( :, 1,26, 5) = (/&
+&7.3023E-05_JPRB,1.3337E-04_JPRB,1.3413E-04_JPRB,1.1892E-04_JPRB,3.4584E-04_JPRB/)
+KBO( :, 2,26, 5) = (/&
+&1.0560E-04_JPRB,1.8141E-04_JPRB,1.7894E-04_JPRB,1.5213E-04_JPRB,3.9839E-04_JPRB/)
+KBO( :, 3,26, 5) = (/&
+&1.4861E-04_JPRB,2.4208E-04_JPRB,2.3462E-04_JPRB,1.9371E-04_JPRB,4.5384E-04_JPRB/)
+KBO( :, 4,26, 5) = (/&
+&2.0313E-04_JPRB,3.1741E-04_JPRB,3.0291E-04_JPRB,2.4516E-04_JPRB,5.1150E-04_JPRB/)
+KBO( :, 5,26, 5) = (/&
+&2.7025E-04_JPRB,4.0891E-04_JPRB,3.8585E-04_JPRB,3.0810E-04_JPRB,5.7158E-04_JPRB/)
+KBO( :, 1,27, 5) = (/&
+&6.5244E-05_JPRB,1.1779E-04_JPRB,1.1796E-04_JPRB,1.0347E-04_JPRB,2.7274E-04_JPRB/)
+KBO( :, 2,27, 5) = (/&
+&9.4317E-05_JPRB,1.6003E-04_JPRB,1.5711E-04_JPRB,1.3251E-04_JPRB,3.1462E-04_JPRB/)
+KBO( :, 3,27, 5) = (/&
+&1.3235E-04_JPRB,2.1338E-04_JPRB,2.0578E-04_JPRB,1.6888E-04_JPRB,3.5874E-04_JPRB/)
+KBO( :, 4,27, 5) = (/&
+&1.7994E-04_JPRB,2.7923E-04_JPRB,2.6567E-04_JPRB,2.1397E-04_JPRB,4.0423E-04_JPRB/)
+KBO( :, 5,27, 5) = (/&
+&2.3815E-04_JPRB,3.5878E-04_JPRB,3.3808E-04_JPRB,2.6908E-04_JPRB,4.5194E-04_JPRB/)
+KBO( :, 1,28, 5) = (/&
+&5.8135E-05_JPRB,1.0393E-04_JPRB,1.0358E-04_JPRB,8.9974E-05_JPRB,2.1186E-04_JPRB/)
+KBO( :, 2,28, 5) = (/&
+&8.3922E-05_JPRB,1.4106E-04_JPRB,1.3783E-04_JPRB,1.1539E-04_JPRB,2.4486E-04_JPRB/)
+KBO( :, 3,28, 5) = (/&
+&1.1719E-04_JPRB,1.8771E-04_JPRB,1.8042E-04_JPRB,1.4725E-04_JPRB,2.7921E-04_JPRB/)
+KBO( :, 4,28, 5) = (/&
+&1.5846E-04_JPRB,2.4498E-04_JPRB,2.3269E-04_JPRB,1.8682E-04_JPRB,3.1493E-04_JPRB/)
+KBO( :, 5,28, 5) = (/&
+&2.0834E-04_JPRB,3.1383E-04_JPRB,2.9568E-04_JPRB,2.3488E-04_JPRB,3.5235E-04_JPRB/)
+KBO( :, 1,29, 5) = (/&
+&5.2156E-05_JPRB,9.2110E-05_JPRB,9.1288E-05_JPRB,7.8487E-05_JPRB,1.6379E-04_JPRB/)
+KBO( :, 2,29, 5) = (/&
+&7.4907E-05_JPRB,1.2474E-04_JPRB,1.2134E-04_JPRB,1.0081E-04_JPRB,1.8924E-04_JPRB/)
+KBO( :, 3,29, 5) = (/&
+&1.0389E-04_JPRB,1.6543E-04_JPRB,1.5862E-04_JPRB,1.2884E-04_JPRB,2.1564E-04_JPRB/)
+KBO( :, 4,29, 5) = (/&
+&1.3949E-04_JPRB,2.1507E-04_JPRB,2.0416E-04_JPRB,1.6349E-04_JPRB,2.4336E-04_JPRB/)
+KBO( :, 5,29, 5) = (/&
+&1.8193E-04_JPRB,2.7457E-04_JPRB,2.5880E-04_JPRB,2.0529E-04_JPRB,2.7230E-04_JPRB/)
+KBO( :, 1,30, 5) = (/&
+&4.6665E-05_JPRB,8.1578E-05_JPRB,8.0475E-05_JPRB,6.8545E-05_JPRB,1.2523E-04_JPRB/)
+KBO( :, 2,30, 5) = (/&
+&6.6590E-05_JPRB,1.1011E-04_JPRB,1.0677E-04_JPRB,8.8175E-05_JPRB,1.4448E-04_JPRB/)
+KBO( :, 3,30, 5) = (/&
+&9.1666E-05_JPRB,1.4544E-04_JPRB,1.3932E-04_JPRB,1.1280E-04_JPRB,1.6467E-04_JPRB/)
+KBO( :, 4,30, 5) = (/&
+&1.2214E-04_JPRB,1.8830E-04_JPRB,1.7882E-04_JPRB,1.4301E-04_JPRB,1.8584E-04_JPRB/)
+KBO( :, 5,30, 5) = (/&
+&1.5808E-04_JPRB,2.3937E-04_JPRB,2.2601E-04_JPRB,1.7927E-04_JPRB,2.0804E-04_JPRB/)
+KBO( :, 1,31, 5) = (/&
+&4.1774E-05_JPRB,7.2293E-05_JPRB,7.1044E-05_JPRB,6.0014E-05_JPRB,9.4404E-05_JPRB/)
+KBO( :, 2,31, 5) = (/&
+&5.9153E-05_JPRB,9.7142E-05_JPRB,9.4034E-05_JPRB,7.7303E-05_JPRB,1.0876E-04_JPRB/)
+KBO( :, 3,31, 5) = (/&
+&8.0749E-05_JPRB,1.2773E-04_JPRB,1.2231E-04_JPRB,9.8861E-05_JPRB,1.2383E-04_JPRB/)
+KBO( :, 4,31, 5) = (/&
+&1.0665E-04_JPRB,1.6459E-04_JPRB,1.5646E-04_JPRB,1.2511E-04_JPRB,1.3969E-04_JPRB/)
+KBO( :, 5,31, 5) = (/&
+&1.3708E-04_JPRB,2.0815E-04_JPRB,1.9687E-04_JPRB,1.5634E-04_JPRB,1.5670E-04_JPRB/)
+KBO( :, 1,32, 5) = (/&
+&3.7360E-05_JPRB,6.4042E-05_JPRB,6.2763E-05_JPRB,5.2674E-05_JPRB,7.1295E-05_JPRB/)
+KBO( :, 2,32, 5) = (/&
+&5.2458E-05_JPRB,8.5627E-05_JPRB,8.2786E-05_JPRB,6.7846E-05_JPRB,8.1990E-05_JPRB/)
+KBO( :, 3,32, 5) = (/&
+&7.0948E-05_JPRB,1.1205E-04_JPRB,1.0732E-04_JPRB,8.6659E-05_JPRB,9.3329E-05_JPRB/)
+KBO( :, 4,32, 5) = (/&
+&9.2912E-05_JPRB,1.4361E-04_JPRB,1.3667E-04_JPRB,1.0937E-04_JPRB,1.0550E-04_JPRB/)
+KBO( :, 5,32, 5) = (/&
+&1.1872E-04_JPRB,1.8058E-04_JPRB,1.7108E-04_JPRB,1.3607E-04_JPRB,1.1861E-04_JPRB/)
+KBO( :, 1,33, 5) = (/&
+&3.3330E-05_JPRB,5.6651E-05_JPRB,5.5404E-05_JPRB,4.6257E-05_JPRB,5.3603E-05_JPRB/)
+KBO( :, 2,33, 5) = (/&
+&4.6366E-05_JPRB,7.5365E-05_JPRB,7.2815E-05_JPRB,5.9541E-05_JPRB,6.1709E-05_JPRB/)
+KBO( :, 3,33, 5) = (/&
+&6.2117E-05_JPRB,9.8064E-05_JPRB,9.4002E-05_JPRB,7.5880E-05_JPRB,7.0404E-05_JPRB/)
+KBO( :, 4,33, 5) = (/&
+&8.0785E-05_JPRB,1.2503E-04_JPRB,1.1911E-04_JPRB,9.5440E-05_JPRB,7.9842E-05_JPRB/)
+KBO( :, 5,33, 5) = (/&
+&1.0266E-04_JPRB,1.5642E-04_JPRB,1.4831E-04_JPRB,1.1813E-04_JPRB,8.9956E-05_JPRB/)
+KBO( :, 1,34, 5) = (/&
+&2.9453E-05_JPRB,4.9674E-05_JPRB,4.8494E-05_JPRB,4.0330E-05_JPRB,4.1449E-05_JPRB/)
+KBO( :, 2,34, 5) = (/&
+&4.0587E-05_JPRB,6.5763E-05_JPRB,6.3519E-05_JPRB,5.1852E-05_JPRB,4.7772E-05_JPRB/)
+KBO( :, 3,34, 5) = (/&
+&5.3941E-05_JPRB,8.5109E-05_JPRB,8.1613E-05_JPRB,6.5908E-05_JPRB,5.4645E-05_JPRB/)
+KBO( :, 4,34, 5) = (/&
+&6.9742E-05_JPRB,1.0800E-04_JPRB,1.0292E-04_JPRB,8.2540E-05_JPRB,6.2110E-05_JPRB/)
+KBO( :, 5,34, 5) = (/&
+&8.8248E-05_JPRB,1.3461E-04_JPRB,1.2764E-04_JPRB,1.0173E-04_JPRB,7.0115E-05_JPRB/)
+KBO( :, 1,35, 5) = (/&
+&2.5087E-05_JPRB,4.2259E-05_JPRB,4.1255E-05_JPRB,3.4275E-05_JPRB,3.1533E-05_JPRB/)
+KBO( :, 2,35, 5) = (/&
+&3.4377E-05_JPRB,5.5779E-05_JPRB,5.3928E-05_JPRB,4.4037E-05_JPRB,3.6467E-05_JPRB/)
+KBO( :, 3,35, 5) = (/&
+&4.5509E-05_JPRB,7.1962E-05_JPRB,6.9073E-05_JPRB,5.5855E-05_JPRB,4.1858E-05_JPRB/)
+KBO( :, 4,35, 5) = (/&
+&5.8672E-05_JPRB,9.1085E-05_JPRB,8.6867E-05_JPRB,6.9736E-05_JPRB,4.7718E-05_JPRB/)
+KBO( :, 5,35, 5) = (/&
+&7.4086E-05_JPRB,1.1331E-04_JPRB,1.0750E-04_JPRB,8.5753E-05_JPRB,5.3964E-05_JPRB/)
+KBO( :, 1,36, 5) = (/&
+&2.0525E-05_JPRB,3.4767E-05_JPRB,3.4001E-05_JPRB,2.8297E-05_JPRB,2.3548E-05_JPRB/)
+KBO( :, 2,36, 5) = (/&
+&2.8104E-05_JPRB,4.5872E-05_JPRB,4.4441E-05_JPRB,3.6357E-05_JPRB,2.7355E-05_JPRB/)
+KBO( :, 3,36, 5) = (/&
+&3.7199E-05_JPRB,5.9142E-05_JPRB,5.6864E-05_JPRB,4.6074E-05_JPRB,3.1516E-05_JPRB/)
+KBO( :, 4,36, 5) = (/&
+&4.7973E-05_JPRB,7.4842E-05_JPRB,7.1480E-05_JPRB,5.7473E-05_JPRB,3.6056E-05_JPRB/)
+KBO( :, 5,36, 5) = (/&
+&6.0589E-05_JPRB,9.3078E-05_JPRB,8.8416E-05_JPRB,7.0645E-05_JPRB,4.0905E-05_JPRB/)
+KBO( :, 1,37, 5) = (/&
+&1.6118E-05_JPRB,2.7523E-05_JPRB,2.6979E-05_JPRB,2.2543E-05_JPRB,1.8010E-05_JPRB/)
+KBO( :, 2,37, 5) = (/&
+&2.2165E-05_JPRB,3.6407E-05_JPRB,3.5348E-05_JPRB,2.9008E-05_JPRB,2.0983E-05_JPRB/)
+KBO( :, 3,37, 5) = (/&
+&2.9444E-05_JPRB,4.7055E-05_JPRB,4.5326E-05_JPRB,3.6808E-05_JPRB,2.4249E-05_JPRB/)
+KBO( :, 4,37, 5) = (/&
+&3.8081E-05_JPRB,5.9681E-05_JPRB,5.7081E-05_JPRB,4.5982E-05_JPRB,2.7813E-05_JPRB/)
+KBO( :, 5,37, 5) = (/&
+&4.8212E-05_JPRB,7.4374E-05_JPRB,7.0740E-05_JPRB,5.6602E-05_JPRB,3.1635E-05_JPRB/)
+KBO( :, 1,38, 5) = (/&
+&1.2610E-05_JPRB,2.1718E-05_JPRB,2.1343E-05_JPRB,1.7908E-05_JPRB,1.3720E-05_JPRB/)
+KBO( :, 2,38, 5) = (/&
+&1.7424E-05_JPRB,2.8812E-05_JPRB,2.8034E-05_JPRB,2.3079E-05_JPRB,1.6034E-05_JPRB/)
+KBO( :, 3,38, 5) = (/&
+&2.3240E-05_JPRB,3.7339E-05_JPRB,3.6033E-05_JPRB,2.9331E-05_JPRB,1.8589E-05_JPRB/)
+KBO( :, 4,38, 5) = (/&
+&3.0149E-05_JPRB,4.7476E-05_JPRB,4.5479E-05_JPRB,3.6700E-05_JPRB,2.1382E-05_JPRB/)
+KBO( :, 5,38, 5) = (/&
+&3.8276E-05_JPRB,5.9294E-05_JPRB,5.6476E-05_JPRB,4.5256E-05_JPRB,2.4387E-05_JPRB/)
+KBO( :, 1,39, 5) = (/&
+&9.8494E-06_JPRB,1.7119E-05_JPRB,1.6865E-05_JPRB,1.4215E-05_JPRB,1.0374E-05_JPRB/)
+KBO( :, 2,39, 5) = (/&
+&1.3680E-05_JPRB,2.2781E-05_JPRB,2.2215E-05_JPRB,1.8350E-05_JPRB,1.2167E-05_JPRB/)
+KBO( :, 3,39, 5) = (/&
+&1.8324E-05_JPRB,2.9603E-05_JPRB,2.8623E-05_JPRB,2.3356E-05_JPRB,1.4153E-05_JPRB/)
+KBO( :, 4,39, 5) = (/&
+&2.3849E-05_JPRB,3.7739E-05_JPRB,3.6208E-05_JPRB,2.9278E-05_JPRB,1.6336E-05_JPRB/)
+KBO( :, 5,39, 5) = (/&
+&3.0362E-05_JPRB,4.7240E-05_JPRB,4.5057E-05_JPRB,3.6164E-05_JPRB,1.8690E-05_JPRB/)
+KBO( :, 1,40, 5) = (/&
+&7.4339E-06_JPRB,1.3096E-05_JPRB,1.2949E-05_JPRB,1.0994E-05_JPRB,7.9222E-06_JPRB/)
+KBO( :, 2,40, 5) = (/&
+&1.0423E-05_JPRB,1.7529E-05_JPRB,1.7143E-05_JPRB,1.4230E-05_JPRB,9.3215E-06_JPRB/)
+KBO( :, 3,40, 5) = (/&
+&1.4064E-05_JPRB,2.2897E-05_JPRB,2.2194E-05_JPRB,1.8169E-05_JPRB,1.0878E-05_JPRB/)
+KBO( :, 4,40, 5) = (/&
+&1.8421E-05_JPRB,2.9319E-05_JPRB,2.8191E-05_JPRB,2.2850E-05_JPRB,1.2595E-05_JPRB/)
+KBO( :, 5,40, 5) = (/&
+&2.3560E-05_JPRB,3.6849E-05_JPRB,3.5209E-05_JPRB,2.8311E-05_JPRB,1.4456E-05_JPRB/)
+KBO( :, 1,41, 5) = (/&
+&5.5704E-06_JPRB,9.9619E-06_JPRB,9.8891E-06_JPRB,8.4654E-06_JPRB,6.0394E-06_JPRB/)
+KBO( :, 2,41, 5) = (/&
+&7.8899E-06_JPRB,1.3424E-05_JPRB,1.3166E-05_JPRB,1.0990E-05_JPRB,7.1317E-06_JPRB/)
+KBO( :, 3,41, 5) = (/&
+&1.0739E-05_JPRB,1.7632E-05_JPRB,1.7133E-05_JPRB,1.4077E-05_JPRB,8.3487E-06_JPRB/)
+KBO( :, 4,41, 5) = (/&
+&1.4162E-05_JPRB,2.2683E-05_JPRB,2.1860E-05_JPRB,1.7767E-05_JPRB,9.6986E-06_JPRB/)
+KBO( :, 5,41, 5) = (/&
+&1.8206E-05_JPRB,2.8635E-05_JPRB,2.7414E-05_JPRB,2.2091E-05_JPRB,1.1170E-05_JPRB/)
+KBO( :, 1,42, 5) = (/&
+&4.1581E-06_JPRB,7.5591E-06_JPRB,7.5361E-06_JPRB,6.5108E-06_JPRB,4.5852E-06_JPRB/)
+KBO( :, 2,42, 5) = (/&
+&5.9538E-06_JPRB,1.0259E-05_JPRB,1.0094E-05_JPRB,8.4784E-06_JPRB,5.4324E-06_JPRB/)
+KBO( :, 3,42, 5) = (/&
+&8.1801E-06_JPRB,1.3552E-05_JPRB,1.3202E-05_JPRB,1.0892E-05_JPRB,6.3816E-06_JPRB/)
+KBO( :, 4,42, 5) = (/&
+&1.0865E-05_JPRB,1.7520E-05_JPRB,1.6925E-05_JPRB,1.3796E-05_JPRB,7.4382E-06_JPRB/)
+KBO( :, 5,42, 5) = (/&
+&1.4044E-05_JPRB,2.2222E-05_JPRB,2.1312E-05_JPRB,1.7215E-05_JPRB,8.5974E-06_JPRB/)
+KBO( :, 1,43, 5) = (/&
+&3.0295E-06_JPRB,5.6227E-06_JPRB,5.6370E-06_JPRB,4.9291E-06_JPRB,3.4644E-06_JPRB/)
+KBO( :, 2,43, 5) = (/&
+&4.3992E-06_JPRB,7.7006E-06_JPRB,7.6071E-06_JPRB,6.4406E-06_JPRB,4.1177E-06_JPRB/)
+KBO( :, 3,43, 5) = (/&
+&6.1168E-06_JPRB,1.0248E-05_JPRB,1.0014E-05_JPRB,8.3065E-06_JPRB,4.8541E-06_JPRB/)
+KBO( :, 4,43, 5) = (/&
+&8.2022E-06_JPRB,1.3332E-05_JPRB,1.2916E-05_JPRB,1.0567E-05_JPRB,5.6783E-06_JPRB/)
+KBO( :, 5,43, 5) = (/&
+&1.0679E-05_JPRB,1.7006E-05_JPRB,1.6348E-05_JPRB,1.3242E-05_JPRB,6.5871E-06_JPRB/)
+KBO( :, 1,44, 5) = (/&
+&2.1752E-06_JPRB,4.1354E-06_JPRB,4.1745E-06_JPRB,3.7028E-06_JPRB,2.6072E-06_JPRB/)
+KBO( :, 2,44, 5) = (/&
+&3.2105E-06_JPRB,5.7219E-06_JPRB,5.6778E-06_JPRB,4.8546E-06_JPRB,3.1066E-06_JPRB/)
+KBO( :, 3,44, 5) = (/&
+&4.5242E-06_JPRB,7.6797E-06_JPRB,7.5307E-06_JPRB,6.2874E-06_JPRB,3.6742E-06_JPRB/)
+KBO( :, 4,44, 5) = (/&
+&6.1342E-06_JPRB,1.0065E-05_JPRB,9.7795E-06_JPRB,8.0353E-06_JPRB,4.3146E-06_JPRB/)
+KBO( :, 5,44, 5) = (/&
+&8.0572E-06_JPRB,1.2919E-05_JPRB,1.2450E-05_JPRB,1.0118E-05_JPRB,5.0246E-06_JPRB/)
+KBO( :, 1,45, 5) = (/&
+&1.5520E-06_JPRB,3.0304E-06_JPRB,3.0821E-06_JPRB,2.7797E-06_JPRB,1.9539E-06_JPRB/)
+KBO( :, 2,45, 5) = (/&
+&2.3304E-06_JPRB,4.2364E-06_JPRB,4.2250E-06_JPRB,3.6531E-06_JPRB,2.3326E-06_JPRB/)
+KBO( :, 3,45, 5) = (/&
+&3.3303E-06_JPRB,5.7394E-06_JPRB,5.6502E-06_JPRB,4.7523E-06_JPRB,2.7664E-06_JPRB/)
+KBO( :, 4,45, 5) = (/&
+&4.5711E-06_JPRB,7.5789E-06_JPRB,7.3862E-06_JPRB,6.0991E-06_JPRB,3.2606E-06_JPRB/)
+KBO( :, 5,45, 5) = (/&
+&6.0612E-06_JPRB,9.7914E-06_JPRB,9.4635E-06_JPRB,7.7174E-06_JPRB,3.8129E-06_JPRB/)
+KBO( :, 1,46, 5) = (/&
+&1.0896E-06_JPRB,2.1957E-06_JPRB,2.2531E-06_JPRB,2.0749E-06_JPRB,1.4595E-06_JPRB/)
+KBO( :, 2,46, 5) = (/&
+&1.6682E-06_JPRB,3.1035E-06_JPRB,3.1144E-06_JPRB,2.7296E-06_JPRB,1.7441E-06_JPRB/)
+KBO( :, 3,46, 5) = (/&
+&2.4227E-06_JPRB,4.2500E-06_JPRB,4.2020E-06_JPRB,3.5671E-06_JPRB,2.0729E-06_JPRB/)
+KBO( :, 4,46, 5) = (/&
+&3.3718E-06_JPRB,5.6598E-06_JPRB,5.5353E-06_JPRB,4.5977E-06_JPRB,2.4518E-06_JPRB/)
+KBO( :, 5,46, 5) = (/&
+&4.5215E-06_JPRB,7.3662E-06_JPRB,7.1417E-06_JPRB,5.8470E-06_JPRB,2.8782E-06_JPRB/)
+KBO( :, 1,47, 5) = (/&
+&7.4469E-07_JPRB,1.5605E-06_JPRB,1.6200E-06_JPRB,1.5335E-06_JPRB,1.0893E-06_JPRB/)
+KBO( :, 2,47, 5) = (/&
+&1.1672E-06_JPRB,2.2327E-06_JPRB,2.2585E-06_JPRB,2.0143E-06_JPRB,1.3019E-06_JPRB/)
+KBO( :, 3,47, 5) = (/&
+&1.7284E-06_JPRB,3.0966E-06_JPRB,3.0782E-06_JPRB,2.6442E-06_JPRB,1.5506E-06_JPRB/)
+KBO( :, 4,47, 5) = (/&
+&2.4447E-06_JPRB,4.1671E-06_JPRB,4.0916E-06_JPRB,3.4253E-06_JPRB,1.8389E-06_JPRB/)
+KBO( :, 5,47, 5) = (/&
+&3.3234E-06_JPRB,5.4710E-06_JPRB,5.3227E-06_JPRB,4.3793E-06_JPRB,2.1666E-06_JPRB/)
+KBO( :, 1,48, 5) = (/&
+&5.0356E-07_JPRB,1.1031E-06_JPRB,1.1612E-06_JPRB,1.1366E-06_JPRB,8.1111E-07_JPRB/)
+KBO( :, 2,48, 5) = (/&
+&8.0967E-07_JPRB,1.5982E-06_JPRB,1.6316E-06_JPRB,1.4855E-06_JPRB,9.6803E-07_JPRB/)
+KBO( :, 3,48, 5) = (/&
+&1.2240E-06_JPRB,2.2449E-06_JPRB,2.2458E-06_JPRB,1.9554E-06_JPRB,1.1545E-06_JPRB/)
+KBO( :, 4,48, 5) = (/&
+&1.7609E-06_JPRB,3.0561E-06_JPRB,3.0144E-06_JPRB,2.5471E-06_JPRB,1.3716E-06_JPRB/)
+KBO( :, 5,48, 5) = (/&
+&2.4302E-06_JPRB,4.0500E-06_JPRB,3.9537E-06_JPRB,3.2729E-06_JPRB,1.6214E-06_JPRB/)
+KBO( :, 1,49, 5) = (/&
+&3.3669E-07_JPRB,7.7562E-07_JPRB,8.3013E-07_JPRB,8.4661E-07_JPRB,6.0239E-07_JPRB/)
+KBO( :, 2,49, 5) = (/&
+&5.5618E-07_JPRB,1.1378E-06_JPRB,1.1737E-06_JPRB,1.0960E-06_JPRB,7.1701E-07_JPRB/)
+KBO( :, 3,49, 5) = (/&
+&8.5966E-07_JPRB,1.6189E-06_JPRB,1.6315E-06_JPRB,1.4432E-06_JPRB,8.5489E-07_JPRB/)
+KBO( :, 4,49, 5) = (/&
+&1.2600E-06_JPRB,2.2310E-06_JPRB,2.2122E-06_JPRB,1.8904E-06_JPRB,1.0169E-06_JPRB/)
+KBO( :, 5,49, 5) = (/&
+&1.7668E-06_JPRB,2.9864E-06_JPRB,2.9265E-06_JPRB,2.4403E-06_JPRB,1.2053E-06_JPRB/)
+KBO( :, 1,50, 5) = (/&
+&2.2597E-07_JPRB,5.4865E-07_JPRB,5.9834E-07_JPRB,6.3972E-07_JPRB,4.5578E-07_JPRB/)
+KBO( :, 2,50, 5) = (/&
+&3.8336E-07_JPRB,8.1421E-07_JPRB,8.4965E-07_JPRB,8.1592E-07_JPRB,5.4000E-07_JPRB/)
+KBO( :, 3,50, 5) = (/&
+&6.0620E-07_JPRB,1.1725E-06_JPRB,1.1909E-06_JPRB,1.0720E-06_JPRB,6.4348E-07_JPRB/)
+KBO( :, 4,50, 5) = (/&
+&9.0494E-07_JPRB,1.6354E-06_JPRB,1.6304E-06_JPRB,1.4100E-06_JPRB,7.6597E-07_JPRB/)
+KBO( :, 5,50, 5) = (/&
+&1.2886E-06_JPRB,2.2119E-06_JPRB,2.1763E-06_JPRB,1.8292E-06_JPRB,9.0912E-07_JPRB/)
+KBO( :, 1,51, 5) = (/&
+&1.5102E-07_JPRB,3.8839E-07_JPRB,4.3315E-07_JPRB,4.8969E-07_JPRB,3.4866E-07_JPRB/)
+KBO( :, 2,51, 5) = (/&
+&2.6341E-07_JPRB,5.8277E-07_JPRB,6.1614E-07_JPRB,6.1112E-07_JPRB,4.1018E-07_JPRB/)
+KBO( :, 3,51, 5) = (/&
+&4.2666E-07_JPRB,8.4914E-07_JPRB,8.6978E-07_JPRB,7.9868E-07_JPRB,4.8807E-07_JPRB/)
+KBO( :, 4,51, 5) = (/&
+&6.4908E-07_JPRB,1.1984E-06_JPRB,1.2019E-06_JPRB,1.0530E-06_JPRB,5.8123E-07_JPRB/)
+KBO( :, 5,51, 5) = (/&
+&9.3904E-07_JPRB,1.6385E-06_JPRB,1.6190E-06_JPRB,1.3734E-06_JPRB,6.9028E-07_JPRB/)
+KBO( :, 1,52, 5) = (/&
+&9.9875E-08_JPRB,2.7392E-07_JPRB,3.1411E-07_JPRB,3.7992E-07_JPRB,2.6732E-07_JPRB/)
+KBO( :, 2,52, 5) = (/&
+&1.7936E-07_JPRB,4.1537E-07_JPRB,4.4601E-07_JPRB,4.6002E-07_JPRB,3.1160E-07_JPRB/)
+KBO( :, 3,52, 5) = (/&
+&2.9800E-07_JPRB,6.1230E-07_JPRB,6.3323E-07_JPRB,5.9558E-07_JPRB,3.6937E-07_JPRB/)
+KBO( :, 4,52, 5) = (/&
+&4.6262E-07_JPRB,8.7457E-07_JPRB,8.8316E-07_JPRB,7.8544E-07_JPRB,4.3987E-07_JPRB/)
+KBO( :, 5,52, 5) = (/&
+&6.8072E-07_JPRB,1.2094E-06_JPRB,1.2006E-06_JPRB,1.0296E-06_JPRB,5.2264E-07_JPRB/)
+KBO( :, 1,53, 5) = (/&
+&6.5343E-08_JPRB,1.9251E-07_JPRB,2.2851E-07_JPRB,2.9947E-07_JPRB,2.0556E-07_JPRB/)
+KBO( :, 2,53, 5) = (/&
+&1.2091E-07_JPRB,2.9469E-07_JPRB,3.2248E-07_JPRB,3.4877E-07_JPRB,2.3686E-07_JPRB/)
+KBO( :, 3,53, 5) = (/&
+&2.0627E-07_JPRB,4.3946E-07_JPRB,4.5963E-07_JPRB,4.4471E-07_JPRB,2.7889E-07_JPRB/)
+KBO( :, 4,53, 5) = (/&
+&3.2743E-07_JPRB,6.3522E-07_JPRB,6.4653E-07_JPRB,5.8508E-07_JPRB,3.3168E-07_JPRB/)
+KBO( :, 5,53, 5) = (/&
+&4.9060E-07_JPRB,8.8881E-07_JPRB,8.8708E-07_JPRB,7.7003E-07_JPRB,3.9409E-07_JPRB/)
+KBO( :, 1,54, 5) = (/&
+&4.3306E-08_JPRB,1.3699E-07_JPRB,1.6897E-07_JPRB,2.4035E-07_JPRB,1.6171E-07_JPRB/)
+KBO( :, 2,54, 5) = (/&
+&8.2182E-08_JPRB,2.1109E-07_JPRB,2.3589E-07_JPRB,2.6887E-07_JPRB,1.8465E-07_JPRB/)
+KBO( :, 3,54, 5) = (/&
+&1.4392E-07_JPRB,3.1803E-07_JPRB,3.3664E-07_JPRB,3.3573E-07_JPRB,2.1605E-07_JPRB/)
+KBO( :, 4,54, 5) = (/&
+&2.3356E-07_JPRB,4.6489E-07_JPRB,4.7688E-07_JPRB,4.3961E-07_JPRB,2.5649E-07_JPRB/)
+KBO( :, 5,54, 5) = (/&
+&3.5601E-07_JPRB,6.5756E-07_JPRB,6.5990E-07_JPRB,5.7981E-07_JPRB,3.0495E-07_JPRB/)
+KBO( :, 1,55, 5) = (/&
+&2.8854E-08_JPRB,9.8072E-08_JPRB,1.2651E-07_JPRB,1.9577E-07_JPRB,1.2893E-07_JPRB/)
+KBO( :, 2,55, 5) = (/&
+&5.5873E-08_JPRB,1.5168E-07_JPRB,1.7364E-07_JPRB,2.1001E-07_JPRB,1.4600E-07_JPRB/)
+KBO( :, 3,55, 5) = (/&
+&1.0041E-07_JPRB,2.3068E-07_JPRB,2.4750E-07_JPRB,2.5542E-07_JPRB,1.6992E-07_JPRB/)
+KBO( :, 4,55, 5) = (/&
+&1.6665E-07_JPRB,3.4087E-07_JPRB,3.5250E-07_JPRB,3.3178E-07_JPRB,2.0129E-07_JPRB/)
+KBO( :, 5,55, 5) = (/&
+&2.5859E-07_JPRB,4.8718E-07_JPRB,4.9183E-07_JPRB,4.3783E-07_JPRB,2.3951E-07_JPRB/)
+KBO( :, 1,56, 5) = (/&
+&1.9183E-08_JPRB,7.0296E-08_JPRB,9.5958E-08_JPRB,1.6166E-07_JPRB,1.0324E-07_JPRB/)
+KBO( :, 2,56, 5) = (/&
+&3.7690E-08_JPRB,1.0873E-07_JPRB,1.2816E-07_JPRB,1.6606E-07_JPRB,1.1573E-07_JPRB/)
+KBO( :, 3,56, 5) = (/&
+&6.9564E-08_JPRB,1.6681E-07_JPRB,1.8184E-07_JPRB,1.9538E-07_JPRB,1.3395E-07_JPRB/)
+KBO( :, 4,56, 5) = (/&
+&1.1817E-07_JPRB,2.4912E-07_JPRB,2.5998E-07_JPRB,2.5068E-07_JPRB,1.5820E-07_JPRB/)
+KBO( :, 5,56, 5) = (/&
+&1.8685E-07_JPRB,3.5979E-07_JPRB,3.6566E-07_JPRB,3.3044E-07_JPRB,1.8828E-07_JPRB/)
+KBO( :, 1,57, 5) = (/&
+&1.2749E-08_JPRB,5.0514E-08_JPRB,7.4147E-08_JPRB,1.3511E-07_JPRB,8.3045E-08_JPRB/)
+KBO( :, 2,57, 5) = (/&
+&2.5237E-08_JPRB,7.7785E-08_JPRB,9.5012E-08_JPRB,1.3300E-07_JPRB,9.1992E-08_JPRB/)
+KBO( :, 3,57, 5) = (/&
+&4.7790E-08_JPRB,1.2024E-07_JPRB,1.3358E-07_JPRB,1.5060E-07_JPRB,1.0586E-07_JPRB/)
+KBO( :, 4,57, 5) = (/&
+&8.3233E-08_JPRB,1.8139E-07_JPRB,1.9136E-07_JPRB,1.8973E-07_JPRB,1.2456E-07_JPRB/)
+KBO( :, 5,57, 5) = (/&
+&1.3430E-07_JPRB,2.6480E-07_JPRB,2.7113E-07_JPRB,2.4926E-07_JPRB,1.4817E-07_JPRB/)
+KBO( :, 1,58, 5) = (/&
+&8.6071E-09_JPRB,3.6748E-08_JPRB,5.8348E-08_JPRB,1.1389E-07_JPRB,6.7280E-08_JPRB/)
+KBO( :, 2,58, 5) = (/&
+&1.7003E-08_JPRB,5.6012E-08_JPRB,7.1270E-08_JPRB,1.0797E-07_JPRB,7.3801E-08_JPRB/)
+KBO( :, 3,58, 5) = (/&
+&3.2884E-08_JPRB,8.7017E-08_JPRB,9.8797E-08_JPRB,1.1752E-07_JPRB,8.4329E-08_JPRB/)
+KBO( :, 4,58, 5) = (/&
+&5.8722E-08_JPRB,1.3250E-07_JPRB,1.4147E-07_JPRB,1.4468E-07_JPRB,9.8923E-08_JPRB/)
+KBO( :, 5,58, 5) = (/&
+&9.6718E-08_JPRB,1.9549E-07_JPRB,2.0167E-07_JPRB,1.8889E-07_JPRB,1.1761E-07_JPRB/)
+KBO( :, 1,59, 5) = (/&
+&6.5762E-09_JPRB,2.8839E-08_JPRB,4.7240E-08_JPRB,9.4281E-08_JPRB,5.6347E-08_JPRB/)
+KBO( :, 2,59, 5) = (/&
+&1.2969E-08_JPRB,4.3747E-08_JPRB,5.6620E-08_JPRB,8.8361E-08_JPRB,6.2071E-08_JPRB/)
+KBO( :, 3,59, 5) = (/&
+&2.5275E-08_JPRB,6.8112E-08_JPRB,7.8014E-08_JPRB,9.4814E-08_JPRB,7.1293E-08_JPRB/)
+KBO( :, 4,59, 5) = (/&
+&4.5565E-08_JPRB,1.0415E-07_JPRB,1.1172E-07_JPRB,1.1566E-07_JPRB,8.4152E-08_JPRB/)
+KBO( :, 5,59, 5) = (/&
+&7.5655E-08_JPRB,1.5435E-07_JPRB,1.5965E-07_JPRB,1.5065E-07_JPRB,1.0042E-07_JPRB/)
+KBO( :, 1,13, 6) = (/&
+&1.4917E-03_JPRB,1.8975E-03_JPRB,1.8217E-03_JPRB,1.6462E-03_JPRB,1.5445E-02_JPRB/)
+KBO( :, 2,13, 6) = (/&
+&2.0332E-03_JPRB,2.5878E-03_JPRB,2.4581E-03_JPRB,2.0975E-03_JPRB,1.7016E-02_JPRB/)
+KBO( :, 3,13, 6) = (/&
+&2.7157E-03_JPRB,3.4479E-03_JPRB,3.2442E-03_JPRB,2.6787E-03_JPRB,1.8566E-02_JPRB/)
+KBO( :, 4,13, 6) = (/&
+&3.5630E-03_JPRB,4.4992E-03_JPRB,4.2037E-03_JPRB,3.3897E-03_JPRB,2.0183E-02_JPRB/)
+KBO( :, 5,13, 6) = (/&
+&4.5925E-03_JPRB,5.7651E-03_JPRB,5.3543E-03_JPRB,4.2359E-03_JPRB,2.1919E-02_JPRB/)
+KBO( :, 1,14, 6) = (/&
+&1.2829E-03_JPRB,1.6450E-03_JPRB,1.5791E-03_JPRB,1.4049E-03_JPRB,1.2669E-02_JPRB/)
+KBO( :, 2,14, 6) = (/&
+&1.7594E-03_JPRB,2.2519E-03_JPRB,2.1337E-03_JPRB,1.8028E-03_JPRB,1.3983E-02_JPRB/)
+KBO( :, 3,14, 6) = (/&
+&2.3660E-03_JPRB,3.0125E-03_JPRB,2.8248E-03_JPRB,2.3088E-03_JPRB,1.5340E-02_JPRB/)
+KBO( :, 4,14, 6) = (/&
+&3.1206E-03_JPRB,3.9492E-03_JPRB,3.6685E-03_JPRB,2.9292E-03_JPRB,1.6758E-02_JPRB/)
+KBO( :, 5,14, 6) = (/&
+&4.0424E-03_JPRB,5.0714E-03_JPRB,4.6797E-03_JPRB,3.6711E-03_JPRB,1.8318E-02_JPRB/)
+KBO( :, 1,15, 6) = (/&
+&1.1010E-03_JPRB,1.4255E-03_JPRB,1.3650E-03_JPRB,1.2017E-03_JPRB,9.7184E-03_JPRB/)
+KBO( :, 2,15, 6) = (/&
+&1.5219E-03_JPRB,1.9593E-03_JPRB,1.8495E-03_JPRB,1.5487E-03_JPRB,1.0782E-02_JPRB/)
+KBO( :, 3,15, 6) = (/&
+&2.0586E-03_JPRB,2.6324E-03_JPRB,2.4574E-03_JPRB,1.9892E-03_JPRB,1.1885E-02_JPRB/)
+KBO( :, 4,15, 6) = (/&
+&2.7279E-03_JPRB,3.4587E-03_JPRB,3.1990E-03_JPRB,2.5317E-03_JPRB,1.3076E-02_JPRB/)
+KBO( :, 5,15, 6) = (/&
+&3.5476E-03_JPRB,4.4511E-03_JPRB,4.0873E-03_JPRB,3.1825E-03_JPRB,1.4381E-02_JPRB/)
+KBO( :, 1,16, 6) = (/&
+&9.4439E-04_JPRB,1.2342E-03_JPRB,1.1791E-03_JPRB,1.0290E-03_JPRB,7.0974E-03_JPRB/)
+KBO( :, 2,16, 6) = (/&
+&1.3152E-03_JPRB,1.7038E-03_JPRB,1.6038E-03_JPRB,1.3320E-03_JPRB,7.9219E-03_JPRB/)
+KBO( :, 3,16, 6) = (/&
+&1.7873E-03_JPRB,2.2957E-03_JPRB,2.1360E-03_JPRB,1.7165E-03_JPRB,8.8130E-03_JPRB/)
+KBO( :, 4,16, 6) = (/&
+&2.3776E-03_JPRB,3.0227E-03_JPRB,2.7856E-03_JPRB,2.1917E-03_JPRB,9.7773E-03_JPRB/)
+KBO( :, 5,16, 6) = (/&
+&3.1042E-03_JPRB,3.9007E-03_JPRB,3.5645E-03_JPRB,2.7609E-03_JPRB,1.0823E-02_JPRB/)
+KBO( :, 1,17, 6) = (/&
+&8.1418E-04_JPRB,1.0727E-03_JPRB,1.0215E-03_JPRB,8.8282E-04_JPRB,5.2836E-03_JPRB/)
+KBO( :, 2,17, 6) = (/&
+&1.1389E-03_JPRB,1.4851E-03_JPRB,1.3936E-03_JPRB,1.1467E-03_JPRB,5.9459E-03_JPRB/)
+KBO( :, 3,17, 6) = (/&
+&1.5530E-03_JPRB,2.0047E-03_JPRB,1.8586E-03_JPRB,1.4830E-03_JPRB,6.6722E-03_JPRB/)
+KBO( :, 4,17, 6) = (/&
+&2.0750E-03_JPRB,2.6425E-03_JPRB,2.4247E-03_JPRB,1.8986E-03_JPRB,7.4589E-03_JPRB/)
+KBO( :, 5,17, 6) = (/&
+&2.7144E-03_JPRB,3.4191E-03_JPRB,3.1093E-03_JPRB,2.3947E-03_JPRB,8.3055E-03_JPRB/)
+KBO( :, 1,18, 6) = (/&
+&7.0743E-04_JPRB,9.3753E-04_JPRB,8.9000E-04_JPRB,7.5959E-04_JPRB,4.0718E-03_JPRB/)
+KBO( :, 2,18, 6) = (/&
+&9.9182E-04_JPRB,1.3005E-03_JPRB,1.2154E-03_JPRB,9.9062E-04_JPRB,4.6245E-03_JPRB/)
+KBO( :, 3,18, 6) = (/&
+&1.3564E-03_JPRB,1.7551E-03_JPRB,1.6207E-03_JPRB,1.2856E-03_JPRB,5.2287E-03_JPRB/)
+KBO( :, 4,18, 6) = (/&
+&1.8159E-03_JPRB,2.3174E-03_JPRB,2.1151E-03_JPRB,1.6469E-03_JPRB,5.8797E-03_JPRB/)
+KBO( :, 5,18, 6) = (/&
+&2.3773E-03_JPRB,3.0052E-03_JPRB,2.7189E-03_JPRB,2.0800E-03_JPRB,6.5746E-03_JPRB/)
+KBO( :, 1,19, 6) = (/&
+&6.1525E-04_JPRB,8.1970E-04_JPRB,7.7553E-04_JPRB,6.5423E-04_JPRB,3.2676E-03_JPRB/)
+KBO( :, 2,19, 6) = (/&
+&8.6391E-04_JPRB,1.1368E-03_JPRB,1.0592E-03_JPRB,8.5683E-04_JPRB,3.7402E-03_JPRB/)
+KBO( :, 3,19, 6) = (/&
+&1.1842E-03_JPRB,1.5349E-03_JPRB,1.4113E-03_JPRB,1.1133E-03_JPRB,4.2531E-03_JPRB/)
+KBO( :, 4,19, 6) = (/&
+&1.5850E-03_JPRB,2.0314E-03_JPRB,1.8453E-03_JPRB,1.4271E-03_JPRB,4.8022E-03_JPRB/)
+KBO( :, 5,19, 6) = (/&
+&2.0738E-03_JPRB,2.6347E-03_JPRB,2.3756E-03_JPRB,1.8073E-03_JPRB,5.3894E-03_JPRB/)
+KBO( :, 1,20, 6) = (/&
+&5.3813E-04_JPRB,7.1852E-04_JPRB,6.7742E-04_JPRB,5.6610E-04_JPRB,2.6837E-03_JPRB/)
+KBO( :, 2,20, 6) = (/&
+&7.5609E-04_JPRB,9.9539E-04_JPRB,9.2396E-04_JPRB,7.4319E-04_JPRB,3.0864E-03_JPRB/)
+KBO( :, 3,20, 6) = (/&
+&1.0360E-03_JPRB,1.3460E-03_JPRB,1.2317E-03_JPRB,9.6600E-04_JPRB,3.5220E-03_JPRB/)
+KBO( :, 4,20, 6) = (/&
+&1.3841E-03_JPRB,1.7811E-03_JPRB,1.6124E-03_JPRB,1.2411E-03_JPRB,3.9882E-03_JPRB/)
+KBO( :, 5,20, 6) = (/&
+&1.8083E-03_JPRB,2.3047E-03_JPRB,2.0753E-03_JPRB,1.5749E-03_JPRB,4.4863E-03_JPRB/)
+KBO( :, 1,21, 6) = (/&
+&4.7047E-04_JPRB,6.2774E-04_JPRB,5.8945E-04_JPRB,4.8888E-04_JPRB,2.2094E-03_JPRB/)
+KBO( :, 2,21, 6) = (/&
+&6.6102E-04_JPRB,8.6924E-04_JPRB,8.0377E-04_JPRB,6.4244E-04_JPRB,2.5494E-03_JPRB/)
+KBO( :, 3,21, 6) = (/&
+&9.0363E-04_JPRB,1.1757E-03_JPRB,1.0725E-03_JPRB,8.3681E-04_JPRB,2.9166E-03_JPRB/)
+KBO( :, 4,21, 6) = (/&
+&1.2048E-03_JPRB,1.5526E-03_JPRB,1.4031E-03_JPRB,1.0775E-03_JPRB,3.3103E-03_JPRB/)
+KBO( :, 5,21, 6) = (/&
+&1.5718E-03_JPRB,2.0028E-03_JPRB,1.8024E-03_JPRB,1.3677E-03_JPRB,3.7308E-03_JPRB/)
+KBO( :, 1,22, 6) = (/&
+&4.1907E-04_JPRB,5.5771E-04_JPRB,5.2119E-04_JPRB,4.2792E-04_JPRB,1.8003E-03_JPRB/)
+KBO( :, 2,22, 6) = (/&
+&5.8671E-04_JPRB,7.7133E-04_JPRB,7.0998E-04_JPRB,5.6325E-04_JPRB,2.0828E-03_JPRB/)
+KBO( :, 3,22, 6) = (/&
+&7.9916E-04_JPRB,1.0396E-03_JPRB,9.4560E-04_JPRB,7.3497E-04_JPRB,2.3875E-03_JPRB/)
+KBO( :, 4,22, 6) = (/&
+&1.0624E-03_JPRB,1.3663E-03_JPRB,1.2338E-03_JPRB,9.4591E-04_JPRB,2.7147E-03_JPRB/)
+KBO( :, 5,22, 6) = (/&
+&1.3828E-03_JPRB,1.7569E-03_JPRB,1.5791E-03_JPRB,1.1986E-03_JPRB,3.0625E-03_JPRB/)
+KBO( :, 1,23, 6) = (/&
+&3.7268E-04_JPRB,4.9540E-04_JPRB,4.6049E-04_JPRB,3.7441E-04_JPRB,1.4599E-03_JPRB/)
+KBO( :, 2,23, 6) = (/&
+&5.1963E-04_JPRB,6.8295E-04_JPRB,6.2616E-04_JPRB,4.9378E-04_JPRB,1.6928E-03_JPRB/)
+KBO( :, 3,23, 6) = (/&
+&7.0552E-04_JPRB,9.1627E-04_JPRB,8.3118E-04_JPRB,6.4434E-04_JPRB,1.9439E-03_JPRB/)
+KBO( :, 4,23, 6) = (/&
+&9.3566E-04_JPRB,1.1987E-03_JPRB,1.0808E-03_JPRB,8.2747E-04_JPRB,2.2129E-03_JPRB/)
+KBO( :, 5,23, 6) = (/&
+&1.2165E-03_JPRB,1.5386E-03_JPRB,1.3793E-03_JPRB,1.0460E-03_JPRB,2.4958E-03_JPRB/)
+KBO( :, 1,24, 6) = (/&
+&3.2966E-04_JPRB,4.3876E-04_JPRB,4.0641E-04_JPRB,3.2767E-04_JPRB,1.1682E-03_JPRB/)
+KBO( :, 2,24, 6) = (/&
+&4.5833E-04_JPRB,6.0226E-04_JPRB,5.5059E-04_JPRB,4.3248E-04_JPRB,1.3581E-03_JPRB/)
+KBO( :, 3,24, 6) = (/&
+&6.2099E-04_JPRB,8.0461E-04_JPRB,7.2851E-04_JPRB,5.6351E-04_JPRB,1.5621E-03_JPRB/)
+KBO( :, 4,24, 6) = (/&
+&8.2193E-04_JPRB,1.0497E-03_JPRB,9.4428E-04_JPRB,7.2199E-04_JPRB,1.7793E-03_JPRB/)
+KBO( :, 5,24, 6) = (/&
+&1.0685E-03_JPRB,1.3449E-03_JPRB,1.2028E-03_JPRB,9.1046E-04_JPRB,2.0052E-03_JPRB/)
+KBO( :, 1,25, 6) = (/&
+&2.9215E-04_JPRB,3.8885E-04_JPRB,3.5906E-04_JPRB,2.8752E-04_JPRB,9.3498E-04_JPRB/)
+KBO( :, 2,25, 6) = (/&
+&4.0498E-04_JPRB,5.3121E-04_JPRB,4.8436E-04_JPRB,3.7925E-04_JPRB,1.0888E-03_JPRB/)
+KBO( :, 3,25, 6) = (/&
+&5.4724E-04_JPRB,7.0707E-04_JPRB,6.3870E-04_JPRB,4.9281E-04_JPRB,1.2539E-03_JPRB/)
+KBO( :, 4,25, 6) = (/&
+&7.2403E-04_JPRB,9.2061E-04_JPRB,8.2594E-04_JPRB,6.2991E-04_JPRB,1.4275E-03_JPRB/)
+KBO( :, 5,25, 6) = (/&
+&9.4207E-04_JPRB,1.1779E-03_JPRB,1.0503E-03_JPRB,7.9277E-04_JPRB,1.6058E-03_JPRB/)
+KBO( :, 1,26, 6) = (/&
+&2.6060E-04_JPRB,3.4625E-04_JPRB,3.1865E-04_JPRB,2.5360E-04_JPRB,7.5595E-04_JPRB/)
+KBO( :, 2,26, 6) = (/&
+&3.5990E-04_JPRB,4.7096E-04_JPRB,4.2792E-04_JPRB,3.3380E-04_JPRB,8.8083E-04_JPRB/)
+KBO( :, 3,26, 6) = (/&
+&4.8540E-04_JPRB,6.2457E-04_JPRB,5.6257E-04_JPRB,4.3260E-04_JPRB,1.0137E-03_JPRB/)
+KBO( :, 4,26, 6) = (/&
+&6.4236E-04_JPRB,8.1177E-04_JPRB,7.2596E-04_JPRB,5.5153E-04_JPRB,1.1519E-03_JPRB/)
+KBO( :, 5,26, 6) = (/&
+&8.3673E-04_JPRB,1.0378E-03_JPRB,9.2177E-04_JPRB,6.9311E-04_JPRB,1.2938E-03_JPRB/)
+KBO( :, 1,27, 6) = (/&
+&2.3167E-04_JPRB,3.0750E-04_JPRB,2.8206E-04_JPRB,2.2335E-04_JPRB,6.0157E-04_JPRB/)
+KBO( :, 2,27, 6) = (/&
+&3.1908E-04_JPRB,4.1650E-04_JPRB,3.7750E-04_JPRB,2.9327E-04_JPRB,7.0083E-04_JPRB/)
+KBO( :, 3,27, 6) = (/&
+&4.3021E-04_JPRB,5.5097E-04_JPRB,4.9488E-04_JPRB,3.7918E-04_JPRB,8.0532E-04_JPRB/)
+KBO( :, 4,27, 6) = (/&
+&5.6999E-04_JPRB,7.1551E-04_JPRB,6.3770E-04_JPRB,4.8255E-04_JPRB,9.1424E-04_JPRB/)
+KBO( :, 5,27, 6) = (/&
+&7.4251E-04_JPRB,9.1481E-04_JPRB,8.0913E-04_JPRB,6.0585E-04_JPRB,1.0264E-03_JPRB/)
+KBO( :, 1,28, 6) = (/&
+&2.0524E-04_JPRB,2.7221E-04_JPRB,2.4906E-04_JPRB,1.9634E-04_JPRB,4.7063E-04_JPRB/)
+KBO( :, 2,28, 6) = (/&
+&2.8255E-04_JPRB,3.6755E-04_JPRB,3.3244E-04_JPRB,2.5733E-04_JPRB,5.4784E-04_JPRB/)
+KBO( :, 3,28, 6) = (/&
+&3.8119E-04_JPRB,4.8546E-04_JPRB,4.3507E-04_JPRB,3.3192E-04_JPRB,6.2929E-04_JPRB/)
+KBO( :, 4,28, 6) = (/&
+&5.0531E-04_JPRB,6.3052E-04_JPRB,5.6015E-04_JPRB,4.2208E-04_JPRB,7.1426E-04_JPRB/)
+KBO( :, 5,28, 6) = (/&
+&6.5768E-04_JPRB,8.0589E-04_JPRB,7.1092E-04_JPRB,5.3007E-04_JPRB,8.0182E-04_JPRB/)
+KBO( :, 1,29, 6) = (/&
+&1.8268E-04_JPRB,2.4155E-04_JPRB,2.2044E-04_JPRB,1.7290E-04_JPRB,3.6473E-04_JPRB/)
+KBO( :, 2,29, 6) = (/&
+&2.5147E-04_JPRB,3.2531E-04_JPRB,2.9347E-04_JPRB,2.2618E-04_JPRB,4.2431E-04_JPRB/)
+KBO( :, 3,29, 6) = (/&
+&3.3930E-04_JPRB,4.2940E-04_JPRB,3.8351E-04_JPRB,2.9136E-04_JPRB,4.8729E-04_JPRB/)
+KBO( :, 4,29, 6) = (/&
+&4.4909E-04_JPRB,5.5754E-04_JPRB,4.9362E-04_JPRB,3.7031E-04_JPRB,5.5277E-04_JPRB/)
+KBO( :, 5,29, 6) = (/&
+&5.8288E-04_JPRB,7.1165E-04_JPRB,6.2625E-04_JPRB,4.6539E-04_JPRB,6.2094E-04_JPRB/)
+KBO( :, 1,30, 6) = (/&
+&1.6275E-04_JPRB,2.1427E-04_JPRB,1.9492E-04_JPRB,1.5221E-04_JPRB,2.7882E-04_JPRB/)
+KBO( :, 2,30, 6) = (/&
+&2.2397E-04_JPRB,2.8807E-04_JPRB,2.5905E-04_JPRB,1.9884E-04_JPRB,3.2464E-04_JPRB/)
+KBO( :, 3,30, 6) = (/&
+&3.0173E-04_JPRB,3.8020E-04_JPRB,3.3838E-04_JPRB,2.5591E-04_JPRB,3.7279E-04_JPRB/)
+KBO( :, 4,30, 6) = (/&
+&3.9835E-04_JPRB,4.9290E-04_JPRB,4.3523E-04_JPRB,3.2539E-04_JPRB,4.2318E-04_JPRB/)
+KBO( :, 5,30, 6) = (/&
+&5.1512E-04_JPRB,6.2814E-04_JPRB,5.5236E-04_JPRB,4.0928E-04_JPRB,4.7644E-04_JPRB/)
+KBO( :, 1,31, 6) = (/&
+&1.4541E-04_JPRB,1.9050E-04_JPRB,1.7269E-04_JPRB,1.3415E-04_JPRB,2.0988E-04_JPRB/)
+KBO( :, 2,31, 6) = (/&
+&1.9968E-04_JPRB,2.5579E-04_JPRB,2.2917E-04_JPRB,1.7504E-04_JPRB,2.4454E-04_JPRB/)
+KBO( :, 3,31, 6) = (/&
+&2.6831E-04_JPRB,3.3713E-04_JPRB,2.9924E-04_JPRB,2.2534E-04_JPRB,2.8116E-04_JPRB/)
+KBO( :, 4,31, 6) = (/&
+&3.5296E-04_JPRB,4.3603E-04_JPRB,3.8460E-04_JPRB,2.8657E-04_JPRB,3.1971E-04_JPRB/)
+KBO( :, 5,31, 6) = (/&
+&4.5385E-04_JPRB,5.5422E-04_JPRB,4.8747E-04_JPRB,3.6051E-04_JPRB,3.6033E-04_JPRB/)
+KBO( :, 1,32, 6) = (/&
+&1.3012E-04_JPRB,1.6979E-04_JPRB,1.5332E-04_JPRB,1.1846E-04_JPRB,1.5858E-04_JPRB/)
+KBO( :, 2,32, 6) = (/&
+&1.7811E-04_JPRB,2.2758E-04_JPRB,2.0328E-04_JPRB,1.5447E-04_JPRB,1.8500E-04_JPRB/)
+KBO( :, 3,32, 6) = (/&
+&2.3846E-04_JPRB,2.9920E-04_JPRB,2.6508E-04_JPRB,1.9890E-04_JPRB,2.1289E-04_JPRB/)
+KBO( :, 4,32, 6) = (/&
+&3.1195E-04_JPRB,3.8579E-04_JPRB,3.4029E-04_JPRB,2.5305E-04_JPRB,2.4226E-04_JPRB/)
+KBO( :, 5,32, 6) = (/&
+&3.9831E-04_JPRB,4.8846E-04_JPRB,4.3040E-04_JPRB,3.1815E-04_JPRB,2.7351E-04_JPRB/)
+KBO( :, 1,33, 6) = (/&
+&1.1634E-04_JPRB,1.5147E-04_JPRB,1.3636E-04_JPRB,1.0475E-04_JPRB,1.1978E-04_JPRB/)
+KBO( :, 2,33, 6) = (/&
+&1.5863E-04_JPRB,2.0248E-04_JPRB,1.8050E-04_JPRB,1.3665E-04_JPRB,1.3973E-04_JPRB/)
+KBO( :, 3,33, 6) = (/&
+&2.1137E-04_JPRB,2.6530E-04_JPRB,2.3496E-04_JPRB,1.7592E-04_JPRB,1.6087E-04_JPRB/)
+KBO( :, 4,33, 6) = (/&
+&2.7467E-04_JPRB,3.4079E-04_JPRB,3.0109E-04_JPRB,2.2372E-04_JPRB,1.8344E-04_JPRB/)
+KBO( :, 5,33, 6) = (/&
+&3.4782E-04_JPRB,4.2919E-04_JPRB,3.7950E-04_JPRB,2.8080E-04_JPRB,2.0757E-04_JPRB/)
+KBO( :, 1,34, 6) = (/&
+&1.0312E-04_JPRB,1.3408E-04_JPRB,1.2041E-04_JPRB,9.2110E-05_JPRB,9.2903E-05_JPRB/)
+KBO( :, 2,34, 6) = (/&
+&1.4008E-04_JPRB,1.7871E-04_JPRB,1.5914E-04_JPRB,1.2016E-04_JPRB,1.0831E-04_JPRB/)
+KBO( :, 3,34, 6) = (/&
+&1.8556E-04_JPRB,2.3329E-04_JPRB,2.0678E-04_JPRB,1.5464E-04_JPRB,1.2476E-04_JPRB/)
+KBO( :, 4,34, 6) = (/&
+&2.3939E-04_JPRB,2.9833E-04_JPRB,2.6429E-04_JPRB,1.9649E-04_JPRB,1.4248E-04_JPRB/)
+KBO( :, 5,34, 6) = (/&
+&3.0117E-04_JPRB,3.7373E-04_JPRB,3.3162E-04_JPRB,2.4605E-04_JPRB,1.6152E-04_JPRB/)
+KBO( :, 1,35, 6) = (/&
+&8.8443E-05_JPRB,1.1512E-04_JPRB,1.0336E-04_JPRB,7.8950E-05_JPRB,7.0684E-05_JPRB/)
+KBO( :, 2,35, 6) = (/&
+&1.1985E-04_JPRB,1.5327E-04_JPRB,1.3658E-04_JPRB,1.0311E-04_JPRB,8.2504E-05_JPRB/)
+KBO( :, 3,35, 6) = (/&
+&1.5813E-04_JPRB,1.9962E-04_JPRB,1.7734E-04_JPRB,1.3276E-04_JPRB,9.5244E-05_JPRB/)
+KBO( :, 4,35, 6) = (/&
+&2.0303E-04_JPRB,2.5445E-04_JPRB,2.2617E-04_JPRB,1.6859E-04_JPRB,1.0907E-04_JPRB/)
+KBO( :, 5,35, 6) = (/&
+&2.5457E-04_JPRB,3.1764E-04_JPRB,2.8275E-04_JPRB,2.1067E-04_JPRB,1.2401E-04_JPRB/)
+KBO( :, 1,36, 6) = (/&
+&7.3105E-05_JPRB,9.5553E-05_JPRB,8.5894E-05_JPRB,6.5665E-05_JPRB,5.2586E-05_JPRB/)
+KBO( :, 2,36, 6) = (/&
+&9.9088E-05_JPRB,1.2731E-04_JPRB,1.1366E-04_JPRB,8.5950E-05_JPRB,6.1603E-05_JPRB/)
+KBO( :, 3,36, 6) = (/&
+&1.3052E-04_JPRB,1.6575E-04_JPRB,1.4766E-04_JPRB,1.1085E-04_JPRB,7.1395E-05_JPRB/)
+KBO( :, 4,36, 6) = (/&
+&1.6737E-04_JPRB,2.1100E-04_JPRB,1.8817E-04_JPRB,1.4082E-04_JPRB,8.2060E-05_JPRB/)
+KBO( :, 5,36, 6) = (/&
+&2.0971E-04_JPRB,2.6328E-04_JPRB,2.3482E-04_JPRB,1.7583E-04_JPRB,9.3616E-05_JPRB/)
+KBO( :, 1,37, 6) = (/&
+&5.7964E-05_JPRB,7.6160E-05_JPRB,6.8576E-05_JPRB,5.2541E-05_JPRB,4.0073E-05_JPRB/)
+KBO( :, 2,37, 6) = (/&
+&7.8834E-05_JPRB,1.0183E-04_JPRB,9.1063E-05_JPRB,6.9045E-05_JPRB,4.7111E-05_JPRB/)
+KBO( :, 3,37, 6) = (/&
+&1.0412E-04_JPRB,1.3294E-04_JPRB,1.1864E-04_JPRB,8.9322E-05_JPRB,5.4770E-05_JPRB/)
+KBO( :, 4,37, 6) = (/&
+&1.3382E-04_JPRB,1.6952E-04_JPRB,1.5143E-04_JPRB,1.1374E-04_JPRB,6.3134E-05_JPRB/)
+KBO( :, 5,37, 6) = (/&
+&1.6808E-04_JPRB,2.1196E-04_JPRB,1.8928E-04_JPRB,1.4220E-04_JPRB,7.2225E-05_JPRB/)
+KBO( :, 1,38, 6) = (/&
+&4.5775E-05_JPRB,6.0479E-05_JPRB,5.4555E-05_JPRB,4.1902E-05_JPRB,3.0397E-05_JPRB/)
+KBO( :, 2,38, 6) = (/&
+&6.2496E-05_JPRB,8.1164E-05_JPRB,7.2708E-05_JPRB,5.5274E-05_JPRB,3.5878E-05_JPRB/)
+KBO( :, 3,38, 6) = (/&
+&8.2782E-05_JPRB,1.0626E-04_JPRB,9.5002E-05_JPRB,7.1740E-05_JPRB,4.1841E-05_JPRB/)
+KBO( :, 4,38, 6) = (/&
+&1.0670E-04_JPRB,1.3583E-04_JPRB,1.2149E-04_JPRB,9.1558E-05_JPRB,4.8377E-05_JPRB/)
+KBO( :, 5,38, 6) = (/&
+&1.3438E-04_JPRB,1.7021E-04_JPRB,1.5213E-04_JPRB,1.1463E-04_JPRB,5.5512E-05_JPRB/)
+KBO( :, 1,39, 6) = (/&
+&3.6095E-05_JPRB,4.7960E-05_JPRB,4.3340E-05_JPRB,3.3379E-05_JPRB,2.2882E-05_JPRB/)
+KBO( :, 2,39, 6) = (/&
+&4.9468E-05_JPRB,6.4614E-05_JPRB,5.7979E-05_JPRB,4.4199E-05_JPRB,2.7110E-05_JPRB/)
+KBO( :, 3,39, 6) = (/&
+&6.5728E-05_JPRB,8.4830E-05_JPRB,7.5966E-05_JPRB,5.7541E-05_JPRB,3.1729E-05_JPRB/)
+KBO( :, 4,39, 6) = (/&
+&8.4989E-05_JPRB,1.0871E-04_JPRB,9.7338E-05_JPRB,7.3595E-05_JPRB,3.6816E-05_JPRB/)
+KBO( :, 5,39, 6) = (/&
+&1.0733E-04_JPRB,1.3655E-04_JPRB,1.2216E-04_JPRB,9.2289E-05_JPRB,4.2380E-05_JPRB/)
+KBO( :, 1,40, 6) = (/&
+&2.7548E-05_JPRB,3.6866E-05_JPRB,3.3398E-05_JPRB,2.5816E-05_JPRB,1.7406E-05_JPRB/)
+KBO( :, 2,40, 6) = (/&
+&3.8017E-05_JPRB,4.9978E-05_JPRB,4.4939E-05_JPRB,3.4363E-05_JPRB,2.0717E-05_JPRB/)
+KBO( :, 3,40, 6) = (/&
+&5.0843E-05_JPRB,6.5998E-05_JPRB,5.9173E-05_JPRB,4.4960E-05_JPRB,2.4340E-05_JPRB/)
+KBO( :, 4,40, 6) = (/&
+&6.6103E-05_JPRB,8.4982E-05_JPRB,7.6165E-05_JPRB,5.7734E-05_JPRB,2.8334E-05_JPRB/)
+KBO( :, 5,40, 6) = (/&
+&8.3889E-05_JPRB,1.0718E-04_JPRB,9.5971E-05_JPRB,7.2651E-05_JPRB,3.2716E-05_JPRB/)
+KBO( :, 1,41, 6) = (/&
+&2.0891E-05_JPRB,2.8160E-05_JPRB,2.5581E-05_JPRB,1.9853E-05_JPRB,1.3219E-05_JPRB/)
+KBO( :, 2,41, 6) = (/&
+&2.9056E-05_JPRB,3.8448E-05_JPRB,3.4643E-05_JPRB,2.6578E-05_JPRB,1.5803E-05_JPRB/)
+KBO( :, 3,41, 6) = (/&
+&3.9119E-05_JPRB,5.1086E-05_JPRB,4.5870E-05_JPRB,3.4949E-05_JPRB,1.8643E-05_JPRB/)
+KBO( :, 4,41, 6) = (/&
+&5.1167E-05_JPRB,6.6144E-05_JPRB,5.9321E-05_JPRB,4.5078E-05_JPRB,2.1781E-05_JPRB/)
+KBO( :, 5,41, 6) = (/&
+&6.5313E-05_JPRB,8.3807E-05_JPRB,7.5100E-05_JPRB,5.6965E-05_JPRB,2.5228E-05_JPRB/)
+KBO( :, 1,42, 6) = (/&
+&1.5797E-05_JPRB,2.1452E-05_JPRB,1.9541E-05_JPRB,1.5234E-05_JPRB,9.9864E-06_JPRB/)
+KBO( :, 2,42, 6) = (/&
+&2.2148E-05_JPRB,2.9506E-05_JPRB,2.6644E-05_JPRB,2.0507E-05_JPRB,1.1995E-05_JPRB/)
+KBO( :, 3,42, 6) = (/&
+&3.0028E-05_JPRB,3.9456E-05_JPRB,3.5478E-05_JPRB,2.7113E-05_JPRB,1.4215E-05_JPRB/)
+KBO( :, 4,42, 6) = (/&
+&3.9526E-05_JPRB,5.1380E-05_JPRB,4.6122E-05_JPRB,3.5139E-05_JPRB,1.6670E-05_JPRB/)
+KBO( :, 5,42, 6) = (/&
+&5.0747E-05_JPRB,6.5409E-05_JPRB,5.8661E-05_JPRB,4.4588E-05_JPRB,1.9369E-05_JPRB/)
+KBO( :, 1,43, 6) = (/&
+&1.1685E-05_JPRB,1.6001E-05_JPRB,1.4628E-05_JPRB,1.1471E-05_JPRB,7.4936E-06_JPRB/)
+KBO( :, 2,43, 6) = (/&
+&1.6548E-05_JPRB,2.2213E-05_JPRB,2.0113E-05_JPRB,1.5537E-05_JPRB,9.0536E-06_JPRB/)
+KBO( :, 3,43, 6) = (/&
+&2.2638E-05_JPRB,2.9954E-05_JPRB,2.6979E-05_JPRB,2.0685E-05_JPRB,1.0779E-05_JPRB/)
+KBO( :, 4,43, 6) = (/&
+&3.0048E-05_JPRB,3.9293E-05_JPRB,3.5311E-05_JPRB,2.6968E-05_JPRB,1.2697E-05_JPRB/)
+KBO( :, 5,43, 6) = (/&
+&3.8860E-05_JPRB,5.0338E-05_JPRB,4.5183E-05_JPRB,3.4410E-05_JPRB,1.4806E-05_JPRB/)
+KBO( :, 1,44, 6) = (/&
+&8.5348E-06_JPRB,1.1792E-05_JPRB,1.0825E-05_JPRB,8.5515E-06_JPRB,5.5871E-06_JPRB/)
+KBO( :, 2,44, 6) = (/&
+&1.2224E-05_JPRB,1.6542E-05_JPRB,1.5023E-05_JPRB,1.1659E-05_JPRB,6.7947E-06_JPRB/)
+KBO( :, 3,44, 6) = (/&
+&1.6899E-05_JPRB,2.2521E-05_JPRB,2.0321E-05_JPRB,1.5633E-05_JPRB,8.1320E-06_JPRB/)
+KBO( :, 4,44, 6) = (/&
+&2.2637E-05_JPRB,2.9783E-05_JPRB,2.6801E-05_JPRB,2.0525E-05_JPRB,9.6227E-06_JPRB/)
+KBO( :, 5,44, 6) = (/&
+&2.9511E-05_JPRB,3.8437E-05_JPRB,3.4531E-05_JPRB,2.6356E-05_JPRB,1.1265E-05_JPRB/)
+KBO( :, 1,45, 6) = (/&
+&6.2053E-06_JPRB,8.6498E-06_JPRB,7.9828E-06_JPRB,6.3587E-06_JPRB,4.1355E-06_JPRB/)
+KBO( :, 2,45, 6) = (/&
+&8.9924E-06_JPRB,1.2274E-05_JPRB,1.1184E-05_JPRB,8.7228E-06_JPRB,5.0646E-06_JPRB/)
+KBO( :, 3,45, 6) = (/&
+&1.2577E-05_JPRB,1.6878E-05_JPRB,1.5263E-05_JPRB,1.1781E-05_JPRB,6.0980E-06_JPRB/)
+KBO( :, 4,45, 6) = (/&
+&1.7004E-05_JPRB,2.2510E-05_JPRB,2.0287E-05_JPRB,1.5579E-05_JPRB,7.2495E-06_JPRB/)
+KBO( :, 5,45, 6) = (/&
+&2.2345E-05_JPRB,2.9273E-05_JPRB,2.6327E-05_JPRB,2.0139E-05_JPRB,8.5241E-06_JPRB/)
+KBO( :, 1,46, 6) = (/&
+&4.4535E-06_JPRB,6.2663E-06_JPRB,5.8215E-06_JPRB,4.6847E-06_JPRB,3.0403E-06_JPRB/)
+KBO( :, 2,46, 6) = (/&
+&6.5386E-06_JPRB,9.0087E-06_JPRB,8.2383E-06_JPRB,6.4650E-06_JPRB,3.7495E-06_JPRB/)
+KBO( :, 3,46, 6) = (/&
+&9.2626E-06_JPRB,1.2523E-05_JPRB,1.1353E-05_JPRB,8.7958E-06_JPRB,4.5455E-06_JPRB/)
+KBO( :, 4,46, 6) = (/&
+&1.2652E-05_JPRB,1.6866E-05_JPRB,1.5224E-05_JPRB,1.1726E-05_JPRB,5.4324E-06_JPRB/)
+KBO( :, 5,46, 6) = (/&
+&1.6782E-05_JPRB,2.2115E-05_JPRB,1.9910E-05_JPRB,1.5271E-05_JPRB,6.4154E-06_JPRB/)
+KBO( :, 1,47, 6) = (/&
+&3.1255E-06_JPRB,4.4445E-06_JPRB,4.1625E-06_JPRB,3.3973E-06_JPRB,2.2248E-06_JPRB/)
+KBO( :, 2,47, 6) = (/&
+&4.6607E-06_JPRB,6.4871E-06_JPRB,5.9609E-06_JPRB,4.7149E-06_JPRB,2.7633E-06_JPRB/)
+KBO( :, 3,47, 6) = (/&
+&6.6996E-06_JPRB,9.1349E-06_JPRB,8.3072E-06_JPRB,6.4651E-06_JPRB,3.3751E-06_JPRB/)
+KBO( :, 4,47, 6) = (/&
+&9.2705E-06_JPRB,1.2449E-05_JPRB,1.1256E-05_JPRB,8.6999E-06_JPRB,4.0582E-06_JPRB/)
+KBO( :, 5,47, 6) = (/&
+&1.2429E-05_JPRB,1.6480E-05_JPRB,1.4854E-05_JPRB,1.1428E-05_JPRB,4.8166E-06_JPRB/)
+KBO( :, 1,48, 6) = (/&
+&2.1776E-06_JPRB,3.1287E-06_JPRB,2.9593E-06_JPRB,2.4588E-06_JPRB,1.6162E-06_JPRB/)
+KBO( :, 2,48, 6) = (/&
+&3.3004E-06_JPRB,4.6424E-06_JPRB,4.2915E-06_JPRB,3.4279E-06_JPRB,2.0216E-06_JPRB/)
+KBO( :, 3,48, 6) = (/&
+&4.8178E-06_JPRB,6.6317E-06_JPRB,6.0512E-06_JPRB,4.7347E-06_JPRB,2.4869E-06_JPRB/)
+KBO( :, 4,48, 6) = (/&
+&6.7632E-06_JPRB,9.1507E-06_JPRB,8.2914E-06_JPRB,6.4284E-06_JPRB,3.0099E-06_JPRB/)
+KBO( :, 5,48, 6) = (/&
+&9.1697E-06_JPRB,1.2234E-05_JPRB,1.1042E-05_JPRB,8.5224E-06_JPRB,3.5919E-06_JPRB/)
+KBO( :, 1,49, 6) = (/&
+&1.5053E-06_JPRB,2.1858E-06_JPRB,2.0909E-06_JPRB,1.7774E-06_JPRB,1.1638E-06_JPRB/)
+KBO( :, 2,49, 6) = (/&
+&2.3208E-06_JPRB,3.3001E-06_JPRB,3.0741E-06_JPRB,2.4849E-06_JPRB,1.4655E-06_JPRB/)
+KBO( :, 3,49, 6) = (/&
+&3.4426E-06_JPRB,4.7874E-06_JPRB,4.3858E-06_JPRB,3.4542E-06_JPRB,1.8145E-06_JPRB/)
+KBO( :, 4,49, 6) = (/&
+&4.9073E-06_JPRB,6.6937E-06_JPRB,6.0798E-06_JPRB,4.7299E-06_JPRB,2.2116E-06_JPRB/)
+KBO( :, 5,49, 6) = (/&
+&6.7349E-06_JPRB,9.0453E-06_JPRB,8.1769E-06_JPRB,6.3309E-06_JPRB,2.6545E-06_JPRB/)
+KBO( :, 1,50, 6) = (/&
+&1.0462E-06_JPRB,1.5340E-06_JPRB,1.4848E-06_JPRB,1.2964E-06_JPRB,8.5273E-07_JPRB/)
+KBO( :, 2,50, 6) = (/&
+&1.6402E-06_JPRB,2.3557E-06_JPRB,2.2124E-06_JPRB,1.8137E-06_JPRB,1.0799E-06_JPRB/)
+KBO( :, 3,50, 6) = (/&
+&2.4709E-06_JPRB,3.4712E-06_JPRB,3.1941E-06_JPRB,2.5342E-06_JPRB,1.3448E-06_JPRB/)
+KBO( :, 4,50, 6) = (/&
+&3.5758E-06_JPRB,4.9168E-06_JPRB,4.4776E-06_JPRB,3.4964E-06_JPRB,1.6496E-06_JPRB/)
+KBO( :, 5,50, 6) = (/&
+&4.9702E-06_JPRB,6.7202E-06_JPRB,6.0835E-06_JPRB,4.7222E-06_JPRB,1.9912E-06_JPRB/)
+KBO( :, 1,51, 6) = (/&
+&7.2663E-07_JPRB,1.0750E-06_JPRB,1.0542E-06_JPRB,9.5059E-07_JPRB,6.2987E-07_JPRB/)
+KBO( :, 2,51, 6) = (/&
+&1.1582E-06_JPRB,1.6789E-06_JPRB,1.5910E-06_JPRB,1.3276E-06_JPRB,8.0106E-07_JPRB/)
+KBO( :, 3,51, 6) = (/&
+&1.7719E-06_JPRB,2.5144E-06_JPRB,2.3267E-06_JPRB,1.8622E-06_JPRB,1.0033E-06_JPRB/)
+KBO( :, 4,51, 6) = (/&
+&2.6046E-06_JPRB,3.6115E-06_JPRB,3.2983E-06_JPRB,2.5872E-06_JPRB,1.2381E-06_JPRB/)
+KBO( :, 5,51, 6) = (/&
+&3.6697E-06_JPRB,4.9945E-06_JPRB,4.5288E-06_JPRB,3.5236E-06_JPRB,1.5031E-06_JPRB/)
+KBO( :, 1,52, 6) = (/&
+&5.0128E-07_JPRB,7.4829E-07_JPRB,7.4503E-07_JPRB,6.9902E-07_JPRB,4.6417E-07_JPRB/)
+KBO( :, 2,52, 6) = (/&
+&8.1290E-07_JPRB,1.1889E-06_JPRB,1.1383E-06_JPRB,9.7075E-07_JPRB,5.9124E-07_JPRB/)
+KBO( :, 3,52, 6) = (/&
+&1.2637E-06_JPRB,1.8111E-06_JPRB,1.6874E-06_JPRB,1.3654E-06_JPRB,7.4485E-07_JPRB/)
+KBO( :, 4,52, 6) = (/&
+&1.8870E-06_JPRB,2.6414E-06_JPRB,2.4208E-06_JPRB,1.9088E-06_JPRB,9.2398E-07_JPRB/)
+KBO( :, 5,52, 6) = (/&
+&2.6982E-06_JPRB,3.6981E-06_JPRB,3.3605E-06_JPRB,2.6209E-06_JPRB,1.1284E-06_JPRB/)
+KBO( :, 1,53, 6) = (/&
+&3.4316E-07_JPRB,5.1730E-07_JPRB,5.2428E-07_JPRB,5.1650E-07_JPRB,3.4163E-07_JPRB/)
+KBO( :, 2,53, 6) = (/&
+&5.6636E-07_JPRB,8.3600E-07_JPRB,8.0988E-07_JPRB,7.0959E-07_JPRB,4.3402E-07_JPRB/)
+KBO( :, 3,53, 6) = (/&
+&8.9539E-07_JPRB,1.2957E-06_JPRB,1.2170E-06_JPRB,9.9881E-07_JPRB,5.4917E-07_JPRB/)
+KBO( :, 4,53, 6) = (/&
+&1.3585E-06_JPRB,1.9213E-06_JPRB,1.7681E-06_JPRB,1.4039E-06_JPRB,6.8487E-07_JPRB/)
+KBO( :, 5,53, 6) = (/&
+&1.9728E-06_JPRB,2.7267E-06_JPRB,2.4840E-06_JPRB,1.9431E-06_JPRB,8.4127E-07_JPRB/)
+KBO( :, 1,54, 6) = (/&
+&2.3729E-07_JPRB,3.6141E-07_JPRB,3.7346E-07_JPRB,3.8814E-07_JPRB,2.5965E-07_JPRB/)
+KBO( :, 2,54, 6) = (/&
+&3.9847E-07_JPRB,5.9281E-07_JPRB,5.8145E-07_JPRB,5.2497E-07_JPRB,3.2865E-07_JPRB/)
+KBO( :, 3,54, 6) = (/&
+&6.4012E-07_JPRB,9.3418E-07_JPRB,8.8451E-07_JPRB,7.3760E-07_JPRB,4.1726E-07_JPRB/)
+KBO( :, 4,54, 6) = (/&
+&9.8548E-07_JPRB,1.4072E-06_JPRB,1.3009E-06_JPRB,1.0414E-06_JPRB,5.2304E-07_JPRB/)
+KBO( :, 5,54, 6) = (/&
+&1.4524E-06_JPRB,2.0243E-06_JPRB,1.8490E-06_JPRB,1.4514E-06_JPRB,6.4582E-07_JPRB/)
+KBO( :, 1,55, 6) = (/&
+&1.6422E-07_JPRB,2.5313E-07_JPRB,2.6741E-07_JPRB,2.9555E-07_JPRB,2.0083E-07_JPRB/)
+KBO( :, 2,55, 6) = (/&
+&2.8085E-07_JPRB,4.2089E-07_JPRB,4.1847E-07_JPRB,3.9112E-07_JPRB,2.5331E-07_JPRB/)
+KBO( :, 3,55, 6) = (/&
+&4.5840E-07_JPRB,6.7405E-07_JPRB,6.4380E-07_JPRB,5.4696E-07_JPRB,3.2245E-07_JPRB/)
+KBO( :, 4,55, 6) = (/&
+&7.1591E-07_JPRB,1.0314E-06_JPRB,9.5879E-07_JPRB,7.7462E-07_JPRB,4.0636E-07_JPRB/)
+KBO( :, 5,55, 6) = (/&
+&1.0707E-06_JPRB,1.5050E-06_JPRB,1.3785E-06_JPRB,1.0868E-06_JPRB,5.0407E-07_JPRB/)
+KBO( :, 1,56, 6) = (/&
+&1.1297E-07_JPRB,1.7654E-07_JPRB,1.9160E-07_JPRB,2.2785E-07_JPRB,1.5600E-07_JPRB/)
+KBO( :, 2,56, 6) = (/&
+&1.9687E-07_JPRB,2.9736E-07_JPRB,3.0024E-07_JPRB,2.9250E-07_JPRB,1.9557E-07_JPRB/)
+KBO( :, 3,56, 6) = (/&
+&3.2655E-07_JPRB,4.8379E-07_JPRB,4.6673E-07_JPRB,4.0545E-07_JPRB,2.4926E-07_JPRB/)
+KBO( :, 4,56, 6) = (/&
+&5.1776E-07_JPRB,7.5239E-07_JPRB,7.0397E-07_JPRB,5.7515E-07_JPRB,3.1570E-07_JPRB/)
+KBO( :, 5,56, 6) = (/&
+&7.8583E-07_JPRB,1.1146E-06_JPRB,1.0242E-06_JPRB,8.1180E-07_JPRB,3.9355E-07_JPRB/)
+KBO( :, 1,57, 6) = (/&
+&7.7200E-08_JPRB,1.2264E-07_JPRB,1.3766E-07_JPRB,1.7856E-07_JPRB,1.2187E-07_JPRB/)
+KBO( :, 2,57, 6) = (/&
+&1.3715E-07_JPRB,2.0905E-07_JPRB,2.1488E-07_JPRB,2.1998E-07_JPRB,1.5127E-07_JPRB/)
+KBO( :, 3,57, 6) = (/&
+&2.3136E-07_JPRB,3.4526E-07_JPRB,3.3687E-07_JPRB,3.0067E-07_JPRB,1.9276E-07_JPRB/)
+KBO( :, 4,57, 6) = (/&
+&3.7265E-07_JPRB,5.4598E-07_JPRB,5.1453E-07_JPRB,4.2632E-07_JPRB,2.4529E-07_JPRB/)
+KBO( :, 5,57, 6) = (/&
+&5.7396E-07_JPRB,8.2172E-07_JPRB,7.5794E-07_JPRB,6.0477E-07_JPRB,3.0747E-07_JPRB/)
+KBO( :, 1,58, 6) = (/&
+&5.2955E-08_JPRB,8.5764E-08_JPRB,1.0017E-07_JPRB,1.4310E-07_JPRB,9.6433E-08_JPRB/)
+KBO( :, 2,58, 6) = (/&
+&9.5831E-08_JPRB,1.4757E-07_JPRB,1.5479E-07_JPRB,1.6745E-07_JPRB,1.1819E-07_JPRB/)
+KBO( :, 3,58, 6) = (/&
+&1.6444E-07_JPRB,2.4707E-07_JPRB,2.4397E-07_JPRB,2.2463E-07_JPRB,1.5059E-07_JPRB/)
+KBO( :, 4,58, 6) = (/&
+&2.6896E-07_JPRB,3.9698E-07_JPRB,3.7706E-07_JPRB,3.1744E-07_JPRB,1.9236E-07_JPRB/)
+KBO( :, 5,58, 6) = (/&
+&4.2027E-07_JPRB,6.0686E-07_JPRB,5.6217E-07_JPRB,4.5216E-07_JPRB,2.4243E-07_JPRB/)
+KBO( :, 1,59, 6) = (/&
+&4.0613E-08_JPRB,6.6330E-08_JPRB,7.8756E-08_JPRB,1.1682E-07_JPRB,8.0763E-08_JPRB/)
+KBO( :, 2,59, 6) = (/&
+&7.4110E-08_JPRB,1.1464E-07_JPRB,1.2119E-07_JPRB,1.3394E-07_JPRB,1.0024E-07_JPRB/)
+KBO( :, 3,59, 6) = (/&
+&1.2825E-07_JPRB,1.9327E-07_JPRB,1.9161E-07_JPRB,1.7847E-07_JPRB,1.2887E-07_JPRB/)
+KBO( :, 4,59, 6) = (/&
+&2.1125E-07_JPRB,3.1279E-07_JPRB,2.9779E-07_JPRB,2.5217E-07_JPRB,1.6539E-07_JPRB/)
+KBO( :, 5,59, 6) = (/&
+&3.3221E-07_JPRB,4.8128E-07_JPRB,4.4648E-07_JPRB,3.6014E-07_JPRB,2.0916E-07_JPRB/)
+KBO( :, 1,13, 7) = (/&
+&4.0082E-03_JPRB,4.7471E-03_JPRB,4.2106E-03_JPRB,3.3097E-03_JPRB,2.9797E-02_JPRB/)
+KBO( :, 2,13, 7) = (/&
+&5.4956E-03_JPRB,6.4503E-03_JPRB,5.6741E-03_JPRB,4.3606E-03_JPRB,3.3076E-02_JPRB/)
+KBO( :, 3,13, 7) = (/&
+&7.3201E-03_JPRB,8.5434E-03_JPRB,7.4724E-03_JPRB,5.6899E-03_JPRB,3.6718E-02_JPRB/)
+KBO( :, 4,13, 7) = (/&
+&9.4768E-03_JPRB,1.1006E-02_JPRB,9.6490E-03_JPRB,7.3607E-03_JPRB,4.0562E-02_JPRB/)
+KBO( :, 5,13, 7) = (/&
+&1.2016E-02_JPRB,1.3883E-02_JPRB,1.2248E-02_JPRB,9.4126E-03_JPRB,4.4607E-02_JPRB/)
+KBO( :, 1,14, 7) = (/&
+&3.5182E-03_JPRB,4.1440E-03_JPRB,3.6712E-03_JPRB,2.8865E-03_JPRB,2.5106E-02_JPRB/)
+KBO( :, 2,14, 7) = (/&
+&4.8368E-03_JPRB,5.6585E-03_JPRB,4.9763E-03_JPRB,3.8241E-03_JPRB,2.8178E-02_JPRB/)
+KBO( :, 3,14, 7) = (/&
+&6.4391E-03_JPRB,7.4926E-03_JPRB,6.5797E-03_JPRB,5.0127E-03_JPRB,3.1499E-02_JPRB/)
+KBO( :, 4,14, 7) = (/&
+&8.3556E-03_JPRB,9.6590E-03_JPRB,8.4959E-03_JPRB,6.4956E-03_JPRB,3.4983E-02_JPRB/)
+KBO( :, 5,14, 7) = (/&
+&1.0636E-02_JPRB,1.2197E-02_JPRB,1.0778E-02_JPRB,8.2927E-03_JPRB,3.8677E-02_JPRB/)
+KBO( :, 1,15, 7) = (/&
+&3.0808E-03_JPRB,3.6180E-03_JPRB,3.2024E-03_JPRB,2.5077E-03_JPRB,2.0133E-02_JPRB/)
+KBO( :, 2,15, 7) = (/&
+&4.2342E-03_JPRB,4.9408E-03_JPRB,4.3573E-03_JPRB,3.3447E-03_JPRB,2.2811E-02_JPRB/)
+KBO( :, 3,15, 7) = (/&
+&5.6484E-03_JPRB,6.5425E-03_JPRB,5.7598E-03_JPRB,4.4050E-03_JPRB,2.5648E-02_JPRB/)
+KBO( :, 4,15, 7) = (/&
+&7.3569E-03_JPRB,8.4459E-03_JPRB,7.4478E-03_JPRB,5.6997E-03_JPRB,2.8633E-02_JPRB/)
+KBO( :, 5,15, 7) = (/&
+&9.4079E-03_JPRB,1.0695E-02_JPRB,9.4525E-03_JPRB,7.2671E-03_JPRB,3.1750E-02_JPRB/)
+KBO( :, 1,16, 7) = (/&
+&2.6937E-03_JPRB,3.1581E-03_JPRB,2.7980E-03_JPRB,2.1775E-03_JPRB,1.5394E-02_JPRB/)
+KBO( :, 2,16, 7) = (/&
+&3.7085E-03_JPRB,4.3109E-03_JPRB,3.8048E-03_JPRB,2.9219E-03_JPRB,1.7507E-02_JPRB/)
+KBO( :, 3,16, 7) = (/&
+&4.9609E-03_JPRB,5.7164E-03_JPRB,5.0355E-03_JPRB,3.8483E-03_JPRB,1.9730E-02_JPRB/)
+KBO( :, 4,16, 7) = (/&
+&6.4895E-03_JPRB,7.4002E-03_JPRB,6.5219E-03_JPRB,4.9806E-03_JPRB,2.2084E-02_JPRB/)
+KBO( :, 5,16, 7) = (/&
+&8.3163E-03_JPRB,9.4051E-03_JPRB,8.2914E-03_JPRB,6.3525E-03_JPRB,2.4551E-02_JPRB/)
+KBO( :, 1,17, 7) = (/&
+&2.3642E-03_JPRB,2.7668E-03_JPRB,2.4489E-03_JPRB,1.8988E-03_JPRB,1.1868E-02_JPRB/)
+KBO( :, 2,17, 7) = (/&
+&3.2598E-03_JPRB,3.7811E-03_JPRB,3.3290E-03_JPRB,2.5510E-03_JPRB,1.3559E-02_JPRB/)
+KBO( :, 3,17, 7) = (/&
+&4.3747E-03_JPRB,5.0202E-03_JPRB,4.4155E-03_JPRB,3.3613E-03_JPRB,1.5340E-02_JPRB/)
+KBO( :, 4,17, 7) = (/&
+&5.7340E-03_JPRB,6.5189E-03_JPRB,5.7286E-03_JPRB,4.3538E-03_JPRB,1.7220E-02_JPRB/)
+KBO( :, 5,17, 7) = (/&
+&7.3600E-03_JPRB,8.2990E-03_JPRB,7.2992E-03_JPRB,5.5548E-03_JPRB,1.9205E-02_JPRB/)
+KBO( :, 1,18, 7) = (/&
+&2.0898E-03_JPRB,2.4405E-03_JPRB,2.1542E-03_JPRB,1.6626E-03_JPRB,9.4417E-03_JPRB/)
+KBO( :, 2,18, 7) = (/&
+&2.8863E-03_JPRB,3.3353E-03_JPRB,2.9318E-03_JPRB,2.2352E-03_JPRB,1.0813E-02_JPRB/)
+KBO( :, 3,18, 7) = (/&
+&3.8771E-03_JPRB,4.4358E-03_JPRB,3.8935E-03_JPRB,2.9472E-03_JPRB,1.2260E-02_JPRB/)
+KBO( :, 4,18, 7) = (/&
+&5.0839E-03_JPRB,5.7663E-03_JPRB,5.0610E-03_JPRB,3.8229E-03_JPRB,1.3797E-02_JPRB/)
+KBO( :, 5,18, 7) = (/&
+&6.5362E-03_JPRB,7.3472E-03_JPRB,6.4549E-03_JPRB,4.8781E-03_JPRB,1.5427E-02_JPRB/)
+KBO( :, 1,19, 7) = (/&
+&1.8517E-03_JPRB,2.1548E-03_JPRB,1.8965E-03_JPRB,1.4580E-03_JPRB,7.7773E-03_JPRB/)
+KBO( :, 2,19, 7) = (/&
+&2.5576E-03_JPRB,2.9471E-03_JPRB,2.5846E-03_JPRB,1.9612E-03_JPRB,8.9176E-03_JPRB/)
+KBO( :, 3,19, 7) = (/&
+&3.4345E-03_JPRB,3.9244E-03_JPRB,3.4362E-03_JPRB,2.5906E-03_JPRB,1.0132E-02_JPRB/)
+KBO( :, 4,19, 7) = (/&
+&4.5064E-03_JPRB,5.0994E-03_JPRB,4.4700E-03_JPRB,3.3642E-03_JPRB,1.1431E-02_JPRB/)
+KBO( :, 5,19, 7) = (/&
+&5.8097E-03_JPRB,6.5083E-03_JPRB,5.7046E-03_JPRB,4.2905E-03_JPRB,1.2808E-02_JPRB/)
+KBO( :, 1,20, 7) = (/&
+&1.6458E-03_JPRB,1.9103E-03_JPRB,1.6781E-03_JPRB,1.2831E-03_JPRB,6.5141E-03_JPRB/)
+KBO( :, 2,20, 7) = (/&
+&2.2698E-03_JPRB,2.6130E-03_JPRB,2.2877E-03_JPRB,1.7278E-03_JPRB,7.4849E-03_JPRB/)
+KBO( :, 3,20, 7) = (/&
+&3.0464E-03_JPRB,3.4772E-03_JPRB,3.0427E-03_JPRB,2.2845E-03_JPRB,8.5198E-03_JPRB/)
+KBO( :, 4,20, 7) = (/&
+&4.0053E-03_JPRB,4.5205E-03_JPRB,3.9563E-03_JPRB,2.9671E-03_JPRB,9.6230E-03_JPRB/)
+KBO( :, 5,20, 7) = (/&
+&5.1704E-03_JPRB,5.7875E-03_JPRB,5.0542E-03_JPRB,3.7806E-03_JPRB,1.0800E-02_JPRB/)
+KBO( :, 1,21, 7) = (/&
+&1.4548E-03_JPRB,1.6903E-03_JPRB,1.4830E-03_JPRB,1.1276E-03_JPRB,5.4461E-03_JPRB/)
+KBO( :, 2,21, 7) = (/&
+&2.0031E-03_JPRB,2.3102E-03_JPRB,2.0214E-03_JPRB,1.5202E-03_JPRB,6.2763E-03_JPRB/)
+KBO( :, 3,21, 7) = (/&
+&2.6919E-03_JPRB,3.0723E-03_JPRB,2.6854E-03_JPRB,2.0114E-03_JPRB,7.1636E-03_JPRB/)
+KBO( :, 4,21, 7) = (/&
+&3.5436E-03_JPRB,4.0040E-03_JPRB,3.4935E-03_JPRB,2.6088E-03_JPRB,8.1098E-03_JPRB/)
+KBO( :, 5,21, 7) = (/&
+&4.5742E-03_JPRB,5.1416E-03_JPRB,4.4723E-03_JPRB,3.3261E-03_JPRB,9.1112E-03_JPRB/)
+KBO( :, 1,22, 7) = (/&
+&1.3025E-03_JPRB,1.5176E-03_JPRB,1.3319E-03_JPRB,1.0078E-03_JPRB,4.4970E-03_JPRB/)
+KBO( :, 2,22, 7) = (/&
+&1.7911E-03_JPRB,2.0676E-03_JPRB,1.8104E-03_JPRB,1.3583E-03_JPRB,5.1953E-03_JPRB/)
+KBO( :, 3,22, 7) = (/&
+&2.4070E-03_JPRB,2.7511E-03_JPRB,2.4021E-03_JPRB,1.7933E-03_JPRB,5.9455E-03_JPRB/)
+KBO( :, 4,22, 7) = (/&
+&3.1635E-03_JPRB,3.5916E-03_JPRB,3.1285E-03_JPRB,2.3228E-03_JPRB,6.7435E-03_JPRB/)
+KBO( :, 5,22, 7) = (/&
+&4.0745E-03_JPRB,4.6107E-03_JPRB,4.0048E-03_JPRB,2.9650E-03_JPRB,7.5904E-03_JPRB/)
+KBO( :, 1,23, 7) = (/&
+&1.1628E-03_JPRB,1.3564E-03_JPRB,1.1911E-03_JPRB,9.0035E-04_JPRB,3.6865E-03_JPRB/)
+KBO( :, 2,23, 7) = (/&
+&1.5981E-03_JPRB,1.8458E-03_JPRB,1.6157E-03_JPRB,1.2111E-03_JPRB,4.2718E-03_JPRB/)
+KBO( :, 3,23, 7) = (/&
+&2.1434E-03_JPRB,2.4578E-03_JPRB,2.1451E-03_JPRB,1.5961E-03_JPRB,4.9004E-03_JPRB/)
+KBO( :, 4,23, 7) = (/&
+&2.8070E-03_JPRB,3.2089E-03_JPRB,2.7931E-03_JPRB,2.0693E-03_JPRB,5.5690E-03_JPRB/)
+KBO( :, 5,23, 7) = (/&
+&3.6060E-03_JPRB,4.1114E-03_JPRB,3.5718E-03_JPRB,2.6408E-03_JPRB,6.2767E-03_JPRB/)
+KBO( :, 1,24, 7) = (/&
+&1.0349E-03_JPRB,1.2079E-03_JPRB,1.0608E-03_JPRB,8.0145E-04_JPRB,2.9772E-03_JPRB/)
+KBO( :, 2,24, 7) = (/&
+&1.4200E-03_JPRB,1.6442E-03_JPRB,1.4384E-03_JPRB,1.0762E-03_JPRB,3.4619E-03_JPRB/)
+KBO( :, 3,24, 7) = (/&
+&1.8974E-03_JPRB,2.1881E-03_JPRB,1.9089E-03_JPRB,1.4192E-03_JPRB,3.9815E-03_JPRB/)
+KBO( :, 4,24, 7) = (/&
+&2.4779E-03_JPRB,2.8499E-03_JPRB,2.4818E-03_JPRB,1.8400E-03_JPRB,4.5322E-03_JPRB/)
+KBO( :, 5,24, 7) = (/&
+&3.1754E-03_JPRB,3.6385E-03_JPRB,3.1666E-03_JPRB,2.3457E-03_JPRB,5.1151E-03_JPRB/)
+KBO( :, 1,25, 7) = (/&
+&9.2232E-04_JPRB,1.0772E-03_JPRB,9.4524E-04_JPRB,7.1253E-04_JPRB,2.4032E-03_JPRB/)
+KBO( :, 2,25, 7) = (/&
+&1.2605E-03_JPRB,1.4648E-03_JPRB,1.2810E-03_JPRB,9.5673E-04_JPRB,2.8023E-03_JPRB/)
+KBO( :, 3,25, 7) = (/&
+&1.6782E-03_JPRB,1.9434E-03_JPRB,1.6961E-03_JPRB,1.2611E-03_JPRB,3.2283E-03_JPRB/)
+KBO( :, 4,25, 7) = (/&
+&2.1858E-03_JPRB,2.5220E-03_JPRB,2.1978E-03_JPRB,1.6329E-03_JPRB,3.6803E-03_JPRB/)
+KBO( :, 5,25, 7) = (/&
+&2.7953E-03_JPRB,3.2125E-03_JPRB,2.7973E-03_JPRB,2.0776E-03_JPRB,4.1586E-03_JPRB/)
+KBO( :, 1,26, 7) = (/&
+&8.2577E-04_JPRB,9.6602E-04_JPRB,8.4698E-04_JPRB,6.3651E-04_JPRB,1.9589E-03_JPRB/)
+KBO( :, 2,26, 7) = (/&
+&1.1231E-03_JPRB,1.3082E-03_JPRB,1.1442E-03_JPRB,8.5380E-04_JPRB,2.2874E-03_JPRB/)
+KBO( :, 3,26, 7) = (/&
+&1.4894E-03_JPRB,1.7283E-03_JPRB,1.5086E-03_JPRB,1.1231E-03_JPRB,2.6381E-03_JPRB/)
+KBO( :, 4,26, 7) = (/&
+&1.9347E-03_JPRB,2.2358E-03_JPRB,1.9486E-03_JPRB,1.4502E-03_JPRB,3.0100E-03_JPRB/)
+KBO( :, 5,26, 7) = (/&
+&2.4718E-03_JPRB,2.8431E-03_JPRB,2.4753E-03_JPRB,1.8399E-03_JPRB,3.4018E-03_JPRB/)
+KBO( :, 1,27, 7) = (/&
+&7.3643E-04_JPRB,8.6319E-04_JPRB,7.5644E-04_JPRB,5.6757E-04_JPRB,1.5698E-03_JPRB/)
+KBO( :, 2,27, 7) = (/&
+&9.9721E-04_JPRB,1.1634E-03_JPRB,1.0175E-03_JPRB,7.5949E-04_JPRB,1.8348E-03_JPRB/)
+KBO( :, 3,27, 7) = (/&
+&1.3189E-03_JPRB,1.5314E-03_JPRB,1.3364E-03_JPRB,9.9619E-04_JPRB,2.1183E-03_JPRB/)
+KBO( :, 4,27, 7) = (/&
+&1.7109E-03_JPRB,1.9771E-03_JPRB,1.7222E-03_JPRB,1.2827E-03_JPRB,2.4187E-03_JPRB/)
+KBO( :, 5,27, 7) = (/&
+&2.1861E-03_JPRB,2.5131E-03_JPRB,2.1851E-03_JPRB,1.6243E-03_JPRB,2.7339E-03_JPRB/)
+KBO( :, 1,28, 7) = (/&
+&6.5434E-04_JPRB,7.6837E-04_JPRB,6.7291E-04_JPRB,5.0480E-04_JPRB,1.2349E-03_JPRB/)
+KBO( :, 2,28, 7) = (/&
+&8.8335E-04_JPRB,1.0312E-03_JPRB,9.0136E-04_JPRB,6.7348E-04_JPRB,1.4454E-03_JPRB/)
+KBO( :, 3,28, 7) = (/&
+&1.1654E-03_JPRB,1.3544E-03_JPRB,1.1806E-03_JPRB,8.8065E-04_JPRB,1.6701E-03_JPRB/)
+KBO( :, 4,28, 7) = (/&
+&1.5130E-03_JPRB,1.7468E-03_JPRB,1.5197E-03_JPRB,1.1317E-03_JPRB,1.9084E-03_JPRB/)
+KBO( :, 5,28, 7) = (/&
+&1.9346E-03_JPRB,2.2214E-03_JPRB,1.9275E-03_JPRB,1.4311E-03_JPRB,2.1590E-03_JPRB/)
+KBO( :, 1,29, 7) = (/&
+&5.8250E-04_JPRB,6.8415E-04_JPRB,5.9900E-04_JPRB,4.4923E-04_JPRB,9.6138E-04_JPRB/)
+KBO( :, 2,29, 7) = (/&
+&7.8379E-04_JPRB,9.1559E-04_JPRB,7.9935E-04_JPRB,5.9724E-04_JPRB,1.1264E-03_JPRB/)
+KBO( :, 3,29, 7) = (/&
+&1.0337E-03_JPRB,1.2006E-03_JPRB,1.0452E-03_JPRB,7.7918E-04_JPRB,1.3027E-03_JPRB/)
+KBO( :, 4,29, 7) = (/&
+&1.3430E-03_JPRB,1.5485E-03_JPRB,1.3445E-03_JPRB,9.9943E-04_JPRB,1.4903E-03_JPRB/)
+KBO( :, 5,29, 7) = (/&
+&1.7207E-03_JPRB,1.9712E-03_JPRB,1.7058E-03_JPRB,1.2628E-03_JPRB,1.6874E-03_JPRB/)
+KBO( :, 1,30, 7) = (/&
+&5.1788E-04_JPRB,6.0851E-04_JPRB,5.3244E-04_JPRB,3.9922E-04_JPRB,7.3807E-04_JPRB/)
+KBO( :, 2,30, 7) = (/&
+&6.9560E-04_JPRB,8.1280E-04_JPRB,7.0896E-04_JPRB,5.2926E-04_JPRB,8.6555E-04_JPRB/)
+KBO( :, 3,30, 7) = (/&
+&9.1854E-04_JPRB,1.0653E-03_JPRB,9.2608E-04_JPRB,6.8944E-04_JPRB,1.0029E-03_JPRB/)
+KBO( :, 4,30, 7) = (/&
+&1.1948E-03_JPRB,1.3752E-03_JPRB,1.1917E-03_JPRB,8.8341E-04_JPRB,1.1491E-03_JPRB/)
+KBO( :, 5,30, 7) = (/&
+&1.5335E-03_JPRB,1.7547E-03_JPRB,1.5125E-03_JPRB,1.1162E-03_JPRB,1.3024E-03_JPRB/)
+KBO( :, 1,31, 7) = (/&
+&4.6092E-04_JPRB,5.4211E-04_JPRB,4.7408E-04_JPRB,3.5509E-04_JPRB,5.5682E-04_JPRB/)
+KBO( :, 2,31, 7) = (/&
+&6.1918E-04_JPRB,7.2321E-04_JPRB,6.3005E-04_JPRB,4.6997E-04_JPRB,6.5454E-04_JPRB/)
+KBO( :, 3,31, 7) = (/&
+&8.1881E-04_JPRB,9.4822E-04_JPRB,8.2290E-04_JPRB,6.1141E-04_JPRB,7.5997E-04_JPRB/)
+KBO( :, 4,31, 7) = (/&
+&1.0668E-03_JPRB,1.2267E-03_JPRB,1.0593E-03_JPRB,7.8292E-04_JPRB,8.7195E-04_JPRB/)
+KBO( :, 5,31, 7) = (/&
+&1.3704E-03_JPRB,1.5681E-03_JPRB,1.3465E-03_JPRB,9.8920E-04_JPRB,9.8973E-04_JPRB/)
+KBO( :, 1,32, 7) = (/&
+&4.1152E-04_JPRB,4.8409E-04_JPRB,4.2308E-04_JPRB,3.1645E-04_JPRB,4.2168E-04_JPRB/)
+KBO( :, 2,32, 7) = (/&
+&5.5334E-04_JPRB,6.4575E-04_JPRB,5.6167E-04_JPRB,4.1833E-04_JPRB,4.9677E-04_JPRB/)
+KBO( :, 3,32, 7) = (/&
+&7.3299E-04_JPRB,8.4766E-04_JPRB,7.3383E-04_JPRB,5.4370E-04_JPRB,5.7774E-04_JPRB/)
+KBO( :, 4,32, 7) = (/&
+&9.5588E-04_JPRB,1.0987E-03_JPRB,9.4586E-04_JPRB,6.9613E-04_JPRB,6.6384E-04_JPRB/)
+KBO( :, 5,32, 7) = (/&
+&1.2288E-03_JPRB,1.4065E-03_JPRB,1.2040E-03_JPRB,8.8013E-04_JPRB,7.5486E-04_JPRB/)
+KBO( :, 1,33, 7) = (/&
+&3.6854E-04_JPRB,4.3316E-04_JPRB,3.7817E-04_JPRB,2.8260E-04_JPRB,3.1899E-04_JPRB/)
+KBO( :, 2,33, 7) = (/&
+&4.9646E-04_JPRB,5.7816E-04_JPRB,5.0221E-04_JPRB,3.7315E-04_JPRB,3.7656E-04_JPRB/)
+KBO( :, 3,33, 7) = (/&
+&6.5808E-04_JPRB,7.6063E-04_JPRB,6.5667E-04_JPRB,4.8480E-04_JPRB,4.3876E-04_JPRB/)
+KBO( :, 4,33, 7) = (/&
+&8.5867E-04_JPRB,9.8782E-04_JPRB,8.4748E-04_JPRB,6.2133E-04_JPRB,5.0517E-04_JPRB/)
+KBO( :, 5,33, 7) = (/&
+&1.1037E-03_JPRB,1.2658E-03_JPRB,1.0801E-03_JPRB,7.8611E-04_JPRB,5.7532E-04_JPRB/)
+KBO( :, 1,34, 7) = (/&
+&3.2867E-04_JPRB,3.8572E-04_JPRB,3.3622E-04_JPRB,2.5071E-04_JPRB,2.4855E-04_JPRB/)
+KBO( :, 2,34, 7) = (/&
+&4.4343E-04_JPRB,5.1569E-04_JPRB,4.4686E-04_JPRB,3.3101E-04_JPRB,2.9381E-04_JPRB/)
+KBO( :, 3,34, 7) = (/&
+&5.8810E-04_JPRB,6.7990E-04_JPRB,5.8528E-04_JPRB,4.3031E-04_JPRB,3.4255E-04_JPRB/)
+KBO( :, 4,34, 7) = (/&
+&7.6737E-04_JPRB,8.8428E-04_JPRB,7.5640E-04_JPRB,5.5217E-04_JPRB,3.9478E-04_JPRB/)
+KBO( :, 5,34, 7) = (/&
+&9.8517E-04_JPRB,1.1342E-03_JPRB,9.6554E-04_JPRB,6.9951E-04_JPRB,4.5002E-04_JPRB/)
+KBO( :, 1,35, 7) = (/&
+&2.8513E-04_JPRB,3.3438E-04_JPRB,2.9108E-04_JPRB,2.1672E-04_JPRB,1.8974E-04_JPRB/)
+KBO( :, 2,35, 7) = (/&
+&3.8542E-04_JPRB,4.4857E-04_JPRB,3.8802E-04_JPRB,2.8661E-04_JPRB,2.2492E-04_JPRB/)
+KBO( :, 3,35, 7) = (/&
+&5.1208E-04_JPRB,5.9329E-04_JPRB,5.0967E-04_JPRB,3.7356E-04_JPRB,2.6284E-04_JPRB/)
+KBO( :, 4,35, 7) = (/&
+&6.6882E-04_JPRB,7.7366E-04_JPRB,6.6059E-04_JPRB,4.8046E-04_JPRB,3.0352E-04_JPRB/)
+KBO( :, 5,35, 7) = (/&
+&8.5775E-04_JPRB,9.9358E-04_JPRB,8.4548E-04_JPRB,6.1010E-04_JPRB,3.4691E-04_JPRB/)
+KBO( :, 1,36, 7) = (/&
+&2.3908E-04_JPRB,2.8086E-04_JPRB,2.4432E-04_JPRB,1.8172E-04_JPRB,1.4131E-04_JPRB/)
+KBO( :, 2,36, 7) = (/&
+&3.2447E-04_JPRB,3.7866E-04_JPRB,3.2729E-04_JPRB,2.4123E-04_JPRB,1.6828E-04_JPRB/)
+KBO( :, 3,36, 7) = (/&
+&4.3244E-04_JPRB,5.0306E-04_JPRB,4.3179E-04_JPRB,3.1573E-04_JPRB,1.9752E-04_JPRB/)
+KBO( :, 4,36, 7) = (/&
+&5.6587E-04_JPRB,6.5843E-04_JPRB,5.6206E-04_JPRB,4.0778E-04_JPRB,2.2899E-04_JPRB/)
+KBO( :, 5,36, 7) = (/&
+&7.2600E-04_JPRB,8.4746E-04_JPRB,7.2177E-04_JPRB,5.1967E-04_JPRB,2.6262E-04_JPRB/)
+KBO( :, 1,37, 7) = (/&
+&1.9223E-04_JPRB,2.2635E-04_JPRB,1.9687E-04_JPRB,1.4630E-04_JPRB,1.0794E-04_JPRB/)
+KBO( :, 2,37, 7) = (/&
+&2.6242E-04_JPRB,3.0724E-04_JPRB,2.6553E-04_JPRB,1.9547E-04_JPRB,1.2910E-04_JPRB/)
+KBO( :, 3,37, 7) = (/&
+&3.5150E-04_JPRB,4.1071E-04_JPRB,3.5262E-04_JPRB,2.5740E-04_JPRB,1.5213E-04_JPRB/)
+KBO( :, 4,37, 7) = (/&
+&4.6185E-04_JPRB,5.4051E-04_JPRB,4.6167E-04_JPRB,3.3450E-04_JPRB,1.7700E-04_JPRB/)
+KBO( :, 5,37, 7) = (/&
+&5.9416E-04_JPRB,6.9865E-04_JPRB,5.9573E-04_JPRB,4.2859E-04_JPRB,2.0366E-04_JPRB/)
+KBO( :, 1,38, 7) = (/&
+&1.5396E-04_JPRB,1.8186E-04_JPRB,1.5820E-04_JPRB,1.1745E-04_JPRB,8.2026E-05_JPRB/)
+KBO( :, 2,38, 7) = (/&
+&2.1139E-04_JPRB,2.4853E-04_JPRB,2.1486E-04_JPRB,1.5802E-04_JPRB,9.8555E-05_JPRB/)
+KBO( :, 3,38, 7) = (/&
+&2.8454E-04_JPRB,3.3433E-04_JPRB,2.8721E-04_JPRB,2.0943E-04_JPRB,1.1661E-04_JPRB/)
+KBO( :, 4,38, 7) = (/&
+&3.7538E-04_JPRB,4.4233E-04_JPRB,3.7835E-04_JPRB,2.7384E-04_JPRB,1.3622E-04_JPRB/)
+KBO( :, 5,38, 7) = (/&
+&4.8432E-04_JPRB,5.7425E-04_JPRB,4.9054E-04_JPRB,3.5276E-04_JPRB,1.5730E-04_JPRB/)
+KBO( :, 1,39, 7) = (/&
+&1.2310E-04_JPRB,1.4596E-04_JPRB,1.2703E-04_JPRB,9.4291E-05_JPRB,6.1783E-05_JPRB/)
+KBO( :, 2,39, 7) = (/&
+&1.6994E-04_JPRB,2.0085E-04_JPRB,1.7375E-04_JPRB,1.2772E-04_JPRB,7.4607E-05_JPRB/)
+KBO( :, 3,39, 7) = (/&
+&2.2988E-04_JPRB,2.7190E-04_JPRB,2.3385E-04_JPRB,1.7039E-04_JPRB,8.8689E-05_JPRB/)
+KBO( :, 4,39, 7) = (/&
+&3.0447E-04_JPRB,3.6157E-04_JPRB,3.0996E-04_JPRB,2.2416E-04_JPRB,1.0404E-04_JPRB/)
+KBO( :, 5,39, 7) = (/&
+&3.9383E-04_JPRB,4.7143E-04_JPRB,4.0364E-04_JPRB,2.9022E-04_JPRB,1.2062E-04_JPRB/)
+KBO( :, 1,40, 7) = (/&
+&9.5155E-05_JPRB,1.1332E-04_JPRB,9.8734E-05_JPRB,7.3344E-05_JPRB,4.6985E-05_JPRB/)
+KBO( :, 2,40, 7) = (/&
+&1.3236E-04_JPRB,1.5726E-04_JPRB,1.3621E-04_JPRB,1.0020E-04_JPRB,5.7054E-05_JPRB/)
+KBO( :, 3,40, 7) = (/&
+&1.8031E-04_JPRB,2.1454E-04_JPRB,1.8484E-04_JPRB,1.3474E-04_JPRB,6.8162E-05_JPRB/)
+KBO( :, 4,40, 7) = (/&
+&2.4017E-04_JPRB,2.8725E-04_JPRB,2.4684E-04_JPRB,1.7861E-04_JPRB,8.0321E-05_JPRB/)
+KBO( :, 5,40, 7) = (/&
+&3.1223E-04_JPRB,3.7700E-04_JPRB,3.2358E-04_JPRB,2.3279E-04_JPRB,9.3499E-05_JPRB/)
+KBO( :, 1,41, 7) = (/&
+&7.3040E-05_JPRB,8.7365E-05_JPRB,7.6219E-05_JPRB,5.6696E-05_JPRB,3.5628E-05_JPRB/)
+KBO( :, 2,41, 7) = (/&
+&1.0242E-04_JPRB,1.2231E-04_JPRB,1.0608E-04_JPRB,7.8149E-05_JPRB,4.3528E-05_JPRB/)
+KBO( :, 3,41, 7) = (/&
+&1.4051E-04_JPRB,1.6819E-04_JPRB,1.4521E-04_JPRB,1.0598E-04_JPRB,5.2277E-05_JPRB/)
+KBO( :, 4,41, 7) = (/&
+&1.8838E-04_JPRB,2.2688E-04_JPRB,1.9542E-04_JPRB,1.4156E-04_JPRB,6.1894E-05_JPRB/)
+KBO( :, 5,41, 7) = (/&
+&2.4622E-04_JPRB,2.9976E-04_JPRB,2.5798E-04_JPRB,1.8586E-04_JPRB,7.2357E-05_JPRB/)
+KBO( :, 1,42, 7) = (/&
+&5.5864E-05_JPRB,6.7119E-05_JPRB,5.8652E-05_JPRB,4.3719E-05_JPRB,2.6853E-05_JPRB/)
+KBO( :, 2,42, 7) = (/&
+&7.9009E-05_JPRB,9.4831E-05_JPRB,8.2368E-05_JPRB,6.0798E-05_JPRB,3.3017E-05_JPRB/)
+KBO( :, 3,42, 7) = (/&
+&1.0919E-04_JPRB,1.3143E-04_JPRB,1.1371E-04_JPRB,8.3133E-05_JPRB,3.9881E-05_JPRB/)
+KBO( :, 4,42, 7) = (/&
+&1.4736E-04_JPRB,1.7866E-04_JPRB,1.5424E-04_JPRB,1.1195E-04_JPRB,4.7449E-05_JPRB/)
+KBO( :, 5,42, 7) = (/&
+&1.9372E-04_JPRB,2.3766E-04_JPRB,2.0511E-04_JPRB,1.4803E-04_JPRB,5.5730E-05_JPRB/)
+KBO( :, 1,43, 7) = (/&
+&4.1761E-05_JPRB,5.0398E-05_JPRB,4.4130E-05_JPRB,3.2985E-05_JPRB,2.0073E-05_JPRB/)
+KBO( :, 2,43, 7) = (/&
+&5.9645E-05_JPRB,7.1916E-05_JPRB,6.2599E-05_JPRB,4.6330E-05_JPRB,2.4864E-05_JPRB/)
+KBO( :, 3,43, 7) = (/&
+&8.3194E-05_JPRB,1.0064E-04_JPRB,8.7232E-05_JPRB,6.3942E-05_JPRB,3.0235E-05_JPRB/)
+KBO( :, 4,43, 7) = (/&
+&1.1320E-04_JPRB,1.3803E-04_JPRB,1.1940E-04_JPRB,8.6870E-05_JPRB,3.6178E-05_JPRB/)
+KBO( :, 5,43, 7) = (/&
+&1.4992E-04_JPRB,1.8511E-04_JPRB,1.6011E-04_JPRB,1.1587E-04_JPRB,4.2707E-05_JPRB/)
+KBO( :, 1,44, 7) = (/&
+&3.0801E-05_JPRB,3.7349E-05_JPRB,3.2753E-05_JPRB,2.4577E-05_JPRB,1.4891E-05_JPRB/)
+KBO( :, 2,44, 7) = (/&
+&4.4487E-05_JPRB,5.3871E-05_JPRB,4.6990E-05_JPRB,3.4888E-05_JPRB,1.8592E-05_JPRB/)
+KBO( :, 3,44, 7) = (/&
+&6.2658E-05_JPRB,7.6156E-05_JPRB,6.6129E-05_JPRB,4.8623E-05_JPRB,2.2773E-05_JPRB/)
+KBO( :, 4,44, 7) = (/&
+&8.6061E-05_JPRB,1.0547E-04_JPRB,9.1388E-05_JPRB,6.6679E-05_JPRB,2.7431E-05_JPRB/)
+KBO( :, 5,44, 7) = (/&
+&1.1501E-04_JPRB,1.4274E-04_JPRB,1.2369E-04_JPRB,8.9747E-05_JPRB,3.2565E-05_JPRB/)
+KBO( :, 1,45, 7) = (/&
+&2.2608E-05_JPRB,2.7541E-05_JPRB,2.4185E-05_JPRB,1.8232E-05_JPRB,1.0958E-05_JPRB/)
+KBO( :, 2,45, 7) = (/&
+&3.3025E-05_JPRB,4.0159E-05_JPRB,3.5109E-05_JPRB,2.6156E-05_JPRB,1.3799E-05_JPRB/)
+KBO( :, 3,45, 7) = (/&
+&4.7011E-05_JPRB,5.7379E-05_JPRB,4.9919E-05_JPRB,3.6820E-05_JPRB,1.7031E-05_JPRB/)
+KBO( :, 4,45, 7) = (/&
+&6.5198E-05_JPRB,8.0265E-05_JPRB,6.9669E-05_JPRB,5.0975E-05_JPRB,2.0660E-05_JPRB/)
+KBO( :, 5,45, 7) = (/&
+&8.7915E-05_JPRB,1.0965E-04_JPRB,9.5159E-05_JPRB,6.9236E-05_JPRB,2.4675E-05_JPRB/)
+KBO( :, 1,46, 7) = (/&
+&1.6373E-05_JPRB,2.0043E-05_JPRB,1.7624E-05_JPRB,1.3360E-05_JPRB,7.9926E-06_JPRB/)
+KBO( :, 2,46, 7) = (/&
+&2.4216E-05_JPRB,2.9567E-05_JPRB,2.5903E-05_JPRB,1.9373E-05_JPRB,1.0160E-05_JPRB/)
+KBO( :, 3,46, 7) = (/&
+&3.4868E-05_JPRB,4.2722E-05_JPRB,3.7241E-05_JPRB,2.7564E-05_JPRB,1.2643E-05_JPRB/)
+KBO( :, 4,46, 7) = (/&
+&4.8882E-05_JPRB,6.0410E-05_JPRB,5.2522E-05_JPRB,3.8539E-05_JPRB,1.5455E-05_JPRB/)
+KBO( :, 5,46, 7) = (/&
+&6.6579E-05_JPRB,8.3392E-05_JPRB,7.2472E-05_JPRB,5.2864E-05_JPRB,1.8586E-05_JPRB/)
+KBO( :, 1,47, 7) = (/&
+&1.1599E-05_JPRB,1.4268E-05_JPRB,1.2567E-05_JPRB,9.5846E-06_JPRB,5.7865E-06_JPRB/)
+KBO( :, 2,47, 7) = (/&
+&1.7394E-05_JPRB,2.1321E-05_JPRB,1.8719E-05_JPRB,1.4063E-05_JPRB,7.4320E-06_JPRB/)
+KBO( :, 3,47, 7) = (/&
+&2.5375E-05_JPRB,3.1189E-05_JPRB,2.7244E-05_JPRB,2.0242E-05_JPRB,9.3345E-06_JPRB/)
+KBO( :, 4,47, 7) = (/&
+&3.6020E-05_JPRB,4.4624E-05_JPRB,3.8868E-05_JPRB,2.8612E-05_JPRB,1.1506E-05_JPRB/)
+KBO( :, 5,47, 7) = (/&
+&4.9650E-05_JPRB,6.2358E-05_JPRB,5.4247E-05_JPRB,3.9674E-05_JPRB,1.3945E-05_JPRB/)
+KBO( :, 1,48, 7) = (/&
+&8.1592E-06_JPRB,1.0088E-05_JPRB,8.9029E-06_JPRB,6.8352E-06_JPRB,4.1486E-06_JPRB/)
+KBO( :, 2,48, 7) = (/&
+&1.2414E-05_JPRB,1.5281E-05_JPRB,1.3442E-05_JPRB,1.0147E-05_JPRB,5.3865E-06_JPRB/)
+KBO( :, 3,48, 7) = (/&
+&1.8355E-05_JPRB,2.2636E-05_JPRB,1.9815E-05_JPRB,1.4784E-05_JPRB,6.8320E-06_JPRB/)
+KBO( :, 4,48, 7) = (/&
+&2.6399E-05_JPRB,3.2787E-05_JPRB,2.8606E-05_JPRB,2.1130E-05_JPRB,8.4972E-06_JPRB/)
+KBO( :, 5,48, 7) = (/&
+&3.6834E-05_JPRB,4.6374E-05_JPRB,4.0398E-05_JPRB,2.9623E-05_JPRB,1.0383E-05_JPRB/)
+KBO( :, 1,49, 7) = (/&
+&5.6950E-06_JPRB,7.0854E-06_JPRB,6.2658E-06_JPRB,4.8460E-06_JPRB,2.9411E-06_JPRB/)
+KBO( :, 2,49, 7) = (/&
+&8.8040E-06_JPRB,1.0880E-05_JPRB,9.5884E-06_JPRB,7.2776E-06_JPRB,3.8607E-06_JPRB/)
+KBO( :, 3,49, 7) = (/&
+&1.3194E-05_JPRB,1.6321E-05_JPRB,1.4323E-05_JPRB,1.0731E-05_JPRB,4.9471E-06_JPRB/)
+KBO( :, 4,49, 7) = (/&
+&1.9231E-05_JPRB,2.3945E-05_JPRB,2.0927E-05_JPRB,1.5515E-05_JPRB,6.2112E-06_JPRB/)
+KBO( :, 5,49, 7) = (/&
+&2.7183E-05_JPRB,3.4291E-05_JPRB,2.9917E-05_JPRB,2.1999E-05_JPRB,7.6566E-06_JPRB/)
+KBO( :, 1,50, 7) = (/&
+&3.9958E-06_JPRB,5.0015E-06_JPRB,4.4366E-06_JPRB,3.4585E-06_JPRB,2.1227E-06_JPRB/)
+KBO( :, 2,50, 7) = (/&
+&6.2784E-06_JPRB,7.7901E-06_JPRB,6.8759E-06_JPRB,5.2490E-06_JPRB,2.8123E-06_JPRB/)
+KBO( :, 3,50, 7) = (/&
+&9.5367E-06_JPRB,1.1828E-05_JPRB,1.0406E-05_JPRB,7.8273E-06_JPRB,3.6384E-06_JPRB/)
+KBO( :, 4,50, 7) = (/&
+&1.4076E-05_JPRB,1.7574E-05_JPRB,1.5384E-05_JPRB,1.1445E-05_JPRB,4.6069E-06_JPRB/)
+KBO( :, 5,50, 7) = (/&
+&2.0158E-05_JPRB,2.5470E-05_JPRB,2.2251E-05_JPRB,1.6406E-05_JPRB,5.7245E-06_JPRB/)
+KBO( :, 1,51, 7) = (/&
+&2.7988E-06_JPRB,3.5266E-06_JPRB,3.1403E-06_JPRB,2.4729E-06_JPRB,1.5428E-06_JPRB/)
+KBO( :, 2,51, 7) = (/&
+&4.4758E-06_JPRB,5.5781E-06_JPRB,4.9313E-06_JPRB,3.7868E-06_JPRB,2.0615E-06_JPRB/)
+KBO( :, 3,51, 7) = (/&
+&6.8951E-06_JPRB,8.5722E-06_JPRB,7.5560E-06_JPRB,5.7084E-06_JPRB,2.6915E-06_JPRB/)
+KBO( :, 4,51, 7) = (/&
+&1.0304E-05_JPRB,1.2894E-05_JPRB,1.1308E-05_JPRB,8.4393E-06_JPRB,3.4363E-06_JPRB/)
+KBO( :, 5,51, 7) = (/&
+&1.4945E-05_JPRB,1.8920E-05_JPRB,1.6546E-05_JPRB,1.2232E-05_JPRB,4.3031E-06_JPRB/)
+KBO( :, 1,52, 7) = (/&
+&1.9435E-06_JPRB,2.4685E-06_JPRB,2.2098E-06_JPRB,1.7634E-06_JPRB,1.1143E-06_JPRB/)
+KBO( :, 2,52, 7) = (/&
+&3.1695E-06_JPRB,3.9713E-06_JPRB,3.5183E-06_JPRB,2.7199E-06_JPRB,1.5011E-06_JPRB/)
+KBO( :, 3,52, 7) = (/&
+&4.9592E-06_JPRB,6.1828E-06_JPRB,5.4581E-06_JPRB,4.1434E-06_JPRB,1.9775E-06_JPRB/)
+KBO( :, 4,52, 7) = (/&
+&7.5082E-06_JPRB,9.4119E-06_JPRB,8.2722E-06_JPRB,6.1949E-06_JPRB,2.5467E-06_JPRB/)
+KBO( :, 5,52, 7) = (/&
+&1.1026E-05_JPRB,1.3984E-05_JPRB,1.2246E-05_JPRB,9.0780E-06_JPRB,3.2145E-06_JPRB/)
+KBO( :, 1,53, 7) = (/&
+&1.3359E-06_JPRB,1.7128E-06_JPRB,1.5439E-06_JPRB,1.2551E-06_JPRB,7.9874E-07_JPRB/)
+KBO( :, 2,53, 7) = (/&
+&2.2274E-06_JPRB,2.8086E-06_JPRB,2.4951E-06_JPRB,1.9446E-06_JPRB,1.0843E-06_JPRB/)
+KBO( :, 3,53, 7) = (/&
+&3.5445E-06_JPRB,4.4342E-06_JPRB,3.9206E-06_JPRB,2.9916E-06_JPRB,1.4407E-06_JPRB/)
+KBO( :, 4,53, 7) = (/&
+&5.4423E-06_JPRB,6.8307E-06_JPRB,6.0173E-06_JPRB,4.5231E-06_JPRB,1.8721E-06_JPRB/)
+KBO( :, 5,53, 7) = (/&
+&8.0931E-06_JPRB,1.0281E-05_JPRB,9.0168E-06_JPRB,6.7031E-06_JPRB,2.3821E-06_JPRB/)
+KBO( :, 1,54, 7) = (/&
+&9.2652E-07_JPRB,1.1988E-06_JPRB,1.0892E-06_JPRB,9.0472E-07_JPRB,5.9185E-07_JPRB/)
+KBO( :, 2,54, 7) = (/&
+&1.5791E-06_JPRB,2.0042E-06_JPRB,1.7864E-06_JPRB,1.4053E-06_JPRB,8.0903E-07_JPRB/)
+KBO( :, 3,54, 7) = (/&
+&2.5564E-06_JPRB,3.2106E-06_JPRB,2.8433E-06_JPRB,2.1812E-06_JPRB,1.0829E-06_JPRB/)
+KBO( :, 4,54, 7) = (/&
+&3.9810E-06_JPRB,5.0042E-06_JPRB,4.4158E-06_JPRB,3.3311E-06_JPRB,1.4179E-06_JPRB/)
+KBO( :, 5,54, 7) = (/&
+&5.9940E-06_JPRB,7.6213E-06_JPRB,6.6941E-06_JPRB,4.9908E-06_JPRB,1.8162E-06_JPRB/)
+KBO( :, 1,55, 7) = (/&
+&6.4271E-07_JPRB,8.3986E-07_JPRB,7.6969E-07_JPRB,6.5622E-07_JPRB,4.4680E-07_JPRB/)
+KBO( :, 2,55, 7) = (/&
+&1.1202E-06_JPRB,1.4315E-06_JPRB,1.2812E-06_JPRB,1.0198E-06_JPRB,6.1469E-07_JPRB/)
+KBO( :, 3,55, 7) = (/&
+&1.8463E-06_JPRB,2.3303E-06_JPRB,2.0672E-06_JPRB,1.5950E-06_JPRB,8.2848E-07_JPRB/)
+KBO( :, 4,55, 7) = (/&
+&2.9187E-06_JPRB,3.6752E-06_JPRB,3.2484E-06_JPRB,2.4593E-06_JPRB,1.0923E-06_JPRB/)
+KBO( :, 5,55, 7) = (/&
+&4.4490E-06_JPRB,5.6623E-06_JPRB,4.9799E-06_JPRB,3.7232E-06_JPRB,1.4079E-06_JPRB/)
+KBO( :, 1,56, 7) = (/&
+&4.4222E-07_JPRB,5.8443E-07_JPRB,5.4132E-07_JPRB,4.7675E-07_JPRB,3.3738E-07_JPRB/)
+KBO( :, 2,56, 7) = (/&
+&7.8907E-07_JPRB,1.0157E-06_JPRB,9.1377E-07_JPRB,7.3810E-07_JPRB,4.6671E-07_JPRB/)
+KBO( :, 3,56, 7) = (/&
+&1.3248E-06_JPRB,1.6819E-06_JPRB,1.4956E-06_JPRB,1.1622E-06_JPRB,6.3354E-07_JPRB/)
+KBO( :, 4,56, 7) = (/&
+&2.1296E-06_JPRB,2.6885E-06_JPRB,2.3793E-06_JPRB,1.8091E-06_JPRB,8.4125E-07_JPRB/)
+KBO( :, 5,56, 7) = (/&
+&3.2905E-06_JPRB,4.1906E-06_JPRB,3.6905E-06_JPRB,2.7667E-06_JPRB,1.0917E-06_JPRB/)
+KBO( :, 1,57, 7) = (/&
+&3.0166E-07_JPRB,4.0366E-07_JPRB,3.7890E-07_JPRB,3.4759E-07_JPRB,2.5495E-07_JPRB/)
+KBO( :, 2,57, 7) = (/&
+&5.5161E-07_JPRB,7.1542E-07_JPRB,6.4792E-07_JPRB,5.3334E-07_JPRB,3.5433E-07_JPRB/)
+KBO( :, 3,57, 7) = (/&
+&9.4470E-07_JPRB,1.2069E-06_JPRB,1.0761E-06_JPRB,8.4394E-07_JPRB,4.8446E-07_JPRB/)
+KBO( :, 4,57, 7) = (/&
+&1.5448E-06_JPRB,1.9571E-06_JPRB,1.7349E-06_JPRB,1.3257E-06_JPRB,6.4791E-07_JPRB/)
+KBO( :, 5,57, 7) = (/&
+&2.4231E-06_JPRB,3.0885E-06_JPRB,2.7246E-06_JPRB,2.0476E-06_JPRB,8.4650E-07_JPRB/)
+KBO( :, 1,58, 7) = (/&
+&2.0615E-07_JPRB,2.7966E-07_JPRB,2.6659E-07_JPRB,2.5672E-07_JPRB,1.9490E-07_JPRB/)
+KBO( :, 2,58, 7) = (/&
+&3.8634E-07_JPRB,5.0506E-07_JPRB,4.6082E-07_JPRB,3.8792E-07_JPRB,2.7193E-07_JPRB/)
+KBO( :, 3,58, 7) = (/&
+&6.7545E-07_JPRB,8.6794E-07_JPRB,7.7672E-07_JPRB,6.1534E-07_JPRB,3.7439E-07_JPRB/)
+KBO( :, 4,58, 7) = (/&
+&1.1229E-06_JPRB,1.4289E-06_JPRB,1.2690E-06_JPRB,9.7539E-07_JPRB,5.0417E-07_JPRB/)
+KBO( :, 5,58, 7) = (/&
+&1.7888E-06_JPRB,2.2841E-06_JPRB,2.0182E-06_JPRB,1.5209E-06_JPRB,6.6299E-07_JPRB/)
+KBO( :, 1,59, 7) = (/&
+&1.5864E-07_JPRB,2.1618E-07_JPRB,2.0732E-07_JPRB,2.0350E-07_JPRB,1.6565E-07_JPRB/)
+KBO( :, 2,59, 7) = (/&
+&3.0072E-07_JPRB,3.9451E-07_JPRB,3.6086E-07_JPRB,3.0632E-07_JPRB,2.3297E-07_JPRB/)
+KBO( :, 3,59, 7) = (/&
+&5.3103E-07_JPRB,6.8463E-07_JPRB,6.1355E-07_JPRB,4.8792E-07_JPRB,3.2258E-07_JPRB/)
+KBO( :, 4,59, 7) = (/&
+&8.9096E-07_JPRB,1.1377E-06_JPRB,1.0113E-06_JPRB,7.7874E-07_JPRB,4.3608E-07_JPRB/)
+KBO( :, 5,59, 7) = (/&
+&1.4311E-06_JPRB,1.8344E-06_JPRB,1.6214E-06_JPRB,1.2223E-06_JPRB,5.7456E-07_JPRB/)
+KBO( :, 1,13, 8) = (/&
+&1.1431E-02_JPRB,1.2741E-02_JPRB,1.1436E-02_JPRB,9.1621E-03_JPRB,8.0519E-02_JPRB/)
+KBO( :, 2,13, 8) = (/&
+&1.5206E-02_JPRB,1.7160E-02_JPRB,1.5555E-02_JPRB,1.2454E-02_JPRB,8.6864E-02_JPRB/)
+KBO( :, 3,13, 8) = (/&
+&1.9976E-02_JPRB,2.2722E-02_JPRB,2.0654E-02_JPRB,1.6502E-02_JPRB,9.4446E-02_JPRB/)
+KBO( :, 4,13, 8) = (/&
+&2.5954E-02_JPRB,2.9643E-02_JPRB,2.6781E-02_JPRB,2.1406E-02_JPRB,1.0333E-01_JPRB/)
+KBO( :, 5,13, 8) = (/&
+&3.3352E-02_JPRB,3.7953E-02_JPRB,3.4189E-02_JPRB,2.7277E-02_JPRB,1.1304E-01_JPRB/)
+KBO( :, 1,14, 8) = (/&
+&1.0179E-02_JPRB,1.1389E-02_JPRB,1.0176E-02_JPRB,8.0522E-03_JPRB,6.5504E-02_JPRB/)
+KBO( :, 2,14, 8) = (/&
+&1.3641E-02_JPRB,1.5355E-02_JPRB,1.3817E-02_JPRB,1.0906E-02_JPRB,7.2230E-02_JPRB/)
+KBO( :, 3,14, 8) = (/&
+&1.8023E-02_JPRB,2.0418E-02_JPRB,1.8352E-02_JPRB,1.4437E-02_JPRB,8.0150E-02_JPRB/)
+KBO( :, 4,14, 8) = (/&
+&2.3532E-02_JPRB,2.6705E-02_JPRB,2.3876E-02_JPRB,1.8758E-02_JPRB,8.9038E-02_JPRB/)
+KBO( :, 5,14, 8) = (/&
+&3.0239E-02_JPRB,3.4282E-02_JPRB,3.0614E-02_JPRB,2.4017E-02_JPRB,9.8577E-02_JPRB/)
+KBO( :, 1,15, 8) = (/&
+&9.0090E-03_JPRB,1.0120E-02_JPRB,9.0167E-03_JPRB,7.0764E-03_JPRB,5.2591E-02_JPRB/)
+KBO( :, 2,15, 8) = (/&
+&1.2186E-02_JPRB,1.3734E-02_JPRB,1.2258E-02_JPRB,9.5696E-03_JPRB,5.9402E-02_JPRB/)
+KBO( :, 3,15, 8) = (/&
+&1.6225E-02_JPRB,1.8333E-02_JPRB,1.6340E-02_JPRB,1.2688E-02_JPRB,6.7127E-02_JPRB/)
+KBO( :, 4,15, 8) = (/&
+&2.1185E-02_JPRB,2.4042E-02_JPRB,2.1332E-02_JPRB,1.6578E-02_JPRB,7.5512E-02_JPRB/)
+KBO( :, 5,15, 8) = (/&
+&2.7141E-02_JPRB,3.0928E-02_JPRB,2.7480E-02_JPRB,2.1333E-02_JPRB,8.4521E-02_JPRB/)
+KBO( :, 1,16, 8) = (/&
+&7.9666E-03_JPRB,8.9862E-03_JPRB,7.9671E-03_JPRB,6.2242E-03_JPRB,4.1294E-02_JPRB/)
+KBO( :, 2,16, 8) = (/&
+&1.0885E-02_JPRB,1.2270E-02_JPRB,1.0885E-02_JPRB,8.4303E-03_JPRB,4.7519E-02_JPRB/)
+KBO( :, 3,16, 8) = (/&
+&1.4511E-02_JPRB,1.6442E-02_JPRB,1.4544E-02_JPRB,1.1234E-02_JPRB,5.4415E-02_JPRB/)
+KBO( :, 4,16, 8) = (/&
+&1.8926E-02_JPRB,2.1554E-02_JPRB,1.9076E-02_JPRB,1.4750E-02_JPRB,6.1801E-02_JPRB/)
+KBO( :, 5,16, 8) = (/&
+&2.4236E-02_JPRB,2.7687E-02_JPRB,2.4633E-02_JPRB,1.9024E-02_JPRB,6.9624E-02_JPRB/)
+KBO( :, 1,17, 8) = (/&
+&7.1080E-03_JPRB,8.0147E-03_JPRB,7.0758E-03_JPRB,5.4873E-03_JPRB,3.3297E-02_JPRB/)
+KBO( :, 2,17, 8) = (/&
+&9.7388E-03_JPRB,1.0991E-02_JPRB,9.6940E-03_JPRB,7.4587E-03_JPRB,3.8754E-02_JPRB/)
+KBO( :, 3,17, 8) = (/&
+&1.2971E-02_JPRB,1.4712E-02_JPRB,1.2980E-02_JPRB,9.9806E-03_JPRB,4.4673E-02_JPRB/)
+KBO( :, 4,17, 8) = (/&
+&1.6920E-02_JPRB,1.9221E-02_JPRB,1.7037E-02_JPRB,1.3131E-02_JPRB,5.0878E-02_JPRB/)
+KBO( :, 5,17, 8) = (/&
+&2.1675E-02_JPRB,2.4688E-02_JPRB,2.1958E-02_JPRB,1.6944E-02_JPRB,5.7392E-02_JPRB/)
+KBO( :, 1,18, 8) = (/&
+&6.4048E-03_JPRB,7.2149E-03_JPRB,6.3423E-03_JPRB,4.8705E-03_JPRB,2.7610E-02_JPRB/)
+KBO( :, 2,18, 8) = (/&
+&8.7579E-03_JPRB,9.8929E-03_JPRB,8.6960E-03_JPRB,6.6399E-03_JPRB,3.2241E-02_JPRB/)
+KBO( :, 3,18, 8) = (/&
+&1.1674E-02_JPRB,1.3178E-02_JPRB,1.1614E-02_JPRB,8.8937E-03_JPRB,3.7151E-02_JPRB/)
+KBO( :, 4,18, 8) = (/&
+&1.5226E-02_JPRB,1.7183E-02_JPRB,1.5190E-02_JPRB,1.1678E-02_JPRB,4.2321E-02_JPRB/)
+KBO( :, 5,18, 8) = (/&
+&1.9521E-02_JPRB,2.2065E-02_JPRB,1.9536E-02_JPRB,1.5022E-02_JPRB,4.7759E-02_JPRB/)
+KBO( :, 1,19, 8) = (/&
+&5.7780E-03_JPRB,6.5097E-03_JPRB,5.7073E-03_JPRB,4.3362E-03_JPRB,2.3517E-02_JPRB/)
+KBO( :, 2,19, 8) = (/&
+&7.8980E-03_JPRB,8.8943E-03_JPRB,7.8019E-03_JPRB,5.9182E-03_JPRB,2.7464E-02_JPRB/)
+KBO( :, 3,19, 8) = (/&
+&1.0547E-02_JPRB,1.1813E-02_JPRB,1.0378E-02_JPRB,7.9082E-03_JPRB,3.1653E-02_JPRB/)
+KBO( :, 4,19, 8) = (/&
+&1.3780E-02_JPRB,1.5395E-02_JPRB,1.3544E-02_JPRB,1.0334E-02_JPRB,3.6068E-02_JPRB/)
+KBO( :, 5,19, 8) = (/&
+&1.7661E-02_JPRB,1.9769E-02_JPRB,1.7387E-02_JPRB,1.3263E-02_JPRB,4.0672E-02_JPRB/)
+KBO( :, 1,20, 8) = (/&
+&5.2358E-03_JPRB,5.8943E-03_JPRB,5.1609E-03_JPRB,3.8930E-03_JPRB,2.0265E-02_JPRB/)
+KBO( :, 2,20, 8) = (/&
+&7.1650E-03_JPRB,8.0337E-03_JPRB,7.0303E-03_JPRB,5.3009E-03_JPRB,2.3642E-02_JPRB/)
+KBO( :, 3,20, 8) = (/&
+&9.5768E-03_JPRB,1.0673E-02_JPRB,9.3270E-03_JPRB,7.0467E-03_JPRB,2.7210E-02_JPRB/)
+KBO( :, 4,20, 8) = (/&
+&1.2520E-02_JPRB,1.3910E-02_JPRB,1.2148E-02_JPRB,9.1772E-03_JPRB,3.0955E-02_JPRB/)
+KBO( :, 5,20, 8) = (/&
+&1.6054E-02_JPRB,1.7830E-02_JPRB,1.5571E-02_JPRB,1.1760E-02_JPRB,3.4856E-02_JPRB/)
+KBO( :, 1,21, 8) = (/&
+&4.7306E-03_JPRB,5.3228E-03_JPRB,4.6480E-03_JPRB,3.4934E-03_JPRB,1.7415E-02_JPRB/)
+KBO( :, 2,21, 8) = (/&
+&6.4837E-03_JPRB,7.2505E-03_JPRB,6.3214E-03_JPRB,4.7410E-03_JPRB,2.0248E-02_JPRB/)
+KBO( :, 3,21, 8) = (/&
+&8.6672E-03_JPRB,9.6479E-03_JPRB,8.3920E-03_JPRB,6.2776E-03_JPRB,2.3246E-02_JPRB/)
+KBO( :, 4,21, 8) = (/&
+&1.1340E-02_JPRB,1.2581E-02_JPRB,1.0918E-02_JPRB,8.1620E-03_JPRB,2.6397E-02_JPRB/)
+KBO( :, 5,21, 8) = (/&
+&1.4560E-02_JPRB,1.6102E-02_JPRB,1.3967E-02_JPRB,1.0440E-02_JPRB,2.9697E-02_JPRB/)
+KBO( :, 1,22, 8) = (/&
+&4.3418E-03_JPRB,4.8765E-03_JPRB,4.2505E-03_JPRB,3.1831E-03_JPRB,1.4725E-02_JPRB/)
+KBO( :, 2,22, 8) = (/&
+&5.9449E-03_JPRB,6.6380E-03_JPRB,5.7744E-03_JPRB,4.3038E-03_JPRB,1.7073E-02_JPRB/)
+KBO( :, 3,22, 8) = (/&
+&7.9389E-03_JPRB,8.8321E-03_JPRB,7.6615E-03_JPRB,5.6883E-03_JPRB,1.9560E-02_JPRB/)
+KBO( :, 4,22, 8) = (/&
+&1.0382E-02_JPRB,1.1507E-02_JPRB,9.9583E-03_JPRB,7.3808E-03_JPRB,2.2180E-02_JPRB/)
+KBO( :, 5,22, 8) = (/&
+&1.3348E-02_JPRB,1.4718E-02_JPRB,1.2724E-02_JPRB,9.4158E-03_JPRB,2.4942E-02_JPRB/)
+KBO( :, 1,23, 8) = (/&
+&3.9755E-03_JPRB,4.4601E-03_JPRB,3.8791E-03_JPRB,2.8940E-03_JPRB,1.2317E-02_JPRB/)
+KBO( :, 2,23, 8) = (/&
+&5.4326E-03_JPRB,6.0675E-03_JPRB,5.2649E-03_JPRB,3.9079E-03_JPRB,1.4261E-02_JPRB/)
+KBO( :, 3,23, 8) = (/&
+&7.2471E-03_JPRB,8.0652E-03_JPRB,6.9775E-03_JPRB,5.1609E-03_JPRB,1.6319E-02_JPRB/)
+KBO( :, 4,23, 8) = (/&
+&9.4853E-03_JPRB,1.0499E-02_JPRB,9.0669E-03_JPRB,6.6817E-03_JPRB,1.8494E-02_JPRB/)
+KBO( :, 5,23, 8) = (/&
+&1.2224E-02_JPRB,1.3433E-02_JPRB,1.1575E-02_JPRB,8.5016E-03_JPRB,2.0803E-02_JPRB/)
+KBO( :, 1,24, 8) = (/&
+&3.6237E-03_JPRB,4.0664E-03_JPRB,3.5327E-03_JPRB,2.6249E-03_JPRB,1.0111E-02_JPRB/)
+KBO( :, 2,24, 8) = (/&
+&4.9405E-03_JPRB,5.5284E-03_JPRB,4.7867E-03_JPRB,3.5422E-03_JPRB,1.1712E-02_JPRB/)
+KBO( :, 3,24, 8) = (/&
+&6.5941E-03_JPRB,7.3367E-03_JPRB,6.3412E-03_JPRB,4.6740E-03_JPRB,1.3407E-02_JPRB/)
+KBO( :, 4,24, 8) = (/&
+&8.6500E-03_JPRB,9.5582E-03_JPRB,8.2387E-03_JPRB,6.0413E-03_JPRB,1.5203E-02_JPRB/)
+KBO( :, 5,24, 8) = (/&
+&1.1160E-02_JPRB,1.2258E-02_JPRB,1.0518E-02_JPRB,7.6745E-03_JPRB,1.7120E-02_JPRB/)
+KBO( :, 1,25, 8) = (/&
+&3.2923E-03_JPRB,3.7097E-03_JPRB,3.2174E-03_JPRB,2.3852E-03_JPRB,8.2743E-03_JPRB/)
+KBO( :, 2,25, 8) = (/&
+&4.4868E-03_JPRB,5.0333E-03_JPRB,4.3547E-03_JPRB,3.2140E-03_JPRB,9.5864E-03_JPRB/)
+KBO( :, 3,25, 8) = (/&
+&6.0022E-03_JPRB,6.6817E-03_JPRB,5.7652E-03_JPRB,4.2348E-03_JPRB,1.0982E-02_JPRB/)
+KBO( :, 4,25, 8) = (/&
+&7.8855E-03_JPRB,8.7187E-03_JPRB,7.4913E-03_JPRB,5.4655E-03_JPRB,1.2469E-02_JPRB/)
+KBO( :, 5,25, 8) = (/&
+&1.0169E-02_JPRB,1.1196E-02_JPRB,9.5768E-03_JPRB,6.9385E-03_JPRB,1.4057E-02_JPRB/)
+KBO( :, 1,26, 8) = (/&
+&2.9966E-03_JPRB,3.3936E-03_JPRB,2.9435E-03_JPRB,2.1773E-03_JPRB,6.8226E-03_JPRB/)
+KBO( :, 2,26, 8) = (/&
+&4.0887E-03_JPRB,4.6003E-03_JPRB,3.9768E-03_JPRB,2.9281E-03_JPRB,7.9056E-03_JPRB/)
+KBO( :, 3,26, 8) = (/&
+&5.4745E-03_JPRB,6.1149E-03_JPRB,5.2640E-03_JPRB,3.8491E-03_JPRB,9.0607E-03_JPRB/)
+KBO( :, 4,26, 8) = (/&
+&7.1886E-03_JPRB,7.9856E-03_JPRB,6.8456E-03_JPRB,4.9643E-03_JPRB,1.0300E-02_JPRB/)
+KBO( :, 5,26, 8) = (/&
+&9.2596E-03_JPRB,1.0248E-02_JPRB,8.7489E-03_JPRB,6.3014E-03_JPRB,1.1624E-02_JPRB/)
+KBO( :, 1,27, 8) = (/&
+&2.7156E-03_JPRB,3.0876E-03_JPRB,2.6805E-03_JPRB,1.9822E-03_JPRB,5.5158E-03_JPRB/)
+KBO( :, 2,27, 8) = (/&
+&3.7104E-03_JPRB,4.1900E-03_JPRB,3.6215E-03_JPRB,2.6593E-03_JPRB,6.4001E-03_JPRB/)
+KBO( :, 3,27, 8) = (/&
+&4.9667E-03_JPRB,5.5771E-03_JPRB,4.8004E-03_JPRB,3.4928E-03_JPRB,7.3466E-03_JPRB/)
+KBO( :, 4,27, 8) = (/&
+&6.5120E-03_JPRB,7.2813E-03_JPRB,6.2396E-03_JPRB,4.5038E-03_JPRB,8.3626E-03_JPRB/)
+KBO( :, 5,27, 8) = (/&
+&8.3748E-03_JPRB,9.3312E-03_JPRB,7.9649E-03_JPRB,5.7101E-03_JPRB,9.4540E-03_JPRB/)
+KBO( :, 1,28, 8) = (/&
+&2.4540E-03_JPRB,2.8015E-03_JPRB,2.4332E-03_JPRB,1.7986E-03_JPRB,4.3717E-03_JPRB/)
+KBO( :, 2,28, 8) = (/&
+&3.3533E-03_JPRB,3.8065E-03_JPRB,3.2907E-03_JPRB,2.4104E-03_JPRB,5.0844E-03_JPRB/)
+KBO( :, 3,28, 8) = (/&
+&4.4816E-03_JPRB,5.0648E-03_JPRB,4.3611E-03_JPRB,3.1641E-03_JPRB,5.8491E-03_JPRB/)
+KBO( :, 4,28, 8) = (/&
+&5.8656E-03_JPRB,6.6059E-03_JPRB,5.6649E-03_JPRB,4.0783E-03_JPRB,6.6719E-03_JPRB/)
+KBO( :, 5,28, 8) = (/&
+&7.5375E-03_JPRB,8.4524E-03_JPRB,7.2181E-03_JPRB,5.1634E-03_JPRB,7.5534E-03_JPRB/)
+KBO( :, 1,29, 8) = (/&
+&2.2199E-03_JPRB,2.5468E-03_JPRB,2.2116E-03_JPRB,1.6320E-03_JPRB,3.4313E-03_JPRB/)
+KBO( :, 2,29, 8) = (/&
+&3.0284E-03_JPRB,3.4576E-03_JPRB,2.9908E-03_JPRB,2.1868E-03_JPRB,4.0007E-03_JPRB/)
+KBO( :, 3,29, 8) = (/&
+&4.0394E-03_JPRB,4.5959E-03_JPRB,3.9584E-03_JPRB,2.8693E-03_JPRB,4.6141E-03_JPRB/)
+KBO( :, 4,29, 8) = (/&
+&5.2804E-03_JPRB,5.9851E-03_JPRB,5.1333E-03_JPRB,3.6901E-03_JPRB,5.2723E-03_JPRB/)
+KBO( :, 5,29, 8) = (/&
+&6.7815E-03_JPRB,7.6482E-03_JPRB,6.5273E-03_JPRB,4.6670E-03_JPRB,5.9784E-03_JPRB/)
+KBO( :, 1,30, 8) = (/&
+&2.0046E-03_JPRB,2.3130E-03_JPRB,2.0090E-03_JPRB,1.4794E-03_JPRB,2.6543E-03_JPRB/)
+KBO( :, 2,30, 8) = (/&
+&2.7295E-03_JPRB,3.1369E-03_JPRB,2.7138E-03_JPRB,1.9812E-03_JPRB,3.1043E-03_JPRB/)
+KBO( :, 3,30, 8) = (/&
+&3.6356E-03_JPRB,4.1607E-03_JPRB,3.5841E-03_JPRB,2.5951E-03_JPRB,3.5892E-03_JPRB/)
+KBO( :, 4,30, 8) = (/&
+&4.7491E-03_JPRB,5.4103E-03_JPRB,4.6363E-03_JPRB,3.3323E-03_JPRB,4.1088E-03_JPRB/)
+KBO( :, 5,30, 8) = (/&
+&6.1030E-03_JPRB,6.9063E-03_JPRB,5.8950E-03_JPRB,4.2074E-03_JPRB,4.6673E-03_JPRB/)
+KBO( :, 1,31, 8) = (/&
+&1.8116E-03_JPRB,2.1021E-03_JPRB,1.8264E-03_JPRB,1.3426E-03_JPRB,2.0192E-03_JPRB/)
+KBO( :, 2,31, 8) = (/&
+&2.4626E-03_JPRB,2.8445E-03_JPRB,2.4615E-03_JPRB,1.7947E-03_JPRB,2.3682E-03_JPRB/)
+KBO( :, 3,31, 8) = (/&
+&3.2770E-03_JPRB,3.7680E-03_JPRB,3.2435E-03_JPRB,2.3454E-03_JPRB,2.7454E-03_JPRB/)
+KBO( :, 4,31, 8) = (/&
+&4.2825E-03_JPRB,4.8933E-03_JPRB,4.1907E-03_JPRB,3.0057E-03_JPRB,3.1516E-03_JPRB/)
+KBO( :, 5,31, 8) = (/&
+&5.5107E-03_JPRB,6.2496E-03_JPRB,5.3257E-03_JPRB,3.7889E-03_JPRB,3.5873E-03_JPRB/)
+KBO( :, 1,32, 8) = (/&
+&1.6409E-03_JPRB,1.9128E-03_JPRB,1.6615E-03_JPRB,1.2200E-03_JPRB,1.5399E-03_JPRB/)
+KBO( :, 2,32, 8) = (/&
+&2.2276E-03_JPRB,2.5834E-03_JPRB,2.2335E-03_JPRB,1.6257E-03_JPRB,1.8108E-03_JPRB/)
+KBO( :, 3,32, 8) = (/&
+&2.9642E-03_JPRB,3.4164E-03_JPRB,2.9366E-03_JPRB,2.1192E-03_JPRB,2.1049E-03_JPRB/)
+KBO( :, 4,32, 8) = (/&
+&3.8783E-03_JPRB,4.4382E-03_JPRB,3.7929E-03_JPRB,2.7120E-03_JPRB,2.4216E-03_JPRB/)
+KBO( :, 5,32, 8) = (/&
+&5.0008E-03_JPRB,5.6727E-03_JPRB,4.8212E-03_JPRB,3.4168E-03_JPRB,2.7630E-03_JPRB/)
+KBO( :, 1,33, 8) = (/&
+&1.4896E-03_JPRB,1.7425E-03_JPRB,1.5121E-03_JPRB,1.1085E-03_JPRB,1.1708E-03_JPRB/)
+KBO( :, 2,33, 8) = (/&
+&2.0219E-03_JPRB,2.3499E-03_JPRB,2.0274E-03_JPRB,1.4717E-03_JPRB,1.3798E-03_JPRB/)
+KBO( :, 3,33, 8) = (/&
+&2.6933E-03_JPRB,3.1059E-03_JPRB,2.6641E-03_JPRB,1.9145E-03_JPRB,1.6078E-03_JPRB/)
+KBO( :, 4,33, 8) = (/&
+&3.5312E-03_JPRB,4.0360E-03_JPRB,3.4383E-03_JPRB,2.4485E-03_JPRB,1.8549E-03_JPRB/)
+KBO( :, 5,33, 8) = (/&
+&4.5576E-03_JPRB,5.1702E-03_JPRB,4.3769E-03_JPRB,3.0873E-03_JPRB,2.1221E-03_JPRB/)
+KBO( :, 1,34, 8) = (/&
+&1.3461E-03_JPRB,1.5773E-03_JPRB,1.3654E-03_JPRB,9.9848E-04_JPRB,9.1828E-04_JPRB/)
+KBO( :, 2,34, 8) = (/&
+&1.8293E-03_JPRB,2.1264E-03_JPRB,1.8294E-03_JPRB,1.3224E-03_JPRB,1.0850E-03_JPRB/)
+KBO( :, 3,34, 8) = (/&
+&2.4421E-03_JPRB,2.8129E-03_JPRB,2.4038E-03_JPRB,1.7186E-03_JPRB,1.2670E-03_JPRB/)
+KBO( :, 4,34, 8) = (/&
+&3.2077E-03_JPRB,3.6631E-03_JPRB,3.1076E-03_JPRB,2.1997E-03_JPRB,1.4654E-03_JPRB/)
+KBO( :, 5,34, 8) = (/&
+&4.1521E-03_JPRB,4.7027E-03_JPRB,3.9614E-03_JPRB,2.7773E-03_JPRB,1.6801E-03_JPRB/)
+KBO( :, 1,35, 8) = (/&
+&1.1832E-03_JPRB,1.3882E-03_JPRB,1.1991E-03_JPRB,8.7402E-04_JPRB,7.0393E-04_JPRB/)
+KBO( :, 2,35, 8) = (/&
+&1.6136E-03_JPRB,1.8765E-03_JPRB,1.6089E-03_JPRB,1.1585E-03_JPRB,8.3445E-04_JPRB/)
+KBO( :, 3,35, 8) = (/&
+&2.1631E-03_JPRB,2.4899E-03_JPRB,2.1186E-03_JPRB,1.5089E-03_JPRB,9.7770E-04_JPRB/)
+KBO( :, 4,35, 8) = (/&
+&2.8535E-03_JPRB,3.2542E-03_JPRB,2.7485E-03_JPRB,1.9364E-03_JPRB,1.1343E-03_JPRB/)
+KBO( :, 5,35, 8) = (/&
+&3.7092E-03_JPRB,4.1965E-03_JPRB,3.5164E-03_JPRB,2.4522E-03_JPRB,1.3039E-03_JPRB/)
+KBO( :, 1,36, 8) = (/&
+&1.0066E-03_JPRB,1.1833E-03_JPRB,1.0195E-03_JPRB,7.4064E-04_JPRB,5.2366E-04_JPRB/)
+KBO( :, 2,36, 8) = (/&
+&1.3815E-03_JPRB,1.6071E-03_JPRB,1.3739E-03_JPRB,9.8573E-04_JPRB,6.2344E-04_JPRB/)
+KBO( :, 3,36, 8) = (/&
+&1.8626E-03_JPRB,2.1449E-03_JPRB,1.8191E-03_JPRB,1.2898E-03_JPRB,7.3360E-04_JPRB/)
+KBO( :, 4,36, 8) = (/&
+&2.4741E-03_JPRB,2.8182E-03_JPRB,2.3729E-03_JPRB,1.6635E-03_JPRB,8.5436E-04_JPRB/)
+KBO( :, 5,36, 8) = (/&
+&3.2336E-03_JPRB,3.6568E-03_JPRB,3.0504E-03_JPRB,2.1181E-03_JPRB,9.8625E-04_JPRB/)
+KBO( :, 1,37, 8) = (/&
+&8.2084E-04_JPRB,9.6709E-04_JPRB,8.3229E-04_JPRB,6.0374E-04_JPRB,4.0420E-04_JPRB/)
+KBO( :, 2,37, 8) = (/&
+&1.1372E-03_JPRB,1.3254E-03_JPRB,1.1300E-03_JPRB,8.0872E-04_JPRB,4.8417E-04_JPRB/)
+KBO( :, 3,37, 8) = (/&
+&1.5468E-03_JPRB,1.7826E-03_JPRB,1.5083E-03_JPRB,1.0643E-03_JPRB,5.7283E-04_JPRB/)
+KBO( :, 4,37, 8) = (/&
+&2.0724E-03_JPRB,2.3603E-03_JPRB,1.9807E-03_JPRB,1.3829E-03_JPRB,6.7031E-04_JPRB/)
+KBO( :, 5,37, 8) = (/&
+&2.7301E-03_JPRB,3.0852E-03_JPRB,2.5656E-03_JPRB,1.7725E-03_JPRB,7.7693E-04_JPRB/)
+KBO( :, 1,38, 8) = (/&
+&6.6765E-04_JPRB,7.8856E-04_JPRB,6.7796E-04_JPRB,4.9087E-04_JPRB,3.1034E-04_JPRB/)
+KBO( :, 2,38, 8) = (/&
+&9.3399E-04_JPRB,1.0908E-03_JPRB,9.2831E-04_JPRB,6.6210E-04_JPRB,3.7420E-04_JPRB/)
+KBO( :, 3,38, 8) = (/&
+&1.2829E-03_JPRB,1.4801E-03_JPRB,1.2480E-03_JPRB,8.7788E-04_JPRB,4.4529E-04_JPRB/)
+KBO( :, 4,38, 8) = (/&
+&1.7334E-03_JPRB,1.9765E-03_JPRB,1.6521E-03_JPRB,1.1484E-03_JPRB,5.2389E-04_JPRB/)
+KBO( :, 5,38, 8) = (/&
+&2.3042E-03_JPRB,2.6028E-03_JPRB,2.1565E-03_JPRB,1.4823E-03_JPRB,6.1008E-04_JPRB/)
+KBO( :, 1,39, 8) = (/&
+&5.4315E-04_JPRB,6.4310E-04_JPRB,5.5211E-04_JPRB,3.9890E-04_JPRB,2.3583E-04_JPRB/)
+KBO( :, 2,39, 8) = (/&
+&7.6743E-04_JPRB,8.9797E-04_JPRB,7.6314E-04_JPRB,5.4269E-04_JPRB,2.8632E-04_JPRB/)
+KBO( :, 3,39, 8) = (/&
+&1.0649E-03_JPRB,1.2299E-03_JPRB,1.0342E-03_JPRB,7.2462E-04_JPRB,3.4293E-04_JPRB/)
+KBO( :, 4,39, 8) = (/&
+&1.4519E-03_JPRB,1.6575E-03_JPRB,1.3791E-03_JPRB,9.5496E-04_JPRB,4.0575E-04_JPRB/)
+KBO( :, 5,39, 8) = (/&
+&1.9462E-03_JPRB,2.1987E-03_JPRB,1.8149E-03_JPRB,1.2411E-03_JPRB,4.7487E-04_JPRB/)
+KBO( :, 1,40, 8) = (/&
+&4.2660E-04_JPRB,5.0722E-04_JPRB,4.3537E-04_JPRB,3.1438E-04_JPRB,1.8128E-04_JPRB/)
+KBO( :, 2,40, 8) = (/&
+&6.1039E-04_JPRB,7.1647E-04_JPRB,6.0817E-04_JPRB,4.3189E-04_JPRB,2.2187E-04_JPRB/)
+KBO( :, 3,40, 8) = (/&
+&8.5703E-04_JPRB,9.9240E-04_JPRB,8.3374E-04_JPRB,5.8276E-04_JPRB,2.6760E-04_JPRB/)
+KBO( :, 4,40, 8) = (/&
+&1.1823E-03_JPRB,1.3510E-03_JPRB,1.1225E-03_JPRB,7.7459E-04_JPRB,3.1857E-04_JPRB/)
+KBO( :, 5,40, 8) = (/&
+&1.6018E-03_JPRB,1.8123E-03_JPRB,1.4916E-03_JPRB,1.0158E-03_JPRB,3.7479E-04_JPRB/)
+KBO( :, 1,41, 8) = (/&
+&3.3271E-04_JPRB,3.9736E-04_JPRB,3.4108E-04_JPRB,2.4624E-04_JPRB,1.3885E-04_JPRB/)
+KBO( :, 2,41, 8) = (/&
+&4.8225E-04_JPRB,5.6846E-04_JPRB,4.8237E-04_JPRB,3.4216E-04_JPRB,1.7137E-04_JPRB/)
+KBO( :, 3,41, 8) = (/&
+&6.8576E-04_JPRB,7.9688E-04_JPRB,6.6837E-04_JPRB,4.6622E-04_JPRB,2.0821E-04_JPRB/)
+KBO( :, 4,41, 8) = (/&
+&9.5732E-04_JPRB,1.0976E-03_JPRB,9.0996E-04_JPRB,6.2571E-04_JPRB,2.4955E-04_JPRB/)
+KBO( :, 5,41, 8) = (/&
+&1.3120E-03_JPRB,1.4870E-03_JPRB,1.2214E-03_JPRB,8.2829E-04_JPRB,2.9516E-04_JPRB/)
+KBO( :, 1,42, 8) = (/&
+&2.5867E-04_JPRB,3.1042E-04_JPRB,2.6645E-04_JPRB,1.9244E-04_JPRB,1.0554E-04_JPRB/)
+KBO( :, 2,42, 8) = (/&
+&3.8005E-04_JPRB,4.4981E-04_JPRB,3.8160E-04_JPRB,2.7033E-04_JPRB,1.3138E-04_JPRB/)
+KBO( :, 3,42, 8) = (/&
+&5.4750E-04_JPRB,6.3852E-04_JPRB,5.3511E-04_JPRB,3.7262E-04_JPRB,1.6089E-04_JPRB/)
+KBO( :, 4,42, 8) = (/&
+&7.7370E-04_JPRB,8.8989E-04_JPRB,7.3675E-04_JPRB,5.0530E-04_JPRB,1.9414E-04_JPRB/)
+KBO( :, 5,42, 8) = (/&
+&1.0732E-03_JPRB,1.2192E-03_JPRB,9.9944E-04_JPRB,6.7542E-04_JPRB,2.3100E-04_JPRB/)
+KBO( :, 1,43, 8) = (/&
+&1.9608E-04_JPRB,2.3654E-04_JPRB,2.0330E-04_JPRB,1.4692E-04_JPRB,7.9640E-05_JPRB/)
+KBO( :, 2,43, 8) = (/&
+&2.9244E-04_JPRB,3.4786E-04_JPRB,2.9536E-04_JPRB,2.0929E-04_JPRB,1.0013E-04_JPRB/)
+KBO( :, 3,43, 8) = (/&
+&4.2746E-04_JPRB,5.0109E-04_JPRB,4.1968E-04_JPRB,2.9227E-04_JPRB,1.2370E-04_JPRB/)
+KBO( :, 4,43, 8) = (/&
+&6.1258E-04_JPRB,7.0737E-04_JPRB,5.8531E-04_JPRB,4.0077E-04_JPRB,1.5047E-04_JPRB/)
+KBO( :, 5,43, 8) = (/&
+&8.6089E-04_JPRB,9.8132E-04_JPRB,8.0325E-04_JPRB,5.4165E-04_JPRB,1.8030E-04_JPRB/)
+KBO( :, 1,44, 8) = (/&
+&1.4641E-04_JPRB,1.7759E-04_JPRB,1.5289E-04_JPRB,1.1076E-04_JPRB,5.9627E-05_JPRB/)
+KBO( :, 2,44, 8) = (/&
+&2.2184E-04_JPRB,2.6534E-04_JPRB,2.2560E-04_JPRB,1.6005E-04_JPRB,7.5777E-05_JPRB/)
+KBO( :, 3,44, 8) = (/&
+&3.2924E-04_JPRB,3.8780E-04_JPRB,3.2524E-04_JPRB,2.2657E-04_JPRB,9.4517E-05_JPRB/)
+KBO( :, 4,44, 8) = (/&
+&4.7893E-04_JPRB,5.5571E-04_JPRB,4.5993E-04_JPRB,3.1465E-04_JPRB,1.1599E-04_JPRB/)
+KBO( :, 5,44, 8) = (/&
+&6.8243E-04_JPRB,7.8130E-04_JPRB,6.3916E-04_JPRB,4.3040E-04_JPRB,1.4006E-04_JPRB/)
+KBO( :, 1,45, 8) = (/&
+&1.0865E-04_JPRB,1.3251E-04_JPRB,1.1435E-04_JPRB,8.2960E-05_JPRB,4.4212E-05_JPRB/)
+KBO( :, 2,45, 8) = (/&
+&1.6729E-04_JPRB,2.0128E-04_JPRB,1.7134E-04_JPRB,1.2183E-04_JPRB,5.6830E-05_JPRB/)
+KBO( :, 3,45, 8) = (/&
+&2.5229E-04_JPRB,2.9908E-04_JPRB,2.5083E-04_JPRB,1.7486E-04_JPRB,7.1604E-05_JPRB/)
+KBO( :, 4,45, 8) = (/&
+&3.7262E-04_JPRB,4.3452E-04_JPRB,3.5986E-04_JPRB,2.4619E-04_JPRB,8.8632E-05_JPRB/)
+KBO( :, 5,45, 8) = (/&
+&5.3882E-04_JPRB,6.2004E-04_JPRB,5.0717E-04_JPRB,3.4090E-04_JPRB,1.0793E-04_JPRB/)
+KBO( :, 1,46, 8) = (/&
+&7.9358E-05_JPRB,9.7327E-05_JPRB,8.4209E-05_JPRB,6.1250E-05_JPRB,3.2459E-05_JPRB/)
+KBO( :, 2,46, 8) = (/&
+&1.2429E-04_JPRB,1.5045E-04_JPRB,1.2830E-04_JPRB,9.1466E-05_JPRB,4.2241E-05_JPRB/)
+KBO( :, 3,46, 8) = (/&
+&1.9053E-04_JPRB,2.2736E-04_JPRB,1.9100E-04_JPRB,1.3325E-04_JPRB,5.3783E-05_JPRB/)
+KBO( :, 4,46, 8) = (/&
+&2.8614E-04_JPRB,3.3570E-04_JPRB,2.7828E-04_JPRB,1.9050E-04_JPRB,6.7218E-05_JPRB/)
+KBO( :, 5,46, 8) = (/&
+&4.2039E-04_JPRB,4.8635E-04_JPRB,3.9774E-04_JPRB,2.6724E-04_JPRB,8.2582E-05_JPRB/)
+KBO( :, 1,47, 8) = (/&
+&5.6453E-05_JPRB,6.9628E-05_JPRB,6.0410E-05_JPRB,4.4150E-05_JPRB,2.3634E-05_JPRB/)
+KBO( :, 2,47, 8) = (/&
+&9.0039E-05_JPRB,1.0971E-04_JPRB,9.3809E-05_JPRB,6.7082E-05_JPRB,3.1174E-05_JPRB/)
+KBO( :, 3,47, 8) = (/&
+&1.4053E-04_JPRB,1.6882E-04_JPRB,1.4207E-04_JPRB,9.9462E-05_JPRB,4.0177E-05_JPRB/)
+KBO( :, 4,47, 8) = (/&
+&2.1477E-04_JPRB,2.5374E-04_JPRB,2.1068E-04_JPRB,1.4451E-04_JPRB,5.0742E-05_JPRB/)
+KBO( :, 5,47, 8) = (/&
+&3.2088E-04_JPRB,3.7357E-04_JPRB,3.0615E-04_JPRB,2.0585E-04_JPRB,6.2901E-05_JPRB/)
+KBO( :, 1,48, 8) = (/&
+&3.9798E-05_JPRB,4.9340E-05_JPRB,4.2936E-05_JPRB,3.1533E-05_JPRB,1.7003E-05_JPRB/)
+KBO( :, 2,48, 8) = (/&
+&6.4659E-05_JPRB,7.9275E-05_JPRB,6.7974E-05_JPRB,4.8844E-05_JPRB,2.2754E-05_JPRB/)
+KBO( :, 3,48, 8) = (/&
+&1.0277E-04_JPRB,1.2433E-04_JPRB,1.0493E-04_JPRB,7.3715E-05_JPRB,2.9706E-05_JPRB/)
+KBO( :, 4,48, 8) = (/&
+&1.5992E-04_JPRB,1.9034E-04_JPRB,1.5838E-04_JPRB,1.0886E-04_JPRB,3.7936E-05_JPRB/)
+KBO( :, 5,48, 8) = (/&
+&2.4325E-04_JPRB,2.8513E-04_JPRB,2.3408E-04_JPRB,1.5755E-04_JPRB,4.7492E-05_JPRB/)
+KBO( :, 1,49, 8) = (/&
+&2.7802E-05_JPRB,3.4616E-05_JPRB,3.0218E-05_JPRB,2.2308E-05_JPRB,1.2061E-05_JPRB/)
+KBO( :, 2,49, 8) = (/&
+&4.6014E-05_JPRB,5.6761E-05_JPRB,4.8820E-05_JPRB,3.5239E-05_JPRB,1.6386E-05_JPRB/)
+KBO( :, 3,49, 8) = (/&
+&7.4491E-05_JPRB,9.0741E-05_JPRB,7.6795E-05_JPRB,5.4143E-05_JPRB,2.1687E-05_JPRB/)
+KBO( :, 4,49, 8) = (/&
+&1.1802E-04_JPRB,1.4153E-04_JPRB,1.1806E-04_JPRB,8.1356E-05_JPRB,2.8022E-05_JPRB/)
+KBO( :, 5,49, 8) = (/&
+&1.8279E-04_JPRB,2.1583E-04_JPRB,1.7754E-04_JPRB,1.1970E-04_JPRB,3.5456E-05_JPRB/)
+KBO( :, 1,50, 8) = (/&
+&1.9540E-05_JPRB,2.4400E-05_JPRB,2.1361E-05_JPRB,1.5837E-05_JPRB,8.6997E-06_JPRB/)
+KBO( :, 2,50, 8) = (/&
+&3.2918E-05_JPRB,4.0822E-05_JPRB,3.5205E-05_JPRB,2.5512E-05_JPRB,1.1990E-05_JPRB/)
+KBO( :, 3,50, 8) = (/&
+&5.4255E-05_JPRB,6.6526E-05_JPRB,5.6438E-05_JPRB,3.9950E-05_JPRB,1.6073E-05_JPRB/)
+KBO( :, 4,50, 8) = (/&
+&8.7526E-05_JPRB,1.0571E-04_JPRB,8.8383E-05_JPRB,6.1066E-05_JPRB,2.1006E-05_JPRB/)
+KBO( :, 5,50, 8) = (/&
+&1.3799E-04_JPRB,1.6415E-04_JPRB,1.3524E-04_JPRB,9.1334E-05_JPRB,2.6847E-05_JPRB/)
+KBO( :, 1,51, 8) = (/&
+&1.3715E-05_JPRB,1.7170E-05_JPRB,1.5061E-05_JPRB,1.1220E-05_JPRB,6.3066E-06_JPRB/)
+KBO( :, 2,51, 8) = (/&
+&2.3525E-05_JPRB,2.9290E-05_JPRB,2.5329E-05_JPRB,1.8432E-05_JPRB,8.8176E-06_JPRB/)
+KBO( :, 3,51, 8) = (/&
+&3.9460E-05_JPRB,4.8672E-05_JPRB,4.1377E-05_JPRB,2.9397E-05_JPRB,1.1971E-05_JPRB/)
+KBO( :, 4,51, 8) = (/&
+&6.4794E-05_JPRB,7.8837E-05_JPRB,6.6040E-05_JPRB,4.5759E-05_JPRB,1.5830E-05_JPRB/)
+KBO( :, 5,51, 8) = (/&
+&1.0402E-04_JPRB,1.2470E-04_JPRB,1.0290E-04_JPRB,6.9640E-05_JPRB,2.0433E-05_JPRB/)
+KBO( :, 1,52, 8) = (/&
+&9.5578E-06_JPRB,1.1986E-05_JPRB,1.0529E-05_JPRB,7.8831E-06_JPRB,4.5278E-06_JPRB/)
+KBO( :, 2,52, 8) = (/&
+&1.6679E-05_JPRB,2.0856E-05_JPRB,1.8076E-05_JPRB,1.3211E-05_JPRB,6.4244E-06_JPRB/)
+KBO( :, 3,52, 8) = (/&
+&2.8477E-05_JPRB,3.5320E-05_JPRB,3.0103E-05_JPRB,2.1468E-05_JPRB,8.8391E-06_JPRB/)
+KBO( :, 4,52, 8) = (/&
+&4.7594E-05_JPRB,5.8357E-05_JPRB,4.8987E-05_JPRB,3.4026E-05_JPRB,1.1833E-05_JPRB/)
+KBO( :, 5,52, 8) = (/&
+&7.7798E-05_JPRB,9.3982E-05_JPRB,7.7692E-05_JPRB,5.2723E-05_JPRB,1.5437E-05_JPRB/)
+KBO( :, 1,53, 8) = (/&
+&6.6072E-06_JPRB,8.2930E-06_JPRB,7.2961E-06_JPRB,5.4893E-06_JPRB,3.2145E-06_JPRB/)
+KBO( :, 2,53, 8) = (/&
+&1.1726E-05_JPRB,1.4716E-05_JPRB,1.2781E-05_JPRB,9.3822E-06_JPRB,4.6284E-06_JPRB/)
+KBO( :, 3,53, 8) = (/&
+&2.0380E-05_JPRB,2.5407E-05_JPRB,2.1715E-05_JPRB,1.5543E-05_JPRB,6.4582E-06_JPRB/)
+KBO( :, 4,53, 8) = (/&
+&3.4658E-05_JPRB,4.2781E-05_JPRB,3.5988E-05_JPRB,2.5111E-05_JPRB,8.7586E-06_JPRB/)
+KBO( :, 5,53, 8) = (/&
+&5.7694E-05_JPRB,7.0240E-05_JPRB,5.8204E-05_JPRB,3.9606E-05_JPRB,1.1558E-05_JPRB/)
+KBO( :, 1,54, 8) = (/&
+&4.6231E-06_JPRB,5.8094E-06_JPRB,5.1159E-06_JPRB,3.8681E-06_JPRB,2.3617E-06_JPRB/)
+KBO( :, 2,54, 8) = (/&
+&8.3487E-06_JPRB,1.0507E-05_JPRB,9.1409E-06_JPRB,6.7324E-06_JPRB,3.4457E-06_JPRB/)
+KBO( :, 3,54, 8) = (/&
+&1.4749E-05_JPRB,1.8473E-05_JPRB,1.5818E-05_JPRB,1.1366E-05_JPRB,4.8678E-06_JPRB/)
+KBO( :, 4,54, 8) = (/&
+&2.5524E-05_JPRB,3.1693E-05_JPRB,2.6712E-05_JPRB,1.8698E-05_JPRB,6.6754E-06_JPRB/)
+KBO( :, 5,54, 8) = (/&
+&4.3244E-05_JPRB,5.3058E-05_JPRB,4.4050E-05_JPRB,3.0042E-05_JPRB,8.8957E-06_JPRB/)
+KBO( :, 1,55, 8) = (/&
+&3.2435E-06_JPRB,4.0809E-06_JPRB,3.5968E-06_JPRB,2.7333E-06_JPRB,1.7666E-06_JPRB/)
+KBO( :, 2,55, 8) = (/&
+&5.9644E-06_JPRB,7.5172E-06_JPRB,6.5506E-06_JPRB,4.8409E-06_JPRB,2.6116E-06_JPRB/)
+KBO( :, 3,55, 8) = (/&
+&1.0704E-05_JPRB,1.3462E-05_JPRB,1.1547E-05_JPRB,8.3238E-06_JPRB,3.7328E-06_JPRB/)
+KBO( :, 4,55, 8) = (/&
+&1.8846E-05_JPRB,2.3522E-05_JPRB,1.9854E-05_JPRB,1.3943E-05_JPRB,5.1720E-06_JPRB/)
+KBO( :, 5,55, 8) = (/&
+&3.2477E-05_JPRB,4.0113E-05_JPRB,3.3370E-05_JPRB,2.2811E-05_JPRB,6.9569E-06_JPRB/)
+KBO( :, 1,56, 8) = (/&
+&2.2574E-06_JPRB,2.8460E-06_JPRB,2.5125E-06_JPRB,1.9227E-06_JPRB,1.3179E-06_JPRB/)
+KBO( :, 2,56, 8) = (/&
+&4.2369E-06_JPRB,5.3474E-06_JPRB,4.6648E-06_JPRB,3.4587E-06_JPRB,1.9756E-06_JPRB/)
+KBO( :, 3,56, 8) = (/&
+&7.7258E-06_JPRB,9.7496E-06_JPRB,8.3766E-06_JPRB,6.0549E-06_JPRB,2.8571E-06_JPRB/)
+KBO( :, 4,56, 8) = (/&
+&1.3829E-05_JPRB,1.7347E-05_JPRB,1.4668E-05_JPRB,1.0332E-05_JPRB,4.0014E-06_JPRB/)
+KBO( :, 5,56, 8) = (/&
+&2.4242E-05_JPRB,3.0140E-05_JPRB,2.5119E-05_JPRB,1.7219E-05_JPRB,5.4349E-06_JPRB/)
+KBO( :, 1,57, 8) = (/&
+&1.5562E-06_JPRB,1.9665E-06_JPRB,1.7413E-06_JPRB,1.3458E-06_JPRB,9.8093E-07_JPRB/)
+KBO( :, 2,57, 8) = (/&
+&2.9891E-06_JPRB,3.7795E-06_JPRB,3.2995E-06_JPRB,2.4572E-06_JPRB,1.4913E-06_JPRB/)
+KBO( :, 3,57, 8) = (/&
+&5.5415E-06_JPRB,7.0117E-06_JPRB,6.0356E-06_JPRB,4.3741E-06_JPRB,2.1827E-06_JPRB/)
+KBO( :, 4,57, 8) = (/&
+&1.0083E-05_JPRB,1.2702E-05_JPRB,1.0763E-05_JPRB,7.6047E-06_JPRB,3.0916E-06_JPRB/)
+KBO( :, 5,57, 8) = (/&
+&1.7987E-05_JPRB,2.2497E-05_JPRB,1.8783E-05_JPRB,1.2912E-05_JPRB,4.2413E-06_JPRB/)
+KBO( :, 1,58, 8) = (/&
+&1.0750E-06_JPRB,1.3607E-06_JPRB,1.2097E-06_JPRB,9.4788E-07_JPRB,7.3838E-07_JPRB/)
+KBO( :, 2,58, 8) = (/&
+&2.1150E-06_JPRB,2.6811E-06_JPRB,2.3427E-06_JPRB,1.7529E-06_JPRB,1.1369E-06_JPRB/)
+KBO( :, 3,58, 8) = (/&
+&3.9927E-06_JPRB,5.0636E-06_JPRB,4.3652E-06_JPRB,3.1731E-06_JPRB,1.6853E-06_JPRB/)
+KBO( :, 4,58, 8) = (/&
+&7.3820E-06_JPRB,9.3320E-06_JPRB,7.9215E-06_JPRB,5.6104E-06_JPRB,2.4126E-06_JPRB/)
+KBO( :, 5,58, 8) = (/&
+&1.3390E-05_JPRB,1.6843E-05_JPRB,1.4081E-05_JPRB,9.7051E-06_JPRB,3.3415E-06_JPRB/)
+KBO( :, 1,59, 8) = (/&
+&8.4145E-07_JPRB,1.0679E-06_JPRB,9.4979E-07_JPRB,7.4709E-07_JPRB,6.3499E-07_JPRB/)
+KBO( :, 2,59, 8) = (/&
+&1.6828E-06_JPRB,2.1406E-06_JPRB,1.8681E-06_JPRB,1.3967E-06_JPRB,9.8499E-07_JPRB/)
+KBO( :, 3,59, 8) = (/&
+&3.2239E-06_JPRB,4.0954E-06_JPRB,3.5264E-06_JPRB,2.5580E-06_JPRB,1.4693E-06_JPRB/)
+KBO( :, 4,59, 8) = (/&
+&6.0392E-06_JPRB,7.6569E-06_JPRB,6.4911E-06_JPRB,4.5821E-06_JPRB,2.1121E-06_JPRB/)
+KBO( :, 5,59, 8) = (/&
+&1.1097E-05_JPRB,1.4009E-05_JPRB,1.1691E-05_JPRB,8.0420E-06_JPRB,2.9314E-06_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_B2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B3.F90	(revision 2160)
@@ -0,0 +1,1925 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_B3
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different H2O to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = H2O/(H2O+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of H2O.  For instance, JS=1 refers to no H2O, 
+!     JS = 2 corresponds to eta = 0.25, etc.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 9) = (/&
+&6.2749E-02_JPRB,7.2855E-02_JPRB,6.7478E-02_JPRB,5.3345E-02_JPRB,4.4699E-01_JPRB/)
+KBO( :, 2,13, 9) = (/&
+&8.6319E-02_JPRB,1.0135E-01_JPRB,9.4230E-02_JPRB,7.4640E-02_JPRB,4.8102E-01_JPRB/)
+KBO( :, 3,13, 9) = (/&
+&1.1531E-01_JPRB,1.3583E-01_JPRB,1.2671E-01_JPRB,1.0042E-01_JPRB,5.1621E-01_JPRB/)
+KBO( :, 4,13, 9) = (/&
+&1.4981E-01_JPRB,1.7650E-01_JPRB,1.6480E-01_JPRB,1.3078E-01_JPRB,5.5243E-01_JPRB/)
+KBO( :, 5,13, 9) = (/&
+&1.8970E-01_JPRB,2.2347E-01_JPRB,2.0865E-01_JPRB,1.6587E-01_JPRB,5.8937E-01_JPRB/)
+KBO( :, 1,14, 9) = (/&
+&5.7187E-02_JPRB,6.7301E-02_JPRB,6.2129E-02_JPRB,4.9110E-02_JPRB,3.7769E-01_JPRB/)
+KBO( :, 2,14, 9) = (/&
+&7.8466E-02_JPRB,9.3270E-02_JPRB,8.6445E-02_JPRB,6.8459E-02_JPRB,4.0753E-01_JPRB/)
+KBO( :, 3,14, 9) = (/&
+&1.0467E-01_JPRB,1.2476E-01_JPRB,1.1574E-01_JPRB,9.1819E-02_JPRB,4.3868E-01_JPRB/)
+KBO( :, 4,14, 9) = (/&
+&1.3581E-01_JPRB,1.6192E-01_JPRB,1.5034E-01_JPRB,1.1930E-01_JPRB,4.7064E-01_JPRB/)
+KBO( :, 5,14, 9) = (/&
+&1.7224E-01_JPRB,2.0464E-01_JPRB,1.9021E-01_JPRB,1.5110E-01_JPRB,5.0408E-01_JPRB/)
+KBO( :, 1,15, 9) = (/&
+&5.1721E-02_JPRB,6.1566E-02_JPRB,5.6680E-02_JPRB,4.4751E-02_JPRB,2.9568E-01_JPRB/)
+KBO( :, 2,15, 9) = (/&
+&7.0936E-02_JPRB,8.5115E-02_JPRB,7.8492E-02_JPRB,6.2182E-02_JPRB,3.2213E-01_JPRB/)
+KBO( :, 3,15, 9) = (/&
+&9.4515E-02_JPRB,1.1370E-01_JPRB,1.0486E-01_JPRB,8.3182E-02_JPRB,3.4986E-01_JPRB/)
+KBO( :, 4,15, 9) = (/&
+&1.2289E-01_JPRB,1.4728E-01_JPRB,1.3607E-01_JPRB,1.0790E-01_JPRB,3.7853E-01_JPRB/)
+KBO( :, 5,15, 9) = (/&
+&1.5637E-01_JPRB,1.8627E-01_JPRB,1.7195E-01_JPRB,1.3626E-01_JPRB,4.0894E-01_JPRB/)
+KBO( :, 1,16, 9) = (/&
+&4.6578E-02_JPRB,5.5911E-02_JPRB,5.1274E-02_JPRB,4.0416E-02_JPRB,2.2673E-01_JPRB/)
+KBO( :, 2,16, 9) = (/&
+&6.3866E-02_JPRB,7.7158E-02_JPRB,7.0810E-02_JPRB,5.5944E-02_JPRB,2.5071E-01_JPRB/)
+KBO( :, 3,16, 9) = (/&
+&8.5294E-02_JPRB,1.0285E-01_JPRB,9.4463E-02_JPRB,7.4731E-02_JPRB,2.7559E-01_JPRB/)
+KBO( :, 4,16, 9) = (/&
+&1.1126E-01_JPRB,1.3331E-01_JPRB,1.2237E-01_JPRB,9.6725E-02_JPRB,3.0207E-01_JPRB/)
+KBO( :, 5,16, 9) = (/&
+&1.4207E-01_JPRB,1.6889E-01_JPRB,1.5467E-01_JPRB,1.2182E-01_JPRB,3.3015E-01_JPRB/)
+KBO( :, 1,17, 9) = (/&
+&4.1900E-02_JPRB,5.0464E-02_JPRB,4.6053E-02_JPRB,3.6179E-02_JPRB,1.8226E-01_JPRB/)
+KBO( :, 2,17, 9) = (/&
+&5.7522E-02_JPRB,6.9444E-02_JPRB,6.3472E-02_JPRB,4.9973E-02_JPRB,2.0447E-01_JPRB/)
+KBO( :, 3,17, 9) = (/&
+&7.7026E-02_JPRB,9.2538E-02_JPRB,8.4551E-02_JPRB,6.6605E-02_JPRB,2.2810E-01_JPRB/)
+KBO( :, 4,17, 9) = (/&
+&1.0079E-01_JPRB,1.2017E-01_JPRB,1.0955E-01_JPRB,8.5985E-02_JPRB,2.5342E-01_JPRB/)
+KBO( :, 5,17, 9) = (/&
+&1.2927E-01_JPRB,1.5258E-01_JPRB,1.3846E-01_JPRB,1.0816E-01_JPRB,2.7946E-01_JPRB/)
+KBO( :, 1,18, 9) = (/&
+&3.7891E-02_JPRB,4.5454E-02_JPRB,4.1197E-02_JPRB,3.2260E-02_JPRB,1.5403E-01_JPRB/)
+KBO( :, 2,18, 9) = (/&
+&5.2057E-02_JPRB,6.2358E-02_JPRB,5.6644E-02_JPRB,4.4449E-02_JPRB,1.7502E-01_JPRB/)
+KBO( :, 3,18, 9) = (/&
+&6.9815E-02_JPRB,8.3160E-02_JPRB,7.5488E-02_JPRB,5.9051E-02_JPRB,1.9748E-01_JPRB/)
+KBO( :, 4,18, 9) = (/&
+&9.1668E-02_JPRB,1.0819E-01_JPRB,9.7824E-02_JPRB,7.6130E-02_JPRB,2.2105E-01_JPRB/)
+KBO( :, 5,18, 9) = (/&
+&1.1799E-01_JPRB,1.3770E-01_JPRB,1.2371E-01_JPRB,9.5780E-02_JPRB,2.4525E-01_JPRB/)
+KBO( :, 1,19, 9) = (/&
+&3.4441E-02_JPRB,4.0854E-02_JPRB,3.6785E-02_JPRB,2.8648E-02_JPRB,1.3592E-01_JPRB/)
+KBO( :, 2,19, 9) = (/&
+&4.7310E-02_JPRB,5.6014E-02_JPRB,5.0505E-02_JPRB,3.9333E-02_JPRB,1.5599E-01_JPRB/)
+KBO( :, 3,19, 9) = (/&
+&6.3559E-02_JPRB,7.4763E-02_JPRB,6.7291E-02_JPRB,5.2149E-02_JPRB,1.7738E-01_JPRB/)
+KBO( :, 4,19, 9) = (/&
+&8.3699E-02_JPRB,9.7466E-02_JPRB,8.7225E-02_JPRB,6.7250E-02_JPRB,1.9960E-01_JPRB/)
+KBO( :, 5,19, 9) = (/&
+&1.0809E-01_JPRB,1.2436E-01_JPRB,1.1051E-01_JPRB,8.4704E-02_JPRB,2.2240E-01_JPRB/)
+KBO( :, 1,20, 9) = (/&
+&3.1662E-02_JPRB,3.7011E-02_JPRB,3.3064E-02_JPRB,2.5535E-02_JPRB,1.2166E-01_JPRB/)
+KBO( :, 2,20, 9) = (/&
+&4.3462E-02_JPRB,5.0683E-02_JPRB,4.5312E-02_JPRB,3.4918E-02_JPRB,1.4050E-01_JPRB/)
+KBO( :, 3,20, 9) = (/&
+&5.8468E-02_JPRB,6.7693E-02_JPRB,6.0291E-02_JPRB,4.6251E-02_JPRB,1.6041E-01_JPRB/)
+KBO( :, 4,20, 9) = (/&
+&7.7082E-02_JPRB,8.8368E-02_JPRB,7.8218E-02_JPRB,5.9632E-02_JPRB,1.8092E-01_JPRB/)
+KBO( :, 5,20, 9) = (/&
+&9.9590E-02_JPRB,1.1296E-01_JPRB,9.9282E-02_JPRB,7.5236E-02_JPRB,2.0180E-01_JPRB/)
+KBO( :, 1,21, 9) = (/&
+&2.9197E-02_JPRB,3.3644E-02_JPRB,2.9800E-02_JPRB,2.2751E-02_JPRB,1.0840E-01_JPRB/)
+KBO( :, 2,21, 9) = (/&
+&4.0061E-02_JPRB,4.6022E-02_JPRB,4.0720E-02_JPRB,3.1025E-02_JPRB,1.2575E-01_JPRB/)
+KBO( :, 3,21, 9) = (/&
+&5.3879E-02_JPRB,6.1513E-02_JPRB,5.4145E-02_JPRB,4.1071E-02_JPRB,1.4377E-01_JPRB/)
+KBO( :, 4,21, 9) = (/&
+&7.1035E-02_JPRB,8.0368E-02_JPRB,7.0344E-02_JPRB,5.2993E-02_JPRB,1.6228E-01_JPRB/)
+KBO( :, 5,21, 9) = (/&
+&9.1717E-02_JPRB,1.0275E-01_JPRB,8.9495E-02_JPRB,6.6978E-02_JPRB,1.8109E-01_JPRB/)
+KBO( :, 1,22, 9) = (/&
+&2.7499E-02_JPRB,3.1251E-02_JPRB,2.7449E-02_JPRB,2.0717E-02_JPRB,9.5123E-02_JPRB/)
+KBO( :, 2,22, 9) = (/&
+&3.7657E-02_JPRB,4.2715E-02_JPRB,3.7381E-02_JPRB,2.8145E-02_JPRB,1.1043E-01_JPRB/)
+KBO( :, 3,22, 9) = (/&
+&5.0562E-02_JPRB,5.6977E-02_JPRB,4.9664E-02_JPRB,3.7184E-02_JPRB,1.2615E-01_JPRB/)
+KBO( :, 4,22, 9) = (/&
+&6.6397E-02_JPRB,7.4321E-02_JPRB,6.4486E-02_JPRB,4.7986E-02_JPRB,1.4210E-01_JPRB/)
+KBO( :, 5,22, 9) = (/&
+&8.5266E-02_JPRB,9.4958E-02_JPRB,8.2045E-02_JPRB,6.0712E-02_JPRB,1.5827E-01_JPRB/)
+KBO( :, 1,23, 9) = (/&
+&2.5951E-02_JPRB,2.9125E-02_JPRB,2.5330E-02_JPRB,1.8934E-02_JPRB,8.2353E-02_JPRB/)
+KBO( :, 2,23, 9) = (/&
+&3.5455E-02_JPRB,3.9694E-02_JPRB,3.4441E-02_JPRB,2.5641E-02_JPRB,9.5317E-02_JPRB/)
+KBO( :, 3,23, 9) = (/&
+&4.7331E-02_JPRB,5.2838E-02_JPRB,4.5688E-02_JPRB,3.3836E-02_JPRB,1.0857E-01_JPRB/)
+KBO( :, 4,23, 9) = (/&
+&6.1763E-02_JPRB,6.8758E-02_JPRB,5.9284E-02_JPRB,4.3652E-02_JPRB,1.2209E-01_JPRB/)
+KBO( :, 5,23, 9) = (/&
+&7.8933E-02_JPRB,8.7537E-02_JPRB,7.5364E-02_JPRB,5.5173E-02_JPRB,1.3590E-01_JPRB/)
+KBO( :, 1,24, 9) = (/&
+&2.4473E-02_JPRB,2.7169E-02_JPRB,2.3444E-02_JPRB,1.7363E-02_JPRB,6.9430E-02_JPRB/)
+KBO( :, 2,24, 9) = (/&
+&3.3250E-02_JPRB,3.6936E-02_JPRB,3.1810E-02_JPRB,2.3462E-02_JPRB,8.0157E-02_JPRB/)
+KBO( :, 3,24, 9) = (/&
+&4.4117E-02_JPRB,4.8975E-02_JPRB,4.2123E-02_JPRB,3.0921E-02_JPRB,9.1223E-02_JPRB/)
+KBO( :, 4,24, 9) = (/&
+&5.7285E-02_JPRB,6.3439E-02_JPRB,5.4524E-02_JPRB,3.9854E-02_JPRB,1.0266E-01_JPRB/)
+KBO( :, 5,24, 9) = (/&
+&7.2998E-02_JPRB,8.0524E-02_JPRB,6.9109E-02_JPRB,5.0332E-02_JPRB,1.1441E-01_JPRB/)
+KBO( :, 1,25, 9) = (/&
+&2.3088E-02_JPRB,2.5438E-02_JPRB,2.1801E-02_JPRB,1.6002E-02_JPRB,5.7837E-02_JPRB/)
+KBO( :, 2,25, 9) = (/&
+&3.1174E-02_JPRB,3.4396E-02_JPRB,2.9493E-02_JPRB,2.1569E-02_JPRB,6.6784E-02_JPRB/)
+KBO( :, 3,25, 9) = (/&
+&4.1147E-02_JPRB,4.5360E-02_JPRB,3.8891E-02_JPRB,2.8375E-02_JPRB,7.6101E-02_JPRB/)
+KBO( :, 4,25, 9) = (/&
+&5.3244E-02_JPRB,5.8521E-02_JPRB,5.0118E-02_JPRB,3.6473E-02_JPRB,8.5758E-02_JPRB/)
+KBO( :, 5,25, 9) = (/&
+&6.7659E-02_JPRB,7.4121E-02_JPRB,6.3317E-02_JPRB,4.5953E-02_JPRB,9.5693E-02_JPRB/)
+KBO( :, 1,26, 9) = (/&
+&2.1853E-02_JPRB,2.3928E-02_JPRB,2.0426E-02_JPRB,1.4853E-02_JPRB,4.8392E-02_JPRB/)
+KBO( :, 2,26, 9) = (/&
+&2.9360E-02_JPRB,3.2138E-02_JPRB,2.7449E-02_JPRB,1.9958E-02_JPRB,5.5916E-02_JPRB/)
+KBO( :, 3,26, 9) = (/&
+&3.8590E-02_JPRB,4.2170E-02_JPRB,3.5993E-02_JPRB,2.6138E-02_JPRB,6.3792E-02_JPRB/)
+KBO( :, 4,26, 9) = (/&
+&4.9775E-02_JPRB,5.4242E-02_JPRB,4.6206E-02_JPRB,3.3463E-02_JPRB,7.1975E-02_JPRB/)
+KBO( :, 5,26, 9) = (/&
+&6.3079E-02_JPRB,6.8549E-02_JPRB,5.8245E-02_JPRB,4.2044E-02_JPRB,8.0448E-02_JPRB/)
+KBO( :, 1,27, 9) = (/&
+&2.0589E-02_JPRB,2.2432E-02_JPRB,1.9091E-02_JPRB,1.3798E-02_JPRB,3.9711E-02_JPRB/)
+KBO( :, 2,27, 9) = (/&
+&2.7577E-02_JPRB,2.9992E-02_JPRB,2.5499E-02_JPRB,1.8441E-02_JPRB,4.5946E-02_JPRB/)
+KBO( :, 3,27, 9) = (/&
+&3.6163E-02_JPRB,3.9222E-02_JPRB,3.3292E-02_JPRB,2.4027E-02_JPRB,5.2514E-02_JPRB/)
+KBO( :, 4,27, 9) = (/&
+&4.6525E-02_JPRB,5.0331E-02_JPRB,4.2630E-02_JPRB,3.0669E-02_JPRB,5.9354E-02_JPRB/)
+KBO( :, 5,27, 9) = (/&
+&5.8822E-02_JPRB,6.3502E-02_JPRB,5.3650E-02_JPRB,3.8505E-02_JPRB,6.6468E-02_JPRB/)
+KBO( :, 1,28, 9) = (/&
+&1.9320E-02_JPRB,2.0975E-02_JPRB,1.7795E-02_JPRB,1.2791E-02_JPRB,3.1912E-02_JPRB/)
+KBO( :, 2,28, 9) = (/&
+&2.5855E-02_JPRB,2.7959E-02_JPRB,2.3678E-02_JPRB,1.7000E-02_JPRB,3.7011E-02_JPRB/)
+KBO( :, 3,28, 9) = (/&
+&3.3864E-02_JPRB,3.6500E-02_JPRB,3.0839E-02_JPRB,2.2082E-02_JPRB,4.2382E-02_JPRB/)
+KBO( :, 4,28, 9) = (/&
+&4.3478E-02_JPRB,4.6764E-02_JPRB,3.9410E-02_JPRB,2.8143E-02_JPRB,4.8009E-02_JPRB/)
+KBO( :, 5,28, 9) = (/&
+&5.4874E-02_JPRB,5.8907E-02_JPRB,4.9537E-02_JPRB,3.5320E-02_JPRB,5.3947E-02_JPRB/)
+KBO( :, 1,29, 9) = (/&
+&1.8123E-02_JPRB,1.9628E-02_JPRB,1.6597E-02_JPRB,1.1861E-02_JPRB,2.5423E-02_JPRB/)
+KBO( :, 2,29, 9) = (/&
+&2.4225E-02_JPRB,2.6121E-02_JPRB,2.2032E-02_JPRB,1.5699E-02_JPRB,2.9542E-02_JPRB/)
+KBO( :, 3,29, 9) = (/&
+&3.1700E-02_JPRB,3.4031E-02_JPRB,2.8639E-02_JPRB,2.0345E-02_JPRB,3.3911E-02_JPRB/)
+KBO( :, 4,29, 9) = (/&
+&4.0663E-02_JPRB,4.3529E-02_JPRB,3.6544E-02_JPRB,2.5917E-02_JPRB,3.8545E-02_JPRB/)
+KBO( :, 5,29, 9) = (/&
+&5.1268E-02_JPRB,5.4769E-02_JPRB,4.5895E-02_JPRB,3.2522E-02_JPRB,4.3488E-02_JPRB/)
+KBO( :, 1,30, 9) = (/&
+&1.6958E-02_JPRB,1.8364E-02_JPRB,1.5479E-02_JPRB,1.0998E-02_JPRB,1.9951E-02_JPRB/)
+KBO( :, 2,30, 9) = (/&
+&2.2671E-02_JPRB,2.4409E-02_JPRB,2.0518E-02_JPRB,1.4521E-02_JPRB,2.3241E-02_JPRB/)
+KBO( :, 3,30, 9) = (/&
+&2.9641E-02_JPRB,3.1772E-02_JPRB,2.6628E-02_JPRB,1.8795E-02_JPRB,2.6766E-02_JPRB/)
+KBO( :, 4,30, 9) = (/&
+&3.8012E-02_JPRB,4.0581E-02_JPRB,3.3943E-02_JPRB,2.3935E-02_JPRB,3.0561E-02_JPRB/)
+KBO( :, 5,30, 9) = (/&
+&4.7908E-02_JPRB,5.1031E-02_JPRB,4.2627E-02_JPRB,3.0033E-02_JPRB,3.4653E-02_JPRB/)
+KBO( :, 1,31, 9) = (/&
+&1.5875E-02_JPRB,1.7181E-02_JPRB,1.4459E-02_JPRB,1.0211E-02_JPRB,1.5400E-02_JPRB/)
+KBO( :, 2,31, 9) = (/&
+&2.1201E-02_JPRB,2.2826E-02_JPRB,1.9139E-02_JPRB,1.3463E-02_JPRB,1.8009E-02_JPRB/)
+KBO( :, 3,31, 9) = (/&
+&2.7703E-02_JPRB,2.9694E-02_JPRB,2.4816E-02_JPRB,1.7421E-02_JPRB,2.0837E-02_JPRB/)
+KBO( :, 4,31, 9) = (/&
+&3.5538E-02_JPRB,3.7926E-02_JPRB,3.1623E-02_JPRB,2.2179E-02_JPRB,2.3914E-02_JPRB/)
+KBO( :, 5,31, 9) = (/&
+&4.4824E-02_JPRB,4.7692E-02_JPRB,3.9738E-02_JPRB,2.7844E-02_JPRB,2.7277E-02_JPRB/)
+KBO( :, 1,32, 9) = (/&
+&1.4881E-02_JPRB,1.6116E-02_JPRB,1.3532E-02_JPRB,9.5127E-03_JPRB,1.1925E-02_JPRB/)
+KBO( :, 2,32, 9) = (/&
+&1.9865E-02_JPRB,2.1395E-02_JPRB,1.7905E-02_JPRB,1.2529E-02_JPRB,1.4004E-02_JPRB/)
+KBO( :, 3,32, 9) = (/&
+&2.5959E-02_JPRB,2.7823E-02_JPRB,2.3208E-02_JPRB,1.6206E-02_JPRB,1.6285E-02_JPRB/)
+KBO( :, 4,32, 9) = (/&
+&3.3313E-02_JPRB,3.5564E-02_JPRB,2.9600E-02_JPRB,2.0639E-02_JPRB,1.8807E-02_JPRB/)
+KBO( :, 5,32, 9) = (/&
+&4.2060E-02_JPRB,4.4782E-02_JPRB,3.7223E-02_JPRB,2.5926E-02_JPRB,2.1578E-02_JPRB/)
+KBO( :, 1,33, 9) = (/&
+&1.3967E-02_JPRB,1.5144E-02_JPRB,1.2690E-02_JPRB,8.8844E-03_JPRB,9.2074E-03_JPRB/)
+KBO( :, 2,33, 9) = (/&
+&1.8640E-02_JPRB,2.0097E-02_JPRB,1.6785E-02_JPRB,1.1705E-02_JPRB,1.0873E-02_JPRB/)
+KBO( :, 3,33, 9) = (/&
+&2.4387E-02_JPRB,2.6153E-02_JPRB,2.1778E-02_JPRB,1.5136E-02_JPRB,1.2726E-02_JPRB/)
+KBO( :, 4,33, 9) = (/&
+&3.1327E-02_JPRB,3.3471E-02_JPRB,2.7814E-02_JPRB,1.9292E-02_JPRB,1.4787E-02_JPRB/)
+KBO( :, 5,33, 9) = (/&
+&3.9572E-02_JPRB,4.2221E-02_JPRB,3.5044E-02_JPRB,2.4264E-02_JPRB,1.7080E-02_JPRB/)
+KBO( :, 1,34, 9) = (/&
+&1.3038E-02_JPRB,1.4154E-02_JPRB,1.1832E-02_JPRB,8.2492E-03_JPRB,7.3647E-03_JPRB/)
+KBO( :, 2,34, 9) = (/&
+&1.7420E-02_JPRB,1.8798E-02_JPRB,1.5659E-02_JPRB,1.0876E-02_JPRB,8.7412E-03_JPRB/)
+KBO( :, 3,34, 9) = (/&
+&2.2825E-02_JPRB,2.4500E-02_JPRB,2.0360E-02_JPRB,1.4089E-02_JPRB,1.0289E-02_JPRB/)
+KBO( :, 4,34, 9) = (/&
+&2.9360E-02_JPRB,3.1418E-02_JPRB,2.6065E-02_JPRB,1.7978E-02_JPRB,1.2027E-02_JPRB/)
+KBO( :, 5,34, 9) = (/&
+&3.7137E-02_JPRB,3.9713E-02_JPRB,3.2919E-02_JPRB,2.2661E-02_JPRB,1.3976E-02_JPRB/)
+KBO( :, 1,35, 9) = (/&
+&1.1851E-02_JPRB,1.2890E-02_JPRB,1.0761E-02_JPRB,7.4718E-03_JPRB,5.7550E-03_JPRB/)
+KBO( :, 2,35, 9) = (/&
+&1.5900E-02_JPRB,1.7182E-02_JPRB,1.4286E-02_JPRB,9.8834E-03_JPRB,6.8791E-03_JPRB/)
+KBO( :, 3,35, 9) = (/&
+&2.0897E-02_JPRB,2.2486E-02_JPRB,1.8648E-02_JPRB,1.2848E-02_JPRB,8.1522E-03_JPRB/)
+KBO( :, 4,35, 9) = (/&
+&2.6965E-02_JPRB,2.8940E-02_JPRB,2.3971E-02_JPRB,1.6457E-02_JPRB,9.5922E-03_JPRB/)
+KBO( :, 5,35, 9) = (/&
+&3.4238E-02_JPRB,3.6722E-02_JPRB,3.0385E-02_JPRB,2.0819E-02_JPRB,1.1216E-02_JPRB/)
+KBO( :, 1,36, 9) = (/&
+&1.0455E-02_JPRB,1.1397E-02_JPRB,9.5033E-03_JPRB,6.5755E-03_JPRB,4.3571E-03_JPRB/)
+KBO( :, 2,36, 9) = (/&
+&1.4117E-02_JPRB,1.5290E-02_JPRB,1.2699E-02_JPRB,8.7484E-03_JPRB,5.2508E-03_JPRB/)
+KBO( :, 3,36, 9) = (/&
+&1.8658E-02_JPRB,2.0138E-02_JPRB,1.6673E-02_JPRB,1.1439E-02_JPRB,6.2734E-03_JPRB/)
+KBO( :, 4,36, 9) = (/&
+&2.4204E-02_JPRB,2.6071E-02_JPRB,2.1551E-02_JPRB,1.4738E-02_JPRB,7.4336E-03_JPRB/)
+KBO( :, 5,36, 9) = (/&
+&3.0898E-02_JPRB,3.3263E-02_JPRB,2.7471E-02_JPRB,1.8745E-02_JPRB,8.7508E-03_JPRB/)
+KBO( :, 1,37, 9) = (/&
+&8.8498E-03_JPRB,9.6657E-03_JPRB,8.0482E-03_JPRB,5.5507E-03_JPRB,3.4394E-03_JPRB/)
+KBO( :, 2,37, 9) = (/&
+&1.2053E-02_JPRB,1.3088E-02_JPRB,1.0850E-02_JPRB,7.4463E-03_JPRB,4.1756E-03_JPRB/)
+KBO( :, 3,37, 9) = (/&
+&1.6053E-02_JPRB,1.7380E-02_JPRB,1.4373E-02_JPRB,9.8197E-03_JPRB,5.0255E-03_JPRB/)
+KBO( :, 4,37, 9) = (/&
+&2.0992E-02_JPRB,2.2697E-02_JPRB,1.8723E-02_JPRB,1.2754E-02_JPRB,5.9977E-03_JPRB/)
+KBO( :, 5,37, 9) = (/&
+&2.6999E-02_JPRB,2.9182E-02_JPRB,2.4048E-02_JPRB,1.6341E-02_JPRB,7.1081E-03_JPRB/)
+KBO( :, 1,38, 9) = (/&
+&7.4680E-03_JPRB,8.1793E-03_JPRB,6.8001E-03_JPRB,4.6741E-03_JPRB,2.7036E-03_JPRB/)
+KBO( :, 2,38, 9) = (/&
+&1.0268E-02_JPRB,1.1184E-02_JPRB,9.2546E-03_JPRB,6.3288E-03_JPRB,3.3094E-03_JPRB/)
+KBO( :, 3,38, 9) = (/&
+&1.3799E-02_JPRB,1.4987E-02_JPRB,1.2370E-02_JPRB,8.4204E-03_JPRB,4.0136E-03_JPRB/)
+KBO( :, 4,38, 9) = (/&
+&1.8189E-02_JPRB,1.9741E-02_JPRB,1.6260E-02_JPRB,1.1031E-02_JPRB,4.8267E-03_JPRB/)
+KBO( :, 5,38, 9) = (/&
+&2.3579E-02_JPRB,2.5605E-02_JPRB,2.1052E-02_JPRB,1.4244E-02_JPRB,5.7626E-03_JPRB/)
+KBO( :, 1,39, 9) = (/&
+&6.2942E-03_JPRB,6.9249E-03_JPRB,5.7460E-03_JPRB,3.9360E-03_JPRB,2.1044E-03_JPRB/)
+KBO( :, 2,39, 9) = (/&
+&8.7432E-03_JPRB,9.5663E-03_JPRB,7.9000E-03_JPRB,5.3823E-03_JPRB,2.5994E-03_JPRB/)
+KBO( :, 3,39, 9) = (/&
+&1.1864E-02_JPRB,1.2937E-02_JPRB,1.0660E-02_JPRB,7.2304E-03_JPRB,3.1792E-03_JPRB/)
+KBO( :, 4,39, 9) = (/&
+&1.5781E-02_JPRB,1.7197E-02_JPRB,1.4145E-02_JPRB,9.5554E-03_JPRB,3.8556E-03_JPRB/)
+KBO( :, 5,39, 9) = (/&
+&2.0624E-02_JPRB,2.2512E-02_JPRB,1.8470E-02_JPRB,1.2443E-02_JPRB,4.6381E-03_JPRB/)
+KBO( :, 1,40, 9) = (/&
+&5.1375E-03_JPRB,5.6803E-03_JPRB,4.7069E-03_JPRB,3.2115E-03_JPRB,1.6578E-03_JPRB/)
+KBO( :, 2,40, 9) = (/&
+&7.2291E-03_JPRB,7.9459E-03_JPRB,6.5495E-03_JPRB,4.4441E-03_JPRB,2.0666E-03_JPRB/)
+KBO( :, 3,40, 9) = (/&
+&9.9296E-03_JPRB,1.0871E-02_JPRB,8.9384E-03_JPRB,6.0392E-03_JPRB,2.5498E-03_JPRB/)
+KBO( :, 4,40, 9) = (/&
+&1.3354E-02_JPRB,1.4603E-02_JPRB,1.1989E-02_JPRB,8.0664E-03_JPRB,3.1172E-03_JPRB/)
+KBO( :, 5,40, 9) = (/&
+&1.7630E-02_JPRB,1.9320E-02_JPRB,1.5819E-02_JPRB,1.0610E-02_JPRB,3.7783E-03_JPRB/)
+KBO( :, 1,41, 9) = (/&
+&4.1669E-03_JPRB,4.6307E-03_JPRB,3.8311E-03_JPRB,2.6055E-03_JPRB,1.3022E-03_JPRB/)
+KBO( :, 2,41, 9) = (/&
+&5.9450E-03_JPRB,6.5654E-03_JPRB,5.4031E-03_JPRB,3.6497E-03_JPRB,1.6387E-03_JPRB/)
+KBO( :, 3,41, 9) = (/&
+&8.2702E-03_JPRB,9.0939E-03_JPRB,7.4627E-03_JPRB,5.0204E-03_JPRB,2.0406E-03_JPRB/)
+KBO( :, 4,41, 9) = (/&
+&1.1254E-02_JPRB,1.2358E-02_JPRB,1.0124E-02_JPRB,6.7836E-03_JPRB,2.5160E-03_JPRB/)
+KBO( :, 5,41, 9) = (/&
+&1.5021E-02_JPRB,1.6526E-02_JPRB,1.3505E-02_JPRB,9.0170E-03_JPRB,3.0745E-03_JPRB/)
+KBO( :, 1,42, 9) = (/&
+&3.3673E-03_JPRB,3.7618E-03_JPRB,3.1084E-03_JPRB,2.1093E-03_JPRB,1.0159E-03_JPRB/)
+KBO( :, 2,42, 9) = (/&
+&4.8758E-03_JPRB,5.4116E-03_JPRB,4.4469E-03_JPRB,2.9930E-03_JPRB,1.2910E-03_JPRB/)
+KBO( :, 3,42, 9) = (/&
+&6.8765E-03_JPRB,7.5957E-03_JPRB,6.2240E-03_JPRB,4.1675E-03_JPRB,1.6231E-03_JPRB/)
+KBO( :, 4,42, 9) = (/&
+&9.4703E-03_JPRB,1.0449E-02_JPRB,8.5426E-03_JPRB,5.6988E-03_JPRB,2.0195E-03_JPRB/)
+KBO( :, 5,42, 9) = (/&
+&1.2789E-02_JPRB,1.4133E-02_JPRB,1.1527E-02_JPRB,7.6610E-03_JPRB,2.4891E-03_JPRB/)
+KBO( :, 1,43, 9) = (/&
+&2.6545E-03_JPRB,2.9817E-03_JPRB,2.4611E-03_JPRB,1.6672E-03_JPRB,7.8914E-04_JPRB/)
+KBO( :, 2,43, 9) = (/&
+&3.9072E-03_JPRB,4.3601E-03_JPRB,3.5785E-03_JPRB,2.4026E-03_JPRB,1.0130E-03_JPRB/)
+KBO( :, 3,43, 9) = (/&
+&5.5970E-03_JPRB,6.2146E-03_JPRB,5.0833E-03_JPRB,3.3914E-03_JPRB,1.2871E-03_JPRB/)
+KBO( :, 4,43, 9) = (/&
+&7.8170E-03_JPRB,8.6680E-03_JPRB,7.0728E-03_JPRB,4.6984E-03_JPRB,1.6175E-03_JPRB/)
+KBO( :, 5,43, 9) = (/&
+&1.0695E-02_JPRB,1.1876E-02_JPRB,9.6670E-03_JPRB,6.3964E-03_JPRB,2.0136E-03_JPRB/)
+KBO( :, 1,44, 9) = (/&
+&2.0599E-03_JPRB,2.3264E-03_JPRB,1.9189E-03_JPRB,1.2982E-03_JPRB,6.1043E-04_JPRB/)
+KBO( :, 2,44, 9) = (/&
+&3.0865E-03_JPRB,3.4632E-03_JPRB,2.8398E-03_JPRB,1.9029E-03_JPRB,7.9160E-04_JPRB/)
+KBO( :, 3,44, 9) = (/&
+&4.4945E-03_JPRB,5.0200E-03_JPRB,4.1009E-03_JPRB,2.7282E-03_JPRB,1.0166E-03_JPRB/)
+KBO( :, 4,44, 9) = (/&
+&6.3771E-03_JPRB,7.1092E-03_JPRB,5.7918E-03_JPRB,3.8324E-03_JPRB,1.2916E-03_JPRB/)
+KBO( :, 5,44, 9) = (/&
+&8.8507E-03_JPRB,9.8816E-03_JPRB,8.0271E-03_JPRB,5.2885E-03_JPRB,1.6254E-03_JPRB/)
+KBO( :, 1,45, 9) = (/&
+&1.5883E-03_JPRB,1.8029E-03_JPRB,1.4862E-03_JPRB,1.0041E-03_JPRB,4.6915E-04_JPRB/)
+KBO( :, 2,45, 9) = (/&
+&2.4237E-03_JPRB,2.7348E-03_JPRB,2.2402E-03_JPRB,1.4983E-03_JPRB,6.1463E-04_JPRB/)
+KBO( :, 3,45, 9) = (/&
+&3.5915E-03_JPRB,4.0353E-03_JPRB,3.2920E-03_JPRB,2.1847E-03_JPRB,7.9813E-04_JPRB/)
+KBO( :, 4,45, 9) = (/&
+&5.1787E-03_JPRB,5.8074E-03_JPRB,4.7242E-03_JPRB,3.1158E-03_JPRB,1.0255E-03_JPRB/)
+KBO( :, 5,45, 9) = (/&
+&7.2977E-03_JPRB,8.1949E-03_JPRB,6.6455E-03_JPRB,4.3597E-03_JPRB,1.3052E-03_JPRB/)
+KBO( :, 1,46, 9) = (/&
+&1.2050E-03_JPRB,1.3752E-03_JPRB,1.1327E-03_JPRB,7.6415E-04_JPRB,3.5825E-04_JPRB/)
+KBO( :, 2,46, 9) = (/&
+&1.8745E-03_JPRB,2.1271E-03_JPRB,1.7406E-03_JPRB,1.1623E-03_JPRB,4.7455E-04_JPRB/)
+KBO( :, 3,46, 9) = (/&
+&2.8292E-03_JPRB,3.1990E-03_JPRB,2.6058E-03_JPRB,1.7261E-03_JPRB,6.2280E-04_JPRB/)
+KBO( :, 4,46, 9) = (/&
+&4.1523E-03_JPRB,4.6867E-03_JPRB,3.8068E-03_JPRB,2.5043E-03_JPRB,8.0997E-04_JPRB/)
+KBO( :, 5,46, 9) = (/&
+&5.9484E-03_JPRB,6.7211E-03_JPRB,5.4412E-03_JPRB,3.5566E-03_JPRB,1.0425E-03_JPRB/)
+KBO( :, 1,47, 9) = (/&
+&8.9059E-04_JPRB,1.0221E-03_JPRB,8.4076E-04_JPRB,5.6652E-04_JPRB,2.7270E-04_JPRB/)
+KBO( :, 2,47, 9) = (/&
+&1.4154E-03_JPRB,1.6142E-03_JPRB,1.3191E-03_JPRB,8.8003E-04_JPRB,3.6578E-04_JPRB/)
+KBO( :, 3,47, 9) = (/&
+&2.1790E-03_JPRB,2.4785E-03_JPRB,2.0162E-03_JPRB,1.3331E-03_JPRB,4.8487E-04_JPRB/)
+KBO( :, 4,47, 9) = (/&
+&3.2603E-03_JPRB,3.7035E-03_JPRB,3.0033E-03_JPRB,1.9711E-03_JPRB,6.3790E-04_JPRB/)
+KBO( :, 5,47, 9) = (/&
+&4.7543E-03_JPRB,5.4065E-03_JPRB,4.3698E-03_JPRB,2.8478E-03_JPRB,8.3079E-04_JPRB/)
+KBO( :, 1,48, 9) = (/&
+&6.5137E-04_JPRB,7.5160E-04_JPRB,6.1768E-04_JPRB,4.1559E-04_JPRB,2.0605E-04_JPRB/)
+KBO( :, 2,48, 9) = (/&
+&1.0584E-03_JPRB,1.2128E-03_JPRB,9.8996E-04_JPRB,6.6009E-04_JPRB,2.8014E-04_JPRB/)
+KBO( :, 3,48, 9) = (/&
+&1.6631E-03_JPRB,1.9026E-03_JPRB,1.5461E-03_JPRB,1.0205E-03_JPRB,3.7581E-04_JPRB/)
+KBO( :, 4,48, 9) = (/&
+&2.5384E-03_JPRB,2.9025E-03_JPRB,2.3504E-03_JPRB,1.5394E-03_JPRB,4.9967E-04_JPRB/)
+KBO( :, 5,48, 9) = (/&
+&3.7716E-03_JPRB,4.3191E-03_JPRB,3.4853E-03_JPRB,2.2659E-03_JPRB,6.5826E-04_JPRB/)
+KBO( :, 1,49, 9) = (/&
+&4.7074E-04_JPRB,5.4614E-04_JPRB,4.4842E-04_JPRB,3.0149E-04_JPRB,1.5387E-04_JPRB/)
+KBO( :, 2,49, 9) = (/&
+&7.8312E-04_JPRB,9.0147E-04_JPRB,7.3522E-04_JPRB,4.8971E-04_JPRB,2.1293E-04_JPRB/)
+KBO( :, 3,49, 9) = (/&
+&1.2566E-03_JPRB,1.4457E-03_JPRB,1.1738E-03_JPRB,7.7341E-04_JPRB,2.8949E-04_JPRB/)
+KBO( :, 4,49, 9) = (/&
+&1.9577E-03_JPRB,2.2532E-03_JPRB,1.8228E-03_JPRB,1.1917E-03_JPRB,3.8929E-04_JPRB/)
+KBO( :, 5,49, 9) = (/&
+&2.9665E-03_JPRB,3.4229E-03_JPRB,2.7586E-03_JPRB,1.7902E-03_JPRB,5.1846E-04_JPRB/)
+KBO( :, 1,50, 9) = (/&
+&3.4213E-04_JPRB,3.9935E-04_JPRB,3.2746E-04_JPRB,2.1988E-04_JPRB,1.1674E-04_JPRB/)
+KBO( :, 2,50, 9) = (/&
+&5.8343E-04_JPRB,6.7437E-04_JPRB,5.4936E-04_JPRB,3.6511E-04_JPRB,1.6480E-04_JPRB/)
+KBO( :, 3,50, 9) = (/&
+&9.5650E-04_JPRB,1.1046E-03_JPRB,8.9539E-04_JPRB,5.8873E-04_JPRB,2.2733E-04_JPRB/)
+KBO( :, 4,50, 9) = (/&
+&1.5196E-03_JPRB,1.7582E-03_JPRB,1.4207E-03_JPRB,9.2622E-04_JPRB,3.0916E-04_JPRB/)
+KBO( :, 5,50, 9) = (/&
+&2.3472E-03_JPRB,2.7261E-03_JPRB,2.1933E-03_JPRB,1.4203E-03_JPRB,4.1592E-04_JPRB/)
+KBO( :, 1,51, 9) = (/&
+&2.4775E-04_JPRB,2.9121E-04_JPRB,2.3870E-04_JPRB,1.5996E-04_JPRB,8.8877E-05_JPRB/)
+KBO( :, 2,51, 9) = (/&
+&4.3433E-04_JPRB,5.0395E-04_JPRB,4.0996E-04_JPRB,2.7183E-04_JPRB,1.2827E-04_JPRB/)
+KBO( :, 3,51, 9) = (/&
+&7.2809E-04_JPRB,8.4314E-04_JPRB,6.8222E-04_JPRB,4.4757E-04_JPRB,1.8017E-04_JPRB/)
+KBO( :, 4,51, 9) = (/&
+&1.1797E-03_JPRB,1.3708E-03_JPRB,1.1057E-03_JPRB,7.1871E-04_JPRB,2.4785E-04_JPRB/)
+KBO( :, 5,51, 9) = (/&
+&1.8569E-03_JPRB,2.1693E-03_JPRB,1.7420E-03_JPRB,1.1250E-03_JPRB,3.3679E-04_JPRB/)
+KBO( :, 1,52, 9) = (/&
+&1.7722E-04_JPRB,2.0977E-04_JPRB,1.7188E-04_JPRB,1.1517E-04_JPRB,6.6934E-05_JPRB/)
+KBO( :, 2,52, 9) = (/&
+&3.1988E-04_JPRB,3.7329E-04_JPRB,3.0314E-04_JPRB,2.0061E-04_JPRB,9.9021E-05_JPRB/)
+KBO( :, 3,52, 9) = (/&
+&5.4977E-04_JPRB,6.3853E-04_JPRB,5.1539E-04_JPRB,3.3762E-04_JPRB,1.4208E-04_JPRB/)
+KBO( :, 4,52, 9) = (/&
+&9.0908E-04_JPRB,1.0602E-03_JPRB,8.5370E-04_JPRB,5.5342E-04_JPRB,1.9834E-04_JPRB/)
+KBO( :, 5,52, 9) = (/&
+&1.4584E-03_JPRB,1.7130E-03_JPRB,1.3740E-03_JPRB,8.8469E-04_JPRB,2.7257E-04_JPRB/)
+KBO( :, 1,53, 9) = (/&
+&1.2486E-04_JPRB,1.4876E-04_JPRB,1.2192E-04_JPRB,8.1756E-05_JPRB,4.9810E-05_JPRB/)
+KBO( :, 2,53, 9) = (/&
+&2.3236E-04_JPRB,2.7326E-04_JPRB,2.2175E-04_JPRB,1.4647E-04_JPRB,7.5549E-05_JPRB/)
+KBO( :, 3,53, 9) = (/&
+&4.1092E-04_JPRB,4.7878E-04_JPRB,3.8566E-04_JPRB,2.5219E-04_JPRB,1.1108E-04_JPRB/)
+KBO( :, 4,53, 9) = (/&
+&6.9449E-04_JPRB,8.1233E-04_JPRB,6.5288E-04_JPRB,4.2235E-04_JPRB,1.5818E-04_JPRB/)
+KBO( :, 5,53, 9) = (/&
+&1.1362E-03_JPRB,1.3415E-03_JPRB,1.0746E-03_JPRB,6.9016E-04_JPRB,2.1993E-04_JPRB/)
+KBO( :, 1,54, 9) = (/&
+&8.9225E-05_JPRB,1.0698E-04_JPRB,8.7651E-05_JPRB,5.8813E-05_JPRB,3.8030E-05_JPRB/)
+KBO( :, 2,54, 9) = (/&
+&1.7137E-04_JPRB,2.0293E-04_JPRB,1.6456E-04_JPRB,1.0850E-04_JPRB,5.9001E-05_JPRB/)
+KBO( :, 3,54, 9) = (/&
+&3.1189E-04_JPRB,3.6460E-04_JPRB,2.9303E-04_JPRB,1.9101E-04_JPRB,8.8833E-05_JPRB/)
+KBO( :, 4,54, 9) = (/&
+&5.3932E-04_JPRB,6.3180E-04_JPRB,5.0597E-04_JPRB,3.2631E-04_JPRB,1.2913E-04_JPRB/)
+KBO( :, 5,54, 9) = (/&
+&8.9911E-04_JPRB,1.0637E-03_JPRB,8.5017E-04_JPRB,5.4403E-04_JPRB,1.8204E-04_JPRB/)
+KBO( :, 1,55, 9) = (/&
+&6.3909E-05_JPRB,7.7058E-05_JPRB,6.3103E-05_JPRB,4.2365E-05_JPRB,2.9408E-05_JPRB/)
+KBO( :, 2,55, 9) = (/&
+&1.2694E-04_JPRB,1.5118E-04_JPRB,1.2247E-04_JPRB,8.0640E-05_JPRB,4.6546E-05_JPRB/)
+KBO( :, 3,55, 9) = (/&
+&2.3779E-04_JPRB,2.7922E-04_JPRB,2.2392E-04_JPRB,1.4533E-04_JPRB,7.1755E-05_JPRB/)
+KBO( :, 4,55, 9) = (/&
+&4.2152E-04_JPRB,4.9417E-04_JPRB,3.9420E-04_JPRB,2.5317E-04_JPRB,1.0664E-04_JPRB/)
+KBO( :, 5,55, 9) = (/&
+&7.1633E-04_JPRB,8.4754E-04_JPRB,6.7522E-04_JPRB,4.3025E-04_JPRB,1.5287E-04_JPRB/)
+KBO( :, 1,56, 9) = (/&
+&4.5238E-05_JPRB,5.4873E-05_JPRB,4.4919E-05_JPRB,3.0179E-05_JPRB,2.2620E-05_JPRB/)
+KBO( :, 2,56, 9) = (/&
+&9.3046E-05_JPRB,1.1152E-04_JPRB,9.0251E-05_JPRB,5.9375E-05_JPRB,3.6523E-05_JPRB/)
+KBO( :, 3,56, 9) = (/&
+&1.7973E-04_JPRB,2.1224E-04_JPRB,1.6993E-04_JPRB,1.0998E-04_JPRB,5.7678E-05_JPRB/)
+KBO( :, 4,56, 9) = (/&
+&3.2753E-04_JPRB,3.8449E-04_JPRB,3.0571E-04_JPRB,1.9550E-04_JPRB,8.7776E-05_JPRB/)
+KBO( :, 5,56, 9) = (/&
+&5.6860E-04_JPRB,6.7252E-04_JPRB,5.3373E-04_JPRB,3.3864E-04_JPRB,1.2833E-04_JPRB/)
+KBO( :, 1,57, 9) = (/&
+&3.1565E-05_JPRB,3.8561E-05_JPRB,3.1572E-05_JPRB,2.1236E-05_JPRB,1.7319E-05_JPRB/)
+KBO( :, 2,57, 9) = (/&
+&6.7437E-05_JPRB,8.1368E-05_JPRB,6.5785E-05_JPRB,4.3278E-05_JPRB,2.8513E-05_JPRB/)
+KBO( :, 3,57, 9) = (/&
+&1.3453E-04_JPRB,1.5983E-04_JPRB,1.2788E-04_JPRB,8.2634E-05_JPRB,4.6105E-05_JPRB/)
+KBO( :, 4,57, 9) = (/&
+&2.5265E-04_JPRB,2.9731E-04_JPRB,2.3573E-04_JPRB,1.5020E-04_JPRB,7.1946E-05_JPRB/)
+KBO( :, 5,57, 9) = (/&
+&4.4894E-04_JPRB,5.3119E-04_JPRB,4.1979E-04_JPRB,2.6517E-04_JPRB,1.0766E-04_JPRB/)
+KBO( :, 1,58, 9) = (/&
+&2.2075E-05_JPRB,2.7134E-05_JPRB,2.2226E-05_JPRB,1.4971E-05_JPRB,1.3364E-05_JPRB/)
+KBO( :, 2,58, 9) = (/&
+&4.8978E-05_JPRB,5.9454E-05_JPRB,4.8051E-05_JPRB,3.1593E-05_JPRB,2.2406E-05_JPRB/)
+KBO( :, 3,58, 9) = (/&
+&1.0101E-04_JPRB,1.2083E-04_JPRB,9.6543E-05_JPRB,6.2301E-05_JPRB,3.7078E-05_JPRB/)
+KBO( :, 4,58, 9) = (/&
+&1.9559E-04_JPRB,2.3110E-04_JPRB,1.8274E-04_JPRB,1.1601E-04_JPRB,5.9357E-05_JPRB/)
+KBO( :, 5,58, 9) = (/&
+&3.5639E-04_JPRB,4.2210E-04_JPRB,3.3215E-04_JPRB,2.0879E-04_JPRB,9.0999E-05_JPRB/)
+KBO( :, 1,59, 9) = (/&
+&1.8162E-05_JPRB,2.2362E-05_JPRB,1.8260E-05_JPRB,1.2253E-05_JPRB,1.1708E-05_JPRB/)
+KBO( :, 2,59, 9) = (/&
+&4.1323E-05_JPRB,5.0285E-05_JPRB,4.0483E-05_JPRB,2.6494E-05_JPRB,1.9897E-05_JPRB/)
+KBO( :, 3,59, 9) = (/&
+&8.7123E-05_JPRB,1.0455E-04_JPRB,8.3213E-05_JPRB,5.3390E-05_JPRB,3.3400E-05_JPRB/)
+KBO( :, 4,59, 9) = (/&
+&1.7214E-04_JPRB,2.0391E-04_JPRB,1.6047E-04_JPRB,1.0123E-04_JPRB,5.4263E-05_JPRB/)
+KBO( :, 5,59, 9) = (/&
+&3.1897E-04_JPRB,3.7825E-04_JPRB,2.9606E-04_JPRB,1.8480E-04_JPRB,8.4393E-05_JPRB/)
+KBO( :, 1,13,10) = (/&
+&2.7341E-01_JPRB,2.7526E-01_JPRB,2.5183E-01_JPRB,1.9261E-01_JPRB,1.4210E+00_JPRB/)
+KBO( :, 2,13,10) = (/&
+&3.8641E-01_JPRB,3.8931E-01_JPRB,3.5500E-01_JPRB,2.7363E-01_JPRB,1.5250E+00_JPRB/)
+KBO( :, 3,13,10) = (/&
+&5.2101E-01_JPRB,5.2751E-01_JPRB,4.7841E-01_JPRB,3.7012E-01_JPRB,1.6242E+00_JPRB/)
+KBO( :, 4,13,10) = (/&
+&6.7807E-01_JPRB,6.8631E-01_JPRB,6.2447E-01_JPRB,4.8162E-01_JPRB,1.7236E+00_JPRB/)
+KBO( :, 5,13,10) = (/&
+&8.5732E-01_JPRB,8.6502E-01_JPRB,7.8632E-01_JPRB,6.0788E-01_JPRB,1.8353E+00_JPRB/)
+KBO( :, 1,14,10) = (/&
+&2.6100E-01_JPRB,2.7217E-01_JPRB,2.4857E-01_JPRB,1.9099E-01_JPRB,1.3096E+00_JPRB/)
+KBO( :, 2,14,10) = (/&
+&3.6662E-01_JPRB,3.8321E-01_JPRB,3.4838E-01_JPRB,2.6817E-01_JPRB,1.4048E+00_JPRB/)
+KBO( :, 3,14,10) = (/&
+&4.9302E-01_JPRB,5.1421E-01_JPRB,4.6962E-01_JPRB,3.6021E-01_JPRB,1.4986E+00_JPRB/)
+KBO( :, 4,14,10) = (/&
+&6.4068E-01_JPRB,6.6503E-01_JPRB,6.0806E-01_JPRB,4.6655E-01_JPRB,1.6008E+00_JPRB/)
+KBO( :, 5,14,10) = (/&
+&8.0594E-01_JPRB,8.3870E-01_JPRB,7.6286E-01_JPRB,5.8739E-01_JPRB,1.6996E+00_JPRB/)
+KBO( :, 1,15,10) = (/&
+&2.4538E-01_JPRB,2.6450E-01_JPRB,2.4065E-01_JPRB,1.8544E-01_JPRB,1.0991E+00_JPRB/)
+KBO( :, 2,15,10) = (/&
+&3.4290E-01_JPRB,3.6880E-01_JPRB,3.3714E-01_JPRB,2.5768E-01_JPRB,1.1807E+00_JPRB/)
+KBO( :, 3,15,10) = (/&
+&4.6008E-01_JPRB,4.9212E-01_JPRB,4.5111E-01_JPRB,3.4351E-01_JPRB,1.2655E+00_JPRB/)
+KBO( :, 4,15,10) = (/&
+&5.9510E-01_JPRB,6.3591E-01_JPRB,5.8042E-01_JPRB,4.4347E-01_JPRB,1.3538E+00_JPRB/)
+KBO( :, 5,15,10) = (/&
+&7.4431E-01_JPRB,7.9818E-01_JPRB,7.2810E-01_JPRB,5.5870E-01_JPRB,1.4415E+00_JPRB/)
+KBO( :, 1,16,10) = (/&
+&2.2814E-01_JPRB,2.5112E-01_JPRB,2.2894E-01_JPRB,1.7604E-01_JPRB,8.6918E-01_JPRB/)
+KBO( :, 2,16,10) = (/&
+&3.1740E-01_JPRB,3.4815E-01_JPRB,3.1813E-01_JPRB,2.4321E-01_JPRB,9.3794E-01_JPRB/)
+KBO( :, 3,16,10) = (/&
+&4.2406E-01_JPRB,4.6410E-01_JPRB,4.2260E-01_JPRB,3.2211E-01_JPRB,1.0122E+00_JPRB/)
+KBO( :, 4,16,10) = (/&
+&5.4520E-01_JPRB,5.9870E-01_JPRB,5.4328E-01_JPRB,4.1424E-01_JPRB,1.0849E+00_JPRB/)
+KBO( :, 5,16,10) = (/&
+&6.8053E-01_JPRB,7.4608E-01_JPRB,6.8074E-01_JPRB,5.2205E-01_JPRB,1.1616E+00_JPRB/)
+KBO( :, 1,17,10) = (/&
+&2.0942E-01_JPRB,2.3428E-01_JPRB,2.1300E-01_JPRB,1.6357E-01_JPRB,6.8856E-01_JPRB/)
+KBO( :, 2,17,10) = (/&
+&2.9028E-01_JPRB,3.2402E-01_JPRB,2.9334E-01_JPRB,2.2459E-01_JPRB,7.5316E-01_JPRB/)
+KBO( :, 3,17,10) = (/&
+&3.8521E-01_JPRB,4.3154E-01_JPRB,3.8848E-01_JPRB,2.9660E-01_JPRB,8.1712E-01_JPRB/)
+KBO( :, 4,17,10) = (/&
+&4.9386E-01_JPRB,5.5280E-01_JPRB,4.9908E-01_JPRB,3.8197E-01_JPRB,8.8331E-01_JPRB/)
+KBO( :, 5,17,10) = (/&
+&6.1488E-01_JPRB,6.8821E-01_JPRB,6.2452E-01_JPRB,4.7879E-01_JPRB,9.5857E-01_JPRB/)
+KBO( :, 1,18,10) = (/&
+&1.9063E-01_JPRB,2.1561E-01_JPRB,1.9503E-01_JPRB,1.4897E-01_JPRB,5.8262E-01_JPRB/)
+KBO( :, 2,18,10) = (/&
+&2.6234E-01_JPRB,2.9815E-01_JPRB,2.6727E-01_JPRB,2.0340E-01_JPRB,6.4437E-01_JPRB/)
+KBO( :, 3,18,10) = (/&
+&3.4666E-01_JPRB,3.9448E-01_JPRB,3.5278E-01_JPRB,2.6945E-01_JPRB,7.0773E-01_JPRB/)
+KBO( :, 4,18,10) = (/&
+&4.4310E-01_JPRB,5.0370E-01_JPRB,4.5197E-01_JPRB,3.4624E-01_JPRB,7.7610E-01_JPRB/)
+KBO( :, 5,18,10) = (/&
+&5.4979E-01_JPRB,6.2640E-01_JPRB,5.6607E-01_JPRB,4.3269E-01_JPRB,8.4498E-01_JPRB/)
+KBO( :, 1,19,10) = (/&
+&1.7161E-01_JPRB,1.9659E-01_JPRB,1.7592E-01_JPRB,1.3400E-01_JPRB,5.2315E-01_JPRB/)
+KBO( :, 2,19,10) = (/&
+&2.3489E-01_JPRB,2.7003E-01_JPRB,2.4068E-01_JPRB,1.8320E-01_JPRB,5.8488E-01_JPRB/)
+KBO( :, 3,19,10) = (/&
+&3.0942E-01_JPRB,3.5576E-01_JPRB,3.1712E-01_JPRB,2.4210E-01_JPRB,6.4789E-01_JPRB/)
+KBO( :, 4,19,10) = (/&
+&3.9389E-01_JPRB,4.5374E-01_JPRB,4.0629E-01_JPRB,3.0999E-01_JPRB,7.1351E-01_JPRB/)
+KBO( :, 5,19,10) = (/&
+&4.8891E-01_JPRB,5.6402E-01_JPRB,5.0679E-01_JPRB,3.8613E-01_JPRB,7.7670E-01_JPRB/)
+KBO( :, 1,20,10) = (/&
+&1.5436E-01_JPRB,1.7849E-01_JPRB,1.5835E-01_JPRB,1.2054E-01_JPRB,4.8122E-01_JPRB/)
+KBO( :, 2,20,10) = (/&
+&2.1037E-01_JPRB,2.4329E-01_JPRB,2.1594E-01_JPRB,1.6475E-01_JPRB,5.4083E-01_JPRB/)
+KBO( :, 3,20,10) = (/&
+&2.7588E-01_JPRB,3.1923E-01_JPRB,2.8475E-01_JPRB,2.1683E-01_JPRB,6.0229E-01_JPRB/)
+KBO( :, 4,20,10) = (/&
+&3.5179E-01_JPRB,4.0673E-01_JPRB,3.6356E-01_JPRB,2.7647E-01_JPRB,6.6389E-01_JPRB/)
+KBO( :, 5,20,10) = (/&
+&4.3944E-01_JPRB,5.0591E-01_JPRB,4.5161E-01_JPRB,3.4309E-01_JPRB,7.2588E-01_JPRB/)
+KBO( :, 1,21,10) = (/&
+&1.3931E-01_JPRB,1.6061E-01_JPRB,1.4210E-01_JPRB,1.0800E-01_JPRB,4.4082E-01_JPRB/)
+KBO( :, 2,21,10) = (/&
+&1.8903E-01_JPRB,2.1792E-01_JPRB,1.9361E-01_JPRB,1.4691E-01_JPRB,4.9685E-01_JPRB/)
+KBO( :, 3,21,10) = (/&
+&2.4836E-01_JPRB,2.8494E-01_JPRB,2.5423E-01_JPRB,1.9232E-01_JPRB,5.5604E-01_JPRB/)
+KBO( :, 4,21,10) = (/&
+&3.1855E-01_JPRB,3.6313E-01_JPRB,3.2325E-01_JPRB,2.4463E-01_JPRB,6.1543E-01_JPRB/)
+KBO( :, 5,21,10) = (/&
+&4.0034E-01_JPRB,4.5346E-01_JPRB,4.0071E-01_JPRB,3.0346E-01_JPRB,6.7562E-01_JPRB/)
+KBO( :, 1,22,10) = (/&
+&1.2853E-01_JPRB,1.4730E-01_JPRB,1.3012E-01_JPRB,9.8419E-02_JPRB,3.9506E-01_JPRB/)
+KBO( :, 2,22,10) = (/&
+&1.7432E-01_JPRB,1.9857E-01_JPRB,1.7621E-01_JPRB,1.3274E-01_JPRB,4.4910E-01_JPRB/)
+KBO( :, 3,22,10) = (/&
+&2.3012E-01_JPRB,2.5984E-01_JPRB,2.2960E-01_JPRB,1.7295E-01_JPRB,5.0505E-01_JPRB/)
+KBO( :, 4,22,10) = (/&
+&2.9716E-01_JPRB,3.3163E-01_JPRB,2.9126E-01_JPRB,2.1891E-01_JPRB,5.6304E-01_JPRB/)
+KBO( :, 5,22,10) = (/&
+&3.7733E-01_JPRB,4.1497E-01_JPRB,3.6137E-01_JPRB,2.7093E-01_JPRB,6.2241E-01_JPRB/)
+KBO( :, 1,23,10) = (/&
+&1.1881E-01_JPRB,1.3545E-01_JPRB,1.1944E-01_JPRB,8.9244E-02_JPRB,3.5223E-01_JPRB/)
+KBO( :, 2,23,10) = (/&
+&1.6173E-01_JPRB,1.8250E-01_JPRB,1.6019E-01_JPRB,1.1960E-01_JPRB,4.0380E-01_JPRB/)
+KBO( :, 3,23,10) = (/&
+&2.1531E-01_JPRB,2.3918E-01_JPRB,2.0828E-01_JPRB,1.5508E-01_JPRB,4.5685E-01_JPRB/)
+KBO( :, 4,23,10) = (/&
+&2.8111E-01_JPRB,3.0634E-01_JPRB,2.6433E-01_JPRB,1.9616E-01_JPRB,5.1050E-01_JPRB/)
+KBO( :, 5,23,10) = (/&
+&3.5862E-01_JPRB,3.8538E-01_JPRB,3.2913E-01_JPRB,2.4336E-01_JPRB,5.6512E-01_JPRB/)
+KBO( :, 1,24,10) = (/&
+&1.1051E-01_JPRB,1.2496E-01_JPRB,1.0957E-01_JPRB,8.1032E-02_JPRB,3.1062E-01_JPRB/)
+KBO( :, 2,24,10) = (/&
+&1.5172E-01_JPRB,1.6880E-01_JPRB,1.4660E-01_JPRB,1.0802E-01_JPRB,3.5601E-01_JPRB/)
+KBO( :, 3,24,10) = (/&
+&2.0376E-01_JPRB,2.2212E-01_JPRB,1.9093E-01_JPRB,1.3969E-01_JPRB,4.0151E-01_JPRB/)
+KBO( :, 4,24,10) = (/&
+&2.6595E-01_JPRB,2.8670E-01_JPRB,2.4290E-01_JPRB,1.7693E-01_JPRB,4.4655E-01_JPRB/)
+KBO( :, 5,24,10) = (/&
+&3.3711E-01_JPRB,3.6154E-01_JPRB,3.0421E-01_JPRB,2.2016E-01_JPRB,4.9307E-01_JPRB/)
+KBO( :, 1,25,10) = (/&
+&1.0420E-01_JPRB,1.1612E-01_JPRB,1.0071E-01_JPRB,7.3994E-02_JPRB,2.6769E-01_JPRB/)
+KBO( :, 2,25,10) = (/&
+&1.4379E-01_JPRB,1.5740E-01_JPRB,1.3501E-01_JPRB,9.8353E-02_JPRB,3.0486E-01_JPRB/)
+KBO( :, 3,25,10) = (/&
+&1.9217E-01_JPRB,2.0868E-01_JPRB,1.7650E-01_JPRB,1.2735E-01_JPRB,3.4236E-01_JPRB/)
+KBO( :, 4,25,10) = (/&
+&2.4870E-01_JPRB,2.6919E-01_JPRB,2.2634E-01_JPRB,1.6171E-01_JPRB,3.8148E-01_JPRB/)
+KBO( :, 5,25,10) = (/&
+&3.1377E-01_JPRB,3.3803E-01_JPRB,2.8442E-01_JPRB,2.0146E-01_JPRB,4.2272E-01_JPRB/)
+KBO( :, 1,26,10) = (/&
+&9.9675E-02_JPRB,1.0913E-01_JPRB,9.3389E-02_JPRB,6.8204E-02_JPRB,2.2702E-01_JPRB/)
+KBO( :, 2,26,10) = (/&
+&1.3608E-01_JPRB,1.4866E-01_JPRB,1.2587E-01_JPRB,9.0548E-02_JPRB,2.5831E-01_JPRB/)
+KBO( :, 3,26,10) = (/&
+&1.7987E-01_JPRB,1.9629E-01_JPRB,1.6531E-01_JPRB,1.1761E-01_JPRB,2.9077E-01_JPRB/)
+KBO( :, 4,26,10) = (/&
+&2.3141E-01_JPRB,2.5133E-01_JPRB,2.1184E-01_JPRB,1.5002E-01_JPRB,3.2521E-01_JPRB/)
+KBO( :, 5,26,10) = (/&
+&2.9168E-01_JPRB,3.1498E-01_JPRB,2.6568E-01_JPRB,1.8754E-01_JPRB,3.6164E-01_JPRB/)
+KBO( :, 1,27,10) = (/&
+&9.4961E-02_JPRB,1.0334E-01_JPRB,8.7374E-02_JPRB,6.3126E-02_JPRB,1.8683E-01_JPRB/)
+KBO( :, 2,27,10) = (/&
+&1.2783E-01_JPRB,1.3969E-01_JPRB,1.1790E-01_JPRB,8.4112E-02_JPRB,2.1332E-01_JPRB/)
+KBO( :, 3,27,10) = (/&
+&1.6762E-01_JPRB,1.8278E-01_JPRB,1.5442E-01_JPRB,1.0984E-01_JPRB,2.4142E-01_JPRB/)
+KBO( :, 4,27,10) = (/&
+&2.1518E-01_JPRB,2.3329E-01_JPRB,1.9719E-01_JPRB,1.3996E-01_JPRB,2.7159E-01_JPRB/)
+KBO( :, 5,27,10) = (/&
+&2.7088E-01_JPRB,2.9228E-01_JPRB,2.4666E-01_JPRB,1.7442E-01_JPRB,3.0352E-01_JPRB/)
+KBO( :, 1,28,10) = (/&
+&8.9894E-02_JPRB,9.7468E-02_JPRB,8.2177E-02_JPRB,5.8889E-02_JPRB,1.5060E-01_JPRB/)
+KBO( :, 2,28,10) = (/&
+&1.1988E-01_JPRB,1.3035E-01_JPRB,1.1000E-01_JPRB,7.8738E-02_JPRB,1.7287E-01_JPRB/)
+KBO( :, 3,28,10) = (/&
+&1.5649E-01_JPRB,1.6957E-01_JPRB,1.4329E-01_JPRB,1.0256E-01_JPRB,1.9707E-01_JPRB/)
+KBO( :, 4,28,10) = (/&
+&2.0046E-01_JPRB,2.1640E-01_JPRB,1.8266E-01_JPRB,1.3021E-01_JPRB,2.2305E-01_JPRB/)
+KBO( :, 5,28,10) = (/&
+&2.5209E-01_JPRB,2.7147E-01_JPRB,2.2856E-01_JPRB,1.6182E-01_JPRB,2.5048E-01_JPRB/)
+KBO( :, 1,29,10) = (/&
+&8.4975E-02_JPRB,9.1564E-02_JPRB,7.7119E-02_JPRB,5.5320E-02_JPRB,1.2031E-01_JPRB/)
+KBO( :, 2,29,10) = (/&
+&1.1279E-01_JPRB,1.2154E-01_JPRB,1.0248E-01_JPRB,7.3699E-02_JPRB,1.3921E-01_JPRB/)
+KBO( :, 3,29,10) = (/&
+&1.4673E-01_JPRB,1.5792E-01_JPRB,1.3309E-01_JPRB,9.5449E-02_JPRB,1.5984E-01_JPRB/)
+KBO( :, 4,29,10) = (/&
+&1.8741E-01_JPRB,2.0158E-01_JPRB,1.6951E-01_JPRB,1.2082E-01_JPRB,1.8203E-01_JPRB/)
+KBO( :, 5,29,10) = (/&
+&2.3506E-01_JPRB,2.5337E-01_JPRB,2.1224E-01_JPRB,1.5053E-01_JPRB,2.0549E-01_JPRB/)
+KBO( :, 1,30,10) = (/&
+&8.0540E-02_JPRB,8.5979E-02_JPRB,7.2248E-02_JPRB,5.1838E-02_JPRB,9.5257E-02_JPRB/)
+KBO( :, 2,30,10) = (/&
+&1.0659E-01_JPRB,1.1363E-01_JPRB,9.5542E-02_JPRB,6.8630E-02_JPRB,1.1116E-01_JPRB/)
+KBO( :, 3,30,10) = (/&
+&1.3811E-01_JPRB,1.4769E-01_JPRB,1.2398E-01_JPRB,8.8651E-02_JPRB,1.2851E-01_JPRB/)
+KBO( :, 4,30,10) = (/&
+&1.7576E-01_JPRB,1.8885E-01_JPRB,1.5795E-01_JPRB,1.1230E-01_JPRB,1.4704E-01_JPRB/)
+KBO( :, 5,30,10) = (/&
+&2.1968E-01_JPRB,2.3750E-01_JPRB,1.9778E-01_JPRB,1.4034E-01_JPRB,1.6746E-01_JPRB/)
+KBO( :, 1,31,10) = (/&
+&7.6568E-02_JPRB,8.1013E-02_JPRB,6.7877E-02_JPRB,4.8531E-02_JPRB,7.4566E-02_JPRB/)
+KBO( :, 2,31,10) = (/&
+&1.0109E-01_JPRB,1.0699E-01_JPRB,8.9628E-02_JPRB,6.3973E-02_JPRB,8.7642E-02_JPRB/)
+KBO( :, 3,31,10) = (/&
+&1.3062E-01_JPRB,1.3896E-01_JPRB,1.1618E-01_JPRB,8.2665E-02_JPRB,1.0209E-01_JPRB/)
+KBO( :, 4,31,10) = (/&
+&1.6550E-01_JPRB,1.7774E-01_JPRB,1.4814E-01_JPRB,1.0503E-01_JPRB,1.1802E-01_JPRB/)
+KBO( :, 5,31,10) = (/&
+&2.0675E-01_JPRB,2.2327E-01_JPRB,1.8555E-01_JPRB,1.3151E-01_JPRB,1.3544E-01_JPRB/)
+KBO( :, 1,32,10) = (/&
+&7.2888E-02_JPRB,7.6838E-02_JPRB,6.4126E-02_JPRB,4.5495E-02_JPRB,5.8817E-02_JPRB/)
+KBO( :, 2,32,10) = (/&
+&9.6267E-02_JPRB,1.0140E-01_JPRB,8.4579E-02_JPRB,5.9945E-02_JPRB,6.9773E-02_JPRB/)
+KBO( :, 3,32,10) = (/&
+&1.2398E-01_JPRB,1.3170E-01_JPRB,1.0960E-01_JPRB,7.7555E-02_JPRB,8.1997E-02_JPRB/)
+KBO( :, 4,32,10) = (/&
+&1.5682E-01_JPRB,1.6810E-01_JPRB,1.3960E-01_JPRB,9.8812E-02_JPRB,9.5528E-02_JPRB/)
+KBO( :, 5,32,10) = (/&
+&1.9594E-01_JPRB,2.1107E-01_JPRB,1.7505E-01_JPRB,1.2416E-01_JPRB,1.1090E-01_JPRB/)
+KBO( :, 1,33,10) = (/&
+&6.9635E-02_JPRB,7.3317E-02_JPRB,6.1010E-02_JPRB,4.2865E-02_JPRB,4.6660E-02_JPRB/)
+KBO( :, 2,33,10) = (/&
+&9.1701E-02_JPRB,9.6759E-02_JPRB,8.0326E-02_JPRB,5.6501E-02_JPRB,5.5833E-02_JPRB/)
+KBO( :, 3,33,10) = (/&
+&1.1801E-01_JPRB,1.2540E-01_JPRB,1.0406E-01_JPRB,7.3316E-02_JPRB,6.6138E-02_JPRB/)
+KBO( :, 4,33,10) = (/&
+&1.4953E-01_JPRB,1.5985E-01_JPRB,1.3238E-01_JPRB,9.3601E-02_JPRB,7.7808E-02_JPRB/)
+KBO( :, 5,33,10) = (/&
+&1.8727E-01_JPRB,2.0108E-01_JPRB,1.6621E-01_JPRB,1.1789E-01_JPRB,9.1029E-02_JPRB/)
+KBO( :, 1,34,10) = (/&
+&6.6051E-02_JPRB,6.9606E-02_JPRB,5.7793E-02_JPRB,4.0300E-02_JPRB,3.8390E-02_JPRB/)
+KBO( :, 2,34,10) = (/&
+&8.6850E-02_JPRB,9.2010E-02_JPRB,7.6104E-02_JPRB,5.3129E-02_JPRB,4.6300E-02_JPRB/)
+KBO( :, 3,34,10) = (/&
+&1.1190E-01_JPRB,1.1902E-01_JPRB,9.8376E-02_JPRB,6.9059E-02_JPRB,5.5243E-02_JPRB/)
+KBO( :, 4,34,10) = (/&
+&1.4227E-01_JPRB,1.5193E-01_JPRB,1.2534E-01_JPRB,8.8424E-02_JPRB,6.5503E-02_JPRB/)
+KBO( :, 5,34,10) = (/&
+&1.7893E-01_JPRB,1.9164E-01_JPRB,1.5780E-01_JPRB,1.1159E-01_JPRB,7.7108E-02_JPRB/)
+KBO( :, 1,35,10) = (/&
+&6.1061E-02_JPRB,6.4589E-02_JPRB,5.3472E-02_JPRB,3.7076E-02_JPRB,3.0936E-02_JPRB/)
+KBO( :, 2,35,10) = (/&
+&8.0413E-02_JPRB,8.5518E-02_JPRB,7.0631E-02_JPRB,4.9033E-02_JPRB,3.7630E-02_JPRB/)
+KBO( :, 3,35,10) = (/&
+&1.0418E-01_JPRB,1.1098E-01_JPRB,9.1376E-02_JPRB,6.3892E-02_JPRB,4.5348E-02_JPRB/)
+KBO( :, 4,35,10) = (/&
+&1.3326E-01_JPRB,1.4218E-01_JPRB,1.1684E-01_JPRB,8.2004E-02_JPRB,5.4177E-02_JPRB/)
+KBO( :, 5,35,10) = (/&
+&1.6818E-01_JPRB,1.8014E-01_JPRB,1.4791E-01_JPRB,1.0383E-01_JPRB,6.4352E-02_JPRB/)
+KBO( :, 1,36,10) = (/&
+&5.4859E-02_JPRB,5.8269E-02_JPRB,4.8182E-02_JPRB,3.3253E-02_JPRB,2.4204E-02_JPRB/)
+KBO( :, 2,36,10) = (/&
+&7.2626E-02_JPRB,7.7491E-02_JPRB,6.3949E-02_JPRB,4.4186E-02_JPRB,2.9747E-02_JPRB/)
+KBO( :, 3,36,10) = (/&
+&9.4867E-02_JPRB,1.0121E-01_JPRB,8.3126E-02_JPRB,5.7761E-02_JPRB,3.6183E-02_JPRB/)
+KBO( :, 4,36,10) = (/&
+&1.2215E-01_JPRB,1.3045E-01_JPRB,1.0693E-01_JPRB,7.4445E-02_JPRB,4.3693E-02_JPRB/)
+KBO( :, 5,36,10) = (/&
+&1.5514E-01_JPRB,1.6646E-01_JPRB,1.3613E-01_JPRB,9.4760E-02_JPRB,5.2444E-02_JPRB/)
+KBO( :, 1,37,10) = (/&
+&4.7230E-02_JPRB,5.0376E-02_JPRB,4.1606E-02_JPRB,2.8650E-02_JPRB,1.9576E-02_JPRB/)
+KBO( :, 2,37,10) = (/&
+&6.3162E-02_JPRB,6.7559E-02_JPRB,5.5737E-02_JPRB,3.8366E-02_JPRB,2.4307E-02_JPRB/)
+KBO( :, 3,37,10) = (/&
+&8.3382E-02_JPRB,8.9100E-02_JPRB,7.3096E-02_JPRB,5.0404E-02_JPRB,2.9845E-02_JPRB/)
+KBO( :, 4,37,10) = (/&
+&1.0831E-01_JPRB,1.1578E-01_JPRB,9.4747E-02_JPRB,6.5399E-02_JPRB,3.6334E-02_JPRB/)
+KBO( :, 5,37,10) = (/&
+&1.3872E-01_JPRB,1.4912E-01_JPRB,1.2153E-01_JPRB,8.3890E-02_JPRB,4.3970E-02_JPRB/)
+KBO( :, 1,38,10) = (/&
+&4.0594E-02_JPRB,4.3482E-02_JPRB,3.5882E-02_JPRB,2.4652E-02_JPRB,1.5796E-02_JPRB/)
+KBO( :, 2,38,10) = (/&
+&5.4893E-02_JPRB,5.8859E-02_JPRB,4.8535E-02_JPRB,3.3342E-02_JPRB,1.9838E-02_JPRB/)
+KBO( :, 3,38,10) = (/&
+&7.3270E-02_JPRB,7.8442E-02_JPRB,6.4299E-02_JPRB,4.4057E-02_JPRB,2.4587E-02_JPRB/)
+KBO( :, 4,38,10) = (/&
+&9.6131E-02_JPRB,1.0297E-01_JPRB,8.4062E-02_JPRB,5.7542E-02_JPRB,3.0194E-02_JPRB/)
+KBO( :, 5,38,10) = (/&
+&1.2425E-01_JPRB,1.3371E-01_JPRB,1.0871E-01_JPRB,7.4376E-02_JPRB,3.6826E-02_JPRB/)
+KBO( :, 1,39,10) = (/&
+&3.4960E-02_JPRB,3.7584E-02_JPRB,3.1001E-02_JPRB,2.1253E-02_JPRB,1.2659E-02_JPRB/)
+KBO( :, 2,39,10) = (/&
+&4.7796E-02_JPRB,5.1412E-02_JPRB,4.2333E-02_JPRB,2.9006E-02_JPRB,1.6073E-02_JPRB/)
+KBO( :, 3,39,10) = (/&
+&6.4510E-02_JPRB,6.9244E-02_JPRB,5.6690E-02_JPRB,3.8671E-02_JPRB,2.0130E-02_JPRB/)
+KBO( :, 4,39,10) = (/&
+&8.5561E-02_JPRB,9.1904E-02_JPRB,7.4800E-02_JPRB,5.0873E-02_JPRB,2.4941E-02_JPRB/)
+KBO( :, 5,39,10) = (/&
+&1.1163E-01_JPRB,1.2022E-01_JPRB,9.7628E-02_JPRB,6.6235E-02_JPRB,3.0668E-02_JPRB/)
+KBO( :, 1,40,10) = (/&
+&2.9268E-02_JPRB,3.1482E-02_JPRB,2.5935E-02_JPRB,1.7721E-02_JPRB,1.0217E-02_JPRB/)
+KBO( :, 2,40,10) = (/&
+&4.0459E-02_JPRB,4.3586E-02_JPRB,3.5852E-02_JPRB,2.4486E-02_JPRB,1.3110E-02_JPRB/)
+KBO( :, 3,40,10) = (/&
+&5.5229E-02_JPRB,5.9449E-02_JPRB,4.8588E-02_JPRB,3.3038E-02_JPRB,1.6586E-02_JPRB/)
+KBO( :, 4,40,10) = (/&
+&7.4117E-02_JPRB,7.9872E-02_JPRB,6.4885E-02_JPRB,4.3907E-02_JPRB,2.0725E-02_JPRB/)
+KBO( :, 5,40,10) = (/&
+&9.7865E-02_JPRB,1.0550E-01_JPRB,8.5568E-02_JPRB,5.7643E-02_JPRB,2.5662E-02_JPRB/)
+KBO( :, 1,41,10) = (/&
+&2.4397E-02_JPRB,2.6231E-02_JPRB,2.1586E-02_JPRB,1.4682E-02_JPRB,8.2353E-03_JPRB/)
+KBO( :, 2,41,10) = (/&
+&3.4139E-02_JPRB,3.6786E-02_JPRB,3.0230E-02_JPRB,2.0568E-02_JPRB,1.0674E-02_JPRB/)
+KBO( :, 3,41,10) = (/&
+&4.7106E-02_JPRB,5.0858E-02_JPRB,4.1459E-02_JPRB,2.8115E-02_JPRB,1.3635E-02_JPRB/)
+KBO( :, 4,41,10) = (/&
+&6.4000E-02_JPRB,6.9180E-02_JPRB,5.6062E-02_JPRB,3.7799E-02_JPRB,1.7204E-02_JPRB/)
+KBO( :, 5,41,10) = (/&
+&8.5517E-02_JPRB,9.2400E-02_JPRB,7.4782E-02_JPRB,5.0099E-02_JPRB,2.1450E-02_JPRB/)
+KBO( :, 1,42,10) = (/&
+&2.0268E-02_JPRB,2.1845E-02_JPRB,1.7956E-02_JPRB,1.2140E-02_JPRB,6.5991E-03_JPRB/)
+KBO( :, 2,42,10) = (/&
+&2.8789E-02_JPRB,3.1021E-02_JPRB,2.5467E-02_JPRB,1.7246E-02_JPRB,8.6477E-03_JPRB/)
+KBO( :, 3,42,10) = (/&
+&4.0194E-02_JPRB,4.3474E-02_JPRB,3.5363E-02_JPRB,2.3902E-02_JPRB,1.1154E-02_JPRB/)
+KBO( :, 4,42,10) = (/&
+&5.5258E-02_JPRB,5.9919E-02_JPRB,4.8429E-02_JPRB,3.2536E-02_JPRB,1.4210E-02_JPRB/)
+KBO( :, 5,42,10) = (/&
+&7.4696E-02_JPRB,8.0962E-02_JPRB,6.5393E-02_JPRB,4.3618E-02_JPRB,1.7849E-02_JPRB/)
+KBO( :, 1,43,10) = (/&
+&1.6426E-02_JPRB,1.7804E-02_JPRB,1.4613E-02_JPRB,9.8050E-03_JPRB,5.2617E-03_JPRB/)
+KBO( :, 2,43,10) = (/&
+&2.3747E-02_JPRB,2.5630E-02_JPRB,2.1011E-02_JPRB,1.4160E-02_JPRB,6.9847E-03_JPRB/)
+KBO( :, 3,43,10) = (/&
+&3.3653E-02_JPRB,3.6412E-02_JPRB,2.9592E-02_JPRB,1.9925E-02_JPRB,9.1040E-03_JPRB/)
+KBO( :, 4,43,10) = (/&
+&4.6868E-02_JPRB,5.0938E-02_JPRB,4.1108E-02_JPRB,2.7526E-02_JPRB,1.1710E-02_JPRB/)
+KBO( :, 5,43,10) = (/&
+&6.4129E-02_JPRB,6.9760E-02_JPRB,5.6238E-02_JPRB,3.7383E-02_JPRB,1.4823E-02_JPRB/)
+KBO( :, 1,44,10) = (/&
+&1.3100E-02_JPRB,1.4316E-02_JPRB,1.1742E-02_JPRB,7.8185E-03_JPRB,4.1731E-03_JPRB/)
+KBO( :, 2,44,10) = (/&
+&1.9306E-02_JPRB,2.0946E-02_JPRB,1.7130E-02_JPRB,1.1488E-02_JPRB,5.6253E-03_JPRB/)
+KBO( :, 3,44,10) = (/&
+&2.7839E-02_JPRB,3.0159E-02_JPRB,2.4497E-02_JPRB,1.6420E-02_JPRB,7.4177E-03_JPRB/)
+KBO( :, 4,44,10) = (/&
+&3.9351E-02_JPRB,4.2845E-02_JPRB,3.4542E-02_JPRB,2.3036E-02_JPRB,9.6323E-03_JPRB/)
+KBO( :, 5,44,10) = (/&
+&5.4545E-02_JPRB,5.9565E-02_JPRB,4.7916E-02_JPRB,3.1766E-02_JPRB,1.2297E-02_JPRB/)
+KBO( :, 1,45,10) = (/&
+&1.0365E-02_JPRB,1.1432E-02_JPRB,9.3767E-03_JPRB,6.2117E-03_JPRB,3.2839E-03_JPRB/)
+KBO( :, 2,45,10) = (/&
+&1.5589E-02_JPRB,1.7063E-02_JPRB,1.3930E-02_JPRB,9.2859E-03_JPRB,4.5005E-03_JPRB/)
+KBO( :, 3,45,10) = (/&
+&2.2910E-02_JPRB,2.4924E-02_JPRB,2.0227E-02_JPRB,1.3494E-02_JPRB,6.0165E-03_JPRB/)
+KBO( :, 4,45,10) = (/&
+&3.2938E-02_JPRB,3.5933E-02_JPRB,2.8944E-02_JPRB,1.9215E-02_JPRB,7.8901E-03_JPRB/)
+KBO( :, 5,45,10) = (/&
+&4.6288E-02_JPRB,5.0739E-02_JPRB,4.0755E-02_JPRB,2.6930E-02_JPRB,1.0163E-02_JPRB/)
+KBO( :, 1,46,10) = (/&
+&8.0611E-03_JPRB,8.9687E-03_JPRB,7.3616E-03_JPRB,4.8649E-03_JPRB,2.5630E-03_JPRB/)
+KBO( :, 2,46,10) = (/&
+&1.2384E-02_JPRB,1.3700E-02_JPRB,1.1187E-02_JPRB,7.4141E-03_JPRB,3.5736E-03_JPRB/)
+KBO( :, 3,46,10) = (/&
+&1.8589E-02_JPRB,2.0376E-02_JPRB,1.6514E-02_JPRB,1.0949E-02_JPRB,4.8546E-03_JPRB/)
+KBO( :, 4,46,10) = (/&
+&2.7228E-02_JPRB,2.9798E-02_JPRB,2.3986E-02_JPRB,1.5867E-02_JPRB,6.4395E-03_JPRB/)
+KBO( :, 5,46,10) = (/&
+&3.8907E-02_JPRB,4.2772E-02_JPRB,3.4328E-02_JPRB,2.2598E-02_JPRB,8.3793E-03_JPRB/)
+KBO( :, 1,47,10) = (/&
+&6.0942E-03_JPRB,6.8373E-03_JPRB,5.6151E-03_JPRB,3.7108E-03_JPRB,1.9874E-03_JPRB/)
+KBO( :, 2,47,10) = (/&
+&9.5830E-03_JPRB,1.0720E-02_JPRB,8.7687E-03_JPRB,5.7830E-03_JPRB,2.8149E-03_JPRB/)
+KBO( :, 3,47,10) = (/&
+&1.4719E-02_JPRB,1.6286E-02_JPRB,1.3206E-02_JPRB,8.7082E-03_JPRB,3.8989E-03_JPRB/)
+KBO( :, 4,47,10) = (/&
+&2.2034E-02_JPRB,2.4248E-02_JPRB,1.9496E-02_JPRB,1.2839E-02_JPRB,5.2464E-03_JPRB/)
+KBO( :, 5,47,10) = (/&
+&3.2068E-02_JPRB,3.5385E-02_JPRB,2.8366E-02_JPRB,1.8611E-02_JPRB,6.9087E-03_JPRB/)
+KBO( :, 1,48,10) = (/&
+&4.5510E-03_JPRB,5.1515E-03_JPRB,4.2286E-03_JPRB,2.7938E-03_JPRB,1.5324E-03_JPRB/)
+KBO( :, 2,48,10) = (/&
+&7.3293E-03_JPRB,8.3022E-03_JPRB,6.7958E-03_JPRB,4.4708E-03_JPRB,2.2018E-03_JPRB/)
+KBO( :, 3,48,10) = (/&
+&1.1532E-02_JPRB,1.2909E-02_JPRB,1.0485E-02_JPRB,6.8896E-03_JPRB,3.1032E-03_JPRB/)
+KBO( :, 4,48,10) = (/&
+&1.7669E-02_JPRB,1.9619E-02_JPRB,1.5768E-02_JPRB,1.0334E-02_JPRB,4.2526E-03_JPRB/)
+KBO( :, 5,48,10) = (/&
+&2.6263E-02_JPRB,2.9134E-02_JPRB,2.3325E-02_JPRB,1.5244E-02_JPRB,5.6768E-03_JPRB/)
+KBO( :, 1,49,10) = (/&
+&3.3560E-03_JPRB,3.8327E-03_JPRB,3.1391E-03_JPRB,2.0743E-03_JPRB,1.1802E-03_JPRB/)
+KBO( :, 2,49,10) = (/&
+&5.5342E-03_JPRB,6.3542E-03_JPRB,5.1981E-03_JPRB,3.4211E-03_JPRB,1.7096E-03_JPRB/)
+KBO( :, 3,49,10) = (/&
+&8.9294E-03_JPRB,1.0143E-02_JPRB,8.2468E-03_JPRB,5.4196E-03_JPRB,2.4470E-03_JPRB/)
+KBO( :, 4,49,10) = (/&
+&1.4024E-02_JPRB,1.5765E-02_JPRB,1.2684E-02_JPRB,8.2734E-03_JPRB,3.4129E-03_JPRB/)
+KBO( :, 5,49,10) = (/&
+&2.1352E-02_JPRB,2.3866E-02_JPRB,1.9075E-02_JPRB,1.2411E-02_JPRB,4.6279E-03_JPRB/)
+KBO( :, 1,50,10) = (/&
+&2.4929E-03_JPRB,2.8632E-03_JPRB,2.3379E-03_JPRB,1.5440E-03_JPRB,9.3225E-04_JPRB/)
+KBO( :, 2,50,10) = (/&
+&4.2029E-03_JPRB,4.8752E-03_JPRB,3.9805E-03_JPRB,2.6198E-03_JPRB,1.3576E-03_JPRB/)
+KBO( :, 3,50,10) = (/&
+&6.9325E-03_JPRB,7.9925E-03_JPRB,6.4974E-03_JPRB,4.2674E-03_JPRB,1.9613E-03_JPRB/)
+KBO( :, 4,50,10) = (/&
+&1.1158E-02_JPRB,1.2709E-02_JPRB,1.0229E-02_JPRB,6.6644E-03_JPRB,2.7832E-03_JPRB/)
+KBO( :, 5,50,10) = (/&
+&1.7403E-02_JPRB,1.9642E-02_JPRB,1.5691E-02_JPRB,1.0155E-02_JPRB,3.8333E-03_JPRB/)
+KBO( :, 1,51,10) = (/&
+&1.8532E-03_JPRB,2.1364E-03_JPRB,1.7376E-03_JPRB,1.1454E-03_JPRB,7.4878E-04_JPRB/)
+KBO( :, 2,51,10) = (/&
+&3.1888E-03_JPRB,3.7291E-03_JPRB,3.0357E-03_JPRB,1.9945E-03_JPRB,1.0922E-03_JPRB/)
+KBO( :, 3,51,10) = (/&
+&5.3638E-03_JPRB,6.2780E-03_JPRB,5.0968E-03_JPRB,3.3419E-03_JPRB,1.5858E-03_JPRB/)
+KBO( :, 4,51,10) = (/&
+&8.8501E-03_JPRB,1.0219E-02_JPRB,8.2277E-03_JPRB,5.3639E-03_JPRB,2.2832E-03_JPRB/)
+KBO( :, 5,51,10) = (/&
+&1.4149E-02_JPRB,1.6146E-02_JPRB,1.2912E-02_JPRB,8.3171E-03_JPRB,3.2000E-03_JPRB/)
+KBO( :, 1,52,10) = (/&
+&1.3628E-03_JPRB,1.5783E-03_JPRB,1.2808E-03_JPRB,8.4055E-04_JPRB,6.0012E-04_JPRB/)
+KBO( :, 2,52,10) = (/&
+&2.4017E-03_JPRB,2.8236E-03_JPRB,2.2905E-03_JPRB,1.5011E-03_JPRB,8.8126E-04_JPRB/)
+KBO( :, 3,52,10) = (/&
+&4.1169E-03_JPRB,4.8815E-03_JPRB,3.9607E-03_JPRB,2.5906E-03_JPRB,1.2847E-03_JPRB/)
+KBO( :, 4,52,10) = (/&
+&6.9536E-03_JPRB,8.1559E-03_JPRB,6.5664E-03_JPRB,4.2815E-03_JPRB,1.8638E-03_JPRB/)
+KBO( :, 5,52,10) = (/&
+&1.1409E-02_JPRB,1.3194E-02_JPRB,1.0553E-02_JPRB,6.7875E-03_JPRB,2.6534E-03_JPRB/)
+KBO( :, 1,53,10) = (/&
+&9.8606E-04_JPRB,1.1540E-03_JPRB,9.3384E-04_JPRB,6.1040E-04_JPRB,4.7709E-04_JPRB/)
+KBO( :, 2,53,10) = (/&
+&1.7920E-03_JPRB,2.1145E-03_JPRB,1.7063E-03_JPRB,1.1169E-03_JPRB,7.1312E-04_JPRB/)
+KBO( :, 3,53,10) = (/&
+&3.1294E-03_JPRB,3.7546E-03_JPRB,3.0421E-03_JPRB,1.9861E-03_JPRB,1.0419E-03_JPRB/)
+KBO( :, 4,53,10) = (/&
+&5.4059E-03_JPRB,6.4522E-03_JPRB,5.1921E-03_JPRB,3.3816E-03_JPRB,1.5130E-03_JPRB/)
+KBO( :, 5,53,10) = (/&
+&9.1118E-03_JPRB,1.0696E-02_JPRB,8.5534E-03_JPRB,5.5066E-03_JPRB,2.1843E-03_JPRB/)
+KBO( :, 1,54,10) = (/&
+&7.2513E-04_JPRB,8.5732E-04_JPRB,6.9183E-04_JPRB,4.5039E-04_JPRB,3.8769E-04_JPRB/)
+KBO( :, 2,54,10) = (/&
+&1.3639E-03_JPRB,1.6067E-03_JPRB,1.2902E-03_JPRB,8.3972E-04_JPRB,5.9341E-04_JPRB/)
+KBO( :, 3,54,10) = (/&
+&2.4214E-03_JPRB,2.9176E-03_JPRB,2.3545E-03_JPRB,1.5328E-03_JPRB,8.7214E-04_JPRB/)
+KBO( :, 4,54,10) = (/&
+&4.2490E-03_JPRB,5.1414E-03_JPRB,4.1362E-03_JPRB,2.6851E-03_JPRB,1.2710E-03_JPRB/)
+KBO( :, 5,54,10) = (/&
+&7.3277E-03_JPRB,8.7352E-03_JPRB,6.9866E-03_JPRB,4.4974E-03_JPRB,1.8463E-03_JPRB/)
+KBO( :, 1,55,10) = (/&
+&5.3536E-04_JPRB,6.3819E-04_JPRB,5.1429E-04_JPRB,3.3384E-04_JPRB,3.1787E-04_JPRB/)
+KBO( :, 2,55,10) = (/&
+&1.0434E-03_JPRB,1.2286E-03_JPRB,9.8197E-04_JPRB,6.3464E-04_JPRB,5.0051E-04_JPRB/)
+KBO( :, 3,55,10) = (/&
+&1.8896E-03_JPRB,2.2759E-03_JPRB,1.8255E-03_JPRB,1.1820E-03_JPRB,7.4689E-04_JPRB/)
+KBO( :, 4,55,10) = (/&
+&3.3543E-03_JPRB,4.1000E-03_JPRB,3.2922E-03_JPRB,2.1289E-03_JPRB,1.0910E-03_JPRB/)
+KBO( :, 5,55,10) = (/&
+&5.8957E-03_JPRB,7.1360E-03_JPRB,5.7072E-03_JPRB,3.6721E-03_JPRB,1.5883E-03_JPRB/)
+KBO( :, 1,56,10) = (/&
+&3.9041E-04_JPRB,4.6983E-04_JPRB,3.7827E-04_JPRB,2.4495E-04_JPRB,2.5822E-04_JPRB/)
+KBO( :, 2,56,10) = (/&
+&7.9041E-04_JPRB,9.3554E-04_JPRB,7.4444E-04_JPRB,4.7743E-04_JPRB,4.2098E-04_JPRB/)
+KBO( :, 3,56,10) = (/&
+&1.4711E-03_JPRB,1.7706E-03_JPRB,1.4085E-03_JPRB,9.0462E-04_JPRB,6.4135E-04_JPRB/)
+KBO( :, 4,56,10) = (/&
+&2.6410E-03_JPRB,3.2487E-03_JPRB,2.5994E-03_JPRB,1.6753E-03_JPRB,9.4189E-04_JPRB/)
+KBO( :, 5,56,10) = (/&
+&4.7180E-03_JPRB,5.7942E-03_JPRB,4.6339E-03_JPRB,2.9753E-03_JPRB,1.3744E-03_JPRB/)
+KBO( :, 1,57,10) = (/&
+&2.8112E-04_JPRB,3.4134E-04_JPRB,2.7460E-04_JPRB,1.7739E-04_JPRB,2.0810E-04_JPRB/)
+KBO( :, 2,57,10) = (/&
+&5.9233E-04_JPRB,7.0612E-04_JPRB,5.6036E-04_JPRB,3.5724E-04_JPRB,3.5218E-04_JPRB/)
+KBO( :, 3,57,10) = (/&
+&1.1404E-03_JPRB,1.3698E-03_JPRB,1.0818E-03_JPRB,6.8867E-04_JPRB,5.5095E-04_JPRB/)
+KBO( :, 4,57,10) = (/&
+&2.0756E-03_JPRB,2.5598E-03_JPRB,2.0389E-03_JPRB,1.3071E-03_JPRB,8.1947E-04_JPRB/)
+KBO( :, 5,57,10) = (/&
+&3.7565E-03_JPRB,4.6715E-03_JPRB,3.7372E-03_JPRB,2.3897E-03_JPRB,1.1970E-03_JPRB/)
+KBO( :, 1,58,10) = (/&
+&2.0287E-04_JPRB,2.4841E-04_JPRB,1.9950E-04_JPRB,1.2870E-04_JPRB,1.6873E-04_JPRB/)
+KBO( :, 2,58,10) = (/&
+&4.4472E-04_JPRB,5.3470E-04_JPRB,4.2292E-04_JPRB,2.6899E-04_JPRB,2.9556E-04_JPRB/)
+KBO( :, 3,58,10) = (/&
+&8.8909E-04_JPRB,1.0668E-03_JPRB,8.3669E-04_JPRB,5.2917E-04_JPRB,4.7698E-04_JPRB/)
+KBO( :, 4,58,10) = (/&
+&1.6472E-03_JPRB,2.0319E-03_JPRB,1.6079E-03_JPRB,1.0235E-03_JPRB,7.2222E-04_JPRB/)
+KBO( :, 5,58,10) = (/&
+&3.0142E-03_JPRB,3.7808E-03_JPRB,3.0200E-03_JPRB,1.9230E-03_JPRB,1.0578E-03_JPRB/)
+KBO( :, 1,59,10) = (/&
+&1.7264E-04_JPRB,2.1252E-04_JPRB,1.6979E-04_JPRB,1.0877E-04_JPRB,1.5535E-04_JPRB/)
+KBO( :, 2,59,10) = (/&
+&3.8844E-04_JPRB,4.6892E-04_JPRB,3.6892E-04_JPRB,2.3285E-04_JPRB,2.7770E-04_JPRB/)
+KBO( :, 3,59,10) = (/&
+&7.9313E-04_JPRB,9.5358E-04_JPRB,7.4242E-04_JPRB,4.6490E-04_JPRB,4.5611E-04_JPRB/)
+KBO( :, 4,59,10) = (/&
+&1.4888E-03_JPRB,1.8362E-03_JPRB,1.4437E-03_JPRB,9.0907E-04_JPRB,6.9878E-04_JPRB/)
+KBO( :, 5,59,10) = (/&
+&2.7412E-03_JPRB,3.4444E-03_JPRB,2.7403E-03_JPRB,1.7293E-03_JPRB,1.0280E-03_JPRB/)
+KBO( :, 1,13,11) = (/&
+&4.6582E-01_JPRB,4.3126E-01_JPRB,3.9148E-01_JPRB,2.9782E-01_JPRB,2.0038E+00_JPRB/)
+KBO( :, 2,13,11) = (/&
+&6.6015E-01_JPRB,6.1362E-01_JPRB,5.5564E-01_JPRB,4.1997E-01_JPRB,2.1506E+00_JPRB/)
+KBO( :, 3,13,11) = (/&
+&8.9186E-01_JPRB,8.3255E-01_JPRB,7.5032E-01_JPRB,5.6975E-01_JPRB,2.2970E+00_JPRB/)
+KBO( :, 4,13,11) = (/&
+&1.1586E+00_JPRB,1.0869E+00_JPRB,9.7359E-01_JPRB,7.4196E-01_JPRB,2.4271E+00_JPRB/)
+KBO( :, 5,13,11) = (/&
+&1.4563E+00_JPRB,1.3761E+00_JPRB,1.2287E+00_JPRB,9.3624E-01_JPRB,2.5537E+00_JPRB/)
+KBO( :, 1,14,11) = (/&
+&4.6622E-01_JPRB,4.4694E-01_JPRB,4.0621E-01_JPRB,3.0517E-01_JPRB,1.9239E+00_JPRB/)
+KBO( :, 2,14,11) = (/&
+&6.5626E-01_JPRB,6.3097E-01_JPRB,5.7029E-01_JPRB,4.3017E-01_JPRB,2.0659E+00_JPRB/)
+KBO( :, 3,14,11) = (/&
+&8.8153E-01_JPRB,8.5029E-01_JPRB,7.6391E-01_JPRB,5.8015E-01_JPRB,2.1968E+00_JPRB/)
+KBO( :, 4,14,11) = (/&
+&1.1396E+00_JPRB,1.1043E+00_JPRB,9.8836E-01_JPRB,7.5006E-01_JPRB,2.3180E+00_JPRB/)
+KBO( :, 5,14,11) = (/&
+&1.4290E+00_JPRB,1.3870E+00_JPRB,1.2407E+00_JPRB,9.4051E-01_JPRB,2.4548E+00_JPRB/)
+KBO( :, 1,15,11) = (/&
+&4.5814E-01_JPRB,4.5398E-01_JPRB,4.1054E-01_JPRB,3.0839E-01_JPRB,1.6835E+00_JPRB/)
+KBO( :, 2,15,11) = (/&
+&6.4005E-01_JPRB,6.3563E-01_JPRB,5.7202E-01_JPRB,4.3265E-01_JPRB,1.8044E+00_JPRB/)
+KBO( :, 3,15,11) = (/&
+&8.5481E-01_JPRB,8.5188E-01_JPRB,7.6325E-01_JPRB,5.7776E-01_JPRB,1.9216E+00_JPRB/)
+KBO( :, 4,15,11) = (/&
+&1.1011E+00_JPRB,1.0984E+00_JPRB,9.8470E-01_JPRB,7.4242E-01_JPRB,2.0480E+00_JPRB/)
+KBO( :, 5,15,11) = (/&
+&1.3789E+00_JPRB,1.3707E+00_JPRB,1.2263E+00_JPRB,9.2692E-01_JPRB,2.1662E+00_JPRB/)
+KBO( :, 1,16,11) = (/&
+&4.3936E-01_JPRB,4.5055E-01_JPRB,4.0610E-01_JPRB,3.0607E-01_JPRB,1.3891E+00_JPRB/)
+KBO( :, 2,16,11) = (/&
+&6.0980E-01_JPRB,6.2580E-01_JPRB,5.6205E-01_JPRB,4.2411E-01_JPRB,1.4937E+00_JPRB/)
+KBO( :, 3,16,11) = (/&
+&8.1051E-01_JPRB,8.3041E-01_JPRB,7.4762E-01_JPRB,5.6219E-01_JPRB,1.6024E+00_JPRB/)
+KBO( :, 4,16,11) = (/&
+&1.0423E+00_JPRB,1.0629E+00_JPRB,9.5636E-01_JPRB,7.1926E-01_JPRB,1.7074E+00_JPRB/)
+KBO( :, 5,16,11) = (/&
+&1.3012E+00_JPRB,1.3270E+00_JPRB,1.1867E+00_JPRB,8.9662E-01_JPRB,1.8065E+00_JPRB/)
+KBO( :, 1,17,11) = (/&
+&4.1226E-01_JPRB,4.3606E-01_JPRB,3.9203E-01_JPRB,2.9614E-01_JPRB,1.1476E+00_JPRB/)
+KBO( :, 2,17,11) = (/&
+&5.6889E-01_JPRB,6.0078E-01_JPRB,5.4100E-01_JPRB,4.0607E-01_JPRB,1.2378E+00_JPRB/)
+KBO( :, 3,17,11) = (/&
+&7.5475E-01_JPRB,7.9223E-01_JPRB,7.1421E-01_JPRB,5.3429E-01_JPRB,1.3294E+00_JPRB/)
+KBO( :, 4,17,11) = (/&
+&9.6747E-01_JPRB,1.0124E+00_JPRB,9.0807E-01_JPRB,6.8194E-01_JPRB,1.4124E+00_JPRB/)
+KBO( :, 5,17,11) = (/&
+&1.1994E+00_JPRB,1.2593E+00_JPRB,1.1261E+00_JPRB,8.5185E-01_JPRB,1.4955E+00_JPRB/)
+KBO( :, 1,18,11) = (/&
+&3.8064E-01_JPRB,4.1279E-01_JPRB,3.7089E-01_JPRB,2.7981E-01_JPRB,9.7150E-01_JPRB/)
+KBO( :, 2,18,11) = (/&
+&5.2358E-01_JPRB,5.6462E-01_JPRB,5.0829E-01_JPRB,3.8105E-01_JPRB,1.0549E+00_JPRB/)
+KBO( :, 3,18,11) = (/&
+&6.9263E-01_JPRB,7.4312E-01_JPRB,6.6621E-01_JPRB,4.9871E-01_JPRB,1.1339E+00_JPRB/)
+KBO( :, 4,18,11) = (/&
+&8.8229E-01_JPRB,9.4872E-01_JPRB,8.4607E-01_JPRB,6.3576E-01_JPRB,1.2109E+00_JPRB/)
+KBO( :, 5,18,11) = (/&
+&1.0918E+00_JPRB,1.1715E+00_JPRB,1.0485E+00_JPRB,7.9321E-01_JPRB,1.2966E+00_JPRB/)
+KBO( :, 1,19,11) = (/&
+&3.4707E-01_JPRB,3.8254E-01_JPRB,3.4362E-01_JPRB,2.5858E-01_JPRB,8.6524E-01_JPRB/)
+KBO( :, 2,19,11) = (/&
+&4.7624E-01_JPRB,5.2177E-01_JPRB,4.6660E-01_JPRB,3.5041E-01_JPRB,9.4567E-01_JPRB/)
+KBO( :, 3,19,11) = (/&
+&6.2671E-01_JPRB,6.8651E-01_JPRB,6.0965E-01_JPRB,4.5831E-01_JPRB,1.0244E+00_JPRB/)
+KBO( :, 4,19,11) = (/&
+&7.9653E-01_JPRB,8.7098E-01_JPRB,7.7442E-01_JPRB,5.8401E-01_JPRB,1.1073E+00_JPRB/)
+KBO( :, 5,19,11) = (/&
+&9.8427E-01_JPRB,1.0726E+00_JPRB,9.5997E-01_JPRB,7.2540E-01_JPRB,1.1966E+00_JPRB/)
+KBO( :, 1,20,11) = (/&
+&3.1567E-01_JPRB,3.5181E-01_JPRB,3.1444E-01_JPRB,2.3622E-01_JPRB,8.0158E-01_JPRB/)
+KBO( :, 2,20,11) = (/&
+&4.3131E-01_JPRB,4.7923E-01_JPRB,4.2436E-01_JPRB,3.1880E-01_JPRB,8.8081E-01_JPRB/)
+KBO( :, 3,20,11) = (/&
+&5.6512E-01_JPRB,6.2700E-01_JPRB,5.5312E-01_JPRB,4.1741E-01_JPRB,9.6113E-01_JPRB/)
+KBO( :, 4,20,11) = (/&
+&7.1661E-01_JPRB,7.9159E-01_JPRB,7.0178E-01_JPRB,5.3032E-01_JPRB,1.0489E+00_JPRB/)
+KBO( :, 5,20,11) = (/&
+&8.8236E-01_JPRB,9.7468E-01_JPRB,8.6952E-01_JPRB,6.5743E-01_JPRB,1.1372E+00_JPRB/)
+KBO( :, 1,21,11) = (/&
+&2.8592E-01_JPRB,3.2074E-01_JPRB,2.8394E-01_JPRB,2.1333E-01_JPRB,7.4290E-01_JPRB/)
+KBO( :, 2,21,11) = (/&
+&3.8826E-01_JPRB,4.3502E-01_JPRB,3.8223E-01_JPRB,2.8797E-01_JPRB,8.2178E-01_JPRB/)
+KBO( :, 3,21,11) = (/&
+&5.0741E-01_JPRB,5.6572E-01_JPRB,4.9792E-01_JPRB,3.7590E-01_JPRB,9.0519E-01_JPRB/)
+KBO( :, 4,21,11) = (/&
+&6.4058E-01_JPRB,7.1340E-01_JPRB,6.3080E-01_JPRB,4.7663E-01_JPRB,9.9225E-01_JPRB/)
+KBO( :, 5,21,11) = (/&
+&7.8811E-01_JPRB,8.7944E-01_JPRB,7.7953E-01_JPRB,5.8917E-01_JPRB,1.0812E+00_JPRB/)
+KBO( :, 1,22,11) = (/&
+&2.6349E-01_JPRB,2.9660E-01_JPRB,2.5964E-01_JPRB,1.9557E-01_JPRB,6.7570E-01_JPRB/)
+KBO( :, 2,22,11) = (/&
+&3.5527E-01_JPRB,3.9835E-01_JPRB,3.4850E-01_JPRB,2.6305E-01_JPRB,7.5224E-01_JPRB/)
+KBO( :, 3,22,11) = (/&
+&4.6050E-01_JPRB,5.1538E-01_JPRB,4.5315E-01_JPRB,3.4161E-01_JPRB,8.3620E-01_JPRB/)
+KBO( :, 4,22,11) = (/&
+&5.8034E-01_JPRB,6.4971E-01_JPRB,5.7124E-01_JPRB,4.3148E-01_JPRB,9.2191E-01_JPRB/)
+KBO( :, 5,22,11) = (/&
+&7.1598E-01_JPRB,7.9992E-01_JPRB,7.0387E-01_JPRB,5.3098E-01_JPRB,1.0108E+00_JPRB/)
+KBO( :, 1,23,11) = (/&
+&2.4294E-01_JPRB,2.7306E-01_JPRB,2.3732E-01_JPRB,1.7872E-01_JPRB,6.0705E-01_JPRB/)
+KBO( :, 2,23,11) = (/&
+&3.2497E-01_JPRB,3.6372E-01_JPRB,3.1788E-01_JPRB,2.3869E-01_JPRB,6.8421E-01_JPRB/)
+KBO( :, 3,23,11) = (/&
+&4.2067E-01_JPRB,4.6941E-01_JPRB,4.1072E-01_JPRB,3.0874E-01_JPRB,7.6600E-01_JPRB/)
+KBO( :, 4,23,11) = (/&
+&5.3164E-01_JPRB,5.9097E-01_JPRB,5.1614E-01_JPRB,3.8792E-01_JPRB,8.5300E-01_JPRB/)
+KBO( :, 5,23,11) = (/&
+&6.5861E-01_JPRB,7.2844E-01_JPRB,6.3392E-01_JPRB,4.7757E-01_JPRB,9.4241E-01_JPRB/)
+KBO( :, 1,24,11) = (/&
+&2.2482E-01_JPRB,2.5108E-01_JPRB,2.1802E-01_JPRB,1.6286E-01_JPRB,5.3854E-01_JPRB/)
+KBO( :, 2,24,11) = (/&
+&2.9997E-01_JPRB,3.3291E-01_JPRB,2.8985E-01_JPRB,2.1640E-01_JPRB,6.1678E-01_JPRB/)
+KBO( :, 3,24,11) = (/&
+&3.8949E-01_JPRB,4.2945E-01_JPRB,3.7259E-01_JPRB,2.7841E-01_JPRB,6.9947E-01_JPRB/)
+KBO( :, 4,24,11) = (/&
+&4.9475E-01_JPRB,5.4040E-01_JPRB,4.6781E-01_JPRB,3.4874E-01_JPRB,7.8678E-01_JPRB/)
+KBO( :, 5,24,11) = (/&
+&6.1688E-01_JPRB,6.6845E-01_JPRB,5.7526E-01_JPRB,4.2946E-01_JPRB,8.7638E-01_JPRB/)
+KBO( :, 1,25,11) = (/&
+&2.0867E-01_JPRB,2.3175E-01_JPRB,2.0085E-01_JPRB,1.4849E-01_JPRB,4.8336E-01_JPRB/)
+KBO( :, 2,25,11) = (/&
+&2.7944E-01_JPRB,3.0729E-01_JPRB,2.6487E-01_JPRB,1.9609E-01_JPRB,5.5823E-01_JPRB/)
+KBO( :, 3,25,11) = (/&
+&3.6506E-01_JPRB,3.9632E-01_JPRB,3.4020E-01_JPRB,2.5115E-01_JPRB,6.3661E-01_JPRB/)
+KBO( :, 4,25,11) = (/&
+&4.6727E-01_JPRB,5.0070E-01_JPRB,4.2731E-01_JPRB,3.1512E-01_JPRB,7.1582E-01_JPRB/)
+KBO( :, 5,25,11) = (/&
+&5.8636E-01_JPRB,6.2209E-01_JPRB,5.2796E-01_JPRB,3.8925E-01_JPRB,7.9834E-01_JPRB/)
+KBO( :, 1,26,11) = (/&
+&1.9587E-01_JPRB,2.1594E-01_JPRB,1.8576E-01_JPRB,1.3602E-01_JPRB,4.3426E-01_JPRB/)
+KBO( :, 2,26,11) = (/&
+&2.6382E-01_JPRB,2.8676E-01_JPRB,2.4459E-01_JPRB,1.7873E-01_JPRB,5.0085E-01_JPRB/)
+KBO( :, 3,26,11) = (/&
+&3.4692E-01_JPRB,3.7120E-01_JPRB,3.1465E-01_JPRB,2.2874E-01_JPRB,5.6934E-01_JPRB/)
+KBO( :, 4,26,11) = (/&
+&4.4520E-01_JPRB,4.7181E-01_JPRB,3.9637E-01_JPRB,2.8766E-01_JPRB,6.3969E-01_JPRB/)
+KBO( :, 5,26,11) = (/&
+&5.5605E-01_JPRB,5.8855E-01_JPRB,4.9195E-01_JPRB,3.5675E-01_JPRB,7.1476E-01_JPRB/)
+KBO( :, 1,27,11) = (/&
+&1.8539E-01_JPRB,2.0232E-01_JPRB,1.7242E-01_JPRB,1.2491E-01_JPRB,3.7468E-01_JPRB/)
+KBO( :, 2,27,11) = (/&
+&2.5096E-01_JPRB,2.6936E-01_JPRB,2.2766E-01_JPRB,1.6372E-01_JPRB,4.3134E-01_JPRB/)
+KBO( :, 3,27,11) = (/&
+&3.2985E-01_JPRB,3.5118E-01_JPRB,2.9380E-01_JPRB,2.1018E-01_JPRB,4.9024E-01_JPRB/)
+KBO( :, 4,27,11) = (/&
+&4.2050E-01_JPRB,4.4779E-01_JPRB,3.7245E-01_JPRB,2.6552E-01_JPRB,5.5373E-01_JPRB/)
+KBO( :, 5,27,11) = (/&
+&5.2353E-01_JPRB,5.5799E-01_JPRB,4.6451E-01_JPRB,3.2979E-01_JPRB,6.2244E-01_JPRB/)
+KBO( :, 1,28,11) = (/&
+&1.7670E-01_JPRB,1.9079E-01_JPRB,1.6081E-01_JPRB,1.1550E-01_JPRB,3.1173E-01_JPRB/)
+KBO( :, 2,28,11) = (/&
+&2.3816E-01_JPRB,2.5545E-01_JPRB,2.1349E-01_JPRB,1.5165E-01_JPRB,3.6015E-01_JPRB/)
+KBO( :, 3,28,11) = (/&
+&3.1046E-01_JPRB,3.3329E-01_JPRB,2.7692E-01_JPRB,1.9535E-01_JPRB,4.1203E-01_JPRB/)
+KBO( :, 4,28,11) = (/&
+&3.9421E-01_JPRB,4.2355E-01_JPRB,3.5226E-01_JPRB,2.4753E-01_JPRB,4.6881E-01_JPRB/)
+KBO( :, 5,28,11) = (/&
+&4.9113E-01_JPRB,5.2757E-01_JPRB,4.3988E-01_JPRB,3.0817E-01_JPRB,5.2989E-01_JPRB/)
+KBO( :, 1,29,11) = (/&
+&1.6843E-01_JPRB,1.8154E-01_JPRB,1.5154E-01_JPRB,1.0767E-01_JPRB,2.5441E-01_JPRB/)
+KBO( :, 2,29,11) = (/&
+&2.2466E-01_JPRB,2.4270E-01_JPRB,2.0190E-01_JPRB,1.4201E-01_JPRB,2.9556E-01_JPRB/)
+KBO( :, 3,29,11) = (/&
+&2.9126E-01_JPRB,3.1537E-01_JPRB,2.6232E-01_JPRB,1.8387E-01_JPRB,3.4113E-01_JPRB/)
+KBO( :, 4,29,11) = (/&
+&3.6983E-01_JPRB,4.0011E-01_JPRB,3.3340E-01_JPRB,2.3338E-01_JPRB,3.9100E-01_JPRB/)
+KBO( :, 5,29,11) = (/&
+&4.6101E-01_JPRB,4.9867E-01_JPRB,4.1663E-01_JPRB,2.9053E-01_JPRB,4.4464E-01_JPRB/)
+KBO( :, 1,30,11) = (/&
+&1.5959E-01_JPRB,1.7262E-01_JPRB,1.4374E-01_JPRB,1.0130E-01_JPRB,2.0471E-01_JPRB/)
+KBO( :, 2,30,11) = (/&
+&2.1115E-01_JPRB,2.2963E-01_JPRB,1.9116E-01_JPRB,1.3421E-01_JPRB,2.4020E-01_JPRB/)
+KBO( :, 3,30,11) = (/&
+&2.7360E-01_JPRB,2.9740E-01_JPRB,2.4795E-01_JPRB,1.7403E-01_JPRB,2.7968E-01_JPRB/)
+KBO( :, 4,30,11) = (/&
+&3.4764E-01_JPRB,3.7756E-01_JPRB,3.1549E-01_JPRB,2.2070E-01_JPRB,3.2281E-01_JPRB/)
+KBO( :, 5,30,11) = (/&
+&4.3440E-01_JPRB,4.7219E-01_JPRB,3.9465E-01_JPRB,2.7465E-01_JPRB,3.6896E-01_JPRB/)
+KBO( :, 1,31,11) = (/&
+&1.5091E-01_JPRB,1.6391E-01_JPRB,1.3645E-01_JPRB,9.6278E-02_JPRB,1.6289E-01_JPRB/)
+KBO( :, 2,31,11) = (/&
+&1.9931E-01_JPRB,2.1721E-01_JPRB,1.8079E-01_JPRB,1.2771E-01_JPRB,1.9309E-01_JPRB/)
+KBO( :, 3,31,11) = (/&
+&2.5821E-01_JPRB,2.8109E-01_JPRB,2.3449E-01_JPRB,1.6502E-01_JPRB,2.2676E-01_JPRB/)
+KBO( :, 4,31,11) = (/&
+&3.2875E-01_JPRB,3.5829E-01_JPRB,2.9898E-01_JPRB,2.0919E-01_JPRB,2.6370E-01_JPRB/)
+KBO( :, 5,31,11) = (/&
+&4.1157E-01_JPRB,4.5002E-01_JPRB,3.7499E-01_JPRB,2.6064E-01_JPRB,3.0365E-01_JPRB/)
+KBO( :, 1,32,11) = (/&
+&1.4350E-01_JPRB,1.5577E-01_JPRB,1.2948E-01_JPRB,9.1911E-02_JPRB,1.3126E-01_JPRB/)
+KBO( :, 2,32,11) = (/&
+&1.8927E-01_JPRB,2.0591E-01_JPRB,1.7137E-01_JPRB,1.2148E-01_JPRB,1.5712E-01_JPRB/)
+KBO( :, 3,32,11) = (/&
+&2.4542E-01_JPRB,2.6745E-01_JPRB,2.2265E-01_JPRB,1.5686E-01_JPRB,1.8606E-01_JPRB/)
+KBO( :, 4,32,11) = (/&
+&3.1299E-01_JPRB,3.4211E-01_JPRB,2.8464E-01_JPRB,1.9879E-01_JPRB,2.1776E-01_JPRB/)
+KBO( :, 5,32,11) = (/&
+&3.9189E-01_JPRB,4.3154E-01_JPRB,3.5784E-01_JPRB,2.4869E-01_JPRB,2.5261E-01_JPRB/)
+KBO( :, 1,33,11) = (/&
+&1.3727E-01_JPRB,1.4838E-01_JPRB,1.2325E-01_JPRB,8.7723E-02_JPRB,1.0656E-01_JPRB/)
+KBO( :, 2,33,11) = (/&
+&1.8110E-01_JPRB,1.9647E-01_JPRB,1.6322E-01_JPRB,1.1562E-01_JPRB,1.2867E-01_JPRB/)
+KBO( :, 3,33,11) = (/&
+&2.3493E-01_JPRB,2.5633E-01_JPRB,2.1260E-01_JPRB,1.4945E-01_JPRB,1.5344E-01_JPRB/)
+KBO( :, 4,33,11) = (/&
+&2.9930E-01_JPRB,3.2911E-01_JPRB,2.7241E-01_JPRB,1.8991E-01_JPRB,1.8112E-01_JPRB/)
+KBO( :, 5,33,11) = (/&
+&3.7491E-01_JPRB,4.1658E-01_JPRB,3.4340E-01_JPRB,2.3867E-01_JPRB,2.1188E-01_JPRB/)
+KBO( :, 1,34,11) = (/&
+&1.3092E-01_JPRB,1.4094E-01_JPRB,1.1667E-01_JPRB,8.2911E-02_JPRB,8.9471E-02_JPRB/)
+KBO( :, 2,34,11) = (/&
+&1.7283E-01_JPRB,1.8720E-01_JPRB,1.5498E-01_JPRB,1.0945E-01_JPRB,1.0879E-01_JPRB/)
+KBO( :, 3,34,11) = (/&
+&2.2423E-01_JPRB,2.4508E-01_JPRB,2.0247E-01_JPRB,1.4175E-01_JPRB,1.3067E-01_JPRB/)
+KBO( :, 4,34,11) = (/&
+&2.8568E-01_JPRB,3.1613E-01_JPRB,2.6022E-01_JPRB,1.8119E-01_JPRB,1.5551E-01_JPRB/)
+KBO( :, 5,34,11) = (/&
+&3.5836E-01_JPRB,4.0157E-01_JPRB,3.2942E-01_JPRB,2.2886E-01_JPRB,1.8335E-01_JPRB/)
+KBO( :, 1,35,11) = (/&
+&1.2228E-01_JPRB,1.3118E-01_JPRB,1.0815E-01_JPRB,7.6480E-02_JPRB,7.3770E-02_JPRB/)
+KBO( :, 2,35,11) = (/&
+&1.6172E-01_JPRB,1.7516E-01_JPRB,1.4419E-01_JPRB,1.0138E-01_JPRB,9.0532E-02_JPRB/)
+KBO( :, 3,35,11) = (/&
+&2.1005E-01_JPRB,2.3024E-01_JPRB,1.8936E-01_JPRB,1.3212E-01_JPRB,1.0977E-01_JPRB/)
+KBO( :, 4,35,11) = (/&
+&2.6823E-01_JPRB,2.9837E-01_JPRB,2.4450E-01_JPRB,1.7010E-01_JPRB,1.3152E-01_JPRB/)
+KBO( :, 5,35,11) = (/&
+&3.3803E-01_JPRB,3.8069E-01_JPRB,3.1151E-01_JPRB,2.1623E-01_JPRB,1.5639E-01_JPRB/)
+KBO( :, 1,36,11) = (/&
+&1.1127E-01_JPRB,1.1902E-01_JPRB,9.7790E-02_JPRB,6.8652E-02_JPRB,5.9294E-02_JPRB/)
+KBO( :, 2,36,11) = (/&
+&1.4779E-01_JPRB,1.5991E-01_JPRB,1.3100E-01_JPRB,9.1678E-02_JPRB,7.3428E-02_JPRB/)
+KBO( :, 3,36,11) = (/&
+&1.9248E-01_JPRB,2.1152E-01_JPRB,1.7310E-01_JPRB,1.2044E-01_JPRB,8.9931E-02_JPRB/)
+KBO( :, 4,36,11) = (/&
+&2.4698E-01_JPRB,2.7546E-01_JPRB,2.2513E-01_JPRB,1.5635E-01_JPRB,1.0865E-01_JPRB/)
+KBO( :, 5,36,11) = (/&
+&3.1312E-01_JPRB,3.5357E-01_JPRB,2.8900E-01_JPRB,2.0028E-01_JPRB,1.3007E-01_JPRB/)
+KBO( :, 1,37,11) = (/&
+&9.7171E-02_JPRB,1.0370E-01_JPRB,8.4930E-02_JPRB,5.9132E-02_JPRB,4.8800E-02_JPRB/)
+KBO( :, 2,37,11) = (/&
+&1.3022E-01_JPRB,1.4042E-01_JPRB,1.1467E-01_JPRB,7.9788E-02_JPRB,6.1101E-02_JPRB/)
+KBO( :, 3,37,11) = (/&
+&1.7053E-01_JPRB,1.8732E-01_JPRB,1.5267E-01_JPRB,1.0592E-01_JPRB,7.5549E-02_JPRB/)
+KBO( :, 4,37,11) = (/&
+&2.2021E-01_JPRB,2.4584E-01_JPRB,2.0025E-01_JPRB,1.3887E-01_JPRB,9.2123E-02_JPRB/)
+KBO( :, 5,37,11) = (/&
+&2.8142E-01_JPRB,3.1806E-01_JPRB,2.5954E-01_JPRB,1.7970E-01_JPRB,1.1114E-01_JPRB/)
+KBO( :, 1,38,11) = (/&
+&8.4750E-02_JPRB,9.0447E-02_JPRB,7.3862E-02_JPRB,5.1024E-02_JPRB,4.0120E-02_JPRB/)
+KBO( :, 2,38,11) = (/&
+&1.1472E-01_JPRB,1.2347E-01_JPRB,1.0053E-01_JPRB,6.9437E-02_JPRB,5.0776E-02_JPRB/)
+KBO( :, 3,38,11) = (/&
+&1.5136E-01_JPRB,1.6607E-01_JPRB,1.3499E-01_JPRB,9.3219E-02_JPRB,6.3385E-02_JPRB/)
+KBO( :, 4,38,11) = (/&
+&1.9680E-01_JPRB,2.1978E-01_JPRB,1.7847E-01_JPRB,1.2347E-01_JPRB,7.8006E-02_JPRB/)
+KBO( :, 5,38,11) = (/&
+&2.5341E-01_JPRB,2.8675E-01_JPRB,2.3338E-01_JPRB,1.6145E-01_JPRB,9.4840E-02_JPRB/)
+KBO( :, 1,39,11) = (/&
+&7.4011E-02_JPRB,7.9191E-02_JPRB,6.4478E-02_JPRB,4.4207E-02_JPRB,3.2805E-02_JPRB/)
+KBO( :, 2,39,11) = (/&
+&1.0122E-01_JPRB,1.0907E-01_JPRB,8.8541E-02_JPRB,6.0759E-02_JPRB,4.1971E-02_JPRB/)
+KBO( :, 3,39,11) = (/&
+&1.3478E-01_JPRB,1.4779E-01_JPRB,1.1992E-01_JPRB,8.2325E-02_JPRB,5.2901E-02_JPRB/)
+KBO( :, 4,39,11) = (/&
+&1.7660E-01_JPRB,1.9727E-01_JPRB,1.5986E-01_JPRB,1.1017E-01_JPRB,6.5730E-02_JPRB/)
+KBO( :, 5,39,11) = (/&
+&2.2909E-01_JPRB,2.5986E-01_JPRB,2.1074E-01_JPRB,1.4557E-01_JPRB,8.0505E-02_JPRB/)
+KBO( :, 1,40,11) = (/&
+&6.2473E-02_JPRB,6.7073E-02_JPRB,5.4566E-02_JPRB,3.7187E-02_JPRB,2.6885E-02_JPRB/)
+KBO( :, 2,40,11) = (/&
+&8.6606E-02_JPRB,9.3644E-02_JPRB,7.5801E-02_JPRB,5.1661E-02_JPRB,3.4836E-02_JPRB/)
+KBO( :, 3,40,11) = (/&
+&1.1680E-01_JPRB,1.2799E-01_JPRB,1.0372E-01_JPRB,7.0693E-02_JPRB,4.4368E-02_JPRB/)
+KBO( :, 4,40,11) = (/&
+&1.5470E-01_JPRB,1.7247E-01_JPRB,1.3960E-01_JPRB,9.5679E-02_JPRB,5.5687E-02_JPRB/)
+KBO( :, 5,40,11) = (/&
+&2.0237E-01_JPRB,2.2977E-01_JPRB,1.8573E-01_JPRB,1.2793E-01_JPRB,6.8850E-02_JPRB/)
+KBO( :, 1,41,11) = (/&
+&5.2446E-02_JPRB,5.6507E-02_JPRB,4.5959E-02_JPRB,3.1195E-02_JPRB,2.1948E-02_JPRB/)
+KBO( :, 2,41,11) = (/&
+&7.3701E-02_JPRB,8.0111E-02_JPRB,6.4714E-02_JPRB,4.3819E-02_JPRB,2.8834E-02_JPRB/)
+KBO( :, 3,41,11) = (/&
+&1.0076E-01_JPRB,1.1070E-01_JPRB,8.9512E-02_JPRB,6.0576E-02_JPRB,3.7158E-02_JPRB/)
+KBO( :, 4,41,11) = (/&
+&1.3508E-01_JPRB,1.5057E-01_JPRB,1.2175E-01_JPRB,8.2892E-02_JPRB,4.7100E-02_JPRB/)
+KBO( :, 5,41,11) = (/&
+&1.7854E-01_JPRB,2.0269E-01_JPRB,1.6356E-01_JPRB,1.1214E-01_JPRB,5.8823E-02_JPRB/)
+KBO( :, 1,42,11) = (/&
+&4.3993E-02_JPRB,4.7543E-02_JPRB,3.8628E-02_JPRB,2.6175E-02_JPRB,1.7822E-02_JPRB/)
+KBO( :, 2,42,11) = (/&
+&6.2618E-02_JPRB,6.8461E-02_JPRB,5.5301E-02_JPRB,3.7217E-02_JPRB,2.3728E-02_JPRB/)
+KBO( :, 3,42,11) = (/&
+&8.6814E-02_JPRB,9.5948E-02_JPRB,7.7328E-02_JPRB,5.2009E-02_JPRB,3.0953E-02_JPRB/)
+KBO( :, 4,42,11) = (/&
+&1.1793E-01_JPRB,1.3165E-01_JPRB,1.0635E-01_JPRB,7.1967E-02_JPRB,3.9679E-02_JPRB/)
+KBO( :, 5,42,11) = (/&
+&1.5767E-01_JPRB,1.7909E-01_JPRB,1.4430E-01_JPRB,9.8414E-02_JPRB,5.0031E-02_JPRB/)
+KBO( :, 1,43,11) = (/&
+&3.6051E-02_JPRB,3.9068E-02_JPRB,3.1700E-02_JPRB,2.1500E-02_JPRB,1.4336E-02_JPRB/)
+KBO( :, 2,43,11) = (/&
+&5.2131E-02_JPRB,5.7262E-02_JPRB,4.6240E-02_JPRB,3.1003E-02_JPRB,1.9367E-02_JPRB/)
+KBO( :, 3,43,11) = (/&
+&7.3341E-02_JPRB,8.1590E-02_JPRB,6.5706E-02_JPRB,4.3880E-02_JPRB,2.5604E-02_JPRB/)
+KBO( :, 4,43,11) = (/&
+&1.0113E-01_JPRB,1.1336E-01_JPRB,9.1355E-02_JPRB,6.1391E-02_JPRB,3.3210E-02_JPRB/)
+KBO( :, 5,43,11) = (/&
+&1.3704E-01_JPRB,1.5566E-01_JPRB,1.2530E-01_JPRB,8.4984E-02_JPRB,4.2357E-02_JPRB/)
+KBO( :, 1,44,11) = (/&
+&2.9153E-02_JPRB,3.1689E-02_JPRB,2.5651E-02_JPRB,1.7398E-02_JPRB,1.1452E-02_JPRB/)
+KBO( :, 2,44,11) = (/&
+&4.2894E-02_JPRB,4.7271E-02_JPRB,3.8161E-02_JPRB,2.5559E-02_JPRB,1.5702E-02_JPRB/)
+KBO( :, 3,44,11) = (/&
+&6.1316E-02_JPRB,6.8606E-02_JPRB,5.5241E-02_JPRB,3.6706E-02_JPRB,2.1051E-02_JPRB/)
+KBO( :, 4,44,11) = (/&
+&8.5809E-02_JPRB,9.6811E-02_JPRB,7.7867E-02_JPRB,5.1972E-02_JPRB,2.7643E-02_JPRB/)
+KBO( :, 5,44,11) = (/&
+&1.1804E-01_JPRB,1.3427E-01_JPRB,1.0805E-01_JPRB,7.2832E-02_JPRB,3.5698E-02_JPRB/)
+KBO( :, 1,45,11) = (/&
+&2.3474E-02_JPRB,2.5620E-02_JPRB,2.0683E-02_JPRB,1.3992E-02_JPRB,9.0872E-03_JPRB/)
+KBO( :, 2,45,11) = (/&
+&3.5168E-02_JPRB,3.8884E-02_JPRB,3.1357E-02_JPRB,2.0998E-02_JPRB,1.2650E-02_JPRB/)
+KBO( :, 3,45,11) = (/&
+&5.1125E-02_JPRB,5.7479E-02_JPRB,4.6268E-02_JPRB,3.0685E-02_JPRB,1.7188E-02_JPRB/)
+KBO( :, 4,45,11) = (/&
+&7.2642E-02_JPRB,8.2540E-02_JPRB,6.6385E-02_JPRB,4.3982E-02_JPRB,2.2878E-02_JPRB/)
+KBO( :, 5,45,11) = (/&
+&1.0141E-01_JPRB,1.1593E-01_JPRB,9.3129E-02_JPRB,6.2384E-02_JPRB,2.9912E-02_JPRB/)
+KBO( :, 1,46,11) = (/&
+&1.8622E-02_JPRB,2.0419E-02_JPRB,1.6446E-02_JPRB,1.1089E-02_JPRB,7.1508E-03_JPRB/)
+KBO( :, 2,46,11) = (/&
+&2.8465E-02_JPRB,3.1591E-02_JPRB,2.5425E-02_JPRB,1.7003E-02_JPRB,1.0100E-02_JPRB/)
+KBO( :, 3,46,11) = (/&
+&4.2115E-02_JPRB,4.7558E-02_JPRB,3.8296E-02_JPRB,2.5381E-02_JPRB,1.3928E-02_JPRB/)
+KBO( :, 4,46,11) = (/&
+&6.0884E-02_JPRB,6.9606E-02_JPRB,5.6000E-02_JPRB,3.6888E-02_JPRB,1.8798E-02_JPRB/)
+KBO( :, 5,46,11) = (/&
+&8.6271E-02_JPRB,9.9295E-02_JPRB,7.9645E-02_JPRB,5.2994E-02_JPRB,2.4873E-02_JPRB/)
+KBO( :, 1,47,11) = (/&
+&1.4376E-02_JPRB,1.5849E-02_JPRB,1.2756E-02_JPRB,8.5637E-03_JPRB,5.5846E-03_JPRB/)
+KBO( :, 2,47,11) = (/&
+&2.2523E-02_JPRB,2.5091E-02_JPRB,2.0133E-02_JPRB,1.3433E-02_JPRB,8.0135E-03_JPRB/)
+KBO( :, 3,47,11) = (/&
+&3.3987E-02_JPRB,3.8521E-02_JPRB,3.0971E-02_JPRB,2.0498E-02_JPRB,1.1217E-02_JPRB/)
+KBO( :, 4,47,11) = (/&
+&4.9995E-02_JPRB,5.7475E-02_JPRB,4.6271E-02_JPRB,3.0427E-02_JPRB,1.5354E-02_JPRB/)
+KBO( :, 5,47,11) = (/&
+&7.2095E-02_JPRB,8.3553E-02_JPRB,6.7099E-02_JPRB,4.4249E-02_JPRB,2.0567E-02_JPRB/)
+KBO( :, 1,48,11) = (/&
+&1.0948E-02_JPRB,1.2187E-02_JPRB,9.8197E-03_JPRB,6.5686E-03_JPRB,4.3309E-03_JPRB/)
+KBO( :, 2,48,11) = (/&
+&1.7678E-02_JPRB,1.9773E-02_JPRB,1.5847E-02_JPRB,1.0523E-02_JPRB,6.3196E-03_JPRB/)
+KBO( :, 3,48,11) = (/&
+&2.7272E-02_JPRB,3.1035E-02_JPRB,2.4886E-02_JPRB,1.6427E-02_JPRB,8.9753E-03_JPRB/)
+KBO( :, 4,48,11) = (/&
+&4.0847E-02_JPRB,4.7231E-02_JPRB,3.7989E-02_JPRB,2.4968E-02_JPRB,1.2435E-02_JPRB/)
+KBO( :, 5,48,11) = (/&
+&5.9943E-02_JPRB,6.9928E-02_JPRB,5.6261E-02_JPRB,3.6863E-02_JPRB,1.6884E-02_JPRB/)
+KBO( :, 1,49,11) = (/&
+&8.2227E-03_JPRB,9.2751E-03_JPRB,7.4918E-03_JPRB,4.9857E-03_JPRB,3.3179E-03_JPRB/)
+KBO( :, 2,49,11) = (/&
+&1.3710E-02_JPRB,1.5461E-02_JPRB,1.2382E-02_JPRB,8.1837E-03_JPRB,4.9416E-03_JPRB/)
+KBO( :, 3,49,11) = (/&
+&2.1752E-02_JPRB,2.4824E-02_JPRB,1.9870E-02_JPRB,1.3064E-02_JPRB,7.1199E-03_JPRB/)
+KBO( :, 4,49,11) = (/&
+&3.3202E-02_JPRB,3.8592E-02_JPRB,3.0992E-02_JPRB,2.0326E-02_JPRB,9.9895E-03_JPRB/)
+KBO( :, 5,49,11) = (/&
+&4.9564E-02_JPRB,5.8206E-02_JPRB,4.6898E-02_JPRB,3.0661E-02_JPRB,1.3734E-02_JPRB/)
+KBO( :, 1,50,11) = (/&
+&6.1915E-03_JPRB,7.0808E-03_JPRB,5.7341E-03_JPRB,3.7933E-03_JPRB,2.6014E-03_JPRB/)
+KBO( :, 2,50,11) = (/&
+&1.0634E-02_JPRB,1.2140E-02_JPRB,9.7185E-03_JPRB,6.3965E-03_JPRB,3.9374E-03_JPRB/)
+KBO( :, 3,50,11) = (/&
+&1.7391E-02_JPRB,1.9945E-02_JPRB,1.5955E-02_JPRB,1.0445E-02_JPRB,5.7678E-03_JPRB/)
+KBO( :, 4,50,11) = (/&
+&2.7125E-02_JPRB,3.1701E-02_JPRB,2.5413E-02_JPRB,1.6599E-02_JPRB,8.1975E-03_JPRB/)
+KBO( :, 5,50,11) = (/&
+&4.1193E-02_JPRB,4.8726E-02_JPRB,3.9234E-02_JPRB,2.5636E-02_JPRB,1.1392E-02_JPRB/)
+KBO( :, 1,51,11) = (/&
+&4.6415E-03_JPRB,5.3779E-03_JPRB,4.3645E-03_JPRB,2.8762E-03_JPRB,2.0670E-03_JPRB/)
+KBO( :, 2,51,11) = (/&
+&8.1982E-03_JPRB,9.4964E-03_JPRB,7.6128E-03_JPRB,4.9899E-03_JPRB,3.1638E-03_JPRB/)
+KBO( :, 3,51,11) = (/&
+&1.3839E-02_JPRB,1.6014E-02_JPRB,1.2808E-02_JPRB,8.3362E-03_JPRB,4.7173E-03_JPRB/)
+KBO( :, 4,51,11) = (/&
+&2.2155E-02_JPRB,2.6015E-02_JPRB,2.0833E-02_JPRB,1.3537E-02_JPRB,6.8071E-03_JPRB/)
+KBO( :, 5,51,11) = (/&
+&3.4266E-02_JPRB,4.0819E-02_JPRB,3.2809E-02_JPRB,2.1399E-02_JPRB,9.5494E-03_JPRB/)
+KBO( :, 1,52,11) = (/&
+&3.4450E-03_JPRB,4.0419E-03_JPRB,3.2822E-03_JPRB,2.1593E-03_JPRB,1.6475E-03_JPRB/)
+KBO( :, 2,52,11) = (/&
+&6.2508E-03_JPRB,7.3537E-03_JPRB,5.9181E-03_JPRB,3.8603E-03_JPRB,2.5371E-03_JPRB/)
+KBO( :, 3,52,11) = (/&
+&1.0900E-02_JPRB,1.2773E-02_JPRB,1.0216E-02_JPRB,6.6126E-03_JPRB,3.8348E-03_JPRB/)
+KBO( :, 4,52,11) = (/&
+&1.7975E-02_JPRB,2.1233E-02_JPRB,1.7001E-02_JPRB,1.0994E-02_JPRB,5.6303E-03_JPRB/)
+KBO( :, 5,52,11) = (/&
+&2.8375E-02_JPRB,3.4038E-02_JPRB,2.7332E-02_JPRB,1.7744E-02_JPRB,7.9843E-03_JPRB/)
+KBO( :, 1,53,11) = (/&
+&2.5331E-03_JPRB,3.0017E-03_JPRB,2.4368E-03_JPRB,1.5998E-03_JPRB,1.3193E-03_JPRB/)
+KBO( :, 2,53,11) = (/&
+&4.7088E-03_JPRB,5.6274E-03_JPRB,4.5483E-03_JPRB,2.9549E-03_JPRB,2.0294E-03_JPRB/)
+KBO( :, 3,53,11) = (/&
+&8.4774E-03_JPRB,1.0097E-02_JPRB,8.0775E-03_JPRB,5.2092E-03_JPRB,3.0959E-03_JPRB/)
+KBO( :, 4,53,11) = (/&
+&1.4441E-02_JPRB,1.7209E-02_JPRB,1.3780E-02_JPRB,8.8745E-03_JPRB,4.6172E-03_JPRB/)
+KBO( :, 5,53,11) = (/&
+&2.3385E-02_JPRB,2.8212E-02_JPRB,2.2650E-02_JPRB,1.4615E-02_JPRB,6.6511E-03_JPRB/)
+KBO( :, 1,54,11) = (/&
+&1.8954E-03_JPRB,2.2607E-03_JPRB,1.8278E-03_JPRB,1.1946E-03_JPRB,1.0985E-03_JPRB/)
+KBO( :, 2,54,11) = (/&
+&3.5862E-03_JPRB,4.3471E-03_JPRB,3.5189E-03_JPRB,2.2822E-03_JPRB,1.6895E-03_JPRB/)
+KBO( :, 3,54,11) = (/&
+&6.6312E-03_JPRB,8.0424E-03_JPRB,6.4523E-03_JPRB,4.1406E-03_JPRB,2.5940E-03_JPRB/)
+KBO( :, 4,54,11) = (/&
+&1.1671E-02_JPRB,1.4089E-02_JPRB,1.1281E-02_JPRB,7.2279E-03_JPRB,3.9122E-03_JPRB/)
+KBO( :, 5,54,11) = (/&
+&1.9432E-02_JPRB,2.3598E-02_JPRB,1.8940E-02_JPRB,1.2154E-02_JPRB,5.7337E-03_JPRB/)
+KBO( :, 1,55,11) = (/&
+&1.4290E-03_JPRB,1.7125E-03_JPRB,1.3776E-03_JPRB,8.9347E-04_JPRB,9.3784E-04_JPRB/)
+KBO( :, 2,55,11) = (/&
+&2.7457E-03_JPRB,3.3623E-03_JPRB,2.7182E-03_JPRB,1.7597E-03_JPRB,1.4453E-03_JPRB/)
+KBO( :, 3,55,11) = (/&
+&5.1874E-03_JPRB,6.3979E-03_JPRB,5.1511E-03_JPRB,3.2930E-03_JPRB,2.2221E-03_JPRB/)
+KBO( :, 4,55,11) = (/&
+&9.4226E-03_JPRB,1.1550E-02_JPRB,9.2557E-03_JPRB,5.8990E-03_JPRB,3.3851E-03_JPRB/)
+KBO( :, 5,55,11) = (/&
+&1.6150E-02_JPRB,1.9777E-02_JPRB,1.5877E-02_JPRB,1.0138E-02_JPRB,5.0396E-03_JPRB/)
+KBO( :, 1,56,11) = (/&
+&1.0680E-03_JPRB,1.2890E-03_JPRB,1.0316E-03_JPRB,6.6446E-04_JPRB,8.0430E-04_JPRB/)
+KBO( :, 2,56,11) = (/&
+&2.0978E-03_JPRB,2.5858E-03_JPRB,2.0823E-03_JPRB,1.3442E-03_JPRB,1.2456E-03_JPRB/)
+KBO( :, 3,56,11) = (/&
+&4.0301E-03_JPRB,5.0435E-03_JPRB,4.0770E-03_JPRB,2.5996E-03_JPRB,1.9142E-03_JPRB/)
+KBO( :, 4,56,11) = (/&
+&7.5402E-03_JPRB,9.4035E-03_JPRB,7.5479E-03_JPRB,4.7898E-03_JPRB,2.9393E-03_JPRB/)
+KBO( :, 5,56,11) = (/&
+&1.3330E-02_JPRB,1.6498E-02_JPRB,1.3248E-02_JPRB,8.4281E-03_JPRB,4.4305E-03_JPRB/)
+KBO( :, 1,57,11) = (/&
+&7.8801E-04_JPRB,9.6289E-04_JPRB,7.6691E-04_JPRB,4.9097E-04_JPRB,6.8859E-04_JPRB/)
+KBO( :, 2,57,11) = (/&
+&1.5966E-03_JPRB,1.9777E-03_JPRB,1.5840E-03_JPRB,1.0164E-03_JPRB,1.0803E-03_JPRB/)
+KBO( :, 3,57,11) = (/&
+&3.1118E-03_JPRB,3.9473E-03_JPRB,3.1938E-03_JPRB,2.0343E-03_JPRB,1.6622E-03_JPRB/)
+KBO( :, 4,57,11) = (/&
+&5.9752E-03_JPRB,7.5907E-03_JPRB,6.1119E-03_JPRB,3.8625E-03_JPRB,2.5583E-03_JPRB/)
+KBO( :, 5,57,11) = (/&
+&1.0909E-02_JPRB,1.3694E-02_JPRB,1.0990E-02_JPRB,6.9630E-03_JPRB,3.8987E-03_JPRB/)
+KBO( :, 1,58,11) = (/&
+&5.8173E-04_JPRB,7.2041E-04_JPRB,5.7279E-04_JPRB,3.6474E-04_JPRB,5.9355E-04_JPRB/)
+KBO( :, 2,58,11) = (/&
+&1.2258E-03_JPRB,1.5249E-03_JPRB,1.2145E-03_JPRB,7.7245E-04_JPRB,9.5456E-04_JPRB/)
+KBO( :, 3,58,11) = (/&
+&2.4241E-03_JPRB,3.1044E-03_JPRB,2.5087E-03_JPRB,1.5934E-03_JPRB,1.4697E-03_JPRB/)
+KBO( :, 4,58,11) = (/&
+&4.7512E-03_JPRB,6.1351E-03_JPRB,4.9587E-03_JPRB,3.1245E-03_JPRB,2.2636E-03_JPRB/)
+KBO( :, 5,58,11) = (/&
+&8.9451E-03_JPRB,1.1404E-02_JPRB,9.1570E-03_JPRB,5.7752E-03_JPRB,3.4844E-03_JPRB/)
+KBO( :, 1,59,11) = (/&
+&5.0522E-04_JPRB,6.3041E-04_JPRB,4.9923E-04_JPRB,3.1529E-04_JPRB,5.7581E-04_JPRB/)
+KBO( :, 2,59,11) = (/&
+&1.0885E-03_JPRB,1.3595E-03_JPRB,1.0775E-03_JPRB,6.7742E-04_JPRB,9.3929E-04_JPRB/)
+KBO( :, 3,59,11) = (/&
+&2.1758E-03_JPRB,2.7928E-03_JPRB,2.2487E-03_JPRB,1.4181E-03_JPRB,1.4518E-03_JPRB/)
+KBO( :, 4,59,11) = (/&
+&4.2933E-03_JPRB,5.5813E-03_JPRB,4.5166E-03_JPRB,2.8320E-03_JPRB,2.2456E-03_JPRB/)
+KBO( :, 5,59,11) = (/&
+&8.1802E-03_JPRB,1.0526E-02_JPRB,8.4597E-03_JPRB,5.3170E-03_JPRB,3.4840E-03_JPRB/)
+KBO( :, 1,13,12) = (/&
+&7.9228E-01_JPRB,6.7739E-01_JPRB,5.9851E-01_JPRB,4.7753E-01_JPRB,2.7637E+00_JPRB/)
+KBO( :, 2,13,12) = (/&
+&1.1298E+00_JPRB,9.7146E-01_JPRB,8.5148E-01_JPRB,6.6642E-01_JPRB,2.9701E+00_JPRB/)
+KBO( :, 3,13,12) = (/&
+&1.5315E+00_JPRB,1.3283E+00_JPRB,1.1586E+00_JPRB,8.9312E-01_JPRB,3.2188E+00_JPRB/)
+KBO( :, 4,13,12) = (/&
+&1.9944E+00_JPRB,1.7422E+00_JPRB,1.5174E+00_JPRB,1.1641E+00_JPRB,3.5302E+00_JPRB/)
+KBO( :, 5,13,12) = (/&
+&2.5089E+00_JPRB,2.2052E+00_JPRB,1.9170E+00_JPRB,1.4741E+00_JPRB,3.8622E+00_JPRB/)
+KBO( :, 1,14,12) = (/&
+&8.3949E-01_JPRB,7.3093E-01_JPRB,6.4746E-01_JPRB,4.9215E-01_JPRB,2.7289E+00_JPRB/)
+KBO( :, 2,14,12) = (/&
+&1.1838E+00_JPRB,1.0392E+00_JPRB,9.1530E-01_JPRB,6.8593E-01_JPRB,2.9374E+00_JPRB/)
+KBO( :, 3,14,12) = (/&
+&1.5936E+00_JPRB,1.4080E+00_JPRB,1.2362E+00_JPRB,9.1792E-01_JPRB,3.1661E+00_JPRB/)
+KBO( :, 4,14,12) = (/&
+&2.0618E+00_JPRB,1.8318E+00_JPRB,1.6006E+00_JPRB,1.1951E+00_JPRB,3.4133E+00_JPRB/)
+KBO( :, 5,14,12) = (/&
+&2.5782E+00_JPRB,2.3016E+00_JPRB,2.0067E+00_JPRB,1.5032E+00_JPRB,3.6330E+00_JPRB/)
+KBO( :, 1,15,12) = (/&
+&8.6850E-01_JPRB,7.7816E-01_JPRB,6.8988E-01_JPRB,5.1142E-01_JPRB,2.4839E+00_JPRB/)
+KBO( :, 2,15,12) = (/&
+&1.2152E+00_JPRB,1.0938E+00_JPRB,9.6727E-01_JPRB,7.1145E-01_JPRB,2.6794E+00_JPRB/)
+KBO( :, 3,15,12) = (/&
+&1.6231E+00_JPRB,1.4682E+00_JPRB,1.2912E+00_JPRB,9.5405E-01_JPRB,2.8636E+00_JPRB/)
+KBO( :, 4,15,12) = (/&
+&2.0833E+00_JPRB,1.8933E+00_JPRB,1.6562E+00_JPRB,1.2315E+00_JPRB,3.0203E+00_JPRB/)
+KBO( :, 5,15,12) = (/&
+&2.5907E+00_JPRB,2.3660E+00_JPRB,2.0692E+00_JPRB,1.5407E+00_JPRB,3.1955E+00_JPRB/)
+KBO( :, 1,16,12) = (/&
+&8.7903E-01_JPRB,8.1154E-01_JPRB,7.2017E-01_JPRB,5.2966E-01_JPRB,2.1487E+00_JPRB/)
+KBO( :, 2,16,12) = (/&
+&1.2196E+00_JPRB,1.1290E+00_JPRB,9.9867E-01_JPRB,7.3589E-01_JPRB,2.2979E+00_JPRB/)
+KBO( :, 3,16,12) = (/&
+&1.6158E+00_JPRB,1.5020E+00_JPRB,1.3215E+00_JPRB,9.8028E-01_JPRB,2.4332E+00_JPRB/)
+KBO( :, 4,16,12) = (/&
+&2.0608E+00_JPRB,1.9258E+00_JPRB,1.6884E+00_JPRB,1.2547E+00_JPRB,2.5777E+00_JPRB/)
+KBO( :, 5,16,12) = (/&
+&2.5444E+00_JPRB,2.3922E+00_JPRB,2.0979E+00_JPRB,1.5613E+00_JPRB,2.7073E+00_JPRB/)
+KBO( :, 1,17,12) = (/&
+&8.6797E-01_JPRB,8.2657E-01_JPRB,7.3338E-01_JPRB,5.3823E-01_JPRB,1.8450E+00_JPRB/)
+KBO( :, 2,17,12) = (/&
+&1.1929E+00_JPRB,1.1407E+00_JPRB,1.0074E+00_JPRB,7.4525E-01_JPRB,1.9691E+00_JPRB/)
+KBO( :, 3,17,12) = (/&
+&1.5694E+00_JPRB,1.5051E+00_JPRB,1.3270E+00_JPRB,9.8535E-01_JPRB,2.0903E+00_JPRB/)
+KBO( :, 4,17,12) = (/&
+&1.9886E+00_JPRB,1.9165E+00_JPRB,1.6896E+00_JPRB,1.2533E+00_JPRB,2.2071E+00_JPRB/)
+KBO( :, 5,17,12) = (/&
+&2.4525E+00_JPRB,2.3619E+00_JPRB,2.0849E+00_JPRB,1.5524E+00_JPRB,2.3229E+00_JPRB/)
+KBO( :, 1,18,12) = (/&
+&8.3385E-01_JPRB,8.2168E-01_JPRB,7.2749E-01_JPRB,5.3649E-01_JPRB,1.6234E+00_JPRB/)
+KBO( :, 2,18,12) = (/&
+&1.1389E+00_JPRB,1.1231E+00_JPRB,9.9306E-01_JPRB,7.3634E-01_JPRB,1.7307E+00_JPRB/)
+KBO( :, 3,18,12) = (/&
+&1.4887E+00_JPRB,1.4739E+00_JPRB,1.3034E+00_JPRB,9.6635E-01_JPRB,1.8435E+00_JPRB/)
+KBO( :, 4,18,12) = (/&
+&1.8815E+00_JPRB,1.8634E+00_JPRB,1.6522E+00_JPRB,1.2254E+00_JPRB,1.9484E+00_JPRB/)
+KBO( :, 5,18,12) = (/&
+&2.3106E+00_JPRB,2.2920E+00_JPRB,2.0285E+00_JPRB,1.5162E+00_JPRB,2.0551E+00_JPRB/)
+KBO( :, 1,19,12) = (/&
+&7.8530E-01_JPRB,7.9679E-01_JPRB,7.0528E-01_JPRB,5.2265E-01_JPRB,1.4533E+00_JPRB/)
+KBO( :, 2,19,12) = (/&
+&1.0644E+00_JPRB,1.0830E+00_JPRB,9.5920E-01_JPRB,7.1045E-01_JPRB,1.5651E+00_JPRB/)
+KBO( :, 3,19,12) = (/&
+&1.3856E+00_JPRB,1.4087E+00_JPRB,1.2542E+00_JPRB,9.2677E-01_JPRB,1.6748E+00_JPRB/)
+KBO( :, 4,19,12) = (/&
+&1.7452E+00_JPRB,1.7745E+00_JPRB,1.5782E+00_JPRB,1.1737E+00_JPRB,1.7839E+00_JPRB/)
+KBO( :, 5,19,12) = (/&
+&2.1398E+00_JPRB,2.1794E+00_JPRB,1.9373E+00_JPRB,1.4553E+00_JPRB,1.9023E+00_JPRB/)
+KBO( :, 1,20,12) = (/&
+&7.2778E-01_JPRB,7.6194E-01_JPRB,6.7390E-01_JPRB,5.0077E-01_JPRB,1.3617E+00_JPRB/)
+KBO( :, 2,20,12) = (/&
+&9.8068E-01_JPRB,1.0262E+00_JPRB,9.1245E-01_JPRB,6.7491E-01_JPRB,1.4807E+00_JPRB/)
+KBO( :, 3,20,12) = (/&
+&1.2722E+00_JPRB,1.3293E+00_JPRB,1.1831E+00_JPRB,8.7574E-01_JPRB,1.5966E+00_JPRB/)
+KBO( :, 4,20,12) = (/&
+&1.5991E+00_JPRB,1.6714E+00_JPRB,1.4853E+00_JPRB,1.1090E+00_JPRB,1.7163E+00_JPRB/)
+KBO( :, 5,20,12) = (/&
+&1.9535E+00_JPRB,2.0500E+00_JPRB,1.8231E+00_JPRB,1.3754E+00_JPRB,1.8494E+00_JPRB/)
+KBO( :, 1,21,12) = (/&
+&6.6504E-01_JPRB,7.1378E-01_JPRB,6.3305E-01_JPRB,4.7002E-01_JPRB,1.2946E+00_JPRB/)
+KBO( :, 2,21,12) = (/&
+&8.9278E-01_JPRB,9.5693E-01_JPRB,8.4967E-01_JPRB,6.2960E-01_JPRB,1.4170E+00_JPRB/)
+KBO( :, 3,21,12) = (/&
+&1.1553E+00_JPRB,1.2382E+00_JPRB,1.0968E+00_JPRB,8.1599E-01_JPRB,1.5400E+00_JPRB/)
+KBO( :, 4,21,12) = (/&
+&1.4482E+00_JPRB,1.5551E+00_JPRB,1.3761E+00_JPRB,1.0330E+00_JPRB,1.6737E+00_JPRB/)
+KBO( :, 5,21,12) = (/&
+&1.7635E+00_JPRB,1.8984E+00_JPRB,1.6920E+00_JPRB,1.2782E+00_JPRB,1.8148E+00_JPRB/)
+KBO( :, 1,22,12) = (/&
+&6.1409E-01_JPRB,6.7210E-01_JPRB,5.9517E-01_JPRB,4.4205E-01_JPRB,1.2140E+00_JPRB/)
+KBO( :, 2,22,12) = (/&
+&8.2009E-01_JPRB,8.9690E-01_JPRB,7.9134E-01_JPRB,5.8900E-01_JPRB,1.3388E+00_JPRB/)
+KBO( :, 3,22,12) = (/&
+&1.0573E+00_JPRB,1.1562E+00_JPRB,1.0170E+00_JPRB,7.6239E-01_JPRB,1.4674E+00_JPRB/)
+KBO( :, 4,22,12) = (/&
+&1.3173E+00_JPRB,1.4441E+00_JPRB,1.2773E+00_JPRB,9.6111E-01_JPRB,1.6103E+00_JPRB/)
+KBO( :, 5,22,12) = (/&
+&1.6008E+00_JPRB,1.7593E+00_JPRB,1.5714E+00_JPRB,1.1859E+00_JPRB,1.7554E+00_JPRB/)
+KBO( :, 1,23,12) = (/&
+&5.6489E-01_JPRB,6.2643E-01_JPRB,5.5181E-01_JPRB,4.1055E-01_JPRB,1.1296E+00_JPRB/)
+KBO( :, 2,23,12) = (/&
+&7.5136E-01_JPRB,8.3205E-01_JPRB,7.2882E-01_JPRB,5.4587E-01_JPRB,1.2556E+00_JPRB/)
+KBO( :, 3,23,12) = (/&
+&9.6147E-01_JPRB,1.0673E+00_JPRB,9.3622E-01_JPRB,7.0474E-01_JPRB,1.3939E+00_JPRB/)
+KBO( :, 4,23,12) = (/&
+&1.1945E+00_JPRB,1.3292E+00_JPRB,1.1758E+00_JPRB,8.8540E-01_JPRB,1.5380E+00_JPRB/)
+KBO( :, 5,23,12) = (/&
+&1.4498E+00_JPRB,1.6203E+00_JPRB,1.4443E+00_JPRB,1.0897E+00_JPRB,1.6879E+00_JPRB/)
+KBO( :, 1,24,12) = (/&
+&5.2019E-01_JPRB,5.8108E-01_JPRB,5.0714E-01_JPRB,3.7894E-01_JPRB,1.0335E+00_JPRB/)
+KBO( :, 2,24,12) = (/&
+&6.8678E-01_JPRB,7.6753E-01_JPRB,6.6836E-01_JPRB,5.0261E-01_JPRB,1.1623E+00_JPRB/)
+KBO( :, 3,24,12) = (/&
+&8.7490E-01_JPRB,9.8000E-01_JPRB,8.5888E-01_JPRB,6.4559E-01_JPRB,1.3047E+00_JPRB/)
+KBO( :, 4,24,12) = (/&
+&1.0855E+00_JPRB,1.2194E+00_JPRB,1.0757E+00_JPRB,8.1029E-01_JPRB,1.4513E+00_JPRB/)
+KBO( :, 5,24,12) = (/&
+&1.3195E+00_JPRB,1.4875E+00_JPRB,1.3176E+00_JPRB,9.9617E-01_JPRB,1.6042E+00_JPRB/)
+KBO( :, 1,25,12) = (/&
+&4.8125E-01_JPRB,5.3776E-01_JPRB,4.6543E-01_JPRB,3.4920E-01_JPRB,9.4296E-01_JPRB/)
+KBO( :, 2,25,12) = (/&
+&6.3062E-01_JPRB,7.0671E-01_JPRB,6.1374E-01_JPRB,4.6025E-01_JPRB,1.0786E+00_JPRB/)
+KBO( :, 3,25,12) = (/&
+&8.0138E-01_JPRB,8.9961E-01_JPRB,7.8690E-01_JPRB,5.8999E-01_JPRB,1.2219E+00_JPRB/)
+KBO( :, 4,25,12) = (/&
+&9.9501E-01_JPRB,1.1200E+00_JPRB,9.8131E-01_JPRB,7.3979E-01_JPRB,1.3746E+00_JPRB/)
+KBO( :, 5,25,12) = (/&
+&1.2133E+00_JPRB,1.3690E+00_JPRB,1.2002E+00_JPRB,9.0848E-01_JPRB,1.5310E+00_JPRB/)
+KBO( :, 1,26,12) = (/&
+&4.4718E-01_JPRB,5.0045E-01_JPRB,4.3026E-01_JPRB,3.2190E-01_JPRB,8.7401E-01_JPRB/)
+KBO( :, 2,26,12) = (/&
+&5.8377E-01_JPRB,6.5329E-01_JPRB,5.6669E-01_JPRB,4.2222E-01_JPRB,1.0132E+00_JPRB/)
+KBO( :, 3,26,12) = (/&
+&7.4225E-01_JPRB,8.3122E-01_JPRB,7.2142E-01_JPRB,5.4093E-01_JPRB,1.1599E+00_JPRB/)
+KBO( :, 4,26,12) = (/&
+&9.2576E-01_JPRB,1.0363E+00_JPRB,8.9875E-01_JPRB,6.7651E-01_JPRB,1.3150E+00_JPRB/)
+KBO( :, 5,26,12) = (/&
+&1.1359E+00_JPRB,1.2689E+00_JPRB,1.1003E+00_JPRB,8.3128E-01_JPRB,1.4725E+00_JPRB/)
+KBO( :, 1,27,12) = (/&
+&4.1742E-01_JPRB,4.6589E-01_JPRB,4.0014E-01_JPRB,2.9607E-01_JPRB,8.0311E-01_JPRB/)
+KBO( :, 2,27,12) = (/&
+&5.4534E-01_JPRB,6.0694E-01_JPRB,5.2254E-01_JPRB,3.8814E-01_JPRB,9.3748E-01_JPRB/)
+KBO( :, 3,27,12) = (/&
+&6.9705E-01_JPRB,7.7317E-01_JPRB,6.6432E-01_JPRB,4.9566E-01_JPRB,1.0808E+00_JPRB/)
+KBO( :, 4,27,12) = (/&
+&8.7421E-01_JPRB,9.6588E-01_JPRB,8.2816E-01_JPRB,6.1915E-01_JPRB,1.2270E+00_JPRB/)
+KBO( :, 5,27,12) = (/&
+&1.0783E+00_JPRB,1.1900E+00_JPRB,1.0151E+00_JPRB,7.6356E-01_JPRB,1.3781E+00_JPRB/)
+KBO( :, 1,28,12) = (/&
+&3.9237E-01_JPRB,4.3515E-01_JPRB,3.7248E-01_JPRB,2.7305E-01_JPRB,7.2280E-01_JPRB/)
+KBO( :, 2,28,12) = (/&
+&5.1563E-01_JPRB,5.6757E-01_JPRB,4.8403E-01_JPRB,3.5700E-01_JPRB,8.4677E-01_JPRB/)
+KBO( :, 3,28,12) = (/&
+&6.6308E-01_JPRB,7.2519E-01_JPRB,6.1590E-01_JPRB,4.5472E-01_JPRB,9.7710E-01_JPRB/)
+KBO( :, 4,28,12) = (/&
+&8.3646E-01_JPRB,9.1152E-01_JPRB,7.6997E-01_JPRB,5.6988E-01_JPRB,1.1096E+00_JPRB/)
+KBO( :, 5,28,12) = (/&
+&1.0359E+00_JPRB,1.1276E+00_JPRB,9.4962E-01_JPRB,7.0526E-01_JPRB,1.2485E+00_JPRB/)
+KBO( :, 1,29,12) = (/&
+&3.7279E-01_JPRB,4.1014E-01_JPRB,3.4774E-01_JPRB,2.5341E-01_JPRB,6.3269E-01_JPRB/)
+KBO( :, 2,29,12) = (/&
+&4.9283E-01_JPRB,5.3769E-01_JPRB,4.5233E-01_JPRB,3.3021E-01_JPRB,7.4294E-01_JPRB/)
+KBO( :, 3,29,12) = (/&
+&6.3731E-01_JPRB,6.8994E-01_JPRB,5.7780E-01_JPRB,4.2070E-01_JPRB,8.5678E-01_JPRB/)
+KBO( :, 4,29,12) = (/&
+&8.0637E-01_JPRB,8.7025E-01_JPRB,7.2644E-01_JPRB,5.2908E-01_JPRB,9.7595E-01_JPRB/)
+KBO( :, 5,29,12) = (/&
+&9.9943E-01_JPRB,1.0813E+00_JPRB,9.0128E-01_JPRB,6.5866E-01_JPRB,1.1019E+00_JPRB/)
+KBO( :, 1,30,12) = (/&
+&3.5722E-01_JPRB,3.9080E-01_JPRB,3.2710E-01_JPRB,2.3601E-01_JPRB,5.4037E-01_JPRB/)
+KBO( :, 2,30,12) = (/&
+&4.7448E-01_JPRB,5.1429E-01_JPRB,4.2783E-01_JPRB,3.0716E-01_JPRB,6.3503E-01_JPRB/)
+KBO( :, 3,30,12) = (/&
+&6.1439E-01_JPRB,6.6308E-01_JPRB,5.4920E-01_JPRB,3.9345E-01_JPRB,7.3381E-01_JPRB/)
+KBO( :, 4,30,12) = (/&
+&7.7644E-01_JPRB,8.4062E-01_JPRB,6.9350E-01_JPRB,4.9782E-01_JPRB,8.4010E-01_JPRB/)
+KBO( :, 5,30,12) = (/&
+&9.6226E-01_JPRB,1.0478E+00_JPRB,8.6468E-01_JPRB,6.2256E-01_JPRB,9.5398E-01_JPRB/)
+KBO( :, 1,31,12) = (/&
+&3.4498E-01_JPRB,3.7545E-01_JPRB,3.1150E-01_JPRB,2.2122E-01_JPRB,4.4905E-01_JPRB/)
+KBO( :, 2,31,12) = (/&
+&4.5820E-01_JPRB,4.9653E-01_JPRB,4.0983E-01_JPRB,2.8888E-01_JPRB,5.2917E-01_JPRB/)
+KBO( :, 3,31,12) = (/&
+&5.9170E-01_JPRB,6.4378E-01_JPRB,5.2810E-01_JPRB,3.7284E-01_JPRB,6.1590E-01_JPRB/)
+KBO( :, 4,31,12) = (/&
+&7.4787E-01_JPRB,8.1835E-01_JPRB,6.7064E-01_JPRB,4.7448E-01_JPRB,7.0953E-01_JPRB/)
+KBO( :, 5,31,12) = (/&
+&9.2776E-01_JPRB,1.0238E+00_JPRB,8.4020E-01_JPRB,5.9540E-01_JPRB,8.0850E-01_JPRB/)
+KBO( :, 1,32,12) = (/&
+&3.3387E-01_JPRB,3.6397E-01_JPRB,2.9979E-01_JPRB,2.0962E-01_JPRB,3.7307E-01_JPRB/)
+KBO( :, 2,32,12) = (/&
+&4.4163E-01_JPRB,4.8363E-01_JPRB,3.9607E-01_JPRB,2.7594E-01_JPRB,4.4216E-01_JPRB/)
+KBO( :, 3,32,12) = (/&
+&5.7015E-01_JPRB,6.2876E-01_JPRB,5.1363E-01_JPRB,3.5765E-01_JPRB,5.1788E-01_JPRB/)
+KBO( :, 4,32,12) = (/&
+&7.2141E-01_JPRB,8.0151E-01_JPRB,6.5517E-01_JPRB,4.5717E-01_JPRB,6.0016E-01_JPRB/)
+KBO( :, 5,32,12) = (/&
+&8.9922E-01_JPRB,1.0062E+00_JPRB,8.2407E-01_JPRB,5.7459E-01_JPRB,6.8536E-01_JPRB/)
+KBO( :, 1,33,12) = (/&
+&3.2293E-01_JPRB,3.5547E-01_JPRB,2.9093E-01_JPRB,2.0149E-01_JPRB,3.0917E-01_JPRB/)
+KBO( :, 2,33,12) = (/&
+&4.2627E-01_JPRB,4.7355E-01_JPRB,3.8619E-01_JPRB,2.6640E-01_JPRB,3.6920E-01_JPRB/)
+KBO( :, 3,33,12) = (/&
+&5.5058E-01_JPRB,6.1665E-01_JPRB,5.0346E-01_JPRB,3.4679E-01_JPRB,4.3505E-01_JPRB/)
+KBO( :, 4,33,12) = (/&
+&6.9980E-01_JPRB,7.8852E-01_JPRB,6.4475E-01_JPRB,4.4442E-01_JPRB,5.0488E-01_JPRB/)
+KBO( :, 5,33,12) = (/&
+&8.7592E-01_JPRB,9.9390E-01_JPRB,8.1496E-01_JPRB,5.6029E-01_JPRB,5.7746E-01_JPRB/)
+KBO( :, 1,34,12) = (/&
+&3.0940E-01_JPRB,3.4528E-01_JPRB,2.8156E-01_JPRB,1.9363E-01_JPRB,2.6611E-01_JPRB/)
+KBO( :, 2,34,12) = (/&
+&4.0894E-01_JPRB,4.6074E-01_JPRB,3.7565E-01_JPRB,2.5763E-01_JPRB,3.1938E-01_JPRB/)
+KBO( :, 3,34,12) = (/&
+&5.3041E-01_JPRB,6.0251E-01_JPRB,4.9185E-01_JPRB,3.3679E-01_JPRB,3.7762E-01_JPRB/)
+KBO( :, 4,34,12) = (/&
+&6.7786E-01_JPRB,7.7350E-01_JPRB,6.3399E-01_JPRB,4.3276E-01_JPRB,4.3880E-01_JPRB/)
+KBO( :, 5,34,12) = (/&
+&8.5216E-01_JPRB,9.8050E-01_JPRB,8.0443E-01_JPRB,5.4758E-01_JPRB,5.0384E-01_JPRB/)
+KBO( :, 1,35,12) = (/&
+&2.8939E-01_JPRB,3.2702E-01_JPRB,2.6622E-01_JPRB,1.8249E-01_JPRB,2.2426E-01_JPRB/)
+KBO( :, 2,35,12) = (/&
+&3.8432E-01_JPRB,4.3860E-01_JPRB,3.5768E-01_JPRB,2.4461E-01_JPRB,2.7044E-01_JPRB/)
+KBO( :, 3,35,12) = (/&
+&5.0227E-01_JPRB,5.7687E-01_JPRB,4.7133E-01_JPRB,3.2156E-01_JPRB,3.2047E-01_JPRB/)
+KBO( :, 4,35,12) = (/&
+&6.4522E-01_JPRB,7.4630E-01_JPRB,6.1202E-01_JPRB,4.1516E-01_JPRB,3.7356E-01_JPRB/)
+KBO( :, 5,35,12) = (/&
+&8.1623E-01_JPRB,9.5325E-01_JPRB,7.8163E-01_JPRB,5.2821E-01_JPRB,4.3272E-01_JPRB/)
+KBO( :, 1,36,12) = (/&
+&2.6330E-01_JPRB,3.0070E-01_JPRB,2.4442E-01_JPRB,1.6757E-01_JPRB,1.8310E-01_JPRB/)
+KBO( :, 2,36,12) = (/&
+&3.5255E-01_JPRB,4.0667E-01_JPRB,3.3144E-01_JPRB,2.2644E-01_JPRB,2.2200E-01_JPRB/)
+KBO( :, 3,36,12) = (/&
+&4.6468E-01_JPRB,5.3948E-01_JPRB,4.4110E-01_JPRB,3.0012E-01_JPRB,2.6412E-01_JPRB/)
+KBO( :, 4,36,12) = (/&
+&6.0155E-01_JPRB,7.0486E-01_JPRB,5.7783E-01_JPRB,3.9058E-01_JPRB,3.1002E-01_JPRB/)
+KBO( :, 5,36,12) = (/&
+&7.6703E-01_JPRB,9.0873E-01_JPRB,7.4457E-01_JPRB,5.0060E-01_JPRB,3.6395E-01_JPRB/)
+KBO( :, 1,37,12) = (/&
+&2.3001E-01_JPRB,2.6442E-01_JPRB,2.1459E-01_JPRB,1.4727E-01_JPRB,1.5536E-01_JPRB/)
+KBO( :, 2,37,12) = (/&
+&3.1096E-01_JPRB,3.6197E-01_JPRB,2.9461E-01_JPRB,2.0129E-01_JPRB,1.9004E-01_JPRB/)
+KBO( :, 3,37,12) = (/&
+&4.1431E-01_JPRB,4.8589E-01_JPRB,3.9700E-01_JPRB,2.7000E-01_JPRB,2.2800E-01_JPRB/)
+KBO( :, 4,37,12) = (/&
+&5.4226E-01_JPRB,6.4266E-01_JPRB,5.2665E-01_JPRB,3.5524E-01_JPRB,2.6910E-01_JPRB/)
+KBO( :, 5,37,12) = (/&
+&6.9841E-01_JPRB,8.3797E-01_JPRB,6.8663E-01_JPRB,4.5963E-01_JPRB,3.1774E-01_JPRB/)
+KBO( :, 1,38,12) = (/&
+&2.0134E-01_JPRB,2.3227E-01_JPRB,1.8814E-01_JPRB,1.2935E-01_JPRB,1.3137E-01_JPRB/)
+KBO( :, 2,38,12) = (/&
+&2.7468E-01_JPRB,3.2208E-01_JPRB,2.6174E-01_JPRB,1.7891E-01_JPRB,1.6217E-01_JPRB/)
+KBO( :, 3,38,12) = (/&
+&3.6956E-01_JPRB,4.3776E-01_JPRB,3.5733E-01_JPRB,2.4289E-01_JPRB,1.9623E-01_JPRB/)
+KBO( :, 4,38,12) = (/&
+&4.8896E-01_JPRB,5.8640E-01_JPRB,4.8002E-01_JPRB,3.2349E-01_JPRB,2.3300E-01_JPRB/)
+KBO( :, 5,38,12) = (/&
+&6.3666E-01_JPRB,7.7346E-01_JPRB,6.3380E-01_JPRB,4.2286E-01_JPRB,2.7663E-01_JPRB/)
+KBO( :, 1,39,12) = (/&
+&1.7697E-01_JPRB,2.0467E-01_JPRB,1.6540E-01_JPRB,1.1386E-01_JPRB,1.1007E-01_JPRB/)
+KBO( :, 2,39,12) = (/&
+&2.4368E-01_JPRB,2.8735E-01_JPRB,2.3319E-01_JPRB,1.5947E-01_JPRB,1.3719E-01_JPRB/)
+KBO( :, 3,39,12) = (/&
+&3.3092E-01_JPRB,3.9580E-01_JPRB,3.2268E-01_JPRB,2.1918E-01_JPRB,1.6720E-01_JPRB/)
+KBO( :, 4,39,12) = (/&
+&4.4249E-01_JPRB,5.3699E-01_JPRB,4.3914E-01_JPRB,2.9552E-01_JPRB,1.9987E-01_JPRB/)
+KBO( :, 5,39,12) = (/&
+&5.8226E-01_JPRB,7.1600E-01_JPRB,5.8709E-01_JPRB,3.9058E-01_JPRB,2.3879E-01_JPRB/)
+KBO( :, 1,40,12) = (/&
+&1.5084E-01_JPRB,1.7449E-01_JPRB,1.4045E-01_JPRB,9.6794E-02_JPRB,9.3392E-02_JPRB/)
+KBO( :, 2,40,12) = (/&
+&2.1010E-01_JPRB,2.4822E-01_JPRB,2.0097E-01_JPRB,1.3766E-01_JPRB,1.1767E-01_JPRB/)
+KBO( :, 3,40,12) = (/&
+&2.8835E-01_JPRB,3.4716E-01_JPRB,2.8248E-01_JPRB,1.9197E-01_JPRB,1.4495E-01_JPRB/)
+KBO( :, 4,40,12) = (/&
+&3.8988E-01_JPRB,4.7789E-01_JPRB,3.9037E-01_JPRB,2.6261E-01_JPRB,1.7468E-01_JPRB/)
+KBO( :, 5,40,12) = (/&
+&5.1945E-01_JPRB,6.4586E-01_JPRB,5.2903E-01_JPRB,3.5162E-01_JPRB,2.0975E-01_JPRB/)
+KBO( :, 1,41,12) = (/&
+&1.2817E-01_JPRB,1.4829E-01_JPRB,1.1887E-01_JPRB,8.1840E-02_JPRB,7.9057E-02_JPRB/)
+KBO( :, 2,41,12) = (/&
+&1.8060E-01_JPRB,2.1362E-01_JPRB,1.7247E-01_JPRB,1.1830E-01_JPRB,1.0081E-01_JPRB/)
+KBO( :, 3,41,12) = (/&
+&2.5080E-01_JPRB,3.0334E-01_JPRB,2.4634E-01_JPRB,1.6753E-01_JPRB,1.2548E-01_JPRB/)
+KBO( :, 4,41,12) = (/&
+&3.4280E-01_JPRB,4.2376E-01_JPRB,3.4586E-01_JPRB,2.3251E-01_JPRB,1.5256E-01_JPRB/)
+KBO( :, 5,41,12) = (/&
+&4.6230E-01_JPRB,5.8070E-01_JPRB,4.7518E-01_JPRB,3.1572E-01_JPRB,1.8431E-01_JPRB/)
+KBO( :, 1,42,12) = (/&
+&1.0893E-01_JPRB,1.2613E-01_JPRB,1.0083E-01_JPRB,6.9157E-02_JPRB,6.6394E-02_JPRB/)
+KBO( :, 2,42,12) = (/&
+&1.5547E-01_JPRB,1.8415E-01_JPRB,1.4803E-01_JPRB,1.0161E-01_JPRB,8.5777E-02_JPRB/)
+KBO( :, 3,42,12) = (/&
+&2.1846E-01_JPRB,2.6502E-01_JPRB,2.1486E-01_JPRB,1.4627E-01_JPRB,1.0794E-01_JPRB/)
+KBO( :, 4,42,12) = (/&
+&3.0198E-01_JPRB,3.7587E-01_JPRB,3.0638E-01_JPRB,2.0583E-01_JPRB,1.3247E-01_JPRB/)
+KBO( :, 5,42,12) = (/&
+&4.1199E-01_JPRB,5.2225E-01_JPRB,4.2709E-01_JPRB,2.8351E-01_JPRB,1.6111E-01_JPRB/)
+KBO( :, 1,43,12) = (/&
+&9.0638E-02_JPRB,1.0503E-01_JPRB,8.3795E-02_JPRB,5.7071E-02_JPRB,5.5354E-02_JPRB/)
+KBO( :, 2,43,12) = (/&
+&1.3131E-01_JPRB,1.5548E-01_JPRB,1.2458E-01_JPRB,8.5364E-02_JPRB,7.2576E-02_JPRB/)
+KBO( :, 3,43,12) = (/&
+&1.8681E-01_JPRB,2.2707E-01_JPRB,1.8347E-01_JPRB,1.2501E-01_JPRB,9.2538E-02_JPRB/)
+KBO( :, 4,43,12) = (/&
+&2.6160E-01_JPRB,3.2672E-01_JPRB,2.6595E-01_JPRB,1.7876E-01_JPRB,1.1500E-01_JPRB/)
+KBO( :, 5,43,12) = (/&
+&3.6120E-01_JPRB,4.6097E-01_JPRB,3.7669E-01_JPRB,2.4999E-01_JPRB,1.4075E-01_JPRB/)
+KBO( :, 1,44,12) = (/&
+&7.4518E-02_JPRB,8.6409E-02_JPRB,6.8952E-02_JPRB,4.6577E-02_JPRB,4.5787E-02_JPRB/)
+KBO( :, 2,44,12) = (/&
+&1.0975E-01_JPRB,1.2994E-01_JPRB,1.0385E-01_JPRB,7.0835E-02_JPRB,6.0976E-02_JPRB/)
+KBO( :, 3,44,12) = (/&
+&1.5828E-01_JPRB,1.9250E-01_JPRB,1.5506E-01_JPRB,1.0558E-01_JPRB,7.8936E-02_JPRB/)
+KBO( :, 4,44,12) = (/&
+&2.2471E-01_JPRB,2.8098E-01_JPRB,2.2821E-01_JPRB,1.5365E-01_JPRB,9.9460E-02_JPRB/)
+KBO( :, 5,44,12) = (/&
+&3.1406E-01_JPRB,4.0269E-01_JPRB,3.2871E-01_JPRB,2.1813E-01_JPRB,1.2276E-01_JPRB/)
+KBO( :, 1,45,12) = (/&
+&6.0927E-02_JPRB,7.0888E-02_JPRB,5.6604E-02_JPRB,3.8007E-02_JPRB,3.7451E-02_JPRB/)
+KBO( :, 2,45,12) = (/&
+&9.1562E-02_JPRB,1.0848E-01_JPRB,8.6563E-02_JPRB,5.8638E-02_JPRB,5.0739E-02_JPRB/)
+KBO( :, 3,45,12) = (/&
+&1.3401E-01_JPRB,1.6305E-01_JPRB,1.3093E-01_JPRB,8.8909E-02_JPRB,6.6645E-02_JPRB/)
+KBO( :, 4,45,12) = (/&
+&1.9278E-01_JPRB,2.4132E-01_JPRB,1.9538E-01_JPRB,1.3171E-01_JPRB,8.5195E-02_JPRB/)
+KBO( :, 5,45,12) = (/&
+&2.7301E-01_JPRB,3.5087E-01_JPRB,2.8599E-01_JPRB,1.8994E-01_JPRB,1.0627E-01_JPRB/)
+KBO( :, 1,46,12) = (/&
+&4.9049E-02_JPRB,5.7390E-02_JPRB,4.5841E-02_JPRB,3.0652E-02_JPRB,3.0244E-02_JPRB/)
+KBO( :, 2,46,12) = (/&
+&7.5395E-02_JPRB,8.9544E-02_JPRB,7.1479E-02_JPRB,4.8016E-02_JPRB,4.1812E-02_JPRB/)
+KBO( :, 3,46,12) = (/&
+&1.1243E-01_JPRB,1.3673E-01_JPRB,1.0940E-01_JPRB,7.3992E-02_JPRB,5.5802E-02_JPRB/)
+KBO( :, 4,46,12) = (/&
+&1.6385E-01_JPRB,2.0515E-01_JPRB,1.6554E-01_JPRB,1.1163E-01_JPRB,7.2384E-02_JPRB/)
+KBO( :, 5,46,12) = (/&
+&2.3535E-01_JPRB,3.0228E-01_JPRB,2.4596E-01_JPRB,1.6359E-01_JPRB,9.1350E-02_JPRB/)
+KBO( :, 1,47,12) = (/&
+&3.8455E-02_JPRB,4.5311E-02_JPRB,3.6191E-02_JPRB,2.4099E-02_JPRB,2.4180E-02_JPRB/)
+KBO( :, 2,47,12) = (/&
+&6.0543E-02_JPRB,7.2219E-02_JPRB,5.7752E-02_JPRB,3.8501E-02_JPRB,3.4153E-02_JPRB/)
+KBO( :, 3,47,12) = (/&
+&9.2469E-02_JPRB,1.1229E-01_JPRB,8.9649E-02_JPRB,6.0326E-02_JPRB,4.6448E-02_JPRB/)
+KBO( :, 4,47,12) = (/&
+&1.3689E-01_JPRB,1.7102E-01_JPRB,1.3750E-01_JPRB,9.2547E-02_JPRB,6.1214E-02_JPRB/)
+KBO( :, 5,47,12) = (/&
+&1.9927E-01_JPRB,2.5535E-01_JPRB,2.0704E-01_JPRB,1.3818E-01_JPRB,7.8425E-02_JPRB/)
+KBO( :, 1,48,12) = (/&
+&2.9907E-02_JPRB,3.5538E-02_JPRB,2.8349E-02_JPRB,1.8781E-02_JPRB,1.9054E-02_JPRB/)
+KBO( :, 2,48,12) = (/&
+&4.8228E-02_JPRB,5.7904E-02_JPRB,4.6345E-02_JPRB,3.0764E-02_JPRB,2.7466E-02_JPRB/)
+KBO( :, 3,48,12) = (/&
+&7.5470E-02_JPRB,9.1806E-02_JPRB,7.3317E-02_JPRB,4.8995E-02_JPRB,3.8151E-02_JPRB/)
+KBO( :, 4,48,12) = (/&
+&1.1406E-01_JPRB,1.4204E-01_JPRB,1.1383E-01_JPRB,7.6343E-02_JPRB,5.1172E-02_JPRB/)
+KBO( :, 5,48,12) = (/&
+&1.6822E-01_JPRB,2.1497E-01_JPRB,1.7372E-01_JPRB,1.1607E-01_JPRB,6.6629E-02_JPRB/)
+KBO( :, 1,49,12) = (/&
+&2.3084E-02_JPRB,2.7602E-02_JPRB,2.2043E-02_JPRB,1.4515E-02_JPRB,1.4700E-02_JPRB/)
+KBO( :, 2,49,12) = (/&
+&3.8134E-02_JPRB,4.6138E-02_JPRB,3.6932E-02_JPRB,2.4422E-02_JPRB,2.1696E-02_JPRB/)
+KBO( :, 3,49,12) = (/&
+&6.1053E-02_JPRB,7.4691E-02_JPRB,5.9743E-02_JPRB,3.9618E-02_JPRB,3.0784E-02_JPRB/)
+KBO( :, 4,49,12) = (/&
+&9.4624E-02_JPRB,1.1747E-01_JPRB,9.3906E-02_JPRB,6.2717E-02_JPRB,4.2057E-02_JPRB/)
+KBO( :, 5,49,12) = (/&
+&1.4162E-01_JPRB,1.8031E-01_JPRB,1.4520E-01_JPRB,9.6951E-02_JPRB,5.5665E-02_JPRB/)
+KBO( :, 1,50,12) = (/&
+&1.7880E-02_JPRB,2.1522E-02_JPRB,1.7193E-02_JPRB,1.1281E-02_JPRB,1.1563E-02_JPRB/)
+KBO( :, 2,50,12) = (/&
+&3.0304E-02_JPRB,3.6988E-02_JPRB,2.9594E-02_JPRB,1.9489E-02_JPRB,1.7511E-02_JPRB/)
+KBO( :, 3,50,12) = (/&
+&4.9620E-02_JPRB,6.1130E-02_JPRB,4.8990E-02_JPRB,3.2313E-02_JPRB,2.5345E-02_JPRB/)
+KBO( :, 4,50,12) = (/&
+&7.8794E-02_JPRB,9.7813E-02_JPRB,7.8198E-02_JPRB,5.1943E-02_JPRB,3.5298E-02_JPRB/)
+KBO( :, 5,50,12) = (/&
+&1.2010E-01_JPRB,1.5227E-01_JPRB,1.2229E-01_JPRB,8.1438E-02_JPRB,4.7462E-02_JPRB/)
+KBO( :, 1,51,12) = (/&
+&1.3778E-02_JPRB,1.6753E-02_JPRB,1.3366E-02_JPRB,8.7587E-03_JPRB,9.1691E-03_JPRB/)
+KBO( :, 2,51,12) = (/&
+&2.4068E-02_JPRB,2.9598E-02_JPRB,2.3720E-02_JPRB,1.5531E-02_JPRB,1.4241E-02_JPRB/)
+KBO( :, 3,51,12) = (/&
+&4.0319E-02_JPRB,5.0023E-02_JPRB,4.0146E-02_JPRB,2.6379E-02_JPRB,2.1041E-02_JPRB/)
+KBO( :, 4,51,12) = (/&
+&6.5444E-02_JPRB,8.1559E-02_JPRB,6.5274E-02_JPRB,4.3107E-02_JPRB,2.9808E-02_JPRB/)
+KBO( :, 5,51,12) = (/&
+&1.0193E-01_JPRB,1.2878E-01_JPRB,1.0316E-01_JPRB,6.8485E-02_JPRB,4.0764E-02_JPRB/)
+KBO( :, 1,52,12) = (/&
+&1.0503E-02_JPRB,1.2908E-02_JPRB,1.0296E-02_JPRB,6.7391E-03_JPRB,7.1632E-03_JPRB/)
+KBO( :, 2,52,12) = (/&
+&1.8963E-02_JPRB,2.3514E-02_JPRB,1.8863E-02_JPRB,1.2292E-02_JPRB,1.1416E-02_JPRB/)
+KBO( :, 3,52,12) = (/&
+&3.2574E-02_JPRB,4.0763E-02_JPRB,3.2692E-02_JPRB,2.1413E-02_JPRB,1.7232E-02_JPRB/)
+KBO( :, 4,52,12) = (/&
+&5.4015E-02_JPRB,6.7725E-02_JPRB,5.4297E-02_JPRB,3.5648E-02_JPRB,2.4880E-02_JPRB/)
+KBO( :, 5,52,12) = (/&
+&8.6142E-02_JPRB,1.0850E-01_JPRB,8.6783E-02_JPRB,5.7412E-02_JPRB,3.4604E-02_JPRB/)
+KBO( :, 1,53,12) = (/&
+&7.9034E-03_JPRB,9.8239E-03_JPRB,7.8369E-03_JPRB,5.1248E-03_JPRB,5.4843E-03_JPRB/)
+KBO( :, 2,53,12) = (/&
+&1.4792E-02_JPRB,1.8526E-02_JPRB,1.4847E-02_JPRB,9.6585E-03_JPRB,8.9798E-03_JPRB/)
+KBO( :, 3,53,12) = (/&
+&2.6145E-02_JPRB,3.2976E-02_JPRB,2.6454E-02_JPRB,1.7260E-02_JPRB,1.3880E-02_JPRB/)
+KBO( :, 4,53,12) = (/&
+&4.4324E-02_JPRB,5.5900E-02_JPRB,4.4894E-02_JPRB,2.9345E-02_JPRB,2.0450E-02_JPRB/)
+KBO( :, 5,53,12) = (/&
+&7.2259E-02_JPRB,9.1031E-02_JPRB,7.2836E-02_JPRB,4.7964E-02_JPRB,2.8899E-02_JPRB/)
+KBO( :, 1,54,12) = (/&
+&6.0030E-03_JPRB,7.5343E-03_JPRB,6.0206E-03_JPRB,3.9269E-03_JPRB,4.4374E-03_JPRB/)
+KBO( :, 2,54,12) = (/&
+&1.1626E-02_JPRB,1.4746E-02_JPRB,1.1801E-02_JPRB,7.6733E-03_JPRB,7.4644E-03_JPRB/)
+KBO( :, 3,54,12) = (/&
+&2.1204E-02_JPRB,2.6932E-02_JPRB,2.1639E-02_JPRB,1.4058E-02_JPRB,1.1820E-02_JPRB/)
+KBO( :, 4,54,12) = (/&
+&3.6734E-02_JPRB,4.6630E-02_JPRB,3.7473E-02_JPRB,2.4399E-02_JPRB,1.7746E-02_JPRB/)
+KBO( :, 5,54,12) = (/&
+&6.1048E-02_JPRB,7.7176E-02_JPRB,6.1839E-02_JPRB,4.0517E-02_JPRB,2.5474E-02_JPRB/)
+KBO( :, 1,55,12) = (/&
+&4.5630E-03_JPRB,5.7681E-03_JPRB,4.6205E-03_JPRB,3.0002E-03_JPRB,3.7045E-03_JPRB/)
+KBO( :, 2,55,12) = (/&
+&9.1273E-03_JPRB,1.1728E-02_JPRB,9.3956E-03_JPRB,6.0945E-03_JPRB,6.4077E-03_JPRB/)
+KBO( :, 3,55,12) = (/&
+&1.7191E-02_JPRB,2.2039E-02_JPRB,1.7711E-02_JPRB,1.1469E-02_JPRB,1.0390E-02_JPRB/)
+KBO( :, 4,55,12) = (/&
+&3.0517E-02_JPRB,3.9009E-02_JPRB,3.1321E-02_JPRB,2.0350E-02_JPRB,1.5909E-02_JPRB/)
+KBO( :, 5,55,12) = (/&
+&5.1680E-02_JPRB,6.5618E-02_JPRB,5.2649E-02_JPRB,3.4345E-02_JPRB,2.3231E-02_JPRB/)
+KBO( :, 1,56,12) = (/&
+&3.4429E-03_JPRB,4.3693E-03_JPRB,3.5102E-03_JPRB,2.2664E-03_JPRB,3.0972E-03_JPRB/)
+KBO( :, 2,56,12) = (/&
+&7.1067E-03_JPRB,9.2412E-03_JPRB,7.4106E-03_JPRB,4.8010E-03_JPRB,5.4938E-03_JPRB/)
+KBO( :, 3,56,12) = (/&
+&1.3838E-02_JPRB,1.7926E-02_JPRB,1.4393E-02_JPRB,9.3102E-03_JPRB,9.1167E-03_JPRB/)
+KBO( :, 4,56,12) = (/&
+&2.5226E-02_JPRB,3.2470E-02_JPRB,2.6067E-02_JPRB,1.6890E-02_JPRB,1.4253E-02_JPRB/)
+KBO( :, 5,56,12) = (/&
+&4.3555E-02_JPRB,5.5559E-02_JPRB,4.4639E-02_JPRB,2.9008E-02_JPRB,2.1194E-02_JPRB/)
+KBO( :, 1,57,12) = (/&
+&2.5835E-03_JPRB,3.2792E-03_JPRB,2.6340E-03_JPRB,1.6928E-03_JPRB,2.5979E-03_JPRB/)
+KBO( :, 2,57,12) = (/&
+&5.4818E-03_JPRB,7.2018E-03_JPRB,5.7860E-03_JPRB,3.7399E-03_JPRB,4.6938E-03_JPRB/)
+KBO( :, 3,57,12) = (/&
+&1.1045E-02_JPRB,1.4477E-02_JPRB,1.1615E-02_JPRB,7.5071E-03_JPRB,7.9880E-03_JPRB/)
+KBO( :, 4,57,12) = (/&
+&2.0734E-02_JPRB,2.6855E-02_JPRB,2.1584E-02_JPRB,1.3939E-02_JPRB,1.2771E-02_JPRB/)
+KBO( :, 5,57,12) = (/&
+&3.6531E-02_JPRB,4.6834E-02_JPRB,3.7641E-02_JPRB,2.4391E-02_JPRB,1.9328E-02_JPRB/)
+KBO( :, 1,58,12) = (/&
+&1.9554E-03_JPRB,2.4805E-03_JPRB,1.9815E-03_JPRB,1.2675E-03_JPRB,2.2311E-03_JPRB/)
+KBO( :, 2,58,12) = (/&
+&4.2406E-03_JPRB,5.6194E-03_JPRB,4.5251E-03_JPRB,2.9142E-03_JPRB,4.0751E-03_JPRB/)
+KBO( :, 3,58,12) = (/&
+&8.8253E-03_JPRB,1.1715E-02_JPRB,9.4049E-03_JPRB,6.0687E-03_JPRB,7.1082E-03_JPRB/)
+KBO( :, 4,58,12) = (/&
+&1.7081E-02_JPRB,2.2294E-02_JPRB,1.7921E-02_JPRB,1.1542E-02_JPRB,1.1601E-02_JPRB/)
+KBO( :, 5,58,12) = (/&
+&3.0768E-02_JPRB,3.9661E-02_JPRB,3.1853E-02_JPRB,2.0599E-02_JPRB,1.7860E-02_JPRB/)
+KBO( :, 1,59,12) = (/&
+&1.7311E-03_JPRB,2.1950E-03_JPRB,1.7464E-03_JPRB,1.1095E-03_JPRB,2.2810E-03_JPRB/)
+KBO( :, 2,59,12) = (/&
+&3.7867E-03_JPRB,5.0375E-03_JPRB,4.0622E-03_JPRB,2.6050E-03_JPRB,4.2229E-03_JPRB/)
+KBO( :, 3,59,12) = (/&
+&7.9927E-03_JPRB,1.0691E-02_JPRB,8.5872E-03_JPRB,5.5330E-03_JPRB,7.4637E-03_JPRB/)
+KBO( :, 4,59,12) = (/&
+&1.5706E-02_JPRB,2.0603E-02_JPRB,1.6559E-02_JPRB,1.0653E-02_JPRB,1.2338E-02_JPRB/)
+KBO( :, 5,59,12) = (/&
+&2.8614E-02_JPRB,3.6995E-02_JPRB,2.9703E-02_JPRB,1.9191E-02_JPRB,1.9178E-02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_B3
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb3_B4.F90	(revision 2160)
@@ -0,0 +1,1925 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB3_B4
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO
+USE YOERRTA3 , ONLY : ABSN2OA ,ABSN2OB  ,ETAREF    ,H2OREF     ,&
+           &N2OREF     ,CO2REF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different H2O to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = H2O/(H2O+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of H2O.  For instance, JS=1 refers to no H2O, 
+!     JS = 2 corresponds to eta = 0.25, etc.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13,13) = (/&
+&1.2852E+00_JPRB,1.0643E+00_JPRB,9.2423E-01_JPRB,7.7210E-01_JPRB,4.8560E+00_JPRB/)
+KBO( :, 2,13,13) = (/&
+&1.8300E+00_JPRB,1.5153E+00_JPRB,1.3056E+00_JPRB,1.0896E+00_JPRB,5.1762E+00_JPRB/)
+KBO( :, 3,13,13) = (/&
+&2.4898E+00_JPRB,2.0619E+00_JPRB,1.7781E+00_JPRB,1.4720E+00_JPRB,5.5995E+00_JPRB/)
+KBO( :, 4,13,13) = (/&
+&3.2580E+00_JPRB,2.7136E+00_JPRB,2.3379E+00_JPRB,1.9103E+00_JPRB,6.0006E+00_JPRB/)
+KBO( :, 5,13,13) = (/&
+&4.1344E+00_JPRB,3.4741E+00_JPRB,2.9826E+00_JPRB,2.3986E+00_JPRB,6.3254E+00_JPRB/)
+KBO( :, 1,14,13) = (/&
+&1.4353E+00_JPRB,1.1813E+00_JPRB,1.0097E+00_JPRB,8.1766E-01_JPRB,4.4364E+00_JPRB/)
+KBO( :, 2,14,13) = (/&
+&2.0320E+00_JPRB,1.6766E+00_JPRB,1.4217E+00_JPRB,1.1476E+00_JPRB,4.7777E+00_JPRB/)
+KBO( :, 3,14,13) = (/&
+&2.7397E+00_JPRB,2.2766E+00_JPRB,1.9164E+00_JPRB,1.5404E+00_JPRB,5.1956E+00_JPRB/)
+KBO( :, 4,14,13) = (/&
+&3.5525E+00_JPRB,2.9774E+00_JPRB,2.5038E+00_JPRB,1.9898E+00_JPRB,5.5579E+00_JPRB/)
+KBO( :, 5,14,13) = (/&
+&4.4583E+00_JPRB,3.7784E+00_JPRB,3.1767E+00_JPRB,2.5098E+00_JPRB,5.8954E+00_JPRB/)
+KBO( :, 1,15,13) = (/&
+&1.5785E+00_JPRB,1.3067E+00_JPRB,1.1097E+00_JPRB,8.6674E-01_JPRB,3.8492E+00_JPRB/)
+KBO( :, 2,15,13) = (/&
+&2.2125E+00_JPRB,1.8434E+00_JPRB,1.5563E+00_JPRB,1.2050E+00_JPRB,4.1968E+00_JPRB/)
+KBO( :, 3,15,13) = (/&
+&2.9595E+00_JPRB,2.4844E+00_JPRB,2.0889E+00_JPRB,1.6068E+00_JPRB,4.5453E+00_JPRB/)
+KBO( :, 4,15,13) = (/&
+&3.8045E+00_JPRB,3.2259E+00_JPRB,2.7088E+00_JPRB,2.0757E+00_JPRB,4.8945E+00_JPRB/)
+KBO( :, 5,15,13) = (/&
+&4.7324E+00_JPRB,4.0530E+00_JPRB,3.4024E+00_JPRB,2.6201E+00_JPRB,5.1308E+00_JPRB/)
+KBO( :, 1,16,13) = (/&
+&1.6990E+00_JPRB,1.4270E+00_JPRB,1.2197E+00_JPRB,9.1540E-01_JPRB,3.2967E+00_JPRB/)
+KBO( :, 2,16,13) = (/&
+&2.3632E+00_JPRB,1.9965E+00_JPRB,1.6991E+00_JPRB,1.2635E+00_JPRB,3.5992E+00_JPRB/)
+KBO( :, 3,16,13) = (/&
+&3.1332E+00_JPRB,2.6737E+00_JPRB,2.2662E+00_JPRB,1.6797E+00_JPRB,3.8825E+00_JPRB/)
+KBO( :, 4,16,13) = (/&
+&3.9954E+00_JPRB,3.4413E+00_JPRB,2.9150E+00_JPRB,2.1732E+00_JPRB,4.0955E+00_JPRB/)
+KBO( :, 5,16,13) = (/&
+&4.9441E+00_JPRB,4.2813E+00_JPRB,3.6296E+00_JPRB,2.7347E+00_JPRB,4.3356E+00_JPRB/)
+KBO( :, 1,17,13) = (/&
+&1.7867E+00_JPRB,1.5291E+00_JPRB,1.3172E+00_JPRB,9.6442E-01_JPRB,2.8946E+00_JPRB/)
+KBO( :, 2,17,13) = (/&
+&2.4630E+00_JPRB,2.1240E+00_JPRB,1.8197E+00_JPRB,1.3271E+00_JPRB,3.1209E+00_JPRB/)
+KBO( :, 3,17,13) = (/&
+&3.2412E+00_JPRB,2.8205E+00_JPRB,2.4120E+00_JPRB,1.7621E+00_JPRB,3.3231E+00_JPRB/)
+KBO( :, 4,17,13) = (/&
+&4.1129E+00_JPRB,3.6026E+00_JPRB,3.0785E+00_JPRB,2.2752E+00_JPRB,3.5467E+00_JPRB/)
+KBO( :, 5,17,13) = (/&
+&5.0518E+00_JPRB,4.4575E+00_JPRB,3.8174E+00_JPRB,2.8444E+00_JPRB,3.7869E+00_JPRB/)
+KBO( :, 1,18,13) = (/&
+&1.8395E+00_JPRB,1.6132E+00_JPRB,1.3961E+00_JPRB,1.0121E+00_JPRB,2.6255E+00_JPRB/)
+KBO( :, 2,18,13) = (/&
+&2.5106E+00_JPRB,2.2211E+00_JPRB,1.9179E+00_JPRB,1.3918E+00_JPRB,2.8074E+00_JPRB/)
+KBO( :, 3,18,13) = (/&
+&3.2840E+00_JPRB,2.9230E+00_JPRB,2.5216E+00_JPRB,1.8455E+00_JPRB,2.9886E+00_JPRB/)
+KBO( :, 4,18,13) = (/&
+&4.1398E+00_JPRB,3.7076E+00_JPRB,3.1995E+00_JPRB,2.3655E+00_JPRB,3.2033E+00_JPRB/)
+KBO( :, 5,18,13) = (/&
+&5.0652E+00_JPRB,4.5681E+00_JPRB,3.9586E+00_JPRB,2.9470E+00_JPRB,3.4431E+00_JPRB/)
+KBO( :, 1,19,13) = (/&
+&1.8429E+00_JPRB,1.6700E+00_JPRB,1.4536E+00_JPRB,1.0564E+00_JPRB,2.4577E+00_JPRB/)
+KBO( :, 2,19,13) = (/&
+&2.5022E+00_JPRB,2.2784E+00_JPRB,1.9833E+00_JPRB,1.4492E+00_JPRB,2.6093E+00_JPRB/)
+KBO( :, 3,19,13) = (/&
+&3.2520E+00_JPRB,2.9805E+00_JPRB,2.5894E+00_JPRB,1.9140E+00_JPRB,2.7860E+00_JPRB/)
+KBO( :, 4,19,13) = (/&
+&4.0807E+00_JPRB,3.7648E+00_JPRB,3.2792E+00_JPRB,2.4354E+00_JPRB,2.9804E+00_JPRB/)
+KBO( :, 5,19,13) = (/&
+&4.9680E+00_JPRB,4.6224E+00_JPRB,4.0395E+00_JPRB,3.0224E+00_JPRB,3.2175E+00_JPRB/)
+KBO( :, 1,20,13) = (/&
+&1.8228E+00_JPRB,1.7025E+00_JPRB,1.4928E+00_JPRB,1.0898E+00_JPRB,2.3654E+00_JPRB/)
+KBO( :, 2,20,13) = (/&
+&2.4538E+00_JPRB,2.3051E+00_JPRB,2.0204E+00_JPRB,1.4897E+00_JPRB,2.5217E+00_JPRB/)
+KBO( :, 3,20,13) = (/&
+&3.1699E+00_JPRB,2.9971E+00_JPRB,2.6320E+00_JPRB,1.9524E+00_JPRB,2.6999E+00_JPRB/)
+KBO( :, 4,20,13) = (/&
+&3.9554E+00_JPRB,3.7710E+00_JPRB,3.3175E+00_JPRB,2.4725E+00_JPRB,2.8911E+00_JPRB/)
+KBO( :, 5,20,13) = (/&
+&4.8063E+00_JPRB,4.6094E+00_JPRB,4.0741E+00_JPRB,3.0590E+00_JPRB,3.1232E+00_JPRB/)
+KBO( :, 1,21,13) = (/&
+&1.7623E+00_JPRB,1.7061E+00_JPRB,1.5006E+00_JPRB,1.1051E+00_JPRB,2.2987E+00_JPRB/)
+KBO( :, 2,21,13) = (/&
+&2.3568E+00_JPRB,2.2938E+00_JPRB,2.0241E+00_JPRB,1.5005E+00_JPRB,2.4810E+00_JPRB/)
+KBO( :, 3,21,13) = (/&
+&3.0264E+00_JPRB,2.9663E+00_JPRB,2.6252E+00_JPRB,1.9540E+00_JPRB,2.6709E+00_JPRB/)
+KBO( :, 4,21,13) = (/&
+&3.7661E+00_JPRB,3.7114E+00_JPRB,3.3017E+00_JPRB,2.4660E+00_JPRB,2.8739E+00_JPRB/)
+KBO( :, 5,21,13) = (/&
+&4.5709E+00_JPRB,4.5292E+00_JPRB,4.0353E+00_JPRB,3.0458E+00_JPRB,3.1122E+00_JPRB/)
+KBO( :, 1,22,13) = (/&
+&1.7051E+00_JPRB,1.7105E+00_JPRB,1.5137E+00_JPRB,1.1220E+00_JPRB,2.2215E+00_JPRB/)
+KBO( :, 2,22,13) = (/&
+&2.2594E+00_JPRB,2.2812E+00_JPRB,2.0265E+00_JPRB,1.5078E+00_JPRB,2.4273E+00_JPRB/)
+KBO( :, 3,22,13) = (/&
+&2.8843E+00_JPRB,2.9298E+00_JPRB,2.6159E+00_JPRB,1.9497E+00_JPRB,2.6344E+00_JPRB/)
+KBO( :, 4,22,13) = (/&
+&3.5784E+00_JPRB,3.6530E+00_JPRB,3.2699E+00_JPRB,2.4532E+00_JPRB,2.8571E+00_JPRB/)
+KBO( :, 5,22,13) = (/&
+&4.3282E+00_JPRB,4.4413E+00_JPRB,3.9817E+00_JPRB,3.0263E+00_JPRB,3.1138E+00_JPRB/)
+KBO( :, 1,23,13) = (/&
+&1.6227E+00_JPRB,1.6865E+00_JPRB,1.4987E+00_JPRB,1.1164E+00_JPRB,2.1516E+00_JPRB/)
+KBO( :, 2,23,13) = (/&
+&2.1334E+00_JPRB,2.2311E+00_JPRB,1.9947E+00_JPRB,1.4865E+00_JPRB,2.3714E+00_JPRB/)
+KBO( :, 3,23,13) = (/&
+&2.7130E+00_JPRB,2.8505E+00_JPRB,2.5601E+00_JPRB,1.9131E+00_JPRB,2.5957E+00_JPRB/)
+KBO( :, 4,23,13) = (/&
+&3.3545E+00_JPRB,3.5417E+00_JPRB,3.1845E+00_JPRB,2.4070E+00_JPRB,2.8423E+00_JPRB/)
+KBO( :, 5,23,13) = (/&
+&4.0511E+00_JPRB,4.2980E+00_JPRB,3.8824E+00_JPRB,2.9663E+00_JPRB,3.1097E+00_JPRB/)
+KBO( :, 1,24,13) = (/&
+&1.5221E+00_JPRB,1.6399E+00_JPRB,1.4631E+00_JPRB,1.0922E+00_JPRB,2.0557E+00_JPRB/)
+KBO( :, 2,24,13) = (/&
+&1.9909E+00_JPRB,2.1551E+00_JPRB,1.9333E+00_JPRB,1.4438E+00_JPRB,2.2893E+00_JPRB/)
+KBO( :, 3,24,13) = (/&
+&2.5227E+00_JPRB,2.7424E+00_JPRB,2.4670E+00_JPRB,1.8560E+00_JPRB,2.5308E+00_JPRB/)
+KBO( :, 4,24,13) = (/&
+&3.1132E+00_JPRB,3.3998E+00_JPRB,3.0690E+00_JPRB,2.3315E+00_JPRB,2.7959E+00_JPRB/)
+KBO( :, 5,24,13) = (/&
+&3.7625E+00_JPRB,4.1275E+00_JPRB,3.7502E+00_JPRB,2.8726E+00_JPRB,3.0711E+00_JPRB/)
+KBO( :, 1,25,13) = (/&
+&1.4164E+00_JPRB,1.5764E+00_JPRB,1.4120E+00_JPRB,1.0539E+00_JPRB,1.9710E+00_JPRB/)
+KBO( :, 2,25,13) = (/&
+&1.8451E+00_JPRB,2.0623E+00_JPRB,1.8523E+00_JPRB,1.3889E+00_JPRB,2.2117E+00_JPRB/)
+KBO( :, 3,25,13) = (/&
+&2.3323E+00_JPRB,2.6170E+00_JPRB,2.3560E+00_JPRB,1.7813E+00_JPRB,2.4702E+00_JPRB/)
+KBO( :, 4,25,13) = (/&
+&2.8785E+00_JPRB,3.2423E+00_JPRB,2.9353E+00_JPRB,2.2379E+00_JPRB,2.7415E+00_JPRB/)
+KBO( :, 5,25,13) = (/&
+&3.4748E+00_JPRB,3.9386E+00_JPRB,3.5958E+00_JPRB,2.7566E+00_JPRB,3.0246E+00_JPRB/)
+KBO( :, 1,26,13) = (/&
+&1.3174E+00_JPRB,1.5065E+00_JPRB,1.3505E+00_JPRB,1.0108E+00_JPRB,1.9092E+00_JPRB/)
+KBO( :, 2,26,13) = (/&
+&1.7100E+00_JPRB,1.9656E+00_JPRB,1.7614E+00_JPRB,1.3273E+00_JPRB,2.1568E+00_JPRB/)
+KBO( :, 3,26,13) = (/&
+&2.1599E+00_JPRB,2.4918E+00_JPRB,2.2424E+00_JPRB,1.7022E+00_JPRB,2.4251E+00_JPRB/)
+KBO( :, 4,26,13) = (/&
+&2.6619E+00_JPRB,3.0863E+00_JPRB,2.8007E+00_JPRB,2.1368E+00_JPRB,2.6974E+00_JPRB/)
+KBO( :, 5,26,13) = (/&
+&3.2164E+00_JPRB,3.7562E+00_JPRB,3.4382E+00_JPRB,2.6323E+00_JPRB,2.9897E+00_JPRB/)
+KBO( :, 1,27,13) = (/&
+&1.2227E+00_JPRB,1.4318E+00_JPRB,1.2776E+00_JPRB,9.6234E-01_JPRB,1.8084E+00_JPRB/)
+KBO( :, 2,27,13) = (/&
+&1.5845E+00_JPRB,1.8650E+00_JPRB,1.6669E+00_JPRB,1.2616E+00_JPRB,2.0606E+00_JPRB/)
+KBO( :, 3,27,13) = (/&
+&1.9986E+00_JPRB,2.3637E+00_JPRB,2.1255E+00_JPRB,1.6180E+00_JPRB,2.3235E+00_JPRB/)
+KBO( :, 4,27,13) = (/&
+&2.4670E+00_JPRB,2.9335E+00_JPRB,2.6606E+00_JPRB,2.0306E+00_JPRB,2.5979E+00_JPRB/)
+KBO( :, 5,27,13) = (/&
+&2.9836E+00_JPRB,3.5812E+00_JPRB,3.2799E+00_JPRB,2.5047E+00_JPRB,2.8940E+00_JPRB/)
+KBO( :, 1,28,13) = (/&
+&1.1382E+00_JPRB,1.3569E+00_JPRB,1.2047E+00_JPRB,9.1050E-01_JPRB,1.6756E+00_JPRB/)
+KBO( :, 2,28,13) = (/&
+&1.4731E+00_JPRB,1.7658E+00_JPRB,1.5747E+00_JPRB,1.1959E+00_JPRB,1.9259E+00_JPRB/)
+KBO( :, 3,28,13) = (/&
+&1.8595E+00_JPRB,2.2417E+00_JPRB,2.0136E+00_JPRB,1.5323E+00_JPRB,2.1797E+00_JPRB/)
+KBO( :, 4,28,13) = (/&
+&2.2933E+00_JPRB,2.7930E+00_JPRB,2.5304E+00_JPRB,1.9266E+00_JPRB,2.4581E+00_JPRB/)
+KBO( :, 5,28,13) = (/&
+&2.7792E+00_JPRB,3.4303E+00_JPRB,3.1288E+00_JPRB,2.3846E+00_JPRB,2.7569E+00_JPRB/)
+KBO( :, 1,29,13) = (/&
+&1.0690E+00_JPRB,1.2881E+00_JPRB,1.1394E+00_JPRB,8.6196E-01_JPRB,1.5316E+00_JPRB/)
+KBO( :, 2,29,13) = (/&
+&1.3833E+00_JPRB,1.6767E+00_JPRB,1.4909E+00_JPRB,1.1330E+00_JPRB,1.7636E+00_JPRB/)
+KBO( :, 3,29,13) = (/&
+&1.7418E+00_JPRB,2.1373E+00_JPRB,1.9152E+00_JPRB,1.4529E+00_JPRB,2.0079E+00_JPRB/)
+KBO( :, 4,29,13) = (/&
+&2.1520E+00_JPRB,2.6796E+00_JPRB,2.4158E+00_JPRB,1.8327E+00_JPRB,2.2752E+00_JPRB/)
+KBO( :, 5,29,13) = (/&
+&2.6198E+00_JPRB,3.3045E+00_JPRB,3.0000E+00_JPRB,2.2771E+00_JPRB,2.5616E+00_JPRB/)
+KBO( :, 1,30,13) = (/&
+&1.0127E+00_JPRB,1.2266E+00_JPRB,1.0797E+00_JPRB,8.1863E-01_JPRB,1.3724E+00_JPRB/)
+KBO( :, 2,30,13) = (/&
+&1.3069E+00_JPRB,1.6015E+00_JPRB,1.4185E+00_JPRB,1.0745E+00_JPRB,1.5829E+00_JPRB/)
+KBO( :, 3,30,13) = (/&
+&1.6487E+00_JPRB,2.0522E+00_JPRB,1.8302E+00_JPRB,1.3820E+00_JPRB,1.8153E+00_JPRB/)
+KBO( :, 4,30,13) = (/&
+&2.0473E+00_JPRB,2.5843E+00_JPRB,2.3209E+00_JPRB,1.7515E+00_JPRB,2.0659E+00_JPRB/)
+KBO( :, 5,30,13) = (/&
+&2.5092E+00_JPRB,3.2023E+00_JPRB,2.8969E+00_JPRB,2.1888E+00_JPRB,2.3374E+00_JPRB/)
+KBO( :, 1,31,13) = (/&
+&9.6510E-01_JPRB,1.1794E+00_JPRB,1.0308E+00_JPRB,7.7856E-01_JPRB,1.1918E+00_JPRB/)
+KBO( :, 2,31,13) = (/&
+&1.2477E+00_JPRB,1.5457E+00_JPRB,1.3619E+00_JPRB,1.0252E+00_JPRB,1.3817E+00_JPRB/)
+KBO( :, 3,31,13) = (/&
+&1.5837E+00_JPRB,1.9885E+00_JPRB,1.7652E+00_JPRB,1.3248E+00_JPRB,1.5914E+00_JPRB/)
+KBO( :, 4,31,13) = (/&
+&1.9797E+00_JPRB,2.5159E+00_JPRB,2.2496E+00_JPRB,1.6880E+00_JPRB,1.8169E+00_JPRB/)
+KBO( :, 5,31,13) = (/&
+&2.4397E+00_JPRB,3.1333E+00_JPRB,2.8243E+00_JPRB,2.1253E+00_JPRB,2.0691E+00_JPRB/)
+KBO( :, 1,32,13) = (/&
+&9.2809E-01_JPRB,1.1462E+00_JPRB,9.9628E-01_JPRB,7.4536E-01_JPRB,1.0320E+00_JPRB/)
+KBO( :, 2,32,13) = (/&
+&1.2071E+00_JPRB,1.5069E+00_JPRB,1.3205E+00_JPRB,9.8597E-01_JPRB,1.2033E+00_JPRB/)
+KBO( :, 3,32,13) = (/&
+&1.5432E+00_JPRB,1.9476E+00_JPRB,1.7191E+00_JPRB,1.2835E+00_JPRB,1.3897E+00_JPRB/)
+KBO( :, 4,32,13) = (/&
+&1.9406E+00_JPRB,2.4766E+00_JPRB,2.2038E+00_JPRB,1.6458E+00_JPRB,1.5971E+00_JPRB/)
+KBO( :, 5,32,13) = (/&
+&2.3994E+00_JPRB,3.0984E+00_JPRB,2.7844E+00_JPRB,2.0892E+00_JPRB,1.8364E+00_JPRB/)
+KBO( :, 1,33,13) = (/&
+&9.0452E-01_JPRB,1.1258E+00_JPRB,9.7321E-01_JPRB,7.2002E-01_JPRB,8.8562E-01_JPRB/)
+KBO( :, 2,33,13) = (/&
+&1.1846E+00_JPRB,1.4864E+00_JPRB,1.2941E+00_JPRB,9.5876E-01_JPRB,1.0371E+00_JPRB/)
+KBO( :, 3,33,13) = (/&
+&1.5214E+00_JPRB,1.9311E+00_JPRB,1.6937E+00_JPRB,1.2572E+00_JPRB,1.2046E+00_JPRB/)
+KBO( :, 4,33,13) = (/&
+&1.9196E+00_JPRB,2.4657E+00_JPRB,2.1858E+00_JPRB,1.6239E+00_JPRB,1.3977E+00_JPRB/)
+KBO( :, 5,33,13) = (/&
+&2.3836E+00_JPRB,3.1007E+00_JPRB,2.7768E+00_JPRB,2.0781E+00_JPRB,1.6273E+00_JPRB/)
+KBO( :, 1,34,13) = (/&
+&8.8467E-01_JPRB,1.1068E+00_JPRB,9.5054E-01_JPRB,6.9629E-01_JPRB,7.8494E-01_JPRB/)
+KBO( :, 2,34,13) = (/&
+&1.1642E+00_JPRB,1.4706E+00_JPRB,1.2717E+00_JPRB,9.3470E-01_JPRB,9.2138E-01_JPRB/)
+KBO( :, 3,34,13) = (/&
+&1.5015E+00_JPRB,1.9181E+00_JPRB,1.6758E+00_JPRB,1.2345E+00_JPRB,1.0773E+00_JPRB/)
+KBO( :, 4,34,13) = (/&
+&1.9018E+00_JPRB,2.4632E+00_JPRB,2.1759E+00_JPRB,1.6080E+00_JPRB,1.2614E+00_JPRB/)
+KBO( :, 5,34,13) = (/&
+&2.3740E+00_JPRB,3.1145E+00_JPRB,2.7821E+00_JPRB,2.0712E+00_JPRB,1.4792E+00_JPRB/)
+KBO( :, 1,35,13) = (/&
+&8.4955E-01_JPRB,1.0688E+00_JPRB,9.1231E-01_JPRB,6.6202E-01_JPRB,6.7824E-01_JPRB/)
+KBO( :, 2,35,13) = (/&
+&1.1250E+00_JPRB,1.4313E+00_JPRB,1.2303E+00_JPRB,8.9698E-01_JPRB,8.0193E-01_JPRB/)
+KBO( :, 3,35,13) = (/&
+&1.4599E+00_JPRB,1.8791E+00_JPRB,1.6347E+00_JPRB,1.1945E+00_JPRB,9.4771E-01_JPRB/)
+KBO( :, 4,35,13) = (/&
+&1.8617E+00_JPRB,2.4289E+00_JPRB,2.1382E+00_JPRB,1.5703E+00_JPRB,1.1239E+00_JPRB/)
+KBO( :, 5,35,13) = (/&
+&2.3371E+00_JPRB,3.0886E+00_JPRB,2.7503E+00_JPRB,2.0370E+00_JPRB,1.3258E+00_JPRB/)
+KBO( :, 1,36,13) = (/&
+&7.9554E-01_JPRB,1.0086E+00_JPRB,8.5573E-01_JPRB,6.1485E-01_JPRB,5.7027E-01_JPRB/)
+KBO( :, 2,36,13) = (/&
+&1.0642E+00_JPRB,1.3634E+00_JPRB,1.1652E+00_JPRB,8.4197E-01_JPRB,6.8378E-01_JPRB/)
+KBO( :, 3,36,13) = (/&
+&1.3924E+00_JPRB,1.8049E+00_JPRB,1.5634E+00_JPRB,1.1326E+00_JPRB,8.2218E-01_JPRB/)
+KBO( :, 4,36,13) = (/&
+&1.7900E+00_JPRB,2.3512E+00_JPRB,2.0607E+00_JPRB,1.5026E+00_JPRB,9.8859E-01_JPRB/)
+KBO( :, 5,36,13) = (/&
+&2.2630E+00_JPRB,3.0065E+00_JPRB,2.6687E+00_JPRB,1.9640E+00_JPRB,1.1762E+00_JPRB/)
+KBO( :, 1,37,13) = (/&
+&7.1417E-01_JPRB,9.1309E-01_JPRB,7.7089E-01_JPRB,5.4803E-01_JPRB,4.9622E-01_JPRB/)
+KBO( :, 2,37,13) = (/&
+&9.6913E-01_JPRB,1.2512E+00_JPRB,1.0630E+00_JPRB,7.6043E-01_JPRB,5.9797E-01_JPRB/)
+KBO( :, 3,37,13) = (/&
+&1.2840E+00_JPRB,1.6746E+00_JPRB,1.4416E+00_JPRB,1.0353E+00_JPRB,7.2233E-01_JPRB/)
+KBO( :, 4,37,13) = (/&
+&1.6678E+00_JPRB,2.2008E+00_JPRB,1.9187E+00_JPRB,1.3875E+00_JPRB,8.7304E-01_JPRB/)
+KBO( :, 5,37,13) = (/&
+&2.1271E+00_JPRB,2.8380E+00_JPRB,2.5062E+00_JPRB,1.8314E+00_JPRB,1.0444E+00_JPRB/)
+KBO( :, 1,38,13) = (/&
+&6.4094E-01_JPRB,8.2768E-01_JPRB,6.9645E-01_JPRB,4.8972E-01_JPRB,4.2782E-01_JPRB/)
+KBO( :, 2,38,13) = (/&
+&8.8268E-01_JPRB,1.1499E+00_JPRB,9.7252E-01_JPRB,6.8901E-01_JPRB,5.1817E-01_JPRB/)
+KBO( :, 3,38,13) = (/&
+&1.1854E+00_JPRB,1.5567E+00_JPRB,1.3326E+00_JPRB,9.4875E-01_JPRB,6.2911E-01_JPRB/)
+KBO( :, 4,38,13) = (/&
+&1.5548E+00_JPRB,2.0633E+00_JPRB,1.7903E+00_JPRB,1.2846E+00_JPRB,7.6404E-01_JPRB/)
+KBO( :, 5,38,13) = (/&
+&2.0005E+00_JPRB,2.6819E+00_JPRB,2.3577E+00_JPRB,1.7108E+00_JPRB,9.1910E-01_JPRB/)
+KBO( :, 1,39,13) = (/&
+&5.7700E-01_JPRB,7.5348E-01_JPRB,6.3234E-01_JPRB,4.4039E-01_JPRB,3.6316E-01_JPRB/)
+KBO( :, 2,39,13) = (/&
+&8.0617E-01_JPRB,1.0607E+00_JPRB,8.9464E-01_JPRB,6.2787E-01_JPRB,4.4256E-01_JPRB/)
+KBO( :, 3,39,13) = (/&
+&1.0971E+00_JPRB,1.4528E+00_JPRB,1.2371E+00_JPRB,8.7381E-01_JPRB,5.4063E-01_JPRB/)
+KBO( :, 4,39,13) = (/&
+&1.4539E+00_JPRB,1.9409E+00_JPRB,1.6768E+00_JPRB,1.1946E+00_JPRB,6.6034E-01_JPRB/)
+KBO( :, 5,39,13) = (/&
+&1.8880E+00_JPRB,2.5419E+00_JPRB,2.2244E+00_JPRB,1.6039E+00_JPRB,7.9890E-01_JPRB/)
+KBO( :, 1,40,13) = (/&
+&5.0186E-01_JPRB,6.6294E-01_JPRB,5.5500E-01_JPRB,3.8289E-01_JPRB,3.1769E-01_JPRB/)
+KBO( :, 2,40,13) = (/&
+&7.1323E-01_JPRB,9.4798E-01_JPRB,7.9752E-01_JPRB,5.5384E-01_JPRB,3.8877E-01_JPRB/)
+KBO( :, 3,40,13) = (/&
+&9.8586E-01_JPRB,1.3164E+00_JPRB,1.1157E+00_JPRB,7.8136E-01_JPRB,4.7618E-01_JPRB/)
+KBO( :, 4,40,13) = (/&
+&1.3258E+00_JPRB,1.7781E+00_JPRB,1.5269E+00_JPRB,1.0795E+00_JPRB,5.8462E-01_JPRB/)
+KBO( :, 5,40,13) = (/&
+&1.7397E+00_JPRB,2.3496E+00_JPRB,2.0447E+00_JPRB,1.4640E+00_JPRB,7.1183E-01_JPRB/)
+KBO( :, 1,41,13) = (/&
+&4.3380E-01_JPRB,5.8097E-01_JPRB,4.8476E-01_JPRB,3.3186E-01_JPRB,2.7762E-01_JPRB/)
+KBO( :, 2,41,13) = (/&
+&6.2819E-01_JPRB,8.4375E-01_JPRB,7.0798E-01_JPRB,4.8718E-01_JPRB,3.4151E-01_JPRB/)
+KBO( :, 3,41,13) = (/&
+&8.8231E-01_JPRB,1.1885E+00_JPRB,1.0030E+00_JPRB,6.9676E-01_JPRB,4.1944E-01_JPRB/)
+KBO( :, 4,41,13) = (/&
+&1.2044E+00_JPRB,1.6239E+00_JPRB,1.3862E+00_JPRB,9.7292E-01_JPRB,5.1737E-01_JPRB/)
+KBO( :, 5,41,13) = (/&
+&1.5976E+00_JPRB,2.1644E+00_JPRB,1.8733E+00_JPRB,1.3324E+00_JPRB,6.3382E-01_JPRB/)
+KBO( :, 1,42,13) = (/&
+&3.7449E-01_JPRB,5.0898E-01_JPRB,4.2337E-01_JPRB,2.8788E-01_JPRB,2.4070E-01_JPRB/)
+KBO( :, 2,42,13) = (/&
+&5.5270E-01_JPRB,7.5038E-01_JPRB,6.2836E-01_JPRB,4.2892E-01_JPRB,2.9753E-01_JPRB/)
+KBO( :, 3,42,13) = (/&
+&7.8906E-01_JPRB,1.0722E+00_JPRB,9.0203E-01_JPRB,6.2172E-01_JPRB,3.6699E-01_JPRB/)
+KBO( :, 4,42,13) = (/&
+&1.0928E+00_JPRB,1.4824E+00_JPRB,1.2591E+00_JPRB,8.7750E-01_JPRB,4.5486E-01_JPRB/)
+KBO( :, 5,42,13) = (/&
+&1.4670E+00_JPRB,1.9931E+00_JPRB,1.7165E+00_JPRB,1.2130E+00_JPRB,5.6051E-01_JPRB/)
+KBO( :, 1,43,13) = (/&
+&3.1535E-01_JPRB,4.3481E-01_JPRB,3.6057E-01_JPRB,2.4367E-01_JPRB,2.0825E-01_JPRB/)
+KBO( :, 2,43,13) = (/&
+&4.7503E-01_JPRB,6.5262E-01_JPRB,5.4494E-01_JPRB,3.6943E-01_JPRB,2.5841E-01_JPRB/)
+KBO( :, 3,43,13) = (/&
+&6.9119E-01_JPRB,9.4733E-01_JPRB,7.9475E-01_JPRB,5.4324E-01_JPRB,3.1952E-01_JPRB/)
+KBO( :, 4,43,13) = (/&
+&9.7283E-01_JPRB,1.3279E+00_JPRB,1.1223E+00_JPRB,7.7674E-01_JPRB,3.9652E-01_JPRB/)
+KBO( :, 5,43,13) = (/&
+&1.3243E+00_JPRB,1.8050E+00_JPRB,1.5450E+00_JPRB,1.0849E+00_JPRB,4.9087E-01_JPRB/)
+KBO( :, 1,44,13) = (/&
+&2.6174E-01_JPRB,3.6590E-01_JPRB,3.0263E-01_JPRB,2.0344E-01_JPRB,1.7938E-01_JPRB/)
+KBO( :, 2,44,13) = (/&
+&4.0277E-01_JPRB,5.6056E-01_JPRB,4.6662E-01_JPRB,3.1442E-01_JPRB,2.2338E-01_JPRB/)
+KBO( :, 3,44,13) = (/&
+&5.9777E-01_JPRB,8.2704E-01_JPRB,6.9190E-01_JPRB,4.6961E-01_JPRB,2.7697E-01_JPRB/)
+KBO( :, 4,44,13) = (/&
+&8.5584E-01_JPRB,1.1770E+00_JPRB,9.9059E-01_JPRB,6.8041E-01_JPRB,3.4323E-01_JPRB/)
+KBO( :, 5,44,13) = (/&
+&1.1839E+00_JPRB,1.6189E+00_JPRB,1.3779E+00_JPRB,9.6037E-01_JPRB,4.2597E-01_JPRB/)
+KBO( :, 1,45,13) = (/&
+&2.1651E-01_JPRB,3.0623E-01_JPRB,2.5303E-01_JPRB,1.6909E-01_JPRB,1.5286E-01_JPRB/)
+KBO( :, 2,45,13) = (/&
+&3.3998E-01_JPRB,4.7944E-01_JPRB,3.9799E-01_JPRB,2.6665E-01_JPRB,1.9138E-01_JPRB/)
+KBO( :, 3,45,13) = (/&
+&5.1505E-01_JPRB,7.1915E-01_JPRB,6.0047E-01_JPRB,4.0501E-01_JPRB,2.3804E-01_JPRB/)
+KBO( :, 4,45,13) = (/&
+&7.5069E-01_JPRB,1.0392E+00_JPRB,8.7233E-01_JPRB,5.9477E-01_JPRB,2.9472E-01_JPRB/)
+KBO( :, 5,45,13) = (/&
+&1.0546E+00_JPRB,1.4482E+00_JPRB,1.2265E+00_JPRB,8.4853E-01_JPRB,3.6589E-01_JPRB/)
+KBO( :, 1,46,13) = (/&
+&1.7663E-01_JPRB,2.5198E-01_JPRB,2.0821E-01_JPRB,1.3852E-01_JPRB,1.2920E-01_JPRB/)
+KBO( :, 2,46,13) = (/&
+&2.8312E-01_JPRB,4.0392E-01_JPRB,3.3454E-01_JPRB,2.2297E-01_JPRB,1.6315E-01_JPRB/)
+KBO( :, 3,46,13) = (/&
+&4.3787E-01_JPRB,6.1746E-01_JPRB,5.1421E-01_JPRB,3.4506E-01_JPRB,2.0329E-01_JPRB/)
+KBO( :, 4,46,13) = (/&
+&6.5040E-01_JPRB,9.0658E-01_JPRB,7.5889E-01_JPRB,5.1408E-01_JPRB,2.5188E-01_JPRB/)
+KBO( :, 5,46,13) = (/&
+&9.2878E-01_JPRB,1.2821E+00_JPRB,1.0808E+00_JPRB,7.4274E-01_JPRB,3.1240E-01_JPRB/)
+KBO( :, 1,47,13) = (/&
+&1.4044E-01_JPRB,2.0128E-01_JPRB,1.6621E-01_JPRB,1.1051E-01_JPRB,1.0897E-01_JPRB/)
+KBO( :, 2,47,13) = (/&
+&2.3004E-01_JPRB,3.3154E-01_JPRB,2.7419E-01_JPRB,1.8180E-01_JPRB,1.3962E-01_JPRB/)
+KBO( :, 3,47,13) = (/&
+&3.6325E-01_JPRB,5.1821E-01_JPRB,4.3034E-01_JPRB,2.8728E-01_JPRB,1.7431E-01_JPRB/)
+KBO( :, 4,47,13) = (/&
+&5.5117E-01_JPRB,7.7483E-01_JPRB,6.4673E-01_JPRB,4.3554E-01_JPRB,2.1654E-01_JPRB/)
+KBO( :, 5,47,13) = (/&
+&8.0200E-01_JPRB,1.1139E+00_JPRB,9.3561E-01_JPRB,6.3799E-01_JPRB,2.6782E-01_JPRB/)
+KBO( :, 1,48,13) = (/&
+&1.1101E-01_JPRB,1.5927E-01_JPRB,1.3139E-01_JPRB,8.7527E-02_JPRB,9.0201E-02_JPRB/)
+KBO( :, 2,48,13) = (/&
+&1.8567E-01_JPRB,2.6968E-01_JPRB,2.2270E-01_JPRB,1.4710E-01_JPRB,1.1764E-01_JPRB/)
+KBO( :, 3,48,13) = (/&
+&2.9933E-01_JPRB,4.3159E-01_JPRB,3.5753E-01_JPRB,2.3730E-01_JPRB,1.4811E-01_JPRB/)
+KBO( :, 4,48,13) = (/&
+&4.6369E-01_JPRB,6.5797E-01_JPRB,5.4789E-01_JPRB,3.6706E-01_JPRB,1.8402E-01_JPRB/)
+KBO( :, 5,48,13) = (/&
+&6.8807E-01_JPRB,9.6214E-01_JPRB,8.0577E-01_JPRB,5.4570E-01_JPRB,2.2761E-01_JPRB/)
+KBO( :, 1,49,13) = (/&
+&8.6952E-02_JPRB,1.2481E-01_JPRB,1.0270E-01_JPRB,6.8735E-02_JPRB,7.2916E-02_JPRB/)
+KBO( :, 2,49,13) = (/&
+&1.4886E-01_JPRB,2.1718E-01_JPRB,1.7934E-01_JPRB,1.1829E-01_JPRB,9.6830E-02_JPRB/)
+KBO( :, 3,49,13) = (/&
+&2.4507E-01_JPRB,3.5657E-01_JPRB,2.9496E-01_JPRB,1.9481E-01_JPRB,1.2384E-01_JPRB/)
+KBO( :, 4,49,13) = (/&
+&3.8722E-01_JPRB,5.5518E-01_JPRB,4.6109E-01_JPRB,3.0744E-01_JPRB,1.5413E-01_JPRB/)
+KBO( :, 5,49,13) = (/&
+&5.8631E-01_JPRB,8.2602E-01_JPRB,6.8968E-01_JPRB,4.6440E-01_JPRB,1.9058E-01_JPRB/)
+KBO( :, 1,50,13) = (/&
+&6.8423E-02_JPRB,9.8362E-02_JPRB,8.0813E-02_JPRB,5.4318E-02_JPRB,6.0640E-02_JPRB/)
+KBO( :, 2,50,13) = (/&
+&1.2024E-01_JPRB,1.7560E-01_JPRB,1.4487E-01_JPRB,9.5713E-02_JPRB,8.2094E-02_JPRB/)
+KBO( :, 3,50,13) = (/&
+&2.0188E-01_JPRB,2.9561E-01_JPRB,2.4418E-01_JPRB,1.6072E-01_JPRB,1.0662E-01_JPRB/)
+KBO( :, 4,50,13) = (/&
+&3.2485E-01_JPRB,4.7020E-01_JPRB,3.8945E-01_JPRB,2.5843E-01_JPRB,1.3377E-01_JPRB/)
+KBO( :, 5,50,13) = (/&
+&5.0116E-01_JPRB,7.1185E-01_JPRB,5.9284E-01_JPRB,3.9734E-01_JPRB,1.6547E-01_JPRB/)
+KBO( :, 1,51,13) = (/&
+&5.3728E-02_JPRB,7.7475E-02_JPRB,6.3575E-02_JPRB,4.2812E-02_JPRB,5.0933E-02_JPRB/)
+KBO( :, 2,51,13) = (/&
+&9.7035E-02_JPRB,1.4176E-01_JPRB,1.1670E-01_JPRB,7.7313E-02_JPRB,7.0361E-02_JPRB/)
+KBO( :, 3,51,13) = (/&
+&1.6618E-01_JPRB,2.4447E-01_JPRB,2.0180E-01_JPRB,1.3255E-01_JPRB,9.2830E-02_JPRB/)
+KBO( :, 4,51,13) = (/&
+&2.7241E-01_JPRB,3.9733E-01_JPRB,3.2861E-01_JPRB,2.1702E-01_JPRB,1.1799E-01_JPRB/)
+KBO( :, 5,51,13) = (/&
+&4.2784E-01_JPRB,6.1277E-01_JPRB,5.0908E-01_JPRB,3.3984E-01_JPRB,1.4641E-01_JPRB/)
+KBO( :, 1,52,13) = (/&
+&4.1802E-02_JPRB,6.0502E-02_JPRB,4.9697E-02_JPRB,3.3504E-02_JPRB,4.2023E-02_JPRB/)
+KBO( :, 2,52,13) = (/&
+&7.7722E-02_JPRB,1.1354E-01_JPRB,9.3251E-02_JPRB,6.2061E-02_JPRB,5.9351E-02_JPRB/)
+KBO( :, 3,52,13) = (/&
+&1.3608E-01_JPRB,2.0057E-01_JPRB,1.6557E-01_JPRB,1.0873E-01_JPRB,7.9645E-02_JPRB/)
+KBO( :, 4,52,13) = (/&
+&2.2730E-01_JPRB,3.3353E-01_JPRB,2.7571E-01_JPRB,1.8131E-01_JPRB,1.0280E-01_JPRB/)
+KBO( :, 5,52,13) = (/&
+&3.6299E-01_JPRB,5.2462E-01_JPRB,4.3487E-01_JPRB,2.8905E-01_JPRB,1.2859E-01_JPRB/)
+KBO( :, 1,53,13) = (/&
+&3.2183E-02_JPRB,4.6680E-02_JPRB,3.8481E-02_JPRB,2.6042E-02_JPRB,3.3756E-02_JPRB/)
+KBO( :, 2,53,13) = (/&
+&6.1728E-02_JPRB,9.0133E-02_JPRB,7.3973E-02_JPRB,4.9381E-02_JPRB,4.8993E-02_JPRB/)
+KBO( :, 3,53,13) = (/&
+&1.1077E-01_JPRB,1.6319E-01_JPRB,1.3454E-01_JPRB,8.8555E-02_JPRB,6.7056E-02_JPRB/)
+KBO( :, 4,53,13) = (/&
+&1.8844E-01_JPRB,2.7785E-01_JPRB,2.2936E-01_JPRB,1.5042E-01_JPRB,8.7934E-02_JPRB/)
+KBO( :, 5,53,13) = (/&
+&3.0619E-01_JPRB,4.4605E-01_JPRB,3.6897E-01_JPRB,2.4410E-01_JPRB,1.1120E-01_JPRB/)
+KBO( :, 1,54,13) = (/&
+&2.5047E-02_JPRB,3.6400E-02_JPRB,3.0153E-02_JPRB,2.0502E-02_JPRB,2.9038E-02_JPRB/)
+KBO( :, 2,54,13) = (/&
+&4.9509E-02_JPRB,7.2463E-02_JPRB,5.9428E-02_JPRB,3.9713E-02_JPRB,4.3296E-02_JPRB/)
+KBO( :, 3,54,13) = (/&
+&9.1047E-02_JPRB,1.3408E-01_JPRB,1.1032E-01_JPRB,7.2811E-02_JPRB,6.0352E-02_JPRB/)
+KBO( :, 4,54,13) = (/&
+&1.5773E-01_JPRB,2.3322E-01_JPRB,1.9256E-01_JPRB,1.2610E-01_JPRB,8.0247E-02_JPRB/)
+KBO( :, 5,54,13) = (/&
+&2.6064E-01_JPRB,3.8195E-01_JPRB,3.1567E-01_JPRB,2.0798E-01_JPRB,1.0268E-01_JPRB/)
+KBO( :, 1,55,13) = (/&
+&1.9531E-02_JPRB,2.8409E-02_JPRB,2.3654E-02_JPRB,1.6169E-02_JPRB,2.6016E-02_JPRB/)
+KBO( :, 2,55,13) = (/&
+&3.9731E-02_JPRB,5.8300E-02_JPRB,4.7864E-02_JPRB,3.2046E-02_JPRB,3.9891E-02_JPRB/)
+KBO( :, 3,55,13) = (/&
+&7.5011E-02_JPRB,1.1035E-01_JPRB,9.0609E-02_JPRB,6.0025E-02_JPRB,5.6691E-02_JPRB/)
+KBO( :, 4,55,13) = (/&
+&1.3239E-01_JPRB,1.9599E-01_JPRB,1.6178E-01_JPRB,1.0597E-01_JPRB,7.6430E-02_JPRB/)
+KBO( :, 5,55,13) = (/&
+&2.2232E-01_JPRB,3.2737E-01_JPRB,2.7053E-01_JPRB,1.7756E-01_JPRB,9.9052E-02_JPRB/)
+KBO( :, 1,56,13) = (/&
+&1.5085E-02_JPRB,2.1991E-02_JPRB,1.8385E-02_JPRB,1.2629E-02_JPRB,2.3210E-02_JPRB/)
+KBO( :, 2,56,13) = (/&
+&3.1640E-02_JPRB,4.6519E-02_JPRB,3.8293E-02_JPRB,2.5741E-02_JPRB,3.6554E-02_JPRB/)
+KBO( :, 3,56,13) = (/&
+&6.1401E-02_JPRB,9.0252E-02_JPRB,7.4044E-02_JPRB,4.9175E-02_JPRB,5.3168E-02_JPRB/)
+KBO( :, 4,56,13) = (/&
+&1.1069E-01_JPRB,1.6371E-01_JPRB,1.3502E-01_JPRB,8.8647E-02_JPRB,7.2863E-02_JPRB/)
+KBO( :, 5,56,13) = (/&
+&1.8882E-01_JPRB,2.7905E-01_JPRB,2.3042E-01_JPRB,1.5088E-01_JPRB,9.5532E-02_JPRB/)
+KBO( :, 1,57,13) = (/&
+&1.1497E-02_JPRB,1.6861E-02_JPRB,1.4167E-02_JPRB,9.7433E-03_JPRB,2.0535E-02_JPRB/)
+KBO( :, 2,57,13) = (/&
+&2.4982E-02_JPRB,3.6767E-02_JPRB,3.0405E-02_JPRB,2.0539E-02_JPRB,3.3381E-02_JPRB/)
+KBO( :, 3,57,13) = (/&
+&4.9863E-02_JPRB,7.3408E-02_JPRB,6.0172E-02_JPRB,4.0018E-02_JPRB,4.9853E-02_JPRB/)
+KBO( :, 4,57,13) = (/&
+&9.1973E-02_JPRB,1.3592E-01_JPRB,1.1188E-01_JPRB,7.3644E-02_JPRB,6.9368E-02_JPRB/)
+KBO( :, 5,57,13) = (/&
+&1.5956E-01_JPRB,2.3633E-01_JPRB,1.9520E-01_JPRB,1.2765E-01_JPRB,9.2143E-02_JPRB/)
+KBO( :, 1,58,13) = (/&
+&8.7557E-03_JPRB,1.2987E-02_JPRB,1.0957E-02_JPRB,7.5300E-03_JPRB,1.8437E-02_JPRB/)
+KBO( :, 2,58,13) = (/&
+&1.9822E-02_JPRB,2.9153E-02_JPRB,2.4235E-02_JPRB,1.6460E-02_JPRB,3.1052E-02_JPRB/)
+KBO( :, 3,58,13) = (/&
+&4.0615E-02_JPRB,5.9904E-02_JPRB,4.9134E-02_JPRB,3.2752E-02_JPRB,4.7553E-02_JPRB/)
+KBO( :, 4,58,13) = (/&
+&7.6749E-02_JPRB,1.1326E-01_JPRB,9.3033E-02_JPRB,6.1446E-02_JPRB,6.7327E-02_JPRB/)
+KBO( :, 5,58,13) = (/&
+&1.3538E-01_JPRB,2.0081E-01_JPRB,1.6583E-01_JPRB,1.0846E-01_JPRB,9.0540E-02_JPRB/)
+KBO( :, 1,59,13) = (/&
+&7.7834E-03_JPRB,1.1635E-02_JPRB,9.8237E-03_JPRB,6.7346E-03_JPRB,2.0567E-02_JPRB/)
+KBO( :, 2,59,13) = (/&
+&1.7968E-02_JPRB,2.6456E-02_JPRB,2.2028E-02_JPRB,1.4988E-02_JPRB,3.5300E-02_JPRB/)
+KBO( :, 3,59,13) = (/&
+&3.7275E-02_JPRB,5.5026E-02_JPRB,4.5163E-02_JPRB,3.0132E-02_JPRB,5.4587E-02_JPRB/)
+KBO( :, 4,59,13) = (/&
+&7.1187E-02_JPRB,1.0502E-01_JPRB,8.6201E-02_JPRB,5.6998E-02_JPRB,7.7965E-02_JPRB/)
+KBO( :, 5,59,13) = (/&
+&1.2652E-01_JPRB,1.8769E-01_JPRB,1.5496E-01_JPRB,1.0142E-01_JPRB,1.0516E-01_JPRB/)
+KBO( :, 1,13,14) = (/&
+&2.2524E+00_JPRB,1.8642E+00_JPRB,1.4613E+00_JPRB,1.4569E+00_JPRB,8.7601E+00_JPRB/)
+KBO( :, 2,13,14) = (/&
+&3.1331E+00_JPRB,2.6017E+00_JPRB,2.0765E+00_JPRB,2.1108E+00_JPRB,8.6837E+00_JPRB/)
+KBO( :, 3,13,14) = (/&
+&4.2161E+00_JPRB,3.4975E+00_JPRB,2.8332E+00_JPRB,2.9400E+00_JPRB,8.5967E+00_JPRB/)
+KBO( :, 4,13,14) = (/&
+&5.4742E+00_JPRB,4.5326E+00_JPRB,3.7176E+00_JPRB,3.9461E+00_JPRB,8.5509E+00_JPRB/)
+KBO( :, 5,13,14) = (/&
+&6.8794E+00_JPRB,5.6742E+00_JPRB,4.7180E+00_JPRB,5.1201E+00_JPRB,8.7332E+00_JPRB/)
+KBO( :, 1,14,14) = (/&
+&2.4300E+00_JPRB,2.0099E+00_JPRB,1.6039E+00_JPRB,1.5951E+00_JPRB,7.9998E+00_JPRB/)
+KBO( :, 2,14,14) = (/&
+&3.3671E+00_JPRB,2.7809E+00_JPRB,2.2722E+00_JPRB,2.2861E+00_JPRB,7.9399E+00_JPRB/)
+KBO( :, 3,14,14) = (/&
+&4.5098E+00_JPRB,3.7249E+00_JPRB,3.1058E+00_JPRB,3.1479E+00_JPRB,7.9396E+00_JPRB/)
+KBO( :, 4,14,14) = (/&
+&5.8479E+00_JPRB,4.8327E+00_JPRB,4.0848E+00_JPRB,4.1748E+00_JPRB,8.0204E+00_JPRB/)
+KBO( :, 5,14,14) = (/&
+&7.3485E+00_JPRB,6.0867E+00_JPRB,5.1845E+00_JPRB,5.3505E+00_JPRB,8.4765E+00_JPRB/)
+KBO( :, 1,15,14) = (/&
+&2.6568E+00_JPRB,2.1796E+00_JPRB,1.7854E+00_JPRB,1.7352E+00_JPRB,6.7060E+00_JPRB/)
+KBO( :, 2,15,14) = (/&
+&3.6822E+00_JPRB,3.0192E+00_JPRB,2.5118E+00_JPRB,2.4660E+00_JPRB,6.7632E+00_JPRB/)
+KBO( :, 3,15,14) = (/&
+&4.9145E+00_JPRB,4.0419E+00_JPRB,3.4197E+00_JPRB,3.3625E+00_JPRB,6.9344E+00_JPRB/)
+KBO( :, 4,15,14) = (/&
+&6.3536E+00_JPRB,5.2540E+00_JPRB,4.4910E+00_JPRB,4.4107E+00_JPRB,7.2734E+00_JPRB/)
+KBO( :, 5,15,14) = (/&
+&7.9751E+00_JPRB,6.6376E+00_JPRB,5.7127E+00_JPRB,5.6036E+00_JPRB,8.1653E+00_JPRB/)
+KBO( :, 1,16,14) = (/&
+&2.9427E+00_JPRB,2.4019E+00_JPRB,1.9918E+00_JPRB,1.8807E+00_JPRB,5.4890E+00_JPRB/)
+KBO( :, 2,16,14) = (/&
+&4.0755E+00_JPRB,3.3334E+00_JPRB,2.7941E+00_JPRB,2.6497E+00_JPRB,5.7267E+00_JPRB/)
+KBO( :, 3,16,14) = (/&
+&5.4183E+00_JPRB,4.4587E+00_JPRB,3.7848E+00_JPRB,3.5786E+00_JPRB,6.0751E+00_JPRB/)
+KBO( :, 4,16,14) = (/&
+&6.9849E+00_JPRB,5.7895E+00_JPRB,4.9533E+00_JPRB,4.6688E+00_JPRB,6.8712E+00_JPRB/)
+KBO( :, 5,16,14) = (/&
+&8.7453E+00_JPRB,7.3192E+00_JPRB,6.3031E+00_JPRB,5.9185E+00_JPRB,8.0451E+00_JPRB/)
+KBO( :, 1,17,14) = (/&
+&3.2750E+00_JPRB,2.6726E+00_JPRB,2.2378E+00_JPRB,2.0301E+00_JPRB,4.7640E+00_JPRB/)
+KBO( :, 2,17,14) = (/&
+&4.5330E+00_JPRB,3.7089E+00_JPRB,3.1283E+00_JPRB,2.8374E+00_JPRB,5.1281E+00_JPRB/)
+KBO( :, 3,17,14) = (/&
+&6.0126E+00_JPRB,4.9507E+00_JPRB,4.2109E+00_JPRB,3.8046E+00_JPRB,5.7513E+00_JPRB/)
+KBO( :, 4,17,14) = (/&
+&7.7135E+00_JPRB,6.4169E+00_JPRB,5.4921E+00_JPRB,4.9337E+00_JPRB,6.7135E+00_JPRB/)
+KBO( :, 5,17,14) = (/&
+&9.6338E+00_JPRB,8.1047E+00_JPRB,6.9599E+00_JPRB,6.2366E+00_JPRB,8.0058E+00_JPRB/)
+KBO( :, 1,18,14) = (/&
+&3.6472E+00_JPRB,2.9807E+00_JPRB,2.5189E+00_JPRB,2.1796E+00_JPRB,4.4334E+00_JPRB/)
+KBO( :, 2,18,14) = (/&
+&5.0323E+00_JPRB,4.1367E+00_JPRB,3.4979E+00_JPRB,3.0247E+00_JPRB,4.9096E+00_JPRB/)
+KBO( :, 3,18,14) = (/&
+&6.6454E+00_JPRB,5.5144E+00_JPRB,4.6858E+00_JPRB,4.0381E+00_JPRB,5.6608E+00_JPRB/)
+KBO( :, 4,18,14) = (/&
+&8.4890E+00_JPRB,7.1264E+00_JPRB,6.0803E+00_JPRB,5.2199E+00_JPRB,6.6925E+00_JPRB/)
+KBO( :, 5,18,14) = (/&
+&1.0542E+01_JPRB,8.9586E+00_JPRB,7.6601E+00_JPRB,6.5575E+00_JPRB,7.9988E+00_JPRB/)
+KBO( :, 1,19,14) = (/&
+&4.0274E+00_JPRB,3.3233E+00_JPRB,2.8227E+00_JPRB,2.3261E+00_JPRB,4.2975E+00_JPRB/)
+KBO( :, 2,19,14) = (/&
+&5.5204E+00_JPRB,4.5992E+00_JPRB,3.8961E+00_JPRB,3.2089E+00_JPRB,4.8408E+00_JPRB/)
+KBO( :, 3,19,14) = (/&
+&7.2641E+00_JPRB,6.1090E+00_JPRB,5.1847E+00_JPRB,4.2710E+00_JPRB,5.6348E+00_JPRB/)
+KBO( :, 4,19,14) = (/&
+&9.2241E+00_JPRB,7.8543E+00_JPRB,6.6837E+00_JPRB,5.5155E+00_JPRB,6.6912E+00_JPRB/)
+KBO( :, 5,19,14) = (/&
+&1.1403E+01_JPRB,9.8034E+00_JPRB,8.3820E+00_JPRB,6.9048E+00_JPRB,7.9670E+00_JPRB/)
+KBO( :, 1,20,14) = (/&
+&4.4042E+00_JPRB,3.6923E+00_JPRB,3.1564E+00_JPRB,2.5009E+00_JPRB,4.3386E+00_JPRB/)
+KBO( :, 2,20,14) = (/&
+&6.0056E+00_JPRB,5.0815E+00_JPRB,4.3305E+00_JPRB,3.4328E+00_JPRB,4.8920E+00_JPRB/)
+KBO( :, 3,20,14) = (/&
+&7.8551E+00_JPRB,6.7164E+00_JPRB,5.7136E+00_JPRB,4.5512E+00_JPRB,5.6658E+00_JPRB/)
+KBO( :, 4,20,14) = (/&
+&9.9239E+00_JPRB,8.5703E+00_JPRB,7.3215E+00_JPRB,5.8504E+00_JPRB,6.6818E+00_JPRB/)
+KBO( :, 5,20,14) = (/&
+&1.2197E+01_JPRB,1.0639E+01_JPRB,9.1299E+00_JPRB,7.3134E+00_JPRB,7.9255E+00_JPRB/)
+KBO( :, 1,21,14) = (/&
+&4.7479E+00_JPRB,4.0508E+00_JPRB,3.4983E+00_JPRB,2.6955E+00_JPRB,4.4010E+00_JPRB/)
+KBO( :, 2,21,14) = (/&
+&6.4355E+00_JPRB,5.5399E+00_JPRB,4.7678E+00_JPRB,3.6820E+00_JPRB,4.9446E+00_JPRB/)
+KBO( :, 3,21,14) = (/&
+&8.3663E+00_JPRB,7.2751E+00_JPRB,6.2518E+00_JPRB,4.8572E+00_JPRB,5.6757E+00_JPRB/)
+KBO( :, 4,21,14) = (/&
+&1.0512E+01_JPRB,9.2314E+00_JPRB,7.9526E+00_JPRB,6.2141E+00_JPRB,6.6288E+00_JPRB/)
+KBO( :, 5,21,14) = (/&
+&1.2856E+01_JPRB,1.1396E+01_JPRB,9.8659E+00_JPRB,7.7561E+00_JPRB,7.8277E+00_JPRB/)
+KBO( :, 1,22,14) = (/&
+&5.1420E+00_JPRB,4.4823E+00_JPRB,3.9096E+00_JPRB,2.9527E+00_JPRB,4.4013E+00_JPRB/)
+KBO( :, 2,22,14) = (/&
+&6.9006E+00_JPRB,6.0705E+00_JPRB,5.2806E+00_JPRB,4.0025E+00_JPRB,4.9528E+00_JPRB/)
+KBO( :, 3,22,14) = (/&
+&8.8983E+00_JPRB,7.9013E+00_JPRB,6.8678E+00_JPRB,5.2402E+00_JPRB,5.6748E+00_JPRB/)
+KBO( :, 4,22,14) = (/&
+&1.1116E+01_JPRB,9.9470E+00_JPRB,8.6698E+00_JPRB,6.6674E+00_JPRB,6.5994E+00_JPRB/)
+KBO( :, 5,22,14) = (/&
+&1.3502E+01_JPRB,1.2202E+01_JPRB,1.0686E+01_JPRB,8.2853E+00_JPRB,7.7517E+00_JPRB/)
+KBO( :, 1,23,14) = (/&
+&5.4713E+00_JPRB,4.8911E+00_JPRB,4.3072E+00_JPRB,3.2139E+00_JPRB,4.3813E+00_JPRB/)
+KBO( :, 2,23,14) = (/&
+&7.2751E+00_JPRB,6.5638E+00_JPRB,5.7664E+00_JPRB,4.3250E+00_JPRB,4.9555E+00_JPRB/)
+KBO( :, 3,23,14) = (/&
+&9.3230E+00_JPRB,8.4735E+00_JPRB,7.4455E+00_JPRB,5.6212E+00_JPRB,5.6783E+00_JPRB/)
+KBO( :, 4,23,14) = (/&
+&1.1564E+01_JPRB,1.0599E+01_JPRB,9.3428E+00_JPRB,7.1049E+00_JPRB,6.5825E+00_JPRB/)
+KBO( :, 5,23,14) = (/&
+&1.3974E+01_JPRB,1.2910E+01_JPRB,1.1439E+01_JPRB,8.7857E+00_JPRB,7.6865E+00_JPRB/)
+KBO( :, 1,24,14) = (/&
+&5.7350E+00_JPRB,5.2712E+00_JPRB,4.6801E+00_JPRB,3.4774E+00_JPRB,4.3078E+00_JPRB/)
+KBO( :, 2,24,14) = (/&
+&7.5695E+00_JPRB,7.0067E+00_JPRB,6.2189E+00_JPRB,4.6444E+00_JPRB,4.9097E+00_JPRB/)
+KBO( :, 3,24,14) = (/&
+&9.6279E+00_JPRB,8.9845E+00_JPRB,7.9822E+00_JPRB,5.9954E+00_JPRB,5.6514E+00_JPRB/)
+KBO( :, 4,24,14) = (/&
+&1.1878E+01_JPRB,1.1160E+01_JPRB,9.9533E+00_JPRB,7.5366E+00_JPRB,6.5532E+00_JPRB/)
+KBO( :, 5,24,14) = (/&
+&1.4285E+01_JPRB,1.3514E+01_JPRB,1.2126E+01_JPRB,9.2665E+00_JPRB,7.6715E+00_JPRB/)
+KBO( :, 1,25,14) = (/&
+&5.9267E+00_JPRB,5.6187E+00_JPRB,5.0280E+00_JPRB,3.7387E+00_JPRB,4.2972E+00_JPRB/)
+KBO( :, 2,25,14) = (/&
+&7.7642E+00_JPRB,7.4077E+00_JPRB,6.6347E+00_JPRB,4.9555E+00_JPRB,4.9309E+00_JPRB/)
+KBO( :, 3,25,14) = (/&
+&9.8187E+00_JPRB,9.4277E+00_JPRB,8.4720E+00_JPRB,6.3648E+00_JPRB,5.6934E+00_JPRB/)
+KBO( :, 4,25,14) = (/&
+&1.2059E+01_JPRB,1.1644E+01_JPRB,1.0515E+01_JPRB,7.9525E+00_JPRB,6.6186E+00_JPRB/)
+KBO( :, 5,25,14) = (/&
+&1.4463E+01_JPRB,1.4040E+01_JPRB,1.2752E+01_JPRB,9.7432E+00_JPRB,7.7714E+00_JPRB/)
+KBO( :, 1,26,14) = (/&
+&6.0673E+00_JPRB,5.9449E+00_JPRB,5.3655E+00_JPRB,4.0058E+00_JPRB,4.3684E+00_JPRB/)
+KBO( :, 2,26,14) = (/&
+&7.8884E+00_JPRB,7.7776E+00_JPRB,7.0359E+00_JPRB,5.2751E+00_JPRB,5.0446E+00_JPRB/)
+KBO( :, 3,26,14) = (/&
+&9.9238E+00_JPRB,9.8293E+00_JPRB,8.9381E+00_JPRB,6.7352E+00_JPRB,5.8349E+00_JPRB/)
+KBO( :, 4,26,14) = (/&
+&1.2150E+01_JPRB,1.2086E+01_JPRB,1.1047E+01_JPRB,8.3792E+00_JPRB,6.8011E+00_JPRB/)
+KBO( :, 5,26,14) = (/&
+&1.4535E+01_JPRB,1.4527E+01_JPRB,1.3353E+01_JPRB,1.0236E+01_JPRB,7.9789E+00_JPRB/)
+KBO( :, 1,27,14) = (/&
+&6.1343E+00_JPRB,6.2302E+00_JPRB,5.6763E+00_JPRB,4.2525E+00_JPRB,4.3799E+00_JPRB/)
+KBO( :, 2,27,14) = (/&
+&7.9331E+00_JPRB,8.0869E+00_JPRB,7.4032E+00_JPRB,5.5689E+00_JPRB,5.1012E+00_JPRB/)
+KBO( :, 3,27,14) = (/&
+&9.9492E+00_JPRB,1.0172E+01_JPRB,9.3622E+00_JPRB,7.0779E+00_JPRB,5.9411E+00_JPRB/)
+KBO( :, 4,27,14) = (/&
+&1.2151E+01_JPRB,1.2467E+01_JPRB,1.1529E+01_JPRB,8.7861E+00_JPRB,6.9495E+00_JPRB/)
+KBO( :, 5,27,14) = (/&
+&1.4529E+01_JPRB,1.4944E+01_JPRB,1.3914E+01_JPRB,1.0727E+01_JPRB,8.1417E+00_JPRB/)
+KBO( :, 1,28,14) = (/&
+&6.1453E+00_JPRB,6.4763E+00_JPRB,5.9637E+00_JPRB,4.4841E+00_JPRB,4.3357E+00_JPRB/)
+KBO( :, 2,28,14) = (/&
+&7.9217E+00_JPRB,8.3599E+00_JPRB,7.7430E+00_JPRB,5.8381E+00_JPRB,5.0957E+00_JPRB/)
+KBO( :, 3,28,14) = (/&
+&9.9089E+00_JPRB,1.0474E+01_JPRB,9.7521E+00_JPRB,7.4031E+00_JPRB,5.9939E+00_JPRB/)
+KBO( :, 4,28,14) = (/&
+&1.2103E+01_JPRB,1.2802E+01_JPRB,1.1983E+01_JPRB,9.1765E+00_JPRB,7.0380E+00_JPRB/)
+KBO( :, 5,28,14) = (/&
+&1.4484E+01_JPRB,1.5315E+01_JPRB,1.4450E+01_JPRB,1.1205E+01_JPRB,8.2560E+00_JPRB/)
+KBO( :, 1,29,14) = (/&
+&6.1344E+00_JPRB,6.7103E+00_JPRB,6.2468E+00_JPRB,4.7094E+00_JPRB,4.2060E+00_JPRB/)
+KBO( :, 2,29,14) = (/&
+&7.8873E+00_JPRB,8.6217E+00_JPRB,8.0781E+00_JPRB,6.1108E+00_JPRB,4.9771E+00_JPRB/)
+KBO( :, 3,29,14) = (/&
+&9.8658E+00_JPRB,1.0771E+01_JPRB,1.0146E+01_JPRB,7.7338E+00_JPRB,5.8851E+00_JPRB/)
+KBO( :, 4,29,14) = (/&
+&1.2059E+01_JPRB,1.3133E+01_JPRB,1.2445E+01_JPRB,9.5787E+00_JPRB,6.9308E+00_JPRB/)
+KBO( :, 5,29,14) = (/&
+&1.4440E+01_JPRB,1.5700E+01_JPRB,1.5002E+01_JPRB,1.1702E+01_JPRB,8.1658E+00_JPRB/)
+KBO( :, 1,30,14) = (/&
+&6.1074E+00_JPRB,6.9340E+00_JPRB,6.5266E+00_JPRB,4.9327E+00_JPRB,4.0096E+00_JPRB/)
+KBO( :, 2,30,14) = (/&
+&7.8501E+00_JPRB,8.8831E+00_JPRB,8.4088E+00_JPRB,6.3894E+00_JPRB,4.7868E+00_JPRB/)
+KBO( :, 3,30,14) = (/&
+&9.8321E+00_JPRB,1.1068E+01_JPRB,1.0541E+01_JPRB,8.0663E+00_JPRB,5.6845E+00_JPRB/)
+KBO( :, 4,30,14) = (/&
+&1.2029E+01_JPRB,1.3476E+01_JPRB,1.2917E+01_JPRB,9.9903E+00_JPRB,6.7312E+00_JPRB/)
+KBO( :, 5,30,14) = (/&
+&1.4419E+01_JPRB,1.6109E+01_JPRB,1.5573E+01_JPRB,1.2209E+01_JPRB,7.9754E+00_JPRB/)
+KBO( :, 1,31,14) = (/&
+&6.0986E+00_JPRB,7.1722E+00_JPRB,6.8200E+00_JPRB,5.1755E+00_JPRB,3.7163E+00_JPRB/)
+KBO( :, 2,31,14) = (/&
+&7.8450E+00_JPRB,9.1619E+00_JPRB,8.7620E+00_JPRB,6.6858E+00_JPRB,4.4619E+00_JPRB/)
+KBO( :, 3,31,14) = (/&
+&9.8340E+00_JPRB,1.1393E+01_JPRB,1.0969E+01_JPRB,8.4279E+00_JPRB,5.3316E+00_JPRB/)
+KBO( :, 4,31,14) = (/&
+&1.2043E+01_JPRB,1.3864E+01_JPRB,1.3429E+01_JPRB,1.0440E+01_JPRB,6.3686E+00_JPRB/)
+KBO( :, 5,31,14) = (/&
+&1.4461E+01_JPRB,1.6571E+01_JPRB,1.6185E+01_JPRB,1.2751E+01_JPRB,7.6315E+00_JPRB/)
+KBO( :, 1,32,14) = (/&
+&6.1266E+00_JPRB,7.4384E+00_JPRB,7.1350E+00_JPRB,5.4384E+00_JPRB,3.4364E+00_JPRB/)
+KBO( :, 2,32,14) = (/&
+&7.8843E+00_JPRB,9.4733E+00_JPRB,9.1481E+00_JPRB,7.0065E+00_JPRB,4.1508E+00_JPRB/)
+KBO( :, 3,32,14) = (/&
+&9.8908E+00_JPRB,1.1765E+01_JPRB,1.1436E+01_JPRB,8.8189E+00_JPRB,5.0057E+00_JPRB/)
+KBO( :, 4,32,14) = (/&
+&1.2132E+01_JPRB,1.4306E+01_JPRB,1.3989E+01_JPRB,1.0926E+01_JPRB,6.0480E+00_JPRB/)
+KBO( :, 5,32,14) = (/&
+&1.4591E+01_JPRB,1.7095E+01_JPRB,1.6845E+01_JPRB,1.3332E+01_JPRB,7.3373E+00_JPRB/)
+KBO( :, 1,33,14) = (/&
+&6.1928E+00_JPRB,7.7310E+00_JPRB,7.4804E+00_JPRB,5.7251E+00_JPRB,3.1571E+00_JPRB/)
+KBO( :, 2,33,14) = (/&
+&7.9747E+00_JPRB,9.8269E+00_JPRB,9.5731E+00_JPRB,7.3563E+00_JPRB,3.8547E+00_JPRB/)
+KBO( :, 3,33,14) = (/&
+&1.0016E+01_JPRB,1.2187E+01_JPRB,1.1940E+01_JPRB,9.2481E+00_JPRB,4.7049E+00_JPRB/)
+KBO( :, 4,33,14) = (/&
+&1.2296E+01_JPRB,1.4804E+01_JPRB,1.4590E+01_JPRB,1.1453E+01_JPRB,5.7736E+00_JPRB/)
+KBO( :, 5,33,14) = (/&
+&1.4813E+01_JPRB,1.7670E+01_JPRB,1.7552E+01_JPRB,1.3951E+01_JPRB,7.0995E+00_JPRB/)
+KBO( :, 1,34,14) = (/&
+&6.2424E+00_JPRB,7.9897E+00_JPRB,7.7910E+00_JPRB,5.9836E+00_JPRB,2.9611E+00_JPRB/)
+KBO( :, 2,34,14) = (/&
+&8.0550E+00_JPRB,1.0143E+01_JPRB,9.9528E+00_JPRB,7.6724E+00_JPRB,3.6568E+00_JPRB/)
+KBO( :, 3,34,14) = (/&
+&1.0129E+01_JPRB,1.2569E+01_JPRB,1.2399E+01_JPRB,9.6375E+00_JPRB,4.5137E+00_JPRB/)
+KBO( :, 4,34,14) = (/&
+&1.2455E+01_JPRB,1.5251E+01_JPRB,1.5135E+01_JPRB,1.1928E+01_JPRB,5.6067E+00_JPRB/)
+KBO( :, 5,34,14) = (/&
+&1.5024E+01_JPRB,1.8190E+01_JPRB,1.8193E+01_JPRB,1.4509E+01_JPRB,6.9726E+00_JPRB/)
+KBO( :, 1,35,14) = (/&
+&6.1783E+00_JPRB,8.0868E+00_JPRB,7.9354E+00_JPRB,6.1097E+00_JPRB,2.7386E+00_JPRB/)
+KBO( :, 2,35,14) = (/&
+&8.0021E+00_JPRB,1.0274E+01_JPRB,1.0143E+01_JPRB,7.8342E+00_JPRB,3.4231E+00_JPRB/)
+KBO( :, 3,35,14) = (/&
+&1.0093E+01_JPRB,1.2741E+01_JPRB,1.2638E+01_JPRB,9.8464E+00_JPRB,4.2817E+00_JPRB/)
+KBO( :, 4,35,14) = (/&
+&1.2448E+01_JPRB,1.5466E+01_JPRB,1.5430E+01_JPRB,1.2190E+01_JPRB,5.3838E+00_JPRB/)
+KBO( :, 5,35,14) = (/&
+&1.5050E+01_JPRB,1.8453E+01_JPRB,1.8553E+01_JPRB,1.4830E+01_JPRB,6.7795E+00_JPRB/)
+KBO( :, 1,36,14) = (/&
+&5.9739E+00_JPRB,7.9879E+00_JPRB,7.8762E+00_JPRB,6.0736E+00_JPRB,2.4966E+00_JPRB/)
+KBO( :, 2,36,14) = (/&
+&7.7837E+00_JPRB,1.0180E+01_JPRB,1.0097E+01_JPRB,7.8072E+00_JPRB,3.1606E+00_JPRB/)
+KBO( :, 3,36,14) = (/&
+&9.8723E+00_JPRB,1.2658E+01_JPRB,1.2607E+01_JPRB,9.8330E+00_JPRB,4.0029E+00_JPRB/)
+KBO( :, 4,36,14) = (/&
+&1.2229E+01_JPRB,1.5396E+01_JPRB,1.5418E+01_JPRB,1.2194E+01_JPRB,5.0917E+00_JPRB/)
+KBO( :, 5,36,14) = (/&
+&1.4834E+01_JPRB,1.8403E+01_JPRB,1.8570E+01_JPRB,1.4857E+01_JPRB,6.4863E+00_JPRB/)
+KBO( :, 1,37,14) = (/&
+&5.5612E+00_JPRB,7.6037E+00_JPRB,7.5217E+00_JPRB,5.8049E+00_JPRB,2.2433E+00_JPRB/)
+KBO( :, 2,37,14) = (/&
+&7.3179E+00_JPRB,9.7571E+00_JPRB,9.7063E+00_JPRB,7.5074E+00_JPRB,2.8646E+00_JPRB/)
+KBO( :, 3,37,14) = (/&
+&9.3602E+00_JPRB,1.2203E+01_JPRB,1.2188E+01_JPRB,9.5001E+00_JPRB,3.6608E+00_JPRB/)
+KBO( :, 4,37,14) = (/&
+&1.1681E+01_JPRB,1.4916E+01_JPRB,1.4967E+01_JPRB,1.1825E+01_JPRB,4.7005E+00_JPRB/)
+KBO( :, 5,37,14) = (/&
+&1.4259E+01_JPRB,1.7897E+01_JPRB,1.8089E+01_JPRB,1.4461E+01_JPRB,6.0475E+00_JPRB/)
+KBO( :, 1,38,14) = (/&
+&5.1796E+00_JPRB,7.2275E+00_JPRB,7.1681E+00_JPRB,5.5362E+00_JPRB,1.9985E+00_JPRB/)
+KBO( :, 2,38,14) = (/&
+&6.8825E+00_JPRB,9.3401E+00_JPRB,9.3116E+00_JPRB,7.2050E+00_JPRB,2.5786E+00_JPRB/)
+KBO( :, 3,38,14) = (/&
+&8.8770E+00_JPRB,1.1748E+01_JPRB,1.1759E+01_JPRB,9.1583E+00_JPRB,3.3304E+00_JPRB/)
+KBO( :, 4,38,14) = (/&
+&1.1161E+01_JPRB,1.4430E+01_JPRB,1.4508E+01_JPRB,1.1443E+01_JPRB,4.3225E+00_JPRB/)
+KBO( :, 5,38,14) = (/&
+&1.3706E+01_JPRB,1.7382E+01_JPRB,1.7591E+01_JPRB,1.4049E+01_JPRB,5.6183E+00_JPRB/)
+KBO( :, 1,39,14) = (/&
+&4.8363E+00_JPRB,6.8762E+00_JPRB,6.8344E+00_JPRB,5.2801E+00_JPRB,1.7623E+00_JPRB/)
+KBO( :, 2,39,14) = (/&
+&6.4874E+00_JPRB,8.9479E+00_JPRB,8.9339E+00_JPRB,6.9176E+00_JPRB,2.3035E+00_JPRB/)
+KBO( :, 3,39,14) = (/&
+&8.4367E+00_JPRB,1.1315E+01_JPRB,1.1346E+01_JPRB,8.8331E+00_JPRB,3.0157E+00_JPRB/)
+KBO( :, 4,39,14) = (/&
+&1.0680E+01_JPRB,1.3965E+01_JPRB,1.4062E+01_JPRB,1.1077E+01_JPRB,3.9619E+00_JPRB/)
+KBO( :, 5,39,14) = (/&
+&1.3190E+01_JPRB,1.6887E+01_JPRB,1.7105E+01_JPRB,1.3646E+01_JPRB,5.2103E+00_JPRB/)
+KBO( :, 1,40,14) = (/&
+&4.3793E+00_JPRB,6.3557E+00_JPRB,6.3258E+00_JPRB,4.8864E+00_JPRB,1.5658E+00_JPRB/)
+KBO( :, 2,40,14) = (/&
+&5.9498E+00_JPRB,8.3535E+00_JPRB,8.3464E+00_JPRB,6.4658E+00_JPRB,2.0604E+00_JPRB/)
+KBO( :, 3,40,14) = (/&
+&7.8232E+00_JPRB,1.0648E+01_JPRB,1.0689E+01_JPRB,8.3111E+00_JPRB,2.7192E+00_JPRB/)
+KBO( :, 4,40,14) = (/&
+&9.9941E+00_JPRB,1.3236E+01_JPRB,1.3338E+01_JPRB,1.0477E+01_JPRB,3.5936E+00_JPRB/)
+KBO( :, 5,40,14) = (/&
+&1.2441E+01_JPRB,1.6098E+01_JPRB,1.6304E+01_JPRB,1.2976E+01_JPRB,4.7608E+00_JPRB/)
+KBO( :, 1,41,14) = (/&
+&3.9456E+00_JPRB,5.8420E+00_JPRB,5.8231E+00_JPRB,4.4960E+00_JPRB,1.3889E+00_JPRB/)
+KBO( :, 2,41,14) = (/&
+&5.4322E+00_JPRB,7.7601E+00_JPRB,7.7597E+00_JPRB,6.0124E+00_JPRB,1.8377E+00_JPRB/)
+KBO( :, 3,41,14) = (/&
+&7.2229E+00_JPRB,9.9804E+00_JPRB,1.0024E+01_JPRB,7.7851E+00_JPRB,2.4432E+00_JPRB/)
+KBO( :, 4,41,14) = (/&
+&9.3151E+00_JPRB,1.2496E+01_JPRB,1.2598E+01_JPRB,9.8694E+00_JPRB,3.2503E+00_JPRB/)
+KBO( :, 5,41,14) = (/&
+&1.1696E+01_JPRB,1.5294E+01_JPRB,1.5489E+01_JPRB,1.2290E+01_JPRB,4.3315E+00_JPRB/)
+KBO( :, 1,42,14) = (/&
+&3.5496E+00_JPRB,5.3598E+00_JPRB,5.3497E+00_JPRB,4.1263E+00_JPRB,1.2230E+00_JPRB/)
+KBO( :, 2,42,14) = (/&
+&4.9552E+00_JPRB,7.1957E+00_JPRB,7.1981E+00_JPRB,5.5771E+00_JPRB,1.6308E+00_JPRB/)
+KBO( :, 3,42,14) = (/&
+&6.6624E+00_JPRB,9.3374E+00_JPRB,9.3819E+00_JPRB,7.2830E+00_JPRB,2.1850E+00_JPRB/)
+KBO( :, 4,42,14) = (/&
+&8.6755E+00_JPRB,1.1781E+01_JPRB,1.1882E+01_JPRB,9.2833E+00_JPRB,2.9295E+00_JPRB/)
+KBO( :, 5,42,14) = (/&
+&1.0984E+01_JPRB,1.4512E+01_JPRB,1.4694E+01_JPRB,1.1624E+01_JPRB,3.9287E+00_JPRB/)
+KBO( :, 1,43,14) = (/&
+&3.1237E+00_JPRB,4.8164E+00_JPRB,4.8129E+00_JPRB,3.7055E+00_JPRB,1.0597E+00_JPRB/)
+KBO( :, 2,43,14) = (/&
+&4.4310E+00_JPRB,6.5524E+00_JPRB,6.5555E+00_JPRB,5.0769E+00_JPRB,1.4220E+00_JPRB/)
+KBO( :, 3,43,14) = (/&
+&6.0363E+00_JPRB,8.5993E+00_JPRB,8.6369E+00_JPRB,6.7040E+00_JPRB,1.9190E+00_JPRB/)
+KBO( :, 4,43,14) = (/&
+&7.9515E+00_JPRB,1.0949E+01_JPRB,1.1041E+01_JPRB,8.6082E+00_JPRB,2.5937E+00_JPRB/)
+KBO( :, 5,43,14) = (/&
+&1.0170E+01_JPRB,1.3594E+01_JPRB,1.3761E+01_JPRB,1.0846E+01_JPRB,3.5024E+00_JPRB/)
+KBO( :, 1,44,14) = (/&
+&2.7094E+00_JPRB,4.2738E+00_JPRB,4.2715E+00_JPRB,3.2851E+00_JPRB,9.0642E-01_JPRB/)
+KBO( :, 2,44,14) = (/&
+&3.9148E+00_JPRB,5.9019E+00_JPRB,5.9083E+00_JPRB,4.5708E+00_JPRB,1.2238E+00_JPRB/)
+KBO( :, 3,44,14) = (/&
+&5.4146E+00_JPRB,7.8441E+00_JPRB,7.8762E+00_JPRB,6.1124E+00_JPRB,1.6632E+00_JPRB/)
+KBO( :, 4,44,14) = (/&
+&7.2212E+00_JPRB,1.0093E+01_JPRB,1.0172E+01_JPRB,7.9162E+00_JPRB,2.2685E+00_JPRB/)
+KBO( :, 5,44,14) = (/&
+&9.3383E+00_JPRB,1.2640E+01_JPRB,1.2790E+01_JPRB,1.0039E+01_JPRB,3.0877E+00_JPRB/)
+KBO( :, 1,45,14) = (/&
+&2.3381E+00_JPRB,3.7708E+00_JPRB,3.7687E+00_JPRB,2.8968E+00_JPRB,7.6661E-01_JPRB/)
+KBO( :, 2,45,14) = (/&
+&3.4439E+00_JPRB,5.2956E+00_JPRB,5.3039E+00_JPRB,4.0958E+00_JPRB,1.0405E+00_JPRB/)
+KBO( :, 3,45,14) = (/&
+&4.8375E+00_JPRB,7.1296E+00_JPRB,7.1547E+00_JPRB,5.5510E+00_JPRB,1.4289E+00_JPRB/)
+KBO( :, 4,45,14) = (/&
+&6.5366E+00_JPRB,9.2742E+00_JPRB,9.3409E+00_JPRB,7.2620E+00_JPRB,1.9684E+00_JPRB/)
+KBO( :, 5,45,14) = (/&
+&8.5492E+00_JPRB,1.1723E+01_JPRB,1.1855E+01_JPRB,9.2715E+00_JPRB,2.7076E+00_JPRB/)
+KBO( :, 1,46,14) = (/&
+&1.9868E+00_JPRB,3.2812E+00_JPRB,3.2800E+00_JPRB,2.5190E+00_JPRB,6.4180E-01_JPRB/)
+KBO( :, 2,46,14) = (/&
+&2.9896E+00_JPRB,4.6959E+00_JPRB,4.7028E+00_JPRB,3.6244E+00_JPRB,8.7338E-01_JPRB/)
+KBO( :, 3,46,14) = (/&
+&4.2743E+00_JPRB,6.4145E+00_JPRB,6.4351E+00_JPRB,4.9866E+00_JPRB,1.2115E+00_JPRB/)
+KBO( :, 4,46,14) = (/&
+&5.8592E+00_JPRB,8.4475E+00_JPRB,8.5037E+00_JPRB,6.6059E+00_JPRB,1.6869E+00_JPRB/)
+KBO( :, 5,46,14) = (/&
+&7.7565E+00_JPRB,1.0789E+01_JPRB,1.0900E+01_JPRB,8.5039E+00_JPRB,2.3466E+00_JPRB/)
+KBO( :, 1,47,14) = (/&
+&1.6439E+00_JPRB,2.7872E+00_JPRB,2.7853E+00_JPRB,2.1361E+00_JPRB,5.3608E-01_JPRB/)
+KBO( :, 2,47,14) = (/&
+&2.5332E+00_JPRB,4.0761E+00_JPRB,4.0808E+00_JPRB,3.1417E+00_JPRB,7.2689E-01_JPRB/)
+KBO( :, 3,47,14) = (/&
+&3.7004E+00_JPRB,5.6682E+00_JPRB,5.6872E+00_JPRB,4.4002E+00_JPRB,1.0142E+00_JPRB/)
+KBO( :, 4,47,14) = (/&
+&5.1603E+00_JPRB,7.5763E+00_JPRB,7.6194E+00_JPRB,5.9172E+00_JPRB,1.4236E+00_JPRB/)
+KBO( :, 5,47,14) = (/&
+&6.9294E+00_JPRB,9.7951E+00_JPRB,9.8846E+00_JPRB,7.6954E+00_JPRB,2.0006E+00_JPRB/)
+KBO( :, 1,48,14) = (/&
+&1.3454E+00_JPRB,2.3441E+00_JPRB,2.3435E+00_JPRB,1.7934E+00_JPRB,4.4332E-01_JPRB/)
+KBO( :, 2,48,14) = (/&
+&2.1289E+00_JPRB,3.5090E+00_JPRB,3.5130E+00_JPRB,2.7017E+00_JPRB,5.9906E-01_JPRB/)
+KBO( :, 3,48,14) = (/&
+&3.1810E+00_JPRB,4.9808E+00_JPRB,4.9955E+00_JPRB,3.8562E+00_JPRB,8.3681E-01_JPRB/)
+KBO( :, 4,48,14) = (/&
+&4.5168E+00_JPRB,6.7583E+00_JPRB,6.7897E+00_JPRB,5.2679E+00_JPRB,1.1898E+00_JPRB/)
+KBO( :, 5,48,14) = (/&
+&6.1589E+00_JPRB,8.8519E+00_JPRB,8.9240E+00_JPRB,6.9392E+00_JPRB,1.6894E+00_JPRB/)
+KBO( :, 1,49,14) = (/&
+&1.0880E+00_JPRB,1.9520E+00_JPRB,1.9492E+00_JPRB,1.4892E+00_JPRB,3.6205E-01_JPRB/)
+KBO( :, 2,49,14) = (/&
+&1.7730E+00_JPRB,2.9965E+00_JPRB,2.9993E+00_JPRB,2.3026E+00_JPRB,4.8696E-01_JPRB/)
+KBO( :, 3,49,14) = (/&
+&2.7108E+00_JPRB,4.3431E+00_JPRB,4.3550E+00_JPRB,3.3555E+00_JPRB,6.7993E-01_JPRB/)
+KBO( :, 4,49,14) = (/&
+&3.9297E+00_JPRB,5.9939E+00_JPRB,6.0205E+00_JPRB,4.6638E+00_JPRB,9.7892E-01_JPRB/)
+KBO( :, 5,49,14) = (/&
+&5.4456E+00_JPRB,7.9623E+00_JPRB,8.0197E+00_JPRB,6.2316E+00_JPRB,1.4097E+00_JPRB/)
+KBO( :, 1,50,14) = (/&
+&8.8117E-01_JPRB,1.6250E+00_JPRB,1.6221E+00_JPRB,1.2383E+00_JPRB,3.0851E-01_JPRB/)
+KBO( :, 2,50,14) = (/&
+&1.4792E+00_JPRB,2.5614E+00_JPRB,2.5640E+00_JPRB,1.9649E+00_JPRB,4.1033E-01_JPRB/)
+KBO( :, 3,50,14) = (/&
+&2.3153E+00_JPRB,3.7911E+00_JPRB,3.7998E+00_JPRB,2.9253E+00_JPRB,5.6911E-01_JPRB/)
+KBO( :, 4,50,14) = (/&
+&3.4255E+00_JPRB,5.3270E+00_JPRB,5.3498E+00_JPRB,4.1369E+00_JPRB,8.2028E-01_JPRB/)
+KBO( :, 5,50,14) = (/&
+&4.8249E+00_JPRB,7.1748E+00_JPRB,7.2189E+00_JPRB,5.6068E+00_JPRB,1.1946E+00_JPRB/)
+KBO( :, 1,51,14) = (/&
+&7.1056E-01_JPRB,1.3442E+00_JPRB,1.3433E+00_JPRB,1.0241E+00_JPRB,2.6969E-01_JPRB/)
+KBO( :, 2,51,14) = (/&
+&1.2285E+00_JPRB,2.1825E+00_JPRB,2.1836E+00_JPRB,1.6701E+00_JPRB,3.5352E-01_JPRB/)
+KBO( :, 3,51,14) = (/&
+&1.9719E+00_JPRB,3.3009E+00_JPRB,3.3075E+00_JPRB,2.5431E+00_JPRB,4.8463E-01_JPRB/)
+KBO( :, 4,51,14) = (/&
+&2.9787E+00_JPRB,4.7254E+00_JPRB,4.7429E+00_JPRB,3.6598E+00_JPRB,6.9430E-01_JPRB/)
+KBO( :, 5,51,14) = (/&
+&4.2688E+00_JPRB,6.4560E+00_JPRB,6.4905E+00_JPRB,5.0345E+00_JPRB,1.0186E+00_JPRB/)
+KBO( :, 1,52,14) = (/&
+&5.6673E-01_JPRB,1.0993E+00_JPRB,1.1002E+00_JPRB,8.3639E-01_JPRB,2.3587E-01_JPRB/)
+KBO( :, 2,52,14) = (/&
+&1.0109E+00_JPRB,1.8431E+00_JPRB,1.8420E+00_JPRB,1.4073E+00_JPRB,3.0435E-01_JPRB/)
+KBO( :, 3,52,14) = (/&
+&1.6672E+00_JPRB,2.8532E+00_JPRB,2.8589E+00_JPRB,2.1945E+00_JPRB,4.1172E-01_JPRB/)
+KBO( :, 4,52,14) = (/&
+&2.5718E+00_JPRB,4.1653E+00_JPRB,4.1785E+00_JPRB,3.2201E+00_JPRB,5.8484E-01_JPRB/)
+KBO( :, 5,52,14) = (/&
+&3.7560E+00_JPRB,5.7814E+00_JPRB,5.8111E+00_JPRB,4.5005E+00_JPRB,8.6103E-01_JPRB/)
+KBO( :, 1,53,14) = (/&
+&4.4695E-01_JPRB,8.8846E-01_JPRB,8.9001E-01_JPRB,6.7290E-01_JPRB,2.0456E-01_JPRB/)
+KBO( :, 2,53,14) = (/&
+&8.2293E-01_JPRB,1.5387E+00_JPRB,1.5377E+00_JPRB,1.1737E+00_JPRB,2.6214E-01_JPRB/)
+KBO( :, 3,53,14) = (/&
+&1.3961E+00_JPRB,2.4467E+00_JPRB,2.4512E+00_JPRB,1.8778E+00_JPRB,3.4832E-01_JPRB/)
+KBO( :, 4,53,14) = (/&
+&2.2042E+00_JPRB,3.6459E+00_JPRB,3.6556E+00_JPRB,2.8141E+00_JPRB,4.9014E-01_JPRB/)
+KBO( :, 5,53,14) = (/&
+&3.2850E+00_JPRB,5.1511E+00_JPRB,5.1749E+00_JPRB,4.0006E+00_JPRB,7.2139E-01_JPRB/)
+KBO( :, 1,54,14) = (/&
+&3.5542E-01_JPRB,7.2243E-01_JPRB,7.2402E-01_JPRB,5.4442E-01_JPRB,1.8822E-01_JPRB/)
+KBO( :, 2,54,14) = (/&
+&6.7476E-01_JPRB,1.2906E+00_JPRB,1.2914E+00_JPRB,9.8429E-01_JPRB,2.4211E-01_JPRB/)
+KBO( :, 3,54,14) = (/&
+&1.1767E+00_JPRB,2.1105E+00_JPRB,2.1120E+00_JPRB,1.6159E+00_JPRB,3.1436E-01_JPRB/)
+KBO( :, 4,54,14) = (/&
+&1.9014E+00_JPRB,3.2074E+00_JPRB,3.2160E+00_JPRB,2.4725E+00_JPRB,4.3384E-01_JPRB/)
+KBO( :, 5,54,14) = (/&
+&2.8871E+00_JPRB,4.6109E+00_JPRB,4.6302E+00_JPRB,3.5724E+00_JPRB,6.2978E-01_JPRB/)
+KBO( :, 1,55,14) = (/&
+&2.8206E-01_JPRB,5.8561E-01_JPRB,5.8631E-01_JPRB,4.3881E-01_JPRB,1.7956E-01_JPRB/)
+KBO( :, 2,55,14) = (/&
+&5.5285E-01_JPRB,1.0805E+00_JPRB,1.0824E+00_JPRB,8.2279E-01_JPRB,2.3170E-01_JPRB/)
+KBO( :, 3,55,14) = (/&
+&9.9080E-01_JPRB,1.8171E+00_JPRB,1.8174E+00_JPRB,1.3888E+00_JPRB,2.9651E-01_JPRB/)
+KBO( :, 4,55,14) = (/&
+&1.6397E+00_JPRB,2.8207E+00_JPRB,2.8269E+00_JPRB,2.1700E+00_JPRB,3.9927E-01_JPRB/)
+KBO( :, 5,55,14) = (/&
+&2.5364E+00_JPRB,4.1246E+00_JPRB,4.1390E+00_JPRB,3.1901E+00_JPRB,5.6676E-01_JPRB/)
+KBO( :, 1,56,14) = (/&
+&2.2149E-01_JPRB,4.6888E-01_JPRB,4.6793E-01_JPRB,3.4931E-01_JPRB,1.7153E-01_JPRB/)
+KBO( :, 2,56,14) = (/&
+&4.4941E-01_JPRB,8.9702E-01_JPRB,8.9917E-01_JPRB,6.8030E-01_JPRB,2.2216E-01_JPRB/)
+KBO( :, 3,56,14) = (/&
+&8.2764E-01_JPRB,1.5520E+00_JPRB,1.5517E+00_JPRB,1.1848E+00_JPRB,2.8403E-01_JPRB/)
+KBO( :, 4,56,14) = (/&
+&1.4044E+00_JPRB,2.4656E+00_JPRB,2.4713E+00_JPRB,1.8937E+00_JPRB,3.7249E-01_JPRB/)
+KBO( :, 5,56,14) = (/&
+&2.2168E+00_JPRB,3.6708E+00_JPRB,3.6827E+00_JPRB,2.8356E+00_JPRB,5.1654E-01_JPRB/)
+KBO( :, 1,57,14) = (/&
+&1.7214E-01_JPRB,3.7079E-01_JPRB,3.6824E-01_JPRB,2.7420E-01_JPRB,1.6338E-01_JPRB/)
+KBO( :, 2,57,14) = (/&
+&3.6172E-01_JPRB,7.3713E-01_JPRB,7.3924E-01_JPRB,5.5639E-01_JPRB,2.1373E-01_JPRB/)
+KBO( :, 3,57,14) = (/&
+&6.8570E-01_JPRB,1.3134E+00_JPRB,1.3148E+00_JPRB,1.0025E+00_JPRB,2.7456E-01_JPRB/)
+KBO( :, 4,57,14) = (/&
+&1.1942E+00_JPRB,2.1424E+00_JPRB,2.1454E+00_JPRB,1.6418E+00_JPRB,3.5310E-01_JPRB/)
+KBO( :, 5,57,14) = (/&
+&1.9264E+00_JPRB,3.2505E+00_JPRB,3.2602E+00_JPRB,2.5070E+00_JPRB,4.7752E-01_JPRB/)
+KBO( :, 1,58,14) = (/&
+&1.3445E-01_JPRB,2.9284E-01_JPRB,2.8903E-01_JPRB,2.1482E-01_JPRB,1.5774E-01_JPRB/)
+KBO( :, 2,58,14) = (/&
+&2.9137E-01_JPRB,6.0563E-01_JPRB,6.0668E-01_JPRB,4.5447E-01_JPRB,2.0929E-01_JPRB/)
+KBO( :, 3,58,14) = (/&
+&5.6904E-01_JPRB,1.1121E+00_JPRB,1.1143E+00_JPRB,8.4762E-01_JPRB,2.7004E-01_JPRB/)
+KBO( :, 4,58,14) = (/&
+&1.0164E+00_JPRB,1.8625E+00_JPRB,1.8634E+00_JPRB,1.4242E+00_JPRB,3.4514E-01_JPRB/)
+KBO( :, 5,58,14) = (/&
+&1.6772E+00_JPRB,2.8815E+00_JPRB,2.8885E+00_JPRB,2.2182E+00_JPRB,4.5564E-01_JPRB/)
+KBO( :, 1,59,14) = (/&
+&1.2131E-01_JPRB,2.6518E-01_JPRB,2.6089E-01_JPRB,1.9393E-01_JPRB,1.7441E-01_JPRB/)
+KBO( :, 2,59,14) = (/&
+&2.6626E-01_JPRB,5.5782E-01_JPRB,5.5852E-01_JPRB,4.1787E-01_JPRB,2.3461E-01_JPRB/)
+KBO( :, 3,59,14) = (/&
+&5.2659E-01_JPRB,1.0377E+00_JPRB,1.0403E+00_JPRB,7.9028E-01_JPRB,3.0633E-01_JPRB/)
+KBO( :, 4,59,14) = (/&
+&9.5064E-01_JPRB,1.7566E+00_JPRB,1.7573E+00_JPRB,1.3429E+00_JPRB,3.9674E-01_JPRB/)
+KBO( :, 5,59,14) = (/&
+&1.5830E+00_JPRB,2.7404E+00_JPRB,2.7474E+00_JPRB,2.1087E+00_JPRB,5.2021E-01_JPRB/)
+KBO( :, 1,13,15) = (/&
+&3.2244E+00_JPRB,2.5409E+00_JPRB,3.1328E+00_JPRB,4.6712E+00_JPRB,1.1048E+01_JPRB/)
+KBO( :, 2,13,15) = (/&
+&4.5398E+00_JPRB,3.6057E+00_JPRB,4.5237E+00_JPRB,6.7554E+00_JPRB,1.1523E+01_JPRB/)
+KBO( :, 3,13,15) = (/&
+&6.0837E+00_JPRB,4.8732E+00_JPRB,6.1887E+00_JPRB,9.2622E+00_JPRB,1.3154E+01_JPRB/)
+KBO( :, 4,13,15) = (/&
+&7.8628E+00_JPRB,6.3217E+00_JPRB,8.1422E+00_JPRB,1.2196E+01_JPRB,1.6296E+01_JPRB/)
+KBO( :, 5,13,15) = (/&
+&9.8525E+00_JPRB,7.9653E+00_JPRB,1.0472E+01_JPRB,1.5686E+01_JPRB,2.0959E+01_JPRB/)
+KBO( :, 1,14,15) = (/&
+&3.5755E+00_JPRB,2.8779E+00_JPRB,3.4519E+00_JPRB,5.1028E+00_JPRB,1.0373E+01_JPRB/)
+KBO( :, 2,14,15) = (/&
+&5.0524E+00_JPRB,4.1250E+00_JPRB,4.9883E+00_JPRB,7.3878E+00_JPRB,1.1513E+01_JPRB/)
+KBO( :, 3,14,15) = (/&
+&6.8346E+00_JPRB,5.5984E+00_JPRB,6.8212E+00_JPRB,1.0151E+01_JPRB,1.3855E+01_JPRB/)
+KBO( :, 4,14,15) = (/&
+&8.9000E+00_JPRB,7.2723E+00_JPRB,8.9537E+00_JPRB,1.3379E+01_JPRB,1.7871E+01_JPRB/)
+KBO( :, 5,14,15) = (/&
+&1.1265E+01_JPRB,9.1701E+00_JPRB,1.1497E+01_JPRB,1.7206E+01_JPRB,2.2981E+01_JPRB/)
+KBO( :, 1,15,15) = (/&
+&4.0824E+00_JPRB,3.3435E+00_JPRB,3.8164E+00_JPRB,5.5870E+00_JPRB,9.5637E+00_JPRB/)
+KBO( :, 2,15,15) = (/&
+&5.7577E+00_JPRB,4.7850E+00_JPRB,5.5076E+00_JPRB,8.0842E+00_JPRB,1.1461E+01_JPRB/)
+KBO( :, 3,15,15) = (/&
+&7.8213E+00_JPRB,6.5007E+00_JPRB,7.5362E+00_JPRB,1.1097E+01_JPRB,1.4826E+01_JPRB/)
+KBO( :, 4,15,15) = (/&
+&1.0256E+01_JPRB,8.4593E+00_JPRB,9.9114E+00_JPRB,1.4655E+01_JPRB,1.9572E+01_JPRB/)
+KBO( :, 5,15,15) = (/&
+&1.3032E+01_JPRB,1.0687E+01_JPRB,1.2684E+01_JPRB,1.8793E+01_JPRB,2.5099E+01_JPRB/)
+KBO( :, 1,16,15) = (/&
+&4.7372E+00_JPRB,3.9270E+00_JPRB,4.2463E+00_JPRB,6.1221E+00_JPRB,9.0976E+00_JPRB/)
+KBO( :, 2,16,15) = (/&
+&6.6436E+00_JPRB,5.5787E+00_JPRB,6.1045E+00_JPRB,8.8126E+00_JPRB,1.1843E+01_JPRB/)
+KBO( :, 3,16,15) = (/&
+&9.0517E+00_JPRB,7.5797E+00_JPRB,8.3542E+00_JPRB,1.2092E+01_JPRB,1.6147E+01_JPRB/)
+KBO( :, 4,16,15) = (/&
+&1.1879E+01_JPRB,9.9008E+00_JPRB,1.1023E+01_JPRB,1.5960E+01_JPRB,2.1309E+01_JPRB/)
+KBO( :, 5,16,15) = (/&
+&1.5093E+01_JPRB,1.2519E+01_JPRB,1.4078E+01_JPRB,2.0387E+01_JPRB,2.7221E+01_JPRB/)
+KBO( :, 1,17,15) = (/&
+&5.5197E+00_JPRB,4.6160E+00_JPRB,4.7418E+00_JPRB,6.6773E+00_JPRB,9.2205E+00_JPRB/)
+KBO( :, 2,17,15) = (/&
+&7.7119E+00_JPRB,6.5019E+00_JPRB,6.7774E+00_JPRB,9.5358E+00_JPRB,1.2727E+01_JPRB/)
+KBO( :, 3,17,15) = (/&
+&1.0467E+01_JPRB,8.8388E+00_JPRB,9.2742E+00_JPRB,1.3058E+01_JPRB,1.7430E+01_JPRB/)
+KBO( :, 4,17,15) = (/&
+&1.3720E+01_JPRB,1.1553E+01_JPRB,1.2244E+01_JPRB,1.7227E+01_JPRB,2.2998E+01_JPRB/)
+KBO( :, 5,17,15) = (/&
+&1.7413E+01_JPRB,1.4594E+01_JPRB,1.5673E+01_JPRB,2.2047E+01_JPRB,2.9433E+01_JPRB/)
+KBO( :, 1,18,15) = (/&
+&6.4274E+00_JPRB,5.4111E+00_JPRB,5.3034E+00_JPRB,7.2350E+00_JPRB,9.7622E+00_JPRB/)
+KBO( :, 2,18,15) = (/&
+&8.9573E+00_JPRB,7.5807E+00_JPRB,7.5479E+00_JPRB,1.0273E+01_JPRB,1.3710E+01_JPRB/)
+KBO( :, 3,18,15) = (/&
+&1.2111E+01_JPRB,1.0258E+01_JPRB,1.0321E+01_JPRB,1.4006E+01_JPRB,1.8696E+01_JPRB/)
+KBO( :, 4,18,15) = (/&
+&1.5845E+01_JPRB,1.3386E+01_JPRB,1.3622E+01_JPRB,1.8470E+01_JPRB,2.4650E+01_JPRB/)
+KBO( :, 5,18,15) = (/&
+&2.0084E+01_JPRB,1.6890E+01_JPRB,1.7434E+01_JPRB,2.3673E+01_JPRB,3.1599E+01_JPRB/)
+KBO( :, 1,19,15) = (/&
+&7.5164E+00_JPRB,6.3134E+00_JPRB,5.9395E+00_JPRB,7.8093E+00_JPRB,1.0475E+01_JPRB/)
+KBO( :, 2,19,15) = (/&
+&1.0441E+01_JPRB,8.8014E+00_JPRB,8.4278E+00_JPRB,1.1035E+01_JPRB,1.4729E+01_JPRB/)
+KBO( :, 3,19,15) = (/&
+&1.4043E+01_JPRB,1.1861E+01_JPRB,1.1513E+01_JPRB,1.4988E+01_JPRB,2.0004E+01_JPRB/)
+KBO( :, 4,19,15) = (/&
+&1.8322E+01_JPRB,1.5433E+01_JPRB,1.5177E+01_JPRB,1.9715E+01_JPRB,2.6318E+01_JPRB/)
+KBO( :, 5,19,15) = (/&
+&2.3146E+01_JPRB,1.9466E+01_JPRB,1.9384E+01_JPRB,2.5255E+01_JPRB,3.3709E+01_JPRB/)
+KBO( :, 1,20,15) = (/&
+&8.8455E+00_JPRB,7.4066E+00_JPRB,6.7186E+00_JPRB,8.4558E+00_JPRB,1.1343E+01_JPRB/)
+KBO( :, 2,20,15) = (/&
+&1.2219E+01_JPRB,1.0275E+01_JPRB,9.4871E+00_JPRB,1.1882E+01_JPRB,1.5858E+01_JPRB/)
+KBO( :, 3,20,15) = (/&
+&1.6346E+01_JPRB,1.3763E+01_JPRB,1.2931E+01_JPRB,1.6095E+01_JPRB,2.1479E+01_JPRB/)
+KBO( :, 4,20,15) = (/&
+&2.1206E+01_JPRB,1.7855E+01_JPRB,1.6990E+01_JPRB,2.1127E+01_JPRB,2.8198E+01_JPRB/)
+KBO( :, 5,20,15) = (/&
+&2.6661E+01_JPRB,2.2435E+01_JPRB,2.1640E+01_JPRB,2.6969E+01_JPRB,3.5995E+01_JPRB/)
+KBO( :, 1,21,15) = (/&
+&1.0378E+01_JPRB,8.6731E+00_JPRB,7.6340E+00_JPRB,9.1349E+00_JPRB,1.2281E+01_JPRB/)
+KBO( :, 2,21,15) = (/&
+&1.4246E+01_JPRB,1.1959E+01_JPRB,1.0712E+01_JPRB,1.2780E+01_JPRB,1.7040E+01_JPRB/)
+KBO( :, 3,21,15) = (/&
+&1.8940E+01_JPRB,1.5929E+01_JPRB,1.4528E+01_JPRB,1.7265E+01_JPRB,2.3018E+01_JPRB/)
+KBO( :, 4,21,15) = (/&
+&2.4416E+01_JPRB,2.0563E+01_JPRB,1.9019E+01_JPRB,2.2602E+01_JPRB,3.0124E+01_JPRB/)
+KBO( :, 5,21,15) = (/&
+&3.0523E+01_JPRB,2.5747E+01_JPRB,2.4135E+01_JPRB,2.8712E+01_JPRB,3.8248E+01_JPRB/)
+KBO( :, 1,22,15) = (/&
+&1.2355E+01_JPRB,1.0324E+01_JPRB,8.9103E+00_JPRB,1.0132E+01_JPRB,1.3532E+01_JPRB/)
+KBO( :, 2,22,15) = (/&
+&1.6827E+01_JPRB,1.4110E+01_JPRB,1.2397E+01_JPRB,1.4085E+01_JPRB,1.8635E+01_JPRB/)
+KBO( :, 3,22,15) = (/&
+&2.2180E+01_JPRB,1.8653E+01_JPRB,1.6659E+01_JPRB,1.8921E+01_JPRB,2.5003E+01_JPRB/)
+KBO( :, 4,22,15) = (/&
+&2.8311E+01_JPRB,2.3905E+01_JPRB,2.1641E+01_JPRB,2.4584E+01_JPRB,3.2472E+01_JPRB/)
+KBO( :, 5,22,15) = (/&
+&3.5149E+01_JPRB,2.9738E+01_JPRB,2.7250E+01_JPRB,3.1004E+01_JPRB,4.0987E+01_JPRB/)
+KBO( :, 1,23,15) = (/&
+&1.4605E+01_JPRB,1.2205E+01_JPRB,1.0445E+01_JPRB,1.1291E+01_JPRB,1.4871E+01_JPRB/)
+KBO( :, 2,23,15) = (/&
+&1.9716E+01_JPRB,1.6539E+01_JPRB,1.4376E+01_JPRB,1.5566E+01_JPRB,2.0310E+01_JPRB/)
+KBO( :, 3,23,15) = (/&
+&2.5726E+01_JPRB,2.1683E+01_JPRB,1.9115E+01_JPRB,2.0736E+01_JPRB,2.6995E+01_JPRB/)
+KBO( :, 4,23,15) = (/&
+&3.2572E+01_JPRB,2.7566E+01_JPRB,2.4581E+01_JPRB,2.6716E+01_JPRB,3.4786E+01_JPRB/)
+KBO( :, 5,23,15) = (/&
+&4.0123E+01_JPRB,3.4080E+01_JPRB,3.0686E+01_JPRB,3.3457E+01_JPRB,4.3686E+01_JPRB/)
+KBO( :, 1,24,15) = (/&
+&1.7134E+01_JPRB,1.4330E+01_JPRB,1.2237E+01_JPRB,1.2592E+01_JPRB,1.6241E+01_JPRB/)
+KBO( :, 2,24,15) = (/&
+&2.2882E+01_JPRB,1.9252E+01_JPRB,1.6642E+01_JPRB,1.7193E+01_JPRB,2.2035E+01_JPRB/)
+KBO( :, 3,24,15) = (/&
+&2.9584E+01_JPRB,2.5005E+01_JPRB,2.1866E+01_JPRB,2.2682E+01_JPRB,2.9023E+01_JPRB/)
+KBO( :, 4,24,15) = (/&
+&3.7130E+01_JPRB,3.1556E+01_JPRB,2.7836E+01_JPRB,2.8990E+01_JPRB,3.7154E+01_JPRB/)
+KBO( :, 5,24,15) = (/&
+&4.5388E+01_JPRB,3.8713E+01_JPRB,3.4446E+01_JPRB,3.6104E+01_JPRB,4.6377E+01_JPRB/)
+KBO( :, 1,25,15) = (/&
+&1.9927E+01_JPRB,1.6707E+01_JPRB,1.4288E+01_JPRB,1.4051E+01_JPRB,1.7699E+01_JPRB/)
+KBO( :, 2,25,15) = (/&
+&2.6343E+01_JPRB,2.2217E+01_JPRB,1.9188E+01_JPRB,1.8973E+01_JPRB,2.3814E+01_JPRB/)
+KBO( :, 3,25,15) = (/&
+&3.3724E+01_JPRB,2.8620E+01_JPRB,2.4897E+01_JPRB,2.4764E+01_JPRB,3.1106E+01_JPRB/)
+KBO( :, 4,25,15) = (/&
+&4.1952E+01_JPRB,3.5794E+01_JPRB,3.1378E+01_JPRB,3.1440E+01_JPRB,3.9572E+01_JPRB/)
+KBO( :, 5,25,15) = (/&
+&5.0891E+01_JPRB,4.3587E+01_JPRB,3.8479E+01_JPRB,3.8878E+01_JPRB,4.9030E+01_JPRB/)
+KBO( :, 1,26,15) = (/&
+&2.3026E+01_JPRB,1.9365E+01_JPRB,1.6616E+01_JPRB,1.5692E+01_JPRB,1.9320E+01_JPRB/)
+KBO( :, 2,26,15) = (/&
+&3.0129E+01_JPRB,2.5491E+01_JPRB,2.2032E+01_JPRB,2.0944E+01_JPRB,2.5726E+01_JPRB/)
+KBO( :, 3,26,15) = (/&
+&3.8188E+01_JPRB,3.2536E+01_JPRB,2.8266E+01_JPRB,2.7089E+01_JPRB,3.3354E+01_JPRB/)
+KBO( :, 4,26,15) = (/&
+&4.7076E+01_JPRB,4.0316E+01_JPRB,3.5238E+01_JPRB,3.4113E+01_JPRB,4.2106E+01_JPRB/)
+KBO( :, 5,26,15) = (/&
+&5.6691E+01_JPRB,4.8702E+01_JPRB,4.2828E+01_JPRB,4.1890E+01_JPRB,5.1865E+01_JPRB/)
+KBO( :, 1,27,15) = (/&
+&2.6319E+01_JPRB,2.2209E+01_JPRB,1.9103E+01_JPRB,1.7475E+01_JPRB,2.1047E+01_JPRB/)
+KBO( :, 2,27,15) = (/&
+&3.4077E+01_JPRB,2.8961E+01_JPRB,2.5047E+01_JPRB,2.3066E+01_JPRB,2.7740E+01_JPRB/)
+KBO( :, 3,27,15) = (/&
+&4.2766E+01_JPRB,3.6599E+01_JPRB,3.1799E+01_JPRB,2.9545E+01_JPRB,3.5624E+01_JPRB/)
+KBO( :, 4,27,15) = (/&
+&5.2311E+01_JPRB,4.4949E+01_JPRB,3.9254E+01_JPRB,3.6881E+01_JPRB,4.4625E+01_JPRB/)
+KBO( :, 5,27,15) = (/&
+&6.2535E+01_JPRB,5.3903E+01_JPRB,4.7276E+01_JPRB,4.4959E+01_JPRB,5.4744E+01_JPRB/)
+KBO( :, 1,28,15) = (/&
+&2.9739E+01_JPRB,2.5212E+01_JPRB,2.1725E+01_JPRB,1.9370E+01_JPRB,2.2823E+01_JPRB/)
+KBO( :, 2,28,15) = (/&
+&3.8111E+01_JPRB,3.2556E+01_JPRB,2.8178E+01_JPRB,2.5312E+01_JPRB,2.9805E+01_JPRB/)
+KBO( :, 3,28,15) = (/&
+&4.7442E+01_JPRB,4.0758E+01_JPRB,3.5447E+01_JPRB,3.2130E+01_JPRB,3.7952E+01_JPRB/)
+KBO( :, 4,28,15) = (/&
+&5.7581E+01_JPRB,4.9637E+01_JPRB,4.3359E+01_JPRB,3.9780E+01_JPRB,4.7241E+01_JPRB/)
+KBO( :, 5,28,15) = (/&
+&6.8350E+01_JPRB,5.9110E+01_JPRB,5.1790E+01_JPRB,4.8135E+01_JPRB,5.7711E+01_JPRB/)
+KBO( :, 1,29,15) = (/&
+&3.3289E+01_JPRB,2.8377E+01_JPRB,2.4485E+01_JPRB,2.1425E+01_JPRB,2.4625E+01_JPRB/)
+KBO( :, 2,29,15) = (/&
+&4.2270E+01_JPRB,3.6277E+01_JPRB,3.1445E+01_JPRB,2.7695E+01_JPRB,3.1898E+01_JPRB/)
+KBO( :, 3,29,15) = (/&
+&5.2200E+01_JPRB,4.5001E+01_JPRB,3.9165E+01_JPRB,3.4833E+01_JPRB,4.0336E+01_JPRB/)
+KBO( :, 4,29,15) = (/&
+&6.2884E+01_JPRB,5.4377E+01_JPRB,4.7526E+01_JPRB,4.2792E+01_JPRB,4.9976E+01_JPRB/)
+KBO( :, 5,29,15) = (/&
+&7.4157E+01_JPRB,6.4312E+01_JPRB,5.6343E+01_JPRB,5.1436E+01_JPRB,6.0842E+01_JPRB/)
+KBO( :, 1,30,15) = (/&
+&3.6922E+01_JPRB,3.1637E+01_JPRB,2.7336E+01_JPRB,2.3566E+01_JPRB,2.6436E+01_JPRB/)
+KBO( :, 2,30,15) = (/&
+&4.6484E+01_JPRB,4.0046E+01_JPRB,3.4764E+01_JPRB,3.0148E+01_JPRB,3.4000E+01_JPRB/)
+KBO( :, 3,30,15) = (/&
+&5.6941E+01_JPRB,4.9235E+01_JPRB,4.2907E+01_JPRB,3.7604E+01_JPRB,4.2767E+01_JPRB/)
+KBO( :, 4,30,15) = (/&
+&6.8119E+01_JPRB,5.9074E+01_JPRB,5.1660E+01_JPRB,4.5840E+01_JPRB,5.2778E+01_JPRB/)
+KBO( :, 5,30,15) = (/&
+&7.9816E+01_JPRB,6.9391E+01_JPRB,6.0797E+01_JPRB,5.4746E+01_JPRB,6.4070E+01_JPRB/)
+KBO( :, 1,31,15) = (/&
+&4.0648E+01_JPRB,3.4989E+01_JPRB,3.0276E+01_JPRB,2.5790E+01_JPRB,2.8253E+01_JPRB/)
+KBO( :, 2,31,15) = (/&
+&5.0739E+01_JPRB,4.3869E+01_JPRB,3.8136E+01_JPRB,3.2693E+01_JPRB,3.6176E+01_JPRB/)
+KBO( :, 3,31,15) = (/&
+&6.1698E+01_JPRB,5.3493E+01_JPRB,4.6669E+01_JPRB,4.0453E+01_JPRB,4.5327E+01_JPRB/)
+KBO( :, 4,31,15) = (/&
+&7.3307E+01_JPRB,6.3725E+01_JPRB,5.5765E+01_JPRB,4.8944E+01_JPRB,5.5745E+01_JPRB/)
+KBO( :, 5,31,15) = (/&
+&8.5379E+01_JPRB,7.4384E+01_JPRB,6.5189E+01_JPRB,5.8116E+01_JPRB,6.7439E+01_JPRB/)
+KBO( :, 1,32,15) = (/&
+&4.4430E+01_JPRB,3.8384E+01_JPRB,3.3279E+01_JPRB,2.8093E+01_JPRB,3.0198E+01_JPRB/)
+KBO( :, 2,32,15) = (/&
+&5.5010E+01_JPRB,4.7713E+01_JPRB,4.1521E+01_JPRB,3.5304E+01_JPRB,3.8486E+01_JPRB/)
+KBO( :, 3,32,15) = (/&
+&6.6406E+01_JPRB,5.7714E+01_JPRB,5.0403E+01_JPRB,4.3340E+01_JPRB,4.8019E+01_JPRB/)
+KBO( :, 4,32,15) = (/&
+&7.8394E+01_JPRB,6.8294E+01_JPRB,5.9802E+01_JPRB,5.2093E+01_JPRB,5.8861E+01_JPRB/)
+KBO( :, 5,32,15) = (/&
+&9.0789E+01_JPRB,7.9248E+01_JPRB,6.9496E+01_JPRB,6.1520E+01_JPRB,7.0971E+01_JPRB/)
+KBO( :, 1,33,15) = (/&
+&4.8242E+01_JPRB,4.1814E+01_JPRB,3.6311E+01_JPRB,3.0445E+01_JPRB,3.2261E+01_JPRB/)
+KBO( :, 2,33,15) = (/&
+&5.9259E+01_JPRB,5.1534E+01_JPRB,4.4898E+01_JPRB,3.7953E+01_JPRB,4.0933E+01_JPRB/)
+KBO( :, 3,33,15) = (/&
+&7.1044E+01_JPRB,6.1877E+01_JPRB,5.4099E+01_JPRB,4.6243E+01_JPRB,5.0861E+01_JPRB/)
+KBO( :, 4,33,15) = (/&
+&8.3385E+01_JPRB,7.2754E+01_JPRB,6.3738E+01_JPRB,5.5225E+01_JPRB,6.2072E+01_JPRB/)
+KBO( :, 5,33,15) = (/&
+&9.6014E+01_JPRB,8.3965E+01_JPRB,7.3665E+01_JPRB,6.4932E+01_JPRB,7.4660E+01_JPRB/)
+KBO( :, 1,34,15) = (/&
+&5.1672E+01_JPRB,4.4907E+01_JPRB,3.9052E+01_JPRB,3.2559E+01_JPRB,3.4150E+01_JPRB/)
+KBO( :, 2,34,15) = (/&
+&6.3066E+01_JPRB,5.4942E+01_JPRB,4.7932E+01_JPRB,4.0320E+01_JPRB,4.3137E+01_JPRB/)
+KBO( :, 3,34,15) = (/&
+&7.5181E+01_JPRB,6.5586E+01_JPRB,5.7376E+01_JPRB,4.8848E+01_JPRB,5.3416E+01_JPRB/)
+KBO( :, 4,34,15) = (/&
+&8.7786E+01_JPRB,7.6718E+01_JPRB,6.7237E+01_JPRB,5.8022E+01_JPRB,6.4986E+01_JPRB/)
+KBO( :, 5,34,15) = (/&
+&1.0062E+02_JPRB,8.8122E+01_JPRB,7.7322E+01_JPRB,6.7972E+01_JPRB,7.7968E+01_JPRB/)
+KBO( :, 1,35,15) = (/&
+&5.3974E+01_JPRB,4.7010E+01_JPRB,4.0914E+01_JPRB,3.3953E+01_JPRB,3.5284E+01_JPRB/)
+KBO( :, 2,35,15) = (/&
+&6.5632E+01_JPRB,5.7261E+01_JPRB,4.9986E+01_JPRB,4.1880E+01_JPRB,4.4477E+01_JPRB/)
+KBO( :, 3,35,15) = (/&
+&7.7983E+01_JPRB,6.8108E+01_JPRB,5.9607E+01_JPRB,5.0554E+01_JPRB,5.4966E+01_JPRB/)
+KBO( :, 4,35,15) = (/&
+&9.0774E+01_JPRB,7.9423E+01_JPRB,6.9615E+01_JPRB,5.9856E+01_JPRB,6.6747E+01_JPRB/)
+KBO( :, 5,35,15) = (/&
+&1.0376E+02_JPRB,9.0958E+01_JPRB,7.9827E+01_JPRB,6.9953E+01_JPRB,7.9975E+01_JPRB/)
+KBO( :, 1,36,15) = (/&
+&5.4952E+01_JPRB,4.7928E+01_JPRB,4.1728E+01_JPRB,3.4482E+01_JPRB,3.5497E+01_JPRB/)
+KBO( :, 2,36,15) = (/&
+&6.6748E+01_JPRB,5.8304E+01_JPRB,5.0900E+01_JPRB,4.2469E+01_JPRB,4.4743E+01_JPRB/)
+KBO( :, 3,36,15) = (/&
+&7.9237E+01_JPRB,6.9268E+01_JPRB,6.0630E+01_JPRB,5.1203E+01_JPRB,5.5299E+01_JPRB/)
+KBO( :, 4,36,15) = (/&
+&9.2160E+01_JPRB,8.0690E+01_JPRB,7.0740E+01_JPRB,6.0560E+01_JPRB,6.7150E+01_JPRB/)
+KBO( :, 5,36,15) = (/&
+&1.0527E+02_JPRB,9.2347E+01_JPRB,8.1033E+01_JPRB,7.0691E+01_JPRB,8.0445E+01_JPRB/)
+KBO( :, 1,37,15) = (/&
+&5.4077E+01_JPRB,4.7203E+01_JPRB,4.1090E+01_JPRB,3.3816E+01_JPRB,3.4402E+01_JPRB/)
+KBO( :, 2,37,15) = (/&
+&6.5871E+01_JPRB,5.7581E+01_JPRB,5.0256E+01_JPRB,4.1730E+01_JPRB,4.3504E+01_JPRB/)
+KBO( :, 3,37,15) = (/&
+&7.8394E+01_JPRB,6.8564E+01_JPRB,6.0003E+01_JPRB,5.0406E+01_JPRB,5.3919E+01_JPRB/)
+KBO( :, 4,37,15) = (/&
+&9.1373E+01_JPRB,8.0024E+01_JPRB,7.0155E+01_JPRB,5.9711E+01_JPRB,6.5630E+01_JPRB/)
+KBO( :, 5,37,15) = (/&
+&1.0457E+02_JPRB,9.1743E+01_JPRB,8.0502E+01_JPRB,6.9769E+01_JPRB,7.8764E+01_JPRB/)
+KBO( :, 1,38,15) = (/&
+&5.2998E+01_JPRB,4.6292E+01_JPRB,4.0284E+01_JPRB,3.3047E+01_JPRB,3.3256E+01_JPRB/)
+KBO( :, 2,38,15) = (/&
+&6.4758E+01_JPRB,5.6646E+01_JPRB,4.9430E+01_JPRB,4.0867E+01_JPRB,4.2193E+01_JPRB/)
+KBO( :, 3,38,15) = (/&
+&7.7286E+01_JPRB,6.7628E+01_JPRB,5.9170E+01_JPRB,4.9481E+01_JPRB,5.2447E+01_JPRB/)
+KBO( :, 4,38,15) = (/&
+&9.0295E+01_JPRB,7.9101E+01_JPRB,6.9339E+01_JPRB,5.8727E+01_JPRB,6.4002E+01_JPRB/)
+KBO( :, 5,38,15) = (/&
+&1.0355E+02_JPRB,9.0878E+01_JPRB,7.9733E+01_JPRB,6.8695E+01_JPRB,7.6964E+01_JPRB/)
+KBO( :, 1,39,15) = (/&
+&5.1838E+01_JPRB,4.5309E+01_JPRB,3.9414E+01_JPRB,3.2253E+01_JPRB,3.2133E+01_JPRB/)
+KBO( :, 2,39,15) = (/&
+&6.3550E+01_JPRB,5.5622E+01_JPRB,4.8527E+01_JPRB,3.9972E+01_JPRB,4.0905E+01_JPRB/)
+KBO( :, 3,39,15) = (/&
+&7.6056E+01_JPRB,6.6591E+01_JPRB,5.8243E+01_JPRB,4.8504E+01_JPRB,5.0987E+01_JPRB/)
+KBO( :, 4,39,15) = (/&
+&8.9075E+01_JPRB,7.8055E+01_JPRB,6.8422E+01_JPRB,5.7684E+01_JPRB,6.2386E+01_JPRB/)
+KBO( :, 5,39,15) = (/&
+&1.0239E+02_JPRB,8.9867E+01_JPRB,7.8837E+01_JPRB,6.7576E+01_JPRB,7.5172E+01_JPRB/)
+KBO( :, 1,40,15) = (/&
+&4.9471E+01_JPRB,4.3246E+01_JPRB,3.7591E+01_JPRB,3.0698E+01_JPRB,3.0218E+01_JPRB/)
+KBO( :, 2,40,15) = (/&
+&6.1032E+01_JPRB,5.3431E+01_JPRB,4.6594E+01_JPRB,3.8229E+01_JPRB,3.8702E+01_JPRB/)
+KBO( :, 3,40,15) = (/&
+&7.3417E+01_JPRB,6.4309E+01_JPRB,5.6223E+01_JPRB,4.6591E+01_JPRB,4.8455E+01_JPRB/)
+KBO( :, 4,40,15) = (/&
+&8.6398E+01_JPRB,7.5721E+01_JPRB,6.6340E+01_JPRB,5.5655E+01_JPRB,5.9567E+01_JPRB/)
+KBO( :, 5,40,15) = (/&
+&9.9725E+01_JPRB,8.7493E+01_JPRB,7.6754E+01_JPRB,6.5366E+01_JPRB,7.2010E+01_JPRB/)
+KBO( :, 1,41,15) = (/&
+&4.6940E+01_JPRB,4.1029E+01_JPRB,3.5646E+01_JPRB,2.9054E+01_JPRB,2.8252E+01_JPRB/)
+KBO( :, 2,41,15) = (/&
+&5.8303E+01_JPRB,5.1061E+01_JPRB,4.4488E+01_JPRB,3.6382E+01_JPRB,3.6429E+01_JPRB/)
+KBO( :, 3,41,15) = (/&
+&7.0545E+01_JPRB,6.1809E+01_JPRB,5.4014E+01_JPRB,4.4569E+01_JPRB,4.5866E+01_JPRB/)
+KBO( :, 4,41,15) = (/&
+&8.3446E+01_JPRB,7.3140E+01_JPRB,6.4053E+01_JPRB,5.3489E+01_JPRB,5.6653E+01_JPRB/)
+KBO( :, 5,41,15) = (/&
+&9.6762E+01_JPRB,8.4890E+01_JPRB,7.4453E+01_JPRB,6.3028E+01_JPRB,6.8762E+01_JPRB/)
+KBO( :, 1,42,15) = (/&
+&4.4400E+01_JPRB,3.8808E+01_JPRB,3.3695E+01_JPRB,2.7433E+01_JPRB,2.6367E+01_JPRB/)
+KBO( :, 2,42,15) = (/&
+&5.5548E+01_JPRB,4.8653E+01_JPRB,4.2370E+01_JPRB,3.4558E+01_JPRB,3.4231E+01_JPRB/)
+KBO( :, 3,42,15) = (/&
+&6.7639E+01_JPRB,5.9264E+01_JPRB,5.1765E+01_JPRB,4.2548E+01_JPRB,4.3345E+01_JPRB/)
+KBO( :, 4,42,15) = (/&
+&8.0422E+01_JPRB,7.0505E+01_JPRB,6.1708E+01_JPRB,5.1309E+01_JPRB,5.3802E+01_JPRB/)
+KBO( :, 5,42,15) = (/&
+&9.3690E+01_JPRB,8.2187E+01_JPRB,7.2071E+01_JPRB,6.0692E+01_JPRB,6.5582E+01_JPRB/)
+KBO( :, 1,43,15) = (/&
+&4.1299E+01_JPRB,3.6086E+01_JPRB,3.1303E+01_JPRB,2.5481E+01_JPRB,2.4168E+01_JPRB/)
+KBO( :, 2,43,15) = (/&
+&5.2146E+01_JPRB,4.5668E+01_JPRB,3.9733E+01_JPRB,3.2349E+01_JPRB,3.1657E+01_JPRB/)
+KBO( :, 3,43,15) = (/&
+&6.3997E+01_JPRB,5.6104E+01_JPRB,4.8948E+01_JPRB,4.0078E+01_JPRB,4.0382E+01_JPRB/)
+KBO( :, 4,43,15) = (/&
+&7.6621E+01_JPRB,6.7188E+01_JPRB,5.8773E+01_JPRB,4.8617E+01_JPRB,5.0407E+01_JPRB/)
+KBO( :, 5,43,15) = (/&
+&8.9810E+01_JPRB,7.8771E+01_JPRB,6.9043E+01_JPRB,5.7825E+01_JPRB,6.1798E+01_JPRB/)
+KBO( :, 1,44,15) = (/&
+&3.8013E+01_JPRB,3.3205E+01_JPRB,2.8794E+01_JPRB,2.3425E+01_JPRB,2.1911E+01_JPRB/)
+KBO( :, 2,44,15) = (/&
+&4.8506E+01_JPRB,4.2466E+01_JPRB,3.6916E+01_JPRB,3.0017E+01_JPRB,2.8999E+01_JPRB/)
+KBO( :, 3,44,15) = (/&
+&6.0070E+01_JPRB,5.2664E+01_JPRB,4.5908E+01_JPRB,3.7464E+01_JPRB,3.7309E+01_JPRB/)
+KBO( :, 4,44,15) = (/&
+&7.2479E+01_JPRB,6.3560E+01_JPRB,5.5564E+01_JPRB,4.5749E+01_JPRB,4.6877E+01_JPRB/)
+KBO( :, 5,44,15) = (/&
+&8.5539E+01_JPRB,7.5028E+01_JPRB,6.5726E+01_JPRB,5.4770E+01_JPRB,5.7838E+01_JPRB/)
+KBO( :, 1,45,15) = (/&
+&3.4808E+01_JPRB,3.0429E+01_JPRB,2.6372E+01_JPRB,2.1438E+01_JPRB,1.9764E+01_JPRB/)
+KBO( :, 2,45,15) = (/&
+&4.4949E+01_JPRB,3.9329E+01_JPRB,3.4164E+01_JPRB,2.7759E+01_JPRB,2.6477E+01_JPRB/)
+KBO( :, 3,45,15) = (/&
+&5.6198E+01_JPRB,4.9271E+01_JPRB,4.2916E+01_JPRB,3.4929E+01_JPRB,3.4365E+01_JPRB/)
+KBO( :, 4,45,15) = (/&
+&6.8372E+01_JPRB,5.9966E+01_JPRB,5.2371E+01_JPRB,4.2948E+01_JPRB,4.3515E+01_JPRB/)
+KBO( :, 5,45,15) = (/&
+&8.1258E+01_JPRB,7.1280E+01_JPRB,6.2402E+01_JPRB,5.1752E+01_JPRB,5.3999E+01_JPRB/)
+KBO( :, 1,46,15) = (/&
+&3.1505E+01_JPRB,2.7578E+01_JPRB,2.3887E+01_JPRB,1.9401E+01_JPRB,1.7612E+01_JPRB/)
+KBO( :, 2,46,15) = (/&
+&4.1254E+01_JPRB,3.6080E+01_JPRB,3.1312E+01_JPRB,2.5449E+01_JPRB,2.3941E+01_JPRB/)
+KBO( :, 3,46,15) = (/&
+&5.2137E+01_JPRB,4.5691E+01_JPRB,3.9762E+01_JPRB,3.2315E+01_JPRB,3.1392E+01_JPRB/)
+KBO( :, 4,46,15) = (/&
+&6.4023E+01_JPRB,5.6167E+01_JPRB,4.8996E+01_JPRB,4.0034E+01_JPRB,4.0089E+01_JPRB/)
+KBO( :, 5,46,15) = (/&
+&7.6702E+01_JPRB,6.7284E+01_JPRB,5.8863E+01_JPRB,4.8569E+01_JPRB,5.0083E+01_JPRB/)
+KBO( :, 1,47,15) = (/&
+&2.7961E+01_JPRB,2.4503E+01_JPRB,2.1248E+01_JPRB,1.7233E+01_JPRB,1.5367E+01_JPRB/)
+KBO( :, 2,47,15) = (/&
+&3.7265E+01_JPRB,3.2586E+01_JPRB,2.8263E+01_JPRB,2.2963E+01_JPRB,2.1269E+01_JPRB/)
+KBO( :, 3,47,15) = (/&
+&4.7706E+01_JPRB,4.1783E+01_JPRB,3.6327E+01_JPRB,2.9490E+01_JPRB,2.8246E+01_JPRB/)
+KBO( :, 4,47,15) = (/&
+&5.9232E+01_JPRB,5.1960E+01_JPRB,4.5284E+01_JPRB,3.6873E+01_JPRB,3.6445E+01_JPRB/)
+KBO( :, 5,47,15) = (/&
+&7.1624E+01_JPRB,6.2836E+01_JPRB,5.4930E+01_JPRB,4.5104E+01_JPRB,4.5902E+01_JPRB/)
+KBO( :, 1,48,15) = (/&
+&2.4583E+01_JPRB,2.1589E+01_JPRB,1.8762E+01_JPRB,1.5191E+01_JPRB,1.3292E+01_JPRB/)
+KBO( :, 2,48,15) = (/&
+&3.3426E+01_JPRB,2.9268E+01_JPRB,2.5357E+01_JPRB,2.0590E+01_JPRB,1.8769E+01_JPRB/)
+KBO( :, 3,48,15) = (/&
+&4.3425E+01_JPRB,3.8016E+01_JPRB,3.3009E+01_JPRB,2.6800E+01_JPRB,2.5307E+01_JPRB/)
+KBO( :, 4,48,15) = (/&
+&5.4549E+01_JPRB,4.7838E+01_JPRB,4.1652E+01_JPRB,3.3842E+01_JPRB,3.3001E+01_JPRB/)
+KBO( :, 5,48,15) = (/&
+&6.6636E+01_JPRB,5.8472E+01_JPRB,5.1042E+01_JPRB,4.1740E+01_JPRB,4.1948E+01_JPRB/)
+KBO( :, 1,49,15) = (/&
+&2.1421E+01_JPRB,1.8843E+01_JPRB,1.6440E+01_JPRB,1.3266E+01_JPRB,1.1366E+01_JPRB/)
+KBO( :, 2,49,15) = (/&
+&2.9765E+01_JPRB,2.6085E+01_JPRB,2.2608E+01_JPRB,1.8340E+01_JPRB,1.6436E+01_JPRB/)
+KBO( :, 3,49,15) = (/&
+&3.9312E+01_JPRB,3.4398E+01_JPRB,2.9848E+01_JPRB,2.4239E+01_JPRB,2.2553E+01_JPRB/)
+KBO( :, 4,49,15) = (/&
+&5.0006E+01_JPRB,4.3828E+01_JPRB,3.8123E+01_JPRB,3.0941E+01_JPRB,2.9764E+01_JPRB/)
+KBO( :, 5,49,15) = (/&
+&6.1741E+01_JPRB,5.4182E+01_JPRB,4.7244E+01_JPRB,3.8502E+01_JPRB,3.8207E+01_JPRB/)
+KBO( :, 1,50,15) = (/&
+&1.8647E+01_JPRB,1.6457E+01_JPRB,1.4418E+01_JPRB,1.1591E+01_JPRB,9.7268E+00_JPRB/)
+KBO( :, 2,50,15) = (/&
+&2.6492E+01_JPRB,2.3254E+01_JPRB,2.0184E+01_JPRB,1.6354E+01_JPRB,1.4411E+01_JPRB/)
+KBO( :, 3,50,15) = (/&
+&3.5615E+01_JPRB,3.1176E+01_JPRB,2.7033E+01_JPRB,2.1940E+01_JPRB,2.0122E+01_JPRB/)
+KBO( :, 4,50,15) = (/&
+&4.5887E+01_JPRB,4.0194E+01_JPRB,3.4925E+01_JPRB,2.8335E+01_JPRB,2.6904E+01_JPRB/)
+KBO( :, 5,50,15) = (/&
+&5.7262E+01_JPRB,5.0235E+01_JPRB,4.3773E+01_JPRB,3.5576E+01_JPRB,3.4879E+01_JPRB/)
+KBO( :, 1,51,15) = (/&
+&1.6143E+01_JPRB,1.4306E+01_JPRB,1.2586E+01_JPRB,1.0093E+01_JPRB,8.2870E+00_JPRB/)
+KBO( :, 2,51,15) = (/&
+&2.3475E+01_JPRB,2.0646E+01_JPRB,1.7965E+01_JPRB,1.4527E+01_JPRB,1.2580E+01_JPRB/)
+KBO( :, 3,51,15) = (/&
+&3.2173E+01_JPRB,2.8191E+01_JPRB,2.4427E+01_JPRB,1.9818E+01_JPRB,1.7912E+01_JPRB/)
+KBO( :, 4,51,15) = (/&
+&4.2029E+01_JPRB,3.6799E+01_JPRB,3.1946E+01_JPRB,2.5931E+01_JPRB,2.4302E+01_JPRB/)
+KBO( :, 5,51,15) = (/&
+&5.3021E+01_JPRB,4.6505E+01_JPRB,4.0477E+01_JPRB,3.2858E+01_JPRB,3.1825E+01_JPRB/)
+KBO( :, 1,52,15) = (/&
+&1.3849E+01_JPRB,1.2323E+01_JPRB,1.0901E+01_JPRB,8.7257E+00_JPRB,7.0030E+00_JPRB/)
+KBO( :, 2,52,15) = (/&
+&2.0656E+01_JPRB,1.8194E+01_JPRB,1.5897E+01_JPRB,1.2810E+01_JPRB,1.0879E+01_JPRB/)
+KBO( :, 3,52,15) = (/&
+&2.8881E+01_JPRB,2.5328E+01_JPRB,2.1965E+01_JPRB,1.7806E+01_JPRB,1.5846E+01_JPRB/)
+KBO( :, 4,52,15) = (/&
+&3.8328E+01_JPRB,3.3546E+01_JPRB,2.9106E+01_JPRB,2.3622E+01_JPRB,2.1850E+01_JPRB/)
+KBO( :, 5,52,15) = (/&
+&4.8918E+01_JPRB,4.2880E+01_JPRB,3.7289E+01_JPRB,3.0246E+01_JPRB,2.8936E+01_JPRB/)
+KBO( :, 1,53,15) = (/&
+&1.1740E+01_JPRB,1.0506E+01_JPRB,9.3420E+00_JPRB,7.4730E+00_JPRB,5.8524E+00_JPRB/)
+KBO( :, 2,53,15) = (/&
+&1.8002E+01_JPRB,1.5914E+01_JPRB,1.3956E+01_JPRB,1.1210E+01_JPRB,9.3278E+00_JPRB/)
+KBO( :, 3,53,15) = (/&
+&2.5731E+01_JPRB,2.2607E+01_JPRB,1.9634E+01_JPRB,1.5897E+01_JPRB,1.3918E+01_JPRB/)
+KBO( :, 4,53,15) = (/&
+&3.4758E+01_JPRB,3.0444E+01_JPRB,2.6393E+01_JPRB,2.1412E+01_JPRB,1.9532E+01_JPRB/)
+KBO( :, 5,53,15) = (/&
+&4.4940E+01_JPRB,3.9367E+01_JPRB,3.4201E+01_JPRB,2.7742E+01_JPRB,2.6213E+01_JPRB/)
+KBO( :, 1,54,15) = (/&
+&9.9823E+00_JPRB,8.9835E+00_JPRB,8.0433E+00_JPRB,6.4217E+00_JPRB,4.9233E+00_JPRB/)
+KBO( :, 2,54,15) = (/&
+&1.5743E+01_JPRB,1.3968E+01_JPRB,1.2300E+01_JPRB,9.8589E+00_JPRB,8.0425E+00_JPRB/)
+KBO( :, 3,54,15) = (/&
+&2.2999E+01_JPRB,2.0231E+01_JPRB,1.7622E+01_JPRB,1.4237E+01_JPRB,1.2265E+01_JPRB/)
+KBO( :, 4,54,15) = (/&
+&3.1619E+01_JPRB,2.7721E+01_JPRB,2.4021E+01_JPRB,1.9481E+01_JPRB,1.7533E+01_JPRB/)
+KBO( :, 5,54,15) = (/&
+&4.1422E+01_JPRB,3.6269E+01_JPRB,3.1486E+01_JPRB,2.5548E+01_JPRB,2.3860E+01_JPRB/)
+KBO( :, 1,55,15) = (/&
+&8.4600E+00_JPRB,7.6587E+00_JPRB,6.9105E+00_JPRB,5.5064E+00_JPRB,4.1393E+00_JPRB/)
+KBO( :, 2,55,15) = (/&
+&1.3741E+01_JPRB,1.2235E+01_JPRB,1.0828E+01_JPRB,8.6641E+00_JPRB,6.9310E+00_JPRB/)
+KBO( :, 3,55,15) = (/&
+&2.0525E+01_JPRB,1.8089E+01_JPRB,1.5809E+01_JPRB,1.2733E+01_JPRB,1.0785E+01_JPRB/)
+KBO( :, 4,55,15) = (/&
+&2.8733E+01_JPRB,2.5211E+01_JPRB,2.1862E+01_JPRB,1.7718E+01_JPRB,1.5733E+01_JPRB/)
+KBO( :, 5,55,15) = (/&
+&3.8167E+01_JPRB,3.3414E+01_JPRB,2.8994E+01_JPRB,2.3523E+01_JPRB,2.1717E+01_JPRB/)
+KBO( :, 1,56,15) = (/&
+&7.0942E+00_JPRB,6.4705E+00_JPRB,5.8843E+00_JPRB,4.6820E+00_JPRB,3.4600E+00_JPRB/)
+KBO( :, 2,56,15) = (/&
+&1.1888E+01_JPRB,1.0638E+01_JPRB,9.4563E+00_JPRB,7.5636E+00_JPRB,5.9306E+00_JPRB/)
+KBO( :, 3,56,15) = (/&
+&1.8195E+01_JPRB,1.6084E+01_JPRB,1.4104E+01_JPRB,1.1328E+01_JPRB,9.4258E+00_JPRB/)
+KBO( :, 4,56,15) = (/&
+&2.5965E+01_JPRB,2.2816E+01_JPRB,1.9813E+01_JPRB,1.6042E+01_JPRB,1.4044E+01_JPRB/)
+KBO( :, 5,56,15) = (/&
+&3.5031E+01_JPRB,3.0686E+01_JPRB,2.6607E+01_JPRB,2.1582E+01_JPRB,1.9682E+01_JPRB/)
+KBO( :, 1,57,15) = (/&
+&5.8809E+00_JPRB,5.4073E+00_JPRB,4.9520E+00_JPRB,3.9358E+00_JPRB,2.8765E+00_JPRB/)
+KBO( :, 2,57,15) = (/&
+&1.0188E+01_JPRB,9.1644E+00_JPRB,8.1997E+00_JPRB,6.5476E+00_JPRB,5.0356E+00_JPRB/)
+KBO( :, 3,57,15) = (/&
+&1.6011E+01_JPRB,1.4204E+01_JPRB,1.2504E+01_JPRB,1.0022E+01_JPRB,8.1887E+00_JPRB/)
+KBO( :, 4,57,15) = (/&
+&2.3331E+01_JPRB,2.0526E+01_JPRB,1.7871E+01_JPRB,1.4443E+01_JPRB,1.2452E+01_JPRB/)
+KBO( :, 5,57,15) = (/&
+&3.2013E+01_JPRB,2.8066E+01_JPRB,2.4321E+01_JPRB,1.9722E+01_JPRB,1.7763E+01_JPRB/)
+KBO( :, 1,58,15) = (/&
+&4.8592E+00_JPRB,4.5120E+00_JPRB,4.1533E+00_JPRB,3.3050E+00_JPRB,2.4069E+00_JPRB/)
+KBO( :, 2,58,15) = (/&
+&8.7235E+00_JPRB,7.8898E+00_JPRB,7.1098E+00_JPRB,5.6659E+00_JPRB,4.2880E+00_JPRB/)
+KBO( :, 3,58,15) = (/&
+&1.4093E+01_JPRB,1.2543E+01_JPRB,1.1091E+01_JPRB,8.8788E+00_JPRB,7.1312E+00_JPRB/)
+KBO( :, 4,58,15) = (/&
+&2.0969E+01_JPRB,1.8473E+01_JPRB,1.6137E+01_JPRB,1.3004E+01_JPRB,1.1037E+01_JPRB/)
+KBO( :, 5,58,15) = (/&
+&2.9256E+01_JPRB,2.5669E+01_JPRB,2.2254E+01_JPRB,1.8039E+01_JPRB,1.6041E+01_JPRB/)
+KBO( :, 1,59,15) = (/&
+&4.4860E+00_JPRB,4.1832E+00_JPRB,3.8589E+00_JPRB,3.0732E+00_JPRB,2.2588E+00_JPRB/)
+KBO( :, 2,59,15) = (/&
+&8.1764E+00_JPRB,7.4157E+00_JPRB,6.7019E+00_JPRB,5.3375E+00_JPRB,4.0381E+00_JPRB/)
+KBO( :, 3,59,15) = (/&
+&1.3363E+01_JPRB,1.1913E+01_JPRB,1.0553E+01_JPRB,8.4437E+00_JPRB,6.7583E+00_JPRB/)
+KBO( :, 4,59,15) = (/&
+&2.0059E+01_JPRB,1.7690E+01_JPRB,1.5474E+01_JPRB,1.2453E+01_JPRB,1.0517E+01_JPRB/)
+KBO( :, 5,59,15) = (/&
+&2.8188E+01_JPRB,2.4740E+01_JPRB,2.1460E+01_JPRB,1.7388E+01_JPRB,1.5382E+01_JPRB/)
+KBO( :, 1,13,16) = (/&
+&3.5240E+00_JPRB,3.4508E+00_JPRB,6.8957E+00_JPRB,1.0310E+01_JPRB,1.3810E+01_JPRB/)
+KBO( :, 2,13,16) = (/&
+&5.0188E+00_JPRB,4.8884E+00_JPRB,9.7668E+00_JPRB,1.4606E+01_JPRB,1.9563E+01_JPRB/)
+KBO( :, 3,13,16) = (/&
+&6.8636E+00_JPRB,6.9963E+00_JPRB,1.3983E+01_JPRB,2.0917E+01_JPRB,2.7996E+01_JPRB/)
+KBO( :, 4,13,16) = (/&
+&8.9983E+00_JPRB,9.9231E+00_JPRB,1.9821E+01_JPRB,2.9657E+01_JPRB,3.9702E+01_JPRB/)
+KBO( :, 5,13,16) = (/&
+&1.1391E+01_JPRB,1.3448E+01_JPRB,2.6873E+01_JPRB,4.0197E+01_JPRB,5.3821E+01_JPRB/)
+KBO( :, 1,14,16) = (/&
+&4.0865E+00_JPRB,4.2627E+00_JPRB,8.5157E+00_JPRB,1.2737E+01_JPRB,1.7061E+01_JPRB/)
+KBO( :, 2,14,16) = (/&
+&5.9152E+00_JPRB,5.9770E+00_JPRB,1.1941E+01_JPRB,1.7861E+01_JPRB,2.3919E+01_JPRB/)
+KBO( :, 3,14,16) = (/&
+&8.1116E+00_JPRB,8.4946E+00_JPRB,1.6974E+01_JPRB,2.5393E+01_JPRB,3.3994E+01_JPRB/)
+KBO( :, 4,14,16) = (/&
+&1.0667E+01_JPRB,1.1982E+01_JPRB,2.3941E+01_JPRB,3.5820E+01_JPRB,4.7947E+01_JPRB/)
+KBO( :, 5,14,16) = (/&
+&1.3570E+01_JPRB,1.6166E+01_JPRB,3.2293E+01_JPRB,4.8328E+01_JPRB,6.4679E+01_JPRB/)
+KBO( :, 1,15,16) = (/&
+&4.9205E+00_JPRB,5.2381E+00_JPRB,1.0467E+01_JPRB,1.5657E+01_JPRB,2.0962E+01_JPRB/)
+KBO( :, 2,15,16) = (/&
+&7.1107E+00_JPRB,7.3251E+00_JPRB,1.4636E+01_JPRB,2.1892E+01_JPRB,2.9314E+01_JPRB/)
+KBO( :, 3,15,16) = (/&
+&9.7657E+00_JPRB,1.0319E+01_JPRB,2.0625E+01_JPRB,3.0857E+01_JPRB,4.1307E+01_JPRB/)
+KBO( :, 4,15,16) = (/&
+&1.2863E+01_JPRB,1.4348E+01_JPRB,2.8667E+01_JPRB,4.2902E+01_JPRB,5.7415E+01_JPRB/)
+KBO( :, 5,15,16) = (/&
+&1.6377E+01_JPRB,1.9245E+01_JPRB,3.8440E+01_JPRB,5.7530E+01_JPRB,7.7014E+01_JPRB/)
+KBO( :, 1,16,16) = (/&
+&6.0019E+00_JPRB,6.3755E+00_JPRB,1.2742E+01_JPRB,1.9060E+01_JPRB,2.5511E+01_JPRB/)
+KBO( :, 2,16,16) = (/&
+&8.6719E+00_JPRB,8.9601E+00_JPRB,1.7905E+01_JPRB,2.6782E+01_JPRB,3.5858E+01_JPRB/)
+KBO( :, 3,16,16) = (/&
+&1.1897E+01_JPRB,1.2494E+01_JPRB,2.4965E+01_JPRB,3.7351E+01_JPRB,5.0005E+01_JPRB/)
+KBO( :, 4,16,16) = (/&
+&1.5664E+01_JPRB,1.7033E+01_JPRB,3.4039E+01_JPRB,5.0943E+01_JPRB,6.8160E+01_JPRB/)
+KBO( :, 5,16,16) = (/&
+&1.9931E+01_JPRB,2.2609E+01_JPRB,4.5144E+01_JPRB,6.7604E+01_JPRB,9.0384E+01_JPRB/)
+KBO( :, 1,17,16) = (/&
+&7.3859E+00_JPRB,7.7004E+00_JPRB,1.5389E+01_JPRB,2.3023E+01_JPRB,3.0816E+01_JPRB/)
+KBO( :, 2,17,16) = (/&
+&1.0640E+01_JPRB,1.0863E+01_JPRB,2.1706E+01_JPRB,3.2470E+01_JPRB,4.3467E+01_JPRB/)
+KBO( :, 3,17,16) = (/&
+&1.4563E+01_JPRB,1.4992E+01_JPRB,2.9958E+01_JPRB,4.4824E+01_JPRB,5.9991E+01_JPRB/)
+KBO( :, 4,17,16) = (/&
+&1.9138E+01_JPRB,2.0152E+01_JPRB,4.0219E+01_JPRB,6.0189E+01_JPRB,8.0517E+01_JPRB/)
+KBO( :, 5,17,16) = (/&
+&2.4286E+01_JPRB,2.6459E+01_JPRB,5.2448E+01_JPRB,7.8504E+01_JPRB,1.0501E+02_JPRB/)
+KBO( :, 1,18,16) = (/&
+&9.1226E+00_JPRB,9.2597E+00_JPRB,1.8491E+01_JPRB,2.7668E+01_JPRB,3.7034E+01_JPRB/)
+KBO( :, 2,18,16) = (/&
+&1.3090E+01_JPRB,1.3038E+01_JPRB,2.6008E+01_JPRB,3.8923E+01_JPRB,5.2083E+01_JPRB/)
+KBO( :, 3,18,16) = (/&
+&1.7870E+01_JPRB,1.7862E+01_JPRB,3.5545E+01_JPRB,5.3199E+01_JPRB,7.1167E+01_JPRB/)
+KBO( :, 4,18,16) = (/&
+&2.3384E+01_JPRB,2.3802E+01_JPRB,4.7105E+01_JPRB,7.0494E+01_JPRB,9.4316E+01_JPRB/)
+KBO( :, 5,18,16) = (/&
+&2.9603E+01_JPRB,3.0959E+01_JPRB,6.0617E+01_JPRB,9.0761E+01_JPRB,1.2137E+02_JPRB/)
+KBO( :, 1,19,16) = (/&
+&1.1267E+01_JPRB,1.1103E+01_JPRB,2.1975E+01_JPRB,3.2891E+01_JPRB,4.4000E+01_JPRB/)
+KBO( :, 2,19,16) = (/&
+&1.6108E+01_JPRB,1.5588E+01_JPRB,3.0737E+01_JPRB,4.5998E+01_JPRB,6.1538E+01_JPRB/)
+KBO( :, 3,19,16) = (/&
+&2.1880E+01_JPRB,2.1226E+01_JPRB,4.1603E+01_JPRB,6.2286E+01_JPRB,8.3284E+01_JPRB/)
+KBO( :, 4,19,16) = (/&
+&2.8546E+01_JPRB,2.8063E+01_JPRB,5.4555E+01_JPRB,8.1653E+01_JPRB,1.0920E+02_JPRB/)
+KBO( :, 5,19,16) = (/&
+&3.6015E+01_JPRB,3.6209E+01_JPRB,6.9418E+01_JPRB,1.0398E+02_JPRB,1.3897E+02_JPRB/)
+KBO( :, 1,20,16) = (/&
+&1.3993E+01_JPRB,1.3379E+01_JPRB,2.5920E+01_JPRB,3.8804E+01_JPRB,5.1896E+01_JPRB/)
+KBO( :, 2,20,16) = (/&
+&1.9857E+01_JPRB,1.8711E+01_JPRB,3.5970E+01_JPRB,5.3858E+01_JPRB,7.2020E+01_JPRB/)
+KBO( :, 3,20,16) = (/&
+&2.6849E+01_JPRB,2.5309E+01_JPRB,4.8236E+01_JPRB,7.2221E+01_JPRB,9.6564E+01_JPRB/)
+KBO( :, 4,20,16) = (/&
+&3.4854E+01_JPRB,3.3204E+01_JPRB,6.2605E+01_JPRB,9.3754E+01_JPRB,1.2532E+02_JPRB/)
+KBO( :, 5,20,16) = (/&
+&4.3828E+01_JPRB,4.2464E+01_JPRB,7.8932E+01_JPRB,1.1822E+02_JPRB,1.5801E+02_JPRB/)
+KBO( :, 1,21,16) = (/&
+&1.7315E+01_JPRB,1.6114E+01_JPRB,3.0129E+01_JPRB,4.5115E+01_JPRB,6.0314E+01_JPRB/)
+KBO( :, 2,21,16) = (/&
+&2.4393E+01_JPRB,2.2395E+01_JPRB,4.1483E+01_JPRB,6.2116E+01_JPRB,8.3040E+01_JPRB/)
+KBO( :, 3,21,16) = (/&
+&3.2776E+01_JPRB,3.0091E+01_JPRB,5.5119E+01_JPRB,8.2559E+01_JPRB,1.1033E+02_JPRB/)
+KBO( :, 4,21,16) = (/&
+&4.2294E+01_JPRB,3.9176E+01_JPRB,7.0924E+01_JPRB,1.0622E+02_JPRB,1.4195E+02_JPRB/)
+KBO( :, 5,21,16) = (/&
+&5.3038E+01_JPRB,4.9692E+01_JPRB,8.8908E+01_JPRB,1.3317E+02_JPRB,1.7794E+02_JPRB/)
+KBO( :, 1,22,16) = (/&
+&2.1825E+01_JPRB,1.9779E+01_JPRB,3.5248E+01_JPRB,5.2796E+01_JPRB,7.0550E+01_JPRB/)
+KBO( :, 2,22,16) = (/&
+&3.0396E+01_JPRB,2.7253E+01_JPRB,4.8033E+01_JPRB,7.1948E+01_JPRB,9.6125E+01_JPRB/)
+KBO( :, 3,22,16) = (/&
+&4.0380E+01_JPRB,3.6230E+01_JPRB,6.3173E+01_JPRB,9.4660E+01_JPRB,1.2648E+02_JPRB/)
+KBO( :, 4,22,16) = (/&
+&5.1797E+01_JPRB,4.6707E+01_JPRB,8.0766E+01_JPRB,1.2099E+02_JPRB,1.6165E+02_JPRB/)
+KBO( :, 5,22,16) = (/&
+&6.4540E+01_JPRB,5.8724E+01_JPRB,1.0071E+02_JPRB,1.5084E+02_JPRB,2.0156E+02_JPRB/)
+KBO( :, 1,23,16) = (/&
+&2.7320E+01_JPRB,2.4188E+01_JPRB,4.0693E+01_JPRB,6.0960E+01_JPRB,8.1453E+01_JPRB/)
+KBO( :, 2,23,16) = (/&
+&3.7558E+01_JPRB,3.2976E+01_JPRB,5.4970E+01_JPRB,8.2336E+01_JPRB,1.1003E+02_JPRB/)
+KBO( :, 3,23,16) = (/&
+&4.9408E+01_JPRB,4.3375E+01_JPRB,7.1816E+01_JPRB,1.0759E+02_JPRB,1.4373E+02_JPRB/)
+KBO( :, 4,23,16) = (/&
+&6.2874E+01_JPRB,5.5353E+01_JPRB,9.1309E+01_JPRB,1.3680E+02_JPRB,1.8276E+02_JPRB/)
+KBO( :, 5,23,16) = (/&
+&7.7698E+01_JPRB,6.8961E+01_JPRB,1.1333E+02_JPRB,1.6978E+02_JPRB,2.2679E+02_JPRB/)
+KBO( :, 1,24,16) = (/&
+&3.3869E+01_JPRB,2.9387E+01_JPRB,4.6648E+01_JPRB,6.9904E+01_JPRB,9.3367E+01_JPRB/)
+KBO( :, 2,24,16) = (/&
+&4.6006E+01_JPRB,3.9622E+01_JPRB,6.2515E+01_JPRB,9.3679E+01_JPRB,1.2511E+02_JPRB/)
+KBO( :, 3,24,16) = (/&
+&5.9946E+01_JPRB,5.1571E+01_JPRB,8.1209E+01_JPRB,1.2167E+02_JPRB,1.6250E+02_JPRB/)
+KBO( :, 4,24,16) = (/&
+&7.5539E+01_JPRB,6.5110E+01_JPRB,1.0265E+02_JPRB,1.5380E+02_JPRB,2.0542E+02_JPRB/)
+KBO( :, 5,24,16) = (/&
+&9.2477E+01_JPRB,8.0448E+01_JPRB,1.2660E+02_JPRB,1.8969E+02_JPRB,2.5333E+02_JPRB/)
+KBO( :, 1,25,16) = (/&
+&4.1599E+01_JPRB,3.5454E+01_JPRB,5.3146E+01_JPRB,7.9642E+01_JPRB,1.0635E+02_JPRB/)
+KBO( :, 2,25,16) = (/&
+&5.5782E+01_JPRB,4.7228E+01_JPRB,7.0740E+01_JPRB,1.0597E+02_JPRB,1.4155E+02_JPRB/)
+KBO( :, 3,25,16) = (/&
+&7.1943E+01_JPRB,6.0744E+01_JPRB,9.1338E+01_JPRB,1.3688E+02_JPRB,1.8276E+02_JPRB/)
+KBO( :, 4,25,16) = (/&
+&8.9735E+01_JPRB,7.6043E+01_JPRB,1.1460E+02_JPRB,1.7175E+02_JPRB,2.2932E+02_JPRB/)
+KBO( :, 5,25,16) = (/&
+&1.0881E+02_JPRB,9.3022E+01_JPRB,1.4062E+02_JPRB,2.1079E+02_JPRB,2.8133E+02_JPRB/)
+KBO( :, 1,26,16) = (/&
+&5.0633E+01_JPRB,4.2540E+01_JPRB,6.0521E+01_JPRB,9.0533E+01_JPRB,1.2089E+02_JPRB/)
+KBO( :, 2,26,16) = (/&
+&6.7031E+01_JPRB,5.5881E+01_JPRB,7.9837E+01_JPRB,1.1964E+02_JPRB,1.5974E+02_JPRB/)
+KBO( :, 3,26,16) = (/&
+&8.5449E+01_JPRB,7.1046E+01_JPRB,1.0219E+02_JPRB,1.5314E+02_JPRB,2.0448E+02_JPRB/)
+KBO( :, 4,26,16) = (/&
+&1.0550E+02_JPRB,8.8104E+01_JPRB,1.2741E+02_JPRB,1.9092E+02_JPRB,2.5490E+02_JPRB/)
+KBO( :, 5,26,16) = (/&
+&1.2662E+02_JPRB,1.0665E+02_JPRB,1.5535E+02_JPRB,2.3284E+02_JPRB,3.1085E+02_JPRB/)
+KBO( :, 1,27,16) = (/&
+&6.0760E+01_JPRB,5.0362E+01_JPRB,6.8627E+01_JPRB,1.0214E+02_JPRB,1.3635E+02_JPRB/)
+KBO( :, 2,27,16) = (/&
+&7.9372E+01_JPRB,6.5351E+01_JPRB,8.9496E+01_JPRB,1.3381E+02_JPRB,1.7862E+02_JPRB/)
+KBO( :, 3,27,16) = (/&
+&1.0007E+02_JPRB,8.2171E+01_JPRB,1.1350E+02_JPRB,1.7014E+02_JPRB,2.2709E+02_JPRB/)
+KBO( :, 4,27,16) = (/&
+&1.2219E+02_JPRB,1.0086E+02_JPRB,1.4060E+02_JPRB,2.1077E+02_JPRB,2.8135E+02_JPRB/)
+KBO( :, 5,27,16) = (/&
+&1.4517E+02_JPRB,1.2078E+02_JPRB,1.7031E+02_JPRB,2.5527E+02_JPRB,3.4078E+02_JPRB/)
+KBO( :, 1,28,16) = (/&
+&7.1850E+01_JPRB,5.8865E+01_JPRB,7.7249E+01_JPRB,1.1435E+02_JPRB,1.5263E+02_JPRB/)
+KBO( :, 2,28,16) = (/&
+&9.2653E+01_JPRB,7.5393E+01_JPRB,9.9671E+01_JPRB,1.4851E+02_JPRB,1.9822E+02_JPRB/)
+KBO( :, 3,28,16) = (/&
+&1.1541E+02_JPRB,9.3821E+01_JPRB,1.2515E+02_JPRB,1.8738E+02_JPRB,2.5009E+02_JPRB/)
+KBO( :, 4,28,16) = (/&
+&1.3940E+02_JPRB,1.1403E+02_JPRB,1.5381E+02_JPRB,2.3053E+02_JPRB,3.0770E+02_JPRB/)
+KBO( :, 5,28,16) = (/&
+&1.6406E+02_JPRB,1.3517E+02_JPRB,1.8510E+02_JPRB,2.7748E+02_JPRB,3.7030E+02_JPRB/)
+KBO( :, 1,29,16) = (/&
+&8.3876E+01_JPRB,6.7955E+01_JPRB,8.6536E+01_JPRB,1.2716E+02_JPRB,1.6971E+02_JPRB/)
+KBO( :, 2,29,16) = (/&
+&1.0671E+02_JPRB,8.6050E+01_JPRB,1.1035E+02_JPRB,1.6386E+02_JPRB,2.1869E+02_JPRB/)
+KBO( :, 3,29,16) = (/&
+&1.3128E+02_JPRB,1.0596E+02_JPRB,1.3736E+02_JPRB,2.0522E+02_JPRB,2.7387E+02_JPRB/)
+KBO( :, 4,29,16) = (/&
+&1.5691E+02_JPRB,1.2750E+02_JPRB,1.6737E+02_JPRB,2.5071E+02_JPRB,3.3454E+02_JPRB/)
+KBO( :, 5,29,16) = (/&
+&1.8307E+02_JPRB,1.4968E+02_JPRB,1.9986E+02_JPRB,2.9963E+02_JPRB,3.9981E+02_JPRB/)
+KBO( :, 1,30,16) = (/&
+&9.6402E+01_JPRB,7.7403E+01_JPRB,9.6100E+01_JPRB,1.4042E+02_JPRB,1.8733E+02_JPRB/)
+KBO( :, 2,30,16) = (/&
+&1.2111E+02_JPRB,9.6917E+01_JPRB,1.2129E+02_JPRB,1.7953E+02_JPRB,2.3957E+02_JPRB/)
+KBO( :, 3,30,16) = (/&
+&1.4725E+02_JPRB,1.1830E+02_JPRB,1.4967E+02_JPRB,2.2319E+02_JPRB,2.9778E+02_JPRB/)
+KBO( :, 4,30,16) = (/&
+&1.7435E+02_JPRB,1.4089E+02_JPRB,1.8090E+02_JPRB,2.7076E+02_JPRB,3.6126E+02_JPRB/)
+KBO( :, 5,30,16) = (/&
+&2.0174E+02_JPRB,1.6391E+02_JPRB,2.1447E+02_JPRB,3.2140E+02_JPRB,4.2881E+02_JPRB/)
+KBO( :, 1,31,16) = (/&
+&1.0938E+02_JPRB,8.7129E+01_JPRB,1.0605E+02_JPRB,1.5425E+02_JPRB,2.0576E+02_JPRB/)
+KBO( :, 2,31,16) = (/&
+&1.3571E+02_JPRB,1.0800E+02_JPRB,1.3247E+02_JPRB,1.9550E+02_JPRB,2.6086E+02_JPRB/)
+KBO( :, 3,31,16) = (/&
+&1.6324E+02_JPRB,1.3063E+02_JPRB,1.6212E+02_JPRB,2.4122E+02_JPRB,3.2182E+02_JPRB/)
+KBO( :, 4,31,16) = (/&
+&1.9162E+02_JPRB,1.5412E+02_JPRB,1.9447E+02_JPRB,2.9069E+02_JPRB,3.8783E+02_JPRB/)
+KBO( :, 5,31,16) = (/&
+&2.1989E+02_JPRB,1.7781E+02_JPRB,2.2900E+02_JPRB,3.4301E+02_JPRB,4.5761E+02_JPRB/)
+KBO( :, 1,32,16) = (/&
+&1.2256E+02_JPRB,9.7067E+01_JPRB,1.1617E+02_JPRB,1.6836E+02_JPRB,2.2461E+02_JPRB/)
+KBO( :, 2,32,16) = (/&
+&1.5030E+02_JPRB,1.1913E+02_JPRB,1.4393E+02_JPRB,2.1170E+02_JPRB,2.8241E+02_JPRB/)
+KBO( :, 3,32,16) = (/&
+&1.7905E+02_JPRB,1.4279E+02_JPRB,1.7463E+02_JPRB,2.5936E+02_JPRB,3.4601E+02_JPRB/)
+KBO( :, 4,32,16) = (/&
+&2.0835E+02_JPRB,1.6700E+02_JPRB,2.0791E+02_JPRB,3.1047E+02_JPRB,4.1404E+02_JPRB/)
+KBO( :, 5,32,16) = (/&
+&2.3734E+02_JPRB,1.9118E+02_JPRB,2.4327E+02_JPRB,3.6420E+02_JPRB,4.8584E+02_JPRB/)
+KBO( :, 1,33,16) = (/&
+&1.3570E+02_JPRB,1.0705E+02_JPRB,1.2638E+02_JPRB,1.8277E+02_JPRB,2.4379E+02_JPRB/)
+KBO( :, 2,33,16) = (/&
+&1.6469E+02_JPRB,1.3015E+02_JPRB,1.5530E+02_JPRB,2.2797E+02_JPRB,3.0408E+02_JPRB/)
+KBO( :, 3,33,16) = (/&
+&1.9448E+02_JPRB,1.5467E+02_JPRB,1.8707E+02_JPRB,2.7733E+02_JPRB,3.6994E+02_JPRB/)
+KBO( :, 4,33,16) = (/&
+&2.2436E+02_JPRB,1.7936E+02_JPRB,2.2122E+02_JPRB,3.2976E+02_JPRB,4.3991E+02_JPRB/)
+KBO( :, 5,33,16) = (/&
+&2.5393E+02_JPRB,2.0390E+02_JPRB,2.5728E+02_JPRB,3.8487E+02_JPRB,5.1330E+02_JPRB/)
+KBO( :, 1,34,16) = (/&
+&1.4769E+02_JPRB,1.1615E+02_JPRB,1.3561E+02_JPRB,1.9580E+02_JPRB,2.6115E+02_JPRB/)
+KBO( :, 2,34,16) = (/&
+&1.7765E+02_JPRB,1.4013E+02_JPRB,1.6546E+02_JPRB,2.4255E+02_JPRB,3.2352E+02_JPRB/)
+KBO( :, 3,34,16) = (/&
+&2.0819E+02_JPRB,1.6522E+02_JPRB,1.9808E+02_JPRB,2.9327E+02_JPRB,3.9114E+02_JPRB/)
+KBO( :, 4,34,16) = (/&
+&2.3855E+02_JPRB,1.9025E+02_JPRB,2.3293E+02_JPRB,3.4692E+02_JPRB,4.6270E+02_JPRB/)
+KBO( :, 5,34,16) = (/&
+&2.6850E+02_JPRB,2.1503E+02_JPRB,2.6955E+02_JPRB,4.0292E+02_JPRB,5.3742E+02_JPRB/)
+KBO( :, 1,35,16) = (/&
+&1.5643E+02_JPRB,1.2270E+02_JPRB,1.4190E+02_JPRB,2.0436E+02_JPRB,2.7254E+02_JPRB/)
+KBO( :, 2,35,16) = (/&
+&1.8713E+02_JPRB,1.4730E+02_JPRB,1.7243E+02_JPRB,2.5214E+02_JPRB,3.3629E+02_JPRB/)
+KBO( :, 3,35,16) = (/&
+&2.1819E+02_JPRB,1.7282E+02_JPRB,2.0562E+02_JPRB,3.0372E+02_JPRB,4.0506E+02_JPRB/)
+KBO( :, 4,35,16) = (/&
+&2.4895E+02_JPRB,1.9814E+02_JPRB,2.4081E+02_JPRB,3.5825E+02_JPRB,4.7775E+02_JPRB/)
+KBO( :, 5,35,16) = (/&
+&2.7917E+02_JPRB,2.2313E+02_JPRB,2.7780E+02_JPRB,4.1495E+02_JPRB,5.5336E+02_JPRB/)
+KBO( :, 1,36,16) = (/&
+&1.6128E+02_JPRB,1.2623E+02_JPRB,1.4470E+02_JPRB,2.0760E+02_JPRB,2.7682E+02_JPRB/)
+KBO( :, 2,36,16) = (/&
+&1.9250E+02_JPRB,1.5118E+02_JPRB,1.7553E+02_JPRB,2.5587E+02_JPRB,3.4124E+02_JPRB/)
+KBO( :, 3,36,16) = (/&
+&2.2400E+02_JPRB,1.7706E+02_JPRB,2.0894E+02_JPRB,3.0787E+02_JPRB,4.1050E+02_JPRB/)
+KBO( :, 4,36,16) = (/&
+&2.5511E+02_JPRB,2.0265E+02_JPRB,2.4435E+02_JPRB,3.6281E+02_JPRB,4.8383E+02_JPRB/)
+KBO( :, 5,36,16) = (/&
+&2.8566E+02_JPRB,2.2781E+02_JPRB,2.8144E+02_JPRB,4.1994E+02_JPRB,5.6005E+02_JPRB/)
+KBO( :, 1,37,16) = (/&
+&1.6074E+02_JPRB,1.2562E+02_JPRB,1.4270E+02_JPRB,2.0342E+02_JPRB,2.7131E+02_JPRB/)
+KBO( :, 2,37,16) = (/&
+&1.9235E+02_JPRB,1.5069E+02_JPRB,1.7337E+02_JPRB,2.5150E+02_JPRB,3.3544E+02_JPRB/)
+KBO( :, 3,37,16) = (/&
+&2.2422E+02_JPRB,1.7676E+02_JPRB,2.0661E+02_JPRB,3.0337E+02_JPRB,4.0456E+02_JPRB/)
+KBO( :, 4,37,16) = (/&
+&2.5568E+02_JPRB,2.0266E+02_JPRB,2.4193E+02_JPRB,3.5830E+02_JPRB,4.7782E+02_JPRB/)
+KBO( :, 5,37,16) = (/&
+&2.8661E+02_JPRB,2.2807E+02_JPRB,2.7894E+02_JPRB,4.1548E+02_JPRB,5.5411E+02_JPRB/)
+KBO( :, 1,38,16) = (/&
+&1.5931E+02_JPRB,1.2434E+02_JPRB,1.4021E+02_JPRB,1.9855E+02_JPRB,2.6480E+02_JPRB/)
+KBO( :, 2,38,16) = (/&
+&1.9120E+02_JPRB,1.4947E+02_JPRB,1.7064E+02_JPRB,2.4634E+02_JPRB,3.2849E+02_JPRB/)
+KBO( :, 3,38,16) = (/&
+&2.2336E+02_JPRB,1.7568E+02_JPRB,2.0368E+02_JPRB,2.9797E+02_JPRB,3.9734E+02_JPRB/)
+KBO( :, 4,38,16) = (/&
+&2.5520E+02_JPRB,2.0184E+02_JPRB,2.3879E+02_JPRB,3.5282E+02_JPRB,4.7045E+02_JPRB/)
+KBO( :, 5,38,16) = (/&
+&2.8646E+02_JPRB,2.2749E+02_JPRB,2.7570E+02_JPRB,4.0988E+02_JPRB,5.4664E+02_JPRB/)
+KBO( :, 1,39,16) = (/&
+&1.5737E+02_JPRB,1.2272E+02_JPRB,1.3752E+02_JPRB,1.9347E+02_JPRB,2.5800E+02_JPRB/)
+KBO( :, 2,39,16) = (/&
+&1.8947E+02_JPRB,1.4785E+02_JPRB,1.6766E+02_JPRB,2.4086E+02_JPRB,3.2118E+02_JPRB/)
+KBO( :, 3,39,16) = (/&
+&2.2190E+02_JPRB,1.7414E+02_JPRB,2.0048E+02_JPRB,2.9227E+02_JPRB,3.8976E+02_JPRB/)
+KBO( :, 4,39,16) = (/&
+&2.5401E+02_JPRB,2.0054E+02_JPRB,2.3540E+02_JPRB,3.4685E+02_JPRB,4.6257E+02_JPRB/)
+KBO( :, 5,39,16) = (/&
+&2.8557E+02_JPRB,2.2640E+02_JPRB,2.7220E+02_JPRB,4.0387E+02_JPRB,5.3853E+02_JPRB/)
+KBO( :, 1,40,16) = (/&
+&1.5173E+02_JPRB,1.1834E+02_JPRB,1.3170E+02_JPRB,1.8369E+02_JPRB,2.4496E+02_JPRB/)
+KBO( :, 2,40,16) = (/&
+&1.8387E+02_JPRB,1.4326E+02_JPRB,1.6126E+02_JPRB,2.3014E+02_JPRB,3.0690E+02_JPRB/)
+KBO( :, 3,40,16) = (/&
+&2.1654E+02_JPRB,1.6951E+02_JPRB,1.9355E+02_JPRB,2.8092E+02_JPRB,3.7460E+02_JPRB/)
+KBO( :, 4,40,16) = (/&
+&2.4896E+02_JPRB,1.9611E+02_JPRB,2.2806E+02_JPRB,3.3490E+02_JPRB,4.4658E+02_JPRB/)
+KBO( :, 5,40,16) = (/&
+&2.8081E+02_JPRB,2.2225E+02_JPRB,2.6459E+02_JPRB,3.9162E+02_JPRB,5.2225E+02_JPRB/)
+KBO( :, 1,41,16) = (/&
+&1.4531E+02_JPRB,1.1344E+02_JPRB,1.2539E+02_JPRB,1.7342E+02_JPRB,2.3126E+02_JPRB/)
+KBO( :, 2,41,16) = (/&
+&1.7739E+02_JPRB,1.3804E+02_JPRB,1.5439E+02_JPRB,2.1880E+02_JPRB,2.9176E+02_JPRB/)
+KBO( :, 3,41,16) = (/&
+&2.1022E+02_JPRB,1.6418E+02_JPRB,1.8612E+02_JPRB,2.6873E+02_JPRB,3.5832E+02_JPRB/)
+KBO( :, 4,41,16) = (/&
+&2.4292E+02_JPRB,1.9086E+02_JPRB,2.2015E+02_JPRB,3.2196E+02_JPRB,4.2934E+02_JPRB/)
+KBO( :, 5,41,16) = (/&
+&2.7507E+02_JPRB,2.1730E+02_JPRB,2.5630E+02_JPRB,3.7839E+02_JPRB,5.0449E+02_JPRB/)
+KBO( :, 1,42,16) = (/&
+&1.3859E+02_JPRB,1.0832E+02_JPRB,1.1902E+02_JPRB,1.6325E+02_JPRB,2.1769E+02_JPRB/)
+KBO( :, 2,42,16) = (/&
+&1.7052E+02_JPRB,1.3266E+02_JPRB,1.4745E+02_JPRB,2.0749E+02_JPRB,2.7665E+02_JPRB/)
+KBO( :, 3,42,16) = (/&
+&2.0342E+02_JPRB,1.5859E+02_JPRB,1.7863E+02_JPRB,2.5644E+02_JPRB,3.4199E+02_JPRB/)
+KBO( :, 4,42,16) = (/&
+&2.3635E+02_JPRB,1.8528E+02_JPRB,2.1215E+02_JPRB,3.0913E+02_JPRB,4.1213E+02_JPRB/)
+KBO( :, 5,42,16) = (/&
+&2.6880E+02_JPRB,2.1197E+02_JPRB,2.4778E+02_JPRB,3.6481E+02_JPRB,4.8644E+02_JPRB/)
+KBO( :, 1,43,16) = (/&
+&1.3001E+02_JPRB,1.0178E+02_JPRB,1.1123E+02_JPRB,1.5100E+02_JPRB,2.0132E+02_JPRB/)
+KBO( :, 2,43,16) = (/&
+&1.6156E+02_JPRB,1.2573E+02_JPRB,1.3894E+02_JPRB,1.9371E+02_JPRB,2.5828E+02_JPRB/)
+KBO( :, 3,43,16) = (/&
+&1.9443E+02_JPRB,1.5128E+02_JPRB,1.6930E+02_JPRB,2.4134E+02_JPRB,3.2182E+02_JPRB/)
+KBO( :, 4,43,16) = (/&
+&2.2750E+02_JPRB,1.7792E+02_JPRB,2.0213E+02_JPRB,2.9308E+02_JPRB,3.9078E+02_JPRB/)
+KBO( :, 5,43,16) = (/&
+&2.6025E+02_JPRB,2.0480E+02_JPRB,2.3724E+02_JPRB,3.4798E+02_JPRB,4.6403E+02_JPRB/)
+KBO( :, 1,44,16) = (/&
+&1.2064E+02_JPRB,9.4696E+01_JPRB,1.0291E+02_JPRB,1.3822E+02_JPRB,1.8432E+02_JPRB/)
+KBO( :, 2,44,16) = (/&
+&1.5164E+02_JPRB,1.1817E+02_JPRB,1.2980E+02_JPRB,1.7913E+02_JPRB,2.3893E+02_JPRB/)
+KBO( :, 3,44,16) = (/&
+&1.8428E+02_JPRB,1.4322E+02_JPRB,1.5930E+02_JPRB,2.2526E+02_JPRB,3.0036E+02_JPRB/)
+KBO( :, 4,44,16) = (/&
+&2.1753E+02_JPRB,1.6972E+02_JPRB,1.9139E+02_JPRB,2.7583E+02_JPRB,3.6782E+02_JPRB/)
+KBO( :, 5,44,16) = (/&
+&2.5049E+02_JPRB,1.9666E+02_JPRB,2.2579E+02_JPRB,3.2975E+02_JPRB,4.3968E+02_JPRB/)
+KBO( :, 1,45,16) = (/&
+&1.1151E+02_JPRB,8.7613E+01_JPRB,9.4790E+01_JPRB,1.2608E+02_JPRB,1.6812E+02_JPRB/)
+KBO( :, 2,45,16) = (/&
+&1.4164E+02_JPRB,1.1057E+02_JPRB,1.2077E+02_JPRB,1.6507E+02_JPRB,2.2006E+02_JPRB/)
+KBO( :, 3,45,16) = (/&
+&1.7396E+02_JPRB,1.3520E+02_JPRB,1.4945E+02_JPRB,2.0958E+02_JPRB,2.7946E+02_JPRB/)
+KBO( :, 4,45,16) = (/&
+&2.0722E+02_JPRB,1.6134E+02_JPRB,1.8077E+02_JPRB,2.5885E+02_JPRB,3.4509E+02_JPRB/)
+KBO( :, 5,45,16) = (/&
+&2.4041E+02_JPRB,1.8823E+02_JPRB,2.1441E+02_JPRB,3.1179E+02_JPRB,4.1569E+02_JPRB/)
+KBO( :, 1,46,16) = (/&
+&1.0202E+02_JPRB,8.0263E+01_JPRB,8.6456E+01_JPRB,1.1385E+02_JPRB,1.5183E+02_JPRB/)
+KBO( :, 2,46,16) = (/&
+&1.3102E+02_JPRB,1.0251E+02_JPRB,1.1143E+02_JPRB,1.5058E+02_JPRB,2.0077E+02_JPRB/)
+KBO( :, 3,46,16) = (/&
+&1.6284E+02_JPRB,1.2664E+02_JPRB,1.3922E+02_JPRB,1.9326E+02_JPRB,2.5769E+02_JPRB/)
+KBO( :, 4,46,16) = (/&
+&1.9593E+02_JPRB,1.5228E+02_JPRB,1.6961E+02_JPRB,2.4101E+02_JPRB,3.2127E+02_JPRB/)
+KBO( :, 5,46,16) = (/&
+&2.2932E+02_JPRB,1.7911E+02_JPRB,2.0249E+02_JPRB,2.9283E+02_JPRB,3.9038E+02_JPRB/)
+KBO( :, 1,47,16) = (/&
+&9.1833E+01_JPRB,7.2521E+01_JPRB,7.7492E+01_JPRB,1.0107E+02_JPRB,1.3478E+02_JPRB/)
+KBO( :, 2,47,16) = (/&
+&1.1935E+02_JPRB,9.3639E+01_JPRB,1.0124E+02_JPRB,1.3522E+02_JPRB,1.8034E+02_JPRB/)
+KBO( :, 3,47,16) = (/&
+&1.5031E+02_JPRB,1.1714E+02_JPRB,1.2800E+02_JPRB,1.7568E+02_JPRB,2.3430E+02_JPRB/)
+KBO( :, 4,47,16) = (/&
+&1.8310E+02_JPRB,1.4216E+02_JPRB,1.5736E+02_JPRB,2.2148E+02_JPRB,2.9535E+02_JPRB/)
+KBO( :, 5,47,16) = (/&
+&2.1655E+02_JPRB,1.6875E+02_JPRB,1.8931E+02_JPRB,2.7187E+02_JPRB,3.6261E+02_JPRB/)
+KBO( :, 1,48,16) = (/&
+&8.2434E+01_JPRB,6.5271E+01_JPRB,6.9082E+01_JPRB,8.9310E+01_JPRB,1.1908E+02_JPRB/)
+KBO( :, 2,48,16) = (/&
+&1.0815E+02_JPRB,8.4940E+01_JPRB,9.1497E+01_JPRB,1.2085E+02_JPRB,1.6117E+02_JPRB/)
+KBO( :, 3,48,16) = (/&
+&1.3796E+02_JPRB,1.0775E+02_JPRB,1.1715E+02_JPRB,1.5893E+02_JPRB,2.1191E+02_JPRB/)
+KBO( :, 4,48,16) = (/&
+&1.7024E+02_JPRB,1.3227E+02_JPRB,1.4550E+02_JPRB,2.0275E+02_JPRB,2.7033E+02_JPRB/)
+KBO( :, 5,48,16) = (/&
+&2.0361E+02_JPRB,1.5829E+02_JPRB,1.7646E+02_JPRB,2.5142E+02_JPRB,3.3526E+02_JPRB/)
+KBO( :, 1,49,16) = (/&
+&7.3591E+01_JPRB,5.8555E+01_JPRB,6.1217E+01_JPRB,7.8585E+01_JPRB,1.0478E+02_JPRB/)
+KBO( :, 2,49,16) = (/&
+&9.7468E+01_JPRB,7.6787E+01_JPRB,8.2199E+01_JPRB,1.0753E+02_JPRB,1.4337E+02_JPRB/)
+KBO( :, 3,49,16) = (/&
+&1.2589E+02_JPRB,9.8595E+01_JPRB,1.0664E+02_JPRB,1.4299E+02_JPRB,1.9063E+02_JPRB/)
+KBO( :, 4,49,16) = (/&
+&1.5743E+02_JPRB,1.2250E+02_JPRB,1.3397E+02_JPRB,1.8464E+02_JPRB,2.4618E+02_JPRB/)
+KBO( :, 5,49,16) = (/&
+&1.9052E+02_JPRB,1.4794E+02_JPRB,1.6391E+02_JPRB,2.3149E+02_JPRB,3.0868E+02_JPRB/)
+KBO( :, 1,50,16) = (/&
+&6.5961E+01_JPRB,5.2638E+01_JPRB,5.4393E+01_JPRB,6.9399E+01_JPRB,9.2534E+01_JPRB/)
+KBO( :, 2,50,16) = (/&
+&8.8116E+01_JPRB,6.9616E+01_JPRB,7.3948E+01_JPRB,9.5883E+01_JPRB,1.2784E+02_JPRB/)
+KBO( :, 3,50,16) = (/&
+&1.1495E+02_JPRB,9.0222E+01_JPRB,9.7185E+01_JPRB,1.2898E+02_JPRB,1.7197E+02_JPRB/)
+KBO( :, 4,50,16) = (/&
+&1.4556E+02_JPRB,1.1350E+02_JPRB,1.2350E+02_JPRB,1.6846E+02_JPRB,2.2453E+02_JPRB/)
+KBO( :, 5,50,16) = (/&
+&1.7823E+02_JPRB,1.3839E+02_JPRB,1.5245E+02_JPRB,2.1343E+02_JPRB,2.8458E+02_JPRB/)
+KBO( :, 1,51,16) = (/&
+&5.9119E+01_JPRB,4.7354E+01_JPRB,4.8344E+01_JPRB,6.1204E+01_JPRB,8.1604E+01_JPRB/)
+KBO( :, 2,51,16) = (/&
+&7.9680E+01_JPRB,6.3168E+01_JPRB,6.6452E+01_JPRB,8.5530E+01_JPRB,1.1410E+02_JPRB/)
+KBO( :, 3,51,16) = (/&
+&1.0482E+02_JPRB,8.2356E+01_JPRB,8.8430E+01_JPRB,1.1623E+02_JPRB,1.5497E+02_JPRB/)
+KBO( :, 4,51,16) = (/&
+&1.3427E+02_JPRB,1.0494E+02_JPRB,1.1368E+02_JPRB,1.5339E+02_JPRB,2.0454E+02_JPRB/)
+KBO( :, 5,51,16) = (/&
+&1.6639E+02_JPRB,1.2932E+02_JPRB,1.4173E+02_JPRB,1.9652E+02_JPRB,2.6202E+02_JPRB/)
+KBO( :, 1,52,16) = (/&
+&5.2745E+01_JPRB,4.2467E+01_JPRB,4.2754E+01_JPRB,5.3680E+01_JPRB,7.1576E+01_JPRB/)
+KBO( :, 2,52,16) = (/&
+&7.1747E+01_JPRB,5.7129E+01_JPRB,5.9424E+01_JPRB,7.6073E+01_JPRB,1.0142E+02_JPRB/)
+KBO( :, 3,52,16) = (/&
+&9.5200E+01_JPRB,7.5047E+01_JPRB,8.0071E+01_JPRB,1.0434E+02_JPRB,1.3911E+02_JPRB/)
+KBO( :, 4,52,16) = (/&
+&1.2328E+02_JPRB,9.6608E+01_JPRB,1.0420E+02_JPRB,1.3918E+02_JPRB,1.8556E+02_JPRB/)
+KBO( :, 5,52,16) = (/&
+&1.5465E+02_JPRB,1.2039E+02_JPRB,1.3128E+02_JPRB,1.8026E+02_JPRB,2.4037E+02_JPRB/)
+KBO( :, 1,53,16) = (/&
+&4.6931E+01_JPRB,3.7942E+01_JPRB,3.7717E+01_JPRB,4.6873E+01_JPRB,6.2479E+01_JPRB/)
+KBO( :, 2,53,16) = (/&
+&6.4426E+01_JPRB,5.1434E+01_JPRB,5.2934E+01_JPRB,6.7323E+01_JPRB,8.9766E+01_JPRB/)
+KBO( :, 3,53,16) = (/&
+&8.6242E+01_JPRB,6.8154E+01_JPRB,7.2147E+01_JPRB,9.3266E+01_JPRB,1.2436E+02_JPRB/)
+KBO( :, 4,53,16) = (/&
+&1.1270E+02_JPRB,8.8425E+01_JPRB,9.5072E+01_JPRB,1.2575E+02_JPRB,1.6767E+02_JPRB/)
+KBO( :, 5,53,16) = (/&
+&1.4306E+02_JPRB,1.1161E+02_JPRB,1.2116E+02_JPRB,1.6465E+02_JPRB,2.1957E+02_JPRB/)
+KBO( :, 1,54,16) = (/&
+&4.2077E+01_JPRB,3.4169E+01_JPRB,3.3488E+01_JPRB,4.1262E+01_JPRB,5.4902E+01_JPRB/)
+KBO( :, 2,54,16) = (/&
+&5.8190E+01_JPRB,4.6634E+01_JPRB,4.7441E+01_JPRB,5.9915E+01_JPRB,7.9878E+01_JPRB/)
+KBO( :, 3,54,16) = (/&
+&7.8514E+01_JPRB,6.2282E+01_JPRB,6.5328E+01_JPRB,8.3924E+01_JPRB,1.1190E+02_JPRB/)
+KBO( :, 4,54,16) = (/&
+&1.0342E+02_JPRB,8.1276E+01_JPRB,8.7086E+01_JPRB,1.1420E+02_JPRB,1.5227E+02_JPRB/)
+KBO( :, 5,54,16) = (/&
+&1.3269E+02_JPRB,1.0372E+02_JPRB,1.1219E+02_JPRB,1.5097E+02_JPRB,2.0130E+02_JPRB/)
+KBO( :, 1,55,16) = (/&
+&3.7797E+01_JPRB,3.0836E+01_JPRB,2.9805E+01_JPRB,3.6383E+01_JPRB,4.8271E+01_JPRB/)
+KBO( :, 2,55,16) = (/&
+&5.2583E+01_JPRB,4.2337E+01_JPRB,4.2558E+01_JPRB,5.3364E+01_JPRB,7.1129E+01_JPRB/)
+KBO( :, 3,55,16) = (/&
+&7.1538E+01_JPRB,5.6971E+01_JPRB,5.9162E+01_JPRB,7.5653E+01_JPRB,1.0088E+02_JPRB/)
+KBO( :, 4,55,16) = (/&
+&9.4943E+01_JPRB,7.4845E+01_JPRB,7.9765E+01_JPRB,1.0380E+02_JPRB,1.3840E+02_JPRB/)
+KBO( :, 5,55,16) = (/&
+&1.2300E+02_JPRB,9.6367E+01_JPRB,1.0384E+02_JPRB,1.3854E+02_JPRB,1.8472E+02_JPRB/)
+KBO( :, 1,56,16) = (/&
+&3.3873E+01_JPRB,2.7740E+01_JPRB,2.6480E+01_JPRB,3.1942E+01_JPRB,4.2208E+01_JPRB/)
+KBO( :, 2,56,16) = (/&
+&4.7453E+01_JPRB,3.8343E+01_JPRB,3.8125E+01_JPRB,4.7379E+01_JPRB,6.3148E+01_JPRB/)
+KBO( :, 3,56,16) = (/&
+&6.5091E+01_JPRB,5.1940E+01_JPRB,5.3452E+01_JPRB,6.7966E+01_JPRB,9.0627E+01_JPRB/)
+KBO( :, 4,56,16) = (/&
+&8.7046E+01_JPRB,6.8764E+01_JPRB,7.2784E+01_JPRB,9.4072E+01_JPRB,1.2543E+02_JPRB/)
+KBO( :, 5,56,16) = (/&
+&1.1365E+02_JPRB,8.9173E+01_JPRB,9.5823E+01_JPRB,1.2676E+02_JPRB,1.6901E+02_JPRB/)
+KBO( :, 1,57,16) = (/&
+&3.0269E+01_JPRB,2.4887E+01_JPRB,2.3522E+01_JPRB,2.7966E+01_JPRB,3.6672E+01_JPRB/)
+KBO( :, 2,57,16) = (/&
+&4.2742E+01_JPRB,3.4680E+01_JPRB,3.4029E+01_JPRB,4.1940E+01_JPRB,5.5826E+01_JPRB/)
+KBO( :, 3,57,16) = (/&
+&5.9049E+01_JPRB,4.7291E+01_JPRB,4.8146E+01_JPRB,6.0813E+01_JPRB,8.1079E+01_JPRB/)
+KBO( :, 4,57,16) = (/&
+&7.9588E+01_JPRB,6.3092E+01_JPRB,6.6213E+01_JPRB,8.5068E+01_JPRB,1.1341E+02_JPRB/)
+KBO( :, 5,57,16) = (/&
+&1.0467E+02_JPRB,8.2241E+01_JPRB,8.8127E+01_JPRB,1.1561E+02_JPRB,1.5417E+02_JPRB/)
+KBO( :, 1,58,16) = (/&
+&2.7181E+01_JPRB,2.2407E+01_JPRB,2.1043E+01_JPRB,2.4570E+01_JPRB,3.1903E+01_JPRB/)
+KBO( :, 2,58,16) = (/&
+&3.8607E+01_JPRB,3.1473E+01_JPRB,3.0470E+01_JPRB,3.7255E+01_JPRB,4.9462E+01_JPRB/)
+KBO( :, 3,58,16) = (/&
+&5.3661E+01_JPRB,4.3166E+01_JPRB,4.3454E+01_JPRB,5.4507E+01_JPRB,7.2688E+01_JPRB/)
+KBO( :, 4,58,16) = (/&
+&7.2881E+01_JPRB,5.7996E+01_JPRB,6.0310E+01_JPRB,7.7125E+01_JPRB,1.0284E+02_JPRB/)
+KBO( :, 5,58,16) = (/&
+&9.6586E+01_JPRB,7.6089E+01_JPRB,8.1135E+01_JPRB,1.0566E+02_JPRB,1.4091E+02_JPRB/)
+KBO( :, 1,59,16) = (/&
+&2.6031E+01_JPRB,2.1482E+01_JPRB,2.0126E+01_JPRB,2.3303E+01_JPRB,3.0129E+01_JPRB/)
+KBO( :, 2,59,16) = (/&
+&3.7063E+01_JPRB,3.0259E+01_JPRB,2.9150E+01_JPRB,3.5486E+01_JPRB,4.7064E+01_JPRB/)
+KBO( :, 3,59,16) = (/&
+&5.1630E+01_JPRB,4.1596E+01_JPRB,4.1690E+01_JPRB,5.2144E+01_JPRB,6.9539E+01_JPRB/)
+KBO( :, 4,59,16) = (/&
+&7.0350E+01_JPRB,5.6032E+01_JPRB,5.8043E+01_JPRB,7.4115E+01_JPRB,9.8842E+01_JPRB/)
+KBO( :, 5,59,16) = (/&
+&9.3474E+01_JPRB,7.3716E+01_JPRB,7.8416E+01_JPRB,1.0186E+02_JPRB,1.3581E+02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB3_B4
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4.F90	(revision 2160)
@@ -0,0 +1,21 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB4_00
+      call RRTM_KGB4_A1
+      call RRTM_KGB4_A2
+      call RRTM_KGB4_B1
+      call RRTM_KGB4_B2
+      call RRTM_KGB4_B3
+      call RRTM_KGB4_B4
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_00.F90	(revision 2160)
@@ -0,0 +1,162 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+STRRAT1 = 850.577_JPRB
+STRRAT2 = 35.7416_JPRB
+
+!     ------------------------------------------------------------------
+
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&2.62628E-01_JPRB, 2.29008E-01_JPRB, 1.99692E-01_JPRB, 1.74129E-01_JPRB, 1.51838E-01_JPRB,&
+&1.32400E-01_JPRB, 1.15451E-01_JPRB, 1.00672E-01_JPRB, 8.77845E-02_JPRB, 7.65469E-02_JPRB/)
+SELFREFO( :, 2) = (/&
+&2.45051E-01_JPRB, 2.12961E-01_JPRB, 1.85073E-01_JPRB, 1.60837E-01_JPRB, 1.39775E-01_JPRB,&
+&1.21471E-01_JPRB, 1.05564E-01_JPRB, 9.17397E-02_JPRB, 7.97260E-02_JPRB, 6.92856E-02_JPRB/)
+SELFREFO( :, 3) = (/&
+&2.42194E-01_JPRB, 2.09976E-01_JPRB, 1.82044E-01_JPRB, 1.57827E-01_JPRB, 1.36832E-01_JPRB,&
+&1.18630E-01_JPRB, 1.02849E-01_JPRB, 8.91673E-02_JPRB, 7.73057E-02_JPRB, 6.70221E-02_JPRB/)
+SELFREFO( :, 4) = (/&
+&2.44485E-01_JPRB, 2.11926E-01_JPRB, 1.83702E-01_JPRB, 1.59237E-01_JPRB, 1.38030E-01_JPRB,&
+&1.19648E-01_JPRB, 1.03714E-01_JPRB, 8.99014E-02_JPRB, 7.79286E-02_JPRB, 6.75503E-02_JPRB/)
+SELFREFO( :, 5) = (/&
+&2.43120E-01_JPRB, 2.10743E-01_JPRB, 1.82679E-01_JPRB, 1.58351E-01_JPRB, 1.37263E-01_JPRB,&
+&1.18984E-01_JPRB, 1.03139E-01_JPRB, 8.94038E-02_JPRB, 7.74978E-02_JPRB, 6.71774E-02_JPRB/)
+SELFREFO( :, 6) = (/&
+&2.40558E-01_JPRB, 2.08922E-01_JPRB, 1.81446E-01_JPRB, 1.57583E-01_JPRB, 1.36859E-01_JPRB,&
+&1.18860E-01_JPRB, 1.03229E-01_JPRB, 8.96529E-02_JPRB, 7.78624E-02_JPRB, 6.76225E-02_JPRB/)
+SELFREFO( :, 7) = (/&
+&2.42496E-01_JPRB, 2.10386E-01_JPRB, 1.82528E-01_JPRB, 1.58359E-01_JPRB, 1.37390E-01_JPRB,&
+&1.19198E-01_JPRB, 1.03415E-01_JPRB, 8.97211E-02_JPRB, 7.78409E-02_JPRB, 6.75337E-02_JPRB/)
+SELFREFO( :, 8) = (/&
+&2.39781E-01_JPRB, 2.08227E-01_JPRB, 1.80825E-01_JPRB, 1.57029E-01_JPRB, 1.36365E-01_JPRB,&
+&1.18419E-01_JPRB, 1.02836E-01_JPRB, 8.93030E-02_JPRB, 7.75510E-02_JPRB, 6.73456E-02_JPRB/)
+SELFREFO( :, 9) = (/&
+&2.38707E-01_JPRB, 2.07058E-01_JPRB, 1.79605E-01_JPRB, 1.55792E-01_JPRB, 1.35136E-01_JPRB,&
+&1.17219E-01_JPRB, 1.01677E-01_JPRB, 8.81962E-02_JPRB, 7.65026E-02_JPRB, 6.63594E-02_JPRB/)
+SELFREFO( :,10) = (/&
+&2.29942E-01_JPRB, 2.00668E-01_JPRB, 1.75121E-01_JPRB, 1.52826E-01_JPRB, 1.33370E-01_JPRB,&
+&1.16390E-01_JPRB, 1.01572E-01_JPRB, 8.86410E-02_JPRB, 7.73560E-02_JPRB, 6.75077E-02_JPRB/)
+SELFREFO( :,11) = (/&
+&2.39870E-01_JPRB, 2.08120E-01_JPRB, 1.80573E-01_JPRB, 1.56671E-01_JPRB, 1.35934E-01_JPRB,&
+&1.17941E-01_JPRB, 1.02330E-01_JPRB, 8.87854E-02_JPRB, 7.70335E-02_JPRB, 6.68371E-02_JPRB/)
+SELFREFO( :,12) = (/&
+&2.40196E-01_JPRB, 2.08400E-01_JPRB, 1.80812E-01_JPRB, 1.56877E-01_JPRB, 1.36110E-01_JPRB,&
+&1.18092E-01_JPRB, 1.02460E-01_JPRB, 8.88962E-02_JPRB, 7.71284E-02_JPRB, 6.69184E-02_JPRB/)
+SELFREFO( :,13) = (/&
+&2.40426E-01_JPRB, 2.08603E-01_JPRB, 1.80991E-01_JPRB, 1.57035E-01_JPRB, 1.36249E-01_JPRB,&
+&1.18214E-01_JPRB, 1.02567E-01_JPRB, 8.89909E-02_JPRB, 7.72117E-02_JPRB, 6.69917E-02_JPRB/)
+SELFREFO( :,14) = (/&
+&2.40590E-01_JPRB, 2.08742E-01_JPRB, 1.81110E-01_JPRB, 1.57135E-01_JPRB, 1.36334E-01_JPRB,&
+&1.18287E-01_JPRB, 1.02628E-01_JPRB, 8.90428E-02_JPRB, 7.72556E-02_JPRB, 6.70288E-02_JPRB/)
+SELFREFO( :,15) = (/&
+&2.40634E-01_JPRB, 2.08779E-01_JPRB, 1.81141E-01_JPRB, 1.57162E-01_JPRB, 1.36357E-01_JPRB,&
+&1.18306E-01_JPRB, 1.02645E-01_JPRB, 8.90565E-02_JPRB, 7.72673E-02_JPRB, 6.70387E-02_JPRB/)
+SELFREFO( :,16) = (/&
+&2.40652E-01_JPRB, 2.08793E-01_JPRB, 1.81151E-01_JPRB, 1.57169E-01_JPRB, 1.36362E-01_JPRB,&
+&1.18309E-01_JPRB, 1.02647E-01_JPRB, 8.90576E-02_JPRB, 7.72675E-02_JPRB, 6.70383E-02_JPRB/)
+
+FRACREFAO( :, 1) = (/&
+!     From P = 
+    &0.15579100_JPRB,0.14918099_JPRB,0.14113800_JPRB,0.13127001_JPRB,&
+    &0.11796300_JPRB,0.10174300_JPRB,0.08282370_JPRB,0.06238150_JPRB,&
+    &0.04213440_JPRB,0.00458968_JPRB,0.00377949_JPRB,0.00298736_JPRB,&
+    &0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.15292799_JPRB,0.15004000_JPRB,0.14211500_JPRB,0.13176700_JPRB,&
+    &0.11821100_JPRB,0.10186300_JPRB,0.08288040_JPRB,0.06241390_JPRB,&
+    &0.04220720_JPRB,0.00459006_JPRB,0.00377919_JPRB,0.00298743_JPRB,&
+    &0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.14386199_JPRB,0.15125300_JPRB,0.14650001_JPRB,0.13377000_JPRB,&
+    &0.11895900_JPRB,0.10229400_JPRB,0.08312110_JPRB,0.06239520_JPRB,&
+    &0.04225560_JPRB,0.00459428_JPRB,0.00378865_JPRB,0.00298860_JPRB,&
+    &0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.14359100_JPRB,0.14561599_JPRB,0.14479300_JPRB,0.13740200_JPRB,&
+    &0.12150100_JPRB,0.10315400_JPRB,0.08355480_JPRB,0.06247240_JPRB,&
+    &0.04230980_JPRB,0.00459916_JPRB,0.00378373_JPRB,0.00300063_JPRB,&
+    &0.00221111_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.14337599_JPRB,0.14451601_JPRB,0.14238000_JPRB,0.13520500_JPRB,&
+    &0.12354200_JPRB,0.10581200_JPRB,0.08451810_JPRB,0.06262440_JPRB,&
+    &0.04239590_JPRB,0.00460297_JPRB,0.00378701_JPRB,0.00300466_JPRB,&
+    &0.00221899_JPRB,0.00141020_JPRB,0.00053024_JPRB,0.00007459_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.14322001_JPRB,0.14397401_JPRB,0.14117201_JPRB,0.13401900_JPRB,&
+    &0.12255500_JPRB,0.10774100_JPRB,0.08617650_JPRB,0.06296420_JPRB,&
+    &0.04249590_JPRB,0.00463406_JPRB,0.00378241_JPRB,0.00302037_JPRB,&
+    &0.00221583_JPRB,0.00141103_JPRB,0.00053814_JPRB,0.00007991_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.14309500_JPRB,0.14364301_JPRB,0.14043900_JPRB,0.13348100_JPRB,&
+    &0.12211600_JPRB,0.10684700_JPRB,0.08820590_JPRB,0.06374610_JPRB,&
+    &0.04264730_JPRB,0.00464231_JPRB,0.00384022_JPRB,0.00303427_JPRB,&
+    &0.00221825_JPRB,0.00140943_JPRB,0.00055564_JPRB,0.00007991_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.15579100_JPRB,0.14918099_JPRB,0.14113800_JPRB,0.13127001_JPRB,&
+    &0.11796300_JPRB,0.10174300_JPRB,0.08282370_JPRB,0.06238150_JPRB,&
+    &0.04213440_JPRB,0.00458968_JPRB,0.00377949_JPRB,0.00298736_JPRB,&
+    &0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.15937001_JPRB,0.15159500_JPRB,0.14242800_JPRB,0.13078900_JPRB,&
+    &0.11671300_JPRB,0.10035700_JPRB,0.08143450_JPRB,0.06093850_JPRB,&
+    &0.04105320_JPRB,0.00446233_JPRB,0.00369844_JPRB,0.00293784_JPRB,&
+    &0.00216425_JPRB,0.00143403_JPRB,0.00054571_JPRB,0.00007991_JPRB/)
+
+FRACREFBO( :, 1) = (/&
+!     From P = 1.17 mb.
+    &0.15558299_JPRB,0.14930600_JPRB,0.14104301_JPRB,0.13124099_JPRB,&
+    &0.11792900_JPRB,0.10159200_JPRB,0.08314130_JPRB,0.06240450_JPRB,&
+    &0.04217020_JPRB,0.00459313_JPRB,0.00379798_JPRB,0.00299835_JPRB,&
+    &0.00218950_JPRB,0.00140615_JPRB,0.00053010_JPRB,0.00007457_JPRB/)
+FRACREFBO( :, 2) = (/&
+    &0.15592700_JPRB,0.14918999_JPRB,0.14095700_JPRB,0.13115700_JPRB,&
+    &0.11788900_JPRB,0.10158000_JPRB,0.08313780_JPRB,0.06240240_JPRB,&
+    &0.04217000_JPRB,0.00459313_JPRB,0.00379798_JPRB,0.00299835_JPRB,&
+    &0.00218950_JPRB,0.00140615_JPRB,0.00053010_JPRB,0.00007457_JPRB/)
+FRACREFBO( :, 3) = (/&
+    &0.15949000_JPRB,0.15014900_JPRB,0.14162201_JPRB,0.13080800_JPRB,&
+    &0.11713500_JPRB,0.10057100_JPRB,0.08170080_JPRB,0.06128110_JPRB,&
+    &0.04165600_JPRB,0.00459202_JPRB,0.00379835_JPRB,0.00299717_JPRB,&
+    &0.00218958_JPRB,0.00140616_JPRB,0.00053010_JPRB,0.00007457_JPRB/)
+FRACREFBO( :, 4) = (/&
+    &0.15967900_JPRB,0.15038200_JPRB,0.14196999_JPRB,0.13074800_JPRB,&
+    &0.11701700_JPRB,0.10053000_JPRB,0.08160790_JPRB,0.06122690_JPRB,&
+    &0.04128310_JPRB,0.00456598_JPRB,0.00379486_JPRB,0.00299457_JPRB,&
+    &0.00219016_JPRB,0.00140619_JPRB,0.00053011_JPRB,0.00007456_JPRB/)
+FRACREFBO( :, 5) = (/&
+    &0.15989800_JPRB,0.15057300_JPRB,0.14207700_JPRB,0.13068600_JPRB,&
+    &0.11682900_JPRB,0.10053900_JPRB,0.08163610_JPRB,0.06121870_JPRB,&
+    &0.04121690_JPRB,0.00449061_JPRB,0.00371235_JPRB,0.00294207_JPRB,&
+    &0.00217778_JPRB,0.00139877_JPRB,0.00053011_JPRB,0.00007455_JPRB/)
+FRACREFBO( :, 6) = (/&
+    &0.15950100_JPRB,0.15112500_JPRB,0.14199100_JPRB,0.13071300_JPRB,&
+    &0.11680800_JPRB,0.10054600_JPRB,0.08179050_JPRB,0.06120910_JPRB,&
+    &0.04126050_JPRB,0.00444324_JPRB,0.00366843_JPRB,0.00289369_JPRB,&
+    &0.00211550_JPRB,0.00134746_JPRB,0.00050874_JPRB,0.00007863_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_A1.F90	(revision 2160)
@@ -0,0 +1,1606 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15,
+!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&6.4733E-02_JPRB,6.0521E-02_JPRB,5.8252E-02_JPRB,5.6866E-02_JPRB,5.6526E-02_JPRB,5.5742E-02_JPRB,&
+&5.2046E-02_JPRB,6.4733E-02_JPRB,5.6233E-02_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&6.5477E-02_JPRB,6.3047E-02_JPRB,6.3106E-02_JPRB,6.4612E-02_JPRB,6.6790E-02_JPRB,6.7507E-02_JPRB,&
+&6.4723E-02_JPRB,6.5477E-02_JPRB,7.2720E-02_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&6.6216E-02_JPRB,6.6108E-02_JPRB,6.9181E-02_JPRB,7.4268E-02_JPRB,7.9047E-02_JPRB,8.0497E-02_JPRB,&
+&7.8280E-02_JPRB,6.6216E-02_JPRB,9.1648E-02_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&6.6791E-02_JPRB,6.9579E-02_JPRB,7.6737E-02_JPRB,8.5244E-02_JPRB,9.1845E-02_JPRB,9.4527E-02_JPRB,&
+&9.2441E-02_JPRB,6.6791E-02_JPRB,1.1307E-01_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&6.7298E-02_JPRB,7.3839E-02_JPRB,8.5356E-02_JPRB,9.7147E-02_JPRB,1.0554E-01_JPRB,1.0978E-01_JPRB,&
+&1.0752E-01_JPRB,6.7298E-02_JPRB,1.3678E-01_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&7.0877E-02_JPRB,6.5253E-02_JPRB,6.1232E-02_JPRB,5.7942E-02_JPRB,5.5662E-02_JPRB,5.3703E-02_JPRB,&
+&5.0251E-02_JPRB,7.0877E-02_JPRB,4.8550E-02_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&7.1555E-02_JPRB,6.7492E-02_JPRB,6.5473E-02_JPRB,6.4551E-02_JPRB,6.5054E-02_JPRB,6.5264E-02_JPRB,&
+&6.3231E-02_JPRB,7.1555E-02_JPRB,6.3334E-02_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&7.2159E-02_JPRB,7.0218E-02_JPRB,7.0742E-02_JPRB,7.3278E-02_JPRB,7.6459E-02_JPRB,7.8274E-02_JPRB,&
+&7.6836E-02_JPRB,7.2159E-02_JPRB,8.0528E-02_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&7.2672E-02_JPRB,7.3326E-02_JPRB,7.7456E-02_JPRB,8.3314E-02_JPRB,8.9061E-02_JPRB,9.2382E-02_JPRB,&
+&9.1438E-02_JPRB,7.2672E-02_JPRB,1.0017E-01_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&7.3068E-02_JPRB,7.7090E-02_JPRB,8.5132E-02_JPRB,9.4518E-02_JPRB,1.0309E-01_JPRB,1.0796E-01_JPRB,&
+&1.0651E-01_JPRB,7.3067E-02_JPRB,1.2229E-01_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&7.7836E-02_JPRB,7.0551E-02_JPRB,6.4559E-02_JPRB,5.9167E-02_JPRB,5.4414E-02_JPRB,5.0314E-02_JPRB,&
+&4.5794E-02_JPRB,7.7836E-02_JPRB,3.8882E-02_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&7.8435E-02_JPRB,7.2532E-02_JPRB,6.8092E-02_JPRB,6.4613E-02_JPRB,6.2358E-02_JPRB,6.0608E-02_JPRB,&
+&5.8276E-02_JPRB,7.8435E-02_JPRB,5.1370E-02_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&7.8932E-02_JPRB,7.4825E-02_JPRB,7.2527E-02_JPRB,7.1989E-02_JPRB,7.2471E-02_JPRB,7.2873E-02_JPRB,&
+&7.1766E-02_JPRB,7.8932E-02_JPRB,6.6086E-02_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&7.9379E-02_JPRB,7.7501E-02_JPRB,7.8388E-02_JPRB,8.0847E-02_JPRB,8.4097E-02_JPRB,8.6801E-02_JPRB,&
+&8.6568E-02_JPRB,7.9379E-02_JPRB,8.3141E-02_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&7.9699E-02_JPRB,8.0691E-02_JPRB,8.5121E-02_JPRB,9.1008E-02_JPRB,9.7441E-02_JPRB,1.0226E-01_JPRB,&
+&1.0163E-01_JPRB,7.9699E-02_JPRB,1.0254E-01_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&8.4906E-02_JPRB,7.6241E-02_JPRB,6.8684E-02_JPRB,6.1260E-02_JPRB,5.4322E-02_JPRB,4.8027E-02_JPRB,&
+&4.1411E-02_JPRB,8.4906E-02_JPRB,3.0325E-02_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&8.5698E-02_JPRB,7.8243E-02_JPRB,7.1748E-02_JPRB,6.5778E-02_JPRB,6.0935E-02_JPRB,5.6719E-02_JPRB,&
+&5.2610E-02_JPRB,8.5698E-02_JPRB,4.0549E-02_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&8.6275E-02_JPRB,8.0324E-02_JPRB,7.5429E-02_JPRB,7.2009E-02_JPRB,6.9531E-02_JPRB,6.7539E-02_JPRB,&
+&6.5470E-02_JPRB,8.6275E-02_JPRB,5.2700E-02_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&8.6713E-02_JPRB,8.2575E-02_JPRB,8.0462E-02_JPRB,7.9748E-02_JPRB,7.9735E-02_JPRB,8.0326E-02_JPRB,&
+&7.9974E-02_JPRB,8.6713E-02_JPRB,6.7029E-02_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&8.7027E-02_JPRB,8.5276E-02_JPRB,8.6509E-02_JPRB,8.8819E-02_JPRB,9.1761E-02_JPRB,9.4798E-02_JPRB,&
+&9.4801E-02_JPRB,8.7027E-02_JPRB,8.3508E-02_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&9.1507E-02_JPRB,8.1620E-02_JPRB,7.2828E-02_JPRB,6.4142E-02_JPRB,5.5568E-02_JPRB,4.7251E-02_JPRB,&
+&3.8880E-02_JPRB,9.1507E-02_JPRB,2.3229E-02_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&9.2405E-02_JPRB,8.3679E-02_JPRB,7.5863E-02_JPRB,6.8216E-02_JPRB,6.1046E-02_JPRB,5.4513E-02_JPRB,&
+&4.8261E-02_JPRB,9.2405E-02_JPRB,3.1508E-02_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&9.3115E-02_JPRB,8.5700E-02_JPRB,7.9335E-02_JPRB,7.3579E-02_JPRB,6.8420E-02_JPRB,6.3872E-02_JPRB,&
+&5.9567E-02_JPRB,9.3115E-02_JPRB,4.1511E-02_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&9.3636E-02_JPRB,8.7963E-02_JPRB,8.3776E-02_JPRB,8.0336E-02_JPRB,7.7284E-02_JPRB,7.5046E-02_JPRB,&
+&7.2882E-02_JPRB,9.3636E-02_JPRB,5.3333E-02_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&9.4011E-02_JPRB,9.0504E-02_JPRB,8.9128E-02_JPRB,8.8247E-02_JPRB,8.7824E-02_JPRB,8.7979E-02_JPRB,&
+&8.7078E-02_JPRB,9.4011E-02_JPRB,6.7155E-02_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&9.7472E-02_JPRB,8.6538E-02_JPRB,7.6624E-02_JPRB,6.6824E-02_JPRB,5.7059E-02_JPRB,4.7268E-02_JPRB,&
+&3.7138E-02_JPRB,9.7472E-02_JPRB,1.7221E-02_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&9.8451E-02_JPRB,8.8518E-02_JPRB,7.9536E-02_JPRB,7.0737E-02_JPRB,6.1956E-02_JPRB,5.3328E-02_JPRB,&
+&4.4923E-02_JPRB,9.8451E-02_JPRB,2.3780E-02_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&9.9270E-02_JPRB,9.0592E-02_JPRB,8.2992E-02_JPRB,7.5645E-02_JPRB,6.8338E-02_JPRB,6.1246E-02_JPRB,&
+&5.4647E-02_JPRB,9.9270E-02_JPRB,3.1821E-02_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&9.9874E-02_JPRB,9.2825E-02_JPRB,8.7145E-02_JPRB,8.1713E-02_JPRB,7.6024E-02_JPRB,7.0895E-02_JPRB,&
+&6.6256E-02_JPRB,9.9874E-02_JPRB,4.1514E-02_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&1.0031E-01_JPRB,9.5362E-02_JPRB,9.2196E-02_JPRB,8.8672E-02_JPRB,8.5237E-02_JPRB,8.2164E-02_JPRB,&
+&7.9017E-02_JPRB,1.0031E-01_JPRB,5.2892E-02_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&1.0232E-01_JPRB,9.0553E-02_JPRB,7.9624E-02_JPRB,6.8906E-02_JPRB,5.8070E-02_JPRB,4.7256E-02_JPRB,&
+&3.6147E-02_JPRB,1.0232E-01_JPRB,1.2551E-02_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&1.0337E-01_JPRB,9.2407E-02_JPRB,8.2434E-02_JPRB,7.2548E-02_JPRB,6.2643E-02_JPRB,5.2753E-02_JPRB,&
+&4.2581E-02_JPRB,1.0337E-01_JPRB,1.7575E-02_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&1.0428E-01_JPRB,9.4463E-02_JPRB,8.5756E-02_JPRB,7.7103E-02_JPRB,6.8472E-02_JPRB,5.9711E-02_JPRB,&
+&5.0861E-02_JPRB,1.0428E-01_JPRB,2.3865E-02_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&1.0499E-01_JPRB,9.6649E-02_JPRB,8.9715E-02_JPRB,8.2804E-02_JPRB,7.5682E-02_JPRB,6.8094E-02_JPRB,&
+&6.0862E-02_JPRB,1.0499E-01_JPRB,3.1546E-02_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&1.0547E-01_JPRB,9.9180E-02_JPRB,9.4519E-02_JPRB,8.9479E-02_JPRB,8.3717E-02_JPRB,7.7813E-02_JPRB,&
+&7.1993E-02_JPRB,1.0547E-01_JPRB,4.0721E-02_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&1.0518E-01_JPRB,9.2886E-02_JPRB,8.1191E-02_JPRB,6.9957E-02_JPRB,5.8508E-02_JPRB,4.6965E-02_JPRB,&
+&3.4947E-02_JPRB,1.0518E-01_JPRB,9.1670E-03_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&1.0636E-01_JPRB,9.4674E-02_JPRB,8.4036E-02_JPRB,7.3413E-02_JPRB,6.2776E-02_JPRB,5.2007E-02_JPRB,&
+&4.0951E-02_JPRB,1.0636E-01_JPRB,1.2998E-02_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&1.0733E-01_JPRB,9.6738E-02_JPRB,8.7252E-02_JPRB,7.7783E-02_JPRB,6.8203E-02_JPRB,5.8372E-02_JPRB,&
+&4.8034E-02_JPRB,1.0733E-01_JPRB,1.7878E-02_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&1.0812E-01_JPRB,9.8911E-02_JPRB,9.1152E-02_JPRB,8.3173E-02_JPRB,7.4963E-02_JPRB,6.6116E-02_JPRB,&
+&5.6655E-02_JPRB,1.0812E-01_JPRB,2.3868E-02_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&1.0863E-01_JPRB,1.0151E-01_JPRB,9.5717E-02_JPRB,8.9578E-02_JPRB,8.2572E-02_JPRB,7.4669E-02_JPRB,&
+&6.6397E-02_JPRB,1.0863E-01_JPRB,3.1082E-02_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&1.0589E-01_JPRB,9.3378E-02_JPRB,8.1320E-02_JPRB,6.9699E-02_JPRB,5.7939E-02_JPRB,4.5963E-02_JPRB,&
+&3.3510E-02_JPRB,1.0589E-01_JPRB,1.5005E-02_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&1.0710E-01_JPRB,9.5046E-02_JPRB,8.3992E-02_JPRB,7.2968E-02_JPRB,6.1840E-02_JPRB,5.0670E-02_JPRB,&
+&3.9172E-02_JPRB,1.0710E-01_JPRB,1.6687E-02_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&1.0811E-01_JPRB,9.7025E-02_JPRB,8.7062E-02_JPRB,7.7135E-02_JPRB,6.7008E-02_JPRB,5.6693E-02_JPRB,&
+&4.5539E-02_JPRB,1.0811E-01_JPRB,1.9062E-02_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&1.0893E-01_JPRB,9.9210E-02_JPRB,9.0893E-02_JPRB,8.2268E-02_JPRB,7.3432E-02_JPRB,6.3872E-02_JPRB,&
+&5.3354E-02_JPRB,1.0893E-01_JPRB,2.2517E-02_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&1.0951E-01_JPRB,1.0180E-01_JPRB,9.5328E-02_JPRB,8.8533E-02_JPRB,8.0777E-02_JPRB,7.1933E-02_JPRB,&
+&6.1860E-02_JPRB,1.0951E-01_JPRB,2.7194E-02_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&1.0463E-01_JPRB,9.2191E-02_JPRB,8.0132E-02_JPRB,6.8413E-02_JPRB,5.6641E-02_JPRB,4.4619E-02_JPRB,&
+&3.2080E-02_JPRB,1.0463E-01_JPRB,8.3991E-02_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&1.0582E-01_JPRB,9.3770E-02_JPRB,8.2627E-02_JPRB,7.1539E-02_JPRB,6.0265E-02_JPRB,4.8989E-02_JPRB,&
+&3.7366E-02_JPRB,1.0582E-01_JPRB,8.5008E-02_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&1.0683E-01_JPRB,9.5651E-02_JPRB,8.5587E-02_JPRB,7.5429E-02_JPRB,6.5154E-02_JPRB,5.4715E-02_JPRB,&
+&4.3408E-02_JPRB,1.0683E-01_JPRB,8.6636E-02_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&1.0759E-01_JPRB,9.7764E-02_JPRB,8.9220E-02_JPRB,8.0336E-02_JPRB,7.1349E-02_JPRB,6.1576E-02_JPRB,&
+&5.0720E-02_JPRB,1.0759E-01_JPRB,8.8133E-02_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&1.0814E-01_JPRB,1.0027E-01_JPRB,9.3476E-02_JPRB,8.6461E-02_JPRB,7.8470E-02_JPRB,6.9232E-02_JPRB,&
+&5.8604E-02_JPRB,1.0814E-01_JPRB,8.9595E-02_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&1.0192E-01_JPRB,8.9934E-02_JPRB,7.8442E-02_JPRB,6.7206E-02_JPRB,5.5807E-02_JPRB,4.4274E-02_JPRB,&
+&3.2485E-02_JPRB,1.0192E-01_JPRB,2.1346E-01_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&1.0294E-01_JPRB,9.1474E-02_JPRB,8.1001E-02_JPRB,7.0324E-02_JPRB,5.9618E-02_JPRB,4.8890E-02_JPRB,&
+&3.7724E-02_JPRB,1.0294E-01_JPRB,2.1319E-01_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&1.0376E-01_JPRB,9.3370E-02_JPRB,8.3962E-02_JPRB,7.4435E-02_JPRB,6.4795E-02_JPRB,5.4795E-02_JPRB,&
+&4.3827E-02_JPRB,1.0376E-01_JPRB,2.1289E-01_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&1.0437E-01_JPRB,9.5489E-02_JPRB,8.7682E-02_JPRB,7.9614E-02_JPRB,7.1102E-02_JPRB,6.1619E-02_JPRB,&
+&5.1046E-02_JPRB,1.0437E-01_JPRB,2.1287E-01_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&1.0475E-01_JPRB,9.8083E-02_JPRB,9.2124E-02_JPRB,8.5743E-02_JPRB,7.7946E-02_JPRB,6.9048E-02_JPRB,&
+&5.8627E-02_JPRB,1.0475E-01_JPRB,2.1310E-01_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&9.7261E-02_JPRB,8.5991E-02_JPRB,7.5324E-02_JPRB,6.4737E-02_JPRB,5.3989E-02_JPRB,4.3184E-02_JPRB,&
+&3.2169E-02_JPRB,9.7261E-02_JPRB,3.5384E-01_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&9.8101E-02_JPRB,8.7528E-02_JPRB,7.7838E-02_JPRB,6.7921E-02_JPRB,5.8031E-02_JPRB,4.8011E-02_JPRB,&
+&3.7356E-02_JPRB,9.8101E-02_JPRB,3.5110E-01_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&9.8721E-02_JPRB,8.9358E-02_JPRB,8.0844E-02_JPRB,7.2156E-02_JPRB,6.3303E-02_JPRB,5.3812E-02_JPRB,&
+&4.3478E-02_JPRB,9.8721E-02_JPRB,3.4905E-01_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&9.9073E-02_JPRB,9.1448E-02_JPRB,8.4556E-02_JPRB,7.7373E-02_JPRB,6.9369E-02_JPRB,6.0482E-02_JPRB,&
+&5.0434E-02_JPRB,9.9073E-02_JPRB,3.4710E-01_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&9.9229E-02_JPRB,9.3917E-02_JPRB,8.9028E-02_JPRB,8.3070E-02_JPRB,7.5795E-02_JPRB,6.7464E-02_JPRB,&
+&5.7745E-02_JPRB,9.9229E-02_JPRB,3.4526E-01_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&9.0938E-02_JPRB,8.0633E-02_JPRB,7.0954E-02_JPRB,6.1198E-02_JPRB,5.1349E-02_JPRB,4.1513E-02_JPRB,&
+&3.1321E-02_JPRB,9.0938E-02_JPRB,4.7630E-01_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&9.1524E-02_JPRB,8.2076E-02_JPRB,7.3333E-02_JPRB,6.4427E-02_JPRB,5.5526E-02_JPRB,4.6304E-02_JPRB,&
+&3.6408E-02_JPRB,9.1524E-02_JPRB,4.7149E-01_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&9.1870E-02_JPRB,8.3785E-02_JPRB,7.6354E-02_JPRB,6.8726E-02_JPRB,6.0650E-02_JPRB,5.1878E-02_JPRB,&
+&4.2350E-02_JPRB,9.1870E-02_JPRB,4.6781E-01_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&9.2057E-02_JPRB,8.5864E-02_JPRB,8.0053E-02_JPRB,7.3650E-02_JPRB,6.6361E-02_JPRB,5.8175E-02_JPRB,&
+&4.8890E-02_JPRB,9.2057E-02_JPRB,4.6471E-01_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&9.2051E-02_JPRB,8.8153E-02_JPRB,8.4238E-02_JPRB,7.8829E-02_JPRB,7.2224E-02_JPRB,6.4662E-02_JPRB,&
+&5.5790E-02_JPRB,9.2051E-02_JPRB,4.6177E-01_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&1.8970E-01_JPRB,1.6722E-01_JPRB,1.5940E-01_JPRB,1.4654E-01_JPRB,1.3412E-01_JPRB,1.1990E-01_JPRB,&
+&1.0153E-01_JPRB,1.8970E-01_JPRB,1.2683E-01_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&1.9310E-01_JPRB,1.7584E-01_JPRB,1.7032E-01_JPRB,1.6287E-01_JPRB,1.5198E-01_JPRB,1.3637E-01_JPRB,&
+&1.1338E-01_JPRB,1.9310E-01_JPRB,1.6492E-01_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&1.9644E-01_JPRB,1.8616E-01_JPRB,1.8463E-01_JPRB,1.7853E-01_JPRB,1.6686E-01_JPRB,1.5307E-01_JPRB,&
+&1.3006E-01_JPRB,1.9644E-01_JPRB,2.0951E-01_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&1.9909E-01_JPRB,1.9510E-01_JPRB,1.9794E-01_JPRB,1.9455E-01_JPRB,1.8814E-01_JPRB,1.6970E-01_JPRB,&
+&1.4049E-01_JPRB,1.9909E-01_JPRB,2.6023E-01_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&2.0141E-01_JPRB,2.0423E-01_JPRB,2.1198E-01_JPRB,2.1359E-01_JPRB,2.0320E-01_JPRB,1.7839E-01_JPRB,&
+&1.6166E-01_JPRB,2.0141E-01_JPRB,3.1814E-01_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&1.8513E-01_JPRB,1.6417E-01_JPRB,1.5570E-01_JPRB,1.4299E-01_JPRB,1.3028E-01_JPRB,1.1558E-01_JPRB,&
+&9.7575E-02_JPRB,1.8513E-01_JPRB,1.2033E-01_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&1.8950E-01_JPRB,1.7381E-01_JPRB,1.6710E-01_JPRB,1.5962E-01_JPRB,1.4697E-01_JPRB,1.3061E-01_JPRB,&
+&1.0961E-01_JPRB,1.8950E-01_JPRB,1.5920E-01_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&1.9362E-01_JPRB,1.8395E-01_JPRB,1.8195E-01_JPRB,1.7419E-01_JPRB,1.6167E-01_JPRB,1.4828E-01_JPRB,&
+&1.2568E-01_JPRB,1.9362E-01_JPRB,2.0282E-01_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&1.9721E-01_JPRB,1.9348E-01_JPRB,1.9530E-01_JPRB,1.9112E-01_JPRB,1.8284E-01_JPRB,1.6500E-01_JPRB,&
+&1.3708E-01_JPRB,1.9721E-01_JPRB,2.5204E-01_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&2.0023E-01_JPRB,2.0320E-01_JPRB,2.1020E-01_JPRB,2.0819E-01_JPRB,1.9741E-01_JPRB,1.7466E-01_JPRB,&
+&1.5343E-01_JPRB,2.0023E-01_JPRB,3.0808E-01_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&1.8001E-01_JPRB,1.5918E-01_JPRB,1.4957E-01_JPRB,1.3634E-01_JPRB,1.2400E-01_JPRB,1.1052E-01_JPRB,&
+&9.3510E-02_JPRB,1.8001E-01_JPRB,1.0219E-01_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&1.8528E-01_JPRB,1.6901E-01_JPRB,1.6096E-01_JPRB,1.5327E-01_JPRB,1.4061E-01_JPRB,1.2481E-01_JPRB,&
+&1.0682E-01_JPRB,1.8528E-01_JPRB,1.3773E-01_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&1.9023E-01_JPRB,1.7929E-01_JPRB,1.7582E-01_JPRB,1.6700E-01_JPRB,1.5430E-01_JPRB,1.4161E-01_JPRB,&
+&1.2252E-01_JPRB,1.9023E-01_JPRB,1.7877E-01_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&1.9469E-01_JPRB,1.8893E-01_JPRB,1.8906E-01_JPRB,1.8314E-01_JPRB,1.7449E-01_JPRB,1.5948E-01_JPRB,&
+&1.3408E-01_JPRB,1.9469E-01_JPRB,2.2723E-01_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&1.9821E-01_JPRB,1.9946E-01_JPRB,2.0415E-01_JPRB,1.9922E-01_JPRB,1.8972E-01_JPRB,1.7229E-01_JPRB,&
+&1.5170E-01_JPRB,1.9821E-01_JPRB,2.8243E-01_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&1.7916E-01_JPRB,1.5693E-01_JPRB,1.4317E-01_JPRB,1.2970E-01_JPRB,1.1820E-01_JPRB,1.0542E-01_JPRB,&
+&8.8810E-02_JPRB,1.7916E-01_JPRB,8.1629E-02_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&1.8393E-01_JPRB,1.6496E-01_JPRB,1.5408E-01_JPRB,1.4656E-01_JPRB,1.3470E-01_JPRB,1.1968E-01_JPRB,&
+&1.0109E-01_JPRB,1.8393E-01_JPRB,1.1300E-01_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&1.8829E-01_JPRB,1.7395E-01_JPRB,1.6912E-01_JPRB,1.6090E-01_JPRB,1.4836E-01_JPRB,1.3533E-01_JPRB,&
+&1.1688E-01_JPRB,1.8829E-01_JPRB,1.5011E-01_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&1.9238E-01_JPRB,1.8364E-01_JPRB,1.8242E-01_JPRB,1.7617E-01_JPRB,1.6761E-01_JPRB,1.5430E-01_JPRB,&
+&1.3056E-01_JPRB,1.9230E-01_JPRB,1.9532E-01_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&1.9574E-01_JPRB,1.9463E-01_JPRB,1.9705E-01_JPRB,1.9264E-01_JPRB,1.8511E-01_JPRB,1.7157E-01_JPRB,&
+&1.5145E-01_JPRB,1.9574E-01_JPRB,2.4701E-01_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&1.8797E-01_JPRB,1.6453E-01_JPRB,1.4533E-01_JPRB,1.2686E-01_JPRB,1.1219E-01_JPRB,9.8719E-02_JPRB,&
+&8.1932E-02_JPRB,1.8797E-01_JPRB,6.5166E-02_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&1.9160E-01_JPRB,1.6925E-01_JPRB,1.5218E-01_JPRB,1.4014E-01_JPRB,1.2917E-01_JPRB,1.1302E-01_JPRB,&
+&9.4480E-02_JPRB,1.9160E-01_JPRB,9.2077E-02_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&1.9446E-01_JPRB,1.7578E-01_JPRB,1.6402E-01_JPRB,1.5506E-01_JPRB,1.4235E-01_JPRB,1.2780E-01_JPRB,&
+&1.1066E-01_JPRB,1.9446E-01_JPRB,1.2479E-01_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&1.9736E-01_JPRB,1.8183E-01_JPRB,1.7664E-01_JPRB,1.6999E-01_JPRB,1.6179E-01_JPRB,1.4826E-01_JPRB,&
+&1.2816E-01_JPRB,1.9736E-01_JPRB,1.6346E-01_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&2.0011E-01_JPRB,1.9074E-01_JPRB,1.9082E-01_JPRB,1.8829E-01_JPRB,1.8080E-01_JPRB,1.6858E-01_JPRB,&
+&1.5009E-01_JPRB,2.0011E-01_JPRB,2.0822E-01_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&2.0223E-01_JPRB,1.7699E-01_JPRB,1.5322E-01_JPRB,1.3128E-01_JPRB,1.1092E-01_JPRB,9.1561E-02_JPRB,&
+&7.3661E-02_JPRB,2.0223E-01_JPRB,5.1377E-02_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&2.0512E-01_JPRB,1.7967E-01_JPRB,1.5788E-01_JPRB,1.3938E-01_JPRB,1.2268E-01_JPRB,1.0543E-01_JPRB,&
+&8.7385E-02_JPRB,2.0512E-01_JPRB,7.3853E-02_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&2.0790E-01_JPRB,1.8450E-01_JPRB,1.6529E-01_JPRB,1.5112E-01_JPRB,1.3529E-01_JPRB,1.2022E-01_JPRB,&
+&1.0398E-01_JPRB,2.0790E-01_JPRB,1.0087E-01_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&2.1004E-01_JPRB,1.8823E-01_JPRB,1.7509E-01_JPRB,1.6284E-01_JPRB,1.5386E-01_JPRB,1.4155E-01_JPRB,&
+&1.2427E-01_JPRB,2.1004E-01_JPRB,1.3360E-01_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&2.1183E-01_JPRB,1.9428E-01_JPRB,1.8513E-01_JPRB,1.8177E-01_JPRB,1.7498E-01_JPRB,1.6423E-01_JPRB,&
+&1.4704E-01_JPRB,2.1183E-01_JPRB,1.7178E-01_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&2.1966E-01_JPRB,1.9223E-01_JPRB,1.6487E-01_JPRB,1.4075E-01_JPRB,1.1743E-01_JPRB,9.2352E-02_JPRB,&
+&6.7165E-02_JPRB,2.1966E-01_JPRB,3.9844E-02_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&2.2289E-01_JPRB,1.9505E-01_JPRB,1.7012E-01_JPRB,1.4711E-01_JPRB,1.2482E-01_JPRB,1.0166E-01_JPRB,&
+&8.1116E-02_JPRB,2.2289E-01_JPRB,5.8803E-02_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&2.2562E-01_JPRB,1.9918E-01_JPRB,1.7558E-01_JPRB,1.5579E-01_JPRB,1.3361E-01_JPRB,1.1381E-01_JPRB,&
+&9.8296E-02_JPRB,2.2562E-01_JPRB,8.2105E-02_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&2.2798E-01_JPRB,2.0283E-01_JPRB,1.8393E-01_JPRB,1.6360E-01_JPRB,1.4672E-01_JPRB,1.3482E-01_JPRB,&
+&1.1942E-01_JPRB,2.2798E-01_JPRB,1.1013E-01_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&2.2965E-01_JPRB,2.0713E-01_JPRB,1.9045E-01_JPRB,1.7711E-01_JPRB,1.6890E-01_JPRB,1.5875E-01_JPRB,&
+&1.4294E-01_JPRB,2.2965E-01_JPRB,1.4301E-01_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&2.3927E-01_JPRB,2.0940E-01_JPRB,1.7953E-01_JPRB,1.5074E-01_JPRB,1.2505E-01_JPRB,9.7338E-02_JPRB,&
+&6.8761E-02_JPRB,2.3927E-01_JPRB,3.1572E-02_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&2.4243E-01_JPRB,2.1216E-01_JPRB,1.8359E-01_JPRB,1.5756E-01_JPRB,1.3069E-01_JPRB,1.0456E-01_JPRB,&
+&7.7923E-02_JPRB,2.4243E-01_JPRB,4.5978E-02_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&2.4547E-01_JPRB,2.1534E-01_JPRB,1.8853E-01_JPRB,1.6503E-01_JPRB,1.3896E-01_JPRB,1.1377E-01_JPRB,&
+&9.3425E-02_JPRB,2.4547E-01_JPRB,6.4381E-02_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&2.4802E-01_JPRB,2.1966E-01_JPRB,1.9648E-01_JPRB,1.7197E-01_JPRB,1.4872E-01_JPRB,1.2967E-01_JPRB,&
+&1.1417E-01_JPRB,2.4802E-01_JPRB,8.7970E-02_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&2.4998E-01_JPRB,2.2309E-01_JPRB,2.0261E-01_JPRB,1.8232E-01_JPRB,1.6517E-01_JPRB,1.5264E-01_JPRB,&
+&1.3834E-01_JPRB,2.4998E-01_JPRB,1.1639E-01_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&2.6148E-01_JPRB,2.2882E-01_JPRB,1.9618E-01_JPRB,1.6370E-01_JPRB,1.3448E-01_JPRB,1.0395E-01_JPRB,&
+&7.1629E-02_JPRB,2.6148E-01_JPRB,2.8503E-02_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&2.6519E-01_JPRB,2.3210E-01_JPRB,1.9937E-01_JPRB,1.7015E-01_JPRB,1.3964E-01_JPRB,1.0892E-01_JPRB,&
+&7.8889E-02_JPRB,2.6519E-01_JPRB,3.8008E-02_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&2.6824E-01_JPRB,2.3478E-01_JPRB,2.0449E-01_JPRB,1.7562E-01_JPRB,1.4652E-01_JPRB,1.1674E-01_JPRB,&
+&9.2270E-02_JPRB,2.6824E-01_JPRB,5.2422E-02_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&2.7078E-01_JPRB,2.3877E-01_JPRB,2.1054E-01_JPRB,1.8264E-01_JPRB,1.5412E-01_JPRB,1.3041E-01_JPRB,&
+&1.0749E-01_JPRB,2.7078E-01_JPRB,7.0338E-02_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&2.7264E-01_JPRB,2.4161E-01_JPRB,2.1662E-01_JPRB,1.8978E-01_JPRB,1.6860E-01_JPRB,1.4804E-01_JPRB,&
+&1.3080E-01_JPRB,2.7264E-01_JPRB,9.2554E-02_JPRB/)
+KAO( :, 1,10,10) = (/&
+&2.8201E-01_JPRB,2.4678E-01_JPRB,2.1156E-01_JPRB,1.7638E-01_JPRB,1.4352E-01_JPRB,1.1084E-01_JPRB,&
+&7.6972E-02_JPRB,2.8201E-01_JPRB,1.2471E-01_JPRB/)
+KAO( :, 2,10,10) = (/&
+&2.8576E-01_JPRB,2.5006E-01_JPRB,2.1438E-01_JPRB,1.8231E-01_JPRB,1.4961E-01_JPRB,1.1549E-01_JPRB,&
+&8.2006E-02_JPRB,2.8576E-01_JPRB,1.2496E-01_JPRB/)
+KAO( :, 3,10,10) = (/&
+&2.8893E-01_JPRB,2.5286E-01_JPRB,2.1949E-01_JPRB,1.8787E-01_JPRB,1.5551E-01_JPRB,1.2228E-01_JPRB,&
+&9.3406E-02_JPRB,2.8893E-01_JPRB,1.2857E-01_JPRB/)
+KAO( :, 4,10,10) = (/&
+&2.9143E-01_JPRB,2.5653E-01_JPRB,2.2518E-01_JPRB,1.9466E-01_JPRB,1.6197E-01_JPRB,1.3409E-01_JPRB,&
+&1.0614E-01_JPRB,2.9143E-01_JPRB,1.3664E-01_JPRB/)
+KAO( :, 5,10,10) = (/&
+&2.9269E-01_JPRB,2.5878E-01_JPRB,2.3097E-01_JPRB,1.9967E-01_JPRB,1.7426E-01_JPRB,1.4933E-01_JPRB,&
+&1.2477E-01_JPRB,2.9269E-01_JPRB,1.4648E-01_JPRB/)
+KAO( :, 1,11,10) = (/&
+&3.0003E-01_JPRB,2.6255E-01_JPRB,2.2506E-01_JPRB,1.8819E-01_JPRB,1.5371E-01_JPRB,1.1851E-01_JPRB,&
+&8.1809E-02_JPRB,3.0003E-01_JPRB,3.1454E-01_JPRB/)
+KAO( :, 2,11,10) = (/&
+&3.0324E-01_JPRB,2.6535E-01_JPRB,2.2775E-01_JPRB,1.9448E-01_JPRB,1.5903E-01_JPRB,1.2292E-01_JPRB,&
+&8.8865E-02_JPRB,3.0324E-01_JPRB,3.0861E-01_JPRB/)
+KAO( :, 3,11,10) = (/&
+&3.0493E-01_JPRB,2.6686E-01_JPRB,2.3266E-01_JPRB,1.9918E-01_JPRB,1.6490E-01_JPRB,1.3153E-01_JPRB,&
+&1.0078E-01_JPRB,3.0493E-01_JPRB,3.0699E-01_JPRB/)
+KAO( :, 4,11,10) = (/&
+&3.0577E-01_JPRB,2.6940E-01_JPRB,2.3789E-01_JPRB,2.0495E-01_JPRB,1.7338E-01_JPRB,1.4467E-01_JPRB,&
+&1.1314E-01_JPRB,3.0577E-01_JPRB,3.1082E-01_JPRB/)
+KAO( :, 5,11,10) = (/&
+&3.0551E-01_JPRB,2.7044E-01_JPRB,2.4227E-01_JPRB,2.1229E-01_JPRB,1.8801E-01_JPRB,1.5979E-01_JPRB,&
+&1.3090E-01_JPRB,3.0551E-01_JPRB,3.1527E-01_JPRB/)
+KAO( :, 1,12,10) = (/&
+&3.1134E-01_JPRB,2.7243E-01_JPRB,2.3354E-01_JPRB,1.9639E-01_JPRB,1.6090E-01_JPRB,1.2387E-01_JPRB,&
+&8.6052E-02_JPRB,3.1134E-01_JPRB,5.2978E-01_JPRB/)
+KAO( :, 2,12,10) = (/&
+&3.1359E-01_JPRB,2.7441E-01_JPRB,2.3677E-01_JPRB,2.0238E-01_JPRB,1.6552E-01_JPRB,1.2901E-01_JPRB,&
+&9.5207E-02_JPRB,3.1359E-01_JPRB,5.2052E-01_JPRB/)
+KAO( :, 3,12,10) = (/&
+&3.1415E-01_JPRB,2.7537E-01_JPRB,2.4122E-01_JPRB,2.0715E-01_JPRB,1.7193E-01_JPRB,1.3997E-01_JPRB,&
+&1.0720E-01_JPRB,3.1415E-01_JPRB,5.1560E-01_JPRB/)
+KAO( :, 4,12,10) = (/&
+&3.1372E-01_JPRB,2.7678E-01_JPRB,2.4609E-01_JPRB,2.1256E-01_JPRB,1.8335E-01_JPRB,1.5322E-01_JPRB,&
+&1.2081E-01_JPRB,3.1372E-01_JPRB,5.1557E-01_JPRB/)
+KAO( :, 5,12,10) = (/&
+&3.1239E-01_JPRB,2.7822E-01_JPRB,2.4956E-01_JPRB,2.2367E-01_JPRB,1.9838E-01_JPRB,1.6937E-01_JPRB,&
+&1.3606E-01_JPRB,3.1239E-01_JPRB,5.1667E-01_JPRB/)
+KAO( :, 1,13,10) = (/&
+&3.1638E-01_JPRB,2.7683E-01_JPRB,2.3750E-01_JPRB,2.0114E-01_JPRB,1.6456E-01_JPRB,1.2632E-01_JPRB,&
+&8.9253E-02_JPRB,3.1638E-01_JPRB,7.3497E-01_JPRB/)
+KAO( :, 2,13,10) = (/&
+&3.1671E-01_JPRB,2.7713E-01_JPRB,2.4097E-01_JPRB,2.0542E-01_JPRB,1.6866E-01_JPRB,1.3347E-01_JPRB,&
+&9.9658E-02_JPRB,3.1671E-01_JPRB,7.1891E-01_JPRB/)
+KAO( :, 3,13,10) = (/&
+&3.1659E-01_JPRB,2.7824E-01_JPRB,2.4448E-01_JPRB,2.1048E-01_JPRB,1.7715E-01_JPRB,1.4549E-01_JPRB,&
+&1.1132E-01_JPRB,3.1659E-01_JPRB,7.1020E-01_JPRB/)
+KAO( :, 4,13,10) = (/&
+&3.1484E-01_JPRB,2.7845E-01_JPRB,2.4849E-01_JPRB,2.1796E-01_JPRB,1.8948E-01_JPRB,1.5955E-01_JPRB,&
+&1.2635E-01_JPRB,3.1484E-01_JPRB,7.0756E-01_JPRB/)
+KAO( :, 5,13,10) = (/&
+&3.1186E-01_JPRB,2.8054E-01_JPRB,2.5362E-01_JPRB,2.3086E-01_JPRB,2.0496E-01_JPRB,1.7512E-01_JPRB,&
+&1.4143E-01_JPRB,3.1186E-01_JPRB,7.0584E-01_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&3.1327E-01_JPRB,2.7438E-01_JPRB,2.3864E-01_JPRB,2.1648E-01_JPRB,1.8690E-01_JPRB,1.5673E-01_JPRB,&
+&1.2734E-01_JPRB,3.1327E-01_JPRB,1.4986E-01_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&3.1392E-01_JPRB,2.7491E-01_JPRB,2.5200E-01_JPRB,2.2734E-01_JPRB,2.0303E-01_JPRB,1.7541E-01_JPRB,&
+&1.4089E-01_JPRB,3.1392E-01_JPRB,1.9707E-01_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&3.1383E-01_JPRB,2.7650E-01_JPRB,2.6109E-01_JPRB,2.4195E-01_JPRB,2.1927E-01_JPRB,1.8650E-01_JPRB,&
+&1.4955E-01_JPRB,3.1383E-01_JPRB,2.5159E-01_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&3.1272E-01_JPRB,2.8403E-01_JPRB,2.7223E-01_JPRB,2.5585E-01_JPRB,2.2854E-01_JPRB,2.0092E-01_JPRB,&
+&1.8691E-01_JPRB,3.1272E-01_JPRB,3.1304E-01_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&3.1090E-01_JPRB,2.8955E-01_JPRB,2.8191E-01_JPRB,2.6664E-01_JPRB,2.4121E-01_JPRB,2.1301E-01_JPRB,&
+&2.4137E-01_JPRB,3.1090E-01_JPRB,3.8118E-01_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&3.1324E-01_JPRB,2.7422E-01_JPRB,2.3920E-01_JPRB,2.1500E-01_JPRB,1.8495E-01_JPRB,1.5528E-01_JPRB,&
+&1.2577E-01_JPRB,3.1324E-01_JPRB,1.5045E-01_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&3.1470E-01_JPRB,2.7557E-01_JPRB,2.5223E-01_JPRB,2.2657E-01_JPRB,2.0210E-01_JPRB,1.7421E-01_JPRB,&
+&1.3837E-01_JPRB,3.1470E-01_JPRB,1.9866E-01_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&3.1536E-01_JPRB,2.7926E-01_JPRB,2.6141E-01_JPRB,2.4214E-01_JPRB,2.1888E-01_JPRB,1.8478E-01_JPRB,&
+&1.5074E-01_JPRB,3.1536E-01_JPRB,2.5677E-01_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&3.1504E-01_JPRB,2.8779E-01_JPRB,2.7376E-01_JPRB,2.5633E-01_JPRB,2.2942E-01_JPRB,1.9993E-01_JPRB,&
+&1.7112E-01_JPRB,3.1504E-01_JPRB,3.2302E-01_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&3.1381E-01_JPRB,2.9324E-01_JPRB,2.8519E-01_JPRB,2.6951E-01_JPRB,2.4055E-01_JPRB,2.0793E-01_JPRB,&
+&2.1700E-01_JPRB,3.1381E-01_JPRB,3.9625E-01_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&3.1204E-01_JPRB,2.7315E-01_JPRB,2.3704E-01_JPRB,2.1094E-01_JPRB,1.7966E-01_JPRB,1.4896E-01_JPRB,&
+&1.2013E-01_JPRB,3.1204E-01_JPRB,1.3758E-01_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&3.1466E-01_JPRB,2.7547E-01_JPRB,2.5029E-01_JPRB,2.2183E-01_JPRB,1.9651E-01_JPRB,1.6912E-01_JPRB,&
+&1.3258E-01_JPRB,3.1466E-01_JPRB,1.8586E-01_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&3.1617E-01_JPRB,2.7992E-01_JPRB,2.5948E-01_JPRB,2.3884E-01_JPRB,2.1445E-01_JPRB,1.8030E-01_JPRB,&
+&1.4450E-01_JPRB,3.1617E-01_JPRB,2.4266E-01_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&3.1681E-01_JPRB,2.8890E-01_JPRB,2.7221E-01_JPRB,2.5334E-01_JPRB,2.2580E-01_JPRB,1.9471E-01_JPRB,&
+&1.5799E-01_JPRB,3.1681E-01_JPRB,3.0762E-01_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&3.1660E-01_JPRB,2.9490E-01_JPRB,2.8472E-01_JPRB,2.6817E-01_JPRB,2.3814E-01_JPRB,2.0506E-01_JPRB,&
+&1.8418E-01_JPRB,3.1660E-01_JPRB,3.8162E-01_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&3.0866E-01_JPRB,2.7016E-01_JPRB,2.3341E-01_JPRB,2.0592E-01_JPRB,1.7365E-01_JPRB,1.4152E-01_JPRB,&
+&1.1350E-01_JPRB,3.0866E-01_JPRB,1.1729E-01_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&3.1261E-01_JPRB,2.7364E-01_JPRB,2.4679E-01_JPRB,2.1687E-01_JPRB,1.8912E-01_JPRB,1.6227E-01_JPRB,&
+&1.2877E-01_JPRB,3.1261E-01_JPRB,1.6263E-01_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&3.1517E-01_JPRB,2.7866E-01_JPRB,2.5633E-01_JPRB,2.3322E-01_JPRB,2.0818E-01_JPRB,1.7524E-01_JPRB,&
+&1.4011E-01_JPRB,3.1517E-01_JPRB,2.1741E-01_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&3.1718E-01_JPRB,2.8802E-01_JPRB,2.6947E-01_JPRB,2.4866E-01_JPRB,2.2061E-01_JPRB,1.8942E-01_JPRB,&
+&1.5695E-01_JPRB,3.1727E-01_JPRB,2.8012E-01_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&3.1858E-01_JPRB,2.9479E-01_JPRB,2.8190E-01_JPRB,2.6309E-01_JPRB,2.3448E-01_JPRB,2.0068E-01_JPRB,&
+&1.6930E-01_JPRB,3.1858E-01_JPRB,3.4979E-01_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&3.0359E-01_JPRB,2.6572E-01_JPRB,2.2874E-01_JPRB,1.9974E-01_JPRB,1.6826E-01_JPRB,1.3653E-01_JPRB,&
+&1.0959E-01_JPRB,3.0359E-01_JPRB,9.5564E-02_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&3.0961E-01_JPRB,2.7098E-01_JPRB,2.4191E-01_JPRB,2.1172E-01_JPRB,1.8197E-01_JPRB,1.5688E-01_JPRB,&
+&1.2682E-01_JPRB,3.0961E-01_JPRB,1.3546E-01_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&3.1431E-01_JPRB,2.7737E-01_JPRB,2.5231E-01_JPRB,2.2743E-01_JPRB,2.0217E-01_JPRB,1.7268E-01_JPRB,&
+&1.3768E-01_JPRB,3.1431E-01_JPRB,1.8484E-01_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&3.1787E-01_JPRB,2.8734E-01_JPRB,2.6579E-01_JPRB,2.4308E-01_JPRB,2.1533E-01_JPRB,1.8679E-01_JPRB,&
+&1.5347E-01_JPRB,3.1787E-01_JPRB,2.4315E-01_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&3.2027E-01_JPRB,2.9468E-01_JPRB,2.7870E-01_JPRB,2.5695E-01_JPRB,2.3189E-01_JPRB,2.0016E-01_JPRB,&
+&1.6850E-01_JPRB,3.2027E-01_JPRB,3.1159E-01_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&2.9865E-01_JPRB,2.6139E-01_JPRB,2.2417E-01_JPRB,1.9237E-01_JPRB,1.6261E-01_JPRB,1.3306E-01_JPRB,&
+&1.0402E-01_JPRB,2.9865E-01_JPRB,7.4728E-02_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&3.0619E-01_JPRB,2.6800E-01_JPRB,2.3652E-01_JPRB,2.0579E-01_JPRB,1.7684E-01_JPRB,1.5168E-01_JPRB,&
+&1.2223E-01_JPRB,3.0619E-01_JPRB,1.0829E-01_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&3.1241E-01_JPRB,2.7514E-01_JPRB,2.4815E-01_JPRB,2.2081E-01_JPRB,1.9720E-01_JPRB,1.6917E-01_JPRB,&
+&1.3396E-01_JPRB,3.1241E-01_JPRB,1.5151E-01_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&3.1661E-01_JPRB,2.8538E-01_JPRB,2.6104E-01_JPRB,2.3841E-01_JPRB,2.1165E-01_JPRB,1.8243E-01_JPRB,&
+&1.4887E-01_JPRB,3.1661E-01_JPRB,2.0348E-01_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&3.2000E-01_JPRB,2.9293E-01_JPRB,2.7479E-01_JPRB,2.5146E-01_JPRB,2.2881E-01_JPRB,1.9893E-01_JPRB,&
+&1.6745E-01_JPRB,3.2000E-01_JPRB,2.6520E-01_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&3.0081E-01_JPRB,2.6324E-01_JPRB,2.2567E-01_JPRB,1.8947E-01_JPRB,1.5824E-01_JPRB,1.2934E-01_JPRB,&
+&9.9139E-02_JPRB,3.0081E-01_JPRB,5.8236E-02_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&3.0785E-01_JPRB,2.6938E-01_JPRB,2.3362E-01_JPRB,2.0225E-01_JPRB,1.7197E-01_JPRB,1.4526E-01_JPRB,&
+&1.1606E-01_JPRB,3.0785E-01_JPRB,8.6143E-02_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&3.1355E-01_JPRB,2.7471E-01_JPRB,2.4475E-01_JPRB,2.1558E-01_JPRB,1.9203E-01_JPRB,1.6359E-01_JPRB,&
+&1.2884E-01_JPRB,3.1355E-01_JPRB,1.2279E-01_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&3.1773E-01_JPRB,2.8339E-01_JPRB,2.5534E-01_JPRB,2.3396E-01_JPRB,2.0755E-01_JPRB,1.7658E-01_JPRB,&
+&1.4450E-01_JPRB,3.1773E-01_JPRB,1.6752E-01_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&3.2073E-01_JPRB,2.9018E-01_JPRB,2.6952E-01_JPRB,2.4697E-01_JPRB,2.2381E-01_JPRB,1.9623E-01_JPRB,&
+&1.6582E-01_JPRB,3.2073E-01_JPRB,2.2165E-01_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&3.1629E-01_JPRB,2.7676E-01_JPRB,2.3728E-01_JPRB,1.9776E-01_JPRB,1.6109E-01_JPRB,1.2901E-01_JPRB,&
+&9.4699E-02_JPRB,3.1629E-01_JPRB,4.5300E-02_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&3.2227E-01_JPRB,2.8203E-01_JPRB,2.4214E-01_JPRB,2.0636E-01_JPRB,1.7262E-01_JPRB,1.4016E-01_JPRB,&
+&1.0877E-01_JPRB,3.2227E-01_JPRB,6.8853E-02_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&3.2688E-01_JPRB,2.8607E-01_JPRB,2.5069E-01_JPRB,2.1556E-01_JPRB,1.8748E-01_JPRB,1.5661E-01_JPRB,&
+&1.2299E-01_JPRB,3.2688E-01_JPRB,1.0018E-01_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&3.2981E-01_JPRB,2.9140E-01_JPRB,2.5712E-01_JPRB,2.3078E-01_JPRB,2.0158E-01_JPRB,1.7058E-01_JPRB,&
+&1.4006E-01_JPRB,3.2981E-01_JPRB,1.3838E-01_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&3.3188E-01_JPRB,2.9618E-01_JPRB,2.6784E-01_JPRB,2.4209E-01_JPRB,2.1696E-01_JPRB,1.9240E-01_JPRB,&
+&1.6480E-01_JPRB,3.3188E-01_JPRB,1.8388E-01_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&3.4054E-01_JPRB,2.9798E-01_JPRB,2.5543E-01_JPRB,2.1287E-01_JPRB,1.7079E-01_JPRB,1.3421E-01_JPRB,&
+&9.5710E-02_JPRB,3.4054E-01_JPRB,3.8236E-02_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&3.4633E-01_JPRB,3.0305E-01_JPRB,2.5976E-01_JPRB,2.1890E-01_JPRB,1.8147E-01_JPRB,1.4225E-01_JPRB,&
+&1.0350E-01_JPRB,3.4633E-01_JPRB,5.6238E-02_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&3.5037E-01_JPRB,3.0657E-01_JPRB,2.6602E-01_JPRB,2.2678E-01_JPRB,1.8994E-01_JPRB,1.5344E-01_JPRB,&
+&1.1667E-01_JPRB,3.5037E-01_JPRB,8.1743E-02_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&3.5228E-01_JPRB,3.0944E-01_JPRB,2.6992E-01_JPRB,2.3660E-01_JPRB,2.0123E-01_JPRB,1.6487E-01_JPRB,&
+&1.3602E-01_JPRB,3.5228E-01_JPRB,1.1413E-01_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&3.5225E-01_JPRB,3.1211E-01_JPRB,2.7731E-01_JPRB,2.4493E-01_JPRB,2.1160E-01_JPRB,1.8738E-01_JPRB,&
+&1.6276E-01_JPRB,3.5225E-01_JPRB,1.5348E-01_JPRB/)
+KAO( :, 1,10,11) = (/&
+&3.6852E-01_JPRB,3.2247E-01_JPRB,2.7644E-01_JPRB,2.3039E-01_JPRB,1.8448E-01_JPRB,1.4188E-01_JPRB,&
+&9.9757E-02_JPRB,3.6852E-01_JPRB,1.4040E-01_JPRB/)
+KAO( :, 2,10,11) = (/&
+&3.7315E-01_JPRB,3.2652E-01_JPRB,2.7989E-01_JPRB,2.3366E-01_JPRB,1.9261E-01_JPRB,1.5003E-01_JPRB,&
+&1.0586E-01_JPRB,3.7315E-01_JPRB,1.4526E-01_JPRB/)
+KAO( :, 3,10,11) = (/&
+&3.7571E-01_JPRB,3.2878E-01_JPRB,2.8366E-01_JPRB,2.4104E-01_JPRB,1.9987E-01_JPRB,1.5820E-01_JPRB,&
+&1.1578E-01_JPRB,3.7571E-01_JPRB,1.5497E-01_JPRB/)
+KAO( :, 4,10,11) = (/&
+&3.7705E-01_JPRB,3.3024E-01_JPRB,2.8735E-01_JPRB,2.4933E-01_JPRB,2.0907E-01_JPRB,1.6748E-01_JPRB,&
+&1.3413E-01_JPRB,3.7705E-01_JPRB,1.6746E-01_JPRB/)
+KAO( :, 5,10,11) = (/&
+&3.7628E-01_JPRB,3.3247E-01_JPRB,2.9343E-01_JPRB,2.5663E-01_JPRB,2.1748E-01_JPRB,1.8673E-01_JPRB,&
+&1.6058E-01_JPRB,3.7628E-01_JPRB,1.8275E-01_JPRB/)
+KAO( :, 1,11,11) = (/&
+&4.0038E-01_JPRB,3.5035E-01_JPRB,3.0034E-01_JPRB,2.5030E-01_JPRB,2.0116E-01_JPRB,1.5522E-01_JPRB,&
+&1.0823E-01_JPRB,4.0038E-01_JPRB,3.5490E-01_JPRB/)
+KAO( :, 2,11,11) = (/&
+&4.0396E-01_JPRB,3.5350E-01_JPRB,3.0301E-01_JPRB,2.5425E-01_JPRB,2.0946E-01_JPRB,1.6195E-01_JPRB,&
+&1.1374E-01_JPRB,4.0396E-01_JPRB,3.4856E-01_JPRB/)
+KAO( :, 3,11,11) = (/&
+&4.0565E-01_JPRB,3.5496E-01_JPRB,3.0665E-01_JPRB,2.6112E-01_JPRB,2.1551E-01_JPRB,1.6958E-01_JPRB,&
+&1.2572E-01_JPRB,4.0565E-01_JPRB,3.5076E-01_JPRB/)
+KAO( :, 4,11,11) = (/&
+&4.0558E-01_JPRB,3.5595E-01_JPRB,3.0938E-01_JPRB,2.6840E-01_JPRB,2.2301E-01_JPRB,1.8046E-01_JPRB,&
+&1.4403E-01_JPRB,4.0558E-01_JPRB,3.5722E-01_JPRB/)
+KAO( :, 5,11,11) = (/&
+&4.0446E-01_JPRB,3.5712E-01_JPRB,3.1553E-01_JPRB,2.7323E-01_JPRB,2.3366E-01_JPRB,2.0210E-01_JPRB,&
+&1.6875E-01_JPRB,4.0446E-01_JPRB,3.6719E-01_JPRB/)
+KAO( :, 1,12,11) = (/&
+&4.3154E-01_JPRB,3.7764E-01_JPRB,3.2370E-01_JPRB,2.6981E-01_JPRB,2.1804E-01_JPRB,1.6850E-01_JPRB,&
+&1.1669E-01_JPRB,4.3154E-01_JPRB,6.0134E-01_JPRB/)
+KAO( :, 2,12,11) = (/&
+&4.3374E-01_JPRB,3.7956E-01_JPRB,3.2536E-01_JPRB,2.7466E-01_JPRB,2.2555E-01_JPRB,1.7385E-01_JPRB,&
+&1.2290E-01_JPRB,4.3374E-01_JPRB,5.8479E-01_JPRB/)
+KAO( :, 3,12,11) = (/&
+&4.3331E-01_JPRB,3.7916E-01_JPRB,3.2808E-01_JPRB,2.8000E-01_JPRB,2.3156E-01_JPRB,1.8166E-01_JPRB,&
+&1.3630E-01_JPRB,4.3331E-01_JPRB,5.7701E-01_JPRB/)
+KAO( :, 4,12,11) = (/&
+&4.3216E-01_JPRB,3.8009E-01_JPRB,3.3136E-01_JPRB,2.8692E-01_JPRB,2.3835E-01_JPRB,1.9569E-01_JPRB,&
+&1.5406E-01_JPRB,4.3216E-01_JPRB,5.7788E-01_JPRB/)
+KAO( :, 5,12,11) = (/&
+&4.2924E-01_JPRB,3.7929E-01_JPRB,3.3644E-01_JPRB,2.9162E-01_JPRB,2.5358E-01_JPRB,2.1598E-01_JPRB,&
+&1.7801E-01_JPRB,4.2924E-01_JPRB,5.8590E-01_JPRB/)
+KAO( :, 1,13,11) = (/&
+&4.5507E-01_JPRB,3.9820E-01_JPRB,3.4134E-01_JPRB,2.8486E-01_JPRB,2.3199E-01_JPRB,1.7908E-01_JPRB,&
+&1.2378E-01_JPRB,4.5507E-01_JPRB,8.3466E-01_JPRB/)
+KAO( :, 2,13,11) = (/&
+&4.5560E-01_JPRB,3.9865E-01_JPRB,3.4207E-01_JPRB,2.9076E-01_JPRB,2.3824E-01_JPRB,1.8413E-01_JPRB,&
+&1.3231E-01_JPRB,4.5560E-01_JPRB,8.1743E-01_JPRB/)
+KAO( :, 3,13,11) = (/&
+&4.5408E-01_JPRB,3.9738E-01_JPRB,3.4508E-01_JPRB,2.9494E-01_JPRB,2.4447E-01_JPRB,1.9400E-01_JPRB,&
+&1.4658E-01_JPRB,4.5408E-01_JPRB,8.0395E-01_JPRB/)
+KAO( :, 4,13,11) = (/&
+&4.5061E-01_JPRB,3.9693E-01_JPRB,3.4841E-01_JPRB,3.0086E-01_JPRB,2.5386E-01_JPRB,2.0976E-01_JPRB,&
+&1.6407E-01_JPRB,4.5061E-01_JPRB,8.0112E-01_JPRB/)
+KAO( :, 5,13,11) = (/&
+&4.4632E-01_JPRB,3.9509E-01_JPRB,3.5179E-01_JPRB,3.0910E-01_JPRB,2.7153E-01_JPRB,2.3030E-01_JPRB,&
+&1.8645E-01_JPRB,4.4632E-01_JPRB,8.0445E-01_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&4.5134E-01_JPRB,3.9508E-01_JPRB,3.3890E-01_JPRB,2.8825E-01_JPRB,2.4778E-01_JPRB,1.9924E-01_JPRB,&
+&1.4875E-01_JPRB,4.5134E-01_JPRB,1.8824E-01_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&4.4302E-01_JPRB,3.8780E-01_JPRB,3.3477E-01_JPRB,2.9793E-01_JPRB,2.5163E-01_JPRB,2.0880E-01_JPRB,&
+&1.6421E-01_JPRB,4.4302E-01_JPRB,2.4393E-01_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&4.3442E-01_JPRB,3.8027E-01_JPRB,3.4110E-01_JPRB,2.9993E-01_JPRB,2.6022E-01_JPRB,2.1949E-01_JPRB,&
+&2.0337E-01_JPRB,4.3442E-01_JPRB,3.1211E-01_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&4.2548E-01_JPRB,3.7248E-01_JPRB,3.4001E-01_JPRB,3.0363E-01_JPRB,2.6872E-01_JPRB,2.3529E-01_JPRB,&
+&2.6208E-01_JPRB,4.2548E-01_JPRB,4.0218E-01_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&4.1637E-01_JPRB,3.7184E-01_JPRB,3.3956E-01_JPRB,3.0702E-01_JPRB,2.7666E-01_JPRB,3.0048E-01_JPRB,&
+&3.3370E-01_JPRB,4.1637E-01_JPRB,5.1810E-01_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&4.5993E-01_JPRB,4.0257E-01_JPRB,3.4522E-01_JPRB,2.9460E-01_JPRB,2.5120E-01_JPRB,2.0075E-01_JPRB,&
+&1.4994E-01_JPRB,4.5993E-01_JPRB,1.8380E-01_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&4.5214E-01_JPRB,3.9569E-01_JPRB,3.4306E-01_JPRB,3.0314E-01_JPRB,2.5542E-01_JPRB,2.1170E-01_JPRB,&
+&1.6517E-01_JPRB,4.5214E-01_JPRB,2.4302E-01_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&4.4392E-01_JPRB,3.8859E-01_JPRB,3.4836E-01_JPRB,3.0544E-01_JPRB,2.6499E-01_JPRB,2.2418E-01_JPRB,&
+&1.8731E-01_JPRB,4.4392E-01_JPRB,3.1300E-01_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&4.3542E-01_JPRB,3.8194E-01_JPRB,3.4769E-01_JPRB,3.0985E-01_JPRB,2.7291E-01_JPRB,2.3160E-01_JPRB,&
+&2.4758E-01_JPRB,4.3542E-01_JPRB,3.9636E-01_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&4.2659E-01_JPRB,3.8102E-01_JPRB,3.4597E-01_JPRB,3.1267E-01_JPRB,2.8101E-01_JPRB,2.8559E-01_JPRB,&
+&3.2264E-01_JPRB,4.2659E-01_JPRB,5.0187E-01_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&4.6833E-01_JPRB,4.0988E-01_JPRB,3.5146E-01_JPRB,2.9725E-01_JPRB,2.5255E-01_JPRB,2.0071E-01_JPRB,&
+&1.4658E-01_JPRB,4.6833E-01_JPRB,1.7493E-01_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&4.6121E-01_JPRB,4.0366E-01_JPRB,3.4878E-01_JPRB,3.0682E-01_JPRB,2.5668E-01_JPRB,2.1030E-01_JPRB,&
+&1.6556E-01_JPRB,4.6121E-01_JPRB,2.3373E-01_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&4.5378E-01_JPRB,3.9716E-01_JPRB,3.5415E-01_JPRB,3.0895E-01_JPRB,2.6677E-01_JPRB,2.2483E-01_JPRB,&
+&1.7374E-01_JPRB,4.5378E-01_JPRB,3.0656E-01_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&4.4576E-01_JPRB,3.9132E-01_JPRB,3.5375E-01_JPRB,3.1409E-01_JPRB,2.7473E-01_JPRB,2.3114E-01_JPRB,&
+&2.1677E-01_JPRB,4.4576E-01_JPRB,3.9296E-01_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&4.3705E-01_JPRB,3.9046E-01_JPRB,3.5326E-01_JPRB,3.1679E-01_JPRB,2.8502E-01_JPRB,2.5712E-01_JPRB,&
+&2.8930E-01_JPRB,4.3705E-01_JPRB,4.9026E-01_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&4.7595E-01_JPRB,4.1655E-01_JPRB,3.5714E-01_JPRB,2.9920E-01_JPRB,2.5213E-01_JPRB,1.9982E-01_JPRB,&
+&1.4381E-01_JPRB,4.7595E-01_JPRB,1.5872E-01_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&4.7033E-01_JPRB,4.1161E-01_JPRB,3.5414E-01_JPRB,3.0922E-01_JPRB,2.5846E-01_JPRB,2.0731E-01_JPRB,&
+&1.6215E-01_JPRB,4.7033E-01_JPRB,2.1800E-01_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&4.6352E-01_JPRB,4.0565E-01_JPRB,3.5971E-01_JPRB,3.1204E-01_JPRB,2.6678E-01_JPRB,2.2292E-01_JPRB,&
+&1.7122E-01_JPRB,4.6352E-01_JPRB,2.9018E-01_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&4.5585E-01_JPRB,4.0027E-01_JPRB,3.5920E-01_JPRB,3.1814E-01_JPRB,2.7571E-01_JPRB,2.2988E-01_JPRB,&
+&1.8807E-01_JPRB,4.5585E-01_JPRB,3.7615E-01_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&4.4747E-01_JPRB,3.9994E-01_JPRB,3.6045E-01_JPRB,3.2102E-01_JPRB,2.8482E-01_JPRB,2.4194E-01_JPRB,&
+&2.4872E-01_JPRB,4.4747E-01_JPRB,4.7733E-01_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&4.8332E-01_JPRB,4.2296E-01_JPRB,3.6260E-01_JPRB,3.0235E-01_JPRB,2.5042E-01_JPRB,1.9864E-01_JPRB,&
+&1.4130E-01_JPRB,4.8332E-01_JPRB,1.3745E-01_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&4.7867E-01_JPRB,4.1890E-01_JPRB,3.5947E-01_JPRB,3.1127E-01_JPRB,2.5927E-01_JPRB,2.0493E-01_JPRB,&
+&1.5750E-01_JPRB,4.7867E-01_JPRB,1.9596E-01_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&4.7259E-01_JPRB,4.1358E-01_JPRB,3.6520E-01_JPRB,3.1459E-01_JPRB,2.6723E-01_JPRB,2.2048E-01_JPRB,&
+&1.7032E-01_JPRB,4.7259E-01_JPRB,2.6742E-01_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&4.6538E-01_JPRB,4.0850E-01_JPRB,3.6518E-01_JPRB,3.2176E-01_JPRB,2.7688E-01_JPRB,2.2777E-01_JPRB,&
+&1.8088E-01_JPRB,4.6538E-01_JPRB,3.5196E-01_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&4.5769E-01_JPRB,4.0896E-01_JPRB,3.6726E-01_JPRB,3.2571E-01_JPRB,2.8321E-01_JPRB,2.4098E-01_JPRB,&
+&2.1462E-01_JPRB,4.5769E-01_JPRB,4.5123E-01_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&4.8993E-01_JPRB,4.2877E-01_JPRB,3.6756E-01_JPRB,3.0637E-01_JPRB,2.4861E-01_JPRB,1.9592E-01_JPRB,&
+&1.4097E-01_JPRB,4.8993E-01_JPRB,1.1309E-01_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&4.8623E-01_JPRB,4.2551E-01_JPRB,3.6480E-01_JPRB,3.1259E-01_JPRB,2.5937E-01_JPRB,2.0293E-01_JPRB,&
+&1.5359E-01_JPRB,4.8623E-01_JPRB,1.6654E-01_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&4.8158E-01_JPRB,4.2145E-01_JPRB,3.6981E-01_JPRB,3.1811E-01_JPRB,2.6579E-01_JPRB,2.1805E-01_JPRB,&
+&1.7034E-01_JPRB,4.8158E-01_JPRB,2.3416E-01_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&4.7580E-01_JPRB,4.1675E-01_JPRB,3.7108E-01_JPRB,3.2456E-01_JPRB,2.7803E-01_JPRB,2.2833E-01_JPRB,&
+&1.8066E-01_JPRB,4.7580E-01_JPRB,3.1607E-01_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&4.6758E-01_JPRB,4.1652E-01_JPRB,3.7367E-01_JPRB,3.3147E-01_JPRB,2.8380E-01_JPRB,2.4223E-01_JPRB,&
+&1.9841E-01_JPRB,4.6758E-01_JPRB,4.1181E-01_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&4.9556E-01_JPRB,4.3365E-01_JPRB,3.7175E-01_JPRB,3.0985E-01_JPRB,2.4854E-01_JPRB,1.9277E-01_JPRB,&
+&1.4013E-01_JPRB,4.9556E-01_JPRB,8.9473E-02_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&4.9363E-01_JPRB,4.3195E-01_JPRB,3.7029E-01_JPRB,3.1256E-01_JPRB,2.5963E-01_JPRB,2.0328E-01_JPRB,&
+&1.5194E-01_JPRB,4.9363E-01_JPRB,1.3619E-01_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&4.8988E-01_JPRB,4.2866E-01_JPRB,3.7265E-01_JPRB,3.2073E-01_JPRB,2.6549E-01_JPRB,2.1787E-01_JPRB,&
+&1.7010E-01_JPRB,4.8988E-01_JPRB,1.9644E-01_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&4.8356E-01_JPRB,4.2335E-01_JPRB,3.7640E-01_JPRB,3.2648E-01_JPRB,2.8045E-01_JPRB,2.3190E-01_JPRB,&
+&1.7955E-01_JPRB,4.8356E-01_JPRB,2.7163E-01_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&4.7613E-01_JPRB,4.2343E-01_JPRB,3.7941E-01_JPRB,3.3677E-01_JPRB,2.8839E-01_JPRB,2.4416E-01_JPRB,&
+&1.9240E-01_JPRB,4.7613E-01_JPRB,3.6146E-01_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&4.9952E-01_JPRB,4.3713E-01_JPRB,3.7469E-01_JPRB,3.1228E-01_JPRB,2.4992E-01_JPRB,1.8992E-01_JPRB,&
+&1.3910E-01_JPRB,4.9952E-01_JPRB,7.0068E-02_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&4.9876E-01_JPRB,4.3647E-01_JPRB,3.7415E-01_JPRB,3.1359E-01_JPRB,2.5898E-01_JPRB,2.0365E-01_JPRB,&
+&1.5225E-01_JPRB,4.9876E-01_JPRB,1.0911E-01_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&4.9561E-01_JPRB,4.3367E-01_JPRB,3.7478E-01_JPRB,3.2253E-01_JPRB,2.6652E-01_JPRB,2.1802E-01_JPRB,&
+&1.6931E-01_JPRB,4.9561E-01_JPRB,1.6065E-01_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&4.9132E-01_JPRB,4.2995E-01_JPRB,3.8056E-01_JPRB,3.2825E-01_JPRB,2.8313E-01_JPRB,2.3561E-01_JPRB,&
+&1.7963E-01_JPRB,4.9132E-01_JPRB,2.2657E-01_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&4.8493E-01_JPRB,4.3037E-01_JPRB,3.8392E-01_JPRB,3.3999E-01_JPRB,2.9506E-01_JPRB,2.4592E-01_JPRB,&
+&1.9305E-01_JPRB,4.8493E-01_JPRB,3.0798E-01_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&5.0297E-01_JPRB,4.4011E-01_JPRB,3.7727E-01_JPRB,3.1445E-01_JPRB,2.5164E-01_JPRB,1.8923E-01_JPRB,&
+&1.3630E-01_JPRB,5.0297E-01_JPRB,5.5928E-02_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&5.0280E-01_JPRB,4.3999E-01_JPRB,3.7719E-01_JPRB,3.1439E-01_JPRB,2.5596E-01_JPRB,2.0387E-01_JPRB,&
+&1.5194E-01_JPRB,5.0280E-01_JPRB,8.7259E-02_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&5.0165E-01_JPRB,4.3899E-01_JPRB,3.7733E-01_JPRB,3.2316E-01_JPRB,2.6815E-01_JPRB,2.1765E-01_JPRB,&
+&1.6729E-01_JPRB,5.0165E-01_JPRB,1.3032E-01_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&4.9775E-01_JPRB,4.3558E-01_JPRB,3.8325E-01_JPRB,3.2898E-01_JPRB,2.8348E-01_JPRB,2.3696E-01_JPRB,&
+&1.7992E-01_JPRB,4.9775E-01_JPRB,1.8697E-01_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&4.9256E-01_JPRB,4.3533E-01_JPRB,3.8600E-01_JPRB,3.4285E-01_JPRB,2.9917E-01_JPRB,2.4757E-01_JPRB,&
+&1.9469E-01_JPRB,4.9256E-01_JPRB,2.5776E-01_JPRB/)
+KAO( :, 1,10,12) = (/&
+&5.1773E-01_JPRB,4.5305E-01_JPRB,3.8832E-01_JPRB,3.2361E-01_JPRB,2.5894E-01_JPRB,1.9444E-01_JPRB,&
+&1.3626E-01_JPRB,5.1773E-01_JPRB,1.7143E-01_JPRB/)
+KAO( :, 2,10,12) = (/&
+&5.2014E-01_JPRB,4.5518E-01_JPRB,3.9014E-01_JPRB,3.2511E-01_JPRB,2.6137E-01_JPRB,2.0558E-01_JPRB,&
+&1.5091E-01_JPRB,5.2014E-01_JPRB,1.7878E-01_JPRB/)
+KAO( :, 3,10,12) = (/&
+&5.1859E-01_JPRB,4.5376E-01_JPRB,3.8899E-01_JPRB,3.2977E-01_JPRB,2.7178E-01_JPRB,2.1806E-01_JPRB,&
+&1.6450E-01_JPRB,5.1859E-01_JPRB,1.8778E-01_JPRB/)
+KAO( :, 4,10,12) = (/&
+&5.1464E-01_JPRB,4.5036E-01_JPRB,3.9278E-01_JPRB,3.3429E-01_JPRB,2.8520E-01_JPRB,2.3593E-01_JPRB,&
+&1.7923E-01_JPRB,5.1464E-01_JPRB,2.0686E-01_JPRB/)
+KAO( :, 5,10,12) = (/&
+&5.1018E-01_JPRB,4.4905E-01_JPRB,3.9440E-01_JPRB,3.4703E-01_JPRB,3.0026E-01_JPRB,2.4817E-01_JPRB,&
+&1.9727E-01_JPRB,5.1018E-01_JPRB,2.4342E-01_JPRB/)
+KAO( :, 1,11,12) = (/&
+&5.4832E-01_JPRB,4.7977E-01_JPRB,4.1126E-01_JPRB,3.4274E-01_JPRB,2.7420E-01_JPRB,2.0703E-01_JPRB,&
+&1.4636E-01_JPRB,5.4832E-01_JPRB,4.2229E-01_JPRB/)
+KAO( :, 2,11,12) = (/&
+&5.4890E-01_JPRB,4.8029E-01_JPRB,4.1169E-01_JPRB,3.4308E-01_JPRB,2.7803E-01_JPRB,2.1902E-01_JPRB,&
+&1.5675E-01_JPRB,5.4890E-01_JPRB,4.1304E-01_JPRB/)
+KAO( :, 3,11,12) = (/&
+&5.4760E-01_JPRB,4.7912E-01_JPRB,4.1148E-01_JPRB,3.4845E-01_JPRB,2.8802E-01_JPRB,2.2864E-01_JPRB,&
+&1.6957E-01_JPRB,5.4760E-01_JPRB,4.1866E-01_JPRB/)
+KAO( :, 4,11,12) = (/&
+&5.4451E-01_JPRB,4.7646E-01_JPRB,4.1466E-01_JPRB,3.5324E-01_JPRB,3.0043E-01_JPRB,2.4253E-01_JPRB,&
+&1.8588E-01_JPRB,5.4451E-01_JPRB,4.2963E-01_JPRB/)
+KAO( :, 5,11,12) = (/&
+&5.3844E-01_JPRB,4.7499E-01_JPRB,4.1514E-01_JPRB,3.6472E-01_JPRB,3.0977E-01_JPRB,2.5655E-01_JPRB,&
+&2.1387E-01_JPRB,5.3844E-01_JPRB,4.4513E-01_JPRB/)
+KAO( :, 1,12,12) = (/&
+&5.9065E-01_JPRB,5.1684E-01_JPRB,4.4304E-01_JPRB,3.6914E-01_JPRB,2.9536E-01_JPRB,2.2452E-01_JPRB,&
+&1.5812E-01_JPRB,5.9065E-01_JPRB,7.0088E-01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&5.8872E-01_JPRB,5.1516E-01_JPRB,4.4157E-01_JPRB,3.6818E-01_JPRB,3.0050E-01_JPRB,2.3470E-01_JPRB,&
+&1.6533E-01_JPRB,5.8872E-01_JPRB,6.8724E-01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&5.8657E-01_JPRB,5.1328E-01_JPRB,4.4183E-01_JPRB,3.7357E-01_JPRB,3.0883E-01_JPRB,2.4369E-01_JPRB,&
+&1.7720E-01_JPRB,5.8657E-01_JPRB,6.7692E-01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&5.8202E-01_JPRB,5.0954E-01_JPRB,4.4287E-01_JPRB,3.7996E-01_JPRB,3.1901E-01_JPRB,2.5355E-01_JPRB,&
+&1.9754E-01_JPRB,5.8202E-01_JPRB,6.8063E-01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&5.7488E-01_JPRB,5.0736E-01_JPRB,4.4448E-01_JPRB,3.8734E-01_JPRB,3.2636E-01_JPRB,2.7530E-01_JPRB,&
+&2.2896E-01_JPRB,5.7488E-01_JPRB,6.8864E-01_JPRB/)
+KAO( :, 1,13,12) = (/&
+&6.3330E-01_JPRB,5.5414E-01_JPRB,4.7500E-01_JPRB,3.9585E-01_JPRB,3.1697E-01_JPRB,2.4329E-01_JPRB,&
+&1.7024E-01_JPRB,6.3330E-01_JPRB,9.6193E-01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&6.3223E-01_JPRB,5.5319E-01_JPRB,4.7424E-01_JPRB,3.9638E-01_JPRB,3.2473E-01_JPRB,2.5152E-01_JPRB,&
+&1.7599E-01_JPRB,6.3223E-01_JPRB,9.4444E-01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&6.2744E-01_JPRB,5.4905E-01_JPRB,4.7373E-01_JPRB,4.0076E-01_JPRB,3.3050E-01_JPRB,2.6025E-01_JPRB,&
+&1.8993E-01_JPRB,6.2744E-01_JPRB,9.2859E-01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&6.2161E-01_JPRB,5.4502E-01_JPRB,4.7279E-01_JPRB,4.0774E-01_JPRB,3.3922E-01_JPRB,2.7164E-01_JPRB,&
+&2.1216E-01_JPRB,6.2161E-01_JPRB,9.1983E-01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&6.1416E-01_JPRB,5.4190E-01_JPRB,4.7545E-01_JPRB,4.1094E-01_JPRB,3.4988E-01_JPRB,2.9767E-01_JPRB,&
+&2.4315E-01_JPRB,6.1416E-01_JPRB,9.2076E-01_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&5.6801E-01_JPRB,4.9753E-01_JPRB,4.2614E-01_JPRB,3.5562E-01_JPRB,2.9784E-01_JPRB,2.3762E-01_JPRB,&
+&1.7067E-01_JPRB,5.6801E-01_JPRB,2.8847E-01_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&5.4506E-01_JPRB,4.7713E-01_JPRB,4.0945E-01_JPRB,3.5614E-01_JPRB,2.9906E-01_JPRB,2.3687E-01_JPRB,&
+&2.1806E-01_JPRB,5.4506E-01_JPRB,3.9566E-01_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&5.2208E-01_JPRB,4.5704E-01_JPRB,4.0103E-01_JPRB,3.5099E-01_JPRB,2.9640E-01_JPRB,2.7382E-01_JPRB,&
+&2.9611E-01_JPRB,5.2208E-01_JPRB,5.3813E-01_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&5.0009E-01_JPRB,4.3777E-01_JPRB,3.9424E-01_JPRB,3.4743E-01_JPRB,3.1380E-01_JPRB,3.5655E-01_JPRB,&
+&3.8844E-01_JPRB,5.0009E-01_JPRB,7.1248E-01_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&4.7842E-01_JPRB,4.2067E-01_JPRB,3.8681E-01_JPRB,3.4438E-01_JPRB,3.8224E-01_JPRB,4.4874E-01_JPRB,&
+&4.9670E-01_JPRB,4.7842E-01_JPRB,9.2069E-01_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&5.8929E-01_JPRB,5.1576E-01_JPRB,4.4253E-01_JPRB,3.6899E-01_JPRB,3.0866E-01_JPRB,2.4593E-01_JPRB,&
+&1.7419E-01_JPRB,5.8929E-01_JPRB,2.7016E-01_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&5.6495E-01_JPRB,4.9446E-01_JPRB,4.2405E-01_JPRB,3.6956E-01_JPRB,3.0941E-01_JPRB,2.4584E-01_JPRB,&
+&2.0900E-01_JPRB,5.6495E-01_JPRB,3.6136E-01_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&5.4068E-01_JPRB,4.7328E-01_JPRB,4.1750E-01_JPRB,3.6380E-01_JPRB,3.0869E-01_JPRB,2.6782E-01_JPRB,&
+&2.8845E-01_JPRB,5.4068E-01_JPRB,4.8684E-01_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&5.1706E-01_JPRB,4.5259E-01_JPRB,4.0848E-01_JPRB,3.6075E-01_JPRB,3.1658E-01_JPRB,3.4323E-01_JPRB,&
+&3.8025E-01_JPRB,5.1706E-01_JPRB,6.5346E-01_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&4.9404E-01_JPRB,4.3831E-01_JPRB,4.0091E-01_JPRB,3.5604E-01_JPRB,3.7274E-01_JPRB,4.3563E-01_JPRB,&
+&4.8657E-01_JPRB,4.9404E-01_JPRB,8.5443E-01_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&6.1460E-01_JPRB,5.3792E-01_JPRB,4.6119E-01_JPRB,3.8446E-01_JPRB,3.1580E-01_JPRB,2.5245E-01_JPRB,&
+&1.8069E-01_JPRB,6.1460E-01_JPRB,2.4476E-01_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&5.8902E-01_JPRB,5.1550E-01_JPRB,4.4201E-01_JPRB,3.8201E-01_JPRB,3.1981E-01_JPRB,2.5246E-01_JPRB,&
+&1.9290E-01_JPRB,5.8902E-01_JPRB,3.2384E-01_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&5.6359E-01_JPRB,4.9325E-01_JPRB,4.3340E-01_JPRB,3.7717E-01_JPRB,3.1924E-01_JPRB,2.6085E-01_JPRB,&
+&2.6060E-01_JPRB,5.6359E-01_JPRB,4.2953E-01_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&5.3858E-01_JPRB,4.7139E-01_JPRB,4.2433E-01_JPRB,3.7392E-01_JPRB,3.2043E-01_JPRB,3.1006E-01_JPRB,&
+&3.4867E-01_JPRB,5.3858E-01_JPRB,5.6773E-01_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&5.1490E-01_JPRB,4.5696E-01_JPRB,4.1592E-01_JPRB,3.6991E-01_JPRB,3.4822E-01_JPRB,4.0122E-01_JPRB,&
+&4.5118E-01_JPRB,5.1490E-01_JPRB,7.4387E-01_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&6.4145E-01_JPRB,5.6134E-01_JPRB,4.8123E-01_JPRB,4.0119E-01_JPRB,3.2332E-01_JPRB,2.5778E-01_JPRB,&
+&1.8494E-01_JPRB,6.4145E-01_JPRB,2.1630E-01_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&6.1419E-01_JPRB,5.3750E-01_JPRB,4.6079E-01_JPRB,3.9241E-01_JPRB,3.2922E-01_JPRB,2.5906E-01_JPRB,&
+&1.8892E-01_JPRB,6.1419E-01_JPRB,2.9208E-01_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&5.8813E-01_JPRB,5.1468E-01_JPRB,4.4799E-01_JPRB,3.9004E-01_JPRB,3.2671E-01_JPRB,2.6510E-01_JPRB,&
+&2.2685E-01_JPRB,5.8813E-01_JPRB,3.9137E-01_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&5.6273E-01_JPRB,4.9248E-01_JPRB,4.4059E-01_JPRB,3.8556E-01_JPRB,3.3060E-01_JPRB,2.8625E-01_JPRB,&
+&3.0760E-01_JPRB,5.6273E-01_JPRB,5.0589E-01_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&5.3804E-01_JPRB,4.7588E-01_JPRB,4.3067E-01_JPRB,3.8369E-01_JPRB,3.3395E-01_JPRB,3.5921E-01_JPRB,&
+&4.0495E-01_JPRB,5.3804E-01_JPRB,6.5237E-01_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&6.6759E-01_JPRB,5.8420E-01_JPRB,5.0082E-01_JPRB,4.1745E-01_JPRB,3.3417E-01_JPRB,2.6101E-01_JPRB,&
+&1.8769E-01_JPRB,6.6759E-01_JPRB,1.9371E-01_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&6.3993E-01_JPRB,5.5998E-01_JPRB,4.8009E-01_JPRB,4.0342E-01_JPRB,3.3762E-01_JPRB,2.6493E-01_JPRB,&
+&1.8973E-01_JPRB,6.3993E-01_JPRB,2.6409E-01_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&6.1332E-01_JPRB,5.3667E-01_JPRB,4.6314E-01_JPRB,4.0266E-01_JPRB,3.3397E-01_JPRB,2.6941E-01_JPRB,&
+&2.0819E-01_JPRB,6.1332E-01_JPRB,3.5928E-01_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&5.8743E-01_JPRB,5.1406E-01_JPRB,4.5644E-01_JPRB,3.9637E-01_JPRB,3.3947E-01_JPRB,2.7620E-01_JPRB,&
+&2.6432E-01_JPRB,5.8743E-01_JPRB,4.7554E-01_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&5.6212E-01_JPRB,4.9526E-01_JPRB,4.4574E-01_JPRB,3.9617E-01_JPRB,3.3572E-01_JPRB,3.1407E-01_JPRB,&
+&3.5828E-01_JPRB,5.6212E-01_JPRB,6.0837E-01_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&6.9473E-01_JPRB,6.0793E-01_JPRB,5.2119E-01_JPRB,4.3440E-01_JPRB,3.4764E-01_JPRB,2.6336E-01_JPRB,&
+&1.8896E-01_JPRB,6.9473E-01_JPRB,1.7250E-01_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&6.6721E-01_JPRB,5.8382E-01_JPRB,5.0053E-01_JPRB,4.1719E-01_JPRB,3.4561E-01_JPRB,2.7121E-01_JPRB,&
+&1.9177E-01_JPRB,6.6721E-01_JPRB,2.4044E-01_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&6.4000E-01_JPRB,5.6004E-01_JPRB,4.8024E-01_JPRB,4.1554E-01_JPRB,3.4402E-01_JPRB,2.7206E-01_JPRB,&
+&2.0202E-01_JPRB,6.4000E-01_JPRB,3.3099E-01_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&6.1394E-01_JPRB,5.3727E-01_JPRB,4.7423E-01_JPRB,4.0811E-01_JPRB,3.4656E-01_JPRB,2.7984E-01_JPRB,&
+&2.2944E-01_JPRB,6.1394E-01_JPRB,4.4214E-01_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&5.9084E-01_JPRB,5.1879E-01_JPRB,4.6252E-01_JPRB,4.0758E-01_JPRB,3.4602E-01_JPRB,2.8751E-01_JPRB,&
+&3.0432E-01_JPRB,5.9084E-01_JPRB,5.7787E-01_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&7.2249E-01_JPRB,6.3225E-01_JPRB,5.4192E-01_JPRB,4.5166E-01_JPRB,3.6141E-01_JPRB,2.7115E-01_JPRB,&
+&1.8926E-01_JPRB,7.2249E-01_JPRB,1.4840E-01_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&6.9569E-01_JPRB,6.0876E-01_JPRB,5.2183E-01_JPRB,4.3493E-01_JPRB,3.5253E-01_JPRB,2.7700E-01_JPRB,&
+&1.9463E-01_JPRB,6.9569E-01_JPRB,2.1366E-01_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&6.7030E-01_JPRB,5.8656E-01_JPRB,5.0282E-01_JPRB,4.3054E-01_JPRB,3.5472E-01_JPRB,2.7582E-01_JPRB,&
+&2.0558E-01_JPRB,6.7030E-01_JPRB,3.0169E-01_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&6.4750E-01_JPRB,5.6659E-01_JPRB,4.9555E-01_JPRB,4.2297E-01_JPRB,3.5382E-01_JPRB,2.8571E-01_JPRB,&
+&2.1673E-01_JPRB,6.4750E-01_JPRB,4.1281E-01_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&6.2512E-01_JPRB,5.4760E-01_JPRB,4.8374E-01_JPRB,4.2116E-01_JPRB,3.5619E-01_JPRB,2.8468E-01_JPRB,&
+&2.6466E-01_JPRB,6.2512E-01_JPRB,5.4714E-01_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&7.5294E-01_JPRB,6.5887E-01_JPRB,5.6474E-01_JPRB,4.7064E-01_JPRB,3.7654E-01_JPRB,2.8248E-01_JPRB,&
+&1.8974E-01_JPRB,7.5294E-01_JPRB,1.2274E-01_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&7.2891E-01_JPRB,6.3781E-01_JPRB,5.4671E-01_JPRB,4.5563E-01_JPRB,3.6498E-01_JPRB,2.8342E-01_JPRB,&
+&1.9844E-01_JPRB,7.2891E-01_JPRB,1.8310E-01_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&7.0557E-01_JPRB,6.1744E-01_JPRB,5.2928E-01_JPRB,4.4666E-01_JPRB,3.6716E-01_JPRB,2.8351E-01_JPRB,&
+&2.0879E-01_JPRB,7.0557E-01_JPRB,2.6614E-01_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&6.8244E-01_JPRB,5.9719E-01_JPRB,5.1867E-01_JPRB,4.4210E-01_JPRB,3.6383E-01_JPRB,2.9223E-01_JPRB,&
+&2.1877E-01_JPRB,6.8244E-01_JPRB,3.7635E-01_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&6.6089E-01_JPRB,5.7833E-01_JPRB,5.0944E-01_JPRB,4.4005E-01_JPRB,3.6857E-01_JPRB,2.9676E-01_JPRB,&
+&2.4160E-01_JPRB,6.6089E-01_JPRB,5.0930E-01_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&7.8582E-01_JPRB,6.8762E-01_JPRB,5.8934E-01_JPRB,4.9123E-01_JPRB,3.9298E-01_JPRB,2.9487E-01_JPRB,&
+&1.9668E-01_JPRB,7.8582E-01_JPRB,9.8816E-02_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&7.6340E-01_JPRB,6.6798E-01_JPRB,5.7260E-01_JPRB,4.7718E-01_JPRB,3.8186E-01_JPRB,2.8922E-01_JPRB,&
+&2.0391E-01_JPRB,7.6340E-01_JPRB,1.5257E-01_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&7.4083E-01_JPRB,6.4825E-01_JPRB,5.5561E-01_JPRB,4.6459E-01_JPRB,3.8180E-01_JPRB,2.9456E-01_JPRB,&
+&2.1305E-01_JPRB,7.4083E-01_JPRB,2.2771E-01_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&7.2071E-01_JPRB,6.3065E-01_JPRB,5.4414E-01_JPRB,4.6459E-01_JPRB,3.7956E-01_JPRB,3.0226E-01_JPRB,&
+&2.2460E-01_JPRB,7.2071E-01_JPRB,3.3060E-01_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&7.0101E-01_JPRB,6.1340E-01_JPRB,5.3848E-01_JPRB,4.5996E-01_JPRB,3.8516E-01_JPRB,3.1030E-01_JPRB,&
+&2.3292E-01_JPRB,7.0101E-01_JPRB,4.5916E-01_JPRB/)
+KAO( :, 1,10,13) = (/&
+&8.1699E-01_JPRB,7.1490E-01_JPRB,6.1279E-01_JPRB,5.1070E-01_JPRB,4.0862E-01_JPRB,3.0651E-01_JPRB,&
+&2.0447E-01_JPRB,8.1699E-01_JPRB,2.0223E-01_JPRB/)
+KAO( :, 2,10,13) = (/&
+&7.9680E-01_JPRB,6.9725E-01_JPRB,5.9768E-01_JPRB,4.9808E-01_JPRB,3.9857E-01_JPRB,2.9954E-01_JPRB,&
+&2.1116E-01_JPRB,7.9680E-01_JPRB,2.1512E-01_JPRB/)
+KAO( :, 3,10,13) = (/&
+&7.7769E-01_JPRB,6.8054E-01_JPRB,5.8332E-01_JPRB,4.8646E-01_JPRB,3.9735E-01_JPRB,3.0638E-01_JPRB,&
+&2.2182E-01_JPRB,7.7769E-01_JPRB,2.3973E-01_JPRB/)
+KAO( :, 4,10,13) = (/&
+&7.5760E-01_JPRB,6.6294E-01_JPRB,5.6993E-01_JPRB,4.8571E-01_JPRB,3.9617E-01_JPRB,3.1482E-01_JPRB,&
+&2.3294E-01_JPRB,7.5760E-01_JPRB,3.0285E-01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&7.3618E-01_JPRB,6.4414E-01_JPRB,5.6442E-01_JPRB,4.8052E-01_JPRB,4.0378E-01_JPRB,3.2545E-01_JPRB,&
+&2.3666E-01_JPRB,7.3618E-01_JPRB,4.1601E-01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&8.3942E-01_JPRB,7.3450E-01_JPRB,6.2963E-01_JPRB,5.2471E-01_JPRB,4.1987E-01_JPRB,3.1499E-01_JPRB,&
+&2.1173E-01_JPRB,8.3942E-01_JPRB,5.1704E-01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&8.2051E-01_JPRB,7.1798E-01_JPRB,6.1544E-01_JPRB,5.1289E-01_JPRB,4.1041E-01_JPRB,3.1180E-01_JPRB,&
+&2.2477E-01_JPRB,8.2051E-01_JPRB,5.0715E-01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&8.0104E-01_JPRB,7.0099E-01_JPRB,6.0089E-01_JPRB,5.0362E-01_JPRB,4.1222E-01_JPRB,3.2198E-01_JPRB,&
+&2.3377E-01_JPRB,8.0104E-01_JPRB,5.0602E-01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&7.7897E-01_JPRB,6.8168E-01_JPRB,5.9030E-01_JPRB,5.0190E-01_JPRB,4.1316E-01_JPRB,3.3484E-01_JPRB,&
+&2.4521E-01_JPRB,7.7897E-01_JPRB,5.2719E-01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&7.5657E-01_JPRB,6.6294E-01_JPRB,5.8168E-01_JPRB,4.9940E-01_JPRB,4.2397E-01_JPRB,3.4229E-01_JPRB,&
+&2.5422E-01_JPRB,7.5657E-01_JPRB,5.6893E-01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&8.6084E-01_JPRB,7.5332E-01_JPRB,6.4569E-01_JPRB,5.3811E-01_JPRB,4.3054E-01_JPRB,3.2302E-01_JPRB,&
+&2.2089E-01_JPRB,8.6084E-01_JPRB,8.5915E-01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&8.4383E-01_JPRB,7.3849E-01_JPRB,6.3296E-01_JPRB,5.2757E-01_JPRB,4.2272E-01_JPRB,3.2652E-01_JPRB,&
+&2.3662E-01_JPRB,8.4383E-01_JPRB,8.4258E-01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&8.2461E-01_JPRB,7.2162E-01_JPRB,6.1861E-01_JPRB,5.2173E-01_JPRB,4.2609E-01_JPRB,3.3651E-01_JPRB,&
+&2.4602E-01_JPRB,8.2461E-01_JPRB,8.2424E-01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&8.0362E-01_JPRB,7.0330E-01_JPRB,6.1076E-01_JPRB,5.1642E-01_JPRB,4.3196E-01_JPRB,3.5024E-01_JPRB,&
+&2.5788E-01_JPRB,8.0362E-01_JPRB,8.1526E-01_JPRB/)
+KAO( :, 5,12,13) = (/&
+&7.8196E-01_JPRB,6.8686E-01_JPRB,5.9993E-01_JPRB,5.1915E-01_JPRB,4.4219E-01_JPRB,3.5857E-01_JPRB,&
+&2.8318E-01_JPRB,7.8196E-01_JPRB,8.4417E-01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&8.9885E-01_JPRB,7.8652E-01_JPRB,6.7417E-01_JPRB,5.6190E-01_JPRB,4.4957E-01_JPRB,3.3736E-01_JPRB,&
+&2.3468E-01_JPRB,8.9885E-01_JPRB,1.1747E+00_JPRB/)
+KAO( :, 2,13,13) = (/&
+&8.8176E-01_JPRB,7.7157E-01_JPRB,6.6138E-01_JPRB,5.5126E-01_JPRB,4.4334E-01_JPRB,3.4503E-01_JPRB,&
+&2.4591E-01_JPRB,8.8176E-01_JPRB,1.1474E+00_JPRB/)
+KAO( :, 3,13,13) = (/&
+&8.6445E-01_JPRB,7.5644E-01_JPRB,6.4871E-01_JPRB,5.4797E-01_JPRB,4.4798E-01_JPRB,3.5260E-01_JPRB,&
+&2.5729E-01_JPRB,8.6445E-01_JPRB,1.1167E+00_JPRB/)
+KAO( :, 4,13,13) = (/&
+&8.4531E-01_JPRB,7.3968E-01_JPRB,6.4228E-01_JPRB,5.4288E-01_JPRB,4.5703E-01_JPRB,3.6588E-01_JPRB,&
+&2.7546E-01_JPRB,8.4531E-01_JPRB,1.0937E+00_JPRB/)
+KAO( :, 5,13,13) = (/&
+&8.2636E-01_JPRB,7.2791E-01_JPRB,6.3427E-01_JPRB,5.5035E-01_JPRB,4.6456E-01_JPRB,3.8210E-01_JPRB,&
+&3.1914E-01_JPRB,8.2636E-01_JPRB,1.1091E+00_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&6.4697E-01_JPRB,5.6581E-01_JPRB,4.8619E-01_JPRB,4.0514E-01_JPRB,3.2628E-01_JPRB,2.6560E-01_JPRB,&
+&2.6000E-01_JPRB,6.4697E-01_JPRB,5.4302E-01_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&6.1615E-01_JPRB,5.3934E-01_JPRB,4.6216E-01_JPRB,3.9067E-01_JPRB,3.3456E-01_JPRB,3.3408E-01_JPRB,&
+&3.5677E-01_JPRB,6.1615E-01_JPRB,7.5638E-01_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&5.8533E-01_JPRB,5.1238E-01_JPRB,4.4004E-01_JPRB,3.8617E-01_JPRB,3.9537E-01_JPRB,4.4466E-01_JPRB,&
+&4.7278E-01_JPRB,5.8533E-01_JPRB,1.0166E+00_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&5.5669E-01_JPRB,4.8735E-01_JPRB,4.2781E-01_JPRB,4.2678E-01_JPRB,5.1253E-01_JPRB,5.7332E-01_JPRB,&
+&6.0788E-01_JPRB,5.5669E-01_JPRB,1.3240E+00_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&5.2879E-01_JPRB,4.6247E-01_JPRB,4.2802E-01_JPRB,5.3254E-01_JPRB,6.4936E-01_JPRB,7.2566E-01_JPRB,&
+&7.6206E-01_JPRB,5.2879E-01_JPRB,1.6773E+00_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&6.8303E-01_JPRB,5.9781E-01_JPRB,5.1220E-01_JPRB,4.2706E-01_JPRB,3.4379E-01_JPRB,2.7382E-01_JPRB,&
+&2.5162E-01_JPRB,6.8303E-01_JPRB,5.1036E-01_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&6.4954E-01_JPRB,5.6917E-01_JPRB,4.8810E-01_JPRB,4.1304E-01_JPRB,3.4632E-01_JPRB,3.2639E-01_JPRB,&
+&3.5170E-01_JPRB,6.4954E-01_JPRB,7.2343E-01_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&6.1641E-01_JPRB,5.3958E-01_JPRB,4.6497E-01_JPRB,4.0263E-01_JPRB,3.9007E-01_JPRB,4.3907E-01_JPRB,&
+&4.7004E-01_JPRB,6.1641E-01_JPRB,9.8553E-01_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&5.8470E-01_JPRB,5.1185E-01_JPRB,4.4927E-01_JPRB,4.3064E-01_JPRB,5.0846E-01_JPRB,5.7765E-01_JPRB,&
+&6.1669E-01_JPRB,5.8470E-01_JPRB,1.2985E+00_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&5.5467E-01_JPRB,4.8565E-01_JPRB,4.4367E-01_JPRB,5.2819E-01_JPRB,6.4947E-01_JPRB,7.3873E-01_JPRB,&
+&7.8515E-01_JPRB,5.5467E-01_JPRB,1.6649E+00_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&7.2604E-01_JPRB,6.3550E-01_JPRB,5.4494E-01_JPRB,4.5437E-01_JPRB,3.6385E-01_JPRB,2.8334E-01_JPRB,&
+&2.2702E-01_JPRB,7.2604E-01_JPRB,4.3950E-01_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&6.8954E-01_JPRB,6.0362E-01_JPRB,5.1760E-01_JPRB,4.3356E-01_JPRB,3.5873E-01_JPRB,3.0878E-01_JPRB,&
+&3.1582E-01_JPRB,6.8954E-01_JPRB,6.3380E-01_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&6.5385E-01_JPRB,5.7238E-01_JPRB,4.9126E-01_JPRB,4.2254E-01_JPRB,3.7557E-01_JPRB,4.0304E-01_JPRB,&
+&4.3683E-01_JPRB,6.5385E-01_JPRB,8.8264E-01_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&6.1901E-01_JPRB,5.4191E-01_JPRB,4.7603E-01_JPRB,4.2566E-01_JPRB,4.6990E-01_JPRB,5.3966E-01_JPRB,&
+&5.8392E-01_JPRB,6.1901E-01_JPRB,1.1869E+00_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&5.8653E-01_JPRB,5.1354E-01_JPRB,4.5882E-01_JPRB,4.9733E-01_JPRB,6.1274E-01_JPRB,7.0260E-01_JPRB,&
+&7.5851E-01_JPRB,5.8653E-01_JPRB,1.5549E+00_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&7.7382E-01_JPRB,6.7722E-01_JPRB,5.8077E-01_JPRB,4.8422E-01_JPRB,3.8766E-01_JPRB,2.9794E-01_JPRB,&
+&2.1506E-01_JPRB,7.7382E-01_JPRB,3.8561E-01_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&7.3238E-01_JPRB,6.4104E-01_JPRB,5.4969E-01_JPRB,4.5833E-01_JPRB,3.7818E-01_JPRB,3.0063E-01_JPRB,&
+&2.7269E-01_JPRB,7.3238E-01_JPRB,5.4567E-01_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&6.9409E-01_JPRB,6.0760E-01_JPRB,5.2105E-01_JPRB,4.4727E-01_JPRB,3.7346E-01_JPRB,3.5556E-01_JPRB,&
+&3.8970E-01_JPRB,6.9409E-01_JPRB,7.5575E-01_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&6.5680E-01_JPRB,5.7500E-01_JPRB,5.0421E-01_JPRB,4.3210E-01_JPRB,4.2750E-01_JPRB,4.8792E-01_JPRB,&
+&5.3313E-01_JPRB,6.5680E-01_JPRB,1.0436E+00_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&6.2089E-01_JPRB,5.4362E-01_JPRB,4.8130E-01_JPRB,4.7140E-01_JPRB,5.6311E-01_JPRB,6.4743E-01_JPRB,&
+&7.0793E-01_JPRB,6.2089E-01_JPRB,1.3960E+00_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&8.2229E-01_JPRB,7.1962E-01_JPRB,6.1700E-01_JPRB,5.1439E-01_JPRB,4.1134E-01_JPRB,3.0886E-01_JPRB,&
+&2.1652E-01_JPRB,8.2229E-01_JPRB,3.4617E-01_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&7.7737E-01_JPRB,6.8035E-01_JPRB,5.8334E-01_JPRB,4.8633E-01_JPRB,3.9777E-01_JPRB,3.0668E-01_JPRB,&
+&2.4242E-01_JPRB,7.7737E-01_JPRB,4.8134E-01_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&7.3545E-01_JPRB,6.4364E-01_JPRB,5.5194E-01_JPRB,4.7124E-01_JPRB,3.8457E-01_JPRB,3.2665E-01_JPRB,&
+&3.3917E-01_JPRB,7.3545E-01_JPRB,6.5879E-01_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&6.9572E-01_JPRB,6.0902E-01_JPRB,5.3204E-01_JPRB,4.5117E-01_JPRB,4.0273E-01_JPRB,4.3738E-01_JPRB,&
+&4.7818E-01_JPRB,6.9572E-01_JPRB,9.0069E-01_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&6.5745E-01_JPRB,5.7553E-01_JPRB,5.0705E-01_JPRB,4.6147E-01_JPRB,5.1159E-01_JPRB,5.9239E-01_JPRB,&
+&6.4809E-01_JPRB,6.5745E-01_JPRB,1.2234E+00_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&8.7308E-01_JPRB,7.6408E-01_JPRB,6.5505E-01_JPRB,5.4604E-01_JPRB,4.3705E-01_JPRB,3.2789E-01_JPRB,&
+&2.2557E-01_JPRB,8.7308E-01_JPRB,2.9961E-01_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&8.2540E-01_JPRB,7.2233E-01_JPRB,6.1930E-01_JPRB,5.1628E-01_JPRB,4.1422E-01_JPRB,3.2146E-01_JPRB,&
+&2.2994E-01_JPRB,8.2540E-01_JPRB,4.2262E-01_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&7.7924E-01_JPRB,6.8203E-01_JPRB,5.8479E-01_JPRB,4.9474E-01_JPRB,4.0395E-01_JPRB,3.1715E-01_JPRB,&
+&2.8904E-01_JPRB,7.7924E-01_JPRB,5.7314E-01_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&7.3709E-01_JPRB,6.4513E-01_JPRB,5.5979E-01_JPRB,4.7521E-01_JPRB,3.9636E-01_JPRB,3.8185E-01_JPRB,&
+&4.1862E-01_JPRB,7.3709E-01_JPRB,7.8091E-01_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&6.9621E-01_JPRB,6.0938E-01_JPRB,5.3478E-01_JPRB,4.6425E-01_JPRB,4.6297E-01_JPRB,5.2802E-01_JPRB,&
+&5.8170E-01_JPRB,6.9621E-01_JPRB,1.0527E+00_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&9.2395E-01_JPRB,8.0850E-01_JPRB,6.9306E-01_JPRB,5.7769E-01_JPRB,4.6224E-01_JPRB,3.4691E-01_JPRB,&
+&2.3084E-01_JPRB,9.2395E-01_JPRB,2.5497E-01_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&8.7317E-01_JPRB,7.6415E-01_JPRB,6.5513E-01_JPRB,5.4606E-01_JPRB,4.3714E-01_JPRB,3.3528E-01_JPRB,&
+&2.3202E-01_JPRB,8.7317E-01_JPRB,3.7202E-01_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&8.2438E-01_JPRB,7.2141E-01_JPRB,6.1853E-01_JPRB,5.1767E-01_JPRB,4.2475E-01_JPRB,3.2596E-01_JPRB,&
+&2.5061E-01_JPRB,8.2438E-01_JPRB,5.0761E-01_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&7.7804E-01_JPRB,6.8094E-01_JPRB,5.8814E-01_JPRB,5.0039E-01_JPRB,4.0791E-01_JPRB,3.4702E-01_JPRB,&
+&3.6090E-01_JPRB,7.7804E-01_JPRB,6.8063E-01_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&7.3636E-01_JPRB,6.4448E-01_JPRB,5.6430E-01_JPRB,4.8129E-01_JPRB,4.3569E-01_JPRB,4.6156E-01_JPRB,&
+&5.1425E-01_JPRB,7.3636E-01_JPRB,9.1422E-01_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&9.7397E-01_JPRB,8.5236E-01_JPRB,7.3070E-01_JPRB,6.0905E-01_JPRB,4.8737E-01_JPRB,3.6576E-01_JPRB,&
+&2.4401E-01_JPRB,9.7397E-01_JPRB,2.1663E-01_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&9.2100E-01_JPRB,8.0595E-01_JPRB,6.9096E-01_JPRB,5.7592E-01_JPRB,4.6092E-01_JPRB,3.4695E-01_JPRB,&
+&2.4168E-01_JPRB,9.2100E-01_JPRB,3.2348E-01_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&8.7221E-01_JPRB,7.6329E-01_JPRB,6.5435E-01_JPRB,5.4550E-01_JPRB,4.4631E-01_JPRB,3.4181E-01_JPRB,&
+&2.3826E-01_JPRB,8.7221E-01_JPRB,4.5837E-01_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&8.2606E-01_JPRB,7.2291E-01_JPRB,6.2015E-01_JPRB,5.2779E-01_JPRB,4.2860E-01_JPRB,3.3690E-01_JPRB,&
+&3.1094E-01_JPRB,8.2606E-01_JPRB,6.1646E-01_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&7.8339E-01_JPRB,6.8563E-01_JPRB,5.9715E-01_JPRB,5.0560E-01_JPRB,4.2904E-01_JPRB,4.0836E-01_JPRB,&
+&4.4759E-01_JPRB,7.8339E-01_JPRB,8.2068E-01_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&1.0301E+00_JPRB,9.0147E-01_JPRB,7.7271E-01_JPRB,6.4407E-01_JPRB,5.1534E-01_JPRB,3.8666E-01_JPRB,&
+&2.5795E-01_JPRB,1.0301E+00_JPRB,1.8238E-01_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&9.7820E-01_JPRB,8.5599E-01_JPRB,7.3388E-01_JPRB,6.1168E-01_JPRB,4.8943E-01_JPRB,3.6719E-01_JPRB,&
+&2.5130E-01_JPRB,9.7820E-01_JPRB,2.7990E-01_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&9.2786E-01_JPRB,8.1203E-01_JPRB,6.9612E-01_JPRB,5.8026E-01_JPRB,4.6878E-01_JPRB,3.5884E-01_JPRB,&
+&2.4589E-01_JPRB,9.2786E-01_JPRB,4.0829E-01_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&8.8063E-01_JPRB,7.7081E-01_JPRB,6.6089E-01_JPRB,5.5869E-01_JPRB,4.5326E-01_JPRB,3.4687E-01_JPRB,&
+&2.8154E-01_JPRB,8.8063E-01_JPRB,5.6423E-01_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&8.3750E-01_JPRB,7.3300E-01_JPRB,6.3612E-01_JPRB,5.3674E-01_JPRB,4.4242E-01_JPRB,3.8121E-01_JPRB,&
+&3.9514E-01_JPRB,8.3750E-01_JPRB,7.6101E-01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&1.0910E+00_JPRB,9.5477E-01_JPRB,8.1845E-01_JPRB,6.8213E-01_JPRB,5.4582E-01_JPRB,4.0946E-01_JPRB,&
+&2.7317E-01_JPRB,1.0910E+00_JPRB,2.4894E-01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&1.0359E+00_JPRB,9.0651E-01_JPRB,7.7708E-01_JPRB,6.4767E-01_JPRB,5.1833E-01_JPRB,3.8894E-01_JPRB,&
+&2.6039E-01_JPRB,1.0359E+00_JPRB,2.7831E-01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&9.8652E-01_JPRB,8.6341E-01_JPRB,7.4018E-01_JPRB,6.1698E-01_JPRB,4.9398E-01_JPRB,3.7879E-01_JPRB,&
+&2.6008E-01_JPRB,9.8652E-01_JPRB,3.7798E-01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&9.4211E-01_JPRB,8.2452E-01_JPRB,7.0695E-01_JPRB,5.9553E-01_JPRB,4.8274E-01_JPRB,3.6793E-01_JPRB,&
+&2.7883E-01_JPRB,9.4211E-01_JPRB,5.3013E-01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&9.0248E-01_JPRB,7.8992E-01_JPRB,6.8355E-01_JPRB,5.7648E-01_JPRB,4.7251E-01_JPRB,3.8441E-01_JPRB,&
+&3.6799E-01_JPRB,9.0248E-01_JPRB,7.2595E-01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&1.1319E+00_JPRB,9.9048E-01_JPRB,8.4899E-01_JPRB,7.0760E-01_JPRB,5.6613E-01_JPRB,4.2478E-01_JPRB,&
+&2.8341E-01_JPRB,1.1319E+00_JPRB,6.1592E-01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&1.0823E+00_JPRB,9.4725E-01_JPRB,8.1199E-01_JPRB,6.7675E-01_JPRB,5.4154E-01_JPRB,4.0630E-01_JPRB,&
+&2.7609E-01_JPRB,1.0823E+00_JPRB,6.1773E-01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&1.0367E+00_JPRB,9.0731E-01_JPRB,7.7783E-01_JPRB,6.4834E-01_JPRB,5.2311E-01_JPRB,3.9934E-01_JPRB,&
+&2.8089E-01_JPRB,1.0367E+00_JPRB,6.2937E-01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&9.9754E-01_JPRB,8.7303E-01_JPRB,7.4854E-01_JPRB,6.3329E-01_JPRB,5.1385E-01_JPRB,3.9730E-01_JPRB,&
+&3.1217E-01_JPRB,9.9754E-01_JPRB,6.7492E-01_JPRB/)
+KAO( :, 5,11,14) = (/&
+&9.6377E-01_JPRB,8.4344E-01_JPRB,7.3462E-01_JPRB,6.2175E-01_JPRB,5.1718E-01_JPRB,4.2421E-01_JPRB,&
+&3.9708E-01_JPRB,9.6377E-01_JPRB,8.2165E-01_JPRB/)
+KAO( :, 1,12,14) = (/&
+&1.1865E+00_JPRB,1.0383E+00_JPRB,8.9009E-01_JPRB,7.4185E-01_JPRB,5.9361E-01_JPRB,4.4539E-01_JPRB,&
+&2.9703E-01_JPRB,1.1865E+00_JPRB,1.0367E+00_JPRB/)
+KAO( :, 2,12,14) = (/&
+&1.1417E+00_JPRB,9.9913E-01_JPRB,8.5647E-01_JPRB,7.1379E-01_JPRB,5.7124E-01_JPRB,4.2863E-01_JPRB,&
+&2.9688E-01_JPRB,1.1417E+00_JPRB,1.0233E+00_JPRB/)
+KAO( :, 3,12,14) = (/&
+&1.1032E+00_JPRB,9.6547E-01_JPRB,8.2760E-01_JPRB,6.8985E-01_JPRB,5.6085E-01_JPRB,4.2892E-01_JPRB,&
+&3.0866E-01_JPRB,1.1032E+00_JPRB,1.0143E+00_JPRB/)
+KAO( :, 4,12,14) = (/&
+&1.0706E+00_JPRB,9.3688E-01_JPRB,8.0548E-01_JPRB,6.8453E-01_JPRB,5.5710E-01_JPRB,4.4460E-01_JPRB,&
+&3.4889E-01_JPRB,1.0706E+00_JPRB,1.0266E+00_JPRB/)
+KAO( :, 5,12,14) = (/&
+&1.0446E+00_JPRB,9.1422E-01_JPRB,8.0059E-01_JPRB,6.8230E-01_JPRB,5.7500E-01_JPRB,4.7448E-01_JPRB,&
+&4.2513E-01_JPRB,1.0446E+00_JPRB,1.0801E+00_JPRB/)
+KAO( :, 1,13,14) = (/&
+&1.2550E+00_JPRB,1.0982E+00_JPRB,9.4143E-01_JPRB,7.8461E-01_JPRB,6.2776E-01_JPRB,4.7103E-01_JPRB,&
+&3.1423E-01_JPRB,1.2550E+00_JPRB,1.4399E+00_JPRB/)
+KAO( :, 2,13,14) = (/&
+&1.2174E+00_JPRB,1.0653E+00_JPRB,9.1318E-01_JPRB,7.6114E-01_JPRB,6.0904E-01_JPRB,4.6025E-01_JPRB,&
+&3.2716E-01_JPRB,1.2174E+00_JPRB,1.4068E+00_JPRB/)
+KAO( :, 3,13,14) = (/&
+&1.1864E+00_JPRB,1.0381E+00_JPRB,8.9001E-01_JPRB,7.4479E-01_JPRB,6.0816E-01_JPRB,4.7143E-01_JPRB,&
+&3.4454E-01_JPRB,1.1864E+00_JPRB,1.3882E+00_JPRB/)
+KAO( :, 4,13,14) = (/&
+&1.1616E+00_JPRB,1.0165E+00_JPRB,8.7886E-01_JPRB,7.4766E-01_JPRB,6.1245E-01_JPRB,5.0020E-01_JPRB,&
+&3.8828E-01_JPRB,1.1616E+00_JPRB,1.3917E+00_JPRB/)
+KAO( :, 5,13,14) = (/&
+&1.1397E+00_JPRB,9.9781E-01_JPRB,8.7736E-01_JPRB,7.5469E-01_JPRB,6.4460E-01_JPRB,5.3210E-01_JPRB,&
+&4.5910E-01_JPRB,1.1397E+00_JPRB,1.4042E+00_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&6.7013E-01_JPRB,5.8657E-01_JPRB,5.0312E-01_JPRB,4.1845E-01_JPRB,3.3604E-01_JPRB,3.2447E-01_JPRB,&
+&3.1596E-01_JPRB,6.7013E-01_JPRB,1.0209E+00_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&6.3713E-01_JPRB,5.5910E-01_JPRB,4.7959E-01_JPRB,4.0042E-01_JPRB,4.3246E-01_JPRB,4.5455E-01_JPRB,&
+&4.4491E-01_JPRB,6.3714E-01_JPRB,1.4151E+00_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&6.0413E-01_JPRB,5.2881E-01_JPRB,4.5365E-01_JPRB,5.1141E-01_JPRB,5.7932E-01_JPRB,6.0400E-01_JPRB,&
+&5.9194E-01_JPRB,6.0413E-01_JPRB,1.8935E+00_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&5.7379E-01_JPRB,5.0236E-01_JPRB,5.0998E-01_JPRB,6.6283E-01_JPRB,7.5577E-01_JPRB,7.9134E-01_JPRB,&
+&7.7383E-01_JPRB,5.7379E-01_JPRB,2.4386E+00_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&5.4412E-01_JPRB,4.7644E-01_JPRB,6.4179E-01_JPRB,8.3374E-01_JPRB,9.4901E-01_JPRB,9.9647E-01_JPRB,&
+&9.6829E-01_JPRB,5.4412E-01_JPRB,3.0668E+00_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&7.1168E-01_JPRB,6.2291E-01_JPRB,5.3428E-01_JPRB,4.4560E-01_JPRB,3.5787E-01_JPRB,3.3695E-01_JPRB,&
+&3.3151E-01_JPRB,7.1168E-01_JPRB,1.0408E+00_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&6.7551E-01_JPRB,5.8980E-01_JPRB,5.0589E-01_JPRB,4.2379E-01_JPRB,4.5484E-01_JPRB,4.7493E-01_JPRB,&
+&4.6615E-01_JPRB,6.7551E-01_JPRB,1.4628E+00_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&6.3979E-01_JPRB,5.6002E-01_JPRB,4.8033E-01_JPRB,5.3992E-01_JPRB,6.1725E-01_JPRB,6.4789E-01_JPRB,&
+&6.3640E-01_JPRB,6.3979E-01_JPRB,1.9740E+00_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&6.0574E-01_JPRB,5.3026E-01_JPRB,5.4102E-01_JPRB,7.0781E-01_JPRB,8.0810E-01_JPRB,8.5154E-01_JPRB,&
+&8.3777E-01_JPRB,6.0574E-01_JPRB,2.5770E+00_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&5.7367E-01_JPRB,5.0230E-01_JPRB,6.8564E-01_JPRB,8.9765E-01_JPRB,1.0319E+00_JPRB,1.0843E+00_JPRB,&
+&1.0692E+00_JPRB,5.7367E-01_JPRB,3.2665E+00_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&7.6206E-01_JPRB,6.6694E-01_JPRB,5.7209E-01_JPRB,4.7696E-01_JPRB,3.8092E-01_JPRB,3.2070E-01_JPRB,&
+&3.1660E-01_JPRB,7.6206E-01_JPRB,9.6051E-01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&7.2225E-01_JPRB,6.3222E-01_JPRB,5.4222E-01_JPRB,4.5212E-01_JPRB,4.4022E-01_JPRB,4.6467E-01_JPRB,&
+&4.5854E-01_JPRB,7.2225E-01_JPRB,1.3827E+00_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&6.8319E-01_JPRB,5.9821E-01_JPRB,5.1315E-01_JPRB,5.2942E-01_JPRB,6.1251E-01_JPRB,6.4502E-01_JPRB,&
+&6.3732E-01_JPRB,6.8319E-01_JPRB,1.9060E+00_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&6.4520E-01_JPRB,5.6501E-01_JPRB,5.4637E-01_JPRB,7.0565E-01_JPRB,8.1836E-01_JPRB,8.6755E-01_JPRB,&
+&8.5856E-01_JPRB,6.4520E-01_JPRB,2.5416E+00_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&6.1032E-01_JPRB,5.3440E-01_JPRB,6.8762E-01_JPRB,9.1192E-01_JPRB,1.0544E+00_JPRB,1.1220E+00_JPRB,&
+&1.1118E+00_JPRB,6.1032E-01_JPRB,3.2899E+00_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&8.1880E-01_JPRB,7.1671E-01_JPRB,6.1469E-01_JPRB,5.1259E-01_JPRB,4.1035E-01_JPRB,3.0900E-01_JPRB,&
+&2.8774E-01_JPRB,8.1880E-01_JPRB,8.3214E-01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&7.7244E-01_JPRB,6.7627E-01_JPRB,5.8000E-01_JPRB,4.8371E-01_JPRB,4.1707E-01_JPRB,4.3611E-01_JPRB,&
+&4.3242E-01_JPRB,7.7244E-01_JPRB,1.2349E+00_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&7.3041E-01_JPRB,6.3939E-01_JPRB,5.4855E-01_JPRB,5.1182E-01_JPRB,5.8284E-01_JPRB,6.2247E-01_JPRB,&
+&6.1822E-01_JPRB,7.3041E-01_JPRB,1.7591E+00_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&6.8937E-01_JPRB,6.0366E-01_JPRB,5.5228E-01_JPRB,6.8053E-01_JPRB,7.9580E-01_JPRB,8.4999E-01_JPRB,&
+&8.5210E-01_JPRB,6.8937E-01_JPRB,2.4071E+00_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&6.5021E-01_JPRB,5.6936E-01_JPRB,6.6656E-01_JPRB,8.9418E-01_JPRB,1.0485E+00_JPRB,1.1290E+00_JPRB,&
+&1.1228E+00_JPRB,6.5021E-01_JPRB,3.1879E+00_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&8.7693E-01_JPRB,7.6771E-01_JPRB,6.5835E-01_JPRB,5.4884E-01_JPRB,4.4068E-01_JPRB,3.3005E-01_JPRB,&
+&2.5822E-01_JPRB,8.7693E-01_JPRB,6.9752E-01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&8.2534E-01_JPRB,7.2250E-01_JPRB,6.1982E-01_JPRB,5.1679E-01_JPRB,4.1772E-01_JPRB,4.0063E-01_JPRB,&
+&4.0196E-01_JPRB,8.2534E-01_JPRB,1.0779E+00_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&7.7811E-01_JPRB,6.8129E-01_JPRB,5.8442E-01_JPRB,5.0960E-01_JPRB,5.4382E-01_JPRB,5.8808E-01_JPRB,&
+&5.9145E-01_JPRB,7.7811E-01_JPRB,1.5826E+00_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&7.3361E-01_JPRB,6.4251E-01_JPRB,5.6661E-01_JPRB,6.4134E-01_JPRB,7.5938E-01_JPRB,8.2208E-01_JPRB,&
+&8.2942E-01_JPRB,7.3361E-01_JPRB,2.2230E+00_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&6.9110E-01_JPRB,6.0518E-01_JPRB,6.5033E-01_JPRB,8.5838E-01_JPRB,1.0195E+00_JPRB,1.1130E+00_JPRB,&
+&1.1201E+00_JPRB,6.9110E-01_JPRB,3.0082E+00_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&9.3756E-01_JPRB,8.2068E-01_JPRB,7.0383E-01_JPRB,5.8672E-01_JPRB,4.6972E-01_JPRB,3.5270E-01_JPRB,&
+&2.3642E-01_JPRB,9.3756E-01_JPRB,5.8692E-01_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&8.8146E-01_JPRB,7.7172E-01_JPRB,6.6172E-01_JPRB,5.5196E-01_JPRB,4.4195E-01_JPRB,3.6409E-01_JPRB,&
+&3.5917E-01_JPRB,8.8146E-01_JPRB,9.0877E-01_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&8.2746E-01_JPRB,7.2459E-01_JPRB,6.2157E-01_JPRB,5.2255E-01_JPRB,4.9923E-01_JPRB,5.3612E-01_JPRB,&
+&5.4635E-01_JPRB,8.2746E-01_JPRB,1.3807E+00_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&7.7986E-01_JPRB,6.8286E-01_JPRB,5.9009E-01_JPRB,6.0449E-01_JPRB,7.0052E-01_JPRB,7.7068E-01_JPRB,&
+&7.9084E-01_JPRB,7.7986E-01_JPRB,1.9934E+00_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&7.3459E-01_JPRB,6.4331E-01_JPRB,6.4051E-01_JPRB,8.0328E-01_JPRB,9.6129E-01_JPRB,1.0614E+00_JPRB,&
+&1.0888E+00_JPRB,7.3459E-01_JPRB,2.7652E+00_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&1.0010E+00_JPRB,8.7619E-01_JPRB,7.5131E-01_JPRB,6.2639E-01_JPRB,5.0149E-01_JPRB,3.7652E-01_JPRB,&
+&2.5149E-01_JPRB,1.0010E+00_JPRB,5.1478E-01_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&9.4042E-01_JPRB,8.2317E-01_JPRB,7.0607E-01_JPRB,5.8870E-01_JPRB,4.7134E-01_JPRB,3.5775E-01_JPRB,&
+&3.1227E-01_JPRB,9.4042E-01_JPRB,7.6928E-01_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&8.8237E-01_JPRB,7.7255E-01_JPRB,6.6259E-01_JPRB,5.5268E-01_JPRB,4.7859E-01_JPRB,4.7554E-01_JPRB,&
+&4.9216E-01_JPRB,8.8237E-01_JPRB,1.1825E+00_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&8.2933E-01_JPRB,7.2604E-01_JPRB,6.2305E-01_JPRB,5.8548E-01_JPRB,6.3044E-01_JPRB,7.0378E-01_JPRB,&
+&7.3153E-01_JPRB,8.2933E-01_JPRB,1.7634E+00_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&7.8131E-01_JPRB,6.8426E-01_JPRB,6.4094E-01_JPRB,7.3798E-01_JPRB,8.8857E-01_JPRB,9.9138E-01_JPRB,&
+&1.0340E+00_JPRB,7.8131E-01_JPRB,2.5071E+00_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&1.0680E+00_JPRB,9.3481E-01_JPRB,8.0158E-01_JPRB,6.6826E-01_JPRB,5.3482E-01_JPRB,4.0154E-01_JPRB,&
+&2.6788E-01_JPRB,1.0680E+00_JPRB,4.6455E-01_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&1.0024E+00_JPRB,8.7742E-01_JPRB,7.5246E-01_JPRB,6.2743E-01_JPRB,5.0223E-01_JPRB,3.7717E-01_JPRB,&
+&2.7719E-01_JPRB,1.0024E+00_JPRB,6.8110E-01_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&9.4024E-01_JPRB,8.2314E-01_JPRB,7.0609E-01_JPRB,5.8881E-01_JPRB,4.8025E-01_JPRB,4.2864E-01_JPRB,&
+&4.3393E-01_JPRB,9.4024E-01_JPRB,1.0170E+00_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&8.8264E-01_JPRB,7.7273E-01_JPRB,6.6282E-01_JPRB,5.8404E-01_JPRB,5.7821E-01_JPRB,6.2771E-01_JPRB,&
+&6.6458E-01_JPRB,8.8264E-01_JPRB,1.5302E+00_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&8.3199E-01_JPRB,7.2845E-01_JPRB,6.5427E-01_JPRB,6.8741E-01_JPRB,8.0945E-01_JPRB,9.0978E-01_JPRB,&
+&9.6418E-01_JPRB,8.3199E-01_JPRB,2.2337E+00_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&1.1381E+00_JPRB,9.9610E-01_JPRB,8.5409E-01_JPRB,7.1197E-01_JPRB,5.6977E-01_JPRB,4.2770E-01_JPRB,&
+&2.8544E-01_JPRB,1.1381E+00_JPRB,4.2382E-01_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&1.0667E+00_JPRB,9.3372E-01_JPRB,8.0061E-01_JPRB,6.6744E-01_JPRB,5.3433E-01_JPRB,4.0118E-01_JPRB,&
+&2.6997E-01_JPRB,1.0667E+00_JPRB,6.1324E-01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&1.0035E+00_JPRB,8.7845E-01_JPRB,7.5330E-01_JPRB,6.2805E-01_JPRB,5.0276E-01_JPRB,4.0704E-01_JPRB,&
+&3.7170E-01_JPRB,1.0035E+00_JPRB,9.0055E-01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&9.4646E-01_JPRB,8.2850E-01_JPRB,7.1051E-01_JPRB,6.0313E-01_JPRB,5.4959E-01_JPRB,5.4972E-01_JPRB,&
+&5.8769E-01_JPRB,9.4646E-01_JPRB,1.3351E+00_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&8.9740E-01_JPRB,7.8559E-01_JPRB,6.8592E-01_JPRB,6.6573E-01_JPRB,7.2528E-01_JPRB,8.1924E-01_JPRB,&
+&8.7543E-01_JPRB,8.9740E-01_JPRB,1.9504E+00_JPRB/)
+KAO( :, 1,10,15) = (/&
+&1.2073E+00_JPRB,1.0565E+00_JPRB,9.0576E-01_JPRB,7.5488E-01_JPRB,6.0419E-01_JPRB,4.5329E-01_JPRB,&
+&3.0227E-01_JPRB,1.2073E+00_JPRB,3.9999E-01_JPRB/)
+KAO( :, 2,10,15) = (/&
+&1.1382E+00_JPRB,9.9608E-01_JPRB,8.5413E-01_JPRB,7.1184E-01_JPRB,5.6976E-01_JPRB,4.2763E-01_JPRB,&
+&2.8536E-01_JPRB,1.1382E+00_JPRB,5.7883E-01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&1.0785E+00_JPRB,9.4391E-01_JPRB,8.0923E-01_JPRB,6.7459E-01_JPRB,5.3984E-01_JPRB,4.1488E-01_JPRB,&
+&3.3805E-01_JPRB,1.0785E+00_JPRB,8.3839E-01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&1.0278E+00_JPRB,8.9961E-01_JPRB,7.7127E-01_JPRB,6.4730E-01_JPRB,5.5430E-01_JPRB,5.1106E-01_JPRB,&
+&5.2425E-01_JPRB,1.0278E+00_JPRB,1.2284E+00_JPRB/)
+KAO( :, 5,10,15) = (/&
+&9.8618E-01_JPRB,8.6326E-01_JPRB,7.4679E-01_JPRB,6.7988E-01_JPRB,6.7637E-01_JPRB,7.4989E-01_JPRB,&
+&8.0479E-01_JPRB,9.8618E-01_JPRB,1.7791E+00_JPRB/)
+KAO( :, 1,11,15) = (/&
+&1.2644E+00_JPRB,1.1063E+00_JPRB,9.4846E-01_JPRB,7.9047E-01_JPRB,6.3247E-01_JPRB,4.7453E-01_JPRB,&
+&3.1659E-01_JPRB,1.2644E+00_JPRB,7.4298E-01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&1.2071E+00_JPRB,1.0565E+00_JPRB,9.0557E-01_JPRB,7.5491E-01_JPRB,6.0392E-01_JPRB,4.5270E-01_JPRB,&
+&3.0399E-01_JPRB,1.2071E+00_JPRB,8.1705E-01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&1.1615E+00_JPRB,1.0165E+00_JPRB,8.7147E-01_JPRB,7.2637E-01_JPRB,5.8138E-01_JPRB,4.5624E-01_JPRB,&
+&3.7840E-01_JPRB,1.1615E+00_JPRB,9.7765E-01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&1.1264E+00_JPRB,9.8590E-01_JPRB,8.4531E-01_JPRB,7.1438E-01_JPRB,6.1502E-01_JPRB,5.6197E-01_JPRB,&
+&5.7803E-01_JPRB,1.1264E+00_JPRB,1.3520E+00_JPRB/)
+KAO( :, 5,11,15) = (/&
+&1.0994E+00_JPRB,9.6216E-01_JPRB,8.3568E-01_JPRB,7.5689E-01_JPRB,7.4680E-01_JPRB,8.2884E-01_JPRB,&
+&8.8880E-01_JPRB,1.0994E+00_JPRB,1.9292E+00_JPRB/)
+KAO( :, 1,12,15) = (/&
+&1.3647E+00_JPRB,1.1941E+00_JPRB,1.0237E+00_JPRB,8.5312E-01_JPRB,6.8264E-01_JPRB,5.1188E-01_JPRB,&
+&3.4108E-01_JPRB,1.3647E+00_JPRB,1.2788E+00_JPRB/)
+KAO( :, 2,12,15) = (/&
+&1.3242E+00_JPRB,1.1588E+00_JPRB,9.9341E-01_JPRB,8.2794E-01_JPRB,6.6255E-01_JPRB,4.9690E-01_JPRB,&
+&3.3841E-01_JPRB,1.3242E+00_JPRB,1.2778E+00_JPRB/)
+KAO( :, 3,12,15) = (/&
+&1.2955E+00_JPRB,1.1336E+00_JPRB,9.7197E-01_JPRB,8.1003E-01_JPRB,6.5411E-01_JPRB,5.1488E-01_JPRB,&
+&4.3081E-01_JPRB,1.2955E+00_JPRB,1.3626E+00_JPRB/)
+KAO( :, 4,12,15) = (/&
+&1.2745E+00_JPRB,1.1153E+00_JPRB,9.5614E-01_JPRB,8.1202E-01_JPRB,6.9456E-01_JPRB,6.2323E-01_JPRB,&
+&6.4228E-01_JPRB,1.2745E+00_JPRB,1.6020E+00_JPRB/)
+KAO( :, 5,12,15) = (/&
+&1.2602E+00_JPRB,1.1028E+00_JPRB,9.6134E-01_JPRB,8.5786E-01_JPRB,8.3175E-01_JPRB,9.1010E-01_JPRB,&
+&9.8660E-01_JPRB,1.2602E+00_JPRB,2.1013E+00_JPRB/)
+KAO( :, 1,13,15) = (/&
+&1.5182E+00_JPRB,1.3286E+00_JPRB,1.1388E+00_JPRB,9.4918E-01_JPRB,7.5925E-01_JPRB,5.6967E-01_JPRB,&
+&3.7977E-01_JPRB,1.5182E+00_JPRB,1.8162E+00_JPRB/)
+KAO( :, 2,13,15) = (/&
+&1.4954E+00_JPRB,1.3087E+00_JPRB,1.1217E+00_JPRB,9.3496E-01_JPRB,7.4798E-01_JPRB,5.6069E-01_JPRB,&
+&3.8653E-01_JPRB,1.4954E+00_JPRB,1.7757E+00_JPRB/)
+KAO( :, 3,13,15) = (/&
+&1.4806E+00_JPRB,1.2956E+00_JPRB,1.1104E+00_JPRB,9.2545E-01_JPRB,7.5238E-01_JPRB,5.8983E-01_JPRB,&
+&4.8997E-01_JPRB,1.4806E+00_JPRB,1.8395E+00_JPRB/)
+KAO( :, 4,13,15) = (/&
+&1.4707E+00_JPRB,1.2870E+00_JPRB,1.1033E+00_JPRB,9.3978E-01_JPRB,7.9436E-01_JPRB,6.9884E-01_JPRB,&
+&7.1743E-01_JPRB,1.4707E+00_JPRB,1.9733E+00_JPRB/)
+KAO( :, 5,13,15) = (/&
+&1.4617E+00_JPRB,1.2790E+00_JPRB,1.1197E+00_JPRB,9.8344E-01_JPRB,9.3195E-01_JPRB,9.9536E-01_JPRB,&
+&1.0841E+00_JPRB,1.4617E+00_JPRB,2.3960E+00_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&6.7204E-01_JPRB,5.8835E-01_JPRB,4.9493E-01_JPRB,4.2075E-01_JPRB,3.2404E-01_JPRB,3.2835E-01_JPRB,&
+&3.1694E-01_JPRB,6.7204E-01_JPRB,1.1553E+00_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&6.3886E-01_JPRB,5.4837E-01_JPRB,4.7048E-01_JPRB,4.0570E-01_JPRB,4.5211E-01_JPRB,4.4664E-01_JPRB,&
+&4.2417E-01_JPRB,6.3887E-01_JPRB,1.6108E+00_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&6.0571E-01_JPRB,5.3024E-01_JPRB,4.5482E-01_JPRB,5.4623E-01_JPRB,6.0722E-01_JPRB,6.1523E-01_JPRB,&
+&6.0675E-01_JPRB,6.0571E-01_JPRB,2.1229E+00_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&5.7537E-01_JPRB,5.0361E-01_JPRB,5.5977E-01_JPRB,6.9780E-01_JPRB,7.7428E-01_JPRB,7.8387E-01_JPRB,&
+&7.5743E-01_JPRB,5.7537E-01_JPRB,2.8238E+00_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&5.4532E-01_JPRB,4.7762E-01_JPRB,7.0785E-01_JPRB,8.9753E-01_JPRB,9.9932E-01_JPRB,1.0137E+00_JPRB,&
+&1.0005E+00_JPRB,5.4532E-01_JPRB,3.5639E+00_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&7.1419E-01_JPRB,6.2513E-01_JPRB,5.3613E-01_JPRB,4.4716E-01_JPRB,3.5137E-01_JPRB,3.4275E-01_JPRB,&
+&3.2618E-01_JPRB,7.1419E-01_JPRB,1.2386E+00_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&6.7776E-01_JPRB,5.9352E-01_JPRB,5.0900E-01_JPRB,4.3513E-01_JPRB,4.7304E-01_JPRB,4.9853E-01_JPRB,&
+&4.7175E-01_JPRB,6.7776E-01_JPRB,1.7603E+00_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&6.4195E-01_JPRB,5.6188E-01_JPRB,4.8194E-01_JPRB,5.9011E-01_JPRB,6.5773E-01_JPRB,6.7703E-01_JPRB,&
+&6.5466E-01_JPRB,6.4195E-01_JPRB,2.4018E+00_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&6.0760E-01_JPRB,5.3187E-01_JPRB,6.1665E-01_JPRB,7.6305E-01_JPRB,8.6650E-01_JPRB,8.7779E-01_JPRB,&
+&8.4546E-01_JPRB,6.0760E-01_JPRB,3.1623E+00_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&5.7557E-01_JPRB,5.0389E-01_JPRB,7.8645E-01_JPRB,9.9605E-01_JPRB,1.1101E+00_JPRB,1.1441E+00_JPRB,&
+&1.0872E+00_JPRB,5.7557E-01_JPRB,4.0554E+00_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&7.6539E-01_JPRB,6.6993E-01_JPRB,5.7468E-01_JPRB,4.7908E-01_JPRB,3.8366E-01_JPRB,3.3164E-01_JPRB,&
+&3.1419E-01_JPRB,7.6539E-01_JPRB,1.2218E+00_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&7.2520E-01_JPRB,6.3496E-01_JPRB,5.4460E-01_JPRB,4.5403E-01_JPRB,4.7919E-01_JPRB,4.8518E-01_JPRB,&
+&4.6775E-01_JPRB,7.2520E-01_JPRB,1.7874E+00_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&6.8607E-01_JPRB,6.0066E-01_JPRB,5.1535E-01_JPRB,6.0192E-01_JPRB,6.5742E-01_JPRB,6.8742E-01_JPRB,&
+&6.6482E-01_JPRB,6.8607E-01_JPRB,2.4947E+00_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&6.4786E-01_JPRB,5.6724E-01_JPRB,6.3678E-01_JPRB,8.0813E-01_JPRB,8.8359E-01_JPRB,9.1109E-01_JPRB,&
+&8.7792E-01_JPRB,6.4786E-01_JPRB,3.3575E+00_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&6.1260E-01_JPRB,5.3649E-01_JPRB,8.2910E-01_JPRB,1.0492E+00_JPRB,1.1703E+00_JPRB,1.2063E+00_JPRB,&
+&1.1675E+00_JPRB,6.1260E-01_JPRB,4.3791E+00_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&8.2264E-01_JPRB,7.2018E-01_JPRB,6.1760E-01_JPRB,5.1504E-01_JPRB,4.1228E-01_JPRB,3.1403E-01_JPRB,&
+&3.0330E-01_JPRB,8.2264E-01_JPRB,1.1500E+00_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&7.7591E-01_JPRB,6.7905E-01_JPRB,5.8222E-01_JPRB,4.8587E-01_JPRB,4.6170E-01_JPRB,4.7497E-01_JPRB,&
+&4.5862E-01_JPRB,7.7591E-01_JPRB,1.7280E+00_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&7.3290E-01_JPRB,6.4193E-01_JPRB,5.5048E-01_JPRB,5.9279E-01_JPRB,6.6051E-01_JPRB,6.8079E-01_JPRB,&
+&6.5994E-01_JPRB,7.3290E-01_JPRB,2.4901E+00_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&6.9170E-01_JPRB,6.0563E-01_JPRB,6.4428E-01_JPRB,8.1421E-01_JPRB,9.0809E-01_JPRB,9.3805E-01_JPRB,&
+&8.9044E-01_JPRB,6.9170E-01_JPRB,3.4202E+00_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&6.5200E-01_JPRB,5.7086E-01_JPRB,8.5544E-01_JPRB,1.0841E+00_JPRB,1.2072E+00_JPRB,1.2191E+00_JPRB,&
+&1.2042E+00_JPRB,6.5200E-01_JPRB,4.5618E+00_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&8.8181E-01_JPRB,7.7179E-01_JPRB,6.6204E-01_JPRB,5.5199E-01_JPRB,4.3343E-01_JPRB,3.3186E-01_JPRB,&
+&2.7727E-01_JPRB,8.8181E-01_JPRB,1.0520E+00_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&8.2952E-01_JPRB,7.2638E-01_JPRB,6.2324E-01_JPRB,5.1947E-01_JPRB,4.3588E-01_JPRB,4.4832E-01_JPRB,&
+&4.3512E-01_JPRB,8.2952E-01_JPRB,1.6494E+00_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&7.8170E-01_JPRB,6.8471E-01_JPRB,5.8732E-01_JPRB,5.7928E-01_JPRB,6.4579E-01_JPRB,6.6360E-01_JPRB,&
+&6.4439E-01_JPRB,7.8170E-01_JPRB,2.4300E+00_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&7.3700E-01_JPRB,6.4559E-01_JPRB,6.4470E-01_JPRB,8.1536E-01_JPRB,9.1269E-01_JPRB,9.3873E-01_JPRB,&
+&9.0753E-01_JPRB,7.3700E-01_JPRB,3.4492E+00_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&6.9437E-01_JPRB,6.0807E-01_JPRB,8.7385E-01_JPRB,1.1073E+00_JPRB,1.2374E+00_JPRB,1.2510E+00_JPRB,&
+&1.2316E+00_JPRB,6.9437E-01_JPRB,4.6799E+00_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&9.4656E-01_JPRB,8.2884E-01_JPRB,7.1064E-01_JPRB,5.9233E-01_JPRB,4.7420E-01_JPRB,3.5608E-01_JPRB,&
+&2.4362E-01_JPRB,9.4656E-01_JPRB,9.2837E-01_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&8.9042E-01_JPRB,7.7970E-01_JPRB,6.6875E-01_JPRB,5.5799E-01_JPRB,4.4670E-01_JPRB,4.1251E-01_JPRB,&
+&4.0025E-01_JPRB,8.9042E-01_JPRB,1.5112E+00_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&8.3666E-01_JPRB,7.3284E-01_JPRB,6.2869E-01_JPRB,5.5096E-01_JPRB,6.1404E-01_JPRB,6.3375E-01_JPRB,&
+&6.1412E-01_JPRB,8.3666E-01_JPRB,2.3236E+00_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&7.8888E-01_JPRB,6.9101E-01_JPRB,6.2966E-01_JPRB,7.9961E-01_JPRB,8.9414E-01_JPRB,9.2254E-01_JPRB,&
+&8.7581E-01_JPRB,7.8888E-01_JPRB,3.3711E+00_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&7.4306E-01_JPRB,6.5113E-01_JPRB,8.7601E-01_JPRB,1.1131E+00_JPRB,1.2418E+00_JPRB,1.2838E+00_JPRB,&
+&1.2412E+00_JPRB,7.4306E-01_JPRB,4.6947E+00_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&1.0141E+00_JPRB,8.8774E-01_JPRB,7.6121E-01_JPRB,6.3477E-01_JPRB,5.0825E-01_JPRB,3.8150E-01_JPRB,&
+&2.5476E-01_JPRB,1.0141E+00_JPRB,7.9663E-01_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&9.5399E-01_JPRB,8.3513E-01_JPRB,7.1620E-01_JPRB,5.9743E-01_JPRB,4.7818E-01_JPRB,3.7373E-01_JPRB,&
+&3.6192E-01_JPRB,9.5399E-01_JPRB,1.3655E+00_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&8.9634E-01_JPRB,7.8499E-01_JPRB,6.7347E-01_JPRB,5.6171E-01_JPRB,5.7673E-01_JPRB,5.9473E-01_JPRB,&
+&5.7642E-01_JPRB,8.9634E-01_JPRB,2.1680E+00_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&8.4326E-01_JPRB,7.3869E-01_JPRB,6.3388E-01_JPRB,7.7423E-01_JPRB,8.6537E-01_JPRB,8.9227E-01_JPRB,&
+&8.6433E-01_JPRB,8.4326E-01_JPRB,3.2604E+00_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&7.9491E-01_JPRB,6.9647E-01_JPRB,8.6797E-01_JPRB,1.1053E+00_JPRB,1.2365E+00_JPRB,1.2774E+00_JPRB,&
+&1.2375E+00_JPRB,7.9491E-01_JPRB,4.6484E+00_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&1.0826E+00_JPRB,9.4750E-01_JPRB,8.1241E-01_JPRB,6.7724E-01_JPRB,5.4220E-01_JPRB,4.0687E-01_JPRB,&
+&2.7135E-01_JPRB,1.0826E+00_JPRB,6.7305E-01_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&1.0187E+00_JPRB,8.9193E-01_JPRB,7.6505E-01_JPRB,6.3785E-01_JPRB,5.1061E-01_JPRB,3.8339E-01_JPRB,&
+&3.2268E-01_JPRB,1.0187E+00_JPRB,1.2085E+00_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&9.5858E-01_JPRB,8.3946E-01_JPRB,7.2017E-01_JPRB,6.0051E-01_JPRB,5.3532E-01_JPRB,5.5217E-01_JPRB,&
+&5.3452E-01_JPRB,9.5858E-01_JPRB,2.0055E+00_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&9.0233E-01_JPRB,7.9038E-01_JPRB,6.7816E-01_JPRB,7.4178E-01_JPRB,8.2987E-01_JPRB,8.5828E-01_JPRB,&
+&8.2989E-01_JPRB,9.0233E-01_JPRB,3.1045E+00_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&8.5134E-01_JPRB,7.4583E-01_JPRB,8.5421E-01_JPRB,1.0895E+00_JPRB,1.2207E+00_JPRB,1.2603E+00_JPRB,&
+&1.2206E+00_JPRB,8.5134E-01_JPRB,4.5597E+00_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&1.1564E+00_JPRB,1.0121E+00_JPRB,8.6800E-01_JPRB,7.2367E-01_JPRB,5.7876E-01_JPRB,4.3457E-01_JPRB,&
+&2.8981E-01_JPRB,1.1564E+00_JPRB,5.5525E-01_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&1.0903E+00_JPRB,9.5491E-01_JPRB,8.1871E-01_JPRB,6.8281E-01_JPRB,5.4658E-01_JPRB,4.0983E-01_JPRB,&
+&2.8183E-01_JPRB,1.0903E+00_JPRB,1.0488E+00_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&1.0293E+00_JPRB,9.0147E-01_JPRB,7.7309E-01_JPRB,6.4495E-01_JPRB,5.1624E-01_JPRB,5.0522E-01_JPRB,&
+&4.8904E-01_JPRB,1.0293E+00_JPRB,1.8131E+00_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&9.7173E-01_JPRB,8.5120E-01_JPRB,7.3048E-01_JPRB,7.0120E-01_JPRB,7.8672E-01_JPRB,8.1370E-01_JPRB,&
+&7.8991E-01_JPRB,9.7173E-01_JPRB,2.9196E+00_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&9.1923E-01_JPRB,8.0514E-01_JPRB,8.3021E-01_JPRB,1.0615E+00_JPRB,1.1921E+00_JPRB,1.2331E+00_JPRB,&
+&1.1982E+00_JPRB,9.1923E-01_JPRB,4.4066E+00_JPRB/)
+KAO( :, 1,10,16) = (/&
+&1.2374E+00_JPRB,1.0830E+00_JPRB,9.2878E-01_JPRB,7.7400E-01_JPRB,6.1971E-01_JPRB,4.6496E-01_JPRB,&
+&3.0999E-01_JPRB,1.2374E+00_JPRB,5.8062E-01_JPRB/)
+KAO( :, 2,10,16) = (/&
+&1.1711E+00_JPRB,1.0252E+00_JPRB,8.7935E-01_JPRB,7.3302E-01_JPRB,5.8682E-01_JPRB,4.4044E-01_JPRB,&
+&2.9397E-01_JPRB,1.1711E+00_JPRB,9.3348E-01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&1.1097E+00_JPRB,9.7179E-01_JPRB,8.3349E-01_JPRB,6.9517E-01_JPRB,5.5660E-01_JPRB,4.7411E-01_JPRB,&
+&4.6026E-01_JPRB,1.1097E+00_JPRB,1.6848E+00_JPRB/)
+KAO( :, 4,10,16) = (/&
+&1.0572E+00_JPRB,9.2545E-01_JPRB,7.9343E-01_JPRB,6.8000E-01_JPRB,7.6310E-01_JPRB,7.9077E-01_JPRB,&
+&7.6860E-01_JPRB,1.0572E+00_JPRB,2.7940E+00_JPRB/)
+KAO( :, 5,10,16) = (/&
+&1.0175E+00_JPRB,8.9035E-01_JPRB,8.2349E-01_JPRB,1.0563E+00_JPRB,1.1865E+00_JPRB,1.2328E+00_JPRB,&
+&1.1994E+00_JPRB,1.0175E+00_JPRB,4.3373E+00_JPRB/)
+KAO( :, 1,11,16) = (/&
+&1.3078E+00_JPRB,1.1446E+00_JPRB,9.8121E-01_JPRB,8.1822E-01_JPRB,6.5451E-01_JPRB,4.9148E-01_JPRB,&
+&3.2796E-01_JPRB,1.3078E+00_JPRB,8.7955E-01_JPRB/)
+KAO( :, 2,11,16) = (/&
+&1.2495E+00_JPRB,1.0937E+00_JPRB,9.3769E-01_JPRB,7.8176E-01_JPRB,6.2549E-01_JPRB,4.6880E-01_JPRB,&
+&3.1026E-01_JPRB,1.2495E+00_JPRB,1.1103E+00_JPRB/)
+KAO( :, 3,11,16) = (/&
+&1.2067E+00_JPRB,1.0559E+00_JPRB,9.0509E-01_JPRB,7.5401E-01_JPRB,6.0340E-01_JPRB,5.7377E-01_JPRB,&
+&5.5854E-01_JPRB,1.2067E+00_JPRB,1.9965E+00_JPRB/)
+KAO( :, 4,11,16) = (/&
+&1.1748E+00_JPRB,1.0281E+00_JPRB,8.8102E-01_JPRB,8.1540E-01_JPRB,9.2020E-01_JPRB,9.5681E-01_JPRB,&
+&9.3190E-01_JPRB,1.1748E+00_JPRB,3.3092E+00_JPRB/)
+KAO( :, 5,11,16) = (/&
+&1.1528E+00_JPRB,1.0088E+00_JPRB,9.8178E-01_JPRB,1.2680E+00_JPRB,1.4334E+00_JPRB,1.4913E+00_JPRB,&
+&1.4507E+00_JPRB,1.1528E+00_JPRB,5.1215E+00_JPRB/)
+KAO( :, 1,12,16) = (/&
+&1.4264E+00_JPRB,1.2483E+00_JPRB,1.0700E+00_JPRB,8.9156E-01_JPRB,7.1342E-01_JPRB,5.3490E-01_JPRB,&
+&3.5601E-01_JPRB,1.4264E+00_JPRB,1.5795E+00_JPRB/)
+KAO( :, 2,12,16) = (/&
+&1.3956E+00_JPRB,1.2210E+00_JPRB,1.0467E+00_JPRB,8.7214E-01_JPRB,6.9777E-01_JPRB,5.2320E-01_JPRB,&
+&3.7423E-01_JPRB,1.3956E+00_JPRB,1.5601E+00_JPRB/)
+KAO( :, 3,12,16) = (/&
+&1.3711E+00_JPRB,1.1997E+00_JPRB,1.0285E+00_JPRB,8.5684E-01_JPRB,6.8534E-01_JPRB,6.9284E-01_JPRB,&
+&6.7781E-01_JPRB,1.3711E+00_JPRB,2.3512E+00_JPRB/)
+KAO( :, 4,12,16) = (/&
+&1.3565E+00_JPRB,1.1870E+00_JPRB,1.0173E+00_JPRB,9.7613E-01_JPRB,1.1079E+00_JPRB,1.1568E+00_JPRB,&
+&1.1307E+00_JPRB,1.3565E+00_JPRB,3.8814E+00_JPRB/)
+KAO( :, 5,12,16) = (/&
+&1.3408E+00_JPRB,1.1733E+00_JPRB,1.1680E+00_JPRB,1.5162E+00_JPRB,1.7205E+00_JPRB,1.8012E+00_JPRB,&
+&1.7627E+00_JPRB,1.3408E+00_JPRB,5.9949E+00_JPRB/)
+KAO( :, 1,13,16) = (/&
+&1.6257E+00_JPRB,1.4225E+00_JPRB,1.2194E+00_JPRB,1.0160E+00_JPRB,8.1283E-01_JPRB,6.0965E-01_JPRB,&
+&4.0604E-01_JPRB,1.6257E+00_JPRB,2.2989E+00_JPRB/)
+KAO( :, 2,13,16) = (/&
+&1.6092E+00_JPRB,1.4081E+00_JPRB,1.2069E+00_JPRB,1.0056E+00_JPRB,8.0424E-01_JPRB,6.0284E-01_JPRB,&
+&4.5252E-01_JPRB,1.6092E+00_JPRB,2.2727E+00_JPRB/)
+KAO( :, 3,13,16) = (/&
+&1.6030E+00_JPRB,1.4026E+00_JPRB,1.2019E+00_JPRB,1.0013E+00_JPRB,8.1602E-01_JPRB,8.3675E-01_JPRB,&
+&8.2085E-01_JPRB,1.6030E+00_JPRB,2.7443E+00_JPRB/)
+KAO( :, 4,13,16) = (/&
+&1.5933E+00_JPRB,1.3941E+00_JPRB,1.1949E+00_JPRB,1.1601E+00_JPRB,1.3266E+00_JPRB,1.3927E+00_JPRB,&
+&1.3677E+00_JPRB,1.5933E+00_JPRB,4.4922E+00_JPRB/)
+KAO( :, 5,13,16) = (/&
+&1.5870E+00_JPRB,1.3885E+00_JPRB,1.3769E+00_JPRB,1.7994E+00_JPRB,2.0601E+00_JPRB,2.1667E+00_JPRB,&
+&2.1254E+00_JPRB,1.5870E+00_JPRB,6.9188E+00_JPRB/)
+
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_A2.F90	(revision 2160)
@@ -0,0 +1,1606 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15,
+!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&6.6520E-04_JPRB,9.3651E-04_JPRB,1.4195E-03_JPRB,1.7255E-03_JPRB,1.7636E-03_JPRB,1.9179E-03_JPRB,&
+&2.2204E-03_JPRB,6.6521E-04_JPRB,2.9560E-04_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&7.2624E-04_JPRB,1.0466E-03_JPRB,1.3888E-03_JPRB,1.7096E-03_JPRB,1.7897E-03_JPRB,1.8561E-03_JPRB,&
+&2.1300E-03_JPRB,7.2624E-04_JPRB,3.1103E-04_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&7.8383E-04_JPRB,1.1584E-03_JPRB,1.4071E-03_JPRB,1.6420E-03_JPRB,1.7160E-03_JPRB,1.8518E-03_JPRB,&
+&1.8802E-03_JPRB,7.8382E-04_JPRB,3.3914E-04_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&8.3828E-04_JPRB,1.2570E-03_JPRB,1.4277E-03_JPRB,1.5406E-03_JPRB,1.6601E-03_JPRB,1.7661E-03_JPRB,&
+&1.9135E-03_JPRB,8.3828E-04_JPRB,3.4976E-04_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&8.9042E-04_JPRB,1.3363E-03_JPRB,1.4623E-03_JPRB,1.4949E-03_JPRB,1.5948E-03_JPRB,1.7209E-03_JPRB,&
+&1.8800E-03_JPRB,8.9042E-04_JPRB,3.6339E-04_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&5.6062E-04_JPRB,7.7127E-04_JPRB,1.2084E-03_JPRB,1.4307E-03_JPRB,1.4610E-03_JPRB,1.6052E-03_JPRB,&
+&1.8465E-03_JPRB,5.6064E-04_JPRB,2.2622E-04_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&6.1375E-04_JPRB,8.6380E-04_JPRB,1.1701E-03_JPRB,1.4336E-03_JPRB,1.4895E-03_JPRB,1.5756E-03_JPRB,&
+&1.7789E-03_JPRB,6.1375E-04_JPRB,2.4137E-04_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&6.6443E-04_JPRB,9.5953E-04_JPRB,1.1781E-03_JPRB,1.4158E-03_JPRB,1.4693E-03_JPRB,1.5606E-03_JPRB,&
+&1.5694E-03_JPRB,6.6443E-04_JPRB,2.6320E-04_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&7.1315E-04_JPRB,1.0478E-03_JPRB,1.1975E-03_JPRB,1.3128E-03_JPRB,1.4207E-03_JPRB,1.5299E-03_JPRB,&
+&1.6204E-03_JPRB,7.1315E-04_JPRB,2.6697E-04_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&7.6110E-04_JPRB,1.1196E-03_JPRB,1.2294E-03_JPRB,1.2636E-03_JPRB,1.3416E-03_JPRB,1.4292E-03_JPRB,&
+&1.6103E-03_JPRB,7.6110E-04_JPRB,2.8176E-04_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&4.5610E-04_JPRB,6.1532E-04_JPRB,1.0634E-03_JPRB,1.1828E-03_JPRB,1.2321E-03_JPRB,1.3407E-03_JPRB,&
+&1.5585E-03_JPRB,4.5610E-04_JPRB,1.7188E-04_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&5.0238E-04_JPRB,6.9021E-04_JPRB,9.8179E-04_JPRB,1.2124E-03_JPRB,1.2375E-03_JPRB,1.3359E-03_JPRB,&
+&1.5396E-03_JPRB,5.0238E-04_JPRB,1.8492E-04_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&5.4735E-04_JPRB,7.7249E-04_JPRB,9.8402E-04_JPRB,1.2068E-03_JPRB,1.2546E-03_JPRB,1.2975E-03_JPRB,&
+&1.4283E-03_JPRB,5.4735E-04_JPRB,1.9939E-04_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&5.9112E-04_JPRB,8.5275E-04_JPRB,9.9833E-04_JPRB,1.1432E-03_JPRB,1.2143E-03_JPRB,1.3053E-03_JPRB,&
+&1.3316E-03_JPRB,5.9111E-04_JPRB,2.0334E-04_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&6.3422E-04_JPRB,9.1933E-04_JPRB,1.0199E-03_JPRB,1.0852E-03_JPRB,1.1540E-03_JPRB,1.2145E-03_JPRB,&
+&1.3760E-03_JPRB,6.3422E-04_JPRB,2.1583E-04_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&3.6423E-04_JPRB,4.8714E-04_JPRB,9.4139E-04_JPRB,9.6507E-04_JPRB,9.9104E-04_JPRB,1.0740E-03_JPRB,&
+&1.2797E-03_JPRB,3.6423E-04_JPRB,1.3905E-04_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&4.0448E-04_JPRB,5.4353E-04_JPRB,8.4041E-04_JPRB,9.9900E-04_JPRB,1.0270E-03_JPRB,1.1129E-03_JPRB,&
+&1.2594E-03_JPRB,4.0448E-04_JPRB,1.4875E-04_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&4.4401E-04_JPRB,6.1201E-04_JPRB,8.1748E-04_JPRB,1.0205E-03_JPRB,1.0406E-03_JPRB,1.0943E-03_JPRB,&
+&1.2249E-03_JPRB,4.4401E-04_JPRB,1.5559E-04_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&4.8291E-04_JPRB,6.8107E-04_JPRB,8.2218E-04_JPRB,9.9576E-04_JPRB,1.0515E-03_JPRB,1.1006E-03_JPRB,&
+&1.1252E-03_JPRB,4.8291E-04_JPRB,1.6190E-04_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&5.2123E-04_JPRB,7.4343E-04_JPRB,8.4151E-04_JPRB,9.3019E-04_JPRB,1.0130E-03_JPRB,1.0785E-03_JPRB,&
+&1.1439E-03_JPRB,5.2123E-04_JPRB,1.7165E-04_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&2.8763E-04_JPRB,3.8654E-04_JPRB,7.7838E-04_JPRB,7.8467E-04_JPRB,8.0817E-04_JPRB,8.9938E-04_JPRB,&
+&1.0676E-03_JPRB,2.8763E-04_JPRB,1.2485E-04_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&3.2269E-04_JPRB,4.2830E-04_JPRB,7.4590E-04_JPRB,8.1887E-04_JPRB,8.5674E-04_JPRB,9.1744E-04_JPRB,&
+&1.0598E-03_JPRB,3.2269E-04_JPRB,1.2888E-04_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&3.5710E-04_JPRB,4.8150E-04_JPRB,6.8301E-04_JPRB,8.4014E-04_JPRB,8.5447E-04_JPRB,9.4082E-04_JPRB,&
+&1.0595E-03_JPRB,3.5710E-04_JPRB,1.3287E-04_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&3.9114E-04_JPRB,5.4044E-04_JPRB,6.7913E-04_JPRB,8.5598E-04_JPRB,8.6451E-04_JPRB,8.9768E-04_JPRB,&
+&1.0160E-03_JPRB,3.9114E-04_JPRB,1.3801E-04_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&4.2493E-04_JPRB,5.9616E-04_JPRB,6.9081E-04_JPRB,8.1432E-04_JPRB,8.7086E-04_JPRB,9.0230E-04_JPRB,&
+&9.2751E-04_JPRB,4.2493E-04_JPRB,1.4524E-04_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&2.2397E-04_JPRB,3.0352E-04_JPRB,6.2893E-04_JPRB,6.2633E-04_JPRB,6.5793E-04_JPRB,7.3403E-04_JPRB,&
+&8.4350E-04_JPRB,2.2397E-04_JPRB,1.2107E-04_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&2.5420E-04_JPRB,3.3557E-04_JPRB,6.5797E-04_JPRB,6.6891E-04_JPRB,6.8491E-04_JPRB,7.4023E-04_JPRB,&
+&8.5687E-04_JPRB,2.5420E-04_JPRB,1.2280E-04_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&2.8396E-04_JPRB,3.7655E-04_JPRB,5.9102E-04_JPRB,6.9033E-04_JPRB,7.1783E-04_JPRB,7.6667E-04_JPRB,&
+&8.6376E-04_JPRB,2.8396E-04_JPRB,1.2577E-04_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&3.1350E-04_JPRB,4.2404E-04_JPRB,5.6109E-04_JPRB,7.1632E-04_JPRB,7.2169E-04_JPRB,7.5902E-04_JPRB,&
+&8.5063E-04_JPRB,3.1350E-04_JPRB,1.3038E-04_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&3.4283E-04_JPRB,4.7259E-04_JPRB,5.6315E-04_JPRB,6.9669E-04_JPRB,7.3767E-04_JPRB,7.6266E-04_JPRB,&
+&8.1179E-04_JPRB,3.4283E-04_JPRB,1.3594E-04_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&1.7269E-04_JPRB,2.3971E-04_JPRB,5.0297E-04_JPRB,4.9860E-04_JPRB,5.2471E-04_JPRB,5.7932E-04_JPRB,&
+&6.8439E-04_JPRB,1.7269E-04_JPRB,1.2386E-04_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&1.9843E-04_JPRB,2.6259E-04_JPRB,5.3532E-04_JPRB,5.3729E-04_JPRB,5.5606E-04_JPRB,6.0939E-04_JPRB,&
+&7.1230E-04_JPRB,1.9843E-04_JPRB,1.2615E-04_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&2.2393E-04_JPRB,2.9362E-04_JPRB,5.3350E-04_JPRB,5.6384E-04_JPRB,5.8750E-04_JPRB,6.2580E-04_JPRB,&
+&7.2255E-04_JPRB,2.2393E-04_JPRB,1.3021E-04_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&2.4925E-04_JPRB,3.3156E-04_JPRB,4.6934E-04_JPRB,5.8250E-04_JPRB,5.9359E-04_JPRB,6.5453E-04_JPRB,&
+&7.2305E-04_JPRB,2.4925E-04_JPRB,1.3523E-04_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&2.7472E-04_JPRB,3.7184E-04_JPRB,4.6283E-04_JPRB,5.9977E-04_JPRB,6.0303E-04_JPRB,6.2094E-04_JPRB,&
+&7.0629E-04_JPRB,2.7472E-04_JPRB,1.4126E-04_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&1.3221E-04_JPRB,1.9199E-04_JPRB,3.9770E-04_JPRB,3.9939E-04_JPRB,4.1807E-04_JPRB,4.5731E-04_JPRB,&
+&5.2988E-04_JPRB,1.3221E-04_JPRB,1.4509E-04_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&1.5393E-04_JPRB,2.0559E-04_JPRB,4.3250E-04_JPRB,4.2908E-04_JPRB,4.4968E-04_JPRB,4.9581E-04_JPRB,&
+&5.6885E-04_JPRB,1.5393E-04_JPRB,1.5038E-04_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&1.7558E-04_JPRB,2.2912E-04_JPRB,4.5525E-04_JPRB,4.5996E-04_JPRB,4.7140E-04_JPRB,5.1385E-04_JPRB,&
+&5.9033E-04_JPRB,1.7558E-04_JPRB,1.5764E-04_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&1.9711E-04_JPRB,2.5824E-04_JPRB,4.0990E-04_JPRB,4.7600E-04_JPRB,4.9383E-04_JPRB,5.2727E-04_JPRB,&
+&5.9173E-04_JPRB,1.9711E-04_JPRB,1.6674E-04_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&2.1892E-04_JPRB,2.9157E-04_JPRB,3.8268E-04_JPRB,4.9451E-04_JPRB,4.9883E-04_JPRB,5.2700E-04_JPRB,&
+&5.9438E-04_JPRB,2.1892E-04_JPRB,1.7746E-04_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&1.0035E-04_JPRB,1.5952E-04_JPRB,3.1293E-04_JPRB,3.1348E-04_JPRB,3.2666E-04_JPRB,3.7028E-04_JPRB,&
+&4.1425E-04_JPRB,1.0035E-04_JPRB,2.6669E-04_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&1.1858E-04_JPRB,1.6346E-04_JPRB,3.4529E-04_JPRB,3.4165E-04_JPRB,3.5657E-04_JPRB,3.9289E-04_JPRB,&
+&4.5949E-04_JPRB,1.1858E-04_JPRB,2.9076E-04_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&1.3693E-04_JPRB,1.7866E-04_JPRB,3.6700E-04_JPRB,3.7083E-04_JPRB,3.8336E-04_JPRB,4.1668E-04_JPRB,&
+&4.8180E-04_JPRB,1.3693E-04_JPRB,3.1567E-04_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&1.5518E-04_JPRB,2.0111E-04_JPRB,3.6635E-04_JPRB,3.8855E-04_JPRB,4.0471E-04_JPRB,4.3043E-04_JPRB,&
+&4.9285E-04_JPRB,1.5518E-04_JPRB,3.4209E-04_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&1.7362E-04_JPRB,2.2754E-04_JPRB,3.2201E-04_JPRB,4.0291E-04_JPRB,4.1258E-04_JPRB,4.4913E-04_JPRB,&
+&4.9613E-04_JPRB,1.7362E-04_JPRB,3.6921E-04_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&7.6756E-05_JPRB,1.3962E-04_JPRB,2.4767E-04_JPRB,2.4912E-04_JPRB,2.5968E-04_JPRB,2.8653E-04_JPRB,&
+&3.2992E-04_JPRB,7.6756E-05_JPRB,9.2332E-04_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&9.1972E-05_JPRB,1.3177E-04_JPRB,2.7498E-04_JPRB,2.7460E-04_JPRB,2.8768E-04_JPRB,3.1486E-04_JPRB,&
+&3.6117E-04_JPRB,9.1972E-05_JPRB,1.0290E-03_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&1.0747E-04_JPRB,1.4129E-04_JPRB,2.9762E-04_JPRB,2.9728E-04_JPRB,3.1080E-04_JPRB,3.3927E-04_JPRB,&
+&3.8542E-04_JPRB,1.0747E-04_JPRB,1.1258E-03_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&1.2295E-04_JPRB,1.5843E-04_JPRB,3.0850E-04_JPRB,3.1535E-04_JPRB,3.2529E-04_JPRB,3.5387E-04_JPRB,&
+&4.0422E-04_JPRB,1.2295E-04_JPRB,1.2119E-03_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&1.3850E-04_JPRB,1.7919E-04_JPRB,2.7969E-04_JPRB,3.2918E-04_JPRB,3.4141E-04_JPRB,3.6383E-04_JPRB,&
+&4.0592E-04_JPRB,1.3850E-04_JPRB,1.2885E-03_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&6.4262E-05_JPRB,1.1488E-04_JPRB,2.0652E-04_JPRB,2.0693E-04_JPRB,2.1515E-04_JPRB,2.3759E-04_JPRB,&
+&2.7074E-04_JPRB,6.4262E-05_JPRB,1.7436E-03_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&7.7063E-05_JPRB,1.0910E-04_JPRB,2.2893E-04_JPRB,2.2837E-04_JPRB,2.3880E-04_JPRB,2.5987E-04_JPRB,&
+&3.0065E-04_JPRB,7.7062E-05_JPRB,1.9352E-03_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&9.0126E-05_JPRB,1.1759E-04_JPRB,2.4677E-04_JPRB,2.4752E-04_JPRB,2.5932E-04_JPRB,2.8168E-04_JPRB,&
+&3.2064E-04_JPRB,9.0126E-05_JPRB,2.1015E-03_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&1.0318E-04_JPRB,1.3204E-04_JPRB,2.5349E-04_JPRB,2.6117E-04_JPRB,2.7047E-04_JPRB,2.9445E-04_JPRB,&
+&3.3354E-04_JPRB,1.0318E-04_JPRB,2.2375E-03_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&1.1625E-04_JPRB,1.4979E-04_JPRB,2.3047E-04_JPRB,2.7288E-04_JPRB,2.8316E-04_JPRB,3.0222E-04_JPRB,&
+&3.3717E-04_JPRB,1.1625E-04_JPRB,2.3499E-03_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&5.3838E-05_JPRB,9.4472E-05_JPRB,1.7221E-04_JPRB,1.7229E-04_JPRB,1.7912E-04_JPRB,1.9811E-04_JPRB,&
+&2.2298E-04_JPRB,5.3838E-05_JPRB,2.2190E-03_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&6.4583E-05_JPRB,9.0416E-05_JPRB,1.9070E-04_JPRB,1.8997E-04_JPRB,1.9851E-04_JPRB,2.1621E-04_JPRB,&
+&2.4883E-04_JPRB,6.4583E-05_JPRB,2.4508E-03_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&7.5579E-05_JPRB,9.8146E-05_JPRB,2.0479E-04_JPRB,2.0556E-04_JPRB,2.1508E-04_JPRB,2.3475E-04_JPRB,&
+&2.6564E-04_JPRB,7.5579E-05_JPRB,2.6460E-03_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&8.6531E-05_JPRB,1.1008E-04_JPRB,2.0887E-04_JPRB,2.1630E-04_JPRB,2.2430E-04_JPRB,2.4416E-04_JPRB,&
+&2.7688E-04_JPRB,8.6531E-05_JPRB,2.8013E-03_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&9.7427E-05_JPRB,1.2490E-04_JPRB,1.8859E-04_JPRB,2.2596E-04_JPRB,2.3336E-04_JPRB,2.5057E-04_JPRB,&
+&2.7888E-04_JPRB,9.7427E-05_JPRB,2.9236E-03_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&4.5099E-05_JPRB,7.7513E-05_JPRB,1.4325E-04_JPRB,1.4387E-04_JPRB,1.4900E-04_JPRB,1.6404E-04_JPRB,&
+&1.8470E-04_JPRB,4.5100E-05_JPRB,2.3136E-03_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&5.4137E-05_JPRB,7.5163E-05_JPRB,1.5870E-04_JPRB,1.5797E-04_JPRB,1.6505E-04_JPRB,1.7934E-04_JPRB,&
+&2.0687E-04_JPRB,5.4137E-05_JPRB,2.5403E-03_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&6.3329E-05_JPRB,8.1727E-05_JPRB,1.6965E-04_JPRB,1.7063E-04_JPRB,1.7871E-04_JPRB,1.9512E-04_JPRB,&
+&2.2035E-04_JPRB,6.3329E-05_JPRB,2.7282E-03_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&7.2450E-05_JPRB,9.1778E-05_JPRB,1.7219E-04_JPRB,1.7914E-04_JPRB,1.8635E-04_JPRB,2.0203E-04_JPRB,&
+&2.2943E-04_JPRB,7.2450E-05_JPRB,2.8788E-03_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&8.1530E-05_JPRB,1.0397E-04_JPRB,1.5476E-04_JPRB,1.8739E-04_JPRB,1.9322E-04_JPRB,2.0819E-04_JPRB,&
+&2.3071E-04_JPRB,8.1530E-05_JPRB,2.9950E-03_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&1.5260E-03_JPRB,1.7595E-03_JPRB,1.6480E-03_JPRB,2.2258E-03_JPRB,2.8344E-03_JPRB,3.1469E-03_JPRB,&
+&3.6918E-03_JPRB,1.5260E-03_JPRB,4.9914E-04_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&1.5826E-03_JPRB,1.8212E-03_JPRB,1.7561E-03_JPRB,1.9980E-03_JPRB,2.4681E-03_JPRB,2.9684E-03_JPRB,&
+&3.2872E-03_JPRB,1.5826E-03_JPRB,4.6415E-04_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&1.6227E-03_JPRB,1.8571E-03_JPRB,1.8350E-03_JPRB,1.9032E-03_JPRB,2.3046E-03_JPRB,2.7220E-03_JPRB,&
+&3.3030E-03_JPRB,1.6227E-03_JPRB,4.6231E-04_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&1.6627E-03_JPRB,1.9016E-03_JPRB,1.9450E-03_JPRB,1.9945E-03_JPRB,2.2414E-03_JPRB,2.5327E-03_JPRB,&
+&2.8363E-03_JPRB,1.6627E-03_JPRB,4.9516E-04_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&1.6942E-03_JPRB,1.9567E-03_JPRB,2.0282E-03_JPRB,2.1178E-03_JPRB,2.1837E-03_JPRB,2.3289E-03_JPRB,&
+&2.6951E-03_JPRB,1.6942E-03_JPRB,5.5604E-04_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&1.2957E-03_JPRB,1.4736E-03_JPRB,1.3696E-03_JPRB,1.9219E-03_JPRB,2.4448E-03_JPRB,2.7185E-03_JPRB,&
+&3.0973E-03_JPRB,1.2957E-03_JPRB,3.5777E-04_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&1.3520E-03_JPRB,1.5352E-03_JPRB,1.4594E-03_JPRB,1.7363E-03_JPRB,2.1608E-03_JPRB,2.5931E-03_JPRB,&
+&2.9477E-03_JPRB,1.3520E-03_JPRB,3.5334E-04_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&1.3955E-03_JPRB,1.5728E-03_JPRB,1.5388E-03_JPRB,1.5910E-03_JPRB,1.9652E-03_JPRB,2.3965E-03_JPRB,&
+&2.8214E-03_JPRB,1.3955E-03_JPRB,3.5208E-04_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&1.4306E-03_JPRB,1.6119E-03_JPRB,1.6289E-03_JPRB,1.6668E-03_JPRB,1.8749E-03_JPRB,2.1515E-03_JPRB,&
+&2.5798E-03_JPRB,1.4306E-03_JPRB,3.8903E-04_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&1.4618E-03_JPRB,1.6648E-03_JPRB,1.7112E-03_JPRB,1.7696E-03_JPRB,1.8658E-03_JPRB,2.0390E-03_JPRB,&
+&2.2630E-03_JPRB,1.4618E-03_JPRB,4.3501E-04_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&1.0941E-03_JPRB,1.2249E-03_JPRB,1.1110E-03_JPRB,1.6978E-03_JPRB,2.0757E-03_JPRB,2.3977E-03_JPRB,&
+&2.5385E-03_JPRB,1.0941E-03_JPRB,2.5435E-04_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&1.1496E-03_JPRB,1.2893E-03_JPRB,1.2094E-03_JPRB,1.5400E-03_JPRB,1.9037E-03_JPRB,2.2282E-03_JPRB,&
+&2.6108E-03_JPRB,1.1496E-03_JPRB,2.5844E-04_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&1.1926E-03_JPRB,1.3278E-03_JPRB,1.2717E-03_JPRB,1.3590E-03_JPRB,1.7088E-03_JPRB,2.1812E-03_JPRB,&
+&2.3392E-03_JPRB,1.1926E-03_JPRB,2.6804E-04_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&1.2267E-03_JPRB,1.3589E-03_JPRB,1.3473E-03_JPRB,1.3690E-03_JPRB,1.6042E-03_JPRB,1.9290E-03_JPRB,&
+&2.3507E-03_JPRB,1.2267E-03_JPRB,3.0065E-04_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&1.2554E-03_JPRB,1.4034E-03_JPRB,1.4269E-03_JPRB,1.4462E-03_JPRB,1.5803E-03_JPRB,1.7891E-03_JPRB,&
+&1.9934E-03_JPRB,1.2554E-03_JPRB,3.3529E-04_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&9.2228E-04_JPRB,1.0144E-03_JPRB,8.9155E-04_JPRB,1.5523E-03_JPRB,1.8182E-03_JPRB,2.0790E-03_JPRB,&
+&2.1019E-03_JPRB,9.2229E-04_JPRB,1.9739E-04_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&9.7173E-04_JPRB,1.0764E-03_JPRB,9.9094E-04_JPRB,1.3563E-03_JPRB,1.7130E-03_JPRB,1.9182E-03_JPRB,&
+&2.1666E-03_JPRB,9.7173E-04_JPRB,1.9900E-04_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&1.0138E-03_JPRB,1.1151E-03_JPRB,1.0445E-03_JPRB,1.2251E-03_JPRB,1.5369E-03_JPRB,1.8521E-03_JPRB,&
+&2.1013E-03_JPRB,1.0138E-03_JPRB,2.1276E-04_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&1.0473E-03_JPRB,1.1460E-03_JPRB,1.1161E-03_JPRB,1.1284E-03_JPRB,1.3578E-03_JPRB,1.6754E-03_JPRB,&
+&2.0077E-03_JPRB,1.0473E-03_JPRB,2.3595E-04_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&1.0726E-03_JPRB,1.1805E-03_JPRB,1.1814E-03_JPRB,1.1848E-03_JPRB,1.3479E-03_JPRB,1.5615E-03_JPRB,&
+&1.8994E-03_JPRB,1.0726E-03_JPRB,2.6165E-04_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&7.6690E-04_JPRB,8.2765E-04_JPRB,7.8062E-04_JPRB,1.3867E-03_JPRB,1.5867E-03_JPRB,1.6936E-03_JPRB,&
+&1.7521E-03_JPRB,7.6690E-04_JPRB,1.6280E-04_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&8.1285E-04_JPRB,8.8774E-04_JPRB,7.8341E-04_JPRB,1.1988E-03_JPRB,1.4770E-03_JPRB,1.6719E-03_JPRB,&
+&1.7693E-03_JPRB,8.1285E-04_JPRB,1.6768E-04_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&8.5183E-04_JPRB,9.2930E-04_JPRB,8.6098E-04_JPRB,1.1035E-03_JPRB,1.3517E-03_JPRB,1.5871E-03_JPRB,&
+&1.8468E-03_JPRB,8.5182E-04_JPRB,1.7918E-04_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&8.8381E-04_JPRB,9.6005E-04_JPRB,9.1547E-04_JPRB,9.4610E-04_JPRB,1.2396E-03_JPRB,1.5757E-03_JPRB,&
+&1.6719E-03_JPRB,8.8381E-04_JPRB,1.9528E-04_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&9.0780E-04_JPRB,9.9038E-04_JPRB,9.7867E-04_JPRB,9.6385E-04_JPRB,1.1363E-03_JPRB,1.3750E-03_JPRB,&
+&1.6759E-03_JPRB,9.0780E-04_JPRB,2.1430E-04_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&6.2795E-04_JPRB,6.6838E-04_JPRB,7.3561E-04_JPRB,1.2263E-03_JPRB,1.3683E-03_JPRB,1.4046E-03_JPRB,&
+&1.5094E-03_JPRB,6.2795E-04_JPRB,1.5216E-04_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&6.7183E-04_JPRB,7.2288E-04_JPRB,6.1801E-04_JPRB,1.0919E-03_JPRB,1.2712E-03_JPRB,1.4757E-03_JPRB,&
+&1.4814E-03_JPRB,6.7183E-04_JPRB,1.5894E-04_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&7.0773E-04_JPRB,7.6513E-04_JPRB,6.8912E-04_JPRB,9.6974E-04_JPRB,1.1945E-03_JPRB,1.3671E-03_JPRB,&
+&1.5170E-03_JPRB,7.0773E-04_JPRB,1.6897E-04_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&7.3816E-04_JPRB,7.9782E-04_JPRB,7.4473E-04_JPRB,8.7065E-04_JPRB,1.1028E-03_JPRB,1.3310E-03_JPRB,&
+&1.4982E-03_JPRB,7.3816E-04_JPRB,1.8083E-04_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&7.6173E-04_JPRB,8.2557E-04_JPRB,8.0696E-04_JPRB,7.9653E-04_JPRB,9.7171E-04_JPRB,1.2001E-03_JPRB,&
+&1.4350E-03_JPRB,7.6173E-04_JPRB,1.9544E-04_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&5.0891E-04_JPRB,5.3280E-04_JPRB,7.2820E-04_JPRB,1.0600E-03_JPRB,1.1897E-03_JPRB,1.2028E-03_JPRB,&
+&1.2645E-03_JPRB,5.0891E-04_JPRB,1.6819E-04_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&5.5019E-04_JPRB,5.8559E-04_JPRB,5.5050E-04_JPRB,9.8189E-04_JPRB,1.1133E-03_JPRB,1.1994E-03_JPRB,&
+&1.2177E-03_JPRB,5.5019E-04_JPRB,1.7740E-04_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&5.8438E-04_JPRB,6.2588E-04_JPRB,5.2192E-04_JPRB,8.6875E-04_JPRB,1.0399E-03_JPRB,1.1761E-03_JPRB,&
+&1.2214E-03_JPRB,5.8438E-04_JPRB,1.8897E-04_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&6.1239E-04_JPRB,6.5682E-04_JPRB,6.0713E-04_JPRB,7.7808E-04_JPRB,9.7331E-04_JPRB,1.1140E-03_JPRB,&
+&1.3014E-03_JPRB,6.1239E-04_JPRB,2.0290E-04_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&6.3467E-04_JPRB,6.8419E-04_JPRB,6.5295E-04_JPRB,6.7554E-04_JPRB,8.8119E-04_JPRB,1.1133E-03_JPRB,&
+&1.2053E-03_JPRB,6.3467E-04_JPRB,2.1872E-04_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&4.0935E-04_JPRB,4.1885E-04_JPRB,6.7101E-04_JPRB,9.1256E-04_JPRB,1.0194E-03_JPRB,1.0135E-03_JPRB,&
+&1.0819E-03_JPRB,4.0935E-04_JPRB,2.1824E-04_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&4.4692E-04_JPRB,4.7118E-04_JPRB,5.1659E-04_JPRB,8.5913E-04_JPRB,9.6357E-04_JPRB,9.8846E-04_JPRB,&
+&1.0429E-03_JPRB,4.4692E-04_JPRB,2.3690E-04_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&4.7903E-04_JPRB,5.0921E-04_JPRB,4.2513E-04_JPRB,7.7866E-04_JPRB,8.9423E-04_JPRB,1.0205E-03_JPRB,&
+&1.0213E-03_JPRB,4.7903E-04_JPRB,2.5819E-04_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&5.0519E-04_JPRB,5.3873E-04_JPRB,4.7470E-04_JPRB,6.8242E-04_JPRB,8.4925E-04_JPRB,9.6082E-04_JPRB,&
+&1.0565E-03_JPRB,5.0519E-04_JPRB,2.8169E-04_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&5.2646E-04_JPRB,5.6355E-04_JPRB,5.3173E-04_JPRB,6.2134E-04_JPRB,7.8503E-04_JPRB,9.3706E-04_JPRB,&
+&1.0322E-03_JPRB,5.2647E-04_JPRB,3.0574E-04_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&3.2639E-04_JPRB,3.2062E-04_JPRB,6.1707E-04_JPRB,7.9540E-04_JPRB,8.4564E-04_JPRB,8.5817E-04_JPRB,&
+&9.0723E-04_JPRB,3.2639E-04_JPRB,5.5545E-04_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&3.6012E-04_JPRB,3.7319E-04_JPRB,5.0226E-04_JPRB,7.4254E-04_JPRB,8.4023E-04_JPRB,8.3301E-04_JPRB,&
+&8.5728E-04_JPRB,3.6012E-04_JPRB,6.1165E-04_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&3.8987E-04_JPRB,4.1225E-04_JPRB,3.7907E-04_JPRB,6.8530E-04_JPRB,7.7881E-04_JPRB,8.3778E-04_JPRB,&
+&8.4817E-04_JPRB,3.8987E-04_JPRB,6.6653E-04_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&4.1424E-04_JPRB,4.3910E-04_JPRB,3.6051E-04_JPRB,6.1000E-04_JPRB,7.2902E-04_JPRB,8.1999E-04_JPRB,&
+&8.4396E-04_JPRB,4.1424E-04_JPRB,7.1819E-04_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&4.3431E-04_JPRB,4.6239E-04_JPRB,4.2288E-04_JPRB,5.4880E-04_JPRB,6.8867E-04_JPRB,7.7866E-04_JPRB,&
+&8.9097E-04_JPRB,4.3431E-04_JPRB,7.7202E-04_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&2.6062E-04_JPRB,2.4097E-04_JPRB,5.6760E-04_JPRB,6.7838E-04_JPRB,7.0839E-04_JPRB,7.4582E-04_JPRB,&
+&7.5583E-04_JPRB,2.6062E-04_JPRB,2.5277E-03_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&2.9023E-04_JPRB,2.9545E-04_JPRB,4.5173E-04_JPRB,6.2994E-04_JPRB,7.1727E-04_JPRB,7.0001E-04_JPRB,&
+&7.3420E-04_JPRB,2.9022E-04_JPRB,2.7784E-03_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&3.1702E-04_JPRB,3.3294E-04_JPRB,3.4527E-04_JPRB,5.9793E-04_JPRB,6.6774E-04_JPRB,6.9352E-04_JPRB,&
+&7.1312E-04_JPRB,3.1702E-04_JPRB,3.0145E-03_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&3.3919E-04_JPRB,3.5815E-04_JPRB,2.9459E-04_JPRB,5.3609E-04_JPRB,6.2952E-04_JPRB,7.0029E-04_JPRB,&
+&6.9972E-04_JPRB,3.3919E-04_JPRB,3.2222E-03_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&3.5768E-04_JPRB,3.7923E-04_JPRB,3.2874E-04_JPRB,4.7549E-04_JPRB,5.9483E-04_JPRB,6.7311E-04_JPRB,&
+&7.3613E-04_JPRB,3.5768E-04_JPRB,3.4035E-03_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&2.1907E-04_JPRB,2.0328E-04_JPRB,4.6419E-04_JPRB,5.6297E-04_JPRB,5.8907E-04_JPRB,6.1155E-04_JPRB,&
+&6.1013E-04_JPRB,2.1907E-04_JPRB,5.1242E-03_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&2.4410E-04_JPRB,2.4843E-04_JPRB,3.7130E-04_JPRB,5.2284E-04_JPRB,5.9762E-04_JPRB,5.8585E-04_JPRB,&
+&6.0135E-04_JPRB,2.4411E-04_JPRB,5.5864E-03_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&2.6625E-04_JPRB,2.7930E-04_JPRB,2.8189E-04_JPRB,4.9405E-04_JPRB,5.5402E-04_JPRB,5.7720E-04_JPRB,&
+&5.8571E-04_JPRB,2.6625E-04_JPRB,6.0066E-03_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&2.8487E-04_JPRB,3.0018E-04_JPRB,2.4472E-04_JPRB,4.4200E-04_JPRB,5.2652E-04_JPRB,5.8248E-04_JPRB,&
+&5.7961E-04_JPRB,2.8487E-04_JPRB,6.3763E-03_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&3.0010E-04_JPRB,3.1719E-04_JPRB,2.7311E-04_JPRB,3.9201E-04_JPRB,4.9427E-04_JPRB,5.6306E-04_JPRB,&
+&6.1631E-04_JPRB,3.0010E-04_JPRB,6.6804E-03_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&1.8394E-04_JPRB,1.7118E-04_JPRB,3.7730E-04_JPRB,4.6792E-04_JPRB,4.8975E-04_JPRB,4.9917E-04_JPRB,&
+&5.0397E-04_JPRB,1.8394E-04_JPRB,6.7953E-03_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&2.0488E-04_JPRB,2.0891E-04_JPRB,3.0355E-04_JPRB,4.3536E-04_JPRB,4.9195E-04_JPRB,4.8369E-04_JPRB,&
+&4.9615E-04_JPRB,2.0488E-04_JPRB,7.3722E-03_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&2.2338E-04_JPRB,2.3370E-04_JPRB,2.2853E-04_JPRB,4.0848E-04_JPRB,4.6057E-04_JPRB,4.8139E-04_JPRB,&
+&4.8293E-04_JPRB,2.2338E-04_JPRB,7.8888E-03_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&2.3905E-04_JPRB,2.5126E-04_JPRB,2.0156E-04_JPRB,3.6557E-04_JPRB,4.3992E-04_JPRB,4.8195E-04_JPRB,&
+&4.8526E-04_JPRB,2.3905E-04_JPRB,8.3181E-03_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&2.5129E-04_JPRB,2.6467E-04_JPRB,2.2905E-04_JPRB,3.2273E-04_JPRB,4.1230E-04_JPRB,4.6630E-04_JPRB,&
+&5.1248E-04_JPRB,2.5129E-04_JPRB,8.6386E-03_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&1.5430E-04_JPRB,1.4442E-04_JPRB,3.0805E-04_JPRB,3.8950E-04_JPRB,4.0767E-04_JPRB,4.1179E-04_JPRB,&
+&4.1330E-04_JPRB,1.5430E-04_JPRB,7.3053E-03_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&1.7179E-04_JPRB,1.7510E-04_JPRB,2.4818E-04_JPRB,3.6198E-04_JPRB,4.0625E-04_JPRB,3.9974E-04_JPRB,&
+&4.1166E-04_JPRB,1.7179E-04_JPRB,7.9022E-03_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&1.8741E-04_JPRB,1.9575E-04_JPRB,1.8604E-04_JPRB,3.3670E-04_JPRB,3.8272E-04_JPRB,4.0145E-04_JPRB,&
+&4.0060E-04_JPRB,1.8741E-04_JPRB,8.4145E-03_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&2.0031E-04_JPRB,2.0975E-04_JPRB,1.6656E-04_JPRB,3.0379E-04_JPRB,3.6769E-04_JPRB,4.0078E-04_JPRB,&
+&4.0187E-04_JPRB,2.0032E-04_JPRB,8.8018E-03_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&2.1018E-04_JPRB,2.2076E-04_JPRB,1.9159E-04_JPRB,2.6448E-04_JPRB,3.4432E-04_JPRB,3.8512E-04_JPRB,&
+&4.2420E-04_JPRB,2.1018E-04_JPRB,9.0680E-03_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&2.3465E-03_JPRB,2.4031E-03_JPRB,2.2597E-03_JPRB,2.1524E-03_JPRB,2.8276E-03_JPRB,3.5761E-03_JPRB,&
+&4.3079E-03_JPRB,2.3465E-03_JPRB,5.1471E-04_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&2.3042E-03_JPRB,2.4485E-03_JPRB,2.4199E-03_JPRB,2.2938E-03_JPRB,2.9847E-03_JPRB,3.1952E-03_JPRB,&
+&4.1667E-03_JPRB,2.3042E-03_JPRB,6.2319E-04_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&2.2700E-03_JPRB,2.4966E-03_JPRB,2.5862E-03_JPRB,2.6511E-03_JPRB,2.8738E-03_JPRB,2.9164E-03_JPRB,&
+&3.6118E-03_JPRB,2.2700E-03_JPRB,7.4229E-04_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&2.2509E-03_JPRB,2.5573E-03_JPRB,2.7581E-03_JPRB,2.9718E-03_JPRB,3.0657E-03_JPRB,3.3376E-03_JPRB,&
+&3.1600E-03_JPRB,2.2509E-03_JPRB,8.5977E-04_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&2.2422E-03_JPRB,2.6355E-03_JPRB,2.9552E-03_JPRB,3.2531E-03_JPRB,3.4296E-03_JPRB,3.4558E-03_JPRB,&
+&3.2808E-03_JPRB,2.2422E-03_JPRB,9.9766E-04_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&2.0157E-03_JPRB,2.0510E-03_JPRB,1.8851E-03_JPRB,1.8206E-03_JPRB,2.4343E-03_JPRB,2.9704E-03_JPRB,&
+&3.8311E-03_JPRB,2.0157E-03_JPRB,4.1396E-04_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&1.9815E-03_JPRB,2.0886E-03_JPRB,2.0439E-03_JPRB,1.8938E-03_JPRB,2.5204E-03_JPRB,2.7128E-03_JPRB,&
+&3.3350E-03_JPRB,1.9815E-03_JPRB,4.8039E-04_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&1.9576E-03_JPRB,2.1326E-03_JPRB,2.1790E-03_JPRB,2.1795E-03_JPRB,2.4882E-03_JPRB,2.4941E-03_JPRB,&
+&3.2109E-03_JPRB,1.9575E-03_JPRB,5.7955E-04_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&1.9481E-03_JPRB,2.1829E-03_JPRB,2.3235E-03_JPRB,2.4676E-03_JPRB,2.6097E-03_JPRB,2.8349E-03_JPRB,&
+&2.5868E-03_JPRB,1.9481E-03_JPRB,6.6714E-04_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&1.9507E-03_JPRB,2.2521E-03_JPRB,2.4912E-03_JPRB,2.7356E-03_JPRB,2.8987E-03_JPRB,2.9418E-03_JPRB,&
+&2.7830E-03_JPRB,1.9507E-03_JPRB,7.7523E-04_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&1.7285E-03_JPRB,1.7377E-03_JPRB,1.5305E-03_JPRB,1.6757E-03_JPRB,2.1680E-03_JPRB,2.5609E-03_JPRB,&
+&3.3887E-03_JPRB,1.7285E-03_JPRB,3.2280E-04_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&1.7015E-03_JPRB,1.7653E-03_JPRB,1.6878E-03_JPRB,1.5112E-03_JPRB,2.1719E-03_JPRB,2.4083E-03_JPRB,&
+&2.8061E-03_JPRB,1.7015E-03_JPRB,3.7412E-04_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&1.6851E-03_JPRB,1.8101E-03_JPRB,1.8073E-03_JPRB,1.7539E-03_JPRB,2.2398E-03_JPRB,2.1112E-03_JPRB,&
+&2.7333E-03_JPRB,1.6851E-03_JPRB,4.3157E-04_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&1.6786E-03_JPRB,1.8567E-03_JPRB,1.9291E-03_JPRB,1.9927E-03_JPRB,2.1347E-03_JPRB,2.2693E-03_JPRB,&
+&2.2801E-03_JPRB,1.6786E-03_JPRB,5.0448E-04_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&1.6877E-03_JPRB,1.9156E-03_JPRB,2.0710E-03_JPRB,2.2420E-03_JPRB,2.3625E-03_JPRB,2.5310E-03_JPRB,&
+&2.3182E-03_JPRB,1.6877E-03_JPRB,5.8583E-04_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&1.4834E-03_JPRB,1.4711E-03_JPRB,1.2522E-03_JPRB,1.4479E-03_JPRB,1.9854E-03_JPRB,2.2569E-03_JPRB,&
+&2.9775E-03_JPRB,1.4834E-03_JPRB,2.5081E-04_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&1.4601E-03_JPRB,1.4870E-03_JPRB,1.3690E-03_JPRB,1.2662E-03_JPRB,1.8060E-03_JPRB,2.0826E-03_JPRB,&
+&2.4977E-03_JPRB,1.4601E-03_JPRB,2.9277E-04_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&1.4467E-03_JPRB,1.5271E-03_JPRB,1.4979E-03_JPRB,1.3500E-03_JPRB,1.8497E-03_JPRB,1.9610E-03_JPRB,&
+&2.2907E-03_JPRB,1.4467E-03_JPRB,3.3271E-04_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&1.4432E-03_JPRB,1.5714E-03_JPRB,1.5969E-03_JPRB,1.5937E-03_JPRB,1.7902E-03_JPRB,1.9320E-03_JPRB,&
+&2.2420E-03_JPRB,1.4432E-03_JPRB,3.8467E-04_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&1.4550E-03_JPRB,1.6236E-03_JPRB,1.7127E-03_JPRB,1.8068E-03_JPRB,1.8486E-03_JPRB,2.1176E-03_JPRB,&
+&1.8018E-03_JPRB,1.4551E-03_JPRB,4.4551E-04_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&1.2773E-03_JPRB,1.2497E-03_JPRB,1.0064E-03_JPRB,1.2506E-03_JPRB,1.7352E-03_JPRB,2.1064E-03_JPRB,&
+&2.5188E-03_JPRB,1.2773E-03_JPRB,2.1025E-04_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&1.2595E-03_JPRB,1.2634E-03_JPRB,1.1147E-03_JPRB,1.1296E-03_JPRB,1.5824E-03_JPRB,1.8075E-03_JPRB,&
+&2.2978E-03_JPRB,1.2595E-03_JPRB,2.3601E-04_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&1.2471E-03_JPRB,1.2907E-03_JPRB,1.2226E-03_JPRB,1.0559E-03_JPRB,1.5556E-03_JPRB,1.7264E-03_JPRB,&
+&1.8319E-03_JPRB,1.2471E-03_JPRB,2.6674E-04_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&1.2460E-03_JPRB,1.3277E-03_JPRB,1.3232E-03_JPRB,1.2839E-03_JPRB,1.5266E-03_JPRB,1.5639E-03_JPRB,&
+&1.9030E-03_JPRB,1.2460E-03_JPRB,3.0491E-04_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&1.2575E-03_JPRB,1.3721E-03_JPRB,1.4143E-03_JPRB,1.4453E-03_JPRB,1.5006E-03_JPRB,1.7674E-03_JPRB,&
+&1.7436E-03_JPRB,1.2575E-03_JPRB,3.5060E-04_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&1.0958E-03_JPRB,1.0595E-03_JPRB,7.7664E-04_JPRB,1.1085E-03_JPRB,1.5393E-03_JPRB,1.9338E-03_JPRB,&
+&2.1934E-03_JPRB,1.0958E-03_JPRB,1.9645E-04_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&1.0816E-03_JPRB,1.0727E-03_JPRB,9.0695E-04_JPRB,1.0023E-03_JPRB,1.4434E-03_JPRB,1.5856E-03_JPRB,&
+&2.0291E-03_JPRB,1.0816E-03_JPRB,2.1208E-04_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&1.0710E-03_JPRB,1.0888E-03_JPRB,9.9129E-04_JPRB,8.7443E-04_JPRB,1.3179E-03_JPRB,1.5033E-03_JPRB,&
+&1.7077E-03_JPRB,1.0710E-03_JPRB,2.3481E-04_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&1.0708E-03_JPRB,1.1186E-03_JPRB,1.0874E-03_JPRB,9.5969E-04_JPRB,1.2671E-03_JPRB,1.4010E-03_JPRB,&
+&1.5917E-03_JPRB,1.0708E-03_JPRB,2.6339E-04_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&1.0806E-03_JPRB,1.1572E-03_JPRB,1.1631E-03_JPRB,1.1545E-03_JPRB,1.2485E-03_JPRB,1.4294E-03_JPRB,&
+&1.6004E-03_JPRB,1.0806E-03_JPRB,2.9803E-04_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&9.3348E-04_JPRB,8.9092E-04_JPRB,5.7161E-04_JPRB,1.0208E-03_JPRB,1.3784E-03_JPRB,1.7037E-03_JPRB,&
+&1.8935E-03_JPRB,9.3348E-04_JPRB,2.1146E-04_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&9.2171E-04_JPRB,9.0329E-04_JPRB,7.1477E-04_JPRB,8.4903E-04_JPRB,1.2778E-03_JPRB,1.4945E-03_JPRB,&
+&1.7270E-03_JPRB,9.2171E-04_JPRB,2.3005E-04_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&9.1419E-04_JPRB,9.1920E-04_JPRB,8.1160E-04_JPRB,7.6435E-04_JPRB,1.1213E-03_JPRB,1.3301E-03_JPRB,&
+&1.6214E-03_JPRB,9.1419E-04_JPRB,2.5234E-04_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&9.1402E-04_JPRB,9.3968E-04_JPRB,8.8126E-04_JPRB,7.5287E-04_JPRB,1.0570E-03_JPRB,1.2475E-03_JPRB,&
+&1.2998E-03_JPRB,9.1402E-04_JPRB,2.7815E-04_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&9.2290E-04_JPRB,9.7254E-04_JPRB,9.5644E-04_JPRB,8.9479E-04_JPRB,1.0508E-03_JPRB,1.1268E-03_JPRB,&
+&1.3501E-03_JPRB,9.2290E-04_JPRB,3.0806E-04_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&7.8900E-04_JPRB,7.4488E-04_JPRB,4.6218E-04_JPRB,9.6318E-04_JPRB,1.2372E-03_JPRB,1.5237E-03_JPRB,&
+&1.6722E-03_JPRB,7.8900E-04_JPRB,3.0765E-04_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&7.8043E-04_JPRB,7.5428E-04_JPRB,5.4366E-04_JPRB,7.5909E-04_JPRB,1.0879E-03_JPRB,1.3550E-03_JPRB,&
+&1.4794E-03_JPRB,7.8043E-04_JPRB,3.3864E-04_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&7.7466E-04_JPRB,7.6980E-04_JPRB,6.4963E-04_JPRB,7.0009E-04_JPRB,9.7649E-04_JPRB,1.1689E-03_JPRB,&
+&1.4326E-03_JPRB,7.7466E-04_JPRB,3.7286E-04_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&7.7506E-04_JPRB,7.8870E-04_JPRB,7.1575E-04_JPRB,6.1864E-04_JPRB,8.9565E-04_JPRB,1.0708E-03_JPRB,&
+&1.2387E-03_JPRB,7.7506E-04_JPRB,4.1070E-04_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&7.8287E-04_JPRB,8.1561E-04_JPRB,7.7836E-04_JPRB,6.6838E-04_JPRB,8.8453E-04_JPRB,9.5158E-04_JPRB,&
+&1.1620E-03_JPRB,7.8287E-04_JPRB,4.5222E-04_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&6.6353E-04_JPRB,6.2207E-04_JPRB,4.1497E-04_JPRB,8.5325E-04_JPRB,1.1545E-03_JPRB,1.3202E-03_JPRB,&
+&1.4543E-03_JPRB,6.6353E-04_JPRB,9.2255E-04_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&6.5824E-04_JPRB,6.2786E-04_JPRB,3.9339E-04_JPRB,7.1164E-04_JPRB,9.5910E-04_JPRB,1.2248E-03_JPRB,&
+&1.2834E-03_JPRB,6.5824E-04_JPRB,1.0047E-03_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&6.5331E-04_JPRB,6.3921E-04_JPRB,5.1016E-04_JPRB,5.9654E-04_JPRB,8.7596E-04_JPRB,1.0857E-03_JPRB,&
+&1.2145E-03_JPRB,6.5331E-04_JPRB,1.0900E-03_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&6.5413E-04_JPRB,6.5950E-04_JPRB,5.8244E-04_JPRB,5.3974E-04_JPRB,7.9259E-04_JPRB,9.3024E-04_JPRB,&
+&1.1600E-03_JPRB,6.5413E-04_JPRB,1.1801E-03_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&6.6022E-04_JPRB,6.8110E-04_JPRB,6.3639E-04_JPRB,5.2716E-04_JPRB,7.2311E-04_JPRB,8.5016E-04_JPRB,&
+&9.6256E-04_JPRB,6.6022E-04_JPRB,1.2684E-03_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&5.5537E-04_JPRB,5.1658E-04_JPRB,3.5969E-04_JPRB,7.5778E-04_JPRB,1.0268E-03_JPRB,1.1188E-03_JPRB,&
+&1.2385E-03_JPRB,5.5537E-04_JPRB,4.6647E-03_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&5.5299E-04_JPRB,5.2259E-04_JPRB,3.1728E-04_JPRB,6.5526E-04_JPRB,8.4363E-04_JPRB,1.0738E-03_JPRB,&
+&1.0790E-03_JPRB,5.5299E-04_JPRB,4.9960E-03_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&5.4881E-04_JPRB,5.3065E-04_JPRB,3.9373E-04_JPRB,5.2361E-04_JPRB,7.6014E-04_JPRB,9.4697E-04_JPRB,&
+&1.0409E-03_JPRB,5.4881E-04_JPRB,5.3035E-03_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&5.5010E-04_JPRB,5.4878E-04_JPRB,4.7038E-04_JPRB,4.9342E-04_JPRB,6.7583E-04_JPRB,8.0683E-04_JPRB,&
+&1.0299E-03_JPRB,5.5010E-04_JPRB,5.6055E-03_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&5.5598E-04_JPRB,5.6871E-04_JPRB,5.2247E-04_JPRB,4.3615E-04_JPRB,6.1815E-04_JPRB,7.4431E-04_JPRB,&
+&8.6008E-04_JPRB,5.5598E-04_JPRB,5.8866E-03_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&4.6383E-04_JPRB,4.3181E-04_JPRB,2.9311E-04_JPRB,6.2613E-04_JPRB,8.4464E-04_JPRB,9.4332E-04_JPRB,&
+&1.0276E-03_JPRB,4.6383E-04_JPRB,9.7820E-03_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&4.6171E-04_JPRB,4.3648E-04_JPRB,2.6562E-04_JPRB,5.3382E-04_JPRB,6.9685E-04_JPRB,9.0179E-04_JPRB,&
+&9.0128E-04_JPRB,4.6171E-04_JPRB,1.0398E-02_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&4.5971E-04_JPRB,4.4491E-04_JPRB,3.3508E-04_JPRB,4.3267E-04_JPRB,6.3864E-04_JPRB,7.7944E-04_JPRB,&
+&8.8922E-04_JPRB,4.5971E-04_JPRB,1.0944E-02_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&4.6259E-04_JPRB,4.6298E-04_JPRB,4.0175E-04_JPRB,4.0894E-04_JPRB,5.5874E-04_JPRB,6.6574E-04_JPRB,&
+&8.6378E-04_JPRB,4.6259E-04_JPRB,1.1452E-02_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&4.6974E-04_JPRB,4.8223E-04_JPRB,4.4819E-04_JPRB,3.7104E-04_JPRB,5.1007E-04_JPRB,6.1091E-04_JPRB,&
+&6.9095E-04_JPRB,4.6974E-04_JPRB,1.1916E-02_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&3.8677E-04_JPRB,3.6035E-04_JPRB,2.4184E-04_JPRB,5.1647E-04_JPRB,6.9945E-04_JPRB,8.0460E-04_JPRB,&
+&8.3717E-04_JPRB,3.8677E-04_JPRB,1.3274E-02_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&3.8521E-04_JPRB,3.6402E-04_JPRB,2.2242E-04_JPRB,4.3447E-04_JPRB,5.8110E-04_JPRB,7.4047E-04_JPRB,&
+&7.6321E-04_JPRB,3.8521E-04_JPRB,1.4068E-02_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&3.8458E-04_JPRB,3.7296E-04_JPRB,2.8696E-04_JPRB,3.5751E-04_JPRB,5.2960E-04_JPRB,6.4366E-04_JPRB,&
+&7.5179E-04_JPRB,3.8458E-04_JPRB,1.4758E-02_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&3.8810E-04_JPRB,3.8944E-04_JPRB,3.4377E-04_JPRB,3.3355E-04_JPRB,4.6692E-04_JPRB,5.5746E-04_JPRB,&
+&7.0895E-04_JPRB,3.8810E-04_JPRB,1.5376E-02_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&3.9595E-04_JPRB,4.0863E-04_JPRB,3.8125E-04_JPRB,3.1202E-04_JPRB,4.2678E-04_JPRB,5.1131E-04_JPRB,&
+&5.7489E-04_JPRB,3.9595E-04_JPRB,1.5941E-02_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&3.2194E-04_JPRB,2.9976E-04_JPRB,1.9852E-04_JPRB,4.2567E-04_JPRB,5.7525E-04_JPRB,6.7061E-04_JPRB,&
+&6.9907E-04_JPRB,3.2194E-04_JPRB,1.4565E-02_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&3.2103E-04_JPRB,3.0342E-04_JPRB,1.8519E-04_JPRB,3.5157E-04_JPRB,4.8791E-04_JPRB,6.1939E-04_JPRB,&
+&6.5160E-04_JPRB,3.2103E-04_JPRB,1.5395E-02_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&3.2113E-04_JPRB,3.1205E-04_JPRB,2.4410E-04_JPRB,2.9571E-04_JPRB,4.4082E-04_JPRB,5.2957E-04_JPRB,&
+&6.2741E-04_JPRB,3.2112E-04_JPRB,1.6107E-02_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&3.2542E-04_JPRB,3.2754E-04_JPRB,2.9103E-04_JPRB,2.6678E-04_JPRB,3.8858E-04_JPRB,4.6663E-04_JPRB,&
+&5.7700E-04_JPRB,3.2542E-04_JPRB,1.6764E-02_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&3.3271E-04_JPRB,3.4522E-04_JPRB,3.2313E-04_JPRB,2.6306E-04_JPRB,3.5325E-04_JPRB,4.2786E-04_JPRB,&
+&4.7758E-04_JPRB,3.3271E-04_JPRB,1.7329E-02_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&3.2539E-03_JPRB,3.4940E-03_JPRB,3.4388E-03_JPRB,3.0659E-03_JPRB,3.4522E-03_JPRB,4.1188E-03_JPRB,&
+&4.1472E-03_JPRB,3.2539E-03_JPRB,9.9646E-04_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&3.2363E-03_JPRB,3.6045E-03_JPRB,3.7021E-03_JPRB,3.5901E-03_JPRB,3.1463E-03_JPRB,4.3360E-03_JPRB,&
+&4.0838E-03_JPRB,3.2363E-03_JPRB,1.0956E-03_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&3.2334E-03_JPRB,3.7700E-03_JPRB,3.9602E-03_JPRB,3.9629E-03_JPRB,3.8081E-03_JPRB,4.2925E-03_JPRB,&
+&5.1219E-03_JPRB,3.2334E-03_JPRB,1.3007E-03_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&3.2490E-03_JPRB,3.9748E-03_JPRB,4.2071E-03_JPRB,4.2935E-03_JPRB,4.3164E-03_JPRB,4.2604E-03_JPRB,&
+&5.6033E-03_JPRB,3.2490E-03_JPRB,1.5944E-03_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&3.2698E-03_JPRB,4.1740E-03_JPRB,4.4497E-03_JPRB,4.6155E-03_JPRB,4.8047E-03_JPRB,5.1537E-03_JPRB,&
+&5.5559E-03_JPRB,3.2698E-03_JPRB,1.9119E-03_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&2.8229E-03_JPRB,2.9984E-03_JPRB,2.9248E-03_JPRB,2.5710E-03_JPRB,2.9591E-03_JPRB,3.5685E-03_JPRB,&
+&3.3471E-03_JPRB,2.8229E-03_JPRB,7.1037E-04_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&2.8182E-03_JPRB,3.1079E-03_JPRB,3.1510E-03_JPRB,3.0220E-03_JPRB,2.6456E-03_JPRB,3.5065E-03_JPRB,&
+&3.5091E-03_JPRB,2.8182E-03_JPRB,8.2941E-04_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&2.8273E-03_JPRB,3.2641E-03_JPRB,3.3991E-03_JPRB,3.3882E-03_JPRB,3.1076E-03_JPRB,3.6339E-03_JPRB,&
+&4.1453E-03_JPRB,2.8273E-03_JPRB,9.9329E-04_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&2.8479E-03_JPRB,3.4537E-03_JPRB,3.6378E-03_JPRB,3.6922E-03_JPRB,3.5902E-03_JPRB,3.4985E-03_JPRB,&
+&4.8079E-03_JPRB,2.8479E-03_JPRB,1.2207E-03_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&2.8762E-03_JPRB,3.6435E-03_JPRB,3.8640E-03_JPRB,3.9829E-03_JPRB,4.0196E-03_JPRB,4.2137E-03_JPRB,&
+&4.6057E-03_JPRB,2.8762E-03_JPRB,1.4645E-03_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&2.4480E-03_JPRB,2.5503E-03_JPRB,2.4276E-03_JPRB,1.9299E-03_JPRB,2.4394E-03_JPRB,2.9600E-03_JPRB,&
+&3.0819E-03_JPRB,2.4480E-03_JPRB,5.1310E-04_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&2.4484E-03_JPRB,2.6489E-03_JPRB,2.6249E-03_JPRB,2.4613E-03_JPRB,2.1891E-03_JPRB,2.8113E-03_JPRB,&
+&2.9085E-03_JPRB,2.4484E-03_JPRB,6.0695E-04_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&2.4631E-03_JPRB,2.7817E-03_JPRB,2.8578E-03_JPRB,2.8021E-03_JPRB,2.3361E-03_JPRB,3.1956E-03_JPRB,&
+&3.2912E-03_JPRB,2.4631E-03_JPRB,7.4313E-04_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&2.4843E-03_JPRB,2.9440E-03_JPRB,3.0734E-03_JPRB,3.0947E-03_JPRB,2.9596E-03_JPRB,2.9621E-03_JPRB,&
+&3.8254E-03_JPRB,2.4843E-03_JPRB,8.9831E-04_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&2.5152E-03_JPRB,3.1190E-03_JPRB,3.2801E-03_JPRB,3.3527E-03_JPRB,3.3374E-03_JPRB,3.2653E-03_JPRB,&
+&3.7266E-03_JPRB,2.5152E-03_JPRB,1.0797E-03_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&2.1250E-03_JPRB,2.1670E-03_JPRB,1.9990E-03_JPRB,1.5199E-03_JPRB,1.9962E-03_JPRB,2.4995E-03_JPRB,&
+&2.9024E-03_JPRB,2.1250E-03_JPRB,3.7531E-04_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&2.1204E-03_JPRB,2.2489E-03_JPRB,2.1700E-03_JPRB,1.9399E-03_JPRB,1.9963E-03_JPRB,2.4266E-03_JPRB,&
+&2.6000E-03_JPRB,2.1204E-03_JPRB,4.4756E-04_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&2.1413E-03_JPRB,2.3587E-03_JPRB,2.3627E-03_JPRB,2.2544E-03_JPRB,1.9195E-03_JPRB,2.4658E-03_JPRB,&
+&2.5172E-03_JPRB,2.1413E-03_JPRB,5.4705E-04_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&2.1654E-03_JPRB,2.4980E-03_JPRB,2.5663E-03_JPRB,2.5373E-03_JPRB,2.3728E-03_JPRB,2.4769E-03_JPRB,&
+&2.8318E-03_JPRB,2.1654E-03_JPRB,6.6125E-04_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&2.1913E-03_JPRB,2.6456E-03_JPRB,2.7536E-03_JPRB,2.7816E-03_JPRB,2.7405E-03_JPRB,2.5702E-03_JPRB,&
+&3.2605E-03_JPRB,2.1913E-03_JPRB,7.9714E-04_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&1.8265E-03_JPRB,1.8381E-03_JPRB,1.6457E-03_JPRB,1.2486E-03_JPRB,1.7229E-03_JPRB,2.0547E-03_JPRB,&
+&2.6848E-03_JPRB,1.8265E-03_JPRB,2.8596E-04_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&1.8274E-03_JPRB,1.9048E-03_JPRB,1.7983E-03_JPRB,1.4752E-03_JPRB,1.7469E-03_JPRB,2.1116E-03_JPRB,&
+&2.1134E-03_JPRB,1.8274E-03_JPRB,3.4190E-04_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&1.8508E-03_JPRB,2.0003E-03_JPRB,1.9620E-03_JPRB,1.8188E-03_JPRB,1.6077E-03_JPRB,1.9516E-03_JPRB,&
+&2.1073E-03_JPRB,1.8508E-03_JPRB,4.1292E-04_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&1.8793E-03_JPRB,2.1182E-03_JPRB,2.1350E-03_JPRB,2.0517E-03_JPRB,1.8087E-03_JPRB,2.2071E-03_JPRB,&
+&2.2714E-03_JPRB,1.8793E-03_JPRB,4.9789E-04_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&1.9065E-03_JPRB,2.2435E-03_JPRB,2.3053E-03_JPRB,2.2926E-03_JPRB,2.2224E-03_JPRB,2.0829E-03_JPRB,&
+&2.5565E-03_JPRB,1.9065E-03_JPRB,5.9975E-04_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&1.5738E-03_JPRB,1.5536E-03_JPRB,1.3462E-03_JPRB,1.0905E-03_JPRB,1.5345E-03_JPRB,1.8378E-03_JPRB,&
+&2.3696E-03_JPRB,1.5738E-03_JPRB,2.4570E-04_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&1.5785E-03_JPRB,1.6102E-03_JPRB,1.4864E-03_JPRB,1.0878E-03_JPRB,1.4533E-03_JPRB,1.8096E-03_JPRB,&
+&1.9208E-03_JPRB,1.5785E-03_JPRB,2.8650E-04_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&1.5938E-03_JPRB,1.6886E-03_JPRB,1.6242E-03_JPRB,1.4329E-03_JPRB,1.3971E-03_JPRB,1.6588E-03_JPRB,&
+&1.7977E-03_JPRB,1.5938E-03_JPRB,3.3646E-04_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&1.6207E-03_JPRB,1.7903E-03_JPRB,1.7740E-03_JPRB,1.6609E-03_JPRB,1.4090E-03_JPRB,1.7880E-03_JPRB,&
+&1.8264E-03_JPRB,1.6207E-03_JPRB,3.9927E-04_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&1.6514E-03_JPRB,1.8945E-03_JPRB,1.9189E-03_JPRB,1.8707E-03_JPRB,1.7309E-03_JPRB,1.7651E-03_JPRB,&
+&1.8956E-03_JPRB,1.6514E-03_JPRB,4.7341E-04_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&1.3566E-03_JPRB,1.3176E-03_JPRB,1.0800E-03_JPRB,9.9879E-04_JPRB,1.3645E-03_JPRB,1.6716E-03_JPRB,&
+&2.0138E-03_JPRB,1.3566E-03_JPRB,2.7117E-04_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&1.3616E-03_JPRB,1.3614E-03_JPRB,1.2294E-03_JPRB,8.6943E-04_JPRB,1.2441E-03_JPRB,1.4557E-03_JPRB,&
+&1.7627E-03_JPRB,1.3616E-03_JPRB,3.0497E-04_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&1.3738E-03_JPRB,1.4251E-03_JPRB,1.3424E-03_JPRB,1.0748E-03_JPRB,1.3239E-03_JPRB,1.4948E-03_JPRB,&
+&1.4893E-03_JPRB,1.3738E-03_JPRB,3.4547E-04_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&1.3909E-03_JPRB,1.5062E-03_JPRB,1.4675E-03_JPRB,1.3314E-03_JPRB,1.1299E-03_JPRB,1.4256E-03_JPRB,&
+&1.5101E-03_JPRB,1.3909E-03_JPRB,3.9363E-04_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&1.4214E-03_JPRB,1.5939E-03_JPRB,1.5929E-03_JPRB,1.5159E-03_JPRB,1.3044E-03_JPRB,1.5546E-03_JPRB,&
+&1.5847E-03_JPRB,1.4214E-03_JPRB,4.4999E-04_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&1.1638E-03_JPRB,1.1139E-03_JPRB,8.4796E-04_JPRB,8.4668E-04_JPRB,1.2396E-03_JPRB,1.5094E-03_JPRB,&
+&1.6975E-03_JPRB,1.1638E-03_JPRB,4.3052E-04_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&1.1671E-03_JPRB,1.1491E-03_JPRB,9.9702E-04_JPRB,7.1894E-04_JPRB,1.1157E-03_JPRB,1.2835E-03_JPRB,&
+&1.5171E-03_JPRB,1.1671E-03_JPRB,4.7244E-04_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&1.1763E-03_JPRB,1.1971E-03_JPRB,1.1061E-03_JPRB,7.5625E-04_JPRB,1.0948E-03_JPRB,1.3227E-03_JPRB,&
+&1.3243E-03_JPRB,1.1763E-03_JPRB,5.1908E-04_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&1.1882E-03_JPRB,1.2582E-03_JPRB,1.2081E-03_JPRB,1.0410E-03_JPRB,9.4931E-04_JPRB,1.2112E-03_JPRB,&
+&1.2350E-03_JPRB,1.1882E-03_JPRB,5.7242E-04_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&1.2141E-03_JPRB,1.3322E-03_JPRB,1.3142E-03_JPRB,1.2208E-03_JPRB,9.8671E-04_JPRB,1.3128E-03_JPRB,&
+&1.3456E-03_JPRB,1.2141E-03_JPRB,6.3120E-04_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&9.9337E-04_JPRB,9.3743E-04_JPRB,6.1970E-04_JPRB,7.5456E-04_JPRB,1.1089E-03_JPRB,1.3407E-03_JPRB,&
+&1.5068E-03_JPRB,9.9337E-04_JPRB,1.4422E-03_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&9.9471E-04_JPRB,9.6601E-04_JPRB,8.0263E-04_JPRB,6.4260E-04_JPRB,9.9035E-04_JPRB,1.1710E-03_JPRB,&
+&1.3289E-03_JPRB,9.9471E-04_JPRB,1.5498E-03_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&1.0028E-03_JPRB,1.0037E-03_JPRB,9.0388E-04_JPRB,5.9394E-04_JPRB,8.7485E-04_JPRB,1.0779E-03_JPRB,&
+&1.1968E-03_JPRB,1.0028E-03_JPRB,1.6632E-03_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&1.0138E-03_JPRB,1.0500E-03_JPRB,9.8794E-04_JPRB,7.6322E-04_JPRB,8.5312E-04_JPRB,1.1047E-03_JPRB,&
+&1.0664E-03_JPRB,1.0138E-03_JPRB,1.7764E-03_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&1.0324E-03_JPRB,1.1072E-03_JPRB,1.0751E-03_JPRB,9.6755E-04_JPRB,7.9829E-04_JPRB,1.0354E-03_JPRB,&
+&1.1339E-03_JPRB,1.0324E-03_JPRB,1.8836E-03_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&8.4390E-04_JPRB,7.8883E-04_JPRB,4.5496E-04_JPRB,6.3978E-04_JPRB,9.7062E-04_JPRB,1.1888E-03_JPRB,&
+&1.3025E-03_JPRB,8.4390E-04_JPRB,7.7978E-03_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&8.4417E-04_JPRB,8.1047E-04_JPRB,6.4039E-04_JPRB,5.5867E-04_JPRB,8.6775E-04_JPRB,1.0100E-03_JPRB,&
+&1.1972E-03_JPRB,8.4417E-04_JPRB,8.1651E-03_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&8.5209E-04_JPRB,8.4218E-04_JPRB,7.3701E-04_JPRB,4.8053E-04_JPRB,7.5503E-04_JPRB,9.4507E-04_JPRB,&
+&1.0394E-03_JPRB,8.5209E-04_JPRB,8.5320E-03_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&8.6243E-04_JPRB,8.7871E-04_JPRB,8.1378E-04_JPRB,5.4794E-04_JPRB,7.5693E-04_JPRB,9.4093E-04_JPRB,&
+&9.0694E-04_JPRB,8.6243E-04_JPRB,8.8886E-03_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&8.7838E-04_JPRB,9.2500E-04_JPRB,8.8544E-04_JPRB,7.6044E-04_JPRB,6.4236E-04_JPRB,8.2354E-04_JPRB,&
+&9.4540E-04_JPRB,8.7839E-04_JPRB,9.2325E-03_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&7.1140E-04_JPRB,6.6686E-04_JPRB,3.9659E-04_JPRB,5.3128E-04_JPRB,8.2390E-04_JPRB,9.6334E-04_JPRB,&
+&1.0535E-03_JPRB,7.1140E-04_JPRB,1.6752E-02_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&7.1470E-04_JPRB,6.8928E-04_JPRB,5.4857E-04_JPRB,4.7790E-04_JPRB,7.0017E-04_JPRB,8.4578E-04_JPRB,&
+&9.6239E-04_JPRB,7.1470E-04_JPRB,1.7467E-02_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&7.2406E-04_JPRB,7.1829E-04_JPRB,6.3252E-04_JPRB,4.0136E-04_JPRB,6.0473E-04_JPRB,8.1229E-04_JPRB,&
+&8.6413E-04_JPRB,7.2406E-04_JPRB,1.8154E-02_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&7.3750E-04_JPRB,7.5088E-04_JPRB,6.9603E-04_JPRB,4.8007E-04_JPRB,6.2834E-04_JPRB,7.5345E-04_JPRB,&
+&7.8530E-04_JPRB,7.3750E-04_JPRB,1.8779E-02_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&7.5575E-04_JPRB,7.9367E-04_JPRB,7.5606E-04_JPRB,6.5213E-04_JPRB,5.4718E-04_JPRB,7.0193E-04_JPRB,&
+&8.3404E-04_JPRB,7.5575E-04_JPRB,1.9352E-02_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&5.9829E-04_JPRB,5.6157E-04_JPRB,3.4347E-04_JPRB,4.4145E-04_JPRB,6.8008E-04_JPRB,7.8397E-04_JPRB,&
+&8.5127E-04_JPRB,5.9830E-04_JPRB,2.3223E-02_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&6.0344E-04_JPRB,5.8387E-04_JPRB,4.6957E-04_JPRB,3.9737E-04_JPRB,5.7696E-04_JPRB,7.2078E-04_JPRB,&
+&7.8930E-04_JPRB,6.0344E-04_JPRB,2.4171E-02_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&6.1383E-04_JPRB,6.1057E-04_JPRB,5.4014E-04_JPRB,3.4306E-04_JPRB,5.0450E-04_JPRB,6.7941E-04_JPRB,&
+&7.3306E-04_JPRB,6.1383E-04_JPRB,2.5042E-02_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&6.2909E-04_JPRB,6.4187E-04_JPRB,5.9443E-04_JPRB,4.2049E-04_JPRB,5.1244E-04_JPRB,6.1921E-04_JPRB,&
+&6.8115E-04_JPRB,6.2909E-04_JPRB,2.5830E-02_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&6.5010E-04_JPRB,6.8123E-04_JPRB,6.4805E-04_JPRB,5.6243E-04_JPRB,4.5555E-04_JPRB,5.8069E-04_JPRB,&
+&6.9766E-04_JPRB,6.5010E-04_JPRB,2.6537E-02_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&5.0269E-04_JPRB,4.7309E-04_JPRB,2.9722E-04_JPRB,3.6029E-04_JPRB,5.5327E-04_JPRB,6.7267E-04_JPRB,&
+&6.9641E-04_JPRB,5.0269E-04_JPRB,2.5949E-02_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&5.0863E-04_JPRB,4.9324E-04_JPRB,4.0227E-04_JPRB,3.2512E-04_JPRB,4.7435E-04_JPRB,5.7218E-04_JPRB,&
+&6.4965E-04_JPRB,5.0863E-04_JPRB,2.6966E-02_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&5.1998E-04_JPRB,5.1754E-04_JPRB,4.6042E-04_JPRB,2.9200E-04_JPRB,4.1919E-04_JPRB,5.5920E-04_JPRB,&
+&6.2355E-04_JPRB,5.1997E-04_JPRB,2.7905E-02_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&5.3565E-04_JPRB,5.4724E-04_JPRB,5.0865E-04_JPRB,3.7273E-04_JPRB,4.1799E-04_JPRB,5.1125E-04_JPRB,&
+&5.5790E-04_JPRB,5.3565E-04_JPRB,2.8735E-02_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&5.5698E-04_JPRB,5.8373E-04_JPRB,5.5557E-04_JPRB,4.8519E-04_JPRB,3.8080E-04_JPRB,4.8575E-04_JPRB,&
+&5.9866E-04_JPRB,5.5698E-04_JPRB,2.9481E-02_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&5.1773E-03_JPRB,5.5179E-03_JPRB,5.4794E-03_JPRB,5.0590E-03_JPRB,3.8870E-03_JPRB,4.6296E-03_JPRB,&
+&5.9241E-03_JPRB,5.1773E-03_JPRB,1.5277E-03_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&5.2034E-03_JPRB,5.6993E-03_JPRB,5.7195E-03_JPRB,5.6065E-03_JPRB,5.1571E-03_JPRB,4.6383E-03_JPRB,&
+&6.9998E-03_JPRB,5.2034E-03_JPRB,2.0327E-03_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&5.2523E-03_JPRB,5.8787E-03_JPRB,6.0084E-03_JPRB,6.0684E-03_JPRB,6.0397E-03_JPRB,6.1073E-03_JPRB,&
+&5.9208E-03_JPRB,5.2523E-03_JPRB,2.5125E-03_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&5.3054E-03_JPRB,6.0746E-03_JPRB,6.3010E-03_JPRB,6.5205E-03_JPRB,6.8111E-03_JPRB,7.3269E-03_JPRB,&
+&7.5915E-03_JPRB,5.3054E-03_JPRB,3.0259E-03_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&5.3679E-03_JPRB,6.2880E-03_JPRB,6.5896E-03_JPRB,6.9769E-03_JPRB,7.5426E-03_JPRB,8.2616E-03_JPRB,&
+&9.5734E-03_JPRB,5.3679E-03_JPRB,3.5988E-03_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&4.6050E-03_JPRB,4.8904E-03_JPRB,4.7826E-03_JPRB,4.2812E-03_JPRB,3.0961E-03_JPRB,4.0066E-03_JPRB,&
+&5.0115E-03_JPRB,4.6050E-03_JPRB,1.1833E-03_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&4.6546E-03_JPRB,5.0669E-03_JPRB,5.0153E-03_JPRB,4.8028E-03_JPRB,4.2371E-03_JPRB,3.8571E-03_JPRB,&
+&5.7082E-03_JPRB,4.6545E-03_JPRB,1.5250E-03_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&4.7163E-03_JPRB,5.2445E-03_JPRB,5.2818E-03_JPRB,5.2193E-03_JPRB,5.0401E-03_JPRB,4.8158E-03_JPRB,&
+&4.8111E-03_JPRB,4.7163E-03_JPRB,1.8851E-03_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&4.7840E-03_JPRB,5.4375E-03_JPRB,5.5428E-03_JPRB,5.6145E-03_JPRB,5.7557E-03_JPRB,6.0979E-03_JPRB,&
+&6.0650E-03_JPRB,4.7840E-03_JPRB,2.2872E-03_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&4.8541E-03_JPRB,5.6350E-03_JPRB,5.8029E-03_JPRB,5.9983E-03_JPRB,6.3916E-03_JPRB,6.9220E-03_JPRB,&
+&7.8417E-03_JPRB,4.8542E-03_JPRB,2.7410E-03_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&4.0566E-03_JPRB,4.2666E-03_JPRB,4.1136E-03_JPRB,3.4902E-03_JPRB,2.4320E-03_JPRB,3.7448E-03_JPRB,&
+&4.0596E-03_JPRB,4.0566E-03_JPRB,8.5537E-04_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&4.1192E-03_JPRB,4.4343E-03_JPRB,4.3374E-03_JPRB,4.0126E-03_JPRB,3.2863E-03_JPRB,3.1710E-03_JPRB,&
+&4.6913E-03_JPRB,4.1192E-03_JPRB,1.0912E-03_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&4.1883E-03_JPRB,4.6068E-03_JPRB,4.5710E-03_JPRB,4.4080E-03_JPRB,4.0587E-03_JPRB,3.3970E-03_JPRB,&
+&4.0950E-03_JPRB,4.1883E-03_JPRB,1.3564E-03_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&4.2607E-03_JPRB,4.7874E-03_JPRB,4.8302E-03_JPRB,4.7600E-03_JPRB,4.6789E-03_JPRB,4.6803E-03_JPRB,&
+&4.6046E-03_JPRB,4.2607E-03_JPRB,1.6587E-03_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&4.3291E-03_JPRB,4.9729E-03_JPRB,5.0821E-03_JPRB,5.1132E-03_JPRB,5.2389E-03_JPRB,5.5501E-03_JPRB,&
+&6.1453E-03_JPRB,4.3291E-03_JPRB,2.0123E-03_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&3.5459E-03_JPRB,3.6825E-03_JPRB,3.4932E-03_JPRB,2.7637E-03_JPRB,1.9201E-03_JPRB,3.0460E-03_JPRB,&
+&3.2749E-03_JPRB,3.5459E-03_JPRB,6.1561E-04_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&3.6061E-03_JPRB,3.8362E-03_JPRB,3.7182E-03_JPRB,3.3223E-03_JPRB,2.3497E-03_JPRB,2.6627E-03_JPRB,&
+&3.6845E-03_JPRB,3.6061E-03_JPRB,7.8011E-04_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&3.6751E-03_JPRB,4.0009E-03_JPRB,3.9352E-03_JPRB,3.7212E-03_JPRB,3.1586E-03_JPRB,2.6599E-03_JPRB,&
+&3.9284E-03_JPRB,3.6751E-03_JPRB,9.7541E-04_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&3.7472E-03_JPRB,4.1657E-03_JPRB,4.1547E-03_JPRB,4.0471E-03_JPRB,3.7579E-03_JPRB,3.4987E-03_JPRB,&
+&3.4684E-03_JPRB,3.7472E-03_JPRB,1.2060E-03_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&3.8173E-03_JPRB,4.3392E-03_JPRB,4.3926E-03_JPRB,4.3575E-03_JPRB,4.2919E-03_JPRB,4.2730E-03_JPRB,&
+&4.3662E-03_JPRB,3.8173E-03_JPRB,1.4743E-03_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&3.0911E-03_JPRB,3.1547E-03_JPRB,2.9517E-03_JPRB,2.1585E-03_JPRB,1.7089E-03_JPRB,2.5065E-03_JPRB,&
+&2.6736E-03_JPRB,3.0911E-03_JPRB,4.5259E-04_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&3.1432E-03_JPRB,3.2952E-03_JPRB,3.1535E-03_JPRB,2.7144E-03_JPRB,1.7305E-03_JPRB,2.3740E-03_JPRB,&
+&2.9171E-03_JPRB,3.1432E-03_JPRB,5.6940E-04_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&3.2011E-03_JPRB,3.4418E-03_JPRB,3.3526E-03_JPRB,3.0998E-03_JPRB,2.4424E-03_JPRB,2.1728E-03_JPRB,&
+&3.3563E-03_JPRB,3.2011E-03_JPRB,7.1313E-04_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&3.2691E-03_JPRB,3.5925E-03_JPRB,3.5476E-03_JPRB,3.4130E-03_JPRB,3.0304E-03_JPRB,2.4542E-03_JPRB,&
+&2.7853E-03_JPRB,3.2691E-03_JPRB,8.8641E-04_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&3.3413E-03_JPRB,3.7507E-03_JPRB,3.7512E-03_JPRB,3.6954E-03_JPRB,3.5144E-03_JPRB,3.3039E-03_JPRB,&
+&3.1174E-03_JPRB,3.3413E-03_JPRB,1.0913E-03_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&2.6814E-03_JPRB,2.6940E-03_JPRB,2.4706E-03_JPRB,1.6241E-03_JPRB,1.5796E-03_JPRB,1.9986E-03_JPRB,&
+&2.3111E-03_JPRB,2.6814E-03_JPRB,3.5673E-04_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&2.7286E-03_JPRB,2.8170E-03_JPRB,2.6566E-03_JPRB,2.1953E-03_JPRB,1.3951E-03_JPRB,2.0187E-03_JPRB,&
+&2.3167E-03_JPRB,2.7286E-03_JPRB,4.3928E-04_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&2.7784E-03_JPRB,2.9396E-03_JPRB,2.8323E-03_JPRB,2.5431E-03_JPRB,1.8045E-03_JPRB,1.8580E-03_JPRB,&
+&2.5230E-03_JPRB,2.7784E-03_JPRB,5.4225E-04_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&2.8457E-03_JPRB,3.0707E-03_JPRB,3.0040E-03_JPRB,2.8313E-03_JPRB,2.4304E-03_JPRB,1.8757E-03_JPRB,&
+&2.4280E-03_JPRB,2.8457E-03_JPRB,6.6880E-04_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&2.9149E-03_JPRB,3.2145E-03_JPRB,3.1791E-03_JPRB,3.0927E-03_JPRB,2.8718E-03_JPRB,2.5020E-03_JPRB,&
+&2.4114E-03_JPRB,2.9149E-03_JPRB,8.2090E-04_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&2.3167E-03_JPRB,2.2952E-03_JPRB,2.0696E-03_JPRB,1.1773E-03_JPRB,1.4001E-03_JPRB,1.6742E-03_JPRB,&
+&2.1113E-03_JPRB,2.3167E-03_JPRB,3.6556E-04_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&2.3617E-03_JPRB,2.3995E-03_JPRB,2.2278E-03_JPRB,1.7561E-03_JPRB,1.2221E-03_JPRB,1.7039E-03_JPRB,&
+&1.9252E-03_JPRB,2.3617E-03_JPRB,4.2264E-04_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&2.4125E-03_JPRB,2.5066E-03_JPRB,2.3818E-03_JPRB,2.0804E-03_JPRB,1.2642E-03_JPRB,1.6328E-03_JPRB,&
+&2.0160E-03_JPRB,2.4124E-03_JPRB,4.9466E-04_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&2.4726E-03_JPRB,2.6189E-03_JPRB,2.5346E-03_JPRB,2.3337E-03_JPRB,1.9285E-03_JPRB,1.5396E-03_JPRB,&
+&2.2851E-03_JPRB,2.4726E-03_JPRB,5.8211E-04_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&2.5348E-03_JPRB,2.7473E-03_JPRB,2.6870E-03_JPRB,2.5696E-03_JPRB,2.3235E-03_JPRB,1.8153E-03_JPRB,&
+&1.9526E-03_JPRB,2.5348E-03_JPRB,6.8811E-04_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&1.9955E-03_JPRB,1.9488E-03_JPRB,1.7343E-03_JPRB,8.5576E-04_JPRB,1.2169E-03_JPRB,1.3982E-03_JPRB,&
+&1.8806E-03_JPRB,1.9955E-03_JPRB,5.8425E-04_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&2.0363E-03_JPRB,2.0385E-03_JPRB,1.8715E-03_JPRB,1.3678E-03_JPRB,1.1488E-03_JPRB,1.3583E-03_JPRB,&
+&1.6630E-03_JPRB,2.0363E-03_JPRB,6.4943E-04_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&2.0848E-03_JPRB,2.1355E-03_JPRB,2.0016E-03_JPRB,1.7099E-03_JPRB,1.0490E-03_JPRB,1.3612E-03_JPRB,&
+&1.5304E-03_JPRB,2.0848E-03_JPRB,7.2039E-04_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&2.1402E-03_JPRB,2.2347E-03_JPRB,2.1377E-03_JPRB,1.9281E-03_JPRB,1.4576E-03_JPRB,1.3615E-03_JPRB,&
+&1.7494E-03_JPRB,2.1402E-03_JPRB,7.9144E-04_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&2.1918E-03_JPRB,2.3439E-03_JPRB,2.2739E-03_JPRB,2.1323E-03_JPRB,1.8701E-03_JPRB,1.4117E-03_JPRB,&
+&1.6694E-03_JPRB,2.1918E-03_JPRB,8.7428E-04_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&1.7089E-03_JPRB,1.6461E-03_JPRB,1.4363E-03_JPRB,6.6011E-04_JPRB,1.0235E-03_JPRB,1.2576E-03_JPRB,&
+&1.6021E-03_JPRB,1.7089E-03_JPRB,2.1905E-03_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&1.7449E-03_JPRB,1.7240E-03_JPRB,1.5611E-03_JPRB,9.5939E-04_JPRB,1.0171E-03_JPRB,1.0930E-03_JPRB,&
+&1.4980E-03_JPRB,1.7449E-03_JPRB,2.3032E-03_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&1.7892E-03_JPRB,1.8095E-03_JPRB,1.6779E-03_JPRB,1.3700E-03_JPRB,8.8733E-04_JPRB,1.1976E-03_JPRB,&
+&1.2362E-03_JPRB,1.7892E-03_JPRB,2.4285E-03_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&1.8369E-03_JPRB,1.8975E-03_JPRB,1.7975E-03_JPRB,1.5888E-03_JPRB,1.0202E-03_JPRB,1.1883E-03_JPRB,&
+&1.3430E-03_JPRB,1.8369E-03_JPRB,2.5680E-03_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&1.8812E-03_JPRB,1.9874E-03_JPRB,1.9123E-03_JPRB,1.7614E-03_JPRB,1.4649E-03_JPRB,1.1491E-03_JPRB,&
+&1.5713E-03_JPRB,1.8812E-03_JPRB,2.7221E-03_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&1.4572E-03_JPRB,1.3868E-03_JPRB,1.1826E-03_JPRB,6.2346E-04_JPRB,8.6762E-04_JPRB,1.0836E-03_JPRB,&
+&1.3348E-03_JPRB,1.4572E-03_JPRB,1.2658E-02_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&1.4886E-03_JPRB,1.4531E-03_JPRB,1.3004E-03_JPRB,6.9239E-04_JPRB,8.6868E-04_JPRB,9.6168E-04_JPRB,&
+&1.2569E-03_JPRB,1.4886E-03_JPRB,1.3059E-02_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&1.5264E-03_JPRB,1.5274E-03_JPRB,1.4051E-03_JPRB,1.0747E-03_JPRB,7.7218E-04_JPRB,9.7410E-04_JPRB,&
+&1.0859E-03_JPRB,1.5264E-03_JPRB,1.3449E-02_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&1.5664E-03_JPRB,1.6018E-03_JPRB,1.5021E-03_JPRB,1.3016E-03_JPRB,7.5442E-04_JPRB,1.0421E-03_JPRB,&
+&1.0986E-03_JPRB,1.5664E-03_JPRB,1.3823E-02_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&1.6039E-03_JPRB,1.6782E-03_JPRB,1.6029E-03_JPRB,1.4558E-03_JPRB,1.1428E-03_JPRB,9.8459E-04_JPRB,&
+&1.2311E-03_JPRB,1.6039E-03_JPRB,1.4197E-02_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&1.2517E-03_JPRB,1.1909E-03_JPRB,1.0253E-03_JPRB,4.8905E-04_JPRB,7.3597E-04_JPRB,9.0427E-04_JPRB,&
+&1.2588E-03_JPRB,1.2517E-03_JPRB,2.8270E-02_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&1.2817E-03_JPRB,1.2489E-03_JPRB,1.1208E-03_JPRB,6.0287E-04_JPRB,7.2254E-04_JPRB,8.2946E-04_JPRB,&
+&1.0205E-03_JPRB,1.2817E-03_JPRB,2.9032E-02_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&1.3127E-03_JPRB,1.3112E-03_JPRB,1.2059E-03_JPRB,9.4181E-04_JPRB,6.2131E-04_JPRB,8.6171E-04_JPRB,&
+&8.9101E-04_JPRB,1.3127E-03_JPRB,2.9698E-02_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&1.3452E-03_JPRB,1.3741E-03_JPRB,1.2883E-03_JPRB,1.1215E-03_JPRB,6.5766E-04_JPRB,8.7354E-04_JPRB,&
+&9.3021E-04_JPRB,1.3452E-03_JPRB,3.0336E-02_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&1.3753E-03_JPRB,1.4371E-03_JPRB,1.3746E-03_JPRB,1.2547E-03_JPRB,9.9517E-04_JPRB,7.9857E-04_JPRB,&
+&1.0959E-03_JPRB,1.3753E-03_JPRB,3.0956E-02_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&1.0733E-03_JPRB,1.0215E-03_JPRB,8.8454E-04_JPRB,3.9006E-04_JPRB,6.2359E-04_JPRB,7.4085E-04_JPRB,&
+&1.0395E-03_JPRB,1.0733E-03_JPRB,4.0158E-02_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&1.0987E-03_JPRB,1.0703E-03_JPRB,9.6221E-04_JPRB,5.3528E-04_JPRB,5.8115E-04_JPRB,7.1438E-04_JPRB,&
+&8.3203E-04_JPRB,1.0987E-03_JPRB,4.1196E-02_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&1.1257E-03_JPRB,1.1222E-03_JPRB,1.0309E-03_JPRB,8.1291E-04_JPRB,4.9033E-04_JPRB,7.2341E-04_JPRB,&
+&7.5536E-04_JPRB,1.1257E-03_JPRB,4.2149E-02_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&1.1520E-03_JPRB,1.1737E-03_JPRB,1.0999E-03_JPRB,9.6654E-04_JPRB,5.7890E-04_JPRB,6.9991E-04_JPRB,&
+&7.9257E-04_JPRB,1.1520E-03_JPRB,4.3060E-02_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&1.1770E-03_JPRB,1.2266E-03_JPRB,1.1727E-03_JPRB,1.0746E-03_JPRB,8.6506E-04_JPRB,6.5737E-04_JPRB,&
+&9.1851E-04_JPRB,1.1770E-03_JPRB,4.3899E-02_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&9.1723E-04_JPRB,8.7340E-04_JPRB,7.5855E-04_JPRB,3.3160E-04_JPRB,5.1898E-04_JPRB,6.0675E-04_JPRB,&
+&8.3666E-04_JPRB,9.1723E-04_JPRB,4.5805E-02_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&9.3894E-04_JPRB,9.1416E-04_JPRB,8.2179E-04_JPRB,4.8369E-04_JPRB,4.6977E-04_JPRB,6.3046E-04_JPRB,&
+&6.9917E-04_JPRB,9.3894E-04_JPRB,4.7104E-02_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&9.6174E-04_JPRB,9.5729E-04_JPRB,8.7932E-04_JPRB,7.0453E-04_JPRB,4.0162E-04_JPRB,5.9248E-04_JPRB,&
+&6.3372E-04_JPRB,9.6174E-04_JPRB,4.8249E-02_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&9.8438E-04_JPRB,1.0004E-03_JPRB,9.3575E-04_JPRB,8.2536E-04_JPRB,5.0557E-04_JPRB,5.5685E-04_JPRB,&
+&6.8082E-04_JPRB,9.8438E-04_JPRB,4.9296E-02_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&1.0080E-03_JPRB,1.0464E-03_JPRB,9.9862E-04_JPRB,9.1769E-04_JPRB,7.4911E-04_JPRB,5.5133E-04_JPRB,&
+&7.2141E-04_JPRB,1.0080E-03_JPRB,5.0236E-02_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&8.5333E-03_JPRB,9.0798E-03_JPRB,9.1539E-03_JPRB,8.9379E-03_JPRB,8.0082E-03_JPRB,5.5783E-03_JPRB,&
+&6.6117E-03_JPRB,8.5333E-03_JPRB,2.8261E-03_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&8.4109E-03_JPRB,9.3459E-03_JPRB,9.6624E-03_JPRB,9.7547E-03_JPRB,9.5796E-03_JPRB,8.4027E-03_JPRB,&
+&6.4961E-03_JPRB,8.4109E-03_JPRB,3.5780E-03_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&8.3030E-03_JPRB,9.6326E-03_JPRB,1.0206E-02_JPRB,1.0614E-02_JPRB,1.0858E-02_JPRB,1.0462E-02_JPRB,&
+&9.8456E-03_JPRB,8.3030E-03_JPRB,4.4090E-03_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&8.2237E-03_JPRB,9.8958E-03_JPRB,1.0796E-02_JPRB,1.1545E-02_JPRB,1.2099E-02_JPRB,1.2369E-02_JPRB,&
+&1.2077E-02_JPRB,8.2237E-03_JPRB,5.3050E-03_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&8.1599E-03_JPRB,1.0181E-02_JPRB,1.1469E-02_JPRB,1.2490E-02_JPRB,1.3377E-02_JPRB,1.4165E-02_JPRB,&
+&1.4318E-02_JPRB,8.1599E-03_JPRB,6.2987E-03_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&7.7094E-03_JPRB,8.1495E-03_JPRB,8.1817E-03_JPRB,7.9690E-03_JPRB,7.0574E-03_JPRB,4.6583E-03_JPRB,&
+&5.9458E-03_JPRB,7.7094E-03_JPRB,2.1253E-03_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&7.6098E-03_JPRB,8.3857E-03_JPRB,8.6188E-03_JPRB,8.6202E-03_JPRB,8.3668E-03_JPRB,7.2354E-03_JPRB,&
+&5.4614E-03_JPRB,7.6098E-03_JPRB,2.6911E-03_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&7.5380E-03_JPRB,8.6324E-03_JPRB,9.0696E-03_JPRB,9.3578E-03_JPRB,9.5323E-03_JPRB,9.1344E-03_JPRB,&
+&8.4099E-03_JPRB,7.5380E-03_JPRB,3.3283E-03_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&7.4926E-03_JPRB,8.8750E-03_JPRB,9.5781E-03_JPRB,1.0164E-02_JPRB,1.0603E-02_JPRB,1.0755E-02_JPRB,&
+&1.0378E-02_JPRB,7.4926E-03_JPRB,4.0288E-03_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&7.4775E-03_JPRB,9.1627E-03_JPRB,1.0156E-02_JPRB,1.0982E-02_JPRB,1.1695E-02_JPRB,1.2352E-02_JPRB,&
+&1.2667E-02_JPRB,7.4775E-03_JPRB,4.8116E-03_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&6.9121E-03_JPRB,7.2188E-03_JPRB,7.1796E-03_JPRB,6.8889E-03_JPRB,5.8502E-03_JPRB,3.2278E-03_JPRB,&
+&4.9879E-03_JPRB,6.9121E-03_JPRB,1.5160E-03_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&6.8480E-03_JPRB,7.4276E-03_JPRB,7.5203E-03_JPRB,7.4048E-03_JPRB,7.0014E-03_JPRB,5.7055E-03_JPRB,&
+&4.3384E-03_JPRB,6.8480E-03_JPRB,1.9279E-03_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&6.8135E-03_JPRB,7.6493E-03_JPRB,7.8976E-03_JPRB,8.0141E-03_JPRB,8.0170E-03_JPRB,7.5441E-03_JPRB,&
+&6.5174E-03_JPRB,6.8135E-03_JPRB,2.4028E-03_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&6.8122E-03_JPRB,7.8956E-03_JPRB,8.3131E-03_JPRB,8.6965E-03_JPRB,8.9952E-03_JPRB,8.9752E-03_JPRB,&
+&8.4882E-03_JPRB,6.8122E-03_JPRB,2.9375E-03_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&6.8492E-03_JPRB,8.1657E-03_JPRB,8.7936E-03_JPRB,9.3904E-03_JPRB,9.9168E-03_JPRB,1.0345E-02_JPRB,&
+&1.0484E-02_JPRB,6.8492E-03_JPRB,3.5390E-03_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&6.1397E-03_JPRB,6.3324E-03_JPRB,6.2269E-03_JPRB,5.8666E-03_JPRB,4.6601E-03_JPRB,2.6335E-03_JPRB,&
+&4.3502E-03_JPRB,6.1397E-03_JPRB,1.0676E-03_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&6.1071E-03_JPRB,6.5281E-03_JPRB,6.5061E-03_JPRB,6.2987E-03_JPRB,5.7315E-03_JPRB,4.2122E-03_JPRB,&
+&3.5243E-03_JPRB,6.1071E-03_JPRB,1.3674E-03_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&6.1173E-03_JPRB,6.7424E-03_JPRB,6.8351E-03_JPRB,6.7928E-03_JPRB,6.6355E-03_JPRB,6.0084E-03_JPRB,&
+&4.4111E-03_JPRB,6.1173E-03_JPRB,1.7216E-03_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&6.1616E-03_JPRB,6.9850E-03_JPRB,7.2018E-03_JPRB,7.3533E-03_JPRB,7.4639E-03_JPRB,7.3054E-03_JPRB,&
+&6.7355E-03_JPRB,6.1616E-03_JPRB,2.1295E-03_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&6.2327E-03_JPRB,7.2498E-03_JPRB,7.6166E-03_JPRB,7.9404E-03_JPRB,8.2799E-03_JPRB,8.5196E-03_JPRB,&
+&8.4780E-03_JPRB,6.2327E-03_JPRB,2.5893E-03_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&5.4116E-03_JPRB,5.5054E-03_JPRB,5.3551E-03_JPRB,4.9387E-03_JPRB,3.4030E-03_JPRB,2.3925E-03_JPRB,&
+&3.5026E-03_JPRB,5.4116E-03_JPRB,7.5991E-04_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&5.4112E-03_JPRB,5.7013E-03_JPRB,5.6024E-03_JPRB,5.3215E-03_JPRB,4.5735E-03_JPRB,2.7843E-03_JPRB,&
+&3.3021E-03_JPRB,5.4112E-03_JPRB,9.7889E-04_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&5.4571E-03_JPRB,5.9124E-03_JPRB,5.8939E-03_JPRB,5.7468E-03_JPRB,5.4242E-03_JPRB,4.5784E-03_JPRB,&
+&3.1711E-03_JPRB,5.4571E-03_JPRB,1.2420E-03_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&5.5303E-03_JPRB,6.1539E-03_JPRB,6.2322E-03_JPRB,6.2166E-03_JPRB,6.1395E-03_JPRB,5.8002E-03_JPRB,&
+&5.0694E-03_JPRB,5.5303E-03_JPRB,1.5508E-03_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&5.6126E-03_JPRB,6.4231E-03_JPRB,6.6120E-03_JPRB,6.7193E-03_JPRB,6.8307E-03_JPRB,6.8747E-03_JPRB,&
+&6.7129E-03_JPRB,5.6126E-03_JPRB,1.9069E-03_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&4.7396E-03_JPRB,4.7463E-03_JPRB,4.5518E-03_JPRB,4.0433E-03_JPRB,2.2638E-03_JPRB,2.3141E-03_JPRB,&
+&2.8805E-03_JPRB,4.7396E-03_JPRB,5.6698E-04_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&4.7673E-03_JPRB,4.9357E-03_JPRB,4.7801E-03_JPRB,4.4457E-03_JPRB,3.5304E-03_JPRB,1.8920E-03_JPRB,&
+&2.9747E-03_JPRB,4.7673E-03_JPRB,7.2146E-04_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&4.8326E-03_JPRB,5.1460E-03_JPRB,5.0538E-03_JPRB,4.8362E-03_JPRB,4.3455E-03_JPRB,3.2638E-03_JPRB,&
+&2.4492E-03_JPRB,4.8326E-03_JPRB,9.1393E-04_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&4.9138E-03_JPRB,5.3898E-03_JPRB,5.3670E-03_JPRB,5.2448E-03_JPRB,5.0135E-03_JPRB,4.4890E-03_JPRB,&
+&3.4781E-03_JPRB,4.9137E-03_JPRB,1.1441E-03_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&5.0007E-03_JPRB,5.6605E-03_JPRB,5.7246E-03_JPRB,5.6834E-03_JPRB,5.6159E-03_JPRB,5.4449E-03_JPRB,&
+&5.0343E-03_JPRB,5.0007E-03_JPRB,1.4139E-03_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&4.1378E-03_JPRB,4.0754E-03_JPRB,3.8389E-03_JPRB,3.2475E-03_JPRB,1.4857E-03_JPRB,2.1025E-03_JPRB,&
+&2.2984E-03_JPRB,4.1378E-03_JPRB,5.2481E-04_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&4.1822E-03_JPRB,4.2521E-03_JPRB,4.0570E-03_JPRB,3.6688E-03_JPRB,2.5306E-03_JPRB,1.4831E-03_JPRB,&
+&2.6067E-03_JPRB,4.1822E-03_JPRB,6.3111E-04_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&4.2509E-03_JPRB,4.4583E-03_JPRB,4.3081E-03_JPRB,4.0486E-03_JPRB,3.4473E-03_JPRB,2.1091E-03_JPRB,&
+&1.9768E-03_JPRB,4.2509E-03_JPRB,7.6397E-04_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&4.3334E-03_JPRB,4.6876E-03_JPRB,4.6037E-03_JPRB,4.4308E-03_JPRB,4.0651E-03_JPRB,3.3647E-03_JPRB,&
+&2.1587E-03_JPRB,4.3334E-03_JPRB,9.2876E-04_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&4.4225E-03_JPRB,4.9342E-03_JPRB,4.9410E-03_JPRB,4.8191E-03_JPRB,4.6280E-03_JPRB,4.2870E-03_JPRB,&
+&3.6120E-03_JPRB,4.4226E-03_JPRB,1.1252E-03_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&3.6094E-03_JPRB,3.5033E-03_JPRB,3.2400E-03_JPRB,2.6287E-03_JPRB,9.9863E-04_JPRB,1.7500E-03_JPRB,&
+&1.8960E-03_JPRB,3.6094E-03_JPRB,8.2600E-04_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&3.6637E-03_JPRB,3.6642E-03_JPRB,3.4430E-03_JPRB,3.0211E-03_JPRB,1.7119E-03_JPRB,1.3558E-03_JPRB,&
+&2.1462E-03_JPRB,3.6637E-03_JPRB,9.0812E-04_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&3.7354E-03_JPRB,3.8451E-03_JPRB,3.6742E-03_JPRB,3.3691E-03_JPRB,2.6819E-03_JPRB,1.3910E-03_JPRB,&
+&1.9474E-03_JPRB,3.7354E-03_JPRB,1.0101E-03_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&3.8119E-03_JPRB,4.0509E-03_JPRB,3.9304E-03_JPRB,3.7228E-03_JPRB,3.3248E-03_JPRB,2.3768E-03_JPRB,&
+&1.6650E-03_JPRB,3.8120E-03_JPRB,1.1353E-03_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&3.8974E-03_JPRB,4.2692E-03_JPRB,4.2189E-03_JPRB,4.0809E-03_JPRB,3.8147E-03_JPRB,3.3186E-03_JPRB,&
+&2.4419E-03_JPRB,3.8974E-03_JPRB,1.2742E-03_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&3.1509E-03_JPRB,3.0135E-03_JPRB,2.7414E-03_JPRB,2.0848E-03_JPRB,8.0225E-04_JPRB,1.3860E-03_JPRB,&
+&1.6095E-03_JPRB,3.1509E-03_JPRB,3.2874E-03_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&3.2069E-03_JPRB,3.1552E-03_JPRB,2.9300E-03_JPRB,2.5120E-03_JPRB,1.1882E-03_JPRB,1.2244E-03_JPRB,&
+&1.8134E-03_JPRB,3.2069E-03_JPRB,3.4426E-03_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&3.2779E-03_JPRB,3.3142E-03_JPRB,3.1292E-03_JPRB,2.8177E-03_JPRB,2.0556E-03_JPRB,1.0032E-03_JPRB,&
+&1.7964E-03_JPRB,3.2779E-03_JPRB,3.6002E-03_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&3.3512E-03_JPRB,3.4918E-03_JPRB,3.3477E-03_JPRB,3.1214E-03_JPRB,2.7090E-03_JPRB,1.5625E-03_JPRB,&
+&1.3565E-03_JPRB,3.3512E-03_JPRB,3.7586E-03_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&3.4301E-03_JPRB,3.6852E-03_JPRB,3.5951E-03_JPRB,3.4314E-03_JPRB,3.1547E-03_JPRB,2.5504E-03_JPRB,&
+&1.5207E-03_JPRB,3.4301E-03_JPRB,3.9312E-03_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&2.7434E-03_JPRB,2.5990E-03_JPRB,2.3418E-03_JPRB,1.5988E-03_JPRB,7.7035E-04_JPRB,1.2159E-03_JPRB,&
+&1.3978E-03_JPRB,2.7434E-03_JPRB,2.0046E-02_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&2.7987E-03_JPRB,2.7245E-03_JPRB,2.5022E-03_JPRB,2.1126E-03_JPRB,8.9708E-04_JPRB,1.0763E-03_JPRB,&
+&1.5093E-03_JPRB,2.7987E-03_JPRB,2.0516E-02_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&2.8639E-03_JPRB,2.8623E-03_JPRB,2.6825E-03_JPRB,2.3837E-03_JPRB,1.5791E-03_JPRB,8.7614E-04_JPRB,&
+&1.4149E-03_JPRB,2.8639E-03_JPRB,2.0938E-02_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&2.9341E-03_JPRB,3.0198E-03_JPRB,2.8777E-03_JPRB,2.6425E-03_JPRB,2.2095E-03_JPRB,1.1197E-03_JPRB,&
+&1.2062E-03_JPRB,2.9342E-03_JPRB,2.1345E-02_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&3.0129E-03_JPRB,3.1899E-03_JPRB,3.0825E-03_JPRB,2.9045E-03_JPRB,2.6201E-03_JPRB,1.9654E-03_JPRB,&
+&1.1926E-03_JPRB,3.0129E-03_JPRB,2.1744E-02_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&2.3930E-03_JPRB,2.2760E-03_JPRB,2.0475E-03_JPRB,1.4917E-03_JPRB,6.1519E-04_JPRB,9.5739E-04_JPRB,&
+&1.2117E-03_JPRB,2.3930E-03_JPRB,4.6010E-02_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&2.4495E-03_JPRB,2.3897E-03_JPRB,2.1964E-03_JPRB,1.8774E-03_JPRB,8.8795E-04_JPRB,8.5785E-04_JPRB,&
+&1.2212E-03_JPRB,2.4495E-03_JPRB,4.7118E-02_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&2.5108E-03_JPRB,2.5149E-03_JPRB,2.3607E-03_JPRB,2.1179E-03_JPRB,1.5063E-03_JPRB,7.2487E-04_JPRB,&
+&1.1617E-03_JPRB,2.5108E-03_JPRB,4.8044E-02_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&2.5797E-03_JPRB,2.6613E-03_JPRB,2.5391E-03_JPRB,2.3353E-03_JPRB,1.9791E-03_JPRB,1.1049E-03_JPRB,&
+&9.4883E-04_JPRB,2.5797E-03_JPRB,4.8805E-02_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&2.6499E-03_JPRB,2.8182E-03_JPRB,2.7229E-03_JPRB,2.5580E-03_JPRB,2.3142E-03_JPRB,1.8079E-03_JPRB,&
+&1.0035E-03_JPRB,2.6499E-03_JPRB,4.9391E-02_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&2.0746E-03_JPRB,1.9783E-03_JPRB,1.7801E-03_JPRB,1.3556E-03_JPRB,4.8267E-04_JPRB,8.1463E-04_JPRB,&
+&1.0185E-03_JPRB,2.0746E-03_JPRB,6.7547E-02_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&2.1273E-03_JPRB,2.0770E-03_JPRB,1.9105E-03_JPRB,1.6481E-03_JPRB,8.3724E-04_JPRB,7.1683E-04_JPRB,&
+&1.0103E-03_JPRB,2.1273E-03_JPRB,6.9266E-02_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&2.1844E-03_JPRB,2.1915E-03_JPRB,2.0594E-03_JPRB,1.8587E-03_JPRB,1.3892E-03_JPRB,6.4751E-04_JPRB,&
+&9.5728E-04_JPRB,2.1844E-03_JPRB,7.0619E-02_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&2.2441E-03_JPRB,2.3226E-03_JPRB,2.2206E-03_JPRB,2.0453E-03_JPRB,1.7491E-03_JPRB,1.0405E-03_JPRB,&
+&7.8138E-04_JPRB,2.2441E-03_JPRB,7.1602E-02_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&2.3050E-03_JPRB,2.4598E-03_JPRB,2.3822E-03_JPRB,2.2381E-03_JPRB,2.0304E-03_JPRB,1.6325E-03_JPRB,&
+&9.2438E-04_JPRB,2.3050E-03_JPRB,7.2303E-02_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&1.7883E-03_JPRB,1.7065E-03_JPRB,1.5374E-03_JPRB,1.2007E-03_JPRB,4.3025E-04_JPRB,6.7590E-04_JPRB,&
+&8.1885E-04_JPRB,1.7883E-03_JPRB,7.9860E-02_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&1.8363E-03_JPRB,1.7948E-03_JPRB,1.6528E-03_JPRB,1.4324E-03_JPRB,7.6774E-04_JPRB,6.2246E-04_JPRB,&
+&8.1329E-04_JPRB,1.8363E-03_JPRB,8.1807E-02_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&1.8869E-03_JPRB,1.8960E-03_JPRB,1.7818E-03_JPRB,1.6095E-03_JPRB,1.2397E-03_JPRB,5.6950E-04_JPRB,&
+&8.2318E-04_JPRB,1.8869E-03_JPRB,8.3291E-02_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&1.9378E-03_JPRB,2.0074E-03_JPRB,1.9206E-03_JPRB,1.7755E-03_JPRB,1.5322E-03_JPRB,9.5845E-04_JPRB,&
+&6.9708E-04_JPRB,1.9378E-03_JPRB,8.4416E-02_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&1.9900E-03_JPRB,2.1258E-03_JPRB,2.0644E-03_JPRB,1.9405E-03_JPRB,1.7651E-03_JPRB,1.4419E-03_JPRB,&
+&8.3688E-04_JPRB,1.9900E-03_JPRB,8.5292E-02_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&1.6473E-02_JPRB,1.6639E-02_JPRB,1.6620E-02_JPRB,1.6044E-02_JPRB,1.5024E-02_JPRB,1.3187E-02_JPRB,&
+&7.6213E-03_JPRB,1.6473E-02_JPRB,5.9369E-03_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&1.6283E-02_JPRB,1.7319E-02_JPRB,1.7601E-02_JPRB,1.7371E-02_JPRB,1.6714E-02_JPRB,1.5606E-02_JPRB,&
+&1.2675E-02_JPRB,1.6283E-02_JPRB,7.5309E-03_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&1.6044E-02_JPRB,1.7939E-02_JPRB,1.8616E-02_JPRB,1.8736E-02_JPRB,1.8509E-02_JPRB,1.7932E-02_JPRB,&
+&1.6316E-02_JPRB,1.6044E-02_JPRB,9.3034E-03_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&1.5780E-02_JPRB,1.8566E-02_JPRB,1.9707E-02_JPRB,2.0218E-02_JPRB,2.0468E-02_JPRB,2.0392E-02_JPRB,&
+&2.0221E-02_JPRB,1.5780E-02_JPRB,1.1241E-02_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&1.5514E-02_JPRB,1.9239E-02_JPRB,2.0866E-02_JPRB,2.1848E-02_JPRB,2.2518E-02_JPRB,2.2938E-02_JPRB,&
+&2.4338E-02_JPRB,1.5514E-02_JPRB,1.3369E-02_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&1.5534E-02_JPRB,1.5698E-02_JPRB,1.5655E-02_JPRB,1.5068E-02_JPRB,1.4135E-02_JPRB,1.2270E-02_JPRB,&
+&7.4181E-03_JPRB,1.5534E-02_JPRB,4.4640E-03_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&1.5342E-02_JPRB,1.6324E-02_JPRB,1.6590E-02_JPRB,1.6353E-02_JPRB,1.5831E-02_JPRB,1.4815E-02_JPRB,&
+&1.2543E-02_JPRB,1.5342E-02_JPRB,5.6970E-03_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&1.5098E-02_JPRB,1.6904E-02_JPRB,1.7545E-02_JPRB,1.7691E-02_JPRB,1.7497E-02_JPRB,1.7085E-02_JPRB,&
+&1.5776E-02_JPRB,1.5098E-02_JPRB,7.0876E-03_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&1.4834E-02_JPRB,1.7491E-02_JPRB,1.8583E-02_JPRB,1.9136E-02_JPRB,1.9381E-02_JPRB,1.9396E-02_JPRB,&
+&1.8919E-02_JPRB,1.4834E-02_JPRB,8.6392E-03_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&1.4582E-02_JPRB,1.8087E-02_JPRB,1.9710E-02_JPRB,2.0699E-02_JPRB,2.1415E-02_JPRB,2.1844E-02_JPRB,&
+&2.2101E-02_JPRB,1.4582E-02_JPRB,1.0344E-02_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&1.4379E-02_JPRB,1.4400E-02_JPRB,1.4273E-02_JPRB,1.3714E-02_JPRB,1.2774E-02_JPRB,1.0758E-02_JPRB,&
+&5.9221E-03_JPRB,1.4379E-02_JPRB,3.1627E-03_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&1.4181E-02_JPRB,1.4962E-02_JPRB,1.5204E-02_JPRB,1.4906E-02_JPRB,1.4357E-02_JPRB,1.3275E-02_JPRB,&
+&1.0750E-02_JPRB,1.4181E-02_JPRB,4.0720E-03_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&1.3955E-02_JPRB,1.5485E-02_JPRB,1.6078E-02_JPRB,1.6124E-02_JPRB,1.5928E-02_JPRB,1.5419E-02_JPRB,&
+&1.4145E-02_JPRB,1.3955E-02_JPRB,5.1227E-03_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&1.3715E-02_JPRB,1.6019E-02_JPRB,1.7011E-02_JPRB,1.7443E-02_JPRB,1.7601E-02_JPRB,1.7599E-02_JPRB,&
+&1.7151E-02_JPRB,1.3715E-02_JPRB,6.3251E-03_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&1.3488E-02_JPRB,1.6566E-02_JPRB,1.8015E-02_JPRB,1.8885E-02_JPRB,1.9466E-02_JPRB,1.9880E-02_JPRB,&
+&1.9891E-02_JPRB,1.3488E-02_JPRB,7.6362E-03_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&1.3100E-02_JPRB,1.2948E-02_JPRB,1.2709E-02_JPRB,1.2152E-02_JPRB,1.1211E-02_JPRB,8.9540E-03_JPRB,&
+&3.9235E-03_JPRB,1.3100E-02_JPRB,2.2077E-03_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&1.2922E-02_JPRB,1.3421E-02_JPRB,1.3563E-02_JPRB,1.3273E-02_JPRB,1.2687E-02_JPRB,1.1465E-02_JPRB,&
+&8.5932E-03_JPRB,1.2922E-02_JPRB,2.8908E-03_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&1.2710E-02_JPRB,1.3886E-02_JPRB,1.4373E-02_JPRB,1.4371E-02_JPRB,1.4080E-02_JPRB,1.3407E-02_JPRB,&
+&1.1985E-02_JPRB,1.2710E-02_JPRB,3.6760E-03_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&1.2510E-02_JPRB,1.4373E-02_JPRB,1.5200E-02_JPRB,1.5503E-02_JPRB,1.5542E-02_JPRB,1.5364E-02_JPRB,&
+&1.4835E-02_JPRB,1.2510E-02_JPRB,4.5891E-03_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&1.2325E-02_JPRB,1.4885E-02_JPRB,1.6099E-02_JPRB,1.6758E-02_JPRB,1.7169E-02_JPRB,1.7435E-02_JPRB,&
+&1.7471E-02_JPRB,1.2325E-02_JPRB,5.6179E-03_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&1.1785E-02_JPRB,1.1507E-02_JPRB,1.1168E-02_JPRB,1.0600E-02_JPRB,9.6507E-03_JPRB,6.9414E-03_JPRB,&
+&2.9345E-03_JPRB,1.1785E-02_JPRB,1.5496E-03_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&1.1618E-02_JPRB,1.1886E-02_JPRB,1.1906E-02_JPRB,1.1601E-02_JPRB,1.1008E-02_JPRB,9.7482E-03_JPRB,&
+&6.3716E-03_JPRB,1.1618E-02_JPRB,2.0513E-03_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&1.1447E-02_JPRB,1.2288E-02_JPRB,1.2620E-02_JPRB,1.2540E-02_JPRB,1.2196E-02_JPRB,1.1475E-02_JPRB,&
+&9.8448E-03_JPRB,1.1447E-02_JPRB,2.6474E-03_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&1.1293E-02_JPRB,1.2719E-02_JPRB,1.3350E-02_JPRB,1.3509E-02_JPRB,1.3472E-02_JPRB,1.3207E-02_JPRB,&
+&1.2517E-02_JPRB,1.1293E-02_JPRB,3.3414E-03_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&1.1183E-02_JPRB,1.3178E-02_JPRB,1.4123E-02_JPRB,1.4583E-02_JPRB,1.4883E-02_JPRB,1.5015E-02_JPRB,&
+&1.4926E-02_JPRB,1.1183E-02_JPRB,4.1312E-03_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&1.0487E-02_JPRB,1.0124E-02_JPRB,9.7249E-03_JPRB,9.1457E-03_JPRB,8.1285E-03_JPRB,4.8996E-03_JPRB,&
+&1.9678E-03_JPRB,1.0487E-02_JPRB,1.0937E-03_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&1.0349E-02_JPRB,1.0437E-02_JPRB,1.0332E-02_JPRB,9.9754E-03_JPRB,9.2866E-03_JPRB,7.9160E-03_JPRB,&
+&4.3878E-03_JPRB,1.0349E-02_JPRB,1.4598E-03_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&1.0220E-02_JPRB,1.0784E-02_JPRB,1.0929E-02_JPRB,1.0753E-02_JPRB,1.0353E-02_JPRB,9.5432E-03_JPRB,&
+&7.8232E-03_JPRB,1.0220E-02_JPRB,1.9008E-03_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&1.0135E-02_JPRB,1.1143E-02_JPRB,1.1530E-02_JPRB,1.1576E-02_JPRB,1.1439E-02_JPRB,1.1088E-02_JPRB,&
+&1.0277E-02_JPRB,1.0135E-02_JPRB,2.4221E-03_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&1.0102E-02_JPRB,1.1554E-02_JPRB,1.2194E-02_JPRB,1.2480E-02_JPRB,1.2652E-02_JPRB,1.2678E-02_JPRB,&
+&1.2494E-02_JPRB,1.0102E-02_JPRB,3.0257E-03_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&9.2309E-03_JPRB,8.8319E-03_JPRB,8.3968E-03_JPRB,7.7952E-03_JPRB,6.7475E-03_JPRB,3.2870E-03_JPRB,&
+&1.9179E-03_JPRB,9.2309E-03_JPRB,8.9645E-04_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&9.1242E-03_JPRB,9.0932E-03_JPRB,8.9046E-03_JPRB,8.4994E-03_JPRB,7.7737E-03_JPRB,6.2095E-03_JPRB,&
+&2.8211E-03_JPRB,9.1242E-03_JPRB,1.1346E-03_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&9.0499E-03_JPRB,9.3880E-03_JPRB,9.3912E-03_JPRB,9.1437E-03_JPRB,8.6640E-03_JPRB,7.8059E-03_JPRB,&
+&5.8358E-03_JPRB,9.0499E-03_JPRB,1.4379E-03_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&9.0319E-03_JPRB,9.7281E-03_JPRB,9.8888E-03_JPRB,9.8240E-03_JPRB,9.6043E-03_JPRB,9.1535E-03_JPRB,&
+&8.2625E-03_JPRB,9.0319E-03_JPRB,1.8162E-03_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&9.0677E-03_JPRB,1.0114E-02_JPRB,1.0453E-02_JPRB,1.0590E-02_JPRB,1.0614E-02_JPRB,1.0515E-02_JPRB,&
+&1.0212E-02_JPRB,9.0678E-03_JPRB,2.2700E-03_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&8.0750E-03_JPRB,7.6623E-03_JPRB,7.2138E-03_JPRB,6.5975E-03_JPRB,5.4257E-03_JPRB,2.2723E-03_JPRB,&
+&1.6249E-03_JPRB,8.0750E-03_JPRB,1.2831E-03_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&7.9997E-03_JPRB,7.8793E-03_JPRB,7.6227E-03_JPRB,7.1817E-03_JPRB,6.4216E-03_JPRB,4.5366E-03_JPRB,&
+&1.9736E-03_JPRB,7.9997E-03_JPRB,1.4497E-03_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&7.9739E-03_JPRB,8.1496E-03_JPRB,8.0220E-03_JPRB,7.7220E-03_JPRB,7.1874E-03_JPRB,6.2455E-03_JPRB,&
+&3.8530E-03_JPRB,7.9739E-03_JPRB,1.6552E-03_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&8.0128E-03_JPRB,8.4694E-03_JPRB,8.4614E-03_JPRB,8.2951E-03_JPRB,7.9668E-03_JPRB,7.4368E-03_JPRB,&
+&6.3444E-03_JPRB,8.0128E-03_JPRB,1.8965E-03_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&8.1136E-03_JPRB,8.8341E-03_JPRB,8.9710E-03_JPRB,8.9459E-03_JPRB,8.8203E-03_JPRB,8.6006E-03_JPRB,&
+&8.1402E-03_JPRB,8.1136E-03_JPRB,2.1909E-03_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&7.0296E-03_JPRB,6.6308E-03_JPRB,6.1804E-03_JPRB,5.5360E-03_JPRB,4.1437E-03_JPRB,1.5632E-03_JPRB,&
+&1.4348E-03_JPRB,7.0296E-03_JPRB,5.0746E-03_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&6.9891E-03_JPRB,6.8154E-03_JPRB,6.5047E-03_JPRB,6.0126E-03_JPRB,5.1664E-03_JPRB,3.1309E-03_JPRB,&
+&1.3440E-03_JPRB,6.9891E-03_JPRB,5.2575E-03_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&7.0047E-03_JPRB,7.0682E-03_JPRB,6.8401E-03_JPRB,6.4671E-03_JPRB,5.8881E-03_JPRB,4.8032E-03_JPRB,&
+&2.4408E-03_JPRB,7.0047E-03_JPRB,5.4725E-03_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&7.0937E-03_JPRB,7.3642E-03_JPRB,7.2266E-03_JPRB,6.9602E-03_JPRB,6.5505E-03_JPRB,5.9472E-03_JPRB,&
+&4.6225E-03_JPRB,7.0937E-03_JPRB,5.7075E-03_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&7.2359E-03_JPRB,7.7189E-03_JPRB,7.6898E-03_JPRB,7.5393E-03_JPRB,7.2796E-03_JPRB,6.9540E-03_JPRB,&
+&6.3115E-03_JPRB,7.2359E-03_JPRB,5.9395E-03_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&6.0824E-03_JPRB,5.7201E-03_JPRB,5.2950E-03_JPRB,4.6533E-03_JPRB,3.1243E-03_JPRB,1.0849E-03_JPRB,&
+&1.3514E-03_JPRB,6.0824E-03_JPRB,3.2036E-02_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&6.0816E-03_JPRB,5.8999E-03_JPRB,5.5711E-03_JPRB,5.0543E-03_JPRB,4.1674E-03_JPRB,2.1951E-03_JPRB,&
+&1.1513E-03_JPRB,6.0816E-03_JPRB,3.2646E-02_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&6.1454E-03_JPRB,6.1496E-03_JPRB,5.8546E-03_JPRB,5.4437E-03_JPRB,4.8180E-03_JPRB,3.6424E-03_JPRB,&
+&1.7330E-03_JPRB,6.1454E-03_JPRB,3.3079E-02_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&6.2758E-03_JPRB,6.4382E-03_JPRB,6.1991E-03_JPRB,5.8783E-03_JPRB,5.4350E-03_JPRB,4.7237E-03_JPRB,&
+&3.2810E-03_JPRB,6.2757E-03_JPRB,3.3401E-02_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&6.4344E-03_JPRB,6.7774E-03_JPRB,6.6295E-03_JPRB,6.3941E-03_JPRB,6.0678E-03_JPRB,5.6397E-03_JPRB,&
+&4.8978E-03_JPRB,6.4344E-03_JPRB,3.3652E-02_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&5.2811E-03_JPRB,5.0055E-03_JPRB,4.6335E-03_JPRB,4.0757E-03_JPRB,2.8727E-03_JPRB,1.0865E-03_JPRB,&
+&1.0171E-03_JPRB,5.2811E-03_JPRB,7.6840E-02_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&5.3409E-03_JPRB,5.2140E-03_JPRB,4.8806E-03_JPRB,4.4140E-03_JPRB,3.6622E-03_JPRB,2.0302E-03_JPRB,&
+&9.1811E-04_JPRB,5.3409E-03_JPRB,7.7870E-02_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&5.4674E-03_JPRB,5.4758E-03_JPRB,5.1638E-03_JPRB,4.7679E-03_JPRB,4.2203E-03_JPRB,3.2247E-03_JPRB,&
+&1.5980E-03_JPRB,5.4674E-03_JPRB,7.8594E-02_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&5.6175E-03_JPRB,5.7677E-03_JPRB,5.5092E-03_JPRB,5.1897E-03_JPRB,4.7728E-03_JPRB,4.1267E-03_JPRB,&
+&2.9888E-03_JPRB,5.6175E-03_JPRB,7.8959E-02_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&5.7848E-03_JPRB,6.0885E-03_JPRB,5.9189E-03_JPRB,5.6782E-03_JPRB,5.3431E-03_JPRB,4.9223E-03_JPRB,&
+&4.2500E-03_JPRB,5.7848E-03_JPRB,7.9148E-02_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&4.6406E-03_JPRB,4.4264E-03_JPRB,4.0750E-03_JPRB,3.5822E-03_JPRB,2.6510E-03_JPRB,1.0132E-03_JPRB,&
+&9.2156E-04_JPRB,4.6406E-03_JPRB,1.1768E-01_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&4.7513E-03_JPRB,4.6501E-03_JPRB,4.3133E-03_JPRB,3.8811E-03_JPRB,3.2507E-03_JPRB,1.8501E-03_JPRB,&
+&7.3924E-04_JPRB,4.7513E-03_JPRB,1.1892E-01_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&4.8892E-03_JPRB,4.8966E-03_JPRB,4.5920E-03_JPRB,4.2162E-03_JPRB,3.7357E-03_JPRB,2.9015E-03_JPRB,&
+&1.4402E-03_JPRB,4.8892E-03_JPRB,1.1988E-01_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&5.0434E-03_JPRB,5.1649E-03_JPRB,4.9117E-03_JPRB,4.6087E-03_JPRB,4.2340E-03_JPRB,3.6743E-03_JPRB,&
+&2.6652E-03_JPRB,5.0434E-03_JPRB,1.2040E-01_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&5.1943E-03_JPRB,5.4604E-03_JPRB,5.2859E-03_JPRB,5.0532E-03_JPRB,4.7466E-03_JPRB,4.3367E-03_JPRB,&
+&3.6758E-03_JPRB,5.1943E-03_JPRB,1.2066E-01_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&4.1040E-03_JPRB,3.9320E-03_JPRB,3.6016E-03_JPRB,3.1660E-03_JPRB,2.4198E-03_JPRB,9.6006E-04_JPRB,&
+&7.4336E-04_JPRB,4.1040E-03_JPRB,1.4478E-01_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&4.2232E-03_JPRB,4.1425E-03_JPRB,3.8331E-03_JPRB,3.4407E-03_JPRB,2.9046E-03_JPRB,1.6979E-03_JPRB,&
+&6.7921E-04_JPRB,4.2232E-03_JPRB,1.4623E-01_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&4.3611E-03_JPRB,4.3698E-03_JPRB,4.0899E-03_JPRB,3.7461E-03_JPRB,3.3273E-03_JPRB,2.6603E-03_JPRB,&
+&1.2963E-03_JPRB,4.3611E-03_JPRB,1.4748E-01_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&4.4992E-03_JPRB,4.6148E-03_JPRB,4.3841E-03_JPRB,4.0963E-03_JPRB,3.7570E-03_JPRB,3.2859E-03_JPRB,&
+&2.3687E-03_JPRB,4.4992E-03_JPRB,1.4817E-01_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&4.6327E-03_JPRB,4.8729E-03_JPRB,4.7086E-03_JPRB,4.4884E-03_JPRB,4.2102E-03_JPRB,3.8391E-03_JPRB,&
+&3.2592E-03_JPRB,4.6327E-03_JPRB,1.4848E-01_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&3.2446E-02_JPRB,3.0961E-02_JPRB,2.9943E-02_JPRB,2.8814E-02_JPRB,2.6701E-02_JPRB,2.3826E-02_JPRB,&
+&2.0786E-02_JPRB,3.2446E-02_JPRB,1.5676E-02_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&3.2527E-02_JPRB,3.1848E-02_JPRB,3.1994E-02_JPRB,3.1175E-02_JPRB,2.9719E-02_JPRB,2.8532E-02_JPRB,&
+&2.8157E-02_JPRB,3.2527E-02_JPRB,2.0060E-02_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&3.2555E-02_JPRB,3.3035E-02_JPRB,3.4009E-02_JPRB,3.3632E-02_JPRB,3.3098E-02_JPRB,3.4035E-02_JPRB,&
+&3.6093E-02_JPRB,3.2555E-02_JPRB,2.5319E-02_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&3.2520E-02_JPRB,3.4424E-02_JPRB,3.5893E-02_JPRB,3.6221E-02_JPRB,3.7173E-02_JPRB,4.0037E-02_JPRB,&
+&4.3790E-02_JPRB,3.2520E-02_JPRB,3.1444E-02_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&3.2436E-02_JPRB,3.5761E-02_JPRB,3.7828E-02_JPRB,3.9167E-02_JPRB,4.2081E-02_JPRB,4.6777E-02_JPRB,&
+&5.1699E-02_JPRB,3.2436E-02_JPRB,3.8339E-02_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&3.3259E-02_JPRB,3.1637E-02_JPRB,3.0502E-02_JPRB,2.9322E-02_JPRB,2.7192E-02_JPRB,2.4045E-02_JPRB,&
+&1.9418E-02_JPRB,3.3259E-02_JPRB,1.2401E-02_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&3.3309E-02_JPRB,3.2542E-02_JPRB,3.2579E-02_JPRB,3.1869E-02_JPRB,3.0109E-02_JPRB,2.7900E-02_JPRB,&
+&2.5530E-02_JPRB,3.3309E-02_JPRB,1.5971E-02_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&3.3352E-02_JPRB,3.3755E-02_JPRB,3.4718E-02_JPRB,3.4392E-02_JPRB,3.3246E-02_JPRB,3.2250E-02_JPRB,&
+&3.2349E-02_JPRB,3.3352E-02_JPRB,2.0278E-02_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&3.3330E-02_JPRB,3.5174E-02_JPRB,3.6737E-02_JPRB,3.6916E-02_JPRB,3.6641E-02_JPRB,3.7274E-02_JPRB,&
+&3.9441E-02_JPRB,3.3330E-02_JPRB,2.5234E-02_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&3.3226E-02_JPRB,3.6569E-02_JPRB,3.8777E-02_JPRB,3.9713E-02_JPRB,4.0596E-02_JPRB,4.2979E-02_JPRB,&
+&4.7032E-02_JPRB,3.3226E-02_JPRB,3.0759E-02_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&3.3391E-02_JPRB,3.1594E-02_JPRB,3.0176E-02_JPRB,2.8739E-02_JPRB,2.6633E-02_JPRB,2.3336E-02_JPRB,&
+&1.8177E-02_JPRB,3.3391E-02_JPRB,9.1438E-03_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&3.3463E-02_JPRB,3.2445E-02_JPRB,3.2154E-02_JPRB,3.1362E-02_JPRB,2.9626E-02_JPRB,2.6963E-02_JPRB,&
+&2.3198E-02_JPRB,3.3463E-02_JPRB,1.1964E-02_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&3.3507E-02_JPRB,3.3666E-02_JPRB,3.4348E-02_JPRB,3.4020E-02_JPRB,3.2664E-02_JPRB,3.0729E-02_JPRB,&
+&2.8675E-02_JPRB,3.3507E-02_JPRB,1.5312E-02_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&3.3484E-02_JPRB,3.5076E-02_JPRB,3.6460E-02_JPRB,3.6685E-02_JPRB,3.5851E-02_JPRB,3.4760E-02_JPRB,&
+&3.4446E-02_JPRB,3.3484E-02_JPRB,1.9144E-02_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&3.3365E-02_JPRB,3.6491E-02_JPRB,3.8546E-02_JPRB,3.9400E-02_JPRB,3.9309E-02_JPRB,3.9340E-02_JPRB,&
+&4.1039E-02_JPRB,3.3365E-02_JPRB,2.3426E-02_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&3.2823E-02_JPRB,3.0856E-02_JPRB,2.9216E-02_JPRB,2.7536E-02_JPRB,2.5263E-02_JPRB,2.2005E-02_JPRB,&
+&1.7126E-02_JPRB,3.2823E-02_JPRB,6.4847E-03_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&3.2916E-02_JPRB,3.1703E-02_JPRB,3.1081E-02_JPRB,3.0059E-02_JPRB,2.8252E-02_JPRB,2.5566E-02_JPRB,&
+&2.1643E-02_JPRB,3.2916E-02_JPRB,8.6411E-03_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&3.2942E-02_JPRB,3.2855E-02_JPRB,3.3172E-02_JPRB,3.2679E-02_JPRB,3.1442E-02_JPRB,2.9283E-02_JPRB,&
+&2.6180E-02_JPRB,3.2942E-02_JPRB,1.1256E-02_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&3.2895E-02_JPRB,3.4207E-02_JPRB,3.5261E-02_JPRB,3.5386E-02_JPRB,3.4683E-02_JPRB,3.2992E-02_JPRB,&
+&3.0830E-02_JPRB,3.2895E-02_JPRB,1.4266E-02_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&3.2791E-02_JPRB,3.5598E-02_JPRB,3.7342E-02_JPRB,3.8144E-02_JPRB,3.7958E-02_JPRB,3.6915E-02_JPRB,&
+&3.6060E-02_JPRB,3.2791E-02_JPRB,1.7623E-02_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&3.1527E-02_JPRB,2.9441E-02_JPRB,2.7666E-02_JPRB,2.5800E-02_JPRB,2.3517E-02_JPRB,2.0290E-02_JPRB,&
+&1.5284E-02_JPRB,3.1527E-02_JPRB,4.5483E-03_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&3.1627E-02_JPRB,3.0253E-02_JPRB,2.9410E-02_JPRB,2.8191E-02_JPRB,2.6385E-02_JPRB,2.3754E-02_JPRB,&
+&1.9782E-02_JPRB,3.1627E-02_JPRB,6.1662E-03_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&3.1653E-02_JPRB,3.1374E-02_JPRB,3.1394E-02_JPRB,3.0704E-02_JPRB,2.9499E-02_JPRB,2.7410E-02_JPRB,&
+&2.4207E-02_JPRB,3.1653E-02_JPRB,8.1447E-03_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&3.1587E-02_JPRB,3.2681E-02_JPRB,3.3373E-02_JPRB,3.3364E-02_JPRB,3.2711E-02_JPRB,3.1061E-02_JPRB,&
+&2.8366E-02_JPRB,3.1587E-02_JPRB,1.0460E-02_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&3.1459E-02_JPRB,3.4035E-02_JPRB,3.5391E-02_JPRB,3.6063E-02_JPRB,3.5941E-02_JPRB,3.4747E-02_JPRB,&
+&3.2643E-02_JPRB,3.1459E-02_JPRB,1.3095E-02_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&2.9690E-02_JPRB,2.7513E-02_JPRB,2.5633E-02_JPRB,2.3605E-02_JPRB,2.1298E-02_JPRB,1.8147E-02_JPRB,&
+&1.3146E-02_JPRB,2.9690E-02_JPRB,3.1369E-03_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&2.9770E-02_JPRB,2.8288E-02_JPRB,2.7183E-02_JPRB,2.5789E-02_JPRB,2.4036E-02_JPRB,2.1561E-02_JPRB,&
+&1.7543E-02_JPRB,2.9770E-02_JPRB,4.3187E-03_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&2.9783E-02_JPRB,2.9294E-02_JPRB,2.9045E-02_JPRB,2.8192E-02_JPRB,2.6960E-02_JPRB,2.5034E-02_JPRB,&
+&2.1858E-02_JPRB,2.9783E-02_JPRB,5.7867E-03_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&2.9692E-02_JPRB,3.0523E-02_JPRB,3.0946E-02_JPRB,3.0715E-02_JPRB,3.0007E-02_JPRB,2.8497E-02_JPRB,&
+&2.5800E-02_JPRB,2.9692E-02_JPRB,7.5502E-03_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&2.9534E-02_JPRB,3.1783E-02_JPRB,3.2869E-02_JPRB,3.3262E-02_JPRB,3.3064E-02_JPRB,3.1999E-02_JPRB,&
+&2.9755E-02_JPRB,2.9534E-02_JPRB,9.5800E-03_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&2.7399E-02_JPRB,2.5219E-02_JPRB,2.3318E-02_JPRB,2.1250E-02_JPRB,1.8905E-02_JPRB,1.5866E-02_JPRB,&
+&1.0211E-02_JPRB,2.7399E-02_JPRB,2.2133E-03_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&2.7465E-02_JPRB,2.5918E-02_JPRB,2.4664E-02_JPRB,2.3195E-02_JPRB,2.1415E-02_JPRB,1.9044E-02_JPRB,&
+&1.5287E-02_JPRB,2.7465E-02_JPRB,3.0581E-03_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&2.7467E-02_JPRB,2.6847E-02_JPRB,2.6363E-02_JPRB,2.5381E-02_JPRB,2.4103E-02_JPRB,2.2261E-02_JPRB,&
+&1.9298E-02_JPRB,2.7467E-02_JPRB,4.1379E-03_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&2.7377E-02_JPRB,2.7967E-02_JPRB,2.8113E-02_JPRB,2.7721E-02_JPRB,2.6897E-02_JPRB,2.5513E-02_JPRB,&
+&2.3011E-02_JPRB,2.7377E-02_JPRB,5.4434E-03_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&2.7205E-02_JPRB,2.9095E-02_JPRB,2.9889E-02_JPRB,3.0064E-02_JPRB,2.9735E-02_JPRB,2.8823E-02_JPRB,&
+&2.6785E-02_JPRB,2.7205E-02_JPRB,6.9886E-03_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&2.4838E-02_JPRB,2.2730E-02_JPRB,2.0879E-02_JPRB,1.8847E-02_JPRB,1.6562E-02_JPRB,1.3598E-02_JPRB,&
+&7.9263E-03_JPRB,2.4838E-02_JPRB,2.3197E-03_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&2.4890E-02_JPRB,2.3360E-02_JPRB,2.2033E-02_JPRB,2.0523E-02_JPRB,1.8797E-02_JPRB,1.6567E-02_JPRB,&
+&1.2790E-02_JPRB,2.4890E-02_JPRB,2.7806E-03_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&2.4862E-02_JPRB,2.4160E-02_JPRB,2.3528E-02_JPRB,2.2491E-02_JPRB,2.1199E-02_JPRB,1.9477E-02_JPRB,&
+&1.6802E-02_JPRB,2.4862E-02_JPRB,3.4079E-03_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&2.4775E-02_JPRB,2.5154E-02_JPRB,2.5100E-02_JPRB,2.4578E-02_JPRB,2.3711E-02_JPRB,2.2381E-02_JPRB,&
+&2.0219E-02_JPRB,2.4775E-02_JPRB,4.2580E-03_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&2.4622E-02_JPRB,2.6148E-02_JPRB,2.6699E-02_JPRB,2.6671E-02_JPRB,2.6294E-02_JPRB,2.5372E-02_JPRB,&
+&2.3589E-02_JPRB,2.4622E-02_JPRB,5.3361E-03_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&2.2221E-02_JPRB,2.0209E-02_JPRB,1.8418E-02_JPRB,1.6497E-02_JPRB,1.4362E-02_JPRB,1.1452E-02_JPRB,&
+&5.8464E-03_JPRB,2.2221E-02_JPRB,8.1045E-03_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&2.2228E-02_JPRB,2.0738E-02_JPRB,1.9399E-02_JPRB,1.7929E-02_JPRB,1.6274E-02_JPRB,1.4180E-02_JPRB,&
+&1.0256E-02_JPRB,2.2228E-02_JPRB,8.4976E-03_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&2.2181E-02_JPRB,2.1419E-02_JPRB,2.0685E-02_JPRB,1.9636E-02_JPRB,1.8370E-02_JPRB,1.6740E-02_JPRB,&
+&1.4221E-02_JPRB,2.2181E-02_JPRB,8.9064E-03_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&2.2077E-02_JPRB,2.2259E-02_JPRB,2.2053E-02_JPRB,2.1452E-02_JPRB,2.0561E-02_JPRB,1.9271E-02_JPRB,&
+&1.7337E-02_JPRB,2.2077E-02_JPRB,9.3666E-03_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&2.1959E-02_JPRB,2.3140E-02_JPRB,2.3450E-02_JPRB,2.3281E-02_JPRB,2.2789E-02_JPRB,2.1856E-02_JPRB,&
+&2.0328E-02_JPRB,2.1959E-02_JPRB,9.8960E-03_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&1.9665E-02_JPRB,1.7813E-02_JPRB,1.6135E-02_JPRB,1.4379E-02_JPRB,1.2423E-02_JPRB,9.6194E-03_JPRB,&
+&4.3665E-03_JPRB,1.9665E-02_JPRB,5.0859E-02_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&1.9655E-02_JPRB,1.8254E-02_JPRB,1.6961E-02_JPRB,1.5587E-02_JPRB,1.4053E-02_JPRB,1.2088E-02_JPRB,&
+&8.1382E-03_JPRB,1.9655E-02_JPRB,5.1465E-02_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&1.9577E-02_JPRB,1.8805E-02_JPRB,1.8054E-02_JPRB,1.7058E-02_JPRB,1.5850E-02_JPRB,1.4336E-02_JPRB,&
+&1.1950E-02_JPRB,1.9577E-02_JPRB,5.1955E-02_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&1.9473E-02_JPRB,1.9523E-02_JPRB,1.9227E-02_JPRB,1.8591E-02_JPRB,1.7700E-02_JPRB,1.6478E-02_JPRB,&
+&1.4693E-02_JPRB,1.9473E-02_JPRB,5.2354E-02_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&1.9405E-02_JPRB,2.0288E-02_JPRB,2.0423E-02_JPRB,2.0132E-02_JPRB,1.9564E-02_JPRB,1.8691E-02_JPRB,&
+&1.7347E-02_JPRB,1.9405E-02_JPRB,5.2682E-02_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&1.7199E-02_JPRB,1.5692E-02_JPRB,1.4307E-02_JPRB,1.2861E-02_JPRB,1.1262E-02_JPRB,9.0316E-03_JPRB,&
+&4.4212E-03_JPRB,1.7199E-02_JPRB,1.2641E-01_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&1.7139E-02_JPRB,1.6089E-02_JPRB,1.5094E-02_JPRB,1.3995E-02_JPRB,1.2699E-02_JPRB,1.1063E-02_JPRB,&
+&8.1294E-03_JPRB,1.7139E-02_JPRB,1.2630E-01_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&1.7062E-02_JPRB,1.6616E-02_JPRB,1.6068E-02_JPRB,1.5250E-02_JPRB,1.4213E-02_JPRB,1.2927E-02_JPRB,&
+&1.0968E-02_JPRB,1.7062E-02_JPRB,1.2657E-01_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&1.7027E-02_JPRB,1.7284E-02_JPRB,1.7074E-02_JPRB,1.6503E-02_JPRB,1.5727E-02_JPRB,1.4747E-02_JPRB,&
+&1.3302E-02_JPRB,1.7027E-02_JPRB,1.2680E-01_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&1.7051E-02_JPRB,1.8003E-02_JPRB,1.8097E-02_JPRB,1.7795E-02_JPRB,1.7338E-02_JPRB,1.6670E-02_JPRB,&
+&1.5656E-02_JPRB,1.7051E-02_JPRB,1.2668E-01_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&1.4892E-02_JPRB,1.3707E-02_JPRB,1.2589E-02_JPRB,1.1424E-02_JPRB,1.0096E-02_JPRB,8.2815E-03_JPRB,&
+&4.4233E-03_JPRB,1.4892E-02_JPRB,2.0178E-01_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&1.4830E-02_JPRB,1.4076E-02_JPRB,1.3327E-02_JPRB,1.2415E-02_JPRB,1.1306E-02_JPRB,9.9128E-03_JPRB,&
+&7.6510E-03_JPRB,1.4830E-02_JPRB,2.0127E-01_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&1.4815E-02_JPRB,1.4616E-02_JPRB,1.4166E-02_JPRB,1.3436E-02_JPRB,1.2531E-02_JPRB,1.1419E-02_JPRB,&
+&9.8144E-03_JPRB,1.4815E-02_JPRB,2.0109E-01_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&1.4874E-02_JPRB,1.5249E-02_JPRB,1.5019E-02_JPRB,1.4484E-02_JPRB,1.3802E-02_JPRB,1.2969E-02_JPRB,&
+&1.1802E-02_JPRB,1.4874E-02_JPRB,2.0108E-01_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&1.5028E-02_JPRB,1.5947E-02_JPRB,1.5923E-02_JPRB,1.5630E-02_JPRB,1.5205E-02_JPRB,1.4665E-02_JPRB,&
+&1.3888E-02_JPRB,1.5028E-02_JPRB,2.0061E-01_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&1.2856E-02_JPRB,1.1926E-02_JPRB,1.1034E-02_JPRB,1.0051E-02_JPRB,8.9048E-03_JPRB,7.3808E-03_JPRB,&
+&4.3560E-03_JPRB,1.2856E-02_JPRB,2.5947E-01_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&1.2849E-02_JPRB,1.2317E-02_JPRB,1.1692E-02_JPRB,1.0882E-02_JPRB,9.8884E-03_JPRB,8.6786E-03_JPRB,&
+&6.8479E-03_JPRB,1.2849E-02_JPRB,2.5953E-01_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&1.2913E-02_JPRB,1.2850E-02_JPRB,1.2417E-02_JPRB,1.1721E-02_JPRB,1.0882E-02_JPRB,9.9190E-03_JPRB,&
+&8.6023E-03_JPRB,1.2913E-02_JPRB,2.5942E-01_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&1.3088E-02_JPRB,1.3471E-02_JPRB,1.3169E-02_JPRB,1.2637E-02_JPRB,1.1989E-02_JPRB,1.1248E-02_JPRB,&
+&1.0301E-02_JPRB,1.3088E-02_JPRB,2.5909E-01_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&1.3373E-02_JPRB,1.4159E-02_JPRB,1.4029E-02_JPRB,1.3679E-02_JPRB,1.3241E-02_JPRB,1.2749E-02_JPRB,&
+&1.2125E-02_JPRB,1.3373E-02_JPRB,2.5815E-01_JPRB/)
+
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B1.F90	(revision 2160)
@@ -0,0 +1,1923 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_B1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 6, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*H2O), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 1) = (/&
+&1.0590E-03_JPRB,1.1708E-03_JPRB,6.1804E-03_JPRB,8.3851E-03_JPRB,9.8401E-03_JPRB,1.0650E-02_JPRB/)
+KBO( :, 2,13, 1) = (/&
+&1.2737E-03_JPRB,1.3921E-03_JPRB,6.7837E-03_JPRB,9.1802E-03_JPRB,1.0724E-02_JPRB,1.1694E-02_JPRB/)
+KBO( :, 3,13, 1) = (/&
+&1.4928E-03_JPRB,1.6167E-03_JPRB,7.3037E-03_JPRB,9.8097E-03_JPRB,1.1413E-02_JPRB,1.2559E-02_JPRB/)
+KBO( :, 4,13, 1) = (/&
+&1.7101E-03_JPRB,1.8380E-03_JPRB,7.7361E-03_JPRB,1.0305E-02_JPRB,1.1932E-02_JPRB,1.3252E-02_JPRB/)
+KBO( :, 5,13, 1) = (/&
+&1.9268E-03_JPRB,2.0574E-03_JPRB,8.1040E-03_JPRB,1.0709E-02_JPRB,1.2321E-02_JPRB,1.3787E-02_JPRB/)
+KBO( :, 1,14, 1) = (/&
+&8.9853E-04_JPRB,1.0053E-03_JPRB,5.2612E-03_JPRB,7.1257E-03_JPRB,8.3170E-03_JPRB,8.6277E-03_JPRB/)
+KBO( :, 2,14, 1) = (/&
+&1.0785E-03_JPRB,1.1914E-03_JPRB,5.7513E-03_JPRB,7.7564E-03_JPRB,9.0118E-03_JPRB,9.3819E-03_JPRB/)
+KBO( :, 3,14, 1) = (/&
+&1.2591E-03_JPRB,1.3782E-03_JPRB,6.1715E-03_JPRB,8.2478E-03_JPRB,9.5484E-03_JPRB,9.9996E-03_JPRB/)
+KBO( :, 4,14, 1) = (/&
+&1.4397E-03_JPRB,1.5627E-03_JPRB,6.5193E-03_JPRB,8.6487E-03_JPRB,9.9620E-03_JPRB,1.0485E-02_JPRB/)
+KBO( :, 5,14, 1) = (/&
+&1.6201E-03_JPRB,1.7459E-03_JPRB,6.8165E-03_JPRB,8.9827E-03_JPRB,1.0273E-02_JPRB,1.0855E-02_JPRB/)
+KBO( :, 1,15, 1) = (/&
+&7.6248E-04_JPRB,8.6279E-04_JPRB,4.4557E-03_JPRB,6.0207E-03_JPRB,6.9896E-03_JPRB,7.0236E-03_JPRB/)
+KBO( :, 2,15, 1) = (/&
+&9.1117E-04_JPRB,1.0180E-03_JPRB,4.8561E-03_JPRB,6.5127E-03_JPRB,7.5369E-03_JPRB,7.5846E-03_JPRB/)
+KBO( :, 3,15, 1) = (/&
+&1.0596E-03_JPRB,1.1723E-03_JPRB,5.1898E-03_JPRB,6.9089E-03_JPRB,7.9643E-03_JPRB,8.0325E-03_JPRB/)
+KBO( :, 4,15, 1) = (/&
+&1.2094E-03_JPRB,1.3263E-03_JPRB,5.4734E-03_JPRB,7.2380E-03_JPRB,8.2957E-03_JPRB,8.3723E-03_JPRB/)
+KBO( :, 5,15, 1) = (/&
+&1.3603E-03_JPRB,1.4802E-03_JPRB,5.7085E-03_JPRB,7.5104E-03_JPRB,8.5497E-03_JPRB,8.6178E-03_JPRB/)
+KBO( :, 1,16, 1) = (/&
+&6.4558E-04_JPRB,7.3804E-04_JPRB,3.7596E-03_JPRB,5.0589E-03_JPRB,5.8485E-03_JPRB,5.7705E-03_JPRB/)
+KBO( :, 2,16, 1) = (/&
+&7.6748E-04_JPRB,8.6612E-04_JPRB,4.0796E-03_JPRB,5.4496E-03_JPRB,6.2858E-03_JPRB,6.2010E-03_JPRB/)
+KBO( :, 3,16, 1) = (/&
+&8.9029E-04_JPRB,9.9466E-04_JPRB,4.3523E-03_JPRB,5.7735E-03_JPRB,6.6286E-03_JPRB,6.5375E-03_JPRB/)
+KBO( :, 4,16, 1) = (/&
+&1.0154E-03_JPRB,1.1242E-03_JPRB,4.5767E-03_JPRB,6.0430E-03_JPRB,6.8981E-03_JPRB,6.7855E-03_JPRB/)
+KBO( :, 5,16, 1) = (/&
+&1.1412E-03_JPRB,1.2532E-03_JPRB,4.7673E-03_JPRB,6.2610E-03_JPRB,7.1083E-03_JPRB,6.9585E-03_JPRB/)
+KBO( :, 1,17, 1) = (/&
+&5.4461E-04_JPRB,6.2792E-04_JPRB,3.1575E-03_JPRB,4.2329E-03_JPRB,4.8773E-03_JPRB,4.7433E-03_JPRB/)
+KBO( :, 2,17, 1) = (/&
+&6.4498E-04_JPRB,7.3395E-04_JPRB,3.4178E-03_JPRB,4.5500E-03_JPRB,5.2291E-03_JPRB,5.0778E-03_JPRB/)
+KBO( :, 3,17, 1) = (/&
+&7.4677E-04_JPRB,8.4137E-04_JPRB,3.6368E-03_JPRB,4.8153E-03_JPRB,5.5080E-03_JPRB,5.3328E-03_JPRB/)
+KBO( :, 4,17, 1) = (/&
+&8.5117E-04_JPRB,9.5016E-04_JPRB,3.8176E-03_JPRB,5.0337E-03_JPRB,5.7279E-03_JPRB,5.5173E-03_JPRB/)
+KBO( :, 5,17, 1) = (/&
+&9.5670E-04_JPRB,1.0591E-03_JPRB,3.9736E-03_JPRB,5.2057E-03_JPRB,5.9001E-03_JPRB,5.6411E-03_JPRB/)
+KBO( :, 1,18, 1) = (/&
+&4.5831E-04_JPRB,5.3207E-04_JPRB,2.6453E-03_JPRB,3.5350E-03_JPRB,4.0595E-03_JPRB,3.9025E-03_JPRB/)
+KBO( :, 2,18, 1) = (/&
+&5.4148E-04_JPRB,6.2048E-04_JPRB,2.8564E-03_JPRB,3.7920E-03_JPRB,4.3430E-03_JPRB,4.1638E-03_JPRB/)
+KBO( :, 3,18, 1) = (/&
+&6.2620E-04_JPRB,7.1046E-04_JPRB,3.0316E-03_JPRB,4.0093E-03_JPRB,4.5705E-03_JPRB,4.3594E-03_JPRB/)
+KBO( :, 4,18, 1) = (/&
+&7.1296E-04_JPRB,8.0140E-04_JPRB,3.1785E-03_JPRB,4.1822E-03_JPRB,4.7500E-03_JPRB,4.4993E-03_JPRB/)
+KBO( :, 5,18, 1) = (/&
+&8.0117E-04_JPRB,8.9283E-04_JPRB,3.3073E-03_JPRB,4.3215E-03_JPRB,4.8888E-03_JPRB,4.5891E-03_JPRB/)
+KBO( :, 1,19, 1) = (/&
+&3.8494E-04_JPRB,4.4957E-04_JPRB,2.2130E-03_JPRB,2.9470E-03_JPRB,3.3734E-03_JPRB,3.2052E-03_JPRB/)
+KBO( :, 2,19, 1) = (/&
+&4.5392E-04_JPRB,5.2326E-04_JPRB,2.3822E-03_JPRB,3.1567E-03_JPRB,3.6037E-03_JPRB,3.4087E-03_JPRB/)
+KBO( :, 3,19, 1) = (/&
+&5.2442E-04_JPRB,5.9860E-04_JPRB,2.5231E-03_JPRB,3.3307E-03_JPRB,3.7894E-03_JPRB,3.5584E-03_JPRB/)
+KBO( :, 4,19, 1) = (/&
+&5.9668E-04_JPRB,6.7462E-04_JPRB,2.6423E-03_JPRB,3.4702E-03_JPRB,3.9343E-03_JPRB,3.6638E-03_JPRB/)
+KBO( :, 5,19, 1) = (/&
+&6.7047E-04_JPRB,7.5133E-04_JPRB,2.7479E-03_JPRB,3.5833E-03_JPRB,4.0439E-03_JPRB,3.7286E-03_JPRB/)
+KBO( :, 1,20, 1) = (/&
+&3.2391E-04_JPRB,3.8002E-04_JPRB,1.8505E-03_JPRB,2.4575E-03_JPRB,2.8045E-03_JPRB,2.6400E-03_JPRB/)
+KBO( :, 2,20, 1) = (/&
+&3.8111E-04_JPRB,4.4150E-04_JPRB,1.9855E-03_JPRB,2.6268E-03_JPRB,2.9913E-03_JPRB,2.7980E-03_JPRB/)
+KBO( :, 3,20, 1) = (/&
+&4.3985E-04_JPRB,5.0438E-04_JPRB,2.0980E-03_JPRB,2.7657E-03_JPRB,3.1412E-03_JPRB,2.9140E-03_JPRB/)
+KBO( :, 4,20, 1) = (/&
+&5.0012E-04_JPRB,5.6796E-04_JPRB,2.1952E-03_JPRB,2.8783E-03_JPRB,3.2557E-03_JPRB,2.9937E-03_JPRB/)
+KBO( :, 5,20, 1) = (/&
+&5.6151E-04_JPRB,6.3169E-04_JPRB,2.2834E-03_JPRB,2.9700E-03_JPRB,3.3427E-03_JPRB,3.0410E-03_JPRB/)
+KBO( :, 1,21, 1) = (/&
+&2.7240E-04_JPRB,3.2071E-04_JPRB,1.5442E-03_JPRB,2.0481E-03_JPRB,2.3310E-03_JPRB,2.1748E-03_JPRB/)
+KBO( :, 2,21, 1) = (/&
+&3.1992E-04_JPRB,3.7200E-04_JPRB,1.6519E-03_JPRB,2.1831E-03_JPRB,2.4822E-03_JPRB,2.2984E-03_JPRB/)
+KBO( :, 3,21, 1) = (/&
+&3.6883E-04_JPRB,4.2432E-04_JPRB,1.7430E-03_JPRB,2.2945E-03_JPRB,2.6004E-03_JPRB,2.3880E-03_JPRB/)
+KBO( :, 4,21, 1) = (/&
+&4.1890E-04_JPRB,4.7736E-04_JPRB,1.8230E-03_JPRB,2.3849E-03_JPRB,2.6916E-03_JPRB,2.4483E-03_JPRB/)
+KBO( :, 5,21, 1) = (/&
+&4.7018E-04_JPRB,5.3020E-04_JPRB,1.8963E-03_JPRB,2.4601E-03_JPRB,2.7620E-03_JPRB,2.4834E-03_JPRB/)
+KBO( :, 1,22, 1) = (/&
+&2.3153E-04_JPRB,2.7303E-04_JPRB,1.2915E-03_JPRB,1.7120E-03_JPRB,1.9456E-03_JPRB,1.7989E-03_JPRB/)
+KBO( :, 2,22, 1) = (/&
+&2.7103E-04_JPRB,3.1578E-04_JPRB,1.3773E-03_JPRB,1.8187E-03_JPRB,2.0643E-03_JPRB,1.8940E-03_JPRB/)
+KBO( :, 3,22, 1) = (/&
+&3.1187E-04_JPRB,3.5947E-04_JPRB,1.4512E-03_JPRB,1.9068E-03_JPRB,2.1566E-03_JPRB,1.9615E-03_JPRB/)
+KBO( :, 4,22, 1) = (/&
+&3.5350E-04_JPRB,4.0345E-04_JPRB,1.5172E-03_JPRB,1.9794E-03_JPRB,2.2288E-03_JPRB,2.0059E-03_JPRB/)
+KBO( :, 5,22, 1) = (/&
+&3.9619E-04_JPRB,4.4713E-04_JPRB,1.5771E-03_JPRB,2.0415E-03_JPRB,2.2843E-03_JPRB,2.0310E-03_JPRB/)
+KBO( :, 1,23, 1) = (/&
+&1.9680E-04_JPRB,2.3224E-04_JPRB,1.0785E-03_JPRB,1.4288E-03_JPRB,1.6223E-03_JPRB,1.4871E-03_JPRB/)
+KBO( :, 2,23, 1) = (/&
+&2.2970E-04_JPRB,2.6791E-04_JPRB,1.1474E-03_JPRB,1.5138E-03_JPRB,1.7153E-03_JPRB,1.5600E-03_JPRB/)
+KBO( :, 3,23, 1) = (/&
+&2.6356E-04_JPRB,3.0411E-04_JPRB,1.2075E-03_JPRB,1.5839E-03_JPRB,1.7875E-03_JPRB,1.6111E-03_JPRB/)
+KBO( :, 4,23, 1) = (/&
+&2.9823E-04_JPRB,3.4049E-04_JPRB,1.2615E-03_JPRB,1.6428E-03_JPRB,1.8444E-03_JPRB,1.6436E-03_JPRB/)
+KBO( :, 5,23, 1) = (/&
+&3.3366E-04_JPRB,3.7655E-04_JPRB,1.3106E-03_JPRB,1.6936E-03_JPRB,1.8885E-03_JPRB,1.6606E-03_JPRB/)
+KBO( :, 1,24, 1) = (/&
+&1.6732E-04_JPRB,1.9749E-04_JPRB,9.0024E-04_JPRB,1.1912E-03_JPRB,1.3515E-03_JPRB,1.2284E-03_JPRB/)
+KBO( :, 2,24, 1) = (/&
+&1.9470E-04_JPRB,2.2712E-04_JPRB,9.5558E-04_JPRB,1.2587E-03_JPRB,1.4239E-03_JPRB,1.2838E-03_JPRB/)
+KBO( :, 3,24, 1) = (/&
+&2.2281E-04_JPRB,2.5707E-04_JPRB,1.0048E-03_JPRB,1.3153E-03_JPRB,1.4808E-03_JPRB,1.3221E-03_JPRB/)
+KBO( :, 4,24, 1) = (/&
+&2.5169E-04_JPRB,2.8708E-04_JPRB,1.0484E-03_JPRB,1.3630E-03_JPRB,1.5260E-03_JPRB,1.3453E-03_JPRB/)
+KBO( :, 5,24, 1) = (/&
+&2.8094E-04_JPRB,3.1674E-04_JPRB,1.0886E-03_JPRB,1.4046E-03_JPRB,1.5614E-03_JPRB,1.3561E-03_JPRB/)
+KBO( :, 1,25, 1) = (/&
+&1.4236E-04_JPRB,1.6794E-04_JPRB,7.5125E-04_JPRB,9.9289E-04_JPRB,1.1254E-03_JPRB,1.0148E-03_JPRB/)
+KBO( :, 2,25, 1) = (/&
+&1.6512E-04_JPRB,1.9246E-04_JPRB,7.9598E-04_JPRB,1.0465E-03_JPRB,1.1819E-03_JPRB,1.0567E-03_JPRB/)
+KBO( :, 3,25, 1) = (/&
+&1.8845E-04_JPRB,2.1722E-04_JPRB,8.3598E-04_JPRB,1.0925E-03_JPRB,1.2269E-03_JPRB,1.0851E-03_JPRB/)
+KBO( :, 4,25, 1) = (/&
+&2.1255E-04_JPRB,2.4198E-04_JPRB,8.7137E-04_JPRB,1.1312E-03_JPRB,1.2632E-03_JPRB,1.1012E-03_JPRB/)
+KBO( :, 5,25, 1) = (/&
+&2.3642E-04_JPRB,2.6609E-04_JPRB,9.0373E-04_JPRB,1.1641E-03_JPRB,1.2904E-03_JPRB,1.1075E-03_JPRB/)
+KBO( :, 1,26, 1) = (/&
+&1.2135E-04_JPRB,1.4296E-04_JPRB,6.2705E-04_JPRB,8.2752E-04_JPRB,9.3670E-04_JPRB,8.3888E-04_JPRB/)
+KBO( :, 2,26, 1) = (/&
+&1.4025E-04_JPRB,1.6320E-04_JPRB,6.6335E-04_JPRB,8.7086E-04_JPRB,9.8124E-04_JPRB,8.7024E-04_JPRB/)
+KBO( :, 3,26, 1) = (/&
+&1.5968E-04_JPRB,1.8367E-04_JPRB,6.9554E-04_JPRB,9.0762E-04_JPRB,1.0171E-03_JPRB,8.9085E-04_JPRB/)
+KBO( :, 4,26, 1) = (/&
+&1.7968E-04_JPRB,2.0411E-04_JPRB,7.2423E-04_JPRB,9.3899E-04_JPRB,1.0460E-03_JPRB,9.0171E-04_JPRB/)
+KBO( :, 5,26, 1) = (/&
+&1.9911E-04_JPRB,2.2355E-04_JPRB,7.5041E-04_JPRB,9.6460E-04_JPRB,1.0668E-03_JPRB,9.0488E-04_JPRB/)
+KBO( :, 1,27, 1) = (/&
+&1.0341E-04_JPRB,1.2153E-04_JPRB,5.2310E-04_JPRB,6.8960E-04_JPRB,7.7919E-04_JPRB,6.9370E-04_JPRB/)
+KBO( :, 2,27, 1) = (/&
+&1.1910E-04_JPRB,1.3828E-04_JPRB,5.5242E-04_JPRB,7.2420E-04_JPRB,8.1412E-04_JPRB,7.1711E-04_JPRB/)
+KBO( :, 3,27, 1) = (/&
+&1.3529E-04_JPRB,1.5520E-04_JPRB,5.7820E-04_JPRB,7.5373E-04_JPRB,8.4285E-04_JPRB,7.3175E-04_JPRB/)
+KBO( :, 4,27, 1) = (/&
+&1.5173E-04_JPRB,1.7193E-04_JPRB,6.0154E-04_JPRB,7.7867E-04_JPRB,8.6563E-04_JPRB,7.3890E-04_JPRB/)
+KBO( :, 5,27, 1) = (/&
+&1.6753E-04_JPRB,1.8765E-04_JPRB,6.2289E-04_JPRB,7.9883E-04_JPRB,8.8130E-04_JPRB,7.3997E-04_JPRB/)
+KBO( :, 1,28, 1) = (/&
+&8.8061E-05_JPRB,1.0321E-04_JPRB,4.3625E-04_JPRB,5.7437E-04_JPRB,6.4777E-04_JPRB,5.7348E-04_JPRB/)
+KBO( :, 2,28, 1) = (/&
+&1.0110E-04_JPRB,1.1708E-04_JPRB,4.5983E-04_JPRB,6.0227E-04_JPRB,6.7553E-04_JPRB,5.9094E-04_JPRB/)
+KBO( :, 3,28, 1) = (/&
+&1.1455E-04_JPRB,1.3102E-04_JPRB,4.8047E-04_JPRB,6.2567E-04_JPRB,6.9826E-04_JPRB,6.0125E-04_JPRB/)
+KBO( :, 4,28, 1) = (/&
+&1.2801E-04_JPRB,1.4469E-04_JPRB,4.9957E-04_JPRB,6.4544E-04_JPRB,7.1609E-04_JPRB,6.0583E-04_JPRB/)
+KBO( :, 5,28, 1) = (/&
+&1.4086E-04_JPRB,1.5736E-04_JPRB,5.1693E-04_JPRB,6.6170E-04_JPRB,7.2796E-04_JPRB,6.0570E-04_JPRB/)
+KBO( :, 1,29, 1) = (/&
+&7.5003E-05_JPRB,8.7664E-05_JPRB,3.6374E-04_JPRB,4.7834E-04_JPRB,5.3844E-04_JPRB,4.7486E-04_JPRB/)
+KBO( :, 2,29, 1) = (/&
+&8.5847E-05_JPRB,9.9153E-05_JPRB,3.8260E-04_JPRB,5.0066E-04_JPRB,5.6048E-04_JPRB,4.8785E-04_JPRB/)
+KBO( :, 3,29, 1) = (/&
+&9.7004E-05_JPRB,1.1064E-04_JPRB,3.9929E-04_JPRB,5.1926E-04_JPRB,5.7857E-04_JPRB,4.9509E-04_JPRB/)
+KBO( :, 4,29, 1) = (/&
+&1.0798E-04_JPRB,1.2169E-04_JPRB,4.1471E-04_JPRB,5.3469E-04_JPRB,5.9200E-04_JPRB,4.9798E-04_JPRB/)
+KBO( :, 5,29, 1) = (/&
+&1.1839E-04_JPRB,1.3193E-04_JPRB,4.2885E-04_JPRB,5.4790E-04_JPRB,6.0121E-04_JPRB,4.9719E-04_JPRB/)
+KBO( :, 1,30, 1) = (/&
+&6.3856E-05_JPRB,7.4428E-05_JPRB,3.0309E-04_JPRB,3.9831E-04_JPRB,4.4748E-04_JPRB,3.9336E-04_JPRB/)
+KBO( :, 2,30, 1) = (/&
+&7.2870E-05_JPRB,8.3906E-05_JPRB,3.1816E-04_JPRB,4.1597E-04_JPRB,4.6500E-04_JPRB,4.0292E-04_JPRB/)
+KBO( :, 3,30, 1) = (/&
+&8.2079E-05_JPRB,9.3343E-05_JPRB,3.3169E-04_JPRB,4.3066E-04_JPRB,4.7913E-04_JPRB,4.0807E-04_JPRB/)
+KBO( :, 4,30, 1) = (/&
+&9.1015E-05_JPRB,1.0225E-04_JPRB,3.4430E-04_JPRB,4.4314E-04_JPRB,4.8947E-04_JPRB,4.0977E-04_JPRB/)
+KBO( :, 5,30, 1) = (/&
+&9.9395E-05_JPRB,1.1051E-04_JPRB,3.5570E-04_JPRB,4.5357E-04_JPRB,4.9658E-04_JPRB,4.0872E-04_JPRB/)
+KBO( :, 1,31, 1) = (/&
+&5.4357E-05_JPRB,6.3176E-05_JPRB,2.5245E-04_JPRB,3.3157E-04_JPRB,3.7178E-04_JPRB,3.2647E-04_JPRB/)
+KBO( :, 2,31, 1) = (/&
+&6.1861E-05_JPRB,7.0996E-05_JPRB,2.6445E-04_JPRB,3.4538E-04_JPRB,3.8570E-04_JPRB,3.3355E-04_JPRB/)
+KBO( :, 3,31, 1) = (/&
+&6.9416E-05_JPRB,7.8709E-05_JPRB,2.7554E-04_JPRB,3.5712E-04_JPRB,3.9671E-04_JPRB,3.3723E-04_JPRB/)
+KBO( :, 4,31, 1) = (/&
+&7.6656E-05_JPRB,8.5880E-05_JPRB,2.8577E-04_JPRB,3.6709E-04_JPRB,4.0449E-04_JPRB,3.3826E-04_JPRB/)
+KBO( :, 5,31, 1) = (/&
+&8.3388E-05_JPRB,9.2525E-05_JPRB,2.9501E-04_JPRB,3.7530E-04_JPRB,4.1001E-04_JPRB,3.3724E-04_JPRB/)
+KBO( :, 1,32, 1) = (/&
+&4.6259E-05_JPRB,5.3603E-05_JPRB,2.1016E-04_JPRB,2.7584E-04_JPRB,3.0892E-04_JPRB,2.7109E-04_JPRB/)
+KBO( :, 2,32, 1) = (/&
+&5.2498E-05_JPRB,6.0059E-05_JPRB,2.1987E-04_JPRB,2.8676E-04_JPRB,3.1987E-04_JPRB,2.7630E-04_JPRB/)
+KBO( :, 3,32, 1) = (/&
+&5.8656E-05_JPRB,6.6298E-05_JPRB,2.2891E-04_JPRB,2.9611E-04_JPRB,3.2832E-04_JPRB,2.7895E-04_JPRB/)
+KBO( :, 4,32, 1) = (/&
+&6.4498E-05_JPRB,7.2071E-05_JPRB,2.3718E-04_JPRB,3.0404E-04_JPRB,3.3430E-04_JPRB,2.7957E-04_JPRB/)
+KBO( :, 5,32, 1) = (/&
+&6.9916E-05_JPRB,7.7424E-05_JPRB,2.4471E-04_JPRB,3.1058E-04_JPRB,3.3850E-04_JPRB,2.7859E-04_JPRB/)
+KBO( :, 1,33, 1) = (/&
+&3.9361E-05_JPRB,4.5460E-05_JPRB,1.7493E-04_JPRB,2.2932E-04_JPRB,2.5656E-04_JPRB,2.2525E-04_JPRB/)
+KBO( :, 2,33, 1) = (/&
+&4.4512E-05_JPRB,5.0768E-05_JPRB,1.8281E-04_JPRB,2.3800E-04_JPRB,2.6516E-04_JPRB,2.2918E-04_JPRB/)
+KBO( :, 3,33, 1) = (/&
+&4.9514E-05_JPRB,5.5781E-05_JPRB,1.9016E-04_JPRB,2.4549E-04_JPRB,2.7165E-04_JPRB,2.3114E-04_JPRB/)
+KBO( :, 4,33, 1) = (/&
+&5.4222E-05_JPRB,6.0427E-05_JPRB,1.9683E-04_JPRB,2.5168E-04_JPRB,2.7625E-04_JPRB,2.3152E-04_JPRB/)
+KBO( :, 5,33, 1) = (/&
+&5.8568E-05_JPRB,6.4731E-05_JPRB,2.0299E-04_JPRB,2.5697E-04_JPRB,2.7939E-04_JPRB,2.3058E-04_JPRB/)
+KBO( :, 1,34, 1) = (/&
+&3.3323E-05_JPRB,3.8371E-05_JPRB,1.4532E-04_JPRB,1.9026E-04_JPRB,2.1273E-04_JPRB,1.8680E-04_JPRB/)
+KBO( :, 2,34, 1) = (/&
+&3.7542E-05_JPRB,4.2703E-05_JPRB,1.5176E-04_JPRB,1.9725E-04_JPRB,2.1949E-04_JPRB,1.8982E-04_JPRB/)
+KBO( :, 3,34, 1) = (/&
+&4.1603E-05_JPRB,4.6750E-05_JPRB,1.5775E-04_JPRB,2.0322E-04_JPRB,2.2449E-04_JPRB,1.9126E-04_JPRB/)
+KBO( :, 4,34, 1) = (/&
+&4.5410E-05_JPRB,5.0505E-05_JPRB,1.6321E-04_JPRB,2.0822E-04_JPRB,2.2810E-04_JPRB,1.9147E-04_JPRB/)
+KBO( :, 5,34, 1) = (/&
+&4.8872E-05_JPRB,5.3940E-05_JPRB,1.6826E-04_JPRB,2.1254E-04_JPRB,2.3048E-04_JPRB,1.9060E-04_JPRB/)
+KBO( :, 1,35, 1) = (/&
+&2.7848E-05_JPRB,3.2017E-05_JPRB,1.2019E-04_JPRB,1.5723E-04_JPRB,1.7574E-04_JPRB,1.5467E-04_JPRB/)
+KBO( :, 2,35, 1) = (/&
+&3.1305E-05_JPRB,3.5553E-05_JPRB,1.2549E-04_JPRB,1.6294E-04_JPRB,1.8117E-04_JPRB,1.5712E-04_JPRB/)
+KBO( :, 3,35, 1) = (/&
+&3.4621E-05_JPRB,3.8848E-05_JPRB,1.3039E-04_JPRB,1.6780E-04_JPRB,1.8517E-04_JPRB,1.5830E-04_JPRB/)
+KBO( :, 4,35, 1) = (/&
+&3.7704E-05_JPRB,4.1891E-05_JPRB,1.3491E-04_JPRB,1.7188E-04_JPRB,1.8805E-04_JPRB,1.5843E-04_JPRB/)
+KBO( :, 5,35, 1) = (/&
+&4.0476E-05_JPRB,4.4649E-05_JPRB,1.3909E-04_JPRB,1.7549E-04_JPRB,1.8997E-04_JPRB,1.5779E-04_JPRB/)
+KBO( :, 1,36, 1) = (/&
+&2.2956E-05_JPRB,2.6385E-05_JPRB,9.8921E-05_JPRB,1.2940E-04_JPRB,1.4463E-04_JPRB,1.2779E-04_JPRB/)
+KBO( :, 2,36, 1) = (/&
+&2.5793E-05_JPRB,2.9285E-05_JPRB,1.0333E-04_JPRB,1.3415E-04_JPRB,1.4912E-04_JPRB,1.2989E-04_JPRB/)
+KBO( :, 3,36, 1) = (/&
+&2.8520E-05_JPRB,3.1993E-05_JPRB,1.0740E-04_JPRB,1.3821E-04_JPRB,1.5246E-04_JPRB,1.3097E-04_JPRB/)
+KBO( :, 4,36, 1) = (/&
+&3.1028E-05_JPRB,3.4473E-05_JPRB,1.1115E-04_JPRB,1.4160E-04_JPRB,1.5487E-04_JPRB,1.3116E-04_JPRB/)
+KBO( :, 5,36, 1) = (/&
+&3.3268E-05_JPRB,3.6701E-05_JPRB,1.1464E-04_JPRB,1.4466E-04_JPRB,1.5648E-04_JPRB,1.3075E-04_JPRB/)
+KBO( :, 1,37, 1) = (/&
+&1.8563E-05_JPRB,2.1372E-05_JPRB,8.0857E-05_JPRB,1.0587E-04_JPRB,1.1839E-04_JPRB,1.0509E-04_JPRB/)
+KBO( :, 2,37, 1) = (/&
+&2.0902E-05_JPRB,2.3771E-05_JPRB,8.4550E-05_JPRB,1.0990E-04_JPRB,1.2224E-04_JPRB,1.0704E-04_JPRB/)
+KBO( :, 3,37, 1) = (/&
+&2.3158E-05_JPRB,2.6017E-05_JPRB,8.7968E-05_JPRB,1.1334E-04_JPRB,1.2513E-04_JPRB,1.0806E-04_JPRB/)
+KBO( :, 4,37, 1) = (/&
+&2.5232E-05_JPRB,2.8068E-05_JPRB,9.1139E-05_JPRB,1.1630E-04_JPRB,1.2729E-04_JPRB,1.0839E-04_JPRB/)
+KBO( :, 5,37, 1) = (/&
+&2.7075E-05_JPRB,2.9898E-05_JPRB,9.4071E-05_JPRB,1.1891E-04_JPRB,1.2874E-04_JPRB,1.0822E-04_JPRB/)
+KBO( :, 1,38, 1) = (/&
+&1.4988E-05_JPRB,1.7289E-05_JPRB,6.6055E-05_JPRB,8.6575E-05_JPRB,9.6855E-05_JPRB,8.6493E-05_JPRB/)
+KBO( :, 2,38, 1) = (/&
+&1.6918E-05_JPRB,1.9272E-05_JPRB,6.9150E-05_JPRB,8.9996E-05_JPRB,1.0016E-04_JPRB,8.8280E-05_JPRB/)
+KBO( :, 3,38, 1) = (/&
+&1.8783E-05_JPRB,2.1138E-05_JPRB,7.2026E-05_JPRB,9.2962E-05_JPRB,1.0270E-04_JPRB,8.9275E-05_JPRB/)
+KBO( :, 4,38, 1) = (/&
+&2.0496E-05_JPRB,2.2834E-05_JPRB,7.4689E-05_JPRB,9.5470E-05_JPRB,1.0459E-04_JPRB,8.9701E-05_JPRB/)
+KBO( :, 5,38, 1) = (/&
+&2.2016E-05_JPRB,2.4338E-05_JPRB,7.7162E-05_JPRB,9.7704E-05_JPRB,1.0591E-04_JPRB,8.9718E-05_JPRB/)
+KBO( :, 1,39, 1) = (/&
+&1.2096E-05_JPRB,1.3982E-05_JPRB,5.3949E-05_JPRB,7.0786E-05_JPRB,7.9230E-05_JPRB,7.1287E-05_JPRB/)
+KBO( :, 2,39, 1) = (/&
+&1.3689E-05_JPRB,1.5620E-05_JPRB,5.6546E-05_JPRB,7.3698E-05_JPRB,8.2063E-05_JPRB,7.2936E-05_JPRB/)
+KBO( :, 3,39, 1) = (/&
+&1.5231E-05_JPRB,1.7169E-05_JPRB,5.8966E-05_JPRB,7.6225E-05_JPRB,8.4277E-05_JPRB,7.3907E-05_JPRB/)
+KBO( :, 4,39, 1) = (/&
+&1.6645E-05_JPRB,1.8570E-05_JPRB,6.1204E-05_JPRB,7.8367E-05_JPRB,8.5941E-05_JPRB,7.4418E-05_JPRB/)
+KBO( :, 5,39, 1) = (/&
+&1.7901E-05_JPRB,1.9810E-05_JPRB,6.3290E-05_JPRB,8.0298E-05_JPRB,8.7131E-05_JPRB,7.4561E-05_JPRB/)
+KBO( :, 1,40, 1) = (/&
+&9.6276E-06_JPRB,1.1165E-05_JPRB,4.3831E-05_JPRB,5.7599E-05_JPRB,6.4509E-05_JPRB,5.8273E-05_JPRB/)
+KBO( :, 2,40, 1) = (/&
+&1.0939E-05_JPRB,1.2519E-05_JPRB,4.6024E-05_JPRB,6.0108E-05_JPRB,6.6994E-05_JPRB,5.9810E-05_JPRB/)
+KBO( :, 3,40, 1) = (/&
+&1.2220E-05_JPRB,1.3814E-05_JPRB,4.8073E-05_JPRB,6.2293E-05_JPRB,6.8988E-05_JPRB,6.0759E-05_JPRB/)
+KBO( :, 4,40, 1) = (/&
+&1.3401E-05_JPRB,1.4988E-05_JPRB,4.9968E-05_JPRB,6.4170E-05_JPRB,7.0494E-05_JPRB,6.1313E-05_JPRB/)
+KBO( :, 5,40, 1) = (/&
+&1.4450E-05_JPRB,1.6022E-05_JPRB,5.1742E-05_JPRB,6.5833E-05_JPRB,7.1594E-05_JPRB,6.1539E-05_JPRB/)
+KBO( :, 1,41, 1) = (/&
+&7.6383E-06_JPRB,8.8906E-06_JPRB,3.5555E-05_JPRB,4.6806E-05_JPRB,5.2458E-05_JPRB,4.7568E-05_JPRB/)
+KBO( :, 2,41, 1) = (/&
+&8.7190E-06_JPRB,1.0010E-05_JPRB,3.7422E-05_JPRB,4.8972E-05_JPRB,5.4631E-05_JPRB,4.8981E-05_JPRB/)
+KBO( :, 3,41, 1) = (/&
+&9.7816E-06_JPRB,1.1092E-05_JPRB,3.9150E-05_JPRB,5.0862E-05_JPRB,5.6413E-05_JPRB,4.9899E-05_JPRB/)
+KBO( :, 4,41, 1) = (/&
+&1.0770E-05_JPRB,1.2078E-05_JPRB,4.0765E-05_JPRB,5.2505E-05_JPRB,5.7788E-05_JPRB,5.0461E-05_JPRB/)
+KBO( :, 5,41, 1) = (/&
+&1.1650E-05_JPRB,1.2944E-05_JPRB,4.2271E-05_JPRB,5.3948E-05_JPRB,5.8801E-05_JPRB,5.0748E-05_JPRB/)
+KBO( :, 1,42, 1) = (/&
+&6.0542E-06_JPRB,7.0721E-06_JPRB,2.8820E-05_JPRB,3.8000E-05_JPRB,4.2624E-05_JPRB,3.8819E-05_JPRB/)
+KBO( :, 2,42, 1) = (/&
+&6.9406E-06_JPRB,7.9951E-06_JPRB,3.0412E-05_JPRB,3.9875E-05_JPRB,4.4529E-05_JPRB,4.0118E-05_JPRB/)
+KBO( :, 3,42, 1) = (/&
+&7.8202E-06_JPRB,8.8967E-06_JPRB,3.1870E-05_JPRB,4.1509E-05_JPRB,4.6106E-05_JPRB,4.0986E-05_JPRB/)
+KBO( :, 4,42, 1) = (/&
+&8.6462E-06_JPRB,9.7239E-06_JPRB,3.3236E-05_JPRB,4.2934E-05_JPRB,4.7338E-05_JPRB,4.1549E-05_JPRB/)
+KBO( :, 5,42, 1) = (/&
+&9.3841E-06_JPRB,1.0450E-05_JPRB,3.4511E-05_JPRB,4.4186E-05_JPRB,4.8277E-05_JPRB,4.1876E-05_JPRB/)
+KBO( :, 1,43, 1) = (/&
+&4.7535E-06_JPRB,5.5762E-06_JPRB,2.3267E-05_JPRB,3.0725E-05_JPRB,3.4509E-05_JPRB,3.1571E-05_JPRB/)
+KBO( :, 2,43, 1) = (/&
+&5.4765E-06_JPRB,6.3357E-06_JPRB,2.4631E-05_JPRB,3.2364E-05_JPRB,3.6180E-05_JPRB,3.2776E-05_JPRB/)
+KBO( :, 3,43, 1) = (/&
+&6.2063E-06_JPRB,7.0878E-06_JPRB,2.5870E-05_JPRB,3.3787E-05_JPRB,3.7588E-05_JPRB,3.3603E-05_JPRB/)
+KBO( :, 4,43, 1) = (/&
+&6.8971E-06_JPRB,7.7847E-06_JPRB,2.7025E-05_JPRB,3.5030E-05_JPRB,3.8710E-05_JPRB,3.4166E-05_JPRB/)
+KBO( :, 5,43, 1) = (/&
+&7.5200E-06_JPRB,8.3995E-06_JPRB,2.8111E-05_JPRB,3.6121E-05_JPRB,3.9582E-05_JPRB,3.4523E-05_JPRB/)
+KBO( :, 1,44, 1) = (/&
+&3.7108E-06_JPRB,4.3735E-06_JPRB,1.8735E-05_JPRB,2.4774E-05_JPRB,2.7859E-05_JPRB,2.5624E-05_JPRB/)
+KBO( :, 2,44, 1) = (/&
+&4.2986E-06_JPRB,4.9970E-06_JPRB,1.9896E-05_JPRB,2.6202E-05_JPRB,2.9326E-05_JPRB,2.6740E-05_JPRB/)
+KBO( :, 3,44, 1) = (/&
+&4.9004E-06_JPRB,5.6209E-06_JPRB,2.0953E-05_JPRB,2.7445E-05_JPRB,3.0581E-05_JPRB,2.7533E-05_JPRB/)
+KBO( :, 4,44, 1) = (/&
+&5.4800E-06_JPRB,6.2094E-06_JPRB,2.1942E-05_JPRB,2.8536E-05_JPRB,3.1606E-05_JPRB,2.8081E-05_JPRB/)
+KBO( :, 5,44, 1) = (/&
+&6.0067E-06_JPRB,6.7326E-06_JPRB,2.2861E-05_JPRB,2.9489E-05_JPRB,3.2408E-05_JPRB,2.8452E-05_JPRB/)
+KBO( :, 1,45, 1) = (/&
+&2.8911E-06_JPRB,3.4227E-06_JPRB,1.5064E-05_JPRB,1.9947E-05_JPRB,2.2457E-05_JPRB,2.0791E-05_JPRB/)
+KBO( :, 2,45, 1) = (/&
+&3.3674E-06_JPRB,3.9335E-06_JPRB,1.6057E-05_JPRB,2.1189E-05_JPRB,2.3743E-05_JPRB,2.1813E-05_JPRB/)
+KBO( :, 3,45, 1) = (/&
+&3.8624E-06_JPRB,4.4499E-06_JPRB,1.6962E-05_JPRB,2.2274E-05_JPRB,2.4852E-05_JPRB,2.2566E-05_JPRB/)
+KBO( :, 4,45, 1) = (/&
+&4.3456E-06_JPRB,4.9443E-06_JPRB,1.7794E-05_JPRB,2.3219E-05_JPRB,2.5777E-05_JPRB,2.3098E-05_JPRB/)
+KBO( :, 5,45, 1) = (/&
+&4.7911E-06_JPRB,5.3898E-06_JPRB,1.8581E-05_JPRB,2.4056E-05_JPRB,2.6509E-05_JPRB,2.3470E-05_JPRB/)
+KBO( :, 1,46, 1) = (/&
+&2.2383E-06_JPRB,2.6637E-06_JPRB,1.2073E-05_JPRB,1.6011E-05_JPRB,1.8044E-05_JPRB,1.6831E-05_JPRB/)
+KBO( :, 2,46, 1) = (/&
+&2.6247E-06_JPRB,3.0814E-06_JPRB,1.2921E-05_JPRB,1.7081E-05_JPRB,1.9170E-05_JPRB,1.7760E-05_JPRB/)
+KBO( :, 3,46, 1) = (/&
+&3.0283E-06_JPRB,3.5061E-06_JPRB,1.3701E-05_JPRB,1.8033E-05_JPRB,2.0150E-05_JPRB,1.8469E-05_JPRB/)
+KBO( :, 4,46, 1) = (/&
+&3.4307E-06_JPRB,3.9211E-06_JPRB,1.4408E-05_JPRB,1.8862E-05_JPRB,2.0983E-05_JPRB,1.8985E-05_JPRB/)
+KBO( :, 5,46, 1) = (/&
+&3.8069E-06_JPRB,4.3002E-06_JPRB,1.5076E-05_JPRB,1.9597E-05_JPRB,2.1654E-05_JPRB,1.9353E-05_JPRB/)
+KBO( :, 1,47, 1) = (/&
+&1.7157E-06_JPRB,2.0538E-06_JPRB,9.6246E-06_JPRB,1.2782E-05_JPRB,1.4416E-05_JPRB,1.3539E-05_JPRB/)
+KBO( :, 2,47, 1) = (/&
+&2.0274E-06_JPRB,2.3938E-06_JPRB,1.0355E-05_JPRB,1.3710E-05_JPRB,1.5413E-05_JPRB,1.4388E-05_JPRB/)
+KBO( :, 3,47, 1) = (/&
+&2.3547E-06_JPRB,2.7420E-06_JPRB,1.1027E-05_JPRB,1.4546E-05_JPRB,1.6278E-05_JPRB,1.5051E-05_JPRB/)
+KBO( :, 4,47, 1) = (/&
+&2.6881E-06_JPRB,3.0885E-06_JPRB,1.1632E-05_JPRB,1.5275E-05_JPRB,1.7026E-05_JPRB,1.5547E-05_JPRB/)
+KBO( :, 5,47, 1) = (/&
+&3.0058E-06_JPRB,3.4107E-06_JPRB,1.2197E-05_JPRB,1.5919E-05_JPRB,1.7642E-05_JPRB,1.5912E-05_JPRB/)
+KBO( :, 1,48, 1) = (/&
+&1.3107E-06_JPRB,1.5782E-06_JPRB,7.6508E-06_JPRB,1.0175E-05_JPRB,1.1482E-05_JPRB,1.0883E-05_JPRB/)
+KBO( :, 2,48, 1) = (/&
+&1.5615E-06_JPRB,1.8540E-06_JPRB,8.2825E-06_JPRB,1.0980E-05_JPRB,1.2364E-05_JPRB,1.1653E-05_JPRB/)
+KBO( :, 3,48, 1) = (/&
+&1.8258E-06_JPRB,2.1385E-06_JPRB,8.8579E-06_JPRB,1.1710E-05_JPRB,1.3124E-05_JPRB,1.2269E-05_JPRB/)
+KBO( :, 4,48, 1) = (/&
+&2.0996E-06_JPRB,2.4258E-06_JPRB,9.3784E-06_JPRB,1.2351E-05_JPRB,1.3790E-05_JPRB,1.2743E-05_JPRB/)
+KBO( :, 5,48, 1) = (/&
+&2.3667E-06_JPRB,2.6988E-06_JPRB,9.8574E-06_JPRB,1.2914E-05_JPRB,1.4353E-05_JPRB,1.3101E-05_JPRB/)
+KBO( :, 1,49, 1) = (/&
+&9.9722E-07_JPRB,1.2088E-06_JPRB,6.0640E-06_JPRB,8.0714E-06_JPRB,9.1144E-06_JPRB,8.7529E-06_JPRB/)
+KBO( :, 2,49, 1) = (/&
+&1.1984E-06_JPRB,1.4315E-06_JPRB,6.6089E-06_JPRB,8.7743E-06_JPRB,9.8916E-06_JPRB,9.4492E-06_JPRB/)
+KBO( :, 3,49, 1) = (/&
+&1.4119E-06_JPRB,1.6631E-06_JPRB,7.1011E-06_JPRB,9.4039E-06_JPRB,1.0560E-05_JPRB,1.0016E-05_JPRB/)
+KBO( :, 4,49, 1) = (/&
+&1.6351E-06_JPRB,1.8997E-06_JPRB,7.5513E-06_JPRB,9.9685E-06_JPRB,1.1148E-05_JPRB,1.0465E-05_JPRB/)
+KBO( :, 5,49, 1) = (/&
+&1.8579E-06_JPRB,2.1297E-06_JPRB,7.9577E-06_JPRB,1.0461E-05_JPRB,1.1654E-05_JPRB,1.0817E-05_JPRB/)
+KBO( :, 1,50, 1) = (/&
+&7.5886E-07_JPRB,9.2721E-07_JPRB,4.8038E-06_JPRB,6.3978E-06_JPRB,7.2231E-06_JPRB,7.0033E-06_JPRB/)
+KBO( :, 2,50, 1) = (/&
+&9.2100E-07_JPRB,1.1063E-06_JPRB,5.2714E-06_JPRB,7.0056E-06_JPRB,7.9040E-06_JPRB,7.6216E-06_JPRB/)
+KBO( :, 3,50, 1) = (/&
+&1.0933E-06_JPRB,1.2947E-06_JPRB,5.6945E-06_JPRB,7.5500E-06_JPRB,8.4922E-06_JPRB,8.1346E-06_JPRB/)
+KBO( :, 4,50, 1) = (/&
+&1.2741E-06_JPRB,1.4882E-06_JPRB,6.0797E-06_JPRB,8.0421E-06_JPRB,9.0066E-06_JPRB,8.5490E-06_JPRB/)
+KBO( :, 5,50, 1) = (/&
+&1.4586E-06_JPRB,1.6807E-06_JPRB,6.4274E-06_JPRB,8.4750E-06_JPRB,9.4574E-06_JPRB,8.8779E-06_JPRB/)
+KBO( :, 1,51, 1) = (/&
+&5.7629E-07_JPRB,7.1029E-07_JPRB,3.7943E-06_JPRB,5.0570E-06_JPRB,5.7108E-06_JPRB,5.5791E-06_JPRB/)
+KBO( :, 2,51, 1) = (/&
+&7.0702E-07_JPRB,8.5393E-07_JPRB,4.1966E-06_JPRB,5.5839E-06_JPRB,6.3056E-06_JPRB,6.1262E-06_JPRB/)
+KBO( :, 3,51, 1) = (/&
+&8.4587E-07_JPRB,1.0071E-06_JPRB,4.5610E-06_JPRB,6.0549E-06_JPRB,6.8186E-06_JPRB,6.5832E-06_JPRB/)
+KBO( :, 4,51, 1) = (/&
+&9.9205E-07_JPRB,1.1651E-06_JPRB,4.8914E-06_JPRB,6.4815E-06_JPRB,7.2681E-06_JPRB,6.9582E-06_JPRB/)
+KBO( :, 5,51, 1) = (/&
+&1.1437E-06_JPRB,1.3245E-06_JPRB,5.1899E-06_JPRB,6.8593E-06_JPRB,7.6670E-06_JPRB,7.2604E-06_JPRB/)
+KBO( :, 1,52, 1) = (/&
+&4.3584E-07_JPRB,5.4224E-07_JPRB,2.9855E-06_JPRB,3.9817E-06_JPRB,4.4976E-06_JPRB,4.4442E-06_JPRB/)
+KBO( :, 2,52, 1) = (/&
+&5.4097E-07_JPRB,6.5764E-07_JPRB,3.3334E-06_JPRB,4.4392E-06_JPRB,5.0153E-06_JPRB,4.9246E-06_JPRB/)
+KBO( :, 3,52, 1) = (/&
+&6.5253E-07_JPRB,7.8129E-07_JPRB,3.6456E-06_JPRB,4.8458E-06_JPRB,5.4625E-06_JPRB,5.3314E-06_JPRB/)
+KBO( :, 4,52, 1) = (/&
+&7.7086E-07_JPRB,9.1002E-07_JPRB,3.9287E-06_JPRB,5.2127E-06_JPRB,5.8546E-06_JPRB,5.6688E-06_JPRB/)
+KBO( :, 5,52, 1) = (/&
+&8.9444E-07_JPRB,1.0413E-06_JPRB,4.1837E-06_JPRB,5.5418E-06_JPRB,6.2037E-06_JPRB,5.9475E-06_JPRB/)
+KBO( :, 1,53, 1) = (/&
+&3.2796E-07_JPRB,4.1214E-07_JPRB,2.3394E-06_JPRB,3.1195E-06_JPRB,3.5262E-06_JPRB,3.5455E-06_JPRB/)
+KBO( :, 2,53, 1) = (/&
+&4.1213E-07_JPRB,5.0498E-07_JPRB,2.6399E-06_JPRB,3.5184E-06_JPRB,3.9742E-06_JPRB,3.9662E-06_JPRB/)
+KBO( :, 3,53, 1) = (/&
+&5.0194E-07_JPRB,6.0442E-07_JPRB,2.9073E-06_JPRB,3.8680E-06_JPRB,4.3642E-06_JPRB,4.3273E-06_JPRB/)
+KBO( :, 4,53, 1) = (/&
+&5.9752E-07_JPRB,7.0914E-07_JPRB,3.1505E-06_JPRB,4.1837E-06_JPRB,4.7059E-06_JPRB,4.6313E-06_JPRB/)
+KBO( :, 5,53, 1) = (/&
+&6.9765E-07_JPRB,8.1659E-07_JPRB,3.3684E-06_JPRB,4.4697E-06_JPRB,5.0106E-06_JPRB,4.8882E-06_JPRB/)
+KBO( :, 1,54, 1) = (/&
+&2.4768E-07_JPRB,3.1412E-07_JPRB,1.8333E-06_JPRB,2.4420E-06_JPRB,2.7649E-06_JPRB,2.7862E-06_JPRB/)
+KBO( :, 2,54, 1) = (/&
+&3.1476E-07_JPRB,3.8873E-07_JPRB,2.0902E-06_JPRB,2.7876E-06_JPRB,3.1500E-06_JPRB,3.1426E-06_JPRB/)
+KBO( :, 3,54, 1) = (/&
+&3.8724E-07_JPRB,4.6872E-07_JPRB,2.3192E-06_JPRB,3.0882E-06_JPRB,3.4874E-06_JPRB,3.4564E-06_JPRB/)
+KBO( :, 4,54, 1) = (/&
+&4.6434E-07_JPRB,5.5384E-07_JPRB,2.5276E-06_JPRB,3.3593E-06_JPRB,3.7832E-06_JPRB,3.7206E-06_JPRB/)
+KBO( :, 5,54, 1) = (/&
+&5.4537E-07_JPRB,6.4156E-07_JPRB,2.7141E-06_JPRB,3.6064E-06_JPRB,4.0468E-06_JPRB,3.9453E-06_JPRB/)
+KBO( :, 1,55, 1) = (/&
+&1.8693E-07_JPRB,2.3927E-07_JPRB,1.4336E-06_JPRB,1.9074E-06_JPRB,2.1635E-06_JPRB,2.1619E-06_JPRB/)
+KBO( :, 2,55, 1) = (/&
+&2.4025E-07_JPRB,2.9918E-07_JPRB,1.6519E-06_JPRB,2.2048E-06_JPRB,2.4926E-06_JPRB,2.4604E-06_JPRB/)
+KBO( :, 3,55, 1) = (/&
+&2.9872E-07_JPRB,3.6360E-07_JPRB,1.8488E-06_JPRB,2.4633E-06_JPRB,2.7832E-06_JPRB,2.7282E-06_JPRB/)
+KBO( :, 4,55, 1) = (/&
+&3.6075E-07_JPRB,4.3251E-07_JPRB,2.0265E-06_JPRB,2.6954E-06_JPRB,3.0391E-06_JPRB,2.9551E-06_JPRB/)
+KBO( :, 5,55, 1) = (/&
+&4.2648E-07_JPRB,5.0404E-07_JPRB,2.1855E-06_JPRB,2.9070E-06_JPRB,3.2663E-06_JPRB,3.1458E-06_JPRB/)
+KBO( :, 1,56, 1) = (/&
+&1.4054E-07_JPRB,1.8176E-07_JPRB,1.1161E-06_JPRB,1.4834E-06_JPRB,1.6858E-06_JPRB,1.6706E-06_JPRB/)
+KBO( :, 2,56, 1) = (/&
+&1.8272E-07_JPRB,2.2962E-07_JPRB,1.3014E-06_JPRB,1.7377E-06_JPRB,1.9656E-06_JPRB,1.9215E-06_JPRB/)
+KBO( :, 3,56, 1) = (/&
+&2.2968E-07_JPRB,2.8144E-07_JPRB,1.4702E-06_JPRB,1.9602E-06_JPRB,2.2149E-06_JPRB,2.1478E-06_JPRB/)
+KBO( :, 4,56, 1) = (/&
+&2.7973E-07_JPRB,3.3709E-07_JPRB,1.6219E-06_JPRB,2.1586E-06_JPRB,2.4358E-06_JPRB,2.3428E-06_JPRB/)
+KBO( :, 5,56, 1) = (/&
+&3.3292E-07_JPRB,3.9535E-07_JPRB,1.7578E-06_JPRB,2.3398E-06_JPRB,2.6321E-06_JPRB,2.5058E-06_JPRB/)
+KBO( :, 1,57, 1) = (/&
+&1.0510E-07_JPRB,1.3750E-07_JPRB,8.6405E-07_JPRB,1.1473E-06_JPRB,1.3076E-06_JPRB,1.2850E-06_JPRB/)
+KBO( :, 2,57, 1) = (/&
+&1.3849E-07_JPRB,1.7560E-07_JPRB,1.0222E-06_JPRB,1.3638E-06_JPRB,1.5446E-06_JPRB,1.4961E-06_JPRB/)
+KBO( :, 3,57, 1) = (/&
+&1.7599E-07_JPRB,2.1727E-07_JPRB,1.1659E-06_JPRB,1.5556E-06_JPRB,1.7583E-06_JPRB,1.6859E-06_JPRB/)
+KBO( :, 4,57, 1) = (/&
+&2.1642E-07_JPRB,2.6216E-07_JPRB,1.2954E-06_JPRB,1.7252E-06_JPRB,1.9483E-06_JPRB,1.8528E-06_JPRB/)
+KBO( :, 5,57, 1) = (/&
+&2.5937E-07_JPRB,3.0954E-07_JPRB,1.4120E-06_JPRB,1.8802E-06_JPRB,2.1177E-06_JPRB,1.9931E-06_JPRB/)
+KBO( :, 1,58, 1) = (/&
+&7.8562E-08_JPRB,1.0412E-07_JPRB,6.6697E-07_JPRB,8.8547E-07_JPRB,1.0122E-06_JPRB,9.8359E-07_JPRB/)
+KBO( :, 2,58, 1) = (/&
+&1.0505E-07_JPRB,1.3435E-07_JPRB,8.0186E-07_JPRB,1.0688E-06_JPRB,1.2123E-06_JPRB,1.1602E-06_JPRB/)
+KBO( :, 3,58, 1) = (/&
+&1.3491E-07_JPRB,1.6781E-07_JPRB,9.2343E-07_JPRB,1.2330E-06_JPRB,1.3947E-06_JPRB,1.3189E-06_JPRB/)
+KBO( :, 4,58, 1) = (/&
+&1.6755E-07_JPRB,2.0398E-07_JPRB,1.0341E-06_JPRB,1.3781E-06_JPRB,1.5576E-06_JPRB,1.4600E-06_JPRB/)
+KBO( :, 5,58, 1) = (/&
+&2.0219E-07_JPRB,2.4245E-07_JPRB,1.1337E-06_JPRB,1.5104E-06_JPRB,1.7029E-06_JPRB,1.5797E-06_JPRB/)
+KBO( :, 1,59, 1) = (/&
+&6.2032E-08_JPRB,8.2667E-08_JPRB,5.3358E-07_JPRB,7.0860E-07_JPRB,8.1061E-07_JPRB,7.5992E-07_JPRB/)
+KBO( :, 2,59, 1) = (/&
+&8.3464E-08_JPRB,1.0714E-07_JPRB,6.4596E-07_JPRB,8.6092E-07_JPRB,9.7714E-07_JPRB,9.0330E-07_JPRB/)
+KBO( :, 3,59, 1) = (/&
+&1.0772E-07_JPRB,1.3445E-07_JPRB,7.4727E-07_JPRB,9.9822E-07_JPRB,1.1293E-06_JPRB,1.0310E-06_JPRB/)
+KBO( :, 4,59, 1) = (/&
+&1.3434E-07_JPRB,1.6394E-07_JPRB,8.4000E-07_JPRB,1.1197E-06_JPRB,1.2658E-06_JPRB,1.1431E-06_JPRB/)
+KBO( :, 5,59, 1) = (/&
+&1.6260E-07_JPRB,1.9540E-07_JPRB,9.2328E-07_JPRB,1.2307E-06_JPRB,1.3881E-06_JPRB,1.2388E-06_JPRB/)
+KBO( :, 1,13, 2) = (/&
+&3.6523E-03_JPRB,3.8939E-03_JPRB,1.9272E-02_JPRB,2.7740E-02_JPRB,3.3512E-02_JPRB,3.3627E-02_JPRB/)
+KBO( :, 2,13, 2) = (/&
+&4.0698E-03_JPRB,4.3006E-03_JPRB,2.0140E-02_JPRB,2.9159E-02_JPRB,3.5603E-02_JPRB,3.6375E-02_JPRB/)
+KBO( :, 3,13, 2) = (/&
+&4.4412E-03_JPRB,4.6650E-03_JPRB,2.0907E-02_JPRB,3.0329E-02_JPRB,3.7178E-02_JPRB,3.8732E-02_JPRB/)
+KBO( :, 4,13, 2) = (/&
+&4.7483E-03_JPRB,4.9652E-03_JPRB,2.1592E-02_JPRB,3.1266E-02_JPRB,3.8222E-02_JPRB,4.0514E-02_JPRB/)
+KBO( :, 5,13, 2) = (/&
+&4.9829E-03_JPRB,5.1938E-03_JPRB,2.2168E-02_JPRB,3.1969E-02_JPRB,3.8794E-02_JPRB,4.1741E-02_JPRB/)
+KBO( :, 1,14, 2) = (/&
+&3.0865E-03_JPRB,3.3200E-03_JPRB,1.6531E-02_JPRB,2.3817E-02_JPRB,2.8897E-02_JPRB,2.8142E-02_JPRB/)
+KBO( :, 2,14, 2) = (/&
+&3.4362E-03_JPRB,3.6603E-03_JPRB,1.7252E-02_JPRB,2.4966E-02_JPRB,3.0545E-02_JPRB,3.0211E-02_JPRB/)
+KBO( :, 3,14, 2) = (/&
+&3.7431E-03_JPRB,3.9586E-03_JPRB,1.7899E-02_JPRB,2.5891E-02_JPRB,3.1684E-02_JPRB,3.1824E-02_JPRB/)
+KBO( :, 4,14, 2) = (/&
+&3.9872E-03_JPRB,4.1955E-03_JPRB,1.8459E-02_JPRB,2.6594E-02_JPRB,3.2362E-02_JPRB,3.2907E-02_JPRB/)
+KBO( :, 5,14, 2) = (/&
+&4.1703E-03_JPRB,4.3748E-03_JPRB,1.8911E-02_JPRB,2.7074E-02_JPRB,3.2683E-02_JPRB,3.3591E-02_JPRB/)
+KBO( :, 1,15, 2) = (/&
+&2.6115E-03_JPRB,2.8311E-03_JPRB,1.4085E-02_JPRB,2.0304E-02_JPRB,2.4710E-02_JPRB,2.3514E-02_JPRB/)
+KBO( :, 2,15, 2) = (/&
+&2.9041E-03_JPRB,3.1144E-03_JPRB,1.4680E-02_JPRB,2.1210E-02_JPRB,2.5931E-02_JPRB,2.4999E-02_JPRB/)
+KBO( :, 3,15, 2) = (/&
+&3.1530E-03_JPRB,3.3540E-03_JPRB,1.5212E-02_JPRB,2.1904E-02_JPRB,2.6711E-02_JPRB,2.6064E-02_JPRB/)
+KBO( :, 4,15, 2) = (/&
+&3.3446E-03_JPRB,3.5395E-03_JPRB,1.5641E-02_JPRB,2.2409E-02_JPRB,2.7141E-02_JPRB,2.6755E-02_JPRB/)
+KBO( :, 5,15, 2) = (/&
+&3.4849E-03_JPRB,3.6794E-03_JPRB,1.5995E-02_JPRB,2.2750E-02_JPRB,2.7330E-02_JPRB,2.7152E-02_JPRB/)
+KBO( :, 1,16, 2) = (/&
+&2.2129E-03_JPRB,2.4168E-03_JPRB,1.1928E-02_JPRB,1.7179E-02_JPRB,2.0938E-02_JPRB,1.9617E-02_JPRB/)
+KBO( :, 2,16, 2) = (/&
+&2.4536E-03_JPRB,2.6491E-03_JPRB,1.2409E-02_JPRB,1.7866E-02_JPRB,2.1799E-02_JPRB,2.0682E-02_JPRB/)
+KBO( :, 3,16, 2) = (/&
+&2.6514E-03_JPRB,2.8384E-03_JPRB,1.2822E-02_JPRB,1.8380E-02_JPRB,2.2338E-02_JPRB,2.1426E-02_JPRB/)
+KBO( :, 4,16, 2) = (/&
+&2.7951E-03_JPRB,2.9778E-03_JPRB,1.3157E-02_JPRB,1.8769E-02_JPRB,2.2630E-02_JPRB,2.1902E-02_JPRB/)
+KBO( :, 5,16, 2) = (/&
+&2.9036E-03_JPRB,3.0860E-03_JPRB,1.3435E-02_JPRB,1.9027E-02_JPRB,2.2746E-02_JPRB,2.2146E-02_JPRB/)
+KBO( :, 1,17, 2) = (/&
+&1.8735E-03_JPRB,2.0627E-03_JPRB,1.0036E-02_JPRB,1.4424E-02_JPRB,1.7577E-02_JPRB,1.6265E-02_JPRB/)
+KBO( :, 2,17, 2) = (/&
+&2.0662E-03_JPRB,2.2488E-03_JPRB,1.0418E-02_JPRB,1.4944E-02_JPRB,1.8199E-02_JPRB,1.7052E-02_JPRB/)
+KBO( :, 3,17, 2) = (/&
+&2.2194E-03_JPRB,2.3925E-03_JPRB,1.0739E-02_JPRB,1.5350E-02_JPRB,1.8589E-02_JPRB,1.7595E-02_JPRB/)
+KBO( :, 4,17, 2) = (/&
+&2.3291E-03_JPRB,2.4990E-03_JPRB,1.1009E-02_JPRB,1.5656E-02_JPRB,1.8796E-02_JPRB,1.7924E-02_JPRB/)
+KBO( :, 5,17, 2) = (/&
+&2.4168E-03_JPRB,2.5869E-03_JPRB,1.1220E-02_JPRB,1.5867E-02_JPRB,1.8872E-02_JPRB,1.8072E-02_JPRB/)
+KBO( :, 1,18, 2) = (/&
+&1.5803E-03_JPRB,1.7549E-03_JPRB,8.3982E-03_JPRB,1.2038E-02_JPRB,1.4657E-02_JPRB,1.3443E-02_JPRB/)
+KBO( :, 2,18, 2) = (/&
+&1.7325E-03_JPRB,1.9010E-03_JPRB,8.7001E-03_JPRB,1.2445E-02_JPRB,1.5124E-02_JPRB,1.4037E-02_JPRB/)
+KBO( :, 3,18, 2) = (/&
+&1.8506E-03_JPRB,2.0095E-03_JPRB,8.9599E-03_JPRB,1.2773E-02_JPRB,1.5415E-02_JPRB,1.4442E-02_JPRB/)
+KBO( :, 4,18, 2) = (/&
+&1.9372E-03_JPRB,2.0945E-03_JPRB,9.1682E-03_JPRB,1.3023E-02_JPRB,1.5571E-02_JPRB,1.4673E-02_JPRB/)
+KBO( :, 5,18, 2) = (/&
+&2.0086E-03_JPRB,2.1668E-03_JPRB,9.3360E-03_JPRB,1.3189E-02_JPRB,1.5627E-02_JPRB,1.4767E-02_JPRB/)
+KBO( :, 1,19, 2) = (/&
+&1.3263E-03_JPRB,1.4842E-03_JPRB,6.9965E-03_JPRB,1.0005E-02_JPRB,1.2171E-02_JPRB,1.1073E-02_JPRB/)
+KBO( :, 2,19, 2) = (/&
+&1.4463E-03_JPRB,1.5975E-03_JPRB,7.2420E-03_JPRB,1.0335E-02_JPRB,1.2532E-02_JPRB,1.1527E-02_JPRB/)
+KBO( :, 3,19, 2) = (/&
+&1.5391E-03_JPRB,1.6819E-03_JPRB,7.4473E-03_JPRB,1.0605E-02_JPRB,1.2756E-02_JPRB,1.1825E-02_JPRB/)
+KBO( :, 4,19, 2) = (/&
+&1.6087E-03_JPRB,1.7515E-03_JPRB,7.6132E-03_JPRB,1.0806E-02_JPRB,1.2879E-02_JPRB,1.1987E-02_JPRB/)
+KBO( :, 5,19, 2) = (/&
+&1.6667E-03_JPRB,1.8113E-03_JPRB,7.7489E-03_JPRB,1.0927E-02_JPRB,1.2923E-02_JPRB,1.2042E-02_JPRB/)
+KBO( :, 1,20, 2) = (/&
+&1.1106E-03_JPRB,1.2504E-03_JPRB,5.8179E-03_JPRB,8.3016E-03_JPRB,1.0088E-02_JPRB,9.1254E-03_JPRB/)
+KBO( :, 2,20, 2) = (/&
+&1.2060E-03_JPRB,1.3385E-03_JPRB,6.0163E-03_JPRB,8.5726E-03_JPRB,1.0368E-02_JPRB,9.4723E-03_JPRB/)
+KBO( :, 3,20, 2) = (/&
+&1.2789E-03_JPRB,1.4052E-03_JPRB,6.1769E-03_JPRB,8.7907E-03_JPRB,1.0541E-02_JPRB,9.6942E-03_JPRB/)
+KBO( :, 4,20, 2) = (/&
+&1.3351E-03_JPRB,1.4622E-03_JPRB,6.3118E-03_JPRB,8.9433E-03_JPRB,1.0640E-02_JPRB,9.8077E-03_JPRB/)
+KBO( :, 5,20, 2) = (/&
+&1.3825E-03_JPRB,1.5123E-03_JPRB,6.4218E-03_JPRB,9.0350E-03_JPRB,1.0672E-02_JPRB,9.8366E-03_JPRB/)
+KBO( :, 1,21, 2) = (/&
+&9.2789E-04_JPRB,1.0499E-03_JPRB,4.8309E-03_JPRB,6.8776E-03_JPRB,8.3442E-03_JPRB,7.5157E-03_JPRB/)
+KBO( :, 2,21, 2) = (/&
+&1.0039E-03_JPRB,1.1183E-03_JPRB,4.9870E-03_JPRB,7.1016E-03_JPRB,8.5650E-03_JPRB,7.7816E-03_JPRB/)
+KBO( :, 3,21, 2) = (/&
+&1.0617E-03_JPRB,1.1723E-03_JPRB,5.1161E-03_JPRB,7.2723E-03_JPRB,8.7032E-03_JPRB,7.9463E-03_JPRB/)
+KBO( :, 4,21, 2) = (/&
+&1.1070E-03_JPRB,1.2185E-03_JPRB,5.2236E-03_JPRB,7.3886E-03_JPRB,8.7799E-03_JPRB,8.0257E-03_JPRB/)
+KBO( :, 5,21, 2) = (/&
+&1.1455E-03_JPRB,1.2607E-03_JPRB,5.3143E-03_JPRB,7.4590E-03_JPRB,8.7976E-03_JPRB,8.0381E-03_JPRB/)
+KBO( :, 1,22, 2) = (/&
+&7.7838E-04_JPRB,8.8274E-04_JPRB,4.0143E-03_JPRB,5.7070E-03_JPRB,6.9079E-03_JPRB,6.2019E-03_JPRB/)
+KBO( :, 2,22, 2) = (/&
+&8.3803E-04_JPRB,9.3549E-04_JPRB,4.1360E-03_JPRB,5.8838E-03_JPRB,7.0782E-03_JPRB,6.4006E-03_JPRB/)
+KBO( :, 3,22, 2) = (/&
+&8.8314E-04_JPRB,9.7914E-04_JPRB,4.2374E-03_JPRB,6.0145E-03_JPRB,7.1845E-03_JPRB,6.5168E-03_JPRB/)
+KBO( :, 4,22, 2) = (/&
+&9.1968E-04_JPRB,1.0165E-03_JPRB,4.3241E-03_JPRB,6.1026E-03_JPRB,7.2358E-03_JPRB,6.5682E-03_JPRB/)
+KBO( :, 5,22, 2) = (/&
+&9.5047E-04_JPRB,1.0512E-03_JPRB,4.4012E-03_JPRB,6.1547E-03_JPRB,7.2428E-03_JPRB,6.5673E-03_JPRB/)
+KBO( :, 1,23, 2) = (/&
+&6.5215E-04_JPRB,7.4036E-04_JPRB,3.3305E-03_JPRB,4.7319E-03_JPRB,5.7142E-03_JPRB,5.1137E-03_JPRB/)
+KBO( :, 2,23, 2) = (/&
+&6.9894E-04_JPRB,7.8162E-04_JPRB,3.4264E-03_JPRB,4.8693E-03_JPRB,5.8456E-03_JPRB,5.2602E-03_JPRB/)
+KBO( :, 3,23, 2) = (/&
+&7.3388E-04_JPRB,8.1618E-04_JPRB,3.5078E-03_JPRB,4.9682E-03_JPRB,5.9222E-03_JPRB,5.3417E-03_JPRB/)
+KBO( :, 4,23, 2) = (/&
+&7.6333E-04_JPRB,8.4695E-04_JPRB,3.5799E-03_JPRB,5.0349E-03_JPRB,5.9564E-03_JPRB,5.3733E-03_JPRB/)
+KBO( :, 5,23, 2) = (/&
+&7.8904E-04_JPRB,8.7612E-04_JPRB,3.6454E-03_JPRB,5.0755E-03_JPRB,5.9574E-03_JPRB,5.3648E-03_JPRB/)
+KBO( :, 1,24, 2) = (/&
+&5.4610E-04_JPRB,6.1977E-04_JPRB,2.7598E-03_JPRB,3.9203E-03_JPRB,4.7245E-03_JPRB,4.2113E-03_JPRB/)
+KBO( :, 2,24, 2) = (/&
+&5.8222E-04_JPRB,6.5205E-04_JPRB,2.8366E-03_JPRB,4.0258E-03_JPRB,4.8222E-03_JPRB,4.3180E-03_JPRB/)
+KBO( :, 3,24, 2) = (/&
+&6.0969E-04_JPRB,6.7974E-04_JPRB,2.9034E-03_JPRB,4.1010E-03_JPRB,4.8778E-03_JPRB,4.3739E-03_JPRB/)
+KBO( :, 4,24, 2) = (/&
+&6.3347E-04_JPRB,7.0509E-04_JPRB,2.9644E-03_JPRB,4.1523E-03_JPRB,4.8995E-03_JPRB,4.3910E-03_JPRB/)
+KBO( :, 5,24, 2) = (/&
+&6.5545E-04_JPRB,7.3021E-04_JPRB,3.0198E-03_JPRB,4.1861E-03_JPRB,4.8976E-03_JPRB,4.3789E-03_JPRB/)
+KBO( :, 1,25, 2) = (/&
+&4.5690E-04_JPRB,5.1793E-04_JPRB,2.2852E-03_JPRB,3.2458E-03_JPRB,3.9043E-03_JPRB,3.4680E-03_JPRB/)
+KBO( :, 2,25, 2) = (/&
+&4.8458E-04_JPRB,5.4334E-04_JPRB,2.3475E-03_JPRB,3.3264E-03_JPRB,3.9752E-03_JPRB,3.5434E-03_JPRB/)
+KBO( :, 3,25, 2) = (/&
+&5.0654E-04_JPRB,5.6573E-04_JPRB,2.4036E-03_JPRB,3.3847E-03_JPRB,4.0147E-03_JPRB,3.5813E-03_JPRB/)
+KBO( :, 4,25, 2) = (/&
+&5.2568E-04_JPRB,5.8676E-04_JPRB,2.4547E-03_JPRB,3.4258E-03_JPRB,4.0284E-03_JPRB,3.5893E-03_JPRB/)
+KBO( :, 5,25, 2) = (/&
+&5.4469E-04_JPRB,6.0841E-04_JPRB,2.5000E-03_JPRB,3.4530E-03_JPRB,4.0252E-03_JPRB,3.5735E-03_JPRB/)
+KBO( :, 1,26, 2) = (/&
+&3.8205E-04_JPRB,4.3242E-04_JPRB,1.8925E-03_JPRB,2.6857E-03_JPRB,3.2237E-03_JPRB,2.8541E-03_JPRB/)
+KBO( :, 2,26, 2) = (/&
+&4.0335E-04_JPRB,4.5263E-04_JPRB,1.9438E-03_JPRB,2.7484E-03_JPRB,3.2757E-03_JPRB,2.9087E-03_JPRB/)
+KBO( :, 3,26, 2) = (/&
+&4.2092E-04_JPRB,4.7075E-04_JPRB,1.9904E-03_JPRB,2.7942E-03_JPRB,3.3026E-03_JPRB,2.9324E-03_JPRB/)
+KBO( :, 4,26, 2) = (/&
+&4.3655E-04_JPRB,4.8821E-04_JPRB,2.0326E-03_JPRB,2.8271E-03_JPRB,3.3119E-03_JPRB,2.9344E-03_JPRB/)
+KBO( :, 5,26, 2) = (/&
+&4.5316E-04_JPRB,5.0712E-04_JPRB,2.0685E-03_JPRB,2.8499E-03_JPRB,3.3084E-03_JPRB,2.9162E-03_JPRB/)
+KBO( :, 1,27, 2) = (/&
+&3.1896E-04_JPRB,3.6052E-04_JPRB,1.5673E-03_JPRB,2.2211E-03_JPRB,2.6601E-03_JPRB,2.3492E-03_JPRB/)
+KBO( :, 2,27, 2) = (/&
+&3.3544E-04_JPRB,3.7654E-04_JPRB,1.6095E-03_JPRB,2.2697E-03_JPRB,2.6969E-03_JPRB,2.3868E-03_JPRB/)
+KBO( :, 3,27, 2) = (/&
+&3.4965E-04_JPRB,3.9143E-04_JPRB,1.6478E-03_JPRB,2.3068E-03_JPRB,2.7163E-03_JPRB,2.4023E-03_JPRB/)
+KBO( :, 4,27, 2) = (/&
+&3.6268E-04_JPRB,4.0612E-04_JPRB,1.6818E-03_JPRB,2.3333E-03_JPRB,2.7227E-03_JPRB,2.3999E-03_JPRB/)
+KBO( :, 5,27, 2) = (/&
+&3.7708E-04_JPRB,4.2263E-04_JPRB,1.7104E-03_JPRB,2.3514E-03_JPRB,2.7191E-03_JPRB,2.3811E-03_JPRB/)
+KBO( :, 1,28, 2) = (/&
+&2.6585E-04_JPRB,3.0014E-04_JPRB,1.2979E-03_JPRB,1.8363E-03_JPRB,2.1935E-03_JPRB,1.9332E-03_JPRB/)
+KBO( :, 2,28, 2) = (/&
+&2.7887E-04_JPRB,3.1300E-04_JPRB,1.3325E-03_JPRB,1.8753E-03_JPRB,2.2207E-03_JPRB,1.9593E-03_JPRB/)
+KBO( :, 3,28, 2) = (/&
+&2.9041E-04_JPRB,3.2530E-04_JPRB,1.3637E-03_JPRB,1.9047E-03_JPRB,2.2348E-03_JPRB,1.9687E-03_JPRB/)
+KBO( :, 4,28, 2) = (/&
+&3.0139E-04_JPRB,3.3786E-04_JPRB,1.3910E-03_JPRB,1.9260E-03_JPRB,2.2395E-03_JPRB,1.9637E-03_JPRB/)
+KBO( :, 5,28, 2) = (/&
+&3.1381E-04_JPRB,3.5218E-04_JPRB,1.4147E-03_JPRB,1.9395E-03_JPRB,2.2363E-03_JPRB,1.9458E-03_JPRB/)
+KBO( :, 1,29, 2) = (/&
+&2.2143E-04_JPRB,2.4968E-04_JPRB,1.0748E-03_JPRB,1.5182E-03_JPRB,1.8078E-03_JPRB,1.5923E-03_JPRB/)
+KBO( :, 2,29, 2) = (/&
+&2.3186E-04_JPRB,2.6016E-04_JPRB,1.1033E-03_JPRB,1.5493E-03_JPRB,1.8281E-03_JPRB,1.6104E-03_JPRB/)
+KBO( :, 3,29, 2) = (/&
+&2.4121E-04_JPRB,2.7036E-04_JPRB,1.1285E-03_JPRB,1.5726E-03_JPRB,1.8388E-03_JPRB,1.6155E-03_JPRB/)
+KBO( :, 4,29, 2) = (/&
+&2.5062E-04_JPRB,2.8128E-04_JPRB,1.1506E-03_JPRB,1.5888E-03_JPRB,1.8420E-03_JPRB,1.6082E-03_JPRB/)
+KBO( :, 5,29, 2) = (/&
+&2.6130E-04_JPRB,2.9358E-04_JPRB,1.1704E-03_JPRB,1.5992E-03_JPRB,1.8391E-03_JPRB,1.5924E-03_JPRB/)
+KBO( :, 1,30, 2) = (/&
+&1.8434E-04_JPRB,2.0754E-04_JPRB,8.9026E-04_JPRB,1.2554E-03_JPRB,1.4899E-03_JPRB,1.3119E-03_JPRB/)
+KBO( :, 2,30, 2) = (/&
+&1.9271E-04_JPRB,2.1620E-04_JPRB,9.1339E-04_JPRB,1.2800E-03_JPRB,1.5055E-03_JPRB,1.3245E-03_JPRB/)
+KBO( :, 3,30, 2) = (/&
+&2.0034E-04_JPRB,2.2477E-04_JPRB,9.3373E-04_JPRB,1.2981E-03_JPRB,1.5133E-03_JPRB,1.3262E-03_JPRB/)
+KBO( :, 4,30, 2) = (/&
+&2.0838E-04_JPRB,2.3416E-04_JPRB,9.5188E-04_JPRB,1.3104E-03_JPRB,1.5159E-03_JPRB,1.3190E-03_JPRB/)
+KBO( :, 5,30, 2) = (/&
+&2.1766E-04_JPRB,2.4475E-04_JPRB,9.6842E-04_JPRB,1.3190E-03_JPRB,1.5130E-03_JPRB,1.3047E-03_JPRB/)
+KBO( :, 1,31, 2) = (/&
+&1.5342E-04_JPRB,1.7254E-04_JPRB,7.3736E-04_JPRB,1.0379E-03_JPRB,1.2280E-03_JPRB,1.0823E-03_JPRB/)
+KBO( :, 2,31, 2) = (/&
+&1.6018E-04_JPRB,1.7972E-04_JPRB,7.5593E-04_JPRB,1.0574E-03_JPRB,1.2397E-03_JPRB,1.0908E-03_JPRB/)
+KBO( :, 3,31, 2) = (/&
+&1.6648E-04_JPRB,1.8697E-04_JPRB,7.7274E-04_JPRB,1.0714E-03_JPRB,1.2460E-03_JPRB,1.0906E-03_JPRB/)
+KBO( :, 4,31, 2) = (/&
+&1.7342E-04_JPRB,1.9506E-04_JPRB,7.8773E-04_JPRB,1.0812E-03_JPRB,1.2476E-03_JPRB,1.0837E-03_JPRB/)
+KBO( :, 5,31, 2) = (/&
+&1.8149E-04_JPRB,2.0420E-04_JPRB,8.0154E-04_JPRB,1.0881E-03_JPRB,1.2445E-03_JPRB,1.0711E-03_JPRB/)
+KBO( :, 1,32, 2) = (/&
+&1.2767E-04_JPRB,1.4347E-04_JPRB,6.1066E-04_JPRB,8.5823E-04_JPRB,1.0121E-03_JPRB,8.9310E-04_JPRB/)
+KBO( :, 2,32, 2) = (/&
+&1.3312E-04_JPRB,1.4941E-04_JPRB,6.2581E-04_JPRB,8.7345E-04_JPRB,1.0214E-03_JPRB,8.9860E-04_JPRB/)
+KBO( :, 3,32, 2) = (/&
+&1.3844E-04_JPRB,1.5562E-04_JPRB,6.3952E-04_JPRB,8.8432E-04_JPRB,1.0259E-03_JPRB,8.9742E-04_JPRB/)
+KBO( :, 4,32, 2) = (/&
+&1.4447E-04_JPRB,1.6260E-04_JPRB,6.5205E-04_JPRB,8.9226E-04_JPRB,1.0266E-03_JPRB,8.9098E-04_JPRB/)
+KBO( :, 5,32, 2) = (/&
+&1.5144E-04_JPRB,1.7054E-04_JPRB,6.6359E-04_JPRB,8.9794E-04_JPRB,1.0240E-03_JPRB,8.8056E-04_JPRB/)
+KBO( :, 1,33, 2) = (/&
+&1.0619E-04_JPRB,1.1931E-04_JPRB,5.0573E-04_JPRB,7.0964E-04_JPRB,8.3455E-04_JPRB,7.3747E-04_JPRB/)
+KBO( :, 2,33, 2) = (/&
+&1.1061E-04_JPRB,1.2424E-04_JPRB,5.1808E-04_JPRB,7.2136E-04_JPRB,8.4148E-04_JPRB,7.4075E-04_JPRB/)
+KBO( :, 3,33, 2) = (/&
+&1.1517E-04_JPRB,1.2959E-04_JPRB,5.2944E-04_JPRB,7.3007E-04_JPRB,8.4469E-04_JPRB,7.3913E-04_JPRB/)
+KBO( :, 4,33, 2) = (/&
+&1.2041E-04_JPRB,1.3563E-04_JPRB,5.3985E-04_JPRB,7.3647E-04_JPRB,8.4479E-04_JPRB,7.3349E-04_JPRB/)
+KBO( :, 5,33, 2) = (/&
+&1.2648E-04_JPRB,1.4256E-04_JPRB,5.4947E-04_JPRB,7.4123E-04_JPRB,8.4271E-04_JPRB,7.2498E-04_JPRB/)
+KBO( :, 1,34, 2) = (/&
+&8.8157E-05_JPRB,9.9062E-05_JPRB,4.1842E-04_JPRB,5.8633E-04_JPRB,6.8789E-04_JPRB,6.0807E-04_JPRB/)
+KBO( :, 2,34, 2) = (/&
+&9.1811E-05_JPRB,1.0321E-04_JPRB,4.2863E-04_JPRB,5.9556E-04_JPRB,6.9312E-04_JPRB,6.1023E-04_JPRB/)
+KBO( :, 3,34, 2) = (/&
+&9.5729E-05_JPRB,1.0782E-04_JPRB,4.3808E-04_JPRB,6.0259E-04_JPRB,6.9556E-04_JPRB,6.0848E-04_JPRB/)
+KBO( :, 4,34, 2) = (/&
+&1.0025E-04_JPRB,1.1302E-04_JPRB,4.4678E-04_JPRB,6.0791E-04_JPRB,6.9562E-04_JPRB,6.0393E-04_JPRB/)
+KBO( :, 5,34, 2) = (/&
+&1.0555E-04_JPRB,1.1907E-04_JPRB,4.5478E-04_JPRB,6.1180E-04_JPRB,6.9395E-04_JPRB,5.9689E-04_JPRB/)
+KBO( :, 1,35, 2) = (/&
+&7.2889E-05_JPRB,8.1925E-05_JPRB,3.4533E-04_JPRB,4.8352E-04_JPRB,5.6643E-04_JPRB,5.0117E-04_JPRB/)
+KBO( :, 2,35, 2) = (/&
+&7.5938E-05_JPRB,8.5438E-05_JPRB,3.5394E-04_JPRB,4.9121E-04_JPRB,5.7081E-04_JPRB,5.0282E-04_JPRB/)
+KBO( :, 3,35, 2) = (/&
+&7.9261E-05_JPRB,8.9337E-05_JPRB,3.6188E-04_JPRB,4.9693E-04_JPRB,5.7284E-04_JPRB,5.0143E-04_JPRB/)
+KBO( :, 4,35, 2) = (/&
+&8.3119E-05_JPRB,9.3779E-05_JPRB,3.6918E-04_JPRB,5.0156E-04_JPRB,5.7314E-04_JPRB,4.9808E-04_JPRB/)
+KBO( :, 5,35, 2) = (/&
+&8.7666E-05_JPRB,9.8982E-05_JPRB,3.7599E-04_JPRB,5.0487E-04_JPRB,5.7194E-04_JPRB,4.9242E-04_JPRB/)
+KBO( :, 1,36, 2) = (/&
+&5.9995E-05_JPRB,6.7468E-05_JPRB,2.8433E-04_JPRB,3.9801E-04_JPRB,4.6610E-04_JPRB,4.1281E-04_JPRB/)
+KBO( :, 2,36, 2) = (/&
+&6.2532E-05_JPRB,7.0399E-05_JPRB,2.9160E-04_JPRB,4.0447E-04_JPRB,4.6992E-04_JPRB,4.1443E-04_JPRB/)
+KBO( :, 3,36, 2) = (/&
+&6.5308E-05_JPRB,7.3661E-05_JPRB,2.9838E-04_JPRB,4.0950E-04_JPRB,4.7187E-04_JPRB,4.1372E-04_JPRB/)
+KBO( :, 4,36, 2) = (/&
+&6.8562E-05_JPRB,7.7412E-05_JPRB,3.0448E-04_JPRB,4.1355E-04_JPRB,4.7234E-04_JPRB,4.1122E-04_JPRB/)
+KBO( :, 5,36, 2) = (/&
+&7.2367E-05_JPRB,8.1795E-05_JPRB,3.1033E-04_JPRB,4.1642E-04_JPRB,4.7161E-04_JPRB,4.0689E-04_JPRB/)
+KBO( :, 1,37, 2) = (/&
+&4.9059E-05_JPRB,5.5199E-05_JPRB,2.3317E-04_JPRB,3.2671E-04_JPRB,3.8295E-04_JPRB,3.3938E-04_JPRB/)
+KBO( :, 2,37, 2) = (/&
+&5.1165E-05_JPRB,5.7620E-05_JPRB,2.3941E-04_JPRB,3.3239E-04_JPRB,3.8652E-04_JPRB,3.4120E-04_JPRB/)
+KBO( :, 3,37, 2) = (/&
+&5.3443E-05_JPRB,6.0304E-05_JPRB,2.4519E-04_JPRB,3.3687E-04_JPRB,3.8853E-04_JPRB,3.4110E-04_JPRB/)
+KBO( :, 4,37, 2) = (/&
+&5.6114E-05_JPRB,6.3395E-05_JPRB,2.5044E-04_JPRB,3.4049E-04_JPRB,3.8930E-04_JPRB,3.3955E-04_JPRB/)
+KBO( :, 5,37, 2) = (/&
+&5.9214E-05_JPRB,6.6999E-05_JPRB,2.5546E-04_JPRB,3.4318E-04_JPRB,3.8905E-04_JPRB,3.3631E-04_JPRB/)
+KBO( :, 1,38, 2) = (/&
+&4.0104E-05_JPRB,4.5145E-05_JPRB,1.9118E-04_JPRB,2.6808E-04_JPRB,3.1457E-04_JPRB,2.7912E-04_JPRB/)
+KBO( :, 2,38, 2) = (/&
+&4.1848E-05_JPRB,4.7145E-05_JPRB,1.9649E-04_JPRB,2.7305E-04_JPRB,3.1789E-04_JPRB,2.8112E-04_JPRB/)
+KBO( :, 3,38, 2) = (/&
+&4.3721E-05_JPRB,4.9348E-05_JPRB,2.0143E-04_JPRB,2.7709E-04_JPRB,3.1990E-04_JPRB,2.8154E-04_JPRB/)
+KBO( :, 4,38, 2) = (/&
+&4.5908E-05_JPRB,5.1893E-05_JPRB,2.0595E-04_JPRB,2.8033E-04_JPRB,3.2086E-04_JPRB,2.8062E-04_JPRB/)
+KBO( :, 5,38, 2) = (/&
+&4.8428E-05_JPRB,5.4848E-05_JPRB,2.1030E-04_JPRB,2.8287E-04_JPRB,3.2098E-04_JPRB,2.7832E-04_JPRB/)
+KBO( :, 1,39, 2) = (/&
+&3.2779E-05_JPRB,3.6913E-05_JPRB,1.5676E-04_JPRB,2.1996E-04_JPRB,2.5835E-04_JPRB,2.2986E-04_JPRB/)
+KBO( :, 2,39, 2) = (/&
+&3.4226E-05_JPRB,3.8568E-05_JPRB,1.6127E-04_JPRB,2.2431E-04_JPRB,2.6140E-04_JPRB,2.3193E-04_JPRB/)
+KBO( :, 3,39, 2) = (/&
+&3.5764E-05_JPRB,4.0382E-05_JPRB,1.6550E-04_JPRB,2.2790E-04_JPRB,2.6334E-04_JPRB,2.3271E-04_JPRB/)
+KBO( :, 4,39, 2) = (/&
+&3.7558E-05_JPRB,4.2480E-05_JPRB,1.6939E-04_JPRB,2.3082E-04_JPRB,2.6439E-04_JPRB,2.3230E-04_JPRB/)
+KBO( :, 5,39, 2) = (/&
+&3.9596E-05_JPRB,4.4889E-05_JPRB,1.7315E-04_JPRB,2.3313E-04_JPRB,2.6477E-04_JPRB,2.3072E-04_JPRB/)
+KBO( :, 1,40, 2) = (/&
+&2.6669E-05_JPRB,3.0049E-05_JPRB,1.2812E-04_JPRB,1.8003E-04_JPRB,2.1187E-04_JPRB,1.8838E-04_JPRB/)
+KBO( :, 2,40, 2) = (/&
+&2.7871E-05_JPRB,3.1411E-05_JPRB,1.3197E-04_JPRB,1.8389E-04_JPRB,2.1472E-04_JPRB,1.9052E-04_JPRB/)
+KBO( :, 3,40, 2) = (/&
+&2.9115E-05_JPRB,3.2883E-05_JPRB,1.3564E-04_JPRB,1.8717E-04_JPRB,2.1664E-04_JPRB,1.9149E-04_JPRB/)
+KBO( :, 4,40, 2) = (/&
+&3.0569E-05_JPRB,3.4584E-05_JPRB,1.3899E-04_JPRB,1.8980E-04_JPRB,2.1779E-04_JPRB,1.9147E-04_JPRB/)
+KBO( :, 5,40, 2) = (/&
+&3.2192E-05_JPRB,3.6525E-05_JPRB,1.4223E-04_JPRB,1.9192E-04_JPRB,2.1835E-04_JPRB,1.9045E-04_JPRB/)
+KBO( :, 1,41, 2) = (/&
+&2.1671E-05_JPRB,2.4436E-05_JPRB,1.0464E-04_JPRB,1.4721E-04_JPRB,1.7354E-04_JPRB,1.5422E-04_JPRB/)
+KBO( :, 2,41, 2) = (/&
+&2.2673E-05_JPRB,2.5564E-05_JPRB,1.0794E-04_JPRB,1.5067E-04_JPRB,1.7624E-04_JPRB,1.5635E-04_JPRB/)
+KBO( :, 3,41, 2) = (/&
+&2.3692E-05_JPRB,2.6758E-05_JPRB,1.1109E-04_JPRB,1.5359E-04_JPRB,1.7809E-04_JPRB,1.5746E-04_JPRB/)
+KBO( :, 4,41, 2) = (/&
+&2.4859E-05_JPRB,2.8133E-05_JPRB,1.1398E-04_JPRB,1.5600E-04_JPRB,1.7932E-04_JPRB,1.5772E-04_JPRB/)
+KBO( :, 5,41, 2) = (/&
+&2.6157E-05_JPRB,2.9694E-05_JPRB,1.1679E-04_JPRB,1.5797E-04_JPRB,1.8006E-04_JPRB,1.5714E-04_JPRB/)
+KBO( :, 1,42, 2) = (/&
+&1.7599E-05_JPRB,1.9868E-05_JPRB,8.5428E-05_JPRB,1.2033E-04_JPRB,1.4210E-04_JPRB,1.2624E-04_JPRB/)
+KBO( :, 2,42, 2) = (/&
+&1.8437E-05_JPRB,2.0798E-05_JPRB,8.8247E-05_JPRB,1.2340E-04_JPRB,1.4460E-04_JPRB,1.2832E-04_JPRB/)
+KBO( :, 3,42, 2) = (/&
+&1.9276E-05_JPRB,2.1771E-05_JPRB,9.0940E-05_JPRB,1.2600E-04_JPRB,1.4636E-04_JPRB,1.2953E-04_JPRB/)
+KBO( :, 4,42, 2) = (/&
+&2.0214E-05_JPRB,2.2883E-05_JPRB,9.3444E-05_JPRB,1.2819E-04_JPRB,1.4761E-04_JPRB,1.2995E-04_JPRB/)
+KBO( :, 5,42, 2) = (/&
+&2.1256E-05_JPRB,2.4138E-05_JPRB,9.5879E-05_JPRB,1.2999E-04_JPRB,1.4842E-04_JPRB,1.2971E-04_JPRB/)
+KBO( :, 1,43, 2) = (/&
+&1.4241E-05_JPRB,1.6107E-05_JPRB,6.9575E-05_JPRB,9.8122E-05_JPRB,1.1610E-04_JPRB,1.0313E-04_JPRB/)
+KBO( :, 2,43, 2) = (/&
+&1.4953E-05_JPRB,1.6876E-05_JPRB,7.1989E-05_JPRB,1.0088E-04_JPRB,1.1847E-04_JPRB,1.0516E-04_JPRB/)
+KBO( :, 3,43, 2) = (/&
+&1.5643E-05_JPRB,1.7668E-05_JPRB,7.4322E-05_JPRB,1.0321E-04_JPRB,1.2016E-04_JPRB,1.0643E-04_JPRB/)
+KBO( :, 4,43, 2) = (/&
+&1.6392E-05_JPRB,1.8559E-05_JPRB,7.6469E-05_JPRB,1.0519E-04_JPRB,1.2140E-04_JPRB,1.0702E-04_JPRB/)
+KBO( :, 5,43, 2) = (/&
+&1.7225E-05_JPRB,1.9561E-05_JPRB,7.8569E-05_JPRB,1.0686E-04_JPRB,1.2228E-04_JPRB,1.0704E-04_JPRB/)
+KBO( :, 1,44, 2) = (/&
+&1.1498E-05_JPRB,1.3036E-05_JPRB,5.6576E-05_JPRB,7.9895E-05_JPRB,9.4733E-05_JPRB,8.4131E-05_JPRB/)
+KBO( :, 2,44, 2) = (/&
+&1.2106E-05_JPRB,1.3670E-05_JPRB,5.8637E-05_JPRB,8.2333E-05_JPRB,9.6917E-05_JPRB,8.6094E-05_JPRB/)
+KBO( :, 3,44, 2) = (/&
+&1.2676E-05_JPRB,1.4317E-05_JPRB,6.0634E-05_JPRB,8.4429E-05_JPRB,9.8546E-05_JPRB,8.7409E-05_JPRB/)
+KBO( :, 4,44, 2) = (/&
+&1.3277E-05_JPRB,1.5031E-05_JPRB,6.2499E-05_JPRB,8.6240E-05_JPRB,9.9772E-05_JPRB,8.8130E-05_JPRB/)
+KBO( :, 5,44, 2) = (/&
+&1.3943E-05_JPRB,1.5832E-05_JPRB,6.4310E-05_JPRB,8.7770E-05_JPRB,1.0066E-04_JPRB,8.8344E-05_JPRB/)
+KBO( :, 1,45, 2) = (/&
+&9.2693E-06_JPRB,1.0543E-05_JPRB,4.5963E-05_JPRB,6.4978E-05_JPRB,7.7194E-05_JPRB,6.8589E-05_JPRB/)
+KBO( :, 2,45, 2) = (/&
+&9.7957E-06_JPRB,1.1074E-05_JPRB,4.7739E-05_JPRB,6.7165E-05_JPRB,7.9241E-05_JPRB,7.0483E-05_JPRB/)
+KBO( :, 3,45, 2) = (/&
+&1.0267E-05_JPRB,1.1600E-05_JPRB,4.9445E-05_JPRB,6.9027E-05_JPRB,8.0769E-05_JPRB,7.1812E-05_JPRB/)
+KBO( :, 4,45, 2) = (/&
+&1.0754E-05_JPRB,1.2174E-05_JPRB,5.1050E-05_JPRB,7.0661E-05_JPRB,8.1921E-05_JPRB,7.2601E-05_JPRB/)
+KBO( :, 5,45, 2) = (/&
+&1.1287E-05_JPRB,1.2814E-05_JPRB,5.2605E-05_JPRB,7.2048E-05_JPRB,8.2819E-05_JPRB,7.2974E-05_JPRB/)
+KBO( :, 1,46, 2) = (/&
+&7.4503E-06_JPRB,8.5075E-06_JPRB,3.7281E-05_JPRB,5.2735E-05_JPRB,6.2776E-05_JPRB,5.5797E-05_JPRB/)
+KBO( :, 2,46, 2) = (/&
+&7.9071E-06_JPRB,8.9566E-06_JPRB,3.8801E-05_JPRB,5.4682E-05_JPRB,6.4662E-05_JPRB,5.7621E-05_JPRB/)
+KBO( :, 3,46, 2) = (/&
+&8.3054E-06_JPRB,9.3874E-06_JPRB,4.0254E-05_JPRB,5.6347E-05_JPRB,6.6096E-05_JPRB,5.8936E-05_JPRB/)
+KBO( :, 4,46, 2) = (/&
+&8.7047E-06_JPRB,9.8508E-06_JPRB,4.1643E-05_JPRB,5.7815E-05_JPRB,6.7206E-05_JPRB,5.9793E-05_JPRB/)
+KBO( :, 5,46, 2) = (/&
+&9.1293E-06_JPRB,1.0362E-05_JPRB,4.2978E-05_JPRB,5.9086E-05_JPRB,6.8087E-05_JPRB,6.0275E-05_JPRB/)
+KBO( :, 1,47, 2) = (/&
+&5.9482E-06_JPRB,6.8343E-06_JPRB,3.0152E-05_JPRB,4.2665E-05_JPRB,5.0898E-05_JPRB,4.5169E-05_JPRB/)
+KBO( :, 2,47, 2) = (/&
+&6.3610E-06_JPRB,7.2250E-06_JPRB,3.1455E-05_JPRB,4.4406E-05_JPRB,5.2643E-05_JPRB,4.6942E-05_JPRB/)
+KBO( :, 3,47, 2) = (/&
+&6.7018E-06_JPRB,7.5799E-06_JPRB,3.2695E-05_JPRB,4.5897E-05_JPRB,5.3992E-05_JPRB,4.8229E-05_JPRB/)
+KBO( :, 4,47, 2) = (/&
+&7.0296E-06_JPRB,7.9549E-06_JPRB,3.3896E-05_JPRB,4.7210E-05_JPRB,5.5050E-05_JPRB,4.9112E-05_JPRB/)
+KBO( :, 5,47, 2) = (/&
+&7.3684E-06_JPRB,8.3623E-06_JPRB,3.5042E-05_JPRB,4.8359E-05_JPRB,5.5895E-05_JPRB,4.9665E-05_JPRB/)
+KBO( :, 1,48, 2) = (/&
+&4.7226E-06_JPRB,5.4755E-06_JPRB,2.4366E-05_JPRB,3.4470E-05_JPRB,4.1173E-05_JPRB,3.6520E-05_JPRB/)
+KBO( :, 2,48, 2) = (/&
+&5.1075E-06_JPRB,5.8220E-06_JPRB,2.5469E-05_JPRB,3.6010E-05_JPRB,4.2797E-05_JPRB,3.8222E-05_JPRB/)
+KBO( :, 3,48, 2) = (/&
+&5.4030E-06_JPRB,6.1196E-06_JPRB,2.6535E-05_JPRB,3.7342E-05_JPRB,4.4049E-05_JPRB,3.9474E-05_JPRB/)
+KBO( :, 4,48, 2) = (/&
+&5.6740E-06_JPRB,6.4213E-06_JPRB,2.7566E-05_JPRB,3.8507E-05_JPRB,4.5041E-05_JPRB,4.0367E-05_JPRB/)
+KBO( :, 5,48, 2) = (/&
+&5.9485E-06_JPRB,6.7483E-06_JPRB,2.8544E-05_JPRB,3.9542E-05_JPRB,4.5839E-05_JPRB,4.0966E-05_JPRB/)
+KBO( :, 1,49, 2) = (/&
+&3.7285E-06_JPRB,4.3687E-06_JPRB,1.9662E-05_JPRB,2.7800E-05_JPRB,3.3218E-05_JPRB,2.9501E-05_JPRB/)
+KBO( :, 2,49, 2) = (/&
+&4.0884E-06_JPRB,4.6821E-06_JPRB,2.0602E-05_JPRB,2.9151E-05_JPRB,3.4721E-05_JPRB,3.1112E-05_JPRB/)
+KBO( :, 3,49, 2) = (/&
+&4.3499E-06_JPRB,4.9382E-06_JPRB,2.1513E-05_JPRB,3.0331E-05_JPRB,3.5872E-05_JPRB,3.2329E-05_JPRB/)
+KBO( :, 4,49, 2) = (/&
+&4.5782E-06_JPRB,5.1831E-06_JPRB,2.2388E-05_JPRB,3.1370E-05_JPRB,3.6806E-05_JPRB,3.3224E-05_JPRB/)
+KBO( :, 5,49, 2) = (/&
+&4.8038E-06_JPRB,5.4471E-06_JPRB,2.3228E-05_JPRB,3.2295E-05_JPRB,3.7558E-05_JPRB,3.3865E-05_JPRB/)
+KBO( :, 1,50, 2) = (/&
+&2.9385E-06_JPRB,3.4756E-06_JPRB,1.5868E-05_JPRB,2.2413E-05_JPRB,2.6776E-05_JPRB,2.3745E-05_JPRB/)
+KBO( :, 2,50, 2) = (/&
+&3.2647E-06_JPRB,3.7628E-06_JPRB,1.6666E-05_JPRB,2.3594E-05_JPRB,2.8150E-05_JPRB,2.5211E-05_JPRB/)
+KBO( :, 3,50, 2) = (/&
+&3.5024E-06_JPRB,3.9867E-06_JPRB,1.7439E-05_JPRB,2.4630E-05_JPRB,2.9198E-05_JPRB,2.6360E-05_JPRB/)
+KBO( :, 4,50, 2) = (/&
+&3.6969E-06_JPRB,4.1885E-06_JPRB,1.8186E-05_JPRB,2.5547E-05_JPRB,3.0054E-05_JPRB,2.7214E-05_JPRB/)
+KBO( :, 5,50, 2) = (/&
+&3.8815E-06_JPRB,4.4012E-06_JPRB,1.8910E-05_JPRB,2.6369E-05_JPRB,3.0754E-05_JPRB,2.7855E-05_JPRB/)
+KBO( :, 1,51, 2) = (/&
+&2.3100E-06_JPRB,2.7563E-06_JPRB,1.2803E-05_JPRB,1.8054E-05_JPRB,2.1547E-05_JPRB,1.9044E-05_JPRB/)
+KBO( :, 2,51, 2) = (/&
+&2.5961E-06_JPRB,3.0186E-06_JPRB,1.3477E-05_JPRB,1.9076E-05_JPRB,2.2781E-05_JPRB,2.0360E-05_JPRB/)
+KBO( :, 3,51, 2) = (/&
+&2.8167E-06_JPRB,3.2170E-06_JPRB,1.4130E-05_JPRB,1.9983E-05_JPRB,2.3743E-05_JPRB,2.1431E-05_JPRB/)
+KBO( :, 4,51, 2) = (/&
+&2.9847E-06_JPRB,3.3863E-06_JPRB,1.4767E-05_JPRB,2.0790E-05_JPRB,2.4523E-05_JPRB,2.2225E-05_JPRB/)
+KBO( :, 5,51, 2) = (/&
+&3.1380E-06_JPRB,3.5588E-06_JPRB,1.5387E-05_JPRB,2.1516E-05_JPRB,2.5161E-05_JPRB,2.2842E-05_JPRB/)
+KBO( :, 1,52, 2) = (/&
+&1.8092E-06_JPRB,2.1783E-06_JPRB,1.0320E-05_JPRB,1.4520E-05_JPRB,1.7296E-05_JPRB,1.5258E-05_JPRB/)
+KBO( :, 2,52, 2) = (/&
+&2.0552E-06_JPRB,2.4128E-06_JPRB,1.0887E-05_JPRB,1.5404E-05_JPRB,1.8400E-05_JPRB,1.6432E-05_JPRB/)
+KBO( :, 3,52, 2) = (/&
+&2.2593E-06_JPRB,2.5914E-06_JPRB,1.1440E-05_JPRB,1.6191E-05_JPRB,1.9279E-05_JPRB,1.7410E-05_JPRB/)
+KBO( :, 4,52, 2) = (/&
+&2.4069E-06_JPRB,2.7365E-06_JPRB,1.1980E-05_JPRB,1.6899E-05_JPRB,1.9980E-05_JPRB,1.8159E-05_JPRB/)
+KBO( :, 5,52, 2) = (/&
+&2.5360E-06_JPRB,2.8766E-06_JPRB,1.2509E-05_JPRB,1.7535E-05_JPRB,2.0563E-05_JPRB,1.8740E-05_JPRB/)
+KBO( :, 1,53, 2) = (/&
+&1.4105E-06_JPRB,1.7158E-06_JPRB,8.3084E-06_JPRB,1.1659E-05_JPRB,1.3847E-05_JPRB,1.2214E-05_JPRB/)
+KBO( :, 2,53, 2) = (/&
+&1.6202E-06_JPRB,1.9199E-06_JPRB,8.7865E-06_JPRB,1.2420E-05_JPRB,1.4832E-05_JPRB,1.3260E-05_JPRB/)
+KBO( :, 3,53, 2) = (/&
+&1.8048E-06_JPRB,2.0833E-06_JPRB,9.2542E-06_JPRB,1.3103E-05_JPRB,1.5629E-05_JPRB,1.4148E-05_JPRB/)
+KBO( :, 4,53, 2) = (/&
+&1.9388E-06_JPRB,2.2099E-06_JPRB,9.7095E-06_JPRB,1.3720E-05_JPRB,1.6258E-05_JPRB,1.4856E-05_JPRB/)
+KBO( :, 5,53, 2) = (/&
+&2.0484E-06_JPRB,2.3252E-06_JPRB,1.0159E-05_JPRB,1.4275E-05_JPRB,1.6786E-05_JPRB,1.5408E-05_JPRB/)
+KBO( :, 1,54, 2) = (/&
+&1.1001E-06_JPRB,1.3520E-06_JPRB,6.6915E-06_JPRB,9.3651E-06_JPRB,1.1080E-05_JPRB,9.6915E-06_JPRB/)
+KBO( :, 2,54, 2) = (/&
+&1.2776E-06_JPRB,1.5264E-06_JPRB,7.0980E-06_JPRB,1.0019E-05_JPRB,1.1951E-05_JPRB,1.0599E-05_JPRB/)
+KBO( :, 3,54, 2) = (/&
+&1.4389E-06_JPRB,1.6744E-06_JPRB,7.4896E-06_JPRB,1.0605E-05_JPRB,1.2661E-05_JPRB,1.1371E-05_JPRB/)
+KBO( :, 4,54, 2) = (/&
+&1.5618E-06_JPRB,1.7856E-06_JPRB,7.8730E-06_JPRB,1.1139E-05_JPRB,1.3225E-05_JPRB,1.2005E-05_JPRB/)
+KBO( :, 5,54, 2) = (/&
+&1.6563E-06_JPRB,1.8821E-06_JPRB,8.2537E-06_JPRB,1.1621E-05_JPRB,1.3700E-05_JPRB,1.2497E-05_JPRB/)
+KBO( :, 1,55, 2) = (/&
+&8.5645E-07_JPRB,1.0639E-06_JPRB,5.3882E-06_JPRB,7.5160E-06_JPRB,8.8564E-06_JPRB,7.6411E-06_JPRB/)
+KBO( :, 2,55, 2) = (/&
+&1.0060E-06_JPRB,1.2118E-06_JPRB,5.7336E-06_JPRB,8.0780E-06_JPRB,9.6170E-06_JPRB,8.4151E-06_JPRB/)
+KBO( :, 3,55, 2) = (/&
+&1.1442E-06_JPRB,1.3431E-06_JPRB,6.0604E-06_JPRB,8.5801E-06_JPRB,1.0247E-05_JPRB,9.0709E-06_JPRB/)
+KBO( :, 4,55, 2) = (/&
+&1.2568E-06_JPRB,1.4421E-06_JPRB,6.3829E-06_JPRB,9.0380E-06_JPRB,1.0752E-05_JPRB,9.6232E-06_JPRB/)
+KBO( :, 5,55, 2) = (/&
+&1.3389E-06_JPRB,1.5239E-06_JPRB,6.7048E-06_JPRB,9.4560E-06_JPRB,1.1172E-05_JPRB,1.0049E-05_JPRB/)
+KBO( :, 1,56, 2) = (/&
+&6.6442E-07_JPRB,8.3379E-07_JPRB,4.3324E-06_JPRB,6.0198E-06_JPRB,7.0629E-06_JPRB,6.0049E-06_JPRB/)
+KBO( :, 2,56, 2) = (/&
+&7.8950E-07_JPRB,9.5952E-07_JPRB,4.6273E-06_JPRB,6.5047E-06_JPRB,7.7219E-06_JPRB,6.6682E-06_JPRB/)
+KBO( :, 3,56, 2) = (/&
+&9.0717E-07_JPRB,1.0738E-06_JPRB,4.9008E-06_JPRB,6.9329E-06_JPRB,8.2806E-06_JPRB,7.2285E-06_JPRB/)
+KBO( :, 4,56, 2) = (/&
+&1.0084E-06_JPRB,1.1629E-06_JPRB,5.1710E-06_JPRB,7.3266E-06_JPRB,8.7308E-06_JPRB,7.6993E-06_JPRB/)
+KBO( :, 5,56, 2) = (/&
+&1.0813E-06_JPRB,1.2332E-06_JPRB,5.4414E-06_JPRB,7.6876E-06_JPRB,9.1018E-06_JPRB,8.0751E-06_JPRB/)
+KBO( :, 1,57, 2) = (/&
+&5.1317E-07_JPRB,6.4951E-07_JPRB,3.4793E-06_JPRB,4.8121E-06_JPRB,5.6195E-06_JPRB,4.7031E-06_JPRB/)
+KBO( :, 2,57, 2) = (/&
+&6.1735E-07_JPRB,7.5758E-07_JPRB,3.7304E-06_JPRB,5.2293E-06_JPRB,6.1863E-06_JPRB,5.2741E-06_JPRB/)
+KBO( :, 3,57, 2) = (/&
+&7.1698E-07_JPRB,8.5543E-07_JPRB,3.9609E-06_JPRB,5.5969E-06_JPRB,6.6797E-06_JPRB,5.7513E-06_JPRB/)
+KBO( :, 4,57, 2) = (/&
+&8.0608E-07_JPRB,9.3608E-07_JPRB,4.1867E-06_JPRB,5.9326E-06_JPRB,7.0780E-06_JPRB,6.1535E-06_JPRB/)
+KBO( :, 5,57, 2) = (/&
+&8.7220E-07_JPRB,9.9722E-07_JPRB,4.4123E-06_JPRB,6.2442E-06_JPRB,7.4063E-06_JPRB,6.4839E-06_JPRB/)
+KBO( :, 1,58, 2) = (/&
+&3.9480E-07_JPRB,5.0435E-07_JPRB,2.7935E-06_JPRB,3.8432E-06_JPRB,4.4657E-06_JPRB,3.6764E-06_JPRB/)
+KBO( :, 2,58, 2) = (/&
+&4.8219E-07_JPRB,5.9772E-07_JPRB,3.0073E-06_JPRB,4.2025E-06_JPRB,4.9518E-06_JPRB,4.1625E-06_JPRB/)
+KBO( :, 3,58, 2) = (/&
+&5.6606E-07_JPRB,6.8070E-07_JPRB,3.2015E-06_JPRB,4.5174E-06_JPRB,5.3832E-06_JPRB,4.5681E-06_JPRB/)
+KBO( :, 4,58, 2) = (/&
+&6.4282E-07_JPRB,7.5255E-07_JPRB,3.3896E-06_JPRB,4.8024E-06_JPRB,5.7338E-06_JPRB,4.9081E-06_JPRB/)
+KBO( :, 5,58, 2) = (/&
+&7.0311E-07_JPRB,8.0645E-07_JPRB,3.5782E-06_JPRB,5.0698E-06_JPRB,6.0234E-06_JPRB,5.1890E-06_JPRB/)
+KBO( :, 1,59, 2) = (/&
+&3.1539E-07_JPRB,4.0480E-07_JPRB,2.2738E-06_JPRB,3.1211E-06_JPRB,3.6182E-06_JPRB,2.9204E-06_JPRB/)
+KBO( :, 2,59, 2) = (/&
+&3.8822E-07_JPRB,4.8324E-07_JPRB,2.4529E-06_JPRB,3.4232E-06_JPRB,4.0269E-06_JPRB,3.3117E-06_JPRB/)
+KBO( :, 3,59, 2) = (/&
+&4.5803E-07_JPRB,5.5251E-07_JPRB,2.6142E-06_JPRB,3.6873E-06_JPRB,4.3909E-06_JPRB,3.6397E-06_JPRB/)
+KBO( :, 4,59, 2) = (/&
+&5.2209E-07_JPRB,6.1313E-07_JPRB,2.7709E-06_JPRB,3.9267E-06_JPRB,4.6885E-06_JPRB,3.9100E-06_JPRB/)
+KBO( :, 5,59, 2) = (/&
+&5.7356E-07_JPRB,6.5884E-07_JPRB,2.9288E-06_JPRB,4.1516E-06_JPRB,4.9350E-06_JPRB,4.1280E-06_JPRB/)
+KBO( :, 1,13, 3) = (/&
+&7.6409E-03_JPRB,7.8630E-03_JPRB,3.5099E-02_JPRB,5.1489E-02_JPRB,6.3478E-02_JPRB,6.7045E-02_JPRB/)
+KBO( :, 2,13, 3) = (/&
+&7.6194E-03_JPRB,7.8439E-03_JPRB,3.6320E-02_JPRB,5.3590E-02_JPRB,6.5755E-02_JPRB,7.0861E-02_JPRB/)
+KBO( :, 3,13, 3) = (/&
+&7.6221E-03_JPRB,7.8478E-03_JPRB,3.7408E-02_JPRB,5.5388E-02_JPRB,6.7789E-02_JPRB,7.4140E-02_JPRB/)
+KBO( :, 4,13, 3) = (/&
+&7.7245E-03_JPRB,7.9516E-03_JPRB,3.8346E-02_JPRB,5.6822E-02_JPRB,6.9566E-02_JPRB,7.7166E-02_JPRB/)
+KBO( :, 5,13, 3) = (/&
+&7.8978E-03_JPRB,8.1255E-03_JPRB,3.9191E-02_JPRB,5.7916E-02_JPRB,7.1029E-02_JPRB,7.9766E-02_JPRB/)
+KBO( :, 1,14, 3) = (/&
+&6.3458E-03_JPRB,6.5743E-03_JPRB,3.0544E-02_JPRB,4.4937E-02_JPRB,5.5150E-02_JPRB,5.7197E-02_JPRB/)
+KBO( :, 2,14, 3) = (/&
+&6.3293E-03_JPRB,6.5605E-03_JPRB,3.1591E-02_JPRB,4.6706E-02_JPRB,5.7142E-02_JPRB,6.0155E-02_JPRB/)
+KBO( :, 3,14, 3) = (/&
+&6.3587E-03_JPRB,6.5945E-03_JPRB,3.2496E-02_JPRB,4.8185E-02_JPRB,5.8909E-02_JPRB,6.2706E-02_JPRB/)
+KBO( :, 4,14, 3) = (/&
+&6.4686E-03_JPRB,6.7092E-03_JPRB,3.3313E-02_JPRB,4.9362E-02_JPRB,6.0431E-02_JPRB,6.4908E-02_JPRB/)
+KBO( :, 5,14, 3) = (/&
+&6.6255E-03_JPRB,6.8640E-03_JPRB,3.4024E-02_JPRB,5.0218E-02_JPRB,6.1528E-02_JPRB,6.6516E-02_JPRB/)
+KBO( :, 1,15, 3) = (/&
+&5.2608E-03_JPRB,5.4955E-03_JPRB,2.6384E-02_JPRB,3.8869E-02_JPRB,4.7602E-02_JPRB,4.8635E-02_JPRB/)
+KBO( :, 2,15, 3) = (/&
+&5.2548E-03_JPRB,5.4956E-03_JPRB,2.7249E-02_JPRB,4.0345E-02_JPRB,4.9310E-02_JPRB,5.0945E-02_JPRB/)
+KBO( :, 3,15, 3) = (/&
+&5.2993E-03_JPRB,5.5500E-03_JPRB,2.8019E-02_JPRB,4.1551E-02_JPRB,5.0814E-02_JPRB,5.2823E-02_JPRB/)
+KBO( :, 4,15, 3) = (/&
+&5.4066E-03_JPRB,5.6608E-03_JPRB,2.8708E-02_JPRB,4.2452E-02_JPRB,5.1926E-02_JPRB,5.4154E-02_JPRB/)
+KBO( :, 5,15, 3) = (/&
+&5.5521E-03_JPRB,5.8017E-03_JPRB,2.9282E-02_JPRB,4.3007E-02_JPRB,5.2526E-02_JPRB,5.4943E-02_JPRB/)
+KBO( :, 1,16, 3) = (/&
+&4.3548E-03_JPRB,4.5880E-03_JPRB,2.2610E-02_JPRB,3.3375E-02_JPRB,4.0790E-02_JPRB,4.1260E-02_JPRB/)
+KBO( :, 2,16, 3) = (/&
+&4.3619E-03_JPRB,4.6068E-03_JPRB,2.3348E-02_JPRB,3.4577E-02_JPRB,4.2241E-02_JPRB,4.3009E-02_JPRB/)
+KBO( :, 3,16, 3) = (/&
+&4.4136E-03_JPRB,4.6705E-03_JPRB,2.3984E-02_JPRB,3.5504E-02_JPRB,4.3353E-02_JPRB,4.4224E-02_JPRB/)
+KBO( :, 4,16, 3) = (/&
+&4.5178E-03_JPRB,4.7766E-03_JPRB,2.4528E-02_JPRB,3.6072E-02_JPRB,4.4010E-02_JPRB,4.4975E-02_JPRB/)
+KBO( :, 5,16, 3) = (/&
+&4.6504E-03_JPRB,4.9071E-03_JPRB,2.4942E-02_JPRB,3.6363E-02_JPRB,4.4282E-02_JPRB,4.5379E-02_JPRB/)
+KBO( :, 1,17, 3) = (/&
+&3.6046E-03_JPRB,3.8291E-03_JPRB,1.9257E-02_JPRB,2.8451E-02_JPRB,3.4711E-02_JPRB,3.4756E-02_JPRB/)
+KBO( :, 2,17, 3) = (/&
+&3.6213E-03_JPRB,3.8592E-03_JPRB,1.9862E-02_JPRB,2.9374E-02_JPRB,3.5819E-02_JPRB,3.5957E-02_JPRB/)
+KBO( :, 3,17, 3) = (/&
+&3.6771E-03_JPRB,3.9291E-03_JPRB,2.0363E-02_JPRB,2.9994E-02_JPRB,3.6526E-02_JPRB,3.6699E-02_JPRB/)
+KBO( :, 4,17, 3) = (/&
+&3.7714E-03_JPRB,4.0283E-03_JPRB,2.0759E-02_JPRB,3.0326E-02_JPRB,3.6910E-02_JPRB,3.7152E-02_JPRB/)
+KBO( :, 5,17, 3) = (/&
+&3.8899E-03_JPRB,4.1466E-03_JPRB,2.1065E-02_JPRB,3.0505E-02_JPRB,3.7035E-02_JPRB,3.7347E-02_JPRB/)
+KBO( :, 1,18, 3) = (/&
+&2.9885E-03_JPRB,3.1998E-03_JPRB,1.6296E-02_JPRB,2.4061E-02_JPRB,2.9310E-02_JPRB,2.9021E-02_JPRB/)
+KBO( :, 2,18, 3) = (/&
+&3.0092E-03_JPRB,3.2357E-03_JPRB,1.6767E-02_JPRB,2.4711E-02_JPRB,3.0069E-02_JPRB,2.9818E-02_JPRB/)
+KBO( :, 3,18, 3) = (/&
+&3.0601E-03_JPRB,3.3019E-03_JPRB,1.7137E-02_JPRB,2.5107E-02_JPRB,3.0527E-02_JPRB,3.0314E-02_JPRB/)
+KBO( :, 4,18, 3) = (/&
+&3.1433E-03_JPRB,3.3904E-03_JPRB,1.7445E-02_JPRB,2.5340E-02_JPRB,3.0772E-02_JPRB,3.0595E-02_JPRB/)
+KBO( :, 5,18, 3) = (/&
+&3.2491E-03_JPRB,3.4975E-03_JPRB,1.7663E-02_JPRB,2.5461E-02_JPRB,3.0822E-02_JPRB,3.0677E-02_JPRB/)
+KBO( :, 1,19, 3) = (/&
+&2.4792E-03_JPRB,2.6786E-03_JPRB,1.3691E-02_JPRB,2.0180E-02_JPRB,2.4544E-02_JPRB,2.4040E-02_JPRB/)
+KBO( :, 2,19, 3) = (/&
+&2.4982E-03_JPRB,2.7134E-03_JPRB,1.4049E-02_JPRB,2.0629E-02_JPRB,2.5069E-02_JPRB,2.4597E-02_JPRB/)
+KBO( :, 3,19, 3) = (/&
+&2.5452E-03_JPRB,2.7746E-03_JPRB,1.4344E-02_JPRB,2.0921E-02_JPRB,2.5390E-02_JPRB,2.4935E-02_JPRB/)
+KBO( :, 4,19, 3) = (/&
+&2.6196E-03_JPRB,2.8530E-03_JPRB,1.4579E-02_JPRB,2.1097E-02_JPRB,2.5555E-02_JPRB,2.5107E-02_JPRB/)
+KBO( :, 5,19, 3) = (/&
+&2.7162E-03_JPRB,2.9530E-03_JPRB,1.4732E-02_JPRB,2.1186E-02_JPRB,2.5572E-02_JPRB,2.5118E-02_JPRB/)
+KBO( :, 1,20, 3) = (/&
+&2.0528E-03_JPRB,2.2395E-03_JPRB,1.1440E-02_JPRB,1.6822E-02_JPRB,2.0437E-02_JPRB,1.9854E-02_JPRB/)
+KBO( :, 2,20, 3) = (/&
+&2.0711E-03_JPRB,2.2736E-03_JPRB,1.1723E-02_JPRB,1.7158E-02_JPRB,2.0817E-02_JPRB,2.0254E-02_JPRB/)
+KBO( :, 3,20, 3) = (/&
+&2.1151E-03_JPRB,2.3293E-03_JPRB,1.1957E-02_JPRB,1.7380E-02_JPRB,2.1050E-02_JPRB,2.0492E-02_JPRB/)
+KBO( :, 4,20, 3) = (/&
+&2.1833E-03_JPRB,2.4015E-03_JPRB,1.2129E-02_JPRB,1.7522E-02_JPRB,2.1168E-02_JPRB,2.0597E-02_JPRB/)
+KBO( :, 5,20, 3) = (/&
+&2.2724E-03_JPRB,2.4949E-03_JPRB,1.2249E-02_JPRB,1.7578E-02_JPRB,2.1166E-02_JPRB,2.0571E-02_JPRB/)
+KBO( :, 1,21, 3) = (/&
+&1.6965E-03_JPRB,1.8666E-03_JPRB,9.5200E-03_JPRB,1.3965E-02_JPRB,1.6952E-02_JPRB,1.6357E-02_JPRB/)
+KBO( :, 2,21, 3) = (/&
+&1.7152E-03_JPRB,1.9002E-03_JPRB,9.7517E-03_JPRB,1.4227E-02_JPRB,1.7236E-02_JPRB,1.6650E-02_JPRB/)
+KBO( :, 3,21, 3) = (/&
+&1.7567E-03_JPRB,1.9510E-03_JPRB,9.9283E-03_JPRB,1.4408E-02_JPRB,1.7419E-02_JPRB,1.6821E-02_JPRB/)
+KBO( :, 4,21, 3) = (/&
+&1.8182E-03_JPRB,2.0179E-03_JPRB,1.0061E-02_JPRB,1.4512E-02_JPRB,1.7502E-02_JPRB,1.6883E-02_JPRB/)
+KBO( :, 5,21, 3) = (/&
+&1.9002E-03_JPRB,2.1049E-03_JPRB,1.0160E-02_JPRB,1.4547E-02_JPRB,1.7493E-02_JPRB,1.6838E-02_JPRB/)
+KBO( :, 1,22, 3) = (/&
+&1.4012E-03_JPRB,1.5543E-03_JPRB,7.9187E-03_JPRB,1.1582E-02_JPRB,1.4044E-02_JPRB,1.3475E-02_JPRB/)
+KBO( :, 2,22, 3) = (/&
+&1.4217E-03_JPRB,1.5878E-03_JPRB,8.0975E-03_JPRB,1.1789E-02_JPRB,1.4260E-02_JPRB,1.3686E-02_JPRB/)
+KBO( :, 3,22, 3) = (/&
+&1.4625E-03_JPRB,1.6356E-03_JPRB,8.2342E-03_JPRB,1.1928E-02_JPRB,1.4399E-02_JPRB,1.3802E-02_JPRB/)
+KBO( :, 4,22, 3) = (/&
+&1.5189E-03_JPRB,1.6982E-03_JPRB,8.3363E-03_JPRB,1.1996E-02_JPRB,1.4455E-02_JPRB,1.3830E-02_JPRB/)
+KBO( :, 5,22, 3) = (/&
+&1.5929E-03_JPRB,1.7785E-03_JPRB,8.4131E-03_JPRB,1.2015E-02_JPRB,1.4430E-02_JPRB,1.3772E-02_JPRB/)
+KBO( :, 1,23, 3) = (/&
+&1.1570E-03_JPRB,1.2929E-03_JPRB,6.5744E-03_JPRB,9.5929E-03_JPRB,1.1615E-02_JPRB,1.1086E-02_JPRB/)
+KBO( :, 2,23, 3) = (/&
+&1.1790E-03_JPRB,1.3257E-03_JPRB,6.7098E-03_JPRB,9.7544E-03_JPRB,1.1782E-02_JPRB,1.1237E-02_JPRB/)
+KBO( :, 3,23, 3) = (/&
+&1.2175E-03_JPRB,1.3704E-03_JPRB,6.8141E-03_JPRB,9.8515E-03_JPRB,1.1889E-02_JPRB,1.1315E-02_JPRB/)
+KBO( :, 4,23, 3) = (/&
+&1.2686E-03_JPRB,1.4282E-03_JPRB,6.8934E-03_JPRB,9.9002E-03_JPRB,1.1920E-02_JPRB,1.1318E-02_JPRB/)
+KBO( :, 5,23, 3) = (/&
+&1.3340E-03_JPRB,1.5001E-03_JPRB,6.9577E-03_JPRB,9.9108E-03_JPRB,1.1886E-02_JPRB,1.1254E-02_JPRB/)
+KBO( :, 1,24, 3) = (/&
+&9.5574E-04_JPRB,1.0753E-03_JPRB,5.4476E-03_JPRB,7.9376E-03_JPRB,9.5959E-03_JPRB,9.1100E-03_JPRB/)
+KBO( :, 2,24, 3) = (/&
+&9.7834E-04_JPRB,1.1070E-03_JPRB,5.5506E-03_JPRB,8.0557E-03_JPRB,9.7276E-03_JPRB,9.2176E-03_JPRB/)
+KBO( :, 3,24, 3) = (/&
+&1.0140E-03_JPRB,1.1485E-03_JPRB,5.6323E-03_JPRB,8.1281E-03_JPRB,9.8028E-03_JPRB,9.2635E-03_JPRB/)
+KBO( :, 4,24, 3) = (/&
+&1.0594E-03_JPRB,1.2005E-03_JPRB,5.6966E-03_JPRB,8.1612E-03_JPRB,9.8145E-03_JPRB,9.2505E-03_JPRB/)
+KBO( :, 5,24, 3) = (/&
+&1.1172E-03_JPRB,1.2644E-03_JPRB,5.7523E-03_JPRB,8.1643E-03_JPRB,9.7794E-03_JPRB,9.1865E-03_JPRB/)
+KBO( :, 1,25, 3) = (/&
+&7.9031E-04_JPRB,8.9498E-04_JPRB,4.5093E-03_JPRB,6.5597E-03_JPRB,7.9226E-03_JPRB,7.4814E-03_JPRB/)
+KBO( :, 2,25, 3) = (/&
+&8.1263E-04_JPRB,9.2459E-04_JPRB,4.5880E-03_JPRB,6.6467E-03_JPRB,8.0247E-03_JPRB,7.5572E-03_JPRB/)
+KBO( :, 3,25, 3) = (/&
+&8.4479E-04_JPRB,9.6257E-04_JPRB,4.6527E-03_JPRB,6.6977E-03_JPRB,8.0725E-03_JPRB,7.5813E-03_JPRB/)
+KBO( :, 4,25, 3) = (/&
+&8.8545E-04_JPRB,1.0093E-03_JPRB,4.7088E-03_JPRB,6.7186E-03_JPRB,8.0725E-03_JPRB,7.5582E-03_JPRB/)
+KBO( :, 5,25, 3) = (/&
+&9.3639E-04_JPRB,1.0658E-03_JPRB,4.7580E-03_JPRB,6.7210E-03_JPRB,8.0368E-03_JPRB,7.4940E-03_JPRB/)
+KBO( :, 1,26, 3) = (/&
+&6.5440E-04_JPRB,7.4555E-04_JPRB,3.7287E-03_JPRB,5.4156E-03_JPRB,6.5397E-03_JPRB,6.1435E-03_JPRB/)
+KBO( :, 2,26, 3) = (/&
+&6.7588E-04_JPRB,7.7292E-04_JPRB,3.7917E-03_JPRB,5.4786E-03_JPRB,6.6119E-03_JPRB,6.1927E-03_JPRB/)
+KBO( :, 3,26, 3) = (/&
+&7.0450E-04_JPRB,8.0706E-04_JPRB,3.8452E-03_JPRB,5.5137E-03_JPRB,6.6415E-03_JPRB,6.2018E-03_JPRB/)
+KBO( :, 4,26, 3) = (/&
+&7.4139E-04_JPRB,8.4916E-04_JPRB,3.8959E-03_JPRB,5.5296E-03_JPRB,6.6347E-03_JPRB,6.1729E-03_JPRB/)
+KBO( :, 5,26, 3) = (/&
+&7.8678E-04_JPRB,8.9964E-04_JPRB,3.9398E-03_JPRB,5.5339E-03_JPRB,6.6007E-03_JPRB,6.1130E-03_JPRB/)
+KBO( :, 1,27, 3) = (/&
+&5.4261E-04_JPRB,6.2138E-04_JPRB,3.0812E-03_JPRB,4.4673E-03_JPRB,5.3930E-03_JPRB,5.0432E-03_JPRB/)
+KBO( :, 2,27, 3) = (/&
+&5.6244E-04_JPRB,6.4623E-04_JPRB,3.1326E-03_JPRB,4.5130E-03_JPRB,5.4441E-03_JPRB,5.0746E-03_JPRB/)
+KBO( :, 3,27, 3) = (/&
+&5.8793E-04_JPRB,6.7665E-04_JPRB,3.1799E-03_JPRB,4.5386E-03_JPRB,5.4598E-03_JPRB,5.0735E-03_JPRB/)
+KBO( :, 4,27, 3) = (/&
+&6.2139E-04_JPRB,7.1456E-04_JPRB,3.2246E-03_JPRB,4.5530E-03_JPRB,5.4488E-03_JPRB,5.0440E-03_JPRB/)
+KBO( :, 5,27, 3) = (/&
+&6.6189E-04_JPRB,7.5928E-04_JPRB,3.2622E-03_JPRB,4.5583E-03_JPRB,5.4192E-03_JPRB,4.9887E-03_JPRB/)
+KBO( :, 1,28, 3) = (/&
+&4.5041E-04_JPRB,5.1802E-04_JPRB,2.5459E-03_JPRB,3.6826E-03_JPRB,4.4432E-03_JPRB,4.1386E-03_JPRB/)
+KBO( :, 2,28, 3) = (/&
+&4.6818E-04_JPRB,5.4025E-04_JPRB,2.5901E-03_JPRB,3.7166E-03_JPRB,4.4776E-03_JPRB,4.1576E-03_JPRB/)
+KBO( :, 3,28, 3) = (/&
+&4.9122E-04_JPRB,5.6731E-04_JPRB,2.6317E-03_JPRB,3.7378E-03_JPRB,4.4848E-03_JPRB,4.1511E-03_JPRB/)
+KBO( :, 4,28, 3) = (/&
+&5.2165E-04_JPRB,6.0153E-04_JPRB,2.6701E-03_JPRB,3.7517E-03_JPRB,4.4733E-03_JPRB,4.1214E-03_JPRB/)
+KBO( :, 5,28, 3) = (/&
+&5.5747E-04_JPRB,6.4051E-04_JPRB,2.7007E-03_JPRB,3.7587E-03_JPRB,4.4498E-03_JPRB,4.0722E-03_JPRB/)
+KBO( :, 1,29, 3) = (/&
+&3.7413E-04_JPRB,4.3196E-04_JPRB,2.1044E-03_JPRB,3.0343E-03_JPRB,3.6585E-03_JPRB,3.3981E-03_JPRB/)
+KBO( :, 2,29, 3) = (/&
+&3.9017E-04_JPRB,4.5166E-04_JPRB,2.1424E-03_JPRB,3.0612E-03_JPRB,3.6810E-03_JPRB,3.4095E-03_JPRB/)
+KBO( :, 3,29, 3) = (/&
+&4.1157E-04_JPRB,4.7625E-04_JPRB,2.1792E-03_JPRB,3.0806E-03_JPRB,3.6837E-03_JPRB,3.4002E-03_JPRB/)
+KBO( :, 4,29, 3) = (/&
+&4.3865E-04_JPRB,5.0663E-04_JPRB,2.2090E-03_JPRB,3.0938E-03_JPRB,3.6744E-03_JPRB,3.3735E-03_JPRB/)
+KBO( :, 5,29, 3) = (/&
+&4.7012E-04_JPRB,5.4039E-04_JPRB,2.2354E-03_JPRB,3.1005E-03_JPRB,3.6551E-03_JPRB,3.3297E-03_JPRB/)
+KBO( :, 1,30, 3) = (/&
+&3.1103E-04_JPRB,3.6024E-04_JPRB,1.7406E-03_JPRB,2.5005E-03_JPRB,3.0110E-03_JPRB,2.7911E-03_JPRB/)
+KBO( :, 2,30, 3) = (/&
+&3.2577E-04_JPRB,3.7785E-04_JPRB,1.7737E-03_JPRB,2.5236E-03_JPRB,3.0255E-03_JPRB,2.7972E-03_JPRB/)
+KBO( :, 3,30, 3) = (/&
+&3.4538E-04_JPRB,4.0017E-04_JPRB,1.8036E-03_JPRB,2.5406E-03_JPRB,3.0269E-03_JPRB,2.7870E-03_JPRB/)
+KBO( :, 4,30, 3) = (/&
+&3.6935E-04_JPRB,4.2673E-04_JPRB,1.8286E-03_JPRB,2.5529E-03_JPRB,3.0186E-03_JPRB,2.7615E-03_JPRB/)
+KBO( :, 5,30, 3) = (/&
+&3.9676E-04_JPRB,4.5608E-04_JPRB,1.8513E-03_JPRB,2.5584E-03_JPRB,3.0040E-03_JPRB,2.7242E-03_JPRB/)
+KBO( :, 1,31, 3) = (/&
+&2.5900E-04_JPRB,3.0066E-04_JPRB,1.4406E-03_JPRB,2.0618E-03_JPRB,2.4773E-03_JPRB,2.2948E-03_JPRB/)
+KBO( :, 2,31, 3) = (/&
+&2.7261E-04_JPRB,3.1655E-04_JPRB,1.4684E-03_JPRB,2.0810E-03_JPRB,2.4873E-03_JPRB,2.2978E-03_JPRB/)
+KBO( :, 3,31, 3) = (/&
+&2.9037E-04_JPRB,3.3669E-04_JPRB,1.4928E-03_JPRB,2.0966E-03_JPRB,2.4881E-03_JPRB,2.2878E-03_JPRB/)
+KBO( :, 4,31, 3) = (/&
+&3.1154E-04_JPRB,3.5979E-04_JPRB,1.5138E-03_JPRB,2.1064E-03_JPRB,2.4823E-03_JPRB,2.2654E-03_JPRB/)
+KBO( :, 5,31, 3) = (/&
+&3.3507E-04_JPRB,3.8509E-04_JPRB,1.5342E-03_JPRB,2.1116E-03_JPRB,2.4709E-03_JPRB,2.2338E-03_JPRB/)
+KBO( :, 1,32, 3) = (/&
+&2.1614E-04_JPRB,2.5126E-04_JPRB,1.1930E-03_JPRB,1.7007E-03_JPRB,2.0381E-03_JPRB,1.8878E-03_JPRB/)
+KBO( :, 2,32, 3) = (/&
+&2.2861E-04_JPRB,2.6571E-04_JPRB,1.2162E-03_JPRB,1.7180E-03_JPRB,2.0460E-03_JPRB,1.8890E-03_JPRB/)
+KBO( :, 3,32, 3) = (/&
+&2.4457E-04_JPRB,2.8365E-04_JPRB,1.2363E-03_JPRB,1.7307E-03_JPRB,2.0470E-03_JPRB,1.8790E-03_JPRB/)
+KBO( :, 4,32, 3) = (/&
+&2.6297E-04_JPRB,3.0364E-04_JPRB,1.2543E-03_JPRB,1.7385E-03_JPRB,2.0430E-03_JPRB,1.8594E-03_JPRB/)
+KBO( :, 5,32, 3) = (/&
+&2.8320E-04_JPRB,3.2527E-04_JPRB,1.2726E-03_JPRB,1.7439E-03_JPRB,2.0334E-03_JPRB,1.8328E-03_JPRB/)
+KBO( :, 1,33, 3) = (/&
+&1.8077E-04_JPRB,2.1039E-04_JPRB,9.8840E-04_JPRB,1.4043E-03_JPRB,1.6777E-03_JPRB,1.5543E-03_JPRB/)
+KBO( :, 2,33, 3) = (/&
+&1.9220E-04_JPRB,2.2350E-04_JPRB,1.0074E-03_JPRB,1.4187E-03_JPRB,1.6838E-03_JPRB,1.5538E-03_JPRB/)
+KBO( :, 3,33, 3) = (/&
+&2.0626E-04_JPRB,2.3918E-04_JPRB,1.0244E-03_JPRB,1.4289E-03_JPRB,1.6852E-03_JPRB,1.5443E-03_JPRB/)
+KBO( :, 4,33, 3) = (/&
+&2.2215E-04_JPRB,2.5639E-04_JPRB,1.0403E-03_JPRB,1.4356E-03_JPRB,1.6818E-03_JPRB,1.5277E-03_JPRB/)
+KBO( :, 5,33, 3) = (/&
+&2.3958E-04_JPRB,2.7494E-04_JPRB,1.0565E-03_JPRB,1.4410E-03_JPRB,1.6741E-03_JPRB,1.5054E-03_JPRB/)
+KBO( :, 1,34, 3) = (/&
+&1.5119E-04_JPRB,1.7609E-04_JPRB,8.1855E-04_JPRB,1.1596E-03_JPRB,1.3812E-03_JPRB,1.2791E-03_JPRB/)
+KBO( :, 2,34, 3) = (/&
+&1.6145E-04_JPRB,1.8785E-04_JPRB,8.3425E-04_JPRB,1.1712E-03_JPRB,1.3866E-03_JPRB,1.2773E-03_JPRB/)
+KBO( :, 3,34, 3) = (/&
+&1.7367E-04_JPRB,2.0133E-04_JPRB,8.4883E-04_JPRB,1.1799E-03_JPRB,1.3882E-03_JPRB,1.2691E-03_JPRB/)
+KBO( :, 4,34, 3) = (/&
+&1.8734E-04_JPRB,2.1609E-04_JPRB,8.6307E-04_JPRB,1.1863E-03_JPRB,1.3855E-03_JPRB,1.2550E-03_JPRB/)
+KBO( :, 5,34, 3) = (/&
+&2.0225E-04_JPRB,2.3202E-04_JPRB,8.7752E-04_JPRB,1.1920E-03_JPRB,1.3795E-03_JPRB,1.2363E-03_JPRB/)
+KBO( :, 1,35, 3) = (/&
+&1.2586E-04_JPRB,1.4671E-04_JPRB,6.7658E-04_JPRB,9.5649E-04_JPRB,1.1370E-03_JPRB,1.0523E-03_JPRB/)
+KBO( :, 2,35, 3) = (/&
+&1.3479E-04_JPRB,1.5694E-04_JPRB,6.9016E-04_JPRB,9.6658E-04_JPRB,1.1423E-03_JPRB,1.0509E-03_JPRB/)
+KBO( :, 3,35, 3) = (/&
+&1.4527E-04_JPRB,1.6840E-04_JPRB,7.0251E-04_JPRB,9.7407E-04_JPRB,1.1435E-03_JPRB,1.0441E-03_JPRB/)
+KBO( :, 4,35, 3) = (/&
+&1.5691E-04_JPRB,1.8098E-04_JPRB,7.1533E-04_JPRB,9.8058E-04_JPRB,1.1418E-03_JPRB,1.0326E-03_JPRB/)
+KBO( :, 5,35, 3) = (/&
+&1.6957E-04_JPRB,1.9459E-04_JPRB,7.2799E-04_JPRB,9.8636E-04_JPRB,1.1378E-03_JPRB,1.0171E-03_JPRB/)
+KBO( :, 1,36, 3) = (/&
+&1.0414E-04_JPRB,1.2151E-04_JPRB,5.5801E-04_JPRB,7.8827E-04_JPRB,9.3599E-04_JPRB,8.6559E-04_JPRB/)
+KBO( :, 2,36, 3) = (/&
+&1.1170E-04_JPRB,1.3016E-04_JPRB,5.6976E-04_JPRB,7.9724E-04_JPRB,9.4085E-04_JPRB,8.6498E-04_JPRB/)
+KBO( :, 3,36, 3) = (/&
+&1.2056E-04_JPRB,1.3986E-04_JPRB,5.8091E-04_JPRB,8.0448E-04_JPRB,9.4273E-04_JPRB,8.5997E-04_JPRB/)
+KBO( :, 4,36, 3) = (/&
+&1.3038E-04_JPRB,1.5047E-04_JPRB,5.9203E-04_JPRB,8.1040E-04_JPRB,9.4179E-04_JPRB,8.5084E-04_JPRB/)
+KBO( :, 5,36, 3) = (/&
+&1.4104E-04_JPRB,1.6199E-04_JPRB,6.0308E-04_JPRB,8.1605E-04_JPRB,9.3933E-04_JPRB,8.3818E-04_JPRB/)
+KBO( :, 1,37, 3) = (/&
+&8.5323E-05_JPRB,9.9664E-05_JPRB,4.5884E-04_JPRB,6.4852E-04_JPRB,7.6974E-04_JPRB,7.1141E-04_JPRB/)
+KBO( :, 2,37, 3) = (/&
+&9.1527E-05_JPRB,1.0682E-04_JPRB,4.6909E-04_JPRB,6.5669E-04_JPRB,7.7467E-04_JPRB,7.1194E-04_JPRB/)
+KBO( :, 3,37, 3) = (/&
+&9.8871E-05_JPRB,1.1487E-04_JPRB,4.7886E-04_JPRB,6.6345E-04_JPRB,7.7695E-04_JPRB,7.0849E-04_JPRB/)
+KBO( :, 4,37, 3) = (/&
+&1.0704E-04_JPRB,1.2374E-04_JPRB,4.8883E-04_JPRB,6.6930E-04_JPRB,7.7737E-04_JPRB,7.0168E-04_JPRB/)
+KBO( :, 5,37, 3) = (/&
+&1.1597E-04_JPRB,1.3339E-04_JPRB,4.9841E-04_JPRB,6.7481E-04_JPRB,7.7624E-04_JPRB,6.9182E-04_JPRB/)
+KBO( :, 1,38, 3) = (/&
+&6.9864E-05_JPRB,8.1702E-05_JPRB,3.7720E-04_JPRB,5.3356E-04_JPRB,6.3309E-04_JPRB,5.8498E-04_JPRB/)
+KBO( :, 2,38, 3) = (/&
+&7.4949E-05_JPRB,8.7605E-05_JPRB,3.8612E-04_JPRB,5.4085E-04_JPRB,6.3774E-04_JPRB,5.8615E-04_JPRB/)
+KBO( :, 3,38, 3) = (/&
+&8.1032E-05_JPRB,9.4290E-05_JPRB,3.9469E-04_JPRB,5.4710E-04_JPRB,6.4046E-04_JPRB,5.8424E-04_JPRB/)
+KBO( :, 4,38, 3) = (/&
+&8.7830E-05_JPRB,1.0169E-04_JPRB,4.0337E-04_JPRB,5.5261E-04_JPRB,6.4155E-04_JPRB,5.7913E-04_JPRB/)
+KBO( :, 5,38, 3) = (/&
+&9.5293E-05_JPRB,1.0978E-04_JPRB,4.1177E-04_JPRB,5.5788E-04_JPRB,6.4154E-04_JPRB,5.7166E-04_JPRB/)
+KBO( :, 1,39, 3) = (/&
+&5.7197E-05_JPRB,6.6973E-05_JPRB,3.1005E-04_JPRB,4.3874E-04_JPRB,5.2056E-04_JPRB,4.8131E-04_JPRB/)
+KBO( :, 2,39, 3) = (/&
+&6.1371E-05_JPRB,7.1842E-05_JPRB,3.1779E-04_JPRB,4.4531E-04_JPRB,5.2502E-04_JPRB,4.8298E-04_JPRB/)
+KBO( :, 3,39, 3) = (/&
+&6.6407E-05_JPRB,7.7394E-05_JPRB,3.2540E-04_JPRB,4.5115E-04_JPRB,5.2799E-04_JPRB,4.8215E-04_JPRB/)
+KBO( :, 4,39, 3) = (/&
+&7.2064E-05_JPRB,8.3560E-05_JPRB,3.3301E-04_JPRB,4.5632E-04_JPRB,5.2961E-04_JPRB,4.7858E-04_JPRB/)
+KBO( :, 5,39, 3) = (/&
+&7.8303E-05_JPRB,9.0355E-05_JPRB,3.4035E-04_JPRB,4.6134E-04_JPRB,5.3031E-04_JPRB,4.7308E-04_JPRB/)
+KBO( :, 1,40, 3) = (/&
+&4.6522E-05_JPRB,5.4522E-05_JPRB,2.5421E-04_JPRB,3.6027E-04_JPRB,4.2767E-04_JPRB,3.9473E-04_JPRB/)
+KBO( :, 2,40, 3) = (/&
+&4.9863E-05_JPRB,5.8471E-05_JPRB,2.6092E-04_JPRB,3.6612E-04_JPRB,4.3197E-04_JPRB,3.9681E-04_JPRB/)
+KBO( :, 3,40, 3) = (/&
+&5.3968E-05_JPRB,6.3027E-05_JPRB,2.6757E-04_JPRB,3.7152E-04_JPRB,4.3513E-04_JPRB,3.9683E-04_JPRB/)
+KBO( :, 4,40, 3) = (/&
+&5.8623E-05_JPRB,6.8126E-05_JPRB,2.7426E-04_JPRB,3.7636E-04_JPRB,4.3711E-04_JPRB,3.9452E-04_JPRB/)
+KBO( :, 5,40, 3) = (/&
+&6.3789E-05_JPRB,7.3766E-05_JPRB,2.8070E-04_JPRB,3.8106E-04_JPRB,4.3831E-04_JPRB,3.9053E-04_JPRB/)
+KBO( :, 1,41, 3) = (/&
+&3.7804E-05_JPRB,4.4333E-05_JPRB,2.0821E-04_JPRB,2.9549E-04_JPRB,3.5103E-04_JPRB,3.2341E-04_JPRB/)
+KBO( :, 2,41, 3) = (/&
+&4.0492E-05_JPRB,4.7550E-05_JPRB,2.1408E-04_JPRB,3.0089E-04_JPRB,3.5532E-04_JPRB,3.2587E-04_JPRB/)
+KBO( :, 3,41, 3) = (/&
+&4.3795E-05_JPRB,5.1265E-05_JPRB,2.1987E-04_JPRB,3.0577E-04_JPRB,3.5843E-04_JPRB,3.2638E-04_JPRB/)
+KBO( :, 4,41, 3) = (/&
+&4.7619E-05_JPRB,5.5462E-05_JPRB,2.2575E-04_JPRB,3.1023E-04_JPRB,3.6066E-04_JPRB,3.2506E-04_JPRB/)
+KBO( :, 5,41, 3) = (/&
+&5.1898E-05_JPRB,6.0154E-05_JPRB,2.3138E-04_JPRB,3.1463E-04_JPRB,3.6219E-04_JPRB,3.2225E-04_JPRB/)
+KBO( :, 1,42, 3) = (/&
+&3.0725E-05_JPRB,3.6043E-05_JPRB,1.7048E-04_JPRB,2.4228E-04_JPRB,2.8802E-04_JPRB,2.6497E-04_JPRB/)
+KBO( :, 2,42, 3) = (/&
+&3.2881E-05_JPRB,3.8663E-05_JPRB,1.7559E-04_JPRB,2.4716E-04_JPRB,2.9210E-04_JPRB,2.6748E-04_JPRB/)
+KBO( :, 3,42, 3) = (/&
+&3.5527E-05_JPRB,4.1681E-05_JPRB,1.8062E-04_JPRB,2.5152E-04_JPRB,2.9511E-04_JPRB,2.6841E-04_JPRB/)
+KBO( :, 4,42, 3) = (/&
+&3.8664E-05_JPRB,4.5134E-05_JPRB,1.8577E-04_JPRB,2.5564E-04_JPRB,2.9747E-04_JPRB,2.6786E-04_JPRB/)
+KBO( :, 5,42, 3) = (/&
+&4.2195E-05_JPRB,4.9021E-05_JPRB,1.9068E-04_JPRB,2.5970E-04_JPRB,2.9919E-04_JPRB,2.6599E-04_JPRB/)
+KBO( :, 1,43, 3) = (/&
+&2.4891E-05_JPRB,2.9187E-05_JPRB,1.3928E-04_JPRB,1.9831E-04_JPRB,2.3592E-04_JPRB,2.1675E-04_JPRB/)
+KBO( :, 2,43, 3) = (/&
+&2.6593E-05_JPRB,3.1301E-05_JPRB,1.4374E-04_JPRB,2.0272E-04_JPRB,2.3983E-04_JPRB,2.1942E-04_JPRB/)
+KBO( :, 3,43, 3) = (/&
+&2.8690E-05_JPRB,3.3747E-05_JPRB,1.4810E-04_JPRB,2.0668E-04_JPRB,2.4285E-04_JPRB,2.2071E-04_JPRB/)
+KBO( :, 4,43, 3) = (/&
+&3.1232E-05_JPRB,3.6547E-05_JPRB,1.5256E-04_JPRB,2.1038E-04_JPRB,2.4515E-04_JPRB,2.2071E-04_JPRB/)
+KBO( :, 5,43, 3) = (/&
+&3.4120E-05_JPRB,3.9743E-05_JPRB,1.5683E-04_JPRB,2.1407E-04_JPRB,2.4696E-04_JPRB,2.1958E-04_JPRB/)
+KBO( :, 1,44, 3) = (/&
+&2.0144E-05_JPRB,2.3605E-05_JPRB,1.1366E-04_JPRB,1.6217E-04_JPRB,1.9304E-04_JPRB,1.7720E-04_JPRB/)
+KBO( :, 2,44, 3) = (/&
+&2.1468E-05_JPRB,2.5288E-05_JPRB,1.1746E-04_JPRB,1.6601E-04_JPRB,1.9664E-04_JPRB,1.7978E-04_JPRB/)
+KBO( :, 3,44, 3) = (/&
+&2.3117E-05_JPRB,2.7255E-05_JPRB,1.2127E-04_JPRB,1.6962E-04_JPRB,1.9955E-04_JPRB,1.8133E-04_JPRB/)
+KBO( :, 4,44, 3) = (/&
+&2.5167E-05_JPRB,2.9525E-05_JPRB,1.2515E-04_JPRB,1.7298E-04_JPRB,2.0188E-04_JPRB,1.8182E-04_JPRB/)
+KBO( :, 5,44, 3) = (/&
+&2.7509E-05_JPRB,3.2133E-05_JPRB,1.2890E-04_JPRB,1.7631E-04_JPRB,2.0373E-04_JPRB,1.8128E-04_JPRB/)
+KBO( :, 1,45, 3) = (/&
+&1.6315E-05_JPRB,1.9099E-05_JPRB,9.2658E-05_JPRB,1.3247E-04_JPRB,1.5777E-04_JPRB,1.4481E-04_JPRB/)
+KBO( :, 2,45, 3) = (/&
+&1.7341E-05_JPRB,2.0427E-05_JPRB,9.5960E-05_JPRB,1.3596E-04_JPRB,1.6122E-04_JPRB,1.4738E-04_JPRB/)
+KBO( :, 3,45, 3) = (/&
+&1.8647E-05_JPRB,2.2022E-05_JPRB,9.9238E-05_JPRB,1.3912E-04_JPRB,1.6388E-04_JPRB,1.4901E-04_JPRB/)
+KBO( :, 4,45, 3) = (/&
+&2.0262E-05_JPRB,2.3840E-05_JPRB,1.0260E-04_JPRB,1.4211E-04_JPRB,1.6610E-04_JPRB,1.4980E-04_JPRB/)
+KBO( :, 5,45, 3) = (/&
+&2.2167E-05_JPRB,2.5969E-05_JPRB,1.0588E-04_JPRB,1.4512E-04_JPRB,1.6796E-04_JPRB,1.4976E-04_JPRB/)
+KBO( :, 1,46, 3) = (/&
+&1.3211E-05_JPRB,1.5446E-05_JPRB,7.5427E-05_JPRB,1.0806E-04_JPRB,1.2876E-04_JPRB,1.1821E-04_JPRB/)
+KBO( :, 2,46, 3) = (/&
+&1.3990E-05_JPRB,1.6470E-05_JPRB,7.8248E-05_JPRB,1.1113E-04_JPRB,1.3193E-04_JPRB,1.2064E-04_JPRB/)
+KBO( :, 3,46, 3) = (/&
+&1.5013E-05_JPRB,1.7753E-05_JPRB,8.1102E-05_JPRB,1.1397E-04_JPRB,1.3444E-04_JPRB,1.2234E-04_JPRB/)
+KBO( :, 4,46, 3) = (/&
+&1.6277E-05_JPRB,1.9210E-05_JPRB,8.3980E-05_JPRB,1.1663E-04_JPRB,1.3652E-04_JPRB,1.2338E-04_JPRB/)
+KBO( :, 5,46, 3) = (/&
+&1.7816E-05_JPRB,2.0932E-05_JPRB,8.6856E-05_JPRB,1.1931E-04_JPRB,1.3833E-04_JPRB,1.2371E-04_JPRB/)
+KBO( :, 1,47, 3) = (/&
+&1.0695E-05_JPRB,1.2476E-05_JPRB,6.1245E-05_JPRB,8.7921E-05_JPRB,1.0481E-04_JPRB,9.6236E-05_JPRB/)
+KBO( :, 2,47, 3) = (/&
+&1.1263E-05_JPRB,1.3243E-05_JPRB,6.3648E-05_JPRB,9.0656E-05_JPRB,1.0772E-04_JPRB,9.8519E-05_JPRB/)
+KBO( :, 3,47, 3) = (/&
+&1.2048E-05_JPRB,1.4259E-05_JPRB,6.6115E-05_JPRB,9.3168E-05_JPRB,1.1009E-04_JPRB,1.0023E-04_JPRB/)
+KBO( :, 4,47, 3) = (/&
+&1.3032E-05_JPRB,1.5427E-05_JPRB,6.8598E-05_JPRB,9.5568E-05_JPRB,1.1206E-04_JPRB,1.0142E-04_JPRB/)
+KBO( :, 5,47, 3) = (/&
+&1.4254E-05_JPRB,1.6795E-05_JPRB,7.1096E-05_JPRB,9.7934E-05_JPRB,1.1379E-04_JPRB,1.0199E-04_JPRB/)
+KBO( :, 1,48, 3) = (/&
+&8.6841E-06_JPRB,1.0096E-05_JPRB,4.9694E-05_JPRB,7.1452E-05_JPRB,8.5259E-05_JPRB,7.8307E-05_JPRB/)
+KBO( :, 2,48, 3) = (/&
+&9.0796E-06_JPRB,1.0659E-05_JPRB,5.1740E-05_JPRB,7.3900E-05_JPRB,8.7875E-05_JPRB,8.0451E-05_JPRB/)
+KBO( :, 3,48, 3) = (/&
+&9.6769E-06_JPRB,1.1450E-05_JPRB,5.3831E-05_JPRB,7.6095E-05_JPRB,9.0067E-05_JPRB,8.2117E-05_JPRB/)
+KBO( :, 4,48, 3) = (/&
+&1.0440E-05_JPRB,1.2385E-05_JPRB,5.5960E-05_JPRB,7.8221E-05_JPRB,9.1891E-05_JPRB,8.3379E-05_JPRB/)
+KBO( :, 5,48, 3) = (/&
+&1.1399E-05_JPRB,1.3468E-05_JPRB,5.8115E-05_JPRB,8.0301E-05_JPRB,9.3494E-05_JPRB,8.4132E-05_JPRB/)
+KBO( :, 1,49, 3) = (/&
+&7.0695E-06_JPRB,8.1883E-06_JPRB,4.0270E-05_JPRB,5.7981E-05_JPRB,6.9259E-05_JPRB,6.3681E-05_JPRB/)
+KBO( :, 2,49, 3) = (/&
+&7.3322E-06_JPRB,8.5897E-06_JPRB,4.2014E-05_JPRB,6.0156E-05_JPRB,7.1569E-05_JPRB,6.5714E-05_JPRB/)
+KBO( :, 3,49, 3) = (/&
+&7.7779E-06_JPRB,9.1932E-06_JPRB,4.3778E-05_JPRB,6.2075E-05_JPRB,7.3581E-05_JPRB,6.7311E-05_JPRB/)
+KBO( :, 4,49, 3) = (/&
+&8.3667E-06_JPRB,9.9391E-06_JPRB,4.5605E-05_JPRB,6.3945E-05_JPRB,7.5254E-05_JPRB,6.8602E-05_JPRB/)
+KBO( :, 5,49, 3) = (/&
+&9.1100E-06_JPRB,1.0797E-05_JPRB,4.7455E-05_JPRB,6.5783E-05_JPRB,7.6741E-05_JPRB,6.9496E-05_JPRB/)
+KBO( :, 1,50, 3) = (/&
+&5.7666E-06_JPRB,6.6617E-06_JPRB,3.2634E-05_JPRB,4.7026E-05_JPRB,5.6231E-05_JPRB,5.1646E-05_JPRB/)
+KBO( :, 2,50, 3) = (/&
+&5.9413E-06_JPRB,6.9423E-06_JPRB,3.4121E-05_JPRB,4.8951E-05_JPRB,5.8275E-05_JPRB,5.3533E-05_JPRB/)
+KBO( :, 3,50, 3) = (/&
+&6.2683E-06_JPRB,7.3972E-06_JPRB,3.5607E-05_JPRB,5.0641E-05_JPRB,6.0090E-05_JPRB,5.4999E-05_JPRB/)
+KBO( :, 4,50, 3) = (/&
+&6.7199E-06_JPRB,7.9879E-06_JPRB,3.7167E-05_JPRB,5.2275E-05_JPRB,6.1608E-05_JPRB,5.6235E-05_JPRB/)
+KBO( :, 5,50, 3) = (/&
+&7.3034E-06_JPRB,8.6808E-06_JPRB,3.8757E-05_JPRB,5.3881E-05_JPRB,6.2968E-05_JPRB,5.7167E-05_JPRB/)
+KBO( :, 1,51, 3) = (/&
+&4.7086E-06_JPRB,5.4299E-06_JPRB,2.6424E-05_JPRB,3.8115E-05_JPRB,4.5610E-05_JPRB,4.1794E-05_JPRB/)
+KBO( :, 2,51, 3) = (/&
+&4.8287E-06_JPRB,5.6240E-06_JPRB,2.7697E-05_JPRB,3.9799E-05_JPRB,4.7412E-05_JPRB,4.3512E-05_JPRB/)
+KBO( :, 3,51, 3) = (/&
+&5.0606E-06_JPRB,5.9604E-06_JPRB,2.8952E-05_JPRB,4.1290E-05_JPRB,4.9031E-05_JPRB,4.4849E-05_JPRB/)
+KBO( :, 4,51, 3) = (/&
+&5.4065E-06_JPRB,6.4263E-06_JPRB,3.0283E-05_JPRB,4.2717E-05_JPRB,5.0424E-05_JPRB,4.5995E-05_JPRB/)
+KBO( :, 5,51, 3) = (/&
+&5.8615E-06_JPRB,6.9820E-06_JPRB,3.1641E-05_JPRB,4.4120E-05_JPRB,5.1647E-05_JPRB,4.6912E-05_JPRB/)
+KBO( :, 1,52, 3) = (/&
+&3.8436E-06_JPRB,4.4274E-06_JPRB,2.1373E-05_JPRB,3.0858E-05_JPRB,3.6953E-05_JPRB,3.3785E-05_JPRB/)
+KBO( :, 2,52, 3) = (/&
+&3.9328E-06_JPRB,4.5651E-06_JPRB,2.2468E-05_JPRB,3.2320E-05_JPRB,3.8527E-05_JPRB,3.5353E-05_JPRB/)
+KBO( :, 3,52, 3) = (/&
+&4.0914E-06_JPRB,4.8085E-06_JPRB,2.3521E-05_JPRB,3.3631E-05_JPRB,3.9963E-05_JPRB,3.6585E-05_JPRB/)
+KBO( :, 4,52, 3) = (/&
+&4.3531E-06_JPRB,5.1701E-06_JPRB,2.4643E-05_JPRB,3.4861E-05_JPRB,4.1208E-05_JPRB,3.7630E-05_JPRB/)
+KBO( :, 5,52, 3) = (/&
+&4.7050E-06_JPRB,5.6131E-06_JPRB,2.5801E-05_JPRB,3.6084E-05_JPRB,4.2308E-05_JPRB,3.8507E-05_JPRB/)
+KBO( :, 1,53, 3) = (/&
+&3.1307E-06_JPRB,3.6090E-06_JPRB,1.7271E-05_JPRB,2.4948E-05_JPRB,2.9905E-05_JPRB,2.7291E-05_JPRB/)
+KBO( :, 2,53, 3) = (/&
+&3.2062E-06_JPRB,3.7126E-06_JPRB,1.8207E-05_JPRB,2.6210E-05_JPRB,3.1263E-05_JPRB,2.8728E-05_JPRB/)
+KBO( :, 3,53, 3) = (/&
+&3.3144E-06_JPRB,3.8844E-06_JPRB,1.9096E-05_JPRB,2.7367E-05_JPRB,3.2548E-05_JPRB,2.9869E-05_JPRB/)
+KBO( :, 4,53, 3) = (/&
+&3.5077E-06_JPRB,4.1595E-06_JPRB,2.0034E-05_JPRB,2.8427E-05_JPRB,3.3652E-05_JPRB,3.0823E-05_JPRB/)
+KBO( :, 5,53, 3) = (/&
+&3.7772E-06_JPRB,4.5101E-06_JPRB,2.1018E-05_JPRB,2.9487E-05_JPRB,3.4629E-05_JPRB,3.1664E-05_JPRB/)
+KBO( :, 1,54, 3) = (/&
+&2.5452E-06_JPRB,2.9417E-06_JPRB,1.3965E-05_JPRB,2.0178E-05_JPRB,2.4209E-05_JPRB,2.1911E-05_JPRB/)
+KBO( :, 2,54, 3) = (/&
+&2.6173E-06_JPRB,3.0265E-06_JPRB,1.4760E-05_JPRB,2.1266E-05_JPRB,2.5377E-05_JPRB,2.3188E-05_JPRB/)
+KBO( :, 3,54, 3) = (/&
+&2.6943E-06_JPRB,3.1475E-06_JPRB,1.5512E-05_JPRB,2.2269E-05_JPRB,2.6497E-05_JPRB,2.4193E-05_JPRB/)
+KBO( :, 4,54, 3) = (/&
+&2.8346E-06_JPRB,3.3549E-06_JPRB,1.6295E-05_JPRB,2.3183E-05_JPRB,2.7474E-05_JPRB,2.5015E-05_JPRB/)
+KBO( :, 5,54, 3) = (/&
+&3.0408E-06_JPRB,3.6324E-06_JPRB,1.7127E-05_JPRB,2.4100E-05_JPRB,2.8339E-05_JPRB,2.5745E-05_JPRB/)
+KBO( :, 1,55, 3) = (/&
+&2.0632E-06_JPRB,2.3940E-06_JPRB,1.1296E-05_JPRB,1.6316E-05_JPRB,1.9586E-05_JPRB,1.7519E-05_JPRB/)
+KBO( :, 2,55, 3) = (/&
+&2.1373E-06_JPRB,2.4691E-06_JPRB,1.1961E-05_JPRB,1.7242E-05_JPRB,2.0583E-05_JPRB,1.8621E-05_JPRB/)
+KBO( :, 3,55, 3) = (/&
+&2.1949E-06_JPRB,2.5561E-06_JPRB,1.2600E-05_JPRB,1.8111E-05_JPRB,2.1559E-05_JPRB,1.9499E-05_JPRB/)
+KBO( :, 4,55, 3) = (/&
+&2.2950E-06_JPRB,2.7109E-06_JPRB,1.3250E-05_JPRB,1.8899E-05_JPRB,2.2414E-05_JPRB,2.0198E-05_JPRB/)
+KBO( :, 5,55, 3) = (/&
+&2.4530E-06_JPRB,2.9291E-06_JPRB,1.3951E-05_JPRB,1.9686E-05_JPRB,2.3177E-05_JPRB,2.0800E-05_JPRB/)
+KBO( :, 1,56, 3) = (/&
+&1.6642E-06_JPRB,1.9426E-06_JPRB,9.1341E-06_JPRB,1.3181E-05_JPRB,1.5829E-05_JPRB,1.3992E-05_JPRB/)
+KBO( :, 2,56, 3) = (/&
+&1.7429E-06_JPRB,2.0139E-06_JPRB,9.6851E-06_JPRB,1.3963E-05_JPRB,1.6681E-05_JPRB,1.4936E-05_JPRB/)
+KBO( :, 3,56, 3) = (/&
+&1.7896E-06_JPRB,2.0795E-06_JPRB,1.0225E-05_JPRB,1.4716E-05_JPRB,1.7517E-05_JPRB,1.5702E-05_JPRB/)
+KBO( :, 4,56, 3) = (/&
+&1.8607E-06_JPRB,2.1923E-06_JPRB,1.0768E-05_JPRB,1.5397E-05_JPRB,1.8274E-05_JPRB,1.6306E-05_JPRB/)
+KBO( :, 5,56, 3) = (/&
+&1.9799E-06_JPRB,2.3617E-06_JPRB,1.1356E-05_JPRB,1.6070E-05_JPRB,1.8948E-05_JPRB,1.6801E-05_JPRB/)
+KBO( :, 1,57, 3) = (/&
+&1.3353E-06_JPRB,1.5730E-06_JPRB,7.3811E-06_JPRB,1.0640E-05_JPRB,1.2777E-05_JPRB,1.1158E-05_JPRB/)
+KBO( :, 2,57, 3) = (/&
+&1.4179E-06_JPRB,1.6416E-06_JPRB,7.8345E-06_JPRB,1.1296E-05_JPRB,1.3506E-05_JPRB,1.1962E-05_JPRB/)
+KBO( :, 3,57, 3) = (/&
+&1.4599E-06_JPRB,1.6939E-06_JPRB,8.2917E-06_JPRB,1.1945E-05_JPRB,1.4220E-05_JPRB,1.2633E-05_JPRB/)
+KBO( :, 4,57, 3) = (/&
+&1.5112E-06_JPRB,1.7747E-06_JPRB,8.7450E-06_JPRB,1.2531E-05_JPRB,1.4885E-05_JPRB,1.3158E-05_JPRB/)
+KBO( :, 5,57, 3) = (/&
+&1.5993E-06_JPRB,1.9047E-06_JPRB,9.2362E-06_JPRB,1.3103E-05_JPRB,1.5471E-05_JPRB,1.3571E-05_JPRB/)
+KBO( :, 1,58, 3) = (/&
+&1.0682E-06_JPRB,1.2707E-06_JPRB,5.9673E-06_JPRB,8.5915E-06_JPRB,1.0313E-05_JPRB,8.8875E-06_JPRB/)
+KBO( :, 2,58, 3) = (/&
+&1.1510E-06_JPRB,1.3372E-06_JPRB,6.3383E-06_JPRB,9.1371E-06_JPRB,1.0932E-05_JPRB,9.5717E-06_JPRB/)
+KBO( :, 3,58, 3) = (/&
+&1.1918E-06_JPRB,1.3813E-06_JPRB,6.7246E-06_JPRB,9.6935E-06_JPRB,1.1539E-05_JPRB,1.0149E-05_JPRB/)
+KBO( :, 4,58, 3) = (/&
+&1.2303E-06_JPRB,1.4399E-06_JPRB,7.1031E-06_JPRB,1.0198E-05_JPRB,1.2120E-05_JPRB,1.0603E-05_JPRB/)
+KBO( :, 5,58, 3) = (/&
+&1.2943E-06_JPRB,1.5387E-06_JPRB,7.5113E-06_JPRB,1.0682E-05_JPRB,1.2629E-05_JPRB,1.0955E-05_JPRB/)
+KBO( :, 1,59, 3) = (/&
+&8.6844E-07_JPRB,1.0371E-06_JPRB,4.8749E-06_JPRB,7.0111E-06_JPRB,8.4115E-06_JPRB,7.1461E-06_JPRB/)
+KBO( :, 2,59, 3) = (/&
+&9.4083E-07_JPRB,1.0954E-06_JPRB,5.1836E-06_JPRB,7.4691E-06_JPRB,8.9328E-06_JPRB,7.7016E-06_JPRB/)
+KBO( :, 3,59, 3) = (/&
+&9.7741E-07_JPRB,1.1331E-06_JPRB,5.5070E-06_JPRB,7.9393E-06_JPRB,9.4488E-06_JPRB,8.1607E-06_JPRB/)
+KBO( :, 4,59, 3) = (/&
+&1.0092E-06_JPRB,1.1806E-06_JPRB,5.8246E-06_JPRB,8.3651E-06_JPRB,9.9432E-06_JPRB,8.5246E-06_JPRB/)
+KBO( :, 5,59, 3) = (/&
+&1.0602E-06_JPRB,1.2608E-06_JPRB,6.1682E-06_JPRB,8.7778E-06_JPRB,1.0376E-05_JPRB,8.8030E-06_JPRB/)
+KBO( :, 1,13, 4) = (/&
+&1.1944E-02_JPRB,1.2168E-02_JPRB,5.9922E-02_JPRB,8.9367E-02_JPRB,1.1074E-01_JPRB,1.1944E-01_JPRB/)
+KBO( :, 2,13, 4) = (/&
+&1.2086E-02_JPRB,1.2304E-02_JPRB,6.1460E-02_JPRB,9.1456E-02_JPRB,1.1344E-01_JPRB,1.2412E-01_JPRB/)
+KBO( :, 3,13, 4) = (/&
+&1.2357E-02_JPRB,1.2570E-02_JPRB,6.2887E-02_JPRB,9.3358E-02_JPRB,1.1570E-01_JPRB,1.2845E-01_JPRB/)
+KBO( :, 4,13, 4) = (/&
+&1.2729E-02_JPRB,1.2937E-02_JPRB,6.4147E-02_JPRB,9.5013E-02_JPRB,1.1762E-01_JPRB,1.3226E-01_JPRB/)
+KBO( :, 5,13, 4) = (/&
+&1.3238E-02_JPRB,1.3440E-02_JPRB,6.5153E-02_JPRB,9.6392E-02_JPRB,1.1918E-01_JPRB,1.3570E-01_JPRB/)
+KBO( :, 1,14, 4) = (/&
+&1.0012E-02_JPRB,1.0247E-02_JPRB,5.2975E-02_JPRB,7.8942E-02_JPRB,9.7346E-02_JPRB,1.0368E-01_JPRB/)
+KBO( :, 2,14, 4) = (/&
+&1.0180E-02_JPRB,1.0410E-02_JPRB,5.4409E-02_JPRB,8.0856E-02_JPRB,9.9740E-02_JPRB,1.0751E-01_JPRB/)
+KBO( :, 3,14, 4) = (/&
+&1.0467E-02_JPRB,1.0689E-02_JPRB,5.5693E-02_JPRB,8.2579E-02_JPRB,1.0188E-01_JPRB,1.1093E-01_JPRB/)
+KBO( :, 4,14, 4) = (/&
+&1.0854E-02_JPRB,1.1067E-02_JPRB,5.6775E-02_JPRB,8.4028E-02_JPRB,1.0368E-01_JPRB,1.1389E-01_JPRB/)
+KBO( :, 5,14, 4) = (/&
+&1.1343E-02_JPRB,1.1549E-02_JPRB,5.7714E-02_JPRB,8.5292E-02_JPRB,1.0511E-01_JPRB,1.1652E-01_JPRB/)
+KBO( :, 1,15, 4) = (/&
+&8.3778E-03_JPRB,8.6309E-03_JPRB,4.6498E-02_JPRB,6.9169E-02_JPRB,8.4926E-02_JPRB,8.9479E-02_JPRB/)
+KBO( :, 2,15, 4) = (/&
+&8.5667E-03_JPRB,8.8101E-03_JPRB,4.7757E-02_JPRB,7.0912E-02_JPRB,8.7130E-02_JPRB,9.2622E-02_JPRB/)
+KBO( :, 3,15, 4) = (/&
+&8.8588E-03_JPRB,9.0893E-03_JPRB,4.8864E-02_JPRB,7.2379E-02_JPRB,8.9054E-02_JPRB,9.5411E-02_JPRB/)
+KBO( :, 4,15, 4) = (/&
+&9.2397E-03_JPRB,9.4599E-03_JPRB,4.9829E-02_JPRB,7.3692E-02_JPRB,9.0686E-02_JPRB,9.7794E-02_JPRB/)
+KBO( :, 5,15, 4) = (/&
+&9.6728E-03_JPRB,9.8843E-03_JPRB,5.0711E-02_JPRB,7.4868E-02_JPRB,9.2000E-02_JPRB,9.9673E-02_JPRB/)
+KBO( :, 1,16, 4) = (/&
+&7.0032E-03_JPRB,7.2800E-03_JPRB,4.0493E-02_JPRB,6.0087E-02_JPRB,7.3654E-02_JPRB,7.6847E-02_JPRB/)
+KBO( :, 2,16, 4) = (/&
+&7.2046E-03_JPRB,7.4657E-03_JPRB,4.1559E-02_JPRB,6.1552E-02_JPRB,7.5591E-02_JPRB,7.9522E-02_JPRB/)
+KBO( :, 3,16, 4) = (/&
+&7.4951E-03_JPRB,7.7408E-03_JPRB,4.2525E-02_JPRB,6.2872E-02_JPRB,7.7303E-02_JPRB,8.1850E-02_JPRB/)
+KBO( :, 4,16, 4) = (/&
+&7.8374E-03_JPRB,8.0731E-03_JPRB,4.3431E-02_JPRB,6.4066E-02_JPRB,7.8697E-02_JPRB,8.3564E-02_JPRB/)
+KBO( :, 5,16, 4) = (/&
+&8.2028E-03_JPRB,8.4261E-03_JPRB,4.4256E-02_JPRB,6.5005E-02_JPRB,7.9598E-02_JPRB,8.4430E-02_JPRB/)
+KBO( :, 1,17, 4) = (/&
+&5.8518E-03_JPRB,6.1531E-03_JPRB,3.4959E-02_JPRB,5.1741E-02_JPRB,6.3466E-02_JPRB,6.5605E-02_JPRB/)
+KBO( :, 2,17, 4) = (/&
+&6.0575E-03_JPRB,6.3417E-03_JPRB,3.5874E-02_JPRB,5.3013E-02_JPRB,6.5151E-02_JPRB,6.7823E-02_JPRB/)
+KBO( :, 3,17, 4) = (/&
+&6.3232E-03_JPRB,6.5951E-03_JPRB,3.6761E-02_JPRB,5.4168E-02_JPRB,6.6560E-02_JPRB,6.9496E-02_JPRB/)
+KBO( :, 4,17, 4) = (/&
+&6.6221E-03_JPRB,6.8782E-03_JPRB,3.7567E-02_JPRB,5.5100E-02_JPRB,6.7478E-02_JPRB,7.0358E-02_JPRB/)
+KBO( :, 5,17, 4) = (/&
+&6.9347E-03_JPRB,7.1778E-03_JPRB,3.8256E-02_JPRB,5.5641E-02_JPRB,6.7818E-02_JPRB,7.0537E-02_JPRB/)
+KBO( :, 1,18, 4) = (/&
+&4.8880E-03_JPRB,5.2055E-03_JPRB,2.9960E-02_JPRB,4.4255E-02_JPRB,5.4342E-02_JPRB,5.5684E-02_JPRB/)
+KBO( :, 2,18, 4) = (/&
+&5.0836E-03_JPRB,5.3884E-03_JPRB,3.0780E-02_JPRB,4.5359E-02_JPRB,5.5706E-02_JPRB,5.7297E-02_JPRB/)
+KBO( :, 3,18, 4) = (/&
+&5.3194E-03_JPRB,5.6126E-03_JPRB,3.1543E-02_JPRB,4.6238E-02_JPRB,5.6632E-02_JPRB,5.8242E-02_JPRB/)
+KBO( :, 4,18, 4) = (/&
+&5.5796E-03_JPRB,5.8558E-03_JPRB,3.2190E-02_JPRB,4.6796E-02_JPRB,5.7064E-02_JPRB,5.8579E-02_JPRB/)
+KBO( :, 5,18, 4) = (/&
+&5.8422E-03_JPRB,6.1083E-03_JPRB,3.2701E-02_JPRB,4.7066E-02_JPRB,5.7105E-02_JPRB,5.8483E-02_JPRB/)
+KBO( :, 1,19, 4) = (/&
+&4.0830E-03_JPRB,4.4003E-03_JPRB,2.5536E-02_JPRB,3.7635E-02_JPRB,4.6188E-02_JPRB,4.6830E-02_JPRB/)
+KBO( :, 2,19, 4) = (/&
+&4.2621E-03_JPRB,4.5739E-03_JPRB,2.6225E-02_JPRB,3.8473E-02_JPRB,4.7113E-02_JPRB,4.7821E-02_JPRB/)
+KBO( :, 3,19, 4) = (/&
+&4.4701E-03_JPRB,4.7726E-03_JPRB,2.6827E-02_JPRB,3.9028E-02_JPRB,4.7627E-02_JPRB,4.8310E-02_JPRB/)
+KBO( :, 4,19, 4) = (/&
+&4.6836E-03_JPRB,4.9742E-03_JPRB,2.7306E-02_JPRB,3.9355E-02_JPRB,4.7801E-02_JPRB,4.8408E-02_JPRB/)
+KBO( :, 5,19, 4) = (/&
+&4.9101E-03_JPRB,5.1908E-03_JPRB,2.7671E-02_JPRB,3.9547E-02_JPRB,4.7738E-02_JPRB,4.8196E-02_JPRB/)
+KBO( :, 1,20, 4) = (/&
+&3.4183E-03_JPRB,3.7281E-03_JPRB,2.1635E-02_JPRB,3.1767E-02_JPRB,3.8910E-02_JPRB,3.9035E-02_JPRB/)
+KBO( :, 2,20, 4) = (/&
+&3.5755E-03_JPRB,3.8847E-03_JPRB,2.2172E-02_JPRB,3.2321E-02_JPRB,3.9468E-02_JPRB,3.9630E-02_JPRB/)
+KBO( :, 3,20, 4) = (/&
+&3.7470E-03_JPRB,4.0489E-03_JPRB,2.2621E-02_JPRB,3.2676E-02_JPRB,3.9755E-02_JPRB,3.9891E-02_JPRB/)
+KBO( :, 4,20, 4) = (/&
+&3.9257E-03_JPRB,4.2203E-03_JPRB,2.2997E-02_JPRB,3.2924E-02_JPRB,3.9820E-02_JPRB,3.9868E-02_JPRB/)
+KBO( :, 5,20, 4) = (/&
+&4.1248E-03_JPRB,4.4107E-03_JPRB,2.3239E-02_JPRB,3.3086E-02_JPRB,3.9734E-02_JPRB,3.9622E-02_JPRB/)
+KBO( :, 1,21, 4) = (/&
+&2.8606E-03_JPRB,3.1596E-03_JPRB,1.8191E-02_JPRB,2.6601E-02_JPRB,3.2515E-02_JPRB,3.2317E-02_JPRB/)
+KBO( :, 2,21, 4) = (/&
+&2.9928E-03_JPRB,3.2930E-03_JPRB,1.8598E-02_JPRB,2.6970E-02_JPRB,3.2866E-02_JPRB,3.2699E-02_JPRB/)
+KBO( :, 3,21, 4) = (/&
+&3.1369E-03_JPRB,3.4309E-03_JPRB,1.8968E-02_JPRB,2.7247E-02_JPRB,3.3035E-02_JPRB,3.2834E-02_JPRB/)
+KBO( :, 4,21, 4) = (/&
+&3.2911E-03_JPRB,3.5807E-03_JPRB,1.9242E-02_JPRB,2.7455E-02_JPRB,3.3060E-02_JPRB,3.2754E-02_JPRB/)
+KBO( :, 5,21, 4) = (/&
+&3.4660E-03_JPRB,3.7486E-03_JPRB,1.9402E-02_JPRB,2.7577E-02_JPRB,3.2988E-02_JPRB,3.2505E-02_JPRB/)
+KBO( :, 1,22, 4) = (/&
+&2.3958E-03_JPRB,2.6786E-03_JPRB,1.5221E-02_JPRB,2.2163E-02_JPRB,2.7039E-02_JPRB,2.6675E-02_JPRB/)
+KBO( :, 2,22, 4) = (/&
+&2.5089E-03_JPRB,2.7922E-03_JPRB,1.5555E-02_JPRB,2.2444E-02_JPRB,2.7268E-02_JPRB,2.6915E-02_JPRB/)
+KBO( :, 3,22, 4) = (/&
+&2.6330E-03_JPRB,2.9125E-03_JPRB,1.5842E-02_JPRB,2.2675E-02_JPRB,2.7372E-02_JPRB,2.6968E-02_JPRB/)
+KBO( :, 4,22, 4) = (/&
+&2.7694E-03_JPRB,3.0464E-03_JPRB,1.6030E-02_JPRB,2.2843E-02_JPRB,2.7392E-02_JPRB,2.6856E-02_JPRB/)
+KBO( :, 5,22, 4) = (/&
+&2.9232E-03_JPRB,3.1956E-03_JPRB,1.6145E-02_JPRB,2.2906E-02_JPRB,2.7331E-02_JPRB,2.6610E-02_JPRB/)
+KBO( :, 1,23, 4) = (/&
+&2.0042E-03_JPRB,2.2640E-03_JPRB,1.2690E-02_JPRB,1.8401E-02_JPRB,2.2404E-02_JPRB,2.1959E-02_JPRB/)
+KBO( :, 2,23, 4) = (/&
+&2.1023E-03_JPRB,2.3617E-03_JPRB,1.2965E-02_JPRB,1.8637E-02_JPRB,2.2564E-02_JPRB,2.2109E-02_JPRB/)
+KBO( :, 3,23, 4) = (/&
+&2.2103E-03_JPRB,2.4685E-03_JPRB,1.3173E-02_JPRB,1.8833E-02_JPRB,2.2645E-02_JPRB,2.2108E-02_JPRB/)
+KBO( :, 4,23, 4) = (/&
+&2.3303E-03_JPRB,2.5871E-03_JPRB,1.3312E-02_JPRB,1.8940E-02_JPRB,2.2663E-02_JPRB,2.1985E-02_JPRB/)
+KBO( :, 5,23, 4) = (/&
+&2.4661E-03_JPRB,2.7218E-03_JPRB,1.3399E-02_JPRB,1.8972E-02_JPRB,2.2604E-02_JPRB,2.1760E-02_JPRB/)
+KBO( :, 1,24, 4) = (/&
+&1.6762E-03_JPRB,1.9090E-03_JPRB,1.0559E-02_JPRB,1.5252E-02_JPRB,1.8521E-02_JPRB,1.8042E-02_JPRB/)
+KBO( :, 2,24, 4) = (/&
+&1.7614E-03_JPRB,1.9932E-03_JPRB,1.0770E-02_JPRB,1.5455E-02_JPRB,1.8647E-02_JPRB,1.8128E-02_JPRB/)
+KBO( :, 3,24, 4) = (/&
+&1.8564E-03_JPRB,2.0890E-03_JPRB,1.0927E-02_JPRB,1.5598E-02_JPRB,1.8716E-02_JPRB,1.8097E-02_JPRB/)
+KBO( :, 4,24, 4) = (/&
+&1.9618E-03_JPRB,2.1951E-03_JPRB,1.1029E-02_JPRB,1.5669E-02_JPRB,1.8728E-02_JPRB,1.7971E-02_JPRB/)
+KBO( :, 5,24, 4) = (/&
+&2.0788E-03_JPRB,2.3139E-03_JPRB,1.1094E-02_JPRB,1.5685E-02_JPRB,1.8656E-02_JPRB,1.7765E-02_JPRB/)
+KBO( :, 1,25, 4) = (/&
+&1.4025E-03_JPRB,1.6067E-03_JPRB,8.7676E-03_JPRB,1.2632E-02_JPRB,1.5295E-02_JPRB,1.4808E-02_JPRB/)
+KBO( :, 2,25, 4) = (/&
+&1.4767E-03_JPRB,1.6810E-03_JPRB,8.9285E-03_JPRB,1.2792E-02_JPRB,1.5398E-02_JPRB,1.4849E-02_JPRB/)
+KBO( :, 3,25, 4) = (/&
+&1.5600E-03_JPRB,1.7664E-03_JPRB,9.0451E-03_JPRB,1.2893E-02_JPRB,1.5458E-02_JPRB,1.4803E-02_JPRB/)
+KBO( :, 4,25, 4) = (/&
+&1.6518E-03_JPRB,1.8613E-03_JPRB,9.1218E-03_JPRB,1.2945E-02_JPRB,1.5449E-02_JPRB,1.4682E-02_JPRB/)
+KBO( :, 5,25, 4) = (/&
+&1.7503E-03_JPRB,1.9622E-03_JPRB,9.1788E-03_JPRB,1.2954E-02_JPRB,1.5378E-02_JPRB,1.4496E-02_JPRB/)
+KBO( :, 1,26, 4) = (/&
+&1.1743E-03_JPRB,1.3515E-03_JPRB,7.2680E-03_JPRB,1.0453E-02_JPRB,1.2624E-02_JPRB,1.2143E-02_JPRB/)
+KBO( :, 2,26, 4) = (/&
+&1.2397E-03_JPRB,1.4187E-03_JPRB,7.3884E-03_JPRB,1.0572E-02_JPRB,1.2713E-02_JPRB,1.2158E-02_JPRB/)
+KBO( :, 3,26, 4) = (/&
+&1.3121E-03_JPRB,1.4944E-03_JPRB,7.4769E-03_JPRB,1.0647E-02_JPRB,1.2748E-02_JPRB,1.2101E-02_JPRB/)
+KBO( :, 4,26, 4) = (/&
+&1.3904E-03_JPRB,1.5774E-03_JPRB,7.5401E-03_JPRB,1.0684E-02_JPRB,1.2728E-02_JPRB,1.1986E-02_JPRB/)
+KBO( :, 5,26, 4) = (/&
+&1.4736E-03_JPRB,1.6625E-03_JPRB,7.5925E-03_JPRB,1.0683E-02_JPRB,1.2662E-02_JPRB,1.1823E-02_JPRB/)
+KBO( :, 1,27, 4) = (/&
+&9.8402E-04_JPRB,1.1373E-03_JPRB,6.0162E-03_JPRB,8.6394E-03_JPRB,1.0419E-02_JPRB,9.9561E-03_JPRB/)
+KBO( :, 2,27, 4) = (/&
+&1.0411E-03_JPRB,1.1972E-03_JPRB,6.1086E-03_JPRB,8.7287E-03_JPRB,1.0483E-02_JPRB,9.9519E-03_JPRB/)
+KBO( :, 3,27, 4) = (/&
+&1.1029E-03_JPRB,1.2633E-03_JPRB,6.1781E-03_JPRB,8.7827E-03_JPRB,1.0501E-02_JPRB,9.8918E-03_JPRB/)
+KBO( :, 4,27, 4) = (/&
+&1.1695E-03_JPRB,1.3344E-03_JPRB,6.2341E-03_JPRB,8.8083E-03_JPRB,1.0478E-02_JPRB,9.7857E-03_JPRB/)
+KBO( :, 5,27, 4) = (/&
+&1.2409E-03_JPRB,1.4079E-03_JPRB,6.2822E-03_JPRB,8.8079E-03_JPRB,1.0418E-02_JPRB,9.6453E-03_JPRB/)
+KBO( :, 1,28, 4) = (/&
+&8.2502E-04_JPRB,9.5751E-04_JPRB,4.9758E-03_JPRB,7.1338E-03_JPRB,8.5938E-03_JPRB,8.1599E-03_JPRB/)
+KBO( :, 2,28, 4) = (/&
+&8.7450E-04_JPRB,1.0105E-03_JPRB,5.0486E-03_JPRB,7.1996E-03_JPRB,8.6369E-03_JPRB,8.1441E-03_JPRB/)
+KBO( :, 3,28, 4) = (/&
+&9.2664E-04_JPRB,1.0674E-03_JPRB,5.1070E-03_JPRB,7.2390E-03_JPRB,8.6457E-03_JPRB,8.0849E-03_JPRB/)
+KBO( :, 4,28, 4) = (/&
+&9.8426E-04_JPRB,1.1287E-03_JPRB,5.1587E-03_JPRB,7.2593E-03_JPRB,8.6218E-03_JPRB,7.9907E-03_JPRB/)
+KBO( :, 5,28, 4) = (/&
+&1.0460E-03_JPRB,1.1932E-03_JPRB,5.2066E-03_JPRB,7.2612E-03_JPRB,8.5694E-03_JPRB,7.8705E-03_JPRB/)
+KBO( :, 1,29, 4) = (/&
+&6.9236E-04_JPRB,8.0674E-04_JPRB,4.1133E-03_JPRB,5.8863E-03_JPRB,7.0815E-03_JPRB,6.6900E-03_JPRB/)
+KBO( :, 2,29, 4) = (/&
+&7.3441E-04_JPRB,8.5270E-04_JPRB,4.1735E-03_JPRB,5.9349E-03_JPRB,7.1122E-03_JPRB,6.6683E-03_JPRB/)
+KBO( :, 3,29, 4) = (/&
+&7.7930E-04_JPRB,9.0247E-04_JPRB,4.2252E-03_JPRB,5.9662E-03_JPRB,7.1136E-03_JPRB,6.6140E-03_JPRB/)
+KBO( :, 4,29, 4) = (/&
+&8.2905E-04_JPRB,9.5490E-04_JPRB,4.2746E-03_JPRB,5.9835E-03_JPRB,7.0898E-03_JPRB,6.5328E-03_JPRB/)
+KBO( :, 5,29, 4) = (/&
+&8.8288E-04_JPRB,1.0121E-03_JPRB,4.3168E-03_JPRB,5.9898E-03_JPRB,7.0475E-03_JPRB,6.4307E-03_JPRB/)
+KBO( :, 1,30, 4) = (/&
+&5.8109E-04_JPRB,6.7992E-04_JPRB,3.4007E-03_JPRB,4.8546E-03_JPRB,5.8338E-03_JPRB,5.4857E-03_JPRB/)
+KBO( :, 2,30, 4) = (/&
+&6.1672E-04_JPRB,7.1953E-04_JPRB,3.4531E-03_JPRB,4.8921E-03_JPRB,5.8538E-03_JPRB,5.4623E-03_JPRB/)
+KBO( :, 3,30, 4) = (/&
+&6.5564E-04_JPRB,7.6235E-04_JPRB,3.5001E-03_JPRB,4.9200E-03_JPRB,5.8508E-03_JPRB,5.4136E-03_JPRB/)
+KBO( :, 4,30, 4) = (/&
+&6.9916E-04_JPRB,8.0837E-04_JPRB,3.5445E-03_JPRB,4.9361E-03_JPRB,5.8315E-03_JPRB,5.3448E-03_JPRB/)
+KBO( :, 5,30, 4) = (/&
+&7.4588E-04_JPRB,8.5907E-04_JPRB,3.5814E-03_JPRB,4.9470E-03_JPRB,5.7972E-03_JPRB,5.2575E-03_JPRB/)
+KBO( :, 1,31, 4) = (/&
+&4.8773E-04_JPRB,5.7298E-04_JPRB,2.8142E-03_JPRB,4.0034E-03_JPRB,4.8046E-03_JPRB,4.5018E-03_JPRB/)
+KBO( :, 2,31, 4) = (/&
+&5.1790E-04_JPRB,6.0687E-04_JPRB,2.8592E-03_JPRB,4.0352E-03_JPRB,4.8163E-03_JPRB,4.4785E-03_JPRB/)
+KBO( :, 3,31, 4) = (/&
+&5.5259E-04_JPRB,6.4420E-04_JPRB,2.9026E-03_JPRB,4.0596E-03_JPRB,4.8128E-03_JPRB,4.4370E-03_JPRB/)
+KBO( :, 4,31, 4) = (/&
+&5.9027E-04_JPRB,6.8473E-04_JPRB,2.9396E-03_JPRB,4.0779E-03_JPRB,4.7972E-03_JPRB,4.3789E-03_JPRB/)
+KBO( :, 5,31, 4) = (/&
+&6.3109E-04_JPRB,7.2996E-04_JPRB,2.9730E-03_JPRB,4.0892E-03_JPRB,4.7703E-03_JPRB,4.3063E-03_JPRB/)
+KBO( :, 1,32, 4) = (/&
+&4.0943E-04_JPRB,4.8260E-04_JPRB,2.3307E-03_JPRB,3.3026E-03_JPRB,3.9553E-03_JPRB,3.6951E-03_JPRB/)
+KBO( :, 2,32, 4) = (/&
+&4.3585E-04_JPRB,5.1194E-04_JPRB,2.3706E-03_JPRB,3.3307E-03_JPRB,3.9627E-03_JPRB,3.6751E-03_JPRB/)
+KBO( :, 3,32, 4) = (/&
+&4.6644E-04_JPRB,5.4471E-04_JPRB,2.4075E-03_JPRB,3.3544E-03_JPRB,3.9608E-03_JPRB,3.6388E-03_JPRB/)
+KBO( :, 4,32, 4) = (/&
+&4.9918E-04_JPRB,5.8045E-04_JPRB,2.4395E-03_JPRB,3.3725E-03_JPRB,3.9485E-03_JPRB,3.5900E-03_JPRB/)
+KBO( :, 5,32, 4) = (/&
+&5.3458E-04_JPRB,6.2069E-04_JPRB,2.4710E-03_JPRB,3.3839E-03_JPRB,3.9292E-03_JPRB,3.5299E-03_JPRB/)
+KBO( :, 1,33, 4) = (/&
+&3.4410E-04_JPRB,4.0654E-04_JPRB,1.9317E-03_JPRB,2.7269E-03_JPRB,3.2560E-03_JPRB,3.0357E-03_JPRB/)
+KBO( :, 2,33, 4) = (/&
+&3.6780E-04_JPRB,4.3231E-04_JPRB,1.9669E-03_JPRB,2.7524E-03_JPRB,3.2622E-03_JPRB,3.0171E-03_JPRB/)
+KBO( :, 3,33, 4) = (/&
+&3.9422E-04_JPRB,4.6103E-04_JPRB,1.9979E-03_JPRB,2.7749E-03_JPRB,3.2617E-03_JPRB,2.9869E-03_JPRB/)
+KBO( :, 4,33, 4) = (/&
+&4.2274E-04_JPRB,4.9289E-04_JPRB,2.0268E-03_JPRB,2.7910E-03_JPRB,3.2533E-03_JPRB,2.9461E-03_JPRB/)
+KBO( :, 5,33, 4) = (/&
+&4.5356E-04_JPRB,5.2826E-04_JPRB,2.0558E-03_JPRB,2.8026E-03_JPRB,3.2388E-03_JPRB,2.8971E-03_JPRB/)
+KBO( :, 1,34, 4) = (/&
+&2.8907E-04_JPRB,3.4197E-04_JPRB,1.6017E-03_JPRB,2.2527E-03_JPRB,2.6816E-03_JPRB,2.4934E-03_JPRB/)
+KBO( :, 2,34, 4) = (/&
+&3.0999E-04_JPRB,3.6459E-04_JPRB,1.6314E-03_JPRB,2.2770E-03_JPRB,2.6881E-03_JPRB,2.4774E-03_JPRB/)
+KBO( :, 3,34, 4) = (/&
+&3.3292E-04_JPRB,3.8989E-04_JPRB,1.6587E-03_JPRB,2.2965E-03_JPRB,2.6882E-03_JPRB,2.4516E-03_JPRB/)
+KBO( :, 4,34, 4) = (/&
+&3.5758E-04_JPRB,4.1817E-04_JPRB,1.6851E-03_JPRB,2.3118E-03_JPRB,2.6837E-03_JPRB,2.4183E-03_JPRB/)
+KBO( :, 5,34, 4) = (/&
+&3.8443E-04_JPRB,4.4891E-04_JPRB,1.7117E-03_JPRB,2.3241E-03_JPRB,2.6734E-03_JPRB,2.3789E-03_JPRB/)
+KBO( :, 1,35, 4) = (/&
+&2.4163E-04_JPRB,2.8613E-04_JPRB,1.3262E-03_JPRB,1.8610E-03_JPRB,2.2092E-03_JPRB,2.0492E-03_JPRB/)
+KBO( :, 2,35, 4) = (/&
+&2.5980E-04_JPRB,3.0590E-04_JPRB,1.3518E-03_JPRB,1.8829E-03_JPRB,2.2161E-03_JPRB,2.0364E-03_JPRB/)
+KBO( :, 3,35, 4) = (/&
+&2.7948E-04_JPRB,3.2806E-04_JPRB,1.3762E-03_JPRB,1.9000E-03_JPRB,2.2186E-03_JPRB,2.0149E-03_JPRB/)
+KBO( :, 4,35, 4) = (/&
+&3.0066E-04_JPRB,3.5268E-04_JPRB,1.4004E-03_JPRB,1.9149E-03_JPRB,2.2165E-03_JPRB,1.9889E-03_JPRB/)
+KBO( :, 5,35, 4) = (/&
+&3.2401E-04_JPRB,3.7942E-04_JPRB,1.4250E-03_JPRB,1.9278E-03_JPRB,2.2099E-03_JPRB,1.9578E-03_JPRB/)
+KBO( :, 1,36, 4) = (/&
+&2.0066E-04_JPRB,2.3797E-04_JPRB,1.0962E-03_JPRB,1.5363E-03_JPRB,1.8202E-03_JPRB,1.6851E-03_JPRB/)
+KBO( :, 2,36, 4) = (/&
+&2.1623E-04_JPRB,2.5498E-04_JPRB,1.1188E-03_JPRB,1.5557E-03_JPRB,1.8279E-03_JPRB,1.6749E-03_JPRB/)
+KBO( :, 3,36, 4) = (/&
+&2.3303E-04_JPRB,2.7423E-04_JPRB,1.1407E-03_JPRB,1.5718E-03_JPRB,1.8325E-03_JPRB,1.6591E-03_JPRB/)
+KBO( :, 4,36, 4) = (/&
+&2.5102E-04_JPRB,2.9534E-04_JPRB,1.1626E-03_JPRB,1.5863E-03_JPRB,1.8324E-03_JPRB,1.6382E-03_JPRB/)
+KBO( :, 5,36, 4) = (/&
+&2.7107E-04_JPRB,3.1839E-04_JPRB,1.1850E-03_JPRB,1.5990E-03_JPRB,1.8295E-03_JPRB,1.6138E-03_JPRB/)
+KBO( :, 1,37, 4) = (/&
+&1.6489E-04_JPRB,1.9598E-04_JPRB,9.0338E-04_JPRB,1.2660E-03_JPRB,1.4992E-03_JPRB,1.3858E-03_JPRB/)
+KBO( :, 2,37, 4) = (/&
+&1.7800E-04_JPRB,2.1035E-04_JPRB,9.2319E-04_JPRB,1.2835E-03_JPRB,1.5078E-03_JPRB,1.3789E-03_JPRB/)
+KBO( :, 3,37, 4) = (/&
+&1.9213E-04_JPRB,2.2670E-04_JPRB,9.4286E-04_JPRB,1.2987E-03_JPRB,1.5138E-03_JPRB,1.3673E-03_JPRB/)
+KBO( :, 4,37, 4) = (/&
+&2.0731E-04_JPRB,2.4467E-04_JPRB,9.6260E-04_JPRB,1.3129E-03_JPRB,1.5159E-03_JPRB,1.3520E-03_JPRB/)
+KBO( :, 5,37, 4) = (/&
+&2.2426E-04_JPRB,2.6433E-04_JPRB,9.8317E-04_JPRB,1.3255E-03_JPRB,1.5160E-03_JPRB,1.3330E-03_JPRB/)
+KBO( :, 1,38, 4) = (/&
+&1.3545E-04_JPRB,1.6133E-04_JPRB,7.4423E-04_JPRB,1.0430E-03_JPRB,1.2345E-03_JPRB,1.1400E-03_JPRB/)
+KBO( :, 2,38, 4) = (/&
+&1.4647E-04_JPRB,1.7346E-04_JPRB,7.6176E-04_JPRB,1.0590E-03_JPRB,1.2440E-03_JPRB,1.1357E-03_JPRB/)
+KBO( :, 3,38, 4) = (/&
+&1.5834E-04_JPRB,1.8731E-04_JPRB,7.7933E-04_JPRB,1.0731E-03_JPRB,1.2505E-03_JPRB,1.1275E-03_JPRB/)
+KBO( :, 4,38, 4) = (/&
+&1.7112E-04_JPRB,2.0254E-04_JPRB,7.9709E-04_JPRB,1.0866E-03_JPRB,1.2542E-03_JPRB,1.1163E-03_JPRB/)
+KBO( :, 5,38, 4) = (/&
+&1.8543E-04_JPRB,2.1932E-04_JPRB,8.1567E-04_JPRB,1.0989E-03_JPRB,1.2562E-03_JPRB,1.1014E-03_JPRB/)
+KBO( :, 1,39, 4) = (/&
+&1.1128E-04_JPRB,1.3279E-04_JPRB,6.1308E-04_JPRB,8.5960E-04_JPRB,1.0171E-03_JPRB,9.3831E-04_JPRB/)
+KBO( :, 2,39, 4) = (/&
+&1.2054E-04_JPRB,1.4305E-04_JPRB,6.2838E-04_JPRB,8.7394E-04_JPRB,1.0264E-03_JPRB,9.3635E-04_JPRB/)
+KBO( :, 3,39, 4) = (/&
+&1.3051E-04_JPRB,1.5480E-04_JPRB,6.4408E-04_JPRB,8.8688E-04_JPRB,1.0332E-03_JPRB,9.3078E-04_JPRB/)
+KBO( :, 4,39, 4) = (/&
+&1.4126E-04_JPRB,1.6774E-04_JPRB,6.5994E-04_JPRB,8.9946E-04_JPRB,1.0378E-03_JPRB,9.2268E-04_JPRB/)
+KBO( :, 5,39, 4) = (/&
+&1.5338E-04_JPRB,1.8209E-04_JPRB,6.7678E-04_JPRB,9.1123E-04_JPRB,1.0413E-03_JPRB,9.1137E-04_JPRB/)
+KBO( :, 1,40, 4) = (/&
+&9.0705E-05_JPRB,1.0852E-04_JPRB,5.0355E-04_JPRB,7.0681E-04_JPRB,8.3684E-04_JPRB,7.7091E-04_JPRB/)
+KBO( :, 2,40, 4) = (/&
+&9.8348E-05_JPRB,1.1706E-04_JPRB,5.1697E-04_JPRB,7.2009E-04_JPRB,8.4601E-04_JPRB,7.7004E-04_JPRB/)
+KBO( :, 3,40, 4) = (/&
+&1.0671E-04_JPRB,1.2689E-04_JPRB,5.3086E-04_JPRB,7.3191E-04_JPRB,8.5298E-04_JPRB,7.6666E-04_JPRB/)
+KBO( :, 4,40, 4) = (/&
+&1.1570E-04_JPRB,1.3781E-04_JPRB,5.4507E-04_JPRB,7.4355E-04_JPRB,8.5831E-04_JPRB,7.6093E-04_JPRB/)
+KBO( :, 5,40, 4) = (/&
+&1.2578E-04_JPRB,1.4990E-04_JPRB,5.6002E-04_JPRB,7.5473E-04_JPRB,8.6284E-04_JPRB,7.5245E-04_JPRB/)
+KBO( :, 1,41, 4) = (/&
+&7.3817E-05_JPRB,8.8549E-05_JPRB,4.1325E-04_JPRB,5.8106E-04_JPRB,6.8830E-04_JPRB,6.3269E-04_JPRB/)
+KBO( :, 2,41, 4) = (/&
+&8.0158E-05_JPRB,9.5680E-05_JPRB,4.2501E-04_JPRB,5.9293E-04_JPRB,6.9700E-04_JPRB,6.3310E-04_JPRB/)
+KBO( :, 3,41, 4) = (/&
+&8.7116E-05_JPRB,1.0384E-04_JPRB,4.3722E-04_JPRB,6.0369E-04_JPRB,7.0401E-04_JPRB,6.3122E-04_JPRB/)
+KBO( :, 4,41, 4) = (/&
+&9.4610E-05_JPRB,1.1303E-04_JPRB,4.4976E-04_JPRB,6.1448E-04_JPRB,7.0977E-04_JPRB,6.2726E-04_JPRB/)
+KBO( :, 5,41, 4) = (/&
+&1.0305E-04_JPRB,1.2324E-04_JPRB,4.6311E-04_JPRB,6.2475E-04_JPRB,7.1477E-04_JPRB,6.2101E-04_JPRB/)
+KBO( :, 1,42, 4) = (/&
+&6.0047E-05_JPRB,7.2210E-05_JPRB,3.3900E-04_JPRB,4.7749E-04_JPRB,5.6596E-04_JPRB,5.1926E-04_JPRB/)
+KBO( :, 2,42, 4) = (/&
+&6.5307E-05_JPRB,7.8183E-05_JPRB,3.4927E-04_JPRB,4.8800E-04_JPRB,5.7404E-04_JPRB,5.2049E-04_JPRB/)
+KBO( :, 3,42, 4) = (/&
+&7.1083E-05_JPRB,8.4948E-05_JPRB,3.5991E-04_JPRB,4.9776E-04_JPRB,5.8092E-04_JPRB,5.1968E-04_JPRB/)
+KBO( :, 4,42, 4) = (/&
+&7.7339E-05_JPRB,9.2668E-05_JPRB,3.7098E-04_JPRB,5.0759E-04_JPRB,5.8676E-04_JPRB,5.1717E-04_JPRB/)
+KBO( :, 5,42, 4) = (/&
+&8.4391E-05_JPRB,1.0128E-04_JPRB,3.8284E-04_JPRB,5.1710E-04_JPRB,5.9200E-04_JPRB,5.1265E-04_JPRB/)
+KBO( :, 1,43, 4) = (/&
+&4.8611E-05_JPRB,5.8601E-05_JPRB,2.7749E-04_JPRB,3.9145E-04_JPRB,4.6464E-04_JPRB,4.2584E-04_JPRB/)
+KBO( :, 2,43, 4) = (/&
+&5.2925E-05_JPRB,6.3562E-05_JPRB,2.8637E-04_JPRB,4.0094E-04_JPRB,4.7226E-04_JPRB,4.2773E-04_JPRB/)
+KBO( :, 3,43, 4) = (/&
+&5.7704E-05_JPRB,6.9143E-05_JPRB,2.9565E-04_JPRB,4.0976E-04_JPRB,4.7882E-04_JPRB,4.2784E-04_JPRB/)
+KBO( :, 4,43, 4) = (/&
+&6.2890E-05_JPRB,7.5555E-05_JPRB,3.0531E-04_JPRB,4.1861E-04_JPRB,4.8454E-04_JPRB,4.2632E-04_JPRB/)
+KBO( :, 5,43, 4) = (/&
+&6.8733E-05_JPRB,8.2754E-05_JPRB,3.1574E-04_JPRB,4.2729E-04_JPRB,4.8985E-04_JPRB,4.2324E-04_JPRB/)
+KBO( :, 1,44, 4) = (/&
+&3.9255E-05_JPRB,4.7428E-05_JPRB,2.2682E-04_JPRB,3.2053E-04_JPRB,3.8115E-04_JPRB,3.4904E-04_JPRB/)
+KBO( :, 2,44, 4) = (/&
+&4.2756E-05_JPRB,5.1518E-05_JPRB,2.3446E-04_JPRB,3.2900E-04_JPRB,3.8818E-04_JPRB,3.5126E-04_JPRB/)
+KBO( :, 3,44, 4) = (/&
+&4.6702E-05_JPRB,5.6118E-05_JPRB,2.4254E-04_JPRB,3.3696E-04_JPRB,3.9445E-04_JPRB,3.5204E-04_JPRB/)
+KBO( :, 4,44, 4) = (/&
+&5.0988E-05_JPRB,6.1414E-05_JPRB,2.5093E-04_JPRB,3.4483E-04_JPRB,3.9984E-04_JPRB,3.5150E-04_JPRB/)
+KBO( :, 5,44, 4) = (/&
+&5.5818E-05_JPRB,6.7413E-05_JPRB,2.6004E-04_JPRB,3.5271E-04_JPRB,4.0508E-04_JPRB,3.4955E-04_JPRB/)
+KBO( :, 1,45, 4) = (/&
+&3.1677E-05_JPRB,3.8360E-05_JPRB,1.8523E-04_JPRB,2.6222E-04_JPRB,3.1238E-04_JPRB,2.8592E-04_JPRB/)
+KBO( :, 2,45, 4) = (/&
+&3.4522E-05_JPRB,4.1731E-05_JPRB,1.9192E-04_JPRB,2.6971E-04_JPRB,3.1883E-04_JPRB,2.8860E-04_JPRB/)
+KBO( :, 3,45, 4) = (/&
+&3.7775E-05_JPRB,4.5523E-05_JPRB,1.9882E-04_JPRB,2.7680E-04_JPRB,3.2469E-04_JPRB,2.8979E-04_JPRB/)
+KBO( :, 4,45, 4) = (/&
+&4.1306E-05_JPRB,4.9872E-05_JPRB,2.0608E-04_JPRB,2.8384E-04_JPRB,3.2984E-04_JPRB,2.8984E-04_JPRB/)
+KBO( :, 5,45, 4) = (/&
+&4.5292E-05_JPRB,5.4864E-05_JPRB,2.1395E-04_JPRB,2.9088E-04_JPRB,3.3473E-04_JPRB,2.8876E-04_JPRB/)
+KBO( :, 1,46, 4) = (/&
+&2.5501E-05_JPRB,3.0949E-05_JPRB,1.5106E-04_JPRB,2.1422E-04_JPRB,2.5570E-04_JPRB,2.3396E-04_JPRB/)
+KBO( :, 2,46, 4) = (/&
+&2.7795E-05_JPRB,3.3698E-05_JPRB,1.5681E-04_JPRB,2.2083E-04_JPRB,2.6153E-04_JPRB,2.3683E-04_JPRB/)
+KBO( :, 3,46, 4) = (/&
+&3.0473E-05_JPRB,3.6830E-05_JPRB,1.6271E-04_JPRB,2.2704E-04_JPRB,2.6695E-04_JPRB,2.3842E-04_JPRB/)
+KBO( :, 4,46, 4) = (/&
+&3.3376E-05_JPRB,4.0385E-05_JPRB,1.6899E-04_JPRB,2.3332E-04_JPRB,2.7178E-04_JPRB,2.3894E-04_JPRB/)
+KBO( :, 5,46, 4) = (/&
+&3.6637E-05_JPRB,4.4507E-05_JPRB,1.7585E-04_JPRB,2.3962E-04_JPRB,2.7638E-04_JPRB,2.3855E-04_JPRB/)
+KBO( :, 1,47, 4) = (/&
+&2.0450E-05_JPRB,2.4871E-05_JPRB,1.2285E-04_JPRB,1.7458E-04_JPRB,2.0883E-04_JPRB,1.9097E-04_JPRB/)
+KBO( :, 2,47, 4) = (/&
+&2.2286E-05_JPRB,2.7086E-05_JPRB,1.2784E-04_JPRB,1.8042E-04_JPRB,2.1404E-04_JPRB,1.9395E-04_JPRB/)
+KBO( :, 3,47, 4) = (/&
+&2.4454E-05_JPRB,2.9649E-05_JPRB,1.3286E-04_JPRB,1.8591E-04_JPRB,2.1910E-04_JPRB,1.9581E-04_JPRB/)
+KBO( :, 4,47, 4) = (/&
+&2.6844E-05_JPRB,3.2545E-05_JPRB,1.3825E-04_JPRB,1.9143E-04_JPRB,2.2358E-04_JPRB,1.9673E-04_JPRB/)
+KBO( :, 5,47, 4) = (/&
+&2.9484E-05_JPRB,3.5918E-05_JPRB,1.4411E-04_JPRB,1.9700E-04_JPRB,2.2781E-04_JPRB,1.9684E-04_JPRB/)
+KBO( :, 1,48, 4) = (/&
+&1.6395E-05_JPRB,1.9987E-05_JPRB,9.9787E-05_JPRB,1.4214E-04_JPRB,1.7032E-04_JPRB,1.5582E-04_JPRB/)
+KBO( :, 2,48, 4) = (/&
+&1.7860E-05_JPRB,2.1753E-05_JPRB,1.0413E-04_JPRB,1.4725E-04_JPRB,1.7499E-04_JPRB,1.5884E-04_JPRB/)
+KBO( :, 3,48, 4) = (/&
+&1.9600E-05_JPRB,2.3834E-05_JPRB,1.0839E-04_JPRB,1.5207E-04_JPRB,1.7957E-04_JPRB,1.6083E-04_JPRB/)
+KBO( :, 4,48, 4) = (/&
+&2.1567E-05_JPRB,2.6208E-05_JPRB,1.1299E-04_JPRB,1.5690E-04_JPRB,1.8370E-04_JPRB,1.6199E-04_JPRB/)
+KBO( :, 5,48, 4) = (/&
+&2.3704E-05_JPRB,2.8946E-05_JPRB,1.1797E-04_JPRB,1.6178E-04_JPRB,1.8753E-04_JPRB,1.6246E-04_JPRB/)
+KBO( :, 1,49, 4) = (/&
+&1.3139E-05_JPRB,1.6062E-05_JPRB,8.0976E-05_JPRB,1.1562E-04_JPRB,1.3876E-04_JPRB,1.2714E-04_JPRB/)
+KBO( :, 2,49, 4) = (/&
+&1.4304E-05_JPRB,1.7455E-05_JPRB,8.4710E-05_JPRB,1.2004E-04_JPRB,1.4288E-04_JPRB,1.3003E-04_JPRB/)
+KBO( :, 3,49, 4) = (/&
+&1.5690E-05_JPRB,1.9136E-05_JPRB,8.8348E-05_JPRB,1.2427E-04_JPRB,1.4700E-04_JPRB,1.3213E-04_JPRB/)
+KBO( :, 4,49, 4) = (/&
+&1.7304E-05_JPRB,2.1080E-05_JPRB,9.2222E-05_JPRB,1.2844E-04_JPRB,1.5072E-04_JPRB,1.3349E-04_JPRB/)
+KBO( :, 5,49, 4) = (/&
+&1.9045E-05_JPRB,2.3296E-05_JPRB,9.6473E-05_JPRB,1.3272E-04_JPRB,1.5420E-04_JPRB,1.3424E-04_JPRB/)
+KBO( :, 1,50, 4) = (/&
+&1.0555E-05_JPRB,1.2937E-05_JPRB,6.5695E-05_JPRB,9.4043E-05_JPRB,1.1302E-04_JPRB,1.0345E-04_JPRB/)
+KBO( :, 2,50, 4) = (/&
+&1.1477E-05_JPRB,1.4031E-05_JPRB,6.8893E-05_JPRB,9.7810E-05_JPRB,1.1659E-04_JPRB,1.0618E-04_JPRB/)
+KBO( :, 3,50, 4) = (/&
+&1.2581E-05_JPRB,1.5385E-05_JPRB,7.2022E-05_JPRB,1.0152E-04_JPRB,1.2023E-04_JPRB,1.0825E-04_JPRB/)
+KBO( :, 4,50, 4) = (/&
+&1.3900E-05_JPRB,1.6979E-05_JPRB,7.5298E-05_JPRB,1.0513E-04_JPRB,1.2362E-04_JPRB,1.0965E-04_JPRB/)
+KBO( :, 5,50, 4) = (/&
+&1.5333E-05_JPRB,1.8783E-05_JPRB,7.8918E-05_JPRB,1.0888E-04_JPRB,1.2677E-04_JPRB,1.1057E-04_JPRB/)
+KBO( :, 1,51, 4) = (/&
+&8.4921E-06_JPRB,1.0428E-05_JPRB,5.3292E-05_JPRB,7.6448E-05_JPRB,9.1988E-05_JPRB,8.4025E-05_JPRB/)
+KBO( :, 2,51, 4) = (/&
+&9.2127E-06_JPRB,1.1285E-05_JPRB,5.6005E-05_JPRB,7.9650E-05_JPRB,9.5066E-05_JPRB,8.6539E-05_JPRB/)
+KBO( :, 3,51, 4) = (/&
+&1.0093E-05_JPRB,1.2374E-05_JPRB,5.8695E-05_JPRB,8.2891E-05_JPRB,9.8274E-05_JPRB,8.8509E-05_JPRB/)
+KBO( :, 4,51, 4) = (/&
+&1.1165E-05_JPRB,1.3675E-05_JPRB,6.1461E-05_JPRB,8.6028E-05_JPRB,1.0132E-04_JPRB,8.9926E-05_JPRB/)
+KBO( :, 5,51, 4) = (/&
+&1.2344E-05_JPRB,1.5149E-05_JPRB,6.4533E-05_JPRB,8.9294E-05_JPRB,1.0416E-04_JPRB,9.0887E-05_JPRB/)
+KBO( :, 1,52, 4) = (/&
+&6.8430E-06_JPRB,8.4090E-06_JPRB,4.3193E-05_JPRB,6.2073E-05_JPRB,7.4815E-05_JPRB,6.8216E-05_JPRB/)
+KBO( :, 2,52, 4) = (/&
+&7.3942E-06_JPRB,9.0790E-06_JPRB,4.5492E-05_JPRB,6.4818E-05_JPRB,7.7473E-05_JPRB,7.0540E-05_JPRB/)
+KBO( :, 3,52, 4) = (/&
+&8.0962E-06_JPRB,9.9455E-06_JPRB,4.7801E-05_JPRB,6.7638E-05_JPRB,8.0241E-05_JPRB,7.2366E-05_JPRB/)
+KBO( :, 4,52, 4) = (/&
+&8.9532E-06_JPRB,1.0996E-05_JPRB,5.0136E-05_JPRB,7.0352E-05_JPRB,8.2988E-05_JPRB,7.3738E-05_JPRB/)
+KBO( :, 5,52, 4) = (/&
+&9.9254E-06_JPRB,1.2206E-05_JPRB,5.2722E-05_JPRB,7.3154E-05_JPRB,8.5502E-05_JPRB,7.4723E-05_JPRB/)
+KBO( :, 1,53, 4) = (/&
+&5.5275E-06_JPRB,6.7826E-06_JPRB,3.4992E-05_JPRB,5.0387E-05_JPRB,6.0795E-05_JPRB,5.5379E-05_JPRB/)
+KBO( :, 2,53, 4) = (/&
+&5.9360E-06_JPRB,7.3070E-06_JPRB,3.6904E-05_JPRB,5.2681E-05_JPRB,6.3070E-05_JPRB,5.7475E-05_JPRB/)
+KBO( :, 3,53, 4) = (/&
+&6.4916E-06_JPRB,7.9876E-06_JPRB,3.8885E-05_JPRB,5.5123E-05_JPRB,6.5445E-05_JPRB,5.9194E-05_JPRB/)
+KBO( :, 4,53, 4) = (/&
+&7.1721E-06_JPRB,8.8314E-06_JPRB,4.0856E-05_JPRB,5.7465E-05_JPRB,6.7875E-05_JPRB,6.0530E-05_JPRB/)
+KBO( :, 5,53, 4) = (/&
+&7.9695E-06_JPRB,9.8225E-06_JPRB,4.3031E-05_JPRB,5.9870E-05_JPRB,7.0118E-05_JPRB,6.1520E-05_JPRB/)
+KBO( :, 1,54, 4) = (/&
+&4.4841E-06_JPRB,5.4855E-06_JPRB,2.8370E-05_JPRB,4.0916E-05_JPRB,4.9401E-05_JPRB,4.4764E-05_JPRB/)
+KBO( :, 2,54, 4) = (/&
+&4.7805E-06_JPRB,5.8965E-06_JPRB,2.9962E-05_JPRB,4.2832E-05_JPRB,5.1350E-05_JPRB,4.6575E-05_JPRB/)
+KBO( :, 3,54, 4) = (/&
+&5.2175E-06_JPRB,6.4303E-06_JPRB,3.1646E-05_JPRB,4.4921E-05_JPRB,5.3377E-05_JPRB,4.8101E-05_JPRB/)
+KBO( :, 4,54, 4) = (/&
+&5.7596E-06_JPRB,7.1078E-06_JPRB,3.3313E-05_JPRB,4.6951E-05_JPRB,5.5518E-05_JPRB,4.9299E-05_JPRB/)
+KBO( :, 5,54, 4) = (/&
+&6.4121E-06_JPRB,7.9214E-06_JPRB,3.5145E-05_JPRB,4.9005E-05_JPRB,5.7497E-05_JPRB,5.0216E-05_JPRB/)
+KBO( :, 1,55, 4) = (/&
+&3.6502E-06_JPRB,4.4452E-06_JPRB,2.3004E-05_JPRB,3.3225E-05_JPRB,4.0131E-05_JPRB,3.6076E-05_JPRB/)
+KBO( :, 2,55, 4) = (/&
+&3.8584E-06_JPRB,4.7638E-06_JPRB,2.4322E-05_JPRB,3.4820E-05_JPRB,4.1798E-05_JPRB,3.7608E-05_JPRB/)
+KBO( :, 3,55, 4) = (/&
+&4.1970E-06_JPRB,5.1824E-06_JPRB,2.5746E-05_JPRB,3.6594E-05_JPRB,4.3525E-05_JPRB,3.8921E-05_JPRB/)
+KBO( :, 4,55, 4) = (/&
+&4.6296E-06_JPRB,5.7238E-06_JPRB,2.7170E-05_JPRB,3.8354E-05_JPRB,4.5386E-05_JPRB,3.9954E-05_JPRB/)
+KBO( :, 5,55, 4) = (/&
+&5.1596E-06_JPRB,6.3897E-06_JPRB,2.8703E-05_JPRB,4.0103E-05_JPRB,4.7130E-05_JPRB,4.0748E-05_JPRB/)
+KBO( :, 1,56, 4) = (/&
+&2.9798E-06_JPRB,3.6097E-06_JPRB,1.8645E-05_JPRB,2.6958E-05_JPRB,3.2565E-05_JPRB,2.9049E-05_JPRB/)
+KBO( :, 2,56, 4) = (/&
+&3.1203E-06_JPRB,3.8503E-06_JPRB,1.9728E-05_JPRB,2.8285E-05_JPRB,3.3997E-05_JPRB,3.0362E-05_JPRB/)
+KBO( :, 3,56, 4) = (/&
+&3.3770E-06_JPRB,4.1764E-06_JPRB,2.0929E-05_JPRB,2.9782E-05_JPRB,3.5468E-05_JPRB,3.1480E-05_JPRB/)
+KBO( :, 4,56, 4) = (/&
+&3.7197E-06_JPRB,4.6073E-06_JPRB,2.2137E-05_JPRB,3.1299E-05_JPRB,3.7064E-05_JPRB,3.2373E-05_JPRB/)
+KBO( :, 5,56, 4) = (/&
+&4.1476E-06_JPRB,5.1481E-06_JPRB,2.3420E-05_JPRB,3.2792E-05_JPRB,3.8590E-05_JPRB,3.3070E-05_JPRB/)
+KBO( :, 1,57, 4) = (/&
+&2.4380E-06_JPRB,2.9371E-06_JPRB,1.5101E-05_JPRB,2.1849E-05_JPRB,2.6384E-05_JPRB,2.3378E-05_JPRB/)
+KBO( :, 2,57, 4) = (/&
+&2.5283E-06_JPRB,3.1131E-06_JPRB,1.5990E-05_JPRB,2.2961E-05_JPRB,2.7628E-05_JPRB,2.4501E-05_JPRB/)
+KBO( :, 3,57, 4) = (/&
+&2.7173E-06_JPRB,3.3659E-06_JPRB,1.6995E-05_JPRB,2.4208E-05_JPRB,2.8876E-05_JPRB,2.5443E-05_JPRB/)
+KBO( :, 4,57, 4) = (/&
+&2.9882E-06_JPRB,3.7073E-06_JPRB,1.8018E-05_JPRB,2.5516E-05_JPRB,3.0235E-05_JPRB,2.6220E-05_JPRB/)
+KBO( :, 5,57, 4) = (/&
+&3.3309E-06_JPRB,4.1429E-06_JPRB,1.9094E-05_JPRB,2.6794E-05_JPRB,3.1575E-05_JPRB,2.6825E-05_JPRB/)
+KBO( :, 1,58, 4) = (/&
+&1.9991E-06_JPRB,2.3969E-06_JPRB,1.2235E-05_JPRB,1.7713E-05_JPRB,2.1380E-05_JPRB,1.8819E-05_JPRB/)
+KBO( :, 2,58, 4) = (/&
+&2.0552E-06_JPRB,2.5217E-06_JPRB,1.2969E-05_JPRB,1.8641E-05_JPRB,2.2450E-05_JPRB,1.9754E-05_JPRB/)
+KBO( :, 3,58, 4) = (/&
+&2.1912E-06_JPRB,2.7184E-06_JPRB,1.3803E-05_JPRB,1.9678E-05_JPRB,2.3501E-05_JPRB,2.0555E-05_JPRB/)
+KBO( :, 4,58, 4) = (/&
+&2.4045E-06_JPRB,2.9869E-06_JPRB,1.4668E-05_JPRB,2.0799E-05_JPRB,2.4657E-05_JPRB,2.1216E-05_JPRB/)
+KBO( :, 5,58, 4) = (/&
+&2.6779E-06_JPRB,3.3369E-06_JPRB,1.5570E-05_JPRB,2.1893E-05_JPRB,2.5824E-05_JPRB,2.1730E-05_JPRB/)
+KBO( :, 1,59, 4) = (/&
+&1.6438E-06_JPRB,1.9701E-06_JPRB,1.0010E-05_JPRB,1.4487E-05_JPRB,1.7470E-05_JPRB,1.5234E-05_JPRB/)
+KBO( :, 2,59, 4) = (/&
+&1.6869E-06_JPRB,2.0683E-06_JPRB,1.0627E-05_JPRB,1.5272E-05_JPRB,1.8381E-05_JPRB,1.5979E-05_JPRB/)
+KBO( :, 3,59, 4) = (/&
+&1.7947E-06_JPRB,2.2294E-06_JPRB,1.1332E-05_JPRB,1.6155E-05_JPRB,1.9286E-05_JPRB,1.6622E-05_JPRB/)
+KBO( :, 4,59, 4) = (/&
+&1.9699E-06_JPRB,2.4516E-06_JPRB,1.2063E-05_JPRB,1.7108E-05_JPRB,2.0268E-05_JPRB,1.7134E-05_JPRB/)
+KBO( :, 5,59, 4) = (/&
+&2.1967E-06_JPRB,2.7433E-06_JPRB,1.2831E-05_JPRB,1.8043E-05_JPRB,2.1274E-05_JPRB,1.7524E-05_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_B1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B2.F90	(revision 2160)
@@ -0,0 +1,1923 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_B2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 6, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*H2O), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 5) = (/&
+&2.1807E-02_JPRB,2.2021E-02_JPRB,1.0044E-01_JPRB,1.4940E-01_JPRB,1.9004E-01_JPRB,2.1084E-01_JPRB/)
+KBO( :, 2,13, 5) = (/&
+&2.2325E-02_JPRB,2.2543E-02_JPRB,1.0227E-01_JPRB,1.5170E-01_JPRB,1.9324E-01_JPRB,2.1682E-01_JPRB/)
+KBO( :, 3,13, 5) = (/&
+&2.2866E-02_JPRB,2.3082E-02_JPRB,1.0400E-01_JPRB,1.5406E-01_JPRB,1.9625E-01_JPRB,2.2209E-01_JPRB/)
+KBO( :, 4,13, 5) = (/&
+&2.3407E-02_JPRB,2.3630E-02_JPRB,1.0542E-01_JPRB,1.5634E-01_JPRB,1.9882E-01_JPRB,2.2691E-01_JPRB/)
+KBO( :, 5,13, 5) = (/&
+&2.3969E-02_JPRB,2.4198E-02_JPRB,1.0673E-01_JPRB,1.5832E-01_JPRB,2.0084E-01_JPRB,2.3123E-01_JPRB/)
+KBO( :, 1,14, 5) = (/&
+&1.8584E-02_JPRB,1.8801E-02_JPRB,9.0492E-02_JPRB,1.3383E-01_JPRB,1.6989E-01_JPRB,1.8690E-01_JPRB/)
+KBO( :, 2,14, 5) = (/&
+&1.9043E-02_JPRB,1.9260E-02_JPRB,9.2363E-02_JPRB,1.3650E-01_JPRB,1.7338E-01_JPRB,1.9215E-01_JPRB/)
+KBO( :, 3,14, 5) = (/&
+&1.9509E-02_JPRB,1.9727E-02_JPRB,9.4036E-02_JPRB,1.3911E-01_JPRB,1.7652E-01_JPRB,1.9653E-01_JPRB/)
+KBO( :, 4,14, 5) = (/&
+&2.0012E-02_JPRB,2.0240E-02_JPRB,9.5547E-02_JPRB,1.4152E-01_JPRB,1.7904E-01_JPRB,2.0046E-01_JPRB/)
+KBO( :, 5,14, 5) = (/&
+&2.0601E-02_JPRB,2.0831E-02_JPRB,9.6825E-02_JPRB,1.4354E-01_JPRB,1.8105E-01_JPRB,2.0381E-01_JPRB/)
+KBO( :, 1,15, 5) = (/&
+&1.5764E-02_JPRB,1.5986E-02_JPRB,8.0805E-02_JPRB,1.1930E-01_JPRB,1.5084E-01_JPRB,1.6442E-01_JPRB/)
+KBO( :, 2,15, 5) = (/&
+&1.6176E-02_JPRB,1.6398E-02_JPRB,8.2630E-02_JPRB,1.2205E-01_JPRB,1.5430E-01_JPRB,1.6881E-01_JPRB/)
+KBO( :, 3,15, 5) = (/&
+&1.6614E-02_JPRB,1.6841E-02_JPRB,8.4265E-02_JPRB,1.2470E-01_JPRB,1.5722E-01_JPRB,1.7258E-01_JPRB/)
+KBO( :, 4,15, 5) = (/&
+&1.7119E-02_JPRB,1.7353E-02_JPRB,8.5716E-02_JPRB,1.2695E-01_JPRB,1.5969E-01_JPRB,1.7588E-01_JPRB/)
+KBO( :, 5,15, 5) = (/&
+&1.7713E-02_JPRB,1.7947E-02_JPRB,8.6884E-02_JPRB,1.2867E-01_JPRB,1.6168E-01_JPRB,1.7864E-01_JPRB/)
+KBO( :, 1,16, 5) = (/&
+&1.3330E-02_JPRB,1.3559E-02_JPRB,7.1525E-02_JPRB,1.0570E-01_JPRB,1.3292E-01_JPRB,1.4360E-01_JPRB/)
+KBO( :, 2,16, 5) = (/&
+&1.3693E-02_JPRB,1.3924E-02_JPRB,7.3291E-02_JPRB,1.0840E-01_JPRB,1.3614E-01_JPRB,1.4745E-01_JPRB/)
+KBO( :, 3,16, 5) = (/&
+&1.4116E-02_JPRB,1.4356E-02_JPRB,7.4804E-02_JPRB,1.1084E-01_JPRB,1.3892E-01_JPRB,1.5078E-01_JPRB/)
+KBO( :, 4,16, 5) = (/&
+&1.4627E-02_JPRB,1.4869E-02_JPRB,7.6067E-02_JPRB,1.1275E-01_JPRB,1.4132E-01_JPRB,1.5373E-01_JPRB/)
+KBO( :, 5,16, 5) = (/&
+&1.5182E-02_JPRB,1.5422E-02_JPRB,7.7137E-02_JPRB,1.1432E-01_JPRB,1.4325E-01_JPRB,1.5618E-01_JPRB/)
+KBO( :, 1,17, 5) = (/&
+&1.1226E-02_JPRB,1.1471E-02_JPRB,6.2864E-02_JPRB,9.2970E-02_JPRB,1.1624E-01_JPRB,1.2435E-01_JPRB/)
+KBO( :, 2,17, 5) = (/&
+&1.1567E-02_JPRB,1.1813E-02_JPRB,6.4427E-02_JPRB,9.5505E-02_JPRB,1.1921E-01_JPRB,1.2773E-01_JPRB/)
+KBO( :, 3,17, 5) = (/&
+&1.1990E-02_JPRB,1.2239E-02_JPRB,6.5773E-02_JPRB,9.7566E-02_JPRB,1.2183E-01_JPRB,1.3076E-01_JPRB/)
+KBO( :, 4,17, 5) = (/&
+&1.2459E-02_JPRB,1.2709E-02_JPRB,6.6900E-02_JPRB,9.9291E-02_JPRB,1.2409E-01_JPRB,1.3335E-01_JPRB/)
+KBO( :, 5,17, 5) = (/&
+&1.2942E-02_JPRB,1.3188E-02_JPRB,6.7902E-02_JPRB,1.0077E-01_JPRB,1.2586E-01_JPRB,1.3513E-01_JPRB/)
+KBO( :, 1,18, 5) = (/&
+&9.4274E-03_JPRB,9.6965E-03_JPRB,5.4803E-02_JPRB,8.1156E-02_JPRB,1.0095E-01_JPRB,1.0689E-01_JPRB/)
+KBO( :, 2,18, 5) = (/&
+&9.7636E-03_JPRB,1.0029E-02_JPRB,5.6180E-02_JPRB,8.3292E-02_JPRB,1.0368E-01_JPRB,1.0994E-01_JPRB/)
+KBO( :, 3,18, 5) = (/&
+&1.0159E-02_JPRB,1.0423E-02_JPRB,5.7359E-02_JPRB,8.5142E-02_JPRB,1.0612E-01_JPRB,1.1256E-01_JPRB/)
+KBO( :, 4,18, 5) = (/&
+&1.0557E-02_JPRB,1.0823E-02_JPRB,5.8403E-02_JPRB,8.6709E-02_JPRB,1.0803E-01_JPRB,1.1430E-01_JPRB/)
+KBO( :, 5,18, 5) = (/&
+&1.0979E-02_JPRB,1.1237E-02_JPRB,5.9376E-02_JPRB,8.7774E-02_JPRB,1.0903E-01_JPRB,1.1483E-01_JPRB/)
+KBO( :, 1,19, 5) = (/&
+&7.9098E-03_JPRB,8.2116E-03_JPRB,4.7414E-02_JPRB,7.0216E-02_JPRB,8.7160E-02_JPRB,9.1322E-02_JPRB/)
+KBO( :, 2,19, 5) = (/&
+&8.2326E-03_JPRB,8.5288E-03_JPRB,4.8610E-02_JPRB,7.2087E-02_JPRB,8.9657E-02_JPRB,9.3915E-02_JPRB/)
+KBO( :, 3,19, 5) = (/&
+&8.5662E-03_JPRB,8.8617E-03_JPRB,4.9664E-02_JPRB,7.3691E-02_JPRB,9.1636E-02_JPRB,9.5646E-02_JPRB/)
+KBO( :, 4,19, 5) = (/&
+&8.9074E-03_JPRB,9.1995E-03_JPRB,5.0599E-02_JPRB,7.4784E-02_JPRB,9.2706E-02_JPRB,9.6286E-02_JPRB/)
+KBO( :, 5,19, 5) = (/&
+&9.2777E-03_JPRB,9.5603E-03_JPRB,5.1404E-02_JPRB,7.5248E-02_JPRB,9.2890E-02_JPRB,9.6015E-02_JPRB/)
+KBO( :, 1,20, 5) = (/&
+&6.6406E-03_JPRB,6.9730E-03_JPRB,4.0765E-02_JPRB,6.0395E-02_JPRB,7.4894E-02_JPRB,7.7615E-02_JPRB/)
+KBO( :, 2,20, 5) = (/&
+&6.9207E-03_JPRB,7.2477E-03_JPRB,4.1802E-02_JPRB,6.1965E-02_JPRB,7.6901E-02_JPRB,7.9381E-02_JPRB/)
+KBO( :, 3,20, 5) = (/&
+&7.2065E-03_JPRB,7.5323E-03_JPRB,4.2689E-02_JPRB,6.3071E-02_JPRB,7.8052E-02_JPRB,8.0177E-02_JPRB/)
+KBO( :, 4,20, 5) = (/&
+&7.5033E-03_JPRB,7.8245E-03_JPRB,4.3401E-02_JPRB,6.3586E-02_JPRB,7.8425E-02_JPRB,8.0205E-02_JPRB/)
+KBO( :, 5,20, 5) = (/&
+&7.8207E-03_JPRB,8.1353E-03_JPRB,4.3986E-02_JPRB,6.3704E-02_JPRB,7.8211E-02_JPRB,7.9644E-02_JPRB/)
+KBO( :, 1,21, 5) = (/&
+&5.5684E-03_JPRB,5.9172E-03_JPRB,3.4857E-02_JPRB,5.1594E-02_JPRB,6.3858E-02_JPRB,6.5331E-02_JPRB/)
+KBO( :, 2,21, 5) = (/&
+&5.8079E-03_JPRB,6.1557E-03_JPRB,3.5708E-02_JPRB,5.2705E-02_JPRB,6.5132E-02_JPRB,6.6285E-02_JPRB/)
+KBO( :, 3,21, 5) = (/&
+&6.0503E-03_JPRB,6.4001E-03_JPRB,3.6352E-02_JPRB,5.3300E-02_JPRB,6.5675E-02_JPRB,6.6569E-02_JPRB/)
+KBO( :, 4,21, 5) = (/&
+&6.2998E-03_JPRB,6.6477E-03_JPRB,3.6852E-02_JPRB,5.3519E-02_JPRB,6.5720E-02_JPRB,6.6352E-02_JPRB/)
+KBO( :, 5,21, 5) = (/&
+&6.5744E-03_JPRB,6.9172E-03_JPRB,3.7271E-02_JPRB,5.3554E-02_JPRB,6.5371E-02_JPRB,6.5708E-02_JPRB/)
+KBO( :, 1,22, 5) = (/&
+&4.6792E-03_JPRB,5.0331E-03_JPRB,2.9657E-02_JPRB,4.3716E-02_JPRB,5.3931E-02_JPRB,5.4472E-02_JPRB/)
+KBO( :, 2,22, 5) = (/&
+&4.8778E-03_JPRB,5.2371E-03_JPRB,3.0261E-02_JPRB,4.4366E-02_JPRB,5.4607E-02_JPRB,5.4935E-02_JPRB/)
+KBO( :, 3,22, 5) = (/&
+&5.0770E-03_JPRB,5.4422E-03_JPRB,3.0710E-02_JPRB,4.4665E-02_JPRB,5.4836E-02_JPRB,5.4959E-02_JPRB/)
+KBO( :, 4,22, 5) = (/&
+&5.2927E-03_JPRB,5.6586E-03_JPRB,3.1096E-02_JPRB,4.4798E-02_JPRB,5.4724E-02_JPRB,5.4622E-02_JPRB/)
+KBO( :, 5,22, 5) = (/&
+&5.5434E-03_JPRB,5.9042E-03_JPRB,3.1379E-02_JPRB,4.4838E-02_JPRB,5.4360E-02_JPRB,5.3969E-02_JPRB/)
+KBO( :, 1,23, 5) = (/&
+&3.9250E-03_JPRB,4.2788E-03_JPRB,2.5012E-02_JPRB,3.6685E-02_JPRB,4.5117E-02_JPRB,4.5081E-02_JPRB/)
+KBO( :, 2,23, 5) = (/&
+&4.0873E-03_JPRB,4.4491E-03_JPRB,2.5443E-02_JPRB,3.7065E-02_JPRB,4.5485E-02_JPRB,4.5295E-02_JPRB/)
+KBO( :, 3,23, 5) = (/&
+&4.2581E-03_JPRB,4.6288E-03_JPRB,2.5803E-02_JPRB,3.7271E-02_JPRB,4.5559E-02_JPRB,4.5199E-02_JPRB/)
+KBO( :, 4,23, 5) = (/&
+&4.4522E-03_JPRB,4.8247E-03_JPRB,2.6083E-02_JPRB,3.7398E-02_JPRB,4.5404E-02_JPRB,4.4816E-02_JPRB/)
+KBO( :, 5,23, 5) = (/&
+&4.6797E-03_JPRB,5.0478E-03_JPRB,2.6273E-02_JPRB,3.7409E-02_JPRB,4.5088E-02_JPRB,4.4196E-02_JPRB/)
+KBO( :, 1,24, 5) = (/&
+&3.2858E-03_JPRB,3.6291E-03_JPRB,2.0947E-02_JPRB,3.0585E-02_JPRB,3.7522E-02_JPRB,3.7149E-02_JPRB/)
+KBO( :, 2,24, 5) = (/&
+&3.4236E-03_JPRB,3.7775E-03_JPRB,2.1296E-02_JPRB,3.0855E-02_JPRB,3.7729E-02_JPRB,3.7225E-02_JPRB/)
+KBO( :, 3,24, 5) = (/&
+&3.5756E-03_JPRB,3.9404E-03_JPRB,2.1574E-02_JPRB,3.1034E-02_JPRB,3.7731E-02_JPRB,3.7059E-02_JPRB/)
+KBO( :, 4,24, 5) = (/&
+&3.7547E-03_JPRB,4.1217E-03_JPRB,2.1772E-02_JPRB,3.1132E-02_JPRB,3.7589E-02_JPRB,3.6671E-02_JPRB/)
+KBO( :, 5,24, 5) = (/&
+&3.9592E-03_JPRB,4.3220E-03_JPRB,2.1911E-02_JPRB,3.1105E-02_JPRB,3.7336E-02_JPRB,3.6105E-02_JPRB/)
+KBO( :, 1,25, 5) = (/&
+&2.7485E-03_JPRB,3.0715E-03_JPRB,1.7485E-02_JPRB,2.5411E-02_JPRB,3.1088E-02_JPRB,3.0529E-02_JPRB/)
+KBO( :, 2,25, 5) = (/&
+&2.8696E-03_JPRB,3.2062E-03_JPRB,1.7760E-02_JPRB,2.5637E-02_JPRB,3.1212E-02_JPRB,3.0522E-02_JPRB/)
+KBO( :, 3,25, 5) = (/&
+&3.0093E-03_JPRB,3.3562E-03_JPRB,1.7965E-02_JPRB,2.5792E-02_JPRB,3.1200E-02_JPRB,3.0326E-02_JPRB/)
+KBO( :, 4,25, 5) = (/&
+&3.1710E-03_JPRB,3.5209E-03_JPRB,1.8112E-02_JPRB,2.5834E-02_JPRB,3.1084E-02_JPRB,2.9961E-02_JPRB/)
+KBO( :, 5,25, 5) = (/&
+&3.3541E-03_JPRB,3.7049E-03_JPRB,1.8221E-02_JPRB,2.5787E-02_JPRB,3.0865E-02_JPRB,2.9461E-02_JPRB/)
+KBO( :, 1,26, 5) = (/&
+&2.3019E-03_JPRB,2.5991E-03_JPRB,1.4558E-02_JPRB,2.1083E-02_JPRB,2.5705E-02_JPRB,2.5046E-02_JPRB/)
+KBO( :, 2,26, 5) = (/&
+&2.4097E-03_JPRB,2.7218E-03_JPRB,1.4765E-02_JPRB,2.1273E-02_JPRB,2.5791E-02_JPRB,2.4990E-02_JPRB/)
+KBO( :, 3,26, 5) = (/&
+&2.5374E-03_JPRB,2.8582E-03_JPRB,1.4920E-02_JPRB,2.1375E-02_JPRB,2.5785E-02_JPRB,2.4784E-02_JPRB/)
+KBO( :, 4,26, 5) = (/&
+&2.6838E-03_JPRB,3.0095E-03_JPRB,1.5036E-02_JPRB,2.1391E-02_JPRB,2.5681E-02_JPRB,2.4453E-02_JPRB/)
+KBO( :, 5,26, 5) = (/&
+&2.8416E-03_JPRB,3.1735E-03_JPRB,1.5124E-02_JPRB,2.1341E-02_JPRB,2.5468E-02_JPRB,2.4016E-02_JPRB/)
+KBO( :, 1,27, 5) = (/&
+&1.9284E-03_JPRB,2.1979E-03_JPRB,1.2092E-02_JPRB,1.7474E-02_JPRB,2.1233E-02_JPRB,2.0526E-02_JPRB/)
+KBO( :, 2,27, 5) = (/&
+&2.0271E-03_JPRB,2.3110E-03_JPRB,1.2248E-02_JPRB,1.7617E-02_JPRB,2.1305E-02_JPRB,2.0445E-02_JPRB/)
+KBO( :, 3,27, 5) = (/&
+&2.1413E-03_JPRB,2.4339E-03_JPRB,1.2368E-02_JPRB,1.7683E-02_JPRB,2.1297E-02_JPRB,2.0248E-02_JPRB/)
+KBO( :, 4,27, 5) = (/&
+&2.2700E-03_JPRB,2.5708E-03_JPRB,1.2461E-02_JPRB,1.7683E-02_JPRB,2.1187E-02_JPRB,1.9954E-02_JPRB/)
+KBO( :, 5,27, 5) = (/&
+&2.4050E-03_JPRB,2.7137E-03_JPRB,1.2547E-02_JPRB,1.7644E-02_JPRB,2.0996E-02_JPRB,1.9578E-02_JPRB/)
+KBO( :, 1,28, 5) = (/&
+&1.6177E-03_JPRB,1.8598E-03_JPRB,1.0025E-02_JPRB,1.4464E-02_JPRB,1.7533E-02_JPRB,1.6811E-02_JPRB/)
+KBO( :, 2,28, 5) = (/&
+&1.7070E-03_JPRB,1.9616E-03_JPRB,1.0146E-02_JPRB,1.4566E-02_JPRB,1.7595E-02_JPRB,1.6720E-02_JPRB/)
+KBO( :, 3,28, 5) = (/&
+&1.8084E-03_JPRB,2.0731E-03_JPRB,1.0240E-02_JPRB,1.4610E-02_JPRB,1.7567E-02_JPRB,1.6539E-02_JPRB/)
+KBO( :, 4,28, 5) = (/&
+&1.9191E-03_JPRB,2.1930E-03_JPRB,1.0326E-02_JPRB,1.4610E-02_JPRB,1.7462E-02_JPRB,1.6282E-02_JPRB/)
+KBO( :, 5,28, 5) = (/&
+&2.0364E-03_JPRB,2.3203E-03_JPRB,1.0409E-02_JPRB,1.4583E-02_JPRB,1.7296E-02_JPRB,1.5960E-02_JPRB/)
+KBO( :, 1,29, 5) = (/&
+&1.3593E-03_JPRB,1.5756E-03_JPRB,8.3017E-03_JPRB,1.1957E-02_JPRB,1.4479E-02_JPRB,1.3772E-02_JPRB/)
+KBO( :, 2,29, 5) = (/&
+&1.4401E-03_JPRB,1.6674E-03_JPRB,8.3969E-03_JPRB,1.2033E-02_JPRB,1.4515E-02_JPRB,1.3681E-02_JPRB/)
+KBO( :, 3,29, 5) = (/&
+&1.5286E-03_JPRB,1.7667E-03_JPRB,8.4784E-03_JPRB,1.2064E-02_JPRB,1.4477E-02_JPRB,1.3518E-02_JPRB/)
+KBO( :, 4,29, 5) = (/&
+&1.6239E-03_JPRB,1.8725E-03_JPRB,8.5587E-03_JPRB,1.2064E-02_JPRB,1.4381E-02_JPRB,1.3294E-02_JPRB/)
+KBO( :, 5,29, 5) = (/&
+&1.7270E-03_JPRB,1.9868E-03_JPRB,8.6438E-03_JPRB,1.2057E-02_JPRB,1.4239E-02_JPRB,1.3028E-02_JPRB/)
+KBO( :, 1,30, 5) = (/&
+&1.1445E-03_JPRB,1.3361E-03_JPRB,6.8720E-03_JPRB,9.8791E-03_JPRB,1.1950E-02_JPRB,1.1283E-02_JPRB/)
+KBO( :, 2,30, 5) = (/&
+&1.2156E-03_JPRB,1.4188E-03_JPRB,6.9493E-03_JPRB,9.9349E-03_JPRB,1.1964E-02_JPRB,1.1195E-02_JPRB/)
+KBO( :, 3,30, 5) = (/&
+&1.2922E-03_JPRB,1.5061E-03_JPRB,7.0248E-03_JPRB,9.9580E-03_JPRB,1.1924E-02_JPRB,1.1051E-02_JPRB/)
+KBO( :, 4,30, 5) = (/&
+&1.3747E-03_JPRB,1.6004E-03_JPRB,7.1033E-03_JPRB,9.9696E-03_JPRB,1.1840E-02_JPRB,1.0864E-02_JPRB/)
+KBO( :, 5,30, 5) = (/&
+&1.4679E-03_JPRB,1.7048E-03_JPRB,7.1904E-03_JPRB,9.9722E-03_JPRB,1.1724E-02_JPRB,1.0645E-02_JPRB/)
+KBO( :, 1,31, 5) = (/&
+&9.6571E-04_JPRB,1.1355E-03_JPRB,5.6867E-03_JPRB,8.1598E-03_JPRB,9.8539E-03_JPRB,9.2507E-03_JPRB/)
+KBO( :, 2,31, 5) = (/&
+&1.0268E-03_JPRB,1.2081E-03_JPRB,5.7561E-03_JPRB,8.2013E-03_JPRB,9.8560E-03_JPRB,9.1701E-03_JPRB/)
+KBO( :, 3,31, 5) = (/&
+&1.0932E-03_JPRB,1.2857E-03_JPRB,5.8273E-03_JPRB,8.2243E-03_JPRB,9.8178E-03_JPRB,9.0482E-03_JPRB/)
+KBO( :, 4,31, 5) = (/&
+&1.1666E-03_JPRB,1.3712E-03_JPRB,5.9075E-03_JPRB,8.2428E-03_JPRB,9.7465E-03_JPRB,8.8946E-03_JPRB/)
+KBO( :, 5,31, 5) = (/&
+&1.2509E-03_JPRB,1.4662E-03_JPRB,5.9896E-03_JPRB,8.2555E-03_JPRB,9.6578E-03_JPRB,8.7121E-03_JPRB/)
+KBO( :, 1,32, 5) = (/&
+&8.1549E-04_JPRB,9.6647E-04_JPRB,4.7087E-03_JPRB,6.7390E-03_JPRB,8.1222E-03_JPRB,7.5866E-03_JPRB/)
+KBO( :, 2,32, 5) = (/&
+&8.6808E-04_JPRB,1.0303E-03_JPRB,4.7745E-03_JPRB,6.7731E-03_JPRB,8.1188E-03_JPRB,7.5153E-03_JPRB/)
+KBO( :, 3,32, 5) = (/&
+&9.2635E-04_JPRB,1.0997E-03_JPRB,4.8447E-03_JPRB,6.7992E-03_JPRB,8.0828E-03_JPRB,7.4160E-03_JPRB/)
+KBO( :, 4,32, 5) = (/&
+&9.9293E-04_JPRB,1.1779E-03_JPRB,4.9222E-03_JPRB,6.8226E-03_JPRB,8.0279E-03_JPRB,7.2877E-03_JPRB/)
+KBO( :, 5,32, 5) = (/&
+&1.0686E-03_JPRB,1.2641E-03_JPRB,4.9952E-03_JPRB,6.8449E-03_JPRB,7.9628E-03_JPRB,7.1366E-03_JPRB/)
+KBO( :, 1,33, 5) = (/&
+&6.8866E-04_JPRB,8.2347E-04_JPRB,3.9045E-03_JPRB,5.5660E-03_JPRB,6.6934E-03_JPRB,6.2259E-03_JPRB/)
+KBO( :, 2,33, 5) = (/&
+&7.3455E-04_JPRB,8.7986E-04_JPRB,3.9663E-03_JPRB,5.5986E-03_JPRB,6.6866E-03_JPRB,6.1677E-03_JPRB/)
+KBO( :, 3,33, 5) = (/&
+&7.8698E-04_JPRB,9.4282E-04_JPRB,4.0361E-03_JPRB,5.6281E-03_JPRB,6.6584E-03_JPRB,6.0842E-03_JPRB/)
+KBO( :, 4,33, 5) = (/&
+&8.4706E-04_JPRB,1.0140E-03_JPRB,4.1036E-03_JPRB,5.6568E-03_JPRB,6.6185E-03_JPRB,5.9772E-03_JPRB/)
+KBO( :, 5,33, 5) = (/&
+&9.1579E-04_JPRB,1.0926E-03_JPRB,4.1728E-03_JPRB,5.6818E-03_JPRB,6.5697E-03_JPRB,5.8519E-03_JPRB/)
+KBO( :, 1,34, 5) = (/&
+&5.8058E-04_JPRB,7.0023E-04_JPRB,3.2403E-03_JPRB,4.6005E-03_JPRB,5.5166E-03_JPRB,5.1111E-03_JPRB/)
+KBO( :, 2,34, 5) = (/&
+&6.2122E-04_JPRB,7.5048E-04_JPRB,3.3005E-03_JPRB,4.6334E-03_JPRB,5.5099E-03_JPRB,5.0626E-03_JPRB/)
+KBO( :, 3,34, 5) = (/&
+&6.6865E-04_JPRB,8.0788E-04_JPRB,3.3630E-03_JPRB,4.6658E-03_JPRB,5.4906E-03_JPRB,4.9925E-03_JPRB/)
+KBO( :, 4,34, 5) = (/&
+&7.2278E-04_JPRB,8.7227E-04_JPRB,3.4246E-03_JPRB,4.6970E-03_JPRB,5.4619E-03_JPRB,4.9033E-03_JPRB/)
+KBO( :, 5,34, 5) = (/&
+&7.8420E-04_JPRB,9.4411E-04_JPRB,3.4913E-03_JPRB,4.7221E-03_JPRB,5.4290E-03_JPRB,4.7999E-03_JPRB/)
+KBO( :, 1,35, 5) = (/&
+&4.8680E-04_JPRB,5.9168E-04_JPRB,2.6886E-03_JPRB,3.8031E-03_JPRB,4.5472E-03_JPRB,4.2007E-03_JPRB/)
+KBO( :, 2,35, 5) = (/&
+&5.2287E-04_JPRB,6.3647E-04_JPRB,2.7442E-03_JPRB,3.8365E-03_JPRB,4.5442E-03_JPRB,4.1613E-03_JPRB/)
+KBO( :, 3,35, 5) = (/&
+&5.6494E-04_JPRB,6.8801E-04_JPRB,2.7990E-03_JPRB,3.8713E-03_JPRB,4.5326E-03_JPRB,4.1035E-03_JPRB/)
+KBO( :, 4,35, 5) = (/&
+&6.1346E-04_JPRB,7.4591E-04_JPRB,2.8564E-03_JPRB,3.9017E-03_JPRB,4.5150E-03_JPRB,4.0303E-03_JPRB/)
+KBO( :, 5,35, 5) = (/&
+&6.6714E-04_JPRB,8.1053E-04_JPRB,2.9207E-03_JPRB,3.9294E-03_JPRB,4.4955E-03_JPRB,3.9472E-03_JPRB/)
+KBO( :, 1,36, 5) = (/&
+&4.0556E-04_JPRB,4.9618E-04_JPRB,2.2284E-03_JPRB,3.1440E-03_JPRB,3.7492E-03_JPRB,3.4553E-03_JPRB/)
+KBO( :, 2,36, 5) = (/&
+&4.3716E-04_JPRB,5.3572E-04_JPRB,2.2775E-03_JPRB,3.1778E-03_JPRB,3.7514E-03_JPRB,3.4245E-03_JPRB/)
+KBO( :, 3,36, 5) = (/&
+&4.7403E-04_JPRB,5.8132E-04_JPRB,2.3270E-03_JPRB,3.2124E-03_JPRB,3.7468E-03_JPRB,3.3780E-03_JPRB/)
+KBO( :, 4,36, 5) = (/&
+&5.1659E-04_JPRB,6.3283E-04_JPRB,2.3801E-03_JPRB,3.2412E-03_JPRB,3.7380E-03_JPRB,3.3193E-03_JPRB/)
+KBO( :, 5,36, 5) = (/&
+&5.6320E-04_JPRB,6.9001E-04_JPRB,2.4401E-03_JPRB,3.2716E-03_JPRB,3.7268E-03_JPRB,3.2538E-03_JPRB/)
+KBO( :, 1,37, 5) = (/&
+&3.3445E-04_JPRB,4.1138E-04_JPRB,1.8414E-03_JPRB,2.5960E-03_JPRB,3.0918E-03_JPRB,2.8440E-03_JPRB/)
+KBO( :, 2,37, 5) = (/&
+&3.6139E-04_JPRB,4.4542E-04_JPRB,1.8850E-03_JPRB,2.6293E-03_JPRB,3.0984E-03_JPRB,2.8216E-03_JPRB/)
+KBO( :, 3,37, 5) = (/&
+&3.9302E-04_JPRB,4.8495E-04_JPRB,1.9291E-03_JPRB,2.6624E-03_JPRB,3.0995E-03_JPRB,2.7862E-03_JPRB/)
+KBO( :, 4,37, 5) = (/&
+&4.2962E-04_JPRB,5.3000E-04_JPRB,1.9778E-03_JPRB,2.6913E-03_JPRB,3.0985E-03_JPRB,2.7408E-03_JPRB/)
+KBO( :, 5,37, 5) = (/&
+&4.6957E-04_JPRB,5.7981E-04_JPRB,2.0321E-03_JPRB,2.7224E-03_JPRB,3.0939E-03_JPRB,2.6899E-03_JPRB/)
+KBO( :, 1,38, 5) = (/&
+&2.7565E-04_JPRB,3.4069E-04_JPRB,1.5215E-03_JPRB,2.1439E-03_JPRB,2.5502E-03_JPRB,2.3418E-03_JPRB/)
+KBO( :, 2,38, 5) = (/&
+&2.9863E-04_JPRB,3.7003E-04_JPRB,1.5598E-03_JPRB,2.1756E-03_JPRB,2.5600E-03_JPRB,2.3264E-03_JPRB/)
+KBO( :, 3,38, 5) = (/&
+&3.2577E-04_JPRB,4.0422E-04_JPRB,1.5995E-03_JPRB,2.2068E-03_JPRB,2.5657E-03_JPRB,2.2995E-03_JPRB/)
+KBO( :, 4,38, 5) = (/&
+&3.5709E-04_JPRB,4.4339E-04_JPRB,1.6429E-03_JPRB,2.2349E-03_JPRB,2.5695E-03_JPRB,2.2650E-03_JPRB/)
+KBO( :, 5,38, 5) = (/&
+&3.9150E-04_JPRB,4.8695E-04_JPRB,1.6922E-03_JPRB,2.2658E-03_JPRB,2.5693E-03_JPRB,2.2257E-03_JPRB/)
+KBO( :, 1,39, 5) = (/&
+&2.2724E-04_JPRB,2.8211E-04_JPRB,1.2574E-03_JPRB,1.7709E-03_JPRB,2.1038E-03_JPRB,1.9299E-03_JPRB/)
+KBO( :, 2,39, 5) = (/&
+&2.4681E-04_JPRB,3.0736E-04_JPRB,1.2915E-03_JPRB,1.8008E-03_JPRB,2.1155E-03_JPRB,1.9194E-03_JPRB/)
+KBO( :, 3,39, 5) = (/&
+&2.7014E-04_JPRB,3.3704E-04_JPRB,1.3268E-03_JPRB,1.8293E-03_JPRB,2.1247E-03_JPRB,1.8997E-03_JPRB/)
+KBO( :, 4,39, 5) = (/&
+&2.9696E-04_JPRB,3.7109E-04_JPRB,1.3658E-03_JPRB,1.8564E-03_JPRB,2.1316E-03_JPRB,1.8739E-03_JPRB/)
+KBO( :, 5,39, 5) = (/&
+&3.2661E-04_JPRB,4.0911E-04_JPRB,1.4099E-03_JPRB,1.8866E-03_JPRB,2.1349E-03_JPRB,1.8442E-03_JPRB/)
+KBO( :, 1,40, 5) = (/&
+&1.8579E-04_JPRB,2.3160E-04_JPRB,1.0365E-03_JPRB,1.4603E-03_JPRB,1.7343E-03_JPRB,1.5866E-03_JPRB/)
+KBO( :, 2,40, 5) = (/&
+&2.0221E-04_JPRB,2.5290E-04_JPRB,1.0666E-03_JPRB,1.4877E-03_JPRB,1.7476E-03_JPRB,1.5810E-03_JPRB/)
+KBO( :, 3,40, 5) = (/&
+&2.2187E-04_JPRB,2.7826E-04_JPRB,1.0975E-03_JPRB,1.5141E-03_JPRB,1.7589E-03_JPRB,1.5669E-03_JPRB/)
+KBO( :, 4,40, 5) = (/&
+&2.4464E-04_JPRB,3.0747E-04_JPRB,1.1320E-03_JPRB,1.5399E-03_JPRB,1.7682E-03_JPRB,1.5479E-03_JPRB/)
+KBO( :, 5,40, 5) = (/&
+&2.6982E-04_JPRB,3.4023E-04_JPRB,1.1712E-03_JPRB,1.5681E-03_JPRB,1.7744E-03_JPRB,1.5254E-03_JPRB/)
+KBO( :, 1,41, 5) = (/&
+&1.5166E-04_JPRB,1.8980E-04_JPRB,8.5379E-04_JPRB,1.2035E-03_JPRB,1.4293E-03_JPRB,1.3039E-03_JPRB/)
+KBO( :, 2,41, 5) = (/&
+&1.6546E-04_JPRB,2.0775E-04_JPRB,8.8025E-04_JPRB,1.2284E-03_JPRB,1.4432E-03_JPRB,1.3014E-03_JPRB/)
+KBO( :, 3,41, 5) = (/&
+&1.8194E-04_JPRB,2.2930E-04_JPRB,9.0741E-04_JPRB,1.2528E-03_JPRB,1.4560E-03_JPRB,1.2919E-03_JPRB/)
+KBO( :, 4,41, 5) = (/&
+&2.0120E-04_JPRB,2.5429E-04_JPRB,9.3787E-04_JPRB,1.2766E-03_JPRB,1.4664E-03_JPRB,1.2782E-03_JPRB/)
+KBO( :, 5,41, 5) = (/&
+&2.2263E-04_JPRB,2.8250E-04_JPRB,9.7232E-04_JPRB,1.3029E-03_JPRB,1.4746E-03_JPRB,1.2613E-03_JPRB/)
+KBO( :, 1,42, 5) = (/&
+&1.2374E-04_JPRB,1.5546E-04_JPRB,7.0307E-04_JPRB,9.9137E-04_JPRB,1.1774E-03_JPRB,1.0716E-03_JPRB/)
+KBO( :, 2,42, 5) = (/&
+&1.3533E-04_JPRB,1.7055E-04_JPRB,7.2623E-04_JPRB,1.0140E-03_JPRB,1.1917E-03_JPRB,1.0713E-03_JPRB/)
+KBO( :, 3,42, 5) = (/&
+&1.4914E-04_JPRB,1.8882E-04_JPRB,7.4998E-04_JPRB,1.0363E-03_JPRB,1.2049E-03_JPRB,1.0651E-03_JPRB/)
+KBO( :, 4,42, 5) = (/&
+&1.6539E-04_JPRB,2.1022E-04_JPRB,7.7693E-04_JPRB,1.0584E-03_JPRB,1.2160E-03_JPRB,1.0556E-03_JPRB/)
+KBO( :, 5,42, 5) = (/&
+&1.8361E-04_JPRB,2.3442E-04_JPRB,8.0719E-04_JPRB,1.0824E-03_JPRB,1.2253E-03_JPRB,1.0431E-03_JPRB/)
+KBO( :, 1,43, 5) = (/&
+&1.0045E-04_JPRB,1.2664E-04_JPRB,5.7734E-04_JPRB,8.1536E-04_JPRB,9.6884E-04_JPRB,8.7977E-04_JPRB/)
+KBO( :, 2,43, 5) = (/&
+&1.1005E-04_JPRB,1.3917E-04_JPRB,5.9774E-04_JPRB,8.3582E-04_JPRB,9.8292E-04_JPRB,8.8149E-04_JPRB/)
+KBO( :, 3,43, 5) = (/&
+&1.2153E-04_JPRB,1.5445E-04_JPRB,6.1853E-04_JPRB,8.5606E-04_JPRB,9.9619E-04_JPRB,8.7826E-04_JPRB/)
+KBO( :, 4,43, 5) = (/&
+&1.3510E-04_JPRB,1.7258E-04_JPRB,6.4186E-04_JPRB,8.7601E-04_JPRB,1.0075E-03_JPRB,8.7187E-04_JPRB/)
+KBO( :, 5,43, 5) = (/&
+&1.5043E-04_JPRB,1.9318E-04_JPRB,6.6828E-04_JPRB,8.9763E-04_JPRB,1.0172E-03_JPRB,8.6294E-04_JPRB/)
+KBO( :, 1,44, 5) = (/&
+&8.1305E-05_JPRB,1.0284E-04_JPRB,4.7336E-04_JPRB,6.6976E-04_JPRB,7.9626E-04_JPRB,7.2189E-04_JPRB/)
+KBO( :, 2,44, 5) = (/&
+&8.9193E-05_JPRB,1.1315E-04_JPRB,4.9111E-04_JPRB,6.8790E-04_JPRB,8.0980E-04_JPRB,7.2505E-04_JPRB/)
+KBO( :, 3,44, 5) = (/&
+&9.8676E-05_JPRB,1.2583E-04_JPRB,5.0913E-04_JPRB,7.0617E-04_JPRB,8.2256E-04_JPRB,7.2410E-04_JPRB/)
+KBO( :, 4,44, 5) = (/&
+&1.0996E-04_JPRB,1.4111E-04_JPRB,5.2937E-04_JPRB,7.2436E-04_JPRB,8.3410E-04_JPRB,7.2019E-04_JPRB/)
+KBO( :, 5,44, 5) = (/&
+&1.2282E-04_JPRB,1.5859E-04_JPRB,5.5236E-04_JPRB,7.4376E-04_JPRB,8.4405E-04_JPRB,7.1417E-04_JPRB/)
+KBO( :, 1,45, 5) = (/&
+&6.5786E-05_JPRB,8.3420E-05_JPRB,3.8779E-04_JPRB,5.4957E-04_JPRB,6.5386E-04_JPRB,5.9205E-04_JPRB/)
+KBO( :, 2,45, 5) = (/&
+&7.2236E-05_JPRB,9.1932E-05_JPRB,4.0331E-04_JPRB,5.6601E-04_JPRB,6.6677E-04_JPRB,5.9628E-04_JPRB/)
+KBO( :, 3,45, 5) = (/&
+&8.0050E-05_JPRB,1.0242E-04_JPRB,4.1883E-04_JPRB,5.8238E-04_JPRB,6.7888E-04_JPRB,5.9688E-04_JPRB/)
+KBO( :, 4,45, 5) = (/&
+&8.9405E-05_JPRB,1.1521E-04_JPRB,4.3614E-04_JPRB,5.9853E-04_JPRB,6.8997E-04_JPRB,5.9495E-04_JPRB/)
+KBO( :, 5,45, 5) = (/&
+&1.0018E-04_JPRB,1.3003E-04_JPRB,4.5610E-04_JPRB,6.1576E-04_JPRB,6.9970E-04_JPRB,5.9107E-04_JPRB/)
+KBO( :, 1,46, 5) = (/&
+&5.3104E-05_JPRB,6.7476E-05_JPRB,3.1711E-04_JPRB,4.5030E-04_JPRB,5.3634E-04_JPRB,4.8529E-04_JPRB/)
+KBO( :, 2,46, 5) = (/&
+&5.8310E-05_JPRB,7.4440E-05_JPRB,3.3050E-04_JPRB,4.6471E-04_JPRB,5.4814E-04_JPRB,4.8994E-04_JPRB/)
+KBO( :, 3,46, 5) = (/&
+&6.4721E-05_JPRB,8.3070E-05_JPRB,3.4388E-04_JPRB,4.7945E-04_JPRB,5.5942E-04_JPRB,4.9178E-04_JPRB/)
+KBO( :, 4,46, 5) = (/&
+&7.2446E-05_JPRB,9.3711E-05_JPRB,3.5879E-04_JPRB,4.9397E-04_JPRB,5.7010E-04_JPRB,4.9130E-04_JPRB/)
+KBO( :, 5,46, 5) = (/&
+&8.1435E-05_JPRB,1.0620E-04_JPRB,3.7604E-04_JPRB,5.0936E-04_JPRB,5.7974E-04_JPRB,4.8929E-04_JPRB/)
+KBO( :, 1,47, 5) = (/&
+&4.2686E-05_JPRB,5.4314E-05_JPRB,2.5853E-04_JPRB,3.6799E-04_JPRB,4.3908E-04_JPRB,3.9686E-04_JPRB/)
+KBO( :, 2,47, 5) = (/&
+&4.6834E-05_JPRB,5.9958E-05_JPRB,2.7010E-04_JPRB,3.8053E-04_JPRB,4.4992E-04_JPRB,4.0194E-04_JPRB/)
+KBO( :, 3,47, 5) = (/&
+&5.2031E-05_JPRB,6.6956E-05_JPRB,2.8174E-04_JPRB,3.9382E-04_JPRB,4.6023E-04_JPRB,4.0464E-04_JPRB/)
+KBO( :, 4,47, 5) = (/&
+&5.8344E-05_JPRB,7.5683E-05_JPRB,2.9437E-04_JPRB,4.0674E-04_JPRB,4.7039E-04_JPRB,4.0528E-04_JPRB/)
+KBO( :, 5,47, 5) = (/&
+&6.5774E-05_JPRB,8.6102E-05_JPRB,3.0904E-04_JPRB,4.2022E-04_JPRB,4.7955E-04_JPRB,4.0445E-04_JPRB/)
+KBO( :, 1,48, 5) = (/&
+&3.4313E-05_JPRB,4.3687E-05_JPRB,2.1071E-04_JPRB,3.0035E-04_JPRB,3.5902E-04_JPRB,3.2436E-04_JPRB/)
+KBO( :, 2,48, 5) = (/&
+&3.7593E-05_JPRB,4.8250E-05_JPRB,2.2059E-04_JPRB,3.1121E-04_JPRB,3.6875E-04_JPRB,3.2956E-04_JPRB/)
+KBO( :, 3,48, 5) = (/&
+&4.1785E-05_JPRB,5.3906E-05_JPRB,2.3062E-04_JPRB,3.2298E-04_JPRB,3.7819E-04_JPRB,3.3287E-04_JPRB/)
+KBO( :, 4,48, 5) = (/&
+&4.6905E-05_JPRB,6.0993E-05_JPRB,2.4128E-04_JPRB,3.3438E-04_JPRB,3.8763E-04_JPRB,3.3428E-04_JPRB/)
+KBO( :, 5,48, 5) = (/&
+&5.3020E-05_JPRB,6.9645E-05_JPRB,2.5366E-04_JPRB,3.4620E-04_JPRB,3.9625E-04_JPRB,3.3440E-04_JPRB/)
+KBO( :, 1,49, 5) = (/&
+&2.7583E-05_JPRB,3.5115E-05_JPRB,1.7155E-04_JPRB,2.4481E-04_JPRB,2.9317E-04_JPRB,2.6498E-04_JPRB/)
+KBO( :, 2,49, 5) = (/&
+&3.0170E-05_JPRB,3.8800E-05_JPRB,1.7986E-04_JPRB,2.5418E-04_JPRB,3.0189E-04_JPRB,2.7025E-04_JPRB/)
+KBO( :, 3,49, 5) = (/&
+&3.3521E-05_JPRB,4.3336E-05_JPRB,1.8852E-04_JPRB,2.6447E-04_JPRB,3.1043E-04_JPRB,2.7387E-04_JPRB/)
+KBO( :, 4,49, 5) = (/&
+&3.7657E-05_JPRB,4.9084E-05_JPRB,1.9758E-04_JPRB,2.7449E-04_JPRB,3.1899E-04_JPRB,2.7586E-04_JPRB/)
+KBO( :, 5,49, 5) = (/&
+&4.2653E-05_JPRB,5.6226E-05_JPRB,2.0799E-04_JPRB,2.8484E-04_JPRB,3.2703E-04_JPRB,2.7676E-04_JPRB/)
+KBO( :, 1,50, 5) = (/&
+&2.2217E-05_JPRB,2.8271E-05_JPRB,1.3969E-04_JPRB,1.9948E-04_JPRB,2.3919E-04_JPRB,2.1597E-04_JPRB/)
+KBO( :, 2,50, 5) = (/&
+&2.4266E-05_JPRB,3.1256E-05_JPRB,1.4667E-04_JPRB,2.0754E-04_JPRB,2.4693E-04_JPRB,2.2097E-04_JPRB/)
+KBO( :, 3,50, 5) = (/&
+&2.6941E-05_JPRB,3.4914E-05_JPRB,1.5413E-04_JPRB,2.1640E-04_JPRB,2.5457E-04_JPRB,2.2461E-04_JPRB/)
+KBO( :, 4,50, 5) = (/&
+&3.0285E-05_JPRB,3.9575E-05_JPRB,1.6186E-04_JPRB,2.2530E-04_JPRB,2.6234E-04_JPRB,2.2692E-04_JPRB/)
+KBO( :, 5,50, 5) = (/&
+&3.4382E-05_JPRB,4.5471E-05_JPRB,1.7067E-04_JPRB,2.3435E-04_JPRB,2.6986E-04_JPRB,2.2825E-04_JPRB/)
+KBO( :, 1,51, 5) = (/&
+&1.7903E-05_JPRB,2.2773E-05_JPRB,1.1369E-04_JPRB,1.6241E-04_JPRB,1.9498E-04_JPRB,1.7573E-04_JPRB/)
+KBO( :, 2,51, 5) = (/&
+&1.9536E-05_JPRB,2.5192E-05_JPRB,1.1954E-04_JPRB,1.6937E-04_JPRB,2.0181E-04_JPRB,1.8035E-04_JPRB/)
+KBO( :, 3,51, 5) = (/&
+&2.1660E-05_JPRB,2.8144E-05_JPRB,1.2601E-04_JPRB,1.7700E-04_JPRB,2.0866E-04_JPRB,1.8387E-04_JPRB/)
+KBO( :, 4,51, 5) = (/&
+&2.4364E-05_JPRB,3.1929E-05_JPRB,1.3264E-04_JPRB,1.8486E-04_JPRB,2.1560E-04_JPRB,1.8633E-04_JPRB/)
+KBO( :, 5,51, 5) = (/&
+&2.7713E-05_JPRB,3.6767E-05_JPRB,1.4007E-04_JPRB,1.9273E-04_JPRB,2.2249E-04_JPRB,1.8786E-04_JPRB/)
+KBO( :, 1,52, 5) = (/&
+&1.4419E-05_JPRB,1.8337E-05_JPRB,9.2470E-05_JPRB,1.3214E-04_JPRB,1.5869E-04_JPRB,1.4290E-04_JPRB/)
+KBO( :, 2,52, 5) = (/&
+&1.5732E-05_JPRB,2.0292E-05_JPRB,9.7355E-05_JPRB,1.3808E-04_JPRB,1.6476E-04_JPRB,1.4717E-04_JPRB/)
+KBO( :, 3,52, 5) = (/&
+&1.7402E-05_JPRB,2.2667E-05_JPRB,1.0291E-04_JPRB,1.4460E-04_JPRB,1.7083E-04_JPRB,1.5054E-04_JPRB/)
+KBO( :, 4,52, 5) = (/&
+&1.9581E-05_JPRB,2.5730E-05_JPRB,1.0857E-04_JPRB,1.5152E-04_JPRB,1.7697E-04_JPRB,1.5305E-04_JPRB/)
+KBO( :, 5,52, 5) = (/&
+&2.2301E-05_JPRB,2.9666E-05_JPRB,1.1484E-04_JPRB,1.5832E-04_JPRB,1.8319E-04_JPRB,1.5468E-04_JPRB/)
+KBO( :, 1,53, 5) = (/&
+&1.1603E-05_JPRB,1.4759E-05_JPRB,7.5154E-05_JPRB,1.0740E-04_JPRB,1.2904E-04_JPRB,1.1618E-04_JPRB/)
+KBO( :, 2,53, 5) = (/&
+&1.2667E-05_JPRB,1.6333E-05_JPRB,7.9235E-05_JPRB,1.1248E-04_JPRB,1.3438E-04_JPRB,1.2007E-04_JPRB/)
+KBO( :, 3,53, 5) = (/&
+&1.3975E-05_JPRB,1.8245E-05_JPRB,8.3933E-05_JPRB,1.1800E-04_JPRB,1.3960E-04_JPRB,1.2329E-04_JPRB/)
+KBO( :, 4,53, 5) = (/&
+&1.5718E-05_JPRB,2.0708E-05_JPRB,8.8803E-05_JPRB,1.2402E-04_JPRB,1.4502E-04_JPRB,1.2574E-04_JPRB/)
+KBO( :, 5,53, 5) = (/&
+&1.7916E-05_JPRB,2.3895E-05_JPRB,9.4069E-05_JPRB,1.2995E-04_JPRB,1.5061E-04_JPRB,1.2749E-04_JPRB/)
+KBO( :, 1,54, 5) = (/&
+&9.3552E-06_JPRB,1.1912E-05_JPRB,6.1100E-05_JPRB,8.7316E-05_JPRB,1.0492E-04_JPRB,9.4080E-05_JPRB/)
+KBO( :, 2,54, 5) = (/&
+&1.0223E-05_JPRB,1.3180E-05_JPRB,6.4519E-05_JPRB,9.1648E-05_JPRB,1.0960E-04_JPRB,9.7474E-05_JPRB/)
+KBO( :, 3,54, 5) = (/&
+&1.1260E-05_JPRB,1.4728E-05_JPRB,6.8487E-05_JPRB,9.6346E-05_JPRB,1.1410E-04_JPRB,1.0031E-04_JPRB/)
+KBO( :, 4,54, 5) = (/&
+&1.2653E-05_JPRB,1.6714E-05_JPRB,7.2680E-05_JPRB,1.0156E-04_JPRB,1.1881E-04_JPRB,1.0254E-04_JPRB/)
+KBO( :, 5,54, 5) = (/&
+&1.4429E-05_JPRB,1.9299E-05_JPRB,7.7137E-05_JPRB,1.0670E-04_JPRB,1.2378E-04_JPRB,1.0417E-04_JPRB/)
+KBO( :, 1,55, 5) = (/&
+&7.5478E-06_JPRB,9.6233E-06_JPRB,4.9651E-05_JPRB,7.0961E-05_JPRB,8.5289E-05_JPRB,7.6005E-05_JPRB/)
+KBO( :, 2,55, 5) = (/&
+&8.2560E-06_JPRB,1.0645E-05_JPRB,5.2535E-05_JPRB,7.4651E-05_JPRB,8.9338E-05_JPRB,7.8872E-05_JPRB/)
+KBO( :, 3,55, 5) = (/&
+&9.0843E-06_JPRB,1.1897E-05_JPRB,5.5871E-05_JPRB,7.8654E-05_JPRB,9.3220E-05_JPRB,8.1320E-05_JPRB/)
+KBO( :, 4,55, 5) = (/&
+&1.0193E-05_JPRB,1.3501E-05_JPRB,5.9444E-05_JPRB,8.3119E-05_JPRB,9.7325E-05_JPRB,8.3263E-05_JPRB/)
+KBO( :, 5,55, 5) = (/&
+&1.1628E-05_JPRB,1.5599E-05_JPRB,6.3252E-05_JPRB,8.7606E-05_JPRB,1.0169E-04_JPRB,8.4683E-05_JPRB/)
+KBO( :, 1,56, 5) = (/&
+&6.0903E-06_JPRB,7.7718E-06_JPRB,4.0310E-05_JPRB,5.7612E-05_JPRB,6.9244E-05_JPRB,6.1397E-05_JPRB/)
+KBO( :, 2,56, 5) = (/&
+&6.6641E-06_JPRB,8.5930E-06_JPRB,4.2736E-05_JPRB,6.0755E-05_JPRB,7.2744E-05_JPRB,6.3793E-05_JPRB/)
+KBO( :, 3,56, 5) = (/&
+&7.3291E-06_JPRB,9.6040E-06_JPRB,4.5523E-05_JPRB,6.4146E-05_JPRB,7.6097E-05_JPRB,6.5892E-05_JPRB/)
+KBO( :, 4,56, 5) = (/&
+&8.2059E-06_JPRB,1.0897E-05_JPRB,4.8582E-05_JPRB,6.7958E-05_JPRB,7.9612E-05_JPRB,6.7572E-05_JPRB/)
+KBO( :, 5,56, 5) = (/&
+&9.3593E-06_JPRB,1.2596E-05_JPRB,5.1826E-05_JPRB,7.1849E-05_JPRB,8.3426E-05_JPRB,6.8816E-05_JPRB/)
+KBO( :, 1,57, 5) = (/&
+&4.9169E-06_JPRB,6.2768E-06_JPRB,3.2692E-05_JPRB,4.6726E-05_JPRB,5.6174E-05_JPRB,4.9561E-05_JPRB/)
+KBO( :, 2,57, 5) = (/&
+&5.3758E-06_JPRB,6.9313E-06_JPRB,3.4730E-05_JPRB,4.9399E-05_JPRB,5.9171E-05_JPRB,5.1566E-05_JPRB/)
+KBO( :, 3,57, 5) = (/&
+&5.9131E-06_JPRB,7.7475E-06_JPRB,3.7055E-05_JPRB,5.2261E-05_JPRB,6.2056E-05_JPRB,5.3362E-05_JPRB/)
+KBO( :, 4,57, 5) = (/&
+&6.6016E-06_JPRB,8.7843E-06_JPRB,3.9661E-05_JPRB,5.5498E-05_JPRB,6.5058E-05_JPRB,5.4813E-05_JPRB/)
+KBO( :, 5,57, 5) = (/&
+&7.5245E-06_JPRB,1.0159E-05_JPRB,4.2420E-05_JPRB,5.8870E-05_JPRB,6.8384E-05_JPRB,5.5909E-05_JPRB/)
+KBO( :, 1,58, 5) = (/&
+&3.9769E-06_JPRB,5.0771E-06_JPRB,2.6520E-05_JPRB,3.7905E-05_JPRB,4.5566E-05_JPRB,3.9988E-05_JPRB/)
+KBO( :, 2,58, 5) = (/&
+&4.3395E-06_JPRB,5.5964E-06_JPRB,2.8222E-05_JPRB,4.0161E-05_JPRB,4.8120E-05_JPRB,4.1683E-05_JPRB/)
+KBO( :, 3,58, 5) = (/&
+&4.7765E-06_JPRB,6.2573E-06_JPRB,3.0162E-05_JPRB,4.2567E-05_JPRB,5.0612E-05_JPRB,4.3174E-05_JPRB/)
+KBO( :, 4,58, 5) = (/&
+&5.3191E-06_JPRB,7.0924E-06_JPRB,3.2377E-05_JPRB,4.5319E-05_JPRB,5.3172E-05_JPRB,4.4428E-05_JPRB/)
+KBO( :, 5,58, 5) = (/&
+&6.0584E-06_JPRB,8.2028E-06_JPRB,3.4727E-05_JPRB,4.8232E-05_JPRB,5.6042E-05_JPRB,4.5381E-05_JPRB/)
+KBO( :, 1,59, 5) = (/&
+&3.2625E-06_JPRB,4.1716E-06_JPRB,2.1747E-05_JPRB,3.1052E-05_JPRB,3.7329E-05_JPRB,3.2409E-05_JPRB/)
+KBO( :, 2,59, 5) = (/&
+&3.5622E-06_JPRB,4.6062E-06_JPRB,2.3191E-05_JPRB,3.2966E-05_JPRB,3.9488E-05_JPRB,3.3775E-05_JPRB/)
+KBO( :, 3,59, 5) = (/&
+&3.9265E-06_JPRB,5.1603E-06_JPRB,2.4857E-05_JPRB,3.5039E-05_JPRB,4.1610E-05_JPRB,3.4936E-05_JPRB/)
+KBO( :, 4,59, 5) = (/&
+&4.3796E-06_JPRB,5.8651E-06_JPRB,2.6758E-05_JPRB,3.7407E-05_JPRB,4.3840E-05_JPRB,3.5912E-05_JPRB/)
+KBO( :, 5,59, 5) = (/&
+&5.0004E-06_JPRB,6.8064E-06_JPRB,2.8778E-05_JPRB,3.9920E-05_JPRB,4.6344E-05_JPRB,3.6645E-05_JPRB/)
+KBO( :, 1,13, 6) = (/&
+&4.2535E-02_JPRB,4.2762E-02_JPRB,1.6998E-01_JPRB,2.5943E-01_JPRB,3.3118E-01_JPRB,3.6759E-01_JPRB/)
+KBO( :, 2,13, 6) = (/&
+&4.3681E-02_JPRB,4.3907E-02_JPRB,1.7098E-01_JPRB,2.6169E-01_JPRB,3.3567E-01_JPRB,3.7656E-01_JPRB/)
+KBO( :, 3,13, 6) = (/&
+&4.4881E-02_JPRB,4.5106E-02_JPRB,1.7235E-01_JPRB,2.6332E-01_JPRB,3.3843E-01_JPRB,3.8337E-01_JPRB/)
+KBO( :, 4,13, 6) = (/&
+&4.6097E-02_JPRB,4.6310E-02_JPRB,1.7381E-01_JPRB,2.6438E-01_JPRB,3.3969E-01_JPRB,3.8855E-01_JPRB/)
+KBO( :, 5,13, 6) = (/&
+&4.7339E-02_JPRB,4.7538E-02_JPRB,1.7512E-01_JPRB,2.6493E-01_JPRB,3.3999E-01_JPRB,3.9260E-01_JPRB/)
+KBO( :, 1,14, 6) = (/&
+&3.6653E-02_JPRB,3.6883E-02_JPRB,1.5729E-01_JPRB,2.3949E-01_JPRB,3.0622E-01_JPRB,3.3569E-01_JPRB/)
+KBO( :, 2,14, 6) = (/&
+&3.7645E-02_JPRB,3.7873E-02_JPRB,1.5902E-01_JPRB,2.4213E-01_JPRB,3.1018E-01_JPRB,3.4313E-01_JPRB/)
+KBO( :, 3,14, 6) = (/&
+&3.8674E-02_JPRB,3.8902E-02_JPRB,1.6072E-01_JPRB,2.4398E-01_JPRB,3.1256E-01_JPRB,3.4927E-01_JPRB/)
+KBO( :, 4,14, 6) = (/&
+&3.9715E-02_JPRB,3.9924E-02_JPRB,1.6228E-01_JPRB,2.4539E-01_JPRB,3.1431E-01_JPRB,3.5395E-01_JPRB/)
+KBO( :, 5,14, 6) = (/&
+&4.0819E-02_JPRB,4.1022E-02_JPRB,1.6343E-01_JPRB,2.4658E-01_JPRB,3.1537E-01_JPRB,3.5723E-01_JPRB/)
+KBO( :, 1,15, 6) = (/&
+&3.1489E-02_JPRB,3.1717E-02_JPRB,1.4459E-01_JPRB,2.1886E-01_JPRB,2.7929E-01_JPRB,3.0333E-01_JPRB/)
+KBO( :, 2,15, 6) = (/&
+&3.2325E-02_JPRB,3.2551E-02_JPRB,1.4651E-01_JPRB,2.2152E-01_JPRB,2.8283E-01_JPRB,3.1026E-01_JPRB/)
+KBO( :, 3,15, 6) = (/&
+&3.3201E-02_JPRB,3.3419E-02_JPRB,1.4819E-01_JPRB,2.2372E-01_JPRB,2.8570E-01_JPRB,3.1588E-01_JPRB/)
+KBO( :, 4,15, 6) = (/&
+&3.4109E-02_JPRB,3.4317E-02_JPRB,1.4957E-01_JPRB,2.2574E-01_JPRB,2.8792E-01_JPRB,3.2003E-01_JPRB/)
+KBO( :, 5,15, 6) = (/&
+&3.5196E-02_JPRB,3.5403E-02_JPRB,1.5074E-01_JPRB,2.2750E-01_JPRB,2.8937E-01_JPRB,3.2300E-01_JPRB/)
+KBO( :, 1,16, 6) = (/&
+&2.6937E-02_JPRB,2.7164E-02_JPRB,1.3162E-01_JPRB,1.9777E-01_JPRB,2.5164E-01_JPRB,2.7236E-01_JPRB/)
+KBO( :, 2,16, 6) = (/&
+&2.7655E-02_JPRB,2.7881E-02_JPRB,1.3342E-01_JPRB,2.0067E-01_JPRB,2.5537E-01_JPRB,2.7880E-01_JPRB/)
+KBO( :, 3,16, 6) = (/&
+&2.8404E-02_JPRB,2.8615E-02_JPRB,1.3503E-01_JPRB,2.0326E-01_JPRB,2.5856E-01_JPRB,2.8387E-01_JPRB/)
+KBO( :, 4,16, 6) = (/&
+&2.9270E-02_JPRB,2.9476E-02_JPRB,1.3640E-01_JPRB,2.0574E-01_JPRB,2.6105E-01_JPRB,2.8764E-01_JPRB/)
+KBO( :, 5,16, 6) = (/&
+&3.0417E-02_JPRB,3.0624E-02_JPRB,1.3764E-01_JPRB,2.0798E-01_JPRB,2.6293E-01_JPRB,2.9041E-01_JPRB/)
+KBO( :, 1,17, 6) = (/&
+&2.2953E-02_JPRB,2.3180E-02_JPRB,1.1845E-01_JPRB,1.7721E-01_JPRB,2.2460E-01_JPRB,2.4224E-01_JPRB/)
+KBO( :, 2,17, 6) = (/&
+&2.3559E-02_JPRB,2.3784E-02_JPRB,1.2023E-01_JPRB,1.8031E-01_JPRB,2.2852E-01_JPRB,2.4805E-01_JPRB/)
+KBO( :, 3,17, 6) = (/&
+&2.4252E-02_JPRB,2.4462E-02_JPRB,1.2174E-01_JPRB,1.8322E-01_JPRB,2.3188E-01_JPRB,2.5256E-01_JPRB/)
+KBO( :, 4,17, 6) = (/&
+&2.5160E-02_JPRB,2.5369E-02_JPRB,1.2317E-01_JPRB,1.8595E-01_JPRB,2.3461E-01_JPRB,2.5595E-01_JPRB/)
+KBO( :, 5,17, 6) = (/&
+&2.6326E-02_JPRB,2.6536E-02_JPRB,1.2445E-01_JPRB,1.8813E-01_JPRB,2.3684E-01_JPRB,2.5843E-01_JPRB/)
+KBO( :, 1,18, 6) = (/&
+&1.9482E-02_JPRB,1.9716E-02_JPRB,1.0560E-01_JPRB,1.5764E-01_JPRB,1.9885E-01_JPRB,2.1333E-01_JPRB/)
+KBO( :, 2,18, 6) = (/&
+&2.0020E-02_JPRB,2.0247E-02_JPRB,1.0728E-01_JPRB,1.6080E-01_JPRB,2.0278E-01_JPRB,2.1852E-01_JPRB/)
+KBO( :, 3,18, 6) = (/&
+&2.0718E-02_JPRB,2.0933E-02_JPRB,1.0881E-01_JPRB,1.6380E-01_JPRB,2.0619E-01_JPRB,2.2252E-01_JPRB/)
+KBO( :, 4,18, 6) = (/&
+&2.1659E-02_JPRB,2.1872E-02_JPRB,1.1021E-01_JPRB,1.6633E-01_JPRB,2.0912E-01_JPRB,2.2570E-01_JPRB/)
+KBO( :, 5,18, 6) = (/&
+&2.2723E-02_JPRB,2.2936E-02_JPRB,1.1153E-01_JPRB,1.6848E-01_JPRB,2.1149E-01_JPRB,2.2818E-01_JPRB/)
+KBO( :, 1,19, 6) = (/&
+&1.6474E-02_JPRB,1.6726E-02_JPRB,9.3278E-02_JPRB,1.3911E-01_JPRB,1.7470E-01_JPRB,1.8607E-01_JPRB/)
+KBO( :, 2,19, 6) = (/&
+&1.6988E-02_JPRB,1.7224E-02_JPRB,9.4914E-02_JPRB,1.4229E-01_JPRB,1.7855E-01_JPRB,1.9060E-01_JPRB/)
+KBO( :, 3,19, 6) = (/&
+&1.7719E-02_JPRB,1.7943E-02_JPRB,9.6402E-02_JPRB,1.4506E-01_JPRB,1.8201E-01_JPRB,1.9424E-01_JPRB/)
+KBO( :, 4,19, 6) = (/&
+&1.8600E-02_JPRB,1.8821E-02_JPRB,9.7809E-02_JPRB,1.4747E-01_JPRB,1.8495E-01_JPRB,1.9716E-01_JPRB/)
+KBO( :, 5,19, 6) = (/&
+&1.9511E-02_JPRB,1.9731E-02_JPRB,9.9198E-02_JPRB,1.4957E-01_JPRB,1.8726E-01_JPRB,1.9887E-01_JPRB/)
+KBO( :, 1,20, 6) = (/&
+&1.3891E-02_JPRB,1.4173E-02_JPRB,8.1755E-02_JPRB,1.2196E-01_JPRB,1.5249E-01_JPRB,1.6109E-01_JPRB/)
+KBO( :, 2,20, 6) = (/&
+&1.4432E-02_JPRB,1.4692E-02_JPRB,8.3314E-02_JPRB,1.2486E-01_JPRB,1.5622E-01_JPRB,1.6508E-01_JPRB/)
+KBO( :, 3,20, 6) = (/&
+&1.5139E-02_JPRB,1.5385E-02_JPRB,8.4783E-02_JPRB,1.2741E-01_JPRB,1.5952E-01_JPRB,1.6830E-01_JPRB/)
+KBO( :, 4,20, 6) = (/&
+&1.5913E-02_JPRB,1.6152E-02_JPRB,8.6223E-02_JPRB,1.2966E-01_JPRB,1.6214E-01_JPRB,1.7014E-01_JPRB/)
+KBO( :, 5,20, 6) = (/&
+&1.6685E-02_JPRB,1.6917E-02_JPRB,8.7642E-02_JPRB,1.3138E-01_JPRB,1.6356E-01_JPRB,1.7014E-01_JPRB/)
+KBO( :, 1,21, 6) = (/&
+&1.1702E-02_JPRB,1.2032E-02_JPRB,7.1105E-02_JPRB,1.0613E-01_JPRB,1.3235E-01_JPRB,1.3851E-01_JPRB/)
+KBO( :, 2,21, 6) = (/&
+&1.2249E-02_JPRB,1.2553E-02_JPRB,7.2595E-02_JPRB,1.0875E-01_JPRB,1.3581E-01_JPRB,1.4193E-01_JPRB/)
+KBO( :, 3,21, 6) = (/&
+&1.2879E-02_JPRB,1.3168E-02_JPRB,7.4032E-02_JPRB,1.1102E-01_JPRB,1.3861E-01_JPRB,1.4396E-01_JPRB/)
+KBO( :, 4,21, 6) = (/&
+&1.3537E-02_JPRB,1.3810E-02_JPRB,7.5416E-02_JPRB,1.1273E-01_JPRB,1.4012E-01_JPRB,1.4419E-01_JPRB/)
+KBO( :, 5,21, 6) = (/&
+&1.4190E-02_JPRB,1.4451E-02_JPRB,7.6688E-02_JPRB,1.1355E-01_JPRB,1.4025E-01_JPRB,1.4302E-01_JPRB/)
+KBO( :, 1,22, 6) = (/&
+&9.9001E-03_JPRB,1.0285E-02_JPRB,6.1552E-02_JPRB,9.1903E-02_JPRB,1.1446E-01_JPRB,1.1850E-01_JPRB/)
+KBO( :, 2,22, 6) = (/&
+&1.0402E-02_JPRB,1.0764E-02_JPRB,6.2928E-02_JPRB,9.4123E-02_JPRB,1.1729E-01_JPRB,1.2066E-01_JPRB/)
+KBO( :, 3,22, 6) = (/&
+&1.0945E-02_JPRB,1.1287E-02_JPRB,6.4219E-02_JPRB,9.5745E-02_JPRB,1.1884E-01_JPRB,1.2116E-01_JPRB/)
+KBO( :, 4,22, 6) = (/&
+&1.1502E-02_JPRB,1.1824E-02_JPRB,6.5352E-02_JPRB,9.6543E-02_JPRB,1.1912E-01_JPRB,1.2043E-01_JPRB/)
+KBO( :, 5,22, 6) = (/&
+&1.2057E-02_JPRB,1.2365E-02_JPRB,6.6306E-02_JPRB,9.6694E-02_JPRB,1.1850E-01_JPRB,1.1887E-01_JPRB/)
+KBO( :, 1,23, 6) = (/&
+&8.3712E-03_JPRB,8.8014E-03_JPRB,5.2987E-02_JPRB,7.9036E-02_JPRB,9.8229E-02_JPRB,1.0022E-01_JPRB/)
+KBO( :, 2,23, 6) = (/&
+&8.8086E-03_JPRB,9.2239E-03_JPRB,5.4159E-02_JPRB,8.0566E-02_JPRB,9.9889E-02_JPRB,1.0104E-01_JPRB/)
+KBO( :, 3,23, 6) = (/&
+&9.2697E-03_JPRB,9.6659E-03_JPRB,5.5152E-02_JPRB,8.1379E-02_JPRB,1.0039E-01_JPRB,1.0074E-01_JPRB/)
+KBO( :, 4,23, 6) = (/&
+&9.7327E-03_JPRB,1.0110E-02_JPRB,5.5972E-02_JPRB,8.1635E-02_JPRB,1.0009E-01_JPRB,9.9702E-02_JPRB/)
+KBO( :, 5,23, 6) = (/&
+&1.0213E-02_JPRB,1.0575E-02_JPRB,5.6627E-02_JPRB,8.1638E-02_JPRB,9.9238E-02_JPRB,9.8092E-02_JPRB/)
+KBO( :, 1,24, 6) = (/&
+&7.0727E-03_JPRB,7.5361E-03_JPRB,4.5321E-02_JPRB,6.7260E-02_JPRB,8.3279E-02_JPRB,8.3647E-02_JPRB/)
+KBO( :, 2,24, 6) = (/&
+&7.4427E-03_JPRB,7.8986E-03_JPRB,4.6188E-02_JPRB,6.8096E-02_JPRB,8.4019E-02_JPRB,8.3747E-02_JPRB/)
+KBO( :, 3,24, 6) = (/&
+&7.8269E-03_JPRB,8.2674E-03_JPRB,4.6892E-02_JPRB,6.8450E-02_JPRB,8.4013E-02_JPRB,8.3148E-02_JPRB/)
+KBO( :, 4,24, 6) = (/&
+&8.2189E-03_JPRB,8.6445E-03_JPRB,4.7510E-02_JPRB,6.8583E-02_JPRB,8.3512E-02_JPRB,8.2039E-02_JPRB/)
+KBO( :, 5,24, 6) = (/&
+&8.6506E-03_JPRB,9.0639E-03_JPRB,4.7979E-02_JPRB,6.8589E-02_JPRB,8.2686E-02_JPRB,8.0530E-02_JPRB/)
+KBO( :, 1,25, 6) = (/&
+&5.9648E-03_JPRB,6.4506E-03_JPRB,3.8407E-02_JPRB,5.6605E-02_JPRB,6.9840E-02_JPRB,6.9218E-02_JPRB/)
+KBO( :, 2,25, 6) = (/&
+&6.2753E-03_JPRB,6.7567E-03_JPRB,3.9061E-02_JPRB,5.7057E-02_JPRB,7.0098E-02_JPRB,6.9005E-02_JPRB/)
+KBO( :, 3,25, 6) = (/&
+&6.5979E-03_JPRB,7.0692E-03_JPRB,3.9618E-02_JPRB,5.7283E-02_JPRB,6.9890E-02_JPRB,6.8312E-02_JPRB/)
+KBO( :, 4,25, 6) = (/&
+&6.9472E-03_JPRB,7.4089E-03_JPRB,4.0072E-02_JPRB,5.7410E-02_JPRB,6.9371E-02_JPRB,6.7241E-02_JPRB/)
+KBO( :, 5,25, 6) = (/&
+&7.3458E-03_JPRB,7.7968E-03_JPRB,4.0424E-02_JPRB,5.7407E-02_JPRB,6.8690E-02_JPRB,6.5883E-02_JPRB/)
+KBO( :, 1,26, 6) = (/&
+&5.0276E-03_JPRB,5.5197E-03_JPRB,3.2341E-02_JPRB,4.7306E-02_JPRB,5.8159E-02_JPRB,5.6987E-02_JPRB/)
+KBO( :, 2,26, 6) = (/&
+&5.2905E-03_JPRB,5.7808E-03_JPRB,3.2856E-02_JPRB,4.7610E-02_JPRB,5.8188E-02_JPRB,5.6640E-02_JPRB/)
+KBO( :, 3,26, 6) = (/&
+&5.5724E-03_JPRB,6.0595E-03_JPRB,3.3306E-02_JPRB,4.7831E-02_JPRB,5.7928E-02_JPRB,5.5939E-02_JPRB/)
+KBO( :, 4,26, 6) = (/&
+&5.8946E-03_JPRB,6.3770E-03_JPRB,3.3653E-02_JPRB,4.7935E-02_JPRB,5.7502E-02_JPRB,5.4956E-02_JPRB/)
+KBO( :, 5,26, 6) = (/&
+&6.2574E-03_JPRB,6.7355E-03_JPRB,3.3928E-02_JPRB,4.7887E-02_JPRB,5.6970E-02_JPRB,5.3762E-02_JPRB/)
+KBO( :, 1,27, 6) = (/&
+&4.2349E-03_JPRB,4.7179E-03_JPRB,2.7116E-02_JPRB,3.9401E-02_JPRB,4.8220E-02_JPRB,4.6782E-02_JPRB/)
+KBO( :, 2,27, 6) = (/&
+&4.4634E-03_JPRB,4.9470E-03_JPRB,2.7543E-02_JPRB,3.9674E-02_JPRB,4.8162E-02_JPRB,4.6385E-02_JPRB/)
+KBO( :, 3,27, 6) = (/&
+&4.7202E-03_JPRB,5.2071E-03_JPRB,2.7886E-02_JPRB,3.9869E-02_JPRB,4.7941E-02_JPRB,4.5722E-02_JPRB/)
+KBO( :, 4,27, 6) = (/&
+&5.0160E-03_JPRB,5.5039E-03_JPRB,2.8167E-02_JPRB,3.9934E-02_JPRB,4.7615E-02_JPRB,4.4846E-02_JPRB/)
+KBO( :, 5,27, 6) = (/&
+&5.3481E-03_JPRB,5.8380E-03_JPRB,2.8394E-02_JPRB,3.9860E-02_JPRB,4.7184E-02_JPRB,4.3824E-02_JPRB/)
+KBO( :, 1,28, 6) = (/&
+&3.5674E-03_JPRB,4.0284E-03_JPRB,2.2673E-02_JPRB,3.2772E-02_JPRB,3.9872E-02_JPRB,3.8332E-02_JPRB/)
+KBO( :, 2,28, 6) = (/&
+&3.7734E-03_JPRB,4.2398E-03_JPRB,2.3008E-02_JPRB,3.3028E-02_JPRB,3.9810E-02_JPRB,3.7930E-02_JPRB/)
+KBO( :, 3,28, 6) = (/&
+&4.0097E-03_JPRB,4.4845E-03_JPRB,2.3286E-02_JPRB,3.3175E-02_JPRB,3.9654E-02_JPRB,3.7324E-02_JPRB/)
+KBO( :, 4,28, 6) = (/&
+&4.2788E-03_JPRB,4.7627E-03_JPRB,2.3514E-02_JPRB,3.3194E-02_JPRB,3.9398E-02_JPRB,3.6571E-02_JPRB/)
+KBO( :, 5,28, 6) = (/&
+&4.5757E-03_JPRB,5.0676E-03_JPRB,2.3719E-02_JPRB,3.3118E-02_JPRB,3.9020E-02_JPRB,3.5708E-02_JPRB/)
+KBO( :, 1,29, 6) = (/&
+&3.0115E-03_JPRB,3.4411E-03_JPRB,1.8911E-02_JPRB,2.7247E-02_JPRB,3.2943E-02_JPRB,3.1382E-02_JPRB/)
+KBO( :, 2,29, 6) = (/&
+&3.1994E-03_JPRB,3.6407E-03_JPRB,1.9179E-02_JPRB,2.7455E-02_JPRB,3.2911E-02_JPRB,3.1000E-02_JPRB/)
+KBO( :, 3,29, 6) = (/&
+&3.4147E-03_JPRB,3.8682E-03_JPRB,1.9409E-02_JPRB,2.7552E-02_JPRB,3.2798E-02_JPRB,3.0472E-02_JPRB/)
+KBO( :, 4,29, 6) = (/&
+&3.6579E-03_JPRB,4.1270E-03_JPRB,1.9605E-02_JPRB,2.7559E-02_JPRB,3.2573E-02_JPRB,2.9835E-02_JPRB/)
+KBO( :, 5,29, 6) = (/&
+&3.9162E-03_JPRB,4.3987E-03_JPRB,1.9809E-02_JPRB,2.7488E-02_JPRB,3.2240E-02_JPRB,2.9120E-02_JPRB/)
+KBO( :, 1,30, 6) = (/&
+&2.5481E-03_JPRB,2.9444E-03_JPRB,1.5745E-02_JPRB,2.2634E-02_JPRB,2.7226E-02_JPRB,2.5677E-02_JPRB/)
+KBO( :, 2,30, 6) = (/&
+&2.7188E-03_JPRB,3.1307E-03_JPRB,1.5966E-02_JPRB,2.2786E-02_JPRB,2.7220E-02_JPRB,2.5335E-02_JPRB/)
+KBO( :, 3,30, 6) = (/&
+&2.9148E-03_JPRB,3.3439E-03_JPRB,1.6160E-02_JPRB,2.2855E-02_JPRB,2.7119E-02_JPRB,2.4882E-02_JPRB/)
+KBO( :, 4,30, 6) = (/&
+&3.1280E-03_JPRB,3.5773E-03_JPRB,1.6348E-02_JPRB,2.2854E-02_JPRB,2.6917E-02_JPRB,2.4354E-02_JPRB/)
+KBO( :, 5,30, 6) = (/&
+&3.3553E-03_JPRB,3.8202E-03_JPRB,1.6558E-02_JPRB,2.2811E-02_JPRB,2.6630E-02_JPRB,2.3768E-02_JPRB/)
+KBO( :, 1,31, 6) = (/&
+&2.1615E-03_JPRB,2.5257E-03_JPRB,1.3098E-02_JPRB,1.8778E-02_JPRB,2.2519E-02_JPRB,2.1018E-02_JPRB/)
+KBO( :, 2,31, 6) = (/&
+&2.3170E-03_JPRB,2.6986E-03_JPRB,1.3284E-02_JPRB,1.8891E-02_JPRB,2.2515E-02_JPRB,2.0722E-02_JPRB/)
+KBO( :, 3,31, 6) = (/&
+&2.4905E-03_JPRB,2.8953E-03_JPRB,1.3459E-02_JPRB,1.8946E-02_JPRB,2.2414E-02_JPRB,2.0345E-02_JPRB/)
+KBO( :, 4,31, 6) = (/&
+&2.6777E-03_JPRB,3.1024E-03_JPRB,1.3649E-02_JPRB,1.8949E-02_JPRB,2.2235E-02_JPRB,1.9908E-02_JPRB/)
+KBO( :, 5,31, 6) = (/&
+&2.8803E-03_JPRB,3.3243E-03_JPRB,1.3860E-02_JPRB,1.8946E-02_JPRB,2.1996E-02_JPRB,1.9437E-02_JPRB/)
+KBO( :, 1,32, 6) = (/&
+&1.8385E-03_JPRB,2.1718E-03_JPRB,1.0896E-02_JPRB,1.5564E-02_JPRB,1.8628E-02_JPRB,1.7209E-02_JPRB/)
+KBO( :, 2,32, 6) = (/&
+&1.9787E-03_JPRB,2.3333E-03_JPRB,1.1058E-02_JPRB,1.5657E-02_JPRB,1.8613E-02_JPRB,1.6956E-02_JPRB/)
+KBO( :, 3,32, 6) = (/&
+&2.1311E-03_JPRB,2.5090E-03_JPRB,1.1225E-02_JPRB,1.5701E-02_JPRB,1.8522E-02_JPRB,1.6642E-02_JPRB/)
+KBO( :, 4,32, 6) = (/&
+&2.2971E-03_JPRB,2.6964E-03_JPRB,1.1416E-02_JPRB,1.5725E-02_JPRB,1.8369E-02_JPRB,1.6291E-02_JPRB/)
+KBO( :, 5,32, 6) = (/&
+&2.4814E-03_JPRB,2.9021E-03_JPRB,1.1629E-02_JPRB,1.5757E-02_JPRB,1.8177E-02_JPRB,1.5913E-02_JPRB/)
+KBO( :, 1,33, 6) = (/&
+&1.5686E-03_JPRB,1.8737E-03_JPRB,9.0681E-03_JPRB,1.2902E-02_JPRB,1.5408E-02_JPRB,1.4096E-02_JPRB/)
+KBO( :, 2,33, 6) = (/&
+&1.6920E-03_JPRB,2.0214E-03_JPRB,9.2168E-03_JPRB,1.2976E-02_JPRB,1.5384E-02_JPRB,1.3883E-02_JPRB/)
+KBO( :, 3,33, 6) = (/&
+&1.8273E-03_JPRB,2.1791E-03_JPRB,9.3843E-03_JPRB,1.3022E-02_JPRB,1.5304E-02_JPRB,1.3632E-02_JPRB/)
+KBO( :, 4,33, 6) = (/&
+&1.9765E-03_JPRB,2.3516E-03_JPRB,9.5730E-03_JPRB,1.3071E-02_JPRB,1.5178E-02_JPRB,1.3350E-02_JPRB/)
+KBO( :, 5,33, 6) = (/&
+&2.1452E-03_JPRB,2.5432E-03_JPRB,9.7830E-03_JPRB,1.3131E-02_JPRB,1.5037E-02_JPRB,1.3045E-02_JPRB/)
+KBO( :, 1,34, 6) = (/&
+&1.3372E-03_JPRB,1.6178E-03_JPRB,7.5519E-03_JPRB,1.0693E-02_JPRB,1.2740E-02_JPRB,1.1549E-02_JPRB/)
+KBO( :, 2,34, 6) = (/&
+&1.4461E-03_JPRB,1.7503E-03_JPRB,7.6945E-03_JPRB,1.0757E-02_JPRB,1.2715E-02_JPRB,1.1377E-02_JPRB/)
+KBO( :, 3,34, 6) = (/&
+&1.5660E-03_JPRB,1.8937E-03_JPRB,7.8583E-03_JPRB,1.0816E-02_JPRB,1.2648E-02_JPRB,1.1176E-02_JPRB/)
+KBO( :, 4,34, 6) = (/&
+&1.7014E-03_JPRB,2.0534E-03_JPRB,8.0448E-03_JPRB,1.0884E-02_JPRB,1.2559E-02_JPRB,1.0950E-02_JPRB/)
+KBO( :, 5,34, 6) = (/&
+&1.8558E-03_JPRB,2.2315E-03_JPRB,8.2423E-03_JPRB,1.0963E-02_JPRB,1.2464E-02_JPRB,1.0705E-02_JPRB/)
+KBO( :, 1,35, 6) = (/&
+&1.1329E-03_JPRB,1.3895E-03_JPRB,6.2880E-03_JPRB,8.8610E-03_JPRB,1.0532E-02_JPRB,9.4809E-03_JPRB/)
+KBO( :, 2,35, 6) = (/&
+&1.2284E-03_JPRB,1.5079E-03_JPRB,6.4262E-03_JPRB,8.9261E-03_JPRB,1.0516E-02_JPRB,9.3462E-03_JPRB/)
+KBO( :, 3,35, 6) = (/&
+&1.3351E-03_JPRB,1.6386E-03_JPRB,6.5845E-03_JPRB,8.9958E-03_JPRB,1.0468E-02_JPRB,9.1865E-03_JPRB/)
+KBO( :, 4,35, 6) = (/&
+&1.4573E-03_JPRB,1.7849E-03_JPRB,6.7614E-03_JPRB,9.0760E-03_JPRB,1.0410E-02_JPRB,9.0064E-03_JPRB/)
+KBO( :, 5,35, 6) = (/&
+&1.5970E-03_JPRB,1.9487E-03_JPRB,6.9420E-03_JPRB,9.1662E-03_JPRB,1.0351E-02_JPRB,8.8117E-03_JPRB/)
+KBO( :, 1,36, 6) = (/&
+&9.5211E-04_JPRB,1.1843E-03_JPRB,5.2312E-03_JPRB,7.3412E-03_JPRB,8.7087E-03_JPRB,7.7981E-03_JPRB/)
+KBO( :, 2,36, 6) = (/&
+&1.0354E-03_JPRB,1.2901E-03_JPRB,5.3625E-03_JPRB,7.4088E-03_JPRB,8.7005E-03_JPRB,7.6928E-03_JPRB/)
+KBO( :, 3,36, 6) = (/&
+&1.1296E-03_JPRB,1.4079E-03_JPRB,5.5138E-03_JPRB,7.4862E-03_JPRB,8.6732E-03_JPRB,7.5689E-03_JPRB/)
+KBO( :, 4,36, 6) = (/&
+&1.2388E-03_JPRB,1.5409E-03_JPRB,5.6750E-03_JPRB,7.5726E-03_JPRB,8.6424E-03_JPRB,7.4262E-03_JPRB/)
+KBO( :, 5,36, 6) = (/&
+&1.3638E-03_JPRB,1.6902E-03_JPRB,5.8416E-03_JPRB,7.6677E-03_JPRB,8.6124E-03_JPRB,7.2708E-03_JPRB/)
+KBO( :, 1,37, 6) = (/&
+&7.9067E-04_JPRB,9.9728E-04_JPRB,4.3412E-03_JPRB,6.0781E-03_JPRB,7.2010E-03_JPRB,6.4225E-03_JPRB/)
+KBO( :, 2,37, 6) = (/&
+&8.6207E-04_JPRB,1.0903E-03_JPRB,4.4618E-03_JPRB,6.1477E-03_JPRB,7.2040E-03_JPRB,6.3450E-03_JPRB/)
+KBO( :, 3,37, 6) = (/&
+&9.4365E-04_JPRB,1.1951E-03_JPRB,4.6016E-03_JPRB,6.2259E-03_JPRB,7.1949E-03_JPRB,6.2491E-03_JPRB/)
+KBO( :, 4,37, 6) = (/&
+&1.0390E-03_JPRB,1.3137E-03_JPRB,4.7474E-03_JPRB,6.3134E-03_JPRB,7.1835E-03_JPRB,6.1371E-03_JPRB/)
+KBO( :, 5,37, 6) = (/&
+&1.1493E-03_JPRB,1.4482E-03_JPRB,4.9008E-03_JPRB,6.4092E-03_JPRB,7.1759E-03_JPRB,6.0153E-03_JPRB/)
+KBO( :, 1,38, 6) = (/&
+&6.5574E-04_JPRB,8.3902E-04_JPRB,3.6029E-03_JPRB,5.0338E-03_JPRB,5.9535E-03_JPRB,5.2931E-03_JPRB/)
+KBO( :, 2,38, 6) = (/&
+&7.1723E-04_JPRB,9.2092E-04_JPRB,3.7143E-03_JPRB,5.1033E-03_JPRB,5.9664E-03_JPRB,5.2356E-03_JPRB/)
+KBO( :, 3,38, 6) = (/&
+&7.8817E-04_JPRB,1.0140E-03_JPRB,3.8410E-03_JPRB,5.1788E-03_JPRB,5.9694E-03_JPRB,5.1631E-03_JPRB/)
+KBO( :, 4,38, 6) = (/&
+&8.7142E-04_JPRB,1.1199E-03_JPRB,3.9722E-03_JPRB,5.2685E-03_JPRB,5.9738E-03_JPRB,5.0758E-03_JPRB/)
+KBO( :, 5,38, 6) = (/&
+&9.6814E-04_JPRB,1.2406E-03_JPRB,4.1130E-03_JPRB,5.3594E-03_JPRB,5.9796E-03_JPRB,4.9809E-03_JPRB/)
+KBO( :, 1,39, 6) = (/&
+&5.4394E-04_JPRB,7.0587E-04_JPRB,2.9920E-03_JPRB,4.1712E-03_JPRB,4.9241E-03_JPRB,4.3648E-03_JPRB/)
+KBO( :, 2,39, 6) = (/&
+&5.9679E-04_JPRB,7.7794E-04_JPRB,3.0938E-03_JPRB,4.2387E-03_JPRB,4.9429E-03_JPRB,4.3244E-03_JPRB/)
+KBO( :, 3,39, 6) = (/&
+&6.5862E-04_JPRB,8.6057E-04_JPRB,3.2080E-03_JPRB,4.3149E-03_JPRB,4.9560E-03_JPRB,4.2705E-03_JPRB/)
+KBO( :, 4,39, 6) = (/&
+&7.3136E-04_JPRB,9.5521E-04_JPRB,3.3261E-03_JPRB,4.3998E-03_JPRB,4.9704E-03_JPRB,4.2037E-03_JPRB/)
+KBO( :, 5,39, 6) = (/&
+&8.1646E-04_JPRB,1.0637E-03_JPRB,3.4565E-03_JPRB,4.4868E-03_JPRB,4.9875E-03_JPRB,4.1313E-03_JPRB/)
+KBO( :, 1,40, 6) = (/&
+&4.4679E-04_JPRB,5.8745E-04_JPRB,2.4763E-03_JPRB,3.4505E-03_JPRB,4.0708E-03_JPRB,3.5945E-03_JPRB/)
+KBO( :, 2,40, 6) = (/&
+&4.9169E-04_JPRB,6.5005E-04_JPRB,2.5677E-03_JPRB,3.5152E-03_JPRB,4.0943E-03_JPRB,3.5667E-03_JPRB/)
+KBO( :, 3,40, 6) = (/&
+&5.4450E-04_JPRB,7.2222E-04_JPRB,2.6693E-03_JPRB,3.5873E-03_JPRB,4.1135E-03_JPRB,3.5266E-03_JPRB/)
+KBO( :, 4,40, 6) = (/&
+&6.0712E-04_JPRB,8.0578E-04_JPRB,2.7753E-03_JPRB,3.6696E-03_JPRB,4.1353E-03_JPRB,3.4759E-03_JPRB/)
+KBO( :, 5,40, 6) = (/&
+&6.8061E-04_JPRB,9.0198E-04_JPRB,2.8937E-03_JPRB,3.7510E-03_JPRB,4.1595E-03_JPRB,3.4202E-03_JPRB/)
+KBO( :, 1,41, 6) = (/&
+&3.6654E-04_JPRB,4.8763E-04_JPRB,2.0497E-03_JPRB,2.8544E-03_JPRB,3.3652E-03_JPRB,2.9593E-03_JPRB/)
+KBO( :, 2,41, 6) = (/&
+&4.0436E-04_JPRB,5.4168E-04_JPRB,2.1297E-03_JPRB,2.9143E-03_JPRB,3.3913E-03_JPRB,2.9409E-03_JPRB/)
+KBO( :, 3,41, 6) = (/&
+&4.4941E-04_JPRB,6.0442E-04_JPRB,2.2197E-03_JPRB,2.9825E-03_JPRB,3.4145E-03_JPRB,2.9122E-03_JPRB/)
+KBO( :, 4,41, 6) = (/&
+&5.0288E-04_JPRB,6.7766E-04_JPRB,2.3143E-03_JPRB,3.0596E-03_JPRB,3.4407E-03_JPRB,2.8738E-03_JPRB/)
+KBO( :, 5,41, 6) = (/&
+&5.6627E-04_JPRB,7.6296E-04_JPRB,2.4209E-03_JPRB,3.1354E-03_JPRB,3.4693E-03_JPRB,2.8312E-03_JPRB/)
+KBO( :, 1,42, 6) = (/&
+&3.0056E-04_JPRB,4.0423E-04_JPRB,1.6955E-03_JPRB,2.3604E-03_JPRB,2.7815E-03_JPRB,2.4359E-03_JPRB/)
+KBO( :, 2,42, 6) = (/&
+&3.3240E-04_JPRB,4.5078E-04_JPRB,1.7662E-03_JPRB,2.4162E-03_JPRB,2.8087E-03_JPRB,2.4250E-03_JPRB/)
+KBO( :, 3,42, 6) = (/&
+&3.7060E-04_JPRB,5.0501E-04_JPRB,1.8455E-03_JPRB,2.4795E-03_JPRB,2.8342E-03_JPRB,2.4047E-03_JPRB/)
+KBO( :, 4,42, 6) = (/&
+&4.1638E-04_JPRB,5.6912E-04_JPRB,1.9299E-03_JPRB,2.5508E-03_JPRB,2.8626E-03_JPRB,2.3765E-03_JPRB/)
+KBO( :, 5,42, 6) = (/&
+&4.7089E-04_JPRB,6.4463E-04_JPRB,2.0249E-03_JPRB,2.6208E-03_JPRB,2.8943E-03_JPRB,2.3447E-03_JPRB/)
+KBO( :, 1,43, 6) = (/&
+&2.4502E-04_JPRB,3.3261E-04_JPRB,1.3991E-03_JPRB,1.9481E-03_JPRB,2.2961E-03_JPRB,2.0045E-03_JPRB/)
+KBO( :, 2,43, 6) = (/&
+&2.7152E-04_JPRB,3.7212E-04_JPRB,1.4606E-03_JPRB,1.9988E-03_JPRB,2.3241E-03_JPRB,1.9999E-03_JPRB/)
+KBO( :, 3,43, 6) = (/&
+&3.0343E-04_JPRB,4.1851E-04_JPRB,1.5301E-03_JPRB,2.0581E-03_JPRB,2.3515E-03_JPRB,1.9867E-03_JPRB/)
+KBO( :, 4,43, 6) = (/&
+&3.4217E-04_JPRB,4.7384E-04_JPRB,1.6047E-03_JPRB,2.1225E-03_JPRB,2.3804E-03_JPRB,1.9662E-03_JPRB/)
+KBO( :, 5,43, 6) = (/&
+&3.8865E-04_JPRB,5.3980E-04_JPRB,1.6888E-03_JPRB,2.1871E-03_JPRB,2.4134E-03_JPRB,1.9423E-03_JPRB/)
+KBO( :, 1,44, 6) = (/&
+&1.9915E-04_JPRB,2.7249E-04_JPRB,1.1527E-03_JPRB,1.6068E-03_JPRB,1.8949E-03_JPRB,1.6492E-03_JPRB/)
+KBO( :, 2,44, 6) = (/&
+&2.2104E-04_JPRB,3.0586E-04_JPRB,1.2059E-03_JPRB,1.6524E-03_JPRB,1.9220E-03_JPRB,1.6487E-03_JPRB/)
+KBO( :, 3,44, 6) = (/&
+&2.4764E-04_JPRB,3.4529E-04_JPRB,1.2668E-03_JPRB,1.7051E-03_JPRB,1.9490E-03_JPRB,1.6410E-03_JPRB/)
+KBO( :, 4,44, 6) = (/&
+&2.8005E-04_JPRB,3.9253E-04_JPRB,1.3322E-03_JPRB,1.7635E-03_JPRB,1.9786E-03_JPRB,1.6274E-03_JPRB/)
+KBO( :, 5,44, 6) = (/&
+&3.1937E-04_JPRB,4.4948E-04_JPRB,1.4058E-03_JPRB,1.8224E-03_JPRB,2.0114E-03_JPRB,1.6103E-03_JPRB/)
+KBO( :, 1,45, 6) = (/&
+&1.6169E-04_JPRB,2.2287E-04_JPRB,9.4886E-04_JPRB,1.3244E-03_JPRB,1.5624E-03_JPRB,1.3564E-03_JPRB/)
+KBO( :, 2,45, 6) = (/&
+&1.7988E-04_JPRB,2.5107E-04_JPRB,9.9462E-04_JPRB,1.3650E-03_JPRB,1.5885E-03_JPRB,1.3595E-03_JPRB/)
+KBO( :, 3,45, 6) = (/&
+&2.0188E-04_JPRB,2.8430E-04_JPRB,1.0481E-03_JPRB,1.4121E-03_JPRB,1.6151E-03_JPRB,1.3561E-03_JPRB/)
+KBO( :, 4,45, 6) = (/&
+&2.2901E-04_JPRB,3.2458E-04_JPRB,1.1056E-03_JPRB,1.4643E-03_JPRB,1.6434E-03_JPRB,1.3471E-03_JPRB/)
+KBO( :, 5,45, 6) = (/&
+&2.6215E-04_JPRB,3.7359E-04_JPRB,1.1700E-03_JPRB,1.5178E-03_JPRB,1.6750E-03_JPRB,1.3351E-03_JPRB/)
+KBO( :, 1,46, 6) = (/&
+&1.3087E-04_JPRB,1.8153E-04_JPRB,7.8014E-04_JPRB,1.0903E-03_JPRB,1.2862E-03_JPRB,1.1149E-03_JPRB/)
+KBO( :, 2,46, 6) = (/&
+&1.4588E-04_JPRB,2.0523E-04_JPRB,8.1887E-04_JPRB,1.1260E-03_JPRB,1.3113E-03_JPRB,1.1201E-03_JPRB/)
+KBO( :, 3,46, 6) = (/&
+&1.6401E-04_JPRB,2.3309E-04_JPRB,8.6531E-04_JPRB,1.1670E-03_JPRB,1.3362E-03_JPRB,1.1199E-03_JPRB/)
+KBO( :, 4,46, 6) = (/&
+&1.8657E-04_JPRB,2.6716E-04_JPRB,9.1576E-04_JPRB,1.2141E-03_JPRB,1.3636E-03_JPRB,1.1150E-03_JPRB/)
+KBO( :, 5,46, 6) = (/&
+&2.1433E-04_JPRB,3.0901E-04_JPRB,9.7156E-04_JPRB,1.2621E-03_JPRB,1.3940E-03_JPRB,1.1075E-03_JPRB/)
+KBO( :, 1,47, 6) = (/&
+&1.0532E-04_JPRB,1.4678E-04_JPRB,6.3931E-04_JPRB,8.9566E-04_JPRB,1.0570E-03_JPRB,9.1457E-04_JPRB/)
+KBO( :, 2,47, 6) = (/&
+&1.1765E-04_JPRB,1.6658E-04_JPRB,6.7225E-04_JPRB,9.2702E-04_JPRB,1.0808E-03_JPRB,9.2153E-04_JPRB/)
+KBO( :, 3,47, 6) = (/&
+&1.3241E-04_JPRB,1.8980E-04_JPRB,7.1202E-04_JPRB,9.6250E-04_JPRB,1.1041E-03_JPRB,9.2404E-04_JPRB/)
+KBO( :, 4,47, 6) = (/&
+&1.5090E-04_JPRB,2.1814E-04_JPRB,7.5592E-04_JPRB,1.0038E-03_JPRB,1.1296E-03_JPRB,9.2224E-04_JPRB/)
+KBO( :, 5,47, 6) = (/&
+&1.7385E-04_JPRB,2.5344E-04_JPRB,8.0420E-04_JPRB,1.0471E-03_JPRB,1.1580E-03_JPRB,9.1765E-04_JPRB/)
+KBO( :, 1,48, 6) = (/&
+&8.4617E-05_JPRB,1.1838E-04_JPRB,5.2334E-04_JPRB,7.3546E-04_JPRB,8.6835E-04_JPRB,7.5017E-04_JPRB/)
+KBO( :, 2,48, 6) = (/&
+&9.4785E-05_JPRB,1.3495E-04_JPRB,5.5091E-04_JPRB,7.6251E-04_JPRB,8.9031E-04_JPRB,7.5816E-04_JPRB/)
+KBO( :, 3,48, 6) = (/&
+&1.0679E-04_JPRB,1.5426E-04_JPRB,5.8488E-04_JPRB,7.9332E-04_JPRB,9.1168E-04_JPRB,7.6245E-04_JPRB/)
+KBO( :, 4,48, 6) = (/&
+&1.2188E-04_JPRB,1.7784E-04_JPRB,6.2314E-04_JPRB,8.2922E-04_JPRB,9.3479E-04_JPRB,7.6276E-04_JPRB/)
+KBO( :, 5,48, 6) = (/&
+&1.4083E-04_JPRB,2.0741E-04_JPRB,6.6491E-04_JPRB,8.6778E-04_JPRB,9.6073E-04_JPRB,7.6049E-04_JPRB/)
+KBO( :, 1,49, 6) = (/&
+&6.7867E-05_JPRB,9.5270E-05_JPRB,4.2786E-04_JPRB,6.0311E-04_JPRB,7.1217E-04_JPRB,6.1511E-04_JPRB/)
+KBO( :, 2,49, 6) = (/&
+&7.6245E-05_JPRB,1.0908E-04_JPRB,4.5097E-04_JPRB,6.2662E-04_JPRB,7.3243E-04_JPRB,6.2369E-04_JPRB/)
+KBO( :, 3,49, 6) = (/&
+&8.6029E-05_JPRB,1.2515E-04_JPRB,4.7966E-04_JPRB,6.5287E-04_JPRB,7.5158E-04_JPRB,6.2923E-04_JPRB/)
+KBO( :, 4,49, 6) = (/&
+&9.8304E-05_JPRB,1.4466E-04_JPRB,5.1259E-04_JPRB,6.8383E-04_JPRB,7.7254E-04_JPRB,6.3132E-04_JPRB/)
+KBO( :, 5,49, 6) = (/&
+&1.1386E-04_JPRB,1.6934E-04_JPRB,5.4863E-04_JPRB,7.1799E-04_JPRB,7.9596E-04_JPRB,6.3100E-04_JPRB/)
+KBO( :, 1,50, 6) = (/&
+&5.4470E-05_JPRB,7.6746E-05_JPRB,3.4976E-04_JPRB,4.9428E-04_JPRB,5.8397E-04_JPRB,5.0306E-04_JPRB/)
+KBO( :, 2,50, 6) = (/&
+&6.1410E-05_JPRB,8.8237E-05_JPRB,3.6915E-04_JPRB,5.1456E-04_JPRB,6.0217E-04_JPRB,5.1154E-04_JPRB/)
+KBO( :, 3,50, 6) = (/&
+&6.9439E-05_JPRB,1.0166E-04_JPRB,3.9314E-04_JPRB,5.3721E-04_JPRB,6.1939E-04_JPRB,5.1755E-04_JPRB/)
+KBO( :, 4,50, 6) = (/&
+&7.9454E-05_JPRB,1.1792E-04_JPRB,4.2160E-04_JPRB,5.6412E-04_JPRB,6.3835E-04_JPRB,5.2074E-04_JPRB/)
+KBO( :, 5,50, 6) = (/&
+&9.2275E-05_JPRB,1.3855E-04_JPRB,4.5301E-04_JPRB,5.9448E-04_JPRB,6.5950E-04_JPRB,5.2175E-04_JPRB/)
+KBO( :, 1,51, 6) = (/&
+&4.3722E-05_JPRB,6.1806E-05_JPRB,2.8578E-04_JPRB,4.0468E-04_JPRB,4.7855E-04_JPRB,4.1074E-04_JPRB/)
+KBO( :, 2,51, 6) = (/&
+&4.9457E-05_JPRB,7.1342E-05_JPRB,3.0211E-04_JPRB,4.2230E-04_JPRB,4.9488E-04_JPRB,4.1886E-04_JPRB/)
+KBO( :, 3,51, 6) = (/&
+&5.6064E-05_JPRB,8.2554E-05_JPRB,3.2225E-04_JPRB,4.4204E-04_JPRB,5.1049E-04_JPRB,4.2506E-04_JPRB/)
+KBO( :, 4,51, 6) = (/&
+&6.4238E-05_JPRB,9.6120E-05_JPRB,3.4672E-04_JPRB,4.6528E-04_JPRB,5.2743E-04_JPRB,4.2888E-04_JPRB/)
+KBO( :, 5,51, 6) = (/&
+&7.4796E-05_JPRB,1.1334E-04_JPRB,3.7378E-04_JPRB,4.9196E-04_JPRB,5.4618E-04_JPRB,4.3057E-04_JPRB/)
+KBO( :, 1,52, 6) = (/&
+&3.5070E-05_JPRB,4.9691E-05_JPRB,2.3330E-04_JPRB,3.3093E-04_JPRB,3.9172E-04_JPRB,3.3527E-04_JPRB/)
+KBO( :, 2,52, 6) = (/&
+&3.9769E-05_JPRB,5.7541E-05_JPRB,2.4706E-04_JPRB,3.4637E-04_JPRB,4.0670E-04_JPRB,3.4297E-04_JPRB/)
+KBO( :, 3,52, 6) = (/&
+&4.5223E-05_JPRB,6.6916E-05_JPRB,2.6381E-04_JPRB,3.6327E-04_JPRB,4.2045E-04_JPRB,3.4912E-04_JPRB/)
+KBO( :, 4,52, 6) = (/&
+&5.1871E-05_JPRB,7.8200E-05_JPRB,2.8472E-04_JPRB,3.8310E-04_JPRB,4.3533E-04_JPRB,3.5324E-04_JPRB/)
+KBO( :, 5,52, 6) = (/&
+&6.0522E-05_JPRB,9.2554E-05_JPRB,3.0796E-04_JPRB,4.0644E-04_JPRB,4.5190E-04_JPRB,3.5548E-04_JPRB/)
+KBO( :, 1,53, 6) = (/&
+&2.8114E-05_JPRB,3.9895E-05_JPRB,1.9033E-04_JPRB,2.7035E-04_JPRB,3.2027E-04_JPRB,2.7374E-04_JPRB/)
+KBO( :, 2,53, 6) = (/&
+&3.1912E-05_JPRB,4.6272E-05_JPRB,2.0180E-04_JPRB,2.8364E-04_JPRB,3.3368E-04_JPRB,2.8088E-04_JPRB/)
+KBO( :, 3,53, 6) = (/&
+&3.6415E-05_JPRB,5.4088E-05_JPRB,2.1570E-04_JPRB,2.9812E-04_JPRB,3.4609E-04_JPRB,2.8682E-04_JPRB/)
+KBO( :, 4,53, 6) = (/&
+&4.1826E-05_JPRB,6.3486E-05_JPRB,2.3334E-04_JPRB,3.1498E-04_JPRB,3.5898E-04_JPRB,2.9120E-04_JPRB/)
+KBO( :, 5,53, 6) = (/&
+&4.8885E-05_JPRB,7.5408E-05_JPRB,2.5337E-04_JPRB,3.3531E-04_JPRB,3.7352E-04_JPRB,2.9386E-04_JPRB/)
+KBO( :, 1,54, 6) = (/&
+&2.2610E-05_JPRB,3.2120E-05_JPRB,1.5540E-04_JPRB,2.2090E-04_JPRB,2.6189E-04_JPRB,2.2252E-04_JPRB/)
+KBO( :, 2,54, 6) = (/&
+&2.5670E-05_JPRB,3.7304E-05_JPRB,1.6500E-04_JPRB,2.3234E-04_JPRB,2.7383E-04_JPRB,2.2881E-04_JPRB/)
+KBO( :, 3,54, 6) = (/&
+&2.9398E-05_JPRB,4.3828E-05_JPRB,1.7662E-04_JPRB,2.4475E-04_JPRB,2.8488E-04_JPRB,2.3410E-04_JPRB/)
+KBO( :, 4,54, 6) = (/&
+&3.3830E-05_JPRB,5.1689E-05_JPRB,1.9147E-04_JPRB,2.5918E-04_JPRB,2.9621E-04_JPRB,2.3818E-04_JPRB/)
+KBO( :, 5,54, 6) = (/&
+&3.9626E-05_JPRB,6.1637E-05_JPRB,2.0865E-04_JPRB,2.7674E-04_JPRB,3.0891E-04_JPRB,2.4078E-04_JPRB/)
+KBO( :, 1,55, 6) = (/&
+&1.8209E-05_JPRB,2.5880E-05_JPRB,1.2688E-04_JPRB,1.8045E-04_JPRB,2.1398E-04_JPRB,1.8038E-04_JPRB/)
+KBO( :, 2,55, 6) = (/&
+&2.0657E-05_JPRB,3.0086E-05_JPRB,1.3493E-04_JPRB,1.9025E-04_JPRB,2.2450E-04_JPRB,1.8582E-04_JPRB/)
+KBO( :, 3,55, 6) = (/&
+&2.3739E-05_JPRB,3.5514E-05_JPRB,1.4460E-04_JPRB,2.0081E-04_JPRB,2.3430E-04_JPRB,1.9033E-04_JPRB/)
+KBO( :, 4,55, 6) = (/&
+&2.7397E-05_JPRB,4.2088E-05_JPRB,1.5714E-04_JPRB,2.1306E-04_JPRB,2.4416E-04_JPRB,1.9386E-04_JPRB/)
+KBO( :, 5,55, 6) = (/&
+&3.2153E-05_JPRB,5.0387E-05_JPRB,1.7186E-04_JPRB,2.2820E-04_JPRB,2.5533E-04_JPRB,1.9627E-04_JPRB/)
+KBO( :, 1,56, 6) = (/&
+&1.4654E-05_JPRB,2.0836E-05_JPRB,1.0350E-04_JPRB,1.4723E-04_JPRB,1.7458E-04_JPRB,1.4613E-04_JPRB/)
+KBO( :, 2,56, 6) = (/&
+&1.6602E-05_JPRB,2.4224E-05_JPRB,1.1023E-04_JPRB,1.5562E-04_JPRB,1.8380E-04_JPRB,1.5087E-04_JPRB/)
+KBO( :, 3,56, 6) = (/&
+&1.9145E-05_JPRB,2.8713E-05_JPRB,1.1831E-04_JPRB,1.6458E-04_JPRB,1.9243E-04_JPRB,1.5466E-04_JPRB/)
+KBO( :, 4,56, 6) = (/&
+&2.2162E-05_JPRB,3.4205E-05_JPRB,1.2877E-04_JPRB,1.7500E-04_JPRB,2.0107E-04_JPRB,1.5776E-04_JPRB/)
+KBO( :, 5,56, 6) = (/&
+&2.6047E-05_JPRB,4.1114E-05_JPRB,1.4137E-04_JPRB,1.8796E-04_JPRB,2.1083E-04_JPRB,1.5994E-04_JPRB/)
+KBO( :, 1,57, 6) = (/&
+&1.1795E-05_JPRB,1.6760E-05_JPRB,8.4304E-05_JPRB,1.1999E-04_JPRB,1.4218E-04_JPRB,1.1830E-04_JPRB/)
+KBO( :, 2,57, 6) = (/&
+&1.3335E-05_JPRB,1.9476E-05_JPRB,8.9964E-05_JPRB,1.2718E-04_JPRB,1.5035E-04_JPRB,1.2244E-04_JPRB/)
+KBO( :, 3,57, 6) = (/&
+&1.5412E-05_JPRB,2.3150E-05_JPRB,9.6680E-05_JPRB,1.3478E-04_JPRB,1.5779E-04_JPRB,1.2566E-04_JPRB/)
+KBO( :, 4,57, 6) = (/&
+&1.7896E-05_JPRB,2.7728E-05_JPRB,1.0539E-04_JPRB,1.4358E-04_JPRB,1.6536E-04_JPRB,1.2835E-04_JPRB/)
+KBO( :, 5,57, 6) = (/&
+&2.1071E-05_JPRB,3.3474E-05_JPRB,1.1614E-04_JPRB,1.5456E-04_JPRB,1.7382E-04_JPRB,1.3028E-04_JPRB/)
+KBO( :, 1,58, 6) = (/&
+&9.5144E-06_JPRB,1.3504E-05_JPRB,6.8670E-05_JPRB,9.7752E-05_JPRB,1.1572E-04_JPRB,9.5731E-05_JPRB/)
+KBO( :, 2,58, 6) = (/&
+&1.0727E-05_JPRB,1.5682E-05_JPRB,7.3425E-05_JPRB,1.0393E-04_JPRB,1.2288E-04_JPRB,9.9268E-05_JPRB/)
+KBO( :, 3,58, 6) = (/&
+&1.2418E-05_JPRB,1.8676E-05_JPRB,7.9036E-05_JPRB,1.1042E-04_JPRB,1.2941E-04_JPRB,1.0205E-04_JPRB/)
+KBO( :, 4,58, 6) = (/&
+&1.4470E-05_JPRB,2.2492E-05_JPRB,8.6301E-05_JPRB,1.1787E-04_JPRB,1.3601E-04_JPRB,1.0431E-04_JPRB/)
+KBO( :, 5,58, 6) = (/&
+&1.7068E-05_JPRB,2.7290E-05_JPRB,9.5445E-05_JPRB,1.2711E-04_JPRB,1.4326E-04_JPRB,1.0599E-04_JPRB/)
+KBO( :, 1,59, 6) = (/&
+&7.8205E-06_JPRB,1.1144E-05_JPRB,5.6553E-05_JPRB,8.0518E-05_JPRB,9.5253E-05_JPRB,7.7758E-05_JPRB/)
+KBO( :, 2,59, 6) = (/&
+&8.8412E-06_JPRB,1.2994E-05_JPRB,6.0645E-05_JPRB,8.5808E-05_JPRB,1.0137E-04_JPRB,8.0565E-05_JPRB/)
+KBO( :, 3,59, 6) = (/&
+&1.0275E-05_JPRB,1.5556E-05_JPRB,6.5508E-05_JPRB,9.1408E-05_JPRB,1.0703E-04_JPRB,8.2767E-05_JPRB/)
+KBO( :, 4,59, 6) = (/&
+&1.2026E-05_JPRB,1.8861E-05_JPRB,7.1879E-05_JPRB,9.7918E-05_JPRB,1.1277E-04_JPRB,8.4443E-05_JPRB/)
+KBO( :, 5,59, 6) = (/&
+&1.4259E-05_JPRB,2.3051E-05_JPRB,7.9857E-05_JPRB,1.0611E-04_JPRB,1.1921E-04_JPRB,8.5697E-05_JPRB/)
+KBO( :, 1,13, 7) = (/&
+&9.7647E-02_JPRB,9.7855E-02_JPRB,3.0363E-01_JPRB,4.7031E-01_JPRB,5.9904E-01_JPRB,6.6640E-01_JPRB/)
+KBO( :, 2,13, 7) = (/&
+&1.0049E-01_JPRB,1.0069E-01_JPRB,3.0218E-01_JPRB,4.6982E-01_JPRB,6.0036E-01_JPRB,6.7308E-01_JPRB/)
+KBO( :, 3,13, 7) = (/&
+&1.0377E-01_JPRB,1.0396E-01_JPRB,3.0033E-01_JPRB,4.6762E-01_JPRB,5.9983E-01_JPRB,6.7883E-01_JPRB/)
+KBO( :, 4,13, 7) = (/&
+&1.0704E-01_JPRB,1.0722E-01_JPRB,2.9892E-01_JPRB,4.6467E-01_JPRB,5.9751E-01_JPRB,6.8204E-01_JPRB/)
+KBO( :, 5,13, 7) = (/&
+&1.1023E-01_JPRB,1.1040E-01_JPRB,2.9802E-01_JPRB,4.6155E-01_JPRB,5.9382E-01_JPRB,6.8342E-01_JPRB/)
+KBO( :, 1,14, 7) = (/&
+&8.6235E-02_JPRB,8.6450E-02_JPRB,2.9028E-01_JPRB,4.5055E-01_JPRB,5.7620E-01_JPRB,6.3435E-01_JPRB/)
+KBO( :, 2,14, 7) = (/&
+&8.9084E-02_JPRB,8.9292E-02_JPRB,2.8945E-01_JPRB,4.5002E-01_JPRB,5.7817E-01_JPRB,6.3980E-01_JPRB/)
+KBO( :, 3,14, 7) = (/&
+&9.1939E-02_JPRB,9.2133E-02_JPRB,2.8902E-01_JPRB,4.4871E-01_JPRB,5.7814E-01_JPRB,6.4427E-01_JPRB/)
+KBO( :, 4,14, 7) = (/&
+&9.4793E-02_JPRB,9.4979E-02_JPRB,2.8897E-01_JPRB,4.4708E-01_JPRB,5.7621E-01_JPRB,6.4667E-01_JPRB/)
+KBO( :, 5,14, 7) = (/&
+&9.7493E-02_JPRB,9.7668E-02_JPRB,2.8924E-01_JPRB,4.4518E-01_JPRB,5.7317E-01_JPRB,6.4671E-01_JPRB/)
+KBO( :, 1,15, 7) = (/&
+&7.5804E-02_JPRB,7.6029E-02_JPRB,2.7446E-01_JPRB,4.2589E-01_JPRB,5.4720E-01_JPRB,5.9726E-01_JPRB/)
+KBO( :, 2,15, 7) = (/&
+&7.8300E-02_JPRB,7.8517E-02_JPRB,2.7502E-01_JPRB,4.2618E-01_JPRB,5.4948E-01_JPRB,6.0171E-01_JPRB/)
+KBO( :, 3,15, 7) = (/&
+&8.0785E-02_JPRB,8.0989E-02_JPRB,2.7599E-01_JPRB,4.2609E-01_JPRB,5.4964E-01_JPRB,6.0469E-01_JPRB/)
+KBO( :, 4,15, 7) = (/&
+&8.3195E-02_JPRB,8.3388E-02_JPRB,2.7720E-01_JPRB,4.2579E-01_JPRB,5.4827E-01_JPRB,6.0587E-01_JPRB/)
+KBO( :, 5,15, 7) = (/&
+&8.5455E-02_JPRB,8.5636E-02_JPRB,2.7832E-01_JPRB,4.2510E-01_JPRB,5.4565E-01_JPRB,6.0534E-01_JPRB/)
+KBO( :, 1,16, 7) = (/&
+&6.6118E-02_JPRB,6.6355E-02_JPRB,2.5732E-01_JPRB,3.9829E-01_JPRB,5.1265E-01_JPRB,5.5527E-01_JPRB/)
+KBO( :, 2,16, 7) = (/&
+&6.8340E-02_JPRB,6.8565E-02_JPRB,2.5922E-01_JPRB,3.9972E-01_JPRB,5.1481E-01_JPRB,5.5901E-01_JPRB/)
+KBO( :, 3,16, 7) = (/&
+&7.0479E-02_JPRB,7.0691E-02_JPRB,2.6131E-01_JPRB,4.0064E-01_JPRB,5.1513E-01_JPRB,5.6129E-01_JPRB/)
+KBO( :, 4,16, 7) = (/&
+&7.2489E-02_JPRB,7.2689E-02_JPRB,2.6335E-01_JPRB,4.0108E-01_JPRB,5.1406E-01_JPRB,5.6253E-01_JPRB/)
+KBO( :, 5,16, 7) = (/&
+&7.4397E-02_JPRB,7.4586E-02_JPRB,2.6518E-01_JPRB,4.0098E-01_JPRB,5.1222E-01_JPRB,5.6243E-01_JPRB/)
+KBO( :, 1,17, 7) = (/&
+&5.7406E-02_JPRB,5.7650E-02_JPRB,2.3930E-01_JPRB,3.6866E-01_JPRB,4.7357E-01_JPRB,5.0878E-01_JPRB/)
+KBO( :, 2,17, 7) = (/&
+&5.9309E-02_JPRB,5.9537E-02_JPRB,2.4214E-01_JPRB,3.7060E-01_JPRB,4.7573E-01_JPRB,5.1192E-01_JPRB/)
+KBO( :, 3,17, 7) = (/&
+&6.1082E-02_JPRB,6.1301E-02_JPRB,2.4481E-01_JPRB,3.7220E-01_JPRB,4.7608E-01_JPRB,5.1457E-01_JPRB/)
+KBO( :, 4,17, 7) = (/&
+&6.2769E-02_JPRB,6.2976E-02_JPRB,2.4726E-01_JPRB,3.7333E-01_JPRB,4.7575E-01_JPRB,5.1639E-01_JPRB/)
+KBO( :, 5,17, 7) = (/&
+&6.4538E-02_JPRB,6.4738E-02_JPRB,2.4921E-01_JPRB,3.7444E-01_JPRB,4.7491E-01_JPRB,5.1718E-01_JPRB/)
+KBO( :, 1,18, 7) = (/&
+&4.9552E-02_JPRB,4.9801E-02_JPRB,2.2056E-01_JPRB,3.3735E-01_JPRB,4.3161E-01_JPRB,4.5988E-01_JPRB/)
+KBO( :, 2,18, 7) = (/&
+&5.1121E-02_JPRB,5.1359E-02_JPRB,2.2361E-01_JPRB,3.3991E-01_JPRB,4.3345E-01_JPRB,4.6346E-01_JPRB/)
+KBO( :, 3,18, 7) = (/&
+&5.2593E-02_JPRB,5.2821E-02_JPRB,2.2654E-01_JPRB,3.4220E-01_JPRB,4.3440E-01_JPRB,4.6667E-01_JPRB/)
+KBO( :, 4,18, 7) = (/&
+&5.4109E-02_JPRB,5.4323E-02_JPRB,2.2905E-01_JPRB,3.4438E-01_JPRB,4.3513E-01_JPRB,4.6905E-01_JPRB/)
+KBO( :, 5,18, 7) = (/&
+&5.5939E-02_JPRB,5.6145E-02_JPRB,2.3107E-01_JPRB,3.4628E-01_JPRB,4.3581E-01_JPRB,4.7075E-01_JPRB/)
+KBO( :, 1,19, 7) = (/&
+&4.2494E-02_JPRB,4.2746E-02_JPRB,2.0106E-01_JPRB,3.0520E-01_JPRB,3.8813E-01_JPRB,4.1087E-01_JPRB/)
+KBO( :, 2,19, 7) = (/&
+&4.3779E-02_JPRB,4.4022E-02_JPRB,2.0425E-01_JPRB,3.0836E-01_JPRB,3.9036E-01_JPRB,4.1494E-01_JPRB/)
+KBO( :, 3,19, 7) = (/&
+&4.5047E-02_JPRB,4.5279E-02_JPRB,2.0714E-01_JPRB,3.1149E-01_JPRB,3.9227E-01_JPRB,4.1866E-01_JPRB/)
+KBO( :, 4,19, 7) = (/&
+&4.6572E-02_JPRB,4.6791E-02_JPRB,2.0960E-01_JPRB,3.1442E-01_JPRB,3.9443E-01_JPRB,4.2162E-01_JPRB/)
+KBO( :, 5,19, 7) = (/&
+&4.8486E-02_JPRB,4.8693E-02_JPRB,2.1178E-01_JPRB,3.1724E-01_JPRB,3.9648E-01_JPRB,4.2406E-01_JPRB/)
+KBO( :, 1,20, 7) = (/&
+&3.6269E-02_JPRB,3.6528E-02_JPRB,1.8145E-01_JPRB,2.7358E-01_JPRB,3.4556E-01_JPRB,3.6362E-01_JPRB/)
+KBO( :, 2,20, 7) = (/&
+&3.7339E-02_JPRB,3.7589E-02_JPRB,1.8454E-01_JPRB,2.7744E-01_JPRB,3.4849E-01_JPRB,3.6815E-01_JPRB/)
+KBO( :, 3,20, 7) = (/&
+&3.8549E-02_JPRB,3.8787E-02_JPRB,1.8732E-01_JPRB,2.8107E-01_JPRB,3.5173E-01_JPRB,3.7214E-01_JPRB/)
+KBO( :, 4,20, 7) = (/&
+&4.0135E-02_JPRB,4.0360E-02_JPRB,1.8991E-01_JPRB,2.8468E-01_JPRB,3.5494E-01_JPRB,3.7578E-01_JPRB/)
+KBO( :, 5,20, 7) = (/&
+&4.2034E-02_JPRB,4.2244E-02_JPRB,1.9231E-01_JPRB,2.8796E-01_JPRB,3.5825E-01_JPRB,3.7920E-01_JPRB/)
+KBO( :, 1,21, 7) = (/&
+&3.0838E-02_JPRB,3.1110E-02_JPRB,1.6217E-01_JPRB,2.4347E-01_JPRB,3.0519E-01_JPRB,3.1909E-01_JPRB/)
+KBO( :, 2,21, 7) = (/&
+&3.1802E-02_JPRB,3.2063E-02_JPRB,1.6515E-01_JPRB,2.4761E-01_JPRB,3.0911E-01_JPRB,3.2385E-01_JPRB/)
+KBO( :, 3,21, 7) = (/&
+&3.3062E-02_JPRB,3.3309E-02_JPRB,1.6796E-01_JPRB,2.5173E-01_JPRB,3.1324E-01_JPRB,3.2836E-01_JPRB/)
+KBO( :, 4,21, 7) = (/&
+&3.4629E-02_JPRB,3.4862E-02_JPRB,1.7066E-01_JPRB,2.5561E-01_JPRB,3.1762E-01_JPRB,3.3243E-01_JPRB/)
+KBO( :, 5,21, 7) = (/&
+&3.6342E-02_JPRB,3.6556E-02_JPRB,1.7331E-01_JPRB,2.5945E-01_JPRB,3.2161E-01_JPRB,3.3536E-01_JPRB/)
+KBO( :, 1,22, 7) = (/&
+&2.6185E-02_JPRB,2.6480E-02_JPRB,1.4390E-01_JPRB,2.1535E-01_JPRB,2.6825E-01_JPRB,2.7831E-01_JPRB/)
+KBO( :, 2,22, 7) = (/&
+&2.7170E-02_JPRB,2.7445E-02_JPRB,1.4681E-01_JPRB,2.1972E-01_JPRB,2.7298E-01_JPRB,2.8332E-01_JPRB/)
+KBO( :, 3,22, 7) = (/&
+&2.8461E-02_JPRB,2.8721E-02_JPRB,1.4967E-01_JPRB,2.2403E-01_JPRB,2.7800E-01_JPRB,2.8771E-01_JPRB/)
+KBO( :, 4,22, 7) = (/&
+&2.9895E-02_JPRB,3.0136E-02_JPRB,1.5252E-01_JPRB,2.2826E-01_JPRB,2.8245E-01_JPRB,2.9094E-01_JPRB/)
+KBO( :, 5,22, 7) = (/&
+&3.1389E-02_JPRB,3.1609E-02_JPRB,1.5546E-01_JPRB,2.3192E-01_JPRB,2.8576E-01_JPRB,2.9204E-01_JPRB/)
+KBO( :, 1,23, 7) = (/&
+&2.2242E-02_JPRB,2.2585E-02_JPRB,1.2678E-01_JPRB,1.8942E-01_JPRB,2.3494E-01_JPRB,2.4143E-01_JPRB/)
+KBO( :, 2,23, 7) = (/&
+&2.3269E-02_JPRB,2.3584E-02_JPRB,1.2966E-01_JPRB,1.9392E-01_JPRB,2.4012E-01_JPRB,2.4601E-01_JPRB/)
+KBO( :, 3,23, 7) = (/&
+&2.4462E-02_JPRB,2.4752E-02_JPRB,1.3262E-01_JPRB,1.9826E-01_JPRB,2.4479E-01_JPRB,2.4932E-01_JPRB/)
+KBO( :, 4,23, 7) = (/&
+&2.5724E-02_JPRB,2.5987E-02_JPRB,1.3562E-01_JPRB,2.0194E-01_JPRB,2.4827E-01_JPRB,2.5044E-01_JPRB/)
+KBO( :, 5,23, 7) = (/&
+&2.7009E-02_JPRB,2.7247E-02_JPRB,1.3866E-01_JPRB,2.0472E-01_JPRB,2.4987E-01_JPRB,2.4911E-01_JPRB/)
+KBO( :, 1,24, 7) = (/&
+&1.8924E-02_JPRB,1.9342E-02_JPRB,1.1105E-01_JPRB,1.6590E-01_JPRB,2.0499E-01_JPRB,2.0802E-01_JPRB/)
+KBO( :, 2,24, 7) = (/&
+&1.9910E-02_JPRB,2.0290E-02_JPRB,1.1397E-01_JPRB,1.7018E-01_JPRB,2.0970E-01_JPRB,2.1135E-01_JPRB/)
+KBO( :, 3,24, 7) = (/&
+&2.0965E-02_JPRB,2.1308E-02_JPRB,1.1690E-01_JPRB,1.7382E-01_JPRB,2.1319E-01_JPRB,2.1255E-01_JPRB/)
+KBO( :, 4,24, 7) = (/&
+&2.2052E-02_JPRB,2.2362E-02_JPRB,1.1976E-01_JPRB,1.7647E-01_JPRB,2.1472E-01_JPRB,2.1155E-01_JPRB/)
+KBO( :, 5,24, 7) = (/&
+&2.3159E-02_JPRB,2.3438E-02_JPRB,1.2254E-01_JPRB,1.7790E-01_JPRB,2.1436E-01_JPRB,2.0899E-01_JPRB/)
+KBO( :, 1,25, 7) = (/&
+&1.6126E-02_JPRB,1.6634E-02_JPRB,9.6918E-02_JPRB,1.4450E-01_JPRB,1.7776E-01_JPRB,1.7751E-01_JPRB/)
+KBO( :, 2,25, 7) = (/&
+&1.7005E-02_JPRB,1.7471E-02_JPRB,9.9655E-02_JPRB,1.4804E-01_JPRB,1.8117E-01_JPRB,1.7889E-01_JPRB/)
+KBO( :, 3,25, 7) = (/&
+&1.7908E-02_JPRB,1.8330E-02_JPRB,1.0231E-01_JPRB,1.5056E-01_JPRB,1.8277E-01_JPRB,1.7834E-01_JPRB/)
+KBO( :, 4,25, 7) = (/&
+&1.8834E-02_JPRB,1.9214E-02_JPRB,1.0481E-01_JPRB,1.5188E-01_JPRB,1.8269E-01_JPRB,1.7644E-01_JPRB/)
+KBO( :, 5,25, 7) = (/&
+&1.9803E-02_JPRB,2.0147E-02_JPRB,1.0706E-01_JPRB,1.5241E-01_JPRB,1.8142E-01_JPRB,1.7360E-01_JPRB/)
+KBO( :, 1,26, 7) = (/&
+&1.3733E-02_JPRB,1.4333E-02_JPRB,8.4163E-02_JPRB,1.2491E-01_JPRB,1.5264E-01_JPRB,1.4950E-01_JPRB/)
+KBO( :, 2,26, 7) = (/&
+&1.4485E-02_JPRB,1.5042E-02_JPRB,8.6571E-02_JPRB,1.2729E-01_JPRB,1.5433E-01_JPRB,1.4938E-01_JPRB/)
+KBO( :, 3,26, 7) = (/&
+&1.5263E-02_JPRB,1.5775E-02_JPRB,8.8793E-02_JPRB,1.2861E-01_JPRB,1.5456E-01_JPRB,1.4809E-01_JPRB/)
+KBO( :, 4,26, 7) = (/&
+&1.6060E-02_JPRB,1.6526E-02_JPRB,9.0766E-02_JPRB,1.2922E-01_JPRB,1.5373E-01_JPRB,1.4598E-01_JPRB/)
+KBO( :, 5,26, 7) = (/&
+&1.6936E-02_JPRB,1.7356E-02_JPRB,9.2410E-02_JPRB,1.2957E-01_JPRB,1.5224E-01_JPRB,1.4323E-01_JPRB/)
+KBO( :, 1,27, 7) = (/&
+&1.1673E-02_JPRB,1.2349E-02_JPRB,7.2668E-02_JPRB,1.0678E-01_JPRB,1.2946E-01_JPRB,1.2446E-01_JPRB/)
+KBO( :, 2,27, 7) = (/&
+&1.2313E-02_JPRB,1.2955E-02_JPRB,7.4613E-02_JPRB,1.0813E-01_JPRB,1.2998E-01_JPRB,1.2372E-01_JPRB/)
+KBO( :, 3,27, 7) = (/&
+&1.2974E-02_JPRB,1.3574E-02_JPRB,7.6365E-02_JPRB,1.0885E-01_JPRB,1.2958E-01_JPRB,1.2223E-01_JPRB/)
+KBO( :, 4,27, 7) = (/&
+&1.3688E-02_JPRB,1.4241E-02_JPRB,7.7870E-02_JPRB,1.0934E-01_JPRB,1.2859E-01_JPRB,1.2019E-01_JPRB/)
+KBO( :, 5,27, 7) = (/&
+&1.4500E-02_JPRB,1.5004E-02_JPRB,7.9154E-02_JPRB,1.0968E-01_JPRB,1.2721E-01_JPRB,1.1769E-01_JPRB/)
+KBO( :, 1,28, 7) = (/&
+&9.9017E-03_JPRB,1.0637E-02_JPRB,6.2269E-02_JPRB,9.0336E-02_JPRB,1.0873E-01_JPRB,1.0289E-01_JPRB/)
+KBO( :, 2,28, 7) = (/&
+&1.0447E-02_JPRB,1.1155E-02_JPRB,6.3837E-02_JPRB,9.1161E-02_JPRB,1.0870E-01_JPRB,1.0194E-01_JPRB/)
+KBO( :, 3,28, 7) = (/&
+&1.1031E-02_JPRB,1.1703E-02_JPRB,6.5234E-02_JPRB,9.1757E-02_JPRB,1.0813E-01_JPRB,1.0049E-01_JPRB/)
+KBO( :, 4,28, 7) = (/&
+&1.1687E-02_JPRB,1.2317E-02_JPRB,6.6435E-02_JPRB,9.2244E-02_JPRB,1.0722E-01_JPRB,9.8621E-02_JPRB/)
+KBO( :, 5,28, 7) = (/&
+&1.2452E-02_JPRB,1.3036E-02_JPRB,6.7452E-02_JPRB,9.2541E-02_JPRB,1.0617E-01_JPRB,9.6430E-02_JPRB/)
+KBO( :, 1,29, 7) = (/&
+&8.3943E-03_JPRB,9.1654E-03_JPRB,5.3047E-02_JPRB,7.5941E-02_JPRB,9.0764E-02_JPRB,8.4732E-02_JPRB/)
+KBO( :, 2,29, 7) = (/&
+&8.8669E-03_JPRB,9.6211E-03_JPRB,5.4351E-02_JPRB,7.6615E-02_JPRB,9.0534E-02_JPRB,8.3768E-02_JPRB/)
+KBO( :, 3,29, 7) = (/&
+&9.3976E-03_JPRB,1.0125E-02_JPRB,5.5501E-02_JPRB,7.7201E-02_JPRB,8.9989E-02_JPRB,8.2428E-02_JPRB/)
+KBO( :, 4,29, 7) = (/&
+&1.0017E-02_JPRB,1.0708E-02_JPRB,5.6489E-02_JPRB,7.7643E-02_JPRB,8.9310E-02_JPRB,8.0785E-02_JPRB/)
+KBO( :, 5,29, 7) = (/&
+&1.0736E-02_JPRB,1.1389E-02_JPRB,5.7305E-02_JPRB,7.7877E-02_JPRB,8.8545E-02_JPRB,7.8917E-02_JPRB/)
+KBO( :, 1,30, 7) = (/&
+&7.1195E-03_JPRB,7.9064E-03_JPRB,4.5048E-02_JPRB,6.3701E-02_JPRB,7.5506E-02_JPRB,6.9609E-02_JPRB/)
+KBO( :, 2,30, 7) = (/&
+&7.5430E-03_JPRB,8.3223E-03_JPRB,4.6141E-02_JPRB,6.4336E-02_JPRB,7.5249E-02_JPRB,6.8691E-02_JPRB/)
+KBO( :, 3,30, 7) = (/&
+&8.0392E-03_JPRB,8.8028E-03_JPRB,4.7092E-02_JPRB,6.4887E-02_JPRB,7.4865E-02_JPRB,6.7513E-02_JPRB/)
+KBO( :, 4,30, 7) = (/&
+&8.6260E-03_JPRB,9.3657E-03_JPRB,4.7903E-02_JPRB,6.5263E-02_JPRB,7.4401E-02_JPRB,6.6108E-02_JPRB/)
+KBO( :, 5,30, 7) = (/&
+&9.2967E-03_JPRB,1.0007E-02_JPRB,4.8615E-02_JPRB,6.5447E-02_JPRB,7.3852E-02_JPRB,6.4545E-02_JPRB/)
+KBO( :, 1,31, 7) = (/&
+&6.0475E-03_JPRB,6.8335E-03_JPRB,3.8158E-02_JPRB,5.3421E-02_JPRB,6.2695E-02_JPRB,5.7118E-02_JPRB/)
+KBO( :, 2,31, 7) = (/&
+&6.4423E-03_JPRB,7.2306E-03_JPRB,3.9087E-02_JPRB,5.4038E-02_JPRB,6.2533E-02_JPRB,5.6304E-02_JPRB/)
+KBO( :, 3,31, 7) = (/&
+&6.9157E-03_JPRB,7.6990E-03_JPRB,3.9885E-02_JPRB,5.4507E-02_JPRB,6.2314E-02_JPRB,5.5291E-02_JPRB/)
+KBO( :, 4,31, 7) = (/&
+&7.4643E-03_JPRB,8.2378E-03_JPRB,4.0585E-02_JPRB,5.4818E-02_JPRB,6.2007E-02_JPRB,5.4123E-02_JPRB/)
+KBO( :, 5,31, 7) = (/&
+&8.0870E-03_JPRB,8.8427E-03_JPRB,4.1238E-02_JPRB,5.4956E-02_JPRB,6.1571E-02_JPRB,5.2845E-02_JPRB/)
+KBO( :, 1,32, 7) = (/&
+&5.1572E-03_JPRB,5.9281E-03_JPRB,3.2288E-02_JPRB,4.4834E-02_JPRB,5.2063E-02_JPRB,4.6838E-02_JPRB/)
+KBO( :, 2,32, 7) = (/&
+&5.5343E-03_JPRB,6.3178E-03_JPRB,3.3066E-02_JPRB,4.5379E-02_JPRB,5.2022E-02_JPRB,4.6134E-02_JPRB/)
+KBO( :, 3,32, 7) = (/&
+&5.9793E-03_JPRB,6.7732E-03_JPRB,3.3755E-02_JPRB,4.5782E-02_JPRB,5.1906E-02_JPRB,4.5284E-02_JPRB/)
+KBO( :, 4,32, 7) = (/&
+&6.4923E-03_JPRB,7.2876E-03_JPRB,3.4382E-02_JPRB,4.6031E-02_JPRB,5.1677E-02_JPRB,4.4332E-02_JPRB/)
+KBO( :, 5,32, 7) = (/&
+&7.0596E-03_JPRB,7.8510E-03_JPRB,3.5020E-02_JPRB,4.6157E-02_JPRB,5.1326E-02_JPRB,4.3327E-02_JPRB/)
+KBO( :, 1,33, 7) = (/&
+&4.4193E-03_JPRB,5.1672E-03_JPRB,2.7281E-02_JPRB,3.7643E-02_JPRB,4.3289E-02_JPRB,3.8410E-02_JPRB/)
+KBO( :, 2,33, 7) = (/&
+&4.7780E-03_JPRB,5.5509E-03_JPRB,2.7954E-02_JPRB,3.8112E-02_JPRB,4.3323E-02_JPRB,3.7821E-02_JPRB/)
+KBO( :, 3,33, 7) = (/&
+&5.1954E-03_JPRB,5.9899E-03_JPRB,2.8558E-02_JPRB,3.8442E-02_JPRB,4.3253E-02_JPRB,3.7133E-02_JPRB/)
+KBO( :, 4,33, 7) = (/&
+&5.6675E-03_JPRB,6.4760E-03_JPRB,2.9162E-02_JPRB,3.8661E-02_JPRB,4.3077E-02_JPRB,3.6382E-02_JPRB/)
+KBO( :, 5,33, 7) = (/&
+&6.1867E-03_JPRB,6.9981E-03_JPRB,2.9817E-02_JPRB,3.8817E-02_JPRB,4.2791E-02_JPRB,3.5593E-02_JPRB/)
+KBO( :, 1,34, 7) = (/&
+&3.7967E-03_JPRB,4.5190E-03_JPRB,2.3030E-02_JPRB,3.1601E-02_JPRB,3.6054E-02_JPRB,3.1509E-02_JPRB/)
+KBO( :, 2,34, 7) = (/&
+&4.1317E-03_JPRB,4.8886E-03_JPRB,2.3612E-02_JPRB,3.1993E-02_JPRB,3.6114E-02_JPRB,3.1025E-02_JPRB/)
+KBO( :, 3,34, 7) = (/&
+&4.5197E-03_JPRB,5.3080E-03_JPRB,2.4172E-02_JPRB,3.2284E-02_JPRB,3.6075E-02_JPRB,3.0475E-02_JPRB/)
+KBO( :, 4,34, 7) = (/&
+&4.9490E-03_JPRB,5.7615E-03_JPRB,2.4765E-02_JPRB,3.2500E-02_JPRB,3.5934E-02_JPRB,2.9886E-02_JPRB/)
+KBO( :, 5,34, 7) = (/&
+&5.4277E-03_JPRB,6.2506E-03_JPRB,2.5457E-02_JPRB,3.2703E-02_JPRB,3.5717E-02_JPRB,2.9265E-02_JPRB/)
+KBO( :, 1,35, 7) = (/&
+&3.2485E-03_JPRB,3.9401E-03_JPRB,1.9395E-02_JPRB,2.6487E-02_JPRB,3.0061E-02_JPRB,2.5898E-02_JPRB/)
+KBO( :, 2,35, 7) = (/&
+&3.5574E-03_JPRB,4.2902E-03_JPRB,1.9918E-02_JPRB,2.6839E-02_JPRB,3.0137E-02_JPRB,2.5509E-02_JPRB/)
+KBO( :, 3,35, 7) = (/&
+&3.9084E-03_JPRB,4.6823E-03_JPRB,2.0454E-02_JPRB,2.7112E-02_JPRB,3.0123E-02_JPRB,2.5080E-02_JPRB/)
+KBO( :, 4,35, 7) = (/&
+&4.2975E-03_JPRB,5.1039E-03_JPRB,2.1052E-02_JPRB,2.7348E-02_JPRB,3.0028E-02_JPRB,2.4626E-02_JPRB/)
+KBO( :, 5,35, 7) = (/&
+&4.7400E-03_JPRB,5.5642E-03_JPRB,2.1748E-02_JPRB,2.7600E-02_JPRB,2.9873E-02_JPRB,2.4136E-02_JPRB/)
+KBO( :, 1,36, 7) = (/&
+&2.7607E-03_JPRB,3.4142E-03_JPRB,1.6292E-02_JPRB,2.2168E-02_JPRB,2.5071E-02_JPRB,2.1321E-02_JPRB/)
+KBO( :, 2,36, 7) = (/&
+&3.0408E-03_JPRB,3.7429E-03_JPRB,1.6771E-02_JPRB,2.2492E-02_JPRB,2.5167E-02_JPRB,2.1022E-02_JPRB/)
+KBO( :, 3,36, 7) = (/&
+&3.3541E-03_JPRB,4.1050E-03_JPRB,1.7286E-02_JPRB,2.2762E-02_JPRB,2.5179E-02_JPRB,2.0697E-02_JPRB/)
+KBO( :, 4,36, 7) = (/&
+&3.7038E-03_JPRB,4.4924E-03_JPRB,1.7882E-02_JPRB,2.3025E-02_JPRB,2.5128E-02_JPRB,2.0344E-02_JPRB/)
+KBO( :, 5,36, 7) = (/&
+&4.1115E-03_JPRB,4.9275E-03_JPRB,1.8561E-02_JPRB,2.3321E-02_JPRB,2.5038E-02_JPRB,1.9966E-02_JPRB/)
+KBO( :, 1,37, 7) = (/&
+&2.3165E-03_JPRB,2.9243E-03_JPRB,1.3632E-02_JPRB,1.8511E-02_JPRB,2.0911E-02_JPRB,1.7582E-02_JPRB/)
+KBO( :, 2,37, 7) = (/&
+&2.5620E-03_JPRB,3.2240E-03_JPRB,1.4078E-02_JPRB,1.8817E-02_JPRB,2.1021E-02_JPRB,1.7359E-02_JPRB/)
+KBO( :, 3,37, 7) = (/&
+&2.8378E-03_JPRB,3.5536E-03_JPRB,1.4566E-02_JPRB,1.9089E-02_JPRB,2.1062E-02_JPRB,1.7112E-02_JPRB/)
+KBO( :, 4,37, 7) = (/&
+&3.1506E-03_JPRB,3.9105E-03_JPRB,1.5134E-02_JPRB,1.9368E-02_JPRB,2.1055E-02_JPRB,1.6843E-02_JPRB/)
+KBO( :, 5,37, 7) = (/&
+&3.5154E-03_JPRB,4.3116E-03_JPRB,1.5780E-02_JPRB,1.9690E-02_JPRB,2.1025E-02_JPRB,1.6554E-02_JPRB/)
+KBO( :, 1,38, 7) = (/&
+&1.9436E-03_JPRB,2.5043E-03_JPRB,1.1409E-02_JPRB,1.5449E-02_JPRB,1.7439E-02_JPRB,1.4509E-02_JPRB/)
+KBO( :, 2,38, 7) = (/&
+&2.1585E-03_JPRB,2.7776E-03_JPRB,1.1822E-02_JPRB,1.5741E-02_JPRB,1.7560E-02_JPRB,1.4349E-02_JPRB/)
+KBO( :, 3,38, 7) = (/&
+&2.4018E-03_JPRB,3.0766E-03_JPRB,1.2278E-02_JPRB,1.6010E-02_JPRB,1.7625E-02_JPRB,1.4163E-02_JPRB/)
+KBO( :, 4,38, 7) = (/&
+&2.6807E-03_JPRB,3.4074E-03_JPRB,1.2821E-02_JPRB,1.6300E-02_JPRB,1.7653E-02_JPRB,1.3961E-02_JPRB/)
+KBO( :, 5,38, 7) = (/&
+&3.0074E-03_JPRB,3.7767E-03_JPRB,1.3427E-02_JPRB,1.6635E-02_JPRB,1.7670E-02_JPRB,1.3745E-02_JPRB/)
+KBO( :, 1,39, 7) = (/&
+&1.6324E-03_JPRB,2.1472E-03_JPRB,9.5576E-03_JPRB,1.2899E-02_JPRB,1.4546E-02_JPRB,1.1989E-02_JPRB/)
+KBO( :, 2,39, 7) = (/&
+&1.8200E-03_JPRB,2.3947E-03_JPRB,9.9337E-03_JPRB,1.3170E-02_JPRB,1.4671E-02_JPRB,1.1875E-02_JPRB/)
+KBO( :, 3,39, 7) = (/&
+&2.0341E-03_JPRB,2.6676E-03_JPRB,1.0368E-02_JPRB,1.3436E-02_JPRB,1.4754E-02_JPRB,1.1741E-02_JPRB/)
+KBO( :, 4,39, 7) = (/&
+&2.2822E-03_JPRB,2.9700E-03_JPRB,1.0873E-02_JPRB,1.3729E-02_JPRB,1.4811E-02_JPRB,1.1592E-02_JPRB/)
+KBO( :, 5,39, 7) = (/&
+&2.5777E-03_JPRB,3.3169E-03_JPRB,1.1451E-02_JPRB,1.4071E-02_JPRB,1.4864E-02_JPRB,1.1429E-02_JPRB/)
+KBO( :, 1,40, 7) = (/&
+&1.3560E-03_JPRB,1.8205E-03_JPRB,7.9786E-03_JPRB,1.0746E-02_JPRB,1.2116E-02_JPRB,9.8937E-03_JPRB/)
+KBO( :, 2,40, 7) = (/&
+&1.5188E-03_JPRB,2.0432E-03_JPRB,8.3209E-03_JPRB,1.1001E-02_JPRB,1.2248E-02_JPRB,9.8116E-03_JPRB/)
+KBO( :, 3,40, 7) = (/&
+&1.7047E-03_JPRB,2.2893E-03_JPRB,8.7183E-03_JPRB,1.1256E-02_JPRB,1.2346E-02_JPRB,9.7139E-03_JPRB/)
+KBO( :, 4,40, 7) = (/&
+&1.9222E-03_JPRB,2.5662E-03_JPRB,9.1877E-03_JPRB,1.1545E-02_JPRB,1.2425E-02_JPRB,9.6034E-03_JPRB/)
+KBO( :, 5,40, 7) = (/&
+&2.1827E-03_JPRB,2.8825E-03_JPRB,9.7216E-03_JPRB,1.1880E-02_JPRB,1.2506E-02_JPRB,9.4790E-03_JPRB/)
+KBO( :, 1,41, 7) = (/&
+&1.1245E-03_JPRB,1.5415E-03_JPRB,6.6591E-03_JPRB,8.9478E-03_JPRB,1.0087E-02_JPRB,8.1642E-03_JPRB/)
+KBO( :, 2,41, 7) = (/&
+&1.2648E-03_JPRB,1.7402E-03_JPRB,6.9688E-03_JPRB,9.1871E-03_JPRB,1.0221E-02_JPRB,8.1056E-03_JPRB/)
+KBO( :, 3,41, 7) = (/&
+&1.4266E-03_JPRB,1.9622E-03_JPRB,7.3306E-03_JPRB,9.4300E-03_JPRB,1.0328E-02_JPRB,8.0356E-03_JPRB/)
+KBO( :, 4,41, 7) = (/&
+&1.6162E-03_JPRB,2.2132E-03_JPRB,7.7614E-03_JPRB,9.7094E-03_JPRB,1.0422E-02_JPRB,7.9538E-03_JPRB/)
+KBO( :, 5,41, 7) = (/&
+&1.8452E-03_JPRB,2.5020E-03_JPRB,8.2540E-03_JPRB,1.0030E-02_JPRB,1.0522E-02_JPRB,7.8592E-03_JPRB/)
+KBO( :, 1,42, 7) = (/&
+&9.3219E-04_JPRB,1.3042E-03_JPRB,5.5558E-03_JPRB,7.4502E-03_JPRB,8.3930E-03_JPRB,6.7373E-03_JPRB/)
+KBO( :, 2,42, 7) = (/&
+&1.0531E-03_JPRB,1.4817E-03_JPRB,5.8359E-03_JPRB,7.6727E-03_JPRB,8.5267E-03_JPRB,6.6979E-03_JPRB/)
+KBO( :, 3,42, 7) = (/&
+&1.1932E-03_JPRB,1.6822E-03_JPRB,6.1662E-03_JPRB,7.9012E-03_JPRB,8.6371E-03_JPRB,6.6486E-03_JPRB/)
+KBO( :, 4,42, 7) = (/&
+&1.3591E-03_JPRB,1.9101E-03_JPRB,6.5594E-03_JPRB,8.1659E-03_JPRB,8.7400E-03_JPRB,6.5900E-03_JPRB/)
+KBO( :, 5,42, 7) = (/&
+&1.5595E-03_JPRB,2.1712E-03_JPRB,7.0143E-03_JPRB,8.4711E-03_JPRB,8.8520E-03_JPRB,6.5197E-03_JPRB/)
+KBO( :, 1,43, 7) = (/&
+&7.6655E-04_JPRB,1.0948E-03_JPRB,4.6199E-03_JPRB,6.1929E-03_JPRB,6.9738E-03_JPRB,5.5590E-03_JPRB/)
+KBO( :, 2,43, 7) = (/&
+&8.7006E-04_JPRB,1.2519E-03_JPRB,4.8725E-03_JPRB,6.3982E-03_JPRB,7.1051E-03_JPRB,5.5354E-03_JPRB/)
+KBO( :, 3,43, 7) = (/&
+&9.9067E-04_JPRB,1.4317E-03_JPRB,5.1714E-03_JPRB,6.6094E-03_JPRB,7.2167E-03_JPRB,5.5034E-03_JPRB/)
+KBO( :, 4,43, 7) = (/&
+&1.1333E-03_JPRB,1.6361E-03_JPRB,5.5238E-03_JPRB,6.8549E-03_JPRB,7.3224E-03_JPRB,5.4615E-03_JPRB/)
+KBO( :, 5,43, 7) = (/&
+&1.3078E-03_JPRB,1.8729E-03_JPRB,5.9392E-03_JPRB,7.1404E-03_JPRB,7.4395E-03_JPRB,5.4098E-03_JPRB/)
+KBO( :, 1,44, 7) = (/&
+&6.2716E-04_JPRB,9.1445E-04_JPRB,3.8379E-03_JPRB,5.1423E-03_JPRB,5.7885E-03_JPRB,4.5879E-03_JPRB/)
+KBO( :, 2,44, 7) = (/&
+&7.1539E-04_JPRB,1.0525E-03_JPRB,4.0608E-03_JPRB,5.3284E-03_JPRB,5.9139E-03_JPRB,4.5750E-03_JPRB/)
+KBO( :, 3,44, 7) = (/&
+&8.1868E-04_JPRB,1.2124E-03_JPRB,4.3261E-03_JPRB,5.5223E-03_JPRB,6.0237E-03_JPRB,4.5564E-03_JPRB/)
+KBO( :, 4,44, 7) = (/&
+&9.4076E-04_JPRB,1.3951E-03_JPRB,4.6439E-03_JPRB,5.7493E-03_JPRB,6.1304E-03_JPRB,4.5291E-03_JPRB/)
+KBO( :, 5,44, 7) = (/&
+&1.0905E-03_JPRB,1.6074E-03_JPRB,5.0184E-03_JPRB,6.0132E-03_JPRB,6.2498E-03_JPRB,4.4930E-03_JPRB/)
+KBO( :, 1,45, 7) = (/&
+&5.1229E-04_JPRB,7.6193E-04_JPRB,3.1853E-03_JPRB,4.2678E-03_JPRB,4.8007E-03_JPRB,3.7867E-03_JPRB/)
+KBO( :, 2,45, 7) = (/&
+&5.8700E-04_JPRB,8.8309E-04_JPRB,3.3822E-03_JPRB,4.4376E-03_JPRB,4.9204E-03_JPRB,3.7837E-03_JPRB/)
+KBO( :, 3,45, 7) = (/&
+&6.7532E-04_JPRB,1.0253E-03_JPRB,3.6172E-03_JPRB,4.6137E-03_JPRB,5.0263E-03_JPRB,3.7750E-03_JPRB/)
+KBO( :, 4,45, 7) = (/&
+&7.7992E-04_JPRB,1.1886E-03_JPRB,3.9001E-03_JPRB,4.8193E-03_JPRB,5.1305E-03_JPRB,3.7582E-03_JPRB/)
+KBO( :, 5,45, 7) = (/&
+&9.0898E-04_JPRB,1.3801E-03_JPRB,4.2375E-03_JPRB,5.0602E-03_JPRB,5.2468E-03_JPRB,3.7339E-03_JPRB/)
+KBO( :, 1,46, 7) = (/&
+&4.1645E-04_JPRB,6.3110E-04_JPRB,2.6350E-03_JPRB,3.5353E-03_JPRB,3.9769E-03_JPRB,3.1256E-03_JPRB/)
+KBO( :, 2,46, 7) = (/&
+&4.7902E-04_JPRB,7.3636E-04_JPRB,2.8091E-03_JPRB,3.6888E-03_JPRB,4.0884E-03_JPRB,3.1284E-03_JPRB/)
+KBO( :, 3,46, 7) = (/&
+&5.5407E-04_JPRB,8.6233E-04_JPRB,3.0151E-03_JPRB,3.8480E-03_JPRB,4.1890E-03_JPRB,3.1266E-03_JPRB/)
+KBO( :, 4,46, 7) = (/&
+&6.4357E-04_JPRB,1.0083E-03_JPRB,3.2677E-03_JPRB,4.0349E-03_JPRB,4.2897E-03_JPRB,3.1195E-03_JPRB/)
+KBO( :, 5,46, 7) = (/&
+&7.5354E-04_JPRB,1.1783E-03_JPRB,3.5685E-03_JPRB,4.2544E-03_JPRB,4.4018E-03_JPRB,3.1063E-03_JPRB/)
+KBO( :, 1,47, 7) = (/&
+&3.3601E-04_JPRB,5.1777E-04_JPRB,2.1723E-03_JPRB,2.9197E-03_JPRB,3.2860E-03_JPRB,2.5760E-03_JPRB/)
+KBO( :, 2,47, 7) = (/&
+&3.8754E-04_JPRB,6.0796E-04_JPRB,2.3239E-03_JPRB,3.0581E-03_JPRB,3.3911E-03_JPRB,2.5844E-03_JPRB/)
+KBO( :, 3,47, 7) = (/&
+&4.5065E-04_JPRB,7.1798E-04_JPRB,2.5022E-03_JPRB,3.2019E-03_JPRB,3.4875E-03_JPRB,2.5889E-03_JPRB/)
+KBO( :, 4,47, 7) = (/&
+&5.2613E-04_JPRB,8.4682E-04_JPRB,2.7238E-03_JPRB,3.3682E-03_JPRB,3.5815E-03_JPRB,2.5884E-03_JPRB/)
+KBO( :, 5,47, 7) = (/&
+&6.1929E-04_JPRB,9.9786E-04_JPRB,2.9897E-03_JPRB,3.5658E-03_JPRB,3.6861E-03_JPRB,2.5827E-03_JPRB/)
+KBO( :, 1,48, 7) = (/&
+&2.7083E-04_JPRB,4.2347E-04_JPRB,1.7899E-03_JPRB,2.4088E-03_JPRB,2.7136E-03_JPRB,2.1244E-03_JPRB/)
+KBO( :, 2,48, 7) = (/&
+&3.1279E-04_JPRB,4.9999E-04_JPRB,1.9206E-03_JPRB,2.5330E-03_JPRB,2.8112E-03_JPRB,2.1367E-03_JPRB/)
+KBO( :, 3,48, 7) = (/&
+&3.6550E-04_JPRB,5.9533E-04_JPRB,2.0740E-03_JPRB,2.6614E-03_JPRB,2.9002E-03_JPRB,2.1451E-03_JPRB/)
+KBO( :, 4,48, 7) = (/&
+&4.2897E-04_JPRB,7.0913E-04_JPRB,2.2662E-03_JPRB,2.8083E-03_JPRB,2.9875E-03_JPRB,2.1497E-03_JPRB/)
+KBO( :, 5,48, 7) = (/&
+&5.0746E-04_JPRB,8.4310E-04_JPRB,2.4995E-03_JPRB,2.9841E-03_JPRB,3.0838E-03_JPRB,2.1494E-03_JPRB/)
+KBO( :, 1,49, 7) = (/&
+&2.1798E-04_JPRB,3.4528E-04_JPRB,1.4710E-03_JPRB,1.9833E-03_JPRB,2.2375E-03_JPRB,1.7528E-03_JPRB/)
+KBO( :, 2,49, 7) = (/&
+&2.5177E-04_JPRB,4.0956E-04_JPRB,1.5850E-03_JPRB,2.0943E-03_JPRB,2.3273E-03_JPRB,1.7678E-03_JPRB/)
+KBO( :, 3,49, 7) = (/&
+&2.9568E-04_JPRB,4.9144E-04_JPRB,1.7161E-03_JPRB,2.2089E-03_JPRB,2.4094E-03_JPRB,1.7791E-03_JPRB/)
+KBO( :, 4,49, 7) = (/&
+&3.4874E-04_JPRB,5.9100E-04_JPRB,1.8818E-03_JPRB,2.3380E-03_JPRB,2.4892E-03_JPRB,1.7874E-03_JPRB/)
+KBO( :, 5,49, 7) = (/&
+&4.1458E-04_JPRB,7.0951E-04_JPRB,2.0849E-03_JPRB,2.4934E-03_JPRB,2.5772E-03_JPRB,1.7919E-03_JPRB/)
+KBO( :, 1,50, 7) = (/&
+&1.7585E-04_JPRB,2.8189E-04_JPRB,1.2093E-03_JPRB,1.6329E-03_JPRB,1.8441E-03_JPRB,1.4430E-03_JPRB/)
+KBO( :, 2,50, 7) = (/&
+&2.0319E-04_JPRB,3.3574E-04_JPRB,1.3080E-03_JPRB,1.7313E-03_JPRB,1.9256E-03_JPRB,1.4584E-03_JPRB/)
+KBO( :, 3,50, 7) = (/&
+&2.3954E-04_JPRB,4.0576E-04_JPRB,1.4210E-03_JPRB,1.8326E-03_JPRB,2.0011E-03_JPRB,1.4708E-03_JPRB/)
+KBO( :, 4,50, 7) = (/&
+&2.8402E-04_JPRB,4.9271E-04_JPRB,1.5642E-03_JPRB,1.9468E-03_JPRB,2.0746E-03_JPRB,1.4813E-03_JPRB/)
+KBO( :, 5,50, 7) = (/&
+&3.3943E-04_JPRB,5.9790E-04_JPRB,1.7417E-03_JPRB,2.0852E-03_JPRB,2.1555E-03_JPRB,1.4890E-03_JPRB/)
+KBO( :, 1,51, 7) = (/&
+&1.4190E-04_JPRB,2.2992E-04_JPRB,9.9404E-04_JPRB,1.3435E-03_JPRB,1.5181E-03_JPRB,1.1857E-03_JPRB/)
+KBO( :, 2,51, 7) = (/&
+&1.6404E-04_JPRB,2.7497E-04_JPRB,1.0789E-03_JPRB,1.4304E-03_JPRB,1.5921E-03_JPRB,1.2010E-03_JPRB/)
+KBO( :, 3,51, 7) = (/&
+&1.9404E-04_JPRB,3.3460E-04_JPRB,1.1768E-03_JPRB,1.5204E-03_JPRB,1.6616E-03_JPRB,1.2144E-03_JPRB/)
+KBO( :, 4,51, 7) = (/&
+&2.3131E-04_JPRB,4.1015E-04_JPRB,1.3000E-03_JPRB,1.6207E-03_JPRB,1.7290E-03_JPRB,1.2257E-03_JPRB/)
+KBO( :, 5,51, 7) = (/&
+&2.7780E-04_JPRB,5.0292E-04_JPRB,1.4546E-03_JPRB,1.7432E-03_JPRB,1.8024E-03_JPRB,1.2347E-03_JPRB/)
+KBO( :, 1,52, 7) = (/&
+&1.1444E-04_JPRB,1.8707E-04_JPRB,8.1510E-04_JPRB,1.1036E-03_JPRB,1.2481E-03_JPRB,9.7442E-04_JPRB/)
+KBO( :, 2,52, 7) = (/&
+&1.3222E-04_JPRB,2.2446E-04_JPRB,8.8966E-04_JPRB,1.1810E-03_JPRB,1.3153E-03_JPRB,9.8987E-04_JPRB/)
+KBO( :, 3,52, 7) = (/&
+&1.5685E-04_JPRB,2.7479E-04_JPRB,9.7350E-04_JPRB,1.2602E-03_JPRB,1.3785E-03_JPRB,1.0031E-03_JPRB/)
+KBO( :, 4,52, 7) = (/&
+&1.8798E-04_JPRB,3.3998E-04_JPRB,1.0787E-03_JPRB,1.3479E-03_JPRB,1.4399E-03_JPRB,1.0147E-03_JPRB/)
+KBO( :, 5,52, 7) = (/&
+&2.2685E-04_JPRB,4.2103E-04_JPRB,1.2129E-03_JPRB,1.4553E-03_JPRB,1.5058E-03_JPRB,1.0246E-03_JPRB/)
+KBO( :, 1,53, 7) = (/&
+&9.2203E-05_JPRB,1.5178E-04_JPRB,6.6684E-04_JPRB,9.0491E-04_JPRB,1.0248E-03_JPRB,8.0095E-04_JPRB/)
+KBO( :, 2,53, 7) = (/&
+&1.0645E-04_JPRB,1.8273E-04_JPRB,7.3180E-04_JPRB,9.7345E-04_JPRB,1.0848E-03_JPRB,8.1627E-04_JPRB/)
+KBO( :, 3,53, 7) = (/&
+&1.2645E-04_JPRB,2.2480E-04_JPRB,8.0421E-04_JPRB,1.0432E-03_JPRB,1.1420E-03_JPRB,8.2935E-04_JPRB/)
+KBO( :, 4,53, 7) = (/&
+&1.5240E-04_JPRB,2.8048E-04_JPRB,8.9332E-04_JPRB,1.1196E-03_JPRB,1.1976E-03_JPRB,8.4108E-04_JPRB/)
+KBO( :, 5,53, 7) = (/&
+&1.8493E-04_JPRB,3.5120E-04_JPRB,1.0092E-03_JPRB,1.2130E-03_JPRB,1.2568E-03_JPRB,8.5144E-04_JPRB/)
+KBO( :, 1,54, 7) = (/&
+&7.4475E-05_JPRB,1.2345E-04_JPRB,5.4618E-04_JPRB,7.4261E-04_JPRB,8.4183E-04_JPRB,6.5530E-04_JPRB/)
+KBO( :, 2,54, 7) = (/&
+&8.5959E-05_JPRB,1.4923E-04_JPRB,6.0251E-04_JPRB,8.0294E-04_JPRB,8.9490E-04_JPRB,6.6891E-04_JPRB/)
+KBO( :, 3,54, 7) = (/&
+&1.0229E-04_JPRB,1.8454E-04_JPRB,6.6507E-04_JPRB,8.6435E-04_JPRB,9.4622E-04_JPRB,6.8052E-04_JPRB/)
+KBO( :, 4,54, 7) = (/&
+&1.2399E-04_JPRB,2.3208E-04_JPRB,7.4156E-04_JPRB,9.3133E-04_JPRB,9.9626E-04_JPRB,6.9113E-04_JPRB/)
+KBO( :, 5,54, 7) = (/&
+&1.5132E-04_JPRB,2.9378E-04_JPRB,8.4147E-04_JPRB,1.0125E-03_JPRB,1.0494E-03_JPRB,7.0039E-04_JPRB/)
+KBO( :, 1,55, 7) = (/&
+&6.0192E-05_JPRB,1.0040E-04_JPRB,4.4700E-04_JPRB,6.0908E-04_JPRB,6.9112E-04_JPRB,5.3444E-04_JPRB/)
+KBO( :, 2,55, 7) = (/&
+&6.9457E-05_JPRB,1.2191E-04_JPRB,4.9554E-04_JPRB,6.6216E-04_JPRB,7.3789E-04_JPRB,5.4620E-04_JPRB/)
+KBO( :, 3,55, 7) = (/&
+&8.2806E-05_JPRB,1.5147E-04_JPRB,5.4968E-04_JPRB,7.1596E-04_JPRB,7.8355E-04_JPRB,5.5595E-04_JPRB/)
+KBO( :, 4,55, 7) = (/&
+&1.0089E-04_JPRB,1.9188E-04_JPRB,6.1506E-04_JPRB,7.7451E-04_JPRB,8.2844E-04_JPRB,5.6494E-04_JPRB/)
+KBO( :, 5,55, 7) = (/&
+&1.2391E-04_JPRB,2.4549E-04_JPRB,7.0152E-04_JPRB,8.4524E-04_JPRB,8.7589E-04_JPRB,5.7264E-04_JPRB/)
+KBO( :, 1,56, 7) = (/&
+&4.8580E-05_JPRB,8.1447E-05_JPRB,3.6499E-04_JPRB,4.9860E-04_JPRB,5.6674E-04_JPRB,4.3567E-04_JPRB/)
+KBO( :, 2,56, 7) = (/&
+&5.6047E-05_JPRB,9.9320E-05_JPRB,4.0649E-04_JPRB,5.4492E-04_JPRB,6.0760E-04_JPRB,4.4586E-04_JPRB/)
+KBO( :, 3,56, 7) = (/&
+&6.6893E-05_JPRB,1.2391E-04_JPRB,4.5320E-04_JPRB,5.9224E-04_JPRB,6.4818E-04_JPRB,4.5422E-04_JPRB/)
+KBO( :, 4,56, 7) = (/&
+&8.1912E-05_JPRB,1.5812E-04_JPRB,5.0921E-04_JPRB,6.4326E-04_JPRB,6.8817E-04_JPRB,4.6166E-04_JPRB/)
+KBO( :, 5,56, 7) = (/&
+&1.0126E-04_JPRB,2.0443E-04_JPRB,5.8380E-04_JPRB,7.0456E-04_JPRB,7.3041E-04_JPRB,4.6808E-04_JPRB/)
+KBO( :, 1,57, 7) = (/&
+&3.9160E-05_JPRB,6.5848E-05_JPRB,2.9734E-04_JPRB,4.0720E-04_JPRB,4.6401E-04_JPRB,3.5487E-04_JPRB/)
+KBO( :, 2,57, 7) = (/&
+&4.5169E-05_JPRB,8.0667E-05_JPRB,3.3303E-04_JPRB,4.4771E-04_JPRB,4.9960E-04_JPRB,3.6385E-04_JPRB/)
+KBO( :, 3,57, 7) = (/&
+&5.3922E-05_JPRB,1.0107E-04_JPRB,3.7271E-04_JPRB,4.8901E-04_JPRB,5.3556E-04_JPRB,3.7100E-04_JPRB/)
+KBO( :, 4,57, 7) = (/&
+&6.6309E-05_JPRB,1.2986E-04_JPRB,4.2066E-04_JPRB,5.3363E-04_JPRB,5.7118E-04_JPRB,3.7715E-04_JPRB/)
+KBO( :, 5,57, 7) = (/&
+&8.2558E-05_JPRB,1.6957E-04_JPRB,4.8458E-04_JPRB,5.8660E-04_JPRB,6.0854E-04_JPRB,3.8261E-04_JPRB/)
+KBO( :, 1,58, 7) = (/&
+&3.1595E-05_JPRB,5.3251E-05_JPRB,2.4214E-04_JPRB,3.3220E-04_JPRB,3.7979E-04_JPRB,2.8893E-04_JPRB/)
+KBO( :, 2,58, 7) = (/&
+&3.6453E-05_JPRB,6.5530E-05_JPRB,2.7256E-04_JPRB,3.6744E-04_JPRB,4.1068E-04_JPRB,2.9670E-04_JPRB/)
+KBO( :, 3,58, 7) = (/&
+&4.3522E-05_JPRB,8.2522E-05_JPRB,3.0670E-04_JPRB,4.0362E-04_JPRB,4.4239E-04_JPRB,3.0276E-04_JPRB/)
+KBO( :, 4,58, 7) = (/&
+&5.3718E-05_JPRB,1.0672E-04_JPRB,3.4774E-04_JPRB,4.4273E-04_JPRB,4.7408E-04_JPRB,3.0780E-04_JPRB/)
+KBO( :, 5,58, 7) = (/&
+&6.7377E-05_JPRB,1.4070E-04_JPRB,4.0225E-04_JPRB,4.8863E-04_JPRB,5.0717E-04_JPRB,3.1234E-04_JPRB/)
+KBO( :, 1,59, 7) = (/&
+&2.6095E-05_JPRB,4.4557E-05_JPRB,2.0135E-04_JPRB,2.7586E-04_JPRB,3.1509E-04_JPRB,2.3542E-04_JPRB/)
+KBO( :, 2,59, 7) = (/&
+&3.0251E-05_JPRB,5.5296E-05_JPRB,2.2770E-04_JPRB,3.0652E-04_JPRB,3.4210E-04_JPRB,2.4160E-04_JPRB/)
+KBO( :, 3,59, 7) = (/&
+&3.6364E-05_JPRB,7.0315E-05_JPRB,2.5762E-04_JPRB,3.3839E-04_JPRB,3.7008E-04_JPRB,2.4615E-04_JPRB/)
+KBO( :, 4,59, 7) = (/&
+&4.5252E-05_JPRB,9.1955E-05_JPRB,2.9410E-04_JPRB,3.7318E-04_JPRB,3.9814E-04_JPRB,2.4968E-04_JPRB/)
+KBO( :, 5,59, 7) = (/&
+&5.7239E-05_JPRB,1.2271E-04_JPRB,3.4336E-04_JPRB,4.1464E-04_JPRB,4.2794E-04_JPRB,2.5280E-04_JPRB/)
+KBO( :, 1,13, 8) = (/&
+&3.0593E-01_JPRB,3.0601E-01_JPRB,5.8936E-01_JPRB,8.8205E-01_JPRB,1.0947E+00_JPRB,1.1943E+00_JPRB/)
+KBO( :, 2,13, 8) = (/&
+&3.0576E-01_JPRB,3.0585E-01_JPRB,5.8416E-01_JPRB,8.7445E-01_JPRB,1.0842E+00_JPRB,1.1946E+00_JPRB/)
+KBO( :, 3,13, 8) = (/&
+&3.0730E-01_JPRB,3.0739E-01_JPRB,5.7838E-01_JPRB,8.6622E-01_JPRB,1.0736E+00_JPRB,1.1941E+00_JPRB/)
+KBO( :, 4,13, 8) = (/&
+&3.1143E-01_JPRB,3.1153E-01_JPRB,5.7236E-01_JPRB,8.5664E-01_JPRB,1.0623E+00_JPRB,1.1926E+00_JPRB/)
+KBO( :, 5,13, 8) = (/&
+&3.1821E-01_JPRB,3.1830E-01_JPRB,5.6671E-01_JPRB,8.4589E-01_JPRB,1.0496E+00_JPRB,1.1883E+00_JPRB/)
+KBO( :, 1,14, 8) = (/&
+&2.6541E-01_JPRB,2.6552E-01_JPRB,5.8043E-01_JPRB,8.8352E-01_JPRB,1.1026E+00_JPRB,1.1931E+00_JPRB/)
+KBO( :, 2,14, 8) = (/&
+&2.6695E-01_JPRB,2.6706E-01_JPRB,5.7539E-01_JPRB,8.7778E-01_JPRB,1.0951E+00_JPRB,1.1937E+00_JPRB/)
+KBO( :, 3,14, 8) = (/&
+&2.7112E-01_JPRB,2.7123E-01_JPRB,5.7000E-01_JPRB,8.7108E-01_JPRB,1.0869E+00_JPRB,1.1910E+00_JPRB/)
+KBO( :, 4,14, 8) = (/&
+&2.7807E-01_JPRB,2.7818E-01_JPRB,5.6514E-01_JPRB,8.6271E-01_JPRB,1.0767E+00_JPRB,1.1867E+00_JPRB/)
+KBO( :, 5,14, 8) = (/&
+&2.8739E-01_JPRB,2.8751E-01_JPRB,5.6126E-01_JPRB,8.5280E-01_JPRB,1.0643E+00_JPRB,1.1809E+00_JPRB/)
+KBO( :, 1,15, 8) = (/&
+&2.3178E-01_JPRB,2.3191E-01_JPRB,5.7184E-01_JPRB,8.7693E-01_JPRB,1.1022E+00_JPRB,1.1813E+00_JPRB/)
+KBO( :, 2,15, 8) = (/&
+&2.3560E-01_JPRB,2.3573E-01_JPRB,5.6724E-01_JPRB,8.7349E-01_JPRB,1.0976E+00_JPRB,1.1800E+00_JPRB/)
+KBO( :, 3,15, 8) = (/&
+&2.4219E-01_JPRB,2.4233E-01_JPRB,5.6272E-01_JPRB,8.6826E-01_JPRB,1.0904E+00_JPRB,1.1766E+00_JPRB/)
+KBO( :, 4,15, 8) = (/&
+&2.5074E-01_JPRB,2.5088E-01_JPRB,5.5919E-01_JPRB,8.6097E-01_JPRB,1.0807E+00_JPRB,1.1720E+00_JPRB/)
+KBO( :, 5,15, 8) = (/&
+&2.6000E-01_JPRB,2.6013E-01_JPRB,5.5698E-01_JPRB,8.5261E-01_JPRB,1.0688E+00_JPRB,1.1657E+00_JPRB/)
+KBO( :, 1,16, 8) = (/&
+&2.0414E-01_JPRB,2.0429E-01_JPRB,5.5967E-01_JPRB,8.6370E-01_JPRB,1.0904E+00_JPRB,1.1562E+00_JPRB/)
+KBO( :, 2,16, 8) = (/&
+&2.1009E-01_JPRB,2.1024E-01_JPRB,5.5625E-01_JPRB,8.6141E-01_JPRB,1.0865E+00_JPRB,1.1558E+00_JPRB/)
+KBO( :, 3,16, 8) = (/&
+&2.1753E-01_JPRB,2.1768E-01_JPRB,5.5355E-01_JPRB,8.5657E-01_JPRB,1.0800E+00_JPRB,1.1537E+00_JPRB/)
+KBO( :, 4,16, 8) = (/&
+&2.2581E-01_JPRB,2.2595E-01_JPRB,5.5210E-01_JPRB,8.5071E-01_JPRB,1.0712E+00_JPRB,1.1497E+00_JPRB/)
+KBO( :, 5,16, 8) = (/&
+&2.3451E-01_JPRB,2.3466E-01_JPRB,5.5166E-01_JPRB,8.4445E-01_JPRB,1.0599E+00_JPRB,1.1442E+00_JPRB/)
+KBO( :, 1,17, 8) = (/&
+&1.8111E-01_JPRB,1.8127E-01_JPRB,5.4370E-01_JPRB,8.4066E-01_JPRB,1.0633E+00_JPRB,1.1173E+00_JPRB/)
+KBO( :, 2,17, 8) = (/&
+&1.8751E-01_JPRB,1.8767E-01_JPRB,5.4225E-01_JPRB,8.3870E-01_JPRB,1.0603E+00_JPRB,1.1188E+00_JPRB/)
+KBO( :, 3,17, 8) = (/&
+&1.9478E-01_JPRB,1.9494E-01_JPRB,5.4182E-01_JPRB,8.3528E-01_JPRB,1.0547E+00_JPRB,1.1179E+00_JPRB/)
+KBO( :, 4,17, 8) = (/&
+&2.0226E-01_JPRB,2.0242E-01_JPRB,5.4242E-01_JPRB,8.3135E-01_JPRB,1.0462E+00_JPRB,1.1153E+00_JPRB/)
+KBO( :, 5,17, 8) = (/&
+&2.0977E-01_JPRB,2.0992E-01_JPRB,5.4408E-01_JPRB,8.2665E-01_JPRB,1.0353E+00_JPRB,1.1109E+00_JPRB/)
+KBO( :, 1,18, 8) = (/&
+&1.6037E-01_JPRB,1.6054E-01_JPRB,5.2354E-01_JPRB,8.0743E-01_JPRB,1.0214E+00_JPRB,1.0665E+00_JPRB/)
+KBO( :, 2,18, 8) = (/&
+&1.6652E-01_JPRB,1.6669E-01_JPRB,5.2468E-01_JPRB,8.0676E-01_JPRB,1.0196E+00_JPRB,1.0692E+00_JPRB/)
+KBO( :, 3,18, 8) = (/&
+&1.7290E-01_JPRB,1.7307E-01_JPRB,5.2655E-01_JPRB,8.0477E-01_JPRB,1.0147E+00_JPRB,1.0691E+00_JPRB/)
+KBO( :, 4,18, 8) = (/&
+&1.7934E-01_JPRB,1.7951E-01_JPRB,5.2943E-01_JPRB,8.0251E-01_JPRB,1.0069E+00_JPRB,1.0675E+00_JPRB/)
+KBO( :, 5,18, 8) = (/&
+&1.8580E-01_JPRB,1.8596E-01_JPRB,5.3218E-01_JPRB,7.9996E-01_JPRB,9.9675E-01_JPRB,1.0641E+00_JPRB/)
+KBO( :, 1,19, 8) = (/&
+&1.4147E-01_JPRB,1.4165E-01_JPRB,4.9931E-01_JPRB,7.6579E-01_JPRB,9.6706E-01_JPRB,1.0036E+00_JPRB/)
+KBO( :, 2,19, 8) = (/&
+&1.4680E-01_JPRB,1.4699E-01_JPRB,5.0235E-01_JPRB,7.6624E-01_JPRB,9.6598E-01_JPRB,1.0066E+00_JPRB/)
+KBO( :, 3,19, 8) = (/&
+&1.5225E-01_JPRB,1.5244E-01_JPRB,5.0654E-01_JPRB,7.6618E-01_JPRB,9.6124E-01_JPRB,1.0077E+00_JPRB/)
+KBO( :, 4,19, 8) = (/&
+&1.5772E-01_JPRB,1.5791E-01_JPRB,5.1074E-01_JPRB,7.6598E-01_JPRB,9.5363E-01_JPRB,1.0072E+00_JPRB/)
+KBO( :, 5,19, 8) = (/&
+&1.6330E-01_JPRB,1.6348E-01_JPRB,5.1433E-01_JPRB,7.6482E-01_JPRB,9.4459E-01_JPRB,1.0048E+00_JPRB/)
+KBO( :, 1,20, 8) = (/&
+&1.2415E-01_JPRB,1.2435E-01_JPRB,4.7152E-01_JPRB,7.1700E-01_JPRB,9.0180E-01_JPRB,9.3194E-01_JPRB/)
+KBO( :, 2,20, 8) = (/&
+&1.2873E-01_JPRB,1.2894E-01_JPRB,4.7682E-01_JPRB,7.1874E-01_JPRB,9.0028E-01_JPRB,9.3593E-01_JPRB/)
+KBO( :, 3,20, 8) = (/&
+&1.3332E-01_JPRB,1.3352E-01_JPRB,4.8227E-01_JPRB,7.2020E-01_JPRB,8.9592E-01_JPRB,9.3812E-01_JPRB/)
+KBO( :, 4,20, 8) = (/&
+&1.3806E-01_JPRB,1.3826E-01_JPRB,4.8689E-01_JPRB,7.2110E-01_JPRB,8.9003E-01_JPRB,9.3865E-01_JPRB/)
+KBO( :, 5,20, 8) = (/&
+&1.4304E-01_JPRB,1.4323E-01_JPRB,4.9097E-01_JPRB,7.2157E-01_JPRB,8.8366E-01_JPRB,9.3774E-01_JPRB/)
+KBO( :, 1,21, 8) = (/&
+&1.0824E-01_JPRB,1.0845E-01_JPRB,4.4084E-01_JPRB,6.6237E-01_JPRB,8.2840E-01_JPRB,8.5416E-01_JPRB/)
+KBO( :, 2,21, 8) = (/&
+&1.1215E-01_JPRB,1.1237E-01_JPRB,4.4741E-01_JPRB,6.6560E-01_JPRB,8.2721E-01_JPRB,8.5880E-01_JPRB/)
+KBO( :, 3,21, 8) = (/&
+&1.1610E-01_JPRB,1.1631E-01_JPRB,4.5328E-01_JPRB,6.6844E-01_JPRB,8.2433E-01_JPRB,8.6217E-01_JPRB/)
+KBO( :, 4,21, 8) = (/&
+&1.2031E-01_JPRB,1.2052E-01_JPRB,4.5831E-01_JPRB,6.7112E-01_JPRB,8.2101E-01_JPRB,8.6470E-01_JPRB/)
+KBO( :, 5,21, 8) = (/&
+&1.2513E-01_JPRB,1.2535E-01_JPRB,4.6228E-01_JPRB,6.7321E-01_JPRB,8.1773E-01_JPRB,8.6681E-01_JPRB/)
+KBO( :, 1,22, 8) = (/&
+&9.4136E-02_JPRB,9.4356E-02_JPRB,4.0812E-01_JPRB,6.0557E-01_JPRB,7.5102E-01_JPRB,7.7334E-01_JPRB/)
+KBO( :, 2,22, 8) = (/&
+&9.7453E-02_JPRB,9.7680E-02_JPRB,4.1479E-01_JPRB,6.0994E-01_JPRB,7.5090E-01_JPRB,7.7909E-01_JPRB/)
+KBO( :, 3,22, 8) = (/&
+&1.0097E-01_JPRB,1.0120E-01_JPRB,4.2075E-01_JPRB,6.1446E-01_JPRB,7.5039E-01_JPRB,7.8458E-01_JPRB/)
+KBO( :, 4,22, 8) = (/&
+&1.0505E-01_JPRB,1.0527E-01_JPRB,4.2583E-01_JPRB,6.1845E-01_JPRB,7.5036E-01_JPRB,7.8977E-01_JPRB/)
+KBO( :, 5,22, 8) = (/&
+&1.0993E-01_JPRB,1.1016E-01_JPRB,4.2991E-01_JPRB,6.2156E-01_JPRB,7.5073E-01_JPRB,7.9510E-01_JPRB/)
+KBO( :, 1,23, 8) = (/&
+&8.1349E-02_JPRB,8.1584E-02_JPRB,3.7354E-01_JPRB,5.4796E-01_JPRB,6.7356E-01_JPRB,6.9291E-01_JPRB/)
+KBO( :, 2,23, 8) = (/&
+&8.4276E-02_JPRB,8.4510E-02_JPRB,3.8021E-01_JPRB,5.5386E-01_JPRB,6.7570E-01_JPRB,7.0065E-01_JPRB/)
+KBO( :, 3,23, 8) = (/&
+&8.7640E-02_JPRB,8.7874E-02_JPRB,3.8598E-01_JPRB,5.5948E-01_JPRB,6.7838E-01_JPRB,7.0844E-01_JPRB/)
+KBO( :, 4,23, 8) = (/&
+&9.1780E-02_JPRB,9.2021E-02_JPRB,3.9102E-01_JPRB,5.6473E-01_JPRB,6.8175E-01_JPRB,7.1651E-01_JPRB/)
+KBO( :, 5,23, 8) = (/&
+&9.6686E-02_JPRB,9.6939E-02_JPRB,3.9533E-01_JPRB,5.6950E-01_JPRB,6.8602E-01_JPRB,7.2456E-01_JPRB/)
+KBO( :, 1,24, 8) = (/&
+&6.9990E-02_JPRB,7.0237E-02_JPRB,3.3858E-01_JPRB,4.9217E-01_JPRB,5.9977E-01_JPRB,6.1602E-01_JPRB/)
+KBO( :, 2,24, 8) = (/&
+&7.2713E-02_JPRB,7.2959E-02_JPRB,3.4483E-01_JPRB,4.9901E-01_JPRB,6.0467E-01_JPRB,6.2572E-01_JPRB/)
+KBO( :, 3,24, 8) = (/&
+&7.6092E-02_JPRB,7.6339E-02_JPRB,3.5052E-01_JPRB,5.0586E-01_JPRB,6.1039E-01_JPRB,6.3593E-01_JPRB/)
+KBO( :, 4,24, 8) = (/&
+&8.0272E-02_JPRB,8.0531E-02_JPRB,3.5585E-01_JPRB,5.1250E-01_JPRB,6.1729E-01_JPRB,6.4602E-01_JPRB/)
+KBO( :, 5,24, 8) = (/&
+&8.5043E-02_JPRB,8.5307E-02_JPRB,3.6095E-01_JPRB,5.1914E-01_JPRB,6.2467E-01_JPRB,6.5479E-01_JPRB/)
+KBO( :, 1,25, 8) = (/&
+&6.0058E-02_JPRB,6.0325E-02_JPRB,3.0404E-01_JPRB,4.3931E-01_JPRB,5.3180E-01_JPRB,5.4488E-01_JPRB/)
+KBO( :, 2,25, 8) = (/&
+&6.2808E-02_JPRB,6.3070E-02_JPRB,3.1019E-01_JPRB,4.4720E-01_JPRB,5.3927E-01_JPRB,5.5647E-01_JPRB/)
+KBO( :, 3,25, 8) = (/&
+&6.6253E-02_JPRB,6.6517E-02_JPRB,3.1620E-01_JPRB,4.5515E-01_JPRB,5.4804E-01_JPRB,5.6793E-01_JPRB/)
+KBO( :, 4,25, 8) = (/&
+&7.0286E-02_JPRB,7.0564E-02_JPRB,3.2210E-01_JPRB,4.6317E-01_JPRB,5.5729E-01_JPRB,5.7748E-01_JPRB/)
+KBO( :, 5,25, 8) = (/&
+&7.4631E-02_JPRB,7.4904E-02_JPRB,3.2818E-01_JPRB,4.7084E-01_JPRB,5.6535E-01_JPRB,5.8428E-01_JPRB/)
+KBO( :, 1,26, 8) = (/&
+&5.1659E-02_JPRB,5.1968E-02_JPRB,2.7136E-01_JPRB,3.9044E-01_JPRB,4.7061E-01_JPRB,4.8066E-01_JPRB/)
+KBO( :, 2,26, 8) = (/&
+&5.4454E-02_JPRB,5.4749E-02_JPRB,2.7780E-01_JPRB,3.9925E-01_JPRB,4.8060E-01_JPRB,4.9280E-01_JPRB/)
+KBO( :, 3,26, 8) = (/&
+&5.7864E-02_JPRB,5.8160E-02_JPRB,2.8427E-01_JPRB,4.0818E-01_JPRB,4.9092E-01_JPRB,5.0289E-01_JPRB/)
+KBO( :, 4,26, 8) = (/&
+&6.1551E-02_JPRB,6.1849E-02_JPRB,2.9095E-01_JPRB,4.1685E-01_JPRB,4.9998E-01_JPRB,5.1033E-01_JPRB/)
+KBO( :, 5,26, 8) = (/&
+&6.5434E-02_JPRB,6.5724E-02_JPRB,2.9806E-01_JPRB,4.2453E-01_JPRB,5.0716E-01_JPRB,5.1469E-01_JPRB/)
+KBO( :, 1,27, 8) = (/&
+&4.4574E-02_JPRB,4.4959E-02_JPRB,2.4126E-01_JPRB,3.4609E-01_JPRB,4.1629E-01_JPRB,4.2248E-01_JPRB/)
+KBO( :, 2,27, 8) = (/&
+&4.7372E-02_JPRB,4.7727E-02_JPRB,2.4803E-01_JPRB,3.5548E-01_JPRB,4.2721E-01_JPRB,4.3291E-01_JPRB/)
+KBO( :, 3,27, 8) = (/&
+&5.0509E-02_JPRB,5.0855E-02_JPRB,2.5505E-01_JPRB,3.6464E-01_JPRB,4.3687E-01_JPRB,4.4067E-01_JPRB/)
+KBO( :, 4,27, 8) = (/&
+&5.3857E-02_JPRB,5.4187E-02_JPRB,2.6242E-01_JPRB,3.7281E-01_JPRB,4.4478E-01_JPRB,4.4531E-01_JPRB/)
+KBO( :, 5,27, 8) = (/&
+&5.7275E-02_JPRB,5.7589E-02_JPRB,2.7029E-01_JPRB,3.7997E-01_JPRB,4.5055E-01_JPRB,4.4651E-01_JPRB/)
+KBO( :, 1,28, 8) = (/&
+&3.8595E-02_JPRB,3.9083E-02_JPRB,2.1409E-01_JPRB,3.0626E-01_JPRB,3.6758E-01_JPRB,3.6870E-01_JPRB/)
+KBO( :, 2,28, 8) = (/&
+&4.1250E-02_JPRB,4.1701E-02_JPRB,2.2115E-01_JPRB,3.1552E-01_JPRB,3.7756E-01_JPRB,3.7664E-01_JPRB/)
+KBO( :, 3,28, 8) = (/&
+&4.4090E-02_JPRB,4.4510E-02_JPRB,2.2858E-01_JPRB,3.2391E-01_JPRB,3.8579E-01_JPRB,3.8144E-01_JPRB/)
+KBO( :, 4,28, 8) = (/&
+&4.7006E-02_JPRB,4.7391E-02_JPRB,2.3638E-01_JPRB,3.3136E-01_JPRB,3.9193E-01_JPRB,3.8299E-01_JPRB/)
+KBO( :, 5,28, 8) = (/&
+&5.0054E-02_JPRB,5.0402E-02_JPRB,2.4452E-01_JPRB,3.3791E-01_JPRB,3.9580E-01_JPRB,3.8186E-01_JPRB/)
+KBO( :, 1,29, 8) = (/&
+&3.3476E-02_JPRB,3.4098E-02_JPRB,1.8985E-01_JPRB,2.7044E-01_JPRB,3.2310E-01_JPRB,3.1910E-01_JPRB/)
+KBO( :, 2,29, 8) = (/&
+&3.5905E-02_JPRB,3.6473E-02_JPRB,1.9710E-01_JPRB,2.7881E-01_JPRB,3.3147E-01_JPRB,3.2409E-01_JPRB/)
+KBO( :, 3,29, 8) = (/&
+&3.8420E-02_JPRB,3.8933E-02_JPRB,2.0468E-01_JPRB,2.8629E-01_JPRB,3.3775E-01_JPRB,3.2611E-01_JPRB/)
+KBO( :, 4,29, 8) = (/&
+&4.1043E-02_JPRB,4.1502E-02_JPRB,2.1261E-01_JPRB,2.9284E-01_JPRB,3.4187E-01_JPRB,3.2584E-01_JPRB/)
+KBO( :, 5,29, 8) = (/&
+&4.3764E-02_JPRB,4.4163E-02_JPRB,2.2069E-01_JPRB,2.9879E-01_JPRB,3.4414E-01_JPRB,3.2382E-01_JPRB/)
+KBO( :, 1,30, 8) = (/&
+&2.9059E-02_JPRB,2.9833E-02_JPRB,1.6831E-01_JPRB,2.3789E-01_JPRB,2.8228E-01_JPRB,2.7330E-01_JPRB/)
+KBO( :, 2,30, 8) = (/&
+&3.1236E-02_JPRB,3.1934E-02_JPRB,1.7554E-01_JPRB,2.4524E-01_JPRB,2.8861E-01_JPRB,2.7583E-01_JPRB/)
+KBO( :, 3,30, 8) = (/&
+&3.3473E-02_JPRB,3.4095E-02_JPRB,1.8314E-01_JPRB,2.5166E-01_JPRB,2.9297E-01_JPRB,2.7628E-01_JPRB/)
+KBO( :, 4,30, 8) = (/&
+&3.5829E-02_JPRB,3.6370E-02_JPRB,1.9099E-01_JPRB,2.5743E-01_JPRB,2.9573E-01_JPRB,2.7526E-01_JPRB/)
+KBO( :, 5,30, 8) = (/&
+&3.8342E-02_JPRB,3.8806E-02_JPRB,1.9889E-01_JPRB,2.6291E-01_JPRB,2.9753E-01_JPRB,2.7308E-01_JPRB/)
+KBO( :, 1,31, 8) = (/&
+&2.5215E-02_JPRB,2.6144E-02_JPRB,1.4919E-01_JPRB,2.0841E-01_JPRB,2.4479E-01_JPRB,2.3198E-01_JPRB/)
+KBO( :, 2,31, 8) = (/&
+&2.7144E-02_JPRB,2.7979E-02_JPRB,1.5634E-01_JPRB,2.1462E-01_JPRB,2.4940E-01_JPRB,2.3311E-01_JPRB/)
+KBO( :, 3,31, 8) = (/&
+&2.9169E-02_JPRB,2.9907E-02_JPRB,1.6380E-01_JPRB,2.2020E-01_JPRB,2.5250E-01_JPRB,2.3291E-01_JPRB/)
+KBO( :, 4,31, 8) = (/&
+&3.1339E-02_JPRB,3.1975E-02_JPRB,1.7145E-01_JPRB,2.2560E-01_JPRB,2.5484E-01_JPRB,2.3169E-01_JPRB/)
+KBO( :, 5,31, 8) = (/&
+&3.3710E-02_JPRB,3.4248E-02_JPRB,1.7897E-01_JPRB,2.3122E-01_JPRB,2.5681E-01_JPRB,2.2968E-01_JPRB/)
+KBO( :, 1,32, 8) = (/&
+&2.1908E-02_JPRB,2.2988E-02_JPRB,1.3234E-01_JPRB,1.8179E-01_JPRB,2.1098E-01_JPRB,1.9567E-01_JPRB/)
+KBO( :, 2,32, 8) = (/&
+&2.3644E-02_JPRB,2.4617E-02_JPRB,1.3932E-01_JPRB,1.8712E-01_JPRB,2.1438E-01_JPRB,1.9614E-01_JPRB/)
+KBO( :, 3,32, 8) = (/&
+&2.5493E-02_JPRB,2.6345E-02_JPRB,1.4655E-01_JPRB,1.9237E-01_JPRB,2.1705E-01_JPRB,1.9570E-01_JPRB/)
+KBO( :, 4,32, 8) = (/&
+&2.7518E-02_JPRB,2.8252E-02_JPRB,1.5380E-01_JPRB,1.9790E-01_JPRB,2.1948E-01_JPRB,1.9455E-01_JPRB/)
+KBO( :, 5,32, 8) = (/&
+&2.9773E-02_JPRB,3.0387E-02_JPRB,1.6098E-01_JPRB,2.0383E-01_JPRB,2.2190E-01_JPRB,1.9286E-01_JPRB/)
+KBO( :, 1,33, 8) = (/&
+&1.9045E-02_JPRB,2.0261E-02_JPRB,1.1752E-01_JPRB,1.5812E-01_JPRB,1.8110E-01_JPRB,1.6448E-01_JPRB/)
+KBO( :, 2,33, 8) = (/&
+&2.0626E-02_JPRB,2.1724E-02_JPRB,1.2423E-01_JPRB,1.6307E-01_JPRB,1.8397E-01_JPRB,1.6464E-01_JPRB/)
+KBO( :, 3,33, 8) = (/&
+&2.2336E-02_JPRB,2.3302E-02_JPRB,1.3114E-01_JPRB,1.6839E-01_JPRB,1.8664E-01_JPRB,1.6418E-01_JPRB/)
+KBO( :, 4,33, 8) = (/&
+&2.4266E-02_JPRB,2.5093E-02_JPRB,1.3811E-01_JPRB,1.7421E-01_JPRB,1.8938E-01_JPRB,1.6325E-01_JPRB/)
+KBO( :, 5,33, 8) = (/&
+&2.6466E-02_JPRB,2.7164E-02_JPRB,1.4513E-01_JPRB,1.8048E-01_JPRB,1.9238E-01_JPRB,1.6211E-01_JPRB/)
+KBO( :, 1,34, 8) = (/&
+&1.6556E-02_JPRB,1.7892E-02_JPRB,1.0429E-01_JPRB,1.3736E-01_JPRB,1.5516E-01_JPRB,1.3789E-01_JPRB/)
+KBO( :, 2,34, 8) = (/&
+&1.7996E-02_JPRB,1.9210E-02_JPRB,1.1072E-01_JPRB,1.4236E-01_JPRB,1.5794E-01_JPRB,1.3797E-01_JPRB/)
+KBO( :, 3,34, 8) = (/&
+&1.9608E-02_JPRB,2.0681E-02_JPRB,1.1739E-01_JPRB,1.4788E-01_JPRB,1.6081E-01_JPRB,1.3764E-01_JPRB/)
+KBO( :, 4,34, 8) = (/&
+&2.1464E-02_JPRB,2.2387E-02_JPRB,1.2421E-01_JPRB,1.5396E-01_JPRB,1.6395E-01_JPRB,1.3706E-01_JPRB/)
+KBO( :, 5,34, 8) = (/&
+&2.3594E-02_JPRB,2.4379E-02_JPRB,1.3126E-01_JPRB,1.6048E-01_JPRB,1.6756E-01_JPRB,1.3645E-01_JPRB/)
+KBO( :, 1,35, 8) = (/&
+&1.4319E-02_JPRB,1.5758E-02_JPRB,9.2204E-02_JPRB,1.1925E-01_JPRB,1.3286E-01_JPRB,1.1548E-01_JPRB/)
+KBO( :, 2,35, 8) = (/&
+&1.5652E-02_JPRB,1.6978E-02_JPRB,9.8399E-02_JPRB,1.2433E-01_JPRB,1.3567E-01_JPRB,1.1564E-01_JPRB/)
+KBO( :, 3,35, 8) = (/&
+&1.7169E-02_JPRB,1.8350E-02_JPRB,1.0487E-01_JPRB,1.3003E-01_JPRB,1.3879E-01_JPRB,1.1554E-01_JPRB/)
+KBO( :, 4,35, 8) = (/&
+&1.8944E-02_JPRB,1.9975E-02_JPRB,1.1167E-01_JPRB,1.3629E-01_JPRB,1.4236E-01_JPRB,1.1534E-01_JPRB/)
+KBO( :, 5,35, 8) = (/&
+&2.0938E-02_JPRB,2.1824E-02_JPRB,1.1877E-01_JPRB,1.4294E-01_JPRB,1.4651E-01_JPRB,1.1522E-01_JPRB/)
+KBO( :, 1,36, 8) = (/&
+&1.2304E-02_JPRB,1.3829E-02_JPRB,8.1120E-02_JPRB,1.0334E-01_JPRB,1.1366E-01_JPRB,9.6686E-02_JPRB/)
+KBO( :, 2,36, 8) = (/&
+&1.3517E-02_JPRB,1.4942E-02_JPRB,8.7082E-02_JPRB,1.0850E-01_JPRB,1.1660E-01_JPRB,9.6981E-02_JPRB/)
+KBO( :, 3,36, 8) = (/&
+&1.4939E-02_JPRB,1.6232E-02_JPRB,9.3439E-02_JPRB,1.1431E-01_JPRB,1.1995E-01_JPRB,9.7085E-02_JPRB/)
+KBO( :, 4,36, 8) = (/&
+&1.6604E-02_JPRB,1.7754E-02_JPRB,1.0020E-01_JPRB,1.2061E-01_JPRB,1.2384E-01_JPRB,9.7245E-02_JPRB/)
+KBO( :, 5,36, 8) = (/&
+&1.8458E-02_JPRB,1.9458E-02_JPRB,1.0732E-01_JPRB,1.2741E-01_JPRB,1.2840E-01_JPRB,9.7611E-02_JPRB/)
+KBO( :, 1,37, 8) = (/&
+&1.0441E-02_JPRB,1.2037E-02_JPRB,7.0733E-02_JPRB,8.9104E-02_JPRB,9.7006E-02_JPRB,8.0853E-02_JPRB/)
+KBO( :, 2,37, 8) = (/&
+&1.1538E-02_JPRB,1.3055E-02_JPRB,7.6444E-02_JPRB,9.4227E-02_JPRB,1.0002E-01_JPRB,8.1261E-02_JPRB/)
+KBO( :, 3,37, 8) = (/&
+&1.2840E-02_JPRB,1.4247E-02_JPRB,8.2653E-02_JPRB,9.9992E-02_JPRB,1.0351E-01_JPRB,8.1587E-02_JPRB/)
+KBO( :, 4,37, 8) = (/&
+&1.4355E-02_JPRB,1.5634E-02_JPRB,8.9312E-02_JPRB,1.0629E-01_JPRB,1.0761E-01_JPRB,8.2022E-02_JPRB/)
+KBO( :, 5,37, 8) = (/&
+&1.6059E-02_JPRB,1.7188E-02_JPRB,9.6394E-02_JPRB,1.1316E-01_JPRB,1.1240E-01_JPRB,8.2731E-02_JPRB/)
+KBO( :, 1,38, 8) = (/&
+&8.8645E-03_JPRB,1.0501E-02_JPRB,6.1698E-02_JPRB,7.6908E-02_JPRB,8.2883E-02_JPRB,6.7642E-02_JPRB/)
+KBO( :, 2,38, 8) = (/&
+&9.8554E-03_JPRB,1.1441E-02_JPRB,6.7213E-02_JPRB,8.1954E-02_JPRB,8.5931E-02_JPRB,6.8150E-02_JPRB/)
+KBO( :, 3,38, 8) = (/&
+&1.1041E-02_JPRB,1.2540E-02_JPRB,7.3258E-02_JPRB,8.7642E-02_JPRB,8.9506E-02_JPRB,6.8667E-02_JPRB/)
+KBO( :, 4,38, 8) = (/&
+&1.2430E-02_JPRB,1.3817E-02_JPRB,7.9801E-02_JPRB,9.3936E-02_JPRB,9.3782E-02_JPRB,6.9339E-02_JPRB/)
+KBO( :, 5,38, 8) = (/&
+&1.3983E-02_JPRB,1.5235E-02_JPRB,8.6814E-02_JPRB,1.0083E-01_JPRB,9.8742E-02_JPRB,7.0319E-02_JPRB/)
+KBO( :, 1,39, 8) = (/&
+&7.5404E-03_JPRB,9.1874E-03_JPRB,5.3906E-02_JPRB,6.6495E-02_JPRB,7.0902E-02_JPRB,5.6657E-02_JPRB/)
+KBO( :, 2,39, 8) = (/&
+&8.4340E-03_JPRB,1.0061E-02_JPRB,5.9245E-02_JPRB,7.1435E-02_JPRB,7.3979E-02_JPRB,5.7261E-02_JPRB/)
+KBO( :, 3,39, 8) = (/&
+&9.5242E-03_JPRB,1.1089E-02_JPRB,6.5132E-02_JPRB,7.7048E-02_JPRB,7.7636E-02_JPRB,5.7943E-02_JPRB/)
+KBO( :, 4,39, 8) = (/&
+&1.0781E-02_JPRB,1.2259E-02_JPRB,7.1549E-02_JPRB,8.3326E-02_JPRB,8.2004E-02_JPRB,5.8823E-02_JPRB/)
+KBO( :, 5,39, 8) = (/&
+&1.2213E-02_JPRB,1.3570E-02_JPRB,7.8488E-02_JPRB,9.0234E-02_JPRB,8.7139E-02_JPRB,6.0045E-02_JPRB/)
+KBO( :, 1,40, 8) = (/&
+&6.3480E-03_JPRB,7.9841E-03_JPRB,4.6707E-02_JPRB,5.7154E-02_JPRB,6.0478E-02_JPRB,4.7309E-02_JPRB/)
+KBO( :, 2,40, 8) = (/&
+&7.1416E-03_JPRB,8.7876E-03_JPRB,5.1799E-02_JPRB,6.1892E-02_JPRB,6.3504E-02_JPRB,4.7969E-02_JPRB/)
+KBO( :, 3,40, 8) = (/&
+&8.1113E-03_JPRB,9.7274E-03_JPRB,5.7484E-02_JPRB,6.7350E-02_JPRB,6.7140E-02_JPRB,4.8718E-02_JPRB/)
+KBO( :, 4,40, 8) = (/&
+&9.2465E-03_JPRB,1.0801E-02_JPRB,6.3707E-02_JPRB,7.3511E-02_JPRB,7.1497E-02_JPRB,4.9676E-02_JPRB/)
+KBO( :, 5,40, 8) = (/&
+&1.0544E-02_JPRB,1.2001E-02_JPRB,7.0505E-02_JPRB,8.0368E-02_JPRB,7.6674E-02_JPRB,5.0981E-02_JPRB/)
+KBO( :, 1,41, 8) = (/&
+&5.3391E-03_JPRB,6.9383E-03_JPRB,4.0421E-02_JPRB,4.9104E-02_JPRB,5.1567E-02_JPRB,3.9495E-02_JPRB/)
+KBO( :, 2,41, 8) = (/&
+&6.0420E-03_JPRB,7.6785E-03_JPRB,4.5260E-02_JPRB,5.3617E-02_JPRB,5.4523E-02_JPRB,4.0174E-02_JPRB/)
+KBO( :, 3,41, 8) = (/&
+&6.9017E-03_JPRB,8.5389E-03_JPRB,5.0726E-02_JPRB,5.8886E-02_JPRB,5.8106E-02_JPRB,4.0950E-02_JPRB/)
+KBO( :, 4,41, 8) = (/&
+&7.9215E-03_JPRB,9.5281E-03_JPRB,5.6758E-02_JPRB,6.4894E-02_JPRB,6.2425E-02_JPRB,4.1953E-02_JPRB/)
+KBO( :, 5,41, 8) = (/&
+&9.0958E-03_JPRB,1.0632E-02_JPRB,6.3380E-02_JPRB,7.1665E-02_JPRB,6.7575E-02_JPRB,4.3294E-02_JPRB/)
+KBO( :, 1,42, 8) = (/&
+&4.4874E-03_JPRB,6.0277E-03_JPRB,3.4973E-02_JPRB,4.2181E-02_JPRB,4.3972E-02_JPRB,3.2976E-02_JPRB/)
+KBO( :, 2,42, 8) = (/&
+&5.1084E-03_JPRB,6.7117E-03_JPRB,3.9569E-02_JPRB,4.6481E-02_JPRB,4.6838E-02_JPRB,3.3656E-02_JPRB/)
+KBO( :, 3,42, 8) = (/&
+&5.8774E-03_JPRB,7.5092E-03_JPRB,4.4793E-02_JPRB,5.1534E-02_JPRB,5.0349E-02_JPRB,3.4440E-02_JPRB/)
+KBO( :, 4,42, 8) = (/&
+&6.7906E-03_JPRB,8.4227E-03_JPRB,5.0631E-02_JPRB,5.7384E-02_JPRB,5.4620E-02_JPRB,3.5462E-02_JPRB/)
+KBO( :, 5,42, 8) = (/&
+&7.8525E-03_JPRB,9.4467E-03_JPRB,5.7082E-02_JPRB,6.4044E-02_JPRB,5.9718E-02_JPRB,3.6824E-02_JPRB/)
+KBO( :, 1,43, 8) = (/&
+&3.7422E-03_JPRB,5.2033E-03_JPRB,3.0024E-02_JPRB,3.6022E-02_JPRB,3.7358E-02_JPRB,2.7486E-02_JPRB/)
+KBO( :, 2,43, 8) = (/&
+&4.2855E-03_JPRB,5.8316E-03_JPRB,3.4344E-02_JPRB,4.0070E-02_JPRB,4.0089E-02_JPRB,2.8154E-02_JPRB/)
+KBO( :, 3,43, 8) = (/&
+&4.9638E-03_JPRB,6.5666E-03_JPRB,3.9296E-02_JPRB,4.4870E-02_JPRB,4.3472E-02_JPRB,2.8929E-02_JPRB/)
+KBO( :, 4,43, 8) = (/&
+&5.7736E-03_JPRB,7.4071E-03_JPRB,4.4883E-02_JPRB,5.0478E-02_JPRB,4.7614E-02_JPRB,2.9920E-02_JPRB/)
+KBO( :, 5,43, 8) = (/&
+&6.7269E-03_JPRB,8.3547E-03_JPRB,5.1126E-02_JPRB,5.6946E-02_JPRB,5.2603E-02_JPRB,3.1259E-02_JPRB/)
+KBO( :, 1,44, 8) = (/&
+&3.1123E-03_JPRB,4.4787E-03_JPRB,2.5629E-02_JPRB,3.0645E-02_JPRB,3.1662E-02_JPRB,2.2891E-02_JPRB/)
+KBO( :, 2,44, 8) = (/&
+&3.5819E-03_JPRB,5.0510E-03_JPRB,2.9662E-02_JPRB,3.4404E-02_JPRB,3.4213E-02_JPRB,2.3525E-02_JPRB/)
+KBO( :, 3,44, 8) = (/&
+&4.1717E-03_JPRB,5.7219E-03_JPRB,3.4337E-02_JPRB,3.8941E-02_JPRB,3.7437E-02_JPRB,2.4274E-02_JPRB/)
+KBO( :, 4,44, 8) = (/&
+&4.8874E-03_JPRB,6.4997E-03_JPRB,3.9651E-02_JPRB,4.4278E-02_JPRB,4.1431E-02_JPRB,2.5229E-02_JPRB/)
+KBO( :, 5,44, 8) = (/&
+&5.7377E-03_JPRB,7.3726E-03_JPRB,4.5649E-02_JPRB,5.0511E-02_JPRB,4.6265E-02_JPRB,2.6526E-02_JPRB/)
+KBO( :, 1,45, 8) = (/&
+&2.5853E-03_JPRB,3.8513E-03_JPRB,2.1823E-02_JPRB,2.6026E-02_JPRB,2.6804E-02_JPRB,1.9058E-02_JPRB/)
+KBO( :, 2,45, 8) = (/&
+&2.9888E-03_JPRB,4.3719E-03_JPRB,2.5563E-02_JPRB,2.9502E-02_JPRB,2.9182E-02_JPRB,1.9668E-02_JPRB/)
+KBO( :, 3,45, 8) = (/&
+&3.5037E-03_JPRB,4.9832E-03_JPRB,2.9957E-02_JPRB,3.3763E-02_JPRB,3.2213E-02_JPRB,2.0379E-02_JPRB/)
+KBO( :, 4,45, 8) = (/&
+&4.1322E-03_JPRB,5.6995E-03_JPRB,3.5000E-02_JPRB,3.8824E-02_JPRB,3.6032E-02_JPRB,2.1286E-02_JPRB/)
+KBO( :, 5,45, 8) = (/&
+&4.8892E-03_JPRB,6.5060E-03_JPRB,4.0741E-02_JPRB,4.4793E-02_JPRB,4.0699E-02_JPRB,2.2533E-02_JPRB/)
+KBO( :, 1,46, 8) = (/&
+&2.1331E-03_JPRB,3.2909E-03_JPRB,1.8461E-02_JPRB,2.1996E-02_JPRB,2.2623E-02_JPRB,1.5851E-02_JPRB/)
+KBO( :, 2,46, 8) = (/&
+&2.4815E-03_JPRB,3.7686E-03_JPRB,2.1893E-02_JPRB,2.5181E-02_JPRB,2.4805E-02_JPRB,1.6418E-02_JPRB/)
+KBO( :, 3,46, 8) = (/&
+&2.9255E-03_JPRB,4.3224E-03_JPRB,2.5992E-02_JPRB,2.9135E-02_JPRB,2.7620E-02_JPRB,1.7082E-02_JPRB/)
+KBO( :, 4,46, 8) = (/&
+&3.4773E-03_JPRB,4.9794E-03_JPRB,3.0754E-02_JPRB,3.3905E-02_JPRB,3.1233E-02_JPRB,1.7942E-02_JPRB/)
+KBO( :, 5,46, 8) = (/&
+&4.1439E-03_JPRB,5.7240E-03_JPRB,3.6209E-02_JPRB,3.9579E-02_JPRB,3.5705E-02_JPRB,1.9124E-02_JPRB/)
+KBO( :, 1,47, 8) = (/&
+&1.7489E-03_JPRB,2.7917E-03_JPRB,1.5439E-02_JPRB,1.8422E-02_JPRB,1.8978E-02_JPRB,1.3134E-02_JPRB/)
+KBO( :, 2,47, 8) = (/&
+&2.0428E-03_JPRB,3.2234E-03_JPRB,1.8541E-02_JPRB,2.1302E-02_JPRB,2.0952E-02_JPRB,1.3661E-02_JPRB/)
+KBO( :, 3,47, 8) = (/&
+&2.4192E-03_JPRB,3.7223E-03_JPRB,2.2314E-02_JPRB,2.4927E-02_JPRB,2.3525E-02_JPRB,1.4273E-02_JPRB/)
+KBO( :, 4,47, 8) = (/&
+&2.8969E-03_JPRB,4.3171E-03_JPRB,2.6764E-02_JPRB,2.9356E-02_JPRB,2.6874E-02_JPRB,1.5058E-02_JPRB/)
+KBO( :, 5,47, 8) = (/&
+&3.4807E-03_JPRB,5.0006E-03_JPRB,3.1906E-02_JPRB,3.4693E-02_JPRB,3.1094E-02_JPRB,1.6142E-02_JPRB/)
+KBO( :, 1,48, 8) = (/&
+&1.4327E-03_JPRB,2.3618E-03_JPRB,1.2851E-02_JPRB,1.5372E-02_JPRB,1.5885E-02_JPRB,1.0883E-02_JPRB/)
+KBO( :, 2,48, 8) = (/&
+&1.6785E-03_JPRB,2.7495E-03_JPRB,1.5626E-02_JPRB,1.7950E-02_JPRB,1.7654E-02_JPRB,1.1366E-02_JPRB/)
+KBO( :, 3,48, 8) = (/&
+&1.9967E-03_JPRB,3.1986E-03_JPRB,1.9069E-02_JPRB,2.1252E-02_JPRB,1.9987E-02_JPRB,1.1922E-02_JPRB/)
+KBO( :, 4,48, 8) = (/&
+&2.4067E-03_JPRB,3.7350E-03_JPRB,2.3203E-02_JPRB,2.5339E-02_JPRB,2.3066E-02_JPRB,1.2640E-02_JPRB/)
+KBO( :, 5,48, 8) = (/&
+&2.9156E-03_JPRB,4.3597E-03_JPRB,2.8035E-02_JPRB,3.0335E-02_JPRB,2.7010E-02_JPRB,1.3635E-02_JPRB/)
+KBO( :, 1,49, 8) = (/&
+&1.1689E-03_JPRB,1.9883E-03_JPRB,1.0644E-02_JPRB,1.2774E-02_JPRB,1.3257E-02_JPRB,9.0102E-03_JPRB/)
+KBO( :, 2,49, 8) = (/&
+&1.3778E-03_JPRB,2.3380E-03_JPRB,1.3100E-02_JPRB,1.5054E-02_JPRB,1.4830E-02_JPRB,9.4528E-03_JPRB/)
+KBO( :, 3,49, 8) = (/&
+&1.6437E-03_JPRB,2.7417E-03_JPRB,1.6213E-02_JPRB,1.8042E-02_JPRB,1.6928E-02_JPRB,9.9612E-03_JPRB/)
+KBO( :, 4,49, 8) = (/&
+&1.9940E-03_JPRB,3.2236E-03_JPRB,2.0024E-02_JPRB,2.1800E-02_JPRB,1.9739E-02_JPRB,1.0620E-02_JPRB/)
+KBO( :, 5,49, 8) = (/&
+&2.4346E-03_JPRB,3.7942E-03_JPRB,2.4548E-02_JPRB,2.6440E-02_JPRB,2.3396E-02_JPRB,1.1534E-02_JPRB/)
+KBO( :, 1,50, 8) = (/&
+&9.5607E-04_JPRB,1.6753E-03_JPRB,8.8167E-03_JPRB,1.0612E-02_JPRB,1.1052E-02_JPRB,7.4373E-03_JPRB/)
+KBO( :, 2,50, 8) = (/&
+&1.1316E-03_JPRB,1.9897E-03_JPRB,1.0983E-02_JPRB,1.2621E-02_JPRB,1.2456E-02_JPRB,7.8368E-03_JPRB/)
+KBO( :, 3,50, 8) = (/&
+&1.3565E-03_JPRB,2.3537E-03_JPRB,1.3790E-02_JPRB,1.5320E-02_JPRB,1.4346E-02_JPRB,8.2918E-03_JPRB/)
+KBO( :, 4,50, 8) = (/&
+&1.6563E-03_JPRB,2.7888E-03_JPRB,1.7295E-02_JPRB,1.8780E-02_JPRB,1.6915E-02_JPRB,8.8832E-03_JPRB/)
+KBO( :, 5,50, 8) = (/&
+&2.0379E-03_JPRB,3.3085E-03_JPRB,2.1524E-02_JPRB,2.3092E-02_JPRB,2.0305E-02_JPRB,9.7144E-03_JPRB/)
+KBO( :, 1,51, 8) = (/&
+&7.8250E-04_JPRB,1.4092E-03_JPRB,7.2896E-03_JPRB,8.7965E-03_JPRB,9.1930E-03_JPRB,6.1252E-03_JPRB/)
+KBO( :, 2,51, 8) = (/&
+&9.2963E-04_JPRB,1.6917E-03_JPRB,9.1856E-03_JPRB,1.0556E-02_JPRB,1.0442E-02_JPRB,6.4818E-03_JPRB/)
+KBO( :, 3,51, 8) = (/&
+&1.1199E-03_JPRB,2.0205E-03_JPRB,1.1706E-02_JPRB,1.2981E-02_JPRB,1.2146E-02_JPRB,6.8899E-03_JPRB/)
+KBO( :, 4,51, 8) = (/&
+&1.3754E-03_JPRB,2.4116E-03_JPRB,1.4910E-02_JPRB,1.6157E-02_JPRB,1.4484E-02_JPRB,7.4151E-03_JPRB/)
+KBO( :, 5,51, 8) = (/&
+&1.7057E-03_JPRB,2.8850E-03_JPRB,1.8848E-02_JPRB,2.0162E-02_JPRB,1.7617E-02_JPRB,8.1571E-03_JPRB/)
+KBO( :, 1,52, 8) = (/&
+&6.3740E-04_JPRB,1.1795E-03_JPRB,6.0058E-03_JPRB,7.2694E-03_JPRB,7.6231E-03_JPRB,5.0413E-03_JPRB/)
+KBO( :, 2,52, 8) = (/&
+&7.6292E-04_JPRB,1.4345E-03_JPRB,7.6473E-03_JPRB,8.7976E-03_JPRB,8.7274E-03_JPRB,5.3621E-03_JPRB/)
+KBO( :, 3,52, 8) = (/&
+&9.2276E-04_JPRB,1.7301E-03_JPRB,9.8884E-03_JPRB,1.0949E-02_JPRB,1.0250E-02_JPRB,5.7262E-03_JPRB/)
+KBO( :, 4,52, 8) = (/&
+&1.1390E-03_JPRB,2.0817E-03_JPRB,1.2797E-02_JPRB,1.3842E-02_JPRB,1.2367E-02_JPRB,6.1911E-03_JPRB/)
+KBO( :, 5,52, 8) = (/&
+&1.4240E-03_JPRB,2.5099E-03_JPRB,1.6438E-02_JPRB,1.7549E-02_JPRB,1.5248E-02_JPRB,6.8528E-03_JPRB/)
+KBO( :, 1,53, 8) = (/&
+&5.1732E-04_JPRB,9.8178E-04_JPRB,4.9291E-03_JPRB,5.9861E-03_JPRB,6.3013E-03_JPRB,4.1478E-03_JPRB/)
+KBO( :, 2,53, 8) = (/&
+&6.2319E-04_JPRB,1.2101E-03_JPRB,6.3342E-03_JPRB,7.2982E-03_JPRB,7.2668E-03_JPRB,4.4355E-03_JPRB/)
+KBO( :, 3,53, 8) = (/&
+&7.5896E-04_JPRB,1.4772E-03_JPRB,8.3073E-03_JPRB,9.1884E-03_JPRB,8.6166E-03_JPRB,4.7615E-03_JPRB/)
+KBO( :, 4,53, 8) = (/&
+&9.4032E-04_JPRB,1.7923E-03_JPRB,1.0926E-02_JPRB,1.1795E-02_JPRB,1.0522E-02_JPRB,5.1760E-03_JPRB/)
+KBO( :, 5,53, 8) = (/&
+&1.1855E-03_JPRB,2.1779E-03_JPRB,1.4267E-02_JPRB,1.5211E-02_JPRB,1.3151E-02_JPRB,5.7675E-03_JPRB/)
+KBO( :, 1,54, 8) = (/&
+&4.2099E-04_JPRB,8.1896E-04_JPRB,4.0587E-03_JPRB,4.9414E-03_JPRB,5.2122E-03_JPRB,3.3954E-03_JPRB/)
+KBO( :, 2,54, 8) = (/&
+&5.1072E-04_JPRB,1.0232E-03_JPRB,5.2659E-03_JPRB,6.0692E-03_JPRB,6.0577E-03_JPRB,3.6461E-03_JPRB/)
+KBO( :, 3,54, 8) = (/&
+&6.2630E-04_JPRB,1.2640E-03_JPRB,7.0010E-03_JPRB,7.7316E-03_JPRB,7.2545E-03_JPRB,3.9269E-03_JPRB/)
+KBO( :, 4,54, 8) = (/&
+&7.8065E-04_JPRB,1.5498E-03_JPRB,9.3602E-03_JPRB,1.0080E-02_JPRB,8.9779E-03_JPRB,4.2798E-03_JPRB/)
+KBO( :, 5,54, 8) = (/&
+&9.9133E-04_JPRB,1.8976E-03_JPRB,1.2427E-02_JPRB,1.3231E-02_JPRB,1.1388E-02_JPRB,4.7881E-03_JPRB/)
+KBO( :, 1,55, 8) = (/&
+&3.4264E-04_JPRB,6.8196E-04_JPRB,3.3418E-03_JPRB,4.0786E-03_JPRB,4.3077E-03_JPRB,2.7691E-03_JPRB/)
+KBO( :, 2,55, 8) = (/&
+&4.1827E-04_JPRB,8.6407E-04_JPRB,4.3772E-03_JPRB,5.0438E-03_JPRB,5.0439E-03_JPRB,2.9836E-03_JPRB/)
+KBO( :, 3,55, 8) = (/&
+&5.1651E-04_JPRB,1.0809E-03_JPRB,5.8977E-03_JPRB,6.5003E-03_JPRB,6.1007E-03_JPRB,3.2208E-03_JPRB/)
+KBO( :, 4,55, 8) = (/&
+&6.4755E-04_JPRB,1.3394E-03_JPRB,8.0143E-03_JPRB,8.6084E-03_JPRB,7.6585E-03_JPRB,3.5143E-03_JPRB/)
+KBO( :, 5,55, 8) = (/&
+&8.2913E-04_JPRB,1.6553E-03_JPRB,1.0821E-02_JPRB,1.1504E-02_JPRB,9.8668E-03_JPRB,3.9383E-03_JPRB/)
+KBO( :, 1,56, 8) = (/&
+&2.7803E-04_JPRB,5.6487E-04_JPRB,2.7420E-03_JPRB,3.3568E-03_JPRB,3.5496E-03_JPRB,2.2543E-03_JPRB/)
+KBO( :, 2,56, 8) = (/&
+&3.4121E-04_JPRB,7.2622E-04_JPRB,3.6228E-03_JPRB,4.1781E-03_JPRB,4.1862E-03_JPRB,2.4382E-03_JPRB/)
+KBO( :, 3,56, 8) = (/&
+&4.2449E-04_JPRB,9.2149E-04_JPRB,4.9469E-03_JPRB,5.4413E-03_JPRB,5.1116E-03_JPRB,2.6387E-03_JPRB/)
+KBO( :, 4,56, 8) = (/&
+&5.3591E-04_JPRB,1.1547E-03_JPRB,6.8316E-03_JPRB,7.3206E-03_JPRB,6.5078E-03_JPRB,2.8830E-03_JPRB/)
+KBO( :, 5,56, 8) = (/&
+&6.9206E-04_JPRB,1.4413E-03_JPRB,9.3865E-03_JPRB,9.9613E-03_JPRB,8.5223E-03_JPRB,3.2344E-03_JPRB/)
+KBO( :, 1,57, 8) = (/&
+&2.2504E-04_JPRB,4.6500E-04_JPRB,2.2403E-03_JPRB,2.7543E-03_JPRB,2.9166E-03_JPRB,1.8323E-03_JPRB/)
+KBO( :, 2,57, 8) = (/&
+&2.7798E-04_JPRB,6.0783E-04_JPRB,2.9851E-03_JPRB,3.4491E-03_JPRB,3.4628E-03_JPRB,1.9897E-03_JPRB/)
+KBO( :, 3,57, 8) = (/&
+&3.4753E-04_JPRB,7.8225E-04_JPRB,4.1312E-03_JPRB,4.5352E-03_JPRB,4.2657E-03_JPRB,2.1593E-03_JPRB/)
+KBO( :, 4,57, 8) = (/&
+&4.4202E-04_JPRB,9.9272E-04_JPRB,5.7973E-03_JPRB,6.1951E-03_JPRB,5.5060E-03_JPRB,2.3628E-03_JPRB/)
+KBO( :, 5,57, 8) = (/&
+&5.7558E-04_JPRB,1.2517E-03_JPRB,8.1058E-03_JPRB,8.5872E-03_JPRB,7.3360E-03_JPRB,2.6522E-03_JPRB/)
+KBO( :, 1,58, 8) = (/&
+&1.8228E-04_JPRB,3.8208E-04_JPRB,1.8308E-03_JPRB,2.2613E-03_JPRB,2.3970E-03_JPRB,1.4881E-03_JPRB/)
+KBO( :, 2,58, 8) = (/&
+&2.2635E-04_JPRB,5.0773E-04_JPRB,2.4625E-03_JPRB,2.8501E-03_JPRB,2.8647E-03_JPRB,1.6219E-03_JPRB/)
+KBO( :, 3,58, 8) = (/&
+&2.8516E-04_JPRB,6.6412E-04_JPRB,3.4519E-03_JPRB,3.7830E-03_JPRB,3.5592E-03_JPRB,1.7642E-03_JPRB/)
+KBO( :, 4,58, 8) = (/&
+&3.6538E-04_JPRB,8.5444E-04_JPRB,4.9230E-03_JPRB,5.2451E-03_JPRB,4.6580E-03_JPRB,1.9336E-03_JPRB/)
+KBO( :, 5,58, 8) = (/&
+&4.7911E-04_JPRB,1.0886E-03_JPRB,7.0070E-03_JPRB,7.4069E-03_JPRB,6.3208E-03_JPRB,2.1715E-03_JPRB/)
+KBO( :, 1,59, 8) = (/&
+&1.5316E-04_JPRB,3.3009E-04_JPRB,1.5697E-03_JPRB,1.9267E-03_JPRB,2.0287E-03_JPRB,1.2203E-03_JPRB/)
+KBO( :, 2,59, 8) = (/&
+&1.9174E-04_JPRB,4.4479E-04_JPRB,2.1483E-03_JPRB,2.4646E-03_JPRB,2.4521E-03_JPRB,1.3301E-03_JPRB/)
+KBO( :, 3,59, 8) = (/&
+&2.4392E-04_JPRB,5.8967E-04_JPRB,3.0690E-03_JPRB,3.3341E-03_JPRB,3.1017E-03_JPRB,1.4481E-03_JPRB/)
+KBO( :, 4,59, 8) = (/&
+&3.1594E-04_JPRB,7.6769E-04_JPRB,4.4545E-03_JPRB,4.7180E-03_JPRB,4.1523E-03_JPRB,1.5884E-03_JPRB/)
+KBO( :, 5,59, 8) = (/&
+&4.1934E-04_JPRB,9.8859E-04_JPRB,6.4430E-03_JPRB,6.7951E-03_JPRB,5.7622E-03_JPRB,1.7867E-03_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_B2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B3.F90	(revision 2160)
@@ -0,0 +1,1923 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_B3
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 6, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*H2O), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 9) = (/&
+&2.1640E+00_JPRB,2.1630E+00_JPRB,1.9037E+00_JPRB,1.9914E+00_JPRB,2.1507E+00_JPRB,2.1924E+00_JPRB/)
+KBO( :, 2,13, 9) = (/&
+&2.1780E+00_JPRB,2.1770E+00_JPRB,1.9043E+00_JPRB,1.9692E+00_JPRB,2.1183E+00_JPRB,2.1702E+00_JPRB/)
+KBO( :, 3,13, 9) = (/&
+&2.1863E+00_JPRB,2.1853E+00_JPRB,1.9004E+00_JPRB,1.9443E+00_JPRB,2.0822E+00_JPRB,2.1533E+00_JPRB/)
+KBO( :, 4,13, 9) = (/&
+&2.1908E+00_JPRB,2.1898E+00_JPRB,1.8939E+00_JPRB,1.9183E+00_JPRB,2.0440E+00_JPRB,2.1390E+00_JPRB/)
+KBO( :, 5,13, 9) = (/&
+&2.1905E+00_JPRB,2.1895E+00_JPRB,1.8836E+00_JPRB,1.8902E+00_JPRB,2.0042E+00_JPRB,2.1255E+00_JPRB/)
+KBO( :, 1,14, 9) = (/&
+&1.9847E+00_JPRB,1.9838E+00_JPRB,1.8303E+00_JPRB,2.0353E+00_JPRB,2.2590E+00_JPRB,2.3088E+00_JPRB/)
+KBO( :, 2,14, 9) = (/&
+&1.9934E+00_JPRB,1.9925E+00_JPRB,1.8250E+00_JPRB,2.0091E+00_JPRB,2.2231E+00_JPRB,2.2801E+00_JPRB/)
+KBO( :, 3,14, 9) = (/&
+&1.9976E+00_JPRB,1.9967E+00_JPRB,1.8170E+00_JPRB,1.9802E+00_JPRB,2.1840E+00_JPRB,2.2566E+00_JPRB/)
+KBO( :, 4,14, 9) = (/&
+&1.9974E+00_JPRB,1.9965E+00_JPRB,1.8053E+00_JPRB,1.9495E+00_JPRB,2.1431E+00_JPRB,2.2372E+00_JPRB/)
+KBO( :, 5,14, 9) = (/&
+&1.9939E+00_JPRB,1.9930E+00_JPRB,1.7904E+00_JPRB,1.9177E+00_JPRB,2.1004E+00_JPRB,2.2192E+00_JPRB/)
+KBO( :, 1,15, 9) = (/&
+&1.7889E+00_JPRB,1.7882E+00_JPRB,1.7547E+00_JPRB,2.0779E+00_JPRB,2.3573E+00_JPRB,2.4290E+00_JPRB/)
+KBO( :, 2,15, 9) = (/&
+&1.7928E+00_JPRB,1.7920E+00_JPRB,1.7452E+00_JPRB,2.0486E+00_JPRB,2.3189E+00_JPRB,2.4037E+00_JPRB/)
+KBO( :, 3,15, 9) = (/&
+&1.7928E+00_JPRB,1.7920E+00_JPRB,1.7330E+00_JPRB,2.0171E+00_JPRB,2.2790E+00_JPRB,2.3775E+00_JPRB/)
+KBO( :, 4,15, 9) = (/&
+&1.7917E+00_JPRB,1.7909E+00_JPRB,1.7182E+00_JPRB,1.9838E+00_JPRB,2.2366E+00_JPRB,2.3528E+00_JPRB/)
+KBO( :, 5,15, 9) = (/&
+&1.7907E+00_JPRB,1.7899E+00_JPRB,1.7010E+00_JPRB,1.9495E+00_JPRB,2.1934E+00_JPRB,2.3317E+00_JPRB/)
+KBO( :, 1,16, 9) = (/&
+&1.5869E+00_JPRB,1.5863E+00_JPRB,1.6883E+00_JPRB,2.1193E+00_JPRB,2.4455E+00_JPRB,2.5492E+00_JPRB/)
+KBO( :, 2,16, 9) = (/&
+&1.5874E+00_JPRB,1.5868E+00_JPRB,1.6750E+00_JPRB,2.0881E+00_JPRB,2.4087E+00_JPRB,2.5259E+00_JPRB/)
+KBO( :, 3,16, 9) = (/&
+&1.5879E+00_JPRB,1.5873E+00_JPRB,1.6596E+00_JPRB,2.0559E+00_JPRB,2.3694E+00_JPRB,2.5006E+00_JPRB/)
+KBO( :, 4,16, 9) = (/&
+&1.5893E+00_JPRB,1.5886E+00_JPRB,1.6420E+00_JPRB,2.0221E+00_JPRB,2.3275E+00_JPRB,2.4758E+00_JPRB/)
+KBO( :, 5,16, 9) = (/&
+&1.5915E+00_JPRB,1.5908E+00_JPRB,1.6225E+00_JPRB,1.9860E+00_JPRB,2.2837E+00_JPRB,2.4531E+00_JPRB/)
+KBO( :, 1,17, 9) = (/&
+&1.3911E+00_JPRB,1.3906E+00_JPRB,1.6357E+00_JPRB,2.1551E+00_JPRB,2.5270E+00_JPRB,2.6550E+00_JPRB/)
+KBO( :, 2,17, 9) = (/&
+&1.3924E+00_JPRB,1.3919E+00_JPRB,1.6197E+00_JPRB,2.1251E+00_JPRB,2.4914E+00_JPRB,2.6342E+00_JPRB/)
+KBO( :, 3,17, 9) = (/&
+&1.3948E+00_JPRB,1.3943E+00_JPRB,1.6016E+00_JPRB,2.0927E+00_JPRB,2.4529E+00_JPRB,2.6104E+00_JPRB/)
+KBO( :, 4,17, 9) = (/&
+&1.4001E+00_JPRB,1.3995E+00_JPRB,1.5824E+00_JPRB,2.0573E+00_JPRB,2.4118E+00_JPRB,2.5862E+00_JPRB/)
+KBO( :, 5,17, 9) = (/&
+&1.4089E+00_JPRB,1.4083E+00_JPRB,1.5632E+00_JPRB,2.0202E+00_JPRB,2.3685E+00_JPRB,2.5625E+00_JPRB/)
+KBO( :, 1,18, 9) = (/&
+&1.2109E+00_JPRB,1.2104E+00_JPRB,1.5964E+00_JPRB,2.1814E+00_JPRB,2.5952E+00_JPRB,2.7389E+00_JPRB/)
+KBO( :, 2,18, 9) = (/&
+&1.2140E+00_JPRB,1.2136E+00_JPRB,1.5784E+00_JPRB,2.1525E+00_JPRB,2.5616E+00_JPRB,2.7209E+00_JPRB/)
+KBO( :, 3,18, 9) = (/&
+&1.2208E+00_JPRB,1.2204E+00_JPRB,1.5595E+00_JPRB,2.1201E+00_JPRB,2.5247E+00_JPRB,2.7005E+00_JPRB/)
+KBO( :, 4,18, 9) = (/&
+&1.2322E+00_JPRB,1.2318E+00_JPRB,1.5407E+00_JPRB,2.0849E+00_JPRB,2.4850E+00_JPRB,2.6784E+00_JPRB/)
+KBO( :, 5,18, 9) = (/&
+&1.2477E+00_JPRB,1.2472E+00_JPRB,1.5230E+00_JPRB,2.0478E+00_JPRB,2.4440E+00_JPRB,2.6553E+00_JPRB/)
+KBO( :, 1,19, 9) = (/&
+&1.0487E+00_JPRB,1.0484E+00_JPRB,1.5649E+00_JPRB,2.1968E+00_JPRB,2.6409E+00_JPRB,2.7963E+00_JPRB/)
+KBO( :, 2,19, 9) = (/&
+&1.0560E+00_JPRB,1.0557E+00_JPRB,1.5474E+00_JPRB,2.1687E+00_JPRB,2.6108E+00_JPRB,2.7829E+00_JPRB/)
+KBO( :, 3,19, 9) = (/&
+&1.0685E+00_JPRB,1.0682E+00_JPRB,1.5292E+00_JPRB,2.1368E+00_JPRB,2.5782E+00_JPRB,2.7649E+00_JPRB/)
+KBO( :, 4,19, 9) = (/&
+&1.0859E+00_JPRB,1.0855E+00_JPRB,1.5121E+00_JPRB,2.1019E+00_JPRB,2.5438E+00_JPRB,2.7445E+00_JPRB/)
+KBO( :, 5,19, 9) = (/&
+&1.1065E+00_JPRB,1.1062E+00_JPRB,1.4975E+00_JPRB,2.0661E+00_JPRB,2.5062E+00_JPRB,2.7222E+00_JPRB/)
+KBO( :, 1,20, 9) = (/&
+&9.0827E-01_JPRB,9.0805E-01_JPRB,1.5341E+00_JPRB,2.1956E+00_JPRB,2.6632E+00_JPRB,2.8242E+00_JPRB/)
+KBO( :, 2,20, 9) = (/&
+&9.2064E-01_JPRB,9.2040E-01_JPRB,1.5172E+00_JPRB,2.1687E+00_JPRB,2.6400E+00_JPRB,2.8145E+00_JPRB/)
+KBO( :, 3,20, 9) = (/&
+&9.3844E-01_JPRB,9.3819E-01_JPRB,1.5016E+00_JPRB,2.1388E+00_JPRB,2.6129E+00_JPRB,2.8000E+00_JPRB/)
+KBO( :, 4,20, 9) = (/&
+&9.6013E-01_JPRB,9.5986E-01_JPRB,1.4885E+00_JPRB,2.1071E+00_JPRB,2.5814E+00_JPRB,2.7828E+00_JPRB/)
+KBO( :, 5,20, 9) = (/&
+&9.8430E-01_JPRB,9.8400E-01_JPRB,1.4771E+00_JPRB,2.0741E+00_JPRB,2.5454E+00_JPRB,2.7636E+00_JPRB/)
+KBO( :, 1,21, 9) = (/&
+&7.8993E-01_JPRB,7.8978E-01_JPRB,1.4986E+00_JPRB,2.1733E+00_JPRB,2.6623E+00_JPRB,2.8179E+00_JPRB/)
+KBO( :, 2,21, 9) = (/&
+&8.0667E-01_JPRB,8.0650E-01_JPRB,1.4848E+00_JPRB,2.1496E+00_JPRB,2.6446E+00_JPRB,2.8129E+00_JPRB/)
+KBO( :, 3,21, 9) = (/&
+&8.2802E-01_JPRB,8.2784E-01_JPRB,1.4733E+00_JPRB,2.1235E+00_JPRB,2.6208E+00_JPRB,2.8029E+00_JPRB/)
+KBO( :, 4,21, 9) = (/&
+&8.5232E-01_JPRB,8.5211E-01_JPRB,1.4639E+00_JPRB,2.0960E+00_JPRB,2.5913E+00_JPRB,2.7898E+00_JPRB/)
+KBO( :, 5,21, 9) = (/&
+&8.7899E-01_JPRB,8.7876E-01_JPRB,1.4566E+00_JPRB,2.0681E+00_JPRB,2.5576E+00_JPRB,2.7727E+00_JPRB/)
+KBO( :, 1,22, 9) = (/&
+&6.9217E-01_JPRB,6.9207E-01_JPRB,1.4567E+00_JPRB,2.1294E+00_JPRB,2.6320E+00_JPRB,2.7789E+00_JPRB/)
+KBO( :, 2,22, 9) = (/&
+&7.1220E-01_JPRB,7.1209E-01_JPRB,1.4478E+00_JPRB,2.1106E+00_JPRB,2.6173E+00_JPRB,2.7783E+00_JPRB/)
+KBO( :, 3,22, 9) = (/&
+&7.3566E-01_JPRB,7.3553E-01_JPRB,1.4413E+00_JPRB,2.0897E+00_JPRB,2.5963E+00_JPRB,2.7722E+00_JPRB/)
+KBO( :, 4,22, 9) = (/&
+&7.6128E-01_JPRB,7.6113E-01_JPRB,1.4363E+00_JPRB,2.0682E+00_JPRB,2.5703E+00_JPRB,2.7624E+00_JPRB/)
+KBO( :, 5,22, 9) = (/&
+&7.8574E-01_JPRB,7.8555E-01_JPRB,1.4327E+00_JPRB,2.0477E+00_JPRB,2.5401E+00_JPRB,2.7492E+00_JPRB/)
+KBO( :, 1,23, 9) = (/&
+&6.1008E-01_JPRB,6.1003E-01_JPRB,1.4083E+00_JPRB,2.0681E+00_JPRB,2.5705E+00_JPRB,2.7083E+00_JPRB/)
+KBO( :, 2,23, 9) = (/&
+&6.3198E-01_JPRB,6.3192E-01_JPRB,1.4051E+00_JPRB,2.0548E+00_JPRB,2.5593E+00_JPRB,2.7117E+00_JPRB/)
+KBO( :, 3,23, 9) = (/&
+&6.5543E-01_JPRB,6.5535E-01_JPRB,1.4040E+00_JPRB,2.0403E+00_JPRB,2.5427E+00_JPRB,2.7102E+00_JPRB/)
+KBO( :, 4,23, 9) = (/&
+&6.7837E-01_JPRB,6.7826E-01_JPRB,1.4041E+00_JPRB,2.0263E+00_JPRB,2.5213E+00_JPRB,2.7060E+00_JPRB/)
+KBO( :, 5,23, 9) = (/&
+&7.0030E-01_JPRB,7.0016E-01_JPRB,1.4050E+00_JPRB,2.0127E+00_JPRB,2.4961E+00_JPRB,2.6994E+00_JPRB/)
+KBO( :, 1,24, 9) = (/&
+&5.4033E-01_JPRB,5.4033E-01_JPRB,1.3546E+00_JPRB,1.9899E+00_JPRB,2.4822E+00_JPRB,2.6084E+00_JPRB/)
+KBO( :, 2,24, 9) = (/&
+&5.6139E-01_JPRB,5.6138E-01_JPRB,1.3577E+00_JPRB,1.9836E+00_JPRB,2.4759E+00_JPRB,2.6174E+00_JPRB/)
+KBO( :, 3,24, 9) = (/&
+&5.8245E-01_JPRB,5.8242E-01_JPRB,1.3618E+00_JPRB,1.9770E+00_JPRB,2.4649E+00_JPRB,2.6232E+00_JPRB/)
+KBO( :, 4,24, 9) = (/&
+&6.0241E-01_JPRB,6.0233E-01_JPRB,1.3664E+00_JPRB,1.9707E+00_JPRB,2.4498E+00_JPRB,2.6268E+00_JPRB/)
+KBO( :, 5,24, 9) = (/&
+&6.2165E-01_JPRB,6.2155E-01_JPRB,1.3699E+00_JPRB,1.9646E+00_JPRB,2.4321E+00_JPRB,2.6277E+00_JPRB/)
+KBO( :, 1,25, 9) = (/&
+&4.7832E-01_JPRB,4.7836E-01_JPRB,1.2974E+00_JPRB,1.9000E+00_JPRB,2.3730E+00_JPRB,2.4875E+00_JPRB/)
+KBO( :, 2,25, 9) = (/&
+&4.9733E-01_JPRB,4.9735E-01_JPRB,1.3057E+00_JPRB,1.9014E+00_JPRB,2.3734E+00_JPRB,2.5038E+00_JPRB/)
+KBO( :, 3,25, 9) = (/&
+&5.1523E-01_JPRB,5.1522E-01_JPRB,1.3146E+00_JPRB,1.9031E+00_JPRB,2.3699E+00_JPRB,2.5183E+00_JPRB/)
+KBO( :, 4,25, 9) = (/&
+&5.3256E-01_JPRB,5.3251E-01_JPRB,1.3228E+00_JPRB,1.9051E+00_JPRB,2.3637E+00_JPRB,2.5320E+00_JPRB/)
+KBO( :, 5,25, 9) = (/&
+&5.4968E-01_JPRB,5.4961E-01_JPRB,1.3292E+00_JPRB,1.9068E+00_JPRB,2.3561E+00_JPRB,2.5438E+00_JPRB/)
+KBO( :, 1,26, 9) = (/&
+&4.2201E-01_JPRB,4.2207E-01_JPRB,1.2364E+00_JPRB,1.8029E+00_JPRB,2.2507E+00_JPRB,2.3533E+00_JPRB/)
+KBO( :, 2,26, 9) = (/&
+&4.3804E-01_JPRB,4.3809E-01_JPRB,1.2498E+00_JPRB,1.8126E+00_JPRB,2.2597E+00_JPRB,2.3788E+00_JPRB/)
+KBO( :, 3,26, 9) = (/&
+&4.5354E-01_JPRB,4.5356E-01_JPRB,1.2632E+00_JPRB,1.8229E+00_JPRB,2.2657E+00_JPRB,2.4047E+00_JPRB/)
+KBO( :, 4,26, 9) = (/&
+&4.6906E-01_JPRB,4.6904E-01_JPRB,1.2746E+00_JPRB,1.8333E+00_JPRB,2.2706E+00_JPRB,2.4304E+00_JPRB/)
+KBO( :, 5,26, 9) = (/&
+&4.8497E-01_JPRB,4.8494E-01_JPRB,1.2839E+00_JPRB,1.8429E+00_JPRB,2.2744E+00_JPRB,2.4544E+00_JPRB/)
+KBO( :, 1,27, 9) = (/&
+&3.7036E-01_JPRB,3.7045E-01_JPRB,1.1734E+00_JPRB,1.7029E+00_JPRB,2.1233E+00_JPRB,2.2152E+00_JPRB/)
+KBO( :, 2,27, 9) = (/&
+&3.8398E-01_JPRB,3.8406E-01_JPRB,1.1918E+00_JPRB,1.7218E+00_JPRB,2.1420E+00_JPRB,2.2527E+00_JPRB/)
+KBO( :, 3,27, 9) = (/&
+&3.9787E-01_JPRB,3.9791E-01_JPRB,1.2085E+00_JPRB,1.7412E+00_JPRB,2.1596E+00_JPRB,2.2917E+00_JPRB/)
+KBO( :, 4,27, 9) = (/&
+&4.1227E-01_JPRB,4.1229E-01_JPRB,1.2235E+00_JPRB,1.7604E+00_JPRB,2.1764E+00_JPRB,2.3307E+00_JPRB/)
+KBO( :, 5,27, 9) = (/&
+&4.2780E-01_JPRB,4.2779E-01_JPRB,1.2358E+00_JPRB,1.7785E+00_JPRB,2.1924E+00_JPRB,2.3678E+00_JPRB/)
+KBO( :, 1,28, 9) = (/&
+&3.2384E-01_JPRB,3.2396E-01_JPRB,1.1111E+00_JPRB,1.6050E+00_JPRB,1.9966E+00_JPRB,2.0814E+00_JPRB/)
+KBO( :, 2,28, 9) = (/&
+&3.3603E-01_JPRB,3.3613E-01_JPRB,1.1332E+00_JPRB,1.6332E+00_JPRB,2.0271E+00_JPRB,2.1324E+00_JPRB/)
+KBO( :, 3,28, 9) = (/&
+&3.4881E-01_JPRB,3.4887E-01_JPRB,1.1536E+00_JPRB,1.6622E+00_JPRB,2.0573E+00_JPRB,2.1850E+00_JPRB/)
+KBO( :, 4,28, 9) = (/&
+&3.6268E-01_JPRB,3.6273E-01_JPRB,1.1720E+00_JPRB,1.6900E+00_JPRB,2.0870E+00_JPRB,2.2373E+00_JPRB/)
+KBO( :, 5,28, 9) = (/&
+&3.7804E-01_JPRB,3.7806E-01_JPRB,1.1877E+00_JPRB,1.7173E+00_JPRB,2.1162E+00_JPRB,2.2869E+00_JPRB/)
+KBO( :, 1,29, 9) = (/&
+&2.8312E-01_JPRB,2.8326E-01_JPRB,1.0508E+00_JPRB,1.5130E+00_JPRB,1.8780E+00_JPRB,1.9589E+00_JPRB/)
+KBO( :, 2,29, 9) = (/&
+&2.9434E-01_JPRB,2.9445E-01_JPRB,1.0766E+00_JPRB,1.5511E+00_JPRB,1.9210E+00_JPRB,2.0243E+00_JPRB/)
+KBO( :, 3,29, 9) = (/&
+&3.0652E-01_JPRB,3.0661E-01_JPRB,1.1009E+00_JPRB,1.5889E+00_JPRB,1.9642E+00_JPRB,2.0907E+00_JPRB/)
+KBO( :, 4,29, 9) = (/&
+&3.2016E-01_JPRB,3.2023E-01_JPRB,1.1226E+00_JPRB,1.6261E+00_JPRB,2.0071E+00_JPRB,2.1548E+00_JPRB/)
+KBO( :, 5,29, 9) = (/&
+&3.3571E-01_JPRB,3.3577E-01_JPRB,1.1421E+00_JPRB,1.6615E+00_JPRB,2.0485E+00_JPRB,2.2151E+00_JPRB/)
+KBO( :, 1,30, 9) = (/&
+&2.4766E-01_JPRB,2.4782E-01_JPRB,9.9433E-01_JPRB,1.4304E+00_JPRB,1.7715E+00_JPRB,1.8514E+00_JPRB/)
+KBO( :, 2,30, 9) = (/&
+&2.5837E-01_JPRB,2.5850E-01_JPRB,1.0241E+00_JPRB,1.4775E+00_JPRB,1.8271E+00_JPRB,1.9302E+00_JPRB/)
+KBO( :, 3,30, 9) = (/&
+&2.7045E-01_JPRB,2.7056E-01_JPRB,1.0517E+00_JPRB,1.5244E+00_JPRB,1.8833E+00_JPRB,2.0084E+00_JPRB/)
+KBO( :, 4,30, 9) = (/&
+&2.8427E-01_JPRB,2.8436E-01_JPRB,1.0773E+00_JPRB,1.5701E+00_JPRB,1.9380E+00_JPRB,2.0829E+00_JPRB/)
+KBO( :, 5,30, 9) = (/&
+&3.0013E-01_JPRB,3.0021E-01_JPRB,1.1005E+00_JPRB,1.6130E+00_JPRB,1.9897E+00_JPRB,2.1530E+00_JPRB/)
+KBO( :, 1,31, 9) = (/&
+&2.1718E-01_JPRB,2.1735E-01_JPRB,9.4336E-01_JPRB,1.3592E+00_JPRB,1.6802E+00_JPRB,1.7623E+00_JPRB/)
+KBO( :, 2,31, 9) = (/&
+&2.2773E-01_JPRB,2.2787E-01_JPRB,9.7667E-01_JPRB,1.4147E+00_JPRB,1.7480E+00_JPRB,1.8530E+00_JPRB/)
+KBO( :, 3,31, 9) = (/&
+&2.3995E-01_JPRB,2.4007E-01_JPRB,1.0080E+00_JPRB,1.4699E+00_JPRB,1.8151E+00_JPRB,1.9409E+00_JPRB/)
+KBO( :, 4,31, 9) = (/&
+&2.5414E-01_JPRB,2.5424E-01_JPRB,1.0371E+00_JPRB,1.5227E+00_JPRB,1.8795E+00_JPRB,2.0251E+00_JPRB/)
+KBO( :, 5,31, 9) = (/&
+&2.7018E-01_JPRB,2.7028E-01_JPRB,1.0644E+00_JPRB,1.5717E+00_JPRB,1.9397E+00_JPRB,2.1038E+00_JPRB/)
+KBO( :, 1,32, 9) = (/&
+&1.9126E-01_JPRB,1.9146E-01_JPRB,8.9853E-01_JPRB,1.2997E+00_JPRB,1.6046E+00_JPRB,1.6901E+00_JPRB/)
+KBO( :, 2,32, 9) = (/&
+&2.0193E-01_JPRB,2.0209E-01_JPRB,9.3540E-01_JPRB,1.3632E+00_JPRB,1.6829E+00_JPRB,1.7901E+00_JPRB/)
+KBO( :, 3,32, 9) = (/&
+&2.1445E-01_JPRB,2.1459E-01_JPRB,9.7036E-01_JPRB,1.4251E+00_JPRB,1.7593E+00_JPRB,1.8876E+00_JPRB/)
+KBO( :, 4,32, 9) = (/&
+&2.2890E-01_JPRB,2.2902E-01_JPRB,1.0032E+00_JPRB,1.4834E+00_JPRB,1.8319E+00_JPRB,1.9801E+00_JPRB/)
+KBO( :, 5,32, 9) = (/&
+&2.4476E-01_JPRB,2.4488E-01_JPRB,1.0341E+00_JPRB,1.5373E+00_JPRB,1.8995E+00_JPRB,2.0662E+00_JPRB/)
+KBO( :, 1,33, 9) = (/&
+&1.6940E-01_JPRB,1.6962E-01_JPRB,8.6040E-01_JPRB,1.2516E+00_JPRB,1.5440E+00_JPRB,1.6336E+00_JPRB/)
+KBO( :, 2,33, 9) = (/&
+&1.8040E-01_JPRB,1.8058E-01_JPRB,9.0069E-01_JPRB,1.3217E+00_JPRB,1.6313E+00_JPRB,1.7427E+00_JPRB/)
+KBO( :, 3,33, 9) = (/&
+&1.9322E-01_JPRB,1.9338E-01_JPRB,9.3905E-01_JPRB,1.3887E+00_JPRB,1.7155E+00_JPRB,1.8483E+00_JPRB/)
+KBO( :, 4,33, 9) = (/&
+&2.0759E-01_JPRB,2.0774E-01_JPRB,9.7525E-01_JPRB,1.4518E+00_JPRB,1.7950E+00_JPRB,1.9477E+00_JPRB/)
+KBO( :, 5,33, 9) = (/&
+&2.2287E-01_JPRB,2.2300E-01_JPRB,1.0095E+00_JPRB,1.5103E+00_JPRB,1.8688E+00_JPRB,2.0398E+00_JPRB/)
+KBO( :, 1,34, 9) = (/&
+&1.5076E-01_JPRB,1.5101E-01_JPRB,8.2749E-01_JPRB,1.2115E+00_JPRB,1.4944E+00_JPRB,1.5862E+00_JPRB/)
+KBO( :, 2,34, 9) = (/&
+&1.6203E-01_JPRB,1.6224E-01_JPRB,8.7097E-01_JPRB,1.2867E+00_JPRB,1.5891E+00_JPRB,1.7034E+00_JPRB/)
+KBO( :, 3,34, 9) = (/&
+&1.7492E-01_JPRB,1.7510E-01_JPRB,9.1244E-01_JPRB,1.3584E+00_JPRB,1.6800E+00_JPRB,1.8152E+00_JPRB/)
+KBO( :, 4,34, 9) = (/&
+&1.8884E-01_JPRB,1.8900E-01_JPRB,9.5164E-01_JPRB,1.4257E+00_JPRB,1.7654E+00_JPRB,1.9207E+00_JPRB/)
+KBO( :, 5,34, 9) = (/&
+&2.0347E-01_JPRB,2.0361E-01_JPRB,9.8858E-01_JPRB,1.4882E+00_JPRB,1.8441E+00_JPRB,2.0182E+00_JPRB/)
+KBO( :, 1,35, 9) = (/&
+&1.3410E-01_JPRB,1.3442E-01_JPRB,7.9621E-01_JPRB,1.1726E+00_JPRB,1.4470E+00_JPRB,1.5402E+00_JPRB/)
+KBO( :, 2,35, 9) = (/&
+&1.4542E-01_JPRB,1.4567E-01_JPRB,8.4262E-01_JPRB,1.2523E+00_JPRB,1.5484E+00_JPRB,1.6636E+00_JPRB/)
+KBO( :, 3,35, 9) = (/&
+&1.5802E-01_JPRB,1.5823E-01_JPRB,8.8698E-01_JPRB,1.3283E+00_JPRB,1.6454E+00_JPRB,1.7818E+00_JPRB/)
+KBO( :, 4,35, 9) = (/&
+&1.7135E-01_JPRB,1.7153E-01_JPRB,9.2894E-01_JPRB,1.3999E+00_JPRB,1.7361E+00_JPRB,1.8932E+00_JPRB/)
+KBO( :, 5,35, 9) = (/&
+&1.8540E-01_JPRB,1.8556E-01_JPRB,9.6841E-01_JPRB,1.4664E+00_JPRB,1.8195E+00_JPRB,1.9967E+00_JPRB/)
+KBO( :, 1,36, 9) = (/&
+&1.1885E-01_JPRB,1.1927E-01_JPRB,7.6459E-01_JPRB,1.1318E+00_JPRB,1.3978E+00_JPRB,1.4899E+00_JPRB/)
+KBO( :, 2,36, 9) = (/&
+&1.2990E-01_JPRB,1.3022E-01_JPRB,8.1382E-01_JPRB,1.2158E+00_JPRB,1.5052E+00_JPRB,1.6195E+00_JPRB/)
+KBO( :, 3,36, 9) = (/&
+&1.4201E-01_JPRB,1.4226E-01_JPRB,8.6094E-01_JPRB,1.2962E+00_JPRB,1.6079E+00_JPRB,1.7441E+00_JPRB/)
+KBO( :, 4,36, 9) = (/&
+&1.5478E-01_JPRB,1.5499E-01_JPRB,9.0551E-01_JPRB,1.3720E+00_JPRB,1.7039E+00_JPRB,1.8614E+00_JPRB/)
+KBO( :, 5,36, 9) = (/&
+&1.6836E-01_JPRB,1.6854E-01_JPRB,9.4765E-01_JPRB,1.4424E+00_JPRB,1.7920E+00_JPRB,1.9701E+00_JPRB/)
+KBO( :, 1,37, 9) = (/&
+&1.0428E-01_JPRB,1.0485E-01_JPRB,7.2899E-01_JPRB,1.0835E+00_JPRB,1.3388E+00_JPRB,1.4259E+00_JPRB/)
+KBO( :, 2,37, 9) = (/&
+&1.1481E-01_JPRB,1.1525E-01_JPRB,7.8118E-01_JPRB,1.1719E+00_JPRB,1.4522E+00_JPRB,1.5616E+00_JPRB/)
+KBO( :, 3,37, 9) = (/&
+&1.2629E-01_JPRB,1.2662E-01_JPRB,8.3108E-01_JPRB,1.2566E+00_JPRB,1.5607E+00_JPRB,1.6925E+00_JPRB/)
+KBO( :, 4,37, 9) = (/&
+&1.3851E-01_JPRB,1.3876E-01_JPRB,8.7848E-01_JPRB,1.3370E+00_JPRB,1.6624E+00_JPRB,1.8161E+00_JPRB/)
+KBO( :, 5,37, 9) = (/&
+&1.5156E-01_JPRB,1.5177E-01_JPRB,9.2339E-01_JPRB,1.4116E+00_JPRB,1.7558E+00_JPRB,1.9309E+00_JPRB/)
+KBO( :, 1,38, 9) = (/&
+&9.1605E-02_JPRB,9.2343E-02_JPRB,6.9610E-01_JPRB,1.0388E+00_JPRB,1.2845E+00_JPRB,1.3674E+00_JPRB/)
+KBO( :, 2,38, 9) = (/&
+&1.0158E-01_JPRB,1.0215E-01_JPRB,7.5088E-01_JPRB,1.1311E+00_JPRB,1.4032E+00_JPRB,1.5087E+00_JPRB/)
+KBO( :, 3,38, 9) = (/&
+&1.1247E-01_JPRB,1.1289E-01_JPRB,8.0339E-01_JPRB,1.2200E+00_JPRB,1.5169E+00_JPRB,1.6453E+00_JPRB/)
+KBO( :, 4,38, 9) = (/&
+&1.2417E-01_JPRB,1.2448E-01_JPRB,8.5338E-01_JPRB,1.3042E+00_JPRB,1.6236E+00_JPRB,1.7750E+00_JPRB/)
+KBO( :, 5,38, 9) = (/&
+&1.3676E-01_JPRB,1.3700E-01_JPRB,9.0083E-01_JPRB,1.3828E+00_JPRB,1.7217E+00_JPRB,1.8952E+00_JPRB/)
+KBO( :, 1,39, 9) = (/&
+&8.0656E-02_JPRB,8.1594E-02_JPRB,6.6607E-01_JPRB,9.9815E-01_JPRB,1.2351E+00_JPRB,1.3152E+00_JPRB/)
+KBO( :, 2,39, 9) = (/&
+&9.0069E-02_JPRB,9.0786E-02_JPRB,7.2321E-01_JPRB,1.0941E+00_JPRB,1.3584E+00_JPRB,1.4617E+00_JPRB/)
+KBO( :, 3,39, 9) = (/&
+&1.0038E-01_JPRB,1.0092E-01_JPRB,7.7814E-01_JPRB,1.1864E+00_JPRB,1.4767E+00_JPRB,1.6037E+00_JPRB/)
+KBO( :, 4,39, 9) = (/&
+&1.1160E-01_JPRB,1.1200E-01_JPRB,8.3050E-01_JPRB,1.2742E+00_JPRB,1.5879E+00_JPRB,1.7392E+00_JPRB/)
+KBO( :, 5,39, 9) = (/&
+&1.2381E-01_JPRB,1.2410E-01_JPRB,8.8026E-01_JPRB,1.3564E+00_JPRB,1.6903E+00_JPRB,1.8642E+00_JPRB/)
+KBO( :, 1,40, 9) = (/&
+&7.0343E-02_JPRB,7.1517E-02_JPRB,6.3258E-01_JPRB,9.5074E-01_JPRB,1.1768E+00_JPRB,1.2495E+00_JPRB/)
+KBO( :, 2,40, 9) = (/&
+&7.9103E-02_JPRB,8.0020E-02_JPRB,6.9189E-01_JPRB,1.0501E+00_JPRB,1.3045E+00_JPRB,1.4003E+00_JPRB/)
+KBO( :, 3,40, 9) = (/&
+&8.8790E-02_JPRB,8.9492E-02_JPRB,7.4925E-01_JPRB,1.1461E+00_JPRB,1.4274E+00_JPRB,1.5476E+00_JPRB/)
+KBO( :, 4,40, 9) = (/&
+&9.9461E-02_JPRB,9.9977E-02_JPRB,8.0414E-01_JPRB,1.2375E+00_JPRB,1.5434E+00_JPRB,1.6884E+00_JPRB/)
+KBO( :, 5,40, 9) = (/&
+&1.1114E-01_JPRB,1.1151E-01_JPRB,8.5633E-01_JPRB,1.3236E+00_JPRB,1.6507E+00_JPRB,1.8191E+00_JPRB/)
+KBO( :, 1,41, 9) = (/&
+&6.1266E-02_JPRB,6.2696E-02_JPRB,6.0022E-01_JPRB,9.0450E-01_JPRB,1.1198E+00_JPRB,1.1852E+00_JPRB/)
+KBO( :, 2,41, 9) = (/&
+&6.9449E-02_JPRB,7.0593E-02_JPRB,6.6161E-01_JPRB,1.0070E+00_JPRB,1.2513E+00_JPRB,1.3399E+00_JPRB/)
+KBO( :, 3,41, 9) = (/&
+&7.8517E-02_JPRB,7.9409E-02_JPRB,7.2121E-01_JPRB,1.1063E+00_JPRB,1.3785E+00_JPRB,1.4916E+00_JPRB/)
+KBO( :, 4,41, 9) = (/&
+&8.8610E-02_JPRB,8.9276E-02_JPRB,7.7839E-01_JPRB,1.2012E+00_JPRB,1.4990E+00_JPRB,1.6374E+00_JPRB/)
+KBO( :, 5,41, 9) = (/&
+&9.9774E-02_JPRB,1.0026E-01_JPRB,8.3284E-01_JPRB,1.2906E+00_JPRB,1.6108E+00_JPRB,1.7737E+00_JPRB/)
+KBO( :, 1,42, 9) = (/&
+&5.3360E-02_JPRB,5.5059E-02_JPRB,5.6966E-01_JPRB,8.6038E-01_JPRB,1.0655E+00_JPRB,1.1243E+00_JPRB/)
+KBO( :, 2,42, 9) = (/&
+&6.0993E-02_JPRB,6.2382E-02_JPRB,6.3280E-01_JPRB,9.6562E-01_JPRB,1.2001E+00_JPRB,1.2823E+00_JPRB/)
+KBO( :, 3,42, 9) = (/&
+&6.9507E-02_JPRB,7.0610E-02_JPRB,6.9445E-01_JPRB,1.0679E+00_JPRB,1.3311E+00_JPRB,1.4380E+00_JPRB/)
+KBO( :, 4,42, 9) = (/&
+&7.9032E-02_JPRB,7.9871E-02_JPRB,7.5376E-01_JPRB,1.1658E+00_JPRB,1.4555E+00_JPRB,1.5883E+00_JPRB/)
+KBO( :, 5,42, 9) = (/&
+&8.9684E-02_JPRB,9.0303E-02_JPRB,8.1031E-01_JPRB,1.2585E+00_JPRB,1.5717E+00_JPRB,1.7298E+00_JPRB/)
+KBO( :, 1,43, 9) = (/&
+&4.6136E-02_JPRB,4.8125E-02_JPRB,5.3704E-01_JPRB,8.1220E-01_JPRB,1.0058E+00_JPRB,1.0569E+00_JPRB/)
+KBO( :, 2,43, 9) = (/&
+&5.3161E-02_JPRB,5.4823E-02_JPRB,6.0168E-01_JPRB,9.1982E-01_JPRB,1.1431E+00_JPRB,1.2177E+00_JPRB/)
+KBO( :, 3,43, 9) = (/&
+&6.1123E-02_JPRB,6.2470E-02_JPRB,6.6532E-01_JPRB,1.0249E+00_JPRB,1.2775E+00_JPRB,1.3770E+00_JPRB/)
+KBO( :, 4,43, 9) = (/&
+&7.0049E-02_JPRB,7.1098E-02_JPRB,7.2673E-01_JPRB,1.1259E+00_JPRB,1.4060E+00_JPRB,1.5318E+00_JPRB/)
+KBO( :, 5,43, 9) = (/&
+&8.0119E-02_JPRB,8.0908E-02_JPRB,7.8534E-01_JPRB,1.2218E+00_JPRB,1.5266E+00_JPRB,1.6786E+00_JPRB/)
+KBO( :, 1,44, 9) = (/&
+&3.9685E-02_JPRB,4.1972E-02_JPRB,5.0412E-01_JPRB,7.6296E-01_JPRB,9.4428E-01_JPRB,9.8787E-01_JPRB/)
+KBO( :, 2,44, 9) = (/&
+&4.6152E-02_JPRB,4.8103E-02_JPRB,5.7004E-01_JPRB,8.7240E-01_JPRB,1.0838E+00_JPRB,1.1508E+00_JPRB/)
+KBO( :, 3,44, 9) = (/&
+&5.3529E-02_JPRB,5.5143E-02_JPRB,6.3536E-01_JPRB,9.8002E-01_JPRB,1.2213E+00_JPRB,1.3132E+00_JPRB/)
+KBO( :, 4,44, 9) = (/&
+&6.1901E-02_JPRB,6.3183E-02_JPRB,6.9879E-01_JPRB,1.0840E+00_JPRB,1.3536E+00_JPRB,1.4723E+00_JPRB/)
+KBO( :, 5,44, 9) = (/&
+&7.1354E-02_JPRB,7.2347E-02_JPRB,7.5939E-01_JPRB,1.1829E+00_JPRB,1.4784E+00_JPRB,1.6242E+00_JPRB/)
+KBO( :, 1,45, 9) = (/&
+&3.4076E-02_JPRB,3.6651E-02_JPRB,4.7238E-01_JPRB,7.1511E-01_JPRB,8.8440E-01_JPRB,9.2130E-01_JPRB/)
+KBO( :, 2,45, 9) = (/&
+&4.0025E-02_JPRB,4.2260E-02_JPRB,5.3939E-01_JPRB,8.2584E-01_JPRB,1.0257E+00_JPRB,1.0858E+00_JPRB/)
+KBO( :, 3,45, 9) = (/&
+&4.6843E-02_JPRB,4.8732E-02_JPRB,6.0607E-01_JPRB,9.3570E-01_JPRB,1.1656E+00_JPRB,1.2509E+00_JPRB/)
+KBO( :, 4,45, 9) = (/&
+&5.4663E-02_JPRB,5.6198E-02_JPRB,6.7125E-01_JPRB,1.0423E+00_JPRB,1.3013E+00_JPRB,1.4137E+00_JPRB/)
+KBO( :, 5,45, 9) = (/&
+&6.3560E-02_JPRB,6.4776E-02_JPRB,7.3381E-01_JPRB,1.1441E+00_JPRB,1.4299E+00_JPRB,1.5705E+00_JPRB/)
+KBO( :, 1,46, 9) = (/&
+&2.9074E-02_JPRB,3.1936E-02_JPRB,4.4021E-01_JPRB,6.6617E-01_JPRB,8.2306E-01_JPRB,8.5311E-01_JPRB/)
+KBO( :, 2,46, 9) = (/&
+&3.4514E-02_JPRB,3.7034E-02_JPRB,5.0803E-01_JPRB,7.7771E-01_JPRB,9.6537E-01_JPRB,1.0184E+00_JPRB/)
+KBO( :, 3,46, 9) = (/&
+&4.0817E-02_JPRB,4.2987E-02_JPRB,5.7579E-01_JPRB,8.8933E-01_JPRB,1.1073E+00_JPRB,1.1856E+00_JPRB/)
+KBO( :, 4,46, 9) = (/&
+&4.8065E-02_JPRB,4.9872E-02_JPRB,6.4255E-01_JPRB,9.9829E-01_JPRB,1.2460E+00_JPRB,1.3517E+00_JPRB/)
+KBO( :, 5,46, 9) = (/&
+&5.6423E-02_JPRB,5.7882E-02_JPRB,7.0700E-01_JPRB,1.1029E+00_JPRB,1.3784E+00_JPRB,1.5131E+00_JPRB/)
+KBO( :, 1,47, 9) = (/&
+&2.4535E-02_JPRB,2.7684E-02_JPRB,4.0628E-01_JPRB,6.1382E-01_JPRB,7.5741E-01_JPRB,7.7949E-01_JPRB/)
+KBO( :, 2,47, 9) = (/&
+&2.9449E-02_JPRB,3.2260E-02_JPRB,4.7443E-01_JPRB,7.2561E-01_JPRB,8.9979E-01_JPRB,9.4468E-01_JPRB/)
+KBO( :, 3,47, 9) = (/&
+&3.5234E-02_JPRB,3.7694E-02_JPRB,5.4316E-01_JPRB,8.3846E-01_JPRB,1.0433E+00_JPRB,1.1130E+00_JPRB/)
+KBO( :, 4,47, 9) = (/&
+&4.1912E-02_JPRB,4.4006E-02_JPRB,6.1119E-01_JPRB,9.4961E-01_JPRB,1.1846E+00_JPRB,1.2819E+00_JPRB/)
+KBO( :, 5,47, 9) = (/&
+&4.9674E-02_JPRB,5.1405E-02_JPRB,6.7740E-01_JPRB,1.0570E+00_JPRB,1.3207E+00_JPRB,1.4474E+00_JPRB/)
+KBO( :, 1,48, 9) = (/&
+&2.0618E-02_JPRB,2.4026E-02_JPRB,3.7343E-01_JPRB,5.6290E-01_JPRB,6.9352E-01_JPRB,7.0849E-01_JPRB/)
+KBO( :, 2,48, 9) = (/&
+&2.5013E-02_JPRB,2.8103E-02_JPRB,4.4151E-01_JPRB,6.7436E-01_JPRB,8.3513E-01_JPRB,8.7266E-01_JPRB/)
+KBO( :, 3,48, 9) = (/&
+&3.0305E-02_JPRB,3.3049E-02_JPRB,5.1090E-01_JPRB,7.8783E-01_JPRB,9.7958E-01_JPRB,1.0415E+00_JPRB/)
+KBO( :, 4,48, 9) = (/&
+&3.6461E-02_JPRB,3.8842E-02_JPRB,5.7999E-01_JPRB,9.0076E-01_JPRB,1.1229E+00_JPRB,1.2126E+00_JPRB/)
+KBO( :, 5,48, 9) = (/&
+&4.3637E-02_JPRB,4.5645E-02_JPRB,6.4766E-01_JPRB,1.0105E+00_JPRB,1.2621E+00_JPRB,1.3817E+00_JPRB/)
+KBO( :, 1,49, 9) = (/&
+&1.7262E-02_JPRB,2.0889E-02_JPRB,3.4154E-01_JPRB,5.1353E-01_JPRB,6.3147E-01_JPRB,6.4035E-01_JPRB/)
+KBO( :, 2,49, 9) = (/&
+&2.1137E-02_JPRB,2.4489E-02_JPRB,4.0924E-01_JPRB,6.2397E-01_JPRB,7.7164E-01_JPRB,8.0268E-01_JPRB/)
+KBO( :, 3,49, 9) = (/&
+&2.5945E-02_JPRB,2.8963E-02_JPRB,4.7895E-01_JPRB,7.3764E-01_JPRB,9.1622E-01_JPRB,9.7159E-01_JPRB/)
+KBO( :, 4,49, 9) = (/&
+&3.1605E-02_JPRB,3.4269E-02_JPRB,5.4885E-01_JPRB,8.5174E-01_JPRB,1.0610E+00_JPRB,1.1442E+00_JPRB/)
+KBO( :, 5,49, 9) = (/&
+&3.8248E-02_JPRB,4.0534E-02_JPRB,6.1776E-01_JPRB,9.6350E-01_JPRB,1.2028E+00_JPRB,1.3168E+00_JPRB/)
+KBO( :, 1,50, 9) = (/&
+&1.4461E-02_JPRB,1.8256E-02_JPRB,3.1238E-01_JPRB,4.6845E-01_JPRB,5.7488E-01_JPRB,5.7744E-01_JPRB/)
+KBO( :, 2,50, 9) = (/&
+&1.7870E-02_JPRB,2.1439E-02_JPRB,3.7949E-01_JPRB,5.7732E-01_JPRB,7.1302E-01_JPRB,7.3703E-01_JPRB/)
+KBO( :, 3,50, 9) = (/&
+&2.2222E-02_JPRB,2.5490E-02_JPRB,4.4914E-01_JPRB,6.9079E-01_JPRB,8.5702E-01_JPRB,9.0516E-01_JPRB/)
+KBO( :, 4,50, 9) = (/&
+&2.7435E-02_JPRB,3.0361E-02_JPRB,5.1966E-01_JPRB,8.0553E-01_JPRB,1.0027E+00_JPRB,1.0781E+00_JPRB/)
+KBO( :, 5,50, 9) = (/&
+&3.3599E-02_JPRB,3.6150E-02_JPRB,5.8955E-01_JPRB,9.1897E-01_JPRB,1.1465E+00_JPRB,1.2529E+00_JPRB/)
+KBO( :, 1,51, 9) = (/&
+&1.2097E-02_JPRB,1.6003E-02_JPRB,2.8492E-01_JPRB,4.2603E-01_JPRB,5.2182E-01_JPRB,5.1816E-01_JPRB/)
+KBO( :, 2,51, 9) = (/&
+&1.5083E-02_JPRB,1.8829E-02_JPRB,3.5127E-01_JPRB,5.3304E-01_JPRB,6.5735E-01_JPRB,6.7429E-01_JPRB/)
+KBO( :, 3,51, 9) = (/&
+&1.8997E-02_JPRB,2.2488E-02_JPRB,4.2058E-01_JPRB,6.4583E-01_JPRB,8.0019E-01_JPRB,8.4077E-01_JPRB/)
+KBO( :, 4,51, 9) = (/&
+&2.3775E-02_JPRB,2.6948E-02_JPRB,4.9143E-01_JPRB,7.6084E-01_JPRB,9.4628E-01_JPRB,1.0134E+00_JPRB/)
+KBO( :, 5,51, 9) = (/&
+&2.9499E-02_JPRB,3.2304E-02_JPRB,5.6205E-01_JPRB,8.7547E-01_JPRB,1.0915E+00_JPRB,1.1895E+00_JPRB/)
+KBO( :, 1,52, 9) = (/&
+&1.0095E-02_JPRB,1.4050E-02_JPRB,2.5854E-01_JPRB,3.8529E-01_JPRB,4.7109E-01_JPRB,4.6197E-01_JPRB/)
+KBO( :, 2,52, 9) = (/&
+&1.2680E-02_JPRB,1.6562E-02_JPRB,3.2378E-01_JPRB,4.9000E-01_JPRB,6.0315E-01_JPRB,6.1385E-01_JPRB/)
+KBO( :, 3,52, 9) = (/&
+&1.6167E-02_JPRB,1.9851E-02_JPRB,3.9257E-01_JPRB,6.0150E-01_JPRB,7.4434E-01_JPRB,7.7805E-01_JPRB/)
+KBO( :, 4,52, 9) = (/&
+&2.0524E-02_JPRB,2.3923E-02_JPRB,4.6343E-01_JPRB,7.1644E-01_JPRB,8.9011E-01_JPRB,9.4994E-01_JPRB/)
+KBO( :, 5,52, 9) = (/&
+&2.5821E-02_JPRB,2.8872E-02_JPRB,5.3465E-01_JPRB,8.3183E-01_JPRB,1.0363E+00_JPRB,1.1268E+00_JPRB/)
+KBO( :, 1,53, 9) = (/&
+&8.3963E-03_JPRB,1.2343E-02_JPRB,2.3325E-01_JPRB,3.4626E-01_JPRB,4.2244E-01_JPRB,4.0883E-01_JPRB/)
+KBO( :, 2,53, 9) = (/&
+&1.0621E-02_JPRB,1.4581E-02_JPRB,2.9700E-01_JPRB,4.4811E-01_JPRB,5.5051E-01_JPRB,5.5572E-01_JPRB/)
+KBO( :, 3,53, 9) = (/&
+&1.3693E-02_JPRB,1.7537E-02_JPRB,3.6501E-01_JPRB,5.5778E-01_JPRB,6.8933E-01_JPRB,7.1705E-01_JPRB/)
+KBO( :, 4,53, 9) = (/&
+&1.7633E-02_JPRB,2.1242E-02_JPRB,4.3562E-01_JPRB,6.7222E-01_JPRB,8.3412E-01_JPRB,8.8780E-01_JPRB/)
+KBO( :, 5,53, 9) = (/&
+&2.2506E-02_JPRB,2.5791E-02_JPRB,5.0721E-01_JPRB,7.8803E-01_JPRB,9.8102E-01_JPRB,1.0650E+00_JPRB/)
+KBO( :, 1,54, 9) = (/&
+&7.0177E-03_JPRB,1.0894E-02_JPRB,2.1095E-01_JPRB,3.1199E-01_JPRB,3.7969E-01_JPRB,3.6085E-01_JPRB/)
+KBO( :, 2,54, 9) = (/&
+&8.9302E-03_JPRB,1.2918E-02_JPRB,2.7298E-01_JPRB,4.1066E-01_JPRB,5.0363E-01_JPRB,5.0181E-01_JPRB/)
+KBO( :, 3,54, 9) = (/&
+&1.1634E-02_JPRB,1.5589E-02_JPRB,3.4013E-01_JPRB,5.1838E-01_JPRB,6.3970E-01_JPRB,6.5930E-01_JPRB/)
+KBO( :, 4,54, 9) = (/&
+&1.5199E-02_JPRB,1.8979E-02_JPRB,4.1032E-01_JPRB,6.3200E-01_JPRB,7.8327E-01_JPRB,8.2770E-01_JPRB/)
+KBO( :, 5,54, 9) = (/&
+&1.9687E-02_JPRB,2.3177E-02_JPRB,4.8201E-01_JPRB,7.4784E-01_JPRB,9.3015E-01_JPRB,1.0034E+00_JPRB/)
+KBO( :, 1,55, 9) = (/&
+&5.8731E-03_JPRB,9.6286E-03_JPRB,1.9052E-01_JPRB,2.8063E-01_JPRB,3.4069E-01_JPRB,3.1655E-01_JPRB/)
+KBO( :, 2,55, 9) = (/&
+&7.5168E-03_JPRB,1.1480E-02_JPRB,2.5064E-01_JPRB,3.7586E-01_JPRB,4.6019E-01_JPRB,4.5069E-01_JPRB/)
+KBO( :, 3,55, 9) = (/&
+&9.8853E-03_JPRB,1.3900E-02_JPRB,3.1669E-01_JPRB,4.8140E-01_JPRB,5.9307E-01_JPRB,6.0350E-01_JPRB/)
+KBO( :, 4,55, 9) = (/&
+&1.3096E-02_JPRB,1.7018E-02_JPRB,3.8628E-01_JPRB,5.9371E-01_JPRB,7.3500E-01_JPRB,7.6887E-01_JPRB/)
+KBO( :, 5,55, 9) = (/&
+&1.7222E-02_JPRB,2.0899E-02_JPRB,4.5791E-01_JPRB,7.0935E-01_JPRB,8.8144E-01_JPRB,9.4215E-01_JPRB/)
+KBO( :, 1,56, 9) = (/&
+&4.9060E-03_JPRB,8.5039E-03_JPRB,1.7111E-01_JPRB,2.5106E-01_JPRB,3.0385E-01_JPRB,2.7511E-01_JPRB/)
+KBO( :, 2,56, 9) = (/&
+&6.3120E-03_JPRB,1.0201E-02_JPRB,2.2915E-01_JPRB,3.4243E-01_JPRB,4.1847E-01_JPRB,4.0215E-01_JPRB/)
+KBO( :, 3,56, 9) = (/&
+&8.3672E-03_JPRB,1.2401E-02_JPRB,2.9378E-01_JPRB,4.4537E-01_JPRB,5.4774E-01_JPRB,5.4959E-01_JPRB/)
+KBO( :, 4,56, 9) = (/&
+&1.1240E-02_JPRB,1.5268E-02_JPRB,3.6263E-01_JPRB,5.5595E-01_JPRB,6.8746E-01_JPRB,7.1138E-01_JPRB/)
+KBO( :, 5,56, 9) = (/&
+&1.5010E-02_JPRB,1.8851E-02_JPRB,4.3398E-01_JPRB,6.7113E-01_JPRB,8.3300E-01_JPRB,8.8217E-01_JPRB/)
+KBO( :, 1,57, 9) = (/&
+&4.0878E-03_JPRB,7.4982E-03_JPRB,1.5269E-01_JPRB,2.2324E-01_JPRB,2.6911E-01_JPRB,2.3696E-01_JPRB/)
+KBO( :, 2,57, 9) = (/&
+&5.2898E-03_JPRB,9.0610E-03_JPRB,2.0850E-01_JPRB,3.1039E-01_JPRB,3.7842E-01_JPRB,3.5615E-01_JPRB/)
+KBO( :, 3,57, 9) = (/&
+&7.0606E-03_JPRB,1.1069E-02_JPRB,2.7146E-01_JPRB,4.1021E-01_JPRB,5.0366E-01_JPRB,4.9745E-01_JPRB/)
+KBO( :, 4,57, 9) = (/&
+&9.6071E-03_JPRB,1.3700E-02_JPRB,3.3939E-01_JPRB,5.1887E-01_JPRB,6.4072E-01_JPRB,6.5511E-01_JPRB/)
+KBO( :, 5,57, 9) = (/&
+&1.3031E-02_JPRB,1.7013E-02_JPRB,4.1025E-01_JPRB,6.3316E-01_JPRB,7.8498E-01_JPRB,8.2331E-01_JPRB/)
+KBO( :, 1,58, 9) = (/&
+&3.4110E-03_JPRB,6.6187E-03_JPRB,1.3608E-01_JPRB,1.9844E-01_JPRB,2.3812E-01_JPRB,2.0347E-01_JPRB/)
+KBO( :, 2,58, 9) = (/&
+&4.4437E-03_JPRB,8.0723E-03_JPRB,1.8969E-01_JPRB,2.8123E-01_JPRB,3.4208E-01_JPRB,3.1439E-01_JPRB/)
+KBO( :, 3,58, 9) = (/&
+&5.9725E-03_JPRB,9.9123E-03_JPRB,2.5079E-01_JPRB,3.7777E-01_JPRB,4.6311E-01_JPRB,4.4931E-01_JPRB/)
+KBO( :, 4,58, 9) = (/&
+&8.2191E-03_JPRB,1.2333E-02_JPRB,3.1765E-01_JPRB,4.8433E-01_JPRB,5.9715E-01_JPRB,6.0236E-01_JPRB/)
+KBO( :, 5,58, 9) = (/&
+&1.1325E-02_JPRB,1.5419E-02_JPRB,3.8789E-01_JPRB,5.9740E-01_JPRB,7.3982E-01_JPRB,7.6757E-01_JPRB/)
+KBO( :, 1,59, 9) = (/&
+&2.9777E-03_JPRB,6.0559E-03_JPRB,1.2911E-01_JPRB,1.8831E-01_JPRB,2.2557E-01_JPRB,1.8804E-01_JPRB/)
+KBO( :, 2,59, 9) = (/&
+&3.9243E-03_JPRB,7.4586E-03_JPRB,1.8188E-01_JPRB,2.6942E-01_JPRB,3.2742E-01_JPRB,2.9431E-01_JPRB/)
+KBO( :, 3,59, 9) = (/&
+&5.3410E-03_JPRB,9.2341E-03_JPRB,2.4229E-01_JPRB,3.6461E-01_JPRB,4.4670E-01_JPRB,4.2516E-01_JPRB/)
+KBO( :, 4,59, 9) = (/&
+&7.4484E-03_JPRB,1.1574E-02_JPRB,3.0869E-01_JPRB,4.7031E-01_JPRB,5.7948E-01_JPRB,5.7493E-01_JPRB/)
+KBO( :, 5,59, 9) = (/&
+&1.0416E-02_JPRB,1.4573E-02_JPRB,3.7872E-01_JPRB,5.8281E-01_JPRB,7.2146E-01_JPRB,7.3756E-01_JPRB/)
+KBO( :, 1,13,10) = (/&
+&7.5289E+00_JPRB,7.5248E+00_JPRB,5.8020E+00_JPRB,4.2235E+00_JPRB,3.4788E+00_JPRB,3.3830E+00_JPRB/)
+KBO( :, 2,13,10) = (/&
+&7.5373E+00_JPRB,7.5331E+00_JPRB,5.7965E+00_JPRB,4.1949E+00_JPRB,3.4100E+00_JPRB,3.3091E+00_JPRB/)
+KBO( :, 3,13,10) = (/&
+&7.5342E+00_JPRB,7.5300E+00_JPRB,5.7907E+00_JPRB,4.1656E+00_JPRB,3.3402E+00_JPRB,3.2690E+00_JPRB/)
+KBO( :, 4,13,10) = (/&
+&7.4927E+00_JPRB,7.4886E+00_JPRB,5.7565E+00_JPRB,4.1206E+00_JPRB,3.2641E+00_JPRB,3.2567E+00_JPRB/)
+KBO( :, 5,13,10) = (/&
+&7.4212E+00_JPRB,7.4171E+00_JPRB,5.6978E+00_JPRB,4.0611E+00_JPRB,3.1856E+00_JPRB,3.2490E+00_JPRB/)
+KBO( :, 1,14,10) = (/&
+&7.4571E+00_JPRB,7.4529E+00_JPRB,5.7300E+00_JPRB,4.2516E+00_JPRB,3.6973E+00_JPRB,3.6249E+00_JPRB/)
+KBO( :, 2,14,10) = (/&
+&7.4407E+00_JPRB,7.4365E+00_JPRB,5.7211E+00_JPRB,4.2113E+00_JPRB,3.6244E+00_JPRB,3.5667E+00_JPRB/)
+KBO( :, 3,14,10) = (/&
+&7.3963E+00_JPRB,7.3922E+00_JPRB,5.6812E+00_JPRB,4.1556E+00_JPRB,3.5526E+00_JPRB,3.5115E+00_JPRB/)
+KBO( :, 4,14,10) = (/&
+&7.3296E+00_JPRB,7.3255E+00_JPRB,5.6249E+00_JPRB,4.0935E+00_JPRB,3.4766E+00_JPRB,3.4707E+00_JPRB/)
+KBO( :, 5,14,10) = (/&
+&7.2465E+00_JPRB,7.2425E+00_JPRB,5.5619E+00_JPRB,4.0245E+00_JPRB,3.4020E+00_JPRB,3.4493E+00_JPRB/)
+KBO( :, 1,15,10) = (/&
+&7.1911E+00_JPRB,7.1871E+00_JPRB,5.5280E+00_JPRB,4.2968E+00_JPRB,3.9627E+00_JPRB,3.9090E+00_JPRB/)
+KBO( :, 2,15,10) = (/&
+&7.1513E+00_JPRB,7.1474E+00_JPRB,5.4956E+00_JPRB,4.2289E+00_JPRB,3.8871E+00_JPRB,3.8400E+00_JPRB/)
+KBO( :, 3,15,10) = (/&
+&7.0923E+00_JPRB,7.0884E+00_JPRB,5.4464E+00_JPRB,4.1468E+00_JPRB,3.8062E+00_JPRB,3.7828E+00_JPRB/)
+KBO( :, 4,15,10) = (/&
+&6.9934E+00_JPRB,6.9895E+00_JPRB,5.3713E+00_JPRB,4.0638E+00_JPRB,3.7328E+00_JPRB,3.7290E+00_JPRB/)
+KBO( :, 5,15,10) = (/&
+&6.8864E+00_JPRB,6.8825E+00_JPRB,5.2899E+00_JPRB,3.9761E+00_JPRB,3.6483E+00_JPRB,3.6704E+00_JPRB/)
+KBO( :, 1,16,10) = (/&
+&6.7911E+00_JPRB,6.7873E+00_JPRB,5.2205E+00_JPRB,4.3199E+00_JPRB,4.2502E+00_JPRB,4.2466E+00_JPRB/)
+KBO( :, 2,16,10) = (/&
+&6.7263E+00_JPRB,6.7226E+00_JPRB,5.1711E+00_JPRB,4.2329E+00_JPRB,4.1599E+00_JPRB,4.1741E+00_JPRB/)
+KBO( :, 3,16,10) = (/&
+&6.6333E+00_JPRB,6.6296E+00_JPRB,5.0988E+00_JPRB,4.1448E+00_JPRB,4.0703E+00_JPRB,4.1094E+00_JPRB/)
+KBO( :, 4,16,10) = (/&
+&6.5280E+00_JPRB,6.5244E+00_JPRB,5.0198E+00_JPRB,4.0496E+00_JPRB,3.9801E+00_JPRB,4.0403E+00_JPRB/)
+KBO( :, 5,16,10) = (/&
+&6.4167E+00_JPRB,6.4131E+00_JPRB,4.9361E+00_JPRB,3.9499E+00_JPRB,3.8927E+00_JPRB,3.9614E+00_JPRB/)
+KBO( :, 1,17,10) = (/&
+&6.2531E+00_JPRB,6.2497E+00_JPRB,4.8286E+00_JPRB,4.3686E+00_JPRB,4.5172E+00_JPRB,4.6364E+00_JPRB/)
+KBO( :, 2,17,10) = (/&
+&6.1677E+00_JPRB,6.1643E+00_JPRB,4.7626E+00_JPRB,4.2792E+00_JPRB,4.4298E+00_JPRB,4.5601E+00_JPRB/)
+KBO( :, 3,17,10) = (/&
+&6.0747E+00_JPRB,6.0713E+00_JPRB,4.6908E+00_JPRB,4.1860E+00_JPRB,4.3428E+00_JPRB,4.4812E+00_JPRB/)
+KBO( :, 4,17,10) = (/&
+&5.9604E+00_JPRB,5.9571E+00_JPRB,4.6053E+00_JPRB,4.0899E+00_JPRB,4.2570E+00_JPRB,4.3935E+00_JPRB/)
+KBO( :, 5,17,10) = (/&
+&5.8291E+00_JPRB,5.8259E+00_JPRB,4.5089E+00_JPRB,3.9935E+00_JPRB,4.1733E+00_JPRB,4.3011E+00_JPRB/)
+KBO( :, 1,18,10) = (/&
+&5.6266E+00_JPRB,5.6236E+00_JPRB,4.4207E+00_JPRB,4.4989E+00_JPRB,4.8053E+00_JPRB,5.0247E+00_JPRB/)
+KBO( :, 2,18,10) = (/&
+&5.5427E+00_JPRB,5.5397E+00_JPRB,4.3512E+00_JPRB,4.4021E+00_JPRB,4.7226E+00_JPRB,4.9470E+00_JPRB/)
+KBO( :, 3,18,10) = (/&
+&5.4374E+00_JPRB,5.4345E+00_JPRB,4.2669E+00_JPRB,4.3054E+00_JPRB,4.6429E+00_JPRB,4.8548E+00_JPRB/)
+KBO( :, 4,18,10) = (/&
+&5.3118E+00_JPRB,5.3090E+00_JPRB,4.1727E+00_JPRB,4.2046E+00_JPRB,4.5567E+00_JPRB,4.7652E+00_JPRB/)
+KBO( :, 5,18,10) = (/&
+&5.1788E+00_JPRB,5.1760E+00_JPRB,4.0826E+00_JPRB,4.1045E+00_JPRB,4.4583E+00_JPRB,4.6766E+00_JPRB/)
+KBO( :, 1,19,10) = (/&
+&4.9892E+00_JPRB,4.9865E+00_JPRB,4.1022E+00_JPRB,4.6290E+00_JPRB,5.1554E+00_JPRB,5.3946E+00_JPRB/)
+KBO( :, 2,19,10) = (/&
+&4.8951E+00_JPRB,4.8924E+00_JPRB,4.0165E+00_JPRB,4.5273E+00_JPRB,5.0702E+00_JPRB,5.3073E+00_JPRB/)
+KBO( :, 3,19,10) = (/&
+&4.7798E+00_JPRB,4.7773E+00_JPRB,3.9238E+00_JPRB,4.4269E+00_JPRB,4.9753E+00_JPRB,5.2208E+00_JPRB/)
+KBO( :, 4,19,10) = (/&
+&4.6598E+00_JPRB,4.6573E+00_JPRB,3.8352E+00_JPRB,4.3303E+00_JPRB,4.8704E+00_JPRB,5.1400E+00_JPRB/)
+KBO( :, 5,19,10) = (/&
+&4.5508E+00_JPRB,4.5484E+00_JPRB,3.7462E+00_JPRB,4.2290E+00_JPRB,4.7590E+00_JPRB,5.0603E+00_JPRB/)
+KBO( :, 1,20,10) = (/&
+&4.3446E+00_JPRB,4.3423E+00_JPRB,3.8795E+00_JPRB,4.7522E+00_JPRB,5.5065E+00_JPRB,5.7535E+00_JPRB/)
+KBO( :, 2,20,10) = (/&
+&4.2431E+00_JPRB,4.2409E+00_JPRB,3.7927E+00_JPRB,4.6561E+00_JPRB,5.4004E+00_JPRB,5.6800E+00_JPRB/)
+KBO( :, 3,20,10) = (/&
+&4.1397E+00_JPRB,4.1376E+00_JPRB,3.7047E+00_JPRB,4.5585E+00_JPRB,5.2878E+00_JPRB,5.6033E+00_JPRB/)
+KBO( :, 4,20,10) = (/&
+&4.0481E+00_JPRB,4.0460E+00_JPRB,3.6150E+00_JPRB,4.4575E+00_JPRB,5.1721E+00_JPRB,5.5261E+00_JPRB/)
+KBO( :, 5,20,10) = (/&
+&3.9765E+00_JPRB,3.9744E+00_JPRB,3.5343E+00_JPRB,4.3595E+00_JPRB,5.0554E+00_JPRB,5.4406E+00_JPRB/)
+KBO( :, 1,21,10) = (/&
+&3.7211E+00_JPRB,3.7192E+00_JPRB,3.7613E+00_JPRB,4.9074E+00_JPRB,5.7827E+00_JPRB,6.1154E+00_JPRB/)
+KBO( :, 2,21,10) = (/&
+&3.6330E+00_JPRB,3.6312E+00_JPRB,3.6717E+00_JPRB,4.8116E+00_JPRB,5.6714E+00_JPRB,6.0506E+00_JPRB/)
+KBO( :, 3,21,10) = (/&
+&3.5589E+00_JPRB,3.5571E+00_JPRB,3.5807E+00_JPRB,4.7108E+00_JPRB,5.5635E+00_JPRB,5.9724E+00_JPRB/)
+KBO( :, 4,21,10) = (/&
+&3.5073E+00_JPRB,3.5055E+00_JPRB,3.5016E+00_JPRB,4.6097E+00_JPRB,5.4603E+00_JPRB,5.8886E+00_JPRB/)
+KBO( :, 5,21,10) = (/&
+&3.4691E+00_JPRB,3.4674E+00_JPRB,3.4364E+00_JPRB,4.5052E+00_JPRB,5.3541E+00_JPRB,5.8090E+00_JPRB/)
+KBO( :, 1,22,10) = (/&
+&3.1543E+00_JPRB,3.1527E+00_JPRB,3.6782E+00_JPRB,5.0447E+00_JPRB,6.0160E+00_JPRB,6.4253E+00_JPRB/)
+KBO( :, 2,22,10) = (/&
+&3.0969E+00_JPRB,3.0954E+00_JPRB,3.5898E+00_JPRB,4.9499E+00_JPRB,5.9206E+00_JPRB,6.3659E+00_JPRB/)
+KBO( :, 3,22,10) = (/&
+&3.0620E+00_JPRB,3.0605E+00_JPRB,3.5058E+00_JPRB,4.8486E+00_JPRB,5.8265E+00_JPRB,6.2989E+00_JPRB/)
+KBO( :, 4,22,10) = (/&
+&3.0425E+00_JPRB,3.0410E+00_JPRB,3.4395E+00_JPRB,4.7446E+00_JPRB,5.7289E+00_JPRB,6.2283E+00_JPRB/)
+KBO( :, 5,22,10) = (/&
+&3.0546E+00_JPRB,3.0532E+00_JPRB,3.3854E+00_JPRB,4.6358E+00_JPRB,5.6252E+00_JPRB,6.1603E+00_JPRB/)
+KBO( :, 1,23,10) = (/&
+&2.6854E+00_JPRB,2.6841E+00_JPRB,3.6308E+00_JPRB,5.1459E+00_JPRB,6.2399E+00_JPRB,6.6740E+00_JPRB/)
+KBO( :, 2,23,10) = (/&
+&2.6617E+00_JPRB,2.6604E+00_JPRB,3.5468E+00_JPRB,5.0540E+00_JPRB,6.1652E+00_JPRB,6.6315E+00_JPRB/)
+KBO( :, 3,23,10) = (/&
+&2.6584E+00_JPRB,2.6571E+00_JPRB,3.4703E+00_JPRB,4.9599E+00_JPRB,6.0780E+00_JPRB,6.5824E+00_JPRB/)
+KBO( :, 4,23,10) = (/&
+&2.6872E+00_JPRB,2.6859E+00_JPRB,3.4111E+00_JPRB,4.8587E+00_JPRB,5.9856E+00_JPRB,6.5287E+00_JPRB/)
+KBO( :, 5,23,10) = (/&
+&2.7417E+00_JPRB,2.7405E+00_JPRB,3.3560E+00_JPRB,4.7548E+00_JPRB,5.8884E+00_JPRB,6.4686E+00_JPRB/)
+KBO( :, 1,24,10) = (/&
+&2.3151E+00_JPRB,2.3140E+00_JPRB,3.5886E+00_JPRB,5.2274E+00_JPRB,6.4311E+00_JPRB,6.8789E+00_JPRB/)
+KBO( :, 2,24,10) = (/&
+&2.3230E+00_JPRB,2.3219E+00_JPRB,3.5113E+00_JPRB,5.1442E+00_JPRB,6.3705E+00_JPRB,6.8549E+00_JPRB/)
+KBO( :, 3,24,10) = (/&
+&2.3609E+00_JPRB,2.3598E+00_JPRB,3.4524E+00_JPRB,5.0514E+00_JPRB,6.2984E+00_JPRB,6.8163E+00_JPRB/)
+KBO( :, 4,24,10) = (/&
+&2.4175E+00_JPRB,2.4164E+00_JPRB,3.3989E+00_JPRB,4.9521E+00_JPRB,6.2181E+00_JPRB,6.7710E+00_JPRB/)
+KBO( :, 5,24,10) = (/&
+&2.4762E+00_JPRB,2.4752E+00_JPRB,3.3577E+00_JPRB,4.8533E+00_JPRB,6.1278E+00_JPRB,6.7244E+00_JPRB/)
+KBO( :, 1,25,10) = (/&
+&2.0244E+00_JPRB,2.0235E+00_JPRB,3.5269E+00_JPRB,5.2724E+00_JPRB,6.5740E+00_JPRB,7.0315E+00_JPRB/)
+KBO( :, 2,25,10) = (/&
+&2.0651E+00_JPRB,2.0643E+00_JPRB,3.4750E+00_JPRB,5.1965E+00_JPRB,6.5327E+00_JPRB,7.0283E+00_JPRB/)
+KBO( :, 3,25,10) = (/&
+&2.1229E+00_JPRB,2.1220E+00_JPRB,3.4316E+00_JPRB,5.1098E+00_JPRB,6.4777E+00_JPRB,7.0013E+00_JPRB/)
+KBO( :, 4,25,10) = (/&
+&2.1858E+00_JPRB,2.1849E+00_JPRB,3.3932E+00_JPRB,5.0189E+00_JPRB,6.4050E+00_JPRB,6.9699E+00_JPRB/)
+KBO( :, 5,25,10) = (/&
+&2.2519E+00_JPRB,2.2510E+00_JPRB,3.3680E+00_JPRB,4.9354E+00_JPRB,6.3143E+00_JPRB,6.9411E+00_JPRB/)
+KBO( :, 1,26,10) = (/&
+&1.8038E+00_JPRB,1.8031E+00_JPRB,3.4751E+00_JPRB,5.2741E+00_JPRB,6.6754E+00_JPRB,7.1367E+00_JPRB/)
+KBO( :, 2,26,10) = (/&
+&1.8584E+00_JPRB,1.8577E+00_JPRB,3.4421E+00_JPRB,5.2128E+00_JPRB,6.6468E+00_JPRB,7.1525E+00_JPRB/)
+KBO( :, 3,26,10) = (/&
+&1.9217E+00_JPRB,1.9209E+00_JPRB,3.4089E+00_JPRB,5.1445E+00_JPRB,6.6040E+00_JPRB,7.1457E+00_JPRB/)
+KBO( :, 4,26,10) = (/&
+&1.9824E+00_JPRB,1.9816E+00_JPRB,3.3919E+00_JPRB,5.0736E+00_JPRB,6.5398E+00_JPRB,7.1301E+00_JPRB/)
+KBO( :, 5,26,10) = (/&
+&2.0431E+00_JPRB,2.0423E+00_JPRB,3.3693E+00_JPRB,5.0098E+00_JPRB,6.4614E+00_JPRB,7.1116E+00_JPRB/)
+KBO( :, 1,27,10) = (/&
+&1.6205E+00_JPRB,1.6200E+00_JPRB,3.4312E+00_JPRB,5.2512E+00_JPRB,6.7302E+00_JPRB,7.1916E+00_JPRB/)
+KBO( :, 2,27,10) = (/&
+&1.6821E+00_JPRB,1.6815E+00_JPRB,3.4096E+00_JPRB,5.2107E+00_JPRB,6.7204E+00_JPRB,7.2341E+00_JPRB/)
+KBO( :, 3,27,10) = (/&
+&1.7393E+00_JPRB,1.7387E+00_JPRB,3.3986E+00_JPRB,5.1611E+00_JPRB,6.6901E+00_JPRB,7.2461E+00_JPRB/)
+KBO( :, 4,27,10) = (/&
+&1.7952E+00_JPRB,1.7945E+00_JPRB,3.3849E+00_JPRB,5.1118E+00_JPRB,6.6400E+00_JPRB,7.2521E+00_JPRB/)
+KBO( :, 5,27,10) = (/&
+&1.8467E+00_JPRB,1.8460E+00_JPRB,3.3678E+00_JPRB,5.0688E+00_JPRB,6.5750E+00_JPRB,7.2529E+00_JPRB/)
+KBO( :, 1,28,10) = (/&
+&1.4581E+00_JPRB,1.4577E+00_JPRB,3.3793E+00_JPRB,5.2151E+00_JPRB,6.7528E+00_JPRB,7.2099E+00_JPRB/)
+KBO( :, 2,28,10) = (/&
+&1.5130E+00_JPRB,1.5126E+00_JPRB,3.3785E+00_JPRB,5.1947E+00_JPRB,6.7653E+00_JPRB,7.2740E+00_JPRB/)
+KBO( :, 3,28,10) = (/&
+&1.5669E+00_JPRB,1.5664E+00_JPRB,3.3810E+00_JPRB,5.1664E+00_JPRB,6.7512E+00_JPRB,7.3192E+00_JPRB/)
+KBO( :, 4,28,10) = (/&
+&1.6172E+00_JPRB,1.6166E+00_JPRB,3.3732E+00_JPRB,5.1425E+00_JPRB,6.7177E+00_JPRB,7.3590E+00_JPRB/)
+KBO( :, 5,28,10) = (/&
+&1.6631E+00_JPRB,1.6625E+00_JPRB,3.3694E+00_JPRB,5.1109E+00_JPRB,6.6624E+00_JPRB,7.3782E+00_JPRB/)
+KBO( :, 1,29,10) = (/&
+&1.3022E+00_JPRB,1.3019E+00_JPRB,3.3270E+00_JPRB,5.1728E+00_JPRB,6.7559E+00_JPRB,7.2096E+00_JPRB/)
+KBO( :, 2,29,10) = (/&
+&1.3533E+00_JPRB,1.3529E+00_JPRB,3.3473E+00_JPRB,5.1723E+00_JPRB,6.7905E+00_JPRB,7.3069E+00_JPRB/)
+KBO( :, 3,29,10) = (/&
+&1.4031E+00_JPRB,1.4027E+00_JPRB,3.3571E+00_JPRB,5.1703E+00_JPRB,6.7965E+00_JPRB,7.3925E+00_JPRB/)
+KBO( :, 4,29,10) = (/&
+&1.4491E+00_JPRB,1.4487E+00_JPRB,3.3643E+00_JPRB,5.1652E+00_JPRB,6.7741E+00_JPRB,7.4637E+00_JPRB/)
+KBO( :, 5,29,10) = (/&
+&1.4926E+00_JPRB,1.4921E+00_JPRB,3.3697E+00_JPRB,5.1473E+00_JPRB,6.7261E+00_JPRB,7.4940E+00_JPRB/)
+KBO( :, 1,30,10) = (/&
+&1.1600E+00_JPRB,1.1597E+00_JPRB,3.2811E+00_JPRB,5.1242E+00_JPRB,6.7455E+00_JPRB,7.2055E+00_JPRB/)
+KBO( :, 2,30,10) = (/&
+&1.2064E+00_JPRB,1.2061E+00_JPRB,3.3125E+00_JPRB,5.1497E+00_JPRB,6.8027E+00_JPRB,7.3456E+00_JPRB/)
+KBO( :, 3,30,10) = (/&
+&1.2511E+00_JPRB,1.2508E+00_JPRB,3.3366E+00_JPRB,5.1707E+00_JPRB,6.8233E+00_JPRB,7.4712E+00_JPRB/)
+KBO( :, 4,30,10) = (/&
+&1.2939E+00_JPRB,1.2935E+00_JPRB,3.3556E+00_JPRB,5.1801E+00_JPRB,6.8143E+00_JPRB,7.5611E+00_JPRB/)
+KBO( :, 5,30,10) = (/&
+&1.3350E+00_JPRB,1.3346E+00_JPRB,3.3660E+00_JPRB,5.1735E+00_JPRB,6.7754E+00_JPRB,7.6031E+00_JPRB/)
+KBO( :, 1,31,10) = (/&
+&1.0335E+00_JPRB,1.0333E+00_JPRB,3.2413E+00_JPRB,5.0768E+00_JPRB,6.7328E+00_JPRB,7.2247E+00_JPRB/)
+KBO( :, 2,31,10) = (/&
+&1.0751E+00_JPRB,1.0749E+00_JPRB,3.2817E+00_JPRB,5.1294E+00_JPRB,6.8096E+00_JPRB,7.4118E+00_JPRB/)
+KBO( :, 3,31,10) = (/&
+&1.1154E+00_JPRB,1.1152E+00_JPRB,3.3173E+00_JPRB,5.1678E+00_JPRB,6.8467E+00_JPRB,7.5648E+00_JPRB/)
+KBO( :, 4,31,10) = (/&
+&1.1549E+00_JPRB,1.1546E+00_JPRB,3.3453E+00_JPRB,5.1899E+00_JPRB,6.8485E+00_JPRB,7.6626E+00_JPRB/)
+KBO( :, 5,31,10) = (/&
+&1.1976E+00_JPRB,1.1973E+00_JPRB,3.3597E+00_JPRB,5.1968E+00_JPRB,6.8174E+00_JPRB,7.7173E+00_JPRB/)
+KBO( :, 1,32,10) = (/&
+&9.2196E-01_JPRB,9.2184E-01_JPRB,3.2061E+00_JPRB,5.0420E+00_JPRB,6.7251E+00_JPRB,7.2717E+00_JPRB/)
+KBO( :, 2,32,10) = (/&
+&9.5916E-01_JPRB,9.5901E-01_JPRB,3.2581E+00_JPRB,5.1143E+00_JPRB,6.8187E+00_JPRB,7.4921E+00_JPRB/)
+KBO( :, 3,32,10) = (/&
+&9.9613E-01_JPRB,9.9593E-01_JPRB,3.3030E+00_JPRB,5.1678E+00_JPRB,6.8677E+00_JPRB,7.6515E+00_JPRB/)
+KBO( :, 4,32,10) = (/&
+&1.0359E+00_JPRB,1.0357E+00_JPRB,3.3356E+00_JPRB,5.2002E+00_JPRB,6.8779E+00_JPRB,7.7596E+00_JPRB/)
+KBO( :, 5,32,10) = (/&
+&1.0855E+00_JPRB,1.0851E+00_JPRB,3.3519E+00_JPRB,5.2172E+00_JPRB,6.8517E+00_JPRB,7.8246E+00_JPRB/)
+KBO( :, 1,33,10) = (/&
+&8.2444E-01_JPRB,8.2438E-01_JPRB,3.1786E+00_JPRB,5.0173E+00_JPRB,6.7243E+00_JPRB,7.3448E+00_JPRB/)
+KBO( :, 2,33,10) = (/&
+&8.5838E-01_JPRB,8.5826E-01_JPRB,3.2411E+00_JPRB,5.1061E+00_JPRB,6.8299E+00_JPRB,7.5783E+00_JPRB/)
+KBO( :, 3,33,10) = (/&
+&8.9425E-01_JPRB,8.9407E-01_JPRB,3.2909E+00_JPRB,5.1715E+00_JPRB,6.8889E+00_JPRB,7.7451E+00_JPRB/)
+KBO( :, 4,33,10) = (/&
+&9.3902E-01_JPRB,9.3875E-01_JPRB,3.3252E+00_JPRB,5.2146E+00_JPRB,6.9056E+00_JPRB,7.8681E+00_JPRB/)
+KBO( :, 5,33,10) = (/&
+&9.9963E-01_JPRB,9.9926E-01_JPRB,3.3429E+00_JPRB,5.2364E+00_JPRB,6.8820E+00_JPRB,7.9383E+00_JPRB/)
+KBO( :, 1,34,10) = (/&
+&7.3808E-01_JPRB,7.3807E-01_JPRB,3.1554E+00_JPRB,5.0005E+00_JPRB,6.7270E+00_JPRB,7.4193E+00_JPRB/)
+KBO( :, 2,34,10) = (/&
+&7.7041E-01_JPRB,7.7031E-01_JPRB,3.2245E+00_JPRB,5.1037E+00_JPRB,6.8428E+00_JPRB,7.6564E+00_JPRB/)
+KBO( :, 3,34,10) = (/&
+&8.0927E-01_JPRB,8.0908E-01_JPRB,3.2785E+00_JPRB,5.1786E+00_JPRB,6.9090E+00_JPRB,7.8421E+00_JPRB/)
+KBO( :, 4,34,10) = (/&
+&8.6226E-01_JPRB,8.6198E-01_JPRB,3.3161E+00_JPRB,5.2290E+00_JPRB,6.9264E+00_JPRB,7.9654E+00_JPRB/)
+KBO( :, 5,34,10) = (/&
+&9.3161E-01_JPRB,9.3129E-01_JPRB,3.3332E+00_JPRB,5.2535E+00_JPRB,6.9068E+00_JPRB,8.0359E+00_JPRB/)
+KBO( :, 1,35,10) = (/&
+&6.6091E-01_JPRB,6.6090E-01_JPRB,3.1297E+00_JPRB,4.9826E+00_JPRB,6.7231E+00_JPRB,7.4730E+00_JPRB/)
+KBO( :, 2,35,10) = (/&
+&6.9343E-01_JPRB,6.9337E-01_JPRB,3.2054E+00_JPRB,5.0985E+00_JPRB,6.8504E+00_JPRB,7.7289E+00_JPRB/)
+KBO( :, 3,35,10) = (/&
+&7.3707E-01_JPRB,7.3689E-01_JPRB,3.2647E+00_JPRB,5.1833E+00_JPRB,6.9233E+00_JPRB,7.9244E+00_JPRB/)
+KBO( :, 4,35,10) = (/&
+&7.9689E-01_JPRB,7.9665E-01_JPRB,3.3047E+00_JPRB,5.2421E+00_JPRB,6.9456E+00_JPRB,8.0506E+00_JPRB/)
+KBO( :, 5,35,10) = (/&
+&8.7135E-01_JPRB,8.7107E-01_JPRB,3.3248E+00_JPRB,5.2688E+00_JPRB,6.9299E+00_JPRB,8.1175E+00_JPRB/)
+KBO( :, 1,36,10) = (/&
+&5.9261E-01_JPRB,5.9263E-01_JPRB,3.0998E+00_JPRB,4.9572E+00_JPRB,6.7063E+00_JPRB,7.5006E+00_JPRB/)
+KBO( :, 2,36,10) = (/&
+&6.2616E-01_JPRB,6.2611E-01_JPRB,3.1830E+00_JPRB,5.0867E+00_JPRB,6.8489E+00_JPRB,7.7811E+00_JPRB/)
+KBO( :, 3,36,10) = (/&
+&6.7343E-01_JPRB,6.7330E-01_JPRB,3.2478E+00_JPRB,5.1832E+00_JPRB,6.9309E+00_JPRB,7.9826E+00_JPRB/)
+KBO( :, 4,36,10) = (/&
+&7.3660E-01_JPRB,7.3640E-01_JPRB,3.2928E+00_JPRB,5.2484E+00_JPRB,6.9611E+00_JPRB,8.1184E+00_JPRB/)
+KBO( :, 5,36,10) = (/&
+&8.1395E-01_JPRB,8.1372E-01_JPRB,3.3165E+00_JPRB,5.2807E+00_JPRB,6.9512E+00_JPRB,8.1925E+00_JPRB/)
+KBO( :, 1,37,10) = (/&
+&5.2989E-01_JPRB,5.2996E-01_JPRB,3.0580E+00_JPRB,4.9104E+00_JPRB,6.6637E+00_JPRB,7.4740E+00_JPRB/)
+KBO( :, 2,37,10) = (/&
+&5.6419E-01_JPRB,5.6414E-01_JPRB,3.1506E+00_JPRB,5.0576E+00_JPRB,6.8262E+00_JPRB,7.7836E+00_JPRB/)
+KBO( :, 3,37,10) = (/&
+&6.1196E-01_JPRB,6.1186E-01_JPRB,3.2232E+00_JPRB,5.1694E+00_JPRB,6.9254E+00_JPRB,8.0021E+00_JPRB/)
+KBO( :, 4,37,10) = (/&
+&6.7516E-01_JPRB,6.7503E-01_JPRB,3.2773E+00_JPRB,5.2468E+00_JPRB,6.9696E+00_JPRB,8.1546E+00_JPRB/)
+KBO( :, 5,37,10) = (/&
+&7.5242E-01_JPRB,7.5225E-01_JPRB,3.3077E+00_JPRB,5.2880E+00_JPRB,6.9712E+00_JPRB,8.2436E+00_JPRB/)
+KBO( :, 1,38,10) = (/&
+&4.7505E-01_JPRB,4.7513E-01_JPRB,3.0176E+00_JPRB,4.8628E+00_JPRB,6.6172E+00_JPRB,7.4494E+00_JPRB/)
+KBO( :, 2,38,10) = (/&
+&5.1071E-01_JPRB,5.1070E-01_JPRB,3.1197E+00_JPRB,5.0269E+00_JPRB,6.7975E+00_JPRB,7.7810E+00_JPRB/)
+KBO( :, 3,38,10) = (/&
+&5.5877E-01_JPRB,5.5872E-01_JPRB,3.2002E+00_JPRB,5.1526E+00_JPRB,6.9148E+00_JPRB,8.0180E+00_JPRB/)
+KBO( :, 4,38,10) = (/&
+&6.2123E-01_JPRB,6.2116E-01_JPRB,3.2619E+00_JPRB,5.2424E+00_JPRB,6.9725E+00_JPRB,8.1853E+00_JPRB/)
+KBO( :, 5,38,10) = (/&
+&6.9700E-01_JPRB,6.9689E-01_JPRB,3.2986E+00_JPRB,5.2927E+00_JPRB,6.9850E+00_JPRB,8.2945E+00_JPRB/)
+KBO( :, 1,39,10) = (/&
+&4.2667E-01_JPRB,4.2675E-01_JPRB,2.9792E+00_JPRB,4.8162E+00_JPRB,6.5678E+00_JPRB,7.4301E+00_JPRB/)
+KBO( :, 2,39,10) = (/&
+&4.6368E-01_JPRB,4.6371E-01_JPRB,3.0898E+00_JPRB,4.9949E+00_JPRB,6.7657E+00_JPRB,7.7791E+00_JPRB/)
+KBO( :, 3,39,10) = (/&
+&5.1271E-01_JPRB,5.1271E-01_JPRB,3.1789E+00_JPRB,5.1345E+00_JPRB,6.8995E+00_JPRB,8.0327E+00_JPRB/)
+KBO( :, 4,39,10) = (/&
+&5.7418E-01_JPRB,5.7416E-01_JPRB,3.2474E+00_JPRB,5.2350E+00_JPRB,6.9705E+00_JPRB,8.2154E+00_JPRB/)
+KBO( :, 5,39,10) = (/&
+&6.4813E-01_JPRB,6.4808E-01_JPRB,3.2906E+00_JPRB,5.2946E+00_JPRB,6.9954E+00_JPRB,8.3481E+00_JPRB/)
+KBO( :, 1,40,10) = (/&
+&3.8059E-01_JPRB,3.8066E-01_JPRB,2.9294E+00_JPRB,4.7482E+00_JPRB,6.4900E+00_JPRB,7.3413E+00_JPRB/)
+KBO( :, 2,40,10) = (/&
+&4.1764E-01_JPRB,4.1768E-01_JPRB,3.0517E+00_JPRB,4.9455E+00_JPRB,6.7137E+00_JPRB,7.7220E+00_JPRB/)
+KBO( :, 3,40,10) = (/&
+&4.6631E-01_JPRB,4.6635E-01_JPRB,3.1498E+00_JPRB,5.1004E+00_JPRB,6.8682E+00_JPRB,8.0003E+00_JPRB/)
+KBO( :, 4,40,10) = (/&
+&5.2644E-01_JPRB,5.2648E-01_JPRB,3.2265E+00_JPRB,5.2162E+00_JPRB,6.9603E+00_JPRB,8.2072E+00_JPRB/)
+KBO( :, 5,40,10) = (/&
+&5.9702E-01_JPRB,5.9703E-01_JPRB,3.2787E+00_JPRB,5.2882E+00_JPRB,7.0004E+00_JPRB,8.3571E+00_JPRB/)
+KBO( :, 1,41,10) = (/&
+&3.3906E-01_JPRB,3.3914E-01_JPRB,2.8764E+00_JPRB,4.6750E+00_JPRB,6.4031E+00_JPRB,7.2374E+00_JPRB/)
+KBO( :, 2,41,10) = (/&
+&3.7555E-01_JPRB,3.7562E-01_JPRB,3.0116E+00_JPRB,4.8899E+00_JPRB,6.6527E+00_JPRB,7.6510E+00_JPRB/)
+KBO( :, 3,41,10) = (/&
+&4.2374E-01_JPRB,4.2382E-01_JPRB,3.1192E+00_JPRB,5.0596E+00_JPRB,6.8298E+00_JPRB,7.9584E+00_JPRB/)
+KBO( :, 4,41,10) = (/&
+&4.8252E-01_JPRB,4.8261E-01_JPRB,3.2032E+00_JPRB,5.1909E+00_JPRB,6.9423E+00_JPRB,8.1883E+00_JPRB/)
+KBO( :, 5,41,10) = (/&
+&5.5055E-01_JPRB,5.5059E-01_JPRB,3.2647E+00_JPRB,5.2767E+00_JPRB,6.9993E+00_JPRB,8.3564E+00_JPRB/)
+KBO( :, 1,42,10) = (/&
+&3.0216E-01_JPRB,3.0227E-01_JPRB,2.8228E+00_JPRB,4.6001E+00_JPRB,6.3100E+00_JPRB,7.1283E+00_JPRB/)
+KBO( :, 2,42,10) = (/&
+&3.3749E-01_JPRB,3.3759E-01_JPRB,2.9700E+00_JPRB,4.8303E+00_JPRB,6.5864E+00_JPRB,7.5749E+00_JPRB/)
+KBO( :, 3,42,10) = (/&
+&3.8480E-01_JPRB,3.8492E-01_JPRB,3.0865E+00_JPRB,5.0162E+00_JPRB,6.7847E+00_JPRB,7.9100E+00_JPRB/)
+KBO( :, 4,42,10) = (/&
+&4.4288E-01_JPRB,4.4301E-01_JPRB,3.1790E+00_JPRB,5.1608E+00_JPRB,6.9184E+00_JPRB,8.1647E+00_JPRB/)
+KBO( :, 5,42,10) = (/&
+&5.0928E-01_JPRB,5.0935E-01_JPRB,3.2490E+00_JPRB,5.2607E+00_JPRB,6.9918E+00_JPRB,8.3533E+00_JPRB/)
+KBO( :, 1,43,10) = (/&
+&2.6768E-01_JPRB,2.6781E-01_JPRB,2.7595E+00_JPRB,4.5068E+00_JPRB,6.1924E+00_JPRB,6.9816E+00_JPRB/)
+KBO( :, 2,43,10) = (/&
+&3.0121E-01_JPRB,3.0134E-01_JPRB,2.9195E+00_JPRB,4.7538E+00_JPRB,6.4985E+00_JPRB,7.4658E+00_JPRB/)
+KBO( :, 3,43,10) = (/&
+&3.4636E-01_JPRB,3.4652E-01_JPRB,3.0475E+00_JPRB,4.9586E+00_JPRB,6.7250E+00_JPRB,7.8363E+00_JPRB/)
+KBO( :, 4,43,10) = (/&
+&4.0279E-01_JPRB,4.0294E-01_JPRB,3.1487E+00_JPRB,5.1186E+00_JPRB,6.8816E+00_JPRB,8.1193E+00_JPRB/)
+KBO( :, 5,43,10) = (/&
+&4.6775E-01_JPRB,4.6784E-01_JPRB,3.2281E+00_JPRB,5.2365E+00_JPRB,6.9765E+00_JPRB,8.3335E+00_JPRB/)
+KBO( :, 1,44,10) = (/&
+&2.3663E-01_JPRB,2.3679E-01_JPRB,2.6889E+00_JPRB,4.3996E+00_JPRB,6.0559E+00_JPRB,6.8135E+00_JPRB/)
+KBO( :, 2,44,10) = (/&
+&2.6748E-01_JPRB,2.6764E-01_JPRB,2.8618E+00_JPRB,4.6667E+00_JPRB,6.3943E+00_JPRB,7.3355E+00_JPRB/)
+KBO( :, 3,44,10) = (/&
+&3.1007E-01_JPRB,3.1028E-01_JPRB,3.0033E+00_JPRB,4.8904E+00_JPRB,6.6510E+00_JPRB,7.7469E+00_JPRB/)
+KBO( :, 4,44,10) = (/&
+&3.6426E-01_JPRB,3.6444E-01_JPRB,3.1143E+00_JPRB,5.0666E+00_JPRB,6.8341E+00_JPRB,8.0609E+00_JPRB/)
+KBO( :, 5,44,10) = (/&
+&4.2790E-01_JPRB,4.2800E-01_JPRB,3.2017E+00_JPRB,5.2027E+00_JPRB,6.9510E+00_JPRB,8.3005E+00_JPRB/)
+KBO( :, 1,45,10) = (/&
+&2.0943E-01_JPRB,2.0961E-01_JPRB,2.6149E+00_JPRB,4.2870E+00_JPRB,5.9088E+00_JPRB,6.6376E+00_JPRB/)
+KBO( :, 2,45,10) = (/&
+&2.3748E-01_JPRB,2.3768E-01_JPRB,2.7996E+00_JPRB,4.5739E+00_JPRB,6.2800E+00_JPRB,7.1981E+00_JPRB/)
+KBO( :, 3,45,10) = (/&
+&2.7717E-01_JPRB,2.7741E-01_JPRB,2.9545E+00_JPRB,4.8149E+00_JPRB,6.5679E+00_JPRB,7.6498E+00_JPRB/)
+KBO( :, 4,45,10) = (/&
+&3.2881E-01_JPRB,3.2900E-01_JPRB,3.0769E+00_JPRB,5.0100E+00_JPRB,6.7767E+00_JPRB,7.9956E+00_JPRB/)
+KBO( :, 5,45,10) = (/&
+&3.9089E-01_JPRB,3.9099E-01_JPRB,3.1729E+00_JPRB,5.1617E+00_JPRB,6.9184E+00_JPRB,8.2647E+00_JPRB/)
+KBO( :, 1,46,10) = (/&
+&1.8488E-01_JPRB,1.8509E-01_JPRB,2.5337E+00_JPRB,4.1619E+00_JPRB,5.7408E+00_JPRB,6.4343E+00_JPRB/)
+KBO( :, 2,46,10) = (/&
+&2.1029E-01_JPRB,2.1052E-01_JPRB,2.7308E+00_JPRB,4.4685E+00_JPRB,6.1476E+00_JPRB,7.0351E+00_JPRB/)
+KBO( :, 3,46,10) = (/&
+&2.4641E-01_JPRB,2.4669E-01_JPRB,2.8991E+00_JPRB,4.7282E+00_JPRB,6.4680E+00_JPRB,7.5299E+00_JPRB/)
+KBO( :, 4,46,10) = (/&
+&2.9502E-01_JPRB,2.9523E-01_JPRB,3.0336E+00_JPRB,4.9428E+00_JPRB,6.7064E+00_JPRB,7.9122E+00_JPRB/)
+KBO( :, 5,46,10) = (/&
+&3.5492E-01_JPRB,3.5504E-01_JPRB,3.1395E+00_JPRB,5.1108E+00_JPRB,6.8742E+00_JPRB,8.2122E+00_JPRB/)
+KBO( :, 1,47,10) = (/&
+&1.6240E-01_JPRB,1.6263E-01_JPRB,2.4388E+00_JPRB,4.0166E+00_JPRB,5.5397E+00_JPRB,6.1804E+00_JPRB/)
+KBO( :, 2,47,10) = (/&
+&1.8504E-01_JPRB,1.8532E-01_JPRB,2.6496E+00_JPRB,4.3442E+00_JPRB,5.9864E+00_JPRB,6.8265E+00_JPRB/)
+KBO( :, 3,47,10) = (/&
+&2.1735E-01_JPRB,2.1764E-01_JPRB,2.8316E+00_JPRB,4.6250E+00_JPRB,6.3441E+00_JPRB,7.3704E+00_JPRB/)
+KBO( :, 4,47,10) = (/&
+&2.6219E-01_JPRB,2.6243E-01_JPRB,2.9807E+00_JPRB,4.8597E+00_JPRB,6.6165E+00_JPRB,7.7948E+00_JPRB/)
+KBO( :, 5,47,10) = (/&
+&3.1904E-01_JPRB,3.1916E-01_JPRB,3.0987E+00_JPRB,5.0473E+00_JPRB,6.8132E+00_JPRB,8.1318E+00_JPRB/)
+KBO( :, 1,48,10) = (/&
+&1.4274E-01_JPRB,1.4309E-01_JPRB,2.3378E+00_JPRB,3.8621E+00_JPRB,5.3223E+00_JPRB,5.9129E+00_JPRB/)
+KBO( :, 2,48,10) = (/&
+&1.6289E-01_JPRB,1.6319E-01_JPRB,2.5631E+00_JPRB,4.2108E+00_JPRB,5.8103E+00_JPRB,6.6062E+00_JPRB/)
+KBO( :, 3,48,10) = (/&
+&1.9167E-01_JPRB,1.9198E-01_JPRB,2.7584E+00_JPRB,4.5133E+00_JPRB,6.2051E+00_JPRB,7.1967E+00_JPRB/)
+KBO( :, 4,48,10) = (/&
+&2.3239E-01_JPRB,2.3264E-01_JPRB,2.9226E+00_JPRB,4.7680E+00_JPRB,6.5135E+00_JPRB,7.6665E+00_JPRB/)
+KBO( :, 5,48,10) = (/&
+&2.8577E-01_JPRB,2.8592E-01_JPRB,3.0525E+00_JPRB,4.9759E+00_JPRB,6.7401E+00_JPRB,8.0423E+00_JPRB/)
+KBO( :, 1,49,10) = (/&
+&1.2506E-01_JPRB,1.2569E-01_JPRB,2.2315E+00_JPRB,3.6984E+00_JPRB,5.0916E+00_JPRB,5.6363E+00_JPRB/)
+KBO( :, 2,49,10) = (/&
+&1.4348E-01_JPRB,1.4383E-01_JPRB,2.4717E+00_JPRB,4.0691E+00_JPRB,5.6178E+00_JPRB,6.3745E+00_JPRB/)
+KBO( :, 3,49,10) = (/&
+&1.6900E-01_JPRB,1.6934E-01_JPRB,2.6802E+00_JPRB,4.3928E+00_JPRB,6.0515E+00_JPRB,7.0127E+00_JPRB/)
+KBO( :, 4,49,10) = (/&
+&2.0581E-01_JPRB,2.0606E-01_JPRB,2.8586E+00_JPRB,4.6682E+00_JPRB,6.3962E+00_JPRB,7.5292E+00_JPRB/)
+KBO( :, 5,49,10) = (/&
+&2.5518E-01_JPRB,2.5533E-01_JPRB,3.0025E+00_JPRB,4.8968E+00_JPRB,6.6558E+00_JPRB,7.9457E+00_JPRB/)
+KBO( :, 1,50,10) = (/&
+&1.0959E-01_JPRB,1.1070E-01_JPRB,2.1267E+00_JPRB,3.5368E+00_JPRB,4.8615E+00_JPRB,5.3538E+00_JPRB/)
+KBO( :, 2,50,10) = (/&
+&1.2689E-01_JPRB,1.2744E-01_JPRB,2.3809E+00_JPRB,3.9302E+00_JPRB,5.4235E+00_JPRB,6.1306E+00_JPRB/)
+KBO( :, 3,50,10) = (/&
+&1.4973E-01_JPRB,1.5009E-01_JPRB,2.6019E+00_JPRB,4.2725E+00_JPRB,5.8946E+00_JPRB,6.8112E+00_JPRB/)
+KBO( :, 4,50,10) = (/&
+&1.8304E-01_JPRB,1.8331E-01_JPRB,2.7927E+00_JPRB,4.5675E+00_JPRB,6.2731E+00_JPRB,7.3745E+00_JPRB/)
+KBO( :, 5,50,10) = (/&
+&2.2866E-01_JPRB,2.2882E-01_JPRB,2.9508E+00_JPRB,4.8146E+00_JPRB,6.5657E+00_JPRB,7.8282E+00_JPRB/)
+KBO( :, 1,51,10) = (/&
+&9.5768E-02_JPRB,9.7661E-02_JPRB,2.0216E+00_JPRB,3.3751E+00_JPRB,4.6268E+00_JPRB,5.0597E+00_JPRB/)
+KBO( :, 2,51,10) = (/&
+&1.1216E-01_JPRB,1.1307E-01_JPRB,2.2881E+00_JPRB,3.7875E+00_JPRB,5.2217E+00_JPRB,5.8744E+00_JPRB/)
+KBO( :, 3,51,10) = (/&
+&1.3299E-01_JPRB,1.3343E-01_JPRB,2.5219E+00_JPRB,4.1480E+00_JPRB,5.7284E+00_JPRB,6.5943E+00_JPRB/)
+KBO( :, 4,51,10) = (/&
+&1.6308E-01_JPRB,1.6337E-01_JPRB,2.7248E+00_JPRB,4.4626E+00_JPRB,6.1415E+00_JPRB,7.2033E+00_JPRB/)
+KBO( :, 5,51,10) = (/&
+&2.0524E-01_JPRB,2.0541E-01_JPRB,2.8961E+00_JPRB,4.7281E+00_JPRB,6.4666E+00_JPRB,7.6945E+00_JPRB/)
+KBO( :, 1,52,10) = (/&
+&8.3171E-02_JPRB,8.6221E-02_JPRB,1.9144E+00_JPRB,3.2076E+00_JPRB,4.3819E+00_JPRB,4.7580E+00_JPRB/)
+KBO( :, 2,52,10) = (/&
+&9.8912E-02_JPRB,1.0039E-01_JPRB,2.1906E+00_JPRB,3.6370E+00_JPRB,5.0088E+00_JPRB,5.6089E+00_JPRB/)
+KBO( :, 3,52,10) = (/&
+&1.1809E-01_JPRB,1.1874E-01_JPRB,2.4381E+00_JPRB,4.0185E+00_JPRB,5.5505E+00_JPRB,6.3684E+00_JPRB/)
+KBO( :, 4,52,10) = (/&
+&1.4539E-01_JPRB,1.4572E-01_JPRB,2.6526E+00_JPRB,4.3511E+00_JPRB,5.9980E+00_JPRB,7.0214E+00_JPRB/)
+KBO( :, 5,52,10) = (/&
+&1.8406E-01_JPRB,1.8425E-01_JPRB,2.8362E+00_JPRB,4.6354E+00_JPRB,6.3565E+00_JPRB,7.5532E+00_JPRB/)
+KBO( :, 1,53,10) = (/&
+&7.1760E-02_JPRB,7.6225E-02_JPRB,1.8049E+00_JPRB,3.0338E+00_JPRB,4.1285E+00_JPRB,4.4543E+00_JPRB/)
+KBO( :, 2,53,10) = (/&
+&8.6733E-02_JPRB,8.9133E-02_JPRB,2.0890E+00_JPRB,3.4808E+00_JPRB,4.7838E+00_JPRB,5.3384E+00_JPRB/)
+KBO( :, 3,53,10) = (/&
+&1.0470E-01_JPRB,1.0571E-01_JPRB,2.3496E+00_JPRB,3.8826E+00_JPRB,5.3593E+00_JPRB,6.1340E+00_JPRB/)
+KBO( :, 4,53,10) = (/&
+&1.2964E-01_JPRB,1.3004E-01_JPRB,2.5758E+00_JPRB,4.2328E+00_JPRB,5.8432E+00_JPRB,6.8310E+00_JPRB/)
+KBO( :, 5,53,10) = (/&
+&1.6486E-01_JPRB,1.6505E-01_JPRB,2.7718E+00_JPRB,4.5358E+00_JPRB,6.2341E+00_JPRB,7.4042E+00_JPRB/)
+KBO( :, 1,54,10) = (/&
+&6.1882E-02_JPRB,6.7940E-02_JPRB,1.7027E+00_JPRB,2.8705E+00_JPRB,3.8894E+00_JPRB,4.1460E+00_JPRB/)
+KBO( :, 2,54,10) = (/&
+&7.6155E-02_JPRB,7.9684E-02_JPRB,1.9930E+00_JPRB,3.3325E+00_JPRB,4.5678E+00_JPRB,5.0509E+00_JPRB/)
+KBO( :, 3,54,10) = (/&
+&9.3240E-02_JPRB,9.4826E-02_JPRB,2.2641E+00_JPRB,3.7513E+00_JPRB,5.1730E+00_JPRB,5.8771E+00_JPRB/)
+KBO( :, 4,54,10) = (/&
+&1.1632E-01_JPRB,1.1690E-01_JPRB,2.5020E+00_JPRB,4.1182E+00_JPRB,5.6892E+00_JPRB,6.6127E+00_JPRB/)
+KBO( :, 5,54,10) = (/&
+&1.4865E-01_JPRB,1.4887E-01_JPRB,2.7085E+00_JPRB,4.4384E+00_JPRB,6.1110E+00_JPRB,7.2268E+00_JPRB/)
+KBO( :, 1,55,10) = (/&
+&5.3143E-02_JPRB,6.0929E-02_JPRB,1.6034E+00_JPRB,2.7108E+00_JPRB,3.6519E+00_JPRB,3.8346E+00_JPRB/)
+KBO( :, 2,55,10) = (/&
+&6.6664E-02_JPRB,7.1549E-02_JPRB,1.8993E+00_JPRB,3.1854E+00_JPRB,4.3528E+00_JPRB,4.7449E+00_JPRB/)
+KBO( :, 3,55,10) = (/&
+&8.2988E-02_JPRB,8.5434E-02_JPRB,2.1781E+00_JPRB,3.6188E+00_JPRB,4.9850E+00_JPRB,5.6016E+00_JPRB/)
+KBO( :, 4,55,10) = (/&
+&1.0455E-01_JPRB,1.0541E-01_JPRB,2.4283E+00_JPRB,4.0035E+00_JPRB,5.5314E+00_JPRB,6.3670E+00_JPRB/)
+KBO( :, 5,55,10) = (/&
+&1.3450E-01_JPRB,1.3475E-01_JPRB,2.6447E+00_JPRB,4.3400E+00_JPRB,5.9837E+00_JPRB,7.0246E+00_JPRB/)
+KBO( :, 1,56,10) = (/&
+&4.5363E-02_JPRB,5.4761E-02_JPRB,1.5057E+00_JPRB,2.5465E+00_JPRB,3.4107E+00_JPRB,3.5270E+00_JPRB/)
+KBO( :, 2,56,10) = (/&
+&5.8005E-02_JPRB,6.4431E-02_JPRB,1.8040E+00_JPRB,3.0340E+00_JPRB,4.1322E+00_JPRB,4.4343E+00_JPRB/)
+KBO( :, 3,56,10) = (/&
+&7.3593E-02_JPRB,7.7144E-02_JPRB,2.0898E+00_JPRB,3.4823E+00_JPRB,4.7884E+00_JPRB,5.3173E+00_JPRB/)
+KBO( :, 4,56,10) = (/&
+&9.3887E-02_JPRB,9.5237E-02_JPRB,2.3510E+00_JPRB,3.8850E+00_JPRB,5.3647E+00_JPRB,6.1108E+00_JPRB/)
+KBO( :, 5,56,10) = (/&
+&1.2181E-01_JPRB,1.2219E-01_JPRB,2.5776E+00_JPRB,4.2361E+00_JPRB,5.8482E+00_JPRB,6.8081E+00_JPRB/)
+KBO( :, 1,57,10) = (/&
+&3.8484E-02_JPRB,4.9332E-02_JPRB,1.4087E+00_JPRB,2.3775E+00_JPRB,3.1673E+00_JPRB,3.2197E+00_JPRB/)
+KBO( :, 2,57,10) = (/&
+&5.0147E-02_JPRB,5.8221E-02_JPRB,1.7073E+00_JPRB,2.8793E+00_JPRB,3.9049E+00_JPRB,4.1273E+00_JPRB/)
+KBO( :, 3,57,10) = (/&
+&6.4931E-02_JPRB,6.9815E-02_JPRB,1.9987E+00_JPRB,3.3420E+00_JPRB,4.5839E+00_JPRB,5.0218E+00_JPRB/)
+KBO( :, 4,57,10) = (/&
+&8.4109E-02_JPRB,8.6186E-02_JPRB,2.2698E+00_JPRB,3.7606E+00_JPRB,5.1878E+00_JPRB,5.8449E+00_JPRB/)
+KBO( :, 5,57,10) = (/&
+&1.1023E-01_JPRB,1.1081E-01_JPRB,2.5075E+00_JPRB,4.1274E+00_JPRB,5.7022E+00_JPRB,6.5747E+00_JPRB/)
+KBO( :, 1,58,10) = (/&
+&3.2626E-02_JPRB,4.4633E-02_JPRB,1.3174E+00_JPRB,2.2156E+00_JPRB,2.9363E+00_JPRB,2.9278E+00_JPRB/)
+KBO( :, 2,58,10) = (/&
+&4.3298E-02_JPRB,5.2922E-02_JPRB,1.6144E+00_JPRB,2.7304E+00_JPRB,3.6831E+00_JPRB,3.8325E+00_JPRB/)
+KBO( :, 3,58,10) = (/&
+&5.7247E-02_JPRB,6.3597E-02_JPRB,1.9107E+00_JPRB,3.2043E+00_JPRB,4.3821E+00_JPRB,4.7236E+00_JPRB/)
+KBO( :, 4,58,10) = (/&
+&7.5473E-02_JPRB,7.8525E-02_JPRB,2.1894E+00_JPRB,3.6369E+00_JPRB,5.0121E+00_JPRB,5.5748E+00_JPRB/)
+KBO( :, 5,58,10) = (/&
+&1.0003E-01_JPRB,1.0093E-01_JPRB,2.4389E+00_JPRB,4.0197E+00_JPRB,5.5549E+00_JPRB,6.3325E+00_JPRB/)
+KBO( :, 1,59,10) = (/&
+&2.9072E-02_JPRB,4.1705E-02_JPRB,1.2802E+00_JPRB,2.1494E+00_JPRB,2.8421E+00_JPRB,2.7798E+00_JPRB/)
+KBO( :, 2,59,10) = (/&
+&3.9252E-02_JPRB,4.9835E-02_JPRB,1.5765E+00_JPRB,2.6680E+00_JPRB,3.5911E+00_JPRB,3.6659E+00_JPRB/)
+KBO( :, 3,59,10) = (/&
+&5.3000E-02_JPRB,6.0270E-02_JPRB,1.8744E+00_JPRB,3.1473E+00_JPRB,4.2993E+00_JPRB,4.5411E+00_JPRB/)
+KBO( :, 4,59,10) = (/&
+&7.1218E-02_JPRB,7.4859E-02_JPRB,2.1561E+00_JPRB,3.5852E+00_JPRB,4.9384E+00_JPRB,5.3790E+00_JPRB/)
+KBO( :, 5,59,10) = (/&
+&9.5581E-02_JPRB,9.6679E-02_JPRB,2.4098E+00_JPRB,3.9752E+00_JPRB,5.4931E+00_JPRB,6.1513E+00_JPRB/)
+KBO( :, 1,13,11) = (/&
+&1.0830E+01_JPRB,1.0824E+01_JPRB,8.2966E+00_JPRB,5.7775E+00_JPRB,4.2067E+00_JPRB,3.8416E+00_JPRB/)
+KBO( :, 2,13,11) = (/&
+&1.0842E+01_JPRB,1.0836E+01_JPRB,8.3048E+00_JPRB,5.7756E+00_JPRB,4.1117E+00_JPRB,3.7626E+00_JPRB/)
+KBO( :, 3,13,11) = (/&
+&1.0806E+01_JPRB,1.0800E+01_JPRB,8.2770E+00_JPRB,5.7524E+00_JPRB,4.0103E+00_JPRB,3.7005E+00_JPRB/)
+KBO( :, 4,13,11) = (/&
+&1.0724E+01_JPRB,1.0718E+01_JPRB,8.2112E+00_JPRB,5.7002E+00_JPRB,3.9058E+00_JPRB,3.6875E+00_JPRB/)
+KBO( :, 5,13,11) = (/&
+&1.0621E+01_JPRB,1.0615E+01_JPRB,8.1337E+00_JPRB,5.6465E+00_JPRB,3.8013E+00_JPRB,3.7028E+00_JPRB/)
+KBO( :, 1,14,11) = (/&
+&1.1181E+01_JPRB,1.1175E+01_JPRB,8.5568E+00_JPRB,5.9649E+00_JPRB,4.4522E+00_JPRB,4.2077E+00_JPRB/)
+KBO( :, 2,14,11) = (/&
+&1.1133E+01_JPRB,1.1127E+01_JPRB,8.5167E+00_JPRB,5.9323E+00_JPRB,4.3476E+00_JPRB,4.1247E+00_JPRB/)
+KBO( :, 3,14,11) = (/&
+&1.1053E+01_JPRB,1.1047E+01_JPRB,8.4570E+00_JPRB,5.8889E+00_JPRB,4.2415E+00_JPRB,4.0417E+00_JPRB/)
+KBO( :, 4,14,11) = (/&
+&1.0933E+01_JPRB,1.0927E+01_JPRB,8.3682E+00_JPRB,5.8252E+00_JPRB,4.1413E+00_JPRB,3.9695E+00_JPRB/)
+KBO( :, 5,14,11) = (/&
+&1.0780E+01_JPRB,1.0774E+01_JPRB,8.2481E+00_JPRB,5.7382E+00_JPRB,4.0362E+00_JPRB,3.9481E+00_JPRB/)
+KBO( :, 1,15,11) = (/&
+&1.1265E+01_JPRB,1.1259E+01_JPRB,8.6144E+00_JPRB,6.0504E+00_JPRB,4.7323E+00_JPRB,4.5971E+00_JPRB/)
+KBO( :, 2,15,11) = (/&
+&1.1162E+01_JPRB,1.1156E+01_JPRB,8.5378E+00_JPRB,5.9895E+00_JPRB,4.6323E+00_JPRB,4.4988E+00_JPRB/)
+KBO( :, 3,15,11) = (/&
+&1.1022E+01_JPRB,1.1015E+01_JPRB,8.4337E+00_JPRB,5.9199E+00_JPRB,4.5312E+00_JPRB,4.4142E+00_JPRB/)
+KBO( :, 4,15,11) = (/&
+&1.0880E+01_JPRB,1.0874E+01_JPRB,8.3234E+00_JPRB,5.8348E+00_JPRB,4.4237E+00_JPRB,4.3326E+00_JPRB/)
+KBO( :, 5,15,11) = (/&
+&1.0698E+01_JPRB,1.0692E+01_JPRB,8.1811E+00_JPRB,5.7294E+00_JPRB,4.3189E+00_JPRB,4.2569E+00_JPRB/)
+KBO( :, 1,16,11) = (/&
+&1.1047E+01_JPRB,1.1041E+01_JPRB,8.4566E+00_JPRB,6.0733E+00_JPRB,5.0987E+00_JPRB,4.9814E+00_JPRB/)
+KBO( :, 2,16,11) = (/&
+&1.0912E+01_JPRB,1.0905E+01_JPRB,8.3558E+00_JPRB,5.9956E+00_JPRB,4.9979E+00_JPRB,4.8884E+00_JPRB/)
+KBO( :, 3,16,11) = (/&
+&1.0758E+01_JPRB,1.0752E+01_JPRB,8.2381E+00_JPRB,5.8935E+00_JPRB,4.8881E+00_JPRB,4.7986E+00_JPRB/)
+KBO( :, 4,16,11) = (/&
+&1.0569E+01_JPRB,1.0563E+01_JPRB,8.0898E+00_JPRB,5.7760E+00_JPRB,4.7808E+00_JPRB,4.7200E+00_JPRB/)
+KBO( :, 5,16,11) = (/&
+&1.0363E+01_JPRB,1.0357E+01_JPRB,7.9324E+00_JPRB,5.6614E+00_JPRB,4.6746E+00_JPRB,4.6272E+00_JPRB/)
+KBO( :, 1,17,11) = (/&
+&1.0577E+01_JPRB,1.0572E+01_JPRB,8.1098E+00_JPRB,6.0991E+00_JPRB,5.5106E+00_JPRB,5.4165E+00_JPRB/)
+KBO( :, 2,17,11) = (/&
+&1.0411E+01_JPRB,1.0405E+01_JPRB,7.9835E+00_JPRB,5.9805E+00_JPRB,5.3996E+00_JPRB,5.3206E+00_JPRB/)
+KBO( :, 3,17,11) = (/&
+&1.0224E+01_JPRB,1.0219E+01_JPRB,7.8406E+00_JPRB,5.8520E+00_JPRB,5.2910E+00_JPRB,5.2289E+00_JPRB/)
+KBO( :, 4,17,11) = (/&
+&1.0028E+01_JPRB,1.0022E+01_JPRB,7.6890E+00_JPRB,5.7215E+00_JPRB,5.1803E+00_JPRB,5.1373E+00_JPRB/)
+KBO( :, 5,17,11) = (/&
+&9.8160E+00_JPRB,9.8105E+00_JPRB,7.5244E+00_JPRB,5.5839E+00_JPRB,5.0653E+00_JPRB,5.0432E+00_JPRB/)
+KBO( :, 1,18,11) = (/&
+&9.8986E+00_JPRB,9.8931E+00_JPRB,7.6044E+00_JPRB,6.1164E+00_JPRB,5.9534E+00_JPRB,5.9474E+00_JPRB/)
+KBO( :, 2,18,11) = (/&
+&9.7140E+00_JPRB,9.7086E+00_JPRB,7.4654E+00_JPRB,5.9795E+00_JPRB,5.8383E+00_JPRB,5.8411E+00_JPRB/)
+KBO( :, 3,18,11) = (/&
+&9.5273E+00_JPRB,9.5220E+00_JPRB,7.3210E+00_JPRB,5.8383E+00_JPRB,5.7189E+00_JPRB,5.7395E+00_JPRB/)
+KBO( :, 4,18,11) = (/&
+&9.3182E+00_JPRB,9.3130E+00_JPRB,7.1594E+00_JPRB,5.7006E+00_JPRB,5.6002E+00_JPRB,5.6385E+00_JPRB/)
+KBO( :, 5,18,11) = (/&
+&9.0984E+00_JPRB,9.0934E+00_JPRB,6.9901E+00_JPRB,5.5596E+00_JPRB,5.4784E+00_JPRB,5.5361E+00_JPRB/)
+KBO( :, 1,19,11) = (/&
+&9.0617E+00_JPRB,9.0567E+00_JPRB,6.9882E+00_JPRB,6.1944E+00_JPRB,6.4032E+00_JPRB,6.5506E+00_JPRB/)
+KBO( :, 2,19,11) = (/&
+&8.8807E+00_JPRB,8.8758E+00_JPRB,6.8508E+00_JPRB,6.0541E+00_JPRB,6.2790E+00_JPRB,6.4421E+00_JPRB/)
+KBO( :, 3,19,11) = (/&
+&8.6840E+00_JPRB,8.6793E+00_JPRB,6.6993E+00_JPRB,5.9155E+00_JPRB,6.1530E+00_JPRB,6.3302E+00_JPRB/)
+KBO( :, 4,19,11) = (/&
+&8.4690E+00_JPRB,8.4643E+00_JPRB,6.5346E+00_JPRB,5.7782E+00_JPRB,6.0205E+00_JPRB,6.1969E+00_JPRB/)
+KBO( :, 5,19,11) = (/&
+&8.2461E+00_JPRB,8.2415E+00_JPRB,6.3683E+00_JPRB,5.6418E+00_JPRB,5.8884E+00_JPRB,6.0738E+00_JPRB/)
+KBO( :, 1,20,11) = (/&
+&8.1338E+00_JPRB,8.1294E+00_JPRB,6.3787E+00_JPRB,6.3724E+00_JPRB,6.8676E+00_JPRB,7.1512E+00_JPRB/)
+KBO( :, 2,20,11) = (/&
+&7.9489E+00_JPRB,7.9446E+00_JPRB,6.2323E+00_JPRB,6.2367E+00_JPRB,6.7380E+00_JPRB,7.0235E+00_JPRB/)
+KBO( :, 3,20,11) = (/&
+&7.7484E+00_JPRB,7.7442E+00_JPRB,6.0747E+00_JPRB,6.0984E+00_JPRB,6.6037E+00_JPRB,6.8886E+00_JPRB/)
+KBO( :, 4,20,11) = (/&
+&7.5336E+00_JPRB,7.5295E+00_JPRB,5.9158E+00_JPRB,5.9585E+00_JPRB,6.4615E+00_JPRB,6.7483E+00_JPRB/)
+KBO( :, 5,20,11) = (/&
+&7.3192E+00_JPRB,7.3153E+00_JPRB,5.7540E+00_JPRB,5.8154E+00_JPRB,6.3114E+00_JPRB,6.6285E+00_JPRB/)
+KBO( :, 1,21,11) = (/&
+&7.1783E+00_JPRB,7.1745E+00_JPRB,5.8792E+00_JPRB,6.5789E+00_JPRB,7.3613E+00_JPRB,7.7022E+00_JPRB/)
+KBO( :, 2,21,11) = (/&
+&6.9919E+00_JPRB,6.9882E+00_JPRB,5.7299E+00_JPRB,6.4389E+00_JPRB,7.2225E+00_JPRB,7.5647E+00_JPRB/)
+KBO( :, 3,21,11) = (/&
+&6.7909E+00_JPRB,6.7873E+00_JPRB,5.5766E+00_JPRB,6.2973E+00_JPRB,7.0712E+00_JPRB,7.4405E+00_JPRB/)
+KBO( :, 4,21,11) = (/&
+&6.5939E+00_JPRB,6.5903E+00_JPRB,5.4217E+00_JPRB,6.1490E+00_JPRB,6.9129E+00_JPRB,7.3122E+00_JPRB/)
+KBO( :, 5,21,11) = (/&
+&6.4093E+00_JPRB,6.4059E+00_JPRB,5.2663E+00_JPRB,5.9963E+00_JPRB,6.7516E+00_JPRB,7.1970E+00_JPRB/)
+KBO( :, 1,22,11) = (/&
+&6.2177E+00_JPRB,6.2144E+00_JPRB,5.5479E+00_JPRB,6.7900E+00_JPRB,7.8374E+00_JPRB,8.2375E+00_JPRB/)
+KBO( :, 2,22,11) = (/&
+&6.0356E+00_JPRB,6.0324E+00_JPRB,5.3995E+00_JPRB,6.6451E+00_JPRB,7.6895E+00_JPRB,8.1166E+00_JPRB/)
+KBO( :, 3,22,11) = (/&
+&5.8596E+00_JPRB,5.8565E+00_JPRB,5.2499E+00_JPRB,6.4943E+00_JPRB,7.5342E+00_JPRB,8.0016E+00_JPRB/)
+KBO( :, 4,22,11) = (/&
+&5.7069E+00_JPRB,5.7039E+00_JPRB,5.1029E+00_JPRB,6.3342E+00_JPRB,7.3721E+00_JPRB,7.8779E+00_JPRB/)
+KBO( :, 5,22,11) = (/&
+&5.5907E+00_JPRB,5.5878E+00_JPRB,4.9677E+00_JPRB,6.1731E+00_JPRB,7.2068E+00_JPRB,7.7598E+00_JPRB/)
+KBO( :, 1,23,11) = (/&
+&5.3001E+00_JPRB,5.2974E+00_JPRB,5.3392E+00_JPRB,7.0212E+00_JPRB,8.2731E+00_JPRB,8.7769E+00_JPRB/)
+KBO( :, 2,23,11) = (/&
+&5.1465E+00_JPRB,5.1439E+00_JPRB,5.1959E+00_JPRB,6.8658E+00_JPRB,8.1318E+00_JPRB,8.6756E+00_JPRB/)
+KBO( :, 3,23,11) = (/&
+&5.0259E+00_JPRB,5.0234E+00_JPRB,5.0568E+00_JPRB,6.6964E+00_JPRB,7.9822E+00_JPRB,8.5635E+00_JPRB/)
+KBO( :, 4,23,11) = (/&
+&4.9408E+00_JPRB,4.9383E+00_JPRB,4.9256E+00_JPRB,6.5229E+00_JPRB,7.8283E+00_JPRB,8.4337E+00_JPRB/)
+KBO( :, 5,23,11) = (/&
+&4.8982E+00_JPRB,4.8957E+00_JPRB,4.8170E+00_JPRB,6.3467E+00_JPRB,7.6656E+00_JPRB,8.3117E+00_JPRB/)
+KBO( :, 1,24,11) = (/&
+&4.4810E+00_JPRB,4.4788E+00_JPRB,5.2117E+00_JPRB,7.2187E+00_JPRB,8.6894E+00_JPRB,9.2830E+00_JPRB/)
+KBO( :, 2,24,11) = (/&
+&4.3875E+00_JPRB,4.3854E+00_JPRB,5.0729E+00_JPRB,7.0552E+00_JPRB,8.5552E+00_JPRB,9.1952E+00_JPRB/)
+KBO( :, 3,24,11) = (/&
+&4.3298E+00_JPRB,4.3277E+00_JPRB,4.9395E+00_JPRB,6.8841E+00_JPRB,8.4129E+00_JPRB,9.0854E+00_JPRB/)
+KBO( :, 4,24,11) = (/&
+&4.3240E+00_JPRB,4.3219E+00_JPRB,4.8305E+00_JPRB,6.7106E+00_JPRB,8.2583E+00_JPRB,8.9534E+00_JPRB/)
+KBO( :, 5,24,11) = (/&
+&4.3568E+00_JPRB,4.3547E+00_JPRB,4.7450E+00_JPRB,6.5341E+00_JPRB,8.0917E+00_JPRB,8.8298E+00_JPRB/)
+KBO( :, 1,25,11) = (/&
+&3.8157E+00_JPRB,3.8139E+00_JPRB,5.1260E+00_JPRB,7.3753E+00_JPRB,9.0809E+00_JPRB,9.7303E+00_JPRB/)
+KBO( :, 2,25,11) = (/&
+&3.7828E+00_JPRB,3.7809E+00_JPRB,4.9881E+00_JPRB,7.2252E+00_JPRB,8.9546E+00_JPRB,9.6529E+00_JPRB/)
+KBO( :, 3,25,11) = (/&
+&3.7966E+00_JPRB,3.7948E+00_JPRB,4.8698E+00_JPRB,7.0694E+00_JPRB,8.8114E+00_JPRB,9.5492E+00_JPRB/)
+KBO( :, 4,25,11) = (/&
+&3.8447E+00_JPRB,3.8429E+00_JPRB,4.7808E+00_JPRB,6.9055E+00_JPRB,8.6548E+00_JPRB,9.4220E+00_JPRB/)
+KBO( :, 5,25,11) = (/&
+&3.9327E+00_JPRB,3.9309E+00_JPRB,4.7021E+00_JPRB,6.7298E+00_JPRB,8.4889E+00_JPRB,9.2936E+00_JPRB/)
+KBO( :, 1,26,11) = (/&
+&3.3036E+00_JPRB,3.3021E+00_JPRB,5.0575E+00_JPRB,7.5192E+00_JPRB,9.4189E+00_JPRB,1.0102E+01_JPRB/)
+KBO( :, 2,26,11) = (/&
+&3.3285E+00_JPRB,3.3270E+00_JPRB,4.9281E+00_JPRB,7.3849E+00_JPRB,9.3027E+00_JPRB,1.0041E+01_JPRB/)
+KBO( :, 3,26,11) = (/&
+&3.3889E+00_JPRB,3.3874E+00_JPRB,4.8326E+00_JPRB,7.2371E+00_JPRB,9.1673E+00_JPRB,9.9526E+00_JPRB/)
+KBO( :, 4,26,11) = (/&
+&3.4837E+00_JPRB,3.4822E+00_JPRB,4.7525E+00_JPRB,7.0754E+00_JPRB,9.0130E+00_JPRB,9.8334E+00_JPRB/)
+KBO( :, 5,26,11) = (/&
+&3.5869E+00_JPRB,3.5853E+00_JPRB,4.6879E+00_JPRB,6.9081E+00_JPRB,8.8429E+00_JPRB,9.7104E+00_JPRB/)
+KBO( :, 1,27,11) = (/&
+&2.9165E+00_JPRB,2.9152E+00_JPRB,4.9857E+00_JPRB,7.6560E+00_JPRB,9.7110E+00_JPRB,1.0421E+01_JPRB/)
+KBO( :, 2,27,11) = (/&
+&2.9834E+00_JPRB,2.9822E+00_JPRB,4.8877E+00_JPRB,7.5297E+00_JPRB,9.6106E+00_JPRB,1.0382E+01_JPRB/)
+KBO( :, 3,27,11) = (/&
+&3.0758E+00_JPRB,3.0745E+00_JPRB,4.8130E+00_JPRB,7.3870E+00_JPRB,9.4838E+00_JPRB,1.0306E+01_JPRB/)
+KBO( :, 4,27,11) = (/&
+&3.1796E+00_JPRB,3.1781E+00_JPRB,4.7485E+00_JPRB,7.2327E+00_JPRB,9.3303E+00_JPRB,1.0198E+01_JPRB/)
+KBO( :, 5,27,11) = (/&
+&3.2957E+00_JPRB,3.2941E+00_JPRB,4.7038E+00_JPRB,7.0683E+00_JPRB,9.1564E+00_JPRB,1.0089E+01_JPRB/)
+KBO( :, 1,28,11) = (/&
+&2.6155E+00_JPRB,2.6145E+00_JPRB,4.9275E+00_JPRB,7.7638E+00_JPRB,9.9551E+00_JPRB,1.0696E+01_JPRB/)
+KBO( :, 2,28,11) = (/&
+&2.7046E+00_JPRB,2.7035E+00_JPRB,4.8641E+00_JPRB,7.6476E+00_JPRB,9.8682E+00_JPRB,1.0682E+01_JPRB/)
+KBO( :, 3,28,11) = (/&
+&2.8078E+00_JPRB,2.8066E+00_JPRB,4.8086E+00_JPRB,7.5132E+00_JPRB,9.7479E+00_JPRB,1.0615E+01_JPRB/)
+KBO( :, 4,28,11) = (/&
+&2.9220E+00_JPRB,2.9207E+00_JPRB,4.7661E+00_JPRB,7.3606E+00_JPRB,9.5999E+00_JPRB,1.0521E+01_JPRB/)
+KBO( :, 5,28,11) = (/&
+&3.0419E+00_JPRB,3.0404E+00_JPRB,4.7235E+00_JPRB,7.2046E+00_JPRB,9.4195E+00_JPRB,1.0424E+01_JPRB/)
+KBO( :, 1,29,11) = (/&
+&2.3732E+00_JPRB,2.3723E+00_JPRB,4.8900E+00_JPRB,7.8375E+00_JPRB,1.0150E+01_JPRB,1.0951E+01_JPRB/)
+KBO( :, 2,29,11) = (/&
+&2.4712E+00_JPRB,2.4702E+00_JPRB,4.8481E+00_JPRB,7.7319E+00_JPRB,1.0078E+01_JPRB,1.0946E+01_JPRB/)
+KBO( :, 3,29,11) = (/&
+&2.5783E+00_JPRB,2.5771E+00_JPRB,4.8118E+00_JPRB,7.6037E+00_JPRB,9.9721E+00_JPRB,1.0893E+01_JPRB/)
+KBO( :, 4,29,11) = (/&
+&2.6902E+00_JPRB,2.6889E+00_JPRB,4.7850E+00_JPRB,7.4580E+00_JPRB,9.8268E+00_JPRB,1.0822E+01_JPRB/)
+KBO( :, 5,29,11) = (/&
+&2.8045E+00_JPRB,2.8032E+00_JPRB,4.7400E+00_JPRB,7.3154E+00_JPRB,9.6483E+00_JPRB,1.0741E+01_JPRB/)
+KBO( :, 1,30,11) = (/&
+&2.1658E+00_JPRB,2.1650E+00_JPRB,4.8677E+00_JPRB,7.8862E+00_JPRB,1.0317E+01_JPRB,1.1167E+01_JPRB/)
+KBO( :, 2,30,11) = (/&
+&2.2662E+00_JPRB,2.2652E+00_JPRB,4.8423E+00_JPRB,7.7911E+00_JPRB,1.0262E+01_JPRB,1.1177E+01_JPRB/)
+KBO( :, 3,30,11) = (/&
+&2.3698E+00_JPRB,2.3687E+00_JPRB,4.8249E+00_JPRB,7.6717E+00_JPRB,1.0162E+01_JPRB,1.1145E+01_JPRB/)
+KBO( :, 4,30,11) = (/&
+&2.4773E+00_JPRB,2.4761E+00_JPRB,4.7959E+00_JPRB,7.5389E+00_JPRB,1.0012E+01_JPRB,1.1105E+01_JPRB/)
+KBO( :, 5,30,11) = (/&
+&2.5877E+00_JPRB,2.5865E+00_JPRB,4.7569E+00_JPRB,7.4115E+00_JPRB,9.8340E+00_JPRB,1.1029E+01_JPRB/)
+KBO( :, 1,31,11) = (/&
+&1.9790E+00_JPRB,1.9782E+00_JPRB,4.8500E+00_JPRB,7.9143E+00_JPRB,1.0464E+01_JPRB,1.1366E+01_JPRB/)
+KBO( :, 2,31,11) = (/&
+&2.0776E+00_JPRB,2.0767E+00_JPRB,4.8427E+00_JPRB,7.8316E+00_JPRB,1.0417E+01_JPRB,1.1398E+01_JPRB/)
+KBO( :, 3,31,11) = (/&
+&2.1797E+00_JPRB,2.1787E+00_JPRB,4.8321E+00_JPRB,7.7240E+00_JPRB,1.0316E+01_JPRB,1.1410E+01_JPRB/)
+KBO( :, 4,31,11) = (/&
+&2.2842E+00_JPRB,2.2832E+00_JPRB,4.8021E+00_JPRB,7.6072E+00_JPRB,1.0171E+01_JPRB,1.1390E+01_JPRB/)
+KBO( :, 5,31,11) = (/&
+&2.3904E+00_JPRB,2.3893E+00_JPRB,4.7702E+00_JPRB,7.4874E+00_JPRB,9.9885E+00_JPRB,1.1305E+01_JPRB/)
+KBO( :, 1,32,11) = (/&
+&1.8065E+00_JPRB,1.8057E+00_JPRB,4.8337E+00_JPRB,7.9321E+00_JPRB,1.0594E+01_JPRB,1.1553E+01_JPRB/)
+KBO( :, 2,32,11) = (/&
+&1.9056E+00_JPRB,1.9048E+00_JPRB,4.8404E+00_JPRB,7.8602E+00_JPRB,1.0550E+01_JPRB,1.1632E+01_JPRB/)
+KBO( :, 3,32,11) = (/&
+&2.0071E+00_JPRB,2.0062E+00_JPRB,4.8291E+00_JPRB,7.7660E+00_JPRB,1.0447E+01_JPRB,1.1676E+01_JPRB/)
+KBO( :, 4,32,11) = (/&
+&2.1091E+00_JPRB,2.1082E+00_JPRB,4.8052E+00_JPRB,7.6656E+00_JPRB,1.0296E+01_JPRB,1.1648E+01_JPRB/)
+KBO( :, 5,32,11) = (/&
+&2.2144E+00_JPRB,2.2134E+00_JPRB,4.7806E+00_JPRB,7.5529E+00_JPRB,1.0105E+01_JPRB,1.1557E+01_JPRB/)
+KBO( :, 1,33,11) = (/&
+&1.6510E+00_JPRB,1.6503E+00_JPRB,4.8210E+00_JPRB,7.9482E+00_JPRB,1.0706E+01_JPRB,1.1767E+01_JPRB/)
+KBO( :, 2,33,11) = (/&
+&1.7494E+00_JPRB,1.7487E+00_JPRB,4.8343E+00_JPRB,7.8861E+00_JPRB,1.0658E+01_JPRB,1.1881E+01_JPRB/)
+KBO( :, 3,33,11) = (/&
+&1.8501E+00_JPRB,1.8493E+00_JPRB,4.8252E+00_JPRB,7.8076E+00_JPRB,1.0548E+01_JPRB,1.1918E+01_JPRB/)
+KBO( :, 4,33,11) = (/&
+&1.9524E+00_JPRB,1.9516E+00_JPRB,4.8101E+00_JPRB,7.7163E+00_JPRB,1.0391E+01_JPRB,1.1878E+01_JPRB/)
+KBO( :, 5,33,11) = (/&
+&2.0594E+00_JPRB,2.0586E+00_JPRB,4.7896E+00_JPRB,7.6047E+00_JPRB,1.0193E+01_JPRB,1.1783E+01_JPRB/)
+KBO( :, 1,34,11) = (/&
+&1.5098E+00_JPRB,1.5093E+00_JPRB,4.8119E+00_JPRB,7.9653E+00_JPRB,1.0798E+01_JPRB,1.1972E+01_JPRB/)
+KBO( :, 2,34,11) = (/&
+&1.6067E+00_JPRB,1.6061E+00_JPRB,4.8282E+00_JPRB,7.9164E+00_JPRB,1.0745E+01_JPRB,1.2091E+01_JPRB/)
+KBO( :, 3,34,11) = (/&
+&1.7068E+00_JPRB,1.7062E+00_JPRB,4.8254E+00_JPRB,7.8470E+00_JPRB,1.0632E+01_JPRB,1.2113E+01_JPRB/)
+KBO( :, 4,34,11) = (/&
+&1.8116E+00_JPRB,1.8109E+00_JPRB,4.8147E+00_JPRB,7.7622E+00_JPRB,1.0470E+01_JPRB,1.2073E+01_JPRB/)
+KBO( :, 5,34,11) = (/&
+&1.9232E+00_JPRB,1.9225E+00_JPRB,4.7977E+00_JPRB,7.6521E+00_JPRB,1.0264E+01_JPRB,1.1969E+01_JPRB/)
+KBO( :, 1,35,11) = (/&
+&1.3777E+00_JPRB,1.3773E+00_JPRB,4.8007E+00_JPRB,7.9865E+00_JPRB,1.0878E+01_JPRB,1.2152E+01_JPRB/)
+KBO( :, 2,35,11) = (/&
+&1.4720E+00_JPRB,1.4715E+00_JPRB,4.8220E+00_JPRB,7.9505E+00_JPRB,1.0824E+01_JPRB,1.2272E+01_JPRB/)
+KBO( :, 3,35,11) = (/&
+&1.5713E+00_JPRB,1.5708E+00_JPRB,4.8275E+00_JPRB,7.8907E+00_JPRB,1.0710E+01_JPRB,1.2296E+01_JPRB/)
+KBO( :, 4,35,11) = (/&
+&1.6790E+00_JPRB,1.6784E+00_JPRB,4.8220E+00_JPRB,7.8081E+00_JPRB,1.0547E+01_JPRB,1.2260E+01_JPRB/)
+KBO( :, 5,35,11) = (/&
+&1.7986E+00_JPRB,1.7980E+00_JPRB,4.8075E+00_JPRB,7.7002E+00_JPRB,1.0336E+01_JPRB,1.2159E+01_JPRB/)
+KBO( :, 1,36,11) = (/&
+&1.2514E+00_JPRB,1.2511E+00_JPRB,4.7868E+00_JPRB,8.0109E+00_JPRB,1.0946E+01_JPRB,1.2304E+01_JPRB/)
+KBO( :, 2,36,11) = (/&
+&1.3435E+00_JPRB,1.3431E+00_JPRB,4.8179E+00_JPRB,7.9877E+00_JPRB,1.0897E+01_JPRB,1.2427E+01_JPRB/)
+KBO( :, 3,36,11) = (/&
+&1.4435E+00_JPRB,1.4430E+00_JPRB,4.8314E+00_JPRB,7.9353E+00_JPRB,1.0788E+01_JPRB,1.2470E+01_JPRB/)
+KBO( :, 4,36,11) = (/&
+&1.5538E+00_JPRB,1.5533E+00_JPRB,4.8318E+00_JPRB,7.8582E+00_JPRB,1.0627E+01_JPRB,1.2438E+01_JPRB/)
+KBO( :, 5,36,11) = (/&
+&1.6810E+00_JPRB,1.6804E+00_JPRB,4.8203E+00_JPRB,7.7528E+00_JPRB,1.0416E+01_JPRB,1.2339E+01_JPRB/)
+KBO( :, 1,37,11) = (/&
+&1.1282E+00_JPRB,1.1280E+00_JPRB,4.7699E+00_JPRB,8.0315E+00_JPRB,1.1000E+01_JPRB,1.2396E+01_JPRB/)
+KBO( :, 2,37,11) = (/&
+&1.2167E+00_JPRB,1.2164E+00_JPRB,4.8125E+00_JPRB,8.0243E+00_JPRB,1.0970E+01_JPRB,1.2544E+01_JPRB/)
+KBO( :, 3,37,11) = (/&
+&1.3158E+00_JPRB,1.3155E+00_JPRB,4.8359E+00_JPRB,7.9814E+00_JPRB,1.0872E+01_JPRB,1.2615E+01_JPRB/)
+KBO( :, 4,37,11) = (/&
+&1.4284E+00_JPRB,1.4280E+00_JPRB,4.8417E+00_JPRB,7.9120E+00_JPRB,1.0722E+01_JPRB,1.2596E+01_JPRB/)
+KBO( :, 5,37,11) = (/&
+&1.5612E+00_JPRB,1.5606E+00_JPRB,4.8348E+00_JPRB,7.8131E+00_JPRB,1.0516E+01_JPRB,1.2504E+01_JPRB/)
+KBO( :, 1,38,11) = (/&
+&1.0204E+00_JPRB,1.0202E+00_JPRB,4.7523E+00_JPRB,8.0470E+00_JPRB,1.1041E+01_JPRB,1.2476E+01_JPRB/)
+KBO( :, 2,38,11) = (/&
+&1.1044E+00_JPRB,1.1042E+00_JPRB,4.8063E+00_JPRB,8.0526E+00_JPRB,1.1031E+01_JPRB,1.2656E+01_JPRB/)
+KBO( :, 3,38,11) = (/&
+&1.2026E+00_JPRB,1.2023E+00_JPRB,4.8389E+00_JPRB,8.0207E+00_JPRB,1.0945E+01_JPRB,1.2754E+01_JPRB/)
+KBO( :, 4,38,11) = (/&
+&1.3171E+00_JPRB,1.3167E+00_JPRB,4.8508E+00_JPRB,7.9583E+00_JPRB,1.0805E+01_JPRB,1.2746E+01_JPRB/)
+KBO( :, 5,38,11) = (/&
+&1.4551E+00_JPRB,1.4546E+00_JPRB,4.8486E+00_JPRB,7.8661E+00_JPRB,1.0608E+01_JPRB,1.2659E+01_JPRB/)
+KBO( :, 1,39,11) = (/&
+&9.2697E-01_JPRB,9.2690E-01_JPRB,4.7345E+00_JPRB,8.0529E+00_JPRB,1.1070E+01_JPRB,1.2554E+01_JPRB/)
+KBO( :, 2,39,11) = (/&
+&1.0083E+00_JPRB,1.0081E+00_JPRB,4.8007E+00_JPRB,8.0735E+00_JPRB,1.1079E+01_JPRB,1.2773E+01_JPRB/)
+KBO( :, 3,39,11) = (/&
+&1.1037E+00_JPRB,1.1035E+00_JPRB,4.8402E+00_JPRB,8.0520E+00_JPRB,1.1008E+01_JPRB,1.2893E+01_JPRB/)
+KBO( :, 4,39,11) = (/&
+&1.2204E+00_JPRB,1.2201E+00_JPRB,4.8590E+00_JPRB,7.9971E+00_JPRB,1.0876E+01_JPRB,1.2892E+01_JPRB/)
+KBO( :, 5,39,11) = (/&
+&1.3628E+00_JPRB,1.3623E+00_JPRB,4.8606E+00_JPRB,7.9113E+00_JPRB,1.0688E+01_JPRB,1.2810E+01_JPRB/)
+KBO( :, 1,40,11) = (/&
+&8.3758E-01_JPRB,8.3760E-01_JPRB,4.7063E+00_JPRB,8.0487E+00_JPRB,1.1082E+01_JPRB,1.2556E+01_JPRB/)
+KBO( :, 2,40,11) = (/&
+&9.1581E-01_JPRB,9.1577E-01_JPRB,4.7869E+00_JPRB,8.0879E+00_JPRB,1.1120E+01_JPRB,1.2816E+01_JPRB/)
+KBO( :, 3,40,11) = (/&
+&1.0079E+00_JPRB,1.0078E+00_JPRB,4.8371E+00_JPRB,8.0805E+00_JPRB,1.1070E+01_JPRB,1.2970E+01_JPRB/)
+KBO( :, 4,40,11) = (/&
+&1.1225E+00_JPRB,1.1222E+00_JPRB,4.8639E+00_JPRB,8.0357E+00_JPRB,1.0954E+01_JPRB,1.2989E+01_JPRB/)
+KBO( :, 5,40,11) = (/&
+&1.2665E+00_JPRB,1.2660E+00_JPRB,4.8714E+00_JPRB,7.9591E+00_JPRB,1.0779E+01_JPRB,1.2926E+01_JPRB/)
+KBO( :, 1,41,11) = (/&
+&7.5804E-01_JPRB,7.5812E-01_JPRB,4.6746E+00_JPRB,8.0347E+00_JPRB,1.1077E+01_JPRB,1.2530E+01_JPRB/)
+KBO( :, 2,41,11) = (/&
+&8.3424E-01_JPRB,8.3425E-01_JPRB,4.7690E+00_JPRB,8.0936E+00_JPRB,1.1147E+01_JPRB,1.2837E+01_JPRB/)
+KBO( :, 3,41,11) = (/&
+&9.2284E-01_JPRB,9.2272E-01_JPRB,4.8295E+00_JPRB,8.1031E+00_JPRB,1.1121E+01_JPRB,1.3026E+01_JPRB/)
+KBO( :, 4,41,11) = (/&
+&1.0345E+00_JPRB,1.0342E+00_JPRB,4.8660E+00_JPRB,8.0690E+00_JPRB,1.1022E+01_JPRB,1.3069E+01_JPRB/)
+KBO( :, 5,41,11) = (/&
+&1.1779E+00_JPRB,1.1775E+00_JPRB,4.8792E+00_JPRB,8.0025E+00_JPRB,1.0862E+01_JPRB,1.3028E+01_JPRB/)
+KBO( :, 1,42,11) = (/&
+&6.8836E-01_JPRB,6.8850E-01_JPRB,4.6395E+00_JPRB,8.0108E+00_JPRB,1.1057E+01_JPRB,1.2493E+01_JPRB/)
+KBO( :, 2,42,11) = (/&
+&7.6202E-01_JPRB,7.6208E-01_JPRB,4.7478E+00_JPRB,8.0915E+00_JPRB,1.1161E+01_JPRB,1.2847E+01_JPRB/)
+KBO( :, 3,42,11) = (/&
+&8.4897E-01_JPRB,8.4889E-01_JPRB,4.8194E+00_JPRB,8.1177E+00_JPRB,1.1160E+01_JPRB,1.3071E+01_JPRB/)
+KBO( :, 4,42,11) = (/&
+&9.5721E-01_JPRB,9.5697E-01_JPRB,4.8642E+00_JPRB,8.0964E+00_JPRB,1.1081E+01_JPRB,1.3142E+01_JPRB/)
+KBO( :, 5,42,11) = (/&
+&1.0979E+00_JPRB,1.0975E+00_JPRB,4.8838E+00_JPRB,8.0399E+00_JPRB,1.0937E+01_JPRB,1.3122E+01_JPRB/)
+KBO( :, 1,43,11) = (/&
+&6.2327E-01_JPRB,6.2346E-01_JPRB,4.5920E+00_JPRB,7.9682E+00_JPRB,1.1010E+01_JPRB,1.2410E+01_JPRB/)
+KBO( :, 2,43,11) = (/&
+&6.9363E-01_JPRB,6.9372E-01_JPRB,4.7172E+00_JPRB,8.0779E+00_JPRB,1.1157E+01_JPRB,1.2823E+01_JPRB/)
+KBO( :, 3,43,11) = (/&
+&7.7812E-01_JPRB,7.7808E-01_JPRB,4.8024E+00_JPRB,8.1237E+00_JPRB,1.1190E+01_JPRB,1.3092E+01_JPRB/)
+KBO( :, 4,43,11) = (/&
+&8.8257E-01_JPRB,8.8240E-01_JPRB,4.8564E+00_JPRB,8.1185E+00_JPRB,1.1134E+01_JPRB,1.3199E+01_JPRB/)
+KBO( :, 5,43,11) = (/&
+&1.0175E+00_JPRB,1.0172E+00_JPRB,4.8852E+00_JPRB,8.0748E+00_JPRB,1.1010E+01_JPRB,1.3208E+01_JPRB/)
+KBO( :, 1,44,11) = (/&
+&5.6319E-01_JPRB,5.6344E-01_JPRB,4.5362E+00_JPRB,7.9098E+00_JPRB,1.0942E+01_JPRB,1.2291E+01_JPRB/)
+KBO( :, 2,44,11) = (/&
+&6.3128E-01_JPRB,6.3143E-01_JPRB,4.6773E+00_JPRB,8.0513E+00_JPRB,1.1133E+01_JPRB,1.2773E+01_JPRB/)
+KBO( :, 3,44,11) = (/&
+&7.1290E-01_JPRB,7.1288E-01_JPRB,4.7788E+00_JPRB,8.1200E+00_JPRB,1.1206E+01_JPRB,1.3092E+01_JPRB/)
+KBO( :, 4,44,11) = (/&
+&8.1370E-01_JPRB,8.1356E-01_JPRB,4.8431E+00_JPRB,8.1349E+00_JPRB,1.1178E+01_JPRB,1.3245E+01_JPRB/)
+KBO( :, 5,44,11) = (/&
+&9.4155E-01_JPRB,9.4126E-01_JPRB,4.8828E+00_JPRB,8.1039E+00_JPRB,1.1076E+01_JPRB,1.3283E+01_JPRB/)
+KBO( :, 1,45,11) = (/&
+&5.0848E-01_JPRB,5.0877E-01_JPRB,4.4759E+00_JPRB,7.8396E+00_JPRB,1.0853E+01_JPRB,1.2157E+01_JPRB/)
+KBO( :, 2,45,11) = (/&
+&5.7558E-01_JPRB,5.7574E-01_JPRB,4.6321E+00_JPRB,8.0148E+00_JPRB,1.1090E+01_JPRB,1.2710E+01_JPRB/)
+KBO( :, 3,45,11) = (/&
+&6.5428E-01_JPRB,6.5431E-01_JPRB,4.7490E+00_JPRB,8.1075E+00_JPRB,1.1206E+01_JPRB,1.3081E+01_JPRB/)
+KBO( :, 4,45,11) = (/&
+&7.5171E-01_JPRB,7.5160E-01_JPRB,4.8272E+00_JPRB,8.1428E+00_JPRB,1.1211E+01_JPRB,1.3283E+01_JPRB/)
+KBO( :, 5,45,11) = (/&
+&8.7320E-01_JPRB,8.7295E-01_JPRB,4.8756E+00_JPRB,8.1271E+00_JPRB,1.1133E+01_JPRB,1.3354E+01_JPRB/)
+KBO( :, 1,46,11) = (/&
+&4.5749E-01_JPRB,4.5781E-01_JPRB,4.4050E+00_JPRB,7.7477E+00_JPRB,1.0733E+01_JPRB,1.1988E+01_JPRB/)
+KBO( :, 2,46,11) = (/&
+&5.2335E-01_JPRB,5.2354E-01_JPRB,4.5777E+00_JPRB,7.9624E+00_JPRB,1.1027E+01_JPRB,1.2622E+01_JPRB/)
+KBO( :, 3,46,11) = (/&
+&5.9972E-01_JPRB,5.9977E-01_JPRB,4.7113E+00_JPRB,8.0849E+00_JPRB,1.1188E+01_JPRB,1.3051E+01_JPRB/)
+KBO( :, 4,46,11) = (/&
+&6.9340E-01_JPRB,6.9332E-01_JPRB,4.8042E+00_JPRB,8.1402E+00_JPRB,1.1232E+01_JPRB,1.3309E+01_JPRB/)
+KBO( :, 5,46,11) = (/&
+&8.0900E-01_JPRB,8.0880E-01_JPRB,4.8629E+00_JPRB,8.1438E+00_JPRB,1.1182E+01_JPRB,1.3415E+01_JPRB/)
+KBO( :, 1,47,11) = (/&
+&4.0799E-01_JPRB,4.0834E-01_JPRB,4.3192E+00_JPRB,7.6262E+00_JPRB,1.0570E+01_JPRB,1.1748E+01_JPRB/)
+KBO( :, 2,47,11) = (/&
+&4.7291E-01_JPRB,4.7311E-01_JPRB,4.5111E+00_JPRB,7.8858E+00_JPRB,1.0930E+01_JPRB,1.2474E+01_JPRB/)
+KBO( :, 3,47,11) = (/&
+&5.4737E-01_JPRB,5.4746E-01_JPRB,4.6622E+00_JPRB,8.0462E+00_JPRB,1.1144E+01_JPRB,1.2972E+01_JPRB/)
+KBO( :, 4,47,11) = (/&
+&6.3579E-01_JPRB,6.3575E-01_JPRB,4.7722E+00_JPRB,8.1275E+00_JPRB,1.1235E+01_JPRB,1.3300E+01_JPRB/)
+KBO( :, 5,47,11) = (/&
+&7.4500E-01_JPRB,7.4486E-01_JPRB,4.8444E+00_JPRB,8.1534E+00_JPRB,1.1220E+01_JPRB,1.3455E+01_JPRB/)
+KBO( :, 1,48,11) = (/&
+&3.6234E-01_JPRB,3.6271E-01_JPRB,4.2229E+00_JPRB,7.4847E+00_JPRB,1.0381E+01_JPRB,1.1491E+01_JPRB/)
+KBO( :, 2,48,11) = (/&
+&4.2649E-01_JPRB,4.2672E-01_JPRB,4.4362E+00_JPRB,7.7928E+00_JPRB,1.0805E+01_JPRB,1.2307E+01_JPRB/)
+KBO( :, 3,48,11) = (/&
+&4.9899E-01_JPRB,4.9911E-01_JPRB,4.6047E+00_JPRB,7.9930E+00_JPRB,1.1077E+01_JPRB,1.2882E+01_JPRB/)
+KBO( :, 4,48,11) = (/&
+&5.8344E-01_JPRB,5.8343E-01_JPRB,4.7326E+00_JPRB,8.1042E+00_JPRB,1.1219E+01_JPRB,1.3280E+01_JPRB/)
+KBO( :, 5,48,11) = (/&
+&6.8655E-01_JPRB,6.8645E-01_JPRB,4.8209E+00_JPRB,8.1532E+00_JPRB,1.1244E+01_JPRB,1.3490E+01_JPRB/)
+KBO( :, 1,49,11) = (/&
+&3.2105E-01_JPRB,3.2141E-01_JPRB,4.1218E+00_JPRB,7.3215E+00_JPRB,1.0162E+01_JPRB,1.1223E+01_JPRB/)
+KBO( :, 2,49,11) = (/&
+&3.8263E-01_JPRB,3.8290E-01_JPRB,4.3538E+00_JPRB,7.6804E+00_JPRB,1.0654E+01_JPRB,1.2130E+01_JPRB/)
+KBO( :, 3,49,11) = (/&
+&4.5423E-01_JPRB,4.5438E-01_JPRB,4.5413E+00_JPRB,7.9230E+00_JPRB,1.0989E+01_JPRB,1.2791E+01_JPRB/)
+KBO( :, 4,49,11) = (/&
+&5.3583E-01_JPRB,5.3587E-01_JPRB,4.6861E+00_JPRB,8.0697E+00_JPRB,1.1180E+01_JPRB,1.3260E+01_JPRB/)
+KBO( :, 5,49,11) = (/&
+&6.3293E-01_JPRB,6.3285E-01_JPRB,4.7905E+00_JPRB,8.1418E+00_JPRB,1.1253E+01_JPRB,1.3527E+01_JPRB/)
+KBO( :, 1,50,11) = (/&
+&2.8508E-01_JPRB,2.8546E-01_JPRB,4.0216E+00_JPRB,7.1533E+00_JPRB,9.9242E+00_JPRB,1.0908E+01_JPRB/)
+KBO( :, 2,50,11) = (/&
+&3.4378E-01_JPRB,3.4406E-01_JPRB,4.2684E+00_JPRB,7.5560E+00_JPRB,1.0485E+01_JPRB,1.1896E+01_JPRB/)
+KBO( :, 3,50,11) = (/&
+&4.1407E-01_JPRB,4.1424E-01_JPRB,4.4746E+00_JPRB,7.8430E+00_JPRB,1.0882E+01_JPRB,1.2647E+01_JPRB/)
+KBO( :, 4,50,11) = (/&
+&4.9363E-01_JPRB,4.9370E-01_JPRB,4.6366E+00_JPRB,8.0253E+00_JPRB,1.1126E+01_JPRB,1.3186E+01_JPRB/)
+KBO( :, 5,50,11) = (/&
+&5.8619E-01_JPRB,5.8614E-01_JPRB,4.7566E+00_JPRB,8.1231E+00_JPRB,1.1244E+01_JPRB,1.3516E+01_JPRB/)
+KBO( :, 1,51,11) = (/&
+&2.5326E-01_JPRB,2.5365E-01_JPRB,3.9197E+00_JPRB,6.9713E+00_JPRB,9.6644E+00_JPRB,1.0563E+01_JPRB/)
+KBO( :, 2,51,11) = (/&
+&3.0874E-01_JPRB,3.0902E-01_JPRB,4.1778E+00_JPRB,7.4188E+00_JPRB,1.0300E+01_JPRB,1.1619E+01_JPRB/)
+KBO( :, 3,51,11) = (/&
+&3.7711E-01_JPRB,3.7728E-01_JPRB,4.4030E+00_JPRB,7.7505E+00_JPRB,1.0757E+01_JPRB,1.2466E+01_JPRB/)
+KBO( :, 4,51,11) = (/&
+&4.5549E-01_JPRB,4.5558E-01_JPRB,4.5816E+00_JPRB,7.9699E+00_JPRB,1.1056E+01_JPRB,1.3074E+01_JPRB/)
+KBO( :, 5,51,11) = (/&
+&5.4422E-01_JPRB,5.4419E-01_JPRB,4.7173E+00_JPRB,8.0963E+00_JPRB,1.1218E+01_JPRB,1.3472E+01_JPRB/)
+KBO( :, 1,52,11) = (/&
+&2.2461E-01_JPRB,2.2501E-01_JPRB,3.8110E+00_JPRB,6.7727E+00_JPRB,9.3780E+00_JPRB,1.0204E+01_JPRB/)
+KBO( :, 2,52,11) = (/&
+&2.7696E-01_JPRB,2.7724E-01_JPRB,4.0846E+00_JPRB,7.2661E+00_JPRB,1.0090E+01_JPRB,1.1325E+01_JPRB/)
+KBO( :, 3,52,11) = (/&
+&3.4251E-01_JPRB,3.4273E-01_JPRB,4.3258E+00_JPRB,7.6413E+00_JPRB,1.0608E+01_JPRB,1.2266E+01_JPRB/)
+KBO( :, 4,52,11) = (/&
+&4.1924E-01_JPRB,4.1934E-01_JPRB,4.5215E+00_JPRB,7.9004E+00_JPRB,1.0966E+01_JPRB,1.2948E+01_JPRB/)
+KBO( :, 5,52,11) = (/&
+&5.0516E-01_JPRB,5.0516E-01_JPRB,4.6729E+00_JPRB,8.0607E+00_JPRB,1.1176E+01_JPRB,1.3418E+01_JPRB/)
+KBO( :, 1,53,11) = (/&
+&1.9876E-01_JPRB,1.9925E-01_JPRB,3.6957E+00_JPRB,6.5526E+00_JPRB,9.0627E+00_JPRB,9.8215E+00_JPRB/)
+KBO( :, 2,53,11) = (/&
+&2.4812E-01_JPRB,2.4842E-01_JPRB,3.9863E+00_JPRB,7.0970E+00_JPRB,9.8501E+00_JPRB,1.1018E+01_JPRB/)
+KBO( :, 3,53,11) = (/&
+&3.1019E-01_JPRB,3.1042E-01_JPRB,4.2400E+00_JPRB,7.5167E+00_JPRB,1.0436E+01_JPRB,1.2052E+01_JPRB/)
+KBO( :, 4,53,11) = (/&
+&3.8453E-01_JPRB,3.8465E-01_JPRB,4.4543E+00_JPRB,7.8181E+00_JPRB,1.0855E+01_JPRB,1.2811E+01_JPRB/)
+KBO( :, 5,53,11) = (/&
+&4.6824E-01_JPRB,4.6827E-01_JPRB,4.6221E+00_JPRB,8.0127E+00_JPRB,1.1114E+01_JPRB,1.3357E+01_JPRB/)
+KBO( :, 1,54,11) = (/&
+&1.7658E-01_JPRB,1.7738E-01_JPRB,3.5830E+00_JPRB,6.3331E+00_JPRB,8.7501E+00_JPRB,9.3830E+00_JPRB/)
+KBO( :, 2,54,11) = (/&
+&2.2311E-01_JPRB,2.2343E-01_JPRB,3.8924E+00_JPRB,6.9272E+00_JPRB,9.6066E+00_JPRB,1.0637E+01_JPRB/)
+KBO( :, 3,54,11) = (/&
+&2.8225E-01_JPRB,2.8249E-01_JPRB,4.1567E+00_JPRB,7.3875E+00_JPRB,1.0262E+01_JPRB,1.1745E+01_JPRB/)
+KBO( :, 4,54,11) = (/&
+&3.5407E-01_JPRB,3.5420E-01_JPRB,4.3869E+00_JPRB,7.7293E+00_JPRB,1.0733E+01_JPRB,1.2587E+01_JPRB/)
+KBO( :, 5,54,11) = (/&
+&4.3599E-01_JPRB,4.3605E-01_JPRB,4.5705E+00_JPRB,7.9578E+00_JPRB,1.1045E+01_JPRB,1.3213E+01_JPRB/)
+KBO( :, 1,55,11) = (/&
+&1.5693E-01_JPRB,1.5821E-01_JPRB,3.4683E+00_JPRB,6.1089E+00_JPRB,8.4282E+00_JPRB,8.9090E+00_JPRB/)
+KBO( :, 2,55,11) = (/&
+&2.0085E-01_JPRB,2.0128E-01_JPRB,3.7963E+00_JPRB,6.7515E+00_JPRB,9.3517E+00_JPRB,1.0215E+01_JPRB/)
+KBO( :, 3,55,11) = (/&
+&2.5734E-01_JPRB,2.5756E-01_JPRB,4.0737E+00_JPRB,7.2511E+00_JPRB,1.0072E+01_JPRB,1.1362E+01_JPRB/)
+KBO( :, 4,55,11) = (/&
+&3.2630E-01_JPRB,3.2643E-01_JPRB,4.3183E+00_JPRB,7.6321E+00_JPRB,1.0598E+01_JPRB,1.2305E+01_JPRB/)
+KBO( :, 5,55,11) = (/&
+&4.0605E-01_JPRB,4.0612E-01_JPRB,4.5166E+00_JPRB,7.8950E+00_JPRB,1.0962E+01_JPRB,1.2994E+01_JPRB/)
+KBO( :, 1,56,11) = (/&
+&1.3887E-01_JPRB,1.4103E-01_JPRB,3.3452E+00_JPRB,5.8712E+00_JPRB,8.0833E+00_JPRB,8.4282E+00_JPRB/)
+KBO( :, 2,56,11) = (/&
+&1.8055E-01_JPRB,1.8122E-01_JPRB,3.6957E+00_JPRB,6.5591E+00_JPRB,9.0757E+00_JPRB,9.7805E+00_JPRB/)
+KBO( :, 3,56,11) = (/&
+&2.3436E-01_JPRB,2.3458E-01_JPRB,3.9878E+00_JPRB,7.1027E+00_JPRB,9.8624E+00_JPRB,1.0961E+01_JPRB/)
+KBO( :, 4,56,11) = (/&
+&2.9996E-01_JPRB,3.0009E-01_JPRB,4.2431E+00_JPRB,7.5221E+00_JPRB,1.0447E+01_JPRB,1.1989E+01_JPRB/)
+KBO( :, 5,56,11) = (/&
+&3.7712E-01_JPRB,3.7719E-01_JPRB,4.4577E+00_JPRB,7.8227E+00_JPRB,1.0864E+01_JPRB,1.2750E+01_JPRB/)
+KBO( :, 1,57,11) = (/&
+&1.2231E-01_JPRB,1.2572E-01_JPRB,3.2149E+00_JPRB,5.6195E+00_JPRB,7.7189E+00_JPRB,7.9409E+00_JPRB/)
+KBO( :, 2,57,11) = (/&
+&1.6188E-01_JPRB,1.6303E-01_JPRB,3.5895E+00_JPRB,6.3509E+00_JPRB,8.7789E+00_JPRB,9.3239E+00_JPRB/)
+KBO( :, 3,57,11) = (/&
+&2.1281E-01_JPRB,2.1309E-01_JPRB,3.8984E+00_JPRB,6.9426E+00_JPRB,9.6313E+00_JPRB,1.0551E+01_JPRB/)
+KBO( :, 4,57,11) = (/&
+&2.7533E-01_JPRB,2.7549E-01_JPRB,4.1635E+00_JPRB,7.3997E+00_JPRB,1.0280E+01_JPRB,1.1629E+01_JPRB/)
+KBO( :, 5,57,11) = (/&
+&3.4953E-01_JPRB,3.4962E-01_JPRB,4.3933E+00_JPRB,7.7390E+00_JPRB,1.0749E+01_JPRB,1.2483E+01_JPRB/)
+KBO( :, 1,58,11) = (/&
+&1.0753E-01_JPRB,1.1255E-01_JPRB,3.0845E+00_JPRB,5.3675E+00_JPRB,7.3519E+00_JPRB,7.4714E+00_JPRB/)
+KBO( :, 2,58,11) = (/&
+&1.4527E-01_JPRB,1.4713E-01_JPRB,3.4823E+00_JPRB,6.1407E+00_JPRB,8.4780E+00_JPRB,8.8781E+00_JPRB/)
+KBO( :, 3,58,11) = (/&
+&1.9346E-01_JPRB,1.9393E-01_JPRB,3.8086E+00_JPRB,6.7779E+00_JPRB,9.3926E+00_JPRB,1.0139E+01_JPRB/)
+KBO( :, 4,58,11) = (/&
+&2.5331E-01_JPRB,2.5345E-01_JPRB,4.0858E+00_JPRB,7.2725E+00_JPRB,1.0104E+01_JPRB,1.1238E+01_JPRB/)
+KBO( :, 5,58,11) = (/&
+&3.2441E-01_JPRB,3.2451E-01_JPRB,4.3290E+00_JPRB,7.6484E+00_JPRB,1.0623E+01_JPRB,1.2180E+01_JPRB/)
+KBO( :, 1,59,11) = (/&
+&9.9614E-02_JPRB,1.0577E-01_JPRB,3.0288E+00_JPRB,5.2610E+00_JPRB,7.1978E+00_JPRB,7.2394E+00_JPRB/)
+KBO( :, 2,59,11) = (/&
+&1.3736E-01_JPRB,1.3969E-01_JPRB,3.4366E+00_JPRB,6.0532E+00_JPRB,8.3509E+00_JPRB,8.6179E+00_JPRB/)
+KBO( :, 3,59,11) = (/&
+&1.8506E-01_JPRB,1.8566E-01_JPRB,3.7708E+00_JPRB,6.7076E+00_JPRB,9.2912E+00_JPRB,9.8422E+00_JPRB/)
+KBO( :, 4,59,11) = (/&
+&2.4408E-01_JPRB,2.4421E-01_JPRB,4.0531E+00_JPRB,7.2180E+00_JPRB,1.0029E+01_JPRB,1.0900E+01_JPRB/)
+KBO( :, 5,59,11) = (/&
+&3.1395E-01_JPRB,3.1406E-01_JPRB,4.3016E+00_JPRB,7.6085E+00_JPRB,1.0568E+01_JPRB,1.1809E+01_JPRB/)
+KBO( :, 1,13,12) = (/&
+&1.5071E+01_JPRB,1.5062E+01_JPRB,1.1553E+01_JPRB,8.0422E+00_JPRB,5.1775E+00_JPRB,4.4276E+00_JPRB/)
+KBO( :, 2,13,12) = (/&
+&1.5045E+01_JPRB,1.5037E+01_JPRB,1.1523E+01_JPRB,8.0068E+00_JPRB,5.0603E+00_JPRB,4.3468E+00_JPRB/)
+KBO( :, 3,13,12) = (/&
+&1.4932E+01_JPRB,1.4924E+01_JPRB,1.1428E+01_JPRB,7.9305E+00_JPRB,4.9434E+00_JPRB,4.2743E+00_JPRB/)
+KBO( :, 4,13,12) = (/&
+&1.4793E+01_JPRB,1.4785E+01_JPRB,1.1318E+01_JPRB,7.8509E+00_JPRB,4.8345E+00_JPRB,4.2338E+00_JPRB/)
+KBO( :, 5,13,12) = (/&
+&1.4616E+01_JPRB,1.4607E+01_JPRB,1.1172E+01_JPRB,7.7373E+00_JPRB,4.7181E+00_JPRB,4.2382E+00_JPRB/)
+KBO( :, 1,14,12) = (/&
+&1.6109E+01_JPRB,1.6100E+01_JPRB,1.2313E+01_JPRB,8.5158E+00_JPRB,5.5307E+00_JPRB,4.8392E+00_JPRB/)
+KBO( :, 2,14,12) = (/&
+&1.6026E+01_JPRB,1.6017E+01_JPRB,1.2244E+01_JPRB,8.4632E+00_JPRB,5.4108E+00_JPRB,4.7399E+00_JPRB/)
+KBO( :, 3,14,12) = (/&
+&1.5874E+01_JPRB,1.5865E+01_JPRB,1.2127E+01_JPRB,8.3786E+00_JPRB,5.2843E+00_JPRB,4.6480E+00_JPRB/)
+KBO( :, 4,14,12) = (/&
+&1.5690E+01_JPRB,1.5681E+01_JPRB,1.1982E+01_JPRB,8.2687E+00_JPRB,5.1442E+00_JPRB,4.5663E+00_JPRB/)
+KBO( :, 5,14,12) = (/&
+&1.5467E+01_JPRB,1.5458E+01_JPRB,1.1810E+01_JPRB,8.1473E+00_JPRB,5.0031E+00_JPRB,4.5067E+00_JPRB/)
+KBO( :, 1,15,12) = (/&
+&1.6950E+01_JPRB,1.6940E+01_JPRB,1.2936E+01_JPRB,8.9243E+00_JPRB,5.9139E+00_JPRB,5.3392E+00_JPRB/)
+KBO( :, 2,15,12) = (/&
+&1.6795E+01_JPRB,1.6786E+01_JPRB,1.2817E+01_JPRB,8.8403E+00_JPRB,5.7728E+00_JPRB,5.2173E+00_JPRB/)
+KBO( :, 3,15,12) = (/&
+&1.6618E+01_JPRB,1.6608E+01_JPRB,1.2675E+01_JPRB,8.7335E+00_JPRB,5.6294E+00_JPRB,5.1076E+00_JPRB/)
+KBO( :, 4,15,12) = (/&
+&1.6363E+01_JPRB,1.6354E+01_JPRB,1.2477E+01_JPRB,8.5926E+00_JPRB,5.4844E+00_JPRB,5.0174E+00_JPRB/)
+KBO( :, 5,15,12) = (/&
+&1.6071E+01_JPRB,1.6061E+01_JPRB,1.2263E+01_JPRB,8.4516E+00_JPRB,5.3505E+00_JPRB,4.9217E+00_JPRB/)
+KBO( :, 1,16,12) = (/&
+&1.7483E+01_JPRB,1.7473E+01_JPRB,1.3331E+01_JPRB,9.1930E+00_JPRB,6.3135E+00_JPRB,5.9094E+00_JPRB/)
+KBO( :, 2,16,12) = (/&
+&1.7265E+01_JPRB,1.7255E+01_JPRB,1.3158E+01_JPRB,9.0640E+00_JPRB,6.1752E+00_JPRB,5.7636E+00_JPRB/)
+KBO( :, 3,16,12) = (/&
+&1.7001E+01_JPRB,1.6992E+01_JPRB,1.2961E+01_JPRB,8.9272E+00_JPRB,6.0421E+00_JPRB,5.6420E+00_JPRB/)
+KBO( :, 4,16,12) = (/&
+&1.6715E+01_JPRB,1.6706E+01_JPRB,1.2750E+01_JPRB,8.7873E+00_JPRB,5.9067E+00_JPRB,5.5250E+00_JPRB/)
+KBO( :, 5,16,12) = (/&
+&1.6400E+01_JPRB,1.6391E+01_JPRB,1.2509E+01_JPRB,8.6238E+00_JPRB,5.7670E+00_JPRB,5.4408E+00_JPRB/)
+KBO( :, 1,17,12) = (/&
+&1.7611E+01_JPRB,1.7601E+01_JPRB,1.3423E+01_JPRB,9.2865E+00_JPRB,6.8286E+00_JPRB,6.5192E+00_JPRB/)
+KBO( :, 2,17,12) = (/&
+&1.7351E+01_JPRB,1.7341E+01_JPRB,1.3231E+01_JPRB,9.1506E+00_JPRB,6.6893E+00_JPRB,6.3748E+00_JPRB/)
+KBO( :, 3,17,12) = (/&
+&1.7056E+01_JPRB,1.7047E+01_JPRB,1.3013E+01_JPRB,9.0104E+00_JPRB,6.5437E+00_JPRB,6.2526E+00_JPRB/)
+KBO( :, 4,17,12) = (/&
+&1.6747E+01_JPRB,1.6738E+01_JPRB,1.2778E+01_JPRB,8.8490E+00_JPRB,6.3936E+00_JPRB,6.1321E+00_JPRB/)
+KBO( :, 5,17,12) = (/&
+&1.6425E+01_JPRB,1.6416E+01_JPRB,1.2531E+01_JPRB,8.6800E+00_JPRB,6.2394E+00_JPRB,6.0341E+00_JPRB/)
+KBO( :, 1,18,12) = (/&
+&1.7373E+01_JPRB,1.7363E+01_JPRB,1.3259E+01_JPRB,9.2987E+00_JPRB,7.4434E+00_JPRB,7.1986E+00_JPRB/)
+KBO( :, 2,18,12) = (/&
+&1.7075E+01_JPRB,1.7065E+01_JPRB,1.3035E+01_JPRB,9.1492E+00_JPRB,7.2871E+00_JPRB,7.0606E+00_JPRB/)
+KBO( :, 3,18,12) = (/&
+&1.6756E+01_JPRB,1.6747E+01_JPRB,1.2796E+01_JPRB,8.9869E+00_JPRB,7.1229E+00_JPRB,6.9365E+00_JPRB/)
+KBO( :, 4,18,12) = (/&
+&1.6448E+01_JPRB,1.6438E+01_JPRB,1.2559E+01_JPRB,8.8102E+00_JPRB,6.9614E+00_JPRB,6.7953E+00_JPRB/)
+KBO( :, 5,18,12) = (/&
+&1.6127E+01_JPRB,1.6118E+01_JPRB,1.2311E+01_JPRB,8.6284E+00_JPRB,6.8009E+00_JPRB,6.6712E+00_JPRB/)
+KBO( :, 1,19,12) = (/&
+&1.6746E+01_JPRB,1.6736E+01_JPRB,1.2803E+01_JPRB,9.3167E+00_JPRB,8.0934E+00_JPRB,7.9604E+00_JPRB/)
+KBO( :, 2,19,12) = (/&
+&1.6435E+01_JPRB,1.6426E+01_JPRB,1.2567E+01_JPRB,9.1426E+00_JPRB,7.9243E+00_JPRB,7.8083E+00_JPRB/)
+KBO( :, 3,19,12) = (/&
+&1.6123E+01_JPRB,1.6114E+01_JPRB,1.2329E+01_JPRB,8.9518E+00_JPRB,7.7527E+00_JPRB,7.6627E+00_JPRB/)
+KBO( :, 4,19,12) = (/&
+&1.5818E+01_JPRB,1.5809E+01_JPRB,1.2094E+01_JPRB,8.7559E+00_JPRB,7.5782E+00_JPRB,7.5080E+00_JPRB/)
+KBO( :, 5,19,12) = (/&
+&1.5498E+01_JPRB,1.5490E+01_JPRB,1.1845E+01_JPRB,8.5563E+00_JPRB,7.3997E+00_JPRB,7.3552E+00_JPRB/)
+KBO( :, 1,20,12) = (/&
+&1.5808E+01_JPRB,1.5799E+01_JPRB,1.2109E+01_JPRB,9.3560E+00_JPRB,8.7540E+00_JPRB,8.7978E+00_JPRB/)
+KBO( :, 2,20,12) = (/&
+&1.5503E+01_JPRB,1.5494E+01_JPRB,1.1873E+01_JPRB,9.1479E+00_JPRB,8.5752E+00_JPRB,8.6307E+00_JPRB/)
+KBO( :, 3,20,12) = (/&
+&1.5194E+01_JPRB,1.5185E+01_JPRB,1.1636E+01_JPRB,8.9392E+00_JPRB,8.3955E+00_JPRB,8.4731E+00_JPRB/)
+KBO( :, 4,20,12) = (/&
+&1.4894E+01_JPRB,1.4886E+01_JPRB,1.1403E+01_JPRB,8.7296E+00_JPRB,8.2170E+00_JPRB,8.2989E+00_JPRB/)
+KBO( :, 5,20,12) = (/&
+&1.4572E+01_JPRB,1.4563E+01_JPRB,1.1152E+01_JPRB,8.5115E+00_JPRB,8.0382E+00_JPRB,8.1214E+00_JPRB/)
+KBO( :, 1,21,12) = (/&
+&1.4618E+01_JPRB,1.4609E+01_JPRB,1.1224E+01_JPRB,9.4749E+00_JPRB,9.4674E+00_JPRB,9.7176E+00_JPRB/)
+KBO( :, 2,21,12) = (/&
+&1.4320E+01_JPRB,1.4312E+01_JPRB,1.0993E+01_JPRB,9.2613E+00_JPRB,9.2871E+00_JPRB,9.5392E+00_JPRB/)
+KBO( :, 3,21,12) = (/&
+&1.4030E+01_JPRB,1.4022E+01_JPRB,1.0770E+01_JPRB,9.0451E+00_JPRB,9.1076E+00_JPRB,9.3604E+00_JPRB/)
+KBO( :, 4,21,12) = (/&
+&1.3731E+01_JPRB,1.3724E+01_JPRB,1.0538E+01_JPRB,8.8193E+00_JPRB,8.9189E+00_JPRB,9.1661E+00_JPRB/)
+KBO( :, 5,21,12) = (/&
+&1.3412E+01_JPRB,1.3405E+01_JPRB,1.0288E+01_JPRB,8.5978E+00_JPRB,8.7269E+00_JPRB,8.9634E+00_JPRB/)
+KBO( :, 1,22,12) = (/&
+&1.3252E+01_JPRB,1.3245E+01_JPRB,1.0263E+01_JPRB,9.6884E+00_JPRB,1.0237E+01_JPRB,1.0659E+01_JPRB/)
+KBO( :, 2,22,12) = (/&
+&1.2974E+01_JPRB,1.2967E+01_JPRB,1.0045E+01_JPRB,9.4635E+00_JPRB,1.0051E+01_JPRB,1.0470E+01_JPRB/)
+KBO( :, 3,22,12) = (/&
+&1.2686E+01_JPRB,1.2679E+01_JPRB,9.8204E+00_JPRB,9.2336E+00_JPRB,9.8532E+00_JPRB,1.0276E+01_JPRB/)
+KBO( :, 4,22,12) = (/&
+&1.2392E+01_JPRB,1.2385E+01_JPRB,9.5853E+00_JPRB,9.0077E+00_JPRB,9.6460E+00_JPRB,1.0057E+01_JPRB/)
+KBO( :, 5,22,12) = (/&
+&1.2080E+01_JPRB,1.2073E+01_JPRB,9.3373E+00_JPRB,8.7763E+00_JPRB,9.4290E+00_JPRB,9.8257E+00_JPRB/)
+KBO( :, 1,23,12) = (/&
+&1.1802E+01_JPRB,1.1796E+01_JPRB,9.3955E+00_JPRB,9.9793E+00_JPRB,1.1071E+01_JPRB,1.1590E+01_JPRB/)
+KBO( :, 2,23,12) = (/&
+&1.1532E+01_JPRB,1.1526E+01_JPRB,9.1740E+00_JPRB,9.7510E+00_JPRB,1.0853E+01_JPRB,1.1387E+01_JPRB/)
+KBO( :, 3,23,12) = (/&
+&1.1254E+01_JPRB,1.1248E+01_JPRB,8.9457E+00_JPRB,9.5279E+00_JPRB,1.0621E+01_JPRB,1.1176E+01_JPRB/)
+KBO( :, 4,23,12) = (/&
+&1.0971E+01_JPRB,1.0965E+01_JPRB,8.7049E+00_JPRB,9.2947E+00_JPRB,1.0373E+01_JPRB,1.0939E+01_JPRB/)
+KBO( :, 5,23,12) = (/&
+&1.0694E+01_JPRB,1.0688E+01_JPRB,8.4691E+00_JPRB,9.0520E+00_JPRB,1.0118E+01_JPRB,1.0692E+01_JPRB/)
+KBO( :, 1,24,12) = (/&
+&1.0339E+01_JPRB,1.0334E+01_JPRB,8.7416E+00_JPRB,1.0311E+01_JPRB,1.1869E+01_JPRB,1.2496E+01_JPRB/)
+KBO( :, 2,24,12) = (/&
+&1.0079E+01_JPRB,1.0074E+01_JPRB,8.5118E+00_JPRB,1.0085E+01_JPRB,1.1623E+01_JPRB,1.2266E+01_JPRB/)
+KBO( :, 3,24,12) = (/&
+&9.8237E+00_JPRB,9.8183E+00_JPRB,8.2739E+00_JPRB,9.8502E+00_JPRB,1.1362E+01_JPRB,1.2041E+01_JPRB/)
+KBO( :, 4,24,12) = (/&
+&9.5837E+00_JPRB,9.5785E+00_JPRB,8.0352E+00_JPRB,9.6060E+00_JPRB,1.1087E+01_JPRB,1.1795E+01_JPRB/)
+KBO( :, 5,24,12) = (/&
+&9.4022E+00_JPRB,9.3971E+00_JPRB,7.8130E+00_JPRB,9.3488E+00_JPRB,1.0802E+01_JPRB,1.1530E+01_JPRB/)
+KBO( :, 1,25,12) = (/&
+&8.9159E+00_JPRB,8.9112E+00_JPRB,8.3253E+00_JPRB,1.0680E+01_JPRB,1.2624E+01_JPRB,1.3349E+01_JPRB/)
+KBO( :, 2,25,12) = (/&
+&8.6856E+00_JPRB,8.6810E+00_JPRB,8.0901E+00_JPRB,1.0434E+01_JPRB,1.2357E+01_JPRB,1.3117E+01_JPRB/)
+KBO( :, 3,25,12) = (/&
+&8.4955E+00_JPRB,8.4909E+00_JPRB,7.8520E+00_JPRB,1.0179E+01_JPRB,1.2070E+01_JPRB,1.2889E+01_JPRB/)
+KBO( :, 4,25,12) = (/&
+&8.3669E+00_JPRB,8.3624E+00_JPRB,7.6206E+00_JPRB,9.9074E+00_JPRB,1.1769E+01_JPRB,1.2627E+01_JPRB/)
+KBO( :, 5,25,12) = (/&
+&8.2951E+00_JPRB,8.2906E+00_JPRB,7.4263E+00_JPRB,9.6322E+00_JPRB,1.1459E+01_JPRB,1.2339E+01_JPRB/)
+KBO( :, 1,26,12) = (/&
+&7.5918E+00_JPRB,7.5878E+00_JPRB,8.0448E+00_JPRB,1.1047E+01_JPRB,1.3308E+01_JPRB,1.4181E+01_JPRB/)
+KBO( :, 2,26,12) = (/&
+&7.4417E+00_JPRB,7.4378E+00_JPRB,7.8118E+00_JPRB,1.0782E+01_JPRB,1.3032E+01_JPRB,1.3946E+01_JPRB/)
+KBO( :, 3,26,12) = (/&
+&7.3590E+00_JPRB,7.3551E+00_JPRB,7.5780E+00_JPRB,1.0497E+01_JPRB,1.2721E+01_JPRB,1.3696E+01_JPRB/)
+KBO( :, 4,26,12) = (/&
+&7.3502E+00_JPRB,7.3462E+00_JPRB,7.3714E+00_JPRB,1.0203E+01_JPRB,1.2399E+01_JPRB,1.3409E+01_JPRB/)
+KBO( :, 5,26,12) = (/&
+&7.4276E+00_JPRB,7.4236E+00_JPRB,7.2173E+00_JPRB,9.8998E+00_JPRB,1.2064E+01_JPRB,1.3105E+01_JPRB/)
+KBO( :, 1,27,12) = (/&
+&6.4683E+00_JPRB,6.4649E+00_JPRB,7.8812E+00_JPRB,1.1375E+01_JPRB,1.3927E+01_JPRB,1.4966E+01_JPRB/)
+KBO( :, 2,27,12) = (/&
+&6.4189E+00_JPRB,6.4156E+00_JPRB,7.6472E+00_JPRB,1.1088E+01_JPRB,1.3638E+01_JPRB,1.4716E+01_JPRB/)
+KBO( :, 3,27,12) = (/&
+&6.4591E+00_JPRB,6.4557E+00_JPRB,7.4245E+00_JPRB,1.0785E+01_JPRB,1.3326E+01_JPRB,1.4451E+01_JPRB/)
+KBO( :, 4,27,12) = (/&
+&6.5895E+00_JPRB,6.5861E+00_JPRB,7.2540E+00_JPRB,1.0466E+01_JPRB,1.2988E+01_JPRB,1.4141E+01_JPRB/)
+KBO( :, 5,27,12) = (/&
+&6.7673E+00_JPRB,6.7638E+00_JPRB,7.1253E+00_JPRB,1.0145E+01_JPRB,1.2630E+01_JPRB,1.3805E+01_JPRB/)
+KBO( :, 1,28,12) = (/&
+&5.5812E+00_JPRB,5.5783E+00_JPRB,7.7689E+00_JPRB,1.1658E+01_JPRB,1.4504E+01_JPRB,1.5676E+01_JPRB/)
+KBO( :, 2,28,12) = (/&
+&5.6494E+00_JPRB,5.6465E+00_JPRB,7.5324E+00_JPRB,1.1356E+01_JPRB,1.4208E+01_JPRB,1.5420E+01_JPRB/)
+KBO( :, 3,28,12) = (/&
+&5.8063E+00_JPRB,5.8033E+00_JPRB,7.3350E+00_JPRB,1.1035E+01_JPRB,1.3883E+01_JPRB,1.5136E+01_JPRB/)
+KBO( :, 4,28,12) = (/&
+&5.9982E+00_JPRB,5.9952E+00_JPRB,7.1895E+00_JPRB,1.0705E+01_JPRB,1.3523E+01_JPRB,1.4796E+01_JPRB/)
+KBO( :, 5,28,12) = (/&
+&6.2275E+00_JPRB,6.2243E+00_JPRB,7.0847E+00_JPRB,1.0363E+01_JPRB,1.3144E+01_JPRB,1.4440E+01_JPRB/)
+KBO( :, 1,29,12) = (/&
+&4.9263E+00_JPRB,4.9239E+00_JPRB,7.6738E+00_JPRB,1.1886E+01_JPRB,1.5034E+01_JPRB,1.6303E+01_JPRB/)
+KBO( :, 2,29,12) = (/&
+&5.0905E+00_JPRB,5.0880E+00_JPRB,7.4511E+00_JPRB,1.1577E+01_JPRB,1.4725E+01_JPRB,1.6056E+01_JPRB/)
+KBO( :, 3,29,12) = (/&
+&5.2910E+00_JPRB,5.2884E+00_JPRB,7.2824E+00_JPRB,1.1245E+01_JPRB,1.4371E+01_JPRB,1.5737E+01_JPRB/)
+KBO( :, 4,29,12) = (/&
+&5.5388E+00_JPRB,5.5361E+00_JPRB,7.1566E+00_JPRB,1.0903E+01_JPRB,1.3995E+01_JPRB,1.5373E+01_JPRB/)
+KBO( :, 5,29,12) = (/&
+&5.8140E+00_JPRB,5.8111E+00_JPRB,7.0642E+00_JPRB,1.0551E+01_JPRB,1.3590E+01_JPRB,1.5023E+01_JPRB/)
+KBO( :, 1,30,12) = (/&
+&4.4481E+00_JPRB,4.4460E+00_JPRB,7.5927E+00_JPRB,1.2072E+01_JPRB,1.5506E+01_JPRB,1.6872E+01_JPRB/)
+KBO( :, 2,30,12) = (/&
+&4.6495E+00_JPRB,4.6473E+00_JPRB,7.3991E+00_JPRB,1.1764E+01_JPRB,1.5173E+01_JPRB,1.6609E+01_JPRB/)
+KBO( :, 3,30,12) = (/&
+&4.9026E+00_JPRB,4.9003E+00_JPRB,7.2499E+00_JPRB,1.1426E+01_JPRB,1.4795E+01_JPRB,1.6261E+01_JPRB/)
+KBO( :, 4,30,12) = (/&
+&5.1748E+00_JPRB,5.1723E+00_JPRB,7.1402E+00_JPRB,1.1073E+01_JPRB,1.4399E+01_JPRB,1.5886E+01_JPRB/)
+KBO( :, 5,30,12) = (/&
+&5.4669E+00_JPRB,5.4641E+00_JPRB,7.0513E+00_JPRB,1.0712E+01_JPRB,1.3969E+01_JPRB,1.5546E+01_JPRB/)
+KBO( :, 1,31,12) = (/&
+&4.0826E+00_JPRB,4.0808E+00_JPRB,7.5248E+00_JPRB,1.2230E+01_JPRB,1.5909E+01_JPRB,1.7372E+01_JPRB/)
+KBO( :, 2,31,12) = (/&
+&4.3203E+00_JPRB,4.3184E+00_JPRB,7.3583E+00_JPRB,1.1921E+01_JPRB,1.5546E+01_JPRB,1.7073E+01_JPRB/)
+KBO( :, 3,31,12) = (/&
+&4.5820E+00_JPRB,4.5799E+00_JPRB,7.2311E+00_JPRB,1.1577E+01_JPRB,1.5153E+01_JPRB,1.6713E+01_JPRB/)
+KBO( :, 4,31,12) = (/&
+&4.8695E+00_JPRB,4.8672E+00_JPRB,7.1286E+00_JPRB,1.1212E+01_JPRB,1.4724E+01_JPRB,1.6381E+01_JPRB/)
+KBO( :, 5,31,12) = (/&
+&5.1816E+00_JPRB,5.1790E+00_JPRB,7.0469E+00_JPRB,1.0847E+01_JPRB,1.4274E+01_JPRB,1.6048E+01_JPRB/)
+KBO( :, 1,32,12) = (/&
+&3.7968E+00_JPRB,3.7952E+00_JPRB,7.4739E+00_JPRB,1.2361E+01_JPRB,1.6239E+01_JPRB,1.7800E+01_JPRB/)
+KBO( :, 2,32,12) = (/&
+&4.0447E+00_JPRB,4.0430E+00_JPRB,7.3338E+00_JPRB,1.2050E+01_JPRB,1.5855E+01_JPRB,1.7484E+01_JPRB/)
+KBO( :, 3,32,12) = (/&
+&4.3179E+00_JPRB,4.3159E+00_JPRB,7.2183E+00_JPRB,1.1702E+01_JPRB,1.5442E+01_JPRB,1.7161E+01_JPRB/)
+KBO( :, 4,32,12) = (/&
+&4.6213E+00_JPRB,4.6191E+00_JPRB,7.1240E+00_JPRB,1.1329E+01_JPRB,1.4991E+01_JPRB,1.6858E+01_JPRB/)
+KBO( :, 5,32,12) = (/&
+&4.9485E+00_JPRB,4.9460E+00_JPRB,7.0483E+00_JPRB,1.0954E+01_JPRB,1.4516E+01_JPRB,1.6491E+01_JPRB/)
+KBO( :, 1,33,12) = (/&
+&3.5568E+00_JPRB,3.5554E+00_JPRB,7.4337E+00_JPRB,1.2471E+01_JPRB,1.6507E+01_JPRB,1.8167E+01_JPRB/)
+KBO( :, 2,33,12) = (/&
+&3.8191E+00_JPRB,3.8174E+00_JPRB,7.3162E+00_JPRB,1.2150E+01_JPRB,1.6107E+01_JPRB,1.7878E+01_JPRB/)
+KBO( :, 3,33,12) = (/&
+&4.1081E+00_JPRB,4.1061E+00_JPRB,7.2154E+00_JPRB,1.1795E+01_JPRB,1.5670E+01_JPRB,1.7617E+01_JPRB/)
+KBO( :, 4,33,12) = (/&
+&4.4244E+00_JPRB,4.4223E+00_JPRB,7.1305E+00_JPRB,1.1413E+01_JPRB,1.5196E+01_JPRB,1.7282E+01_JPRB/)
+KBO( :, 5,33,12) = (/&
+&4.7677E+00_JPRB,4.7653E+00_JPRB,7.0542E+00_JPRB,1.1036E+01_JPRB,1.4698E+01_JPRB,1.6888E+01_JPRB/)
+KBO( :, 1,34,12) = (/&
+&3.3521E+00_JPRB,3.3507E+00_JPRB,7.4128E+00_JPRB,1.2559E+01_JPRB,1.6734E+01_JPRB,1.8506E+01_JPRB/)
+KBO( :, 2,34,12) = (/&
+&3.6291E+00_JPRB,3.6275E+00_JPRB,7.3128E+00_JPRB,1.2232E+01_JPRB,1.6317E+01_JPRB,1.8280E+01_JPRB/)
+KBO( :, 3,34,12) = (/&
+&3.9317E+00_JPRB,3.9298E+00_JPRB,7.2212E+00_JPRB,1.1872E+01_JPRB,1.5854E+01_JPRB,1.8005E+01_JPRB/)
+KBO( :, 4,34,12) = (/&
+&4.2593E+00_JPRB,4.2572E+00_JPRB,7.1423E+00_JPRB,1.1481E+01_JPRB,1.5360E+01_JPRB,1.7643E+01_JPRB/)
+KBO( :, 5,34,12) = (/&
+&4.6153E+00_JPRB,4.6130E+00_JPRB,7.0650E+00_JPRB,1.1105E+01_JPRB,1.4842E+01_JPRB,1.7226E+01_JPRB/)
+KBO( :, 1,35,12) = (/&
+&3.1598E+00_JPRB,3.1585E+00_JPRB,7.4142E+00_JPRB,1.2657E+01_JPRB,1.6945E+01_JPRB,1.8872E+01_JPRB/)
+KBO( :, 2,35,12) = (/&
+&3.4442E+00_JPRB,3.4427E+00_JPRB,7.3257E+00_JPRB,1.2327E+01_JPRB,1.6516E+01_JPRB,1.8673E+01_JPRB/)
+KBO( :, 3,35,12) = (/&
+&3.7587E+00_JPRB,3.7569E+00_JPRB,7.2409E+00_JPRB,1.1960E+01_JPRB,1.6036E+01_JPRB,1.8373E+01_JPRB/)
+KBO( :, 4,35,12) = (/&
+&4.0964E+00_JPRB,4.0944E+00_JPRB,7.1633E+00_JPRB,1.1567E+01_JPRB,1.5526E+01_JPRB,1.7979E+01_JPRB/)
+KBO( :, 5,35,12) = (/&
+&4.4686E+00_JPRB,4.4663E+00_JPRB,7.0860E+00_JPRB,1.1190E+01_JPRB,1.4992E+01_JPRB,1.7544E+01_JPRB/)
+KBO( :, 1,36,12) = (/&
+&2.9654E+00_JPRB,2.9641E+00_JPRB,7.4313E+00_JPRB,1.2766E+01_JPRB,1.7160E+01_JPRB,1.9227E+01_JPRB/)
+KBO( :, 2,36,12) = (/&
+&3.2570E+00_JPRB,3.2555E+00_JPRB,7.3495E+00_JPRB,1.2436E+01_JPRB,1.6723E+01_JPRB,1.9033E+01_JPRB/)
+KBO( :, 3,36,12) = (/&
+&3.5797E+00_JPRB,3.5780E+00_JPRB,7.2711E+00_JPRB,1.2069E+01_JPRB,1.6233E+01_JPRB,1.8715E+01_JPRB/)
+KBO( :, 4,36,12) = (/&
+&3.9316E+00_JPRB,3.9297E+00_JPRB,7.1919E+00_JPRB,1.1675E+01_JPRB,1.5711E+01_JPRB,1.8314E+01_JPRB/)
+KBO( :, 5,36,12) = (/&
+&4.3127E+00_JPRB,4.3105E+00_JPRB,7.1101E+00_JPRB,1.1293E+01_JPRB,1.5166E+01_JPRB,1.7865E+01_JPRB/)
+KBO( :, 1,37,12) = (/&
+&2.7533E+00_JPRB,2.7522E+00_JPRB,7.4577E+00_JPRB,1.2906E+01_JPRB,1.7405E+01_JPRB,1.9546E+01_JPRB/)
+KBO( :, 2,37,12) = (/&
+&3.0486E+00_JPRB,3.0472E+00_JPRB,7.3839E+00_JPRB,1.2582E+01_JPRB,1.6967E+01_JPRB,1.9367E+01_JPRB/)
+KBO( :, 3,37,12) = (/&
+&3.3772E+00_JPRB,3.3756E+00_JPRB,7.3093E+00_JPRB,1.2218E+01_JPRB,1.6476E+01_JPRB,1.9050E+01_JPRB/)
+KBO( :, 4,37,12) = (/&
+&3.7381E+00_JPRB,3.7362E+00_JPRB,7.2303E+00_JPRB,1.1826E+01_JPRB,1.5946E+01_JPRB,1.8659E+01_JPRB/)
+KBO( :, 5,37,12) = (/&
+&4.1246E+00_JPRB,4.1225E+00_JPRB,7.1455E+00_JPRB,1.1440E+01_JPRB,1.5395E+01_JPRB,1.8212E+01_JPRB/)
+KBO( :, 1,38,12) = (/&
+&2.5620E+00_JPRB,2.5610E+00_JPRB,7.4808E+00_JPRB,1.3030E+01_JPRB,1.7619E+01_JPRB,1.9841E+01_JPRB/)
+KBO( :, 2,38,12) = (/&
+&2.8608E+00_JPRB,2.8595E+00_JPRB,7.4174E+00_JPRB,1.2714E+01_JPRB,1.7188E+01_JPRB,1.9683E+01_JPRB/)
+KBO( :, 3,38,12) = (/&
+&3.1956E+00_JPRB,3.1942E+00_JPRB,7.3440E+00_JPRB,1.2353E+01_JPRB,1.6696E+01_JPRB,1.9369E+01_JPRB/)
+KBO( :, 4,38,12) = (/&
+&3.5649E+00_JPRB,3.5631E+00_JPRB,7.2670E+00_JPRB,1.1965E+01_JPRB,1.6163E+01_JPRB,1.8994E+01_JPRB/)
+KBO( :, 5,38,12) = (/&
+&3.9585E+00_JPRB,3.9565E+00_JPRB,7.1817E+00_JPRB,1.1573E+01_JPRB,1.5604E+01_JPRB,1.8550E+01_JPRB/)
+KBO( :, 1,39,12) = (/&
+&2.3896E+00_JPRB,2.3887E+00_JPRB,7.5031E+00_JPRB,1.3145E+01_JPRB,1.7806E+01_JPRB,2.0123E+01_JPRB/)
+KBO( :, 2,39,12) = (/&
+&2.6949E+00_JPRB,2.6937E+00_JPRB,7.4455E+00_JPRB,1.2830E+01_JPRB,1.7380E+01_JPRB,1.9979E+01_JPRB/)
+KBO( :, 3,39,12) = (/&
+&3.0362E+00_JPRB,3.0348E+00_JPRB,7.3756E+00_JPRB,1.2474E+01_JPRB,1.6890E+01_JPRB,1.9683E+01_JPRB/)
+KBO( :, 4,39,12) = (/&
+&3.4116E+00_JPRB,3.4099E+00_JPRB,7.3010E+00_JPRB,1.2089E+01_JPRB,1.6357E+01_JPRB,1.9331E+01_JPRB/)
+KBO( :, 5,39,12) = (/&
+&3.8125E+00_JPRB,3.8105E+00_JPRB,7.2161E+00_JPRB,1.1695E+01_JPRB,1.5793E+01_JPRB,1.8893E+01_JPRB/)
+KBO( :, 1,40,12) = (/&
+&2.2084E+00_JPRB,2.2076E+00_JPRB,7.5257E+00_JPRB,1.3272E+01_JPRB,1.8011E+01_JPRB,2.0327E+01_JPRB/)
+KBO( :, 2,40,12) = (/&
+&2.5142E+00_JPRB,2.5132E+00_JPRB,7.4776E+00_JPRB,1.2969E+01_JPRB,1.7599E+01_JPRB,2.0223E+01_JPRB/)
+KBO( :, 3,40,12) = (/&
+&2.8571E+00_JPRB,2.8558E+00_JPRB,7.4104E+00_JPRB,1.2622E+01_JPRB,1.7115E+01_JPRB,1.9951E+01_JPRB/)
+KBO( :, 4,40,12) = (/&
+&3.2355E+00_JPRB,3.2339E+00_JPRB,7.3412E+00_JPRB,1.2241E+01_JPRB,1.6586E+01_JPRB,1.9625E+01_JPRB/)
+KBO( :, 5,40,12) = (/&
+&3.6402E+00_JPRB,3.6383E+00_JPRB,7.2559E+00_JPRB,1.1846E+01_JPRB,1.6023E+01_JPRB,1.9193E+01_JPRB/)
+KBO( :, 1,41,12) = (/&
+&2.0392E+00_JPRB,2.0384E+00_JPRB,7.5497E+00_JPRB,1.3388E+01_JPRB,1.8196E+01_JPRB,2.0499E+01_JPRB/)
+KBO( :, 2,41,12) = (/&
+&2.3453E+00_JPRB,2.3444E+00_JPRB,7.5055E+00_JPRB,1.3103E+01_JPRB,1.7800E+01_JPRB,2.0441E+01_JPRB/)
+KBO( :, 3,41,12) = (/&
+&2.6889E+00_JPRB,2.6876E+00_JPRB,7.4442E+00_JPRB,1.2764E+01_JPRB,1.7330E+01_JPRB,2.0201E+01_JPRB/)
+KBO( :, 4,41,12) = (/&
+&3.0674E+00_JPRB,3.0659E+00_JPRB,7.3773E+00_JPRB,1.2388E+01_JPRB,1.6806E+01_JPRB,1.9901E+01_JPRB/)
+KBO( :, 5,41,12) = (/&
+&3.4739E+00_JPRB,3.4722E+00_JPRB,7.2932E+00_JPRB,1.1996E+01_JPRB,1.6248E+01_JPRB,1.9478E+01_JPRB/)
+KBO( :, 1,42,12) = (/&
+&1.8842E+00_JPRB,1.8835E+00_JPRB,7.5738E+00_JPRB,1.3492E+01_JPRB,1.8356E+01_JPRB,2.0651E+01_JPRB/)
+KBO( :, 2,42,12) = (/&
+&2.1916E+00_JPRB,2.1907E+00_JPRB,7.5284E+00_JPRB,1.3224E+01_JPRB,1.7982E+01_JPRB,2.0639E+01_JPRB/)
+KBO( :, 3,42,12) = (/&
+&2.5344E+00_JPRB,2.5332E+00_JPRB,7.4756E+00_JPRB,1.2895E+01_JPRB,1.7528E+01_JPRB,2.0438E+01_JPRB/)
+KBO( :, 4,42,12) = (/&
+&2.9115E+00_JPRB,2.9101E+00_JPRB,7.4107E+00_JPRB,1.2526E+01_JPRB,1.7014E+01_JPRB,2.0170E+01_JPRB/)
+KBO( :, 5,42,12) = (/&
+&3.3176E+00_JPRB,3.3160E+00_JPRB,7.3300E+00_JPRB,1.2138E+01_JPRB,1.6460E+01_JPRB,1.9759E+01_JPRB/)
+KBO( :, 1,43,12) = (/&
+&1.7267E+00_JPRB,1.7260E+00_JPRB,7.5950E+00_JPRB,1.3597E+01_JPRB,1.8513E+01_JPRB,2.0770E+01_JPRB/)
+KBO( :, 2,43,12) = (/&
+&2.0318E+00_JPRB,2.0310E+00_JPRB,7.5508E+00_JPRB,1.3350E+01_JPRB,1.8172E+01_JPRB,2.0815E+01_JPRB/)
+KBO( :, 3,43,12) = (/&
+&2.3711E+00_JPRB,2.3700E+00_JPRB,7.5067E+00_JPRB,1.3037E+01_JPRB,1.7739E+01_JPRB,2.0667E+01_JPRB/)
+KBO( :, 4,43,12) = (/&
+&2.7430E+00_JPRB,2.7417E+00_JPRB,7.4433E+00_JPRB,1.2679E+01_JPRB,1.7236E+01_JPRB,2.0434E+01_JPRB/)
+KBO( :, 5,43,12) = (/&
+&3.1470E+00_JPRB,3.1454E+00_JPRB,7.3686E+00_JPRB,1.2292E+01_JPRB,1.6691E+01_JPRB,2.0048E+01_JPRB/)
+KBO( :, 1,44,12) = (/&
+&1.5761E+00_JPRB,1.5756E+00_JPRB,7.6126E+00_JPRB,1.3691E+01_JPRB,1.8648E+01_JPRB,2.0862E+01_JPRB/)
+KBO( :, 2,44,12) = (/&
+&1.8753E+00_JPRB,1.8746E+00_JPRB,7.5725E+00_JPRB,1.3468E+01_JPRB,1.8351E+01_JPRB,2.0968E+01_JPRB/)
+KBO( :, 3,44,12) = (/&
+&2.2096E+00_JPRB,2.2086E+00_JPRB,7.5342E+00_JPRB,1.3177E+01_JPRB,1.7945E+01_JPRB,2.0887E+01_JPRB/)
+KBO( :, 4,44,12) = (/&
+&2.5754E+00_JPRB,2.5742E+00_JPRB,7.4767E+00_JPRB,1.2832E+01_JPRB,1.7460E+01_JPRB,2.0692E+01_JPRB/)
+KBO( :, 5,44,12) = (/&
+&2.9738E+00_JPRB,2.9723E+00_JPRB,7.4066E+00_JPRB,1.2450E+01_JPRB,1.6925E+01_JPRB,2.0342E+01_JPRB/)
+KBO( :, 1,45,12) = (/&
+&1.4392E+00_JPRB,1.4387E+00_JPRB,7.6289E+00_JPRB,1.3769E+01_JPRB,1.8760E+01_JPRB,2.0935E+01_JPRB/)
+KBO( :, 2,45,12) = (/&
+&1.7286E+00_JPRB,1.7279E+00_JPRB,7.5921E+00_JPRB,1.3574E+01_JPRB,1.8509E+01_JPRB,2.1105E+01_JPRB/)
+KBO( :, 3,45,12) = (/&
+&2.0581E+00_JPRB,2.0572E+00_JPRB,7.5558E+00_JPRB,1.3307E+01_JPRB,1.8131E+01_JPRB,2.1101E+01_JPRB/)
+KBO( :, 4,45,12) = (/&
+&2.4180E+00_JPRB,2.4169E+00_JPRB,7.5062E+00_JPRB,1.2976E+01_JPRB,1.7672E+01_JPRB,2.0953E+01_JPRB/)
+KBO( :, 5,45,12) = (/&
+&2.8084E+00_JPRB,2.8070E+00_JPRB,7.4420E+00_JPRB,1.2604E+01_JPRB,1.7149E+01_JPRB,2.0640E+01_JPRB/)
+KBO( :, 1,46,12) = (/&
+&1.3097E+00_JPRB,1.3093E+00_JPRB,7.6423E+00_JPRB,1.3829E+01_JPRB,1.8849E+01_JPRB,2.0974E+01_JPRB/)
+KBO( :, 2,46,12) = (/&
+&1.5854E+00_JPRB,1.5848E+00_JPRB,7.6098E+00_JPRB,1.3672E+01_JPRB,1.8651E+01_JPRB,2.1212E+01_JPRB/)
+KBO( :, 3,46,12) = (/&
+&1.9071E+00_JPRB,1.9063E+00_JPRB,7.5745E+00_JPRB,1.3430E+01_JPRB,1.8314E+01_JPRB,2.1300E+01_JPRB/)
+KBO( :, 4,46,12) = (/&
+&2.2598E+00_JPRB,2.2588E+00_JPRB,7.5350E+00_JPRB,1.3119E+01_JPRB,1.7880E+01_JPRB,2.1201E+01_JPRB/)
+KBO( :, 5,46,12) = (/&
+&2.6412E+00_JPRB,2.6399E+00_JPRB,7.4731E+00_JPRB,1.2761E+01_JPRB,1.7374E+01_JPRB,2.0932E+01_JPRB/)
+KBO( :, 1,47,12) = (/&
+&1.1830E+00_JPRB,1.1826E+00_JPRB,7.6481E+00_JPRB,1.3869E+01_JPRB,1.8908E+01_JPRB,2.0951E+01_JPRB/)
+KBO( :, 2,47,12) = (/&
+&1.4407E+00_JPRB,1.4402E+00_JPRB,7.6261E+00_JPRB,1.3765E+01_JPRB,1.8775E+01_JPRB,2.1251E+01_JPRB/)
+KBO( :, 3,47,12) = (/&
+&1.7493E+00_JPRB,1.7485E+00_JPRB,7.5928E+00_JPRB,1.3553E+01_JPRB,1.8492E+01_JPRB,2.1457E+01_JPRB/)
+KBO( :, 4,47,12) = (/&
+&2.0941E+00_JPRB,2.0931E+00_JPRB,7.5591E+00_JPRB,1.3267E+01_JPRB,1.8091E+01_JPRB,2.1416E+01_JPRB/)
+KBO( :, 5,47,12) = (/&
+&2.4666E+00_JPRB,2.4654E+00_JPRB,7.5056E+00_JPRB,1.2925E+01_JPRB,1.7610E+01_JPRB,2.1209E+01_JPRB/)
+KBO( :, 1,48,12) = (/&
+&1.0695E+00_JPRB,1.0692E+00_JPRB,7.6498E+00_JPRB,1.3881E+01_JPRB,1.8927E+01_JPRB,2.0896E+01_JPRB/)
+KBO( :, 2,48,12) = (/&
+&1.3081E+00_JPRB,1.3076E+00_JPRB,7.6404E+00_JPRB,1.3836E+01_JPRB,1.8873E+01_JPRB,2.1276E+01_JPRB/)
+KBO( :, 3,48,12) = (/&
+&1.6006E+00_JPRB,1.5999E+00_JPRB,7.6097E+00_JPRB,1.3659E+01_JPRB,1.8647E+01_JPRB,2.1600E+01_JPRB/)
+KBO( :, 4,48,12) = (/&
+&1.9354E+00_JPRB,1.9345E+00_JPRB,7.5773E+00_JPRB,1.3403E+01_JPRB,1.8286E+01_JPRB,2.1634E+01_JPRB/)
+KBO( :, 5,48,12) = (/&
+&2.2984E+00_JPRB,2.2973E+00_JPRB,7.5353E+00_JPRB,1.3082E+01_JPRB,1.7836E+01_JPRB,2.1486E+01_JPRB/)
+KBO( :, 1,49,12) = (/&
+&9.6483E-01_JPRB,9.6464E-01_JPRB,7.6392E+00_JPRB,1.3864E+01_JPRB,1.8901E+01_JPRB,2.0809E+01_JPRB/)
+KBO( :, 2,49,12) = (/&
+&1.1880E+00_JPRB,1.1876E+00_JPRB,7.6494E+00_JPRB,1.3882E+01_JPRB,1.8939E+01_JPRB,2.1303E+01_JPRB/)
+KBO( :, 3,49,12) = (/&
+&1.4610E+00_JPRB,1.4604E+00_JPRB,7.6246E+00_JPRB,1.3753E+01_JPRB,1.8773E+01_JPRB,2.1746E+01_JPRB/)
+KBO( :, 4,49,12) = (/&
+&1.7825E+00_JPRB,1.7817E+00_JPRB,7.5952E+00_JPRB,1.3527E+01_JPRB,1.8464E+01_JPRB,2.1864E+01_JPRB/)
+KBO( :, 5,49,12) = (/&
+&2.1366E+00_JPRB,2.1357E+00_JPRB,7.5591E+00_JPRB,1.3229E+01_JPRB,1.8046E+01_JPRB,2.1779E+01_JPRB/)
+KBO( :, 1,50,12) = (/&
+&8.7334E-01_JPRB,8.7321E-01_JPRB,7.6167E+00_JPRB,1.3816E+01_JPRB,1.8840E+01_JPRB,2.0653E+01_JPRB/)
+KBO( :, 2,50,12) = (/&
+&1.0849E+00_JPRB,1.0846E+00_JPRB,7.6499E+00_JPRB,1.3902E+01_JPRB,1.8966E+01_JPRB,2.1256E+01_JPRB/)
+KBO( :, 3,50,12) = (/&
+&1.3397E+00_JPRB,1.3393E+00_JPRB,7.6369E+00_JPRB,1.3826E+01_JPRB,1.8870E+01_JPRB,2.1793E+01_JPRB/)
+KBO( :, 4,50,12) = (/&
+&1.6451E+00_JPRB,1.6444E+00_JPRB,7.6078E+00_JPRB,1.3629E+01_JPRB,1.8612E+01_JPRB,2.2015E+01_JPRB/)
+KBO( :, 5,50,12) = (/&
+&1.9901E+00_JPRB,1.9893E+00_JPRB,7.5766E+00_JPRB,1.3357E+01_JPRB,1.8227E+01_JPRB,2.2000E+01_JPRB/)
+KBO( :, 1,51,12) = (/&
+&7.9109E-01_JPRB,7.9101E-01_JPRB,7.5808E+00_JPRB,1.3738E+01_JPRB,1.8738E+01_JPRB,2.0437E+01_JPRB/)
+KBO( :, 2,51,12) = (/&
+&9.9151E-01_JPRB,9.9125E-01_JPRB,7.6471E+00_JPRB,1.3897E+01_JPRB,1.8959E+01_JPRB,2.1160E+01_JPRB/)
+KBO( :, 3,51,12) = (/&
+&1.2299E+00_JPRB,1.2295E+00_JPRB,7.6471E+00_JPRB,1.3876E+01_JPRB,1.8940E+01_JPRB,2.1766E+01_JPRB/)
+KBO( :, 4,51,12) = (/&
+&1.5182E+00_JPRB,1.5176E+00_JPRB,7.6211E+00_JPRB,1.3717E+01_JPRB,1.8736E+01_JPRB,2.2115E+01_JPRB/)
+KBO( :, 5,51,12) = (/&
+&1.8518E+00_JPRB,1.8510E+00_JPRB,7.5920E+00_JPRB,1.3472E+01_JPRB,1.8393E+01_JPRB,2.2169E+01_JPRB/)
+KBO( :, 1,52,12) = (/&
+&7.1584E-01_JPRB,7.1581E-01_JPRB,7.5315E+00_JPRB,1.3629E+01_JPRB,1.8592E+01_JPRB,2.0184E+01_JPRB/)
+KBO( :, 2,52,12) = (/&
+&9.0437E-01_JPRB,9.0419E-01_JPRB,7.6323E+00_JPRB,1.3867E+01_JPRB,1.8918E+01_JPRB,2.1052E+01_JPRB/)
+KBO( :, 3,52,12) = (/&
+&1.1294E+00_JPRB,1.1290E+00_JPRB,7.6500E+00_JPRB,1.3907E+01_JPRB,1.8982E+01_JPRB,2.1738E+01_JPRB/)
+KBO( :, 4,52,12) = (/&
+&1.3999E+00_JPRB,1.3994E+00_JPRB,7.6316E+00_JPRB,1.3795E+01_JPRB,1.8838E+01_JPRB,2.2212E+01_JPRB/)
+KBO( :, 5,52,12) = (/&
+&1.7187E+00_JPRB,1.7179E+00_JPRB,7.6040E+00_JPRB,1.3576E+01_JPRB,1.8542E+01_JPRB,2.2347E+01_JPRB/)
+KBO( :, 1,53,12) = (/&
+&6.4519E-01_JPRB,6.4525E-01_JPRB,7.4665E+00_JPRB,1.3494E+01_JPRB,1.8401E+01_JPRB,1.9906E+01_JPRB/)
+KBO( :, 2,53,12) = (/&
+&8.2291E-01_JPRB,8.2276E-01_JPRB,7.6064E+00_JPRB,1.3809E+01_JPRB,1.8841E+01_JPRB,2.0928E+01_JPRB/)
+KBO( :, 3,53,12) = (/&
+&1.0366E+00_JPRB,1.0363E+00_JPRB,7.6500E+00_JPRB,1.3915E+01_JPRB,1.8993E+01_JPRB,2.1723E+01_JPRB/)
+KBO( :, 4,53,12) = (/&
+&1.2893E+00_JPRB,1.2888E+00_JPRB,7.6422E+00_JPRB,1.3856E+01_JPRB,1.8918E+01_JPRB,2.2328E+01_JPRB/)
+KBO( :, 5,53,12) = (/&
+&1.5912E+00_JPRB,1.5905E+00_JPRB,7.6165E+00_JPRB,1.3669E+01_JPRB,1.8674E+01_JPRB,2.2548E+01_JPRB/)
+KBO( :, 1,54,12) = (/&
+&5.8435E-01_JPRB,5.8444E-01_JPRB,7.3907E+00_JPRB,1.3327E+01_JPRB,1.8178E+01_JPRB,1.9515E+01_JPRB/)
+KBO( :, 2,54,12) = (/&
+&7.5368E-01_JPRB,7.5356E-01_JPRB,7.5705E+00_JPRB,1.3729E+01_JPRB,1.8734E+01_JPRB,2.0634E+01_JPRB/)
+KBO( :, 3,54,12) = (/&
+&9.5607E-01_JPRB,9.5580E-01_JPRB,7.6449E+00_JPRB,1.3905E+01_JPRB,1.8977E+01_JPRB,2.1497E+01_JPRB/)
+KBO( :, 4,54,12) = (/&
+&1.1937E+00_JPRB,1.1933E+00_JPRB,7.6499E+00_JPRB,1.3896E+01_JPRB,1.8973E+01_JPRB,2.2212E+01_JPRB/)
+KBO( :, 5,54,12) = (/&
+&1.4797E+00_JPRB,1.4791E+00_JPRB,7.6261E+00_JPRB,1.3745E+01_JPRB,1.8779E+01_JPRB,2.2527E+01_JPRB/)
+KBO( :, 1,55,12) = (/&
+&5.2854E-01_JPRB,5.2867E-01_JPRB,7.3044E+00_JPRB,1.3131E+01_JPRB,1.7924E+01_JPRB,1.9047E+01_JPRB/)
+KBO( :, 2,55,12) = (/&
+&6.9118E-01_JPRB,6.9109E-01_JPRB,7.5254E+00_JPRB,1.3628E+01_JPRB,1.8597E+01_JPRB,2.0249E+01_JPRB/)
+KBO( :, 3,55,12) = (/&
+&8.8293E-01_JPRB,8.8272E-01_JPRB,7.6307E+00_JPRB,1.3873E+01_JPRB,1.8933E+01_JPRB,2.1158E+01_JPRB/)
+KBO( :, 4,55,12) = (/&
+&1.1091E+00_JPRB,1.1087E+00_JPRB,7.6507E+00_JPRB,1.3919E+01_JPRB,1.9002E+01_JPRB,2.1900E+01_JPRB/)
+KBO( :, 5,55,12) = (/&
+&1.3791E+00_JPRB,1.3786E+00_JPRB,7.6348E+00_JPRB,1.3810E+01_JPRB,1.8863E+01_JPRB,2.2367E+01_JPRB/)
+KBO( :, 1,56,12) = (/&
+&4.7560E-01_JPRB,4.7583E-01_JPRB,7.2007E+00_JPRB,1.2908E+01_JPRB,1.7624E+01_JPRB,1.8559E+01_JPRB/)
+KBO( :, 2,56,12) = (/&
+&6.3205E-01_JPRB,6.3206E-01_JPRB,7.4679E+00_JPRB,1.3507E+01_JPRB,1.8426E+01_JPRB,1.9860E+01_JPRB/)
+KBO( :, 3,56,12) = (/&
+&8.1360E-01_JPRB,8.1344E-01_JPRB,7.6074E+00_JPRB,1.3821E+01_JPRB,1.8863E+01_JPRB,2.0825E+01_JPRB/)
+KBO( :, 4,56,12) = (/&
+&1.0301E+00_JPRB,1.0298E+00_JPRB,7.6506E+00_JPRB,1.3924E+01_JPRB,1.9011E+01_JPRB,2.1557E+01_JPRB/)
+KBO( :, 5,56,12) = (/&
+&1.2841E+00_JPRB,1.2836E+00_JPRB,7.6437E+00_JPRB,1.3864E+01_JPRB,1.8933E+01_JPRB,2.2162E+01_JPRB/)
+KBO( :, 1,57,12) = (/&
+&4.2603E-01_JPRB,4.2637E-01_JPRB,7.0800E+00_JPRB,1.2651E+01_JPRB,1.7279E+01_JPRB,1.8044E+01_JPRB/)
+KBO( :, 2,57,12) = (/&
+&5.7620E-01_JPRB,5.7623E-01_JPRB,7.3960E+00_JPRB,1.3349E+01_JPRB,1.8215E+01_JPRB,1.9448E+01_JPRB/)
+KBO( :, 3,57,12) = (/&
+&7.4950E-01_JPRB,7.4937E-01_JPRB,7.5736E+00_JPRB,1.3745E+01_JPRB,1.8761E+01_JPRB,2.0480E+01_JPRB/)
+KBO( :, 4,57,12) = (/&
+&9.5476E-01_JPRB,9.5448E-01_JPRB,7.6455E+00_JPRB,1.3913E+01_JPRB,1.8993E+01_JPRB,2.1239E+01_JPRB/)
+KBO( :, 5,57,12) = (/&
+&1.1947E+00_JPRB,1.1943E+00_JPRB,7.6507E+00_JPRB,1.3900E+01_JPRB,1.8982E+01_JPRB,2.1879E+01_JPRB/)
+KBO( :, 1,58,12) = (/&
+&3.8222E-01_JPRB,3.8258E-01_JPRB,6.9487E+00_JPRB,1.2376E+01_JPRB,1.6911E+01_JPRB,1.7525E+01_JPRB/)
+KBO( :, 2,58,12) = (/&
+&5.2528E-01_JPRB,5.2538E-01_JPRB,7.3177E+00_JPRB,1.3169E+01_JPRB,1.7977E+01_JPRB,1.9013E+01_JPRB/)
+KBO( :, 3,58,12) = (/&
+&6.9186E-01_JPRB,6.9176E-01_JPRB,7.5326E+00_JPRB,1.3651E+01_JPRB,1.8633E+01_JPRB,2.0139E+01_JPRB/)
+KBO( :, 4,58,12) = (/&
+&8.8662E-01_JPRB,8.8639E-01_JPRB,7.6334E+00_JPRB,1.3885E+01_JPRB,1.8953E+01_JPRB,2.0942E+01_JPRB/)
+KBO( :, 5,58,12) = (/&
+&1.1152E+00_JPRB,1.1149E+00_JPRB,7.6513E+00_JPRB,1.3923E+01_JPRB,1.9012E+01_JPRB,2.1525E+01_JPRB/)
+KBO( :, 1,59,12) = (/&
+&3.6401E-01_JPRB,3.6437E-01_JPRB,6.8886E+00_JPRB,1.2256E+01_JPRB,1.6751E+01_JPRB,1.7277E+01_JPRB/)
+KBO( :, 2,59,12) = (/&
+&5.0412E-01_JPRB,5.0423E-01_JPRB,7.2807E+00_JPRB,1.3088E+01_JPRB,1.7871E+01_JPRB,1.8767E+01_JPRB/)
+KBO( :, 3,59,12) = (/&
+&6.6841E-01_JPRB,6.6833E-01_JPRB,7.5138E+00_JPRB,1.3610E+01_JPRB,1.8575E+01_JPRB,1.9865E+01_JPRB/)
+KBO( :, 4,59,12) = (/&
+&8.5925E-01_JPRB,8.5905E-01_JPRB,7.6263E+00_JPRB,1.3870E+01_JPRB,1.8932E+01_JPRB,2.0637E+01_JPRB/)
+KBO( :, 5,59,12) = (/&
+&1.0843E+00_JPRB,1.0840E+00_JPRB,7.6509E+00_JPRB,1.3928E+01_JPRB,1.9019E+01_JPRB,2.1126E+01_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_B3
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb4_B4.F90	(revision 2160)
@@ -0,0 +1,1924 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB4_B4
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 6, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*H2O), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13,13) = (/&
+&2.1392E+01_JPRB,2.1380E+01_JPRB,1.6377E+01_JPRB,1.1373E+01_JPRB,6.6382E+00_JPRB,5.4072E+00_JPRB/)
+KBO( :, 2,13,13) = (/&
+&2.0984E+01_JPRB,2.0973E+01_JPRB,1.6065E+01_JPRB,1.1155E+01_JPRB,6.4809E+00_JPRB,5.2816E+00_JPRB/)
+KBO( :, 3,13,13) = (/&
+&2.0571E+01_JPRB,2.0560E+01_JPRB,1.5742E+01_JPRB,1.0918E+01_JPRB,6.3142E+00_JPRB,5.1399E+00_JPRB/)
+KBO( :, 4,13,13) = (/&
+&2.0116E+01_JPRB,2.0104E+01_JPRB,1.5385E+01_JPRB,1.0661E+01_JPRB,6.1353E+00_JPRB,5.0342E+00_JPRB/)
+KBO( :, 5,13,13) = (/&
+&1.9665E+01_JPRB,1.9654E+01_JPRB,1.5041E+01_JPRB,1.0410E+01_JPRB,5.9659E+00_JPRB,5.1046E+00_JPRB/)
+KBO( :, 1,14,13) = (/&
+&2.2611E+01_JPRB,2.2598E+01_JPRB,1.7286E+01_JPRB,1.1979E+01_JPRB,6.9848E+00_JPRB,5.8003E+00_JPRB/)
+KBO( :, 2,14,13) = (/&
+&2.2235E+01_JPRB,2.2222E+01_JPRB,1.6999E+01_JPRB,1.1763E+01_JPRB,6.8307E+00_JPRB,5.6143E+00_JPRB/)
+KBO( :, 3,14,13) = (/&
+&2.1845E+01_JPRB,2.1832E+01_JPRB,1.6684E+01_JPRB,1.1532E+01_JPRB,6.6725E+00_JPRB,5.4768E+00_JPRB/)
+KBO( :, 4,14,13) = (/&
+&2.1455E+01_JPRB,2.1442E+01_JPRB,1.6377E+01_JPRB,1.1313E+01_JPRB,6.5206E+00_JPRB,5.3624E+00_JPRB/)
+KBO( :, 5,14,13) = (/&
+&2.1081E+01_JPRB,2.1069E+01_JPRB,1.6078E+01_JPRB,1.1090E+01_JPRB,6.3823E+00_JPRB,5.2307E+00_JPRB/)
+KBO( :, 1,15,13) = (/&
+&2.4085E+01_JPRB,2.4071E+01_JPRB,1.8394E+01_JPRB,1.2709E+01_JPRB,7.4960E+00_JPRB,6.3317E+00_JPRB/)
+KBO( :, 2,15,13) = (/&
+&2.3744E+01_JPRB,2.3731E+01_JPRB,1.8118E+01_JPRB,1.2499E+01_JPRB,7.3422E+00_JPRB,6.1431E+00_JPRB/)
+KBO( :, 3,15,13) = (/&
+&2.3384E+01_JPRB,2.3371E+01_JPRB,1.7836E+01_JPRB,1.2301E+01_JPRB,7.1895E+00_JPRB,5.9905E+00_JPRB/)
+KBO( :, 4,15,13) = (/&
+&2.3079E+01_JPRB,2.3065E+01_JPRB,1.7598E+01_JPRB,1.2125E+01_JPRB,7.0485E+00_JPRB,5.8455E+00_JPRB/)
+KBO( :, 5,15,13) = (/&
+&2.2790E+01_JPRB,2.2777E+01_JPRB,1.7354E+01_JPRB,1.1938E+01_JPRB,6.8999E+00_JPRB,5.7410E+00_JPRB/)
+KBO( :, 1,16,13) = (/&
+&2.5695E+01_JPRB,2.5680E+01_JPRB,1.9581E+01_JPRB,1.3479E+01_JPRB,8.1349E+00_JPRB,7.0625E+00_JPRB/)
+KBO( :, 2,16,13) = (/&
+&2.5421E+01_JPRB,2.5406E+01_JPRB,1.9374E+01_JPRB,1.3336E+01_JPRB,7.9760E+00_JPRB,6.8886E+00_JPRB/)
+KBO( :, 3,16,13) = (/&
+&2.5170E+01_JPRB,2.5155E+01_JPRB,1.9169E+01_JPRB,1.3185E+01_JPRB,7.8208E+00_JPRB,6.7331E+00_JPRB/)
+KBO( :, 4,16,13) = (/&
+&2.4917E+01_JPRB,2.4902E+01_JPRB,1.8958E+01_JPRB,1.3021E+01_JPRB,7.6613E+00_JPRB,6.5695E+00_JPRB/)
+KBO( :, 5,16,13) = (/&
+&2.4671E+01_JPRB,2.4656E+01_JPRB,1.8755E+01_JPRB,1.2857E+01_JPRB,7.5038E+00_JPRB,6.4414E+00_JPRB/)
+KBO( :, 1,17,13) = (/&
+&2.7485E+01_JPRB,2.7469E+01_JPRB,2.0920E+01_JPRB,1.4359E+01_JPRB,8.8403E+00_JPRB,7.9625E+00_JPRB/)
+KBO( :, 2,17,13) = (/&
+&2.7261E+01_JPRB,2.7245E+01_JPRB,2.0734E+01_JPRB,1.4221E+01_JPRB,8.6752E+00_JPRB,7.7696E+00_JPRB/)
+KBO( :, 3,17,13) = (/&
+&2.7019E+01_JPRB,2.7003E+01_JPRB,2.0538E+01_JPRB,1.4067E+01_JPRB,8.5095E+00_JPRB,7.5869E+00_JPRB/)
+KBO( :, 4,17,13) = (/&
+&2.6774E+01_JPRB,2.6758E+01_JPRB,2.0340E+01_JPRB,1.3916E+01_JPRB,8.3433E+00_JPRB,7.4093E+00_JPRB/)
+KBO( :, 5,17,13) = (/&
+&2.6489E+01_JPRB,2.6473E+01_JPRB,2.0113E+01_JPRB,1.3747E+01_JPRB,8.1757E+00_JPRB,7.2580E+00_JPRB/)
+KBO( :, 1,18,13) = (/&
+&2.9073E+01_JPRB,2.9056E+01_JPRB,2.2090E+01_JPRB,1.5130E+01_JPRB,9.6108E+00_JPRB,8.9667E+00_JPRB/)
+KBO( :, 2,18,13) = (/&
+&2.8847E+01_JPRB,2.8830E+01_JPRB,2.1906E+01_JPRB,1.4984E+01_JPRB,9.4415E+00_JPRB,8.7341E+00_JPRB/)
+KBO( :, 3,18,13) = (/&
+&2.8614E+01_JPRB,2.8597E+01_JPRB,2.1721E+01_JPRB,1.4840E+01_JPRB,9.2727E+00_JPRB,8.5308E+00_JPRB/)
+KBO( :, 4,18,13) = (/&
+&2.8333E+01_JPRB,2.8317E+01_JPRB,2.1498E+01_JPRB,1.4677E+01_JPRB,9.0956E+00_JPRB,8.3322E+00_JPRB/)
+KBO( :, 5,18,13) = (/&
+&2.8019E+01_JPRB,2.8003E+01_JPRB,2.1254E+01_JPRB,1.4499E+01_JPRB,8.9142E+00_JPRB,8.1468E+00_JPRB/)
+KBO( :, 1,19,13) = (/&
+&3.0315E+01_JPRB,3.0297E+01_JPRB,2.3006E+01_JPRB,1.5724E+01_JPRB,1.0512E+01_JPRB,1.0019E+01_JPRB/)
+KBO( :, 2,19,13) = (/&
+&3.0061E+01_JPRB,3.0044E+01_JPRB,2.2808E+01_JPRB,1.5577E+01_JPRB,1.0342E+01_JPRB,9.7644E+00_JPRB/)
+KBO( :, 3,19,13) = (/&
+&2.9787E+01_JPRB,2.9769E+01_JPRB,2.2595E+01_JPRB,1.5419E+01_JPRB,1.0163E+01_JPRB,9.5327E+00_JPRB/)
+KBO( :, 4,19,13) = (/&
+&2.9464E+01_JPRB,2.9447E+01_JPRB,2.2343E+01_JPRB,1.5239E+01_JPRB,9.9795E+00_JPRB,9.3290E+00_JPRB/)
+KBO( :, 5,19,13) = (/&
+&2.9104E+01_JPRB,2.9087E+01_JPRB,2.2065E+01_JPRB,1.5039E+01_JPRB,9.7881E+00_JPRB,9.1292E+00_JPRB/)
+KBO( :, 1,20,13) = (/&
+&3.1036E+01_JPRB,3.1018E+01_JPRB,2.3548E+01_JPRB,1.6113E+01_JPRB,1.1579E+01_JPRB,1.1154E+01_JPRB/)
+KBO( :, 2,20,13) = (/&
+&3.0755E+01_JPRB,3.0737E+01_JPRB,2.3334E+01_JPRB,1.5957E+01_JPRB,1.1393E+01_JPRB,1.0893E+01_JPRB/)
+KBO( :, 3,20,13) = (/&
+&3.0452E+01_JPRB,3.0434E+01_JPRB,2.3095E+01_JPRB,1.5780E+01_JPRB,1.1192E+01_JPRB,1.0651E+01_JPRB/)
+KBO( :, 4,20,13) = (/&
+&3.0086E+01_JPRB,3.0068E+01_JPRB,2.2811E+01_JPRB,1.5577E+01_JPRB,1.0976E+01_JPRB,1.0441E+01_JPRB/)
+KBO( :, 5,20,13) = (/&
+&2.9696E+01_JPRB,2.9679E+01_JPRB,2.2510E+01_JPRB,1.5363E+01_JPRB,1.0748E+01_JPRB,1.0213E+01_JPRB/)
+KBO( :, 1,21,13) = (/&
+&3.1144E+01_JPRB,3.1126E+01_JPRB,2.3635E+01_JPRB,1.6360E+01_JPRB,1.2781E+01_JPRB,1.2415E+01_JPRB/)
+KBO( :, 2,21,13) = (/&
+&3.0844E+01_JPRB,3.0826E+01_JPRB,2.3403E+01_JPRB,1.6172E+01_JPRB,1.2549E+01_JPRB,1.2147E+01_JPRB/)
+KBO( :, 3,21,13) = (/&
+&3.0498E+01_JPRB,3.0480E+01_JPRB,2.3133E+01_JPRB,1.5960E+01_JPRB,1.2302E+01_JPRB,1.1885E+01_JPRB/)
+KBO( :, 4,21,13) = (/&
+&3.0111E+01_JPRB,3.0093E+01_JPRB,2.2836E+01_JPRB,1.5742E+01_JPRB,1.2041E+01_JPRB,1.1642E+01_JPRB/)
+KBO( :, 5,21,13) = (/&
+&2.9700E+01_JPRB,2.9683E+01_JPRB,2.2517E+01_JPRB,1.5496E+01_JPRB,1.1766E+01_JPRB,1.1381E+01_JPRB/)
+KBO( :, 1,22,13) = (/&
+&3.0579E+01_JPRB,3.0561E+01_JPRB,2.3219E+01_JPRB,1.6510E+01_JPRB,1.4016E+01_JPRB,1.3791E+01_JPRB/)
+KBO( :, 2,22,13) = (/&
+&3.0252E+01_JPRB,3.0234E+01_JPRB,2.2968E+01_JPRB,1.6283E+01_JPRB,1.3741E+01_JPRB,1.3488E+01_JPRB/)
+KBO( :, 3,22,13) = (/&
+&2.9906E+01_JPRB,2.9889E+01_JPRB,2.2700E+01_JPRB,1.6051E+01_JPRB,1.3445E+01_JPRB,1.3187E+01_JPRB/)
+KBO( :, 4,22,13) = (/&
+&2.9523E+01_JPRB,2.9506E+01_JPRB,2.2405E+01_JPRB,1.5794E+01_JPRB,1.3135E+01_JPRB,1.2905E+01_JPRB/)
+KBO( :, 5,22,13) = (/&
+&2.9116E+01_JPRB,2.9100E+01_JPRB,2.2090E+01_JPRB,1.5521E+01_JPRB,1.2819E+01_JPRB,1.2597E+01_JPRB/)
+KBO( :, 1,23,13) = (/&
+&2.9397E+01_JPRB,2.9380E+01_JPRB,2.2345E+01_JPRB,1.6640E+01_JPRB,1.5241E+01_JPRB,1.5271E+01_JPRB/)
+KBO( :, 2,23,13) = (/&
+&2.9096E+01_JPRB,2.9079E+01_JPRB,2.2113E+01_JPRB,1.6382E+01_JPRB,1.4921E+01_JPRB,1.4908E+01_JPRB/)
+KBO( :, 3,23,13) = (/&
+&2.8759E+01_JPRB,2.8742E+01_JPRB,2.1850E+01_JPRB,1.6098E+01_JPRB,1.4591E+01_JPRB,1.4553E+01_JPRB/)
+KBO( :, 4,23,13) = (/&
+&2.8405E+01_JPRB,2.8388E+01_JPRB,2.1576E+01_JPRB,1.5810E+01_JPRB,1.4244E+01_JPRB,1.4213E+01_JPRB/)
+KBO( :, 5,23,13) = (/&
+&2.8010E+01_JPRB,2.7994E+01_JPRB,2.1268E+01_JPRB,1.5508E+01_JPRB,1.3883E+01_JPRB,1.3842E+01_JPRB/)
+KBO( :, 1,24,13) = (/&
+&2.7736E+01_JPRB,2.7720E+01_JPRB,2.1114E+01_JPRB,1.6904E+01_JPRB,1.6493E+01_JPRB,1.6795E+01_JPRB/)
+KBO( :, 2,24,13) = (/&
+&2.7462E+01_JPRB,2.7446E+01_JPRB,2.0900E+01_JPRB,1.6582E+01_JPRB,1.6130E+01_JPRB,1.6394E+01_JPRB/)
+KBO( :, 3,24,13) = (/&
+&2.7151E+01_JPRB,2.7136E+01_JPRB,2.0660E+01_JPRB,1.6247E+01_JPRB,1.5745E+01_JPRB,1.5974E+01_JPRB/)
+KBO( :, 4,24,13) = (/&
+&2.6831E+01_JPRB,2.6816E+01_JPRB,2.0409E+01_JPRB,1.5908E+01_JPRB,1.5345E+01_JPRB,1.5569E+01_JPRB/)
+KBO( :, 5,24,13) = (/&
+&2.6459E+01_JPRB,2.6444E+01_JPRB,2.0122E+01_JPRB,1.5560E+01_JPRB,1.4934E+01_JPRB,1.5132E+01_JPRB/)
+KBO( :, 1,25,13) = (/&
+&2.5741E+01_JPRB,2.5726E+01_JPRB,1.9691E+01_JPRB,1.7263E+01_JPRB,1.7747E+01_JPRB,1.8359E+01_JPRB/)
+KBO( :, 2,25,13) = (/&
+&2.5497E+01_JPRB,2.5482E+01_JPRB,1.9486E+01_JPRB,1.6895E+01_JPRB,1.7326E+01_JPRB,1.7886E+01_JPRB/)
+KBO( :, 3,25,13) = (/&
+&2.5241E+01_JPRB,2.5227E+01_JPRB,1.9275E+01_JPRB,1.6517E+01_JPRB,1.6889E+01_JPRB,1.7399E+01_JPRB/)
+KBO( :, 4,25,13) = (/&
+&2.4941E+01_JPRB,2.4927E+01_JPRB,1.9033E+01_JPRB,1.6125E+01_JPRB,1.6436E+01_JPRB,1.6925E+01_JPRB/)
+KBO( :, 5,25,13) = (/&
+&2.4625E+01_JPRB,2.4611E+01_JPRB,1.8780E+01_JPRB,1.5723E+01_JPRB,1.5971E+01_JPRB,1.6420E+01_JPRB/)
+KBO( :, 1,26,13) = (/&
+&2.3543E+01_JPRB,2.3530E+01_JPRB,1.8282E+01_JPRB,1.7640E+01_JPRB,1.9000E+01_JPRB,1.9879E+01_JPRB/)
+KBO( :, 2,26,13) = (/&
+&2.3344E+01_JPRB,2.3330E+01_JPRB,1.8083E+01_JPRB,1.7232E+01_JPRB,1.8508E+01_JPRB,1.9336E+01_JPRB/)
+KBO( :, 3,26,13) = (/&
+&2.3131E+01_JPRB,2.3118E+01_JPRB,1.7881E+01_JPRB,1.6809E+01_JPRB,1.8012E+01_JPRB,1.8780E+01_JPRB/)
+KBO( :, 4,26,13) = (/&
+&2.2891E+01_JPRB,2.2878E+01_JPRB,1.7660E+01_JPRB,1.6381E+01_JPRB,1.7496E+01_JPRB,1.8235E+01_JPRB/)
+KBO( :, 5,26,13) = (/&
+&2.2635E+01_JPRB,2.2623E+01_JPRB,1.7424E+01_JPRB,1.5941E+01_JPRB,1.6965E+01_JPRB,1.7649E+01_JPRB/)
+KBO( :, 1,27,13) = (/&
+&2.1263E+01_JPRB,2.1251E+01_JPRB,1.6999E+01_JPRB,1.8073E+01_JPRB,2.0218E+01_JPRB,2.1326E+01_JPRB/)
+KBO( :, 2,27,13) = (/&
+&2.1130E+01_JPRB,2.1118E+01_JPRB,1.6805E+01_JPRB,1.7603E+01_JPRB,1.9655E+01_JPRB,2.0714E+01_JPRB/)
+KBO( :, 3,27,13) = (/&
+&2.0964E+01_JPRB,2.0953E+01_JPRB,1.6591E+01_JPRB,1.7141E+01_JPRB,1.9068E+01_JPRB,2.0084E+01_JPRB/)
+KBO( :, 4,27,13) = (/&
+&2.0811E+01_JPRB,2.0800E+01_JPRB,1.6383E+01_JPRB,1.6665E+01_JPRB,1.8477E+01_JPRB,1.9460E+01_JPRB/)
+KBO( :, 5,27,13) = (/&
+&2.0671E+01_JPRB,2.0659E+01_JPRB,1.6163E+01_JPRB,1.6182E+01_JPRB,1.7875E+01_JPRB,1.8801E+01_JPRB/)
+KBO( :, 1,28,13) = (/&
+&1.9006E+01_JPRB,1.8995E+01_JPRB,1.5933E+01_JPRB,1.8511E+01_JPRB,2.1355E+01_JPRB,2.2683E+01_JPRB/)
+KBO( :, 2,28,13) = (/&
+&1.8934E+01_JPRB,1.8923E+01_JPRB,1.5716E+01_JPRB,1.8009E+01_JPRB,2.0708E+01_JPRB,2.1993E+01_JPRB/)
+KBO( :, 3,28,13) = (/&
+&1.8875E+01_JPRB,1.8864E+01_JPRB,1.5505E+01_JPRB,1.7487E+01_JPRB,2.0041E+01_JPRB,2.1291E+01_JPRB/)
+KBO( :, 4,28,13) = (/&
+&1.8867E+01_JPRB,1.8856E+01_JPRB,1.5292E+01_JPRB,1.6969E+01_JPRB,1.9370E+01_JPRB,2.0578E+01_JPRB/)
+KBO( :, 5,28,13) = (/&
+&1.8926E+01_JPRB,1.8916E+01_JPRB,1.5114E+01_JPRB,1.6444E+01_JPRB,1.8700E+01_JPRB,1.9834E+01_JPRB/)
+KBO( :, 1,29,13) = (/&
+&1.6866E+01_JPRB,1.6856E+01_JPRB,1.5090E+01_JPRB,1.8932E+01_JPRB,2.2378E+01_JPRB,2.3900E+01_JPRB/)
+KBO( :, 2,29,13) = (/&
+&1.6895E+01_JPRB,1.6885E+01_JPRB,1.4848E+01_JPRB,1.8394E+01_JPRB,2.1642E+01_JPRB,2.3131E+01_JPRB/)
+KBO( :, 3,29,13) = (/&
+&1.7005E+01_JPRB,1.6996E+01_JPRB,1.4617E+01_JPRB,1.7836E+01_JPRB,2.0899E+01_JPRB,2.2368E+01_JPRB/)
+KBO( :, 4,29,13) = (/&
+&1.7186E+01_JPRB,1.7177E+01_JPRB,1.4419E+01_JPRB,1.7274E+01_JPRB,2.0148E+01_JPRB,2.1559E+01_JPRB/)
+KBO( :, 5,29,13) = (/&
+&1.7419E+01_JPRB,1.7409E+01_JPRB,1.4291E+01_JPRB,1.6708E+01_JPRB,1.9414E+01_JPRB,2.0739E+01_JPRB/)
+KBO( :, 1,30,13) = (/&
+&1.4953E+01_JPRB,1.4945E+01_JPRB,1.4448E+01_JPRB,1.9321E+01_JPRB,2.3266E+01_JPRB,2.4961E+01_JPRB/)
+KBO( :, 2,30,13) = (/&
+&1.5147E+01_JPRB,1.5138E+01_JPRB,1.4172E+01_JPRB,1.8728E+01_JPRB,2.2451E+01_JPRB,2.4136E+01_JPRB/)
+KBO( :, 3,30,13) = (/&
+&1.5423E+01_JPRB,1.5415E+01_JPRB,1.3932E+01_JPRB,1.8138E+01_JPRB,2.1636E+01_JPRB,2.3296E+01_JPRB/)
+KBO( :, 4,30,13) = (/&
+&1.5783E+01_JPRB,1.5774E+01_JPRB,1.3754E+01_JPRB,1.7532E+01_JPRB,2.0815E+01_JPRB,2.2402E+01_JPRB/)
+KBO( :, 5,30,13) = (/&
+&1.6221E+01_JPRB,1.6212E+01_JPRB,1.3682E+01_JPRB,1.6932E+01_JPRB,2.0014E+01_JPRB,2.1530E+01_JPRB/)
+KBO( :, 1,31,13) = (/&
+&1.3343E+01_JPRB,1.3335E+01_JPRB,1.3979E+01_JPRB,1.9651E+01_JPRB,2.4006E+01_JPRB,2.5869E+01_JPRB/)
+KBO( :, 2,31,13) = (/&
+&1.3698E+01_JPRB,1.3690E+01_JPRB,1.3675E+01_JPRB,1.9009E+01_JPRB,2.3133E+01_JPRB,2.5002E+01_JPRB/)
+KBO( :, 3,31,13) = (/&
+&1.4163E+01_JPRB,1.4155E+01_JPRB,1.3429E+01_JPRB,1.8375E+01_JPRB,2.2243E+01_JPRB,2.4068E+01_JPRB/)
+KBO( :, 4,31,13) = (/&
+&1.4712E+01_JPRB,1.4703E+01_JPRB,1.3295E+01_JPRB,1.7748E+01_JPRB,2.1362E+01_JPRB,2.3103E+01_JPRB/)
+KBO( :, 5,31,13) = (/&
+&1.5311E+01_JPRB,1.5303E+01_JPRB,1.3250E+01_JPRB,1.7114E+01_JPRB,2.0500E+01_JPRB,2.2261E+01_JPRB/)
+KBO( :, 1,32,13) = (/&
+&1.2052E+01_JPRB,1.2045E+01_JPRB,1.3628E+01_JPRB,1.9911E+01_JPRB,2.4618E+01_JPRB,2.6646E+01_JPRB/)
+KBO( :, 2,32,13) = (/&
+&1.2587E+01_JPRB,1.2580E+01_JPRB,1.3324E+01_JPRB,1.9233E+01_JPRB,2.3679E+01_JPRB,2.5689E+01_JPRB/)
+KBO( :, 3,32,13) = (/&
+&1.3218E+01_JPRB,1.3210E+01_JPRB,1.3094E+01_JPRB,1.8557E+01_JPRB,2.2722E+01_JPRB,2.4678E+01_JPRB/)
+KBO( :, 4,32,13) = (/&
+&1.3914E+01_JPRB,1.3907E+01_JPRB,1.2978E+01_JPRB,1.7906E+01_JPRB,2.1782E+01_JPRB,2.3743E+01_JPRB/)
+KBO( :, 5,32,13) = (/&
+&1.4655E+01_JPRB,1.4646E+01_JPRB,1.2957E+01_JPRB,1.7249E+01_JPRB,2.0874E+01_JPRB,2.2925E+01_JPRB/)
+KBO( :, 1,33,13) = (/&
+&1.1069E+01_JPRB,1.1063E+01_JPRB,1.3365E+01_JPRB,2.0106E+01_JPRB,2.5097E+01_JPRB,2.7267E+01_JPRB/)
+KBO( :, 2,33,13) = (/&
+&1.1756E+01_JPRB,1.1750E+01_JPRB,1.3070E+01_JPRB,1.9396E+01_JPRB,2.4095E+01_JPRB,2.6242E+01_JPRB/)
+KBO( :, 3,33,13) = (/&
+&1.2532E+01_JPRB,1.2525E+01_JPRB,1.2868E+01_JPRB,1.8687E+01_JPRB,2.3087E+01_JPRB,2.5240E+01_JPRB/)
+KBO( :, 4,33,13) = (/&
+&1.3360E+01_JPRB,1.3352E+01_JPRB,1.2765E+01_JPRB,1.8010E+01_JPRB,2.2099E+01_JPRB,2.4405E+01_JPRB/)
+KBO( :, 5,33,13) = (/&
+&1.4221E+01_JPRB,1.4213E+01_JPRB,1.2776E+01_JPRB,1.7337E+01_JPRB,2.1144E+01_JPRB,2.3571E+01_JPRB/)
+KBO( :, 1,34,13) = (/&
+&1.0330E+01_JPRB,1.0325E+01_JPRB,1.3170E+01_JPRB,2.0275E+01_JPRB,2.5492E+01_JPRB,2.7791E+01_JPRB/)
+KBO( :, 2,34,13) = (/&
+&1.1144E+01_JPRB,1.1137E+01_JPRB,1.2897E+01_JPRB,1.9532E+01_JPRB,2.4430E+01_JPRB,2.6740E+01_JPRB/)
+KBO( :, 3,34,13) = (/&
+&1.2039E+01_JPRB,1.2032E+01_JPRB,1.2723E+01_JPRB,1.8800E+01_JPRB,2.3383E+01_JPRB,2.5842E+01_JPRB/)
+KBO( :, 4,34,13) = (/&
+&1.2978E+01_JPRB,1.2971E+01_JPRB,1.2635E+01_JPRB,1.8099E+01_JPRB,2.2352E+01_JPRB,2.4982E+01_JPRB/)
+KBO( :, 5,34,13) = (/&
+&1.3934E+01_JPRB,1.3926E+01_JPRB,1.2668E+01_JPRB,1.7413E+01_JPRB,2.1361E+01_JPRB,2.4094E+01_JPRB/)
+KBO( :, 1,35,13) = (/&
+&9.7254E+00_JPRB,9.7201E+00_JPRB,1.3055E+01_JPRB,2.0467E+01_JPRB,2.5890E+01_JPRB,2.8316E+01_JPRB/)
+KBO( :, 2,35,13) = (/&
+&1.0642E+01_JPRB,1.0636E+01_JPRB,1.2799E+01_JPRB,1.9691E+01_JPRB,2.4776E+01_JPRB,2.7321E+01_JPRB/)
+KBO( :, 3,35,13) = (/&
+&1.1630E+01_JPRB,1.1624E+01_JPRB,1.2635E+01_JPRB,1.8939E+01_JPRB,2.3691E+01_JPRB,2.6463E+01_JPRB/)
+KBO( :, 4,35,13) = (/&
+&1.2660E+01_JPRB,1.2653E+01_JPRB,1.2560E+01_JPRB,1.8216E+01_JPRB,2.2621E+01_JPRB,2.5557E+01_JPRB/)
+KBO( :, 5,35,13) = (/&
+&1.3686E+01_JPRB,1.3678E+01_JPRB,1.2601E+01_JPRB,1.7514E+01_JPRB,2.1598E+01_JPRB,2.4647E+01_JPRB/)
+KBO( :, 1,36,13) = (/&
+&9.1824E+00_JPRB,9.1775E+00_JPRB,1.3014E+01_JPRB,2.0702E+01_JPRB,2.6319E+01_JPRB,2.8897E+01_JPRB/)
+KBO( :, 2,36,13) = (/&
+&1.0178E+01_JPRB,1.0173E+01_JPRB,1.2753E+01_JPRB,1.9897E+01_JPRB,2.5164E+01_JPRB,2.7977E+01_JPRB/)
+KBO( :, 3,36,13) = (/&
+&1.1240E+01_JPRB,1.1234E+01_JPRB,1.2589E+01_JPRB,1.9121E+01_JPRB,2.4043E+01_JPRB,2.7098E+01_JPRB/)
+KBO( :, 4,36,13) = (/&
+&1.2332E+01_JPRB,1.2325E+01_JPRB,1.2520E+01_JPRB,1.8377E+01_JPRB,2.2938E+01_JPRB,2.6162E+01_JPRB/)
+KBO( :, 5,36,13) = (/&
+&1.3423E+01_JPRB,1.3415E+01_JPRB,1.2563E+01_JPRB,1.7662E+01_JPRB,2.1883E+01_JPRB,2.5220E+01_JPRB/)
+KBO( :, 1,37,13) = (/&
+&8.6099E+00_JPRB,8.6053E+00_JPRB,1.3043E+01_JPRB,2.1019E+01_JPRB,2.6856E+01_JPRB,2.9568E+01_JPRB/)
+KBO( :, 2,37,13) = (/&
+&9.6546E+00_JPRB,9.6493E+00_JPRB,1.2762E+01_JPRB,2.0197E+01_JPRB,2.5667E+01_JPRB,2.8665E+01_JPRB/)
+KBO( :, 3,37,13) = (/&
+&1.0769E+01_JPRB,1.0763E+01_JPRB,1.2583E+01_JPRB,1.9394E+01_JPRB,2.4509E+01_JPRB,2.7775E+01_JPRB/)
+KBO( :, 4,37,13) = (/&
+&1.1910E+01_JPRB,1.1903E+01_JPRB,1.2502E+01_JPRB,1.8624E+01_JPRB,2.3371E+01_JPRB,2.6796E+01_JPRB/)
+KBO( :, 5,37,13) = (/&
+&1.3054E+01_JPRB,1.3047E+01_JPRB,1.2531E+01_JPRB,1.7890E+01_JPRB,2.2279E+01_JPRB,2.5830E+01_JPRB/)
+KBO( :, 1,38,13) = (/&
+&8.1124E+00_JPRB,8.1081E+00_JPRB,1.3090E+01_JPRB,2.1323E+01_JPRB,2.7354E+01_JPRB,3.0221E+01_JPRB/)
+KBO( :, 2,38,13) = (/&
+&9.1955E+00_JPRB,9.1905E+00_JPRB,1.2789E+01_JPRB,2.0480E+01_JPRB,2.6132E+01_JPRB,2.9338E+01_JPRB/)
+KBO( :, 3,38,13) = (/&
+&1.0346E+01_JPRB,1.0340E+01_JPRB,1.2594E+01_JPRB,1.9657E+01_JPRB,2.4940E+01_JPRB,2.8430E+01_JPRB/)
+KBO( :, 4,38,13) = (/&
+&1.1526E+01_JPRB,1.1520E+01_JPRB,1.2499E+01_JPRB,1.8864E+01_JPRB,2.3774E+01_JPRB,2.7417E+01_JPRB/)
+KBO( :, 5,38,13) = (/&
+&1.2710E+01_JPRB,1.2703E+01_JPRB,1.2513E+01_JPRB,1.8110E+01_JPRB,2.2651E+01_JPRB,2.6428E+01_JPRB/)
+KBO( :, 1,39,13) = (/&
+&7.6875E+00_JPRB,7.6835E+00_JPRB,1.3146E+01_JPRB,2.1600E+01_JPRB,2.7801E+01_JPRB,3.0872E+01_JPRB/)
+KBO( :, 2,39,13) = (/&
+&8.7929E+00_JPRB,8.7882E+00_JPRB,1.2830E+01_JPRB,2.0739E+01_JPRB,2.6556E+01_JPRB,3.0007E+01_JPRB/)
+KBO( :, 3,39,13) = (/&
+&9.9744E+00_JPRB,9.9689E+00_JPRB,1.2617E+01_JPRB,1.9901E+01_JPRB,2.5334E+01_JPRB,2.9071E+01_JPRB/)
+KBO( :, 4,39,13) = (/&
+&1.1184E+01_JPRB,1.1178E+01_JPRB,1.2503E+01_JPRB,1.9085E+01_JPRB,2.4144E+01_JPRB,2.8025E+01_JPRB/)
+KBO( :, 5,39,13) = (/&
+&1.2397E+01_JPRB,1.2390E+01_JPRB,1.2501E+01_JPRB,1.8314E+01_JPRB,2.2991E+01_JPRB,2.7022E+01_JPRB/)
+KBO( :, 1,40,13) = (/&
+&7.2073E+00_JPRB,7.2036E+00_JPRB,1.3244E+01_JPRB,2.1941E+01_JPRB,2.8335E+01_JPRB,3.1477E+01_JPRB/)
+KBO( :, 2,40,13) = (/&
+&8.3183E+00_JPRB,8.3138E+00_JPRB,1.2905E+01_JPRB,2.1071E+01_JPRB,2.7076E+01_JPRB,3.0598E+01_JPRB/)
+KBO( :, 3,40,13) = (/&
+&9.5140E+00_JPRB,9.5088E+00_JPRB,1.2663E+01_JPRB,2.0213E+01_JPRB,2.5823E+01_JPRB,2.9671E+01_JPRB/)
+KBO( :, 4,40,13) = (/&
+&1.0744E+01_JPRB,1.0738E+01_JPRB,1.2520E+01_JPRB,1.9377E+01_JPRB,2.4607E+01_JPRB,2.8610E+01_JPRB/)
+KBO( :, 5,40,13) = (/&
+&1.1983E+01_JPRB,1.1976E+01_JPRB,1.2493E+01_JPRB,1.8588E+01_JPRB,2.3425E+01_JPRB,2.7600E+01_JPRB/)
+KBO( :, 1,41,13) = (/&
+&6.7611E+00_JPRB,6.7576E+00_JPRB,1.3349E+01_JPRB,2.2280E+01_JPRB,2.8859E+01_JPRB,3.2049E+01_JPRB/)
+KBO( :, 2,41,13) = (/&
+&7.8674E+00_JPRB,7.8632E+00_JPRB,1.2993E+01_JPRB,2.1395E+01_JPRB,2.7586E+01_JPRB,3.1155E+01_JPRB/)
+KBO( :, 3,41,13) = (/&
+&9.0665E+00_JPRB,9.0616E+00_JPRB,1.2725E+01_JPRB,2.0522E+01_JPRB,2.6310E+01_JPRB,3.0246E+01_JPRB/)
+KBO( :, 4,41,13) = (/&
+&1.0311E+01_JPRB,1.0306E+01_JPRB,1.2549E+01_JPRB,1.9674E+01_JPRB,2.5066E+01_JPRB,2.9176E+01_JPRB/)
+KBO( :, 5,41,13) = (/&
+&1.1568E+01_JPRB,1.1562E+01_JPRB,1.2494E+01_JPRB,1.8859E+01_JPRB,2.3856E+01_JPRB,2.8161E+01_JPRB/)
+KBO( :, 1,42,13) = (/&
+&6.3548E+00_JPRB,6.3515E+00_JPRB,1.3456E+01_JPRB,2.2608E+01_JPRB,2.9366E+01_JPRB,3.2606E+01_JPRB/)
+KBO( :, 2,42,13) = (/&
+&7.4451E+00_JPRB,7.4412E+00_JPRB,1.3085E+01_JPRB,2.1711E+01_JPRB,2.8070E+01_JPRB,3.1692E+01_JPRB/)
+KBO( :, 3,42,13) = (/&
+&8.6411E+00_JPRB,8.6364E+00_JPRB,1.2793E+01_JPRB,2.0822E+01_JPRB,2.6779E+01_JPRB,3.0806E+01_JPRB/)
+KBO( :, 4,42,13) = (/&
+&9.8929E+00_JPRB,9.8874E+00_JPRB,1.2589E+01_JPRB,1.9962E+01_JPRB,2.5511E+01_JPRB,2.9730E+01_JPRB/)
+KBO( :, 5,42,13) = (/&
+&1.1166E+01_JPRB,1.1160E+01_JPRB,1.2501E+01_JPRB,1.9127E+01_JPRB,2.4277E+01_JPRB,2.8718E+01_JPRB/)
+KBO( :, 1,43,13) = (/&
+&5.9236E+00_JPRB,5.9206E+00_JPRB,1.3597E+01_JPRB,2.2980E+01_JPRB,2.9923E+01_JPRB,3.3179E+01_JPRB/)
+KBO( :, 2,43,13) = (/&
+&6.9885E+00_JPRB,6.9848E+00_JPRB,1.3206E+01_JPRB,2.2070E+01_JPRB,2.8607E+01_JPRB,3.2249E+01_JPRB/)
+KBO( :, 3,43,13) = (/&
+&8.1682E+00_JPRB,8.1638E+00_JPRB,1.2880E+01_JPRB,2.1165E+01_JPRB,2.7304E+01_JPRB,3.1388E+01_JPRB/)
+KBO( :, 4,43,13) = (/&
+&9.4211E+00_JPRB,9.4159E+00_JPRB,1.2650E+01_JPRB,2.0290E+01_JPRB,2.6012E+01_JPRB,3.0330E+01_JPRB/)
+KBO( :, 5,43,13) = (/&
+&1.0699E+01_JPRB,1.0693E+01_JPRB,1.2520E+01_JPRB,1.9438E+01_JPRB,2.4759E+01_JPRB,2.9317E+01_JPRB/)
+KBO( :, 1,44,13) = (/&
+&5.4998E+00_JPRB,5.4970E+00_JPRB,1.3748E+01_JPRB,2.3364E+01_JPRB,3.0492E+01_JPRB,3.3756E+01_JPRB/)
+KBO( :, 2,44,13) = (/&
+&6.5311E+00_JPRB,6.5277E+00_JPRB,1.3340E+01_JPRB,2.2442E+01_JPRB,2.9167E+01_JPRB,3.2820E+01_JPRB/)
+KBO( :, 3,44,13) = (/&
+&7.6857E+00_JPRB,7.6816E+00_JPRB,1.2985E+01_JPRB,2.1531E+01_JPRB,2.7848E+01_JPRB,3.1979E+01_JPRB/)
+KBO( :, 4,44,13) = (/&
+&8.9256E+00_JPRB,8.9207E+00_JPRB,1.2724E+01_JPRB,2.0635E+01_JPRB,2.6540E+01_JPRB,3.0955E+01_JPRB/)
+KBO( :, 5,44,13) = (/&
+&1.0209E+01_JPRB,1.0203E+01_JPRB,1.2556E+01_JPRB,1.9768E+01_JPRB,2.5264E+01_JPRB,2.9937E+01_JPRB/)
+KBO( :, 1,45,13) = (/&
+&5.1066E+00_JPRB,5.1040E+00_JPRB,1.3894E+01_JPRB,2.3735E+01_JPRB,3.1041E+01_JPRB,3.4324E+01_JPRB/)
+KBO( :, 2,45,13) = (/&
+&6.1015E+00_JPRB,6.0983E+00_JPRB,1.3484E+01_JPRB,2.2813E+01_JPRB,2.9715E+01_JPRB,3.3401E+01_JPRB/)
+KBO( :, 3,45,13) = (/&
+&7.2220E+00_JPRB,7.2182E+00_JPRB,1.3105E+01_JPRB,2.1889E+01_JPRB,2.8383E+01_JPRB,3.2574E+01_JPRB/)
+KBO( :, 4,45,13) = (/&
+&8.4438E+00_JPRB,8.4392E+00_JPRB,1.2807E+01_JPRB,2.0975E+01_JPRB,2.7061E+01_JPRB,3.1594E+01_JPRB/)
+KBO( :, 5,45,13) = (/&
+&9.7243E+00_JPRB,9.7189E+00_JPRB,1.2602E+01_JPRB,2.0098E+01_JPRB,2.5763E+01_JPRB,3.0584E+01_JPRB/)
+KBO( :, 1,46,13) = (/&
+&4.7235E+00_JPRB,4.7212E+00_JPRB,1.4046E+01_JPRB,2.4121E+01_JPRB,3.1588E+01_JPRB,3.4885E+01_JPRB/)
+KBO( :, 2,46,13) = (/&
+&5.6742E+00_JPRB,5.6713E+00_JPRB,1.3640E+01_JPRB,2.3201E+01_JPRB,3.0277E+01_JPRB,3.3993E+01_JPRB/)
+KBO( :, 3,46,13) = (/&
+&6.7562E+00_JPRB,6.7526E+00_JPRB,1.3243E+01_JPRB,2.2266E+01_JPRB,2.8936E+01_JPRB,3.3171E+01_JPRB/)
+KBO( :, 4,46,13) = (/&
+&7.9500E+00_JPRB,7.9457E+00_JPRB,1.2906E+01_JPRB,2.1341E+01_JPRB,2.7604E+01_JPRB,3.2255E+01_JPRB/)
+KBO( :, 5,46,13) = (/&
+&9.2204E+00_JPRB,9.2153E+00_JPRB,1.2671E+01_JPRB,2.0448E+01_JPRB,2.6287E+01_JPRB,3.1265E+01_JPRB/)
+KBO( :, 1,47,13) = (/&
+&4.3300E+00_JPRB,4.3280E+00_JPRB,1.4218E+01_JPRB,2.4532E+01_JPRB,3.2164E+01_JPRB,3.5437E+01_JPRB/)
+KBO( :, 2,47,13) = (/&
+&5.2306E+00_JPRB,5.2279E+00_JPRB,1.3812E+01_JPRB,2.3616E+01_JPRB,3.0887E+01_JPRB,3.4582E+01_JPRB/)
+KBO( :, 3,47,13) = (/&
+&6.2646E+00_JPRB,6.2614E+00_JPRB,1.3402E+01_JPRB,2.2678E+01_JPRB,2.9542E+01_JPRB,3.3739E+01_JPRB/)
+KBO( :, 4,47,13) = (/&
+&7.4192E+00_JPRB,7.4152E+00_JPRB,1.3037E+01_JPRB,2.1748E+01_JPRB,2.8196E+01_JPRB,3.2920E+01_JPRB/)
+KBO( :, 5,47,13) = (/&
+&8.6683E+00_JPRB,8.6636E+00_JPRB,1.2760E+01_JPRB,2.0830E+01_JPRB,2.6867E+01_JPRB,3.1949E+01_JPRB/)
+KBO( :, 1,48,13) = (/&
+&3.9563E+00_JPRB,3.9545E+00_JPRB,1.4390E+01_JPRB,2.4924E+01_JPRB,3.2712E+01_JPRB,3.5975E+01_JPRB/)
+KBO( :, 2,48,13) = (/&
+&4.8163E+00_JPRB,4.8139E+00_JPRB,1.3982E+01_JPRB,2.4022E+01_JPRB,3.1475E+01_JPRB,3.5176E+01_JPRB/)
+KBO( :, 3,48,13) = (/&
+&5.7995E+00_JPRB,5.7966E+00_JPRB,1.3571E+01_JPRB,2.3093E+01_JPRB,3.0140E+01_JPRB,3.4333E+01_JPRB/)
+KBO( :, 4,48,13) = (/&
+&6.9101E+00_JPRB,6.9064E+00_JPRB,1.3183E+01_JPRB,2.2151E+01_JPRB,2.8787E+01_JPRB,3.3609E+01_JPRB/)
+KBO( :, 5,48,13) = (/&
+&8.1290E+00_JPRB,8.1246E+00_JPRB,1.2862E+01_JPRB,2.1218E+01_JPRB,2.7446E+01_JPRB,3.2685E+01_JPRB/)
+KBO( :, 1,49,13) = (/&
+&3.6095E+00_JPRB,3.6078E+00_JPRB,1.4558E+01_JPRB,2.5296E+01_JPRB,3.3234E+01_JPRB,3.6504E+01_JPRB/)
+KBO( :, 2,49,13) = (/&
+&4.4271E+00_JPRB,4.4249E+00_JPRB,1.4150E+01_JPRB,2.4423E+01_JPRB,3.2036E+01_JPRB,3.5772E+01_JPRB/)
+KBO( :, 3,49,13) = (/&
+&5.3603E+00_JPRB,5.3576E+00_JPRB,1.3742E+01_JPRB,2.3500E+01_JPRB,3.0731E+01_JPRB,3.4966E+01_JPRB/)
+KBO( :, 4,49,13) = (/&
+&6.4234E+00_JPRB,6.4201E+00_JPRB,1.3335E+01_JPRB,2.2553E+01_JPRB,2.9376E+01_JPRB,3.4358E+01_JPRB/)
+KBO( :, 5,49,13) = (/&
+&7.6032E+00_JPRB,7.5991E+00_JPRB,1.2984E+01_JPRB,2.1616E+01_JPRB,2.8020E+01_JPRB,3.3502E+01_JPRB/)
+KBO( :, 1,50,13) = (/&
+&3.3075E+00_JPRB,3.3060E+00_JPRB,1.4713E+01_JPRB,2.5635E+01_JPRB,3.3698E+01_JPRB,3.6916E+01_JPRB/)
+KBO( :, 2,50,13) = (/&
+&4.0785E+00_JPRB,4.0766E+00_JPRB,1.4310E+01_JPRB,2.4788E+01_JPRB,3.2546E+01_JPRB,3.6251E+01_JPRB/)
+KBO( :, 3,50,13) = (/&
+&4.9697E+00_JPRB,4.9672E+00_JPRB,1.3904E+01_JPRB,2.3873E+01_JPRB,3.1275E+01_JPRB,3.5481E+01_JPRB/)
+KBO( :, 4,50,13) = (/&
+&5.9880E+00_JPRB,5.9849E+00_JPRB,1.3488E+01_JPRB,2.2931E+01_JPRB,2.9923E+01_JPRB,3.4946E+01_JPRB/)
+KBO( :, 5,50,13) = (/&
+&7.1253E+00_JPRB,7.1215E+00_JPRB,1.3112E+01_JPRB,2.1989E+01_JPRB,2.8565E+01_JPRB,3.4166E+01_JPRB/)
+KBO( :, 1,51,13) = (/&
+&3.0350E+00_JPRB,3.0337E+00_JPRB,1.4851E+01_JPRB,2.5935E+01_JPRB,3.4107E+01_JPRB,3.7237E+01_JPRB/)
+KBO( :, 2,51,13) = (/&
+&3.7587E+00_JPRB,3.7569E+00_JPRB,1.4465E+01_JPRB,2.5129E+01_JPRB,3.3019E+01_JPRB,3.6650E+01_JPRB/)
+KBO( :, 3,51,13) = (/&
+&4.6142E+00_JPRB,4.6119E+00_JPRB,1.4053E+01_JPRB,2.4233E+01_JPRB,3.1785E+01_JPRB,3.5945E+01_JPRB/)
+KBO( :, 4,51,13) = (/&
+&5.5848E+00_JPRB,5.5820E+00_JPRB,1.3644E+01_JPRB,2.3300E+01_JPRB,3.0450E+01_JPRB,3.5428E+01_JPRB/)
+KBO( :, 5,51,13) = (/&
+&6.6798E+00_JPRB,6.6762E+00_JPRB,1.3245E+01_JPRB,2.2350E+01_JPRB,2.9088E+01_JPRB,3.4747E+01_JPRB/)
+KBO( :, 1,52,13) = (/&
+&2.7825E+00_JPRB,2.7814E+00_JPRB,1.4975E+01_JPRB,2.6195E+01_JPRB,3.4492E+01_JPRB,3.7510E+01_JPRB/)
+KBO( :, 2,52,13) = (/&
+&3.4605E+00_JPRB,3.4589E+00_JPRB,1.4616E+01_JPRB,2.5455E+01_JPRB,3.3469E+01_JPRB,3.7042E+01_JPRB/)
+KBO( :, 3,52,13) = (/&
+&4.2744E+00_JPRB,4.2723E+00_JPRB,1.4207E+01_JPRB,2.4585E+01_JPRB,3.2279E+01_JPRB,3.6429E+01_JPRB/)
+KBO( :, 4,52,13) = (/&
+&5.1994E+00_JPRB,5.1968E+00_JPRB,1.3797E+01_JPRB,2.3661E+01_JPRB,3.0975E+01_JPRB,3.5933E+01_JPRB/)
+KBO( :, 5,52,13) = (/&
+&6.2531E+00_JPRB,6.2499E+00_JPRB,1.3386E+01_JPRB,2.2706E+01_JPRB,2.9608E+01_JPRB,3.5360E+01_JPRB/)
+KBO( :, 1,53,13) = (/&
+&2.5462E+00_JPRB,2.5451E+00_JPRB,1.5076E+01_JPRB,2.6414E+01_JPRB,3.4840E+01_JPRB,3.7769E+01_JPRB/)
+KBO( :, 2,53,13) = (/&
+&3.1815E+00_JPRB,3.1801E+00_JPRB,1.4759E+01_JPRB,2.5766E+01_JPRB,3.3894E+01_JPRB,3.7437E+01_JPRB/)
+KBO( :, 3,53,13) = (/&
+&3.9476E+00_JPRB,3.9457E+00_JPRB,1.4361E+01_JPRB,2.4924E+01_JPRB,3.2751E+01_JPRB,3.6936E+01_JPRB/)
+KBO( :, 4,53,13) = (/&
+&4.8360E+00_JPRB,4.8336E+00_JPRB,1.3950E+01_JPRB,2.4012E+01_JPRB,3.1482E+01_JPRB,3.6505E+01_JPRB/)
+KBO( :, 5,53,13) = (/&
+&5.8444E+00_JPRB,5.8414E+00_JPRB,1.3535E+01_JPRB,2.3068E+01_JPRB,3.0128E+01_JPRB,3.6046E+01_JPRB/)
+KBO( :, 1,54,13) = (/&
+&2.3476E+00_JPRB,2.3467E+00_JPRB,1.5163E+01_JPRB,2.6598E+01_JPRB,3.5117E+01_JPRB,3.7852E+01_JPRB/)
+KBO( :, 2,54,13) = (/&
+&2.9439E+00_JPRB,2.9426E+00_JPRB,1.4884E+01_JPRB,2.6029E+01_JPRB,3.4253E+01_JPRB,3.7637E+01_JPRB/)
+KBO( :, 3,54,13) = (/&
+&3.6641E+00_JPRB,3.6624E+00_JPRB,1.4503E+01_JPRB,2.5231E+01_JPRB,3.3172E+01_JPRB,3.7161E+01_JPRB/)
+KBO( :, 4,54,13) = (/&
+&4.5193E+00_JPRB,4.5171E+00_JPRB,1.4088E+01_JPRB,2.4334E+01_JPRB,3.1938E+01_JPRB,3.6656E+01_JPRB/)
+KBO( :, 5,54,13) = (/&
+&5.4838E+00_JPRB,5.4810E+00_JPRB,1.3677E+01_JPRB,2.3400E+01_JPRB,3.0603E+01_JPRB,3.6329E+01_JPRB/)
+KBO( :, 1,55,13) = (/&
+&2.1710E+00_JPRB,2.1701E+00_JPRB,1.5234E+01_JPRB,2.6747E+01_JPRB,3.5339E+01_JPRB,3.7885E+01_JPRB/)
+KBO( :, 2,55,13) = (/&
+&2.7278E+00_JPRB,2.7266E+00_JPRB,1.4989E+01_JPRB,2.6245E+01_JPRB,3.4579E+01_JPRB,3.7689E+01_JPRB/)
+KBO( :, 3,55,13) = (/&
+&3.4082E+00_JPRB,3.4067E+00_JPRB,1.4633E+01_JPRB,2.5510E+01_JPRB,3.3556E+01_JPRB,3.7242E+01_JPRB/)
+KBO( :, 4,55,13) = (/&
+&4.2238E+00_JPRB,4.2218E+00_JPRB,1.4223E+01_JPRB,2.4639E+01_JPRB,3.2363E+01_JPRB,3.6666E+01_JPRB/)
+KBO( :, 5,55,13) = (/&
+&5.1513E+00_JPRB,5.1487E+00_JPRB,1.3812E+01_JPRB,2.3712E+01_JPRB,3.1057E+01_JPRB,3.6276E+01_JPRB/)
+KBO( :, 1,56,13) = (/&
+&2.0079E+00_JPRB,2.0070E+00_JPRB,1.5283E+01_JPRB,2.6864E+01_JPRB,3.5527E+01_JPRB,3.7901E+01_JPRB/)
+KBO( :, 2,56,13) = (/&
+&2.5254E+00_JPRB,2.5243E+00_JPRB,1.5077E+01_JPRB,2.6433E+01_JPRB,3.4877E+01_JPRB,3.7697E+01_JPRB/)
+KBO( :, 3,56,13) = (/&
+&3.1684E+00_JPRB,3.1669E+00_JPRB,1.4757E+01_JPRB,2.5780E+01_JPRB,3.3923E+01_JPRB,3.7342E+01_JPRB/)
+KBO( :, 4,56,13) = (/&
+&3.9407E+00_JPRB,3.9388E+00_JPRB,1.4357E+01_JPRB,2.4934E+01_JPRB,3.2773E+01_JPRB,3.6769E+01_JPRB/)
+KBO( :, 5,56,13) = (/&
+&4.8364E+00_JPRB,4.8339E+00_JPRB,1.3945E+01_JPRB,2.4018E+01_JPRB,3.1497E+01_JPRB,3.6172E+01_JPRB/)
+KBO( :, 1,57,13) = (/&
+&1.8578E+00_JPRB,1.8569E+00_JPRB,1.5303E+01_JPRB,2.6949E+01_JPRB,3.5653E+01_JPRB,3.7877E+01_JPRB/)
+KBO( :, 2,57,13) = (/&
+&2.3391E+00_JPRB,2.3382E+00_JPRB,1.5160E+01_JPRB,2.6604E+01_JPRB,3.5134E+01_JPRB,3.7763E+01_JPRB/)
+KBO( :, 3,57,13) = (/&
+&2.9439E+00_JPRB,2.9426E+00_JPRB,1.4876E+01_JPRB,2.6028E+01_JPRB,3.4258E+01_JPRB,3.7439E+01_JPRB/)
+KBO( :, 4,57,13) = (/&
+&3.6722E+00_JPRB,3.6705E+00_JPRB,1.4492E+01_JPRB,2.5221E+01_JPRB,3.3167E+01_JPRB,3.6862E+01_JPRB/)
+KBO( :, 5,57,13) = (/&
+&4.5340E+00_JPRB,4.5318E+00_JPRB,1.4076E+01_JPRB,2.4322E+01_JPRB,3.1926E+01_JPRB,3.6169E+01_JPRB/)
+KBO( :, 1,58,13) = (/&
+&1.7257E+00_JPRB,1.7249E+00_JPRB,1.5300E+01_JPRB,2.6987E+01_JPRB,3.5715E+01_JPRB,3.7771E+01_JPRB/)
+KBO( :, 2,58,13) = (/&
+&2.1747E+00_JPRB,2.1738E+00_JPRB,1.5228E+01_JPRB,2.6747E+01_JPRB,3.5343E+01_JPRB,3.7835E+01_JPRB/)
+KBO( :, 3,58,13) = (/&
+&2.7413E+00_JPRB,2.7402E+00_JPRB,1.4977E+01_JPRB,2.6232E+01_JPRB,3.4563E+01_JPRB,3.7436E+01_JPRB/)
+KBO( :, 4,58,13) = (/&
+&3.4316E+00_JPRB,3.4300E+00_JPRB,1.4616E+01_JPRB,2.5484E+01_JPRB,3.3527E+01_JPRB,3.6930E+01_JPRB/)
+KBO( :, 5,58,13) = (/&
+&4.2563E+00_JPRB,4.2542E+00_JPRB,1.4203E+01_JPRB,2.4608E+01_JPRB,3.2326E+01_JPRB,3.6245E+01_JPRB/)
+KBO( :, 1,59,13) = (/&
+&1.6718E+00_JPRB,1.6710E+00_JPRB,1.5295E+01_JPRB,2.6993E+01_JPRB,3.5730E+01_JPRB,3.7608E+01_JPRB/)
+KBO( :, 2,59,13) = (/&
+&2.1089E+00_JPRB,2.1080E+00_JPRB,1.5254E+01_JPRB,2.6799E+01_JPRB,3.5425E+01_JPRB,3.7786E+01_JPRB/)
+KBO( :, 3,59,13) = (/&
+&2.6604E+00_JPRB,2.6594E+00_JPRB,1.5013E+01_JPRB,2.6309E+01_JPRB,3.4684E+01_JPRB,3.7341E+01_JPRB/)
+KBO( :, 4,59,13) = (/&
+&3.3364E+00_JPRB,3.3349E+00_JPRB,1.4664E+01_JPRB,2.5591E+01_JPRB,3.3675E+01_JPRB,3.6669E+01_JPRB/)
+KBO( :, 5,59,13) = (/&
+&4.1451E+00_JPRB,4.1431E+00_JPRB,1.4254E+01_JPRB,2.4723E+01_JPRB,3.2485E+01_JPRB,3.5871E+01_JPRB/)
+KBO( :, 1,13,14) = (/&
+&2.9867E+01_JPRB,2.9850E+01_JPRB,2.2813E+01_JPRB,1.5747E+01_JPRB,8.6461E+00_JPRB,6.6277E+00_JPRB/)
+KBO( :, 2,13,14) = (/&
+&2.8970E+01_JPRB,2.8953E+01_JPRB,2.2112E+01_JPRB,1.5258E+01_JPRB,8.4453E+00_JPRB,6.4752E+00_JPRB/)
+KBO( :, 3,13,14) = (/&
+&2.8231E+01_JPRB,2.8215E+01_JPRB,2.1546E+01_JPRB,1.4872E+01_JPRB,8.2664E+00_JPRB,6.3900E+00_JPRB/)
+KBO( :, 4,13,14) = (/&
+&2.7643E+01_JPRB,2.7627E+01_JPRB,2.1093E+01_JPRB,1.4551E+01_JPRB,8.1037E+00_JPRB,6.4058E+00_JPRB/)
+KBO( :, 5,13,14) = (/&
+&2.7121E+01_JPRB,2.7106E+01_JPRB,2.0679E+01_JPRB,1.4264E+01_JPRB,7.9370E+00_JPRB,6.4632E+00_JPRB/)
+KBO( :, 1,14,14) = (/&
+&3.1721E+01_JPRB,3.1703E+01_JPRB,2.4198E+01_JPRB,1.6672E+01_JPRB,9.2683E+00_JPRB,7.3049E+00_JPRB/)
+KBO( :, 2,14,14) = (/&
+&3.1076E+01_JPRB,3.1058E+01_JPRB,2.3689E+01_JPRB,1.6337E+01_JPRB,9.1193E+00_JPRB,7.0508E+00_JPRB/)
+KBO( :, 3,14,14) = (/&
+&3.0563E+01_JPRB,3.0546E+01_JPRB,2.3305E+01_JPRB,1.6071E+01_JPRB,8.9743E+00_JPRB,6.8812E+00_JPRB/)
+KBO( :, 4,14,14) = (/&
+&3.0148E+01_JPRB,3.0131E+01_JPRB,2.2977E+01_JPRB,1.5835E+01_JPRB,8.8320E+00_JPRB,6.7605E+00_JPRB/)
+KBO( :, 5,14,14) = (/&
+&2.9764E+01_JPRB,2.9747E+01_JPRB,2.2687E+01_JPRB,1.5631E+01_JPRB,8.6858E+00_JPRB,6.7365E+00_JPRB/)
+KBO( :, 1,15,14) = (/&
+&3.4331E+01_JPRB,3.4311E+01_JPRB,2.6139E+01_JPRB,1.7967E+01_JPRB,1.0028E+01_JPRB,8.1321E+00_JPRB/)
+KBO( :, 2,15,14) = (/&
+&3.3952E+01_JPRB,3.3933E+01_JPRB,2.5854E+01_JPRB,1.7780E+01_JPRB,9.9136E+00_JPRB,7.8472E+00_JPRB/)
+KBO( :, 3,15,14) = (/&
+&3.3650E+01_JPRB,3.3631E+01_JPRB,2.5615E+01_JPRB,1.7601E+01_JPRB,9.7954E+00_JPRB,7.6157E+00_JPRB/)
+KBO( :, 4,15,14) = (/&
+&3.3344E+01_JPRB,3.3325E+01_JPRB,2.5376E+01_JPRB,1.7433E+01_JPRB,9.6656E+00_JPRB,7.3952E+00_JPRB/)
+KBO( :, 5,15,14) = (/&
+&3.3055E+01_JPRB,3.3036E+01_JPRB,2.5149E+01_JPRB,1.7257E+01_JPRB,9.5339E+00_JPRB,7.2585E+00_JPRB/)
+KBO( :, 1,16,14) = (/&
+&3.7768E+01_JPRB,3.7746E+01_JPRB,2.8736E+01_JPRB,1.9717E+01_JPRB,1.0946E+01_JPRB,9.0577E+00_JPRB/)
+KBO( :, 2,16,14) = (/&
+&3.7568E+01_JPRB,3.7546E+01_JPRB,2.8561E+01_JPRB,1.9575E+01_JPRB,1.0848E+01_JPRB,8.7437E+00_JPRB/)
+KBO( :, 3,16,14) = (/&
+&3.7327E+01_JPRB,3.7305E+01_JPRB,2.8371E+01_JPRB,1.9439E+01_JPRB,1.0735E+01_JPRB,8.4668E+00_JPRB/)
+KBO( :, 4,16,14) = (/&
+&3.7089E+01_JPRB,3.7067E+01_JPRB,2.8181E+01_JPRB,1.9291E+01_JPRB,1.0617E+01_JPRB,8.2419E+00_JPRB/)
+KBO( :, 5,16,14) = (/&
+&3.6772E+01_JPRB,3.6751E+01_JPRB,2.7932E+01_JPRB,1.9114E+01_JPRB,1.0484E+01_JPRB,8.0316E+00_JPRB/)
+KBO( :, 1,17,14) = (/&
+&4.1800E+01_JPRB,4.1776E+01_JPRB,3.1755E+01_JPRB,2.1740E+01_JPRB,1.2078E+01_JPRB,1.0093E+01_JPRB/)
+KBO( :, 2,17,14) = (/&
+&4.1678E+01_JPRB,4.1653E+01_JPRB,3.1650E+01_JPRB,2.1659E+01_JPRB,1.1979E+01_JPRB,9.7654E+00_JPRB/)
+KBO( :, 3,17,14) = (/&
+&4.1542E+01_JPRB,4.1518E+01_JPRB,3.1528E+01_JPRB,2.1552E+01_JPRB,1.1863E+01_JPRB,9.4632E+00_JPRB/)
+KBO( :, 4,17,14) = (/&
+&4.1281E+01_JPRB,4.1257E+01_JPRB,3.1316E+01_JPRB,2.1389E+01_JPRB,1.1731E+01_JPRB,9.2257E+00_JPRB/)
+KBO( :, 5,17,14) = (/&
+&4.1001E+01_JPRB,4.0977E+01_JPRB,3.1090E+01_JPRB,2.1207E+01_JPRB,1.1579E+01_JPRB,8.9705E+00_JPRB/)
+KBO( :, 1,18,14) = (/&
+&4.6476E+01_JPRB,4.6449E+01_JPRB,3.5262E+01_JPRB,2.4079E+01_JPRB,1.3398E+01_JPRB,1.1310E+01_JPRB/)
+KBO( :, 2,18,14) = (/&
+&4.6434E+01_JPRB,4.6407E+01_JPRB,3.5219E+01_JPRB,2.4028E+01_JPRB,1.3279E+01_JPRB,1.0988E+01_JPRB/)
+KBO( :, 3,18,14) = (/&
+&4.6265E+01_JPRB,4.6238E+01_JPRB,3.5074E+01_JPRB,2.3903E+01_JPRB,1.3136E+01_JPRB,1.0670E+01_JPRB/)
+KBO( :, 4,18,14) = (/&
+&4.6056E+01_JPRB,4.6029E+01_JPRB,3.4898E+01_JPRB,2.3749E+01_JPRB,1.2970E+01_JPRB,1.0429E+01_JPRB/)
+KBO( :, 5,18,14) = (/&
+&4.5721E+01_JPRB,4.5694E+01_JPRB,3.4620E+01_JPRB,2.3533E+01_JPRB,1.2786E+01_JPRB,1.0167E+01_JPRB/)
+KBO( :, 1,19,14) = (/&
+&5.1627E+01_JPRB,5.1597E+01_JPRB,3.9121E+01_JPRB,2.6626E+01_JPRB,1.4901E+01_JPRB,1.2801E+01_JPRB/)
+KBO( :, 2,19,14) = (/&
+&5.1560E+01_JPRB,5.1530E+01_JPRB,3.9050E+01_JPRB,2.6558E+01_JPRB,1.4739E+01_JPRB,1.2472E+01_JPRB/)
+KBO( :, 3,19,14) = (/&
+&5.1413E+01_JPRB,5.1383E+01_JPRB,3.8915E+01_JPRB,2.6432E+01_JPRB,1.4553E+01_JPRB,1.2141E+01_JPRB/)
+KBO( :, 4,19,14) = (/&
+&5.1136E+01_JPRB,5.1106E+01_JPRB,3.8684E+01_JPRB,2.6245E+01_JPRB,1.4345E+01_JPRB,1.1879E+01_JPRB/)
+KBO( :, 5,19,14) = (/&
+&5.0773E+01_JPRB,5.0743E+01_JPRB,3.8384E+01_JPRB,2.6014E+01_JPRB,1.4118E+01_JPRB,1.1591E+01_JPRB/)
+KBO( :, 1,20,14) = (/&
+&5.6884E+01_JPRB,5.6851E+01_JPRB,4.3042E+01_JPRB,2.9216E+01_JPRB,1.6557E+01_JPRB,1.4595E+01_JPRB/)
+KBO( :, 2,20,14) = (/&
+&5.6797E+01_JPRB,5.6764E+01_JPRB,4.2946E+01_JPRB,2.9117E+01_JPRB,1.6341E+01_JPRB,1.4232E+01_JPRB/)
+KBO( :, 3,20,14) = (/&
+&5.6571E+01_JPRB,5.6538E+01_JPRB,4.2757E+01_JPRB,2.8963E+01_JPRB,1.6110E+01_JPRB,1.3871E+01_JPRB/)
+KBO( :, 4,20,14) = (/&
+&5.6241E+01_JPRB,5.6208E+01_JPRB,4.2485E+01_JPRB,2.8752E+01_JPRB,1.5861E+01_JPRB,1.3552E+01_JPRB/)
+KBO( :, 5,20,14) = (/&
+&5.5778E+01_JPRB,5.5746E+01_JPRB,4.2122E+01_JPRB,2.8488E+01_JPRB,1.5601E+01_JPRB,1.3221E+01_JPRB/)
+KBO( :, 1,21,14) = (/&
+&6.2117E+01_JPRB,6.2081E+01_JPRB,4.6932E+01_JPRB,3.1772E+01_JPRB,1.8332E+01_JPRB,1.6634E+01_JPRB/)
+KBO( :, 2,21,14) = (/&
+&6.1948E+01_JPRB,6.1912E+01_JPRB,4.6785E+01_JPRB,3.1648E+01_JPRB,1.8084E+01_JPRB,1.6213E+01_JPRB/)
+KBO( :, 3,21,14) = (/&
+&6.1644E+01_JPRB,6.1608E+01_JPRB,4.6541E+01_JPRB,3.1461E+01_JPRB,1.7808E+01_JPRB,1.5772E+01_JPRB/)
+KBO( :, 4,21,14) = (/&
+&6.1212E+01_JPRB,6.1176E+01_JPRB,4.6198E+01_JPRB,3.1208E+01_JPRB,1.7516E+01_JPRB,1.5375E+01_JPRB/)
+KBO( :, 5,21,14) = (/&
+&6.0660E+01_JPRB,6.0625E+01_JPRB,4.5764E+01_JPRB,3.0893E+01_JPRB,1.7197E+01_JPRB,1.4982E+01_JPRB/)
+KBO( :, 1,22,14) = (/&
+&6.7064E+01_JPRB,6.7024E+01_JPRB,5.0622E+01_JPRB,3.4206E+01_JPRB,2.0283E+01_JPRB,1.8773E+01_JPRB/)
+KBO( :, 2,22,14) = (/&
+&6.6814E+01_JPRB,6.6775E+01_JPRB,5.0411E+01_JPRB,3.4038E+01_JPRB,1.9964E+01_JPRB,1.8268E+01_JPRB/)
+KBO( :, 3,22,14) = (/&
+&6.6405E+01_JPRB,6.6365E+01_JPRB,5.0089E+01_JPRB,3.3800E+01_JPRB,1.9618E+01_JPRB,1.7753E+01_JPRB/)
+KBO( :, 4,22,14) = (/&
+&6.5854E+01_JPRB,6.5815E+01_JPRB,4.9659E+01_JPRB,3.3490E+01_JPRB,1.9247E+01_JPRB,1.7292E+01_JPRB/)
+KBO( :, 5,22,14) = (/&
+&6.5177E+01_JPRB,6.5139E+01_JPRB,4.9133E+01_JPRB,3.3115E+01_JPRB,1.8852E+01_JPRB,1.6841E+01_JPRB/)
+KBO( :, 1,23,14) = (/&
+&7.1524E+01_JPRB,7.1482E+01_JPRB,5.3943E+01_JPRB,3.6394E+01_JPRB,2.2409E+01_JPRB,2.1034E+01_JPRB/)
+KBO( :, 2,23,14) = (/&
+&7.1180E+01_JPRB,7.1138E+01_JPRB,5.3667E+01_JPRB,3.6188E+01_JPRB,2.2011E+01_JPRB,2.0463E+01_JPRB/)
+KBO( :, 3,23,14) = (/&
+&7.0675E+01_JPRB,7.0634E+01_JPRB,5.3273E+01_JPRB,3.5900E+01_JPRB,2.1570E+01_JPRB,1.9880E+01_JPRB/)
+KBO( :, 4,23,14) = (/&
+&7.0044E+01_JPRB,7.0003E+01_JPRB,5.2781E+01_JPRB,3.5547E+01_JPRB,2.1106E+01_JPRB,1.9340E+01_JPRB/)
+KBO( :, 5,23,14) = (/&
+&6.9258E+01_JPRB,6.9217E+01_JPRB,5.2177E+01_JPRB,3.5122E+01_JPRB,2.0624E+01_JPRB,1.8817E+01_JPRB/)
+KBO( :, 1,24,14) = (/&
+&7.5188E+01_JPRB,7.5144E+01_JPRB,5.6672E+01_JPRB,3.8194E+01_JPRB,2.4653E+01_JPRB,2.3438E+01_JPRB/)
+KBO( :, 2,24,14) = (/&
+&7.4771E+01_JPRB,7.4727E+01_JPRB,5.6346E+01_JPRB,3.7956E+01_JPRB,2.4153E+01_JPRB,2.2769E+01_JPRB/)
+KBO( :, 3,24,14) = (/&
+&7.4256E+01_JPRB,7.4212E+01_JPRB,5.5942E+01_JPRB,3.7664E+01_JPRB,2.3612E+01_JPRB,2.2098E+01_JPRB/)
+KBO( :, 4,24,14) = (/&
+&7.3533E+01_JPRB,7.3489E+01_JPRB,5.5386E+01_JPRB,3.7269E+01_JPRB,2.3047E+01_JPRB,2.1446E+01_JPRB/)
+KBO( :, 5,24,14) = (/&
+&7.2712E+01_JPRB,7.2669E+01_JPRB,5.4752E+01_JPRB,3.6822E+01_JPRB,2.2450E+01_JPRB,2.0823E+01_JPRB/)
+KBO( :, 1,25,14) = (/&
+&7.7905E+01_JPRB,7.7859E+01_JPRB,5.8695E+01_JPRB,3.9643E+01_JPRB,2.6946E+01_JPRB,2.5911E+01_JPRB/)
+KBO( :, 2,25,14) = (/&
+&7.7541E+01_JPRB,7.7495E+01_JPRB,5.8407E+01_JPRB,3.9379E+01_JPRB,2.6314E+01_JPRB,2.5120E+01_JPRB/)
+KBO( :, 3,25,14) = (/&
+&7.6964E+01_JPRB,7.6919E+01_JPRB,5.7957E+01_JPRB,3.9027E+01_JPRB,2.5656E+01_JPRB,2.4314E+01_JPRB/)
+KBO( :, 4,25,14) = (/&
+&7.6272E+01_JPRB,7.6227E+01_JPRB,5.7424E+01_JPRB,3.8630E+01_JPRB,2.4965E+01_JPRB,2.3534E+01_JPRB/)
+KBO( :, 5,25,14) = (/&
+&7.5432E+01_JPRB,7.5387E+01_JPRB,5.6779E+01_JPRB,3.8173E+01_JPRB,2.4252E+01_JPRB,2.2796E+01_JPRB/)
+KBO( :, 1,26,14) = (/&
+&7.9766E+01_JPRB,7.9719E+01_JPRB,6.0079E+01_JPRB,4.0881E+01_JPRB,2.9223E+01_JPRB,2.8381E+01_JPRB/)
+KBO( :, 2,26,14) = (/&
+&7.9434E+01_JPRB,7.9387E+01_JPRB,5.9813E+01_JPRB,4.0549E+01_JPRB,2.8445E+01_JPRB,2.7433E+01_JPRB/)
+KBO( :, 3,26,14) = (/&
+&7.8929E+01_JPRB,7.8882E+01_JPRB,5.9418E+01_JPRB,4.0176E+01_JPRB,2.7639E+01_JPRB,2.6466E+01_JPRB/)
+KBO( :, 4,26,14) = (/&
+&7.8299E+01_JPRB,7.8253E+01_JPRB,5.8927E+01_JPRB,3.9741E+01_JPRB,2.6813E+01_JPRB,2.5543E+01_JPRB/)
+KBO( :, 5,26,14) = (/&
+&7.7472E+01_JPRB,7.7426E+01_JPRB,5.8300E+01_JPRB,3.9244E+01_JPRB,2.5976E+01_JPRB,2.4671E+01_JPRB/)
+KBO( :, 1,27,14) = (/&
+&8.0841E+01_JPRB,8.0794E+01_JPRB,6.0873E+01_JPRB,4.1874E+01_JPRB,3.1425E+01_JPRB,3.0772E+01_JPRB/)
+KBO( :, 2,27,14) = (/&
+&8.0592E+01_JPRB,8.0544E+01_JPRB,6.0668E+01_JPRB,4.1525E+01_JPRB,3.0489E+01_JPRB,2.9641E+01_JPRB/)
+KBO( :, 3,27,14) = (/&
+&8.0232E+01_JPRB,8.0184E+01_JPRB,6.0383E+01_JPRB,4.1112E+01_JPRB,2.9523E+01_JPRB,2.8513E+01_JPRB/)
+KBO( :, 4,27,14) = (/&
+&7.9648E+01_JPRB,7.9600E+01_JPRB,5.9935E+01_JPRB,4.0653E+01_JPRB,2.8551E+01_JPRB,2.7444E+01_JPRB/)
+KBO( :, 5,27,14) = (/&
+&7.8924E+01_JPRB,7.8877E+01_JPRB,5.9378E+01_JPRB,4.0128E+01_JPRB,2.7582E+01_JPRB,2.6425E+01_JPRB/)
+KBO( :, 1,28,14) = (/&
+&8.1302E+01_JPRB,8.1254E+01_JPRB,6.1208E+01_JPRB,4.2732E+01_JPRB,3.3493E+01_JPRB,3.3014E+01_JPRB/)
+KBO( :, 2,28,14) = (/&
+&8.1246E+01_JPRB,8.1198E+01_JPRB,6.1149E+01_JPRB,4.2327E+01_JPRB,3.2380E+01_JPRB,3.1684E+01_JPRB/)
+KBO( :, 3,28,14) = (/&
+&8.0968E+01_JPRB,8.0920E+01_JPRB,6.0927E+01_JPRB,4.1887E+01_JPRB,3.1259E+01_JPRB,3.0389E+01_JPRB/)
+KBO( :, 4,28,14) = (/&
+&8.0565E+01_JPRB,8.0517E+01_JPRB,6.0611E+01_JPRB,4.1407E+01_JPRB,3.0143E+01_JPRB,2.9193E+01_JPRB/)
+KBO( :, 5,28,14) = (/&
+&7.9942E+01_JPRB,7.9894E+01_JPRB,6.0131E+01_JPRB,4.0878E+01_JPRB,2.9022E+01_JPRB,2.8027E+01_JPRB/)
+KBO( :, 1,29,14) = (/&
+&8.1307E+01_JPRB,8.1259E+01_JPRB,6.1205E+01_JPRB,4.3500E+01_JPRB,3.5359E+01_JPRB,3.5050E+01_JPRB/)
+KBO( :, 2,29,14) = (/&
+&8.1478E+01_JPRB,8.1430E+01_JPRB,6.1314E+01_JPRB,4.3042E+01_JPRB,3.4075E+01_JPRB,3.3533E+01_JPRB/)
+KBO( :, 3,29,14) = (/&
+&8.1374E+01_JPRB,8.1326E+01_JPRB,6.1221E+01_JPRB,4.2543E+01_JPRB,3.2801E+01_JPRB,3.2073E+01_JPRB/)
+KBO( :, 4,29,14) = (/&
+&8.1081E+01_JPRB,8.1032E+01_JPRB,6.0988E+01_JPRB,4.2019E+01_JPRB,3.1534E+01_JPRB,3.0765E+01_JPRB/)
+KBO( :, 5,29,14) = (/&
+&8.0577E+01_JPRB,8.0529E+01_JPRB,6.0599E+01_JPRB,4.1461E+01_JPRB,3.0285E+01_JPRB,2.9423E+01_JPRB/)
+KBO( :, 1,30,14) = (/&
+&8.1051E+01_JPRB,8.1003E+01_JPRB,6.1003E+01_JPRB,4.4185E+01_JPRB,3.7000E+01_JPRB,3.6850E+01_JPRB/)
+KBO( :, 2,30,14) = (/&
+&8.1462E+01_JPRB,8.1414E+01_JPRB,6.1293E+01_JPRB,4.3687E+01_JPRB,3.5552E+01_JPRB,3.5134E+01_JPRB/)
+KBO( :, 3,30,14) = (/&
+&8.1539E+01_JPRB,8.1490E+01_JPRB,6.1337E+01_JPRB,4.3125E+01_JPRB,3.4127E+01_JPRB,3.3561E+01_JPRB/)
+KBO( :, 4,30,14) = (/&
+&8.1391E+01_JPRB,8.1342E+01_JPRB,6.1214E+01_JPRB,4.2562E+01_JPRB,3.2726E+01_JPRB,3.2101E+01_JPRB/)
+KBO( :, 5,30,14) = (/&
+&8.0955E+01_JPRB,8.0906E+01_JPRB,6.0875E+01_JPRB,4.1945E+01_JPRB,3.1354E+01_JPRB,3.0606E+01_JPRB/)
+KBO( :, 1,31,14) = (/&
+&8.0671E+01_JPRB,8.0623E+01_JPRB,6.0709E+01_JPRB,4.4790E+01_JPRB,3.8398E+01_JPRB,3.8352E+01_JPRB/)
+KBO( :, 2,31,14) = (/&
+&8.1282E+01_JPRB,8.1234E+01_JPRB,6.1149E+01_JPRB,4.4230E+01_JPRB,3.6789E+01_JPRB,3.6501E+01_JPRB/)
+KBO( :, 3,31,14) = (/&
+&8.1574E+01_JPRB,8.1525E+01_JPRB,6.1354E+01_JPRB,4.3641E+01_JPRB,3.5216E+01_JPRB,3.4852E+01_JPRB/)
+KBO( :, 4,31,14) = (/&
+&8.1529E+01_JPRB,8.1481E+01_JPRB,6.1310E+01_JPRB,4.3014E+01_JPRB,3.3693E+01_JPRB,3.3201E+01_JPRB/)
+KBO( :, 5,31,14) = (/&
+&8.1189E+01_JPRB,8.1141E+01_JPRB,6.1044E+01_JPRB,4.2350E+01_JPRB,3.2213E+01_JPRB,3.1581E+01_JPRB/)
+KBO( :, 1,32,14) = (/&
+&8.0273E+01_JPRB,8.0225E+01_JPRB,6.0440E+01_JPRB,4.5305E+01_JPRB,3.9524E+01_JPRB,3.9577E+01_JPRB/)
+KBO( :, 2,32,14) = (/&
+&8.1061E+01_JPRB,8.1013E+01_JPRB,6.0977E+01_JPRB,4.4682E+01_JPRB,3.7774E+01_JPRB,3.7685E+01_JPRB/)
+KBO( :, 3,32,14) = (/&
+&8.1507E+01_JPRB,8.1459E+01_JPRB,6.1299E+01_JPRB,4.4057E+01_JPRB,3.6074E+01_JPRB,3.5862E+01_JPRB/)
+KBO( :, 4,32,14) = (/&
+&8.1572E+01_JPRB,8.1523E+01_JPRB,6.1336E+01_JPRB,4.3367E+01_JPRB,3.4447E+01_JPRB,3.4068E+01_JPRB/)
+KBO( :, 5,32,14) = (/&
+&8.1328E+01_JPRB,8.1279E+01_JPRB,6.1143E+01_JPRB,4.2670E+01_JPRB,3.2874E+01_JPRB,3.2515E+01_JPRB/)
+KBO( :, 1,33,14) = (/&
+&7.9947E+01_JPRB,7.9899E+01_JPRB,6.0245E+01_JPRB,4.5734E+01_JPRB,4.0389E+01_JPRB,4.0600E+01_JPRB/)
+KBO( :, 2,33,14) = (/&
+&8.0885E+01_JPRB,8.0836E+01_JPRB,6.0856E+01_JPRB,4.5062E+01_JPRB,3.8518E+01_JPRB,3.8594E+01_JPRB/)
+KBO( :, 3,33,14) = (/&
+&8.1444E+01_JPRB,8.1395E+01_JPRB,6.1246E+01_JPRB,4.4394E+01_JPRB,3.6721E+01_JPRB,3.6614E+01_JPRB/)
+KBO( :, 4,33,14) = (/&
+&8.1576E+01_JPRB,8.1528E+01_JPRB,6.1332E+01_JPRB,4.3653E+01_JPRB,3.5005E+01_JPRB,3.4830E+01_JPRB/)
+KBO( :, 5,33,14) = (/&
+&8.1383E+01_JPRB,8.1335E+01_JPRB,6.1178E+01_JPRB,4.2909E+01_JPRB,3.3354E+01_JPRB,3.3470E+01_JPRB/)
+KBO( :, 1,34,14) = (/&
+&7.9662E+01_JPRB,7.9614E+01_JPRB,6.0102E+01_JPRB,4.6098E+01_JPRB,4.1095E+01_JPRB,4.1483E+01_JPRB/)
+KBO( :, 2,34,14) = (/&
+&8.0738E+01_JPRB,8.0690E+01_JPRB,6.0775E+01_JPRB,4.5387E+01_JPRB,3.9122E+01_JPRB,3.9299E+01_JPRB/)
+KBO( :, 3,34,14) = (/&
+&8.1366E+01_JPRB,8.1318E+01_JPRB,6.1186E+01_JPRB,4.4659E+01_JPRB,3.7233E+01_JPRB,3.7257E+01_JPRB/)
+KBO( :, 4,34,14) = (/&
+&8.1568E+01_JPRB,8.1519E+01_JPRB,6.1321E+01_JPRB,4.3886E+01_JPRB,3.5446E+01_JPRB,3.5711E+01_JPRB/)
+KBO( :, 5,34,14) = (/&
+&8.1413E+01_JPRB,8.1365E+01_JPRB,6.1195E+01_JPRB,4.3093E+01_JPRB,3.3726E+01_JPRB,3.4415E+01_JPRB/)
+KBO( :, 1,35,14) = (/&
+&7.9337E+01_JPRB,7.9289E+01_JPRB,5.9949E+01_JPRB,4.6449E+01_JPRB,4.1796E+01_JPRB,4.2326E+01_JPRB/)
+KBO( :, 2,35,14) = (/&
+&8.0544E+01_JPRB,8.0496E+01_JPRB,6.0670E+01_JPRB,4.5697E+01_JPRB,3.9737E+01_JPRB,4.0033E+01_JPRB/)
+KBO( :, 3,35,14) = (/&
+&8.1258E+01_JPRB,8.1209E+01_JPRB,6.1112E+01_JPRB,4.4918E+01_JPRB,3.7765E+01_JPRB,3.8111E+01_JPRB/)
+KBO( :, 4,35,14) = (/&
+&8.1537E+01_JPRB,8.1488E+01_JPRB,6.1295E+01_JPRB,4.4118E+01_JPRB,3.5911E+01_JPRB,3.6760E+01_JPRB/)
+KBO( :, 5,35,14) = (/&
+&8.1445E+01_JPRB,8.1397E+01_JPRB,6.1217E+01_JPRB,4.3296E+01_JPRB,3.4131E+01_JPRB,3.5503E+01_JPRB/)
+KBO( :, 1,36,14) = (/&
+&7.8929E+01_JPRB,7.8882E+01_JPRB,5.9746E+01_JPRB,4.6822E+01_JPRB,4.2579E+01_JPRB,4.3271E+01_JPRB/)
+KBO( :, 2,36,14) = (/&
+&8.0271E+01_JPRB,8.0223E+01_JPRB,6.0527E+01_JPRB,4.6026E+01_JPRB,4.0432E+01_JPRB,4.0931E+01_JPRB/)
+KBO( :, 3,36,14) = (/&
+&8.1107E+01_JPRB,8.1058E+01_JPRB,6.1024E+01_JPRB,4.5215E+01_JPRB,3.8381E+01_JPRB,3.9211E+01_JPRB/)
+KBO( :, 4,36,14) = (/&
+&8.1508E+01_JPRB,8.1459E+01_JPRB,6.1272E+01_JPRB,4.4394E+01_JPRB,3.6464E+01_JPRB,3.7915E+01_JPRB/)
+KBO( :, 5,36,14) = (/&
+&8.1479E+01_JPRB,8.1431E+01_JPRB,6.1242E+01_JPRB,4.3542E+01_JPRB,3.4625E+01_JPRB,3.6634E+01_JPRB/)
+KBO( :, 1,37,14) = (/&
+&7.8277E+01_JPRB,7.8230E+01_JPRB,5.9419E+01_JPRB,4.7267E+01_JPRB,4.3580E+01_JPRB,4.4454E+01_JPRB/)
+KBO( :, 2,37,14) = (/&
+&7.9839E+01_JPRB,7.9792E+01_JPRB,6.0300E+01_JPRB,4.6427E+01_JPRB,4.1343E+01_JPRB,4.2071E+01_JPRB/)
+KBO( :, 3,37,14) = (/&
+&8.0875E+01_JPRB,8.0827E+01_JPRB,6.0897E+01_JPRB,4.5598E+01_JPRB,3.9207E+01_JPRB,4.0399E+01_JPRB/)
+KBO( :, 4,37,14) = (/&
+&8.1407E+01_JPRB,8.1359E+01_JPRB,6.1209E+01_JPRB,4.4745E+01_JPRB,3.7210E+01_JPRB,3.9084E+01_JPRB/)
+KBO( :, 5,37,14) = (/&
+&8.1511E+01_JPRB,8.1463E+01_JPRB,6.1267E+01_JPRB,4.3885E+01_JPRB,3.5313E+01_JPRB,3.7757E+01_JPRB/)
+KBO( :, 1,38,14) = (/&
+&7.7604E+01_JPRB,7.7558E+01_JPRB,5.9100E+01_JPRB,4.7673E+01_JPRB,4.4519E+01_JPRB,4.5590E+01_JPRB/)
+KBO( :, 2,38,14) = (/&
+&7.9387E+01_JPRB,7.9340E+01_JPRB,6.0071E+01_JPRB,4.6807E+01_JPRB,4.2192E+01_JPRB,4.3208E+01_JPRB/)
+KBO( :, 3,38,14) = (/&
+&8.0600E+01_JPRB,8.0552E+01_JPRB,6.0751E+01_JPRB,4.5947E+01_JPRB,3.9982E+01_JPRB,4.1623E+01_JPRB/)
+KBO( :, 4,38,14) = (/&
+&8.1297E+01_JPRB,8.1248E+01_JPRB,6.1150E+01_JPRB,4.5081E+01_JPRB,3.7909E+01_JPRB,4.0273E+01_JPRB/)
+KBO( :, 5,38,14) = (/&
+&8.1523E+01_JPRB,8.1474E+01_JPRB,6.1279E+01_JPRB,4.4207E+01_JPRB,3.5960E+01_JPRB,3.8923E+01_JPRB/)
+KBO( :, 1,39,14) = (/&
+&7.6924E+01_JPRB,7.6879E+01_JPRB,5.8785E+01_JPRB,4.8037E+01_JPRB,4.5384E+01_JPRB,4.6696E+01_JPRB/)
+KBO( :, 2,39,14) = (/&
+&7.8919E+01_JPRB,7.8872E+01_JPRB,5.9835E+01_JPRB,4.7151E+01_JPRB,4.2965E+01_JPRB,4.4375E+01_JPRB/)
+KBO( :, 3,39,14) = (/&
+&8.0301E+01_JPRB,8.0253E+01_JPRB,6.0596E+01_JPRB,4.6264E+01_JPRB,4.0694E+01_JPRB,4.2894E+01_JPRB/)
+KBO( :, 4,39,14) = (/&
+&8.1135E+01_JPRB,8.1087E+01_JPRB,6.1060E+01_JPRB,4.5380E+01_JPRB,3.8551E+01_JPRB,4.1533E+01_JPRB/)
+KBO( :, 5,39,14) = (/&
+&8.1498E+01_JPRB,8.1449E+01_JPRB,6.1268E+01_JPRB,4.4494E+01_JPRB,3.6550E+01_JPRB,4.0180E+01_JPRB/)
+KBO( :, 1,40,14) = (/&
+&7.6003E+01_JPRB,7.5957E+01_JPRB,5.8367E+01_JPRB,4.8484E+01_JPRB,4.6448E+01_JPRB,4.7942E+01_JPRB/)
+KBO( :, 2,40,14) = (/&
+&7.8250E+01_JPRB,7.8203E+01_JPRB,5.9505E+01_JPRB,4.7557E+01_JPRB,4.3937E+01_JPRB,4.5516E+01_JPRB/)
+KBO( :, 3,40,14) = (/&
+&7.9849E+01_JPRB,7.9801E+01_JPRB,6.0362E+01_JPRB,4.6641E+01_JPRB,4.1586E+01_JPRB,4.3950E+01_JPRB/)
+KBO( :, 4,40,14) = (/&
+&8.0899E+01_JPRB,8.0851E+01_JPRB,6.0936E+01_JPRB,4.5752E+01_JPRB,3.9370E+01_JPRB,4.2576E+01_JPRB/)
+KBO( :, 5,40,14) = (/&
+&8.1420E+01_JPRB,8.1371E+01_JPRB,6.1226E+01_JPRB,4.4847E+01_JPRB,3.7301E+01_JPRB,4.1187E+01_JPRB/)
+KBO( :, 1,41,14) = (/&
+&7.5005E+01_JPRB,7.4960E+01_JPRB,5.7923E+01_JPRB,4.8919E+01_JPRB,4.7504E+01_JPRB,4.9183E+01_JPRB/)
+KBO( :, 2,41,14) = (/&
+&7.7512E+01_JPRB,7.7466E+01_JPRB,5.9150E+01_JPRB,4.7955E+01_JPRB,4.4905E+01_JPRB,4.6631E+01_JPRB/)
+KBO( :, 3,41,14) = (/&
+&7.9348E+01_JPRB,7.9301E+01_JPRB,6.0108E+01_JPRB,4.7025E+01_JPRB,4.2473E+01_JPRB,4.4967E+01_JPRB/)
+KBO( :, 4,41,14) = (/&
+&8.0591E+01_JPRB,8.0543E+01_JPRB,6.0779E+01_JPRB,4.6109E+01_JPRB,4.0189E+01_JPRB,4.3586E+01_JPRB/)
+KBO( :, 5,41,14) = (/&
+&8.1296E+01_JPRB,8.1247E+01_JPRB,6.1167E+01_JPRB,4.5201E+01_JPRB,3.8056E+01_JPRB,4.2157E+01_JPRB/)
+KBO( :, 1,42,14) = (/&
+&7.3966E+01_JPRB,7.3922E+01_JPRB,5.7469E+01_JPRB,4.9337E+01_JPRB,4.8525E+01_JPRB,5.0393E+01_JPRB/)
+KBO( :, 2,42,14) = (/&
+&7.6721E+01_JPRB,7.6675E+01_JPRB,5.8783E+01_JPRB,4.8336E+01_JPRB,4.5846E+01_JPRB,4.7757E+01_JPRB/)
+KBO( :, 3,42,14) = (/&
+&7.8788E+01_JPRB,7.8741E+01_JPRB,5.9830E+01_JPRB,4.7390E+01_JPRB,4.3338E+01_JPRB,4.6001E+01_JPRB/)
+KBO( :, 4,42,14) = (/&
+&8.0252E+01_JPRB,8.0204E+01_JPRB,6.0610E+01_JPRB,4.6463E+01_JPRB,4.0990E+01_JPRB,4.4619E+01_JPRB/)
+KBO( :, 5,42,14) = (/&
+&8.1117E+01_JPRB,8.1069E+01_JPRB,6.1079E+01_JPRB,4.5535E+01_JPRB,3.8790E+01_JPRB,4.3153E+01_JPRB/)
+KBO( :, 1,43,14) = (/&
+&7.2705E+01_JPRB,7.2662E+01_JPRB,5.6918E+01_JPRB,4.9800E+01_JPRB,4.9669E+01_JPRB,5.1746E+01_JPRB/)
+KBO( :, 2,43,14) = (/&
+&7.5730E+01_JPRB,7.5685E+01_JPRB,5.8326E+01_JPRB,4.8759E+01_JPRB,4.6917E+01_JPRB,4.8987E+01_JPRB/)
+KBO( :, 3,43,14) = (/&
+&7.8083E+01_JPRB,7.8037E+01_JPRB,5.9488E+01_JPRB,4.7800E+01_JPRB,4.4326E+01_JPRB,4.7090E+01_JPRB/)
+KBO( :, 4,43,14) = (/&
+&7.9761E+01_JPRB,7.9714E+01_JPRB,6.0355E+01_JPRB,4.6841E+01_JPRB,4.1904E+01_JPRB,4.5691E+01_JPRB/)
+KBO( :, 5,43,14) = (/&
+&8.0847E+01_JPRB,8.0799E+01_JPRB,6.0937E+01_JPRB,4.5910E+01_JPRB,3.9634E+01_JPRB,4.4206E+01_JPRB/)
+KBO( :, 1,44,14) = (/&
+&7.1287E+01_JPRB,7.1245E+01_JPRB,5.6316E+01_JPRB,5.0292E+01_JPRB,5.0887E+01_JPRB,5.3170E+01_JPRB/)
+KBO( :, 2,44,14) = (/&
+&7.4599E+01_JPRB,7.4555E+01_JPRB,5.7821E+01_JPRB,4.9215E+01_JPRB,4.8047E+01_JPRB,5.0291E+01_JPRB/)
+KBO( :, 3,44,14) = (/&
+&7.7237E+01_JPRB,7.7191E+01_JPRB,5.9077E+01_JPRB,4.8209E+01_JPRB,4.5375E+01_JPRB,4.8245E+01_JPRB/)
+KBO( :, 4,44,14) = (/&
+&7.9186E+01_JPRB,7.9139E+01_JPRB,6.0066E+01_JPRB,4.7254E+01_JPRB,4.2877E+01_JPRB,4.6818E+01_JPRB/)
+KBO( :, 5,44,14) = (/&
+&8.0509E+01_JPRB,8.0461E+01_JPRB,6.0765E+01_JPRB,4.6310E+01_JPRB,4.0533E+01_JPRB,4.5323E+01_JPRB/)
+KBO( :, 1,45,14) = (/&
+&6.9761E+01_JPRB,6.9720E+01_JPRB,5.5680E+01_JPRB,5.0779E+01_JPRB,5.2112E+01_JPRB,5.4609E+01_JPRB/)
+KBO( :, 2,45,14) = (/&
+&7.3387E+01_JPRB,7.3344E+01_JPRB,5.7284E+01_JPRB,4.9658E+01_JPRB,4.9177E+01_JPRB,5.1651E+01_JPRB/)
+KBO( :, 3,45,14) = (/&
+&7.6302E+01_JPRB,7.6257E+01_JPRB,5.8639E+01_JPRB,4.8623E+01_JPRB,4.6419E+01_JPRB,4.9491E+01_JPRB/)
+KBO( :, 4,45,14) = (/&
+&7.8515E+01_JPRB,7.8468E+01_JPRB,5.9732E+01_JPRB,4.7651E+01_JPRB,4.3843E+01_JPRB,4.8016E+01_JPRB/)
+KBO( :, 5,45,14) = (/&
+&8.0070E+01_JPRB,8.0022E+01_JPRB,6.0538E+01_JPRB,4.6688E+01_JPRB,4.1436E+01_JPRB,4.6520E+01_JPRB/)
+KBO( :, 1,46,14) = (/&
+&6.8043E+01_JPRB,6.8003E+01_JPRB,5.4978E+01_JPRB,5.1296E+01_JPRB,5.3415E+01_JPRB,5.6131E+01_JPRB/)
+KBO( :, 2,46,14) = (/&
+&7.2020E+01_JPRB,7.1978E+01_JPRB,5.6693E+01_JPRB,5.0128E+01_JPRB,5.0366E+01_JPRB,5.3081E+01_JPRB/)
+KBO( :, 3,46,14) = (/&
+&7.5220E+01_JPRB,7.5175E+01_JPRB,5.8142E+01_JPRB,4.9054E+01_JPRB,4.7529E+01_JPRB,5.0825E+01_JPRB/)
+KBO( :, 4,46,14) = (/&
+&7.7714E+01_JPRB,7.7668E+01_JPRB,5.9339E+01_JPRB,4.8058E+01_JPRB,4.4874E+01_JPRB,4.9267E+01_JPRB/)
+KBO( :, 5,46,14) = (/&
+&7.9534E+01_JPRB,7.9486E+01_JPRB,6.0264E+01_JPRB,4.7084E+01_JPRB,4.2395E+01_JPRB,4.7792E+01_JPRB/)
+KBO( :, 1,47,14) = (/&
+&6.6054E+01_JPRB,6.6015E+01_JPRB,5.4183E+01_JPRB,5.1903E+01_JPRB,5.4894E+01_JPRB,5.7778E+01_JPRB/)
+KBO( :, 2,47,14) = (/&
+&7.0378E+01_JPRB,7.0336E+01_JPRB,5.5996E+01_JPRB,5.0654E+01_JPRB,5.1707E+01_JPRB,5.4608E+01_JPRB/)
+KBO( :, 3,47,14) = (/&
+&7.3908E+01_JPRB,7.3864E+01_JPRB,5.7556E+01_JPRB,4.9537E+01_JPRB,4.8774E+01_JPRB,5.2210E+01_JPRB/)
+KBO( :, 4,47,14) = (/&
+&7.6726E+01_JPRB,7.6681E+01_JPRB,5.8866E+01_JPRB,4.8503E+01_JPRB,4.6033E+01_JPRB,5.0483E+01_JPRB/)
+KBO( :, 5,47,14) = (/&
+&7.8817E+01_JPRB,7.8770E+01_JPRB,5.9899E+01_JPRB,4.7521E+01_JPRB,4.3467E+01_JPRB,4.9057E+01_JPRB/)
+KBO( :, 1,48,14) = (/&
+&6.3955E+01_JPRB,6.3917E+01_JPRB,5.3354E+01_JPRB,5.2548E+01_JPRB,5.6389E+01_JPRB,5.9437E+01_JPRB/)
+KBO( :, 2,48,14) = (/&
+&6.8594E+01_JPRB,6.8553E+01_JPRB,5.5256E+01_JPRB,5.1194E+01_JPRB,5.3073E+01_JPRB,5.6223E+01_JPRB/)
+KBO( :, 3,48,14) = (/&
+&7.2478E+01_JPRB,7.2435E+01_JPRB,5.6928E+01_JPRB,5.0025E+01_JPRB,5.0034E+01_JPRB,5.3708E+01_JPRB/)
+KBO( :, 4,48,14) = (/&
+&7.5613E+01_JPRB,7.5568E+01_JPRB,5.8350E+01_JPRB,4.8962E+01_JPRB,4.7206E+01_JPRB,5.1823E+01_JPRB/)
+KBO( :, 5,48,14) = (/&
+&7.8004E+01_JPRB,7.7958E+01_JPRB,5.9498E+01_JPRB,4.7959E+01_JPRB,4.4557E+01_JPRB,5.0435E+01_JPRB/)
+KBO( :, 1,49,14) = (/&
+&6.1733E+01_JPRB,6.1696E+01_JPRB,5.2490E+01_JPRB,5.3233E+01_JPRB,5.7911E+01_JPRB,6.1164E+01_JPRB/)
+KBO( :, 2,49,14) = (/&
+&6.6686E+01_JPRB,6.6647E+01_JPRB,5.4483E+01_JPRB,5.1761E+01_JPRB,5.4482E+01_JPRB,5.7948E+01_JPRB/)
+KBO( :, 3,49,14) = (/&
+&7.0933E+01_JPRB,7.0891E+01_JPRB,5.6270E+01_JPRB,5.0531E+01_JPRB,5.1319E+01_JPRB,5.5363E+01_JPRB/)
+KBO( :, 4,49,14) = (/&
+&7.4366E+01_JPRB,7.4322E+01_JPRB,5.7787E+01_JPRB,4.9421E+01_JPRB,4.8403E+01_JPRB,5.3357E+01_JPRB/)
+KBO( :, 5,49,14) = (/&
+&7.7078E+01_JPRB,7.7033E+01_JPRB,5.9049E+01_JPRB,4.8386E+01_JPRB,4.5673E+01_JPRB,5.2019E+01_JPRB/)
+KBO( :, 1,50,14) = (/&
+&5.9556E+01_JPRB,5.9521E+01_JPRB,5.1669E+01_JPRB,5.3919E+01_JPRB,5.9382E+01_JPRB,6.2781E+01_JPRB/)
+KBO( :, 2,50,14) = (/&
+&6.4814E+01_JPRB,6.4775E+01_JPRB,5.3744E+01_JPRB,5.2339E+01_JPRB,5.5844E+01_JPRB,5.9493E+01_JPRB/)
+KBO( :, 3,50,14) = (/&
+&6.9336E+01_JPRB,6.9295E+01_JPRB,5.5596E+01_JPRB,5.1013E+01_JPRB,5.2559E+01_JPRB,5.6778E+01_JPRB/)
+KBO( :, 4,50,14) = (/&
+&7.3091E+01_JPRB,7.3048E+01_JPRB,5.7225E+01_JPRB,4.9862E+01_JPRB,4.9551E+01_JPRB,5.4617E+01_JPRB/)
+KBO( :, 5,50,14) = (/&
+&7.6098E+01_JPRB,7.6053E+01_JPRB,5.8589E+01_JPRB,4.8799E+01_JPRB,4.6739E+01_JPRB,5.3303E+01_JPRB/)
+KBO( :, 1,51,14) = (/&
+&5.7367E+01_JPRB,5.7333E+01_JPRB,5.0871E+01_JPRB,5.4612E+01_JPRB,6.0840E+01_JPRB,6.4373E+01_JPRB/)
+KBO( :, 2,51,14) = (/&
+&6.2885E+01_JPRB,6.2848E+01_JPRB,5.2984E+01_JPRB,5.2932E+01_JPRB,5.7187E+01_JPRB,6.0966E+01_JPRB/)
+KBO( :, 3,51,14) = (/&
+&6.7687E+01_JPRB,6.7647E+01_JPRB,5.4925E+01_JPRB,5.1505E+01_JPRB,5.3793E+01_JPRB,5.8080E+01_JPRB/)
+KBO( :, 4,51,14) = (/&
+&7.1761E+01_JPRB,7.1718E+01_JPRB,5.6647E+01_JPRB,5.0300E+01_JPRB,5.0681E+01_JPRB,5.5789E+01_JPRB/)
+KBO( :, 5,51,14) = (/&
+&7.5046E+01_JPRB,7.5001E+01_JPRB,5.8108E+01_JPRB,4.9204E+01_JPRB,4.7793E+01_JPRB,5.4431E+01_JPRB/)
+KBO( :, 1,52,14) = (/&
+&5.5098E+01_JPRB,5.5065E+01_JPRB,5.0074E+01_JPRB,5.5358E+01_JPRB,6.2317E+01_JPRB,6.6056E+01_JPRB/)
+KBO( :, 2,52,14) = (/&
+&6.0852E+01_JPRB,6.0816E+01_JPRB,5.2195E+01_JPRB,5.3549E+01_JPRB,5.8551E+01_JPRB,6.2483E+01_JPRB/)
+KBO( :, 3,52,14) = (/&
+&6.5953E+01_JPRB,6.5914E+01_JPRB,5.4229E+01_JPRB,5.2028E+01_JPRB,5.5063E+01_JPRB,5.9490E+01_JPRB/)
+KBO( :, 4,52,14) = (/&
+&7.0320E+01_JPRB,7.0278E+01_JPRB,5.6036E+01_JPRB,5.0747E+01_JPRB,5.1835E+01_JPRB,5.7114E+01_JPRB/)
+KBO( :, 5,52,14) = (/&
+&7.3892E+01_JPRB,7.3848E+01_JPRB,5.7595E+01_JPRB,4.9618E+01_JPRB,4.8874E+01_JPRB,5.5672E+01_JPRB/)
+KBO( :, 1,53,14) = (/&
+&5.2721E+01_JPRB,5.2690E+01_JPRB,4.9263E+01_JPRB,5.6120E+01_JPRB,6.3814E+01_JPRB,6.7766E+01_JPRB/)
+KBO( :, 2,53,14) = (/&
+&5.8756E+01_JPRB,5.8721E+01_JPRB,5.1411E+01_JPRB,5.4211E+01_JPRB,5.9956E+01_JPRB,6.4072E+01_JPRB/)
+KBO( :, 3,53,14) = (/&
+&6.4126E+01_JPRB,6.4088E+01_JPRB,5.3502E+01_JPRB,5.2588E+01_JPRB,5.6365E+01_JPRB,6.1039E+01_JPRB/)
+KBO( :, 4,53,14) = (/&
+&6.8738E+01_JPRB,6.8697E+01_JPRB,5.5371E+01_JPRB,5.1205E+01_JPRB,5.3025E+01_JPRB,5.8602E+01_JPRB/)
+KBO( :, 5,53,14) = (/&
+&7.2636E+01_JPRB,7.2593E+01_JPRB,5.7041E+01_JPRB,5.0037E+01_JPRB,4.9973E+01_JPRB,5.7127E+01_JPRB/)
+KBO( :, 1,54,14) = (/&
+&5.0488E+01_JPRB,5.0458E+01_JPRB,4.8529E+01_JPRB,5.6862E+01_JPRB,6.5226E+01_JPRB,6.9287E+01_JPRB/)
+KBO( :, 2,54,14) = (/&
+&5.6752E+01_JPRB,5.6718E+01_JPRB,5.0683E+01_JPRB,5.4841E+01_JPRB,6.1279E+01_JPRB,6.5223E+01_JPRB/)
+KBO( :, 3,54,14) = (/&
+&6.2359E+01_JPRB,6.2322E+01_JPRB,5.2805E+01_JPRB,5.3124E+01_JPRB,5.7582E+01_JPRB,6.2132E+01_JPRB/)
+KBO( :, 4,54,14) = (/&
+&6.7239E+01_JPRB,6.7199E+01_JPRB,5.4766E+01_JPRB,5.1664E+01_JPRB,5.4149E+01_JPRB,5.9478E+01_JPRB/)
+KBO( :, 5,54,14) = (/&
+&7.1401E+01_JPRB,7.1358E+01_JPRB,5.6510E+01_JPRB,5.0433E+01_JPRB,5.0999E+01_JPRB,5.7575E+01_JPRB/)
+KBO( :, 1,55,14) = (/&
+&4.8301E+01_JPRB,4.8272E+01_JPRB,4.7833E+01_JPRB,5.7595E+01_JPRB,6.6585E+01_JPRB,7.0689E+01_JPRB/)
+KBO( :, 2,55,14) = (/&
+&5.4769E+01_JPRB,5.4736E+01_JPRB,4.9988E+01_JPRB,5.5495E+01_JPRB,6.2560E+01_JPRB,6.6385E+01_JPRB/)
+KBO( :, 3,55,14) = (/&
+&6.0573E+01_JPRB,6.0537E+01_JPRB,5.2112E+01_JPRB,5.3664E+01_JPRB,5.8770E+01_JPRB,6.2943E+01_JPRB/)
+KBO( :, 4,55,14) = (/&
+&6.5713E+01_JPRB,6.5674E+01_JPRB,5.4151E+01_JPRB,5.2119E+01_JPRB,5.5258E+01_JPRB,6.0010E+01_JPRB/)
+KBO( :, 5,55,14) = (/&
+&7.0126E+01_JPRB,7.0084E+01_JPRB,5.5970E+01_JPRB,5.0826E+01_JPRB,5.2008E+01_JPRB,5.7678E+01_JPRB/)
+KBO( :, 1,56,14) = (/&
+&4.6079E+01_JPRB,4.6051E+01_JPRB,4.7176E+01_JPRB,5.8356E+01_JPRB,6.7969E+01_JPRB,7.2050E+01_JPRB/)
+KBO( :, 2,56,14) = (/&
+&5.2701E+01_JPRB,5.2670E+01_JPRB,4.9282E+01_JPRB,5.6152E+01_JPRB,6.3857E+01_JPRB,6.7749E+01_JPRB/)
+KBO( :, 3,56,14) = (/&
+&5.8754E+01_JPRB,5.8720E+01_JPRB,5.1436E+01_JPRB,5.4239E+01_JPRB,5.9985E+01_JPRB,6.3792E+01_JPRB/)
+KBO( :, 4,56,14) = (/&
+&6.4130E+01_JPRB,6.4092E+01_JPRB,5.3523E+01_JPRB,5.2605E+01_JPRB,5.6386E+01_JPRB,6.0677E+01_JPRB/)
+KBO( :, 5,56,14) = (/&
+&6.8768E+01_JPRB,6.8727E+01_JPRB,5.5406E+01_JPRB,5.1229E+01_JPRB,5.3042E+01_JPRB,5.8111E+01_JPRB/)
+KBO( :, 1,57,14) = (/&
+&4.3796E+01_JPRB,4.3770E+01_JPRB,4.6545E+01_JPRB,5.9133E+01_JPRB,6.9380E+01_JPRB,7.3404E+01_JPRB/)
+KBO( :, 2,57,14) = (/&
+&5.0589E+01_JPRB,5.0559E+01_JPRB,4.8583E+01_JPRB,5.6850E+01_JPRB,6.5189E+01_JPRB,6.9103E+01_JPRB/)
+KBO( :, 3,57,14) = (/&
+&5.6860E+01_JPRB,5.6826E+01_JPRB,5.0745E+01_JPRB,5.4829E+01_JPRB,6.1234E+01_JPRB,6.4852E+01_JPRB/)
+KBO( :, 4,57,14) = (/&
+&6.2462E+01_JPRB,6.2424E+01_JPRB,5.2862E+01_JPRB,5.3112E+01_JPRB,5.7531E+01_JPRB,6.1451E+01_JPRB/)
+KBO( :, 5,57,14) = (/&
+&6.7340E+01_JPRB,6.7300E+01_JPRB,5.4823E+01_JPRB,5.1656E+01_JPRB,5.4098E+01_JPRB,5.8580E+01_JPRB/)
+KBO( :, 1,58,14) = (/&
+&4.1597E+01_JPRB,4.1573E+01_JPRB,4.5980E+01_JPRB,5.9890E+01_JPRB,7.0733E+01_JPRB,7.4721E+01_JPRB/)
+KBO( :, 2,58,14) = (/&
+&4.8541E+01_JPRB,4.8512E+01_JPRB,4.7924E+01_JPRB,5.7530E+01_JPRB,6.6457E+01_JPRB,7.0297E+01_JPRB/)
+KBO( :, 3,58,14) = (/&
+&5.5001E+01_JPRB,5.4968E+01_JPRB,5.0085E+01_JPRB,5.5434E+01_JPRB,6.2433E+01_JPRB,6.6096E+01_JPRB/)
+KBO( :, 4,58,14) = (/&
+&6.0796E+01_JPRB,6.0760E+01_JPRB,5.2213E+01_JPRB,5.3615E+01_JPRB,5.8644E+01_JPRB,6.2188E+01_JPRB/)
+KBO( :, 5,58,14) = (/&
+&6.5915E+01_JPRB,6.5876E+01_JPRB,5.4248E+01_JPRB,5.2078E+01_JPRB,5.5135E+01_JPRB,5.9028E+01_JPRB/)
+KBO( :, 1,59,14) = (/&
+&4.0694E+01_JPRB,4.0670E+01_JPRB,4.5769E+01_JPRB,6.0220E+01_JPRB,7.1303E+01_JPRB,7.5294E+01_JPRB/)
+KBO( :, 2,59,14) = (/&
+&4.7704E+01_JPRB,4.7676E+01_JPRB,4.7670E+01_JPRB,5.7820E+01_JPRB,6.6989E+01_JPRB,7.0669E+01_JPRB/)
+KBO( :, 3,59,14) = (/&
+&5.4223E+01_JPRB,5.4191E+01_JPRB,4.9817E+01_JPRB,5.5687E+01_JPRB,6.2924E+01_JPRB,6.6331E+01_JPRB/)
+KBO( :, 4,59,14) = (/&
+&6.0110E+01_JPRB,6.0074E+01_JPRB,5.1957E+01_JPRB,5.3831E+01_JPRB,5.9105E+01_JPRB,6.2224E+01_JPRB/)
+KBO( :, 5,59,14) = (/&
+&6.5318E+01_JPRB,6.5279E+01_JPRB,5.4011E+01_JPRB,5.2258E+01_JPRB,5.5565E+01_JPRB,5.8638E+01_JPRB/)
+KBO( :, 1,13,15) = (/&
+&3.6131E+01_JPRB,3.6111E+01_JPRB,2.7504E+01_JPRB,1.8893E+01_JPRB,1.0455E+01_JPRB,8.3589E+00_JPRB/)
+KBO( :, 2,13,15) = (/&
+&3.5587E+01_JPRB,3.5567E+01_JPRB,2.7173E+01_JPRB,1.8796E+01_JPRB,1.0430E+01_JPRB,8.1741E+00_JPRB/)
+KBO( :, 3,13,15) = (/&
+&3.5232E+01_JPRB,3.5212E+01_JPRB,2.6920E+01_JPRB,1.8645E+01_JPRB,1.0345E+01_JPRB,8.4671E+00_JPRB/)
+KBO( :, 4,13,15) = (/&
+&3.5001E+01_JPRB,3.4981E+01_JPRB,2.6729E+01_JPRB,1.8467E+01_JPRB,1.0232E+01_JPRB,9.0834E+00_JPRB/)
+KBO( :, 5,13,15) = (/&
+&3.4785E+01_JPRB,3.4765E+01_JPRB,2.6543E+01_JPRB,1.8302E+01_JPRB,1.0125E+01_JPRB,1.1028E+01_JPRB/)
+KBO( :, 1,14,15) = (/&
+&4.1079E+01_JPRB,4.1055E+01_JPRB,3.1300E+01_JPRB,2.1582E+01_JPRB,1.1853E+01_JPRB,9.3349E+00_JPRB/)
+KBO( :, 2,14,15) = (/&
+&4.0876E+01_JPRB,4.0852E+01_JPRB,3.1181E+01_JPRB,2.1527E+01_JPRB,1.1831E+01_JPRB,9.0870E+00_JPRB/)
+KBO( :, 3,14,15) = (/&
+&4.0794E+01_JPRB,4.0770E+01_JPRB,3.1110E+01_JPRB,2.1447E+01_JPRB,1.1767E+01_JPRB,9.0396E+00_JPRB/)
+KBO( :, 4,14,15) = (/&
+&4.0674E+01_JPRB,4.0650E+01_JPRB,3.1006E+01_JPRB,2.1331E+01_JPRB,1.1685E+01_JPRB,9.1026E+00_JPRB/)
+KBO( :, 5,14,15) = (/&
+&4.0556E+01_JPRB,4.0533E+01_JPRB,3.0850E+01_JPRB,2.1168E+01_JPRB,1.1577E+01_JPRB,9.5160E+00_JPRB/)
+KBO( :, 1,15,15) = (/&
+&4.7326E+01_JPRB,4.7299E+01_JPRB,3.6027E+01_JPRB,2.4785E+01_JPRB,1.3503E+01_JPRB,1.0407E+01_JPRB/)
+KBO( :, 2,15,15) = (/&
+&4.7413E+01_JPRB,4.7386E+01_JPRB,3.6106E+01_JPRB,2.4831E+01_JPRB,1.3509E+01_JPRB,1.0116E+01_JPRB/)
+KBO( :, 3,15,15) = (/&
+&4.7425E+01_JPRB,4.7398E+01_JPRB,3.6101E+01_JPRB,2.4790E+01_JPRB,1.3473E+01_JPRB,9.8259E+00_JPRB/)
+KBO( :, 4,15,15) = (/&
+&4.7432E+01_JPRB,4.7405E+01_JPRB,3.6056E+01_JPRB,2.4680E+01_JPRB,1.3388E+01_JPRB,9.8639E+00_JPRB/)
+KBO( :, 5,15,15) = (/&
+&4.7370E+01_JPRB,4.7342E+01_JPRB,3.5942E+01_JPRB,2.4552E+01_JPRB,1.3257E+01_JPRB,9.8173E+00_JPRB/)
+KBO( :, 1,16,15) = (/&
+&5.4875E+01_JPRB,5.4844E+01_JPRB,4.1702E+01_JPRB,2.8578E+01_JPRB,1.5437E+01_JPRB,1.1664E+01_JPRB/)
+KBO( :, 2,16,15) = (/&
+&5.5032E+01_JPRB,5.5000E+01_JPRB,4.1823E+01_JPRB,2.8656E+01_JPRB,1.5467E+01_JPRB,1.1353E+01_JPRB/)
+KBO( :, 3,16,15) = (/&
+&5.5199E+01_JPRB,5.5167E+01_JPRB,4.1916E+01_JPRB,2.8637E+01_JPRB,1.5432E+01_JPRB,1.1037E+01_JPRB/)
+KBO( :, 4,16,15) = (/&
+&5.5276E+01_JPRB,5.5244E+01_JPRB,4.1910E+01_JPRB,2.8561E+01_JPRB,1.5341E+01_JPRB,1.0976E+01_JPRB/)
+KBO( :, 5,16,15) = (/&
+&5.5278E+01_JPRB,5.5245E+01_JPRB,4.1857E+01_JPRB,2.8461E+01_JPRB,1.5222E+01_JPRB,1.0876E+01_JPRB/)
+KBO( :, 1,17,15) = (/&
+&6.3573E+01_JPRB,6.3536E+01_JPRB,4.8216E+01_JPRB,3.2905E+01_JPRB,1.7651E+01_JPRB,1.3317E+01_JPRB/)
+KBO( :, 2,17,15) = (/&
+&6.3845E+01_JPRB,6.3808E+01_JPRB,4.8400E+01_JPRB,3.2984E+01_JPRB,1.7690E+01_JPRB,1.2970E+01_JPRB/)
+KBO( :, 3,17,15) = (/&
+&6.4023E+01_JPRB,6.3985E+01_JPRB,4.8498E+01_JPRB,3.2989E+01_JPRB,1.7656E+01_JPRB,1.2620E+01_JPRB/)
+KBO( :, 4,17,15) = (/&
+&6.4166E+01_JPRB,6.4129E+01_JPRB,4.8557E+01_JPRB,3.2962E+01_JPRB,1.7567E+01_JPRB,1.2436E+01_JPRB/)
+KBO( :, 5,17,15) = (/&
+&6.4111E+01_JPRB,6.4073E+01_JPRB,4.8467E+01_JPRB,3.2855E+01_JPRB,1.7451E+01_JPRB,1.2281E+01_JPRB/)
+KBO( :, 1,18,15) = (/&
+&7.3440E+01_JPRB,7.3397E+01_JPRB,5.5592E+01_JPRB,3.7776E+01_JPRB,2.0119E+01_JPRB,1.5329E+01_JPRB/)
+KBO( :, 2,18,15) = (/&
+&7.3743E+01_JPRB,7.3700E+01_JPRB,5.5787E+01_JPRB,3.7865E+01_JPRB,2.0169E+01_JPRB,1.4924E+01_JPRB/)
+KBO( :, 3,18,15) = (/&
+&7.3962E+01_JPRB,7.3919E+01_JPRB,5.5904E+01_JPRB,3.7908E+01_JPRB,2.0135E+01_JPRB,1.4518E+01_JPRB/)
+KBO( :, 4,18,15) = (/&
+&7.3953E+01_JPRB,7.3909E+01_JPRB,5.5863E+01_JPRB,3.7855E+01_JPRB,2.0062E+01_JPRB,1.4197E+01_JPRB/)
+KBO( :, 5,18,15) = (/&
+&7.3825E+01_JPRB,7.3781E+01_JPRB,5.5741E+01_JPRB,3.7729E+01_JPRB,1.9926E+01_JPRB,1.3956E+01_JPRB/)
+KBO( :, 1,19,15) = (/&
+&8.4462E+01_JPRB,8.4413E+01_JPRB,6.3820E+01_JPRB,4.3253E+01_JPRB,2.2902E+01_JPRB,1.7600E+01_JPRB/)
+KBO( :, 2,19,15) = (/&
+&8.4860E+01_JPRB,8.4810E+01_JPRB,6.4094E+01_JPRB,4.3382E+01_JPRB,2.2923E+01_JPRB,1.7125E+01_JPRB/)
+KBO( :, 3,19,15) = (/&
+&8.4963E+01_JPRB,8.4913E+01_JPRB,6.4146E+01_JPRB,4.3401E+01_JPRB,2.2894E+01_JPRB,1.6619E+01_JPRB/)
+KBO( :, 4,19,15) = (/&
+&8.4919E+01_JPRB,8.4869E+01_JPRB,6.4089E+01_JPRB,4.3332E+01_JPRB,2.2791E+01_JPRB,1.6133E+01_JPRB/)
+KBO( :, 5,19,15) = (/&
+&8.4612E+01_JPRB,8.4563E+01_JPRB,6.3846E+01_JPRB,4.3142E+01_JPRB,2.2633E+01_JPRB,1.5830E+01_JPRB/)
+KBO( :, 1,20,15) = (/&
+&9.7043E+01_JPRB,9.6986E+01_JPRB,7.3234E+01_JPRB,4.9485E+01_JPRB,2.5962E+01_JPRB,2.0077E+01_JPRB/)
+KBO( :, 2,20,15) = (/&
+&9.7332E+01_JPRB,9.7275E+01_JPRB,7.3444E+01_JPRB,4.9611E+01_JPRB,2.5984E+01_JPRB,1.9505E+01_JPRB/)
+KBO( :, 3,20,15) = (/&
+&9.7370E+01_JPRB,9.7313E+01_JPRB,7.3448E+01_JPRB,4.9583E+01_JPRB,2.5915E+01_JPRB,1.8890E+01_JPRB/)
+KBO( :, 4,20,15) = (/&
+&9.7125E+01_JPRB,9.7068E+01_JPRB,7.3251E+01_JPRB,4.9424E+01_JPRB,2.5774E+01_JPRB,1.8285E+01_JPRB/)
+KBO( :, 5,20,15) = (/&
+&9.6643E+01_JPRB,9.6586E+01_JPRB,7.2853E+01_JPRB,4.9111E+01_JPRB,2.5548E+01_JPRB,1.7915E+01_JPRB/)
+KBO( :, 1,21,15) = (/&
+&1.1092E+02_JPRB,1.1085E+02_JPRB,8.3649E+01_JPRB,5.6418E+01_JPRB,2.9378E+01_JPRB,2.2812E+01_JPRB/)
+KBO( :, 2,21,15) = (/&
+&1.1109E+02_JPRB,1.1103E+02_JPRB,8.3756E+01_JPRB,5.6460E+01_JPRB,2.9344E+01_JPRB,2.2156E+01_JPRB/)
+KBO( :, 3,21,15) = (/&
+&1.1096E+02_JPRB,1.1089E+02_JPRB,8.3624E+01_JPRB,5.6337E+01_JPRB,2.9225E+01_JPRB,2.1484E+01_JPRB/)
+KBO( :, 4,21,15) = (/&
+&1.1048E+02_JPRB,1.1042E+02_JPRB,8.3238E+01_JPRB,5.6034E+01_JPRB,2.9000E+01_JPRB,2.0793E+01_JPRB/)
+KBO( :, 5,21,15) = (/&
+&1.0971E+02_JPRB,1.0964E+02_JPRB,8.2635E+01_JPRB,5.5599E+01_JPRB,2.8723E+01_JPRB,2.0338E+01_JPRB/)
+KBO( :, 1,22,15) = (/&
+&1.2596E+02_JPRB,1.2589E+02_JPRB,9.4893E+01_JPRB,6.3871E+01_JPRB,3.3059E+01_JPRB,2.5998E+01_JPRB/)
+KBO( :, 2,22,15) = (/&
+&1.2587E+02_JPRB,1.2580E+02_JPRB,9.4816E+01_JPRB,6.3793E+01_JPRB,3.2943E+01_JPRB,2.5227E+01_JPRB/)
+KBO( :, 3,22,15) = (/&
+&1.2541E+02_JPRB,1.2533E+02_JPRB,9.4434E+01_JPRB,6.3497E+01_JPRB,3.2730E+01_JPRB,2.4435E+01_JPRB/)
+KBO( :, 4,22,15) = (/&
+&1.2461E+02_JPRB,1.2453E+02_JPRB,9.3802E+01_JPRB,6.3040E+01_JPRB,3.2441E+01_JPRB,2.3619E+01_JPRB/)
+KBO( :, 5,22,15) = (/&
+&1.2345E+02_JPRB,1.2338E+02_JPRB,9.2915E+01_JPRB,6.2412E+01_JPRB,3.2063E+01_JPRB,2.3036E+01_JPRB/)
+KBO( :, 1,23,15) = (/&
+&1.4197E+02_JPRB,1.4188E+02_JPRB,1.0687E+02_JPRB,7.1809E+01_JPRB,3.7052E+01_JPRB,2.9587E+01_JPRB/)
+KBO( :, 2,23,15) = (/&
+&1.4145E+02_JPRB,1.4137E+02_JPRB,1.0646E+02_JPRB,7.1497E+01_JPRB,3.6788E+01_JPRB,2.8648E+01_JPRB/)
+KBO( :, 3,23,15) = (/&
+&1.4055E+02_JPRB,1.4047E+02_JPRB,1.0576E+02_JPRB,7.1003E+01_JPRB,3.6445E+01_JPRB,2.7684E+01_JPRB/)
+KBO( :, 4,23,15) = (/&
+&1.3924E+02_JPRB,1.3916E+02_JPRB,1.0475E+02_JPRB,7.0305E+01_JPRB,3.6030E+01_JPRB,2.6707E+01_JPRB/)
+KBO( :, 5,23,15) = (/&
+&1.3763E+02_JPRB,1.3754E+02_JPRB,1.0352E+02_JPRB,6.9448E+01_JPRB,3.5536E+01_JPRB,2.5941E+01_JPRB/)
+KBO( :, 1,24,15) = (/&
+&1.5875E+02_JPRB,1.5866E+02_JPRB,1.1943E+02_JPRB,8.0138E+01_JPRB,4.1339E+01_JPRB,3.3488E+01_JPRB/)
+KBO( :, 2,24,15) = (/&
+&1.5772E+02_JPRB,1.5762E+02_JPRB,1.1862E+02_JPRB,7.9566E+01_JPRB,4.0871E+01_JPRB,3.2326E+01_JPRB/)
+KBO( :, 3,24,15) = (/&
+&1.5618E+02_JPRB,1.5608E+02_JPRB,1.1744E+02_JPRB,7.8741E+01_JPRB,4.0347E+01_JPRB,3.1135E+01_JPRB/)
+KBO( :, 4,24,15) = (/&
+&1.5432E+02_JPRB,1.5423E+02_JPRB,1.1603E+02_JPRB,7.7772E+01_JPRB,3.9739E+01_JPRB,2.9970E+01_JPRB/)
+KBO( :, 5,24,15) = (/&
+&1.5201E+02_JPRB,1.5192E+02_JPRB,1.1428E+02_JPRB,7.6577E+01_JPRB,3.9078E+01_JPRB,2.8958E+01_JPRB/)
+KBO( :, 1,25,15) = (/&
+&1.7605E+02_JPRB,1.7595E+02_JPRB,1.3237E+02_JPRB,8.8710E+01_JPRB,4.5816E+01_JPRB,3.7592E+01_JPRB/)
+KBO( :, 2,25,15) = (/&
+&1.7422E+02_JPRB,1.7412E+02_JPRB,1.3097E+02_JPRB,8.7758E+01_JPRB,4.5131E+01_JPRB,3.6159E+01_JPRB/)
+KBO( :, 3,25,15) = (/&
+&1.7201E+02_JPRB,1.7191E+02_JPRB,1.2929E+02_JPRB,8.6602E+01_JPRB,4.4346E+01_JPRB,3.4734E+01_JPRB/)
+KBO( :, 4,25,15) = (/&
+&1.6938E+02_JPRB,1.6928E+02_JPRB,1.2730E+02_JPRB,8.5245E+01_JPRB,4.3518E+01_JPRB,3.3295E+01_JPRB/)
+KBO( :, 5,25,15) = (/&
+&1.6630E+02_JPRB,1.6620E+02_JPRB,1.2498E+02_JPRB,8.3665E+01_JPRB,4.2629E+01_JPRB,3.2020E+01_JPRB/)
+KBO( :, 1,26,15) = (/&
+&1.9312E+02_JPRB,1.9300E+02_JPRB,1.4513E+02_JPRB,9.7167E+01_JPRB,5.0350E+01_JPRB,4.1741E+01_JPRB/)
+KBO( :, 2,26,15) = (/&
+&1.9055E+02_JPRB,1.9044E+02_JPRB,1.4319E+02_JPRB,9.5848E+01_JPRB,4.9379E+01_JPRB,3.9996E+01_JPRB/)
+KBO( :, 3,26,15) = (/&
+&1.8750E+02_JPRB,1.8738E+02_JPRB,1.4088E+02_JPRB,9.4283E+01_JPRB,4.8328E+01_JPRB,3.8277E+01_JPRB/)
+KBO( :, 4,26,15) = (/&
+&1.8390E+02_JPRB,1.8379E+02_JPRB,1.3817E+02_JPRB,9.2456E+01_JPRB,4.7225E+01_JPRB,3.6567E+01_JPRB/)
+KBO( :, 5,26,15) = (/&
+&1.8004E+02_JPRB,1.7993E+02_JPRB,1.3525E+02_JPRB,9.0479E+01_JPRB,4.6075E+01_JPRB,3.5023E+01_JPRB/)
+KBO( :, 1,27,15) = (/&
+&2.0962E+02_JPRB,2.0950E+02_JPRB,1.5747E+02_JPRB,1.0535E+02_JPRB,5.4802E+01_JPRB,4.5812E+01_JPRB/)
+KBO( :, 2,27,15) = (/&
+&2.0617E+02_JPRB,2.0605E+02_JPRB,1.5487E+02_JPRB,1.0359E+02_JPRB,5.3500E+01_JPRB,4.3722E+01_JPRB/)
+KBO( :, 3,27,15) = (/&
+&2.0210E+02_JPRB,2.0198E+02_JPRB,1.5180E+02_JPRB,1.0153E+02_JPRB,5.2160E+01_JPRB,4.1668E+01_JPRB/)
+KBO( :, 4,27,15) = (/&
+&1.9765E+02_JPRB,1.9753E+02_JPRB,1.4844E+02_JPRB,9.9264E+01_JPRB,5.0764E+01_JPRB,3.9657E+01_JPRB/)
+KBO( :, 5,27,15) = (/&
+&1.9285E+02_JPRB,1.9273E+02_JPRB,1.4483E+02_JPRB,9.6837E+01_JPRB,4.9332E+01_JPRB,3.7870E+01_JPRB/)
+KBO( :, 1,28,15) = (/&
+&2.2504E+02_JPRB,2.2491E+02_JPRB,1.6900E+02_JPRB,1.1299E+02_JPRB,5.9023E+01_JPRB,4.9671E+01_JPRB/)
+KBO( :, 2,28,15) = (/&
+&2.2060E+02_JPRB,2.2047E+02_JPRB,1.6566E+02_JPRB,1.1075E+02_JPRB,5.7389E+01_JPRB,4.7215E+01_JPRB/)
+KBO( :, 3,28,15) = (/&
+&2.1560E+02_JPRB,2.1547E+02_JPRB,1.6190E+02_JPRB,1.0822E+02_JPRB,5.5706E+01_JPRB,4.4816E+01_JPRB/)
+KBO( :, 4,28,15) = (/&
+&2.1015E+02_JPRB,2.1002E+02_JPRB,1.5779E+02_JPRB,1.0547E+02_JPRB,5.4003E+01_JPRB,4.2483E+01_JPRB/)
+KBO( :, 5,28,15) = (/&
+&2.0436E+02_JPRB,2.0424E+02_JPRB,1.5344E+02_JPRB,1.0255E+02_JPRB,5.2316E+01_JPRB,4.0478E+01_JPRB/)
+KBO( :, 1,29,15) = (/&
+&2.3909E+02_JPRB,2.3895E+02_JPRB,1.7950E+02_JPRB,1.1994E+02_JPRB,6.2884E+01_JPRB,5.3166E+01_JPRB/)
+KBO( :, 2,29,15) = (/&
+&2.3356E+02_JPRB,2.3342E+02_JPRB,1.7535E+02_JPRB,1.1717E+02_JPRB,6.0903E+01_JPRB,5.0319E+01_JPRB/)
+KBO( :, 3,29,15) = (/&
+&2.2760E+02_JPRB,2.2747E+02_JPRB,1.7088E+02_JPRB,1.1417E+02_JPRB,5.8870E+01_JPRB,4.7588E+01_JPRB/)
+KBO( :, 4,29,15) = (/&
+&2.2117E+02_JPRB,2.2104E+02_JPRB,1.6604E+02_JPRB,1.1094E+02_JPRB,5.6871E+01_JPRB,4.4984E+01_JPRB/)
+KBO( :, 5,29,15) = (/&
+&2.1449E+02_JPRB,2.1436E+02_JPRB,1.6102E+02_JPRB,1.0757E+02_JPRB,5.4912E+01_JPRB,4.2890E+01_JPRB/)
+KBO( :, 1,30,15) = (/&
+&2.5146E+02_JPRB,2.5131E+02_JPRB,1.8876E+02_JPRB,1.2608E+02_JPRB,6.6304E+01_JPRB,5.6220E+01_JPRB/)
+KBO( :, 2,30,15) = (/&
+&2.4482E+02_JPRB,2.4467E+02_JPRB,1.8377E+02_JPRB,1.2275E+02_JPRB,6.3959E+01_JPRB,5.3007E+01_JPRB/)
+KBO( :, 3,30,15) = (/&
+&2.3792E+02_JPRB,2.3777E+02_JPRB,1.7859E+02_JPRB,1.1929E+02_JPRB,6.1625E+01_JPRB,4.9952E+01_JPRB/)
+KBO( :, 4,30,15) = (/&
+&2.3061E+02_JPRB,2.3047E+02_JPRB,1.7311E+02_JPRB,1.1562E+02_JPRB,5.9353E+01_JPRB,4.7238E+01_JPRB/)
+KBO( :, 5,30,15) = (/&
+&2.2308E+02_JPRB,2.2295E+02_JPRB,1.6746E+02_JPRB,1.1184E+02_JPRB,5.7116E+01_JPRB,4.4978E+01_JPRB/)
+KBO( :, 1,31,15) = (/&
+&2.6202E+02_JPRB,2.6186E+02_JPRB,1.9666E+02_JPRB,1.3132E+02_JPRB,6.9199E+01_JPRB,5.8789E+01_JPRB/)
+KBO( :, 2,31,15) = (/&
+&2.5437E+02_JPRB,2.5422E+02_JPRB,1.9092E+02_JPRB,1.2749E+02_JPRB,6.6513E+01_JPRB,5.5233E+01_JPRB/)
+KBO( :, 3,31,15) = (/&
+&2.4648E+02_JPRB,2.4634E+02_JPRB,1.8501E+02_JPRB,1.2354E+02_JPRB,6.3925E+01_JPRB,5.1946E+01_JPRB/)
+KBO( :, 4,31,15) = (/&
+&2.3838E+02_JPRB,2.3824E+02_JPRB,1.7892E+02_JPRB,1.1948E+02_JPRB,6.1400E+01_JPRB,4.9329E+01_JPRB/)
+KBO( :, 5,31,15) = (/&
+&2.3010E+02_JPRB,2.2996E+02_JPRB,1.7271E+02_JPRB,1.1532E+02_JPRB,5.8925E+01_JPRB,4.6712E+01_JPRB/)
+KBO( :, 1,32,15) = (/&
+&2.7074E+02_JPRB,2.7057E+02_JPRB,2.0319E+02_JPRB,1.3565E+02_JPRB,7.1571E+01_JPRB,6.0821E+01_JPRB/)
+KBO( :, 2,32,15) = (/&
+&2.6218E+02_JPRB,2.6203E+02_JPRB,1.9677E+02_JPRB,1.3137E+02_JPRB,6.8590E+01_JPRB,5.6967E+01_JPRB/)
+KBO( :, 3,32,15) = (/&
+&2.5343E+02_JPRB,2.5328E+02_JPRB,1.9020E+02_JPRB,1.2698E+02_JPRB,6.5765E+01_JPRB,5.3801E+01_JPRB/)
+KBO( :, 4,32,15) = (/&
+&2.4457E+02_JPRB,2.4443E+02_JPRB,1.8356E+02_JPRB,1.2255E+02_JPRB,6.3014E+01_JPRB,5.0945E+01_JPRB/)
+KBO( :, 5,32,15) = (/&
+&2.3559E+02_JPRB,2.3545E+02_JPRB,1.7681E+02_JPRB,1.1805E+02_JPRB,6.0339E+01_JPRB,4.8062E+01_JPRB/)
+KBO( :, 1,33,15) = (/&
+&2.7764E+02_JPRB,2.7748E+02_JPRB,2.0836E+02_JPRB,1.3907E+02_JPRB,7.3436E+01_JPRB,6.2345E+01_JPRB/)
+KBO( :, 2,33,15) = (/&
+&2.6829E+02_JPRB,2.6813E+02_JPRB,2.0135E+02_JPRB,1.3440E+02_JPRB,7.0216E+01_JPRB,5.8526E+01_JPRB/)
+KBO( :, 3,33,15) = (/&
+&2.5890E+02_JPRB,2.5874E+02_JPRB,1.9430E+02_JPRB,1.2970E+02_JPRB,6.7179E+01_JPRB,5.5377E+01_JPRB/)
+KBO( :, 4,33,15) = (/&
+&2.4933E+02_JPRB,2.4918E+02_JPRB,1.8712E+02_JPRB,1.2490E+02_JPRB,6.4220E+01_JPRB,5.2156E+01_JPRB/)
+KBO( :, 5,33,15) = (/&
+&2.3975E+02_JPRB,2.3960E+02_JPRB,1.7993E+02_JPRB,1.2011E+02_JPRB,6.1401E+01_JPRB,4.9280E+01_JPRB/)
+KBO( :, 1,34,15) = (/&
+&2.8330E+02_JPRB,2.8313E+02_JPRB,2.1259E+02_JPRB,1.4188E+02_JPRB,7.4943E+01_JPRB,6.3611E+01_JPRB/)
+KBO( :, 2,34,15) = (/&
+&2.7328E+02_JPRB,2.7312E+02_JPRB,2.0508E+02_JPRB,1.3687E+02_JPRB,7.1539E+01_JPRB,6.0040E+01_JPRB/)
+KBO( :, 3,34,15) = (/&
+&2.6322E+02_JPRB,2.6306E+02_JPRB,1.9753E+02_JPRB,1.3184E+02_JPRB,6.8302E+01_JPRB,5.6531E+01_JPRB/)
+KBO( :, 4,34,15) = (/&
+&2.5315E+02_JPRB,2.5300E+02_JPRB,1.8997E+02_JPRB,1.2680E+02_JPRB,6.5194E+01_JPRB,5.3134E+01_JPRB/)
+KBO( :, 5,34,15) = (/&
+&2.4305E+02_JPRB,2.4290E+02_JPRB,1.8239E+02_JPRB,1.2174E+02_JPRB,6.2238E+01_JPRB,5.0964E+01_JPRB/)
+KBO( :, 1,35,15) = (/&
+&2.8856E+02_JPRB,2.8838E+02_JPRB,2.1653E+02_JPRB,1.4450E+02_JPRB,7.6402E+01_JPRB,6.5174E+01_JPRB/)
+KBO( :, 2,35,15) = (/&
+&2.7804E+02_JPRB,2.7787E+02_JPRB,2.0864E+02_JPRB,1.3924E+02_JPRB,7.2828E+01_JPRB,6.1468E+01_JPRB/)
+KBO( :, 3,35,15) = (/&
+&2.6749E+02_JPRB,2.6733E+02_JPRB,2.0072E+02_JPRB,1.3396E+02_JPRB,6.9428E+01_JPRB,5.7687E+01_JPRB/)
+KBO( :, 4,35,15) = (/&
+&2.5691E+02_JPRB,2.5675E+02_JPRB,1.9278E+02_JPRB,1.2866E+02_JPRB,6.6172E+01_JPRB,5.4537E+01_JPRB/)
+KBO( :, 5,35,15) = (/&
+&2.4636E+02_JPRB,2.4621E+02_JPRB,1.8487E+02_JPRB,1.2339E+02_JPRB,6.3093E+01_JPRB,5.3102E+01_JPRB/)
+KBO( :, 1,36,15) = (/&
+&2.9394E+02_JPRB,2.9376E+02_JPRB,2.2055E+02_JPRB,1.4717E+02_JPRB,7.7976E+01_JPRB,6.6997E+01_JPRB/)
+KBO( :, 2,36,15) = (/&
+&2.8294E+02_JPRB,2.8277E+02_JPRB,2.1230E+02_JPRB,1.4167E+02_JPRB,7.4208E+01_JPRB,6.2977E+01_JPRB/)
+KBO( :, 3,36,15) = (/&
+&2.7194E+02_JPRB,2.7178E+02_JPRB,2.0405E+02_JPRB,1.3617E+02_JPRB,7.0657E+01_JPRB,5.9032E+01_JPRB/)
+KBO( :, 4,36,15) = (/&
+&2.6092E+02_JPRB,2.6077E+02_JPRB,1.9579E+02_JPRB,1.3066E+02_JPRB,6.7258E+01_JPRB,5.6406E+01_JPRB/)
+KBO( :, 5,36,15) = (/&
+&2.5003E+02_JPRB,2.4988E+02_JPRB,1.8762E+02_JPRB,1.2521E+02_JPRB,6.4068E+01_JPRB,5.5624E+01_JPRB/)
+KBO( :, 1,37,15) = (/&
+&3.0017E+02_JPRB,2.9999E+02_JPRB,2.2523E+02_JPRB,1.5028E+02_JPRB,7.9918E+01_JPRB,6.9171E+01_JPRB/)
+KBO( :, 2,37,15) = (/&
+&2.8870E+02_JPRB,2.8853E+02_JPRB,2.1662E+02_JPRB,1.4454E+02_JPRB,7.5932E+01_JPRB,6.4872E+01_JPRB/)
+KBO( :, 3,37,15) = (/&
+&2.7736E+02_JPRB,2.7719E+02_JPRB,2.0811E+02_JPRB,1.3887E+02_JPRB,7.2229E+01_JPRB,6.0792E+01_JPRB/)
+KBO( :, 4,37,15) = (/&
+&2.6599E+02_JPRB,2.6584E+02_JPRB,1.9958E+02_JPRB,1.3319E+02_JPRB,6.8687E+01_JPRB,5.8518E+01_JPRB/)
+KBO( :, 5,37,15) = (/&
+&2.5476E+02_JPRB,2.5461E+02_JPRB,1.9116E+02_JPRB,1.2757E+02_JPRB,6.5367E+01_JPRB,5.8059E+01_JPRB/)
+KBO( :, 1,38,15) = (/&
+&3.0587E+02_JPRB,3.0569E+02_JPRB,2.2949E+02_JPRB,1.5312E+02_JPRB,8.1725E+01_JPRB,7.1248E+01_JPRB/)
+KBO( :, 2,38,15) = (/&
+&2.9408E+02_JPRB,2.9390E+02_JPRB,2.2065E+02_JPRB,1.4722E+02_JPRB,7.7560E+01_JPRB,6.6691E+01_JPRB/)
+KBO( :, 3,38,15) = (/&
+&2.8234E+02_JPRB,2.8218E+02_JPRB,2.1184E+02_JPRB,1.4135E+02_JPRB,7.3693E+01_JPRB,6.2607E+01_JPRB/)
+KBO( :, 4,38,15) = (/&
+&2.7064E+02_JPRB,2.7048E+02_JPRB,2.0306E+02_JPRB,1.3550E+02_JPRB,7.0023E+01_JPRB,6.0914E+01_JPRB/)
+KBO( :, 5,38,15) = (/&
+&2.5911E+02_JPRB,2.5896E+02_JPRB,1.9442E+02_JPRB,1.2974E+02_JPRB,6.6580E+01_JPRB,6.0840E+01_JPRB/)
+KBO( :, 1,39,15) = (/&
+&3.1101E+02_JPRB,3.1082E+02_JPRB,2.3334E+02_JPRB,1.5567E+02_JPRB,8.3378E+01_JPRB,7.3218E+01_JPRB/)
+KBO( :, 2,39,15) = (/&
+&2.9887E+02_JPRB,2.9869E+02_JPRB,2.2423E+02_JPRB,1.4960E+02_JPRB,7.9045E+01_JPRB,6.8519E+01_JPRB/)
+KBO( :, 3,39,15) = (/&
+&2.8683E+02_JPRB,2.8666E+02_JPRB,2.1520E+02_JPRB,1.4359E+02_JPRB,7.5024E+01_JPRB,6.4735E+01_JPRB/)
+KBO( :, 4,39,15) = (/&
+&2.7487E+02_JPRB,2.7471E+02_JPRB,2.0623E+02_JPRB,1.3761E+02_JPRB,7.1242E+01_JPRB,6.3858E+01_JPRB/)
+KBO( :, 5,39,15) = (/&
+&2.6303E+02_JPRB,2.6287E+02_JPRB,1.9735E+02_JPRB,1.3169E+02_JPRB,6.7680E+01_JPRB,6.4377E+01_JPRB/)
+KBO( :, 1,40,15) = (/&
+&3.1694E+02_JPRB,3.1675E+02_JPRB,2.3777E+02_JPRB,1.5862E+02_JPRB,8.5396E+01_JPRB,7.5421E+01_JPRB/)
+KBO( :, 2,40,15) = (/&
+&3.0448E+02_JPRB,3.0430E+02_JPRB,2.2843E+02_JPRB,1.5240E+02_JPRB,8.0839E+01_JPRB,7.0612E+01_JPRB/)
+KBO( :, 3,40,15) = (/&
+&2.9221E+02_JPRB,2.9204E+02_JPRB,2.1923E+02_JPRB,1.4627E+02_JPRB,7.6677E+01_JPRB,6.6660E+01_JPRB/)
+KBO( :, 4,40,15) = (/&
+&2.8000E+02_JPRB,2.7983E+02_JPRB,2.1007E+02_JPRB,1.4017E+02_JPRB,7.2757E+01_JPRB,6.5710E+01_JPRB/)
+KBO( :, 5,40,15) = (/&
+&2.6789E+02_JPRB,2.6773E+02_JPRB,2.0099E+02_JPRB,1.3412E+02_JPRB,6.9075E+01_JPRB,6.6414E+01_JPRB/)
+KBO( :, 1,41,15) = (/&
+&3.2263E+02_JPRB,3.2244E+02_JPRB,2.4204E+02_JPRB,1.6146E+02_JPRB,8.7409E+01_JPRB,7.7606E+01_JPRB/)
+KBO( :, 2,41,15) = (/&
+&3.0995E+02_JPRB,3.0976E+02_JPRB,2.3253E+02_JPRB,1.5513E+02_JPRB,8.2644E+01_JPRB,7.2713E+01_JPRB/)
+KBO( :, 3,41,15) = (/&
+&2.9738E+02_JPRB,2.9720E+02_JPRB,2.2311E+02_JPRB,1.4885E+02_JPRB,7.8306E+01_JPRB,6.8571E+01_JPRB/)
+KBO( :, 4,41,15) = (/&
+&2.8499E+02_JPRB,2.8482E+02_JPRB,2.1382E+02_JPRB,1.4266E+02_JPRB,7.4270E+01_JPRB,6.7462E+01_JPRB/)
+KBO( :, 5,41,15) = (/&
+&2.7266E+02_JPRB,2.7250E+02_JPRB,2.0456E+02_JPRB,1.3649E+02_JPRB,7.0464E+01_JPRB,6.8326E+01_JPRB/)
+KBO( :, 1,42,15) = (/&
+&3.2806E+02_JPRB,3.2786E+02_JPRB,2.4610E+02_JPRB,1.6416E+02_JPRB,8.9382E+01_JPRB,7.9783E+01_JPRB/)
+KBO( :, 2,42,15) = (/&
+&3.1513E+02_JPRB,3.1494E+02_JPRB,2.3641E+02_JPRB,1.5771E+02_JPRB,8.4411E+01_JPRB,7.4828E+01_JPRB/)
+KBO( :, 3,42,15) = (/&
+&3.0236E+02_JPRB,3.0217E+02_JPRB,2.2683E+02_JPRB,1.5133E+02_JPRB,7.9899E+01_JPRB,7.0566E+01_JPRB/)
+KBO( :, 4,42,15) = (/&
+&2.8974E+02_JPRB,2.8956E+02_JPRB,2.1737E+02_JPRB,1.4502E+02_JPRB,7.5728E+01_JPRB,6.9377E+01_JPRB/)
+KBO( :, 5,42,15) = (/&
+&2.7725E+02_JPRB,2.7708E+02_JPRB,2.0800E+02_JPRB,1.3878E+02_JPRB,7.1813E+01_JPRB,7.0507E+01_JPRB/)
+KBO( :, 1,43,15) = (/&
+&3.3393E+02_JPRB,3.3373E+02_JPRB,2.5050E+02_JPRB,1.6709E+02_JPRB,9.1659E+01_JPRB,8.2181E+01_JPRB/)
+KBO( :, 2,43,15) = (/&
+&3.2087E+02_JPRB,3.2068E+02_JPRB,2.4071E+02_JPRB,1.6058E+02_JPRB,8.6435E+01_JPRB,7.7203E+01_JPRB/)
+KBO( :, 3,43,15) = (/&
+&3.0784E+02_JPRB,3.0766E+02_JPRB,2.3094E+02_JPRB,1.5407E+02_JPRB,8.1705E+01_JPRB,7.2734E+01_JPRB/)
+KBO( :, 4,43,15) = (/&
+&2.9498E+02_JPRB,2.9480E+02_JPRB,2.2130E+02_JPRB,1.4764E+02_JPRB,7.7383E+01_JPRB,7.1244E+01_JPRB/)
+KBO( :, 5,43,15) = (/&
+&2.8236E+02_JPRB,2.8219E+02_JPRB,2.1184E+02_JPRB,1.4134E+02_JPRB,7.3355E+01_JPRB,7.2525E+01_JPRB/)
+KBO( :, 1,44,15) = (/&
+&3.3993E+02_JPRB,3.3973E+02_JPRB,2.5500E+02_JPRB,1.7009E+02_JPRB,9.4079E+01_JPRB,8.4777E+01_JPRB/)
+KBO( :, 2,44,15) = (/&
+&3.2668E+02_JPRB,3.2648E+02_JPRB,2.4506E+02_JPRB,1.6347E+02_JPRB,8.8568E+01_JPRB,7.9722E+01_JPRB/)
+KBO( :, 3,44,15) = (/&
+&3.1350E+02_JPRB,3.1331E+02_JPRB,2.3519E+02_JPRB,1.5690E+02_JPRB,8.3629E+01_JPRB,7.5073E+01_JPRB/)
+KBO( :, 4,44,15) = (/&
+&3.0048E+02_JPRB,3.0030E+02_JPRB,2.2542E+02_JPRB,1.5039E+02_JPRB,7.9147E+01_JPRB,7.3210E+01_JPRB/)
+KBO( :, 5,44,15) = (/&
+&2.8768E+02_JPRB,2.8750E+02_JPRB,2.1582E+02_JPRB,1.4399E+02_JPRB,7.4989E+01_JPRB,7.4615E+01_JPRB/)
+KBO( :, 1,45,15) = (/&
+&3.4570E+02_JPRB,3.4549E+02_JPRB,2.5932E+02_JPRB,1.7296E+02_JPRB,9.6495E+01_JPRB,8.7516E+01_JPRB/)
+KBO( :, 2,45,15) = (/&
+&3.3235E+02_JPRB,3.3215E+02_JPRB,2.4931E+02_JPRB,1.6630E+02_JPRB,9.0736E+01_JPRB,8.2360E+01_JPRB/)
+KBO( :, 3,45,15) = (/&
+&3.1903E+02_JPRB,3.1884E+02_JPRB,2.3933E+02_JPRB,1.5965E+02_JPRB,8.5580E+01_JPRB,7.7592E+01_JPRB/)
+KBO( :, 4,45,15) = (/&
+&3.0583E+02_JPRB,3.0564E+02_JPRB,2.2943E+02_JPRB,1.5306E+02_JPRB,8.0904E+01_JPRB,7.5512E+01_JPRB/)
+KBO( :, 5,45,15) = (/&
+&2.9285E+02_JPRB,2.9267E+02_JPRB,2.1969E+02_JPRB,1.4657E+02_JPRB,7.6606E+01_JPRB,7.7136E+01_JPRB/)
+KBO( :, 1,46,15) = (/&
+&3.5162E+02_JPRB,3.5141E+02_JPRB,2.6376E+02_JPRB,1.7592E+02_JPRB,9.9116E+01_JPRB,9.0486E+01_JPRB/)
+KBO( :, 2,46,15) = (/&
+&3.3821E+02_JPRB,3.3800E+02_JPRB,2.5370E+02_JPRB,1.6922E+02_JPRB,9.3089E+01_JPRB,8.5193E+01_JPRB/)
+KBO( :, 3,46,15) = (/&
+&3.2475E+02_JPRB,3.2455E+02_JPRB,2.4361E+02_JPRB,1.6250E+02_JPRB,8.7670E+01_JPRB,8.0271E+01_JPRB/)
+KBO( :, 4,46,15) = (/&
+&3.1144E+02_JPRB,3.1126E+02_JPRB,2.3364E+02_JPRB,1.5586E+02_JPRB,8.2789E+01_JPRB,7.7967E+01_JPRB/)
+KBO( :, 5,46,15) = (/&
+&2.9826E+02_JPRB,2.9808E+02_JPRB,2.2376E+02_JPRB,1.4928E+02_JPRB,7.8339E+01_JPRB,7.9667E+01_JPRB/)
+KBO( :, 1,47,15) = (/&
+&3.5795E+02_JPRB,3.5773E+02_JPRB,2.6850E+02_JPRB,1.7907E+02_JPRB,1.0208E+02_JPRB,9.3825E+01_JPRB/)
+KBO( :, 2,47,15) = (/&
+&3.4453E+02_JPRB,3.4432E+02_JPRB,2.5844E+02_JPRB,1.7237E+02_JPRB,9.5731E+01_JPRB,8.8246E+01_JPRB/)
+KBO( :, 3,47,15) = (/&
+&3.3096E+02_JPRB,3.3076E+02_JPRB,2.4827E+02_JPRB,1.6560E+02_JPRB,9.0023E+01_JPRB,8.3072E+01_JPRB/)
+KBO( :, 4,47,15) = (/&
+&3.1751E+02_JPRB,3.1732E+02_JPRB,2.3819E+02_JPRB,1.5889E+02_JPRB,8.4913E+01_JPRB,8.0301E+01_JPRB/)
+KBO( :, 5,47,15) = (/&
+&3.0419E+02_JPRB,3.0401E+02_JPRB,2.2820E+02_JPRB,1.5224E+02_JPRB,8.0275E+01_JPRB,8.1585E+01_JPRB/)
+KBO( :, 1,48,15) = (/&
+&3.6405E+02_JPRB,3.6383E+02_JPRB,2.7307E+02_JPRB,1.8212E+02_JPRB,1.0516E+02_JPRB,9.7509E+01_JPRB/)
+KBO( :, 2,48,15) = (/&
+&3.5068E+02_JPRB,3.5047E+02_JPRB,2.6305E+02_JPRB,1.7544E+02_JPRB,9.8444E+01_JPRB,9.1443E+01_JPRB/)
+KBO( :, 3,48,15) = (/&
+&3.3709E+02_JPRB,3.3688E+02_JPRB,2.5286E+02_JPRB,1.6866E+02_JPRB,9.2465E+01_JPRB,8.6144E+01_JPRB/)
+KBO( :, 4,48,15) = (/&
+&3.2352E+02_JPRB,3.2332E+02_JPRB,2.4269E+02_JPRB,1.6188E+02_JPRB,8.7099E+01_JPRB,8.3145E+01_JPRB/)
+KBO( :, 5,48,15) = (/&
+&3.1006E+02_JPRB,3.0987E+02_JPRB,2.3260E+02_JPRB,1.5516E+02_JPRB,8.2249E+01_JPRB,8.4244E+01_JPRB/)
+KBO( :, 1,49,15) = (/&
+&3.7003E+02_JPRB,3.6981E+02_JPRB,2.7756E+02_JPRB,1.8510E+02_JPRB,1.0838E+02_JPRB,1.0148E+02_JPRB/)
+KBO( :, 2,49,15) = (/&
+&3.5675E+02_JPRB,3.5654E+02_JPRB,2.6761E+02_JPRB,1.7847E+02_JPRB,1.0127E+02_JPRB,9.4886E+01_JPRB/)
+KBO( :, 3,49,15) = (/&
+&3.4318E+02_JPRB,3.4298E+02_JPRB,2.5743E+02_JPRB,1.7170E+02_JPRB,9.5003E+01_JPRB,8.9591E+01_JPRB/)
+KBO( :, 4,49,15) = (/&
+&3.2947E+02_JPRB,3.2927E+02_JPRB,2.4715E+02_JPRB,1.6485E+02_JPRB,8.9342E+01_JPRB,8.6726E+01_JPRB/)
+KBO( :, 5,49,15) = (/&
+&3.1591E+02_JPRB,3.1572E+02_JPRB,2.3699E+02_JPRB,1.5809E+02_JPRB,8.4278E+01_JPRB,8.8051E+01_JPRB/)
+KBO( :, 1,50,15) = (/&
+&3.7556E+02_JPRB,3.7534E+02_JPRB,2.8170E+02_JPRB,1.8786E+02_JPRB,1.1154E+02_JPRB,1.0526E+02_JPRB/)
+KBO( :, 2,50,15) = (/&
+&3.6235E+02_JPRB,3.6213E+02_JPRB,2.7180E+02_JPRB,1.8127E+02_JPRB,1.0404E+02_JPRB,9.7933E+01_JPRB/)
+KBO( :, 3,50,15) = (/&
+&3.4884E+02_JPRB,3.4863E+02_JPRB,2.6167E+02_JPRB,1.7452E+02_JPRB,9.7449E+01_JPRB,9.2614E+01_JPRB/)
+KBO( :, 4,50,15) = (/&
+&3.3508E+02_JPRB,3.3488E+02_JPRB,2.5136E+02_JPRB,1.6766E+02_JPRB,9.1542E+01_JPRB,8.9470E+01_JPRB/)
+KBO( :, 5,50,15) = (/&
+&3.2141E+02_JPRB,3.2122E+02_JPRB,2.4111E+02_JPRB,1.6083E+02_JPRB,8.6254E+01_JPRB,9.0426E+01_JPRB/)
+KBO( :, 1,51,15) = (/&
+&3.8078E+02_JPRB,3.8056E+02_JPRB,2.8562E+02_JPRB,1.9055E+02_JPRB,1.1479E+02_JPRB,1.0898E+02_JPRB/)
+KBO( :, 2,51,15) = (/&
+&3.6766E+02_JPRB,3.6744E+02_JPRB,2.7578E+02_JPRB,1.8392E+02_JPRB,1.0684E+02_JPRB,1.0093E+02_JPRB/)
+KBO( :, 3,51,15) = (/&
+&3.5420E+02_JPRB,3.5398E+02_JPRB,2.6569E+02_JPRB,1.7719E+02_JPRB,9.9903E+01_JPRB,9.5407E+01_JPRB/)
+KBO( :, 4,51,15) = (/&
+&3.4048E+02_JPRB,3.4027E+02_JPRB,2.5540E+02_JPRB,1.7035E+02_JPRB,9.3766E+01_JPRB,9.1798E+01_JPRB/)
+KBO( :, 5,51,15) = (/&
+&3.2673E+02_JPRB,3.2653E+02_JPRB,2.4509E+02_JPRB,1.6348E+02_JPRB,8.8237E+01_JPRB,9.2138E+01_JPRB/)
+KBO( :, 1,52,15) = (/&
+&3.8584E+02_JPRB,3.8560E+02_JPRB,2.8941E+02_JPRB,1.9322E+02_JPRB,1.1816E+02_JPRB,1.1293E+02_JPRB/)
+KBO( :, 2,52,15) = (/&
+&3.7294E+02_JPRB,3.7271E+02_JPRB,2.7974E+02_JPRB,1.8654E+02_JPRB,1.0976E+02_JPRB,1.0425E+02_JPRB/)
+KBO( :, 3,52,15) = (/&
+&3.5951E+02_JPRB,3.5930E+02_JPRB,2.6967E+02_JPRB,1.7985E+02_JPRB,1.0246E+02_JPRB,9.8398E+01_JPRB/)
+KBO( :, 4,52,15) = (/&
+&3.4582E+02_JPRB,3.4561E+02_JPRB,2.5941E+02_JPRB,1.7301E+02_JPRB,9.6032E+01_JPRB,9.4572E+01_JPRB/)
+KBO( :, 5,52,15) = (/&
+&3.3204E+02_JPRB,3.3185E+02_JPRB,2.4908E+02_JPRB,1.6614E+02_JPRB,9.0266E+01_JPRB,9.4675E+01_JPRB/)
+KBO( :, 1,53,15) = (/&
+&3.9087E+02_JPRB,3.9063E+02_JPRB,2.9318E+02_JPRB,1.9599E+02_JPRB,1.2171E+02_JPRB,1.1718E+02_JPRB/)
+KBO( :, 2,53,15) = (/&
+&3.7802E+02_JPRB,3.7780E+02_JPRB,2.8355E+02_JPRB,1.8910E+02_JPRB,1.1281E+02_JPRB,1.0800E+02_JPRB/)
+KBO( :, 3,53,15) = (/&
+&3.6473E+02_JPRB,3.6451E+02_JPRB,2.7359E+02_JPRB,1.8245E+02_JPRB,1.0513E+02_JPRB,1.0177E+02_JPRB/)
+KBO( :, 4,53,15) = (/&
+&3.5112E+02_JPRB,3.5091E+02_JPRB,2.6338E+02_JPRB,1.7566E+02_JPRB,9.8387E+01_JPRB,9.7989E+01_JPRB/)
+KBO( :, 5,53,15) = (/&
+&3.3733E+02_JPRB,3.3713E+02_JPRB,2.5304E+02_JPRB,1.6878E+02_JPRB,9.2381E+01_JPRB,9.8180E+01_JPRB/)
+KBO( :, 1,54,15) = (/&
+&3.9531E+02_JPRB,3.9507E+02_JPRB,2.9651E+02_JPRB,1.9853E+02_JPRB,1.2515E+02_JPRB,1.2078E+02_JPRB/)
+KBO( :, 2,54,15) = (/&
+&3.8263E+02_JPRB,3.8240E+02_JPRB,2.8700E+02_JPRB,1.9150E+02_JPRB,1.1577E+02_JPRB,1.1118E+02_JPRB/)
+KBO( :, 3,54,15) = (/&
+&3.6948E+02_JPRB,3.6926E+02_JPRB,2.7715E+02_JPRB,1.8482E+02_JPRB,1.0769E+02_JPRB,1.0351E+02_JPRB/)
+KBO( :, 4,54,15) = (/&
+&3.5596E+02_JPRB,3.5575E+02_JPRB,2.6701E+02_JPRB,1.7807E+02_JPRB,1.0063E+02_JPRB,9.9143E+01_JPRB/)
+KBO( :, 5,54,15) = (/&
+&3.4214E+02_JPRB,3.4194E+02_JPRB,2.5665E+02_JPRB,1.7118E+02_JPRB,9.4395E+01_JPRB,9.8105E+01_JPRB/)
+KBO( :, 1,55,15) = (/&
+&3.9946E+02_JPRB,3.9922E+02_JPRB,2.9962E+02_JPRB,2.0102E+02_JPRB,1.2867E+02_JPRB,1.2425E+02_JPRB/)
+KBO( :, 2,55,15) = (/&
+&3.8700E+02_JPRB,3.8677E+02_JPRB,2.9028E+02_JPRB,1.9382E+02_JPRB,1.1872E+02_JPRB,1.1387E+02_JPRB/)
+KBO( :, 3,55,15) = (/&
+&3.7399E+02_JPRB,3.7376E+02_JPRB,2.8052E+02_JPRB,1.8707E+02_JPRB,1.1023E+02_JPRB,1.0518E+02_JPRB/)
+KBO( :, 4,55,15) = (/&
+&3.6056E+02_JPRB,3.6034E+02_JPRB,2.7046E+02_JPRB,1.8037E+02_JPRB,1.0287E+02_JPRB,9.9691E+01_JPRB/)
+KBO( :, 5,55,15) = (/&
+&3.4681E+02_JPRB,3.4660E+02_JPRB,2.6015E+02_JPRB,1.7350E+02_JPRB,9.6390E+01_JPRB,9.6621E+01_JPRB/)
+KBO( :, 1,56,15) = (/&
+&4.0345E+02_JPRB,4.0321E+02_JPRB,3.0261E+02_JPRB,2.0354E+02_JPRB,1.3232E+02_JPRB,1.2822E+02_JPRB/)
+KBO( :, 2,56,15) = (/&
+&3.9129E+02_JPRB,3.9105E+02_JPRB,2.9349E+02_JPRB,1.9619E+02_JPRB,1.2179E+02_JPRB,1.1677E+02_JPRB/)
+KBO( :, 3,56,15) = (/&
+&3.7839E+02_JPRB,3.7816E+02_JPRB,2.8382E+02_JPRB,1.8928E+02_JPRB,1.1288E+02_JPRB,1.0755E+02_JPRB/)
+KBO( :, 4,56,15) = (/&
+&3.6503E+02_JPRB,3.6481E+02_JPRB,2.7381E+02_JPRB,1.8260E+02_JPRB,1.0518E+02_JPRB,1.0056E+02_JPRB/)
+KBO( :, 5,56,15) = (/&
+&3.5139E+02_JPRB,3.5118E+02_JPRB,2.6358E+02_JPRB,1.7579E+02_JPRB,9.8426E+01_JPRB,9.5940E+01_JPRB/)
+KBO( :, 1,57,15) = (/&
+&4.0732E+02_JPRB,4.0708E+02_JPRB,3.0551E+02_JPRB,2.0612E+02_JPRB,1.3611E+02_JPRB,1.3253E+02_JPRB/)
+KBO( :, 2,57,15) = (/&
+&3.9551E+02_JPRB,3.9527E+02_JPRB,2.9666E+02_JPRB,1.9860E+02_JPRB,1.2505E+02_JPRB,1.2007E+02_JPRB/)
+KBO( :, 3,57,15) = (/&
+&3.8272E+02_JPRB,3.8249E+02_JPRB,2.8707E+02_JPRB,1.9154E+02_JPRB,1.1567E+02_JPRB,1.1005E+02_JPRB/)
+KBO( :, 4,57,15) = (/&
+&3.6944E+02_JPRB,3.6922E+02_JPRB,2.7712E+02_JPRB,1.8480E+02_JPRB,1.0758E+02_JPRB,1.0192E+02_JPRB/)
+KBO( :, 5,57,15) = (/&
+&3.5592E+02_JPRB,3.5571E+02_JPRB,2.6698E+02_JPRB,1.7805E+02_JPRB,1.0054E+02_JPRB,9.6453E+01_JPRB/)
+KBO( :, 1,58,15) = (/&
+&4.1059E+02_JPRB,4.1035E+02_JPRB,3.0796E+02_JPRB,2.0852E+02_JPRB,1.3980E+02_JPRB,1.3680E+02_JPRB/)
+KBO( :, 2,58,15) = (/&
+&3.9929E+02_JPRB,3.9905E+02_JPRB,2.9949E+02_JPRB,2.0087E+02_JPRB,1.2831E+02_JPRB,1.2369E+02_JPRB/)
+KBO( :, 3,58,15) = (/&
+&3.8677E+02_JPRB,3.8654E+02_JPRB,2.9010E+02_JPRB,1.9368E+02_JPRB,1.1842E+02_JPRB,1.1258E+02_JPRB/)
+KBO( :, 4,58,15) = (/&
+&3.7367E+02_JPRB,3.7345E+02_JPRB,2.8029E+02_JPRB,1.8691E+02_JPRB,1.0996E+02_JPRB,1.0363E+02_JPRB/)
+KBO( :, 5,58,15) = (/&
+&3.6017E+02_JPRB,3.5995E+02_JPRB,2.7016E+02_JPRB,1.8017E+02_JPRB,1.0261E+02_JPRB,9.7140E+01_JPRB/)
+KBO( :, 1,59,15) = (/&
+&4.1203E+02_JPRB,4.1178E+02_JPRB,3.0904E+02_JPRB,2.0958E+02_JPRB,1.4140E+02_JPRB,1.3865E+02_JPRB/)
+KBO( :, 2,59,15) = (/&
+&4.0086E+02_JPRB,4.0061E+02_JPRB,3.0066E+02_JPRB,2.0184E+02_JPRB,1.2968E+02_JPRB,1.2523E+02_JPRB/)
+KBO( :, 3,59,15) = (/&
+&3.8845E+02_JPRB,3.8822E+02_JPRB,2.9137E+02_JPRB,1.9459E+02_JPRB,1.1957E+02_JPRB,1.1363E+02_JPRB/)
+KBO( :, 4,59,15) = (/&
+&3.7538E+02_JPRB,3.7516E+02_JPRB,2.8157E+02_JPRB,1.8776E+02_JPRB,1.1095E+02_JPRB,1.0368E+02_JPRB/)
+KBO( :, 5,59,15) = (/&
+&3.6194E+02_JPRB,3.6172E+02_JPRB,2.7149E+02_JPRB,1.8106E+02_JPRB,1.0349E+02_JPRB,9.5485E+01_JPRB/)
+KBO( :, 1,13,16) = (/&
+&3.8689E+01_JPRB,3.8666E+01_JPRB,2.9260E+01_JPRB,2.0209E+01_JPRB,1.1782E+01_JPRB,1.0583E+01_JPRB/)
+KBO( :, 2,13,16) = (/&
+&3.8299E+01_JPRB,3.8276E+01_JPRB,2.8975E+01_JPRB,1.9748E+01_JPRB,1.1593E+01_JPRB,1.0462E+01_JPRB/)
+KBO( :, 3,13,16) = (/&
+&3.8145E+01_JPRB,3.8122E+01_JPRB,2.8865E+01_JPRB,1.9633E+01_JPRB,1.1641E+01_JPRB,1.2633E+01_JPRB/)
+KBO( :, 4,13,16) = (/&
+&3.7920E+01_JPRB,3.7898E+01_JPRB,2.8722E+01_JPRB,1.9787E+01_JPRB,1.1762E+01_JPRB,2.0692E+01_JPRB/)
+KBO( :, 5,13,16) = (/&
+&3.7770E+01_JPRB,3.7748E+01_JPRB,2.8670E+01_JPRB,1.9920E+01_JPRB,1.1827E+01_JPRB,3.1866E+01_JPRB/)
+KBO( :, 1,14,16) = (/&
+&4.5054E+01_JPRB,4.5027E+01_JPRB,3.4026E+01_JPRB,2.3071E+01_JPRB,1.3319E+01_JPRB,1.2073E+01_JPRB/)
+KBO( :, 2,14,16) = (/&
+&4.5133E+01_JPRB,4.5106E+01_JPRB,3.4091E+01_JPRB,2.3057E+01_JPRB,1.3364E+01_JPRB,1.1925E+01_JPRB/)
+KBO( :, 3,14,16) = (/&
+&4.5119E+01_JPRB,4.5092E+01_JPRB,3.4098E+01_JPRB,2.3216E+01_JPRB,1.3503E+01_JPRB,1.1702E+01_JPRB/)
+KBO( :, 4,14,16) = (/&
+&4.5115E+01_JPRB,4.5088E+01_JPRB,3.4119E+01_JPRB,2.3467E+01_JPRB,1.3637E+01_JPRB,1.5244E+01_JPRB/)
+KBO( :, 5,14,16) = (/&
+&4.5059E+01_JPRB,4.5033E+01_JPRB,3.4214E+01_JPRB,2.3627E+01_JPRB,1.3694E+01_JPRB,2.3098E+01_JPRB/)
+KBO( :, 1,15,16) = (/&
+&5.3422E+01_JPRB,5.3390E+01_JPRB,4.0289E+01_JPRB,2.7161E+01_JPRB,1.5356E+01_JPRB,1.3721E+01_JPRB/)
+KBO( :, 2,15,16) = (/&
+&5.3696E+01_JPRB,5.3664E+01_JPRB,4.0505E+01_JPRB,2.7340E+01_JPRB,1.5494E+01_JPRB,1.3518E+01_JPRB/)
+KBO( :, 3,15,16) = (/&
+&5.3925E+01_JPRB,5.3893E+01_JPRB,4.0694E+01_JPRB,2.7658E+01_JPRB,1.5638E+01_JPRB,1.3237E+01_JPRB/)
+KBO( :, 4,15,16) = (/&
+&5.4035E+01_JPRB,5.4003E+01_JPRB,4.0835E+01_JPRB,2.7959E+01_JPRB,1.5745E+01_JPRB,1.3582E+01_JPRB/)
+KBO( :, 5,15,16) = (/&
+&5.4075E+01_JPRB,5.4044E+01_JPRB,4.1021E+01_JPRB,2.8130E+01_JPRB,1.5788E+01_JPRB,1.7824E+01_JPRB/)
+KBO( :, 1,16,16) = (/&
+&6.3798E+01_JPRB,6.3761E+01_JPRB,4.8055E+01_JPRB,3.2321E+01_JPRB,1.7804E+01_JPRB,1.5476E+01_JPRB/)
+KBO( :, 2,16,16) = (/&
+&6.4371E+01_JPRB,6.4333E+01_JPRB,4.8500E+01_JPRB,3.2671E+01_JPRB,1.7962E+01_JPRB,1.5197E+01_JPRB/)
+KBO( :, 3,16,16) = (/&
+&6.4762E+01_JPRB,6.4724E+01_JPRB,4.8796E+01_JPRB,3.3069E+01_JPRB,1.8081E+01_JPRB,1.4836E+01_JPRB/)
+KBO( :, 4,16,16) = (/&
+&6.4916E+01_JPRB,6.4878E+01_JPRB,4.9055E+01_JPRB,3.3403E+01_JPRB,1.8207E+01_JPRB,1.4562E+01_JPRB/)
+KBO( :, 5,16,16) = (/&
+&6.5062E+01_JPRB,6.5024E+01_JPRB,4.9265E+01_JPRB,3.3568E+01_JPRB,1.8256E+01_JPRB,1.7370E+01_JPRB/)
+KBO( :, 1,17,16) = (/&
+&7.6610E+01_JPRB,7.6564E+01_JPRB,5.7652E+01_JPRB,3.8697E+01_JPRB,2.0672E+01_JPRB,1.7278E+01_JPRB/)
+KBO( :, 2,17,16) = (/&
+&7.7427E+01_JPRB,7.7381E+01_JPRB,5.8265E+01_JPRB,3.9185E+01_JPRB,2.0866E+01_JPRB,1.6909E+01_JPRB/)
+KBO( :, 3,17,16) = (/&
+&7.7882E+01_JPRB,7.7836E+01_JPRB,5.8659E+01_JPRB,3.9624E+01_JPRB,2.1079E+01_JPRB,1.6452E+01_JPRB/)
+KBO( :, 4,17,16) = (/&
+&7.8153E+01_JPRB,7.8107E+01_JPRB,5.8983E+01_JPRB,3.9939E+01_JPRB,2.1227E+01_JPRB,1.5935E+01_JPRB/)
+KBO( :, 5,17,16) = (/&
+&7.8285E+01_JPRB,7.8239E+01_JPRB,5.9159E+01_JPRB,4.0098E+01_JPRB,2.1284E+01_JPRB,1.7883E+01_JPRB/)
+KBO( :, 1,18,16) = (/&
+&9.2189E+01_JPRB,9.2134E+01_JPRB,6.9312E+01_JPRB,4.6439E+01_JPRB,2.4197E+01_JPRB,1.9120E+01_JPRB/)
+KBO( :, 2,18,16) = (/&
+&9.3127E+01_JPRB,9.3071E+01_JPRB,7.0021E+01_JPRB,4.7049E+01_JPRB,2.4478E+01_JPRB,1.8615E+01_JPRB/)
+KBO( :, 3,18,16) = (/&
+&9.3687E+01_JPRB,9.3631E+01_JPRB,7.0554E+01_JPRB,4.7512E+01_JPRB,2.4757E+01_JPRB,1.8049E+01_JPRB/)
+KBO( :, 4,18,16) = (/&
+&9.4033E+01_JPRB,9.3977E+01_JPRB,7.0871E+01_JPRB,4.7767E+01_JPRB,2.4905E+01_JPRB,1.7594E+01_JPRB/)
+KBO( :, 5,18,16) = (/&
+&9.4115E+01_JPRB,9.4059E+01_JPRB,7.0982E+01_JPRB,4.7909E+01_JPRB,2.4988E+01_JPRB,1.9077E+01_JPRB/)
+KBO( :, 1,19,16) = (/&
+&1.1088E+02_JPRB,1.1082E+02_JPRB,8.3307E+01_JPRB,5.5744E+01_JPRB,2.8599E+01_JPRB,2.1582E+01_JPRB/)
+KBO( :, 2,19,16) = (/&
+&1.1182E+02_JPRB,1.1175E+02_JPRB,8.4097E+01_JPRB,5.6442E+01_JPRB,2.8984E+01_JPRB,2.0983E+01_JPRB/)
+KBO( :, 3,19,16) = (/&
+&1.1254E+02_JPRB,1.1247E+02_JPRB,8.4694E+01_JPRB,5.6884E+01_JPRB,2.9231E+01_JPRB,2.0488E+01_JPRB/)
+KBO( :, 4,19,16) = (/&
+&1.1281E+02_JPRB,1.1274E+02_JPRB,8.4918E+01_JPRB,5.7062E+01_JPRB,2.9345E+01_JPRB,2.0019E+01_JPRB/)
+KBO( :, 5,19,16) = (/&
+&1.1284E+02_JPRB,1.1277E+02_JPRB,8.4969E+01_JPRB,5.7133E+01_JPRB,2.9423E+01_JPRB,2.0552E+01_JPRB/)
+KBO( :, 1,20,16) = (/&
+&1.3304E+02_JPRB,1.3296E+02_JPRB,9.9902E+01_JPRB,6.6832E+01_JPRB,3.3983E+01_JPRB,2.4788E+01_JPRB/)
+KBO( :, 2,20,16) = (/&
+&1.3397E+02_JPRB,1.3389E+02_JPRB,1.0072E+02_JPRB,6.7494E+01_JPRB,3.4377E+01_JPRB,2.4125E+01_JPRB/)
+KBO( :, 3,20,16) = (/&
+&1.3463E+02_JPRB,1.3455E+02_JPRB,1.0123E+02_JPRB,6.7864E+01_JPRB,3.4571E+01_JPRB,2.3603E+01_JPRB/)
+KBO( :, 4,20,16) = (/&
+&1.3476E+02_JPRB,1.3468E+02_JPRB,1.0135E+02_JPRB,6.7962E+01_JPRB,3.4649E+01_JPRB,2.3098E+01_JPRB/)
+KBO( :, 5,20,16) = (/&
+&1.3461E+02_JPRB,1.3453E+02_JPRB,1.0126E+02_JPRB,6.7912E+01_JPRB,3.4631E+01_JPRB,2.3014E+01_JPRB/)
+KBO( :, 1,21,16) = (/&
+&1.5902E+02_JPRB,1.5892E+02_JPRB,1.1942E+02_JPRB,7.9855E+01_JPRB,4.0380E+01_JPRB,2.8857E+01_JPRB/)
+KBO( :, 2,21,16) = (/&
+&1.5986E+02_JPRB,1.5976E+02_JPRB,1.2010E+02_JPRB,8.0360E+01_JPRB,4.0679E+01_JPRB,2.8064E+01_JPRB/)
+KBO( :, 3,21,16) = (/&
+&1.6009E+02_JPRB,1.5999E+02_JPRB,1.2030E+02_JPRB,8.0530E+01_JPRB,4.0801E+01_JPRB,2.7409E+01_JPRB/)
+KBO( :, 4,21,16) = (/&
+&1.6003E+02_JPRB,1.5993E+02_JPRB,1.2027E+02_JPRB,8.0522E+01_JPRB,4.0812E+01_JPRB,2.6783E+01_JPRB/)
+KBO( :, 5,21,16) = (/&
+&1.5940E+02_JPRB,1.5931E+02_JPRB,1.1980E+02_JPRB,8.0213E+01_JPRB,4.0653E+01_JPRB,2.6207E+01_JPRB/)
+KBO( :, 1,22,16) = (/&
+&1.8914E+02_JPRB,1.8903E+02_JPRB,1.4202E+02_JPRB,9.4911E+01_JPRB,4.7837E+01_JPRB,3.3682E+01_JPRB/)
+KBO( :, 2,22,16) = (/&
+&1.8942E+02_JPRB,1.8931E+02_JPRB,1.4225E+02_JPRB,9.5082E+01_JPRB,4.7944E+01_JPRB,3.2660E+01_JPRB/)
+KBO( :, 3,22,16) = (/&
+&1.8906E+02_JPRB,1.8895E+02_JPRB,1.4200E+02_JPRB,9.4945E+01_JPRB,4.7916E+01_JPRB,3.1774E+01_JPRB/)
+KBO( :, 4,22,16) = (/&
+&1.8832E+02_JPRB,1.8821E+02_JPRB,1.4146E+02_JPRB,9.4597E+01_JPRB,4.7752E+01_JPRB,3.0917E+01_JPRB/)
+KBO( :, 5,22,16) = (/&
+&1.8683E+02_JPRB,1.8672E+02_JPRB,1.4034E+02_JPRB,9.3850E+01_JPRB,4.7374E+01_JPRB,3.0042E+01_JPRB/)
+KBO( :, 1,23,16) = (/&
+&2.2303E+02_JPRB,2.2290E+02_JPRB,1.6742E+02_JPRB,1.1182E+02_JPRB,5.6236E+01_JPRB,3.9223E+01_JPRB/)
+KBO( :, 2,23,16) = (/&
+&2.2245E+02_JPRB,2.2232E+02_JPRB,1.6700E+02_JPRB,1.1156E+02_JPRB,5.6122E+01_JPRB,3.7879E+01_JPRB/)
+KBO( :, 3,23,16) = (/&
+&2.2122E+02_JPRB,2.2109E+02_JPRB,1.6608E+02_JPRB,1.1095E+02_JPRB,5.5829E+01_JPRB,3.6659E+01_JPRB/)
+KBO( :, 4,23,16) = (/&
+&2.1922E+02_JPRB,2.1909E+02_JPRB,1.6458E+02_JPRB,1.0995E+02_JPRB,5.5344E+01_JPRB,3.5458E+01_JPRB/)
+KBO( :, 5,23,16) = (/&
+&2.1646E+02_JPRB,2.1633E+02_JPRB,1.6251E+02_JPRB,1.0858E+02_JPRB,5.4654E+01_JPRB,3.4278E+01_JPRB/)
+KBO( :, 1,24,16) = (/&
+&2.6009E+02_JPRB,2.5994E+02_JPRB,1.9520E+02_JPRB,1.3031E+02_JPRB,6.5430E+01_JPRB,4.5390E+01_JPRB/)
+KBO( :, 2,24,16) = (/&
+&2.5840E+02_JPRB,2.5824E+02_JPRB,1.9393E+02_JPRB,1.2948E+02_JPRB,6.5031E+01_JPRB,4.3599E+01_JPRB/)
+KBO( :, 3,24,16) = (/&
+&2.5582E+02_JPRB,2.5567E+02_JPRB,1.9201E+02_JPRB,1.2820E+02_JPRB,6.4398E+01_JPRB,4.1930E+01_JPRB/)
+KBO( :, 4,24,16) = (/&
+&2.5214E+02_JPRB,2.5199E+02_JPRB,1.8925E+02_JPRB,1.2636E+02_JPRB,6.3477E+01_JPRB,4.0299E+01_JPRB/)
+KBO( :, 5,24,16) = (/&
+&2.4775E+02_JPRB,2.4761E+02_JPRB,1.8596E+02_JPRB,1.2416E+02_JPRB,6.2364E+01_JPRB,3.8770E+01_JPRB/)
+KBO( :, 1,25,16) = (/&
+&2.9961E+02_JPRB,2.9943E+02_JPRB,2.2482E+02_JPRB,1.5004E+02_JPRB,7.5282E+01_JPRB,5.1967E+01_JPRB/)
+KBO( :, 2,25,16) = (/&
+&2.9633E+02_JPRB,2.9616E+02_JPRB,2.2237E+02_JPRB,1.4840E+02_JPRB,7.4441E+01_JPRB,4.9689E+01_JPRB/)
+KBO( :, 3,25,16) = (/&
+&2.9175E+02_JPRB,2.9157E+02_JPRB,2.1893E+02_JPRB,1.4611E+02_JPRB,7.3302E+01_JPRB,4.7422E+01_JPRB/)
+KBO( :, 4,25,16) = (/&
+&2.8609E+02_JPRB,2.8592E+02_JPRB,2.1467E+02_JPRB,1.4326E+02_JPRB,7.1858E+01_JPRB,4.5354E+01_JPRB/)
+KBO( :, 5,25,16) = (/&
+&2.7979E+02_JPRB,2.7962E+02_JPRB,2.0995E+02_JPRB,1.4011E+02_JPRB,7.0273E+01_JPRB,4.3371E+01_JPRB/)
+KBO( :, 1,26,16) = (/&
+&3.4064E+02_JPRB,3.4044E+02_JPRB,2.5559E+02_JPRB,1.7054E+02_JPRB,8.5509E+01_JPRB,5.8664E+01_JPRB/)
+KBO( :, 2,26,16) = (/&
+&3.3479E+02_JPRB,3.3459E+02_JPRB,2.5118E+02_JPRB,1.6758E+02_JPRB,8.3998E+01_JPRB,5.5796E+01_JPRB/)
+KBO( :, 3,26,16) = (/&
+&3.2781E+02_JPRB,3.2761E+02_JPRB,2.4595E+02_JPRB,1.6410E+02_JPRB,8.2241E+01_JPRB,5.2997E+01_JPRB/)
+KBO( :, 4,26,16) = (/&
+&3.1991E+02_JPRB,3.1971E+02_JPRB,2.4002E+02_JPRB,1.6013E+02_JPRB,8.0246E+01_JPRB,5.0365E+01_JPRB/)
+KBO( :, 5,26,16) = (/&
+&3.1125E+02_JPRB,3.1106E+02_JPRB,2.3353E+02_JPRB,1.5580E+02_JPRB,7.8078E+01_JPRB,4.7882E+01_JPRB/)
+KBO( :, 1,27,16) = (/&
+&3.8151E+02_JPRB,3.8128E+02_JPRB,2.8624E+02_JPRB,1.9097E+02_JPRB,9.5695E+01_JPRB,6.5294E+01_JPRB/)
+KBO( :, 2,27,16) = (/&
+&3.7246E+02_JPRB,3.7224E+02_JPRB,2.7942E+02_JPRB,1.8640E+02_JPRB,9.3380E+01_JPRB,6.1731E+01_JPRB/)
+KBO( :, 3,27,16) = (/&
+&3.6293E+02_JPRB,3.6271E+02_JPRB,2.7227E+02_JPRB,1.8161E+02_JPRB,9.0959E+01_JPRB,5.8403E+01_JPRB/)
+KBO( :, 4,27,16) = (/&
+&3.5247E+02_JPRB,3.5226E+02_JPRB,2.6442E+02_JPRB,1.7637E+02_JPRB,8.8327E+01_JPRB,5.5221E+01_JPRB/)
+KBO( :, 5,27,16) = (/&
+&3.4112E+02_JPRB,3.4092E+02_JPRB,2.5591E+02_JPRB,1.7070E+02_JPRB,8.5490E+01_JPRB,5.2167E+01_JPRB/)
+KBO( :, 1,28,16) = (/&
+&4.2083E+02_JPRB,4.2057E+02_JPRB,3.1571E+02_JPRB,2.1058E+02_JPRB,1.0546E+02_JPRB,7.1596E+01_JPRB/)
+KBO( :, 2,28,16) = (/&
+&4.0846E+02_JPRB,4.0821E+02_JPRB,3.0641E+02_JPRB,2.0435E+02_JPRB,1.0232E+02_JPRB,6.7371E+01_JPRB/)
+KBO( :, 3,28,16) = (/&
+&3.9603E+02_JPRB,3.9579E+02_JPRB,2.9708E+02_JPRB,1.9813E+02_JPRB,9.9186E+01_JPRB,6.3413E+01_JPRB/)
+KBO( :, 4,28,16) = (/&
+&3.8255E+02_JPRB,3.8232E+02_JPRB,2.8697E+02_JPRB,1.9139E+02_JPRB,9.5812E+01_JPRB,5.9684E+01_JPRB/)
+KBO( :, 5,28,16) = (/&
+&3.6876E+02_JPRB,3.6854E+02_JPRB,2.7662E+02_JPRB,1.8449E+02_JPRB,9.2357E+01_JPRB,5.6128E+01_JPRB/)
+KBO( :, 1,29,16) = (/&
+&4.5696E+02_JPRB,4.5668E+02_JPRB,3.4279E+02_JPRB,2.2863E+02_JPRB,1.1447E+02_JPRB,7.7353E+01_JPRB/)
+KBO( :, 2,29,16) = (/&
+&4.4141E+02_JPRB,4.4115E+02_JPRB,3.3112E+02_JPRB,2.2083E+02_JPRB,1.1054E+02_JPRB,7.2448E+01_JPRB/)
+KBO( :, 3,29,16) = (/&
+&4.2589E+02_JPRB,4.2564E+02_JPRB,3.1947E+02_JPRB,2.1304E+02_JPRB,1.0662E+02_JPRB,6.7886E+01_JPRB/)
+KBO( :, 4,29,16) = (/&
+&4.0969E+02_JPRB,4.0945E+02_JPRB,3.0731E+02_JPRB,2.0494E+02_JPRB,1.0256E+02_JPRB,6.3607E+01_JPRB/)
+KBO( :, 5,29,16) = (/&
+&3.9310E+02_JPRB,3.9286E+02_JPRB,2.9486E+02_JPRB,1.9663E+02_JPRB,9.8402E+01_JPRB,5.9577E+01_JPRB/)
+KBO( :, 1,30,16) = (/&
+&4.8959E+02_JPRB,4.8930E+02_JPRB,3.6726E+02_JPRB,2.4492E+02_JPRB,1.2259E+02_JPRB,8.2395E+01_JPRB/)
+KBO( :, 2,30,16) = (/&
+&4.7092E+02_JPRB,4.7063E+02_JPRB,3.5324E+02_JPRB,2.3556E+02_JPRB,1.1788E+02_JPRB,7.6844E+01_JPRB/)
+KBO( :, 3,30,16) = (/&
+&4.5203E+02_JPRB,4.5176E+02_JPRB,3.3907E+02_JPRB,2.2611E+02_JPRB,1.1315E+02_JPRB,7.1734E+01_JPRB/)
+KBO( :, 4,30,16) = (/&
+&4.3310E+02_JPRB,4.3284E+02_JPRB,3.2486E+02_JPRB,2.1662E+02_JPRB,1.0839E+02_JPRB,6.6928E+01_JPRB/)
+KBO( :, 5,30,16) = (/&
+&4.1412E+02_JPRB,4.1387E+02_JPRB,3.1062E+02_JPRB,2.0713E+02_JPRB,1.0363E+02_JPRB,6.3289E+01_JPRB/)
+KBO( :, 1,31,16) = (/&
+&5.1786E+02_JPRB,5.1755E+02_JPRB,3.8845E+02_JPRB,2.5903E+02_JPRB,1.2962E+02_JPRB,8.6621E+01_JPRB/)
+KBO( :, 2,31,16) = (/&
+&4.9597E+02_JPRB,4.9567E+02_JPRB,3.7202E+02_JPRB,2.4806E+02_JPRB,1.2412E+02_JPRB,8.0470E+01_JPRB/)
+KBO( :, 3,31,16) = (/&
+&4.7405E+02_JPRB,4.7377E+02_JPRB,3.5558E+02_JPRB,2.3710E+02_JPRB,1.1862E+02_JPRB,7.4852E+01_JPRB/)
+KBO( :, 4,31,16) = (/&
+&4.5255E+02_JPRB,4.5228E+02_JPRB,3.3944E+02_JPRB,2.2633E+02_JPRB,1.1323E+02_JPRB,6.9726E+01_JPRB/)
+KBO( :, 5,31,16) = (/&
+&4.3142E+02_JPRB,4.3116E+02_JPRB,3.2359E+02_JPRB,2.1576E+02_JPRB,1.0794E+02_JPRB,6.8706E+01_JPRB/)
+KBO( :, 1,32,16) = (/&
+&5.4131E+02_JPRB,5.4099E+02_JPRB,4.0602E+02_JPRB,2.7073E+02_JPRB,1.3545E+02_JPRB,8.9958E+01_JPRB/)
+KBO( :, 2,32,16) = (/&
+&5.1653E+02_JPRB,5.1622E+02_JPRB,3.8743E+02_JPRB,2.5834E+02_JPRB,1.2924E+02_JPRB,8.3331E+01_JPRB/)
+KBO( :, 3,32,16) = (/&
+&4.9189E+02_JPRB,4.9160E+02_JPRB,3.6895E+02_JPRB,2.4600E+02_JPRB,1.2306E+02_JPRB,7.7256E+01_JPRB/)
+KBO( :, 4,32,16) = (/&
+&4.6812E+02_JPRB,4.6784E+02_JPRB,3.5111E+02_JPRB,2.3411E+02_JPRB,1.1710E+02_JPRB,7.4368E+01_JPRB/)
+KBO( :, 5,32,16) = (/&
+&4.4507E+02_JPRB,4.4480E+02_JPRB,3.3382E+02_JPRB,2.2258E+02_JPRB,1.1133E+02_JPRB,7.6072E+01_JPRB/)
+KBO( :, 1,33,16) = (/&
+&5.6013E+02_JPRB,5.5980E+02_JPRB,4.2013E+02_JPRB,2.8013E+02_JPRB,1.4013E+02_JPRB,9.2452E+01_JPRB/)
+KBO( :, 2,33,16) = (/&
+&5.3265E+02_JPRB,5.3233E+02_JPRB,3.9951E+02_JPRB,2.6638E+02_JPRB,1.3325E+02_JPRB,8.5421E+01_JPRB/)
+KBO( :, 3,33,16) = (/&
+&5.0565E+02_JPRB,5.0535E+02_JPRB,3.7926E+02_JPRB,2.5287E+02_JPRB,1.2648E+02_JPRB,8.0582E+01_JPRB/)
+KBO( :, 4,33,16) = (/&
+&4.8012E+02_JPRB,4.7983E+02_JPRB,3.6011E+02_JPRB,2.4010E+02_JPRB,1.2009E+02_JPRB,8.1630E+01_JPRB/)
+KBO( :, 5,33,16) = (/&
+&4.5545E+02_JPRB,4.5518E+02_JPRB,3.4161E+02_JPRB,2.2776E+02_JPRB,1.1392E+02_JPRB,8.6476E+01_JPRB/)
+KBO( :, 1,34,16) = (/&
+&5.7564E+02_JPRB,5.7530E+02_JPRB,4.3176E+02_JPRB,2.8787E+02_JPRB,1.4399E+02_JPRB,9.4439E+01_JPRB/)
+KBO( :, 2,34,16) = (/&
+&5.4576E+02_JPRB,5.4543E+02_JPRB,4.0934E+02_JPRB,2.7293E+02_JPRB,1.3651E+02_JPRB,8.7181E+01_JPRB/)
+KBO( :, 3,34,16) = (/&
+&5.1688E+02_JPRB,5.1657E+02_JPRB,3.8768E+02_JPRB,2.5848E+02_JPRB,1.2927E+02_JPRB,8.6122E+01_JPRB/)
+KBO( :, 4,34,16) = (/&
+&4.8984E+02_JPRB,4.8955E+02_JPRB,3.6740E+02_JPRB,2.4495E+02_JPRB,1.2251E+02_JPRB,9.0125E+01_JPRB/)
+KBO( :, 5,34,16) = (/&
+&4.6368E+02_JPRB,4.6340E+02_JPRB,3.4777E+02_JPRB,2.3187E+02_JPRB,1.1596E+02_JPRB,9.7964E+01_JPRB/)
+KBO( :, 1,35,16) = (/&
+&5.9022E+02_JPRB,5.8986E+02_JPRB,4.4268E+02_JPRB,2.9515E+02_JPRB,1.4762E+02_JPRB,9.6547E+01_JPRB/)
+KBO( :, 2,35,16) = (/&
+&5.5830E+02_JPRB,5.5796E+02_JPRB,4.1874E+02_JPRB,2.7919E+02_JPRB,1.3963E+02_JPRB,9.1112E+01_JPRB/)
+KBO( :, 3,35,16) = (/&
+&5.2772E+02_JPRB,5.2741E+02_JPRB,3.9581E+02_JPRB,2.6389E+02_JPRB,1.3198E+02_JPRB,9.3202E+01_JPRB/)
+KBO( :, 4,35,16) = (/&
+&4.9925E+02_JPRB,4.9895E+02_JPRB,3.7445E+02_JPRB,2.4965E+02_JPRB,1.2485E+02_JPRB,1.0012E+02_JPRB/)
+KBO( :, 5,35,16) = (/&
+&4.7190E+02_JPRB,4.7162E+02_JPRB,3.5394E+02_JPRB,2.3598E+02_JPRB,1.1801E+02_JPRB,1.1144E+02_JPRB/)
+KBO( :, 1,36,16) = (/&
+&6.0541E+02_JPRB,6.0504E+02_JPRB,4.5407E+02_JPRB,3.0274E+02_JPRB,1.5140E+02_JPRB,9.9056E+01_JPRB/)
+KBO( :, 2,36,16) = (/&
+&5.7172E+02_JPRB,5.7138E+02_JPRB,4.2880E+02_JPRB,2.8589E+02_JPRB,1.4298E+02_JPRB,9.6302E+01_JPRB/)
+KBO( :, 3,36,16) = (/&
+&5.3964E+02_JPRB,5.3931E+02_JPRB,4.0474E+02_JPRB,2.6984E+02_JPRB,1.3495E+02_JPRB,1.0085E+02_JPRB/)
+KBO( :, 4,36,16) = (/&
+&5.0967E+02_JPRB,5.0936E+02_JPRB,3.8226E+02_JPRB,2.5485E+02_JPRB,1.2745E+02_JPRB,1.1048E+02_JPRB/)
+KBO( :, 5,36,16) = (/&
+&4.8120E+02_JPRB,4.8091E+02_JPRB,3.6091E+02_JPRB,2.4062E+02_JPRB,1.2033E+02_JPRB,1.2766E+02_JPRB/)
+KBO( :, 1,37,16) = (/&
+&6.2365E+02_JPRB,6.2328E+02_JPRB,4.6775E+02_JPRB,3.1185E+02_JPRB,1.5596E+02_JPRB,1.0253E+02_JPRB/)
+KBO( :, 2,37,16) = (/&
+&5.8812E+02_JPRB,5.8777E+02_JPRB,4.4110E+02_JPRB,2.9409E+02_JPRB,1.4707E+02_JPRB,1.0086E+02_JPRB/)
+KBO( :, 3,37,16) = (/&
+&5.5432E+02_JPRB,5.5398E+02_JPRB,4.1575E+02_JPRB,2.7718E+02_JPRB,1.3861E+02_JPRB,1.0660E+02_JPRB/)
+KBO( :, 4,37,16) = (/&
+&5.2295E+02_JPRB,5.2264E+02_JPRB,3.9222E+02_JPRB,2.6149E+02_JPRB,1.3076E+02_JPRB,1.1783E+02_JPRB/)
+KBO( :, 5,37,16) = (/&
+&4.9325E+02_JPRB,4.9295E+02_JPRB,3.6994E+02_JPRB,2.4664E+02_JPRB,1.2334E+02_JPRB,1.3920E+02_JPRB/)
+KBO( :, 1,38,16) = (/&
+&6.4066E+02_JPRB,6.4028E+02_JPRB,4.8051E+02_JPRB,3.2036E+02_JPRB,1.6020E+02_JPRB,1.0610E+02_JPRB/)
+KBO( :, 2,38,16) = (/&
+&6.0334E+02_JPRB,6.0298E+02_JPRB,4.5252E+02_JPRB,3.0169E+02_JPRB,1.5087E+02_JPRB,1.0585E+02_JPRB/)
+KBO( :, 3,38,16) = (/&
+&5.6803E+02_JPRB,5.6769E+02_JPRB,4.2603E+02_JPRB,2.8403E+02_JPRB,1.4204E+02_JPRB,1.1325E+02_JPRB/)
+KBO( :, 4,38,16) = (/&
+&5.3536E+02_JPRB,5.3504E+02_JPRB,4.0152E+02_JPRB,2.6769E+02_JPRB,1.3386E+02_JPRB,1.2673E+02_JPRB/)
+KBO( :, 5,38,16) = (/&
+&5.0450E+02_JPRB,5.0419E+02_JPRB,3.7838E+02_JPRB,2.5226E+02_JPRB,1.2614E+02_JPRB,1.5384E+02_JPRB/)
+KBO( :, 1,39,16) = (/&
+&6.5607E+02_JPRB,6.5567E+02_JPRB,4.9206E+02_JPRB,3.2805E+02_JPRB,1.6405E+02_JPRB,1.1010E+02_JPRB/)
+KBO( :, 2,39,16) = (/&
+&6.1741E+02_JPRB,6.1704E+02_JPRB,4.6306E+02_JPRB,3.0872E+02_JPRB,1.5438E+02_JPRB,1.1190E+02_JPRB/)
+KBO( :, 3,39,16) = (/&
+&5.8064E+02_JPRB,5.8030E+02_JPRB,4.3549E+02_JPRB,2.9034E+02_JPRB,1.4519E+02_JPRB,1.2173E+02_JPRB/)
+KBO( :, 4,39,16) = (/&
+&5.4667E+02_JPRB,5.4634E+02_JPRB,4.1001E+02_JPRB,2.7335E+02_JPRB,1.3668E+02_JPRB,1.3901E+02_JPRB/)
+KBO( :, 5,39,16) = (/&
+&5.1480E+02_JPRB,5.1449E+02_JPRB,3.8610E+02_JPRB,2.5741E+02_JPRB,1.2872E+02_JPRB,1.7411E+02_JPRB/)
+KBO( :, 1,40,16) = (/&
+&6.7476E+02_JPRB,6.7436E+02_JPRB,5.0608E+02_JPRB,3.3740E+02_JPRB,1.6871E+02_JPRB,1.1362E+02_JPRB/)
+KBO( :, 2,40,16) = (/&
+&6.3434E+02_JPRB,6.3396E+02_JPRB,4.7576E+02_JPRB,3.1718E+02_JPRB,1.5861E+02_JPRB,1.1463E+02_JPRB/)
+KBO( :, 3,40,16) = (/&
+&5.9602E+02_JPRB,5.9566E+02_JPRB,4.4702E+02_JPRB,2.9802E+02_JPRB,1.4902E+02_JPRB,1.2450E+02_JPRB/)
+KBO( :, 4,40,16) = (/&
+&5.6052E+02_JPRB,5.6019E+02_JPRB,4.2040E+02_JPRB,2.8027E+02_JPRB,1.4015E+02_JPRB,1.4231E+02_JPRB/)
+KBO( :, 5,40,16) = (/&
+&5.2757E+02_JPRB,5.2726E+02_JPRB,3.9569E+02_JPRB,2.6380E+02_JPRB,1.3191E+02_JPRB,1.7853E+02_JPRB/)
+KBO( :, 1,41,16) = (/&
+&6.9313E+02_JPRB,6.9271E+02_JPRB,5.1985E+02_JPRB,3.4658E+02_JPRB,1.7330E+02_JPRB,1.1720E+02_JPRB/)
+KBO( :, 2,41,16) = (/&
+&6.5096E+02_JPRB,6.5057E+02_JPRB,4.8822E+02_JPRB,3.2549E+02_JPRB,1.6276E+02_JPRB,1.1702E+02_JPRB/)
+KBO( :, 3,41,16) = (/&
+&6.1137E+02_JPRB,6.1101E+02_JPRB,4.5853E+02_JPRB,3.0570E+02_JPRB,1.5286E+02_JPRB,1.2672E+02_JPRB/)
+KBO( :, 4,41,16) = (/&
+&5.7432E+02_JPRB,5.7398E+02_JPRB,4.3074E+02_JPRB,2.8717E+02_JPRB,1.4359E+02_JPRB,1.4478E+02_JPRB/)
+KBO( :, 5,41,16) = (/&
+&5.4017E+02_JPRB,5.3985E+02_JPRB,4.0513E+02_JPRB,2.7009E+02_JPRB,1.3505E+02_JPRB,1.8129E+02_JPRB/)
+KBO( :, 1,42,16) = (/&
+&7.1087E+02_JPRB,7.1044E+02_JPRB,5.3316E+02_JPRB,3.5544E+02_JPRB,1.7773E+02_JPRB,1.2104E+02_JPRB/)
+KBO( :, 2,42,16) = (/&
+&6.6722E+02_JPRB,6.6682E+02_JPRB,5.0042E+02_JPRB,3.3362E+02_JPRB,1.6682E+02_JPRB,1.1969E+02_JPRB/)
+KBO( :, 3,42,16) = (/&
+&6.2628E+02_JPRB,6.2590E+02_JPRB,4.6971E+02_JPRB,3.1315E+02_JPRB,1.5658E+02_JPRB,1.2937E+02_JPRB/)
+KBO( :, 4,42,16) = (/&
+&5.8799E+02_JPRB,5.8763E+02_JPRB,4.4099E+02_JPRB,2.9400E+02_JPRB,1.4701E+02_JPRB,1.4803E+02_JPRB/)
+KBO( :, 5,42,16) = (/&
+&5.5259E+02_JPRB,5.5226E+02_JPRB,4.1445E+02_JPRB,2.7630E+02_JPRB,1.3816E+02_JPRB,1.8567E+02_JPRB/)
+KBO( :, 1,43,16) = (/&
+&7.3062E+02_JPRB,7.3018E+02_JPRB,5.4797E+02_JPRB,3.6532E+02_JPRB,1.8267E+02_JPRB,1.2580E+02_JPRB/)
+KBO( :, 2,43,16) = (/&
+&6.8544E+02_JPRB,6.8503E+02_JPRB,5.1409E+02_JPRB,3.4273E+02_JPRB,1.7137E+02_JPRB,1.2199E+02_JPRB/)
+KBO( :, 3,43,16) = (/&
+&6.4317E+02_JPRB,6.4278E+02_JPRB,4.8238E+02_JPRB,3.2159E+02_JPRB,1.6080E+02_JPRB,1.3097E+02_JPRB/)
+KBO( :, 4,43,16) = (/&
+&6.0333E+02_JPRB,6.0297E+02_JPRB,4.5250E+02_JPRB,3.0167E+02_JPRB,1.5084E+02_JPRB,1.4959E+02_JPRB/)
+KBO( :, 5,43,16) = (/&
+&5.6660E+02_JPRB,5.6626E+02_JPRB,4.2495E+02_JPRB,2.8331E+02_JPRB,1.4166E+02_JPRB,1.8670E+02_JPRB/)
+KBO( :, 1,44,16) = (/&
+&7.5137E+02_JPRB,7.5091E+02_JPRB,5.6353E+02_JPRB,3.7569E+02_JPRB,1.8785E+02_JPRB,1.3103E+02_JPRB/)
+KBO( :, 2,44,16) = (/&
+&7.0468E+02_JPRB,7.0426E+02_JPRB,5.2852E+02_JPRB,3.5235E+02_JPRB,1.7618E+02_JPRB,1.2458E+02_JPRB/)
+KBO( :, 3,44,16) = (/&
+&6.6086E+02_JPRB,6.6046E+02_JPRB,4.9565E+02_JPRB,3.3044E+02_JPRB,1.6522E+02_JPRB,1.3258E+02_JPRB/)
+KBO( :, 4,44,16) = (/&
+&6.1971E+02_JPRB,6.1934E+02_JPRB,4.6479E+02_JPRB,3.0986E+02_JPRB,1.5494E+02_JPRB,1.5142E+02_JPRB/)
+KBO( :, 5,44,16) = (/&
+&5.8152E+02_JPRB,5.8117E+02_JPRB,4.3614E+02_JPRB,2.9077E+02_JPRB,1.4539E+02_JPRB,1.8803E+02_JPRB/)
+KBO( :, 1,45,16) = (/&
+&7.7242E+02_JPRB,7.7196E+02_JPRB,5.7932E+02_JPRB,3.8622E+02_JPRB,1.9312E+02_JPRB,1.3645E+02_JPRB/)
+KBO( :, 2,45,16) = (/&
+&7.2383E+02_JPRB,7.2339E+02_JPRB,5.4287E+02_JPRB,3.6192E+02_JPRB,1.8097E+02_JPRB,1.2782E+02_JPRB/)
+KBO( :, 3,45,16) = (/&
+&6.7845E+02_JPRB,6.7804E+02_JPRB,5.0884E+02_JPRB,3.3923E+02_JPRB,1.6962E+02_JPRB,1.3514E+02_JPRB/)
+KBO( :, 4,45,16) = (/&
+&6.3619E+02_JPRB,6.3581E+02_JPRB,4.7715E+02_JPRB,3.1810E+02_JPRB,1.5906E+02_JPRB,1.5528E+02_JPRB/)
+KBO( :, 5,45,16) = (/&
+&5.9654E+02_JPRB,5.9618E+02_JPRB,4.4741E+02_JPRB,2.9827E+02_JPRB,1.4914E+02_JPRB,1.9320E+02_JPRB/)
+KBO( :, 1,46,16) = (/&
+&7.9501E+02_JPRB,7.9453E+02_JPRB,5.9626E+02_JPRB,3.9751E+02_JPRB,1.9876E+02_JPRB,1.4240E+02_JPRB/)
+KBO( :, 2,46,16) = (/&
+&7.4406E+02_JPRB,7.4362E+02_JPRB,5.5805E+02_JPRB,3.7204E+02_JPRB,1.8602E+02_JPRB,1.3140E+02_JPRB/)
+KBO( :, 3,46,16) = (/&
+&6.9726E+02_JPRB,6.9684E+02_JPRB,5.2295E+02_JPRB,3.4863E+02_JPRB,1.7432E+02_JPRB,1.3799E+02_JPRB/)
+KBO( :, 4,46,16) = (/&
+&6.5358E+02_JPRB,6.5318E+02_JPRB,4.9018E+02_JPRB,3.2679E+02_JPRB,1.6340E+02_JPRB,1.5937E+02_JPRB/)
+KBO( :, 5,46,16) = (/&
+&6.1254E+02_JPRB,6.1218E+02_JPRB,4.5941E+02_JPRB,3.0628E+02_JPRB,1.5314E+02_JPRB,1.9924E+02_JPRB/)
+KBO( :, 1,47,16) = (/&
+&8.2010E+02_JPRB,8.1961E+02_JPRB,6.1508E+02_JPRB,4.1005E+02_JPRB,2.0503E+02_JPRB,1.4924E+02_JPRB/)
+KBO( :, 2,47,16) = (/&
+&7.6659E+02_JPRB,7.6613E+02_JPRB,5.7494E+02_JPRB,3.8330E+02_JPRB,1.9165E+02_JPRB,1.3525E+02_JPRB/)
+KBO( :, 3,47,16) = (/&
+&7.1831E+02_JPRB,7.1788E+02_JPRB,5.3873E+02_JPRB,3.5916E+02_JPRB,1.7958E+02_JPRB,1.3959E+02_JPRB/)
+KBO( :, 4,47,16) = (/&
+&6.7281E+02_JPRB,6.7241E+02_JPRB,5.0461E+02_JPRB,3.3641E+02_JPRB,1.6821E+02_JPRB,1.6058E+02_JPRB/)
+KBO( :, 5,47,16) = (/&
+&6.3054E+02_JPRB,6.3016E+02_JPRB,4.7291E+02_JPRB,3.1527E+02_JPRB,1.5764E+02_JPRB,2.0056E+02_JPRB/)
+KBO( :, 1,48,16) = (/&
+&8.4633E+02_JPRB,8.4583E+02_JPRB,6.3475E+02_JPRB,4.2317E+02_JPRB,2.1159E+02_JPRB,1.5645E+02_JPRB/)
+KBO( :, 2,48,16) = (/&
+&7.9016E+02_JPRB,7.8968E+02_JPRB,5.9262E+02_JPRB,3.9508E+02_JPRB,1.9755E+02_JPRB,1.4053E+02_JPRB/)
+KBO( :, 3,48,16) = (/&
+&7.3934E+02_JPRB,7.3890E+02_JPRB,5.5451E+02_JPRB,3.6967E+02_JPRB,1.8484E+02_JPRB,1.4309E+02_JPRB/)
+KBO( :, 4,48,16) = (/&
+&6.9255E+02_JPRB,6.9213E+02_JPRB,5.1941E+02_JPRB,3.4628E+02_JPRB,1.7314E+02_JPRB,1.6459E+02_JPRB/)
+KBO( :, 5,48,16) = (/&
+&6.4886E+02_JPRB,6.4847E+02_JPRB,4.8665E+02_JPRB,3.2443E+02_JPRB,1.6222E+02_JPRB,2.0658E+02_JPRB/)
+KBO( :, 1,49,16) = (/&
+&8.7303E+02_JPRB,8.7251E+02_JPRB,6.5477E+02_JPRB,4.3652E+02_JPRB,2.1826E+02_JPRB,1.6405E+02_JPRB/)
+KBO( :, 2,49,16) = (/&
+&8.1423E+02_JPRB,8.1374E+02_JPRB,6.1067E+02_JPRB,4.0712E+02_JPRB,2.0356E+02_JPRB,1.4757E+02_JPRB/)
+KBO( :, 3,49,16) = (/&
+&7.6096E+02_JPRB,7.6050E+02_JPRB,5.7072E+02_JPRB,3.8048E+02_JPRB,1.9025E+02_JPRB,1.4935E+02_JPRB/)
+KBO( :, 4,49,16) = (/&
+&7.1274E+02_JPRB,7.1231E+02_JPRB,5.3455E+02_JPRB,3.5637E+02_JPRB,1.7819E+02_JPRB,1.7305E+02_JPRB/)
+KBO( :, 5,49,16) = (/&
+&6.6745E+02_JPRB,6.6705E+02_JPRB,5.0059E+02_JPRB,3.3373E+02_JPRB,1.6687E+02_JPRB,2.2042E+02_JPRB/)
+KBO( :, 1,50,16) = (/&
+&8.9886E+02_JPRB,8.9832E+02_JPRB,6.7415E+02_JPRB,4.4943E+02_JPRB,2.2472E+02_JPRB,1.7154E+02_JPRB/)
+KBO( :, 2,50,16) = (/&
+&8.3744E+02_JPRB,8.3694E+02_JPRB,6.2808E+02_JPRB,4.1872E+02_JPRB,2.0936E+02_JPRB,1.5447E+02_JPRB/)
+KBO( :, 3,50,16) = (/&
+&7.8206E+02_JPRB,7.8159E+02_JPRB,5.8654E+02_JPRB,3.9103E+02_JPRB,1.9552E+02_JPRB,1.5292E+02_JPRB/)
+KBO( :, 4,50,16) = (/&
+&7.3184E+02_JPRB,7.3140E+02_JPRB,5.4888E+02_JPRB,3.6592E+02_JPRB,1.8296E+02_JPRB,1.7616E+02_JPRB/)
+KBO( :, 5,50,16) = (/&
+&6.8529E+02_JPRB,6.8488E+02_JPRB,5.1397E+02_JPRB,3.4265E+02_JPRB,1.7133E+02_JPRB,2.2472E+02_JPRB/)
+KBO( :, 1,51,16) = (/&
+&9.2454E+02_JPRB,9.2398E+02_JPRB,6.9341E+02_JPRB,4.6227E+02_JPRB,2.3114E+02_JPRB,1.7932E+02_JPRB/)
+KBO( :, 2,51,16) = (/&
+&8.6100E+02_JPRB,8.6049E+02_JPRB,6.4575E+02_JPRB,4.3050E+02_JPRB,2.1525E+02_JPRB,1.6117E+02_JPRB/)
+KBO( :, 3,51,16) = (/&
+&8.0315E+02_JPRB,8.0267E+02_JPRB,6.0236E+02_JPRB,4.0158E+02_JPRB,2.0079E+02_JPRB,1.5563E+02_JPRB/)
+KBO( :, 4,51,16) = (/&
+&7.5078E+02_JPRB,7.5033E+02_JPRB,5.6309E+02_JPRB,3.7539E+02_JPRB,1.8770E+02_JPRB,1.7663E+02_JPRB/)
+KBO( :, 5,51,16) = (/&
+&7.0300E+02_JPRB,7.0257E+02_JPRB,5.2725E+02_JPRB,3.5150E+02_JPRB,1.7575E+02_JPRB,2.2386E+02_JPRB/)
+KBO( :, 1,52,16) = (/&
+&9.5090E+02_JPRB,9.5033E+02_JPRB,7.1318E+02_JPRB,4.7545E+02_JPRB,2.3773E+02_JPRB,1.8754E+02_JPRB/)
+KBO( :, 2,52,16) = (/&
+&8.8502E+02_JPRB,8.8448E+02_JPRB,6.6376E+02_JPRB,4.4251E+02_JPRB,2.2126E+02_JPRB,1.6850E+02_JPRB/)
+KBO( :, 3,52,16) = (/&
+&8.2471E+02_JPRB,8.2421E+02_JPRB,6.1853E+02_JPRB,4.1235E+02_JPRB,2.0618E+02_JPRB,1.6061E+02_JPRB/)
+KBO( :, 4,52,16) = (/&
+&7.7013E+02_JPRB,7.6967E+02_JPRB,5.7760E+02_JPRB,3.8507E+02_JPRB,1.9253E+02_JPRB,1.8010E+02_JPRB/)
+KBO( :, 5,52,16) = (/&
+&7.2097E+02_JPRB,7.2053E+02_JPRB,5.4073E+02_JPRB,3.6048E+02_JPRB,1.8024E+02_JPRB,2.2809E+02_JPRB/)
+KBO( :, 1,53,16) = (/&
+&9.7788E+02_JPRB,9.7729E+02_JPRB,7.3341E+02_JPRB,4.8894E+02_JPRB,2.4447E+02_JPRB,1.9637E+02_JPRB/)
+KBO( :, 2,53,16) = (/&
+&9.0961E+02_JPRB,9.0906E+02_JPRB,6.8221E+02_JPRB,4.5481E+02_JPRB,2.2740E+02_JPRB,1.7681E+02_JPRB/)
+KBO( :, 3,53,16) = (/&
+&8.4702E+02_JPRB,8.4651E+02_JPRB,6.3527E+02_JPRB,4.2351E+02_JPRB,2.1176E+02_JPRB,1.6836E+02_JPRB/)
+KBO( :, 4,53,16) = (/&
+&7.9046E+02_JPRB,7.8999E+02_JPRB,5.9285E+02_JPRB,3.9523E+02_JPRB,1.9762E+02_JPRB,1.8837E+02_JPRB/)
+KBO( :, 5,53,16) = (/&
+&7.3936E+02_JPRB,7.3892E+02_JPRB,5.5452E+02_JPRB,3.6968E+02_JPRB,1.8484E+02_JPRB,2.4127E+02_JPRB/)
+KBO( :, 1,54,16) = (/&
+&1.0035E+03_JPRB,1.0029E+03_JPRB,7.5259E+02_JPRB,5.0173E+02_JPRB,2.5087E+02_JPRB,2.0491E+02_JPRB/)
+KBO( :, 2,54,16) = (/&
+&9.3285E+02_JPRB,9.3229E+02_JPRB,6.9964E+02_JPRB,4.6643E+02_JPRB,2.3321E+02_JPRB,1.8242E+02_JPRB/)
+KBO( :, 3,54,16) = (/&
+&8.6846E+02_JPRB,8.6794E+02_JPRB,6.5134E+02_JPRB,4.3423E+02_JPRB,2.1712E+02_JPRB,1.7066E+02_JPRB/)
+KBO( :, 4,54,16) = (/&
+&8.0960E+02_JPRB,8.0911E+02_JPRB,6.0720E+02_JPRB,4.0480E+02_JPRB,2.0240E+02_JPRB,1.8019E+02_JPRB/)
+KBO( :, 5,54,16) = (/&
+&7.5654E+02_JPRB,7.5608E+02_JPRB,5.6740E+02_JPRB,3.7827E+02_JPRB,1.8914E+02_JPRB,2.2258E+02_JPRB/)
+KBO( :, 1,55,16) = (/&
+&1.0290E+03_JPRB,1.0283E+03_JPRB,7.7171E+02_JPRB,5.1448E+02_JPRB,2.5724E+02_JPRB,2.1368E+02_JPRB/)
+KBO( :, 2,55,16) = (/&
+&9.5574E+02_JPRB,9.5517E+02_JPRB,7.1681E+02_JPRB,4.7787E+02_JPRB,2.3894E+02_JPRB,1.8874E+02_JPRB/)
+KBO( :, 3,55,16) = (/&
+&8.8926E+02_JPRB,8.8873E+02_JPRB,6.6695E+02_JPRB,4.4463E+02_JPRB,2.2232E+02_JPRB,1.7135E+02_JPRB/)
+KBO( :, 4,55,16) = (/&
+&8.2830E+02_JPRB,8.2781E+02_JPRB,6.2123E+02_JPRB,4.1415E+02_JPRB,2.0708E+02_JPRB,1.6723E+02_JPRB/)
+KBO( :, 5,55,16) = (/&
+&7.7332E+02_JPRB,7.7285E+02_JPRB,5.7999E+02_JPRB,3.8666E+02_JPRB,1.9333E+02_JPRB,1.9285E+02_JPRB/)
+KBO( :, 1,56,16) = (/&
+&1.0544E+03_JPRB,1.0538E+03_JPRB,7.9084E+02_JPRB,5.2722E+02_JPRB,2.6389E+02_JPRB,2.2294E+02_JPRB/)
+KBO( :, 2,56,16) = (/&
+&9.7928E+02_JPRB,9.7870E+02_JPRB,7.3446E+02_JPRB,4.8964E+02_JPRB,2.4482E+02_JPRB,1.9643E+02_JPRB/)
+KBO( :, 3,56,16) = (/&
+&9.1058E+02_JPRB,9.1004E+02_JPRB,6.8294E+02_JPRB,4.5529E+02_JPRB,2.2765E+02_JPRB,1.7473E+02_JPRB/)
+KBO( :, 4,56,16) = (/&
+&8.4774E+02_JPRB,8.4724E+02_JPRB,6.3581E+02_JPRB,4.2387E+02_JPRB,2.1194E+02_JPRB,1.6206E+02_JPRB/)
+KBO( :, 5,56,16) = (/&
+&7.9097E+02_JPRB,7.9049E+02_JPRB,5.9323E+02_JPRB,3.9548E+02_JPRB,1.9774E+02_JPRB,1.7273E+02_JPRB/)
+KBO( :, 1,57,16) = (/&
+&1.0813E+03_JPRB,1.0806E+03_JPRB,8.1095E+02_JPRB,5.4063E+02_JPRB,2.7119E+02_JPRB,2.3288E+02_JPRB/)
+KBO( :, 2,57,16) = (/&
+&1.0033E+03_JPRB,1.0027E+03_JPRB,7.5245E+02_JPRB,5.0163E+02_JPRB,2.5082E+02_JPRB,2.0449E+02_JPRB/)
+KBO( :, 3,57,16) = (/&
+&9.3233E+02_JPRB,9.3177E+02_JPRB,6.9925E+02_JPRB,4.6617E+02_JPRB,2.3308E+02_JPRB,1.8109E+02_JPRB/)
+KBO( :, 4,57,16) = (/&
+&8.6794E+02_JPRB,8.6742E+02_JPRB,6.5095E+02_JPRB,4.3397E+02_JPRB,2.1699E+02_JPRB,1.6333E+02_JPRB/)
+KBO( :, 5,57,16) = (/&
+&8.0892E+02_JPRB,8.0843E+02_JPRB,6.0669E+02_JPRB,4.0446E+02_JPRB,2.0223E+02_JPRB,1.5955E+02_JPRB/)
+KBO( :, 1,58,16) = (/&
+&1.1081E+03_JPRB,1.1074E+03_JPRB,8.3108E+02_JPRB,5.5405E+02_JPRB,2.7884E+02_JPRB,2.4302E+02_JPRB/)
+KBO( :, 2,58,16) = (/&
+&1.0267E+03_JPRB,1.0261E+03_JPRB,7.7004E+02_JPRB,5.1336E+02_JPRB,2.5668E+02_JPRB,2.1265E+02_JPRB/)
+KBO( :, 3,58,16) = (/&
+&9.5368E+02_JPRB,9.5311E+02_JPRB,7.1526E+02_JPRB,4.7684E+02_JPRB,2.3842E+02_JPRB,1.8786E+02_JPRB/)
+KBO( :, 4,58,16) = (/&
+&8.8727E+02_JPRB,8.8673E+02_JPRB,6.6545E+02_JPRB,4.4363E+02_JPRB,2.2182E+02_JPRB,1.6726E+02_JPRB/)
+KBO( :, 5,58,16) = (/&
+&8.2643E+02_JPRB,8.2594E+02_JPRB,6.1982E+02_JPRB,4.1322E+02_JPRB,2.0661E+02_JPRB,1.5255E+02_JPRB/)
+KBO( :, 1,59,16) = (/&
+&1.1197E+03_JPRB,1.1190E+03_JPRB,8.3976E+02_JPRB,5.5984E+02_JPRB,2.8216E+02_JPRB,2.4731E+02_JPRB/)
+KBO( :, 2,59,16) = (/&
+&1.0365E+03_JPRB,1.0359E+03_JPRB,7.7738E+02_JPRB,5.1826E+02_JPRB,2.5916E+02_JPRB,2.1609E+02_JPRB/)
+KBO( :, 3,59,16) = (/&
+&9.6265E+02_JPRB,9.6208E+02_JPRB,7.2199E+02_JPRB,4.8133E+02_JPRB,2.4066E+02_JPRB,1.9071E+02_JPRB/)
+KBO( :, 4,59,16) = (/&
+&8.9534E+02_JPRB,8.9480E+02_JPRB,6.7151E+02_JPRB,4.4767E+02_JPRB,2.2384E+02_JPRB,1.6963E+02_JPRB/)
+KBO( :, 5,59,16) = (/&
+&8.3369E+02_JPRB,8.3319E+02_JPRB,6.2527E+02_JPRB,4.1685E+02_JPRB,2.0842E+02_JPRB,1.5178E+02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB4_B4
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5.F90	(revision 2160)
@@ -0,0 +1,21 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB5_00
+      call RRTM_KGB5_A1
+      call RRTM_KGB5_A2
+      call RRTM_KGB5_B1
+      call RRTM_KGB5_B2
+      call RRTM_KGB5_B3
+      call RRTM_KGB5_B4
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_00.F90	(revision 2160)
@@ -0,0 +1,163 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+CCL4O( :) = (/&
+     &26.1407_JPRB,  53.9776_JPRB,  63.8085_JPRB,  36.1701_JPRB,&
+     &15.4099_JPRB, 10.23116_JPRB,  4.82948_JPRB,  5.03836_JPRB,&
+     &1.75558_JPRB,  _ZERO_     ,  _ZERO_     ,  _ZERO_     ,&
+     &_ZERO_     ,  _ZERO_     ,  _ZERO_     ,  _ZERO_      /)
+
+STRRAT1 = 90.4894_JPRB
+STRRAT2 = 0.900502_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&1.27664E-01_JPRB, 1.09296E-01_JPRB, 9.35703E-02_JPRB, 8.01075E-02_JPRB, 6.85818E-02_JPRB,&
+&5.87143E-02_JPRB, 5.02666E-02_JPRB, 4.30343E-02_JPRB, 3.68426E-02_JPRB, 3.15417E-02_JPRB/)
+SELFREFO( :, 2) = (/&
+&1.39620E-01_JPRB, 1.20381E-01_JPRB, 1.03793E-01_JPRB, 8.94908E-02_JPRB, 7.71595E-02_JPRB,&
+&6.65273E-02_JPRB, 5.73601E-02_JPRB, 4.94562E-02_JPRB, 4.26414E-02_JPRB, 3.67656E-02_JPRB/)
+SELFREFO( :, 3) = (/&
+&1.42628E-01_JPRB, 1.23043E-01_JPRB, 1.06148E-01_JPRB, 9.15726E-02_JPRB, 7.89986E-02_JPRB,&
+&6.81511E-02_JPRB, 5.87931E-02_JPRB, 5.07201E-02_JPRB, 4.37556E-02_JPRB, 3.77474E-02_JPRB/)
+SELFREFO( :, 4) = (/&
+&1.53569E-01_JPRB, 1.33143E-01_JPRB, 1.15435E-01_JPRB, 1.00082E-01_JPRB, 8.67706E-02_JPRB,&
+&7.52299E-02_JPRB, 6.52241E-02_JPRB, 5.65491E-02_JPRB, 4.90279E-02_JPRB, 4.25070E-02_JPRB/)
+SELFREFO( :, 5) = (/&
+&1.70491E-01_JPRB, 1.46448E-01_JPRB, 1.25796E-01_JPRB, 1.08056E-01_JPRB, 9.28182E-02_JPRB,&
+&7.97290E-02_JPRB, 6.84856E-02_JPRB, 5.88278E-02_JPRB, 5.05319E-02_JPRB, 4.34059E-02_JPRB/)
+SELFREFO( :, 6) = (/&
+&1.76394E-01_JPRB, 1.51432E-01_JPRB, 1.30003E-01_JPRB, 1.11606E-01_JPRB, 9.58127E-02_JPRB,&
+&8.22542E-02_JPRB, 7.06144E-02_JPRB, 6.06217E-02_JPRB, 5.20431E-02_JPRB, 4.46784E-02_JPRB/)
+SELFREFO( :, 7) = (/&
+&1.85706E-01_JPRB, 1.59172E-01_JPRB, 1.36429E-01_JPRB, 1.16936E-01_JPRB, 1.00228E-01_JPRB,&
+&8.59068E-02_JPRB, 7.36322E-02_JPRB, 6.31114E-02_JPRB, 5.40939E-02_JPRB, 4.63648E-02_JPRB/)
+SELFREFO( :, 8) = (/&
+&1.88647E-01_JPRB, 1.61657E-01_JPRB, 1.38529E-01_JPRB, 1.18710E-01_JPRB, 1.01726E-01_JPRB,&
+&8.71722E-02_JPRB, 7.47005E-02_JPRB, 6.40132E-02_JPRB, 5.48549E-02_JPRB, 4.70068E-02_JPRB/)
+SELFREFO( :, 9) = (/&
+&1.90074E-01_JPRB, 1.62793E-01_JPRB, 1.39427E-01_JPRB, 1.19415E-01_JPRB, 1.02275E-01_JPRB,&
+&8.75959E-02_JPRB, 7.50233E-02_JPRB, 6.42552E-02_JPRB, 5.50327E-02_JPRB, 4.71338E-02_JPRB/)
+SELFREFO( :,10) = (/&
+&1.94769E-01_JPRB, 1.66338E-01_JPRB, 1.42057E-01_JPRB, 1.21320E-01_JPRB, 1.03611E-01_JPRB,&
+&8.84863E-02_JPRB, 7.55696E-02_JPRB, 6.45384E-02_JPRB, 5.51175E-02_JPRB, 4.70718E-02_JPRB/)
+SELFREFO( :,11) = (/&
+&1.90624E-01_JPRB, 1.64229E-01_JPRB, 1.41488E-01_JPRB, 1.21896E-01_JPRB, 1.05017E-01_JPRB,&
+&9.04757E-02_JPRB, 7.79475E-02_JPRB, 6.71542E-02_JPRB, 5.78554E-02_JPRB, 4.98442E-02_JPRB/)
+SELFREFO( :,12) = (/&
+&1.90502E-01_JPRB, 1.64025E-01_JPRB, 1.41228E-01_JPRB, 1.21599E-01_JPRB, 1.04699E-01_JPRB,&
+&9.01472E-02_JPRB, 7.76181E-02_JPRB, 6.68303E-02_JPRB, 5.75419E-02_JPRB, 4.95444E-02_JPRB/)
+SELFREFO( :,13) = (/&
+&1.86786E-01_JPRB, 1.61636E-01_JPRB, 1.39872E-01_JPRB, 1.21039E-01_JPRB, 1.04741E-01_JPRB,&
+&9.06380E-02_JPRB, 7.84338E-02_JPRB, 6.78729E-02_JPRB, 5.87340E-02_JPRB, 5.08256E-02_JPRB/)
+SELFREFO( :,14) = (/&
+&1.99149E-01_JPRB, 1.71475E-01_JPRB, 1.47646E-01_JPRB, 1.27129E-01_JPRB, 1.09462E-01_JPRB,&
+&9.42512E-02_JPRB, 8.11538E-02_JPRB, 6.98764E-02_JPRB, 6.01662E-02_JPRB, 5.18053E-02_JPRB/)
+SELFREFO( :,15) = (/&
+&2.02676E-01_JPRB, 1.73701E-01_JPRB, 1.48869E-01_JPRB, 1.27587E-01_JPRB, 1.09347E-01_JPRB,&
+&9.37144E-02_JPRB, 8.03170E-02_JPRB, 6.88348E-02_JPRB, 5.89941E-02_JPRB, 5.05603E-02_JPRB/)
+SELFREFO( :,16) = (/&
+&1.99865E-01_JPRB, 1.72699E-01_JPRB, 1.49225E-01_JPRB, 1.28942E-01_JPRB, 1.11416E-01_JPRB,&
+&9.62721E-02_JPRB, 8.31866E-02_JPRB, 7.18797E-02_JPRB, 6.21097E-02_JPRB, 5.36676E-02_JPRB/)      
+
+FRACREFAO( :, 1) = (/&
+!     From P = 387.6 mb.
+    &0.13966499_JPRB,0.14138900_JPRB,0.13763399_JPRB,0.13076700_JPRB,&
+    &0.12299100_JPRB,0.10747700_JPRB,0.08942000_JPRB,0.06769200_JPRB,&
+    &0.04587610_JPRB,0.00501173_JPRB,0.00415809_JPRB,0.00328398_JPRB,&
+    &0.00240015_JPRB,0.00156222_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.13958199_JPRB,0.14332899_JPRB,0.13785399_JPRB,0.13205400_JPRB,&
+    &0.12199700_JPRB,0.10679600_JPRB,0.08861080_JPRB,0.06712320_JPRB,&
+    &0.04556030_JPRB,0.00500863_JPRB,0.00416315_JPRB,0.00328629_JPRB,&
+    &0.00240023_JPRB,0.00156220_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.13907100_JPRB,0.14250501_JPRB,0.13889600_JPRB,0.13297300_JPRB,&
+    &0.12218700_JPRB,0.10683800_JPRB,0.08839260_JPRB,0.06677310_JPRB,&
+    &0.04538570_JPRB,0.00495402_JPRB,0.00409863_JPRB,0.00328219_JPRB,&
+    &0.00240805_JPRB,0.00156266_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.13867700_JPRB,0.14190100_JPRB,0.13932300_JPRB,0.13327099_JPRB,&
+    &0.12280800_JPRB,0.10692500_JPRB,0.08844510_JPRB,0.06658510_JPRB,&
+    &0.04519340_JPRB,0.00492276_JPRB,0.00408832_JPRB,0.00323856_JPRB,&
+    &0.00239289_JPRB,0.00155698_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.13845000_JPRB,0.14158800_JPRB,0.13929300_JPRB,0.13295600_JPRB,&
+    &0.12348300_JPRB,0.10736700_JPRB,0.08859480_JPRB,0.06650610_JPRB,&
+    &0.04498230_JPRB,0.00491335_JPRB,0.00406968_JPRB,0.00322901_JPRB,&
+    &0.00234666_JPRB,0.00155235_JPRB,0.00058813_JPRB,0.00008323_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.13837101_JPRB,0.14113200_JPRB,0.13930500_JPRB,0.13283101_JPRB,&
+    &0.12349200_JPRB,0.10796400_JPRB,0.08890490_JPRB,0.06646480_JPRB,&
+    &0.04485990_JPRB,0.00489554_JPRB,0.00405264_JPRB,0.00320313_JPRB,&
+    &0.00234742_JPRB,0.00151159_JPRB,0.00058438_JPRB,0.00008253_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.13834500_JPRB,0.14093500_JPRB,0.13896500_JPRB,0.13262001_JPRB,&
+    &0.12326900_JPRB,0.10828900_JPRB,0.08950050_JPRB,0.06674610_JPRB,&
+    &0.04476560_JPRB,0.00489624_JPRB,0.00400962_JPRB,0.00317423_JPRB,&
+    &0.00233479_JPRB,0.00148249_JPRB,0.00058590_JPRB,0.00008253_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.13831300_JPRB,0.14069000_JPRB,0.13871400_JPRB,0.13247600_JPRB,&
+    &0.12251400_JPRB,0.10831300_JPRB,0.08977090_JPRB,0.06776920_JPRB,&
+    &0.04498390_JPRB,0.00484111_JPRB,0.00398948_JPRB,0.00316069_JPRB,&
+    &0.00229741_JPRB,0.00150104_JPRB,0.00058608_JPRB,0.00008253_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.14027201_JPRB,0.14420401_JPRB,0.14215700_JPRB,0.13446601_JPRB,&
+    &0.12303700_JPRB,0.10596100_JPRB,0.08650370_JPRB,0.06409570_JPRB,&
+    &0.04312310_JPRB,0.00471110_JPRB,0.00393954_JPRB,0.00310850_JPRB,&
+    &0.00229588_JPRB,0.00146366_JPRB,0.00058194_JPRB,0.00008253_JPRB/)
+
+FRACREFBO( :, 1) = (/&
+!     From P = 1.17 mb.
+    &0.14339100_JPRB,0.14358699_JPRB,0.13935301_JPRB,0.13306700_JPRB,&
+    &0.12135700_JPRB,0.10590600_JPRB,0.08688240_JPRB,0.06553220_JPRB,&
+    &0.04446740_JPRB,0.00483580_JPRB,0.00399413_JPRB,0.00316225_JPRB,&
+    &0.00233007_JPRB,0.00149135_JPRB,0.00056246_JPRB,0.00008059_JPRB/)
+FRACREFBO( :, 2) = (/&
+    &0.14330500_JPRB,0.14430299_JPRB,0.14053699_JPRB,0.13355300_JPRB,&
+    &0.12151200_JPRB,0.10529100_JPRB,0.08627630_JPRB,0.06505230_JPRB,&
+    &0.04385850_JPRB,0.00476555_JPRB,0.00395010_JPRB,0.00313878_JPRB,&
+    &0.00232273_JPRB,0.00149354_JPRB,0.00056246_JPRB,0.00008059_JPRB/)
+FRACREFBO( :, 3) = (/&
+    &0.14328399_JPRB,0.14442700_JPRB,0.14078601_JPRB,0.13390100_JPRB,&
+    &0.12132600_JPRB,0.10510600_JPRB,0.08613660_JPRB,0.06494630_JPRB,&
+    &0.04381310_JPRB,0.00475378_JPRB,0.00394166_JPRB,0.00313076_JPRB,&
+    &0.00231235_JPRB,0.00149159_JPRB,0.00056301_JPRB,0.00008059_JPRB/)
+FRACREFBO( :, 4) = (/&
+    &0.14326900_JPRB,0.14453100_JPRB,0.14114200_JPRB,0.13397101_JPRB,&
+    &0.12127200_JPRB,0.10493400_JPRB,0.08601380_JPRB,0.06483360_JPRB,&
+    &0.04378900_JPRB,0.00474655_JPRB,0.00393549_JPRB,0.00312583_JPRB,&
+    &0.00230686_JPRB,0.00148433_JPRB,0.00056502_JPRB,0.00008059_JPRB/)
+FRACREFBO( :, 5) = (/&
+    &0.14328900_JPRB,0.14532700_JPRB,0.14179000_JPRB,0.13384600_JPRB,&
+    &0.12093700_JPRB,0.10461500_JPRB,0.08573010_JPRB,0.06461340_JPRB,&
+    &0.04366570_JPRB,0.00473087_JPRB,0.00392539_JPRB,0.00311238_JPRB,&
+    &0.00229865_JPRB,0.00147572_JPRB,0.00056517_JPRB,0.00007939_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_A1.F90	(revision 2160)
@@ -0,0 +1,1605 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature TREF-15, 
+!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&1.2281E-06_JPRB,7.3444E-06_JPRB,1.3802E-05_JPRB,2.1363E-05_JPRB,3.4026E-05_JPRB,5.1149E-05_JPRB,&
+&7.6454E-05_JPRB,1.1492E-04_JPRB,5.1051E-05_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&1.6369E-06_JPRB,8.9617E-06_JPRB,1.6072E-05_JPRB,2.4135E-05_JPRB,3.4106E-05_JPRB,4.9214E-05_JPRB,&
+&7.9048E-05_JPRB,1.3905E-04_JPRB,5.4063E-05_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&2.1611E-06_JPRB,1.1094E-05_JPRB,1.8726E-05_JPRB,2.7825E-05_JPRB,3.8281E-05_JPRB,5.1592E-05_JPRB,&
+&7.6813E-05_JPRB,1.3616E-04_JPRB,6.0994E-05_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&2.8032E-06_JPRB,1.3911E-05_JPRB,2.1873E-05_JPRB,3.1872E-05_JPRB,4.3669E-05_JPRB,5.8650E-05_JPRB,&
+&8.1107E-05_JPRB,1.3247E-04_JPRB,6.8413E-05_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&3.5749E-06_JPRB,1.7399E-05_JPRB,2.6270E-05_JPRB,3.5363E-05_JPRB,4.8470E-05_JPRB,6.5479E-05_JPRB,&
+&9.0735E-05_JPRB,1.4099E-04_JPRB,5.7731E-05_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&9.2208E-07_JPRB,5.6661E-06_JPRB,1.0853E-05_JPRB,1.7695E-05_JPRB,2.8111E-05_JPRB,4.1811E-05_JPRB,&
+&5.7766E-05_JPRB,8.8171E-05_JPRB,3.6499E-05_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&1.2339E-06_JPRB,6.8718E-06_JPRB,1.2450E-05_JPRB,1.9038E-05_JPRB,2.7428E-05_JPRB,4.2214E-05_JPRB,&
+&6.5891E-05_JPRB,1.0808E-04_JPRB,3.9328E-05_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&1.6382E-06_JPRB,8.4733E-06_JPRB,1.4470E-05_JPRB,2.1567E-05_JPRB,3.0172E-05_JPRB,4.1842E-05_JPRB,&
+&6.2761E-05_JPRB,1.1359E-04_JPRB,4.4926E-05_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&2.1437E-06_JPRB,1.0582E-05_JPRB,1.7090E-05_JPRB,2.4961E-05_JPRB,3.4319E-05_JPRB,4.6334E-05_JPRB,&
+&6.4942E-05_JPRB,1.0880E-04_JPRB,4.8706E-05_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&2.7550E-06_JPRB,1.3307E-05_JPRB,2.0303E-05_JPRB,2.7768E-05_JPRB,3.8649E-05_JPRB,5.3069E-05_JPRB,&
+&7.1656E-05_JPRB,1.1174E-04_JPRB,4.2264E-05_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&6.5681E-07_JPRB,4.2928E-06_JPRB,8.6206E-06_JPRB,1.4813E-05_JPRB,2.2795E-05_JPRB,3.0956E-05_JPRB,&
+&4.2159E-05_JPRB,6.7143E-05_JPRB,2.4558E-05_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&8.8032E-07_JPRB,5.0858E-06_JPRB,9.4979E-06_JPRB,1.4908E-05_JPRB,2.3302E-05_JPRB,3.4761E-05_JPRB,&
+&5.2810E-05_JPRB,7.8083E-05_JPRB,2.7352E-05_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&1.1757E-06_JPRB,6.2479E-06_JPRB,1.1007E-05_JPRB,1.6613E-05_JPRB,2.3543E-05_JPRB,3.3879E-05_JPRB,&
+&5.3064E-05_JPRB,9.3905E-05_JPRB,3.1433E-05_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&1.5541E-06_JPRB,7.7549E-06_JPRB,1.2987E-05_JPRB,1.9178E-05_JPRB,2.6197E-05_JPRB,3.5750E-05_JPRB,&
+&5.1915E-05_JPRB,9.2229E-05_JPRB,2.9423E-05_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&2.0193E-06_JPRB,9.7639E-06_JPRB,1.5167E-05_JPRB,2.2031E-05_JPRB,3.0010E-05_JPRB,4.0258E-05_JPRB,&
+&5.5267E-05_JPRB,9.0112E-05_JPRB,2.9943E-05_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&4.6419E-07_JPRB,3.2238E-06_JPRB,7.0968E-06_JPRB,1.2172E-05_JPRB,1.6732E-05_JPRB,2.2369E-05_JPRB,&
+&3.1463E-05_JPRB,5.3229E-05_JPRB,1.7381E-05_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&6.2245E-07_JPRB,3.7726E-06_JPRB,7.2766E-06_JPRB,1.2504E-05_JPRB,1.9255E-05_JPRB,2.8079E-05_JPRB,&
+&3.7485E-05_JPRB,5.7403E-05_JPRB,1.9667E-05_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&8.3351E-07_JPRB,4.5653E-06_JPRB,8.3036E-06_JPRB,1.2777E-05_JPRB,1.8816E-05_JPRB,2.9030E-05_JPRB,&
+&4.4417E-05_JPRB,7.0863E-05_JPRB,2.1895E-05_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&1.1087E-06_JPRB,5.6384E-06_JPRB,9.6405E-06_JPRB,1.4565E-05_JPRB,2.0321E-05_JPRB,2.8264E-05_JPRB,&
+&4.3444E-05_JPRB,7.7444E-05_JPRB,2.1414E-05_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&1.4581E-06_JPRB,7.0726E-06_JPRB,1.1402E-05_JPRB,1.6579E-05_JPRB,2.3011E-05_JPRB,3.1009E-05_JPRB,&
+&4.3245E-05_JPRB,7.3708E-05_JPRB,2.2863E-05_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&3.3427E-07_JPRB,2.5337E-06_JPRB,5.7680E-06_JPRB,8.9425E-06_JPRB,1.2242E-05_JPRB,1.6995E-05_JPRB,&
+&2.4164E-05_JPRB,4.4230E-05_JPRB,1.3422E-05_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&4.4601E-07_JPRB,2.8401E-06_JPRB,5.8531E-06_JPRB,1.0220E-05_JPRB,1.5419E-05_JPRB,2.0153E-05_JPRB,&
+&2.7336E-05_JPRB,4.3727E-05_JPRB,1.5115E-05_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&5.9812E-07_JPRB,3.3532E-06_JPRB,6.3191E-06_JPRB,1.0031E-05_JPRB,1.5953E-05_JPRB,2.3950E-05_JPRB,&
+&3.4195E-05_JPRB,5.0601E-05_JPRB,1.6591E-05_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&7.9837E-07_JPRB,4.1280E-06_JPRB,7.3147E-06_JPRB,1.1079E-05_JPRB,1.5854E-05_JPRB,2.3810E-05_JPRB,&
+&3.6514E-05_JPRB,6.2591E-05_JPRB,1.7658E-05_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&1.0575E-06_JPRB,5.1440E-06_JPRB,8.5910E-06_JPRB,1.2709E-05_JPRB,1.7592E-05_JPRB,2.4262E-05_JPRB,&
+&3.5276E-05_JPRB,6.2368E-05_JPRB,1.9388E-05_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&2.4467E-07_JPRB,2.0115E-06_JPRB,4.4506E-06_JPRB,6.5328E-06_JPRB,9.2134E-06_JPRB,1.2867E-05_JPRB,&
+&1.9266E-05_JPRB,3.4226E-05_JPRB,1.1020E-05_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&3.2244E-07_JPRB,2.1802E-06_JPRB,4.7859E-06_JPRB,8.3031E-06_JPRB,1.1024E-05_JPRB,1.4816E-05_JPRB,&
+&2.0767E-05_JPRB,3.3867E-05_JPRB,1.2361E-05_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&4.3252E-07_JPRB,2.5034E-06_JPRB,4.8788E-06_JPRB,8.5188E-06_JPRB,1.3353E-05_JPRB,1.8353E-05_JPRB,&
+&2.4440E-05_JPRB,3.7220E-05_JPRB,1.3756E-05_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&5.7866E-07_JPRB,3.0227E-06_JPRB,5.4901E-06_JPRB,8.5441E-06_JPRB,1.3294E-05_JPRB,1.9970E-05_JPRB,&
+&3.0079E-05_JPRB,4.5487E-05_JPRB,1.5370E-05_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&7.6960E-07_JPRB,3.7504E-06_JPRB,6.3767E-06_JPRB,9.6311E-06_JPRB,1.3563E-05_JPRB,1.9464E-05_JPRB,&
+&3.0023E-05_JPRB,5.3031E-05_JPRB,1.7349E-05_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&1.8363E-07_JPRB,1.6339E-06_JPRB,3.2365E-06_JPRB,4.8736E-06_JPRB,7.0565E-06_JPRB,1.0168E-05_JPRB,&
+&1.5448E-05_JPRB,2.6119E-05_JPRB,9.9973E-06_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&2.3828E-07_JPRB,1.7045E-06_JPRB,3.9446E-06_JPRB,5.9885E-06_JPRB,8.1187E-06_JPRB,1.1164E-05_JPRB,&
+&1.5910E-05_JPRB,2.7804E-05_JPRB,1.1252E-05_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&3.1712E-07_JPRB,1.8915E-06_JPRB,4.0133E-06_JPRB,6.9371E-06_JPRB,1.0184E-05_JPRB,1.3247E-05_JPRB,&
+&1.8144E-05_JPRB,2.8687E-05_JPRB,1.2767E-05_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&4.2549E-07_JPRB,2.2415E-06_JPRB,4.2001E-06_JPRB,7.0066E-06_JPRB,1.0950E-05_JPRB,1.6323E-05_JPRB,&
+&2.2218E-05_JPRB,3.2987E-05_JPRB,1.4591E-05_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&5.6782E-07_JPRB,2.7608E-06_JPRB,4.8541E-06_JPRB,7.3705E-06_JPRB,1.0748E-05_JPRB,1.6390E-05_JPRB,&
+&2.5035E-05_JPRB,4.1583E-05_JPRB,1.6759E-05_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&1.4297E-07_JPRB,1.2986E-06_JPRB,2.4296E-06_JPRB,3.7740E-06_JPRB,5.5717E-06_JPRB,8.1007E-06_JPRB,&
+&1.2269E-05_JPRB,2.0668E-05_JPRB,1.1224E-05_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&1.8237E-07_JPRB,1.3796E-06_JPRB,2.9841E-06_JPRB,4.4232E-06_JPRB,6.1625E-06_JPRB,8.6070E-06_JPRB,&
+&1.2749E-05_JPRB,2.2374E-05_JPRB,1.3050E-05_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&2.3995E-07_JPRB,1.4828E-06_JPRB,3.2302E-06_JPRB,5.5721E-06_JPRB,7.4009E-06_JPRB,9.9584E-06_JPRB,&
+&1.3793E-05_JPRB,2.2720E-05_JPRB,1.5037E-05_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&3.2109E-07_JPRB,1.7086E-06_JPRB,3.3052E-06_JPRB,5.7552E-06_JPRB,9.1163E-06_JPRB,1.2137E-05_JPRB,&
+&1.6200E-05_JPRB,2.4932E-05_JPRB,1.7316E-05_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&4.2933E-07_JPRB,2.0665E-06_JPRB,3.6851E-06_JPRB,5.7093E-06_JPRB,9.1231E-06_JPRB,1.3616E-05_JPRB,&
+&2.0240E-05_JPRB,2.9795E-05_JPRB,1.9811E-05_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&1.1391E-07_JPRB,9.6607E-07_JPRB,1.8596E-06_JPRB,2.9960E-06_JPRB,4.4278E-06_JPRB,6.4496E-06_JPRB,&
+&9.3668E-06_JPRB,1.6296E-05_JPRB,2.3175E-05_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&1.4318E-07_JPRB,1.1432E-06_JPRB,2.1917E-06_JPRB,3.3465E-06_JPRB,4.7894E-06_JPRB,6.8583E-06_JPRB,&
+&1.0124E-05_JPRB,1.7732E-05_JPRB,2.8424E-05_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&1.8594E-07_JPRB,1.1885E-06_JPRB,2.6962E-06_JPRB,4.0343E-06_JPRB,5.5351E-06_JPRB,7.5514E-06_JPRB,&
+&1.0675E-05_JPRB,1.8150E-05_JPRB,3.4053E-05_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&2.4670E-07_JPRB,1.3380E-06_JPRB,2.7503E-06_JPRB,4.7549E-06_JPRB,6.8876E-06_JPRB,8.9087E-06_JPRB,&
+&1.2295E-05_JPRB,1.9210E-05_JPRB,3.9839E-05_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&3.3010E-07_JPRB,1.5784E-06_JPRB,2.8513E-06_JPRB,4.8049E-06_JPRB,7.4827E-06_JPRB,1.1096E-05_JPRB,&
+&1.4749E-05_JPRB,2.1955E-05_JPRB,4.5594E-05_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&9.5530E-08_JPRB,7.6103E-07_JPRB,1.4822E-06_JPRB,2.4013E-06_JPRB,3.5241E-06_JPRB,5.0863E-06_JPRB,&
+&7.7041E-06_JPRB,1.2423E-05_JPRB,8.9067E-05_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&1.1882E-07_JPRB,9.2450E-07_JPRB,1.6979E-06_JPRB,2.6207E-06_JPRB,3.8503E-06_JPRB,5.4657E-06_JPRB,&
+&7.9684E-06_JPRB,1.3651E-05_JPRB,1.1125E-04_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&1.5289E-07_JPRB,9.7942E-07_JPRB,2.0846E-06_JPRB,3.0524E-06_JPRB,4.2640E-06_JPRB,5.9216E-06_JPRB,&
+&8.6666E-06_JPRB,1.4411E-05_JPRB,1.3376E-04_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&2.0094E-07_JPRB,1.0816E-06_JPRB,2.2331E-06_JPRB,3.8855E-06_JPRB,5.1239E-06_JPRB,6.8144E-06_JPRB,&
+&9.5102E-06_JPRB,1.5396E-05_JPRB,1.5621E-04_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&2.6711E-07_JPRB,1.2572E-06_JPRB,2.3283E-06_JPRB,3.9502E-06_JPRB,6.1703E-06_JPRB,8.4471E-06_JPRB,&
+&1.1047E-05_JPRB,1.7057E-05_JPRB,1.7815E-04_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&8.8479E-08_JPRB,6.5723E-07_JPRB,1.2585E-06_JPRB,2.0039E-06_JPRB,2.9121E-06_JPRB,4.1955E-06_JPRB,&
+&6.2637E-06_JPRB,1.0419E-05_JPRB,1.7219E-04_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&1.1103E-07_JPRB,7.9724E-07_JPRB,1.4388E-06_JPRB,2.1938E-06_JPRB,3.2099E-06_JPRB,4.5380E-06_JPRB,&
+&6.5334E-06_JPRB,1.1529E-05_JPRB,2.1393E-04_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&1.4325E-07_JPRB,8.5009E-07_JPRB,1.7790E-06_JPRB,2.5762E-06_JPRB,3.5853E-06_JPRB,4.9027E-06_JPRB,&
+&7.2087E-06_JPRB,1.1783E-05_JPRB,2.5548E-04_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&1.8796E-07_JPRB,9.4910E-07_JPRB,1.8794E-06_JPRB,3.2448E-06_JPRB,4.3096E-06_JPRB,5.7004E-06_JPRB,&
+&7.8146E-06_JPRB,1.2759E-05_JPRB,2.9570E-04_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&2.4830E-07_JPRB,1.0997E-06_JPRB,1.9987E-06_JPRB,3.2788E-06_JPRB,5.0983E-06_JPRB,7.0948E-06_JPRB,&
+&9.2185E-06_JPRB,1.4157E-05_JPRB,3.3417E-04_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&7.8411E-08_JPRB,5.6432E-07_JPRB,1.0564E-06_JPRB,1.6792E-06_JPRB,2.4262E-06_JPRB,3.3875E-06_JPRB,&
+&5.1824E-06_JPRB,8.5930E-06_JPRB,2.1970E-04_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&9.8958E-08_JPRB,6.8328E-07_JPRB,1.2215E-06_JPRB,1.8350E-06_JPRB,2.6716E-06_JPRB,3.7787E-06_JPRB,&
+&5.3849E-06_JPRB,9.1860E-06_JPRB,2.7209E-04_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&1.2797E-07_JPRB,7.2421E-07_JPRB,1.5209E-06_JPRB,2.1711E-06_JPRB,3.0040E-06_JPRB,4.0829E-06_JPRB,&
+&6.0229E-06_JPRB,9.7068E-06_JPRB,3.2380E-04_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&1.6772E-07_JPRB,8.1500E-07_JPRB,1.5843E-06_JPRB,2.7212E-06_JPRB,3.6141E-06_JPRB,4.7595E-06_JPRB,&
+&6.4840E-06_JPRB,1.0629E-05_JPRB,3.7332E-04_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&2.2081E-07_JPRB,9.4887E-07_JPRB,1.7061E-06_JPRB,2.7338E-06_JPRB,4.2409E-06_JPRB,5.9628E-06_JPRB,&
+&7.7123E-06_JPRB,1.1668E-05_JPRB,4.2006E-04_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&6.9984E-08_JPRB,4.8746E-07_JPRB,8.9934E-07_JPRB,1.4101E-06_JPRB,2.0188E-06_JPRB,2.7991E-06_JPRB,&
+&4.1521E-06_JPRB,7.2727E-06_JPRB,2.2865E-04_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&8.8821E-08_JPRB,5.8672E-07_JPRB,1.0421E-06_JPRB,1.5517E-06_JPRB,2.2340E-06_JPRB,3.1346E-06_JPRB,&
+&4.4727E-06_JPRB,7.4604E-06_JPRB,2.8267E-04_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&1.1504E-07_JPRB,6.2137E-07_JPRB,1.3015E-06_JPRB,1.8350E-06_JPRB,2.5305E-06_JPRB,3.4076E-06_JPRB,&
+&4.9426E-06_JPRB,8.0265E-06_JPRB,3.3576E-04_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&1.5036E-07_JPRB,7.0084E-07_JPRB,1.3483E-06_JPRB,2.2875E-06_JPRB,3.0337E-06_JPRB,3.9839E-06_JPRB,&
+&5.4210E-06_JPRB,8.7755E-06_JPRB,3.8637E-04_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&1.9712E-07_JPRB,8.1525E-07_JPRB,1.4451E-06_JPRB,2.3051E-06_JPRB,3.5032E-06_JPRB,5.0029E-06_JPRB,&
+&6.4407E-06_JPRB,9.6564E-06_JPRB,4.3385E-04_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&3.7010E-06_JPRB,1.8091E-05_JPRB,2.8711E-05_JPRB,4.8863E-05_JPRB,7.2307E-05_JPRB,1.1413E-04_JPRB,&
+&1.8771E-04_JPRB,3.6122E-04_JPRB,1.1281E-04_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&5.3266E-06_JPRB,2.4423E-05_JPRB,3.4269E-05_JPRB,4.7704E-05_JPRB,7.6078E-05_JPRB,1.1442E-04_JPRB,&
+&1.6436E-04_JPRB,3.2838E-04_JPRB,8.7847E-05_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&7.5177E-06_JPRB,3.2854E-05_JPRB,4.4289E-05_JPRB,5.4913E-05_JPRB,7.2779E-05_JPRB,1.0814E-04_JPRB,&
+&1.7906E-04_JPRB,2.8467E-04_JPRB,8.6883E-05_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&1.0391E-05_JPRB,4.3522E-05_JPRB,5.8544E-05_JPRB,6.9693E-05_JPRB,8.1288E-05_JPRB,1.0220E-04_JPRB,&
+&1.5047E-04_JPRB,3.0285E-04_JPRB,9.1049E-05_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&1.4024E-05_JPRB,5.6758E-05_JPRB,7.6016E-05_JPRB,9.1662E-05_JPRB,1.0372E-04_JPRB,1.1700E-04_JPRB,&
+&1.4991E-04_JPRB,2.3704E-04_JPRB,1.3000E-04_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&2.7903E-06_JPRB,1.3902E-05_JPRB,2.3771E-05_JPRB,3.9190E-05_JPRB,6.1137E-05_JPRB,9.7231E-05_JPRB,&
+&1.5250E-04_JPRB,2.8746E-04_JPRB,7.5943E-05_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&4.0561E-06_JPRB,1.8720E-05_JPRB,2.7225E-05_JPRB,3.9741E-05_JPRB,6.4537E-05_JPRB,9.0899E-05_JPRB,&
+&1.4609E-04_JPRB,2.7008E-04_JPRB,6.2612E-05_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&5.7887E-06_JPRB,2.5353E-05_JPRB,3.4446E-05_JPRB,4.3750E-05_JPRB,5.8352E-05_JPRB,9.7668E-05_JPRB,&
+&1.4210E-04_JPRB,2.4211E-04_JPRB,6.1269E-05_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&8.0784E-06_JPRB,3.3950E-05_JPRB,4.5325E-05_JPRB,5.3921E-05_JPRB,6.4280E-05_JPRB,8.5665E-05_JPRB,&
+&1.3688E-04_JPRB,2.4556E-04_JPRB,6.9568E-05_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&1.1019E-05_JPRB,4.4672E-05_JPRB,5.9575E-05_JPRB,7.1166E-05_JPRB,7.9595E-05_JPRB,9.1088E-05_JPRB,&
+&1.2520E-04_JPRB,2.1802E-04_JPRB,9.5557E-05_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&1.9479E-06_JPRB,1.0095E-05_JPRB,1.9141E-05_JPRB,3.0705E-05_JPRB,5.2363E-05_JPRB,7.9991E-05_JPRB,&
+&1.2823E-04_JPRB,2.3806E-04_JPRB,4.6992E-05_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&2.8509E-06_JPRB,1.3413E-05_JPRB,2.1137E-05_JPRB,3.4101E-05_JPRB,4.9706E-05_JPRB,7.8708E-05_JPRB,&
+&1.2808E-04_JPRB,2.2769E-04_JPRB,4.2012E-05_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&4.1189E-06_JPRB,1.8265E-05_JPRB,2.5419E-05_JPRB,3.4683E-05_JPRB,5.2513E-05_JPRB,8.0240E-05_JPRB,&
+&1.1481E-04_JPRB,2.1816E-04_JPRB,4.3174E-05_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&5.8233E-06_JPRB,2.4801E-05_JPRB,3.3200E-05_JPRB,4.0180E-05_JPRB,5.1786E-05_JPRB,7.2468E-05_JPRB,&
+&1.2549E-04_JPRB,1.9856E-04_JPRB,5.6282E-05_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&8.0612E-06_JPRB,3.3094E-05_JPRB,4.4191E-05_JPRB,5.1801E-05_JPRB,5.9300E-05_JPRB,7.2075E-05_JPRB,&
+&1.0386E-04_JPRB,2.0859E-04_JPRB,6.8039E-05_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&1.3432E-06_JPRB,7.4538E-06_JPRB,1.4964E-05_JPRB,2.5625E-05_JPRB,4.3243E-05_JPRB,6.6019E-05_JPRB,&
+&1.0530E-04_JPRB,1.9952E-04_JPRB,3.1575E-05_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&1.9591E-06_JPRB,9.5155E-06_JPRB,1.6737E-05_JPRB,2.6791E-05_JPRB,4.2345E-05_JPRB,6.7439E-05_JPRB,&
+&1.0271E-04_JPRB,1.8871E-04_JPRB,3.0704E-05_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&2.8537E-06_JPRB,1.2845E-05_JPRB,1.8934E-05_JPRB,2.8752E-05_JPRB,4.4199E-05_JPRB,6.2430E-05_JPRB,&
+&1.0202E-04_JPRB,1.8062E-04_JPRB,3.4088E-05_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&4.0888E-06_JPRB,1.7612E-05_JPRB,2.3922E-05_JPRB,3.0749E-05_JPRB,4.2010E-05_JPRB,6.5728E-05_JPRB,&
+&9.6566E-05_JPRB,1.7460E-04_JPRB,4.3387E-05_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&5.7388E-06_JPRB,2.3829E-05_JPRB,3.1758E-05_JPRB,3.7789E-05_JPRB,4.5312E-05_JPRB,5.9095E-05_JPRB,&
+&1.0064E-04_JPRB,1.6850E-04_JPRB,5.1079E-05_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&9.4882E-07_JPRB,5.7155E-06_JPRB,1.1980E-05_JPRB,2.2295E-05_JPRB,3.5116E-05_JPRB,5.3339E-05_JPRB,&
+&8.8729E-05_JPRB,1.5937E-04_JPRB,2.5456E-05_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&1.3669E-06_JPRB,6.8739E-06_JPRB,1.3459E-05_JPRB,2.1396E-05_JPRB,3.6297E-05_JPRB,5.4282E-05_JPRB,&
+&8.6042E-05_JPRB,1.6025E-04_JPRB,2.6654E-05_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&1.9884E-06_JPRB,9.0859E-06_JPRB,1.4605E-05_JPRB,2.3671E-05_JPRB,3.4093E-05_JPRB,5.5324E-05_JPRB,&
+&8.6463E-05_JPRB,1.5363E-04_JPRB,3.0684E-05_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&2.8701E-06_JPRB,1.2430E-05_JPRB,1.7294E-05_JPRB,2.4580E-05_JPRB,3.7203E-05_JPRB,5.3154E-05_JPRB,&
+&8.1963E-05_JPRB,1.5281E-04_JPRB,3.6321E-05_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&4.0709E-06_JPRB,1.7029E-05_JPRB,2.2743E-05_JPRB,2.7902E-05_JPRB,3.6353E-05_JPRB,5.3115E-05_JPRB,&
+&8.4864E-05_JPRB,1.3732E-04_JPRB,4.2547E-05_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&6.8988E-07_JPRB,4.4652E-06_JPRB,9.7580E-06_JPRB,1.7678E-05_JPRB,2.8332E-05_JPRB,4.4145E-05_JPRB,&
+&7.0109E-05_JPRB,1.2493E-04_JPRB,2.3716E-05_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&9.7314E-07_JPRB,5.0974E-06_JPRB,1.0412E-05_JPRB,1.7485E-05_JPRB,2.9376E-05_JPRB,4.4804E-05_JPRB,&
+&7.0122E-05_JPRB,1.3276E-04_JPRB,2.6375E-05_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&1.3972E-06_JPRB,6.4724E-06_JPRB,1.1564E-05_JPRB,1.8858E-05_JPRB,2.8568E-05_JPRB,4.7043E-05_JPRB,&
+&7.0202E-05_JPRB,1.2748E-04_JPRB,3.0169E-05_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&2.0156E-06_JPRB,8.7063E-06_JPRB,1.3025E-05_JPRB,2.0355E-05_JPRB,3.0069E-05_JPRB,4.4240E-05_JPRB,&
+&7.1336E-05_JPRB,1.2324E-04_JPRB,3.4994E-05_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&2.8756E-06_JPRB,1.1976E-05_JPRB,1.6242E-05_JPRB,2.1147E-05_JPRB,3.0629E-05_JPRB,4.5526E-05_JPRB,&
+&6.5474E-05_JPRB,1.2130E-04_JPRB,4.0495E-05_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&5.2255E-07_JPRB,3.4411E-06_JPRB,7.7789E-06_JPRB,1.4395E-05_JPRB,2.2965E-05_JPRB,3.5662E-05_JPRB,&
+&5.5652E-05_JPRB,9.9078E-05_JPRB,2.5677E-05_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&7.2172E-07_JPRB,4.0179E-06_JPRB,8.3376E-06_JPRB,1.4853E-05_JPRB,2.4331E-05_JPRB,3.6364E-05_JPRB,&
+&5.7791E-05_JPRB,1.0563E-04_JPRB,2.9556E-05_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&1.0201E-06_JPRB,4.7217E-06_JPRB,9.3095E-06_JPRB,1.5083E-05_JPRB,2.5365E-05_JPRB,3.7347E-05_JPRB,&
+&5.8190E-05_JPRB,1.0603E-04_JPRB,3.3998E-05_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&1.4537E-06_JPRB,6.1748E-06_JPRB,1.0020E-05_JPRB,1.6138E-05_JPRB,2.3962E-05_JPRB,3.7967E-05_JPRB,&
+&5.8451E-05_JPRB,1.0372E-04_JPRB,3.9119E-05_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&2.0693E-06_JPRB,8.4363E-06_JPRB,1.1705E-05_JPRB,1.7001E-05_JPRB,2.5826E-05_JPRB,3.5527E-05_JPRB,&
+&5.8296E-05_JPRB,1.0385E-04_JPRB,4.4936E-05_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&4.1700E-07_JPRB,2.7639E-06_JPRB,6.4938E-06_JPRB,1.1630E-05_JPRB,1.8371E-05_JPRB,2.7706E-05_JPRB,&
+&4.4850E-05_JPRB,8.0696E-05_JPRB,3.5956E-05_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&5.6411E-07_JPRB,3.1556E-06_JPRB,6.9457E-06_JPRB,1.2120E-05_JPRB,1.9397E-05_JPRB,2.9581E-05_JPRB,&
+&4.6513E-05_JPRB,8.4727E-05_JPRB,4.2511E-05_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&7.8647E-07_JPRB,3.6535E-06_JPRB,7.3255E-06_JPRB,1.2353E-05_JPRB,2.0079E-05_JPRB,3.0844E-05_JPRB,&
+&4.7401E-05_JPRB,8.6525E-05_JPRB,4.9724E-05_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&1.1061E-06_JPRB,4.5424E-06_JPRB,7.9917E-06_JPRB,1.3185E-05_JPRB,1.9791E-05_JPRB,3.2038E-05_JPRB,&
+&4.8054E-05_JPRB,8.5457E-05_JPRB,5.7233E-05_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&1.5569E-06_JPRB,6.0599E-06_JPRB,9.0209E-06_JPRB,1.3990E-05_JPRB,2.0815E-05_JPRB,3.0475E-05_JPRB,&
+&4.9899E-05_JPRB,8.4659E-05_JPRB,6.5356E-05_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&3.4646E-07_JPRB,2.3339E-06_JPRB,5.2376E-06_JPRB,9.2182E-06_JPRB,1.4337E-05_JPRB,2.2490E-05_JPRB,&
+&3.6396E-05_JPRB,6.1412E-05_JPRB,1.0490E-04_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&4.5919E-07_JPRB,2.4585E-06_JPRB,5.5676E-06_JPRB,9.8533E-06_JPRB,1.5559E-05_JPRB,2.3683E-05_JPRB,&
+&3.6999E-05_JPRB,7.0677E-05_JPRB,1.2405E-04_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&6.2898E-07_JPRB,2.9262E-06_JPRB,5.8022E-06_JPRB,1.0344E-05_JPRB,1.6840E-05_JPRB,2.4691E-05_JPRB,&
+&3.8818E-05_JPRB,7.0031E-05_JPRB,1.4290E-04_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&8.7625E-07_JPRB,3.4474E-06_JPRB,6.4904E-06_JPRB,1.0589E-05_JPRB,1.7378E-05_JPRB,2.5849E-05_JPRB,&
+&3.9400E-05_JPRB,7.0716E-05_JPRB,1.6112E-04_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&1.2209E-06_JPRB,4.4922E-06_JPRB,7.0958E-06_JPRB,1.1298E-05_JPRB,1.6936E-05_JPRB,2.6020E-05_JPRB,&
+&4.0325E-05_JPRB,7.2083E-05_JPRB,1.7893E-04_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&3.1214E-07_JPRB,1.9536E-06_JPRB,4.2576E-06_JPRB,7.3396E-06_JPRB,1.1621E-05_JPRB,1.8021E-05_JPRB,&
+&2.8013E-05_JPRB,4.7749E-05_JPRB,4.9962E-04_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&4.0887E-07_JPRB,2.0598E-06_JPRB,4.7149E-06_JPRB,8.0606E-06_JPRB,1.2573E-05_JPRB,1.8809E-05_JPRB,&
+&3.0275E-05_JPRB,5.6188E-05_JPRB,5.8548E-04_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&5.5155E-07_JPRB,2.4175E-06_JPRB,4.9545E-06_JPRB,8.5941E-06_JPRB,1.3457E-05_JPRB,2.0204E-05_JPRB,&
+&3.1138E-05_JPRB,5.6286E-05_JPRB,6.6291E-04_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&7.5650E-07_JPRB,2.8298E-06_JPRB,5.3256E-06_JPRB,8.7402E-06_JPRB,1.3978E-05_JPRB,2.1601E-05_JPRB,&
+&3.2082E-05_JPRB,5.7693E-05_JPRB,7.2972E-04_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&1.0427E-06_JPRB,3.5400E-06_JPRB,5.8501E-06_JPRB,9.4137E-06_JPRB,1.4055E-05_JPRB,2.2092E-05_JPRB,&
+&3.3371E-05_JPRB,5.7680E-05_JPRB,7.8611E-04_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&3.2074E-07_JPRB,1.7276E-06_JPRB,3.6239E-06_JPRB,6.1854E-06_JPRB,9.6607E-06_JPRB,1.4993E-05_JPRB,&
+&2.3443E-05_JPRB,4.1061E-05_JPRB,1.0142E-03_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&4.2113E-07_JPRB,1.8116E-06_JPRB,4.1199E-06_JPRB,6.7716E-06_JPRB,1.0543E-05_JPRB,1.5526E-05_JPRB,&
+&2.4849E-05_JPRB,4.5454E-05_JPRB,1.1742E-03_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&5.6514E-07_JPRB,2.1552E-06_JPRB,4.2148E-06_JPRB,7.3585E-06_JPRB,1.1239E-05_JPRB,1.6846E-05_JPRB,&
+&2.5655E-05_JPRB,4.5531E-05_JPRB,1.3139E-03_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&7.6814E-07_JPRB,2.5322E-06_JPRB,4.6852E-06_JPRB,7.3538E-06_JPRB,1.1830E-05_JPRB,1.8155E-05_JPRB,&
+&2.6824E-05_JPRB,4.7139E-05_JPRB,1.4305E-03_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&1.0464E-06_JPRB,3.2313E-06_JPRB,5.0889E-06_JPRB,8.1260E-06_JPRB,1.1741E-05_JPRB,1.8567E-05_JPRB,&
+&2.7673E-05_JPRB,4.7684E-05_JPRB,1.5261E-03_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&3.0483E-07_JPRB,1.4986E-06_JPRB,3.1036E-06_JPRB,5.2551E-06_JPRB,7.9883E-06_JPRB,1.2411E-05_JPRB,&
+&1.9208E-05_JPRB,3.3894E-05_JPRB,1.3243E-03_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&4.0026E-07_JPRB,1.5746E-06_JPRB,3.5034E-06_JPRB,5.7409E-06_JPRB,8.9248E-06_JPRB,1.2928E-05_JPRB,&
+&2.0014E-05_JPRB,3.7406E-05_JPRB,1.5202E-03_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&5.3553E-07_JPRB,1.8879E-06_JPRB,3.5598E-06_JPRB,6.2204E-06_JPRB,9.4506E-06_JPRB,1.4131E-05_JPRB,&
+&2.1193E-05_JPRB,3.7290E-05_JPRB,1.6892E-03_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&7.2441E-07_JPRB,2.2261E-06_JPRB,4.0611E-06_JPRB,6.2008E-06_JPRB,9.9865E-06_JPRB,1.4941E-05_JPRB,&
+&2.2423E-05_JPRB,3.8766E-05_JPRB,1.8301E-03_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&9.8233E-07_JPRB,2.8782E-06_JPRB,4.3585E-06_JPRB,6.9707E-06_JPRB,9.7990E-06_JPRB,1.5463E-05_JPRB,&
+&2.2949E-05_JPRB,3.9658E-05_JPRB,1.9441E-03_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&2.9003E-07_JPRB,1.3003E-06_JPRB,2.6851E-06_JPRB,4.4901E-06_JPRB,6.6847E-06_JPRB,1.0336E-05_JPRB,&
+&1.6084E-05_JPRB,2.8206E-05_JPRB,1.3971E-03_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&3.7990E-07_JPRB,1.3887E-06_JPRB,2.9888E-06_JPRB,4.8895E-06_JPRB,7.4887E-06_JPRB,1.0848E-05_JPRB,&
+&1.6497E-05_JPRB,3.0927E-05_JPRB,1.5951E-03_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&5.0572E-07_JPRB,1.6533E-06_JPRB,3.0166E-06_JPRB,5.2825E-06_JPRB,8.0084E-06_JPRB,1.1877E-05_JPRB,&
+&1.7766E-05_JPRB,3.0474E-05_JPRB,1.7653E-03_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&6.7947E-07_JPRB,1.9700E-06_JPRB,3.4410E-06_JPRB,5.2325E-06_JPRB,8.4395E-06_JPRB,1.2460E-05_JPRB,&
+&1.8625E-05_JPRB,3.2158E-05_JPRB,1.9067E-03_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&9.1576E-07_JPRB,2.5777E-06_JPRB,3.7459E-06_JPRB,5.9026E-06_JPRB,8.2962E-06_JPRB,1.2772E-05_JPRB,&
+&1.8972E-05_JPRB,3.2948E-05_JPRB,2.0202E-03_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&1.2955E-05_JPRB,5.0522E-05_JPRB,7.1945E-05_JPRB,8.6154E-05_JPRB,1.0208E-04_JPRB,1.2598E-04_JPRB,&
+&1.9123E-04_JPRB,3.6418E-04_JPRB,1.3186E-04_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&1.9287E-05_JPRB,7.0010E-05_JPRB,9.9593E-05_JPRB,1.2286E-04_JPRB,1.3525E-04_JPRB,1.5548E-04_JPRB,&
+&2.0918E-04_JPRB,3.4739E-04_JPRB,1.7322E-04_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&2.7759E-05_JPRB,9.4510E-05_JPRB,1.3259E-04_JPRB,1.6366E-04_JPRB,1.8879E-04_JPRB,2.0943E-04_JPRB,&
+&2.3157E-04_JPRB,3.4811E-04_JPRB,1.6150E-04_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&3.8738E-05_JPRB,1.2422E-04_JPRB,1.7221E-04_JPRB,2.0992E-04_JPRB,2.4272E-04_JPRB,2.7453E-04_JPRB,&
+&3.1488E-04_JPRB,3.8180E-04_JPRB,1.6247E-04_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&5.2551E-05_JPRB,1.5948E-04_JPRB,2.1800E-04_JPRB,2.6091E-04_JPRB,2.8985E-04_JPRB,3.1670E-04_JPRB,&
+&3.5730E-04_JPRB,5.0275E-04_JPRB,1.6769E-04_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&1.0215E-05_JPRB,3.8380E-05_JPRB,5.3048E-05_JPRB,6.6381E-05_JPRB,7.9446E-05_JPRB,1.0242E-04_JPRB,&
+&1.6771E-04_JPRB,3.2794E-04_JPRB,9.6316E-05_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&1.5451E-05_JPRB,5.4104E-05_JPRB,7.5600E-05_JPRB,9.3324E-05_JPRB,1.0289E-04_JPRB,1.2339E-04_JPRB,&
+&1.5508E-04_JPRB,2.9561E-04_JPRB,1.1950E-04_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&2.2597E-05_JPRB,7.3963E-05_JPRB,1.0253E-04_JPRB,1.2549E-04_JPRB,1.4695E-04_JPRB,1.5501E-04_JPRB,&
+&1.8766E-04_JPRB,2.7580E-04_JPRB,1.1963E-04_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&3.1981E-05_JPRB,9.8266E-05_JPRB,1.3455E-04_JPRB,1.6363E-04_JPRB,1.9057E-04_JPRB,2.1405E-04_JPRB,&
+&2.4009E-04_JPRB,3.0871E-04_JPRB,1.1944E-04_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&4.3949E-05_JPRB,1.2724E-04_JPRB,1.7210E-04_JPRB,2.0576E-04_JPRB,2.2967E-04_JPRB,2.5641E-04_JPRB,&
+&2.9387E-04_JPRB,3.8545E-04_JPRB,1.2834E-04_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&7.2365E-06_JPRB,2.6998E-05_JPRB,3.6477E-05_JPRB,4.7217E-05_JPRB,5.6642E-05_JPRB,8.7936E-05_JPRB,&
+&1.4529E-04_JPRB,2.7769E-04_JPRB,6.9628E-05_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&1.1199E-05_JPRB,3.9041E-05_JPRB,5.3564E-05_JPRB,6.4272E-05_JPRB,7.6774E-05_JPRB,9.0855E-05_JPRB,&
+&1.2382E-04_JPRB,2.6260E-04_JPRB,7.7539E-05_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&1.6746E-05_JPRB,5.4459E-05_JPRB,7.4537E-05_JPRB,8.9917E-05_JPRB,1.0355E-04_JPRB,1.1572E-04_JPRB,&
+&1.4649E-04_JPRB,2.2179E-04_JPRB,7.9988E-05_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&2.4191E-05_JPRB,7.3480E-05_JPRB,9.9615E-05_JPRB,1.2140E-04_JPRB,1.3959E-04_JPRB,1.5714E-04_JPRB,&
+&1.6549E-04_JPRB,2.4024E-04_JPRB,8.5666E-05_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&3.3870E-05_JPRB,9.6615E-05_JPRB,1.2939E-04_JPRB,1.5483E-04_JPRB,1.7605E-04_JPRB,2.0033E-04_JPRB,&
+&2.2747E-04_JPRB,2.7100E-04_JPRB,9.7295E-05_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&4.9164E-06_JPRB,1.8370E-05_JPRB,2.4721E-05_JPRB,3.3121E-05_JPRB,4.7620E-05_JPRB,7.5266E-05_JPRB,&
+&1.2052E-04_JPRB,2.1534E-04_JPRB,5.2534E-05_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&7.7659E-06_JPRB,2.7326E-05_JPRB,3.6365E-05_JPRB,4.5331E-05_JPRB,5.4377E-05_JPRB,7.0048E-05_JPRB,&
+&1.1606E-04_JPRB,2.2356E-04_JPRB,5.6606E-05_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&1.1872E-05_JPRB,3.9091E-05_JPRB,5.2753E-05_JPRB,6.2810E-05_JPRB,7.2334E-05_JPRB,8.5510E-05_JPRB,&
+&1.0655E-04_JPRB,2.0132E-04_JPRB,6.1013E-05_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&1.7537E-05_JPRB,5.3794E-05_JPRB,7.2225E-05_JPRB,8.6566E-05_JPRB,1.0009E-04_JPRB,1.0905E-04_JPRB,&
+&1.2927E-04_JPRB,1.7979E-04_JPRB,6.7247E-05_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&2.5077E-05_JPRB,7.1949E-05_JPRB,9.5586E-05_JPRB,1.1422E-04_JPRB,1.3046E-04_JPRB,1.4874E-04_JPRB,&
+&1.6151E-04_JPRB,2.1004E-04_JPRB,7.8070E-05_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&3.3274E-06_JPRB,1.2413E-05_JPRB,1.6893E-05_JPRB,2.5297E-05_JPRB,3.9702E-05_JPRB,6.2471E-05_JPRB,&
+&9.4799E-05_JPRB,1.7379E-04_JPRB,4.3352E-05_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&5.3144E-06_JPRB,1.8924E-05_JPRB,2.4595E-05_JPRB,3.1378E-05_JPRB,3.9382E-05_JPRB,6.2226E-05_JPRB,&
+&9.6051E-05_JPRB,1.8141E-04_JPRB,4.9071E-05_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&8.2729E-06_JPRB,2.7735E-05_JPRB,3.6853E-05_JPRB,4.3473E-05_JPRB,5.3077E-05_JPRB,6.0111E-05_JPRB,&
+&8.8205E-05_JPRB,1.7170E-04_JPRB,5.3581E-05_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&1.2483E-05_JPRB,3.8936E-05_JPRB,5.1944E-05_JPRB,6.0771E-05_JPRB,7.0416E-05_JPRB,8.1406E-05_JPRB,&
+&9.7912E-05_JPRB,1.4624E-04_JPRB,6.0502E-05_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&1.8234E-05_JPRB,5.2997E-05_JPRB,7.0214E-05_JPRB,8.3889E-05_JPRB,9.4583E-05_JPRB,1.0646E-04_JPRB,&
+&1.1645E-04_JPRB,1.6664E-04_JPRB,6.9524E-05_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&2.2627E-06_JPRB,8.2256E-06_JPRB,1.2662E-05_JPRB,2.0881E-05_JPRB,3.2287E-05_JPRB,4.9842E-05_JPRB,&
+&7.8514E-05_JPRB,1.5143E-04_JPRB,4.2185E-05_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&3.5902E-06_JPRB,1.2715E-05_JPRB,1.6777E-05_JPRB,2.2883E-05_JPRB,3.3890E-05_JPRB,5.0807E-05_JPRB,&
+&8.0753E-05_JPRB,1.4463E-04_JPRB,4.8590E-05_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&5.6436E-06_JPRB,1.9109E-05_JPRB,2.4998E-05_JPRB,3.0305E-05_JPRB,3.7831E-05_JPRB,4.7255E-05_JPRB,&
+&7.8945E-05_JPRB,1.4406E-04_JPRB,5.5296E-05_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&8.6680E-06_JPRB,2.7468E-05_JPRB,3.6416E-05_JPRB,4.2070E-05_JPRB,4.9055E-05_JPRB,5.8245E-05_JPRB,&
+&7.2889E-05_JPRB,1.3759E-04_JPRB,6.2699E-05_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&1.2910E-05_JPRB,3.8070E-05_JPRB,5.0552E-05_JPRB,5.9531E-05_JPRB,6.5990E-05_JPRB,7.5485E-05_JPRB,&
+&9.0151E-05_JPRB,1.2519E-04_JPRB,7.1158E-05_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&1.6260E-06_JPRB,5.6512E-06_JPRB,1.0534E-05_JPRB,1.6548E-05_JPRB,2.5722E-05_JPRB,3.9212E-05_JPRB,&
+&6.5255E-05_JPRB,1.1642E-04_JPRB,4.8396E-05_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&2.4977E-06_JPRB,8.5111E-06_JPRB,1.1552E-05_JPRB,1.8620E-05_JPRB,2.6964E-05_JPRB,4.1086E-05_JPRB,&
+&6.5326E-05_JPRB,1.2038E-04_JPRB,5.6755E-05_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&3.8937E-06_JPRB,1.3083E-05_JPRB,1.6837E-05_JPRB,2.1037E-05_JPRB,2.8103E-05_JPRB,4.1971E-05_JPRB,&
+&6.4916E-05_JPRB,1.2035E-04_JPRB,6.5643E-05_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&6.0131E-06_JPRB,1.9182E-05_JPRB,2.5262E-05_JPRB,2.9578E-05_JPRB,3.5380E-05_JPRB,4.1824E-05_JPRB,&
+&6.4389E-05_JPRB,1.1625E-04_JPRB,7.5112E-05_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&9.0775E-06_JPRB,2.7049E-05_JPRB,3.5910E-05_JPRB,4.1673E-05_JPRB,4.7430E-05_JPRB,5.6675E-05_JPRB,&
+&6.4662E-05_JPRB,1.0376E-04_JPRB,8.5479E-05_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&1.2762E-06_JPRB,4.2855E-06_JPRB,8.2820E-06_JPRB,1.3051E-05_JPRB,1.9907E-05_JPRB,3.3971E-05_JPRB,&
+&5.0446E-05_JPRB,8.6971E-05_JPRB,7.7745E-05_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&1.8844E-06_JPRB,5.9050E-06_JPRB,8.9489E-06_JPRB,1.4806E-05_JPRB,2.1839E-05_JPRB,3.2608E-05_JPRB,&
+&5.2540E-05_JPRB,9.7610E-05_JPRB,8.9498E-05_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&2.8385E-06_JPRB,8.9737E-06_JPRB,1.1895E-05_JPRB,1.5870E-05_JPRB,2.4156E-05_JPRB,3.3906E-05_JPRB,&
+&5.3605E-05_JPRB,9.6849E-05_JPRB,1.0287E-04_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&4.3106E-06_JPRB,1.3404E-05_JPRB,1.7498E-05_JPRB,2.1009E-05_JPRB,2.6036E-05_JPRB,3.4758E-05_JPRB,&
+&5.4115E-05_JPRB,9.7671E-05_JPRB,1.1774E-04_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&6.4933E-06_JPRB,1.9198E-05_JPRB,2.5108E-05_JPRB,2.9532E-05_JPRB,3.3547E-05_JPRB,4.0870E-05_JPRB,&
+&5.0672E-05_JPRB,9.4048E-05_JPRB,1.3326E-04_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&1.0706E-06_JPRB,3.3489E-06_JPRB,6.5283E-06_JPRB,1.0192E-05_JPRB,1.7278E-05_JPRB,2.6238E-05_JPRB,&
+&3.9041E-05_JPRB,7.0346E-05_JPRB,2.7103E-04_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&1.5238E-06_JPRB,4.4647E-06_JPRB,7.4896E-06_JPRB,1.1805E-05_JPRB,1.7404E-05_JPRB,2.6241E-05_JPRB,&
+&4.5076E-05_JPRB,7.3357E-05_JPRB,3.0478E-04_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&2.2245E-06_JPRB,6.3482E-06_JPRB,8.7814E-06_JPRB,1.3182E-05_JPRB,1.8649E-05_JPRB,2.8139E-05_JPRB,&
+&4.2432E-05_JPRB,8.1918E-05_JPRB,3.3943E-04_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&3.2853E-06_JPRB,9.5377E-06_JPRB,1.2081E-05_JPRB,1.5048E-05_JPRB,2.0438E-05_JPRB,2.9250E-05_JPRB,&
+&4.4492E-05_JPRB,8.0054E-05_JPRB,3.7569E-04_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&4.8340E-06_JPRB,1.3704E-05_JPRB,1.7727E-05_JPRB,2.0846E-05_JPRB,2.4389E-05_JPRB,3.0169E-05_JPRB,&
+&4.5558E-05_JPRB,7.6780E-05_JPRB,4.1363E-04_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&1.0087E-06_JPRB,2.8522E-06_JPRB,5.3847E-06_JPRB,8.7589E-06_JPRB,1.3656E-05_JPRB,2.0793E-05_JPRB,&
+&3.0265E-05_JPRB,5.6466E-05_JPRB,1.4467E-03_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&1.3893E-06_JPRB,3.6572E-06_JPRB,6.0381E-06_JPRB,9.5656E-06_JPRB,1.3744E-05_JPRB,2.2378E-05_JPRB,&
+&3.6073E-05_JPRB,5.8999E-05_JPRB,1.6134E-03_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&1.9601E-06_JPRB,4.9746E-06_JPRB,7.1675E-06_JPRB,1.0782E-05_JPRB,1.5548E-05_JPRB,2.2425E-05_JPRB,&
+&3.4813E-05_JPRB,6.8188E-05_JPRB,1.7742E-03_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&2.8046E-06_JPRB,7.3061E-06_JPRB,9.2760E-06_JPRB,1.2016E-05_JPRB,1.7674E-05_JPRB,2.3526E-05_JPRB,&
+&3.6626E-05_JPRB,6.3451E-05_JPRB,1.9257E-03_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&4.0204E-06_JPRB,1.0448E-05_JPRB,1.3168E-05_JPRB,1.5711E-05_JPRB,1.8780E-05_JPRB,2.5290E-05_JPRB,&
+&3.7179E-05_JPRB,6.5468E-05_JPRB,2.0654E-03_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&1.1167E-06_JPRB,2.7196E-06_JPRB,4.8414E-06_JPRB,7.5750E-06_JPRB,1.1619E-05_JPRB,1.6844E-05_JPRB,&
+&2.5920E-05_JPRB,4.2497E-05_JPRB,3.0648E-03_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&1.5177E-06_JPRB,3.5342E-06_JPRB,5.4336E-06_JPRB,8.4346E-06_JPRB,1.1729E-05_JPRB,1.8362E-05_JPRB,&
+&2.9194E-05_JPRB,5.0129E-05_JPRB,3.3976E-03_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&2.0984E-06_JPRB,4.8006E-06_JPRB,6.5451E-06_JPRB,9.5029E-06_JPRB,1.3465E-05_JPRB,1.9020E-05_JPRB,&
+&2.8692E-05_JPRB,5.7928E-05_JPRB,3.7050E-03_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&2.9335E-06_JPRB,6.8708E-06_JPRB,8.4101E-06_JPRB,1.0863E-05_JPRB,1.4762E-05_JPRB,2.0091E-05_JPRB,&
+&3.0371E-05_JPRB,5.2028E-05_JPRB,3.9809E-03_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&4.1000E-06_JPRB,9.6543E-06_JPRB,1.1857E-05_JPRB,1.3714E-05_JPRB,1.6526E-05_JPRB,2.1427E-05_JPRB,&
+&3.1464E-05_JPRB,5.4245E-05_JPRB,4.2143E-03_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&1.1265E-06_JPRB,2.5186E-06_JPRB,4.3674E-06_JPRB,6.5192E-06_JPRB,9.8193E-06_JPRB,1.4195E-05_JPRB,&
+&2.1669E-05_JPRB,3.5591E-05_JPRB,4.1354E-03_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&1.5273E-06_JPRB,3.2471E-06_JPRB,4.8453E-06_JPRB,7.4929E-06_JPRB,9.9333E-06_JPRB,1.5224E-05_JPRB,&
+&2.4490E-05_JPRB,4.2520E-05_JPRB,4.5631E-03_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&2.0931E-06_JPRB,4.4632E-06_JPRB,5.8990E-06_JPRB,8.1723E-06_JPRB,1.1637E-05_JPRB,1.5989E-05_JPRB,&
+&2.3803E-05_JPRB,4.4958E-05_JPRB,4.9406E-03_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&2.8927E-06_JPRB,6.3250E-06_JPRB,7.6186E-06_JPRB,9.4669E-06_JPRB,1.2563E-05_JPRB,1.7445E-05_JPRB,&
+&2.5222E-05_JPRB,4.2668E-05_JPRB,5.2603E-03_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&3.9848E-06_JPRB,8.7921E-06_JPRB,1.0605E-05_JPRB,1.2004E-05_JPRB,1.4341E-05_JPRB,1.8049E-05_JPRB,&
+&2.6521E-05_JPRB,4.4754E-05_JPRB,5.5165E-03_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&1.1328E-06_JPRB,2.3238E-06_JPRB,3.9430E-06_JPRB,5.6932E-06_JPRB,8.4038E-06_JPRB,1.1800E-05_JPRB,&
+&1.7829E-05_JPRB,3.0820E-05_JPRB,4.4819E-03_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&1.5311E-06_JPRB,3.0098E-06_JPRB,4.3521E-06_JPRB,6.6679E-06_JPRB,8.7081E-06_JPRB,1.2897E-05_JPRB,&
+&1.9883E-05_JPRB,3.4493E-05_JPRB,4.9164E-03_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&2.0853E-06_JPRB,4.1223E-06_JPRB,5.4114E-06_JPRB,7.2554E-06_JPRB,1.0229E-05_JPRB,1.3641E-05_JPRB,&
+&1.9729E-05_JPRB,3.6438E-05_JPRB,5.2852E-03_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&2.8506E-06_JPRB,5.8568E-06_JPRB,6.9938E-06_JPRB,8.4840E-06_JPRB,1.0942E-05_JPRB,1.5066E-05_JPRB,&
+&2.1270E-05_JPRB,3.5313E-05_JPRB,5.5871E-03_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&3.8711E-06_JPRB,8.0712E-06_JPRB,9.6159E-06_JPRB,1.0719E-05_JPRB,1.2561E-05_JPRB,1.5293E-05_JPRB,&
+&2.2681E-05_JPRB,3.7058E-05_JPRB,5.8266E-03_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&7.4893E-05_JPRB,1.7660E-04_JPRB,2.0743E-04_JPRB,2.2345E-04_JPRB,2.5541E-04_JPRB,3.0113E-04_JPRB,&
+&4.0065E-04_JPRB,5.1140E-04_JPRB,1.9420E-04_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&1.0396E-04_JPRB,2.3012E-04_JPRB,2.6622E-04_JPRB,2.8243E-04_JPRB,2.9424E-04_JPRB,3.3000E-04_JPRB,&
+&4.1387E-04_JPRB,6.5618E-04_JPRB,1.7248E-04_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&1.3874E-04_JPRB,2.9171E-04_JPRB,3.3413E-04_JPRB,3.5198E-04_JPRB,3.5734E-04_JPRB,3.6401E-04_JPRB,&
+&4.2489E-04_JPRB,6.4403E-04_JPRB,1.9641E-04_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&1.7941E-04_JPRB,3.6434E-04_JPRB,4.1317E-04_JPRB,4.3271E-04_JPRB,4.3728E-04_JPRB,4.3279E-04_JPRB,&
+&4.4184E-04_JPRB,6.1293E-04_JPRB,2.4660E-04_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&2.2524E-04_JPRB,4.4700E-04_JPRB,5.0389E-04_JPRB,5.2899E-04_JPRB,5.4228E-04_JPRB,5.4473E-04_JPRB,&
+&5.3368E-04_JPRB,5.6423E-04_JPRB,3.1492E-04_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&5.8910E-05_JPRB,1.3730E-04_JPRB,1.6111E-04_JPRB,1.7338E-04_JPRB,1.9974E-04_JPRB,2.3614E-04_JPRB,&
+&3.1448E-04_JPRB,3.8866E-04_JPRB,1.4405E-04_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&8.3036E-05_JPRB,1.8135E-04_JPRB,2.0964E-04_JPRB,2.2070E-04_JPRB,2.3158E-04_JPRB,2.7057E-04_JPRB,&
+&3.3372E-04_JPRB,5.4726E-04_JPRB,1.2817E-04_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&1.1213E-04_JPRB,2.3284E-04_JPRB,2.6662E-04_JPRB,2.8050E-04_JPRB,2.8374E-04_JPRB,2.9072E-04_JPRB,&
+&3.5956E-04_JPRB,5.3062E-04_JPRB,1.4567E-04_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&1.4639E-04_JPRB,2.9331E-04_JPRB,3.3229E-04_JPRB,3.4773E-04_JPRB,3.4771E-04_JPRB,3.4598E-04_JPRB,&
+&3.5609E-04_JPRB,5.3796E-04_JPRB,1.8917E-04_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&1.8573E-04_JPRB,3.6333E-04_JPRB,4.0899E-04_JPRB,4.2805E-04_JPRB,4.3596E-04_JPRB,4.3023E-04_JPRB,&
+&4.2036E-04_JPRB,4.7310E-04_JPRB,2.4106E-04_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&4.2697E-05_JPRB,9.9737E-05_JPRB,1.1762E-04_JPRB,1.3175E-04_JPRB,1.5206E-04_JPRB,1.7738E-04_JPRB,&
+&2.2461E-04_JPRB,3.0012E-04_JPRB,9.0760E-05_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&6.1628E-05_JPRB,1.3453E-04_JPRB,1.5553E-04_JPRB,1.6395E-04_JPRB,1.7863E-04_JPRB,2.1026E-04_JPRB,&
+&2.6559E-04_JPRB,4.0665E-04_JPRB,9.5213E-05_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&8.5155E-05_JPRB,1.7580E-04_JPRB,2.0156E-04_JPRB,2.1203E-04_JPRB,2.1267E-04_JPRB,2.2935E-04_JPRB,&
+&2.8279E-04_JPRB,4.3028E-04_JPRB,1.1265E-04_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&1.1317E-04_JPRB,2.2386E-04_JPRB,2.5438E-04_JPRB,2.6544E-04_JPRB,2.6602E-04_JPRB,2.6653E-04_JPRB,&
+&2.9745E-04_JPRB,4.2745E-04_JPRB,1.4173E-04_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&1.4597E-04_JPRB,2.8045E-04_JPRB,3.1649E-04_JPRB,3.3077E-04_JPRB,3.3240E-04_JPRB,3.2175E-04_JPRB,&
+&3.2192E-04_JPRB,4.1153E-04_JPRB,1.7765E-04_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&2.9896E-05_JPRB,7.0709E-05_JPRB,8.4360E-05_JPRB,9.7466E-05_JPRB,1.0874E-04_JPRB,1.3074E-04_JPRB,&
+&1.6227E-04_JPRB,2.5464E-04_JPRB,6.8134E-05_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&4.4341E-05_JPRB,9.6962E-05_JPRB,1.1247E-04_JPRB,1.1929E-04_JPRB,1.3785E-04_JPRB,1.5834E-04_JPRB,&
+&2.0071E-04_JPRB,2.9189E-04_JPRB,7.8206E-05_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&6.2914E-05_JPRB,1.2902E-04_JPRB,1.4817E-04_JPRB,1.5527E-04_JPRB,1.5849E-04_JPRB,1.8569E-04_JPRB,&
+&2.2497E-04_JPRB,3.4124E-04_JPRB,9.0845E-05_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&8.5677E-05_JPRB,1.6689E-04_JPRB,1.9068E-04_JPRB,1.9916E-04_JPRB,1.9978E-04_JPRB,2.0155E-04_JPRB,&
+&2.4936E-04_JPRB,3.5340E-04_JPRB,1.0988E-04_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&1.1242E-04_JPRB,2.1149E-04_JPRB,2.3915E-04_JPRB,2.5028E-04_JPRB,2.4989E-04_JPRB,2.4272E-04_JPRB,&
+&2.4831E-04_JPRB,3.6709E-04_JPRB,1.3381E-04_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&2.0688E-05_JPRB,4.9203E-05_JPRB,5.9785E-05_JPRB,6.6990E-05_JPRB,7.8124E-05_JPRB,9.2624E-05_JPRB,&
+&1.2472E-04_JPRB,2.0745E-04_JPRB,6.1812E-05_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&3.1637E-05_JPRB,6.9271E-05_JPRB,8.0604E-05_JPRB,9.0077E-05_JPRB,1.0181E-04_JPRB,1.1707E-04_JPRB,&
+&1.4853E-04_JPRB,2.1722E-04_JPRB,7.1005E-05_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&4.6076E-05_JPRB,9.3625E-05_JPRB,1.0769E-04_JPRB,1.1334E-04_JPRB,1.2174E-04_JPRB,1.4414E-04_JPRB,&
+&1.7668E-04_JPRB,2.5800E-04_JPRB,8.3094E-05_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&6.4341E-05_JPRB,1.2346E-04_JPRB,1.4103E-04_JPRB,1.4850E-04_JPRB,1.4693E-04_JPRB,1.5815E-04_JPRB,&
+&1.9286E-04_JPRB,2.8817E-04_JPRB,9.6701E-05_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&8.6238E-05_JPRB,1.5868E-04_JPRB,1.7942E-04_JPRB,1.8707E-04_JPRB,1.8806E-04_JPRB,1.8319E-04_JPRB,&
+&2.0554E-04_JPRB,2.8611E-04_JPRB,1.1287E-04_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&1.4006E-05_JPRB,3.3343E-05_JPRB,4.0079E-05_JPRB,4.5588E-05_JPRB,5.4107E-05_JPRB,6.6418E-05_JPRB,&
+&1.0066E-04_JPRB,1.4196E-04_JPRB,6.6243E-05_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&2.2071E-05_JPRB,4.8614E-05_JPRB,5.7228E-05_JPRB,6.5093E-05_JPRB,7.1721E-05_JPRB,8.5635E-05_JPRB,&
+&1.0856E-04_JPRB,1.8021E-04_JPRB,7.5554E-05_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&3.3040E-05_JPRB,6.6682E-05_JPRB,7.6698E-05_JPRB,8.2380E-05_JPRB,9.3552E-05_JPRB,1.0700E-04_JPRB,&
+&1.3596E-04_JPRB,1.9405E-04_JPRB,8.6063E-05_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&4.7386E-05_JPRB,8.9793E-05_JPRB,1.0237E-04_JPRB,1.0759E-04_JPRB,1.0965E-04_JPRB,1.2726E-04_JPRB,&
+&1.5398E-04_JPRB,2.2704E-04_JPRB,9.8696E-05_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&6.5121E-05_JPRB,1.1757E-04_JPRB,1.3268E-04_JPRB,1.3869E-04_JPRB,1.4006E-04_JPRB,1.3836E-04_JPRB,&
+&1.7051E-04_JPRB,2.3669E-04_JPRB,1.1305E-04_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&9.5061E-06_JPRB,2.2311E-05_JPRB,2.6088E-05_JPRB,3.0162E-05_JPRB,3.7877E-05_JPRB,5.4505E-05_JPRB,&
+&7.5227E-05_JPRB,1.1255E-04_JPRB,8.3483E-05_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&1.5323E-05_JPRB,3.3598E-05_JPRB,4.0386E-05_JPRB,4.3881E-05_JPRB,5.0583E-05_JPRB,6.2493E-05_JPRB,&
+&8.2842E-05_JPRB,1.4322E-04_JPRB,9.4311E-05_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&2.3596E-05_JPRB,4.7494E-05_JPRB,5.4556E-05_JPRB,6.1372E-05_JPRB,6.7015E-05_JPRB,7.9350E-05_JPRB,&
+&9.7496E-05_JPRB,1.4436E-04_JPRB,1.0703E-04_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&3.4570E-05_JPRB,6.4860E-05_JPRB,7.3694E-05_JPRB,7.7754E-05_JPRB,8.4695E-05_JPRB,9.7029E-05_JPRB,&
+&1.1678E-04_JPRB,1.6858E-04_JPRB,1.2127E-04_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&4.8551E-05_JPRB,8.6609E-05_JPRB,9.7619E-05_JPRB,1.0164E-04_JPRB,1.0226E-04_JPRB,1.0885E-04_JPRB,&
+&1.3405E-04_JPRB,1.9133E-04_JPRB,1.3656E-04_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&6.7311E-06_JPRB,1.4755E-05_JPRB,1.6935E-05_JPRB,2.1463E-05_JPRB,3.1231E-05_JPRB,4.0742E-05_JPRB,&
+&5.6656E-05_JPRB,8.5927E-05_JPRB,1.5049E-04_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&1.0838E-05_JPRB,2.3183E-05_JPRB,2.7453E-05_JPRB,3.0553E-05_JPRB,3.5694E-05_JPRB,4.6374E-05_JPRB,&
+&6.9419E-05_JPRB,1.0643E-04_JPRB,1.6866E-04_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&1.6914E-05_JPRB,3.3766E-05_JPRB,3.8989E-05_JPRB,4.4447E-05_JPRB,4.8070E-05_JPRB,5.7198E-05_JPRB,&
+&7.1116E-05_JPRB,1.2478E-04_JPRB,1.8779E-04_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&2.5195E-05_JPRB,4.6972E-05_JPRB,5.3026E-05_JPRB,5.6927E-05_JPRB,6.4565E-05_JPRB,7.1923E-05_JPRB,&
+&9.0751E-05_JPRB,1.2249E-04_JPRB,2.0805E-04_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&3.5942E-05_JPRB,6.3786E-05_JPRB,7.1729E-05_JPRB,7.3949E-05_JPRB,7.6446E-05_JPRB,8.8163E-05_JPRB,&
+&1.0367E-04_JPRB,1.5461E-04_JPRB,2.3067E-04_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&5.1599E-06_JPRB,1.0081E-05_JPRB,1.1772E-05_JPRB,1.6698E-05_JPRB,2.2821E-05_JPRB,2.9936E-05_JPRB,&
+&4.2105E-05_JPRB,6.2990E-05_JPRB,5.8733E-04_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&8.0231E-06_JPRB,1.6031E-05_JPRB,1.8581E-05_JPRB,2.0889E-05_JPRB,2.6202E-05_JPRB,3.8502E-05_JPRB,&
+&5.1188E-05_JPRB,8.2231E-05_JPRB,6.4455E-04_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&1.2365E-05_JPRB,2.3962E-05_JPRB,2.7785E-05_JPRB,3.0574E-05_JPRB,3.4959E-05_JPRB,4.1433E-05_JPRB,&
+&5.7939E-05_JPRB,9.7311E-05_JPRB,7.0196E-04_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&1.8494E-05_JPRB,3.4148E-05_JPRB,3.8522E-05_JPRB,4.2610E-05_JPRB,4.6125E-05_JPRB,5.4566E-05_JPRB,&
+&6.5066E-05_JPRB,9.3543E-05_JPRB,7.5838E-04_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&2.6560E-05_JPRB,4.6839E-05_JPRB,5.2429E-05_JPRB,5.4183E-05_JPRB,5.9609E-05_JPRB,6.7149E-05_JPRB,&
+&7.9436E-05_JPRB,1.1417E-04_JPRB,8.1247E-04_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&4.5845E-06_JPRB,7.8051E-06_JPRB,9.3693E-06_JPRB,1.2991E-05_JPRB,1.7572E-05_JPRB,2.3437E-05_JPRB,&
+&3.3813E-05_JPRB,4.9188E-05_JPRB,3.3674E-03_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&6.8084E-06_JPRB,1.2034E-05_JPRB,1.3688E-05_JPRB,1.5733E-05_JPRB,2.1211E-05_JPRB,2.9098E-05_JPRB,&
+&3.8545E-05_JPRB,6.3500E-05_JPRB,3.6391E-03_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&1.0062E-05_JPRB,1.7982E-05_JPRB,2.0409E-05_JPRB,2.2663E-05_JPRB,2.5613E-05_JPRB,3.1784E-05_JPRB,&
+&4.7385E-05_JPRB,7.3006E-05_JPRB,3.8993E-03_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&1.4658E-05_JPRB,2.5727E-05_JPRB,2.8782E-05_JPRB,3.2310E-05_JPRB,3.4485E-05_JPRB,4.0752E-05_JPRB,&
+&4.8720E-05_JPRB,8.2499E-05_JPRB,4.1490E-03_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&2.0786E-05_JPRB,3.5657E-05_JPRB,3.9659E-05_JPRB,4.1123E-05_JPRB,4.6983E-05_JPRB,5.0556E-05_JPRB,&
+&6.3521E-05_JPRB,8.4499E-05_JPRB,4.3775E-03_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&5.0356E-06_JPRB,7.7353E-06_JPRB,8.8833E-06_JPRB,1.1452E-05_JPRB,1.5243E-05_JPRB,2.1044E-05_JPRB,&
+&2.8338E-05_JPRB,4.9949E-05_JPRB,7.2577E-03_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&7.2423E-06_JPRB,1.1514E-05_JPRB,1.2798E-05_JPRB,1.4086E-05_JPRB,1.8007E-05_JPRB,2.4558E-05_JPRB,&
+&3.3851E-05_JPRB,5.2802E-05_JPRB,7.8158E-03_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&1.0309E-05_JPRB,1.6653E-05_JPRB,1.8407E-05_JPRB,2.0089E-05_JPRB,2.2296E-05_JPRB,2.7018E-05_JPRB,&
+&3.8586E-05_JPRB,6.0068E-05_JPRB,8.3354E-03_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&1.4421E-05_JPRB,2.3379E-05_JPRB,2.5740E-05_JPRB,2.7750E-05_JPRB,3.0309E-05_JPRB,3.4851E-05_JPRB,&
+&4.1245E-05_JPRB,6.8211E-05_JPRB,8.8296E-03_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&1.9663E-05_JPRB,3.1842E-05_JPRB,3.4991E-05_JPRB,3.6140E-05_JPRB,3.9688E-05_JPRB,4.2983E-05_JPRB,&
+&5.3776E-05_JPRB,6.9907E-05_JPRB,9.2688E-03_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&5.1165E-06_JPRB,7.4029E-06_JPRB,8.1941E-06_JPRB,1.0138E-05_JPRB,1.3490E-05_JPRB,1.7256E-05_JPRB,&
+&2.4419E-05_JPRB,4.0146E-05_JPRB,9.9448E-03_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&7.2283E-06_JPRB,1.0802E-05_JPRB,1.1887E-05_JPRB,1.2642E-05_JPRB,1.5734E-05_JPRB,2.0542E-05_JPRB,&
+&2.7886E-05_JPRB,4.3910E-05_JPRB,1.0705E-02_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&1.0065E-05_JPRB,1.5284E-05_JPRB,1.6642E-05_JPRB,1.8157E-05_JPRB,1.9448E-05_JPRB,2.3207E-05_JPRB,&
+&3.2168E-05_JPRB,5.3905E-05_JPRB,1.1409E-02_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&1.3731E-05_JPRB,2.1142E-05_JPRB,2.2780E-05_JPRB,2.4378E-05_JPRB,2.6665E-05_JPRB,2.9738E-05_JPRB,&
+&3.5163E-05_JPRB,5.5828E-05_JPRB,1.2051E-02_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&1.8328E-05_JPRB,2.8382E-05_JPRB,3.0850E-05_JPRB,3.1430E-05_JPRB,3.3929E-05_JPRB,3.7016E-05_JPRB,&
+&4.5266E-05_JPRB,5.8847E-05_JPRB,1.2603E-02_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&5.1628E-06_JPRB,7.0476E-06_JPRB,7.6783E-06_JPRB,9.1901E-06_JPRB,1.1659E-05_JPRB,1.4990E-05_JPRB,&
+&2.0746E-05_JPRB,3.1591E-05_JPRB,1.0979E-02_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&7.1656E-06_JPRB,1.0090E-05_JPRB,1.0951E-05_JPRB,1.1562E-05_JPRB,1.3750E-05_JPRB,1.7398E-05_JPRB,&
+&2.3701E-05_JPRB,3.7488E-05_JPRB,1.1813E-02_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&9.7810E-06_JPRB,1.4159E-05_JPRB,1.5003E-05_JPRB,1.6207E-05_JPRB,1.7175E-05_JPRB,1.9965E-05_JPRB,&
+&2.7079E-05_JPRB,4.3382E-05_JPRB,1.2578E-02_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&1.3104E-05_JPRB,1.9253E-05_JPRB,2.0395E-05_JPRB,2.1436E-05_JPRB,2.3261E-05_JPRB,2.5640E-05_JPRB,&
+&2.9895E-05_JPRB,4.6045E-05_JPRB,1.3231E-02_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&1.7208E-05_JPRB,2.5546E-05_JPRB,2.7424E-05_JPRB,2.7535E-05_JPRB,2.9380E-05_JPRB,3.2546E-05_JPRB,&
+&3.8040E-05_JPRB,4.9840E-05_JPRB,1.3742E-02_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&3.1090E-04_JPRB,4.1312E-04_JPRB,4.5176E-04_JPRB,4.6856E-04_JPRB,4.5586E-04_JPRB,4.3213E-04_JPRB,&
+&4.5397E-04_JPRB,7.8015E-04_JPRB,2.0103E-04_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&3.8398E-04_JPRB,5.2122E-04_JPRB,5.7336E-04_JPRB,6.0217E-04_JPRB,6.0591E-04_JPRB,5.7511E-04_JPRB,&
+&5.3422E-04_JPRB,6.1896E-04_JPRB,2.8351E-04_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&4.6534E-04_JPRB,6.4382E-04_JPRB,7.1301E-04_JPRB,7.5438E-04_JPRB,7.7134E-04_JPRB,7.6006E-04_JPRB,&
+&7.0811E-04_JPRB,7.4234E-04_JPRB,3.7763E-04_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&5.5987E-04_JPRB,7.8442E-04_JPRB,8.7478E-04_JPRB,9.3078E-04_JPRB,9.6145E-04_JPRB,9.6632E-04_JPRB,&
+&9.4057E-04_JPRB,8.7094E-04_JPRB,4.7321E-04_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&6.6579E-04_JPRB,9.4348E-04_JPRB,1.0594E-03_JPRB,1.1323E-03_JPRB,1.1769E-03_JPRB,1.1973E-03_JPRB,&
+&1.1941E-03_JPRB,1.1720E-03_JPRB,5.8670E-04_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&2.4736E-04_JPRB,3.2724E-04_JPRB,3.5306E-04_JPRB,3.6178E-04_JPRB,3.4912E-04_JPRB,3.3979E-04_JPRB,&
+&3.6882E-04_JPRB,6.4661E-04_JPRB,1.4637E-04_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&3.1002E-04_JPRB,4.1717E-04_JPRB,4.5359E-04_JPRB,4.7283E-04_JPRB,4.7168E-04_JPRB,4.4103E-04_JPRB,&
+&4.4124E-04_JPRB,5.1519E-04_JPRB,2.1389E-04_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&3.8079E-04_JPRB,5.2107E-04_JPRB,5.7062E-04_JPRB,5.9973E-04_JPRB,6.0662E-04_JPRB,5.9325E-04_JPRB,&
+&5.3745E-04_JPRB,5.8652E-04_JPRB,2.8633E-04_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&4.6210E-04_JPRB,6.4094E-04_JPRB,7.0763E-04_JPRB,7.4776E-04_JPRB,7.6652E-04_JPRB,7.5984E-04_JPRB,&
+&7.3202E-04_JPRB,6.4140E-04_JPRB,3.5290E-04_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&5.5546E-04_JPRB,7.7925E-04_JPRB,8.6616E-04_JPRB,9.1863E-04_JPRB,9.4674E-04_JPRB,9.5490E-04_JPRB,&
+&9.4094E-04_JPRB,9.1867E-04_JPRB,4.4201E-04_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&1.8639E-04_JPRB,2.4387E-04_JPRB,2.5915E-04_JPRB,2.5906E-04_JPRB,2.4918E-04_JPRB,2.5967E-04_JPRB,&
+&3.1653E-04_JPRB,4.7580E-04_JPRB,1.1679E-04_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&2.3798E-04_JPRB,3.1564E-04_JPRB,3.3906E-04_JPRB,3.5000E-04_JPRB,3.4157E-04_JPRB,3.1943E-04_JPRB,&
+&3.2743E-04_JPRB,4.5496E-04_JPRB,1.5856E-04_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&2.9733E-04_JPRB,4.0070E-04_JPRB,4.3349E-04_JPRB,4.5188E-04_JPRB,4.5270E-04_JPRB,4.3123E-04_JPRB,&
+&3.9880E-04_JPRB,4.4081E-04_JPRB,2.0446E-04_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&3.6501E-04_JPRB,4.9946E-04_JPRB,5.4499E-04_JPRB,5.7170E-04_JPRB,5.7932E-04_JPRB,5.6633E-04_JPRB,&
+&5.2704E-04_JPRB,5.1414E-04_JPRB,2.5539E-04_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&4.4410E-04_JPRB,6.1578E-04_JPRB,6.7619E-04_JPRB,7.1133E-04_JPRB,7.2738E-04_JPRB,7.2351E-04_JPRB,&
+&7.0138E-04_JPRB,6.6673E-04_JPRB,3.2169E-04_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&1.3808E-04_JPRB,1.7775E-04_JPRB,1.8565E-04_JPRB,1.8174E-04_JPRB,1.8202E-04_JPRB,1.9738E-04_JPRB,&
+&2.6854E-04_JPRB,3.3980E-04_JPRB,9.6622E-05_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&1.7835E-04_JPRB,2.3331E-04_JPRB,2.4753E-04_JPRB,2.5139E-04_JPRB,2.3877E-04_JPRB,2.3221E-04_JPRB,&
+&2.5394E-04_JPRB,4.0618E-04_JPRB,1.2075E-04_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&2.2702E-04_JPRB,3.0170E-04_JPRB,3.2275E-04_JPRB,3.3261E-04_JPRB,3.2998E-04_JPRB,3.0635E-04_JPRB,&
+&3.0422E-04_JPRB,3.7513E-04_JPRB,1.4994E-04_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&2.8327E-04_JPRB,3.8288E-04_JPRB,4.1191E-04_JPRB,4.2826E-04_JPRB,4.2837E-04_JPRB,4.1511E-04_JPRB,&
+&3.7299E-04_JPRB,4.1488E-04_JPRB,1.8740E-04_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&3.4778E-04_JPRB,4.7798E-04_JPRB,5.1863E-04_JPRB,5.4065E-04_JPRB,5.4665E-04_JPRB,5.3624E-04_JPRB,&
+&5.0550E-04_JPRB,4.5874E-04_JPRB,2.3509E-04_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&1.0090E-04_JPRB,1.2840E-04_JPRB,1.3222E-04_JPRB,1.3092E-04_JPRB,1.3649E-04_JPRB,1.6019E-04_JPRB,&
+&2.1671E-04_JPRB,2.5303E-04_JPRB,9.1217E-05_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&1.3290E-04_JPRB,1.7161E-04_JPRB,1.7952E-04_JPRB,1.7693E-04_JPRB,1.6957E-04_JPRB,1.7378E-04_JPRB,&
+&2.2031E-04_JPRB,3.2593E-04_JPRB,1.0460E-04_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&1.7169E-04_JPRB,2.2556E-04_JPRB,2.3842E-04_JPRB,2.4266E-04_JPRB,2.3387E-04_JPRB,2.1722E-04_JPRB,&
+&2.2376E-04_JPRB,3.3249E-04_JPRB,1.2312E-04_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&2.1761E-04_JPRB,2.9095E-04_JPRB,3.1013E-04_JPRB,3.1776E-04_JPRB,3.1556E-04_JPRB,2.9734E-04_JPRB,&
+&2.7621E-04_JPRB,3.0674E-04_JPRB,1.4846E-04_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&2.6974E-04_JPRB,3.6873E-04_JPRB,3.9640E-04_JPRB,4.0873E-04_JPRB,4.0796E-04_JPRB,3.9425E-04_JPRB,&
+&3.6157E-04_JPRB,3.6174E-04_JPRB,1.8146E-04_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&7.2092E-05_JPRB,9.1048E-05_JPRB,9.3429E-05_JPRB,9.5226E-05_JPRB,1.0150E-04_JPRB,1.3173E-04_JPRB,&
+&1.4984E-04_JPRB,1.9196E-04_JPRB,9.8397E-05_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&9.7448E-05_JPRB,1.2423E-04_JPRB,1.2792E-04_JPRB,1.2413E-04_JPRB,1.2424E-04_JPRB,1.3383E-04_JPRB,&
+&1.7960E-04_JPRB,2.4434E-04_JPRB,1.1133E-04_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&1.2736E-04_JPRB,1.6584E-04_JPRB,1.7360E-04_JPRB,1.7200E-04_JPRB,1.6167E-04_JPRB,1.5892E-04_JPRB,&
+&1.7153E-04_JPRB,2.8218E-04_JPRB,1.2781E-04_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&1.6376E-04_JPRB,2.1742E-04_JPRB,2.3003E-04_JPRB,2.3266E-04_JPRB,2.2686E-04_JPRB,2.0723E-04_JPRB,&
+&2.0538E-04_JPRB,2.5489E-04_JPRB,1.4690E-04_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&2.0555E-04_JPRB,2.7960E-04_JPRB,2.9861E-04_JPRB,3.0501E-04_JPRB,3.0003E-04_JPRB,2.8746E-04_JPRB,&
+&2.5983E-04_JPRB,2.8313E-04_JPRB,1.7007E-04_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&5.0915E-05_JPRB,6.4096E-05_JPRB,6.5839E-05_JPRB,7.0435E-05_JPRB,8.2474E-05_JPRB,1.0016E-04_JPRB,&
+&1.1360E-04_JPRB,1.4590E-04_JPRB,1.4032E-04_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&7.0625E-05_JPRB,8.9097E-05_JPRB,9.0314E-05_JPRB,8.9429E-05_JPRB,9.3251E-05_JPRB,1.0724E-04_JPRB,&
+&1.4912E-04_JPRB,1.8863E-04_JPRB,1.5518E-04_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&9.4098E-05_JPRB,1.2125E-04_JPRB,1.2537E-04_JPRB,1.2091E-04_JPRB,1.1603E-04_JPRB,1.1857E-04_JPRB,&
+&1.4624E-04_JPRB,2.2506E-04_JPRB,1.7262E-04_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&1.2191E-04_JPRB,1.6102E-04_JPRB,1.6901E-04_JPRB,1.6848E-04_JPRB,1.5829E-04_JPRB,1.4830E-04_JPRB,&
+&1.5156E-04_JPRB,2.2031E-04_JPRB,1.9339E-04_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&1.5529E-04_JPRB,2.0973E-04_JPRB,2.2297E-04_JPRB,2.2562E-04_JPRB,2.1894E-04_JPRB,2.0410E-04_JPRB,&
+&1.8782E-04_JPRB,2.1024E-04_JPRB,2.1671E-04_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&3.6049E-05_JPRB,4.5291E-05_JPRB,4.7754E-05_JPRB,5.1919E-05_JPRB,6.1186E-05_JPRB,6.9190E-05_JPRB,&
+&8.4378E-05_JPRB,1.1648E-04_JPRB,2.7572E-04_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&5.1045E-05_JPRB,6.3896E-05_JPRB,6.4272E-05_JPRB,6.5150E-05_JPRB,6.9954E-05_JPRB,8.8868E-05_JPRB,&
+&1.0162E-04_JPRB,1.4598E-04_JPRB,3.0000E-04_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&6.9216E-05_JPRB,8.8252E-05_JPRB,9.0050E-05_JPRB,8.5873E-05_JPRB,8.5359E-05_JPRB,9.1693E-05_JPRB,&
+&1.2432E-04_JPRB,1.5741E-04_JPRB,3.2619E-04_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&9.0719E-05_JPRB,1.1854E-04_JPRB,1.2391E-04_JPRB,1.2089E-04_JPRB,1.1160E-04_JPRB,1.0845E-04_JPRB,&
+&1.1912E-04_JPRB,1.9063E-04_JPRB,3.5459E-04_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&1.1702E-04_JPRB,1.5606E-04_JPRB,1.6531E-04_JPRB,1.6622E-04_JPRB,1.5932E-04_JPRB,1.4248E-04_JPRB,&
+&1.4183E-04_JPRB,1.7131E-04_JPRB,3.8497E-04_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&2.5866E-05_JPRB,3.2320E-05_JPRB,3.4576E-05_JPRB,3.8709E-05_JPRB,4.6229E-05_JPRB,5.2438E-05_JPRB,&
+&6.5503E-05_JPRB,9.3730E-05_JPRB,1.1703E-03_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&3.7130E-05_JPRB,4.6042E-05_JPRB,4.6409E-05_JPRB,4.8783E-05_JPRB,5.6170E-05_JPRB,6.7762E-05_JPRB,&
+&7.7225E-05_JPRB,1.1273E-04_JPRB,1.2364E-03_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&5.1057E-05_JPRB,6.4238E-05_JPRB,6.4747E-05_JPRB,6.3009E-05_JPRB,6.3858E-05_JPRB,7.4779E-05_JPRB,&
+&9.9385E-05_JPRB,1.2137E-04_JPRB,1.3035E-03_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&6.7872E-05_JPRB,8.7074E-05_JPRB,9.0171E-05_JPRB,8.6365E-05_JPRB,8.1775E-05_JPRB,8.1150E-05_JPRB,&
+&1.0091E-04_JPRB,1.5846E-04_JPRB,1.3706E-03_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&8.8212E-05_JPRB,1.1565E-04_JPRB,1.2170E-04_JPRB,1.2148E-04_JPRB,1.1255E-04_JPRB,1.0392E-04_JPRB,&
+&1.0391E-04_JPRB,1.5035E-04_JPRB,1.4393E-03_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&2.0052E-05_JPRB,2.4599E-05_JPRB,2.6224E-05_JPRB,2.9775E-05_JPRB,3.4377E-05_JPRB,3.9753E-05_JPRB,&
+&5.1870E-05_JPRB,7.0614E-05_JPRB,6.9310E-03_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&2.8642E-05_JPRB,3.5006E-05_JPRB,3.5601E-05_JPRB,3.7670E-05_JPRB,4.4192E-05_JPRB,5.0297E-05_JPRB,&
+&6.0753E-05_JPRB,8.8409E-05_JPRB,7.2473E-03_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&3.9509E-05_JPRB,4.8803E-05_JPRB,4.8668E-05_JPRB,4.7951E-05_JPRB,5.0708E-05_JPRB,6.1469E-05_JPRB,&
+&7.4297E-05_JPRB,9.6176E-05_JPRB,7.5424E-03_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&5.2822E-05_JPRB,6.6323E-05_JPRB,6.7918E-05_JPRB,6.3993E-05_JPRB,6.2062E-05_JPRB,6.4519E-05_JPRB,&
+&8.5147E-05_JPRB,1.1230E-04_JPRB,7.8121E-03_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&6.8969E-05_JPRB,8.8314E-05_JPRB,9.1957E-05_JPRB,9.0701E-05_JPRB,8.2062E-05_JPRB,7.8779E-05_JPRB,&
+&8.1888E-05_JPRB,1.3051E-04_JPRB,8.0714E-03_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&1.9311E-05_JPRB,2.2943E-05_JPRB,2.3712E-05_JPRB,2.6076E-05_JPRB,2.9763E-05_JPRB,3.4761E-05_JPRB,&
+&4.2561E-05_JPRB,5.7624E-05_JPRB,1.5187E-02_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&2.6757E-05_JPRB,3.2178E-05_JPRB,3.2098E-05_JPRB,3.3425E-05_JPRB,3.7561E-05_JPRB,4.3432E-05_JPRB,&
+&5.1256E-05_JPRB,7.3332E-05_JPRB,1.5840E-02_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&3.6196E-05_JPRB,4.4102E-05_JPRB,4.3948E-05_JPRB,4.2431E-05_JPRB,4.4099E-05_JPRB,5.1811E-05_JPRB,&
+&6.2145E-05_JPRB,8.0656E-05_JPRB,1.6449E-02_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&4.7882E-05_JPRB,5.9111E-05_JPRB,6.0086E-05_JPRB,5.7204E-05_JPRB,5.4371E-05_JPRB,5.5076E-05_JPRB,&
+&7.0526E-05_JPRB,9.2945E-05_JPRB,1.6989E-02_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&6.2068E-05_JPRB,7.8174E-05_JPRB,8.0859E-05_JPRB,7.9258E-05_JPRB,7.2738E-05_JPRB,6.8607E-05_JPRB,&
+&6.8925E-05_JPRB,1.0616E-04_JPRB,1.7481E-02_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&1.8157E-05_JPRB,2.1121E-05_JPRB,2.1509E-05_JPRB,2.2736E-05_JPRB,2.6145E-05_JPRB,3.0200E-05_JPRB,&
+&3.7064E-05_JPRB,5.0458E-05_JPRB,2.1164E-02_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&2.4750E-05_JPRB,2.9265E-05_JPRB,2.8640E-05_JPRB,2.9365E-05_JPRB,3.1815E-05_JPRB,3.7644E-05_JPRB,&
+&4.4258E-05_JPRB,6.0893E-05_JPRB,2.2083E-02_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&3.3051E-05_JPRB,3.9669E-05_JPRB,3.9323E-05_JPRB,3.7322E-05_JPRB,3.8330E-05_JPRB,4.3268E-05_JPRB,&
+&5.2953E-05_JPRB,6.6459E-05_JPRB,2.2904E-02_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&4.3268E-05_JPRB,5.2755E-05_JPRB,5.3305E-05_JPRB,5.0755E-05_JPRB,4.7183E-05_JPRB,4.7321E-05_JPRB,&
+&5.8905E-05_JPRB,7.8211E-05_JPRB,2.3625E-02_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&5.5712E-05_JPRB,6.9313E-05_JPRB,7.1134E-05_JPRB,6.9400E-05_JPRB,6.4153E-05_JPRB,5.9244E-05_JPRB,&
+&5.8683E-05_JPRB,8.6772E-05_JPRB,2.4304E-02_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&1.7179E-05_JPRB,1.9773E-05_JPRB,1.9599E-05_JPRB,2.0374E-05_JPRB,2.3480E-05_JPRB,2.5935E-05_JPRB,&
+&3.2097E-05_JPRB,4.3807E-05_JPRB,2.3722E-02_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&2.3195E-05_JPRB,2.7018E-05_JPRB,2.6155E-05_JPRB,2.6118E-05_JPRB,2.7654E-05_JPRB,3.2413E-05_JPRB,&
+&3.6439E-05_JPRB,5.1480E-05_JPRB,2.4748E-02_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&3.0612E-05_JPRB,3.6208E-05_JPRB,3.5603E-05_JPRB,3.3306E-05_JPRB,3.3238E-05_JPRB,3.6754E-05_JPRB,&
+&4.5231E-05_JPRB,5.7370E-05_JPRB,2.5646E-02_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&3.9626E-05_JPRB,4.7737E-05_JPRB,4.7941E-05_JPRB,4.5252E-05_JPRB,4.1653E-05_JPRB,4.0753E-05_JPRB,&
+&4.9320E-05_JPRB,6.5660E-05_JPRB,2.6492E-02_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&5.0622E-05_JPRB,6.2138E-05_JPRB,6.3203E-05_JPRB,6.1426E-05_JPRB,5.6252E-05_JPRB,5.1272E-05_JPRB,&
+&5.0385E-05_JPRB,7.0865E-05_JPRB,2.7279E-02_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&7.6668E-04_JPRB,9.5698E-04_JPRB,1.0451E-03_JPRB,1.0706E-03_JPRB,1.0458E-03_JPRB,9.8544E-04_JPRB,&
+&8.4925E-04_JPRB,7.0084E-04_JPRB,3.6790E-04_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&9.3715E-04_JPRB,1.2033E-03_JPRB,1.3264E-03_JPRB,1.3678E-03_JPRB,1.3579E-03_JPRB,1.2955E-03_JPRB,&
+&1.2019E-03_JPRB,1.0530E-03_JPRB,4.9374E-04_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&1.1259E-03_JPRB,1.4892E-03_JPRB,1.6507E-03_JPRB,1.7086E-03_JPRB,1.7099E-03_JPRB,1.6660E-03_JPRB,&
+&1.5468E-03_JPRB,1.3572E-03_JPRB,6.9469E-04_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&1.3346E-03_JPRB,1.8150E-03_JPRB,2.0125E-03_JPRB,2.0930E-03_JPRB,2.1054E-03_JPRB,2.0604E-03_JPRB,&
+&1.9461E-03_JPRB,1.7694E-03_JPRB,9.3629E-04_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&1.5631E-03_JPRB,2.1751E-03_JPRB,2.4107E-03_JPRB,2.5177E-03_JPRB,2.5412E-03_JPRB,2.4997E-03_JPRB,&
+&2.4003E-03_JPRB,2.2329E-03_JPRB,1.1943E-03_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&6.1736E-04_JPRB,7.7957E-04_JPRB,8.4495E-04_JPRB,8.5822E-04_JPRB,8.3168E-04_JPRB,7.6710E-04_JPRB,&
+&6.8197E-04_JPRB,6.1117E-04_JPRB,2.7552E-04_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&7.6431E-04_JPRB,9.9047E-04_JPRB,1.0825E-03_JPRB,1.1059E-03_JPRB,1.0905E-03_JPRB,1.0282E-03_JPRB,&
+&9.1763E-04_JPRB,8.3788E-04_JPRB,3.8116E-04_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&9.2906E-04_JPRB,1.2346E-03_JPRB,1.3561E-03_JPRB,1.3925E-03_JPRB,1.3898E-03_JPRB,1.3440E-03_JPRB,&
+&1.2411E-03_JPRB,1.1007E-03_JPRB,5.2777E-04_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&1.1126E-03_JPRB,1.5138E-03_JPRB,1.6623E-03_JPRB,1.7166E-03_JPRB,1.7237E-03_JPRB,1.6799E-03_JPRB,&
+&1.5813E-03_JPRB,1.4262E-03_JPRB,7.0852E-04_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&1.3161E-03_JPRB,1.8216E-03_JPRB,2.0023E-03_JPRB,2.0780E-03_JPRB,2.0918E-03_JPRB,2.0576E-03_JPRB,&
+&1.9689E-03_JPRB,1.8083E-03_JPRB,9.0055E-04_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&4.6874E-04_JPRB,5.9508E-04_JPRB,6.3781E-04_JPRB,6.4117E-04_JPRB,6.1436E-04_JPRB,5.4822E-04_JPRB,&
+&5.0421E-04_JPRB,5.3533E-04_JPRB,2.0334E-04_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&5.9055E-04_JPRB,7.6700E-04_JPRB,8.2890E-04_JPRB,8.3946E-04_JPRB,8.1795E-04_JPRB,7.6034E-04_JPRB,&
+&6.7368E-04_JPRB,6.0816E-04_JPRB,2.8145E-04_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&7.2955E-04_JPRB,9.6821E-04_JPRB,1.0493E-03_JPRB,1.0696E-03_JPRB,1.0616E-03_JPRB,1.0150E-03_JPRB,&
+&9.2112E-04_JPRB,8.3960E-04_JPRB,3.8605E-04_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&8.8621E-04_JPRB,1.1995E-03_JPRB,1.3001E-03_JPRB,1.3322E-03_JPRB,1.3333E-03_JPRB,1.2938E-03_JPRB,&
+&1.2044E-03_JPRB,1.0885E-03_JPRB,5.0764E-04_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&1.0620E-03_JPRB,1.4561E-03_JPRB,1.5813E-03_JPRB,1.6291E-03_JPRB,1.6339E-03_JPRB,1.6065E-03_JPRB,&
+&1.5265E-03_JPRB,1.3705E-03_JPRB,6.4701E-04_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&3.4631E-04_JPRB,4.3892E-04_JPRB,4.6539E-04_JPRB,4.6252E-04_JPRB,4.3395E-04_JPRB,3.8559E-04_JPRB,&
+&3.5487E-04_JPRB,4.4831E-04_JPRB,1.5114E-04_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&4.4425E-04_JPRB,5.7553E-04_JPRB,6.1538E-04_JPRB,6.1883E-04_JPRB,5.9314E-04_JPRB,5.4165E-04_JPRB,&
+&4.8640E-04_JPRB,4.4227E-04_JPRB,2.0515E-04_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&5.5883E-04_JPRB,7.3740E-04_JPRB,7.9031E-04_JPRB,7.9974E-04_JPRB,7.8639E-04_JPRB,7.3691E-04_JPRB,&
+&6.4680E-04_JPRB,6.1866E-04_JPRB,2.7731E-04_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&6.8974E-04_JPRB,9.2537E-04_JPRB,9.9228E-04_JPRB,1.0098E-03_JPRB,1.0044E-03_JPRB,9.6650E-04_JPRB,&
+&8.8358E-04_JPRB,7.6484E-04_JPRB,3.6266E-04_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&8.3990E-04_JPRB,1.1361E-03_JPRB,1.2201E-03_JPRB,1.2496E-03_JPRB,1.2472E-03_JPRB,1.2194E-03_JPRB,&
+&1.1540E-03_JPRB,1.0325E-03_JPRB,4.6430E-04_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&2.5250E-04_JPRB,3.1808E-04_JPRB,3.3386E-04_JPRB,3.2714E-04_JPRB,3.0037E-04_JPRB,2.7399E-04_JPRB,&
+&2.6791E-04_JPRB,3.5704E-04_JPRB,1.2908E-04_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&3.3043E-04_JPRB,4.2488E-04_JPRB,4.5012E-04_JPRB,4.4889E-04_JPRB,4.2554E-04_JPRB,3.8200E-04_JPRB,&
+&3.3745E-04_JPRB,3.7310E-04_JPRB,1.6348E-04_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&4.2316E-04_JPRB,5.5338E-04_JPRB,5.8740E-04_JPRB,5.9160E-04_JPRB,5.7542E-04_JPRB,5.3101E-04_JPRB,&
+&4.6257E-04_JPRB,4.4755E-04_JPRB,2.1057E-04_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&5.3209E-04_JPRB,7.0370E-04_JPRB,7.4784E-04_JPRB,7.5773E-04_JPRB,7.4773E-04_JPRB,7.1163E-04_JPRB,&
+&6.4170E-04_JPRB,5.6009E-04_JPRB,2.6995E-04_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&6.5954E-04_JPRB,8.7577E-04_JPRB,9.3136E-04_JPRB,9.4956E-04_JPRB,9.4321E-04_JPRB,9.1424E-04_JPRB,&
+&8.5021E-04_JPRB,7.6505E-04_JPRB,3.4403E-04_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&1.8041E-04_JPRB,2.2490E-04_JPRB,2.3336E-04_JPRB,2.2464E-04_JPRB,2.0963E-04_JPRB,1.9425E-04_JPRB,&
+&2.2107E-04_JPRB,2.7984E-04_JPRB,1.4894E-04_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&2.4129E-04_JPRB,3.0664E-04_JPRB,3.2201E-04_JPRB,3.1753E-04_JPRB,2.9432E-04_JPRB,2.6424E-04_JPRB,&
+&2.4608E-04_JPRB,3.2717E-04_JPRB,1.7150E-04_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&3.1506E-04_JPRB,4.0665E-04_JPRB,4.2823E-04_JPRB,4.2924E-04_JPRB,4.1092E-04_JPRB,3.7075E-04_JPRB,&
+&3.2608E-04_JPRB,3.0715E-04_JPRB,1.9997E-04_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&4.0467E-04_JPRB,5.2530E-04_JPRB,5.5383E-04_JPRB,5.5842E-04_JPRB,5.4724E-04_JPRB,5.1243E-04_JPRB,&
+&4.4254E-04_JPRB,3.9888E-04_JPRB,2.3767E-04_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&5.1106E-04_JPRB,6.6417E-04_JPRB,6.9974E-04_JPRB,7.0967E-04_JPRB,7.0212E-04_JPRB,6.7161E-04_JPRB,&
+&6.0464E-04_JPRB,5.2589E-04_JPRB,2.8598E-04_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&1.2786E-04_JPRB,1.5741E-04_JPRB,1.6149E-04_JPRB,1.5385E-04_JPRB,1.4113E-04_JPRB,1.3717E-04_JPRB,&
+&1.7921E-04_JPRB,2.1884E-04_JPRB,2.2335E-04_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&1.7476E-04_JPRB,2.1914E-04_JPRB,2.2777E-04_JPRB,2.2084E-04_JPRB,2.0229E-04_JPRB,1.8812E-04_JPRB,&
+&1.8018E-04_JPRB,2.7538E-04_JPRB,2.4653E-04_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&2.3335E-04_JPRB,2.9589E-04_JPRB,3.0942E-04_JPRB,3.0765E-04_JPRB,2.8977E-04_JPRB,2.5625E-04_JPRB,&
+&2.3275E-04_JPRB,2.5170E-04_JPRB,2.7339E-04_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&3.0583E-04_JPRB,3.8902E-04_JPRB,4.0709E-04_JPRB,4.0819E-04_JPRB,3.9588E-04_JPRB,3.6356E-04_JPRB,&
+&3.1361E-04_JPRB,2.9658E-04_JPRB,3.0348E-04_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&3.9359E-04_JPRB,5.0084E-04_JPRB,5.2271E-04_JPRB,5.2613E-04_JPRB,5.1742E-04_JPRB,4.8862E-04_JPRB,&
+&4.3693E-04_JPRB,3.8092E-04_JPRB,3.3962E-04_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&9.0775E-05_JPRB,1.1005E-04_JPRB,1.1099E-04_JPRB,1.0509E-04_JPRB,9.9650E-05_JPRB,1.1055E-04_JPRB,&
+&1.4832E-04_JPRB,1.7530E-04_JPRB,4.7525E-04_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&1.2669E-04_JPRB,1.5629E-04_JPRB,1.6068E-04_JPRB,1.5361E-04_JPRB,1.4250E-04_JPRB,1.3452E-04_JPRB,&
+&1.4933E-04_JPRB,2.0310E-04_JPRB,5.0480E-04_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&1.7285E-04_JPRB,2.1483E-04_JPRB,2.2274E-04_JPRB,2.1837E-04_JPRB,2.0107E-04_JPRB,1.8034E-04_JPRB,&
+&1.6967E-04_JPRB,2.2418E-04_JPRB,5.3971E-04_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&2.3078E-04_JPRB,2.8784E-04_JPRB,2.9834E-04_JPRB,2.9682E-04_JPRB,2.8348E-04_JPRB,2.5378E-04_JPRB,&
+&2.1967E-04_JPRB,2.1775E-04_JPRB,5.7949E-04_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&3.0207E-04_JPRB,3.7730E-04_JPRB,3.9003E-04_JPRB,3.8941E-04_JPRB,3.7851E-04_JPRB,3.5314E-04_JPRB,&
+&3.0320E-04_JPRB,2.7345E-04_JPRB,6.2347E-04_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&6.4923E-05_JPRB,7.7301E-05_JPRB,7.6873E-05_JPRB,7.2507E-05_JPRB,7.2968E-05_JPRB,8.8916E-05_JPRB,&
+&1.0626E-04_JPRB,1.3047E-04_JPRB,2.1479E-03_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&9.2060E-05_JPRB,1.1144E-04_JPRB,1.1301E-04_JPRB,1.0673E-04_JPRB,9.8741E-05_JPRB,9.7585E-05_JPRB,&
+&1.2203E-04_JPRB,1.5315E-04_JPRB,2.2213E-03_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&1.2784E-04_JPRB,1.5591E-04_JPRB,1.5957E-04_JPRB,1.5395E-04_JPRB,1.4101E-04_JPRB,1.2937E-04_JPRB,&
+&1.2902E-04_JPRB,1.8269E-04_JPRB,2.3004E-03_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&1.7362E-04_JPRB,2.1265E-04_JPRB,2.1819E-04_JPRB,2.1460E-04_JPRB,2.0088E-04_JPRB,1.7687E-04_JPRB,&
+&1.6114E-04_JPRB,1.7045E-04_JPRB,2.3836E-03_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&2.3060E-04_JPRB,2.8346E-04_JPRB,2.9069E-04_JPRB,2.8691E-04_JPRB,2.7538E-04_JPRB,2.5192E-04_JPRB,&
+&2.1567E-04_JPRB,2.0242E-04_JPRB,2.4645E-03_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&4.9625E-05_JPRB,5.7572E-05_JPRB,5.6443E-05_JPRB,5.4999E-05_JPRB,5.9435E-05_JPRB,7.0786E-05_JPRB,&
+&7.6295E-05_JPRB,1.0573E-04_JPRB,1.3224E-02_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&7.0134E-05_JPRB,8.3014E-05_JPRB,8.2620E-05_JPRB,7.7969E-05_JPRB,7.3377E-05_JPRB,8.0016E-05_JPRB,&
+&9.8395E-05_JPRB,1.2266E-04_JPRB,1.3476E-02_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&9.7838E-05_JPRB,1.1716E-04_JPRB,1.1840E-04_JPRB,1.1257E-04_JPRB,1.0247E-04_JPRB,9.5389E-05_JPRB,&
+&1.0384E-04_JPRB,1.4488E-04_JPRB,1.3733E-02_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&1.3411E-04_JPRB,1.6175E-04_JPRB,1.6407E-04_JPRB,1.5918E-04_JPRB,1.4592E-04_JPRB,1.2914E-04_JPRB,&
+&1.2234E-04_JPRB,1.5601E-04_JPRB,1.4015E-02_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&1.7947E-04_JPRB,2.1813E-04_JPRB,2.2167E-04_JPRB,2.1661E-04_JPRB,2.0497E-04_JPRB,1.8308E-04_JPRB,&
+&1.5705E-04_JPRB,1.5556E-04_JPRB,1.4285E-02_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&4.6838E-05_JPRB,5.3188E-05_JPRB,5.1940E-05_JPRB,4.9560E-05_JPRB,5.2867E-05_JPRB,6.0471E-05_JPRB,&
+&6.7131E-05_JPRB,8.9235E-05_JPRB,2.9682E-02_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&6.4771E-05_JPRB,7.4879E-05_JPRB,7.3789E-05_JPRB,6.9085E-05_JPRB,6.5402E-05_JPRB,6.9078E-05_JPRB,&
+&8.2402E-05_JPRB,9.7823E-05_JPRB,3.0214E-02_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&8.8977E-05_JPRB,1.0443E-04_JPRB,1.0449E-04_JPRB,9.8837E-05_JPRB,8.9325E-05_JPRB,8.2564E-05_JPRB,&
+&9.0256E-05_JPRB,1.2264E-04_JPRB,3.0751E-02_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&1.2031E-04_JPRB,1.4341E-04_JPRB,1.4439E-04_JPRB,1.3909E-04_JPRB,1.2684E-04_JPRB,1.1148E-04_JPRB,&
+&1.0343E-04_JPRB,1.2710E-04_JPRB,3.1294E-02_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&1.5966E-04_JPRB,1.9217E-04_JPRB,1.9445E-04_JPRB,1.8922E-04_JPRB,1.7785E-04_JPRB,1.5826E-04_JPRB,&
+&1.3426E-04_JPRB,1.3572E-04_JPRB,3.1828E-02_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&4.4013E-05_JPRB,4.9051E-05_JPRB,4.7310E-05_JPRB,4.5083E-05_JPRB,4.5655E-05_JPRB,5.3046E-05_JPRB,&
+&5.5846E-05_JPRB,7.3868E-05_JPRB,4.2262E-02_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&5.9811E-05_JPRB,6.7905E-05_JPRB,6.6450E-05_JPRB,6.1482E-05_JPRB,5.7471E-05_JPRB,5.8427E-05_JPRB,&
+&7.0235E-05_JPRB,8.1755E-05_JPRB,4.3100E-02_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&8.0771E-05_JPRB,9.3483E-05_JPRB,9.2712E-05_JPRB,8.7290E-05_JPRB,7.8335E-05_JPRB,7.2055E-05_JPRB,&
+&7.5619E-05_JPRB,1.0330E-04_JPRB,4.3963E-02_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&1.0778E-04_JPRB,1.2684E-04_JPRB,1.2706E-04_JPRB,1.2188E-04_JPRB,1.1092E-04_JPRB,9.6993E-05_JPRB,&
+&8.8534E-05_JPRB,1.0545E-04_JPRB,4.4781E-02_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&1.4170E-04_JPRB,1.6874E-04_JPRB,1.7020E-04_JPRB,1.6546E-04_JPRB,1.5470E-04_JPRB,1.3786E-04_JPRB,&
+&1.1554E-04_JPRB,1.1534E-04_JPRB,4.5542E-02_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&4.2090E-05_JPRB,4.6101E-05_JPRB,4.3965E-05_JPRB,4.1016E-05_JPRB,4.0300E-05_JPRB,4.5499E-05_JPRB,&
+&4.8852E-05_JPRB,6.1759E-05_JPRB,4.8346E-02_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&5.6243E-05_JPRB,6.2753E-05_JPRB,6.0819E-05_JPRB,5.5713E-05_JPRB,5.1322E-05_JPRB,5.0494E-05_JPRB,&
+&6.0604E-05_JPRB,6.8003E-05_JPRB,4.9462E-02_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&7.4458E-05_JPRB,8.4643E-05_JPRB,8.3343E-05_JPRB,7.8251E-05_JPRB,6.9869E-05_JPRB,6.3030E-05_JPRB,&
+&6.3206E-05_JPRB,8.7133E-05_JPRB,5.0553E-02_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&9.7702E-05_JPRB,1.1298E-04_JPRB,1.1246E-04_JPRB,1.0753E-04_JPRB,9.7507E-05_JPRB,8.4857E-05_JPRB,&
+&7.6788E-05_JPRB,8.6167E-05_JPRB,5.1568E-02_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&1.2694E-04_JPRB,1.4871E-04_JPRB,1.4954E-04_JPRB,1.4480E-04_JPRB,1.3473E-04_JPRB,1.1941E-04_JPRB,&
+&9.9413E-05_JPRB,9.9688E-05_JPRB,5.2519E-02_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&2.0564E-03_JPRB,2.2357E-03_JPRB,2.2921E-03_JPRB,2.2746E-03_JPRB,2.1808E-03_JPRB,2.0118E-03_JPRB,&
+&1.7401E-03_JPRB,1.3032E-03_JPRB,9.5552E-04_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&2.5245E-03_JPRB,2.7780E-03_JPRB,2.8722E-03_JPRB,2.8575E-03_JPRB,2.7633E-03_JPRB,2.6046E-03_JPRB,&
+&2.3222E-03_JPRB,1.8131E-03_JPRB,1.3540E-03_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&3.0325E-03_JPRB,3.3773E-03_JPRB,3.5284E-03_JPRB,3.5242E-03_JPRB,3.4302E-03_JPRB,3.2547E-03_JPRB,&
+&2.9982E-03_JPRB,2.6610E-03_JPRB,1.7942E-03_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&3.5774E-03_JPRB,4.0328E-03_JPRB,4.2570E-03_JPRB,4.2786E-03_JPRB,4.1734E-03_JPRB,3.9880E-03_JPRB,&
+&3.7418E-03_JPRB,3.6443E-03_JPRB,2.2977E-03_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&4.1551E-03_JPRB,4.7493E-03_JPRB,5.0612E-03_JPRB,5.1084E-03_JPRB,4.9896E-03_JPRB,4.7828E-03_JPRB,&
+&4.5388E-03_JPRB,4.6729E-03_JPRB,2.8901E-03_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&1.7021E-03_JPRB,1.8729E-03_JPRB,1.9247E-03_JPRB,1.9078E-03_JPRB,1.8213E-03_JPRB,1.6737E-03_JPRB,&
+&1.4152E-03_JPRB,1.0410E-03_JPRB,7.2465E-04_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&2.1085E-03_JPRB,2.3473E-03_JPRB,2.4306E-03_JPRB,2.4189E-03_JPRB,2.3372E-03_JPRB,2.1946E-03_JPRB,&
+&1.9650E-03_JPRB,1.4507E-03_JPRB,1.0070E-03_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&2.5539E-03_JPRB,2.8790E-03_JPRB,3.0056E-03_JPRB,3.0096E-03_JPRB,2.9218E-03_JPRB,2.7596E-03_JPRB,&
+&2.5256E-03_JPRB,2.1562E-03_JPRB,1.3358E-03_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&3.0381E-03_JPRB,3.4689E-03_JPRB,3.6518E-03_JPRB,3.6778E-03_JPRB,3.5757E-03_JPRB,3.4032E-03_JPRB,&
+&3.1678E-03_JPRB,2.9648E-03_JPRB,1.7229E-03_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&3.5521E-03_JPRB,4.1214E-03_JPRB,4.3704E-03_JPRB,4.4118E-03_JPRB,4.3015E-03_JPRB,4.1082E-03_JPRB,&
+&3.8609E-03_JPRB,3.8044E-03_JPRB,2.1852E-03_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&1.3207E-03_JPRB,1.4650E-03_JPRB,1.5081E-03_JPRB,1.4879E-03_JPRB,1.4138E-03_JPRB,1.2859E-03_JPRB,&
+&1.0511E-03_JPRB,7.8811E-04_JPRB,5.1479E-04_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&1.6600E-03_JPRB,1.8649E-03_JPRB,1.9312E-03_JPRB,1.9179E-03_JPRB,1.8422E-03_JPRB,1.7178E-03_JPRB,&
+&1.5069E-03_JPRB,1.1268E-03_JPRB,7.0924E-04_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&2.0389E-03_JPRB,2.3205E-03_JPRB,2.4185E-03_JPRB,2.4171E-03_JPRB,2.3339E-03_JPRB,2.1929E-03_JPRB,&
+&1.9846E-03_JPRB,1.6361E-03_JPRB,9.4601E-04_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&2.4547E-03_JPRB,2.8320E-03_JPRB,2.9726E-03_JPRB,2.9883E-03_JPRB,2.8925E-03_JPRB,2.7393E-03_JPRB,&
+&2.5305E-03_JPRB,2.2455E-03_JPRB,1.2306E-03_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&2.8997E-03_JPRB,3.4059E-03_JPRB,3.5906E-03_JPRB,3.6183E-03_JPRB,3.5177E-03_JPRB,3.3454E-03_JPRB,&
+&3.1285E-03_JPRB,2.9519E-03_JPRB,1.5729E-03_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&9.9106E-04_JPRB,1.1077E-03_JPRB,1.1376E-03_JPRB,1.1157E-03_JPRB,1.0521E-03_JPRB,9.4148E-04_JPRB,&
+&7.8510E-04_JPRB,5.6824E-04_JPRB,3.5975E-04_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&1.2690E-03_JPRB,1.4351E-03_JPRB,1.4835E-03_JPRB,1.4646E-03_JPRB,1.3997E-03_JPRB,1.2889E-03_JPRB,&
+&1.0960E-03_JPRB,8.9289E-04_JPRB,4.9353E-04_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&1.5842E-03_JPRB,1.8142E-03_JPRB,1.8866E-03_JPRB,1.8780E-03_JPRB,1.8013E-03_JPRB,1.6820E-03_JPRB,&
+&1.5023E-03_JPRB,1.1830E-03_JPRB,6.6203E-04_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&1.9340E-03_JPRB,2.2471E-03_JPRB,2.3499E-03_JPRB,2.3511E-03_JPRB,2.2648E-03_JPRB,2.1322E-03_JPRB,&
+&1.9509E-03_JPRB,1.6764E-03_JPRB,8.7194E-04_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&2.3113E-03_JPRB,2.7351E-03_JPRB,2.8762E-03_JPRB,2.8805E-03_JPRB,2.7879E-03_JPRB,2.6395E-03_JPRB,&
+&2.4567E-03_JPRB,2.2403E-03_JPRB,1.1262E-03_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&7.3127E-04_JPRB,8.2296E-04_JPRB,8.4087E-04_JPRB,8.1934E-04_JPRB,7.6237E-04_JPRB,6.6355E-04_JPRB,&
+&5.7712E-04_JPRB,4.2586E-04_JPRB,2.6106E-04_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&9.5564E-04_JPRB,1.0866E-03_JPRB,1.1175E-03_JPRB,1.0975E-03_JPRB,1.0423E-03_JPRB,9.4115E-04_JPRB,&
+&7.8089E-04_JPRB,7.0271E-04_JPRB,3.5186E-04_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&1.2139E-03_JPRB,1.3968E-03_JPRB,1.4447E-03_JPRB,1.4289E-03_JPRB,1.3656E-03_JPRB,1.2642E-03_JPRB,&
+&1.1044E-03_JPRB,8.5519E-04_JPRB,4.7090E-04_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&1.5030E-03_JPRB,1.7556E-03_JPRB,1.8265E-03_JPRB,1.8139E-03_JPRB,1.7423E-03_JPRB,1.6256E-03_JPRB,&
+&1.4668E-03_JPRB,1.2302E-03_JPRB,6.2262E-04_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&1.8204E-03_JPRB,2.1651E-03_JPRB,2.2625E-03_JPRB,2.2502E-03_JPRB,2.1716E-03_JPRB,2.0469E-03_JPRB,&
+&1.8925E-03_JPRB,1.6626E-03_JPRB,8.1240E-04_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&5.2529E-04_JPRB,5.9432E-04_JPRB,6.0352E-04_JPRB,5.8305E-04_JPRB,5.3304E-04_JPRB,4.5328E-04_JPRB,&
+&4.1878E-04_JPRB,3.5780E-04_JPRB,2.4217E-04_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&7.0212E-04_JPRB,8.0206E-04_JPRB,8.1885E-04_JPRB,8.0064E-04_JPRB,7.5267E-04_JPRB,6.6720E-04_JPRB,&
+&5.4925E-04_JPRB,4.7137E-04_JPRB,2.9304E-04_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&9.0974E-04_JPRB,1.0505E-03_JPRB,1.0784E-03_JPRB,1.0608E-03_JPRB,1.0082E-03_JPRB,9.2191E-04_JPRB,&
+&7.8184E-04_JPRB,6.5554E-04_JPRB,3.6650E-04_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&1.1453E-03_JPRB,1.3423E-03_JPRB,1.3852E-03_JPRB,1.3677E-03_JPRB,1.3077E-03_JPRB,1.2097E-03_JPRB,&
+&1.0767E-03_JPRB,8.5645E-04_JPRB,4.6653E-04_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&1.4081E-03_JPRB,1.6785E-03_JPRB,1.7408E-03_JPRB,1.7212E-03_JPRB,1.6525E-03_JPRB,1.5502E-03_JPRB,&
+&1.4183E-03_JPRB,1.2157E-03_JPRB,5.9973E-04_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&3.7120E-04_JPRB,4.2080E-04_JPRB,4.2477E-04_JPRB,4.0604E-04_JPRB,3.6355E-04_JPRB,3.1468E-04_JPRB,&
+&2.7452E-04_JPRB,3.0003E-04_JPRB,3.4329E-04_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&5.0811E-04_JPRB,5.8113E-04_JPRB,5.8975E-04_JPRB,5.7433E-04_JPRB,5.3282E-04_JPRB,4.5716E-04_JPRB,&
+&3.8591E-04_JPRB,3.1558E-04_JPRB,3.8021E-04_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&6.7189E-04_JPRB,7.7708E-04_JPRB,7.9243E-04_JPRB,7.7528E-04_JPRB,7.3224E-04_JPRB,6.5998E-04_JPRB,&
+&5.4384E-04_JPRB,5.0808E-04_JPRB,4.2510E-04_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&8.6172E-04_JPRB,1.0111E-03_JPRB,1.0357E-03_JPRB,1.0171E-03_JPRB,9.6771E-04_JPRB,8.8863E-04_JPRB,&
+&7.7053E-04_JPRB,5.9901E-04_JPRB,4.8327E-04_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&1.0762E-03_JPRB,1.2838E-03_JPRB,1.3208E-03_JPRB,1.3007E-03_JPRB,1.2428E-03_JPRB,1.1566E-03_JPRB,&
+&1.0378E-03_JPRB,8.6101E-04_JPRB,5.6256E-04_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&2.6005E-04_JPRB,2.9445E-04_JPRB,2.9544E-04_JPRB,2.7954E-04_JPRB,2.4583E-04_JPRB,2.1647E-04_JPRB,&
+&1.8002E-04_JPRB,2.3598E-04_JPRB,7.9092E-04_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&3.6459E-04_JPRB,4.1637E-04_JPRB,4.2010E-04_JPRB,4.0556E-04_JPRB,3.7047E-04_JPRB,3.0940E-04_JPRB,&
+&2.7524E-04_JPRB,2.5435E-04_JPRB,8.3476E-04_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&4.9221E-04_JPRB,5.6877E-04_JPRB,5.7633E-04_JPRB,5.6089E-04_JPRB,5.2598E-04_JPRB,4.6466E-04_JPRB,&
+&3.7776E-04_JPRB,3.4121E-04_JPRB,8.7965E-04_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&6.4351E-04_JPRB,7.5336E-04_JPRB,7.6684E-04_JPRB,7.4955E-04_JPRB,7.0992E-04_JPRB,6.4867E-04_JPRB,&
+&5.4671E-04_JPRB,4.4943E-04_JPRB,9.3048E-04_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&8.1696E-04_JPRB,9.7167E-04_JPRB,9.9275E-04_JPRB,9.7485E-04_JPRB,9.2841E-04_JPRB,8.5440E-04_JPRB,&
+&7.5642E-04_JPRB,5.9342E-04_JPRB,9.8996E-04_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&1.8087E-04_JPRB,2.0393E-04_JPRB,2.0319E-04_JPRB,1.8996E-04_JPRB,1.6599E-04_JPRB,1.4845E-04_JPRB,&
+&1.4517E-04_JPRB,1.8943E-04_JPRB,3.7840E-03_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&2.5947E-04_JPRB,2.9518E-04_JPRB,2.9598E-04_JPRB,2.8323E-04_JPRB,2.5237E-04_JPRB,2.1334E-04_JPRB,&
+&1.9297E-04_JPRB,2.0265E-04_JPRB,3.8746E-03_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&3.5788E-04_JPRB,4.1170E-04_JPRB,4.1507E-04_JPRB,4.0085E-04_JPRB,3.7117E-04_JPRB,3.1718E-04_JPRB,&
+&2.6164E-04_JPRB,2.2715E-04_JPRB,3.9645E-03_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&4.7699E-04_JPRB,5.5569E-04_JPRB,5.6204E-04_JPRB,5.4699E-04_JPRB,5.1526E-04_JPRB,4.6408E-04_JPRB,&
+&3.7784E-04_JPRB,3.4199E-04_JPRB,4.0560E-03_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&6.1621E-04_JPRB,7.2836E-04_JPRB,7.3953E-04_JPRB,7.2389E-04_JPRB,6.8675E-04_JPRB,6.2690E-04_JPRB,&
+&5.4244E-04_JPRB,4.1506E-04_JPRB,4.1481E-03_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&1.3094E-04_JPRB,1.4617E-04_JPRB,1.4409E-04_JPRB,1.3166E-04_JPRB,1.1671E-04_JPRB,1.0840E-04_JPRB,&
+&1.1994E-04_JPRB,1.5334E-04_JPRB,2.4678E-02_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&1.9036E-04_JPRB,2.1493E-04_JPRB,2.1399E-04_JPRB,2.0239E-04_JPRB,1.7779E-04_JPRB,1.5202E-04_JPRB,&
+&1.3461E-04_JPRB,1.6391E-04_JPRB,2.4818E-02_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&2.6670E-04_JPRB,3.0451E-04_JPRB,3.0518E-04_JPRB,2.9252E-04_JPRB,2.6713E-04_JPRB,2.2545E-04_JPRB,&
+&1.9430E-04_JPRB,1.7654E-04_JPRB,2.4944E-02_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&3.6077E-04_JPRB,4.1729E-04_JPRB,4.1982E-04_JPRB,4.0619E-04_JPRB,3.7979E-04_JPRB,3.3605E-04_JPRB,&
+&2.6665E-04_JPRB,2.5064E-04_JPRB,2.5043E-02_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&4.7368E-04_JPRB,5.5457E-04_JPRB,5.6006E-04_JPRB,5.4560E-04_JPRB,5.1520E-04_JPRB,4.6682E-04_JPRB,&
+&3.9587E-04_JPRB,3.0490E-04_JPRB,2.5182E-02_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&1.1672E-04_JPRB,1.2865E-04_JPRB,1.2575E-04_JPRB,1.1552E-04_JPRB,1.0159E-04_JPRB,9.2164E-05_JPRB,&
+&9.9270E-05_JPRB,1.2653E-04_JPRB,5.7559E-02_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&1.6732E-04_JPRB,1.8741E-04_JPRB,1.8550E-04_JPRB,1.7442E-04_JPRB,1.5354E-04_JPRB,1.3133E-04_JPRB,&
+&1.1767E-04_JPRB,1.4329E-04_JPRB,5.7684E-02_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&2.3276E-04_JPRB,2.6444E-04_JPRB,2.6342E-04_JPRB,2.5118E-04_JPRB,2.2884E-04_JPRB,1.9264E-04_JPRB,&
+&1.6524E-04_JPRB,1.4558E-04_JPRB,5.7855E-02_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&3.1443E-04_JPRB,3.6154E-04_JPRB,3.6203E-04_JPRB,3.4857E-04_JPRB,3.2499E-04_JPRB,2.8713E-04_JPRB,&
+&2.2934E-04_JPRB,2.1182E-04_JPRB,5.7981E-02_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&4.1392E-04_JPRB,4.8111E-04_JPRB,4.8318E-04_JPRB,4.6852E-04_JPRB,4.4073E-04_JPRB,3.9804E-04_JPRB,&
+&3.3719E-04_JPRB,2.5664E-04_JPRB,5.8015E-02_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&1.0495E-04_JPRB,1.1425E-04_JPRB,1.1065E-04_JPRB,1.0139E-04_JPRB,8.8702E-05_JPRB,8.0270E-05_JPRB,&
+&8.3227E-05_JPRB,1.1035E-04_JPRB,8.4777E-02_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&1.4811E-04_JPRB,1.6444E-04_JPRB,1.6133E-04_JPRB,1.5088E-04_JPRB,1.3304E-04_JPRB,1.1329E-04_JPRB,&
+&1.0211E-04_JPRB,1.1814E-04_JPRB,8.5052E-02_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&2.0461E-04_JPRB,2.3053E-04_JPRB,2.2799E-04_JPRB,2.1647E-04_JPRB,1.9655E-04_JPRB,1.6510E-04_JPRB,&
+&1.3813E-04_JPRB,1.2052E-04_JPRB,8.5320E-02_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&2.7614E-04_JPRB,3.1483E-04_JPRB,3.1311E-04_JPRB,3.0005E-04_JPRB,2.7866E-04_JPRB,2.4569E-04_JPRB,&
+&1.9595E-04_JPRB,1.7650E-04_JPRB,8.5551E-02_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&3.6369E-04_JPRB,4.1945E-04_JPRB,4.1876E-04_JPRB,4.0374E-04_JPRB,3.7792E-04_JPRB,3.3990E-04_JPRB,&
+&2.8821E-04_JPRB,2.1660E-04_JPRB,8.5586E-02_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&9.6451E-05_JPRB,1.0341E-04_JPRB,9.9264E-05_JPRB,9.0436E-05_JPRB,7.8283E-05_JPRB,7.1353E-05_JPRB,&
+&7.0038E-05_JPRB,8.7127E-05_JPRB,1.0017E-01_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&1.3353E-04_JPRB,1.4634E-04_JPRB,1.4212E-04_JPRB,1.3211E-04_JPRB,1.1628E-04_JPRB,9.7846E-05_JPRB,&
+&8.8593E-05_JPRB,9.9520E-05_JPRB,1.0066E-01_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&1.8247E-04_JPRB,2.0319E-04_JPRB,1.9922E-04_JPRB,1.8770E-04_JPRB,1.6984E-04_JPRB,1.4285E-04_JPRB,&
+&1.1822E-04_JPRB,1.0096E-04_JPRB,1.0114E-01_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&2.4463E-04_JPRB,2.7635E-04_JPRB,2.7262E-04_JPRB,2.5991E-04_JPRB,2.4023E-04_JPRB,2.1109E-04_JPRB,&
+&1.6739E-04_JPRB,1.4711E-04_JPRB,1.0151E-01_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&3.2023E-04_JPRB,3.6781E-04_JPRB,3.6463E-04_JPRB,3.4949E-04_JPRB,3.2644E-04_JPRB,2.9244E-04_JPRB,&
+&2.4737E-04_JPRB,1.8188E-04_JPRB,1.0162E-01_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&4.4239E-03_JPRB,4.5519E-03_JPRB,4.5724E-03_JPRB,4.4178E-03_JPRB,4.2198E-03_JPRB,4.0058E-03_JPRB,&
+&3.6615E-03_JPRB,3.0019E-03_JPRB,2.7752E-03_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&5.3797E-03_JPRB,5.6034E-03_JPRB,5.6810E-03_JPRB,5.5458E-03_JPRB,5.3768E-03_JPRB,5.2131E-03_JPRB,&
+&5.0349E-03_JPRB,4.6587E-03_JPRB,3.8056E-03_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&6.4347E-03_JPRB,6.7859E-03_JPRB,6.9273E-03_JPRB,6.8482E-03_JPRB,6.7118E-03_JPRB,6.6177E-03_JPRB,&
+&6.6013E-03_JPRB,6.5225E-03_JPRB,5.0401E-03_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&7.5645E-03_JPRB,8.0892E-03_JPRB,8.3352E-03_JPRB,8.3083E-03_JPRB,8.2560E-03_JPRB,8.2611E-03_JPRB,&
+&8.3847E-03_JPRB,8.5252E-03_JPRB,6.4996E-03_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&8.7680E-03_JPRB,9.5130E-03_JPRB,9.8898E-03_JPRB,9.9473E-03_JPRB,1.0011E-02_JPRB,1.0143E-02_JPRB,&
+&1.0425E-02_JPRB,1.0769E-02_JPRB,8.2076E-03_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&3.8956E-03_JPRB,4.0502E-03_JPRB,4.0603E-03_JPRB,3.9353E-03_JPRB,3.7465E-03_JPRB,3.4739E-03_JPRB,&
+&3.0905E-03_JPRB,2.3943E-03_JPRB,2.1184E-03_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&4.7918E-03_JPRB,5.0484E-03_JPRB,5.0971E-03_JPRB,4.9960E-03_JPRB,4.7901E-03_JPRB,4.5311E-03_JPRB,&
+&4.2459E-03_JPRB,3.8455E-03_JPRB,2.9268E-03_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&5.7854E-03_JPRB,6.1757E-03_JPRB,6.2838E-03_JPRB,6.2127E-03_JPRB,6.0071E-03_JPRB,5.7828E-03_JPRB,&
+&5.6083E-03_JPRB,5.4427E-03_JPRB,3.9021E-03_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&6.8580E-03_JPRB,7.4217E-03_JPRB,7.6327E-03_JPRB,7.5901E-03_JPRB,7.4062E-03_JPRB,7.2358E-03_JPRB,&
+&7.1625E-03_JPRB,7.2397E-03_JPRB,5.0676E-03_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&8.0102E-03_JPRB,8.7860E-03_JPRB,9.1257E-03_JPRB,9.1299E-03_JPRB,8.9977E-03_JPRB,8.9056E-03_JPRB,&
+&8.9466E-03_JPRB,9.2132E-03_JPRB,6.4234E-03_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&3.2185E-03_JPRB,3.3667E-03_JPRB,3.3683E-03_JPRB,3.2709E-03_JPRB,3.1158E-03_JPRB,2.8506E-03_JPRB,&
+&2.4272E-03_JPRB,1.7393E-03_JPRB,1.4905E-03_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&4.0272E-03_JPRB,4.2617E-03_JPRB,4.2966E-03_JPRB,4.2148E-03_JPRB,4.0495E-03_JPRB,3.7679E-03_JPRB,&
+&3.4096E-03_JPRB,2.8817E-03_JPRB,2.0706E-03_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&4.9255E-03_JPRB,5.2838E-03_JPRB,5.3750E-03_JPRB,5.3109E-03_JPRB,5.1338E-03_JPRB,4.8398E-03_JPRB,&
+&4.5501E-03_JPRB,4.1909E-03_JPRB,2.7937E-03_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&5.9079E-03_JPRB,6.4325E-03_JPRB,6.6107E-03_JPRB,6.5630E-03_JPRB,6.3820E-03_JPRB,6.0909E-03_JPRB,&
+&5.8611E-03_JPRB,5.7562E-03_JPRB,3.6692E-03_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&6.9696E-03_JPRB,7.6975E-03_JPRB,7.9877E-03_JPRB,7.9811E-03_JPRB,7.8040E-03_JPRB,7.5290E-03_JPRB,&
+&7.3615E-03_JPRB,7.4650E-03_JPRB,4.7053E-03_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&2.5545E-03_JPRB,2.6859E-03_JPRB,2.6880E-03_JPRB,2.6203E-03_JPRB,2.4823E-03_JPRB,2.2588E-03_JPRB,&
+&1.8322E-03_JPRB,1.2713E-03_JPRB,1.0214E-03_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&3.2572E-03_JPRB,3.4677E-03_JPRB,3.4957E-03_JPRB,3.4378E-03_JPRB,3.2931E-03_JPRB,3.0601E-03_JPRB,&
+&2.6717E-03_JPRB,2.0170E-03_JPRB,1.4352E-03_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&4.0447E-03_JPRB,4.3684E-03_JPRB,4.4456E-03_JPRB,4.3951E-03_JPRB,4.2405E-03_JPRB,3.9923E-03_JPRB,&
+&3.6333E-03_JPRB,3.0944E-03_JPRB,1.9579E-03_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&4.9198E-03_JPRB,5.3921E-03_JPRB,5.5389E-03_JPRB,5.5062E-03_JPRB,5.3434E-03_JPRB,5.0807E-03_JPRB,&
+&4.7402E-03_JPRB,4.4587E-03_JPRB,2.6028E-03_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&5.8819E-03_JPRB,6.5317E-03_JPRB,6.7822E-03_JPRB,6.7765E-03_JPRB,6.6162E-03_JPRB,6.3253E-03_JPRB,&
+&5.9954E-03_JPRB,5.8840E-03_JPRB,3.3755E-03_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&1.9756E-03_JPRB,2.0856E-03_JPRB,2.0921E-03_JPRB,2.0392E-03_JPRB,1.9309E-03_JPRB,1.7377E-03_JPRB,&
+&1.3394E-03_JPRB,9.1353E-04_JPRB,7.0438E-04_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&2.5687E-03_JPRB,2.7468E-03_JPRB,2.7774E-03_JPRB,2.7346E-03_JPRB,2.6141E-03_JPRB,2.4178E-03_JPRB,&
+&2.0843E-03_JPRB,1.3471E-03_JPRB,9.9854E-04_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&3.2454E-03_JPRB,3.5226E-03_JPRB,3.5942E-03_JPRB,3.5589E-03_JPRB,3.4246E-03_JPRB,3.2139E-03_JPRB,&
+&2.8968E-03_JPRB,2.2808E-03_JPRB,1.3756E-03_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&4.0078E-03_JPRB,4.4135E-03_JPRB,4.5464E-03_JPRB,4.5227E-03_JPRB,4.3801E-03_JPRB,4.1565E-03_JPRB,&
+&3.8227E-03_JPRB,3.4129E-03_JPRB,1.8460E-03_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&4.8571E-03_JPRB,5.4208E-03_JPRB,5.6379E-03_JPRB,5.6316E-03_JPRB,5.4908E-03_JPRB,5.2408E-03_JPRB,&
+&4.8842E-03_JPRB,4.5932E-03_JPRB,2.4240E-03_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&1.4751E-03_JPRB,1.5649E-03_JPRB,1.5698E-03_JPRB,1.5250E-03_JPRB,1.4367E-03_JPRB,1.2692E-03_JPRB,&
+&9.2432E-04_JPRB,6.8601E-04_JPRB,5.0937E-04_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&1.9613E-03_JPRB,2.1071E-03_JPRB,2.1348E-03_JPRB,2.0943E-03_JPRB,1.9976E-03_JPRB,1.8330E-03_JPRB,&
+&1.5334E-03_JPRB,9.4512E-04_JPRB,7.0634E-04_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&2.5283E-03_JPRB,2.7572E-03_JPRB,2.8184E-03_JPRB,2.7830E-03_JPRB,2.6756E-03_JPRB,2.5003E-03_JPRB,&
+&2.2237E-03_JPRB,1.6320E-03_JPRB,9.7275E-04_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&3.1771E-03_JPRB,3.5120E-03_JPRB,3.6225E-03_JPRB,3.5959E-03_JPRB,3.4819E-03_JPRB,3.2887E-03_JPRB,&
+&3.0155E-03_JPRB,2.5468E-03_JPRB,1.3152E-03_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&3.9082E-03_JPRB,4.3796E-03_JPRB,4.5491E-03_JPRB,4.5475E-03_JPRB,4.4280E-03_JPRB,4.2073E-03_JPRB,&
+&3.9106E-03_JPRB,3.5240E-03_JPRB,1.7410E-03_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&1.0756E-03_JPRB,1.1457E-03_JPRB,1.1474E-03_JPRB,1.1092E-03_JPRB,1.0328E-03_JPRB,8.8328E-04_JPRB,&
+&6.4847E-04_JPRB,4.9589E-04_JPRB,5.7093E-04_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&1.4649E-03_JPRB,1.5820E-03_JPRB,1.5990E-03_JPRB,1.5629E-03_JPRB,1.4809E-03_JPRB,1.3423E-03_JPRB,&
+&1.0733E-03_JPRB,6.5945E-04_JPRB,6.7059E-04_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&1.9283E-03_JPRB,2.1130E-03_JPRB,2.1564E-03_JPRB,2.1214E-03_JPRB,2.0320E-03_JPRB,1.8875E-03_JPRB,&
+&1.6475E-03_JPRB,1.0998E-03_JPRB,8.2028E-04_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&2.4693E-03_JPRB,2.7409E-03_JPRB,2.8220E-03_JPRB,2.7928E-03_JPRB,2.6936E-03_JPRB,2.5390E-03_JPRB,&
+&2.3115E-03_JPRB,1.8751E-03_JPRB,1.0332E-03_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&3.0886E-03_JPRB,3.4749E-03_JPRB,3.5989E-03_JPRB,3.5853E-03_JPRB,3.4794E-03_JPRB,3.3014E-03_JPRB,&
+&3.0555E-03_JPRB,2.6855E-03_JPRB,1.3202E-03_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&7.7013E-04_JPRB,8.2269E-04_JPRB,8.2096E-04_JPRB,7.8766E-04_JPRB,7.2051E-04_JPRB,5.9734E-04_JPRB,&
+&4.5221E-04_JPRB,3.6815E-04_JPRB,1.2465E-03_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&1.0761E-03_JPRB,1.1666E-03_JPRB,1.1753E-03_JPRB,1.1418E-03_JPRB,1.0747E-03_JPRB,9.5486E-04_JPRB,&
+&7.2722E-04_JPRB,4.9024E-04_JPRB,1.3265E-03_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&1.4486E-03_JPRB,1.5933E-03_JPRB,1.6206E-03_JPRB,1.5872E-03_JPRB,1.5112E-03_JPRB,1.3931E-03_JPRB,&
+&1.1791E-03_JPRB,7.7032E-04_JPRB,1.4183E-03_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&1.8914E-03_JPRB,2.1096E-03_JPRB,2.1595E-03_JPRB,2.1285E-03_JPRB,2.0449E-03_JPRB,1.9150E-03_JPRB,&
+&1.7248E-03_JPRB,1.3234E-03_JPRB,1.5297E-03_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&2.4078E-03_JPRB,2.7196E-03_JPRB,2.8008E-03_JPRB,2.7757E-03_JPRB,2.6827E-03_JPRB,2.5404E-03_JPRB,&
+&2.3451E-03_JPRB,2.0264E-03_JPRB,1.6770E-03_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&5.4062E-04_JPRB,5.7894E-04_JPRB,5.7406E-04_JPRB,5.4447E-04_JPRB,4.8698E-04_JPRB,3.9028E-04_JPRB,&
+&3.0735E-04_JPRB,2.8186E-04_JPRB,6.3377E-03_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&7.7655E-04_JPRB,8.4391E-04_JPRB,8.4599E-04_JPRB,8.1629E-04_JPRB,7.6016E-04_JPRB,6.5450E-04_JPRB,&
+&4.7980E-04_JPRB,3.6416E-04_JPRB,6.4305E-03_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&1.0705E-03_JPRB,1.1799E-03_JPRB,1.1936E-03_JPRB,1.1638E-03_JPRB,1.1017E-03_JPRB,1.0023E-03_JPRB,&
+&8.1517E-04_JPRB,5.4679E-04_JPRB,6.5495E-03_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&1.4270E-03_JPRB,1.5951E-03_JPRB,1.6232E-03_JPRB,1.5910E-03_JPRB,1.5219E-03_JPRB,1.4168E-03_JPRB,&
+&1.2519E-03_JPRB,8.7875E-04_JPRB,6.6729E-03_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&1.8505E-03_JPRB,2.0950E-03_JPRB,2.1415E-03_JPRB,2.1108E-03_JPRB,2.0308E-03_JPRB,1.9153E-03_JPRB,&
+&1.7561E-03_JPRB,1.4678E-03_JPRB,6.8190E-03_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&3.8585E-04_JPRB,4.1375E-04_JPRB,4.0806E-04_JPRB,3.8295E-04_JPRB,3.3374E-04_JPRB,2.6302E-04_JPRB,&
+&2.1519E-04_JPRB,2.1943E-04_JPRB,4.4307E-02_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&5.6783E-04_JPRB,6.1776E-04_JPRB,6.1659E-04_JPRB,5.9118E-04_JPRB,5.4276E-04_JPRB,4.5386E-04_JPRB,&
+&3.3714E-04_JPRB,2.8172E-04_JPRB,4.4039E-02_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&7.9994E-04_JPRB,8.8269E-04_JPRB,8.8820E-04_JPRB,8.6201E-04_JPRB,8.1182E-04_JPRB,7.2562E-04_JPRB,&
+&5.6386E-04_JPRB,3.8153E-04_JPRB,4.3887E-02_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&1.0873E-03_JPRB,1.2167E-03_JPRB,1.2305E-03_JPRB,1.2016E-03_JPRB,1.1439E-03_JPRB,1.0569E-03_JPRB,&
+&9.1489E-04_JPRB,6.0012E-04_JPRB,4.3695E-02_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&1.4329E-03_JPRB,1.6260E-03_JPRB,1.6511E-03_JPRB,1.6186E-03_JPRB,1.5509E-03_JPRB,1.4549E-03_JPRB,&
+&1.3198E-03_JPRB,1.0619E-03_JPRB,4.3454E-02_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&3.3331E-04_JPRB,3.5859E-04_JPRB,3.5347E-04_JPRB,3.3213E-04_JPRB,2.8916E-04_JPRB,2.2877E-04_JPRB,&
+&1.7900E-04_JPRB,1.9967E-04_JPRB,1.0878E-01_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&4.9047E-04_JPRB,5.3552E-04_JPRB,5.3381E-04_JPRB,5.1299E-04_JPRB,4.7115E-04_JPRB,3.9388E-04_JPRB,&
+&2.9080E-04_JPRB,2.3623E-04_JPRB,1.0793E-01_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&6.9278E-04_JPRB,7.6757E-04_JPRB,7.7025E-04_JPRB,7.4755E-04_JPRB,7.0442E-04_JPRB,6.3244E-04_JPRB,&
+&4.9501E-04_JPRB,3.3029E-04_JPRB,1.0687E-01_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&9.4454E-04_JPRB,1.0621E-03_JPRB,1.0699E-03_JPRB,1.0431E-03_JPRB,9.9167E-04_JPRB,9.1658E-04_JPRB,&
+&7.9795E-04_JPRB,5.4407E-04_JPRB,1.0586E-01_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&1.2469E-03_JPRB,1.4253E-03_JPRB,1.4411E-03_JPRB,1.4083E-03_JPRB,1.3458E-03_JPRB,1.2607E-03_JPRB,&
+&1.1470E-03_JPRB,9.3092E-04_JPRB,1.0499E-01_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&2.8868E-04_JPRB,3.1016E-04_JPRB,3.0546E-04_JPRB,2.8704E-04_JPRB,2.5147E-04_JPRB,1.9676E-04_JPRB,&
+&1.5529E-04_JPRB,1.6943E-04_JPRB,1.6800E-01_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&4.2419E-04_JPRB,4.6341E-04_JPRB,4.6115E-04_JPRB,4.4308E-04_JPRB,4.0808E-04_JPRB,3.4351E-04_JPRB,&
+&2.4857E-04_JPRB,1.9580E-04_JPRB,1.6656E-01_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&6.0023E-04_JPRB,6.6617E-04_JPRB,6.6650E-04_JPRB,6.4587E-04_JPRB,6.0783E-04_JPRB,5.4736E-04_JPRB,&
+&4.3585E-04_JPRB,2.8774E-04_JPRB,1.6485E-01_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&8.1906E-04_JPRB,9.2524E-04_JPRB,9.2921E-04_JPRB,9.0286E-04_JPRB,8.5627E-04_JPRB,7.9080E-04_JPRB,&
+&6.9052E-04_JPRB,4.8039E-04_JPRB,1.6324E-01_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&1.0839E-03_JPRB,1.2432E-03_JPRB,1.2546E-03_JPRB,1.2224E-03_JPRB,1.1638E-03_JPRB,1.0874E-03_JPRB,&
+&9.8876E-04_JPRB,8.1388E-04_JPRB,1.6195E-01_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&2.5312E-04_JPRB,2.6982E-04_JPRB,2.6458E-04_JPRB,2.4857E-04_JPRB,2.1806E-04_JPRB,1.7081E-04_JPRB,&
+&1.3117E-04_JPRB,1.3895E-04_JPRB,2.0739E-01_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&3.6904E-04_JPRB,4.0143E-04_JPRB,3.9817E-04_JPRB,3.8186E-04_JPRB,3.5137E-04_JPRB,2.9757E-04_JPRB,&
+&2.1658E-04_JPRB,1.6379E-04_JPRB,2.0586E-01_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&5.2080E-04_JPRB,5.7811E-04_JPRB,5.7661E-04_JPRB,5.5693E-04_JPRB,5.2224E-04_JPRB,4.6985E-04_JPRB,&
+&3.7580E-04_JPRB,2.4807E-04_JPRB,2.0409E-01_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&7.1123E-04_JPRB,8.0344E-04_JPRB,8.0567E-04_JPRB,7.8029E-04_JPRB,7.3718E-04_JPRB,6.7848E-04_JPRB,&
+&5.9304E-04_JPRB,4.2232E-04_JPRB,2.0245E-01_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&9.4485E-04_JPRB,1.0811E-03_JPRB,1.0875E-03_JPRB,1.0578E-03_JPRB,1.0044E-03_JPRB,9.3443E-04_JPRB,&
+&8.4723E-04_JPRB,7.0315E-04_JPRB,2.0129E-01_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_A2.F90	(revision 2160)
@@ -0,0 +1,1606 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature TREF-15, 
+!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&1.0292E-02_JPRB,1.0074E-02_JPRB,1.0433E-02_JPRB,1.0920E-02_JPRB,1.1239E-02_JPRB,1.1304E-02_JPRB,&
+&1.1018E-02_JPRB,9.9412E-03_JPRB,1.0267E-02_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&1.2495E-02_JPRB,1.2453E-02_JPRB,1.3049E-02_JPRB,1.3792E-02_JPRB,1.4278E-02_JPRB,1.4496E-02_JPRB,&
+&1.4236E-02_JPRB,1.3361E-02_JPRB,1.3925E-02_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&1.4859E-02_JPRB,1.5091E-02_JPRB,1.6017E-02_JPRB,1.7045E-02_JPRB,1.7806E-02_JPRB,1.8195E-02_JPRB,&
+&1.7952E-02_JPRB,1.7365E-02_JPRB,1.8464E-02_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&1.7363E-02_JPRB,1.7942E-02_JPRB,1.9281E-02_JPRB,2.0718E-02_JPRB,2.1801E-02_JPRB,2.2424E-02_JPRB,&
+&2.2300E-02_JPRB,2.2092E-02_JPRB,2.3948E-02_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&1.9984E-02_JPRB,2.1018E-02_JPRB,2.2868E-02_JPRB,2.4808E-02_JPRB,2.6324E-02_JPRB,2.7242E-02_JPRB,&
+&2.7276E-02_JPRB,2.7701E-02_JPRB,3.0488E-02_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&9.5128E-03_JPRB,9.2867E-03_JPRB,9.5490E-03_JPRB,9.8633E-03_JPRB,1.0027E-02_JPRB,1.0058E-02_JPRB,&
+&9.7636E-03_JPRB,8.7994E-03_JPRB,8.5570E-03_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&1.1668E-02_JPRB,1.1584E-02_JPRB,1.2077E-02_JPRB,1.2559E-02_JPRB,1.2920E-02_JPRB,1.3060E-02_JPRB,&
+&1.2825E-02_JPRB,1.1983E-02_JPRB,1.1751E-02_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&1.4011E-02_JPRB,1.4151E-02_JPRB,1.4940E-02_JPRB,1.5660E-02_JPRB,1.6284E-02_JPRB,1.6579E-02_JPRB,&
+&1.6367E-02_JPRB,1.5804E-02_JPRB,1.5742E-02_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&1.6508E-02_JPRB,1.6961E-02_JPRB,1.8102E-02_JPRB,1.9197E-02_JPRB,2.0137E-02_JPRB,2.0668E-02_JPRB,&
+&2.0505E-02_JPRB,2.0318E-02_JPRB,2.0610E-02_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&1.9122E-02_JPRB,2.0006E-02_JPRB,2.1590E-02_JPRB,2.3174E-02_JPRB,2.4520E-02_JPRB,2.5288E-02_JPRB,&
+&2.5261E-02_JPRB,2.5631E-02_JPRB,2.6467E-02_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&8.4316E-03_JPRB,8.1842E-03_JPRB,8.3414E-03_JPRB,8.4601E-03_JPRB,8.4527E-03_JPRB,8.3467E-03_JPRB,&
+&8.0420E-03_JPRB,7.1142E-03_JPRB,6.5461E-03_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&1.0508E-02_JPRB,1.0365E-02_JPRB,1.0700E-02_JPRB,1.0941E-02_JPRB,1.1049E-02_JPRB,1.1031E-02_JPRB,&
+&1.0751E-02_JPRB,9.9386E-03_JPRB,9.1449E-03_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&1.2785E-02_JPRB,1.2829E-02_JPRB,1.3389E-02_JPRB,1.3825E-02_JPRB,1.4105E-02_JPRB,1.4232E-02_JPRB,&
+&1.3991E-02_JPRB,1.3420E-02_JPRB,1.2428E-02_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&1.5245E-02_JPRB,1.5545E-02_JPRB,1.6390E-02_JPRB,1.7132E-02_JPRB,1.7666E-02_JPRB,1.7977E-02_JPRB,&
+&1.7716E-02_JPRB,1.7486E-02_JPRB,1.6472E-02_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&1.7859E-02_JPRB,1.8505E-02_JPRB,1.9736E-02_JPRB,2.0852E-02_JPRB,2.1757E-02_JPRB,2.2224E-02_JPRB,&
+&2.2056E-02_JPRB,2.2280E-02_JPRB,2.1403E-02_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&7.3484E-03_JPRB,7.0902E-03_JPRB,7.1380E-03_JPRB,7.1024E-03_JPRB,6.9776E-03_JPRB,6.7400E-03_JPRB,&
+&6.3521E-03_JPRB,5.4673E-03_JPRB,4.8295E-03_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&9.3310E-03_JPRB,9.1397E-03_JPRB,9.3159E-03_JPRB,9.3538E-03_JPRB,9.2681E-03_JPRB,9.0554E-03_JPRB,&
+&8.7344E-03_JPRB,7.9076E-03_JPRB,6.8828E-03_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&1.1534E-02_JPRB,1.1475E-02_JPRB,1.1819E-02_JPRB,1.1988E-02_JPRB,1.2000E-02_JPRB,1.1864E-02_JPRB,&
+&1.1575E-02_JPRB,1.0994E-02_JPRB,9.4901E-03_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&1.3943E-02_JPRB,1.4087E-02_JPRB,1.4649E-02_JPRB,1.5032E-02_JPRB,1.5214E-02_JPRB,1.5176E-02_JPRB,&
+&1.4865E-02_JPRB,1.4524E-02_JPRB,1.2777E-02_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&1.6517E-02_JPRB,1.6976E-02_JPRB,1.7827E-02_JPRB,1.8519E-02_JPRB,1.8920E-02_JPRB,1.9000E-02_JPRB,&
+&1.8720E-02_JPRB,1.8746E-02_JPRB,1.6804E-02_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&6.3624E-03_JPRB,6.1133E-03_JPRB,6.0634E-03_JPRB,5.9330E-03_JPRB,5.7181E-03_JPRB,5.4022E-03_JPRB,&
+&4.9483E-03_JPRB,4.1022E-03_JPRB,3.4892E-03_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&8.2407E-03_JPRB,8.0303E-03_JPRB,8.0632E-03_JPRB,7.9504E-03_JPRB,7.7253E-03_JPRB,7.3962E-03_JPRB,&
+&6.9698E-03_JPRB,6.1767E-03_JPRB,5.0748E-03_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&1.0363E-02_JPRB,1.0246E-02_JPRB,1.0387E-02_JPRB,1.0335E-02_JPRB,1.0149E-02_JPRB,9.8386E-03_JPRB,&
+&9.4225E-03_JPRB,8.8118E-03_JPRB,7.1402E-03_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&1.2695E-02_JPRB,1.2755E-02_JPRB,1.3046E-02_JPRB,1.3138E-02_JPRB,1.3029E-02_JPRB,1.2750E-02_JPRB,&
+&1.2327E-02_JPRB,1.1882E-02_JPRB,9.7414E-03_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&1.5221E-02_JPRB,1.5544E-02_JPRB,1.6067E-02_JPRB,1.6367E-02_JPRB,1.6363E-02_JPRB,1.6145E-02_JPRB,&
+&1.5702E-02_JPRB,1.5530E-02_JPRB,1.2966E-02_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&5.3819E-03_JPRB,5.1682E-03_JPRB,5.0489E-03_JPRB,4.8682E-03_JPRB,4.6033E-03_JPRB,4.2570E-03_JPRB,&
+&3.7892E-03_JPRB,2.8608E-03_JPRB,2.4512E-03_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&7.1280E-03_JPRB,6.9367E-03_JPRB,6.8489E-03_JPRB,6.6487E-03_JPRB,6.3384E-03_JPRB,5.9570E-03_JPRB,&
+&5.4784E-03_JPRB,4.6646E-03_JPRB,3.6355E-03_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&9.1302E-03_JPRB,9.0145E-03_JPRB,8.9822E-03_JPRB,8.7868E-03_JPRB,8.4616E-03_JPRB,8.0561E-03_JPRB,&
+&7.5662E-03_JPRB,6.8605E-03_JPRB,5.2018E-03_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&1.1358E-02_JPRB,1.1388E-02_JPRB,1.1456E-02_JPRB,1.1318E-02_JPRB,1.1012E-02_JPRB,1.0595E-02_JPRB,&
+&1.0058E-02_JPRB,9.4902E-03_JPRB,7.2223E-03_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&1.3798E-02_JPRB,1.4041E-02_JPRB,1.4287E-02_JPRB,1.4257E-02_JPRB,1.3997E-02_JPRB,1.3586E-02_JPRB,&
+&1.2991E-02_JPRB,1.2596E-02_JPRB,9.7278E-03_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&4.4201E-03_JPRB,4.2655E-03_JPRB,4.1450E-03_JPRB,3.9476E-03_JPRB,3.6722E-03_JPRB,3.3249E-03_JPRB,&
+&2.8458E-03_JPRB,1.9671E-03_JPRB,1.7803E-03_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&5.9991E-03_JPRB,5.8588E-03_JPRB,5.7556E-03_JPRB,5.5028E-03_JPRB,5.1661E-03_JPRB,4.7702E-03_JPRB,&
+&4.2756E-03_JPRB,3.4608E-03_JPRB,2.6084E-03_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&7.8395E-03_JPRB,7.7643E-03_JPRB,7.6944E-03_JPRB,7.4017E-03_JPRB,7.0170E-03_JPRB,6.5646E-03_JPRB,&
+&6.0423E-03_JPRB,5.2630E-03_JPRB,3.7628E-03_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&9.9189E-03_JPRB,9.9815E-03_JPRB,9.9658E-03_JPRB,9.6723E-03_JPRB,9.2685E-03_JPRB,8.7611E-03_JPRB,&
+&8.1722E-03_JPRB,7.4723E-03_JPRB,5.2872E-03_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&1.2224E-02_JPRB,1.2487E-02_JPRB,1.2587E-02_JPRB,1.2338E-02_JPRB,1.1918E-02_JPRB,1.1379E-02_JPRB,&
+&1.0715E-02_JPRB,1.0101E-02_JPRB,7.2253E-03_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&3.5350E-03_JPRB,3.4325E-03_JPRB,3.3275E-03_JPRB,3.1605E-03_JPRB,2.8988E-03_JPRB,2.5686E-03_JPRB,&
+&2.1091E-03_JPRB,1.2955E-03_JPRB,2.2677E-03_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&4.9245E-03_JPRB,4.8341E-03_JPRB,4.7376E-03_JPRB,4.5164E-03_JPRB,4.1844E-03_JPRB,3.7894E-03_JPRB,&
+&3.3070E-03_JPRB,2.4762E-03_JPRB,2.6602E-03_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&6.5727E-03_JPRB,6.5413E-03_JPRB,6.4715E-03_JPRB,6.1921E-03_JPRB,5.7948E-03_JPRB,5.3290E-03_JPRB,&
+&4.7963E-03_JPRB,4.0123E-03_JPRB,3.3053E-03_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&8.4673E-03_JPRB,8.5585E-03_JPRB,8.5340E-03_JPRB,8.2251E-03_JPRB,7.7660E-03_JPRB,7.2331E-03_JPRB,&
+&6.6181E-03_JPRB,5.8537E-03_JPRB,4.2835E-03_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&1.0594E-02_JPRB,1.0877E-02_JPRB,1.0934E-02_JPRB,1.0630E-02_JPRB,1.0118E-02_JPRB,9.5083E-03_JPRB,&
+&8.7956E-03_JPRB,8.0306E-03_JPRB,5.6393E-03_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&2.7403E-03_JPRB,2.6787E-03_JPRB,2.5973E-03_JPRB,2.4570E-03_JPRB,2.2443E-03_JPRB,1.9562E-03_JPRB,&
+&1.5185E-03_JPRB,8.3616E-04_JPRB,1.0274E-02_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&3.9274E-03_JPRB,3.8796E-03_JPRB,3.7992E-03_JPRB,3.6140E-03_JPRB,3.3367E-03_JPRB,2.9763E-03_JPRB,&
+&2.5173E-03_JPRB,1.7223E-03_JPRB,1.0390E-02_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&5.3634E-03_JPRB,5.3721E-03_JPRB,5.3082E-03_JPRB,5.0709E-03_JPRB,4.7250E-03_JPRB,4.2829E-03_JPRB,&
+&3.7573E-03_JPRB,2.9940E-03_JPRB,1.0638E-02_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&7.0458E-03_JPRB,7.1640E-03_JPRB,7.1301E-03_JPRB,6.8617E-03_JPRB,6.4511E-03_JPRB,5.9118E-03_JPRB,&
+&5.2974E-03_JPRB,4.5531E-03_JPRB,1.1091E-02_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&8.9617E-03_JPRB,9.2589E-03_JPRB,9.2849E-03_JPRB,9.0088E-03_JPRB,8.5345E-03_JPRB,7.8845E-03_JPRB,&
+&7.1544E-03_JPRB,6.3553E-03_JPRB,1.1709E-02_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&2.1319E-03_JPRB,2.1004E-03_JPRB,2.0372E-03_JPRB,1.9210E-03_JPRB,1.7497E-03_JPRB,1.5111E-03_JPRB,&
+&1.1301E-03_JPRB,5.5756E-04_JPRB,7.5283E-02_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&3.1363E-03_JPRB,3.1212E-03_JPRB,3.0574E-03_JPRB,2.9015E-03_JPRB,2.6722E-03_JPRB,2.3756E-03_JPRB,&
+&1.9576E-03_JPRB,1.2195E-03_JPRB,7.4064E-02_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&4.3731E-03_JPRB,4.4117E-03_JPRB,4.3602E-03_JPRB,4.1608E-03_JPRB,3.8669E-03_JPRB,3.4927E-03_JPRB,&
+&3.0050E-03_JPRB,2.2902E-03_JPRB,7.3035E-02_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&5.8455E-03_JPRB,5.9881E-03_JPRB,5.9565E-03_JPRB,5.7270E-03_JPRB,5.3754E-03_JPRB,4.9035E-03_JPRB,&
+&4.3124E-03_JPRB,3.6091E-03_JPRB,7.2537E-02_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&7.5468E-03_JPRB,7.8566E-03_JPRB,7.8695E-03_JPRB,7.6289E-03_JPRB,7.2133E-03_JPRB,6.6234E-03_JPRB,&
+&5.9025E-03_JPRB,5.1322E-03_JPRB,7.2257E-02_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&1.9745E-03_JPRB,1.9703E-03_JPRB,1.9199E-03_JPRB,1.8121E-03_JPRB,1.6559E-03_JPRB,1.4431E-03_JPRB,&
+&1.1163E-03_JPRB,5.3500E-04_JPRB,1.9757E-01_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&2.8999E-03_JPRB,2.9279E-03_JPRB,2.8819E-03_JPRB,2.7350E-03_JPRB,2.5277E-03_JPRB,2.2543E-03_JPRB,&
+&1.8746E-03_JPRB,1.2124E-03_JPRB,1.9384E-01_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&4.0444E-03_JPRB,4.1420E-03_JPRB,4.1037E-03_JPRB,3.9240E-03_JPRB,3.6578E-03_JPRB,3.3096E-03_JPRB,&
+&2.8567E-03_JPRB,2.1998E-03_JPRB,1.9071E-01_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&5.4085E-03_JPRB,5.6287E-03_JPRB,5.6077E-03_JPRB,5.4059E-03_JPRB,5.0834E-03_JPRB,4.6413E-03_JPRB,&
+&4.0709E-03_JPRB,3.3776E-03_JPRB,1.8809E-01_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&6.9941E-03_JPRB,7.3880E-03_JPRB,7.4108E-03_JPRB,7.2046E-03_JPRB,6.8126E-03_JPRB,6.2573E-03_JPRB,&
+&5.5477E-03_JPRB,4.7861E-03_JPRB,1.8600E-01_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&1.7996E-03_JPRB,1.8206E-03_JPRB,1.7805E-03_JPRB,1.6829E-03_JPRB,1.5433E-03_JPRB,1.3501E-03_JPRB,&
+&1.0572E-03_JPRB,5.4808E-04_JPRB,3.2846E-01_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&2.6426E-03_JPRB,2.7068E-03_JPRB,2.6687E-03_JPRB,2.5393E-03_JPRB,2.3520E-03_JPRB,2.1038E-03_JPRB,&
+&1.7678E-03_JPRB,1.1889E-03_JPRB,3.2273E-01_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&3.6853E-03_JPRB,3.8343E-03_JPRB,3.8028E-03_JPRB,3.6418E-03_JPRB,3.4031E-03_JPRB,3.0855E-03_JPRB,&
+&2.6713E-03_JPRB,2.0755E-03_JPRB,3.1779E-01_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&4.9356E-03_JPRB,5.2142E-03_JPRB,5.1981E-03_JPRB,5.0221E-03_JPRB,4.7252E-03_JPRB,4.3142E-03_JPRB,&
+&3.7960E-03_JPRB,3.1444E-03_JPRB,3.1325E-01_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&6.3947E-03_JPRB,6.8520E-03_JPRB,6.8760E-03_JPRB,6.6872E-03_JPRB,6.3222E-03_JPRB,5.8083E-03_JPRB,&
+&5.1616E-03_JPRB,4.4214E-03_JPRB,3.0903E-01_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&1.6151E-03_JPRB,1.6567E-03_JPRB,1.6234E-03_JPRB,1.5373E-03_JPRB,1.4124E-03_JPRB,1.2394E-03_JPRB,&
+&9.8564E-04_JPRB,5.5616E-04_JPRB,4.3871E-01_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&2.3710E-03_JPRB,2.4678E-03_JPRB,2.4327E-03_JPRB,2.3183E-03_JPRB,2.1495E-03_JPRB,1.9302E-03_JPRB,&
+&1.6336E-03_JPRB,1.1398E-03_JPRB,4.3206E-01_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&3.3121E-03_JPRB,3.4978E-03_JPRB,3.4669E-03_JPRB,3.3267E-03_JPRB,3.1113E-03_JPRB,2.8243E-03_JPRB,&
+&2.4585E-03_JPRB,1.9402E-03_JPRB,4.2585E-01_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&4.4457E-03_JPRB,4.7587E-03_JPRB,4.7468E-03_JPRB,4.5875E-03_JPRB,4.3110E-03_JPRB,3.9394E-03_JPRB,&
+&3.4774E-03_JPRB,2.8993E-03_JPRB,4.1993E-01_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&5.7689E-03_JPRB,6.2589E-03_JPRB,6.2951E-03_JPRB,6.1057E-03_JPRB,5.7619E-03_JPRB,5.2957E-03_JPRB,&
+&4.7230E-03_JPRB,4.0528E-03_JPRB,4.1400E-01_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&2.8341E-02_JPRB,2.4949E-02_JPRB,2.4794E-02_JPRB,2.3987E-02_JPRB,2.3812E-02_JPRB,2.2586E-02_JPRB,&
+&2.0187E-02_JPRB,1.9376E-02_JPRB,2.5381E-02_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&3.3991E-02_JPRB,3.0192E-02_JPRB,3.0574E-02_JPRB,3.0065E-02_JPRB,2.9840E-02_JPRB,2.8013E-02_JPRB,&
+&2.5566E-02_JPRB,2.6044E-02_JPRB,3.3447E-02_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&3.9910E-02_JPRB,3.6271E-02_JPRB,3.6774E-02_JPRB,3.6789E-02_JPRB,3.6160E-02_JPRB,3.4328E-02_JPRB,&
+&3.2309E-02_JPRB,3.3900E-02_JPRB,4.2891E-02_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&4.5950E-02_JPRB,4.3254E-02_JPRB,4.3515E-02_JPRB,4.3816E-02_JPRB,4.3274E-02_JPRB,4.0958E-02_JPRB,&
+&3.9828E-02_JPRB,4.3039E-02_JPRB,5.4536E-02_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&5.2074E-02_JPRB,5.0170E-02_JPRB,5.0735E-02_JPRB,5.1340E-02_JPRB,5.0699E-02_JPRB,4.7916E-02_JPRB,&
+&4.9158E-02_JPRB,5.3574E-02_JPRB,6.8520E-02_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&2.6184E-02_JPRB,2.3296E-02_JPRB,2.3226E-02_JPRB,2.2714E-02_JPRB,2.2514E-02_JPRB,2.1363E-02_JPRB,&
+&1.9364E-02_JPRB,1.8250E-02_JPRB,2.2856E-02_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&3.1743E-02_JPRB,2.8597E-02_JPRB,2.8854E-02_JPRB,2.8835E-02_JPRB,2.8199E-02_JPRB,2.7046E-02_JPRB,&
+&2.4544E-02_JPRB,2.4456E-02_JPRB,3.0699E-02_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&3.7600E-02_JPRB,3.4758E-02_JPRB,3.5112E-02_JPRB,3.5357E-02_JPRB,3.4504E-02_JPRB,3.3441E-02_JPRB,&
+&3.1117E-02_JPRB,3.2055E-02_JPRB,4.0509E-02_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&4.3772E-02_JPRB,4.1496E-02_JPRB,4.2012E-02_JPRB,4.2309E-02_JPRB,4.1696E-02_JPRB,3.9959E-02_JPRB,&
+&3.8762E-02_JPRB,4.0415E-02_JPRB,5.2629E-02_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&5.0069E-02_JPRB,4.8330E-02_JPRB,4.9427E-02_JPRB,4.9767E-02_JPRB,4.9310E-02_JPRB,4.7260E-02_JPRB,&
+&4.8222E-02_JPRB,5.0586E-02_JPRB,6.6929E-02_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&2.2843E-02_JPRB,2.0821E-02_JPRB,2.0350E-02_JPRB,2.0283E-02_JPRB,1.9897E-02_JPRB,1.9120E-02_JPRB,&
+&1.7384E-02_JPRB,1.6170E-02_JPRB,1.8446E-02_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&2.8199E-02_JPRB,2.6062E-02_JPRB,2.5776E-02_JPRB,2.5997E-02_JPRB,2.5440E-02_JPRB,2.4723E-02_JPRB,&
+&2.2441E-02_JPRB,2.1717E-02_JPRB,2.5483E-02_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&3.3953E-02_JPRB,3.1919E-02_JPRB,3.1941E-02_JPRB,3.2157E-02_JPRB,3.1747E-02_JPRB,3.0922E-02_JPRB,&
+&2.8559E-02_JPRB,2.8709E-02_JPRB,3.4439E-02_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&4.0002E-02_JPRB,3.8423E-02_JPRB,3.8902E-02_JPRB,3.8911E-02_JPRB,3.8820E-02_JPRB,3.7594E-02_JPRB,&
+&3.6351E-02_JPRB,3.6718E-02_JPRB,4.5775E-02_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&4.6219E-02_JPRB,4.5155E-02_JPRB,4.6197E-02_JPRB,4.6387E-02_JPRB,4.6153E-02_JPRB,4.5334E-02_JPRB,&
+&4.5834E-02_JPRB,4.6534E-02_JPRB,5.9401E-02_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&1.9312E-02_JPRB,1.7992E-02_JPRB,1.7480E-02_JPRB,1.7446E-02_JPRB,1.7111E-02_JPRB,1.6477E-02_JPRB,&
+&1.5243E-02_JPRB,1.3399E-02_JPRB,1.4121E-02_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&2.4344E-02_JPRB,2.2955E-02_JPRB,2.2617E-02_JPRB,2.2783E-02_JPRB,2.2496E-02_JPRB,2.1867E-02_JPRB,&
+&1.9808E-02_JPRB,1.8936E-02_JPRB,1.9938E-02_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&2.9801E-02_JPRB,2.8523E-02_JPRB,2.8566E-02_JPRB,2.8709E-02_JPRB,2.8682E-02_JPRB,2.7725E-02_JPRB,&
+&2.5334E-02_JPRB,2.5284E-02_JPRB,2.7743E-02_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&3.5620E-02_JPRB,3.4742E-02_JPRB,3.5299E-02_JPRB,3.5308E-02_JPRB,3.5457E-02_JPRB,3.4419E-02_JPRB,&
+&3.2604E-02_JPRB,3.3013E-02_JPRB,3.7587E-02_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&4.1887E-02_JPRB,4.1321E-02_JPRB,4.2274E-02_JPRB,4.2660E-02_JPRB,4.2937E-02_JPRB,4.2081E-02_JPRB,&
+&4.1593E-02_JPRB,4.2622E-02_JPRB,4.9653E-02_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&1.5962E-02_JPRB,1.5091E-02_JPRB,1.4926E-02_JPRB,1.4725E-02_JPRB,1.4471E-02_JPRB,1.4016E-02_JPRB,&
+&1.2941E-02_JPRB,1.0781E-02_JPRB,1.0820E-02_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&2.0561E-02_JPRB,1.9656E-02_JPRB,1.9606E-02_JPRB,1.9723E-02_JPRB,1.9597E-02_JPRB,1.8959E-02_JPRB,&
+&1.7070E-02_JPRB,1.5994E-02_JPRB,1.5507E-02_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&2.5675E-02_JPRB,2.4818E-02_JPRB,2.5196E-02_JPRB,2.5517E-02_JPRB,2.5439E-02_JPRB,2.4412E-02_JPRB,&
+&2.1991E-02_JPRB,2.1552E-02_JPRB,2.1888E-02_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&3.1284E-02_JPRB,3.0688E-02_JPRB,3.1452E-02_JPRB,3.1913E-02_JPRB,3.1938E-02_JPRB,3.0781E-02_JPRB,&
+&2.8330E-02_JPRB,2.8796E-02_JPRB,3.0247E-02_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&3.7244E-02_JPRB,3.7039E-02_JPRB,3.8113E-02_JPRB,3.9041E-02_JPRB,3.9409E-02_JPRB,3.8138E-02_JPRB,&
+&3.6567E-02_JPRB,3.7730E-02_JPRB,4.0679E-02_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&1.2975E-02_JPRB,1.2256E-02_JPRB,1.2340E-02_JPRB,1.2080E-02_JPRB,1.1895E-02_JPRB,1.1506E-02_JPRB,&
+&1.0365E-02_JPRB,8.5383E-03_JPRB,8.0172E-03_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&1.7187E-02_JPRB,1.6321E-02_JPRB,1.6561E-02_JPRB,1.6669E-02_JPRB,1.6611E-02_JPRB,1.5858E-02_JPRB,&
+&1.4206E-02_JPRB,1.2638E-02_JPRB,1.1866E-02_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&2.1950E-02_JPRB,2.1039E-02_JPRB,2.1721E-02_JPRB,2.2100E-02_JPRB,2.1989E-02_JPRB,2.0834E-02_JPRB,&
+&1.8607E-02_JPRB,1.7648E-02_JPRB,1.7187E-02_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&2.7221E-02_JPRB,2.6492E-02_JPRB,2.7582E-02_JPRB,2.8232E-02_JPRB,2.8034E-02_JPRB,2.6720E-02_JPRB,&
+&2.4048E-02_JPRB,2.4099E-02_JPRB,2.3975E-02_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&3.2966E-02_JPRB,3.2596E-02_JPRB,3.4013E-02_JPRB,3.5128E-02_JPRB,3.5174E-02_JPRB,3.3585E-02_JPRB,&
+&3.0966E-02_JPRB,3.2147E-02_JPRB,3.2714E-02_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&1.1003E-02_JPRB,1.0172E-02_JPRB,9.9689E-03_JPRB,9.7030E-03_JPRB,9.5816E-03_JPRB,9.1864E-03_JPRB,&
+&8.3157E-03_JPRB,6.5477E-03_JPRB,5.8584E-03_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&1.4954E-02_JPRB,1.3915E-02_JPRB,1.3705E-02_JPRB,1.3805E-02_JPRB,1.3711E-02_JPRB,1.2918E-02_JPRB,&
+&1.1613E-02_JPRB,9.7524E-03_JPRB,8.8921E-03_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&1.9525E-02_JPRB,1.8286E-02_JPRB,1.8359E-02_JPRB,1.8803E-02_JPRB,1.8505E-02_JPRB,1.7397E-02_JPRB,&
+&1.5545E-02_JPRB,1.4074E-02_JPRB,1.3147E-02_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&2.4765E-02_JPRB,2.3347E-02_JPRB,2.3852E-02_JPRB,2.4521E-02_JPRB,2.4046E-02_JPRB,2.2746E-02_JPRB,&
+&2.0338E-02_JPRB,1.9593E-02_JPRB,1.8718E-02_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&3.0444E-02_JPRB,2.9114E-02_JPRB,2.9981E-02_JPRB,3.1001E-02_JPRB,3.0659E-02_JPRB,2.9115E-02_JPRB,&
+&2.6153E-02_JPRB,2.6663E-02_JPRB,2.5778E-02_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&9.5903E-03_JPRB,8.7677E-03_JPRB,8.2751E-03_JPRB,7.7628E-03_JPRB,7.6194E-03_JPRB,7.2194E-03_JPRB,&
+&6.4757E-03_JPRB,5.1626E-03_JPRB,4.5446E-03_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&1.3386E-02_JPRB,1.2290E-02_JPRB,1.1661E-02_JPRB,1.1306E-02_JPRB,1.1055E-02_JPRB,1.0454E-02_JPRB,&
+&9.3918E-03_JPRB,7.5740E-03_JPRB,6.6212E-03_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&1.7895E-02_JPRB,1.6495E-02_JPRB,1.5871E-02_JPRB,1.5730E-02_JPRB,1.5237E-02_JPRB,1.4347E-02_JPRB,&
+&1.2880E-02_JPRB,1.1121E-02_JPRB,9.9657E-03_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&2.3088E-02_JPRB,2.1460E-02_JPRB,2.0931E-02_JPRB,2.0828E-02_JPRB,2.0243E-02_JPRB,1.9039E-02_JPRB,&
+&1.7178E-02_JPRB,1.5707E-02_JPRB,1.4369E-02_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&2.8768E-02_JPRB,2.7065E-02_JPRB,2.6736E-02_JPRB,2.6678E-02_JPRB,2.6248E-02_JPRB,2.4878E-02_JPRB,&
+&2.2359E-02_JPRB,2.1798E-02_JPRB,1.9974E-02_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&8.1489E-03_JPRB,7.4648E-03_JPRB,6.9804E-03_JPRB,6.4191E-03_JPRB,5.9636E-03_JPRB,5.4909E-03_JPRB,&
+&4.8784E-03_JPRB,3.8347E-03_JPRB,1.5314E-02_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&1.1712E-02_JPRB,1.0789E-02_JPRB,1.0109E-02_JPRB,9.4829E-03_JPRB,8.8584E-03_JPRB,8.2278E-03_JPRB,&
+&7.3764E-03_JPRB,5.7877E-03_JPRB,1.6244E-02_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&1.6046E-02_JPRB,1.4820E-02_JPRB,1.4055E-02_JPRB,1.3332E-02_JPRB,1.2456E-02_JPRB,1.1636E-02_JPRB,&
+&1.0489E-02_JPRB,8.6873E-03_JPRB,1.7494E-02_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&2.1066E-02_JPRB,1.9610E-02_JPRB,1.8931E-02_JPRB,1.7888E-02_JPRB,1.6756E-02_JPRB,1.5784E-02_JPRB,&
+&1.4417E-02_JPRB,1.2557E-02_JPRB,1.9326E-02_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&2.6667E-02_JPRB,2.5074E-02_JPRB,2.4522E-02_JPRB,2.3189E-02_JPRB,2.2008E-02_JPRB,2.0995E-02_JPRB,&
+&1.9281E-02_JPRB,1.7791E-02_JPRB,2.1654E-02_JPRB/)
+KAO( :, 1,10,10) = (/&
+&6.9366E-03_JPRB,6.3789E-03_JPRB,5.9595E-03_JPRB,5.4852E-03_JPRB,4.9360E-03_JPRB,4.3201E-03_JPRB,&
+&3.7060E-03_JPRB,2.8411E-03_JPRB,1.0865E-01_JPRB/)
+KAO( :, 2,10,10) = (/&
+&1.0236E-02_JPRB,9.4750E-03_JPRB,8.8501E-03_JPRB,8.3036E-03_JPRB,7.4880E-03_JPRB,6.6146E-03_JPRB,&
+&5.8580E-03_JPRB,4.5793E-03_JPRB,1.0627E-01_JPRB/)
+KAO( :, 3,10,10) = (/&
+&1.4332E-02_JPRB,1.3324E-02_JPRB,1.2604E-02_JPRB,1.1845E-02_JPRB,1.0730E-02_JPRB,9.5741E-03_JPRB,&
+&8.5876E-03_JPRB,7.0236E-03_JPRB,1.0490E-01_JPRB/)
+KAO( :, 4,10,10) = (/&
+&1.9120E-02_JPRB,1.7914E-02_JPRB,1.7311E-02_JPRB,1.6108E-02_JPRB,1.4592E-02_JPRB,1.3253E-02_JPRB,&
+&1.2097E-02_JPRB,1.0165E-02_JPRB,1.0426E-01_JPRB/)
+KAO( :, 5,10,10) = (/&
+&2.4561E-02_JPRB,2.3221E-02_JPRB,2.2646E-02_JPRB,2.1122E-02_JPRB,1.9334E-02_JPRB,1.7961E-02_JPRB,&
+&1.6559E-02_JPRB,1.4610E-02_JPRB,1.0510E-01_JPRB/)
+KAO( :, 1,11,10) = (/&
+&7.0237E-03_JPRB,6.5225E-03_JPRB,6.1043E-03_JPRB,5.6444E-03_JPRB,5.0633E-03_JPRB,4.3399E-03_JPRB,&
+&3.5607E-03_JPRB,2.6850E-03_JPRB,2.8892E-01_JPRB/)
+KAO( :, 2,11,10) = (/&
+&1.0384E-02_JPRB,9.6831E-03_JPRB,9.0835E-03_JPRB,8.5192E-03_JPRB,7.6404E-03_JPRB,6.6528E-03_JPRB,&
+&5.6514E-03_JPRB,4.5273E-03_JPRB,2.8169E-01_JPRB/)
+KAO( :, 3,11,10) = (/&
+&1.4456E-02_JPRB,1.3566E-02_JPRB,1.2997E-02_JPRB,1.2107E-02_JPRB,1.0901E-02_JPRB,9.5425E-03_JPRB,&
+&8.2374E-03_JPRB,6.8400E-03_JPRB,2.7734E-01_JPRB/)
+KAO( :, 4,11,10) = (/&
+&1.9195E-02_JPRB,1.8156E-02_JPRB,1.7656E-02_JPRB,1.6419E-02_JPRB,1.4881E-02_JPRB,1.3205E-02_JPRB,&
+&1.1741E-02_JPRB,9.9915E-03_JPRB,2.7331E-01_JPRB/)
+KAO( :, 5,11,10) = (/&
+&2.4521E-02_JPRB,2.3536E-02_JPRB,2.2979E-02_JPRB,2.1464E-02_JPRB,1.9799E-02_JPRB,1.7771E-02_JPRB,&
+&1.6045E-02_JPRB,1.4047E-02_JPRB,2.7061E-01_JPRB/)
+KAO( :, 1,12,10) = (/&
+&6.9801E-03_JPRB,6.5414E-03_JPRB,6.1464E-03_JPRB,5.6988E-03_JPRB,5.0902E-03_JPRB,4.4198E-03_JPRB,&
+&3.6370E-03_JPRB,2.5506E-03_JPRB,4.9609E-01_JPRB/)
+KAO( :, 2,12,10) = (/&
+&1.0252E-02_JPRB,9.6631E-03_JPRB,9.2104E-03_JPRB,8.5451E-03_JPRB,7.6724E-03_JPRB,6.7086E-03_JPRB,&
+&5.5412E-03_JPRB,4.4277E-03_JPRB,4.8672E-01_JPRB/)
+KAO( :, 3,12,10) = (/&
+&1.4194E-02_JPRB,1.3473E-02_JPRB,1.3019E-02_JPRB,1.2130E-02_JPRB,1.0940E-02_JPRB,9.6059E-03_JPRB,&
+&8.1091E-03_JPRB,6.7337E-03_JPRB,4.7779E-01_JPRB/)
+KAO( :, 4,12,10) = (/&
+&1.8764E-02_JPRB,1.7996E-02_JPRB,1.7549E-02_JPRB,1.6391E-02_JPRB,1.4970E-02_JPRB,1.3362E-02_JPRB,&
+&1.1424E-02_JPRB,9.7371E-03_JPRB,4.7094E-01_JPRB/)
+KAO( :, 5,12,10) = (/&
+&2.3822E-02_JPRB,2.3255E-02_JPRB,2.2798E-02_JPRB,2.1487E-02_JPRB,1.9935E-02_JPRB,1.7893E-02_JPRB,&
+&1.5477E-02_JPRB,1.3501E-02_JPRB,4.6404E-01_JPRB/)
+KAO( :, 1,13,10) = (/&
+&6.7570E-03_JPRB,6.3985E-03_JPRB,6.0648E-03_JPRB,5.6090E-03_JPRB,5.0372E-03_JPRB,4.3896E-03_JPRB,&
+&3.5984E-03_JPRB,2.5612E-03_JPRB,7.0129E-01_JPRB/)
+KAO( :, 2,13,10) = (/&
+&9.8516E-03_JPRB,9.3610E-03_JPRB,9.0380E-03_JPRB,8.3857E-03_JPRB,7.5801E-03_JPRB,6.6037E-03_JPRB,&
+&5.4660E-03_JPRB,4.1572E-03_JPRB,6.8624E-01_JPRB/)
+KAO( :, 3,13,10) = (/&
+&1.3565E-02_JPRB,1.3023E-02_JPRB,1.2697E-02_JPRB,1.1845E-02_JPRB,1.0771E-02_JPRB,9.5129E-03_JPRB,&
+&8.0355E-03_JPRB,6.4068E-03_JPRB,6.7348E-01_JPRB/)
+KAO( :, 4,13,10) = (/&
+&1.7823E-02_JPRB,1.7451E-02_JPRB,1.7031E-02_JPRB,1.6025E-02_JPRB,1.4810E-02_JPRB,1.3226E-02_JPRB,&
+&1.1248E-02_JPRB,9.2627E-03_JPRB,6.6252E-01_JPRB/)
+KAO( :, 5,13,10) = (/&
+&2.2635E-02_JPRB,2.2570E-02_JPRB,2.2029E-02_JPRB,2.1116E-02_JPRB,1.9648E-02_JPRB,1.7648E-02_JPRB,&
+&1.5125E-02_JPRB,1.2814E-02_JPRB,6.5224E-01_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&4.0423E-02_JPRB,3.5511E-02_JPRB,3.2385E-02_JPRB,3.1302E-02_JPRB,2.9329E-02_JPRB,2.7493E-02_JPRB,&
+&2.5237E-02_JPRB,2.6262E-02_JPRB,3.3335E-02_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&4.8068E-02_JPRB,4.2224E-02_JPRB,3.9790E-02_JPRB,3.8473E-02_JPRB,3.6916E-02_JPRB,3.3889E-02_JPRB,&
+&3.2387E-02_JPRB,3.4784E-02_JPRB,4.3954E-02_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&5.5962E-02_JPRB,4.9147E-02_JPRB,4.7932E-02_JPRB,4.6498E-02_JPRB,4.4808E-02_JPRB,4.0788E-02_JPRB,&
+&4.1145E-02_JPRB,4.4752E-02_JPRB,5.6848E-02_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&6.3927E-02_JPRB,5.6554E-02_JPRB,5.6496E-02_JPRB,5.5146E-02_JPRB,5.2972E-02_JPRB,4.9275E-02_JPRB,&
+&5.2218E-02_JPRB,5.7028E-02_JPRB,7.1593E-02_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&7.1900E-02_JPRB,6.5533E-02_JPRB,6.5482E-02_JPRB,6.4060E-02_JPRB,6.1054E-02_JPRB,5.9498E-02_JPRB,&
+&6.4850E-02_JPRB,7.0769E-02_JPRB,8.8897E-02_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&3.8292E-02_JPRB,3.3588E-02_JPRB,3.1358E-02_JPRB,2.9906E-02_JPRB,2.8447E-02_JPRB,2.6569E-02_JPRB,&
+&2.3944E-02_JPRB,2.4132E-02_JPRB,3.1513E-02_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&4.5994E-02_JPRB,4.0345E-02_JPRB,3.8650E-02_JPRB,3.7178E-02_JPRB,3.6077E-02_JPRB,3.2811E-02_JPRB,&
+&3.1189E-02_JPRB,3.2232E-02_JPRB,4.1849E-02_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&5.3984E-02_JPRB,4.7456E-02_JPRB,4.6641E-02_JPRB,4.5568E-02_JPRB,4.3973E-02_JPRB,3.9559E-02_JPRB,&
+&3.9776E-02_JPRB,4.1895E-02_JPRB,5.4339E-02_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&6.2153E-02_JPRB,5.5541E-02_JPRB,5.5147E-02_JPRB,5.4419E-02_JPRB,5.2145E-02_JPRB,4.8212E-02_JPRB,&
+&5.0049E-02_JPRB,5.4211E-02_JPRB,6.8573E-02_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&7.0498E-02_JPRB,6.4912E-02_JPRB,6.4005E-02_JPRB,6.3675E-02_JPRB,6.0340E-02_JPRB,5.8471E-02_JPRB,&
+&6.1765E-02_JPRB,6.8106E-02_JPRB,8.5795E-02_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&3.4351E-02_JPRB,3.0114E-02_JPRB,2.8690E-02_JPRB,2.7033E-02_JPRB,2.5922E-02_JPRB,2.4043E-02_JPRB,&
+&2.1412E-02_JPRB,2.0519E-02_JPRB,2.7411E-02_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&4.1940E-02_JPRB,3.6767E-02_JPRB,3.5782E-02_JPRB,3.4187E-02_JPRB,3.3188E-02_JPRB,3.0297E-02_JPRB,&
+&2.8550E-02_JPRB,2.8551E-02_JPRB,3.7044E-02_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&5.0028E-02_JPRB,4.4118E-02_JPRB,4.3712E-02_JPRB,4.2513E-02_JPRB,4.0818E-02_JPRB,3.7223E-02_JPRB,&
+&3.6892E-02_JPRB,3.7585E-02_JPRB,4.9025E-02_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&5.8382E-02_JPRB,5.2350E-02_JPRB,5.2192E-02_JPRB,5.1365E-02_JPRB,4.8840E-02_JPRB,4.5605E-02_JPRB,&
+&4.6688E-02_JPRB,4.8795E-02_JPRB,6.3308E-02_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&6.6855E-02_JPRB,6.1851E-02_JPRB,6.1319E-02_JPRB,6.0440E-02_JPRB,5.7553E-02_JPRB,5.5141E-02_JPRB,&
+&5.7507E-02_JPRB,6.1726E-02_JPRB,8.0747E-02_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&2.9914E-02_JPRB,2.6434E-02_JPRB,2.5229E-02_JPRB,2.3960E-02_JPRB,2.2872E-02_JPRB,2.1167E-02_JPRB,&
+&1.8618E-02_JPRB,1.7654E-02_JPRB,2.2206E-02_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&3.7311E-02_JPRB,3.2955E-02_JPRB,3.1987E-02_JPRB,3.0816E-02_JPRB,2.9746E-02_JPRB,2.7451E-02_JPRB,&
+&2.5496E-02_JPRB,2.4816E-02_JPRB,3.0769E-02_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&4.5214E-02_JPRB,4.0225E-02_JPRB,3.9665E-02_JPRB,3.8830E-02_JPRB,3.7073E-02_JPRB,3.4317E-02_JPRB,&
+&3.3498E-02_JPRB,3.3259E-02_JPRB,4.1672E-02_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&5.3522E-02_JPRB,4.8440E-02_JPRB,4.8077E-02_JPRB,4.7499E-02_JPRB,4.5060E-02_JPRB,4.2198E-02_JPRB,&
+&4.2877E-02_JPRB,4.3659E-02_JPRB,5.5415E-02_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&6.2112E-02_JPRB,5.7637E-02_JPRB,5.7355E-02_JPRB,5.6365E-02_JPRB,5.3831E-02_JPRB,5.1483E-02_JPRB,&
+&5.3578E-02_JPRB,5.5548E-02_JPRB,7.2397E-02_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&2.5525E-02_JPRB,2.2961E-02_JPRB,2.1743E-02_JPRB,2.1045E-02_JPRB,1.9762E-02_JPRB,1.8313E-02_JPRB,&
+&1.6006E-02_JPRB,1.4928E-02_JPRB,1.7243E-02_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&3.2562E-02_JPRB,2.9297E-02_JPRB,2.8118E-02_JPRB,2.7378E-02_JPRB,2.6219E-02_JPRB,2.4429E-02_JPRB,&
+&2.2374E-02_JPRB,2.1608E-02_JPRB,2.4409E-02_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&4.0237E-02_JPRB,3.6530E-02_JPRB,3.5529E-02_JPRB,3.4947E-02_JPRB,3.3507E-02_JPRB,3.1205E-02_JPRB,&
+&2.9865E-02_JPRB,2.9668E-02_JPRB,3.3965E-02_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&4.8489E-02_JPRB,4.4640E-02_JPRB,4.3882E-02_JPRB,4.3184E-02_JPRB,4.1466E-02_JPRB,3.8716E-02_JPRB,&
+&3.8839E-02_JPRB,3.9053E-02_JPRB,4.6193E-02_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&5.7075E-02_JPRB,5.3520E-02_JPRB,5.3151E-02_JPRB,5.1813E-02_JPRB,5.0143E-02_JPRB,4.7699E-02_JPRB,&
+&4.9575E-02_JPRB,5.0287E-02_JPRB,6.1844E-02_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&2.1185E-02_JPRB,1.9366E-02_JPRB,1.8345E-02_JPRB,1.7861E-02_JPRB,1.6696E-02_JPRB,1.5286E-02_JPRB,&
+&1.3538E-02_JPRB,1.2110E-02_JPRB,1.3050E-02_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&2.7736E-02_JPRB,2.5421E-02_JPRB,2.4344E-02_JPRB,2.3686E-02_JPRB,2.2632E-02_JPRB,2.1167E-02_JPRB,&
+&1.8994E-02_JPRB,1.8327E-02_JPRB,1.8722E-02_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&3.5098E-02_JPRB,3.2433E-02_JPRB,3.1346E-02_JPRB,3.0890E-02_JPRB,2.9717E-02_JPRB,2.7709E-02_JPRB,&
+&2.5626E-02_JPRB,2.5639E-02_JPRB,2.6411E-02_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&4.3033E-02_JPRB,4.0261E-02_JPRB,3.9466E-02_JPRB,3.8845E-02_JPRB,3.7545E-02_JPRB,3.4640E-02_JPRB,&
+&3.3862E-02_JPRB,3.4287E-02_JPRB,3.6956E-02_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&5.1415E-02_JPRB,4.8889E-02_JPRB,4.8524E-02_JPRB,4.7406E-02_JPRB,4.5977E-02_JPRB,4.3021E-02_JPRB,&
+&4.4126E-02_JPRB,4.4906E-02_JPRB,5.0432E-02_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&1.7209E-02_JPRB,1.5911E-02_JPRB,1.5312E-02_JPRB,1.4785E-02_JPRB,1.3788E-02_JPRB,1.2644E-02_JPRB,&
+&1.1178E-02_JPRB,9.4262E-03_JPRB,9.6250E-03_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&2.3204E-02_JPRB,2.1530E-02_JPRB,2.0850E-02_JPRB,2.0150E-02_JPRB,1.9195E-02_JPRB,1.8013E-02_JPRB,&
+&1.5715E-02_JPRB,1.4967E-02_JPRB,1.4283E-02_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&3.0021E-02_JPRB,2.8103E-02_JPRB,2.7384E-02_JPRB,2.6841E-02_JPRB,2.5917E-02_JPRB,2.4071E-02_JPRB,&
+&2.1339E-02_JPRB,2.1364E-02_JPRB,2.0562E-02_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&3.7516E-02_JPRB,3.5493E-02_JPRB,3.5022E-02_JPRB,3.4550E-02_JPRB,3.3425E-02_JPRB,3.0562E-02_JPRB,&
+&2.8485E-02_JPRB,2.9108E-02_JPRB,2.9186E-02_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&4.5622E-02_JPRB,4.3704E-02_JPRB,4.3641E-02_JPRB,4.3057E-02_JPRB,4.1664E-02_JPRB,3.8186E-02_JPRB,&
+&3.7831E-02_JPRB,3.8897E-02_JPRB,4.0505E-02_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&1.3818E-02_JPRB,1.2820E-02_JPRB,1.2555E-02_JPRB,1.2034E-02_JPRB,1.1176E-02_JPRB,1.0359E-02_JPRB,&
+&9.1227E-03_JPRB,7.1909E-03_JPRB,7.1385E-03_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&1.9199E-02_JPRB,1.7868E-02_JPRB,1.7585E-02_JPRB,1.6871E-02_JPRB,1.6078E-02_JPRB,1.5016E-02_JPRB,&
+&1.2893E-02_JPRB,1.1875E-02_JPRB,1.0811E-02_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&2.5464E-02_JPRB,2.3910E-02_JPRB,2.3566E-02_JPRB,2.3034E-02_JPRB,2.2314E-02_JPRB,2.0472E-02_JPRB,&
+&1.7635E-02_JPRB,1.7256E-02_JPRB,1.5992E-02_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&3.2551E-02_JPRB,3.0722E-02_JPRB,3.0704E-02_JPRB,3.0409E-02_JPRB,2.9339E-02_JPRB,2.6650E-02_JPRB,&
+&2.3599E-02_JPRB,2.4044E-02_JPRB,2.3236E-02_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&4.0250E-02_JPRB,3.8454E-02_JPRB,3.8842E-02_JPRB,3.8675E-02_JPRB,3.7147E-02_JPRB,3.3647E-02_JPRB,&
+&3.1602E-02_JPRB,3.2839E-02_JPRB,3.2581E-02_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&1.1316E-02_JPRB,1.0378E-02_JPRB,1.0058E-02_JPRB,9.5388E-03_JPRB,8.9583E-03_JPRB,8.3215E-03_JPRB,&
+&7.2172E-03_JPRB,5.3794E-03_JPRB,1.8355E-02_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&1.6231E-02_JPRB,1.4928E-02_JPRB,1.4498E-02_JPRB,1.3829E-02_JPRB,1.3241E-02_JPRB,1.2313E-02_JPRB,&
+&1.0614E-02_JPRB,9.2668E-03_JPRB,1.9770E-02_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&2.2130E-02_JPRB,2.0494E-02_JPRB,1.9903E-02_JPRB,1.9411E-02_JPRB,1.8773E-02_JPRB,1.7143E-02_JPRB,&
+&1.4703E-02_JPRB,1.3790E-02_JPRB,2.1581E-02_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&2.8872E-02_JPRB,2.6893E-02_JPRB,2.6410E-02_JPRB,2.6293E-02_JPRB,2.5184E-02_JPRB,2.2875E-02_JPRB,&
+&1.9599E-02_JPRB,1.9453E-02_JPRB,2.4207E-02_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&3.6434E-02_JPRB,3.4163E-02_JPRB,3.4039E-02_JPRB,3.4059E-02_JPRB,3.2485E-02_JPRB,2.9558E-02_JPRB,&
+&2.6124E-02_JPRB,2.6908E-02_JPRB,2.8766E-02_JPRB/)
+KAO( :, 1,10,11) = (/&
+&9.7526E-03_JPRB,8.8471E-03_JPRB,8.4095E-03_JPRB,7.7992E-03_JPRB,7.2733E-03_JPRB,6.6861E-03_JPRB,&
+&5.7804E-03_JPRB,4.0724E-03_JPRB,1.2763E-01_JPRB/)
+KAO( :, 2,10,11) = (/&
+&1.4441E-02_JPRB,1.3149E-02_JPRB,1.2436E-02_JPRB,1.1554E-02_JPRB,1.1049E-02_JPRB,1.0173E-02_JPRB,&
+&8.7698E-03_JPRB,7.1450E-03_JPRB,1.2600E-01_JPRB/)
+KAO( :, 3,10,11) = (/&
+&2.0155E-02_JPRB,1.8437E-02_JPRB,1.7426E-02_JPRB,1.6603E-02_JPRB,1.5853E-02_JPRB,1.4561E-02_JPRB,&
+&1.2511E-02_JPRB,1.1073E-02_JPRB,1.2528E-01_JPRB/)
+KAO( :, 4,10,11) = (/&
+&2.6846E-02_JPRB,2.4609E-02_JPRB,2.3486E-02_JPRB,2.2854E-02_JPRB,2.1623E-02_JPRB,1.9796E-02_JPRB,&
+&1.6929E-02_JPRB,1.5991E-02_JPRB,1.2447E-01_JPRB/)
+KAO( :, 5,10,11) = (/&
+&3.4410E-02_JPRB,3.1744E-02_JPRB,3.0750E-02_JPRB,2.9972E-02_JPRB,2.8397E-02_JPRB,2.5966E-02_JPRB,&
+&2.2616E-02_JPRB,2.2449E-02_JPRB,1.2610E-01_JPRB/)
+KAO( :, 1,11,11) = (/&
+&1.0324E-02_JPRB,9.3720E-03_JPRB,8.7252E-03_JPRB,7.9450E-03_JPRB,7.2482E-03_JPRB,6.5147E-03_JPRB,&
+&5.6100E-03_JPRB,4.1662E-03_JPRB,3.4329E-01_JPRB/)
+KAO( :, 2,11,11) = (/&
+&1.5204E-02_JPRB,1.3885E-02_JPRB,1.2891E-02_JPRB,1.1869E-02_JPRB,1.0956E-02_JPRB,9.8826E-03_JPRB,&
+&8.5703E-03_JPRB,6.8061E-03_JPRB,3.3565E-01_JPRB/)
+KAO( :, 3,11,11) = (/&
+&2.1115E-02_JPRB,1.9367E-02_JPRB,1.8058E-02_JPRB,1.6962E-02_JPRB,1.5612E-02_JPRB,1.4165E-02_JPRB,&
+&1.2308E-02_JPRB,1.0528E-02_JPRB,3.2746E-01_JPRB/)
+KAO( :, 4,11,11) = (/&
+&2.8056E-02_JPRB,2.5869E-02_JPRB,2.4495E-02_JPRB,2.3019E-02_JPRB,2.1190E-02_JPRB,1.9340E-02_JPRB,&
+&1.6909E-02_JPRB,1.5353E-02_JPRB,3.2105E-01_JPRB/)
+KAO( :, 5,11,11) = (/&
+&3.5830E-02_JPRB,3.3269E-02_JPRB,3.2053E-02_JPRB,3.0019E-02_JPRB,2.7764E-02_JPRB,2.5746E-02_JPRB,&
+&2.2821E-02_JPRB,2.2018E-02_JPRB,3.1597E-01_JPRB/)
+KAO( :, 1,12,11) = (/&
+&1.0672E-02_JPRB,9.7549E-03_JPRB,9.0561E-03_JPRB,8.2466E-03_JPRB,7.3613E-03_JPRB,6.3875E-03_JPRB,&
+&5.3947E-03_JPRB,4.0883E-03_JPRB,5.8394E-01_JPRB/)
+KAO( :, 2,12,11) = (/&
+&1.5642E-02_JPRB,1.4385E-02_JPRB,1.3307E-02_JPRB,1.2366E-02_JPRB,1.1058E-02_JPRB,9.6585E-03_JPRB,&
+&8.3795E-03_JPRB,6.6353E-03_JPRB,5.6769E-01_JPRB/)
+KAO( :, 3,12,11) = (/&
+&2.1675E-02_JPRB,2.0001E-02_JPRB,1.8764E-02_JPRB,1.7488E-02_JPRB,1.5704E-02_JPRB,1.3828E-02_JPRB,&
+&1.2045E-02_JPRB,1.0080E-02_JPRB,5.5255E-01_JPRB/)
+KAO( :, 4,12,11) = (/&
+&2.8647E-02_JPRB,2.6665E-02_JPRB,2.5514E-02_JPRB,2.3603E-02_JPRB,2.1257E-02_JPRB,1.8966E-02_JPRB,&
+&1.6778E-02_JPRB,1.4837E-02_JPRB,5.4088E-01_JPRB/)
+KAO( :, 5,12,11) = (/&
+&3.6513E-02_JPRB,3.4282E-02_JPRB,3.3140E-02_JPRB,3.0751E-02_JPRB,2.7941E-02_JPRB,2.5430E-02_JPRB,&
+&2.2803E-02_JPRB,2.1312E-02_JPRB,5.3155E-01_JPRB/)
+KAO( :, 1,13,11) = (/&
+&1.0760E-02_JPRB,9.9165E-03_JPRB,9.2107E-03_JPRB,8.4431E-03_JPRB,7.5043E-03_JPRB,6.4219E-03_JPRB,&
+&5.3322E-03_JPRB,3.9942E-03_JPRB,8.0574E-01_JPRB/)
+KAO( :, 2,13,11) = (/&
+&1.5718E-02_JPRB,1.4579E-02_JPRB,1.3580E-02_JPRB,1.2603E-02_JPRB,1.1240E-02_JPRB,9.7118E-03_JPRB,&
+&8.1489E-03_JPRB,6.5540E-03_JPRB,7.8546E-01_JPRB/)
+KAO( :, 3,13,11) = (/&
+&2.1709E-02_JPRB,2.0244E-02_JPRB,1.9196E-02_JPRB,1.7788E-02_JPRB,1.5932E-02_JPRB,1.3847E-02_JPRB,&
+&1.1724E-02_JPRB,9.8122E-03_JPRB,7.6747E-01_JPRB/)
+KAO( :, 4,13,11) = (/&
+&2.8590E-02_JPRB,2.6855E-02_JPRB,2.5888E-02_JPRB,2.3974E-02_JPRB,2.1610E-02_JPRB,1.9031E-02_JPRB,&
+&1.6481E-02_JPRB,1.4419E-02_JPRB,7.5290E-01_JPRB/)
+KAO( :, 5,13,11) = (/&
+&3.6243E-02_JPRB,3.4524E-02_JPRB,3.3518E-02_JPRB,3.1146E-02_JPRB,2.8589E-02_JPRB,2.5416E-02_JPRB,&
+&2.2358E-02_JPRB,2.0400E-02_JPRB,7.4359E-01_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&5.6231E-02_JPRB,4.9245E-02_JPRB,4.2437E-02_JPRB,3.9377E-02_JPRB,3.6183E-02_JPRB,3.2140E-02_JPRB,&
+&3.2423E-02_JPRB,3.1523E-02_JPRB,4.6750E-02_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&6.6148E-02_JPRB,5.7978E-02_JPRB,5.1041E-02_JPRB,4.8104E-02_JPRB,4.3912E-02_JPRB,4.1677E-02_JPRB,&
+&4.3817E-02_JPRB,4.4437E-02_JPRB,6.2584E-02_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&7.6244E-02_JPRB,6.6854E-02_JPRB,6.1488E-02_JPRB,5.7173E-02_JPRB,5.2540E-02_JPRB,5.2875E-02_JPRB,&
+&5.7103E-02_JPRB,5.8708E-02_JPRB,8.0763E-02_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&8.6310E-02_JPRB,7.5728E-02_JPRB,7.2130E-02_JPRB,6.6817E-02_JPRB,6.2530E-02_JPRB,6.5257E-02_JPRB,&
+&7.2354E-02_JPRB,7.4823E-02_JPRB,1.0291E-01_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&9.6172E-02_JPRB,8.4532E-02_JPRB,8.2586E-02_JPRB,7.6624E-02_JPRB,7.4096E-02_JPRB,7.9889E-02_JPRB,&
+&9.0215E-02_JPRB,9.5892E-02_JPRB,1.2765E-01_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&5.4471E-02_JPRB,4.7727E-02_JPRB,4.1337E-02_JPRB,3.9056E-02_JPRB,3.5201E-02_JPRB,3.1688E-02_JPRB,&
+&3.1483E-02_JPRB,3.1390E-02_JPRB,4.4121E-02_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&6.4761E-02_JPRB,5.6767E-02_JPRB,5.0472E-02_JPRB,4.7843E-02_JPRB,4.3316E-02_JPRB,4.1425E-02_JPRB,&
+&4.2288E-02_JPRB,4.3887E-02_JPRB,5.9020E-02_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&7.5278E-02_JPRB,6.6006E-02_JPRB,6.0892E-02_JPRB,5.7036E-02_JPRB,5.2510E-02_JPRB,5.2589E-02_JPRB,&
+&5.4973E-02_JPRB,5.8082E-02_JPRB,7.6747E-02_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&8.5814E-02_JPRB,7.5272E-02_JPRB,7.1653E-02_JPRB,6.6752E-02_JPRB,6.2771E-02_JPRB,6.5169E-02_JPRB,&
+&7.0350E-02_JPRB,7.4345E-02_JPRB,9.8748E-02_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&9.6214E-02_JPRB,8.4711E-02_JPRB,8.2534E-02_JPRB,7.6688E-02_JPRB,7.5320E-02_JPRB,7.9513E-02_JPRB,&
+&8.8443E-02_JPRB,9.3326E-02_JPRB,1.2393E-01_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&5.0240E-02_JPRB,4.4018E-02_JPRB,3.8537E-02_JPRB,3.6190E-02_JPRB,3.2727E-02_JPRB,2.9265E-02_JPRB,&
+&2.8718E-02_JPRB,2.8539E-02_JPRB,3.8545E-02_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&6.0700E-02_JPRB,5.3194E-02_JPRB,4.7696E-02_JPRB,4.4849E-02_JPRB,4.0923E-02_JPRB,3.8400E-02_JPRB,&
+&3.8699E-02_JPRB,3.9635E-02_JPRB,5.2691E-02_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&7.1446E-02_JPRB,6.2599E-02_JPRB,5.7763E-02_JPRB,5.4243E-02_JPRB,5.0207E-02_JPRB,4.9187E-02_JPRB,&
+&5.0052E-02_JPRB,5.3471E-02_JPRB,6.9258E-02_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&8.2289E-02_JPRB,7.2095E-02_JPRB,6.8416E-02_JPRB,6.4344E-02_JPRB,6.0447E-02_JPRB,6.1241E-02_JPRB,&
+&6.3891E-02_JPRB,6.9264E-02_JPRB,8.9560E-02_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&9.3052E-02_JPRB,8.1807E-02_JPRB,7.9129E-02_JPRB,7.4686E-02_JPRB,7.2461E-02_JPRB,7.5879E-02_JPRB,&
+&8.1262E-02_JPRB,8.8197E-02_JPRB,1.1309E-01_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&4.5028E-02_JPRB,3.9435E-02_JPRB,3.5334E-02_JPRB,3.2580E-02_JPRB,2.9727E-02_JPRB,2.6383E-02_JPRB,&
+&2.5279E-02_JPRB,2.4249E-02_JPRB,3.2836E-02_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&5.5340E-02_JPRB,4.8463E-02_JPRB,4.4234E-02_JPRB,4.0965E-02_JPRB,3.7511E-02_JPRB,3.4709E-02_JPRB,&
+&3.4617E-02_JPRB,3.4578E-02_JPRB,4.5997E-02_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&6.6183E-02_JPRB,5.7963E-02_JPRB,5.3924E-02_JPRB,5.0425E-02_JPRB,4.6576E-02_JPRB,4.4933E-02_JPRB,&
+&4.5427E-02_JPRB,4.7054E-02_JPRB,6.1726E-02_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&7.7283E-02_JPRB,6.7685E-02_JPRB,6.4408E-02_JPRB,6.0620E-02_JPRB,5.6689E-02_JPRB,5.6675E-02_JPRB,&
+&5.7994E-02_JPRB,6.1679E-02_JPRB,8.0866E-02_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&8.8418E-02_JPRB,7.8061E-02_JPRB,7.5140E-02_JPRB,7.1155E-02_JPRB,6.8119E-02_JPRB,7.0861E-02_JPRB,&
+&7.3683E-02_JPRB,7.9503E-02_JPRB,1.0285E-01_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&3.9662E-02_JPRB,3.4731E-02_JPRB,3.1644E-02_JPRB,2.8938E-02_JPRB,2.6745E-02_JPRB,2.3268E-02_JPRB,&
+&2.1825E-02_JPRB,2.0476E-02_JPRB,2.7392E-02_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&4.9795E-02_JPRB,4.3597E-02_JPRB,4.0424E-02_JPRB,3.7076E-02_JPRB,3.4194E-02_JPRB,3.1021E-02_JPRB,&
+&3.0623E-02_JPRB,2.9562E-02_JPRB,3.9492E-02_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&6.0584E-02_JPRB,5.3042E-02_JPRB,4.9894E-02_JPRB,4.6289E-02_JPRB,4.2817E-02_JPRB,4.0884E-02_JPRB,&
+&4.1181E-02_JPRB,4.1314E-02_JPRB,5.4083E-02_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&7.1810E-02_JPRB,6.2970E-02_JPRB,6.0288E-02_JPRB,5.6611E-02_JPRB,5.2417E-02_JPRB,5.2364E-02_JPRB,&
+&5.3447E-02_JPRB,5.4733E-02_JPRB,7.1895E-02_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&8.3191E-02_JPRB,7.3693E-02_JPRB,7.1136E-02_JPRB,6.7175E-02_JPRB,6.3303E-02_JPRB,6.5794E-02_JPRB,&
+&6.8047E-02_JPRB,7.1167E-02_JPRB,9.3099E-02_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&3.4073E-02_JPRB,2.9970E-02_JPRB,2.7448E-02_JPRB,2.5187E-02_JPRB,2.3238E-02_JPRB,2.0151E-02_JPRB,&
+&1.8356E-02_JPRB,1.7087E-02_JPRB,2.1825E-02_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&4.3805E-02_JPRB,3.8540E-02_JPRB,3.5809E-02_JPRB,3.2989E-02_JPRB,3.0183E-02_JPRB,2.7066E-02_JPRB,&
+&2.6460E-02_JPRB,2.5241E-02_JPRB,3.2266E-02_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&5.4408E-02_JPRB,4.7827E-02_JPRB,4.4959E-02_JPRB,4.1832E-02_JPRB,3.8412E-02_JPRB,3.6156E-02_JPRB,&
+&3.6616E-02_JPRB,3.5630E-02_JPRB,4.5299E-02_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&6.5566E-02_JPRB,5.7738E-02_JPRB,5.4996E-02_JPRB,5.1938E-02_JPRB,4.7753E-02_JPRB,4.7435E-02_JPRB,&
+&4.8559E-02_JPRB,4.8244E-02_JPRB,6.1467E-02_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&7.7055E-02_JPRB,6.8635E-02_JPRB,6.5830E-02_JPRB,6.2404E-02_JPRB,5.8371E-02_JPRB,6.0640E-02_JPRB,&
+&6.2553E-02_JPRB,6.3410E-02_JPRB,8.1734E-02_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&2.8703E-02_JPRB,2.5583E-02_JPRB,2.3276E-02_JPRB,2.1697E-02_JPRB,1.9747E-02_JPRB,1.7089E-02_JPRB,&
+&1.5072E-02_JPRB,1.3835E-02_JPRB,1.6883E-02_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&3.7935E-02_JPRB,3.3728E-02_JPRB,3.1173E-02_JPRB,2.9047E-02_JPRB,2.6304E-02_JPRB,2.3254E-02_JPRB,&
+&2.2495E-02_JPRB,2.1233E-02_JPRB,2.5258E-02_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&4.8109E-02_JPRB,4.2733E-02_JPRB,3.9875E-02_JPRB,3.7411E-02_JPRB,3.4221E-02_JPRB,3.1727E-02_JPRB,&
+&3.2013E-02_JPRB,3.0954E-02_JPRB,3.6228E-02_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&5.9015E-02_JPRB,5.2712E-02_JPRB,4.9724E-02_JPRB,4.7098E-02_JPRB,4.3201E-02_JPRB,4.2396E-02_JPRB,&
+&4.3420E-02_JPRB,4.2821E-02_JPRB,5.0322E-02_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&7.0562E-02_JPRB,6.3765E-02_JPRB,6.0647E-02_JPRB,5.7324E-02_JPRB,5.3581E-02_JPRB,5.4932E-02_JPRB,&
+&5.6750E-02_JPRB,5.6861E-02_JPRB,6.8648E-02_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&2.3797E-02_JPRB,2.1507E-02_JPRB,1.9481E-02_JPRB,1.8328E-02_JPRB,1.6567E-02_JPRB,1.4195E-02_JPRB,&
+&1.2226E-02_JPRB,1.1084E-02_JPRB,1.2769E-02_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&3.2290E-02_JPRB,2.9132E-02_JPRB,2.6787E-02_JPRB,2.5154E-02_JPRB,2.2698E-02_JPRB,1.9789E-02_JPRB,&
+&1.8738E-02_JPRB,1.7668E-02_JPRB,1.9523E-02_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&4.1971E-02_JPRB,3.7809E-02_JPRB,3.5153E-02_JPRB,3.3039E-02_JPRB,3.0227E-02_JPRB,2.7550E-02_JPRB,&
+&2.7403E-02_JPRB,2.6633E-02_JPRB,2.8356E-02_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&5.2643E-02_JPRB,4.7711E-02_JPRB,4.4776E-02_JPRB,4.2382E-02_JPRB,3.8941E-02_JPRB,3.7160E-02_JPRB,&
+&3.7962E-02_JPRB,3.7660E-02_JPRB,4.0067E-02_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&6.4120E-02_JPRB,5.8657E-02_JPRB,5.5707E-02_JPRB,5.2735E-02_JPRB,4.8989E-02_JPRB,4.8789E-02_JPRB,&
+&5.0472E-02_JPRB,5.0598E-02_JPRB,5.5953E-02_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&1.9250E-02_JPRB,1.7588E-02_JPRB,1.6042E-02_JPRB,1.5146E-02_JPRB,1.3631E-02_JPRB,1.1686E-02_JPRB,&
+&9.9858E-03_JPRB,8.6677E-03_JPRB,2.1707E-02_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&2.7012E-02_JPRB,2.4595E-02_JPRB,2.2809E-02_JPRB,2.1369E-02_JPRB,1.9226E-02_JPRB,1.6776E-02_JPRB,&
+&1.5292E-02_JPRB,1.4425E-02_JPRB,2.4366E-02_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&3.6057E-02_JPRB,3.2810E-02_JPRB,3.0756E-02_JPRB,2.8820E-02_JPRB,2.6287E-02_JPRB,2.3677E-02_JPRB,&
+&2.2692E-02_JPRB,2.2334E-02_JPRB,2.7809E-02_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&4.6276E-02_JPRB,4.2323E-02_JPRB,4.0041E-02_JPRB,3.7778E-02_JPRB,3.4895E-02_JPRB,3.2122E-02_JPRB,&
+&3.2057E-02_JPRB,3.2163E-02_JPRB,3.3773E-02_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&5.7287E-02_JPRB,5.2928E-02_JPRB,5.0545E-02_JPRB,4.8124E-02_JPRB,4.4442E-02_JPRB,4.2249E-02_JPRB,&
+&4.3334E-02_JPRB,4.4067E-02_JPRB,4.5714E-02_JPRB/)
+KAO( :, 1,10,12) = (/&
+&1.5724E-02_JPRB,1.4480E-02_JPRB,1.3399E-02_JPRB,1.2607E-02_JPRB,1.1371E-02_JPRB,9.8756E-03_JPRB,&
+&8.2202E-03_JPRB,7.0920E-03_JPRB,1.5327E-01_JPRB/)
+KAO( :, 2,10,12) = (/&
+&2.2742E-02_JPRB,2.0839E-02_JPRB,1.9648E-02_JPRB,1.8330E-02_JPRB,1.6472E-02_JPRB,1.4615E-02_JPRB,&
+&1.2794E-02_JPRB,1.2185E-02_JPRB,1.5107E-01_JPRB/)
+KAO( :, 3,10,12) = (/&
+&3.1111E-02_JPRB,2.8526E-02_JPRB,2.7137E-02_JPRB,2.5313E-02_JPRB,2.3236E-02_JPRB,2.0664E-02_JPRB,&
+&1.8952E-02_JPRB,1.8782E-02_JPRB,1.5057E-01_JPRB/)
+KAO( :, 4,10,12) = (/&
+&4.0637E-02_JPRB,3.7549E-02_JPRB,3.5922E-02_JPRB,3.3978E-02_JPRB,3.1652E-02_JPRB,2.8132E-02_JPRB,&
+&2.7006E-02_JPRB,2.7319E-02_JPRB,1.5207E-01_JPRB/)
+KAO( :, 5,10,12) = (/&
+&5.1227E-02_JPRB,4.7699E-02_JPRB,4.6069E-02_JPRB,4.4170E-02_JPRB,4.0891E-02_JPRB,3.7225E-02_JPRB,&
+&3.7060E-02_JPRB,3.8071E-02_JPRB,1.5409E-01_JPRB/)
+KAO( :, 1,11,12) = (/&
+&1.5555E-02_JPRB,1.4241E-02_JPRB,1.3404E-02_JPRB,1.2541E-02_JPRB,1.1360E-02_JPRB,1.0012E-02_JPRB,&
+&8.3342E-03_JPRB,7.3523E-03_JPRB,4.1658E-01_JPRB/)
+KAO( :, 2,11,12) = (/&
+&2.2569E-02_JPRB,2.0619E-02_JPRB,1.9629E-02_JPRB,1.8217E-02_JPRB,1.6713E-02_JPRB,1.4923E-02_JPRB,&
+&1.2799E-02_JPRB,1.2337E-02_JPRB,4.0531E-01_JPRB/)
+KAO( :, 3,11,12) = (/&
+&3.1003E-02_JPRB,2.8414E-02_JPRB,2.7101E-02_JPRB,2.5438E-02_JPRB,2.3803E-02_JPRB,2.0993E-02_JPRB,&
+&1.8716E-02_JPRB,1.8686E-02_JPRB,3.9474E-01_JPRB/)
+KAO( :, 4,11,12) = (/&
+&4.0722E-02_JPRB,3.7543E-02_JPRB,3.5908E-02_JPRB,3.4570E-02_JPRB,3.2168E-02_JPRB,2.8356E-02_JPRB,&
+&2.6227E-02_JPRB,2.6848E-02_JPRB,3.8831E-01_JPRB/)
+KAO( :, 5,11,12) = (/&
+&5.1560E-02_JPRB,4.7783E-02_JPRB,4.6376E-02_JPRB,4.5061E-02_JPRB,4.1670E-02_JPRB,3.7328E-02_JPRB,&
+&3.5965E-02_JPRB,3.7251E-02_JPRB,3.8125E-01_JPRB/)
+KAO( :, 1,12,12) = (/&
+&1.5830E-02_JPRB,1.4387E-02_JPRB,1.3516E-02_JPRB,1.2418E-02_JPRB,1.1346E-02_JPRB,1.0079E-02_JPRB,&
+&8.3729E-03_JPRB,7.3472E-03_JPRB,7.1942E-01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&2.3055E-02_JPRB,2.0962E-02_JPRB,1.9738E-02_JPRB,1.8144E-02_JPRB,1.6929E-02_JPRB,1.5067E-02_JPRB,&
+&1.2702E-02_JPRB,1.1955E-02_JPRB,6.9772E-01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&3.1847E-02_JPRB,2.9081E-02_JPRB,2.7322E-02_JPRB,2.5612E-02_JPRB,2.3940E-02_JPRB,2.1303E-02_JPRB,&
+&1.8481E-02_JPRB,1.8181E-02_JPRB,6.7687E-01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&4.1961E-02_JPRB,3.8413E-02_JPRB,3.6388E-02_JPRB,3.4886E-02_JPRB,3.2236E-02_JPRB,2.8808E-02_JPRB,&
+&2.5797E-02_JPRB,2.6077E-02_JPRB,6.5603E-01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&5.3319E-02_JPRB,4.9117E-02_JPRB,4.7169E-02_JPRB,4.5236E-02_JPRB,4.1943E-02_JPRB,3.7873E-02_JPRB,&
+&3.5355E-02_JPRB,3.6412E-02_JPRB,6.4190E-01_JPRB/)
+KAO( :, 1,13,12) = (/&
+&1.6495E-02_JPRB,1.4909E-02_JPRB,1.3825E-02_JPRB,1.2544E-02_JPRB,1.1340E-02_JPRB,9.9975E-03_JPRB,&
+&8.3433E-03_JPRB,7.0546E-03_JPRB,9.9911E-01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&2.4109E-02_JPRB,2.1885E-02_JPRB,2.0210E-02_JPRB,1.8488E-02_JPRB,1.6936E-02_JPRB,1.4953E-02_JPRB,&
+&1.2660E-02_JPRB,1.1467E-02_JPRB,9.6984E-01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&3.3220E-02_JPRB,3.0296E-02_JPRB,2.8083E-02_JPRB,2.6185E-02_JPRB,2.3860E-02_JPRB,2.1223E-02_JPRB,&
+&1.8346E-02_JPRB,1.7437E-02_JPRB,9.3888E-01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&4.3831E-02_JPRB,4.0158E-02_JPRB,3.7697E-02_JPRB,3.5285E-02_JPRB,3.2116E-02_JPRB,2.8881E-02_JPRB,&
+&2.5602E-02_JPRB,2.5164E-02_JPRB,9.0808E-01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&5.5677E-02_JPRB,5.1368E-02_JPRB,4.8923E-02_JPRB,4.5702E-02_JPRB,4.1832E-02_JPRB,3.8470E-02_JPRB,&
+&3.5318E-02_JPRB,3.5646E-02_JPRB,8.8465E-01_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&7.2506E-02_JPRB,6.3446E-02_JPRB,5.4408E-02_JPRB,4.7483E-02_JPRB,4.2382E-02_JPRB,4.1239E-02_JPRB,&
+&4.3386E-02_JPRB,4.4074E-02_JPRB,6.4271E-02_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&8.4465E-02_JPRB,7.3953E-02_JPRB,6.3427E-02_JPRB,5.6900E-02_JPRB,5.2376E-02_JPRB,5.3648E-02_JPRB,&
+&5.8354E-02_JPRB,5.9101E-02_JPRB,8.6583E-02_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&9.6444E-02_JPRB,8.4439E-02_JPRB,7.3063E-02_JPRB,6.7601E-02_JPRB,6.5429E-02_JPRB,6.9474E-02_JPRB,&
+&7.7817E-02_JPRB,8.1204E-02_JPRB,1.1413E-01_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&1.0833E-01_JPRB,9.4864E-02_JPRB,8.5278E-02_JPRB,7.9673E-02_JPRB,8.1089E-02_JPRB,9.1367E-02_JPRB,&
+&1.0434E-01_JPRB,1.1177E-01_JPRB,1.4904E-01_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&1.1980E-01_JPRB,1.0493E-01_JPRB,9.6406E-02_JPRB,9.4783E-02_JPRB,1.0132E-01_JPRB,1.1971E-01_JPRB,&
+&1.3809E-01_JPRB,1.4964E-01_JPRB,1.9375E-01_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&7.1478E-02_JPRB,6.2570E-02_JPRB,5.3664E-02_JPRB,4.6754E-02_JPRB,4.2681E-02_JPRB,4.1156E-02_JPRB,&
+&4.2008E-02_JPRB,4.2483E-02_JPRB,6.2959E-02_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&8.4247E-02_JPRB,7.3747E-02_JPRB,6.3249E-02_JPRB,5.6233E-02_JPRB,5.3534E-02_JPRB,5.3727E-02_JPRB,&
+&5.7468E-02_JPRB,5.8178E-02_JPRB,8.6328E-02_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&9.6812E-02_JPRB,8.4747E-02_JPRB,7.4116E-02_JPRB,6.7508E-02_JPRB,6.6781E-02_JPRB,6.9983E-02_JPRB,&
+&7.6767E-02_JPRB,7.7852E-02_JPRB,1.1485E-01_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&1.0887E-01_JPRB,9.5297E-02_JPRB,8.6108E-02_JPRB,8.0754E-02_JPRB,8.2919E-02_JPRB,8.8967E-02_JPRB,&
+&1.0013E-01_JPRB,1.0496E-01_JPRB,1.4738E-01_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&1.2040E-01_JPRB,1.0544E-01_JPRB,9.8262E-02_JPRB,9.7024E-02_JPRB,1.0128E-01_JPRB,1.1389E-01_JPRB,&
+&1.3047E-01_JPRB,1.4126E-01_JPRB,1.8810E-01_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&6.7428E-02_JPRB,5.9012E-02_JPRB,5.0600E-02_JPRB,4.4820E-02_JPRB,4.0284E-02_JPRB,3.8905E-02_JPRB,&
+&3.8433E-02_JPRB,3.8221E-02_JPRB,5.7695E-02_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&8.0097E-02_JPRB,7.0092E-02_JPRB,6.0231E-02_JPRB,5.4560E-02_JPRB,5.1238E-02_JPRB,5.1427E-02_JPRB,&
+&5.2635E-02_JPRB,5.3599E-02_JPRB,7.9873E-02_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&9.2835E-02_JPRB,8.1288E-02_JPRB,7.1303E-02_JPRB,6.5788E-02_JPRB,6.5168E-02_JPRB,6.7196E-02_JPRB,&
+&7.1689E-02_JPRB,7.2641E-02_JPRB,1.0771E-01_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&1.0559E-01_JPRB,9.2480E-02_JPRB,8.3299E-02_JPRB,7.8616E-02_JPRB,8.1678E-02_JPRB,8.5882E-02_JPRB,&
+&9.4318E-02_JPRB,9.6259E-02_JPRB,1.4043E-01_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&1.1824E-01_JPRB,1.0358E-01_JPRB,9.6455E-02_JPRB,9.5066E-02_JPRB,9.9972E-02_JPRB,1.0747E-01_JPRB,&
+&1.2012E-01_JPRB,1.2676E-01_JPRB,1.7816E-01_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&6.1574E-02_JPRB,5.3893E-02_JPRB,4.6221E-02_JPRB,4.1581E-02_JPRB,3.7011E-02_JPRB,3.6135E-02_JPRB,&
+&3.5573E-02_JPRB,3.4371E-02_JPRB,5.0320E-02_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&7.4469E-02_JPRB,6.5196E-02_JPRB,5.6073E-02_JPRB,5.1353E-02_JPRB,4.7821E-02_JPRB,4.7971E-02_JPRB,&
+&4.8104E-02_JPRB,4.8151E-02_JPRB,7.0598E-02_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&8.7893E-02_JPRB,7.6969E-02_JPRB,6.7380E-02_JPRB,6.2778E-02_JPRB,6.1745E-02_JPRB,6.3327E-02_JPRB,&
+&6.5251E-02_JPRB,6.6605E-02_JPRB,9.6688E-02_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&1.0128E-01_JPRB,8.8666E-02_JPRB,7.9558E-02_JPRB,7.6113E-02_JPRB,7.8711E-02_JPRB,8.2067E-02_JPRB,&
+&8.7118E-02_JPRB,8.9685E-02_JPRB,1.2734E-01_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&1.1397E-01_JPRB,9.9791E-02_JPRB,9.3095E-02_JPRB,9.2358E-02_JPRB,9.7817E-02_JPRB,1.0283E-01_JPRB,&
+&1.1271E-01_JPRB,1.1615E-01_JPRB,1.6394E-01_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&5.5644E-02_JPRB,4.8706E-02_JPRB,4.2042E-02_JPRB,3.7730E-02_JPRB,3.3816E-02_JPRB,3.3296E-02_JPRB,&
+&3.2567E-02_JPRB,3.1307E-02_JPRB,4.2852E-02_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&6.8700E-02_JPRB,6.0145E-02_JPRB,5.2078E-02_JPRB,4.7465E-02_JPRB,4.4257E-02_JPRB,4.4542E-02_JPRB,&
+&4.3904E-02_JPRB,4.3555E-02_JPRB,6.1397E-02_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&8.2079E-02_JPRB,7.1842E-02_JPRB,6.3336E-02_JPRB,5.8826E-02_JPRB,5.7771E-02_JPRB,5.9150E-02_JPRB,&
+&5.9615E-02_JPRB,6.0276E-02_JPRB,8.5213E-02_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&9.5395E-02_JPRB,8.3509E-02_JPRB,7.5491E-02_JPRB,7.2428E-02_JPRB,7.4615E-02_JPRB,7.7323E-02_JPRB,&
+&7.9697E-02_JPRB,8.2375E-02_JPRB,1.1408E-01_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&1.0879E-01_JPRB,9.5224E-02_JPRB,8.9008E-02_JPRB,8.9139E-02_JPRB,9.4277E-02_JPRB,9.8162E-02_JPRB,&
+&1.0347E-01_JPRB,1.0938E-01_JPRB,1.4850E-01_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&4.9166E-02_JPRB,4.3032E-02_JPRB,3.7697E-02_JPRB,3.3418E-02_JPRB,3.0271E-02_JPRB,2.9707E-02_JPRB,&
+&2.8739E-02_JPRB,2.7107E-02_JPRB,3.5180E-02_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&6.1802E-02_JPRB,5.4091E-02_JPRB,4.7585E-02_JPRB,4.2912E-02_JPRB,4.0335E-02_JPRB,4.0310E-02_JPRB,&
+&3.9360E-02_JPRB,3.8194E-02_JPRB,5.1590E-02_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&7.4933E-02_JPRB,6.5583E-02_JPRB,5.8743E-02_JPRB,5.3925E-02_JPRB,5.3041E-02_JPRB,5.4106E-02_JPRB,&
+&5.3825E-02_JPRB,5.3725E-02_JPRB,7.3865E-02_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&8.8794E-02_JPRB,7.7714E-02_JPRB,7.0892E-02_JPRB,6.7266E-02_JPRB,6.9411E-02_JPRB,7.1602E-02_JPRB,&
+&7.2167E-02_JPRB,7.4198E-02_JPRB,1.0072E-01_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&1.0284E-01_JPRB,9.0019E-02_JPRB,8.4346E-02_JPRB,8.3697E-02_JPRB,8.8853E-02_JPRB,9.1618E-02_JPRB,&
+&9.4095E-02_JPRB,9.9493E-02_JPRB,1.3200E-01_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&4.2481E-02_JPRB,3.7182E-02_JPRB,3.2941E-02_JPRB,2.9053E-02_JPRB,2.6729E-02_JPRB,2.5857E-02_JPRB,&
+&2.4817E-02_JPRB,2.3036E-02_JPRB,2.8513E-02_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&5.4646E-02_JPRB,4.7829E-02_JPRB,4.2493E-02_JPRB,3.8260E-02_JPRB,3.6179E-02_JPRB,3.5843E-02_JPRB,&
+&3.4675E-02_JPRB,3.3090E-02_JPRB,4.3061E-02_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&6.7949E-02_JPRB,5.9473E-02_JPRB,5.3629E-02_JPRB,4.8997E-02_JPRB,4.7960E-02_JPRB,4.8517E-02_JPRB,&
+&4.7980E-02_JPRB,4.6686E-02_JPRB,6.3225E-02_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&8.2011E-02_JPRB,7.1775E-02_JPRB,6.5638E-02_JPRB,6.1779E-02_JPRB,6.3457E-02_JPRB,6.4989E-02_JPRB,&
+&6.5420E-02_JPRB,6.5338E-02_JPRB,8.8114E-02_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&9.6121E-02_JPRB,8.4118E-02_JPRB,7.9080E-02_JPRB,7.7840E-02_JPRB,8.2099E-02_JPRB,8.4733E-02_JPRB,&
+&8.6013E-02_JPRB,8.9165E-02_JPRB,1.1782E-01_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&3.6137E-02_JPRB,3.1658E-02_JPRB,2.8232E-02_JPRB,2.4974E-02_JPRB,2.3118E-02_JPRB,2.2088E-02_JPRB,&
+&2.1064E-02_JPRB,1.9376E-02_JPRB,2.2745E-02_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&4.8016E-02_JPRB,4.2076E-02_JPRB,3.7504E-02_JPRB,3.3789E-02_JPRB,3.1931E-02_JPRB,3.1218E-02_JPRB,&
+&3.0077E-02_JPRB,2.8144E-02_JPRB,3.5232E-02_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&6.1205E-02_JPRB,5.3668E-02_JPRB,4.8373E-02_JPRB,4.4145E-02_JPRB,4.2766E-02_JPRB,4.3001E-02_JPRB,&
+&4.2234E-02_JPRB,4.0332E-02_JPRB,5.3276E-02_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&7.5025E-02_JPRB,6.5801E-02_JPRB,6.0176E-02_JPRB,5.6410E-02_JPRB,5.7125E-02_JPRB,5.8703E-02_JPRB,&
+&5.8721E-02_JPRB,5.7394E-02_JPRB,7.6141E-02_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&8.9588E-02_JPRB,7.8614E-02_JPRB,7.3265E-02_JPRB,7.1609E-02_JPRB,7.4944E-02_JPRB,7.7845E-02_JPRB,&
+&7.8817E-02_JPRB,7.9234E-02_JPRB,1.0406E-01_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&3.0354E-02_JPRB,2.6812E-02_JPRB,2.3806E-02_JPRB,2.1190E-02_JPRB,1.9445E-02_JPRB,1.8240E-02_JPRB,&
+&1.7300E-02_JPRB,1.5970E-02_JPRB,2.7469E-02_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&4.1683E-02_JPRB,3.6828E-02_JPRB,3.2679E-02_JPRB,2.9622E-02_JPRB,2.7586E-02_JPRB,2.6377E-02_JPRB,&
+&2.5396E-02_JPRB,2.3781E-02_JPRB,3.1985E-02_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&5.4431E-02_JPRB,4.8107E-02_JPRB,4.3192E-02_JPRB,3.9529E-02_JPRB,3.7624E-02_JPRB,3.7195E-02_JPRB,&
+&3.6607E-02_JPRB,3.4524E-02_JPRB,4.4340E-02_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&6.8321E-02_JPRB,6.0391E-02_JPRB,5.4610E-02_JPRB,5.1211E-02_JPRB,5.0615E-02_JPRB,5.1938E-02_JPRB,&
+&5.2206E-02_JPRB,5.0002E-02_JPRB,6.4376E-02_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&8.3382E-02_JPRB,7.3864E-02_JPRB,6.7608E-02_JPRB,6.5416E-02_JPRB,6.7796E-02_JPRB,7.0544E-02_JPRB,&
+&7.1581E-02_JPRB,7.0367E-02_JPRB,8.9820E-02_JPRB/)
+KAO( :, 1,10,13) = (/&
+&2.5866E-02_JPRB,2.3096E-02_JPRB,2.0359E-02_JPRB,1.8244E-02_JPRB,1.6555E-02_JPRB,1.5241E-02_JPRB,&
+&1.4537E-02_JPRB,1.3197E-02_JPRB,1.8207E-01_JPRB/)
+KAO( :, 2,10,13) = (/&
+&3.6597E-02_JPRB,3.2659E-02_JPRB,2.8899E-02_JPRB,2.6262E-02_JPRB,2.4046E-02_JPRB,2.2449E-02_JPRB,&
+&2.1774E-02_JPRB,2.0251E-02_JPRB,1.8269E-01_JPRB/)
+KAO( :, 3,10,13) = (/&
+&4.8990E-02_JPRB,4.3688E-02_JPRB,3.9094E-02_JPRB,3.5827E-02_JPRB,3.3277E-02_JPRB,3.2592E-02_JPRB,&
+&3.2234E-02_JPRB,3.0480E-02_JPRB,1.8337E-01_JPRB/)
+KAO( :, 4,10,13) = (/&
+&6.3031E-02_JPRB,5.6150E-02_JPRB,5.0614E-02_JPRB,4.7098E-02_JPRB,4.5295E-02_JPRB,4.6573E-02_JPRB,&
+&4.6974E-02_JPRB,4.5107E-02_JPRB,1.8526E-01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&7.8337E-02_JPRB,7.0036E-02_JPRB,6.3907E-02_JPRB,6.0875E-02_JPRB,6.1588E-02_JPRB,6.4404E-02_JPRB,&
+&6.5574E-02_JPRB,6.4038E-02_JPRB,1.9009E-01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&2.6170E-02_JPRB,2.3547E-02_JPRB,2.0835E-02_JPRB,1.8825E-02_JPRB,1.6889E-02_JPRB,1.5401E-02_JPRB,&
+&1.4727E-02_JPRB,1.3614E-02_JPRB,5.0818E-01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&3.7087E-02_JPRB,3.3315E-02_JPRB,2.9858E-02_JPRB,2.7151E-02_JPRB,2.4450E-02_JPRB,2.2833E-02_JPRB,&
+&2.2404E-02_JPRB,2.1001E-02_JPRB,5.0103E-01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&4.9963E-02_JPRB,4.4837E-02_JPRB,4.0625E-02_JPRB,3.7044E-02_JPRB,3.4135E-02_JPRB,3.3574E-02_JPRB,&
+&3.3602E-02_JPRB,3.2090E-02_JPRB,4.9194E-01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&6.4516E-02_JPRB,5.7977E-02_JPRB,5.3206E-02_JPRB,4.8937E-02_JPRB,4.7272E-02_JPRB,4.8448E-02_JPRB,&
+&4.9192E-02_JPRB,4.7870E-02_JPRB,4.8323E-01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&8.0357E-02_JPRB,7.2810E-02_JPRB,6.7423E-02_JPRB,6.3846E-02_JPRB,6.4063E-02_JPRB,6.6805E-02_JPRB,&
+&6.8458E-02_JPRB,6.7693E-02_JPRB,4.8224E-01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&2.6382E-02_JPRB,2.3869E-02_JPRB,2.1423E-02_JPRB,1.9530E-02_JPRB,1.7276E-02_JPRB,1.5597E-02_JPRB,&
+&1.4852E-02_JPRB,1.3926E-02_JPRB,8.8613E-01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&3.7554E-02_JPRB,3.3911E-02_JPRB,3.0989E-02_JPRB,2.8114E-02_JPRB,2.5051E-02_JPRB,2.3359E-02_JPRB,&
+&2.2994E-02_JPRB,2.2005E-02_JPRB,8.7122E-01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&5.0689E-02_JPRB,4.5835E-02_JPRB,4.2372E-02_JPRB,3.8639E-02_JPRB,3.5524E-02_JPRB,3.4470E-02_JPRB,&
+&3.4752E-02_JPRB,3.3789E-02_JPRB,8.5297E-01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&6.5611E-02_JPRB,5.9692E-02_JPRB,5.5677E-02_JPRB,5.1555E-02_JPRB,4.9587E-02_JPRB,4.9441E-02_JPRB,&
+&5.0436E-02_JPRB,4.9926E-02_JPRB,8.3445E-01_JPRB/)
+KAO( :, 5,12,13) = (/&
+&8.2012E-02_JPRB,7.5239E-02_JPRB,7.1004E-02_JPRB,6.7701E-02_JPRB,6.6707E-02_JPRB,6.7915E-02_JPRB,&
+&6.9915E-02_JPRB,7.0294E-02_JPRB,8.1920E-01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&2.6411E-02_JPRB,2.4001E-02_JPRB,2.2003E-02_JPRB,2.0098E-02_JPRB,1.7783E-02_JPRB,1.5910E-02_JPRB,&
+&1.4921E-02_JPRB,1.4266E-02_JPRB,1.2499E+00_JPRB/)
+KAO( :, 2,13,13) = (/&
+&3.7728E-02_JPRB,3.4235E-02_JPRB,3.1890E-02_JPRB,2.9069E-02_JPRB,2.6051E-02_JPRB,2.4137E-02_JPRB,&
+&2.3431E-02_JPRB,2.2763E-02_JPRB,1.2233E+00_JPRB/)
+KAO( :, 3,13,13) = (/&
+&5.1168E-02_JPRB,4.6582E-02_JPRB,4.3725E-02_JPRB,4.0296E-02_JPRB,3.7356E-02_JPRB,3.5542E-02_JPRB,&
+&3.5231E-02_JPRB,3.4850E-02_JPRB,1.1970E+00_JPRB/)
+KAO( :, 4,13,13) = (/&
+&6.6532E-02_JPRB,6.1023E-02_JPRB,5.7678E-02_JPRB,5.4658E-02_JPRB,5.1906E-02_JPRB,5.0202E-02_JPRB,&
+&5.0477E-02_JPRB,5.0911E-02_JPRB,1.1702E+00_JPRB/)
+KAO( :, 5,13,13) = (/&
+&8.3713E-02_JPRB,7.7246E-02_JPRB,7.4186E-02_JPRB,7.1956E-02_JPRB,6.9311E-02_JPRB,6.8138E-02_JPRB,&
+&6.9472E-02_JPRB,7.1080E-02_JPRB,1.1427E+00_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&8.4406E-02_JPRB,7.3923E-02_JPRB,6.3390E-02_JPRB,5.3666E-02_JPRB,5.2956E-02_JPRB,5.5472E-02_JPRB,&
+&6.0634E-02_JPRB,5.8813E-02_JPRB,9.2877E-02_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&9.8373E-02_JPRB,8.6109E-02_JPRB,7.3836E-02_JPRB,6.7549E-02_JPRB,6.9431E-02_JPRB,7.7739E-02_JPRB,&
+&8.6438E-02_JPRB,8.5388E-02_JPRB,1.3005E-01_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&1.1220E-01_JPRB,9.8227E-02_JPRB,8.4237E-02_JPRB,8.6127E-02_JPRB,9.3558E-02_JPRB,1.1007E-01_JPRB,&
+&1.2298E-01_JPRB,1.2120E-01_JPRB,1.8519E-01_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&1.2589E-01_JPRB,1.1021E-01_JPRB,9.7341E-02_JPRB,1.0805E-01_JPRB,1.2702E-01_JPRB,1.5181E-01_JPRB,&
+&1.6898E-01_JPRB,1.6664E-01_JPRB,2.5570E-01_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&1.3898E-01_JPRB,1.2167E-01_JPRB,1.1790E-01_JPRB,1.3538E-01_JPRB,1.6936E-01_JPRB,2.0147E-01_JPRB,&
+&2.2468E-01_JPRB,2.1901E-01_JPRB,3.4200E-01_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&8.6965E-02_JPRB,7.6122E-02_JPRB,6.5271E-02_JPRB,5.5929E-02_JPRB,5.5266E-02_JPRB,5.6412E-02_JPRB,&
+&6.1162E-02_JPRB,5.9084E-02_JPRB,9.4145E-02_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&1.0214E-01_JPRB,8.9404E-02_JPRB,7.6670E-02_JPRB,7.1026E-02_JPRB,7.1152E-02_JPRB,7.6438E-02_JPRB,&
+&8.4319E-02_JPRB,8.3198E-02_JPRB,1.2897E-01_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&1.1758E-01_JPRB,1.0294E-01_JPRB,8.8300E-02_JPRB,9.0301E-02_JPRB,9.3552E-02_JPRB,1.0592E-01_JPRB,&
+&1.1887E-01_JPRB,1.2017E-01_JPRB,1.7974E-01_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&1.3321E-01_JPRB,1.1665E-01_JPRB,1.0423E-01_JPRB,1.1370E-01_JPRB,1.2505E-01_JPRB,1.4860E-01_JPRB,&
+&1.6715E-01_JPRB,1.6784E-01_JPRB,2.5046E-01_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&1.4865E-01_JPRB,1.3020E-01_JPRB,1.2666E-01_JPRB,1.3953E-01_JPRB,1.6682E-01_JPRB,2.0058E-01_JPRB,&
+&2.2553E-01_JPRB,2.2565E-01_JPRB,3.3899E-01_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&8.6079E-02_JPRB,7.5340E-02_JPRB,6.4607E-02_JPRB,5.5456E-02_JPRB,5.5272E-02_JPRB,5.5233E-02_JPRB,&
+&5.8267E-02_JPRB,5.6783E-02_JPRB,8.9464E-02_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&1.0304E-01_JPRB,9.0205E-02_JPRB,7.7348E-02_JPRB,7.0519E-02_JPRB,7.0862E-02_JPRB,7.2390E-02_JPRB,&
+&7.8791E-02_JPRB,7.7229E-02_JPRB,1.2132E-01_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&1.2050E-01_JPRB,1.0550E-01_JPRB,9.0628E-02_JPRB,8.9686E-02_JPRB,9.0578E-02_JPRB,9.7251E-02_JPRB,&
+&1.0832E-01_JPRB,1.0857E-01_JPRB,1.6570E-01_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&1.3798E-01_JPRB,1.2081E-01_JPRB,1.0757E-01_JPRB,1.1366E-01_JPRB,1.1771E-01_JPRB,1.3404E-01_JPRB,&
+&1.5114E-01_JPRB,1.5446E-01_JPRB,2.2779E-01_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&1.5527E-01_JPRB,1.3594E-01_JPRB,1.3049E-01_JPRB,1.4065E-01_JPRB,1.5498E-01_JPRB,1.8347E-01_JPRB,&
+&2.0928E-01_JPRB,2.1357E-01_JPRB,3.1056E-01_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&8.3658E-02_JPRB,7.3219E-02_JPRB,6.2782E-02_JPRB,5.4421E-02_JPRB,5.4252E-02_JPRB,5.2373E-02_JPRB,&
+&5.2872E-02_JPRB,5.3249E-02_JPRB,8.1760E-02_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&1.0179E-01_JPRB,8.9084E-02_JPRB,7.6372E-02_JPRB,6.9322E-02_JPRB,6.9646E-02_JPRB,6.9291E-02_JPRB,&
+&7.2799E-02_JPRB,7.2370E-02_JPRB,1.1302E-01_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&1.2055E-01_JPRB,1.0553E-01_JPRB,9.0925E-02_JPRB,8.8158E-02_JPRB,8.8997E-02_JPRB,9.0835E-02_JPRB,&
+&9.8776E-02_JPRB,9.8752E-02_JPRB,1.5269E-01_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&1.3976E-01_JPRB,1.2239E-01_JPRB,1.0872E-01_JPRB,1.1120E-01_JPRB,1.1304E-01_JPRB,1.2136E-01_JPRB,&
+&1.3545E-01_JPRB,1.3720E-01_JPRB,2.0650E-01_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&1.5964E-01_JPRB,1.3984E-01_JPRB,1.3154E-01_JPRB,1.3870E-01_JPRB,1.4428E-01_JPRB,1.6405E-01_JPRB,&
+&1.8578E-01_JPRB,1.9371E-01_JPRB,2.7910E-01_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&7.9613E-02_JPRB,6.9667E-02_JPRB,5.9735E-02_JPRB,5.2890E-02_JPRB,5.1672E-02_JPRB,4.9631E-02_JPRB,&
+&4.7983E-02_JPRB,4.7891E-02_JPRB,7.3721E-02_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&9.8444E-02_JPRB,8.6165E-02_JPRB,7.3879E-02_JPRB,6.8004E-02_JPRB,6.7906E-02_JPRB,6.5760E-02_JPRB,&
+&6.6820E-02_JPRB,6.7095E-02_JPRB,1.0263E-01_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&1.1874E-01_JPRB,1.0393E-01_JPRB,8.9653E-02_JPRB,8.6769E-02_JPRB,8.7048E-02_JPRB,8.6781E-02_JPRB,&
+&9.1705E-02_JPRB,9.1503E-02_JPRB,1.4159E-01_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&1.4009E-01_JPRB,1.2266E-01_JPRB,1.0834E-01_JPRB,1.0954E-01_JPRB,1.1083E-01_JPRB,1.1372E-01_JPRB,&
+&1.2361E-01_JPRB,1.2496E-01_JPRB,1.9192E-01_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&1.6191E-01_JPRB,1.4179E-01_JPRB,1.3132E-01_JPRB,1.3664E-01_JPRB,1.3962E-01_JPRB,1.5009E-01_JPRB,&
+&1.6802E-01_JPRB,1.7246E-01_JPRB,2.5602E-01_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&7.3321E-02_JPRB,6.4173E-02_JPRB,5.5115E-02_JPRB,5.0047E-02_JPRB,4.8003E-02_JPRB,4.5729E-02_JPRB,&
+&4.3413E-02_JPRB,4.2157E-02_JPRB,6.5110E-02_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&9.2952E-02_JPRB,8.1355E-02_JPRB,6.9976E-02_JPRB,6.5257E-02_JPRB,6.4561E-02_JPRB,6.2014E-02_JPRB,&
+&6.0594E-02_JPRB,6.0655E-02_JPRB,9.1731E-02_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&1.1439E-01_JPRB,1.0014E-01_JPRB,8.6575E-02_JPRB,8.3912E-02_JPRB,8.3786E-02_JPRB,8.2279E-02_JPRB,&
+&8.3550E-02_JPRB,8.4201E-02_JPRB,1.2740E-01_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&1.3703E-01_JPRB,1.1997E-01_JPRB,1.0601E-01_JPRB,1.0652E-01_JPRB,1.0715E-01_JPRB,1.0792E-01_JPRB,&
+&1.1407E-01_JPRB,1.1447E-01_JPRB,1.7570E-01_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&1.6047E-01_JPRB,1.4048E-01_JPRB,1.2948E-01_JPRB,1.3382E-01_JPRB,1.3571E-01_JPRB,1.4072E-01_JPRB,&
+&1.5346E-01_JPRB,1.5557E-01_JPRB,2.3674E-01_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&6.6096E-02_JPRB,5.7840E-02_JPRB,5.0291E-02_JPRB,4.6255E-02_JPRB,4.3749E-02_JPRB,4.1346E-02_JPRB,&
+&3.9237E-02_JPRB,3.7187E-02_JPRB,5.6581E-02_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&8.5997E-02_JPRB,7.5272E-02_JPRB,6.5564E-02_JPRB,6.1464E-02_JPRB,6.0084E-02_JPRB,5.7566E-02_JPRB,&
+&5.5305E-02_JPRB,5.4415E-02_JPRB,8.1052E-02_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&1.0792E-01_JPRB,9.4463E-02_JPRB,8.2746E-02_JPRB,8.0231E-02_JPRB,7.9656E-02_JPRB,7.7519E-02_JPRB,&
+&7.6243E-02_JPRB,7.6636E-02_JPRB,1.1376E-01_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&1.3147E-01_JPRB,1.1508E-01_JPRB,1.0289E-01_JPRB,1.0281E-01_JPRB,1.0321E-01_JPRB,1.0267E-01_JPRB,&
+&1.0428E-01_JPRB,1.0618E-01_JPRB,1.5831E-01_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&1.5658E-01_JPRB,1.3709E-01_JPRB,1.2648E-01_JPRB,1.2964E-01_JPRB,1.3186E-01_JPRB,1.3458E-01_JPRB,&
+&1.4246E-01_JPRB,1.4352E-01_JPRB,2.1656E-01_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&5.8400E-02_JPRB,5.1103E-02_JPRB,4.5168E-02_JPRB,4.1948E-02_JPRB,3.9253E-02_JPRB,3.7020E-02_JPRB,&
+&3.5370E-02_JPRB,3.2290E-02_JPRB,4.8663E-02_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&7.8005E-02_JPRB,6.8268E-02_JPRB,6.0453E-02_JPRB,5.7096E-02_JPRB,5.4905E-02_JPRB,5.3117E-02_JPRB,&
+&5.0732E-02_JPRB,4.8891E-02_JPRB,7.1101E-02_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&9.9991E-02_JPRB,8.7516E-02_JPRB,7.8019E-02_JPRB,7.5868E-02_JPRB,7.4621E-02_JPRB,7.2463E-02_JPRB,&
+&7.0304E-02_JPRB,6.9569E-02_JPRB,1.0104E-01_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&1.2410E-01_JPRB,1.0864E-01_JPRB,9.8489E-02_JPRB,9.8564E-02_JPRB,9.8094E-02_JPRB,9.6833E-02_JPRB,&
+&9.6022E-02_JPRB,9.6830E-02_JPRB,1.4193E-01_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&1.4968E-01_JPRB,1.3103E-01_JPRB,1.2227E-01_JPRB,1.2491E-01_JPRB,1.2710E-01_JPRB,1.2811E-01_JPRB,&
+&1.3093E-01_JPRB,1.3351E-01_JPRB,1.9610E-01_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&5.0397E-02_JPRB,4.4093E-02_JPRB,3.9683E-02_JPRB,3.6946E-02_JPRB,3.4574E-02_JPRB,3.2784E-02_JPRB,&
+&3.1190E-02_JPRB,2.7785E-02_JPRB,4.2938E-02_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&6.9192E-02_JPRB,6.0558E-02_JPRB,5.4594E-02_JPRB,5.1616E-02_JPRB,4.9513E-02_JPRB,4.8432E-02_JPRB,&
+&4.6308E-02_JPRB,4.3232E-02_JPRB,6.1150E-02_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&9.0684E-02_JPRB,7.9364E-02_JPRB,7.1928E-02_JPRB,7.0062E-02_JPRB,6.8840E-02_JPRB,6.7293E-02_JPRB,&
+&6.5005E-02_JPRB,6.2608E-02_JPRB,8.8443E-02_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&1.1460E-01_JPRB,1.0028E-01_JPRB,9.2569E-02_JPRB,9.2695E-02_JPRB,9.1960E-02_JPRB,9.0808E-02_JPRB,&
+&8.8903E-02_JPRB,8.7875E-02_JPRB,1.2618E-01_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&1.4029E-01_JPRB,1.2278E-01_JPRB,1.1658E-01_JPRB,1.1927E-01_JPRB,1.2033E-01_JPRB,1.2086E-01_JPRB,&
+&1.2101E-01_JPRB,1.2214E-01_JPRB,1.7683E-01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&4.3717E-02_JPRB,3.8278E-02_JPRB,3.5080E-02_JPRB,3.2701E-02_JPRB,3.0716E-02_JPRB,2.9342E-02_JPRB,&
+&2.7684E-02_JPRB,2.4470E-02_JPRB,2.2009E-01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&6.1476E-02_JPRB,5.3866E-02_JPRB,4.9319E-02_JPRB,4.6960E-02_JPRB,4.5259E-02_JPRB,4.4478E-02_JPRB,&
+&4.2577E-02_JPRB,3.9251E-02_JPRB,2.1963E-01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&8.2385E-02_JPRB,7.2234E-02_JPRB,6.6445E-02_JPRB,6.4962E-02_JPRB,6.4371E-02_JPRB,6.3180E-02_JPRB,&
+&6.0931E-02_JPRB,5.7438E-02_JPRB,2.2242E-01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&1.0599E-01_JPRB,9.3000E-02_JPRB,8.7065E-02_JPRB,8.7339E-02_JPRB,8.7286E-02_JPRB,8.6396E-02_JPRB,&
+&8.4334E-02_JPRB,8.1297E-02_JPRB,2.2730E-01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&1.3194E-01_JPRB,1.1580E-01_JPRB,1.1124E-01_JPRB,1.1411E-01_JPRB,1.1533E-01_JPRB,1.1612E-01_JPRB,&
+&1.1515E-01_JPRB,1.1414E-01_JPRB,2.3906E-01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&4.4414E-02_JPRB,3.9124E-02_JPRB,3.6276E-02_JPRB,3.4192E-02_JPRB,3.2709E-02_JPRB,3.1757E-02_JPRB,&
+&3.0272E-02_JPRB,2.7274E-02_JPRB,6.0923E-01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&6.2792E-02_JPRB,5.5349E-02_JPRB,5.1175E-02_JPRB,4.9442E-02_JPRB,4.8780E-02_JPRB,4.8068E-02_JPRB,&
+&4.6106E-02_JPRB,4.2789E-02_JPRB,6.0862E-01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&8.4498E-02_JPRB,7.4522E-02_JPRB,6.9553E-02_JPRB,6.8963E-02_JPRB,6.9106E-02_JPRB,6.8253E-02_JPRB,&
+&6.6044E-02_JPRB,6.2338E-02_JPRB,6.0545E-01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&1.0929E-01_JPRB,9.6406E-02_JPRB,9.1543E-02_JPRB,9.3189E-02_JPRB,9.3647E-02_JPRB,9.3574E-02_JPRB,&
+&9.1735E-02_JPRB,8.8253E-02_JPRB,5.9922E-01_JPRB/)
+KAO( :, 5,11,14) = (/&
+&1.3686E-01_JPRB,1.2067E-01_JPRB,1.1766E-01_JPRB,1.2167E-01_JPRB,1.2456E-01_JPRB,1.2652E-01_JPRB,&
+&1.2561E-01_JPRB,1.2397E-01_JPRB,5.9856E-01_JPRB/)
+KAO( :, 1,12,14) = (/&
+&4.5286E-02_JPRB,4.0194E-02_JPRB,3.7498E-02_JPRB,3.5426E-02_JPRB,3.4720E-02_JPRB,3.4064E-02_JPRB,&
+&3.2556E-02_JPRB,2.9605E-02_JPRB,1.0899E+00_JPRB/)
+KAO( :, 2,12,14) = (/&
+&6.4484E-02_JPRB,5.7256E-02_JPRB,5.3321E-02_JPRB,5.1760E-02_JPRB,5.1954E-02_JPRB,5.1386E-02_JPRB,&
+&4.9166E-02_JPRB,4.5588E-02_JPRB,1.0909E+00_JPRB/)
+KAO( :, 3,12,14) = (/&
+&8.7239E-02_JPRB,7.7409E-02_JPRB,7.3021E-02_JPRB,7.2641E-02_JPRB,7.3363E-02_JPRB,7.2923E-02_JPRB,&
+&7.0510E-02_JPRB,6.6538E-02_JPRB,1.0837E+00_JPRB/)
+KAO( :, 4,12,14) = (/&
+&1.1325E-01_JPRB,1.0044E-01_JPRB,9.6532E-02_JPRB,9.7960E-02_JPRB,9.9715E-02_JPRB,1.0061E-01_JPRB,&
+&9.8953E-02_JPRB,9.5070E-02_JPRB,1.0714E+00_JPRB/)
+KAO( :, 5,12,14) = (/&
+&1.4215E-01_JPRB,1.2620E-01_JPRB,1.2476E-01_JPRB,1.2858E-01_JPRB,1.3345E-01_JPRB,1.3645E-01_JPRB,&
+&1.3637E-01_JPRB,1.3374E-01_JPRB,1.0563E+00_JPRB/)
+KAO( :, 1,13,14) = (/&
+&4.6570E-02_JPRB,4.1678E-02_JPRB,3.8725E-02_JPRB,3.6717E-02_JPRB,3.6394E-02_JPRB,3.5946E-02_JPRB,&
+&3.4376E-02_JPRB,3.1454E-02_JPRB,1.5895E+00_JPRB/)
+KAO( :, 2,13,14) = (/&
+&6.6498E-02_JPRB,5.9462E-02_JPRB,5.5660E-02_JPRB,5.4101E-02_JPRB,5.4467E-02_JPRB,5.3788E-02_JPRB,&
+&5.1648E-02_JPRB,4.8046E-02_JPRB,1.5849E+00_JPRB/)
+KAO( :, 3,13,14) = (/&
+&9.0364E-02_JPRB,8.0700E-02_JPRB,7.6577E-02_JPRB,7.6135E-02_JPRB,7.6849E-02_JPRB,7.6753E-02_JPRB,&
+&7.4630E-02_JPRB,7.0420E-02_JPRB,1.5698E+00_JPRB/)
+KAO( :, 4,13,14) = (/&
+&1.1790E-01_JPRB,1.0519E-01_JPRB,1.0195E-01_JPRB,1.0248E-01_JPRB,1.0532E-01_JPRB,1.0714E-01_JPRB,&
+&1.0603E-01_JPRB,1.0171E-01_JPRB,1.5492E+00_JPRB/)
+KAO( :, 5,13,14) = (/&
+&1.4874E-01_JPRB,1.3321E-01_JPRB,1.3189E-01_JPRB,1.3520E-01_JPRB,1.4175E-01_JPRB,1.4629E-01_JPRB,&
+&1.4735E-01_JPRB,1.4395E-01_JPRB,1.5228E+00_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&1.1131E-01_JPRB,9.7434E-02_JPRB,8.3539E-02_JPRB,6.9673E-02_JPRB,6.4542E-02_JPRB,7.4907E-02_JPRB,&
+&8.0610E-02_JPRB,7.4592E-02_JPRB,1.2983E-01_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&1.2948E-01_JPRB,1.1334E-01_JPRB,9.7201E-02_JPRB,8.1647E-02_JPRB,9.0214E-02_JPRB,1.0535E-01_JPRB,&
+&1.1308E-01_JPRB,1.0399E-01_JPRB,1.8473E-01_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&1.4765E-01_JPRB,1.2925E-01_JPRB,1.1103E-01_JPRB,1.0059E-01_JPRB,1.2467E-01_JPRB,1.4566E-01_JPRB,&
+&1.5615E-01_JPRB,1.4358E-01_JPRB,2.5548E-01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&1.6551E-01_JPRB,1.4490E-01_JPRB,1.2421E-01_JPRB,1.3376E-01_JPRB,1.6988E-01_JPRB,1.9836E-01_JPRB,&
+&2.1296E-01_JPRB,1.9754E-01_JPRB,3.4830E-01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&1.8295E-01_JPRB,1.6015E-01_JPRB,1.4430E-01_JPRB,1.8250E-01_JPRB,2.3252E-01_JPRB,2.7304E-01_JPRB,&
+&2.9658E-01_JPRB,2.7983E-01_JPRB,4.7759E-01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&1.2229E-01_JPRB,1.0698E-01_JPRB,9.1752E-02_JPRB,7.6480E-02_JPRB,6.8179E-02_JPRB,7.6324E-02_JPRB,&
+&8.2595E-02_JPRB,7.6957E-02_JPRB,1.3490E-01_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&1.4324E-01_JPRB,1.2538E-01_JPRB,1.0747E-01_JPRB,9.0191E-02_JPRB,9.3013E-02_JPRB,1.0900E-01_JPRB,&
+&1.1749E-01_JPRB,1.0918E-01_JPRB,1.9459E-01_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&1.6466E-01_JPRB,1.4413E-01_JPRB,1.2359E-01_JPRB,1.1001E-01_JPRB,1.3054E-01_JPRB,1.5305E-01_JPRB,&
+&1.6497E-01_JPRB,1.5263E-01_JPRB,2.7373E-01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&1.8622E-01_JPRB,1.6296E-01_JPRB,1.3975E-01_JPRB,1.4019E-01_JPRB,1.7799E-01_JPRB,2.0816E-01_JPRB,&
+&2.2421E-01_JPRB,2.0784E-01_JPRB,3.7366E-01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&2.0755E-01_JPRB,1.8167E-01_JPRB,1.5934E-01_JPRB,1.9033E-01_JPRB,2.4247E-01_JPRB,2.8472E-01_JPRB,&
+&3.0675E-01_JPRB,2.8798E-01_JPRB,5.0930E-01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&1.2835E-01_JPRB,1.1233E-01_JPRB,9.6332E-02_JPRB,8.0294E-02_JPRB,6.8892E-02_JPRB,7.2388E-02_JPRB,&
+&7.7841E-02_JPRB,7.2996E-02_JPRB,1.3009E-01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&1.5296E-01_JPRB,1.3385E-01_JPRB,1.1480E-01_JPRB,9.5678E-02_JPRB,9.1260E-02_JPRB,1.0384E-01_JPRB,&
+&1.1265E-01_JPRB,1.0600E-01_JPRB,1.8774E-01_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&1.7841E-01_JPRB,1.5614E-01_JPRB,1.3387E-01_JPRB,1.1551E-01_JPRB,1.2609E-01_JPRB,1.4839E-01_JPRB,&
+&1.6074E-01_JPRB,1.4978E-01_JPRB,2.6916E-01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&2.0421E-01_JPRB,1.7872E-01_JPRB,1.5328E-01_JPRB,1.4514E-01_JPRB,1.7532E-01_JPRB,2.0570E-01_JPRB,&
+&2.2217E-01_JPRB,2.0725E-01_JPRB,3.7502E-01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&2.2993E-01_JPRB,2.0124E-01_JPRB,1.7291E-01_JPRB,1.8782E-01_JPRB,2.3935E-01_JPRB,2.8099E-01_JPRB,&
+&3.0349E-01_JPRB,2.8229E-01_JPRB,5.1274E-01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&1.3220E-01_JPRB,1.1572E-01_JPRB,9.9179E-02_JPRB,8.2676E-02_JPRB,6.8587E-02_JPRB,6.9929E-02_JPRB,&
+&7.4555E-02_JPRB,6.8313E-02_JPRB,1.2618E-01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&1.6060E-01_JPRB,1.4053E-01_JPRB,1.2046E-01_JPRB,1.0042E-01_JPRB,9.1232E-02_JPRB,9.6578E-02_JPRB,&
+&1.0443E-01_JPRB,9.9068E-02_JPRB,1.7466E-01_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&1.9027E-01_JPRB,1.6651E-01_JPRB,1.4275E-01_JPRB,1.1998E-01_JPRB,1.2056E-01_JPRB,1.3873E-01_JPRB,&
+&1.5129E-01_JPRB,1.4272E-01_JPRB,2.5148E-01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&2.2066E-01_JPRB,1.9311E-01_JPRB,1.6558E-01_JPRB,1.4877E-01_JPRB,1.6676E-01_JPRB,1.9681E-01_JPRB,&
+&2.1452E-01_JPRB,2.0223E-01_JPRB,3.5884E-01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&2.5122E-01_JPRB,2.1983E-01_JPRB,1.8845E-01_JPRB,1.8829E-01_JPRB,2.3159E-01_JPRB,2.7258E-01_JPRB,&
+&2.9545E-01_JPRB,2.7646E-01_JPRB,4.9974E-01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&1.3465E-01_JPRB,1.1783E-01_JPRB,1.0104E-01_JPRB,8.4191E-02_JPRB,7.0181E-02_JPRB,6.7764E-02_JPRB,&
+&7.2349E-02_JPRB,6.6738E-02_JPRB,1.2182E-01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&1.6678E-01_JPRB,1.4597E-01_JPRB,1.2512E-01_JPRB,1.0428E-01_JPRB,9.0356E-02_JPRB,9.3548E-02_JPRB,&
+&1.0047E-01_JPRB,9.3395E-02_JPRB,1.6838E-01_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&2.0080E-01_JPRB,1.7573E-01_JPRB,1.5067E-01_JPRB,1.2564E-01_JPRB,1.1939E-01_JPRB,1.2897E-01_JPRB,&
+&1.4021E-01_JPRB,1.3389E-01_JPRB,2.3367E-01_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&2.3601E-01_JPRB,2.0651E-01_JPRB,1.7705E-01_JPRB,1.5299E-01_JPRB,1.5971E-01_JPRB,1.8409E-01_JPRB,&
+&2.0223E-01_JPRB,1.9297E-01_JPRB,3.3364E-01_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&2.7164E-01_JPRB,2.3767E-01_JPRB,2.0377E-01_JPRB,1.9351E-01_JPRB,2.2099E-01_JPRB,2.6145E-01_JPRB,&
+&2.8569E-01_JPRB,2.7068E-01_JPRB,4.7598E-01_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&1.3406E-01_JPRB,1.1731E-01_JPRB,1.0056E-01_JPRB,8.3806E-02_JPRB,7.0762E-02_JPRB,6.6238E-02_JPRB,&
+&6.8971E-02_JPRB,6.4722E-02_JPRB,1.1369E-01_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&1.6963E-01_JPRB,1.4845E-01_JPRB,1.2729E-01_JPRB,1.0606E-01_JPRB,9.0231E-02_JPRB,9.0723E-02_JPRB,&
+&9.7199E-02_JPRB,9.0437E-02_JPRB,1.6138E-01_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&2.0786E-01_JPRB,1.8191E-01_JPRB,1.5592E-01_JPRB,1.2995E-01_JPRB,1.1861E-01_JPRB,1.2279E-01_JPRB,&
+&1.3287E-01_JPRB,1.2524E-01_JPRB,2.2069E-01_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&2.4779E-01_JPRB,2.1681E-01_JPRB,1.8585E-01_JPRB,1.5823E-01_JPRB,1.5558E-01_JPRB,1.7012E-01_JPRB,&
+&1.8594E-01_JPRB,1.7956E-01_JPRB,3.0607E-01_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&2.8850E-01_JPRB,2.5250E-01_JPRB,2.1644E-01_JPRB,1.9593E-01_JPRB,2.0861E-01_JPRB,2.4203E-01_JPRB,&
+&2.6660E-01_JPRB,2.5670E-01_JPRB,4.3563E-01_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&1.3101E-01_JPRB,1.1464E-01_JPRB,9.8272E-02_JPRB,8.1907E-02_JPRB,7.0350E-02_JPRB,6.5243E-02_JPRB,&
+&6.4994E-02_JPRB,6.2397E-02_JPRB,1.0427E-01_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&1.6960E-01_JPRB,1.4841E-01_JPRB,1.2720E-01_JPRB,1.0602E-01_JPRB,9.1007E-02_JPRB,8.8046E-02_JPRB,&
+&9.1985E-02_JPRB,8.6734E-02_JPRB,1.5008E-01_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&2.1159E-01_JPRB,1.8512E-01_JPRB,1.5869E-01_JPRB,1.3227E-01_JPRB,1.1799E-01_JPRB,1.2016E-01_JPRB,&
+&1.2848E-01_JPRB,1.2123E-01_JPRB,2.0928E-01_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&2.5591E-01_JPRB,2.2393E-01_JPRB,1.9196E-01_JPRB,1.6246E-01_JPRB,1.5474E-01_JPRB,1.6150E-01_JPRB,&
+&1.7579E-01_JPRB,1.6710E-01_JPRB,2.8812E-01_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&3.0213E-01_JPRB,2.6429E-01_JPRB,2.2656E-01_JPRB,2.0075E-01_JPRB,2.0206E-01_JPRB,2.2299E-01_JPRB,&
+&2.4482E-01_JPRB,2.3852E-01_JPRB,4.0014E-01_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&1.2571E-01_JPRB,1.1002E-01_JPRB,9.4301E-02_JPRB,7.8660E-02_JPRB,6.9028E-02_JPRB,6.3512E-02_JPRB,&
+&6.0386E-02_JPRB,5.9283E-02_JPRB,9.4594E-02_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&1.6658E-01_JPRB,1.4578E-01_JPRB,1.2499E-01_JPRB,1.0438E-01_JPRB,9.1618E-02_JPRB,8.5835E-02_JPRB,&
+&8.6312E-02_JPRB,8.2954E-02_JPRB,1.3781E-01_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&2.1185E-01_JPRB,1.8540E-01_JPRB,1.5894E-01_JPRB,1.3292E-01_JPRB,1.1859E-01_JPRB,1.1793E-01_JPRB,&
+&1.2293E-01_JPRB,1.1767E-01_JPRB,1.9732E-01_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&2.6124E-01_JPRB,2.2860E-01_JPRB,1.9595E-01_JPRB,1.6484E-01_JPRB,1.5535E-01_JPRB,1.5770E-01_JPRB,&
+&1.6881E-01_JPRB,1.6159E-01_JPRB,2.7186E-01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&3.1377E-01_JPRB,2.7455E-01_JPRB,2.3536E-01_JPRB,2.0526E-01_JPRB,2.0139E-01_JPRB,2.1210E-01_JPRB,&
+&2.3209E-01_JPRB,2.2418E-01_JPRB,3.7448E-01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&1.1779E-01_JPRB,1.0307E-01_JPRB,8.8332E-02_JPRB,7.4504E-02_JPRB,6.6446E-02_JPRB,6.0468E-02_JPRB,&
+&5.6136E-02_JPRB,5.4947E-02_JPRB,8.6169E-02_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&1.6035E-01_JPRB,1.4031E-01_JPRB,1.2024E-01_JPRB,1.0163E-01_JPRB,9.0617E-02_JPRB,8.2714E-02_JPRB,&
+&7.9922E-02_JPRB,7.8110E-02_JPRB,1.2654E-01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&2.0927E-01_JPRB,1.8312E-01_JPRB,1.5698E-01_JPRB,1.3222E-01_JPRB,1.1873E-01_JPRB,1.1424E-01_JPRB,&
+&1.1454E-01_JPRB,1.1174E-01_JPRB,1.8302E-01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&2.6349E-01_JPRB,2.3054E-01_JPRB,1.9763E-01_JPRB,1.6626E-01_JPRB,1.5598E-01_JPRB,1.5598E-01_JPRB,&
+&1.6166E-01_JPRB,1.5736E-01_JPRB,2.5852E-01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&3.2165E-01_JPRB,2.8148E-01_JPRB,2.4130E-01_JPRB,2.0798E-01_JPRB,2.0349E-01_JPRB,2.0671E-01_JPRB,&
+&2.2142E-01_JPRB,2.1528E-01_JPRB,3.5292E-01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&1.1095E-01_JPRB,9.7087E-02_JPRB,8.3232E-02_JPRB,7.1375E-02_JPRB,6.4431E-02_JPRB,5.8222E-02_JPRB,&
+&5.3438E-02_JPRB,5.1856E-02_JPRB,2.8234E-01_JPRB/)
+KAO( :, 2,10,15) = (/&
+&1.5568E-01_JPRB,1.3623E-01_JPRB,1.1675E-01_JPRB,9.9778E-02_JPRB,9.0053E-02_JPRB,8.1186E-02_JPRB,&
+&7.6199E-02_JPRB,7.4185E-02_JPRB,2.7084E-01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&2.0787E-01_JPRB,1.8189E-01_JPRB,1.5590E-01_JPRB,1.3290E-01_JPRB,1.2001E-01_JPRB,1.1270E-01_JPRB,&
+&1.0975E-01_JPRB,1.0759E-01_JPRB,2.7158E-01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&2.6636E-01_JPRB,2.3306E-01_JPRB,1.9979E-01_JPRB,1.7021E-01_JPRB,1.5900E-01_JPRB,1.5510E-01_JPRB,&
+&1.5611E-01_JPRB,1.5403E-01_JPRB,2.9598E-01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&3.2972E-01_JPRB,2.8850E-01_JPRB,2.4729E-01_JPRB,2.1458E-01_JPRB,2.0828E-01_JPRB,2.0718E-01_JPRB,&
+&2.1605E-01_JPRB,2.1269E-01_JPRB,3.5425E-01_JPRB/)
+KAO( :, 1,11,15) = (/&
+&1.2309E-01_JPRB,1.0770E-01_JPRB,9.2318E-02_JPRB,8.0169E-02_JPRB,7.2987E-02_JPRB,6.5556E-02_JPRB,&
+&5.9599E-02_JPRB,5.7207E-02_JPRB,7.8086E-01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&1.7300E-01_JPRB,1.5138E-01_JPRB,1.2976E-01_JPRB,1.1252E-01_JPRB,1.0172E-01_JPRB,9.2390E-02_JPRB,&
+&8.6481E-02_JPRB,8.3441E-02_JPRB,7.5756E-01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&2.3096E-01_JPRB,2.0210E-01_JPRB,1.7324E-01_JPRB,1.5024E-01_JPRB,1.3705E-01_JPRB,1.2915E-01_JPRB,&
+&1.2474E-01_JPRB,1.2191E-01_JPRB,7.4457E-01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&2.9558E-01_JPRB,2.5867E-01_JPRB,2.2168E-01_JPRB,1.9321E-01_JPRB,1.8253E-01_JPRB,1.7759E-01_JPRB,&
+&1.7734E-01_JPRB,1.7484E-01_JPRB,7.3821E-01_JPRB/)
+KAO( :, 5,11,15) = (/&
+&3.6617E-01_JPRB,3.2039E-01_JPRB,2.7464E-01_JPRB,2.4544E-01_JPRB,2.3942E-01_JPRB,2.3664E-01_JPRB,&
+&2.4480E-01_JPRB,2.4186E-01_JPRB,7.3136E-01_JPRB/)
+KAO( :, 1,12,15) = (/&
+&1.3535E-01_JPRB,1.1843E-01_JPRB,1.0165E-01_JPRB,8.9837E-02_JPRB,8.1690E-02_JPRB,7.3571E-02_JPRB,&
+&6.6791E-02_JPRB,6.3661E-02_JPRB,1.3757E+00_JPRB/)
+KAO( :, 2,12,15) = (/&
+&1.8999E-01_JPRB,1.6623E-01_JPRB,1.4287E-01_JPRB,1.2620E-01_JPRB,1.1425E-01_JPRB,1.0484E-01_JPRB,&
+&9.8183E-02_JPRB,9.4523E-02_JPRB,1.3459E+00_JPRB/)
+KAO( :, 3,12,15) = (/&
+&2.5368E-01_JPRB,2.2195E-01_JPRB,1.9057E-01_JPRB,1.6840E-01_JPRB,1.5584E-01_JPRB,1.4733E-01_JPRB,&
+&1.4186E-01_JPRB,1.3807E-01_JPRB,1.3315E+00_JPRB/)
+KAO( :, 4,12,15) = (/&
+&3.2577E-01_JPRB,2.8506E-01_JPRB,2.4459E-01_JPRB,2.1851E-01_JPRB,2.0824E-01_JPRB,2.0259E-01_JPRB,&
+&2.0145E-01_JPRB,1.9850E-01_JPRB,1.3194E+00_JPRB/)
+KAO( :, 5,12,15) = (/&
+&4.0459E-01_JPRB,3.5405E-01_JPRB,3.0385E-01_JPRB,2.7860E-01_JPRB,2.7319E-01_JPRB,2.7033E-01_JPRB,&
+&2.7684E-01_JPRB,2.7490E-01_JPRB,1.2999E+00_JPRB/)
+KAO( :, 1,13,15) = (/&
+&1.4666E-01_JPRB,1.2832E-01_JPRB,1.1128E-01_JPRB,9.9675E-02_JPRB,9.0808E-02_JPRB,8.2287E-02_JPRB,&
+&7.4732E-02_JPRB,7.0894E-02_JPRB,1.9726E+00_JPRB/)
+KAO( :, 2,13,15) = (/&
+&2.0655E-01_JPRB,1.8072E-01_JPRB,1.5634E-01_JPRB,1.3981E-01_JPRB,1.2800E-01_JPRB,1.1883E-01_JPRB,&
+&1.1080E-01_JPRB,1.0633E-01_JPRB,1.9427E+00_JPRB/)
+KAO( :, 3,13,15) = (/&
+&2.7678E-01_JPRB,2.4218E-01_JPRB,2.0938E-01_JPRB,1.8714E-01_JPRB,1.7583E-01_JPRB,1.6736E-01_JPRB,&
+&1.6095E-01_JPRB,1.5626E-01_JPRB,1.9257E+00_JPRB/)
+KAO( :, 4,13,15) = (/&
+&3.5575E-01_JPRB,3.1133E-01_JPRB,2.6913E-01_JPRB,2.4484E-01_JPRB,2.3543E-01_JPRB,2.2998E-01_JPRB,&
+&2.2795E-01_JPRB,2.2454E-01_JPRB,1.9087E+00_JPRB/)
+KAO( :, 5,13,15) = (/&
+&4.4176E-01_JPRB,3.8657E-01_JPRB,3.3600E-01_JPRB,3.1312E-01_JPRB,3.0900E-01_JPRB,3.0654E-01_JPRB,&
+&3.1167E-01_JPRB,3.1059E-01_JPRB,1.8847E+00_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&1.2027E-01_JPRB,1.0526E-01_JPRB,9.0268E-02_JPRB,7.5271E-02_JPRB,6.8242E-02_JPRB,7.9946E-02_JPRB,&
+&8.4979E-02_JPRB,7.6217E-02_JPRB,1.4103E-01_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&1.4080E-01_JPRB,1.2324E-01_JPRB,1.0567E-01_JPRB,8.8126E-02_JPRB,9.6089E-02_JPRB,1.1140E-01_JPRB,&
+&1.1849E-01_JPRB,1.0627E-01_JPRB,1.9684E-01_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&1.6158E-01_JPRB,1.4144E-01_JPRB,1.1993E-01_JPRB,1.0577E-01_JPRB,1.3446E-01_JPRB,1.5713E-01_JPRB,&
+&1.6954E-01_JPRB,1.5459E-01_JPRB,2.8205E-01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&1.8229E-01_JPRB,1.5953E-01_JPRB,1.3683E-01_JPRB,1.5400E-01_JPRB,1.9491E-01_JPRB,2.2859E-01_JPRB,&
+&2.4701E-01_JPRB,2.2397E-01_JPRB,4.1109E-01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&2.0257E-01_JPRB,1.7732E-01_JPRB,1.5205E-01_JPRB,2.1653E-01_JPRB,2.7743E-01_JPRB,3.2485E-01_JPRB,&
+&3.4587E-01_JPRB,3.1685E-01_JPRB,5.7776E-01_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&1.3618E-01_JPRB,1.1918E-01_JPRB,1.0218E-01_JPRB,8.5185E-02_JPRB,7.2061E-02_JPRB,8.3641E-02_JPRB,&
+&8.9007E-02_JPRB,8.0776E-02_JPRB,1.5158E-01_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&1.6091E-01_JPRB,1.4083E-01_JPRB,1.2073E-01_JPRB,1.0065E-01_JPRB,1.0215E-01_JPRB,1.1864E-01_JPRB,&
+&1.2628E-01_JPRB,1.1335E-01_JPRB,2.1521E-01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&1.8613E-01_JPRB,1.6291E-01_JPRB,1.3967E-01_JPRB,1.1644E-01_JPRB,1.3974E-01_JPRB,1.6244E-01_JPRB,&
+&1.7346E-01_JPRB,1.5531E-01_JPRB,2.9678E-01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&2.1139E-01_JPRB,1.8501E-01_JPRB,1.5862E-01_JPRB,1.6081E-01_JPRB,2.0532E-01_JPRB,2.4099E-01_JPRB,&
+&2.5759E-01_JPRB,2.3243E-01_JPRB,4.4014E-01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&2.3633E-01_JPRB,2.0681E-01_JPRB,1.7734E-01_JPRB,2.3037E-01_JPRB,2.9357E-01_JPRB,3.4250E-01_JPRB,&
+&3.6944E-01_JPRB,3.3497E-01_JPRB,6.2683E-01_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&1.4816E-01_JPRB,1.2967E-01_JPRB,1.1115E-01_JPRB,9.2659E-02_JPRB,7.4159E-02_JPRB,8.0583E-02_JPRB,&
+&8.5826E-02_JPRB,7.7925E-02_JPRB,1.4987E-01_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&1.7766E-01_JPRB,1.5547E-01_JPRB,1.3328E-01_JPRB,1.1109E-01_JPRB,1.0104E-01_JPRB,1.1748E-01_JPRB,&
+&1.2514E-01_JPRB,1.1367E-01_JPRB,2.1867E-01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&2.0806E-01_JPRB,1.8208E-01_JPRB,1.5612E-01_JPRB,1.3012E-01_JPRB,1.4100E-01_JPRB,1.6398E-01_JPRB,&
+&1.7474E-01_JPRB,1.5873E-01_JPRB,3.0539E-01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&2.3885E-01_JPRB,2.0905E-01_JPRB,1.7920E-01_JPRB,1.5462E-01_JPRB,1.9704E-01_JPRB,2.3104E-01_JPRB,&
+&2.4836E-01_JPRB,2.2742E-01_JPRB,4.3187E-01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&2.6947E-01_JPRB,2.3583E-01_JPRB,2.0218E-01_JPRB,2.2565E-01_JPRB,2.8814E-01_JPRB,3.3769E-01_JPRB,&
+&3.6257E-01_JPRB,3.3019E-01_JPRB,6.3080E-01_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&1.5818E-01_JPRB,1.3843E-01_JPRB,1.1868E-01_JPRB,9.8906E-02_JPRB,7.9147E-02_JPRB,7.4782E-02_JPRB,&
+&7.9730E-02_JPRB,7.2448E-02_JPRB,1.4101E-01_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&1.9302E-01_JPRB,1.6890E-01_JPRB,1.4479E-01_JPRB,1.2067E-01_JPRB,9.6946E-02_JPRB,1.1266E-01_JPRB,&
+&1.2012E-01_JPRB,1.0916E-01_JPRB,2.1249E-01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&2.2940E-01_JPRB,2.0076E-01_JPRB,1.7206E-01_JPRB,1.4345E-01_JPRB,1.3883E-01_JPRB,1.6162E-01_JPRB,&
+&1.7237E-01_JPRB,1.5669E-01_JPRB,3.0501E-01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&2.6665E-01_JPRB,2.3335E-01_JPRB,2.0002E-01_JPRB,1.6674E-01_JPRB,1.9115E-01_JPRB,2.2258E-01_JPRB,&
+&2.3743E-01_JPRB,2.1581E-01_JPRB,4.2004E-01_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&3.0410E-01_JPRB,2.6615E-01_JPRB,2.2811E-01_JPRB,2.1285E-01_JPRB,2.7372E-01_JPRB,3.2083E-01_JPRB,&
+&3.4541E-01_JPRB,3.1599E-01_JPRB,6.0405E-01_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&1.6744E-01_JPRB,1.4653E-01_JPRB,1.2561E-01_JPRB,1.0468E-01_JPRB,8.3763E-02_JPRB,7.6430E-02_JPRB,&
+&8.0078E-02_JPRB,7.1821E-02_JPRB,1.3817E-01_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&2.0817E-01_JPRB,1.8217E-01_JPRB,1.5617E-01_JPRB,1.3014E-01_JPRB,1.0413E-01_JPRB,1.0666E-01_JPRB,&
+&1.1380E-01_JPRB,1.0350E-01_JPRB,2.0245E-01_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&2.5135E-01_JPRB,2.1998E-01_JPRB,1.8857E-01_JPRB,1.5714E-01_JPRB,1.3525E-01_JPRB,1.5761E-01_JPRB,&
+&1.6824E-01_JPRB,1.5302E-01_JPRB,2.9921E-01_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&2.9614E-01_JPRB,2.5913E-01_JPRB,2.2214E-01_JPRB,1.8514E-01_JPRB,1.9095E-01_JPRB,2.2256E-01_JPRB,&
+&2.3757E-01_JPRB,2.1609E-01_JPRB,4.2253E-01_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&3.4165E-01_JPRB,2.9890E-01_JPRB,2.5626E-01_JPRB,2.1358E-01_JPRB,2.6276E-01_JPRB,3.0710E-01_JPRB,&
+&3.2753E-01_JPRB,2.9875E-01_JPRB,5.8403E-01_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&1.7406E-01_JPRB,1.5231E-01_JPRB,1.3056E-01_JPRB,1.0879E-01_JPRB,8.7033E-02_JPRB,7.9557E-02_JPRB,&
+&8.3495E-02_JPRB,7.4970E-02_JPRB,1.4461E-01_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&2.2115E-01_JPRB,1.9353E-01_JPRB,1.6587E-01_JPRB,1.3825E-01_JPRB,1.1058E-01_JPRB,1.0079E-01_JPRB,&
+&1.0571E-01_JPRB,9.5354E-02_JPRB,1.8669E-01_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&2.7185E-01_JPRB,2.3789E-01_JPRB,2.0389E-01_JPRB,1.6994E-01_JPRB,1.3598E-01_JPRB,1.4993E-01_JPRB,&
+&1.6017E-01_JPRB,1.4582E-01_JPRB,2.8546E-01_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&3.2519E-01_JPRB,2.8454E-01_JPRB,2.4391E-01_JPRB,2.0327E-01_JPRB,1.8667E-01_JPRB,2.1780E-01_JPRB,&
+&2.3273E-01_JPRB,2.1193E-01_JPRB,4.1454E-01_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&3.7997E-01_JPRB,3.3252E-01_JPRB,2.8502E-01_JPRB,2.3749E-01_JPRB,2.5973E-01_JPRB,3.0308E-01_JPRB,&
+&3.2386E-01_JPRB,2.9502E-01_JPRB,5.7680E-01_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&1.7875E-01_JPRB,1.5642E-01_JPRB,1.3408E-01_JPRB,1.1175E-01_JPRB,8.9415E-02_JPRB,8.1831E-02_JPRB,&
+&8.6005E-02_JPRB,7.7323E-02_JPRB,1.4922E-01_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&2.3257E-01_JPRB,2.0349E-01_JPRB,1.7445E-01_JPRB,1.4538E-01_JPRB,1.1631E-01_JPRB,1.0616E-01_JPRB,&
+&1.1147E-01_JPRB,1.0017E-01_JPRB,1.9290E-01_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&2.9155E-01_JPRB,2.5511E-01_JPRB,2.1872E-01_JPRB,1.8226E-01_JPRB,1.4581E-01_JPRB,1.4057E-01_JPRB,&
+&1.5032E-01_JPRB,1.3703E-01_JPRB,2.6795E-01_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&3.5453E-01_JPRB,3.1018E-01_JPRB,2.6586E-01_JPRB,2.2158E-01_JPRB,1.8072E-01_JPRB,2.1059E-01_JPRB,&
+&2.2528E-01_JPRB,2.0539E-01_JPRB,4.0134E-01_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&4.2001E-01_JPRB,3.6750E-01_JPRB,3.1500E-01_JPRB,2.6252E-01_JPRB,2.5742E-01_JPRB,3.0072E-01_JPRB,&
+&3.2172E-01_JPRB,2.9345E-01_JPRB,5.7279E-01_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&1.8184E-01_JPRB,1.5912E-01_JPRB,1.3638E-01_JPRB,1.1367E-01_JPRB,9.0918E-02_JPRB,8.3330E-02_JPRB,&
+&8.7708E-02_JPRB,7.9039E-02_JPRB,1.5236E-01_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&2.4266E-01_JPRB,2.1231E-01_JPRB,1.8198E-01_JPRB,1.5168E-01_JPRB,1.2132E-01_JPRB,1.1090E-01_JPRB,&
+&1.1664E-01_JPRB,1.0501E-01_JPRB,2.0199E-01_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&3.1060E-01_JPRB,2.7177E-01_JPRB,2.3297E-01_JPRB,1.9411E-01_JPRB,1.5532E-01_JPRB,1.4153E-01_JPRB,&
+&1.4874E-01_JPRB,1.3387E-01_JPRB,2.5753E-01_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&3.8422E-01_JPRB,3.3618E-01_JPRB,2.8820E-01_JPRB,2.4017E-01_JPRB,1.9212E-01_JPRB,2.0191E-01_JPRB,&
+&2.1622E-01_JPRB,1.9751E-01_JPRB,3.8483E-01_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&4.6183E-01_JPRB,4.0412E-01_JPRB,3.4637E-01_JPRB,2.8861E-01_JPRB,2.5332E-01_JPRB,2.9628E-01_JPRB,&
+&3.1743E-01_JPRB,2.9007E-01_JPRB,5.6429E-01_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&1.8242E-01_JPRB,1.5964E-01_JPRB,1.3685E-01_JPRB,1.1403E-01_JPRB,9.1238E-02_JPRB,8.3650E-02_JPRB,&
+&8.8221E-02_JPRB,7.9647E-02_JPRB,1.5343E-01_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&2.5031E-01_JPRB,2.1903E-01_JPRB,1.8774E-01_JPRB,1.5645E-01_JPRB,1.2518E-01_JPRB,1.1450E-01_JPRB,&
+&1.2069E-01_JPRB,1.0894E-01_JPRB,2.0909E-01_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&3.2780E-01_JPRB,2.8681E-01_JPRB,2.4582E-01_JPRB,2.0484E-01_JPRB,1.6390E-01_JPRB,1.4947E-01_JPRB,&
+&1.5744E-01_JPRB,1.4207E-01_JPRB,2.7178E-01_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&4.1288E-01_JPRB,3.6136E-01_JPRB,3.0972E-01_JPRB,2.5810E-01_JPRB,2.0648E-01_JPRB,1.9240E-01_JPRB,&
+&2.0499E-01_JPRB,1.8750E-01_JPRB,3.6520E-01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&5.0401E-01_JPRB,4.4105E-01_JPRB,3.7793E-01_JPRB,3.1504E-01_JPRB,2.5430E-01_JPRB,2.8859E-01_JPRB,&
+&3.0964E-01_JPRB,2.8367E-01_JPRB,5.5002E-01_JPRB/)
+KAO( :, 1,10,16) = (/&
+&1.8581E-01_JPRB,1.6259E-01_JPRB,1.3934E-01_JPRB,1.1613E-01_JPRB,9.2903E-02_JPRB,8.5148E-02_JPRB,&
+&9.0034E-02_JPRB,8.1540E-02_JPRB,3.4590E-01_JPRB/)
+KAO( :, 2,10,16) = (/&
+&2.6163E-01_JPRB,2.2890E-01_JPRB,1.9618E-01_JPRB,1.6349E-01_JPRB,1.3077E-01_JPRB,1.1965E-01_JPRB,&
+&1.2644E-01_JPRB,1.1450E-01_JPRB,3.2865E-01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&3.4958E-01_JPRB,3.0586E-01_JPRB,2.6220E-01_JPRB,2.1849E-01_JPRB,1.7478E-01_JPRB,1.5951E-01_JPRB,&
+&1.6845E-01_JPRB,1.5252E-01_JPRB,3.1204E-01_JPRB/)
+KAO( :, 4,10,16) = (/&
+&4.4787E-01_JPRB,3.9191E-01_JPRB,3.3594E-01_JPRB,2.7989E-01_JPRB,2.2397E-01_JPRB,2.0376E-01_JPRB,&
+&2.1506E-01_JPRB,1.9478E-01_JPRB,3.7906E-01_JPRB/)
+KAO( :, 5,10,16) = (/&
+&5.5414E-01_JPRB,4.8494E-01_JPRB,4.1561E-01_JPRB,3.4636E-01_JPRB,2.7711E-01_JPRB,2.8690E-01_JPRB,&
+&3.0857E-01_JPRB,2.8362E-01_JPRB,5.5736E-01_JPRB/)
+KAO( :, 1,11,16) = (/&
+&2.2387E-01_JPRB,1.9590E-01_JPRB,1.6793E-01_JPRB,1.3995E-01_JPRB,1.1196E-01_JPRB,1.0248E-01_JPRB,&
+&1.0866E-01_JPRB,9.8759E-02_JPRB,9.7232E-01_JPRB/)
+KAO( :, 2,11,16) = (/&
+&3.1487E-01_JPRB,2.7553E-01_JPRB,2.3616E-01_JPRB,1.9682E-01_JPRB,1.5747E-01_JPRB,1.4389E-01_JPRB,&
+&1.5251E-01_JPRB,1.3868E-01_JPRB,9.2352E-01_JPRB/)
+KAO( :, 3,11,16) = (/&
+&4.2034E-01_JPRB,3.6781E-01_JPRB,3.1526E-01_JPRB,2.6274E-01_JPRB,2.1020E-01_JPRB,1.9156E-01_JPRB,&
+&2.0295E-01_JPRB,1.8465E-01_JPRB,8.7619E-01_JPRB/)
+KAO( :, 4,11,16) = (/&
+&5.3783E-01_JPRB,4.7062E-01_JPRB,4.0338E-01_JPRB,3.3619E-01_JPRB,2.6900E-01_JPRB,2.4463E-01_JPRB,&
+&2.5910E-01_JPRB,2.3556E-01_JPRB,8.3528E-01_JPRB/)
+KAO( :, 5,11,16) = (/&
+&6.6465E-01_JPRB,5.8160E-01_JPRB,4.9850E-01_JPRB,4.1545E-01_JPRB,3.3262E-01_JPRB,3.4381E-01_JPRB,&
+&3.7087E-01_JPRB,3.4266E-01_JPRB,8.3608E-01_JPRB/)
+KAO( :, 1,12,16) = (/&
+&2.6898E-01_JPRB,2.3539E-01_JPRB,2.0175E-01_JPRB,1.6812E-01_JPRB,1.3451E-01_JPRB,1.2295E-01_JPRB,&
+&1.3082E-01_JPRB,1.1955E-01_JPRB,1.7254E+00_JPRB/)
+KAO( :, 2,12,16) = (/&
+&3.7759E-01_JPRB,3.3035E-01_JPRB,2.8322E-01_JPRB,2.3602E-01_JPRB,1.8879E-01_JPRB,1.7231E-01_JPRB,&
+&1.8335E-01_JPRB,1.6769E-01_JPRB,1.6364E+00_JPRB/)
+KAO( :, 3,12,16) = (/&
+&5.0302E-01_JPRB,4.4026E-01_JPRB,3.7736E-01_JPRB,3.1440E-01_JPRB,2.5155E-01_JPRB,2.2898E-01_JPRB,&
+&2.4369E-01_JPRB,2.2307E-01_JPRB,1.5678E+00_JPRB/)
+KAO( :, 4,12,16) = (/&
+&6.4249E-01_JPRB,5.6214E-01_JPRB,4.8190E-01_JPRB,4.0154E-01_JPRB,3.2127E-01_JPRB,2.9402E-01_JPRB,&
+&3.1247E-01_JPRB,2.8485E-01_JPRB,1.5255E+00_JPRB/)
+KAO( :, 5,12,16) = (/&
+&7.9248E-01_JPRB,6.9340E-01_JPRB,5.9438E-01_JPRB,4.9520E-01_JPRB,3.9963E-01_JPRB,4.1148E-01_JPRB,&
+&4.4433E-01_JPRB,4.1322E-01_JPRB,1.5412E+00_JPRB/)
+KAO( :, 1,13,16) = (/&
+&3.2111E-01_JPRB,2.8086E-01_JPRB,2.4080E-01_JPRB,2.0063E-01_JPRB,1.6053E-01_JPRB,1.4645E-01_JPRB,&
+&1.5663E-01_JPRB,1.4415E-01_JPRB,2.4681E+00_JPRB/)
+KAO( :, 2,13,16) = (/&
+&4.4952E-01_JPRB,3.9337E-01_JPRB,3.3709E-01_JPRB,2.8095E-01_JPRB,2.2474E-01_JPRB,2.0495E-01_JPRB,&
+&2.1909E-01_JPRB,2.0198E-01_JPRB,2.3822E+00_JPRB/)
+KAO( :, 3,13,16) = (/&
+&5.9739E-01_JPRB,5.2281E-01_JPRB,4.4809E-01_JPRB,3.7333E-01_JPRB,2.9881E-01_JPRB,2.7217E-01_JPRB,&
+&2.9063E-01_JPRB,2.6832E-01_JPRB,2.3232E+00_JPRB/)
+KAO( :, 4,13,16) = (/&
+&7.6112E-01_JPRB,6.6586E-01_JPRB,5.7079E-01_JPRB,4.7570E-01_JPRB,3.8102E-01_JPRB,3.5288E-01_JPRB,&
+&3.7640E-01_JPRB,3.4431E-01_JPRB,2.2950E+00_JPRB/)
+KAO( :, 5,13,16) = (/&
+&9.3631E-01_JPRB,8.1920E-01_JPRB,7.0224E-01_JPRB,5.8508E-01_JPRB,4.7927E-01_JPRB,4.9193E-01_JPRB,&
+&5.3062E-01_JPRB,4.9592E-01_JPRB,2.3135E+00_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B1.F90	(revision 2160)
@@ -0,0 +1,1924 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_B1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KB contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of co2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 1) = (/&
+&3.4470E-06_JPRB,2.6372E-04_JPRB,5.1063E-04_JPRB,7.5257E-04_JPRB,1.0534E-03_JPRB/)
+KBO( :, 2,13, 1) = (/&
+&4.0516E-06_JPRB,3.2949E-04_JPRB,6.3499E-04_JPRB,9.3141E-04_JPRB,1.3018E-03_JPRB/)
+KBO( :, 3,13, 1) = (/&
+&5.1108E-06_JPRB,3.9538E-04_JPRB,7.5778E-04_JPRB,1.1060E-03_JPRB,1.5459E-03_JPRB/)
+KBO( :, 4,13, 1) = (/&
+&6.7999E-06_JPRB,4.6001E-04_JPRB,8.7452E-04_JPRB,1.2718E-03_JPRB,1.7787E-03_JPRB/)
+KBO( :, 5,13, 1) = (/&
+&9.3241E-06_JPRB,5.2270E-04_JPRB,9.8350E-04_JPRB,1.4243E-03_JPRB,1.9970E-03_JPRB/)
+KBO( :, 1,14, 1) = (/&
+&2.8624E-06_JPRB,2.2203E-04_JPRB,4.2960E-04_JPRB,6.3242E-04_JPRB,8.7262E-04_JPRB/)
+KBO( :, 2,14, 1) = (/&
+&3.3872E-06_JPRB,2.7597E-04_JPRB,5.3199E-04_JPRB,7.7931E-04_JPRB,1.0726E-03_JPRB/)
+KBO( :, 3,14, 1) = (/&
+&4.3001E-06_JPRB,3.2993E-04_JPRB,6.3195E-04_JPRB,9.2225E-04_JPRB,1.2666E-03_JPRB/)
+KBO( :, 4,14, 1) = (/&
+&5.7406E-06_JPRB,3.8294E-04_JPRB,7.2707E-04_JPRB,1.0576E-03_JPRB,1.4495E-03_JPRB/)
+KBO( :, 5,14, 1) = (/&
+&7.8860E-06_JPRB,4.3459E-04_JPRB,8.1591E-04_JPRB,1.1810E-03_JPRB,1.6187E-03_JPRB/)
+KBO( :, 1,15, 1) = (/&
+&2.3825E-06_JPRB,1.8697E-04_JPRB,3.6183E-04_JPRB,5.3195E-04_JPRB,7.2587E-04_JPRB/)
+KBO( :, 2,15, 1) = (/&
+&2.8419E-06_JPRB,2.3121E-04_JPRB,4.4556E-04_JPRB,6.5240E-04_JPRB,8.8767E-04_JPRB/)
+KBO( :, 3,15, 1) = (/&
+&3.6307E-06_JPRB,2.7550E-04_JPRB,5.2710E-04_JPRB,7.6940E-04_JPRB,1.0435E-03_JPRB/)
+KBO( :, 4,15, 1) = (/&
+&4.8654E-06_JPRB,3.1911E-04_JPRB,6.0466E-04_JPRB,8.7922E-04_JPRB,1.1890E-03_JPRB/)
+KBO( :, 5,15, 1) = (/&
+&6.6952E-06_JPRB,3.6172E-04_JPRB,6.7720E-04_JPRB,9.7928E-04_JPRB,1.3218E-03_JPRB/)
+KBO( :, 1,16, 1) = (/&
+&1.9858E-06_JPRB,1.5742E-04_JPRB,3.0462E-04_JPRB,4.4743E-04_JPRB,6.0679E-04_JPRB/)
+KBO( :, 2,16, 1) = (/&
+&2.3893E-06_JPRB,1.9376E-04_JPRB,3.7303E-04_JPRB,5.4624E-04_JPRB,7.3818E-04_JPRB/)
+KBO( :, 3,16, 1) = (/&
+&3.0717E-06_JPRB,2.3016E-04_JPRB,4.3960E-04_JPRB,6.4157E-04_JPRB,8.6419E-04_JPRB/)
+KBO( :, 4,16, 1) = (/&
+&4.1308E-06_JPRB,2.6599E-04_JPRB,5.0281E-04_JPRB,7.3058E-04_JPRB,9.8120E-04_JPRB/)
+KBO( :, 5,16, 1) = (/&
+&5.6927E-06_JPRB,3.0109E-04_JPRB,5.6202E-04_JPRB,8.1155E-04_JPRB,1.0872E-03_JPRB/)
+KBO( :, 1,17, 1) = (/&
+&1.6559E-06_JPRB,1.3226E-04_JPRB,2.5580E-04_JPRB,3.7568E-04_JPRB,5.0686E-04_JPRB/)
+KBO( :, 2,17, 1) = (/&
+&2.0083E-06_JPRB,1.6212E-04_JPRB,3.1178E-04_JPRB,4.5651E-04_JPRB,6.1368E-04_JPRB/)
+KBO( :, 3,17, 1) = (/&
+&2.5968E-06_JPRB,1.9205E-04_JPRB,3.6613E-04_JPRB,5.3405E-04_JPRB,7.1563E-04_JPRB/)
+KBO( :, 4,17, 1) = (/&
+&3.5047E-06_JPRB,2.2153E-04_JPRB,4.1782E-04_JPRB,6.0641E-04_JPRB,8.1002E-04_JPRB/)
+KBO( :, 5,17, 1) = (/&
+&4.8351E-06_JPRB,2.5056E-04_JPRB,4.6632E-04_JPRB,6.7217E-04_JPRB,8.9508E-04_JPRB/)
+KBO( :, 1,18, 1) = (/&
+&1.3818E-06_JPRB,1.1100E-04_JPRB,2.1454E-04_JPRB,3.1506E-04_JPRB,4.2338E-04_JPRB/)
+KBO( :, 2,18, 1) = (/&
+&1.6887E-06_JPRB,1.3556E-04_JPRB,2.6035E-04_JPRB,3.8099E-04_JPRB,5.1025E-04_JPRB/)
+KBO( :, 3,18, 1) = (/&
+&2.1957E-06_JPRB,1.6016E-04_JPRB,3.0479E-04_JPRB,4.4417E-04_JPRB,5.9284E-04_JPRB/)
+KBO( :, 4,18, 1) = (/&
+&2.9733E-06_JPRB,1.8444E-04_JPRB,3.4704E-04_JPRB,5.0300E-04_JPRB,6.6896E-04_JPRB/)
+KBO( :, 5,18, 1) = (/&
+&4.1061E-06_JPRB,2.0846E-04_JPRB,3.8680E-04_JPRB,5.5649E-04_JPRB,7.3738E-04_JPRB/)
+KBO( :, 1,19, 1) = (/&
+&1.1530E-06_JPRB,9.3038E-05_JPRB,1.7970E-04_JPRB,2.6380E-04_JPRB,3.5309E-04_JPRB/)
+KBO( :, 2,19, 1) = (/&
+&1.4193E-06_JPRB,1.1326E-04_JPRB,2.1722E-04_JPRB,3.1768E-04_JPRB,4.2371E-04_JPRB/)
+KBO( :, 3,19, 1) = (/&
+&1.8551E-06_JPRB,1.3348E-04_JPRB,2.5355E-04_JPRB,3.6914E-04_JPRB,4.9054E-04_JPRB/)
+KBO( :, 4,19, 1) = (/&
+&2.5194E-06_JPRB,1.5356E-04_JPRB,2.8811E-04_JPRB,4.1698E-04_JPRB,5.5182E-04_JPRB/)
+KBO( :, 5,19, 1) = (/&
+&3.4823E-06_JPRB,1.7336E-04_JPRB,3.2068E-04_JPRB,4.6050E-04_JPRB,6.0663E-04_JPRB/)
+KBO( :, 1,20, 1) = (/&
+&9.6514E-07_JPRB,7.8220E-05_JPRB,1.5093E-04_JPRB,2.2146E-04_JPRB,2.9562E-04_JPRB/)
+KBO( :, 2,20, 1) = (/&
+&1.1977E-06_JPRB,9.4837E-05_JPRB,1.8160E-04_JPRB,2.6538E-04_JPRB,3.5295E-04_JPRB/)
+KBO( :, 3,20, 1) = (/&
+&1.5743E-06_JPRB,1.1151E-04_JPRB,2.1133E-04_JPRB,3.0732E-04_JPRB,4.0705E-04_JPRB/)
+KBO( :, 4,20, 1) = (/&
+&2.1452E-06_JPRB,1.2810E-04_JPRB,2.3959E-04_JPRB,3.4625E-04_JPRB,4.5647E-04_JPRB/)
+KBO( :, 5,20, 1) = (/&
+&2.9673E-06_JPRB,1.4434E-04_JPRB,2.6631E-04_JPRB,3.8162E-04_JPRB,5.0047E-04_JPRB/)
+KBO( :, 1,21, 1) = (/&
+&8.0884E-07_JPRB,6.5739E-05_JPRB,1.2670E-04_JPRB,1.8581E-04_JPRB,2.4748E-04_JPRB/)
+KBO( :, 2,21, 1) = (/&
+&1.0118E-06_JPRB,7.9430E-05_JPRB,1.5182E-04_JPRB,2.2166E-04_JPRB,2.9412E-04_JPRB/)
+KBO( :, 3,21, 1) = (/&
+&1.3370E-06_JPRB,9.3177E-05_JPRB,1.7611E-04_JPRB,2.5580E-04_JPRB,3.3790E-04_JPRB/)
+KBO( :, 4,21, 1) = (/&
+&1.8276E-06_JPRB,1.0684E-04_JPRB,1.9928E-04_JPRB,2.8745E-04_JPRB,3.7772E-04_JPRB/)
+KBO( :, 5,21, 1) = (/&
+&2.5289E-06_JPRB,1.2011E-04_JPRB,2.2122E-04_JPRB,3.1628E-04_JPRB,4.1308E-04_JPRB/)
+KBO( :, 1,22, 1) = (/&
+&6.8770E-07_JPRB,5.5977E-05_JPRB,1.0768E-04_JPRB,1.5779E-04_JPRB,2.0975E-04_JPRB/)
+KBO( :, 2,22, 1) = (/&
+&8.7051E-07_JPRB,6.7267E-05_JPRB,1.2822E-04_JPRB,1.8696E-04_JPRB,2.4752E-04_JPRB/)
+KBO( :, 3,22, 1) = (/&
+&1.1593E-06_JPRB,7.8612E-05_JPRB,1.4804E-04_JPRB,2.1465E-04_JPRB,2.8275E-04_JPRB/)
+KBO( :, 4,22, 1) = (/&
+&1.5914E-06_JPRB,8.9752E-05_JPRB,1.6700E-04_JPRB,2.4024E-04_JPRB,3.1462E-04_JPRB/)
+KBO( :, 5,22, 1) = (/&
+&2.2022E-06_JPRB,1.0055E-04_JPRB,1.8482E-04_JPRB,2.6358E-04_JPRB,3.4283E-04_JPRB/)
+KBO( :, 1,23, 1) = (/&
+&5.8681E-07_JPRB,4.7674E-05_JPRB,9.1507E-05_JPRB,1.3393E-04_JPRB,1.7770E-04_JPRB/)
+KBO( :, 2,23, 1) = (/&
+&7.5149E-07_JPRB,5.7003E-05_JPRB,1.0829E-04_JPRB,1.5767E-04_JPRB,2.0825E-04_JPRB/)
+KBO( :, 3,23, 1) = (/&
+&1.0080E-06_JPRB,6.6289E-05_JPRB,1.2450E-04_JPRB,1.8010E-04_JPRB,2.3658E-04_JPRB/)
+KBO( :, 4,23, 1) = (/&
+&1.3887E-06_JPRB,7.5365E-05_JPRB,1.3995E-04_JPRB,2.0079E-04_JPRB,2.6204E-04_JPRB/)
+KBO( :, 5,23, 1) = (/&
+&1.9208E-06_JPRB,8.4126E-05_JPRB,1.5435E-04_JPRB,2.1972E-04_JPRB,2.8449E-04_JPRB/)
+KBO( :, 1,24, 1) = (/&
+&5.0292E-07_JPRB,4.0632E-05_JPRB,7.7788E-05_JPRB,1.1370E-04_JPRB,1.5053E-04_JPRB/)
+KBO( :, 2,24, 1) = (/&
+&6.5118E-07_JPRB,4.8318E-05_JPRB,9.1504E-05_JPRB,1.3299E-04_JPRB,1.7517E-04_JPRB/)
+KBO( :, 3,24, 1) = (/&
+&8.7976E-07_JPRB,5.5886E-05_JPRB,1.0475E-04_JPRB,1.5115E-04_JPRB,1.9787E-04_JPRB/)
+KBO( :, 4,24, 1) = (/&
+&1.2151E-06_JPRB,6.3269E-05_JPRB,1.1727E-04_JPRB,1.6792E-04_JPRB,2.1820E-04_JPRB/)
+KBO( :, 5,24, 1) = (/&
+&1.6790E-06_JPRB,7.0361E-05_JPRB,1.2886E-04_JPRB,1.8317E-04_JPRB,2.3599E-04_JPRB/)
+KBO( :, 1,25, 1) = (/&
+&4.3320E-07_JPRB,3.4672E-05_JPRB,6.6172E-05_JPRB,9.6557E-05_JPRB,1.2755E-04_JPRB/)
+KBO( :, 2,25, 1) = (/&
+&5.6706E-07_JPRB,4.0954E-05_JPRB,7.7399E-05_JPRB,1.1224E-04_JPRB,1.4744E-04_JPRB/)
+KBO( :, 3,25, 1) = (/&
+&7.7121E-07_JPRB,4.7130E-05_JPRB,8.8173E-05_JPRB,1.2695E-04_JPRB,1.6559E-04_JPRB/)
+KBO( :, 4,25, 1) = (/&
+&1.0669E-06_JPRB,5.3117E-05_JPRB,9.8264E-05_JPRB,1.4052E-04_JPRB,1.8177E-04_JPRB/)
+KBO( :, 5,25, 1) = (/&
+&1.4722E-06_JPRB,5.8854E-05_JPRB,1.0754E-04_JPRB,1.5271E-04_JPRB,1.9584E-04_JPRB/)
+KBO( :, 1,26, 1) = (/&
+&3.7607E-07_JPRB,2.9637E-05_JPRB,5.6418E-05_JPRB,8.2160E-05_JPRB,1.0828E-04_JPRB/)
+KBO( :, 2,26, 1) = (/&
+&4.9757E-07_JPRB,3.4761E-05_JPRB,6.5581E-05_JPRB,9.4869E-05_JPRB,1.2424E-04_JPRB/)
+KBO( :, 3,26, 1) = (/&
+&6.8088E-07_JPRB,3.9782E-05_JPRB,7.4280E-05_JPRB,1.0678E-04_JPRB,1.3874E-04_JPRB/)
+KBO( :, 4,26, 1) = (/&
+&9.4259E-07_JPRB,4.4634E-05_JPRB,8.2385E-05_JPRB,1.1768E-04_JPRB,1.5157E-04_JPRB/)
+KBO( :, 5,26, 1) = (/&
+&1.2981E-06_JPRB,4.9274E-05_JPRB,8.9787E-05_JPRB,1.2735E-04_JPRB,1.6265E-04_JPRB/)
+KBO( :, 1,27, 1) = (/&
+&3.2783E-07_JPRB,2.5292E-05_JPRB,4.8063E-05_JPRB,6.9840E-05_JPRB,9.1852E-05_JPRB/)
+KBO( :, 2,27, 1) = (/&
+&4.3792E-07_JPRB,2.9476E-05_JPRB,5.5497E-05_JPRB,8.0152E-05_JPRB,1.0466E-04_JPRB/)
+KBO( :, 3,27, 1) = (/&
+&6.0227E-07_JPRB,3.3553E-05_JPRB,6.2514E-05_JPRB,8.9762E-05_JPRB,1.1621E-04_JPRB/)
+KBO( :, 4,27, 1) = (/&
+&8.3354E-07_JPRB,3.7479E-05_JPRB,6.9000E-05_JPRB,9.8462E-05_JPRB,1.2640E-04_JPRB/)
+KBO( :, 5,27, 1) = (/&
+&1.1448E-06_JPRB,4.1239E-05_JPRB,7.4917E-05_JPRB,1.0612E-04_JPRB,1.3514E-04_JPRB/)
+KBO( :, 1,28, 1) = (/&
+&2.8669E-07_JPRB,2.1556E-05_JPRB,4.0892E-05_JPRB,5.9304E-05_JPRB,7.7833E-05_JPRB/)
+KBO( :, 2,28, 1) = (/&
+&3.8635E-07_JPRB,2.4960E-05_JPRB,4.6902E-05_JPRB,6.7670E-05_JPRB,8.8103E-05_JPRB/)
+KBO( :, 3,28, 1) = (/&
+&5.3330E-07_JPRB,2.8270E-05_JPRB,5.2542E-05_JPRB,7.5364E-05_JPRB,9.7308E-05_JPRB/)
+KBO( :, 4,28, 1) = (/&
+&7.3734E-07_JPRB,3.1446E-05_JPRB,5.7727E-05_JPRB,8.2286E-05_JPRB,1.0537E-04_JPRB/)
+KBO( :, 5,28, 1) = (/&
+&1.0096E-06_JPRB,3.4495E-05_JPRB,6.2455E-05_JPRB,8.8340E-05_JPRB,1.1227E-04_JPRB/)
+KBO( :, 1,29, 1) = (/&
+&2.5201E-07_JPRB,1.8361E-05_JPRB,3.4763E-05_JPRB,5.0351E-05_JPRB,6.5987E-05_JPRB/)
+KBO( :, 2,29, 1) = (/&
+&3.4236E-07_JPRB,2.1129E-05_JPRB,3.9617E-05_JPRB,5.7095E-05_JPRB,7.4216E-05_JPRB/)
+KBO( :, 3,29, 1) = (/&
+&4.7361E-07_JPRB,2.3813E-05_JPRB,4.4138E-05_JPRB,6.3255E-05_JPRB,8.1563E-05_JPRB/)
+KBO( :, 4,29, 1) = (/&
+&6.5380E-07_JPRB,2.6387E-05_JPRB,4.8286E-05_JPRB,6.8730E-05_JPRB,8.7959E-05_JPRB/)
+KBO( :, 5,29, 1) = (/&
+&8.9193E-07_JPRB,2.8857E-05_JPRB,5.2062E-05_JPRB,7.3497E-05_JPRB,9.3411E-05_JPRB/)
+KBO( :, 1,30, 1) = (/&
+&2.2221E-07_JPRB,1.5617E-05_JPRB,2.9506E-05_JPRB,4.2701E-05_JPRB,5.5901E-05_JPRB/)
+KBO( :, 2,30, 1) = (/&
+&3.0397E-07_JPRB,1.7865E-05_JPRB,3.3414E-05_JPRB,4.8107E-05_JPRB,6.2491E-05_JPRB/)
+KBO( :, 3,30, 1) = (/&
+&4.2084E-07_JPRB,2.0038E-05_JPRB,3.7035E-05_JPRB,5.3015E-05_JPRB,6.8354E-05_JPRB/)
+KBO( :, 4,30, 1) = (/&
+&5.7974E-07_JPRB,2.2125E-05_JPRB,4.0351E-05_JPRB,5.7341E-05_JPRB,7.3435E-05_JPRB/)
+KBO( :, 5,30, 1) = (/&
+&7.8765E-07_JPRB,2.4127E-05_JPRB,4.3366E-05_JPRB,6.1092E-05_JPRB,7.7733E-05_JPRB/)
+KBO( :, 1,31, 1) = (/&
+&1.9681E-07_JPRB,1.3270E-05_JPRB,2.5018E-05_JPRB,3.6169E-05_JPRB,4.7371E-05_JPRB/)
+KBO( :, 2,31, 1) = (/&
+&2.7071E-07_JPRB,1.5097E-05_JPRB,2.8159E-05_JPRB,4.0500E-05_JPRB,5.2659E-05_JPRB/)
+KBO( :, 3,31, 1) = (/&
+&3.7475E-07_JPRB,1.6858E-05_JPRB,3.1057E-05_JPRB,4.4392E-05_JPRB,5.7349E-05_JPRB/)
+KBO( :, 4,31, 1) = (/&
+&5.1477E-07_JPRB,1.8547E-05_JPRB,3.3705E-05_JPRB,4.7805E-05_JPRB,6.1389E-05_JPRB/)
+KBO( :, 5,31, 1) = (/&
+&6.9625E-07_JPRB,2.0170E-05_JPRB,3.6118E-05_JPRB,5.0758E-05_JPRB,6.4797E-05_JPRB/)
+KBO( :, 1,32, 1) = (/&
+&1.7485E-07_JPRB,1.1265E-05_JPRB,2.1186E-05_JPRB,3.0600E-05_JPRB,4.0119E-05_JPRB/)
+KBO( :, 2,32, 1) = (/&
+&2.4148E-07_JPRB,1.2747E-05_JPRB,2.3704E-05_JPRB,3.4052E-05_JPRB,4.4364E-05_JPRB/)
+KBO( :, 3,32, 1) = (/&
+&3.3391E-07_JPRB,1.4173E-05_JPRB,2.6023E-05_JPRB,3.7134E-05_JPRB,4.8107E-05_JPRB/)
+KBO( :, 4,32, 1) = (/&
+&4.5712E-07_JPRB,1.5544E-05_JPRB,2.8139E-05_JPRB,3.9822E-05_JPRB,5.1320E-05_JPRB/)
+KBO( :, 5,32, 1) = (/&
+&6.1526E-07_JPRB,1.6857E-05_JPRB,3.0064E-05_JPRB,4.2147E-05_JPRB,5.4009E-05_JPRB/)
+KBO( :, 1,33, 1) = (/&
+&1.5570E-07_JPRB,9.5475E-06_JPRB,1.7911E-05_JPRB,2.5842E-05_JPRB,3.3957E-05_JPRB/)
+KBO( :, 2,33, 1) = (/&
+&2.1549E-07_JPRB,1.0751E-05_JPRB,1.9931E-05_JPRB,2.8592E-05_JPRB,3.7370E-05_JPRB/)
+KBO( :, 3,33, 1) = (/&
+&2.9746E-07_JPRB,1.1906E-05_JPRB,2.1783E-05_JPRB,3.1027E-05_JPRB,4.0353E-05_JPRB/)
+KBO( :, 4,33, 1) = (/&
+&4.0565E-07_JPRB,1.3019E-05_JPRB,2.3473E-05_JPRB,3.3146E-05_JPRB,4.2910E-05_JPRB/)
+KBO( :, 5,33, 1) = (/&
+&5.4308E-07_JPRB,1.4082E-05_JPRB,2.5010E-05_JPRB,3.4973E-05_JPRB,4.5040E-05_JPRB/)
+KBO( :, 1,34, 1) = (/&
+&1.3721E-07_JPRB,8.0465E-06_JPRB,1.5060E-05_JPRB,2.1707E-05_JPRB,2.8588E-05_JPRB/)
+KBO( :, 2,34, 1) = (/&
+&1.9002E-07_JPRB,9.0232E-06_JPRB,1.6681E-05_JPRB,2.3900E-05_JPRB,3.1327E-05_JPRB/)
+KBO( :, 3,34, 1) = (/&
+&2.6180E-07_JPRB,9.9630E-06_JPRB,1.8168E-05_JPRB,2.5833E-05_JPRB,3.3720E-05_JPRB/)
+KBO( :, 4,34, 1) = (/&
+&3.5566E-07_JPRB,1.0865E-05_JPRB,1.9523E-05_JPRB,2.7511E-05_JPRB,3.5767E-05_JPRB/)
+KBO( :, 5,34, 1) = (/&
+&4.7391E-07_JPRB,1.1726E-05_JPRB,2.0751E-05_JPRB,2.8954E-05_JPRB,3.7468E-05_JPRB/)
+KBO( :, 1,35, 1) = (/&
+&1.1723E-07_JPRB,6.6964E-06_JPRB,1.2516E-05_JPRB,1.8031E-05_JPRB,2.3821E-05_JPRB/)
+KBO( :, 2,35, 1) = (/&
+&1.6235E-07_JPRB,7.4927E-06_JPRB,1.3829E-05_JPRB,1.9800E-05_JPRB,2.6051E-05_JPRB/)
+KBO( :, 3,35, 1) = (/&
+&2.2335E-07_JPRB,8.2568E-06_JPRB,1.5029E-05_JPRB,2.1350E-05_JPRB,2.8000E-05_JPRB/)
+KBO( :, 4,35, 1) = (/&
+&3.0275E-07_JPRB,8.9930E-06_JPRB,1.6127E-05_JPRB,2.2699E-05_JPRB,2.9671E-05_JPRB/)
+KBO( :, 5,35, 1) = (/&
+&4.0236E-07_JPRB,9.6965E-06_JPRB,1.7121E-05_JPRB,2.3858E-05_JPRB,3.1064E-05_JPRB/)
+KBO( :, 1,36, 1) = (/&
+&9.6662E-08_JPRB,5.4982E-06_JPRB,1.0275E-05_JPRB,1.4804E-05_JPRB,1.9630E-05_JPRB/)
+KBO( :, 2,36, 1) = (/&
+&1.3386E-07_JPRB,6.1501E-06_JPRB,1.1348E-05_JPRB,1.6247E-05_JPRB,2.1474E-05_JPRB/)
+KBO( :, 3,36, 1) = (/&
+&1.8410E-07_JPRB,6.7756E-06_JPRB,1.2329E-05_JPRB,1.7513E-05_JPRB,2.3090E-05_JPRB/)
+KBO( :, 4,36, 1) = (/&
+&2.4947E-07_JPRB,7.3775E-06_JPRB,1.3225E-05_JPRB,1.8612E-05_JPRB,2.4479E-05_JPRB/)
+KBO( :, 5,36, 1) = (/&
+&3.3138E-07_JPRB,7.9539E-06_JPRB,1.4038E-05_JPRB,1.9559E-05_JPRB,2.5645E-05_JPRB/)
+KBO( :, 1,37, 1) = (/&
+&7.5833E-08_JPRB,4.4319E-06_JPRB,8.2961E-06_JPRB,1.1965E-05_JPRB,1.5922E-05_JPRB/)
+KBO( :, 2,37, 1) = (/&
+&1.0502E-07_JPRB,4.9674E-06_JPRB,9.1830E-06_JPRB,1.3164E-05_JPRB,1.7469E-05_JPRB/)
+KBO( :, 3,37, 1) = (/&
+&1.4465E-07_JPRB,5.4834E-06_JPRB,9.9967E-06_JPRB,1.4218E-05_JPRB,1.8834E-05_JPRB/)
+KBO( :, 4,37, 1) = (/&
+&1.9645E-07_JPRB,5.9788E-06_JPRB,1.0738E-05_JPRB,1.5133E-05_JPRB,2.0012E-05_JPRB/)
+KBO( :, 5,37, 1) = (/&
+&2.6166E-07_JPRB,6.4529E-06_JPRB,1.1414E-05_JPRB,1.5924E-05_JPRB,2.1010E-05_JPRB/)
+KBO( :, 1,38, 1) = (/&
+&5.9339E-08_JPRB,3.5670E-06_JPRB,6.6893E-06_JPRB,9.6566E-06_JPRB,1.2902E-05_JPRB/)
+KBO( :, 2,38, 1) = (/&
+&8.2155E-08_JPRB,4.0080E-06_JPRB,7.4233E-06_JPRB,1.0653E-05_JPRB,1.4205E-05_JPRB/)
+KBO( :, 3,38, 1) = (/&
+&1.1331E-07_JPRB,4.4325E-06_JPRB,8.0980E-06_JPRB,1.1532E-05_JPRB,1.5359E-05_JPRB/)
+KBO( :, 4,38, 1) = (/&
+&1.5427E-07_JPRB,4.8410E-06_JPRB,8.7132E-06_JPRB,1.2297E-05_JPRB,1.6364E-05_JPRB/)
+KBO( :, 5,38, 1) = (/&
+&2.0603E-07_JPRB,5.2310E-06_JPRB,9.2738E-06_JPRB,1.2957E-05_JPRB,1.7220E-05_JPRB/)
+KBO( :, 1,39, 1) = (/&
+&4.6457E-08_JPRB,2.8706E-06_JPRB,5.3922E-06_JPRB,7.7916E-06_JPRB,1.0463E-05_JPRB/)
+KBO( :, 2,39, 1) = (/&
+&6.4280E-08_JPRB,3.2335E-06_JPRB,5.9995E-06_JPRB,8.6193E-06_JPRB,1.1561E-05_JPRB/)
+KBO( :, 3,39, 1) = (/&
+&8.8753E-08_JPRB,3.5826E-06_JPRB,6.5580E-06_JPRB,9.3509E-06_JPRB,1.2539E-05_JPRB/)
+KBO( :, 4,39, 1) = (/&
+&1.2109E-07_JPRB,3.9186E-06_JPRB,7.0688E-06_JPRB,9.9899E-06_JPRB,1.3398E-05_JPRB/)
+KBO( :, 5,39, 1) = (/&
+&1.6221E-07_JPRB,4.2407E-06_JPRB,7.5350E-06_JPRB,1.0543E-05_JPRB,1.4137E-05_JPRB/)
+KBO( :, 1,40, 1) = (/&
+&3.5213E-08_JPRB,2.2779E-06_JPRB,4.2906E-06_JPRB,6.2087E-06_JPRB,8.3621E-06_JPRB/)
+KBO( :, 2,40, 1) = (/&
+&4.8621E-08_JPRB,2.5769E-06_JPRB,4.7967E-06_JPRB,6.9026E-06_JPRB,9.2884E-06_JPRB/)
+KBO( :, 3,40, 1) = (/&
+&6.7228E-08_JPRB,2.8656E-06_JPRB,5.2643E-06_JPRB,7.5217E-06_JPRB,1.0122E-05_JPRB/)
+KBO( :, 4,40, 1) = (/&
+&9.2051E-08_JPRB,3.1437E-06_JPRB,5.6919E-06_JPRB,8.0632E-06_JPRB,1.0858E-05_JPRB/)
+KBO( :, 5,40, 1) = (/&
+&1.2392E-07_JPRB,3.4099E-06_JPRB,6.0819E-06_JPRB,8.5318E-06_JPRB,1.1495E-05_JPRB/)
+KBO( :, 1,41, 1) = (/&
+&2.6618E-08_JPRB,1.8019E-06_JPRB,3.4036E-06_JPRB,4.9321E-06_JPRB,6.6614E-06_JPRB/)
+KBO( :, 2,41, 1) = (/&
+&3.6608E-08_JPRB,2.0487E-06_JPRB,3.8262E-06_JPRB,5.5154E-06_JPRB,7.4437E-06_JPRB/)
+KBO( :, 3,41, 1) = (/&
+&5.0672E-08_JPRB,2.2872E-06_JPRB,4.2170E-06_JPRB,6.0380E-06_JPRB,8.1516E-06_JPRB/)
+KBO( :, 4,41, 1) = (/&
+&6.9610E-08_JPRB,2.5171E-06_JPRB,4.5756E-06_JPRB,6.4977E-06_JPRB,8.7822E-06_JPRB/)
+KBO( :, 5,41, 1) = (/&
+&9.4152E-08_JPRB,2.7376E-06_JPRB,4.9025E-06_JPRB,6.8959E-06_JPRB,9.3313E-06_JPRB/)
+KBO( :, 1,42, 1) = (/&
+&2.0157E-08_JPRB,1.4234E-06_JPRB,2.6959E-06_JPRB,3.9114E-06_JPRB,5.2999E-06_JPRB/)
+KBO( :, 2,42, 1) = (/&
+&2.7569E-08_JPRB,1.6266E-06_JPRB,3.0478E-06_JPRB,4.4003E-06_JPRB,5.9585E-06_JPRB/)
+KBO( :, 3,42, 1) = (/&
+&3.8168E-08_JPRB,1.8237E-06_JPRB,3.3743E-06_JPRB,4.8412E-06_JPRB,6.5607E-06_JPRB/)
+KBO( :, 4,42, 1) = (/&
+&5.2578E-08_JPRB,2.0137E-06_JPRB,3.6751E-06_JPRB,5.2309E-06_JPRB,7.1001E-06_JPRB/)
+KBO( :, 5,42, 1) = (/&
+&7.1438E-08_JPRB,2.1965E-06_JPRB,3.9491E-06_JPRB,5.5693E-06_JPRB,7.5736E-06_JPRB/)
+KBO( :, 1,43, 1) = (/&
+&1.5048E-08_JPRB,1.1128E-06_JPRB,2.1143E-06_JPRB,3.0719E-06_JPRB,4.1759E-06_JPRB/)
+KBO( :, 2,43, 1) = (/&
+&2.0401E-08_JPRB,1.2805E-06_JPRB,2.4084E-06_JPRB,3.4833E-06_JPRB,4.7326E-06_JPRB/)
+KBO( :, 3,43, 1) = (/&
+&2.8205E-08_JPRB,1.4438E-06_JPRB,2.6828E-06_JPRB,3.8579E-06_JPRB,5.2466E-06_JPRB/)
+KBO( :, 4,43, 1) = (/&
+&3.8951E-08_JPRB,1.6012E-06_JPRB,2.9353E-06_JPRB,4.1897E-06_JPRB,5.7090E-06_JPRB/)
+KBO( :, 5,43, 1) = (/&
+&5.3191E-08_JPRB,1.7525E-06_JPRB,3.1662E-06_JPRB,4.4792E-06_JPRB,6.1200E-06_JPRB/)
+KBO( :, 1,44, 1) = (/&
+&1.1198E-08_JPRB,8.6431E-07_JPRB,1.6473E-06_JPRB,2.3969E-06_JPRB,3.2705E-06_JPRB/)
+KBO( :, 2,44, 1) = (/&
+&1.5007E-08_JPRB,1.0027E-06_JPRB,1.8931E-06_JPRB,2.7433E-06_JPRB,3.7404E-06_JPRB/)
+KBO( :, 3,44, 1) = (/&
+&2.0665E-08_JPRB,1.1376E-06_JPRB,2.1233E-06_JPRB,3.0602E-06_JPRB,4.1782E-06_JPRB/)
+KBO( :, 4,44, 1) = (/&
+&2.8586E-08_JPRB,1.2680E-06_JPRB,2.3363E-06_JPRB,3.3439E-06_JPRB,4.5764E-06_JPRB/)
+KBO( :, 5,44, 1) = (/&
+&3.9218E-08_JPRB,1.3937E-06_JPRB,2.5309E-06_JPRB,3.5921E-06_JPRB,4.9322E-06_JPRB/)
+KBO( :, 1,45, 1) = (/&
+&8.3759E-09_JPRB,6.6910E-07_JPRB,1.2788E-06_JPRB,1.8633E-06_JPRB,2.5541E-06_JPRB/)
+KBO( :, 2,45, 1) = (/&
+&1.1074E-08_JPRB,7.8311E-07_JPRB,1.4838E-06_JPRB,2.1538E-06_JPRB,2.9501E-06_JPRB/)
+KBO( :, 3,45, 1) = (/&
+&1.5144E-08_JPRB,8.9455E-07_JPRB,1.6769E-06_JPRB,2.4217E-06_JPRB,3.3225E-06_JPRB/)
+KBO( :, 4,45, 1) = (/&
+&2.0959E-08_JPRB,1.0028E-06_JPRB,1.8560E-06_JPRB,2.6635E-06_JPRB,3.6644E-06_JPRB/)
+KBO( :, 5,45, 1) = (/&
+&2.8861E-08_JPRB,1.1068E-06_JPRB,2.0205E-06_JPRB,2.8768E-06_JPRB,3.9736E-06_JPRB/)
+KBO( :, 1,46, 1) = (/&
+&6.2739E-09_JPRB,5.1407E-07_JPRB,9.8522E-07_JPRB,1.4377E-06_JPRB,1.9806E-06_JPRB/)
+KBO( :, 2,46, 1) = (/&
+&8.1529E-09_JPRB,6.0797E-07_JPRB,1.1561E-06_JPRB,1.6807E-06_JPRB,2.3136E-06_JPRB/)
+KBO( :, 3,46, 1) = (/&
+&1.1038E-08_JPRB,7.0008E-07_JPRB,1.3179E-06_JPRB,1.9073E-06_JPRB,2.6301E-06_JPRB/)
+KBO( :, 4,46, 1) = (/&
+&1.5249E-08_JPRB,7.8964E-07_JPRB,1.4688E-06_JPRB,2.1133E-06_JPRB,2.9239E-06_JPRB/)
+KBO( :, 5,46, 1) = (/&
+&2.1058E-08_JPRB,8.7606E-07_JPRB,1.6079E-06_JPRB,2.2965E-06_JPRB,3.1920E-06_JPRB/)
+KBO( :, 1,47, 1) = (/&
+&4.6949E-09_JPRB,3.8992E-07_JPRB,7.4927E-07_JPRB,1.0952E-06_JPRB,1.5159E-06_JPRB/)
+KBO( :, 2,47, 1) = (/&
+&5.9645E-09_JPRB,4.6716E-07_JPRB,8.9151E-07_JPRB,1.2982E-06_JPRB,1.7952E-06_JPRB/)
+KBO( :, 3,47, 1) = (/&
+&7.9612E-09_JPRB,5.4321E-07_JPRB,1.0272E-06_JPRB,1.4897E-06_JPRB,2.0633E-06_JPRB/)
+KBO( :, 4,47, 1) = (/&
+&1.0938E-08_JPRB,6.1746E-07_JPRB,1.1545E-06_JPRB,1.6654E-06_JPRB,2.3153E-06_JPRB/)
+KBO( :, 5,47, 1) = (/&
+&1.5132E-08_JPRB,6.8917E-07_JPRB,1.2721E-06_JPRB,1.8228E-06_JPRB,2.5468E-06_JPRB/)
+KBO( :, 1,48, 1) = (/&
+&3.5531E-09_JPRB,2.9393E-07_JPRB,5.6622E-07_JPRB,8.2884E-07_JPRB,1.1544E-06_JPRB/)
+KBO( :, 2,48, 1) = (/&
+&4.3982E-09_JPRB,3.5721E-07_JPRB,6.8388E-07_JPRB,9.9751E-07_JPRB,1.3878E-06_JPRB/)
+KBO( :, 3,48, 1) = (/&
+&5.7699E-09_JPRB,4.1995E-07_JPRB,7.9742E-07_JPRB,1.1586E-06_JPRB,1.6142E-06_JPRB/)
+KBO( :, 4,48, 1) = (/&
+&7.8542E-09_JPRB,4.8132E-07_JPRB,9.0450E-07_JPRB,1.3078E-06_JPRB,1.8297E-06_JPRB/)
+KBO( :, 5,48, 1) = (/&
+&1.0862E-08_JPRB,5.4098E-07_JPRB,1.0041E-06_JPRB,1.4432E-06_JPRB,2.0302E-06_JPRB/)
+KBO( :, 1,49, 1) = (/&
+&2.7223E-09_JPRB,2.2011E-07_JPRB,4.2480E-07_JPRB,6.2273E-07_JPRB,8.7522E-07_JPRB/)
+KBO( :, 2,49, 1) = (/&
+&3.2751E-09_JPRB,2.7175E-07_JPRB,5.2169E-07_JPRB,7.6216E-07_JPRB,1.0695E-06_JPRB/)
+KBO( :, 3,49, 1) = (/&
+&4.2074E-09_JPRB,3.2338E-07_JPRB,6.1638E-07_JPRB,8.9710E-07_JPRB,1.2605E-06_JPRB/)
+KBO( :, 4,49, 1) = (/&
+&5.6548E-09_JPRB,3.7408E-07_JPRB,7.0619E-07_JPRB,1.0234E-06_JPRB,1.4445E-06_JPRB/)
+KBO( :, 5,49, 1) = (/&
+&7.7931E-09_JPRB,4.2353E-07_JPRB,7.9036E-07_JPRB,1.1391E-06_JPRB,1.6183E-06_JPRB/)
+KBO( :, 1,50, 1) = (/&
+&2.1171E-09_JPRB,1.6461E-07_JPRB,3.1815E-07_JPRB,4.6707E-07_JPRB,6.6131E-07_JPRB/)
+KBO( :, 2,50, 1) = (/&
+&2.4767E-09_JPRB,2.0654E-07_JPRB,3.9751E-07_JPRB,5.8161E-07_JPRB,8.2129E-07_JPRB/)
+KBO( :, 3,50, 1) = (/&
+&3.1098E-09_JPRB,2.4898E-07_JPRB,4.7607E-07_JPRB,6.9397E-07_JPRB,9.8108E-07_JPRB/)
+KBO( :, 4,50, 1) = (/&
+&4.1196E-09_JPRB,2.9082E-07_JPRB,5.5125E-07_JPRB,8.0034E-07_JPRB,1.1364E-06_JPRB/)
+KBO( :, 5,50, 1) = (/&
+&5.6373E-09_JPRB,3.3169E-07_JPRB,6.2193E-07_JPRB,8.9844E-07_JPRB,1.2847E-06_JPRB/)
+KBO( :, 1,51, 1) = (/&
+&1.6645E-09_JPRB,1.2257E-07_JPRB,2.3718E-07_JPRB,3.4865E-07_JPRB,4.9717E-07_JPRB/)
+KBO( :, 2,51, 1) = (/&
+&1.8963E-09_JPRB,1.5653E-07_JPRB,3.0185E-07_JPRB,4.4222E-07_JPRB,6.2797E-07_JPRB/)
+KBO( :, 3,51, 1) = (/&
+&2.3235E-09_JPRB,1.9123E-07_JPRB,3.6667E-07_JPRB,5.3530E-07_JPRB,7.6057E-07_JPRB/)
+KBO( :, 4,51, 1) = (/&
+&3.0254E-09_JPRB,2.2572E-07_JPRB,4.2945E-07_JPRB,6.2453E-07_JPRB,8.9069E-07_JPRB/)
+KBO( :, 5,51, 1) = (/&
+&4.0995E-09_JPRB,2.5950E-07_JPRB,4.8873E-07_JPRB,7.0742E-07_JPRB,1.0163E-06_JPRB/)
+KBO( :, 1,52, 1) = (/&
+&1.3206E-09_JPRB,9.0571E-08_JPRB,1.7550E-07_JPRB,2.5829E-07_JPRB,3.7195E-07_JPRB/)
+KBO( :, 2,52, 1) = (/&
+&1.4670E-09_JPRB,1.1797E-07_JPRB,2.2784E-07_JPRB,3.3424E-07_JPRB,4.7844E-07_JPRB/)
+KBO( :, 3,52, 1) = (/&
+&1.7505E-09_JPRB,1.4623E-07_JPRB,2.8107E-07_JPRB,4.1094E-07_JPRB,5.8801E-07_JPRB/)
+KBO( :, 4,52, 1) = (/&
+&2.2339E-09_JPRB,1.7460E-07_JPRB,3.3329E-07_JPRB,4.8542E-07_JPRB,6.9695E-07_JPRB/)
+KBO( :, 5,52, 1) = (/&
+&2.9899E-09_JPRB,2.0250E-07_JPRB,3.8293E-07_JPRB,5.5538E-07_JPRB,8.0322E-07_JPRB/)
+KBO( :, 1,53, 1) = (/&
+&1.0570E-09_JPRB,6.6355E-08_JPRB,1.2871E-07_JPRB,1.8963E-07_JPRB,2.7719E-07_JPRB/)
+KBO( :, 2,53, 1) = (/&
+&1.1456E-09_JPRB,8.8306E-08_JPRB,1.7079E-07_JPRB,2.5086E-07_JPRB,3.6333E-07_JPRB/)
+KBO( :, 3,53, 1) = (/&
+&1.3304E-09_JPRB,1.1127E-07_JPRB,2.1434E-07_JPRB,3.1381E-07_JPRB,4.5369E-07_JPRB/)
+KBO( :, 4,53, 1) = (/&
+&1.6595E-09_JPRB,1.3454E-07_JPRB,2.5758E-07_JPRB,3.7572E-07_JPRB,5.4496E-07_JPRB/)
+KBO( :, 5,53, 1) = (/&
+&2.1883E-09_JPRB,1.5755E-07_JPRB,2.9906E-07_JPRB,4.3451E-07_JPRB,6.3482E-07_JPRB/)
+KBO( :, 1,54, 1) = (/&
+&8.5518E-10_JPRB,4.8675E-08_JPRB,9.4477E-08_JPRB,1.3931E-07_JPRB,2.0489E-07_JPRB/)
+KBO( :, 2,54, 1) = (/&
+&9.0530E-10_JPRB,6.6186E-08_JPRB,1.2814E-07_JPRB,1.8845E-07_JPRB,2.7365E-07_JPRB/)
+KBO( :, 3,54, 1) = (/&
+&1.0265E-09_JPRB,8.4782E-08_JPRB,1.6360E-07_JPRB,2.3982E-07_JPRB,3.4689E-07_JPRB/)
+KBO( :, 4,54, 1) = (/&
+&1.2515E-09_JPRB,1.0381E-07_JPRB,1.9922E-07_JPRB,2.9100E-07_JPRB,4.2180E-07_JPRB/)
+KBO( :, 5,54, 1) = (/&
+&1.6232E-09_JPRB,1.2276E-07_JPRB,2.3378E-07_JPRB,3.4015E-07_JPRB,4.9603E-07_JPRB/)
+KBO( :, 1,55, 1) = (/&
+&6.9700E-10_JPRB,3.5570E-08_JPRB,6.9080E-08_JPRB,1.0195E-07_JPRB,1.4991E-07_JPRB/)
+KBO( :, 2,55, 1) = (/&
+&7.2150E-10_JPRB,4.9476E-08_JPRB,9.5896E-08_JPRB,1.4119E-07_JPRB,2.0429E-07_JPRB/)
+KBO( :, 3,55, 1) = (/&
+&8.0028E-10_JPRB,6.4502E-08_JPRB,1.2464E-07_JPRB,1.8291E-07_JPRB,2.6311E-07_JPRB/)
+KBO( :, 4,55, 1) = (/&
+&9.5310E-10_JPRB,8.0013E-08_JPRB,1.5388E-07_JPRB,2.2506E-07_JPRB,3.2381E-07_JPRB/)
+KBO( :, 5,55, 1) = (/&
+&1.2140E-09_JPRB,9.5569E-08_JPRB,1.8254E-07_JPRB,2.6597E-07_JPRB,3.8428E-07_JPRB/)
+KBO( :, 1,56, 1) = (/&
+&5.7187E-10_JPRB,2.5788E-08_JPRB,5.0091E-08_JPRB,7.3976E-08_JPRB,1.0884E-07_JPRB/)
+KBO( :, 2,56, 1) = (/&
+&5.7915E-10_JPRB,3.6758E-08_JPRB,7.1316E-08_JPRB,1.0509E-07_JPRB,1.5165E-07_JPRB/)
+KBO( :, 3,56, 1) = (/&
+&6.2849E-10_JPRB,4.8831E-08_JPRB,9.4465E-08_JPRB,1.3879E-07_JPRB,1.9866E-07_JPRB/)
+KBO( :, 4,56, 1) = (/&
+&7.3094E-10_JPRB,6.1436E-08_JPRB,1.1839E-07_JPRB,1.7336E-07_JPRB,2.4772E-07_JPRB/)
+KBO( :, 5,56, 1) = (/&
+&9.1271E-10_JPRB,7.4209E-08_JPRB,1.4210E-07_JPRB,2.0734E-07_JPRB,2.9707E-07_JPRB/)
+KBO( :, 1,57, 1) = (/&
+&4.7220E-10_JPRB,1.8526E-08_JPRB,3.5969E-08_JPRB,5.3151E-08_JPRB,7.8305E-08_JPRB/)
+KBO( :, 2,57, 1) = (/&
+&4.6852E-10_JPRB,2.7111E-08_JPRB,5.2630E-08_JPRB,7.7619E-08_JPRB,1.1181E-07_JPRB/)
+KBO( :, 3,57, 1) = (/&
+&4.9708E-10_JPRB,3.6762E-08_JPRB,7.1191E-08_JPRB,1.0471E-07_JPRB,1.4926E-07_JPRB/)
+KBO( :, 4,57, 1) = (/&
+&5.6499E-10_JPRB,4.6985E-08_JPRB,9.0692E-08_JPRB,1.3297E-07_JPRB,1.8882E-07_JPRB/)
+KBO( :, 5,57, 1) = (/&
+&6.9035E-10_JPRB,5.7429E-08_JPRB,1.1024E-07_JPRB,1.6105E-07_JPRB,2.2899E-07_JPRB/)
+KBO( :, 1,58, 1) = (/&
+&3.9157E-10_JPRB,1.3270E-08_JPRB,2.5747E-08_JPRB,3.8061E-08_JPRB,5.5988E-08_JPRB/)
+KBO( :, 2,58, 1) = (/&
+&3.8162E-10_JPRB,1.9958E-08_JPRB,3.8768E-08_JPRB,5.7217E-08_JPRB,8.2152E-08_JPRB/)
+KBO( :, 3,58, 1) = (/&
+&3.9640E-10_JPRB,2.7646E-08_JPRB,5.3592E-08_JPRB,7.8902E-08_JPRB,1.1187E-07_JPRB/)
+KBO( :, 4,58, 1) = (/&
+&4.4118E-10_JPRB,3.5913E-08_JPRB,6.9407E-08_JPRB,1.0187E-07_JPRB,1.4365E-07_JPRB/)
+KBO( :, 5,58, 1) = (/&
+&5.2734E-10_JPRB,4.4431E-08_JPRB,8.5459E-08_JPRB,1.2500E-07_JPRB,1.7617E-07_JPRB/)
+KBO( :, 1,59, 1) = (/&
+&3.2257E-10_JPRB,1.0274E-08_JPRB,1.9927E-08_JPRB,2.9461E-08_JPRB,4.2293E-08_JPRB/)
+KBO( :, 2,59, 1) = (/&
+&3.1226E-10_JPRB,1.5633E-08_JPRB,3.0371E-08_JPRB,4.4840E-08_JPRB,6.3166E-08_JPRB/)
+KBO( :, 3,59, 1) = (/&
+&3.2148E-10_JPRB,2.1846E-08_JPRB,4.2369E-08_JPRB,6.2405E-08_JPRB,8.6964E-08_JPRB/)
+KBO( :, 4,59, 1) = (/&
+&3.5488E-10_JPRB,2.8579E-08_JPRB,5.5262E-08_JPRB,8.1150E-08_JPRB,1.1238E-07_JPRB/)
+KBO( :, 5,59, 1) = (/&
+&4.2035E-10_JPRB,3.5535E-08_JPRB,6.8411E-08_JPRB,1.0012E-07_JPRB,1.3828E-07_JPRB/)
+KBO( :, 1,13, 2) = (/&
+&8.0175E-06_JPRB,1.6125E-03_JPRB,3.1478E-03_JPRB,4.6753E-03_JPRB,6.4316E-03_JPRB/)
+KBO( :, 2,13, 2) = (/&
+&1.0426E-05_JPRB,1.8783E-03_JPRB,3.6140E-03_JPRB,5.3229E-03_JPRB,7.3431E-03_JPRB/)
+KBO( :, 3,13, 2) = (/&
+&1.4927E-05_JPRB,2.1311E-03_JPRB,4.0477E-03_JPRB,5.8993E-03_JPRB,8.1260E-03_JPRB/)
+KBO( :, 4,13, 2) = (/&
+&2.2809E-05_JPRB,2.3738E-03_JPRB,4.4493E-03_JPRB,6.4056E-03_JPRB,8.7767E-03_JPRB/)
+KBO( :, 5,13, 2) = (/&
+&3.5487E-05_JPRB,2.6072E-03_JPRB,4.8181E-03_JPRB,6.8488E-03_JPRB,9.2993E-03_JPRB/)
+KBO( :, 1,14, 2) = (/&
+&6.7524E-06_JPRB,1.3623E-03_JPRB,2.6470E-03_JPRB,3.9213E-03_JPRB,5.3373E-03_JPRB/)
+KBO( :, 2,14, 2) = (/&
+&8.8908E-06_JPRB,1.5796E-03_JPRB,3.0298E-03_JPRB,4.4457E-03_JPRB,6.0495E-03_JPRB/)
+KBO( :, 3,14, 2) = (/&
+&1.2884E-05_JPRB,1.7866E-03_JPRB,3.3866E-03_JPRB,4.9144E-03_JPRB,6.6539E-03_JPRB/)
+KBO( :, 4,14, 2) = (/&
+&1.9813E-05_JPRB,1.9855E-03_JPRB,3.7147E-03_JPRB,5.3297E-03_JPRB,7.1488E-03_JPRB/)
+KBO( :, 5,14, 2) = (/&
+&3.0910E-05_JPRB,2.1779E-03_JPRB,4.0162E-03_JPRB,5.6950E-03_JPRB,7.5412E-03_JPRB/)
+KBO( :, 1,15, 2) = (/&
+&5.7112E-06_JPRB,1.1474E-03_JPRB,2.2216E-03_JPRB,3.2811E-03_JPRB,4.4313E-03_JPRB/)
+KBO( :, 2,15, 2) = (/&
+&7.6208E-06_JPRB,1.3247E-03_JPRB,2.5364E-03_JPRB,3.7071E-03_JPRB,4.9919E-03_JPRB/)
+KBO( :, 3,15, 2) = (/&
+&1.1171E-05_JPRB,1.4944E-03_JPRB,2.8273E-03_JPRB,4.0906E-03_JPRB,5.4623E-03_JPRB/)
+KBO( :, 4,15, 2) = (/&
+&1.7286E-05_JPRB,1.6573E-03_JPRB,3.0948E-03_JPRB,4.4313E-03_JPRB,5.8428E-03_JPRB/)
+KBO( :, 5,15, 2) = (/&
+&2.7064E-05_JPRB,1.8170E-03_JPRB,3.3404E-03_JPRB,4.7290E-03_JPRB,6.1397E-03_JPRB/)
+KBO( :, 1,16, 2) = (/&
+&4.8419E-06_JPRB,9.6341E-04_JPRB,1.8620E-03_JPRB,2.7407E-03_JPRB,3.6858E-03_JPRB/)
+KBO( :, 2,16, 2) = (/&
+&6.5431E-06_JPRB,1.1085E-03_JPRB,2.1191E-03_JPRB,3.0886E-03_JPRB,4.1319E-03_JPRB/)
+KBO( :, 3,16, 2) = (/&
+&9.6991E-06_JPRB,1.2471E-03_JPRB,2.3556E-03_JPRB,3.4027E-03_JPRB,4.5021E-03_JPRB/)
+KBO( :, 4,16, 2) = (/&
+&1.5112E-05_JPRB,1.3813E-03_JPRB,2.5735E-03_JPRB,3.6791E-03_JPRB,4.7992E-03_JPRB/)
+KBO( :, 5,16, 2) = (/&
+&2.3687E-05_JPRB,1.5146E-03_JPRB,2.7739E-03_JPRB,3.9205E-03_JPRB,5.0294E-03_JPRB/)
+KBO( :, 1,17, 2) = (/&
+&4.1046E-06_JPRB,8.0658E-04_JPRB,1.5568E-03_JPRB,2.2850E-03_JPRB,3.0607E-03_JPRB/)
+KBO( :, 2,17, 2) = (/&
+&5.6128E-06_JPRB,9.2491E-04_JPRB,1.7657E-03_JPRB,2.5701E-03_JPRB,3.4165E-03_JPRB/)
+KBO( :, 3,17, 2) = (/&
+&8.4118E-06_JPRB,1.0386E-03_JPRB,1.9589E-03_JPRB,2.8258E-03_JPRB,3.7101E-03_JPRB/)
+KBO( :, 4,17, 2) = (/&
+&1.3163E-05_JPRB,1.1499E-03_JPRB,2.1360E-03_JPRB,3.0493E-03_JPRB,3.9433E-03_JPRB/)
+KBO( :, 5,17, 2) = (/&
+&2.0607E-05_JPRB,1.2605E-03_JPRB,2.3001E-03_JPRB,3.2445E-03_JPRB,4.1227E-03_JPRB/)
+KBO( :, 1,18, 2) = (/&
+&3.4787E-06_JPRB,6.7375E-04_JPRB,1.2987E-03_JPRB,1.9033E-03_JPRB,2.5394E-03_JPRB/)
+KBO( :, 2,18, 2) = (/&
+&4.8193E-06_JPRB,7.7048E-04_JPRB,1.4690E-03_JPRB,2.1362E-03_JPRB,2.8237E-03_JPRB/)
+KBO( :, 3,18, 2) = (/&
+&7.2913E-06_JPRB,8.6393E-04_JPRB,1.6256E-03_JPRB,2.3423E-03_JPRB,3.0558E-03_JPRB/)
+KBO( :, 4,18, 2) = (/&
+&1.1432E-05_JPRB,9.5623E-04_JPRB,1.7704E-03_JPRB,2.5237E-03_JPRB,3.2404E-03_JPRB/)
+KBO( :, 5,18, 2) = (/&
+&1.7868E-05_JPRB,1.0481E-03_JPRB,1.9053E-03_JPRB,2.6812E-03_JPRB,3.3808E-03_JPRB/)
+KBO( :, 1,19, 2) = (/&
+&2.9467E-06_JPRB,5.6177E-04_JPRB,1.0818E-03_JPRB,1.5840E-03_JPRB,2.1035E-03_JPRB/)
+KBO( :, 2,19, 2) = (/&
+&4.1364E-06_JPRB,6.4090E-04_JPRB,1.2199E-03_JPRB,1.7723E-03_JPRB,2.3300E-03_JPRB/)
+KBO( :, 3,19, 2) = (/&
+&6.2999E-06_JPRB,7.1829E-04_JPRB,1.3476E-03_JPRB,1.9398E-03_JPRB,2.5147E-03_JPRB/)
+KBO( :, 4,19, 2) = (/&
+&9.8879E-06_JPRB,7.9456E-04_JPRB,1.4667E-03_JPRB,2.0867E-03_JPRB,2.6608E-03_JPRB/)
+KBO( :, 5,19, 2) = (/&
+&1.5425E-05_JPRB,8.7102E-04_JPRB,1.5773E-03_JPRB,2.2143E-03_JPRB,2.7707E-03_JPRB/)
+KBO( :, 1,20, 2) = (/&
+&2.5100E-06_JPRB,4.6893E-04_JPRB,9.0169E-04_JPRB,1.3192E-03_JPRB,1.7452E-03_JPRB/)
+KBO( :, 2,20, 2) = (/&
+&3.5701E-06_JPRB,5.3398E-04_JPRB,1.0139E-03_JPRB,1.4717E-03_JPRB,1.9261E-03_JPRB/)
+KBO( :, 3,20, 2) = (/&
+&5.4715E-06_JPRB,5.9772E-04_JPRB,1.1181E-03_JPRB,1.6068E-03_JPRB,2.0724E-03_JPRB/)
+KBO( :, 4,20, 2) = (/&
+&8.5950E-06_JPRB,6.6090E-04_JPRB,1.2157E-03_JPRB,1.7253E-03_JPRB,2.1875E-03_JPRB/)
+KBO( :, 5,20, 2) = (/&
+&1.3366E-05_JPRB,7.2450E-04_JPRB,1.3064E-03_JPRB,1.8293E-03_JPRB,2.2741E-03_JPRB/)
+KBO( :, 1,21, 2) = (/&
+&2.1419E-06_JPRB,3.9129E-04_JPRB,7.5108E-04_JPRB,1.0978E-03_JPRB,1.4477E-03_JPRB/)
+KBO( :, 2,21, 2) = (/&
+&3.0823E-06_JPRB,4.4480E-04_JPRB,8.4226E-04_JPRB,1.2211E-03_JPRB,1.5919E-03_JPRB/)
+KBO( :, 3,21, 2) = (/&
+&4.7515E-06_JPRB,4.9734E-04_JPRB,9.2759E-04_JPRB,1.3300E-03_JPRB,1.7080E-03_JPRB/)
+KBO( :, 4,21, 2) = (/&
+&7.4611E-06_JPRB,5.4971E-04_JPRB,1.0075E-03_JPRB,1.4263E-03_JPRB,1.7988E-03_JPRB/)
+KBO( :, 5,21, 2) = (/&
+&1.1567E-05_JPRB,6.0267E-04_JPRB,1.0819E-03_JPRB,1.5108E-03_JPRB,1.8668E-03_JPRB/)
+KBO( :, 1,22, 2) = (/&
+&1.8692E-06_JPRB,3.2930E-04_JPRB,6.3020E-04_JPRB,9.1986E-04_JPRB,1.2087E-03_JPRB/)
+KBO( :, 2,22, 2) = (/&
+&2.7364E-06_JPRB,3.7324E-04_JPRB,7.0426E-04_JPRB,1.0187E-03_JPRB,1.3222E-03_JPRB/)
+KBO( :, 3,22, 2) = (/&
+&4.2483E-06_JPRB,4.1663E-04_JPRB,7.7378E-04_JPRB,1.1062E-03_JPRB,1.4133E-03_JPRB/)
+KBO( :, 4,22, 2) = (/&
+&6.6614E-06_JPRB,4.6001E-04_JPRB,8.3899E-04_JPRB,1.1837E-03_JPRB,1.4836E-03_JPRB/)
+KBO( :, 5,22, 2) = (/&
+&1.0283E-05_JPRB,5.0444E-04_JPRB,8.9986E-04_JPRB,1.2517E-03_JPRB,1.5358E-03_JPRB/)
+KBO( :, 1,23, 2) = (/&
+&1.6399E-06_JPRB,2.7719E-04_JPRB,5.2862E-04_JPRB,7.7027E-04_JPRB,1.0088E-03_JPRB/)
+KBO( :, 2,23, 2) = (/&
+&2.4391E-06_JPRB,3.1328E-04_JPRB,5.8895E-04_JPRB,8.4951E-04_JPRB,1.0980E-03_JPRB/)
+KBO( :, 3,23, 2) = (/&
+&3.8063E-06_JPRB,3.4908E-04_JPRB,6.4555E-04_JPRB,9.1997E-04_JPRB,1.1688E-03_JPRB/)
+KBO( :, 4,23, 2) = (/&
+&5.9548E-06_JPRB,3.8523E-04_JPRB,6.9879E-04_JPRB,9.8233E-04_JPRB,1.2233E-03_JPRB/)
+KBO( :, 5,23, 2) = (/&
+&9.1467E-06_JPRB,4.2262E-04_JPRB,7.4870E-04_JPRB,1.0371E-03_JPRB,1.2635E-03_JPRB/)
+KBO( :, 1,24, 2) = (/&
+&1.4486E-06_JPRB,2.3343E-04_JPRB,4.4362E-04_JPRB,6.4490E-04_JPRB,8.4150E-04_JPRB/)
+KBO( :, 2,24, 2) = (/&
+&2.1847E-06_JPRB,2.6312E-04_JPRB,4.9268E-04_JPRB,7.0858E-04_JPRB,9.1131E-04_JPRB/)
+KBO( :, 3,24, 2) = (/&
+&3.4199E-06_JPRB,2.9273E-04_JPRB,5.3880E-04_JPRB,7.6525E-04_JPRB,9.6646E-04_JPRB/)
+KBO( :, 4,24, 2) = (/&
+&5.3366E-06_JPRB,3.2305E-04_JPRB,5.8221E-04_JPRB,8.1539E-04_JPRB,1.0083E-03_JPRB/)
+KBO( :, 5,24, 2) = (/&
+&8.1557E-06_JPRB,3.5422E-04_JPRB,6.2350E-04_JPRB,8.5963E-04_JPRB,1.0390E-03_JPRB/)
+KBO( :, 1,25, 2) = (/&
+&1.2896E-06_JPRB,1.9674E-04_JPRB,3.7250E-04_JPRB,5.4009E-04_JPRB,7.0204E-04_JPRB/)
+KBO( :, 2,25, 2) = (/&
+&1.9685E-06_JPRB,2.2117E-04_JPRB,4.1236E-04_JPRB,5.9119E-04_JPRB,7.5627E-04_JPRB/)
+KBO( :, 3,25, 2) = (/&
+&3.0862E-06_JPRB,2.4587E-04_JPRB,4.4997E-04_JPRB,6.3678E-04_JPRB,7.9915E-04_JPRB/)
+KBO( :, 4,25, 2) = (/&
+&4.8005E-06_JPRB,2.7122E-04_JPRB,4.8550E-04_JPRB,6.7707E-04_JPRB,8.3122E-04_JPRB/)
+KBO( :, 5,25, 2) = (/&
+&7.2939E-06_JPRB,2.9701E-04_JPRB,5.1977E-04_JPRB,7.1279E-04_JPRB,8.5451E-04_JPRB/)
+KBO( :, 1,26, 2) = (/&
+&1.1608E-06_JPRB,1.6612E-04_JPRB,3.1323E-04_JPRB,4.5281E-04_JPRB,5.8594E-04_JPRB/)
+KBO( :, 2,26, 2) = (/&
+&1.7905E-06_JPRB,1.8633E-04_JPRB,3.4562E-04_JPRB,4.9378E-04_JPRB,6.2806E-04_JPRB/)
+KBO( :, 3,26, 2) = (/&
+&2.8083E-06_JPRB,2.0700E-04_JPRB,3.7628E-04_JPRB,5.3030E-04_JPRB,6.6095E-04_JPRB/)
+KBO( :, 4,26, 2) = (/&
+&4.3494E-06_JPRB,2.2796E-04_JPRB,4.0557E-04_JPRB,5.6268E-04_JPRB,6.8538E-04_JPRB/)
+KBO( :, 5,26, 2) = (/&
+&6.5643E-06_JPRB,2.4920E-04_JPRB,4.3382E-04_JPRB,5.9177E-04_JPRB,7.0285E-04_JPRB/)
+KBO( :, 1,27, 2) = (/&
+&1.0500E-06_JPRB,1.4026E-04_JPRB,2.6331E-04_JPRB,3.7943E-04_JPRB,4.8869E-04_JPRB/)
+KBO( :, 2,27, 2) = (/&
+&1.6326E-06_JPRB,1.5709E-04_JPRB,2.8964E-04_JPRB,4.1228E-04_JPRB,5.2142E-04_JPRB/)
+KBO( :, 3,27, 2) = (/&
+&2.5571E-06_JPRB,1.7422E-04_JPRB,3.1477E-04_JPRB,4.4154E-04_JPRB,5.4660E-04_JPRB/)
+KBO( :, 4,27, 2) = (/&
+&3.9402E-06_JPRB,1.9156E-04_JPRB,3.3894E-04_JPRB,4.6764E-04_JPRB,5.6523E-04_JPRB/)
+KBO( :, 5,27, 2) = (/&
+&5.9052E-06_JPRB,2.0883E-04_JPRB,3.6207E-04_JPRB,4.9151E-04_JPRB,5.7833E-04_JPRB/)
+KBO( :, 1,28, 2) = (/&
+&9.5343E-07_JPRB,1.1844E-04_JPRB,2.2122E-04_JPRB,3.1775E-04_JPRB,4.0735E-04_JPRB/)
+KBO( :, 2,28, 2) = (/&
+&1.4904E-06_JPRB,1.3245E-04_JPRB,2.4271E-04_JPRB,3.4408E-04_JPRB,4.3267E-04_JPRB/)
+KBO( :, 3,28, 2) = (/&
+&2.3285E-06_JPRB,1.4658E-04_JPRB,2.6343E-04_JPRB,3.6757E-04_JPRB,4.5198E-04_JPRB/)
+KBO( :, 4,28, 2) = (/&
+&3.5672E-06_JPRB,1.6074E-04_JPRB,2.8315E-04_JPRB,3.8877E-04_JPRB,4.6611E-04_JPRB/)
+KBO( :, 5,28, 2) = (/&
+&5.3086E-06_JPRB,1.7472E-04_JPRB,3.0190E-04_JPRB,4.0830E-04_JPRB,4.7586E-04_JPRB/)
+KBO( :, 1,29, 2) = (/&
+&8.7130E-07_JPRB,1.0013E-04_JPRB,1.8593E-04_JPRB,2.6607E-04_JPRB,3.3959E-04_JPRB/)
+KBO( :, 2,29, 2) = (/&
+&1.3662E-06_JPRB,1.1169E-04_JPRB,2.0357E-04_JPRB,2.8717E-04_JPRB,3.5915E-04_JPRB/)
+KBO( :, 3,29, 2) = (/&
+&2.1272E-06_JPRB,1.2329E-04_JPRB,2.2053E-04_JPRB,3.0613E-04_JPRB,3.7392E-04_JPRB/)
+KBO( :, 4,29, 2) = (/&
+&3.2367E-06_JPRB,1.3475E-04_JPRB,2.3655E-04_JPRB,3.2340E-04_JPRB,3.8475E-04_JPRB/)
+KBO( :, 5,29, 2) = (/&
+&4.7798E-06_JPRB,1.4613E-04_JPRB,2.5163E-04_JPRB,3.3924E-04_JPRB,3.9199E-04_JPRB/)
+KBO( :, 1,30, 2) = (/&
+&7.9857E-07_JPRB,8.4615E-05_JPRB,1.5625E-04_JPRB,2.2266E-04_JPRB,2.8295E-04_JPRB/)
+KBO( :, 2,30, 2) = (/&
+&1.2528E-06_JPRB,9.4125E-05_JPRB,1.7078E-04_JPRB,2.3961E-04_JPRB,2.9806E-04_JPRB/)
+KBO( :, 3,30, 2) = (/&
+&1.9419E-06_JPRB,1.0355E-04_JPRB,1.8452E-04_JPRB,2.5499E-04_JPRB,3.0943E-04_JPRB/)
+KBO( :, 4,30, 2) = (/&
+&2.9342E-06_JPRB,1.1289E-04_JPRB,1.9751E-04_JPRB,2.6906E-04_JPRB,3.1766E-04_JPRB/)
+KBO( :, 5,30, 2) = (/&
+&4.2987E-06_JPRB,1.2210E-04_JPRB,2.0947E-04_JPRB,2.8172E-04_JPRB,3.2307E-04_JPRB/)
+KBO( :, 1,31, 2) = (/&
+&7.3491E-07_JPRB,7.1470E-05_JPRB,1.3139E-04_JPRB,1.8630E-04_JPRB,2.3588E-04_JPRB/)
+KBO( :, 2,31, 2) = (/&
+&1.1514E-06_JPRB,7.9261E-05_JPRB,1.4322E-04_JPRB,1.9997E-04_JPRB,2.4758E-04_JPRB/)
+KBO( :, 3,31, 2) = (/&
+&1.7751E-06_JPRB,8.6934E-05_JPRB,1.5438E-04_JPRB,2.1250E-04_JPRB,2.5633E-04_JPRB/)
+KBO( :, 4,31, 2) = (/&
+&2.6619E-06_JPRB,9.4503E-05_JPRB,1.6470E-04_JPRB,2.2379E-04_JPRB,2.6262E-04_JPRB/)
+KBO( :, 5,31, 2) = (/&
+&3.8682E-06_JPRB,1.0203E-04_JPRB,1.7422E-04_JPRB,2.3379E-04_JPRB,2.6667E-04_JPRB/)
+KBO( :, 1,32, 2) = (/&
+&6.7761E-07_JPRB,6.0344E-05_JPRB,1.1046E-04_JPRB,1.5585E-04_JPRB,1.9661E-04_JPRB/)
+KBO( :, 2,32, 2) = (/&
+&1.0588E-06_JPRB,6.6689E-05_JPRB,1.2006E-04_JPRB,1.6697E-04_JPRB,2.0563E-04_JPRB/)
+KBO( :, 3,32, 2) = (/&
+&1.6222E-06_JPRB,7.2918E-05_JPRB,1.2900E-04_JPRB,1.7702E-04_JPRB,2.1238E-04_JPRB/)
+KBO( :, 4,32, 2) = (/&
+&2.4128E-06_JPRB,7.9073E-05_JPRB,1.3719E-04_JPRB,1.8602E-04_JPRB,2.1720E-04_JPRB/)
+KBO( :, 5,32, 2) = (/&
+&3.4779E-06_JPRB,8.5263E-05_JPRB,1.4481E-04_JPRB,1.9388E-04_JPRB,2.2025E-04_JPRB/)
+KBO( :, 1,33, 2) = (/&
+&6.2527E-07_JPRB,5.0902E-05_JPRB,9.2812E-05_JPRB,1.3037E-04_JPRB,1.6382E-04_JPRB/)
+KBO( :, 2,33, 2) = (/&
+&9.7334E-07_JPRB,5.6048E-05_JPRB,1.0055E-04_JPRB,1.3935E-04_JPRB,1.7082E-04_JPRB/)
+KBO( :, 3,33, 2) = (/&
+&1.4801E-06_JPRB,6.1101E-05_JPRB,1.0766E-04_JPRB,1.4740E-04_JPRB,1.7611E-04_JPRB/)
+KBO( :, 4,33, 2) = (/&
+&2.1838E-06_JPRB,6.6144E-05_JPRB,1.1420E-04_JPRB,1.5452E-04_JPRB,1.7978E-04_JPRB/)
+KBO( :, 5,33, 2) = (/&
+&3.1224E-06_JPRB,7.1225E-05_JPRB,1.2030E-04_JPRB,1.6062E-04_JPRB,1.8204E-04_JPRB/)
+KBO( :, 1,34, 2) = (/&
+&5.6731E-07_JPRB,4.2730E-05_JPRB,7.7685E-05_JPRB,1.0877E-04_JPRB,1.3615E-04_JPRB/)
+KBO( :, 2,34, 2) = (/&
+&8.7950E-07_JPRB,4.6905E-05_JPRB,8.3883E-05_JPRB,1.1598E-04_JPRB,1.4163E-04_JPRB/)
+KBO( :, 3,34, 2) = (/&
+&1.3287E-06_JPRB,5.1034E-05_JPRB,8.9565E-05_JPRB,1.2242E-04_JPRB,1.4574E-04_JPRB/)
+KBO( :, 4,34, 2) = (/&
+&1.9464E-06_JPRB,5.5143E-05_JPRB,9.4797E-05_JPRB,1.2801E-04_JPRB,1.4856E-04_JPRB/)
+KBO( :, 5,34, 2) = (/&
+&2.7640E-06_JPRB,5.9346E-05_JPRB,9.9732E-05_JPRB,1.3280E-04_JPRB,1.5030E-04_JPRB/)
+KBO( :, 1,35, 2) = (/&
+&4.9270E-07_JPRB,3.5501E-05_JPRB,6.4454E-05_JPRB,9.0102E-05_JPRB,1.1262E-04_JPRB/)
+KBO( :, 2,35, 2) = (/&
+&7.6173E-07_JPRB,3.8902E-05_JPRB,6.9450E-05_JPRB,9.5970E-05_JPRB,1.1707E-04_JPRB/)
+KBO( :, 3,35, 2) = (/&
+&1.1464E-06_JPRB,4.2272E-05_JPRB,7.4027E-05_JPRB,1.0112E-04_JPRB,1.2036E-04_JPRB/)
+KBO( :, 4,35, 2) = (/&
+&1.6726E-06_JPRB,4.5640E-05_JPRB,7.8266E-05_JPRB,1.0556E-04_JPRB,1.2264E-04_JPRB/)
+KBO( :, 5,35, 2) = (/&
+&2.3658E-06_JPRB,4.9091E-05_JPRB,8.2279E-05_JPRB,1.0938E-04_JPRB,1.2407E-04_JPRB/)
+KBO( :, 1,36, 2) = (/&
+&4.0753E-07_JPRB,2.9178E-05_JPRB,5.2991E-05_JPRB,7.4090E-05_JPRB,9.2739E-05_JPRB/)
+KBO( :, 2,36, 2) = (/&
+&6.2965E-07_JPRB,3.1953E-05_JPRB,5.7057E-05_JPRB,7.8888E-05_JPRB,9.6418E-05_JPRB/)
+KBO( :, 3,36, 2) = (/&
+&9.4705E-07_JPRB,3.4706E-05_JPRB,6.0784E-05_JPRB,8.3065E-05_JPRB,9.9161E-05_JPRB/)
+KBO( :, 4,36, 2) = (/&
+&1.3808E-06_JPRB,3.7469E-05_JPRB,6.4241E-05_JPRB,8.6658E-05_JPRB,1.0108E-04_JPRB/)
+KBO( :, 5,36, 2) = (/&
+&1.9520E-06_JPRB,4.0294E-05_JPRB,6.7509E-05_JPRB,8.9744E-05_JPRB,1.0229E-04_JPRB/)
+KBO( :, 1,37, 2) = (/&
+&3.1476E-07_JPRB,2.3629E-05_JPRB,4.3024E-05_JPRB,6.0274E-05_JPRB,7.5761E-05_JPRB/)
+KBO( :, 2,37, 2) = (/&
+&4.8773E-07_JPRB,2.5900E-05_JPRB,4.6378E-05_JPRB,6.4261E-05_JPRB,7.8929E-05_JPRB/)
+KBO( :, 3,37, 2) = (/&
+&7.3652E-07_JPRB,2.8152E-05_JPRB,4.9455E-05_JPRB,6.7730E-05_JPRB,8.1326E-05_JPRB/)
+KBO( :, 4,37, 2) = (/&
+&1.0783E-06_JPRB,3.0411E-05_JPRB,5.2306E-05_JPRB,7.0712E-05_JPRB,8.3006E-05_JPRB/)
+KBO( :, 5,37, 2) = (/&
+&1.5305E-06_JPRB,3.2717E-05_JPRB,5.4998E-05_JPRB,7.3285E-05_JPRB,8.4133E-05_JPRB/)
+KBO( :, 1,38, 2) = (/&
+&2.4210E-07_JPRB,1.9112E-05_JPRB,3.4895E-05_JPRB,4.8985E-05_JPRB,6.1887E-05_JPRB/)
+KBO( :, 2,38, 2) = (/&
+&3.7627E-07_JPRB,2.0975E-05_JPRB,3.7671E-05_JPRB,5.2313E-05_JPRB,6.4617E-05_JPRB/)
+KBO( :, 3,38, 2) = (/&
+&5.7052E-07_JPRB,2.2818E-05_JPRB,4.0210E-05_JPRB,5.5193E-05_JPRB,6.6701E-05_JPRB/)
+KBO( :, 4,38, 2) = (/&
+&8.3911E-07_JPRB,2.4669E-05_JPRB,4.2570E-05_JPRB,5.7682E-05_JPRB,6.8211E-05_JPRB/)
+KBO( :, 5,38, 2) = (/&
+&1.1958E-06_JPRB,2.6548E-05_JPRB,4.4784E-05_JPRB,5.9818E-05_JPRB,6.9237E-05_JPRB/)
+KBO( :, 1,39, 2) = (/&
+&1.8625E-07_JPRB,1.5459E-05_JPRB,2.8298E-05_JPRB,3.9805E-05_JPRB,5.0586E-05_JPRB/)
+KBO( :, 2,39, 2) = (/&
+&2.9016E-07_JPRB,1.6986E-05_JPRB,3.0594E-05_JPRB,4.2577E-05_JPRB,5.2943E-05_JPRB/)
+KBO( :, 3,39, 2) = (/&
+&4.4173E-07_JPRB,1.8495E-05_JPRB,3.2693E-05_JPRB,4.4970E-05_JPRB,5.4767E-05_JPRB/)
+KBO( :, 4,39, 2) = (/&
+&6.5253E-07_JPRB,2.0005E-05_JPRB,3.4636E-05_JPRB,4.7036E-05_JPRB,5.6106E-05_JPRB/)
+KBO( :, 5,39, 2) = (/&
+&9.3398E-07_JPRB,2.1545E-05_JPRB,3.6467E-05_JPRB,4.8821E-05_JPRB,5.7052E-05_JPRB/)
+KBO( :, 1,40, 2) = (/&
+&1.3668E-07_JPRB,1.2370E-05_JPRB,2.2736E-05_JPRB,3.2075E-05_JPRB,4.1000E-05_JPRB/)
+KBO( :, 2,40, 2) = (/&
+&2.1371E-07_JPRB,1.3625E-05_JPRB,2.4652E-05_JPRB,3.4419E-05_JPRB,4.3071E-05_JPRB/)
+KBO( :, 3,40, 2) = (/&
+&3.2755E-07_JPRB,1.4863E-05_JPRB,2.6404E-05_JPRB,3.6442E-05_JPRB,4.4686E-05_JPRB/)
+KBO( :, 4,40, 2) = (/&
+&4.8754E-07_JPRB,1.6102E-05_JPRB,2.8025E-05_JPRB,3.8191E-05_JPRB,4.5890E-05_JPRB/)
+KBO( :, 5,40, 2) = (/&
+&7.0305E-07_JPRB,1.7351E-05_JPRB,2.9541E-05_JPRB,3.9702E-05_JPRB,4.6757E-05_JPRB/)
+KBO( :, 1,41, 2) = (/&
+&9.9669E-08_JPRB,9.8770E-06_JPRB,1.8228E-05_JPRB,2.5797E-05_JPRB,3.3169E-05_JPRB/)
+KBO( :, 2,41, 2) = (/&
+&1.5628E-07_JPRB,1.0911E-05_JPRB,1.9833E-05_JPRB,2.7783E-05_JPRB,3.4989E-05_JPRB/)
+KBO( :, 3,41, 2) = (/&
+&2.4106E-07_JPRB,1.1926E-05_JPRB,2.1297E-05_JPRB,2.9495E-05_JPRB,3.6412E-05_JPRB/)
+KBO( :, 4,41, 2) = (/&
+&3.6163E-07_JPRB,1.2938E-05_JPRB,2.2645E-05_JPRB,3.0975E-05_JPRB,3.7495E-05_JPRB/)
+KBO( :, 5,41, 2) = (/&
+&5.2576E-07_JPRB,1.3959E-05_JPRB,2.3909E-05_JPRB,3.2258E-05_JPRB,3.8288E-05_JPRB/)
+KBO( :, 1,42, 2) = (/&
+&7.2678E-08_JPRB,7.8801E-06_JPRB,1.4600E-05_JPRB,2.0724E-05_JPRB,2.6808E-05_JPRB/)
+KBO( :, 2,42, 2) = (/&
+&1.1413E-07_JPRB,8.7322E-06_JPRB,1.5944E-05_JPRB,2.2404E-05_JPRB,2.8406E-05_JPRB/)
+KBO( :, 3,42, 2) = (/&
+&1.7705E-07_JPRB,9.5648E-06_JPRB,1.7165E-05_JPRB,2.3855E-05_JPRB,2.9660E-05_JPRB/)
+KBO( :, 4,42, 2) = (/&
+&2.6763E-07_JPRB,1.0394E-05_JPRB,1.8292E-05_JPRB,2.5108E-05_JPRB,3.0631E-05_JPRB/)
+KBO( :, 5,42, 2) = (/&
+&3.9231E-07_JPRB,1.1225E-05_JPRB,1.9340E-05_JPRB,2.6194E-05_JPRB,3.1357E-05_JPRB/)
+KBO( :, 1,43, 2) = (/&
+&5.1710E-08_JPRB,6.2405E-06_JPRB,1.1615E-05_JPRB,1.6545E-05_JPRB,2.1547E-05_JPRB/)
+KBO( :, 2,43, 2) = (/&
+&8.1128E-08_JPRB,6.9428E-06_JPRB,1.2742E-05_JPRB,1.7971E-05_JPRB,2.2964E-05_JPRB/)
+KBO( :, 3,43, 2) = (/&
+&1.2657E-07_JPRB,7.6287E-06_JPRB,1.3773E-05_JPRB,1.9217E-05_JPRB,2.4086E-05_JPRB/)
+KBO( :, 4,43, 2) = (/&
+&1.9308E-07_JPRB,8.3079E-06_JPRB,1.4717E-05_JPRB,2.0287E-05_JPRB,2.4962E-05_JPRB/)
+KBO( :, 5,43, 2) = (/&
+&2.8583E-07_JPRB,8.9896E-06_JPRB,1.5595E-05_JPRB,2.1216E-05_JPRB,2.5632E-05_JPRB/)
+KBO( :, 1,44, 2) = (/&
+&3.6495E-08_JPRB,4.9199E-06_JPRB,9.1989E-06_JPRB,1.3152E-05_JPRB,1.7255E-05_JPRB/)
+KBO( :, 2,44, 2) = (/&
+&5.6951E-08_JPRB,5.5005E-06_JPRB,1.0149E-05_JPRB,1.4368E-05_JPRB,1.8514E-05_JPRB/)
+KBO( :, 3,44, 2) = (/&
+&8.9239E-08_JPRB,6.0652E-06_JPRB,1.1016E-05_JPRB,1.5437E-05_JPRB,1.9519E-05_JPRB/)
+KBO( :, 4,44, 2) = (/&
+&1.3737E-07_JPRB,6.6226E-06_JPRB,1.1811E-05_JPRB,1.6355E-05_JPRB,2.0314E-05_JPRB/)
+KBO( :, 5,44, 2) = (/&
+&2.0554E-07_JPRB,7.1784E-06_JPRB,1.2547E-05_JPRB,1.7152E-05_JPRB,2.0929E-05_JPRB/)
+KBO( :, 1,45, 2) = (/&
+&2.5907E-08_JPRB,3.8721E-06_JPRB,7.2719E-06_JPRB,1.0434E-05_JPRB,1.3790E-05_JPRB/)
+KBO( :, 2,45, 2) = (/&
+&3.9986E-08_JPRB,4.3511E-06_JPRB,8.0697E-06_JPRB,1.1466E-05_JPRB,1.4905E-05_JPRB/)
+KBO( :, 3,45, 2) = (/&
+&6.2804E-08_JPRB,4.8176E-06_JPRB,8.8015E-06_JPRB,1.2382E-05_JPRB,1.5806E-05_JPRB/)
+KBO( :, 4,45, 2) = (/&
+&9.7423E-08_JPRB,5.2749E-06_JPRB,9.4698E-06_JPRB,1.3171E-05_JPRB,1.6523E-05_JPRB/)
+KBO( :, 5,45, 2) = (/&
+&1.4724E-07_JPRB,5.7306E-06_JPRB,1.0089E-05_JPRB,1.3855E-05_JPRB,1.7089E-05_JPRB/)
+KBO( :, 1,46, 2) = (/&
+&1.8373E-08_JPRB,3.0320E-06_JPRB,5.7197E-06_JPRB,8.2358E-06_JPRB,1.0971E-05_JPRB/)
+KBO( :, 2,46, 2) = (/&
+&2.7848E-08_JPRB,3.4277E-06_JPRB,6.3901E-06_JPRB,9.1142E-06_JPRB,1.1956E-05_JPRB/)
+KBO( :, 3,46, 2) = (/&
+&4.3687E-08_JPRB,3.8134E-06_JPRB,7.0085E-06_JPRB,9.9001E-06_JPRB,1.2766E-05_JPRB/)
+KBO( :, 4,46, 2) = (/&
+&6.8194E-08_JPRB,4.1901E-06_JPRB,7.5729E-06_JPRB,1.0581E-05_JPRB,1.3413E-05_JPRB/)
+KBO( :, 5,46, 2) = (/&
+&1.0416E-07_JPRB,4.5633E-06_JPRB,8.0938E-06_JPRB,1.1169E-05_JPRB,1.3933E-05_JPRB/)
+KBO( :, 1,47, 2) = (/&
+&1.2986E-08_JPRB,2.3533E-06_JPRB,4.4615E-06_JPRB,6.4491E-06_JPRB,8.6543E-06_JPRB/)
+KBO( :, 2,47, 2) = (/&
+&1.9128E-08_JPRB,2.6815E-06_JPRB,5.0257E-06_JPRB,7.1971E-06_JPRB,9.5261E-06_JPRB/)
+KBO( :, 3,47, 2) = (/&
+&2.9772E-08_JPRB,3.0001E-06_JPRB,5.5492E-06_JPRB,7.8735E-06_JPRB,1.0255E-05_JPRB/)
+KBO( :, 4,47, 2) = (/&
+&4.6702E-08_JPRB,3.3116E-06_JPRB,6.0282E-06_JPRB,8.4652E-06_JPRB,1.0843E-05_JPRB/)
+KBO( :, 5,47, 2) = (/&
+&7.2070E-08_JPRB,3.6175E-06_JPRB,6.4678E-06_JPRB,8.9726E-06_JPRB,1.1318E-05_JPRB/)
+KBO( :, 1,48, 2) = (/&
+&9.3416E-09_JPRB,1.8200E-06_JPRB,3.4670E-06_JPRB,5.0294E-06_JPRB,6.7990E-06_JPRB/)
+KBO( :, 2,48, 2) = (/&
+&1.3255E-08_JPRB,2.0919E-06_JPRB,3.9405E-06_JPRB,5.6643E-06_JPRB,7.5695E-06_JPRB/)
+KBO( :, 3,48, 2) = (/&
+&2.0305E-08_JPRB,2.3557E-06_JPRB,4.3829E-06_JPRB,6.2449E-06_JPRB,8.2237E-06_JPRB/)
+KBO( :, 4,48, 2) = (/&
+&3.1895E-08_JPRB,2.6129E-06_JPRB,4.7893E-06_JPRB,6.7563E-06_JPRB,8.7563E-06_JPRB/)
+KBO( :, 5,48, 2) = (/&
+&4.9634E-08_JPRB,2.8647E-06_JPRB,5.1614E-06_JPRB,7.1978E-06_JPRB,9.1908E-06_JPRB/)
+KBO( :, 1,49, 2) = (/&
+&6.8359E-09_JPRB,1.4019E-06_JPRB,2.6826E-06_JPRB,3.9057E-06_JPRB,5.3233E-06_JPRB/)
+KBO( :, 2,49, 2) = (/&
+&9.2996E-09_JPRB,1.6269E-06_JPRB,3.0793E-06_JPRB,4.4431E-06_JPRB,6.0005E-06_JPRB/)
+KBO( :, 3,49, 2) = (/&
+&1.3902E-08_JPRB,1.8452E-06_JPRB,3.4523E-06_JPRB,4.9386E-06_JPRB,6.5835E-06_JPRB/)
+KBO( :, 4,49, 2) = (/&
+&2.1742E-08_JPRB,2.0580E-06_JPRB,3.7970E-06_JPRB,5.3806E-06_JPRB,7.0678E-06_JPRB/)
+KBO( :, 5,49, 2) = (/&
+&3.4035E-08_JPRB,2.2660E-06_JPRB,4.1122E-06_JPRB,5.7639E-06_JPRB,7.4641E-06_JPRB/)
+KBO( :, 1,50, 2) = (/&
+&5.1178E-09_JPRB,1.0792E-06_JPRB,2.0739E-06_JPRB,3.0301E-06_JPRB,4.1532E-06_JPRB/)
+KBO( :, 2,50, 2) = (/&
+&6.6862E-09_JPRB,1.2653E-06_JPRB,2.4055E-06_JPRB,3.4823E-06_JPRB,4.7385E-06_JPRB/)
+KBO( :, 3,50, 2) = (/&
+&9.6897E-09_JPRB,1.4463E-06_JPRB,2.7192E-06_JPRB,3.9039E-06_JPRB,5.2519E-06_JPRB/)
+KBO( :, 4,50, 2) = (/&
+&1.4989E-08_JPRB,1.6221E-06_JPRB,3.0101E-06_JPRB,4.2829E-06_JPRB,5.6841E-06_JPRB/)
+KBO( :, 5,50, 2) = (/&
+&2.3540E-08_JPRB,1.7939E-06_JPRB,3.2769E-06_JPRB,4.6145E-06_JPRB,6.0402E-06_JPRB/)
+KBO( :, 1,51, 2) = (/&
+&3.8928E-09_JPRB,8.2870E-07_JPRB,1.5995E-06_JPRB,2.3444E-06_JPRB,3.2274E-06_JPRB/)
+KBO( :, 2,51, 2) = (/&
+&4.8976E-09_JPRB,9.8251E-07_JPRB,1.8756E-06_JPRB,2.7234E-06_JPRB,3.7274E-06_JPRB/)
+KBO( :, 3,51, 2) = (/&
+&6.8457E-09_JPRB,1.1323E-06_JPRB,2.1385E-06_JPRB,3.0800E-06_JPRB,4.1752E-06_JPRB/)
+KBO( :, 4,51, 2) = (/&
+&1.0404E-08_JPRB,1.2777E-06_JPRB,2.3837E-06_JPRB,3.4044E-06_JPRB,4.5574E-06_JPRB/)
+KBO( :, 5,51, 2) = (/&
+&1.6329E-08_JPRB,1.4195E-06_JPRB,2.6091E-06_JPRB,3.6893E-06_JPRB,4.8743E-06_JPRB/)
+KBO( :, 1,52, 2) = (/&
+&3.0020E-09_JPRB,6.3363E-07_JPRB,1.2279E-06_JPRB,1.8052E-06_JPRB,2.4975E-06_JPRB/)
+KBO( :, 2,52, 2) = (/&
+&3.6400E-09_JPRB,7.6019E-07_JPRB,1.4569E-06_JPRB,2.1220E-06_JPRB,2.9231E-06_JPRB/)
+KBO( :, 3,52, 2) = (/&
+&4.8925E-09_JPRB,8.8432E-07_JPRB,1.6773E-06_JPRB,2.4234E-06_JPRB,3.3127E-06_JPRB/)
+KBO( :, 4,52, 2) = (/&
+&7.2540E-09_JPRB,1.0045E-06_JPRB,1.8834E-06_JPRB,2.6996E-06_JPRB,3.6485E-06_JPRB/)
+KBO( :, 5,52, 2) = (/&
+&1.1316E-08_JPRB,1.1218E-06_JPRB,2.0739E-06_JPRB,2.9444E-06_JPRB,3.9318E-06_JPRB/)
+KBO( :, 1,53, 2) = (/&
+&2.3480E-09_JPRB,4.8194E-07_JPRB,9.3751E-07_JPRB,1.3817E-06_JPRB,1.9236E-06_JPRB/)
+KBO( :, 2,53, 2) = (/&
+&2.7431E-09_JPRB,5.8562E-07_JPRB,1.1268E-06_JPRB,1.6465E-06_JPRB,2.2857E-06_JPRB/)
+KBO( :, 3,53, 2) = (/&
+&3.5464E-09_JPRB,6.8845E-07_JPRB,1.3110E-06_JPRB,1.8999E-06_JPRB,2.6221E-06_JPRB/)
+KBO( :, 4,53, 2) = (/&
+&5.0907E-09_JPRB,7.8797E-07_JPRB,1.4844E-06_JPRB,2.1348E-06_JPRB,2.9184E-06_JPRB/)
+KBO( :, 5,53, 2) = (/&
+&7.8410E-09_JPRB,8.8479E-07_JPRB,1.6450E-06_JPRB,2.3447E-06_JPRB,3.1713E-06_JPRB/)
+KBO( :, 1,54, 2) = (/&
+&1.8594E-09_JPRB,3.6706E-07_JPRB,7.1625E-07_JPRB,1.0575E-06_JPRB,1.4721E-06_JPRB/)
+KBO( :, 2,54, 2) = (/&
+&2.1055E-09_JPRB,4.5181E-07_JPRB,8.7256E-07_JPRB,1.2786E-06_JPRB,1.7762E-06_JPRB/)
+KBO( :, 3,54, 2) = (/&
+&2.6291E-09_JPRB,5.3666E-07_JPRB,1.0257E-06_JPRB,1.4904E-06_JPRB,2.0598E-06_JPRB/)
+KBO( :, 4,54, 2) = (/&
+&3.6482E-09_JPRB,6.1906E-07_JPRB,1.1709E-06_JPRB,1.6887E-06_JPRB,2.3147E-06_JPRB/)
+KBO( :, 5,54, 2) = (/&
+&5.5210E-09_JPRB,6.9901E-07_JPRB,1.3059E-06_JPRB,1.8680E-06_JPRB,2.5342E-06_JPRB/)
+KBO( :, 1,55, 2) = (/&
+&1.4849E-09_JPRB,2.7894E-07_JPRB,5.4560E-07_JPRB,8.0660E-07_JPRB,1.1188E-06_JPRB/)
+KBO( :, 2,55, 2) = (/&
+&1.6383E-09_JPRB,3.4819E-07_JPRB,6.7462E-07_JPRB,9.9127E-07_JPRB,1.3721E-06_JPRB/)
+KBO( :, 3,55, 2) = (/&
+&1.9800E-09_JPRB,4.1799E-07_JPRB,8.0161E-07_JPRB,1.1677E-06_JPRB,1.6084E-06_JPRB/)
+KBO( :, 4,55, 2) = (/&
+&2.6536E-09_JPRB,4.8615E-07_JPRB,9.2306E-07_JPRB,1.3349E-06_JPRB,1.8249E-06_JPRB/)
+KBO( :, 5,55, 2) = (/&
+&3.9260E-09_JPRB,5.5226E-07_JPRB,1.0363E-06_JPRB,1.4870E-06_JPRB,2.0117E-06_JPRB/)
+KBO( :, 1,56, 2) = (/&
+&1.1936E-09_JPRB,2.1075E-07_JPRB,4.1302E-07_JPRB,6.1132E-07_JPRB,8.4513E-07_JPRB/)
+KBO( :, 2,56, 2) = (/&
+&1.2886E-09_JPRB,2.6729E-07_JPRB,5.1942E-07_JPRB,7.6519E-07_JPRB,1.0555E-06_JPRB/)
+KBO( :, 3,56, 2) = (/&
+&1.5077E-09_JPRB,3.2455E-07_JPRB,6.2452E-07_JPRB,9.1202E-07_JPRB,1.2523E-06_JPRB/)
+KBO( :, 4,56, 2) = (/&
+&1.9525E-09_JPRB,3.8098E-07_JPRB,7.2592E-07_JPRB,1.0524E-06_JPRB,1.4345E-06_JPRB/)
+KBO( :, 5,56, 2) = (/&
+&2.8077E-09_JPRB,4.3561E-07_JPRB,8.2084E-07_JPRB,1.1815E-06_JPRB,1.5940E-06_JPRB/)
+KBO( :, 1,57, 2) = (/&
+&9.6583E-10_JPRB,1.5815E-07_JPRB,3.1044E-07_JPRB,4.6005E-07_JPRB,6.3408E-07_JPRB/)
+KBO( :, 2,57, 2) = (/&
+&1.0215E-09_JPRB,2.0426E-07_JPRB,3.9810E-07_JPRB,5.8767E-07_JPRB,8.0766E-07_JPRB/)
+KBO( :, 3,57, 2) = (/&
+&1.1597E-09_JPRB,2.5112E-07_JPRB,4.8491E-07_JPRB,7.0984E-07_JPRB,9.7174E-07_JPRB/)
+KBO( :, 4,57, 2) = (/&
+&1.4523E-09_JPRB,2.9779E-07_JPRB,5.6934E-07_JPRB,8.2739E-07_JPRB,1.1242E-06_JPRB/)
+KBO( :, 5,57, 2) = (/&
+&2.0219E-09_JPRB,3.4296E-07_JPRB,6.4886E-07_JPRB,9.3651E-07_JPRB,1.2602E-06_JPRB/)
+KBO( :, 1,58, 2) = (/&
+&7.8662E-10_JPRB,1.1835E-07_JPRB,2.3255E-07_JPRB,3.4498E-07_JPRB,4.7381E-07_JPRB/)
+KBO( :, 2,58, 2) = (/&
+&8.1625E-10_JPRB,1.5593E-07_JPRB,3.0466E-07_JPRB,4.5040E-07_JPRB,6.1632E-07_JPRB/)
+KBO( :, 3,58, 2) = (/&
+&9.0341E-10_JPRB,1.9427E-07_JPRB,3.7628E-07_JPRB,5.5215E-07_JPRB,7.5284E-07_JPRB/)
+KBO( :, 4,58, 2) = (/&
+&1.0971E-09_JPRB,2.3273E-07_JPRB,4.4632E-07_JPRB,6.5008E-07_JPRB,8.7941E-07_JPRB/)
+KBO( :, 5,58, 2) = (/&
+&1.4779E-09_JPRB,2.7004E-07_JPRB,5.1274E-07_JPRB,7.4188E-07_JPRB,9.9429E-07_JPRB/)
+KBO( :, 1,59, 2) = (/&
+&6.4355E-10_JPRB,9.3344E-08_JPRB,1.8349E-07_JPRB,2.7230E-07_JPRB,3.7011E-07_JPRB/)
+KBO( :, 2,59, 2) = (/&
+&6.6262E-10_JPRB,1.2407E-07_JPRB,2.4261E-07_JPRB,3.5886E-07_JPRB,4.8556E-07_JPRB/)
+KBO( :, 3,59, 2) = (/&
+&7.2712E-10_JPRB,1.5550E-07_JPRB,3.0153E-07_JPRB,4.4284E-07_JPRB,5.9628E-07_JPRB/)
+KBO( :, 4,59, 2) = (/&
+&8.7156E-10_JPRB,1.8704E-07_JPRB,3.5919E-07_JPRB,5.2368E-07_JPRB,6.9842E-07_JPRB/)
+KBO( :, 5,59, 2) = (/&
+&1.1587E-09_JPRB,2.1775E-07_JPRB,4.1408E-07_JPRB,5.9979E-07_JPRB,7.9133E-07_JPRB/)
+KBO( :, 1,13, 3) = (/&
+&2.0353E-05_JPRB,5.6795E-03_JPRB,1.0879E-02_JPRB,1.5836E-02_JPRB,2.0631E-02_JPRB/)
+KBO( :, 2,13, 3) = (/&
+&3.3777E-05_JPRB,6.5066E-03_JPRB,1.2221E-02_JPRB,1.7564E-02_JPRB,2.2630E-02_JPRB/)
+KBO( :, 3,13, 3) = (/&
+&5.9522E-05_JPRB,7.3512E-03_JPRB,1.3499E-02_JPRB,1.9109E-02_JPRB,2.4328E-02_JPRB/)
+KBO( :, 4,13, 3) = (/&
+&1.0349E-04_JPRB,8.2028E-03_JPRB,1.4689E-02_JPRB,2.0461E-02_JPRB,2.5718E-02_JPRB/)
+KBO( :, 5,13, 3) = (/&
+&1.7303E-04_JPRB,9.0516E-03_JPRB,1.5806E-02_JPRB,2.1651E-02_JPRB,2.6820E-02_JPRB/)
+KBO( :, 1,14, 3) = (/&
+&1.7783E-05_JPRB,4.9056E-03_JPRB,9.3358E-03_JPRB,1.3535E-02_JPRB,1.7457E-02_JPRB/)
+KBO( :, 2,14, 3) = (/&
+&3.0011E-05_JPRB,5.5977E-03_JPRB,1.0428E-02_JPRB,1.4906E-02_JPRB,1.8958E-02_JPRB/)
+KBO( :, 3,14, 3) = (/&
+&5.3112E-05_JPRB,6.2970E-03_JPRB,1.1454E-02_JPRB,1.6118E-02_JPRB,2.0210E-02_JPRB/)
+KBO( :, 4,14, 3) = (/&
+&9.2284E-05_JPRB,6.9980E-03_JPRB,1.2425E-02_JPRB,1.7194E-02_JPRB,2.1221E-02_JPRB/)
+KBO( :, 5,14, 3) = (/&
+&1.5395E-04_JPRB,7.6990E-03_JPRB,1.3352E-02_JPRB,1.8155E-02_JPRB,2.2006E-02_JPRB/)
+KBO( :, 1,15, 3) = (/&
+&1.5619E-05_JPRB,4.1987E-03_JPRB,7.9342E-03_JPRB,1.1456E-02_JPRB,1.4646E-02_JPRB/)
+KBO( :, 2,15, 3) = (/&
+&2.6774E-05_JPRB,4.7704E-03_JPRB,8.8150E-03_JPRB,1.2537E-02_JPRB,1.5771E-02_JPRB/)
+KBO( :, 3,15, 3) = (/&
+&4.7563E-05_JPRB,5.3462E-03_JPRB,9.6501E-03_JPRB,1.3503E-02_JPRB,1.6713E-02_JPRB/)
+KBO( :, 4,15, 3) = (/&
+&8.2516E-05_JPRB,5.9238E-03_JPRB,1.0452E-02_JPRB,1.4374E-02_JPRB,1.7466E-02_JPRB/)
+KBO( :, 5,15, 3) = (/&
+&1.3728E-04_JPRB,6.5026E-03_JPRB,1.1222E-02_JPRB,1.5161E-02_JPRB,1.8044E-02_JPRB/)
+KBO( :, 1,16, 3) = (/&
+&1.3779E-05_JPRB,3.5660E-03_JPRB,6.6881E-03_JPRB,9.6171E-03_JPRB,1.2220E-02_JPRB/)
+KBO( :, 2,16, 3) = (/&
+&2.3944E-05_JPRB,4.0358E-03_JPRB,7.4057E-03_JPRB,1.0483E-02_JPRB,1.3089E-02_JPRB/)
+KBO( :, 3,16, 3) = (/&
+&4.2620E-05_JPRB,4.5089E-03_JPRB,8.0943E-03_JPRB,1.1266E-02_JPRB,1.3818E-02_JPRB/)
+KBO( :, 4,16, 3) = (/&
+&7.3893E-05_JPRB,4.9861E-03_JPRB,8.7577E-03_JPRB,1.1978E-02_JPRB,1.4391E-02_JPRB/)
+KBO( :, 5,16, 3) = (/&
+&1.2258E-04_JPRB,5.4637E-03_JPRB,9.3940E-03_JPRB,1.2628E-02_JPRB,1.4828E-02_JPRB/)
+KBO( :, 1,17, 3) = (/&
+&1.2160E-05_JPRB,3.0074E-03_JPRB,5.6060E-03_JPRB,8.0296E-03_JPRB,1.0147E-02_JPRB/)
+KBO( :, 2,17, 3) = (/&
+&2.1375E-05_JPRB,3.3935E-03_JPRB,6.1972E-03_JPRB,8.7313E-03_JPRB,1.0830E-02_JPRB/)
+KBO( :, 3,17, 3) = (/&
+&3.8127E-05_JPRB,3.7835E-03_JPRB,6.7643E-03_JPRB,9.3718E-03_JPRB,1.1398E-02_JPRB/)
+KBO( :, 4,17, 3) = (/&
+&6.6011E-05_JPRB,4.1770E-03_JPRB,7.3104E-03_JPRB,9.9575E-03_JPRB,1.1840E-02_JPRB/)
+KBO( :, 5,17, 3) = (/&
+&1.0918E-04_JPRB,4.5738E-03_JPRB,7.8339E-03_JPRB,1.0495E-02_JPRB,1.2173E-02_JPRB/)
+KBO( :, 1,18, 3) = (/&
+&1.0748E-05_JPRB,2.5245E-03_JPRB,4.6847E-03_JPRB,6.6825E-03_JPRB,8.4030E-03_JPRB/)
+KBO( :, 2,18, 3) = (/&
+&1.9076E-05_JPRB,2.8417E-03_JPRB,5.1713E-03_JPRB,7.2560E-03_JPRB,8.9449E-03_JPRB/)
+KBO( :, 3,18, 3) = (/&
+&3.4073E-05_JPRB,3.1636E-03_JPRB,5.6356E-03_JPRB,7.7811E-03_JPRB,9.3891E-03_JPRB/)
+KBO( :, 4,18, 3) = (/&
+&5.8868E-05_JPRB,3.4883E-03_JPRB,6.0850E-03_JPRB,8.2633E-03_JPRB,9.7334E-03_JPRB/)
+KBO( :, 5,18, 3) = (/&
+&9.7060E-05_JPRB,3.8208E-03_JPRB,6.5140E-03_JPRB,8.7058E-03_JPRB,9.9894E-03_JPRB/)
+KBO( :, 1,19, 3) = (/&
+&9.4932E-06_JPRB,2.1111E-03_JPRB,3.9060E-03_JPRB,5.5505E-03_JPRB,6.9419E-03_JPRB/)
+KBO( :, 2,19, 3) = (/&
+&1.6990E-05_JPRB,2.3724E-03_JPRB,4.3041E-03_JPRB,6.0210E-03_JPRB,7.3719E-03_JPRB/)
+KBO( :, 3,19, 3) = (/&
+&3.0379E-05_JPRB,2.6375E-03_JPRB,4.6850E-03_JPRB,6.4526E-03_JPRB,7.7206E-03_JPRB/)
+KBO( :, 4,19, 3) = (/&
+&5.2318E-05_JPRB,2.9073E-03_JPRB,5.0535E-03_JPRB,6.8468E-03_JPRB,7.9880E-03_JPRB/)
+KBO( :, 5,19, 3) = (/&
+&8.5851E-05_JPRB,3.1863E-03_JPRB,5.4069E-03_JPRB,7.2090E-03_JPRB,8.1842E-03_JPRB/)
+KBO( :, 1,20, 3) = (/&
+&8.4621E-06_JPRB,1.7648E-03_JPRB,3.2563E-03_JPRB,4.6122E-03_JPRB,5.7360E-03_JPRB/)
+KBO( :, 2,20, 3) = (/&
+&1.5250E-05_JPRB,1.9802E-03_JPRB,3.5810E-03_JPRB,4.9972E-03_JPRB,6.0779E-03_JPRB/)
+KBO( :, 3,20, 3) = (/&
+&2.7245E-05_JPRB,2.1990E-03_JPRB,3.8932E-03_JPRB,5.3488E-03_JPRB,6.3511E-03_JPRB/)
+KBO( :, 4,20, 3) = (/&
+&4.6707E-05_JPRB,2.4242E-03_JPRB,4.1953E-03_JPRB,5.6710E-03_JPRB,6.5600E-03_JPRB/)
+KBO( :, 5,20, 3) = (/&
+&7.6165E-05_JPRB,2.6575E-03_JPRB,4.4893E-03_JPRB,5.9661E-03_JPRB,6.7108E-03_JPRB/)
+KBO( :, 1,21, 3) = (/&
+&7.5453E-06_JPRB,1.4733E-03_JPRB,2.7104E-03_JPRB,3.8302E-03_JPRB,4.7372E-03_JPRB/)
+KBO( :, 2,21, 3) = (/&
+&1.3660E-05_JPRB,1.6505E-03_JPRB,2.9759E-03_JPRB,4.1434E-03_JPRB,5.0081E-03_JPRB/)
+KBO( :, 3,21, 3) = (/&
+&2.4360E-05_JPRB,1.8325E-03_JPRB,3.2316E-03_JPRB,4.4300E-03_JPRB,5.2232E-03_JPRB/)
+KBO( :, 4,21, 3) = (/&
+&4.1539E-05_JPRB,2.0202E-03_JPRB,3.4804E-03_JPRB,4.6921E-03_JPRB,5.3862E-03_JPRB/)
+KBO( :, 5,21, 3) = (/&
+&6.7226E-05_JPRB,2.2135E-03_JPRB,3.7240E-03_JPRB,4.9321E-03_JPRB,5.5010E-03_JPRB/)
+KBO( :, 1,22, 3) = (/&
+&6.9875E-06_JPRB,1.2377E-03_JPRB,2.2680E-03_JPRB,3.1957E-03_JPRB,3.9253E-03_JPRB/)
+KBO( :, 2,22, 3) = (/&
+&1.2689E-05_JPRB,1.3846E-03_JPRB,2.4844E-03_JPRB,3.4484E-03_JPRB,4.1374E-03_JPRB/)
+KBO( :, 3,22, 3) = (/&
+&2.2485E-05_JPRB,1.5363E-03_JPRB,2.6941E-03_JPRB,3.6801E-03_JPRB,4.3039E-03_JPRB/)
+KBO( :, 4,22, 3) = (/&
+&3.7954E-05_JPRB,1.6925E-03_JPRB,2.8992E-03_JPRB,3.8918E-03_JPRB,4.4280E-03_JPRB/)
+KBO( :, 5,22, 3) = (/&
+&6.0729E-05_JPRB,1.8529E-03_JPRB,3.1002E-03_JPRB,4.0883E-03_JPRB,4.5144E-03_JPRB/)
+KBO( :, 1,23, 3) = (/&
+&6.4953E-06_JPRB,1.0396E-03_JPRB,1.8968E-03_JPRB,2.6642E-03_JPRB,3.2502E-03_JPRB/)
+KBO( :, 2,23, 3) = (/&
+&1.1793E-05_JPRB,1.1619E-03_JPRB,2.0732E-03_JPRB,2.8684E-03_JPRB,3.4159E-03_JPRB/)
+KBO( :, 3,23, 3) = (/&
+&2.0715E-05_JPRB,1.2879E-03_JPRB,2.2459E-03_JPRB,3.0558E-03_JPRB,3.5445E-03_JPRB/)
+KBO( :, 4,23, 3) = (/&
+&3.4551E-05_JPRB,1.4176E-03_JPRB,2.4147E-03_JPRB,3.2275E-03_JPRB,3.6395E-03_JPRB/)
+KBO( :, 5,23, 3) = (/&
+&5.4641E-05_JPRB,1.5512E-03_JPRB,2.5804E-03_JPRB,3.3885E-03_JPRB,3.7034E-03_JPRB/)
+KBO( :, 1,24, 3) = (/&
+&6.0670E-06_JPRB,8.7365E-04_JPRB,1.5859E-03_JPRB,2.2204E-03_JPRB,2.6897E-03_JPRB/)
+KBO( :, 2,24, 3) = (/&
+&1.0981E-05_JPRB,9.7532E-04_JPRB,1.7303E-03_JPRB,2.3852E-03_JPRB,2.8188E-03_JPRB/)
+KBO( :, 3,24, 3) = (/&
+&1.9078E-05_JPRB,1.0799E-03_JPRB,1.8727E-03_JPRB,2.5367E-03_JPRB,2.9175E-03_JPRB/)
+KBO( :, 4,24, 3) = (/&
+&3.1407E-05_JPRB,1.1876E-03_JPRB,2.0114E-03_JPRB,2.6770E-03_JPRB,2.9899E-03_JPRB/)
+KBO( :, 5,24, 3) = (/&
+&4.9067E-05_JPRB,1.2997E-03_JPRB,2.1481E-03_JPRB,2.8086E-03_JPRB,3.0371E-03_JPRB/)
+KBO( :, 1,25, 3) = (/&
+&5.6989E-06_JPRB,7.3485E-04_JPRB,1.3264E-03_JPRB,1.8506E-03_JPRB,2.2259E-03_JPRB/)
+KBO( :, 2,25, 3) = (/&
+&1.0240E-05_JPRB,8.1910E-04_JPRB,1.4452E-03_JPRB,1.9836E-03_JPRB,2.3255E-03_JPRB/)
+KBO( :, 3,25, 3) = (/&
+&1.7580E-05_JPRB,9.0587E-04_JPRB,1.5621E-03_JPRB,2.1066E-03_JPRB,2.4014E-03_JPRB/)
+KBO( :, 4,25, 3) = (/&
+&2.8572E-05_JPRB,9.9581E-04_JPRB,1.6762E-03_JPRB,2.2210E-03_JPRB,2.4559E-03_JPRB/)
+KBO( :, 5,25, 3) = (/&
+&4.4075E-05_JPRB,1.0904E-03_JPRB,1.7895E-03_JPRB,2.3285E-03_JPRB,2.4904E-03_JPRB/)
+KBO( :, 1,26, 3) = (/&
+&5.4044E-06_JPRB,6.1917E-04_JPRB,1.1109E-03_JPRB,1.5435E-03_JPRB,1.8428E-03_JPRB/)
+KBO( :, 2,26, 3) = (/&
+&9.6129E-06_JPRB,6.8903E-04_JPRB,1.2086E-03_JPRB,1.6510E-03_JPRB,1.9194E-03_JPRB/)
+KBO( :, 3,26, 3) = (/&
+&1.6279E-05_JPRB,7.6112E-04_JPRB,1.3044E-03_JPRB,1.7509E-03_JPRB,1.9770E-03_JPRB/)
+KBO( :, 4,26, 3) = (/&
+&2.6098E-05_JPRB,8.3688E-04_JPRB,1.3985E-03_JPRB,1.8442E-03_JPRB,2.0178E-03_JPRB/)
+KBO( :, 5,26, 3) = (/&
+&3.9757E-05_JPRB,9.1748E-04_JPRB,1.4931E-03_JPRB,1.9319E-03_JPRB,2.0426E-03_JPRB/)
+KBO( :, 1,27, 3) = (/&
+&5.1208E-06_JPRB,5.2155E-04_JPRB,9.3033E-04_JPRB,1.2869E-03_JPRB,1.5252E-03_JPRB/)
+KBO( :, 2,27, 3) = (/&
+&9.0050E-06_JPRB,5.7947E-04_JPRB,1.0106E-03_JPRB,1.3741E-03_JPRB,1.5841E-03_JPRB/)
+KBO( :, 3,27, 3) = (/&
+&1.5028E-05_JPRB,6.3999E-04_JPRB,1.0891E-03_JPRB,1.4551E-03_JPRB,1.6279E-03_JPRB/)
+KBO( :, 4,27, 3) = (/&
+&2.3771E-05_JPRB,7.0422E-04_JPRB,1.1674E-03_JPRB,1.5313E-03_JPRB,1.6583E-03_JPRB/)
+KBO( :, 5,27, 3) = (/&
+&3.5789E-05_JPRB,7.7220E-04_JPRB,1.2465E-03_JPRB,1.6033E-03_JPRB,1.6759E-03_JPRB/)
+KBO( :, 1,28, 3) = (/&
+&4.8426E-06_JPRB,4.3932E-04_JPRB,7.7909E-04_JPRB,1.0728E-03_JPRB,1.2619E-03_JPRB/)
+KBO( :, 2,28, 3) = (/&
+&8.4123E-06_JPRB,4.8757E-04_JPRB,8.4493E-04_JPRB,1.1435E-03_JPRB,1.3071E-03_JPRB/)
+KBO( :, 3,28, 3) = (/&
+&1.3833E-05_JPRB,5.3874E-04_JPRB,9.0955E-04_JPRB,1.2094E-03_JPRB,1.3406E-03_JPRB/)
+KBO( :, 4,28, 3) = (/&
+&2.1607E-05_JPRB,5.9328E-04_JPRB,9.7513E-04_JPRB,1.2716E-03_JPRB,1.3629E-03_JPRB/)
+KBO( :, 5,28, 3) = (/&
+&3.2146E-05_JPRB,6.4978E-04_JPRB,1.0416E-03_JPRB,1.3310E-03_JPRB,1.3752E-03_JPRB/)
+KBO( :, 1,29, 3) = (/&
+&4.5849E-06_JPRB,3.7023E-04_JPRB,6.5264E-04_JPRB,8.9457E-04_JPRB,1.0445E-03_JPRB/)
+KBO( :, 2,29, 3) = (/&
+&7.8572E-06_JPRB,4.1089E-04_JPRB,7.0665E-04_JPRB,9.5187E-04_JPRB,1.0793E-03_JPRB/)
+KBO( :, 3,29, 3) = (/&
+&1.2741E-05_JPRB,4.5436E-04_JPRB,7.6034E-04_JPRB,1.0055E-03_JPRB,1.1048E-03_JPRB/)
+KBO( :, 4,29, 3) = (/&
+&1.9649E-05_JPRB,4.9998E-04_JPRB,8.1550E-04_JPRB,1.0566E-03_JPRB,1.1213E-03_JPRB/)
+KBO( :, 5,29, 3) = (/&
+&2.8896E-05_JPRB,5.4682E-04_JPRB,8.7093E-04_JPRB,1.1060E-03_JPRB,1.1298E-03_JPRB/)
+KBO( :, 1,30, 3) = (/&
+&4.3297E-06_JPRB,3.1217E-04_JPRB,5.4663E-04_JPRB,7.4580E-04_JPRB,8.6464E-04_JPRB/)
+KBO( :, 2,30, 3) = (/&
+&7.3120E-06_JPRB,3.4668E-04_JPRB,5.9106E-04_JPRB,7.9232E-04_JPRB,8.9143E-04_JPRB/)
+KBO( :, 3,30, 3) = (/&
+&1.1705E-05_JPRB,3.8338E-04_JPRB,6.3627E-04_JPRB,8.3604E-04_JPRB,9.1074E-04_JPRB/)
+KBO( :, 4,30, 3) = (/&
+&1.7828E-05_JPRB,4.2125E-04_JPRB,6.8249E-04_JPRB,8.7824E-04_JPRB,9.2283E-04_JPRB/)
+KBO( :, 5,30, 3) = (/&
+&2.5924E-05_JPRB,4.5966E-04_JPRB,7.2827E-04_JPRB,9.1964E-04_JPRB,9.2875E-04_JPRB/)
+KBO( :, 1,31, 3) = (/&
+&4.0874E-06_JPRB,2.6368E-04_JPRB,4.5791E-04_JPRB,6.2183E-04_JPRB,7.1613E-04_JPRB/)
+KBO( :, 2,31, 3) = (/&
+&6.8015E-06_JPRB,2.9293E-04_JPRB,4.9490E-04_JPRB,6.5949E-04_JPRB,7.3687E-04_JPRB/)
+KBO( :, 3,31, 3) = (/&
+&1.0746E-05_JPRB,3.2348E-04_JPRB,5.3298E-04_JPRB,6.9547E-04_JPRB,7.5159E-04_JPRB/)
+KBO( :, 4,31, 3) = (/&
+&1.6163E-05_JPRB,3.5480E-04_JPRB,5.7136E-04_JPRB,7.3073E-04_JPRB,7.6056E-04_JPRB/)
+KBO( :, 5,31, 3) = (/&
+&2.3251E-05_JPRB,3.8597E-04_JPRB,6.0897E-04_JPRB,7.6515E-04_JPRB,7.6467E-04_JPRB/)
+KBO( :, 1,32, 3) = (/&
+&3.8514E-06_JPRB,2.2297E-04_JPRB,3.8374E-04_JPRB,5.1829E-04_JPRB,5.9305E-04_JPRB/)
+KBO( :, 2,32, 3) = (/&
+&6.3168E-06_JPRB,2.4754E-04_JPRB,4.1485E-04_JPRB,5.4904E-04_JPRB,6.0924E-04_JPRB/)
+KBO( :, 3,32, 3) = (/&
+&9.8501E-06_JPRB,2.7292E-04_JPRB,4.4681E-04_JPRB,5.7897E-04_JPRB,6.2044E-04_JPRB/)
+KBO( :, 4,32, 3) = (/&
+&1.4638E-05_JPRB,2.9846E-04_JPRB,4.7840E-04_JPRB,6.0852E-04_JPRB,6.2707E-04_JPRB/)
+KBO( :, 5,32, 3) = (/&
+&2.0831E-05_JPRB,3.2361E-04_JPRB,5.0883E-04_JPRB,6.3658E-04_JPRB,6.2999E-04_JPRB/)
+KBO( :, 1,33, 3) = (/&
+&3.6163E-06_JPRB,1.8866E-04_JPRB,3.2190E-04_JPRB,4.3205E-04_JPRB,4.9144E-04_JPRB/)
+KBO( :, 2,33, 3) = (/&
+&5.8503E-06_JPRB,2.0912E-04_JPRB,3.4811E-04_JPRB,4.5736E-04_JPRB,5.0397E-04_JPRB/)
+KBO( :, 3,33, 3) = (/&
+&9.0067E-06_JPRB,2.2999E-04_JPRB,3.7456E-04_JPRB,4.8239E-04_JPRB,5.1238E-04_JPRB/)
+KBO( :, 4,33, 3) = (/&
+&1.3226E-05_JPRB,2.5067E-04_JPRB,4.0039E-04_JPRB,5.0676E-04_JPRB,5.1732E-04_JPRB/)
+KBO( :, 5,33, 3) = (/&
+&1.8631E-05_JPRB,2.7107E-04_JPRB,4.2476E-04_JPRB,5.2963E-04_JPRB,5.1944E-04_JPRB/)
+KBO( :, 1,34, 3) = (/&
+&3.3238E-06_JPRB,1.5902E-04_JPRB,2.6946E-04_JPRB,3.5933E-04_JPRB,4.0648E-04_JPRB/)
+KBO( :, 2,34, 3) = (/&
+&5.3166E-06_JPRB,1.7590E-04_JPRB,2.9135E-04_JPRB,3.8047E-04_JPRB,4.1623E-04_JPRB/)
+KBO( :, 3,34, 3) = (/&
+&8.0935E-06_JPRB,1.9289E-04_JPRB,3.1309E-04_JPRB,4.0135E-04_JPRB,4.2273E-04_JPRB/)
+KBO( :, 4,34, 3) = (/&
+&1.1767E-05_JPRB,2.0963E-04_JPRB,3.3398E-04_JPRB,4.2136E-04_JPRB,4.2646E-04_JPRB/)
+KBO( :, 5,34, 3) = (/&
+&1.6441E-05_JPRB,2.2628E-04_JPRB,3.5340E-04_JPRB,4.3976E-04_JPRB,4.2791E-04_JPRB/)
+KBO( :, 1,35, 3) = (/&
+&2.9067E-06_JPRB,1.3259E-04_JPRB,2.2393E-04_JPRB,2.9733E-04_JPRB,3.3540E-04_JPRB/)
+KBO( :, 2,35, 3) = (/&
+&4.6187E-06_JPRB,1.4644E-04_JPRB,2.4206E-04_JPRB,3.1503E-04_JPRB,3.4321E-04_JPRB/)
+KBO( :, 3,35, 3) = (/&
+&6.9869E-06_JPRB,1.6027E-04_JPRB,2.5990E-04_JPRB,3.3236E-04_JPRB,3.4842E-04_JPRB/)
+KBO( :, 4,35, 3) = (/&
+&1.0104E-05_JPRB,1.7387E-04_JPRB,2.7672E-04_JPRB,3.4881E-04_JPRB,3.5145E-04_JPRB/)
+KBO( :, 5,35, 3) = (/&
+&1.4052E-05_JPRB,1.8746E-04_JPRB,2.9226E-04_JPRB,3.6359E-04_JPRB,3.5262E-04_JPRB/)
+KBO( :, 1,36, 3) = (/&
+&2.4089E-06_JPRB,1.0927E-04_JPRB,1.8451E-04_JPRB,2.4455E-04_JPRB,2.7594E-04_JPRB/)
+KBO( :, 2,36, 3) = (/&
+&3.8233E-06_JPRB,1.2060E-04_JPRB,1.9949E-04_JPRB,2.5938E-04_JPRB,2.8242E-04_JPRB/)
+KBO( :, 3,36, 3) = (/&
+&5.7778E-06_JPRB,1.3185E-04_JPRB,2.1404E-04_JPRB,2.7372E-04_JPRB,2.8680E-04_JPRB/)
+KBO( :, 4,36, 3) = (/&
+&8.3484E-06_JPRB,1.4295E-04_JPRB,2.2765E-04_JPRB,2.8727E-04_JPRB,2.8945E-04_JPRB/)
+KBO( :, 5,36, 3) = (/&
+&1.1603E-05_JPRB,1.5407E-04_JPRB,2.4022E-04_JPRB,2.9918E-04_JPRB,2.9054E-04_JPRB/)
+KBO( :, 1,37, 3) = (/&
+&1.8525E-06_JPRB,8.8636E-05_JPRB,1.5015E-04_JPRB,1.9932E-04_JPRB,2.2585E-04_JPRB/)
+KBO( :, 2,37, 3) = (/&
+&2.9593E-06_JPRB,9.7894E-05_JPRB,1.6249E-04_JPRB,2.1170E-04_JPRB,2.3148E-04_JPRB/)
+KBO( :, 3,37, 3) = (/&
+&4.5018E-06_JPRB,1.0706E-04_JPRB,1.7444E-04_JPRB,2.2370E-04_JPRB,2.3543E-04_JPRB/)
+KBO( :, 4,37, 3) = (/&
+&6.5383E-06_JPRB,1.1615E-04_JPRB,1.8559E-04_JPRB,2.3492E-04_JPRB,2.3791E-04_JPRB/)
+KBO( :, 5,37, 3) = (/&
+&9.1296E-06_JPRB,1.2523E-04_JPRB,1.9593E-04_JPRB,2.4478E-04_JPRB,2.3911E-04_JPRB/)
+KBO( :, 1,38, 3) = (/&
+&1.4171E-06_JPRB,7.1807E-05_JPRB,1.2206E-04_JPRB,1.6233E-04_JPRB,1.8481E-04_JPRB/)
+KBO( :, 2,38, 3) = (/&
+&2.2804E-06_JPRB,7.9379E-05_JPRB,1.3224E-04_JPRB,1.7271E-04_JPRB,1.8979E-04_JPRB/)
+KBO( :, 3,38, 3) = (/&
+&3.4913E-06_JPRB,8.6867E-05_JPRB,1.4204E-04_JPRB,1.8270E-04_JPRB,1.9335E-04_JPRB/)
+KBO( :, 4,38, 3) = (/&
+&5.1024E-06_JPRB,9.4294E-05_JPRB,1.5119E-04_JPRB,1.9201E-04_JPRB,1.9566E-04_JPRB/)
+KBO( :, 5,38, 3) = (/&
+&7.1603E-06_JPRB,1.0172E-04_JPRB,1.5970E-04_JPRB,2.0015E-04_JPRB,1.9689E-04_JPRB/)
+KBO( :, 1,39, 3) = (/&
+&1.0836E-06_JPRB,5.8166E-05_JPRB,9.9215E-05_JPRB,1.3222E-04_JPRB,1.5133E-04_JPRB/)
+KBO( :, 2,39, 3) = (/&
+&1.7555E-06_JPRB,6.4345E-05_JPRB,1.0758E-04_JPRB,1.4088E-04_JPRB,1.5570E-04_JPRB/)
+KBO( :, 3,39, 3) = (/&
+&2.7062E-06_JPRB,7.0477E-05_JPRB,1.1564E-04_JPRB,1.4921E-04_JPRB,1.5890E-04_JPRB/)
+KBO( :, 4,39, 3) = (/&
+&3.9795E-06_JPRB,7.6546E-05_JPRB,1.2316E-04_JPRB,1.5693E-04_JPRB,1.6103E-04_JPRB/)
+KBO( :, 5,39, 3) = (/&
+&5.6128E-06_JPRB,8.2626E-05_JPRB,1.3018E-04_JPRB,1.6363E-04_JPRB,1.6230E-04_JPRB/)
+KBO( :, 1,40, 3) = (/&
+&7.8445E-07_JPRB,4.6585E-05_JPRB,7.9902E-05_JPRB,1.0692E-04_JPRB,1.2321E-04_JPRB/)
+KBO( :, 2,40, 3) = (/&
+&1.2866E-06_JPRB,5.1634E-05_JPRB,8.6802E-05_JPRB,1.1417E-04_JPRB,1.2708E-04_JPRB/)
+KBO( :, 3,40, 3) = (/&
+&2.0073E-06_JPRB,5.6656E-05_JPRB,9.3478E-05_JPRB,1.2114E-04_JPRB,1.2998E-04_JPRB/)
+KBO( :, 4,40, 3) = (/&
+&2.9837E-06_JPRB,6.1628E-05_JPRB,9.9689E-05_JPRB,1.2758E-04_JPRB,1.3201E-04_JPRB/)
+KBO( :, 5,40, 3) = (/&
+&4.2474E-06_JPRB,6.6601E-05_JPRB,1.0552E-04_JPRB,1.3318E-04_JPRB,1.3326E-04_JPRB/)
+KBO( :, 1,41, 3) = (/&
+&5.6200E-07_JPRB,3.7239E-05_JPRB,6.4245E-05_JPRB,8.6338E-05_JPRB,1.0021E-04_JPRB/)
+KBO( :, 2,41, 3) = (/&
+&9.3423E-07_JPRB,4.1365E-05_JPRB,6.9922E-05_JPRB,9.2387E-05_JPRB,1.0362E-04_JPRB/)
+KBO( :, 3,41, 3) = (/&
+&1.4759E-06_JPRB,4.5473E-05_JPRB,7.5442E-05_JPRB,9.8211E-05_JPRB,1.0623E-04_JPRB/)
+KBO( :, 4,41, 3) = (/&
+&2.2204E-06_JPRB,4.9548E-05_JPRB,8.0603E-05_JPRB,1.0362E-04_JPRB,1.0811E-04_JPRB/)
+KBO( :, 5,41, 3) = (/&
+&3.1941E-06_JPRB,5.3616E-05_JPRB,8.5442E-05_JPRB,1.0831E-04_JPRB,1.0933E-04_JPRB/)
+KBO( :, 1,42, 3) = (/&
+&4.0111E-07_JPRB,2.9743E-05_JPRB,5.1608E-05_JPRB,6.9660E-05_JPRB,8.1453E-05_JPRB/)
+KBO( :, 2,42, 3) = (/&
+&6.7588E-07_JPRB,3.3120E-05_JPRB,5.6295E-05_JPRB,7.4726E-05_JPRB,8.4452E-05_JPRB/)
+KBO( :, 3,42, 3) = (/&
+&1.0815E-06_JPRB,3.6481E-05_JPRB,6.0861E-05_JPRB,7.9587E-05_JPRB,8.6802E-05_JPRB/)
+KBO( :, 4,42, 3) = (/&
+&1.6472E-06_JPRB,3.9818E-05_JPRB,6.5135E-05_JPRB,8.4095E-05_JPRB,8.8535E-05_JPRB/)
+KBO( :, 5,42, 3) = (/&
+&2.3953E-06_JPRB,4.3150E-05_JPRB,6.9163E-05_JPRB,8.8053E-05_JPRB,8.9707E-05_JPRB/)
+KBO( :, 1,43, 3) = (/&
+&2.7634E-07_JPRB,2.3586E-05_JPRB,4.1208E-05_JPRB,5.5916E-05_JPRB,6.5980E-05_JPRB/)
+KBO( :, 2,43, 3) = (/&
+&4.7339E-07_JPRB,2.6349E-05_JPRB,4.5082E-05_JPRB,6.0171E-05_JPRB,6.8655E-05_JPRB/)
+KBO( :, 3,43, 3) = (/&
+&7.6946E-07_JPRB,2.9095E-05_JPRB,4.8858E-05_JPRB,6.4228E-05_JPRB,7.0769E-05_JPRB/)
+KBO( :, 4,43, 3) = (/&
+&1.1899E-06_JPRB,3.1831E-05_JPRB,5.2419E-05_JPRB,6.8020E-05_JPRB,7.2392E-05_JPRB/)
+KBO( :, 5,43, 3) = (/&
+&1.7542E-06_JPRB,3.4560E-05_JPRB,5.5769E-05_JPRB,7.1373E-05_JPRB,7.3520E-05_JPRB/)
+KBO( :, 1,44, 3) = (/&
+&1.8677E-07_JPRB,1.8630E-05_JPRB,3.2790E-05_JPRB,4.4748E-05_JPRB,5.3325E-05_JPRB/)
+KBO( :, 2,44, 3) = (/&
+&3.2545E-07_JPRB,2.0878E-05_JPRB,3.5981E-05_JPRB,4.8304E-05_JPRB,5.5702E-05_JPRB/)
+KBO( :, 3,44, 3) = (/&
+&5.3812E-07_JPRB,2.3132E-05_JPRB,3.9119E-05_JPRB,5.1707E-05_JPRB,5.7625E-05_JPRB/)
+KBO( :, 4,44, 3) = (/&
+&8.4624E-07_JPRB,2.5378E-05_JPRB,4.2094E-05_JPRB,5.4904E-05_JPRB,5.9117E-05_JPRB/)
+KBO( :, 5,44, 3) = (/&
+&1.2670E-06_JPRB,2.7605E-05_JPRB,4.4873E-05_JPRB,5.7740E-05_JPRB,6.0210E-05_JPRB/)
+KBO( :, 1,45, 3) = (/&
+&1.2570E-07_JPRB,1.4697E-05_JPRB,2.6055E-05_JPRB,3.5757E-05_JPRB,4.3043E-05_JPRB/)
+KBO( :, 2,45, 3) = (/&
+&2.2228E-07_JPRB,1.6531E-05_JPRB,2.8696E-05_JPRB,3.8740E-05_JPRB,4.5168E-05_JPRB/)
+KBO( :, 3,45, 3) = (/&
+&3.7425E-07_JPRB,1.8375E-05_JPRB,3.1286E-05_JPRB,4.1584E-05_JPRB,4.6892E-05_JPRB/)
+KBO( :, 4,45, 3) = (/&
+&5.9851E-07_JPRB,2.0210E-05_JPRB,3.3765E-05_JPRB,4.4275E-05_JPRB,4.8273E-05_JPRB/)
+KBO( :, 5,45, 3) = (/&
+&9.1064E-07_JPRB,2.2043E-05_JPRB,3.6086E-05_JPRB,4.6686E-05_JPRB,4.9306E-05_JPRB/)
+KBO( :, 1,46, 3) = (/&
+&8.3151E-08_JPRB,1.1545E-05_JPRB,2.0622E-05_JPRB,2.8475E-05_JPRB,3.4643E-05_JPRB/)
+KBO( :, 2,46, 3) = (/&
+&1.4909E-07_JPRB,1.3038E-05_JPRB,2.2804E-05_JPRB,3.0968E-05_JPRB,3.6538E-05_JPRB/)
+KBO( :, 3,46, 3) = (/&
+&2.5589E-07_JPRB,1.4552E-05_JPRB,2.4958E-05_JPRB,3.3368E-05_JPRB,3.8096E-05_JPRB/)
+KBO( :, 4,46, 3) = (/&
+&4.1668E-07_JPRB,1.6050E-05_JPRB,2.7017E-05_JPRB,3.5626E-05_JPRB,3.9358E-05_JPRB/)
+KBO( :, 5,46, 3) = (/&
+&6.4518E-07_JPRB,1.7554E-05_JPRB,2.8957E-05_JPRB,3.7672E-05_JPRB,4.0331E-05_JPRB/)
+KBO( :, 1,47, 3) = (/&
+&5.3540E-08_JPRB,9.0044E-06_JPRB,1.6219E-05_JPRB,2.2547E-05_JPRB,2.7739E-05_JPRB/)
+KBO( :, 2,47, 3) = (/&
+&9.7029E-08_JPRB,1.0218E-05_JPRB,1.8025E-05_JPRB,2.4635E-05_JPRB,2.9430E-05_JPRB/)
+KBO( :, 3,47, 3) = (/&
+&1.6982E-07_JPRB,1.1454E-05_JPRB,1.9806E-05_JPRB,2.6651E-05_JPRB,3.0836E-05_JPRB/)
+KBO( :, 4,47, 3) = (/&
+&2.8228E-07_JPRB,1.2681E-05_JPRB,2.1522E-05_JPRB,2.8552E-05_JPRB,3.1984E-05_JPRB/)
+KBO( :, 5,47, 3) = (/&
+&4.4593E-07_JPRB,1.3911E-05_JPRB,2.3146E-05_JPRB,3.0298E-05_JPRB,3.2902E-05_JPRB/)
+KBO( :, 1,48, 3) = (/&
+&3.4557E-08_JPRB,7.0084E-06_JPRB,1.2731E-05_JPRB,1.7817E-05_JPRB,2.2170E-05_JPRB/)
+KBO( :, 2,48, 3) = (/&
+&6.2743E-08_JPRB,7.9919E-06_JPRB,1.4216E-05_JPRB,1.9554E-05_JPRB,2.3663E-05_JPRB/)
+KBO( :, 3,48, 3) = (/&
+&1.1169E-07_JPRB,8.9994E-06_JPRB,1.5688E-05_JPRB,2.1246E-05_JPRB,2.4930E-05_JPRB/)
+KBO( :, 4,48, 3) = (/&
+&1.8970E-07_JPRB,1.0009E-05_JPRB,1.7121E-05_JPRB,2.2855E-05_JPRB,2.5977E-05_JPRB/)
+KBO( :, 5,48, 3) = (/&
+&3.0578E-07_JPRB,1.1013E-05_JPRB,1.8479E-05_JPRB,2.4337E-05_JPRB,2.6830E-05_JPRB/)
+KBO( :, 1,49, 3) = (/&
+&2.2502E-08_JPRB,5.4403E-06_JPRB,9.9701E-06_JPRB,1.4043E-05_JPRB,1.7685E-05_JPRB/)
+KBO( :, 2,49, 3) = (/&
+&4.0407E-08_JPRB,6.2386E-06_JPRB,1.1187E-05_JPRB,1.5489E-05_JPRB,1.8999E-05_JPRB/)
+KBO( :, 3,49, 3) = (/&
+&7.2903E-08_JPRB,7.0592E-06_JPRB,1.2408E-05_JPRB,1.6909E-05_JPRB,2.0138E-05_JPRB/)
+KBO( :, 4,49, 3) = (/&
+&1.2643E-07_JPRB,7.8874E-06_JPRB,1.3602E-05_JPRB,1.8265E-05_JPRB,2.1093E-05_JPRB/)
+KBO( :, 5,49, 3) = (/&
+&2.0803E-07_JPRB,8.7090E-06_JPRB,1.4734E-05_JPRB,1.9523E-05_JPRB,2.1885E-05_JPRB/)
+KBO( :, 1,50, 3) = (/&
+&1.5095E-08_JPRB,4.2287E-06_JPRB,7.8121E-06_JPRB,1.1070E-05_JPRB,1.4078E-05_JPRB/)
+KBO( :, 2,50, 3) = (/&
+&2.6427E-08_JPRB,4.8766E-06_JPRB,8.8105E-06_JPRB,1.2276E-05_JPRB,1.5222E-05_JPRB/)
+KBO( :, 3,50, 3) = (/&
+&4.7991E-08_JPRB,5.5443E-06_JPRB,9.8192E-06_JPRB,1.3460E-05_JPRB,1.6227E-05_JPRB/)
+KBO( :, 4,50, 3) = (/&
+&8.4675E-08_JPRB,6.2215E-06_JPRB,1.0811E-05_JPRB,1.4600E-05_JPRB,1.7078E-05_JPRB/)
+KBO( :, 5,50, 3) = (/&
+&1.4213E-07_JPRB,6.8957E-06_JPRB,1.1757E-05_JPRB,1.5668E-05_JPRB,1.7797E-05_JPRB/)
+KBO( :, 1,51, 3) = (/&
+&1.0409E-08_JPRB,3.2863E-06_JPRB,6.1164E-06_JPRB,8.7177E-06_JPRB,1.1179E-05_JPRB/)
+KBO( :, 2,51, 3) = (/&
+&1.7475E-08_JPRB,3.8101E-06_JPRB,6.9343E-06_JPRB,9.7209E-06_JPRB,1.2172E-05_JPRB/)
+KBO( :, 3,51, 3) = (/&
+&3.1652E-08_JPRB,4.3546E-06_JPRB,7.7683E-06_JPRB,1.0708E-05_JPRB,1.3048E-05_JPRB/)
+KBO( :, 4,51, 3) = (/&
+&5.6664E-08_JPRB,4.9075E-06_JPRB,8.5891E-06_JPRB,1.1663E-05_JPRB,1.3802E-05_JPRB/)
+KBO( :, 5,51, 3) = (/&
+&9.6978E-08_JPRB,5.4606E-06_JPRB,9.3785E-06_JPRB,1.2566E-05_JPRB,1.4438E-05_JPRB/)
+KBO( :, 1,52, 3) = (/&
+&7.3730E-09_JPRB,2.5481E-06_JPRB,4.7781E-06_JPRB,6.8480E-06_JPRB,8.8551E-06_JPRB/)
+KBO( :, 2,52, 3) = (/&
+&1.1665E-08_JPRB,2.9707E-06_JPRB,5.4480E-06_JPRB,7.6826E-06_JPRB,9.7180E-06_JPRB/)
+KBO( :, 3,52, 3) = (/&
+&2.0839E-08_JPRB,3.4136E-06_JPRB,6.1334E-06_JPRB,8.5017E-06_JPRB,1.0476E-05_JPRB/)
+KBO( :, 4,52, 3) = (/&
+&3.7702E-08_JPRB,3.8651E-06_JPRB,6.8133E-06_JPRB,9.3029E-06_JPRB,1.1144E-05_JPRB/)
+KBO( :, 5,52, 3) = (/&
+&6.5719E-08_JPRB,4.3178E-06_JPRB,7.4715E-06_JPRB,1.0064E-05_JPRB,1.1709E-05_JPRB/)
+KBO( :, 1,53, 3) = (/&
+&5.3750E-09_JPRB,1.9710E-06_JPRB,3.7222E-06_JPRB,5.3652E-06_JPRB,6.9985E-06_JPRB/)
+KBO( :, 2,53, 3) = (/&
+&7.9112E-09_JPRB,2.3105E-06_JPRB,4.2696E-06_JPRB,6.0569E-06_JPRB,7.7450E-06_JPRB/)
+KBO( :, 3,53, 3) = (/&
+&1.3727E-08_JPRB,2.6711E-06_JPRB,4.8332E-06_JPRB,6.7376E-06_JPRB,8.4040E-06_JPRB/)
+KBO( :, 4,53, 3) = (/&
+&2.4945E-08_JPRB,3.0391E-06_JPRB,5.3954E-06_JPRB,7.4078E-06_JPRB,8.9922E-06_JPRB/)
+KBO( :, 5,53, 3) = (/&
+&4.4184E-08_JPRB,3.4095E-06_JPRB,5.9433E-06_JPRB,8.0475E-06_JPRB,9.4957E-06_JPRB/)
+KBO( :, 1,54, 3) = (/&
+&4.0653E-09_JPRB,1.5287E-06_JPRB,2.9053E-06_JPRB,4.2078E-06_JPRB,5.5137E-06_JPRB/)
+KBO( :, 2,54, 3) = (/&
+&5.5613E-09_JPRB,1.8017E-06_JPRB,3.3529E-06_JPRB,4.7820E-06_JPRB,6.1506E-06_JPRB/)
+KBO( :, 3,54, 3) = (/&
+&9.2526E-09_JPRB,2.0941E-06_JPRB,3.8143E-06_JPRB,5.3462E-06_JPRB,6.7127E-06_JPRB/)
+KBO( :, 4,54, 3) = (/&
+&1.6740E-08_JPRB,2.3952E-06_JPRB,4.2796E-06_JPRB,5.9051E-06_JPRB,7.2164E-06_JPRB/)
+KBO( :, 5,54, 3) = (/&
+&3.0031E-08_JPRB,2.6979E-06_JPRB,4.7338E-06_JPRB,6.4403E-06_JPRB,7.6524E-06_JPRB/)
+KBO( :, 1,55, 3) = (/&
+&3.1540E-09_JPRB,1.1858E-06_JPRB,2.2670E-06_JPRB,3.2967E-06_JPRB,4.3283E-06_JPRB/)
+KBO( :, 2,55, 3) = (/&
+&4.0196E-09_JPRB,1.4051E-06_JPRB,2.6332E-06_JPRB,3.7741E-06_JPRB,4.8678E-06_JPRB/)
+KBO( :, 3,55, 3) = (/&
+&6.3379E-09_JPRB,1.6423E-06_JPRB,3.0104E-06_JPRB,4.2413E-06_JPRB,5.3455E-06_JPRB/)
+KBO( :, 4,55, 3) = (/&
+&1.1312E-08_JPRB,1.8877E-06_JPRB,3.3935E-06_JPRB,4.7052E-06_JPRB,5.7689E-06_JPRB/)
+KBO( :, 5,55, 3) = (/&
+&2.0477E-08_JPRB,2.1358E-06_JPRB,3.7709E-06_JPRB,5.1537E-06_JPRB,6.1417E-06_JPRB/)
+KBO( :, 1,56, 3) = (/&
+&2.4885E-09_JPRB,9.1751E-07_JPRB,1.7642E-06_JPRB,2.5751E-06_JPRB,3.3880E-06_JPRB/)
+KBO( :, 2,56, 3) = (/&
+&2.9720E-09_JPRB,1.0942E-06_JPRB,2.0641E-06_JPRB,2.9723E-06_JPRB,3.8440E-06_JPRB/)
+KBO( :, 3,56, 3) = (/&
+&4.3988E-09_JPRB,1.2857E-06_JPRB,2.3716E-06_JPRB,3.3596E-06_JPRB,4.2506E-06_JPRB/)
+KBO( :, 4,56, 3) = (/&
+&7.6547E-09_JPRB,1.4859E-06_JPRB,2.6877E-06_JPRB,3.7438E-06_JPRB,4.6065E-06_JPRB/)
+KBO( :, 5,56, 3) = (/&
+&1.3911E-08_JPRB,1.6888E-06_JPRB,2.9997E-06_JPRB,4.1185E-06_JPRB,4.9232E-06_JPRB/)
+KBO( :, 1,57, 3) = (/&
+&1.9886E-09_JPRB,7.0763E-07_JPRB,1.3683E-06_JPRB,2.0041E-06_JPRB,2.6428E-06_JPRB/)
+KBO( :, 2,57, 3) = (/&
+&2.2504E-09_JPRB,8.5035E-07_JPRB,1.6145E-06_JPRB,2.3353E-06_JPRB,3.0283E-06_JPRB/)
+KBO( :, 3,57, 3) = (/&
+&3.1057E-09_JPRB,1.0047E-06_JPRB,1.8650E-06_JPRB,2.6564E-06_JPRB,3.3731E-06_JPRB/)
+KBO( :, 4,57, 3) = (/&
+&5.1987E-09_JPRB,1.1674E-06_JPRB,2.1248E-06_JPRB,2.9740E-06_JPRB,3.6745E-06_JPRB/)
+KBO( :, 5,57, 3) = (/&
+&9.4155E-09_JPRB,1.3335E-06_JPRB,2.3825E-06_JPRB,3.2869E-06_JPRB,3.9424E-06_JPRB/)
+KBO( :, 1,58, 3) = (/&
+&1.6068E-09_JPRB,5.4596E-07_JPRB,1.0610E-06_JPRB,1.5587E-06_JPRB,2.0582E-06_JPRB/)
+KBO( :, 2,58, 3) = (/&
+&1.7459E-09_JPRB,6.6156E-07_JPRB,1.2631E-06_JPRB,1.8343E-06_JPRB,2.3824E-06_JPRB/)
+KBO( :, 3,58, 3) = (/&
+&2.2524E-09_JPRB,7.8545E-07_JPRB,1.4674E-06_JPRB,2.1005E-06_JPRB,2.6733E-06_JPRB/)
+KBO( :, 4,58, 3) = (/&
+&3.5899E-09_JPRB,9.1799E-07_JPRB,1.6806E-06_JPRB,2.3630E-06_JPRB,2.9296E-06_JPRB/)
+KBO( :, 5,58, 3) = (/&
+&6.4281E-09_JPRB,1.0538E-06_JPRB,1.8933E-06_JPRB,2.6237E-06_JPRB,3.1542E-06_JPRB/)
+KBO( :, 1,59, 3) = (/&
+&1.3115E-09_JPRB,4.3655E-07_JPRB,8.4995E-07_JPRB,1.2498E-06_JPRB,1.6427E-06_JPRB/)
+KBO( :, 2,59, 3) = (/&
+&1.4063E-09_JPRB,5.3104E-07_JPRB,1.0161E-06_JPRB,1.4776E-06_JPRB,1.9087E-06_JPRB/)
+KBO( :, 3,59, 3) = (/&
+&1.7670E-09_JPRB,6.3221E-07_JPRB,1.1839E-06_JPRB,1.6975E-06_JPRB,2.1469E-06_JPRB/)
+KBO( :, 4,59, 3) = (/&
+&2.7538E-09_JPRB,7.4064E-07_JPRB,1.3591E-06_JPRB,1.9143E-06_JPRB,2.3563E-06_JPRB/)
+KBO( :, 5,59, 3) = (/&
+&4.8966E-09_JPRB,8.5194E-07_JPRB,1.5343E-06_JPRB,2.1300E-06_JPRB,2.5372E-06_JPRB/)
+KBO( :, 1,13, 4) = (/&
+&1.4832E-04_JPRB,1.5698E-02_JPRB,2.8434E-02_JPRB,4.0000E-02_JPRB,5.0535E-02_JPRB/)
+KBO( :, 2,13, 4) = (/&
+&2.7354E-04_JPRB,1.7679E-02_JPRB,3.1476E-02_JPRB,4.3634E-02_JPRB,5.4373E-02_JPRB/)
+KBO( :, 3,13, 4) = (/&
+&4.7514E-04_JPRB,1.9768E-02_JPRB,3.4498E-02_JPRB,4.7113E-02_JPRB,5.7896E-02_JPRB/)
+KBO( :, 4,13, 4) = (/&
+&7.6575E-04_JPRB,2.1934E-02_JPRB,3.7431E-02_JPRB,5.0364E-02_JPRB,6.0901E-02_JPRB/)
+KBO( :, 5,13, 4) = (/&
+&1.1458E-03_JPRB,2.4148E-02_JPRB,4.0264E-02_JPRB,5.3231E-02_JPRB,6.3251E-02_JPRB/)
+KBO( :, 1,14, 4) = (/&
+&1.3350E-04_JPRB,1.3782E-02_JPRB,2.4857E-02_JPRB,3.4870E-02_JPRB,4.3573E-02_JPRB/)
+KBO( :, 2,14, 4) = (/&
+&2.4593E-04_JPRB,1.5547E-02_JPRB,2.7509E-02_JPRB,3.8001E-02_JPRB,4.6776E-02_JPRB/)
+KBO( :, 3,14, 4) = (/&
+&4.2506E-04_JPRB,1.7409E-02_JPRB,3.0122E-02_JPRB,4.0944E-02_JPRB,4.9474E-02_JPRB/)
+KBO( :, 4,14, 4) = (/&
+&6.7927E-04_JPRB,1.9326E-02_JPRB,3.2594E-02_JPRB,4.3519E-02_JPRB,5.1527E-02_JPRB/)
+KBO( :, 5,14, 4) = (/&
+&1.0076E-03_JPRB,2.1255E-02_JPRB,3.4899E-02_JPRB,4.5670E-02_JPRB,5.2951E-02_JPRB/)
+KBO( :, 1,15, 4) = (/&
+&1.2065E-04_JPRB,1.2024E-02_JPRB,2.1582E-02_JPRB,3.0176E-02_JPRB,3.7371E-02_JPRB/)
+KBO( :, 2,15, 4) = (/&
+&2.2207E-04_JPRB,1.3580E-02_JPRB,2.3845E-02_JPRB,3.2795E-02_JPRB,3.9887E-02_JPRB/)
+KBO( :, 3,15, 4) = (/&
+&3.8077E-04_JPRB,1.5191E-02_JPRB,2.6000E-02_JPRB,3.5116E-02_JPRB,4.1764E-02_JPRB/)
+KBO( :, 4,15, 4) = (/&
+&6.0257E-04_JPRB,1.6816E-02_JPRB,2.7979E-02_JPRB,3.7046E-02_JPRB,4.3070E-02_JPRB/)
+KBO( :, 5,15, 4) = (/&
+&8.8599E-04_JPRB,1.8418E-02_JPRB,2.9799E-02_JPRB,3.8653E-02_JPRB,4.3914E-02_JPRB/)
+KBO( :, 1,16, 4) = (/&
+&1.0931E-04_JPRB,1.0419E-02_JPRB,1.8587E-02_JPRB,2.5887E-02_JPRB,3.1833E-02_JPRB/)
+KBO( :, 2,16, 4) = (/&
+&2.0062E-04_JPRB,1.1752E-02_JPRB,2.0443E-02_JPRB,2.7962E-02_JPRB,3.3659E-02_JPRB/)
+KBO( :, 3,16, 4) = (/&
+&3.4061E-04_JPRB,1.3095E-02_JPRB,2.2148E-02_JPRB,2.9721E-02_JPRB,3.4939E-02_JPRB/)
+KBO( :, 4,16, 4) = (/&
+&5.3341E-04_JPRB,1.4426E-02_JPRB,2.3724E-02_JPRB,3.1189E-02_JPRB,3.5807E-02_JPRB/)
+KBO( :, 5,16, 4) = (/&
+&7.7707E-04_JPRB,1.5740E-02_JPRB,2.5194E-02_JPRB,3.2443E-02_JPRB,3.6342E-02_JPRB/)
+KBO( :, 1,17, 4) = (/&
+&9.8787E-05_JPRB,8.9488E-03_JPRB,1.5843E-02_JPRB,2.1968E-02_JPRB,2.6812E-02_JPRB/)
+KBO( :, 2,17, 4) = (/&
+&1.8034E-04_JPRB,1.0053E-02_JPRB,1.7312E-02_JPRB,2.3563E-02_JPRB,2.8105E-02_JPRB/)
+KBO( :, 3,17, 4) = (/&
+&3.0330E-04_JPRB,1.1150E-02_JPRB,1.8677E-02_JPRB,2.4918E-02_JPRB,2.9010E-02_JPRB/)
+KBO( :, 4,17, 4) = (/&
+&4.6915E-04_JPRB,1.2239E-02_JPRB,1.9960E-02_JPRB,2.6083E-02_JPRB,2.9616E-02_JPRB/)
+KBO( :, 5,17, 4) = (/&
+&6.7860E-04_JPRB,1.3325E-02_JPRB,2.1171E-02_JPRB,2.7089E-02_JPRB,2.9962E-02_JPRB/)
+KBO( :, 1,18, 4) = (/&
+&8.9115E-05_JPRB,7.6114E-03_JPRB,1.3364E-02_JPRB,1.8461E-02_JPRB,2.2371E-02_JPRB/)
+KBO( :, 2,18, 4) = (/&
+&1.6151E-04_JPRB,8.5146E-03_JPRB,1.4542E-02_JPRB,1.9706E-02_JPRB,2.3318E-02_JPRB/)
+KBO( :, 3,18, 4) = (/&
+&2.6853E-04_JPRB,9.4157E-03_JPRB,1.5660E-02_JPRB,2.0781E-02_JPRB,2.3982E-02_JPRB/)
+KBO( :, 4,18, 4) = (/&
+&4.1020E-04_JPRB,1.0310E-02_JPRB,1.6712E-02_JPRB,2.1721E-02_JPRB,2.4416E-02_JPRB/)
+KBO( :, 5,18, 4) = (/&
+&5.9029E-04_JPRB,1.1212E-02_JPRB,1.7715E-02_JPRB,2.2537E-02_JPRB,2.4643E-02_JPRB/)
+KBO( :, 1,19, 4) = (/&
+&8.0095E-05_JPRB,6.4231E-03_JPRB,1.1196E-02_JPRB,1.5414E-02_JPRB,1.8549E-02_JPRB/)
+KBO( :, 2,19, 4) = (/&
+&1.4382E-04_JPRB,7.1662E-03_JPRB,1.2159E-02_JPRB,1.6403E-02_JPRB,1.9259E-02_JPRB/)
+KBO( :, 3,19, 4) = (/&
+&2.3623E-04_JPRB,7.9047E-03_JPRB,1.3080E-02_JPRB,1.7271E-02_JPRB,1.9754E-02_JPRB/)
+KBO( :, 4,19, 4) = (/&
+&3.5687E-04_JPRB,8.6444E-03_JPRB,1.3944E-02_JPRB,1.8036E-02_JPRB,2.0065E-02_JPRB/)
+KBO( :, 5,19, 4) = (/&
+&5.1169E-04_JPRB,9.3924E-03_JPRB,1.4772E-02_JPRB,1.8710E-02_JPRB,2.0213E-02_JPRB/)
+KBO( :, 1,20, 4) = (/&
+&7.2492E-05_JPRB,5.4035E-03_JPRB,9.3587E-03_JPRB,1.2831E-02_JPRB,1.5342E-02_JPRB/)
+KBO( :, 2,20, 4) = (/&
+&1.2843E-04_JPRB,6.0138E-03_JPRB,1.0150E-02_JPRB,1.3627E-02_JPRB,1.5882E-02_JPRB/)
+KBO( :, 3,20, 4) = (/&
+&2.0800E-04_JPRB,6.6212E-03_JPRB,1.0905E-02_JPRB,1.4334E-02_JPRB,1.6254E-02_JPRB/)
+KBO( :, 4,20, 4) = (/&
+&3.1139E-04_JPRB,7.2334E-03_JPRB,1.1615E-02_JPRB,1.4959E-02_JPRB,1.6478E-02_JPRB/)
+KBO( :, 5,20, 4) = (/&
+&4.4561E-04_JPRB,7.8568E-03_JPRB,1.2299E-02_JPRB,1.5516E-02_JPRB,1.6574E-02_JPRB/)
+KBO( :, 1,21, 4) = (/&
+&6.5335E-05_JPRB,4.5290E-03_JPRB,7.8063E-03_JPRB,1.0655E-02_JPRB,1.2662E-02_JPRB/)
+KBO( :, 2,21, 4) = (/&
+&1.1419E-04_JPRB,5.0316E-03_JPRB,8.4549E-03_JPRB,1.1302E-02_JPRB,1.3077E-02_JPRB/)
+KBO( :, 3,21, 4) = (/&
+&1.8257E-04_JPRB,5.5323E-03_JPRB,9.0718E-03_JPRB,1.1880E-02_JPRB,1.3357E-02_JPRB/)
+KBO( :, 4,21, 4) = (/&
+&2.7150E-04_JPRB,6.0382E-03_JPRB,9.6571E-03_JPRB,1.2392E-02_JPRB,1.3520E-02_JPRB/)
+KBO( :, 5,21, 4) = (/&
+&3.8801E-04_JPRB,6.5620E-03_JPRB,1.0220E-02_JPRB,1.2849E-02_JPRB,1.3582E-02_JPRB/)
+KBO( :, 1,22, 4) = (/&
+&6.0922E-05_JPRB,3.8139E-03_JPRB,6.5357E-03_JPRB,8.8714E-03_JPRB,1.0461E-02_JPRB/)
+KBO( :, 2,22, 4) = (/&
+&1.0454E-04_JPRB,4.2277E-03_JPRB,7.0637E-03_JPRB,9.3969E-03_JPRB,1.0774E-02_JPRB/)
+KBO( :, 3,22, 4) = (/&
+&1.6444E-04_JPRB,4.6414E-03_JPRB,7.5689E-03_JPRB,9.8658E-03_JPRB,1.0980E-02_JPRB/)
+KBO( :, 4,22, 4) = (/&
+&2.4255E-04_JPRB,5.0640E-03_JPRB,8.0491E-03_JPRB,1.0279E-02_JPRB,1.1093E-02_JPRB/)
+KBO( :, 5,22, 4) = (/&
+&3.4545E-04_JPRB,5.5019E-03_JPRB,8.5122E-03_JPRB,1.0654E-02_JPRB,1.1125E-02_JPRB/)
+KBO( :, 1,23, 4) = (/&
+&5.6689E-05_JPRB,3.2067E-03_JPRB,5.4634E-03_JPRB,7.3826E-03_JPRB,8.6316E-03_JPRB/)
+KBO( :, 2,23, 4) = (/&
+&9.5550E-05_JPRB,3.5483E-03_JPRB,5.8959E-03_JPRB,7.8077E-03_JPRB,8.8675E-03_JPRB/)
+KBO( :, 3,23, 4) = (/&
+&1.4822E-04_JPRB,3.8901E-03_JPRB,6.3080E-03_JPRB,8.1829E-03_JPRB,9.0160E-03_JPRB/)
+KBO( :, 4,23, 4) = (/&
+&2.1693E-04_JPRB,4.2438E-03_JPRB,6.7020E-03_JPRB,8.5212E-03_JPRB,9.0932E-03_JPRB/)
+KBO( :, 5,23, 4) = (/&
+&3.0734E-04_JPRB,4.6091E-03_JPRB,7.0873E-03_JPRB,8.8256E-03_JPRB,9.1050E-03_JPRB/)
+KBO( :, 1,24, 4) = (/&
+&5.2736E-05_JPRB,2.6949E-03_JPRB,4.5641E-03_JPRB,6.1416E-03_JPRB,7.1164E-03_JPRB/)
+KBO( :, 2,24, 4) = (/&
+&8.7372E-05_JPRB,2.9764E-03_JPRB,4.9186E-03_JPRB,6.4817E-03_JPRB,7.2904E-03_JPRB/)
+KBO( :, 3,24, 4) = (/&
+&1.3390E-04_JPRB,3.2620E-03_JPRB,5.2557E-03_JPRB,6.7856E-03_JPRB,7.3982E-03_JPRB/)
+KBO( :, 4,24, 4) = (/&
+&1.9446E-04_JPRB,3.5561E-03_JPRB,5.5797E-03_JPRB,7.0599E-03_JPRB,7.4464E-03_JPRB/)
+KBO( :, 5,24, 4) = (/&
+&2.7345E-04_JPRB,3.8596E-03_JPRB,5.8982E-03_JPRB,7.3057E-03_JPRB,7.4438E-03_JPRB/)
+KBO( :, 1,25, 4) = (/&
+&4.9165E-05_JPRB,2.2652E-03_JPRB,3.8124E-03_JPRB,5.1055E-03_JPRB,5.8623E-03_JPRB/)
+KBO( :, 2,25, 4) = (/&
+&8.0068E-05_JPRB,2.4983E-03_JPRB,4.1027E-03_JPRB,5.3800E-03_JPRB,5.9915E-03_JPRB/)
+KBO( :, 3,25, 4) = (/&
+&1.2114E-04_JPRB,2.7360E-03_JPRB,4.3785E-03_JPRB,5.6255E-03_JPRB,6.0673E-03_JPRB/)
+KBO( :, 4,25, 4) = (/&
+&1.7452E-04_JPRB,2.9807E-03_JPRB,4.6460E-03_JPRB,5.8473E-03_JPRB,6.0957E-03_JPRB/)
+KBO( :, 5,25, 4) = (/&
+&2.4297E-04_JPRB,3.2336E-03_JPRB,4.9074E-03_JPRB,6.0470E-03_JPRB,6.0845E-03_JPRB/)
+KBO( :, 1,26, 4) = (/&
+&4.6134E-05_JPRB,1.9065E-03_JPRB,3.1876E-03_JPRB,4.2457E-03_JPRB,4.8285E-03_JPRB/)
+KBO( :, 2,26, 4) = (/&
+&7.3723E-05_JPRB,2.0998E-03_JPRB,3.4240E-03_JPRB,4.4668E-03_JPRB,4.9227E-03_JPRB/)
+KBO( :, 3,26, 4) = (/&
+&1.0992E-04_JPRB,2.2971E-03_JPRB,3.6508E-03_JPRB,4.6650E-03_JPRB,4.9747E-03_JPRB/)
+KBO( :, 4,26, 4) = (/&
+&1.5687E-04_JPRB,2.5009E-03_JPRB,3.8701E-03_JPRB,4.8439E-03_JPRB,4.9884E-03_JPRB/)
+KBO( :, 5,26, 4) = (/&
+&2.1597E-04_JPRB,2.7132E-03_JPRB,4.0857E-03_JPRB,5.0072E-03_JPRB,4.9727E-03_JPRB/)
+KBO( :, 1,27, 4) = (/&
+&4.3156E-05_JPRB,1.6045E-03_JPRB,2.6642E-03_JPRB,3.5293E-03_JPRB,3.9753E-03_JPRB/)
+KBO( :, 2,27, 4) = (/&
+&6.7610E-05_JPRB,1.7645E-03_JPRB,2.8577E-03_JPRB,3.7073E-03_JPRB,4.0435E-03_JPRB/)
+KBO( :, 3,27, 4) = (/&
+&9.9302E-05_JPRB,1.9283E-03_JPRB,3.0434E-03_JPRB,3.8675E-03_JPRB,4.0783E-03_JPRB/)
+KBO( :, 4,27, 4) = (/&
+&1.4035E-04_JPRB,2.0987E-03_JPRB,3.2238E-03_JPRB,4.0126E-03_JPRB,4.0827E-03_JPRB/)
+KBO( :, 5,27, 4) = (/&
+&1.9112E-04_JPRB,2.2790E-03_JPRB,3.4026E-03_JPRB,4.1445E-03_JPRB,4.0645E-03_JPRB/)
+KBO( :, 1,28, 4) = (/&
+&4.0151E-05_JPRB,1.3496E-03_JPRB,2.2256E-03_JPRB,2.9318E-03_JPRB,3.2709E-03_JPRB/)
+KBO( :, 2,28, 4) = (/&
+&6.1693E-05_JPRB,1.4821E-03_JPRB,2.3842E-03_JPRB,3.0756E-03_JPRB,3.3203E-03_JPRB/)
+KBO( :, 3,28, 4) = (/&
+&8.9314E-05_JPRB,1.6183E-03_JPRB,2.5363E-03_JPRB,3.2052E-03_JPRB,3.3423E-03_JPRB/)
+KBO( :, 4,28, 4) = (/&
+&1.2503E-04_JPRB,1.7621E-03_JPRB,2.6850E-03_JPRB,3.3229E-03_JPRB,3.3419E-03_JPRB/)
+KBO( :, 5,28, 4) = (/&
+&1.6847E-04_JPRB,1.9159E-03_JPRB,2.8346E-03_JPRB,3.4298E-03_JPRB,3.3234E-03_JPRB/)
+KBO( :, 1,29, 4) = (/&
+&3.7204E-05_JPRB,1.1357E-03_JPRB,1.8605E-03_JPRB,2.4364E-03_JPRB,2.6925E-03_JPRB/)
+KBO( :, 2,29, 4) = (/&
+&5.6126E-05_JPRB,1.2453E-03_JPRB,1.9896E-03_JPRB,2.5519E-03_JPRB,2.7276E-03_JPRB/)
+KBO( :, 3,29, 4) = (/&
+&8.0329E-05_JPRB,1.3596E-03_JPRB,2.1150E-03_JPRB,2.6576E-03_JPRB,2.7417E-03_JPRB/)
+KBO( :, 4,29, 4) = (/&
+&1.1119E-04_JPRB,1.4821E-03_JPRB,2.2379E-03_JPRB,2.7526E-03_JPRB,2.7376E-03_JPRB/)
+KBO( :, 5,29, 4) = (/&
+&1.4835E-04_JPRB,1.6135E-03_JPRB,2.3653E-03_JPRB,2.8402E-03_JPRB,2.7209E-03_JPRB/)
+KBO( :, 1,30, 4) = (/&
+&3.4278E-05_JPRB,9.5541E-04_JPRB,1.5548E-03_JPRB,2.0242E-03_JPRB,2.2164E-03_JPRB/)
+KBO( :, 2,30, 4) = (/&
+&5.0802E-05_JPRB,1.0465E-03_JPRB,1.6607E-03_JPRB,2.1179E-03_JPRB,2.2411E-03_JPRB/)
+KBO( :, 3,30, 4) = (/&
+&7.2016E-05_JPRB,1.1433E-03_JPRB,1.7631E-03_JPRB,2.2027E-03_JPRB,2.2491E-03_JPRB/)
+KBO( :, 4,30, 4) = (/&
+&9.8522E-05_JPRB,1.2484E-03_JPRB,1.8671E-03_JPRB,2.2807E-03_JPRB,2.2444E-03_JPRB/)
+KBO( :, 5,30, 4) = (/&
+&1.3037E-04_JPRB,1.3590E-03_JPRB,1.9752E-03_JPRB,2.3528E-03_JPRB,2.2289E-03_JPRB/)
+KBO( :, 1,31, 4) = (/&
+&3.1460E-05_JPRB,8.0377E-04_JPRB,1.2994E-03_JPRB,1.6818E-03_JPRB,1.8252E-03_JPRB/)
+KBO( :, 2,31, 4) = (/&
+&4.5877E-05_JPRB,8.8014E-04_JPRB,1.3859E-03_JPRB,1.7575E-03_JPRB,1.8427E-03_JPRB/)
+KBO( :, 3,31, 4) = (/&
+&6.4417E-05_JPRB,9.6356E-04_JPRB,1.4714E-03_JPRB,1.8269E-03_JPRB,1.8476E-03_JPRB/)
+KBO( :, 4,31, 4) = (/&
+&8.7181E-05_JPRB,1.0525E-03_JPRB,1.5596E-03_JPRB,1.8902E-03_JPRB,1.8422E-03_JPRB/)
+KBO( :, 5,31, 4) = (/&
+&1.1453E-04_JPRB,1.1450E-03_JPRB,1.6516E-03_JPRB,1.9513E-03_JPRB,1.8286E-03_JPRB/)
+KBO( :, 1,32, 4) = (/&
+&2.8746E-05_JPRB,6.7650E-04_JPRB,1.0860E-03_JPRB,1.3976E-03_JPRB,1.5036E-03_JPRB/)
+KBO( :, 2,32, 4) = (/&
+&4.1322E-05_JPRB,7.4162E-04_JPRB,1.1570E-03_JPRB,1.4588E-03_JPRB,1.5157E-03_JPRB/)
+KBO( :, 3,32, 4) = (/&
+&5.7453E-05_JPRB,8.1295E-04_JPRB,1.2291E-03_JPRB,1.5152E-03_JPRB,1.5184E-03_JPRB/)
+KBO( :, 4,32, 4) = (/&
+&7.7060E-05_JPRB,8.8760E-04_JPRB,1.3041E-03_JPRB,1.5676E-03_JPRB,1.5130E-03_JPRB/)
+KBO( :, 5,32, 4) = (/&
+&1.0055E-04_JPRB,9.6447E-04_JPRB,1.3816E-03_JPRB,1.6201E-03_JPRB,1.5011E-03_JPRB/)
+KBO( :, 1,33, 4) = (/&
+&2.6149E-05_JPRB,5.6986E-04_JPRB,9.0744E-04_JPRB,1.1611E-03_JPRB,1.2388E-03_JPRB/)
+KBO( :, 2,33, 4) = (/&
+&3.7187E-05_JPRB,6.2590E-04_JPRB,9.6645E-04_JPRB,1.2109E-03_JPRB,1.2475E-03_JPRB/)
+KBO( :, 3,33, 4) = (/&
+&5.1122E-05_JPRB,6.8620E-04_JPRB,1.0278E-03_JPRB,1.2567E-03_JPRB,1.2488E-03_JPRB/)
+KBO( :, 4,33, 4) = (/&
+&6.7992E-05_JPRB,7.4863E-04_JPRB,1.0916E-03_JPRB,1.3015E-03_JPRB,1.2439E-03_JPRB/)
+KBO( :, 5,33, 4) = (/&
+&8.8264E-05_JPRB,8.1165E-04_JPRB,1.1560E-03_JPRB,1.3467E-03_JPRB,1.2339E-03_JPRB/)
+KBO( :, 1,34, 4) = (/&
+&2.3383E-05_JPRB,4.7914E-04_JPRB,7.5656E-04_JPRB,9.6327E-04_JPRB,1.0201E-03_JPRB/)
+KBO( :, 2,34, 4) = (/&
+&3.2952E-05_JPRB,5.2698E-04_JPRB,8.0647E-04_JPRB,1.0038E-03_JPRB,1.0263E-03_JPRB/)
+KBO( :, 3,34, 4) = (/&
+&4.4898E-05_JPRB,5.7759E-04_JPRB,8.5874E-04_JPRB,1.0423E-03_JPRB,1.0268E-03_JPRB/)
+KBO( :, 4,34, 4) = (/&
+&5.9304E-05_JPRB,6.2906E-04_JPRB,9.1184E-04_JPRB,1.0803E-03_JPRB,1.0223E-03_JPRB/)
+KBO( :, 5,34, 4) = (/&
+&7.6697E-05_JPRB,6.8025E-04_JPRB,9.6511E-04_JPRB,1.1186E-03_JPRB,1.0139E-03_JPRB/)
+KBO( :, 1,35, 4) = (/&
+&2.0135E-05_JPRB,3.9961E-04_JPRB,6.2708E-04_JPRB,7.9562E-04_JPRB,8.3915E-04_JPRB/)
+KBO( :, 2,35, 4) = (/&
+&2.8240E-05_JPRB,4.3984E-04_JPRB,6.6953E-04_JPRB,8.2921E-04_JPRB,8.4431E-04_JPRB/)
+KBO( :, 3,35, 4) = (/&
+&3.8284E-05_JPRB,4.8179E-04_JPRB,7.1336E-04_JPRB,8.6176E-04_JPRB,8.4473E-04_JPRB/)
+KBO( :, 4,35, 4) = (/&
+&5.0380E-05_JPRB,5.2399E-04_JPRB,7.5755E-04_JPRB,8.9436E-04_JPRB,8.4105E-04_JPRB/)
+KBO( :, 5,35, 4) = (/&
+&6.4985E-05_JPRB,5.6538E-04_JPRB,8.0096E-04_JPRB,9.2613E-04_JPRB,8.3390E-04_JPRB/)
+KBO( :, 1,36, 4) = (/&
+&1.6672E-05_JPRB,3.3001E-04_JPRB,5.1652E-04_JPRB,6.5429E-04_JPRB,6.8995E-04_JPRB/)
+KBO( :, 2,36, 4) = (/&
+&2.3356E-05_JPRB,3.6341E-04_JPRB,5.5227E-04_JPRB,6.8236E-04_JPRB,6.9447E-04_JPRB/)
+KBO( :, 3,36, 4) = (/&
+&3.1620E-05_JPRB,3.9798E-04_JPRB,5.8880E-04_JPRB,7.1017E-04_JPRB,6.9516E-04_JPRB/)
+KBO( :, 4,36, 4) = (/&
+&4.1586E-05_JPRB,4.3228E-04_JPRB,6.2537E-04_JPRB,7.3771E-04_JPRB,6.9235E-04_JPRB/)
+KBO( :, 5,36, 4) = (/&
+&5.3612E-05_JPRB,4.6581E-04_JPRB,6.6082E-04_JPRB,7.6427E-04_JPRB,6.8669E-04_JPRB/)
+KBO( :, 1,37, 4) = (/&
+&1.3087E-05_JPRB,2.6849E-04_JPRB,4.2115E-04_JPRB,5.3442E-04_JPRB,5.6613E-04_JPRB/)
+KBO( :, 2,37, 4) = (/&
+&1.8389E-05_JPRB,2.9596E-04_JPRB,4.5110E-04_JPRB,5.5819E-04_JPRB,5.7060E-04_JPRB/)
+KBO( :, 3,37, 4) = (/&
+&2.4989E-05_JPRB,3.2427E-04_JPRB,4.8144E-04_JPRB,5.8191E-04_JPRB,5.7172E-04_JPRB/)
+KBO( :, 4,37, 4) = (/&
+&3.2975E-05_JPRB,3.5221E-04_JPRB,5.1177E-04_JPRB,6.0525E-04_JPRB,5.6998E-04_JPRB/)
+KBO( :, 5,37, 4) = (/&
+&4.2603E-05_JPRB,3.7949E-04_JPRB,5.4072E-04_JPRB,6.2738E-04_JPRB,5.6571E-04_JPRB/)
+KBO( :, 1,38, 4) = (/&
+&1.0230E-05_JPRB,2.1818E-04_JPRB,3.4316E-04_JPRB,4.3622E-04_JPRB,4.6452E-04_JPRB/)
+KBO( :, 2,38, 4) = (/&
+&1.4428E-05_JPRB,2.4074E-04_JPRB,3.6819E-04_JPRB,4.5640E-04_JPRB,4.6888E-04_JPRB/)
+KBO( :, 3,38, 4) = (/&
+&1.9697E-05_JPRB,2.6389E-04_JPRB,3.9346E-04_JPRB,4.7668E-04_JPRB,4.7037E-04_JPRB/)
+KBO( :, 4,38, 4) = (/&
+&2.6076E-05_JPRB,2.8667E-04_JPRB,4.1847E-04_JPRB,4.9632E-04_JPRB,4.6943E-04_JPRB/)
+KBO( :, 5,38, 4) = (/&
+&3.3772E-05_JPRB,3.0890E-04_JPRB,4.4212E-04_JPRB,5.1488E-04_JPRB,4.6632E-04_JPRB/)
+KBO( :, 1,39, 4) = (/&
+&7.9957E-06_JPRB,1.7734E-04_JPRB,2.7964E-04_JPRB,3.5608E-04_JPRB,3.8137E-04_JPRB/)
+KBO( :, 2,39, 4) = (/&
+&1.1315E-05_JPRB,1.9578E-04_JPRB,3.0056E-04_JPRB,3.7320E-04_JPRB,3.8548E-04_JPRB/)
+KBO( :, 3,39, 4) = (/&
+&1.5521E-05_JPRB,2.1469E-04_JPRB,3.2152E-04_JPRB,3.9044E-04_JPRB,3.8726E-04_JPRB/)
+KBO( :, 4,39, 4) = (/&
+&2.0623E-05_JPRB,2.3327E-04_JPRB,3.4211E-04_JPRB,4.0694E-04_JPRB,3.8696E-04_JPRB/)
+KBO( :, 5,39, 4) = (/&
+&2.6775E-05_JPRB,2.5145E-04_JPRB,3.6146E-04_JPRB,4.2258E-04_JPRB,3.8472E-04_JPRB/)
+KBO( :, 1,40, 4) = (/&
+&6.0059E-06_JPRB,1.4255E-04_JPRB,2.2608E-04_JPRB,2.8913E-04_JPRB,3.1195E-04_JPRB/)
+KBO( :, 2,40, 4) = (/&
+&8.5603E-06_JPRB,1.5759E-04_JPRB,2.4350E-04_JPRB,3.0367E-04_JPRB,3.1602E-04_JPRB/)
+KBO( :, 3,40, 4) = (/&
+&1.1848E-05_JPRB,1.7303E-04_JPRB,2.6092E-04_JPRB,3.1829E-04_JPRB,3.1800E-04_JPRB/)
+KBO( :, 4,40, 4) = (/&
+&1.5848E-05_JPRB,1.8824E-04_JPRB,2.7792E-04_JPRB,3.3233E-04_JPRB,3.1813E-04_JPRB/)
+KBO( :, 5,40, 4) = (/&
+&2.0655E-05_JPRB,2.0317E-04_JPRB,2.9386E-04_JPRB,3.4558E-04_JPRB,3.1680E-04_JPRB/)
+KBO( :, 1,41, 4) = (/&
+&4.4737E-06_JPRB,1.1440E-04_JPRB,1.8254E-04_JPRB,2.3457E-04_JPRB,2.5497E-04_JPRB/)
+KBO( :, 2,41, 4) = (/&
+&6.4501E-06_JPRB,1.2664E-04_JPRB,1.9704E-04_JPRB,2.4685E-04_JPRB,2.5884E-04_JPRB/)
+KBO( :, 3,41, 4) = (/&
+&8.9908E-06_JPRB,1.3923E-04_JPRB,2.1149E-04_JPRB,2.5926E-04_JPRB,2.6097E-04_JPRB/)
+KBO( :, 4,41, 4) = (/&
+&1.2113E-05_JPRB,1.5171E-04_JPRB,2.2552E-04_JPRB,2.7117E-04_JPRB,2.6150E-04_JPRB/)
+KBO( :, 5,41, 4) = (/&
+&1.5882E-05_JPRB,1.6391E-04_JPRB,2.3860E-04_JPRB,2.8232E-04_JPRB,2.6072E-04_JPRB/)
+KBO( :, 1,42, 4) = (/&
+&3.3198E-06_JPRB,9.1718E-05_JPRB,1.4723E-04_JPRB,1.9011E-04_JPRB,2.0829E-04_JPRB/)
+KBO( :, 2,42, 4) = (/&
+&4.8502E-06_JPRB,1.0170E-04_JPRB,1.5931E-04_JPRB,2.0051E-04_JPRB,2.1195E-04_JPRB/)
+KBO( :, 3,42, 4) = (/&
+&6.8039E-06_JPRB,1.1200E-04_JPRB,1.7132E-04_JPRB,2.1108E-04_JPRB,2.1414E-04_JPRB/)
+KBO( :, 4,42, 4) = (/&
+&9.2426E-06_JPRB,1.2222E-04_JPRB,1.8289E-04_JPRB,2.2117E-04_JPRB,2.1495E-04_JPRB/)
+KBO( :, 5,42, 4) = (/&
+&1.2195E-05_JPRB,1.3221E-04_JPRB,1.9367E-04_JPRB,2.3056E-04_JPRB,2.1462E-04_JPRB/)
+KBO( :, 1,43, 4) = (/&
+&2.3953E-06_JPRB,7.3035E-05_JPRB,1.1812E-04_JPRB,1.5350E-04_JPRB,1.6984E-04_JPRB/)
+KBO( :, 2,43, 4) = (/&
+&3.5612E-06_JPRB,8.1187E-05_JPRB,1.2819E-04_JPRB,1.6232E-04_JPRB,1.7330E-04_JPRB/)
+KBO( :, 3,43, 4) = (/&
+&5.0399E-06_JPRB,8.9542E-05_JPRB,1.3813E-04_JPRB,1.7126E-04_JPRB,1.7552E-04_JPRB/)
+KBO( :, 4,43, 4) = (/&
+&6.9214E-06_JPRB,9.7944E-05_JPRB,1.4772E-04_JPRB,1.7984E-04_JPRB,1.7653E-04_JPRB/)
+KBO( :, 5,43, 4) = (/&
+&9.2081E-06_JPRB,1.0615E-04_JPRB,1.5668E-04_JPRB,1.8781E-04_JPRB,1.7659E-04_JPRB/)
+KBO( :, 1,44, 4) = (/&
+&1.6976E-06_JPRB,5.7928E-05_JPRB,9.4481E-05_JPRB,1.2365E-04_JPRB,1.3829E-04_JPRB/)
+KBO( :, 2,44, 4) = (/&
+&2.5776E-06_JPRB,6.4569E-05_JPRB,1.0281E-04_JPRB,1.3107E-04_JPRB,1.4154E-04_JPRB/)
+KBO( :, 3,44, 4) = (/&
+&3.6914E-06_JPRB,7.1395E-05_JPRB,1.1108E-04_JPRB,1.3867E-04_JPRB,1.4376E-04_JPRB/)
+KBO( :, 4,44, 4) = (/&
+&5.1284E-06_JPRB,7.8255E-05_JPRB,1.1905E-04_JPRB,1.4597E-04_JPRB,1.4496E-04_JPRB/)
+KBO( :, 5,44, 4) = (/&
+&6.8839E-06_JPRB,8.5009E-05_JPRB,1.2651E-04_JPRB,1.5274E-04_JPRB,1.4528E-04_JPRB/)
+KBO( :, 1,45, 4) = (/&
+&1.1934E-06_JPRB,4.5877E-05_JPRB,7.5459E-05_JPRB,9.9465E-05_JPRB,1.1252E-04_JPRB/)
+KBO( :, 2,45, 4) = (/&
+&1.8535E-06_JPRB,5.1319E-05_JPRB,8.2366E-05_JPRB,1.0575E-04_JPRB,1.1552E-04_JPRB/)
+KBO( :, 3,45, 4) = (/&
+&2.7008E-06_JPRB,5.6880E-05_JPRB,8.9246E-05_JPRB,1.1216E-04_JPRB,1.1771E-04_JPRB/)
+KBO( :, 4,45, 4) = (/&
+&3.7837E-06_JPRB,6.2494E-05_JPRB,9.5875E-05_JPRB,1.1839E-04_JPRB,1.1899E-04_JPRB/)
+KBO( :, 5,45, 4) = (/&
+&5.1348E-06_JPRB,6.8027E-05_JPRB,1.0210E-04_JPRB,1.2412E-04_JPRB,1.1954E-04_JPRB/)
+KBO( :, 1,46, 4) = (/&
+&8.2182E-07_JPRB,3.6187E-05_JPRB,6.0090E-05_JPRB,7.9818E-05_JPRB,9.1376E-05_JPRB/)
+KBO( :, 2,46, 4) = (/&
+&1.3116E-06_JPRB,4.0642E-05_JPRB,6.5780E-05_JPRB,8.5120E-05_JPRB,9.4184E-05_JPRB/)
+KBO( :, 3,46, 4) = (/&
+&1.9501E-06_JPRB,4.5184E-05_JPRB,7.1520E-05_JPRB,9.0515E-05_JPRB,9.6278E-05_JPRB/)
+KBO( :, 4,46, 4) = (/&
+&2.7596E-06_JPRB,4.9774E-05_JPRB,7.7042E-05_JPRB,9.5816E-05_JPRB,9.7611E-05_JPRB/)
+KBO( :, 5,46, 4) = (/&
+&3.7920E-06_JPRB,5.4316E-05_JPRB,8.2245E-05_JPRB,1.0070E-04_JPRB,9.8321E-05_JPRB/)
+KBO( :, 1,47, 4) = (/&
+&5.4572E-07_JPRB,2.8352E-05_JPRB,4.7590E-05_JPRB,6.3770E-05_JPRB,7.3936E-05_JPRB/)
+KBO( :, 2,47, 4) = (/&
+&9.0249E-07_JPRB,3.1986E-05_JPRB,5.2255E-05_JPRB,6.8238E-05_JPRB,7.6557E-05_JPRB/)
+KBO( :, 3,47, 4) = (/&
+&1.3764E-06_JPRB,3.5691E-05_JPRB,5.7035E-05_JPRB,7.2769E-05_JPRB,7.8547E-05_JPRB/)
+KBO( :, 4,47, 4) = (/&
+&1.9784E-06_JPRB,3.9441E-05_JPRB,6.1643E-05_JPRB,7.7278E-05_JPRB,7.9920E-05_JPRB/)
+KBO( :, 5,47, 4) = (/&
+&2.7518E-06_JPRB,4.3171E-05_JPRB,6.6014E-05_JPRB,8.1443E-05_JPRB,8.0725E-05_JPRB/)
+KBO( :, 1,48, 4) = (/&
+&3.5613E-07_JPRB,2.2167E-05_JPRB,3.7637E-05_JPRB,5.0854E-05_JPRB,5.9741E-05_JPRB/)
+KBO( :, 2,48, 4) = (/&
+&6.1385E-07_JPRB,2.5120E-05_JPRB,4.1451E-05_JPRB,5.4622E-05_JPRB,6.2174E-05_JPRB/)
+KBO( :, 3,48, 4) = (/&
+&9.6245E-07_JPRB,2.8151E-05_JPRB,4.5401E-05_JPRB,5.8409E-05_JPRB,6.4024E-05_JPRB/)
+KBO( :, 4,48, 4) = (/&
+&1.4130E-06_JPRB,3.1220E-05_JPRB,4.9258E-05_JPRB,6.2234E-05_JPRB,6.5397E-05_JPRB/)
+KBO( :, 5,48, 4) = (/&
+&1.9862E-06_JPRB,3.4268E-05_JPRB,5.2922E-05_JPRB,6.5784E-05_JPRB,6.6274E-05_JPRB/)
+KBO( :, 1,49, 4) = (/&
+&2.2854E-07_JPRB,1.7300E-05_JPRB,2.9705E-05_JPRB,4.0466E-05_JPRB,4.8198E-05_JPRB/)
+KBO( :, 2,49, 4) = (/&
+&4.1152E-07_JPRB,1.9683E-05_JPRB,3.2825E-05_JPRB,4.3649E-05_JPRB,5.0447E-05_JPRB/)
+KBO( :, 3,49, 4) = (/&
+&6.6605E-07_JPRB,2.2175E-05_JPRB,3.6088E-05_JPRB,4.6825E-05_JPRB,5.2181E-05_JPRB/)
+KBO( :, 4,49, 4) = (/&
+&1.0015E-06_JPRB,2.4680E-05_JPRB,3.9305E-05_JPRB,5.0044E-05_JPRB,5.3514E-05_JPRB/)
+KBO( :, 5,49, 4) = (/&
+&1.4253E-06_JPRB,2.7183E-05_JPRB,4.2380E-05_JPRB,5.3073E-05_JPRB,5.4435E-05_JPRB/)
+KBO( :, 1,50, 4) = (/&
+&1.4675E-07_JPRB,1.3524E-05_JPRB,2.3463E-05_JPRB,3.2195E-05_JPRB,3.8796E-05_JPRB/)
+KBO( :, 2,50, 4) = (/&
+&2.7518E-07_JPRB,1.5442E-05_JPRB,2.6020E-05_JPRB,3.4887E-05_JPRB,4.0832E-05_JPRB/)
+KBO( :, 3,50, 4) = (/&
+&4.6153E-07_JPRB,1.7480E-05_JPRB,2.8694E-05_JPRB,3.7541E-05_JPRB,4.2427E-05_JPRB/)
+KBO( :, 4,50, 4) = (/&
+&7.1099E-07_JPRB,1.9535E-05_JPRB,3.1383E-05_JPRB,4.0252E-05_JPRB,4.3676E-05_JPRB/)
+KBO( :, 5,50, 4) = (/&
+&1.0304E-06_JPRB,2.1596E-05_JPRB,3.3959E-05_JPRB,4.2830E-05_JPRB,4.4585E-05_JPRB/)
+KBO( :, 1,51, 4) = (/&
+&9.3830E-08_JPRB,1.0573E-05_JPRB,1.8529E-05_JPRB,2.5594E-05_JPRB,3.1167E-05_JPRB/)
+KBO( :, 2,51, 4) = (/&
+&1.8257E-07_JPRB,1.2113E-05_JPRB,2.0626E-05_JPRB,2.7865E-05_JPRB,3.2983E-05_JPRB/)
+KBO( :, 3,51, 4) = (/&
+&3.1815E-07_JPRB,1.3777E-05_JPRB,2.2807E-05_JPRB,3.0085E-05_JPRB,3.4435E-05_JPRB/)
+KBO( :, 4,51, 4) = (/&
+&5.0296E-07_JPRB,1.5465E-05_JPRB,2.5047E-05_JPRB,3.2352E-05_JPRB,3.5572E-05_JPRB/)
+KBO( :, 5,51, 4) = (/&
+&7.4372E-07_JPRB,1.7150E-05_JPRB,2.7196E-05_JPRB,3.4538E-05_JPRB,3.6442E-05_JPRB/)
+KBO( :, 1,52, 4) = (/&
+&5.9402E-08_JPRB,8.2536E-06_JPRB,1.4613E-05_JPRB,2.0313E-05_JPRB,2.4997E-05_JPRB/)
+KBO( :, 2,52, 4) = (/&
+&1.1950E-07_JPRB,9.4874E-06_JPRB,1.6325E-05_JPRB,2.2218E-05_JPRB,2.6608E-05_JPRB/)
+KBO( :, 3,52, 4) = (/&
+&2.1668E-07_JPRB,1.0839E-05_JPRB,1.8107E-05_JPRB,2.4086E-05_JPRB,2.7927E-05_JPRB/)
+KBO( :, 4,52, 4) = (/&
+&3.5284E-07_JPRB,1.2223E-05_JPRB,1.9960E-05_JPRB,2.5966E-05_JPRB,2.8965E-05_JPRB/)
+KBO( :, 5,52, 4) = (/&
+&5.3348E-07_JPRB,1.3609E-05_JPRB,2.1758E-05_JPRB,2.7822E-05_JPRB,2.9780E-05_JPRB/)
+KBO( :, 1,53, 4) = (/&
+&3.7345E-08_JPRB,6.4324E-06_JPRB,1.1502E-05_JPRB,1.6089E-05_JPRB,2.0014E-05_JPRB/)
+KBO( :, 2,53, 4) = (/&
+&7.7125E-08_JPRB,7.4212E-06_JPRB,1.2900E-05_JPRB,1.7682E-05_JPRB,2.1442E-05_JPRB/)
+KBO( :, 3,53, 4) = (/&
+&1.4542E-07_JPRB,8.5076E-06_JPRB,1.4352E-05_JPRB,1.9246E-05_JPRB,2.2631E-05_JPRB/)
+KBO( :, 4,53, 4) = (/&
+&2.4523E-07_JPRB,9.6460E-06_JPRB,1.5883E-05_JPRB,2.0812E-05_JPRB,2.3585E-05_JPRB/)
+KBO( :, 5,53, 4) = (/&
+&3.7962E-07_JPRB,1.0784E-05_JPRB,1.7382E-05_JPRB,2.2378E-05_JPRB,2.4349E-05_JPRB/)
+KBO( :, 1,54, 4) = (/&
+&2.4018E-08_JPRB,5.0298E-06_JPRB,9.0727E-06_JPRB,1.2757E-05_JPRB,1.5972E-05_JPRB/)
+KBO( :, 2,54, 4) = (/&
+&5.0282E-08_JPRB,5.8191E-06_JPRB,1.0210E-05_JPRB,1.4083E-05_JPRB,1.7202E-05_JPRB/)
+KBO( :, 3,54, 4) = (/&
+&9.8093E-08_JPRB,6.6934E-06_JPRB,1.1398E-05_JPRB,1.5393E-05_JPRB,1.8246E-05_JPRB/)
+KBO( :, 4,54, 4) = (/&
+&1.7136E-07_JPRB,7.6261E-06_JPRB,1.2653E-05_JPRB,1.6695E-05_JPRB,1.9090E-05_JPRB/)
+KBO( :, 5,54, 4) = (/&
+&2.7159E-07_JPRB,8.5620E-06_JPRB,1.3903E-05_JPRB,1.8013E-05_JPRB,1.9768E-05_JPRB/)
+KBO( :, 1,55, 4) = (/&
+&1.5705E-08_JPRB,3.9361E-06_JPRB,7.1560E-06_JPRB,1.0111E-05_JPRB,1.2713E-05_JPRB/)
+KBO( :, 2,55, 4) = (/&
+&3.2852E-08_JPRB,4.5671E-06_JPRB,8.0833E-06_JPRB,1.1215E-05_JPRB,1.3756E-05_JPRB/)
+KBO( :, 3,55, 4) = (/&
+&6.5995E-08_JPRB,5.2691E-06_JPRB,9.0558E-06_JPRB,1.2309E-05_JPRB,1.4658E-05_JPRB/)
+KBO( :, 4,55, 4) = (/&
+&1.1933E-07_JPRB,6.0307E-06_JPRB,1.0082E-05_JPRB,1.3396E-05_JPRB,1.5392E-05_JPRB/)
+KBO( :, 5,55, 4) = (/&
+&1.9407E-07_JPRB,6.7994E-06_JPRB,1.1122E-05_JPRB,1.4497E-05_JPRB,1.5981E-05_JPRB/)
+KBO( :, 1,56, 4) = (/&
+&1.0423E-08_JPRB,3.0764E-06_JPRB,5.6365E-06_JPRB,8.0036E-06_JPRB,1.0107E-05_JPRB/)
+KBO( :, 2,56, 4) = (/&
+&2.1352E-08_JPRB,3.5821E-06_JPRB,6.3947E-06_JPRB,8.9204E-06_JPRB,1.0989E-05_JPRB/)
+KBO( :, 3,56, 4) = (/&
+&4.3941E-08_JPRB,4.1425E-06_JPRB,7.1860E-06_JPRB,9.8275E-06_JPRB,1.1759E-05_JPRB/)
+KBO( :, 4,56, 4) = (/&
+&8.2219E-08_JPRB,4.7612E-06_JPRB,8.0218E-06_JPRB,1.0735E-05_JPRB,1.2399E-05_JPRB/)
+KBO( :, 5,56, 4) = (/&
+&1.3782E-07_JPRB,5.3933E-06_JPRB,8.8859E-06_JPRB,1.1651E-05_JPRB,1.2911E-05_JPRB/)
+KBO( :, 1,57, 4) = (/&
+&7.0716E-09_JPRB,2.4016E-06_JPRB,4.4336E-06_JPRB,6.3273E-06_JPRB,8.0236E-06_JPRB/)
+KBO( :, 2,57, 4) = (/&
+&1.3864E-08_JPRB,2.8058E-06_JPRB,5.0502E-06_JPRB,7.0825E-06_JPRB,8.7616E-06_JPRB/)
+KBO( :, 3,57, 4) = (/&
+&2.8989E-08_JPRB,3.2523E-06_JPRB,5.6949E-06_JPRB,7.8345E-06_JPRB,9.4204E-06_JPRB/)
+KBO( :, 4,57, 4) = (/&
+&5.6049E-08_JPRB,3.7535E-06_JPRB,6.3764E-06_JPRB,8.5926E-06_JPRB,9.9758E-06_JPRB/)
+KBO( :, 5,57, 4) = (/&
+&9.7119E-08_JPRB,4.2717E-06_JPRB,7.0902E-06_JPRB,9.3510E-06_JPRB,1.0422E-05_JPRB/)
+KBO( :, 1,58, 4) = (/&
+&4.9738E-09_JPRB,1.8772E-06_JPRB,3.4889E-06_JPRB,5.0033E-06_JPRB,6.3670E-06_JPRB/)
+KBO( :, 2,58, 4) = (/&
+&9.1491E-09_JPRB,2.2003E-06_JPRB,3.9908E-06_JPRB,5.6234E-06_JPRB,6.9822E-06_JPRB/)
+KBO( :, 3,58, 4) = (/&
+&1.9204E-08_JPRB,2.5577E-06_JPRB,4.5175E-06_JPRB,6.2482E-06_JPRB,7.5411E-06_JPRB/)
+KBO( :, 4,58, 4) = (/&
+&3.8223E-08_JPRB,2.9606E-06_JPRB,5.0708E-06_JPRB,6.8776E-06_JPRB,8.0170E-06_JPRB/)
+KBO( :, 5,58, 4) = (/&
+&6.8398E-08_JPRB,3.3850E-06_JPRB,5.6590E-06_JPRB,7.5062E-06_JPRB,8.4029E-06_JPRB/)
+KBO( :, 1,59, 4) = (/&
+&3.8735E-09_JPRB,1.5107E-06_JPRB,2.8146E-06_JPRB,4.0428E-06_JPRB,5.1269E-06_JPRB/)
+KBO( :, 2,59, 4) = (/&
+&6.9185E-09_JPRB,1.7736E-06_JPRB,3.2266E-06_JPRB,4.5533E-06_JPRB,5.6260E-06_JPRB/)
+KBO( :, 3,59, 4) = (/&
+&1.4484E-08_JPRB,2.0648E-06_JPRB,3.6588E-06_JPRB,5.0704E-06_JPRB,6.0775E-06_JPRB/)
+KBO( :, 4,59, 4) = (/&
+&2.9105E-08_JPRB,2.3952E-06_JPRB,4.1152E-06_JPRB,5.5930E-06_JPRB,6.4648E-06_JPRB/)
+KBO( :, 5,59, 4) = (/&
+&5.2712E-08_JPRB,2.7434E-06_JPRB,4.6004E-06_JPRB,6.1168E-06_JPRB,6.7765E-06_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_B1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B2.F90	(revision 2160)
@@ -0,0 +1,1924 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_B2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KB contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of co2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 5) = (/&
+&9.5206E-04_JPRB,3.5867E-02_JPRB,6.3329E-02_JPRB,8.8273E-02_JPRB,1.0919E-01_JPRB/)
+KBO( :, 2,13, 5) = (/&
+&1.4606E-03_JPRB,3.9499E-02_JPRB,6.8038E-02_JPRB,9.3530E-02_JPRB,1.1392E-01_JPRB/)
+KBO( :, 3,13, 5) = (/&
+&2.1122E-03_JPRB,4.3255E-02_JPRB,7.2755E-02_JPRB,9.8485E-02_JPRB,1.1804E-01_JPRB/)
+KBO( :, 4,13, 5) = (/&
+&2.9342E-03_JPRB,4.7055E-02_JPRB,7.7481E-02_JPRB,1.0325E-01_JPRB,1.2194E-01_JPRB/)
+KBO( :, 5,13, 5) = (/&
+&3.9691E-03_JPRB,5.0998E-02_JPRB,8.2111E-02_JPRB,1.0793E-01_JPRB,1.2556E-01_JPRB/)
+KBO( :, 1,14, 5) = (/&
+&8.3529E-04_JPRB,3.1756E-02_JPRB,5.5904E-02_JPRB,7.7763E-02_JPRB,9.5354E-02_JPRB/)
+KBO( :, 2,14, 5) = (/&
+&1.2709E-03_JPRB,3.5009E-02_JPRB,6.0040E-02_JPRB,8.2374E-02_JPRB,9.9262E-02_JPRB/)
+KBO( :, 3,14, 5) = (/&
+&1.8315E-03_JPRB,3.8336E-02_JPRB,6.4269E-02_JPRB,8.6806E-02_JPRB,1.0290E-01_JPRB/)
+KBO( :, 4,14, 5) = (/&
+&2.5450E-03_JPRB,4.1786E-02_JPRB,6.8525E-02_JPRB,9.1155E-02_JPRB,1.0629E-01_JPRB/)
+KBO( :, 5,14, 5) = (/&
+&3.4515E-03_JPRB,4.5381E-02_JPRB,7.2773E-02_JPRB,9.5396E-02_JPRB,1.0928E-01_JPRB/)
+KBO( :, 1,15, 5) = (/&
+&7.3165E-04_JPRB,2.7921E-02_JPRB,4.8914E-02_JPRB,6.7922E-02_JPRB,8.2662E-02_JPRB/)
+KBO( :, 2,15, 5) = (/&
+&1.1052E-03_JPRB,3.0784E-02_JPRB,5.2602E-02_JPRB,7.1990E-02_JPRB,8.6043E-02_JPRB/)
+KBO( :, 3,15, 5) = (/&
+&1.5893E-03_JPRB,3.3752E-02_JPRB,5.6376E-02_JPRB,7.5928E-02_JPRB,8.9235E-02_JPRB/)
+KBO( :, 4,15, 5) = (/&
+&2.2106E-03_JPRB,3.6890E-02_JPRB,6.0189E-02_JPRB,7.9806E-02_JPRB,9.1982E-02_JPRB/)
+KBO( :, 5,15, 5) = (/&
+&3.0053E-03_JPRB,4.0122E-02_JPRB,6.4009E-02_JPRB,8.3450E-02_JPRB,9.3979E-02_JPRB/)
+KBO( :, 1,16, 5) = (/&
+&6.3939E-04_JPRB,2.4371E-02_JPRB,4.2503E-02_JPRB,5.8900E-02_JPRB,7.1290E-02_JPRB/)
+KBO( :, 2,16, 5) = (/&
+&9.6055E-04_JPRB,2.6877E-02_JPRB,4.5773E-02_JPRB,6.2455E-02_JPRB,7.4252E-02_JPRB/)
+KBO( :, 3,16, 5) = (/&
+&1.3794E-03_JPRB,2.9539E-02_JPRB,4.9114E-02_JPRB,6.5898E-02_JPRB,7.6813E-02_JPRB/)
+KBO( :, 4,16, 5) = (/&
+&1.9216E-03_JPRB,3.2321E-02_JPRB,5.2426E-02_JPRB,6.9093E-02_JPRB,7.8632E-02_JPRB/)
+KBO( :, 5,16, 5) = (/&
+&2.6144E-03_JPRB,3.5146E-02_JPRB,5.5567E-02_JPRB,7.1811E-02_JPRB,7.9616E-02_JPRB/)
+KBO( :, 1,17, 5) = (/&
+&5.5621E-04_JPRB,2.1119E-02_JPRB,3.6702E-02_JPRB,5.0729E-02_JPRB,6.1106E-02_JPRB/)
+KBO( :, 2,17, 5) = (/&
+&8.3232E-04_JPRB,2.3324E-02_JPRB,3.9564E-02_JPRB,5.3768E-02_JPRB,6.3482E-02_JPRB/)
+KBO( :, 3,17, 5) = (/&
+&1.1952E-03_JPRB,2.5644E-02_JPRB,4.2368E-02_JPRB,5.6531E-02_JPRB,6.5194E-02_JPRB/)
+KBO( :, 4,17, 5) = (/&
+&1.6664E-03_JPRB,2.8012E-02_JPRB,4.5051E-02_JPRB,5.8907E-02_JPRB,6.6158E-02_JPRB/)
+KBO( :, 5,17, 5) = (/&
+&2.2697E-03_JPRB,3.0355E-02_JPRB,4.7479E-02_JPRB,6.0879E-02_JPRB,6.6574E-02_JPRB/)
+KBO( :, 1,18, 5) = (/&
+&4.8259E-04_JPRB,1.8188E-02_JPRB,3.1503E-02_JPRB,4.3373E-02_JPRB,5.1944E-02_JPRB/)
+KBO( :, 2,18, 5) = (/&
+&7.2053E-04_JPRB,2.0086E-02_JPRB,3.3870E-02_JPRB,4.5795E-02_JPRB,5.3602E-02_JPRB/)
+KBO( :, 3,18, 5) = (/&
+&1.0344E-03_JPRB,2.2024E-02_JPRB,3.6106E-02_JPRB,4.7862E-02_JPRB,5.4601E-02_JPRB/)
+KBO( :, 4,18, 5) = (/&
+&1.4426E-03_JPRB,2.3955E-02_JPRB,3.8187E-02_JPRB,4.9634E-02_JPRB,5.5105E-02_JPRB/)
+KBO( :, 5,18, 5) = (/&
+&1.9652E-03_JPRB,2.5872E-02_JPRB,4.0129E-02_JPRB,5.1165E-02_JPRB,5.5250E-02_JPRB/)
+KBO( :, 1,19, 5) = (/&
+&4.1792E-04_JPRB,1.5551E-02_JPRB,2.6815E-02_JPRB,3.6748E-02_JPRB,4.3685E-02_JPRB/)
+KBO( :, 2,19, 5) = (/&
+&6.2288E-04_JPRB,1.7122E-02_JPRB,2.8681E-02_JPRB,3.8570E-02_JPRB,4.4726E-02_JPRB/)
+KBO( :, 3,19, 5) = (/&
+&8.9314E-04_JPRB,1.8695E-02_JPRB,3.0435E-02_JPRB,4.0145E-02_JPRB,4.5326E-02_JPRB/)
+KBO( :, 4,19, 5) = (/&
+&1.2454E-03_JPRB,2.0272E-02_JPRB,3.2103E-02_JPRB,4.1538E-02_JPRB,4.5592E-02_JPRB/)
+KBO( :, 5,19, 5) = (/&
+&1.6963E-03_JPRB,2.1865E-02_JPRB,3.3692E-02_JPRB,4.2753E-02_JPRB,4.5589E-02_JPRB/)
+KBO( :, 1,20, 5) = (/&
+&3.6420E-04_JPRB,1.3204E-02_JPRB,2.2627E-02_JPRB,3.0869E-02_JPRB,3.6406E-02_JPRB/)
+KBO( :, 2,20, 5) = (/&
+&5.4128E-04_JPRB,1.4478E-02_JPRB,2.4102E-02_JPRB,3.2269E-02_JPRB,3.7086E-02_JPRB/)
+KBO( :, 3,20, 5) = (/&
+&7.7497E-04_JPRB,1.5768E-02_JPRB,2.5513E-02_JPRB,3.3512E-02_JPRB,3.7454E-02_JPRB/)
+KBO( :, 4,20, 5) = (/&
+&1.0788E-03_JPRB,1.7071E-02_JPRB,2.6877E-02_JPRB,3.4628E-02_JPRB,3.7589E-02_JPRB/)
+KBO( :, 5,20, 5) = (/&
+&1.4684E-03_JPRB,1.8409E-02_JPRB,2.8186E-02_JPRB,3.5595E-02_JPRB,3.7513E-02_JPRB/)
+KBO( :, 1,21, 5) = (/&
+&3.1749E-04_JPRB,1.1126E-02_JPRB,1.8957E-02_JPRB,2.5768E-02_JPRB,3.0157E-02_JPRB/)
+KBO( :, 2,21, 5) = (/&
+&4.7023E-04_JPRB,1.2173E-02_JPRB,2.0148E-02_JPRB,2.6878E-02_JPRB,3.0618E-02_JPRB/)
+KBO( :, 3,21, 5) = (/&
+&6.7172E-04_JPRB,1.3233E-02_JPRB,2.1304E-02_JPRB,2.7875E-02_JPRB,3.0852E-02_JPRB/)
+KBO( :, 4,21, 5) = (/&
+&9.3331E-04_JPRB,1.4327E-02_JPRB,2.2423E-02_JPRB,2.8768E-02_JPRB,3.0908E-02_JPRB/)
+KBO( :, 5,21, 5) = (/&
+&1.2694E-03_JPRB,1.5438E-02_JPRB,2.3509E-02_JPRB,2.9558E-02_JPRB,3.0797E-02_JPRB/)
+KBO( :, 1,22, 5) = (/&
+&2.8408E-04_JPRB,9.3883E-03_JPRB,1.5880E-02_JPRB,2.1492E-02_JPRB,2.4916E-02_JPRB/)
+KBO( :, 2,22, 5) = (/&
+&4.1797E-04_JPRB,1.0249E-02_JPRB,1.6855E-02_JPRB,2.2374E-02_JPRB,2.5222E-02_JPRB/)
+KBO( :, 3,22, 5) = (/&
+&5.9453E-04_JPRB,1.1132E-02_JPRB,1.7800E-02_JPRB,2.3170E-02_JPRB,2.5366E-02_JPRB/)
+KBO( :, 4,22, 5) = (/&
+&8.2301E-04_JPRB,1.2047E-02_JPRB,1.8719E-02_JPRB,2.3894E-02_JPRB,2.5365E-02_JPRB/)
+KBO( :, 5,22, 5) = (/&
+&1.1184E-03_JPRB,1.2973E-02_JPRB,1.9629E-02_JPRB,2.4534E-02_JPRB,2.5237E-02_JPRB/)
+KBO( :, 1,23, 5) = (/&
+&2.5418E-04_JPRB,7.8977E-03_JPRB,1.3269E-02_JPRB,1.7874E-02_JPRB,2.0529E-02_JPRB/)
+KBO( :, 2,23, 5) = (/&
+&3.7141E-04_JPRB,8.6092E-03_JPRB,1.4071E-02_JPRB,1.8581E-02_JPRB,2.0735E-02_JPRB/)
+KBO( :, 3,23, 5) = (/&
+&5.2592E-04_JPRB,9.3501E-03_JPRB,1.4842E-02_JPRB,1.9229E-02_JPRB,2.0817E-02_JPRB/)
+KBO( :, 4,23, 5) = (/&
+&7.2596E-04_JPRB,1.0112E-02_JPRB,1.5610E-02_JPRB,1.9813E-02_JPRB,2.0787E-02_JPRB/)
+KBO( :, 5,23, 5) = (/&
+&9.8686E-04_JPRB,1.0888E-02_JPRB,1.6368E-02_JPRB,2.0340E-02_JPRB,2.0658E-02_JPRB/)
+KBO( :, 1,24, 5) = (/&
+&2.2750E-04_JPRB,6.6317E-03_JPRB,1.1075E-02_JPRB,1.4842E-02_JPRB,1.6884E-02_JPRB/)
+KBO( :, 2,24, 5) = (/&
+&3.3026E-04_JPRB,7.2252E-03_JPRB,1.1728E-02_JPRB,1.5415E-02_JPRB,1.7024E-02_JPRB/)
+KBO( :, 3,24, 5) = (/&
+&4.6578E-04_JPRB,7.8440E-03_JPRB,1.2367E-02_JPRB,1.5941E-02_JPRB,1.7063E-02_JPRB/)
+KBO( :, 4,24, 5) = (/&
+&6.4270E-04_JPRB,8.4805E-03_JPRB,1.3008E-02_JPRB,1.6415E-02_JPRB,1.7016E-02_JPRB/)
+KBO( :, 5,24, 5) = (/&
+&8.7339E-04_JPRB,9.1332E-03_JPRB,1.3636E-02_JPRB,1.6855E-02_JPRB,1.6890E-02_JPRB/)
+KBO( :, 1,25, 5) = (/&
+&2.0394E-04_JPRB,5.5639E-03_JPRB,9.2339E-03_JPRB,1.2315E-02_JPRB,1.3870E-02_JPRB/)
+KBO( :, 2,25, 5) = (/&
+&2.9439E-04_JPRB,6.0615E-03_JPRB,9.7694E-03_JPRB,1.2780E-02_JPRB,1.3961E-02_JPRB/)
+KBO( :, 3,25, 5) = (/&
+&4.1407E-04_JPRB,6.5784E-03_JPRB,1.0303E-02_JPRB,1.3206E-02_JPRB,1.3975E-02_JPRB/)
+KBO( :, 4,25, 5) = (/&
+&5.7180E-04_JPRB,7.1121E-03_JPRB,1.0835E-02_JPRB,1.3598E-02_JPRB,1.3919E-02_JPRB/)
+KBO( :, 5,25, 5) = (/&
+&7.7557E-04_JPRB,7.6591E-03_JPRB,1.1360E-02_JPRB,1.3963E-02_JPRB,1.3799E-02_JPRB/)
+KBO( :, 1,26, 5) = (/&
+&1.8382E-04_JPRB,4.6737E-03_JPRB,7.6992E-03_JPRB,1.0216E-02_JPRB,1.1388E-02_JPRB/)
+KBO( :, 2,26, 5) = (/&
+&2.6412E-04_JPRB,5.0893E-03_JPRB,8.1430E-03_JPRB,1.0593E-02_JPRB,1.1444E-02_JPRB/)
+KBO( :, 3,26, 5) = (/&
+&3.7112E-04_JPRB,5.5248E-03_JPRB,8.5884E-03_JPRB,1.0942E-02_JPRB,1.1439E-02_JPRB/)
+KBO( :, 4,26, 5) = (/&
+&5.1206E-04_JPRB,5.9696E-03_JPRB,9.0299E-03_JPRB,1.1267E-02_JPRB,1.1378E-02_JPRB/)
+KBO( :, 5,26, 5) = (/&
+&6.9168E-04_JPRB,6.4260E-03_JPRB,9.4675E-03_JPRB,1.1565E-02_JPRB,1.1265E-02_JPRB/)
+KBO( :, 1,27, 5) = (/&
+&1.6571E-04_JPRB,3.9248E-03_JPRB,6.4172E-03_JPRB,8.4701E-03_JPRB,9.3451E-03_JPRB/)
+KBO( :, 2,27, 5) = (/&
+&2.3754E-04_JPRB,4.2747E-03_JPRB,6.7865E-03_JPRB,8.7783E-03_JPRB,9.3771E-03_JPRB/)
+KBO( :, 3,27, 5) = (/&
+&3.3337E-04_JPRB,4.6378E-03_JPRB,7.1567E-03_JPRB,9.0646E-03_JPRB,9.3601E-03_JPRB/)
+KBO( :, 4,27, 5) = (/&
+&4.5858E-04_JPRB,5.0089E-03_JPRB,7.5246E-03_JPRB,9.3326E-03_JPRB,9.2999E-03_JPRB/)
+KBO( :, 5,27, 5) = (/&
+&6.1684E-04_JPRB,5.3899E-03_JPRB,7.8886E-03_JPRB,9.5804E-03_JPRB,9.1956E-03_JPRB/)
+KBO( :, 1,28, 5) = (/&
+&1.4962E-04_JPRB,3.2968E-03_JPRB,5.3486E-03_JPRB,7.0211E-03_JPRB,7.6657E-03_JPRB/)
+KBO( :, 2,28, 5) = (/&
+&2.1414E-04_JPRB,3.5906E-03_JPRB,5.6546E-03_JPRB,7.2727E-03_JPRB,7.6801E-03_JPRB/)
+KBO( :, 3,28, 5) = (/&
+&2.9958E-04_JPRB,3.8927E-03_JPRB,5.9643E-03_JPRB,7.5099E-03_JPRB,7.6582E-03_JPRB/)
+KBO( :, 4,28, 5) = (/&
+&4.1038E-04_JPRB,4.2012E-03_JPRB,6.2693E-03_JPRB,7.7298E-03_JPRB,7.5988E-03_JPRB/)
+KBO( :, 5,28, 5) = (/&
+&5.4914E-04_JPRB,4.5240E-03_JPRB,6.5722E-03_JPRB,7.9359E-03_JPRB,7.5057E-03_JPRB/)
+KBO( :, 1,29, 5) = (/&
+&1.3561E-04_JPRB,2.7716E-03_JPRB,4.4584E-03_JPRB,5.8201E-03_JPRB,6.2872E-03_JPRB/)
+KBO( :, 2,29, 5) = (/&
+&1.9362E-04_JPRB,3.0169E-03_JPRB,4.7155E-03_JPRB,6.0283E-03_JPRB,6.2926E-03_JPRB/)
+KBO( :, 3,29, 5) = (/&
+&2.6977E-04_JPRB,3.2683E-03_JPRB,4.9713E-03_JPRB,6.2221E-03_JPRB,6.2669E-03_JPRB/)
+KBO( :, 4,29, 5) = (/&
+&3.6734E-04_JPRB,3.5269E-03_JPRB,5.2257E-03_JPRB,6.4042E-03_JPRB,6.2118E-03_JPRB/)
+KBO( :, 5,29, 5) = (/&
+&4.8841E-04_JPRB,3.8031E-03_JPRB,5.4769E-03_JPRB,6.5743E-03_JPRB,6.1306E-03_JPRB/)
+KBO( :, 1,30, 5) = (/&
+&1.2311E-04_JPRB,2.3299E-03_JPRB,3.7176E-03_JPRB,4.8241E-03_JPRB,5.1561E-03_JPRB/)
+KBO( :, 2,30, 5) = (/&
+&1.7495E-04_JPRB,2.5344E-03_JPRB,3.9319E-03_JPRB,4.9954E-03_JPRB,5.1555E-03_JPRB/)
+KBO( :, 3,30, 5) = (/&
+&2.4248E-04_JPRB,2.7440E-03_JPRB,4.1448E-03_JPRB,5.1563E-03_JPRB,5.1297E-03_JPRB/)
+KBO( :, 4,30, 5) = (/&
+&3.2798E-04_JPRB,2.9629E-03_JPRB,4.3553E-03_JPRB,5.3054E-03_JPRB,5.0790E-03_JPRB/)
+KBO( :, 5,30, 5) = (/&
+&4.3295E-04_JPRB,3.2017E-03_JPRB,4.5670E-03_JPRB,5.4466E-03_JPRB,5.0095E-03_JPRB/)
+KBO( :, 1,31, 5) = (/&
+&1.1192E-04_JPRB,1.9595E-03_JPRB,3.1024E-03_JPRB,4.0004E-03_JPRB,4.2313E-03_JPRB/)
+KBO( :, 2,31, 5) = (/&
+&1.5800E-04_JPRB,2.1296E-03_JPRB,3.2801E-03_JPRB,4.1421E-03_JPRB,4.2268E-03_JPRB/)
+KBO( :, 3,31, 5) = (/&
+&2.1757E-04_JPRB,2.3054E-03_JPRB,3.4565E-03_JPRB,4.2735E-03_JPRB,4.2017E-03_JPRB/)
+KBO( :, 4,31, 5) = (/&
+&2.9222E-04_JPRB,2.4942E-03_JPRB,3.6328E-03_JPRB,4.3970E-03_JPRB,4.1575E-03_JPRB/)
+KBO( :, 5,31, 5) = (/&
+&3.8261E-04_JPRB,2.7007E-03_JPRB,3.8145E-03_JPRB,4.5146E-03_JPRB,4.0989E-03_JPRB/)
+KBO( :, 1,32, 5) = (/&
+&1.0163E-04_JPRB,1.6481E-03_JPRB,2.5899E-03_JPRB,3.3182E-03_JPRB,3.4733E-03_JPRB/)
+KBO( :, 2,32, 5) = (/&
+&1.4246E-04_JPRB,1.7902E-03_JPRB,2.7371E-03_JPRB,3.4345E-03_JPRB,3.4660E-03_JPRB/)
+KBO( :, 3,32, 5) = (/&
+&1.9480E-04_JPRB,1.9398E-03_JPRB,2.8839E-03_JPRB,3.5427E-03_JPRB,3.4424E-03_JPRB/)
+KBO( :, 4,32, 5) = (/&
+&2.5957E-04_JPRB,2.1035E-03_JPRB,3.0336E-03_JPRB,3.6462E-03_JPRB,3.4050E-03_JPRB/)
+KBO( :, 5,32, 5) = (/&
+&3.3711E-04_JPRB,2.2803E-03_JPRB,3.1908E-03_JPRB,3.7450E-03_JPRB,3.3564E-03_JPRB/)
+KBO( :, 1,33, 5) = (/&
+&9.2126E-05_JPRB,1.3862E-03_JPRB,2.1619E-03_JPRB,2.7533E-03_JPRB,2.8512E-03_JPRB/)
+KBO( :, 2,33, 5) = (/&
+&1.2819E-04_JPRB,1.5059E-03_JPRB,2.2846E-03_JPRB,2.8490E-03_JPRB,2.8435E-03_JPRB/)
+KBO( :, 3,33, 5) = (/&
+&1.7396E-04_JPRB,1.6352E-03_JPRB,2.4079E-03_JPRB,2.9394E-03_JPRB,2.8229E-03_JPRB/)
+KBO( :, 4,33, 5) = (/&
+&2.2988E-04_JPRB,1.7763E-03_JPRB,2.5366E-03_JPRB,3.0253E-03_JPRB,2.7916E-03_JPRB/)
+KBO( :, 5,33, 5) = (/&
+&2.9642E-04_JPRB,1.9270E-03_JPRB,2.6736E-03_JPRB,3.1112E-03_JPRB,2.7515E-03_JPRB/)
+KBO( :, 1,34, 5) = (/&
+&8.2273E-05_JPRB,1.1628E-03_JPRB,1.8018E-03_JPRB,2.2821E-03_JPRB,2.3408E-03_JPRB/)
+KBO( :, 2,34, 5) = (/&
+&1.1377E-04_JPRB,1.2650E-03_JPRB,1.9038E-03_JPRB,2.3616E-03_JPRB,2.3330E-03_JPRB/)
+KBO( :, 3,34, 5) = (/&
+&1.5328E-04_JPRB,1.3767E-03_JPRB,2.0090E-03_JPRB,2.4362E-03_JPRB,2.3154E-03_JPRB/)
+KBO( :, 4,34, 5) = (/&
+&2.0116E-04_JPRB,1.4967E-03_JPRB,2.1205E-03_JPRB,2.5102E-03_JPRB,2.2896E-03_JPRB/)
+KBO( :, 5,34, 5) = (/&
+&2.5794E-04_JPRB,1.6239E-03_JPRB,2.2376E-03_JPRB,2.5850E-03_JPRB,2.2567E-03_JPRB/)
+KBO( :, 1,35, 5) = (/&
+&7.0985E-05_JPRB,9.6792E-04_JPRB,1.4935E-03_JPRB,1.8860E-03_JPRB,1.9224E-03_JPRB/)
+KBO( :, 2,35, 5) = (/&
+&9.7802E-05_JPRB,1.0553E-03_JPRB,1.5791E-03_JPRB,1.9515E-03_JPRB,1.9160E-03_JPRB/)
+KBO( :, 3,35, 5) = (/&
+&1.3114E-04_JPRB,1.1504E-03_JPRB,1.6692E-03_JPRB,2.0149E-03_JPRB,1.9021E-03_JPRB/)
+KBO( :, 4,35, 5) = (/&
+&1.7143E-04_JPRB,1.2515E-03_JPRB,1.7654E-03_JPRB,2.0786E-03_JPRB,1.8814E-03_JPRB/)
+KBO( :, 5,35, 5) = (/&
+&2.1910E-04_JPRB,1.3576E-03_JPRB,1.8646E-03_JPRB,2.1453E-03_JPRB,1.8551E-03_JPRB/)
+KBO( :, 1,36, 5) = (/&
+&5.9035E-05_JPRB,7.9892E-04_JPRB,1.2308E-03_JPRB,1.5523E-03_JPRB,1.5795E-03_JPRB/)
+KBO( :, 2,36, 5) = (/&
+&8.1217E-05_JPRB,8.7305E-04_JPRB,1.3026E-03_JPRB,1.6078E-03_JPRB,1.5749E-03_JPRB/)
+KBO( :, 3,36, 5) = (/&
+&1.0874E-04_JPRB,9.5286E-04_JPRB,1.3800E-03_JPRB,1.6617E-03_JPRB,1.5644E-03_JPRB/)
+KBO( :, 4,36, 5) = (/&
+&1.4198E-04_JPRB,1.0374E-03_JPRB,1.4616E-03_JPRB,1.7169E-03_JPRB,1.5482E-03_JPRB/)
+KBO( :, 5,36, 5) = (/&
+&1.8132E-04_JPRB,1.1249E-03_JPRB,1.5450E-03_JPRB,1.7750E-03_JPRB,1.5279E-03_JPRB/)
+KBO( :, 1,37, 5) = (/&
+&4.6641E-05_JPRB,6.5099E-04_JPRB,1.0056E-03_JPRB,1.2714E-03_JPRB,1.2972E-03_JPRB/)
+KBO( :, 2,37, 5) = (/&
+&6.4348E-05_JPRB,7.1292E-04_JPRB,1.0660E-03_JPRB,1.3181E-03_JPRB,1.2951E-03_JPRB/)
+KBO( :, 3,37, 5) = (/&
+&8.6362E-05_JPRB,7.7917E-04_JPRB,1.1314E-03_JPRB,1.3641E-03_JPRB,1.2877E-03_JPRB/)
+KBO( :, 4,37, 5) = (/&
+&1.1309E-04_JPRB,8.4913E-04_JPRB,1.1999E-03_JPRB,1.4118E-03_JPRB,1.2757E-03_JPRB/)
+KBO( :, 5,37, 5) = (/&
+&1.4475E-04_JPRB,9.2097E-04_JPRB,1.2698E-03_JPRB,1.4619E-03_JPRB,1.2601E-03_JPRB/)
+KBO( :, 1,38, 5) = (/&
+&3.6723E-05_JPRB,5.3005E-04_JPRB,8.2089E-04_JPRB,1.0406E-03_JPRB,1.0656E-03_JPRB/)
+KBO( :, 2,38, 5) = (/&
+&5.0809E-05_JPRB,5.8160E-04_JPRB,8.7173E-04_JPRB,1.0802E-03_JPRB,1.0654E-03_JPRB/)
+KBO( :, 3,38, 5) = (/&
+&6.8411E-05_JPRB,6.3671E-04_JPRB,9.2702E-04_JPRB,1.1191E-03_JPRB,1.0602E-03_JPRB/)
+KBO( :, 4,38, 5) = (/&
+&8.9837E-05_JPRB,6.9447E-04_JPRB,9.8469E-04_JPRB,1.1603E-03_JPRB,1.0517E-03_JPRB/)
+KBO( :, 5,38, 5) = (/&
+&1.1531E-04_JPRB,7.5325E-04_JPRB,1.0431E-03_JPRB,1.2032E-03_JPRB,1.0398E-03_JPRB/)
+KBO( :, 1,39, 5) = (/&
+&2.8898E-05_JPRB,4.3158E-04_JPRB,6.7024E-04_JPRB,8.5167E-04_JPRB,8.7586E-04_JPRB/)
+KBO( :, 2,39, 5) = (/&
+&4.0107E-05_JPRB,4.7450E-04_JPRB,7.1291E-04_JPRB,8.8507E-04_JPRB,8.7670E-04_JPRB/)
+KBO( :, 3,39, 5) = (/&
+&5.4168E-05_JPRB,5.2021E-04_JPRB,7.5961E-04_JPRB,9.1815E-04_JPRB,8.7354E-04_JPRB/)
+KBO( :, 4,39, 5) = (/&
+&7.1354E-05_JPRB,5.6789E-04_JPRB,8.0816E-04_JPRB,9.5425E-04_JPRB,8.6787E-04_JPRB/)
+KBO( :, 5,39, 5) = (/&
+&9.1825E-05_JPRB,6.1595E-04_JPRB,8.5693E-04_JPRB,9.9080E-04_JPRB,8.5879E-04_JPRB/)
+KBO( :, 1,40, 5) = (/&
+&2.1926E-05_JPRB,3.4792E-04_JPRB,5.4363E-04_JPRB,6.9406E-04_JPRB,7.1842E-04_JPRB/)
+KBO( :, 2,40, 5) = (/&
+&3.0613E-05_JPRB,3.8334E-04_JPRB,5.7923E-04_JPRB,7.2214E-04_JPRB,7.2011E-04_JPRB/)
+KBO( :, 3,40, 5) = (/&
+&4.1595E-05_JPRB,4.2107E-04_JPRB,6.1835E-04_JPRB,7.5061E-04_JPRB,7.1871E-04_JPRB/)
+KBO( :, 4,40, 5) = (/&
+&5.5108E-05_JPRB,4.6016E-04_JPRB,6.5893E-04_JPRB,7.8109E-04_JPRB,7.1463E-04_JPRB/)
+KBO( :, 5,40, 5) = (/&
+&7.1275E-05_JPRB,4.9940E-04_JPRB,6.9980E-04_JPRB,8.1264E-04_JPRB,7.0800E-04_JPRB/)
+KBO( :, 1,41, 5) = (/&
+&1.6527E-05_JPRB,2.7994E-04_JPRB,4.4041E-04_JPRB,5.6504E-04_JPRB,5.8892E-04_JPRB/)
+KBO( :, 2,41, 5) = (/&
+&2.3240E-05_JPRB,3.0917E-04_JPRB,4.7005E-04_JPRB,5.8887E-04_JPRB,5.9140E-04_JPRB/)
+KBO( :, 3,41, 5) = (/&
+&3.1779E-05_JPRB,3.4025E-04_JPRB,5.0274E-04_JPRB,6.1295E-04_JPRB,5.9095E-04_JPRB/)
+KBO( :, 4,41, 5) = (/&
+&4.2345E-05_JPRB,3.7229E-04_JPRB,5.3669E-04_JPRB,6.3912E-04_JPRB,5.8845E-04_JPRB/)
+KBO( :, 5,41, 5) = (/&
+&5.5088E-05_JPRB,4.0429E-04_JPRB,5.7085E-04_JPRB,6.6587E-04_JPRB,5.8356E-04_JPRB/)
+KBO( :, 1,42, 5) = (/&
+&1.2429E-05_JPRB,2.2514E-04_JPRB,3.5666E-04_JPRB,4.5978E-04_JPRB,4.8268E-04_JPRB/)
+KBO( :, 2,42, 5) = (/&
+&1.7617E-05_JPRB,2.4922E-04_JPRB,3.8130E-04_JPRB,4.8000E-04_JPRB,4.8554E-04_JPRB/)
+KBO( :, 3,42, 5) = (/&
+&2.4234E-05_JPRB,2.7477E-04_JPRB,4.0862E-04_JPRB,5.0042E-04_JPRB,4.8593E-04_JPRB/)
+KBO( :, 4,42, 5) = (/&
+&3.2488E-05_JPRB,3.0100E-04_JPRB,4.3706E-04_JPRB,5.2275E-04_JPRB,4.8456E-04_JPRB/)
+KBO( :, 5,42, 5) = (/&
+&4.2516E-05_JPRB,3.2713E-04_JPRB,4.6549E-04_JPRB,5.4559E-04_JPRB,4.8115E-04_JPRB/)
+KBO( :, 1,43, 5) = (/&
+&9.1288E-06_JPRB,1.7990E-04_JPRB,2.8763E-04_JPRB,3.7307E-04_JPRB,3.9529E-04_JPRB/)
+KBO( :, 2,43, 5) = (/&
+&1.3070E-05_JPRB,1.9955E-04_JPRB,3.0790E-04_JPRB,3.8997E-04_JPRB,3.9826E-04_JPRB/)
+KBO( :, 3,43, 5) = (/&
+&1.8123E-05_JPRB,2.2051E-04_JPRB,3.3057E-04_JPRB,4.0731E-04_JPRB,3.9935E-04_JPRB/)
+KBO( :, 4,43, 5) = (/&
+&2.4489E-05_JPRB,2.4201E-04_JPRB,3.5433E-04_JPRB,4.2614E-04_JPRB,3.9876E-04_JPRB/)
+KBO( :, 5,43, 5) = (/&
+&3.2280E-05_JPRB,2.6336E-04_JPRB,3.7813E-04_JPRB,4.4577E-04_JPRB,3.9669E-04_JPRB/)
+KBO( :, 1,44, 5) = (/&
+&6.6151E-06_JPRB,1.4326E-04_JPRB,2.3138E-04_JPRB,3.0204E-04_JPRB,3.2336E-04_JPRB/)
+KBO( :, 2,44, 5) = (/&
+&9.5822E-06_JPRB,1.5927E-04_JPRB,2.4809E-04_JPRB,3.1644E-04_JPRB,3.2651E-04_JPRB/)
+KBO( :, 3,44, 5) = (/&
+&1.3410E-05_JPRB,1.7639E-04_JPRB,2.6682E-04_JPRB,3.3096E-04_JPRB,3.2809E-04_JPRB/)
+KBO( :, 4,44, 5) = (/&
+&1.8276E-05_JPRB,1.9397E-04_JPRB,2.8664E-04_JPRB,3.4697E-04_JPRB,3.2823E-04_JPRB/)
+KBO( :, 5,44, 5) = (/&
+&2.4286E-05_JPRB,2.1151E-04_JPRB,3.0643E-04_JPRB,3.6349E-04_JPRB,3.2698E-04_JPRB/)
+KBO( :, 1,45, 5) = (/&
+&4.7734E-06_JPRB,1.1403E-04_JPRB,1.8604E-04_JPRB,2.4442E-04_JPRB,2.6449E-04_JPRB/)
+KBO( :, 2,45, 5) = (/&
+&6.9996E-06_JPRB,1.2693E-04_JPRB,1.9973E-04_JPRB,2.5644E-04_JPRB,2.6762E-04_JPRB/)
+KBO( :, 3,45, 5) = (/&
+&9.8982E-06_JPRB,1.4091E-04_JPRB,2.1513E-04_JPRB,2.6865E-04_JPRB,2.6944E-04_JPRB/)
+KBO( :, 4,45, 5) = (/&
+&1.3603E-05_JPRB,1.5533E-04_JPRB,2.3165E-04_JPRB,2.8211E-04_JPRB,2.7010E-04_JPRB/)
+KBO( :, 5,45, 5) = (/&
+&1.8224E-05_JPRB,1.6976E-04_JPRB,2.4816E-04_JPRB,2.9621E-04_JPRB,2.6963E-04_JPRB/)
+KBO( :, 1,46, 5) = (/&
+&3.3983E-06_JPRB,9.0473E-05_JPRB,1.4921E-04_JPRB,1.9732E-04_JPRB,2.1604E-04_JPRB/)
+KBO( :, 2,46, 5) = (/&
+&5.0514E-06_JPRB,1.0084E-04_JPRB,1.6045E-04_JPRB,2.0752E-04_JPRB,2.1916E-04_JPRB/)
+KBO( :, 3,46, 5) = (/&
+&7.2271E-06_JPRB,1.1223E-04_JPRB,1.7305E-04_JPRB,2.1775E-04_JPRB,2.2117E-04_JPRB/)
+KBO( :, 4,46, 5) = (/&
+&1.0026E-05_JPRB,1.2405E-04_JPRB,1.8678E-04_JPRB,2.2906E-04_JPRB,2.2224E-04_JPRB/)
+KBO( :, 5,46, 5) = (/&
+&1.3554E-05_JPRB,1.3592E-04_JPRB,2.0050E-04_JPRB,2.4099E-04_JPRB,2.2226E-04_JPRB/)
+KBO( :, 1,47, 5) = (/&
+&2.3650E-06_JPRB,7.1417E-05_JPRB,1.1919E-04_JPRB,1.5882E-04_JPRB,1.7611E-04_JPRB/)
+KBO( :, 2,47, 5) = (/&
+&3.5679E-06_JPRB,7.9650E-05_JPRB,1.2838E-04_JPRB,1.6748E-04_JPRB,1.7919E-04_JPRB/)
+KBO( :, 3,47, 5) = (/&
+&5.1778E-06_JPRB,8.8892E-05_JPRB,1.3863E-04_JPRB,1.7599E-04_JPRB,1.8128E-04_JPRB/)
+KBO( :, 4,47, 5) = (/&
+&7.2636E-06_JPRB,9.8532E-05_JPRB,1.4995E-04_JPRB,1.8532E-04_JPRB,1.8257E-04_JPRB/)
+KBO( :, 5,47, 5) = (/&
+&9.9200E-06_JPRB,1.0829E-04_JPRB,1.6134E-04_JPRB,1.9543E-04_JPRB,1.8296E-04_JPRB/)
+KBO( :, 1,48, 5) = (/&
+&1.6346E-06_JPRB,5.6335E-05_JPRB,9.5109E-05_JPRB,1.2769E-04_JPRB,1.4342E-04_JPRB/)
+KBO( :, 2,48, 5) = (/&
+&2.5038E-06_JPRB,6.2854E-05_JPRB,1.0261E-04_JPRB,1.3493E-04_JPRB,1.4636E-04_JPRB/)
+KBO( :, 3,48, 5) = (/&
+&3.6896E-06_JPRB,7.0296E-05_JPRB,1.1094E-04_JPRB,1.4209E-04_JPRB,1.4851E-04_JPRB/)
+KBO( :, 4,48, 5) = (/&
+&5.2406E-06_JPRB,7.8146E-05_JPRB,1.2020E-04_JPRB,1.4978E-04_JPRB,1.4992E-04_JPRB/)
+KBO( :, 5,48, 5) = (/&
+&7.2291E-06_JPRB,8.6170E-05_JPRB,1.2966E-04_JPRB,1.5832E-04_JPRB,1.5064E-04_JPRB/)
+KBO( :, 1,49, 5) = (/&
+&1.1213E-06_JPRB,4.4399E-05_JPRB,7.5829E-05_JPRB,1.0254E-04_JPRB,1.1671E-04_JPRB/)
+KBO( :, 2,49, 5) = (/&
+&1.7465E-06_JPRB,4.9565E-05_JPRB,8.1954E-05_JPRB,1.0863E-04_JPRB,1.1954E-04_JPRB/)
+KBO( :, 3,49, 5) = (/&
+&2.6146E-06_JPRB,5.5485E-05_JPRB,8.8647E-05_JPRB,1.1460E-04_JPRB,1.2164E-04_JPRB/)
+KBO( :, 4,49, 5) = (/&
+&3.7631E-06_JPRB,6.1900E-05_JPRB,9.6246E-05_JPRB,1.2097E-04_JPRB,1.2315E-04_JPRB/)
+KBO( :, 5,49, 5) = (/&
+&5.2478E-06_JPRB,6.8486E-05_JPRB,1.0411E-04_JPRB,1.2810E-04_JPRB,1.2412E-04_JPRB/)
+KBO( :, 1,50, 5) = (/&
+&7.7219E-07_JPRB,3.5060E-05_JPRB,6.0501E-05_JPRB,8.2333E-05_JPRB,9.4799E-05_JPRB/)
+KBO( :, 2,50, 5) = (/&
+&1.2243E-06_JPRB,3.9171E-05_JPRB,6.5508E-05_JPRB,8.7444E-05_JPRB,9.7433E-05_JPRB/)
+KBO( :, 3,50, 5) = (/&
+&1.8601E-06_JPRB,4.3898E-05_JPRB,7.0971E-05_JPRB,9.2481E-05_JPRB,9.9443E-05_JPRB/)
+KBO( :, 4,50, 5) = (/&
+&2.7138E-06_JPRB,4.9113E-05_JPRB,7.7142E-05_JPRB,9.7774E-05_JPRB,1.0093E-04_JPRB/)
+KBO( :, 5,50, 5) = (/&
+&3.8270E-06_JPRB,5.4504E-05_JPRB,8.3666E-05_JPRB,1.0372E-04_JPRB,1.0197E-04_JPRB/)
+KBO( :, 1,51, 5) = (/&
+&5.3024E-07_JPRB,2.7696E-05_JPRB,4.8261E-05_JPRB,6.6083E-05_JPRB,7.6892E-05_JPRB/)
+KBO( :, 2,51, 5) = (/&
+&8.5735E-07_JPRB,3.0983E-05_JPRB,5.2368E-05_JPRB,7.0412E-05_JPRB,7.9289E-05_JPRB/)
+KBO( :, 3,51, 5) = (/&
+&1.3218E-06_JPRB,3.4738E-05_JPRB,5.6824E-05_JPRB,7.4609E-05_JPRB,8.1180E-05_JPRB/)
+KBO( :, 4,51, 5) = (/&
+&1.9559E-06_JPRB,3.8961E-05_JPRB,6.1833E-05_JPRB,7.8998E-05_JPRB,8.2596E-05_JPRB/)
+KBO( :, 5,51, 5) = (/&
+&2.7897E-06_JPRB,4.3372E-05_JPRB,6.7221E-05_JPRB,8.3927E-05_JPRB,8.3636E-05_JPRB/)
+KBO( :, 1,52, 5) = (/&
+&3.6108E-07_JPRB,2.1866E-05_JPRB,3.8454E-05_JPRB,5.2969E-05_JPRB,6.2335E-05_JPRB/)
+KBO( :, 2,52, 5) = (/&
+&5.9667E-07_JPRB,2.4493E-05_JPRB,4.1837E-05_JPRB,5.6625E-05_JPRB,6.4483E-05_JPRB/)
+KBO( :, 3,52, 5) = (/&
+&9.3484E-07_JPRB,2.7465E-05_JPRB,4.5448E-05_JPRB,6.0126E-05_JPRB,6.6246E-05_JPRB/)
+KBO( :, 4,52, 5) = (/&
+&1.4036E-06_JPRB,3.0877E-05_JPRB,4.9517E-05_JPRB,6.3789E-05_JPRB,6.7578E-05_JPRB/)
+KBO( :, 5,52, 5) = (/&
+&2.0268E-06_JPRB,3.4479E-05_JPRB,5.3935E-05_JPRB,6.7855E-05_JPRB,6.8602E-05_JPRB/)
+KBO( :, 1,53, 5) = (/&
+&2.4332E-07_JPRB,1.7244E-05_JPRB,3.0597E-05_JPRB,4.2405E-05_JPRB,5.0498E-05_JPRB/)
+KBO( :, 2,53, 5) = (/&
+&4.1214E-07_JPRB,1.9345E-05_JPRB,3.3390E-05_JPRB,4.5480E-05_JPRB,5.2422E-05_JPRB/)
+KBO( :, 3,53, 5) = (/&
+&6.5730E-07_JPRB,2.1709E-05_JPRB,3.6329E-05_JPRB,4.8415E-05_JPRB,5.4043E-05_JPRB/)
+KBO( :, 4,53, 5) = (/&
+&1.0016E-06_JPRB,2.4434E-05_JPRB,3.9600E-05_JPRB,5.1439E-05_JPRB,5.5301E-05_JPRB/)
+KBO( :, 5,53, 5) = (/&
+&1.4656E-06_JPRB,2.7368E-05_JPRB,4.3227E-05_JPRB,5.4790E-05_JPRB,5.6292E-05_JPRB/)
+KBO( :, 1,54, 5) = (/&
+&1.6511E-07_JPRB,1.3630E-05_JPRB,2.4378E-05_JPRB,3.3979E-05_JPRB,4.0794E-05_JPRB/)
+KBO( :, 2,54, 5) = (/&
+&2.8688E-07_JPRB,1.5326E-05_JPRB,2.6694E-05_JPRB,3.6556E-05_JPRB,4.2472E-05_JPRB/)
+KBO( :, 3,54, 5) = (/&
+&4.6588E-07_JPRB,1.7208E-05_JPRB,2.9089E-05_JPRB,3.9026E-05_JPRB,4.3891E-05_JPRB/)
+KBO( :, 4,54, 5) = (/&
+&7.2012E-07_JPRB,1.9389E-05_JPRB,3.1742E-05_JPRB,4.1533E-05_JPRB,4.5023E-05_JPRB/)
+KBO( :, 5,54, 5) = (/&
+&1.0672E-06_JPRB,2.1776E-05_JPRB,3.4708E-05_JPRB,4.4305E-05_JPRB,4.5917E-05_JPRB/)
+KBO( :, 1,55, 5) = (/&
+&1.1192E-07_JPRB,1.0784E-05_JPRB,1.9433E-05_JPRB,2.7227E-05_JPRB,3.2881E-05_JPRB/)
+KBO( :, 2,55, 5) = (/&
+&1.9966E-07_JPRB,1.2152E-05_JPRB,2.1341E-05_JPRB,2.9385E-05_JPRB,3.4331E-05_JPRB/)
+KBO( :, 3,55, 5) = (/&
+&3.3052E-07_JPRB,1.3654E-05_JPRB,2.3300E-05_JPRB,3.1458E-05_JPRB,3.5546E-05_JPRB/)
+KBO( :, 4,55, 5) = (/&
+&5.1840E-07_JPRB,1.5395E-05_JPRB,2.5450E-05_JPRB,3.3531E-05_JPRB,3.6538E-05_JPRB/)
+KBO( :, 5,55, 5) = (/&
+&7.7808E-07_JPRB,1.7333E-05_JPRB,2.7868E-05_JPRB,3.5813E-05_JPRB,3.7304E-05_JPRB/)
+KBO( :, 1,56, 5) = (/&
+&7.5122E-08_JPRB,8.5244E-06_JPRB,1.5477E-05_JPRB,2.1786E-05_JPRB,2.6473E-05_JPRB/)
+KBO( :, 2,56, 5) = (/&
+&1.3800E-07_JPRB,9.6271E-06_JPRB,1.7041E-05_JPRB,2.3587E-05_JPRB,2.7734E-05_JPRB/)
+KBO( :, 3,56, 5) = (/&
+&2.3328E-07_JPRB,1.0832E-05_JPRB,1.8654E-05_JPRB,2.5333E-05_JPRB,2.8773E-05_JPRB/)
+KBO( :, 4,56, 5) = (/&
+&3.7175E-07_JPRB,1.2217E-05_JPRB,2.0395E-05_JPRB,2.7050E-05_JPRB,2.9637E-05_JPRB/)
+KBO( :, 5,56, 5) = (/&
+&5.6529E-07_JPRB,1.3785E-05_JPRB,2.2358E-05_JPRB,2.8934E-05_JPRB,3.0300E-05_JPRB/)
+KBO( :, 1,57, 5) = (/&
+&4.9911E-08_JPRB,6.7334E-06_JPRB,1.2315E-05_JPRB,1.7411E-05_JPRB,2.1292E-05_JPRB/)
+KBO( :, 2,57, 5) = (/&
+&9.4564E-08_JPRB,7.6208E-06_JPRB,1.3595E-05_JPRB,1.8912E-05_JPRB,2.2387E-05_JPRB/)
+KBO( :, 3,57, 5) = (/&
+&1.6361E-07_JPRB,8.5900E-06_JPRB,1.4922E-05_JPRB,2.0379E-05_JPRB,2.3279E-05_JPRB/)
+KBO( :, 4,57, 5) = (/&
+&2.6533E-07_JPRB,9.6896E-06_JPRB,1.6333E-05_JPRB,2.1806E-05_JPRB,2.4024E-05_JPRB/)
+KBO( :, 5,57, 5) = (/&
+&4.0896E-07_JPRB,1.0955E-05_JPRB,1.7923E-05_JPRB,2.3357E-05_JPRB,2.4605E-05_JPRB/)
+KBO( :, 1,58, 5) = (/&
+&3.3413E-08_JPRB,5.3223E-06_JPRB,9.7997E-06_JPRB,1.3911E-05_JPRB,1.7115E-05_JPRB/)
+KBO( :, 2,58, 5) = (/&
+&6.4876E-08_JPRB,6.0389E-06_JPRB,1.0850E-05_JPRB,1.5164E-05_JPRB,1.8057E-05_JPRB/)
+KBO( :, 3,58, 5) = (/&
+&1.1501E-07_JPRB,6.8202E-06_JPRB,1.1942E-05_JPRB,1.6396E-05_JPRB,1.8824E-05_JPRB/)
+KBO( :, 4,58, 5) = (/&
+&1.8988E-07_JPRB,7.6962E-06_JPRB,1.3093E-05_JPRB,1.7589E-05_JPRB,1.9461E-05_JPRB/)
+KBO( :, 5,58, 5) = (/&
+&2.9670E-07_JPRB,8.7155E-06_JPRB,1.4378E-05_JPRB,1.8862E-05_JPRB,1.9967E-05_JPRB/)
+KBO( :, 1,59, 5) = (/&
+&2.5326E-08_JPRB,4.3059E-06_JPRB,7.9479E-06_JPRB,1.1296E-05_JPRB,1.3872E-05_JPRB/)
+KBO( :, 2,59, 5) = (/&
+&4.9570E-08_JPRB,4.8933E-06_JPRB,8.8138E-06_JPRB,1.2338E-05_JPRB,1.4642E-05_JPRB/)
+KBO( :, 3,59, 5) = (/&
+&8.8759E-08_JPRB,5.5323E-06_JPRB,9.7147E-06_JPRB,1.3360E-05_JPRB,1.5267E-05_JPRB/)
+KBO( :, 4,59, 5) = (/&
+&1.4767E-07_JPRB,6.2484E-06_JPRB,1.0666E-05_JPRB,1.4358E-05_JPRB,1.5775E-05_JPRB/)
+KBO( :, 5,59, 5) = (/&
+&2.3207E-07_JPRB,7.0847E-06_JPRB,1.1728E-05_JPRB,1.5422E-05_JPRB,1.6178E-05_JPRB/)
+KBO( :, 1,13, 6) = (/&
+&2.6469E-03_JPRB,7.2603E-02_JPRB,1.2898E-01_JPRB,1.8080E-01_JPRB,2.2253E-01_JPRB/)
+KBO( :, 2,13, 6) = (/&
+&4.0410E-03_JPRB,7.8062E-02_JPRB,1.3546E-01_JPRB,1.8736E-01_JPRB,2.2767E-01_JPRB/)
+KBO( :, 3,13, 6) = (/&
+&5.9076E-03_JPRB,8.4142E-02_JPRB,1.4233E-01_JPRB,1.9380E-01_JPRB,2.3269E-01_JPRB/)
+KBO( :, 4,13, 6) = (/&
+&8.3159E-03_JPRB,9.0550E-02_JPRB,1.4952E-01_JPRB,2.0027E-01_JPRB,2.3737E-01_JPRB/)
+KBO( :, 5,13, 6) = (/&
+&1.1338E-02_JPRB,9.6973E-02_JPRB,1.5692E-01_JPRB,2.0664E-01_JPRB,2.4174E-01_JPRB/)
+KBO( :, 1,14, 6) = (/&
+&2.3459E-03_JPRB,6.5146E-02_JPRB,1.1561E-01_JPRB,1.6205E-01_JPRB,1.9813E-01_JPRB/)
+KBO( :, 2,14, 6) = (/&
+&3.5742E-03_JPRB,7.0309E-02_JPRB,1.2183E-01_JPRB,1.6837E-01_JPRB,2.0310E-01_JPRB/)
+KBO( :, 3,14, 6) = (/&
+&5.2156E-03_JPRB,7.5953E-02_JPRB,1.2830E-01_JPRB,1.7462E-01_JPRB,2.0779E-01_JPRB/)
+KBO( :, 4,14, 6) = (/&
+&7.3297E-03_JPRB,8.1768E-02_JPRB,1.3506E-01_JPRB,1.8090E-01_JPRB,2.1206E-01_JPRB/)
+KBO( :, 5,14, 6) = (/&
+&9.9793E-03_JPRB,8.7785E-02_JPRB,1.4192E-01_JPRB,1.8688E-01_JPRB,2.1597E-01_JPRB/)
+KBO( :, 1,15, 6) = (/&
+&2.0815E-03_JPRB,5.8070E-02_JPRB,1.0290E-01_JPRB,1.4403E-01_JPRB,1.7518E-01_JPRB/)
+KBO( :, 2,15, 6) = (/&
+&3.1616E-03_JPRB,6.2877E-02_JPRB,1.0871E-01_JPRB,1.5003E-01_JPRB,1.7983E-01_JPRB/)
+KBO( :, 3,15, 6) = (/&
+&4.5990E-03_JPRB,6.8034E-02_JPRB,1.1474E-01_JPRB,1.5600E-01_JPRB,1.8413E-01_JPRB/)
+KBO( :, 4,15, 6) = (/&
+&6.4457E-03_JPRB,7.3357E-02_JPRB,1.2094E-01_JPRB,1.6184E-01_JPRB,1.8811E-01_JPRB/)
+KBO( :, 5,15, 6) = (/&
+&8.7688E-03_JPRB,7.8954E-02_JPRB,1.2718E-01_JPRB,1.6743E-01_JPRB,1.9184E-01_JPRB/)
+KBO( :, 1,16, 6) = (/&
+&1.8434E-03_JPRB,5.1431E-02_JPRB,9.0904E-02_JPRB,1.2695E-01_JPRB,1.5373E-01_JPRB/)
+KBO( :, 2,16, 6) = (/&
+&2.7883E-03_JPRB,5.5853E-02_JPRB,9.6202E-02_JPRB,1.3255E-01_JPRB,1.5805E-01_JPRB/)
+KBO( :, 3,16, 6) = (/&
+&4.0405E-03_JPRB,6.0484E-02_JPRB,1.0174E-01_JPRB,1.3809E-01_JPRB,1.6209E-01_JPRB/)
+KBO( :, 4,16, 6) = (/&
+&5.6545E-03_JPRB,6.5388E-02_JPRB,1.0742E-01_JPRB,1.4346E-01_JPRB,1.6594E-01_JPRB/)
+KBO( :, 5,16, 6) = (/&
+&7.6948E-03_JPRB,7.0557E-02_JPRB,1.1317E-01_JPRB,1.4876E-01_JPRB,1.6944E-01_JPRB/)
+KBO( :, 1,17, 6) = (/&
+&1.6228E-03_JPRB,4.5214E-02_JPRB,7.9628E-02_JPRB,1.1095E-01_JPRB,1.3382E-01_JPRB/)
+KBO( :, 2,17, 6) = (/&
+&2.4444E-03_JPRB,4.9201E-02_JPRB,8.4449E-02_JPRB,1.1610E-01_JPRB,1.3782E-01_JPRB/)
+KBO( :, 3,17, 6) = (/&
+&3.5341E-03_JPRB,5.3403E-02_JPRB,8.9520E-02_JPRB,1.2115E-01_JPRB,1.4166E-01_JPRB/)
+KBO( :, 4,17, 6) = (/&
+&4.9442E-03_JPRB,5.7899E-02_JPRB,9.4657E-02_JPRB,1.2610E-01_JPRB,1.4516E-01_JPRB/)
+KBO( :, 5,17, 6) = (/&
+&6.7314E-03_JPRB,6.2605E-02_JPRB,9.9934E-02_JPRB,1.3078E-01_JPRB,1.4759E-01_JPRB/)
+KBO( :, 1,18, 6) = (/&
+&1.4215E-03_JPRB,3.9490E-02_JPRB,6.9231E-02_JPRB,9.6243E-02_JPRB,1.1568E-01_JPRB/)
+KBO( :, 2,18, 6) = (/&
+&2.1346E-03_JPRB,4.3045E-02_JPRB,7.3605E-02_JPRB,1.0089E-01_JPRB,1.1941E-01_JPRB/)
+KBO( :, 3,18, 6) = (/&
+&3.0824E-03_JPRB,4.6855E-02_JPRB,7.8190E-02_JPRB,1.0547E-01_JPRB,1.2277E-01_JPRB/)
+KBO( :, 4,18, 6) = (/&
+&4.3155E-03_JPRB,5.0887E-02_JPRB,8.2789E-02_JPRB,1.0966E-01_JPRB,1.2516E-01_JPRB/)
+KBO( :, 5,18, 6) = (/&
+&5.8773E-03_JPRB,5.5100E-02_JPRB,8.7246E-02_JPRB,1.1319E-01_JPRB,1.2607E-01_JPRB/)
+KBO( :, 1,19, 6) = (/&
+&1.2396E-03_JPRB,3.4273E-02_JPRB,5.9817E-02_JPRB,8.2935E-02_JPRB,9.9419E-02_JPRB/)
+KBO( :, 2,19, 6) = (/&
+&1.8580E-03_JPRB,3.7439E-02_JPRB,6.3787E-02_JPRB,8.7073E-02_JPRB,1.0261E-01_JPRB/)
+KBO( :, 3,19, 6) = (/&
+&2.6842E-03_JPRB,4.0827E-02_JPRB,6.7738E-02_JPRB,9.0822E-02_JPRB,1.0491E-01_JPRB/)
+KBO( :, 4,19, 6) = (/&
+&3.7596E-03_JPRB,4.4308E-02_JPRB,7.1517E-02_JPRB,9.3932E-02_JPRB,1.0593E-01_JPRB/)
+KBO( :, 5,19, 6) = (/&
+&5.1106E-03_JPRB,4.7901E-02_JPRB,7.4978E-02_JPRB,9.6351E-02_JPRB,1.0588E-01_JPRB/)
+KBO( :, 1,20, 6) = (/&
+&1.0863E-03_JPRB,2.9636E-02_JPRB,5.1506E-02_JPRB,7.1094E-02_JPRB,8.4913E-02_JPRB/)
+KBO( :, 2,20, 6) = (/&
+&1.6251E-03_JPRB,3.2413E-02_JPRB,5.4873E-02_JPRB,7.4436E-02_JPRB,8.7129E-02_JPRB/)
+KBO( :, 3,20, 6) = (/&
+&2.3482E-03_JPRB,3.5255E-02_JPRB,5.8051E-02_JPRB,7.7198E-02_JPRB,8.8290E-02_JPRB/)
+KBO( :, 4,20, 6) = (/&
+&3.2830E-03_JPRB,3.8154E-02_JPRB,6.0963E-02_JPRB,7.9391E-02_JPRB,8.8534E-02_JPRB/)
+KBO( :, 5,20, 6) = (/&
+&4.4496E-03_JPRB,4.1105E-02_JPRB,6.3670E-02_JPRB,8.1212E-02_JPRB,8.8096E-02_JPRB/)
+KBO( :, 1,21, 6) = (/&
+&9.5155E-04_JPRB,2.5477E-02_JPRB,4.4023E-02_JPRB,6.0405E-02_JPRB,7.1745E-02_JPRB/)
+KBO( :, 2,21, 6) = (/&
+&1.4227E-03_JPRB,2.7779E-02_JPRB,4.6702E-02_JPRB,6.2887E-02_JPRB,7.3006E-02_JPRB/)
+KBO( :, 3,21, 6) = (/&
+&2.0513E-03_JPRB,3.0099E-02_JPRB,4.9167E-02_JPRB,6.4894E-02_JPRB,7.3521E-02_JPRB/)
+KBO( :, 4,21, 6) = (/&
+&2.8588E-03_JPRB,3.2465E-02_JPRB,5.1448E-02_JPRB,6.6586E-02_JPRB,7.3416E-02_JPRB/)
+KBO( :, 5,21, 6) = (/&
+&3.8612E-03_JPRB,3.4927E-02_JPRB,5.3670E-02_JPRB,6.8026E-02_JPRB,7.2850E-02_JPRB/)
+KBO( :, 1,22, 6) = (/&
+&8.5713E-04_JPRB,2.1832E-02_JPRB,3.7420E-02_JPRB,5.0944E-02_JPRB,6.0002E-02_JPRB/)
+KBO( :, 2,22, 6) = (/&
+&1.2758E-03_JPRB,2.3688E-02_JPRB,3.9495E-02_JPRB,5.2772E-02_JPRB,6.0672E-02_JPRB/)
+KBO( :, 3,22, 6) = (/&
+&1.8291E-03_JPRB,2.5590E-02_JPRB,4.1428E-02_JPRB,5.4322E-02_JPRB,6.0829E-02_JPRB/)
+KBO( :, 4,22, 6) = (/&
+&2.5337E-03_JPRB,2.7556E-02_JPRB,4.3286E-02_JPRB,5.5664E-02_JPRB,6.0555E-02_JPRB/)
+KBO( :, 5,22, 6) = (/&
+&3.4060E-03_JPRB,2.9653E-02_JPRB,4.5131E-02_JPRB,5.6799E-02_JPRB,5.9942E-02_JPRB/)
+KBO( :, 1,23, 6) = (/&
+&7.7308E-04_JPRB,1.8541E-02_JPRB,3.1541E-02_JPRB,4.2653E-02_JPRB,4.9784E-02_JPRB/)
+KBO( :, 2,23, 6) = (/&
+&1.1436E-03_JPRB,2.0060E-02_JPRB,3.3177E-02_JPRB,4.4071E-02_JPRB,5.0135E-02_JPRB/)
+KBO( :, 3,23, 6) = (/&
+&1.6287E-03_JPRB,2.1636E-02_JPRB,3.4743E-02_JPRB,4.5309E-02_JPRB,5.0108E-02_JPRB/)
+KBO( :, 4,23, 6) = (/&
+&2.2433E-03_JPRB,2.3301E-02_JPRB,3.6276E-02_JPRB,4.6369E-02_JPRB,4.9769E-02_JPRB/)
+KBO( :, 5,23, 6) = (/&
+&3.0015E-03_JPRB,2.5093E-02_JPRB,3.7820E-02_JPRB,4.7284E-02_JPRB,4.9161E-02_JPRB/)
+KBO( :, 1,24, 6) = (/&
+&6.9820E-04_JPRB,1.5662E-02_JPRB,2.6451E-02_JPRB,3.5569E-02_JPRB,4.1103E-02_JPRB/)
+KBO( :, 2,24, 6) = (/&
+&1.0252E-03_JPRB,1.6916E-02_JPRB,2.7766E-02_JPRB,3.6705E-02_JPRB,4.1269E-02_JPRB/)
+KBO( :, 3,24, 6) = (/&
+&1.4503E-03_JPRB,1.8243E-02_JPRB,2.9050E-02_JPRB,3.7680E-02_JPRB,4.1148E-02_JPRB/)
+KBO( :, 4,24, 6) = (/&
+&1.9860E-03_JPRB,1.9665E-02_JPRB,3.0328E-02_JPRB,3.8530E-02_JPRB,4.0787E-02_JPRB/)
+KBO( :, 5,24, 6) = (/&
+&2.6469E-03_JPRB,2.1188E-02_JPRB,3.1637E-02_JPRB,3.9277E-02_JPRB,4.0220E-02_JPRB/)
+KBO( :, 1,25, 6) = (/&
+&6.3170E-04_JPRB,1.3191E-02_JPRB,2.2113E-02_JPRB,2.9594E-02_JPRB,3.3832E-02_JPRB/)
+KBO( :, 2,25, 6) = (/&
+&9.2001E-04_JPRB,1.4240E-02_JPRB,2.3188E-02_JPRB,3.0496E-02_JPRB,3.3883E-02_JPRB/)
+KBO( :, 3,25, 6) = (/&
+&1.2928E-03_JPRB,1.5370E-02_JPRB,2.4249E-02_JPRB,3.1273E-02_JPRB,3.3716E-02_JPRB/)
+KBO( :, 4,25, 6) = (/&
+&1.7603E-03_JPRB,1.6573E-02_JPRB,2.5329E-02_JPRB,3.1960E-02_JPRB,3.3363E-02_JPRB/)
+KBO( :, 5,25, 6) = (/&
+&2.3402E-03_JPRB,1.7869E-02_JPRB,2.6443E-02_JPRB,3.2590E-02_JPRB,3.2859E-02_JPRB/)
+KBO( :, 1,26, 6) = (/&
+&5.7419E-04_JPRB,1.1097E-02_JPRB,1.8461E-02_JPRB,2.4587E-02_JPRB,2.7791E-02_JPRB/)
+KBO( :, 2,26, 6) = (/&
+&8.2924E-04_JPRB,1.1987E-02_JPRB,1.9343E-02_JPRB,2.5297E-02_JPRB,2.7770E-02_JPRB/)
+KBO( :, 3,26, 6) = (/&
+&1.1565E-03_JPRB,1.2945E-02_JPRB,2.0233E-02_JPRB,2.5928E-02_JPRB,2.7584E-02_JPRB/)
+KBO( :, 4,26, 6) = (/&
+&1.5683E-03_JPRB,1.3972E-02_JPRB,2.1156E-02_JPRB,2.6492E-02_JPRB,2.7256E-02_JPRB/)
+KBO( :, 5,26, 6) = (/&
+&2.0814E-03_JPRB,1.5076E-02_JPRB,2.2099E-02_JPRB,2.7036E-02_JPRB,2.6815E-02_JPRB/)
+KBO( :, 1,27, 6) = (/&
+&5.2085E-04_JPRB,9.3262E-03_JPRB,1.5390E-02_JPRB,2.0394E-02_JPRB,2.2795E-02_JPRB/)
+KBO( :, 2,27, 6) = (/&
+&7.4611E-04_JPRB,1.0083E-02_JPRB,1.6124E-02_JPRB,2.0964E-02_JPRB,2.2740E-02_JPRB/)
+KBO( :, 3,27, 6) = (/&
+&1.0345E-03_JPRB,1.0897E-02_JPRB,1.6882E-02_JPRB,2.1477E-02_JPRB,2.2550E-02_JPRB/)
+KBO( :, 4,27, 6) = (/&
+&1.3997E-03_JPRB,1.1774E-02_JPRB,1.7663E-02_JPRB,2.1954E-02_JPRB,2.2255E-02_JPRB/)
+KBO( :, 5,27, 6) = (/&
+&1.8540E-03_JPRB,1.2711E-02_JPRB,1.8466E-02_JPRB,2.2421E-02_JPRB,2.1874E-02_JPRB/)
+KBO( :, 1,28, 6) = (/&
+&4.7154E-04_JPRB,7.8350E-03_JPRB,1.2820E-02_JPRB,1.6898E-02_JPRB,1.8683E-02_JPRB/)
+KBO( :, 2,28, 6) = (/&
+&6.7041E-04_JPRB,8.4791E-03_JPRB,1.3441E-02_JPRB,1.7362E-02_JPRB,1.8606E-02_JPRB/)
+KBO( :, 3,28, 6) = (/&
+&9.2613E-04_JPRB,9.1729E-03_JPRB,1.4084E-02_JPRB,1.7787E-02_JPRB,1.8427E-02_JPRB/)
+KBO( :, 4,28, 6) = (/&
+&1.2511E-03_JPRB,9.9188E-03_JPRB,1.4746E-02_JPRB,1.8199E-02_JPRB,1.8168E-02_JPRB/)
+KBO( :, 5,28, 6) = (/&
+&1.6528E-03_JPRB,1.0715E-02_JPRB,1.5432E-02_JPRB,1.8597E-02_JPRB,1.7841E-02_JPRB/)
+KBO( :, 1,29, 6) = (/&
+&4.2728E-04_JPRB,6.5872E-03_JPRB,1.0682E-02_JPRB,1.3997E-02_JPRB,1.5306E-02_JPRB/)
+KBO( :, 2,29, 6) = (/&
+&6.0398E-04_JPRB,7.1366E-03_JPRB,1.1209E-02_JPRB,1.4377E-02_JPRB,1.5221E-02_JPRB/)
+KBO( :, 3,29, 6) = (/&
+&8.3275E-04_JPRB,7.7277E-03_JPRB,1.1754E-02_JPRB,1.4740E-02_JPRB,1.5060E-02_JPRB/)
+KBO( :, 4,29, 6) = (/&
+&1.1219E-03_JPRB,8.3625E-03_JPRB,1.2318E-02_JPRB,1.5088E-02_JPRB,1.4833E-02_JPRB/)
+KBO( :, 5,29, 6) = (/&
+&1.4752E-03_JPRB,9.0420E-03_JPRB,1.2902E-02_JPRB,1.5434E-02_JPRB,1.4555E-02_JPRB/)
+KBO( :, 1,30, 6) = (/&
+&3.8695E-04_JPRB,5.5390E-03_JPRB,8.9023E-03_JPRB,1.1592E-02_JPRB,1.2537E-02_JPRB/)
+KBO( :, 2,30, 6) = (/&
+&5.4519E-04_JPRB,6.0089E-03_JPRB,9.3487E-03_JPRB,1.1911E-02_JPRB,1.2451E-02_JPRB/)
+KBO( :, 3,30, 6) = (/&
+&7.4997E-04_JPRB,6.5118E-03_JPRB,9.8133E-03_JPRB,1.2219E-02_JPRB,1.2307E-02_JPRB/)
+KBO( :, 4,30, 6) = (/&
+&1.0057E-03_JPRB,7.0541E-03_JPRB,1.0293E-02_JPRB,1.2517E-02_JPRB,1.2111E-02_JPRB/)
+KBO( :, 5,30, 6) = (/&
+&1.3159E-03_JPRB,7.6360E-03_JPRB,1.0791E-02_JPRB,1.2813E-02_JPRB,1.1876E-02_JPRB/)
+KBO( :, 1,31, 6) = (/&
+&3.5135E-04_JPRB,4.6635E-03_JPRB,7.4241E-03_JPRB,9.6038E-03_JPRB,1.0269E-02_JPRB/)
+KBO( :, 2,31, 6) = (/&
+&4.9394E-04_JPRB,5.0642E-03_JPRB,7.8045E-03_JPRB,9.8736E-03_JPRB,1.0187E-02_JPRB/)
+KBO( :, 3,31, 6) = (/&
+&6.7641E-04_JPRB,5.4940E-03_JPRB,8.1988E-03_JPRB,1.0135E-02_JPRB,1.0061E-02_JPRB/)
+KBO( :, 4,31, 6) = (/&
+&9.0234E-04_JPRB,5.9565E-03_JPRB,8.6081E-03_JPRB,1.0392E-02_JPRB,9.8960E-03_JPRB/)
+KBO( :, 5,31, 6) = (/&
+&1.1742E-03_JPRB,6.4605E-03_JPRB,9.0359E-03_JPRB,1.0646E-02_JPRB,9.7006E-03_JPRB/)
+KBO( :, 1,32, 6) = (/&
+&3.2001E-04_JPRB,3.9308E-03_JPRB,6.1947E-03_JPRB,7.9626E-03_JPRB,8.4097E-03_JPRB/)
+KBO( :, 2,32, 6) = (/&
+&4.4829E-04_JPRB,4.2720E-03_JPRB,6.5203E-03_JPRB,8.1905E-03_JPRB,8.3364E-03_JPRB/)
+KBO( :, 3,32, 6) = (/&
+&6.1024E-04_JPRB,4.6387E-03_JPRB,6.8547E-03_JPRB,8.4122E-03_JPRB,8.2274E-03_JPRB/)
+KBO( :, 4,32, 6) = (/&
+&8.0906E-04_JPRB,5.0375E-03_JPRB,7.2071E-03_JPRB,8.6330E-03_JPRB,8.0902E-03_JPRB/)
+KBO( :, 5,32, 6) = (/&
+&1.0464E-03_JPRB,5.4823E-03_JPRB,7.5792E-03_JPRB,8.8523E-03_JPRB,7.9289E-03_JPRB/)
+KBO( :, 1,33, 6) = (/&
+&2.9187E-04_JPRB,3.3162E-03_JPRB,5.1759E-03_JPRB,6.6059E-03_JPRB,6.8900E-03_JPRB/)
+KBO( :, 2,33, 6) = (/&
+&4.0643E-04_JPRB,3.6075E-03_JPRB,5.4523E-03_JPRB,6.7980E-03_JPRB,6.8251E-03_JPRB/)
+KBO( :, 3,33, 6) = (/&
+&5.4996E-04_JPRB,3.9216E-03_JPRB,5.7391E-03_JPRB,6.9881E-03_JPRB,6.7331E-03_JPRB/)
+KBO( :, 4,33, 6) = (/&
+&7.2438E-04_JPRB,4.2703E-03_JPRB,6.0424E-03_JPRB,7.1762E-03_JPRB,6.6187E-03_JPRB/)
+KBO( :, 5,33, 6) = (/&
+&9.3060E-04_JPRB,4.6643E-03_JPRB,6.3702E-03_JPRB,7.3681E-03_JPRB,6.4878E-03_JPRB/)
+KBO( :, 1,34, 6) = (/&
+&2.6296E-04_JPRB,2.7910E-03_JPRB,4.3184E-03_JPRB,5.4761E-03_JPRB,5.6450E-03_JPRB/)
+KBO( :, 2,34, 6) = (/&
+&3.6417E-04_JPRB,3.0392E-03_JPRB,4.5551E-03_JPRB,5.6403E-03_JPRB,5.5898E-03_JPRB/)
+KBO( :, 3,34, 6) = (/&
+&4.8977E-04_JPRB,3.3104E-03_JPRB,4.8001E-03_JPRB,5.8026E-03_JPRB,5.5129E-03_JPRB/)
+KBO( :, 4,34, 6) = (/&
+&6.4109E-04_JPRB,3.6176E-03_JPRB,5.0649E-03_JPRB,5.9649E-03_JPRB,5.4188E-03_JPRB/)
+KBO( :, 5,34, 6) = (/&
+&8.1804E-04_JPRB,3.9621E-03_JPRB,5.3546E-03_JPRB,6.1354E-03_JPRB,5.3128E-03_JPRB/)
+KBO( :, 1,35, 6) = (/&
+&2.2910E-04_JPRB,2.3313E-03_JPRB,3.5886E-03_JPRB,4.5289E-03_JPRB,4.6300E-03_JPRB/)
+KBO( :, 2,35, 6) = (/&
+&3.1618E-04_JPRB,2.5413E-03_JPRB,3.7885E-03_JPRB,4.6696E-03_JPRB,4.5851E-03_JPRB/)
+KBO( :, 3,35, 6) = (/&
+&4.2365E-04_JPRB,2.7760E-03_JPRB,3.9992E-03_JPRB,4.8085E-03_JPRB,4.5223E-03_JPRB/)
+KBO( :, 4,35, 6) = (/&
+&5.5209E-04_JPRB,3.0435E-03_JPRB,4.2290E-03_JPRB,4.9499E-03_JPRB,4.4473E-03_JPRB/)
+KBO( :, 5,35, 6) = (/&
+&7.0126E-04_JPRB,3.3413E-03_JPRB,4.4858E-03_JPRB,5.1019E-03_JPRB,4.3622E-03_JPRB/)
+KBO( :, 1,36, 6) = (/&
+&1.9220E-04_JPRB,1.9293E-03_JPRB,2.9645E-03_JPRB,3.7347E-03_JPRB,3.8021E-03_JPRB/)
+KBO( :, 2,36, 6) = (/&
+&2.6515E-04_JPRB,2.1069E-03_JPRB,3.1345E-03_JPRB,3.8546E-03_JPRB,3.7663E-03_JPRB/)
+KBO( :, 3,36, 6) = (/&
+&3.5491E-04_JPRB,2.3084E-03_JPRB,3.3147E-03_JPRB,3.9746E-03_JPRB,3.7181E-03_JPRB/)
+KBO( :, 4,36, 6) = (/&
+&4.6148E-04_JPRB,2.5376E-03_JPRB,3.5142E-03_JPRB,4.0989E-03_JPRB,3.6590E-03_JPRB/)
+KBO( :, 5,36, 6) = (/&
+&5.8535E-04_JPRB,2.7911E-03_JPRB,3.7375E-03_JPRB,4.2333E-03_JPRB,3.5914E-03_JPRB/)
+KBO( :, 1,37, 6) = (/&
+&1.5305E-04_JPRB,1.5760E-03_JPRB,2.4302E-03_JPRB,3.0653E-03_JPRB,3.1247E-03_JPRB/)
+KBO( :, 2,37, 6) = (/&
+&2.1204E-04_JPRB,1.7239E-03_JPRB,2.5719E-03_JPRB,3.1677E-03_JPRB,3.0989E-03_JPRB/)
+KBO( :, 3,37, 6) = (/&
+&2.8465E-04_JPRB,1.8937E-03_JPRB,2.7243E-03_JPRB,3.2712E-03_JPRB,3.0625E-03_JPRB/)
+KBO( :, 4,37, 6) = (/&
+&3.7093E-04_JPRB,2.0863E-03_JPRB,2.8955E-03_JPRB,3.3791E-03_JPRB,3.0167E-03_JPRB/)
+KBO( :, 5,37, 6) = (/&
+&4.7146E-04_JPRB,2.2992E-03_JPRB,3.0865E-03_JPRB,3.4968E-03_JPRB,2.9640E-03_JPRB/)
+KBO( :, 1,38, 6) = (/&
+&1.2136E-04_JPRB,1.2859E-03_JPRB,1.9906E-03_JPRB,2.5150E-03_JPRB,2.5688E-03_JPRB/)
+KBO( :, 2,38, 6) = (/&
+&1.6887E-04_JPRB,1.4096E-03_JPRB,2.1097E-03_JPRB,2.6028E-03_JPRB,2.5509E-03_JPRB/)
+KBO( :, 3,38, 6) = (/&
+&2.2753E-04_JPRB,1.5523E-03_JPRB,2.2385E-03_JPRB,2.6923E-03_JPRB,2.5240E-03_JPRB/)
+KBO( :, 4,38, 6) = (/&
+&2.9721E-04_JPRB,1.7139E-03_JPRB,2.3837E-03_JPRB,2.7852E-03_JPRB,2.4889E-03_JPRB/)
+KBO( :, 5,38, 6) = (/&
+&3.7858E-04_JPRB,1.8923E-03_JPRB,2.5471E-03_JPRB,2.8888E-03_JPRB,2.4479E-03_JPRB/)
+KBO( :, 1,39, 6) = (/&
+&9.6167E-05_JPRB,1.0495E-03_JPRB,1.6303E-03_JPRB,2.0636E-03_JPRB,2.1132E-03_JPRB/)
+KBO( :, 2,39, 6) = (/&
+&1.3440E-04_JPRB,1.1528E-03_JPRB,1.7304E-03_JPRB,2.1389E-03_JPRB,2.1009E-03_JPRB/)
+KBO( :, 3,39, 6) = (/&
+&1.8170E-04_JPRB,1.2730E-03_JPRB,1.8388E-03_JPRB,2.2153E-03_JPRB,2.0813E-03_JPRB/)
+KBO( :, 4,39, 6) = (/&
+&2.3793E-04_JPRB,1.4086E-03_JPRB,1.9640E-03_JPRB,2.2962E-03_JPRB,2.0549E-03_JPRB/)
+KBO( :, 5,39, 6) = (/&
+&3.0389E-04_JPRB,1.5581E-03_JPRB,2.1030E-03_JPRB,2.3870E-03_JPRB,2.0237E-03_JPRB/)
+KBO( :, 1,40, 6) = (/&
+&7.3361E-05_JPRB,8.4824E-04_JPRB,1.3271E-03_JPRB,1.6866E-03_JPRB,1.7362E-03_JPRB/)
+KBO( :, 2,40, 6) = (/&
+&1.0336E-04_JPRB,9.3344E-04_JPRB,1.4100E-03_JPRB,1.7510E-03_JPRB,1.7287E-03_JPRB/)
+KBO( :, 3,40, 6) = (/&
+&1.4073E-04_JPRB,1.0330E-03_JPRB,1.5012E-03_JPRB,1.8164E-03_JPRB,1.7149E-03_JPRB/)
+KBO( :, 4,40, 6) = (/&
+&1.8535E-04_JPRB,1.1457E-03_JPRB,1.6065E-03_JPRB,1.8858E-03_JPRB,1.6953E-03_JPRB/)
+KBO( :, 5,40, 6) = (/&
+&2.3794E-04_JPRB,1.2701E-03_JPRB,1.7242E-03_JPRB,1.9642E-03_JPRB,1.6715E-03_JPRB/)
+KBO( :, 1,41, 6) = (/&
+&5.5536E-05_JPRB,6.8458E-04_JPRB,1.0790E-03_JPRB,1.3774E-03_JPRB,1.4257E-03_JPRB/)
+KBO( :, 2,41, 6) = (/&
+&7.8965E-05_JPRB,7.5448E-04_JPRB,1.1479E-03_JPRB,1.4323E-03_JPRB,1.4220E-03_JPRB/)
+KBO( :, 3,41, 6) = (/&
+&1.0837E-04_JPRB,8.3692E-04_JPRB,1.2239E-03_JPRB,1.4879E-03_JPRB,1.4126E-03_JPRB/)
+KBO( :, 4,41, 6) = (/&
+&1.4371E-04_JPRB,9.3022E-04_JPRB,1.3127E-03_JPRB,1.5474E-03_JPRB,1.3983E-03_JPRB/)
+KBO( :, 5,41, 6) = (/&
+&1.8543E-04_JPRB,1.0335E-03_JPRB,1.4117E-03_JPRB,1.6149E-03_JPRB,1.3804E-03_JPRB/)
+KBO( :, 1,42, 6) = (/&
+&4.1927E-05_JPRB,5.5223E-04_JPRB,8.7661E-04_JPRB,1.1242E-03_JPRB,1.1705E-03_JPRB/)
+KBO( :, 2,42, 6) = (/&
+&6.0156E-05_JPRB,6.0961E-04_JPRB,9.3423E-04_JPRB,1.1710E-03_JPRB,1.1695E-03_JPRB/)
+KBO( :, 3,42, 6) = (/&
+&8.3258E-05_JPRB,6.7778E-04_JPRB,9.9759E-04_JPRB,1.2187E-03_JPRB,1.1637E-03_JPRB/)
+KBO( :, 4,42, 6) = (/&
+&1.1119E-04_JPRB,7.5501E-04_JPRB,1.0720E-03_JPRB,1.2691E-03_JPRB,1.1534E-03_JPRB/)
+KBO( :, 5,42, 6) = (/&
+&1.4431E-04_JPRB,8.4052E-04_JPRB,1.1554E-03_JPRB,1.3271E-03_JPRB,1.1399E-03_JPRB/)
+KBO( :, 1,43, 6) = (/&
+&3.0871E-05_JPRB,4.4295E-04_JPRB,7.0961E-04_JPRB,9.1501E-04_JPRB,9.6059E-04_JPRB/)
+KBO( :, 2,43, 6) = (/&
+&4.4814E-05_JPRB,4.8939E-04_JPRB,7.5700E-04_JPRB,9.5494E-04_JPRB,9.6152E-04_JPRB/)
+KBO( :, 3,43, 6) = (/&
+&6.2693E-05_JPRB,5.4521E-04_JPRB,8.0961E-04_JPRB,9.9510E-04_JPRB,9.5849E-04_JPRB/)
+KBO( :, 4,43, 6) = (/&
+&8.4515E-05_JPRB,6.0874E-04_JPRB,8.7133E-04_JPRB,1.0381E-03_JPRB,9.5168E-04_JPRB/)
+KBO( :, 5,43, 6) = (/&
+&1.1049E-04_JPRB,6.7929E-04_JPRB,9.4142E-04_JPRB,1.0873E-03_JPRB,9.4176E-04_JPRB/)
+KBO( :, 1,44, 6) = (/&
+&2.2405E-05_JPRB,3.5419E-04_JPRB,5.7300E-04_JPRB,7.4330E-04_JPRB,7.8767E-04_JPRB/)
+KBO( :, 2,44, 6) = (/&
+&3.2966E-05_JPRB,3.9175E-04_JPRB,6.1232E-04_JPRB,7.7738E-04_JPRB,7.9040E-04_JPRB/)
+KBO( :, 3,44, 6) = (/&
+&4.6673E-05_JPRB,4.3706E-04_JPRB,6.5546E-04_JPRB,8.1138E-04_JPRB,7.8937E-04_JPRB/)
+KBO( :, 4,44, 6) = (/&
+&6.3585E-05_JPRB,4.8914E-04_JPRB,7.0656E-04_JPRB,8.4741E-04_JPRB,7.8495E-04_JPRB/)
+KBO( :, 5,44, 6) = (/&
+&8.3871E-05_JPRB,5.4682E-04_JPRB,7.6475E-04_JPRB,8.8894E-04_JPRB,7.7792E-04_JPRB/)
+KBO( :, 1,45, 6) = (/&
+&1.6187E-05_JPRB,2.8311E-04_JPRB,4.6245E-04_JPRB,6.0348E-04_JPRB,6.4574E-04_JPRB/)
+KBO( :, 2,45, 6) = (/&
+&2.4128E-05_JPRB,3.1327E-04_JPRB,4.9462E-04_JPRB,6.3227E-04_JPRB,6.4929E-04_JPRB/)
+KBO( :, 3,45, 6) = (/&
+&3.4598E-05_JPRB,3.4993E-04_JPRB,5.3013E-04_JPRB,6.6097E-04_JPRB,6.4978E-04_JPRB/)
+KBO( :, 4,45, 6) = (/&
+&4.7680E-05_JPRB,3.9262E-04_JPRB,5.7224E-04_JPRB,6.9137E-04_JPRB,6.4736E-04_JPRB/)
+KBO( :, 5,45, 6) = (/&
+&6.3477E-05_JPRB,4.3989E-04_JPRB,6.2080E-04_JPRB,7.2641E-04_JPRB,6.4265E-04_JPRB/)
+KBO( :, 1,46, 6) = (/&
+&1.1520E-05_JPRB,2.2564E-04_JPRB,3.7222E-04_JPRB,4.8884E-04_JPRB,5.2865E-04_JPRB/)
+KBO( :, 2,46, 6) = (/&
+&1.7434E-05_JPRB,2.4986E-04_JPRB,3.9882E-04_JPRB,5.1333E-04_JPRB,5.3299E-04_JPRB/)
+KBO( :, 3,46, 6) = (/&
+&2.5336E-05_JPRB,2.7928E-04_JPRB,4.2790E-04_JPRB,5.3774E-04_JPRB,5.3473E-04_JPRB/)
+KBO( :, 4,46, 6) = (/&
+&3.5391E-05_JPRB,3.1408E-04_JPRB,4.6247E-04_JPRB,5.6316E-04_JPRB,5.3383E-04_JPRB/)
+KBO( :, 5,46, 6) = (/&
+&4.7626E-05_JPRB,3.5268E-04_JPRB,5.0275E-04_JPRB,5.9251E-04_JPRB,5.3089E-04_JPRB/)
+KBO( :, 1,47, 6) = (/&
+&7.9924E-06_JPRB,1.7901E-04_JPRB,2.9855E-04_JPRB,3.9477E-04_JPRB,4.3220E-04_JPRB/)
+KBO( :, 2,47, 6) = (/&
+&1.2309E-05_JPRB,1.9833E-04_JPRB,3.2055E-04_JPRB,4.1563E-04_JPRB,4.3695E-04_JPRB/)
+KBO( :, 3,47, 6) = (/&
+&1.8181E-05_JPRB,2.2162E-04_JPRB,3.4407E-04_JPRB,4.3618E-04_JPRB,4.3945E-04_JPRB/)
+KBO( :, 4,47, 6) = (/&
+&2.5793E-05_JPRB,2.4965E-04_JPRB,3.7202E-04_JPRB,4.5733E-04_JPRB,4.3966E-04_JPRB/)
+KBO( :, 5,47, 6) = (/&
+&3.5147E-05_JPRB,2.8107E-04_JPRB,4.0519E-04_JPRB,4.8165E-04_JPRB,4.3810E-04_JPRB/)
+KBO( :, 1,48, 6) = (/&
+&5.4989E-06_JPRB,1.4192E-04_JPRB,2.3922E-04_JPRB,3.1843E-04_JPRB,3.5311E-04_JPRB/)
+KBO( :, 2,48, 6) = (/&
+&8.6315E-06_JPRB,1.5730E-04_JPRB,2.5726E-04_JPRB,3.3610E-04_JPRB,3.5792E-04_JPRB/)
+KBO( :, 3,48, 6) = (/&
+&1.2966E-05_JPRB,1.7572E-04_JPRB,2.7645E-04_JPRB,3.5343E-04_JPRB,3.6095E-04_JPRB/)
+KBO( :, 4,48, 6) = (/&
+&1.8681E-05_JPRB,1.9817E-04_JPRB,2.9900E-04_JPRB,3.7105E-04_JPRB,3.6197E-04_JPRB/)
+KBO( :, 5,48, 6) = (/&
+&2.5826E-05_JPRB,2.2362E-04_JPRB,3.2610E-04_JPRB,3.9105E-04_JPRB,3.6145E-04_JPRB/)
+KBO( :, 1,49, 6) = (/&
+&3.7496E-06_JPRB,1.1244E-04_JPRB,1.9146E-04_JPRB,2.5656E-04_JPRB,2.8829E-04_JPRB/)
+KBO( :, 2,49, 6) = (/&
+&6.0096E-06_JPRB,1.2470E-04_JPRB,2.0632E-04_JPRB,2.7145E-04_JPRB,2.9308E-04_JPRB/)
+KBO( :, 3,49, 6) = (/&
+&9.1827E-06_JPRB,1.3921E-04_JPRB,2.2197E-04_JPRB,2.8604E-04_JPRB,2.9630E-04_JPRB/)
+KBO( :, 4,49, 6) = (/&
+&1.3445E-05_JPRB,1.5710E-04_JPRB,2.4010E-04_JPRB,3.0080E-04_JPRB,2.9804E-04_JPRB/)
+KBO( :, 5,49, 6) = (/&
+&1.8873E-05_JPRB,1.7770E-04_JPRB,2.6214E-04_JPRB,3.1726E-04_JPRB,2.9838E-04_JPRB/)
+KBO( :, 1,50, 6) = (/&
+&2.5671E-06_JPRB,8.9202E-05_JPRB,1.5332E-04_JPRB,2.0675E-04_JPRB,2.3501E-04_JPRB/)
+KBO( :, 2,50, 6) = (/&
+&4.1982E-06_JPRB,9.9030E-05_JPRB,1.6552E-04_JPRB,2.1923E-04_JPRB,2.3945E-04_JPRB/)
+KBO( :, 3,50, 6) = (/&
+&6.5267E-06_JPRB,1.1055E-04_JPRB,1.7841E-04_JPRB,2.3163E-04_JPRB,2.4283E-04_JPRB/)
+KBO( :, 4,50, 6) = (/&
+&9.7111E-06_JPRB,1.2482E-04_JPRB,1.9315E-04_JPRB,2.4401E-04_JPRB,2.4486E-04_JPRB/)
+KBO( :, 5,50, 6) = (/&
+&1.3834E-05_JPRB,1.4148E-04_JPRB,2.1114E-04_JPRB,2.5764E-04_JPRB,2.4575E-04_JPRB/)
+KBO( :, 1,51, 6) = (/&
+&1.7531E-06_JPRB,7.0824E-05_JPRB,1.2282E-04_JPRB,1.6665E-04_JPRB,1.9149E-04_JPRB/)
+KBO( :, 2,51, 6) = (/&
+&2.9260E-06_JPRB,7.8726E-05_JPRB,1.3289E-04_JPRB,1.7703E-04_JPRB,1.9549E-04_JPRB/)
+KBO( :, 3,51, 6) = (/&
+&4.6328E-06_JPRB,8.7882E-05_JPRB,1.4342E-04_JPRB,1.8752E-04_JPRB,1.9871E-04_JPRB/)
+KBO( :, 4,51, 6) = (/&
+&7.0046E-06_JPRB,9.9229E-05_JPRB,1.5538E-04_JPRB,1.9791E-04_JPRB,2.0087E-04_JPRB/)
+KBO( :, 5,51, 6) = (/&
+&1.0130E-05_JPRB,1.1266E-04_JPRB,1.6996E-04_JPRB,2.0914E-04_JPRB,2.0202E-04_JPRB/)
+KBO( :, 1,52, 6) = (/&
+&1.1881E-06_JPRB,5.6174E-05_JPRB,9.8252E-05_JPRB,1.3417E-04_JPRB,1.5588E-04_JPRB/)
+KBO( :, 2,52, 6) = (/&
+&2.0257E-06_JPRB,6.2550E-05_JPRB,1.0656E-04_JPRB,1.4280E-04_JPRB,1.5952E-04_JPRB/)
+KBO( :, 3,52, 6) = (/&
+&3.2686E-06_JPRB,6.9845E-05_JPRB,1.1522E-04_JPRB,1.5163E-04_JPRB,1.6251E-04_JPRB/)
+KBO( :, 4,52, 6) = (/&
+&5.0263E-06_JPRB,7.8807E-05_JPRB,1.2491E-04_JPRB,1.6037E-04_JPRB,1.6475E-04_JPRB/)
+KBO( :, 5,52, 6) = (/&
+&7.3808E-06_JPRB,8.9616E-05_JPRB,1.3676E-04_JPRB,1.6966E-04_JPRB,1.6606E-04_JPRB/)
+KBO( :, 1,53, 6) = (/&
+&7.9832E-07_JPRB,4.4542E-05_JPRB,7.8584E-05_JPRB,1.0800E-04_JPRB,1.2691E-04_JPRB/)
+KBO( :, 2,53, 6) = (/&
+&1.3907E-06_JPRB,4.9657E-05_JPRB,8.5371E-05_JPRB,1.1509E-04_JPRB,1.3015E-04_JPRB/)
+KBO( :, 3,53, 6) = (/&
+&2.2894E-06_JPRB,5.5484E-05_JPRB,9.2507E-05_JPRB,1.2251E-04_JPRB,1.3293E-04_JPRB/)
+KBO( :, 4,53, 6) = (/&
+&3.5816E-06_JPRB,6.2524E-05_JPRB,1.0033E-04_JPRB,1.2981E-04_JPRB,1.3510E-04_JPRB/)
+KBO( :, 5,53, 6) = (/&
+&5.3461E-06_JPRB,7.1179E-05_JPRB,1.0986E-04_JPRB,1.3751E-04_JPRB,1.3653E-04_JPRB/)
+KBO( :, 1,54, 6) = (/&
+&5.4266E-07_JPRB,3.5380E-05_JPRB,6.2932E-05_JPRB,8.7009E-05_JPRB,1.0307E-04_JPRB/)
+KBO( :, 2,54, 6) = (/&
+&9.6274E-07_JPRB,3.9519E-05_JPRB,6.8507E-05_JPRB,9.2859E-05_JPRB,1.0590E-04_JPRB/)
+KBO( :, 3,54, 6) = (/&
+&1.6160E-06_JPRB,4.4199E-05_JPRB,7.4364E-05_JPRB,9.9034E-05_JPRB,1.0834E-04_JPRB/)
+KBO( :, 4,54, 6) = (/&
+&2.5711E-06_JPRB,4.9786E-05_JPRB,8.0771E-05_JPRB,1.0520E-04_JPRB,1.1032E-04_JPRB/)
+KBO( :, 5,54, 6) = (/&
+&3.8980E-06_JPRB,5.6706E-05_JPRB,8.8453E-05_JPRB,1.1157E-04_JPRB,1.1168E-04_JPRB/)
+KBO( :, 1,55, 6) = (/&
+&3.6993E-07_JPRB,2.8151E-05_JPRB,5.0447E-05_JPRB,7.0154E-05_JPRB,8.3628E-05_JPRB/)
+KBO( :, 2,55, 6) = (/&
+&6.6712E-07_JPRB,3.1488E-05_JPRB,5.5000E-05_JPRB,7.4925E-05_JPRB,8.6021E-05_JPRB/)
+KBO( :, 3,55, 6) = (/&
+&1.1415E-06_JPRB,3.5243E-05_JPRB,5.9803E-05_JPRB,8.0054E-05_JPRB,8.8077E-05_JPRB/)
+KBO( :, 4,55, 6) = (/&
+&1.8471E-06_JPRB,3.9685E-05_JPRB,6.5040E-05_JPRB,8.5219E-05_JPRB,8.9795E-05_JPRB/)
+KBO( :, 5,55, 6) = (/&
+&2.8436E-06_JPRB,4.5216E-05_JPRB,7.1236E-05_JPRB,9.0537E-05_JPRB,9.1036E-05_JPRB/)
+KBO( :, 1,56, 6) = (/&
+&2.5120E-07_JPRB,2.2384E-05_JPRB,4.0408E-05_JPRB,5.6527E-05_JPRB,6.7818E-05_JPRB/)
+KBO( :, 2,56, 6) = (/&
+&4.5929E-07_JPRB,2.5052E-05_JPRB,4.4089E-05_JPRB,6.0389E-05_JPRB,6.9831E-05_JPRB/)
+KBO( :, 3,56, 6) = (/&
+&8.0167E-07_JPRB,2.8088E-05_JPRB,4.8066E-05_JPRB,6.4674E-05_JPRB,7.1604E-05_JPRB/)
+KBO( :, 4,56, 6) = (/&
+&1.3201E-06_JPRB,3.1626E-05_JPRB,5.2345E-05_JPRB,6.8997E-05_JPRB,7.3067E-05_JPRB/)
+KBO( :, 5,56, 6) = (/&
+&2.0659E-06_JPRB,3.6024E-05_JPRB,5.7338E-05_JPRB,7.3417E-05_JPRB,7.4207E-05_JPRB/)
+KBO( :, 1,57, 6) = (/&
+&1.7004E-07_JPRB,1.7782E-05_JPRB,3.2345E-05_JPRB,4.5525E-05_JPRB,5.4975E-05_JPRB/)
+KBO( :, 2,57, 6) = (/&
+&3.1410E-07_JPRB,1.9933E-05_JPRB,3.5335E-05_JPRB,4.8660E-05_JPRB,5.6678E-05_JPRB/)
+KBO( :, 3,57, 6) = (/&
+&5.5924E-07_JPRB,2.2368E-05_JPRB,3.8595E-05_JPRB,5.2193E-05_JPRB,5.8180E-05_JPRB/)
+KBO( :, 4,57, 6) = (/&
+&9.3826E-07_JPRB,2.5192E-05_JPRB,4.2090E-05_JPRB,5.5809E-05_JPRB,5.9446E-05_JPRB/)
+KBO( :, 5,57, 6) = (/&
+&1.4926E-06_JPRB,2.8677E-05_JPRB,4.6125E-05_JPRB,5.9484E-05_JPRB,6.0455E-05_JPRB/)
+KBO( :, 1,58, 6) = (/&
+&1.1577E-07_JPRB,1.4158E-05_JPRB,2.5932E-05_JPRB,3.6700E-05_JPRB,4.4570E-05_JPRB/)
+KBO( :, 2,58, 6) = (/&
+&2.1587E-07_JPRB,1.5875E-05_JPRB,2.8345E-05_JPRB,3.9233E-05_JPRB,4.6003E-05_JPRB/)
+KBO( :, 3,58, 6) = (/&
+&3.9135E-07_JPRB,1.7835E-05_JPRB,3.1005E-05_JPRB,4.2122E-05_JPRB,4.7262E-05_JPRB/)
+KBO( :, 4,58, 6) = (/&
+&6.6857E-07_JPRB,2.0101E-05_JPRB,3.3873E-05_JPRB,4.5147E-05_JPRB,4.8336E-05_JPRB/)
+KBO( :, 5,58, 6) = (/&
+&1.0806E-06_JPRB,2.2861E-05_JPRB,3.7148E-05_JPRB,4.8221E-05_JPRB,4.9215E-05_JPRB/)
+KBO( :, 1,59, 6) = (/&
+&8.8304E-08_JPRB,1.1506E-05_JPRB,2.1115E-05_JPRB,2.9926E-05_JPRB,3.6293E-05_JPRB/)
+KBO( :, 2,59, 6) = (/&
+&1.6550E-07_JPRB,1.2912E-05_JPRB,2.3105E-05_JPRB,3.2031E-05_JPRB,3.7443E-05_JPRB/)
+KBO( :, 3,59, 6) = (/&
+&3.0240E-07_JPRB,1.4529E-05_JPRB,2.5310E-05_JPRB,3.4431E-05_JPRB,3.8446E-05_JPRB/)
+KBO( :, 4,59, 6) = (/&
+&5.2081E-07_JPRB,1.6394E-05_JPRB,2.7692E-05_JPRB,3.6949E-05_JPRB,3.9290E-05_JPRB/)
+KBO( :, 5,59, 6) = (/&
+&8.4770E-07_JPRB,1.8680E-05_JPRB,3.0444E-05_JPRB,3.9546E-05_JPRB,3.9972E-05_JPRB/)
+KBO( :, 1,13, 7) = (/&
+&7.6417E-03_JPRB,1.4685E-01_JPRB,2.6416E-01_JPRB,3.6864E-01_JPRB,4.6109E-01_JPRB/)
+KBO( :, 2,13, 7) = (/&
+&1.1521E-02_JPRB,1.5454E-01_JPRB,2.7251E-01_JPRB,3.7688E-01_JPRB,4.6334E-01_JPRB/)
+KBO( :, 3,13, 7) = (/&
+&1.6613E-02_JPRB,1.6273E-01_JPRB,2.8042E-01_JPRB,3.8453E-01_JPRB,4.6553E-01_JPRB/)
+KBO( :, 4,13, 7) = (/&
+&2.3028E-02_JPRB,1.7232E-01_JPRB,2.8850E-01_JPRB,3.9133E-01_JPRB,4.6726E-01_JPRB/)
+KBO( :, 5,13, 7) = (/&
+&3.0788E-02_JPRB,1.8356E-01_JPRB,2.9741E-01_JPRB,3.9745E-01_JPRB,4.6774E-01_JPRB/)
+KBO( :, 1,14, 7) = (/&
+&6.7826E-03_JPRB,1.3584E-01_JPRB,2.4414E-01_JPRB,3.4060E-01_JPRB,4.2274E-01_JPRB/)
+KBO( :, 2,14, 7) = (/&
+&1.0248E-02_JPRB,1.4315E-01_JPRB,2.5224E-01_JPRB,3.4887E-01_JPRB,4.2540E-01_JPRB/)
+KBO( :, 3,14, 7) = (/&
+&1.4775E-02_JPRB,1.5124E-01_JPRB,2.6040E-01_JPRB,3.5649E-01_JPRB,4.2762E-01_JPRB/)
+KBO( :, 4,14, 7) = (/&
+&2.0429E-02_JPRB,1.6084E-01_JPRB,2.6907E-01_JPRB,3.6333E-01_JPRB,4.2937E-01_JPRB/)
+KBO( :, 5,14, 7) = (/&
+&2.7297E-02_JPRB,1.7167E-01_JPRB,2.7817E-01_JPRB,3.7020E-01_JPRB,4.3049E-01_JPRB/)
+KBO( :, 1,15, 7) = (/&
+&6.0553E-03_JPRB,1.2441E-01_JPRB,2.2318E-01_JPRB,3.1131E-01_JPRB,3.8387E-01_JPRB/)
+KBO( :, 2,15, 7) = (/&
+&9.1374E-03_JPRB,1.3148E-01_JPRB,2.3116E-01_JPRB,3.1936E-01_JPRB,3.8692E-01_JPRB/)
+KBO( :, 3,15, 7) = (/&
+&1.3123E-02_JPRB,1.3959E-01_JPRB,2.3951E-01_JPRB,3.2683E-01_JPRB,3.8938E-01_JPRB/)
+KBO( :, 4,15, 7) = (/&
+&1.8101E-02_JPRB,1.4896E-01_JPRB,2.4836E-01_JPRB,3.3404E-01_JPRB,3.9141E-01_JPRB/)
+KBO( :, 5,15, 7) = (/&
+&2.4175E-02_JPRB,1.5911E-01_JPRB,2.5777E-01_JPRB,3.4141E-01_JPRB,3.9315E-01_JPRB/)
+KBO( :, 1,16, 7) = (/&
+&5.4131E-03_JPRB,1.1283E-01_JPRB,2.0186E-01_JPRB,2.8155E-01_JPRB,3.4527E-01_JPRB/)
+KBO( :, 2,16, 7) = (/&
+&8.1288E-03_JPRB,1.1972E-01_JPRB,2.0981E-01_JPRB,2.8928E-01_JPRB,3.4862E-01_JPRB/)
+KBO( :, 3,16, 7) = (/&
+&1.1627E-02_JPRB,1.2773E-01_JPRB,2.1812E-01_JPRB,2.9668E-01_JPRB,3.5162E-01_JPRB/)
+KBO( :, 4,16, 7) = (/&
+&1.6009E-02_JPRB,1.3671E-01_JPRB,2.2693E-01_JPRB,3.0423E-01_JPRB,3.5439E-01_JPRB/)
+KBO( :, 5,16, 7) = (/&
+&2.1373E-02_JPRB,1.4625E-01_JPRB,2.3648E-01_JPRB,3.1202E-01_JPRB,3.5679E-01_JPRB/)
+KBO( :, 1,17, 7) = (/&
+&4.8149E-03_JPRB,1.0146E-01_JPRB,1.8080E-01_JPRB,2.5190E-01_JPRB,3.0738E-01_JPRB/)
+KBO( :, 2,17, 7) = (/&
+&7.1924E-03_JPRB,1.0816E-01_JPRB,1.8856E-01_JPRB,2.5937E-01_JPRB,3.1115E-01_JPRB/)
+KBO( :, 3,17, 7) = (/&
+&1.0254E-02_JPRB,1.1589E-01_JPRB,1.9675E-01_JPRB,2.6692E-01_JPRB,3.1465E-01_JPRB/)
+KBO( :, 4,17, 7) = (/&
+&1.4092E-02_JPRB,1.2436E-01_JPRB,2.0561E-01_JPRB,2.7457E-01_JPRB,3.1792E-01_JPRB/)
+KBO( :, 5,17, 7) = (/&
+&1.8801E-02_JPRB,1.3345E-01_JPRB,2.1493E-01_JPRB,2.8234E-01_JPRB,3.2110E-01_JPRB/)
+KBO( :, 1,18, 7) = (/&
+&4.2633E-03_JPRB,9.0462E-02_JPRB,1.6049E-01_JPRB,2.2327E-01_JPRB,2.7128E-01_JPRB/)
+KBO( :, 2,18, 7) = (/&
+&6.3371E-03_JPRB,9.6983E-02_JPRB,1.6798E-01_JPRB,2.3054E-01_JPRB,2.7526E-01_JPRB/)
+KBO( :, 3,18, 7) = (/&
+&9.0048E-03_JPRB,1.0434E-01_JPRB,1.7596E-01_JPRB,2.3795E-01_JPRB,2.7919E-01_JPRB/)
+KBO( :, 4,18, 7) = (/&
+&1.2349E-02_JPRB,1.1235E-01_JPRB,1.8455E-01_JPRB,2.4558E-01_JPRB,2.8307E-01_JPRB/)
+KBO( :, 5,18, 7) = (/&
+&1.6477E-02_JPRB,1.2095E-01_JPRB,1.9366E-01_JPRB,2.5349E-01_JPRB,2.8698E-01_JPRB/)
+KBO( :, 1,19, 7) = (/&
+&3.7554E-03_JPRB,8.0086E-02_JPRB,1.4130E-01_JPRB,1.9618E-01_JPRB,2.3729E-01_JPRB/)
+KBO( :, 2,19, 7) = (/&
+&5.5565E-03_JPRB,8.6345E-02_JPRB,1.4840E-01_JPRB,2.0316E-01_JPRB,2.4150E-01_JPRB/)
+KBO( :, 3,19, 7) = (/&
+&7.8702E-03_JPRB,9.3236E-02_JPRB,1.5616E-01_JPRB,2.1043E-01_JPRB,2.4581E-01_JPRB/)
+KBO( :, 4,19, 7) = (/&
+&1.0787E-02_JPRB,1.0080E-01_JPRB,1.6449E-01_JPRB,2.1798E-01_JPRB,2.5008E-01_JPRB/)
+KBO( :, 5,19, 7) = (/&
+&1.4413E-02_JPRB,1.0887E-01_JPRB,1.7330E-01_JPRB,2.2565E-01_JPRB,2.5355E-01_JPRB/)
+KBO( :, 1,20, 7) = (/&
+&3.3111E-03_JPRB,7.0557E-02_JPRB,1.2355E-01_JPRB,1.7117E-01_JPRB,2.0615E-01_JPRB/)
+KBO( :, 2,20, 7) = (/&
+&4.8768E-03_JPRB,7.6467E-02_JPRB,1.3039E-01_JPRB,1.7787E-01_JPRB,2.1057E-01_JPRB/)
+KBO( :, 3,20, 7) = (/&
+&6.8937E-03_JPRB,8.2939E-02_JPRB,1.3783E-01_JPRB,1.8491E-01_JPRB,2.1500E-01_JPRB/)
+KBO( :, 4,20, 7) = (/&
+&9.4568E-03_JPRB,8.9997E-02_JPRB,1.4573E-01_JPRB,1.9190E-01_JPRB,2.1847E-01_JPRB/)
+KBO( :, 5,20, 7) = (/&
+&1.2649E-02_JPRB,9.7398E-02_JPRB,1.5380E-01_JPRB,1.9837E-01_JPRB,2.2024E-01_JPRB/)
+KBO( :, 1,21, 7) = (/&
+&2.9095E-03_JPRB,6.1851E-02_JPRB,1.0745E-01_JPRB,1.4844E-01_JPRB,1.7810E-01_JPRB/)
+KBO( :, 2,21, 7) = (/&
+&4.2692E-03_JPRB,6.7344E-02_JPRB,1.1397E-01_JPRB,1.5479E-01_JPRB,1.8248E-01_JPRB/)
+KBO( :, 3,21, 7) = (/&
+&6.0338E-03_JPRB,7.3350E-02_JPRB,1.2086E-01_JPRB,1.6105E-01_JPRB,1.8592E-01_JPRB/)
+KBO( :, 4,21, 7) = (/&
+&8.2818E-03_JPRB,7.9701E-02_JPRB,1.2784E-01_JPRB,1.6671E-01_JPRB,1.8765E-01_JPRB/)
+KBO( :, 5,21, 7) = (/&
+&1.1081E-02_JPRB,8.6263E-02_JPRB,1.3464E-01_JPRB,1.7152E-01_JPRB,1.8756E-01_JPRB/)
+KBO( :, 1,22, 7) = (/&
+&2.6181E-03_JPRB,5.4287E-02_JPRB,9.3450E-02_JPRB,1.2844E-01_JPRB,1.5335E-01_JPRB/)
+KBO( :, 2,22, 7) = (/&
+&3.8243E-03_JPRB,5.9349E-02_JPRB,9.9393E-02_JPRB,1.3393E-01_JPRB,1.5664E-01_JPRB/)
+KBO( :, 3,22, 7) = (/&
+&5.3935E-03_JPRB,6.4666E-02_JPRB,1.0530E-01_JPRB,1.3879E-01_JPRB,1.5834E-01_JPRB/)
+KBO( :, 4,22, 7) = (/&
+&7.3925E-03_JPRB,7.0137E-02_JPRB,1.1102E-01_JPRB,1.4284E-01_JPRB,1.5840E-01_JPRB/)
+KBO( :, 5,22, 7) = (/&
+&9.8581E-03_JPRB,7.5739E-02_JPRB,1.1637E-01_JPRB,1.4626E-01_JPRB,1.5728E-01_JPRB/)
+KBO( :, 1,23, 7) = (/&
+&2.3567E-03_JPRB,4.7466E-02_JPRB,8.0891E-02_JPRB,1.1029E-01_JPRB,1.3073E-01_JPRB/)
+KBO( :, 2,23, 7) = (/&
+&3.4308E-03_JPRB,5.1876E-02_JPRB,8.5843E-02_JPRB,1.1448E-01_JPRB,1.3247E-01_JPRB/)
+KBO( :, 3,23, 7) = (/&
+&4.8257E-03_JPRB,5.6351E-02_JPRB,9.0620E-02_JPRB,1.1795E-01_JPRB,1.3277E-01_JPRB/)
+KBO( :, 4,23, 7) = (/&
+&6.5958E-03_JPRB,6.0900E-02_JPRB,9.5105E-02_JPRB,1.2092E-01_JPRB,1.3207E-01_JPRB/)
+KBO( :, 5,23, 7) = (/&
+&8.7592E-03_JPRB,6.5586E-02_JPRB,9.9383E-02_JPRB,1.2354E-01_JPRB,1.3064E-01_JPRB/)
+KBO( :, 1,24, 7) = (/&
+&2.1271E-03_JPRB,4.1190E-02_JPRB,6.9395E-02_JPRB,9.3707E-02_JPRB,1.1002E-01_JPRB/)
+KBO( :, 2,24, 7) = (/&
+&3.0856E-03_JPRB,4.4852E-02_JPRB,7.3354E-02_JPRB,9.6714E-02_JPRB,1.1057E-01_JPRB/)
+KBO( :, 3,24, 7) = (/&
+&4.3257E-03_JPRB,4.8524E-02_JPRB,7.7130E-02_JPRB,9.9321E-02_JPRB,1.1024E-01_JPRB/)
+KBO( :, 4,24, 7) = (/&
+&5.8826E-03_JPRB,5.2297E-02_JPRB,8.0734E-02_JPRB,1.0166E-01_JPRB,1.0927E-01_JPRB/)
+KBO( :, 5,24, 7) = (/&
+&7.7717E-03_JPRB,5.6295E-02_JPRB,8.4275E-02_JPRB,1.0378E-01_JPRB,1.0782E-01_JPRB/)
+KBO( :, 1,25, 7) = (/&
+&1.9281E-03_JPRB,3.5411E-02_JPRB,5.8998E-02_JPRB,7.8852E-02_JPRB,9.1568E-02_JPRB/)
+KBO( :, 2,25, 7) = (/&
+&2.7824E-03_JPRB,3.8393E-02_JPRB,6.2155E-02_JPRB,8.1138E-02_JPRB,9.1561E-02_JPRB/)
+KBO( :, 3,25, 7) = (/&
+&3.8806E-03_JPRB,4.1433E-02_JPRB,6.5194E-02_JPRB,8.3215E-02_JPRB,9.0981E-02_JPRB/)
+KBO( :, 4,25, 7) = (/&
+&5.2453E-03_JPRB,4.4637E-02_JPRB,6.8168E-02_JPRB,8.5119E-02_JPRB,8.9958E-02_JPRB/)
+KBO( :, 5,25, 7) = (/&
+&6.8977E-03_JPRB,4.8120E-02_JPRB,7.1175E-02_JPRB,8.6855E-02_JPRB,8.8595E-02_JPRB/)
+KBO( :, 1,26, 7) = (/&
+&1.7587E-03_JPRB,3.0214E-02_JPRB,4.9851E-02_JPRB,6.5996E-02_JPRB,7.5710E-02_JPRB/)
+KBO( :, 2,26, 7) = (/&
+&2.5210E-03_JPRB,3.2677E-02_JPRB,5.2397E-02_JPRB,6.7829E-02_JPRB,7.5438E-02_JPRB/)
+KBO( :, 3,26, 7) = (/&
+&3.4928E-03_JPRB,3.5239E-02_JPRB,5.4896E-02_JPRB,6.9528E-02_JPRB,7.4777E-02_JPRB/)
+KBO( :, 4,26, 7) = (/&
+&4.6908E-03_JPRB,3.8029E-02_JPRB,5.7397E-02_JPRB,7.1083E-02_JPRB,7.3800E-02_JPRB/)
+KBO( :, 5,26, 7) = (/&
+&6.1395E-03_JPRB,4.1060E-02_JPRB,5.9986E-02_JPRB,7.2531E-02_JPRB,7.2558E-02_JPRB/)
+KBO( :, 1,27, 7) = (/&
+&1.6029E-03_JPRB,2.5642E-02_JPRB,4.1927E-02_JPRB,5.5065E-02_JPRB,6.2332E-02_JPRB/)
+KBO( :, 2,27, 7) = (/&
+&2.2812E-03_JPRB,2.7700E-02_JPRB,4.4008E-02_JPRB,5.6573E-02_JPRB,6.1961E-02_JPRB/)
+KBO( :, 3,27, 7) = (/&
+&3.1372E-03_JPRB,2.9918E-02_JPRB,4.6094E-02_JPRB,5.7948E-02_JPRB,6.1302E-02_JPRB/)
+KBO( :, 4,27, 7) = (/&
+&4.1899E-03_JPRB,3.2354E-02_JPRB,4.8227E-02_JPRB,5.9239E-02_JPRB,6.0407E-02_JPRB/)
+KBO( :, 5,27, 7) = (/&
+&5.4669E-03_JPRB,3.4991E-02_JPRB,5.0494E-02_JPRB,6.0487E-02_JPRB,5.9313E-02_JPRB/)
+KBO( :, 1,28, 7) = (/&
+&1.4587E-03_JPRB,2.1692E-02_JPRB,3.5152E-02_JPRB,4.5868E-02_JPRB,5.1191E-02_JPRB/)
+KBO( :, 2,28, 7) = (/&
+&2.0600E-03_JPRB,2.3452E-02_JPRB,3.6880E-02_JPRB,4.7085E-02_JPRB,5.0788E-02_JPRB/)
+KBO( :, 3,28, 7) = (/&
+&2.8147E-03_JPRB,2.5390E-02_JPRB,3.8642E-02_JPRB,4.8221E-02_JPRB,5.0174E-02_JPRB/)
+KBO( :, 4,28, 7) = (/&
+&3.7416E-03_JPRB,2.7500E-02_JPRB,4.0500E-02_JPRB,4.9318E-02_JPRB,4.9374E-02_JPRB/)
+KBO( :, 5,28, 7) = (/&
+&4.8758E-03_JPRB,2.9796E-02_JPRB,4.2469E-02_JPRB,5.0418E-02_JPRB,4.8430E-02_JPRB/)
+KBO( :, 1,29, 7) = (/&
+&1.3284E-03_JPRB,1.8334E-02_JPRB,2.9430E-02_JPRB,3.8154E-02_JPRB,4.1977E-02_JPRB/)
+KBO( :, 2,29, 7) = (/&
+&1.8615E-03_JPRB,1.9864E-02_JPRB,3.0877E-02_JPRB,3.9147E-02_JPRB,4.1585E-02_JPRB/)
+KBO( :, 3,29, 7) = (/&
+&2.5273E-03_JPRB,2.1548E-02_JPRB,3.2404E-02_JPRB,4.0101E-02_JPRB,4.1024E-02_JPRB/)
+KBO( :, 4,29, 7) = (/&
+&3.3502E-03_JPRB,2.3383E-02_JPRB,3.4027E-02_JPRB,4.1054E-02_JPRB,4.0329E-02_JPRB/)
+KBO( :, 5,29, 7) = (/&
+&4.3678E-03_JPRB,2.5374E-02_JPRB,3.5730E-02_JPRB,4.2021E-02_JPRB,3.9526E-02_JPRB/)
+KBO( :, 1,30, 7) = (/&
+&1.2077E-03_JPRB,1.5498E-02_JPRB,2.4613E-02_JPRB,3.1700E-02_JPRB,3.4385E-02_JPRB/)
+KBO( :, 2,30, 7) = (/&
+&1.6794E-03_JPRB,1.6830E-02_JPRB,2.5859E-02_JPRB,3.2527E-02_JPRB,3.4019E-02_JPRB/)
+KBO( :, 3,30, 7) = (/&
+&2.2700E-03_JPRB,1.8290E-02_JPRB,2.7194E-02_JPRB,3.3342E-02_JPRB,3.3526E-02_JPRB/)
+KBO( :, 4,30, 7) = (/&
+&3.0076E-03_JPRB,1.9884E-02_JPRB,2.8602E-02_JPRB,3.4179E-02_JPRB,3.2934E-02_JPRB/)
+KBO( :, 5,30, 7) = (/&
+&3.9239E-03_JPRB,2.1618E-02_JPRB,3.0083E-02_JPRB,3.5038E-02_JPRB,3.2267E-02_JPRB/)
+KBO( :, 1,31, 7) = (/&
+&1.0979E-03_JPRB,1.3116E-02_JPRB,2.0595E-02_JPRB,2.6327E-02_JPRB,2.8152E-02_JPRB/)
+KBO( :, 2,31, 7) = (/&
+&1.5169E-03_JPRB,1.4272E-02_JPRB,2.1683E-02_JPRB,2.7024E-02_JPRB,2.7826E-02_JPRB/)
+KBO( :, 3,31, 7) = (/&
+&2.0453E-03_JPRB,1.5538E-02_JPRB,2.2843E-02_JPRB,2.7738E-02_JPRB,2.7405E-02_JPRB/)
+KBO( :, 4,31, 7) = (/&
+&2.7116E-03_JPRB,1.6927E-02_JPRB,2.4066E-02_JPRB,2.8483E-02_JPRB,2.6914E-02_JPRB/)
+KBO( :, 5,31, 7) = (/&
+&3.5394E-03_JPRB,1.8442E-02_JPRB,2.5352E-02_JPRB,2.9238E-02_JPRB,2.6357E-02_JPRB/)
+KBO( :, 1,32, 7) = (/&
+&9.9745E-04_JPRB,1.1111E-02_JPRB,1.7254E-02_JPRB,2.1864E-02_JPRB,2.3045E-02_JPRB/)
+KBO( :, 2,32, 7) = (/&
+&1.3720E-03_JPRB,1.2113E-02_JPRB,1.8202E-02_JPRB,2.2466E-02_JPRB,2.2758E-02_JPRB/)
+KBO( :, 3,32, 7) = (/&
+&1.8496E-03_JPRB,1.3215E-02_JPRB,1.9210E-02_JPRB,2.3105E-02_JPRB,2.2405E-02_JPRB/)
+KBO( :, 4,32, 7) = (/&
+&2.4534E-03_JPRB,1.4429E-02_JPRB,2.0269E-02_JPRB,2.3758E-02_JPRB,2.1994E-02_JPRB/)
+KBO( :, 5,32, 7) = (/&
+&3.1994E-03_JPRB,1.5763E-02_JPRB,2.1391E-02_JPRB,2.4424E-02_JPRB,2.1537E-02_JPRB/)
+KBO( :, 1,33, 7) = (/&
+&9.0609E-04_JPRB,9.4233E-03_JPRB,1.4475E-02_JPRB,1.8167E-02_JPRB,1.8863E-02_JPRB/)
+KBO( :, 2,33, 7) = (/&
+&1.2447E-03_JPRB,1.0296E-02_JPRB,1.5300E-02_JPRB,1.8704E-02_JPRB,1.8620E-02_JPRB/)
+KBO( :, 3,33, 7) = (/&
+&1.6790E-03_JPRB,1.1258E-02_JPRB,1.6171E-02_JPRB,1.9267E-02_JPRB,1.8323E-02_JPRB/)
+KBO( :, 4,33, 7) = (/&
+&2.2252E-03_JPRB,1.2324E-02_JPRB,1.7095E-02_JPRB,1.9844E-02_JPRB,1.7985E-02_JPRB/)
+KBO( :, 5,33, 7) = (/&
+&2.8950E-03_JPRB,1.3521E-02_JPRB,1.8082E-02_JPRB,2.0433E-02_JPRB,1.7614E-02_JPRB/)
+KBO( :, 1,34, 7) = (/&
+&8.1514E-04_JPRB,7.9756E-03_JPRB,1.2137E-02_JPRB,1.5099E-02_JPRB,1.5443E-02_JPRB/)
+KBO( :, 2,34, 7) = (/&
+&1.1204E-03_JPRB,8.7356E-03_JPRB,1.2847E-02_JPRB,1.5577E-02_JPRB,1.5237E-02_JPRB/)
+KBO( :, 3,34, 7) = (/&
+&1.5119E-03_JPRB,9.5758E-03_JPRB,1.3604E-02_JPRB,1.6072E-02_JPRB,1.4994E-02_JPRB/)
+KBO( :, 4,34, 7) = (/&
+&2.0012E-03_JPRB,1.0522E-02_JPRB,1.4410E-02_JPRB,1.6579E-02_JPRB,1.4722E-02_JPRB/)
+KBO( :, 5,34, 7) = (/&
+&2.5995E-03_JPRB,1.1602E-02_JPRB,1.5283E-02_JPRB,1.7098E-02_JPRB,1.4425E-02_JPRB/)
+KBO( :, 1,35, 7) = (/&
+&7.1227E-04_JPRB,6.7018E-03_JPRB,1.0127E-02_JPRB,1.2528E-02_JPRB,1.2660E-02_JPRB/)
+KBO( :, 2,35, 7) = (/&
+&9.8163E-04_JPRB,7.3560E-03_JPRB,1.0739E-02_JPRB,1.2948E-02_JPRB,1.2494E-02_JPRB/)
+KBO( :, 3,35, 7) = (/&
+&1.3263E-03_JPRB,8.0909E-03_JPRB,1.1393E-02_JPRB,1.3382E-02_JPRB,1.2302E-02_JPRB/)
+KBO( :, 4,35, 7) = (/&
+&1.7561E-03_JPRB,8.9242E-03_JPRB,1.2096E-02_JPRB,1.3825E-02_JPRB,1.2085E-02_JPRB/)
+KBO( :, 5,35, 7) = (/&
+&2.2810E-03_JPRB,9.8947E-03_JPRB,1.2873E-02_JPRB,1.4284E-02_JPRB,1.1851E-02_JPRB/)
+KBO( :, 1,36, 7) = (/&
+&6.0202E-04_JPRB,5.5779E-03_JPRB,8.4015E-03_JPRB,1.0366E-02_JPRB,1.0396E-02_JPRB/)
+KBO( :, 2,36, 7) = (/&
+&8.3319E-04_JPRB,6.1400E-03_JPRB,8.9260E-03_JPRB,1.0732E-02_JPRB,1.0268E-02_JPRB/)
+KBO( :, 3,36, 7) = (/&
+&1.1287E-03_JPRB,6.7734E-03_JPRB,9.4880E-03_JPRB,1.1109E-02_JPRB,1.0116E-02_JPRB/)
+KBO( :, 4,36, 7) = (/&
+&1.4983E-03_JPRB,7.5040E-03_JPRB,1.0100E-02_JPRB,1.1497E-02_JPRB,9.9466E-03_JPRB/)
+KBO( :, 5,36, 7) = (/&
+&1.9490E-03_JPRB,8.3637E-03_JPRB,1.0791E-02_JPRB,1.1906E-02_JPRB,9.7636E-03_JPRB/)
+KBO( :, 1,37, 7) = (/&
+&4.8416E-04_JPRB,4.5804E-03_JPRB,6.9086E-03_JPRB,8.5355E-03_JPRB,8.5508E-03_JPRB/)
+KBO( :, 2,37, 7) = (/&
+&6.7495E-04_JPRB,5.0520E-03_JPRB,7.3527E-03_JPRB,8.8519E-03_JPRB,8.4527E-03_JPRB/)
+KBO( :, 3,37, 7) = (/&
+&9.1952E-04_JPRB,5.5894E-03_JPRB,7.8325E-03_JPRB,9.1782E-03_JPRB,8.3356E-03_JPRB/)
+KBO( :, 4,37, 7) = (/&
+&1.2272E-03_JPRB,6.2161E-03_JPRB,8.3611E-03_JPRB,9.5172E-03_JPRB,8.2045E-03_JPRB/)
+KBO( :, 5,37, 7) = (/&
+&1.6032E-03_JPRB,6.9603E-03_JPRB,8.9629E-03_JPRB,9.8764E-03_JPRB,8.0631E-03_JPRB/)
+KBO( :, 1,38, 7) = (/&
+&3.8815E-04_JPRB,3.7581E-03_JPRB,5.6778E-03_JPRB,7.0261E-03_JPRB,7.0356E-03_JPRB/)
+KBO( :, 2,38, 7) = (/&
+&5.4489E-04_JPRB,4.1553E-03_JPRB,6.0551E-03_JPRB,7.3001E-03_JPRB,6.9620E-03_JPRB/)
+KBO( :, 3,38, 7) = (/&
+&7.4720E-04_JPRB,4.6096E-03_JPRB,6.4646E-03_JPRB,7.5820E-03_JPRB,6.8735E-03_JPRB/)
+KBO( :, 4,38, 7) = (/&
+&1.0025E-03_JPRB,5.1457E-03_JPRB,6.9210E-03_JPRB,7.8773E-03_JPRB,6.7744E-03_JPRB/)
+KBO( :, 5,38, 7) = (/&
+&1.3158E-03_JPRB,5.7907E-03_JPRB,7.4467E-03_JPRB,8.1937E-03_JPRB,6.6650E-03_JPRB/)
+KBO( :, 1,39, 7) = (/&
+&3.1112E-04_JPRB,3.0839E-03_JPRB,4.6680E-03_JPRB,5.7846E-03_JPRB,5.7911E-03_JPRB/)
+KBO( :, 2,39, 7) = (/&
+&4.3990E-04_JPRB,3.4180E-03_JPRB,4.9880E-03_JPRB,6.0205E-03_JPRB,5.7382E-03_JPRB/)
+KBO( :, 3,39, 7) = (/&
+&6.0701E-04_JPRB,3.8014E-03_JPRB,5.3384E-03_JPRB,6.2649E-03_JPRB,5.6729E-03_JPRB/)
+KBO( :, 4,39, 7) = (/&
+&8.1924E-04_JPRB,4.2647E-03_JPRB,5.7318E-03_JPRB,6.5208E-03_JPRB,5.5990E-03_JPRB/)
+KBO( :, 5,39, 7) = (/&
+&1.0794E-03_JPRB,4.8235E-03_JPRB,6.1904E-03_JPRB,6.7997E-03_JPRB,5.5155E-03_JPRB/)
+KBO( :, 1,40, 7) = (/&
+&2.3999E-04_JPRB,2.5045E-03_JPRB,3.8112E-03_JPRB,4.7419E-03_JPRB,4.7659E-03_JPRB/)
+KBO( :, 2,40, 7) = (/&
+&3.4272E-04_JPRB,2.7807E-03_JPRB,4.0807E-03_JPRB,4.9438E-03_JPRB,4.7281E-03_JPRB/)
+KBO( :, 3,40, 7) = (/&
+&4.7709E-04_JPRB,3.1013E-03_JPRB,4.3772E-03_JPRB,5.1542E-03_JPRB,4.6798E-03_JPRB/)
+KBO( :, 4,40, 7) = (/&
+&6.4876E-04_JPRB,3.4905E-03_JPRB,4.7113E-03_JPRB,5.3759E-03_JPRB,4.6247E-03_JPRB/)
+KBO( :, 5,40, 7) = (/&
+&8.6088E-04_JPRB,3.9661E-03_JPRB,5.1051E-03_JPRB,5.6199E-03_JPRB,4.5616E-03_JPRB/)
+KBO( :, 1,41, 7) = (/&
+&1.8373E-04_JPRB,2.0302E-03_JPRB,3.1081E-03_JPRB,3.8838E-03_JPRB,3.9218E-03_JPRB/)
+KBO( :, 2,41, 7) = (/&
+&2.6521E-04_JPRB,2.2593E-03_JPRB,3.3353E-03_JPRB,4.0566E-03_JPRB,3.8950E-03_JPRB/)
+KBO( :, 3,41, 7) = (/&
+&3.7260E-04_JPRB,2.5252E-03_JPRB,3.5847E-03_JPRB,4.2368E-03_JPRB,3.8605E-03_JPRB/)
+KBO( :, 4,41, 7) = (/&
+&5.1095E-04_JPRB,2.8525E-03_JPRB,3.8680E-03_JPRB,4.4284E-03_JPRB,3.8199E-03_JPRB/)
+KBO( :, 5,41, 7) = (/&
+&6.8302E-04_JPRB,3.2540E-03_JPRB,4.2038E-03_JPRB,4.6408E-03_JPRB,3.7718E-03_JPRB/)
+KBO( :, 1,42, 7) = (/&
+&1.4021E-04_JPRB,1.6447E-03_JPRB,2.5340E-03_JPRB,3.1794E-03_JPRB,3.2271E-03_JPRB/)
+KBO( :, 2,42, 7) = (/&
+&2.0457E-04_JPRB,1.8341E-03_JPRB,2.7244E-03_JPRB,3.3270E-03_JPRB,3.2092E-03_JPRB/)
+KBO( :, 3,42, 7) = (/&
+&2.9014E-04_JPRB,2.0556E-03_JPRB,2.9350E-03_JPRB,3.4824E-03_JPRB,3.1854E-03_JPRB/)
+KBO( :, 4,42, 7) = (/&
+&4.0126E-04_JPRB,2.3289E-03_JPRB,3.1740E-03_JPRB,3.6472E-03_JPRB,3.1554E-03_JPRB/)
+KBO( :, 5,42, 7) = (/&
+&5.4072E-04_JPRB,2.6686E-03_JPRB,3.4603E-03_JPRB,3.8315E-03_JPRB,3.1192E-03_JPRB/)
+KBO( :, 1,43, 7) = (/&
+&1.0418E-04_JPRB,1.3241E-03_JPRB,2.0566E-03_JPRB,2.5949E-03_JPRB,2.6555E-03_JPRB/)
+KBO( :, 2,43, 7) = (/&
+&1.5394E-04_JPRB,1.4792E-03_JPRB,2.2158E-03_JPRB,2.7206E-03_JPRB,2.6446E-03_JPRB/)
+KBO( :, 3,43, 7) = (/&
+&2.2089E-04_JPRB,1.6609E-03_JPRB,2.3912E-03_JPRB,2.8530E-03_JPRB,2.6280E-03_JPRB/)
+KBO( :, 4,43, 7) = (/&
+&3.0843E-04_JPRB,1.8861E-03_JPRB,2.5915E-03_JPRB,2.9949E-03_JPRB,2.6073E-03_JPRB/)
+KBO( :, 5,43, 7) = (/&
+&4.1975E-04_JPRB,2.1696E-03_JPRB,2.8326E-03_JPRB,3.1535E-03_JPRB,2.5807E-03_JPRB/)
+KBO( :, 1,44, 7) = (/&
+&7.6179E-05_JPRB,1.0623E-03_JPRB,1.6648E-03_JPRB,2.1141E-03_JPRB,2.1847E-03_JPRB/)
+KBO( :, 2,44, 7) = (/&
+&1.1420E-04_JPRB,1.1887E-03_JPRB,1.7975E-03_JPRB,2.2205E-03_JPRB,2.1791E-03_JPRB/)
+KBO( :, 3,44, 7) = (/&
+&1.6589E-04_JPRB,1.3367E-03_JPRB,1.9435E-03_JPRB,2.3337E-03_JPRB,2.1689E-03_JPRB/)
+KBO( :, 4,44, 7) = (/&
+&2.3431E-04_JPRB,1.5216E-03_JPRB,2.1097E-03_JPRB,2.4546E-03_JPRB,2.1546E-03_JPRB/)
+KBO( :, 5,44, 7) = (/&
+&3.2209E-04_JPRB,1.7553E-03_JPRB,2.3110E-03_JPRB,2.5901E-03_JPRB,2.1354E-03_JPRB/)
+KBO( :, 1,45, 7) = (/&
+&5.5380E-05_JPRB,8.5190E-04_JPRB,1.3470E-03_JPRB,1.7214E-03_JPRB,1.7974E-03_JPRB/)
+KBO( :, 2,45, 7) = (/&
+&8.4230E-05_JPRB,9.5419E-04_JPRB,1.4571E-03_JPRB,1.8110E-03_JPRB,1.7954E-03_JPRB/)
+KBO( :, 3,45, 7) = (/&
+&1.2398E-04_JPRB,1.0747E-03_JPRB,1.5782E-03_JPRB,1.9072E-03_JPRB,1.7895E-03_JPRB/)
+KBO( :, 4,45, 7) = (/&
+&1.7714E-04_JPRB,1.2254E-03_JPRB,1.7161E-03_JPRB,2.0103E-03_JPRB,1.7807E-03_JPRB/)
+KBO( :, 5,45, 7) = (/&
+&2.4615E-04_JPRB,1.4185E-03_JPRB,1.8836E-03_JPRB,2.1255E-03_JPRB,1.7676E-03_JPRB/)
+KBO( :, 1,46, 7) = (/&
+&3.9608E-05_JPRB,6.8065E-04_JPRB,1.0869E-03_JPRB,1.3989E-03_JPRB,1.4780E-03_JPRB/)
+KBO( :, 2,46, 7) = (/&
+&6.1254E-05_JPRB,7.6359E-04_JPRB,1.1780E-03_JPRB,1.4742E-03_JPRB,1.4788E-03_JPRB/)
+KBO( :, 3,46, 7) = (/&
+&9.1434E-05_JPRB,8.6131E-04_JPRB,1.2786E-03_JPRB,1.5561E-03_JPRB,1.4768E-03_JPRB/)
+KBO( :, 4,46, 7) = (/&
+&1.3231E-04_JPRB,9.8314E-04_JPRB,1.3925E-03_JPRB,1.6437E-03_JPRB,1.4719E-03_JPRB/)
+KBO( :, 5,46, 7) = (/&
+&1.8599E-04_JPRB,1.1411E-03_JPRB,1.5309E-03_JPRB,1.7412E-03_JPRB,1.4636E-03_JPRB/)
+KBO( :, 1,47, 7) = (/&
+&2.7565E-05_JPRB,5.4081E-04_JPRB,8.7346E-04_JPRB,1.1337E-03_JPRB,1.2145E-03_JPRB/)
+KBO( :, 2,47, 7) = (/&
+&4.3444E-05_JPRB,6.0782E-04_JPRB,9.4864E-04_JPRB,1.1966E-03_JPRB,1.2173E-03_JPRB/)
+KBO( :, 3,47, 7) = (/&
+&6.5911E-05_JPRB,6.8599E-04_JPRB,1.0313E-03_JPRB,1.2655E-03_JPRB,1.2177E-03_JPRB/)
+KBO( :, 4,47, 7) = (/&
+&9.6767E-05_JPRB,7.8305E-04_JPRB,1.1246E-03_JPRB,1.3397E-03_JPRB,1.2159E-03_JPRB/)
+KBO( :, 5,47, 7) = (/&
+&1.3786E-04_JPRB,9.1017E-04_JPRB,1.2371E-03_JPRB,1.4212E-03_JPRB,1.2107E-03_JPRB/)
+KBO( :, 1,48, 7) = (/&
+&1.9010E-05_JPRB,4.2934E-04_JPRB,7.0139E-04_JPRB,9.1842E-04_JPRB,9.9781E-04_JPRB/)
+KBO( :, 2,48, 7) = (/&
+&3.0547E-05_JPRB,4.8321E-04_JPRB,7.6298E-04_JPRB,9.7015E-04_JPRB,1.0019E-03_JPRB/)
+KBO( :, 3,48, 7) = (/&
+&4.7172E-05_JPRB,5.4566E-04_JPRB,8.3089E-04_JPRB,1.0280E-03_JPRB,1.0041E-03_JPRB/)
+KBO( :, 4,48, 7) = (/&
+&7.0312E-05_JPRB,6.2270E-04_JPRB,9.0704E-04_JPRB,1.0904E-03_JPRB,1.0043E-03_JPRB/)
+KBO( :, 5,48, 7) = (/&
+&1.0158E-04_JPRB,7.2457E-04_JPRB,9.9839E-04_JPRB,1.1584E-03_JPRB,1.0014E-03_JPRB/)
+KBO( :, 1,49, 7) = (/&
+&1.2989E-05_JPRB,3.4041E-04_JPRB,5.6254E-04_JPRB,7.4336E-04_JPRB,8.1967E-04_JPRB/)
+KBO( :, 2,49, 7) = (/&
+&2.1288E-05_JPRB,3.8375E-04_JPRB,6.1286E-04_JPRB,7.8566E-04_JPRB,8.2462E-04_JPRB/)
+KBO( :, 3,49, 7) = (/&
+&3.3501E-05_JPRB,4.3371E-04_JPRB,6.6869E-04_JPRB,8.3391E-04_JPRB,8.2791E-04_JPRB/)
+KBO( :, 4,49, 7) = (/&
+&5.0757E-05_JPRB,4.9477E-04_JPRB,7.3099E-04_JPRB,8.8650E-04_JPRB,8.2973E-04_JPRB/)
+KBO( :, 5,49, 7) = (/&
+&7.4391E-05_JPRB,5.7603E-04_JPRB,8.0512E-04_JPRB,9.4378E-04_JPRB,8.2902E-04_JPRB/)
+KBO( :, 1,50, 7) = (/&
+&8.9107E-06_JPRB,2.7028E-04_JPRB,4.5165E-04_JPRB,6.0203E-04_JPRB,6.7224E-04_JPRB/)
+KBO( :, 2,50, 7) = (/&
+&1.4889E-05_JPRB,3.0526E-04_JPRB,4.9281E-04_JPRB,6.3656E-04_JPRB,6.7754E-04_JPRB/)
+KBO( :, 3,50, 7) = (/&
+&2.3877E-05_JPRB,3.4554E-04_JPRB,5.3891E-04_JPRB,6.7691E-04_JPRB,6.8139E-04_JPRB/)
+KBO( :, 4,50, 7) = (/&
+&3.6771E-05_JPRB,3.9444E-04_JPRB,5.9020E-04_JPRB,7.2140E-04_JPRB,6.8414E-04_JPRB/)
+KBO( :, 5,50, 7) = (/&
+&5.4655E-05_JPRB,4.5942E-04_JPRB,6.5054E-04_JPRB,7.6968E-04_JPRB,6.8480E-04_JPRB/)
+KBO( :, 1,51, 7) = (/&
+&6.0961E-06_JPRB,2.1476E-04_JPRB,3.6280E-04_JPRB,4.8765E-04_JPRB,5.5078E-04_JPRB/)
+KBO( :, 2,51, 7) = (/&
+&1.0381E-05_JPRB,2.4307E-04_JPRB,3.9642E-04_JPRB,5.1588E-04_JPRB,5.5623E-04_JPRB/)
+KBO( :, 3,51, 7) = (/&
+&1.6982E-05_JPRB,2.7555E-04_JPRB,4.3451E-04_JPRB,5.4955E-04_JPRB,5.6027E-04_JPRB/)
+KBO( :, 4,51, 7) = (/&
+&2.6587E-05_JPRB,3.1466E-04_JPRB,4.7661E-04_JPRB,5.8697E-04_JPRB,5.6337E-04_JPRB/)
+KBO( :, 5,51, 7) = (/&
+&4.0101E-05_JPRB,3.6650E-04_JPRB,5.2570E-04_JPRB,6.2745E-04_JPRB,5.6478E-04_JPRB/)
+KBO( :, 1,52, 7) = (/&
+&4.1353E-06_JPRB,1.7061E-04_JPRB,2.9145E-04_JPRB,3.9501E-04_JPRB,4.5130E-04_JPRB/)
+KBO( :, 2,52, 7) = (/&
+&7.1818E-06_JPRB,1.9335E-04_JPRB,3.1863E-04_JPRB,4.1793E-04_JPRB,4.5663E-04_JPRB/)
+KBO( :, 3,52, 7) = (/&
+&1.1989E-05_JPRB,2.1956E-04_JPRB,3.4994E-04_JPRB,4.4575E-04_JPRB,4.6074E-04_JPRB/)
+KBO( :, 4,52, 7) = (/&
+&1.9102E-05_JPRB,2.5087E-04_JPRB,3.8455E-04_JPRB,4.7710E-04_JPRB,4.6395E-04_JPRB/)
+KBO( :, 5,52, 7) = (/&
+&2.9266E-05_JPRB,2.9208E-04_JPRB,4.2456E-04_JPRB,5.1110E-04_JPRB,4.6590E-04_JPRB/)
+KBO( :, 1,53, 7) = (/&
+&2.7771E-06_JPRB,1.3543E-04_JPRB,2.3402E-04_JPRB,3.1978E-04_JPRB,3.6971E-04_JPRB/)
+KBO( :, 2,53, 7) = (/&
+&4.9256E-06_JPRB,1.5363E-04_JPRB,2.5583E-04_JPRB,3.3830E-04_JPRB,3.7486E-04_JPRB/)
+KBO( :, 3,53, 7) = (/&
+&8.3927E-06_JPRB,1.7477E-04_JPRB,2.8146E-04_JPRB,3.6113E-04_JPRB,3.7892E-04_JPRB/)
+KBO( :, 4,53, 7) = (/&
+&1.3629E-05_JPRB,1.9978E-04_JPRB,3.0996E-04_JPRB,3.8736E-04_JPRB,3.8222E-04_JPRB/)
+KBO( :, 5,53, 7) = (/&
+&2.1224E-05_JPRB,2.3248E-04_JPRB,3.4254E-04_JPRB,4.1583E-04_JPRB,3.8453E-04_JPRB/)
+KBO( :, 1,54, 7) = (/&
+&1.8811E-06_JPRB,1.0783E-04_JPRB,1.8829E-04_JPRB,2.5915E-04_JPRB,3.0210E-04_JPRB/)
+KBO( :, 2,54, 7) = (/&
+&3.4084E-06_JPRB,1.2242E-04_JPRB,2.0578E-04_JPRB,2.7417E-04_JPRB,3.0673E-04_JPRB/)
+KBO( :, 3,54, 7) = (/&
+&5.9212E-06_JPRB,1.3950E-04_JPRB,2.2680E-04_JPRB,2.9292E-04_JPRB,3.1041E-04_JPRB/)
+KBO( :, 4,54, 7) = (/&
+&9.7966E-06_JPRB,1.5966E-04_JPRB,2.5030E-04_JPRB,3.1483E-04_JPRB,3.1342E-04_JPRB/)
+KBO( :, 5,54, 7) = (/&
+&1.5501E-05_JPRB,1.8577E-04_JPRB,2.7693E-04_JPRB,3.3870E-04_JPRB,3.1563E-04_JPRB/)
+KBO( :, 1,55, 7) = (/&
+&1.2736E-06_JPRB,8.5960E-05_JPRB,1.5164E-04_JPRB,2.1009E-04_JPRB,2.4656E-04_JPRB/)
+KBO( :, 2,55, 7) = (/&
+&2.3598E-06_JPRB,9.7655E-05_JPRB,1.6564E-04_JPRB,2.2229E-04_JPRB,2.5059E-04_JPRB/)
+KBO( :, 3,55, 7) = (/&
+&4.1776E-06_JPRB,1.1145E-04_JPRB,1.8284E-04_JPRB,2.3762E-04_JPRB,2.5377E-04_JPRB/)
+KBO( :, 4,55, 7) = (/&
+&7.0441E-06_JPRB,1.2773E-04_JPRB,2.0219E-04_JPRB,2.5588E-04_JPRB,2.5634E-04_JPRB/)
+KBO( :, 5,55, 7) = (/&
+&1.1323E-05_JPRB,1.4864E-04_JPRB,2.2410E-04_JPRB,2.7593E-04_JPRB,2.5827E-04_JPRB/)
+KBO( :, 1,56, 7) = (/&
+&8.5479E-07_JPRB,6.8495E-05_JPRB,1.2209E-04_JPRB,1.7021E-04_JPRB,2.0114E-04_JPRB/)
+KBO( :, 2,56, 7) = (/&
+&1.6225E-06_JPRB,7.7817E-05_JPRB,1.3325E-04_JPRB,1.8015E-04_JPRB,2.0463E-04_JPRB/)
+KBO( :, 3,56, 7) = (/&
+&2.9270E-06_JPRB,8.8970E-05_JPRB,1.4725E-04_JPRB,1.9262E-04_JPRB,2.0743E-04_JPRB/)
+KBO( :, 4,56, 7) = (/&
+&5.0340E-06_JPRB,1.0210E-04_JPRB,1.6318E-04_JPRB,2.0779E-04_JPRB,2.0965E-04_JPRB/)
+KBO( :, 5,56, 7) = (/&
+&8.2279E-06_JPRB,1.1881E-04_JPRB,1.8117E-04_JPRB,2.2455E-04_JPRB,2.1130E-04_JPRB/)
+KBO( :, 1,57, 7) = (/&
+&5.6832E-07_JPRB,5.4568E-05_JPRB,9.8248E-05_JPRB,1.3779E-04_JPRB,1.6394E-04_JPRB/)
+KBO( :, 2,57, 7) = (/&
+&1.1069E-06_JPRB,6.1982E-05_JPRB,1.0712E-04_JPRB,1.4596E-04_JPRB,1.6709E-04_JPRB/)
+KBO( :, 3,57, 7) = (/&
+&2.0353E-06_JPRB,7.0945E-05_JPRB,1.1847E-04_JPRB,1.5604E-04_JPRB,1.6951E-04_JPRB/)
+KBO( :, 4,57, 7) = (/&
+&3.5732E-06_JPRB,8.1530E-05_JPRB,1.3155E-04_JPRB,1.6855E-04_JPRB,1.7142E-04_JPRB/)
+KBO( :, 5,57, 7) = (/&
+&5.9454E-06_JPRB,9.4896E-05_JPRB,1.4631E-04_JPRB,1.8257E-04_JPRB,1.7286E-04_JPRB/)
+KBO( :, 1,58, 7) = (/&
+&3.7890E-07_JPRB,4.3568E-05_JPRB,7.9163E-05_JPRB,1.1161E-04_JPRB,1.3361E-04_JPRB/)
+KBO( :, 2,58, 7) = (/&
+&7.5700E-07_JPRB,4.9431E-05_JPRB,8.6199E-05_JPRB,1.1831E-04_JPRB,1.3638E-04_JPRB/)
+KBO( :, 3,58, 7) = (/&
+&1.4190E-06_JPRB,5.6651E-05_JPRB,9.5379E-05_JPRB,1.2647E-04_JPRB,1.3843E-04_JPRB/)
+KBO( :, 4,58, 7) = (/&
+&2.5422E-06_JPRB,6.5215E-05_JPRB,1.0612E-04_JPRB,1.3677E-04_JPRB,1.4007E-04_JPRB/)
+KBO( :, 5,58, 7) = (/&
+&4.3056E-06_JPRB,7.5939E-05_JPRB,1.1825E-04_JPRB,1.4847E-04_JPRB,1.4132E-04_JPRB/)
+KBO( :, 1,59, 7) = (/&
+&2.8711E-07_JPRB,3.5512E-05_JPRB,6.4676E-05_JPRB,9.1313E-05_JPRB,1.0905E-04_JPRB/)
+KBO( :, 2,59, 7) = (/&
+&5.8051E-07_JPRB,4.0372E-05_JPRB,7.0558E-05_JPRB,9.6940E-05_JPRB,1.1137E-04_JPRB/)
+KBO( :, 3,59, 7) = (/&
+&1.1009E-06_JPRB,4.6368E-05_JPRB,7.8242E-05_JPRB,1.0385E-04_JPRB,1.1298E-04_JPRB/)
+KBO( :, 4,59, 7) = (/&
+&1.9927E-06_JPRB,5.3528E-05_JPRB,8.7247E-05_JPRB,1.1259E-04_JPRB,1.1418E-04_JPRB/)
+KBO( :, 5,59, 7) = (/&
+&3.4060E-06_JPRB,6.2579E-05_JPRB,9.7497E-05_JPRB,1.2251E-04_JPRB,1.1509E-04_JPRB/)
+KBO( :, 1,13, 8) = (/&
+&2.3970E-02_JPRB,3.0710E-01_JPRB,5.4364E-01_JPRB,7.5219E-01_JPRB,9.5462E-01_JPRB/)
+KBO( :, 2,13, 8) = (/&
+&3.5910E-02_JPRB,3.2191E-01_JPRB,5.5986E-01_JPRB,7.6221E-01_JPRB,9.4753E-01_JPRB/)
+KBO( :, 3,13, 8) = (/&
+&5.1314E-02_JPRB,3.3704E-01_JPRB,5.7518E-01_JPRB,7.7250E-01_JPRB,9.3944E-01_JPRB/)
+KBO( :, 4,13, 8) = (/&
+&7.0544E-02_JPRB,3.5215E-01_JPRB,5.8965E-01_JPRB,7.8209E-01_JPRB,9.3187E-01_JPRB/)
+KBO( :, 5,13, 8) = (/&
+&9.4072E-02_JPRB,3.6813E-01_JPRB,6.0322E-01_JPRB,7.9095E-01_JPRB,9.2652E-01_JPRB/)
+KBO( :, 1,14, 8) = (/&
+&2.1394E-02_JPRB,2.9767E-01_JPRB,5.2636E-01_JPRB,7.2588E-01_JPRB,9.1476E-01_JPRB/)
+KBO( :, 2,14, 8) = (/&
+&3.2006E-02_JPRB,3.1221E-01_JPRB,5.4240E-01_JPRB,7.3771E-01_JPRB,9.0915E-01_JPRB/)
+KBO( :, 3,14, 8) = (/&
+&4.5714E-02_JPRB,3.2744E-01_JPRB,5.5760E-01_JPRB,7.4911E-01_JPRB,9.0264E-01_JPRB/)
+KBO( :, 4,14, 8) = (/&
+&6.3005E-02_JPRB,3.4291E-01_JPRB,5.7202E-01_JPRB,7.5985E-01_JPRB,8.9702E-01_JPRB/)
+KBO( :, 5,14, 8) = (/&
+&8.4224E-02_JPRB,3.5938E-01_JPRB,5.8648E-01_JPRB,7.6955E-01_JPRB,8.9207E-01_JPRB/)
+KBO( :, 1,15, 8) = (/&
+&1.9200E-02_JPRB,2.8555E-01_JPRB,5.0447E-01_JPRB,6.9471E-01_JPRB,8.6829E-01_JPRB/)
+KBO( :, 2,15, 8) = (/&
+&2.8674E-02_JPRB,2.9984E-01_JPRB,5.2000E-01_JPRB,7.0783E-01_JPRB,8.6420E-01_JPRB/)
+KBO( :, 3,15, 8) = (/&
+&4.1036E-02_JPRB,3.1465E-01_JPRB,5.3501E-01_JPRB,7.2026E-01_JPRB,8.6024E-01_JPRB/)
+KBO( :, 4,15, 8) = (/&
+&5.6691E-02_JPRB,3.3028E-01_JPRB,5.4991E-01_JPRB,7.3143E-01_JPRB,8.5592E-01_JPRB/)
+KBO( :, 5,15, 8) = (/&
+&7.5884E-02_JPRB,3.4766E-01_JPRB,5.6508E-01_JPRB,7.4152E-01_JPRB,8.5184E-01_JPRB/)
+KBO( :, 1,16, 8) = (/&
+&1.7280E-02_JPRB,2.7106E-01_JPRB,4.7797E-01_JPRB,6.5828E-01_JPRB,8.1566E-01_JPRB/)
+KBO( :, 2,16, 8) = (/&
+&2.5826E-02_JPRB,2.8505E-01_JPRB,4.9327E-01_JPRB,6.7219E-01_JPRB,8.1411E-01_JPRB/)
+KBO( :, 3,16, 8) = (/&
+&3.7038E-02_JPRB,2.9951E-01_JPRB,5.0847E-01_JPRB,6.8487E-01_JPRB,8.1174E-01_JPRB/)
+KBO( :, 4,16, 8) = (/&
+&5.1196E-02_JPRB,3.1526E-01_JPRB,5.2352E-01_JPRB,6.9628E-01_JPRB,8.0904E-01_JPRB/)
+KBO( :, 5,16, 8) = (/&
+&6.8473E-02_JPRB,3.3321E-01_JPRB,5.3879E-01_JPRB,7.0679E-01_JPRB,8.0649E-01_JPRB/)
+KBO( :, 1,17, 8) = (/&
+&1.5538E-02_JPRB,2.5421E-01_JPRB,4.4772E-01_JPRB,6.1710E-01_JPRB,7.5839E-01_JPRB/)
+KBO( :, 2,17, 8) = (/&
+&2.3272E-02_JPRB,2.6785E-01_JPRB,4.6279E-01_JPRB,6.3082E-01_JPRB,7.5816E-01_JPRB/)
+KBO( :, 3,17, 8) = (/&
+&3.3383E-02_JPRB,2.8231E-01_JPRB,4.7772E-01_JPRB,6.4345E-01_JPRB,7.5757E-01_JPRB/)
+KBO( :, 4,17, 8) = (/&
+&4.6070E-02_JPRB,2.9815E-01_JPRB,4.9276E-01_JPRB,6.5511E-01_JPRB,7.5658E-01_JPRB/)
+KBO( :, 5,17, 8) = (/&
+&6.1414E-02_JPRB,3.1621E-01_JPRB,5.0851E-01_JPRB,6.6619E-01_JPRB,7.5588E-01_JPRB/)
+KBO( :, 1,18, 8) = (/&
+&1.3967E-02_JPRB,2.3577E-01_JPRB,4.1440E-01_JPRB,5.7110E-01_JPRB,6.9644E-01_JPRB/)
+KBO( :, 2,18, 8) = (/&
+&2.0919E-02_JPRB,2.4897E-01_JPRB,4.2906E-01_JPRB,5.8444E-01_JPRB,6.9784E-01_JPRB/)
+KBO( :, 3,18, 8) = (/&
+&2.9927E-02_JPRB,2.6320E-01_JPRB,4.4386E-01_JPRB,5.9706E-01_JPRB,6.9881E-01_JPRB/)
+KBO( :, 4,18, 8) = (/&
+&4.1175E-02_JPRB,2.7935E-01_JPRB,4.5908E-01_JPRB,6.0918E-01_JPRB,6.9970E-01_JPRB/)
+KBO( :, 5,18, 8) = (/&
+&5.4768E-02_JPRB,2.9730E-01_JPRB,4.7517E-01_JPRB,6.2117E-01_JPRB,7.0068E-01_JPRB/)
+KBO( :, 1,19, 8) = (/&
+&1.2535E-02_JPRB,2.1612E-01_JPRB,3.7880E-01_JPRB,5.2193E-01_JPRB,6.3226E-01_JPRB/)
+KBO( :, 2,19, 8) = (/&
+&1.8709E-02_JPRB,2.2885E-01_JPRB,3.9316E-01_JPRB,5.3486E-01_JPRB,6.3494E-01_JPRB/)
+KBO( :, 3,19, 8) = (/&
+&2.6683E-02_JPRB,2.4307E-01_JPRB,4.0782E-01_JPRB,5.4746E-01_JPRB,6.3735E-01_JPRB/)
+KBO( :, 4,19, 8) = (/&
+&3.6602E-02_JPRB,2.5923E-01_JPRB,4.2323E-01_JPRB,5.6013E-01_JPRB,6.4003E-01_JPRB/)
+KBO( :, 5,19, 8) = (/&
+&4.8595E-02_JPRB,2.7710E-01_JPRB,4.3996E-01_JPRB,5.7286E-01_JPRB,6.4337E-01_JPRB/)
+KBO( :, 1,20, 8) = (/&
+&1.1287E-02_JPRB,1.9616E-01_JPRB,3.4278E-01_JPRB,4.7146E-01_JPRB,5.6767E-01_JPRB/)
+KBO( :, 2,20, 8) = (/&
+&1.6764E-02_JPRB,2.0859E-01_JPRB,3.5655E-01_JPRB,4.8417E-01_JPRB,5.7171E-01_JPRB/)
+KBO( :, 3,20, 8) = (/&
+&2.3811E-02_JPRB,2.2281E-01_JPRB,3.7110E-01_JPRB,4.9713E-01_JPRB,5.7584E-01_JPRB/)
+KBO( :, 4,20, 8) = (/&
+&3.2552E-02_JPRB,2.3876E-01_JPRB,3.8677E-01_JPRB,5.1039E-01_JPRB,5.8077E-01_JPRB/)
+KBO( :, 5,20, 8) = (/&
+&4.3159E-02_JPRB,2.5646E-01_JPRB,4.0398E-01_JPRB,5.2418E-01_JPRB,5.8653E-01_JPRB/)
+KBO( :, 1,21, 8) = (/&
+&1.0123E-02_JPRB,1.7642E-01_JPRB,3.0702E-01_JPRB,4.2164E-01_JPRB,5.0497E-01_JPRB/)
+KBO( :, 2,21, 8) = (/&
+&1.4960E-02_JPRB,1.8865E-01_JPRB,3.2047E-01_JPRB,4.3442E-01_JPRB,5.1019E-01_JPRB/)
+KBO( :, 3,21, 8) = (/&
+&2.1152E-02_JPRB,2.0268E-01_JPRB,3.3499E-01_JPRB,4.4767E-01_JPRB,5.1630E-01_JPRB/)
+KBO( :, 4,21, 8) = (/&
+&2.8843E-02_JPRB,2.1843E-01_JPRB,3.5106E-01_JPRB,4.6165E-01_JPRB,5.2357E-01_JPRB/)
+KBO( :, 5,21, 8) = (/&
+&3.8204E-02_JPRB,2.3577E-01_JPRB,3.6853E-01_JPRB,4.7644E-01_JPRB,5.3124E-01_JPRB/)
+KBO( :, 1,22, 8) = (/&
+&9.2874E-03_JPRB,1.5831E-01_JPRB,2.7358E-01_JPRB,3.7468E-01_JPRB,4.4590E-01_JPRB/)
+KBO( :, 2,22, 8) = (/&
+&1.3605E-02_JPRB,1.7047E-01_JPRB,2.8679E-01_JPRB,3.8765E-01_JPRB,4.5286E-01_JPRB/)
+KBO( :, 3,22, 8) = (/&
+&1.9114E-02_JPRB,1.8434E-01_JPRB,3.0159E-01_JPRB,4.0144E-01_JPRB,4.6097E-01_JPRB/)
+KBO( :, 4,22, 8) = (/&
+&2.5961E-02_JPRB,1.9982E-01_JPRB,3.1798E-01_JPRB,4.1606E-01_JPRB,4.6951E-01_JPRB/)
+KBO( :, 5,22, 8) = (/&
+&3.4349E-02_JPRB,2.1668E-01_JPRB,3.3570E-01_JPRB,4.3114E-01_JPRB,4.7729E-01_JPRB/)
+KBO( :, 1,23, 8) = (/&
+&8.4921E-03_JPRB,1.4152E-01_JPRB,2.4231E-01_JPRB,3.3110E-01_JPRB,3.9186E-01_JPRB/)
+KBO( :, 2,23, 8) = (/&
+&1.2342E-02_JPRB,1.5348E-01_JPRB,2.5569E-01_JPRB,3.4426E-01_JPRB,4.0022E-01_JPRB/)
+KBO( :, 3,23, 8) = (/&
+&1.7244E-02_JPRB,1.6712E-01_JPRB,2.7061E-01_JPRB,3.5816E-01_JPRB,4.0905E-01_JPRB/)
+KBO( :, 4,23, 8) = (/&
+&2.3366E-02_JPRB,1.8219E-01_JPRB,2.8684E-01_JPRB,3.7242E-01_JPRB,4.1729E-01_JPRB/)
+KBO( :, 5,23, 8) = (/&
+&3.0906E-02_JPRB,1.9826E-01_JPRB,3.0394E-01_JPRB,3.8658E-01_JPRB,4.2349E-01_JPRB/)
+KBO( :, 1,24, 8) = (/&
+&7.7535E-03_JPRB,1.2629E-01_JPRB,2.1405E-01_JPRB,2.9135E-01_JPRB,3.4301E-01_JPRB/)
+KBO( :, 2,24, 8) = (/&
+&1.1183E-02_JPRB,1.3800E-01_JPRB,2.2733E-01_JPRB,3.0427E-01_JPRB,3.5176E-01_JPRB/)
+KBO( :, 3,24, 8) = (/&
+&1.5576E-02_JPRB,1.5118E-01_JPRB,2.4185E-01_JPRB,3.1749E-01_JPRB,3.6002E-01_JPRB/)
+KBO( :, 4,24, 8) = (/&
+&2.1087E-02_JPRB,1.6543E-01_JPRB,2.5728E-01_JPRB,3.3050E-01_JPRB,3.6605E-01_JPRB/)
+KBO( :, 5,24, 8) = (/&
+&2.7862E-02_JPRB,1.8042E-01_JPRB,2.7311E-01_JPRB,3.4269E-01_JPRB,3.6924E-01_JPRB/)
+KBO( :, 1,25, 8) = (/&
+&7.0742E-03_JPRB,1.1262E-01_JPRB,1.8871E-01_JPRB,2.5540E-01_JPRB,2.9903E-01_JPRB/)
+KBO( :, 2,25, 8) = (/&
+&1.0155E-02_JPRB,1.2387E-01_JPRB,2.0149E-01_JPRB,2.6744E-01_JPRB,3.0694E-01_JPRB/)
+KBO( :, 3,25, 8) = (/&
+&1.4119E-02_JPRB,1.3621E-01_JPRB,2.1507E-01_JPRB,2.7908E-01_JPRB,3.1279E-01_JPRB/)
+KBO( :, 4,25, 8) = (/&
+&1.9079E-02_JPRB,1.4928E-01_JPRB,2.2897E-01_JPRB,2.8986E-01_JPRB,3.1583E-01_JPRB/)
+KBO( :, 5,25, 8) = (/&
+&2.5164E-02_JPRB,1.6305E-01_JPRB,2.4282E-01_JPRB,2.9961E-01_JPRB,3.1616E-01_JPRB/)
+KBO( :, 1,26, 8) = (/&
+&6.4819E-03_JPRB,1.0046E-01_JPRB,1.6616E-01_JPRB,2.2296E-01_JPRB,2.5906E-01_JPRB/)
+KBO( :, 2,26, 8) = (/&
+&9.2746E-03_JPRB,1.1094E-01_JPRB,1.7789E-01_JPRB,2.3321E-01_JPRB,2.6463E-01_JPRB/)
+KBO( :, 3,26, 8) = (/&
+&1.2860E-02_JPRB,1.2211E-01_JPRB,1.8982E-01_JPRB,2.4261E-01_JPRB,2.6762E-01_JPRB/)
+KBO( :, 4,26, 8) = (/&
+&1.7340E-02_JPRB,1.3390E-01_JPRB,2.0176E-01_JPRB,2.5109E-01_JPRB,2.6820E-01_JPRB/)
+KBO( :, 5,26, 8) = (/&
+&2.2797E-02_JPRB,1.4641E-01_JPRB,2.1346E-01_JPRB,2.5871E-01_JPRB,2.6701E-01_JPRB/)
+KBO( :, 1,27, 8) = (/&
+&5.9496E-03_JPRB,8.9354E-02_JPRB,1.4559E-01_JPRB,1.9301E-01_JPRB,2.2196E-01_JPRB/)
+KBO( :, 2,27, 8) = (/&
+&8.4823E-03_JPRB,9.8713E-02_JPRB,1.5575E-01_JPRB,2.0121E-01_JPRB,2.2502E-01_JPRB/)
+KBO( :, 3,27, 8) = (/&
+&1.1723E-02_JPRB,1.0860E-01_JPRB,1.6592E-01_JPRB,2.0857E-01_JPRB,2.2594E-01_JPRB/)
+KBO( :, 4,27, 8) = (/&
+&1.5760E-02_JPRB,1.1910E-01_JPRB,1.7588E-01_JPRB,2.1528E-01_JPRB,2.2532E-01_JPRB/)
+KBO( :, 5,27, 8) = (/&
+&2.0640E-02_JPRB,1.3042E-01_JPRB,1.8584E-01_JPRB,2.2158E-01_JPRB,2.2357E-01_JPRB/)
+KBO( :, 1,28, 8) = (/&
+&5.4648E-03_JPRB,7.8954E-02_JPRB,1.2664E-01_JPRB,1.6556E-01_JPRB,1.8790E-01_JPRB/)
+KBO( :, 2,28, 8) = (/&
+&7.7612E-03_JPRB,8.7134E-02_JPRB,1.3525E-01_JPRB,1.7197E-01_JPRB,1.8917E-01_JPRB/)
+KBO( :, 3,28, 8) = (/&
+&1.0688E-02_JPRB,9.5816E-02_JPRB,1.4371E-01_JPRB,1.7791E-01_JPRB,1.8910E-01_JPRB/)
+KBO( :, 4,28, 8) = (/&
+&1.4301E-02_JPRB,1.0515E-01_JPRB,1.5218E-01_JPRB,1.8352E-01_JPRB,1.8804E-01_JPRB/)
+KBO( :, 5,28, 8) = (/&
+&1.8668E-02_JPRB,1.1540E-01_JPRB,1.6098E-01_JPRB,1.8889E-01_JPRB,1.8616E-01_JPRB/)
+KBO( :, 1,29, 8) = (/&
+&5.0360E-03_JPRB,6.9325E-02_JPRB,1.0943E-01_JPRB,1.4091E-01_JPRB,1.5759E-01_JPRB/)
+KBO( :, 2,29, 8) = (/&
+&7.1202E-03_JPRB,7.6426E-02_JPRB,1.1663E-01_JPRB,1.4615E-01_JPRB,1.5798E-01_JPRB/)
+KBO( :, 3,29, 8) = (/&
+&9.7533E-03_JPRB,8.4055E-02_JPRB,1.2381E-01_JPRB,1.5115E-01_JPRB,1.5749E-01_JPRB/)
+KBO( :, 4,29, 8) = (/&
+&1.2997E-02_JPRB,9.2463E-02_JPRB,1.3122E-01_JPRB,1.5595E-01_JPRB,1.5628E-01_JPRB/)
+KBO( :, 5,29, 8) = (/&
+&1.6906E-02_JPRB,1.0185E-01_JPRB,1.3918E-01_JPRB,1.6061E-01_JPRB,1.5451E-01_JPRB/)
+KBO( :, 1,30, 8) = (/&
+&4.6402E-03_JPRB,6.0489E-02_JPRB,9.4043E-02_JPRB,1.1942E-01_JPRB,1.3140E-01_JPRB/)
+KBO( :, 2,30, 8) = (/&
+&6.5263E-03_JPRB,6.6689E-02_JPRB,1.0012E-01_JPRB,1.2384E-01_JPRB,1.3139E-01_JPRB/)
+KBO( :, 3,30, 8) = (/&
+&8.8957E-03_JPRB,7.3511E-02_JPRB,1.0635E-01_JPRB,1.2814E-01_JPRB,1.3072E-01_JPRB/)
+KBO( :, 4,30, 8) = (/&
+&1.1806E-02_JPRB,8.1191E-02_JPRB,1.1302E-01_JPRB,1.3230E-01_JPRB,1.2954E-01_JPRB/)
+KBO( :, 5,30, 8) = (/&
+&1.5321E-02_JPRB,8.9861E-02_JPRB,1.2036E-01_JPRB,1.3654E-01_JPRB,1.2795E-01_JPRB/)
+KBO( :, 1,31, 8) = (/&
+&4.2816E-03_JPRB,5.2594E-02_JPRB,8.0556E-02_JPRB,1.0100E-01_JPRB,1.0923E-01_JPRB/)
+KBO( :, 2,31, 8) = (/&
+&5.9928E-03_JPRB,5.8093E-02_JPRB,8.5788E-02_JPRB,1.0484E-01_JPRB,1.0901E-01_JPRB/)
+KBO( :, 3,31, 8) = (/&
+&8.1254E-03_JPRB,6.4313E-02_JPRB,9.1351E-02_JPRB,1.0855E-01_JPRB,1.0832E-01_JPRB/)
+KBO( :, 4,31, 8) = (/&
+&1.0750E-02_JPRB,7.1406E-02_JPRB,9.7440E-02_JPRB,1.1230E-01_JPRB,1.0725E-01_JPRB/)
+KBO( :, 5,31, 8) = (/&
+&1.3934E-02_JPRB,7.9435E-02_JPRB,1.0429E-01_JPRB,1.1627E-01_JPRB,1.0582E-01_JPRB/)
+KBO( :, 1,32, 8) = (/&
+&3.9575E-03_JPRB,4.5682E-02_JPRB,6.8898E-02_JPRB,8.5411E-02_JPRB,9.0602E-02_JPRB/)
+KBO( :, 2,32, 8) = (/&
+&5.5021E-03_JPRB,5.0658E-02_JPRB,7.3522E-02_JPRB,8.8727E-02_JPRB,9.0292E-02_JPRB/)
+KBO( :, 3,32, 8) = (/&
+&7.4345E-03_JPRB,5.6386E-02_JPRB,7.8565E-02_JPRB,9.2013E-02_JPRB,8.9633E-02_JPRB/)
+KBO( :, 4,32, 8) = (/&
+&9.8223E-03_JPRB,6.2960E-02_JPRB,8.4228E-02_JPRB,9.5465E-02_JPRB,8.8660E-02_JPRB/)
+KBO( :, 5,32, 8) = (/&
+&1.2730E-02_JPRB,7.0429E-02_JPRB,9.0625E-02_JPRB,9.9233E-02_JPRB,8.7449E-02_JPRB/)
+KBO( :, 1,33, 8) = (/&
+&3.6591E-03_JPRB,3.9715E-02_JPRB,5.8948E-02_JPRB,7.2241E-02_JPRB,7.5055E-02_JPRB/)
+KBO( :, 2,33, 8) = (/&
+&5.0639E-03_JPRB,4.4286E-02_JPRB,6.3097E-02_JPRB,7.5129E-02_JPRB,7.4722E-02_JPRB/)
+KBO( :, 3,33, 8) = (/&
+&6.8217E-03_JPRB,4.9606E-02_JPRB,6.7743E-02_JPRB,7.8113E-02_JPRB,7.4121E-02_JPRB/)
+KBO( :, 4,33, 8) = (/&
+&9.0010E-03_JPRB,5.5729E-02_JPRB,7.3038E-02_JPRB,8.1349E-02_JPRB,7.3284E-02_JPRB/)
+KBO( :, 5,33, 8) = (/&
+&1.1693E-02_JPRB,6.2702E-02_JPRB,7.9022E-02_JPRB,8.4992E-02_JPRB,7.2286E-02_JPRB/)
+KBO( :, 1,34, 8) = (/&
+&3.3424E-03_JPRB,3.4485E-02_JPRB,5.0364E-02_JPRB,6.1041E-02_JPRB,6.2108E-02_JPRB/)
+KBO( :, 2,34, 8) = (/&
+&4.6136E-03_JPRB,3.8708E-02_JPRB,5.4132E-02_JPRB,6.3612E-02_JPRB,6.1791E-02_JPRB/)
+KBO( :, 3,34, 8) = (/&
+&6.2081E-03_JPRB,4.3641E-02_JPRB,5.8453E-02_JPRB,6.6369E-02_JPRB,6.1269E-02_JPRB/)
+KBO( :, 4,34, 8) = (/&
+&8.2079E-03_JPRB,4.9328E-02_JPRB,6.3400E-02_JPRB,6.9443E-02_JPRB,6.0579E-02_JPRB/)
+KBO( :, 5,34, 8) = (/&
+&1.0690E-02_JPRB,5.5879E-02_JPRB,6.9026E-02_JPRB,7.2976E-02_JPRB,5.9770E-02_JPRB/)
+KBO( :, 1,35, 8) = (/&
+&2.9610E-03_JPRB,2.9708E-02_JPRB,4.2806E-02_JPRB,5.1414E-02_JPRB,5.1399E-02_JPRB/)
+KBO( :, 2,35, 8) = (/&
+&4.0852E-03_JPRB,3.3563E-02_JPRB,4.6239E-02_JPRB,5.3734E-02_JPRB,5.1129E-02_JPRB/)
+KBO( :, 3,35, 8) = (/&
+&5.5146E-03_JPRB,3.8090E-02_JPRB,5.0226E-02_JPRB,5.6294E-02_JPRB,5.0708E-02_JPRB/)
+KBO( :, 4,35, 8) = (/&
+&7.3191E-03_JPRB,4.3348E-02_JPRB,5.4809E-02_JPRB,5.9220E-02_JPRB,5.0169E-02_JPRB/)
+KBO( :, 5,35, 8) = (/&
+&9.5862E-03_JPRB,4.9447E-02_JPRB,6.0051E-02_JPRB,6.2576E-02_JPRB,4.9549E-02_JPRB/)
+KBO( :, 1,36, 8) = (/&
+&2.5291E-03_JPRB,2.5317E-02_JPRB,3.6139E-02_JPRB,4.3139E-02_JPRB,4.2550E-02_JPRB/)
+KBO( :, 2,36, 8) = (/&
+&3.5081E-03_JPRB,2.8787E-02_JPRB,3.9246E-02_JPRB,4.5245E-02_JPRB,4.2349E-02_JPRB/)
+KBO( :, 3,36, 8) = (/&
+&4.7623E-03_JPRB,3.2880E-02_JPRB,4.2875E-02_JPRB,4.7610E-02_JPRB,4.2034E-02_JPRB/)
+KBO( :, 4,36, 8) = (/&
+&6.3600E-03_JPRB,3.7684E-02_JPRB,4.7082E-02_JPRB,5.0344E-02_JPRB,4.1631E-02_JPRB/)
+KBO( :, 5,36, 8) = (/&
+&8.3828E-03_JPRB,4.3328E-02_JPRB,5.1915E-02_JPRB,5.3486E-02_JPRB,4.1174E-02_JPRB/)
+KBO( :, 1,37, 8) = (/&
+&2.0572E-03_JPRB,2.1190E-02_JPRB,3.0172E-02_JPRB,3.5966E-02_JPRB,3.5231E-02_JPRB/)
+KBO( :, 2,37, 8) = (/&
+&2.8742E-03_JPRB,2.4234E-02_JPRB,3.2921E-02_JPRB,3.7847E-02_JPRB,3.5097E-02_JPRB/)
+KBO( :, 3,37, 8) = (/&
+&3.9377E-03_JPRB,2.7856E-02_JPRB,3.6156E-02_JPRB,3.9991E-02_JPRB,3.4880E-02_JPRB/)
+KBO( :, 4,37, 8) = (/&
+&5.3075E-03_JPRB,3.2157E-02_JPRB,3.9929E-02_JPRB,4.2485E-02_JPRB,3.4595E-02_JPRB/)
+KBO( :, 5,37, 8) = (/&
+&7.0531E-03_JPRB,3.7266E-02_JPRB,4.4310E-02_JPRB,4.5361E-02_JPRB,3.4266E-02_JPRB/)
+KBO( :, 1,38, 8) = (/&
+&1.6668E-03_JPRB,1.7718E-02_JPRB,2.5179E-02_JPRB,2.9976E-02_JPRB,2.9178E-02_JPRB/)
+KBO( :, 2,38, 8) = (/&
+&2.3512E-03_JPRB,2.0388E-02_JPRB,2.7616E-02_JPRB,3.1654E-02_JPRB,2.9106E-02_JPRB/)
+KBO( :, 3,38, 8) = (/&
+&3.2489E-03_JPRB,2.3599E-02_JPRB,3.0491E-02_JPRB,3.3589E-02_JPRB,2.8965E-02_JPRB/)
+KBO( :, 4,38, 8) = (/&
+&4.4197E-03_JPRB,2.7448E-02_JPRB,3.3876E-02_JPRB,3.5861E-02_JPRB,2.8777E-02_JPRB/)
+KBO( :, 5,38, 8) = (/&
+&5.9291E-03_JPRB,3.2085E-02_JPRB,3.7857E-02_JPRB,3.8499E-02_JPRB,2.8558E-02_JPRB/)
+KBO( :, 1,39, 8) = (/&
+&1.3505E-03_JPRB,1.4824E-02_JPRB,2.1025E-02_JPRB,2.4988E-02_JPRB,2.4183E-02_JPRB/)
+KBO( :, 2,39, 8) = (/&
+&1.9237E-03_JPRB,1.7169E-02_JPRB,2.3181E-02_JPRB,2.6485E-02_JPRB,2.4157E-02_JPRB/)
+KBO( :, 3,39, 8) = (/&
+&2.6812E-03_JPRB,2.0015E-02_JPRB,2.5740E-02_JPRB,2.8232E-02_JPRB,2.4081E-02_JPRB/)
+KBO( :, 4,39, 8) = (/&
+&3.6890E-03_JPRB,2.3470E-02_JPRB,2.8781E-02_JPRB,3.0301E-02_JPRB,2.3974E-02_JPRB/)
+KBO( :, 5,39, 8) = (/&
+&4.9956E-03_JPRB,2.7688E-02_JPRB,3.2410E-02_JPRB,3.2726E-02_JPRB,2.3849E-02_JPRB/)
+KBO( :, 1,40, 8) = (/&
+&1.0535E-03_JPRB,1.2217E-02_JPRB,1.7388E-02_JPRB,2.0709E-02_JPRB,2.0019E-02_JPRB/)
+KBO( :, 2,40, 8) = (/&
+&1.5173E-03_JPRB,1.4233E-02_JPRB,1.9255E-02_JPRB,2.2025E-02_JPRB,2.0029E-02_JPRB/)
+KBO( :, 3,40, 8) = (/&
+&2.1424E-03_JPRB,1.6709E-02_JPRB,2.1499E-02_JPRB,2.3574E-02_JPRB,2.0001E-02_JPRB/)
+KBO( :, 4,40, 8) = (/&
+&2.9806E-03_JPRB,1.9754E-02_JPRB,2.4186E-02_JPRB,2.5425E-02_JPRB,1.9953E-02_JPRB/)
+KBO( :, 5,40, 8) = (/&
+&4.0841E-03_JPRB,2.3521E-02_JPRB,2.7438E-02_JPRB,2.7615E-02_JPRB,1.9891E-02_JPRB/)
+KBO( :, 1,41, 8) = (/&
+&8.1549E-04_JPRB,1.0039E-02_JPRB,1.4352E-02_JPRB,1.7141E-02_JPRB,1.6569E-02_JPRB/)
+KBO( :, 2,41, 8) = (/&
+&1.1896E-03_JPRB,1.1765E-02_JPRB,1.5963E-02_JPRB,1.8295E-02_JPRB,1.6609E-02_JPRB/)
+KBO( :, 3,41, 8) = (/&
+&1.7007E-03_JPRB,1.3910E-02_JPRB,1.7922E-02_JPRB,1.9664E-02_JPRB,1.6616E-02_JPRB/)
+KBO( :, 4,41, 8) = (/&
+&2.3967E-03_JPRB,1.6587E-02_JPRB,2.0295E-02_JPRB,2.1313E-02_JPRB,1.6608E-02_JPRB/)
+KBO( :, 5,41, 8) = (/&
+&3.3209E-03_JPRB,1.9941E-02_JPRB,2.3193E-02_JPRB,2.3279E-02_JPRB,1.6596E-02_JPRB/)
+KBO( :, 1,42, 8) = (/&
+&6.2885E-04_JPRB,8.2389E-03_JPRB,1.1838E-02_JPRB,1.4182E-02_JPRB,1.3717E-02_JPRB/)
+KBO( :, 2,42, 8) = (/&
+&9.3075E-04_JPRB,9.7147E-03_JPRB,1.3226E-02_JPRB,1.5189E-02_JPRB,1.3775E-02_JPRB/)
+KBO( :, 3,42, 8) = (/&
+&1.3476E-03_JPRB,1.1572E-02_JPRB,1.4934E-02_JPRB,1.6397E-02_JPRB,1.3812E-02_JPRB/)
+KBO( :, 4,42, 8) = (/&
+&1.9221E-03_JPRB,1.3921E-02_JPRB,1.7022E-02_JPRB,1.7862E-02_JPRB,1.3835E-02_JPRB/)
+KBO( :, 5,42, 8) = (/&
+&2.6974E-03_JPRB,1.6905E-02_JPRB,1.9608E-02_JPRB,1.9625E-02_JPRB,1.3858E-02_JPRB/)
+KBO( :, 1,43, 8) = (/&
+&4.7225E-04_JPRB,6.6911E-03_JPRB,9.6971E-03_JPRB,1.1682E-02_JPRB,1.1351E-02_JPRB/)
+KBO( :, 2,43, 8) = (/&
+&7.0933E-04_JPRB,7.9348E-03_JPRB,1.0877E-02_JPRB,1.2551E-02_JPRB,1.1424E-02_JPRB/)
+KBO( :, 3,43, 8) = (/&
+&1.0435E-03_JPRB,9.5155E-03_JPRB,1.2344E-02_JPRB,1.3602E-02_JPRB,1.1480E-02_JPRB/)
+KBO( :, 4,43, 8) = (/&
+&1.5082E-03_JPRB,1.1547E-02_JPRB,1.4158E-02_JPRB,1.4886E-02_JPRB,1.1523E-02_JPRB/)
+KBO( :, 5,43, 8) = (/&
+&2.1454E-03_JPRB,1.4163E-02_JPRB,1.6434E-02_JPRB,1.6450E-02_JPRB,1.1573E-02_JPRB/)
+KBO( :, 1,44, 8) = (/&
+&3.4902E-04_JPRB,5.4014E-03_JPRB,7.9122E-03_JPRB,9.5973E-03_JPRB,9.3906E-03_JPRB/)
+KBO( :, 2,44, 8) = (/&
+&5.3336E-04_JPRB,6.4385E-03_JPRB,8.9048E-03_JPRB,1.0341E-02_JPRB,9.4727E-03_JPRB/)
+KBO( :, 3,44, 8) = (/&
+&7.9641E-04_JPRB,7.7741E-03_JPRB,1.0155E-02_JPRB,1.1247E-02_JPRB,9.5408E-03_JPRB/)
+KBO( :, 4,44, 8) = (/&
+&1.1697E-03_JPRB,9.5107E-03_JPRB,1.1718E-02_JPRB,1.2366E-02_JPRB,9.5994E-03_JPRB/)
+KBO( :, 5,44, 8) = (/&
+&1.6866E-03_JPRB,1.1782E-02_JPRB,1.3700E-02_JPRB,1.3737E-02_JPRB,9.6629E-03_JPRB/)
+KBO( :, 1,45, 8) = (/&
+&2.5641E-04_JPRB,4.3524E-03_JPRB,6.4489E-03_JPRB,7.8776E-03_JPRB,7.7700E-03_JPRB/)
+KBO( :, 2,45, 8) = (/&
+&3.9819E-04_JPRB,5.2131E-03_JPRB,7.2796E-03_JPRB,8.5115E-03_JPRB,7.8565E-03_JPRB/)
+KBO( :, 3,45, 8) = (/&
+&6.0452E-04_JPRB,6.3356E-03_JPRB,8.3400E-03_JPRB,9.2883E-03_JPRB,7.9298E-03_JPRB/)
+KBO( :, 4,45, 8) = (/&
+&9.0225E-04_JPRB,7.8148E-03_JPRB,9.6818E-03_JPRB,1.0257E-02_JPRB,7.9978E-03_JPRB/)
+KBO( :, 5,45, 8) = (/&
+&1.3212E-03_JPRB,9.7779E-03_JPRB,1.1402E-02_JPRB,1.1457E-02_JPRB,8.0738E-03_JPRB/)
+KBO( :, 1,46, 8) = (/&
+&1.8524E-04_JPRB,3.4864E-03_JPRB,5.2341E-03_JPRB,6.4466E-03_JPRB,6.4230E-03_JPRB/)
+KBO( :, 2,46, 8) = (/&
+&2.9313E-04_JPRB,4.1931E-03_JPRB,5.9228E-03_JPRB,6.9831E-03_JPRB,6.5117E-03_JPRB/)
+KBO( :, 3,46, 8) = (/&
+&4.5241E-04_JPRB,5.1271E-03_JPRB,6.8142E-03_JPRB,7.6439E-03_JPRB,6.5889E-03_JPRB/)
+KBO( :, 4,46, 8) = (/&
+&6.8674E-04_JPRB,6.3729E-03_JPRB,7.9564E-03_JPRB,8.4768E-03_JPRB,6.6644E-03_JPRB/)
+KBO( :, 5,46, 8) = (/&
+&1.0220E-03_JPRB,8.0538E-03_JPRB,9.4380E-03_JPRB,9.5193E-03_JPRB,6.7476E-03_JPRB/)
+KBO( :, 1,47, 8) = (/&
+&1.3000E-04_JPRB,2.7663E-03_JPRB,4.2208E-03_JPRB,5.2521E-03_JPRB,5.3026E-03_JPRB/)
+KBO( :, 2,47, 8) = (/&
+&2.1025E-04_JPRB,3.3363E-03_JPRB,4.7828E-03_JPRB,5.7020E-03_JPRB,5.3902E-03_JPRB/)
+KBO( :, 3,47, 8) = (/&
+&3.3047E-04_JPRB,4.0995E-03_JPRB,5.5201E-03_JPRB,6.2559E-03_JPRB,5.4679E-03_JPRB/)
+KBO( :, 4,47, 8) = (/&
+&5.1029E-04_JPRB,5.1296E-03_JPRB,6.4755E-03_JPRB,6.9601E-03_JPRB,5.5444E-03_JPRB/)
+KBO( :, 5,47, 8) = (/&
+&7.7317E-04_JPRB,6.5403E-03_JPRB,7.7293E-03_JPRB,7.8503E-03_JPRB,5.6289E-03_JPRB/)
+KBO( :, 1,48, 8) = (/&
+&9.0250E-05_JPRB,2.1914E-03_JPRB,3.3994E-03_JPRB,4.2738E-03_JPRB,4.3771E-03_JPRB/)
+KBO( :, 2,48, 8) = (/&
+&1.4933E-04_JPRB,2.6470E-03_JPRB,3.8547E-03_JPRB,4.6490E-03_JPRB,4.4611E-03_JPRB/)
+KBO( :, 3,48, 8) = (/&
+&2.3950E-04_JPRB,3.2661E-03_JPRB,4.4586E-03_JPRB,5.1091E-03_JPRB,4.5366E-03_JPRB/)
+KBO( :, 4,48, 8) = (/&
+&3.7635E-04_JPRB,4.1116E-03_JPRB,5.2534E-03_JPRB,5.7004E-03_JPRB,4.6124E-03_JPRB/)
+KBO( :, 5,48, 8) = (/&
+&5.8082E-04_JPRB,5.2884E-03_JPRB,6.3086E-03_JPRB,6.4573E-03_JPRB,4.6977E-03_JPRB/)
+KBO( :, 1,49, 8) = (/&
+&6.1993E-05_JPRB,1.7331E-03_JPRB,2.7330E-03_JPRB,3.4719E-03_JPRB,3.6111E-03_JPRB/)
+KBO( :, 2,49, 8) = (/&
+&1.0511E-04_JPRB,2.0938E-03_JPRB,3.1004E-03_JPRB,3.7836E-03_JPRB,3.6915E-03_JPRB/)
+KBO( :, 3,49, 8) = (/&
+&1.7216E-04_JPRB,2.5932E-03_JPRB,3.5917E-03_JPRB,4.1650E-03_JPRB,3.7653E-03_JPRB/)
+KBO( :, 4,49, 8) = (/&
+&2.7551E-04_JPRB,3.2829E-03_JPRB,4.2486E-03_JPRB,4.6580E-03_JPRB,3.8405E-03_JPRB/)
+KBO( :, 5,49, 8) = (/&
+&4.3301E-04_JPRB,4.2570E-03_JPRB,5.1317E-03_JPRB,5.2985E-03_JPRB,3.9263E-03_JPRB/)
+KBO( :, 1,50, 8) = (/&
+&4.2678E-05_JPRB,1.3745E-03_JPRB,2.2002E-03_JPRB,2.8212E-03_JPRB,2.9737E-03_JPRB/)
+KBO( :, 2,50, 8) = (/&
+&7.4146E-05_JPRB,1.6605E-03_JPRB,2.4974E-03_JPRB,3.0815E-03_JPRB,3.0479E-03_JPRB/)
+KBO( :, 3,50, 8) = (/&
+&1.2406E-04_JPRB,2.0639E-03_JPRB,2.8982E-03_JPRB,3.3988E-03_JPRB,3.1188E-03_JPRB/)
+KBO( :, 4,50, 8) = (/&
+&2.0253E-04_JPRB,2.6282E-03_JPRB,3.4425E-03_JPRB,3.8116E-03_JPRB,3.1913E-03_JPRB/)
+KBO( :, 5,50, 8) = (/&
+&3.2424E-04_JPRB,3.4369E-03_JPRB,4.1830E-03_JPRB,4.3547E-03_JPRB,3.2730E-03_JPRB/)
+KBO( :, 1,51, 8) = (/&
+&2.9237E-05_JPRB,1.0909E-03_JPRB,1.7714E-03_JPRB,2.2917E-03_JPRB,2.4464E-03_JPRB/)
+KBO( :, 2,51, 8) = (/&
+&5.2166E-05_JPRB,1.3176E-03_JPRB,2.0125E-03_JPRB,2.5102E-03_JPRB,2.5148E-03_JPRB/)
+KBO( :, 3,51, 8) = (/&
+&8.9091E-05_JPRB,1.6426E-03_JPRB,2.3388E-03_JPRB,2.7738E-03_JPRB,2.5806E-03_JPRB/)
+KBO( :, 4,51, 8) = (/&
+&1.4840E-04_JPRB,2.1028E-03_JPRB,2.7878E-03_JPRB,3.1176E-03_JPRB,2.6477E-03_JPRB/)
+KBO( :, 5,51, 8) = (/&
+&2.4207E-04_JPRB,2.7714E-03_JPRB,3.4063E-03_JPRB,3.5762E-03_JPRB,2.7227E-03_JPRB/)
+KBO( :, 1,52, 8) = (/&
+&1.9807E-05_JPRB,8.6538E-04_JPRB,1.4249E-03_JPRB,1.8595E-03_JPRB,2.0124E-03_JPRB/)
+KBO( :, 2,52, 8) = (/&
+&3.6322E-05_JPRB,1.0438E-03_JPRB,1.6200E-03_JPRB,2.0422E-03_JPRB,2.0750E-03_JPRB/)
+KBO( :, 3,52, 8) = (/&
+&6.3515E-05_JPRB,1.3037E-03_JPRB,1.8836E-03_JPRB,2.2603E-03_JPRB,2.1352E-03_JPRB/)
+KBO( :, 4,52, 8) = (/&
+&1.0788E-04_JPRB,1.6767E-03_JPRB,2.2517E-03_JPRB,2.5448E-03_JPRB,2.1970E-03_JPRB/)
+KBO( :, 5,52, 8) = (/&
+&1.7958E-04_JPRB,2.2260E-03_JPRB,2.7651E-03_JPRB,2.9295E-03_JPRB,2.2657E-03_JPRB/)
+KBO( :, 1,53, 8) = (/&
+&1.3242E-05_JPRB,6.8573E-04_JPRB,1.1446E-03_JPRB,1.5067E-03_JPRB,1.6550E-03_JPRB/)
+KBO( :, 2,53, 8) = (/&
+&2.5022E-05_JPRB,8.2535E-04_JPRB,1.3018E-03_JPRB,1.6587E-03_JPRB,1.7117E-03_JPRB/)
+KBO( :, 3,53, 8) = (/&
+&4.4849E-05_JPRB,1.0313E-03_JPRB,1.5135E-03_JPRB,1.8385E-03_JPRB,1.7670E-03_JPRB/)
+KBO( :, 4,53, 8) = (/&
+&7.7724E-05_JPRB,1.3321E-03_JPRB,1.8130E-03_JPRB,2.0729E-03_JPRB,1.8239E-03_JPRB/)
+KBO( :, 5,53, 8) = (/&
+&1.3199E-04_JPRB,1.7794E-03_JPRB,2.2365E-03_JPRB,2.3931E-03_JPRB,1.8874E-03_JPRB/)
+KBO( :, 1,54, 8) = (/&
+&8.9248E-06_JPRB,5.4556E-04_JPRB,9.2163E-04_JPRB,1.2225E-03_JPRB,1.3566E-03_JPRB/)
+KBO( :, 2,54, 8) = (/&
+&1.7372E-05_JPRB,6.5581E-04_JPRB,1.0492E-03_JPRB,1.3494E-03_JPRB,1.4063E-03_JPRB/)
+KBO( :, 3,54, 8) = (/&
+&3.1907E-05_JPRB,8.1979E-04_JPRB,1.2202E-03_JPRB,1.4983E-03_JPRB,1.4551E-03_JPRB/)
+KBO( :, 4,54, 8) = (/&
+&5.6506E-05_JPRB,1.0634E-03_JPRB,1.4647E-03_JPRB,1.6922E-03_JPRB,1.5046E-03_JPRB/)
+KBO( :, 5,54, 8) = (/&
+&9.7836E-05_JPRB,1.4301E-03_JPRB,1.8159E-03_JPRB,1.9597E-03_JPRB,1.5596E-03_JPRB/)
+KBO( :, 1,55, 8) = (/&
+&6.0009E-06_JPRB,4.3459E-04_JPRB,7.4215E-04_JPRB,9.9172E-04_JPRB,1.1093E-03_JPRB/)
+KBO( :, 2,55, 8) = (/&
+&1.2050E-05_JPRB,5.2184E-04_JPRB,8.4618E-04_JPRB,1.0977E-03_JPRB,1.1520E-03_JPRB/)
+KBO( :, 3,55, 8) = (/&
+&2.2697E-05_JPRB,6.5227E-04_JPRB,9.8427E-04_JPRB,1.2212E-03_JPRB,1.1941E-03_JPRB/)
+KBO( :, 4,55, 8) = (/&
+&4.1051E-05_JPRB,8.4944E-04_JPRB,1.1837E-03_JPRB,1.3815E-03_JPRB,1.2361E-03_JPRB/)
+KBO( :, 5,55, 8) = (/&
+&7.2472E-05_JPRB,1.1494E-03_JPRB,1.4743E-03_JPRB,1.6046E-03_JPRB,1.2823E-03_JPRB/)
+KBO( :, 1,56, 8) = (/&
+&3.9898E-06_JPRB,3.4589E-04_JPRB,5.9689E-04_JPRB,8.0352E-04_JPRB,9.0649E-04_JPRB/)
+KBO( :, 2,56, 8) = (/&
+&8.2750E-06_JPRB,4.1470E-04_JPRB,6.8153E-04_JPRB,8.9166E-04_JPRB,9.4301E-04_JPRB/)
+KBO( :, 3,56, 8) = (/&
+&1.6003E-05_JPRB,5.1786E-04_JPRB,7.9279E-04_JPRB,9.9410E-04_JPRB,9.7913E-04_JPRB/)
+KBO( :, 4,56, 8) = (/&
+&2.9587E-05_JPRB,6.7655E-04_JPRB,9.5450E-04_JPRB,1.1258E-03_JPRB,1.0149E-03_JPRB/)
+KBO( :, 5,56, 8) = (/&
+&5.3280E-05_JPRB,9.2055E-04_JPRB,1.1938E-03_JPRB,1.3111E-03_JPRB,1.0536E-03_JPRB/)
+KBO( :, 1,57, 8) = (/&
+&2.6173E-06_JPRB,2.7500E-04_JPRB,4.7940E-04_JPRB,6.5022E-04_JPRB,7.4014E-04_JPRB/)
+KBO( :, 2,57, 8) = (/&
+&5.6185E-06_JPRB,3.2928E-04_JPRB,5.4834E-04_JPRB,7.2338E-04_JPRB,7.7148E-04_JPRB/)
+KBO( :, 3,57, 8) = (/&
+&1.1178E-05_JPRB,4.1034E-04_JPRB,6.3758E-04_JPRB,8.0791E-04_JPRB,8.0223E-04_JPRB/)
+KBO( :, 4,57, 8) = (/&
+&2.1131E-05_JPRB,5.3714E-04_JPRB,7.6779E-04_JPRB,9.1604E-04_JPRB,8.3279E-04_JPRB/)
+KBO( :, 5,57, 8) = (/&
+&3.8855E-05_JPRB,7.3446E-04_JPRB,9.6373E-04_JPRB,1.0689E-03_JPRB,8.6527E-04_JPRB/)
+KBO( :, 1,58, 8) = (/&
+&1.7187E-06_JPRB,2.1897E-04_JPRB,3.8537E-04_JPRB,5.2636E-04_JPRB,6.0391E-04_JPRB/)
+KBO( :, 2,58, 8) = (/&
+&3.8204E-06_JPRB,2.6201E-04_JPRB,4.4157E-04_JPRB,5.8689E-04_JPRB,6.3061E-04_JPRB/)
+KBO( :, 3,58, 8) = (/&
+&7.8175E-06_JPRB,3.2596E-04_JPRB,5.1345E-04_JPRB,6.5702E-04_JPRB,6.5669E-04_JPRB/)
+KBO( :, 4,58, 8) = (/&
+&1.5128E-05_JPRB,4.2731E-04_JPRB,6.1848E-04_JPRB,7.4589E-04_JPRB,6.8257E-04_JPRB/)
+KBO( :, 5,58, 8) = (/&
+&2.8383E-05_JPRB,5.8709E-04_JPRB,7.7891E-04_JPRB,8.7185E-04_JPRB,7.0967E-04_JPRB/)
+KBO( :, 1,59, 8) = (/&
+&1.3071E-06_JPRB,1.7971E-04_JPRB,3.1713E-04_JPRB,4.3408E-04_JPRB,4.9479E-04_JPRB/)
+KBO( :, 2,59, 8) = (/&
+&2.9593E-06_JPRB,2.1590E-04_JPRB,3.6455E-04_JPRB,4.8545E-04_JPRB,5.1653E-04_JPRB/)
+KBO( :, 3,59, 8) = (/&
+&6.1606E-06_JPRB,2.7044E-04_JPRB,4.2589E-04_JPRB,5.4538E-04_JPRB,5.3752E-04_JPRB/)
+KBO( :, 4,59, 8) = (/&
+&1.2116E-05_JPRB,3.5815E-04_JPRB,5.1701E-04_JPRB,6.2252E-04_JPRB,5.5854E-04_JPRB/)
+KBO( :, 5,59, 8) = (/&
+&2.3132E-05_JPRB,4.9905E-04_JPRB,6.5830E-04_JPRB,7.3365E-04_JPRB,5.8023E-04_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_B2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B3.F90	(revision 2160)
@@ -0,0 +1,1924 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_B3
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KB contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of co2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 9) = (/&
+&1.6103E-01_JPRB,6.6158E-01_JPRB,1.1273E+00_JPRB,1.5637E+00_JPRB,2.0193E+00_JPRB/)
+KBO( :, 2,13, 9) = (/&
+&2.3702E-01_JPRB,7.0502E-01_JPRB,1.1597E+00_JPRB,1.5650E+00_JPRB,1.9887E+00_JPRB/)
+KBO( :, 3,13, 9) = (/&
+&3.3165E-01_JPRB,7.5350E-01_JPRB,1.1971E+00_JPRB,1.5759E+00_JPRB,1.9602E+00_JPRB/)
+KBO( :, 4,13, 9) = (/&
+&4.4557E-01_JPRB,8.0998E-01_JPRB,1.2356E+00_JPRB,1.5909E+00_JPRB,1.9329E+00_JPRB/)
+KBO( :, 5,13, 9) = (/&
+&5.7859E-01_JPRB,8.7605E-01_JPRB,1.2746E+00_JPRB,1.6061E+00_JPRB,1.9056E+00_JPRB/)
+KBO( :, 1,14, 9) = (/&
+&1.4761E-01_JPRB,6.9347E-01_JPRB,1.1794E+00_JPRB,1.6262E+00_JPRB,2.0952E+00_JPRB/)
+KBO( :, 2,14, 9) = (/&
+&2.1664E-01_JPRB,7.3539E-01_JPRB,1.2185E+00_JPRB,1.6328E+00_JPRB,2.0656E+00_JPRB/)
+KBO( :, 3,14, 9) = (/&
+&3.0271E-01_JPRB,7.8091E-01_JPRB,1.2580E+00_JPRB,1.6489E+00_JPRB,2.0363E+00_JPRB/)
+KBO( :, 4,14, 9) = (/&
+&4.0599E-01_JPRB,8.3259E-01_JPRB,1.2961E+00_JPRB,1.6672E+00_JPRB,2.0067E+00_JPRB/)
+KBO( :, 5,14, 9) = (/&
+&5.2635E-01_JPRB,8.9136E-01_JPRB,1.3335E+00_JPRB,1.6865E+00_JPRB,1.9784E+00_JPRB/)
+KBO( :, 1,15, 9) = (/&
+&1.3457E-01_JPRB,7.2100E-01_JPRB,1.2219E+00_JPRB,1.6745E+00_JPRB,2.1504E+00_JPRB/)
+KBO( :, 2,15, 9) = (/&
+&1.9694E-01_JPRB,7.6310E-01_JPRB,1.2659E+00_JPRB,1.6872E+00_JPRB,2.1231E+00_JPRB/)
+KBO( :, 3,15, 9) = (/&
+&2.7439E-01_JPRB,8.0691E-01_JPRB,1.3081E+00_JPRB,1.7082E+00_JPRB,2.0944E+00_JPRB/)
+KBO( :, 4,15, 9) = (/&
+&3.6719E-01_JPRB,8.5456E-01_JPRB,1.3474E+00_JPRB,1.7304E+00_JPRB,2.0661E+00_JPRB/)
+KBO( :, 5,15, 9) = (/&
+&4.7561E-01_JPRB,9.0769E-01_JPRB,1.3846E+00_JPRB,1.7533E+00_JPRB,2.0378E+00_JPRB/)
+KBO( :, 1,16, 9) = (/&
+&1.2205E-01_JPRB,7.4077E-01_JPRB,1.2541E+00_JPRB,1.7073E+00_JPRB,2.1827E+00_JPRB/)
+KBO( :, 2,16, 9) = (/&
+&1.7791E-01_JPRB,7.8396E-01_JPRB,1.3002E+00_JPRB,1.7270E+00_JPRB,2.1581E+00_JPRB/)
+KBO( :, 3,16, 9) = (/&
+&2.4715E-01_JPRB,8.2834E-01_JPRB,1.3436E+00_JPRB,1.7521E+00_JPRB,2.1327E+00_JPRB/)
+KBO( :, 4,16, 9) = (/&
+&3.3034E-01_JPRB,8.7418E-01_JPRB,1.3847E+00_JPRB,1.7782E+00_JPRB,2.1067E+00_JPRB/)
+KBO( :, 5,16, 9) = (/&
+&4.2786E-01_JPRB,9.2279E-01_JPRB,1.4244E+00_JPRB,1.8037E+00_JPRB,2.0808E+00_JPRB/)
+KBO( :, 1,17, 9) = (/&
+&1.0982E-01_JPRB,7.5143E-01_JPRB,1.2725E+00_JPRB,1.7242E+00_JPRB,2.1909E+00_JPRB/)
+KBO( :, 2,17, 9) = (/&
+&1.5953E-01_JPRB,7.9549E-01_JPRB,1.3193E+00_JPRB,1.7501E+00_JPRB,2.1703E+00_JPRB/)
+KBO( :, 3,17, 9) = (/&
+&2.2127E-01_JPRB,8.4054E-01_JPRB,1.3636E+00_JPRB,1.7793E+00_JPRB,2.1486E+00_JPRB/)
+KBO( :, 4,17, 9) = (/&
+&2.9584E-01_JPRB,8.8682E-01_JPRB,1.4059E+00_JPRB,1.8091E+00_JPRB,2.1266E+00_JPRB/)
+KBO( :, 5,17, 9) = (/&
+&3.8385E-01_JPRB,9.3422E-01_JPRB,1.4466E+00_JPRB,1.8364E+00_JPRB,2.1039E+00_JPRB/)
+KBO( :, 1,18, 9) = (/&
+&9.8329E-02_JPRB,7.5240E-01_JPRB,1.2756E+00_JPRB,1.7244E+00_JPRB,2.1757E+00_JPRB/)
+KBO( :, 2,18, 9) = (/&
+&1.4251E-01_JPRB,7.9706E-01_JPRB,1.3228E+00_JPRB,1.7556E+00_JPRB,2.1597E+00_JPRB/)
+KBO( :, 3,18, 9) = (/&
+&1.9773E-01_JPRB,8.4264E-01_JPRB,1.3673E+00_JPRB,1.7888E+00_JPRB,2.1427E+00_JPRB/)
+KBO( :, 4,18, 9) = (/&
+&2.6482E-01_JPRB,8.8901E-01_JPRB,1.4101E+00_JPRB,1.8204E+00_JPRB,2.1245E+00_JPRB/)
+KBO( :, 5,18, 9) = (/&
+&3.4448E-01_JPRB,9.3666E-01_JPRB,1.4514E+00_JPRB,1.8483E+00_JPRB,2.1059E+00_JPRB/)
+KBO( :, 1,19, 9) = (/&
+&8.7815E-02_JPRB,7.4384E-01_JPRB,1.2637E+00_JPRB,1.7067E+00_JPRB,2.1362E+00_JPRB/)
+KBO( :, 2,19, 9) = (/&
+&1.2725E-01_JPRB,7.8828E-01_JPRB,1.3102E+00_JPRB,1.7428E+00_JPRB,2.1257E+00_JPRB/)
+KBO( :, 3,19, 9) = (/&
+&1.7679E-01_JPRB,8.3379E-01_JPRB,1.3547E+00_JPRB,1.7786E+00_JPRB,2.1135E+00_JPRB/)
+KBO( :, 4,19, 9) = (/&
+&2.3728E-01_JPRB,8.8010E-01_JPRB,1.3977E+00_JPRB,1.8108E+00_JPRB,2.0991E+00_JPRB/)
+KBO( :, 5,19, 9) = (/&
+&3.0895E-01_JPRB,9.2824E-01_JPRB,1.4393E+00_JPRB,1.8391E+00_JPRB,2.0837E+00_JPRB/)
+KBO( :, 1,20, 9) = (/&
+&7.9041E-02_JPRB,7.2700E-01_JPRB,1.2374E+00_JPRB,1.6719E+00_JPRB,2.0747E+00_JPRB/)
+KBO( :, 2,20, 9) = (/&
+&1.1454E-01_JPRB,7.7070E-01_JPRB,1.2831E+00_JPRB,1.7109E+00_JPRB,2.0685E+00_JPRB/)
+KBO( :, 3,20, 9) = (/&
+&1.5930E-01_JPRB,8.1568E-01_JPRB,1.3273E+00_JPRB,1.7472E+00_JPRB,2.0604E+00_JPRB/)
+KBO( :, 4,20, 9) = (/&
+&2.1376E-01_JPRB,8.6194E-01_JPRB,1.3702E+00_JPRB,1.7799E+00_JPRB,2.0509E+00_JPRB/)
+KBO( :, 5,20, 9) = (/&
+&2.7842E-01_JPRB,9.1045E-01_JPRB,1.4124E+00_JPRB,1.8091E+00_JPRB,2.0408E+00_JPRB/)
+KBO( :, 1,21, 9) = (/&
+&7.1445E-02_JPRB,7.0244E-01_JPRB,1.1970E+00_JPRB,1.6199E+00_JPRB,1.9923E+00_JPRB/)
+KBO( :, 2,21, 9) = (/&
+&1.0353E-01_JPRB,7.4522E-01_JPRB,1.2418E+00_JPRB,1.6596E+00_JPRB,1.9909E+00_JPRB/)
+KBO( :, 3,21, 9) = (/&
+&1.4384E-01_JPRB,7.8934E-01_JPRB,1.2854E+00_JPRB,1.6962E+00_JPRB,1.9875E+00_JPRB/)
+KBO( :, 4,21, 9) = (/&
+&1.9307E-01_JPRB,8.3547E-01_JPRB,1.3286E+00_JPRB,1.7297E+00_JPRB,1.9830E+00_JPRB/)
+KBO( :, 5,21, 9) = (/&
+&2.5151E-01_JPRB,8.8443E-01_JPRB,1.3716E+00_JPRB,1.7608E+00_JPRB,1.9785E+00_JPRB/)
+KBO( :, 1,22, 9) = (/&
+&6.6536E-02_JPRB,6.7362E-01_JPRB,1.1476E+00_JPRB,1.5553E+00_JPRB,1.8930E+00_JPRB/)
+KBO( :, 2,22, 9) = (/&
+&9.5961E-02_JPRB,7.1546E-01_JPRB,1.1915E+00_JPRB,1.5946E+00_JPRB,1.8960E+00_JPRB/)
+KBO( :, 3,22, 9) = (/&
+&1.3293E-01_JPRB,7.5906E-01_JPRB,1.2350E+00_JPRB,1.6314E+00_JPRB,1.8977E+00_JPRB/)
+KBO( :, 4,22, 9) = (/&
+&1.7791E-01_JPRB,8.0536E-01_JPRB,1.2788E+00_JPRB,1.6663E+00_JPRB,1.8991E+00_JPRB/)
+KBO( :, 5,22, 9) = (/&
+&2.3124E-01_JPRB,8.5502E-01_JPRB,1.3230E+00_JPRB,1.6998E+00_JPRB,1.9008E+00_JPRB/)
+KBO( :, 1,23, 9) = (/&
+&6.2130E-02_JPRB,6.3989E-01_JPRB,1.0889E+00_JPRB,1.4764E+00_JPRB,1.7800E+00_JPRB/)
+KBO( :, 2,23, 9) = (/&
+&8.9203E-02_JPRB,6.8080E-01_JPRB,1.1324E+00_JPRB,1.5163E+00_JPRB,1.7885E+00_JPRB/)
+KBO( :, 3,23, 9) = (/&
+&1.2310E-01_JPRB,7.2420E-01_JPRB,1.1763E+00_JPRB,1.5547E+00_JPRB,1.7963E+00_JPRB/)
+KBO( :, 4,23, 9) = (/&
+&1.6423E-01_JPRB,7.7098E-01_JPRB,1.2210E+00_JPRB,1.5918E+00_JPRB,1.8040E+00_JPRB/)
+KBO( :, 5,23, 9) = (/&
+&2.1277E-01_JPRB,8.2154E-01_JPRB,1.2673E+00_JPRB,1.6285E+00_JPRB,1.8132E+00_JPRB/)
+KBO( :, 1,24, 9) = (/&
+&5.8273E-02_JPRB,6.0306E-01_JPRB,1.0238E+00_JPRB,1.3884E+00_JPRB,1.6590E+00_JPRB/)
+KBO( :, 2,24, 9) = (/&
+&8.3232E-02_JPRB,6.4338E-01_JPRB,1.0676E+00_JPRB,1.4297E+00_JPRB,1.6731E+00_JPRB/)
+KBO( :, 3,24, 9) = (/&
+&1.1427E-01_JPRB,6.8692E-01_JPRB,1.1126E+00_JPRB,1.4703E+00_JPRB,1.6874E+00_JPRB/)
+KBO( :, 4,24, 9) = (/&
+&1.5163E-01_JPRB,7.3448E-01_JPRB,1.1591E+00_JPRB,1.5108E+00_JPRB,1.7035E+00_JPRB/)
+KBO( :, 5,24, 9) = (/&
+&1.9552E-01_JPRB,7.8610E-01_JPRB,1.2077E+00_JPRB,1.5519E+00_JPRB,1.7219E+00_JPRB/)
+KBO( :, 1,25, 9) = (/&
+&5.4812E-02_JPRB,5.6477E-01_JPRB,9.5569E-01_JPRB,1.2954E+00_JPRB,1.5347E+00_JPRB/)
+KBO( :, 2,25, 9) = (/&
+&7.7748E-02_JPRB,6.0521E-01_JPRB,1.0005E+00_JPRB,1.3386E+00_JPRB,1.5551E+00_JPRB/)
+KBO( :, 3,25, 9) = (/&
+&1.0600E-01_JPRB,6.4947E-01_JPRB,1.0471E+00_JPRB,1.3828E+00_JPRB,1.5779E+00_JPRB/)
+KBO( :, 4,25, 9) = (/&
+&1.3990E-01_JPRB,6.9799E-01_JPRB,1.0963E+00_JPRB,1.4282E+00_JPRB,1.6034E+00_JPRB/)
+KBO( :, 5,25, 9) = (/&
+&1.7983E-01_JPRB,7.5057E-01_JPRB,1.1486E+00_JPRB,1.4751E+00_JPRB,1.6307E+00_JPRB/)
+KBO( :, 1,26, 9) = (/&
+&5.1716E-02_JPRB,5.2713E-01_JPRB,8.8788E-01_JPRB,1.2018E+00_JPRB,1.4126E+00_JPRB/)
+KBO( :, 2,26, 9) = (/&
+&7.2684E-02_JPRB,5.6826E-01_JPRB,9.3427E-01_JPRB,1.2488E+00_JPRB,1.4411E+00_JPRB/)
+KBO( :, 3,26, 9) = (/&
+&9.8449E-02_JPRB,6.1372E-01_JPRB,9.8375E-01_JPRB,1.2977E+00_JPRB,1.4727E+00_JPRB/)
+KBO( :, 4,26, 9) = (/&
+&1.2939E-01_JPRB,6.6352E-01_JPRB,1.0365E+00_JPRB,1.3486E+00_JPRB,1.5064E+00_JPRB/)
+KBO( :, 5,26, 9) = (/&
+&1.6591E-01_JPRB,7.1727E-01_JPRB,1.0930E+00_JPRB,1.4010E+00_JPRB,1.5406E+00_JPRB/)
+KBO( :, 1,27, 9) = (/&
+&4.8584E-02_JPRB,4.9097E-01_JPRB,8.2256E-01_JPRB,1.1121E+00_JPRB,1.2977E+00_JPRB/)
+KBO( :, 2,27, 9) = (/&
+&6.7759E-02_JPRB,5.3335E-01_JPRB,8.7159E-01_JPRB,1.1633E+00_JPRB,1.3342E+00_JPRB/)
+KBO( :, 3,27, 9) = (/&
+&9.1281E-02_JPRB,5.8032E-01_JPRB,9.2435E-01_JPRB,1.2172E+00_JPRB,1.3733E+00_JPRB/)
+KBO( :, 4,27, 9) = (/&
+&1.1958E-01_JPRB,6.3161E-01_JPRB,9.8117E-01_JPRB,1.2730E+00_JPRB,1.4135E+00_JPRB/)
+KBO( :, 5,27, 9) = (/&
+&1.5306E-01_JPRB,6.8640E-01_JPRB,1.0413E+00_JPRB,1.3298E+00_JPRB,1.4532E+00_JPRB/)
+KBO( :, 1,28, 9) = (/&
+&4.5513E-02_JPRB,4.5771E-01_JPRB,7.6221E-01_JPRB,1.0285E+00_JPRB,1.1920E+00_JPRB/)
+KBO( :, 2,28, 9) = (/&
+&6.3043E-02_JPRB,5.0158E-01_JPRB,8.1400E-01_JPRB,1.0840E+00_JPRB,1.2355E+00_JPRB/)
+KBO( :, 3,28, 9) = (/&
+&8.4577E-02_JPRB,5.5008E-01_JPRB,8.7020E-01_JPRB,1.1421E+00_JPRB,1.2807E+00_JPRB/)
+KBO( :, 4,28, 9) = (/&
+&1.1056E-01_JPRB,6.0266E-01_JPRB,9.3037E-01_JPRB,1.2019E+00_JPRB,1.3261E+00_JPRB/)
+KBO( :, 5,28, 9) = (/&
+&1.4146E-01_JPRB,6.5861E-01_JPRB,9.9361E-01_JPRB,1.2630E+00_JPRB,1.3707E+00_JPRB/)
+KBO( :, 1,29, 9) = (/&
+&4.2634E-02_JPRB,4.2840E-01_JPRB,7.0804E-01_JPRB,9.5295E-01_JPRB,1.0976E+00_JPRB/)
+KBO( :, 2,29, 9) = (/&
+&5.8749E-02_JPRB,4.7373E-01_JPRB,7.6274E-01_JPRB,1.0122E+00_JPRB,1.1466E+00_JPRB/)
+KBO( :, 3,29, 9) = (/&
+&7.8594E-02_JPRB,5.2372E-01_JPRB,8.2196E-01_JPRB,1.0740E+00_JPRB,1.1968E+00_JPRB/)
+KBO( :, 4,29, 9) = (/&
+&1.0258E-01_JPRB,5.7741E-01_JPRB,8.8498E-01_JPRB,1.1377E+00_JPRB,1.2469E+00_JPRB/)
+KBO( :, 5,29, 9) = (/&
+&1.3125E-01_JPRB,6.3414E-01_JPRB,9.5133E-01_JPRB,1.2027E+00_JPRB,1.2962E+00_JPRB/)
+KBO( :, 1,30, 9) = (/&
+&3.9899E-02_JPRB,4.0291E-01_JPRB,6.6036E-01_JPRB,8.8584E-01_JPRB,1.0137E+00_JPRB/)
+KBO( :, 2,30, 9) = (/&
+&5.4774E-02_JPRB,4.4971E-01_JPRB,7.1779E-01_JPRB,9.4836E-01_JPRB,1.0674E+00_JPRB/)
+KBO( :, 3,30, 9) = (/&
+&7.3108E-02_JPRB,5.0075E-01_JPRB,7.7974E-01_JPRB,1.0137E+00_JPRB,1.1221E+00_JPRB/)
+KBO( :, 4,30, 9) = (/&
+&9.5439E-02_JPRB,5.5545E-01_JPRB,8.4558E-01_JPRB,1.0809E+00_JPRB,1.1769E+00_JPRB/)
+KBO( :, 5,30, 9) = (/&
+&1.2214E-01_JPRB,6.1274E-01_JPRB,9.1443E-01_JPRB,1.1496E+00_JPRB,1.2307E+00_JPRB/)
+KBO( :, 1,31, 9) = (/&
+&3.7399E-02_JPRB,3.8153E-01_JPRB,6.1964E-01_JPRB,8.2749E-01_JPRB,9.4112E-01_JPRB/)
+KBO( :, 2,31, 9) = (/&
+&5.1170E-02_JPRB,4.2947E-01_JPRB,6.7967E-01_JPRB,8.9330E-01_JPRB,9.9936E-01_JPRB/)
+KBO( :, 3,31, 9) = (/&
+&6.8267E-02_JPRB,4.8157E-01_JPRB,7.4418E-01_JPRB,9.6186E-01_JPRB,1.0590E+00_JPRB/)
+KBO( :, 4,31, 9) = (/&
+&8.9119E-02_JPRB,5.3688E-01_JPRB,8.1247E-01_JPRB,1.0326E+00_JPRB,1.1185E+00_JPRB/)
+KBO( :, 5,31, 9) = (/&
+&1.1420E-01_JPRB,5.9468E-01_JPRB,8.8352E-01_JPRB,1.1045E+00_JPRB,1.1767E+00_JPRB/)
+KBO( :, 1,32, 9) = (/&
+&3.5118E-02_JPRB,3.6406E-01_JPRB,5.8571E-01_JPRB,7.7819E-01_JPRB,8.7995E-01_JPRB/)
+KBO( :, 2,32, 9) = (/&
+&4.7970E-02_JPRB,4.1299E-01_JPRB,6.4823E-01_JPRB,8.4697E-01_JPRB,9.4296E-01_JPRB/)
+KBO( :, 3,32, 9) = (/&
+&6.4004E-02_JPRB,4.6590E-01_JPRB,7.1516E-01_JPRB,9.1892E-01_JPRB,1.0071E+00_JPRB/)
+KBO( :, 4,32, 9) = (/&
+&8.3615E-02_JPRB,5.2189E-01_JPRB,7.8583E-01_JPRB,9.9290E-01_JPRB,1.0709E+00_JPRB/)
+KBO( :, 5,32, 9) = (/&
+&1.0720E-01_JPRB,5.8002E-01_JPRB,8.5872E-01_JPRB,1.0680E+00_JPRB,1.1336E+00_JPRB/)
+KBO( :, 1,33, 9) = (/&
+&3.3077E-02_JPRB,3.5017E-01_JPRB,5.5838E-01_JPRB,7.3762E-01_JPRB,8.3032E-01_JPRB/)
+KBO( :, 2,33, 9) = (/&
+&4.5163E-02_JPRB,4.0001E-01_JPRB,6.2312E-01_JPRB,8.0956E-01_JPRB,8.9776E-01_JPRB/)
+KBO( :, 3,33, 9) = (/&
+&6.0263E-02_JPRB,4.5365E-01_JPRB,6.9243E-01_JPRB,8.8459E-01_JPRB,9.6617E-01_JPRB/)
+KBO( :, 4,33, 9) = (/&
+&7.8793E-02_JPRB,5.1005E-01_JPRB,7.6498E-01_JPRB,9.6177E-01_JPRB,1.0343E+00_JPRB/)
+KBO( :, 5,33, 9) = (/&
+&1.0108E-01_JPRB,5.6875E-01_JPRB,8.3998E-01_JPRB,1.0396E+00_JPRB,1.1011E+00_JPRB/)
+KBO( :, 1,34, 9) = (/&
+&3.0915E-02_JPRB,3.3781E-01_JPRB,5.3486E-01_JPRB,7.0304E-01_JPRB,7.8832E-01_JPRB/)
+KBO( :, 2,34, 9) = (/&
+&4.2252E-02_JPRB,3.8839E-01_JPRB,6.0166E-01_JPRB,7.7789E-01_JPRB,8.5967E-01_JPRB/)
+KBO( :, 3,34, 9) = (/&
+&5.6470E-02_JPRB,4.4255E-01_JPRB,6.7299E-01_JPRB,8.5584E-01_JPRB,9.3187E-01_JPRB/)
+KBO( :, 4,34, 9) = (/&
+&7.3896E-02_JPRB,4.9923E-01_JPRB,7.4727E-01_JPRB,9.3566E-01_JPRB,1.0039E+00_JPRB/)
+KBO( :, 5,34, 9) = (/&
+&9.5018E-02_JPRB,5.5848E-01_JPRB,8.2408E-01_JPRB,1.0160E+00_JPRB,1.0743E+00_JPRB/)
+KBO( :, 1,35, 9) = (/&
+&2.8132E-02_JPRB,3.2365E-01_JPRB,5.1055E-01_JPRB,6.6895E-01_JPRB,7.4864E-01_JPRB/)
+KBO( :, 2,35, 9) = (/&
+&3.8581E-02_JPRB,3.7456E-01_JPRB,5.7889E-01_JPRB,7.4628E-01_JPRB,8.2332E-01_JPRB/)
+KBO( :, 3,35, 9) = (/&
+&5.1721E-02_JPRB,4.2888E-01_JPRB,6.5160E-01_JPRB,8.2665E-01_JPRB,8.9938E-01_JPRB/)
+KBO( :, 4,35, 9) = (/&
+&6.7950E-02_JPRB,4.8574E-01_JPRB,7.2738E-01_JPRB,9.0865E-01_JPRB,9.7493E-01_JPRB/)
+KBO( :, 5,35, 9) = (/&
+&8.7661E-02_JPRB,5.4539E-01_JPRB,8.0566E-01_JPRB,9.9133E-01_JPRB,1.0487E+00_JPRB/)
+KBO( :, 1,36, 9) = (/&
+&2.4794E-02_JPRB,3.0684E-01_JPRB,4.8374E-01_JPRB,6.3315E-01_JPRB,7.0816E-01_JPRB/)
+KBO( :, 2,36, 9) = (/&
+&3.4216E-02_JPRB,3.5764E-01_JPRB,5.5293E-01_JPRB,7.1235E-01_JPRB,7.8609E-01_JPRB/)
+KBO( :, 3,36, 9) = (/&
+&4.6142E-02_JPRB,4.1180E-01_JPRB,6.2660E-01_JPRB,7.9449E-01_JPRB,8.6552E-01_JPRB/)
+KBO( :, 4,36, 9) = (/&
+&6.0983E-02_JPRB,4.6863E-01_JPRB,7.0343E-01_JPRB,8.7846E-01_JPRB,9.4446E-01_JPRB/)
+KBO( :, 5,36, 9) = (/&
+&7.9101E-02_JPRB,5.2833E-01_JPRB,7.8277E-01_JPRB,9.6328E-01_JPRB,1.0212E+00_JPRB/)
+KBO( :, 1,37, 9) = (/&
+&2.0815E-02_JPRB,2.8513E-01_JPRB,4.5081E-01_JPRB,5.9101E-01_JPRB,6.6164E-01_JPRB/)
+KBO( :, 2,37, 9) = (/&
+&2.9022E-02_JPRB,3.3521E-01_JPRB,5.2012E-01_JPRB,6.7125E-01_JPRB,7.4211E-01_JPRB/)
+KBO( :, 3,37, 9) = (/&
+&3.9516E-02_JPRB,3.8880E-01_JPRB,5.9400E-01_JPRB,7.5469E-01_JPRB,8.2434E-01_JPRB/)
+KBO( :, 4,37, 9) = (/&
+&5.2685E-02_JPRB,4.4520E-01_JPRB,6.7131E-01_JPRB,8.4030E-01_JPRB,9.0639E-01_JPRB/)
+KBO( :, 5,37, 9) = (/&
+&6.8908E-02_JPRB,5.0450E-01_JPRB,7.5128E-01_JPRB,9.2687E-01_JPRB,9.8613E-01_JPRB/)
+KBO( :, 1,38, 9) = (/&
+&1.7440E-02_JPRB,2.6532E-01_JPRB,4.2090E-01_JPRB,5.5282E-01_JPRB,6.1999E-01_JPRB/)
+KBO( :, 2,38, 9) = (/&
+&2.4585E-02_JPRB,3.1463E-01_JPRB,4.9010E-01_JPRB,6.3385E-01_JPRB,7.0267E-01_JPRB/)
+KBO( :, 3,38, 9) = (/&
+&3.3827E-02_JPRB,3.6763E-01_JPRB,5.6406E-01_JPRB,7.1841E-01_JPRB,7.8751E-01_JPRB/)
+KBO( :, 4,38, 9) = (/&
+&4.5497E-02_JPRB,4.2358E-01_JPRB,6.4172E-01_JPRB,8.0528E-01_JPRB,8.7233E-01_JPRB/)
+KBO( :, 5,38, 9) = (/&
+&6.0061E-02_JPRB,4.8245E-01_JPRB,7.2216E-01_JPRB,8.9334E-01_JPRB,9.5488E-01_JPRB/)
+KBO( :, 1,39, 9) = (/&
+&1.4635E-02_JPRB,2.4758E-01_JPRB,3.9422E-01_JPRB,5.1882E-01_JPRB,5.8346E-01_JPRB/)
+KBO( :, 2,39, 9) = (/&
+&2.0862E-02_JPRB,2.9613E-01_JPRB,4.6317E-01_JPRB,6.0043E-01_JPRB,6.6823E-01_JPRB/)
+KBO( :, 3,39, 9) = (/&
+&2.9010E-02_JPRB,3.4853E-01_JPRB,5.3715E-01_JPRB,6.8585E-01_JPRB,7.5543E-01_JPRB/)
+KBO( :, 4,39, 9) = (/&
+&3.9392E-02_JPRB,4.0402E-01_JPRB,6.1498E-01_JPRB,7.7375E-01_JPRB,8.4272E-01_JPRB/)
+KBO( :, 5,39, 9) = (/&
+&5.2487E-02_JPRB,4.6246E-01_JPRB,6.9574E-01_JPRB,8.6309E-01_JPRB,9.2808E-01_JPRB/)
+KBO( :, 1,40, 9) = (/&
+&1.1817E-02_JPRB,2.2703E-01_JPRB,3.6362E-01_JPRB,4.8024E-01_JPRB,5.4110E-01_JPRB/)
+KBO( :, 2,40, 9) = (/&
+&1.7093E-02_JPRB,2.7438E-01_JPRB,4.3164E-01_JPRB,5.6172E-01_JPRB,6.2692E-01_JPRB/)
+KBO( :, 3,40, 9) = (/&
+&2.4086E-02_JPRB,3.2578E-01_JPRB,5.0508E-01_JPRB,6.4747E-01_JPRB,7.1559E-01_JPRB/)
+KBO( :, 4,40, 9) = (/&
+&3.3120E-02_JPRB,3.8047E-01_JPRB,5.8258E-01_JPRB,7.3604E-01_JPRB,8.0488E-01_JPRB/)
+KBO( :, 5,40, 9) = (/&
+&4.4642E-02_JPRB,4.3816E-01_JPRB,6.6329E-01_JPRB,8.2630E-01_JPRB,8.9263E-01_JPRB/)
+KBO( :, 1,41, 9) = (/&
+&9.4732E-03_JPRB,2.0772E-01_JPRB,3.3472E-01_JPRB,4.4372E-01_JPRB,5.0098E-01_JPRB/)
+KBO( :, 2,41, 9) = (/&
+&1.3924E-02_JPRB,2.5378E-01_JPRB,4.0168E-01_JPRB,5.2481E-01_JPRB,5.8738E-01_JPRB/)
+KBO( :, 3,41, 9) = (/&
+&1.9893E-02_JPRB,3.0412E-01_JPRB,4.7431E-01_JPRB,6.1058E-01_JPRB,6.7711E-01_JPRB/)
+KBO( :, 4,41, 9) = (/&
+&2.7726E-02_JPRB,3.5790E-01_JPRB,5.5133E-01_JPRB,6.9954E-01_JPRB,7.6804E-01_JPRB/)
+KBO( :, 5,41, 9) = (/&
+&3.7835E-02_JPRB,4.1479E-01_JPRB,6.3183E-01_JPRB,7.9045E-01_JPRB,8.5793E-01_JPRB/)
+KBO( :, 1,42, 9) = (/&
+&7.5682E-03_JPRB,1.9007E-01_JPRB,3.0814E-01_JPRB,4.0997E-01_JPRB,4.6395E-01_JPRB/)
+KBO( :, 2,42, 9) = (/&
+&1.1315E-02_JPRB,2.3478E-01_JPRB,3.7386E-01_JPRB,4.9039E-01_JPRB,5.5062E-01_JPRB/)
+KBO( :, 3,42, 9) = (/&
+&1.6414E-02_JPRB,2.8401E-01_JPRB,4.4556E-01_JPRB,5.7596E-01_JPRB,6.4116E-01_JPRB/)
+KBO( :, 4,42, 9) = (/&
+&2.3189E-02_JPRB,3.3687E-01_JPRB,5.2199E-01_JPRB,6.6509E-01_JPRB,7.3350E-01_JPRB/)
+KBO( :, 5,42, 9) = (/&
+&3.2053E-02_JPRB,3.9299E-01_JPRB,6.0205E-01_JPRB,7.5646E-01_JPRB,8.2526E-01_JPRB/)
+KBO( :, 1,43, 9) = (/&
+&5.8792E-03_JPRB,1.7158E-01_JPRB,2.8021E-01_JPRB,3.7439E-01_JPRB,4.2476E-01_JPRB/)
+KBO( :, 2,43, 9) = (/&
+&8.9664E-03_JPRB,2.1465E-01_JPRB,3.4423E-01_JPRB,4.5359E-01_JPRB,5.1109E-01_JPRB/)
+KBO( :, 3,43, 9) = (/&
+&1.3239E-02_JPRB,2.6247E-01_JPRB,4.1451E-01_JPRB,5.3841E-01_JPRB,6.0195E-01_JPRB/)
+KBO( :, 4,43, 9) = (/&
+&1.8999E-02_JPRB,3.1420E-01_JPRB,4.8991E-01_JPRB,6.2734E-01_JPRB,6.9535E-01_JPRB/)
+KBO( :, 5,43, 9) = (/&
+&2.6643E-02_JPRB,3.6926E-01_JPRB,5.6925E-01_JPRB,7.1886E-01_JPRB,7.8877E-01_JPRB/)
+KBO( :, 1,44, 9) = (/&
+&4.4882E-03_JPRB,1.5364E-01_JPRB,2.5283E-01_JPRB,3.3925E-01_JPRB,3.8604E-01_JPRB/)
+KBO( :, 2,44, 9) = (/&
+&6.9936E-03_JPRB,1.9487E-01_JPRB,3.1482E-01_JPRB,4.1683E-01_JPRB,4.7142E-01_JPRB/)
+KBO( :, 3,44, 9) = (/&
+&1.0532E-02_JPRB,2.4110E-01_JPRB,3.8337E-01_JPRB,5.0055E-01_JPRB,5.6226E-01_JPRB/)
+KBO( :, 4,44, 9) = (/&
+&1.5385E-02_JPRB,2.9150E-01_JPRB,4.5750E-01_JPRB,5.8891E-01_JPRB,6.5637E-01_JPRB/)
+KBO( :, 5,44, 9) = (/&
+&2.1907E-02_JPRB,3.4545E-01_JPRB,5.3592E-01_JPRB,6.8023E-01_JPRB,7.5115E-01_JPRB/)
+KBO( :, 1,45, 9) = (/&
+&3.4023E-03_JPRB,1.3718E-01_JPRB,2.2742E-01_JPRB,3.0640E-01_JPRB,3.4986E-01_JPRB/)
+KBO( :, 2,45, 9) = (/&
+&5.4211E-03_JPRB,1.7648E-01_JPRB,2.8724E-01_JPRB,3.8210E-01_JPRB,4.3396E-01_JPRB/)
+KBO( :, 3,45, 9) = (/&
+&8.3344E-03_JPRB,2.2102E-01_JPRB,3.5390E-01_JPRB,4.6443E-01_JPRB,5.2448E-01_JPRB/)
+KBO( :, 4,45, 9) = (/&
+&1.2410E-02_JPRB,2.7007E-01_JPRB,4.2657E-01_JPRB,5.5186E-01_JPRB,6.1889E-01_JPRB/)
+KBO( :, 5,45, 9) = (/&
+&1.7962E-02_JPRB,3.2284E-01_JPRB,5.0389E-01_JPRB,6.4288E-01_JPRB,7.1489E-01_JPRB/)
+KBO( :, 1,46, 9) = (/&
+&2.5298E-03_JPRB,1.2128E-01_JPRB,2.0265E-01_JPRB,2.7417E-01_JPRB,3.1426E-01_JPRB/)
+KBO( :, 2,46, 9) = (/&
+&4.1311E-03_JPRB,1.5849E-01_JPRB,2.6002E-01_JPRB,3.4751E-01_JPRB,3.9644E-01_JPRB/)
+KBO( :, 3,46, 9) = (/&
+&6.4978E-03_JPRB,2.0122E-01_JPRB,3.2453E-01_JPRB,4.2805E-01_JPRB,4.8611E-01_JPRB/)
+KBO( :, 4,46, 9) = (/&
+&9.8756E-03_JPRB,2.4871E-01_JPRB,3.9537E-01_JPRB,5.1423E-01_JPRB,5.8048E-01_JPRB/)
+KBO( :, 5,46, 9) = (/&
+&1.4561E-02_JPRB,3.0016E-01_JPRB,4.7134E-01_JPRB,6.0463E-01_JPRB,6.7732E-01_JPRB/)
+KBO( :, 1,47, 9) = (/&
+&1.8212E-03_JPRB,1.0532E-01_JPRB,1.7755E-01_JPRB,2.4129E-01_JPRB,2.7755E-01_JPRB/)
+KBO( :, 2,47, 9) = (/&
+&3.0568E-03_JPRB,1.4024E-01_JPRB,2.3198E-01_JPRB,3.1155E-01_JPRB,3.5689E-01_JPRB/)
+KBO( :, 3,47, 9) = (/&
+&4.9310E-03_JPRB,1.8078E-01_JPRB,2.9385E-01_JPRB,3.8973E-01_JPRB,4.4482E-01_JPRB/)
+KBO( :, 4,47, 9) = (/&
+&7.6712E-03_JPRB,2.2639E-01_JPRB,3.6245E-01_JPRB,4.7424E-01_JPRB,5.3854E-01_JPRB/)
+KBO( :, 5,47, 9) = (/&
+&1.1548E-02_JPRB,2.7630E-01_JPRB,4.3672E-01_JPRB,5.6347E-01_JPRB,6.3559E-01_JPRB/)
+KBO( :, 1,48, 9) = (/&
+&1.2952E-03_JPRB,9.0848E-02_JPRB,1.5447E-01_JPRB,2.1078E-01_JPRB,2.4345E-01_JPRB/)
+KBO( :, 2,48, 9) = (/&
+&2.2372E-03_JPRB,1.2337E-01_JPRB,2.0574E-01_JPRB,2.7761E-01_JPRB,3.1960E-01_JPRB/)
+KBO( :, 3,48, 9) = (/&
+&3.7056E-03_JPRB,1.6164E-01_JPRB,2.6488E-01_JPRB,3.5315E-01_JPRB,4.0534E-01_JPRB/)
+KBO( :, 4,48, 9) = (/&
+&5.9066E-03_JPRB,2.0530E-01_JPRB,3.3102E-01_JPRB,4.3559E-01_JPRB,4.9804E-01_JPRB/)
+KBO( :, 5,48, 9) = (/&
+&9.0925E-03_JPRB,2.5355E-01_JPRB,4.0335E-01_JPRB,5.2339E-01_JPRB,5.9498E-01_JPRB/)
+KBO( :, 1,49, 9) = (/&
+&9.0858E-04_JPRB,7.7773E-02_JPRB,1.3333E-01_JPRB,1.8263E-01_JPRB,2.1203E-01_JPRB/)
+KBO( :, 2,49, 9) = (/&
+&1.6178E-03_JPRB,1.0781E-01_JPRB,1.8129E-01_JPRB,2.4570E-01_JPRB,2.8465E-01_JPRB/)
+KBO( :, 3,49, 9) = (/&
+&2.7562E-03_JPRB,1.4379E-01_JPRB,2.3752E-01_JPRB,3.1823E-01_JPRB,3.6781E-01_JPRB/)
+KBO( :, 4,49, 9) = (/&
+&4.5071E-03_JPRB,1.8535E-01_JPRB,3.0106E-01_JPRB,3.9831E-01_JPRB,4.5913E-01_JPRB/)
+KBO( :, 5,49, 9) = (/&
+&7.1028E-03_JPRB,2.3184E-01_JPRB,3.7117E-01_JPRB,4.8442E-01_JPRB,5.5577E-01_JPRB/)
+KBO( :, 1,50, 9) = (/&
+&6.3845E-04_JPRB,6.6632E-02_JPRB,1.1508E-01_JPRB,1.5813E-01_JPRB,1.8420E-01_JPRB/)
+KBO( :, 2,50, 9) = (/&
+&1.1723E-03_JPRB,9.4330E-02_JPRB,1.5988E-01_JPRB,2.1752E-01_JPRB,2.5295E-01_JPRB/)
+KBO( :, 3,50, 9) = (/&
+&2.0555E-03_JPRB,1.2813E-01_JPRB,2.1319E-01_JPRB,2.8686E-01_JPRB,3.3317E-01_JPRB/)
+KBO( :, 4,50, 9) = (/&
+&3.4507E-03_JPRB,1.6762E-01_JPRB,2.7419E-01_JPRB,3.6453E-01_JPRB,4.2252E-01_JPRB/)
+KBO( :, 5,50, 9) = (/&
+&5.5676E-03_JPRB,2.1233E-01_JPRB,3.4204E-01_JPRB,4.4881E-01_JPRB,5.1834E-01_JPRB/)
+KBO( :, 1,51, 9) = (/&
+&4.4606E-04_JPRB,5.6891E-02_JPRB,9.8867E-02_JPRB,1.3627E-01_JPRB,1.5911E-01_JPRB/)
+KBO( :, 2,51, 9) = (/&
+&8.4540E-04_JPRB,8.2329E-02_JPRB,1.4056E-01_JPRB,1.9187E-01_JPRB,2.2375E-01_JPRB/)
+KBO( :, 3,51, 9) = (/&
+&1.5266E-03_JPRB,1.1393E-01_JPRB,1.9092E-01_JPRB,2.5792E-01_JPRB,3.0065E-01_JPRB/)
+KBO( :, 4,51, 9) = (/&
+&2.6330E-03_JPRB,1.5136E-01_JPRB,2.4932E-01_JPRB,3.3298E-01_JPRB,3.8756E-01_JPRB/)
+KBO( :, 5,51, 9) = (/&
+&4.3537E-03_JPRB,1.9426E-01_JPRB,3.1486E-01_JPRB,4.1517E-01_JPRB,4.8205E-01_JPRB/)
+KBO( :, 1,52, 9) = (/&
+&3.0758E-04_JPRB,4.8172E-02_JPRB,8.4225E-02_JPRB,1.1640E-01_JPRB,1.3632E-01_JPRB/)
+KBO( :, 2,52, 9) = (/&
+&6.0273E-04_JPRB,7.1379E-02_JPRB,1.2274E-01_JPRB,1.6806E-01_JPRB,1.9667E-01_JPRB/)
+KBO( :, 3,52, 9) = (/&
+&1.1225E-03_JPRB,1.0074E-01_JPRB,1.7004E-01_JPRB,2.3059E-01_JPRB,2.6996E-01_JPRB/)
+KBO( :, 4,52, 9) = (/&
+&1.9908E-03_JPRB,1.3610E-01_JPRB,2.2571E-01_JPRB,3.0271E-01_JPRB,3.5416E-01_JPRB/)
+KBO( :, 5,52, 9) = (/&
+&3.3781E-03_JPRB,1.7706E-01_JPRB,2.8879E-01_JPRB,3.8263E-01_JPRB,4.4697E-01_JPRB/)
+KBO( :, 1,53, 9) = (/&
+&2.0907E-04_JPRB,4.0394E-02_JPRB,7.1019E-02_JPRB,9.8396E-02_JPRB,1.1571E-01_JPRB/)
+KBO( :, 2,53, 9) = (/&
+&4.2389E-04_JPRB,6.1427E-02_JPRB,1.0630E-01_JPRB,1.4598E-01_JPRB,1.7164E-01_JPRB/)
+KBO( :, 3,53, 9) = (/&
+&8.1536E-04_JPRB,8.8519E-02_JPRB,1.5049E-01_JPRB,2.0480E-01_JPRB,2.4110E-01_JPRB/)
+KBO( :, 4,53, 9) = (/&
+&1.4900E-03_JPRB,1.2174E-01_JPRB,2.0325E-01_JPRB,2.7370E-01_JPRB,3.2235E-01_JPRB/)
+KBO( :, 5,53, 9) = (/&
+&2.5972E-03_JPRB,1.6068E-01_JPRB,2.6380E-01_JPRB,3.5112E-01_JPRB,4.1323E-01_JPRB/)
+KBO( :, 1,54, 9) = (/&
+&1.4322E-04_JPRB,3.4010E-02_JPRB,6.0069E-02_JPRB,8.3407E-02_JPRB,9.8018E-02_JPRB/)
+KBO( :, 2,54, 9) = (/&
+&3.0073E-04_JPRB,5.3101E-02_JPRB,9.2377E-02_JPRB,1.2719E-01_JPRB,1.4939E-01_JPRB/)
+KBO( :, 3,54, 9) = (/&
+&5.9718E-04_JPRB,7.8129E-02_JPRB,1.3368E-01_JPRB,1.8244E-01_JPRB,2.1463E-01_JPRB/)
+KBO( :, 4,54, 9) = (/&
+&1.1241E-03_JPRB,1.0934E-01_JPRB,1.8368E-01_JPRB,2.4822E-01_JPRB,2.9238E-01_JPRB/)
+KBO( :, 5,54, 9) = (/&
+&2.0131E-03_JPRB,1.4639E-01_JPRB,2.4179E-01_JPRB,3.2314E-01_JPRB,3.8050E-01_JPRB/)
+KBO( :, 1,55, 9) = (/&
+&9.7902E-05_JPRB,2.8554E-02_JPRB,5.0642E-02_JPRB,7.0457E-02_JPRB,8.2500E-02_JPRB/)
+KBO( :, 2,55, 9) = (/&
+&2.1303E-04_JPRB,4.5829E-02_JPRB,8.0130E-02_JPRB,1.1056E-01_JPRB,1.2929E-01_JPRB/)
+KBO( :, 3,55, 9) = (/&
+&4.3705E-04_JPRB,6.8906E-02_JPRB,1.1861E-01_JPRB,1.6229E-01_JPRB,1.9004E-01_JPRB/)
+KBO( :, 4,55, 9) = (/&
+&8.4778E-04_JPRB,9.8145E-02_JPRB,1.6589E-01_JPRB,2.2492E-01_JPRB,2.6385E-01_JPRB/)
+KBO( :, 5,55, 9) = (/&
+&1.5604E-03_JPRB,1.3338E-01_JPRB,2.2157E-01_JPRB,2.9717E-01_JPRB,3.4860E-01_JPRB/)
+KBO( :, 1,56, 9) = (/&
+&6.5982E-05_JPRB,2.3749E-02_JPRB,4.2283E-02_JPRB,5.8930E-02_JPRB,6.8770E-02_JPRB/)
+KBO( :, 2,56, 9) = (/&
+&1.4918E-04_JPRB,3.9269E-02_JPRB,6.8966E-02_JPRB,9.5347E-02_JPRB,1.1107E-01_JPRB/)
+KBO( :, 3,56, 9) = (/&
+&3.1651E-04_JPRB,6.0448E-02_JPRB,1.0460E-01_JPRB,1.4348E-01_JPRB,1.6725E-01_JPRB/)
+KBO( :, 4,56, 9) = (/&
+&6.3389E-04_JPRB,8.7699E-02_JPRB,1.4915E-01_JPRB,2.0282E-01_JPRB,2.3679E-01_JPRB/)
+KBO( :, 5,56, 9) = (/&
+&1.2004E-03_JPRB,1.2107E-01_JPRB,2.0225E-01_JPRB,2.7220E-01_JPRB,3.1806E-01_JPRB/)
+KBO( :, 1,57, 9) = (/&
+&4.3767E-05_JPRB,1.9535E-02_JPRB,3.4912E-02_JPRB,4.8732E-02_JPRB,5.6673E-02_JPRB/)
+KBO( :, 2,57, 9) = (/&
+&1.0316E-04_JPRB,3.3365E-02_JPRB,5.8830E-02_JPRB,8.1501E-02_JPRB,9.4580E-02_JPRB/)
+KBO( :, 3,57, 9) = (/&
+&2.2677E-04_JPRB,5.2688E-02_JPRB,9.1608E-02_JPRB,1.2597E-01_JPRB,1.4616E-01_JPRB/)
+KBO( :, 4,57, 9) = (/&
+&4.6916E-04_JPRB,7.7962E-02_JPRB,1.3338E-01_JPRB,1.8187E-01_JPRB,2.1133E-01_JPRB/)
+KBO( :, 5,57, 9) = (/&
+&9.1588E-04_JPRB,1.0942E-01_JPRB,1.8382E-01_JPRB,2.4826E-01_JPRB,2.8886E-01_JPRB/)
+KBO( :, 1,58, 9) = (/&
+&2.9014E-05_JPRB,1.6044E-02_JPRB,2.8753E-02_JPRB,4.0190E-02_JPRB,4.6551E-02_JPRB/)
+KBO( :, 2,58, 9) = (/&
+&7.1292E-05_JPRB,2.8332E-02_JPRB,5.0135E-02_JPRB,6.9583E-02_JPRB,8.0381E-02_JPRB/)
+KBO( :, 3,58, 9) = (/&
+&1.6267E-04_JPRB,4.5930E-02_JPRB,8.0232E-02_JPRB,1.1053E-01_JPRB,1.2757E-01_JPRB/)
+KBO( :, 4,58, 9) = (/&
+&3.4791E-04_JPRB,6.9359E-02_JPRB,1.1932E-01_JPRB,1.6310E-01_JPRB,1.8840E-01_JPRB/)
+KBO( :, 5,58, 9) = (/&
+&7.0018E-04_JPRB,9.8967E-02_JPRB,1.6720E-01_JPRB,2.2650E-01_JPRB,2.6195E-01_JPRB/)
+KBO( :, 1,59, 9) = (/&
+&2.2635E-05_JPRB,1.4643E-02_JPRB,2.6255E-02_JPRB,3.6697E-02_JPRB,4.2048E-02_JPRB/)
+KBO( :, 2,59, 9) = (/&
+&5.7212E-05_JPRB,2.6338E-02_JPRB,4.6664E-02_JPRB,6.4796E-02_JPRB,7.3964E-02_JPRB/)
+KBO( :, 3,59, 9) = (/&
+&1.3405E-04_JPRB,4.3265E-02_JPRB,7.5702E-02_JPRB,1.0436E-01_JPRB,1.1887E-01_JPRB/)
+KBO( :, 4,59, 9) = (/&
+&2.9326E-04_JPRB,6.5970E-02_JPRB,1.1372E-01_JPRB,1.5558E-01_JPRB,1.7711E-01_JPRB/)
+KBO( :, 5,59, 9) = (/&
+&6.0242E-04_JPRB,9.4820E-02_JPRB,1.6057E-01_JPRB,2.1777E-01_JPRB,2.4787E-01_JPRB/)
+KBO( :, 1,13,10) = (/&
+&6.7750E-01_JPRB,1.1612E+00_JPRB,1.7683E+00_JPRB,2.4833E+00_JPRB,3.2280E+00_JPRB/)
+KBO( :, 2,13,10) = (/&
+&9.8868E-01_JPRB,1.3195E+00_JPRB,1.8430E+00_JPRB,2.4544E+00_JPRB,3.1587E+00_JPRB/)
+KBO( :, 3,13,10) = (/&
+&1.3619E+00_JPRB,1.5274E+00_JPRB,1.9406E+00_JPRB,2.4411E+00_JPRB,3.1000E+00_JPRB/)
+KBO( :, 4,13,10) = (/&
+&1.7899E+00_JPRB,1.7565E+00_JPRB,2.0793E+00_JPRB,2.4696E+00_JPRB,3.0494E+00_JPRB/)
+KBO( :, 5,13,10) = (/&
+&2.2734E+00_JPRB,2.0120E+00_JPRB,2.2415E+00_JPRB,2.5072E+00_JPRB,3.0022E+00_JPRB/)
+KBO( :, 1,14,10) = (/&
+&6.6134E-01_JPRB,1.2265E+00_JPRB,1.9371E+00_JPRB,2.7275E+00_JPRB,3.5435E+00_JPRB/)
+KBO( :, 2,14,10) = (/&
+&9.5434E-01_JPRB,1.3839E+00_JPRB,2.0016E+00_JPRB,2.7009E+00_JPRB,3.4774E+00_JPRB/)
+KBO( :, 3,14,10) = (/&
+&1.3032E+00_JPRB,1.5702E+00_JPRB,2.0959E+00_JPRB,2.6930E+00_JPRB,3.4197E+00_JPRB/)
+KBO( :, 4,14,10) = (/&
+&1.7103E+00_JPRB,1.7846E+00_JPRB,2.2135E+00_JPRB,2.7227E+00_JPRB,3.3624E+00_JPRB/)
+KBO( :, 5,14,10) = (/&
+&2.1701E+00_JPRB,2.0313E+00_JPRB,2.3489E+00_JPRB,2.7404E+00_JPRB,3.3020E+00_JPRB/)
+KBO( :, 1,15,10) = (/&
+&6.3051E-01_JPRB,1.3065E+00_JPRB,2.1302E+00_JPRB,2.9787E+00_JPRB,3.8647E+00_JPRB/)
+KBO( :, 2,15,10) = (/&
+&9.0166E-01_JPRB,1.4415E+00_JPRB,2.2062E+00_JPRB,2.9568E+00_JPRB,3.8040E+00_JPRB/)
+KBO( :, 3,15,10) = (/&
+&1.2283E+00_JPRB,1.6099E+00_JPRB,2.2945E+00_JPRB,2.9614E+00_JPRB,3.7464E+00_JPRB/)
+KBO( :, 4,15,10) = (/&
+&1.6076E+00_JPRB,1.8076E+00_JPRB,2.3898E+00_JPRB,2.9892E+00_JPRB,3.6813E+00_JPRB/)
+KBO( :, 5,15,10) = (/&
+&2.0350E+00_JPRB,2.0302E+00_JPRB,2.4952E+00_JPRB,3.0078E+00_JPRB,3.6149E+00_JPRB/)
+KBO( :, 1,16,10) = (/&
+&5.8908E-01_JPRB,1.4179E+00_JPRB,2.3250E+00_JPRB,3.2386E+00_JPRB,4.2028E+00_JPRB/)
+KBO( :, 2,16,10) = (/&
+&8.3922E-01_JPRB,1.5233E+00_JPRB,2.4132E+00_JPRB,3.2198E+00_JPRB,4.1391E+00_JPRB/)
+KBO( :, 3,16,10) = (/&
+&1.1390E+00_JPRB,1.6562E+00_JPRB,2.5083E+00_JPRB,3.2400E+00_JPRB,4.0764E+00_JPRB/)
+KBO( :, 4,16,10) = (/&
+&1.4867E+00_JPRB,1.8239E+00_JPRB,2.5939E+00_JPRB,3.2704E+00_JPRB,4.0090E+00_JPRB/)
+KBO( :, 5,16,10) = (/&
+&1.8763E+00_JPRB,2.0203E+00_JPRB,2.6728E+00_JPRB,3.3036E+00_JPRB,3.9360E+00_JPRB/)
+KBO( :, 1,17,10) = (/&
+&5.4248E-01_JPRB,1.5341E+00_JPRB,2.5200E+00_JPRB,3.4785E+00_JPRB,4.5198E+00_JPRB/)
+KBO( :, 2,17,10) = (/&
+&7.6928E-01_JPRB,1.6341E+00_JPRB,2.6202E+00_JPRB,3.4798E+00_JPRB,4.4583E+00_JPRB/)
+KBO( :, 3,17,10) = (/&
+&1.0404E+00_JPRB,1.7374E+00_JPRB,2.7194E+00_JPRB,3.5099E+00_JPRB,4.3924E+00_JPRB/)
+KBO( :, 4,17,10) = (/&
+&1.3522E+00_JPRB,1.8611E+00_JPRB,2.8021E+00_JPRB,3.5422E+00_JPRB,4.3166E+00_JPRB/)
+KBO( :, 5,17,10) = (/&
+&1.7001E+00_JPRB,2.0150E+00_JPRB,2.8795E+00_JPRB,3.5848E+00_JPRB,4.2409E+00_JPRB/)
+KBO( :, 1,18,10) = (/&
+&4.9348E-01_JPRB,1.6382E+00_JPRB,2.7119E+00_JPRB,3.6984E+00_JPRB,4.7971E+00_JPRB/)
+KBO( :, 2,18,10) = (/&
+&6.9669E-01_JPRB,1.7374E+00_JPRB,2.8139E+00_JPRB,3.7221E+00_JPRB,4.7361E+00_JPRB/)
+KBO( :, 3,18,10) = (/&
+&9.3760E-01_JPRB,1.8373E+00_JPRB,2.9117E+00_JPRB,3.7521E+00_JPRB,4.6633E+00_JPRB/)
+KBO( :, 4,18,10) = (/&
+&1.2130E+00_JPRB,1.9403E+00_JPRB,3.0001E+00_JPRB,3.7974E+00_JPRB,4.5895E+00_JPRB/)
+KBO( :, 5,18,10) = (/&
+&1.5215E+00_JPRB,2.0549E+00_JPRB,3.0821E+00_JPRB,3.8475E+00_JPRB,4.5159E+00_JPRB/)
+KBO( :, 1,19,10) = (/&
+&4.4294E-01_JPRB,1.7294E+00_JPRB,2.8772E+00_JPRB,3.8900E+00_JPRB,5.0246E+00_JPRB/)
+KBO( :, 2,19,10) = (/&
+&6.2191E-01_JPRB,1.8298E+00_JPRB,2.9845E+00_JPRB,3.9195E+00_JPRB,4.9572E+00_JPRB/)
+KBO( :, 3,19,10) = (/&
+&8.3280E-01_JPRB,1.9296E+00_JPRB,3.0814E+00_JPRB,3.9651E+00_JPRB,4.8890E+00_JPRB/)
+KBO( :, 4,19,10) = (/&
+&1.0758E+00_JPRB,2.0307E+00_JPRB,3.1709E+00_JPRB,4.0288E+00_JPRB,4.8272E+00_JPRB/)
+KBO( :, 5,19,10) = (/&
+&1.3553E+00_JPRB,2.1313E+00_JPRB,3.2530E+00_JPRB,4.0885E+00_JPRB,4.7625E+00_JPRB/)
+KBO( :, 1,20,10) = (/&
+&3.9571E-01_JPRB,1.8051E+00_JPRB,3.0095E+00_JPRB,4.0443E+00_JPRB,5.1864E+00_JPRB/)
+KBO( :, 2,20,10) = (/&
+&5.5188E-01_JPRB,1.9076E+00_JPRB,3.1223E+00_JPRB,4.0868E+00_JPRB,5.1320E+00_JPRB/)
+KBO( :, 3,20,10) = (/&
+&7.3749E-01_JPRB,2.0075E+00_JPRB,3.2244E+00_JPRB,4.1593E+00_JPRB,5.0769E+00_JPRB/)
+KBO( :, 4,20,10) = (/&
+&9.5721E-01_JPRB,2.1096E+00_JPRB,3.3164E+00_JPRB,4.2324E+00_JPRB,5.0165E+00_JPRB/)
+KBO( :, 5,20,10) = (/&
+&1.2100E+00_JPRB,2.2109E+00_JPRB,3.3994E+00_JPRB,4.2966E+00_JPRB,4.9507E+00_JPRB/)
+KBO( :, 1,21,10) = (/&
+&3.5072E-01_JPRB,1.8556E+00_JPRB,3.1080E+00_JPRB,4.1542E+00_JPRB,5.2872E+00_JPRB/)
+KBO( :, 2,21,10) = (/&
+&4.8766E-01_JPRB,1.9607E+00_JPRB,3.2231E+00_JPRB,4.2283E+00_JPRB,5.2442E+00_JPRB/)
+KBO( :, 3,21,10) = (/&
+&6.5440E-01_JPRB,2.0647E+00_JPRB,3.3316E+00_JPRB,4.3160E+00_JPRB,5.1977E+00_JPRB/)
+KBO( :, 4,21,10) = (/&
+&8.5123E-01_JPRB,2.1675E+00_JPRB,3.4268E+00_JPRB,4.3944E+00_JPRB,5.1446E+00_JPRB/)
+KBO( :, 5,21,10) = (/&
+&1.0760E+00_JPRB,2.2689E+00_JPRB,3.5139E+00_JPRB,4.4592E+00_JPRB,5.0861E+00_JPRB/)
+KBO( :, 1,22,10) = (/&
+&3.1704E-01_JPRB,1.8909E+00_JPRB,3.1718E+00_JPRB,4.2211E+00_JPRB,5.3188E+00_JPRB/)
+KBO( :, 2,22,10) = (/&
+&4.4113E-01_JPRB,1.9967E+00_JPRB,3.2921E+00_JPRB,4.3258E+00_JPRB,5.2898E+00_JPRB/)
+KBO( :, 3,22,10) = (/&
+&5.9182E-01_JPRB,2.1052E+00_JPRB,3.4006E+00_JPRB,4.4235E+00_JPRB,5.2566E+00_JPRB/)
+KBO( :, 4,22,10) = (/&
+&7.6857E-01_JPRB,2.2097E+00_JPRB,3.4994E+00_JPRB,4.5051E+00_JPRB,5.2176E+00_JPRB/)
+KBO( :, 5,22,10) = (/&
+&9.7285E-01_JPRB,2.3126E+00_JPRB,3.5927E+00_JPRB,4.5701E+00_JPRB,5.1722E+00_JPRB/)
+KBO( :, 1,23,10) = (/&
+&2.8927E-01_JPRB,1.9014E+00_JPRB,3.1969E+00_JPRB,4.2666E+00_JPRB,5.3040E+00_JPRB/)
+KBO( :, 2,23,10) = (/&
+&4.0191E-01_JPRB,2.0125E+00_JPRB,3.3191E+00_JPRB,4.3795E+00_JPRB,5.2890E+00_JPRB/)
+KBO( :, 3,23,10) = (/&
+&5.3783E-01_JPRB,2.1222E+00_JPRB,3.4289E+00_JPRB,4.4796E+00_JPRB,5.2663E+00_JPRB/)
+KBO( :, 4,23,10) = (/&
+&6.9875E-01_JPRB,2.2290E+00_JPRB,3.5339E+00_JPRB,4.5665E+00_JPRB,5.2397E+00_JPRB/)
+KBO( :, 5,23,10) = (/&
+&8.8602E-01_JPRB,2.3359E+00_JPRB,3.6321E+00_JPRB,4.6372E+00_JPRB,5.2101E+00_JPRB/)
+KBO( :, 1,24,10) = (/&
+&2.6648E-01_JPRB,1.8914E+00_JPRB,3.1927E+00_JPRB,4.2785E+00_JPRB,5.2470E+00_JPRB/)
+KBO( :, 2,24,10) = (/&
+&3.6872E-01_JPRB,2.0063E+00_JPRB,3.3129E+00_JPRB,4.3925E+00_JPRB,5.2443E+00_JPRB/)
+KBO( :, 3,24,10) = (/&
+&4.9335E-01_JPRB,2.1181E+00_JPRB,3.4275E+00_JPRB,4.4944E+00_JPRB,5.2358E+00_JPRB/)
+KBO( :, 4,24,10) = (/&
+&6.4237E-01_JPRB,2.2281E+00_JPRB,3.5391E+00_JPRB,4.5872E+00_JPRB,5.2224E+00_JPRB/)
+KBO( :, 5,24,10) = (/&
+&8.1853E-01_JPRB,2.3388E+00_JPRB,3.6424E+00_JPRB,4.6721E+00_JPRB,5.2057E+00_JPRB/)
+KBO( :, 1,25,10) = (/&
+&2.4735E-01_JPRB,1.8676E+00_JPRB,3.1644E+00_JPRB,4.2512E+00_JPRB,5.1457E+00_JPRB/)
+KBO( :, 2,25,10) = (/&
+&3.4172E-01_JPRB,1.9814E+00_JPRB,3.2839E+00_JPRB,4.3716E+00_JPRB,5.1625E+00_JPRB/)
+KBO( :, 3,25,10) = (/&
+&4.5795E-01_JPRB,2.0952E+00_JPRB,3.4036E+00_JPRB,4.4805E+00_JPRB,5.1730E+00_JPRB/)
+KBO( :, 4,25,10) = (/&
+&5.9795E-01_JPRB,2.2113E+00_JPRB,3.5208E+00_JPRB,4.5808E+00_JPRB,5.1736E+00_JPRB/)
+KBO( :, 5,25,10) = (/&
+&7.5984E-01_JPRB,2.3264E+00_JPRB,3.6336E+00_JPRB,4.6738E+00_JPRB,5.1743E+00_JPRB/)
+KBO( :, 1,26,10) = (/&
+&2.3360E-01_JPRB,1.8352E+00_JPRB,3.1131E+00_JPRB,4.1942E+00_JPRB,5.0148E+00_JPRB/)
+KBO( :, 2,26,10) = (/&
+&3.2286E-01_JPRB,1.9478E+00_JPRB,3.2410E+00_JPRB,4.3228E+00_JPRB,5.0531E+00_JPRB/)
+KBO( :, 3,26,10) = (/&
+&4.3204E-01_JPRB,2.0643E+00_JPRB,3.3666E+00_JPRB,4.4432E+00_JPRB,5.0819E+00_JPRB/)
+KBO( :, 4,26,10) = (/&
+&5.6016E-01_JPRB,2.1838E+00_JPRB,3.4889E+00_JPRB,4.5535E+00_JPRB,5.1063E+00_JPRB/)
+KBO( :, 5,26,10) = (/&
+&7.0753E-01_JPRB,2.3058E+00_JPRB,3.6092E+00_JPRB,4.6573E+00_JPRB,5.1261E+00_JPRB/)
+KBO( :, 1,27,10) = (/&
+&2.2294E-01_JPRB,1.7950E+00_JPRB,3.0495E+00_JPRB,4.1133E+00_JPRB,4.8609E+00_JPRB/)
+KBO( :, 2,27,10) = (/&
+&3.0707E-01_JPRB,1.9093E+00_JPRB,3.1862E+00_JPRB,4.2562E+00_JPRB,4.9227E+00_JPRB/)
+KBO( :, 3,27,10) = (/&
+&4.0769E-01_JPRB,2.0286E+00_JPRB,3.3192E+00_JPRB,4.3886E+00_JPRB,4.9781E+00_JPRB/)
+KBO( :, 4,27,10) = (/&
+&5.2517E-01_JPRB,2.1513E+00_JPRB,3.4485E+00_JPRB,4.5128E+00_JPRB,5.0272E+00_JPRB/)
+KBO( :, 5,27,10) = (/&
+&6.6106E-01_JPRB,2.2811E+00_JPRB,3.5767E+00_JPRB,4.6309E+00_JPRB,5.0714E+00_JPRB/)
+KBO( :, 1,28,10) = (/&
+&2.1278E-01_JPRB,1.7516E+00_JPRB,2.9793E+00_JPRB,4.0203E+00_JPRB,4.7023E+00_JPRB/)
+KBO( :, 2,28,10) = (/&
+&2.9077E-01_JPRB,1.8695E+00_JPRB,3.1275E+00_JPRB,4.1790E+00_JPRB,4.7891E+00_JPRB/)
+KBO( :, 3,28,10) = (/&
+&3.8371E-01_JPRB,1.9907E+00_JPRB,3.2690E+00_JPRB,4.3298E+00_JPRB,4.8703E+00_JPRB/)
+KBO( :, 4,28,10) = (/&
+&4.9305E-01_JPRB,2.1190E+00_JPRB,3.4062E+00_JPRB,4.4719E+00_JPRB,4.9485E+00_JPRB/)
+KBO( :, 5,28,10) = (/&
+&6.1872E-01_JPRB,2.2538E+00_JPRB,3.5418E+00_JPRB,4.5998E+00_JPRB,5.0210E+00_JPRB/)
+KBO( :, 1,29,10) = (/&
+&2.0270E-01_JPRB,1.7094E+00_JPRB,2.9099E+00_JPRB,3.9283E+00_JPRB,4.5455E+00_JPRB/)
+KBO( :, 2,29,10) = (/&
+&2.7494E-01_JPRB,1.8321E+00_JPRB,3.0685E+00_JPRB,4.1039E+00_JPRB,4.6641E+00_JPRB/)
+KBO( :, 3,29,10) = (/&
+&3.6154E-01_JPRB,1.9564E+00_JPRB,3.2214E+00_JPRB,4.2736E+00_JPRB,4.7773E+00_JPRB/)
+KBO( :, 4,29,10) = (/&
+&4.6300E-01_JPRB,2.0903E+00_JPRB,3.3694E+00_JPRB,4.4317E+00_JPRB,4.8838E+00_JPRB/)
+KBO( :, 5,29,10) = (/&
+&5.8057E-01_JPRB,2.2289E+00_JPRB,3.5079E+00_JPRB,4.5763E+00_JPRB,4.9830E+00_JPRB/)
+KBO( :, 1,30,10) = (/&
+&1.9279E-01_JPRB,1.6706E+00_JPRB,2.8469E+00_JPRB,3.8440E+00_JPRB,4.4080E+00_JPRB/)
+KBO( :, 2,30,10) = (/&
+&2.6009E-01_JPRB,1.7962E+00_JPRB,3.0153E+00_JPRB,4.0402E+00_JPRB,4.5583E+00_JPRB/)
+KBO( :, 3,30,10) = (/&
+&3.4074E-01_JPRB,1.9283E+00_JPRB,3.1794E+00_JPRB,4.2253E+00_JPRB,4.7038E+00_JPRB/)
+KBO( :, 4,30,10) = (/&
+&4.3604E-01_JPRB,2.0655E+00_JPRB,3.3337E+00_JPRB,4.4011E+00_JPRB,4.8377E+00_JPRB/)
+KBO( :, 5,30,10) = (/&
+&5.4764E-01_JPRB,2.2092E+00_JPRB,3.4808E+00_JPRB,4.5595E+00_JPRB,4.9628E+00_JPRB/)
+KBO( :, 1,31,10) = (/&
+&1.8369E-01_JPRB,1.6365E+00_JPRB,2.7938E+00_JPRB,3.7778E+00_JPRB,4.2984E+00_JPRB/)
+KBO( :, 2,31,10) = (/&
+&2.4679E-01_JPRB,1.7684E+00_JPRB,2.9729E+00_JPRB,3.9905E+00_JPRB,4.4818E+00_JPRB/)
+KBO( :, 3,31,10) = (/&
+&3.2266E-01_JPRB,1.9061E+00_JPRB,3.1442E+00_JPRB,4.1950E+00_JPRB,4.6519E+00_JPRB/)
+KBO( :, 4,31,10) = (/&
+&4.1304E-01_JPRB,2.0477E+00_JPRB,3.3074E+00_JPRB,4.3826E+00_JPRB,4.8118E+00_JPRB/)
+KBO( :, 5,31,10) = (/&
+&5.2000E-01_JPRB,2.1969E+00_JPRB,3.4636E+00_JPRB,4.5527E+00_JPRB,4.9659E+00_JPRB/)
+KBO( :, 1,32,10) = (/&
+&1.7551E-01_JPRB,1.6097E+00_JPRB,2.7544E+00_JPRB,3.7286E+00_JPRB,4.2211E+00_JPRB/)
+KBO( :, 2,32,10) = (/&
+&2.3510E-01_JPRB,1.7486E+00_JPRB,2.9407E+00_JPRB,3.9624E+00_JPRB,4.4263E+00_JPRB/)
+KBO( :, 3,32,10) = (/&
+&3.0724E-01_JPRB,1.8916E+00_JPRB,3.1218E+00_JPRB,4.1778E+00_JPRB,4.6235E+00_JPRB/)
+KBO( :, 4,32,10) = (/&
+&3.9398E-01_JPRB,2.0379E+00_JPRB,3.2915E+00_JPRB,4.3768E+00_JPRB,4.8156E+00_JPRB/)
+KBO( :, 5,32,10) = (/&
+&4.9781E-01_JPRB,2.1923E+00_JPRB,3.4588E+00_JPRB,4.5574E+00_JPRB,4.9861E+00_JPRB/)
+KBO( :, 1,33,10) = (/&
+&1.6799E-01_JPRB,1.5914E+00_JPRB,2.7274E+00_JPRB,3.7024E+00_JPRB,4.1697E+00_JPRB/)
+KBO( :, 2,33,10) = (/&
+&2.2491E-01_JPRB,1.7368E+00_JPRB,2.9243E+00_JPRB,3.9492E+00_JPRB,4.4031E+00_JPRB/)
+KBO( :, 3,33,10) = (/&
+&2.9437E-01_JPRB,1.8837E+00_JPRB,3.1109E+00_JPRB,4.1768E+00_JPRB,4.6308E+00_JPRB/)
+KBO( :, 4,33,10) = (/&
+&3.7842E-01_JPRB,2.0362E+00_JPRB,3.2892E+00_JPRB,4.3833E+00_JPRB,4.8420E+00_JPRB/)
+KBO( :, 5,33,10) = (/&
+&4.8057E-01_JPRB,2.1931E+00_JPRB,3.4634E+00_JPRB,4.5721E+00_JPRB,5.0256E+00_JPRB/)
+KBO( :, 1,34,10) = (/&
+&1.5948E-01_JPRB,1.5775E+00_JPRB,2.7077E+00_JPRB,3.6846E+00_JPRB,4.1408E+00_JPRB/)
+KBO( :, 2,34,10) = (/&
+&2.1390E-01_JPRB,1.7270E+00_JPRB,2.9131E+00_JPRB,3.9429E+00_JPRB,4.4016E+00_JPRB/)
+KBO( :, 3,34,10) = (/&
+&2.8085E-01_JPRB,1.8791E+00_JPRB,3.1047E+00_JPRB,4.1792E+00_JPRB,4.6526E+00_JPRB/)
+KBO( :, 4,34,10) = (/&
+&3.6334E-01_JPRB,2.0371E+00_JPRB,3.2904E+00_JPRB,4.3938E+00_JPRB,4.8733E+00_JPRB/)
+KBO( :, 5,34,10) = (/&
+&4.6344E-01_JPRB,2.1941E+00_JPRB,3.4718E+00_JPRB,4.5911E+00_JPRB,5.0724E+00_JPRB/)
+KBO( :, 1,35,10) = (/&
+&1.4741E-01_JPRB,1.5567E+00_JPRB,2.6803E+00_JPRB,3.6561E+00_JPRB,4.1139E+00_JPRB/)
+KBO( :, 2,35,10) = (/&
+&1.9866E-01_JPRB,1.7096E+00_JPRB,2.8922E+00_JPRB,3.9256E+00_JPRB,4.4015E+00_JPRB/)
+KBO( :, 3,35,10) = (/&
+&2.6293E-01_JPRB,1.8664E+00_JPRB,3.0898E+00_JPRB,4.1709E+00_JPRB,4.6633E+00_JPRB/)
+KBO( :, 4,35,10) = (/&
+&3.4264E-01_JPRB,2.0276E+00_JPRB,3.2824E+00_JPRB,4.3940E+00_JPRB,4.8993E+00_JPRB/)
+KBO( :, 5,35,10) = (/&
+&4.3976E-01_JPRB,2.1842E+00_JPRB,3.4695E+00_JPRB,4.5966E+00_JPRB,5.1130E+00_JPRB/)
+KBO( :, 1,36,10) = (/&
+&1.3214E-01_JPRB,1.5254E+00_JPRB,2.6382E+00_JPRB,3.6093E+00_JPRB,4.0744E+00_JPRB/)
+KBO( :, 2,36,10) = (/&
+&1.7956E-01_JPRB,1.6813E+00_JPRB,2.8567E+00_JPRB,3.8896E+00_JPRB,4.3806E+00_JPRB/)
+KBO( :, 3,36,10) = (/&
+&2.4004E-01_JPRB,1.8415E+00_JPRB,3.0610E+00_JPRB,4.1453E+00_JPRB,4.6577E+00_JPRB/)
+KBO( :, 4,36,10) = (/&
+&3.1565E-01_JPRB,2.0040E+00_JPRB,3.2597E+00_JPRB,4.3756E+00_JPRB,4.9082E+00_JPRB/)
+KBO( :, 5,36,10) = (/&
+&4.0871E-01_JPRB,2.1610E+00_JPRB,3.4521E+00_JPRB,4.5836E+00_JPRB,5.1373E+00_JPRB/)
+KBO( :, 1,37,10) = (/&
+&1.1316E-01_JPRB,1.4752E+00_JPRB,2.5688E+00_JPRB,3.5261E+00_JPRB,3.9938E+00_JPRB/)
+KBO( :, 2,37,10) = (/&
+&1.5558E-01_JPRB,1.6337E+00_JPRB,2.7946E+00_JPRB,3.8188E+00_JPRB,4.3194E+00_JPRB/)
+KBO( :, 3,37,10) = (/&
+&2.1051E-01_JPRB,1.7957E+00_JPRB,3.0066E+00_JPRB,4.0860E+00_JPRB,4.6128E+00_JPRB/)
+KBO( :, 4,37,10) = (/&
+&2.8028E-01_JPRB,1.9593E+00_JPRB,3.2111E+00_JPRB,4.3259E+00_JPRB,4.8781E+00_JPRB/)
+KBO( :, 5,37,10) = (/&
+&3.6684E-01_JPRB,2.1183E+00_JPRB,3.4096E+00_JPRB,4.5437E+00_JPRB,5.1231E+00_JPRB/)
+KBO( :, 1,38,10) = (/&
+&9.6748E-02_JPRB,1.4275E+00_JPRB,2.5025E+00_JPRB,3.4448E+00_JPRB,3.9178E+00_JPRB/)
+KBO( :, 2,38,10) = (/&
+&1.3470E-01_JPRB,1.5886E+00_JPRB,2.7351E+00_JPRB,3.7489E+00_JPRB,4.2599E+00_JPRB/)
+KBO( :, 3,38,10) = (/&
+&1.8442E-01_JPRB,1.7514E+00_JPRB,2.9540E+00_JPRB,4.0269E+00_JPRB,4.5684E+00_JPRB/)
+KBO( :, 4,38,10) = (/&
+&2.4862E-01_JPRB,1.9169E+00_JPRB,3.1637E+00_JPRB,4.2769E+00_JPRB,4.8492E+00_JPRB/)
+KBO( :, 5,38,10) = (/&
+&3.2905E-01_JPRB,2.0776E+00_JPRB,3.3672E+00_JPRB,4.5027E+00_JPRB,5.1082E+00_JPRB/)
+KBO( :, 1,39,10) = (/&
+&8.2846E-02_JPRB,1.3834E+00_JPRB,2.4412E+00_JPRB,3.3680E+00_JPRB,3.8485E+00_JPRB/)
+KBO( :, 2,39,10) = (/&
+&1.1685E-01_JPRB,1.5463E+00_JPRB,2.6796E+00_JPRB,3.6824E+00_JPRB,4.2039E+00_JPRB/)
+KBO( :, 3,39,10) = (/&
+&1.6194E-01_JPRB,1.7108E+00_JPRB,2.9043E+00_JPRB,3.9699E+00_JPRB,4.5285E+00_JPRB/)
+KBO( :, 4,39,10) = (/&
+&2.2088E-01_JPRB,1.8779E+00_JPRB,3.1188E+00_JPRB,4.2292E+00_JPRB,4.8250E+00_JPRB/)
+KBO( :, 5,39,10) = (/&
+&2.9576E-01_JPRB,2.0398E+00_JPRB,3.3275E+00_JPRB,4.4625E+00_JPRB,5.0971E+00_JPRB/)
+KBO( :, 1,40,10) = (/&
+&6.8460E-02_JPRB,1.3257E+00_JPRB,2.3577E+00_JPRB,3.2603E+00_JPRB,3.7339E+00_JPRB/)
+KBO( :, 2,40,10) = (/&
+&9.7988E-02_JPRB,1.4903E+00_JPRB,2.6023E+00_JPRB,3.5872E+00_JPRB,4.1045E+00_JPRB/)
+KBO( :, 3,40,10) = (/&
+&1.3775E-01_JPRB,1.6559E+00_JPRB,2.8336E+00_JPRB,3.8858E+00_JPRB,4.4458E+00_JPRB/)
+KBO( :, 4,40,10) = (/&
+&1.9045E-01_JPRB,1.8245E+00_JPRB,3.0542E+00_JPRB,4.1559E+00_JPRB,4.7581E+00_JPRB/)
+KBO( :, 5,40,10) = (/&
+&2.5849E-01_JPRB,1.9886E+00_JPRB,3.2674E+00_JPRB,4.3994E+00_JPRB,5.0432E+00_JPRB/)
+KBO( :, 1,41,10) = (/&
+&5.6234E-02_JPRB,1.2690E+00_JPRB,2.2720E+00_JPRB,3.1495E+00_JPRB,3.6139E+00_JPRB/)
+KBO( :, 2,41,10) = (/&
+&8.1724E-02_JPRB,1.4342E+00_JPRB,2.5230E+00_JPRB,3.4875E+00_JPRB,3.9992E+00_JPRB/)
+KBO( :, 3,41,10) = (/&
+&1.1661E-01_JPRB,1.6007E+00_JPRB,2.7616E+00_JPRB,3.7972E+00_JPRB,4.3567E+00_JPRB/)
+KBO( :, 4,41,10) = (/&
+&1.6350E-01_JPRB,1.7709E+00_JPRB,2.9870E+00_JPRB,4.0779E+00_JPRB,4.6840E+00_JPRB/)
+KBO( :, 5,41,10) = (/&
+&2.2482E-01_JPRB,1.9373E+00_JPRB,3.2036E+00_JPRB,4.3314E+00_JPRB,4.9822E+00_JPRB/)
+KBO( :, 1,42,10) = (/&
+&4.6099E-02_JPRB,1.2146E+00_JPRB,2.1872E+00_JPRB,3.0381E+00_JPRB,3.4945E+00_JPRB/)
+KBO( :, 2,42,10) = (/&
+&6.8068E-02_JPRB,1.3798E+00_JPRB,2.4452E+00_JPRB,3.3871E+00_JPRB,3.8938E+00_JPRB/)
+KBO( :, 3,42,10) = (/&
+&9.8587E-02_JPRB,1.5478E+00_JPRB,2.6891E+00_JPRB,3.7072E+00_JPRB,4.2665E+00_JPRB/)
+KBO( :, 4,42,10) = (/&
+&1.4020E-01_JPRB,1.7187E+00_JPRB,2.9198E+00_JPRB,3.9988E+00_JPRB,4.6092E+00_JPRB/)
+KBO( :, 5,42,10) = (/&
+&1.9544E-01_JPRB,1.8864E+00_JPRB,3.1414E+00_JPRB,4.2616E+00_JPRB,4.9213E+00_JPRB/)
+KBO( :, 1,43,10) = (/&
+&3.6837E-02_JPRB,1.1530E+00_JPRB,2.0885E+00_JPRB,2.9067E+00_JPRB,3.3518E+00_JPRB/)
+KBO( :, 2,43,10) = (/&
+&5.5339E-02_JPRB,1.3181E+00_JPRB,2.3532E+00_JPRB,3.2663E+00_JPRB,3.7650E+00_JPRB/)
+KBO( :, 3,43,10) = (/&
+&8.1513E-02_JPRB,1.4866E+00_JPRB,2.6028E+00_JPRB,3.5988E+00_JPRB,4.1527E+00_JPRB/)
+KBO( :, 4,43,10) = (/&
+&1.1773E-01_JPRB,1.6570E+00_JPRB,2.8399E+00_JPRB,3.9012E+00_JPRB,4.5115E+00_JPRB/)
+KBO( :, 5,43,10) = (/&
+&1.6664E-01_JPRB,1.8278E+00_JPRB,3.0668E+00_JPRB,4.1754E+00_JPRB,4.8396E+00_JPRB/)
+KBO( :, 1,44,10) = (/&
+&2.8988E-02_JPRB,1.0887E+00_JPRB,1.9830E+00_JPRB,2.7653E+00_JPRB,3.1966E+00_JPRB/)
+KBO( :, 2,44,10) = (/&
+&4.4338E-02_JPRB,1.2532E+00_JPRB,2.2540E+00_JPRB,3.1344E+00_JPRB,3.6243E+00_JPRB/)
+KBO( :, 3,44,10) = (/&
+&6.6501E-02_JPRB,1.4222E+00_JPRB,2.5105E+00_JPRB,3.4789E+00_JPRB,4.0260E+00_JPRB/)
+KBO( :, 4,44,10) = (/&
+&9.7639E-02_JPRB,1.5932E+00_JPRB,2.7543E+00_JPRB,3.7931E+00_JPRB,4.4021E+00_JPRB/)
+KBO( :, 5,44,10) = (/&
+&1.4052E-01_JPRB,1.7655E+00_JPRB,2.9842E+00_JPRB,4.0798E+00_JPRB,4.7466E+00_JPRB/)
+KBO( :, 1,45,10) = (/&
+&2.2674E-02_JPRB,1.0257E+00_JPRB,1.8783E+00_JPRB,2.6228E+00_JPRB,3.0412E+00_JPRB/)
+KBO( :, 2,45,10) = (/&
+&3.5361E-02_JPRB,1.1906E+00_JPRB,2.1544E+00_JPRB,3.0007E+00_JPRB,3.4821E+00_JPRB/)
+KBO( :, 3,45,10) = (/&
+&5.3984E-02_JPRB,1.3593E+00_JPRB,2.4179E+00_JPRB,3.3558E+00_JPRB,3.8978E+00_JPRB/)
+KBO( :, 4,45,10) = (/&
+&8.0687E-02_JPRB,1.5302E+00_JPRB,2.6662E+00_JPRB,3.6830E+00_JPRB,4.2916E+00_JPRB/)
+KBO( :, 5,45,10) = (/&
+&1.1807E-01_JPRB,1.7032E+00_JPRB,2.9026E+00_JPRB,3.9804E+00_JPRB,4.6530E+00_JPRB/)
+KBO( :, 1,46,10) = (/&
+&1.7410E-02_JPRB,9.6094E-01_JPRB,1.7674E+00_JPRB,2.4706E+00_JPRB,2.8739E+00_JPRB/)
+KBO( :, 2,46,10) = (/&
+&2.7786E-02_JPRB,1.1256E+00_JPRB,2.0477E+00_JPRB,2.8564E+00_JPRB,3.3272E+00_JPRB/)
+KBO( :, 3,46,10) = (/&
+&4.3233E-02_JPRB,1.2931E+00_JPRB,2.3174E+00_JPRB,3.2226E+00_JPRB,3.7574E+00_JPRB/)
+KBO( :, 4,46,10) = (/&
+&6.5795E-02_JPRB,1.4641E+00_JPRB,2.5723E+00_JPRB,3.5627E+00_JPRB,4.1675E+00_JPRB/)
+KBO( :, 5,46,10) = (/&
+&9.8017E-02_JPRB,1.6372E+00_JPRB,2.8147E+00_JPRB,3.8708E+00_JPRB,4.5474E+00_JPRB/)
+KBO( :, 1,47,10) = (/&
+&1.2932E-02_JPRB,8.9077E-01_JPRB,1.6439E+00_JPRB,2.2995E+00_JPRB,2.6825E+00_JPRB/)
+KBO( :, 2,47,10) = (/&
+&2.1223E-02_JPRB,1.0540E+00_JPRB,1.9287E+00_JPRB,2.6946E+00_JPRB,3.1473E+00_JPRB/)
+KBO( :, 3,47,10) = (/&
+&3.3771E-02_JPRB,1.2207E+00_JPRB,2.2047E+00_JPRB,3.0711E+00_JPRB,3.5926E+00_JPRB/)
+KBO( :, 4,47,10) = (/&
+&5.2401E-02_JPRB,1.3916E+00_JPRB,2.4667E+00_JPRB,3.4226E+00_JPRB,4.0177E+00_JPRB/)
+KBO( :, 5,47,10) = (/&
+&7.9614E-02_JPRB,1.5646E+00_JPRB,2.7148E+00_JPRB,3.7454E+00_JPRB,4.4170E+00_JPRB/)
+KBO( :, 1,48,10) = (/&
+&9.4853E-03_JPRB,8.2116E-01_JPRB,1.5192E+00_JPRB,2.1278E+00_JPRB,2.4903E+00_JPRB/)
+KBO( :, 2,48,10) = (/&
+&1.6017E-02_JPRB,9.8364E-01_JPRB,1.8094E+00_JPRB,2.5302E+00_JPRB,2.9654E+00_JPRB/)
+KBO( :, 3,48,10) = (/&
+&2.6151E-02_JPRB,1.1500E+00_JPRB,2.0897E+00_JPRB,2.9152E+00_JPRB,3.4258E+00_JPRB/)
+KBO( :, 4,48,10) = (/&
+&4.1450E-02_JPRB,1.3196E+00_JPRB,2.3589E+00_JPRB,3.2790E+00_JPRB,3.8661E+00_JPRB/)
+KBO( :, 5,48,10) = (/&
+&6.4206E-02_JPRB,1.4922E+00_JPRB,2.6125E+00_JPRB,3.6159E+00_JPRB,4.2851E+00_JPRB/)
+KBO( :, 1,49,10) = (/&
+&6.8584E-03_JPRB,7.5265E-01_JPRB,1.3951E+00_JPRB,1.9557E+00_JPRB,2.2987E+00_JPRB/)
+KBO( :, 2,49,10) = (/&
+&1.1934E-02_JPRB,9.1467E-01_JPRB,1.6885E+00_JPRB,2.3631E+00_JPRB,2.7820E+00_JPRB/)
+KBO( :, 3,49,10) = (/&
+&2.0019E-02_JPRB,1.0797E+00_JPRB,1.9731E+00_JPRB,2.7567E+00_JPRB,3.2569E+00_JPRB/)
+KBO( :, 4,49,10) = (/&
+&3.2532E-02_JPRB,1.2481E+00_JPRB,2.2484E+00_JPRB,3.1312E+00_JPRB,3.7144E+00_JPRB/)
+KBO( :, 5,49,10) = (/&
+&5.1423E-02_JPRB,1.4202E+00_JPRB,2.5087E+00_JPRB,3.4802E+00_JPRB,4.1524E+00_JPRB/)
+KBO( :, 1,50,10) = (/&
+&4.9588E-03_JPRB,6.8907E-01_JPRB,1.2794E+00_JPRB,1.7942E+00_JPRB,2.1153E+00_JPRB/)
+KBO( :, 2,50,10) = (/&
+&8.8947E-03_JPRB,8.5045E-01_JPRB,1.5739E+00_JPRB,2.2042E+00_JPRB,2.6031E+00_JPRB/)
+KBO( :, 3,50,10) = (/&
+&1.5348E-02_JPRB,1.0143E+00_JPRB,1.8632E+00_JPRB,2.6056E+00_JPRB,3.0870E+00_JPRB/)
+KBO( :, 4,50,10) = (/&
+&2.5608E-02_JPRB,1.1821E+00_JPRB,2.1430E+00_JPRB,2.9888E+00_JPRB,3.5596E+00_JPRB/)
+KBO( :, 5,50,10) = (/&
+&4.1387E-02_JPRB,1.3536E+00_JPRB,2.4101E+00_JPRB,3.3481E+00_JPRB,4.0115E+00_JPRB/)
+KBO( :, 1,51,10) = (/&
+&3.5571E-03_JPRB,6.2785E-01_JPRB,1.1678E+00_JPRB,1.6386E+00_JPRB,1.9369E+00_JPRB/)
+KBO( :, 2,51,10) = (/&
+&6.5893E-03_JPRB,7.8876E-01_JPRB,1.4624E+00_JPRB,2.0498E+00_JPRB,2.4257E+00_JPRB/)
+KBO( :, 3,51,10) = (/&
+&1.1707E-02_JPRB,9.5177E-01_JPRB,1.7551E+00_JPRB,2.4566E+00_JPRB,2.9162E+00_JPRB/)
+KBO( :, 4,51,10) = (/&
+&2.0074E-02_JPRB,1.1187E+00_JPRB,2.0387E+00_JPRB,2.8466E+00_JPRB,3.3998E+00_JPRB/)
+KBO( :, 5,51,10) = (/&
+&3.3273E-02_JPRB,1.2890E+00_JPRB,2.3117E+00_JPRB,3.2168E+00_JPRB,3.8651E+00_JPRB/)
+KBO( :, 1,52,10) = (/&
+&2.5127E-03_JPRB,5.6820E-01_JPRB,1.0583E+00_JPRB,1.4864E+00_JPRB,1.7624E+00_JPRB/)
+KBO( :, 2,52,10) = (/&
+&4.8248E-03_JPRB,7.2792E-01_JPRB,1.3512E+00_JPRB,1.8952E+00_JPRB,2.2490E+00_JPRB/)
+KBO( :, 3,52,10) = (/&
+&8.8346E-03_JPRB,8.9029E-01_JPRB,1.6463E+00_JPRB,2.3052E+00_JPRB,2.7452E+00_JPRB/)
+KBO( :, 4,52,10) = (/&
+&1.5583E-02_JPRB,1.0558E+00_JPRB,1.9336E+00_JPRB,2.7033E+00_JPRB,3.2391E+00_JPRB/)
+KBO( :, 5,52,10) = (/&
+&2.6529E-02_JPRB,1.2246E+00_JPRB,2.2115E+00_JPRB,3.0824E+00_JPRB,3.7180E+00_JPRB/)
+KBO( :, 1,53,10) = (/&
+&1.7459E-03_JPRB,5.1010E-01_JPRB,9.5136E-01_JPRB,1.3367E+00_JPRB,1.5916E+00_JPRB/)
+KBO( :, 2,53,10) = (/&
+&3.4808E-03_JPRB,6.6729E-01_JPRB,1.2403E+00_JPRB,1.7405E+00_JPRB,2.0746E+00_JPRB/)
+KBO( :, 3,53,10) = (/&
+&6.5872E-03_JPRB,8.2899E-01_JPRB,1.5363E+00_JPRB,2.1529E+00_JPRB,2.5747E+00_JPRB/)
+KBO( :, 4,53,10) = (/&
+&1.1962E-02_JPRB,9.9325E-01_JPRB,1.8279E+00_JPRB,2.5576E+00_JPRB,3.0783E+00_JPRB/)
+KBO( :, 5,53,10) = (/&
+&2.0951E-02_JPRB,1.1616E+00_JPRB,2.1096E+00_JPRB,2.9440E+00_JPRB,3.5715E+00_JPRB/)
+KBO( :, 1,54,10) = (/&
+&1.2204E-03_JPRB,4.5823E-01_JPRB,8.5579E-01_JPRB,1.2025E+00_JPRB,1.4326E+00_JPRB/)
+KBO( :, 2,54,10) = (/&
+&2.5281E-03_JPRB,6.1212E-01_JPRB,1.1396E+00_JPRB,1.5999E+00_JPRB,1.9069E+00_JPRB/)
+KBO( :, 3,54,10) = (/&
+&4.9409E-03_JPRB,7.7338E-01_JPRB,1.4350E+00_JPRB,2.0125E+00_JPRB,2.4041E+00_JPRB/)
+KBO( :, 4,54,10) = (/&
+&9.2436E-03_JPRB,9.3695E-01_JPRB,1.7295E+00_JPRB,2.4215E+00_JPRB,2.9094E+00_JPRB/)
+KBO( :, 5,54,10) = (/&
+&1.6670E-02_JPRB,1.1040E+00_JPRB,2.0145E+00_JPRB,2.8142E+00_JPRB,3.4095E+00_JPRB/)
+KBO( :, 1,55,10) = (/&
+&8.4904E-04_JPRB,4.1031E-01_JPRB,7.6714E-01_JPRB,1.0777E+00_JPRB,1.2810E+00_JPRB/)
+KBO( :, 2,55,10) = (/&
+&1.8289E-03_JPRB,5.6051E-01_JPRB,1.0445E+00_JPRB,1.4675E+00_JPRB,1.7437E+00_JPRB/)
+KBO( :, 3,55,10) = (/&
+&3.6957E-03_JPRB,7.2049E-01_JPRB,1.3381E+00_JPRB,1.8775E+00_JPRB,2.2346E+00_JPRB/)
+KBO( :, 4,55,10) = (/&
+&7.1338E-03_JPRB,8.8320E-01_JPRB,1.6342E+00_JPRB,2.2888E+00_JPRB,2.7356E+00_JPRB/)
+KBO( :, 5,55,10) = (/&
+&1.3248E-02_JPRB,1.0490E+00_JPRB,1.9226E+00_JPRB,2.6886E+00_JPRB,3.2366E+00_JPRB/)
+KBO( :, 1,56,10) = (/&
+&5.8188E-04_JPRB,3.6451E-01_JPRB,6.8188E-01_JPRB,9.5775E-01_JPRB,1.1364E+00_JPRB/)
+KBO( :, 2,56,10) = (/&
+&1.3061E-03_JPRB,5.1010E-01_JPRB,9.5157E-01_JPRB,1.3373E+00_JPRB,1.5849E+00_JPRB/)
+KBO( :, 3,56,10) = (/&
+&2.7348E-03_JPRB,6.6775E-01_JPRB,1.2416E+00_JPRB,1.7426E+00_JPRB,2.0675E+00_JPRB/)
+KBO( :, 4,56,10) = (/&
+&5.4506E-03_JPRB,8.2982E-01_JPRB,1.5384E+00_JPRB,2.1560E+00_JPRB,2.5656E+00_JPRB/)
+KBO( :, 5,56,10) = (/&
+&1.0438E-02_JPRB,9.9464E-01_JPRB,1.8304E+00_JPRB,2.5617E+00_JPRB,3.0643E+00_JPRB/)
+KBO( :, 1,57,10) = (/&
+&3.9249E-04_JPRB,3.2068E-01_JPRB,6.0044E-01_JPRB,8.4280E-01_JPRB,9.9873E-01_JPRB/)
+KBO( :, 2,57,10) = (/&
+&9.2030E-04_JPRB,4.6083E-01_JPRB,8.6077E-01_JPRB,1.2098E+00_JPRB,1.4302E+00_JPRB/)
+KBO( :, 3,57,10) = (/&
+&2.0002E-03_JPRB,6.1542E-01_JPRB,1.1460E+00_JPRB,1.6091E+00_JPRB,1.9029E+00_JPRB/)
+KBO( :, 4,57,10) = (/&
+&4.1235E-03_JPRB,7.7708E-01_JPRB,1.4422E+00_JPRB,2.0227E+00_JPRB,2.3967E+00_JPRB/)
+KBO( :, 5,57,10) = (/&
+&8.1478E-03_JPRB,9.4098E-01_JPRB,1.7369E+00_JPRB,2.4323E+00_JPRB,2.8933E+00_JPRB/)
+KBO( :, 1,58,10) = (/&
+&2.6430E-04_JPRB,2.8122E-01_JPRB,5.2695E-01_JPRB,7.3930E-01_JPRB,8.7420E-01_JPRB/)
+KBO( :, 2,58,10) = (/&
+&6.4821E-04_JPRB,4.1579E-01_JPRB,7.7745E-01_JPRB,1.0922E+00_JPRB,1.2875E+00_JPRB/)
+KBO( :, 3,58,10) = (/&
+&1.4624E-03_JPRB,5.6685E-01_JPRB,1.0564E+00_JPRB,1.4844E+00_JPRB,1.7489E+00_JPRB/)
+KBO( :, 4,58,10) = (/&
+&3.1206E-03_JPRB,7.2740E-01_JPRB,1.3510E+00_JPRB,1.8958E+00_JPRB,2.2357E+00_JPRB/)
+KBO( :, 5,58,10) = (/&
+&6.3628E-03_JPRB,8.9041E-01_JPRB,1.6474E+00_JPRB,2.3075E+00_JPRB,2.7302E+00_JPRB/)
+KBO( :, 1,59,10) = (/&
+&2.0990E-04_JPRB,2.6575E-01_JPRB,4.9806E-01_JPRB,6.9856E-01_JPRB,8.1922E-01_JPRB/)
+KBO( :, 2,59,10) = (/&
+&5.2942E-04_JPRB,3.9787E-01_JPRB,7.4416E-01_JPRB,1.0453E+00_JPRB,1.2213E+00_JPRB/)
+KBO( :, 3,59,10) = (/&
+&1.2254E-03_JPRB,5.4737E-01_JPRB,1.0206E+00_JPRB,1.4342E+00_JPRB,1.6735E+00_JPRB/)
+KBO( :, 4,59,10) = (/&
+&2.6840E-03_JPRB,7.0712E-01_JPRB,1.3141E+00_JPRB,1.8442E+00_JPRB,2.1507E+00_JPRB/)
+KBO( :, 5,59,10) = (/&
+&5.6182E-03_JPRB,8.7007E-01_JPRB,1.6111E+00_JPRB,2.2569E+00_JPRB,2.6371E+00_JPRB/)
+KBO( :, 1,13,11) = (/&
+&1.0801E+00_JPRB,1.4348E+00_JPRB,2.0789E+00_JPRB,2.8766E+00_JPRB,3.7088E+00_JPRB/)
+KBO( :, 2,13,11) = (/&
+&1.5786E+00_JPRB,1.6909E+00_JPRB,2.2344E+00_JPRB,2.8378E+00_JPRB,3.6154E+00_JPRB/)
+KBO( :, 3,13,11) = (/&
+&2.1806E+00_JPRB,1.9878E+00_JPRB,2.3945E+00_JPRB,2.8212E+00_JPRB,3.5326E+00_JPRB/)
+KBO( :, 4,13,11) = (/&
+&2.8720E+00_JPRB,2.3800E+00_JPRB,2.5914E+00_JPRB,2.8385E+00_JPRB,3.4655E+00_JPRB/)
+KBO( :, 5,13,11) = (/&
+&3.6411E+00_JPRB,2.8911E+00_JPRB,2.8480E+00_JPRB,2.9116E+00_JPRB,3.4228E+00_JPRB/)
+KBO( :, 1,14,11) = (/&
+&1.1044E+00_JPRB,1.5475E+00_JPRB,2.2497E+00_JPRB,3.1463E+00_JPRB,4.0884E+00_JPRB/)
+KBO( :, 2,14,11) = (/&
+&1.5971E+00_JPRB,1.7939E+00_JPRB,2.3794E+00_JPRB,3.1054E+00_JPRB,3.9980E+00_JPRB/)
+KBO( :, 3,14,11) = (/&
+&2.1821E+00_JPRB,2.0987E+00_JPRB,2.5507E+00_JPRB,3.0870E+00_JPRB,3.9208E+00_JPRB/)
+KBO( :, 4,14,11) = (/&
+&2.8502E+00_JPRB,2.4509E+00_JPRB,2.7671E+00_JPRB,3.1108E+00_JPRB,3.8503E+00_JPRB/)
+KBO( :, 5,14,11) = (/&
+&3.5884E+00_JPRB,2.8921E+00_JPRB,3.0089E+00_JPRB,3.1705E+00_JPRB,3.7851E+00_JPRB/)
+KBO( :, 1,15,11) = (/&
+&1.1021E+00_JPRB,1.6587E+00_JPRB,2.4815E+00_JPRB,3.5024E+00_JPRB,4.5632E+00_JPRB/)
+KBO( :, 2,15,11) = (/&
+&1.5743E+00_JPRB,1.8988E+00_JPRB,2.5745E+00_JPRB,3.4612E+00_JPRB,4.4691E+00_JPRB/)
+KBO( :, 3,15,11) = (/&
+&2.1315E+00_JPRB,2.1848E+00_JPRB,2.7319E+00_JPRB,3.4370E+00_JPRB,4.3819E+00_JPRB/)
+KBO( :, 4,15,11) = (/&
+&2.7650E+00_JPRB,2.5138E+00_JPRB,2.9331E+00_JPRB,3.4633E+00_JPRB,4.3032E+00_JPRB/)
+KBO( :, 5,15,11) = (/&
+&3.4727E+00_JPRB,2.9032E+00_JPRB,3.1579E+00_JPRB,3.5044E+00_JPRB,4.2227E+00_JPRB/)
+KBO( :, 1,16,11) = (/&
+&1.0714E+00_JPRB,1.7588E+00_JPRB,2.7564E+00_JPRB,3.8747E+00_JPRB,5.0508E+00_JPRB/)
+KBO( :, 2,16,11) = (/&
+&1.5150E+00_JPRB,1.9873E+00_JPRB,2.8550E+00_JPRB,3.8426E+00_JPRB,4.9605E+00_JPRB/)
+KBO( :, 3,16,11) = (/&
+&2.0368E+00_JPRB,2.2470E+00_JPRB,2.9773E+00_JPRB,3.8351E+00_JPRB,4.8716E+00_JPRB/)
+KBO( :, 4,16,11) = (/&
+&2.6368E+00_JPRB,2.5533E+00_JPRB,3.1361E+00_JPRB,3.8536E+00_JPRB,4.7863E+00_JPRB/)
+KBO( :, 5,16,11) = (/&
+&3.3066E+00_JPRB,2.9151E+00_JPRB,3.3174E+00_JPRB,3.8762E+00_JPRB,4.6948E+00_JPRB/)
+KBO( :, 1,17,11) = (/&
+&1.0151E+00_JPRB,1.8852E+00_JPRB,3.0518E+00_JPRB,4.2628E+00_JPRB,5.5542E+00_JPRB/)
+KBO( :, 2,17,11) = (/&
+&1.4250E+00_JPRB,2.0700E+00_JPRB,3.1614E+00_JPRB,4.2288E+00_JPRB,5.4601E+00_JPRB/)
+KBO( :, 3,17,11) = (/&
+&1.9121E+00_JPRB,2.3001E+00_JPRB,3.2776E+00_JPRB,4.2348E+00_JPRB,5.3679E+00_JPRB/)
+KBO( :, 4,17,11) = (/&
+&2.4694E+00_JPRB,2.5770E+00_JPRB,3.4037E+00_JPRB,4.2558E+00_JPRB,5.2730E+00_JPRB/)
+KBO( :, 5,17,11) = (/&
+&3.0899E+00_JPRB,2.9049E+00_JPRB,3.5383E+00_JPRB,4.2898E+00_JPRB,5.1747E+00_JPRB/)
+KBO( :, 1,18,11) = (/&
+&9.4290E-01_JPRB,2.0484E+00_JPRB,3.3469E+00_JPRB,4.6479E+00_JPRB,6.0575E+00_JPRB/)
+KBO( :, 2,18,11) = (/&
+&1.3205E+00_JPRB,2.1931E+00_JPRB,3.4728E+00_JPRB,4.6183E+00_JPRB,5.9563E+00_JPRB/)
+KBO( :, 3,18,11) = (/&
+&1.7655E+00_JPRB,2.3717E+00_JPRB,3.5959E+00_JPRB,4.6412E+00_JPRB,5.8591E+00_JPRB/)
+KBO( :, 4,18,11) = (/&
+&2.2742E+00_JPRB,2.6014E+00_JPRB,3.7076E+00_JPRB,4.6704E+00_JPRB,5.7576E+00_JPRB/)
+KBO( :, 5,18,11) = (/&
+&2.8368E+00_JPRB,2.8834E+00_JPRB,3.8149E+00_JPRB,4.7239E+00_JPRB,5.6493E+00_JPRB/)
+KBO( :, 1,19,11) = (/&
+&8.6437E-01_JPRB,2.2167E+00_JPRB,3.6423E+00_JPRB,5.0107E+00_JPRB,6.5258E+00_JPRB/)
+KBO( :, 2,19,11) = (/&
+&1.2052E+00_JPRB,2.3536E+00_JPRB,3.7778E+00_JPRB,5.0137E+00_JPRB,6.4336E+00_JPRB/)
+KBO( :, 3,19,11) = (/&
+&1.6063E+00_JPRB,2.4963E+00_JPRB,3.9078E+00_JPRB,5.0409E+00_JPRB,6.3317E+00_JPRB/)
+KBO( :, 4,19,11) = (/&
+&2.0613E+00_JPRB,2.6673E+00_JPRB,4.0216E+00_JPRB,5.0848E+00_JPRB,6.2172E+00_JPRB/)
+KBO( :, 5,19,11) = (/&
+&2.5635E+00_JPRB,2.8852E+00_JPRB,4.1233E+00_JPRB,5.1457E+00_JPRB,6.0969E+00_JPRB/)
+KBO( :, 1,20,11) = (/&
+&7.8779E-01_JPRB,2.3765E+00_JPRB,3.9264E+00_JPRB,5.3499E+00_JPRB,6.9480E+00_JPRB/)
+KBO( :, 2,20,11) = (/&
+&1.0926E+00_JPRB,2.5148E+00_JPRB,4.0670E+00_JPRB,5.3834E+00_JPRB,6.8553E+00_JPRB/)
+KBO( :, 3,20,11) = (/&
+&1.4487E+00_JPRB,2.6525E+00_JPRB,4.1962E+00_JPRB,5.4179E+00_JPRB,6.7496E+00_JPRB/)
+KBO( :, 4,20,11) = (/&
+&1.8513E+00_JPRB,2.7916E+00_JPRB,4.3148E+00_JPRB,5.4862E+00_JPRB,6.6370E+00_JPRB/)
+KBO( :, 5,20,11) = (/&
+&2.2991E+00_JPRB,2.9510E+00_JPRB,4.4216E+00_JPRB,5.5498E+00_JPRB,6.5228E+00_JPRB/)
+KBO( :, 1,21,11) = (/&
+&7.0932E-01_JPRB,2.5175E+00_JPRB,4.1824E+00_JPRB,5.6525E+00_JPRB,7.2957E+00_JPRB/)
+KBO( :, 2,21,11) = (/&
+&9.7801E-01_JPRB,2.6602E+00_JPRB,4.3300E+00_JPRB,5.6984E+00_JPRB,7.2060E+00_JPRB/)
+KBO( :, 3,21,11) = (/&
+&1.2908E+00_JPRB,2.7977E+00_JPRB,4.4565E+00_JPRB,5.7675E+00_JPRB,7.1115E+00_JPRB/)
+KBO( :, 4,21,11) = (/&
+&1.6486E+00_JPRB,2.9337E+00_JPRB,4.5784E+00_JPRB,5.8514E+00_JPRB,7.0112E+00_JPRB/)
+KBO( :, 5,21,11) = (/&
+&2.0548E+00_JPRB,3.0662E+00_JPRB,4.6884E+00_JPRB,5.9211E+00_JPRB,6.9051E+00_JPRB/)
+KBO( :, 1,22,11) = (/&
+&6.4634E-01_JPRB,2.6427E+00_JPRB,4.4108E+00_JPRB,5.9111E+00_JPRB,7.5603E+00_JPRB/)
+KBO( :, 2,22,11) = (/&
+&8.8382E-01_JPRB,2.7886E+00_JPRB,4.5605E+00_JPRB,5.9821E+00_JPRB,7.4874E+00_JPRB/)
+KBO( :, 3,22,11) = (/&
+&1.1630E+00_JPRB,2.9292E+00_JPRB,4.6954E+00_JPRB,6.0879E+00_JPRB,7.4042E+00_JPRB/)
+KBO( :, 4,22,11) = (/&
+&1.4885E+00_JPRB,3.0664E+00_JPRB,4.8184E+00_JPRB,6.1855E+00_JPRB,7.3136E+00_JPRB/)
+KBO( :, 5,22,11) = (/&
+&1.8588E+00_JPRB,3.1975E+00_JPRB,4.9293E+00_JPRB,6.2618E+00_JPRB,7.2153E+00_JPRB/)
+KBO( :, 1,23,11) = (/&
+&5.8489E-01_JPRB,2.7446E+00_JPRB,4.5940E+00_JPRB,6.1135E+00_JPRB,7.7491E+00_JPRB/)
+KBO( :, 2,23,11) = (/&
+&7.9682E-01_JPRB,2.8912E+00_JPRB,4.7488E+00_JPRB,6.2356E+00_JPRB,7.6928E+00_JPRB/)
+KBO( :, 3,23,11) = (/&
+&1.0504E+00_JPRB,3.0346E+00_JPRB,4.8968E+00_JPRB,6.3608E+00_JPRB,7.6287E+00_JPRB/)
+KBO( :, 4,23,11) = (/&
+&1.3447E+00_JPRB,3.1725E+00_JPRB,5.0242E+00_JPRB,6.4689E+00_JPRB,7.5521E+00_JPRB/)
+KBO( :, 5,23,11) = (/&
+&1.6807E+00_JPRB,3.3048E+00_JPRB,5.1382E+00_JPRB,6.5524E+00_JPRB,7.4632E+00_JPRB/)
+KBO( :, 1,24,11) = (/&
+&5.2989E-01_JPRB,2.8195E+00_JPRB,4.7301E+00_JPRB,6.2761E+00_JPRB,7.8550E+00_JPRB/)
+KBO( :, 2,24,11) = (/&
+&7.2198E-01_JPRB,2.9702E+00_JPRB,4.8974E+00_JPRB,6.4380E+00_JPRB,7.8243E+00_JPRB/)
+KBO( :, 3,24,11) = (/&
+&9.5134E-01_JPRB,3.1164E+00_JPRB,5.0504E+00_JPRB,6.5817E+00_JPRB,7.7816E+00_JPRB/)
+KBO( :, 4,24,11) = (/&
+&1.2196E+00_JPRB,3.2537E+00_JPRB,5.1885E+00_JPRB,6.6940E+00_JPRB,7.7249E+00_JPRB/)
+KBO( :, 5,24,11) = (/&
+&1.5265E+00_JPRB,3.3851E+00_JPRB,5.3089E+00_JPRB,6.7822E+00_JPRB,7.6563E+00_JPRB/)
+KBO( :, 1,25,11) = (/&
+&4.8476E-01_JPRB,2.8697E+00_JPRB,4.8218E+00_JPRB,6.4097E+00_JPRB,7.9026E+00_JPRB/)
+KBO( :, 2,25,11) = (/&
+&6.5969E-01_JPRB,3.0274E+00_JPRB,5.0029E+00_JPRB,6.5890E+00_JPRB,7.8973E+00_JPRB/)
+KBO( :, 3,25,11) = (/&
+&8.6906E-01_JPRB,3.1754E+00_JPRB,5.1656E+00_JPRB,6.7410E+00_JPRB,7.8772E+00_JPRB/)
+KBO( :, 4,25,11) = (/&
+&1.1152E+00_JPRB,3.3120E+00_JPRB,5.3111E+00_JPRB,6.8679E+00_JPRB,7.8462E+00_JPRB/)
+KBO( :, 5,25,11) = (/&
+&1.4024E+00_JPRB,3.4449E+00_JPRB,5.4363E+00_JPRB,6.9674E+00_JPRB,7.7978E+00_JPRB/)
+KBO( :, 1,26,11) = (/&
+&4.4920E-01_JPRB,2.9004E+00_JPRB,4.8834E+00_JPRB,6.5041E+00_JPRB,7.9089E+00_JPRB/)
+KBO( :, 2,26,11) = (/&
+&6.0999E-01_JPRB,3.0628E+00_JPRB,5.0713E+00_JPRB,6.6966E+00_JPRB,7.9304E+00_JPRB/)
+KBO( :, 3,26,11) = (/&
+&8.0376E-01_JPRB,3.2124E+00_JPRB,5.2452E+00_JPRB,6.8629E+00_JPRB,7.9361E+00_JPRB/)
+KBO( :, 4,26,11) = (/&
+&1.0358E+00_JPRB,3.3523E+00_JPRB,5.4003E+00_JPRB,7.0027E+00_JPRB,7.9285E+00_JPRB/)
+KBO( :, 5,26,11) = (/&
+&1.3073E+00_JPRB,3.4838E+00_JPRB,5.5299E+00_JPRB,7.1136E+00_JPRB,7.9075E+00_JPRB/)
+KBO( :, 1,27,11) = (/&
+&4.1952E-01_JPRB,2.9133E+00_JPRB,4.9160E+00_JPRB,6.5693E+00_JPRB,7.8901E+00_JPRB/)
+KBO( :, 2,27,11) = (/&
+&5.6911E-01_JPRB,3.0774E+00_JPRB,5.1132E+00_JPRB,6.7755E+00_JPRB,7.9378E+00_JPRB/)
+KBO( :, 3,27,11) = (/&
+&7.5273E-01_JPRB,3.2297E+00_JPRB,5.2948E+00_JPRB,6.9532E+00_JPRB,7.9707E+00_JPRB/)
+KBO( :, 4,27,11) = (/&
+&9.7351E-01_JPRB,3.3745E+00_JPRB,5.4563E+00_JPRB,7.1054E+00_JPRB,7.9865E+00_JPRB/)
+KBO( :, 5,27,11) = (/&
+&1.2293E+00_JPRB,3.5064E+00_JPRB,5.5938E+00_JPRB,7.2297E+00_JPRB,7.9857E+00_JPRB/)
+KBO( :, 1,28,11) = (/&
+&3.9524E-01_JPRB,2.9112E+00_JPRB,4.9316E+00_JPRB,6.6151E+00_JPRB,7.8478E+00_JPRB/)
+KBO( :, 2,28,11) = (/&
+&5.3765E-01_JPRB,3.0764E+00_JPRB,5.1350E+00_JPRB,6.8313E+00_JPRB,7.9309E+00_JPRB/)
+KBO( :, 3,28,11) = (/&
+&7.1264E-01_JPRB,3.2343E+00_JPRB,5.3248E+00_JPRB,7.0207E+00_JPRB,7.9898E+00_JPRB/)
+KBO( :, 4,28,11) = (/&
+&9.1903E-01_JPRB,3.3816E+00_JPRB,5.4915E+00_JPRB,7.1844E+00_JPRB,8.0261E+00_JPRB/)
+KBO( :, 5,28,11) = (/&
+&1.1585E+00_JPRB,3.5178E+00_JPRB,5.6384E+00_JPRB,7.3251E+00_JPRB,8.0453E+00_JPRB/)
+KBO( :, 1,29,11) = (/&
+&3.7850E-01_JPRB,2.9006E+00_JPRB,4.9391E+00_JPRB,6.6424E+00_JPRB,7.8025E+00_JPRB/)
+KBO( :, 2,29,11) = (/&
+&5.1450E-01_JPRB,3.0673E+00_JPRB,5.1512E+00_JPRB,6.8720E+00_JPRB,7.9130E+00_JPRB/)
+KBO( :, 3,29,11) = (/&
+&6.7825E-01_JPRB,3.2303E+00_JPRB,5.3447E+00_JPRB,7.0744E+00_JPRB,7.9988E+00_JPRB/)
+KBO( :, 4,29,11) = (/&
+&8.7094E-01_JPRB,3.3797E+00_JPRB,5.5169E+00_JPRB,7.2525E+00_JPRB,8.0603E+00_JPRB/)
+KBO( :, 5,29,11) = (/&
+&1.0951E+00_JPRB,3.5266E+00_JPRB,5.6745E+00_JPRB,7.3989E+00_JPRB,8.0964E+00_JPRB/)
+KBO( :, 1,30,11) = (/&
+&3.6524E-01_JPRB,2.8876E+00_JPRB,4.9408E+00_JPRB,6.6613E+00_JPRB,7.7569E+00_JPRB/)
+KBO( :, 2,30,11) = (/&
+&4.9379E-01_JPRB,3.0581E+00_JPRB,5.1612E+00_JPRB,6.9058E+00_JPRB,7.8990E+00_JPRB/)
+KBO( :, 3,30,11) = (/&
+&6.4720E-01_JPRB,3.2216E+00_JPRB,5.3594E+00_JPRB,7.1246E+00_JPRB,8.0078E+00_JPRB/)
+KBO( :, 4,30,11) = (/&
+&8.2776E-01_JPRB,3.3773E+00_JPRB,5.5423E+00_JPRB,7.3074E+00_JPRB,8.0873E+00_JPRB/)
+KBO( :, 5,30,11) = (/&
+&1.0381E+00_JPRB,3.5327E+00_JPRB,5.7037E+00_JPRB,7.4625E+00_JPRB,8.1388E+00_JPRB/)
+KBO( :, 1,31,11) = (/&
+&3.5308E-01_JPRB,2.8782E+00_JPRB,4.9477E+00_JPRB,6.6803E+00_JPRB,7.7265E+00_JPRB/)
+KBO( :, 2,31,11) = (/&
+&4.7488E-01_JPRB,3.0504E+00_JPRB,5.1727E+00_JPRB,6.9441E+00_JPRB,7.8903E+00_JPRB/)
+KBO( :, 3,31,11) = (/&
+&6.2002E-01_JPRB,3.2131E+00_JPRB,5.3800E+00_JPRB,7.1680E+00_JPRB,8.0238E+00_JPRB/)
+KBO( :, 4,31,11) = (/&
+&7.9132E-01_JPRB,3.3767E+00_JPRB,5.5675E+00_JPRB,7.3599E+00_JPRB,8.1232E+00_JPRB/)
+KBO( :, 5,31,11) = (/&
+&9.9103E-01_JPRB,3.5400E+00_JPRB,5.7311E+00_JPRB,7.5249E+00_JPRB,8.1871E+00_JPRB/)
+KBO( :, 1,32,11) = (/&
+&3.4150E-01_JPRB,2.8720E+00_JPRB,4.9582E+00_JPRB,6.7133E+00_JPRB,7.7054E+00_JPRB/)
+KBO( :, 2,32,11) = (/&
+&4.5747E-01_JPRB,3.0437E+00_JPRB,5.1930E+00_JPRB,6.9826E+00_JPRB,7.9024E+00_JPRB/)
+KBO( :, 3,32,11) = (/&
+&5.9670E-01_JPRB,3.2099E+00_JPRB,5.4027E+00_JPRB,7.2169E+00_JPRB,8.0545E+00_JPRB/)
+KBO( :, 4,32,11) = (/&
+&7.6078E-01_JPRB,3.3797E+00_JPRB,5.5915E+00_JPRB,7.4162E+00_JPRB,8.1621E+00_JPRB/)
+KBO( :, 5,32,11) = (/&
+&9.5335E-01_JPRB,3.5468E+00_JPRB,5.7567E+00_JPRB,7.5820E+00_JPRB,8.2482E+00_JPRB/)
+KBO( :, 1,33,11) = (/&
+&3.3112E-01_JPRB,2.8707E+00_JPRB,4.9789E+00_JPRB,6.7544E+00_JPRB,7.7163E+00_JPRB/)
+KBO( :, 2,33,11) = (/&
+&4.4241E-01_JPRB,3.0429E+00_JPRB,5.2166E+00_JPRB,7.0302E+00_JPRB,7.9310E+00_JPRB/)
+KBO( :, 3,33,11) = (/&
+&5.7622E-01_JPRB,3.2140E+00_JPRB,5.4288E+00_JPRB,7.2705E+00_JPRB,8.0890E+00_JPRB/)
+KBO( :, 4,33,11) = (/&
+&7.3587E-01_JPRB,3.3885E+00_JPRB,5.6201E+00_JPRB,7.4720E+00_JPRB,8.2154E+00_JPRB/)
+KBO( :, 5,33,11) = (/&
+&9.2410E-01_JPRB,3.5572E+00_JPRB,5.7855E+00_JPRB,7.6373E+00_JPRB,8.3240E+00_JPRB/)
+KBO( :, 1,34,11) = (/&
+&3.1870E-01_JPRB,2.8673E+00_JPRB,5.0003E+00_JPRB,6.7932E+00_JPRB,7.7350E+00_JPRB/)
+KBO( :, 2,34,11) = (/&
+&4.2545E-01_JPRB,3.0410E+00_JPRB,5.2383E+00_JPRB,7.0757E+00_JPRB,7.9562E+00_JPRB/)
+KBO( :, 3,34,11) = (/&
+&5.5478E-01_JPRB,3.2165E+00_JPRB,5.4526E+00_JPRB,7.3185E+00_JPRB,8.1289E+00_JPRB/)
+KBO( :, 4,34,11) = (/&
+&7.0990E-01_JPRB,3.3947E+00_JPRB,5.6453E+00_JPRB,7.5211E+00_JPRB,8.2807E+00_JPRB/)
+KBO( :, 5,34,11) = (/&
+&8.9548E-01_JPRB,3.5658E+00_JPRB,5.8091E+00_JPRB,7.6845E+00_JPRB,8.3957E+00_JPRB/)
+KBO( :, 1,35,11) = (/&
+&2.9899E-01_JPRB,2.8528E+00_JPRB,5.0022E+00_JPRB,6.8098E+00_JPRB,7.7352E+00_JPRB/)
+KBO( :, 2,35,11) = (/&
+&4.0035E-01_JPRB,3.0296E+00_JPRB,5.2435E+00_JPRB,7.1001E+00_JPRB,7.9730E+00_JPRB/)
+KBO( :, 3,35,11) = (/&
+&5.2425E-01_JPRB,3.2088E+00_JPRB,5.4619E+00_JPRB,7.3466E+00_JPRB,8.1718E+00_JPRB/)
+KBO( :, 4,35,11) = (/&
+&6.7403E-01_JPRB,3.3885E+00_JPRB,5.6558E+00_JPRB,7.5526E+00_JPRB,8.3426E+00_JPRB/)
+KBO( :, 5,35,11) = (/&
+&8.5588E-01_JPRB,3.5636E+00_JPRB,5.8215E+00_JPRB,7.7184E+00_JPRB,8.4695E+00_JPRB/)
+KBO( :, 1,36,11) = (/&
+&2.7267E-01_JPRB,2.8247E+00_JPRB,4.9811E+00_JPRB,6.7967E+00_JPRB,7.7171E+00_JPRB/)
+KBO( :, 2,36,11) = (/&
+&3.6730E-01_JPRB,3.0036E+00_JPRB,5.2282E+00_JPRB,7.0962E+00_JPRB,7.9794E+00_JPRB/)
+KBO( :, 3,36,11) = (/&
+&4.8410E-01_JPRB,3.1863E+00_JPRB,5.4514E+00_JPRB,7.3517E+00_JPRB,8.2066E+00_JPRB/)
+KBO( :, 4,36,11) = (/&
+&6.2745E-01_JPRB,3.3693E+00_JPRB,5.6486E+00_JPRB,7.5634E+00_JPRB,8.3923E+00_JPRB/)
+KBO( :, 5,36,11) = (/&
+&8.0265E-01_JPRB,3.5462E+00_JPRB,5.8174E+00_JPRB,7.7338E+00_JPRB,8.5363E+00_JPRB/)
+KBO( :, 1,37,11) = (/&
+&2.3789E-01_JPRB,2.7731E+00_JPRB,4.9241E+00_JPRB,6.7346E+00_JPRB,7.6594E+00_JPRB/)
+KBO( :, 2,37,11) = (/&
+&3.2371E-01_JPRB,2.9546E+00_JPRB,5.1797E+00_JPRB,7.0518E+00_JPRB,7.9502E+00_JPRB/)
+KBO( :, 3,37,11) = (/&
+&4.3093E-01_JPRB,3.1396E+00_JPRB,5.4103E+00_JPRB,7.3206E+00_JPRB,8.2067E+00_JPRB/)
+KBO( :, 4,37,11) = (/&
+&5.6432E-01_JPRB,3.3261E+00_JPRB,5.6154E+00_JPRB,7.5430E+00_JPRB,8.4107E+00_JPRB/)
+KBO( :, 5,37,11) = (/&
+&7.2921E-01_JPRB,3.5055E+00_JPRB,5.7906E+00_JPRB,7.7231E+00_JPRB,8.5767E+00_JPRB/)
+KBO( :, 1,38,11) = (/&
+&2.0735E-01_JPRB,2.7246E+00_JPRB,4.8643E+00_JPRB,6.6686E+00_JPRB,7.6002E+00_JPRB/)
+KBO( :, 2,38,11) = (/&
+&2.8530E-01_JPRB,2.9075E+00_JPRB,5.1303E+00_JPRB,7.0023E+00_JPRB,7.9233E+00_JPRB/)
+KBO( :, 3,38,11) = (/&
+&3.8349E-01_JPRB,3.0952E+00_JPRB,5.3688E+00_JPRB,7.2838E+00_JPRB,8.2079E+00_JPRB/)
+KBO( :, 4,38,11) = (/&
+&5.0781E-01_JPRB,3.2834E+00_JPRB,5.5805E+00_JPRB,7.5172E+00_JPRB,8.4321E+00_JPRB/)
+KBO( :, 5,38,11) = (/&
+&6.6307E-01_JPRB,3.4663E+00_JPRB,5.7630E+00_JPRB,7.7072E+00_JPRB,8.6191E+00_JPRB/)
+KBO( :, 1,39,11) = (/&
+&1.8082E-01_JPRB,2.6797E+00_JPRB,4.8064E+00_JPRB,6.6001E+00_JPRB,7.5476E+00_JPRB/)
+KBO( :, 2,39,11) = (/&
+&2.5186E-01_JPRB,2.8651E+00_JPRB,5.0819E+00_JPRB,6.9495E+00_JPRB,7.9070E+00_JPRB/)
+KBO( :, 3,39,11) = (/&
+&3.4240E-01_JPRB,3.0532E+00_JPRB,5.3282E+00_JPRB,7.2446E+00_JPRB,8.2139E+00_JPRB/)
+KBO( :, 4,39,11) = (/&
+&4.5842E-01_JPRB,3.2439E+00_JPRB,5.5467E+00_JPRB,7.4896E+00_JPRB,8.4602E+00_JPRB/)
+KBO( :, 5,39,11) = (/&
+&6.0509E-01_JPRB,3.4298E+00_JPRB,5.7341E+00_JPRB,7.6881E+00_JPRB,8.6682E+00_JPRB/)
+KBO( :, 1,40,11) = (/&
+&1.5207E-01_JPRB,2.6179E+00_JPRB,4.7176E+00_JPRB,6.4886E+00_JPRB,7.4449E+00_JPRB/)
+KBO( :, 2,40,11) = (/&
+&2.1512E-01_JPRB,2.8059E+00_JPRB,5.0086E+00_JPRB,6.8609E+00_JPRB,7.8328E+00_JPRB/)
+KBO( :, 3,40,11) = (/&
+&2.9689E-01_JPRB,2.9943E+00_JPRB,5.2638E+00_JPRB,7.1743E+00_JPRB,8.1664E+00_JPRB/)
+KBO( :, 4,40,11) = (/&
+&4.0254E-01_JPRB,3.1876E+00_JPRB,5.4913E+00_JPRB,7.4357E+00_JPRB,8.4349E+00_JPRB/)
+KBO( :, 5,40,11) = (/&
+&5.3785E-01_JPRB,3.3763E+00_JPRB,5.6880E+00_JPRB,7.6474E+00_JPRB,8.6627E+00_JPRB/)
+KBO( :, 1,41,11) = (/&
+&1.2695E-01_JPRB,2.5542E+00_JPRB,4.6228E+00_JPRB,6.3672E+00_JPRB,7.3294E+00_JPRB/)
+KBO( :, 2,41,11) = (/&
+&1.8252E-01_JPRB,2.7470E+00_JPRB,4.9288E+00_JPRB,6.7628E+00_JPRB,7.7447E+00_JPRB/)
+KBO( :, 3,41,11) = (/&
+&2.5614E-01_JPRB,2.9363E+00_JPRB,5.1938E+00_JPRB,7.0965E+00_JPRB,8.1064E+00_JPRB/)
+KBO( :, 4,41,11) = (/&
+&3.5214E-01_JPRB,3.1287E+00_JPRB,5.4316E+00_JPRB,7.3741E+00_JPRB,8.3985E+00_JPRB/)
+KBO( :, 5,41,11) = (/&
+&4.7642E-01_JPRB,3.3197E+00_JPRB,5.6390E+00_JPRB,7.5995E+00_JPRB,8.6452E+00_JPRB/)
+KBO( :, 1,42,11) = (/&
+&1.0572E-01_JPRB,2.4914E+00_JPRB,4.5264E+00_JPRB,6.2425E+00_JPRB,7.2103E+00_JPRB/)
+KBO( :, 2,42,11) = (/&
+&1.5450E-01_JPRB,2.6890E+00_JPRB,4.8460E+00_JPRB,6.6593E+00_JPRB,7.6506E+00_JPRB/)
+KBO( :, 3,42,11) = (/&
+&2.2046E-01_JPRB,2.8775E+00_JPRB,5.1228E+00_JPRB,7.0129E+00_JPRB,8.0405E+00_JPRB/)
+KBO( :, 4,42,11) = (/&
+&3.0794E-01_JPRB,3.0704E+00_JPRB,5.3705E+00_JPRB,7.3070E+00_JPRB,8.3576E+00_JPRB/)
+KBO( :, 5,42,11) = (/&
+&4.2243E-01_JPRB,3.2655E+00_JPRB,5.5859E+00_JPRB,7.5484E+00_JPRB,8.6234E+00_JPRB/)
+KBO( :, 1,43,11) = (/&
+&8.5799E-02_JPRB,2.4158E+00_JPRB,4.4064E+00_JPRB,6.0854E+00_JPRB,7.0535E+00_JPRB/)
+KBO( :, 2,43,11) = (/&
+&1.2776E-01_JPRB,2.6198E+00_JPRB,4.7439E+00_JPRB,6.5289E+00_JPRB,7.5260E+00_JPRB/)
+KBO( :, 3,43,11) = (/&
+&1.8555E-01_JPRB,2.8110E+00_JPRB,5.0358E+00_JPRB,6.9052E+00_JPRB,7.9459E+00_JPRB/)
+KBO( :, 4,43,11) = (/&
+&2.6399E-01_JPRB,3.0044E+00_JPRB,5.2930E+00_JPRB,7.2200E+00_JPRB,8.2902E+00_JPRB/)
+KBO( :, 5,43,11) = (/&
+&3.6761E-01_JPRB,3.2003E+00_JPRB,5.5191E+00_JPRB,7.4799E+00_JPRB,8.5786E+00_JPRB/)
+KBO( :, 1,44,11) = (/&
+&6.8535E-02_JPRB,2.3354E+00_JPRB,4.2721E+00_JPRB,5.9087E+00_JPRB,6.8762E+00_JPRB/)
+KBO( :, 2,44,11) = (/&
+&1.0421E-01_JPRB,2.5468E+00_JPRB,4.6283E+00_JPRB,6.3792E+00_JPRB,7.3815E+00_JPRB/)
+KBO( :, 3,44,11) = (/&
+&1.5420E-01_JPRB,2.7418E+00_JPRB,4.9358E+00_JPRB,6.7810E+00_JPRB,7.8336E+00_JPRB/)
+KBO( :, 4,44,11) = (/&
+&2.2347E-01_JPRB,2.9335E+00_JPRB,5.2044E+00_JPRB,7.1195E+00_JPRB,8.2083E+00_JPRB/)
+KBO( :, 5,44,11) = (/&
+&3.1682E-01_JPRB,3.1294E+00_JPRB,5.4461E+00_JPRB,7.3981E+00_JPRB,8.5217E+00_JPRB/)
+KBO( :, 1,45,11) = (/&
+&5.4457E-02_JPRB,2.2535E+00_JPRB,4.1320E+00_JPRB,5.7238E+00_JPRB,6.6894E+00_JPRB/)
+KBO( :, 2,45,11) = (/&
+&8.4549E-02_JPRB,2.4711E+00_JPRB,4.5065E+00_JPRB,6.2198E+00_JPRB,7.2293E+00_JPRB/)
+KBO( :, 3,45,11) = (/&
+&1.2761E-01_JPRB,2.6717E+00_JPRB,4.8324E+00_JPRB,6.6492E+00_JPRB,7.7146E+00_JPRB/)
+KBO( :, 4,45,11) = (/&
+&1.8837E-01_JPRB,2.8633E+00_JPRB,5.1155E+00_JPRB,7.0100E+00_JPRB,8.1205E+00_JPRB/)
+KBO( :, 5,45,11) = (/&
+&2.7227E-01_JPRB,3.0592E+00_JPRB,5.3653E+00_JPRB,7.3089E+00_JPRB,8.4600E+00_JPRB/)
+KBO( :, 1,46,11) = (/&
+&4.2589E-02_JPRB,2.1649E+00_JPRB,3.9784E+00_JPRB,5.5163E+00_JPRB,6.4796E+00_JPRB/)
+KBO( :, 2,46,11) = (/&
+&6.7560E-02_JPRB,2.3893E+00_JPRB,4.3722E+00_JPRB,6.0430E+00_JPRB,7.0551E+00_JPRB/)
+KBO( :, 3,46,11) = (/&
+&1.0417E-01_JPRB,2.5968E+00_JPRB,4.7173E+00_JPRB,6.4988E+00_JPRB,7.5749E+00_JPRB/)
+KBO( :, 4,46,11) = (/&
+&1.5686E-01_JPRB,2.7912E+00_JPRB,5.0150E+00_JPRB,6.8844E+00_JPRB,8.0167E+00_JPRB/)
+KBO( :, 5,46,11) = (/&
+&2.3102E-01_JPRB,2.9860E+00_JPRB,5.2763E+00_JPRB,7.2084E+00_JPRB,8.3844E+00_JPRB/)
+KBO( :, 1,47,11) = (/&
+&3.2329E-02_JPRB,2.0635E+00_JPRB,3.7990E+00_JPRB,5.2746E+00_JPRB,6.2270E+00_JPRB/)
+KBO( :, 2,47,11) = (/&
+&5.2621E-02_JPRB,2.2974E+00_JPRB,4.2140E+00_JPRB,5.8338E+00_JPRB,6.8413E+00_JPRB/)
+KBO( :, 3,47,11) = (/&
+&8.2966E-02_JPRB,2.5124E+00_JPRB,4.5790E+00_JPRB,6.3183E+00_JPRB,7.3957E+00_JPRB/)
+KBO( :, 4,47,11) = (/&
+&1.2765E-01_JPRB,2.7111E+00_JPRB,4.8962E+00_JPRB,6.7355E+00_JPRB,7.8773E+00_JPRB/)
+KBO( :, 5,47,11) = (/&
+&1.9183E-01_JPRB,2.9039E+00_JPRB,5.1733E+00_JPRB,7.0849E+00_JPRB,8.2769E+00_JPRB/)
+KBO( :, 1,48,11) = (/&
+&2.4260E-02_JPRB,1.9590E+00_JPRB,3.6114E+00_JPRB,5.0219E+00_JPRB,5.9614E+00_JPRB/)
+KBO( :, 2,48,11) = (/&
+&4.0661E-02_JPRB,2.2016E+00_JPRB,4.0471E+00_JPRB,5.6109E+00_JPRB,6.6162E+00_JPRB/)
+KBO( :, 3,48,11) = (/&
+&6.5567E-02_JPRB,2.4242E+00_JPRB,4.4350E+00_JPRB,6.1272E+00_JPRB,7.2066E+00_JPRB/)
+KBO( :, 4,48,11) = (/&
+&1.0316E-01_JPRB,2.6297E+00_JPRB,4.7726E+00_JPRB,6.5740E+00_JPRB,7.7277E+00_JPRB/)
+KBO( :, 5,48,11) = (/&
+&1.5827E-01_JPRB,2.8235E+00_JPRB,5.0650E+00_JPRB,6.9498E+00_JPRB,8.1636E+00_JPRB/)
+KBO( :, 1,49,11) = (/&
+&1.7994E-02_JPRB,1.8499E+00_JPRB,3.4182E+00_JPRB,4.7557E+00_JPRB,5.6860E+00_JPRB/)
+KBO( :, 2,49,11) = (/&
+&3.1088E-02_JPRB,2.1039E+00_JPRB,3.8735E+00_JPRB,5.3754E+00_JPRB,6.3833E+00_JPRB/)
+KBO( :, 3,49,11) = (/&
+&5.1455E-02_JPRB,2.3348E+00_JPRB,4.2824E+00_JPRB,5.9252E+00_JPRB,7.0121E+00_JPRB/)
+KBO( :, 4,49,11) = (/&
+&8.2689E-02_JPRB,2.5471E+00_JPRB,4.6395E+00_JPRB,6.4001E+00_JPRB,7.5720E+00_JPRB/)
+KBO( :, 5,49,11) = (/&
+&1.2977E-01_JPRB,2.7449E+00_JPRB,4.9494E+00_JPRB,6.8054E+00_JPRB,8.0481E+00_JPRB/)
+KBO( :, 1,50,11) = (/&
+&1.3371E-02_JPRB,1.7459E+00_JPRB,3.2314E+00_JPRB,4.4954E+00_JPRB,5.4078E+00_JPRB/)
+KBO( :, 2,50,11) = (/&
+&2.3833E-02_JPRB,2.0084E+00_JPRB,3.7026E+00_JPRB,5.1456E+00_JPRB,6.1414E+00_JPRB/)
+KBO( :, 3,50,11) = (/&
+&4.0559E-02_JPRB,2.2474E+00_JPRB,4.1296E+00_JPRB,5.7236E+00_JPRB,6.8056E+00_JPRB/)
+KBO( :, 4,50,11) = (/&
+&6.6648E-02_JPRB,2.4671E+00_JPRB,4.5076E+00_JPRB,6.2258E+00_JPRB,7.4018E+00_JPRB/)
+KBO( :, 5,50,11) = (/&
+&1.0683E-01_JPRB,2.6694E+00_JPRB,4.8363E+00_JPRB,6.6602E+00_JPRB,7.9136E+00_JPRB/)
+KBO( :, 1,51,11) = (/&
+&9.8653E-03_JPRB,1.6429E+00_JPRB,3.0451E+00_JPRB,4.2358E+00_JPRB,5.1231E+00_JPRB/)
+KBO( :, 2,51,11) = (/&
+&1.8201E-02_JPRB,1.9124E+00_JPRB,3.5299E+00_JPRB,4.9113E+00_JPRB,5.8903E+00_JPRB/)
+KBO( :, 3,51,11) = (/&
+&3.1898E-02_JPRB,2.1605E+00_JPRB,3.9764E+00_JPRB,5.5162E+00_JPRB,6.5869E+00_JPRB/)
+KBO( :, 4,51,11) = (/&
+&5.3712E-02_JPRB,2.3869E+00_JPRB,4.3743E+00_JPRB,6.0489E+00_JPRB,7.2173E+00_JPRB/)
+KBO( :, 5,51,11) = (/&
+&8.7772E-02_JPRB,2.5955E+00_JPRB,4.7209E+00_JPRB,6.5087E+00_JPRB,7.7625E+00_JPRB/)
+KBO( :, 1,52,11) = (/&
+&7.1653E-03_JPRB,1.5381E+00_JPRB,2.8544E+00_JPRB,3.9674E+00_JPRB,4.8308E+00_JPRB/)
+KBO( :, 2,52,11) = (/&
+&1.3765E-02_JPRB,1.8137E+00_JPRB,3.3544E+00_JPRB,4.6675E+00_JPRB,5.6327E+00_JPRB/)
+KBO( :, 3,52,11) = (/&
+&2.4855E-02_JPRB,2.0712E+00_JPRB,3.8173E+00_JPRB,5.3003E+00_JPRB,6.3625E+00_JPRB/)
+KBO( :, 4,52,11) = (/&
+&4.3007E-02_JPRB,2.3053E+00_JPRB,4.2329E+00_JPRB,5.8617E+00_JPRB,7.0261E+00_JPRB/)
+KBO( :, 5,52,11) = (/&
+&7.1746E-02_JPRB,2.5209E+00_JPRB,4.5976E+00_JPRB,6.3464E+00_JPRB,7.6074E+00_JPRB/)
+KBO( :, 1,53,11) = (/&
+&5.1115E-03_JPRB,1.4319E+00_JPRB,2.6598E+00_JPRB,3.6923E+00_JPRB,4.5327E+00_JPRB/)
+KBO( :, 2,53,11) = (/&
+&1.0264E-02_JPRB,1.7132E+00_JPRB,3.1732E+00_JPRB,4.4138E+00_JPRB,5.3644E+00_JPRB/)
+KBO( :, 3,53,11) = (/&
+&1.9168E-02_JPRB,1.9787E+00_JPRB,3.6497E+00_JPRB,5.0750E+00_JPRB,6.1311E+00_JPRB/)
+KBO( :, 4,53,11) = (/&
+&3.4142E-02_JPRB,2.2206E+00_JPRB,4.0841E+00_JPRB,5.6629E+00_JPRB,6.8305E+00_JPRB/)
+KBO( :, 5,53,11) = (/&
+&5.8320E-02_JPRB,2.4429E+00_JPRB,4.4694E+00_JPRB,6.1755E+00_JPRB,7.4521E+00_JPRB/)
+KBO( :, 1,54,11) = (/&
+&3.6599E-03_JPRB,1.3331E+00_JPRB,2.4769E+00_JPRB,3.4372E+00_JPRB,4.2368E+00_JPRB/)
+KBO( :, 2,54,11) = (/&
+&7.6954E-03_JPRB,1.6189E+00_JPRB,3.0020E+00_JPRB,4.1755E+00_JPRB,5.0910E+00_JPRB/)
+KBO( :, 3,54,11) = (/&
+&1.4927E-02_JPRB,1.8903E+00_JPRB,3.4914E+00_JPRB,4.8585E+00_JPRB,5.8811E+00_JPRB/)
+KBO( :, 4,54,11) = (/&
+&2.7354E-02_JPRB,2.1411E+00_JPRB,3.9432E+00_JPRB,5.4718E+00_JPRB,6.6071E+00_JPRB/)
+KBO( :, 5,54,11) = (/&
+&4.7880E-02_JPRB,2.3694E+00_JPRB,4.3455E+00_JPRB,6.0119E+00_JPRB,7.2530E+00_JPRB/)
+KBO( :, 1,55,11) = (/&
+&2.6041E-03_JPRB,1.2377E+00_JPRB,2.2999E+00_JPRB,3.1900E+00_JPRB,3.9377E+00_JPRB/)
+KBO( :, 2,55,11) = (/&
+&5.7429E-03_JPRB,1.5271E+00_JPRB,2.8349E+00_JPRB,3.9397E+00_JPRB,4.8084E+00_JPRB/)
+KBO( :, 3,55,11) = (/&
+&1.1607E-02_JPRB,1.8036E+00_JPRB,3.3372E+00_JPRB,4.6433E+00_JPRB,5.6183E+00_JPRB/)
+KBO( :, 4,55,11) = (/&
+&2.1919E-02_JPRB,2.0624E+00_JPRB,3.8024E+00_JPRB,5.2808E+00_JPRB,6.3606E+00_JPRB/)
+KBO( :, 5,55,11) = (/&
+&3.9357E-02_JPRB,2.2976E+00_JPRB,4.2205E+00_JPRB,5.8462E+00_JPRB,7.0320E+00_JPRB/)
+KBO( :, 1,56,11) = (/&
+&1.8212E-03_JPRB,1.1423E+00_JPRB,2.1234E+00_JPRB,2.9415E+00_JPRB,3.6402E+00_JPRB/)
+KBO( :, 2,56,11) = (/&
+&4.2220E-03_JPRB,1.4344E+00_JPRB,2.6648E+00_JPRB,3.6993E+00_JPRB,4.5216E+00_JPRB/)
+KBO( :, 3,56,11) = (/&
+&8.9199E-03_JPRB,1.7161E+00_JPRB,3.1791E+00_JPRB,4.4224E+00_JPRB,5.3514E+00_JPRB/)
+KBO( :, 4,56,11) = (/&
+&1.7443E-02_JPRB,1.9818E+00_JPRB,3.6561E+00_JPRB,5.0841E+00_JPRB,6.1109E+00_JPRB/)
+KBO( :, 5,56,11) = (/&
+&3.2146E-02_JPRB,2.2236E+00_JPRB,4.0904E+00_JPRB,5.6718E+00_JPRB,6.8038E+00_JPRB/)
+KBO( :, 1,57,11) = (/&
+&1.2487E-03_JPRB,1.0475E+00_JPRB,1.9452E+00_JPRB,2.6920E+00_JPRB,3.3454E+00_JPRB/)
+KBO( :, 2,57,11) = (/&
+&3.0556E-03_JPRB,1.3407E+00_JPRB,2.4912E+00_JPRB,3.4567E+00_JPRB,4.2318E+00_JPRB/)
+KBO( :, 3,57,11) = (/&
+&6.7633E-03_JPRB,1.6266E+00_JPRB,3.0165E+00_JPRB,4.1956E+00_JPRB,5.0790E+00_JPRB/)
+KBO( :, 4,57,11) = (/&
+&1.3762E-02_JPRB,1.8981E+00_JPRB,3.5056E+00_JPRB,4.8781E+00_JPRB,5.8578E+00_JPRB/)
+KBO( :, 5,57,11) = (/&
+&2.6062E-02_JPRB,2.1481E+00_JPRB,3.9566E+00_JPRB,5.4903E+00_JPRB,6.5663E+00_JPRB/)
+KBO( :, 1,58,11) = (/&
+&8.5190E-04_JPRB,9.5769E-01_JPRB,1.7770E+00_JPRB,2.4580E+00_JPRB,3.0673E+00_JPRB/)
+KBO( :, 2,58,11) = (/&
+&2.2048E-03_JPRB,1.2510E+00_JPRB,2.3247E+00_JPRB,3.2249E+00_JPRB,3.9528E+00_JPRB/)
+KBO( :, 3,58,11) = (/&
+&5.1227E-03_JPRB,1.5404E+00_JPRB,2.8593E+00_JPRB,3.9742E+00_JPRB,4.8120E+00_JPRB/)
+KBO( :, 4,58,11) = (/&
+&1.0857E-02_JPRB,1.8165E+00_JPRB,3.3607E+00_JPRB,4.6761E+00_JPRB,5.6102E+00_JPRB/)
+KBO( :, 5,58,11) = (/&
+&2.1207E-02_JPRB,2.0743E+00_JPRB,3.8247E+00_JPRB,5.3111E+00_JPRB,6.3315E+00_JPRB/)
+KBO( :, 1,59,11) = (/&
+&6.9156E-04_JPRB,9.2148E-01_JPRB,1.7091E+00_JPRB,2.3639E+00_JPRB,2.9470E+00_JPRB/)
+KBO( :, 2,59,11) = (/&
+&1.8554E-03_JPRB,1.2146E+00_JPRB,2.2573E+00_JPRB,3.1301E+00_JPRB,3.8229E+00_JPRB/)
+KBO( :, 3,59,11) = (/&
+&4.4546E-03_JPRB,1.5052E+00_JPRB,2.7951E+00_JPRB,3.8834E+00_JPRB,4.6728E+00_JPRB/)
+KBO( :, 4,59,11) = (/&
+&9.7022E-03_JPRB,1.7833E+00_JPRB,3.3009E+00_JPRB,4.5928E+00_JPRB,5.4696E+00_JPRB/)
+KBO( :, 5,59,11) = (/&
+&1.9310E-02_JPRB,2.0440E+00_JPRB,3.7699E+00_JPRB,5.2372E+00_JPRB,6.1828E+00_JPRB/)
+KBO( :, 1,13,12) = (/&
+&1.6565E+00_JPRB,1.7848E+00_JPRB,2.5700E+00_JPRB,3.5717E+00_JPRB,4.5988E+00_JPRB/)
+KBO( :, 2,13,12) = (/&
+&2.4215E+00_JPRB,2.1271E+00_JPRB,2.6999E+00_JPRB,3.5485E+00_JPRB,4.4641E+00_JPRB/)
+KBO( :, 3,13,12) = (/&
+&3.3369E+00_JPRB,2.6815E+00_JPRB,2.9576E+00_JPRB,3.5009E+00_JPRB,4.3216E+00_JPRB/)
+KBO( :, 4,13,12) = (/&
+&4.4039E+00_JPRB,3.4401E+00_JPRB,3.2679E+00_JPRB,3.4869E+00_JPRB,4.1798E+00_JPRB/)
+KBO( :, 5,13,12) = (/&
+&5.5941E+00_JPRB,4.3251E+00_JPRB,3.6079E+00_JPRB,3.5523E+00_JPRB,4.0718E+00_JPRB/)
+KBO( :, 1,14,12) = (/&
+&1.7762E+00_JPRB,1.9421E+00_JPRB,2.7864E+00_JPRB,3.8795E+00_JPRB,4.9959E+00_JPRB/)
+KBO( :, 2,14,12) = (/&
+&2.5729E+00_JPRB,2.3289E+00_JPRB,2.9407E+00_JPRB,3.8344E+00_JPRB,4.8460E+00_JPRB/)
+KBO( :, 3,14,12) = (/&
+&3.5256E+00_JPRB,2.8532E+00_JPRB,3.1735E+00_JPRB,3.7815E+00_JPRB,4.6937E+00_JPRB/)
+KBO( :, 4,14,12) = (/&
+&4.6225E+00_JPRB,3.6062E+00_JPRB,3.4878E+00_JPRB,3.7727E+00_JPRB,4.5592E+00_JPRB/)
+KBO( :, 5,14,12) = (/&
+&5.8383E+00_JPRB,4.5040E+00_JPRB,3.8887E+00_JPRB,3.8650E+00_JPRB,4.4445E+00_JPRB/)
+KBO( :, 1,15,12) = (/&
+&1.8721E+00_JPRB,2.1191E+00_JPRB,3.0241E+00_JPRB,4.2075E+00_JPRB,5.4430E+00_JPRB/)
+KBO( :, 2,15,12) = (/&
+&2.6862E+00_JPRB,2.5250E+00_JPRB,3.1995E+00_JPRB,4.1499E+00_JPRB,5.2993E+00_JPRB/)
+KBO( :, 3,15,12) = (/&
+&3.6549E+00_JPRB,3.0295E+00_JPRB,3.4400E+00_JPRB,4.1044E+00_JPRB,5.1665E+00_JPRB/)
+KBO( :, 4,15,12) = (/&
+&4.7570E+00_JPRB,3.7259E+00_JPRB,3.7691E+00_JPRB,4.1180E+00_JPRB,5.0472E+00_JPRB/)
+KBO( :, 5,15,12) = (/&
+&5.9648E+00_JPRB,4.5949E+00_JPRB,4.1611E+00_JPRB,4.2079E+00_JPRB,4.9426E+00_JPRB/)
+KBO( :, 1,16,12) = (/&
+&1.9290E+00_JPRB,2.3038E+00_JPRB,3.3146E+00_JPRB,4.6435E+00_JPRB,6.0407E+00_JPRB/)
+KBO( :, 2,16,12) = (/&
+&2.7431E+00_JPRB,2.7084E+00_JPRB,3.4673E+00_JPRB,4.5698E+00_JPRB,5.8966E+00_JPRB/)
+KBO( :, 3,16,12) = (/&
+&3.6970E+00_JPRB,3.2040E+00_JPRB,3.7345E+00_JPRB,4.5214E+00_JPRB,5.7687E+00_JPRB/)
+KBO( :, 4,16,12) = (/&
+&4.7715E+00_JPRB,3.8272E+00_JPRB,4.0666E+00_JPRB,4.5545E+00_JPRB,5.6476E+00_JPRB/)
+KBO( :, 5,16,12) = (/&
+&5.9496E+00_JPRB,4.6127E+00_JPRB,4.4402E+00_JPRB,4.6207E+00_JPRB,5.5338E+00_JPRB/)
+KBO( :, 1,17,12) = (/&
+&1.9373E+00_JPRB,2.4828E+00_JPRB,3.6697E+00_JPRB,5.1796E+00_JPRB,6.7612E+00_JPRB/)
+KBO( :, 2,17,12) = (/&
+&2.7255E+00_JPRB,2.8755E+00_JPRB,3.8159E+00_JPRB,5.1042E+00_JPRB,6.6167E+00_JPRB/)
+KBO( :, 3,17,12) = (/&
+&3.6395E+00_JPRB,3.3552E+00_JPRB,4.0591E+00_JPRB,5.0640E+00_JPRB,6.4791E+00_JPRB/)
+KBO( :, 4,17,12) = (/&
+&4.6714E+00_JPRB,3.9092E+00_JPRB,4.3629E+00_JPRB,5.0919E+00_JPRB,6.3471E+00_JPRB/)
+KBO( :, 5,17,12) = (/&
+&5.8138E+00_JPRB,4.6040E+00_JPRB,4.7123E+00_JPRB,5.1320E+00_JPRB,6.2136E+00_JPRB/)
+KBO( :, 1,18,12) = (/&
+&1.8923E+00_JPRB,2.6601E+00_JPRB,4.0950E+00_JPRB,5.7689E+00_JPRB,7.5292E+00_JPRB/)
+KBO( :, 2,18,12) = (/&
+&2.6358E+00_JPRB,3.0291E+00_JPRB,4.2495E+00_JPRB,5.7045E+00_JPRB,7.3896E+00_JPRB/)
+KBO( :, 3,18,12) = (/&
+&3.5005E+00_JPRB,3.4699E+00_JPRB,4.4508E+00_JPRB,5.6824E+00_JPRB,7.2449E+00_JPRB/)
+KBO( :, 4,18,12) = (/&
+&4.4831E+00_JPRB,3.9859E+00_JPRB,4.6968E+00_JPRB,5.6976E+00_JPRB,7.0972E+00_JPRB/)
+KBO( :, 5,18,12) = (/&
+&5.5803E+00_JPRB,4.6005E+00_JPRB,4.9912E+00_JPRB,5.7191E+00_JPRB,6.9473E+00_JPRB/)
+KBO( :, 1,19,12) = (/&
+&1.8026E+00_JPRB,2.8675E+00_JPRB,4.5643E+00_JPRB,6.3966E+00_JPRB,8.3446E+00_JPRB/)
+KBO( :, 2,19,12) = (/&
+&2.4955E+00_JPRB,3.1750E+00_JPRB,4.7346E+00_JPRB,6.3280E+00_JPRB,8.1858E+00_JPRB/)
+KBO( :, 3,19,12) = (/&
+&3.3065E+00_JPRB,3.5656E+00_JPRB,4.9096E+00_JPRB,6.3278E+00_JPRB,8.0274E+00_JPRB/)
+KBO( :, 4,19,12) = (/&
+&4.2336E+00_JPRB,4.0373E+00_JPRB,5.1018E+00_JPRB,6.3400E+00_JPRB,7.8734E+00_JPRB/)
+KBO( :, 5,19,12) = (/&
+&5.2638E+00_JPRB,4.5965E+00_JPRB,5.3281E+00_JPRB,6.3749E+00_JPRB,7.7186E+00_JPRB/)
+KBO( :, 1,20,12) = (/&
+&1.6924E+00_JPRB,3.1159E+00_JPRB,5.0615E+00_JPRB,7.0193E+00_JPRB,9.1509E+00_JPRB/)
+KBO( :, 2,20,12) = (/&
+&2.3342E+00_JPRB,3.3609E+00_JPRB,5.2475E+00_JPRB,6.9651E+00_JPRB,8.9802E+00_JPRB/)
+KBO( :, 3,20,12) = (/&
+&3.0883E+00_JPRB,3.6808E+00_JPRB,5.4216E+00_JPRB,6.9801E+00_JPRB,8.8129E+00_JPRB/)
+KBO( :, 4,20,12) = (/&
+&3.9463E+00_JPRB,4.0848E+00_JPRB,5.5777E+00_JPRB,7.0012E+00_JPRB,8.6463E+00_JPRB/)
+KBO( :, 5,20,12) = (/&
+&4.8961E+00_JPRB,4.5736E+00_JPRB,5.7512E+00_JPRB,7.0663E+00_JPRB,8.4743E+00_JPRB/)
+KBO( :, 1,21,12) = (/&
+&1.5690E+00_JPRB,3.3918E+00_JPRB,5.5679E+00_JPRB,7.6325E+00_JPRB,9.9359E+00_JPRB/)
+KBO( :, 2,21,12) = (/&
+&2.1586E+00_JPRB,3.5959E+00_JPRB,5.7632E+00_JPRB,7.6131E+00_JPRB,9.7631E+00_JPRB/)
+KBO( :, 3,21,12) = (/&
+&2.8476E+00_JPRB,3.8439E+00_JPRB,5.9415E+00_JPRB,7.6317E+00_JPRB,9.5829E+00_JPRB/)
+KBO( :, 4,21,12) = (/&
+&3.6276E+00_JPRB,4.1634E+00_JPRB,6.0894E+00_JPRB,7.6838E+00_JPRB,9.4023E+00_JPRB/)
+KBO( :, 5,21,12) = (/&
+&4.4917E+00_JPRB,4.5642E+00_JPRB,6.2271E+00_JPRB,7.7630E+00_JPRB,9.2137E+00_JPRB/)
+KBO( :, 1,22,12) = (/&
+&1.4699E+00_JPRB,3.6838E+00_JPRB,6.0744E+00_JPRB,8.2202E+00_JPRB,1.0664E+01_JPRB/)
+KBO( :, 2,22,12) = (/&
+&2.0081E+00_JPRB,3.8770E+00_JPRB,6.2779E+00_JPRB,8.2401E+00_JPRB,1.0485E+01_JPRB/)
+KBO( :, 3,22,12) = (/&
+&2.6322E+00_JPRB,4.0768E+00_JPRB,6.4526E+00_JPRB,8.2804E+00_JPRB,1.0306E+01_JPRB/)
+KBO( :, 4,22,12) = (/&
+&3.3385E+00_JPRB,4.3174E+00_JPRB,6.6003E+00_JPRB,8.3666E+00_JPRB,1.0115E+01_JPRB/)
+KBO( :, 5,22,12) = (/&
+&4.1224E+00_JPRB,4.6294E+00_JPRB,6.7220E+00_JPRB,8.4420E+00_JPRB,9.9167E+00_JPRB/)
+KBO( :, 1,23,12) = (/&
+&1.3635E+00_JPRB,3.9535E+00_JPRB,6.5578E+00_JPRB,8.7891E+00_JPRB,1.1317E+01_JPRB/)
+KBO( :, 2,23,12) = (/&
+&1.8479E+00_JPRB,4.1472E+00_JPRB,6.7653E+00_JPRB,8.8306E+00_JPRB,1.1151E+01_JPRB/)
+KBO( :, 3,23,12) = (/&
+&2.4090E+00_JPRB,4.3291E+00_JPRB,6.9299E+00_JPRB,8.9124E+00_JPRB,1.0971E+01_JPRB/)
+KBO( :, 4,23,12) = (/&
+&3.0476E+00_JPRB,4.5186E+00_JPRB,7.0757E+00_JPRB,9.0158E+00_JPRB,1.0781E+01_JPRB/)
+KBO( :, 5,23,12) = (/&
+&3.7677E+00_JPRB,4.7466E+00_JPRB,7.1916E+00_JPRB,9.0858E+00_JPRB,1.0580E+01_JPRB/)
+KBO( :, 1,24,12) = (/&
+&1.2524E+00_JPRB,4.1964E+00_JPRB,7.0027E+00_JPRB,9.3088E+00_JPRB,1.1891E+01_JPRB/)
+KBO( :, 2,24,12) = (/&
+&1.6860E+00_JPRB,4.3866E+00_JPRB,7.2061E+00_JPRB,9.3894E+00_JPRB,1.1740E+01_JPRB/)
+KBO( :, 3,24,12) = (/&
+&2.1916E+00_JPRB,4.5632E+00_JPRB,7.3707E+00_JPRB,9.5161E+00_JPRB,1.1574E+01_JPRB/)
+KBO( :, 4,24,12) = (/&
+&2.7755E+00_JPRB,4.7310E+00_JPRB,7.5040E+00_JPRB,9.6239E+00_JPRB,1.1390E+01_JPRB/)
+KBO( :, 5,24,12) = (/&
+&3.4421E+00_JPRB,4.9112E+00_JPRB,7.6141E+00_JPRB,9.6873E+00_JPRB,1.1189E+01_JPRB/)
+KBO( :, 1,25,12) = (/&
+&1.1444E+00_JPRB,4.4093E+00_JPRB,7.3963E+00_JPRB,9.7702E+00_JPRB,1.2380E+01_JPRB/)
+KBO( :, 2,25,12) = (/&
+&1.5338E+00_JPRB,4.5946E+00_JPRB,7.5950E+00_JPRB,9.9140E+00_JPRB,1.2253E+01_JPRB/)
+KBO( :, 3,25,12) = (/&
+&1.9951E+00_JPRB,4.7679E+00_JPRB,7.7559E+00_JPRB,1.0074E+01_JPRB,1.2101E+01_JPRB/)
+KBO( :, 4,25,12) = (/&
+&2.5340E+00_JPRB,4.9285E+00_JPRB,7.8837E+00_JPRB,1.0178E+01_JPRB,1.1928E+01_JPRB/)
+KBO( :, 5,25,12) = (/&
+&3.1490E+00_JPRB,5.0856E+00_JPRB,7.9862E+00_JPRB,1.0230E+01_JPRB,1.1731E+01_JPRB/)
+KBO( :, 1,26,12) = (/&
+&1.0478E+00_JPRB,4.5874E+00_JPRB,7.7327E+00_JPRB,1.0197E+01_JPRB,1.2777E+01_JPRB/)
+KBO( :, 2,26,12) = (/&
+&1.4034E+00_JPRB,4.7724E+00_JPRB,7.9352E+00_JPRB,1.0399E+01_JPRB,1.2676E+01_JPRB/)
+KBO( :, 3,26,12) = (/&
+&1.8290E+00_JPRB,4.9445E+00_JPRB,8.0940E+00_JPRB,1.0560E+01_JPRB,1.2548E+01_JPRB/)
+KBO( :, 4,26,12) = (/&
+&2.3262E+00_JPRB,5.0995E+00_JPRB,8.2175E+00_JPRB,1.0662E+01_JPRB,1.2385E+01_JPRB/)
+KBO( :, 5,26,12) = (/&
+&2.8994E+00_JPRB,5.2504E+00_JPRB,8.3168E+00_JPRB,1.0708E+01_JPRB,1.2185E+01_JPRB/)
+KBO( :, 1,27,12) = (/&
+&9.6295E-01_JPRB,4.7357E+00_JPRB,8.0186E+00_JPRB,1.0582E+01_JPRB,1.3091E+01_JPRB/)
+KBO( :, 2,27,12) = (/&
+&1.2910E+00_JPRB,4.9215E+00_JPRB,8.2248E+00_JPRB,1.0814E+01_JPRB,1.3028E+01_JPRB/)
+KBO( :, 3,27,12) = (/&
+&1.6838E+00_JPRB,5.0898E+00_JPRB,8.3871E+00_JPRB,1.0984E+01_JPRB,1.2918E+01_JPRB/)
+KBO( :, 4,27,12) = (/&
+&2.1466E+00_JPRB,5.2404E+00_JPRB,8.5110E+00_JPRB,1.1084E+01_JPRB,1.2766E+01_JPRB/)
+KBO( :, 5,27,12) = (/&
+&2.6872E+00_JPRB,5.3861E+00_JPRB,8.6027E+00_JPRB,1.1128E+01_JPRB,1.2572E+01_JPRB/)
+KBO( :, 1,28,12) = (/&
+&8.9212E-01_JPRB,4.8606E+00_JPRB,8.2568E+00_JPRB,1.0928E+01_JPRB,1.3355E+01_JPRB/)
+KBO( :, 2,28,12) = (/&
+&1.1960E+00_JPRB,5.0446E+00_JPRB,8.4744E+00_JPRB,1.1178E+01_JPRB,1.3316E+01_JPRB/)
+KBO( :, 3,28,12) = (/&
+&1.5631E+00_JPRB,5.2061E+00_JPRB,8.6403E+00_JPRB,1.1353E+01_JPRB,1.3227E+01_JPRB/)
+KBO( :, 4,28,12) = (/&
+&2.0020E+00_JPRB,5.3547E+00_JPRB,8.7642E+00_JPRB,1.1451E+01_JPRB,1.3084E+01_JPRB/)
+KBO( :, 5,28,12) = (/&
+&2.5209E+00_JPRB,5.4919E+00_JPRB,8.8461E+00_JPRB,1.1491E+01_JPRB,1.2898E+01_JPRB/)
+KBO( :, 1,29,12) = (/&
+&8.3439E-01_JPRB,4.9630E+00_JPRB,8.4638E+00_JPRB,1.1240E+01_JPRB,1.3569E+01_JPRB/)
+KBO( :, 2,29,12) = (/&
+&1.1207E+00_JPRB,5.1454E+00_JPRB,8.6875E+00_JPRB,1.1503E+01_JPRB,1.3552E+01_JPRB/)
+KBO( :, 3,29,12) = (/&
+&1.4717E+00_JPRB,5.3013E+00_JPRB,8.8580E+00_JPRB,1.1673E+01_JPRB,1.3478E+01_JPRB/)
+KBO( :, 4,29,12) = (/&
+&1.8931E+00_JPRB,5.4461E+00_JPRB,8.9793E+00_JPRB,1.1770E+01_JPRB,1.3347E+01_JPRB/)
+KBO( :, 5,29,12) = (/&
+&2.3917E+00_JPRB,5.5710E+00_JPRB,9.0514E+00_JPRB,1.1806E+01_JPRB,1.3171E+01_JPRB/)
+KBO( :, 1,30,12) = (/&
+&7.8953E-01_JPRB,5.0479E+00_JPRB,8.6488E+00_JPRB,1.1520E+01_JPRB,1.3753E+01_JPRB/)
+KBO( :, 2,30,12) = (/&
+&1.0632E+00_JPRB,5.2264E+00_JPRB,8.8753E+00_JPRB,1.1783E+01_JPRB,1.3755E+01_JPRB/)
+KBO( :, 3,30,12) = (/&
+&1.4002E+00_JPRB,5.3769E+00_JPRB,9.0463E+00_JPRB,1.1951E+01_JPRB,1.3696E+01_JPRB/)
+KBO( :, 4,30,12) = (/&
+&1.8078E+00_JPRB,5.5153E+00_JPRB,9.1561E+00_JPRB,1.2049E+01_JPRB,1.3577E+01_JPRB/)
+KBO( :, 5,30,12) = (/&
+&2.2911E+00_JPRB,5.6294E+00_JPRB,9.2248E+00_JPRB,1.2077E+01_JPRB,1.3407E+01_JPRB/)
+KBO( :, 1,31,12) = (/&
+&7.5763E-01_JPRB,5.1182E+00_JPRB,8.8135E+00_JPRB,1.1775E+01_JPRB,1.3909E+01_JPRB/)
+KBO( :, 2,31,12) = (/&
+&1.0216E+00_JPRB,5.2915E+00_JPRB,9.0421E+00_JPRB,1.2027E+01_JPRB,1.3937E+01_JPRB/)
+KBO( :, 3,31,12) = (/&
+&1.3478E+00_JPRB,5.4413E+00_JPRB,9.2028E+00_JPRB,1.2197E+01_JPRB,1.3886E+01_JPRB/)
+KBO( :, 4,31,12) = (/&
+&1.7441E+00_JPRB,5.5694E+00_JPRB,9.3055E+00_JPRB,1.2288E+01_JPRB,1.3772E+01_JPRB/)
+KBO( :, 5,31,12) = (/&
+&2.2144E+00_JPRB,5.6760E+00_JPRB,9.3680E+00_JPRB,1.2303E+01_JPRB,1.3606E+01_JPRB/)
+KBO( :, 1,32,12) = (/&
+&7.3463E-01_JPRB,5.1776E+00_JPRB,8.9653E+00_JPRB,1.1995E+01_JPRB,1.4066E+01_JPRB/)
+KBO( :, 2,32,12) = (/&
+&9.9287E-01_JPRB,5.3488E+00_JPRB,9.1823E+00_JPRB,1.2248E+01_JPRB,1.4093E+01_JPRB/)
+KBO( :, 3,32,12) = (/&
+&1.3124E+00_JPRB,5.4937E+00_JPRB,9.3364E+00_JPRB,1.2412E+01_JPRB,1.4048E+01_JPRB/)
+KBO( :, 4,32,12) = (/&
+&1.6979E+00_JPRB,5.6116E+00_JPRB,9.4348E+00_JPRB,1.2490E+01_JPRB,1.3938E+01_JPRB/)
+KBO( :, 5,32,12) = (/&
+&2.1569E+00_JPRB,5.7180E+00_JPRB,9.4915E+00_JPRB,1.2493E+01_JPRB,1.3768E+01_JPRB/)
+KBO( :, 1,33,12) = (/&
+&7.1977E-01_JPRB,5.2298E+00_JPRB,9.0982E+00_JPRB,1.2196E+01_JPRB,1.4201E+01_JPRB/)
+KBO( :, 2,33,12) = (/&
+&9.7359E-01_JPRB,5.3967E+00_JPRB,9.3054E+00_JPRB,1.2444E+01_JPRB,1.4231E+01_JPRB/)
+KBO( :, 3,33,12) = (/&
+&1.2863E+00_JPRB,5.5361E+00_JPRB,9.4542E+00_JPRB,1.2592E+01_JPRB,1.4192E+01_JPRB/)
+KBO( :, 4,33,12) = (/&
+&1.6635E+00_JPRB,5.6471E+00_JPRB,9.5434E+00_JPRB,1.2656E+01_JPRB,1.4080E+01_JPRB/)
+KBO( :, 5,33,12) = (/&
+&2.1169E+00_JPRB,5.7606E+00_JPRB,9.5939E+00_JPRB,1.2650E+01_JPRB,1.3912E+01_JPRB/)
+KBO( :, 1,34,12) = (/&
+&7.0357E-01_JPRB,5.2718E+00_JPRB,9.2058E+00_JPRB,1.2367E+01_JPRB,1.4318E+01_JPRB/)
+KBO( :, 2,34,12) = (/&
+&9.5100E-01_JPRB,5.4364E+00_JPRB,9.4086E+00_JPRB,1.2603E+01_JPRB,1.4360E+01_JPRB/)
+KBO( :, 3,34,12) = (/&
+&1.2571E+00_JPRB,5.5683E+00_JPRB,9.5524E+00_JPRB,1.2741E+01_JPRB,1.4321E+01_JPRB/)
+KBO( :, 4,34,12) = (/&
+&1.6282E+00_JPRB,5.6772E+00_JPRB,9.6331E+00_JPRB,1.2794E+01_JPRB,1.4205E+01_JPRB/)
+KBO( :, 5,34,12) = (/&
+&2.0759E+00_JPRB,5.7973E+00_JPRB,9.6806E+00_JPRB,1.2780E+01_JPRB,1.4057E+01_JPRB/)
+KBO( :, 1,35,12) = (/&
+&6.7127E-01_JPRB,5.2954E+00_JPRB,9.2834E+00_JPRB,1.2496E+01_JPRB,1.4429E+01_JPRB/)
+KBO( :, 2,35,12) = (/&
+&9.0855E-01_JPRB,5.4587E+00_JPRB,9.4864E+00_JPRB,1.2723E+01_JPRB,1.4480E+01_JPRB/)
+KBO( :, 3,35,12) = (/&
+&1.2033E+00_JPRB,5.5864E+00_JPRB,9.6267E+00_JPRB,1.2858E+01_JPRB,1.4440E+01_JPRB/)
+KBO( :, 4,35,12) = (/&
+&1.5648E+00_JPRB,5.6975E+00_JPRB,9.7046E+00_JPRB,1.2909E+01_JPRB,1.4336E+01_JPRB/)
+KBO( :, 5,35,12) = (/&
+&2.0039E+00_JPRB,5.8207E+00_JPRB,9.7512E+00_JPRB,1.2890E+01_JPRB,1.4208E+01_JPRB/)
+KBO( :, 1,36,12) = (/&
+&6.2192E-01_JPRB,5.2979E+00_JPRB,9.3271E+00_JPRB,1.2576E+01_JPRB,1.4520E+01_JPRB/)
+KBO( :, 2,36,12) = (/&
+&8.4546E-01_JPRB,5.4637E+00_JPRB,9.5367E+00_JPRB,1.2809E+01_JPRB,1.4583E+01_JPRB/)
+KBO( :, 3,36,12) = (/&
+&1.1251E+00_JPRB,5.5908E+00_JPRB,9.6790E+00_JPRB,1.2948E+01_JPRB,1.4550E+01_JPRB/)
+KBO( :, 4,36,12) = (/&
+&1.4725E+00_JPRB,5.7038E+00_JPRB,9.7597E+00_JPRB,1.3004E+01_JPRB,1.4471E+01_JPRB/)
+KBO( :, 5,36,12) = (/&
+&1.8981E+00_JPRB,5.8306E+00_JPRB,9.8077E+00_JPRB,1.2987E+01_JPRB,1.4353E+01_JPRB/)
+KBO( :, 1,37,12) = (/&
+&5.5089E-01_JPRB,5.2730E+00_JPRB,9.3242E+00_JPRB,1.2595E+01_JPRB,1.4578E+01_JPRB/)
+KBO( :, 2,37,12) = (/&
+&7.5546E-01_JPRB,5.4446E+00_JPRB,9.5503E+00_JPRB,1.2851E+01_JPRB,1.4663E+01_JPRB/)
+KBO( :, 3,37,12) = (/&
+&1.0138E+00_JPRB,5.5779E+00_JPRB,9.7054E+00_JPRB,1.3008E+01_JPRB,1.4649E+01_JPRB/)
+KBO( :, 4,37,12) = (/&
+&1.3388E+00_JPRB,5.6937E+00_JPRB,9.7968E+00_JPRB,1.3080E+01_JPRB,1.4599E+01_JPRB/)
+KBO( :, 5,37,12) = (/&
+&1.7405E+00_JPRB,5.8196E+00_JPRB,9.8483E+00_JPRB,1.3074E+01_JPRB,1.4497E+01_JPRB/)
+KBO( :, 1,38,12) = (/&
+&4.8774E-01_JPRB,5.2446E+00_JPRB,9.3121E+00_JPRB,1.2598E+01_JPRB,1.4624E+01_JPRB/)
+KBO( :, 2,38,12) = (/&
+&6.7596E-01_JPRB,5.4236E+00_JPRB,9.5535E+00_JPRB,1.2878E+01_JPRB,1.4727E+01_JPRB/)
+KBO( :, 3,38,12) = (/&
+&9.1580E-01_JPRB,5.5635E+00_JPRB,9.7210E+00_JPRB,1.3053E+01_JPRB,1.4738E+01_JPRB/)
+KBO( :, 4,38,12) = (/&
+&1.2196E+00_JPRB,5.6813E+00_JPRB,9.8236E+00_JPRB,1.3139E+01_JPRB,1.4721E+01_JPRB/)
+KBO( :, 5,38,12) = (/&
+&1.5995E+00_JPRB,5.8073E+00_JPRB,9.8794E+00_JPRB,1.3147E+01_JPRB,1.4637E+01_JPRB/)
+KBO( :, 1,39,12) = (/&
+&4.3319E-01_JPRB,5.2171E+00_JPRB,9.2923E+00_JPRB,1.2591E+01_JPRB,1.4655E+01_JPRB/)
+KBO( :, 2,39,12) = (/&
+&6.0674E-01_JPRB,5.4013E+00_JPRB,9.5491E+00_JPRB,1.2892E+01_JPRB,1.4779E+01_JPRB/)
+KBO( :, 3,39,12) = (/&
+&8.3076E-01_JPRB,5.5491E+00_JPRB,9.7285E+00_JPRB,1.3083E+01_JPRB,1.4825E+01_JPRB/)
+KBO( :, 4,39,12) = (/&
+&1.1162E+00_JPRB,5.6693E+00_JPRB,9.8420E+00_JPRB,1.3183E+01_JPRB,1.4848E+01_JPRB/)
+KBO( :, 5,39,12) = (/&
+&1.4760E+00_JPRB,5.7939E+00_JPRB,9.9065E+00_JPRB,1.3208E+01_JPRB,1.4788E+01_JPRB/)
+KBO( :, 1,40,12) = (/&
+&3.7146E-01_JPRB,5.1676E+00_JPRB,9.2350E+00_JPRB,1.2533E+01_JPRB,1.4645E+01_JPRB/)
+KBO( :, 2,40,12) = (/&
+&5.2844E-01_JPRB,5.3608E+00_JPRB,9.5128E+00_JPRB,1.2866E+01_JPRB,1.4804E+01_JPRB/)
+KBO( :, 3,40,12) = (/&
+&7.3313E-01_JPRB,5.5191E+00_JPRB,9.7148E+00_JPRB,1.3086E+01_JPRB,1.4881E+01_JPRB/)
+KBO( :, 4,40,12) = (/&
+&9.9528E-01_JPRB,5.6415E+00_JPRB,9.8443E+00_JPRB,1.3210E+01_JPRB,1.4931E+01_JPRB/)
+KBO( :, 5,40,12) = (/&
+&1.3291E+00_JPRB,5.7657E+00_JPRB,9.9220E+00_JPRB,1.3255E+01_JPRB,1.4902E+01_JPRB/)
+KBO( :, 1,41,12) = (/&
+&3.1691E-01_JPRB,5.1123E+00_JPRB,9.1654E+00_JPRB,1.2453E+01_JPRB,1.4615E+01_JPRB/)
+KBO( :, 2,41,12) = (/&
+&4.5854E-01_JPRB,5.3141E+00_JPRB,9.4645E+00_JPRB,1.2820E+01_JPRB,1.4813E+01_JPRB/)
+KBO( :, 3,41,12) = (/&
+&6.4497E-01_JPRB,5.4832E+00_JPRB,9.6893E+00_JPRB,1.3072E+01_JPRB,1.4921E+01_JPRB/)
+KBO( :, 4,41,12) = (/&
+&8.8600E-01_JPRB,5.6149E+00_JPRB,9.8376E+00_JPRB,1.3222E+01_JPRB,1.5000E+01_JPRB/)
+KBO( :, 5,41,12) = (/&
+&1.1949E+00_JPRB,5.7388E+00_JPRB,9.9263E+00_JPRB,1.3289E+01_JPRB,1.5001E+01_JPRB/)
+KBO( :, 1,42,12) = (/&
+&2.6990E-01_JPRB,5.0545E+00_JPRB,9.0851E+00_JPRB,1.2357E+01_JPRB,1.4568E+01_JPRB/)
+KBO( :, 2,42,12) = (/&
+&3.9791E-01_JPRB,5.2666E+00_JPRB,9.4059E+00_JPRB,1.2762E+01_JPRB,1.4811E+01_JPRB/)
+KBO( :, 3,42,12) = (/&
+&5.6786E-01_JPRB,5.4473E+00_JPRB,9.6535E+00_JPRB,1.3042E+01_JPRB,1.4951E+01_JPRB/)
+KBO( :, 4,42,12) = (/&
+&7.8985E-01_JPRB,5.5889E+00_JPRB,9.8202E+00_JPRB,1.3220E+01_JPRB,1.5062E+01_JPRB/)
+KBO( :, 5,42,12) = (/&
+&1.0759E+00_JPRB,5.7103E+00_JPRB,9.9256E+00_JPRB,1.3308E+01_JPRB,1.5095E+01_JPRB/)
+KBO( :, 1,43,12) = (/&
+&2.2408E-01_JPRB,4.9801E+00_JPRB,8.9750E+00_JPRB,1.2220E+01_JPRB,1.4488E+01_JPRB/)
+KBO( :, 2,43,12) = (/&
+&3.3742E-01_JPRB,5.2050E+00_JPRB,9.3221E+00_JPRB,1.2666E+01_JPRB,1.4779E+01_JPRB/)
+KBO( :, 3,43,12) = (/&
+&4.9010E-01_JPRB,5.3960E+00_JPRB,9.5945E+00_JPRB,1.2984E+01_JPRB,1.4959E+01_JPRB/)
+KBO( :, 4,43,12) = (/&
+&6.9169E-01_JPRB,5.5493E+00_JPRB,9.7889E+00_JPRB,1.3197E+01_JPRB,1.5104E+01_JPRB/)
+KBO( :, 5,43,12) = (/&
+&9.5305E-01_JPRB,5.6745E+00_JPRB,9.9131E+00_JPRB,1.3310E+01_JPRB,1.5176E+01_JPRB/)
+KBO( :, 1,44,12) = (/&
+&1.8323E-01_JPRB,4.8933E+00_JPRB,8.8410E+00_JPRB,1.2051E+01_JPRB,1.4377E+01_JPRB/)
+KBO( :, 2,44,12) = (/&
+&2.8217E-01_JPRB,5.1330E+00_JPRB,9.2212E+00_JPRB,1.2543E+01_JPRB,1.4725E+01_JPRB/)
+KBO( :, 3,44,12) = (/&
+&4.1838E-01_JPRB,5.3347E+00_JPRB,9.5219E+00_JPRB,1.2906E+01_JPRB,1.4949E+01_JPRB/)
+KBO( :, 4,44,12) = (/&
+&5.9984E-01_JPRB,5.5043E+00_JPRB,9.7457E+00_JPRB,1.3153E+01_JPRB,1.5131E+01_JPRB/)
+KBO( :, 5,44,12) = (/&
+&8.3730E-01_JPRB,5.6361E+00_JPRB,9.8881E+00_JPRB,1.3302E+01_JPRB,1.5248E+01_JPRB/)
+KBO( :, 1,45,12) = (/&
+&1.4904E-01_JPRB,4.8014E+00_JPRB,8.6942E+00_JPRB,1.1857E+01_JPRB,1.4243E+01_JPRB/)
+KBO( :, 2,45,12) = (/&
+&2.3486E-01_JPRB,5.0590E+00_JPRB,9.1087E+00_JPRB,1.2404E+01_JPRB,1.4652E+01_JPRB/)
+KBO( :, 3,45,12) = (/&
+&3.5578E-01_JPRB,5.2728E+00_JPRB,9.4361E+00_JPRB,1.2811E+01_JPRB,1.4928E+01_JPRB/)
+KBO( :, 4,45,12) = (/&
+&5.1907E-01_JPRB,5.4551E+00_JPRB,9.6849E+00_JPRB,1.3095E+01_JPRB,1.5155E+01_JPRB/)
+KBO( :, 5,45,12) = (/&
+&7.3447E-01_JPRB,5.5970E+00_JPRB,9.8551E+00_JPRB,1.3278E+01_JPRB,1.5316E+01_JPRB/)
+KBO( :, 1,46,12) = (/&
+&1.1910E-01_JPRB,4.6973E+00_JPRB,8.5264E+00_JPRB,1.1635E+01_JPRB,1.4074E+01_JPRB/)
+KBO( :, 2,46,12) = (/&
+&1.9264E-01_JPRB,4.9713E+00_JPRB,8.9752E+00_JPRB,1.2231E+01_JPRB,1.4552E+01_JPRB/)
+KBO( :, 3,46,12) = (/&
+&2.9840E-01_JPRB,5.1994E+00_JPRB,9.3302E+00_JPRB,1.2687E+01_JPRB,1.4886E+01_JPRB/)
+KBO( :, 4,46,12) = (/&
+&4.4420E-01_JPRB,5.3934E+00_JPRB,9.6109E+00_JPRB,1.3017E+01_JPRB,1.5158E+01_JPRB/)
+KBO( :, 5,46,12) = (/&
+&6.3821E-01_JPRB,5.5501E+00_JPRB,9.8128E+00_JPRB,1.3236E+01_JPRB,1.5371E+01_JPRB/)
+KBO( :, 1,47,12) = (/&
+&9.2205E-02_JPRB,4.5728E+00_JPRB,8.3222E+00_JPRB,1.1357E+01_JPRB,1.3848E+01_JPRB/)
+KBO( :, 2,47,12) = (/&
+&1.5376E-01_JPRB,4.8658E+00_JPRB,8.8065E+00_JPRB,1.2014E+01_JPRB,1.4405E+01_JPRB/)
+KBO( :, 3,47,12) = (/&
+&2.4420E-01_JPRB,5.1135E+00_JPRB,9.2023E+00_JPRB,1.2528E+01_JPRB,1.4805E+01_JPRB/)
+KBO( :, 4,47,12) = (/&
+&3.7202E-01_JPRB,5.3206E+00_JPRB,9.5150E+00_JPRB,1.2907E+01_JPRB,1.5121E+01_JPRB/)
+KBO( :, 5,47,12) = (/&
+&5.4440E-01_JPRB,5.4945E+00_JPRB,9.7455E+00_JPRB,1.3168E+01_JPRB,1.5387E+01_JPRB/)
+KBO( :, 1,48,12) = (/&
+&7.0454E-02_JPRB,4.4412E+00_JPRB,8.1011E+00_JPRB,1.1048E+01_JPRB,1.3590E+01_JPRB/)
+KBO( :, 2,48,12) = (/&
+&1.2149E-01_JPRB,4.7546E+00_JPRB,8.6257E+00_JPRB,1.1771E+01_JPRB,1.4231E+01_JPRB/)
+KBO( :, 3,48,12) = (/&
+&1.9826E-01_JPRB,5.0205E+00_JPRB,9.0577E+00_JPRB,1.2345E+01_JPRB,1.4705E+01_JPRB/)
+KBO( :, 4,48,12) = (/&
+&3.0915E-01_JPRB,5.2415E+00_JPRB,9.3998E+00_JPRB,1.2778E+01_JPRB,1.5077E+01_JPRB/)
+KBO( :, 5,48,12) = (/&
+&4.6199E-01_JPRB,5.4308E+00_JPRB,9.6652E+00_JPRB,1.3083E+01_JPRB,1.5397E+01_JPRB/)
+KBO( :, 1,49,12) = (/&
+&5.3088E-02_JPRB,4.3008E+00_JPRB,7.8587E+00_JPRB,1.0710E+01_JPRB,1.3300E+01_JPRB/)
+KBO( :, 2,49,12) = (/&
+&9.4886E-02_JPRB,4.6325E+00_JPRB,8.4260E+00_JPRB,1.1503E+01_JPRB,1.4035E+01_JPRB/)
+KBO( :, 3,49,12) = (/&
+&1.5966E-01_JPRB,4.9173E+00_JPRB,8.8952E+00_JPRB,1.2135E+01_JPRB,1.4593E+01_JPRB/)
+KBO( :, 4,49,12) = (/&
+&2.5505E-01_JPRB,5.1573E+00_JPRB,9.2755E+00_JPRB,1.2624E+01_JPRB,1.5028E+01_JPRB/)
+KBO( :, 5,49,12) = (/&
+&3.8941E-01_JPRB,5.3580E+00_JPRB,9.5745E+00_JPRB,1.2980E+01_JPRB,1.5409E+01_JPRB/)
+KBO( :, 1,50,12) = (/&
+&4.0067E-02_JPRB,4.1596E+00_JPRB,7.6089E+00_JPRB,1.0372E+01_JPRB,1.2988E+01_JPRB/)
+KBO( :, 2,50,12) = (/&
+&7.4256E-02_JPRB,4.5125E+00_JPRB,8.2260E+00_JPRB,1.1225E+01_JPRB,1.3810E+01_JPRB/)
+KBO( :, 3,50,12) = (/&
+&1.2901E-01_JPRB,4.8174E+00_JPRB,8.7310E+00_JPRB,1.1915E+01_JPRB,1.4444E+01_JPRB/)
+KBO( :, 4,50,12) = (/&
+&2.1116E-01_JPRB,5.0740E+00_JPRB,9.1458E+00_JPRB,1.2461E+01_JPRB,1.4934E+01_JPRB/)
+KBO( :, 5,50,12) = (/&
+&3.2945E-01_JPRB,5.2879E+00_JPRB,9.4738E+00_JPRB,1.2866E+01_JPRB,1.5371E+01_JPRB/)
+KBO( :, 1,51,12) = (/&
+&3.0082E-02_JPRB,4.0166E+00_JPRB,7.3470E+00_JPRB,1.0024E+01_JPRB,1.2649E+01_JPRB/)
+KBO( :, 2,51,12) = (/&
+&5.7864E-02_JPRB,4.3904E+00_JPRB,8.0166E+00_JPRB,1.0930E+01_JPRB,1.3555E+01_JPRB/)
+KBO( :, 3,51,12) = (/&
+&1.0385E-01_JPRB,4.7103E+00_JPRB,8.5593E+00_JPRB,1.1684E+01_JPRB,1.4265E+01_JPRB/)
+KBO( :, 4,51,12) = (/&
+&1.7451E-01_JPRB,4.9838E+00_JPRB,9.0063E+00_JPRB,1.2280E+01_JPRB,1.4812E+01_JPRB/)
+KBO( :, 5,51,12) = (/&
+&2.7822E-01_JPRB,5.2130E+00_JPRB,9.3629E+00_JPRB,1.2735E+01_JPRB,1.5297E+01_JPRB/)
+KBO( :, 1,52,12) = (/&
+&2.2321E-02_JPRB,3.8633E+00_JPRB,7.0669E+00_JPRB,9.6645E+00_JPRB,1.2286E+01_JPRB/)
+KBO( :, 2,52,12) = (/&
+&4.4568E-02_JPRB,4.2586E+00_JPRB,7.7887E+00_JPRB,1.0615E+01_JPRB,1.3275E+01_JPRB/)
+KBO( :, 3,52,12) = (/&
+&8.2764E-02_JPRB,4.5976E+00_JPRB,8.3722E+00_JPRB,1.1430E+01_JPRB,1.4067E+01_JPRB/)
+KBO( :, 4,52,12) = (/&
+&1.4332E-01_JPRB,4.8897E+00_JPRB,8.8533E+00_JPRB,1.2081E+01_JPRB,1.4681E+01_JPRB/)
+KBO( :, 5,52,12) = (/&
+&2.3359E-01_JPRB,5.1350E+00_JPRB,9.2453E+00_JPRB,1.2589E+01_JPRB,1.5214E+01_JPRB/)
+KBO( :, 1,53,12) = (/&
+&1.6320E-02_JPRB,3.7017E+00_JPRB,6.7670E+00_JPRB,9.2859E+00_JPRB,1.1890E+01_JPRB/)
+KBO( :, 2,53,12) = (/&
+&3.3883E-02_JPRB,4.1210E+00_JPRB,7.5408E+00_JPRB,1.0281E+01_JPRB,1.2972E+01_JPRB/)
+KBO( :, 3,53,12) = (/&
+&6.5211E-02_JPRB,4.4803E+00_JPRB,8.1737E+00_JPRB,1.1152E+01_JPRB,1.3849E+01_JPRB/)
+KBO( :, 4,53,12) = (/&
+&1.1656E-01_JPRB,4.7901E+00_JPRB,8.6895E+00_JPRB,1.1861E+01_JPRB,1.4540E+01_JPRB/)
+KBO( :, 5,53,12) = (/&
+&1.9454E-01_JPRB,5.0513E+00_JPRB,9.1138E+00_JPRB,1.2423E+01_JPRB,1.5132E+01_JPRB/)
+KBO( :, 1,54,12) = (/&
+&1.2044E-02_JPRB,3.5460E+00_JPRB,6.4769E+00_JPRB,8.9175E+00_JPRB,1.1478E+01_JPRB/)
+KBO( :, 2,54,12) = (/&
+&2.6009E-02_JPRB,3.9878E+00_JPRB,7.2955E+00_JPRB,9.9571E+00_JPRB,1.2628E+01_JPRB/)
+KBO( :, 3,54,12) = (/&
+&5.1821E-02_JPRB,4.3666E+00_JPRB,7.9779E+00_JPRB,1.0876E+01_JPRB,1.3583E+01_JPRB/)
+KBO( :, 4,54,12) = (/&
+&9.5474E-02_JPRB,4.6901E+00_JPRB,8.5279E+00_JPRB,1.1644E+01_JPRB,1.4331E+01_JPRB/)
+KBO( :, 5,54,12) = (/&
+&1.6346E-01_JPRB,4.9679E+00_JPRB,8.9829E+00_JPRB,1.2251E+01_JPRB,1.4953E+01_JPRB/)
+KBO( :, 1,55,12) = (/&
+&8.8474E-03_JPRB,3.3874E+00_JPRB,6.1849E+00_JPRB,8.5463E+00_JPRB,1.1054E+01_JPRB/)
+KBO( :, 2,55,12) = (/&
+&1.9964E-02_JPRB,3.8514E+00_JPRB,7.0467E+00_JPRB,9.6387E+00_JPRB,1.2268E+01_JPRB/)
+KBO( :, 3,55,12) = (/&
+&4.1152E-02_JPRB,4.2498E+00_JPRB,7.7746E+00_JPRB,1.0596E+01_JPRB,1.3279E+01_JPRB/)
+KBO( :, 4,55,12) = (/&
+&7.8159E-02_JPRB,4.5905E+00_JPRB,8.3623E+00_JPRB,1.1417E+01_JPRB,1.4084E+01_JPRB/)
+KBO( :, 5,55,12) = (/&
+&1.3750E-01_JPRB,4.8845E+00_JPRB,8.8463E+00_JPRB,1.2073E+01_JPRB,1.4722E+01_JPRB/)
+KBO( :, 1,56,12) = (/&
+&6.4082E-03_JPRB,3.2244E+00_JPRB,5.8774E+00_JPRB,8.1652E+00_JPRB,1.0610E+01_JPRB/)
+KBO( :, 2,56,12) = (/&
+&1.5162E-02_JPRB,3.7100E+00_JPRB,6.7838E+00_JPRB,9.3060E+00_JPRB,1.1893E+01_JPRB/)
+KBO( :, 3,56,12) = (/&
+&3.2388E-02_JPRB,4.1289E+00_JPRB,7.5561E+00_JPRB,1.0301E+01_JPRB,1.2952E+01_JPRB/)
+KBO( :, 4,56,12) = (/&
+&6.3471E-02_JPRB,4.4879E+00_JPRB,8.1882E+00_JPRB,1.1172E+01_JPRB,1.3823E+01_JPRB/)
+KBO( :, 5,56,12) = (/&
+&1.1487E-01_JPRB,4.7971E+00_JPRB,8.7028E+00_JPRB,1.1880E+01_JPRB,1.4496E+01_JPRB/)
+KBO( :, 1,57,12) = (/&
+&4.5631E-03_JPRB,3.0511E+00_JPRB,5.5587E+00_JPRB,7.7750E+00_JPRB,1.0138E+01_JPRB/)
+KBO( :, 2,57,12) = (/&
+&1.1368E-02_JPRB,3.5622E+00_JPRB,6.5073E+00_JPRB,8.9555E+00_JPRB,1.1499E+01_JPRB/)
+KBO( :, 3,57,12) = (/&
+&2.5250E-02_JPRB,4.0025E+00_JPRB,7.3232E+00_JPRB,9.9930E+00_JPRB,1.2617E+01_JPRB/)
+KBO( :, 4,57,12) = (/&
+&5.1105E-02_JPRB,4.3794E+00_JPRB,8.0015E+00_JPRB,1.0910E+01_JPRB,1.3544E+01_JPRB/)
+KBO( :, 5,57,12) = (/&
+&9.5178E-02_JPRB,4.7023E+00_JPRB,8.5498E+00_JPRB,1.1673E+01_JPRB,1.4270E+01_JPRB/)
+KBO( :, 1,58,12) = (/&
+&3.2442E-03_JPRB,2.8817E+00_JPRB,5.2469E+00_JPRB,7.3938E+00_JPRB,9.6647E+00_JPRB/)
+KBO( :, 2,58,12) = (/&
+&8.5196E-03_JPRB,3.4130E+00_JPRB,6.2333E+00_JPRB,8.6058E+00_JPRB,1.1102E+01_JPRB/)
+KBO( :, 3,58,12) = (/&
+&1.9737E-02_JPRB,3.8740E+00_JPRB,7.0888E+00_JPRB,9.6922E+00_JPRB,1.2287E+01_JPRB/)
+KBO( :, 4,58,12) = (/&
+&4.1256E-02_JPRB,4.2697E+00_JPRB,7.8107E+00_JPRB,1.0646E+01_JPRB,1.3253E+01_JPRB/)
+KBO( :, 5,58,12) = (/&
+&7.9005E-02_JPRB,4.6081E+00_JPRB,8.3923E+00_JPRB,1.1459E+01_JPRB,1.4032E+01_JPRB/)
+KBO( :, 1,59,12) = (/&
+&2.7554E-03_JPRB,2.8115E+00_JPRB,5.1204E+00_JPRB,7.2380E+00_JPRB,9.4574E+00_JPRB/)
+KBO( :, 2,59,12) = (/&
+&7.4695E-03_JPRB,3.3520E+00_JPRB,6.1191E+00_JPRB,8.4629E+00_JPRB,1.0919E+01_JPRB/)
+KBO( :, 3,59,12) = (/&
+&1.7700E-02_JPRB,3.8208E+00_JPRB,6.9919E+00_JPRB,9.5688E+00_JPRB,1.2133E+01_JPRB/)
+KBO( :, 4,59,12) = (/&
+&3.7590E-02_JPRB,4.2246E+00_JPRB,7.7306E+00_JPRB,1.0537E+01_JPRB,1.3092E+01_JPRB/)
+KBO( :, 5,59,12) = (/&
+&7.2976E-02_JPRB,4.5698E+00_JPRB,8.3286E+00_JPRB,1.1370E+01_JPRB,1.3863E+01_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_B3
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb5_B4.F90	(revision 2160)
@@ -0,0 +1,1924 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB5_B4
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, CCL4O
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+
+!     The array KB contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of co2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13,13) = (/&
+&2.6529E+00_JPRB,2.2831E+00_JPRB,3.2422E+00_JPRB,4.4425E+00_JPRB,5.7532E+00_JPRB/)
+KBO( :, 2,13,13) = (/&
+&3.7901E+00_JPRB,3.0012E+00_JPRB,3.3868E+00_JPRB,4.4780E+00_JPRB,5.6304E+00_JPRB/)
+KBO( :, 3,13,13) = (/&
+&5.1407E+00_JPRB,3.9898E+00_JPRB,3.7034E+00_JPRB,4.5284E+00_JPRB,5.5094E+00_JPRB/)
+KBO( :, 4,13,13) = (/&
+&6.6849E+00_JPRB,5.1505E+00_JPRB,4.1152E+00_JPRB,4.5525E+00_JPRB,5.3863E+00_JPRB/)
+KBO( :, 5,13,13) = (/&
+&8.4107E+00_JPRB,6.4413E+00_JPRB,4.6939E+00_JPRB,4.5962E+00_JPRB,5.2598E+00_JPRB/)
+KBO( :, 1,14,13) = (/&
+&2.7859E+00_JPRB,2.4754E+00_JPRB,3.5707E+00_JPRB,4.9274E+00_JPRB,6.3617E+00_JPRB/)
+KBO( :, 2,14,13) = (/&
+&3.9819E+00_JPRB,3.1616E+00_JPRB,3.7430E+00_JPRB,4.9467E+00_JPRB,6.2248E+00_JPRB/)
+KBO( :, 3,14,13) = (/&
+&5.4169E+00_JPRB,4.1984E+00_JPRB,4.1076E+00_JPRB,4.9547E+00_JPRB,6.0805E+00_JPRB/)
+KBO( :, 4,14,13) = (/&
+&7.0660E+00_JPRB,5.4307E+00_JPRB,4.5231E+00_JPRB,4.9634E+00_JPRB,5.9266E+00_JPRB/)
+KBO( :, 5,14,13) = (/&
+&8.9144E+00_JPRB,6.8140E+00_JPRB,5.0663E+00_JPRB,5.0044E+00_JPRB,5.7690E+00_JPRB/)
+KBO( :, 1,15,13) = (/&
+&2.9857E+00_JPRB,2.7217E+00_JPRB,3.9316E+00_JPRB,5.4603E+00_JPRB,7.0398E+00_JPRB/)
+KBO( :, 2,15,13) = (/&
+&4.2764E+00_JPRB,3.4089E+00_JPRB,4.1424E+00_JPRB,5.4476E+00_JPRB,6.8612E+00_JPRB/)
+KBO( :, 3,15,13) = (/&
+&5.8211E+00_JPRB,4.5002E+00_JPRB,4.5148E+00_JPRB,5.4204E+00_JPRB,6.6790E+00_JPRB/)
+KBO( :, 4,15,13) = (/&
+&7.6022E+00_JPRB,5.8275E+00_JPRB,4.9790E+00_JPRB,5.4051E+00_JPRB,6.4972E+00_JPRB/)
+KBO( :, 5,15,13) = (/&
+&9.6077E+00_JPRB,7.3247E+00_JPRB,5.5648E+00_JPRB,5.4790E+00_JPRB,6.3175E+00_JPRB/)
+KBO( :, 1,16,13) = (/&
+&3.2520E+00_JPRB,3.0398E+00_JPRB,4.3234E+00_JPRB,6.0080E+00_JPRB,7.7322E+00_JPRB/)
+KBO( :, 2,16,13) = (/&
+&4.6456E+00_JPRB,3.7621E+00_JPRB,4.5833E+00_JPRB,5.9695E+00_JPRB,7.5298E+00_JPRB/)
+KBO( :, 3,16,13) = (/&
+&6.3086E+00_JPRB,4.8685E+00_JPRB,4.9506E+00_JPRB,5.9143E+00_JPRB,7.3233E+00_JPRB/)
+KBO( :, 4,16,13) = (/&
+&8.2262E+00_JPRB,6.2820E+00_JPRB,5.4881E+00_JPRB,5.8959E+00_JPRB,7.1229E+00_JPRB/)
+KBO( :, 5,16,13) = (/&
+&1.0371E+01_JPRB,7.8838E+00_JPRB,6.1617E+00_JPRB,6.0261E+00_JPRB,6.9371E+00_JPRB/)
+KBO( :, 1,17,13) = (/&
+&3.5103E+00_JPRB,3.4027E+00_JPRB,4.7571E+00_JPRB,6.5946E+00_JPRB,8.5011E+00_JPRB/)
+KBO( :, 2,17,13) = (/&
+&4.9855E+00_JPRB,4.1396E+00_JPRB,5.0300E+00_JPRB,6.5219E+00_JPRB,8.2752E+00_JPRB/)
+KBO( :, 3,17,13) = (/&
+&6.7391E+00_JPRB,5.2214E+00_JPRB,5.4410E+00_JPRB,6.4503E+00_JPRB,8.0549E+00_JPRB/)
+KBO( :, 4,17,13) = (/&
+&8.7527E+00_JPRB,6.6750E+00_JPRB,6.0440E+00_JPRB,6.4589E+00_JPRB,7.8521E+00_JPRB/)
+KBO( :, 5,17,13) = (/&
+&1.0977E+01_JPRB,8.3330E+00_JPRB,6.7610E+00_JPRB,6.6072E+00_JPRB,7.6623E+00_JPRB/)
+KBO( :, 1,18,13) = (/&
+&3.7201E+00_JPRB,3.7715E+00_JPRB,5.2410E+00_JPRB,7.2877E+00_JPRB,9.4447E+00_JPRB/)
+KBO( :, 2,18,13) = (/&
+&5.2473E+00_JPRB,4.5163E+00_JPRB,5.5131E+00_JPRB,7.1747E+00_JPRB,9.1964E+00_JPRB/)
+KBO( :, 3,18,13) = (/&
+&7.0567E+00_JPRB,5.5681E+00_JPRB,5.9890E+00_JPRB,7.0880E+00_JPRB,8.9663E+00_JPRB/)
+KBO( :, 4,18,13) = (/&
+&9.1072E+00_JPRB,6.9581E+00_JPRB,6.6273E+00_JPRB,7.1370E+00_JPRB,8.7546E+00_JPRB/)
+KBO( :, 5,18,13) = (/&
+&1.1367E+01_JPRB,8.6174E+00_JPRB,7.3488E+00_JPRB,7.2704E+00_JPRB,8.5556E+00_JPRB/)
+KBO( :, 1,19,13) = (/&
+&3.8561E+00_JPRB,4.1299E+00_JPRB,5.8089E+00_JPRB,8.1195E+00_JPRB,1.0564E+01_JPRB/)
+KBO( :, 2,19,13) = (/&
+&5.4052E+00_JPRB,4.8948E+00_JPRB,6.0739E+00_JPRB,7.9918E+00_JPRB,1.0309E+01_JPRB/)
+KBO( :, 3,19,13) = (/&
+&7.2158E+00_JPRB,5.8804E+00_JPRB,6.5899E+00_JPRB,7.9071E+00_JPRB,1.0068E+01_JPRB/)
+KBO( :, 4,19,13) = (/&
+&9.2611E+00_JPRB,7.1822E+00_JPRB,7.2047E+00_JPRB,7.9510E+00_JPRB,9.8352E+00_JPRB/)
+KBO( :, 5,19,13) = (/&
+&1.1520E+01_JPRB,8.7584E+00_JPRB,7.9092E+00_JPRB,8.0447E+00_JPRB,9.6021E+00_JPRB/)
+KBO( :, 1,20,13) = (/&
+&3.9352E+00_JPRB,4.4974E+00_JPRB,6.4850E+00_JPRB,9.0968E+00_JPRB,1.1862E+01_JPRB/)
+KBO( :, 2,20,13) = (/&
+&5.4656E+00_JPRB,5.2567E+00_JPRB,6.7702E+00_JPRB,8.9553E+00_JPRB,1.1592E+01_JPRB/)
+KBO( :, 3,20,13) = (/&
+&7.2432E+00_JPRB,6.1806E+00_JPRB,7.2339E+00_JPRB,8.8912E+00_JPRB,1.1329E+01_JPRB/)
+KBO( :, 4,20,13) = (/&
+&9.2559E+00_JPRB,7.3730E+00_JPRB,7.8059E+00_JPRB,8.9109E+00_JPRB,1.1059E+01_JPRB/)
+KBO( :, 5,20,13) = (/&
+&1.1478E+01_JPRB,8.8414E+00_JPRB,8.4557E+00_JPRB,8.9640E+00_JPRB,1.0785E+01_JPRB/)
+KBO( :, 1,21,13) = (/&
+&3.9152E+00_JPRB,4.8660E+00_JPRB,7.2675E+00_JPRB,1.0177E+01_JPRB,1.3275E+01_JPRB/)
+KBO( :, 2,21,13) = (/&
+&5.3925E+00_JPRB,5.5769E+00_JPRB,7.5673E+00_JPRB,1.0032E+01_JPRB,1.2988E+01_JPRB/)
+KBO( :, 3,21,13) = (/&
+&7.1172E+00_JPRB,6.4580E+00_JPRB,7.9491E+00_JPRB,9.9865E+00_JPRB,1.2690E+01_JPRB/)
+KBO( :, 4,21,13) = (/&
+&9.0683E+00_JPRB,7.5180E+00_JPRB,8.4370E+00_JPRB,9.9647E+00_JPRB,1.2379E+01_JPRB/)
+KBO( :, 5,21,13) = (/&
+&1.1238E+01_JPRB,8.8639E+00_JPRB,9.0125E+00_JPRB,9.9895E+00_JPRB,1.2064E+01_JPRB/)
+KBO( :, 1,22,13) = (/&
+&3.8909E+00_JPRB,5.2900E+00_JPRB,8.1566E+00_JPRB,1.1308E+01_JPRB,1.4732E+01_JPRB/)
+KBO( :, 2,22,13) = (/&
+&5.3181E+00_JPRB,5.9209E+00_JPRB,8.4402E+00_JPRB,1.1175E+01_JPRB,1.4410E+01_JPRB/)
+KBO( :, 3,22,13) = (/&
+&6.9795E+00_JPRB,6.7348E+00_JPRB,8.7599E+00_JPRB,1.1122E+01_JPRB,1.4067E+01_JPRB/)
+KBO( :, 4,22,13) = (/&
+&8.8688E+00_JPRB,7.7237E+00_JPRB,9.1513E+00_JPRB,1.1075E+01_JPRB,1.3709E+01_JPRB/)
+KBO( :, 5,22,13) = (/&
+&1.0970E+01_JPRB,8.9302E+00_JPRB,9.6408E+00_JPRB,1.1105E+01_JPRB,1.3343E+01_JPRB/)
+KBO( :, 1,23,13) = (/&
+&3.7997E+00_JPRB,5.7292E+00_JPRB,9.0913E+00_JPRB,1.2436E+01_JPRB,1.6180E+01_JPRB/)
+KBO( :, 2,23,13) = (/&
+&5.1595E+00_JPRB,6.2753E+00_JPRB,9.3535E+00_JPRB,1.2331E+01_JPRB,1.5809E+01_JPRB/)
+KBO( :, 3,23,13) = (/&
+&6.7493E+00_JPRB,6.9925E+00_JPRB,9.6137E+00_JPRB,1.2263E+01_JPRB,1.5425E+01_JPRB/)
+KBO( :, 4,23,13) = (/&
+&8.5542E+00_JPRB,7.9012E+00_JPRB,9.9104E+00_JPRB,1.2220E+01_JPRB,1.5025E+01_JPRB/)
+KBO( :, 5,23,13) = (/&
+&1.0561E+01_JPRB,8.9781E+00_JPRB,1.0309E+01_JPRB,1.2253E+01_JPRB,1.4614E+01_JPRB/)
+KBO( :, 1,24,13) = (/&
+&3.6631E+00_JPRB,6.1905E+00_JPRB,1.0011E+01_JPRB,1.3544E+01_JPRB,1.7573E+01_JPRB/)
+KBO( :, 2,24,13) = (/&
+&4.9530E+00_JPRB,6.6528E+00_JPRB,1.0267E+01_JPRB,1.3455E+01_JPRB,1.7161E+01_JPRB/)
+KBO( :, 3,24,13) = (/&
+&6.4554E+00_JPRB,7.2715E+00_JPRB,1.0481E+01_JPRB,1.3377E+01_JPRB,1.6726E+01_JPRB/)
+KBO( :, 4,24,13) = (/&
+&8.1608E+00_JPRB,8.0605E+00_JPRB,1.0709E+01_JPRB,1.3365E+01_JPRB,1.6282E+01_JPRB/)
+KBO( :, 5,24,13) = (/&
+&1.0048E+01_JPRB,9.0171E+00_JPRB,1.1006E+01_JPRB,1.3382E+01_JPRB,1.5827E+01_JPRB/)
+KBO( :, 1,25,13) = (/&
+&3.5057E+00_JPRB,6.6591E+00_JPRB,1.0912E+01_JPRB,1.4625E+01_JPRB,1.8883E+01_JPRB/)
+KBO( :, 2,25,13) = (/&
+&4.7154E+00_JPRB,7.0448E+00_JPRB,1.1156E+01_JPRB,1.4541E+01_JPRB,1.8427E+01_JPRB/)
+KBO( :, 3,25,13) = (/&
+&6.1224E+00_JPRB,7.5602E+00_JPRB,1.1335E+01_JPRB,1.4472E+01_JPRB,1.7954E+01_JPRB/)
+KBO( :, 4,25,13) = (/&
+&7.7153E+00_JPRB,8.2240E+00_JPRB,1.1508E+01_JPRB,1.4486E+01_JPRB,1.7464E+01_JPRB/)
+KBO( :, 5,25,13) = (/&
+&9.4941E+00_JPRB,9.0534E+00_JPRB,1.1717E+01_JPRB,1.4473E+01_JPRB,1.6960E+01_JPRB/)
+KBO( :, 1,26,13) = (/&
+&3.3374E+00_JPRB,7.1235E+00_JPRB,1.1789E+01_JPRB,1.5669E+01_JPRB,2.0088E+01_JPRB/)
+KBO( :, 2,26,13) = (/&
+&4.4661E+00_JPRB,7.4439E+00_JPRB,1.2007E+01_JPRB,1.5575E+01_JPRB,1.9597E+01_JPRB/)
+KBO( :, 3,26,13) = (/&
+&5.7769E+00_JPRB,7.8591E+00_JPRB,1.2149E+01_JPRB,1.5545E+01_JPRB,1.9088E+01_JPRB/)
+KBO( :, 4,26,13) = (/&
+&7.2756E+00_JPRB,8.4078E+00_JPRB,1.2269E+01_JPRB,1.5555E+01_JPRB,1.8555E+01_JPRB/)
+KBO( :, 5,26,13) = (/&
+&8.9639E+00_JPRB,9.1104E+00_JPRB,1.2401E+01_JPRB,1.5501E+01_JPRB,1.8008E+01_JPRB/)
+KBO( :, 1,27,13) = (/&
+&3.1533E+00_JPRB,7.5608E+00_JPRB,1.2611E+01_JPRB,1.6642E+01_JPRB,2.1191E+01_JPRB/)
+KBO( :, 2,27,13) = (/&
+&4.1993E+00_JPRB,7.8220E+00_JPRB,1.2795E+01_JPRB,1.6570E+01_JPRB,2.0672E+01_JPRB/)
+KBO( :, 3,27,13) = (/&
+&5.4265E+00_JPRB,8.1469E+00_JPRB,1.2900E+01_JPRB,1.6567E+01_JPRB,2.0125E+01_JPRB/)
+KBO( :, 4,27,13) = (/&
+&6.8378E+00_JPRB,8.5911E+00_JPRB,1.2961E+01_JPRB,1.6544E+01_JPRB,1.9552E+01_JPRB/)
+KBO( :, 5,27,13) = (/&
+&8.4460E+00_JPRB,9.1761E+00_JPRB,1.3028E+01_JPRB,1.6437E+01_JPRB,1.8965E+01_JPRB/)
+KBO( :, 1,28,13) = (/&
+&2.9616E+00_JPRB,7.9550E+00_JPRB,1.3362E+01_JPRB,1.7538E+01_JPRB,2.2180E+01_JPRB/)
+KBO( :, 2,28,13) = (/&
+&3.9383E+00_JPRB,8.1625E+00_JPRB,1.3501E+01_JPRB,1.7502E+01_JPRB,2.1637E+01_JPRB/)
+KBO( :, 3,28,13) = (/&
+&5.0899E+00_JPRB,8.4137E+00_JPRB,1.3570E+01_JPRB,1.7504E+01_JPRB,2.1054E+01_JPRB/)
+KBO( :, 4,28,13) = (/&
+&6.4309E+00_JPRB,8.7658E+00_JPRB,1.3582E+01_JPRB,1.7435E+01_JPRB,2.0443E+01_JPRB/)
+KBO( :, 5,28,13) = (/&
+&7.9687E+00_JPRB,9.2612E+00_JPRB,1.3583E+01_JPRB,1.7274E+01_JPRB,1.9806E+01_JPRB/)
+KBO( :, 1,29,13) = (/&
+&2.7798E+00_JPRB,8.2996E+00_JPRB,1.4029E+01_JPRB,1.8369E+01_JPRB,2.3056E+01_JPRB/)
+KBO( :, 2,29,13) = (/&
+&3.6961E+00_JPRB,8.4616E+00_JPRB,1.4123E+01_JPRB,1.8351E+01_JPRB,2.2490E+01_JPRB/)
+KBO( :, 3,29,13) = (/&
+&4.7900E+00_JPRB,8.6571E+00_JPRB,1.4153E+01_JPRB,1.8339E+01_JPRB,2.1869E+01_JPRB/)
+KBO( :, 4,29,13) = (/&
+&6.0802E+00_JPRB,8.9313E+00_JPRB,1.4117E+01_JPRB,1.8214E+01_JPRB,2.1214E+01_JPRB/)
+KBO( :, 5,29,13) = (/&
+&7.5801E+00_JPRB,9.3590E+00_JPRB,1.4065E+01_JPRB,1.8003E+01_JPRB,2.0531E+01_JPRB/)
+KBO( :, 1,30,13) = (/&
+&2.6097E+00_JPRB,8.5908E+00_JPRB,1.4603E+01_JPRB,1.9121E+01_JPRB,2.3810E+01_JPRB/)
+KBO( :, 2,30,13) = (/&
+&3.4798E+00_JPRB,8.7177E+00_JPRB,1.4662E+01_JPRB,1.9123E+01_JPRB,2.3210E+01_JPRB/)
+KBO( :, 3,30,13) = (/&
+&4.5355E+00_JPRB,8.8683E+00_JPRB,1.4648E+01_JPRB,1.9056E+01_JPRB,2.2548E+01_JPRB/)
+KBO( :, 4,30,13) = (/&
+&5.7939E+00_JPRB,9.0839E+00_JPRB,1.4573E+01_JPRB,1.8881E+01_JPRB,2.1848E+01_JPRB/)
+KBO( :, 5,30,13) = (/&
+&7.2765E+00_JPRB,9.4615E+00_JPRB,1.4472E+01_JPRB,1.8622E+01_JPRB,2.1123E+01_JPRB/)
+KBO( :, 1,31,13) = (/&
+&2.4675E+00_JPRB,8.8387E+00_JPRB,1.5097E+01_JPRB,1.9786E+01_JPRB,2.4442E+01_JPRB/)
+KBO( :, 2,31,13) = (/&
+&3.3065E+00_JPRB,8.9332E+00_JPRB,1.5120E+01_JPRB,1.9782E+01_JPRB,2.3801E+01_JPRB/)
+KBO( :, 3,31,13) = (/&
+&4.3370E+00_JPRB,9.0438E+00_JPRB,1.5067E+01_JPRB,1.9662E+01_JPRB,2.3103E+01_JPRB/)
+KBO( :, 4,31,13) = (/&
+&5.5801E+00_JPRB,9.2263E+00_JPRB,1.4955E+01_JPRB,1.9437E+01_JPRB,2.2362E+01_JPRB/)
+KBO( :, 5,31,13) = (/&
+&7.0509E+00_JPRB,9.5653E+00_JPRB,1.4810E+01_JPRB,1.9130E+01_JPRB,2.1597E+01_JPRB/)
+KBO( :, 1,32,13) = (/&
+&2.3570E+00_JPRB,9.0474E+00_JPRB,1.5512E+01_JPRB,2.0376E+01_JPRB,2.4941E+01_JPRB/)
+KBO( :, 2,32,13) = (/&
+&3.1778E+00_JPRB,9.1115E+00_JPRB,1.5508E+01_JPRB,2.0335E+01_JPRB,2.4268E+01_JPRB/)
+KBO( :, 3,32,13) = (/&
+&4.1934E+00_JPRB,9.1907E+00_JPRB,1.5415E+01_JPRB,2.0161E+01_JPRB,2.3538E+01_JPRB/)
+KBO( :, 4,32,13) = (/&
+&5.4301E+00_JPRB,9.3557E+00_JPRB,1.5262E+01_JPRB,1.9889E+01_JPRB,2.2767E+01_JPRB/)
+KBO( :, 5,32,13) = (/&
+&6.9074E+00_JPRB,9.6740E+00_JPRB,1.5082E+01_JPRB,1.9542E+01_JPRB,2.1974E+01_JPRB/)
+KBO( :, 1,33,13) = (/&
+&2.2789E+00_JPRB,9.2179E+00_JPRB,1.5861E+01_JPRB,2.0884E+01_JPRB,2.5338E+01_JPRB/)
+KBO( :, 2,33,13) = (/&
+&3.0898E+00_JPRB,9.2539E+00_JPRB,1.5825E+01_JPRB,2.0788E+01_JPRB,2.4635E+01_JPRB/)
+KBO( :, 3,33,13) = (/&
+&4.1032E+00_JPRB,9.3163E+00_JPRB,1.5692E+01_JPRB,2.0569E+01_JPRB,2.3873E+01_JPRB/)
+KBO( :, 4,33,13) = (/&
+&5.3488E+00_JPRB,9.4706E+00_JPRB,1.5505E+01_JPRB,2.0254E+01_JPRB,2.3076E+01_JPRB/)
+KBO( :, 5,33,13) = (/&
+&6.8488E+00_JPRB,9.7721E+00_JPRB,1.5299E+01_JPRB,1.9864E+01_JPRB,2.2268E+01_JPRB/)
+KBO( :, 1,34,13) = (/&
+&2.2036E+00_JPRB,9.3532E+00_JPRB,1.6153E+01_JPRB,2.1306E+01_JPRB,2.5672E+01_JPRB/)
+KBO( :, 2,34,13) = (/&
+&3.0096E+00_JPRB,9.3699E+00_JPRB,1.6083E+01_JPRB,2.1168E+01_JPRB,2.4937E+01_JPRB/)
+KBO( :, 3,34,13) = (/&
+&4.0278E+00_JPRB,9.4208E+00_JPRB,1.5917E+01_JPRB,2.0905E+01_JPRB,2.4148E+01_JPRB/)
+KBO( :, 4,34,13) = (/&
+&5.2881E+00_JPRB,9.5680E+00_JPRB,1.5706E+01_JPRB,2.0553E+01_JPRB,2.3339E+01_JPRB/)
+KBO( :, 5,34,13) = (/&
+&6.8127E+00_JPRB,9.8518E+00_JPRB,1.5477E+01_JPRB,2.0124E+01_JPRB,2.2490E+01_JPRB/)
+KBO( :, 1,35,13) = (/&
+&2.0911E+00_JPRB,9.4628E+00_JPRB,1.6401E+01_JPRB,2.1656E+01_JPRB,2.5992E+01_JPRB/)
+KBO( :, 2,35,13) = (/&
+&2.8838E+00_JPRB,9.4629E+00_JPRB,1.6303E+01_JPRB,2.1492E+01_JPRB,2.5233E+01_JPRB/)
+KBO( :, 3,35,13) = (/&
+&3.8959E+00_JPRB,9.5011E+00_JPRB,1.6117E+01_JPRB,2.1198E+01_JPRB,2.4439E+01_JPRB/)
+KBO( :, 4,35,13) = (/&
+&5.1566E+00_JPRB,9.6352E+00_JPRB,1.5885E+01_JPRB,2.0818E+01_JPRB,2.3603E+01_JPRB/)
+KBO( :, 5,35,13) = (/&
+&6.6907E+00_JPRB,9.8962E+00_JPRB,1.5633E+01_JPRB,2.0364E+01_JPRB,2.2731E+01_JPRB/)
+KBO( :, 1,36,13) = (/&
+&1.9336E+00_JPRB,9.5525E+00_JPRB,1.6611E+01_JPRB,2.1959E+01_JPRB,2.6325E+01_JPRB/)
+KBO( :, 2,36,13) = (/&
+&2.7002E+00_JPRB,9.5428E+00_JPRB,1.6501E+01_JPRB,2.1782E+01_JPRB,2.5563E+01_JPRB/)
+KBO( :, 3,36,13) = (/&
+&3.6889E+00_JPRB,9.5627E+00_JPRB,1.6302E+01_JPRB,2.1472E+01_JPRB,2.4764E+01_JPRB/)
+KBO( :, 4,36,13) = (/&
+&4.9268E+00_JPRB,9.6763E+00_JPRB,1.6053E+01_JPRB,2.1074E+01_JPRB,2.3903E+01_JPRB/)
+KBO( :, 5,36,13) = (/&
+&6.4449E+00_JPRB,9.9025E+00_JPRB,1.5784E+01_JPRB,2.0602E+01_JPRB,2.3039E+01_JPRB/)
+KBO( :, 1,37,13) = (/&
+&1.7104E+00_JPRB,9.6249E+00_JPRB,1.6795E+01_JPRB,2.2228E+01_JPRB,2.6709E+01_JPRB/)
+KBO( :, 2,37,13) = (/&
+&2.4252E+00_JPRB,9.6135E+00_JPRB,1.6690E+01_JPRB,2.2061E+01_JPRB,2.5960E+01_JPRB/)
+KBO( :, 3,37,13) = (/&
+&3.3606E+00_JPRB,9.6107E+00_JPRB,1.6491E+01_JPRB,2.1757E+01_JPRB,2.5160E+01_JPRB/)
+KBO( :, 4,37,13) = (/&
+&4.5420E+00_JPRB,9.6944E+00_JPRB,1.6238E+01_JPRB,2.1356E+01_JPRB,2.4291E+01_JPRB/)
+KBO( :, 5,37,13) = (/&
+&6.0039E+00_JPRB,9.8734E+00_JPRB,1.5956E+01_JPRB,2.0878E+01_JPRB,2.3432E+01_JPRB/)
+KBO( :, 1,38,13) = (/&
+&1.5178E+00_JPRB,9.6872E+00_JPRB,1.6953E+01_JPRB,2.2459E+01_JPRB,2.7050E+01_JPRB/)
+KBO( :, 2,38,13) = (/&
+&2.1837E+00_JPRB,9.6773E+00_JPRB,1.6856E+01_JPRB,2.2300E+01_JPRB,2.6324E+01_JPRB/)
+KBO( :, 3,38,13) = (/&
+&3.0661E+00_JPRB,9.6576E+00_JPRB,1.6660E+01_JPRB,2.2007E+01_JPRB,2.5527E+01_JPRB/)
+KBO( :, 4,38,13) = (/&
+&4.1937E+00_JPRB,9.7120E+00_JPRB,1.6406E+01_JPRB,2.1607E+01_JPRB,2.4654E+01_JPRB/)
+KBO( :, 5,38,13) = (/&
+&5.6039E+00_JPRB,9.8559E+00_JPRB,1.6114E+01_JPRB,2.1125E+01_JPRB,2.3814E+01_JPRB/)
+KBO( :, 1,39,13) = (/&
+&1.3554E+00_JPRB,9.7390E+00_JPRB,1.7088E+01_JPRB,2.2653E+01_JPRB,2.7361E+01_JPRB/)
+KBO( :, 2,39,13) = (/&
+&1.9775E+00_JPRB,9.7313E+00_JPRB,1.6998E+01_JPRB,2.2506E+01_JPRB,2.6660E+01_JPRB/)
+KBO( :, 3,39,13) = (/&
+&2.8107E+00_JPRB,9.7018E+00_JPRB,1.6808E+01_JPRB,2.2224E+01_JPRB,2.5863E+01_JPRB/)
+KBO( :, 4,39,13) = (/&
+&3.8900E+00_JPRB,9.7305E+00_JPRB,1.6552E+01_JPRB,2.1827E+01_JPRB,2.4995E+01_JPRB/)
+KBO( :, 5,39,13) = (/&
+&5.2496E+00_JPRB,9.8477E+00_JPRB,1.6251E+01_JPRB,2.1343E+01_JPRB,2.4180E+01_JPRB/)
+KBO( :, 1,40,13) = (/&
+&1.1681E+00_JPRB,9.7791E+00_JPRB,1.7201E+01_JPRB,2.2818E+01_JPRB,2.7695E+01_JPRB/)
+KBO( :, 2,40,13) = (/&
+&1.7299E+00_JPRB,9.7827E+00_JPRB,1.7132E+01_JPRB,2.2703E+01_JPRB,2.7023E+01_JPRB/)
+KBO( :, 3,40,13) = (/&
+&2.4946E+00_JPRB,9.7467E+00_JPRB,1.6955E+01_JPRB,2.2448E+01_JPRB,2.6240E+01_JPRB/)
+KBO( :, 4,40,13) = (/&
+&3.5017E+00_JPRB,9.7482E+00_JPRB,1.6709E+01_JPRB,2.2060E+01_JPRB,2.5376E+01_JPRB/)
+KBO( :, 5,40,13) = (/&
+&4.7836E+00_JPRB,9.8329E+00_JPRB,1.6405E+01_JPRB,2.1591E+01_JPRB,2.4561E+01_JPRB/)
+KBO( :, 1,41,13) = (/&
+&1.0033E+00_JPRB,9.8102E+00_JPRB,1.7286E+01_JPRB,2.2943E+01_JPRB,2.8002E+01_JPRB/)
+KBO( :, 2,41,13) = (/&
+&1.5079E+00_JPRB,9.8257E+00_JPRB,1.7243E+01_JPRB,2.2872E+01_JPRB,2.7362E+01_JPRB/)
+KBO( :, 3,41,13) = (/&
+&2.2063E+00_JPRB,9.7913E+00_JPRB,1.7089E+01_JPRB,2.2643E+01_JPRB,2.6601E+01_JPRB/)
+KBO( :, 4,41,13) = (/&
+&3.1401E+00_JPRB,9.7698E+00_JPRB,1.6851E+01_JPRB,2.2278E+01_JPRB,2.5742E+01_JPRB/)
+KBO( :, 5,41,13) = (/&
+&4.3440E+00_JPRB,9.8243E+00_JPRB,1.6560E+01_JPRB,2.1826E+01_JPRB,2.4926E+01_JPRB/)
+KBO( :, 1,42,13) = (/&
+&8.6335E-01_JPRB,9.8273E+00_JPRB,1.7356E+01_JPRB,2.3044E+01_JPRB,2.8283E+01_JPRB/)
+KBO( :, 2,42,13) = (/&
+&1.3157E+00_JPRB,9.8564E+00_JPRB,1.7335E+01_JPRB,2.3007E+01_JPRB,2.7677E+01_JPRB/)
+KBO( :, 3,42,13) = (/&
+&1.9522E+00_JPRB,9.8313E+00_JPRB,1.7204E+01_JPRB,2.2814E+01_JPRB,2.6940E+01_JPRB/)
+KBO( :, 4,42,13) = (/&
+&2.8149E+00_JPRB,9.7926E+00_JPRB,1.6984E+01_JPRB,2.2480E+01_JPRB,2.6086E+01_JPRB/)
+KBO( :, 5,42,13) = (/&
+&3.9427E+00_JPRB,9.8251E+00_JPRB,1.6704E+01_JPRB,2.2040E+01_JPRB,2.5280E+01_JPRB/)
+KBO( :, 1,43,13) = (/&
+&7.2508E-01_JPRB,9.8337E+00_JPRB,1.7398E+01_JPRB,2.3109E+01_JPRB,2.8558E+01_JPRB/)
+KBO( :, 2,43,13) = (/&
+&1.1220E+00_JPRB,9.8829E+00_JPRB,1.7414E+01_JPRB,2.3123E+01_JPRB,2.7999E+01_JPRB/)
+KBO( :, 3,43,13) = (/&
+&1.6895E+00_JPRB,9.8684E+00_JPRB,1.7314E+01_JPRB,2.2973E+01_JPRB,2.7299E+01_JPRB/)
+KBO( :, 4,43,13) = (/&
+&2.4716E+00_JPRB,9.8264E+00_JPRB,1.7115E+01_JPRB,2.2681E+01_JPRB,2.6464E+01_JPRB/)
+KBO( :, 5,43,13) = (/&
+&3.5092E+00_JPRB,9.8254E+00_JPRB,1.6846E+01_JPRB,2.2258E+01_JPRB,2.5655E+01_JPRB/)
+KBO( :, 1,44,13) = (/&
+&6.0013E-01_JPRB,9.8242E+00_JPRB,1.7407E+01_JPRB,2.3147E+01_JPRB,2.8810E+01_JPRB/)
+KBO( :, 2,44,13) = (/&
+&9.4539E-01_JPRB,9.8972E+00_JPRB,1.7468E+01_JPRB,2.3207E+01_JPRB,2.8309E+01_JPRB/)
+KBO( :, 3,44,13) = (/&
+&1.4447E+00_JPRB,9.9041E+00_JPRB,1.7409E+01_JPRB,2.3114E+01_JPRB,2.7658E+01_JPRB/)
+KBO( :, 4,44,13) = (/&
+&2.1455E+00_JPRB,9.8623E+00_JPRB,1.7235E+01_JPRB,2.2860E+01_JPRB,2.6847E+01_JPRB/)
+KBO( :, 5,44,13) = (/&
+&3.0884E+00_JPRB,9.8324E+00_JPRB,1.6982E+01_JPRB,2.2470E+01_JPRB,2.6041E+01_JPRB/)
+KBO( :, 1,45,13) = (/&
+&4.9465E-01_JPRB,9.7992E+00_JPRB,1.7389E+01_JPRB,2.3167E+01_JPRB,2.9031E+01_JPRB/)
+KBO( :, 2,45,13) = (/&
+&7.9499E-01_JPRB,9.8981E+00_JPRB,1.7509E+01_JPRB,2.3257E+01_JPRB,2.8598E+01_JPRB/)
+KBO( :, 3,45,13) = (/&
+&1.2327E+00_JPRB,9.9225E+00_JPRB,1.7478E+01_JPRB,2.3219E+01_JPRB,2.7995E+01_JPRB/)
+KBO( :, 4,45,13) = (/&
+&1.8567E+00_JPRB,9.8915E+00_JPRB,1.7341E+01_JPRB,2.3018E+01_JPRB,2.7214E+01_JPRB/)
+KBO( :, 5,45,13) = (/&
+&2.7102E+00_JPRB,9.8493E+00_JPRB,1.7115E+01_JPRB,2.2672E+01_JPRB,2.6426E+01_JPRB/)
+KBO( :, 1,46,13) = (/&
+&4.0155E-01_JPRB,9.7565E+00_JPRB,1.7327E+01_JPRB,2.3150E+01_JPRB,2.9223E+01_JPRB/)
+KBO( :, 2,46,13) = (/&
+&6.5885E-01_JPRB,9.8895E+00_JPRB,1.7519E+01_JPRB,2.3282E+01_JPRB,2.8865E+01_JPRB/)
+KBO( :, 3,46,13) = (/&
+&1.0393E+00_JPRB,9.9389E+00_JPRB,1.7538E+01_JPRB,2.3304E+01_JPRB,2.8321E+01_JPRB/)
+KBO( :, 4,46,13) = (/&
+&1.5881E+00_JPRB,9.9248E+00_JPRB,1.7436E+01_JPRB,2.3155E+01_JPRB,2.7586E+01_JPRB/)
+KBO( :, 5,46,13) = (/&
+&2.3518E+00_JPRB,9.8787E+00_JPRB,1.7232E+01_JPRB,2.2856E+01_JPRB,2.6820E+01_JPRB/)
+KBO( :, 1,47,13) = (/&
+&3.1717E-01_JPRB,9.6922E+00_JPRB,1.7208E+01_JPRB,2.3094E+01_JPRB,2.9376E+01_JPRB/)
+KBO( :, 2,47,13) = (/&
+&5.3176E-01_JPRB,9.8626E+00_JPRB,1.7496E+01_JPRB,2.3281E+01_JPRB,2.9106E+01_JPRB/)
+KBO( :, 3,47,13) = (/&
+&8.5644E-01_JPRB,9.9410E+00_JPRB,1.7572E+01_JPRB,2.3352E+01_JPRB,2.8639E+01_JPRB/)
+KBO( :, 4,47,13) = (/&
+&1.3291E+00_JPRB,9.9482E+00_JPRB,1.7517E+01_JPRB,2.3272E+01_JPRB,2.7966E+01_JPRB/)
+KBO( :, 5,47,13) = (/&
+&1.9994E+00_JPRB,9.9068E+00_JPRB,1.7348E+01_JPRB,2.3029E+01_JPRB,2.7224E+01_JPRB/)
+KBO( :, 1,48,13) = (/&
+&2.4862E-01_JPRB,9.6017E+00_JPRB,1.7047E+01_JPRB,2.3003E+01_JPRB,2.9483E+01_JPRB/)
+KBO( :, 2,48,13) = (/&
+&4.2613E-01_JPRB,9.8140E+00_JPRB,1.7433E+01_JPRB,2.3259E+01_JPRB,2.9313E+01_JPRB/)
+KBO( :, 3,48,13) = (/&
+&7.0129E-01_JPRB,9.9267E+00_JPRB,1.7586E+01_JPRB,2.3367E+01_JPRB,2.8930E+01_JPRB/)
+KBO( :, 4,48,13) = (/&
+&1.1072E+00_JPRB,9.9609E+00_JPRB,1.7574E+01_JPRB,2.3356E+01_JPRB,2.8330E+01_JPRB/)
+KBO( :, 5,48,13) = (/&
+&1.6909E+00_JPRB,9.9361E+00_JPRB,1.7449E+01_JPRB,2.3177E+01_JPRB,2.7634E+01_JPRB/)
+KBO( :, 1,49,13) = (/&
+&1.9264E-01_JPRB,9.4936E+00_JPRB,1.6831E+01_JPRB,2.2884E+01_JPRB,2.9536E+01_JPRB/)
+KBO( :, 2,49,13) = (/&
+&3.3927E-01_JPRB,9.7516E+00_JPRB,1.7325E+01_JPRB,2.3198E+01_JPRB,2.9479E+01_JPRB/)
+KBO( :, 3,49,13) = (/&
+&5.6996E-01_JPRB,9.9055E+00_JPRB,1.7565E+01_JPRB,2.3359E+01_JPRB,2.9191E+01_JPRB/)
+KBO( :, 4,49,13) = (/&
+&9.1758E-01_JPRB,9.9664E+00_JPRB,1.7609E+01_JPRB,2.3411E+01_JPRB,2.8684E+01_JPRB/)
+KBO( :, 5,49,13) = (/&
+&1.4225E+00_JPRB,9.9636E+00_JPRB,1.7532E+01_JPRB,2.3297E+01_JPRB,2.8060E+01_JPRB/)
+KBO( :, 1,50,13) = (/&
+&1.4991E-01_JPRB,9.3720E+00_JPRB,1.6585E+01_JPRB,2.2746E+01_JPRB,2.9526E+01_JPRB/)
+KBO( :, 2,50,13) = (/&
+&2.7206E-01_JPRB,9.6777E+00_JPRB,1.7184E+01_JPRB,2.3116E+01_JPRB,2.9581E+01_JPRB/)
+KBO( :, 3,50,13) = (/&
+&4.6587E-01_JPRB,9.8653E+00_JPRB,1.7520E+01_JPRB,2.3339E+01_JPRB,2.9394E+01_JPRB/)
+KBO( :, 4,50,13) = (/&
+&7.6520E-01_JPRB,9.9556E+00_JPRB,1.7628E+01_JPRB,2.3427E+01_JPRB,2.8975E+01_JPRB/)
+KBO( :, 5,50,13) = (/&
+&1.2040E+00_JPRB,9.9732E+00_JPRB,1.7585E+01_JPRB,2.3377E+01_JPRB,2.8410E+01_JPRB/)
+KBO( :, 1,51,13) = (/&
+&1.1613E-01_JPRB,9.2274E+00_JPRB,1.6313E+01_JPRB,2.2591E+01_JPRB,2.9458E+01_JPRB/)
+KBO( :, 2,51,13) = (/&
+&2.1747E-01_JPRB,9.5837E+00_JPRB,1.7015E+01_JPRB,2.3015E+01_JPRB,2.9634E+01_JPRB/)
+KBO( :, 3,51,13) = (/&
+&3.8080E-01_JPRB,9.8127E+00_JPRB,1.7438E+01_JPRB,2.3293E+01_JPRB,2.9540E+01_JPRB/)
+KBO( :, 4,51,13) = (/&
+&6.3740E-01_JPRB,9.9403E+00_JPRB,1.7621E+01_JPRB,2.3422E+01_JPRB,2.9215E+01_JPRB/)
+KBO( :, 5,51,13) = (/&
+&1.0193E+00_JPRB,9.9828E+00_JPRB,1.7629E+01_JPRB,2.3438E+01_JPRB,2.8716E+01_JPRB/)
+KBO( :, 1,52,13) = (/&
+&8.8830E-02_JPRB,9.0603E+00_JPRB,1.6002E+01_JPRB,2.2409E+01_JPRB,2.9330E+01_JPRB/)
+KBO( :, 2,52,13) = (/&
+&1.7228E-01_JPRB,9.4776E+00_JPRB,1.6796E+01_JPRB,2.2887E+01_JPRB,2.9643E+01_JPRB/)
+KBO( :, 3,52,13) = (/&
+&3.0974E-01_JPRB,9.7502E+00_JPRB,1.7322E+01_JPRB,2.3223E+01_JPRB,2.9659E+01_JPRB/)
+KBO( :, 4,52,13) = (/&
+&5.2763E-01_JPRB,9.9116E+00_JPRB,1.7589E+01_JPRB,2.3402E+01_JPRB,2.9438E+01_JPRB/)
+KBO( :, 5,52,13) = (/&
+&8.5949E-01_JPRB,9.9800E+00_JPRB,1.7648E+01_JPRB,2.3465E+01_JPRB,2.9019E+01_JPRB/)
+KBO( :, 1,53,13) = (/&
+&6.6880E-02_JPRB,8.8647E+00_JPRB,1.5677E+01_JPRB,2.2193E+01_JPRB,2.9155E+01_JPRB/)
+KBO( :, 2,53,13) = (/&
+&1.3508E-01_JPRB,9.3494E+00_JPRB,1.6545E+01_JPRB,2.2742E+01_JPRB,2.9618E+01_JPRB/)
+KBO( :, 3,53,13) = (/&
+&2.5013E-01_JPRB,9.6673E+00_JPRB,1.7171E+01_JPRB,2.3128E+01_JPRB,2.9750E+01_JPRB/)
+KBO( :, 4,53,13) = (/&
+&4.3419E-01_JPRB,9.8656E+00_JPRB,1.7531E+01_JPRB,2.3368E+01_JPRB,2.9650E+01_JPRB/)
+KBO( :, 5,53,13) = (/&
+&7.2052E-01_JPRB,9.9643E+00_JPRB,1.7656E+01_JPRB,2.3466E+01_JPRB,2.9335E+01_JPRB/)
+KBO( :, 1,54,13) = (/&
+&5.0839E-02_JPRB,8.6560E+00_JPRB,1.5373E+01_JPRB,2.1974E+01_JPRB,2.8918E+01_JPRB/)
+KBO( :, 2,54,13) = (/&
+&1.0673E-01_JPRB,9.2095E+00_JPRB,1.6282E+01_JPRB,2.2589E+01_JPRB,2.9523E+01_JPRB/)
+KBO( :, 3,54,13) = (/&
+&2.0374E-01_JPRB,9.5773E+00_JPRB,1.7000E+01_JPRB,2.3024E+01_JPRB,2.9743E+01_JPRB/)
+KBO( :, 4,54,13) = (/&
+&3.6116E-01_JPRB,9.8132E+00_JPRB,1.7444E+01_JPRB,2.3313E+01_JPRB,2.9733E+01_JPRB/)
+KBO( :, 5,54,13) = (/&
+&6.0938E-01_JPRB,9.9478E+00_JPRB,1.7641E+01_JPRB,2.3452E+01_JPRB,2.9479E+01_JPRB/)
+KBO( :, 1,55,13) = (/&
+&3.8590E-02_JPRB,8.4380E+00_JPRB,1.5071E+01_JPRB,2.1738E+01_JPRB,2.8629E+01_JPRB/)
+KBO( :, 2,55,13) = (/&
+&8.4187E-02_JPRB,9.0594E+00_JPRB,1.6002E+01_JPRB,2.2420E+01_JPRB,2.9369E+01_JPRB/)
+KBO( :, 3,55,13) = (/&
+&1.6606E-01_JPRB,9.4812E+00_JPRB,1.6803E+01_JPRB,2.2906E+01_JPRB,2.9692E+01_JPRB/)
+KBO( :, 4,55,13) = (/&
+&3.0143E-01_JPRB,9.7562E+00_JPRB,1.7333E+01_JPRB,2.3245E+01_JPRB,2.9737E+01_JPRB/)
+KBO( :, 5,55,13) = (/&
+&5.1631E-01_JPRB,9.9193E+00_JPRB,1.7608E+01_JPRB,2.3429E+01_JPRB,2.9535E+01_JPRB/)
+KBO( :, 1,56,13) = (/&
+&2.8925E-02_JPRB,8.1981E+00_JPRB,1.4756E+01_JPRB,2.1468E+01_JPRB,2.8292E+01_JPRB/)
+KBO( :, 2,56,13) = (/&
+&6.5661E-02_JPRB,8.8869E+00_JPRB,1.5713E+01_JPRB,2.2226E+01_JPRB,2.9164E+01_JPRB/)
+KBO( :, 3,56,13) = (/&
+&1.3426E-01_JPRB,9.3664E+00_JPRB,1.6578E+01_JPRB,2.2772E+01_JPRB,2.9626E+01_JPRB/)
+KBO( :, 4,56,13) = (/&
+&2.5023E-01_JPRB,9.6820E+00_JPRB,1.7199E+01_JPRB,2.3159E+01_JPRB,2.9723E+01_JPRB/)
+KBO( :, 5,56,13) = (/&
+&4.3568E-01_JPRB,9.8776E+00_JPRB,1.7553E+01_JPRB,2.3395E+01_JPRB,2.9592E+01_JPRB/)
+KBO( :, 1,57,13) = (/&
+&2.1373E-02_JPRB,7.9379E+00_JPRB,1.4433E+01_JPRB,2.1148E+01_JPRB,2.7903E+01_JPRB/)
+KBO( :, 2,57,13) = (/&
+&5.0645E-02_JPRB,8.6879E+00_JPRB,1.5420E+01_JPRB,2.2015E+01_JPRB,2.8928E+01_JPRB/)
+KBO( :, 3,57,13) = (/&
+&1.0745E-01_JPRB,9.2330E+00_JPRB,1.6328E+01_JPRB,2.2623E+01_JPRB,2.9512E+01_JPRB/)
+KBO( :, 4,57,13) = (/&
+&2.0610E-01_JPRB,9.5955E+00_JPRB,1.7038E+01_JPRB,2.3057E+01_JPRB,2.9704E+01_JPRB/)
+KBO( :, 5,57,13) = (/&
+&3.6599E-01_JPRB,9.8279E+00_JPRB,1.7470E+01_JPRB,2.3341E+01_JPRB,2.9632E+01_JPRB/)
+KBO( :, 1,58,13) = (/&
+&1.5800E-02_JPRB,7.6756E+00_JPRB,1.4130E+01_JPRB,2.0811E+01_JPRB,2.7488E+01_JPRB/)
+KBO( :, 2,58,13) = (/&
+&3.9154E-02_JPRB,8.4827E+00_JPRB,1.5134E+01_JPRB,2.1791E+01_JPRB,2.8663E+01_JPRB/)
+KBO( :, 3,58,13) = (/&
+&8.6058E-02_JPRB,9.0936E+00_JPRB,1.6064E+01_JPRB,2.2465E+01_JPRB,2.9358E+01_JPRB/)
+KBO( :, 4,58,13) = (/&
+&1.7024E-01_JPRB,9.5047E+00_JPRB,1.6851E+01_JPRB,2.2942E+01_JPRB,2.9664E+01_JPRB/)
+KBO( :, 5,58,13) = (/&
+&3.0899E-01_JPRB,9.7734E+00_JPRB,1.7367E+01_JPRB,2.3275E+01_JPRB,2.9640E+01_JPRB/)
+KBO( :, 1,59,13) = (/&
+&1.3838E-02_JPRB,7.5677E+00_JPRB,1.4007E+01_JPRB,2.0664E+01_JPRB,2.7307E+01_JPRB/)
+KBO( :, 2,59,13) = (/&
+&3.5056E-02_JPRB,8.3966E+00_JPRB,1.5017E+01_JPRB,2.1696E+01_JPRB,2.8542E+01_JPRB/)
+KBO( :, 3,59,13) = (/&
+&7.8363E-02_JPRB,9.0327E+00_JPRB,1.5954E+01_JPRB,2.2395E+01_JPRB,2.9259E+01_JPRB/)
+KBO( :, 4,59,13) = (/&
+&1.5720E-01_JPRB,9.4649E+00_JPRB,1.6772E+01_JPRB,2.2896E+01_JPRB,2.9587E+01_JPRB/)
+KBO( :, 5,59,13) = (/&
+&2.8816E-01_JPRB,9.7494E+00_JPRB,1.7321E+01_JPRB,2.3246E+01_JPRB,2.9569E+01_JPRB/)
+KBO( :, 1,13,14) = (/&
+&4.6782E+00_JPRB,3.6509E+00_JPRB,4.2069E+00_JPRB,5.5965E+00_JPRB,7.3161E+00_JPRB/)
+KBO( :, 2,13,14) = (/&
+&6.6812E+00_JPRB,5.1302E+00_JPRB,4.5042E+00_JPRB,5.7107E+00_JPRB,7.2956E+00_JPRB/)
+KBO( :, 3,13,14) = (/&
+&9.0802E+00_JPRB,6.9191E+00_JPRB,5.0854E+00_JPRB,5.8389E+00_JPRB,7.2254E+00_JPRB/)
+KBO( :, 4,13,14) = (/&
+&1.1847E+01_JPRB,8.9860E+00_JPRB,6.1879E+00_JPRB,5.9827E+00_JPRB,7.1308E+00_JPRB/)
+KBO( :, 5,13,14) = (/&
+&1.4944E+01_JPRB,1.1307E+01_JPRB,7.6807E+00_JPRB,6.1087E+00_JPRB,7.0090E+00_JPRB/)
+KBO( :, 1,14,14) = (/&
+&4.9923E+00_JPRB,3.8888E+00_JPRB,4.7381E+00_JPRB,6.4037E+00_JPRB,8.3224E+00_JPRB/)
+KBO( :, 2,14,14) = (/&
+&7.1439E+00_JPRB,5.4635E+00_JPRB,4.9958E+00_JPRB,6.5120E+00_JPRB,8.2505E+00_JPRB/)
+KBO( :, 3,14,14) = (/&
+&9.7357E+00_JPRB,7.4026E+00_JPRB,5.5402E+00_JPRB,6.6306E+00_JPRB,8.1450E+00_JPRB/)
+KBO( :, 4,14,14) = (/&
+&1.2709E+01_JPRB,9.6301E+00_JPRB,6.6722E+00_JPRB,6.7341E+00_JPRB,8.0104E+00_JPRB/)
+KBO( :, 5,14,14) = (/&
+&1.6035E+01_JPRB,1.2120E+01_JPRB,8.2226E+00_JPRB,6.8436E+00_JPRB,7.8600E+00_JPRB/)
+KBO( :, 1,15,14) = (/&
+&5.4062E+00_JPRB,4.2107E+00_JPRB,5.3329E+00_JPRB,7.2809E+00_JPRB,9.4098E+00_JPRB/)
+KBO( :, 2,15,14) = (/&
+&7.7383E+00_JPRB,5.9068E+00_JPRB,5.5826E+00_JPRB,7.3825E+00_JPRB,9.2906E+00_JPRB/)
+KBO( :, 3,15,14) = (/&
+&1.0510E+01_JPRB,7.9793E+00_JPRB,6.1638E+00_JPRB,7.4874E+00_JPRB,9.1316E+00_JPRB/)
+KBO( :, 4,15,14) = (/&
+&1.3725E+01_JPRB,1.0385E+01_JPRB,7.2775E+00_JPRB,7.5682E+00_JPRB,8.9529E+00_JPRB/)
+KBO( :, 5,15,14) = (/&
+&1.7334E+01_JPRB,1.3091E+01_JPRB,8.9110E+00_JPRB,7.6564E+00_JPRB,8.7607E+00_JPRB/)
+KBO( :, 1,16,14) = (/&
+&5.9070E+00_JPRB,4.6227E+00_JPRB,6.0140E+00_JPRB,8.2333E+00_JPRB,1.0600E+01_JPRB/)
+KBO( :, 2,16,14) = (/&
+&8.4297E+00_JPRB,6.4209E+00_JPRB,6.2881E+00_JPRB,8.3090E+00_JPRB,1.0416E+01_JPRB/)
+KBO( :, 3,16,14) = (/&
+&1.1476E+01_JPRB,8.7000E+00_JPRB,6.9539E+00_JPRB,8.3944E+00_JPRB,1.0210E+01_JPRB/)
+KBO( :, 4,16,14) = (/&
+&1.4985E+01_JPRB,1.1333E+01_JPRB,8.0898E+00_JPRB,8.4541E+00_JPRB,9.9887E+00_JPRB/)
+KBO( :, 5,16,14) = (/&
+&1.8893E+01_JPRB,1.4263E+01_JPRB,9.7433E+00_JPRB,8.5272E+00_JPRB,9.7516E+00_JPRB/)
+KBO( :, 1,17,14) = (/&
+&6.5286E+00_JPRB,5.1327E+00_JPRB,6.7700E+00_JPRB,9.2670E+00_JPRB,1.1882E+01_JPRB/)
+KBO( :, 2,17,14) = (/&
+&9.3114E+00_JPRB,7.0853E+00_JPRB,7.1236E+00_JPRB,9.3227E+00_JPRB,1.1650E+01_JPRB/)
+KBO( :, 3,17,14) = (/&
+&1.2634E+01_JPRB,9.5700E+00_JPRB,7.8705E+00_JPRB,9.3681E+00_JPRB,1.1400E+01_JPRB/)
+KBO( :, 4,17,14) = (/&
+&1.6437E+01_JPRB,1.2419E+01_JPRB,9.0210E+00_JPRB,9.4013E+00_JPRB,1.1124E+01_JPRB/)
+KBO( :, 5,17,14) = (/&
+&2.0695E+01_JPRB,1.5610E+01_JPRB,1.0717E+01_JPRB,9.5036E+00_JPRB,1.0836E+01_JPRB/)
+KBO( :, 1,18,14) = (/&
+&7.2317E+00_JPRB,5.7331E+00_JPRB,7.5895E+00_JPRB,1.0388E+01_JPRB,1.3283E+01_JPRB/)
+KBO( :, 2,18,14) = (/&
+&1.0272E+01_JPRB,7.8128E+00_JPRB,8.0485E+00_JPRB,1.0408E+01_JPRB,1.2989E+01_JPRB/)
+KBO( :, 3,18,14) = (/&
+&1.3865E+01_JPRB,1.0490E+01_JPRB,8.8399E+00_JPRB,1.0411E+01_JPRB,1.2668E+01_JPRB/)
+KBO( :, 4,18,14) = (/&
+&1.8001E+01_JPRB,1.3591E+01_JPRB,1.0044E+01_JPRB,1.0415E+01_JPRB,1.2336E+01_JPRB/)
+KBO( :, 5,18,14) = (/&
+&2.2607E+01_JPRB,1.7043E+01_JPRB,1.1818E+01_JPRB,1.0584E+01_JPRB,1.2000E+01_JPRB/)
+KBO( :, 1,19,14) = (/&
+&7.9818E+00_JPRB,6.4241E+00_JPRB,8.4744E+00_JPRB,1.1590E+01_JPRB,1.4808E+01_JPRB/)
+KBO( :, 2,19,14) = (/&
+&1.1265E+01_JPRB,8.5751E+00_JPRB,9.0608E+00_JPRB,1.1546E+01_JPRB,1.4436E+01_JPRB/)
+KBO( :, 3,19,14) = (/&
+&1.5159E+01_JPRB,1.1457E+01_JPRB,9.8998E+00_JPRB,1.1494E+01_JPRB,1.4048E+01_JPRB/)
+KBO( :, 4,19,14) = (/&
+&1.9623E+01_JPRB,1.4803E+01_JPRB,1.1193E+01_JPRB,1.1515E+01_JPRB,1.3659E+01_JPRB/)
+KBO( :, 5,19,14) = (/&
+&2.4552E+01_JPRB,1.8498E+01_JPRB,1.3028E+01_JPRB,1.1768E+01_JPRB,1.3289E+01_JPRB/)
+KBO( :, 1,20,14) = (/&
+&8.8016E+00_JPRB,7.2179E+00_JPRB,9.4445E+00_JPRB,1.2859E+01_JPRB,1.6432E+01_JPRB/)
+KBO( :, 2,20,14) = (/&
+&1.2354E+01_JPRB,9.4599E+00_JPRB,1.0108E+01_JPRB,1.2760E+01_JPRB,1.5989E+01_JPRB/)
+KBO( :, 3,20,14) = (/&
+&1.6553E+01_JPRB,1.2501E+01_JPRB,1.1094E+01_JPRB,1.2659E+01_JPRB,1.5545E+01_JPRB/)
+KBO( :, 4,20,14) = (/&
+&2.1320E+01_JPRB,1.6075E+01_JPRB,1.2479E+01_JPRB,1.2712E+01_JPRB,1.5125E+01_JPRB/)
+KBO( :, 5,20,14) = (/&
+&2.6584E+01_JPRB,2.0023E+01_JPRB,1.4364E+01_JPRB,1.3028E+01_JPRB,1.4722E+01_JPRB/)
+KBO( :, 1,21,14) = (/&
+&9.6531E+00_JPRB,8.0964E+00_JPRB,1.0501E+01_JPRB,1.4235E+01_JPRB,1.8234E+01_JPRB/)
+KBO( :, 2,21,14) = (/&
+&1.3477E+01_JPRB,1.0427E+01_JPRB,1.1223E+01_JPRB,1.4069E+01_JPRB,1.7720E+01_JPRB/)
+KBO( :, 3,21,14) = (/&
+&1.7944E+01_JPRB,1.3555E+01_JPRB,1.2376E+01_JPRB,1.3942E+01_JPRB,1.7224E+01_JPRB/)
+KBO( :, 4,21,14) = (/&
+&2.3006E+01_JPRB,1.7340E+01_JPRB,1.3886E+01_JPRB,1.4053E+01_JPRB,1.6755E+01_JPRB/)
+KBO( :, 5,21,14) = (/&
+&2.8574E+01_JPRB,2.1516E+01_JPRB,1.5811E+01_JPRB,1.4416E+01_JPRB,1.6302E+01_JPRB/)
+KBO( :, 1,22,14) = (/&
+&1.0760E+01_JPRB,9.1888E+00_JPRB,1.1695E+01_JPRB,1.5745E+01_JPRB,2.0205E+01_JPRB/)
+KBO( :, 2,22,14) = (/&
+&1.4853E+01_JPRB,1.1640E+01_JPRB,1.2517E+01_JPRB,1.5515E+01_JPRB,1.9617E+01_JPRB/)
+KBO( :, 3,22,14) = (/&
+&1.9615E+01_JPRB,1.4884E+01_JPRB,1.3822E+01_JPRB,1.5397E+01_JPRB,1.9064E+01_JPRB/)
+KBO( :, 4,22,14) = (/&
+&2.4968E+01_JPRB,1.8810E+01_JPRB,1.5484E+01_JPRB,1.5561E+01_JPRB,1.8540E+01_JPRB/)
+KBO( :, 5,22,14) = (/&
+&3.0827E+01_JPRB,2.3206E+01_JPRB,1.7456E+01_JPRB,1.5921E+01_JPRB,1.8033E+01_JPRB/)
+KBO( :, 1,23,14) = (/&
+&1.1802E+01_JPRB,1.0322E+01_JPRB,1.2998E+01_JPRB,1.7421E+01_JPRB,2.2401E+01_JPRB/)
+KBO( :, 2,23,14) = (/&
+&1.6133E+01_JPRB,1.2850E+01_JPRB,1.3921E+01_JPRB,1.7123E+01_JPRB,2.1737E+01_JPRB/)
+KBO( :, 3,23,14) = (/&
+&2.1125E+01_JPRB,1.6165E+01_JPRB,1.5339E+01_JPRB,1.7031E+01_JPRB,2.1100E+01_JPRB/)
+KBO( :, 4,23,14) = (/&
+&2.6726E+01_JPRB,2.0157E+01_JPRB,1.7101E+01_JPRB,1.7209E+01_JPRB,2.0484E+01_JPRB/)
+KBO( :, 5,23,14) = (/&
+&3.2827E+01_JPRB,2.4712E+01_JPRB,1.9081E+01_JPRB,1.7519E+01_JPRB,1.9884E+01_JPRB/)
+KBO( :, 1,24,14) = (/&
+&1.2745E+01_JPRB,1.1442E+01_JPRB,1.4445E+01_JPRB,1.9244E+01_JPRB,2.4809E+01_JPRB/)
+KBO( :, 2,24,14) = (/&
+&1.7253E+01_JPRB,1.4016E+01_JPRB,1.5441E+01_JPRB,1.8901E+01_JPRB,2.4045E+01_JPRB/)
+KBO( :, 3,24,14) = (/&
+&2.2449E+01_JPRB,1.7365E+01_JPRB,1.6912E+01_JPRB,1.8816E+01_JPRB,2.3295E+01_JPRB/)
+KBO( :, 4,24,14) = (/&
+&2.8233E+01_JPRB,2.1395E+01_JPRB,1.8672E+01_JPRB,1.8934E+01_JPRB,2.2558E+01_JPRB/)
+KBO( :, 5,24,14) = (/&
+&3.4560E+01_JPRB,2.6021E+01_JPRB,2.0658E+01_JPRB,1.9202E+01_JPRB,2.1836E+01_JPRB/)
+KBO( :, 1,25,14) = (/&
+&1.3566E+01_JPRB,1.2543E+01_JPRB,1.5996E+01_JPRB,2.1177E+01_JPRB,2.7336E+01_JPRB/)
+KBO( :, 2,25,14) = (/&
+&1.8227E+01_JPRB,1.5135E+01_JPRB,1.7035E+01_JPRB,2.0783E+01_JPRB,2.6441E+01_JPRB/)
+KBO( :, 3,25,14) = (/&
+&2.3565E+01_JPRB,1.8483E+01_JPRB,1.8488E+01_JPRB,2.0675E+01_JPRB,2.5549E+01_JPRB/)
+KBO( :, 4,25,14) = (/&
+&2.9531E+01_JPRB,2.2535E+01_JPRB,2.0204E+01_JPRB,2.0688E+01_JPRB,2.4667E+01_JPRB/)
+KBO( :, 5,25,14) = (/&
+&3.6063E+01_JPRB,2.7206E+01_JPRB,2.2162E+01_JPRB,2.0908E+01_JPRB,2.3805E+01_JPRB/)
+KBO( :, 1,26,14) = (/&
+&1.4327E+01_JPRB,1.3631E+01_JPRB,1.7595E+01_JPRB,2.3118E+01_JPRB,2.9859E+01_JPRB/)
+KBO( :, 2,26,14) = (/&
+&1.9108E+01_JPRB,1.6210E+01_JPRB,1.8663E+01_JPRB,2.2706E+01_JPRB,2.8803E+01_JPRB/)
+KBO( :, 3,26,14) = (/&
+&2.4589E+01_JPRB,1.9567E+01_JPRB,2.0048E+01_JPRB,2.2494E+01_JPRB,2.7746E+01_JPRB/)
+KBO( :, 4,26,14) = (/&
+&3.0710E+01_JPRB,2.3631E+01_JPRB,2.1693E+01_JPRB,2.2407E+01_JPRB,2.6705E+01_JPRB/)
+KBO( :, 5,26,14) = (/&
+&3.7411E+01_JPRB,2.8326E+01_JPRB,2.3613E+01_JPRB,2.2582E+01_JPRB,2.5687E+01_JPRB/)
+KBO( :, 1,27,14) = (/&
+&1.4974E+01_JPRB,1.4661E+01_JPRB,1.9208E+01_JPRB,2.5017E+01_JPRB,3.2282E+01_JPRB/)
+KBO( :, 2,27,14) = (/&
+&1.9864E+01_JPRB,1.7209E+01_JPRB,2.0231E+01_JPRB,2.4566E+01_JPRB,3.1037E+01_JPRB/)
+KBO( :, 3,27,14) = (/&
+&2.5463E+01_JPRB,2.0563E+01_JPRB,2.1528E+01_JPRB,2.4213E+01_JPRB,2.9805E+01_JPRB/)
+KBO( :, 4,27,14) = (/&
+&3.1732E+01_JPRB,2.4635E+01_JPRB,2.3113E+01_JPRB,2.4054E+01_JPRB,2.8597E+01_JPRB/)
+KBO( :, 5,27,14) = (/&
+&3.8595E+01_JPRB,2.9368E+01_JPRB,2.4984E+01_JPRB,2.4188E+01_JPRB,2.7415E+01_JPRB/)
+KBO( :, 1,28,14) = (/&
+&1.5529E+01_JPRB,1.5623E+01_JPRB,2.0763E+01_JPRB,2.6821E+01_JPRB,3.4499E+01_JPRB/)
+KBO( :, 2,28,14) = (/&
+&2.0516E+01_JPRB,1.8143E+01_JPRB,2.1720E+01_JPRB,2.6283E+01_JPRB,3.3057E+01_JPRB/)
+KBO( :, 3,28,14) = (/&
+&2.6237E+01_JPRB,2.1495E+01_JPRB,2.2921E+01_JPRB,2.5811E+01_JPRB,3.1645E+01_JPRB/)
+KBO( :, 4,28,14) = (/&
+&3.2647E+01_JPRB,2.5586E+01_JPRB,2.4438E+01_JPRB,2.5592E+01_JPRB,3.0274E+01_JPRB/)
+KBO( :, 5,28,14) = (/&
+&3.9662E+01_JPRB,3.0339E+01_JPRB,2.6263E+01_JPRB,2.5678E+01_JPRB,2.8942E+01_JPRB/)
+KBO( :, 1,29,14) = (/&
+&1.6065E+01_JPRB,1.6544E+01_JPRB,2.2216E+01_JPRB,2.8472E+01_JPRB,3.6458E+01_JPRB/)
+KBO( :, 2,29,14) = (/&
+&2.1153E+01_JPRB,1.9041E+01_JPRB,2.3104E+01_JPRB,2.7817E+01_JPRB,3.4827E+01_JPRB/)
+KBO( :, 3,29,14) = (/&
+&2.7000E+01_JPRB,2.2394E+01_JPRB,2.4221E+01_JPRB,2.7267E+01_JPRB,3.3240E+01_JPRB/)
+KBO( :, 4,29,14) = (/&
+&3.3548E+01_JPRB,2.6519E+01_JPRB,2.5679E+01_JPRB,2.7001E+01_JPRB,3.1702E+01_JPRB/)
+KBO( :, 5,29,14) = (/&
+&4.0738E+01_JPRB,3.1323E+01_JPRB,2.7457E+01_JPRB,2.7031E+01_JPRB,3.0226E+01_JPRB/)
+KBO( :, 1,30,14) = (/&
+&1.6583E+01_JPRB,1.7406E+01_JPRB,2.3544E+01_JPRB,2.9947E+01_JPRB,3.8146E+01_JPRB/)
+KBO( :, 2,30,14) = (/&
+&2.1792E+01_JPRB,1.9899E+01_JPRB,2.4353E+01_JPRB,2.9156E+01_JPRB,3.6330E+01_JPRB/)
+KBO( :, 3,30,14) = (/&
+&2.7775E+01_JPRB,2.3269E+01_JPRB,2.5405E+01_JPRB,2.8560E+01_JPRB,3.4577E+01_JPRB/)
+KBO( :, 4,30,14) = (/&
+&3.4468E+01_JPRB,2.7442E+01_JPRB,2.6816E+01_JPRB,2.8255E+01_JPRB,3.2901E+01_JPRB/)
+KBO( :, 5,30,14) = (/&
+&4.1847E+01_JPRB,3.2326E+01_JPRB,2.8565E+01_JPRB,2.8235E+01_JPRB,3.1294E+01_JPRB/)
+KBO( :, 1,31,14) = (/&
+&1.7141E+01_JPRB,1.8216E+01_JPRB,2.4732E+01_JPRB,3.1198E+01_JPRB,3.9531E+01_JPRB/)
+KBO( :, 2,31,14) = (/&
+&2.2491E+01_JPRB,2.0743E+01_JPRB,2.5474E+01_JPRB,3.0318E+01_JPRB,3.7553E+01_JPRB/)
+KBO( :, 3,31,14) = (/&
+&2.8624E+01_JPRB,2.4158E+01_JPRB,2.6485E+01_JPRB,2.9690E+01_JPRB,3.5656E+01_JPRB/)
+KBO( :, 4,31,14) = (/&
+&3.5512E+01_JPRB,2.8414E+01_JPRB,2.7854E+01_JPRB,2.9357E+01_JPRB,3.3855E+01_JPRB/)
+KBO( :, 5,31,14) = (/&
+&4.3115E+01_JPRB,3.3401E+01_JPRB,2.9611E+01_JPRB,2.9290E+01_JPRB,3.2132E+01_JPRB/)
+KBO( :, 1,32,14) = (/&
+&1.7775E+01_JPRB,1.8991E+01_JPRB,2.5780E+01_JPRB,3.2231E+01_JPRB,4.0629E+01_JPRB/)
+KBO( :, 2,32,14) = (/&
+&2.3279E+01_JPRB,2.1576E+01_JPRB,2.6467E+01_JPRB,3.1293E+01_JPRB,3.8513E+01_JPRB/)
+KBO( :, 3,32,14) = (/&
+&2.9596E+01_JPRB,2.5078E+01_JPRB,2.7453E+01_JPRB,3.0651E+01_JPRB,3.6492E+01_JPRB/)
+KBO( :, 4,32,14) = (/&
+&3.6705E+01_JPRB,2.9433E+01_JPRB,2.8819E+01_JPRB,3.0298E+01_JPRB,3.4575E+01_JPRB/)
+KBO( :, 5,32,14) = (/&
+&4.4536E+01_JPRB,3.4534E+01_JPRB,3.0584E+01_JPRB,3.0174E+01_JPRB,3.2756E+01_JPRB/)
+KBO( :, 1,33,14) = (/&
+&1.8489E+01_JPRB,1.9733E+01_JPRB,2.6684E+01_JPRB,3.3047E+01_JPRB,4.1445E+01_JPRB/)
+KBO( :, 2,33,14) = (/&
+&2.4189E+01_JPRB,2.2424E+01_JPRB,2.7346E+01_JPRB,3.2099E+01_JPRB,3.9209E+01_JPRB/)
+KBO( :, 3,33,14) = (/&
+&3.0723E+01_JPRB,2.6034E+01_JPRB,2.8320E+01_JPRB,3.1451E+01_JPRB,3.7092E+01_JPRB/)
+KBO( :, 4,33,14) = (/&
+&3.8063E+01_JPRB,3.0513E+01_JPRB,2.9704E+01_JPRB,3.1070E+01_JPRB,3.5085E+01_JPRB/)
+KBO( :, 5,33,14) = (/&
+&4.6119E+01_JPRB,3.5751E+01_JPRB,3.1499E+01_JPRB,3.0917E+01_JPRB,3.3191E+01_JPRB/)
+KBO( :, 1,34,14) = (/&
+&1.9120E+01_JPRB,2.0380E+01_JPRB,2.7451E+01_JPRB,3.3738E+01_JPRB,4.2092E+01_JPRB/)
+KBO( :, 2,34,14) = (/&
+&2.5003E+01_JPRB,2.3162E+01_JPRB,2.8086E+01_JPRB,3.2774E+01_JPRB,3.9759E+01_JPRB/)
+KBO( :, 3,34,14) = (/&
+&3.1744E+01_JPRB,2.6883E+01_JPRB,2.9061E+01_JPRB,3.2120E+01_JPRB,3.7559E+01_JPRB/)
+KBO( :, 4,34,14) = (/&
+&3.9301E+01_JPRB,3.1483E+01_JPRB,3.0464E+01_JPRB,3.1710E+01_JPRB,3.5480E+01_JPRB/)
+KBO( :, 5,34,14) = (/&
+&4.7562E+01_JPRB,3.6856E+01_JPRB,3.2292E+01_JPRB,3.1536E+01_JPRB,3.3568E+01_JPRB/)
+KBO( :, 1,35,14) = (/&
+&1.9330E+01_JPRB,2.0794E+01_JPRB,2.8053E+01_JPRB,3.4390E+01_JPRB,4.2763E+01_JPRB/)
+KBO( :, 2,35,14) = (/&
+&2.5319E+01_JPRB,2.3595E+01_JPRB,2.8656E+01_JPRB,3.3397E+01_JPRB,4.0342E+01_JPRB/)
+KBO( :, 3,35,14) = (/&
+&3.2191E+01_JPRB,2.7358E+01_JPRB,2.9608E+01_JPRB,3.2717E+01_JPRB,3.8062E+01_JPRB/)
+KBO( :, 4,35,14) = (/&
+&3.9886E+01_JPRB,3.2011E+01_JPRB,3.1003E+01_JPRB,3.2263E+01_JPRB,3.5938E+01_JPRB/)
+KBO( :, 5,35,14) = (/&
+&4.8294E+01_JPRB,3.7467E+01_JPRB,3.2840E+01_JPRB,3.2051E+01_JPRB,3.4008E+01_JPRB/)
+KBO( :, 1,36,14) = (/&
+&1.9010E+01_JPRB,2.0941E+01_JPRB,2.8519E+01_JPRB,3.5044E+01_JPRB,4.3548E+01_JPRB/)
+KBO( :, 2,36,14) = (/&
+&2.5019E+01_JPRB,2.3674E+01_JPRB,2.9070E+01_JPRB,3.3996E+01_JPRB,4.1038E+01_JPRB/)
+KBO( :, 3,36,14) = (/&
+&3.1927E+01_JPRB,2.7395E+01_JPRB,2.9968E+01_JPRB,3.3265E+01_JPRB,3.8679E+01_JPRB/)
+KBO( :, 4,36,14) = (/&
+&3.9672E+01_JPRB,3.2015E+01_JPRB,3.1322E+01_JPRB,3.2758E+01_JPRB,3.6525E+01_JPRB/)
+KBO( :, 5,36,14) = (/&
+&4.8151E+01_JPRB,3.7481E+01_JPRB,3.3115E+01_JPRB,3.2494E+01_JPRB,3.4530E+01_JPRB/)
+KBO( :, 1,37,14) = (/&
+&1.7926E+01_JPRB,2.0769E+01_JPRB,2.8871E+01_JPRB,3.5793E+01_JPRB,4.4612E+01_JPRB/)
+KBO( :, 2,37,14) = (/&
+&2.3809E+01_JPRB,2.3285E+01_JPRB,2.9325E+01_JPRB,3.4640E+01_JPRB,4.1997E+01_JPRB/)
+KBO( :, 3,37,14) = (/&
+&3.0620E+01_JPRB,2.6825E+01_JPRB,3.0118E+01_JPRB,3.3823E+01_JPRB,3.9558E+01_JPRB/)
+KBO( :, 4,37,14) = (/&
+&3.8296E+01_JPRB,3.1288E+01_JPRB,3.1366E+01_JPRB,3.3235E+01_JPRB,3.7337E+01_JPRB/)
+KBO( :, 5,37,14) = (/&
+&4.6724E+01_JPRB,3.6634E+01_JPRB,3.3044E+01_JPRB,3.2894E+01_JPRB,3.5259E+01_JPRB/)
+KBO( :, 1,38,14) = (/&
+&1.6878E+01_JPRB,2.0610E+01_JPRB,2.9172E+01_JPRB,3.6472E+01_JPRB,4.5609E+01_JPRB/)
+KBO( :, 2,38,14) = (/&
+&2.2623E+01_JPRB,2.2907E+01_JPRB,2.9536E+01_JPRB,3.5227E+01_JPRB,4.2904E+01_JPRB/)
+KBO( :, 3,38,14) = (/&
+&2.9321E+01_JPRB,2.6260E+01_JPRB,3.0234E+01_JPRB,3.4327E+01_JPRB,4.0395E+01_JPRB/)
+KBO( :, 4,38,14) = (/&
+&3.6903E+01_JPRB,3.0559E+01_JPRB,3.1375E+01_JPRB,3.3664E+01_JPRB,3.8108E+01_JPRB/)
+KBO( :, 5,38,14) = (/&
+&4.5262E+01_JPRB,3.5766E+01_JPRB,3.2950E+01_JPRB,3.3255E+01_JPRB,3.5951E+01_JPRB/)
+KBO( :, 1,39,14) = (/&
+&1.5902E+01_JPRB,2.0474E+01_JPRB,2.9440E+01_JPRB,3.7085E+01_JPRB,4.6521E+01_JPRB/)
+KBO( :, 2,39,14) = (/&
+&2.1511E+01_JPRB,2.2570E+01_JPRB,2.9719E+01_JPRB,3.5757E+01_JPRB,4.3739E+01_JPRB/)
+KBO( :, 3,39,14) = (/&
+&2.8094E+01_JPRB,2.5734E+01_JPRB,3.0328E+01_JPRB,3.4778E+01_JPRB,4.1182E+01_JPRB/)
+KBO( :, 4,39,14) = (/&
+&3.5578E+01_JPRB,2.9877E+01_JPRB,3.1374E+01_JPRB,3.4050E+01_JPRB,3.8820E+01_JPRB/)
+KBO( :, 5,39,14) = (/&
+&4.3862E+01_JPRB,3.4943E+01_JPRB,3.2862E+01_JPRB,3.3572E+01_JPRB,3.6607E+01_JPRB/)
+KBO( :, 1,40,14) = (/&
+&1.4487E+01_JPRB,2.0210E+01_JPRB,2.9678E+01_JPRB,3.7814E+01_JPRB,4.7667E+01_JPRB/)
+KBO( :, 2,40,14) = (/&
+&1.9857E+01_JPRB,2.2013E+01_JPRB,2.9846E+01_JPRB,3.6374E+01_JPRB,4.4798E+01_JPRB/)
+KBO( :, 3,40,14) = (/&
+&2.6217E+01_JPRB,2.4887E+01_JPRB,3.0342E+01_JPRB,3.5275E+01_JPRB,4.2152E+01_JPRB/)
+KBO( :, 4,40,14) = (/&
+&3.3508E+01_JPRB,2.8778E+01_JPRB,3.1239E+01_JPRB,3.4477E+01_JPRB,3.9718E+01_JPRB/)
+KBO( :, 5,40,14) = (/&
+&4.1627E+01_JPRB,3.3601E+01_JPRB,3.2609E+01_JPRB,3.3904E+01_JPRB,3.7435E+01_JPRB/)
+KBO( :, 1,41,14) = (/&
+&1.3110E+01_JPRB,1.9958E+01_JPRB,2.9912E+01_JPRB,3.8549E+01_JPRB,4.8809E+01_JPRB/)
+KBO( :, 2,41,14) = (/&
+&1.8221E+01_JPRB,2.1507E+01_JPRB,2.9962E+01_JPRB,3.6988E+01_JPRB,4.5856E+01_JPRB/)
+KBO( :, 3,41,14) = (/&
+&2.4334E+01_JPRB,2.4070E+01_JPRB,3.0356E+01_JPRB,3.5769E+01_JPRB,4.3126E+01_JPRB/)
+KBO( :, 4,41,14) = (/&
+&3.1415E+01_JPRB,2.7692E+01_JPRB,3.1100E+01_JPRB,3.4894E+01_JPRB,4.0627E+01_JPRB/)
+KBO( :, 5,41,14) = (/&
+&3.9350E+01_JPRB,3.2265E+01_JPRB,3.2344E+01_JPRB,3.4220E+01_JPRB,3.8269E+01_JPRB/)
+KBO( :, 1,42,14) = (/&
+&1.1835E+01_JPRB,1.9752E+01_JPRB,3.0145E+01_JPRB,3.9251E+01_JPRB,4.9910E+01_JPRB/)
+KBO( :, 2,42,14) = (/&
+&1.6674E+01_JPRB,2.1083E+01_JPRB,3.0080E+01_JPRB,3.7587E+01_JPRB,4.6885E+01_JPRB/)
+KBO( :, 3,42,14) = (/&
+&2.2540E+01_JPRB,2.3336E+01_JPRB,3.0367E+01_JPRB,3.6256E+01_JPRB,4.4084E+01_JPRB/)
+KBO( :, 4,42,14) = (/&
+&2.9380E+01_JPRB,2.6668E+01_JPRB,3.0980E+01_JPRB,3.5287E+01_JPRB,4.1523E+01_JPRB/)
+KBO( :, 5,42,14) = (/&
+&3.7130E+01_JPRB,3.0990E+01_JPRB,3.2078E+01_JPRB,3.4533E+01_JPRB,3.9096E+01_JPRB/)
+KBO( :, 1,43,14) = (/&
+&1.0424E+01_JPRB,1.9517E+01_JPRB,3.0390E+01_JPRB,4.0028E+01_JPRB,5.1165E+01_JPRB/)
+KBO( :, 2,43,14) = (/&
+&1.4940E+01_JPRB,2.0651E+01_JPRB,3.0207E+01_JPRB,3.8268E+01_JPRB,4.8059E+01_JPRB/)
+KBO( :, 3,43,14) = (/&
+&2.0485E+01_JPRB,2.2541E+01_JPRB,3.0363E+01_JPRB,3.6818E+01_JPRB,4.5176E+01_JPRB/)
+KBO( :, 4,43,14) = (/&
+&2.7034E+01_JPRB,2.5521E+01_JPRB,3.0853E+01_JPRB,3.5715E+01_JPRB,4.2549E+01_JPRB/)
+KBO( :, 5,43,14) = (/&
+&3.4521E+01_JPRB,2.9529E+01_JPRB,3.1770E+01_JPRB,3.4894E+01_JPRB,4.0051E+01_JPRB/)
+KBO( :, 1,44,14) = (/&
+&9.0454E+00_JPRB,1.9303E+01_JPRB,3.0654E+01_JPRB,4.0829E+01_JPRB,5.2486E+01_JPRB/)
+KBO( :, 2,44,14) = (/&
+&1.3210E+01_JPRB,2.0258E+01_JPRB,3.0364E+01_JPRB,3.9018E+01_JPRB,4.9303E+01_JPRB/)
+KBO( :, 3,44,14) = (/&
+&1.8410E+01_JPRB,2.1811E+01_JPRB,3.0377E+01_JPRB,3.7427E+01_JPRB,4.6338E+01_JPRB/)
+KBO( :, 4,44,14) = (/&
+&2.4625E+01_JPRB,2.4403E+01_JPRB,3.0751E+01_JPRB,3.6187E+01_JPRB,4.3644E+01_JPRB/)
+KBO( :, 5,44,14) = (/&
+&3.1810E+01_JPRB,2.8069E+01_JPRB,3.1486E+01_JPRB,3.5287E+01_JPRB,4.1079E+01_JPRB/)
+KBO( :, 1,45,14) = (/&
+&7.7991E+00_JPRB,1.9124E+01_JPRB,3.0912E+01_JPRB,4.1626E+01_JPRB,5.3793E+01_JPRB/)
+KBO( :, 2,45,14) = (/&
+&1.1620E+01_JPRB,1.9930E+01_JPRB,3.0535E+01_JPRB,3.9772E+01_JPRB,5.0542E+01_JPRB/)
+KBO( :, 3,45,14) = (/&
+&1.6462E+01_JPRB,2.1220E+01_JPRB,3.0424E+01_JPRB,3.8053E+01_JPRB,4.7507E+01_JPRB/)
+KBO( :, 4,45,14) = (/&
+&2.2340E+01_JPRB,2.3424E+01_JPRB,3.0669E+01_JPRB,3.6679E+01_JPRB,4.4753E+01_JPRB/)
+KBO( :, 5,45,14) = (/&
+&2.9206E+01_JPRB,2.6717E+01_JPRB,3.1243E+01_JPRB,3.5671E+01_JPRB,4.2118E+01_JPRB/)
+KBO( :, 1,46,14) = (/&
+&6.6114E+00_JPRB,1.8975E+01_JPRB,3.1192E+01_JPRB,4.2505E+01_JPRB,5.5177E+01_JPRB/)
+KBO( :, 2,46,14) = (/&
+&1.0078E+01_JPRB,1.9636E+01_JPRB,3.0742E+01_JPRB,4.0557E+01_JPRB,5.1854E+01_JPRB/)
+KBO( :, 3,46,14) = (/&
+&1.4541E+01_JPRB,2.0717E+01_JPRB,3.0510E+01_JPRB,3.8745E+01_JPRB,4.8748E+01_JPRB/)
+KBO( :, 4,46,14) = (/&
+&2.0050E+01_JPRB,2.2518E+01_JPRB,3.0610E+01_JPRB,3.7236E+01_JPRB,4.5932E+01_JPRB/)
+KBO( :, 5,46,14) = (/&
+&2.6570E+01_JPRB,2.5413E+01_JPRB,3.1056E+01_JPRB,3.6085E+01_JPRB,4.3222E+01_JPRB/)
+KBO( :, 1,47,14) = (/&
+&5.4426E+00_JPRB,1.8843E+01_JPRB,3.1468E+01_JPRB,4.3504E+01_JPRB,5.6708E+01_JPRB/)
+KBO( :, 2,47,14) = (/&
+&8.5243E+00_JPRB,1.9360E+01_JPRB,3.0989E+01_JPRB,4.1408E+01_JPRB,5.3314E+01_JPRB/)
+KBO( :, 3,47,14) = (/&
+&1.2575E+01_JPRB,2.0245E+01_JPRB,3.0638E+01_JPRB,3.9555E+01_JPRB,5.0119E+01_JPRB/)
+KBO( :, 4,47,14) = (/&
+&1.7661E+01_JPRB,2.1683E+01_JPRB,3.0580E+01_JPRB,3.7894E+01_JPRB,4.7238E+01_JPRB/)
+KBO( :, 5,47,14) = (/&
+&2.3779E+01_JPRB,2.4127E+01_JPRB,3.0897E+01_JPRB,3.6585E+01_JPRB,4.4450E+01_JPRB/)
+KBO( :, 1,48,14) = (/&
+&4.4277E+00_JPRB,1.8761E+01_JPRB,3.1768E+01_JPRB,4.4555E+01_JPRB,5.8239E+01_JPRB/)
+KBO( :, 2,48,14) = (/&
+&7.1412E+00_JPRB,1.9151E+01_JPRB,3.1244E+01_JPRB,4.2299E+01_JPRB,5.4783E+01_JPRB/)
+KBO( :, 3,48,14) = (/&
+&1.0789E+01_JPRB,1.9869E+01_JPRB,3.0807E+01_JPRB,4.0379E+01_JPRB,5.1522E+01_JPRB/)
+KBO( :, 4,48,14) = (/&
+&1.5451E+01_JPRB,2.1038E+01_JPRB,3.0616E+01_JPRB,3.8583E+01_JPRB,4.8572E+01_JPRB/)
+KBO( :, 5,48,14) = (/&
+&2.1160E+01_JPRB,2.3022E+01_JPRB,3.0768E+01_JPRB,3.7126E+01_JPRB,4.5703E+01_JPRB/)
+KBO( :, 1,49,14) = (/&
+&3.5582E+00_JPRB,1.8724E+01_JPRB,3.2110E+01_JPRB,4.5630E+01_JPRB,5.9777E+01_JPRB/)
+KBO( :, 2,49,14) = (/&
+&5.9176E+00_JPRB,1.8981E+01_JPRB,3.1512E+01_JPRB,4.3246E+01_JPRB,5.6279E+01_JPRB/)
+KBO( :, 3,49,14) = (/&
+&9.1765E+00_JPRB,1.9555E+01_JPRB,3.1023E+01_JPRB,4.1205E+01_JPRB,5.2968E+01_JPRB/)
+KBO( :, 4,49,14) = (/&
+&1.3419E+01_JPRB,2.0517E+01_JPRB,3.0706E+01_JPRB,3.9341E+01_JPRB,4.9951E+01_JPRB/)
+KBO( :, 5,49,14) = (/&
+&1.8709E+01_JPRB,2.2099E+01_JPRB,3.0706E+01_JPRB,3.7732E+01_JPRB,4.7001E+01_JPRB/)
+KBO( :, 1,50,14) = (/&
+&2.8621E+00_JPRB,1.8722E+01_JPRB,3.2476E+01_JPRB,4.6653E+01_JPRB,6.1210E+01_JPRB/)
+KBO( :, 2,50,14) = (/&
+&4.9088E+00_JPRB,1.8875E+01_JPRB,3.1754E+01_JPRB,4.4175E+01_JPRB,5.7683E+01_JPRB/)
+KBO( :, 3,50,14) = (/&
+&7.8135E+00_JPRB,1.9320E+01_JPRB,3.1237E+01_JPRB,4.1987E+01_JPRB,5.4314E+01_JPRB/)
+KBO( :, 4,50,14) = (/&
+&1.1676E+01_JPRB,2.0117E+01_JPRB,3.0830E+01_JPRB,4.0088E+01_JPRB,5.1232E+01_JPRB/)
+KBO( :, 5,50,14) = (/&
+&1.6567E+01_JPRB,2.1410E+01_JPRB,3.0696E+01_JPRB,3.8343E+01_JPRB,4.8212E+01_JPRB/)
+KBO( :, 1,51,14) = (/&
+&2.2871E+00_JPRB,1.8709E+01_JPRB,3.2860E+01_JPRB,4.7625E+01_JPRB,6.2589E+01_JPRB/)
+KBO( :, 2,51,14) = (/&
+&4.0542E+00_JPRB,1.8811E+01_JPRB,3.2015E+01_JPRB,4.5121E+01_JPRB,5.9058E+01_JPRB/)
+KBO( :, 3,51,14) = (/&
+&6.6290E+00_JPRB,1.9146E+01_JPRB,3.1467E+01_JPRB,4.2798E+01_JPRB,5.5634E+01_JPRB/)
+KBO( :, 4,51,14) = (/&
+&1.0131E+01_JPRB,1.9796E+01_JPRB,3.0988E+01_JPRB,4.0823E+01_JPRB,5.2469E+01_JPRB/)
+KBO( :, 5,51,14) = (/&
+&1.4636E+01_JPRB,2.0878E+01_JPRB,3.0739E+01_JPRB,3.8979E+01_JPRB,4.9405E+01_JPRB/)
+KBO( :, 1,52,14) = (/&
+&1.8042E+00_JPRB,1.8682E+01_JPRB,3.3246E+01_JPRB,4.8560E+01_JPRB,6.3938E+01_JPRB/)
+KBO( :, 2,52,14) = (/&
+&3.3141E+00_JPRB,1.8789E+01_JPRB,3.2326E+01_JPRB,4.6081E+01_JPRB,6.0432E+01_JPRB/)
+KBO( :, 3,52,14) = (/&
+&5.5749E+00_JPRB,1.9001E+01_JPRB,3.1682E+01_JPRB,4.3646E+01_JPRB,5.6974E+01_JPRB/)
+KBO( :, 4,52,14) = (/&
+&8.7257E+00_JPRB,1.9525E+01_JPRB,3.1181E+01_JPRB,4.1550E+01_JPRB,5.3732E+01_JPRB/)
+KBO( :, 5,52,14) = (/&
+&1.2856E+01_JPRB,2.0429E+01_JPRB,3.0821E+01_JPRB,3.9666E+01_JPRB,5.0627E+01_JPRB/)
+KBO( :, 1,53,14) = (/&
+&1.4016E+00_JPRB,1.8621E+01_JPRB,3.3678E+01_JPRB,4.9490E+01_JPRB,6.5279E+01_JPRB/)
+KBO( :, 2,53,14) = (/&
+&2.6762E+00_JPRB,1.8776E+01_JPRB,3.2671E+01_JPRB,4.7047E+01_JPRB,6.1804E+01_JPRB/)
+KBO( :, 3,53,14) = (/&
+&4.6412E+00_JPRB,1.8903E+01_JPRB,3.1912E+01_JPRB,4.4545E+01_JPRB,5.8349E+01_JPRB/)
+KBO( :, 4,53,14) = (/&
+&7.4512E+00_JPRB,1.9311E+01_JPRB,3.1378E+01_JPRB,4.2307E+01_JPRB,5.5036E+01_JPRB/)
+KBO( :, 5,53,14) = (/&
+&1.1217E+01_JPRB,2.0061E+01_JPRB,3.0940E+01_JPRB,4.0380E+01_JPRB,5.1884E+01_JPRB/)
+KBO( :, 1,54,14) = (/&
+&1.0961E+00_JPRB,1.8547E+01_JPRB,3.4112E+01_JPRB,5.0332E+01_JPRB,6.6490E+01_JPRB/)
+KBO( :, 2,54,14) = (/&
+&2.1755E+00_JPRB,1.8757E+01_JPRB,3.3015E+01_JPRB,4.7918E+01_JPRB,6.3018E+01_JPRB/)
+KBO( :, 3,54,14) = (/&
+&3.8890E+00_JPRB,1.8845E+01_JPRB,3.2149E+01_JPRB,4.5398E+01_JPRB,5.9550E+01_JPRB/)
+KBO( :, 4,54,14) = (/&
+&6.4008E+00_JPRB,1.9153E+01_JPRB,3.1582E+01_JPRB,4.3046E+01_JPRB,5.6158E+01_JPRB/)
+KBO( :, 5,54,14) = (/&
+&9.8389E+00_JPRB,1.9773E+01_JPRB,3.1086E+01_JPRB,4.1043E+01_JPRB,5.2991E+01_JPRB/)
+KBO( :, 1,55,14) = (/&
+&8.5398E-01_JPRB,1.8492E+01_JPRB,3.4545E+01_JPRB,5.1111E+01_JPRB,6.7620E+01_JPRB/)
+KBO( :, 2,55,14) = (/&
+&1.7643E+00_JPRB,1.8724E+01_JPRB,3.3346E+01_JPRB,4.8723E+01_JPRB,6.4160E+01_JPRB/)
+KBO( :, 3,55,14) = (/&
+&3.2551E+00_JPRB,1.8827E+01_JPRB,3.2415E+01_JPRB,4.6233E+01_JPRB,6.0665E+01_JPRB/)
+KBO( :, 4,55,14) = (/&
+&5.4933E+00_JPRB,1.9028E+01_JPRB,3.1761E+01_JPRB,4.3784E+01_JPRB,5.7216E+01_JPRB/)
+KBO( :, 5,55,14) = (/&
+&8.6198E+00_JPRB,1.9538E+01_JPRB,3.1251E+01_JPRB,4.1673E+01_JPRB,5.3976E+01_JPRB/)
+KBO( :, 1,56,14) = (/&
+&6.5583E-01_JPRB,1.8466E+01_JPRB,3.5009E+01_JPRB,5.1852E+01_JPRB,6.8713E+01_JPRB/)
+KBO( :, 2,56,14) = (/&
+&1.4149E+00_JPRB,1.8664E+01_JPRB,3.3714E+01_JPRB,4.9524E+01_JPRB,6.5316E+01_JPRB/)
+KBO( :, 3,56,14) = (/&
+&2.7001E+00_JPRB,1.8813E+01_JPRB,3.2708E+01_JPRB,4.7069E+01_JPRB,6.1791E+01_JPRB/)
+KBO( :, 4,56,14) = (/&
+&4.6799E+00_JPRB,1.8938E+01_JPRB,3.1954E+01_JPRB,4.4562E+01_JPRB,5.8292E+01_JPRB/)
+KBO( :, 5,56,14) = (/&
+&7.5092E+00_JPRB,1.9349E+01_JPRB,3.1417E+01_JPRB,4.2326E+01_JPRB,5.4949E+01_JPRB/)
+KBO( :, 1,57,14) = (/&
+&4.9569E-01_JPRB,1.8461E+01_JPRB,3.5476E+01_JPRB,5.2586E+01_JPRB,6.9771E+01_JPRB/)
+KBO( :, 2,57,14) = (/&
+&1.1207E+00_JPRB,1.8588E+01_JPRB,3.4120E+01_JPRB,5.0320E+01_JPRB,6.6462E+01_JPRB/)
+KBO( :, 3,57,14) = (/&
+&2.2185E+00_JPRB,1.8789E+01_JPRB,3.3026E+01_JPRB,4.7890E+01_JPRB,6.2944E+01_JPRB/)
+KBO( :, 4,57,14) = (/&
+&3.9561E+00_JPRB,1.8878E+01_JPRB,3.2169E+01_JPRB,4.5368E+01_JPRB,5.9404E+01_JPRB/)
+KBO( :, 5,57,14) = (/&
+&6.5001E+00_JPRB,1.9194E+01_JPRB,3.1605E+01_JPRB,4.3020E+01_JPRB,5.5955E+01_JPRB/)
+KBO( :, 1,58,14) = (/&
+&3.7410E-01_JPRB,1.8476E+01_JPRB,3.5878E+01_JPRB,5.3233E+01_JPRB,7.0727E+01_JPRB/)
+KBO( :, 2,58,14) = (/&
+&8.8722E-01_JPRB,1.8527E+01_JPRB,3.4515E+01_JPRB,5.1048E+01_JPRB,6.7516E+01_JPRB/)
+KBO( :, 3,58,14) = (/&
+&1.8232E+00_JPRB,1.8757E+01_JPRB,3.3332E+01_JPRB,4.8650E+01_JPRB,6.4043E+01_JPRB/)
+KBO( :, 4,58,14) = (/&
+&3.3485E+00_JPRB,1.8853E+01_JPRB,3.2410E+01_JPRB,4.6145E+01_JPRB,6.0474E+01_JPRB/)
+KBO( :, 5,58,14) = (/&
+&5.6308E+00_JPRB,1.9066E+01_JPRB,3.1770E+01_JPRB,4.3707E+01_JPRB,5.6952E+01_JPRB/)
+KBO( :, 1,59,14) = (/&
+&3.3226E-01_JPRB,1.8499E+01_JPRB,3.6042E+01_JPRB,5.3487E+01_JPRB,7.1108E+01_JPRB/)
+KBO( :, 2,59,14) = (/&
+&8.0465E-01_JPRB,1.8512E+01_JPRB,3.4692E+01_JPRB,5.1340E+01_JPRB,6.7946E+01_JPRB/)
+KBO( :, 3,59,14) = (/&
+&1.6796E+00_JPRB,1.8742E+01_JPRB,3.3465E+01_JPRB,4.8954E+01_JPRB,6.4485E+01_JPRB/)
+KBO( :, 4,59,14) = (/&
+&3.1244E+00_JPRB,1.8851E+01_JPRB,3.2518E+01_JPRB,4.6468E+01_JPRB,6.0924E+01_JPRB/)
+KBO( :, 5,59,14) = (/&
+&5.3047E+00_JPRB,1.9029E+01_JPRB,3.1839E+01_JPRB,4.3997E+01_JPRB,5.7335E+01_JPRB/)
+KBO( :, 1,13,15) = (/&
+&1.4736E+01_JPRB,1.1137E+01_JPRB,7.6940E+00_JPRB,7.1072E+00_JPRB,9.0794E+00_JPRB/)
+KBO( :, 2,13,15) = (/&
+&2.0753E+01_JPRB,1.5659E+01_JPRB,1.0572E+01_JPRB,7.4219E+00_JPRB,8.9416E+00_JPRB/)
+KBO( :, 3,13,15) = (/&
+&2.7810E+01_JPRB,2.0956E+01_JPRB,1.4105E+01_JPRB,8.2365E+00_JPRB,8.8640E+00_JPRB/)
+KBO( :, 4,13,15) = (/&
+&3.5751E+01_JPRB,2.6911E+01_JPRB,1.8075E+01_JPRB,9.6167E+00_JPRB,8.7852E+00_JPRB/)
+KBO( :, 5,13,15) = (/&
+&4.4392E+01_JPRB,3.3391E+01_JPRB,2.2391E+01_JPRB,1.1515E+01_JPRB,8.6750E+00_JPRB/)
+KBO( :, 1,14,15) = (/&
+&1.6396E+01_JPRB,1.2398E+01_JPRB,8.6531E+00_JPRB,8.0901E+00_JPRB,1.0338E+01_JPRB/)
+KBO( :, 2,14,15) = (/&
+&2.3021E+01_JPRB,1.7368E+01_JPRB,1.1723E+01_JPRB,8.4557E+00_JPRB,1.0225E+01_JPRB/)
+KBO( :, 3,14,15) = (/&
+&3.0725E+01_JPRB,2.3145E+01_JPRB,1.5568E+01_JPRB,9.3794E+00_JPRB,1.0164E+01_JPRB/)
+KBO( :, 4,14,15) = (/&
+&3.9405E+01_JPRB,2.9646E+01_JPRB,1.9890E+01_JPRB,1.0857E+01_JPRB,1.0076E+01_JPRB/)
+KBO( :, 5,14,15) = (/&
+&4.8887E+01_JPRB,3.6753E+01_JPRB,2.4621E+01_JPRB,1.2810E+01_JPRB,9.9619E+00_JPRB/)
+KBO( :, 1,15,15) = (/&
+&1.8108E+01_JPRB,1.3685E+01_JPRB,9.7296E+00_JPRB,9.2864E+00_JPRB,1.1891E+01_JPRB/)
+KBO( :, 2,15,15) = (/&
+&2.5292E+01_JPRB,1.9065E+01_JPRB,1.2925E+01_JPRB,9.7320E+00_JPRB,1.1822E+01_JPRB/)
+KBO( :, 3,15,15) = (/&
+&3.3657E+01_JPRB,2.5333E+01_JPRB,1.7012E+01_JPRB,1.0681E+01_JPRB,1.1765E+01_JPRB/)
+KBO( :, 4,15,15) = (/&
+&4.3009E+01_JPRB,3.2342E+01_JPRB,2.1677E+01_JPRB,1.2195E+01_JPRB,1.1648E+01_JPRB/)
+KBO( :, 5,15,15) = (/&
+&5.3119E+01_JPRB,3.9920E+01_JPRB,2.6722E+01_JPRB,1.4174E+01_JPRB,1.1512E+01_JPRB/)
+KBO( :, 1,16,15) = (/&
+&1.9766E+01_JPRB,1.4918E+01_JPRB,1.0847E+01_JPRB,1.0763E+01_JPRB,1.3814E+01_JPRB/)
+KBO( :, 2,16,15) = (/&
+&2.7468E+01_JPRB,2.0688E+01_JPRB,1.4114E+01_JPRB,1.1259E+01_JPRB,1.3757E+01_JPRB/)
+KBO( :, 3,16,15) = (/&
+&3.6341E+01_JPRB,2.7338E+01_JPRB,1.8370E+01_JPRB,1.2200E+01_JPRB,1.3647E+01_JPRB/)
+KBO( :, 4,16,15) = (/&
+&4.6268E+01_JPRB,3.4775E+01_JPRB,2.3285E+01_JPRB,1.3712E+01_JPRB,1.3493E+01_JPRB/)
+KBO( :, 5,16,15) = (/&
+&5.7098E+01_JPRB,4.2893E+01_JPRB,2.8688E+01_JPRB,1.5674E+01_JPRB,1.3336E+01_JPRB/)
+KBO( :, 1,17,15) = (/&
+&2.1283E+01_JPRB,1.6042E+01_JPRB,1.2037E+01_JPRB,1.2521E+01_JPRB,1.6103E+01_JPRB/)
+KBO( :, 2,17,15) = (/&
+&2.9464E+01_JPRB,2.2172E+01_JPRB,1.5299E+01_JPRB,1.3029E+01_JPRB,1.5994E+01_JPRB/)
+KBO( :, 3,17,15) = (/&
+&3.8948E+01_JPRB,2.9275E+01_JPRB,1.9669E+01_JPRB,1.3963E+01_JPRB,1.5820E+01_JPRB/)
+KBO( :, 4,17,15) = (/&
+&4.9621E+01_JPRB,3.7275E+01_JPRB,2.4936E+01_JPRB,1.5438E+01_JPRB,1.5638E+01_JPRB/)
+KBO( :, 5,17,15) = (/&
+&6.1258E+01_JPRB,4.5999E+01_JPRB,3.0742E+01_JPRB,1.7360E+01_JPRB,1.5449E+01_JPRB/)
+KBO( :, 1,18,15) = (/&
+&2.2877E+01_JPRB,1.7231E+01_JPRB,1.3375E+01_JPRB,1.4554E+01_JPRB,1.8639E+01_JPRB/)
+KBO( :, 2,18,15) = (/&
+&3.1639E+01_JPRB,2.3798E+01_JPRB,1.6609E+01_JPRB,1.5067E+01_JPRB,1.8464E+01_JPRB/)
+KBO( :, 3,18,15) = (/&
+&4.1858E+01_JPRB,3.1457E+01_JPRB,2.1141E+01_JPRB,1.5981E+01_JPRB,1.8293E+01_JPRB/)
+KBO( :, 4,18,15) = (/&
+&5.3342E+01_JPRB,4.0067E+01_JPRB,2.6795E+01_JPRB,1.7399E+01_JPRB,1.8084E+01_JPRB/)
+KBO( :, 5,18,15) = (/&
+&6.5884E+01_JPRB,4.9471E+01_JPRB,3.3060E+01_JPRB,1.9258E+01_JPRB,1.7848E+01_JPRB/)
+KBO( :, 1,19,15) = (/&
+&2.4623E+01_JPRB,1.8531E+01_JPRB,1.4907E+01_JPRB,1.6838E+01_JPRB,2.1462E+01_JPRB/)
+KBO( :, 2,19,15) = (/&
+&3.4070E+01_JPRB,2.5614E+01_JPRB,1.8084E+01_JPRB,1.7369E+01_JPRB,2.1261E+01_JPRB/)
+KBO( :, 3,19,15) = (/&
+&4.5079E+01_JPRB,3.3868E+01_JPRB,2.2784E+01_JPRB,1.8262E+01_JPRB,2.1046E+01_JPRB/)
+KBO( :, 4,19,15) = (/&
+&5.7371E+01_JPRB,4.3086E+01_JPRB,2.8804E+01_JPRB,1.9597E+01_JPRB,2.0788E+01_JPRB/)
+KBO( :, 5,19,15) = (/&
+&7.0794E+01_JPRB,5.3152E+01_JPRB,3.5511E+01_JPRB,2.1320E+01_JPRB,2.0472E+01_JPRB/)
+KBO( :, 1,20,15) = (/&
+&2.6740E+01_JPRB,2.0113E+01_JPRB,1.6687E+01_JPRB,1.9463E+01_JPRB,2.4692E+01_JPRB/)
+KBO( :, 2,20,15) = (/&
+&3.6896E+01_JPRB,2.7729E+01_JPRB,1.9869E+01_JPRB,1.9965E+01_JPRB,2.4417E+01_JPRB/)
+KBO( :, 3,20,15) = (/&
+&4.8627E+01_JPRB,3.6527E+01_JPRB,2.4686E+01_JPRB,2.0749E+01_JPRB,2.4109E+01_JPRB/)
+KBO( :, 4,20,15) = (/&
+&6.1800E+01_JPRB,4.6406E+01_JPRB,3.1013E+01_JPRB,2.1980E+01_JPRB,2.3749E+01_JPRB/)
+KBO( :, 5,20,15) = (/&
+&7.6193E+01_JPRB,5.7200E+01_JPRB,3.8207E+01_JPRB,2.3582E+01_JPRB,2.3335E+01_JPRB/)
+KBO( :, 1,21,15) = (/&
+&2.8977E+01_JPRB,2.1786E+01_JPRB,1.8588E+01_JPRB,2.2423E+01_JPRB,2.8316E+01_JPRB/)
+KBO( :, 2,21,15) = (/&
+&3.9801E+01_JPRB,2.9904E+01_JPRB,2.1842E+01_JPRB,2.2829E+01_JPRB,2.7905E+01_JPRB/)
+KBO( :, 3,21,15) = (/&
+&5.2367E+01_JPRB,3.9328E+01_JPRB,2.6804E+01_JPRB,2.3451E+01_JPRB,2.7467E+01_JPRB/)
+KBO( :, 4,21,15) = (/&
+&6.6469E+01_JPRB,4.9905E+01_JPRB,3.3345E+01_JPRB,2.4522E+01_JPRB,2.6969E+01_JPRB/)
+KBO( :, 5,21,15) = (/&
+&8.1848E+01_JPRB,6.1440E+01_JPRB,4.1033E+01_JPRB,2.6023E+01_JPRB,2.6435E+01_JPRB/)
+KBO( :, 1,22,15) = (/&
+&3.1988E+01_JPRB,2.4041E+01_JPRB,2.0812E+01_JPRB,2.5651E+01_JPRB,3.2255E+01_JPRB/)
+KBO( :, 2,22,15) = (/&
+&4.3721E+01_JPRB,3.2841E+01_JPRB,2.4334E+01_JPRB,2.5950E+01_JPRB,3.1687E+01_JPRB/)
+KBO( :, 3,22,15) = (/&
+&5.7294E+01_JPRB,4.3022E+01_JPRB,2.9561E+01_JPRB,2.6432E+01_JPRB,3.1040E+01_JPRB/)
+KBO( :, 4,22,15) = (/&
+&7.2474E+01_JPRB,5.4409E+01_JPRB,3.6410E+01_JPRB,2.7333E+01_JPRB,3.0338E+01_JPRB/)
+KBO( :, 5,22,15) = (/&
+&8.8942E+01_JPRB,6.6761E+01_JPRB,4.4583E+01_JPRB,2.8834E+01_JPRB,2.9615E+01_JPRB/)
+KBO( :, 1,23,15) = (/&
+&3.5516E+01_JPRB,2.6690E+01_JPRB,2.3334E+01_JPRB,2.9036E+01_JPRB,3.6353E+01_JPRB/)
+KBO( :, 2,23,15) = (/&
+&4.8281E+01_JPRB,3.6264E+01_JPRB,2.7127E+01_JPRB,2.9241E+01_JPRB,3.5539E+01_JPRB/)
+KBO( :, 3,23,15) = (/&
+&6.2902E+01_JPRB,4.7230E+01_JPRB,3.2633E+01_JPRB,2.9564E+01_JPRB,3.4668E+01_JPRB/)
+KBO( :, 4,23,15) = (/&
+&7.9108E+01_JPRB,5.9385E+01_JPRB,3.9793E+01_JPRB,3.0280E+01_JPRB,3.3772E+01_JPRB/)
+KBO( :, 5,23,15) = (/&
+&9.6701E+01_JPRB,7.2580E+01_JPRB,4.8461E+01_JPRB,3.1825E+01_JPRB,3.2859E+01_JPRB/)
+KBO( :, 1,24,15) = (/&
+&3.9680E+01_JPRB,2.9829E+01_JPRB,2.6160E+01_JPRB,3.2548E+01_JPRB,4.0469E+01_JPRB/)
+KBO( :, 2,24,15) = (/&
+&5.3468E+01_JPRB,4.0169E+01_JPRB,3.0146E+01_JPRB,3.2629E+01_JPRB,3.9411E+01_JPRB/)
+KBO( :, 3,24,15) = (/&
+&6.9159E+01_JPRB,5.1932E+01_JPRB,3.5957E+01_JPRB,3.2753E+01_JPRB,3.8325E+01_JPRB/)
+KBO( :, 4,24,15) = (/&
+&8.6552E+01_JPRB,6.4969E+01_JPRB,4.3591E+01_JPRB,3.3410E+01_JPRB,3.7213E+01_JPRB/)
+KBO( :, 5,24,15) = (/&
+&1.0532E+02_JPRB,7.9041E+01_JPRB,5.2783E+01_JPRB,3.4989E+01_JPRB,3.6087E+01_JPRB/)
+KBO( :, 1,25,15) = (/&
+&4.4432E+01_JPRB,3.3401E+01_JPRB,2.9194E+01_JPRB,3.6051E+01_JPRB,4.4622E+01_JPRB/)
+KBO( :, 2,25,15) = (/&
+&5.9330E+01_JPRB,4.4578E+01_JPRB,3.3433E+01_JPRB,3.6017E+01_JPRB,4.3268E+01_JPRB/)
+KBO( :, 3,25,15) = (/&
+&7.6262E+01_JPRB,5.7273E+01_JPRB,3.9678E+01_JPRB,3.5986E+01_JPRB,4.1914E+01_JPRB/)
+KBO( :, 4,25,15) = (/&
+&9.4907E+01_JPRB,7.1254E+01_JPRB,4.7861E+01_JPRB,3.6668E+01_JPRB,4.0563E+01_JPRB/)
+KBO( :, 5,25,15) = (/&
+&1.1490E+02_JPRB,8.6240E+01_JPRB,5.7602E+01_JPRB,3.8320E+01_JPRB,3.9224E+01_JPRB/)
+KBO( :, 1,26,15) = (/&
+&4.9945E+01_JPRB,3.7542E+01_JPRB,3.2485E+01_JPRB,3.9526E+01_JPRB,4.8685E+01_JPRB/)
+KBO( :, 2,26,15) = (/&
+&6.6132E+01_JPRB,4.9685E+01_JPRB,3.7067E+01_JPRB,3.9294E+01_JPRB,4.7029E+01_JPRB/)
+KBO( :, 3,26,15) = (/&
+&8.4358E+01_JPRB,6.3353E+01_JPRB,4.3878E+01_JPRB,3.9293E+01_JPRB,4.5384E+01_JPRB/)
+KBO( :, 4,26,15) = (/&
+&1.0419E+02_JPRB,7.8224E+01_JPRB,5.2598E+01_JPRB,4.0034E+01_JPRB,4.3769E+01_JPRB/)
+KBO( :, 5,26,15) = (/&
+&1.2529E+02_JPRB,9.4044E+01_JPRB,6.2813E+01_JPRB,4.1703E+01_JPRB,4.2207E+01_JPRB/)
+KBO( :, 1,27,15) = (/&
+&5.6070E+01_JPRB,4.2141E+01_JPRB,3.5908E+01_JPRB,4.2930E+01_JPRB,5.2613E+01_JPRB/)
+KBO( :, 2,27,15) = (/&
+&7.3488E+01_JPRB,5.5206E+01_JPRB,4.0960E+01_JPRB,4.2467E+01_JPRB,5.0627E+01_JPRB/)
+KBO( :, 3,27,15) = (/&
+&9.2902E+01_JPRB,6.9766E+01_JPRB,4.8295E+01_JPRB,4.2561E+01_JPRB,4.8685E+01_JPRB/)
+KBO( :, 4,27,15) = (/&
+&1.1389E+02_JPRB,8.5509E+01_JPRB,5.7519E+01_JPRB,4.3345E+01_JPRB,4.6803E+01_JPRB/)
+KBO( :, 5,27,15) = (/&
+&1.3609E+02_JPRB,1.0215E+02_JPRB,6.8230E+01_JPRB,4.5005E+01_JPRB,4.4998E+01_JPRB/)
+KBO( :, 1,28,15) = (/&
+&6.2602E+01_JPRB,4.7047E+01_JPRB,3.9407E+01_JPRB,4.6160E+01_JPRB,5.6361E+01_JPRB/)
+KBO( :, 2,28,15) = (/&
+&8.1239E+01_JPRB,6.1026E+01_JPRB,4.4978E+01_JPRB,4.5556E+01_JPRB,5.4022E+01_JPRB/)
+KBO( :, 3,28,15) = (/&
+&1.0182E+02_JPRB,7.6460E+01_JPRB,5.2849E+01_JPRB,4.5684E+01_JPRB,5.1781E+01_JPRB/)
+KBO( :, 4,28,15) = (/&
+&1.2390E+02_JPRB,9.3015E+01_JPRB,6.2567E+01_JPRB,4.6514E+01_JPRB,4.9625E+01_JPRB/)
+KBO( :, 5,28,15) = (/&
+&1.4712E+02_JPRB,1.1043E+02_JPRB,7.3749E+01_JPRB,4.8179E+01_JPRB,4.7555E+01_JPRB/)
+KBO( :, 1,29,15) = (/&
+&6.9623E+01_JPRB,5.2320E+01_JPRB,4.3015E+01_JPRB,4.9123E+01_JPRB,5.9729E+01_JPRB/)
+KBO( :, 2,29,15) = (/&
+&8.9447E+01_JPRB,6.7187E+01_JPRB,4.9134E+01_JPRB,4.8482E+01_JPRB,5.7058E+01_JPRB/)
+KBO( :, 3,29,15) = (/&
+&1.1112E+02_JPRB,8.3443E+01_JPRB,5.7534E+01_JPRB,4.8630E+01_JPRB,5.4527E+01_JPRB/)
+KBO( :, 4,29,15) = (/&
+&1.3428E+02_JPRB,1.0081E+02_JPRB,6.7748E+01_JPRB,4.9484E+01_JPRB,5.2105E+01_JPRB/)
+KBO( :, 5,29,15) = (/&
+&1.5845E+02_JPRB,1.1893E+02_JPRB,7.9425E+01_JPRB,5.1210E+01_JPRB,4.9788E+01_JPRB/)
+KBO( :, 1,30,15) = (/&
+&7.6956E+01_JPRB,5.7823E+01_JPRB,4.6660E+01_JPRB,5.1758E+01_JPRB,6.2685E+01_JPRB/)
+KBO( :, 2,30,15) = (/&
+&9.7902E+01_JPRB,7.3533E+01_JPRB,5.3332E+01_JPRB,5.1164E+01_JPRB,5.9706E+01_JPRB/)
+KBO( :, 3,30,15) = (/&
+&1.2067E+02_JPRB,9.0610E+01_JPRB,6.2274E+01_JPRB,5.1339E+01_JPRB,5.6887E+01_JPRB/)
+KBO( :, 4,30,15) = (/&
+&1.4481E+02_JPRB,1.0871E+02_JPRB,7.2976E+01_JPRB,5.2237E+01_JPRB,5.4217E+01_JPRB/)
+KBO( :, 5,30,15) = (/&
+&1.6975E+02_JPRB,1.2741E+02_JPRB,8.5081E+01_JPRB,5.4027E+01_JPRB,5.1685E+01_JPRB/)
+KBO( :, 1,31,15) = (/&
+&8.4668E+01_JPRB,6.3613E+01_JPRB,5.0308E+01_JPRB,5.4125E+01_JPRB,6.5163E+01_JPRB/)
+KBO( :, 2,31,15) = (/&
+&1.0670E+02_JPRB,8.0139E+01_JPRB,5.7571E+01_JPRB,5.3567E+01_JPRB,6.1881E+01_JPRB/)
+KBO( :, 3,31,15) = (/&
+&1.3043E+02_JPRB,9.7932E+01_JPRB,6.7030E+01_JPRB,5.3784E+01_JPRB,5.8816E+01_JPRB/)
+KBO( :, 4,31,15) = (/&
+&1.5531E+02_JPRB,1.1659E+02_JPRB,7.8195E+01_JPRB,5.4732E+01_JPRB,5.5925E+01_JPRB/)
+KBO( :, 5,31,15) = (/&
+&1.8083E+02_JPRB,1.3573E+02_JPRB,9.0627E+01_JPRB,5.6617E+01_JPRB,5.3201E+01_JPRB/)
+KBO( :, 1,32,15) = (/&
+&9.2652E+01_JPRB,6.9602E+01_JPRB,5.3950E+01_JPRB,5.6194E+01_JPRB,6.7147E+01_JPRB/)
+KBO( :, 2,32,15) = (/&
+&1.1562E+02_JPRB,8.6827E+01_JPRB,6.1761E+01_JPRB,5.5696E+01_JPRB,6.3605E+01_JPRB/)
+KBO( :, 3,32,15) = (/&
+&1.4016E+02_JPRB,1.0523E+02_JPRB,7.1723E+01_JPRB,5.5956E+01_JPRB,6.0313E+01_JPRB/)
+KBO( :, 4,32,15) = (/&
+&1.6571E+02_JPRB,1.2439E+02_JPRB,8.3322E+01_JPRB,5.6967E+01_JPRB,5.7235E+01_JPRB/)
+KBO( :, 5,32,15) = (/&
+&1.9180E+02_JPRB,1.4395E+02_JPRB,9.6112E+01_JPRB,5.9039E+01_JPRB,5.4359E+01_JPRB/)
+KBO( :, 1,33,15) = (/&
+&1.0072E+02_JPRB,7.5656E+01_JPRB,5.7525E+01_JPRB,5.7981E+01_JPRB,6.8650E+01_JPRB/)
+KBO( :, 2,33,15) = (/&
+&1.2455E+02_JPRB,9.3526E+01_JPRB,6.5887E+01_JPRB,5.7530E+01_JPRB,6.4898E+01_JPRB/)
+KBO( :, 3,33,15) = (/&
+&1.4981E+02_JPRB,1.1247E+02_JPRB,7.6362E+01_JPRB,5.7872E+01_JPRB,6.1421E+01_JPRB/)
+KBO( :, 4,33,15) = (/&
+&1.7592E+02_JPRB,1.3205E+02_JPRB,8.8345E+01_JPRB,5.9018E+01_JPRB,5.8197E+01_JPRB/)
+KBO( :, 5,33,15) = (/&
+&2.0244E+02_JPRB,1.5193E+02_JPRB,1.0144E+02_JPRB,6.1255E+01_JPRB,5.5191E+01_JPRB/)
+KBO( :, 1,34,15) = (/&
+&1.0805E+02_JPRB,8.1154E+01_JPRB,6.0752E+01_JPRB,5.9538E+01_JPRB,6.9858E+01_JPRB/)
+KBO( :, 2,34,15) = (/&
+&1.3258E+02_JPRB,9.9553E+01_JPRB,6.9613E+01_JPRB,5.9127E+01_JPRB,6.5932E+01_JPRB/)
+KBO( :, 3,34,15) = (/&
+&1.5841E+02_JPRB,1.1893E+02_JPRB,8.0500E+01_JPRB,5.9515E+01_JPRB,6.2316E+01_JPRB/)
+KBO( :, 4,34,15) = (/&
+&1.8496E+02_JPRB,1.3883E+02_JPRB,9.2804E+01_JPRB,6.0816E+01_JPRB,5.8960E+01_JPRB/)
+KBO( :, 5,34,15) = (/&
+&2.1175E+02_JPRB,1.5892E+02_JPRB,1.0610E+02_JPRB,6.3176E+01_JPRB,5.5844E+01_JPRB/)
+KBO( :, 1,35,15) = (/&
+&1.1294E+02_JPRB,8.4826E+01_JPRB,6.3098E+01_JPRB,6.0919E+01_JPRB,7.1099E+01_JPRB/)
+KBO( :, 2,35,15) = (/&
+&1.3798E+02_JPRB,1.0360E+02_JPRB,7.2230E+01_JPRB,6.0487E+01_JPRB,6.7012E+01_JPRB/)
+KBO( :, 3,35,15) = (/&
+&1.6418E+02_JPRB,1.2325E+02_JPRB,8.3338E+01_JPRB,6.0862E+01_JPRB,6.3251E+01_JPRB/)
+KBO( :, 4,35,15) = (/&
+&1.9102E+02_JPRB,1.4338E+02_JPRB,9.5820E+01_JPRB,6.2223E+01_JPRB,5.9778E+01_JPRB/)
+KBO( :, 5,35,15) = (/&
+&2.1806E+02_JPRB,1.6365E+02_JPRB,1.0925E+02_JPRB,6.4647E+01_JPRB,5.6557E+01_JPRB/)
+KBO( :, 1,36,15) = (/&
+&1.1497E+02_JPRB,8.6347E+01_JPRB,6.4397E+01_JPRB,6.2153E+01_JPRB,7.2517E+01_JPRB/)
+KBO( :, 2,36,15) = (/&
+&1.4029E+02_JPRB,1.0534E+02_JPRB,7.3555E+01_JPRB,6.1644E+01_JPRB,6.8256E+01_JPRB/)
+KBO( :, 3,36,15) = (/&
+&1.6674E+02_JPRB,1.2517E+02_JPRB,8.4714E+01_JPRB,6.1952E+01_JPRB,6.4357E+01_JPRB/)
+KBO( :, 4,36,15) = (/&
+&1.9381E+02_JPRB,1.4548E+02_JPRB,9.7239E+01_JPRB,6.3251E+01_JPRB,6.0757E+01_JPRB/)
+KBO( :, 5,36,15) = (/&
+&2.2104E+02_JPRB,1.6589E+02_JPRB,1.1075E+02_JPRB,6.5650E+01_JPRB,5.7519E+01_JPRB/)
+KBO( :, 1,37,15) = (/&
+&1.1301E+02_JPRB,8.4880E+01_JPRB,6.4331E+01_JPRB,6.3346E+01_JPRB,7.4417E+01_JPRB/)
+KBO( :, 2,37,15) = (/&
+&1.3839E+02_JPRB,1.0391E+02_JPRB,7.3187E+01_JPRB,6.2656E+01_JPRB,6.9936E+01_JPRB/)
+KBO( :, 3,37,15) = (/&
+&1.6490E+02_JPRB,1.2380E+02_JPRB,8.4124E+01_JPRB,6.2789E+01_JPRB,6.5851E+01_JPRB/)
+KBO( :, 4,37,15) = (/&
+&1.9210E+02_JPRB,1.4420E+02_JPRB,9.6503E+01_JPRB,6.3870E+01_JPRB,6.2117E+01_JPRB/)
+KBO( :, 5,37,15) = (/&
+&2.1953E+02_JPRB,1.6476E+02_JPRB,1.1000E+02_JPRB,6.6083E+01_JPRB,5.8820E+01_JPRB/)
+KBO( :, 1,38,15) = (/&
+&1.1060E+02_JPRB,8.3078E+01_JPRB,6.4103E+01_JPRB,6.4426E+01_JPRB,7.6201E+01_JPRB/)
+KBO( :, 2,38,15) = (/&
+&1.3599E+02_JPRB,1.0211E+02_JPRB,7.2632E+01_JPRB,6.3555E+01_JPRB,7.1515E+01_JPRB/)
+KBO( :, 3,38,15) = (/&
+&1.6253E+02_JPRB,1.2202E+02_JPRB,8.3307E+01_JPRB,6.3503E+01_JPRB,6.7259E+01_JPRB/)
+KBO( :, 4,38,15) = (/&
+&1.8982E+02_JPRB,1.4248E+02_JPRB,9.5509E+01_JPRB,6.4372E+01_JPRB,6.3412E+01_JPRB/)
+KBO( :, 5,38,15) = (/&
+&2.1740E+02_JPRB,1.6316E+02_JPRB,1.0894E+02_JPRB,6.6382E+01_JPRB,6.0081E+01_JPRB/)
+KBO( :, 1,39,15) = (/&
+&1.0803E+02_JPRB,8.1144E+01_JPRB,6.3771E+01_JPRB,6.5414E+01_JPRB,7.7868E+01_JPRB/)
+KBO( :, 2,39,15) = (/&
+&1.3337E+02_JPRB,1.0015E+02_JPRB,7.1982E+01_JPRB,6.4350E+01_JPRB,7.2975E+01_JPRB/)
+KBO( :, 3,39,15) = (/&
+&1.5993E+02_JPRB,1.2007E+02_JPRB,8.2398E+01_JPRB,6.4114E+01_JPRB,6.8560E+01_JPRB/)
+KBO( :, 4,39,15) = (/&
+&1.8726E+02_JPRB,1.4057E+02_JPRB,9.4413E+01_JPRB,6.4795E+01_JPRB,6.4662E+01_JPRB/)
+KBO( :, 5,39,15) = (/&
+&2.1494E+02_JPRB,1.6132E+02_JPRB,1.0771E+02_JPRB,6.6595E+01_JPRB,6.1311E+01_JPRB/)
+KBO( :, 1,40,15) = (/&
+&1.0282E+02_JPRB,7.7288E+01_JPRB,6.2719E+01_JPRB,6.6497E+01_JPRB,7.9980E+01_JPRB/)
+KBO( :, 2,40,15) = (/&
+&1.2788E+02_JPRB,9.6038E+01_JPRB,7.0327E+01_JPRB,6.5135E+01_JPRB,7.4834E+01_JPRB/)
+KBO( :, 3,40,15) = (/&
+&1.5434E+02_JPRB,1.1588E+02_JPRB,8.0252E+01_JPRB,6.4644E+01_JPRB,7.0224E+01_JPRB/)
+KBO( :, 4,40,15) = (/&
+&1.8163E+02_JPRB,1.3634E+02_JPRB,9.1957E+01_JPRB,6.5051E+01_JPRB,6.6166E+01_JPRB/)
+KBO( :, 5,40,15) = (/&
+&2.0939E+02_JPRB,1.5716E+02_JPRB,1.0497E+02_JPRB,6.6532E+01_JPRB,6.2695E+01_JPRB/)
+KBO( :, 1,41,15) = (/&
+&9.7246E+01_JPRB,7.3264E+01_JPRB,6.1654E+01_JPRB,6.7606E+01_JPRB,8.2110E+01_JPRB/)
+KBO( :, 2,41,15) = (/&
+&1.2196E+02_JPRB,9.1598E+01_JPRB,6.8639E+01_JPRB,6.5918E+01_JPRB,7.6715E+01_JPRB/)
+KBO( :, 3,41,15) = (/&
+&1.4825E+02_JPRB,1.1131E+02_JPRB,7.7976E+01_JPRB,6.5166E+01_JPRB,7.1898E+01_JPRB/)
+KBO( :, 4,41,15) = (/&
+&1.7546E+02_JPRB,1.3172E+02_JPRB,8.9341E+01_JPRB,6.5294E+01_JPRB,6.7663E+01_JPRB/)
+KBO( :, 5,41,15) = (/&
+&2.0319E+02_JPRB,1.5251E+02_JPRB,1.0200E+02_JPRB,6.6466E+01_JPRB,6.4089E+01_JPRB/)
+KBO( :, 1,42,15) = (/&
+&9.1646E+01_JPRB,6.9319E+01_JPRB,6.0662E+01_JPRB,6.8736E+01_JPRB,8.4225E+01_JPRB/)
+KBO( :, 2,42,15) = (/&
+&1.1599E+02_JPRB,8.7117E+01_JPRB,6.7035E+01_JPRB,6.6694E+01_JPRB,7.8581E+01_JPRB/)
+KBO( :, 3,42,15) = (/&
+&1.4201E+02_JPRB,1.0663E+02_JPRB,7.5772E+01_JPRB,6.5694E+01_JPRB,7.3551E+01_JPRB/)
+KBO( :, 4,42,15) = (/&
+&1.6913E+02_JPRB,1.2698E+02_JPRB,8.6698E+01_JPRB,6.5537E+01_JPRB,6.9143E+01_JPRB/)
+KBO( :, 5,42,15) = (/&
+&1.9682E+02_JPRB,1.4774E+02_JPRB,9.9046E+01_JPRB,6.6404E+01_JPRB,6.5463E+01_JPRB/)
+KBO( :, 1,43,15) = (/&
+&8.4789E+01_JPRB,6.4636E+01_JPRB,5.9566E+01_JPRB,7.0099E+01_JPRB,8.6671E+01_JPRB/)
+KBO( :, 2,43,15) = (/&
+&1.0857E+02_JPRB,8.1571E+01_JPRB,6.5097E+01_JPRB,6.7581E+01_JPRB,8.0749E+01_JPRB/)
+KBO( :, 3,43,15) = (/&
+&1.3420E+02_JPRB,1.0078E+02_JPRB,7.3112E+01_JPRB,6.6245E+01_JPRB,7.5464E+01_JPRB/)
+KBO( :, 4,43,15) = (/&
+&1.6112E+02_JPRB,1.2096E+02_JPRB,8.3408E+01_JPRB,6.5806E+01_JPRB,7.0849E+01_JPRB/)
+KBO( :, 5,43,15) = (/&
+&1.8873E+02_JPRB,1.4167E+02_JPRB,9.5382E+01_JPRB,6.6299E+01_JPRB,6.7006E+01_JPRB/)
+KBO( :, 1,44,15) = (/&
+&7.7526E+01_JPRB,5.9880E+01_JPRB,5.8674E+01_JPRB,7.1657E+01_JPRB,8.9332E+01_JPRB/)
+KBO( :, 2,44,15) = (/&
+&1.0062E+02_JPRB,7.5764E+01_JPRB,6.3217E+01_JPRB,6.8595E+01_JPRB,8.3089E+01_JPRB/)
+KBO( :, 3,44,15) = (/&
+&1.2573E+02_JPRB,9.4425E+01_JPRB,7.0405E+01_JPRB,6.6884E+01_JPRB,7.7528E+01_JPRB/)
+KBO( :, 4,44,15) = (/&
+&1.5235E+02_JPRB,1.1439E+02_JPRB,7.9935E+01_JPRB,6.6125E+01_JPRB,7.2672E+01_JPRB/)
+KBO( :, 5,44,15) = (/&
+&1.7985E+02_JPRB,1.3501E+02_JPRB,9.1481E+01_JPRB,6.6264E+01_JPRB,6.8668E+01_JPRB/)
+KBO( :, 1,45,15) = (/&
+&7.0491E+01_JPRB,5.5510E+01_JPRB,5.8020E+01_JPRB,7.3319E+01_JPRB,9.2047E+01_JPRB/)
+KBO( :, 2,45,15) = (/&
+&9.2796E+01_JPRB,7.0229E+01_JPRB,6.1583E+01_JPRB,6.9737E+01_JPRB,8.5464E+01_JPRB/)
+KBO( :, 3,45,15) = (/&
+&1.1733E+02_JPRB,8.8127E+01_JPRB,6.7937E+01_JPRB,6.7594E+01_JPRB,7.9635E+01_JPRB/)
+KBO( :, 4,45,15) = (/&
+&1.4359E+02_JPRB,1.0781E+02_JPRB,7.6707E+01_JPRB,6.6524E+01_JPRB,7.4535E+01_JPRB/)
+KBO( :, 5,45,15) = (/&
+&1.7088E+02_JPRB,1.2829E+02_JPRB,8.7650E+01_JPRB,6.6303E+01_JPRB,7.0370E+01_JPRB/)
+KBO( :, 1,46,15) = (/&
+&6.3285E+01_JPRB,5.1283E+01_JPRB,5.7489E+01_JPRB,7.5126E+01_JPRB,9.5002E+01_JPRB/)
+KBO( :, 2,46,15) = (/&
+&8.4647E+01_JPRB,6.4675E+01_JPRB,6.0155E+01_JPRB,7.1107E+01_JPRB,8.8042E+01_JPRB/)
+KBO( :, 3,46,15) = (/&
+&1.0850E+02_JPRB,8.1543E+01_JPRB,6.5540E+01_JPRB,6.8434E+01_JPRB,8.1933E+01_JPRB/)
+KBO( :, 4,46,15) = (/&
+&1.3425E+02_JPRB,1.0081E+02_JPRB,7.3459E+01_JPRB,6.6985E+01_JPRB,7.6545E+01_JPRB/)
+KBO( :, 5,46,15) = (/&
+&1.6128E+02_JPRB,1.2109E+02_JPRB,8.3670E+01_JPRB,6.6464E+01_JPRB,7.2233E+01_JPRB/)
+KBO( :, 1,47,15) = (/&
+&5.5631E+01_JPRB,4.7112E+01_JPRB,5.7366E+01_JPRB,7.7250E+01_JPRB,9.8390E+01_JPRB/)
+KBO( :, 2,47,15) = (/&
+&7.5847E+01_JPRB,5.8961E+01_JPRB,5.9001E+01_JPRB,7.2829E+01_JPRB,9.1005E+01_JPRB/)
+KBO( :, 3,47,15) = (/&
+&9.8817E+01_JPRB,7.4522E+01_JPRB,6.3205E+01_JPRB,6.9511E+01_JPRB,8.4535E+01_JPRB/)
+KBO( :, 4,47,15) = (/&
+&1.2390E+02_JPRB,9.3053E+01_JPRB,7.0147E+01_JPRB,6.7616E+01_JPRB,7.8824E+01_JPRB/)
+KBO( :, 5,47,15) = (/&
+&1.5053E+02_JPRB,1.1302E+02_JPRB,7.9443E+01_JPRB,6.6722E+01_JPRB,7.4271E+01_JPRB/)
+KBO( :, 1,48,15) = (/&
+&4.8436E+01_JPRB,4.3553E+01_JPRB,5.7561E+01_JPRB,7.9397E+01_JPRB,1.0193E+02_JPRB/)
+KBO( :, 2,48,15) = (/&
+&6.7454E+01_JPRB,5.3825E+01_JPRB,5.8172E+01_JPRB,7.4675E+01_JPRB,9.4102E+01_JPRB/)
+KBO( :, 3,48,15) = (/&
+&8.9409E+01_JPRB,6.7955E+01_JPRB,6.1273E+01_JPRB,7.0816E+01_JPRB,8.7238E+01_JPRB/)
+KBO( :, 4,48,15) = (/&
+&1.1374E+02_JPRB,8.5433E+01_JPRB,6.7178E+01_JPRB,6.8391E+01_JPRB,8.1214E+01_JPRB/)
+KBO( :, 5,48,15) = (/&
+&1.3983E+02_JPRB,1.0500E+02_JPRB,7.5561E+01_JPRB,6.7098E+01_JPRB,7.6443E+01_JPRB/)
+KBO( :, 1,49,15) = (/&
+&4.1740E+01_JPRB,4.0612E+01_JPRB,5.8201E+01_JPRB,8.1772E+01_JPRB,1.0563E+02_JPRB/)
+KBO( :, 2,49,15) = (/&
+&5.9508E+01_JPRB,4.9323E+01_JPRB,5.7719E+01_JPRB,7.6675E+01_JPRB,9.7333E+01_JPRB/)
+KBO( :, 3,49,15) = (/&
+&8.0351E+01_JPRB,6.1919E+01_JPRB,5.9828E+01_JPRB,7.2362E+01_JPRB,9.0062E+01_JPRB/)
+KBO( :, 4,49,15) = (/&
+&1.0383E+02_JPRB,7.8144E+01_JPRB,6.4592E+01_JPRB,6.9309E+01_JPRB,8.3761E+01_JPRB/)
+KBO( :, 5,49,15) = (/&
+&1.2931E+02_JPRB,9.7110E+01_JPRB,7.1998E+01_JPRB,6.7617E+01_JPRB,7.8823E+01_JPRB/)
+KBO( :, 1,50,15) = (/&
+&3.5934E+01_JPRB,3.8439E+01_JPRB,5.9112E+01_JPRB,8.4116E+01_JPRB,1.0931E+02_JPRB/)
+KBO( :, 2,50,15) = (/&
+&5.2489E+01_JPRB,4.5633E+01_JPRB,5.7703E+01_JPRB,7.8607E+01_JPRB,1.0052E+02_JPRB/)
+KBO( :, 3,50,15) = (/&
+&7.2228E+01_JPRB,5.6786E+01_JPRB,5.8886E+01_JPRB,7.4022E+01_JPRB,9.2854E+01_JPRB/)
+KBO( :, 4,50,15) = (/&
+&9.4805E+01_JPRB,7.1728E+01_JPRB,6.2540E+01_JPRB,7.0379E+01_JPRB,8.6215E+01_JPRB/)
+KBO( :, 5,50,15) = (/&
+&1.1961E+02_JPRB,8.9835E+01_JPRB,6.9015E+01_JPRB,6.8227E+01_JPRB,8.1035E+01_JPRB/)
+KBO( :, 1,51,15) = (/&
+&3.0771E+01_JPRB,3.7000E+01_JPRB,6.0264E+01_JPRB,8.6506E+01_JPRB,1.1308E+02_JPRB/)
+KBO( :, 2,51,15) = (/&
+&4.6091E+01_JPRB,4.2604E+01_JPRB,5.8016E+01_JPRB,8.0604E+01_JPRB,1.0374E+02_JPRB/)
+KBO( :, 3,51,15) = (/&
+&6.4712E+01_JPRB,5.2306E+01_JPRB,5.8175E+01_JPRB,7.5702E+01_JPRB,9.5668E+01_JPRB/)
+KBO( :, 4,51,15) = (/&
+&8.6318E+01_JPRB,6.5907E+01_JPRB,6.0924E+01_JPRB,7.1626E+01_JPRB,8.8689E+01_JPRB/)
+KBO( :, 5,51,15) = (/&
+&1.1042E+02_JPRB,8.2968E+01_JPRB,6.6417E+01_JPRB,6.8953E+01_JPRB,8.3187E+01_JPRB/)
+KBO( :, 1,52,15) = (/&
+&2.6073E+01_JPRB,3.6045E+01_JPRB,6.1822E+01_JPRB,8.9117E+01_JPRB,1.1704E+02_JPRB/)
+KBO( :, 2,52,15) = (/&
+&4.0129E+01_JPRB,4.0074E+01_JPRB,5.8683E+01_JPRB,8.2788E+01_JPRB,1.0713E+02_JPRB/)
+KBO( :, 3,52,15) = (/&
+&5.7599E+01_JPRB,4.8365E+01_JPRB,5.7911E+01_JPRB,7.7538E+01_JPRB,9.8609E+01_JPRB/)
+KBO( :, 4,52,15) = (/&
+&7.8172E+01_JPRB,6.0565E+01_JPRB,5.9728E+01_JPRB,7.3072E+01_JPRB,9.1293E+01_JPRB/)
+KBO( :, 5,52,15) = (/&
+&1.0144E+02_JPRB,7.6446E+01_JPRB,6.4164E+01_JPRB,6.9820E+01_JPRB,8.5483E+01_JPRB/)
+KBO( :, 1,53,15) = (/&
+&2.1825E+01_JPRB,3.5431E+01_JPRB,6.3525E+01_JPRB,9.1916E+01_JPRB,1.2120E+02_JPRB/)
+KBO( :, 2,53,15) = (/&
+&3.4602E+01_JPRB,3.8125E+01_JPRB,5.9600E+01_JPRB,8.5050E+01_JPRB,1.1069E+02_JPRB/)
+KBO( :, 3,53,15) = (/&
+&5.0871E+01_JPRB,4.4917E+01_JPRB,5.7933E+01_JPRB,7.9373E+01_JPRB,1.0169E+02_JPRB/)
+KBO( :, 4,53,15) = (/&
+&7.0355E+01_JPRB,5.5689E+01_JPRB,5.8850E+01_JPRB,7.4670E+01_JPRB,9.4071E+01_JPRB/)
+KBO( :, 5,53,15) = (/&
+&9.2711E+01_JPRB,7.0293E+01_JPRB,6.2235E+01_JPRB,7.0877E+01_JPRB,8.7997E+01_JPRB/)
+KBO( :, 1,54,15) = (/&
+&1.8337E+01_JPRB,3.5294E+01_JPRB,6.5103E+01_JPRB,9.4568E+01_JPRB,1.2522E+02_JPRB/)
+KBO( :, 2,54,15) = (/&
+&2.9950E+01_JPRB,3.6915E+01_JPRB,6.0716E+01_JPRB,8.7228E+01_JPRB,1.1414E+02_JPRB/)
+KBO( :, 3,54,15) = (/&
+&4.5070E+01_JPRB,4.2223E+01_JPRB,5.8276E+01_JPRB,8.1216E+01_JPRB,1.0463E+02_JPRB/)
+KBO( :, 4,54,15) = (/&
+&6.3520E+01_JPRB,5.1682E+01_JPRB,5.8241E+01_JPRB,7.6218E+01_JPRB,9.6556E+01_JPRB/)
+KBO( :, 5,54,15) = (/&
+&8.4973E+01_JPRB,6.5035E+01_JPRB,6.0814E+01_JPRB,7.2031E+01_JPRB,8.9905E+01_JPRB/)
+KBO( :, 1,55,15) = (/&
+&1.5337E+01_JPRB,3.5484E+01_JPRB,6.6783E+01_JPRB,9.7340E+01_JPRB,1.2928E+02_JPRB/)
+KBO( :, 2,55,15) = (/&
+&2.5852E+01_JPRB,3.6097E+01_JPRB,6.2097E+01_JPRB,8.9537E+01_JPRB,1.1762E+02_JPRB/)
+KBO( :, 3,55,15) = (/&
+&3.9852E+01_JPRB,4.0035E+01_JPRB,5.8876E+01_JPRB,8.3127E+01_JPRB,1.0760E+02_JPRB/)
+KBO( :, 4,55,15) = (/&
+&5.7277E+01_JPRB,4.8243E+01_JPRB,5.8037E+01_JPRB,7.7828E+01_JPRB,9.9021E+01_JPRB/)
+KBO( :, 5,55,15) = (/&
+&7.7821E+01_JPRB,6.0372E+01_JPRB,5.9798E+01_JPRB,7.3320E+01_JPRB,9.1766E+01_JPRB/)
+KBO( :, 1,56,15) = (/&
+&1.2678E+01_JPRB,3.5873E+01_JPRB,6.8551E+01_JPRB,1.0034E+02_JPRB,1.3352E+02_JPRB/)
+KBO( :, 2,56,15) = (/&
+&2.2123E+01_JPRB,3.5552E+01_JPRB,6.3571E+01_JPRB,9.1965E+01_JPRB,1.2124E+02_JPRB/)
+KBO( :, 3,56,15) = (/&
+&3.5001E+01_JPRB,3.8317E+01_JPRB,5.9669E+01_JPRB,8.5094E+01_JPRB,1.1071E+02_JPRB/)
+KBO( :, 4,56,15) = (/&
+&5.1365E+01_JPRB,4.5210E+01_JPRB,5.8041E+01_JPRB,7.9413E+01_JPRB,1.0170E+02_JPRB/)
+KBO( :, 5,56,15) = (/&
+&7.0946E+01_JPRB,5.6077E+01_JPRB,5.9007E+01_JPRB,7.4694E+01_JPRB,9.3909E+01_JPRB/)
+KBO( :, 1,57,15) = (/&
+&1.0339E+01_JPRB,3.6549E+01_JPRB,7.0411E+01_JPRB,1.0357E+02_JPRB,1.3800E+02_JPRB/)
+KBO( :, 2,57,15) = (/&
+&1.8742E+01_JPRB,3.5363E+01_JPRB,6.5053E+01_JPRB,9.4457E+01_JPRB,1.2502E+02_JPRB/)
+KBO( :, 3,57,15) = (/&
+&3.0504E+01_JPRB,3.7104E+01_JPRB,6.0681E+01_JPRB,8.7139E+01_JPRB,1.1395E+02_JPRB/)
+KBO( :, 4,57,15) = (/&
+&4.5773E+01_JPRB,4.2584E+01_JPRB,5.8331E+01_JPRB,8.1143E+01_JPRB,1.0448E+02_JPRB/)
+KBO( :, 5,57,15) = (/&
+&6.4363E+01_JPRB,5.2190E+01_JPRB,5.8389E+01_JPRB,7.6157E+01_JPRB,9.6302E+01_JPRB/)
+KBO( :, 1,58,15) = (/&
+&8.4072E+00_JPRB,3.7388E+01_JPRB,7.2338E+01_JPRB,1.0684E+02_JPRB,1.4246E+02_JPRB/)
+KBO( :, 2,58,15) = (/&
+&1.5855E+01_JPRB,3.5502E+01_JPRB,6.6608E+01_JPRB,9.7023E+01_JPRB,1.2881E+02_JPRB/)
+KBO( :, 3,58,15) = (/&
+&2.6572E+01_JPRB,3.6289E+01_JPRB,6.1949E+01_JPRB,8.9266E+01_JPRB,1.1719E+02_JPRB/)
+KBO( :, 4,58,15) = (/&
+&4.0779E+01_JPRB,4.0444E+01_JPRB,5.8844E+01_JPRB,8.2917E+01_JPRB,1.0723E+02_JPRB/)
+KBO( :, 5,58,15) = (/&
+&5.8404E+01_JPRB,4.8880E+01_JPRB,5.8134E+01_JPRB,7.7647E+01_JPRB,9.8698E+01_JPRB/)
+KBO( :, 1,59,15) = (/&
+&7.7095E+00_JPRB,3.7763E+01_JPRB,7.3160E+01_JPRB,1.0825E+02_JPRB,1.4434E+02_JPRB/)
+KBO( :, 2,59,15) = (/&
+&1.4785E+01_JPRB,3.5623E+01_JPRB,6.7273E+01_JPRB,9.8137E+01_JPRB,1.3040E+02_JPRB/)
+KBO( :, 3,59,15) = (/&
+&2.5092E+01_JPRB,3.6030E+01_JPRB,6.2505E+01_JPRB,9.0193E+01_JPRB,1.1856E+02_JPRB/)
+KBO( :, 4,59,15) = (/&
+&3.8875E+01_JPRB,3.9709E+01_JPRB,5.9122E+01_JPRB,8.3653E+01_JPRB,1.0840E+02_JPRB/)
+KBO( :, 5,59,15) = (/&
+&5.6102E+01_JPRB,4.7649E+01_JPRB,5.8109E+01_JPRB,7.8262E+01_JPRB,9.9705E+01_JPRB/)
+KBO( :, 1,13,16) = (/&
+&3.2263E+01_JPRB,2.4210E+01_JPRB,1.6158E+01_JPRB,8.6472E+00_JPRB,1.1361E+01_JPRB/)
+KBO( :, 2,13,16) = (/&
+&4.5174E+01_JPRB,3.3894E+01_JPRB,2.2614E+01_JPRB,1.1334E+01_JPRB,1.0965E+01_JPRB/)
+KBO( :, 3,13,16) = (/&
+&6.0029E+01_JPRB,4.5035E+01_JPRB,3.0042E+01_JPRB,1.5048E+01_JPRB,1.0696E+01_JPRB/)
+KBO( :, 4,13,16) = (/&
+&7.6465E+01_JPRB,5.7362E+01_JPRB,3.8260E+01_JPRB,1.9157E+01_JPRB,1.0564E+01_JPRB/)
+KBO( :, 5,13,16) = (/&
+&9.4073E+01_JPRB,7.0568E+01_JPRB,4.7064E+01_JPRB,2.3559E+01_JPRB,1.0648E+01_JPRB/)
+KBO( :, 1,14,16) = (/&
+&3.9418E+01_JPRB,2.9575E+01_JPRB,1.9732E+01_JPRB,1.0271E+01_JPRB,1.2990E+01_JPRB/)
+KBO( :, 2,14,16) = (/&
+&5.4735E+01_JPRB,4.1063E+01_JPRB,2.7391E+01_JPRB,1.3719E+01_JPRB,1.2722E+01_JPRB/)
+KBO( :, 3,14,16) = (/&
+&7.2196E+01_JPRB,5.4159E+01_JPRB,3.6122E+01_JPRB,1.8084E+01_JPRB,1.2482E+01_JPRB/)
+KBO( :, 4,14,16) = (/&
+&9.1581E+01_JPRB,6.8699E+01_JPRB,4.5817E+01_JPRB,2.2935E+01_JPRB,1.2482E+01_JPRB/)
+KBO( :, 5,14,16) = (/&
+&1.1260E+02_JPRB,8.4466E+01_JPRB,5.6330E+01_JPRB,2.8194E+01_JPRB,1.2541E+01_JPRB/)
+KBO( :, 1,15,16) = (/&
+&4.7744E+01_JPRB,3.5818E+01_JPRB,2.3892E+01_JPRB,1.2552E+01_JPRB,1.5030E+01_JPRB/)
+KBO( :, 2,15,16) = (/&
+&6.5839E+01_JPRB,4.9390E+01_JPRB,3.2941E+01_JPRB,1.6492E+01_JPRB,1.4777E+01_JPRB/)
+KBO( :, 3,15,16) = (/&
+&8.6769E+01_JPRB,6.5089E+01_JPRB,4.3408E+01_JPRB,2.1728E+01_JPRB,1.4586E+01_JPRB/)
+KBO( :, 4,15,16) = (/&
+&1.1002E+02_JPRB,8.2528E+01_JPRB,5.5036E+01_JPRB,2.7544E+01_JPRB,1.4666E+01_JPRB/)
+KBO( :, 5,15,16) = (/&
+&1.3516E+02_JPRB,1.0139E+02_JPRB,6.7610E+01_JPRB,3.3833E+01_JPRB,1.4702E+01_JPRB/)
+KBO( :, 1,16,16) = (/&
+&5.7645E+01_JPRB,4.3243E+01_JPRB,2.8842E+01_JPRB,1.5267E+01_JPRB,1.7359E+01_JPRB/)
+KBO( :, 2,16,16) = (/&
+&7.9413E+01_JPRB,5.9570E+01_JPRB,3.9727E+01_JPRB,1.9884E+01_JPRB,1.7054E+01_JPRB/)
+KBO( :, 3,16,16) = (/&
+&1.0440E+02_JPRB,7.8314E+01_JPRB,5.2225E+01_JPRB,2.6135E+01_JPRB,1.7041E+01_JPRB/)
+KBO( :, 4,16,16) = (/&
+&1.3208E+02_JPRB,9.9071E+01_JPRB,6.6063E+01_JPRB,3.3056E+01_JPRB,1.7119E+01_JPRB/)
+KBO( :, 5,16,16) = (/&
+&1.6175E+02_JPRB,1.2132E+02_JPRB,8.0899E+01_JPRB,4.0476E+01_JPRB,1.7152E+01_JPRB/)
+KBO( :, 1,17,16) = (/&
+&6.9575E+01_JPRB,5.2190E+01_JPRB,3.4804E+01_JPRB,1.8369E+01_JPRB,1.9921E+01_JPRB/)
+KBO( :, 2,17,16) = (/&
+&9.5428E+01_JPRB,7.1580E+01_JPRB,4.7733E+01_JPRB,2.3885E+01_JPRB,1.9756E+01_JPRB/)
+KBO( :, 3,17,16) = (/&
+&1.2491E+02_JPRB,9.3694E+01_JPRB,6.2476E+01_JPRB,3.1259E+01_JPRB,1.9810E+01_JPRB/)
+KBO( :, 4,17,16) = (/&
+&1.5735E+02_JPRB,1.1802E+02_JPRB,7.8696E+01_JPRB,3.9370E+01_JPRB,1.9895E+01_JPRB/)
+KBO( :, 5,17,16) = (/&
+&1.9186E+02_JPRB,1.4391E+02_JPRB,9.5955E+01_JPRB,4.8001E+01_JPRB,1.9910E+01_JPRB/)
+KBO( :, 1,18,16) = (/&
+&8.3432E+01_JPRB,6.2581E+01_JPRB,4.1731E+01_JPRB,2.1854E+01_JPRB,2.3228E+01_JPRB/)
+KBO( :, 2,18,16) = (/&
+&1.1378E+02_JPRB,8.5346E+01_JPRB,5.6908E+01_JPRB,2.8471E+01_JPRB,2.3168E+01_JPRB/)
+KBO( :, 3,18,16) = (/&
+&1.4807E+02_JPRB,1.1106E+02_JPRB,7.4051E+01_JPRB,3.7043E+01_JPRB,2.3063E+01_JPRB/)
+KBO( :, 4,18,16) = (/&
+&1.8546E+02_JPRB,1.3910E+02_JPRB,9.2747E+01_JPRB,4.6393E+01_JPRB,2.3051E+01_JPRB/)
+KBO( :, 5,18,16) = (/&
+&2.2501E+02_JPRB,1.6877E+02_JPRB,1.1253E+02_JPRB,5.6286E+01_JPRB,2.2993E+01_JPRB/)
+KBO( :, 1,19,16) = (/&
+&9.9057E+01_JPRB,7.4299E+01_JPRB,4.9542E+01_JPRB,2.5942E+01_JPRB,2.7272E+01_JPRB/)
+KBO( :, 2,19,16) = (/&
+&1.3405E+02_JPRB,1.0055E+02_JPRB,6.7042E+01_JPRB,3.3543E+01_JPRB,2.7144E+01_JPRB/)
+KBO( :, 3,19,16) = (/&
+&1.7334E+02_JPRB,1.3002E+02_JPRB,8.6689E+01_JPRB,4.3364E+01_JPRB,2.6916E+01_JPRB/)
+KBO( :, 4,19,16) = (/&
+&2.1641E+02_JPRB,1.6232E+02_JPRB,1.0823E+02_JPRB,5.4140E+01_JPRB,2.6725E+01_JPRB/)
+KBO( :, 5,19,16) = (/&
+&2.6236E+02_JPRB,1.9678E+02_JPRB,1.3121E+02_JPRB,6.5630E+01_JPRB,2.6538E+01_JPRB/)
+KBO( :, 1,20,16) = (/&
+&1.1670E+02_JPRB,8.7534E+01_JPRB,5.8366E+01_JPRB,3.0680E+01_JPRB,3.1959E+01_JPRB/)
+KBO( :, 2,20,16) = (/&
+&1.5709E+02_JPRB,1.1783E+02_JPRB,7.8566E+01_JPRB,3.9305E+01_JPRB,3.1724E+01_JPRB/)
+KBO( :, 3,20,16) = (/&
+&2.0269E+02_JPRB,1.5203E+02_JPRB,1.0137E+02_JPRB,5.0708E+01_JPRB,3.1376E+01_JPRB/)
+KBO( :, 4,20,16) = (/&
+&2.5230E+02_JPRB,1.8924E+02_JPRB,1.2618E+02_JPRB,6.3114E+01_JPRB,3.0984E+01_JPRB/)
+KBO( :, 5,20,16) = (/&
+&3.0479E+02_JPRB,2.2861E+02_JPRB,1.5242E+02_JPRB,7.6237E+01_JPRB,3.0606E+01_JPRB/)
+KBO( :, 1,21,16) = (/&
+&1.3677E+02_JPRB,1.0259E+02_JPRB,6.8408E+01_JPRB,3.5947E+01_JPRB,3.7295E+01_JPRB/)
+KBO( :, 2,21,16) = (/&
+&1.8327E+02_JPRB,1.3746E+02_JPRB,9.1655E+01_JPRB,4.5850E+01_JPRB,3.6923E+01_JPRB/)
+KBO( :, 3,21,16) = (/&
+&2.3530E+02_JPRB,1.7648E+02_JPRB,1.1767E+02_JPRB,5.8860E+01_JPRB,3.6405E+01_JPRB/)
+KBO( :, 4,21,16) = (/&
+&2.9155E+02_JPRB,2.1867E+02_JPRB,1.4580E+02_JPRB,7.2922E+01_JPRB,3.5874E+01_JPRB/)
+KBO( :, 5,21,16) = (/&
+&3.5033E+02_JPRB,2.6276E+02_JPRB,1.7519E+02_JPRB,8.7619E+01_JPRB,3.5270E+01_JPRB/)
+KBO( :, 1,22,16) = (/&
+&1.6233E+02_JPRB,1.2176E+02_JPRB,8.1187E+01_JPRB,4.2657E+01_JPRB,4.3248E+01_JPRB/)
+KBO( :, 2,22,16) = (/&
+&2.1544E+02_JPRB,1.6159E+02_JPRB,1.0774E+02_JPRB,5.3945E+01_JPRB,4.2701E+01_JPRB/)
+KBO( :, 3,22,16) = (/&
+&2.7410E+02_JPRB,2.0559E+02_JPRB,1.3707E+02_JPRB,6.8557E+01_JPRB,4.2119E+01_JPRB/)
+KBO( :, 4,22,16) = (/&
+&3.3685E+02_JPRB,2.5265E+02_JPRB,1.6845E+02_JPRB,8.4248E+01_JPRB,4.1509E+01_JPRB/)
+KBO( :, 5,22,16) = (/&
+&4.0263E+02_JPRB,3.0199E+02_JPRB,2.0134E+02_JPRB,1.0070E+02_JPRB,4.0811E+01_JPRB/)
+KBO( :, 1,23,16) = (/&
+&1.9053E+02_JPRB,1.4291E+02_JPRB,9.5285E+01_JPRB,5.0617E+01_JPRB,5.0337E+01_JPRB/)
+KBO( :, 2,23,16) = (/&
+&2.5017E+02_JPRB,1.8764E+02_JPRB,1.2511E+02_JPRB,6.2998E+01_JPRB,4.9660E+01_JPRB/)
+KBO( :, 3,23,16) = (/&
+&3.1595E+02_JPRB,2.3698E+02_JPRB,1.5800E+02_JPRB,7.9029E+01_JPRB,4.8927E+01_JPRB/)
+KBO( :, 4,23,16) = (/&
+&3.8628E+02_JPRB,2.8972E+02_JPRB,1.9317E+02_JPRB,9.6612E+01_JPRB,4.8034E+01_JPRB/)
+KBO( :, 5,23,16) = (/&
+&4.5926E+02_JPRB,3.4446E+02_JPRB,2.2966E+02_JPRB,1.1486E+02_JPRB,4.7018E+01_JPRB/)
+KBO( :, 1,24,16) = (/&
+&2.2153E+02_JPRB,1.6616E+02_JPRB,1.1079E+02_JPRB,5.9590E+01_JPRB,5.8418E+01_JPRB/)
+KBO( :, 2,24,16) = (/&
+&2.8858E+02_JPRB,2.1645E+02_JPRB,1.4432E+02_JPRB,7.2964E+01_JPRB,5.7353E+01_JPRB/)
+KBO( :, 3,24,16) = (/&
+&3.6176E+02_JPRB,2.7134E+02_JPRB,1.8091E+02_JPRB,9.0484E+01_JPRB,5.6191E+01_JPRB/)
+KBO( :, 4,24,16) = (/&
+&4.3913E+02_JPRB,3.2936E+02_JPRB,2.1959E+02_JPRB,1.0983E+02_JPRB,5.4899E+01_JPRB/)
+KBO( :, 5,24,16) = (/&
+&5.1871E+02_JPRB,3.8905E+02_JPRB,2.5939E+02_JPRB,1.2972E+02_JPRB,5.3493E+01_JPRB/)
+KBO( :, 1,25,16) = (/&
+&2.5592E+02_JPRB,1.9195E+02_JPRB,1.2799E+02_JPRB,6.9505E+01_JPRB,6.6958E+01_JPRB/)
+KBO( :, 2,25,16) = (/&
+&3.3021E+02_JPRB,2.4767E+02_JPRB,1.6513E+02_JPRB,8.3805E+01_JPRB,6.5388E+01_JPRB/)
+KBO( :, 3,25,16) = (/&
+&4.1034E+02_JPRB,3.0777E+02_JPRB,2.0520E+02_JPRB,1.0263E+02_JPRB,6.3684E+01_JPRB/)
+KBO( :, 4,25,16) = (/&
+&4.9407E+02_JPRB,3.7057E+02_JPRB,2.4706E+02_JPRB,1.2356E+02_JPRB,6.1889E+01_JPRB/)
+KBO( :, 5,25,16) = (/&
+&5.7945E+02_JPRB,4.3460E+02_JPRB,2.8975E+02_JPRB,1.4490E+02_JPRB,6.0007E+01_JPRB/)
+KBO( :, 1,26,16) = (/&
+&2.9375E+02_JPRB,2.2033E+02_JPRB,1.4690E+02_JPRB,8.0244E+01_JPRB,7.5657E+01_JPRB/)
+KBO( :, 2,26,16) = (/&
+&3.7482E+02_JPRB,2.8113E+02_JPRB,1.8744E+02_JPRB,9.5627E+01_JPRB,7.3427E+01_JPRB/)
+KBO( :, 3,26,16) = (/&
+&4.6126E+02_JPRB,3.4596E+02_JPRB,2.3065E+02_JPRB,1.1546E+02_JPRB,7.1104E+01_JPRB/)
+KBO( :, 4,26,16) = (/&
+&5.5138E+02_JPRB,4.1354E+02_JPRB,2.7571E+02_JPRB,1.3788E+02_JPRB,6.8732E+01_JPRB/)
+KBO( :, 5,26,16) = (/&
+&6.4282E+02_JPRB,4.8213E+02_JPRB,3.2143E+02_JPRB,1.6074E+02_JPRB,6.6296E+01_JPRB/)
+KBO( :, 1,27,16) = (/&
+&3.3321E+02_JPRB,2.4992E+02_JPRB,1.6663E+02_JPRB,9.1366E+01_JPRB,8.4138E+01_JPRB/)
+KBO( :, 2,27,16) = (/&
+&4.2092E+02_JPRB,3.1570E+02_JPRB,2.1048E+02_JPRB,1.0786E+02_JPRB,8.1216E+01_JPRB/)
+KBO( :, 3,27,16) = (/&
+&5.1399E+02_JPRB,3.8550E+02_JPRB,2.5701E+02_JPRB,1.2862E+02_JPRB,7.8186E+01_JPRB/)
+KBO( :, 4,27,16) = (/&
+&6.0988E+02_JPRB,4.5742E+02_JPRB,3.0496E+02_JPRB,1.5250E+02_JPRB,7.5179E+01_JPRB/)
+KBO( :, 5,27,16) = (/&
+&7.0613E+02_JPRB,5.2960E+02_JPRB,3.5308E+02_JPRB,1.7656E+02_JPRB,7.2191E+01_JPRB/)
+KBO( :, 1,28,16) = (/&
+&3.7433E+02_JPRB,2.8075E+02_JPRB,1.8718E+02_JPRB,1.0259E+02_JPRB,9.2146E+01_JPRB/)
+KBO( :, 2,28,16) = (/&
+&4.6847E+02_JPRB,3.5136E+02_JPRB,2.3425E+02_JPRB,1.2023E+02_JPRB,8.8477E+01_JPRB/)
+KBO( :, 3,28,16) = (/&
+&5.6719E+02_JPRB,4.2540E+02_JPRB,2.8361E+02_JPRB,1.4204E+02_JPRB,8.4711E+01_JPRB/)
+KBO( :, 4,28,16) = (/&
+&6.6805E+02_JPRB,5.0105E+02_JPRB,3.3404E+02_JPRB,1.6704E+02_JPRB,8.1058E+01_JPRB/)
+KBO( :, 5,28,16) = (/&
+&7.6861E+02_JPRB,5.7647E+02_JPRB,3.8432E+02_JPRB,1.9217E+02_JPRB,7.7535E+01_JPRB/)
+KBO( :, 1,29,16) = (/&
+&4.1725E+02_JPRB,3.1294E+02_JPRB,2.0864E+02_JPRB,1.1391E+02_JPRB,9.9444E+01_JPRB/)
+KBO( :, 2,29,16) = (/&
+&5.1701E+02_JPRB,3.8777E+02_JPRB,2.5852E+02_JPRB,1.3257E+02_JPRB,9.4950E+01_JPRB/)
+KBO( :, 3,29,16) = (/&
+&6.2080E+02_JPRB,4.6561E+02_JPRB,3.1041E+02_JPRB,1.5542E+02_JPRB,9.0532E+01_JPRB/)
+KBO( :, 4,29,16) = (/&
+&7.2558E+02_JPRB,5.4419E+02_JPRB,3.6280E+02_JPRB,1.8141E+02_JPRB,8.6254E+01_JPRB/)
+KBO( :, 5,29,16) = (/&
+&8.2901E+02_JPRB,6.2176E+02_JPRB,4.1451E+02_JPRB,2.0727E+02_JPRB,8.2152E+01_JPRB/)
+KBO( :, 1,30,16) = (/&
+&4.6074E+02_JPRB,3.4556E+02_JPRB,2.3038E+02_JPRB,1.2510E+02_JPRB,1.0583E+02_JPRB/)
+KBO( :, 2,30,16) = (/&
+&5.6540E+02_JPRB,4.2406E+02_JPRB,2.8271E+02_JPRB,1.4464E+02_JPRB,1.0057E+02_JPRB/)
+KBO( :, 3,30,16) = (/&
+&6.7286E+02_JPRB,5.0465E+02_JPRB,3.3644E+02_JPRB,1.6852E+02_JPRB,9.5505E+01_JPRB/)
+KBO( :, 4,30,16) = (/&
+&7.8088E+02_JPRB,5.8566E+02_JPRB,3.9045E+02_JPRB,1.9523E+02_JPRB,9.0661E+01_JPRB/)
+KBO( :, 5,30,16) = (/&
+&8.8686E+02_JPRB,6.6515E+02_JPRB,4.4344E+02_JPRB,2.2173E+02_JPRB,8.6036E+01_JPRB/)
+KBO( :, 1,31,16) = (/&
+&5.0472E+02_JPRB,3.7854E+02_JPRB,2.5237E+02_JPRB,1.3614E+02_JPRB,1.1117E+02_JPRB/)
+KBO( :, 2,31,16) = (/&
+&6.1339E+02_JPRB,4.6004E+02_JPRB,3.0670E+02_JPRB,1.5661E+02_JPRB,1.0529E+02_JPRB/)
+KBO( :, 3,31,16) = (/&
+&7.2433E+02_JPRB,5.4325E+02_JPRB,3.6217E+02_JPRB,1.8144E+02_JPRB,9.9591E+01_JPRB/)
+KBO( :, 4,31,16) = (/&
+&8.3504E+02_JPRB,6.2629E+02_JPRB,4.1753E+02_JPRB,2.0877E+02_JPRB,9.4229E+01_JPRB/)
+KBO( :, 5,31,16) = (/&
+&9.4280E+02_JPRB,7.0711E+02_JPRB,4.7141E+02_JPRB,2.3571E+02_JPRB,8.9176E+01_JPRB/)
+KBO( :, 1,32,16) = (/&
+&5.4855E+02_JPRB,4.1142E+02_JPRB,2.7428E+02_JPRB,1.4676E+02_JPRB,1.1548E+02_JPRB/)
+KBO( :, 2,32,16) = (/&
+&6.6091E+02_JPRB,4.9568E+02_JPRB,3.3046E+02_JPRB,1.6826E+02_JPRB,1.0901E+02_JPRB/)
+KBO( :, 3,32,16) = (/&
+&7.7477E+02_JPRB,5.8108E+02_JPRB,3.8739E+02_JPRB,1.9388E+02_JPRB,1.0281E+02_JPRB/)
+KBO( :, 4,32,16) = (/&
+&8.8730E+02_JPRB,6.6548E+02_JPRB,4.4366E+02_JPRB,2.2183E+02_JPRB,9.7004E+01_JPRB/)
+KBO( :, 5,32,16) = (/&
+&9.9594E+02_JPRB,7.4695E+02_JPRB,4.9797E+02_JPRB,2.4899E+02_JPRB,9.1601E+01_JPRB/)
+KBO( :, 1,33,16) = (/&
+&5.9242E+02_JPRB,4.4432E+02_JPRB,2.9622E+02_JPRB,1.5694E+02_JPRB,1.1883E+02_JPRB/)
+KBO( :, 2,33,16) = (/&
+&7.0777E+02_JPRB,5.3083E+02_JPRB,3.5389E+02_JPRB,1.7956E+02_JPRB,1.1183E+02_JPRB/)
+KBO( :, 3,33,16) = (/&
+&8.2358E+02_JPRB,6.1768E+02_JPRB,4.1179E+02_JPRB,2.0591E+02_JPRB,1.0524E+02_JPRB/)
+KBO( :, 4,33,16) = (/&
+&9.3713E+02_JPRB,7.0285E+02_JPRB,4.6857E+02_JPRB,2.3429E+02_JPRB,9.9066E+01_JPRB/)
+KBO( :, 5,33,16) = (/&
+&1.0459E+03_JPRB,7.8446E+02_JPRB,5.2297E+02_JPRB,2.6149E+02_JPRB,9.3354E+01_JPRB/)
+KBO( :, 1,34,16) = (/&
+&6.3153E+02_JPRB,4.7365E+02_JPRB,3.1577E+02_JPRB,1.6595E+02_JPRB,1.2152E+02_JPRB/)
+KBO( :, 2,34,16) = (/&
+&7.4904E+02_JPRB,5.6178E+02_JPRB,3.7452E+02_JPRB,1.8952E+02_JPRB,1.1409E+02_JPRB/)
+KBO( :, 3,34,16) = (/&
+&8.6625E+02_JPRB,6.4969E+02_JPRB,4.3313E+02_JPRB,2.1657E+02_JPRB,1.0714E+02_JPRB/)
+KBO( :, 4,34,16) = (/&
+&9.8045E+02_JPRB,7.3534E+02_JPRB,4.9023E+02_JPRB,2.4512E+02_JPRB,1.0070E+02_JPRB/)
+KBO( :, 5,34,16) = (/&
+&1.0897E+03_JPRB,8.1726E+02_JPRB,5.4484E+02_JPRB,2.7243E+02_JPRB,9.4730E+01_JPRB/)
+KBO( :, 1,35,16) = (/&
+&6.5821E+02_JPRB,4.9366E+02_JPRB,3.2911E+02_JPRB,1.7240E+02_JPRB,1.2419E+02_JPRB/)
+KBO( :, 2,35,16) = (/&
+&7.7728E+02_JPRB,5.8296E+02_JPRB,3.8864E+02_JPRB,1.9649E+02_JPRB,1.1638E+02_JPRB/)
+KBO( :, 3,35,16) = (/&
+&8.9594E+02_JPRB,6.7196E+02_JPRB,4.4797E+02_JPRB,2.2399E+02_JPRB,1.0909E+02_JPRB/)
+KBO( :, 4,35,16) = (/&
+&1.0109E+03_JPRB,7.5821E+02_JPRB,5.0548E+02_JPRB,2.5274E+02_JPRB,1.0239E+02_JPRB/)
+KBO( :, 5,35,16) = (/&
+&1.1199E+03_JPRB,8.3992E+02_JPRB,5.5995E+02_JPRB,2.7998E+02_JPRB,9.6183E+01_JPRB/)
+KBO( :, 1,36,16) = (/&
+&6.7059E+02_JPRB,5.0294E+02_JPRB,3.3530E+02_JPRB,1.7604E+02_JPRB,1.2715E+02_JPRB/)
+KBO( :, 2,36,16) = (/&
+&7.9094E+02_JPRB,5.9320E+02_JPRB,3.9547E+02_JPRB,2.0012E+02_JPRB,1.1897E+02_JPRB/)
+KBO( :, 3,36,16) = (/&
+&9.1055E+02_JPRB,6.8291E+02_JPRB,4.5528E+02_JPRB,2.2764E+02_JPRB,1.1135E+02_JPRB/)
+KBO( :, 4,36,16) = (/&
+&1.0266E+03_JPRB,7.6996E+02_JPRB,5.1331E+02_JPRB,2.5666E+02_JPRB,1.0436E+02_JPRB/)
+KBO( :, 5,36,16) = (/&
+&1.1363E+03_JPRB,8.5221E+02_JPRB,5.6814E+02_JPRB,2.8407E+02_JPRB,9.7934E+01_JPRB/)
+KBO( :, 1,37,16) = (/&
+&6.6319E+02_JPRB,4.9740E+02_JPRB,3.3160E+02_JPRB,1.7601E+02_JPRB,1.3096E+02_JPRB/)
+KBO( :, 2,37,16) = (/&
+&7.8424E+02_JPRB,5.8818E+02_JPRB,3.9212E+02_JPRB,1.9937E+02_JPRB,1.2236E+02_JPRB/)
+KBO( :, 3,37,16) = (/&
+&9.0524E+02_JPRB,6.7893E+02_JPRB,4.5262E+02_JPRB,2.2635E+02_JPRB,1.1439E+02_JPRB/)
+KBO( :, 4,37,16) = (/&
+&1.0226E+03_JPRB,7.6693E+02_JPRB,5.1129E+02_JPRB,2.5565E+02_JPRB,1.0707E+02_JPRB/)
+KBO( :, 5,37,16) = (/&
+&1.1340E+03_JPRB,8.5053E+02_JPRB,5.6702E+02_JPRB,2.8351E+02_JPRB,1.0033E+02_JPRB/)
+KBO( :, 1,38,16) = (/&
+&6.5328E+02_JPRB,4.8996E+02_JPRB,3.2664E+02_JPRB,1.7551E+02_JPRB,1.3460E+02_JPRB/)
+KBO( :, 2,38,16) = (/&
+&7.7497E+02_JPRB,5.8123E+02_JPRB,3.8749E+02_JPRB,1.9811E+02_JPRB,1.2556E+02_JPRB/)
+KBO( :, 3,38,16) = (/&
+&8.9678E+02_JPRB,6.7259E+02_JPRB,4.4839E+02_JPRB,2.2452E+02_JPRB,1.1726E+02_JPRB/)
+KBO( :, 4,38,16) = (/&
+&1.0156E+03_JPRB,7.6168E+02_JPRB,5.0779E+02_JPRB,2.5390E+02_JPRB,1.0960E+02_JPRB/)
+KBO( :, 5,38,16) = (/&
+&1.1289E+03_JPRB,8.4669E+02_JPRB,5.6446E+02_JPRB,2.8223E+02_JPRB,1.0262E+02_JPRB/)
+KBO( :, 1,39,16) = (/&
+&6.4257E+02_JPRB,4.8193E+02_JPRB,3.2129E+02_JPRB,1.7479E+02_JPRB,1.3792E+02_JPRB/)
+KBO( :, 2,39,16) = (/&
+&7.6414E+02_JPRB,5.7310E+02_JPRB,3.8207E+02_JPRB,1.9654E+02_JPRB,1.2851E+02_JPRB/)
+KBO( :, 3,39,16) = (/&
+&8.8664E+02_JPRB,6.6498E+02_JPRB,4.4332E+02_JPRB,2.2243E+02_JPRB,1.1989E+02_JPRB/)
+KBO( :, 4,39,16) = (/&
+&1.0066E+03_JPRB,7.5495E+02_JPRB,5.0330E+02_JPRB,2.5165E+02_JPRB,1.1192E+02_JPRB/)
+KBO( :, 5,39,16) = (/&
+&1.1211E+03_JPRB,8.4084E+02_JPRB,5.6056E+02_JPRB,2.8028E+02_JPRB,1.0470E+02_JPRB/)
+KBO( :, 1,40,16) = (/&
+&6.1808E+02_JPRB,4.6356E+02_JPRB,3.0904E+02_JPRB,1.7192E+02_JPRB,1.4210E+02_JPRB/)
+KBO( :, 2,40,16) = (/&
+&7.3974E+02_JPRB,5.5481E+02_JPRB,3.6987E+02_JPRB,1.9237E+02_JPRB,1.3221E+02_JPRB/)
+KBO( :, 3,40,16) = (/&
+&8.6274E+02_JPRB,6.4706E+02_JPRB,4.3137E+02_JPRB,2.1745E+02_JPRB,1.2321E+02_JPRB/)
+KBO( :, 4,40,16) = (/&
+&9.8377E+02_JPRB,7.3783E+02_JPRB,4.9189E+02_JPRB,2.4594E+02_JPRB,1.1493E+02_JPRB/)
+KBO( :, 5,40,16) = (/&
+&1.1003E+03_JPRB,8.2526E+02_JPRB,5.5018E+02_JPRB,2.7509E+02_JPRB,1.0740E+02_JPRB/)
+KBO( :, 1,41,16) = (/&
+&5.9120E+02_JPRB,4.4340E+02_JPRB,2.9560E+02_JPRB,1.6877E+02_JPRB,1.4632E+02_JPRB/)
+KBO( :, 2,41,16) = (/&
+&7.1268E+02_JPRB,5.3451E+02_JPRB,3.5634E+02_JPRB,1.8787E+02_JPRB,1.3592E+02_JPRB/)
+KBO( :, 3,41,16) = (/&
+&8.3597E+02_JPRB,6.2698E+02_JPRB,4.1798E+02_JPRB,2.1205E+02_JPRB,1.2655E+02_JPRB/)
+KBO( :, 4,41,16) = (/&
+&9.5842E+02_JPRB,7.1882E+02_JPRB,4.7921E+02_JPRB,2.3967E+02_JPRB,1.1795E+02_JPRB/)
+KBO( :, 5,41,16) = (/&
+&1.0766E+03_JPRB,8.0748E+02_JPRB,5.3832E+02_JPRB,2.6916E+02_JPRB,1.1013E+02_JPRB/)
+KBO( :, 1,42,16) = (/&
+&5.6381E+02_JPRB,4.2287E+02_JPRB,2.8192E+02_JPRB,1.6586E+02_JPRB,1.5054E+02_JPRB/)
+KBO( :, 2,42,16) = (/&
+&6.8496E+02_JPRB,5.1372E+02_JPRB,3.4248E+02_JPRB,1.8375E+02_JPRB,1.3960E+02_JPRB/)
+KBO( :, 3,42,16) = (/&
+&8.0821E+02_JPRB,6.0616E+02_JPRB,4.0411E+02_JPRB,2.0657E+02_JPRB,1.2981E+02_JPRB/)
+KBO( :, 4,42,16) = (/&
+&9.3135E+02_JPRB,6.9851E+02_JPRB,4.6567E+02_JPRB,2.3323E+02_JPRB,1.2093E+02_JPRB/)
+KBO( :, 5,42,16) = (/&
+&1.0512E+03_JPRB,7.8842E+02_JPRB,5.2562E+02_JPRB,2.6281E+02_JPRB,1.1278E+02_JPRB/)
+KBO( :, 1,43,16) = (/&
+&5.2955E+02_JPRB,3.9717E+02_JPRB,2.6480E+02_JPRB,1.6239E+02_JPRB,1.5543E+02_JPRB/)
+KBO( :, 2,43,16) = (/&
+&6.4929E+02_JPRB,4.8697E+02_JPRB,3.2465E+02_JPRB,1.7863E+02_JPRB,1.4384E+02_JPRB/)
+KBO( :, 3,43,16) = (/&
+&7.7272E+02_JPRB,5.7954E+02_JPRB,3.8636E+02_JPRB,1.9990E+02_JPRB,1.3363E+02_JPRB/)
+KBO( :, 4,43,16) = (/&
+&8.9638E+02_JPRB,6.7229E+02_JPRB,4.4819E+02_JPRB,2.2542E+02_JPRB,1.2436E+02_JPRB/)
+KBO( :, 5,43,16) = (/&
+&1.0176E+03_JPRB,7.6322E+02_JPRB,5.0881E+02_JPRB,2.5441E+02_JPRB,1.1585E+02_JPRB/)
+KBO( :, 1,44,16) = (/&
+&4.9226E+02_JPRB,3.6921E+02_JPRB,2.4618E+02_JPRB,1.5919E+02_JPRB,1.6071E+02_JPRB/)
+KBO( :, 2,44,16) = (/&
+&6.1049E+02_JPRB,4.5787E+02_JPRB,3.0525E+02_JPRB,1.7333E+02_JPRB,1.4841E+02_JPRB/)
+KBO( :, 3,44,16) = (/&
+&7.3319E+02_JPRB,5.4989E+02_JPRB,3.6660E+02_JPRB,1.9274E+02_JPRB,1.3765E+02_JPRB/)
+KBO( :, 4,44,16) = (/&
+&8.5738E+02_JPRB,6.4303E+02_JPRB,4.2869E+02_JPRB,2.1719E+02_JPRB,1.2801E+02_JPRB/)
+KBO( :, 5,44,16) = (/&
+&9.7980E+02_JPRB,7.3485E+02_JPRB,4.8990E+02_JPRB,2.4500E+02_JPRB,1.1918E+02_JPRB/)
+KBO( :, 1,45,16) = (/&
+&4.5538E+02_JPRB,3.4155E+02_JPRB,2.2854E+02_JPRB,1.5641E+02_JPRB,1.6609E+02_JPRB/)
+KBO( :, 2,45,16) = (/&
+&5.7191E+02_JPRB,4.2894E+02_JPRB,2.8597E+02_JPRB,1.6860E+02_JPRB,1.5314E+02_JPRB/)
+KBO( :, 3,45,16) = (/&
+&6.9342E+02_JPRB,5.2007E+02_JPRB,3.4671E+02_JPRB,1.8629E+02_JPRB,1.4178E+02_JPRB/)
+KBO( :, 4,45,16) = (/&
+&8.1734E+02_JPRB,6.1301E+02_JPRB,4.0867E+02_JPRB,2.0907E+02_JPRB,1.3172E+02_JPRB/)
+KBO( :, 5,45,16) = (/&
+&9.4113E+02_JPRB,7.0584E+02_JPRB,4.7056E+02_JPRB,2.3576E+02_JPRB,1.2254E+02_JPRB/)
+KBO( :, 1,46,16) = (/&
+&4.1669E+02_JPRB,3.1253E+02_JPRB,2.1183E+02_JPRB,1.5432E+02_JPRB,1.7199E+02_JPRB/)
+KBO( :, 2,46,16) = (/&
+&5.3032E+02_JPRB,3.9775E+02_JPRB,2.6519E+02_JPRB,1.6403E+02_JPRB,1.5825E+02_JPRB/)
+KBO( :, 3,46,16) = (/&
+&6.5084E+02_JPRB,4.8813E+02_JPRB,3.2542E+02_JPRB,1.7998E+02_JPRB,1.4624E+02_JPRB/)
+KBO( :, 4,46,16) = (/&
+&7.7453E+02_JPRB,5.8090E+02_JPRB,3.8727E+02_JPRB,2.0089E+02_JPRB,1.3568E+02_JPRB/)
+KBO( :, 5,46,16) = (/&
+&8.9886E+02_JPRB,6.7414E+02_JPRB,4.4943E+02_JPRB,2.2628E+02_JPRB,1.2618E+02_JPRB/)
+KBO( :, 1,47,16) = (/&
+&3.7428E+02_JPRB,2.8073E+02_JPRB,1.9464E+02_JPRB,1.5283E+02_JPRB,1.7876E+02_JPRB/)
+KBO( :, 2,47,16) = (/&
+&4.8479E+02_JPRB,3.6362E+02_JPRB,2.4253E+02_JPRB,1.5990E+02_JPRB,1.6413E+02_JPRB/)
+KBO( :, 3,47,16) = (/&
+&6.0294E+02_JPRB,4.5221E+02_JPRB,3.0147E+02_JPRB,1.7328E+02_JPRB,1.5134E+02_JPRB/)
+KBO( :, 4,47,16) = (/&
+&7.2591E+02_JPRB,5.4443E+02_JPRB,3.6295E+02_JPRB,1.9215E+02_JPRB,1.4020E+02_JPRB/)
+KBO( :, 5,47,16) = (/&
+&8.5037E+02_JPRB,6.3778E+02_JPRB,4.2518E+02_JPRB,2.1607E+02_JPRB,1.3023E+02_JPRB/)
+KBO( :, 1,48,16) = (/&
+&3.3349E+02_JPRB,2.5014E+02_JPRB,1.7970E+02_JPRB,1.5302E+02_JPRB,1.8591E+02_JPRB/)
+KBO( :, 2,48,16) = (/&
+&4.4002E+02_JPRB,3.3004E+02_JPRB,2.2195E+02_JPRB,1.5666E+02_JPRB,1.7030E+02_JPRB/)
+KBO( :, 3,48,16) = (/&
+&5.5563E+02_JPRB,4.1673E+02_JPRB,2.7783E+02_JPRB,1.6752E+02_JPRB,1.5672E+02_JPRB/)
+KBO( :, 4,48,16) = (/&
+&6.7724E+02_JPRB,5.0793E+02_JPRB,3.3862E+02_JPRB,1.8443E+02_JPRB,1.4489E+02_JPRB/)
+KBO( :, 5,48,16) = (/&
+&8.0113E+02_JPRB,6.0085E+02_JPRB,4.0056E+02_JPRB,2.0627E+02_JPRB,1.3444E+02_JPRB/)
+KBO( :, 1,49,16) = (/&
+&2.9450E+02_JPRB,2.2091E+02_JPRB,1.6633E+02_JPRB,1.5392E+02_JPRB,1.9354E+02_JPRB/)
+KBO( :, 2,49,16) = (/&
+&3.9655E+02_JPRB,2.9743E+02_JPRB,2.0370E+02_JPRB,1.5444E+02_JPRB,1.7673E+02_JPRB/)
+KBO( :, 3,49,16) = (/&
+&5.0897E+02_JPRB,3.8174E+02_JPRB,2.5452E+02_JPRB,1.6274E+02_JPRB,1.6236E+02_JPRB/)
+KBO( :, 4,49,16) = (/&
+&6.2857E+02_JPRB,4.7143E+02_JPRB,3.1428E+02_JPRB,1.7731E+02_JPRB,1.4974E+02_JPRB/)
+KBO( :, 5,49,16) = (/&
+&7.5222E+02_JPRB,5.6417E+02_JPRB,3.7611E+02_JPRB,1.9706E+02_JPRB,1.3876E+02_JPRB/)
+KBO( :, 1,50,16) = (/&
+&2.5985E+02_JPRB,1.9491E+02_JPRB,1.5586E+02_JPRB,1.5616E+02_JPRB,2.0113E+02_JPRB/)
+KBO( :, 2,50,16) = (/&
+&3.5704E+02_JPRB,2.6780E+02_JPRB,1.8851E+02_JPRB,1.5379E+02_JPRB,1.8310E+02_JPRB/)
+KBO( :, 3,50,16) = (/&
+&4.6618E+02_JPRB,3.4965E+02_JPRB,2.3374E+02_JPRB,1.5907E+02_JPRB,1.6786E+02_JPRB/)
+KBO( :, 4,50,16) = (/&
+&5.8341E+02_JPRB,4.3757E+02_JPRB,2.9172E+02_JPRB,1.7138E+02_JPRB,1.5459E+02_JPRB/)
+KBO( :, 5,50,16) = (/&
+&7.0619E+02_JPRB,5.2964E+02_JPRB,3.5310E+02_JPRB,1.8927E+02_JPRB,1.4300E+02_JPRB/)
+KBO( :, 1,51,16) = (/&
+&2.2810E+02_JPRB,1.7111E+02_JPRB,1.4781E+02_JPRB,1.5986E+02_JPRB,2.0899E+02_JPRB/)
+KBO( :, 2,51,16) = (/&
+&3.2034E+02_JPRB,2.4028E+02_JPRB,1.7546E+02_JPRB,1.5410E+02_JPRB,1.8970E+02_JPRB/)
+KBO( :, 3,51,16) = (/&
+&4.2561E+02_JPRB,3.1923E+02_JPRB,2.1599E+02_JPRB,1.5649E+02_JPRB,1.7346E+02_JPRB/)
+KBO( :, 4,51,16) = (/&
+&5.4039E+02_JPRB,4.0531E+02_JPRB,2.7023E+02_JPRB,1.6638E+02_JPRB,1.5946E+02_JPRB/)
+KBO( :, 5,51,16) = (/&
+&6.6162E+02_JPRB,4.9621E+02_JPRB,3.3081E+02_JPRB,1.8245E+02_JPRB,1.4725E+02_JPRB/)
+KBO( :, 1,52,16) = (/&
+&1.9828E+02_JPRB,1.4993E+02_JPRB,1.4119E+02_JPRB,1.6436E+02_JPRB,2.1740E+02_JPRB/)
+KBO( :, 2,52,16) = (/&
+&2.8540E+02_JPRB,2.1407E+02_JPRB,1.6382E+02_JPRB,1.5520E+02_JPRB,1.9665E+02_JPRB/)
+KBO( :, 3,52,16) = (/&
+&3.8626E+02_JPRB,2.8971E+02_JPRB,1.9981E+02_JPRB,1.5468E+02_JPRB,1.7935E+02_JPRB/)
+KBO( :, 4,52,16) = (/&
+&4.9804E+02_JPRB,3.7355E+02_JPRB,2.4908E+02_JPRB,1.6225E+02_JPRB,1.6458E+02_JPRB/)
+KBO( :, 5,52,16) = (/&
+&6.1718E+02_JPRB,4.6289E+02_JPRB,3.0859E+02_JPRB,1.7607E+02_JPRB,1.5168E+02_JPRB/)
+KBO( :, 1,53,16) = (/&
+&1.7053E+02_JPRB,1.3271E+02_JPRB,1.3636E+02_JPRB,1.6986E+02_JPRB,2.2630E+02_JPRB/)
+KBO( :, 2,53,16) = (/&
+&2.5204E+02_JPRB,1.8906E+02_JPRB,1.5417E+02_JPRB,1.5767E+02_JPRB,2.0404E+02_JPRB/)
+KBO( :, 3,53,16) = (/&
+&3.4819E+02_JPRB,2.6116E+02_JPRB,1.8555E+02_JPRB,1.5442E+02_JPRB,1.8552E+02_JPRB/)
+KBO( :, 4,53,16) = (/&
+&4.5652E+02_JPRB,3.4241E+02_JPRB,2.2942E+02_JPRB,1.5882E+02_JPRB,1.6992E+02_JPRB/)
+KBO( :, 5,53,16) = (/&
+&5.7327E+02_JPRB,4.2996E+02_JPRB,2.8665E+02_JPRB,1.7045E+02_JPRB,1.5636E+02_JPRB/)
+KBO( :, 1,54,16) = (/&
+&1.4705E+02_JPRB,1.1956E+02_JPRB,1.3416E+02_JPRB,1.7624E+02_JPRB,2.3498E+02_JPRB/)
+KBO( :, 2,54,16) = (/&
+&2.2318E+02_JPRB,1.6747E+02_JPRB,1.4694E+02_JPRB,1.6122E+02_JPRB,2.1126E+02_JPRB/)
+KBO( :, 3,54,16) = (/&
+&3.1471E+02_JPRB,2.3606E+02_JPRB,1.7373E+02_JPRB,1.5475E+02_JPRB,1.9160E+02_JPRB/)
+KBO( :, 4,54,16) = (/&
+&4.1929E+02_JPRB,3.1449E+02_JPRB,2.1344E+02_JPRB,1.5657E+02_JPRB,1.7506E+02_JPRB/)
+KBO( :, 5,54,16) = (/&
+&5.3373E+02_JPRB,4.0031E+02_JPRB,2.6690E+02_JPRB,1.6597E+02_JPRB,1.6083E+02_JPRB/)
+KBO( :, 1,55,16) = (/&
+&1.2631E+02_JPRB,1.0869E+02_JPRB,1.3316E+02_JPRB,1.8286E+02_JPRB,2.4381E+02_JPRB/)
+KBO( :, 2,55,16) = (/&
+&1.9709E+02_JPRB,1.4921E+02_JPRB,1.4131E+02_JPRB,1.6522E+02_JPRB,2.1865E+02_JPRB/)
+KBO( :, 3,55,16) = (/&
+&2.8395E+02_JPRB,2.1299E+02_JPRB,1.6360E+02_JPRB,1.5579E+02_JPRB,1.9769E+02_JPRB/)
+KBO( :, 4,55,16) = (/&
+&3.8466E+02_JPRB,2.8852E+02_JPRB,1.9931E+02_JPRB,1.5501E+02_JPRB,1.8019E+02_JPRB/)
+KBO( :, 5,55,16) = (/&
+&4.9642E+02_JPRB,3.7233E+02_JPRB,2.4828E+02_JPRB,1.6238E+02_JPRB,1.6531E+02_JPRB/)
+KBO( :, 1,56,16) = (/&
+&1.0745E+02_JPRB,1.0001E+02_JPRB,1.3351E+02_JPRB,1.8985E+02_JPRB,2.5313E+02_JPRB/)
+KBO( :, 2,56,16) = (/&
+&1.7263E+02_JPRB,1.3401E+02_JPRB,1.3702E+02_JPRB,1.6999E+02_JPRB,2.2638E+02_JPRB/)
+KBO( :, 3,56,16) = (/&
+&2.5461E+02_JPRB,1.9098E+02_JPRB,1.5506E+02_JPRB,1.5788E+02_JPRB,2.0410E+02_JPRB/)
+KBO( :, 4,56,16) = (/&
+&3.5127E+02_JPRB,2.6347E+02_JPRB,1.8679E+02_JPRB,1.5477E+02_JPRB,1.8556E+02_JPRB/)
+KBO( :, 5,56,16) = (/&
+&4.5985E+02_JPRB,3.4491E+02_JPRB,2.3096E+02_JPRB,1.5935E+02_JPRB,1.6993E+02_JPRB/)
+KBO( :, 1,57,16) = (/&
+&9.0369E+01_JPRB,9.3013E+01_JPRB,1.3545E+02_JPRB,1.9732E+02_JPRB,2.6309E+02_JPRB/)
+KBO( :, 2,57,16) = (/&
+&1.4993E+02_JPRB,1.2125E+02_JPRB,1.3471E+02_JPRB,1.7593E+02_JPRB,2.3457E+02_JPRB/)
+KBO( :, 3,57,16) = (/&
+&2.2676E+02_JPRB,1.7012E+02_JPRB,1.4804E+02_JPRB,1.6118E+02_JPRB,2.1092E+02_JPRB/)
+KBO( :, 4,57,16) = (/&
+&3.1896E+02_JPRB,2.3925E+02_JPRB,1.7532E+02_JPRB,1.5501E+02_JPRB,1.9130E+02_JPRB/)
+KBO( :, 5,57,16) = (/&
+&4.2411E+02_JPRB,3.1810E+02_JPRB,2.1552E+02_JPRB,1.5708E+02_JPRB,1.7479E+02_JPRB/)
+KBO( :, 1,58,16) = (/&
+&7.5798E+01_JPRB,8.7968E+01_JPRB,1.3839E+02_JPRB,2.0486E+02_JPRB,2.7315E+02_JPRB/)
+KBO( :, 2,58,16) = (/&
+&1.3002E+02_JPRB,1.1067E+02_JPRB,1.3357E+02_JPRB,1.8211E+02_JPRB,2.4282E+02_JPRB/)
+KBO( :, 3,58,16) = (/&
+&2.0177E+02_JPRB,1.5234E+02_JPRB,1.4243E+02_JPRB,1.6481E+02_JPRB,2.1780E+02_JPRB/)
+KBO( :, 4,58,16) = (/&
+&2.8967E+02_JPRB,2.1728E+02_JPRB,1.6554E+02_JPRB,1.5580E+02_JPRB,1.9696E+02_JPRB/)
+KBO( :, 5,58,16) = (/&
+&3.9118E+02_JPRB,2.9340E+02_JPRB,2.0194E+02_JPRB,1.5548E+02_JPRB,1.7957E+02_JPRB/)
+KBO( :, 1,59,16) = (/&
+&7.0427E+01_JPRB,8.6420E+01_JPRB,1.3992E+02_JPRB,2.0810E+02_JPRB,2.7747E+02_JPRB/)
+KBO( :, 2,59,16) = (/&
+&1.2257E+02_JPRB,1.0699E+02_JPRB,1.3342E+02_JPRB,1.8471E+02_JPRB,2.4629E+02_JPRB/)
+KBO( :, 3,59,16) = (/&
+&1.9225E+02_JPRB,1.4609E+02_JPRB,1.4061E+02_JPRB,1.6649E+02_JPRB,2.2067E+02_JPRB/)
+KBO( :, 4,59,16) = (/&
+&2.7820E+02_JPRB,2.0868E+02_JPRB,1.6196E+02_JPRB,1.5644E+02_JPRB,1.9936E+02_JPRB/)
+KBO( :, 5,59,16) = (/&
+&3.7829E+02_JPRB,2.8373E+02_JPRB,1.9693E+02_JPRB,1.5516E+02_JPRB,1.8158E+02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB5_B4
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb6.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb6.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb6.F90	(revision 2160)
@@ -0,0 +1,533 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB6
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,CFC11ADJO ,&
+           &CFC12O   , ABSCO2O 
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFAO( :) = (/&
+!     From P = 706 mb.
+    &0.13739009_JPRB,0.14259538_JPRB,0.14033118_JPRB,0.13547136_JPRB,&
+    &0.12569460_JPRB,0.11028396_JPRB,0.08626066_JPRB,0.06245148_JPRB,&
+    &0.04309394_JPRB,0.00473551_JPRB,0.00403920_JPRB,0.00321695_JPRB,&
+    &0.00232470_JPRB,0.00147662_JPRB,0.00056095_JPRB,0.00007373_JPRB/)
+
+!     CFC11 is multiplied by 1.385 to account for the 1060-1107 cm-1 band.
+CFC11ADJO( :) = (/&
+          &_ZERO_,      _ZERO_, 36.7627_JPRB, 150.757_JPRB,    &
+     &81.4109_JPRB, 74.9112_JPRB, 56.9325_JPRB, 49.3226_JPRB,  &
+     &57.1074_JPRB, 66.1202_JPRB, 109.557_JPRB, 89.0562_JPRB,  &
+     &149.865_JPRB, 196.140_JPRB, 258.393_JPRB, 80.9923_JPRB/)
+
+CFC12O( :) = (/&
+     &62.8368_JPRB, 43.2626_JPRB, 26.7549_JPRB, 22.2487_JPRB,&
+     &23.5029_JPRB, 34.8323_JPRB, 26.2335_JPRB, 23.2306_JPRB,&
+     &18.4062_JPRB, 13.9534_JPRB, 22.6268_JPRB, 24.2604_JPRB,&
+     &30.0088_JPRB, 26.3634_JPRB, 15.8237_JPRB, 57.5050_JPRB/)
+
+ABSCO2O( :) = (/&
+     &7.44852E-05_JPRB, 6.29208E-05_JPRB, 7.34031E-05_JPRB, 6.65218E-05_JPRB,&
+     &7.87511E-05_JPRB, 1.22489E-04_JPRB, 3.39785E-04_JPRB, 9.33040E-04_JPRB,&
+     &1.54323E-03_JPRB, 4.07220E-04_JPRB, 4.34332E-04_JPRB, 8.76418E-05_JPRB,&
+     &9.80381E-05_JPRB, 3.51680E-05_JPRB, 5.31766E-05_JPRB, 1.01542E-05_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&2.2568E-05_JPRB,2.5521E-05_JPRB,2.4392E-05_JPRB,2.3686E-05_JPRB,2.3850E-05_JPRB/)
+KAO( :, 2, 1) = (/&
+&1.8872E-05_JPRB,1.8763E-05_JPRB,1.8106E-05_JPRB,1.7702E-05_JPRB,1.7681E-05_JPRB/)
+KAO( :, 3, 1) = (/&
+&1.2996E-05_JPRB,1.3086E-05_JPRB,1.3378E-05_JPRB,1.3260E-05_JPRB,1.1771E-05_JPRB/)
+KAO( :, 4, 1) = (/&
+&9.6276E-06_JPRB,9.9774E-06_JPRB,9.6694E-06_JPRB,8.4861E-06_JPRB,8.9160E-06_JPRB/)
+KAO( :, 5, 1) = (/&
+&7.1690E-06_JPRB,7.2984E-06_JPRB,5.8013E-06_JPRB,6.2225E-06_JPRB,6.6628E-06_JPRB/)
+KAO( :, 6, 1) = (/&
+&5.6038E-06_JPRB,4.4095E-06_JPRB,4.4722E-06_JPRB,4.4395E-06_JPRB,5.4630E-06_JPRB/)
+KAO( :, 7, 1) = (/&
+&3.4775E-06_JPRB,3.0437E-06_JPRB,3.3876E-06_JPRB,3.8636E-06_JPRB,4.9257E-06_JPRB/)
+KAO( :, 8, 1) = (/&
+&2.7310E-06_JPRB,3.2224E-06_JPRB,3.6552E-06_JPRB,4.3975E-06_JPRB,5.5359E-06_JPRB/)
+KAO( :, 9, 1) = (/&
+&6.6325E-06_JPRB,7.7076E-06_JPRB,8.9070E-06_JPRB,1.0179E-05_JPRB,1.1909E-05_JPRB/)
+KAO( :,10, 1) = (/&
+&2.4079E-05_JPRB,2.6989E-05_JPRB,3.0753E-05_JPRB,3.4229E-05_JPRB,3.8060E-05_JPRB/)
+KAO( :,11, 1) = (/&
+&3.3970E-05_JPRB,3.7965E-05_JPRB,4.2993E-05_JPRB,4.7630E-05_JPRB,5.2629E-05_JPRB/)
+KAO( :,12, 1) = (/&
+&3.5907E-05_JPRB,4.0095E-05_JPRB,4.5267E-05_JPRB,5.0045E-05_JPRB,5.5178E-05_JPRB/)
+KAO( :,13, 1) = (/&
+&3.0600E-05_JPRB,3.4162E-05_JPRB,3.8530E-05_JPRB,4.2579E-05_JPRB,4.6937E-05_JPRB/)
+KAO( :, 1, 2) = (/&
+&2.9639E-05_JPRB,3.3221E-05_JPRB,3.2806E-05_JPRB,2.8964E-05_JPRB,2.6726E-05_JPRB/)
+KAO( :, 2, 2) = (/&
+&2.3653E-05_JPRB,2.4355E-05_JPRB,2.4028E-05_JPRB,2.0887E-05_JPRB,2.2925E-05_JPRB/)
+KAO( :, 3, 2) = (/&
+&1.6734E-05_JPRB,1.6216E-05_JPRB,1.4570E-05_JPRB,1.6223E-05_JPRB,1.7762E-05_JPRB/)
+KAO( :, 4, 2) = (/&
+&1.0615E-05_JPRB,1.0115E-05_JPRB,1.1508E-05_JPRB,1.1885E-05_JPRB,1.3929E-05_JPRB/)
+KAO( :, 5, 2) = (/&
+&7.5406E-06_JPRB,7.3085E-06_JPRB,8.6006E-06_JPRB,9.3888E-06_JPRB,1.1719E-05_JPRB/)
+KAO( :, 6, 2) = (/&
+&4.8289E-06_JPRB,6.2547E-06_JPRB,5.8818E-06_JPRB,7.9263E-06_JPRB,1.0542E-05_JPRB/)
+KAO( :, 7, 2) = (/&
+&4.3622E-06_JPRB,4.7605E-06_JPRB,5.4656E-06_JPRB,7.2224E-06_JPRB,1.0212E-05_JPRB/)
+KAO( :, 8, 2) = (/&
+&4.2923E-06_JPRB,4.6584E-06_JPRB,6.2268E-06_JPRB,8.3462E-06_JPRB,1.1797E-05_JPRB/)
+KAO( :, 9, 2) = (/&
+&9.7259E-06_JPRB,1.1243E-05_JPRB,1.3832E-05_JPRB,1.8290E-05_JPRB,2.4869E-05_JPRB/)
+KAO( :,10, 2) = (/&
+&3.3596E-05_JPRB,3.8056E-05_JPRB,4.3895E-05_JPRB,5.4699E-05_JPRB,7.1889E-05_JPRB/)
+KAO( :,11, 2) = (/&
+&4.7132E-05_JPRB,5.3142E-05_JPRB,6.1177E-05_JPRB,7.5188E-05_JPRB,9.8046E-05_JPRB/)
+KAO( :,12, 2) = (/&
+&4.9755E-05_JPRB,5.6067E-05_JPRB,6.4461E-05_JPRB,7.8769E-05_JPRB,1.0238E-04_JPRB/)
+KAO( :,13, 2) = (/&
+&4.2448E-05_JPRB,4.7895E-05_JPRB,5.4990E-05_JPRB,6.7099E-05_JPRB,8.7152E-05_JPRB/)
+KAO( :, 1, 3) = (/&
+&2.4391E-05_JPRB,2.6179E-05_JPRB,3.0228E-05_JPRB,3.9877E-05_JPRB,4.1318E-05_JPRB/)
+KAO( :, 2, 3) = (/&
+&2.0506E-05_JPRB,2.0015E-05_JPRB,2.6885E-05_JPRB,2.9284E-05_JPRB,2.9837E-05_JPRB/)
+KAO( :, 3, 3) = (/&
+&1.3542E-05_JPRB,1.5721E-05_JPRB,1.9501E-05_JPRB,1.8947E-05_JPRB,2.4397E-05_JPRB/)
+KAO( :, 4, 3) = (/&
+&9.0261E-06_JPRB,1.3633E-05_JPRB,1.2485E-05_JPRB,1.7278E-05_JPRB,2.0007E-05_JPRB/)
+KAO( :, 5, 3) = (/&
+&8.7945E-06_JPRB,9.7631E-06_JPRB,1.1634E-05_JPRB,1.3600E-05_JPRB,1.9745E-05_JPRB/)
+KAO( :, 6, 3) = (/&
+&7.5275E-06_JPRB,7.1532E-06_JPRB,9.4521E-06_JPRB,1.3168E-05_JPRB,1.9311E-05_JPRB/)
+KAO( :, 7, 3) = (/&
+&5.6021E-06_JPRB,6.6005E-06_JPRB,8.8148E-06_JPRB,1.3299E-05_JPRB,1.9798E-05_JPRB/)
+KAO( :, 8, 3) = (/&
+&5.6076E-06_JPRB,7.6899E-06_JPRB,1.0237E-05_JPRB,1.5421E-05_JPRB,2.3499E-05_JPRB/)
+KAO( :, 9, 3) = (/&
+&1.3625E-05_JPRB,1.7122E-05_JPRB,2.2283E-05_JPRB,3.1506E-05_JPRB,4.8193E-05_JPRB/)
+KAO( :,10, 3) = (/&
+&4.6234E-05_JPRB,5.4855E-05_JPRB,6.8590E-05_JPRB,8.9964E-05_JPRB,1.3093E-04_JPRB/)
+KAO( :,11, 3) = (/&
+&6.5003E-05_JPRB,7.6686E-05_JPRB,9.5408E-05_JPRB,1.2507E-04_JPRB,1.8079E-04_JPRB/)
+KAO( :,12, 3) = (/&
+&6.8759E-05_JPRB,8.1014E-05_JPRB,1.0079E-04_JPRB,1.3196E-04_JPRB,1.9017E-04_JPRB/)
+KAO( :,13, 3) = (/&
+&5.8741E-05_JPRB,6.9297E-05_JPRB,8.6397E-05_JPRB,1.1292E-04_JPRB,1.6288E-04_JPRB/)
+KAO( :, 1, 4) = (/&
+&3.6952E-05_JPRB,3.9167E-05_JPRB,4.5764E-05_JPRB,4.7701E-05_JPRB,5.5871E-05_JPRB/)
+KAO( :, 2, 4) = (/&
+&2.6008E-05_JPRB,3.6209E-05_JPRB,2.8658E-05_JPRB,3.8449E-05_JPRB,3.8668E-05_JPRB/)
+KAO( :, 3, 4) = (/&
+&2.1596E-05_JPRB,2.1370E-05_JPRB,2.2422E-05_JPRB,2.7123E-05_JPRB,3.0425E-05_JPRB/)
+KAO( :, 4, 4) = (/&
+&1.4408E-05_JPRB,1.3094E-05_JPRB,1.9460E-05_JPRB,2.1634E-05_JPRB,3.3208E-05_JPRB/)
+KAO( :, 5, 4) = (/&
+&8.9120E-06_JPRB,1.2874E-05_JPRB,1.5169E-05_JPRB,2.3591E-05_JPRB,3.5032E-05_JPRB/)
+KAO( :, 6, 4) = (/&
+&7.0427E-06_JPRB,1.1114E-05_JPRB,1.4987E-05_JPRB,2.2856E-05_JPRB,3.4461E-05_JPRB/)
+KAO( :, 7, 4) = (/&
+&7.4919E-06_JPRB,9.5389E-06_JPRB,1.5038E-05_JPRB,2.3474E-05_JPRB,3.5967E-05_JPRB/)
+KAO( :, 8, 4) = (/&
+&8.6186E-06_JPRB,1.1413E-05_JPRB,1.7846E-05_JPRB,2.8336E-05_JPRB,4.4637E-05_JPRB/)
+KAO( :, 9, 4) = (/&
+&1.9661E-05_JPRB,2.5521E-05_JPRB,3.7417E-05_JPRB,5.9323E-05_JPRB,9.6439E-05_JPRB/)
+KAO( :,10, 4) = (/&
+&6.3994E-05_JPRB,8.1146E-05_JPRB,1.0850E-04_JPRB,1.6659E-04_JPRB,2.7179E-04_JPRB/)
+KAO( :,11, 4) = (/&
+&9.0362E-05_JPRB,1.1392E-04_JPRB,1.5220E-04_JPRB,2.3565E-04_JPRB,3.8761E-04_JPRB/)
+KAO( :,12, 4) = (/&
+&9.5893E-05_JPRB,1.2069E-04_JPRB,1.6199E-04_JPRB,2.5340E-04_JPRB,4.1839E-04_JPRB/)
+KAO( :,13, 4) = (/&
+&8.2144E-05_JPRB,1.0344E-04_JPRB,1.3998E-04_JPRB,2.2132E-04_JPRB,3.6483E-04_JPRB/)
+KAO( :, 1, 5) = (/&
+&3.3532E-05_JPRB,4.1940E-05_JPRB,5.7696E-05_JPRB,6.0186E-05_JPRB,6.3029E-05_JPRB/)
+KAO( :, 2, 5) = (/&
+&2.3830E-05_JPRB,3.5587E-05_JPRB,4.6056E-05_JPRB,4.1505E-05_JPRB,5.7960E-05_JPRB/)
+KAO( :, 3, 5) = (/&
+&2.1812E-05_JPRB,2.5706E-05_JPRB,2.8233E-05_JPRB,3.5229E-05_JPRB,5.8555E-05_JPRB/)
+KAO( :, 4, 5) = (/&
+&1.7315E-05_JPRB,1.9695E-05_JPRB,2.2530E-05_JPRB,3.8597E-05_JPRB,5.8973E-05_JPRB/)
+KAO( :, 5, 5) = (/&
+&1.1890E-05_JPRB,1.3867E-05_JPRB,2.3935E-05_JPRB,3.9940E-05_JPRB,5.8993E-05_JPRB/)
+KAO( :, 6, 5) = (/&
+&1.0677E-05_JPRB,1.4192E-05_JPRB,2.4839E-05_JPRB,4.0149E-05_JPRB,5.9735E-05_JPRB/)
+KAO( :, 7, 5) = (/&
+&9.2784E-06_JPRB,1.5528E-05_JPRB,2.6050E-05_JPRB,4.1864E-05_JPRB,6.4186E-05_JPRB/)
+KAO( :, 8, 5) = (/&
+&1.1359E-05_JPRB,1.8672E-05_JPRB,3.1354E-05_JPRB,5.1149E-05_JPRB,8.0918E-05_JPRB/)
+KAO( :, 9, 5) = (/&
+&2.6841E-05_JPRB,4.0944E-05_JPRB,6.8221E-05_JPRB,1.1515E-04_JPRB,1.8821E-04_JPRB/)
+KAO( :,10, 5) = (/&
+&8.7415E-05_JPRB,1.2053E-04_JPRB,1.9441E-04_JPRB,3.3166E-04_JPRB,5.5740E-04_JPRB/)
+KAO( :,11, 5) = (/&
+&1.2386E-04_JPRB,1.7143E-04_JPRB,2.7887E-04_JPRB,4.7716E-04_JPRB,8.0477E-04_JPRB/)
+KAO( :,12, 5) = (/&
+&1.3204E-04_JPRB,1.8364E-04_JPRB,3.0111E-04_JPRB,5.1685E-04_JPRB,8.7520E-04_JPRB/)
+KAO( :,13, 5) = (/&
+&1.1358E-04_JPRB,1.5915E-04_JPRB,2.6323E-04_JPRB,4.5343E-04_JPRB,7.7073E-04_JPRB/)
+KAO( :, 1, 6) = (/&
+&5.6626E-05_JPRB,6.2952E-05_JPRB,5.6997E-05_JPRB,7.8387E-05_JPRB,1.4023E-04_JPRB/)
+KAO( :, 2, 6) = (/&
+&4.2639E-05_JPRB,4.0472E-05_JPRB,5.1521E-05_JPRB,7.2367E-05_JPRB,1.2444E-04_JPRB/)
+KAO( :, 3, 6) = (/&
+&3.3191E-05_JPRB,2.9821E-05_JPRB,4.1035E-05_JPRB,7.5835E-05_JPRB,1.1292E-04_JPRB/)
+KAO( :, 4, 6) = (/&
+&1.7563E-05_JPRB,2.2621E-05_JPRB,4.3898E-05_JPRB,7.3541E-05_JPRB,1.0514E-04_JPRB/)
+KAO( :, 5, 6) = (/&
+&1.4086E-05_JPRB,2.3545E-05_JPRB,4.5696E-05_JPRB,7.1090E-05_JPRB,1.0366E-04_JPRB/)
+KAO( :, 6, 6) = (/&
+&1.2590E-05_JPRB,2.4048E-05_JPRB,4.4731E-05_JPRB,6.9646E-05_JPRB,1.0367E-04_JPRB/)
+KAO( :, 7, 6) = (/&
+&1.3429E-05_JPRB,2.6924E-05_JPRB,4.6412E-05_JPRB,7.4051E-05_JPRB,1.1343E-04_JPRB/)
+KAO( :, 8, 6) = (/&
+&1.8185E-05_JPRB,3.3168E-05_JPRB,5.7618E-05_JPRB,9.5901E-05_JPRB,1.5240E-04_JPRB/)
+KAO( :, 9, 6) = (/&
+&4.0915E-05_JPRB,7.1523E-05_JPRB,1.2899E-04_JPRB,2.2341E-04_JPRB,3.6849E-04_JPRB/)
+KAO( :,10, 6) = (/&
+&1.2433E-04_JPRB,2.0393E-04_JPRB,3.7307E-04_JPRB,6.6855E-04_JPRB,1.1425E-03_JPRB/)
+KAO( :,11, 6) = (/&
+&1.8043E-04_JPRB,3.0126E-04_JPRB,5.5504E-04_JPRB,9.9966E-04_JPRB,1.7159E-03_JPRB/)
+KAO( :,12, 6) = (/&
+&1.9679E-04_JPRB,3.3338E-04_JPRB,6.1765E-04_JPRB,1.1153E-03_JPRB,1.9175E-03_JPRB/)
+KAO( :,13, 6) = (/&
+&1.7363E-04_JPRB,2.9831E-04_JPRB,5.5435E-04_JPRB,1.0025E-03_JPRB,1.7267E-03_JPRB/)
+KAO( :, 1, 7) = (/&
+&5.4728E-05_JPRB,6.3216E-05_JPRB,9.7227E-05_JPRB,1.9830E-04_JPRB,3.0115E-04_JPRB/)
+KAO( :, 2, 7) = (/&
+&3.7424E-05_JPRB,4.6891E-05_JPRB,9.3922E-05_JPRB,1.8575E-04_JPRB,2.6393E-04_JPRB/)
+KAO( :, 3, 7) = (/&
+&3.2885E-05_JPRB,5.4240E-05_JPRB,1.1210E-04_JPRB,1.7073E-04_JPRB,2.3633E-04_JPRB/)
+KAO( :, 4, 7) = (/&
+&2.6560E-05_JPRB,6.2341E-05_JPRB,1.0718E-04_JPRB,1.5691E-04_JPRB,2.1887E-04_JPRB/)
+KAO( :, 5, 7) = (/&
+&2.8005E-05_JPRB,6.1158E-05_JPRB,9.7995E-05_JPRB,1.4461E-04_JPRB,2.0623E-04_JPRB/)
+KAO( :, 6, 7) = (/&
+&2.6304E-05_JPRB,5.4858E-05_JPRB,8.8237E-05_JPRB,1.3524E-04_JPRB,2.0068E-04_JPRB/)
+KAO( :, 7, 7) = (/&
+&2.8057E-05_JPRB,5.2849E-05_JPRB,8.8492E-05_JPRB,1.4199E-04_JPRB,2.1851E-04_JPRB/)
+KAO( :, 8, 7) = (/&
+&3.4390E-05_JPRB,6.3412E-05_JPRB,1.1163E-04_JPRB,1.8592E-04_JPRB,2.9376E-04_JPRB/)
+KAO( :, 9, 7) = (/&
+&7.2790E-05_JPRB,1.4039E-04_JPRB,2.5926E-04_JPRB,4.5257E-04_JPRB,7.4795E-04_JPRB/)
+KAO( :,10, 7) = (/&
+&2.1021E-04_JPRB,4.1798E-04_JPRB,8.0790E-04_JPRB,1.4658E-03_JPRB,2.5048E-03_JPRB/)
+KAO( :,11, 7) = (/&
+&3.2720E-04_JPRB,6.6181E-04_JPRB,1.2928E-03_JPRB,2.3683E-03_JPRB,4.0754E-03_JPRB/)
+KAO( :,12, 7) = (/&
+&3.7693E-04_JPRB,7.7171E-04_JPRB,1.5176E-03_JPRB,2.7982E-03_JPRB,4.8311E-03_JPRB/)
+KAO( :,13, 7) = (/&
+&3.5194E-04_JPRB,7.2710E-04_JPRB,1.4369E-03_JPRB,2.6518E-03_JPRB,4.5779E-03_JPRB/)
+KAO( :, 1, 8) = (/&
+&8.8622E-05_JPRB,2.2200E-04_JPRB,4.1760E-04_JPRB,5.9916E-04_JPRB,8.1306E-04_JPRB/)
+KAO( :, 2, 8) = (/&
+&7.7484E-05_JPRB,1.9083E-04_JPRB,3.2988E-04_JPRB,4.7824E-04_JPRB,6.5145E-04_JPRB/)
+KAO( :, 3, 8) = (/&
+&6.8249E-05_JPRB,1.8888E-04_JPRB,2.9496E-04_JPRB,4.2064E-04_JPRB,5.7727E-04_JPRB/)
+KAO( :, 4, 8) = (/&
+&1.0307E-04_JPRB,1.8157E-04_JPRB,2.7450E-04_JPRB,3.9411E-04_JPRB,5.4734E-04_JPRB/)
+KAO( :, 5, 8) = (/&
+&1.0013E-04_JPRB,1.6578E-04_JPRB,2.5412E-04_JPRB,3.7165E-04_JPRB,5.2629E-04_JPRB/)
+KAO( :, 6, 8) = (/&
+&8.7661E-05_JPRB,1.4688E-04_JPRB,2.3121E-04_JPRB,3.4816E-04_JPRB,5.0439E-04_JPRB/)
+KAO( :, 7, 8) = (/&
+&7.9171E-05_JPRB,1.3672E-04_JPRB,2.2306E-04_JPRB,3.4738E-04_JPRB,5.2076E-04_JPRB/)
+KAO( :, 8, 8) = (/&
+&8.3889E-05_JPRB,1.5157E-04_JPRB,2.5895E-04_JPRB,4.2268E-04_JPRB,6.6361E-04_JPRB/)
+KAO( :, 9, 8) = (/&
+&1.6488E-04_JPRB,3.1976E-04_JPRB,5.8317E-04_JPRB,1.0082E-03_JPRB,1.6627E-03_JPRB/)
+KAO( :,10, 8) = (/&
+&4.7725E-04_JPRB,9.7517E-04_JPRB,1.8746E-03_JPRB,3.3981E-03_JPRB,5.7914E-03_JPRB/)
+KAO( :,11, 8) = (/&
+&7.9688E-04_JPRB,1.6560E-03_JPRB,3.2130E-03_JPRB,5.8470E-03_JPRB,9.9511E-03_JPRB/)
+KAO( :,12, 8) = (/&
+&9.7776E-04_JPRB,2.0671E-03_JPRB,4.0593E-03_JPRB,7.3885E-03_JPRB,1.2564E-02_JPRB/)
+KAO( :,13, 8) = (/&
+&9.8124E-04_JPRB,2.1024E-03_JPRB,4.1582E-03_JPRB,7.5870E-03_JPRB,1.2921E-02_JPRB/)
+KAO( :, 1, 9) = (/&
+&7.4912E-04_JPRB,1.1099E-03_JPRB,1.5644E-03_JPRB,2.1464E-03_JPRB,2.8897E-03_JPRB/)
+KAO( :, 2, 9) = (/&
+&6.2597E-04_JPRB,9.2912E-04_JPRB,1.3142E-03_JPRB,1.8181E-03_JPRB,2.4773E-03_JPRB/)
+KAO( :, 3, 9) = (/&
+&4.7892E-04_JPRB,7.1171E-04_JPRB,1.0243E-03_JPRB,1.4397E-03_JPRB,1.9820E-03_JPRB/)
+KAO( :, 4, 9) = (/&
+&3.8453E-04_JPRB,5.9140E-04_JPRB,8.7342E-04_JPRB,1.2581E-03_JPRB,1.7584E-03_JPRB/)
+KAO( :, 5, 9) = (/&
+&3.6098E-04_JPRB,5.7696E-04_JPRB,8.8197E-04_JPRB,1.2954E-03_JPRB,1.8431E-03_JPRB/)
+KAO( :, 6, 9) = (/&
+&3.4542E-04_JPRB,5.7060E-04_JPRB,8.9328E-04_JPRB,1.3402E-03_JPRB,1.9357E-03_JPRB/)
+KAO( :, 7, 9) = (/&
+&3.3888E-04_JPRB,5.8373E-04_JPRB,9.4422E-04_JPRB,1.4513E-03_JPRB,2.1408E-03_JPRB/)
+KAO( :, 8, 9) = (/&
+&3.7707E-04_JPRB,6.8408E-04_JPRB,1.1538E-03_JPRB,1.8357E-03_JPRB,2.7831E-03_JPRB/)
+KAO( :, 9, 9) = (/&
+&7.0739E-04_JPRB,1.3735E-03_JPRB,2.4588E-03_JPRB,4.1112E-03_JPRB,6.4788E-03_JPRB/)
+KAO( :,10, 9) = (/&
+&1.8575E-03_JPRB,3.8603E-03_JPRB,7.2941E-03_JPRB,1.2720E-02_JPRB,2.0839E-02_JPRB/)
+KAO( :,11, 9) = (/&
+&2.9958E-03_JPRB,6.2197E-03_JPRB,1.1775E-02_JPRB,2.0597E-02_JPRB,3.3906E-02_JPRB/)
+KAO( :,12, 9) = (/&
+&3.6668E-03_JPRB,7.6016E-03_JPRB,1.4363E-02_JPRB,2.5216E-02_JPRB,4.1719E-02_JPRB/)
+KAO( :,13, 9) = (/&
+&3.7360E-03_JPRB,7.7341E-03_JPRB,1.4600E-02_JPRB,2.5684E-02_JPRB,4.2617E-02_JPRB/)
+KAO( :, 1,10) = (/&
+&2.2204E-03_JPRB,3.1215E-03_JPRB,4.1592E-03_JPRB,5.5251E-03_JPRB,7.2462E-03_JPRB/)
+KAO( :, 2,10) = (/&
+&1.8794E-03_JPRB,2.6515E-03_JPRB,3.6524E-03_JPRB,4.9115E-03_JPRB,6.4747E-03_JPRB/)
+KAO( :, 3,10) = (/&
+&1.4689E-03_JPRB,2.0942E-03_JPRB,2.9433E-03_JPRB,4.0441E-03_JPRB,5.4540E-03_JPRB/)
+KAO( :, 4,10) = (/&
+&1.1490E-03_JPRB,1.6495E-03_JPRB,2.3294E-03_JPRB,3.2354E-03_JPRB,4.4282E-03_JPRB/)
+KAO( :, 5,10) = (/&
+&8.6570E-04_JPRB,1.3179E-03_JPRB,1.9604E-03_JPRB,2.8379E-03_JPRB,4.0441E-03_JPRB/)
+KAO( :, 6,10) = (/&
+&8.5652E-04_JPRB,1.4272E-03_JPRB,2.2416E-03_JPRB,3.3643E-03_JPRB,4.8824E-03_JPRB/)
+KAO( :, 7,10) = (/&
+&9.3347E-04_JPRB,1.6326E-03_JPRB,2.6435E-03_JPRB,4.0816E-03_JPRB,6.0203E-03_JPRB/)
+KAO( :, 8,10) = (/&
+&1.1389E-03_JPRB,2.0806E-03_JPRB,3.5187E-03_JPRB,5.6514E-03_JPRB,8.6161E-03_JPRB/)
+KAO( :, 9,10) = (/&
+&2.3318E-03_JPRB,4.5800E-03_JPRB,8.2437E-03_JPRB,1.3780E-02_JPRB,2.1744E-02_JPRB/)
+KAO( :,10,10) = (/&
+&6.2326E-03_JPRB,1.3165E-02_JPRB,2.5232E-02_JPRB,4.4615E-02_JPRB,7.3492E-02_JPRB/)
+KAO( :,11,10) = (/&
+&9.8704E-03_JPRB,2.0942E-02_JPRB,4.0187E-02_JPRB,7.0789E-02_JPRB,1.1609E-01_JPRB/)
+KAO( :,12,10) = (/&
+&1.1999E-02_JPRB,2.5297E-02_JPRB,4.8337E-02_JPRB,8.4705E-02_JPRB,1.3826E-01_JPRB/)
+KAO( :,13,10) = (/&
+&1.1789E-02_JPRB,2.4642E-02_JPRB,4.6747E-02_JPRB,8.1645E-02_JPRB,1.3284E-01_JPRB/)
+KAO( :, 1,11) = (/&
+&3.1261E-03_JPRB,4.2813E-03_JPRB,5.7811E-03_JPRB,7.6623E-03_JPRB,1.0021E-02_JPRB/)
+KAO( :, 2,11) = (/&
+&2.7730E-03_JPRB,3.9256E-03_JPRB,5.2937E-03_JPRB,7.0385E-03_JPRB,9.1561E-03_JPRB/)
+KAO( :, 3,11) = (/&
+&2.2211E-03_JPRB,3.2332E-03_JPRB,4.4680E-03_JPRB,6.0516E-03_JPRB,7.9945E-03_JPRB/)
+KAO( :, 4,11) = (/&
+&1.7260E-03_JPRB,2.5271E-03_JPRB,3.5974E-03_JPRB,5.0208E-03_JPRB,6.7957E-03_JPRB/)
+KAO( :, 5,11) = (/&
+&1.3640E-03_JPRB,2.0174E-03_JPRB,2.8988E-03_JPRB,4.1037E-03_JPRB,5.6676E-03_JPRB/)
+KAO( :, 6,11) = (/&
+&1.1158E-03_JPRB,1.8312E-03_JPRB,2.8771E-03_JPRB,4.3425E-03_JPRB,6.2982E-03_JPRB/)
+KAO( :, 7,11) = (/&
+&1.2321E-03_JPRB,2.1507E-03_JPRB,3.5466E-03_JPRB,5.5748E-03_JPRB,8.3259E-03_JPRB/)
+KAO( :, 8,11) = (/&
+&1.5691E-03_JPRB,2.9089E-03_JPRB,5.0376E-03_JPRB,8.1424E-03_JPRB,1.2407E-02_JPRB/)
+KAO( :, 9,11) = (/&
+&3.5241E-03_JPRB,7.0356E-03_JPRB,1.2741E-02_JPRB,2.1461E-02_JPRB,3.3839E-02_JPRB/)
+KAO( :,10,11) = (/&
+&1.0170E-02_JPRB,2.1914E-02_JPRB,4.2506E-02_JPRB,7.5273E-02_JPRB,1.2386E-01_JPRB/)
+KAO( :,11,11) = (/&
+&1.6549E-02_JPRB,3.5671E-02_JPRB,6.9003E-02_JPRB,1.2202E-01_JPRB,2.0089E-01_JPRB/)
+KAO( :,12,11) = (/&
+&2.0073E-02_JPRB,4.2914E-02_JPRB,8.2517E-02_JPRB,1.4566E-01_JPRB,2.3923E-01_JPRB/)
+KAO( :,13,11) = (/&
+&1.9754E-02_JPRB,4.1795E-02_JPRB,8.0135E-02_JPRB,1.4074E-01_JPRB,2.2980E-01_JPRB/)
+KAO( :, 1,12) = (/&
+&4.1564E-03_JPRB,5.9925E-03_JPRB,8.3120E-03_JPRB,1.1209E-02_JPRB,1.4597E-02_JPRB/)
+KAO( :, 2,12) = (/&
+&3.9567E-03_JPRB,5.4909E-03_JPRB,7.6176E-03_JPRB,1.0371E-02_JPRB,1.3856E-02_JPRB/)
+KAO( :, 3,12) = (/&
+&3.3974E-03_JPRB,4.7965E-03_JPRB,6.6252E-03_JPRB,8.9930E-03_JPRB,1.2050E-02_JPRB/)
+KAO( :, 4,12) = (/&
+&2.7271E-03_JPRB,4.0009E-03_JPRB,5.6537E-03_JPRB,7.7402E-03_JPRB,1.0333E-02_JPRB/)
+KAO( :, 5,12) = (/&
+&2.1241E-03_JPRB,3.2132E-03_JPRB,4.6676E-03_JPRB,6.6066E-03_JPRB,9.0309E-03_JPRB/)
+KAO( :, 6,12) = (/&
+&1.6495E-03_JPRB,2.5482E-03_JPRB,3.8834E-03_JPRB,5.7278E-03_JPRB,8.1979E-03_JPRB/)
+KAO( :, 7,12) = (/&
+&1.5776E-03_JPRB,2.7768E-03_JPRB,4.6314E-03_JPRB,7.2948E-03_JPRB,1.0930E-02_JPRB/)
+KAO( :, 8,12) = (/&
+&2.1394E-03_JPRB,4.0088E-03_JPRB,6.9630E-03_JPRB,1.1391E-02_JPRB,1.7592E-02_JPRB/)
+KAO( :, 9,12) = (/&
+&5.1508E-03_JPRB,1.0419E-02_JPRB,1.9252E-02_JPRB,3.2952E-02_JPRB,5.2981E-02_JPRB/)
+KAO( :,10,12) = (/&
+&1.6525E-02_JPRB,3.6418E-02_JPRB,7.1731E-02_JPRB,1.2850E-01_JPRB,2.1301E-01_JPRB/)
+KAO( :,11,12) = (/&
+&2.8843E-02_JPRB,6.3252E-02_JPRB,1.2384E-01_JPRB,2.2076E-01_JPRB,3.6471E-01_JPRB/)
+KAO( :,12,12) = (/&
+&3.6629E-02_JPRB,7.9908E-02_JPRB,1.5563E-01_JPRB,2.7617E-01_JPRB,4.5458E-01_JPRB/)
+KAO( :,13,12) = (/&
+&3.6750E-02_JPRB,7.9425E-02_JPRB,1.5346E-01_JPRB,2.7137E-01_JPRB,4.4636E-01_JPRB/)
+KAO( :, 1,13) = (/&
+&6.2842E-03_JPRB,8.5901E-03_JPRB,1.1770E-02_JPRB,1.5848E-02_JPRB,2.1231E-02_JPRB/)
+KAO( :, 2,13) = (/&
+&5.8832E-03_JPRB,8.3961E-03_JPRB,1.1688E-02_JPRB,1.5821E-02_JPRB,2.1081E-02_JPRB/)
+KAO( :, 3,13) = (/&
+&5.0693E-03_JPRB,7.3487E-03_JPRB,1.0502E-02_JPRB,1.4654E-02_JPRB,1.9671E-02_JPRB/)
+KAO( :, 4,13) = (/&
+&4.3064E-03_JPRB,6.2164E-03_JPRB,8.9638E-03_JPRB,1.2692E-02_JPRB,1.7434E-02_JPRB/)
+KAO( :, 5,13) = (/&
+&3.5860E-03_JPRB,5.3245E-03_JPRB,7.6791E-03_JPRB,1.0860E-02_JPRB,1.5079E-02_JPRB/)
+KAO( :, 6,13) = (/&
+&2.8314E-03_JPRB,4.3212E-03_JPRB,6.4657E-03_JPRB,9.2062E-03_JPRB,1.2862E-02_JPRB/)
+KAO( :, 7,13) = (/&
+&2.2377E-03_JPRB,3.6343E-03_JPRB,5.9331E-03_JPRB,9.1864E-03_JPRB,1.3701E-02_JPRB/)
+KAO( :, 8,13) = (/&
+&2.8263E-03_JPRB,5.3372E-03_JPRB,9.3113E-03_JPRB,1.5184E-02_JPRB,2.3750E-02_JPRB/)
+KAO( :, 9,13) = (/&
+&7.1632E-03_JPRB,1.4853E-02_JPRB,2.8075E-02_JPRB,4.9370E-02_JPRB,8.0768E-02_JPRB/)
+KAO( :,10,13) = (/&
+&2.5324E-02_JPRB,5.6755E-02_JPRB,1.1356E-01_JPRB,2.0699E-01_JPRB,3.4818E-01_JPRB/)
+KAO( :,11,13) = (/&
+&4.7551E-02_JPRB,1.0638E-01_JPRB,2.1201E-01_JPRB,3.8439E-01_JPRB,6.4430E-01_JPRB/)
+KAO( :,12,13) = (/&
+&6.5536E-02_JPRB,1.4596E-01_JPRB,2.8971E-01_JPRB,5.2186E-01_JPRB,8.7097E-01_JPRB/)
+KAO( :,13,13) = (/&
+&7.1040E-02_JPRB,1.5739E-01_JPRB,3.0996E-01_JPRB,5.5635E-01_JPRB,9.2532E-01_JPRB/)
+KAO( :, 1,14) = (/&
+&8.9073E-03_JPRB,1.2577E-02_JPRB,1.7104E-02_JPRB,2.3298E-02_JPRB,3.0760E-02_JPRB/)
+KAO( :, 2,14) = (/&
+&9.1449E-03_JPRB,1.2712E-02_JPRB,1.7315E-02_JPRB,2.3477E-02_JPRB,3.1268E-02_JPRB/)
+KAO( :, 3,14) = (/&
+&8.6458E-03_JPRB,1.1907E-02_JPRB,1.6470E-02_JPRB,2.2100E-02_JPRB,2.9699E-02_JPRB/)
+KAO( :, 4,14) = (/&
+&7.6642E-03_JPRB,1.0832E-02_JPRB,1.5035E-02_JPRB,2.0201E-02_JPRB,2.7549E-02_JPRB/)
+KAO( :, 5,14) = (/&
+&6.6532E-03_JPRB,9.4973E-03_JPRB,1.3436E-02_JPRB,1.8486E-02_JPRB,2.5410E-02_JPRB/)
+KAO( :, 6,14) = (/&
+&5.6659E-03_JPRB,8.2188E-03_JPRB,1.1655E-02_JPRB,1.6380E-02_JPRB,2.2833E-02_JPRB/)
+KAO( :, 7,14) = (/&
+&4.7388E-03_JPRB,7.0553E-03_JPRB,1.0065E-02_JPRB,1.4371E-02_JPRB,2.0476E-02_JPRB/)
+KAO( :, 8,14) = (/&
+&4.0074E-03_JPRB,6.9317E-03_JPRB,1.1650E-02_JPRB,1.9270E-02_JPRB,3.0109E-02_JPRB/)
+KAO( :, 9,14) = (/&
+&9.4290E-03_JPRB,1.9762E-02_JPRB,3.7876E-02_JPRB,6.6863E-02_JPRB,1.1024E-01_JPRB/)
+KAO( :,10,14) = (/&
+&3.5639E-02_JPRB,8.0302E-02_JPRB,1.6119E-01_JPRB,2.9567E-01_JPRB,5.0285E-01_JPRB/)
+KAO( :,11,14) = (/&
+&7.0994E-02_JPRB,1.5991E-01_JPRB,3.2149E-01_JPRB,5.8889E-01_JPRB,1.0009E+00_JPRB/)
+KAO( :,12,14) = (/&
+&1.0472E-01_JPRB,2.3582E-01_JPRB,4.7386E-01_JPRB,8.6654E-01_JPRB,1.4714E+00_JPRB/)
+KAO( :,13,14) = (/&
+&1.2287E-01_JPRB,2.7626E-01_JPRB,5.5413E-01_JPRB,1.0143E+00_JPRB,1.7166E+00_JPRB/)
+KAO( :, 1,15) = (/&
+&1.0915E-02_JPRB,1.5406E-02_JPRB,2.1787E-02_JPRB,3.0490E-02_JPRB,4.2541E-02_JPRB/)
+KAO( :, 2,15) = (/&
+&1.1315E-02_JPRB,1.6166E-02_JPRB,2.2798E-02_JPRB,3.1923E-02_JPRB,4.3992E-02_JPRB/)
+KAO( :, 3,15) = (/&
+&1.0941E-02_JPRB,1.5701E-02_JPRB,2.1967E-02_JPRB,3.0980E-02_JPRB,4.2137E-02_JPRB/)
+KAO( :, 4,15) = (/&
+&1.0488E-02_JPRB,1.4945E-02_JPRB,2.1284E-02_JPRB,2.9684E-02_JPRB,4.1028E-02_JPRB/)
+KAO( :, 5,15) = (/&
+&9.8738E-03_JPRB,1.4407E-02_JPRB,2.0449E-02_JPRB,2.8357E-02_JPRB,3.9999E-02_JPRB/)
+KAO( :, 6,15) = (/&
+&8.9244E-03_JPRB,1.3460E-02_JPRB,1.9534E-02_JPRB,2.7000E-02_JPRB,3.8027E-02_JPRB/)
+KAO( :, 7,15) = (/&
+&8.0056E-03_JPRB,1.2241E-02_JPRB,1.8433E-02_JPRB,2.6084E-02_JPRB,3.5910E-02_JPRB/)
+KAO( :, 8,15) = (/&
+&7.2557E-03_JPRB,1.0997E-02_JPRB,1.6847E-02_JPRB,2.4941E-02_JPRB,3.5979E-02_JPRB/)
+KAO( :, 9,15) = (/&
+&1.1206E-02_JPRB,2.3492E-02_JPRB,4.5074E-02_JPRB,7.9749E-02_JPRB,1.3179E-01_JPRB/)
+KAO( :,10,15) = (/&
+&4.3714E-02_JPRB,9.8800E-02_JPRB,1.9893E-01_JPRB,3.6488E-01_JPRB,6.2367E-01_JPRB/)
+KAO( :,11,15) = (/&
+&9.0564E-02_JPRB,2.0463E-01_JPRB,4.1227E-01_JPRB,7.5790E-01_JPRB,1.2930E+00_JPRB/)
+KAO( :,12,15) = (/&
+&1.4027E-01_JPRB,3.1640E-01_JPRB,6.3737E-01_JPRB,1.1714E+00_JPRB,1.9962E+00_JPRB/)
+KAO( :,13,15) = (/&
+&1.7360E-01_JPRB,3.9198E-01_JPRB,7.8920E-01_JPRB,1.4509E+00_JPRB,2.4685E+00_JPRB/)
+KAO( :, 1,16) = (/&
+&1.1824E-02_JPRB,1.7312E-02_JPRB,2.6044E-02_JPRB,4.2271E-02_JPRB,6.3915E-02_JPRB/)
+KAO( :, 2,16) = (/&
+&1.2333E-02_JPRB,1.8642E-02_JPRB,2.7212E-02_JPRB,4.2155E-02_JPRB,7.0740E-02_JPRB/)
+KAO( :, 3,16) = (/&
+&1.1914E-02_JPRB,1.8039E-02_JPRB,2.6483E-02_JPRB,3.8087E-02_JPRB,6.0410E-02_JPRB/)
+KAO( :, 4,16) = (/&
+&1.1617E-02_JPRB,1.6736E-02_JPRB,2.5551E-02_JPRB,3.7243E-02_JPRB,5.5742E-02_JPRB/)
+KAO( :, 5,16) = (/&
+&1.2207E-02_JPRB,1.6058E-02_JPRB,2.3899E-02_JPRB,3.5249E-02_JPRB,5.2521E-02_JPRB/)
+KAO( :, 6,16) = (/&
+&1.2552E-02_JPRB,1.6221E-02_JPRB,2.2453E-02_JPRB,3.3451E-02_JPRB,4.8959E-02_JPRB/)
+KAO( :, 7,16) = (/&
+&1.2682E-02_JPRB,1.6583E-02_JPRB,2.1720E-02_JPRB,3.1647E-02_JPRB,4.6528E-02_JPRB/)
+KAO( :, 8,16) = (/&
+&1.2800E-02_JPRB,1.6916E-02_JPRB,2.2044E-02_JPRB,3.0239E-02_JPRB,4.5143E-02_JPRB/)
+KAO( :, 9,16) = (/&
+&1.2606E-02_JPRB,2.5371E-02_JPRB,4.8585E-02_JPRB,8.6042E-02_JPRB,1.4214E-01_JPRB/)
+KAO( :,10,16) = (/&
+&4.7940E-02_JPRB,1.0811E-01_JPRB,2.1696E-01_JPRB,3.9856E-01_JPRB,6.7922E-01_JPRB/)
+KAO( :,11,16) = (/&
+&1.0038E-01_JPRB,2.2692E-01_JPRB,4.5634E-01_JPRB,8.3917E-01_JPRB,1.4277E+00_JPRB/)
+KAO( :,12,16) = (/&
+&1.5780E-01_JPRB,3.5540E-01_JPRB,7.1875E-01_JPRB,1.3169E+00_JPRB,2.2414E+00_JPRB/)
+KAO( :,13,16) = (/&
+&1.9907E-01_JPRB,4.4847E-01_JPRB,9.0510E-01_JPRB,1.6605E+00_JPRB,2.8238E+00_JPRB/)
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&7.71391E-02_JPRB, 6.43175E-02_JPRB, 5.36271E-02_JPRB, 4.47136E-02_JPRB, 3.72816E-02_JPRB,&
+&3.10849E-02_JPRB, 2.59182E-02_JPRB, 2.16102E-02_JPRB, 1.80183E-02_JPRB, 1.50234E-02_JPRB/)
+SELFREFO( :, 2) = (/&
+&8.39275E-02_JPRB, 7.04019E-02_JPRB, 5.90561E-02_JPRB, 4.95388E-02_JPRB, 4.15552E-02_JPRB,&
+&3.48583E-02_JPRB, 2.92406E-02_JPRB, 2.45283E-02_JPRB, 2.05754E-02_JPRB, 1.72595E-02_JPRB/)
+SELFREFO( :, 3) = (/&
+&8.77747E-02_JPRB, 7.41411E-02_JPRB, 6.26251E-02_JPRB, 5.28978E-02_JPRB, 4.46814E-02_JPRB,&
+&3.77413E-02_JPRB, 3.18791E-02_JPRB, 2.69275E-02_JPRB, 2.27449E-02_JPRB, 1.92121E-02_JPRB/)
+SELFREFO( :, 4) = (/&
+&9.35855E-02_JPRB, 7.94116E-02_JPRB, 6.73843E-02_JPRB, 5.71787E-02_JPRB, 4.85187E-02_JPRB,&
+&4.11704E-02_JPRB, 3.49349E-02_JPRB, 2.96439E-02_JPRB, 2.51542E-02_JPRB, 2.13445E-02_JPRB/)
+SELFREFO( :, 5) = (/&
+&9.31058E-02_JPRB, 7.97629E-02_JPRB, 6.83321E-02_JPRB, 5.85395E-02_JPRB, 5.01503E-02_JPRB,&
+&4.29633E-02_JPRB, 3.68062E-02_JPRB, 3.15316E-02_JPRB, 2.70128E-02_JPRB, 2.31416E-02_JPRB/)
+SELFREFO( :, 6) = (/&
+&7.92454E-02_JPRB, 7.03070E-02_JPRB, 6.23769E-02_JPRB, 5.53412E-02_JPRB, 4.90991E-02_JPRB,&
+&4.35611E-02_JPRB, 3.86477E-02_JPRB, 3.42885E-02_JPRB, 3.04210E-02_JPRB, 2.69898E-02_JPRB/)
+SELFREFO( :, 7) = (/&
+&7.29322E-02_JPRB, 6.57740E-02_JPRB, 5.93183E-02_JPRB, 5.34963E-02_JPRB, 4.82457E-02_JPRB,&
+&4.35104E-02_JPRB, 3.92399E-02_JPRB, 3.53886E-02_JPRB, 3.19152E-02_JPRB, 2.87828E-02_JPRB/)
+SELFREFO( :, 8) = (/&
+&7.53680E-02_JPRB, 6.63817E-02_JPRB, 5.84669E-02_JPRB, 5.14958E-02_JPRB, 4.53558E-02_JPRB,&
+&3.99480E-02_JPRB, 3.51849E-02_JPRB, 3.09897E-02_JPRB, 2.72948E-02_JPRB, 2.40404E-02_JPRB/)
+SELFREFO( :, 9) = (/&
+&7.17087E-02_JPRB, 6.34545E-02_JPRB, 5.61505E-02_JPRB, 4.96871E-02_JPRB, 4.39678E-02_JPRB,&
+&3.89068E-02_JPRB, 3.44283E-02_JPRB, 3.04654E-02_JPRB, 2.69586E-02_JPRB, 2.38554E-02_JPRB/)
+SELFREFO( :,10) = (/&
+&7.20376E-02_JPRB, 6.42071E-02_JPRB, 5.72277E-02_JPRB, 5.10070E-02_JPRB, 4.54625E-02_JPRB,&
+&4.05207E-02_JPRB, 3.61161E-02_JPRB, 3.21903E-02_JPRB, 2.86912E-02_JPRB, 2.55724E-02_JPRB/)
+SELFREFO( :,11) = (/&
+&8.56200E-02_JPRB, 7.44248E-02_JPRB, 6.46934E-02_JPRB, 5.62344E-02_JPRB, 4.88815E-02_JPRB,&
+&4.24900E-02_JPRB, 3.69342E-02_JPRB, 3.21049E-02_JPRB, 2.79070E-02_JPRB, 2.42581E-02_JPRB/)
+SELFREFO( :,12) = (/&
+&9.30364E-02_JPRB, 8.00633E-02_JPRB, 6.88992E-02_JPRB, 5.92918E-02_JPRB, 5.10240E-02_JPRB,&
+&4.39092E-02_JPRB, 3.77864E-02_JPRB, 3.25174E-02_JPRB, 2.79832E-02_JPRB, 2.40811E-02_JPRB/)
+SELFREFO( :,13) = (/&
+&9.58838E-02_JPRB, 8.17150E-02_JPRB, 6.96399E-02_JPRB, 5.93492E-02_JPRB, 5.05792E-02_JPRB,&
+&4.31051E-02_JPRB, 3.67354E-02_JPRB, 3.13070E-02_JPRB, 2.66808E-02_JPRB, 2.27381E-02_JPRB/)
+SELFREFO( :,14) = (/&
+&8.92791E-02_JPRB, 7.69435E-02_JPRB, 6.63123E-02_JPRB, 5.71500E-02_JPRB, 4.92536E-02_JPRB,&
+&4.24483E-02_JPRB, 3.65833E-02_JPRB, 3.15286E-02_JPRB, 2.71723E-02_JPRB, 2.34179E-02_JPRB/)
+SELFREFO( :,15) = (/&
+&9.09947E-02_JPRB, 7.81455E-02_JPRB, 6.71107E-02_JPRB, 5.76340E-02_JPRB, 4.94956E-02_JPRB,&
+&4.25064E-02_JPRB, 3.65041E-02_JPRB, 3.13494E-02_JPRB, 2.69226E-02_JPRB, 2.31209E-02_JPRB/)
+SELFREFO( :,16) = (/&
+&7.99990E-02_JPRB, 7.02289E-02_JPRB, 6.16519E-02_JPRB, 5.41224E-02_JPRB, 4.75125E-02_JPRB,&
+&4.17099E-02_JPRB, 3.66159E-02_JPRB, 3.21440E-02_JPRB, 2.82183E-02_JPRB, 2.47720E-02_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB6
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb7.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb7.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb7.F90	(revision 2160)
@@ -0,0 +1,18 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB7
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB7_00
+      call RRTM_KGB7_A1
+      call RRTM_KGB7_A2
+      call RRTM_KGB7_BB
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB7
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_00.F90	(revision 2160)
@@ -0,0 +1,140 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB7_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,ABSCO2O
+USE YOERRTA7 , ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFBO( :) = (/&
+    &0.15355594_JPRB,0.15310939_JPRB,0.14274909_JPRB,0.13129812_JPRB,&
+    &0.11736792_JPRB,0.10118213_JPRB,0.08215259_JPRB,0.06165591_JPRB,&
+    &0.04164486_JPRB,0.00451141_JPRB,0.00372837_JPRB,0.00294095_JPRB,&
+    &0.00215259_JPRB,0.00136792_JPRB,0.00051233_JPRB,0.00007075_JPRB/)
+
+ABSCO2O( :) = (/&
+     &9.30038E-05_JPRB, 1.74061E-04_JPRB, 2.09293E-04_JPRB, 2.52360E-04_JPRB,&
+     &3.13404E-04_JPRB, 4.16619E-04_JPRB, 6.27394E-04_JPRB, 1.29386E-03_JPRB,&
+     &4.05192E-03_JPRB, 3.97050E-03_JPRB, 7.00634E-04_JPRB, 6.06617E-04_JPRB,&
+     &7.66978E-04_JPRB, 6.70661E-04_JPRB, 7.89971E-04_JPRB, 7.55709E-04_JPRB/)
+
+STRRAT = 8.21104E+04_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&5.19175E-02_JPRB, 4.28815E-02_JPRB, 3.54182E-02_JPRB, 2.92539E-02_JPRB, 2.41624E-02_JPRB,&
+&1.99571E-02_JPRB, 1.64836E-02_JPRB, 1.36148E-02_JPRB, 1.12452E-02_JPRB, 9.28801E-03_JPRB/)
+SELFREFO( :, 2) = (/&
+&4.36985E-02_JPRB, 3.78503E-02_JPRB, 3.27848E-02_JPRB, 2.83973E-02_JPRB, 2.45969E-02_JPRB,&
+&2.13051E-02_JPRB, 1.84538E-02_JPRB, 1.59842E-02_JPRB, 1.38450E-02_JPRB, 1.19921E-02_JPRB/)
+SELFREFO( :, 3) = (/&
+&4.25575E-02_JPRB, 3.71214E-02_JPRB, 3.23797E-02_JPRB, 2.82437E-02_JPRB, 2.46360E-02_JPRB,&
+&2.14891E-02_JPRB, 1.87442E-02_JPRB, 1.63499E-02_JPRB, 1.42615E-02_JPRB, 1.24398E-02_JPRB/)
+SELFREFO( :, 4) = (/&
+&4.03854E-02_JPRB, 3.54677E-02_JPRB, 3.11488E-02_JPRB, 2.73558E-02_JPRB, 2.40247E-02_JPRB,&
+&2.10992E-02_JPRB, 1.85300E-02_JPRB, 1.62736E-02_JPRB, 1.42920E-02_JPRB, 1.25517E-02_JPRB/)
+SELFREFO( :, 5) = (/&
+&3.95070E-02_JPRB, 3.46726E-02_JPRB, 3.04297E-02_JPRB, 2.67060E-02_JPRB, 2.34380E-02_JPRB,&
+&2.05699E-02_JPRB, 1.80528E-02_JPRB, 1.58437E-02_JPRB, 1.39049E-02_JPRB, 1.22034E-02_JPRB/)
+SELFREFO( :, 6) = (/&
+&3.89748E-02_JPRB, 3.40186E-02_JPRB, 2.96926E-02_JPRB, 2.59168E-02_JPRB, 2.26211E-02_JPRB,&
+&1.97445E-02_JPRB, 1.72337E-02_JPRB, 1.50422E-02_JPRB, 1.31293E-02_JPRB, 1.14597E-02_JPRB/)
+SELFREFO( :, 7) = (/&
+&3.85527E-02_JPRB, 3.36561E-02_JPRB, 2.93815E-02_JPRB, 2.56497E-02_JPRB, 2.23920E-02_JPRB,&
+&1.95480E-02_JPRB, 1.70652E-02_JPRB, 1.48977E-02_JPRB, 1.30056E-02_JPRB, 1.13537E-02_JPRB/)
+SELFREFO( :, 8) = (/&
+&3.78212E-02_JPRB, 3.30614E-02_JPRB, 2.89005E-02_JPRB, 2.52633E-02_JPRB, 2.20839E-02_JPRB,&
+&1.93046E-02_JPRB, 1.68751E-02_JPRB, 1.47513E-02_JPRB, 1.28948E-02_JPRB, 1.12720E-02_JPRB/)
+SELFREFO( :, 9) = (/&
+&3.68624E-02_JPRB, 3.22676E-02_JPRB, 2.82456E-02_JPRB, 2.47248E-02_JPRB, 2.16429E-02_JPRB,&
+&1.89452E-02_JPRB, 1.65838E-02_JPRB, 1.45166E-02_JPRB, 1.27072E-02_JPRB, 1.11233E-02_JPRB/)
+SELFREFO( :,10) = (/&
+&3.63135E-02_JPRB, 3.19332E-02_JPRB, 2.80813E-02_JPRB, 2.46940E-02_JPRB, 2.17154E-02_JPRB,&
+&1.90960E-02_JPRB, 1.67926E-02_JPRB, 1.47670E-02_JPRB, 1.29857E-02_JPRB, 1.14193E-02_JPRB/)
+SELFREFO( :,11) = (/&
+&3.60018E-02_JPRB, 3.17294E-02_JPRB, 2.79640E-02_JPRB, 2.46454E-02_JPRB, 2.17207E-02_JPRB,&
+&1.91430E-02_JPRB, 1.68713E-02_JPRB, 1.48691E-02_JPRB, 1.31045E-02_JPRB, 1.15494E-02_JPRB/)
+SELFREFO( :,12) = (/&
+&3.65147E-02_JPRB, 3.19158E-02_JPRB, 2.78962E-02_JPRB, 2.43827E-02_JPRB, 2.13118E-02_JPRB,&
+&1.86277E-02_JPRB, 1.62816E-02_JPRB, 1.42310E-02_JPRB, 1.24386E-02_JPRB, 1.08720E-02_JPRB/)
+SELFREFO( :,13) = (/&
+&3.72684E-02_JPRB, 3.23732E-02_JPRB, 2.81210E-02_JPRB, 2.44274E-02_JPRB, 2.12189E-02_JPRB,&
+&1.84318E-02_JPRB, 1.60108E-02_JPRB, 1.39078E-02_JPRB, 1.20810E-02_JPRB, 1.04942E-02_JPRB/)
+SELFREFO( :,14) = (/&
+&3.87604E-02_JPRB, 3.34099E-02_JPRB, 2.87979E-02_JPRB, 2.48226E-02_JPRB, 2.13960E-02_JPRB,&
+&1.84425E-02_JPRB, 1.58967E-02_JPRB, 1.37023E-02_JPRB, 1.18108E-02_JPRB, 1.01804E-02_JPRB/)
+SELFREFO( :,15) = (/&
+&3.51227E-02_JPRB, 3.05052E-02_JPRB, 2.64947E-02_JPRB, 2.30115E-02_JPRB, 1.99862E-02_JPRB,&
+&1.73586E-02_JPRB, 1.50765E-02_JPRB, 1.30944E-02_JPRB, 1.13729E-02_JPRB, 9.87775E-03_JPRB/)
+SELFREFO( :,16) = (/&
+&3.51227E-02_JPRB, 3.05052E-02_JPRB, 2.64947E-02_JPRB, 2.30115E-02_JPRB, 1.99862E-02_JPRB,&
+&1.73586E-02_JPRB, 1.50765E-02_JPRB, 1.30944E-02_JPRB, 1.13729E-02_JPRB, 9.87775E-03_JPRB/)
+
+FRACREFAO( :, 1) = (/&
+  &0.16461779_JPRB, 0.14889984_JPRB, 0.14233345_JPRB, 0.13156526_JPRB,&
+  &0.11679733_JPRB, 0.09988949_JPRB, 0.08078653_JPRB, 0.06006384_JPRB,&
+  &0.04028391_JPRB, 0.00435899_JPRB, 0.00359173_JPRB, 0.00281707_JPRB,&
+  &0.00206767_JPRB, 0.00135012_JPRB, 0.00050720_JPRB, 0.00007146_JPRB/)
+FRACREFAO( :, 2) = (/&
+  &0.16442357_JPRB, 0.14944240_JPRB, 0.14245804_JPRB, 0.13111183_JPRB,&
+  &0.11688625_JPRB, 0.09983791_JPRB, 0.08085148_JPRB, 0.05993948_JPRB,&
+  &0.04028057_JPRB, 0.00435939_JPRB, 0.00358708_JPRB, 0.00284036_JPRB,&
+  &0.00208869_JPRB, 0.00133256_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 3) = (/&
+  &0.16368519_JPRB, 0.15018989_JPRB, 0.14262174_JPRB, 0.13084342_JPRB,&
+  &0.11682195_JPRB, 0.09996257_JPRB, 0.08074036_JPRB, 0.05985692_JPRB,&
+  &0.04045362_JPRB, 0.00436208_JPRB, 0.00358257_JPRB, 0.00287122_JPRB,&
+  &0.00211004_JPRB, 0.00133804_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 4) = (/&
+  &0.16274056_JPRB, 0.15133780_JPRB, 0.14228874_JPRB, 0.13081114_JPRB,&
+  &0.11688486_JPRB, 0.09979610_JPRB, 0.08073687_JPRB, 0.05996741_JPRB,&
+  &0.04040616_JPRB, 0.00439869_JPRB, 0.00368910_JPRB, 0.00293041_JPRB,&
+  &0.00211604_JPRB, 0.00133536_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 5) = (/&
+  &0.16176532_JPRB, 0.15207882_JPRB, 0.14226955_JPRB, 0.13079646_JPRB,&
+  &0.11688191_JPRB, 0.09966998_JPRB, 0.08066384_JPRB, 0.06020275_JPRB,&
+  &0.04047901_JPRB, 0.00446696_JPRB, 0.00377456_JPRB, 0.00294410_JPRB,&
+  &0.00211082_JPRB, 0.00133536_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 6) = (/&
+  &0.15993737_JPRB, 0.15305527_JPRB, 0.14259829_JPRB, 0.13078023_JPRB,&
+  &0.11686983_JPRB, 0.09980131_JPRB, 0.08058286_JPRB, 0.06031430_JPRB,&
+  &0.04082833_JPRB, 0.00450509_JPRB, 0.00377574_JPRB, 0.00294823_JPRB,&
+  &0.00210977_JPRB, 0.00133302_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 7) = (/&
+  &0.15371189_JPRB, 0.15592396_JPRB, 0.14430280_JPRB, 0.13076764_JPRB,&
+  &0.11720382_JPRB, 0.10023471_JPRB, 0.08066396_JPRB, 0.06073554_JPRB,&
+  &0.04121581_JPRB, 0.00451202_JPRB, 0.00377832_JPRB, 0.00294609_JPRB,&
+  &0.00210943_JPRB, 0.00133336_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 8) = (/&
+  &0.14262275_JPRB, 0.14572631_JPRB, 0.14560597_JPRB, 0.13736825_JPRB,&
+  &0.12271351_JPRB, 0.10419556_JPRB, 0.08294533_JPRB, 0.06199794_JPRB,&
+  &0.04157615_JPRB, 0.00452842_JPRB, 0.00377704_JPRB, 0.00293852_JPRB,&
+  &0.00211034_JPRB, 0.00133278_JPRB, 0.00049259_JPRB, 0.00006931_JPRB/)
+FRACREFAO( :, 9) = (/&
+  &0.14500433_JPRB, 0.14590444_JPRB, 0.14430299_JPRB, 0.13770708_JPRB,&
+  &0.12288283_JPRB, 0.10350952_JPRB, 0.08269450_JPRB, 0.06130579_JPRB,&
+  &0.04144571_JPRB, 0.00452096_JPRB, 0.00377382_JPRB, 0.00294532_JPRB,&
+  &0.00210943_JPRB, 0.00133228_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB7_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_A1.F90	(revision 2160)
@@ -0,0 +1,1604 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB7_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,ABSCO2O
+USE YOERRTA7 , ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&2.2177E-05_JPRB,2.0513E-05_JPRB,1.8414E-05_JPRB,1.6282E-05_JPRB,1.4597E-05_JPRB,1.7000E-05_JPRB,&
+&3.1783E-05_JPRB,2.9548E-05_JPRB,2.0326E-05_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&2.9476E-05_JPRB,2.7495E-05_JPRB,2.4720E-05_JPRB,2.1727E-05_JPRB,1.8690E-05_JPRB,1.6642E-05_JPRB,&
+&2.2418E-05_JPRB,3.4177E-05_JPRB,1.9700E-05_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&3.7965E-05_JPRB,3.5737E-05_JPRB,3.2254E-05_JPRB,2.8364E-05_JPRB,2.4321E-05_JPRB,2.0140E-05_JPRB,&
+&1.9338E-05_JPRB,3.5856E-05_JPRB,1.9799E-05_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&4.7589E-05_JPRB,4.5238E-05_JPRB,4.1024E-05_JPRB,3.6253E-05_JPRB,3.0918E-05_JPRB,2.5365E-05_JPRB,&
+&2.0061E-05_JPRB,3.1406E-05_JPRB,1.8985E-05_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&5.8133E-05_JPRB,5.5835E-05_JPRB,5.0877E-05_JPRB,4.5058E-05_JPRB,3.8486E-05_JPRB,3.1429E-05_JPRB,&
+&2.4355E-05_JPRB,2.3465E-05_JPRB,1.9414E-05_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&1.7361E-05_JPRB,1.6018E-05_JPRB,1.4350E-05_JPRB,1.2700E-05_JPRB,1.2303E-05_JPRB,1.7164E-05_JPRB,&
+&3.1474E-05_JPRB,2.4947E-05_JPRB,1.4706E-05_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&2.3361E-05_JPRB,2.1726E-05_JPRB,1.9465E-05_JPRB,1.7053E-05_JPRB,1.4815E-05_JPRB,1.4858E-05_JPRB,&
+&2.3603E-05_JPRB,2.7767E-05_JPRB,1.5833E-05_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&3.0408E-05_JPRB,2.8494E-05_JPRB,2.5606E-05_JPRB,2.2430E-05_JPRB,1.9084E-05_JPRB,1.6104E-05_JPRB,&
+&1.8012E-05_JPRB,3.1460E-05_JPRB,1.6197E-05_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&3.8408E-05_JPRB,3.6296E-05_JPRB,3.2790E-05_JPRB,2.8865E-05_JPRB,2.4498E-05_JPRB,1.9967E-05_JPRB,&
+&1.6925E-05_JPRB,3.2098E-05_JPRB,1.4117E-05_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&4.7278E-05_JPRB,4.5107E-05_JPRB,4.0996E-05_JPRB,3.6211E-05_JPRB,3.0776E-05_JPRB,2.4989E-05_JPRB,&
+&1.9312E-05_JPRB,2.3551E-05_JPRB,1.4164E-05_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&1.2199E-05_JPRB,1.1359E-05_JPRB,1.0200E-05_JPRB,9.6275E-06_JPRB,1.2031E-05_JPRB,1.8466E-05_JPRB,&
+&2.2967E-05_JPRB,2.1740E-05_JPRB,1.1424E-05_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&1.6733E-05_JPRB,1.5628E-05_JPRB,1.3980E-05_JPRB,1.2308E-05_JPRB,1.1642E-05_JPRB,1.5244E-05_JPRB,&
+&2.7219E-05_JPRB,2.2185E-05_JPRB,1.1890E-05_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&2.2207E-05_JPRB,2.0825E-05_JPRB,1.8647E-05_JPRB,1.6328E-05_JPRB,1.4051E-05_JPRB,1.3615E-05_JPRB,&
+&2.0537E-05_JPRB,2.5366E-05_JPRB,1.0328E-05_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&2.8575E-05_JPRB,2.6953E-05_JPRB,2.4203E-05_JPRB,2.1170E-05_JPRB,1.7963E-05_JPRB,1.5129E-05_JPRB,&
+&1.6245E-05_JPRB,2.7906E-05_JPRB,8.9114E-06_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&3.5718E-05_JPRB,3.3927E-05_JPRB,3.0634E-05_JPRB,2.6847E-05_JPRB,2.2736E-05_JPRB,1.8593E-05_JPRB,&
+&1.5444E-05_JPRB,2.7715E-05_JPRB,7.5424E-06_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&8.2740E-06_JPRB,7.8120E-06_JPRB,7.3229E-06_JPRB,7.9409E-06_JPRB,1.1817E-05_JPRB,2.0000E-05_JPRB,&
+&1.7036E-05_JPRB,1.6859E-05_JPRB,8.3202E-06_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&1.1549E-05_JPRB,1.0930E-05_JPRB,9.8917E-06_JPRB,9.2790E-06_JPRB,1.0972E-05_JPRB,1.6368E-05_JPRB,&
+&2.0889E-05_JPRB,1.9211E-05_JPRB,7.1922E-06_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&1.5581E-05_JPRB,1.4791E-05_JPRB,1.3288E-05_JPRB,1.1769E-05_JPRB,1.1067E-05_JPRB,1.3703E-05_JPRB,&
+&2.3763E-05_JPRB,1.9912E-05_JPRB,5.4002E-06_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&2.0367E-05_JPRB,1.9416E-05_JPRB,1.7464E-05_JPRB,1.5301E-05_JPRB,1.3238E-05_JPRB,1.2747E-05_JPRB,&
+&1.8197E-05_JPRB,2.2927E-05_JPRB,4.7781E-06_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&2.5890E-05_JPRB,2.4787E-05_JPRB,2.2347E-05_JPRB,1.9553E-05_JPRB,1.6603E-05_JPRB,1.3957E-05_JPRB,&
+&1.4873E-05_JPRB,2.4745E-05_JPRB,6.3734E-06_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&5.5869E-06_JPRB,5.3398E-06_JPRB,5.3975E-06_JPRB,7.5444E-06_JPRB,1.2793E-05_JPRB,1.5045E-05_JPRB,&
+&1.3730E-05_JPRB,1.2376E-05_JPRB,4.7266E-06_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&7.8874E-06_JPRB,7.5569E-06_JPRB,7.0693E-06_JPRB,7.4130E-06_JPRB,1.0864E-05_JPRB,1.7853E-05_JPRB,&
+&1.5643E-05_JPRB,1.6221E-05_JPRB,3.5143E-06_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&1.0780E-05_JPRB,1.0380E-05_JPRB,9.4898E-06_JPRB,8.8724E-06_JPRB,9.9994E-06_JPRB,1.4704E-05_JPRB,&
+&1.8972E-05_JPRB,1.7347E-05_JPRB,2.8694E-06_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&1.4284E-05_JPRB,1.3812E-05_JPRB,1.2569E-05_JPRB,1.1246E-05_JPRB,1.0513E-05_JPRB,1.2455E-05_JPRB,&
+&2.1138E-05_JPRB,1.8036E-05_JPRB,3.9174E-06_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&1.8381E-05_JPRB,1.7863E-05_JPRB,1.6238E-05_JPRB,1.4332E-05_JPRB,1.2479E-05_JPRB,1.1807E-05_JPRB,&
+&1.6766E-05_JPRB,2.0636E-05_JPRB,5.6357E-06_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&3.7614E-06_JPRB,3.6612E-06_JPRB,4.2770E-06_JPRB,7.9260E-06_JPRB,1.2929E-05_JPRB,1.1264E-05_JPRB,&
+&1.2098E-05_JPRB,9.0224E-06_JPRB,2.4844E-06_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&5.3574E-06_JPRB,5.1717E-06_JPRB,5.1909E-06_JPRB,6.9736E-06_JPRB,1.1707E-05_JPRB,1.3896E-05_JPRB,&
+&1.2589E-05_JPRB,1.2103E-05_JPRB,1.8407E-06_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&7.3957E-06_JPRB,7.1617E-06_JPRB,6.7263E-06_JPRB,7.0062E-06_JPRB,1.0148E-05_JPRB,1.6269E-05_JPRB,&
+&1.4268E-05_JPRB,1.5386E-05_JPRB,2.1237E-06_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&9.9154E-06_JPRB,9.6620E-06_JPRB,8.9048E-06_JPRB,8.3244E-06_JPRB,9.2342E-06_JPRB,1.3655E-05_JPRB,&
+&1.7166E-05_JPRB,1.5743E-05_JPRB,3.1741E-06_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&1.2917E-05_JPRB,1.2663E-05_JPRB,1.1620E-05_JPRB,1.0475E-05_JPRB,9.8347E-06_JPRB,1.1480E-05_JPRB,&
+&1.8999E-05_JPRB,1.6296E-05_JPRB,4.8288E-06_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&2.5698E-06_JPRB,2.6225E-06_JPRB,4.3229E-06_JPRB,9.1260E-06_JPRB,9.6331E-06_JPRB,9.4890E-06_JPRB,&
+&8.7898E-06_JPRB,6.9652E-06_JPRB,1.3336E-06_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&3.6949E-06_JPRB,3.6079E-06_JPRB,4.1418E-06_JPRB,7.5616E-06_JPRB,1.2142E-05_JPRB,1.0521E-05_JPRB,&
+&1.1728E-05_JPRB,8.9866E-06_JPRB,1.2052E-06_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&5.1506E-06_JPRB,5.0082E-06_JPRB,4.9832E-06_JPRB,6.5372E-06_JPRB,1.0639E-05_JPRB,1.2818E-05_JPRB,&
+&1.1491E-05_JPRB,1.1845E-05_JPRB,1.7476E-06_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&6.9721E-06_JPRB,6.8111E-06_JPRB,6.4221E-06_JPRB,6.6314E-06_JPRB,9.5364E-06_JPRB,1.4735E-05_JPRB,&
+&1.3056E-05_JPRB,1.4613E-05_JPRB,2.7527E-06_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&9.1741E-06_JPRB,9.0313E-06_JPRB,8.3715E-06_JPRB,7.8432E-06_JPRB,8.4495E-06_JPRB,1.2715E-05_JPRB,&
+&1.5629E-05_JPRB,1.4305E-05_JPRB,4.3096E-06_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&1.7756E-06_JPRB,2.0634E-06_JPRB,5.0880E-06_JPRB,8.2373E-06_JPRB,7.8177E-06_JPRB,7.9286E-06_JPRB,&
+&6.3775E-06_JPRB,5.4113E-06_JPRB,9.3762E-07_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&2.5589E-06_JPRB,2.6026E-06_JPRB,4.1994E-06_JPRB,8.7611E-06_JPRB,9.1501E-06_JPRB,8.9485E-06_JPRB,&
+&8.8743E-06_JPRB,7.1784E-06_JPRB,1.1824E-06_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&3.5966E-06_JPRB,3.5351E-06_JPRB,4.0408E-06_JPRB,7.3057E-06_JPRB,1.1311E-05_JPRB,9.8836E-06_JPRB,&
+&1.0943E-05_JPRB,9.1050E-06_JPRB,1.7854E-06_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&4.9051E-06_JPRB,4.8155E-06_JPRB,4.7641E-06_JPRB,6.2802E-06_JPRB,1.0233E-05_JPRB,1.1811E-05_JPRB,&
+&1.0660E-05_JPRB,1.1545E-05_JPRB,2.8335E-06_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&6.5079E-06_JPRB,6.4275E-06_JPRB,6.0806E-06_JPRB,6.2850E-06_JPRB,8.9855E-06_JPRB,1.3690E-05_JPRB,&
+&1.2091E-05_JPRB,1.3991E-05_JPRB,4.4905E-06_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&1.2486E-06_JPRB,2.0772E-06_JPRB,6.3261E-06_JPRB,6.5239E-06_JPRB,6.7379E-06_JPRB,5.7685E-06_JPRB,&
+&4.7923E-06_JPRB,4.4775E-06_JPRB,2.0431E-06_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&1.8028E-06_JPRB,2.0516E-06_JPRB,4.9892E-06_JPRB,7.9160E-06_JPRB,7.4534E-06_JPRB,8.0589E-06_JPRB,&
+&6.6119E-06_JPRB,5.7051E-06_JPRB,2.4856E-06_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&2.5445E-06_JPRB,2.5819E-06_JPRB,4.1305E-06_JPRB,8.3727E-06_JPRB,8.7276E-06_JPRB,8.5620E-06_JPRB,&
+&8.8118E-06_JPRB,7.4196E-06_JPRB,3.4314E-06_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&3.4959E-06_JPRB,3.4634E-06_JPRB,3.9749E-06_JPRB,7.0571E-06_JPRB,1.0574E-05_JPRB,9.2822E-06_JPRB,&
+&1.0319E-05_JPRB,9.2300E-06_JPRB,5.1599E-06_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&4.6733E-06_JPRB,4.6321E-06_JPRB,4.5821E-06_JPRB,6.0749E-06_JPRB,9.9333E-06_JPRB,1.0979E-05_JPRB,&
+&1.0111E-05_JPRB,1.1271E-05_JPRB,8.0274E-06_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&9.1025E-07_JPRB,2.4528E-06_JPRB,5.5726E-06_JPRB,5.5107E-06_JPRB,5.1975E-06_JPRB,4.4519E-06_JPRB,&
+&3.8745E-06_JPRB,3.7574E-06_JPRB,7.2814E-06_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&1.3156E-06_JPRB,2.0527E-06_JPRB,6.2782E-06_JPRB,6.4430E-06_JPRB,6.8843E-06_JPRB,6.1546E-06_JPRB,&
+&5.1800E-06_JPRB,4.8780E-06_JPRB,8.0238E-06_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&1.8603E-06_JPRB,2.0830E-06_JPRB,5.0693E-06_JPRB,7.7258E-06_JPRB,7.2719E-06_JPRB,8.2740E-06_JPRB,&
+&6.9520E-06_JPRB,6.2927E-06_JPRB,9.9400E-06_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&2.5643E-06_JPRB,2.6119E-06_JPRB,4.1284E-06_JPRB,8.2194E-06_JPRB,8.3768E-06_JPRB,8.2923E-06_JPRB,&
+&8.9244E-06_JPRB,7.7919E-06_JPRB,1.3755E-05_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&3.4396E-06_JPRB,3.4402E-06_JPRB,3.9520E-06_JPRB,6.9781E-06_JPRB,9.9688E-06_JPRB,8.9208E-06_JPRB,&
+&1.0073E-05_JPRB,9.4585E-06_JPRB,2.0482E-05_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&7.9990E-07_JPRB,2.6784E-06_JPRB,5.0182E-06_JPRB,5.2703E-06_JPRB,4.7427E-06_JPRB,4.1219E-06_JPRB,&
+&3.7030E-06_JPRB,3.7980E-06_JPRB,1.0212E-05_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&1.1506E-06_JPRB,2.1675E-06_JPRB,6.1676E-06_JPRB,5.9511E-06_JPRB,6.4671E-06_JPRB,5.5707E-06_JPRB,&
+&4.8102E-06_JPRB,4.7946E-06_JPRB,1.1170E-05_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&1.6161E-06_JPRB,1.9795E-06_JPRB,5.4689E-06_JPRB,6.8567E-06_JPRB,6.9277E-06_JPRB,7.3643E-06_JPRB,&
+&6.3255E-06_JPRB,6.0154E-06_JPRB,1.3679E-05_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&2.2097E-06_JPRB,2.3135E-06_JPRB,4.4934E-06_JPRB,8.2433E-06_JPRB,7.5005E-06_JPRB,8.0757E-06_JPRB,&
+&8.0043E-06_JPRB,7.4062E-06_JPRB,1.8725E-05_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&2.9383E-06_JPRB,2.9710E-06_JPRB,3.8010E-06_JPRB,7.4323E-06_JPRB,8.7355E-06_JPRB,8.0970E-06_JPRB,&
+&9.6640E-06_JPRB,8.8290E-06_JPRB,2.7664E-05_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&7.0941E-07_JPRB,2.6297E-06_JPRB,4.5700E-06_JPRB,4.9667E-06_JPRB,4.3747E-06_JPRB,3.8263E-06_JPRB,&
+&3.4506E-06_JPRB,3.6352E-06_JPRB,1.0764E-05_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&1.0191E-06_JPRB,2.0344E-06_JPRB,5.5461E-06_JPRB,5.4627E-06_JPRB,5.8842E-06_JPRB,5.0801E-06_JPRB,&
+&4.4391E-06_JPRB,4.4109E-06_JPRB,1.1741E-05_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&1.4279E-06_JPRB,1.8013E-06_JPRB,5.3154E-06_JPRB,6.1728E-06_JPRB,6.3556E-06_JPRB,6.6152E-06_JPRB,&
+&5.7465E-06_JPRB,5.5323E-06_JPRB,1.4320E-05_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&1.9430E-06_JPRB,2.0642E-06_JPRB,4.3928E-06_JPRB,7.3526E-06_JPRB,6.7817E-06_JPRB,7.5948E-06_JPRB,&
+&7.1609E-06_JPRB,6.7682E-06_JPRB,1.9523E-05_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&2.5711E-06_JPRB,2.6172E-06_JPRB,3.5411E-06_JPRB,7.1217E-06_JPRB,7.7996E-06_JPRB,7.3436E-06_JPRB,&
+&8.5622E-06_JPRB,7.9225E-06_JPRB,2.8755E-05_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&6.2420E-07_JPRB,2.5595E-06_JPRB,4.1789E-06_JPRB,4.5948E-06_JPRB,4.0362E-06_JPRB,3.5472E-06_JPRB,&
+&3.2436E-06_JPRB,3.4107E-06_JPRB,9.1608E-06_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&8.9615E-07_JPRB,1.9079E-06_JPRB,4.9940E-06_JPRB,5.0423E-06_JPRB,5.3353E-06_JPRB,4.6287E-06_JPRB,&
+&4.1017E-06_JPRB,4.1244E-06_JPRB,9.9901E-06_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&1.2529E-06_JPRB,1.6490E-06_JPRB,5.1498E-06_JPRB,5.5689E-06_JPRB,5.8865E-06_JPRB,5.9318E-06_JPRB,&
+&5.1860E-06_JPRB,5.1003E-06_JPRB,1.2178E-05_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&1.6987E-06_JPRB,1.8380E-06_JPRB,4.2684E-06_JPRB,6.5744E-06_JPRB,6.1601E-06_JPRB,7.0815E-06_JPRB,&
+&6.4247E-06_JPRB,6.1421E-06_JPRB,1.6600E-05_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&2.2352E-06_JPRB,2.2950E-06_JPRB,3.3070E-06_JPRB,6.8297E-06_JPRB,6.9887E-06_JPRB,6.7633E-06_JPRB,&
+&7.6284E-06_JPRB,7.1420E-06_JPRB,2.4442E-05_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&5.4151E-05_JPRB,5.1620E-05_JPRB,4.7151E-05_JPRB,4.1642E-05_JPRB,3.5398E-05_JPRB,2.6235E-05_JPRB,&
+&2.1071E-05_JPRB,5.8698E-05_JPRB,2.4321E-05_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&6.7514E-05_JPRB,6.4760E-05_JPRB,5.9233E-05_JPRB,5.2524E-05_JPRB,4.5074E-05_JPRB,3.6408E-05_JPRB,&
+&2.4335E-05_JPRB,5.6829E-05_JPRB,2.7514E-05_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&8.2149E-05_JPRB,7.9291E-05_JPRB,7.2593E-05_JPRB,6.4606E-05_JPRB,5.5728E-05_JPRB,4.6152E-05_JPRB,&
+&3.4241E-05_JPRB,4.5420E-05_JPRB,2.4336E-05_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&9.7723E-05_JPRB,9.4880E-05_JPRB,8.7232E-05_JPRB,7.7947E-05_JPRB,6.7833E-05_JPRB,5.6842E-05_JPRB,&
+&4.4766E-05_JPRB,2.6532E-05_JPRB,2.9870E-05_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&1.1394E-04_JPRB,1.1139E-04_JPRB,1.0299E-04_JPRB,9.2684E-05_JPRB,8.1155E-05_JPRB,6.8389E-05_JPRB,&
+&5.3823E-05_JPRB,3.3217E-05_JPRB,2.3434E-05_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&4.2753E-05_JPRB,4.0882E-05_JPRB,3.7362E-05_JPRB,3.3159E-05_JPRB,2.7615E-05_JPRB,1.8637E-05_JPRB,&
+&2.2134E-05_JPRB,5.3399E-05_JPRB,1.8302E-05_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&5.3879E-05_JPRB,5.1846E-05_JPRB,4.7574E-05_JPRB,4.2472E-05_JPRB,3.6451E-05_JPRB,2.8399E-05_JPRB,&
+&1.9335E-05_JPRB,5.2953E-05_JPRB,1.7179E-05_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&6.6088E-05_JPRB,6.4132E-05_JPRB,5.9087E-05_JPRB,5.2832E-05_JPRB,4.5668E-05_JPRB,3.7676E-05_JPRB,&
+&2.6673E-05_JPRB,4.9047E-05_JPRB,2.0200E-05_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&7.9313E-05_JPRB,7.7493E-05_JPRB,7.1541E-05_JPRB,6.4098E-05_JPRB,5.5769E-05_JPRB,4.6664E-05_JPRB,&
+&3.6034E-05_JPRB,2.7239E-05_JPRB,1.9971E-05_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&9.3172E-05_JPRB,9.1802E-05_JPRB,8.4933E-05_JPRB,7.6462E-05_JPRB,6.6920E-05_JPRB,5.6293E-05_JPRB,&
+&4.4283E-05_JPRB,2.5633E-05_JPRB,1.6128E-05_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&3.1637E-05_JPRB,3.0177E-05_JPRB,2.7541E-05_JPRB,2.3988E-05_JPRB,1.7787E-05_JPRB,1.3073E-05_JPRB,&
+&4.0575E-05_JPRB,4.8194E-05_JPRB,1.2505E-05_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&4.0410E-05_JPRB,3.8878E-05_JPRB,3.5667E-05_JPRB,3.1901E-05_JPRB,2.6742E-05_JPRB,1.8595E-05_JPRB,&
+&1.9446E-05_JPRB,5.0395E-05_JPRB,1.3203E-05_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&5.0197E-05_JPRB,4.8688E-05_JPRB,4.4913E-05_JPRB,4.0333E-05_JPRB,3.4912E-05_JPRB,2.7673E-05_JPRB,&
+&1.8085E-05_JPRB,4.8586E-05_JPRB,1.3602E-05_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&6.0782E-05_JPRB,5.9537E-05_JPRB,5.5167E-05_JPRB,4.9672E-05_JPRB,4.3304E-05_JPRB,3.6088E-05_JPRB,&
+&2.5607E-05_JPRB,4.2696E-05_JPRB,1.2094E-05_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&7.2122E-05_JPRB,7.1291E-05_JPRB,6.6301E-05_JPRB,5.9947E-05_JPRB,5.2623E-05_JPRB,4.4244E-05_JPRB,&
+&3.4126E-05_JPRB,2.2584E-05_JPRB,1.6766E-05_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&2.3214E-05_JPRB,2.2012E-05_JPRB,1.9759E-05_JPRB,1.6356E-05_JPRB,1.1177E-05_JPRB,1.3102E-05_JPRB,&
+&5.4531E-05_JPRB,4.5521E-05_JPRB,8.5704E-06_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&2.9987E-05_JPRB,2.8729E-05_JPRB,2.6188E-05_JPRB,2.2885E-05_JPRB,1.7414E-05_JPRB,1.2331E-05_JPRB,&
+&3.4914E-05_JPRB,4.5109E-05_JPRB,8.5816E-06_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&3.7737E-05_JPRB,3.6418E-05_JPRB,3.3481E-05_JPRB,2.9943E-05_JPRB,2.5212E-05_JPRB,1.8076E-05_JPRB,&
+&1.7776E-05_JPRB,4.6705E-05_JPRB,7.7341E-06_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&4.6237E-05_JPRB,4.5035E-05_JPRB,4.1706E-05_JPRB,3.7594E-05_JPRB,3.2675E-05_JPRB,2.6052E-05_JPRB,&
+&1.7191E-05_JPRB,4.4501E-05_JPRB,1.1430E-05_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&5.5394E-05_JPRB,5.4566E-05_JPRB,5.0800E-05_JPRB,4.6060E-05_JPRB,4.0396E-05_JPRB,3.3727E-05_JPRB,&
+&2.3835E-05_JPRB,3.7336E-05_JPRB,1.6242E-05_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&1.7110E-05_JPRB,1.6145E-05_JPRB,1.4165E-05_JPRB,1.0426E-05_JPRB,7.9870E-06_JPRB,2.4744E-05_JPRB,&
+&5.4612E-05_JPRB,4.2211E-05_JPRB,5.8558E-06_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&2.2350E-05_JPRB,2.1312E-05_JPRB,1.9197E-05_JPRB,1.6194E-05_JPRB,1.1081E-05_JPRB,1.1593E-05_JPRB,&
+&4.7643E-05_JPRB,4.2913E-05_JPRB,4.4739E-06_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&2.8416E-05_JPRB,2.7289E-05_JPRB,2.4884E-05_JPRB,2.1811E-05_JPRB,1.7120E-05_JPRB,1.1847E-05_JPRB,&
+&3.1141E-05_JPRB,4.2424E-05_JPRB,6.9636E-06_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&3.5202E-05_JPRB,3.4084E-05_JPRB,3.1336E-05_JPRB,2.8012E-05_JPRB,2.3757E-05_JPRB,1.7453E-05_JPRB,&
+&1.5962E-05_JPRB,4.2655E-05_JPRB,1.0597E-05_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&4.2592E-05_JPRB,4.1680E-05_JPRB,3.8616E-05_JPRB,3.4875E-05_JPRB,3.0427E-05_JPRB,2.4423E-05_JPRB,&
+&1.5902E-05_JPRB,4.0629E-05_JPRB,1.5906E-05_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&1.2522E-05_JPRB,1.1758E-05_JPRB,9.8897E-06_JPRB,6.3513E-06_JPRB,1.0585E-05_JPRB,4.0712E-05_JPRB,&
+&5.0160E-05_JPRB,4.0760E-05_JPRB,3.1679E-06_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&1.6573E-05_JPRB,1.5756E-05_JPRB,1.3865E-05_JPRB,1.0569E-05_JPRB,7.4971E-06_JPRB,2.3617E-05_JPRB,&
+&5.0226E-05_JPRB,4.0741E-05_JPRB,3.5969E-06_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&2.1308E-05_JPRB,2.0432E-05_JPRB,1.8454E-05_JPRB,1.5643E-05_JPRB,1.0753E-05_JPRB,1.1262E-05_JPRB,&
+&4.2958E-05_JPRB,3.9589E-05_JPRB,5.9975E-06_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&2.6653E-05_JPRB,2.5731E-05_JPRB,2.3505E-05_JPRB,2.0714E-05_JPRB,1.6401E-05_JPRB,1.1347E-05_JPRB,&
+&2.9347E-05_JPRB,3.9364E-05_JPRB,9.7407E-06_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&3.2562E-05_JPRB,3.1730E-05_JPRB,2.9223E-05_JPRB,2.6148E-05_JPRB,2.2224E-05_JPRB,1.6477E-05_JPRB,&
+&1.5448E-05_JPRB,3.9356E-05_JPRB,1.5151E-05_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&9.2632E-06_JPRB,8.5835E-06_JPRB,6.2688E-06_JPRB,5.7491E-06_JPRB,2.0750E-05_JPRB,4.7549E-05_JPRB,&
+&4.9746E-05_JPRB,4.3221E-05_JPRB,1.9173E-06_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&1.2411E-05_JPRB,1.1741E-05_JPRB,9.9384E-06_JPRB,6.3308E-06_JPRB,9.8932E-06_JPRB,3.7604E-05_JPRB,&
+&4.5915E-05_JPRB,3.8224E-05_JPRB,3.1404E-06_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&1.6131E-05_JPRB,1.5426E-05_JPRB,1.3668E-05_JPRB,1.0538E-05_JPRB,7.5655E-06_JPRB,2.2395E-05_JPRB,&
+&4.5385E-05_JPRB,3.8777E-05_JPRB,5.5259E-06_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&2.0394E-05_JPRB,1.9668E-05_JPRB,1.7772E-05_JPRB,1.5135E-05_JPRB,1.0480E-05_JPRB,1.1695E-05_JPRB,&
+&3.8455E-05_JPRB,3.6049E-05_JPRB,9.3488E-06_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&2.5104E-05_JPRB,2.4438E-05_JPRB,2.2345E-05_JPRB,1.9724E-05_JPRB,1.5920E-05_JPRB,1.0909E-05_JPRB,&
+&2.7780E-05_JPRB,3.6976E-05_JPRB,1.5076E-05_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&6.9226E-06_JPRB,6.1974E-06_JPRB,3.6925E-06_JPRB,9.7107E-06_JPRB,3.1400E-05_JPRB,5.1217E-05_JPRB,&
+&5.1133E-05_JPRB,4.7405E-05_JPRB,1.8023E-06_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&9.3730E-06_JPRB,8.7696E-06_JPRB,6.5222E-06_JPRB,5.5338E-06_JPRB,2.0725E-05_JPRB,4.5311E-05_JPRB,&
+&4.6330E-05_JPRB,3.9950E-05_JPRB,3.2574E-06_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&1.2271E-05_JPRB,1.1705E-05_JPRB,9.9611E-06_JPRB,6.4477E-06_JPRB,1.0502E-05_JPRB,3.6242E-05_JPRB,&
+&4.2814E-05_JPRB,3.6156E-05_JPRB,5.9101E-06_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&1.5653E-05_JPRB,1.5070E-05_JPRB,1.3408E-05_JPRB,1.0377E-05_JPRB,7.4564E-06_JPRB,2.3003E-05_JPRB,&
+&4.1378E-05_JPRB,3.6628E-05_JPRB,1.0378E-05_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&1.9451E-05_JPRB,1.8892E-05_JPRB,1.7102E-05_JPRB,1.4623E-05_JPRB,1.0332E-05_JPRB,1.2287E-05_JPRB,&
+&3.5601E-05_JPRB,3.3798E-05_JPRB,1.7377E-05_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&5.2610E-06_JPRB,4.1633E-06_JPRB,4.0647E-06_JPRB,1.6473E-05_JPRB,4.2753E-05_JPRB,5.1385E-05_JPRB,&
+&4.7611E-05_JPRB,4.8409E-05_JPRB,3.6172E-06_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&7.1572E-06_JPRB,6.5056E-06_JPRB,3.9269E-06_JPRB,9.8251E-06_JPRB,3.2469E-05_JPRB,4.6277E-05_JPRB,&
+&4.7279E-05_JPRB,4.4658E-05_JPRB,6.1285E-06_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&9.4513E-06_JPRB,8.9266E-06_JPRB,6.7478E-06_JPRB,5.5531E-06_JPRB,2.0823E-05_JPRB,4.1922E-05_JPRB,&
+&4.3117E-05_JPRB,3.6857E-05_JPRB,1.1095E-05_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&1.2144E-05_JPRB,1.1656E-05_JPRB,9.9211E-06_JPRB,6.5681E-06_JPRB,1.1366E-05_JPRB,3.4298E-05_JPRB,&
+&3.9570E-05_JPRB,3.4386E-05_JPRB,2.0048E-05_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&1.5214E-05_JPRB,1.4744E-05_JPRB,1.3136E-05_JPRB,1.0200E-05_JPRB,7.5939E-06_JPRB,2.3119E-05_JPRB,&
+&3.7419E-05_JPRB,3.3965E-05_JPRB,3.4968E-05_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&4.1564E-06_JPRB,2.6079E-06_JPRB,6.9218E-06_JPRB,2.7859E-05_JPRB,4.8834E-05_JPRB,5.2686E-05_JPRB,&
+&4.6389E-05_JPRB,4.9087E-05_JPRB,1.0652E-05_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&5.6598E-06_JPRB,4.6524E-06_JPRB,4.2303E-06_JPRB,1.7606E-05_JPRB,4.1116E-05_JPRB,4.7567E-05_JPRB,&
+&4.5264E-05_JPRB,4.6736E-05_JPRB,1.6225E-05_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&7.4935E-06_JPRB,6.8980E-06_JPRB,4.2539E-06_JPRB,1.0638E-05_JPRB,3.2709E-05_JPRB,4.2416E-05_JPRB,&
+&4.4544E-05_JPRB,4.1212E-05_JPRB,2.8258E-05_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&9.6635E-06_JPRB,9.2067E-06_JPRB,7.0228E-06_JPRB,5.8835E-06_JPRB,2.2271E-05_JPRB,3.9179E-05_JPRB,&
+&4.0535E-05_JPRB,3.4910E-05_JPRB,5.1242E-05_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&1.2158E-05_JPRB,1.1756E-05_JPRB,1.0040E-05_JPRB,6.8113E-06_JPRB,1.2737E-05_JPRB,3.2445E-05_JPRB,&
+&3.6666E-05_JPRB,3.2986E-05_JPRB,9.1455E-05_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&3.8505E-06_JPRB,2.2272E-06_JPRB,9.0452E-06_JPRB,3.3373E-05_JPRB,4.6563E-05_JPRB,5.1119E-05_JPRB,&
+&4.6293E-05_JPRB,4.7828E-05_JPRB,1.4850E-05_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&5.1974E-06_JPRB,4.0087E-06_JPRB,5.3940E-06_JPRB,2.3158E-05_JPRB,4.1599E-05_JPRB,4.6146E-05_JPRB,&
+&4.2299E-05_JPRB,4.6208E-05_JPRB,2.2452E-05_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&6.8266E-06_JPRB,6.1648E-06_JPRB,4.0224E-06_JPRB,1.4825E-05_JPRB,3.4779E-05_JPRB,4.0817E-05_JPRB,&
+&4.2127E-05_JPRB,4.1473E-05_JPRB,3.8968E-05_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&8.7559E-06_JPRB,8.2911E-06_JPRB,5.8154E-06_JPRB,8.1179E-06_JPRB,2.7292E-05_JPRB,3.7470E-05_JPRB,&
+&3.8829E-05_JPRB,3.4450E-05_JPRB,7.0589E-05_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&1.0954E-05_JPRB,1.0574E-05_JPRB,8.7742E-06_JPRB,6.0446E-06_JPRB,1.8157E-05_JPRB,3.3048E-05_JPRB,&
+&3.5168E-05_JPRB,3.1159E-05_JPRB,1.2578E-04_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&3.5781E-06_JPRB,2.0859E-06_JPRB,9.5195E-06_JPRB,3.1787E-05_JPRB,4.2342E-05_JPRB,4.6653E-05_JPRB,&
+&4.2689E-05_JPRB,4.4370E-05_JPRB,1.5650E-05_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&4.8068E-06_JPRB,3.6887E-06_JPRB,5.7939E-06_JPRB,2.3796E-05_JPRB,3.7779E-05_JPRB,4.1997E-05_JPRB,&
+&3.8426E-05_JPRB,4.2634E-05_JPRB,2.3652E-05_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&6.2948E-06_JPRB,5.6556E-06_JPRB,3.7630E-06_JPRB,1.5847E-05_JPRB,3.2542E-05_JPRB,3.7297E-05_JPRB,&
+&3.8083E-05_JPRB,3.7879E-05_JPRB,4.1024E-05_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&8.0397E-06_JPRB,7.5827E-06_JPRB,5.0870E-06_JPRB,9.0305E-06_JPRB,2.6555E-05_JPRB,3.3515E-05_JPRB,&
+&3.5502E-05_JPRB,3.1529E-05_JPRB,7.4223E-05_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&1.0028E-05_JPRB,9.6397E-06_JPRB,7.9012E-06_JPRB,5.7864E-06_JPRB,1.8461E-05_JPRB,3.0406E-05_JPRB,&
+&3.2113E-05_JPRB,2.8581E-05_JPRB,1.3214E-04_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&3.3027E-06_JPRB,1.9849E-06_JPRB,1.0579E-05_JPRB,3.0102E-05_JPRB,3.8661E-05_JPRB,4.2078E-05_JPRB,&
+&3.9451E-05_JPRB,4.0882E-05_JPRB,1.3351E-05_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&4.4219E-06_JPRB,3.3751E-06_JPRB,6.3222E-06_JPRB,2.3724E-05_JPRB,3.3992E-05_JPRB,3.8161E-05_JPRB,&
+&3.4651E-05_JPRB,3.8910E-05_JPRB,2.0209E-05_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&5.7740E-06_JPRB,5.1371E-06_JPRB,3.6294E-06_JPRB,1.6612E-05_JPRB,3.0054E-05_JPRB,3.4084E-05_JPRB,&
+&3.4363E-05_JPRB,3.4522E-05_JPRB,3.5082E-05_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&7.3436E-06_JPRB,6.8959E-06_JPRB,4.5387E-06_JPRB,1.0066E-05_JPRB,2.5028E-05_JPRB,3.0345E-05_JPRB,&
+&3.2120E-05_JPRB,2.8785E-05_JPRB,6.3433E-05_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&9.1271E-06_JPRB,8.7491E-06_JPRB,7.0983E-06_JPRB,6.0072E-06_JPRB,1.8622E-05_JPRB,2.7834E-05_JPRB,&
+&2.8936E-05_JPRB,2.5906E-05_JPRB,1.1287E-04_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&1.0561E-04_JPRB,9.9580E-05_JPRB,9.1881E-05_JPRB,8.2381E-05_JPRB,7.1375E-05_JPRB,5.7989E-05_JPRB,&
+&3.5664E-05_JPRB,6.4412E-05_JPRB,3.1092E-05_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&1.2338E-04_JPRB,1.1773E-04_JPRB,1.0902E-04_JPRB,9.8327E-05_JPRB,8.5823E-05_JPRB,7.1198E-05_JPRB,&
+&5.2267E-05_JPRB,4.7983E-05_JPRB,3.3217E-05_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&1.4195E-04_JPRB,1.3687E-04_JPRB,1.2720E-04_JPRB,1.1513E-04_JPRB,1.0071E-04_JPRB,8.3744E-05_JPRB,&
+&6.2834E-05_JPRB,3.3890E-05_JPRB,3.3867E-05_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&1.6072E-04_JPRB,1.5621E-04_JPRB,1.4581E-04_JPRB,1.3254E-04_JPRB,1.1572E-04_JPRB,9.6056E-05_JPRB,&
+&7.3269E-05_JPRB,4.4619E-05_JPRB,2.4444E-05_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&1.7870E-04_JPRB,1.7588E-04_JPRB,1.6519E-04_JPRB,1.5017E-04_JPRB,1.3146E-04_JPRB,1.0980E-04_JPRB,&
+&8.4775E-05_JPRB,5.5831E-05_JPRB,2.9607E-05_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&9.0935E-05_JPRB,8.5722E-05_JPRB,7.8558E-05_JPRB,6.9752E-05_JPRB,5.9712E-05_JPRB,4.7385E-05_JPRB,&
+&2.8063E-05_JPRB,6.1629E-05_JPRB,2.1541E-05_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&1.0613E-04_JPRB,1.0109E-04_JPRB,9.2923E-05_JPRB,8.2896E-05_JPRB,7.1836E-05_JPRB,5.9001E-05_JPRB,&
+&4.0531E-05_JPRB,5.4238E-05_JPRB,2.6282E-05_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&1.2220E-04_JPRB,1.1726E-04_JPRB,1.0800E-04_JPRB,9.6883E-05_JPRB,8.4549E-05_JPRB,7.0132E-05_JPRB,&
+&5.2211E-05_JPRB,3.5371E-05_JPRB,2.0831E-05_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&1.3840E-04_JPRB,1.3383E-04_JPRB,1.2384E-04_JPRB,1.1185E-04_JPRB,9.7762E-05_JPRB,8.1196E-05_JPRB,&
+&6.1844E-05_JPRB,3.5901E-05_JPRB,1.8797E-05_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&1.5419E-04_JPRB,1.5072E-04_JPRB,1.4069E-04_JPRB,1.2749E-04_JPRB,1.1156E-04_JPRB,9.3151E-05_JPRB,&
+&7.1896E-05_JPRB,4.6407E-05_JPRB,2.8564E-05_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&7.5234E-05_JPRB,7.0905E-05_JPRB,6.4619E-05_JPRB,5.6937E-05_JPRB,4.7925E-05_JPRB,3.4057E-05_JPRB,&
+&2.9471E-05_JPRB,6.0714E-05_JPRB,1.5353E-05_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&8.8054E-05_JPRB,8.3720E-05_JPRB,7.6548E-05_JPRB,6.7694E-05_JPRB,5.7920E-05_JPRB,4.6422E-05_JPRB,&
+&2.6506E-05_JPRB,5.8794E-05_JPRB,1.3222E-05_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&1.0142E-04_JPRB,9.7129E-05_JPRB,8.9011E-05_JPRB,7.9094E-05_JPRB,6.8344E-05_JPRB,5.6044E-05_JPRB,&
+&3.9469E-05_JPRB,4.5819E-05_JPRB,1.2529E-05_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&1.1514E-04_JPRB,1.1089E-04_JPRB,1.0189E-04_JPRB,9.1196E-05_JPRB,7.9328E-05_JPRB,6.5564E-05_JPRB,&
+&4.9536E-05_JPRB,2.9992E-05_JPRB,2.0006E-05_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&1.2867E-04_JPRB,1.2511E-04_JPRB,1.1573E-04_JPRB,1.0413E-04_JPRB,9.0747E-05_JPRB,7.5488E-05_JPRB,&
+&5.8137E-05_JPRB,3.3705E-05_JPRB,2.9649E-05_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&6.1778E-05_JPRB,5.8294E-05_JPRB,5.2798E-05_JPRB,4.6202E-05_JPRB,3.7473E-05_JPRB,2.1169E-05_JPRB,&
+&3.9527E-05_JPRB,6.1900E-05_JPRB,9.6628E-06_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&7.2880E-05_JPRB,6.9141E-05_JPRB,6.2841E-05_JPRB,5.5219E-05_JPRB,4.6442E-05_JPRB,3.4307E-05_JPRB,&
+&2.4540E-05_JPRB,5.8099E-05_JPRB,8.2774E-06_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&8.4189E-05_JPRB,8.0422E-05_JPRB,7.3326E-05_JPRB,6.4671E-05_JPRB,5.5214E-05_JPRB,4.4201E-05_JPRB,&
+&2.5763E-05_JPRB,5.4305E-05_JPRB,1.4320E-05_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&9.5731E-05_JPRB,9.1993E-05_JPRB,8.4010E-05_JPRB,7.4439E-05_JPRB,6.4080E-05_JPRB,5.2536E-05_JPRB,&
+&3.7772E-05_JPRB,4.0812E-05_JPRB,2.1667E-05_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&1.0722E-04_JPRB,1.0376E-04_JPRB,9.5138E-05_JPRB,8.4789E-05_JPRB,7.3585E-05_JPRB,6.0982E-05_JPRB,&
+&4.6442E-05_JPRB,2.6775E-05_JPRB,3.0897E-05_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&5.0693E-05_JPRB,4.7899E-05_JPRB,4.3078E-05_JPRB,3.7149E-05_JPRB,2.7343E-05_JPRB,1.8823E-05_JPRB,&
+&5.3113E-05_JPRB,6.4247E-05_JPRB,5.8413E-06_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&6.0292E-05_JPRB,5.7244E-05_JPRB,5.1699E-05_JPRB,4.5062E-05_JPRB,3.6934E-05_JPRB,2.2807E-05_JPRB,&
+&3.5085E-05_JPRB,5.8430E-05_JPRB,9.0461E-06_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&7.0130E-05_JPRB,6.6900E-05_JPRB,6.0628E-05_JPRB,5.3145E-05_JPRB,4.4673E-05_JPRB,3.3772E-05_JPRB,&
+&2.2961E-05_JPRB,5.4725E-05_JPRB,1.4542E-05_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&7.9880E-05_JPRB,7.6664E-05_JPRB,6.9684E-05_JPRB,6.1301E-05_JPRB,5.2150E-05_JPRB,4.1916E-05_JPRB,&
+&2.5438E-05_JPRB,4.9130E-05_JPRB,2.2207E-05_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&8.9549E-05_JPRB,8.6422E-05_JPRB,7.8834E-05_JPRB,6.9694E-05_JPRB,5.9898E-05_JPRB,4.9265E-05_JPRB,&
+&3.5529E-05_JPRB,3.7520E-05_JPRB,3.2469E-05_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&4.1241E-05_JPRB,3.8825E-05_JPRB,3.4760E-05_JPRB,2.8889E-05_JPRB,1.6124E-05_JPRB,2.3998E-05_JPRB,&
+&6.9344E-05_JPRB,6.4810E-05_JPRB,4.4340E-06_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&4.9399E-05_JPRB,4.6917E-05_JPRB,4.2198E-05_JPRB,3.6346E-05_JPRB,2.7704E-05_JPRB,1.8853E-05_JPRB,&
+&4.8135E-05_JPRB,6.0892E-05_JPRB,8.2681E-06_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&5.7861E-05_JPRB,5.5206E-05_JPRB,4.9718E-05_JPRB,4.3299E-05_JPRB,3.5690E-05_JPRB,2.2202E-05_JPRB,&
+&3.1528E-05_JPRB,5.5484E-05_JPRB,1.3906E-05_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&6.6294E-05_JPRB,6.3463E-05_JPRB,5.7396E-05_JPRB,5.0239E-05_JPRB,4.2302E-05_JPRB,3.1945E-05_JPRB,&
+&2.0634E-05_JPRB,5.2274E-05_JPRB,2.1920E-05_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&7.4664E-05_JPRB,7.1784E-05_JPRB,6.5151E-05_JPRB,5.7238E-05_JPRB,4.8740E-05_JPRB,3.9314E-05_JPRB,&
+&2.3437E-05_JPRB,4.4846E-05_JPRB,3.3007E-05_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&3.3565E-05_JPRB,3.1356E-05_JPRB,2.7729E-05_JPRB,1.9350E-05_JPRB,1.4415E-05_JPRB,3.7753E-05_JPRB,&
+&7.9102E-05_JPRB,6.2223E-05_JPRB,4.1072E-06_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&4.0432E-05_JPRB,3.8210E-05_JPRB,3.4263E-05_JPRB,2.8707E-05_JPRB,1.6576E-05_JPRB,2.4516E-05_JPRB,&
+&6.1614E-05_JPRB,6.3419E-05_JPRB,8.0365E-06_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&4.7650E-05_JPRB,4.5423E-05_JPRB,4.0777E-05_JPRB,3.5184E-05_JPRB,2.7131E-05_JPRB,1.8290E-05_JPRB,&
+&4.3600E-05_JPRB,5.7557E-05_JPRB,1.3883E-05_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&5.4916E-05_JPRB,5.2553E-05_JPRB,4.7306E-05_JPRB,4.1198E-05_JPRB,3.3969E-05_JPRB,2.0841E-05_JPRB,&
+&2.8970E-05_JPRB,5.2203E-05_JPRB,2.2718E-05_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&6.2191E-05_JPRB,5.9624E-05_JPRB,5.3859E-05_JPRB,4.7059E-05_JPRB,3.9626E-05_JPRB,3.0110E-05_JPRB,&
+&1.8574E-05_JPRB,4.8026E-05_JPRB,3.5441E-05_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&2.7226E-05_JPRB,2.5212E-05_JPRB,2.1382E-05_JPRB,1.0543E-05_JPRB,2.2029E-05_JPRB,5.3627E-05_JPRB,&
+&8.2097E-05_JPRB,5.8785E-05_JPRB,4.6971E-06_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&3.3008E-05_JPRB,3.0976E-05_JPRB,2.7464E-05_JPRB,1.9851E-05_JPRB,1.5586E-05_JPRB,3.6260E-05_JPRB,&
+&7.0608E-05_JPRB,6.2688E-05_JPRB,9.0473E-06_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&3.9152E-05_JPRB,3.7119E-05_JPRB,3.3223E-05_JPRB,2.7933E-05_JPRB,1.6165E-05_JPRB,2.3754E-05_JPRB,&
+&5.6757E-05_JPRB,6.1667E-05_JPRB,1.6403E-05_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&4.5401E-05_JPRB,4.3320E-05_JPRB,3.8890E-05_JPRB,3.3512E-05_JPRB,2.5986E-05_JPRB,1.7686E-05_JPRB,&
+&4.1699E-05_JPRB,5.5000E-05_JPRB,2.8038E-05_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&5.1574E-05_JPRB,4.9405E-05_JPRB,4.4463E-05_JPRB,3.8672E-05_JPRB,3.1838E-05_JPRB,1.9274E-05_JPRB,&
+&2.7957E-05_JPRB,4.8608E-05_JPRB,4.5414E-05_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&2.1974E-05_JPRB,2.0130E-05_JPRB,1.3358E-05_JPRB,1.2253E-05_JPRB,3.2656E-05_JPRB,7.0337E-05_JPRB,&
+&8.9242E-05_JPRB,5.7837E-05_JPRB,9.3121E-06_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&2.6942E-05_JPRB,2.5061E-05_JPRB,2.1391E-05_JPRB,1.1226E-05_JPRB,2.1710E-05_JPRB,5.1789E-05_JPRB,&
+&7.4746E-05_JPRB,5.8409E-05_JPRB,1.8445E-05_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&3.2174E-05_JPRB,3.0300E-05_JPRB,2.6794E-05_JPRB,1.9848E-05_JPRB,1.5650E-05_JPRB,3.5796E-05_JPRB,&
+&6.3518E-05_JPRB,6.2556E-05_JPRB,3.5097E-05_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&3.7549E-05_JPRB,3.5640E-05_JPRB,3.1882E-05_JPRB,2.6804E-05_JPRB,1.5301E-05_JPRB,2.3066E-05_JPRB,&
+&5.1951E-05_JPRB,5.9042E-05_JPRB,6.2870E-05_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&4.2852E-05_JPRB,4.0889E-05_JPRB,3.6715E-05_JPRB,3.1666E-05_JPRB,2.4183E-05_JPRB,1.7177E-05_JPRB,&
+&4.0166E-05_JPRB,5.1290E-05_JPRB,1.0621E-04_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&1.7885E-05_JPRB,1.6093E-05_JPRB,7.4609E-06_JPRB,1.9809E-05_JPRB,4.8743E-05_JPRB,8.4191E-05_JPRB,&
+&9.7811E-05_JPRB,5.7087E-05_JPRB,2.4684E-05_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&2.2205E-05_JPRB,2.0473E-05_JPRB,1.4192E-05_JPRB,1.3653E-05_JPRB,3.3673E-05_JPRB,6.6332E-05_JPRB,&
+&8.1889E-05_JPRB,5.8933E-05_JPRB,4.8726E-05_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&2.6710E-05_JPRB,2.4979E-05_JPRB,2.1384E-05_JPRB,1.1205E-05_JPRB,2.2836E-05_JPRB,5.0904E-05_JPRB,&
+&6.7817E-05_JPRB,6.0017E-05_JPRB,9.5318E-05_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&3.1308E-05_JPRB,2.9540E-05_JPRB,2.6146E-05_JPRB,1.9462E-05_JPRB,1.5742E-05_JPRB,3.6775E-05_JPRB,&
+&5.7447E-05_JPRB,6.0670E-05_JPRB,1.7750E-04_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&3.5884E-05_JPRB,3.4076E-05_JPRB,3.0469E-05_JPRB,2.5574E-05_JPRB,1.4532E-05_JPRB,2.3848E-05_JPRB,&
+&4.8505E-05_JPRB,5.5852E-05_JPRB,3.1067E-04_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&1.6247E-05_JPRB,1.4357E-05_JPRB,6.7662E-06_JPRB,2.3639E-05_JPRB,5.5683E-05_JPRB,8.1956E-05_JPRB,&
+&9.4483E-05_JPRB,5.8077E-05_JPRB,3.4483E-05_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&2.0083E-05_JPRB,1.8438E-05_JPRB,1.1223E-05_JPRB,1.6583E-05_JPRB,3.8809E-05_JPRB,6.7379E-05_JPRB,&
+&8.0717E-05_JPRB,5.8833E-05_JPRB,6.8180E-05_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&2.4035E-05_JPRB,2.2414E-05_JPRB,1.8252E-05_JPRB,1.1545E-05_JPRB,2.7168E-05_JPRB,5.4230E-05_JPRB,&
+&6.6296E-05_JPRB,5.8218E-05_JPRB,1.3381E-04_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&2.8028E-05_JPRB,2.6371E-05_JPRB,2.3077E-05_JPRB,1.4565E-05_JPRB,1.8361E-05_JPRB,4.2537E-05_JPRB,&
+&5.6345E-05_JPRB,5.9076E-05_JPRB,2.5000E-04_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&3.1996E-05_JPRB,3.0330E-05_JPRB,2.7020E-05_JPRB,2.1917E-05_JPRB,1.3395E-05_JPRB,2.9523E-05_JPRB,&
+&4.8541E-05_JPRB,5.5094E-05_JPRB,4.3853E-04_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&1.4787E-05_JPRB,1.2868E-05_JPRB,7.7779E-06_JPRB,2.3775E-05_JPRB,5.3535E-05_JPRB,7.5004E-05_JPRB,&
+&8.6201E-05_JPRB,6.0383E-05_JPRB,3.6484E-05_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&1.8188E-05_JPRB,1.6624E-05_JPRB,9.6989E-06_JPRB,1.6809E-05_JPRB,3.8801E-05_JPRB,6.1756E-05_JPRB,&
+&7.3880E-05_JPRB,5.7828E-05_JPRB,7.2267E-05_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&2.1698E-05_JPRB,2.0162E-05_JPRB,1.6039E-05_JPRB,1.1681E-05_JPRB,2.6941E-05_JPRB,5.0140E-05_JPRB,&
+&6.0455E-05_JPRB,5.6955E-05_JPRB,1.4213E-04_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&2.5223E-05_JPRB,2.3667E-05_JPRB,2.0595E-05_JPRB,1.1968E-05_JPRB,1.8179E-05_JPRB,4.0062E-05_JPRB,&
+&5.0860E-05_JPRB,5.5338E-05_JPRB,2.6585E-04_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&2.8679E-05_JPRB,2.7160E-05_JPRB,2.4085E-05_JPRB,1.8993E-05_JPRB,1.3232E-05_JPRB,3.0080E-05_JPRB,&
+&4.4162E-05_JPRB,5.0190E-05_JPRB,4.6593E-04_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&1.3378E-05_JPRB,1.1412E-05_JPRB,8.0344E-06_JPRB,2.3863E-05_JPRB,5.0631E-05_JPRB,6.7851E-05_JPRB,&
+&7.7279E-05_JPRB,5.9944E-05_JPRB,3.1248E-05_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&1.6405E-05_JPRB,1.4918E-05_JPRB,8.1452E-06_JPRB,1.7072E-05_JPRB,3.8399E-05_JPRB,5.6349E-05_JPRB,&
+&6.7351E-05_JPRB,5.6397E-05_JPRB,6.1993E-05_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&1.9514E-05_JPRB,1.8083E-05_JPRB,1.3959E-05_JPRB,1.1780E-05_JPRB,2.7506E-05_JPRB,4.6033E-05_JPRB,&
+&5.5011E-05_JPRB,5.3246E-05_JPRB,1.2205E-04_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&2.2612E-05_JPRB,2.1175E-05_JPRB,1.8198E-05_JPRB,9.8216E-06_JPRB,1.8940E-05_JPRB,3.7116E-05_JPRB,&
+&4.6044E-05_JPRB,5.0287E-05_JPRB,2.2822E-04_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&2.5652E-05_JPRB,2.4254E-05_JPRB,2.1392E-05_JPRB,1.5930E-05_JPRB,1.2761E-05_JPRB,2.9362E-05_JPRB,&
+&4.0037E-05_JPRB,4.5639E-05_JPRB,3.9941E-04_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&1.9325E-04_JPRB,1.8065E-04_JPRB,1.6180E-04_JPRB,1.4199E-04_JPRB,1.2006E-04_JPRB,9.6342E-05_JPRB,&
+&6.5622E-05_JPRB,4.8423E-05_JPRB,3.6972E-05_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&2.0819E-04_JPRB,1.9606E-04_JPRB,1.7737E-04_JPRB,1.5604E-04_JPRB,1.3291E-04_JPRB,1.0794E-04_JPRB,&
+&7.9216E-05_JPRB,4.1605E-05_JPRB,3.5731E-05_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&2.2206E-04_JPRB,2.1170E-04_JPRB,1.9336E-04_JPRB,1.7130E-04_JPRB,1.4701E-04_JPRB,1.2089E-04_JPRB,&
+&9.0968E-05_JPRB,4.3271E-05_JPRB,3.0303E-05_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&2.3676E-04_JPRB,2.2953E-04_JPRB,2.1085E-04_JPRB,1.8785E-04_JPRB,1.6294E-04_JPRB,1.3496E-04_JPRB,&
+&1.0281E-04_JPRB,6.1284E-05_JPRB,3.2172E-05_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&2.5437E-04_JPRB,2.4947E-04_JPRB,2.3011E-04_JPRB,2.0700E-04_JPRB,1.8097E-04_JPRB,1.5051E-04_JPRB,&
+&1.1633E-04_JPRB,7.7203E-05_JPRB,5.3094E-05_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&1.7573E-04_JPRB,1.6392E-04_JPRB,1.4659E-04_JPRB,1.2809E-04_JPRB,1.0782E-04_JPRB,8.5648E-05_JPRB,&
+&5.2006E-05_JPRB,5.2667E-05_JPRB,2.6840E-05_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&1.8913E-04_JPRB,1.7769E-04_JPRB,1.6041E-04_JPRB,1.4067E-04_JPRB,1.1911E-04_JPRB,9.5721E-05_JPRB,&
+&6.8639E-05_JPRB,4.4992E-05_JPRB,2.4069E-05_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&2.0133E-04_JPRB,1.9150E-04_JPRB,1.7426E-04_JPRB,1.5374E-04_JPRB,1.3095E-04_JPRB,1.0674E-04_JPRB,&
+&7.9754E-05_JPRB,3.2688E-05_JPRB,1.8110E-05_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&2.1403E-04_JPRB,2.0644E-04_JPRB,1.8885E-04_JPRB,1.6750E-04_JPRB,1.4394E-04_JPRB,1.1875E-04_JPRB,&
+&8.9867E-05_JPRB,4.7809E-05_JPRB,3.1086E-05_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&2.2856E-04_JPRB,2.2298E-04_JPRB,2.0481E-04_JPRB,1.8286E-04_JPRB,1.5862E-04_JPRB,1.3164E-04_JPRB,&
+&1.0114E-04_JPRB,6.3503E-05_JPRB,4.8865E-05_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&1.5562E-04_JPRB,1.4484E-04_JPRB,1.2927E-04_JPRB,1.1236E-04_JPRB,9.3995E-05_JPRB,7.3269E-05_JPRB,&
+&3.7797E-05_JPRB,5.7431E-05_JPRB,1.5095E-05_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&1.6743E-04_JPRB,1.5710E-04_JPRB,1.4113E-04_JPRB,1.2321E-04_JPRB,1.0375E-04_JPRB,8.2299E-05_JPRB,&
+&5.2915E-05_JPRB,4.4705E-05_JPRB,1.4179E-05_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&1.7855E-04_JPRB,1.6918E-04_JPRB,1.5296E-04_JPRB,1.3430E-04_JPRB,1.1381E-04_JPRB,9.1766E-05_JPRB,&
+&6.6891E-05_JPRB,3.9451E-05_JPRB,2.0319E-05_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&1.8934E-04_JPRB,1.8180E-04_JPRB,1.6533E-04_JPRB,1.4585E-04_JPRB,1.2452E-04_JPRB,1.0168E-04_JPRB,&
+&7.6248E-05_JPRB,3.2208E-05_JPRB,3.3927E-05_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&2.0107E-04_JPRB,1.9484E-04_JPRB,1.7806E-04_JPRB,1.5818E-04_JPRB,1.3631E-04_JPRB,1.1252E-04_JPRB,&
+&8.5478E-05_JPRB,4.8964E-05_JPRB,4.8647E-05_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&1.3687E-04_JPRB,1.2644E-04_JPRB,1.1299E-04_JPRB,9.7757E-05_JPRB,8.1171E-05_JPRB,6.0079E-05_JPRB,&
+&3.3581E-05_JPRB,5.5796E-05_JPRB,9.0880E-06_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&1.4693E-04_JPRB,1.3749E-04_JPRB,1.2327E-04_JPRB,1.0708E-04_JPRB,8.9715E-05_JPRB,7.0113E-05_JPRB,&
+&3.5389E-05_JPRB,5.3371E-05_JPRB,1.3014E-05_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&1.5672E-04_JPRB,1.4837E-04_JPRB,1.3344E-04_JPRB,1.1660E-04_JPRB,9.8197E-05_JPRB,7.8371E-05_JPRB,&
+&5.1608E-05_JPRB,4.1358E-05_JPRB,2.3902E-05_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&1.6639E-04_JPRB,1.5936E-04_JPRB,1.4405E-04_JPRB,1.2651E-04_JPRB,1.0733E-04_JPRB,8.6606E-05_JPRB,&
+&6.3258E-05_JPRB,3.2371E-05_JPRB,3.6595E-05_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&1.7628E-04_JPRB,1.7040E-04_JPRB,1.5502E-04_JPRB,1.3697E-04_JPRB,1.1689E-04_JPRB,9.5499E-05_JPRB,&
+&7.1870E-05_JPRB,3.2326E-05_JPRB,5.1692E-05_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&1.2014E-04_JPRB,1.0999E-04_JPRB,9.8155E-05_JPRB,8.4680E-05_JPRB,6.9013E-05_JPRB,3.7866E-05_JPRB,&
+&4.6216E-05_JPRB,5.4078E-05_JPRB,7.0562E-06_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&1.2869E-04_JPRB,1.1940E-04_JPRB,1.0711E-04_JPRB,9.2677E-05_JPRB,7.7027E-05_JPRB,5.7820E-05_JPRB,&
+&3.1601E-05_JPRB,5.4237E-05_JPRB,1.5420E-05_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&1.3705E-04_JPRB,1.2928E-04_JPRB,1.1605E-04_JPRB,1.0090E-04_JPRB,8.4608E-05_JPRB,6.6395E-05_JPRB,&
+&3.0335E-05_JPRB,4.8756E-05_JPRB,2.5527E-05_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&1.4539E-04_JPRB,1.3907E-04_JPRB,1.2508E-04_JPRB,1.0941E-04_JPRB,9.2394E-05_JPRB,7.3775E-05_JPRB,&
+&4.9339E-05_JPRB,4.0777E-05_JPRB,3.8427E-05_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&1.5402E-04_JPRB,1.4864E-04_JPRB,1.3443E-04_JPRB,1.1832E-04_JPRB,1.0042E-04_JPRB,8.1145E-05_JPRB,&
+&5.9883E-05_JPRB,2.8598E-05_JPRB,5.5173E-05_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&1.0508E-04_JPRB,9.5482E-05_JPRB,8.4601E-05_JPRB,7.2633E-05_JPRB,5.7469E-05_JPRB,2.8022E-05_JPRB,&
+&6.0470E-05_JPRB,5.5709E-05_JPRB,8.4537E-06_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&1.1254E-04_JPRB,1.0355E-04_JPRB,9.2576E-05_JPRB,7.9894E-05_JPRB,6.5248E-05_JPRB,3.5620E-05_JPRB,&
+&4.1186E-05_JPRB,5.3203E-05_JPRB,1.5781E-05_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&1.1968E-04_JPRB,1.1191E-04_JPRB,1.0054E-04_JPRB,8.6961E-05_JPRB,7.2380E-05_JPRB,5.4688E-05_JPRB,&
+&2.8839E-05_JPRB,5.2690E-05_JPRB,2.5759E-05_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&1.2668E-04_JPRB,1.2066E-04_JPRB,1.0839E-04_JPRB,9.4280E-05_JPRB,7.9174E-05_JPRB,6.2217E-05_JPRB,&
+&2.9595E-05_JPRB,4.6245E-05_JPRB,3.9594E-05_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&1.3386E-04_JPRB,1.2916E-04_JPRB,1.1625E-04_JPRB,1.0183E-04_JPRB,8.5941E-05_JPRB,6.8663E-05_JPRB,&
+&4.7108E-05_JPRB,3.8925E-05_JPRB,5.8371E-05_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&9.1290E-05_JPRB,8.2455E-05_JPRB,7.2640E-05_JPRB,6.1602E-05_JPRB,3.5951E-05_JPRB,3.2065E-05_JPRB,&
+&6.9438E-05_JPRB,5.4588E-05_JPRB,8.8732E-06_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&9.8266E-05_JPRB,8.9923E-05_JPRB,7.9846E-05_JPRB,6.8611E-05_JPRB,5.4855E-05_JPRB,2.5347E-05_JPRB,&
+&5.3484E-05_JPRB,5.4646E-05_JPRB,1.6319E-05_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&1.0452E-04_JPRB,9.6912E-05_JPRB,8.6790E-05_JPRB,7.4880E-05_JPRB,6.1588E-05_JPRB,3.4215E-05_JPRB,&
+&3.8465E-05_JPRB,5.3097E-05_JPRB,2.7544E-05_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&1.1064E-04_JPRB,1.0436E-04_JPRB,9.3727E-05_JPRB,8.1191E-05_JPRB,6.7704E-05_JPRB,5.1369E-05_JPRB,&
+&2.6755E-05_JPRB,5.1792E-05_JPRB,4.3707E-05_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&1.1674E-04_JPRB,1.1189E-04_JPRB,1.0064E-04_JPRB,8.7738E-05_JPRB,7.3682E-05_JPRB,5.8032E-05_JPRB,&
+&2.8026E-05_JPRB,4.3741E-05_JPRB,6.6125E-05_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&7.8671E-05_JPRB,7.0723E-05_JPRB,6.1903E-05_JPRB,5.0899E-05_JPRB,2.5388E-05_JPRB,4.7045E-05_JPRB,&
+&8.3139E-05_JPRB,5.2475E-05_JPRB,1.0506E-05_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&8.5114E-05_JPRB,7.7503E-05_JPRB,6.8369E-05_JPRB,5.8071E-05_JPRB,3.2941E-05_JPRB,3.1252E-05_JPRB,&
+&6.5972E-05_JPRB,5.4053E-05_JPRB,1.9913E-05_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&9.0774E-05_JPRB,8.3700E-05_JPRB,7.4489E-05_JPRB,6.3931E-05_JPRB,5.1217E-05_JPRB,2.3975E-05_JPRB,&
+&4.9768E-05_JPRB,5.3114E-05_JPRB,3.5011E-05_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&9.6188E-05_JPRB,9.0023E-05_JPRB,8.0588E-05_JPRB,6.9637E-05_JPRB,5.7276E-05_JPRB,3.0654E-05_JPRB,&
+&3.6814E-05_JPRB,5.0886E-05_JPRB,5.7647E-05_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&1.0147E-04_JPRB,9.6459E-05_JPRB,8.6744E-05_JPRB,7.5335E-05_JPRB,6.2848E-05_JPRB,4.7544E-05_JPRB,&
+&2.4830E-05_JPRB,4.9742E-05_JPRB,8.9972E-05_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&6.7736E-05_JPRB,6.0618E-05_JPRB,5.2744E-05_JPRB,3.0920E-05_JPRB,2.9239E-05_JPRB,6.2840E-05_JPRB,&
+&9.2889E-05_JPRB,5.0470E-05_JPRB,2.2355E-05_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&7.3171E-05_JPRB,6.6259E-05_JPRB,5.8117E-05_JPRB,4.7578E-05_JPRB,2.3188E-05_JPRB,4.4116E-05_JPRB,&
+&7.7151E-05_JPRB,5.4835E-05_JPRB,4.4341E-05_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&7.8488E-05_JPRB,7.2012E-05_JPRB,6.3679E-05_JPRB,5.4052E-05_JPRB,2.9892E-05_JPRB,3.0664E-05_JPRB,&
+&6.0561E-05_JPRB,5.3817E-05_JPRB,8.1564E-05_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&8.3263E-05_JPRB,7.7446E-05_JPRB,6.8972E-05_JPRB,5.9229E-05_JPRB,4.7000E-05_JPRB,2.3105E-05_JPRB,&
+&4.7608E-05_JPRB,5.0373E-05_JPRB,1.4008E-04_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&8.7956E-05_JPRB,8.2925E-05_JPRB,7.4329E-05_JPRB,6.4343E-05_JPRB,5.3101E-05_JPRB,2.7223E-05_JPRB,&
+&3.3997E-05_JPRB,5.1225E-05_JPRB,2.2664E-04_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&5.8447E-05_JPRB,5.2123E-05_JPRB,4.4386E-05_JPRB,2.1253E-05_JPRB,4.1633E-05_JPRB,7.5363E-05_JPRB,&
+&9.7685E-05_JPRB,4.9222E-05_JPRB,5.9155E-05_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&6.2971E-05_JPRB,5.6773E-05_JPRB,4.9349E-05_JPRB,2.7108E-05_JPRB,2.8492E-05_JPRB,5.8974E-05_JPRB,&
+&8.8305E-05_JPRB,5.1607E-05_JPRB,1.2250E-04_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&6.7713E-05_JPRB,6.1803E-05_JPRB,5.4313E-05_JPRB,4.4294E-05_JPRB,2.2166E-05_JPRB,4.3639E-05_JPRB,&
+&7.2310E-05_JPRB,5.3792E-05_JPRB,2.3595E-04_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&7.2017E-05_JPRB,6.6651E-05_JPRB,5.9032E-05_JPRB,5.0145E-05_JPRB,2.5984E-05_JPRB,3.1163E-05_JPRB,&
+&5.5814E-05_JPRB,5.4096E-05_JPRB,4.2155E-04_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&7.6122E-05_JPRB,7.1340E-05_JPRB,6.3672E-05_JPRB,5.4807E-05_JPRB,4.2703E-05_JPRB,2.2571E-05_JPRB,&
+&4.5447E-05_JPRB,5.0941E-05_JPRB,7.0536E-04_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&5.1997E-05_JPRB,4.6399E-05_JPRB,3.7006E-05_JPRB,2.2118E-05_JPRB,4.9070E-05_JPRB,8.0297E-05_JPRB,&
+&9.7665E-05_JPRB,4.9036E-05_JPRB,8.3819E-05_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&5.5995E-05_JPRB,5.0499E-05_JPRB,4.3536E-05_JPRB,1.8160E-05_JPRB,3.3942E-05_JPRB,6.1798E-05_JPRB,&
+&8.7929E-05_JPRB,5.1899E-05_JPRB,1.7378E-04_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&6.0050E-05_JPRB,5.4855E-05_JPRB,4.8042E-05_JPRB,3.2999E-05_JPRB,2.4599E-05_JPRB,4.8087E-05_JPRB,&
+&7.2580E-05_JPRB,5.4376E-05_JPRB,3.3527E-04_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&6.3834E-05_JPRB,5.9102E-05_JPRB,5.2252E-05_JPRB,4.3696E-05_JPRB,1.9003E-05_JPRB,3.4301E-05_JPRB,&
+&5.7788E-05_JPRB,5.3890E-05_JPRB,5.9988E-04_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&6.7488E-05_JPRB,6.3205E-05_JPRB,5.6377E-05_JPRB,4.8245E-05_JPRB,3.1229E-05_JPRB,2.6140E-05_JPRB,&
+&4.5484E-05_JPRB,5.1296E-05_JPRB,1.0059E-03_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&4.6056E-05_JPRB,4.1083E-05_JPRB,2.9802E-05_JPRB,2.2251E-05_JPRB,4.6624E-05_JPRB,7.2962E-05_JPRB,&
+&9.3907E-05_JPRB,4.7563E-05_JPRB,8.9454E-05_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&4.9615E-05_JPRB,4.4762E-05_JPRB,3.8254E-05_JPRB,1.6590E-05_JPRB,3.3432E-05_JPRB,5.6542E-05_JPRB,&
+&8.1508E-05_JPRB,5.1901E-05_JPRB,1.8559E-04_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&5.3180E-05_JPRB,4.8610E-05_JPRB,4.2465E-05_JPRB,2.5666E-05_JPRB,2.4567E-05_JPRB,4.4887E-05_JPRB,&
+&6.5994E-05_JPRB,5.4335E-05_JPRB,3.5825E-04_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&5.6562E-05_JPRB,5.2350E-05_JPRB,4.6232E-05_JPRB,3.8181E-05_JPRB,1.8227E-05_JPRB,3.2932E-05_JPRB,&
+&5.2904E-05_JPRB,5.3475E-05_JPRB,6.4181E-04_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&5.9903E-05_JPRB,5.6017E-05_JPRB,4.9962E-05_JPRB,4.2621E-05_JPRB,2.4691E-05_JPRB,2.4714E-05_JPRB,&
+&4.1916E-05_JPRB,5.0025E-05_JPRB,1.0767E-03_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&4.0560E-05_JPRB,3.6160E-05_JPRB,2.3255E-05_JPRB,2.2093E-05_JPRB,4.4020E-05_JPRB,6.7810E-05_JPRB,&
+&8.9069E-05_JPRB,4.8857E-05_JPRB,7.6979E-05_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&4.3721E-05_JPRB,3.9447E-05_JPRB,3.3315E-05_JPRB,1.5735E-05_JPRB,3.2401E-05_JPRB,5.2990E-05_JPRB,&
+&7.4939E-05_JPRB,5.2762E-05_JPRB,1.5983E-04_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&4.6874E-05_JPRB,4.2856E-05_JPRB,3.7307E-05_JPRB,1.9448E-05_JPRB,2.3246E-05_JPRB,4.1872E-05_JPRB,&
+&6.0127E-05_JPRB,5.4225E-05_JPRB,3.0871E-04_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&4.9922E-05_JPRB,4.6146E-05_JPRB,4.0717E-05_JPRB,3.2736E-05_JPRB,1.7797E-05_JPRB,3.1779E-05_JPRB,&
+&4.8971E-05_JPRB,5.3750E-05_JPRB,5.5309E-04_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&5.3030E-05_JPRB,4.9529E-05_JPRB,4.4121E-05_JPRB,3.7423E-05_JPRB,1.9634E-05_JPRB,2.2842E-05_JPRB,&
+&3.9348E-05_JPRB,4.8274E-05_JPRB,9.2736E-04_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&2.7778E-04_JPRB,2.5521E-04_JPRB,2.2685E-04_JPRB,1.9591E-04_JPRB,1.6332E-04_JPRB,1.2879E-04_JPRB,&
+&9.0596E-05_JPRB,4.4043E-05_JPRB,3.2346E-05_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&2.9066E-04_JPRB,2.6987E-04_JPRB,2.4077E-04_JPRB,2.0932E-04_JPRB,1.7577E-04_JPRB,1.4048E-04_JPRB,&
+&1.0294E-04_JPRB,3.8809E-05_JPRB,2.9426E-05_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&3.0544E-04_JPRB,2.8616E-04_JPRB,2.5754E-04_JPRB,2.2525E-04_JPRB,1.9101E-04_JPRB,1.5455E-04_JPRB,&
+&1.1678E-04_JPRB,5.7173E-05_JPRB,3.3954E-05_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&3.2184E-04_JPRB,3.0525E-04_JPRB,2.7707E-04_JPRB,2.4441E-04_JPRB,2.0932E-04_JPRB,1.7239E-04_JPRB,&
+&1.3430E-04_JPRB,8.9432E-05_JPRB,5.9307E-05_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&3.3997E-04_JPRB,3.2768E-04_JPRB,2.9971E-04_JPRB,2.6685E-04_JPRB,2.3158E-04_JPRB,1.9537E-04_JPRB,&
+&1.5650E-04_JPRB,1.1300E-04_JPRB,9.1458E-05_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&2.6036E-04_JPRB,2.3849E-04_JPRB,2.1215E-04_JPRB,1.8325E-04_JPRB,1.5238E-04_JPRB,1.1978E-04_JPRB,&
+&8.1666E-05_JPRB,4.4295E-05_JPRB,2.4496E-05_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&2.7147E-04_JPRB,2.5141E-04_JPRB,2.2439E-04_JPRB,1.9462E-04_JPRB,1.6271E-04_JPRB,1.2925E-04_JPRB,&
+&9.2973E-05_JPRB,3.2500E-05_JPRB,1.9528E-05_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&2.8407E-04_JPRB,2.6548E-04_JPRB,2.3846E-04_JPRB,2.0759E-04_JPRB,1.7524E-04_JPRB,1.4054E-04_JPRB,&
+&1.0396E-04_JPRB,4.5395E-05_JPRB,3.3431E-05_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&2.9719E-04_JPRB,2.8128E-04_JPRB,2.5423E-04_JPRB,2.2320E-04_JPRB,1.8996E-04_JPRB,1.5400E-04_JPRB,&
+&1.1668E-04_JPRB,6.9584E-05_JPRB,5.7490E-05_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&3.1122E-04_JPRB,2.9870E-04_JPRB,2.7220E-04_JPRB,2.4100E-04_JPRB,2.0649E-04_JPRB,1.7035E-04_JPRB,&
+&1.3266E-04_JPRB,9.1999E-05_JPRB,8.3000E-05_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&2.4050E-04_JPRB,2.1900E-04_JPRB,1.9501E-04_JPRB,1.6859E-04_JPRB,1.4005E-04_JPRB,1.0947E-04_JPRB,&
+&5.4416E-05_JPRB,3.5695E-05_JPRB,1.3250E-05_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&2.4980E-04_JPRB,2.3024E-04_JPRB,2.0600E-04_JPRB,1.7839E-04_JPRB,1.4857E-04_JPRB,1.1723E-04_JPRB,&
+&8.2222E-05_JPRB,4.3756E-05_JPRB,1.9778E-05_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&2.5986E-04_JPRB,2.4240E-04_JPRB,2.1776E-04_JPRB,1.8907E-04_JPRB,1.5831E-04_JPRB,1.2594E-04_JPRB,&
+&9.1156E-05_JPRB,3.2284E-05_JPRB,3.8343E-05_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&2.7050E-04_JPRB,2.5528E-04_JPRB,2.3027E-04_JPRB,2.0105E-04_JPRB,1.6973E-04_JPRB,1.3628E-04_JPRB,&
+&1.0110E-04_JPRB,4.6885E-05_JPRB,5.9630E-05_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&2.8151E-04_JPRB,2.6949E-04_JPRB,2.4440E-04_JPRB,2.1478E-04_JPRB,1.8246E-04_JPRB,1.4822E-04_JPRB,&
+&1.1296E-04_JPRB,7.0463E-05_JPRB,8.2542E-05_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&2.2167E-04_JPRB,2.0054E-04_JPRB,1.7755E-04_JPRB,1.5346E-04_JPRB,1.2760E-04_JPRB,9.8873E-05_JPRB,&
+&4.0720E-05_JPRB,3.6076E-05_JPRB,1.0820E-05_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&2.2949E-04_JPRB,2.0991E-04_JPRB,1.8792E-04_JPRB,1.6318E-04_JPRB,1.3546E-04_JPRB,1.0612E-04_JPRB,&
+&6.1178E-05_JPRB,4.0667E-05_JPRB,2.5683E-05_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&2.3807E-04_JPRB,2.2061E-04_JPRB,1.9870E-04_JPRB,1.7224E-04_JPRB,1.4361E-04_JPRB,1.1345E-04_JPRB,&
+&8.0170E-05_JPRB,3.9940E-05_JPRB,4.2610E-05_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&2.4662E-04_JPRB,2.3181E-04_JPRB,2.0905E-04_JPRB,1.8202E-04_JPRB,1.5268E-04_JPRB,1.2186E-04_JPRB,&
+&8.8749E-05_JPRB,3.2893E-05_JPRB,6.1830E-05_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&2.5546E-04_JPRB,2.4342E-04_JPRB,2.2022E-04_JPRB,1.9281E-04_JPRB,1.6313E-04_JPRB,1.3125E-04_JPRB,&
+&9.8124E-05_JPRB,4.6973E-05_JPRB,8.6084E-05_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&2.0312E-04_JPRB,1.8300E-04_JPRB,1.6095E-04_JPRB,1.3872E-04_JPRB,1.1510E-04_JPRB,8.6738E-05_JPRB,&
+&4.3892E-05_JPRB,4.1155E-05_JPRB,1.4610E-05_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&2.1032E-04_JPRB,1.9153E-04_JPRB,1.7045E-04_JPRB,1.4818E-04_JPRB,1.2310E-04_JPRB,9.5120E-05_JPRB,&
+&3.7530E-05_JPRB,4.0109E-05_JPRB,2.7956E-05_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&2.1754E-04_JPRB,2.0013E-04_JPRB,1.8048E-04_JPRB,1.5683E-04_JPRB,1.3036E-04_JPRB,1.0212E-04_JPRB,&
+&6.5559E-05_JPRB,4.4646E-05_JPRB,4.3990E-05_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&2.2506E-04_JPRB,2.1008E-04_JPRB,1.8992E-04_JPRB,1.6512E-04_JPRB,1.3787E-04_JPRB,1.0933E-04_JPRB,&
+&7.7878E-05_JPRB,3.3941E-05_JPRB,6.4638E-05_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&2.3238E-04_JPRB,2.2040E-04_JPRB,1.9936E-04_JPRB,1.7403E-04_JPRB,1.4649E-04_JPRB,1.1721E-04_JPRB,&
+&8.5745E-05_JPRB,3.1943E-05_JPRB,9.1486E-05_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&1.8420E-04_JPRB,1.6521E-04_JPRB,1.4487E-04_JPRB,1.2401E-04_JPRB,1.0200E-04_JPRB,5.1119E-05_JPRB,&
+&5.2764E-05_JPRB,4.0912E-05_JPRB,1.5202E-05_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&1.9125E-04_JPRB,1.7344E-04_JPRB,1.5331E-04_JPRB,1.3274E-04_JPRB,1.1039E-04_JPRB,8.3040E-05_JPRB,&
+&4.0684E-05_JPRB,4.1198E-05_JPRB,2.7867E-05_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&1.9735E-04_JPRB,1.8080E-04_JPRB,1.6199E-04_JPRB,1.4097E-04_JPRB,1.1727E-04_JPRB,9.0932E-05_JPRB,&
+&3.7180E-05_JPRB,4.3495E-05_JPRB,4.4553E-05_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&2.0383E-04_JPRB,1.8894E-04_JPRB,1.7073E-04_JPRB,1.4876E-04_JPRB,1.2398E-04_JPRB,9.7753E-05_JPRB,&
+&6.3121E-05_JPRB,4.1277E-05_JPRB,6.7315E-05_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&2.1033E-04_JPRB,1.9804E-04_JPRB,1.7951E-04_JPRB,1.5655E-04_JPRB,1.3146E-04_JPRB,1.0454E-04_JPRB,&
+&7.4462E-05_JPRB,2.9067E-05_JPRB,9.7382E-05_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&1.6701E-04_JPRB,1.4912E-04_JPRB,1.3042E-04_JPRB,1.1101E-04_JPRB,8.9476E-05_JPRB,4.0710E-05_JPRB,&
+&6.0855E-05_JPRB,4.0116E-05_JPRB,1.6644E-05_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&1.7267E-04_JPRB,1.5557E-04_JPRB,1.3718E-04_JPRB,1.1786E-04_JPRB,9.7049E-05_JPRB,4.9928E-05_JPRB,&
+&4.8787E-05_JPRB,4.5062E-05_JPRB,2.9556E-05_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&1.7837E-04_JPRB,1.6263E-04_JPRB,1.4469E-04_JPRB,1.2545E-04_JPRB,1.0416E-04_JPRB,7.8620E-05_JPRB,&
+&3.6425E-05_JPRB,4.0796E-05_JPRB,4.8760E-05_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&1.8378E-04_JPRB,1.6956E-04_JPRB,1.5235E-04_JPRB,1.3267E-04_JPRB,1.1063E-04_JPRB,8.6254E-05_JPRB,&
+&3.2851E-05_JPRB,4.0620E-05_JPRB,7.6055E-05_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&1.8944E-04_JPRB,1.7724E-04_JPRB,1.6021E-04_JPRB,1.4001E-04_JPRB,1.1733E-04_JPRB,9.2830E-05_JPRB,&
+&6.1065E-05_JPRB,3.8081E-05_JPRB,1.1312E-04_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&1.5130E-04_JPRB,1.3448E-04_JPRB,1.1721E-04_JPRB,9.9034E-05_JPRB,5.7155E-05_JPRB,4.5775E-05_JPRB,&
+&6.5418E-05_JPRB,3.6348E-05_JPRB,2.0483E-05_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&1.5492E-04_JPRB,1.3874E-04_JPRB,1.2199E-04_JPRB,1.0406E-04_JPRB,8.3301E-05_JPRB,3.7776E-05_JPRB,&
+&5.8525E-05_JPRB,4.3657E-05_JPRB,3.7683E-05_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&1.6015E-04_JPRB,1.4504E-04_JPRB,1.2855E-04_JPRB,1.1077E-04_JPRB,9.0857E-05_JPRB,4.6752E-05_JPRB,&
+&4.3822E-05_JPRB,4.5900E-05_JPRB,6.4480E-05_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&1.6485E-04_JPRB,1.5131E-04_JPRB,1.3522E-04_JPRB,1.1731E-04_JPRB,9.7584E-05_JPRB,7.3940E-05_JPRB,&
+&3.2766E-05_JPRB,4.4537E-05_JPRB,1.0397E-04_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&1.6974E-04_JPRB,1.5791E-04_JPRB,1.4195E-04_JPRB,1.2381E-04_JPRB,1.0390E-04_JPRB,8.1150E-05_JPRB,&
+&3.2012E-05_JPRB,4.1555E-05_JPRB,1.5936E-04_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&1.3564E-04_JPRB,1.2012E-04_JPRB,1.0422E-04_JPRB,8.6571E-05_JPRB,3.4561E-05_JPRB,5.5358E-05_JPRB,&
+&6.8138E-05_JPRB,3.3996E-05_JPRB,4.5162E-05_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&1.3891E-04_JPRB,1.2385E-04_JPRB,1.0843E-04_JPRB,9.1664E-05_JPRB,5.0992E-05_JPRB,4.2386E-05_JPRB,&
+&6.5806E-05_JPRB,4.0485E-05_JPRB,8.7517E-05_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&1.4289E-04_JPRB,1.2859E-04_JPRB,1.1355E-04_JPRB,9.7157E-05_JPRB,7.7469E-05_JPRB,3.4604E-05_JPRB,&
+&5.5697E-05_JPRB,4.6781E-05_JPRB,1.5660E-04_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&1.4749E-04_JPRB,1.3449E-04_JPRB,1.1965E-04_JPRB,1.0332E-04_JPRB,8.5038E-05_JPRB,4.3487E-05_JPRB,&
+&3.9087E-05_JPRB,4.7631E-05_JPRB,2.6232E-04_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&1.5175E-04_JPRB,1.4048E-04_JPRB,1.2566E-04_JPRB,1.0925E-04_JPRB,9.1216E-05_JPRB,6.9027E-05_JPRB,&
+&3.0570E-05_JPRB,4.2818E-05_JPRB,4.1578E-04_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&1.2050E-04_JPRB,1.0644E-04_JPRB,9.1895E-05_JPRB,5.4223E-05_JPRB,4.2282E-05_JPRB,7.1662E-05_JPRB,&
+&7.3849E-05_JPRB,3.1216E-05_JPRB,1.2336E-04_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&1.2385E-04_JPRB,1.1007E-04_JPRB,9.5885E-05_JPRB,7.9074E-05_JPRB,3.2785E-05_JPRB,5.1790E-05_JPRB,&
+&7.0330E-05_JPRB,3.8106E-05_JPRB,2.4914E-04_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&1.2701E-04_JPRB,1.1389E-04_JPRB,1.0009E-04_JPRB,8.4859E-05_JPRB,4.3697E-05_JPRB,3.8515E-05_JPRB,&
+&6.4563E-05_JPRB,4.6857E-05_JPRB,4.6353E-04_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&1.3108E-04_JPRB,1.1889E-04_JPRB,1.0547E-04_JPRB,9.0382E-05_JPRB,7.1811E-05_JPRB,3.1846E-05_JPRB,&
+&5.3076E-05_JPRB,4.9334E-05_JPRB,8.0273E-04_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&1.3517E-04_JPRB,1.2455E-04_JPRB,1.1096E-04_JPRB,9.6119E-05_JPRB,7.9300E-05_JPRB,3.9467E-05_JPRB,&
+&3.6989E-05_JPRB,4.6816E-05_JPRB,1.3114E-03_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&1.0765E-04_JPRB,9.5133E-05_JPRB,8.1740E-05_JPRB,2.9684E-05_JPRB,4.4771E-05_JPRB,7.3844E-05_JPRB,&
+&7.4458E-05_JPRB,3.2353E-05_JPRB,1.7556E-04_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&1.1086E-04_JPRB,9.8643E-05_JPRB,8.5755E-05_JPRB,6.3950E-05_JPRB,3.5072E-05_JPRB,5.6362E-05_JPRB,&
+&7.3811E-05_JPRB,3.7974E-05_JPRB,3.5513E-04_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&1.1390E-04_JPRB,1.0226E-04_JPRB,8.9873E-05_JPRB,7.5337E-05_JPRB,2.7488E-05_JPRB,4.0668E-05_JPRB,&
+&6.6695E-05_JPRB,4.8469E-05_JPRB,6.6195E-04_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&1.1768E-04_JPRB,1.0695E-04_JPRB,9.4758E-05_JPRB,8.0812E-05_JPRB,5.6203E-05_JPRB,3.0959E-05_JPRB,&
+&5.4960E-05_JPRB,5.2325E-05_JPRB,1.1500E-03_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&1.2143E-04_JPRB,1.1200E-04_JPRB,9.9665E-05_JPRB,8.6317E-05_JPRB,7.0507E-05_JPRB,2.8241E-05_JPRB,&
+&4.0108E-05_JPRB,4.7823E-05_JPRB,1.8824E-03_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&9.5550E-05_JPRB,8.4510E-05_JPRB,7.2433E-05_JPRB,2.4695E-05_JPRB,4.1319E-05_JPRB,6.8965E-05_JPRB,&
+&7.5836E-05_JPRB,3.3972E-05_JPRB,1.8803E-04_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&9.8585E-05_JPRB,8.7816E-05_JPRB,7.6262E-05_JPRB,5.0625E-05_JPRB,3.2099E-05_JPRB,5.2909E-05_JPRB,&
+&7.1285E-05_JPRB,4.2092E-05_JPRB,3.8071E-04_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&1.0170E-04_JPRB,9.1397E-05_JPRB,8.0291E-05_JPRB,6.6609E-05_JPRB,2.6053E-05_JPRB,3.8656E-05_JPRB,&
+&6.2061E-05_JPRB,5.0288E-05_JPRB,7.1091E-04_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&1.0532E-04_JPRB,9.5859E-05_JPRB,8.4741E-05_JPRB,7.2190E-05_JPRB,4.4571E-05_JPRB,2.9606E-05_JPRB,&
+&5.1144E-05_JPRB,5.0950E-05_JPRB,1.2367E-03_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&1.0873E-04_JPRB,1.0026E-04_JPRB,8.9123E-05_JPRB,7.7100E-05_JPRB,6.2475E-05_JPRB,2.4044E-05_JPRB,&
+&3.7811E-05_JPRB,4.5929E-05_JPRB,2.0278E-03_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&8.4205E-05_JPRB,7.4539E-05_JPRB,6.3467E-05_JPRB,2.3538E-05_JPRB,3.8325E-05_JPRB,6.4275E-05_JPRB,&
+&7.5533E-05_JPRB,3.5671E-05_JPRB,1.6223E-04_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&8.7134E-05_JPRB,7.7658E-05_JPRB,6.7263E-05_JPRB,3.8163E-05_JPRB,2.9276E-05_JPRB,4.8144E-05_JPRB,&
+&6.6883E-05_JPRB,4.5962E-05_JPRB,3.2881E-04_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&9.0177E-05_JPRB,8.1122E-05_JPRB,7.1136E-05_JPRB,5.8053E-05_JPRB,2.4699E-05_JPRB,3.6684E-05_JPRB,&
+&5.7406E-05_JPRB,5.0678E-05_JPRB,6.1498E-04_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&9.3566E-05_JPRB,8.5217E-05_JPRB,7.5208E-05_JPRB,6.3816E-05_JPRB,3.3862E-05_JPRB,2.8346E-05_JPRB,&
+&4.7321E-05_JPRB,4.6618E-05_JPRB,1.0717E-03_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&9.6738E-05_JPRB,8.9098E-05_JPRB,7.9178E-05_JPRB,6.8356E-05_JPRB,5.4471E-05_JPRB,2.2350E-05_JPRB,&
+&3.5198E-05_JPRB,4.4559E-05_JPRB,1.7596E-03_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&3.5218E-04_JPRB,3.2067E-04_JPRB,2.8542E-04_JPRB,2.4691E-04_JPRB,2.0715E-04_JPRB,1.6430E-04_JPRB,&
+&1.1630E-04_JPRB,3.0602E-05_JPRB,2.2334E-05_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&3.6703E-04_JPRB,3.3779E-04_JPRB,3.0330E-04_JPRB,2.6523E-04_JPRB,2.2344E-04_JPRB,1.7999E-04_JPRB,&
+&1.3446E-04_JPRB,5.1639E-05_JPRB,3.3226E-05_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&3.8585E-04_JPRB,3.5978E-04_JPRB,3.2593E-04_JPRB,2.8711E-04_JPRB,2.4473E-04_JPRB,2.0196E-04_JPRB,&
+&1.5783E-04_JPRB,1.0327E-04_JPRB,6.5420E-05_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&4.0907E-04_JPRB,3.8577E-04_JPRB,3.5450E-04_JPRB,3.1632E-04_JPRB,2.7470E-04_JPRB,2.3182E-04_JPRB,&
+&1.8685E-04_JPRB,1.3638E-04_JPRB,1.1847E-04_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&4.3737E-04_JPRB,4.1878E-04_JPRB,3.9158E-04_JPRB,3.5534E-04_JPRB,3.1369E-04_JPRB,2.6894E-04_JPRB,&
+&2.2111E-04_JPRB,1.7023E-04_JPRB,1.6126E-04_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&3.3988E-04_JPRB,3.0828E-04_JPRB,2.7319E-04_JPRB,2.3566E-04_JPRB,1.9671E-04_JPRB,1.5488E-04_JPRB,&
+&1.0656E-04_JPRB,2.4639E-05_JPRB,2.0135E-05_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&3.5074E-04_JPRB,3.2145E-04_JPRB,2.8720E-04_JPRB,2.5072E-04_JPRB,2.1014E-04_JPRB,1.6733E-04_JPRB,&
+&1.2121E-04_JPRB,3.9180E-05_JPRB,2.9901E-05_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&3.6475E-04_JPRB,3.3829E-04_JPRB,3.0546E-04_JPRB,2.6776E-04_JPRB,2.2592E-04_JPRB,1.8277E-04_JPRB,&
+&1.3792E-04_JPRB,7.3527E-05_JPRB,6.9892E-05_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&3.8225E-04_JPRB,3.5820E-04_JPRB,3.2688E-04_JPRB,2.8858E-04_JPRB,2.4665E-04_JPRB,2.0403E-04_JPRB,&
+&1.5963E-04_JPRB,1.1035E-04_JPRB,1.0774E-04_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&4.0273E-04_JPRB,3.8268E-04_JPRB,3.5304E-04_JPRB,3.1570E-04_JPRB,2.7513E-04_JPRB,2.3154E-04_JPRB,&
+&1.8624E-04_JPRB,1.3783E-04_JPRB,1.4438E-04_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&3.2586E-04_JPRB,2.9354E-04_JPRB,2.5840E-04_JPRB,2.2211E-04_JPRB,1.8493E-04_JPRB,1.4459E-04_JPRB,&
+&9.3968E-05_JPRB,2.6836E-05_JPRB,1.7667E-05_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&3.3335E-04_JPRB,3.0322E-04_JPRB,2.6938E-04_JPRB,2.3450E-04_JPRB,1.9584E-04_JPRB,1.5458E-04_JPRB,&
+&1.0872E-04_JPRB,2.7860E-05_JPRB,4.2305E-05_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&3.4307E-04_JPRB,3.1560E-04_JPRB,2.8356E-04_JPRB,2.4811E-04_JPRB,2.0859E-04_JPRB,1.6657E-04_JPRB,&
+&1.2164E-04_JPRB,4.3049E-05_JPRB,7.4173E-05_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&3.5510E-04_JPRB,3.3067E-04_JPRB,3.0030E-04_JPRB,2.6396E-04_JPRB,2.2347E-04_JPRB,1.8094E-04_JPRB,&
+&1.3617E-04_JPRB,8.0549E-05_JPRB,1.0462E-04_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&3.6934E-04_JPRB,3.4886E-04_JPRB,3.1925E-04_JPRB,2.8285E-04_JPRB,2.4246E-04_JPRB,1.9904E-04_JPRB,&
+&1.5402E-04_JPRB,1.0740E-04_JPRB,1.4134E-04_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&3.1202E-04_JPRB,2.8003E-04_JPRB,2.4507E-04_JPRB,2.0972E-04_JPRB,1.7365E-04_JPRB,1.3503E-04_JPRB,&
+&5.8768E-05_JPRB,2.9314E-05_JPRB,2.4023E-05_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&3.1813E-04_JPRB,2.8791E-04_JPRB,2.5394E-04_JPRB,2.1965E-04_JPRB,1.8377E-04_JPRB,1.4389E-04_JPRB,&
+&9.7093E-05_JPRB,2.3337E-05_JPRB,5.0021E-05_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&3.2483E-04_JPRB,2.9675E-04_JPRB,2.6510E-04_JPRB,2.3175E-04_JPRB,1.9444E-04_JPRB,1.5360E-04_JPRB,&
+&1.0928E-04_JPRB,3.0718E-05_JPRB,7.6252E-05_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&3.3350E-04_JPRB,3.0829E-04_JPRB,2.7872E-04_JPRB,2.4437E-04_JPRB,2.0593E-04_JPRB,1.6469E-04_JPRB,&
+&1.2057E-04_JPRB,4.4984E-05_JPRB,1.0921E-04_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&3.4440E-04_JPRB,3.2288E-04_JPRB,2.9368E-04_JPRB,2.5882E-04_JPRB,2.1958E-04_JPRB,1.7772E-04_JPRB,&
+&1.3279E-04_JPRB,8.3344E-05_JPRB,1.5068E-04_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&2.9770E-04_JPRB,2.6568E-04_JPRB,2.3231E-04_JPRB,1.9760E-04_JPRB,1.6264E-04_JPRB,1.2501E-04_JPRB,&
+&5.2212E-05_JPRB,2.7851E-05_JPRB,2.9425E-05_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&3.0341E-04_JPRB,2.7316E-04_JPRB,2.3988E-04_JPRB,2.0612E-04_JPRB,1.7178E-04_JPRB,1.3444E-04_JPRB,&
+&6.8808E-05_JPRB,2.4233E-05_JPRB,5.0902E-05_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&3.0855E-04_JPRB,2.8044E-04_JPRB,2.4851E-04_JPRB,2.1615E-04_JPRB,1.8164E-04_JPRB,1.4300E-04_JPRB,&
+&9.8456E-05_JPRB,2.2567E-05_JPRB,7.8789E-05_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&3.1479E-04_JPRB,2.8896E-04_JPRB,2.6020E-04_JPRB,2.2793E-04_JPRB,1.9183E-04_JPRB,1.5203E-04_JPRB,&
+&1.0899E-04_JPRB,3.3886E-05_JPRB,1.1586E-04_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&3.2275E-04_JPRB,3.0062E-04_JPRB,2.7287E-04_JPRB,2.4005E-04_JPRB,2.0243E-04_JPRB,1.6230E-04_JPRB,&
+&1.1916E-04_JPRB,4.8642E-05_JPRB,1.6375E-04_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&2.8451E-04_JPRB,2.5278E-04_JPRB,2.2028E-04_JPRB,1.8707E-04_JPRB,1.5294E-04_JPRB,1.1368E-04_JPRB,&
+&5.1499E-05_JPRB,2.2491E-05_JPRB,2.9300E-05_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&2.8818E-04_JPRB,2.5756E-04_JPRB,2.2592E-04_JPRB,1.9305E-04_JPRB,1.5960E-04_JPRB,1.2358E-04_JPRB,&
+&4.9278E-05_JPRB,2.8018E-05_JPRB,5.0020E-05_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&2.9308E-04_JPRB,2.6479E-04_JPRB,2.3342E-04_JPRB,2.0176E-04_JPRB,1.6837E-04_JPRB,1.3278E-04_JPRB,&
+&7.5022E-05_JPRB,2.4679E-05_JPRB,7.9554E-05_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&2.9797E-04_JPRB,2.7171E-04_JPRB,2.4252E-04_JPRB,2.1130E-04_JPRB,1.7798E-04_JPRB,1.4080E-04_JPRB,&
+&9.8593E-05_JPRB,2.6413E-05_JPRB,1.2029E-04_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&3.0385E-04_JPRB,2.8038E-04_JPRB,2.5320E-04_JPRB,2.2231E-04_JPRB,1.8746E-04_JPRB,1.4953E-04_JPRB,&
+&1.0805E-04_JPRB,3.4957E-05_JPRB,1.7428E-04_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&2.7154E-04_JPRB,2.4047E-04_JPRB,2.0869E-04_JPRB,1.7653E-04_JPRB,1.4316E-04_JPRB,6.3076E-05_JPRB,&
+&5.3076E-05_JPRB,1.8799E-05_JPRB,2.9459E-05_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&2.7322E-04_JPRB,2.4322E-04_JPRB,2.1245E-04_JPRB,1.8113E-04_JPRB,1.4876E-04_JPRB,1.1194E-04_JPRB,&
+&4.9416E-05_JPRB,2.1766E-05_JPRB,5.1977E-05_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&2.7795E-04_JPRB,2.4940E-04_JPRB,2.1931E-04_JPRB,1.8853E-04_JPRB,1.5632E-04_JPRB,1.2173E-04_JPRB,&
+&4.3459E-05_JPRB,2.7910E-05_JPRB,8.5515E-05_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&2.8245E-04_JPRB,2.5609E-04_JPRB,2.2726E-04_JPRB,1.9695E-04_JPRB,1.6467E-04_JPRB,1.3028E-04_JPRB,&
+&8.3030E-05_JPRB,3.1238E-05_JPRB,1.3325E-04_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&2.8703E-04_JPRB,2.6318E-04_JPRB,2.3595E-04_JPRB,2.0579E-04_JPRB,1.7351E-04_JPRB,1.3813E-04_JPRB,&
+&9.7826E-05_JPRB,2.9395E-05_JPRB,1.9863E-04_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&2.5666E-04_JPRB,2.2665E-04_JPRB,1.9623E-04_JPRB,1.6528E-04_JPRB,1.3188E-04_JPRB,5.2672E-05_JPRB,&
+&5.4590E-05_JPRB,1.5212E-05_JPRB,3.5336E-05_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&2.5871E-04_JPRB,2.2976E-04_JPRB,1.9987E-04_JPRB,1.6976E-04_JPRB,1.3838E-04_JPRB,6.2293E-05_JPRB,&
+&5.1049E-05_JPRB,2.0990E-05_JPRB,6.5164E-05_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&2.6131E-04_JPRB,2.3354E-04_JPRB,2.0472E-04_JPRB,1.7542E-04_JPRB,1.4479E-04_JPRB,1.0936E-04_JPRB,&
+&4.3593E-05_JPRB,2.7838E-05_JPRB,1.1164E-04_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&2.6597E-04_JPRB,2.3972E-04_JPRB,2.1214E-04_JPRB,1.8293E-04_JPRB,1.5207E-04_JPRB,1.1872E-04_JPRB,&
+&4.2928E-05_JPRB,2.9399E-05_JPRB,1.8005E-04_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&2.6965E-04_JPRB,2.4602E-04_JPRB,2.1946E-04_JPRB,1.9059E-04_JPRB,1.5945E-04_JPRB,1.2678E-04_JPRB,&
+&8.1506E-05_JPRB,3.0396E-05_JPRB,2.7574E-04_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&2.4051E-04_JPRB,2.1191E-04_JPRB,1.8318E-04_JPRB,1.5348E-04_JPRB,8.9740E-05_JPRB,5.6443E-05_JPRB,&
+&5.8323E-05_JPRB,1.3977E-05_JPRB,7.8714E-05_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&2.4280E-04_JPRB,2.1514E-04_JPRB,1.8659E-04_JPRB,1.5766E-04_JPRB,1.2621E-04_JPRB,4.8115E-05_JPRB,&
+&5.1962E-05_JPRB,1.8297E-05_JPRB,1.5286E-04_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&2.4480E-04_JPRB,2.1809E-04_JPRB,1.9044E-04_JPRB,1.6238E-04_JPRB,1.3286E-04_JPRB,5.9719E-05_JPRB,&
+&4.7955E-05_JPRB,2.2245E-05_JPRB,2.7373E-04_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&2.4800E-04_JPRB,2.2255E-04_JPRB,1.9613E-04_JPRB,1.6836E-04_JPRB,1.3908E-04_JPRB,1.0477E-04_JPRB,&
+&3.9262E-05_JPRB,3.1477E-05_JPRB,4.5768E-04_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&2.5161E-04_JPRB,2.2818E-04_JPRB,2.0281E-04_JPRB,1.7515E-04_JPRB,1.4598E-04_JPRB,1.1469E-04_JPRB,&
+&3.6846E-05_JPRB,3.4477E-05_JPRB,7.2229E-04_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&2.2330E-04_JPRB,1.9647E-04_JPRB,1.6947E-04_JPRB,1.4070E-04_JPRB,5.0397E-05_JPRB,6.4372E-05_JPRB,&
+&5.4119E-05_JPRB,1.3671E-05_JPRB,2.1819E-04_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&2.2579E-04_JPRB,1.9970E-04_JPRB,1.7289E-04_JPRB,1.4528E-04_JPRB,8.0532E-05_JPRB,5.4367E-05_JPRB,&
+&6.0104E-05_JPRB,1.5483E-05_JPRB,4.4393E-04_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&2.2759E-04_JPRB,2.0234E-04_JPRB,1.7625E-04_JPRB,1.4950E-04_JPRB,1.1945E-04_JPRB,4.4354E-05_JPRB,&
+&5.3052E-05_JPRB,2.1110E-05_JPRB,8.2682E-04_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&2.2922E-04_JPRB,2.0521E-04_JPRB,1.8016E-04_JPRB,1.5410E-04_JPRB,1.2582E-04_JPRB,5.3486E-05_JPRB,&
+&4.4581E-05_JPRB,2.9122E-05_JPRB,1.4295E-03_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&2.3198E-04_JPRB,2.0949E-04_JPRB,1.8557E-04_JPRB,1.5950E-04_JPRB,1.3216E-04_JPRB,9.8775E-05_JPRB,&
+&3.6643E-05_JPRB,3.6794E-05_JPRB,2.3221E-03_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&2.0583E-04_JPRB,1.8127E-04_JPRB,1.5633E-04_JPRB,1.2776E-04_JPRB,4.7811E-05_JPRB,6.9737E-05_JPRB,&
+&5.8557E-05_JPRB,1.2546E-05_JPRB,3.1512E-04_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&2.0808E-04_JPRB,1.8417E-04_JPRB,1.5959E-04_JPRB,1.3341E-04_JPRB,4.2960E-05_JPRB,5.2587E-05_JPRB,&
+&6.0943E-05_JPRB,1.7249E-05_JPRB,6.4309E-04_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&2.0985E-04_JPRB,1.8679E-04_JPRB,1.6278E-04_JPRB,1.3786E-04_JPRB,1.0094E-04_JPRB,4.2926E-05_JPRB,&
+&5.4000E-05_JPRB,2.1438E-05_JPRB,1.2009E-03_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&2.1113E-04_JPRB,1.8931E-04_JPRB,1.6638E-04_JPRB,1.4208E-04_JPRB,1.1471E-04_JPRB,3.5997E-05_JPRB,&
+&4.5064E-05_JPRB,2.9593E-05_JPRB,2.0809E-03_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&2.1332E-04_JPRB,1.9322E-04_JPRB,1.7102E-04_JPRB,1.4678E-04_JPRB,1.2136E-04_JPRB,7.6714E-05_JPRB,&
+&3.8255E-05_JPRB,4.0077E-05_JPRB,3.3932E-03_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&1.8719E-04_JPRB,1.6501E-04_JPRB,1.4226E-04_JPRB,1.0840E-04_JPRB,4.3551E-05_JPRB,6.5135E-05_JPRB,&
+&6.0449E-05_JPRB,1.2368E-05_JPRB,3.4134E-04_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&1.8952E-04_JPRB,1.6785E-04_JPRB,1.4553E-04_JPRB,1.2117E-04_JPRB,3.5062E-05_JPRB,4.8573E-05_JPRB,&
+&6.2841E-05_JPRB,1.5474E-05_JPRB,6.9803E-04_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&1.9118E-04_JPRB,1.7048E-04_JPRB,1.4865E-04_JPRB,1.2583E-04_JPRB,8.1862E-05_JPRB,3.7617E-05_JPRB,&
+&5.3564E-05_JPRB,2.1248E-05_JPRB,1.3057E-03_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&1.9270E-04_JPRB,1.7320E-04_JPRB,1.5231E-04_JPRB,1.2983E-04_JPRB,1.0441E-04_JPRB,3.3342E-05_JPRB,&
+&4.1959E-05_JPRB,3.5845E-05_JPRB,2.2690E-03_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&1.9518E-04_JPRB,1.7738E-04_JPRB,1.5684E-04_JPRB,1.3457E-04_JPRB,1.1104E-04_JPRB,6.4947E-05_JPRB,&
+&3.5407E-05_JPRB,4.3496E-05_JPRB,3.7128E-03_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&1.6844E-04_JPRB,1.4859E-04_JPRB,1.2806E-04_JPRB,8.6165E-05_JPRB,4.0107E-05_JPRB,6.0133E-05_JPRB,&
+&6.1357E-05_JPRB,1.2763E-05_JPRB,2.9734E-04_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&1.7069E-04_JPRB,1.5140E-04_JPRB,1.3134E-04_JPRB,1.0891E-04_JPRB,3.2613E-05_JPRB,4.6872E-05_JPRB,&
+&6.0094E-05_JPRB,1.5072E-05_JPRB,6.0887E-04_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&1.7244E-04_JPRB,1.5407E-04_JPRB,1.3444E-04_JPRB,1.1361E-04_JPRB,6.4637E-05_JPRB,3.4627E-05_JPRB,&
+&4.8765E-05_JPRB,2.7303E-05_JPRB,1.1416E-03_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&1.7422E-04_JPRB,1.5702E-04_JPRB,1.3806E-04_JPRB,1.1756E-04_JPRB,9.3337E-05_JPRB,3.0148E-05_JPRB,&
+&3.8538E-05_JPRB,4.2636E-05_JPRB,1.9903E-03_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&1.7685E-04_JPRB,1.6120E-04_JPRB,1.4238E-04_JPRB,1.2222E-04_JPRB,1.0041E-04_JPRB,5.2947E-05_JPRB,&
+&3.1886E-05_JPRB,4.0330E-05_JPRB,3.2638E-03_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&4.3889E-04_JPRB,3.9958E-04_JPRB,3.5783E-04_JPRB,3.1336E-04_JPRB,2.6698E-04_JPRB,2.1857E-04_JPRB,&
+&1.6424E-04_JPRB,4.0399E-05_JPRB,2.8247E-05_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&4.5976E-04_JPRB,4.2497E-04_JPRB,3.8736E-04_JPRB,3.4581E-04_JPRB,3.0220E-04_JPRB,2.5189E-04_JPRB,&
+&1.9631E-04_JPRB,1.0954E-04_JPRB,6.7630E-05_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&4.8944E-04_JPRB,4.6159E-04_JPRB,4.2784E-04_JPRB,3.8962E-04_JPRB,3.4476E-04_JPRB,2.9292E-04_JPRB,&
+&2.3514E-04_JPRB,1.7014E-04_JPRB,1.5365E-04_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&5.2941E-04_JPRB,5.1023E-04_JPRB,4.7948E-04_JPRB,4.4219E-04_JPRB,3.9618E-04_JPRB,3.4392E-04_JPRB,&
+&2.8630E-04_JPRB,2.2387E-04_JPRB,2.1803E-04_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&5.7974E-04_JPRB,5.6859E-04_JPRB,5.4269E-04_JPRB,5.0514E-04_JPRB,4.6062E-04_JPRB,4.1002E-04_JPRB,&
+&3.5338E-04_JPRB,2.8599E-04_JPRB,2.8983E-04_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&4.2778E-04_JPRB,3.8751E-04_JPRB,3.4424E-04_JPRB,2.9838E-04_JPRB,2.5188E-04_JPRB,2.0290E-04_JPRB,&
+&1.4875E-04_JPRB,2.6658E-05_JPRB,3.1573E-05_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&4.4270E-04_JPRB,4.0621E-04_JPRB,3.6561E-04_JPRB,3.2154E-04_JPRB,2.7708E-04_JPRB,2.2750E-04_JPRB,&
+&1.7305E-04_JPRB,6.5324E-05_JPRB,8.8564E-05_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&4.6316E-04_JPRB,4.3154E-04_JPRB,3.9306E-04_JPRB,3.5392E-04_JPRB,3.0888E-04_JPRB,2.5881E-04_JPRB,&
+&2.0328E-04_JPRB,1.3652E-04_JPRB,1.4781E-04_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&4.8891E-04_JPRB,4.6467E-04_JPRB,4.3116E-04_JPRB,3.9316E-04_JPRB,3.4835E-04_JPRB,2.9748E-04_JPRB,&
+&2.4237E-04_JPRB,1.8240E-04_JPRB,2.0533E-04_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&5.2249E-04_JPRB,5.0735E-04_JPRB,4.7839E-04_JPRB,4.4173E-04_JPRB,3.9700E-04_JPRB,3.4683E-04_JPRB,&
+&2.9289E-04_JPRB,2.3410E-04_JPRB,2.7363E-04_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&4.1666E-04_JPRB,3.7587E-04_JPRB,3.3124E-04_JPRB,2.8500E-04_JPRB,2.3719E-04_JPRB,1.8911E-04_JPRB,&
+&1.3261E-04_JPRB,2.3452E-05_JPRB,4.9343E-05_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&4.2699E-04_JPRB,3.8906E-04_JPRB,3.4648E-04_JPRB,3.0084E-04_JPRB,2.5570E-04_JPRB,2.0628E-04_JPRB,&
+&1.5092E-04_JPRB,2.8713E-05_JPRB,9.9198E-05_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&4.4021E-04_JPRB,4.0629E-04_JPRB,3.6539E-04_JPRB,3.2263E-04_JPRB,2.7685E-04_JPRB,2.2699E-04_JPRB,&
+&1.7257E-04_JPRB,8.2898E-05_JPRB,1.4682E-04_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&4.5674E-04_JPRB,4.2778E-04_JPRB,3.8962E-04_JPRB,3.4911E-04_JPRB,3.0352E-04_JPRB,2.5381E-04_JPRB,&
+&1.9998E-04_JPRB,1.3835E-04_JPRB,2.0520E-04_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&4.7776E-04_JPRB,4.5415E-04_JPRB,4.2101E-04_JPRB,3.8173E-04_JPRB,3.3698E-04_JPRB,2.8849E-04_JPRB,&
+&2.3510E-04_JPRB,1.7936E-04_JPRB,2.7654E-04_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&4.0967E-04_JPRB,3.6653E-04_JPRB,3.2176E-04_JPRB,2.7479E-04_JPRB,2.2703E-04_JPRB,1.7902E-04_JPRB,&
+&1.1570E-04_JPRB,2.0026E-05_JPRB,6.2716E-05_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&4.1728E-04_JPRB,3.7737E-04_JPRB,3.3344E-04_JPRB,2.8769E-04_JPRB,2.4076E-04_JPRB,1.9242E-04_JPRB,&
+&1.3658E-04_JPRB,2.3923E-05_JPRB,1.0107E-04_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&4.2535E-04_JPRB,3.8928E-04_JPRB,3.4656E-04_JPRB,3.0255E-04_JPRB,2.5648E-04_JPRB,2.0706E-04_JPRB,&
+&1.5237E-04_JPRB,3.0608E-05_JPRB,1.5048E-04_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&4.3671E-04_JPRB,4.0394E-04_JPRB,3.6448E-04_JPRB,3.2102E-04_JPRB,2.7530E-04_JPRB,2.2501E-04_JPRB,&
+&1.7081E-04_JPRB,9.6060E-05_JPRB,2.1454E-04_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&4.4976E-04_JPRB,4.2181E-04_JPRB,3.8534E-04_JPRB,3.4353E-04_JPRB,2.9780E-04_JPRB,2.4759E-04_JPRB,&
+&1.9471E-04_JPRB,1.3517E-04_JPRB,2.9601E-04_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&4.0808E-04_JPRB,3.6358E-04_JPRB,3.1756E-04_JPRB,2.7050E-04_JPRB,2.2238E-04_JPRB,1.7234E-04_JPRB,&
+&5.9731E-05_JPRB,1.5183E-05_JPRB,6.3144E-05_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&4.1172E-04_JPRB,3.6950E-04_JPRB,3.2496E-04_JPRB,2.7819E-04_JPRB,2.3077E-04_JPRB,1.8213E-04_JPRB,&
+&1.2446E-04_JPRB,2.0194E-05_JPRB,1.0232E-04_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&4.1699E-04_JPRB,3.7855E-04_JPRB,3.3456E-04_JPRB,2.8999E-04_JPRB,2.4284E-04_JPRB,1.9427E-04_JPRB,&
+&1.3989E-04_JPRB,2.2013E-05_JPRB,1.5619E-04_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&4.2318E-04_JPRB,3.8831E-04_JPRB,3.4637E-04_JPRB,3.0279E-04_JPRB,2.5707E-04_JPRB,2.0772E-04_JPRB,&
+&1.5350E-04_JPRB,3.7923E-05_JPRB,2.2888E-04_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&4.3181E-04_JPRB,3.9999E-04_JPRB,3.6216E-04_JPRB,3.1916E-04_JPRB,2.7412E-04_JPRB,2.2354E-04_JPRB,&
+&1.6943E-04_JPRB,1.0257E-04_JPRB,3.2402E-04_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&4.0917E-04_JPRB,3.6282E-04_JPRB,3.1586E-04_JPRB,2.6754E-04_JPRB,2.1851E-04_JPRB,1.6735E-04_JPRB,&
+&5.0306E-05_JPRB,1.4647E-05_JPRB,5.9838E-05_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&4.0728E-04_JPRB,3.6393E-04_JPRB,3.1828E-04_JPRB,2.7141E-04_JPRB,2.2388E-04_JPRB,1.7484E-04_JPRB,&
+&6.6257E-05_JPRB,1.8734E-05_JPRB,1.0066E-04_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&4.1093E-04_JPRB,3.6989E-04_JPRB,3.2582E-04_JPRB,2.7999E-04_JPRB,2.3310E-04_JPRB,1.8335E-04_JPRB,&
+&1.2803E-04_JPRB,1.9091E-05_JPRB,1.6014E-04_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&4.1435E-04_JPRB,3.7775E-04_JPRB,3.3462E-04_JPRB,2.9056E-04_JPRB,2.4377E-04_JPRB,1.9519E-04_JPRB,&
+&1.4167E-04_JPRB,2.4651E-05_JPRB,2.4320E-04_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&4.1880E-04_JPRB,3.8572E-04_JPRB,3.4541E-04_JPRB,3.0219E-04_JPRB,2.5684E-04_JPRB,2.0763E-04_JPRB,&
+&1.5383E-04_JPRB,5.0012E-05_JPRB,3.5512E-04_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&4.0843E-04_JPRB,3.6062E-04_JPRB,3.1311E-04_JPRB,2.6422E-04_JPRB,2.1469E-04_JPRB,1.5788E-04_JPRB,&
+&4.4260E-05_JPRB,1.0477E-05_JPRB,5.9419E-05_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&4.0468E-04_JPRB,3.5984E-04_JPRB,3.1329E-04_JPRB,2.6596E-04_JPRB,2.1769E-04_JPRB,1.6781E-04_JPRB,&
+&5.1786E-05_JPRB,1.4646E-05_JPRB,1.0524E-04_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&4.0363E-04_JPRB,3.6136E-04_JPRB,3.1683E-04_JPRB,2.7075E-04_JPRB,2.2418E-04_JPRB,1.7495E-04_JPRB,&
+&8.7540E-05_JPRB,1.8041E-05_JPRB,1.7514E-04_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&4.0645E-04_JPRB,3.6771E-04_JPRB,3.2468E-04_JPRB,2.8007E-04_JPRB,2.3381E-04_JPRB,1.8431E-04_JPRB,&
+&1.2997E-04_JPRB,1.8283E-05_JPRB,2.7663E-04_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&4.0882E-04_JPRB,3.7446E-04_JPRB,3.3339E-04_JPRB,2.9009E-04_JPRB,2.4386E-04_JPRB,1.9554E-04_JPRB,&
+&1.4307E-04_JPRB,2.6104E-05_JPRB,4.1561E-04_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&4.0424E-04_JPRB,3.5590E-04_JPRB,3.0795E-04_JPRB,2.5922E-04_JPRB,2.0908E-04_JPRB,7.0272E-05_JPRB,&
+&3.7437E-05_JPRB,1.0693E-05_JPRB,7.0148E-05_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&3.9936E-04_JPRB,3.5369E-04_JPRB,3.0725E-04_JPRB,2.5982E-04_JPRB,2.1133E-04_JPRB,1.5687E-04_JPRB,&
+&4.6834E-05_JPRB,1.4067E-05_JPRB,1.3163E-04_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&3.9575E-04_JPRB,3.5313E-04_JPRB,3.0818E-04_JPRB,2.6229E-04_JPRB,2.1562E-04_JPRB,1.6577E-04_JPRB,&
+&5.0426E-05_JPRB,1.5328E-05_JPRB,2.2983E-04_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&3.9577E-04_JPRB,3.5593E-04_JPRB,3.1259E-04_JPRB,2.6838E-04_JPRB,2.2238E-04_JPRB,1.7380E-04_JPRB,&
+&9.5405E-05_JPRB,1.7738E-05_JPRB,3.7526E-04_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&3.9853E-04_JPRB,3.6216E-04_JPRB,3.2118E-04_JPRB,2.7729E-04_JPRB,2.3198E-04_JPRB,1.8391E-04_JPRB,&
+&1.3140E-04_JPRB,2.3100E-05_JPRB,5.7971E-04_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&3.9550E-04_JPRB,3.4756E-04_JPRB,2.9976E-04_JPRB,2.5157E-04_JPRB,2.0053E-04_JPRB,6.3971E-05_JPRB,&
+&3.0992E-05_JPRB,8.5618E-06_JPRB,1.5177E-04_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&3.9108E-04_JPRB,3.4522E-04_JPRB,2.9936E-04_JPRB,2.5239E-04_JPRB,2.0355E-04_JPRB,7.9459E-05_JPRB,&
+&4.6168E-05_JPRB,1.0069E-05_JPRB,3.0222E-04_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&3.8711E-04_JPRB,3.4432E-04_JPRB,2.9976E-04_JPRB,2.5434E-04_JPRB,2.0775E-04_JPRB,1.5531E-04_JPRB,&
+&4.6577E-05_JPRB,1.4628E-05_JPRB,5.5112E-04_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&3.8454E-04_JPRB,3.4471E-04_JPRB,3.0182E-04_JPRB,2.5833E-04_JPRB,2.1289E-04_JPRB,1.6399E-04_JPRB,&
+&4.7735E-05_JPRB,1.8317E-05_JPRB,9.3434E-04_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&3.8590E-04_JPRB,3.4906E-04_JPRB,3.0820E-04_JPRB,2.6500E-04_JPRB,2.1985E-04_JPRB,1.7262E-04_JPRB,&
+&1.0739E-04_JPRB,2.0046E-05_JPRB,1.4932E-03_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&3.8145E-04_JPRB,3.3484E-04_JPRB,2.8824E-04_JPRB,2.4073E-04_JPRB,1.3749E-04_JPRB,6.8864E-05_JPRB,&
+&1.3426E-05_JPRB,5.4253E-06_JPRB,4.2208E-04_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&3.7808E-04_JPRB,3.3310E-04_JPRB,2.8836E-04_JPRB,2.4244E-04_JPRB,1.9222E-04_JPRB,5.4332E-05_JPRB,&
+&3.8318E-05_JPRB,1.3544E-05_JPRB,8.8420E-04_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&3.7522E-04_JPRB,3.3290E-04_JPRB,2.8933E-04_JPRB,2.4468E-04_JPRB,1.9821E-04_JPRB,8.2625E-05_JPRB,&
+&4.6026E-05_JPRB,1.3859E-05_JPRB,1.6822E-03_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&3.7308E-04_JPRB,3.3362E-04_JPRB,2.9154E-04_JPRB,2.4864E-04_JPRB,2.0415E-04_JPRB,1.5269E-04_JPRB,&
+&4.6983E-05_JPRB,1.4205E-05_JPRB,2.9547E-03_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&3.7174E-04_JPRB,3.3554E-04_JPRB,2.9552E-04_JPRB,2.5392E-04_JPRB,2.0969E-04_JPRB,1.6270E-04_JPRB,&
+&4.1673E-05_JPRB,1.7828E-05_JPRB,4.8607E-03_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&3.6294E-04_JPRB,3.1871E-04_JPRB,2.7451E-04_JPRB,2.2858E-04_JPRB,8.3578E-05_JPRB,6.1372E-05_JPRB,&
+&1.3364E-05_JPRB,7.7912E-06_JPRB,6.2992E-04_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&3.6112E-04_JPRB,3.1852E-04_JPRB,2.7580E-04_JPRB,2.3178E-04_JPRB,1.8037E-04_JPRB,5.7295E-05_JPRB,&
+&4.0682E-05_JPRB,1.2520E-05_JPRB,1.3182E-03_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&3.5947E-04_JPRB,3.1941E-04_JPRB,2.7779E-04_JPRB,2.3507E-04_JPRB,1.9020E-04_JPRB,4.7650E-05_JPRB,&
+&4.7645E-05_JPRB,1.4087E-05_JPRB,2.5064E-03_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&3.5796E-04_JPRB,3.2062E-04_JPRB,2.8056E-04_JPRB,2.3967E-04_JPRB,1.9644E-04_JPRB,1.3235E-04_JPRB,&
+&4.6296E-05_JPRB,1.5164E-05_JPRB,4.4025E-03_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&3.5673E-04_JPRB,3.2259E-04_JPRB,2.8479E-04_JPRB,2.4474E-04_JPRB,2.0200E-04_JPRB,1.5578E-04_JPRB,&
+&4.2752E-05_JPRB,1.8894E-05_JPRB,7.2340E-03_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&3.4280E-04_JPRB,3.0118E-04_JPRB,2.5967E-04_JPRB,2.1631E-04_JPRB,7.2200E-05_JPRB,5.9727E-05_JPRB,&
+&3.2869E-05_JPRB,5.5658E-06_JPRB,7.0164E-04_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&3.4212E-04_JPRB,3.0217E-04_JPRB,2.6182E-04_JPRB,2.2007E-04_JPRB,1.6435E-04_JPRB,5.4340E-05_JPRB,&
+&4.2800E-05_JPRB,1.1130E-05_JPRB,1.4668E-03_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&3.4134E-04_JPRB,3.0369E-04_JPRB,2.6435E-04_JPRB,2.2391E-04_JPRB,1.8076E-04_JPRB,4.4282E-05_JPRB,&
+&4.6617E-05_JPRB,1.2881E-05_JPRB,2.7876E-03_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&3.4044E-04_JPRB,3.0540E-04_JPRB,2.6773E-04_JPRB,2.2890E-04_JPRB,1.8713E-04_JPRB,1.1838E-04_JPRB,&
+&4.1381E-05_JPRB,1.3556E-05_JPRB,4.8923E-03_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&3.3969E-04_JPRB,3.0785E-04_JPRB,2.7216E-04_JPRB,2.3387E-04_JPRB,1.9308E-04_JPRB,1.4819E-04_JPRB,&
+&3.8774E-05_JPRB,2.3365E-05_JPRB,8.0367E-03_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&3.2074E-04_JPRB,2.8200E-04_JPRB,2.4335E-04_JPRB,2.0260E-04_JPRB,5.9755E-05_JPRB,5.5012E-05_JPRB,&
+&4.0916E-05_JPRB,6.5979E-06_JPRB,6.2734E-04_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&3.2081E-04_JPRB,2.8371E-04_JPRB,2.4601E-04_JPRB,2.0672E-04_JPRB,1.4264E-04_JPRB,4.7131E-05_JPRB,&
+&4.6167E-05_JPRB,1.0279E-05_JPRB,1.3098E-03_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&3.2050E-04_JPRB,2.8547E-04_JPRB,2.4888E-04_JPRB,2.1104E-04_JPRB,1.6957E-04_JPRB,3.8720E-05_JPRB,&
+&4.6164E-05_JPRB,1.0646E-05_JPRB,2.4868E-03_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&3.2004E-04_JPRB,2.8761E-04_JPRB,2.5261E-04_JPRB,2.1602E-04_JPRB,1.7644E-04_JPRB,1.0425E-04_JPRB,&
+&3.7809E-05_JPRB,1.7867E-05_JPRB,4.3609E-03_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&3.1955E-04_JPRB,2.9043E-04_JPRB,2.5703E-04_JPRB,2.2081E-04_JPRB,1.8253E-04_JPRB,1.3988E-04_JPRB,&
+&3.6793E-05_JPRB,3.0837E-05_JPRB,7.1735E-03_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&5.6685E-04_JPRB,5.1953E-04_JPRB,4.6936E-04_JPRB,4.1592E-04_JPRB,3.5781E-04_JPRB,2.9881E-04_JPRB,&
+&2.3721E-04_JPRB,1.2965E-04_JPRB,9.7553E-05_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&6.1498E-04_JPRB,5.7331E-04_JPRB,5.2736E-04_JPRB,4.7456E-04_JPRB,4.1825E-04_JPRB,3.6336E-04_JPRB,&
+&3.0181E-04_JPRB,2.4017E-04_JPRB,2.2948E-04_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&6.7611E-04_JPRB,6.4061E-04_JPRB,6.0111E-04_JPRB,5.5388E-04_JPRB,5.0779E-04_JPRB,4.5514E-04_JPRB,&
+&3.9223E-04_JPRB,3.3256E-04_JPRB,3.4276E-04_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&7.5480E-04_JPRB,7.2914E-04_JPRB,7.0254E-04_JPRB,6.6835E-04_JPRB,6.2923E-04_JPRB,5.7675E-04_JPRB,&
+&5.0673E-04_JPRB,4.4275E-04_JPRB,4.7133E-04_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&8.5668E-04_JPRB,8.5031E-04_JPRB,8.3845E-04_JPRB,8.1883E-04_JPRB,7.8346E-04_JPRB,7.2655E-04_JPRB,&
+&6.4693E-04_JPRB,5.7765E-04_JPRB,6.2516E-04_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&5.4710E-04_JPRB,4.9662E-04_JPRB,4.4514E-04_JPRB,3.9135E-04_JPRB,3.3202E-04_JPRB,2.7342E-04_JPRB,&
+&2.1062E-04_JPRB,7.4193E-05_JPRB,1.1449E-04_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&5.7920E-04_JPRB,5.3530E-04_JPRB,4.8866E-04_JPRB,4.3544E-04_JPRB,3.7966E-04_JPRB,3.2266E-04_JPRB,&
+&2.6099E-04_JPRB,1.8962E-04_JPRB,2.1819E-04_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&6.1998E-04_JPRB,5.8558E-04_JPRB,5.4532E-04_JPRB,4.9598E-04_JPRB,4.4601E-04_JPRB,3.9266E-04_JPRB,&
+&3.3270E-04_JPRB,2.7330E-04_JPRB,3.1544E-04_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&6.7522E-04_JPRB,6.5257E-04_JPRB,6.1970E-04_JPRB,5.8199E-04_JPRB,5.3956E-04_JPRB,4.8955E-04_JPRB,&
+&4.2848E-04_JPRB,3.6701E-04_JPRB,4.3346E-04_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&7.4593E-04_JPRB,7.3758E-04_JPRB,7.2139E-04_JPRB,6.9843E-04_JPRB,6.6276E-04_JPRB,6.1561E-04_JPRB,&
+&5.4954E-04_JPRB,4.8184E-04_JPRB,5.7913E-04_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&5.3214E-04_JPRB,4.7681E-04_JPRB,4.2344E-04_JPRB,3.6680E-04_JPRB,3.0810E-04_JPRB,2.4726E-04_JPRB,&
+&1.8453E-04_JPRB,2.5084E-05_JPRB,1.5128E-04_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&5.5191E-04_JPRB,5.0347E-04_JPRB,4.5239E-04_JPRB,3.9784E-04_JPRB,3.4016E-04_JPRB,2.8162E-04_JPRB,&
+&2.1920E-04_JPRB,1.0464E-04_JPRB,2.3348E-04_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&5.7477E-04_JPRB,5.3435E-04_JPRB,4.8907E-04_JPRB,4.3911E-04_JPRB,3.8574E-04_JPRB,3.2874E-04_JPRB,&
+&2.6890E-04_JPRB,2.0489E-04_JPRB,3.3684E-04_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&6.0596E-04_JPRB,5.7781E-04_JPRB,5.4062E-04_JPRB,4.9604E-04_JPRB,4.4703E-04_JPRB,3.9517E-04_JPRB,&
+&3.3938E-04_JPRB,2.8379E-04_JPRB,4.6834E-04_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&6.4785E-04_JPRB,6.3446E-04_JPRB,6.0817E-04_JPRB,5.7312E-04_JPRB,5.3235E-04_JPRB,4.8682E-04_JPRB,&
+&4.3334E-04_JPRB,3.7597E-04_JPRB,6.3257E-04_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&5.3110E-04_JPRB,4.7262E-04_JPRB,4.1623E-04_JPRB,3.5723E-04_JPRB,2.9627E-04_JPRB,2.3321E-04_JPRB,&
+&1.6340E-04_JPRB,1.9895E-05_JPRB,1.6136E-04_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&5.4153E-04_JPRB,4.8798E-04_JPRB,4.3377E-04_JPRB,3.7487E-04_JPRB,3.1581E-04_JPRB,2.5480E-04_JPRB,&
+&1.9036E-04_JPRB,3.4588E-05_JPRB,2.5102E-04_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&5.5497E-04_JPRB,5.0890E-04_JPRB,4.5760E-04_JPRB,4.0292E-04_JPRB,3.4647E-04_JPRB,2.8693E-04_JPRB,&
+&2.2354E-04_JPRB,1.2964E-04_JPRB,3.6989E-04_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&5.7139E-04_JPRB,5.3494E-04_JPRB,4.8805E-04_JPRB,4.4096E-04_JPRB,3.8626E-04_JPRB,3.3033E-04_JPRB,&
+&2.7143E-04_JPRB,2.1212E-04_JPRB,5.2455E-04_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&5.9415E-04_JPRB,5.6860E-04_JPRB,5.3306E-04_JPRB,4.9025E-04_JPRB,4.4085E-04_JPRB,3.9152E-04_JPRB,&
+&3.3850E-04_JPRB,2.8746E-04_JPRB,7.1892E-04_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&5.4290E-04_JPRB,4.8021E-04_JPRB,4.2005E-04_JPRB,3.5773E-04_JPRB,2.9361E-04_JPRB,2.2840E-04_JPRB,&
+&1.2412E-04_JPRB,1.6779E-05_JPRB,1.6478E-04_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&5.4234E-04_JPRB,4.8521E-04_JPRB,4.2730E-04_JPRB,3.6655E-04_JPRB,3.0462E-04_JPRB,2.4081E-04_JPRB,&
+&1.7158E-04_JPRB,2.4577E-05_JPRB,2.6430E-04_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&5.5176E-04_JPRB,4.9971E-04_JPRB,4.4439E-04_JPRB,3.8473E-04_JPRB,3.2493E-04_JPRB,2.6199E-04_JPRB,&
+&1.9530E-04_JPRB,5.1968E-05_JPRB,4.0107E-04_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&5.6082E-04_JPRB,5.1698E-04_JPRB,4.6451E-04_JPRB,4.1055E-04_JPRB,3.5125E-04_JPRB,2.9127E-04_JPRB,&
+&2.2746E-04_JPRB,1.4698E-04_JPRB,5.8315E-04_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&5.7193E-04_JPRB,5.3856E-04_JPRB,4.9143E-04_JPRB,4.4154E-04_JPRB,3.8661E-04_JPRB,3.3087E-04_JPRB,&
+&2.7242E-04_JPRB,2.1704E-04_JPRB,8.1664E-04_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&5.5933E-04_JPRB,4.9291E-04_JPRB,4.2842E-04_JPRB,3.6305E-04_JPRB,2.9613E-04_JPRB,2.2724E-04_JPRB,&
+&5.3023E-05_JPRB,1.5921E-05_JPRB,1.6080E-04_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&5.5265E-04_JPRB,4.9132E-04_JPRB,4.3026E-04_JPRB,3.6705E-04_JPRB,3.0202E-04_JPRB,2.3616E-04_JPRB,&
+&1.5492E-04_JPRB,1.7381E-05_JPRB,2.6878E-04_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&5.5383E-04_JPRB,4.9775E-04_JPRB,4.3880E-04_JPRB,3.7661E-04_JPRB,3.1407E-04_JPRB,2.4921E-04_JPRB,&
+&1.7746E-04_JPRB,2.2302E-05_JPRB,4.2225E-04_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&5.6178E-04_JPRB,5.1138E-04_JPRB,4.5491E-04_JPRB,3.9556E-04_JPRB,3.3327E-04_JPRB,2.6812E-04_JPRB,&
+&2.0001E-04_JPRB,6.4403E-05_JPRB,6.3155E-04_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&5.6806E-04_JPRB,5.2664E-04_JPRB,4.7387E-04_JPRB,4.1708E-04_JPRB,3.5623E-04_JPRB,2.9443E-04_JPRB,&
+&2.3016E-04_JPRB,1.5609E-04_JPRB,9.0635E-04_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&5.7912E-04_JPRB,5.0929E-04_JPRB,4.4052E-04_JPRB,3.7179E-04_JPRB,3.0169E-04_JPRB,2.2904E-04_JPRB,&
+&3.6739E-05_JPRB,9.8065E-06_JPRB,1.6369E-04_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&5.7054E-04_JPRB,5.0526E-04_JPRB,4.4059E-04_JPRB,3.7406E-04_JPRB,3.0610E-04_JPRB,2.3585E-04_JPRB,&
+&6.5393E-05_JPRB,1.3372E-05_JPRB,2.8615E-04_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&5.6399E-04_JPRB,5.0435E-04_JPRB,4.4269E-04_JPRB,3.7826E-04_JPRB,3.1294E-04_JPRB,2.4573E-04_JPRB,&
+&1.6693E-04_JPRB,2.0015E-05_JPRB,4.6772E-04_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&5.6580E-04_JPRB,5.1086E-04_JPRB,4.5119E-04_JPRB,3.8935E-04_JPRB,3.2489E-04_JPRB,2.5799E-04_JPRB,&
+&1.8517E-04_JPRB,2.1193E-05_JPRB,7.2326E-04_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&5.7198E-04_JPRB,5.2353E-04_JPRB,4.6732E-04_JPRB,4.0650E-04_JPRB,3.4261E-04_JPRB,2.7564E-04_JPRB,&
+&2.0638E-04_JPRB,8.3698E-05_JPRB,1.0705E-03_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&5.9871E-04_JPRB,5.2574E-04_JPRB,4.5363E-04_JPRB,3.8151E-04_JPRB,3.0818E-04_JPRB,2.2816E-04_JPRB,&
+&3.1690E-05_JPRB,9.1563E-06_JPRB,1.9592E-04_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&5.8942E-04_JPRB,5.2019E-04_JPRB,4.5182E-04_JPRB,3.8232E-04_JPRB,3.1150E-04_JPRB,2.3688E-04_JPRB,&
+&4.4878E-05_JPRB,1.3062E-05_JPRB,3.5981E-04_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&5.8144E-04_JPRB,5.1705E-04_JPRB,4.5231E-04_JPRB,3.8496E-04_JPRB,3.1600E-04_JPRB,2.4571E-04_JPRB,&
+&1.0309E-04_JPRB,1.4129E-05_JPRB,6.1385E-04_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&5.7448E-04_JPRB,5.1610E-04_JPRB,4.5471E-04_JPRB,3.9018E-04_JPRB,3.2457E-04_JPRB,2.5556E-04_JPRB,&
+&1.7544E-04_JPRB,1.7304E-05_JPRB,9.8945E-04_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&5.7483E-04_JPRB,5.2262E-04_JPRB,4.6340E-04_JPRB,4.0220E-04_JPRB,3.3597E-04_JPRB,2.6696E-04_JPRB,&
+&1.9367E-04_JPRB,2.4514E-05_JPRB,1.5199E-03_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&6.1652E-04_JPRB,5.4081E-04_JPRB,4.6545E-04_JPRB,3.9056E-04_JPRB,3.1379E-04_JPRB,9.9114E-05_JPRB,&
+&1.3949E-05_JPRB,3.9239E-06_JPRB,4.2520E-04_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&6.0629E-04_JPRB,5.3376E-04_JPRB,4.6202E-04_JPRB,3.8990E-04_JPRB,3.1655E-04_JPRB,2.3544E-04_JPRB,&
+&3.7382E-05_JPRB,8.6951E-06_JPRB,8.3044E-04_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&5.9694E-04_JPRB,5.2858E-04_JPRB,4.6094E-04_JPRB,3.9128E-04_JPRB,3.1984E-04_JPRB,2.4585E-04_JPRB,&
+&4.7453E-05_JPRB,1.1219E-05_JPRB,1.4978E-03_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&5.8812E-04_JPRB,5.2540E-04_JPRB,4.6162E-04_JPRB,3.9424E-04_JPRB,3.2635E-04_JPRB,2.5585E-04_JPRB,&
+&1.3793E-04_JPRB,1.5823E-05_JPRB,2.5315E-03_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&5.8094E-04_JPRB,5.2489E-04_JPRB,4.6409E-04_JPRB,4.0156E-04_JPRB,3.3516E-04_JPRB,2.6461E-04_JPRB,&
+&1.8608E-04_JPRB,1.9887E-05_JPRB,4.0512E-03_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&6.2969E-04_JPRB,5.5181E-04_JPRB,4.7454E-04_JPRB,3.9703E-04_JPRB,3.1724E-04_JPRB,6.5127E-05_JPRB,&
+&3.7452E-06_JPRB,3.2741E-06_JPRB,1.1769E-03_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&6.1957E-04_JPRB,5.4459E-04_JPRB,4.7029E-04_JPRB,3.9585E-04_JPRB,3.1968E-04_JPRB,1.3041E-04_JPRB,&
+&2.4515E-05_JPRB,7.2975E-06_JPRB,2.4417E-03_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&6.0939E-04_JPRB,5.3813E-04_JPRB,4.6769E-04_JPRB,3.9651E-04_JPRB,3.2305E-04_JPRB,2.4182E-04_JPRB,&
+&4.3807E-05_JPRB,1.1783E-05_JPRB,4.6287E-03_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&5.9955E-04_JPRB,5.3329E-04_JPRB,4.6744E-04_JPRB,3.9835E-04_JPRB,3.2790E-04_JPRB,2.5437E-04_JPRB,&
+&4.6423E-05_JPRB,1.1970E-05_JPRB,8.1527E-03_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&5.9051E-04_JPRB,5.3069E-04_JPRB,4.6841E-04_JPRB,4.0335E-04_JPRB,3.3599E-04_JPRB,2.6411E-04_JPRB,&
+&1.6905E-04_JPRB,1.8347E-05_JPRB,1.3511E-02_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&6.3270E-04_JPRB,5.5469E-04_JPRB,4.7693E-04_JPRB,3.9917E-04_JPRB,3.1669E-04_JPRB,6.3388E-05_JPRB,&
+&3.6721E-06_JPRB,3.2147E-07_JPRB,1.7207E-03_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&6.2323E-04_JPRB,5.4792E-04_JPRB,4.7320E-04_JPRB,3.9836E-04_JPRB,3.2132E-04_JPRB,8.3669E-05_JPRB,&
+&2.5421E-05_JPRB,6.2024E-06_JPRB,3.6065E-03_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&6.1343E-04_JPRB,5.4174E-04_JPRB,4.7120E-04_JPRB,3.9965E-04_JPRB,3.2524E-04_JPRB,2.3807E-04_JPRB,&
+&4.5288E-05_JPRB,1.1010E-05_JPRB,6.9077E-03_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&6.0422E-04_JPRB,5.3760E-04_JPRB,4.7151E-04_JPRB,4.0215E-04_JPRB,3.3145E-04_JPRB,2.5596E-04_JPRB,&
+&4.6438E-05_JPRB,1.1046E-05_JPRB,1.2276E-02_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&5.9513E-04_JPRB,5.3553E-04_JPRB,4.7292E-04_JPRB,4.0786E-04_JPRB,3.3977E-04_JPRB,2.6645E-04_JPRB,&
+&1.3530E-04_JPRB,1.8396E-05_JPRB,2.0378E-02_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&6.3015E-04_JPRB,5.5264E-04_JPRB,4.7514E-04_JPRB,3.9757E-04_JPRB,3.1556E-04_JPRB,6.0378E-05_JPRB,&
+&5.1686E-06_JPRB,4.1217E-06_JPRB,1.9089E-03_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&6.2156E-04_JPRB,5.4661E-04_JPRB,4.7228E-04_JPRB,3.9794E-04_JPRB,3.2115E-04_JPRB,9.3459E-05_JPRB,&
+&3.5910E-05_JPRB,6.9491E-06_JPRB,4.0407E-03_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&6.1284E-04_JPRB,5.4153E-04_JPRB,4.7137E-04_JPRB,3.9993E-04_JPRB,3.2562E-04_JPRB,2.3942E-04_JPRB,&
+&4.5459E-05_JPRB,1.2207E-05_JPRB,7.7972E-03_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&6.0431E-04_JPRB,5.3827E-04_JPRB,4.7217E-04_JPRB,4.0315E-04_JPRB,3.3297E-04_JPRB,2.5722E-04_JPRB,&
+&4.4991E-05_JPRB,1.1842E-05_JPRB,1.3838E-02_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&5.9614E-04_JPRB,5.3719E-04_JPRB,4.7459E-04_JPRB,4.0965E-04_JPRB,3.4109E-04_JPRB,2.6763E-04_JPRB,&
+&1.4327E-04_JPRB,1.6122E-05_JPRB,2.2897E-02_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&6.2067E-04_JPRB,5.4442E-04_JPRB,4.6829E-04_JPRB,3.9206E-04_JPRB,3.1059E-04_JPRB,5.4570E-05_JPRB,&
+&2.5324E-05_JPRB,1.9027E-06_JPRB,1.7246E-03_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&6.1333E-04_JPRB,5.3966E-04_JPRB,4.6657E-04_JPRB,3.9353E-04_JPRB,3.1741E-04_JPRB,1.0184E-04_JPRB,&
+&4.1822E-05_JPRB,6.3468E-06_JPRB,3.6765E-03_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&6.0610E-04_JPRB,5.3617E-04_JPRB,4.6704E-04_JPRB,3.9622E-04_JPRB,3.2317E-04_JPRB,2.3665E-04_JPRB,&
+&4.5927E-05_JPRB,1.1176E-05_JPRB,7.0786E-03_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&5.9902E-04_JPRB,5.3443E-04_JPRB,4.6878E-04_JPRB,4.0069E-04_JPRB,3.3118E-04_JPRB,2.5588E-04_JPRB,&
+&4.4674E-05_JPRB,1.1239E-05_JPRB,1.2524E-02_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&5.9234E-04_JPRB,5.3454E-04_JPRB,4.7242E-04_JPRB,4.0791E-04_JPRB,3.3951E-04_JPRB,2.6646E-04_JPRB,&
+&1.4670E-04_JPRB,2.0921E-05_JPRB,2.0681E-02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB7_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_A2.F90	(revision 2160)
@@ -0,0 +1,1604 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB7_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,ABSCO2O
+USE YOERRTA7 , ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&7.6730E-04_JPRB,6.9533E-04_JPRB,6.3435E-04_JPRB,5.7755E-04_JPRB,5.2747E-04_JPRB,4.8127E-04_JPRB,&
+&4.6360E-04_JPRB,4.7153E-04_JPRB,5.0503E-04_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&8.9446E-04_JPRB,8.3145E-04_JPRB,7.7791E-04_JPRB,7.3079E-04_JPRB,6.8158E-04_JPRB,6.4054E-04_JPRB,&
+&6.4060E-04_JPRB,6.7751E-04_JPRB,7.4127E-04_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&1.0839E-03_JPRB,1.0326E-03_JPRB,9.8910E-04_JPRB,9.4874E-04_JPRB,8.8995E-04_JPRB,8.5059E-04_JPRB,&
+&8.6660E-04_JPRB,9.3858E-04_JPRB,1.0404E-03_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&1.3392E-03_JPRB,1.2976E-03_JPRB,1.2617E-03_JPRB,1.2187E-03_JPRB,1.1503E-03_JPRB,1.1142E-03_JPRB,&
+&1.1537E-03_JPRB,1.2600E-03_JPRB,1.4074E-03_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&1.6572E-03_JPRB,1.6190E-03_JPRB,1.5928E-03_JPRB,1.5446E-03_JPRB,1.4696E-03_JPRB,1.4385E-03_JPRB,&
+&1.5029E-03_JPRB,1.6559E-03_JPRB,1.8563E-03_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&7.2791E-04_JPRB,6.5760E-04_JPRB,5.9478E-04_JPRB,5.3539E-04_JPRB,4.8045E-04_JPRB,4.2766E-04_JPRB,&
+&4.0009E-04_JPRB,3.9735E-04_JPRB,4.3728E-04_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&8.1810E-04_JPRB,7.5677E-04_JPRB,7.0172E-04_JPRB,6.5562E-04_JPRB,6.0484E-04_JPRB,5.6238E-04_JPRB,&
+&5.5650E-04_JPRB,5.8260E-04_JPRB,6.4861E-04_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&9.5216E-04_JPRB,9.0507E-04_JPRB,8.6910E-04_JPRB,8.3462E-04_JPRB,7.8786E-04_JPRB,7.5096E-04_JPRB,&
+&7.5914E-04_JPRB,8.1646E-04_JPRB,9.1827E-04_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&1.1442E-03_JPRB,1.1148E-03_JPRB,1.1009E-03_JPRB,1.0715E-03_JPRB,1.0248E-03_JPRB,9.9267E-04_JPRB,&
+&1.0179E-03_JPRB,1.1078E-03_JPRB,1.2541E-03_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&1.3996E-03_JPRB,1.3905E-03_JPRB,1.3914E-03_JPRB,1.3624E-03_JPRB,1.3173E-03_JPRB,1.2906E-03_JPRB,&
+&1.3365E-03_JPRB,1.4703E-03_JPRB,1.6733E-03_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&6.9198E-04_JPRB,6.2093E-04_JPRB,5.5500E-04_JPRB,4.9112E-04_JPRB,4.2858E-04_JPRB,3.6796E-04_JPRB,&
+&3.2243E-04_JPRB,2.7068E-04_JPRB,3.8445E-04_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&7.4808E-04_JPRB,6.8197E-04_JPRB,6.2244E-04_JPRB,5.6656E-04_JPRB,5.0936E-04_JPRB,4.6235E-04_JPRB,&
+&4.4533E-04_JPRB,4.5718E-04_JPRB,5.8212E-04_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&8.2613E-04_JPRB,7.7358E-04_JPRB,7.3159E-04_JPRB,6.8941E-04_JPRB,6.4390E-04_JPRB,6.1118E-04_JPRB,&
+&6.1390E-04_JPRB,6.5687E-04_JPRB,8.4097E-04_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&9.3955E-04_JPRB,9.0936E-04_JPRB,8.9358E-04_JPRB,8.6993E-04_JPRB,8.3759E-04_JPRB,8.1431E-04_JPRB,&
+&8.3330E-04_JPRB,9.0689E-04_JPRB,1.1736E-03_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&1.1024E-03_JPRB,1.1029E-03_JPRB,1.1144E-03_JPRB,1.1087E-03_JPRB,1.0858E-03_JPRB,1.0701E-03_JPRB,&
+&1.1102E-03_JPRB,1.2203E-03_JPRB,1.5855E-03_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&6.9141E-04_JPRB,6.1573E-04_JPRB,5.4365E-04_JPRB,4.7268E-04_JPRB,4.0185E-04_JPRB,3.3169E-04_JPRB,&
+&2.6484E-04_JPRB,1.1941E-04_JPRB,4.2525E-04_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&7.1303E-04_JPRB,6.4311E-04_JPRB,5.7730E-04_JPRB,5.1428E-04_JPRB,4.4890E-04_JPRB,3.8935E-04_JPRB,&
+&3.5277E-04_JPRB,3.2803E-04_JPRB,6.6098E-04_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&7.6419E-04_JPRB,7.0113E-04_JPRB,6.4756E-04_JPRB,5.8990E-04_JPRB,5.3391E-04_JPRB,4.9265E-04_JPRB,&
+&4.8275E-04_JPRB,5.0730E-04_JPRB,9.8045E-04_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&8.2609E-04_JPRB,7.8182E-04_JPRB,7.4991E-04_JPRB,7.1089E-04_JPRB,6.7442E-04_JPRB,6.5009E-04_JPRB,&
+&6.6146E-04_JPRB,7.1854E-04_JPRB,1.3938E-03_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&9.1327E-04_JPRB,9.0245E-04_JPRB,8.9877E-04_JPRB,8.8705E-04_JPRB,8.7034E-04_JPRB,8.6010E-04_JPRB,&
+&8.9180E-04_JPRB,9.8101E-04_JPRB,1.9118E-03_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&7.1194E-04_JPRB,6.3073E-04_JPRB,5.5152E-04_JPRB,4.7348E-04_JPRB,3.9513E-04_JPRB,3.1519E-04_JPRB,&
+&2.2983E-04_JPRB,2.7452E-05_JPRB,4.8453E-04_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&7.1296E-04_JPRB,6.3797E-04_JPRB,5.6646E-04_JPRB,4.9574E-04_JPRB,4.2273E-04_JPRB,3.5196E-04_JPRB,&
+&2.8944E-04_JPRB,1.7242E-04_JPRB,7.7671E-04_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&7.3444E-04_JPRB,6.6574E-04_JPRB,6.0369E-04_JPRB,5.3780E-04_JPRB,4.7146E-04_JPRB,4.1473E-04_JPRB,&
+&3.8369E-04_JPRB,3.7633E-04_JPRB,1.1824E-03_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&7.7697E-04_JPRB,7.1991E-04_JPRB,6.7045E-04_JPRB,6.1217E-04_JPRB,5.6053E-04_JPRB,5.2336E-04_JPRB,&
+&5.2023E-04_JPRB,5.5862E-04_JPRB,1.7181E-03_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&8.2601E-04_JPRB,7.9119E-04_JPRB,7.6213E-04_JPRB,7.3107E-04_JPRB,6.9880E-04_JPRB,6.8266E-04_JPRB,&
+&7.0503E-04_JPRB,7.7701E-04_JPRB,2.3991E-03_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&7.4702E-04_JPRB,6.5911E-04_JPRB,5.7262E-04_JPRB,4.8679E-04_JPRB,4.0134E-04_JPRB,3.1318E-04_JPRB,&
+&1.5461E-04_JPRB,1.6758E-05_JPRB,5.2688E-04_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&7.4128E-04_JPRB,6.5855E-04_JPRB,5.7826E-04_JPRB,4.9892E-04_JPRB,4.1789E-04_JPRB,3.3501E-04_JPRB,&
+&2.5184E-04_JPRB,5.3936E-05_JPRB,8.7850E-04_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&7.3954E-04_JPRB,6.6416E-04_JPRB,5.9359E-04_JPRB,5.2126E-04_JPRB,4.4507E-04_JPRB,3.7370E-04_JPRB,&
+&3.1408E-04_JPRB,2.2236E-04_JPRB,1.3809E-03_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&7.5717E-04_JPRB,6.9002E-04_JPRB,6.2962E-04_JPRB,5.6099E-04_JPRB,4.9557E-04_JPRB,4.3902E-04_JPRB,&
+&4.1006E-04_JPRB,4.1489E-04_JPRB,2.0655E-03_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&7.8954E-04_JPRB,7.3758E-04_JPRB,6.8841E-04_JPRB,6.3360E-04_JPRB,5.8155E-04_JPRB,5.4713E-04_JPRB,&
+&5.4922E-04_JPRB,5.9986E-04_JPRB,2.9589E-03_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&7.9467E-04_JPRB,6.9929E-04_JPRB,6.0424E-04_JPRB,5.1073E-04_JPRB,4.1693E-04_JPRB,3.2089E-04_JPRB,&
+&5.1325E-05_JPRB,1.2122E-05_JPRB,6.0259E-04_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&7.8343E-04_JPRB,6.9250E-04_JPRB,6.0357E-04_JPRB,5.1592E-04_JPRB,4.2687E-04_JPRB,3.3542E-04_JPRB,&
+&2.2592E-04_JPRB,1.5976E-05_JPRB,1.0502E-03_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&7.7573E-04_JPRB,6.9130E-04_JPRB,6.0997E-04_JPRB,5.2908E-04_JPRB,4.4409E-04_JPRB,3.5904E-04_JPRB,&
+&2.7616E-04_JPRB,9.2965E-05_JPRB,1.7102E-03_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&7.7294E-04_JPRB,6.9692E-04_JPRB,6.2657E-04_JPRB,5.4965E-04_JPRB,4.7312E-04_JPRB,3.9920E-04_JPRB,&
+&3.3903E-04_JPRB,2.7602E-04_JPRB,2.6319E-03_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&7.8731E-04_JPRB,7.2173E-04_JPRB,6.5887E-04_JPRB,5.9065E-04_JPRB,5.2295E-04_JPRB,4.6490E-04_JPRB,&
+&4.3618E-04_JPRB,4.5346E-04_JPRB,3.8668E-03_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&8.5501E-04_JPRB,7.5078E-04_JPRB,6.4657E-04_JPRB,5.4366E-04_JPRB,4.4039E-04_JPRB,3.3294E-04_JPRB,&
+&2.6688E-05_JPRB,1.2258E-05_JPRB,8.1286E-04_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&8.4099E-04_JPRB,7.4093E-04_JPRB,6.4228E-04_JPRB,5.4430E-04_JPRB,4.4636E-04_JPRB,3.4551E-04_JPRB,&
+&1.0468E-04_JPRB,1.2830E-05_JPRB,1.4923E-03_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&8.2855E-04_JPRB,7.3472E-04_JPRB,6.4208E-04_JPRB,5.5147E-04_JPRB,4.5797E-04_JPRB,3.6152E-04_JPRB,&
+&2.5538E-04_JPRB,1.6241E-05_JPRB,2.5369E-03_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&8.1840E-04_JPRB,7.3203E-04_JPRB,6.4929E-04_JPRB,5.6425E-04_JPRB,4.7544E-04_JPRB,3.8760E-04_JPRB,&
+&3.0236E-04_JPRB,1.3733E-04_JPRB,4.0371E-03_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&8.1270E-04_JPRB,7.3589E-04_JPRB,6.6348E-04_JPRB,5.8412E-04_JPRB,5.0562E-04_JPRB,4.2829E-04_JPRB,&
+&3.6616E-04_JPRB,3.2564E-04_JPRB,6.0900E-03_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&9.2560E-04_JPRB,8.1125E-04_JPRB,6.9819E-04_JPRB,5.8413E-04_JPRB,4.7055E-04_JPRB,3.5015E-04_JPRB,&
+&5.5500E-06_JPRB,4.9629E-06_JPRB,2.0290E-03_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&9.1093E-04_JPRB,8.0097E-04_JPRB,6.9137E-04_JPRB,5.8249E-04_JPRB,4.7378E-04_JPRB,3.6194E-04_JPRB,&
+&3.0062E-05_JPRB,1.0842E-05_JPRB,3.9531E-03_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&8.9709E-04_JPRB,7.9180E-04_JPRB,6.8775E-04_JPRB,5.8518E-04_JPRB,4.8156E-04_JPRB,3.7367E-04_JPRB,&
+&1.7999E-04_JPRB,1.5619E-05_JPRB,7.0405E-03_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&8.8317E-04_JPRB,7.8542E-04_JPRB,6.8899E-04_JPRB,5.9345E-04_JPRB,4.9320E-04_JPRB,3.9217E-04_JPRB,&
+&2.8412E-04_JPRB,3.4988E-05_JPRB,1.1630E-02_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&8.7042E-04_JPRB,7.8172E-04_JPRB,6.9655E-04_JPRB,6.0534E-04_JPRB,5.1346E-04_JPRB,4.2035E-04_JPRB,&
+&3.3049E-04_JPRB,1.7732E-04_JPRB,1.8084E-02_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&1.0020E-03_JPRB,8.7768E-04_JPRB,7.5453E-04_JPRB,6.2994E-04_JPRB,5.0369E-04_JPRB,2.0029E-04_JPRB,&
+&4.8338E-06_JPRB,1.1150E-06_JPRB,6.1828E-03_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&9.8614E-04_JPRB,8.6564E-04_JPRB,7.4527E-04_JPRB,6.2596E-04_JPRB,5.0608E-04_JPRB,3.8053E-04_JPRB,&
+&2.2407E-05_JPRB,6.0753E-06_JPRB,1.2701E-02_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&9.7041E-04_JPRB,8.5442E-04_JPRB,7.4008E-04_JPRB,6.2563E-04_JPRB,5.1190E-04_JPRB,3.9299E-04_JPRB,&
+&5.6685E-05_JPRB,1.0644E-05_JPRB,2.3596E-02_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&9.5474E-04_JPRB,8.4629E-04_JPRB,7.3757E-04_JPRB,6.3110E-04_JPRB,5.2156E-04_JPRB,4.0815E-04_JPRB,&
+&2.6069E-04_JPRB,1.4418E-05_JPRB,4.0339E-02_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&9.3936E-04_JPRB,8.3916E-04_JPRB,7.4145E-04_JPRB,6.4037E-04_JPRB,5.3630E-04_JPRB,4.3024E-04_JPRB,&
+&3.1815E-04_JPRB,7.5689E-05_JPRB,6.4528E-02_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&1.0733E-03_JPRB,9.4010E-04_JPRB,8.0821E-04_JPRB,6.7481E-04_JPRB,5.3993E-04_JPRB,1.7304E-04_JPRB,&
+&4.5690E-06_JPRB,1.0947E-06_JPRB,9.5058E-03_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&1.0562E-03_JPRB,9.2720E-04_JPRB,7.9859E-04_JPRB,6.7071E-04_JPRB,5.4165E-04_JPRB,4.0387E-04_JPRB,&
+&2.1514E-05_JPRB,7.8378E-06_JPRB,1.9538E-02_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&1.0391E-03_JPRB,9.1541E-04_JPRB,7.9272E-04_JPRB,6.7016E-04_JPRB,5.4829E-04_JPRB,4.2037E-04_JPRB,&
+&4.6128E-05_JPRB,1.0839E-05_JPRB,3.6276E-02_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&1.0222E-03_JPRB,9.0627E-04_JPRB,7.9028E-04_JPRB,6.7590E-04_JPRB,5.5839E-04_JPRB,4.3725E-04_JPRB,&
+&2.4358E-04_JPRB,1.5967E-05_JPRB,6.2057E-02_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&1.0062E-03_JPRB,8.9870E-04_JPRB,7.9417E-04_JPRB,6.8540E-04_JPRB,5.7395E-04_JPRB,4.5941E-04_JPRB,&
+&3.3487E-04_JPRB,5.8510E-05_JPRB,9.9558E-02_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&1.1429E-03_JPRB,1.0011E-03_JPRB,8.6066E-04_JPRB,7.1891E-04_JPRB,5.7572E-04_JPRB,2.3708E-04_JPRB,&
+&4.4567E-06_JPRB,5.1497E-06_JPRB,1.0798E-02_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&1.1252E-03_JPRB,9.8802E-04_JPRB,8.5145E-04_JPRB,7.1518E-04_JPRB,5.7793E-04_JPRB,4.3517E-04_JPRB,&
+&2.8931E-05_JPRB,1.3305E-05_JPRB,2.2185E-02_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&1.1078E-03_JPRB,9.7648E-04_JPRB,8.4588E-04_JPRB,7.1557E-04_JPRB,5.8568E-04_JPRB,4.5025E-04_JPRB,&
+&8.7797E-05_JPRB,1.2058E-05_JPRB,4.1218E-02_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&1.0907E-03_JPRB,9.6728E-04_JPRB,8.4415E-04_JPRB,7.2188E-04_JPRB,5.9608E-04_JPRB,4.6749E-04_JPRB,&
+&2.9839E-04_JPRB,1.3906E-05_JPRB,7.0748E-02_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&1.0737E-03_JPRB,9.5961E-04_JPRB,8.4835E-04_JPRB,7.3154E-04_JPRB,6.1267E-04_JPRB,4.9042E-04_JPRB,&
+&3.5775E-04_JPRB,5.9229E-05_JPRB,1.1398E-01_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&1.2093E-03_JPRB,1.0592E-03_JPRB,9.1069E-04_JPRB,7.6104E-04_JPRB,6.0998E-04_JPRB,3.0141E-04_JPRB,&
+&8.4692E-06_JPRB,3.6390E-06_JPRB,9.7505E-03_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&1.1916E-03_JPRB,1.0465E-03_JPRB,9.0223E-04_JPRB,7.5810E-04_JPRB,6.1322E-04_JPRB,4.6338E-04_JPRB,&
+&3.8957E-05_JPRB,7.1625E-06_JPRB,2.0045E-02_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&1.1742E-03_JPRB,1.0355E-03_JPRB,8.9704E-04_JPRB,7.5964E-04_JPRB,6.2169E-04_JPRB,4.7851E-04_JPRB,&
+&1.3589E-04_JPRB,1.1895E-05_JPRB,3.7380E-02_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&1.1565E-03_JPRB,1.0260E-03_JPRB,8.9628E-04_JPRB,7.6660E-04_JPRB,6.3308E-04_JPRB,4.9715E-04_JPRB,&
+&3.4150E-04_JPRB,1.1060E-05_JPRB,6.4458E-02_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&1.1382E-03_JPRB,1.0180E-03_JPRB,9.0061E-04_JPRB,7.7706E-04_JPRB,6.5089E-04_JPRB,5.2149E-04_JPRB,&
+&3.8129E-04_JPRB,5.9752E-05_JPRB,1.0436E-01_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&9.4926E-04_JPRB,8.5786E-04_JPRB,8.1138E-04_JPRB,7.6433E-04_JPRB,7.2663E-04_JPRB,7.8967E-04_JPRB,&
+&8.8787E-04_JPRB,9.8903E-04_JPRB,1.1026E-03_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&1.2390E-03_JPRB,1.1300E-03_JPRB,1.0621E-03_JPRB,9.8809E-04_JPRB,9.8084E-04_JPRB,1.1153E-03_JPRB,&
+&1.2754E-03_JPRB,1.4463E-03_JPRB,1.6199E-03_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&1.6285E-03_JPRB,1.4941E-03_JPRB,1.4019E-03_JPRB,1.3143E-03_JPRB,1.3388E-03_JPRB,1.5587E-03_JPRB,&
+&1.7963E-03_JPRB,2.0319E-03_JPRB,2.2893E-03_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&2.1075E-03_JPRB,1.9429E-03_JPRB,1.8233E-03_JPRB,1.7260E-03_JPRB,1.7987E-03_JPRB,2.1195E-03_JPRB,&
+&2.4630E-03_JPRB,2.8065E-03_JPRB,3.1716E-03_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&2.6676E-03_JPRB,2.4810E-03_JPRB,2.3359E-03_JPRB,2.2329E-03_JPRB,2.3416E-03_JPRB,2.7812E-03_JPRB,&
+&3.2550E-03_JPRB,3.7334E-03_JPRB,4.2210E-03_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&8.9025E-04_JPRB,8.0274E-04_JPRB,7.4274E-04_JPRB,6.8609E-04_JPRB,6.7102E-04_JPRB,7.1742E-04_JPRB,&
+&7.9680E-04_JPRB,8.7045E-04_JPRB,9.7644E-04_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&1.1017E-03_JPRB,1.0100E-03_JPRB,9.5453E-04_JPRB,8.9274E-04_JPRB,8.8682E-04_JPRB,1.0003E-03_JPRB,&
+&1.1309E-03_JPRB,1.2737E-03_JPRB,1.4319E-03_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&1.4395E-03_JPRB,1.3424E-03_JPRB,1.2619E-03_JPRB,1.1931E-03_JPRB,1.1956E-03_JPRB,1.3885E-03_JPRB,&
+&1.5988E-03_JPRB,1.8061E-03_JPRB,2.0428E-03_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&1.8618E-03_JPRB,1.7544E-03_JPRB,1.6479E-03_JPRB,1.5853E-03_JPRB,1.5993E-03_JPRB,1.8833E-03_JPRB,&
+&2.1846E-03_JPRB,2.4927E-03_JPRB,2.8370E-03_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&2.3686E-03_JPRB,2.2486E-03_JPRB,2.1364E-03_JPRB,2.0670E-03_JPRB,2.0882E-03_JPRB,2.4685E-03_JPRB,&
+&2.8904E-03_JPRB,3.3295E-03_JPRB,3.7864E-03_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&8.4979E-04_JPRB,7.6433E-04_JPRB,6.9594E-04_JPRB,6.3370E-04_JPRB,5.8853E-04_JPRB,5.9559E-04_JPRB,&
+&6.5667E-04_JPRB,7.1533E-04_JPRB,8.1217E-04_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&9.3603E-04_JPRB,8.5921E-04_JPRB,7.9338E-04_JPRB,7.5508E-04_JPRB,7.6062E-04_JPRB,8.4114E-04_JPRB,&
+&9.4920E-04_JPRB,1.0487E-03_JPRB,1.2014E-03_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&1.1433E-03_JPRB,1.0846E-03_JPRB,1.0263E-03_JPRB,9.9233E-04_JPRB,1.0119E-03_JPRB,1.1695E-03_JPRB,&
+&1.3351E-03_JPRB,1.4995E-03_JPRB,1.7286E-03_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&1.4720E-03_JPRB,1.4093E-03_JPRB,1.3576E-03_JPRB,1.3122E-03_JPRB,1.3394E-03_JPRB,1.5776E-03_JPRB,&
+&1.8258E-03_JPRB,2.0744E-03_JPRB,2.3896E-03_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&1.8783E-03_JPRB,1.8107E-03_JPRB,1.7793E-03_JPRB,1.7293E-03_JPRB,1.7612E-03_JPRB,2.0848E-03_JPRB,&
+&2.4329E-03_JPRB,2.7873E-03_JPRB,3.2122E-03_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&8.5598E-04_JPRB,7.6200E-04_JPRB,6.7698E-04_JPRB,6.0274E-04_JPRB,5.4143E-04_JPRB,4.8510E-04_JPRB,&
+&5.0808E-04_JPRB,5.4195E-04_JPRB,7.2030E-04_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&8.7829E-04_JPRB,7.9754E-04_JPRB,7.2820E-04_JPRB,6.8132E-04_JPRB,6.4105E-04_JPRB,6.7652E-04_JPRB,&
+&7.5328E-04_JPRB,8.3000E-04_JPRB,1.1216E-03_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&9.6941E-04_JPRB,9.0019E-04_JPRB,8.3950E-04_JPRB,8.2706E-04_JPRB,8.3972E-04_JPRB,9.4956E-04_JPRB,&
+&1.0831E-03_JPRB,1.2181E-03_JPRB,1.6652E-03_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&1.1497E-03_JPRB,1.1076E-03_JPRB,1.0973E-03_JPRB,1.0748E-03_JPRB,1.1139E-03_JPRB,1.3070E-03_JPRB,&
+&1.5051E-03_JPRB,1.7091E-03_JPRB,2.3798E-03_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&1.4423E-03_JPRB,1.4228E-03_JPRB,1.4377E-03_JPRB,1.4117E-03_JPRB,1.4741E-03_JPRB,1.7577E-03_JPRB,&
+&2.0499E-03_JPRB,2.3324E-03_JPRB,3.2737E-03_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&8.8900E-04_JPRB,7.8652E-04_JPRB,6.9034E-04_JPRB,5.9667E-04_JPRB,5.1545E-04_JPRB,4.4672E-04_JPRB,&
+&3.9522E-04_JPRB,3.0801E-04_JPRB,9.0832E-04_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&8.9256E-04_JPRB,7.9933E-04_JPRB,7.1388E-04_JPRB,6.4679E-04_JPRB,5.8953E-04_JPRB,5.4566E-04_JPRB,&
+&5.8778E-04_JPRB,6.2517E-04_JPRB,1.4726E-03_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&9.1630E-04_JPRB,8.3731E-04_JPRB,7.6863E-04_JPRB,7.3348E-04_JPRB,7.0053E-04_JPRB,7.6737E-04_JPRB,&
+&8.6212E-04_JPRB,9.5439E-04_JPRB,2.2518E-03_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&1.0039E-03_JPRB,9.3325E-04_JPRB,8.9498E-04_JPRB,8.8178E-04_JPRB,9.2025E-04_JPRB,1.0734E-03_JPRB,&
+&1.2371E-03_JPRB,1.3976E-03_JPRB,3.3076E-03_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&1.1384E-03_JPRB,1.1125E-03_JPRB,1.1459E-03_JPRB,1.1447E-03_JPRB,1.2384E-03_JPRB,1.4768E-03_JPRB,&
+&1.7232E-03_JPRB,1.9621E-03_JPRB,4.6582E-03_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&9.4887E-04_JPRB,8.3839E-04_JPRB,7.3102E-04_JPRB,6.2493E-04_JPRB,5.2042E-04_JPRB,4.2275E-04_JPRB,&
+&3.3556E-04_JPRB,3.4740E-06_JPRB,1.1251E-03_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&9.3677E-04_JPRB,8.3218E-04_JPRB,7.3454E-04_JPRB,6.4594E-04_JPRB,5.6378E-04_JPRB,4.9151E-04_JPRB,&
+&4.4994E-04_JPRB,4.2597E-04_JPRB,1.8832E-03_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&9.3921E-04_JPRB,8.4673E-04_JPRB,7.5957E-04_JPRB,6.9636E-04_JPRB,6.3706E-04_JPRB,6.1057E-04_JPRB,&
+&6.7476E-04_JPRB,7.3912E-04_JPRB,2.9583E-03_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&9.5719E-04_JPRB,8.7688E-04_JPRB,8.1813E-04_JPRB,7.7967E-04_JPRB,7.5775E-04_JPRB,8.5851E-04_JPRB,&
+&9.8609E-04_JPRB,1.1121E-03_JPRB,4.4273E-03_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&1.0294E-03_JPRB,9.6457E-04_JPRB,9.3753E-04_JPRB,9.2588E-04_JPRB,1.0133E-03_JPRB,1.2038E-03_JPRB,&
+&1.4020E-03_JPRB,1.6034E-03_JPRB,6.3437E-03_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&1.0279E-03_JPRB,9.0433E-04_JPRB,7.8375E-04_JPRB,6.6508E-04_JPRB,5.4484E-04_JPRB,4.2431E-04_JPRB,&
+&2.6888E-04_JPRB,7.8015E-06_JPRB,1.4588E-03_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&1.0083E-03_JPRB,8.9241E-04_JPRB,7.8172E-04_JPRB,6.7204E-04_JPRB,5.7124E-04_JPRB,4.6914E-04_JPRB,&
+&3.6802E-04_JPRB,8.6137E-05_JPRB,2.5625E-03_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&9.9596E-04_JPRB,8.9237E-04_JPRB,7.9108E-04_JPRB,7.0321E-04_JPRB,6.1556E-04_JPRB,5.3871E-04_JPRB,&
+&5.1518E-04_JPRB,5.4052E-04_JPRB,4.1805E-03_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&9.8826E-04_JPRB,8.9639E-04_JPRB,8.1334E-04_JPRB,7.5573E-04_JPRB,6.8824E-04_JPRB,6.8183E-04_JPRB,&
+&7.7451E-04_JPRB,8.6801E-04_JPRB,6.4027E-03_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&1.0011E-03_JPRB,9.2233E-04_JPRB,8.6964E-04_JPRB,8.2719E-04_JPRB,8.3320E-04_JPRB,9.6571E-04_JPRB,&
+&1.1203E-03_JPRB,1.2853E-03_JPRB,9.3461E-03_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&1.1125E-03_JPRB,9.7475E-04_JPRB,8.4628E-04_JPRB,7.1245E-04_JPRB,5.8223E-04_JPRB,4.4955E-04_JPRB,&
+&1.2055E-05_JPRB,1.4979E-05_JPRB,2.2126E-03_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&1.0938E-03_JPRB,9.6654E-04_JPRB,8.3997E-04_JPRB,7.1323E-04_JPRB,5.9255E-04_JPRB,4.7230E-04_JPRB,&
+&3.2313E-04_JPRB,3.4269E-06_JPRB,4.0836E-03_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&1.0758E-03_JPRB,9.5487E-04_JPRB,8.3741E-04_JPRB,7.2643E-04_JPRB,6.2166E-04_JPRB,5.1323E-04_JPRB,&
+&4.2493E-04_JPRB,3.0113E-04_JPRB,6.9437E-03_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&1.0550E-03_JPRB,9.4862E-04_JPRB,8.4799E-04_JPRB,7.6117E-04_JPRB,6.7028E-04_JPRB,5.9614E-04_JPRB,&
+&6.0166E-04_JPRB,6.5642E-04_JPRB,1.1024E-02_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&1.0393E-03_JPRB,9.5089E-04_JPRB,8.7866E-04_JPRB,8.1224E-04_JPRB,7.5400E-04_JPRB,7.6815E-04_JPRB,&
+&8.8282E-04_JPRB,1.0221E-03_JPRB,1.6724E-02_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&1.2180E-03_JPRB,1.0664E-03_JPRB,9.2270E-04_JPRB,7.7328E-04_JPRB,6.2475E-04_JPRB,4.6815E-04_JPRB,&
+&9.5178E-06_JPRB,3.3772E-06_JPRB,6.2846E-03_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&1.1921E-03_JPRB,1.0498E-03_JPRB,9.0635E-04_JPRB,7.6682E-04_JPRB,6.2317E-04_JPRB,4.8406E-04_JPRB,&
+&8.3341E-05_JPRB,3.8343E-06_JPRB,1.2227E-02_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&1.1669E-03_JPRB,1.0310E-03_JPRB,8.9852E-04_JPRB,7.6558E-04_JPRB,6.4277E-04_JPRB,5.2121E-04_JPRB,&
+&3.7666E-04_JPRB,1.2040E-05_JPRB,2.1734E-02_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&1.1470E-03_JPRB,1.0235E-03_JPRB,9.0044E-04_JPRB,7.8767E-04_JPRB,6.8183E-04_JPRB,5.6489E-04_JPRB,&
+&4.9156E-04_JPRB,4.5088E-04_JPRB,3.6006E-02_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&1.1295E-03_JPRB,1.0174E-03_JPRB,9.1849E-04_JPRB,8.2709E-04_JPRB,7.3027E-04_JPRB,6.6994E-04_JPRB,&
+&6.9088E-04_JPRB,7.9186E-04_JPRB,5.6162E-02_JPRB/)
+KAO( :, 1,10,10) = (/&
+&1.3419E-03_JPRB,1.1745E-03_JPRB,1.0112E-03_JPRB,8.4729E-04_JPRB,6.7925E-04_JPRB,4.9697E-04_JPRB,&
+&1.5254E-06_JPRB,1.5343E-06_JPRB,2.0999E-02_JPRB/)
+KAO( :, 2,10,10) = (/&
+&1.3141E-03_JPRB,1.1539E-03_JPRB,9.9630E-04_JPRB,8.3744E-04_JPRB,6.7916E-04_JPRB,5.1101E-04_JPRB,&
+&6.8452E-06_JPRB,3.0451E-06_JPRB,4.3024E-02_JPRB/)
+KAO( :, 3,10,10) = (/&
+&1.2898E-03_JPRB,1.1375E-03_JPRB,9.8703E-04_JPRB,8.3404E-04_JPRB,6.8649E-04_JPRB,5.3929E-04_JPRB,&
+&3.2626E-04_JPRB,6.0173E-06_JPRB,7.9885E-02_JPRB/)
+KAO( :, 4,10,10) = (/&
+&1.2672E-03_JPRB,1.1264E-03_JPRB,9.8249E-04_JPRB,8.4764E-04_JPRB,7.1223E-04_JPRB,5.7730E-04_JPRB,&
+&4.4171E-04_JPRB,9.9896E-05_JPRB,1.3680E-01_JPRB/)
+KAO( :, 5,10,10) = (/&
+&1.2477E-03_JPRB,1.1172E-03_JPRB,9.9135E-04_JPRB,8.7077E-04_JPRB,7.4770E-04_JPRB,6.3934E-04_JPRB,&
+&5.7696E-04_JPRB,6.1656E-04_JPRB,2.1952E-01_JPRB/)
+KAO( :, 1,11,10) = (/&
+&1.4755E-03_JPRB,1.2917E-03_JPRB,1.1119E-03_JPRB,9.3058E-04_JPRB,7.4744E-04_JPRB,5.5051E-04_JPRB,&
+&1.6522E-06_JPRB,1.5412E-06_JPRB,3.4475E-02_JPRB/)
+KAO( :, 2,11,10) = (/&
+&1.4485E-03_JPRB,1.2719E-03_JPRB,1.0971E-03_JPRB,9.2191E-04_JPRB,7.4745E-04_JPRB,5.7109E-04_JPRB,&
+&1.1696E-05_JPRB,3.1243E-06_JPRB,7.0850E-02_JPRB/)
+KAO( :, 3,11,10) = (/&
+&1.4264E-03_JPRB,1.2579E-03_JPRB,1.0914E-03_JPRB,9.2154E-04_JPRB,7.5855E-04_JPRB,5.9482E-04_JPRB,&
+&3.1605E-04_JPRB,9.6309E-06_JPRB,1.3183E-01_JPRB/)
+KAO( :, 4,11,10) = (/&
+&1.4023E-03_JPRB,1.2457E-03_JPRB,1.0849E-03_JPRB,9.3462E-04_JPRB,7.7881E-04_JPRB,6.1925E-04_JPRB,&
+&4.6174E-04_JPRB,2.1053E-05_JPRB,2.2597E-01_JPRB/)
+KAO( :, 5,11,10) = (/&
+&1.3792E-03_JPRB,1.2345E-03_JPRB,1.0916E-03_JPRB,9.5041E-04_JPRB,8.0615E-04_JPRB,6.7157E-04_JPRB,&
+&5.8929E-04_JPRB,6.0215E-04_JPRB,3.6233E-01_JPRB/)
+KAO( :, 1,12,10) = (/&
+&1.6315E-03_JPRB,1.4286E-03_JPRB,1.2296E-03_JPRB,1.0282E-03_JPRB,8.2450E-04_JPRB,6.1652E-04_JPRB,&
+&3.3057E-06_JPRB,1.5465E-06_JPRB,4.1474E-02_JPRB/)
+KAO( :, 2,12,10) = (/&
+&1.6041E-03_JPRB,1.4085E-03_JPRB,1.2135E-03_JPRB,1.0193E-03_JPRB,8.2407E-04_JPRB,6.2890E-04_JPRB,&
+&2.0154E-05_JPRB,3.2488E-06_JPRB,8.5418E-02_JPRB/)
+KAO( :, 3,12,10) = (/&
+&1.5781E-03_JPRB,1.3908E-03_JPRB,1.2052E-03_JPRB,1.0160E-03_JPRB,8.3518E-04_JPRB,6.5087E-04_JPRB,&
+&4.2444E-04_JPRB,1.1529E-05_JPRB,1.5881E-01_JPRB/)
+KAO( :, 4,12,10) = (/&
+&1.5539E-03_JPRB,1.3775E-03_JPRB,1.1979E-03_JPRB,1.0287E-03_JPRB,8.5555E-04_JPRB,6.7702E-04_JPRB,&
+&4.9760E-04_JPRB,3.6698E-05_JPRB,2.7219E-01_JPRB/)
+KAO( :, 5,12,10) = (/&
+&1.5294E-03_JPRB,1.3662E-03_JPRB,1.2069E-03_JPRB,1.0470E-03_JPRB,8.8424E-04_JPRB,7.2459E-04_JPRB,&
+&6.0457E-04_JPRB,5.8830E-04_JPRB,4.3580E-01_JPRB/)
+KAO( :, 1,13,10) = (/&
+&1.8076E-03_JPRB,1.5828E-03_JPRB,1.3613E-03_JPRB,1.1383E-03_JPRB,9.1463E-04_JPRB,6.8299E-04_JPRB,&
+&3.0458E-06_JPRB,2.1473E-06_JPRB,3.9495E-02_JPRB/)
+KAO( :, 2,13,10) = (/&
+&1.7788E-03_JPRB,1.5607E-03_JPRB,1.3444E-03_JPRB,1.1293E-03_JPRB,9.1288E-04_JPRB,6.9366E-04_JPRB,&
+&2.1339E-05_JPRB,1.1723E-05_JPRB,8.1294E-02_JPRB/)
+KAO( :, 3,13,10) = (/&
+&1.7495E-03_JPRB,1.5404E-03_JPRB,1.3343E-03_JPRB,1.1244E-03_JPRB,9.2221E-04_JPRB,7.1955E-04_JPRB,&
+&4.9268E-04_JPRB,4.3370E-06_JPRB,1.5101E-01_JPRB/)
+KAO( :, 4,13,10) = (/&
+&1.7235E-03_JPRB,1.5270E-03_JPRB,1.3269E-03_JPRB,1.1365E-03_JPRB,9.4473E-04_JPRB,7.4612E-04_JPRB,&
+&5.5227E-04_JPRB,4.6866E-05_JPRB,2.5856E-01_JPRB/)
+KAO( :, 5,13,10) = (/&
+&1.6990E-03_JPRB,1.5170E-03_JPRB,1.3368E-03_JPRB,1.1584E-03_JPRB,9.7488E-04_JPRB,7.9318E-04_JPRB,&
+&6.2728E-04_JPRB,5.6960E-04_JPRB,4.1354E-01_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&1.0196E-03_JPRB,9.3758E-04_JPRB,9.0316E-04_JPRB,8.5667E-04_JPRB,8.7577E-04_JPRB,1.0236E-03_JPRB,&
+&1.1763E-03_JPRB,1.3143E-03_JPRB,1.4719E-03_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&1.3459E-03_JPRB,1.2311E-03_JPRB,1.1576E-03_JPRB,1.1100E-03_JPRB,1.2232E-03_JPRB,1.4576E-03_JPRB,&
+&1.6924E-03_JPRB,1.9154E-03_JPRB,2.1488E-03_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&1.7777E-03_JPRB,1.6234E-03_JPRB,1.5128E-03_JPRB,1.4437E-03_JPRB,1.6918E-03_JPRB,2.0373E-03_JPRB,&
+&2.3872E-03_JPRB,2.7172E-03_JPRB,3.0763E-03_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&2.2969E-03_JPRB,2.1117E-03_JPRB,1.9790E-03_JPRB,1.9131E-03_JPRB,2.3134E-03_JPRB,2.7903E-03_JPRB,&
+&3.2537E-03_JPRB,3.7099E-03_JPRB,4.2069E-03_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&2.9364E-03_JPRB,2.7064E-03_JPRB,2.5487E-03_JPRB,2.4995E-03_JPRB,3.0802E-03_JPRB,3.7340E-03_JPRB,&
+&4.3606E-03_JPRB,4.9323E-03_JPRB,5.6150E-03_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&9.5564E-04_JPRB,8.6594E-04_JPRB,8.2247E-04_JPRB,7.8184E-04_JPRB,7.7258E-04_JPRB,8.9065E-04_JPRB,&
+&1.0177E-03_JPRB,1.1498E-03_JPRB,1.2899E-03_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&1.2029E-03_JPRB,1.1043E-03_JPRB,1.0479E-03_JPRB,9.9924E-04_JPRB,1.0917E-03_JPRB,1.3015E-03_JPRB,&
+&1.5067E-03_JPRB,1.7035E-03_JPRB,1.9385E-03_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&1.5957E-03_JPRB,1.4702E-03_JPRB,1.3834E-03_JPRB,1.3292E-03_JPRB,1.5404E-03_JPRB,1.8482E-03_JPRB,&
+&2.1587E-03_JPRB,2.4595E-03_JPRB,2.8087E-03_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&2.0836E-03_JPRB,1.9269E-03_JPRB,1.8210E-03_JPRB,1.7577E-03_JPRB,2.1115E-03_JPRB,2.5490E-03_JPRB,&
+&2.9802E-03_JPRB,3.4053E-03_JPRB,3.8766E-03_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&2.6761E-03_JPRB,2.4830E-03_JPRB,2.3690E-03_JPRB,2.3218E-03_JPRB,2.8435E-03_JPRB,3.4292E-03_JPRB,&
+&4.0478E-03_JPRB,4.5913E-03_JPRB,5.2765E-03_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&9.1098E-04_JPRB,8.1971E-04_JPRB,7.5453E-04_JPRB,6.8955E-04_JPRB,6.6573E-04_JPRB,7.4366E-04_JPRB,&
+&8.3291E-04_JPRB,9.1681E-04_JPRB,1.0507E-03_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&1.0095E-03_JPRB,9.2632E-04_JPRB,8.7912E-04_JPRB,8.5222E-04_JPRB,9.1711E-04_JPRB,1.0796E-03_JPRB,&
+&1.2384E-03_JPRB,1.3937E-03_JPRB,1.6031E-03_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&1.2860E-03_JPRB,1.2005E-03_JPRB,1.1448E-03_JPRB,1.1224E-03_JPRB,1.2896E-03_JPRB,1.5406E-03_JPRB,&
+&1.7947E-03_JPRB,2.0396E-03_JPRB,2.3408E-03_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&1.6840E-03_JPRB,1.5843E-03_JPRB,1.5072E-03_JPRB,1.4946E-03_JPRB,1.7912E-03_JPRB,2.1550E-03_JPRB,&
+&2.5174E-03_JPRB,2.8934E-03_JPRB,3.3321E-03_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&2.1821E-03_JPRB,2.0586E-03_JPRB,1.9862E-03_JPRB,1.9857E-03_JPRB,2.4329E-03_JPRB,2.9479E-03_JPRB,&
+&3.4818E-03_JPRB,3.9625E-03_JPRB,4.5981E-03_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&9.1007E-04_JPRB,8.1515E-04_JPRB,7.4019E-04_JPRB,6.6666E-04_JPRB,6.0223E-04_JPRB,6.1717E-04_JPRB,&
+&6.7688E-04_JPRB,7.1358E-04_JPRB,8.7370E-04_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&9.4061E-04_JPRB,8.5858E-04_JPRB,8.0024E-04_JPRB,7.4707E-04_JPRB,7.7220E-04_JPRB,8.8981E-04_JPRB,&
+&1.0064E-03_JPRB,1.1094E-03_JPRB,1.3491E-03_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&1.0580E-03_JPRB,9.8116E-04_JPRB,9.2713E-04_JPRB,9.3975E-04_JPRB,1.0753E-03_JPRB,1.2664E-03_JPRB,&
+&1.4600E-03_JPRB,1.6482E-03_JPRB,1.9983E-03_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&1.3185E-03_JPRB,1.2651E-03_JPRB,1.2235E-03_JPRB,1.2449E-03_JPRB,1.4893E-03_JPRB,1.7828E-03_JPRB,&
+&2.0723E-03_JPRB,2.3550E-03_JPRB,2.8663E-03_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&1.7012E-03_JPRB,1.6381E-03_JPRB,1.6202E-03_JPRB,1.6478E-03_JPRB,2.0248E-03_JPRB,2.4554E-03_JPRB,&
+&2.8747E-03_JPRB,3.2963E-03_JPRB,4.0058E-03_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&9.4336E-04_JPRB,8.3814E-04_JPRB,7.4599E-04_JPRB,6.5815E-04_JPRB,5.8713E-04_JPRB,5.1959E-04_JPRB,&
+&5.3264E-04_JPRB,5.5247E-04_JPRB,1.0574E-03_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&9.5312E-04_JPRB,8.5894E-04_JPRB,7.8295E-04_JPRB,7.1666E-04_JPRB,6.6657E-04_JPRB,7.2698E-04_JPRB,&
+&8.1350E-04_JPRB,8.9727E-04_JPRB,1.7265E-03_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&9.8083E-04_JPRB,9.0340E-04_JPRB,8.4536E-04_JPRB,8.1479E-04_JPRB,8.9835E-04_JPRB,1.0481E-03_JPRB,&
+&1.2030E-03_JPRB,1.3495E-03_JPRB,2.6645E-03_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&1.0919E-03_JPRB,1.0271E-03_JPRB,9.9432E-04_JPRB,1.0447E-03_JPRB,1.2444E-03_JPRB,1.4845E-03_JPRB,&
+&1.7171E-03_JPRB,1.9373E-03_JPRB,3.9343E-03_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&1.3125E-03_JPRB,1.2964E-03_JPRB,1.3064E-03_JPRB,1.3776E-03_JPRB,1.6940E-03_JPRB,2.0397E-03_JPRB,&
+&2.3911E-03_JPRB,2.7218E-03_JPRB,5.5487E-03_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&1.0191E-03_JPRB,8.9896E-04_JPRB,7.8508E-04_JPRB,6.7831E-04_JPRB,5.7633E-04_JPRB,4.9216E-04_JPRB,&
+&4.0826E-04_JPRB,9.2980E-05_JPRB,1.3931E-03_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&1.0047E-03_JPRB,8.9662E-04_JPRB,8.0205E-04_JPRB,7.1402E-04_JPRB,6.3991E-04_JPRB,5.8384E-04_JPRB,&
+&6.2794E-04_JPRB,6.7696E-04_JPRB,2.3552E-03_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&1.0047E-03_JPRB,9.1475E-04_JPRB,8.3262E-04_JPRB,7.7264E-04_JPRB,7.4682E-04_JPRB,8.3595E-04_JPRB,&
+&9.5189E-04_JPRB,1.0656E-03_JPRB,3.7189E-03_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&1.0246E-03_JPRB,9.4864E-04_JPRB,8.9322E-04_JPRB,8.8690E-04_JPRB,1.0204E-03_JPRB,1.2021E-03_JPRB,&
+&1.3925E-03_JPRB,1.5656E-03_JPRB,5.5692E-03_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&1.1192E-03_JPRB,1.0605E-03_JPRB,1.0485E-03_JPRB,1.1451E-03_JPRB,1.4045E-03_JPRB,1.6858E-03_JPRB,&
+&1.9713E-03_JPRB,2.2360E-03_JPRB,7.9629E-03_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&1.1105E-03_JPRB,9.7554E-04_JPRB,8.4845E-04_JPRB,7.2311E-04_JPRB,5.9822E-04_JPRB,4.8054E-04_JPRB,&
+&3.5912E-04_JPRB,1.6334E-05_JPRB,1.8685E-03_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&1.0953E-03_JPRB,9.7181E-04_JPRB,8.5659E-04_JPRB,7.3634E-04_JPRB,6.3339E-04_JPRB,5.4068E-04_JPRB,&
+&4.8190E-04_JPRB,4.0504E-04_JPRB,3.3171E-03_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&1.0776E-03_JPRB,9.6988E-04_JPRB,8.6596E-04_JPRB,7.7221E-04_JPRB,7.0034E-04_JPRB,6.6772E-04_JPRB,&
+&7.4067E-04_JPRB,8.0814E-04_JPRB,5.4649E-03_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&1.0633E-03_JPRB,9.7163E-04_JPRB,8.9525E-04_JPRB,8.4042E-04_JPRB,8.3803E-04_JPRB,9.5863E-04_JPRB,&
+&1.0998E-03_JPRB,1.2373E-03_JPRB,8.4838E-03_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&1.0727E-03_JPRB,1.0017E-03_JPRB,9.6422E-04_JPRB,9.7682E-04_JPRB,1.1474E-03_JPRB,1.3738E-03_JPRB,&
+&1.6070E-03_JPRB,1.8227E-03_JPRB,1.2477E-02_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&1.2212E-03_JPRB,1.0686E-03_JPRB,9.2776E-04_JPRB,7.8030E-04_JPRB,6.3679E-04_JPRB,4.9028E-04_JPRB,&
+&2.5705E-05_JPRB,3.5598E-06_JPRB,3.0236E-03_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&1.1904E-03_JPRB,1.0515E-03_JPRB,9.1846E-04_JPRB,7.8584E-04_JPRB,6.5098E-04_JPRB,5.2805E-04_JPRB,&
+&4.1417E-04_JPRB,7.4299E-06_JPRB,5.6339E-03_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&1.1656E-03_JPRB,1.0373E-03_JPRB,9.2017E-04_JPRB,7.9903E-04_JPRB,6.9375E-04_JPRB,6.0910E-04_JPRB,&
+&5.7009E-04_JPRB,5.4932E-04_JPRB,9.6178E-03_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&1.1498E-03_JPRB,1.0424E-03_JPRB,9.3266E-04_JPRB,8.4261E-04_JPRB,7.7492E-04_JPRB,7.6691E-04_JPRB,&
+&8.6816E-04_JPRB,9.6408E-04_JPRB,1.5378E-02_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&1.1310E-03_JPRB,1.0416E-03_JPRB,9.7038E-04_JPRB,9.2287E-04_JPRB,9.4475E-04_JPRB,1.1097E-03_JPRB,&
+&1.2928E-03_JPRB,1.4673E-03_JPRB,2.3131E-02_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&1.3346E-03_JPRB,1.1677E-03_JPRB,1.0079E-03_JPRB,8.4634E-04_JPRB,6.8278E-04_JPRB,5.1557E-04_JPRB,&
+&6.2170E-06_JPRB,3.5575E-07_JPRB,9.0278E-03_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&1.3004E-03_JPRB,1.1437E-03_JPRB,9.9288E-04_JPRB,8.4407E-04_JPRB,6.9152E-04_JPRB,5.4161E-04_JPRB,&
+&3.0407E-04_JPRB,7.5811E-06_JPRB,1.7755E-02_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&1.2716E-03_JPRB,1.1282E-03_JPRB,9.9193E-04_JPRB,8.4979E-04_JPRB,7.1877E-04_JPRB,5.8562E-04_JPRB,&
+&4.7440E-04_JPRB,1.3642E-04_JPRB,3.1669E-02_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&1.2493E-03_JPRB,1.1232E-03_JPRB,9.9486E-04_JPRB,8.7574E-04_JPRB,7.6208E-04_JPRB,6.8407E-04_JPRB,&
+&6.7008E-04_JPRB,7.2430E-04_JPRB,5.2322E-02_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&1.2292E-03_JPRB,1.1190E-03_JPRB,1.0123E-03_JPRB,9.2200E-04_JPRB,8.6839E-04_JPRB,8.8671E-04_JPRB,&
+&1.0239E-03_JPRB,1.1645E-03_JPRB,8.1332E-02_JPRB/)
+KAO( :, 1,10,11) = (/&
+&1.4702E-03_JPRB,1.2866E-03_JPRB,1.1046E-03_JPRB,9.2775E-04_JPRB,7.4227E-04_JPRB,5.4877E-04_JPRB,&
+&1.5669E-06_JPRB,2.1750E-07_JPRB,3.1809E-02_JPRB/)
+KAO( :, 2,10,11) = (/&
+&1.4381E-03_JPRB,1.2591E-03_JPRB,1.0910E-03_JPRB,9.1751E-04_JPRB,7.4581E-04_JPRB,5.6956E-04_JPRB,&
+&1.4408E-05_JPRB,2.9977E-06_JPRB,6.5658E-02_JPRB/)
+KAO( :, 3,10,11) = (/&
+&1.4088E-03_JPRB,1.2443E-03_JPRB,1.0832E-03_JPRB,9.2001E-04_JPRB,7.6006E-04_JPRB,6.0163E-04_JPRB,&
+&4.0981E-04_JPRB,3.3752E-06_JPRB,1.2158E-01_JPRB/)
+KAO( :, 4,10,11) = (/&
+&1.3837E-03_JPRB,1.2299E-03_JPRB,1.0785E-03_JPRB,9.3172E-04_JPRB,7.8792E-04_JPRB,6.5978E-04_JPRB,&
+&5.6509E-04_JPRB,4.3870E-04_JPRB,2.0789E-01_JPRB/)
+KAO( :, 5,10,11) = (/&
+&1.3583E-03_JPRB,1.2214E-03_JPRB,1.0847E-03_JPRB,9.6075E-04_JPRB,8.5481E-04_JPRB,7.9082E-04_JPRB,&
+&8.2900E-04_JPRB,9.3239E-04_JPRB,3.3217E-01_JPRB/)
+KAO( :, 1,11,11) = (/&
+&1.6253E-03_JPRB,1.4219E-03_JPRB,1.2219E-03_JPRB,1.0236E-03_JPRB,8.2003E-04_JPRB,6.0541E-04_JPRB,&
+&1.4231E-06_JPRB,1.8071E-07_JPRB,5.4692E-02_JPRB/)
+KAO( :, 2,11,11) = (/&
+&1.5951E-03_JPRB,1.3985E-03_JPRB,1.2081E-03_JPRB,1.0150E-03_JPRB,8.2284E-04_JPRB,6.1646E-04_JPRB,&
+&9.6207E-06_JPRB,2.7452E-06_JPRB,1.1216E-01_JPRB/)
+KAO( :, 3,11,11) = (/&
+&1.5642E-03_JPRB,1.3790E-03_JPRB,1.1965E-03_JPRB,1.0113E-03_JPRB,8.2943E-04_JPRB,6.4775E-04_JPRB,&
+&4.3571E-04_JPRB,8.6785E-06_JPRB,2.0795E-01_JPRB/)
+KAO( :, 4,11,11) = (/&
+&1.5361E-03_JPRB,1.3630E-03_JPRB,1.1895E-03_JPRB,1.0207E-03_JPRB,8.5744E-04_JPRB,7.0323E-04_JPRB,&
+&5.8809E-04_JPRB,4.1682E-04_JPRB,3.5571E-01_JPRB/)
+KAO( :, 5,11,11) = (/&
+&1.5066E-03_JPRB,1.3488E-03_JPRB,1.1930E-03_JPRB,1.0481E-03_JPRB,9.1295E-04_JPRB,8.2679E-04_JPRB,&
+&8.2109E-04_JPRB,9.1792E-04_JPRB,5.7120E-01_JPRB/)
+KAO( :, 1,12,11) = (/&
+&1.8041E-03_JPRB,1.5789E-03_JPRB,1.3570E-03_JPRB,1.1389E-03_JPRB,9.1257E-04_JPRB,6.7888E-04_JPRB,&
+&5.1658E-06_JPRB,1.5829E-07_JPRB,6.8561E-02_JPRB/)
+KAO( :, 2,12,11) = (/&
+&1.7738E-03_JPRB,1.5558E-03_JPRB,1.3438E-03_JPRB,1.1292E-03_JPRB,9.1436E-04_JPRB,6.9573E-04_JPRB,&
+&2.0820E-05_JPRB,3.7433E-06_JPRB,1.4057E-01_JPRB/)
+KAO( :, 3,12,11) = (/&
+&1.7418E-03_JPRB,1.5353E-03_JPRB,1.3329E-03_JPRB,1.1261E-03_JPRB,9.2270E-04_JPRB,7.2358E-04_JPRB,&
+&4.7954E-04_JPRB,1.5535E-05_JPRB,2.6118E-01_JPRB/)
+KAO( :, 4,12,11) = (/&
+&1.7090E-03_JPRB,1.5180E-03_JPRB,1.3238E-03_JPRB,1.1375E-03_JPRB,9.5111E-04_JPRB,7.6548E-04_JPRB,&
+&6.0636E-04_JPRB,4.1209E-04_JPRB,4.4778E-01_JPRB/)
+KAO( :, 5,12,11) = (/&
+&1.6778E-03_JPRB,1.5017E-03_JPRB,1.3263E-03_JPRB,1.1626E-03_JPRB,9.9449E-04_JPRB,8.6348E-04_JPRB,&
+&8.1707E-04_JPRB,9.1552E-04_JPRB,7.1823E-01_JPRB/)
+KAO( :, 1,13,11) = (/&
+&2.0162E-03_JPRB,1.7643E-03_JPRB,1.5166E-03_JPRB,1.2707E-03_JPRB,1.0200E-03_JPRB,7.6409E-04_JPRB,&
+&1.3933E-06_JPRB,1.3814E-07_JPRB,6.7541E-02_JPRB/)
+KAO( :, 2,13,11) = (/&
+&1.9804E-03_JPRB,1.7378E-03_JPRB,1.5003E-03_JPRB,1.2598E-03_JPRB,1.0208E-03_JPRB,7.7583E-04_JPRB,&
+&1.0519E-04_JPRB,2.9677E-05_JPRB,1.3898E-01_JPRB/)
+KAO( :, 3,13,11) = (/&
+&1.9463E-03_JPRB,1.7141E-03_JPRB,1.4887E-03_JPRB,1.2580E-03_JPRB,1.0319E-03_JPRB,8.0958E-04_JPRB,&
+&5.4607E-04_JPRB,8.2236E-06_JPRB,2.5839E-01_JPRB/)
+KAO( :, 4,13,11) = (/&
+&1.9119E-03_JPRB,1.6986E-03_JPRB,1.4811E-03_JPRB,1.2741E-03_JPRB,1.0665E-03_JPRB,8.4965E-04_JPRB,&
+&6.3669E-04_JPRB,4.3144E-04_JPRB,4.4372E-01_JPRB/)
+KAO( :, 5,13,11) = (/&
+&1.8807E-03_JPRB,1.6835E-03_JPRB,1.4885E-03_JPRB,1.3024E-03_JPRB,1.1081E-03_JPRB,9.2308E-04_JPRB,&
+&8.2856E-04_JPRB,9.1296E-04_JPRB,7.1076E-01_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&1.1348E-03_JPRB,1.0512E-03_JPRB,1.0112E-03_JPRB,1.0380E-03_JPRB,1.2591E-03_JPRB,1.5034E-03_JPRB,&
+&1.7458E-03_JPRB,1.9916E-03_JPRB,2.2515E-03_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&1.4497E-03_JPRB,1.3258E-03_JPRB,1.2902E-03_JPRB,1.3933E-03_JPRB,1.7402E-03_JPRB,2.0749E-03_JPRB,&
+&2.4232E-03_JPRB,2.7843E-03_JPRB,3.1336E-03_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&1.9087E-03_JPRB,1.7431E-03_JPRB,1.6616E-03_JPRB,1.8437E-03_JPRB,2.3259E-03_JPRB,2.8106E-03_JPRB,&
+&3.3232E-03_JPRB,3.7674E-03_JPRB,4.2777E-03_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&2.5088E-03_JPRB,2.2929E-03_JPRB,2.1415E-03_JPRB,2.4320E-03_JPRB,3.0901E-03_JPRB,3.7563E-03_JPRB,&
+&4.4295E-03_JPRB,5.0514E-03_JPRB,5.7435E-03_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&3.2224E-03_JPRB,2.9512E-03_JPRB,2.7375E-03_JPRB,3.2055E-03_JPRB,4.1147E-03_JPRB,5.0116E-03_JPRB,&
+&5.9163E-03_JPRB,6.7642E-03_JPRB,7.7486E-03_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&1.0492E-03_JPRB,9.6475E-04_JPRB,9.4375E-04_JPRB,9.3817E-04_JPRB,1.1146E-03_JPRB,1.3292E-03_JPRB,&
+&1.5275E-03_JPRB,1.7383E-03_JPRB,1.9763E-03_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&1.3114E-03_JPRB,1.2057E-03_JPRB,1.1899E-03_JPRB,1.2587E-03_JPRB,1.5556E-03_JPRB,1.8745E-03_JPRB,&
+&2.1716E-03_JPRB,2.4737E-03_JPRB,2.8199E-03_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&1.7413E-03_JPRB,1.5927E-03_JPRB,1.5301E-03_JPRB,1.6869E-03_JPRB,2.1324E-03_JPRB,2.5756E-03_JPRB,&
+&3.0059E-03_JPRB,3.4270E-03_JPRB,3.9244E-03_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&2.2840E-03_JPRB,2.1084E-03_JPRB,1.9850E-03_JPRB,2.2595E-03_JPRB,2.8933E-03_JPRB,3.5203E-03_JPRB,&
+&4.1407E-03_JPRB,4.7114E-03_JPRB,5.4047E-03_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&2.9533E-03_JPRB,2.7476E-03_JPRB,2.5658E-03_JPRB,3.0087E-03_JPRB,3.8774E-03_JPRB,4.7340E-03_JPRB,&
+&5.5746E-03_JPRB,6.3471E-03_JPRB,7.3465E-03_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&9.8854E-04_JPRB,8.9343E-04_JPRB,8.4035E-04_JPRB,7.9923E-04_JPRB,8.9609E-04_JPRB,1.0622E-03_JPRB,&
+&1.2115E-03_JPRB,1.3909E-03_JPRB,1.5813E-03_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&1.0879E-03_JPRB,1.0117E-03_JPRB,1.0134E-03_JPRB,1.0514E-03_JPRB,1.2838E-03_JPRB,1.5374E-03_JPRB,&
+&1.7938E-03_JPRB,2.0363E-03_JPRB,2.3508E-03_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&1.4163E-03_JPRB,1.3226E-03_JPRB,1.2897E-03_JPRB,1.4327E-03_JPRB,1.8163E-03_JPRB,2.1941E-03_JPRB,&
+&2.5686E-03_JPRB,2.9319E-03_JPRB,3.4012E-03_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&1.8714E-03_JPRB,1.7493E-03_JPRB,1.6791E-03_JPRB,1.9710E-03_JPRB,2.5266E-03_JPRB,3.0817E-03_JPRB,&
+&3.6203E-03_JPRB,4.1272E-03_JPRB,4.8320E-03_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&2.4278E-03_JPRB,2.3027E-03_JPRB,2.1923E-03_JPRB,2.6689E-03_JPRB,3.4381E-03_JPRB,4.1969E-03_JPRB,&
+&4.9576E-03_JPRB,5.6521E-03_JPRB,6.6247E-03_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&9.8669E-04_JPRB,8.8509E-04_JPRB,8.1352E-04_JPRB,7.2996E-04_JPRB,7.1817E-04_JPRB,8.1881E-04_JPRB,&
+&9.2748E-04_JPRB,1.0403E-03_JPRB,1.2116E-03_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&1.0290E-03_JPRB,9.4426E-04_JPRB,8.9000E-04_JPRB,8.7285E-04_JPRB,1.0287E-03_JPRB,1.2254E-03_JPRB,&
+&1.4193E-03_JPRB,1.6044E-03_JPRB,1.8734E-03_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&1.1436E-03_JPRB,1.0840E-03_JPRB,1.0833E-03_JPRB,1.1914E-03_JPRB,1.4983E-03_JPRB,1.8005E-03_JPRB,&
+&2.1029E-03_JPRB,2.3872E-03_JPRB,2.8182E-03_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&1.4872E-03_JPRB,1.4093E-03_JPRB,1.3825E-03_JPRB,1.6613E-03_JPRB,2.1282E-03_JPRB,2.5939E-03_JPRB,&
+&3.0338E-03_JPRB,3.4691E-03_JPRB,4.1139E-03_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&1.9382E-03_JPRB,1.8528E-03_JPRB,1.8277E-03_JPRB,2.2907E-03_JPRB,2.9502E-03_JPRB,3.6113E-03_JPRB,&
+&4.2678E-03_JPRB,4.8667E-03_JPRB,5.7453E-03_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&1.0261E-03_JPRB,9.1725E-04_JPRB,8.2759E-04_JPRB,7.3874E-04_JPRB,6.4512E-04_JPRB,6.5305E-04_JPRB,&
+&7.2025E-04_JPRB,7.5251E-04_JPRB,1.2236E-03_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&1.0342E-03_JPRB,9.3335E-04_JPRB,8.6180E-04_JPRB,7.8962E-04_JPRB,8.4539E-04_JPRB,9.8224E-04_JPRB,&
+&1.1196E-03_JPRB,1.2424E-03_JPRB,1.9823E-03_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&1.0684E-03_JPRB,1.0038E-03_JPRB,9.4286E-04_JPRB,9.9237E-04_JPRB,1.2238E-03_JPRB,1.4671E-03_JPRB,&
+&1.7012E-03_JPRB,1.9194E-03_JPRB,3.0657E-03_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&1.1964E-03_JPRB,1.1404E-03_JPRB,1.1495E-03_JPRB,1.3909E-03_JPRB,1.7635E-03_JPRB,2.1391E-03_JPRB,&
+&2.5166E-03_JPRB,2.8551E-03_JPRB,4.5233E-03_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&1.5188E-03_JPRB,1.4742E-03_JPRB,1.5113E-03_JPRB,1.9296E-03_JPRB,2.4758E-03_JPRB,3.0285E-03_JPRB,&
+&3.5691E-03_JPRB,4.1028E-03_JPRB,6.4627E-03_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&1.1049E-03_JPRB,9.7887E-04_JPRB,8.6230E-04_JPRB,7.6209E-04_JPRB,6.5337E-04_JPRB,5.5666E-04_JPRB,&
+&5.5642E-04_JPRB,4.3457E-04_JPRB,1.6601E-03_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&1.0940E-03_JPRB,9.8241E-04_JPRB,8.8704E-04_JPRB,7.8683E-04_JPRB,7.2565E-04_JPRB,7.9447E-04_JPRB,&
+&8.9119E-04_JPRB,9.6573E-04_JPRB,2.8308E-03_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&1.0875E-03_JPRB,9.9703E-04_JPRB,9.2009E-04_JPRB,8.7195E-04_JPRB,1.0022E-03_JPRB,1.1888E-03_JPRB,&
+&1.3628E-03_JPRB,1.5154E-03_JPRB,4.5116E-03_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&1.1159E-03_JPRB,1.0443E-03_JPRB,1.0086E-03_JPRB,1.1512E-03_JPRB,1.4495E-03_JPRB,1.7437E-03_JPRB,&
+&2.0380E-03_JPRB,2.2956E-03_JPRB,6.7993E-03_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&1.2286E-03_JPRB,1.1769E-03_JPRB,1.2461E-03_JPRB,1.5980E-03_JPRB,2.0421E-03_JPRB,2.4961E-03_JPRB,&
+&2.9289E-03_JPRB,3.3559E-03_JPRB,9.7752E-03_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&1.2137E-03_JPRB,1.0668E-03_JPRB,9.3381E-04_JPRB,8.0126E-04_JPRB,6.7255E-04_JPRB,5.4820E-04_JPRB,&
+&4.1640E-04_JPRB,3.0869E-05_JPRB,2.3413E-03_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&1.1848E-03_JPRB,1.0517E-03_JPRB,9.3479E-04_JPRB,8.1727E-04_JPRB,7.1224E-04_JPRB,6.5078E-04_JPRB,&
+&7.0341E-04_JPRB,7.0961E-04_JPRB,4.1815E-03_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&1.1720E-03_JPRB,1.0531E-03_JPRB,9.4856E-04_JPRB,8.6129E-04_JPRB,8.4208E-04_JPRB,9.5854E-04_JPRB,&
+&1.0943E-03_JPRB,1.2041E-03_JPRB,6.9208E-03_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&1.1592E-03_JPRB,1.0754E-03_JPRB,9.9552E-04_JPRB,9.9504E-04_JPRB,1.1919E-03_JPRB,1.4256E-03_JPRB,&
+&1.6531E-03_JPRB,1.8455E-03_JPRB,1.0828E-02_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&1.1731E-03_JPRB,1.1101E-03_JPRB,1.1084E-03_JPRB,1.3320E-03_JPRB,1.6974E-03_JPRB,2.0528E-03_JPRB,&
+&2.4023E-03_JPRB,2.7339E-03_JPRB,1.6080E-02_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&1.3302E-03_JPRB,1.1658E-03_JPRB,1.0139E-03_JPRB,8.5656E-04_JPRB,7.0725E-04_JPRB,5.4905E-04_JPRB,&
+&1.6082E-04_JPRB,2.8484E-07_JPRB,3.9959E-03_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&1.3004E-03_JPRB,1.1467E-03_JPRB,1.0012E-03_JPRB,8.6385E-04_JPRB,7.2504E-04_JPRB,6.1282E-04_JPRB,&
+&5.3057E-04_JPRB,1.6656E-04_JPRB,7.5095E-03_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&1.2723E-03_JPRB,1.1332E-03_JPRB,1.0084E-03_JPRB,8.8648E-04_JPRB,8.0497E-04_JPRB,7.6904E-04_JPRB,&
+&8.5886E-04_JPRB,9.3436E-04_JPRB,1.2956E-02_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&1.2504E-03_JPRB,1.1361E-03_JPRB,1.0320E-03_JPRB,9.6671E-04_JPRB,9.9043E-04_JPRB,1.1533E-03_JPRB,&
+&1.3325E-03_JPRB,1.4846E-03_JPRB,2.0833E-02_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&1.2393E-03_JPRB,1.1508E-03_JPRB,1.0962E-03_JPRB,1.1509E-03_JPRB,1.4064E-03_JPRB,1.6900E-03_JPRB,&
+&1.9737E-03_JPRB,2.2347E-03_JPRB,3.1620E-02_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&1.4663E-03_JPRB,1.2845E-03_JPRB,1.1076E-03_JPRB,9.3469E-04_JPRB,7.5727E-04_JPRB,5.8307E-04_JPRB,&
+&1.6145E-06_JPRB,2.0592E-07_JPRB,1.2575E-02_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&1.4356E-03_JPRB,1.2615E-03_JPRB,1.0955E-03_JPRB,9.3110E-04_JPRB,7.6732E-04_JPRB,6.0757E-04_JPRB,&
+&4.4742E-04_JPRB,4.9464E-06_JPRB,2.4960E-02_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&1.4052E-03_JPRB,1.2435E-03_JPRB,1.0940E-03_JPRB,9.3756E-04_JPRB,8.0269E-04_JPRB,7.0533E-04_JPRB,&
+&6.6208E-04_JPRB,5.9691E-04_JPRB,4.4947E-02_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&1.3734E-03_JPRB,1.2333E-03_JPRB,1.0941E-03_JPRB,9.8345E-04_JPRB,9.2035E-04_JPRB,9.1976E-04_JPRB,&
+&1.0530E-03_JPRB,1.1532E-03_JPRB,7.5044E-02_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&1.3495E-03_JPRB,1.2289E-03_JPRB,1.1320E-03_JPRB,1.1073E-03_JPRB,1.1561E-03_JPRB,1.3692E-03_JPRB,&
+&1.6014E-03_JPRB,1.8055E-03_JPRB,1.1730E-01_JPRB/)
+KAO( :, 1,10,12) = (/&
+&1.6187E-03_JPRB,1.4174E-03_JPRB,1.2153E-03_JPRB,1.0239E-03_JPRB,8.2814E-04_JPRB,6.1453E-04_JPRB,&
+&6.9444E-06_JPRB,1.3528E-07_JPRB,4.6442E-02_JPRB/)
+KAO( :, 2,10,12) = (/&
+&1.5845E-03_JPRB,1.3876E-03_JPRB,1.2040E-03_JPRB,1.0153E-03_JPRB,8.2732E-04_JPRB,6.3066E-04_JPRB,&
+&6.0414E-06_JPRB,2.4038E-07_JPRB,9.7061E-02_JPRB/)
+KAO( :, 3,10,12) = (/&
+&1.5496E-03_JPRB,1.3649E-03_JPRB,1.1919E-03_JPRB,1.0167E-03_JPRB,8.3828E-04_JPRB,6.9321E-04_JPRB,&
+&5.6244E-04_JPRB,1.6180E-05_JPRB,1.8182E-01_JPRB/)
+KAO( :, 4,10,12) = (/&
+&1.5143E-03_JPRB,1.3460E-03_JPRB,1.1894E-03_JPRB,1.0321E-03_JPRB,9.2147E-04_JPRB,8.3365E-04_JPRB,&
+&8.4635E-04_JPRB,8.9521E-04_JPRB,3.1352E-01_JPRB/)
+KAO( :, 5,10,12) = (/&
+&1.4834E-03_JPRB,1.3403E-03_JPRB,1.2022E-03_JPRB,1.1224E-03_JPRB,1.0739E-03_JPRB,1.1316E-03_JPRB,&
+&1.3218E-03_JPRB,1.4837E-03_JPRB,5.0232E-01_JPRB/)
+KAO( :, 1,11,12) = (/&
+&1.7757E-03_JPRB,1.5541E-03_JPRB,1.3331E-03_JPRB,1.1222E-03_JPRB,9.0093E-04_JPRB,6.6092E-04_JPRB,&
+&2.1249E-07_JPRB,1.1902E-07_JPRB,8.4989E-02_JPRB/)
+KAO( :, 2,11,12) = (/&
+&1.7401E-03_JPRB,1.5236E-03_JPRB,1.3209E-03_JPRB,1.1131E-03_JPRB,9.0551E-04_JPRB,6.8456E-04_JPRB,&
+&5.0849E-06_JPRB,2.2480E-07_JPRB,1.7663E-01_JPRB/)
+KAO( :, 3,11,12) = (/&
+&1.7062E-03_JPRB,1.5022E-03_JPRB,1.3117E-03_JPRB,1.1165E-03_JPRB,9.1999E-04_JPRB,7.4783E-04_JPRB,&
+&5.9186E-04_JPRB,1.9217E-05_JPRB,3.2957E-01_JPRB/)
+KAO( :, 4,11,12) = (/&
+&1.6714E-03_JPRB,1.4855E-03_JPRB,1.3084E-03_JPRB,1.1327E-03_JPRB,9.9341E-04_JPRB,8.8882E-04_JPRB,&
+&8.4081E-04_JPRB,8.6421E-04_JPRB,5.6545E-01_JPRB/)
+KAO( :, 5,11,12) = (/&
+&1.6419E-03_JPRB,1.4793E-03_JPRB,1.3196E-03_JPRB,1.2145E-03_JPRB,1.1433E-03_JPRB,1.1424E-03_JPRB,&
+&1.3148E-03_JPRB,1.4973E-03_JPRB,9.0555E-01_JPRB/)
+KAO( :, 1,12,12) = (/&
+&1.9873E-03_JPRB,1.7393E-03_JPRB,1.4928E-03_JPRB,1.2520E-03_JPRB,1.0061E-03_JPRB,7.4569E-04_JPRB,&
+&3.5180E-06_JPRB,1.0587E-07_JPRB,1.1338E-01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&1.9520E-03_JPRB,1.7112E-03_JPRB,1.4785E-03_JPRB,1.2437E-03_JPRB,1.0101E-03_JPRB,7.5903E-04_JPRB,&
+&1.0775E-04_JPRB,2.1135E-07_JPRB,2.3445E-01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&1.9174E-03_JPRB,1.6867E-03_JPRB,1.4681E-03_JPRB,1.2458E-03_JPRB,1.0238E-03_JPRB,8.1622E-04_JPRB,&
+&6.4203E-04_JPRB,3.7377E-05_JPRB,4.3560E-01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&1.8834E-03_JPRB,1.6709E-03_JPRB,1.4657E-03_JPRB,1.2628E-03_JPRB,1.0856E-03_JPRB,9.4862E-04_JPRB,&
+&8.6085E-04_JPRB,8.9434E-04_JPRB,7.4512E-01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&1.8486E-03_JPRB,1.6625E-03_JPRB,1.4769E-03_JPRB,1.3298E-03_JPRB,1.2184E-03_JPRB,1.1740E-03_JPRB,&
+&1.3120E-03_JPRB,1.5054E-03_JPRB,1.1919E+00_JPRB/)
+KAO( :, 1,13,12) = (/&
+&2.2427E-03_JPRB,1.9626E-03_JPRB,1.6858E-03_JPRB,1.4123E-03_JPRB,1.1345E-03_JPRB,8.4814E-04_JPRB,&
+&1.1187E-05_JPRB,1.0167E-07_JPRB,1.1866E-01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&2.2124E-03_JPRB,1.9395E-03_JPRB,1.6734E-03_JPRB,1.4094E-03_JPRB,1.1421E-03_JPRB,8.6480E-04_JPRB,&
+&5.2696E-04_JPRB,2.8959E-06_JPRB,2.4434E-01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&2.1775E-03_JPRB,1.9152E-03_JPRB,1.6674E-03_JPRB,1.4121E-03_JPRB,1.1577E-03_JPRB,9.1193E-04_JPRB,&
+&6.8708E-04_JPRB,6.0943E-05_JPRB,4.5287E-01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&2.1409E-03_JPRB,1.8984E-03_JPRB,1.6628E-03_JPRB,1.4290E-03_JPRB,1.2050E-03_JPRB,1.0161E-03_JPRB,&
+&8.8642E-04_JPRB,9.0231E-04_JPRB,7.7451E-01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&2.1006E-03_JPRB,1.8859E-03_JPRB,1.6731E-03_JPRB,1.4783E-03_JPRB,1.3081E-03_JPRB,1.2199E-03_JPRB,&
+&1.3045E-03_JPRB,1.5082E-03_JPRB,1.2405E+00_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&1.2739E-03_JPRB,1.1824E-03_JPRB,1.1666E-03_JPRB,1.5366E-03_JPRB,1.9783E-03_JPRB,2.4169E-03_JPRB,&
+&2.8580E-03_JPRB,3.2493E-03_JPRB,3.6912E-03_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&1.5764E-03_JPRB,1.4796E-03_JPRB,1.5934E-03_JPRB,2.2153E-03_JPRB,2.8682E-03_JPRB,3.5161E-03_JPRB,&
+&4.1531E-03_JPRB,4.7522E-03_JPRB,5.3893E-03_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&2.0474E-03_JPRB,1.8907E-03_JPRB,2.1514E-03_JPRB,3.0567E-03_JPRB,3.9747E-03_JPRB,4.8887E-03_JPRB,&
+&5.7686E-03_JPRB,6.5999E-03_JPRB,7.5144E-03_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&2.6856E-03_JPRB,2.4413E-03_JPRB,2.8242E-03_JPRB,4.0342E-03_JPRB,5.3078E-03_JPRB,6.5325E-03_JPRB,&
+&7.7349E-03_JPRB,8.8443E-03_JPRB,1.0074E-02_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&3.4590E-03_JPRB,3.1378E-03_JPRB,3.6496E-03_JPRB,5.2809E-03_JPRB,6.8982E-03_JPRB,8.3727E-03_JPRB,&
+&9.9335E-03_JPRB,1.1522E-02_JPRB,1.3097E-02_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&1.1866E-03_JPRB,1.1005E-03_JPRB,1.0888E-03_JPRB,1.4004E-03_JPRB,1.7886E-03_JPRB,2.1767E-03_JPRB,&
+&2.5570E-03_JPRB,2.9296E-03_JPRB,3.3601E-03_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&1.4562E-03_JPRB,1.3635E-03_JPRB,1.4719E-03_JPRB,2.0169E-03_JPRB,2.6032E-03_JPRB,3.1819E-03_JPRB,&
+&3.7488E-03_JPRB,4.3087E-03_JPRB,4.9192E-03_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&1.8764E-03_JPRB,1.7361E-03_JPRB,1.9709E-03_JPRB,2.7595E-03_JPRB,3.5900E-03_JPRB,4.4194E-03_JPRB,&
+&5.2979E-03_JPRB,6.0766E-03_JPRB,6.9371E-03_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&2.4859E-03_JPRB,2.2733E-03_JPRB,2.5962E-03_JPRB,3.6933E-03_JPRB,4.8528E-03_JPRB,5.9853E-03_JPRB,&
+&7.0801E-03_JPRB,8.2323E-03_JPRB,9.3999E-03_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&3.2381E-03_JPRB,2.9580E-03_JPRB,3.3897E-03_JPRB,4.8434E-03_JPRB,6.3274E-03_JPRB,7.7660E-03_JPRB,&
+&9.2016E-03_JPRB,1.0766E-02_JPRB,1.2382E-02_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&1.0869E-03_JPRB,9.8978E-04_JPRB,9.6295E-04_JPRB,1.1603E-03_JPRB,1.4657E-03_JPRB,1.7785E-03_JPRB,&
+&2.0850E-03_JPRB,2.3589E-03_JPRB,2.7295E-03_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&1.2497E-03_JPRB,1.1652E-03_JPRB,1.2498E-03_JPRB,1.6617E-03_JPRB,2.1329E-03_JPRB,2.6212E-03_JPRB,&
+&3.0709E-03_JPRB,3.5231E-03_JPRB,4.1120E-03_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&1.5536E-03_JPRB,1.4627E-03_JPRB,1.6643E-03_JPRB,2.3266E-03_JPRB,3.0120E-03_JPRB,3.7022E-03_JPRB,&
+&4.3567E-03_JPRB,5.0579E-03_JPRB,5.8139E-03_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&2.0446E-03_JPRB,1.9153E-03_JPRB,2.2001E-03_JPRB,3.1214E-03_JPRB,4.0764E-03_JPRB,5.0190E-03_JPRB,&
+&6.0061E-03_JPRB,6.9576E-03_JPRB,7.9493E-03_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&2.6968E-03_JPRB,2.5178E-03_JPRB,2.9045E-03_JPRB,4.1585E-03_JPRB,5.4384E-03_JPRB,6.6732E-03_JPRB,&
+&7.9956E-03_JPRB,9.1997E-03_JPRB,1.0739E-02_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&1.0799E-03_JPRB,9.7556E-04_JPRB,8.9641E-04_JPRB,9.5375E-04_JPRB,1.1834E-03_JPRB,1.4206E-03_JPRB,&
+&1.6456E-03_JPRB,1.8574E-03_JPRB,2.1783E-03_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&1.1355E-03_JPRB,1.0374E-03_JPRB,1.0646E-03_JPRB,1.3628E-03_JPRB,1.7241E-03_JPRB,2.0900E-03_JPRB,&
+&2.4594E-03_JPRB,2.8248E-03_JPRB,3.3135E-03_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&1.2900E-03_JPRB,1.2405E-03_JPRB,1.3881E-03_JPRB,1.9129E-03_JPRB,2.4612E-03_JPRB,3.0202E-03_JPRB,&
+&3.5514E-03_JPRB,4.1507E-03_JPRB,4.7512E-03_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&1.6429E-03_JPRB,1.5804E-03_JPRB,1.8599E-03_JPRB,2.6280E-03_JPRB,3.3944E-03_JPRB,4.1721E-03_JPRB,&
+&4.9786E-03_JPRB,5.7576E-03_JPRB,6.6384E-03_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&2.1595E-03_JPRB,2.0705E-03_JPRB,2.4561E-03_JPRB,3.5243E-03_JPRB,4.6000E-03_JPRB,5.6864E-03_JPRB,&
+&6.7238E-03_JPRB,7.7228E-03_JPRB,9.0563E-03_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&1.1289E-03_JPRB,1.0122E-03_JPRB,9.1285E-04_JPRB,8.4241E-04_JPRB,9.2546E-04_JPRB,1.1068E-03_JPRB,&
+&1.2785E-03_JPRB,1.4321E-03_JPRB,1.7133E-03_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&1.1322E-03_JPRB,1.0283E-03_JPRB,9.7216E-04_JPRB,1.1030E-03_JPRB,1.3905E-03_JPRB,1.6648E-03_JPRB,&
+&1.9659E-03_JPRB,2.2474E-03_JPRB,2.6825E-03_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&1.1835E-03_JPRB,1.1059E-03_JPRB,1.1769E-03_JPRB,1.5659E-03_JPRB,1.9991E-03_JPRB,2.4574E-03_JPRB,&
+&2.8892E-03_JPRB,3.3463E-03_JPRB,3.9939E-03_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&1.3233E-03_JPRB,1.3123E-03_JPRB,1.5693E-03_JPRB,2.1884E-03_JPRB,2.8269E-03_JPRB,3.4574E-03_JPRB,&
+&4.1167E-03_JPRB,4.7382E-03_JPRB,5.7495E-03_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&1.7059E-03_JPRB,1.6691E-03_JPRB,2.0917E-03_JPRB,2.9965E-03_JPRB,3.8855E-03_JPRB,4.8207E-03_JPRB,&
+&5.6559E-03_JPRB,6.5131E-03_JPRB,7.9790E-03_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&1.2255E-03_JPRB,1.0879E-03_JPRB,9.6530E-04_JPRB,8.5617E-04_JPRB,7.6660E-04_JPRB,8.1723E-04_JPRB,&
+&9.3534E-04_JPRB,1.0402E-03_JPRB,1.9062E-03_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&1.1965E-03_JPRB,1.0719E-03_JPRB,9.9849E-04_JPRB,9.4121E-04_JPRB,1.0795E-03_JPRB,1.2813E-03_JPRB,&
+&1.4997E-03_JPRB,1.7132E-03_JPRB,3.2547E-03_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&1.1926E-03_JPRB,1.1043E-03_JPRB,1.0603E-03_JPRB,1.2688E-03_JPRB,1.5962E-03_JPRB,1.9526E-03_JPRB,&
+&2.2912E-03_JPRB,2.6142E-03_JPRB,5.2095E-03_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&1.2240E-03_JPRB,1.1777E-03_JPRB,1.3174E-03_JPRB,1.8087E-03_JPRB,2.3347E-03_JPRB,2.8437E-03_JPRB,&
+&3.3597E-03_JPRB,3.8303E-03_JPRB,7.9481E-03_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&1.3458E-03_JPRB,1.3554E-03_JPRB,1.7833E-03_JPRB,2.5412E-03_JPRB,3.2833E-03_JPRB,4.0389E-03_JPRB,&
+&4.7385E-03_JPRB,5.4113E-03_JPRB,1.1516E-02_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&1.3402E-03_JPRB,1.1742E-03_JPRB,1.0361E-03_JPRB,8.9910E-04_JPRB,7.6679E-04_JPRB,6.5368E-04_JPRB,&
+&6.8075E-04_JPRB,4.6956E-04_JPRB,2.7722E-03_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&1.3037E-03_JPRB,1.1622E-03_JPRB,1.0519E-03_JPRB,9.4323E-04_JPRB,8.7488E-04_JPRB,9.7401E-04_JPRB,&
+&1.1211E-03_JPRB,1.2635E-03_JPRB,5.0027E-03_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&1.2784E-03_JPRB,1.1532E-03_JPRB,1.0893E-03_JPRB,1.0694E-03_JPRB,1.2699E-03_JPRB,1.5175E-03_JPRB,&
+&1.7746E-03_JPRB,2.0272E-03_JPRB,8.3555E-03_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&1.2774E-03_JPRB,1.1979E-03_JPRB,1.1860E-03_JPRB,1.4785E-03_JPRB,1.8884E-03_JPRB,2.2924E-03_JPRB,&
+&2.6858E-03_JPRB,3.0881E-03_JPRB,1.3125E-02_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&1.2892E-03_JPRB,1.2565E-03_JPRB,1.5103E-03_JPRB,2.1215E-03_JPRB,2.7429E-03_JPRB,3.3579E-03_JPRB,&
+&3.9536E-03_JPRB,4.4822E-03_JPRB,1.9541E-02_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&1.4772E-03_JPRB,1.2923E-03_JPRB,1.1263E-03_JPRB,9.6270E-04_JPRB,8.0241E-04_JPRB,6.4872E-04_JPRB,&
+&4.5811E-04_JPRB,2.1716E-07_JPRB,4.9636E-03_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&1.4370E-03_JPRB,1.2729E-03_JPRB,1.1241E-03_JPRB,9.9655E-04_JPRB,8.5931E-04_JPRB,7.7387E-04_JPRB,&
+&8.4353E-04_JPRB,8.7711E-04_JPRB,9.4321E-03_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&1.4034E-03_JPRB,1.2585E-03_JPRB,1.1607E-03_JPRB,1.0510E-03_JPRB,1.0272E-03_JPRB,1.1868E-03_JPRB,&
+&1.3711E-03_JPRB,1.5476E-03_JPRB,1.6446E-02_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&1.3792E-03_JPRB,1.2775E-03_JPRB,1.2067E-03_JPRB,1.2391E-03_JPRB,1.5156E-03_JPRB,1.8221E-03_JPRB,&
+&2.1295E-03_JPRB,2.4428E-03_JPRB,2.6678E-02_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&1.3692E-03_JPRB,1.3040E-03_JPRB,1.3510E-03_JPRB,1.7655E-03_JPRB,2.2564E-03_JPRB,2.7486E-03_JPRB,&
+&3.2245E-03_JPRB,3.6702E-03_JPRB,4.0890E-02_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&1.6318E-03_JPRB,1.4281E-03_JPRB,1.2324E-03_JPRB,1.0452E-03_JPRB,8.5200E-04_JPRB,6.6304E-04_JPRB,&
+&1.2309E-05_JPRB,1.5379E-07_JPRB,1.6381E-02_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&1.5875E-03_JPRB,1.3936E-03_JPRB,1.2247E-03_JPRB,1.0563E-03_JPRB,9.0066E-04_JPRB,7.3338E-04_JPRB,&
+&6.0228E-04_JPRB,1.0871E-04_JPRB,3.2932E-02_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&1.5482E-03_JPRB,1.3786E-03_JPRB,1.2438E-03_JPRB,1.1136E-03_JPRB,9.6991E-04_JPRB,9.4000E-04_JPRB,&
+&1.0591E-03_JPRB,1.1303E-03_JPRB,6.0073E-02_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&1.5167E-03_JPRB,1.3746E-03_JPRB,1.2857E-03_JPRB,1.1928E-03_JPRB,1.2413E-03_JPRB,1.4696E-03_JPRB,&
+&1.6946E-03_JPRB,1.9089E-03_JPRB,1.0132E-01_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&1.4899E-03_JPRB,1.4080E-03_JPRB,1.3636E-03_JPRB,1.4825E-03_JPRB,1.8628E-03_JPRB,2.2533E-03_JPRB,&
+&2.6127E-03_JPRB,2.9482E-03_JPRB,1.5979E-01_JPRB/)
+KAO( :, 1,10,13) = (/&
+&1.8020E-03_JPRB,1.5774E-03_JPRB,1.3520E-03_JPRB,1.1382E-03_JPRB,9.2570E-04_JPRB,6.9265E-04_JPRB,&
+&1.3740E-07_JPRB,1.3289E-07_JPRB,6.3524E-02_JPRB/)
+KAO( :, 2,10,13) = (/&
+&1.7549E-03_JPRB,1.5358E-03_JPRB,1.3388E-03_JPRB,1.1389E-03_JPRB,9.5013E-04_JPRB,7.6352E-04_JPRB,&
+&2.9725E-04_JPRB,1.5747E-07_JPRB,1.3432E-01_JPRB/)
+KAO( :, 3,10,13) = (/&
+&1.7152E-03_JPRB,1.5184E-03_JPRB,1.3412E-03_JPRB,1.1838E-03_JPRB,1.0217E-03_JPRB,8.6702E-04_JPRB,&
+&8.3836E-04_JPRB,6.8845E-04_JPRB,2.5555E-01_JPRB/)
+KAO( :, 4,10,13) = (/&
+&1.6812E-03_JPRB,1.5047E-03_JPRB,1.3857E-03_JPRB,1.2506E-03_JPRB,1.1577E-03_JPRB,1.2249E-03_JPRB,&
+&1.4008E-03_JPRB,1.5238E-03_JPRB,4.4499E-01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&1.6497E-03_JPRB,1.5369E-03_JPRB,1.4416E-03_JPRB,1.4073E-03_JPRB,1.5858E-03_JPRB,1.9083E-03_JPRB,&
+&2.1930E-03_JPRB,2.4338E-03_JPRB,7.2126E-01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&1.9883E-03_JPRB,1.7404E-03_JPRB,1.4929E-03_JPRB,1.2571E-03_JPRB,1.0189E-03_JPRB,7.6574E-04_JPRB,&
+&1.2245E-07_JPRB,1.1939E-07_JPRB,1.2338E-01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&1.9390E-03_JPRB,1.6974E-03_JPRB,1.4774E-03_JPRB,1.2577E-03_JPRB,1.0438E-03_JPRB,8.3574E-04_JPRB,&
+&2.2761E-04_JPRB,1.3870E-07_JPRB,2.6041E-01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&1.9012E-03_JPRB,1.6811E-03_JPRB,1.4837E-03_JPRB,1.3022E-03_JPRB,1.1118E-03_JPRB,9.5270E-04_JPRB,&
+&8.5092E-04_JPRB,5.4921E-04_JPRB,4.9292E-01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&1.8676E-03_JPRB,1.6686E-03_JPRB,1.5247E-03_JPRB,1.3663E-03_JPRB,1.2686E-03_JPRB,1.2743E-03_JPRB,&
+&1.4286E-03_JPRB,1.5277E-03_JPRB,8.5618E-01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&1.8327E-03_JPRB,1.6976E-03_JPRB,1.5788E-03_JPRB,1.5380E-03_JPRB,1.6440E-03_JPRB,1.9550E-03_JPRB,&
+&2.2595E-03_JPRB,2.4555E-03_JPRB,1.3826E+00_JPRB/)
+KAO( :, 1,12,13) = (/&
+&2.2187E-03_JPRB,1.9406E-03_JPRB,1.6640E-03_JPRB,1.4003E-03_JPRB,1.1350E-03_JPRB,8.4971E-04_JPRB,&
+&1.4328E-05_JPRB,1.0909E-07_JPRB,1.7650E-01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&2.1703E-03_JPRB,1.8998E-03_JPRB,1.6482E-03_JPRB,1.4040E-03_JPRB,1.1602E-03_JPRB,9.1881E-04_JPRB,&
+&5.8608E-04_JPRB,1.2488E-07_JPRB,3.7061E-01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&2.1329E-03_JPRB,1.8834E-03_JPRB,1.6576E-03_JPRB,1.4426E-03_JPRB,1.2188E-03_JPRB,1.0435E-03_JPRB,&
+&9.0113E-04_JPRB,6.0140E-04_JPRB,6.9805E-01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&2.0986E-03_JPRB,1.8697E-03_JPRB,1.6880E-03_JPRB,1.4960E-03_JPRB,1.3858E-03_JPRB,1.3370E-03_JPRB,&
+&1.4776E-03_JPRB,1.5577E-03_JPRB,1.2104E+00_JPRB/)
+KAO( :, 5,12,13) = (/&
+&2.0637E-03_JPRB,1.8889E-03_JPRB,1.7335E-03_JPRB,1.6736E-03_JPRB,1.7272E-03_JPRB,2.0047E-03_JPRB,&
+&2.3234E-03_JPRB,2.5266E-03_JPRB,1.9488E+00_JPRB/)
+KAO( :, 1,13,13) = (/&
+&2.5214E-03_JPRB,2.2065E-03_JPRB,1.8921E-03_JPRB,1.5892E-03_JPRB,1.2848E-03_JPRB,9.6635E-04_JPRB,&
+&1.4011E-05_JPRB,9.2652E-08_JPRB,1.9891E-01_JPRB/)
+KAO( :, 2,13,13) = (/&
+&2.4696E-03_JPRB,2.1633E-03_JPRB,1.8707E-03_JPRB,1.5871E-03_JPRB,1.3039E-03_JPRB,1.0191E-03_JPRB,&
+&7.2224E-04_JPRB,1.1771E-07_JPRB,4.1557E-01_JPRB/)
+KAO( :, 3,13,13) = (/&
+&2.4301E-03_JPRB,2.1428E-03_JPRB,1.8727E-03_JPRB,1.6140E-03_JPRB,1.3467E-03_JPRB,1.1319E-03_JPRB,&
+&9.6477E-04_JPRB,7.6672E-04_JPRB,7.8045E-01_JPRB/)
+KAO( :, 4,13,13) = (/&
+&2.3936E-03_JPRB,2.1221E-03_JPRB,1.8926E-03_JPRB,1.6520E-03_JPRB,1.5047E-03_JPRB,1.4110E-03_JPRB,&
+&1.5144E-03_JPRB,1.6138E-03_JPRB,1.3452E+00_JPRB/)
+KAO( :, 5,13,13) = (/&
+&2.3541E-03_JPRB,2.1248E-03_JPRB,1.9211E-03_JPRB,1.8214E-03_JPRB,1.8209E-03_JPRB,2.0454E-03_JPRB,&
+&2.3767E-03_JPRB,2.6027E-03_JPRB,2.1609E+00_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&1.4077E-03_JPRB,1.3543E-03_JPRB,2.0015E-03_JPRB,2.9052E-03_JPRB,3.8062E-03_JPRB,4.7033E-03_JPRB,&
+&5.5027E-03_JPRB,6.3534E-03_JPRB,7.2447E-03_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&1.7458E-03_JPRB,1.7470E-03_JPRB,2.6822E-03_JPRB,3.8935E-03_JPRB,5.1049E-03_JPRB,6.3777E-03_JPRB,&
+&7.5886E-03_JPRB,8.9435E-03_JPRB,1.0377E-02_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&2.2077E-03_JPRB,2.2614E-03_JPRB,3.6964E-03_JPRB,5.3773E-03_JPRB,7.0539E-03_JPRB,8.7220E-03_JPRB,&
+&1.0257E-02_JPRB,1.2410E-02_JPRB,1.4154E-02_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&2.8109E-03_JPRB,2.9075E-03_JPRB,4.9134E-03_JPRB,7.1686E-03_JPRB,9.5162E-03_JPRB,1.1788E-02_JPRB,&
+&1.3767E-02_JPRB,1.5840E-02_JPRB,1.8057E-02_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&3.6086E-03_JPRB,3.7240E-03_JPRB,6.4216E-03_JPRB,9.3840E-03_JPRB,1.2343E-02_JPRB,1.5071E-02_JPRB,&
+&1.7936E-02_JPRB,2.0469E-02_JPRB,2.3091E-02_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&1.3294E-03_JPRB,1.2597E-03_JPRB,1.6974E-03_JPRB,2.4370E-03_JPRB,3.1928E-03_JPRB,3.9456E-03_JPRB,&
+&4.9620E-03_JPRB,5.6067E-03_JPRB,6.6116E-03_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&1.6318E-03_JPRB,1.6184E-03_JPRB,2.4692E-03_JPRB,3.6012E-03_JPRB,4.7302E-03_JPRB,5.7659E-03_JPRB,&
+&6.8491E-03_JPRB,8.1205E-03_JPRB,8.9947E-03_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&2.0588E-03_JPRB,2.1063E-03_JPRB,3.4156E-03_JPRB,4.9986E-03_JPRB,6.5782E-03_JPRB,8.1429E-03_JPRB,&
+&9.7017E-03_JPRB,1.0879E-02_JPRB,1.2701E-02_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&2.6403E-03_JPRB,2.6941E-03_JPRB,4.6292E-03_JPRB,6.7785E-03_JPRB,8.9613E-03_JPRB,1.1099E-02_JPRB,&
+&1.3055E-02_JPRB,1.4808E-02_JPRB,1.7360E-02_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&3.4097E-03_JPRB,3.4754E-03_JPRB,6.1509E-03_JPRB,9.0470E-03_JPRB,1.1928E-02_JPRB,1.4499E-02_JPRB,&
+&1.7101E-02_JPRB,1.9409E-02_JPRB,2.2968E-02_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&1.2102E-03_JPRB,1.1138E-03_JPRB,1.3857E-03_JPRB,2.0244E-03_JPRB,2.6529E-03_JPRB,3.2119E-03_JPRB,&
+&4.0399E-03_JPRB,4.4246E-03_JPRB,5.1581E-03_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&1.4090E-03_JPRB,1.3841E-03_JPRB,2.0941E-03_JPRB,3.0584E-03_JPRB,4.0208E-03_JPRB,4.9852E-03_JPRB,&
+&5.9175E-03_JPRB,6.7182E-03_JPRB,7.9412E-03_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&1.7427E-03_JPRB,1.7765E-03_JPRB,2.9090E-03_JPRB,4.4193E-03_JPRB,5.8208E-03_JPRB,7.2086E-03_JPRB,&
+&8.4753E-03_JPRB,9.3954E-03_JPRB,1.1366E-02_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&2.2157E-03_JPRB,2.2613E-03_JPRB,3.9916E-03_JPRB,5.8630E-03_JPRB,8.0161E-03_JPRB,9.9398E-03_JPRB,&
+&1.1828E-02_JPRB,1.3094E-02_JPRB,1.5315E-02_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&2.8879E-03_JPRB,2.9466E-03_JPRB,5.4167E-03_JPRB,7.9578E-03_JPRB,1.0502E-02_JPRB,1.2821E-02_JPRB,&
+&1.5472E-02_JPRB,1.7483E-02_JPRB,2.0768E-02_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&1.1727E-03_JPRB,1.0568E-03_JPRB,1.1437E-03_JPRB,1.6336E-03_JPRB,2.1314E-03_JPRB,2.5848E-03_JPRB,&
+&3.0242E-03_JPRB,3.4499E-03_JPRB,4.1004E-03_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&1.2525E-03_JPRB,1.1704E-03_JPRB,1.6924E-03_JPRB,2.4669E-03_JPRB,3.2745E-03_JPRB,3.9503E-03_JPRB,&
+&4.8080E-03_JPRB,5.4438E-03_JPRB,6.5186E-03_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&1.4517E-03_JPRB,1.4687E-03_JPRB,2.4478E-03_JPRB,3.6499E-03_JPRB,4.8038E-03_JPRB,6.0561E-03_JPRB,&
+&7.1091E-03_JPRB,8.0698E-03_JPRB,9.5998E-03_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&1.8147E-03_JPRB,1.9649E-03_JPRB,3.5509E-03_JPRB,5.2270E-03_JPRB,6.8077E-03_JPRB,8.4354E-03_JPRB,&
+&1.0206E-02_JPRB,1.1463E-02_JPRB,1.3354E-02_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&2.3595E-03_JPRB,2.5550E-03_JPRB,4.7325E-03_JPRB,6.9980E-03_JPRB,9.2811E-03_JPRB,1.1690E-02_JPRB,&
+&1.3662E-02_JPRB,1.5386E-02_JPRB,1.8463E-02_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&1.2458E-03_JPRB,1.1157E-03_JPRB,1.0306E-03_JPRB,1.3033E-03_JPRB,1.6734E-03_JPRB,2.0057E-03_JPRB,&
+&2.3259E-03_JPRB,2.6388E-03_JPRB,3.1846E-03_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&1.2388E-03_JPRB,1.1282E-03_JPRB,1.3991E-03_JPRB,2.0036E-03_JPRB,2.6425E-03_JPRB,3.1687E-03_JPRB,&
+&3.8762E-03_JPRB,4.3488E-03_JPRB,5.2301E-03_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&1.2913E-03_JPRB,1.2589E-03_JPRB,2.0814E-03_JPRB,3.0197E-03_JPRB,3.9667E-03_JPRB,4.9958E-03_JPRB,&
+&5.9133E-03_JPRB,6.6574E-03_JPRB,8.0153E-03_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&1.4963E-03_JPRB,1.6907E-03_JPRB,3.0309E-03_JPRB,4.4615E-03_JPRB,5.8606E-03_JPRB,7.1898E-03_JPRB,&
+&8.6483E-03_JPRB,9.7418E-03_JPRB,1.1669E-02_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&1.8886E-03_JPRB,2.2503E-03_JPRB,4.1688E-03_JPRB,6.1333E-03_JPRB,8.1604E-03_JPRB,1.0200E-02_JPRB,&
+&1.2063E-02_JPRB,1.3620E-02_JPRB,1.6367E-02_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&1.3667E-03_JPRB,1.2087E-03_JPRB,1.0726E-03_JPRB,1.0607E-03_JPRB,1.2821E-03_JPRB,1.5260E-03_JPRB,&
+&1.8008E-03_JPRB,1.9547E-03_JPRB,2.5327E-03_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&1.3345E-03_JPRB,1.2078E-03_JPRB,1.2022E-03_JPRB,1.6068E-03_JPRB,2.0999E-03_JPRB,2.5469E-03_JPRB,&
+&3.0216E-03_JPRB,3.3465E-03_JPRB,4.2698E-03_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&1.3246E-03_JPRB,1.2185E-03_JPRB,1.7375E-03_JPRB,2.5142E-03_JPRB,3.2318E-03_JPRB,4.0369E-03_JPRB,&
+&4.7556E-03_JPRB,5.3249E-03_JPRB,6.8388E-03_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&1.3486E-03_JPRB,1.4645E-03_JPRB,2.5454E-03_JPRB,3.7331E-03_JPRB,4.8424E-03_JPRB,6.0309E-03_JPRB,&
+&7.1539E-03_JPRB,8.1418E-03_JPRB,1.0356E-02_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&1.5159E-03_JPRB,1.9586E-03_JPRB,3.6257E-03_JPRB,5.3066E-03_JPRB,6.9540E-03_JPRB,8.6820E-03_JPRB,&
+&1.0231E-02_JPRB,1.1546E-02_JPRB,1.5077E-02_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&1.5156E-03_JPRB,1.3262E-03_JPRB,1.1714E-03_JPRB,1.0190E-03_JPRB,1.0169E-03_JPRB,1.1666E-03_JPRB,&
+&1.3423E-03_JPRB,1.3981E-03_JPRB,3.1910E-03_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&1.4765E-03_JPRB,1.3249E-03_JPRB,1.1925E-03_JPRB,1.3147E-03_JPRB,1.6557E-03_JPRB,1.9990E-03_JPRB,&
+&2.2925E-03_JPRB,2.5530E-03_JPRB,5.7452E-03_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&1.4370E-03_JPRB,1.3162E-03_JPRB,1.4936E-03_JPRB,2.0652E-03_JPRB,2.6453E-03_JPRB,3.2054E-03_JPRB,&
+&3.7731E-03_JPRB,4.2042E-03_JPRB,9.6110E-03_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&1.4149E-03_JPRB,1.3977E-03_JPRB,2.1475E-03_JPRB,3.1203E-03_JPRB,4.0198E-03_JPRB,4.9787E-03_JPRB,&
+&5.7945E-03_JPRB,6.6068E-03_JPRB,1.5108E-02_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&1.4374E-03_JPRB,1.7222E-03_JPRB,3.0905E-03_JPRB,4.5057E-03_JPRB,5.8428E-03_JPRB,7.2095E-03_JPRB,&
+&8.5374E-03_JPRB,9.6315E-03_JPRB,2.2589E-02_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&1.6998E-03_JPRB,1.4847E-03_JPRB,1.3004E-03_JPRB,1.1133E-03_JPRB,9.4349E-04_JPRB,9.0420E-04_JPRB,&
+&1.0045E-03_JPRB,4.3482E-04_JPRB,5.8016E-03_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&1.6532E-03_JPRB,1.4674E-03_JPRB,1.3041E-03_JPRB,1.2025E-03_JPRB,1.3140E-03_JPRB,1.5672E-03_JPRB,&
+&1.7686E-03_JPRB,1.9237E-03_JPRB,1.1052E-02_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&1.6074E-03_JPRB,1.4616E-03_JPRB,1.4143E-03_JPRB,1.6802E-03_JPRB,2.1261E-03_JPRB,2.5596E-03_JPRB,&
+&3.0033E-03_JPRB,3.3007E-03_JPRB,1.9324E-02_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&1.5686E-03_JPRB,1.4776E-03_JPRB,1.8215E-03_JPRB,2.5548E-03_JPRB,3.2874E-03_JPRB,4.0303E-03_JPRB,&
+&4.7235E-03_JPRB,5.2596E-03_JPRB,3.1553E-02_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&1.5375E-03_JPRB,1.6349E-03_JPRB,2.6125E-03_JPRB,3.7580E-03_JPRB,4.8839E-03_JPRB,6.0119E-03_JPRB,&
+&7.1085E-03_JPRB,8.0648E-03_JPRB,4.8625E-02_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&1.9224E-03_JPRB,1.6818E-03_JPRB,1.4431E-03_JPRB,1.2356E-03_JPRB,1.0226E-03_JPRB,8.1041E-04_JPRB,&
+&6.6192E-04_JPRB,1.6289E-07_JPRB,1.9855E-02_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&1.8714E-03_JPRB,1.6372E-03_JPRB,1.4546E-03_JPRB,1.2624E-03_JPRB,1.1376E-03_JPRB,1.2029E-03_JPRB,&
+&1.3478E-03_JPRB,1.4009E-03_JPRB,4.0030E-02_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&1.8227E-03_JPRB,1.6409E-03_JPRB,1.4856E-03_JPRB,1.4717E-03_JPRB,1.6810E-03_JPRB,2.0286E-03_JPRB,&
+&2.3381E-03_JPRB,2.5517E-03_JPRB,7.3381E-02_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&1.7776E-03_JPRB,1.6302E-03_JPRB,1.6842E-03_JPRB,2.0805E-03_JPRB,2.6540E-03_JPRB,3.2313E-03_JPRB,&
+&3.7806E-03_JPRB,4.1994E-03_JPRB,1.2455E-01_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&1.7367E-03_JPRB,1.7061E-03_JPRB,2.1848E-03_JPRB,3.1013E-03_JPRB,4.0216E-03_JPRB,4.9873E-03_JPRB,&
+&5.8671E-03_JPRB,6.6087E-03_JPRB,1.9836E-01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&2.1700E-03_JPRB,1.8991E-03_JPRB,1.6269E-03_JPRB,1.3797E-03_JPRB,1.1299E-03_JPRB,8.7387E-04_JPRB,&
+&1.3980E-07_JPRB,1.2659E-07_JPRB,7.9784E-02_JPRB/)
+KAO( :, 2,10,14) = (/&
+&2.1212E-03_JPRB,1.8542E-03_JPRB,1.6327E-03_JPRB,1.4005E-03_JPRB,1.1807E-03_JPRB,1.0294E-03_JPRB,&
+&1.0221E-03_JPRB,1.9929E-04_JPRB,1.6978E-01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&2.0702E-03_JPRB,1.8475E-03_JPRB,1.6421E-03_JPRB,1.4813E-03_JPRB,1.4506E-03_JPRB,1.6271E-03_JPRB,&
+&1.8528E-03_JPRB,1.9874E-03_JPRB,3.2534E-01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&2.0197E-03_JPRB,1.8363E-03_JPRB,1.7391E-03_JPRB,1.8390E-03_JPRB,2.2028E-03_JPRB,2.6538E-03_JPRB,&
+&3.1240E-03_JPRB,3.3958E-03_JPRB,5.7201E-01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&1.9722E-03_JPRB,1.8724E-03_JPRB,2.0258E-03_JPRB,2.6203E-03_JPRB,3.3709E-03_JPRB,4.1714E-03_JPRB,&
+&4.8976E-03_JPRB,5.4947E-03_JPRB,9.3618E-01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&2.4346E-03_JPRB,2.1262E-03_JPRB,1.8242E-03_JPRB,1.5461E-03_JPRB,1.2663E-03_JPRB,9.7971E-04_JPRB,&
+&1.2672E-07_JPRB,1.1257E-07_JPRB,1.6191E-01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&2.3800E-03_JPRB,2.0803E-03_JPRB,1.8321E-03_JPRB,1.5714E-03_JPRB,1.3247E-03_JPRB,1.1173E-03_JPRB,&
+&1.0133E-03_JPRB,1.0538E-04_JPRB,3.4424E-01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&2.3211E-03_JPRB,2.0734E-03_JPRB,1.8393E-03_JPRB,1.6589E-03_JPRB,1.5627E-03_JPRB,1.6631E-03_JPRB,&
+&1.8852E-03_JPRB,2.0216E-03_JPRB,6.6076E-01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&2.2623E-03_JPRB,2.0579E-03_JPRB,1.9437E-03_JPRB,1.9604E-03_JPRB,2.2434E-03_JPRB,2.7165E-03_JPRB,&
+&3.1823E-03_JPRB,3.4732E-03_JPRB,1.1622E+00_JPRB/)
+KAO( :, 5,11,14) = (/&
+&2.2095E-03_JPRB,2.1020E-03_JPRB,2.1745E-03_JPRB,2.6686E-03_JPRB,3.4370E-03_JPRB,4.2001E-03_JPRB,&
+&4.9598E-03_JPRB,5.6011E-03_JPRB,1.8980E+00_JPRB/)
+KAO( :, 1,12,14) = (/&
+&2.7322E-03_JPRB,2.3881E-03_JPRB,2.0484E-03_JPRB,1.7387E-03_JPRB,1.4199E-03_JPRB,1.1012E-03_JPRB,&
+&1.1269E-07_JPRB,1.0126E-07_JPRB,2.4431E-01_JPRB/)
+KAO( :, 2,12,14) = (/&
+&2.6690E-03_JPRB,2.3367E-03_JPRB,2.0556E-03_JPRB,1.7563E-03_JPRB,1.4836E-03_JPRB,1.2255E-03_JPRB,&
+&1.0602E-03_JPRB,2.2342E-04_JPRB,5.2005E-01_JPRB/)
+KAO( :, 3,12,14) = (/&
+&2.6024E-03_JPRB,2.3216E-03_JPRB,2.0574E-03_JPRB,1.8575E-03_JPRB,1.6967E-03_JPRB,1.7241E-03_JPRB,&
+&1.9458E-03_JPRB,2.1132E-03_JPRB,9.9525E-01_JPRB/)
+KAO( :, 4,12,14) = (/&
+&2.5362E-03_JPRB,2.2963E-03_JPRB,2.1666E-03_JPRB,2.1029E-03_JPRB,2.2976E-03_JPRB,2.7702E-03_JPRB,&
+&3.2192E-03_JPRB,3.5953E-03_JPRB,1.7434E+00_JPRB/)
+KAO( :, 5,12,14) = (/&
+&2.4736E-03_JPRB,2.3442E-03_JPRB,2.3511E-03_JPRB,2.7323E-03_JPRB,3.5045E-03_JPRB,4.2744E-03_JPRB,&
+&5.0574E-03_JPRB,5.7337E-03_JPRB,2.8511E+00_JPRB/)
+KAO( :, 1,13,14) = (/&
+&3.0694E-03_JPRB,2.6858E-03_JPRB,2.3020E-03_JPRB,1.9523E-03_JPRB,1.5893E-03_JPRB,1.2280E-03_JPRB,&
+&9.6824E-05_JPRB,9.3571E-08_JPRB,2.9420E-01_JPRB/)
+KAO( :, 2,13,14) = (/&
+&2.9959E-03_JPRB,2.6225E-03_JPRB,2.2984E-03_JPRB,1.9588E-03_JPRB,1.6492E-03_JPRB,1.3537E-03_JPRB,&
+&1.1186E-03_JPRB,4.7180E-04_JPRB,6.2570E-01_JPRB/)
+KAO( :, 3,13,14) = (/&
+&2.9125E-03_JPRB,2.5931E-03_JPRB,2.2966E-03_JPRB,2.0585E-03_JPRB,1.8442E-03_JPRB,1.7986E-03_JPRB,&
+&1.9858E-03_JPRB,2.1644E-03_JPRB,1.1929E+00_JPRB/)
+KAO( :, 4,13,14) = (/&
+&2.8338E-03_JPRB,2.5576E-03_JPRB,2.3960E-03_JPRB,2.2668E-03_JPRB,2.3808E-03_JPRB,2.8162E-03_JPRB,&
+&3.2861E-03_JPRB,3.6781E-03_JPRB,2.0900E+00_JPRB/)
+KAO( :, 5,13,14) = (/&
+&2.7615E-03_JPRB,2.6036E-03_JPRB,2.5577E-03_JPRB,2.8390E-03_JPRB,3.5800E-03_JPRB,4.3621E-03_JPRB,&
+&5.1422E-03_JPRB,5.8469E-03_JPRB,3.4082E+00_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&1.5335E-03_JPRB,1.9324E-03_JPRB,3.7679E-03_JPRB,5.5453E-03_JPRB,7.3003E-03_JPRB,9.0183E-03_JPRB,&
+&1.0616E-02_JPRB,1.1802E-02_JPRB,1.3402E-02_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&1.8833E-03_JPRB,2.7655E-03_JPRB,5.2889E-03_JPRB,7.8002E-03_JPRB,1.0284E-02_JPRB,1.2663E-02_JPRB,&
+&1.4949E-02_JPRB,1.7186E-02_JPRB,1.9451E-02_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&2.3483E-03_JPRB,3.8414E-03_JPRB,7.3773E-03_JPRB,1.0888E-02_JPRB,1.4361E-02_JPRB,1.7765E-02_JPRB,&
+&2.0815E-02_JPRB,2.3917E-02_JPRB,2.7184E-02_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&2.9416E-03_JPRB,5.1566E-03_JPRB,9.9228E-03_JPRB,1.4661E-02_JPRB,1.9210E-02_JPRB,2.3760E-02_JPRB,&
+&2.8113E-02_JPRB,3.1154E-02_JPRB,3.5404E-02_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&3.6966E-03_JPRB,6.6653E-03_JPRB,1.2941E-02_JPRB,1.9171E-02_JPRB,2.5316E-02_JPRB,3.1127E-02_JPRB,&
+&3.6787E-02_JPRB,4.1016E-02_JPRB,4.6262E-02_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&1.4383E-03_JPRB,1.8910E-03_JPRB,3.6349E-03_JPRB,5.3031E-03_JPRB,6.9932E-03_JPRB,8.6450E-03_JPRB,&
+&1.0512E-02_JPRB,1.1619E-02_JPRB,1.3810E-02_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&1.7711E-03_JPRB,2.7662E-03_JPRB,5.3277E-03_JPRB,7.8716E-03_JPRB,1.0388E-02_JPRB,1.2798E-02_JPRB,&
+&1.4898E-02_JPRB,1.7232E-02_JPRB,1.9744E-02_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&2.2091E-03_JPRB,3.9249E-03_JPRB,7.5049E-03_JPRB,1.1104E-02_JPRB,1.4661E-02_JPRB,1.8139E-02_JPRB,&
+&2.1328E-02_JPRB,2.3602E-02_JPRB,2.7985E-02_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&2.7705E-03_JPRB,5.2948E-03_JPRB,1.0279E-02_JPRB,1.5231E-02_JPRB,2.0000E-02_JPRB,2.4763E-02_JPRB,&
+&2.9040E-02_JPRB,3.2255E-02_JPRB,3.8158E-02_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&3.5089E-03_JPRB,6.9573E-03_JPRB,1.3524E-02_JPRB,2.0020E-02_JPRB,2.6474E-02_JPRB,3.2706E-02_JPRB,&
+&3.8152E-02_JPRB,4.2439E-02_JPRB,5.0508E-02_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&1.2705E-03_JPRB,1.6880E-03_JPRB,3.2165E-03_JPRB,4.7906E-03_JPRB,6.3186E-03_JPRB,7.6460E-03_JPRB,&
+&9.3643E-03_JPRB,1.0229E-02_JPRB,1.2458E-02_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&1.5436E-03_JPRB,2.5438E-03_JPRB,4.9323E-03_JPRB,7.3010E-03_JPRB,9.6387E-03_JPRB,1.1841E-02_JPRB,&
+&1.4163E-02_JPRB,1.5548E-02_JPRB,1.9155E-02_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&1.9176E-03_JPRB,3.6434E-03_JPRB,6.9853E-03_JPRB,1.0590E-02_JPRB,1.3995E-02_JPRB,1.7311E-02_JPRB,&
+&2.0232E-02_JPRB,2.1858E-02_JPRB,2.7487E-02_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&2.3869E-03_JPRB,4.9269E-03_JPRB,9.6201E-03_JPRB,1.4277E-02_JPRB,1.9500E-02_JPRB,2.4127E-02_JPRB,&
+&2.8236E-02_JPRB,3.0501E-02_JPRB,3.7416E-02_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&2.9972E-03_JPRB,6.6065E-03_JPRB,1.2887E-02_JPRB,1.9158E-02_JPRB,2.5345E-02_JPRB,3.1167E-02_JPRB,&
+&3.7358E-02_JPRB,4.1161E-02_JPRB,5.0258E-02_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&1.2393E-03_JPRB,1.4291E-03_JPRB,2.7934E-03_JPRB,4.1582E-03_JPRB,5.4860E-03_JPRB,6.6271E-03_JPRB,&
+&7.7456E-03_JPRB,8.5638E-03_JPRB,1.0713E-02_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&1.3400E-03_JPRB,2.1964E-03_JPRB,4.2752E-03_JPRB,6.3365E-03_JPRB,8.4061E-03_JPRB,1.0279E-02_JPRB,&
+&1.2357E-02_JPRB,1.3474E-02_JPRB,1.7008E-02_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&1.6349E-03_JPRB,3.2436E-03_JPRB,6.2304E-03_JPRB,9.4103E-03_JPRB,1.2432E-02_JPRB,1.5539E-02_JPRB,&
+&1.8108E-02_JPRB,2.0011E-02_JPRB,2.5265E-02_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&2.0292E-03_JPRB,4.6522E-03_JPRB,9.1141E-03_JPRB,1.3542E-02_JPRB,1.7761E-02_JPRB,2.1969E-02_JPRB,&
+&2.5895E-02_JPRB,2.8549E-02_JPRB,3.4694E-02_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&2.5299E-03_JPRB,6.1198E-03_JPRB,1.2014E-02_JPRB,1.7823E-02_JPRB,2.3626E-02_JPRB,3.0145E-02_JPRB,&
+&3.4844E-02_JPRB,3.8179E-02_JPRB,4.7443E-02_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&1.3376E-03_JPRB,1.3061E-03_JPRB,2.2933E-03_JPRB,3.4105E-03_JPRB,4.5058E-03_JPRB,5.4169E-03_JPRB,&
+&6.3127E-03_JPRB,7.0090E-03_JPRB,8.8382E-03_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&1.3263E-03_JPRB,1.8712E-03_JPRB,3.6486E-03_JPRB,5.3688E-03_JPRB,7.2653E-03_JPRB,8.6947E-03_JPRB,&
+&1.0335E-02_JPRB,1.1527E-02_JPRB,1.4282E-02_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&1.4243E-03_JPRB,2.8262E-03_JPRB,5.4158E-03_JPRB,8.2878E-03_JPRB,1.0953E-02_JPRB,1.3340E-02_JPRB,&
+&1.6078E-02_JPRB,1.7370E-02_JPRB,2.2313E-02_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&1.6989E-03_JPRB,4.0314E-03_JPRB,7.9177E-03_JPRB,1.2164E-02_JPRB,1.6022E-02_JPRB,1.9693E-02_JPRB,&
+&2.2743E-02_JPRB,2.5430E-02_JPRB,3.1147E-02_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&2.0980E-03_JPRB,5.4208E-03_JPRB,1.0645E-02_JPRB,1.5846E-02_JPRB,2.1457E-02_JPRB,2.6719E-02_JPRB,&
+&3.1700E-02_JPRB,3.4634E-02_JPRB,4.2396E-02_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&1.4699E-03_JPRB,1.3039E-03_JPRB,1.7682E-03_JPRB,2.6642E-03_JPRB,3.3901E-03_JPRB,4.1361E-03_JPRB,&
+&4.9645E-03_JPRB,5.4015E-03_JPRB,7.0142E-03_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&1.4420E-03_JPRB,1.6011E-03_JPRB,2.9603E-03_JPRB,4.2663E-03_JPRB,5.9096E-03_JPRB,7.1197E-03_JPRB,&
+&8.3224E-03_JPRB,9.2909E-03_JPRB,1.1572E-02_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&1.4209E-03_JPRB,2.3651E-03_JPRB,4.5056E-03_JPRB,6.8456E-03_JPRB,9.2009E-03_JPRB,1.1119E-02_JPRB,&
+&1.3497E-02_JPRB,1.4341E-02_JPRB,1.8485E-02_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&1.4876E-03_JPRB,3.4335E-03_JPRB,6.7368E-03_JPRB,1.0314E-02_JPRB,1.3111E-02_JPRB,1.6614E-02_JPRB,&
+&1.9482E-02_JPRB,2.1613E-02_JPRB,2.6785E-02_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&1.7311E-03_JPRB,4.9309E-03_JPRB,9.6716E-03_JPRB,1.4408E-02_JPRB,1.8785E-02_JPRB,2.3407E-02_JPRB,&
+&2.7826E-02_JPRB,3.0253E-02_JPRB,3.8797E-02_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&1.6452E-03_JPRB,1.4412E-03_JPRB,1.4879E-03_JPRB,1.9571E-03_JPRB,2.5256E-03_JPRB,3.0766E-03_JPRB,&
+&3.7011E-03_JPRB,4.0149E-03_JPRB,5.3627E-03_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&1.6160E-03_JPRB,1.5227E-03_JPRB,2.2973E-03_JPRB,3.3257E-03_JPRB,4.5738E-03_JPRB,5.5584E-03_JPRB,&
+&6.3881E-03_JPRB,7.2538E-03_JPRB,9.6722E-03_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&1.5860E-03_JPRB,2.0263E-03_JPRB,3.8492E-03_JPRB,5.5523E-03_JPRB,7.3824E-03_JPRB,9.0664E-03_JPRB,&
+&1.0834E-02_JPRB,1.1569E-02_JPRB,1.5617E-02_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&1.5638E-03_JPRB,2.9557E-03_JPRB,5.6559E-03_JPRB,8.6531E-03_JPRB,1.0991E-02_JPRB,1.3929E-02_JPRB,&
+&1.6365E-02_JPRB,1.8010E-02_JPRB,2.4730E-02_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&1.5935E-03_JPRB,4.3661E-03_JPRB,8.5392E-03_JPRB,1.2446E-02_JPRB,1.6667E-02_JPRB,2.0343E-02_JPRB,&
+&2.3794E-02_JPRB,2.5830E-02_JPRB,3.6014E-02_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&1.8723E-03_JPRB,1.6388E-03_JPRB,1.4610E-03_JPRB,1.5561E-03_JPRB,1.8720E-03_JPRB,2.3376E-03_JPRB,&
+&2.6613E-03_JPRB,2.9039E-03_JPRB,6.4956E-03_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&1.8456E-03_JPRB,1.6296E-03_JPRB,1.9116E-03_JPRB,2.6011E-03_JPRB,3.5199E-03_JPRB,4.2393E-03_JPRB,&
+&4.8531E-03_JPRB,5.3550E-03_JPRB,1.2422E-02_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&1.8093E-03_JPRB,1.9050E-03_JPRB,3.1124E-03_JPRB,4.4584E-03_JPRB,5.9417E-03_JPRB,7.2783E-03_JPRB,&
+&8.6194E-03_JPRB,9.3908E-03_JPRB,2.1656E-02_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&1.7796E-03_JPRB,2.5264E-03_JPRB,4.7746E-03_JPRB,7.1139E-03_JPRB,9.2445E-03_JPRB,1.1405E-02_JPRB,&
+&1.3524E-02_JPRB,1.4718E-02_JPRB,3.5472E-02_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&1.7474E-03_JPRB,3.6460E-03_JPRB,7.3775E-03_JPRB,1.0554E-02_JPRB,1.4351E-02_JPRB,1.7437E-02_JPRB,&
+&2.0234E-02_JPRB,2.2659E-02_JPRB,5.4466E-02_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&2.1531E-03_JPRB,1.8852E-03_JPRB,1.6173E-03_JPRB,1.4438E-03_JPRB,1.4392E-03_JPRB,1.6909E-03_JPRB,&
+&1.8360E-03_JPRB,1.2556E-03_JPRB,2.2429E-02_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&2.1197E-03_JPRB,1.8522E-03_JPRB,1.7919E-03_JPRB,2.0362E-03_JPRB,2.5897E-03_JPRB,3.1619E-03_JPRB,&
+&3.6769E-03_JPRB,3.8809E-03_JPRB,4.5293E-02_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&2.0806E-03_JPRB,1.9202E-03_JPRB,2.4651E-03_JPRB,3.5166E-03_JPRB,4.6833E-03_JPRB,5.6685E-03_JPRB,&
+&6.7191E-03_JPRB,7.2005E-03_JPRB,8.3053E-02_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&2.0479E-03_JPRB,2.3234E-03_JPRB,3.9257E-03_JPRB,5.8282E-03_JPRB,7.5382E-03_JPRB,9.2852E-03_JPRB,&
+&1.0968E-02_JPRB,1.1755E-02_JPRB,1.4085E-01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&2.0135E-03_JPRB,3.1161E-03_JPRB,6.2953E-03_JPRB,8.9489E-03_JPRB,1.1910E-02_JPRB,1.4603E-02_JPRB,&
+&1.7103E-02_JPRB,1.8687E-02_JPRB,2.2489E-01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&2.4996E-03_JPRB,2.1860E-03_JPRB,1.8719E-03_JPRB,1.5736E-03_JPRB,1.3474E-03_JPRB,1.3138E-03_JPRB,&
+&1.2455E-03_JPRB,1.1328E-07_JPRB,9.2144E-02_JPRB/)
+KAO( :, 2,10,15) = (/&
+&2.4545E-03_JPRB,2.1478E-03_JPRB,1.8895E-03_JPRB,1.8842E-03_JPRB,2.0494E-03_JPRB,2.4515E-03_JPRB,&
+&2.7912E-03_JPRB,2.8411E-03_JPRB,1.9577E-01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&2.4123E-03_JPRB,2.1379E-03_JPRB,2.2699E-03_JPRB,2.9106E-03_JPRB,3.7957E-03_JPRB,4.5303E-03_JPRB,&
+&5.1569E-03_JPRB,5.5947E-03_JPRB,3.7579E-01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&2.3670E-03_JPRB,2.3455E-03_JPRB,3.3904E-03_JPRB,4.7982E-03_JPRB,6.5586E-03_JPRB,7.6814E-03_JPRB,&
+&8.9698E-03_JPRB,9.4919E-03_JPRB,6.5920E-01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&2.3225E-03_JPRB,2.8728E-03_JPRB,5.4745E-03_JPRB,7.9446E-03_JPRB,1.0257E-02_JPRB,1.2466E-02_JPRB,&
+&1.4486E-02_JPRB,1.5553E-02_JPRB,1.0800E+00_JPRB/)
+KAO( :, 1,11,15) = (/&
+&2.8637E-03_JPRB,2.5035E-03_JPRB,2.1436E-03_JPRB,1.8035E-03_JPRB,1.5339E-03_JPRB,1.4234E-03_JPRB,&
+&1.1994E-03_JPRB,9.8829E-08_JPRB,1.9145E-01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&2.8241E-03_JPRB,2.4682E-03_JPRB,2.1655E-03_JPRB,2.0940E-03_JPRB,2.2293E-03_JPRB,2.5943E-03_JPRB,&
+&2.8972E-03_JPRB,2.9304E-03_JPRB,4.0810E-01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&2.7755E-03_JPRB,2.4611E-03_JPRB,2.5498E-03_JPRB,3.0773E-03_JPRB,3.9941E-03_JPRB,4.8157E-03_JPRB,&
+&5.3205E-03_JPRB,5.7118E-03_JPRB,7.8317E-01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&2.7180E-03_JPRB,2.6251E-03_JPRB,3.6039E-03_JPRB,5.0535E-03_JPRB,6.8961E-03_JPRB,8.2198E-03_JPRB,&
+&9.2474E-03_JPRB,9.6840E-03_JPRB,1.3768E+00_JPRB/)
+KAO( :, 5,11,15) = (/&
+&2.6558E-03_JPRB,3.1273E-03_JPRB,5.6600E-03_JPRB,8.3772E-03_JPRB,1.0624E-02_JPRB,1.3218E-02_JPRB,&
+&1.5003E-02_JPRB,1.5876E-02_JPRB,2.2520E+00_JPRB/)
+KAO( :, 1,12,15) = (/&
+&3.2714E-03_JPRB,2.8584E-03_JPRB,2.4535E-03_JPRB,2.0680E-03_JPRB,1.7413E-03_JPRB,1.5693E-03_JPRB,&
+&1.4195E-03_JPRB,8.7492E-08_JPRB,2.9715E-01_JPRB/)
+KAO( :, 2,12,15) = (/&
+&3.2238E-03_JPRB,2.8219E-03_JPRB,2.4898E-03_JPRB,2.3173E-03_JPRB,2.4029E-03_JPRB,2.7493E-03_JPRB,&
+&3.0184E-03_JPRB,3.0151E-03_JPRB,6.3430E-01_JPRB/)
+KAO( :, 3,12,15) = (/&
+&3.1690E-03_JPRB,2.8261E-03_JPRB,2.8398E-03_JPRB,3.2763E-03_JPRB,4.1787E-03_JPRB,5.0712E-03_JPRB,&
+&5.7128E-03_JPRB,5.7933E-03_JPRB,1.2146E+00_JPRB/)
+KAO( :, 4,12,15) = (/&
+&3.1066E-03_JPRB,2.9671E-03_JPRB,3.8178E-03_JPRB,5.5845E-03_JPRB,7.1025E-03_JPRB,8.6518E-03_JPRB,&
+&9.8099E-03_JPRB,1.0106E-02_JPRB,2.1338E+00_JPRB/)
+KAO( :, 5,12,15) = (/&
+&3.0417E-03_JPRB,3.4447E-03_JPRB,5.9771E-03_JPRB,8.7849E-03_JPRB,1.1154E-02_JPRB,1.3933E-02_JPRB,&
+&1.5683E-02_JPRB,1.6226E-02_JPRB,3.5026E+00_JPRB/)
+KAO( :, 1,13,15) = (/&
+&3.7174E-03_JPRB,3.2529E-03_JPRB,2.7876E-03_JPRB,2.3613E-03_JPRB,1.9840E-03_JPRB,1.7059E-03_JPRB,&
+&1.5699E-03_JPRB,2.2638E-04_JPRB,3.7080E-01_JPRB/)
+KAO( :, 2,13,15) = (/&
+&3.6607E-03_JPRB,3.2024E-03_JPRB,2.8505E-03_JPRB,2.5957E-03_JPRB,2.5988E-03_JPRB,2.8843E-03_JPRB,&
+&3.1480E-03_JPRB,3.2252E-03_JPRB,7.9012E-01_JPRB/)
+KAO( :, 3,13,15) = (/&
+&3.6056E-03_JPRB,3.2358E-03_JPRB,3.0977E-03_JPRB,3.5132E-03_JPRB,4.3893E-03_JPRB,5.3238E-03_JPRB,&
+&5.9823E-03_JPRB,6.0551E-03_JPRB,1.5116E+00_JPRB/)
+KAO( :, 4,13,15) = (/&
+&3.5392E-03_JPRB,3.3725E-03_JPRB,4.1216E-03_JPRB,5.8741E-03_JPRB,7.4524E-03_JPRB,8.9744E-03_JPRB,&
+&1.0256E-02_JPRB,1.0534E-02_JPRB,2.6566E+00_JPRB/)
+KAO( :, 5,13,15) = (/&
+&3.4654E-03_JPRB,3.8025E-03_JPRB,6.3205E-03_JPRB,9.1996E-03_JPRB,1.1773E-02_JPRB,1.4433E-02_JPRB,&
+&1.6393E-02_JPRB,1.6955E-02_JPRB,4.3588E+00_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&1.5672E-03_JPRB,2.1553E-03_JPRB,4.1215E-03_JPRB,6.0711E-03_JPRB,7.9933E-03_JPRB,9.8639E-03_JPRB,&
+&1.1623E-02_JPRB,1.2894E-02_JPRB,1.4627E-02_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&1.9455E-03_JPRB,3.1176E-03_JPRB,5.9834E-03_JPRB,8.8258E-03_JPRB,1.1628E-02_JPRB,1.4352E-02_JPRB,&
+&1.6890E-02_JPRB,1.8782E-02_JPRB,2.1292E-02_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&2.4286E-03_JPRB,4.3028E-03_JPRB,8.2818E-03_JPRB,1.2234E-02_JPRB,1.6127E-02_JPRB,1.9913E-02_JPRB,&
+&2.3612E-02_JPRB,2.6215E-02_JPRB,2.9752E-02_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&3.0199E-03_JPRB,5.7955E-03_JPRB,1.1212E-02_JPRB,1.6585E-02_JPRB,2.1939E-02_JPRB,2.7103E-02_JPRB,&
+&3.1641E-02_JPRB,3.5382E-02_JPRB,4.0152E-02_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&3.7301E-03_JPRB,7.5925E-03_JPRB,1.4663E-02_JPRB,2.1614E-02_JPRB,2.8523E-02_JPRB,3.5412E-02_JPRB,&
+&4.1705E-02_JPRB,4.6016E-02_JPRB,5.2602E-02_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&1.4714E-03_JPRB,2.1897E-03_JPRB,4.1859E-03_JPRB,6.1816E-03_JPRB,8.1457E-03_JPRB,1.0051E-02_JPRB,&
+&1.1874E-02_JPRB,1.3114E-02_JPRB,1.5524E-02_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&1.8243E-03_JPRB,3.2190E-03_JPRB,6.2284E-03_JPRB,9.2101E-03_JPRB,1.2144E-02_JPRB,1.5021E-02_JPRB,&
+&1.7606E-02_JPRB,1.9473E-02_JPRB,2.2997E-02_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&2.2843E-03_JPRB,4.5394E-03_JPRB,8.8033E-03_JPRB,1.3032E-02_JPRB,1.7194E-02_JPRB,2.1230E-02_JPRB,&
+&2.5009E-02_JPRB,2.7460E-02_JPRB,3.2496E-02_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&2.8708E-03_JPRB,6.2086E-03_JPRB,1.2093E-02_JPRB,1.7923E-02_JPRB,2.3632E-02_JPRB,2.9181E-02_JPRB,&
+&3.4133E-02_JPRB,3.7858E-02_JPRB,4.4523E-02_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&3.5701E-03_JPRB,8.1350E-03_JPRB,1.5874E-02_JPRB,2.3527E-02_JPRB,3.1085E-02_JPRB,3.8729E-02_JPRB,&
+&4.5307E-02_JPRB,4.9567E-02_JPRB,5.9359E-02_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&1.2836E-03_JPRB,2.0294E-03_JPRB,3.8863E-03_JPRB,5.8124E-03_JPRB,7.6573E-03_JPRB,9.3378E-03_JPRB,&
+&1.1017E-02_JPRB,1.1974E-02_JPRB,1.4949E-02_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&1.5660E-03_JPRB,3.0824E-03_JPRB,6.0009E-03_JPRB,8.8868E-03_JPRB,1.1717E-02_JPRB,1.4438E-02_JPRB,&
+&1.6887E-02_JPRB,1.8445E-02_JPRB,2.2945E-02_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&1.9600E-03_JPRB,4.4422E-03_JPRB,8.7147E-03_JPRB,1.2909E-02_JPRB,1.7029E-02_JPRB,2.0993E-02_JPRB,&
+&2.4634E-02_JPRB,2.6606E-02_JPRB,3.3559E-02_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&2.4642E-03_JPRB,6.2222E-03_JPRB,1.2184E-02_JPRB,1.8079E-02_JPRB,2.3727E-02_JPRB,2.9253E-02_JPRB,&
+&3.4378E-02_JPRB,3.7595E-02_JPRB,4.7010E-02_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&3.0951E-03_JPRB,8.3838E-03_JPRB,1.6309E-02_JPRB,2.4359E-02_JPRB,3.2164E-02_JPRB,3.9734E-02_JPRB,&
+&4.6556E-02_JPRB,5.0749E-02_JPRB,6.3475E-02_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&1.2574E-03_JPRB,1.8114E-03_JPRB,3.5154E-03_JPRB,5.2030E-03_JPRB,6.8473E-03_JPRB,8.4135E-03_JPRB,&
+&9.7945E-03_JPRB,1.0467E-02_JPRB,1.3735E-02_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&1.4045E-03_JPRB,2.8445E-03_JPRB,5.5546E-03_JPRB,8.2273E-03_JPRB,1.0867E-02_JPRB,1.3255E-02_JPRB,&
+&1.5543E-02_JPRB,1.6757E-02_JPRB,2.1717E-02_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&1.7089E-03_JPRB,4.2655E-03_JPRB,8.3342E-03_JPRB,1.2385E-02_JPRB,1.6320E-02_JPRB,2.0006E-02_JPRB,&
+&2.3383E-02_JPRB,2.5166E-02_JPRB,3.2791E-02_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&2.1090E-03_JPRB,6.0675E-03_JPRB,1.1915E-02_JPRB,1.7681E-02_JPRB,2.3322E-02_JPRB,2.8694E-02_JPRB,&
+&3.3458E-02_JPRB,3.6118E-02_JPRB,4.7164E-02_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&2.6086E-03_JPRB,8.3756E-03_JPRB,1.6515E-02_JPRB,2.4278E-02_JPRB,3.2230E-02_JPRB,3.9587E-02_JPRB,&
+&4.6358E-02_JPRB,4.9833E-02_JPRB,6.4660E-02_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&1.3825E-03_JPRB,1.5837E-03_JPRB,3.0919E-03_JPRB,4.5531E-03_JPRB,6.0074E-03_JPRB,7.3563E-03_JPRB,&
+&8.5040E-03_JPRB,9.0047E-03_JPRB,1.2222E-02_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&1.3514E-03_JPRB,2.5997E-03_JPRB,5.0814E-03_JPRB,7.5197E-03_JPRB,9.9239E-03_JPRB,1.2026E-02_JPRB,&
+&1.3939E-02_JPRB,1.4883E-02_JPRB,2.0096E-02_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&1.5206E-03_JPRB,4.0333E-03_JPRB,7.8158E-03_JPRB,1.1713E-02_JPRB,1.5405E-02_JPRB,1.8636E-02_JPRB,&
+&2.1846E-02_JPRB,2.3099E-02_JPRB,3.1394E-02_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&1.8386E-03_JPRB,5.8482E-03_JPRB,1.1495E-02_JPRB,1.7163E-02_JPRB,2.2705E-02_JPRB,2.7707E-02_JPRB,&
+&3.1828E-02_JPRB,3.4087E-02_JPRB,4.5825E-02_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&2.2527E-03_JPRB,8.2599E-03_JPRB,1.6275E-02_JPRB,2.4092E-02_JPRB,3.1836E-02_JPRB,3.8856E-02_JPRB,&
+&4.5237E-02_JPRB,4.7798E-02_JPRB,6.5032E-02_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&1.5452E-03_JPRB,1.3558E-03_JPRB,2.6064E-03_JPRB,3.8420E-03_JPRB,5.0190E-03_JPRB,6.1218E-03_JPRB,&
+&7.0124E-03_JPRB,7.3072E-03_JPRB,1.0404E-02_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&1.5160E-03_JPRB,2.2762E-03_JPRB,4.4992E-03_JPRB,6.5908E-03_JPRB,8.7549E-03_JPRB,1.0577E-02_JPRB,&
+&1.2081E-02_JPRB,1.2650E-02_JPRB,1.7914E-02_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&1.4831E-03_JPRB,3.6667E-03_JPRB,7.1626E-03_JPRB,1.0648E-02_JPRB,1.4117E-02_JPRB,1.6912E-02_JPRB,&
+&1.9731E-02_JPRB,2.0210E-02_JPRB,2.8978E-02_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&1.6115E-03_JPRB,5.5846E-03_JPRB,1.0973E-02_JPRB,1.6135E-02_JPRB,2.1251E-02_JPRB,2.6015E-02_JPRB,&
+&2.9549E-02_JPRB,3.0765E-02_JPRB,4.3671E-02_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&1.9392E-03_JPRB,8.0663E-03_JPRB,1.5907E-02_JPRB,2.3470E-02_JPRB,3.0817E-02_JPRB,3.7382E-02_JPRB,&
+&4.3204E-02_JPRB,4.4622E-02_JPRB,6.3997E-02_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&1.7424E-03_JPRB,1.5255E-03_JPRB,2.1507E-03_JPRB,3.1520E-03_JPRB,4.1047E-03_JPRB,4.9755E-03_JPRB,&
+&5.6339E-03_JPRB,5.7296E-03_JPRB,8.6456E-03_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&1.7170E-03_JPRB,1.9718E-03_JPRB,3.9047E-03_JPRB,5.6866E-03_JPRB,7.5061E-03_JPRB,9.0459E-03_JPRB,&
+&1.0285E-02_JPRB,1.0440E-02_JPRB,1.5762E-02_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&1.6789E-03_JPRB,3.3135E-03_JPRB,6.5455E-03_JPRB,9.5842E-03_JPRB,1.2571E-02_JPRB,1.5280E-02_JPRB,&
+&1.7323E-02_JPRB,1.7346E-02_JPRB,2.6392E-02_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&1.6475E-03_JPRB,5.2207E-03_JPRB,1.0255E-02_JPRB,1.5008E-02_JPRB,1.9715E-02_JPRB,2.4009E-02_JPRB,&
+&2.7310E-02_JPRB,2.7325E-02_JPRB,4.1677E-02_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&1.7171E-03_JPRB,7.7744E-03_JPRB,1.5301E-02_JPRB,2.2477E-02_JPRB,2.9556E-02_JPRB,3.5932E-02_JPRB,&
+&4.0780E-02_JPRB,4.0784E-02_JPRB,6.2312E-02_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&1.9724E-03_JPRB,1.7312E-03_JPRB,1.7354E-03_JPRB,2.5314E-03_JPRB,3.2671E-03_JPRB,3.9608E-03_JPRB,&
+&4.3782E-03_JPRB,4.2763E-03_JPRB,7.0340E-03_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&1.9569E-03_JPRB,1.7215E-03_JPRB,3.3340E-03_JPRB,4.8320E-03_JPRB,6.3356E-03_JPRB,7.5448E-03_JPRB,&
+&8.4497E-03_JPRB,8.2045E-03_JPRB,1.3623E-02_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&1.9222E-03_JPRB,3.0063E-03_JPRB,5.8393E-03_JPRB,8.4557E-03_JPRB,1.1082E-02_JPRB,1.3356E-02_JPRB,&
+&1.4892E-02_JPRB,1.4508E-02_JPRB,2.3611E-02_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&1.8856E-03_JPRB,4.8368E-03_JPRB,9.4413E-03_JPRB,1.3907E-02_JPRB,1.7960E-02_JPRB,2.1659E-02_JPRB,&
+&2.4357E-02_JPRB,2.3676E-02_JPRB,3.8984E-02_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&1.8442E-03_JPRB,7.3401E-03_JPRB,1.4568E-02_JPRB,2.1338E-02_JPRB,2.7859E-02_JPRB,3.3579E-02_JPRB,&
+&3.7493E-02_JPRB,3.6571E-02_JPRB,5.9238E-02_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&2.2527E-03_JPRB,1.9717E-03_JPRB,1.6910E-03_JPRB,1.9762E-03_JPRB,2.5161E-03_JPRB,3.0221E-03_JPRB,&
+&3.2672E-03_JPRB,3.0670E-03_JPRB,2.3998E-02_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&2.2414E-03_JPRB,1.9482E-03_JPRB,2.7675E-03_JPRB,3.9857E-03_JPRB,5.1603E-03_JPRB,6.1015E-03_JPRB,&
+&6.6813E-03_JPRB,6.2533E-03_JPRB,4.8508E-02_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&2.2044E-03_JPRB,2.6160E-03_JPRB,5.0727E-03_JPRB,7.3140E-03_JPRB,9.5554E-03_JPRB,1.1250E-02_JPRB,&
+&1.2412E-02_JPRB,1.1623E-02_JPRB,8.8725E-02_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&2.1701E-03_JPRB,4.4267E-03_JPRB,8.5607E-03_JPRB,1.2545E-02_JPRB,1.6038E-02_JPRB,1.9134E-02_JPRB,&
+&2.1125E-02_JPRB,1.9740E-02_JPRB,1.5078E-01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&2.1291E-03_JPRB,6.8813E-03_JPRB,1.3705E-02_JPRB,1.9867E-02_JPRB,2.5629E-02_JPRB,3.0522E-02_JPRB,&
+&3.3472E-02_JPRB,3.1537E-02_JPRB,2.4056E-01_JPRB/)
+KAO( :, 1,10,16) = (/&
+&2.6049E-03_JPRB,2.2811E-03_JPRB,1.9524E-03_JPRB,1.6297E-03_JPRB,1.9817E-03_JPRB,2.3323E-03_JPRB,&
+&2.4538E-03_JPRB,1.0919E-07_JPRB,9.9434E-02_JPRB/)
+KAO( :, 2,10,16) = (/&
+&2.5564E-03_JPRB,2.2387E-03_JPRB,2.3682E-03_JPRB,3.4024E-03_JPRB,4.3056E-03_JPRB,4.9923E-03_JPRB,&
+&5.3151E-03_JPRB,4.7395E-03_JPRB,2.1164E-01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&2.5312E-03_JPRB,2.3572E-03_JPRB,4.5332E-03_JPRB,6.5179E-03_JPRB,8.3516E-03_JPRB,9.6321E-03_JPRB,&
+&1.0262E-02_JPRB,9.2275E-03_JPRB,4.0466E-01_JPRB/)
+KAO( :, 4,10,16) = (/&
+&2.4933E-03_JPRB,4.1318E-03_JPRB,7.9555E-03_JPRB,1.1428E-02_JPRB,1.4719E-02_JPRB,1.6992E-02_JPRB,&
+&1.8127E-02_JPRB,1.6262E-02_JPRB,7.1180E-01_JPRB/)
+KAO( :, 5,10,16) = (/&
+&2.4587E-03_JPRB,6.7099E-03_JPRB,1.3086E-02_JPRB,1.8862E-02_JPRB,2.3880E-02_JPRB,2.7946E-02_JPRB,&
+&2.9807E-02_JPRB,2.6793E-02_JPRB,1.1699E+00_JPRB/)
+KAO( :, 1,11,16) = (/&
+&3.0995E-03_JPRB,2.7200E-03_JPRB,2.3118E-03_JPRB,1.9403E-03_JPRB,2.2912E-03_JPRB,2.6188E-03_JPRB,&
+&2.6729E-03_JPRB,9.6247E-08_JPRB,2.0911E-01_JPRB/)
+KAO( :, 2,11,16) = (/&
+&2.9890E-03_JPRB,2.6201E-03_JPRB,2.7716E-03_JPRB,3.9533E-03_JPRB,4.9561E-03_JPRB,5.6265E-03_JPRB,&
+&5.7942E-03_JPRB,4.9820E-03_JPRB,4.4548E-01_JPRB/)
+KAO( :, 3,11,16) = (/&
+&2.9190E-03_JPRB,2.7609E-03_JPRB,5.3580E-03_JPRB,7.5536E-03_JPRB,9.5654E-03_JPRB,1.0853E-02_JPRB,&
+&1.1187E-02_JPRB,9.7006E-03_JPRB,8.5245E-01_JPRB/)
+KAO( :, 4,11,16) = (/&
+&2.8864E-03_JPRB,4.8539E-03_JPRB,9.3197E-03_JPRB,1.3213E-02_JPRB,1.6850E-02_JPRB,1.9193E-02_JPRB,&
+&1.9763E-02_JPRB,1.7093E-02_JPRB,1.5055E+00_JPRB/)
+KAO( :, 5,11,16) = (/&
+&2.8813E-03_JPRB,7.9127E-03_JPRB,1.5164E-02_JPRB,2.1854E-02_JPRB,2.7083E-02_JPRB,3.1374E-02_JPRB,&
+&3.2509E-02_JPRB,2.8179E-02_JPRB,2.4634E+00_JPRB/)
+KAO( :, 1,12,16) = (/&
+&3.7114E-03_JPRB,3.2586E-03_JPRB,2.7915E-03_JPRB,2.3232E-03_JPRB,2.6631E-03_JPRB,3.0175E-03_JPRB,&
+&3.0634E-03_JPRB,8.7203E-08_JPRB,3.2918E-01_JPRB/)
+KAO( :, 2,12,16) = (/&
+&3.5714E-03_JPRB,3.1255E-03_JPRB,3.2432E-03_JPRB,4.6151E-03_JPRB,5.7633E-03_JPRB,6.4683E-03_JPRB,&
+&6.5276E-03_JPRB,5.5718E-03_JPRB,7.0176E-01_JPRB/)
+KAO( :, 3,12,16) = (/&
+&3.4916E-03_JPRB,3.2858E-03_JPRB,6.3152E-03_JPRB,8.8262E-03_JPRB,1.0981E-02_JPRB,1.2464E-02_JPRB,&
+&1.2740E-02_JPRB,1.0731E-02_JPRB,1.3410E+00_JPRB/)
+KAO( :, 4,12,16) = (/&
+&3.4311E-03_JPRB,5.7096E-03_JPRB,1.0941E-02_JPRB,1.5646E-02_JPRB,1.9404E-02_JPRB,2.2034E-02_JPRB,&
+&2.2454E-02_JPRB,1.9063E-02_JPRB,2.3582E+00_JPRB/)
+KAO( :, 5,12,16) = (/&
+&3.4152E-03_JPRB,9.2951E-03_JPRB,1.7728E-02_JPRB,2.5434E-02_JPRB,3.1194E-02_JPRB,3.5945E-02_JPRB,&
+&3.6575E-02_JPRB,3.1362E-02_JPRB,3.8718E+00_JPRB/)
+KAO( :, 1,13,16) = (/&
+&4.4410E-03_JPRB,3.8860E-03_JPRB,3.3353E-03_JPRB,2.7740E-03_JPRB,3.0544E-03_JPRB,3.4238E-03_JPRB,&
+&3.4509E-03_JPRB,2.8859E-03_JPRB,4.1592E-01_JPRB/)
+KAO( :, 2,13,16) = (/&
+&4.2685E-03_JPRB,3.7372E-03_JPRB,3.7732E-03_JPRB,5.3427E-03_JPRB,6.6266E-03_JPRB,7.3589E-03_JPRB,&
+&7.3233E-03_JPRB,6.2265E-03_JPRB,8.8643E-01_JPRB/)
+KAO( :, 3,13,16) = (/&
+&4.1797E-03_JPRB,3.9191E-03_JPRB,7.1821E-03_JPRB,1.0185E-02_JPRB,1.2582E-02_JPRB,1.4162E-02_JPRB,&
+&1.4321E-02_JPRB,1.1935E-02_JPRB,1.6929E+00_JPRB/)
+KAO( :, 4,13,16) = (/&
+&4.0934E-03_JPRB,6.6879E-03_JPRB,1.2699E-02_JPRB,1.8078E-02_JPRB,2.2220E-02_JPRB,2.4912E-02_JPRB,&
+&2.5205E-02_JPRB,2.1207E-02_JPRB,2.9775E+00_JPRB/)
+KAO( :, 5,13,16) = (/&
+&4.0583E-03_JPRB,1.0796E-02_JPRB,2.0731E-02_JPRB,2.9284E-02_JPRB,3.5883E-02_JPRB,4.0713E-02_JPRB,&
+&4.0964E-02_JPRB,3.4894E-02_JPRB,4.8770E+00_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB7_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_BB.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_BB.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb7_BB.F90	(revision 2160)
@@ -0,0 +1,1543 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB7_BB
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO  ,ABSCO2O
+USE YOERRTA7 , ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&5.1259E-02_JPRB,7.3611E-02_JPRB,1.0293E-01_JPRB,1.3958E-01_JPRB,1.8370E-01_JPRB/)
+KBO( :,14, 1) = (/&
+&4.5713E-02_JPRB,6.5277E-02_JPRB,9.0553E-02_JPRB,1.2145E-01_JPRB,1.5795E-01_JPRB/)
+KBO( :,15, 1) = (/&
+&4.0795E-02_JPRB,5.7938E-02_JPRB,7.9664E-02_JPRB,1.0581E-01_JPRB,1.3605E-01_JPRB/)
+KBO( :,16, 1) = (/&
+&3.6460E-02_JPRB,5.1532E-02_JPRB,7.0278E-02_JPRB,9.2517E-02_JPRB,1.1775E-01_JPRB/)
+KBO( :,17, 1) = (/&
+&3.2358E-02_JPRB,4.5390E-02_JPRB,6.1388E-02_JPRB,8.0070E-02_JPRB,1.0088E-01_JPRB/)
+KBO( :,18, 1) = (/&
+&2.8485E-02_JPRB,3.9634E-02_JPRB,5.3109E-02_JPRB,6.8586E-02_JPRB,8.5607E-02_JPRB/)
+KBO( :,19, 1) = (/&
+&2.4839E-02_JPRB,3.4251E-02_JPRB,4.5451E-02_JPRB,5.8119E-02_JPRB,7.1935E-02_JPRB/)
+KBO( :,20, 1) = (/&
+&2.1646E-02_JPRB,2.9549E-02_JPRB,3.8829E-02_JPRB,4.9218E-02_JPRB,6.0534E-02_JPRB/)
+KBO( :,21, 1) = (/&
+&1.8726E-02_JPRB,2.5319E-02_JPRB,3.2990E-02_JPRB,4.1539E-02_JPRB,5.0831E-02_JPRB/)
+KBO( :,22, 1) = (/&
+&1.6430E-02_JPRB,2.1972E-02_JPRB,2.8373E-02_JPRB,3.5469E-02_JPRB,4.3144E-02_JPRB/)
+KBO( :,23, 1) = (/&
+&1.4344E-02_JPRB,1.9007E-02_JPRB,2.4347E-02_JPRB,3.0236E-02_JPRB,3.6575E-02_JPRB/)
+KBO( :,24, 1) = (/&
+&1.2498E-02_JPRB,1.6422E-02_JPRB,2.0874E-02_JPRB,2.5759E-02_JPRB,3.0990E-02_JPRB/)
+KBO( :,25, 1) = (/&
+&1.0890E-02_JPRB,1.4194E-02_JPRB,1.7906E-02_JPRB,2.1962E-02_JPRB,2.6282E-02_JPRB/)
+KBO( :,26, 1) = (/&
+&9.5169E-03_JPRB,1.2303E-02_JPRB,1.5406E-02_JPRB,1.8780E-02_JPRB,2.2347E-02_JPRB/)
+KBO( :,27, 1) = (/&
+&8.3127E-03_JPRB,1.0661E-02_JPRB,1.3260E-02_JPRB,1.6073E-02_JPRB,1.9015E-02_JPRB/)
+KBO( :,28, 1) = (/&
+&7.2555E-03_JPRB,9.2333E-03_JPRB,1.1414E-02_JPRB,1.3752E-02_JPRB,1.6182E-02_JPRB/)
+KBO( :,29, 1) = (/&
+&6.3460E-03_JPRB,8.0168E-03_JPRB,9.8497E-03_JPRB,1.1797E-02_JPRB,1.3808E-02_JPRB/)
+KBO( :,30, 1) = (/&
+&5.5479E-03_JPRB,6.9613E-03_JPRB,8.4972E-03_JPRB,1.0118E-02_JPRB,1.1783E-02_JPRB/)
+KBO( :,31, 1) = (/&
+&4.8584E-03_JPRB,6.0543E-03_JPRB,7.3446E-03_JPRB,8.6964E-03_JPRB,1.0081E-02_JPRB/)
+KBO( :,32, 1) = (/&
+&4.2533E-03_JPRB,5.2649E-03_JPRB,6.3493E-03_JPRB,7.4778E-03_JPRB,8.6341E-03_JPRB/)
+KBO( :,33, 1) = (/&
+&3.7229E-03_JPRB,4.5793E-03_JPRB,5.4910E-03_JPRB,6.4373E-03_JPRB,7.4041E-03_JPRB/)
+KBO( :,34, 1) = (/&
+&3.2276E-03_JPRB,3.9492E-03_JPRB,4.7134E-03_JPRB,5.5048E-03_JPRB,6.3115E-03_JPRB/)
+KBO( :,35, 1) = (/&
+&2.7399E-03_JPRB,3.3442E-03_JPRB,3.9827E-03_JPRB,4.6441E-03_JPRB,5.3183E-03_JPRB/)
+KBO( :,36, 1) = (/&
+&2.2726E-03_JPRB,2.7751E-03_JPRB,3.3064E-03_JPRB,3.8585E-03_JPRB,4.4216E-03_JPRB/)
+KBO( :,37, 1) = (/&
+&1.8221E-03_JPRB,2.2350E-03_JPRB,2.6736E-03_JPRB,3.1310E-03_JPRB,3.5993E-03_JPRB/)
+KBO( :,38, 1) = (/&
+&1.4592E-03_JPRB,1.7985E-03_JPRB,2.1611E-03_JPRB,2.5404E-03_JPRB,2.9304E-03_JPRB/)
+KBO( :,39, 1) = (/&
+&1.1699E-03_JPRB,1.4493E-03_JPRB,1.7501E-03_JPRB,2.0658E-03_JPRB,2.3919E-03_JPRB/)
+KBO( :,40, 1) = (/&
+&9.1194E-04_JPRB,1.1380E-03_JPRB,1.3840E-03_JPRB,1.6433E-03_JPRB,1.9130E-03_JPRB/)
+KBO( :,41, 1) = (/&
+&7.0723E-04_JPRB,8.8961E-04_JPRB,1.0899E-03_JPRB,1.3025E-03_JPRB,1.5252E-03_JPRB/)
+KBO( :,42, 1) = (/&
+&5.4756E-04_JPRB,6.9456E-04_JPRB,8.5764E-04_JPRB,1.0321E-03_JPRB,1.2157E-03_JPRB/)
+KBO( :,43, 1) = (/&
+&4.1699E-04_JPRB,5.3448E-04_JPRB,6.6629E-04_JPRB,8.0890E-04_JPRB,9.6007E-04_JPRB/)
+KBO( :,44, 1) = (/&
+&3.1440E-04_JPRB,4.0792E-04_JPRB,5.1407E-04_JPRB,6.3038E-04_JPRB,7.5481E-04_JPRB/)
+KBO( :,45, 1) = (/&
+&2.3640E-04_JPRB,3.1074E-04_JPRB,3.9606E-04_JPRB,4.9085E-04_JPRB,5.9335E-04_JPRB/)
+KBO( :,46, 1) = (/&
+&1.7594E-04_JPRB,2.3455E-04_JPRB,3.0267E-04_JPRB,3.7967E-04_JPRB,4.6391E-04_JPRB/)
+KBO( :,47, 1) = (/&
+&1.2843E-04_JPRB,1.7389E-04_JPRB,2.2775E-04_JPRB,2.8951E-04_JPRB,3.5820E-04_JPRB/)
+KBO( :,48, 1) = (/&
+&9.3343E-05_JPRB,1.2837E-04_JPRB,1.7092E-04_JPRB,2.2045E-04_JPRB,2.7649E-04_JPRB/)
+KBO( :,49, 1) = (/&
+&6.7599E-05_JPRB,9.4536E-05_JPRB,1.2808E-04_JPRB,1.6786E-04_JPRB,2.1369E-04_JPRB/)
+KBO( :,50, 1) = (/&
+&4.8948E-05_JPRB,6.9502E-05_JPRB,9.5623E-05_JPRB,1.2729E-04_JPRB,1.6435E-04_JPRB/)
+KBO( :,51, 1) = (/&
+&3.5346E-05_JPRB,5.0921E-05_JPRB,7.1079E-05_JPRB,9.6095E-05_JPRB,1.2578E-04_JPRB/)
+KBO( :,52, 1) = (/&
+&2.5450E-05_JPRB,3.7196E-05_JPRB,5.2726E-05_JPRB,7.2442E-05_JPRB,9.6232E-05_JPRB/)
+KBO( :,53, 1) = (/&
+&1.8296E-05_JPRB,2.7103E-05_JPRB,3.9075E-05_JPRB,5.4599E-05_JPRB,7.3735E-05_JPRB/)
+KBO( :,54, 1) = (/&
+&1.3152E-05_JPRB,1.9639E-05_JPRB,2.8663E-05_JPRB,4.0549E-05_JPRB,5.5484E-05_JPRB/)
+KBO( :,55, 1) = (/&
+&9.4445E-06_JPRB,1.4166E-05_JPRB,2.0853E-05_JPRB,2.9772E-05_JPRB,4.1184E-05_JPRB/)
+KBO( :,56, 1) = (/&
+&6.7805E-06_JPRB,1.0206E-05_JPRB,1.5127E-05_JPRB,2.1803E-05_JPRB,3.0469E-05_JPRB/)
+KBO( :,57, 1) = (/&
+&4.8676E-06_JPRB,7.3427E-06_JPRB,1.0945E-05_JPRB,1.5922E-05_JPRB,2.2468E-05_JPRB/)
+KBO( :,58, 1) = (/&
+&3.5190E-06_JPRB,5.3050E-06_JPRB,7.9365E-06_JPRB,1.1632E-05_JPRB,1.6547E-05_JPRB/)
+KBO( :,59, 1) = (/&
+&2.7224E-06_JPRB,4.0826E-06_JPRB,6.0785E-06_JPRB,8.8720E-06_JPRB,1.2572E-05_JPRB/)
+KBO( :,13, 2) = (/&
+&2.7119E-01_JPRB,3.6310E-01_JPRB,4.7414E-01_JPRB,6.0307E-01_JPRB,7.4957E-01_JPRB/)
+KBO( :,14, 2) = (/&
+&2.5353E-01_JPRB,3.3756E-01_JPRB,4.3733E-01_JPRB,5.5227E-01_JPRB,6.8177E-01_JPRB/)
+KBO( :,15, 2) = (/&
+&2.3613E-01_JPRB,3.1296E-01_JPRB,4.0272E-01_JPRB,5.0521E-01_JPRB,6.1950E-01_JPRB/)
+KBO( :,16, 2) = (/&
+&2.1883E-01_JPRB,2.8892E-01_JPRB,3.7007E-01_JPRB,4.6171E-01_JPRB,5.6222E-01_JPRB/)
+KBO( :,17, 2) = (/&
+&2.0046E-01_JPRB,2.6387E-01_JPRB,3.3671E-01_JPRB,4.1802E-01_JPRB,5.0615E-01_JPRB/)
+KBO( :,18, 2) = (/&
+&1.8162E-01_JPRB,2.3837E-01_JPRB,3.0306E-01_JPRB,3.7451E-01_JPRB,4.5033E-01_JPRB/)
+KBO( :,19, 2) = (/&
+&1.6273E-01_JPRB,2.1280E-01_JPRB,2.6942E-01_JPRB,3.3081E-01_JPRB,3.9474E-01_JPRB/)
+KBO( :,20, 2) = (/&
+&1.4529E-01_JPRB,1.8899E-01_JPRB,2.3756E-01_JPRB,2.8972E-01_JPRB,3.4258E-01_JPRB/)
+KBO( :,21, 2) = (/&
+&1.2870E-01_JPRB,1.6616E-01_JPRB,2.0730E-01_JPRB,2.5076E-01_JPRB,2.9377E-01_JPRB/)
+KBO( :,22, 2) = (/&
+&1.1499E-01_JPRB,1.4695E-01_JPRB,1.8158E-01_JPRB,2.1711E-01_JPRB,2.5164E-01_JPRB/)
+KBO( :,23, 2) = (/&
+&1.0194E-01_JPRB,1.2892E-01_JPRB,1.5758E-01_JPRB,1.8624E-01_JPRB,2.1370E-01_JPRB/)
+KBO( :,24, 2) = (/&
+&8.9789E-02_JPRB,1.1229E-01_JPRB,1.3567E-01_JPRB,1.5862E-01_JPRB,1.8060E-01_JPRB/)
+KBO( :,25, 2) = (/&
+&7.8662E-02_JPRB,9.7205E-02_JPRB,1.1609E-01_JPRB,1.3460E-01_JPRB,1.5226E-01_JPRB/)
+KBO( :,26, 2) = (/&
+&6.8677E-02_JPRB,8.3839E-02_JPRB,9.9146E-02_JPRB,1.1408E-01_JPRB,1.2832E-01_JPRB/)
+KBO( :,27, 2) = (/&
+&5.9597E-02_JPRB,7.2017E-02_JPRB,8.4456E-02_JPRB,9.6525E-02_JPRB,1.0804E-01_JPRB/)
+KBO( :,28, 2) = (/&
+&5.1479E-02_JPRB,6.1677E-02_JPRB,7.1788E-02_JPRB,8.1553E-02_JPRB,9.0870E-02_JPRB/)
+KBO( :,29, 2) = (/&
+&4.4418E-02_JPRB,5.2773E-02_JPRB,6.1008E-02_JPRB,6.8941E-02_JPRB,7.6507E-02_JPRB/)
+KBO( :,30, 2) = (/&
+&3.8240E-02_JPRB,4.5084E-02_JPRB,5.1802E-02_JPRB,5.8270E-02_JPRB,6.4403E-02_JPRB/)
+KBO( :,31, 2) = (/&
+&3.2906E-02_JPRB,3.8522E-02_JPRB,4.4011E-02_JPRB,4.9308E-02_JPRB,5.4268E-02_JPRB/)
+KBO( :,32, 2) = (/&
+&2.8286E-02_JPRB,3.2899E-02_JPRB,3.7402E-02_JPRB,4.1721E-02_JPRB,4.5728E-02_JPRB/)
+KBO( :,33, 2) = (/&
+&2.4296E-02_JPRB,2.8097E-02_JPRB,3.1779E-02_JPRB,3.5285E-02_JPRB,3.8510E-02_JPRB/)
+KBO( :,34, 2) = (/&
+&2.0730E-02_JPRB,2.3844E-02_JPRB,2.6852E-02_JPRB,2.9683E-02_JPRB,3.2295E-02_JPRB/)
+KBO( :,35, 2) = (/&
+&1.7417E-02_JPRB,1.9970E-02_JPRB,2.2433E-02_JPRB,2.4741E-02_JPRB,2.6876E-02_JPRB/)
+KBO( :,36, 2) = (/&
+&1.4391E-02_JPRB,1.6493E-02_JPRB,1.8520E-02_JPRB,2.0421E-02_JPRB,2.2183E-02_JPRB/)
+KBO( :,37, 2) = (/&
+&1.1614E-02_JPRB,1.3354E-02_JPRB,1.5031E-02_JPRB,1.6611E-02_JPRB,1.8085E-02_JPRB/)
+KBO( :,38, 2) = (/&
+&9.3636E-03_JPRB,1.0802E-02_JPRB,1.2193E-02_JPRB,1.3510E-02_JPRB,1.4737E-02_JPRB/)
+KBO( :,39, 2) = (/&
+&7.5541E-03_JPRB,8.7439E-03_JPRB,9.8975E-03_JPRB,1.0998E-02_JPRB,1.2026E-02_JPRB/)
+KBO( :,40, 2) = (/&
+&5.9794E-03_JPRB,6.9606E-03_JPRB,7.9183E-03_JPRB,8.8404E-03_JPRB,9.7022E-03_JPRB/)
+KBO( :,41, 2) = (/&
+&4.7162E-03_JPRB,5.5242E-03_JPRB,6.3175E-03_JPRB,7.0884E-03_JPRB,7.8122E-03_JPRB/)
+KBO( :,42, 2) = (/&
+&3.7141E-03_JPRB,4.3793E-03_JPRB,5.0373E-03_JPRB,5.6797E-03_JPRB,6.2875E-03_JPRB/)
+KBO( :,43, 2) = (/&
+&2.8894E-03_JPRB,3.4367E-03_JPRB,3.9819E-03_JPRB,4.5167E-03_JPRB,5.0302E-03_JPRB/)
+KBO( :,44, 2) = (/&
+&2.2311E-03_JPRB,2.6800E-03_JPRB,3.1318E-03_JPRB,3.5777E-03_JPRB,4.0109E-03_JPRB/)
+KBO( :,45, 2) = (/&
+&1.7190E-03_JPRB,2.0864E-03_JPRB,2.4595E-03_JPRB,2.8305E-03_JPRB,3.1948E-03_JPRB/)
+KBO( :,46, 2) = (/&
+&1.3144E-03_JPRB,1.6127E-03_JPRB,1.9198E-03_JPRB,2.2288E-03_JPRB,2.5338E-03_JPRB/)
+KBO( :,47, 2) = (/&
+&9.9072E-04_JPRB,1.2307E-03_JPRB,1.4827E-03_JPRB,1.7388E-03_JPRB,1.9939E-03_JPRB/)
+KBO( :,48, 2) = (/&
+&7.4328E-04_JPRB,9.3584E-04_JPRB,1.1422E-03_JPRB,1.3542E-03_JPRB,1.5673E-03_JPRB/)
+KBO( :,49, 2) = (/&
+&5.5568E-04_JPRB,7.0962E-04_JPRB,8.7747E-04_JPRB,1.0533E-03_JPRB,1.2311E-03_JPRB/)
+KBO( :,50, 2) = (/&
+&4.1543E-04_JPRB,5.3759E-04_JPRB,6.7298E-04_JPRB,8.1754E-04_JPRB,9.6501E-04_JPRB/)
+KBO( :,51, 2) = (/&
+&3.0972E-04_JPRB,4.0612E-04_JPRB,5.1480E-04_JPRB,6.3279E-04_JPRB,7.5447E-04_JPRB/)
+KBO( :,52, 2) = (/&
+&2.2960E-04_JPRB,3.0589E-04_JPRB,3.9277E-04_JPRB,4.8863E-04_JPRB,5.8929E-04_JPRB/)
+KBO( :,53, 2) = (/&
+&1.6933E-04_JPRB,2.2968E-04_JPRB,2.9891E-04_JPRB,3.7665E-04_JPRB,4.6003E-04_JPRB/)
+KBO( :,54, 2) = (/&
+&1.2476E-04_JPRB,1.7207E-04_JPRB,2.2658E-04_JPRB,2.8866E-04_JPRB,3.5637E-04_JPRB/)
+KBO( :,55, 2) = (/&
+&9.1638E-05_JPRB,1.2832E-04_JPRB,1.7102E-04_JPRB,2.1999E-04_JPRB,2.7423E-04_JPRB/)
+KBO( :,56, 2) = (/&
+&6.6998E-05_JPRB,9.5270E-05_JPRB,1.2875E-04_JPRB,1.6725E-04_JPRB,2.1034E-04_JPRB/)
+KBO( :,57, 2) = (/&
+&4.8715E-05_JPRB,7.0398E-05_JPRB,9.6609E-05_JPRB,1.2676E-04_JPRB,1.6093E-04_JPRB/)
+KBO( :,58, 2) = (/&
+&3.5429E-05_JPRB,5.2045E-05_JPRB,7.2448E-05_JPRB,9.6079E-05_JPRB,1.2306E-04_JPRB/)
+KBO( :,59, 2) = (/&
+&2.7567E-05_JPRB,4.0660E-05_JPRB,5.6784E-05_JPRB,7.5471E-05_JPRB,9.6741E-05_JPRB/)
+KBO( :,13, 3) = (/&
+&1.0985E+00_JPRB,1.3471E+00_JPRB,1.6024E+00_JPRB,1.8569E+00_JPRB,2.1065E+00_JPRB/)
+KBO( :,14, 3) = (/&
+&1.0057E+00_JPRB,1.2261E+00_JPRB,1.4487E+00_JPRB,1.6701E+00_JPRB,1.8867E+00_JPRB/)
+KBO( :,15, 3) = (/&
+&9.2327E-01_JPRB,1.1163E+00_JPRB,1.3096E+00_JPRB,1.5013E+00_JPRB,1.6927E+00_JPRB/)
+KBO( :,16, 3) = (/&
+&8.4655E-01_JPRB,1.0142E+00_JPRB,1.1813E+00_JPRB,1.3501E+00_JPRB,1.5181E+00_JPRB/)
+KBO( :,17, 3) = (/&
+&7.7095E-01_JPRB,9.1488E-01_JPRB,1.0609E+00_JPRB,1.2083E+00_JPRB,1.3539E+00_JPRB/)
+KBO( :,18, 3) = (/&
+&6.9584E-01_JPRB,8.2061E-01_JPRB,9.4796E-01_JPRB,1.0751E+00_JPRB,1.2000E+00_JPRB/)
+KBO( :,19, 3) = (/&
+&6.2275E-01_JPRB,7.3128E-01_JPRB,8.4109E-01_JPRB,9.5006E-01_JPRB,1.0557E+00_JPRB/)
+KBO( :,20, 3) = (/&
+&5.5466E-01_JPRB,6.4877E-01_JPRB,7.4343E-01_JPRB,8.3591E-01_JPRB,9.2515E-01_JPRB/)
+KBO( :,21, 3) = (/&
+&4.8960E-01_JPRB,5.7076E-01_JPRB,6.5178E-01_JPRB,7.3033E-01_JPRB,8.0430E-01_JPRB/)
+KBO( :,22, 3) = (/&
+&4.3303E-01_JPRB,5.0259E-01_JPRB,5.7096E-01_JPRB,6.3565E-01_JPRB,6.9649E-01_JPRB/)
+KBO( :,23, 3) = (/&
+&3.8028E-01_JPRB,4.3904E-01_JPRB,4.9534E-01_JPRB,5.4802E-01_JPRB,5.9732E-01_JPRB/)
+KBO( :,24, 3) = (/&
+&3.3218E-01_JPRB,3.8059E-01_JPRB,4.2634E-01_JPRB,4.6878E-01_JPRB,5.0765E-01_JPRB/)
+KBO( :,25, 3) = (/&
+&2.8849E-01_JPRB,3.2793E-01_JPRB,3.6460E-01_JPRB,3.9816E-01_JPRB,4.2820E-01_JPRB/)
+KBO( :,26, 3) = (/&
+&2.4952E-01_JPRB,2.8128E-01_JPRB,3.1016E-01_JPRB,3.3620E-01_JPRB,3.5944E-01_JPRB/)
+KBO( :,27, 3) = (/&
+&2.1458E-01_JPRB,2.3971E-01_JPRB,2.6222E-01_JPRB,2.8249E-01_JPRB,3.0071E-01_JPRB/)
+KBO( :,28, 3) = (/&
+&1.8348E-01_JPRB,2.0307E-01_JPRB,2.2063E-01_JPRB,2.3668E-01_JPRB,2.5103E-01_JPRB/)
+KBO( :,29, 3) = (/&
+&1.5612E-01_JPRB,1.7138E-01_JPRB,1.8529E-01_JPRB,1.9807E-01_JPRB,2.0946E-01_JPRB/)
+KBO( :,30, 3) = (/&
+&1.3217E-01_JPRB,1.4426E-01_JPRB,1.5536E-01_JPRB,1.6555E-01_JPRB,1.7467E-01_JPRB/)
+KBO( :,31, 3) = (/&
+&1.1164E-01_JPRB,1.2131E-01_JPRB,1.3020E-01_JPRB,1.3837E-01_JPRB,1.4579E-01_JPRB/)
+KBO( :,32, 3) = (/&
+&9.4160E-02_JPRB,1.0190E-01_JPRB,1.0909E-01_JPRB,1.1569E-01_JPRB,1.2174E-01_JPRB/)
+KBO( :,33, 3) = (/&
+&7.9328E-02_JPRB,8.5579E-02_JPRB,9.1418E-02_JPRB,9.6812E-02_JPRB,1.0174E-01_JPRB/)
+KBO( :,34, 3) = (/&
+&6.6575E-02_JPRB,7.1681E-02_JPRB,7.6449E-02_JPRB,8.0861E-02_JPRB,8.4837E-02_JPRB/)
+KBO( :,35, 3) = (/&
+&5.5452E-02_JPRB,5.9669E-02_JPRB,6.3583E-02_JPRB,6.7195E-02_JPRB,7.0402E-02_JPRB/)
+KBO( :,36, 3) = (/&
+&4.5817E-02_JPRB,4.9311E-02_JPRB,5.2541E-02_JPRB,5.5500E-02_JPRB,5.8136E-02_JPRB/)
+KBO( :,37, 3) = (/&
+&3.7392E-02_JPRB,4.0307E-02_JPRB,4.2995E-02_JPRB,4.5443E-02_JPRB,4.7667E-02_JPRB/)
+KBO( :,38, 3) = (/&
+&3.0507E-02_JPRB,3.2931E-02_JPRB,3.5170E-02_JPRB,3.7213E-02_JPRB,3.9076E-02_JPRB/)
+KBO( :,39, 3) = (/&
+&2.4900E-02_JPRB,2.6916E-02_JPRB,2.8785E-02_JPRB,3.0496E-02_JPRB,3.2065E-02_JPRB/)
+KBO( :,40, 3) = (/&
+&2.0117E-02_JPRB,2.1794E-02_JPRB,2.3370E-02_JPRB,2.4808E-02_JPRB,2.6137E-02_JPRB/)
+KBO( :,41, 3) = (/&
+&1.6225E-02_JPRB,1.7626E-02_JPRB,1.8947E-02_JPRB,2.0157E-02_JPRB,2.1285E-02_JPRB/)
+KBO( :,42, 3) = (/&
+&1.3079E-02_JPRB,1.4250E-02_JPRB,1.5359E-02_JPRB,1.6379E-02_JPRB,1.7329E-02_JPRB/)
+KBO( :,43, 3) = (/&
+&1.0482E-02_JPRB,1.1462E-02_JPRB,1.2394E-02_JPRB,1.3257E-02_JPRB,1.4064E-02_JPRB/)
+KBO( :,44, 3) = (/&
+&8.3710E-03_JPRB,9.1942E-03_JPRB,9.9787E-03_JPRB,1.0713E-02_JPRB,1.1396E-02_JPRB/)
+KBO( :,45, 3) = (/&
+&6.6788E-03_JPRB,7.3702E-03_JPRB,8.0298E-03_JPRB,8.6522E-03_JPRB,9.2329E-03_JPRB/)
+KBO( :,46, 3) = (/&
+&5.3081E-03_JPRB,5.8891E-03_JPRB,6.4422E-03_JPRB,6.9706E-03_JPRB,7.4651E-03_JPRB/)
+KBO( :,47, 3) = (/&
+&4.1866E-03_JPRB,4.6766E-03_JPRB,5.1419E-03_JPRB,5.5881E-03_JPRB,6.0116E-03_JPRB/)
+KBO( :,48, 3) = (/&
+&3.2935E-03_JPRB,3.7074E-03_JPRB,4.1001E-03_JPRB,4.4778E-03_JPRB,4.8397E-03_JPRB/)
+KBO( :,49, 3) = (/&
+&2.5846E-03_JPRB,2.9354E-03_JPRB,3.2677E-03_JPRB,3.5868E-03_JPRB,3.8959E-03_JPRB/)
+KBO( :,50, 3) = (/&
+&2.0269E-03_JPRB,2.3221E-03_JPRB,2.6022E-03_JPRB,2.8709E-03_JPRB,3.1320E-03_JPRB/)
+KBO( :,51, 3) = (/&
+&1.5861E-03_JPRB,1.8335E-03_JPRB,2.0693E-03_JPRB,2.2950E-03_JPRB,2.5144E-03_JPRB/)
+KBO( :,52, 3) = (/&
+&1.2373E-03_JPRB,1.4448E-03_JPRB,1.6433E-03_JPRB,1.8335E-03_JPRB,2.0181E-03_JPRB/)
+KBO( :,53, 3) = (/&
+&9.6238E-04_JPRB,1.1359E-03_JPRB,1.3032E-03_JPRB,1.4639E-03_JPRB,1.6200E-03_JPRB/)
+KBO( :,54, 3) = (/&
+&7.4760E-04_JPRB,8.9109E-04_JPRB,1.0310E-03_JPRB,1.1653E-03_JPRB,1.2951E-03_JPRB/)
+KBO( :,55, 3) = (/&
+&5.7948E-04_JPRB,6.9751E-04_JPRB,8.1351E-04_JPRB,9.2482E-04_JPRB,1.0323E-03_JPRB/)
+KBO( :,56, 3) = (/&
+&4.4747E-04_JPRB,5.4475E-04_JPRB,6.4072E-04_JPRB,7.3311E-04_JPRB,8.2203E-04_JPRB/)
+KBO( :,57, 3) = (/&
+&3.4377E-04_JPRB,4.2418E-04_JPRB,5.0351E-04_JPRB,5.8007E-04_JPRB,6.5383E-04_JPRB/)
+KBO( :,58, 3) = (/&
+&2.6362E-04_JPRB,3.3015E-04_JPRB,3.9544E-04_JPRB,4.5883E-04_JPRB,5.1985E-04_JPRB/)
+KBO( :,59, 3) = (/&
+&2.1059E-04_JPRB,2.6499E-04_JPRB,3.1808E-04_JPRB,3.6954E-04_JPRB,4.1891E-04_JPRB/)
+KBO( :,13, 4) = (/&
+&3.3302E+00_JPRB,3.5900E+00_JPRB,3.8490E+00_JPRB,4.0993E+00_JPRB,4.3544E+00_JPRB/)
+KBO( :,14, 4) = (/&
+&2.9375E+00_JPRB,3.1623E+00_JPRB,3.3912E+00_JPRB,3.6192E+00_JPRB,3.8536E+00_JPRB/)
+KBO( :,15, 4) = (/&
+&2.5847E+00_JPRB,2.7829E+00_JPRB,2.9920E+00_JPRB,3.2042E+00_JPRB,3.4159E+00_JPRB/)
+KBO( :,16, 4) = (/&
+&2.2723E+00_JPRB,2.4555E+00_JPRB,2.6487E+00_JPRB,2.8409E+00_JPRB,3.0352E+00_JPRB/)
+KBO( :,17, 4) = (/&
+&1.9985E+00_JPRB,2.1683E+00_JPRB,2.3422E+00_JPRB,2.5153E+00_JPRB,2.6950E+00_JPRB/)
+KBO( :,18, 4) = (/&
+&1.7574E+00_JPRB,1.9111E+00_JPRB,2.0646E+00_JPRB,2.2235E+00_JPRB,2.3882E+00_JPRB/)
+KBO( :,19, 4) = (/&
+&1.5417E+00_JPRB,1.6771E+00_JPRB,1.8159E+00_JPRB,1.9608E+00_JPRB,2.1091E+00_JPRB/)
+KBO( :,20, 4) = (/&
+&1.3501E+00_JPRB,1.4708E+00_JPRB,1.5966E+00_JPRB,1.7265E+00_JPRB,1.8579E+00_JPRB/)
+KBO( :,21, 4) = (/&
+&1.1792E+00_JPRB,1.2872E+00_JPRB,1.3996E+00_JPRB,1.5140E+00_JPRB,1.6291E+00_JPRB/)
+KBO( :,22, 4) = (/&
+&1.0331E+00_JPRB,1.1299E+00_JPRB,1.2292E+00_JPRB,1.3301E+00_JPRB,1.4294E+00_JPRB/)
+KBO( :,23, 4) = (/&
+&9.0257E-01_JPRB,9.8785E-01_JPRB,1.0758E+00_JPRB,1.1637E+00_JPRB,1.2469E+00_JPRB/)
+KBO( :,24, 4) = (/&
+&7.8462E-01_JPRB,8.6035E-01_JPRB,9.3739E-01_JPRB,1.0117E+00_JPRB,1.0795E+00_JPRB/)
+KBO( :,25, 4) = (/&
+&6.8021E-01_JPRB,7.4644E-01_JPRB,8.1147E-01_JPRB,8.7243E-01_JPRB,9.2768E-01_JPRB/)
+KBO( :,26, 4) = (/&
+&5.8877E-01_JPRB,6.4489E-01_JPRB,6.9856E-01_JPRB,7.4767E-01_JPRB,7.9152E-01_JPRB/)
+KBO( :,27, 4) = (/&
+&5.0790E-01_JPRB,5.5427E-01_JPRB,5.9771E-01_JPRB,6.3660E-01_JPRB,6.7040E-01_JPRB/)
+KBO( :,28, 4) = (/&
+&4.3619E-01_JPRB,4.7420E-01_JPRB,5.0861E-01_JPRB,5.3858E-01_JPRB,5.6428E-01_JPRB/)
+KBO( :,29, 4) = (/&
+&3.7351E-01_JPRB,4.0404E-01_JPRB,4.3062E-01_JPRB,4.5356E-01_JPRB,4.7355E-01_JPRB/)
+KBO( :,30, 4) = (/&
+&3.1877E-01_JPRB,3.4252E-01_JPRB,3.6291E-01_JPRB,3.8087E-01_JPRB,3.9669E-01_JPRB/)
+KBO( :,31, 4) = (/&
+&2.7097E-01_JPRB,2.8918E-01_JPRB,3.0519E-01_JPRB,3.1945E-01_JPRB,3.3218E-01_JPRB/)
+KBO( :,32, 4) = (/&
+&2.2933E-01_JPRB,2.4355E-01_JPRB,2.5629E-01_JPRB,2.6778E-01_JPRB,2.7819E-01_JPRB/)
+KBO( :,33, 4) = (/&
+&1.9352E-01_JPRB,2.0488E-01_JPRB,2.1514E-01_JPRB,2.2453E-01_JPRB,2.3322E-01_JPRB/)
+KBO( :,34, 4) = (/&
+&1.6266E-01_JPRB,1.7186E-01_JPRB,1.8021E-01_JPRB,1.8806E-01_JPRB,1.9533E-01_JPRB/)
+KBO( :,35, 4) = (/&
+&1.3588E-01_JPRB,1.4344E-01_JPRB,1.5044E-01_JPRB,1.5708E-01_JPRB,1.6319E-01_JPRB/)
+KBO( :,36, 4) = (/&
+&1.1281E-01_JPRB,1.1914E-01_JPRB,1.2508E-01_JPRB,1.3072E-01_JPRB,1.3587E-01_JPRB/)
+KBO( :,37, 4) = (/&
+&9.2816E-02_JPRB,9.8205E-02_JPRB,1.0328E-01_JPRB,1.0804E-01_JPRB,1.1242E-01_JPRB/)
+KBO( :,38, 4) = (/&
+&7.6370E-02_JPRB,8.0963E-02_JPRB,8.5283E-02_JPRB,8.9321E-02_JPRB,9.2973E-02_JPRB/)
+KBO( :,39, 4) = (/&
+&6.2888E-02_JPRB,6.6805E-02_JPRB,7.0475E-02_JPRB,7.3875E-02_JPRB,7.6971E-02_JPRB/)
+KBO( :,40, 4) = (/&
+&5.1396E-02_JPRB,5.4708E-02_JPRB,5.7829E-02_JPRB,6.0714E-02_JPRB,6.3350E-02_JPRB/)
+KBO( :,41, 4) = (/&
+&4.1955E-02_JPRB,4.4762E-02_JPRB,4.7396E-02_JPRB,4.9843E-02_JPRB,5.2102E-02_JPRB/)
+KBO( :,42, 4) = (/&
+&3.4234E-02_JPRB,3.6611E-02_JPRB,3.8848E-02_JPRB,4.0922E-02_JPRB,4.2851E-02_JPRB/)
+KBO( :,43, 4) = (/&
+&2.7815E-02_JPRB,2.9825E-02_JPRB,3.1727E-02_JPRB,3.3492E-02_JPRB,3.5154E-02_JPRB/)
+KBO( :,44, 4) = (/&
+&2.2537E-02_JPRB,2.4240E-02_JPRB,2.5867E-02_JPRB,2.7378E-02_JPRB,2.8807E-02_JPRB/)
+KBO( :,45, 4) = (/&
+&1.8246E-02_JPRB,1.9697E-02_JPRB,2.1085E-02_JPRB,2.2374E-02_JPRB,2.3604E-02_JPRB/)
+KBO( :,46, 4) = (/&
+&1.4728E-02_JPRB,1.5964E-02_JPRB,1.7142E-02_JPRB,1.8251E-02_JPRB,1.9308E-02_JPRB/)
+KBO( :,47, 4) = (/&
+&1.1818E-02_JPRB,1.2873E-02_JPRB,1.3878E-02_JPRB,1.4831E-02_JPRB,1.5740E-02_JPRB/)
+KBO( :,48, 4) = (/&
+&9.4657E-03_JPRB,1.0367E-02_JPRB,1.1228E-02_JPRB,1.2052E-02_JPRB,1.2833E-02_JPRB/)
+KBO( :,49, 4) = (/&
+&7.5680E-03_JPRB,8.3421E-03_JPRB,9.0805E-03_JPRB,9.7902E-03_JPRB,1.0464E-02_JPRB/)
+KBO( :,50, 4) = (/&
+&6.0502E-03_JPRB,6.7078E-03_JPRB,7.3374E-03_JPRB,7.9442E-03_JPRB,8.5226E-03_JPRB/)
+KBO( :,51, 4) = (/&
+&4.8299E-03_JPRB,5.3854E-03_JPRB,5.9216E-03_JPRB,6.4376E-03_JPRB,6.9334E-03_JPRB/)
+KBO( :,52, 4) = (/&
+&3.8467E-03_JPRB,4.3164E-03_JPRB,4.7737E-03_JPRB,5.2128E-03_JPRB,5.6384E-03_JPRB/)
+KBO( :,53, 4) = (/&
+&3.0576E-03_JPRB,3.4544E-03_JPRB,3.8447E-03_JPRB,4.2192E-03_JPRB,4.5847E-03_JPRB/)
+KBO( :,54, 4) = (/&
+&2.4302E-03_JPRB,2.7614E-03_JPRB,3.0899E-03_JPRB,3.4056E-03_JPRB,3.7134E-03_JPRB/)
+KBO( :,55, 4) = (/&
+&1.9293E-03_JPRB,2.2038E-03_JPRB,2.4777E-03_JPRB,2.7424E-03_JPRB,2.9994E-03_JPRB/)
+KBO( :,56, 4) = (/&
+&1.5286E-03_JPRB,1.7562E-03_JPRB,1.9841E-03_JPRB,2.2060E-03_JPRB,2.4199E-03_JPRB/)
+KBO( :,57, 4) = (/&
+&1.2085E-03_JPRB,1.3971E-03_JPRB,1.5864E-03_JPRB,1.7724E-03_JPRB,1.9514E-03_JPRB/)
+KBO( :,58, 4) = (/&
+&9.5537E-04_JPRB,1.1118E-03_JPRB,1.2685E-03_JPRB,1.4237E-03_JPRB,1.5733E-03_JPRB/)
+KBO( :,59, 4) = (/&
+&7.7590E-04_JPRB,9.0437E-04_JPRB,1.0323E-03_JPRB,1.1597E-03_JPRB,1.2822E-03_JPRB/)
+KBO( :,13, 5) = (/&
+&6.9141E+00_JPRB,7.1545E+00_JPRB,7.4046E+00_JPRB,7.6833E+00_JPRB,7.9432E+00_JPRB/)
+KBO( :,14, 5) = (/&
+&6.0755E+00_JPRB,6.2987E+00_JPRB,6.5306E+00_JPRB,6.7873E+00_JPRB,7.0278E+00_JPRB/)
+KBO( :,15, 5) = (/&
+&5.3116E+00_JPRB,5.5269E+00_JPRB,5.7512E+00_JPRB,5.9835E+00_JPRB,6.2117E+00_JPRB/)
+KBO( :,16, 5) = (/&
+&4.6343E+00_JPRB,4.8449E+00_JPRB,5.0585E+00_JPRB,5.2837E+00_JPRB,5.5069E+00_JPRB/)
+KBO( :,17, 5) = (/&
+&4.0419E+00_JPRB,4.2430E+00_JPRB,4.4508E+00_JPRB,4.6718E+00_JPRB,4.8821E+00_JPRB/)
+KBO( :,18, 5) = (/&
+&3.5281E+00_JPRB,3.7196E+00_JPRB,3.9254E+00_JPRB,4.1289E+00_JPRB,4.3250E+00_JPRB/)
+KBO( :,19, 5) = (/&
+&3.0859E+00_JPRB,3.2697E+00_JPRB,3.4594E+00_JPRB,3.6428E+00_JPRB,3.8279E+00_JPRB/)
+KBO( :,20, 5) = (/&
+&2.7073E+00_JPRB,2.8768E+00_JPRB,3.0450E+00_JPRB,3.2129E+00_JPRB,3.3880E+00_JPRB/)
+KBO( :,21, 5) = (/&
+&2.3737E+00_JPRB,2.5247E+00_JPRB,2.6757E+00_JPRB,2.8327E+00_JPRB,2.9960E+00_JPRB/)
+KBO( :,22, 5) = (/&
+&2.0857E+00_JPRB,2.2199E+00_JPRB,2.3591E+00_JPRB,2.5039E+00_JPRB,2.6519E+00_JPRB/)
+KBO( :,23, 5) = (/&
+&1.8289E+00_JPRB,1.9512E+00_JPRB,2.0778E+00_JPRB,2.2081E+00_JPRB,2.3436E+00_JPRB/)
+KBO( :,24, 5) = (/&
+&1.6014E+00_JPRB,1.7122E+00_JPRB,1.8266E+00_JPRB,1.9454E+00_JPRB,2.0684E+00_JPRB/)
+KBO( :,25, 5) = (/&
+&1.3998E+00_JPRB,1.4999E+00_JPRB,1.6048E+00_JPRB,1.7138E+00_JPRB,1.8217E+00_JPRB/)
+KBO( :,26, 5) = (/&
+&1.2210E+00_JPRB,1.3132E+00_JPRB,1.4097E+00_JPRB,1.5070E+00_JPRB,1.6011E+00_JPRB/)
+KBO( :,27, 5) = (/&
+&1.0633E+00_JPRB,1.1477E+00_JPRB,1.2343E+00_JPRB,1.3197E+00_JPRB,1.4013E+00_JPRB/)
+KBO( :,28, 5) = (/&
+&9.2471E-01_JPRB,1.0003E+00_JPRB,1.0762E+00_JPRB,1.1506E+00_JPRB,1.2207E+00_JPRB/)
+KBO( :,29, 5) = (/&
+&8.0378E-01_JPRB,8.6991E-01_JPRB,9.3571E-01_JPRB,9.9918E-01_JPRB,1.0579E+00_JPRB/)
+KBO( :,30, 5) = (/&
+&6.9745E-01_JPRB,7.5481E-01_JPRB,8.1124E-01_JPRB,8.6394E-01_JPRB,9.1132E-01_JPRB/)
+KBO( :,31, 5) = (/&
+&6.0465E-01_JPRB,6.5420E-01_JPRB,7.0129E-01_JPRB,7.4415E-01_JPRB,7.8220E-01_JPRB/)
+KBO( :,32, 5) = (/&
+&5.2389E-01_JPRB,5.6576E-01_JPRB,6.0408E-01_JPRB,6.3888E-01_JPRB,6.7018E-01_JPRB/)
+KBO( :,33, 5) = (/&
+&4.5339E-01_JPRB,4.8777E-01_JPRB,5.1895E-01_JPRB,5.4778E-01_JPRB,5.7413E-01_JPRB/)
+KBO( :,34, 5) = (/&
+&3.9043E-01_JPRB,4.1838E-01_JPRB,4.4436E-01_JPRB,4.6859E-01_JPRB,4.9150E-01_JPRB/)
+KBO( :,35, 5) = (/&
+&3.3304E-01_JPRB,3.5641E-01_JPRB,3.7837E-01_JPRB,3.9937E-01_JPRB,4.1969E-01_JPRB/)
+KBO( :,36, 5) = (/&
+&2.8159E-01_JPRB,3.0146E-01_JPRB,3.2042E-01_JPRB,3.3894E-01_JPRB,3.5721E-01_JPRB/)
+KBO( :,37, 5) = (/&
+&2.3528E-01_JPRB,2.5243E-01_JPRB,2.6898E-01_JPRB,2.8542E-01_JPRB,3.0190E-01_JPRB/)
+KBO( :,38, 5) = (/&
+&1.9653E-01_JPRB,2.1135E-01_JPRB,2.2593E-01_JPRB,2.4055E-01_JPRB,2.5537E-01_JPRB/)
+KBO( :,39, 5) = (/&
+&1.6424E-01_JPRB,1.7712E-01_JPRB,1.9008E-01_JPRB,2.0314E-01_JPRB,2.1645E-01_JPRB/)
+KBO( :,40, 5) = (/&
+&1.3599E-01_JPRB,1.4712E-01_JPRB,1.5856E-01_JPRB,1.7013E-01_JPRB,1.8191E-01_JPRB/)
+KBO( :,41, 5) = (/&
+&1.1240E-01_JPRB,1.2208E-01_JPRB,1.3208E-01_JPRB,1.4229E-01_JPRB,1.5269E-01_JPRB/)
+KBO( :,42, 5) = (/&
+&9.2848E-02_JPRB,1.0126E-01_JPRB,1.1003E-01_JPRB,1.1902E-01_JPRB,1.2816E-01_JPRB/)
+KBO( :,43, 5) = (/&
+&7.6272E-02_JPRB,8.3551E-02_JPRB,9.1173E-02_JPRB,9.9059E-02_JPRB,1.0710E-01_JPRB/)
+KBO( :,44, 5) = (/&
+&6.2420E-02_JPRB,6.8705E-02_JPRB,7.5347E-02_JPRB,8.2255E-02_JPRB,8.9304E-02_JPRB/)
+KBO( :,45, 5) = (/&
+&5.1037E-02_JPRB,5.6461E-02_JPRB,6.2222E-02_JPRB,6.8245E-02_JPRB,7.4410E-02_JPRB/)
+KBO( :,46, 5) = (/&
+&4.1575E-02_JPRB,4.6220E-02_JPRB,5.1187E-02_JPRB,5.6431E-02_JPRB,6.1814E-02_JPRB/)
+KBO( :,47, 5) = (/&
+&3.3624E-02_JPRB,3.7569E-02_JPRB,4.1825E-02_JPRB,4.6358E-02_JPRB,5.1051E-02_JPRB/)
+KBO( :,48, 5) = (/&
+&2.7133E-02_JPRB,3.0477E-02_JPRB,3.4127E-02_JPRB,3.8049E-02_JPRB,4.2137E-02_JPRB/)
+KBO( :,49, 5) = (/&
+&2.1850E-02_JPRB,2.4695E-02_JPRB,2.7812E-02_JPRB,3.1199E-02_JPRB,3.4749E-02_JPRB/)
+KBO( :,50, 5) = (/&
+&1.7588E-02_JPRB,1.9999E-02_JPRB,2.2640E-02_JPRB,2.5547E-02_JPRB,2.8612E-02_JPRB/)
+KBO( :,51, 5) = (/&
+&1.4133E-02_JPRB,1.6172E-02_JPRB,1.8401E-02_JPRB,2.0880E-02_JPRB,2.3515E-02_JPRB/)
+KBO( :,52, 5) = (/&
+&1.1330E-02_JPRB,1.3052E-02_JPRB,1.4932E-02_JPRB,1.7041E-02_JPRB,1.9304E-02_JPRB/)
+KBO( :,53, 5) = (/&
+&9.0563E-03_JPRB,1.0511E-02_JPRB,1.2096E-02_JPRB,1.3890E-02_JPRB,1.5837E-02_JPRB/)
+KBO( :,54, 5) = (/&
+&7.2337E-03_JPRB,8.4542E-03_JPRB,9.7774E-03_JPRB,1.1280E-02_JPRB,1.2936E-02_JPRB/)
+KBO( :,55, 5) = (/&
+&5.7674E-03_JPRB,6.7888E-03_JPRB,7.8837E-03_JPRB,9.1276E-03_JPRB,1.0528E-02_JPRB/)
+KBO( :,56, 5) = (/&
+&4.5854E-03_JPRB,5.4402E-03_JPRB,6.3461E-03_JPRB,7.3755E-03_JPRB,8.5458E-03_JPRB/)
+KBO( :,57, 5) = (/&
+&3.6334E-03_JPRB,4.3489E-03_JPRB,5.0994E-03_JPRB,5.9486E-03_JPRB,6.9270E-03_JPRB/)
+KBO( :,58, 5) = (/&
+&2.8784E-03_JPRB,3.4761E-03_JPRB,4.0992E-03_JPRB,4.7976E-03_JPRB,5.6122E-03_JPRB/)
+KBO( :,59, 5) = (/&
+&2.3567E-03_JPRB,2.8551E-03_JPRB,3.3744E-03_JPRB,3.9529E-03_JPRB,4.6311E-03_JPRB/)
+KBO( :,13, 6) = (/&
+&1.3830E+01_JPRB,1.4015E+01_JPRB,1.4160E+01_JPRB,1.4307E+01_JPRB,1.4522E+01_JPRB/)
+KBO( :,14, 6) = (/&
+&1.2340E+01_JPRB,1.2516E+01_JPRB,1.2660E+01_JPRB,1.2793E+01_JPRB,1.2966E+01_JPRB/)
+KBO( :,15, 6) = (/&
+&1.0924E+01_JPRB,1.1092E+01_JPRB,1.1224E+01_JPRB,1.1351E+01_JPRB,1.1516E+01_JPRB/)
+KBO( :,16, 6) = (/&
+&9.6024E+00_JPRB,9.7501E+00_JPRB,9.8836E+00_JPRB,1.0029E+01_JPRB,1.0212E+01_JPRB/)
+KBO( :,17, 6) = (/&
+&8.3708E+00_JPRB,8.5153E+00_JPRB,8.6644E+00_JPRB,8.8329E+00_JPRB,9.0401E+00_JPRB/)
+KBO( :,18, 6) = (/&
+&7.2569E+00_JPRB,7.4102E+00_JPRB,7.5767E+00_JPRB,7.7740E+00_JPRB,8.0051E+00_JPRB/)
+KBO( :,19, 6) = (/&
+&6.2750E+00_JPRB,6.4411E+00_JPRB,6.6283E+00_JPRB,6.8499E+00_JPRB,7.0924E+00_JPRB/)
+KBO( :,20, 6) = (/&
+&5.4324E+00_JPRB,5.6127E+00_JPRB,5.8201E+00_JPRB,6.0515E+00_JPRB,6.2952E+00_JPRB/)
+KBO( :,21, 6) = (/&
+&4.7199E+00_JPRB,4.9098E+00_JPRB,5.1220E+00_JPRB,5.3512E+00_JPRB,5.5929E+00_JPRB/)
+KBO( :,22, 6) = (/&
+&4.1275E+00_JPRB,4.3173E+00_JPRB,4.5250E+00_JPRB,4.7472E+00_JPRB,4.9873E+00_JPRB/)
+KBO( :,23, 6) = (/&
+&3.6186E+00_JPRB,3.8008E+00_JPRB,4.0007E+00_JPRB,4.2194E+00_JPRB,4.4546E+00_JPRB/)
+KBO( :,24, 6) = (/&
+&3.1789E+00_JPRB,3.3535E+00_JPRB,3.5481E+00_JPRB,3.7602E+00_JPRB,3.9826E+00_JPRB/)
+KBO( :,25, 6) = (/&
+&2.8009E+00_JPRB,2.9702E+00_JPRB,3.1571E+00_JPRB,3.3553E+00_JPRB,3.5661E+00_JPRB/)
+KBO( :,26, 6) = (/&
+&2.4787E+00_JPRB,2.6417E+00_JPRB,2.8161E+00_JPRB,3.0035E+00_JPRB,3.2026E+00_JPRB/)
+KBO( :,27, 6) = (/&
+&2.1990E+00_JPRB,2.3537E+00_JPRB,2.5197E+00_JPRB,2.6976E+00_JPRB,2.8845E+00_JPRB/)
+KBO( :,28, 6) = (/&
+&1.9523E+00_JPRB,2.1013E+00_JPRB,2.2618E+00_JPRB,2.4297E+00_JPRB,2.6035E+00_JPRB/)
+KBO( :,29, 6) = (/&
+&1.7370E+00_JPRB,1.8823E+00_JPRB,2.0367E+00_JPRB,2.1958E+00_JPRB,2.3561E+00_JPRB/)
+KBO( :,30, 6) = (/&
+&1.5497E+00_JPRB,1.6904E+00_JPRB,1.8375E+00_JPRB,1.9876E+00_JPRB,2.1376E+00_JPRB/)
+KBO( :,31, 6) = (/&
+&1.3874E+00_JPRB,1.5222E+00_JPRB,1.6617E+00_JPRB,1.8040E+00_JPRB,1.9446E+00_JPRB/)
+KBO( :,32, 6) = (/&
+&1.2460E+00_JPRB,1.3738E+00_JPRB,1.5067E+00_JPRB,1.6408E+00_JPRB,1.7720E+00_JPRB/)
+KBO( :,33, 6) = (/&
+&1.1223E+00_JPRB,1.2436E+00_JPRB,1.3697E+00_JPRB,1.4955E+00_JPRB,1.6172E+00_JPRB/)
+KBO( :,34, 6) = (/&
+&1.0099E+00_JPRB,1.1249E+00_JPRB,1.2434E+00_JPRB,1.3608E+00_JPRB,1.4735E+00_JPRB/)
+KBO( :,35, 6) = (/&
+&9.0209E-01_JPRB,1.0096E+00_JPRB,1.1199E+00_JPRB,1.2299E+00_JPRB,1.3354E+00_JPRB/)
+KBO( :,36, 6) = (/&
+&7.9733E-01_JPRB,8.9688E-01_JPRB,9.9932E-01_JPRB,1.1023E+00_JPRB,1.2028E+00_JPRB/)
+KBO( :,37, 6) = (/&
+&6.9211E-01_JPRB,7.8344E-01_JPRB,8.7821E-01_JPRB,9.7443E-01_JPRB,1.0708E+00_JPRB/)
+KBO( :,38, 6) = (/&
+&6.0006E-01_JPRB,6.8377E-01_JPRB,7.7149E-01_JPRB,8.6171E-01_JPRB,9.5413E-01_JPRB/)
+KBO( :,39, 6) = (/&
+&5.2043E-01_JPRB,5.9726E-01_JPRB,6.7852E-01_JPRB,7.6343E-01_JPRB,8.5244E-01_JPRB/)
+KBO( :,40, 6) = (/&
+&4.4416E-01_JPRB,5.1399E-01_JPRB,5.8862E-01_JPRB,6.6792E-01_JPRB,7.5268E-01_JPRB/)
+KBO( :,41, 6) = (/&
+&3.7776E-01_JPRB,4.4092E-01_JPRB,5.0931E-01_JPRB,5.8308E-01_JPRB,6.6368E-01_JPRB/)
+KBO( :,42, 6) = (/&
+&3.2073E-01_JPRB,3.7777E-01_JPRB,4.4039E-01_JPRB,5.0902E-01_JPRB,5.8559E-01_JPRB/)
+KBO( :,43, 6) = (/&
+&2.6920E-01_JPRB,3.2022E-01_JPRB,3.7707E-01_JPRB,4.4047E-01_JPRB,5.1263E-01_JPRB/)
+KBO( :,44, 6) = (/&
+&2.2419E-01_JPRB,2.6949E-01_JPRB,3.2089E-01_JPRB,3.7919E-01_JPRB,4.4668E-01_JPRB/)
+KBO( :,45, 6) = (/&
+&1.8610E-01_JPRB,2.2623E-01_JPRB,2.7250E-01_JPRB,3.2589E-01_JPRB,3.8881E-01_JPRB/)
+KBO( :,46, 6) = (/&
+&1.5321E-01_JPRB,1.8844E-01_JPRB,2.2973E-01_JPRB,2.7826E-01_JPRB,3.3646E-01_JPRB/)
+KBO( :,47, 6) = (/&
+&1.2434E-01_JPRB,1.5480E-01_JPRB,1.9116E-01_JPRB,2.3462E-01_JPRB,2.8768E-01_JPRB/)
+KBO( :,48, 6) = (/&
+&1.0036E-01_JPRB,1.2653E-01_JPRB,1.5835E-01_JPRB,1.9711E-01_JPRB,2.4528E-01_JPRB/)
+KBO( :,49, 6) = (/&
+&8.0612E-02_JPRB,1.0295E-01_JPRB,1.3061E-01_JPRB,1.6496E-01_JPRB,2.0845E-01_JPRB/)
+KBO( :,50, 6) = (/&
+&6.4743E-02_JPRB,8.3670E-02_JPRB,1.0758E-01_JPRB,1.3777E-01_JPRB,1.7673E-01_JPRB/)
+KBO( :,51, 6) = (/&
+&5.1836E-02_JPRB,6.7752E-02_JPRB,8.8282E-02_JPRB,1.1466E-01_JPRB,1.4926E-01_JPRB/)
+KBO( :,52, 6) = (/&
+&4.1270E-02_JPRB,5.4579E-02_JPRB,7.2088E-02_JPRB,9.5008E-02_JPRB,1.2557E-01_JPRB/)
+KBO( :,53, 6) = (/&
+&3.2703E-02_JPRB,4.3723E-02_JPRB,5.8551E-02_JPRB,7.8358E-02_JPRB,1.0523E-01_JPRB/)
+KBO( :,54, 6) = (/&
+&2.5932E-02_JPRB,3.5025E-02_JPRB,4.7496E-02_JPRB,6.4433E-02_JPRB,8.7763E-02_JPRB/)
+KBO( :,55, 6) = (/&
+&2.0516E-02_JPRB,2.7980E-02_JPRB,3.8384E-02_JPRB,5.2720E-02_JPRB,7.2773E-02_JPRB/)
+KBO( :,56, 6) = (/&
+&1.6157E-02_JPRB,2.2243E-02_JPRB,3.0860E-02_JPRB,4.2933E-02_JPRB,6.0054E-02_JPRB/)
+KBO( :,57, 6) = (/&
+&1.2662E-02_JPRB,1.7594E-02_JPRB,2.4676E-02_JPRB,3.4773E-02_JPRB,4.9299E-02_JPRB/)
+KBO( :,58, 6) = (/&
+&9.9314E-03_JPRB,1.3912E-02_JPRB,1.9723E-02_JPRB,2.8150E-02_JPRB,4.0439E-02_JPRB/)
+KBO( :,59, 6) = (/&
+&8.2224E-03_JPRB,1.1623E-02_JPRB,1.6659E-02_JPRB,2.4055E-02_JPRB,3.5006E-02_JPRB/)
+KBO( :,13, 7) = (/&
+&2.6335E+01_JPRB,2.6343E+01_JPRB,2.6317E+01_JPRB,2.6278E+01_JPRB,2.6240E+01_JPRB/)
+KBO( :,14, 7) = (/&
+&2.4335E+01_JPRB,2.4368E+01_JPRB,2.4378E+01_JPRB,2.4360E+01_JPRB,2.4346E+01_JPRB/)
+KBO( :,15, 7) = (/&
+&2.2209E+01_JPRB,2.2271E+01_JPRB,2.2317E+01_JPRB,2.2351E+01_JPRB,2.2363E+01_JPRB/)
+KBO( :,16, 7) = (/&
+&2.0041E+01_JPRB,2.0151E+01_JPRB,2.0235E+01_JPRB,2.0297E+01_JPRB,2.0322E+01_JPRB/)
+KBO( :,17, 7) = (/&
+&1.7927E+01_JPRB,1.8060E+01_JPRB,1.8168E+01_JPRB,1.8242E+01_JPRB,1.8304E+01_JPRB/)
+KBO( :,18, 7) = (/&
+&1.5898E+01_JPRB,1.6045E+01_JPRB,1.6164E+01_JPRB,1.6266E+01_JPRB,1.6378E+01_JPRB/)
+KBO( :,19, 7) = (/&
+&1.3992E+01_JPRB,1.4142E+01_JPRB,1.4282E+01_JPRB,1.4427E+01_JPRB,1.4606E+01_JPRB/)
+KBO( :,20, 7) = (/&
+&1.2229E+01_JPRB,1.2396E+01_JPRB,1.2574E+01_JPRB,1.2781E+01_JPRB,1.3031E+01_JPRB/)
+KBO( :,21, 7) = (/&
+&1.0639E+01_JPRB,1.0839E+01_JPRB,1.1068E+01_JPRB,1.1335E+01_JPRB,1.1649E+01_JPRB/)
+KBO( :,22, 7) = (/&
+&9.2636E+00_JPRB,9.5053E+00_JPRB,9.7840E+00_JPRB,1.0108E+01_JPRB,1.0461E+01_JPRB/)
+KBO( :,23, 7) = (/&
+&8.0952E+00_JPRB,8.3738E+00_JPRB,8.6908E+00_JPRB,9.0366E+00_JPRB,9.4060E+00_JPRB/)
+KBO( :,24, 7) = (/&
+&7.1130E+00_JPRB,7.4146E+00_JPRB,7.7429E+00_JPRB,8.0993E+00_JPRB,8.4864E+00_JPRB/)
+KBO( :,25, 7) = (/&
+&6.2837E+00_JPRB,6.5877E+00_JPRB,6.9205E+00_JPRB,7.2883E+00_JPRB,7.6912E+00_JPRB/)
+KBO( :,26, 7) = (/&
+&5.5745E+00_JPRB,5.8760E+00_JPRB,6.2151E+00_JPRB,6.5923E+00_JPRB,7.0080E+00_JPRB/)
+KBO( :,27, 7) = (/&
+&4.9643E+00_JPRB,5.2682E+00_JPRB,5.6134E+00_JPRB,5.9978E+00_JPRB,6.4129E+00_JPRB/)
+KBO( :,28, 7) = (/&
+&4.4473E+00_JPRB,4.7539E+00_JPRB,5.1020E+00_JPRB,5.4857E+00_JPRB,5.8980E+00_JPRB/)
+KBO( :,29, 7) = (/&
+&4.0139E+00_JPRB,4.3228E+00_JPRB,4.6679E+00_JPRB,5.0477E+00_JPRB,5.4611E+00_JPRB/)
+KBO( :,30, 7) = (/&
+&3.6503E+00_JPRB,3.9570E+00_JPRB,4.2982E+00_JPRB,4.6765E+00_JPRB,5.0904E+00_JPRB/)
+KBO( :,31, 7) = (/&
+&3.3458E+00_JPRB,3.6492E+00_JPRB,3.9896E+00_JPRB,4.3657E+00_JPRB,4.7803E+00_JPRB/)
+KBO( :,32, 7) = (/&
+&3.0885E+00_JPRB,3.3924E+00_JPRB,3.7326E+00_JPRB,4.1089E+00_JPRB,4.5242E+00_JPRB/)
+KBO( :,33, 7) = (/&
+&2.8733E+00_JPRB,3.1791E+00_JPRB,3.5210E+00_JPRB,3.8996E+00_JPRB,4.3193E+00_JPRB/)
+KBO( :,34, 7) = (/&
+&2.6844E+00_JPRB,2.9924E+00_JPRB,3.3348E+00_JPRB,3.7181E+00_JPRB,4.1445E+00_JPRB/)
+KBO( :,35, 7) = (/&
+&2.4984E+00_JPRB,2.8075E+00_JPRB,3.1505E+00_JPRB,3.5359E+00_JPRB,3.9675E+00_JPRB/)
+KBO( :,36, 7) = (/&
+&2.3072E+00_JPRB,2.6159E+00_JPRB,2.9582E+00_JPRB,3.3431E+00_JPRB,3.7763E+00_JPRB/)
+KBO( :,37, 7) = (/&
+&2.0954E+00_JPRB,2.4005E+00_JPRB,2.7380E+00_JPRB,3.1168E+00_JPRB,3.5461E+00_JPRB/)
+KBO( :,38, 7) = (/&
+&1.9034E+00_JPRB,2.2055E+00_JPRB,2.5402E+00_JPRB,2.9151E+00_JPRB,3.3403E+00_JPRB/)
+KBO( :,39, 7) = (/&
+&1.7317E+00_JPRB,2.0312E+00_JPRB,2.3647E+00_JPRB,2.7379E+00_JPRB,3.1615E+00_JPRB/)
+KBO( :,40, 7) = (/&
+&1.5481E+00_JPRB,1.8407E+00_JPRB,2.1704E+00_JPRB,2.5377E+00_JPRB,2.9544E+00_JPRB/)
+KBO( :,41, 7) = (/&
+&1.3778E+00_JPRB,1.6628E+00_JPRB,1.9879E+00_JPRB,2.3508E+00_JPRB,2.7602E+00_JPRB/)
+KBO( :,42, 7) = (/&
+&1.2232E+00_JPRB,1.4999E+00_JPRB,1.8203E+00_JPRB,2.1797E+00_JPRB,2.5828E+00_JPRB/)
+KBO( :,43, 7) = (/&
+&1.0698E+00_JPRB,1.3347E+00_JPRB,1.6469E+00_JPRB,2.0008E+00_JPRB,2.3963E+00_JPRB/)
+KBO( :,44, 7) = (/&
+&9.2588E-01_JPRB,1.1760E+00_JPRB,1.4777E+00_JPRB,1.8247E+00_JPRB,2.2132E+00_JPRB/)
+KBO( :,45, 7) = (/&
+&7.9702E-01_JPRB,1.0315E+00_JPRB,1.3210E+00_JPRB,1.6600E+00_JPRB,2.0420E+00_JPRB/)
+KBO( :,46, 7) = (/&
+&6.7818E-01_JPRB,8.9459E-01_JPRB,1.1684E+00_JPRB,1.4973E+00_JPRB,1.8716E+00_JPRB/)
+KBO( :,47, 7) = (/&
+&5.6580E-01_JPRB,7.6097E-01_JPRB,1.0151E+00_JPRB,1.3286E+00_JPRB,1.6923E+00_JPRB/)
+KBO( :,48, 7) = (/&
+&4.6791E-01_JPRB,6.4213E-01_JPRB,8.7532E-01_JPRB,1.1714E+00_JPRB,1.5227E+00_JPRB/)
+KBO( :,49, 7) = (/&
+&3.8353E-01_JPRB,5.3743E-01_JPRB,7.4923E-01_JPRB,1.0257E+00_JPRB,1.3624E+00_JPRB/)
+KBO( :,50, 7) = (/&
+&3.1398E-01_JPRB,4.4906E-01_JPRB,6.4014E-01_JPRB,8.9685E-01_JPRB,1.2172E+00_JPRB/)
+KBO( :,51, 7) = (/&
+&2.5573E-01_JPRB,3.7326E-01_JPRB,5.4427E-01_JPRB,7.8065E-01_JPRB,1.0832E+00_JPRB/)
+KBO( :,52, 7) = (/&
+&2.0647E-01_JPRB,3.0764E-01_JPRB,4.5931E-01_JPRB,6.7487E-01_JPRB,9.5820E-01_JPRB/)
+KBO( :,53, 7) = (/&
+&1.6527E-01_JPRB,2.5130E-01_JPRB,3.8436E-01_JPRB,5.7911E-01_JPRB,8.4227E-01_JPRB/)
+KBO( :,54, 7) = (/&
+&1.3250E-01_JPRB,2.0520E-01_JPRB,3.2144E-01_JPRB,4.9663E-01_JPRB,7.3948E-01_JPRB/)
+KBO( :,55, 7) = (/&
+&1.0586E-01_JPRB,1.6687E-01_JPRB,2.6744E-01_JPRB,4.2379E-01_JPRB,6.4623E-01_JPRB/)
+KBO( :,56, 7) = (/&
+&8.3917E-02_JPRB,1.3459E-01_JPRB,2.2056E-01_JPRB,3.5886E-01_JPRB,5.6114E-01_JPRB/)
+KBO( :,57, 7) = (/&
+&6.5997E-02_JPRB,1.0758E-01_JPRB,1.8019E-01_JPRB,3.0131E-01_JPRB,4.8364E-01_JPRB/)
+KBO( :,58, 7) = (/&
+&5.1899E-02_JPRB,8.5940E-02_JPRB,1.4705E-01_JPRB,2.5263E-01_JPRB,4.1642E-01_JPRB/)
+KBO( :,59, 7) = (/&
+&4.4275E-02_JPRB,7.4915E-02_JPRB,1.3121E-01_JPRB,2.3019E-01_JPRB,3.8591E-01_JPRB/)
+KBO( :,13, 8) = (/&
+&5.0965E+01_JPRB,5.0361E+01_JPRB,4.9768E+01_JPRB,4.9177E+01_JPRB,4.8632E+01_JPRB/)
+KBO( :,14, 8) = (/&
+&4.9580E+01_JPRB,4.9133E+01_JPRB,4.8669E+01_JPRB,4.8207E+01_JPRB,4.7744E+01_JPRB/)
+KBO( :,15, 8) = (/&
+&4.7755E+01_JPRB,4.7423E+01_JPRB,4.7054E+01_JPRB,4.6684E+01_JPRB,4.6310E+01_JPRB/)
+KBO( :,16, 8) = (/&
+&4.5437E+01_JPRB,4.5197E+01_JPRB,4.4948E+01_JPRB,4.4674E+01_JPRB,4.4398E+01_JPRB/)
+KBO( :,17, 8) = (/&
+&4.2668E+01_JPRB,4.2548E+01_JPRB,4.2401E+01_JPRB,4.2228E+01_JPRB,4.2024E+01_JPRB/)
+KBO( :,18, 8) = (/&
+&3.9590E+01_JPRB,3.9566E+01_JPRB,3.9492E+01_JPRB,3.9393E+01_JPRB,3.9273E+01_JPRB/)
+KBO( :,19, 8) = (/&
+&3.6298E+01_JPRB,3.6335E+01_JPRB,3.6351E+01_JPRB,3.6334E+01_JPRB,3.6282E+01_JPRB/)
+KBO( :,20, 8) = (/&
+&3.2906E+01_JPRB,3.3017E+01_JPRB,3.3099E+01_JPRB,3.3142E+01_JPRB,3.3168E+01_JPRB/)
+KBO( :,21, 8) = (/&
+&2.9547E+01_JPRB,2.9709E+01_JPRB,2.9845E+01_JPRB,2.9969E+01_JPRB,3.0103E+01_JPRB/)
+KBO( :,22, 8) = (/&
+&2.6311E+01_JPRB,2.6524E+01_JPRB,2.6733E+01_JPRB,2.6954E+01_JPRB,2.7222E+01_JPRB/)
+KBO( :,23, 8) = (/&
+&2.3277E+01_JPRB,2.3556E+01_JPRB,2.3854E+01_JPRB,2.4204E+01_JPRB,2.4638E+01_JPRB/)
+KBO( :,24, 8) = (/&
+&2.0517E+01_JPRB,2.0874E+01_JPRB,2.1304E+01_JPRB,2.1801E+01_JPRB,2.2391E+01_JPRB/)
+KBO( :,25, 8) = (/&
+&1.8081E+01_JPRB,1.8550E+01_JPRB,1.9103E+01_JPRB,1.9746E+01_JPRB,2.0474E+01_JPRB/)
+KBO( :,26, 8) = (/&
+&1.6011E+01_JPRB,1.6594E+01_JPRB,1.7264E+01_JPRB,1.8029E+01_JPRB,1.8873E+01_JPRB/)
+KBO( :,27, 8) = (/&
+&1.4287E+01_JPRB,1.4961E+01_JPRB,1.5728E+01_JPRB,1.6587E+01_JPRB,1.7528E+01_JPRB/)
+KBO( :,28, 8) = (/&
+&1.2856E+01_JPRB,1.3605E+01_JPRB,1.4442E+01_JPRB,1.5375E+01_JPRB,1.6398E+01_JPRB/)
+KBO( :,29, 8) = (/&
+&1.1675E+01_JPRB,1.2478E+01_JPRB,1.3380E+01_JPRB,1.4384E+01_JPRB,1.5477E+01_JPRB/)
+KBO( :,30, 8) = (/&
+&1.0695E+01_JPRB,1.1550E+01_JPRB,1.2511E+01_JPRB,1.3578E+01_JPRB,1.4743E+01_JPRB/)
+KBO( :,31, 8) = (/&
+&9.8981E+00_JPRB,1.0807E+01_JPRB,1.1824E+01_JPRB,1.2957E+01_JPRB,1.4200E+01_JPRB/)
+KBO( :,32, 8) = (/&
+&9.2617E+00_JPRB,1.0217E+01_JPRB,1.1294E+01_JPRB,1.2501E+01_JPRB,1.3819E+01_JPRB/)
+KBO( :,33, 8) = (/&
+&8.7596E+00_JPRB,9.7694E+00_JPRB,1.0911E+01_JPRB,1.2196E+01_JPRB,1.3598E+01_JPRB/)
+KBO( :,34, 8) = (/&
+&8.3433E+00_JPRB,9.4056E+00_JPRB,1.0617E+01_JPRB,1.1977E+01_JPRB,1.3459E+01_JPRB/)
+KBO( :,35, 8) = (/&
+&7.9357E+00_JPRB,9.0427E+00_JPRB,1.0314E+01_JPRB,1.1736E+01_JPRB,1.3286E+01_JPRB/)
+KBO( :,36, 8) = (/&
+&7.5046E+00_JPRB,8.6413E+00_JPRB,9.9524E+00_JPRB,1.1425E+01_JPRB,1.3024E+01_JPRB/)
+KBO( :,37, 8) = (/&
+&6.9879E+00_JPRB,8.1265E+00_JPRB,9.4503E+00_JPRB,1.0942E+01_JPRB,1.2567E+01_JPRB/)
+KBO( :,38, 8) = (/&
+&6.5288E+00_JPRB,7.6643E+00_JPRB,8.9952E+00_JPRB,1.0502E+01_JPRB,1.2144E+01_JPRB/)
+KBO( :,39, 8) = (/&
+&6.1286E+00_JPRB,7.2600E+00_JPRB,8.5928E+00_JPRB,1.0109E+01_JPRB,1.1767E+01_JPRB/)
+KBO( :,40, 8) = (/&
+&5.6684E+00_JPRB,6.7740E+00_JPRB,8.0799E+00_JPRB,9.5804E+00_JPRB,1.1233E+01_JPRB/)
+KBO( :,41, 8) = (/&
+&5.2402E+00_JPRB,6.3138E+00_JPRB,7.5882E+00_JPRB,9.0624E+00_JPRB,1.0701E+01_JPRB/)
+KBO( :,42, 8) = (/&
+&4.8506E+00_JPRB,5.8918E+00_JPRB,7.1323E+00_JPRB,8.5740E+00_JPRB,1.0194E+01_JPRB/)
+KBO( :,43, 8) = (/&
+&4.4438E+00_JPRB,5.4412E+00_JPRB,6.6345E+00_JPRB,8.0293E+00_JPRB,9.6145E+00_JPRB/)
+KBO( :,44, 8) = (/&
+&4.0493E+00_JPRB,4.9983E+00_JPRB,6.1400E+00_JPRB,7.4797E+00_JPRB,9.0187E+00_JPRB/)
+KBO( :,45, 8) = (/&
+&3.6876E+00_JPRB,4.5888E+00_JPRB,5.6785E+00_JPRB,6.9623E+00_JPRB,8.4500E+00_JPRB/)
+KBO( :,46, 8) = (/&
+&3.3383E+00_JPRB,4.1880E+00_JPRB,5.2207E+00_JPRB,6.4454E+00_JPRB,7.8745E+00_JPRB/)
+KBO( :,47, 8) = (/&
+&2.9856E+00_JPRB,3.7780E+00_JPRB,4.7472E+00_JPRB,5.9041E+00_JPRB,7.2615E+00_JPRB/)
+KBO( :,48, 8) = (/&
+&2.6572E+00_JPRB,3.4003E+00_JPRB,4.3078E+00_JPRB,5.3986E+00_JPRB,6.6852E+00_JPRB/)
+KBO( :,49, 8) = (/&
+&2.3488E+00_JPRB,3.0535E+00_JPRB,3.9013E+00_JPRB,4.9276E+00_JPRB,6.1472E+00_JPRB/)
+KBO( :,50, 8) = (/&
+&2.0729E+00_JPRB,2.7473E+00_JPRB,3.5436E+00_JPRB,4.5091E+00_JPRB,5.6655E+00_JPRB/)
+KBO( :,51, 8) = (/&
+&1.8206E+00_JPRB,2.4651E+00_JPRB,3.2190E+00_JPRB,4.1264E+00_JPRB,5.2204E+00_JPRB/)
+KBO( :,52, 8) = (/&
+&1.5859E+00_JPRB,2.1977E+00_JPRB,2.9176E+00_JPRB,3.7698E+00_JPRB,4.8036E+00_JPRB/)
+KBO( :,53, 8) = (/&
+&1.3682E+00_JPRB,1.9445E+00_JPRB,2.6333E+00_JPRB,3.4378E+00_JPRB,4.4138E+00_JPRB/)
+KBO( :,54, 8) = (/&
+&1.1812E+00_JPRB,1.7215E+00_JPRB,2.3803E+00_JPRB,3.1453E+00_JPRB,4.0633E+00_JPRB/)
+KBO( :,55, 8) = (/&
+&1.0150E+00_JPRB,1.5193E+00_JPRB,2.1463E+00_JPRB,2.8770E+00_JPRB,3.7398E+00_JPRB/)
+KBO( :,56, 8) = (/&
+&8.6368E-01_JPRB,1.3309E+00_JPRB,1.9241E+00_JPRB,2.6237E+00_JPRB,3.4375E+00_JPRB/)
+KBO( :,57, 8) = (/&
+&7.2682E-01_JPRB,1.1556E+00_JPRB,1.7137E+00_JPRB,2.3824E+00_JPRB,3.1551E+00_JPRB/)
+KBO( :,58, 8) = (/&
+&6.0967E-01_JPRB,1.0012E+00_JPRB,1.5247E+00_JPRB,2.1627E+00_JPRB,2.9020E+00_JPRB/)
+KBO( :,59, 8) = (/&
+&5.5853E-01_JPRB,9.3598E-01_JPRB,1.4448E+00_JPRB,2.0692E+00_JPRB,2.7925E+00_JPRB/)
+KBO( :,13, 9) = (/&
+&9.9288E+01_JPRB,9.7856E+01_JPRB,9.6419E+01_JPRB,9.4961E+01_JPRB,9.3473E+01_JPRB/)
+KBO( :,14, 9) = (/&
+&1.0412E+02_JPRB,1.0269E+02_JPRB,1.0123E+02_JPRB,9.9736E+01_JPRB,9.8238E+01_JPRB/)
+KBO( :,15, 9) = (/&
+&1.0817E+02_JPRB,1.0679E+02_JPRB,1.0540E+02_JPRB,1.0396E+02_JPRB,1.0249E+02_JPRB/)
+KBO( :,16, 9) = (/&
+&1.1129E+02_JPRB,1.1004E+02_JPRB,1.0873E+02_JPRB,1.0740E+02_JPRB,1.0603E+02_JPRB/)
+KBO( :,17, 9) = (/&
+&1.1340E+02_JPRB,1.1230E+02_JPRB,1.1113E+02_JPRB,1.0995E+02_JPRB,1.0873E+02_JPRB/)
+KBO( :,18, 9) = (/&
+&1.1434E+02_JPRB,1.1342E+02_JPRB,1.1248E+02_JPRB,1.1144E+02_JPRB,1.1034E+02_JPRB/)
+KBO( :,19, 9) = (/&
+&1.1401E+02_JPRB,1.1333E+02_JPRB,1.1256E+02_JPRB,1.1172E+02_JPRB,1.1083E+02_JPRB/)
+KBO( :,20, 9) = (/&
+&1.1234E+02_JPRB,1.1193E+02_JPRB,1.1143E+02_JPRB,1.1085E+02_JPRB,1.1019E+02_JPRB/)
+KBO( :,21, 9) = (/&
+&1.0946E+02_JPRB,1.0935E+02_JPRB,1.0914E+02_JPRB,1.0884E+02_JPRB,1.0846E+02_JPRB/)
+KBO( :,22, 9) = (/&
+&1.0557E+02_JPRB,1.0577E+02_JPRB,1.0588E+02_JPRB,1.0590E+02_JPRB,1.0584E+02_JPRB/)
+KBO( :,23, 9) = (/&
+&1.0094E+02_JPRB,1.0149E+02_JPRB,1.0194E+02_JPRB,1.0233E+02_JPRB,1.0260E+02_JPRB/)
+KBO( :,24, 9) = (/&
+&9.5817E+01_JPRB,9.6736E+01_JPRB,9.7569E+01_JPRB,9.8330E+01_JPRB,9.9010E+01_JPRB/)
+KBO( :,25, 9) = (/&
+&9.0469E+01_JPRB,9.1797E+01_JPRB,9.3074E+01_JPRB,9.4238E+01_JPRB,9.5339E+01_JPRB/)
+KBO( :,26, 9) = (/&
+&8.5212E+01_JPRB,8.6963E+01_JPRB,8.8676E+01_JPRB,9.0313E+01_JPRB,9.1842E+01_JPRB/)
+KBO( :,27, 9) = (/&
+&8.0235E+01_JPRB,8.2437E+01_JPRB,8.4599E+01_JPRB,8.6731E+01_JPRB,8.8747E+01_JPRB/)
+KBO( :,28, 9) = (/&
+&7.5722E+01_JPRB,7.8382E+01_JPRB,8.1040E+01_JPRB,8.3660E+01_JPRB,8.6177E+01_JPRB/)
+KBO( :,29, 9) = (/&
+&7.1851E+01_JPRB,7.4992E+01_JPRB,7.8130E+01_JPRB,8.1223E+01_JPRB,8.4209E+01_JPRB/)
+KBO( :,30, 9) = (/&
+&6.8679E+01_JPRB,7.2286E+01_JPRB,7.5891E+01_JPRB,7.9421E+01_JPRB,8.2811E+01_JPRB/)
+KBO( :,31, 9) = (/&
+&6.6225E+01_JPRB,7.0279E+01_JPRB,7.4326E+01_JPRB,7.8245E+01_JPRB,8.1966E+01_JPRB/)
+KBO( :,32, 9) = (/&
+&6.4479E+01_JPRB,6.8946E+01_JPRB,7.3367E+01_JPRB,7.7627E+01_JPRB,8.1643E+01_JPRB/)
+KBO( :,33, 9) = (/&
+&6.3393E+01_JPRB,6.8225E+01_JPRB,7.2967E+01_JPRB,7.7506E+01_JPRB,8.1771E+01_JPRB/)
+KBO( :,34, 9) = (/&
+&6.2705E+01_JPRB,6.7842E+01_JPRB,7.2848E+01_JPRB,7.7622E+01_JPRB,8.2086E+01_JPRB/)
+KBO( :,35, 9) = (/&
+&6.1970E+01_JPRB,6.7369E+01_JPRB,7.2611E+01_JPRB,7.7614E+01_JPRB,8.2278E+01_JPRB/)
+KBO( :,36, 9) = (/&
+&6.0967E+01_JPRB,6.6598E+01_JPRB,7.2072E+01_JPRB,7.7300E+01_JPRB,8.2185E+01_JPRB/)
+KBO( :,37, 9) = (/&
+&5.9279E+01_JPRB,6.5142E+01_JPRB,7.0846E+01_JPRB,7.6292E+01_JPRB,8.1436E+01_JPRB/)
+KBO( :,38, 9) = (/&
+&5.7701E+01_JPRB,6.3776E+01_JPRB,6.9699E+01_JPRB,7.5382E+01_JPRB,8.0760E+01_JPRB/)
+KBO( :,39, 9) = (/&
+&5.6270E+01_JPRB,6.2546E+01_JPRB,6.8688E+01_JPRB,7.4617E+01_JPRB,8.0162E+01_JPRB/)
+KBO( :,40, 9) = (/&
+&5.4230E+01_JPRB,6.0690E+01_JPRB,6.6996E+01_JPRB,7.3138E+01_JPRB,7.8857E+01_JPRB/)
+KBO( :,41, 9) = (/&
+&5.2156E+01_JPRB,5.8758E+01_JPRB,6.5235E+01_JPRB,7.1572E+01_JPRB,7.7464E+01_JPRB/)
+KBO( :,42, 9) = (/&
+&5.0129E+01_JPRB,5.6855E+01_JPRB,6.3499E+01_JPRB,7.0016E+01_JPRB,7.6080E+01_JPRB/)
+KBO( :,43, 9) = (/&
+&4.7760E+01_JPRB,5.4598E+01_JPRB,6.1399E+01_JPRB,6.8099E+01_JPRB,7.4350E+01_JPRB/)
+KBO( :,44, 9) = (/&
+&4.5249E+01_JPRB,5.2184E+01_JPRB,5.9131E+01_JPRB,6.6010E+01_JPRB,7.2452E+01_JPRB/)
+KBO( :,45, 9) = (/&
+&4.2770E+01_JPRB,4.9790E+01_JPRB,5.6875E+01_JPRB,6.3919E+01_JPRB,7.0547E+01_JPRB/)
+KBO( :,46, 9) = (/&
+&4.0163E+01_JPRB,4.7243E+01_JPRB,5.4479E+01_JPRB,6.1655E+01_JPRB,6.8464E+01_JPRB/)
+KBO( :,47, 9) = (/&
+&3.7279E+01_JPRB,4.4372E+01_JPRB,5.1688E+01_JPRB,5.9007E+01_JPRB,6.6000E+01_JPRB/)
+KBO( :,48, 9) = (/&
+&3.4455E+01_JPRB,4.1531E+01_JPRB,4.8914E+01_JPRB,5.6355E+01_JPRB,6.3516E+01_JPRB/)
+KBO( :,49, 9) = (/&
+&3.1707E+01_JPRB,3.8733E+01_JPRB,4.6179E+01_JPRB,5.3719E+01_JPRB,6.1038E+01_JPRB/)
+KBO( :,50, 9) = (/&
+&2.9168E+01_JPRB,3.6084E+01_JPRB,4.3531E+01_JPRB,5.1127E+01_JPRB,5.8574E+01_JPRB/)
+KBO( :,51, 9) = (/&
+&2.6765E+01_JPRB,3.3523E+01_JPRB,4.0920E+01_JPRB,4.8550E+01_JPRB,5.6098E+01_JPRB/)
+KBO( :,52, 9) = (/&
+&2.4432E+01_JPRB,3.1037E+01_JPRB,3.8359E+01_JPRB,4.5995E+01_JPRB,5.3635E+01_JPRB/)
+KBO( :,53, 9) = (/&
+&2.2208E+01_JPRB,2.8629E+01_JPRB,3.5855E+01_JPRB,4.3474E+01_JPRB,5.1186E+01_JPRB/)
+KBO( :,54, 9) = (/&
+&2.0205E+01_JPRB,2.6401E+01_JPRB,3.3414E+01_JPRB,4.0973E+01_JPRB,4.8699E+01_JPRB/)
+KBO( :,55, 9) = (/&
+&1.8353E+01_JPRB,2.4282E+01_JPRB,3.1024E+01_JPRB,3.8470E+01_JPRB,4.6173E+01_JPRB/)
+KBO( :,56, 9) = (/&
+&1.6601E+01_JPRB,2.2262E+01_JPRB,2.8733E+01_JPRB,3.6003E+01_JPRB,4.3640E+01_JPRB/)
+KBO( :,57, 9) = (/&
+&1.4942E+01_JPRB,2.0332E+01_JPRB,2.6541E+01_JPRB,3.3571E+01_JPRB,4.1137E+01_JPRB/)
+KBO( :,58, 9) = (/&
+&1.3455E+01_JPRB,1.8580E+01_JPRB,2.4530E+01_JPRB,3.1284E+01_JPRB,3.8733E+01_JPRB/)
+KBO( :,59, 9) = (/&
+&1.2865E+01_JPRB,1.7859E+01_JPRB,2.3642E+01_JPRB,3.0152E+01_JPRB,3.7359E+01_JPRB/)
+KBO( :,13,10) = (/&
+&1.4836E+02_JPRB,1.4604E+02_JPRB,1.4370E+02_JPRB,1.4155E+02_JPRB,1.3951E+02_JPRB/)
+KBO( :,14,10) = (/&
+&1.6431E+02_JPRB,1.6174E+02_JPRB,1.5931E+02_JPRB,1.5707E+02_JPRB,1.5447E+02_JPRB/)
+KBO( :,15,10) = (/&
+&1.8088E+02_JPRB,1.7844E+02_JPRB,1.7598E+02_JPRB,1.7321E+02_JPRB,1.7049E+02_JPRB/)
+KBO( :,16,10) = (/&
+&1.9837E+02_JPRB,1.9582E+02_JPRB,1.9294E+02_JPRB,1.9007E+02_JPRB,1.8732E+02_JPRB/)
+KBO( :,17,10) = (/&
+&2.1550E+02_JPRB,2.1268E+02_JPRB,2.0959E+02_JPRB,2.0637E+02_JPRB,2.0299E+02_JPRB/)
+KBO( :,18,10) = (/&
+&2.3147E+02_JPRB,2.2811E+02_JPRB,2.2491E+02_JPRB,2.2179E+02_JPRB,2.1873E+02_JPRB/)
+KBO( :,19,10) = (/&
+&2.4561E+02_JPRB,2.4282E+02_JPRB,2.3998E+02_JPRB,2.3673E+02_JPRB,2.3333E+02_JPRB/)
+KBO( :,20,10) = (/&
+&2.5875E+02_JPRB,2.5597E+02_JPRB,2.5299E+02_JPRB,2.4975E+02_JPRB,2.4650E+02_JPRB/)
+KBO( :,21,10) = (/&
+&2.6956E+02_JPRB,2.6694E+02_JPRB,2.6416E+02_JPRB,2.6126E+02_JPRB,2.5829E+02_JPRB/)
+KBO( :,22,10) = (/&
+&2.7742E+02_JPRB,2.7556E+02_JPRB,2.7346E+02_JPRB,2.7109E+02_JPRB,2.6822E+02_JPRB/)
+KBO( :,23,10) = (/&
+&2.8259E+02_JPRB,2.8167E+02_JPRB,2.8054E+02_JPRB,2.7877E+02_JPRB,2.7640E+02_JPRB/)
+KBO( :,24,10) = (/&
+&2.8579E+02_JPRB,2.8593E+02_JPRB,2.8555E+02_JPRB,2.8452E+02_JPRB,2.8281E+02_JPRB/)
+KBO( :,25,10) = (/&
+&2.8759E+02_JPRB,2.8855E+02_JPRB,2.8897E+02_JPRB,2.8899E+02_JPRB,2.8805E+02_JPRB/)
+KBO( :,26,10) = (/&
+&2.8827E+02_JPRB,2.9039E+02_JPRB,2.9171E+02_JPRB,2.9254E+02_JPRB,2.9232E+02_JPRB/)
+KBO( :,27,10) = (/&
+&2.8831E+02_JPRB,2.9160E+02_JPRB,2.9410E+02_JPRB,2.9547E+02_JPRB,2.9582E+02_JPRB/)
+KBO( :,28,10) = (/&
+&2.8830E+02_JPRB,2.9281E+02_JPRB,2.9591E+02_JPRB,2.9817E+02_JPRB,2.9880E+02_JPRB/)
+KBO( :,29,10) = (/&
+&2.8819E+02_JPRB,2.9390E+02_JPRB,2.9762E+02_JPRB,3.0035E+02_JPRB,3.0140E+02_JPRB/)
+KBO( :,30,10) = (/&
+&2.8853E+02_JPRB,2.9509E+02_JPRB,2.9931E+02_JPRB,3.0230E+02_JPRB,3.0384E+02_JPRB/)
+KBO( :,31,10) = (/&
+&2.8941E+02_JPRB,2.9638E+02_JPRB,3.0093E+02_JPRB,3.0407E+02_JPRB,3.0610E+02_JPRB/)
+KBO( :,32,10) = (/&
+&2.9067E+02_JPRB,2.9787E+02_JPRB,3.0275E+02_JPRB,3.0577E+02_JPRB,3.0795E+02_JPRB/)
+KBO( :,33,10) = (/&
+&2.9222E+02_JPRB,2.9942E+02_JPRB,3.0456E+02_JPRB,3.0752E+02_JPRB,3.0966E+02_JPRB/)
+KBO( :,34,10) = (/&
+&2.9363E+02_JPRB,3.0091E+02_JPRB,3.0608E+02_JPRB,3.0904E+02_JPRB,3.1115E+02_JPRB/)
+KBO( :,35,10) = (/&
+&2.9423E+02_JPRB,3.0182E+02_JPRB,3.0717E+02_JPRB,3.1018E+02_JPRB,3.1229E+02_JPRB/)
+KBO( :,36,10) = (/&
+&2.9400E+02_JPRB,3.0205E+02_JPRB,3.0771E+02_JPRB,3.1091E+02_JPRB,3.1314E+02_JPRB/)
+KBO( :,37,10) = (/&
+&2.9277E+02_JPRB,3.0116E+02_JPRB,3.0745E+02_JPRB,3.1132E+02_JPRB,3.1369E+02_JPRB/)
+KBO( :,38,10) = (/&
+&2.9103E+02_JPRB,3.0008E+02_JPRB,3.0698E+02_JPRB,3.1126E+02_JPRB,3.1405E+02_JPRB/)
+KBO( :,39,10) = (/&
+&2.8923E+02_JPRB,2.9890E+02_JPRB,3.0637E+02_JPRB,3.1107E+02_JPRB,3.1517E+02_JPRB/)
+KBO( :,40,10) = (/&
+&2.8609E+02_JPRB,2.9711E+02_JPRB,3.0497E+02_JPRB,3.1036E+02_JPRB,3.1550E+02_JPRB/)
+KBO( :,41,10) = (/&
+&2.8252E+02_JPRB,2.9448E+02_JPRB,3.0316E+02_JPRB,3.0942E+02_JPRB,3.1556E+02_JPRB/)
+KBO( :,42,10) = (/&
+&2.7862E+02_JPRB,2.9160E+02_JPRB,3.0113E+02_JPRB,3.0834E+02_JPRB,3.1556E+02_JPRB/)
+KBO( :,43,10) = (/&
+&2.7361E+02_JPRB,2.8779E+02_JPRB,2.9836E+02_JPRB,3.0666E+02_JPRB,3.1512E+02_JPRB/)
+KBO( :,44,10) = (/&
+&2.6782E+02_JPRB,2.8324E+02_JPRB,2.9499E+02_JPRB,3.0453E+02_JPRB,3.1441E+02_JPRB/)
+KBO( :,45,10) = (/&
+&2.6165E+02_JPRB,2.7823E+02_JPRB,2.9120E+02_JPRB,3.0219E+02_JPRB,3.1362E+02_JPRB/)
+KBO( :,46,10) = (/&
+&2.5462E+02_JPRB,2.7249E+02_JPRB,2.8693E+02_JPRB,2.9929E+02_JPRB,3.1228E+02_JPRB/)
+KBO( :,47,10) = (/&
+&2.4622E+02_JPRB,2.6556E+02_JPRB,2.8145E+02_JPRB,2.9525E+02_JPRB,3.0983E+02_JPRB/)
+KBO( :,48,10) = (/&
+&2.3713E+02_JPRB,2.5803E+02_JPRB,2.7541E+02_JPRB,2.9095E+02_JPRB,3.0719E+02_JPRB/)
+KBO( :,49,10) = (/&
+&2.2739E+02_JPRB,2.4986E+02_JPRB,2.6881E+02_JPRB,2.8662E+02_JPRB,3.0453E+02_JPRB/)
+KBO( :,50,10) = (/&
+&2.1772E+02_JPRB,2.4169E+02_JPRB,2.6202E+02_JPRB,2.8158E+02_JPRB,3.0094E+02_JPRB/)
+KBO( :,51,10) = (/&
+&2.0784E+02_JPRB,2.3330E+02_JPRB,2.5496E+02_JPRB,2.7591E+02_JPRB,2.9666E+02_JPRB/)
+KBO( :,52,10) = (/&
+&1.9746E+02_JPRB,2.2442E+02_JPRB,2.4742E+02_JPRB,2.7004E+02_JPRB,2.9216E+02_JPRB/)
+KBO( :,53,10) = (/&
+&1.8667E+02_JPRB,2.1498E+02_JPRB,2.3949E+02_JPRB,2.6404E+02_JPRB,2.8766E+02_JPRB/)
+KBO( :,54,10) = (/&
+&1.7641E+02_JPRB,2.0557E+02_JPRB,2.3152E+02_JPRB,2.5629E+02_JPRB,2.8134E+02_JPRB/)
+KBO( :,55,10) = (/&
+&1.6630E+02_JPRB,1.9645E+02_JPRB,2.2352E+02_JPRB,2.4801E+02_JPRB,2.7356E+02_JPRB/)
+KBO( :,56,10) = (/&
+&1.5594E+02_JPRB,1.8700E+02_JPRB,2.1520E+02_JPRB,2.3992E+02_JPRB,2.6576E+02_JPRB/)
+KBO( :,57,10) = (/&
+&1.4539E+02_JPRB,1.7728E+02_JPRB,2.0648E+02_JPRB,2.3204E+02_JPRB,2.5725E+02_JPRB/)
+KBO( :,58,10) = (/&
+&1.3524E+02_JPRB,1.6780E+02_JPRB,1.9789E+02_JPRB,2.2459E+02_JPRB,2.4918E+02_JPRB/)
+KBO( :,59,10) = (/&
+&1.3112E+02_JPRB,1.6391E+02_JPRB,1.9433E+02_JPRB,2.2152E+02_JPRB,2.4535E+02_JPRB/)
+KBO( :,13,11) = (/&
+&1.6552E+02_JPRB,1.6259E+02_JPRB,1.5976E+02_JPRB,1.5701E+02_JPRB,1.5440E+02_JPRB/)
+KBO( :,14,11) = (/&
+&1.8516E+02_JPRB,1.8233E+02_JPRB,1.7933E+02_JPRB,1.7635E+02_JPRB,1.7362E+02_JPRB/)
+KBO( :,15,11) = (/&
+&2.0794E+02_JPRB,2.0481E+02_JPRB,2.0174E+02_JPRB,1.9859E+02_JPRB,1.9534E+02_JPRB/)
+KBO( :,16,11) = (/&
+&2.3251E+02_JPRB,2.2934E+02_JPRB,2.2596E+02_JPRB,2.2193E+02_JPRB,2.1747E+02_JPRB/)
+KBO( :,17,11) = (/&
+&2.5822E+02_JPRB,2.5449E+02_JPRB,2.5028E+02_JPRB,2.4575E+02_JPRB,2.4111E+02_JPRB/)
+KBO( :,18,11) = (/&
+&2.8377E+02_JPRB,2.7983E+02_JPRB,2.7512E+02_JPRB,2.7022E+02_JPRB,2.6507E+02_JPRB/)
+KBO( :,19,11) = (/&
+&3.0872E+02_JPRB,3.0403E+02_JPRB,2.9887E+02_JPRB,2.9373E+02_JPRB,2.8833E+02_JPRB/)
+KBO( :,20,11) = (/&
+&3.3154E+02_JPRB,3.2667E+02_JPRB,3.2149E+02_JPRB,3.1658E+02_JPRB,3.1110E+02_JPRB/)
+KBO( :,21,11) = (/&
+&3.5303E+02_JPRB,3.4859E+02_JPRB,3.4368E+02_JPRB,3.3863E+02_JPRB,3.3281E+02_JPRB/)
+KBO( :,22,11) = (/&
+&3.7308E+02_JPRB,3.6866E+02_JPRB,3.6382E+02_JPRB,3.5853E+02_JPRB,3.5259E+02_JPRB/)
+KBO( :,23,11) = (/&
+&3.9085E+02_JPRB,3.8660E+02_JPRB,3.8185E+02_JPRB,3.7650E+02_JPRB,3.7123E+02_JPRB/)
+KBO( :,24,11) = (/&
+&4.0631E+02_JPRB,4.0255E+02_JPRB,3.9828E+02_JPRB,3.9348E+02_JPRB,3.8793E+02_JPRB/)
+KBO( :,25,11) = (/&
+&4.1938E+02_JPRB,4.1686E+02_JPRB,4.1282E+02_JPRB,4.0821E+02_JPRB,4.0269E+02_JPRB/)
+KBO( :,26,11) = (/&
+&4.3004E+02_JPRB,4.2864E+02_JPRB,4.2545E+02_JPRB,4.2097E+02_JPRB,4.1544E+02_JPRB/)
+KBO( :,27,11) = (/&
+&4.3932E+02_JPRB,4.3875E+02_JPRB,4.3604E+02_JPRB,4.3201E+02_JPRB,4.2641E+02_JPRB/)
+KBO( :,28,11) = (/&
+&4.4708E+02_JPRB,4.4715E+02_JPRB,4.4516E+02_JPRB,4.4121E+02_JPRB,4.3584E+02_JPRB/)
+KBO( :,29,11) = (/&
+&4.5390E+02_JPRB,4.5431E+02_JPRB,4.5282E+02_JPRB,4.4905E+02_JPRB,4.4353E+02_JPRB/)
+KBO( :,30,11) = (/&
+&4.5978E+02_JPRB,4.6051E+02_JPRB,4.5914E+02_JPRB,4.5563E+02_JPRB,4.4966E+02_JPRB/)
+KBO( :,31,11) = (/&
+&4.6502E+02_JPRB,4.6582E+02_JPRB,4.6429E+02_JPRB,4.6092E+02_JPRB,4.5451E+02_JPRB/)
+KBO( :,32,11) = (/&
+&4.6952E+02_JPRB,4.7023E+02_JPRB,4.6854E+02_JPRB,4.6499E+02_JPRB,4.5830E+02_JPRB/)
+KBO( :,33,11) = (/&
+&4.7348E+02_JPRB,4.7409E+02_JPRB,4.7192E+02_JPRB,4.6794E+02_JPRB,4.6103E+02_JPRB/)
+KBO( :,34,11) = (/&
+&4.7685E+02_JPRB,4.7731E+02_JPRB,4.7475E+02_JPRB,4.7028E+02_JPRB,4.6319E+02_JPRB/)
+KBO( :,35,11) = (/&
+&4.7958E+02_JPRB,4.8002E+02_JPRB,4.7736E+02_JPRB,4.7259E+02_JPRB,4.6551E+02_JPRB/)
+KBO( :,36,11) = (/&
+&4.8169E+02_JPRB,4.8240E+02_JPRB,4.7987E+02_JPRB,4.7499E+02_JPRB,4.6813E+02_JPRB/)
+KBO( :,37,11) = (/&
+&4.8298E+02_JPRB,4.8446E+02_JPRB,4.8243E+02_JPRB,4.7809E+02_JPRB,4.7147E+02_JPRB/)
+KBO( :,38,11) = (/&
+&4.8394E+02_JPRB,4.8606E+02_JPRB,4.8459E+02_JPRB,4.8068E+02_JPRB,4.7405E+02_JPRB/)
+KBO( :,39,11) = (/&
+&4.8451E+02_JPRB,4.8733E+02_JPRB,4.8637E+02_JPRB,4.8291E+02_JPRB,4.7658E+02_JPRB/)
+KBO( :,40,11) = (/&
+&4.8421E+02_JPRB,4.8736E+02_JPRB,4.8800E+02_JPRB,4.8523E+02_JPRB,4.7946E+02_JPRB/)
+KBO( :,41,11) = (/&
+&4.8335E+02_JPRB,4.8764E+02_JPRB,4.8927E+02_JPRB,4.8717E+02_JPRB,4.8206E+02_JPRB/)
+KBO( :,42,11) = (/&
+&4.8204E+02_JPRB,4.8748E+02_JPRB,4.9006E+02_JPRB,4.8875E+02_JPRB,4.8434E+02_JPRB/)
+KBO( :,43,11) = (/&
+&4.7975E+02_JPRB,4.8654E+02_JPRB,4.9041E+02_JPRB,4.9008E+02_JPRB,4.8652E+02_JPRB/)
+KBO( :,44,11) = (/&
+&4.7655E+02_JPRB,4.8494E+02_JPRB,4.9019E+02_JPRB,4.9098E+02_JPRB,4.8839E+02_JPRB/)
+KBO( :,45,11) = (/&
+&4.7253E+02_JPRB,4.8276E+02_JPRB,4.8943E+02_JPRB,4.9145E+02_JPRB,4.9003E+02_JPRB/)
+KBO( :,46,11) = (/&
+&4.6734E+02_JPRB,4.7968E+02_JPRB,4.8743E+02_JPRB,4.9144E+02_JPRB,4.9142E+02_JPRB/)
+KBO( :,47,11) = (/&
+&4.6037E+02_JPRB,4.7532E+02_JPRB,4.8503E+02_JPRB,4.9075E+02_JPRB,4.9230E+02_JPRB/)
+KBO( :,48,11) = (/&
+&4.5226E+02_JPRB,4.6987E+02_JPRB,4.8198E+02_JPRB,4.8932E+02_JPRB,4.9295E+02_JPRB/)
+KBO( :,49,11) = (/&
+&4.4290E+02_JPRB,4.6342E+02_JPRB,4.7813E+02_JPRB,4.8707E+02_JPRB,4.9364E+02_JPRB/)
+KBO( :,50,11) = (/&
+&4.3303E+02_JPRB,4.5634E+02_JPRB,4.7362E+02_JPRB,4.8430E+02_JPRB,4.9319E+02_JPRB/)
+KBO( :,51,11) = (/&
+&4.2231E+02_JPRB,4.4854E+02_JPRB,4.6823E+02_JPRB,4.8097E+02_JPRB,4.9173E+02_JPRB/)
+KBO( :,52,11) = (/&
+&4.1028E+02_JPRB,4.3983E+02_JPRB,4.6194E+02_JPRB,4.7695E+02_JPRB,4.9018E+02_JPRB/)
+KBO( :,53,11) = (/&
+&3.9747E+02_JPRB,4.3006E+02_JPRB,4.5475E+02_JPRB,4.7218E+02_JPRB,4.8896E+02_JPRB/)
+KBO( :,54,11) = (/&
+&3.8468E+02_JPRB,4.1991E+02_JPRB,4.4737E+02_JPRB,4.6699E+02_JPRB,4.8405E+02_JPRB/)
+KBO( :,55,11) = (/&
+&3.7148E+02_JPRB,4.0953E+02_JPRB,4.3953E+02_JPRB,4.6157E+02_JPRB,4.7789E+02_JPRB/)
+KBO( :,56,11) = (/&
+&3.5741E+02_JPRB,3.9825E+02_JPRB,4.3092E+02_JPRB,4.5516E+02_JPRB,4.7290E+02_JPRB/)
+KBO( :,57,11) = (/&
+&3.4261E+02_JPRB,3.8598E+02_JPRB,4.2152E+02_JPRB,4.4813E+02_JPRB,4.6777E+02_JPRB/)
+KBO( :,58,11) = (/&
+&3.2780E+02_JPRB,3.7359E+02_JPRB,4.1192E+02_JPRB,4.4072E+02_JPRB,4.6249E+02_JPRB/)
+KBO( :,59,11) = (/&
+&3.2152E+02_JPRB,3.6839E+02_JPRB,4.0780E+02_JPRB,4.3751E+02_JPRB,4.6016E+02_JPRB/)
+KBO( :,13,12) = (/&
+&1.8421E+02_JPRB,1.8166E+02_JPRB,1.7879E+02_JPRB,1.7574E+02_JPRB,1.7251E+02_JPRB/)
+KBO( :,14,12) = (/&
+&2.0903E+02_JPRB,2.0619E+02_JPRB,2.0324E+02_JPRB,1.9988E+02_JPRB,1.9636E+02_JPRB/)
+KBO( :,15,12) = (/&
+&2.3780E+02_JPRB,2.3442E+02_JPRB,2.3068E+02_JPRB,2.2666E+02_JPRB,2.2225E+02_JPRB/)
+KBO( :,16,12) = (/&
+&2.7012E+02_JPRB,2.6570E+02_JPRB,2.6084E+02_JPRB,2.5612E+02_JPRB,2.5162E+02_JPRB/)
+KBO( :,17,12) = (/&
+&3.0507E+02_JPRB,2.9990E+02_JPRB,2.9472E+02_JPRB,2.8913E+02_JPRB,2.8362E+02_JPRB/)
+KBO( :,18,12) = (/&
+&3.4264E+02_JPRB,3.3653E+02_JPRB,3.3027E+02_JPRB,3.2388E+02_JPRB,3.1713E+02_JPRB/)
+KBO( :,19,12) = (/&
+&3.8113E+02_JPRB,3.7455E+02_JPRB,3.6765E+02_JPRB,3.6040E+02_JPRB,3.5292E+02_JPRB/)
+KBO( :,20,12) = (/&
+&4.2119E+02_JPRB,4.1426E+02_JPRB,4.0655E+02_JPRB,3.9813E+02_JPRB,3.8981E+02_JPRB/)
+KBO( :,21,12) = (/&
+&4.6191E+02_JPRB,4.5363E+02_JPRB,4.4508E+02_JPRB,4.3611E+02_JPRB,4.2662E+02_JPRB/)
+KBO( :,22,12) = (/&
+&5.0045E+02_JPRB,4.9187E+02_JPRB,4.8228E+02_JPRB,4.7267E+02_JPRB,4.6269E+02_JPRB/)
+KBO( :,23,12) = (/&
+&5.3771E+02_JPRB,5.2859E+02_JPRB,5.1832E+02_JPRB,5.0803E+02_JPRB,4.9670E+02_JPRB/)
+KBO( :,24,12) = (/&
+&5.7227E+02_JPRB,5.6260E+02_JPRB,5.5214E+02_JPRB,5.4076E+02_JPRB,5.2846E+02_JPRB/)
+KBO( :,25,12) = (/&
+&6.0401E+02_JPRB,5.9384E+02_JPRB,5.8279E+02_JPRB,5.7065E+02_JPRB,5.5724E+02_JPRB/)
+KBO( :,26,12) = (/&
+&6.3275E+02_JPRB,6.2182E+02_JPRB,6.0975E+02_JPRB,5.9668E+02_JPRB,5.8248E+02_JPRB/)
+KBO( :,27,12) = (/&
+&6.5788E+02_JPRB,6.4612E+02_JPRB,6.3329E+02_JPRB,6.1912E+02_JPRB,6.0393E+02_JPRB/)
+KBO( :,28,12) = (/&
+&6.7977E+02_JPRB,6.6741E+02_JPRB,6.5368E+02_JPRB,6.3839E+02_JPRB,6.2186E+02_JPRB/)
+KBO( :,29,12) = (/&
+&6.9860E+02_JPRB,6.8540E+02_JPRB,6.7056E+02_JPRB,6.5407E+02_JPRB,6.3669E+02_JPRB/)
+KBO( :,30,12) = (/&
+&7.1428E+02_JPRB,7.0014E+02_JPRB,6.8436E+02_JPRB,6.6687E+02_JPRB,6.4843E+02_JPRB/)
+KBO( :,31,12) = (/&
+&7.2707E+02_JPRB,7.1224E+02_JPRB,6.9535E+02_JPRB,6.7679E+02_JPRB,6.5732E+02_JPRB/)
+KBO( :,32,12) = (/&
+&7.3739E+02_JPRB,7.2161E+02_JPRB,7.0352E+02_JPRB,6.8424E+02_JPRB,6.6374E+02_JPRB/)
+KBO( :,33,12) = (/&
+&7.4529E+02_JPRB,7.2852E+02_JPRB,7.0939E+02_JPRB,6.8945E+02_JPRB,6.6810E+02_JPRB/)
+KBO( :,34,12) = (/&
+&7.5166E+02_JPRB,7.3380E+02_JPRB,7.1390E+02_JPRB,6.9344E+02_JPRB,6.7141E+02_JPRB/)
+KBO( :,35,12) = (/&
+&7.5785E+02_JPRB,7.3918E+02_JPRB,7.1874E+02_JPRB,6.9799E+02_JPRB,6.7527E+02_JPRB/)
+KBO( :,36,12) = (/&
+&7.6435E+02_JPRB,7.4538E+02_JPRB,7.2454E+02_JPRB,7.0358E+02_JPRB,6.8040E+02_JPRB/)
+KBO( :,37,12) = (/&
+&7.7161E+02_JPRB,7.5340E+02_JPRB,7.3251E+02_JPRB,7.1089E+02_JPRB,6.8800E+02_JPRB/)
+KBO( :,38,12) = (/&
+&7.7853E+02_JPRB,7.6067E+02_JPRB,7.3983E+02_JPRB,7.1816E+02_JPRB,6.9536E+02_JPRB/)
+KBO( :,39,12) = (/&
+&7.8464E+02_JPRB,7.6713E+02_JPRB,7.4647E+02_JPRB,7.2475E+02_JPRB,7.0178E+02_JPRB/)
+KBO( :,40,12) = (/&
+&7.9160E+02_JPRB,7.7414E+02_JPRB,7.5465E+02_JPRB,7.3306E+02_JPRB,7.1009E+02_JPRB/)
+KBO( :,41,12) = (/&
+&7.9795E+02_JPRB,7.8137E+02_JPRB,7.6252E+02_JPRB,7.4117E+02_JPRB,7.1825E+02_JPRB/)
+KBO( :,42,12) = (/&
+&8.0363E+02_JPRB,7.8805E+02_JPRB,7.6985E+02_JPRB,7.4880E+02_JPRB,7.2604E+02_JPRB/)
+KBO( :,43,12) = (/&
+&8.0918E+02_JPRB,7.9503E+02_JPRB,7.7774E+02_JPRB,7.5724E+02_JPRB,7.3478E+02_JPRB/)
+KBO( :,44,12) = (/&
+&8.1405E+02_JPRB,8.0171E+02_JPRB,7.8561E+02_JPRB,7.6584E+02_JPRB,7.4379E+02_JPRB/)
+KBO( :,45,12) = (/&
+&8.1783E+02_JPRB,8.0759E+02_JPRB,7.9294E+02_JPRB,7.7397E+02_JPRB,7.5240E+02_JPRB/)
+KBO( :,46,12) = (/&
+&8.2078E+02_JPRB,8.1309E+02_JPRB,8.0010E+02_JPRB,7.8201E+02_JPRB,7.6131E+02_JPRB/)
+KBO( :,47,12) = (/&
+&8.2288E+02_JPRB,8.1791E+02_JPRB,8.0688E+02_JPRB,7.9031E+02_JPRB,7.7082E+02_JPRB/)
+KBO( :,48,12) = (/&
+&8.2365E+02_JPRB,8.2167E+02_JPRB,8.1273E+02_JPRB,7.9796E+02_JPRB,7.7963E+02_JPRB/)
+KBO( :,49,12) = (/&
+&8.2287E+02_JPRB,8.2431E+02_JPRB,8.1763E+02_JPRB,8.0487E+02_JPRB,7.8791E+02_JPRB/)
+KBO( :,50,12) = (/&
+&8.2045E+02_JPRB,8.2549E+02_JPRB,8.2124E+02_JPRB,8.1073E+02_JPRB,7.9521E+02_JPRB/)
+KBO( :,51,12) = (/&
+&8.1647E+02_JPRB,8.2526E+02_JPRB,8.2370E+02_JPRB,8.1563E+02_JPRB,8.0180E+02_JPRB/)
+KBO( :,52,12) = (/&
+&8.1121E+02_JPRB,8.2367E+02_JPRB,8.2531E+02_JPRB,8.1967E+02_JPRB,8.0788E+02_JPRB/)
+KBO( :,53,12) = (/&
+&8.0411E+02_JPRB,8.2055E+02_JPRB,8.2579E+02_JPRB,8.2272E+02_JPRB,8.1321E+02_JPRB/)
+KBO( :,54,12) = (/&
+&7.9588E+02_JPRB,8.1607E+02_JPRB,8.2504E+02_JPRB,8.2471E+02_JPRB,8.1743E+02_JPRB/)
+KBO( :,55,12) = (/&
+&7.8606E+02_JPRB,8.1098E+02_JPRB,8.2328E+02_JPRB,8.2571E+02_JPRB,8.2076E+02_JPRB/)
+KBO( :,56,12) = (/&
+&7.7445E+02_JPRB,8.0478E+02_JPRB,8.2051E+02_JPRB,8.2610E+02_JPRB,8.2295E+02_JPRB/)
+KBO( :,57,12) = (/&
+&7.6082E+02_JPRB,7.9711E+02_JPRB,8.1649E+02_JPRB,8.2552E+02_JPRB,8.2493E+02_JPRB/)
+KBO( :,58,12) = (/&
+&7.4626E+02_JPRB,7.8808E+02_JPRB,8.1174E+02_JPRB,8.2409E+02_JPRB,8.2621E+02_JPRB/)
+KBO( :,59,12) = (/&
+&7.3987E+02_JPRB,7.8401E+02_JPRB,8.0954E+02_JPRB,8.2334E+02_JPRB,8.2653E+02_JPRB/)
+KBO( :,13,13) = (/&
+&2.0706E+02_JPRB,2.0275E+02_JPRB,1.9960E+02_JPRB,1.9642E+02_JPRB,1.9325E+02_JPRB/)
+KBO( :,14,13) = (/&
+&2.3740E+02_JPRB,2.3314E+02_JPRB,2.2927E+02_JPRB,2.2508E+02_JPRB,2.2071E+02_JPRB/)
+KBO( :,15,13) = (/&
+&2.7338E+02_JPRB,2.6831E+02_JPRB,2.6304E+02_JPRB,2.5795E+02_JPRB,2.5294E+02_JPRB/)
+KBO( :,16,13) = (/&
+&3.1308E+02_JPRB,3.0705E+02_JPRB,3.0154E+02_JPRB,2.9582E+02_JPRB,2.8990E+02_JPRB/)
+KBO( :,17,13) = (/&
+&3.5766E+02_JPRB,3.5096E+02_JPRB,3.4421E+02_JPRB,3.3769E+02_JPRB,3.3070E+02_JPRB/)
+KBO( :,18,13) = (/&
+&4.0731E+02_JPRB,3.9992E+02_JPRB,3.9262E+02_JPRB,3.8506E+02_JPRB,3.7703E+02_JPRB/)
+KBO( :,19,13) = (/&
+&4.6388E+02_JPRB,4.5553E+02_JPRB,4.4668E+02_JPRB,4.3762E+02_JPRB,4.2783E+02_JPRB/)
+KBO( :,20,13) = (/&
+&5.2583E+02_JPRB,5.1576E+02_JPRB,5.0510E+02_JPRB,4.9383E+02_JPRB,4.8218E+02_JPRB/)
+KBO( :,21,13) = (/&
+&5.9116E+02_JPRB,5.7950E+02_JPRB,5.6656E+02_JPRB,5.5310E+02_JPRB,5.3897E+02_JPRB/)
+KBO( :,22,13) = (/&
+&6.5823E+02_JPRB,6.4391E+02_JPRB,6.2839E+02_JPRB,6.1210E+02_JPRB,5.9534E+02_JPRB/)
+KBO( :,23,13) = (/&
+&7.2542E+02_JPRB,7.0808E+02_JPRB,6.8952E+02_JPRB,6.6991E+02_JPRB,6.4969E+02_JPRB/)
+KBO( :,24,13) = (/&
+&7.9029E+02_JPRB,7.7002E+02_JPRB,7.4790E+02_JPRB,7.2486E+02_JPRB,7.0140E+02_JPRB/)
+KBO( :,25,13) = (/&
+&8.5203E+02_JPRB,8.2748E+02_JPRB,8.0207E+02_JPRB,7.7556E+02_JPRB,7.4909E+02_JPRB/)
+KBO( :,26,13) = (/&
+&9.0879E+02_JPRB,8.8008E+02_JPRB,8.5133E+02_JPRB,8.2123E+02_JPRB,7.9187E+02_JPRB/)
+KBO( :,27,13) = (/&
+&9.5929E+02_JPRB,9.2767E+02_JPRB,8.9539E+02_JPRB,8.6200E+02_JPRB,8.2944E+02_JPRB/)
+KBO( :,28,13) = (/&
+&1.0038E+03_JPRB,9.6874E+02_JPRB,9.3346E+02_JPRB,8.9698E+02_JPRB,8.6129E+02_JPRB/)
+KBO( :,29,13) = (/&
+&1.0414E+03_JPRB,1.0031E+03_JPRB,9.6490E+02_JPRB,9.2572E+02_JPRB,8.8715E+02_JPRB/)
+KBO( :,30,13) = (/&
+&1.0721E+03_JPRB,1.0311E+03_JPRB,9.9002E+02_JPRB,9.4833E+02_JPRB,9.0740E+02_JPRB/)
+KBO( :,31,13) = (/&
+&1.0964E+03_JPRB,1.0523E+03_JPRB,1.0091E+03_JPRB,9.6516E+02_JPRB,9.2258E+02_JPRB/)
+KBO( :,32,13) = (/&
+&1.1144E+03_JPRB,1.0680E+03_JPRB,1.0228E+03_JPRB,9.7704E+02_JPRB,9.3296E+02_JPRB/)
+KBO( :,33,13) = (/&
+&1.1268E+03_JPRB,1.0785E+03_JPRB,1.0318E+03_JPRB,9.8453E+02_JPRB,9.3914E+02_JPRB/)
+KBO( :,34,13) = (/&
+&1.1363E+03_JPRB,1.0866E+03_JPRB,1.0383E+03_JPRB,9.8991E+02_JPRB,9.4342E+02_JPRB/)
+KBO( :,35,13) = (/&
+&1.1468E+03_JPRB,1.0959E+03_JPRB,1.0463E+03_JPRB,9.9687E+02_JPRB,9.4938E+02_JPRB/)
+KBO( :,36,13) = (/&
+&1.1600E+03_JPRB,1.1078E+03_JPRB,1.0572E+03_JPRB,1.0067E+03_JPRB,9.5830E+02_JPRB/)
+KBO( :,37,13) = (/&
+&1.1790E+03_JPRB,1.1257E+03_JPRB,1.0738E+03_JPRB,1.0220E+03_JPRB,9.7295E+02_JPRB/)
+KBO( :,38,13) = (/&
+&1.1965E+03_JPRB,1.1423E+03_JPRB,1.0895E+03_JPRB,1.0368E+03_JPRB,9.8736E+02_JPRB/)
+KBO( :,39,13) = (/&
+&1.2126E+03_JPRB,1.1577E+03_JPRB,1.1039E+03_JPRB,1.0505E+03_JPRB,1.0002E+03_JPRB/)
+KBO( :,40,13) = (/&
+&1.2331E+03_JPRB,1.1780E+03_JPRB,1.1227E+03_JPRB,1.0686E+03_JPRB,1.0174E+03_JPRB/)
+KBO( :,41,13) = (/&
+&1.2534E+03_JPRB,1.1977E+03_JPRB,1.1416E+03_JPRB,1.0868E+03_JPRB,1.0348E+03_JPRB/)
+KBO( :,42,13) = (/&
+&1.2728E+03_JPRB,1.2168E+03_JPRB,1.1600E+03_JPRB,1.1045E+03_JPRB,1.0518E+03_JPRB/)
+KBO( :,43,13) = (/&
+&1.2945E+03_JPRB,1.2387E+03_JPRB,1.1810E+03_JPRB,1.1249E+03_JPRB,1.0714E+03_JPRB/)
+KBO( :,44,13) = (/&
+&1.3174E+03_JPRB,1.2614E+03_JPRB,1.2031E+03_JPRB,1.1464E+03_JPRB,1.0923E+03_JPRB/)
+KBO( :,45,13) = (/&
+&1.3398E+03_JPRB,1.2836E+03_JPRB,1.2250E+03_JPRB,1.1678E+03_JPRB,1.1130E+03_JPRB/)
+KBO( :,46,13) = (/&
+&1.3628E+03_JPRB,1.3065E+03_JPRB,1.2489E+03_JPRB,1.1905E+03_JPRB,1.1348E+03_JPRB/)
+KBO( :,47,13) = (/&
+&1.3873E+03_JPRB,1.3317E+03_JPRB,1.2742E+03_JPRB,1.2156E+03_JPRB,1.1587E+03_JPRB/)
+KBO( :,48,13) = (/&
+&1.4108E+03_JPRB,1.3565E+03_JPRB,1.2991E+03_JPRB,1.2406E+03_JPRB,1.1829E+03_JPRB/)
+KBO( :,49,13) = (/&
+&1.4335E+03_JPRB,1.3803E+03_JPRB,1.3234E+03_JPRB,1.2654E+03_JPRB,1.2072E+03_JPRB/)
+KBO( :,50,13) = (/&
+&1.4541E+03_JPRB,1.4021E+03_JPRB,1.3460E+03_JPRB,1.2885E+03_JPRB,1.2302E+03_JPRB/)
+KBO( :,51,13) = (/&
+&1.4730E+03_JPRB,1.4228E+03_JPRB,1.3681E+03_JPRB,1.3104E+03_JPRB,1.2525E+03_JPRB/)
+KBO( :,52,13) = (/&
+&1.4907E+03_JPRB,1.4427E+03_JPRB,1.3898E+03_JPRB,1.3321E+03_JPRB,1.2744E+03_JPRB/)
+KBO( :,53,13) = (/&
+&1.5061E+03_JPRB,1.4619E+03_JPRB,1.4106E+03_JPRB,1.3539E+03_JPRB,1.2962E+03_JPRB/)
+KBO( :,54,13) = (/&
+&1.5192E+03_JPRB,1.4794E+03_JPRB,1.4292E+03_JPRB,1.3736E+03_JPRB,1.3161E+03_JPRB/)
+KBO( :,55,13) = (/&
+&1.5309E+03_JPRB,1.4941E+03_JPRB,1.4465E+03_JPRB,1.3926E+03_JPRB,1.3351E+03_JPRB/)
+KBO( :,56,13) = (/&
+&1.5407E+03_JPRB,1.5075E+03_JPRB,1.4630E+03_JPRB,1.4106E+03_JPRB,1.3542E+03_JPRB/)
+KBO( :,57,13) = (/&
+&1.5484E+03_JPRB,1.5197E+03_JPRB,1.4789E+03_JPRB,1.4283E+03_JPRB,1.3728E+03_JPRB/)
+KBO( :,58,13) = (/&
+&1.5535E+03_JPRB,1.5303E+03_JPRB,1.4929E+03_JPRB,1.4443E+03_JPRB,1.3902E+03_JPRB/)
+KBO( :,59,13) = (/&
+&1.5550E+03_JPRB,1.5344E+03_JPRB,1.4983E+03_JPRB,1.4507E+03_JPRB,1.3972E+03_JPRB/)
+KBO( :,13,14) = (/&
+&2.5200E+02_JPRB,2.4567E+02_JPRB,2.3912E+02_JPRB,2.3261E+02_JPRB,2.2671E+02_JPRB/)
+KBO( :,14,14) = (/&
+&2.8356E+02_JPRB,2.7567E+02_JPRB,2.6762E+02_JPRB,2.6041E+02_JPRB,2.5414E+02_JPRB/)
+KBO( :,15,14) = (/&
+&3.2000E+02_JPRB,3.1086E+02_JPRB,3.0278E+02_JPRB,2.9520E+02_JPRB,2.8835E+02_JPRB/)
+KBO( :,16,14) = (/&
+&3.6501E+02_JPRB,3.5545E+02_JPRB,3.4663E+02_JPRB,3.3835E+02_JPRB,3.3040E+02_JPRB/)
+KBO( :,17,14) = (/&
+&4.2043E+02_JPRB,4.1003E+02_JPRB,4.0038E+02_JPRB,3.9117E+02_JPRB,3.8254E+02_JPRB/)
+KBO( :,18,14) = (/&
+&4.8684E+02_JPRB,4.7541E+02_JPRB,4.6423E+02_JPRB,4.5366E+02_JPRB,4.4317E+02_JPRB/)
+KBO( :,19,14) = (/&
+&5.6352E+02_JPRB,5.4977E+02_JPRB,5.3699E+02_JPRB,5.2451E+02_JPRB,5.1166E+02_JPRB/)
+KBO( :,20,14) = (/&
+&6.4946E+02_JPRB,6.3281E+02_JPRB,6.1710E+02_JPRB,6.0187E+02_JPRB,5.8639E+02_JPRB/)
+KBO( :,21,14) = (/&
+&7.4362E+02_JPRB,7.2356E+02_JPRB,7.0410E+02_JPRB,6.8448E+02_JPRB,6.6564E+02_JPRB/)
+KBO( :,22,14) = (/&
+&8.4333E+02_JPRB,8.1844E+02_JPRB,7.9450E+02_JPRB,7.7017E+02_JPRB,7.4626E+02_JPRB/)
+KBO( :,23,14) = (/&
+&9.4680E+02_JPRB,9.1686E+02_JPRB,8.8724E+02_JPRB,8.5711E+02_JPRB,8.2794E+02_JPRB/)
+KBO( :,24,14) = (/&
+&1.0528E+03_JPRB,1.0161E+03_JPRB,9.7917E+02_JPRB,9.4320E+02_JPRB,9.0772E+02_JPRB/)
+KBO( :,25,14) = (/&
+&1.1567E+03_JPRB,1.1128E+03_JPRB,1.0684E+03_JPRB,1.0249E+03_JPRB,9.8260E+02_JPRB/)
+KBO( :,26,14) = (/&
+&1.2530E+03_JPRB,1.2021E+03_JPRB,1.1497E+03_JPRB,1.0989E+03_JPRB,1.0499E+03_JPRB/)
+KBO( :,27,14) = (/&
+&1.3414E+03_JPRB,1.2817E+03_JPRB,1.2215E+03_JPRB,1.1632E+03_JPRB,1.1083E+03_JPRB/)
+KBO( :,28,14) = (/&
+&1.4184E+03_JPRB,1.3503E+03_JPRB,1.2822E+03_JPRB,1.2175E+03_JPRB,1.1569E+03_JPRB/)
+KBO( :,29,14) = (/&
+&1.4829E+03_JPRB,1.4069E+03_JPRB,1.3322E+03_JPRB,1.2616E+03_JPRB,1.1958E+03_JPRB/)
+KBO( :,30,14) = (/&
+&1.5347E+03_JPRB,1.4521E+03_JPRB,1.3719E+03_JPRB,1.2961E+03_JPRB,1.2258E+03_JPRB/)
+KBO( :,31,14) = (/&
+&1.5740E+03_JPRB,1.4863E+03_JPRB,1.4011E+03_JPRB,1.3213E+03_JPRB,1.2473E+03_JPRB/)
+KBO( :,32,14) = (/&
+&1.6019E+03_JPRB,1.5104E+03_JPRB,1.4212E+03_JPRB,1.3381E+03_JPRB,1.2613E+03_JPRB/)
+KBO( :,33,14) = (/&
+&1.6206E+03_JPRB,1.5254E+03_JPRB,1.4335E+03_JPRB,1.3478E+03_JPRB,1.2690E+03_JPRB/)
+KBO( :,34,14) = (/&
+&1.6343E+03_JPRB,1.5362E+03_JPRB,1.4422E+03_JPRB,1.3545E+03_JPRB,1.2743E+03_JPRB/)
+KBO( :,35,14) = (/&
+&1.6513E+03_JPRB,1.5505E+03_JPRB,1.4543E+03_JPRB,1.3647E+03_JPRB,1.2829E+03_JPRB/)
+KBO( :,36,14) = (/&
+&1.6747E+03_JPRB,1.5711E+03_JPRB,1.4723E+03_JPRB,1.3806E+03_JPRB,1.2969E+03_JPRB/)
+KBO( :,37,14) = (/&
+&1.7119E+03_JPRB,1.6037E+03_JPRB,1.5018E+03_JPRB,1.4086E+03_JPRB,1.3210E+03_JPRB/)
+KBO( :,38,14) = (/&
+&1.7464E+03_JPRB,1.6348E+03_JPRB,1.5298E+03_JPRB,1.4339E+03_JPRB,1.3446E+03_JPRB/)
+KBO( :,39,14) = (/&
+&1.7785E+03_JPRB,1.6638E+03_JPRB,1.5560E+03_JPRB,1.4575E+03_JPRB,1.3661E+03_JPRB/)
+KBO( :,40,14) = (/&
+&1.8213E+03_JPRB,1.7031E+03_JPRB,1.5916E+03_JPRB,1.4897E+03_JPRB,1.3957E+03_JPRB/)
+KBO( :,41,14) = (/&
+&1.8650E+03_JPRB,1.7429E+03_JPRB,1.6279E+03_JPRB,1.5226E+03_JPRB,1.4260E+03_JPRB/)
+KBO( :,42,14) = (/&
+&1.9083E+03_JPRB,1.7822E+03_JPRB,1.6638E+03_JPRB,1.5553E+03_JPRB,1.4560E+03_JPRB/)
+KBO( :,43,14) = (/&
+&1.9590E+03_JPRB,1.8282E+03_JPRB,1.7062E+03_JPRB,1.5939E+03_JPRB,1.4914E+03_JPRB/)
+KBO( :,44,14) = (/&
+&2.0135E+03_JPRB,1.8780E+03_JPRB,1.7518E+03_JPRB,1.6354E+03_JPRB,1.5294E+03_JPRB/)
+KBO( :,45,14) = (/&
+&2.0686E+03_JPRB,1.9283E+03_JPRB,1.7978E+03_JPRB,1.6776E+03_JPRB,1.5679E+03_JPRB/)
+KBO( :,46,14) = (/&
+&2.1281E+03_JPRB,1.9824E+03_JPRB,1.8468E+03_JPRB,1.7228E+03_JPRB,1.6096E+03_JPRB/)
+KBO( :,47,14) = (/&
+&2.1954E+03_JPRB,2.0435E+03_JPRB,1.9031E+03_JPRB,1.7740E+03_JPRB,1.6572E+03_JPRB/)
+KBO( :,48,14) = (/&
+&2.2648E+03_JPRB,2.1064E+03_JPRB,1.9610E+03_JPRB,1.8268E+03_JPRB,1.7061E+03_JPRB/)
+KBO( :,49,14) = (/&
+&2.3361E+03_JPRB,2.1712E+03_JPRB,2.0209E+03_JPRB,1.8815E+03_JPRB,1.7562E+03_JPRB/)
+KBO( :,50,14) = (/&
+&2.4045E+03_JPRB,2.2339E+03_JPRB,2.0788E+03_JPRB,1.9343E+03_JPRB,1.8042E+03_JPRB/)
+KBO( :,51,14) = (/&
+&2.4726E+03_JPRB,2.2963E+03_JPRB,2.1361E+03_JPRB,1.9873E+03_JPRB,1.8522E+03_JPRB/)
+KBO( :,52,14) = (/&
+&2.5428E+03_JPRB,2.3607E+03_JPRB,2.1949E+03_JPRB,2.0419E+03_JPRB,1.9016E+03_JPRB/)
+KBO( :,53,14) = (/&
+&2.6141E+03_JPRB,2.4269E+03_JPRB,2.2555E+03_JPRB,2.0978E+03_JPRB,1.9528E+03_JPRB/)
+KBO( :,54,14) = (/&
+&2.6807E+03_JPRB,2.4886E+03_JPRB,2.3128E+03_JPRB,2.1502E+03_JPRB,2.0011E+03_JPRB/)
+KBO( :,55,14) = (/&
+&2.7459E+03_JPRB,2.5495E+03_JPRB,2.3693E+03_JPRB,2.2020E+03_JPRB,2.0486E+03_JPRB/)
+KBO( :,56,14) = (/&
+&2.8130E+03_JPRB,2.6116E+03_JPRB,2.4267E+03_JPRB,2.2548E+03_JPRB,2.0964E+03_JPRB/)
+KBO( :,57,14) = (/&
+&2.8820E+03_JPRB,2.6749E+03_JPRB,2.4855E+03_JPRB,2.3093E+03_JPRB,2.1460E+03_JPRB/)
+KBO( :,58,14) = (/&
+&2.9481E+03_JPRB,2.7364E+03_JPRB,2.5424E+03_JPRB,2.3624E+03_JPRB,2.1944E+03_JPRB/)
+KBO( :,59,14) = (/&
+&2.9753E+03_JPRB,2.7616E+03_JPRB,2.5658E+03_JPRB,2.3843E+03_JPRB,2.2142E+03_JPRB/)
+KBO( :,13,15) = (/&
+&3.0496E+02_JPRB,3.0081E+02_JPRB,2.9676E+02_JPRB,2.9051E+02_JPRB,2.8450E+02_JPRB/)
+KBO( :,14,15) = (/&
+&3.4462E+02_JPRB,3.4099E+02_JPRB,3.3527E+02_JPRB,3.3016E+02_JPRB,3.2406E+02_JPRB/)
+KBO( :,15,15) = (/&
+&3.8936E+02_JPRB,3.8628E+02_JPRB,3.8183E+02_JPRB,3.7492E+02_JPRB,3.6807E+02_JPRB/)
+KBO( :,16,15) = (/&
+&4.4332E+02_JPRB,4.3856E+02_JPRB,4.3430E+02_JPRB,4.2589E+02_JPRB,4.1877E+02_JPRB/)
+KBO( :,17,15) = (/&
+&5.0835E+02_JPRB,5.0183E+02_JPRB,4.9489E+02_JPRB,4.8561E+02_JPRB,4.7621E+02_JPRB/)
+KBO( :,18,15) = (/&
+&5.8677E+02_JPRB,5.7885E+02_JPRB,5.6791E+02_JPRB,5.5537E+02_JPRB,5.4279E+02_JPRB/)
+KBO( :,19,15) = (/&
+&6.8130E+02_JPRB,6.6815E+02_JPRB,6.5194E+02_JPRB,6.3561E+02_JPRB,6.1955E+02_JPRB/)
+KBO( :,20,15) = (/&
+&7.8879E+02_JPRB,7.7015E+02_JPRB,7.4875E+02_JPRB,7.2676E+02_JPRB,7.0600E+02_JPRB/)
+KBO( :,21,15) = (/&
+&9.1167E+02_JPRB,8.8542E+02_JPRB,8.5728E+02_JPRB,8.2924E+02_JPRB,8.0222E+02_JPRB/)
+KBO( :,22,15) = (/&
+&1.0456E+03_JPRB,1.0104E+03_JPRB,9.7413E+02_JPRB,9.3830E+02_JPRB,9.0416E+02_JPRB/)
+KBO( :,23,15) = (/&
+&1.1890E+03_JPRB,1.1427E+03_JPRB,1.0964E+03_JPRB,1.0517E+03_JPRB,1.0073E+03_JPRB/)
+KBO( :,24,15) = (/&
+&1.3341E+03_JPRB,1.2769E+03_JPRB,1.2199E+03_JPRB,1.1637E+03_JPRB,1.1097E+03_JPRB/)
+KBO( :,25,15) = (/&
+&1.4777E+03_JPRB,1.4064E+03_JPRB,1.3371E+03_JPRB,1.2692E+03_JPRB,1.2051E+03_JPRB/)
+KBO( :,26,15) = (/&
+&1.6127E+03_JPRB,1.5257E+03_JPRB,1.4439E+03_JPRB,1.3652E+03_JPRB,1.2908E+03_JPRB/)
+KBO( :,27,15) = (/&
+&1.7363E+03_JPRB,1.6345E+03_JPRB,1.5403E+03_JPRB,1.4516E+03_JPRB,1.3681E+03_JPRB/)
+KBO( :,28,15) = (/&
+&1.8456E+03_JPRB,1.7310E+03_JPRB,1.6252E+03_JPRB,1.5262E+03_JPRB,1.4343E+03_JPRB/)
+KBO( :,29,15) = (/&
+&1.9374E+03_JPRB,1.8114E+03_JPRB,1.6953E+03_JPRB,1.5870E+03_JPRB,1.4880E+03_JPRB/)
+KBO( :,30,15) = (/&
+&2.0123E+03_JPRB,1.8759E+03_JPRB,1.7509E+03_JPRB,1.6347E+03_JPRB,1.5297E+03_JPRB/)
+KBO( :,31,15) = (/&
+&2.0695E+03_JPRB,1.9241E+03_JPRB,1.7919E+03_JPRB,1.6696E+03_JPRB,1.5595E+03_JPRB/)
+KBO( :,32,15) = (/&
+&2.1098E+03_JPRB,1.9573E+03_JPRB,1.8199E+03_JPRB,1.6927E+03_JPRB,1.5791E+03_JPRB/)
+KBO( :,33,15) = (/&
+&2.1350E+03_JPRB,1.9776E+03_JPRB,1.8360E+03_JPRB,1.7058E+03_JPRB,1.5896E+03_JPRB/)
+KBO( :,34,15) = (/&
+&2.1531E+03_JPRB,1.9921E+03_JPRB,1.8473E+03_JPRB,1.7146E+03_JPRB,1.5966E+03_JPRB/)
+KBO( :,35,15) = (/&
+&2.1773E+03_JPRB,2.0121E+03_JPRB,1.8641E+03_JPRB,1.7288E+03_JPRB,1.6085E+03_JPRB/)
+KBO( :,36,15) = (/&
+&2.2124E+03_JPRB,2.0424E+03_JPRB,1.8903E+03_JPRB,1.7515E+03_JPRB,1.6285E+03_JPRB/)
+KBO( :,37,15) = (/&
+&2.2692E+03_JPRB,2.0922E+03_JPRB,1.9342E+03_JPRB,1.7916E+03_JPRB,1.6630E+03_JPRB/)
+KBO( :,38,15) = (/&
+&2.3243E+03_JPRB,2.1400E+03_JPRB,1.9765E+03_JPRB,1.8290E+03_JPRB,1.6948E+03_JPRB/)
+KBO( :,39,15) = (/&
+&2.3761E+03_JPRB,2.1849E+03_JPRB,2.0163E+03_JPRB,1.8643E+03_JPRB,1.7262E+03_JPRB/)
+KBO( :,40,15) = (/&
+&2.4467E+03_JPRB,2.2470E+03_JPRB,2.0711E+03_JPRB,1.9128E+03_JPRB,1.7697E+03_JPRB/)
+KBO( :,41,15) = (/&
+&2.5197E+03_JPRB,2.3108E+03_JPRB,2.1276E+03_JPRB,1.9630E+03_JPRB,1.8147E+03_JPRB/)
+KBO( :,42,15) = (/&
+&2.5927E+03_JPRB,2.3746E+03_JPRB,2.1839E+03_JPRB,2.0131E+03_JPRB,1.8595E+03_JPRB/)
+KBO( :,43,15) = (/&
+&2.6795E+03_JPRB,2.4509E+03_JPRB,2.2509E+03_JPRB,2.0729E+03_JPRB,1.9127E+03_JPRB/)
+KBO( :,44,15) = (/&
+&2.7746E+03_JPRB,2.5346E+03_JPRB,2.3244E+03_JPRB,2.1382E+03_JPRB,1.9711E+03_JPRB/)
+KBO( :,45,15) = (/&
+&2.8725E+03_JPRB,2.6210E+03_JPRB,2.4001E+03_JPRB,2.2052E+03_JPRB,2.0310E+03_JPRB/)
+KBO( :,46,15) = (/&
+&2.9808E+03_JPRB,2.7160E+03_JPRB,2.4820E+03_JPRB,2.2786E+03_JPRB,2.0965E+03_JPRB/)
+KBO( :,47,15) = (/&
+&3.1065E+03_JPRB,2.8260E+03_JPRB,2.5776E+03_JPRB,2.3630E+03_JPRB,2.1714E+03_JPRB/)
+KBO( :,48,15) = (/&
+&3.2382E+03_JPRB,2.9414E+03_JPRB,2.6779E+03_JPRB,2.4515E+03_JPRB,2.2491E+03_JPRB/)
+KBO( :,49,15) = (/&
+&3.3769E+03_JPRB,3.0628E+03_JPRB,2.7828E+03_JPRB,2.5435E+03_JPRB,2.3301E+03_JPRB/)
+KBO( :,50,15) = (/&
+&3.5153E+03_JPRB,3.1825E+03_JPRB,2.8860E+03_JPRB,2.6340E+03_JPRB,2.4097E+03_JPRB/)
+KBO( :,51,15) = (/&
+&3.6567E+03_JPRB,3.3043E+03_JPRB,2.9915E+03_JPRB,2.7258E+03_JPRB,2.4905E+03_JPRB/)
+KBO( :,52,15) = (/&
+&3.8059E+03_JPRB,3.4316E+03_JPRB,3.1018E+03_JPRB,2.8218E+03_JPRB,2.5746E+03_JPRB/)
+KBO( :,53,15) = (/&
+&3.9647E+03_JPRB,3.5659E+03_JPRB,3.2181E+03_JPRB,2.9226E+03_JPRB,2.6623E+03_JPRB/)
+KBO( :,54,15) = (/&
+&4.1182E+03_JPRB,3.6932E+03_JPRB,3.3305E+03_JPRB,3.0197E+03_JPRB,2.7461E+03_JPRB/)
+KBO( :,55,15) = (/&
+&4.2719E+03_JPRB,3.8244E+03_JPRB,3.4429E+03_JPRB,3.1156E+03_JPRB,2.8302E+03_JPRB/)
+KBO( :,56,15) = (/&
+&4.4321E+03_JPRB,3.9623E+03_JPRB,3.5606E+03_JPRB,3.2171E+03_JPRB,2.9172E+03_JPRB/)
+KBO( :,57,15) = (/&
+&4.6005E+03_JPRB,4.1071E+03_JPRB,3.6841E+03_JPRB,3.3227E+03_JPRB,3.0093E+03_JPRB/)
+KBO( :,58,15) = (/&
+&4.7711E+03_JPRB,4.2512E+03_JPRB,3.8068E+03_JPRB,3.4270E+03_JPRB,3.1000E+03_JPRB/)
+KBO( :,59,15) = (/&
+&4.8435E+03_JPRB,4.3113E+03_JPRB,3.8580E+03_JPRB,3.4704E+03_JPRB,3.1379E+03_JPRB/)
+KBO( :,13,16) = (/&
+&3.6480E+02_JPRB,3.5145E+02_JPRB,3.4350E+02_JPRB,3.3674E+02_JPRB,3.3295E+02_JPRB/)
+KBO( :,14,16) = (/&
+&4.3305E+02_JPRB,4.2002E+02_JPRB,4.0834E+02_JPRB,4.0114E+02_JPRB,3.9514E+02_JPRB/)
+KBO( :,15,16) = (/&
+&5.1021E+02_JPRB,4.9566E+02_JPRB,4.8445E+02_JPRB,4.7500E+02_JPRB,4.6664E+02_JPRB/)
+KBO( :,16,16) = (/&
+&6.0095E+02_JPRB,5.8332E+02_JPRB,5.7034E+02_JPRB,5.5793E+02_JPRB,5.4743E+02_JPRB/)
+KBO( :,17,16) = (/&
+&6.9984E+02_JPRB,6.8135E+02_JPRB,6.6501E+02_JPRB,6.5003E+02_JPRB,6.3773E+02_JPRB/)
+KBO( :,18,16) = (/&
+&8.1052E+02_JPRB,7.8978E+02_JPRB,7.6911E+02_JPRB,7.5277E+02_JPRB,7.3709E+02_JPRB/)
+KBO( :,19,16) = (/&
+&9.3185E+02_JPRB,9.0651E+02_JPRB,8.8287E+02_JPRB,8.6357E+02_JPRB,8.4262E+02_JPRB/)
+KBO( :,20,16) = (/&
+&1.0617E+03_JPRB,1.0323E+03_JPRB,1.0033E+03_JPRB,9.7715E+02_JPRB,9.5295E+02_JPRB/)
+KBO( :,21,16) = (/&
+&1.1955E+03_JPRB,1.1605E+03_JPRB,1.1266E+03_JPRB,1.0931E+03_JPRB,1.0626E+03_JPRB/)
+KBO( :,22,16) = (/&
+&1.3313E+03_JPRB,1.2888E+03_JPRB,1.2452E+03_JPRB,1.2039E+03_JPRB,1.1668E+03_JPRB/)
+KBO( :,23,16) = (/&
+&1.4677E+03_JPRB,1.4171E+03_JPRB,1.3647E+03_JPRB,1.3122E+03_JPRB,1.2693E+03_JPRB/)
+KBO( :,24,16) = (/&
+&1.6031E+03_JPRB,1.5431E+03_JPRB,1.4805E+03_JPRB,1.4214E+03_JPRB,1.3711E+03_JPRB/)
+KBO( :,25,16) = (/&
+&1.7446E+03_JPRB,1.6761E+03_JPRB,1.6075E+03_JPRB,1.5354E+03_JPRB,1.4755E+03_JPRB/)
+KBO( :,26,16) = (/&
+&1.8991E+03_JPRB,1.8163E+03_JPRB,1.7331E+03_JPRB,1.6466E+03_JPRB,1.5750E+03_JPRB/)
+KBO( :,27,16) = (/&
+&2.0473E+03_JPRB,1.9486E+03_JPRB,1.8508E+03_JPRB,1.7507E+03_JPRB,1.6645E+03_JPRB/)
+KBO( :,28,16) = (/&
+&2.1841E+03_JPRB,2.0672E+03_JPRB,1.9532E+03_JPRB,1.8416E+03_JPRB,1.7427E+03_JPRB/)
+KBO( :,29,16) = (/&
+&2.3013E+03_JPRB,2.1668E+03_JPRB,2.0380E+03_JPRB,1.9159E+03_JPRB,1.8061E+03_JPRB/)
+KBO( :,30,16) = (/&
+&2.3968E+03_JPRB,2.2468E+03_JPRB,2.1057E+03_JPRB,1.9742E+03_JPRB,1.8547E+03_JPRB/)
+KBO( :,31,16) = (/&
+&2.4698E+03_JPRB,2.3066E+03_JPRB,2.1555E+03_JPRB,2.0162E+03_JPRB,1.8899E+03_JPRB/)
+KBO( :,32,16) = (/&
+&2.5212E+03_JPRB,2.3480E+03_JPRB,2.1899E+03_JPRB,2.0439E+03_JPRB,1.9131E+03_JPRB/)
+KBO( :,33,16) = (/&
+&2.5535E+03_JPRB,2.3733E+03_JPRB,2.2102E+03_JPRB,2.0593E+03_JPRB,1.9261E+03_JPRB/)
+KBO( :,34,16) = (/&
+&2.5772E+03_JPRB,2.3915E+03_JPRB,2.2247E+03_JPRB,2.0705E+03_JPRB,1.9349E+03_JPRB/)
+KBO( :,35,16) = (/&
+&2.6073E+03_JPRB,2.4161E+03_JPRB,2.2452E+03_JPRB,2.0872E+03_JPRB,1.9493E+03_JPRB/)
+KBO( :,36,16) = (/&
+&2.6509E+03_JPRB,2.4529E+03_JPRB,2.2766E+03_JPRB,2.1138E+03_JPRB,1.9720E+03_JPRB/)
+KBO( :,37,16) = (/&
+&2.7188E+03_JPRB,2.5136E+03_JPRB,2.3285E+03_JPRB,2.1597E+03_JPRB,2.0114E+03_JPRB/)
+KBO( :,38,16) = (/&
+&2.7845E+03_JPRB,2.5721E+03_JPRB,2.3785E+03_JPRB,2.2030E+03_JPRB,2.0515E+03_JPRB/)
+KBO( :,39,16) = (/&
+&2.8472E+03_JPRB,2.6270E+03_JPRB,2.4254E+03_JPRB,2.2449E+03_JPRB,2.0875E+03_JPRB/)
+KBO( :,40,16) = (/&
+&2.9330E+03_JPRB,2.6993E+03_JPRB,2.4900E+03_JPRB,2.3030E+03_JPRB,2.1374E+03_JPRB/)
+KBO( :,41,16) = (/&
+&3.0218E+03_JPRB,2.7769E+03_JPRB,2.5568E+03_JPRB,2.3631E+03_JPRB,2.1888E+03_JPRB/)
+KBO( :,42,16) = (/&
+&3.1113E+03_JPRB,2.8546E+03_JPRB,2.6243E+03_JPRB,2.4236E+03_JPRB,2.2399E+03_JPRB/)
+KBO( :,43,16) = (/&
+&3.2191E+03_JPRB,2.9464E+03_JPRB,2.7051E+03_JPRB,2.4953E+03_JPRB,2.3016E+03_JPRB/)
+KBO( :,44,16) = (/&
+&3.3385E+03_JPRB,3.0469E+03_JPRB,2.7942E+03_JPRB,2.5737E+03_JPRB,2.3700E+03_JPRB/)
+KBO( :,45,16) = (/&
+&3.4626E+03_JPRB,3.1506E+03_JPRB,2.8863E+03_JPRB,2.6539E+03_JPRB,2.4394E+03_JPRB/)
+KBO( :,46,16) = (/&
+&3.6001E+03_JPRB,3.2642E+03_JPRB,2.9874E+03_JPRB,2.7413E+03_JPRB,2.5151E+03_JPRB/)
+KBO( :,47,16) = (/&
+&3.7610E+03_JPRB,3.3965E+03_JPRB,3.1046E+03_JPRB,2.8425E+03_JPRB,2.6031E+03_JPRB/)
+KBO( :,48,16) = (/&
+&3.9321E+03_JPRB,3.5361E+03_JPRB,3.2276E+03_JPRB,2.9476E+03_JPRB,2.6982E+03_JPRB/)
+KBO( :,49,16) = (/&
+&4.1176E+03_JPRB,3.6899E+03_JPRB,3.3583E+03_JPRB,3.0595E+03_JPRB,2.7974E+03_JPRB/)
+KBO( :,50,16) = (/&
+&4.3032E+03_JPRB,3.8456E+03_JPRB,3.4873E+03_JPRB,3.1701E+03_JPRB,2.8952E+03_JPRB/)
+KBO( :,51,16) = (/&
+&4.4935E+03_JPRB,4.0060E+03_JPRB,3.6203E+03_JPRB,3.2826E+03_JPRB,2.9949E+03_JPRB/)
+KBO( :,52,16) = (/&
+&4.6944E+03_JPRB,4.1760E+03_JPRB,3.7596E+03_JPRB,3.4020E+03_JPRB,3.0994E+03_JPRB/)
+KBO( :,53,16) = (/&
+&4.9137E+03_JPRB,4.3562E+03_JPRB,3.9079E+03_JPRB,3.5294E+03_JPRB,3.2093E+03_JPRB/)
+KBO( :,54,16) = (/&
+&5.1332E+03_JPRB,4.5465E+03_JPRB,4.0538E+03_JPRB,3.6533E+03_JPRB,3.3147E+03_JPRB/)
+KBO( :,55,16) = (/&
+&5.3615E+03_JPRB,4.7268E+03_JPRB,4.2040E+03_JPRB,3.7715E+03_JPRB,3.4204E+03_JPRB/)
+KBO( :,56,16) = (/&
+&5.6101E+03_JPRB,4.9206E+03_JPRB,4.3611E+03_JPRB,3.9031E+03_JPRB,3.5302E+03_JPRB/)
+KBO( :,57,16) = (/&
+&5.8786E+03_JPRB,5.1280E+03_JPRB,4.5273E+03_JPRB,4.0416E+03_JPRB,3.6469E+03_JPRB/)
+KBO( :,58,16) = (/&
+&6.1495E+03_JPRB,5.3426E+03_JPRB,4.6971E+03_JPRB,4.1821E+03_JPRB,3.7629E+03_JPRB/)
+KBO( :,59,16) = (/&
+&6.2646E+03_JPRB,5.4342E+03_JPRB,4.7694E+03_JPRB,4.2411E+03_JPRB,3.8114E+03_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB7_BB
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb8.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb8.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb8.F90	(revision 2160)
@@ -0,0 +1,2127 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB8
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO8 , ONLY : KAO     ,KBO       ,SELFREFO ,FRACREFAO ,&
+           &FRACREFBO, CFC12O  ,CFC22ADJO ,ABSCO2AO ,ABSCO2BO  ,&
+           &ABSN2OAO , ABSN2OBO
+USE YOERRTA8 , ONLY : H2OREF  ,N2OREF    ,O3REF
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFAO( :) = (/&
+!     From P = 1053.6 mb.
+    &0.15309700_JPRB,0.15450300_JPRB,0.14458799_JPRB,0.13098200_JPRB,&
+    &0.11817900_JPRB,0.09953490_JPRB,0.08132080_JPRB,0.06139960_JPRB,&
+    &0.04132010_JPRB,0.00446788_JPRB,0.00372533_JPRB,0.00294053_JPRB,&
+    &0.00211371_JPRB,0.00128122_JPRB,0.00048050_JPRB,0.00006759_JPRB/)
+
+FRACREFBO( :) = (/&
+!     From P = 28.9 mb.
+    &0.14105400_JPRB,0.14728899_JPRB,0.14264800_JPRB,0.13331699_JPRB,&
+    &0.12034100_JPRB,0.10467000_JPRB,0.08574980_JPRB,0.06469390_JPRB,&
+    &0.04394640_JPRB,0.00481284_JPRB,0.00397375_JPRB,0.00315006_JPRB,&
+    &0.00228636_JPRB,0.00144606_JPRB,0.00054604_JPRB,0.00007697_JPRB/)
+
+CFC12O( :) = (/&
+     &85.4027_JPRB, 89.4696_JPRB, 74.0959_JPRB, 67.7480_JPRB,&
+     &61.2444_JPRB, 59.9073_JPRB, 60.8296_JPRB, 63.0998_JPRB,&
+     &59.6110_JPRB, 64.0735_JPRB, 57.2622_JPRB, 58.9721_JPRB,&
+     &43.5505_JPRB, 26.1192_JPRB, 32.7023_JPRB, 32.8667_JPRB/)
+
+!     Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1 
+!     and 1290-1335 cm-1 bands.
+CFC22ADJO( :) = (/&
+     &135.335_JPRB, 89.6642_JPRB, 76.2375_JPRB, 65.9748_JPRB,&
+     &63.1164_JPRB, 60.2935_JPRB, 64.0299_JPRB, 75.4264_JPRB,&
+     &51.3018_JPRB, 7.07911_JPRB, 5.86928_JPRB, 0.398693_JPRB,&
+     &2.82885_JPRB, 9.12751_JPRB, 6.28271_JPRB, _ZERO_/)
+
+ABSCO2AO( :) = (/&
+     &1.11233E-05_JPRB, 3.92400E-05_JPRB, 6.62059E-05_JPRB, 8.51687E-05_JPRB,&
+     &7.79035E-05_JPRB, 1.34058E-04_JPRB, 2.82553E-04_JPRB, 5.41741E-04_JPRB,&
+     &1.47029E-05_JPRB, 2.34982E-05_JPRB, 6.91094E-08_JPRB, 8.48917E-08_JPRB,&
+     &6.58783E-08_JPRB, 4.64849E-08_JPRB, 3.62742E-08_JPRB, 3.62742E-08_JPRB/)
+
+ABSCO2BO( :) = (/&
+     &4.10977E-09_JPRB, 5.65200E-08_JPRB, 1.70800E-07_JPRB, 4.16840E-07_JPRB,&
+     &9.53684E-07_JPRB, 2.36468E-06_JPRB, 7.29502E-06_JPRB, 4.93883E-05_JPRB, &
+     &5.10440E-04_JPRB, 9.75248E-04_JPRB, 1.36495E-03_JPRB, 2.40451E-03_JPRB,&
+     &4.50277E-03_JPRB, 2.24486E-02_JPRB, 4.06756E-02_JPRB, 2.17447E-10_JPRB/)
+
+ABSN2OAO( :) = (/&
+     &1.28527E-02_JPRB,5.28651E-02_JPRB,1.01668E-01_JPRB,1.57224E-01_JPRB,&
+     &2.76947E-01_JPRB,4.93048E-01_JPRB,6.71387E-01_JPRB,3.48809E-01_JPRB,&
+     &4.19840E-01_JPRB,3.13558E-01_JPRB,2.44432E-01_JPRB,2.05108E-01_JPRB,&
+     &1.21423E-01_JPRB,1.22158E-01_JPRB,1.49702E-01_JPRB,1.47799E-01_JPRB/)
+
+ABSN2OBO( : ) = (/&
+     &3.15864E-03_JPRB,4.87347E-03_JPRB,8.63235E-03_JPRB,2.16053E-02_JPRB,&
+     &3.63699E-02_JPRB,7.89149E-02_JPRB,3.53807E-01_JPRB,1.27140E-00_JPRB,&
+     &2.31464E-00_JPRB,7.75834E-02_JPRB,5.15063E-02_JPRB,4.07059E-02_JPRB,&
+     &5.91947E-02_JPRB,5.83546E-02_JPRB,3.12716E-01_JPRB,1.47456E-01_JPRB/)
+
+H2OREF( : ) = (/&
+     &1.87599E-02_JPRB,1.22233E-02_JPRB,5.89086E-03_JPRB,2.76753E-03_JPRB,1.40651E-03_JPRB, &
+     &7.59698E-04_JPRB,3.88758E-04_JPRB,1.65422E-04_JPRB,3.71895E-05_JPRB,7.47648E-06_JPRB, &
+     &4.30818E-06_JPRB,3.33194E-06_JPRB,3.20393E-06_JPRB,3.16186E-06_JPRB,3.25235E-06_JPRB, &
+     &3.42258E-06_JPRB,3.62884E-06_JPRB,3.91482E-06_JPRB,4.14875E-06_JPRB,4.30810E-06_JPRB,&
+     &4.44204E-06_JPRB,4.57783E-06_JPRB,4.70865E-06_JPRB,4.79432E-06_JPRB,4.86971E-06_JPRB, &
+     &4.92603E-06_JPRB,4.96688E-06_JPRB,4.99628E-06_JPRB,5.05266E-06_JPRB,5.12658E-06_JPRB, &
+     &5.25028E-06_JPRB,5.35708E-06_JPRB,5.45085E-06_JPRB,5.48304E-06_JPRB,5.50000E-06_JPRB, &
+     &5.50000E-06_JPRB,5.45359E-06_JPRB,5.40468E-06_JPRB,5.35576E-06_JPRB,5.25327E-06_JPRB,&
+     &5.14362E-06_JPRB,5.03396E-06_JPRB,4.87662E-06_JPRB,4.69787E-06_JPRB,4.51911E-06_JPRB, &
+     &4.33600E-06_JPRB,4.14416E-06_JPRB,3.95232E-06_JPRB,3.76048E-06_JPRB,3.57217E-06_JPRB, &
+     &3.38549E-06_JPRB,3.19881E-06_JPRB,3.01212E-06_JPRB,2.82621E-06_JPRB,2.64068E-06_JPRB, &
+     &2.45515E-06_JPRB,2.26962E-06_JPRB,2.08659E-06_JPRB,1.93029E-06_JPRB/)
+
+N2OREF( : ) = (/&
+     &3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
+     &3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
+     &2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB,2.09547E-07_JPRB,1.71945E-07_JPRB,&
+     &1.37491E-07_JPRB,1.13319E-07_JPRB,1.00354E-07_JPRB,9.12812E-08_JPRB,8.54633E-08_JPRB,&
+     &8.03631E-08_JPRB,7.33718E-08_JPRB,6.59754E-08_JPRB,5.60386E-08_JPRB,4.70901E-08_JPRB,&
+     &3.99774E-08_JPRB,3.29786E-08_JPRB,2.60642E-08_JPRB,2.10663E-08_JPRB,1.65918E-08_JPRB,&
+     &1.30167E-08_JPRB,1.00900E-08_JPRB,7.62490E-09_JPRB,6.11592E-09_JPRB,4.66725E-09_JPRB,&
+     &3.28574E-09_JPRB,2.84838E-09_JPRB,2.46198E-09_JPRB,2.07557E-09_JPRB,1.85507E-09_JPRB,&
+     &1.65675E-09_JPRB,1.45843E-09_JPRB,1.31948E-09_JPRB,1.20716E-09_JPRB,1.09485E-09_JPRB,&
+     &9.97803E-10_JPRB,9.31260E-10_JPRB,8.64721E-10_JPRB,7.98181E-10_JPRB,7.51380E-10_JPRB,&
+     &7.13670E-10_JPRB,6.75960E-10_JPRB,6.38250E-10_JPRB,6.09811E-10_JPRB,5.85998E-10_JPRB,&
+     &5.62185E-10_JPRB,5.38371E-10_JPRB,5.15183E-10_JPRB,4.98660E-10_JPRB/)
+
+O3REF( : ) = (/&
+     &3.01700E-08_JPRB,3.47254E-08_JPRB,4.24769E-08_JPRB,5.27592E-08_JPRB,6.69439E-08_JPRB,&
+     &8.71295E-08_JPRB,1.13911E-07_JPRB,1.56771E-07_JPRB,2.17878E-07_JPRB,3.24430E-07_JPRB,&
+     &4.65942E-07_JPRB,5.68057E-07_JPRB,6.96065E-07_JPRB,1.11863E-06_JPRB,1.76175E-06_JPRB,&
+     &2.32689E-06_JPRB,2.95769E-06_JPRB,3.65930E-06_JPRB,4.59503E-06_JPRB,5.31891E-06_JPRB,&
+     &5.96179E-06_JPRB,6.51133E-06_JPRB,7.06350E-06_JPRB,7.69169E-06_JPRB,8.25771E-06_JPRB,&
+     &8.70824E-06_JPRB,8.83245E-06_JPRB,8.71486E-06_JPRB,8.09434E-06_JPRB,7.33071E-06_JPRB,&
+     &6.31014E-06_JPRB,5.36717E-06_JPRB,4.48289E-06_JPRB,3.83913E-06_JPRB,3.28270E-06_JPRB,&
+     &2.82351E-06_JPRB,2.49061E-06_JPRB,2.16453E-06_JPRB,1.83845E-06_JPRB,1.66182E-06_JPRB,&
+     &1.50517E-06_JPRB,1.34852E-06_JPRB,1.19718E-06_JPRB,1.04822E-06_JPRB,8.99264E-07_JPRB,&
+     &7.63432E-07_JPRB,6.53806E-07_JPRB,5.44186E-07_JPRB,4.34564E-07_JPRB,3.64210E-07_JPRB,&
+     &3.11938E-07_JPRB,2.59667E-07_JPRB,2.07395E-07_JPRB,1.91456E-07_JPRB,1.93639E-07_JPRB,&
+     &1.95821E-07_JPRB,1.98004E-07_JPRB,2.06442E-07_JPRB,2.81546E-07_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+!     The array KA contains absorption coef5s at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the cooresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The second index, JP, runs from 1 to 13 and refers
+!     to the corresponding pressure level in PREF (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which "g-channel" the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+&2.1306E-05_JPRB,2.1950E-05_JPRB,2.2884E-05_JPRB,2.6732E-05_JPRB,3.2377E-05_JPRB/)
+KAO( :, 2, 1) = (/&
+&1.6906E-05_JPRB,1.6458E-05_JPRB,1.8409E-05_JPRB,2.2144E-05_JPRB,2.7164E-05_JPRB/)
+KAO( :, 3, 1) = (/&
+&1.2302E-05_JPRB,1.3298E-05_JPRB,1.6211E-05_JPRB,2.0006E-05_JPRB,2.4357E-05_JPRB/)
+KAO( :, 4, 1) = (/&
+&1.0886E-05_JPRB,1.3249E-05_JPRB,1.6382E-05_JPRB,2.0127E-05_JPRB,2.4322E-05_JPRB/)
+KAO( :, 5, 1) = (/&
+&1.3888E-05_JPRB,1.6517E-05_JPRB,1.9596E-05_JPRB,2.3121E-05_JPRB,2.7167E-05_JPRB/)
+KAO( :, 6, 1) = (/&
+&2.0087E-05_JPRB,2.2948E-05_JPRB,2.6312E-05_JPRB,3.0073E-05_JPRB,3.4185E-05_JPRB/)
+KAO( :, 7, 1) = (/&
+&3.4572E-05_JPRB,3.7732E-05_JPRB,4.1567E-05_JPRB,4.5943E-05_JPRB,5.0800E-05_JPRB/)
+KAO( :, 1, 2) = (/&
+&2.9087E-05_JPRB,2.7497E-05_JPRB,3.3334E-05_JPRB,4.2723E-05_JPRB,5.3596E-05_JPRB/)
+KAO( :, 2, 2) = (/&
+&1.9679E-05_JPRB,2.2356E-05_JPRB,2.8322E-05_JPRB,3.6379E-05_JPRB,4.5664E-05_JPRB/)
+KAO( :, 3, 2) = (/&
+&1.6538E-05_JPRB,2.0860E-05_JPRB,2.6606E-05_JPRB,3.3787E-05_JPRB,4.2303E-05_JPRB/)
+KAO( :, 4, 2) = (/&
+&1.8682E-05_JPRB,2.3553E-05_JPRB,2.9503E-05_JPRB,3.6225E-05_JPRB,4.3839E-05_JPRB/)
+KAO( :, 5, 2) = (/&
+&2.4894E-05_JPRB,3.0126E-05_JPRB,3.6642E-05_JPRB,4.4225E-05_JPRB,5.2245E-05_JPRB/)
+KAO( :, 6, 2) = (/&
+&3.8317E-05_JPRB,4.4010E-05_JPRB,5.1169E-05_JPRB,5.9798E-05_JPRB,6.8990E-05_JPRB/)
+KAO( :, 7, 2) = (/&
+&6.8186E-05_JPRB,7.5558E-05_JPRB,8.3877E-05_JPRB,9.3681E-05_JPRB,1.0480E-04_JPRB/)
+KAO( :, 1, 3) = (/&
+&3.2064E-05_JPRB,3.8954E-05_JPRB,5.4094E-05_JPRB,6.8453E-05_JPRB,8.4647E-05_JPRB/)
+KAO( :, 2, 3) = (/&
+&2.6037E-05_JPRB,3.4049E-05_JPRB,4.5537E-05_JPRB,5.7651E-05_JPRB,7.1488E-05_JPRB/)
+KAO( :, 3, 3) = (/&
+&2.4129E-05_JPRB,3.2489E-05_JPRB,4.2214E-05_JPRB,5.3481E-05_JPRB,6.6486E-05_JPRB/)
+KAO( :, 4, 3) = (/&
+&2.8484E-05_JPRB,3.6015E-05_JPRB,4.5013E-05_JPRB,5.6076E-05_JPRB,6.9168E-05_JPRB/)
+KAO( :, 5, 3) = (/&
+&3.7982E-05_JPRB,4.5941E-05_JPRB,5.5480E-05_JPRB,6.6761E-05_JPRB,8.0178E-05_JPRB/)
+KAO( :, 6, 3) = (/&
+&5.8486E-05_JPRB,6.7090E-05_JPRB,7.7118E-05_JPRB,8.8876E-05_JPRB,1.0336E-04_JPRB/)
+KAO( :, 7, 3) = (/&
+&1.0488E-04_JPRB,1.1540E-04_JPRB,1.2822E-04_JPRB,1.4297E-04_JPRB,1.5988E-04_JPRB/)
+KAO( :, 1, 4) = (/&
+&4.3432E-05_JPRB,6.9197E-05_JPRB,8.9433E-05_JPRB,1.1259E-04_JPRB,1.3904E-04_JPRB/)
+KAO( :, 2, 4) = (/&
+&4.1381E-05_JPRB,5.9002E-05_JPRB,7.4659E-05_JPRB,9.2971E-05_JPRB,1.1449E-04_JPRB/)
+KAO( :, 3, 4) = (/&
+&4.1382E-05_JPRB,5.3805E-05_JPRB,6.7661E-05_JPRB,8.4186E-05_JPRB,1.0415E-04_JPRB/)
+KAO( :, 4, 4) = (/&
+&4.4469E-05_JPRB,5.5300E-05_JPRB,6.8920E-05_JPRB,8.5387E-05_JPRB,1.0542E-04_JPRB/)
+KAO( :, 5, 4) = (/&
+&5.7483E-05_JPRB,6.8364E-05_JPRB,8.1508E-05_JPRB,9.7560E-05_JPRB,1.1744E-04_JPRB/)
+KAO( :, 6, 4) = (/&
+&8.5034E-05_JPRB,9.7144E-05_JPRB,1.1137E-04_JPRB,1.2836E-04_JPRB,1.4879E-04_JPRB/)
+KAO( :, 7, 4) = (/&
+&1.4995E-04_JPRB,1.6384E-04_JPRB,1.8060E-04_JPRB,2.0120E-04_JPRB,2.2497E-04_JPRB/)
+KAO( :, 1, 5) = (/&
+&8.9308E-05_JPRB,1.2026E-04_JPRB,1.5456E-04_JPRB,1.9463E-04_JPRB,2.4183E-04_JPRB/)
+KAO( :, 2, 5) = (/&
+&7.5125E-05_JPRB,9.9141E-05_JPRB,1.2691E-04_JPRB,1.6010E-04_JPRB,1.9928E-04_JPRB/)
+KAO( :, 3, 5) = (/&
+&7.0124E-05_JPRB,8.9385E-05_JPRB,1.1201E-04_JPRB,1.3854E-04_JPRB,1.6993E-04_JPRB/)
+KAO( :, 4, 5) = (/&
+&7.3552E-05_JPRB,9.0337E-05_JPRB,1.1055E-04_JPRB,1.3609E-04_JPRB,1.6764E-04_JPRB/)
+KAO( :, 5, 5) = (/&
+&8.7943E-05_JPRB,1.0388E-04_JPRB,1.2401E-04_JPRB,1.4993E-04_JPRB,1.8142E-04_JPRB/)
+KAO( :, 6, 5) = (/&
+&1.2136E-04_JPRB,1.3842E-04_JPRB,1.6040E-04_JPRB,1.8635E-04_JPRB,2.1779E-04_JPRB/)
+KAO( :, 7, 5) = (/&
+&2.0763E-04_JPRB,2.2758E-04_JPRB,2.5254E-04_JPRB,2.8218E-04_JPRB,3.1966E-04_JPRB/)
+KAO( :, 1, 6) = (/&
+&1.6837E-04_JPRB,2.2104E-04_JPRB,2.8135E-04_JPRB,3.5251E-04_JPRB,4.3572E-04_JPRB/)
+KAO( :, 2, 6) = (/&
+&1.3574E-04_JPRB,1.7723E-04_JPRB,2.2754E-04_JPRB,2.8744E-04_JPRB,3.5879E-04_JPRB/)
+KAO( :, 3, 6) = (/&
+&1.2293E-04_JPRB,1.5476E-04_JPRB,1.9352E-04_JPRB,2.4145E-04_JPRB,2.9987E-04_JPRB/)
+KAO( :, 4, 6) = (/&
+&1.2596E-04_JPRB,1.5619E-04_JPRB,1.9248E-04_JPRB,2.3477E-04_JPRB,2.8394E-04_JPRB/)
+KAO( :, 5, 6) = (/&
+&1.4080E-04_JPRB,1.6980E-04_JPRB,2.0518E-04_JPRB,2.4743E-04_JPRB,2.9907E-04_JPRB/)
+KAO( :, 6, 6) = (/&
+&1.8164E-04_JPRB,2.0870E-04_JPRB,2.4256E-04_JPRB,2.8705E-04_JPRB,3.4263E-04_JPRB/)
+KAO( :, 7, 6) = (/&
+&2.9186E-04_JPRB,3.2585E-04_JPRB,3.6846E-04_JPRB,4.2036E-04_JPRB,4.8155E-04_JPRB/)
+KAO( :, 1, 7) = (/&
+&3.8706E-04_JPRB,4.9892E-04_JPRB,6.2866E-04_JPRB,7.7583E-04_JPRB,9.4184E-04_JPRB/)
+KAO( :, 2, 7) = (/&
+&2.9924E-04_JPRB,3.8940E-04_JPRB,4.9426E-04_JPRB,6.1428E-04_JPRB,7.5278E-04_JPRB/)
+KAO( :, 3, 7) = (/&
+&2.3352E-04_JPRB,3.0489E-04_JPRB,3.9204E-04_JPRB,4.9500E-04_JPRB,6.1630E-04_JPRB/)
+KAO( :, 4, 7) = (/&
+&2.3587E-04_JPRB,2.9262E-04_JPRB,3.5911E-04_JPRB,4.3910E-04_JPRB,5.3846E-04_JPRB/)
+KAO( :, 5, 7) = (/&
+&2.6327E-04_JPRB,3.2005E-04_JPRB,3.8792E-04_JPRB,4.6619E-04_JPRB,5.5730E-04_JPRB/)
+KAO( :, 6, 7) = (/&
+&3.1398E-04_JPRB,3.7118E-04_JPRB,4.4079E-04_JPRB,5.2291E-04_JPRB,6.1919E-04_JPRB/)
+KAO( :, 7, 7) = (/&
+&4.6137E-04_JPRB,5.1993E-04_JPRB,5.9097E-04_JPRB,6.8096E-04_JPRB,7.9254E-04_JPRB/)
+KAO( :, 1, 8) = (/&
+&1.1958E-03_JPRB,1.5395E-03_JPRB,1.9263E-03_JPRB,2.3597E-03_JPRB,2.8416E-03_JPRB/)
+KAO( :, 2, 8) = (/&
+&9.2007E-04_JPRB,1.1952E-03_JPRB,1.5105E-03_JPRB,1.8694E-03_JPRB,2.2724E-03_JPRB/)
+KAO( :, 3, 8) = (/&
+&6.7202E-04_JPRB,8.8335E-04_JPRB,1.1326E-03_JPRB,1.4229E-03_JPRB,1.7568E-03_JPRB/)
+KAO( :, 4, 8) = (/&
+&5.3231E-04_JPRB,6.9102E-04_JPRB,8.9625E-04_JPRB,1.1508E-03_JPRB,1.4534E-03_JPRB/)
+KAO( :, 5, 8) = (/&
+&5.8927E-04_JPRB,7.1310E-04_JPRB,8.6254E-04_JPRB,1.0581E-03_JPRB,1.3073E-03_JPRB/)
+KAO( :, 6, 8) = (/&
+&7.1594E-04_JPRB,8.4919E-04_JPRB,1.0061E-03_JPRB,1.1903E-03_JPRB,1.4091E-03_JPRB/)
+KAO( :, 7, 8) = (/&
+&9.6332E-04_JPRB,1.1098E-03_JPRB,1.2830E-03_JPRB,1.4872E-03_JPRB,1.7311E-03_JPRB/)
+KAO( :, 1, 9) = (/&
+&4.1727E-03_JPRB,5.4973E-03_JPRB,7.0377E-03_JPRB,8.7943E-03_JPRB,1.0731E-02_JPRB/)
+KAO( :, 2, 9) = (/&
+&3.6273E-03_JPRB,4.8260E-03_JPRB,6.2243E-03_JPRB,7.8057E-03_JPRB,9.5531E-03_JPRB/)
+KAO( :, 3, 9) = (/&
+&2.9023E-03_JPRB,3.9253E-03_JPRB,5.1247E-03_JPRB,6.4834E-03_JPRB,7.9956E-03_JPRB/)
+KAO( :, 4, 9) = (/&
+&2.2487E-03_JPRB,3.0840E-03_JPRB,4.0791E-03_JPRB,5.2274E-03_JPRB,6.5148E-03_JPRB/)
+KAO( :, 5, 9) = (/&
+&1.7798E-03_JPRB,2.4327E-03_JPRB,3.2625E-03_JPRB,4.2482E-03_JPRB,5.3864E-03_JPRB/)
+KAO( :, 6, 9) = (/&
+&1.8001E-03_JPRB,2.2379E-03_JPRB,2.8537E-03_JPRB,3.6632E-03_JPRB,4.6821E-03_JPRB/)
+KAO( :, 7, 9) = (/&
+&2.5147E-03_JPRB,2.9224E-03_JPRB,3.4442E-03_JPRB,4.0760E-03_JPRB,4.9201E-03_JPRB/)
+KAO( :, 1,10) = (/&
+&8.6270E-03_JPRB,1.1144E-02_JPRB,1.4435E-02_JPRB,1.8416E-02_JPRB,2.3138E-02_JPRB/)
+KAO( :, 2,10) = (/&
+&8.0326E-03_JPRB,1.0542E-02_JPRB,1.3830E-02_JPRB,1.7772E-02_JPRB,2.2459E-02_JPRB/)
+KAO( :, 3,10) = (/&
+&6.9631E-03_JPRB,9.2657E-03_JPRB,1.2368E-02_JPRB,1.6195E-02_JPRB,2.0590E-02_JPRB/)
+KAO( :, 4,10) = (/&
+&5.6928E-03_JPRB,7.8298E-03_JPRB,1.0719E-02_JPRB,1.4129E-02_JPRB,1.8068E-02_JPRB/)
+KAO( :, 5,10) = (/&
+&4.6297E-03_JPRB,6.4732E-03_JPRB,8.9852E-03_JPRB,1.2076E-02_JPRB,1.5694E-02_JPRB/)
+KAO( :, 6,10) = (/&
+&3.6660E-03_JPRB,5.2377E-03_JPRB,7.3525E-03_JPRB,9.9709E-03_JPRB,1.3092E-02_JPRB/)
+KAO( :, 7,10) = (/&
+&4.5886E-03_JPRB,5.1723E-03_JPRB,6.2981E-03_JPRB,8.7864E-03_JPRB,1.2005E-02_JPRB/)
+KAO( :, 1,11) = (/&
+&1.1588E-02_JPRB,1.5525E-02_JPRB,1.9979E-02_JPRB,2.5226E-02_JPRB,3.1634E-02_JPRB/)
+KAO( :, 2,11) = (/&
+&1.0684E-02_JPRB,1.4204E-02_JPRB,1.8270E-02_JPRB,2.3355E-02_JPRB,2.9653E-02_JPRB/)
+KAO( :, 3,11) = (/&
+&9.3411E-03_JPRB,1.2473E-02_JPRB,1.6164E-02_JPRB,2.0880E-02_JPRB,2.6874E-02_JPRB/)
+KAO( :, 4,11) = (/&
+&7.9944E-03_JPRB,1.0851E-02_JPRB,1.4275E-02_JPRB,1.8869E-02_JPRB,2.4580E-02_JPRB/)
+KAO( :, 5,11) = (/&
+&6.6337E-03_JPRB,9.2604E-03_JPRB,1.2443E-02_JPRB,1.6670E-02_JPRB,2.2008E-02_JPRB/)
+KAO( :, 6,11) = (/&
+&5.3432E-03_JPRB,7.6067E-03_JPRB,1.0484E-02_JPRB,1.4403E-02_JPRB,1.9210E-02_JPRB/)
+KAO( :, 7,11) = (/&
+&5.2399E-03_JPRB,6.3294E-03_JPRB,8.7446E-03_JPRB,1.2290E-02_JPRB,1.7005E-02_JPRB/)
+KAO( :, 1,12) = (/&
+&1.8590E-02_JPRB,2.3597E-02_JPRB,2.9609E-02_JPRB,3.6637E-02_JPRB,4.4785E-02_JPRB/)
+KAO( :, 2,12) = (/&
+&1.5975E-02_JPRB,2.1048E-02_JPRB,2.7310E-02_JPRB,3.4824E-02_JPRB,4.3138E-02_JPRB/)
+KAO( :, 3,12) = (/&
+&1.3265E-02_JPRB,1.8239E-02_JPRB,2.4452E-02_JPRB,3.1517E-02_JPRB,3.9669E-02_JPRB/)
+KAO( :, 4,12) = (/&
+&1.1138E-02_JPRB,1.5596E-02_JPRB,2.1071E-02_JPRB,2.7401E-02_JPRB,3.4980E-02_JPRB/)
+KAO( :, 5,12) = (/&
+&9.5074E-03_JPRB,1.3466E-02_JPRB,1.8276E-02_JPRB,2.3939E-02_JPRB,3.0805E-02_JPRB/)
+KAO( :, 6,12) = (/&
+&7.9557E-03_JPRB,1.1512E-02_JPRB,1.5826E-02_JPRB,2.0932E-02_JPRB,2.7410E-02_JPRB/)
+KAO( :, 7,12) = (/&
+&6.5226E-03_JPRB,9.6301E-03_JPRB,1.3559E-02_JPRB,1.8314E-02_JPRB,2.4403E-02_JPRB/)
+KAO( :, 1,13) = (/&
+&3.3867E-02_JPRB,4.3721E-02_JPRB,5.4904E-02_JPRB,6.6992E-02_JPRB,7.9770E-02_JPRB/)
+KAO( :, 2,13) = (/&
+&3.1901E-02_JPRB,4.1423E-02_JPRB,5.1954E-02_JPRB,6.3307E-02_JPRB,7.6026E-02_JPRB/)
+KAO( :, 3,13) = (/&
+&2.7060E-02_JPRB,3.5456E-02_JPRB,4.4891E-02_JPRB,5.5833E-02_JPRB,6.8298E-02_JPRB/)
+KAO( :, 4,13) = (/&
+&2.1596E-02_JPRB,2.8962E-02_JPRB,3.7686E-02_JPRB,4.8052E-02_JPRB,6.0217E-02_JPRB/)
+KAO( :, 5,13) = (/&
+&1.6874E-02_JPRB,2.3280E-02_JPRB,3.1365E-02_JPRB,4.1278E-02_JPRB,5.3126E-02_JPRB/)
+KAO( :, 6,13) = (/&
+&1.3063E-02_JPRB,1.8582E-02_JPRB,2.5843E-02_JPRB,3.5011E-02_JPRB,4.6230E-02_JPRB/)
+KAO( :, 7,13) = (/&
+&1.0425E-02_JPRB,1.5209E-02_JPRB,2.1684E-02_JPRB,3.0071E-02_JPRB,4.0394E-02_JPRB/)
+KAO( :, 1,14) = (/&
+&6.7724E-02_JPRB,8.4655E-02_JPRB,1.0308E-01_JPRB,1.2311E-01_JPRB,1.4477E-01_JPRB/)
+KAO( :, 2,14) = (/&
+&6.5011E-02_JPRB,8.2552E-02_JPRB,1.0230E-01_JPRB,1.2414E-01_JPRB,1.4787E-01_JPRB/)
+KAO( :, 3,14) = (/&
+&5.8480E-02_JPRB,7.6209E-02_JPRB,9.6519E-02_JPRB,1.1921E-01_JPRB,1.4411E-01_JPRB/)
+KAO( :, 4,14) = (/&
+&5.0538E-02_JPRB,6.7706E-02_JPRB,8.7706E-02_JPRB,1.1039E-01_JPRB,1.3557E-01_JPRB/)
+KAO( :, 5,14) = (/&
+&4.2513E-02_JPRB,5.8604E-02_JPRB,7.7718E-02_JPRB,9.9786E-02_JPRB,1.2457E-01_JPRB/)
+KAO( :, 6,14) = (/&
+&3.4330E-02_JPRB,4.8876E-02_JPRB,6.6577E-02_JPRB,8.7405E-02_JPRB,1.1118E-01_JPRB/)
+KAO( :, 7,14) = (/&
+&2.6895E-02_JPRB,3.9673E-02_JPRB,5.5652E-02_JPRB,7.4888E-02_JPRB,9.7567E-02_JPRB/)
+KAO( :, 1,15) = (/&
+&1.0185E-01_JPRB,1.3012E-01_JPRB,1.6176E-01_JPRB,1.9624E-01_JPRB,2.3332E-01_JPRB/)
+KAO( :, 2,15) = (/&
+&1.1155E-01_JPRB,1.4413E-01_JPRB,1.8079E-01_JPRB,2.2100E-01_JPRB,2.6440E-01_JPRB/)
+KAO( :, 3,15) = (/&
+&1.1383E-01_JPRB,1.4981E-01_JPRB,1.9079E-01_JPRB,2.3617E-01_JPRB,2.8542E-01_JPRB/)
+KAO( :, 4,15) = (/&
+&1.1063E-01_JPRB,1.4879E-01_JPRB,1.9288E-01_JPRB,2.4229E-01_JPRB,2.9650E-01_JPRB/)
+KAO( :, 5,15) = (/&
+&1.0438E-01_JPRB,1.4376E-01_JPRB,1.8985E-01_JPRB,2.4227E-01_JPRB,3.0021E-01_JPRB/)
+KAO( :, 6,15) = (/&
+&9.4497E-02_JPRB,1.3374E-01_JPRB,1.8056E-01_JPRB,2.3453E-01_JPRB,2.9486E-01_JPRB/)
+KAO( :, 7,15) = (/&
+&8.2957E-02_JPRB,1.2094E-01_JPRB,1.6723E-01_JPRB,2.2140E-01_JPRB,2.8274E-01_JPRB/)
+KAO( :, 1,16) = (/&
+&1.0659E-01_JPRB,1.3667E-01_JPRB,1.7042E-01_JPRB,2.0748E-01_JPRB,2.4752E-01_JPRB/)
+KAO( :, 2,16) = (/&
+&1.1936E-01_JPRB,1.5500E-01_JPRB,1.9536E-01_JPRB,2.4009E-01_JPRB,2.8872E-01_JPRB/)
+KAO( :, 3,16) = (/&
+&1.2557E-01_JPRB,1.6646E-01_JPRB,2.1346E-01_JPRB,2.6622E-01_JPRB,3.2416E-01_JPRB/)
+KAO( :, 4,16) = (/&
+&1.2678E-01_JPRB,1.7224E-01_JPRB,2.2548E-01_JPRB,2.8607E-01_JPRB,3.5364E-01_JPRB/)
+KAO( :, 5,16) = (/&
+&1.2544E-01_JPRB,1.7513E-01_JPRB,2.3441E-01_JPRB,3.0312E-01_JPRB,3.8068E-01_JPRB/)
+KAO( :, 6,16) = (/&
+&1.2054E-01_JPRB,1.7357E-01_JPRB,2.3849E-01_JPRB,3.1499E-01_JPRB,4.0276E-01_JPRB/)
+KAO( :, 7,16) = (/&
+&1.1373E-01_JPRB,1.6957E-01_JPRB,2.3956E-01_JPRB,3.2393E-01_JPRB,4.2231E-01_JPRB/)
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 7, 1) = (/&
+&1.5344E-01_JPRB,1.5367E-01_JPRB,1.5941E-01_JPRB,1.6925E-01_JPRB,1.8219E-01_JPRB/)
+KBO( :, 8, 1) = (/&
+&8.8789E-02_JPRB,9.2028E-02_JPRB,9.6207E-02_JPRB,1.0152E-01_JPRB,1.0774E-01_JPRB/)
+KBO( :, 9, 1) = (/&
+&6.1726E-02_JPRB,6.3618E-02_JPRB,6.5404E-02_JPRB,6.7402E-02_JPRB,6.9517E-02_JPRB/)
+KBO( :,10, 1) = (/&
+&4.5887E-02_JPRB,4.6735E-02_JPRB,4.7381E-02_JPRB,4.7984E-02_JPRB,4.8665E-02_JPRB/)
+KBO( :,11, 1) = (/&
+&3.4925E-02_JPRB,3.5331E-02_JPRB,3.5614E-02_JPRB,3.5819E-02_JPRB,3.6029E-02_JPRB/)
+KBO( :,12, 1) = (/&
+&2.7314E-02_JPRB,2.7563E-02_JPRB,2.7715E-02_JPRB,2.7787E-02_JPRB,2.7858E-02_JPRB/)
+KBO( :,13, 1) = (/&
+&2.1065E-02_JPRB,2.1225E-02_JPRB,2.1307E-02_JPRB,2.1318E-02_JPRB,2.1310E-02_JPRB/)
+KBO( :,14, 1) = (/&
+&1.4917E-02_JPRB,1.5002E-02_JPRB,1.5042E-02_JPRB,1.5027E-02_JPRB,1.4972E-02_JPRB/)
+KBO( :,15, 1) = (/&
+&1.0550E-02_JPRB,1.0630E-02_JPRB,1.0661E-02_JPRB,1.0642E-02_JPRB,1.0580E-02_JPRB/)
+KBO( :,16, 1) = (/&
+&7.8366E-03_JPRB,7.9085E-03_JPRB,7.9349E-03_JPRB,7.9229E-03_JPRB,7.8769E-03_JPRB/)
+KBO( :,17, 1) = (/&
+&5.9572E-03_JPRB,6.0203E-03_JPRB,6.0443E-03_JPRB,6.0374E-03_JPRB,6.0008E-03_JPRB/)
+KBO( :,18, 1) = (/&
+&4.6349E-03_JPRB,4.6854E-03_JPRB,4.7034E-03_JPRB,4.6981E-03_JPRB,4.6669E-03_JPRB/)
+KBO( :,19, 1) = (/&
+&3.6293E-03_JPRB,3.6694E-03_JPRB,3.6836E-03_JPRB,3.6780E-03_JPRB,3.6512E-03_JPRB/)
+KBO( :,20, 1) = (/&
+&2.8991E-03_JPRB,2.9305E-03_JPRB,2.9407E-03_JPRB,2.9341E-03_JPRB,2.9107E-03_JPRB/)
+KBO( :,21, 1) = (/&
+&2.3312E-03_JPRB,2.3555E-03_JPRB,2.3622E-03_JPRB,2.3550E-03_JPRB,2.3344E-03_JPRB/)
+KBO( :,22, 1) = (/&
+&1.8792E-03_JPRB,1.8968E-03_JPRB,1.9000E-03_JPRB,1.8924E-03_JPRB,1.8741E-03_JPRB/)
+KBO( :,23, 1) = (/&
+&1.5156E-03_JPRB,1.5280E-03_JPRB,1.5291E-03_JPRB,1.5212E-03_JPRB,1.5056E-03_JPRB/)
+KBO( :,24, 1) = (/&
+&1.2179E-03_JPRB,1.2265E-03_JPRB,1.2264E-03_JPRB,1.2189E-03_JPRB,1.2054E-03_JPRB/)
+KBO( :,25, 1) = (/&
+&9.8120E-04_JPRB,9.8697E-04_JPRB,9.8592E-04_JPRB,9.7898E-04_JPRB,9.6753E-04_JPRB/)
+KBO( :,26, 1) = (/&
+&7.9366E-04_JPRB,7.9724E-04_JPRB,7.9535E-04_JPRB,7.8897E-04_JPRB,7.7900E-04_JPRB/)
+KBO( :,27, 1) = (/&
+&6.4346E-04_JPRB,6.4543E-04_JPRB,6.4311E-04_JPRB,6.3737E-04_JPRB,6.2874E-04_JPRB/)
+KBO( :,28, 1) = (/&
+&5.2197E-04_JPRB,5.2286E-04_JPRB,5.2043E-04_JPRB,5.1528E-04_JPRB,5.0784E-04_JPRB/)
+KBO( :,29, 1) = (/&
+&4.2576E-04_JPRB,4.2585E-04_JPRB,4.2341E-04_JPRB,4.1882E-04_JPRB,4.1242E-04_JPRB/)
+KBO( :,30, 1) = (/&
+&3.4748E-04_JPRB,3.4709E-04_JPRB,3.4471E-04_JPRB,3.4067E-04_JPRB,3.3521E-04_JPRB/)
+KBO( :,31, 1) = (/&
+&2.8441E-04_JPRB,2.8375E-04_JPRB,2.8150E-04_JPRB,2.7801E-04_JPRB,2.7335E-04_JPRB/)
+KBO( :,32, 1) = (/&
+&2.3282E-04_JPRB,2.3200E-04_JPRB,2.2995E-04_JPRB,2.2696E-04_JPRB,2.2295E-04_JPRB/)
+KBO( :,33, 1) = (/&
+&1.9062E-04_JPRB,1.8973E-04_JPRB,1.8792E-04_JPRB,1.8531E-04_JPRB,1.8184E-04_JPRB/)
+KBO( :,34, 1) = (/&
+&1.5614E-04_JPRB,1.5526E-04_JPRB,1.5366E-04_JPRB,1.5137E-04_JPRB,1.4839E-04_JPRB/)
+KBO( :,35, 1) = (/&
+&1.2772E-04_JPRB,1.2697E-04_JPRB,1.2561E-04_JPRB,1.2363E-04_JPRB,1.2119E-04_JPRB/)
+KBO( :,36, 1) = (/&
+&1.0427E-04_JPRB,1.0367E-04_JPRB,1.0254E-04_JPRB,1.0093E-04_JPRB,9.8988E-05_JPRB/)
+KBO( :,37, 1) = (/&
+&8.5618E-05_JPRB,8.5197E-05_JPRB,8.4329E-05_JPRB,8.3067E-05_JPRB,8.1529E-05_JPRB/)
+KBO( :,38, 1) = (/&
+&7.0355E-05_JPRB,7.0067E-05_JPRB,6.9409E-05_JPRB,6.8426E-05_JPRB,6.7223E-05_JPRB/)
+KBO( :,39, 1) = (/&
+&5.7837E-05_JPRB,5.7651E-05_JPRB,5.7166E-05_JPRB,5.6411E-05_JPRB,5.5474E-05_JPRB/)
+KBO( :,40, 1) = (/&
+&4.7471E-05_JPRB,4.7392E-05_JPRB,4.7060E-05_JPRB,4.6496E-05_JPRB,4.5776E-05_JPRB/)
+KBO( :,41, 1) = (/&
+&3.8945E-05_JPRB,3.8946E-05_JPRB,3.8735E-05_JPRB,3.8320E-05_JPRB,3.7771E-05_JPRB/)
+KBO( :,42, 1) = (/&
+&3.1942E-05_JPRB,3.2000E-05_JPRB,3.1880E-05_JPRB,3.1585E-05_JPRB,3.1172E-05_JPRB/)
+KBO( :,43, 1) = (/&
+&2.6212E-05_JPRB,2.6319E-05_JPRB,2.6272E-05_JPRB,2.6076E-05_JPRB,2.5773E-05_JPRB/)
+KBO( :,44, 1) = (/&
+&2.1513E-05_JPRB,2.1656E-05_JPRB,2.1665E-05_JPRB,2.1549E-05_JPRB,2.1335E-05_JPRB/)
+KBO( :,45, 1) = (/&
+&1.7662E-05_JPRB,1.7828E-05_JPRB,1.7877E-05_JPRB,1.7820E-05_JPRB,1.7676E-05_JPRB/)
+KBO( :,46, 1) = (/&
+&1.4497E-05_JPRB,1.4675E-05_JPRB,1.4757E-05_JPRB,1.4745E-05_JPRB,1.4651E-05_JPRB/)
+KBO( :,47, 1) = (/&
+&1.1877E-05_JPRB,1.2067E-05_JPRB,1.2171E-05_JPRB,1.2193E-05_JPRB,1.2145E-05_JPRB/)
+KBO( :,48, 1) = (/&
+&9.7397E-06_JPRB,9.9314E-06_JPRB,1.0047E-05_JPRB,1.0098E-05_JPRB,1.0083E-05_JPRB/)
+KBO( :,49, 1) = (/&
+&8.0031E-06_JPRB,8.1919E-06_JPRB,8.3161E-06_JPRB,8.3842E-06_JPRB,8.3974E-06_JPRB/)
+KBO( :,50, 1) = (/&
+&6.5533E-06_JPRB,6.7351E-06_JPRB,6.8590E-06_JPRB,6.9358E-06_JPRB,6.9657E-06_JPRB/)
+KBO( :,51, 1) = (/&
+&5.3534E-06_JPRB,5.5271E-06_JPRB,5.6449E-06_JPRB,5.7254E-06_JPRB,5.7657E-06_JPRB/)
+KBO( :,52, 1) = (/&
+&4.3815E-06_JPRB,4.5440E-06_JPRB,4.6552E-06_JPRB,4.7359E-06_JPRB,4.7826E-06_JPRB/)
+KBO( :,53, 1) = (/&
+&3.5983E-06_JPRB,3.7484E-06_JPRB,3.8526E-06_JPRB,3.9323E-06_JPRB,3.9834E-06_JPRB/)
+KBO( :,54, 1) = (/&
+&2.9135E-06_JPRB,3.0488E-06_JPRB,3.1449E-06_JPRB,3.2176E-06_JPRB,3.2676E-06_JPRB/)
+KBO( :,55, 1) = (/&
+&2.3344E-06_JPRB,2.4540E-06_JPRB,2.5433E-06_JPRB,2.6072E-06_JPRB,2.6532E-06_JPRB/)
+KBO( :,56, 1) = (/&
+&1.8674E-06_JPRB,1.9725E-06_JPRB,2.0540E-06_JPRB,2.1112E-06_JPRB,2.1532E-06_JPRB/)
+KBO( :,57, 1) = (/&
+&1.4909E-06_JPRB,1.5832E-06_JPRB,1.6559E-06_JPRB,1.7087E-06_JPRB,1.7463E-06_JPRB/)
+KBO( :,58, 1) = (/&
+&1.1855E-06_JPRB,1.2659E-06_JPRB,1.3298E-06_JPRB,1.3781E-06_JPRB,1.4118E-06_JPRB/)
+KBO( :,59, 1) = (/&
+&9.3006E-07_JPRB,9.9739E-07_JPRB,1.0501E-06_JPRB,1.0906E-06_JPRB,1.1193E-06_JPRB/)
+KBO( :, 7, 2) = (/&
+&2.6778E-01_JPRB,2.8245E-01_JPRB,3.0362E-01_JPRB,3.3204E-01_JPRB,3.6642E-01_JPRB/)
+KBO( :, 8, 2) = (/&
+&1.6981E-01_JPRB,1.8043E-01_JPRB,1.9307E-01_JPRB,2.0690E-01_JPRB,2.2313E-01_JPRB/)
+KBO( :, 9, 2) = (/&
+&1.2053E-01_JPRB,1.2497E-01_JPRB,1.3056E-01_JPRB,1.3643E-01_JPRB,1.4282E-01_JPRB/)
+KBO( :,10, 2) = (/&
+&8.7626E-02_JPRB,8.9514E-02_JPRB,9.1744E-02_JPRB,9.4317E-02_JPRB,9.6890E-02_JPRB/)
+KBO( :,11, 2) = (/&
+&6.5833E-02_JPRB,6.6899E-02_JPRB,6.8102E-02_JPRB,6.9485E-02_JPRB,7.0886E-02_JPRB/)
+KBO( :,12, 2) = (/&
+&5.1441E-02_JPRB,5.2186E-02_JPRB,5.3006E-02_JPRB,5.3843E-02_JPRB,5.4676E-02_JPRB/)
+KBO( :,13, 2) = (/&
+&3.9685E-02_JPRB,4.0210E-02_JPRB,4.0730E-02_JPRB,4.1271E-02_JPRB,4.1791E-02_JPRB/)
+KBO( :,14, 2) = (/&
+&2.8508E-02_JPRB,2.8827E-02_JPRB,2.9089E-02_JPRB,2.9311E-02_JPRB,2.9533E-02_JPRB/)
+KBO( :,15, 2) = (/&
+&2.0989E-02_JPRB,2.1138E-02_JPRB,2.1243E-02_JPRB,2.1329E-02_JPRB,2.1410E-02_JPRB/)
+KBO( :,16, 2) = (/&
+&1.6136E-02_JPRB,1.6221E-02_JPRB,1.6271E-02_JPRB,1.6299E-02_JPRB,1.6318E-02_JPRB/)
+KBO( :,17, 2) = (/&
+&1.2642E-02_JPRB,1.2693E-02_JPRB,1.2714E-02_JPRB,1.2705E-02_JPRB,1.2688E-02_JPRB/)
+KBO( :,18, 2) = (/&
+&1.0065E-02_JPRB,1.0094E-02_JPRB,1.0094E-02_JPRB,1.0071E-02_JPRB,1.0038E-02_JPRB/)
+KBO( :,19, 2) = (/&
+&8.0455E-03_JPRB,8.0605E-03_JPRB,8.0482E-03_JPRB,8.0166E-03_JPRB,7.9752E-03_JPRB/)
+KBO( :,20, 2) = (/&
+&6.5051E-03_JPRB,6.5116E-03_JPRB,6.4957E-03_JPRB,6.4648E-03_JPRB,6.4247E-03_JPRB/)
+KBO( :,21, 2) = (/&
+&5.2778E-03_JPRB,5.2806E-03_JPRB,5.2632E-03_JPRB,5.2348E-03_JPRB,5.1970E-03_JPRB/)
+KBO( :,22, 2) = (/&
+&4.2858E-03_JPRB,4.2841E-03_JPRB,4.2670E-03_JPRB,4.2400E-03_JPRB,4.2048E-03_JPRB/)
+KBO( :,23, 2) = (/&
+&3.4793E-03_JPRB,3.4753E-03_JPRB,3.4584E-03_JPRB,3.4334E-03_JPRB,3.4014E-03_JPRB/)
+KBO( :,24, 2) = (/&
+&2.8185E-03_JPRB,2.8125E-03_JPRB,2.7957E-03_JPRB,2.7728E-03_JPRB,2.7436E-03_JPRB/)
+KBO( :,25, 2) = (/&
+&2.2861E-03_JPRB,2.2783E-03_JPRB,2.2629E-03_JPRB,2.2419E-03_JPRB,2.2158E-03_JPRB/)
+KBO( :,26, 2) = (/&
+&1.8574E-03_JPRB,1.8493E-03_JPRB,1.8350E-03_JPRB,1.8161E-03_JPRB,1.7932E-03_JPRB/)
+KBO( :,27, 2) = (/&
+&1.5109E-03_JPRB,1.5030E-03_JPRB,1.4902E-03_JPRB,1.4736E-03_JPRB,1.4543E-03_JPRB/)
+KBO( :,28, 2) = (/&
+&1.2296E-03_JPRB,1.2220E-03_JPRB,1.2106E-03_JPRB,1.1965E-03_JPRB,1.1802E-03_JPRB/)
+KBO( :,29, 2) = (/&
+&1.0041E-03_JPRB,9.9721E-04_JPRB,9.8729E-04_JPRB,9.7563E-04_JPRB,9.6203E-04_JPRB/)
+KBO( :,30, 2) = (/&
+&8.2028E-04_JPRB,8.1422E-04_JPRB,8.0597E-04_JPRB,7.9622E-04_JPRB,7.8494E-04_JPRB/)
+KBO( :,31, 2) = (/&
+&6.7162E-04_JPRB,6.6632E-04_JPRB,6.5964E-04_JPRB,6.5163E-04_JPRB,6.4255E-04_JPRB/)
+KBO( :,32, 2) = (/&
+&5.5003E-04_JPRB,5.4568E-04_JPRB,5.4025E-04_JPRB,5.3369E-04_JPRB,5.2646E-04_JPRB/)
+KBO( :,33, 2) = (/&
+&4.5068E-04_JPRB,4.4725E-04_JPRB,4.4286E-04_JPRB,4.3761E-04_JPRB,4.3173E-04_JPRB/)
+KBO( :,34, 2) = (/&
+&3.6961E-04_JPRB,3.6684E-04_JPRB,3.6327E-04_JPRB,3.5906E-04_JPRB,3.5439E-04_JPRB/)
+KBO( :,35, 2) = (/&
+&3.0315E-04_JPRB,3.0096E-04_JPRB,2.9817E-04_JPRB,2.9485E-04_JPRB,2.9125E-04_JPRB/)
+KBO( :,36, 2) = (/&
+&2.4847E-04_JPRB,2.4681E-04_JPRB,2.4467E-04_JPRB,2.4215E-04_JPRB,2.3935E-04_JPRB/)
+KBO( :,37, 2) = (/&
+&2.0443E-04_JPRB,2.0324E-04_JPRB,2.0165E-04_JPRB,1.9975E-04_JPRB,1.9759E-04_JPRB/)
+KBO( :,38, 2) = (/&
+&1.6831E-04_JPRB,1.6749E-04_JPRB,1.6632E-04_JPRB,1.6492E-04_JPRB,1.6327E-04_JPRB/)
+KBO( :,39, 2) = (/&
+&1.3865E-04_JPRB,1.3814E-04_JPRB,1.3731E-04_JPRB,1.3631E-04_JPRB,1.3505E-04_JPRB/)
+KBO( :,40, 2) = (/&
+&1.1402E-04_JPRB,1.1372E-04_JPRB,1.1314E-04_JPRB,1.1240E-04_JPRB,1.1148E-04_JPRB/)
+KBO( :,41, 2) = (/&
+&9.3740E-05_JPRB,9.3582E-05_JPRB,9.3200E-05_JPRB,9.2678E-05_JPRB,9.2002E-05_JPRB/)
+KBO( :,42, 2) = (/&
+&7.7058E-05_JPRB,7.7015E-05_JPRB,7.6781E-05_JPRB,7.6427E-05_JPRB,7.5949E-05_JPRB/)
+KBO( :,43, 2) = (/&
+&6.3364E-05_JPRB,6.3414E-05_JPRB,6.3300E-05_JPRB,6.3083E-05_JPRB,6.2768E-05_JPRB/)
+KBO( :,44, 2) = (/&
+&5.2113E-05_JPRB,5.2236E-05_JPRB,5.2217E-05_JPRB,5.2105E-05_JPRB,5.1917E-05_JPRB/)
+KBO( :,45, 2) = (/&
+&4.2872E-05_JPRB,4.3047E-05_JPRB,4.3096E-05_JPRB,4.3067E-05_JPRB,4.2976E-05_JPRB/)
+KBO( :,46, 2) = (/&
+&3.5259E-05_JPRB,3.5470E-05_JPRB,3.5572E-05_JPRB,3.5602E-05_JPRB,3.5583E-05_JPRB/)
+KBO( :,47, 2) = (/&
+&2.8960E-05_JPRB,2.9201E-05_JPRB,2.9340E-05_JPRB,2.9409E-05_JPRB,2.9443E-05_JPRB/)
+KBO( :,48, 2) = (/&
+&2.3793E-05_JPRB,2.4061E-05_JPRB,2.4219E-05_JPRB,2.4324E-05_JPRB,2.4398E-05_JPRB/)
+KBO( :,49, 2) = (/&
+&1.9573E-05_JPRB,1.9855E-05_JPRB,2.0037E-05_JPRB,2.0166E-05_JPRB,2.0269E-05_JPRB/)
+KBO( :,50, 2) = (/&
+&1.6059E-05_JPRB,1.6336E-05_JPRB,1.6527E-05_JPRB,1.6662E-05_JPRB,1.6777E-05_JPRB/)
+KBO( :,51, 2) = (/&
+&1.3152E-05_JPRB,1.3417E-05_JPRB,1.3609E-05_JPRB,1.3741E-05_JPRB,1.3858E-05_JPRB/)
+KBO( :,52, 2) = (/&
+&1.0779E-05_JPRB,1.1030E-05_JPRB,1.1223E-05_JPRB,1.1354E-05_JPRB,1.1469E-05_JPRB/)
+KBO( :,53, 2) = (/&
+&8.8506E-06_JPRB,9.0876E-06_JPRB,9.2783E-06_JPRB,9.4085E-06_JPRB,9.5236E-06_JPRB/)
+KBO( :,54, 2) = (/&
+&7.2038E-06_JPRB,7.4123E-06_JPRB,7.5866E-06_JPRB,7.7062E-06_JPRB,7.8090E-06_JPRB/)
+KBO( :,55, 2) = (/&
+&5.8272E-06_JPRB,6.0075E-06_JPRB,6.1562E-06_JPRB,6.2660E-06_JPRB,6.3502E-06_JPRB/)
+KBO( :,56, 2) = (/&
+&4.7097E-06_JPRB,4.8664E-06_JPRB,4.9937E-06_JPRB,5.0923E-06_JPRB,5.1636E-06_JPRB/)
+KBO( :,57, 2) = (/&
+&3.8029E-06_JPRB,3.9406E-06_JPRB,4.0499E-06_JPRB,4.1369E-06_JPRB,4.1983E-06_JPRB/)
+KBO( :,58, 2) = (/&
+&3.0636E-06_JPRB,3.1845E-06_JPRB,3.2784E-06_JPRB,3.3529E-06_JPRB,3.4074E-06_JPRB/)
+KBO( :,59, 2) = (/&
+&2.4518E-06_JPRB,2.5533E-06_JPRB,2.6281E-06_JPRB,2.6848E-06_JPRB,2.7259E-06_JPRB/)
+KBO( :, 7, 3) = (/&
+&3.9261E-01_JPRB,4.1826E-01_JPRB,4.5486E-01_JPRB,5.0020E-01_JPRB,5.5441E-01_JPRB/)
+KBO( :, 8, 3) = (/&
+&2.6302E-01_JPRB,2.7629E-01_JPRB,2.9316E-01_JPRB,3.1489E-01_JPRB,3.3903E-01_JPRB/)
+KBO( :, 9, 3) = (/&
+&1.8742E-01_JPRB,1.9413E-01_JPRB,2.0162E-01_JPRB,2.1065E-01_JPRB,2.2099E-01_JPRB/)
+KBO( :,10, 3) = (/&
+&1.3691E-01_JPRB,1.3995E-01_JPRB,1.4395E-01_JPRB,1.4843E-01_JPRB,1.5362E-01_JPRB/)
+KBO( :,11, 3) = (/&
+&1.0382E-01_JPRB,1.0590E-01_JPRB,1.0849E-01_JPRB,1.1133E-01_JPRB,1.1437E-01_JPRB/)
+KBO( :,12, 3) = (/&
+&8.2774E-02_JPRB,8.4314E-02_JPRB,8.6091E-02_JPRB,8.8097E-02_JPRB,9.0175E-02_JPRB/)
+KBO( :,13, 3) = (/&
+&6.5297E-02_JPRB,6.6392E-02_JPRB,6.7652E-02_JPRB,6.8979E-02_JPRB,7.0293E-02_JPRB/)
+KBO( :,14, 3) = (/&
+&4.8355E-02_JPRB,4.9038E-02_JPRB,4.9706E-02_JPRB,5.0319E-02_JPRB,5.0878E-02_JPRB/)
+KBO( :,15, 3) = (/&
+&3.6518E-02_JPRB,3.6926E-02_JPRB,3.7222E-02_JPRB,3.7439E-02_JPRB,3.7640E-02_JPRB/)
+KBO( :,16, 3) = (/&
+&2.8643E-02_JPRB,2.8895E-02_JPRB,2.9016E-02_JPRB,2.9088E-02_JPRB,2.9132E-02_JPRB/)
+KBO( :,17, 3) = (/&
+&2.2761E-02_JPRB,2.2905E-02_JPRB,2.2941E-02_JPRB,2.2947E-02_JPRB,2.2921E-02_JPRB/)
+KBO( :,18, 3) = (/&
+&1.8278E-02_JPRB,1.8355E-02_JPRB,1.8353E-02_JPRB,1.8324E-02_JPRB,1.8265E-02_JPRB/)
+KBO( :,19, 3) = (/&
+&1.4700E-02_JPRB,1.4733E-02_JPRB,1.4709E-02_JPRB,1.4660E-02_JPRB,1.4585E-02_JPRB/)
+KBO( :,20, 3) = (/&
+&1.1936E-02_JPRB,1.1946E-02_JPRB,1.1914E-02_JPRB,1.1862E-02_JPRB,1.1789E-02_JPRB/)
+KBO( :,21, 3) = (/&
+&9.7139E-03_JPRB,9.7118E-03_JPRB,9.6809E-03_JPRB,9.6307E-03_JPRB,9.5648E-03_JPRB/)
+KBO( :,22, 3) = (/&
+&7.9072E-03_JPRB,7.8970E-03_JPRB,7.8671E-03_JPRB,7.8212E-03_JPRB,7.7623E-03_JPRB/)
+KBO( :,23, 3) = (/&
+&6.4329E-03_JPRB,6.4199E-03_JPRB,6.3920E-03_JPRB,6.3512E-03_JPRB,6.2995E-03_JPRB/)
+KBO( :,24, 3) = (/&
+&5.2216E-03_JPRB,5.2078E-03_JPRB,5.1821E-03_JPRB,5.1436E-03_JPRB,5.0968E-03_JPRB/)
+KBO( :,25, 3) = (/&
+&4.2420E-03_JPRB,4.2282E-03_JPRB,4.2046E-03_JPRB,4.1704E-03_JPRB,4.1288E-03_JPRB/)
+KBO( :,26, 3) = (/&
+&3.4526E-03_JPRB,3.4398E-03_JPRB,3.4183E-03_JPRB,3.3878E-03_JPRB,3.3511E-03_JPRB/)
+KBO( :,27, 3) = (/&
+&2.8139E-03_JPRB,2.8022E-03_JPRB,2.7830E-03_JPRB,2.7568E-03_JPRB,2.7244E-03_JPRB/)
+KBO( :,28, 3) = (/&
+&2.2948E-03_JPRB,2.2838E-03_JPRB,2.2669E-03_JPRB,2.2441E-03_JPRB,2.2163E-03_JPRB/)
+KBO( :,29, 3) = (/&
+&1.8779E-03_JPRB,1.8678E-03_JPRB,1.8537E-03_JPRB,1.8342E-03_JPRB,1.8116E-03_JPRB/)
+KBO( :,30, 3) = (/&
+&1.5371E-03_JPRB,1.5290E-03_JPRB,1.5169E-03_JPRB,1.5009E-03_JPRB,1.4827E-03_JPRB/)
+KBO( :,31, 3) = (/&
+&1.2613E-03_JPRB,1.2550E-03_JPRB,1.2450E-03_JPRB,1.2325E-03_JPRB,1.2181E-03_JPRB/)
+KBO( :,32, 3) = (/&
+&1.0360E-03_JPRB,1.0308E-03_JPRB,1.0228E-03_JPRB,1.0131E-03_JPRB,1.0022E-03_JPRB/)
+KBO( :,33, 3) = (/&
+&8.5168E-04_JPRB,8.4735E-04_JPRB,8.4147E-04_JPRB,8.3412E-04_JPRB,8.2675E-04_JPRB/)
+KBO( :,34, 3) = (/&
+&7.0046E-04_JPRB,6.9716E-04_JPRB,6.9264E-04_JPRB,6.8755E-04_JPRB,6.8249E-04_JPRB/)
+KBO( :,35, 3) = (/&
+&5.7604E-04_JPRB,5.7373E-04_JPRB,5.7061E-04_JPRB,5.6737E-04_JPRB,5.6396E-04_JPRB/)
+KBO( :,36, 3) = (/&
+&4.7323E-04_JPRB,4.7186E-04_JPRB,4.7003E-04_JPRB,4.6804E-04_JPRB,4.6592E-04_JPRB/)
+KBO( :,37, 3) = (/&
+&3.9007E-04_JPRB,3.8932E-04_JPRB,3.8831E-04_JPRB,3.8717E-04_JPRB,3.8593E-04_JPRB/)
+KBO( :,38, 3) = (/&
+&3.2170E-04_JPRB,3.2146E-04_JPRB,3.2110E-04_JPRB,3.2061E-04_JPRB,3.2010E-04_JPRB/)
+KBO( :,39, 3) = (/&
+&2.6546E-04_JPRB,2.6568E-04_JPRB,2.6585E-04_JPRB,2.6593E-04_JPRB,2.6594E-04_JPRB/)
+KBO( :,40, 3) = (/&
+&2.1847E-04_JPRB,2.1891E-04_JPRB,2.1928E-04_JPRB,2.1962E-04_JPRB,2.1986E-04_JPRB/)
+KBO( :,41, 3) = (/&
+&1.7969E-04_JPRB,1.8027E-04_JPRB,1.8078E-04_JPRB,1.8126E-04_JPRB,1.8165E-04_JPRB/)
+KBO( :,42, 3) = (/&
+&1.4779E-04_JPRB,1.4846E-04_JPRB,1.4905E-04_JPRB,1.4963E-04_JPRB,1.5013E-04_JPRB/)
+KBO( :,43, 3) = (/&
+&1.2154E-04_JPRB,1.2228E-04_JPRB,1.2292E-04_JPRB,1.2357E-04_JPRB,1.2415E-04_JPRB/)
+KBO( :,44, 3) = (/&
+&9.9958E-05_JPRB,1.0073E-04_JPRB,1.0140E-04_JPRB,1.0208E-04_JPRB,1.0273E-04_JPRB/)
+KBO( :,45, 3) = (/&
+&8.2216E-05_JPRB,8.3000E-05_JPRB,8.3698E-05_JPRB,8.4403E-05_JPRB,8.5080E-05_JPRB/)
+KBO( :,46, 3) = (/&
+&6.7594E-05_JPRB,6.8376E-05_JPRB,6.9061E-05_JPRB,6.9778E-05_JPRB,7.0474E-05_JPRB/)
+KBO( :,47, 3) = (/&
+&5.5485E-05_JPRB,5.6232E-05_JPRB,5.6898E-05_JPRB,5.7591E-05_JPRB,5.8280E-05_JPRB/)
+KBO( :,48, 3) = (/&
+&4.5552E-05_JPRB,4.6275E-05_JPRB,4.6918E-05_JPRB,4.7596E-05_JPRB,4.8274E-05_JPRB/)
+KBO( :,49, 3) = (/&
+&3.7438E-05_JPRB,3.8131E-05_JPRB,3.8767E-05_JPRB,3.9430E-05_JPRB,4.0094E-05_JPRB/)
+KBO( :,50, 3) = (/&
+&3.0699E-05_JPRB,3.1333E-05_JPRB,3.1922E-05_JPRB,3.2530E-05_JPRB,3.3148E-05_JPRB/)
+KBO( :,51, 3) = (/&
+&2.5129E-05_JPRB,2.5702E-05_JPRB,2.6235E-05_JPRB,2.6778E-05_JPRB,2.7340E-05_JPRB/)
+KBO( :,52, 3) = (/&
+&2.0590E-05_JPRB,2.1102E-05_JPRB,2.1590E-05_JPRB,2.2079E-05_JPRB,2.2594E-05_JPRB/)
+KBO( :,53, 3) = (/&
+&1.6895E-05_JPRB,1.7360E-05_JPRB,1.7806E-05_JPRB,1.8261E-05_JPRB,1.8734E-05_JPRB/)
+KBO( :,54, 3) = (/&
+&1.3758E-05_JPRB,1.4159E-05_JPRB,1.4534E-05_JPRB,1.4917E-05_JPRB,1.5317E-05_JPRB/)
+KBO( :,55, 3) = (/&
+&1.1148E-05_JPRB,1.1484E-05_JPRB,1.1790E-05_JPRB,1.2094E-05_JPRB,1.2411E-05_JPRB/)
+KBO( :,56, 3) = (/&
+&9.0284E-06_JPRB,9.3136E-06_JPRB,9.5654E-06_JPRB,9.8098E-06_JPRB,1.0060E-05_JPRB/)
+KBO( :,57, 3) = (/&
+&7.3060E-06_JPRB,7.5521E-06_JPRB,7.7610E-06_JPRB,7.9575E-06_JPRB,8.1567E-06_JPRB/)
+KBO( :,58, 3) = (/&
+&5.9024E-06_JPRB,6.1146E-06_JPRB,6.2887E-06_JPRB,6.4473E-06_JPRB,6.6035E-06_JPRB/)
+KBO( :,59, 3) = (/&
+&4.7480E-06_JPRB,4.9198E-06_JPRB,5.0575E-06_JPRB,5.1729E-06_JPRB,5.2807E-06_JPRB/)
+KBO( :, 7, 4) = (/&
+&5.4576E-01_JPRB,5.8321E-01_JPRB,6.3352E-01_JPRB,6.9888E-01_JPRB,7.7662E-01_JPRB/)
+KBO( :, 8, 4) = (/&
+&3.7193E-01_JPRB,3.9289E-01_JPRB,4.1999E-01_JPRB,4.5207E-01_JPRB,4.8994E-01_JPRB/)
+KBO( :, 9, 4) = (/&
+&2.7031E-01_JPRB,2.8087E-01_JPRB,2.9426E-01_JPRB,3.0966E-01_JPRB,3.2729E-01_JPRB/)
+KBO( :,10, 4) = (/&
+&2.0336E-01_JPRB,2.0948E-01_JPRB,2.1603E-01_JPRB,2.2414E-01_JPRB,2.3345E-01_JPRB/)
+KBO( :,11, 4) = (/&
+&1.6168E-01_JPRB,1.6588E-01_JPRB,1.7020E-01_JPRB,1.7548E-01_JPRB,1.8161E-01_JPRB/)
+KBO( :,12, 4) = (/&
+&1.3346E-01_JPRB,1.3660E-01_JPRB,1.3975E-01_JPRB,1.4344E-01_JPRB,1.4792E-01_JPRB/)
+KBO( :,13, 4) = (/&
+&1.0849E-01_JPRB,1.1069E-01_JPRB,1.1290E-01_JPRB,1.1556E-01_JPRB,1.1871E-01_JPRB/)
+KBO( :,14, 4) = (/&
+&8.2500E-02_JPRB,8.3981E-02_JPRB,8.5345E-02_JPRB,8.6853E-02_JPRB,8.8365E-02_JPRB/)
+KBO( :,15, 4) = (/&
+&6.3556E-02_JPRB,6.4528E-02_JPRB,6.5387E-02_JPRB,6.6084E-02_JPRB,6.6650E-02_JPRB/)
+KBO( :,16, 4) = (/&
+&5.0617E-02_JPRB,5.1215E-02_JPRB,5.1695E-02_JPRB,5.1994E-02_JPRB,5.2195E-02_JPRB/)
+KBO( :,17, 4) = (/&
+&4.0691E-02_JPRB,4.1021E-02_JPRB,4.1248E-02_JPRB,4.1327E-02_JPRB,4.1343E-02_JPRB/)
+KBO( :,18, 4) = (/&
+&3.2954E-02_JPRB,3.3129E-02_JPRB,3.3217E-02_JPRB,3.3185E-02_JPRB,3.3108E-02_JPRB/)
+KBO( :,19, 4) = (/&
+&2.6680E-02_JPRB,2.6760E-02_JPRB,2.6758E-02_JPRB,2.6667E-02_JPRB,2.6543E-02_JPRB/)
+KBO( :,20, 4) = (/&
+&2.1769E-02_JPRB,2.1800E-02_JPRB,2.1748E-02_JPRB,2.1639E-02_JPRB,2.1512E-02_JPRB/)
+KBO( :,21, 4) = (/&
+&1.7784E-02_JPRB,1.7780E-02_JPRB,1.7709E-02_JPRB,1.7602E-02_JPRB,1.7488E-02_JPRB/)
+KBO( :,22, 4) = (/&
+&1.4514E-02_JPRB,1.4488E-02_JPRB,1.4415E-02_JPRB,1.4319E-02_JPRB,1.4220E-02_JPRB/)
+KBO( :,23, 4) = (/&
+&1.1835E-02_JPRB,1.1797E-02_JPRB,1.1728E-02_JPRB,1.1643E-02_JPRB,1.1560E-02_JPRB/)
+KBO( :,24, 4) = (/&
+&9.6235E-03_JPRB,9.5815E-03_JPRB,9.5190E-03_JPRB,9.4465E-03_JPRB,9.3693E-03_JPRB/)
+KBO( :,25, 4) = (/&
+&7.8292E-03_JPRB,7.7888E-03_JPRB,7.7341E-03_JPRB,7.6730E-03_JPRB,7.6029E-03_JPRB/)
+KBO( :,26, 4) = (/&
+&6.3801E-03_JPRB,6.3415E-03_JPRB,6.2961E-03_JPRB,6.2428E-03_JPRB,6.1825E-03_JPRB/)
+KBO( :,27, 4) = (/&
+&5.2042E-03_JPRB,5.1715E-03_JPRB,5.1336E-03_JPRB,5.0880E-03_JPRB,5.0387E-03_JPRB/)
+KBO( :,28, 4) = (/&
+&4.2465E-03_JPRB,4.2207E-03_JPRB,4.1880E-03_JPRB,4.1504E-03_JPRB,4.1110E-03_JPRB/)
+KBO( :,29, 4) = (/&
+&3.4782E-03_JPRB,3.4577E-03_JPRB,3.4306E-03_JPRB,3.4016E-03_JPRB,3.3709E-03_JPRB/)
+KBO( :,30, 4) = (/&
+&2.8515E-03_JPRB,2.8346E-03_JPRB,2.8137E-03_JPRB,2.7917E-03_JPRB,2.7680E-03_JPRB/)
+KBO( :,31, 4) = (/&
+&2.3437E-03_JPRB,2.3307E-03_JPRB,2.3161E-03_JPRB,2.3002E-03_JPRB,2.2834E-03_JPRB/)
+KBO( :,32, 4) = (/&
+&1.9274E-03_JPRB,1.9187E-03_JPRB,1.9091E-03_JPRB,1.8985E-03_JPRB,1.8866E-03_JPRB/)
+KBO( :,33, 4) = (/&
+&1.5869E-03_JPRB,1.5820E-03_JPRB,1.5765E-03_JPRB,1.5699E-03_JPRB,1.5624E-03_JPRB/)
+KBO( :,34, 4) = (/&
+&1.3081E-03_JPRB,1.3058E-03_JPRB,1.3032E-03_JPRB,1.2991E-03_JPRB,1.2950E-03_JPRB/)
+KBO( :,35, 4) = (/&
+&1.0781E-03_JPRB,1.0778E-03_JPRB,1.0771E-03_JPRB,1.0756E-03_JPRB,1.0740E-03_JPRB/)
+KBO( :,36, 4) = (/&
+&8.8736E-04_JPRB,8.8844E-04_JPRB,8.8926E-04_JPRB,8.8965E-04_JPRB,8.8976E-04_JPRB/)
+KBO( :,37, 4) = (/&
+&7.3290E-04_JPRB,7.3491E-04_JPRB,7.3643E-04_JPRB,7.3770E-04_JPRB,7.3879E-04_JPRB/)
+KBO( :,38, 4) = (/&
+&6.0588E-04_JPRB,6.0833E-04_JPRB,6.1041E-04_JPRB,6.1235E-04_JPRB,6.1424E-04_JPRB/)
+KBO( :,39, 4) = (/&
+&5.0124E-04_JPRB,5.0398E-04_JPRB,5.0659E-04_JPRB,5.0907E-04_JPRB,5.1177E-04_JPRB/)
+KBO( :,40, 4) = (/&
+&4.1327E-04_JPRB,4.1591E-04_JPRB,4.1851E-04_JPRB,4.2084E-04_JPRB,4.2376E-04_JPRB/)
+KBO( :,41, 4) = (/&
+&3.4050E-04_JPRB,3.4298E-04_JPRB,3.4548E-04_JPRB,3.4778E-04_JPRB,3.5064E-04_JPRB/)
+KBO( :,42, 4) = (/&
+&2.8050E-04_JPRB,2.8288E-04_JPRB,2.8524E-04_JPRB,2.8747E-04_JPRB,2.9020E-04_JPRB/)
+KBO( :,43, 4) = (/&
+&2.3103E-04_JPRB,2.3322E-04_JPRB,2.3547E-04_JPRB,2.3763E-04_JPRB,2.4024E-04_JPRB/)
+KBO( :,44, 4) = (/&
+&1.9026E-04_JPRB,1.9231E-04_JPRB,1.9444E-04_JPRB,1.9652E-04_JPRB,1.9896E-04_JPRB/)
+KBO( :,45, 4) = (/&
+&1.5671E-04_JPRB,1.5864E-04_JPRB,1.6066E-04_JPRB,1.6263E-04_JPRB,1.6494E-04_JPRB/)
+KBO( :,46, 4) = (/&
+&1.2898E-04_JPRB,1.3080E-04_JPRB,1.3267E-04_JPRB,1.3454E-04_JPRB,1.3671E-04_JPRB/)
+KBO( :,47, 4) = (/&
+&1.0596E-04_JPRB,1.0765E-04_JPRB,1.0934E-04_JPRB,1.1109E-04_JPRB,1.1307E-04_JPRB/)
+KBO( :,48, 4) = (/&
+&8.7064E-05_JPRB,8.8650E-05_JPRB,9.0201E-05_JPRB,9.1849E-05_JPRB,9.3694E-05_JPRB/)
+KBO( :,49, 4) = (/&
+&7.1599E-05_JPRB,7.3089E-05_JPRB,7.4546E-05_JPRB,7.6099E-05_JPRB,7.7859E-05_JPRB/)
+KBO( :,50, 4) = (/&
+&5.8725E-05_JPRB,6.0074E-05_JPRB,6.1380E-05_JPRB,6.2781E-05_JPRB,6.4369E-05_JPRB/)
+KBO( :,51, 4) = (/&
+&4.8093E-05_JPRB,4.9292E-05_JPRB,5.0434E-05_JPRB,5.1667E-05_JPRB,5.3063E-05_JPRB/)
+KBO( :,52, 4) = (/&
+&3.9408E-05_JPRB,4.0473E-05_JPRB,4.1481E-05_JPRB,4.2577E-05_JPRB,4.3826E-05_JPRB/)
+KBO( :,53, 4) = (/&
+&3.2348E-05_JPRB,3.3281E-05_JPRB,3.4179E-05_JPRB,3.5167E-05_JPRB,3.6311E-05_JPRB/)
+KBO( :,54, 4) = (/&
+&2.6357E-05_JPRB,2.7153E-05_JPRB,2.7906E-05_JPRB,2.8713E-05_JPRB,2.9648E-05_JPRB/)
+KBO( :,55, 4) = (/&
+&2.1368E-05_JPRB,2.2046E-05_JPRB,2.2660E-05_JPRB,2.3285E-05_JPRB,2.4007E-05_JPRB/)
+KBO( :,56, 4) = (/&
+&1.7314E-05_JPRB,1.7894E-05_JPRB,1.8399E-05_JPRB,1.8894E-05_JPRB,1.9452E-05_JPRB/)
+KBO( :,57, 4) = (/&
+&1.4020E-05_JPRB,1.4518E-05_JPRB,1.4939E-05_JPRB,1.5339E-05_JPRB,1.5769E-05_JPRB/)
+KBO( :,58, 4) = (/&
+&1.1336E-05_JPRB,1.1762E-05_JPRB,1.2115E-05_JPRB,1.2440E-05_JPRB,1.2770E-05_JPRB/)
+KBO( :,59, 4) = (/&
+&9.1282E-06_JPRB,9.4754E-06_JPRB,9.7573E-06_JPRB,1.0004E-05_JPRB,1.0238E-05_JPRB/)
+KBO( :, 7, 5) = (/&
+&7.4219E-01_JPRB,8.0054E-01_JPRB,8.7888E-01_JPRB,9.7526E-01_JPRB,1.0998E+00_JPRB/)
+KBO( :, 8, 5) = (/&
+&5.1152E-01_JPRB,5.4637E-01_JPRB,5.8683E-01_JPRB,6.3535E-01_JPRB,6.9455E-01_JPRB/)
+KBO( :, 9, 5) = (/&
+&3.8181E-01_JPRB,4.0155E-01_JPRB,4.2314E-01_JPRB,4.4831E-01_JPRB,4.7715E-01_JPRB/)
+KBO( :,10, 5) = (/&
+&2.9695E-01_JPRB,3.0876E-01_JPRB,3.2196E-01_JPRB,3.3553E-01_JPRB,3.5132E-01_JPRB/)
+KBO( :,11, 5) = (/&
+&2.4682E-01_JPRB,2.5515E-01_JPRB,2.6470E-01_JPRB,2.7449E-01_JPRB,2.8523E-01_JPRB/)
+KBO( :,12, 5) = (/&
+&2.1183E-01_JPRB,2.1854E-01_JPRB,2.2616E-01_JPRB,2.3413E-01_JPRB,2.4235E-01_JPRB/)
+KBO( :,13, 5) = (/&
+&1.7800E-01_JPRB,1.8340E-01_JPRB,1.8940E-01_JPRB,1.9532E-01_JPRB,2.0154E-01_JPRB/)
+KBO( :,14, 5) = (/&
+&1.4147E-01_JPRB,1.4449E-01_JPRB,1.4788E-01_JPRB,1.5168E-01_JPRB,1.5576E-01_JPRB/)
+KBO( :,15, 5) = (/&
+&1.1315E-01_JPRB,1.1469E-01_JPRB,1.1645E-01_JPRB,1.1868E-01_JPRB,1.2103E-01_JPRB/)
+KBO( :,16, 5) = (/&
+&9.2222E-02_JPRB,9.3160E-02_JPRB,9.4211E-02_JPRB,9.5476E-02_JPRB,9.6729E-02_JPRB/)
+KBO( :,17, 5) = (/&
+&7.5459E-02_JPRB,7.6041E-02_JPRB,7.6622E-02_JPRB,7.7254E-02_JPRB,7.7877E-02_JPRB/)
+KBO( :,18, 5) = (/&
+&6.1947E-02_JPRB,6.2293E-02_JPRB,6.2553E-02_JPRB,6.2869E-02_JPRB,6.3141E-02_JPRB/)
+KBO( :,19, 5) = (/&
+&5.0722E-02_JPRB,5.0858E-02_JPRB,5.0935E-02_JPRB,5.1055E-02_JPRB,5.1101E-02_JPRB/)
+KBO( :,20, 5) = (/&
+&4.1631E-02_JPRB,4.1679E-02_JPRB,4.1718E-02_JPRB,4.1739E-02_JPRB,4.1680E-02_JPRB/)
+KBO( :,21, 5) = (/&
+&3.4144E-02_JPRB,3.4173E-02_JPRB,3.4180E-02_JPRB,3.4129E-02_JPRB,3.4026E-02_JPRB/)
+KBO( :,22, 5) = (/&
+&2.7969E-02_JPRB,2.7982E-02_JPRB,2.7950E-02_JPRB,2.7863E-02_JPRB,2.7745E-02_JPRB/)
+KBO( :,23, 5) = (/&
+&2.2887E-02_JPRB,2.2876E-02_JPRB,2.2812E-02_JPRB,2.2713E-02_JPRB,2.2601E-02_JPRB/)
+KBO( :,24, 5) = (/&
+&1.8663E-02_JPRB,1.8630E-02_JPRB,1.8556E-02_JPRB,1.8459E-02_JPRB,1.8357E-02_JPRB/)
+KBO( :,25, 5) = (/&
+&1.5218E-02_JPRB,1.5169E-02_JPRB,1.5100E-02_JPRB,1.5012E-02_JPRB,1.4924E-02_JPRB/)
+KBO( :,26, 5) = (/&
+&1.2420E-02_JPRB,1.2369E-02_JPRB,1.2302E-02_JPRB,1.2232E-02_JPRB,1.2157E-02_JPRB/)
+KBO( :,27, 5) = (/&
+&1.0146E-02_JPRB,1.0098E-02_JPRB,1.0044E-02_JPRB,9.9898E-03_JPRB,9.9236E-03_JPRB/)
+KBO( :,28, 5) = (/&
+&8.2897E-03_JPRB,8.2510E-03_JPRB,8.2117E-03_JPRB,8.1680E-03_JPRB,8.1099E-03_JPRB/)
+KBO( :,29, 5) = (/&
+&6.7978E-03_JPRB,6.7739E-03_JPRB,6.7481E-03_JPRB,6.7134E-03_JPRB,6.6680E-03_JPRB/)
+KBO( :,30, 5) = (/&
+&5.5823E-03_JPRB,5.5718E-03_JPRB,5.5546E-03_JPRB,5.5280E-03_JPRB,5.4974E-03_JPRB/)
+KBO( :,31, 5) = (/&
+&4.6027E-03_JPRB,4.6001E-03_JPRB,4.5893E-03_JPRB,4.5737E-03_JPRB,4.5580E-03_JPRB/)
+KBO( :,32, 5) = (/&
+&3.8008E-03_JPRB,3.8015E-03_JPRB,3.7970E-03_JPRB,3.7914E-03_JPRB,3.7855E-03_JPRB/)
+KBO( :,33, 5) = (/&
+&3.1425E-03_JPRB,3.1461E-03_JPRB,3.1482E-03_JPRB,3.1501E-03_JPRB,3.1526E-03_JPRB/)
+KBO( :,34, 5) = (/&
+&2.5984E-03_JPRB,2.6053E-03_JPRB,2.6119E-03_JPRB,2.6195E-03_JPRB,2.6274E-03_JPRB/)
+KBO( :,35, 5) = (/&
+&2.1483E-03_JPRB,2.1578E-03_JPRB,2.1676E-03_JPRB,2.1783E-03_JPRB,2.1903E-03_JPRB/)
+KBO( :,36, 5) = (/&
+&1.7735E-03_JPRB,1.7841E-03_JPRB,1.7952E-03_JPRB,1.8076E-03_JPRB,1.8217E-03_JPRB/)
+KBO( :,37, 5) = (/&
+&1.4673E-03_JPRB,1.4785E-03_JPRB,1.4908E-03_JPRB,1.5046E-03_JPRB,1.5197E-03_JPRB/)
+KBO( :,38, 5) = (/&
+&1.2151E-03_JPRB,1.2270E-03_JPRB,1.2402E-03_JPRB,1.2548E-03_JPRB,1.2701E-03_JPRB/)
+KBO( :,39, 5) = (/&
+&1.0074E-03_JPRB,1.0199E-03_JPRB,1.0337E-03_JPRB,1.0486E-03_JPRB,1.0638E-03_JPRB/)
+KBO( :,40, 5) = (/&
+&8.3151E-04_JPRB,8.4359E-04_JPRB,8.5658E-04_JPRB,8.6983E-04_JPRB,8.8391E-04_JPRB/)
+KBO( :,41, 5) = (/&
+&6.8588E-04_JPRB,6.9711E-04_JPRB,7.0893E-04_JPRB,7.2091E-04_JPRB,7.3364E-04_JPRB/)
+KBO( :,42, 5) = (/&
+&5.6575E-04_JPRB,5.7610E-04_JPRB,5.8675E-04_JPRB,5.9741E-04_JPRB,6.0890E-04_JPRB/)
+KBO( :,43, 5) = (/&
+&4.6640E-04_JPRB,4.7576E-04_JPRB,4.8530E-04_JPRB,4.9486E-04_JPRB,5.0526E-04_JPRB/)
+KBO( :,44, 5) = (/&
+&3.8435E-04_JPRB,3.9291E-04_JPRB,4.0148E-04_JPRB,4.1002E-04_JPRB,4.1936E-04_JPRB/)
+KBO( :,45, 5) = (/&
+&3.1688E-04_JPRB,3.2462E-04_JPRB,3.3225E-04_JPRB,3.3993E-04_JPRB,3.4837E-04_JPRB/)
+KBO( :,46, 5) = (/&
+&2.6099E-04_JPRB,2.6793E-04_JPRB,2.7469E-04_JPRB,2.8156E-04_JPRB,2.8910E-04_JPRB/)
+KBO( :,47, 5) = (/&
+&2.1440E-04_JPRB,2.2049E-04_JPRB,2.2645E-04_JPRB,2.3254E-04_JPRB,2.3931E-04_JPRB/)
+KBO( :,48, 5) = (/&
+&1.7619E-04_JPRB,1.8156E-04_JPRB,1.8686E-04_JPRB,1.9234E-04_JPRB,1.9841E-04_JPRB/)
+KBO( :,49, 5) = (/&
+&1.4500E-04_JPRB,1.4973E-04_JPRB,1.5449E-04_JPRB,1.5941E-04_JPRB,1.6496E-04_JPRB/)
+KBO( :,50, 5) = (/&
+&1.1899E-04_JPRB,1.2306E-04_JPRB,1.2720E-04_JPRB,1.3150E-04_JPRB,1.3635E-04_JPRB/)
+KBO( :,51, 5) = (/&
+&9.7485E-05_JPRB,1.0095E-04_JPRB,1.0448E-04_JPRB,1.0819E-04_JPRB,1.1236E-04_JPRB/)
+KBO( :,52, 5) = (/&
+&7.9898E-05_JPRB,8.2877E-05_JPRB,8.5912E-05_JPRB,8.9120E-05_JPRB,9.2744E-05_JPRB/)
+KBO( :,53, 5) = (/&
+&6.5564E-05_JPRB,6.8161E-05_JPRB,7.0774E-05_JPRB,7.3596E-05_JPRB,7.6784E-05_JPRB/)
+KBO( :,54, 5) = (/&
+&5.3382E-05_JPRB,5.5562E-05_JPRB,5.7697E-05_JPRB,6.0028E-05_JPRB,6.2619E-05_JPRB/)
+KBO( :,55, 5) = (/&
+&4.3245E-05_JPRB,4.5036E-05_JPRB,4.6756E-05_JPRB,4.8597E-05_JPRB,5.0630E-05_JPRB/)
+KBO( :,56, 5) = (/&
+&3.5030E-05_JPRB,3.6502E-05_JPRB,3.7905E-05_JPRB,3.9364E-05_JPRB,4.0960E-05_JPRB/)
+KBO( :,57, 5) = (/&
+&2.8365E-05_JPRB,2.9581E-05_JPRB,3.0734E-05_JPRB,3.1886E-05_JPRB,3.3151E-05_JPRB/)
+KBO( :,58, 5) = (/&
+&2.2943E-05_JPRB,2.3945E-05_JPRB,2.4891E-05_JPRB,2.5800E-05_JPRB,2.6793E-05_JPRB/)
+KBO( :,59, 5) = (/&
+&1.8495E-05_JPRB,1.9293E-05_JPRB,2.0030E-05_JPRB,2.0717E-05_JPRB,2.1421E-05_JPRB/)
+KBO( :, 7, 6) = (/&
+&1.0291E+00_JPRB,1.1356E+00_JPRB,1.2744E+00_JPRB,1.4468E+00_JPRB,1.6524E+00_JPRB/)
+KBO( :, 8, 6) = (/&
+&6.9841E-01_JPRB,7.5208E-01_JPRB,8.2057E-01_JPRB,9.0373E-01_JPRB,9.9840E-01_JPRB/)
+KBO( :, 9, 6) = (/&
+&5.3286E-01_JPRB,5.5966E-01_JPRB,5.9440E-01_JPRB,6.3558E-01_JPRB,6.8341E-01_JPRB/)
+KBO( :,10, 6) = (/&
+&4.3919E-01_JPRB,4.5202E-01_JPRB,4.6857E-01_JPRB,4.9162E-01_JPRB,5.1919E-01_JPRB/)
+KBO( :,11, 6) = (/&
+&3.8169E-01_JPRB,3.9111E-01_JPRB,4.0234E-01_JPRB,4.1718E-01_JPRB,4.3612E-01_JPRB/)
+KBO( :,12, 6) = (/&
+&3.4191E-01_JPRB,3.5009E-01_JPRB,3.5940E-01_JPRB,3.7082E-01_JPRB,3.8567E-01_JPRB/)
+KBO( :,13, 6) = (/&
+&3.0165E-01_JPRB,3.0862E-01_JPRB,3.1605E-01_JPRB,3.2574E-01_JPRB,3.3792E-01_JPRB/)
+KBO( :,14, 6) = (/&
+&2.5298E-01_JPRB,2.5814E-01_JPRB,2.6338E-01_JPRB,2.6931E-01_JPRB,2.7664E-01_JPRB/)
+KBO( :,15, 6) = (/&
+&2.1273E-01_JPRB,2.1655E-01_JPRB,2.1994E-01_JPRB,2.2320E-01_JPRB,2.2726E-01_JPRB/)
+KBO( :,16, 6) = (/&
+&1.8046E-01_JPRB,1.8315E-01_JPRB,1.8531E-01_JPRB,1.8743E-01_JPRB,1.8993E-01_JPRB/)
+KBO( :,17, 6) = (/&
+&1.5223E-01_JPRB,1.5398E-01_JPRB,1.5534E-01_JPRB,1.5661E-01_JPRB,1.5779E-01_JPRB/)
+KBO( :,18, 6) = (/&
+&1.2778E-01_JPRB,1.2889E-01_JPRB,1.2966E-01_JPRB,1.3020E-01_JPRB,1.3052E-01_JPRB/)
+KBO( :,19, 6) = (/&
+&1.0640E-01_JPRB,1.0703E-01_JPRB,1.0732E-01_JPRB,1.0728E-01_JPRB,1.0716E-01_JPRB/)
+KBO( :,20, 6) = (/&
+&8.8470E-02_JPRB,8.8754E-02_JPRB,8.8701E-02_JPRB,8.8488E-02_JPRB,8.8284E-02_JPRB/)
+KBO( :,21, 6) = (/&
+&7.3231E-02_JPRB,7.3261E-02_JPRB,7.3087E-02_JPRB,7.2888E-02_JPRB,7.2674E-02_JPRB/)
+KBO( :,22, 6) = (/&
+&6.0317E-02_JPRB,6.0219E-02_JPRB,6.0056E-02_JPRB,5.9896E-02_JPRB,5.9688E-02_JPRB/)
+KBO( :,23, 6) = (/&
+&4.9481E-02_JPRB,4.9377E-02_JPRB,4.9249E-02_JPRB,4.9098E-02_JPRB,4.8909E-02_JPRB/)
+KBO( :,24, 6) = (/&
+&4.0434E-02_JPRB,4.0336E-02_JPRB,4.0225E-02_JPRB,4.0073E-02_JPRB,3.9896E-02_JPRB/)
+KBO( :,25, 6) = (/&
+&3.3025E-02_JPRB,3.2945E-02_JPRB,3.2829E-02_JPRB,3.2695E-02_JPRB,3.2543E-02_JPRB/)
+KBO( :,26, 6) = (/&
+&2.6990E-02_JPRB,2.6922E-02_JPRB,2.6821E-02_JPRB,2.6706E-02_JPRB,2.6588E-02_JPRB/)
+KBO( :,27, 6) = (/&
+&2.2079E-02_JPRB,2.2020E-02_JPRB,2.1942E-02_JPRB,2.1852E-02_JPRB,2.1768E-02_JPRB/)
+KBO( :,28, 6) = (/&
+&1.8069E-02_JPRB,1.8022E-02_JPRB,1.7962E-02_JPRB,1.7900E-02_JPRB,1.7838E-02_JPRB/)
+KBO( :,29, 6) = (/&
+&1.4852E-02_JPRB,1.4820E-02_JPRB,1.4781E-02_JPRB,1.4749E-02_JPRB,1.4702E-02_JPRB/)
+KBO( :,30, 6) = (/&
+&1.2224E-02_JPRB,1.2208E-02_JPRB,1.2195E-02_JPRB,1.2181E-02_JPRB,1.2148E-02_JPRB/)
+KBO( :,31, 6) = (/&
+&1.0105E-02_JPRB,1.0111E-02_JPRB,1.0120E-02_JPRB,1.0118E-02_JPRB,1.0103E-02_JPRB/)
+KBO( :,32, 6) = (/&
+&8.3725E-03_JPRB,8.4005E-03_JPRB,8.4201E-03_JPRB,8.4294E-03_JPRB,8.4380E-03_JPRB/)
+KBO( :,33, 6) = (/&
+&6.9608E-03_JPRB,6.9985E-03_JPRB,7.0246E-03_JPRB,7.0506E-03_JPRB,7.0801E-03_JPRB/)
+KBO( :,34, 6) = (/&
+&5.7896E-03_JPRB,5.8293E-03_JPRB,5.8636E-03_JPRB,5.9033E-03_JPRB,5.9423E-03_JPRB/)
+KBO( :,35, 6) = (/&
+&4.8109E-03_JPRB,4.8516E-03_JPRB,4.8942E-03_JPRB,4.9402E-03_JPRB,4.9858E-03_JPRB/)
+KBO( :,36, 6) = (/&
+&3.9871E-03_JPRB,4.0286E-03_JPRB,4.0750E-03_JPRB,4.1227E-03_JPRB,4.1698E-03_JPRB/)
+KBO( :,37, 6) = (/&
+&3.3096E-03_JPRB,3.3515E-03_JPRB,3.3976E-03_JPRB,3.4442E-03_JPRB,3.4909E-03_JPRB/)
+KBO( :,38, 6) = (/&
+&2.7496E-03_JPRB,2.7916E-03_JPRB,2.8359E-03_JPRB,2.8815E-03_JPRB,2.9281E-03_JPRB/)
+KBO( :,39, 6) = (/&
+&2.2877E-03_JPRB,2.3291E-03_JPRB,2.3716E-03_JPRB,2.4163E-03_JPRB,2.4637E-03_JPRB/)
+KBO( :,40, 6) = (/&
+&1.8936E-03_JPRB,1.9309E-03_JPRB,1.9696E-03_JPRB,2.0107E-03_JPRB,2.0549E-03_JPRB/)
+KBO( :,41, 6) = (/&
+&1.5662E-03_JPRB,1.5994E-03_JPRB,1.6345E-03_JPRB,1.6724E-03_JPRB,1.7133E-03_JPRB/)
+KBO( :,42, 6) = (/&
+&1.2955E-03_JPRB,1.3254E-03_JPRB,1.3573E-03_JPRB,1.3919E-03_JPRB,1.4291E-03_JPRB/)
+KBO( :,43, 6) = (/&
+&1.0710E-03_JPRB,1.0978E-03_JPRB,1.1266E-03_JPRB,1.1585E-03_JPRB,1.1927E-03_JPRB/)
+KBO( :,44, 6) = (/&
+&8.8505E-04_JPRB,9.0944E-04_JPRB,9.3598E-04_JPRB,9.6529E-04_JPRB,9.9625E-04_JPRB/)
+KBO( :,45, 6) = (/&
+&7.3173E-04_JPRB,7.5385E-04_JPRB,7.7814E-04_JPRB,8.0503E-04_JPRB,8.3318E-04_JPRB/)
+KBO( :,46, 6) = (/&
+&6.0428E-04_JPRB,6.2394E-04_JPRB,6.4629E-04_JPRB,6.7060E-04_JPRB,6.9612E-04_JPRB/)
+KBO( :,47, 6) = (/&
+&4.9743E-04_JPRB,5.1490E-04_JPRB,5.3489E-04_JPRB,5.5664E-04_JPRB,5.7933E-04_JPRB/)
+KBO( :,48, 6) = (/&
+&4.0957E-04_JPRB,4.2541E-04_JPRB,4.4342E-04_JPRB,4.6291E-04_JPRB,4.8300E-04_JPRB/)
+KBO( :,49, 6) = (/&
+&3.3774E-04_JPRB,3.5226E-04_JPRB,3.6850E-04_JPRB,3.8591E-04_JPRB,4.0393E-04_JPRB/)
+KBO( :,50, 6) = (/&
+&2.7754E-04_JPRB,2.9045E-04_JPRB,3.0466E-04_JPRB,3.1969E-04_JPRB,3.3544E-04_JPRB/)
+KBO( :,51, 6) = (/&
+&2.2753E-04_JPRB,2.3884E-04_JPRB,2.5106E-04_JPRB,2.6388E-04_JPRB,2.7745E-04_JPRB/)
+KBO( :,52, 6) = (/&
+&1.8669E-04_JPRB,1.9654E-04_JPRB,2.0712E-04_JPRB,2.1810E-04_JPRB,2.2988E-04_JPRB/)
+KBO( :,53, 6) = (/&
+&1.5338E-04_JPRB,1.6202E-04_JPRB,1.7120E-04_JPRB,1.8071E-04_JPRB,1.9105E-04_JPRB/)
+KBO( :,54, 6) = (/&
+&1.2486E-04_JPRB,1.3205E-04_JPRB,1.3971E-04_JPRB,1.4755E-04_JPRB,1.5604E-04_JPRB/)
+KBO( :,55, 6) = (/&
+&1.0106E-04_JPRB,1.0690E-04_JPRB,1.1311E-04_JPRB,1.1943E-04_JPRB,1.2616E-04_JPRB/)
+KBO( :,56, 6) = (/&
+&8.1771E-05_JPRB,8.6502E-05_JPRB,9.1586E-05_JPRB,9.6653E-05_JPRB,1.0202E-04_JPRB/)
+KBO( :,57, 6) = (/&
+&6.6144E-05_JPRB,6.9933E-05_JPRB,7.4136E-05_JPRB,7.8259E-05_JPRB,8.2530E-05_JPRB/)
+KBO( :,58, 6) = (/&
+&5.3465E-05_JPRB,5.6462E-05_JPRB,5.9920E-05_JPRB,6.3267E-05_JPRB,6.6666E-05_JPRB/)
+KBO( :,59, 6) = (/&
+&4.3125E-05_JPRB,4.5368E-05_JPRB,4.8072E-05_JPRB,5.0671E-05_JPRB,5.3226E-05_JPRB/)
+KBO( :, 7, 7) = (/&
+&1.6077E+00_JPRB,1.7981E+00_JPRB,2.0341E+00_JPRB,2.3365E+00_JPRB,2.7141E+00_JPRB/)
+KBO( :, 8, 7) = (/&
+&1.0311E+00_JPRB,1.1132E+00_JPRB,1.2137E+00_JPRB,1.3415E+00_JPRB,1.5087E+00_JPRB/)
+KBO( :, 9, 7) = (/&
+&7.6937E-01_JPRB,8.0602E-01_JPRB,8.5228E-01_JPRB,9.1262E-01_JPRB,9.8815E-01_JPRB/)
+KBO( :,10, 7) = (/&
+&6.4929E-01_JPRB,6.6760E-01_JPRB,6.9118E-01_JPRB,7.1882E-01_JPRB,7.5540E-01_JPRB/)
+KBO( :,11, 7) = (/&
+&5.9378E-01_JPRB,6.0842E-01_JPRB,6.2583E-01_JPRB,6.4567E-01_JPRB,6.6995E-01_JPRB/)
+KBO( :,12, 7) = (/&
+&5.6066E-01_JPRB,5.7335E-01_JPRB,5.8800E-01_JPRB,6.0558E-01_JPRB,6.2619E-01_JPRB/)
+KBO( :,13, 7) = (/&
+&5.2201E-01_JPRB,5.3299E-01_JPRB,5.4556E-01_JPRB,5.5961E-01_JPRB,5.7566E-01_JPRB/)
+KBO( :,14, 7) = (/&
+&4.6501E-01_JPRB,4.7434E-01_JPRB,4.8336E-01_JPRB,4.9210E-01_JPRB,5.0157E-01_JPRB/)
+KBO( :,15, 7) = (/&
+&4.1255E-01_JPRB,4.2030E-01_JPRB,4.2720E-01_JPRB,4.3352E-01_JPRB,4.3993E-01_JPRB/)
+KBO( :,16, 7) = (/&
+&3.6768E-01_JPRB,3.7401E-01_JPRB,3.7974E-01_JPRB,3.8485E-01_JPRB,3.8978E-01_JPRB/)
+KBO( :,17, 7) = (/&
+&3.2496E-01_JPRB,3.3013E-01_JPRB,3.3469E-01_JPRB,3.3855E-01_JPRB,3.4245E-01_JPRB/)
+KBO( :,18, 7) = (/&
+&2.8473E-01_JPRB,2.8863E-01_JPRB,2.9200E-01_JPRB,2.9483E-01_JPRB,2.9767E-01_JPRB/)
+KBO( :,19, 7) = (/&
+&2.4598E-01_JPRB,2.4883E-01_JPRB,2.5108E-01_JPRB,2.5281E-01_JPRB,2.5427E-01_JPRB/)
+KBO( :,20, 7) = (/&
+&2.1080E-01_JPRB,2.1273E-01_JPRB,2.1404E-01_JPRB,2.1479E-01_JPRB,2.1513E-01_JPRB/)
+KBO( :,21, 7) = (/&
+&1.7884E-01_JPRB,1.8005E-01_JPRB,1.8057E-01_JPRB,1.8053E-01_JPRB,1.8015E-01_JPRB/)
+KBO( :,22, 7) = (/&
+&1.5046E-01_JPRB,1.5096E-01_JPRB,1.5087E-01_JPRB,1.5039E-01_JPRB,1.4970E-01_JPRB/)
+KBO( :,23, 7) = (/&
+&1.2553E-01_JPRB,1.2553E-01_JPRB,1.2506E-01_JPRB,1.2444E-01_JPRB,1.2374E-01_JPRB/)
+KBO( :,24, 7) = (/&
+&1.0391E-01_JPRB,1.0358E-01_JPRB,1.0303E-01_JPRB,1.0238E-01_JPRB,1.0167E-01_JPRB/)
+KBO( :,25, 7) = (/&
+&8.5584E-02_JPRB,8.5157E-02_JPRB,8.4645E-02_JPRB,8.4056E-02_JPRB,8.3409E-02_JPRB/)
+KBO( :,26, 7) = (/&
+&7.0315E-02_JPRB,6.9930E-02_JPRB,6.9473E-02_JPRB,6.8949E-02_JPRB,6.8424E-02_JPRB/)
+KBO( :,27, 7) = (/&
+&5.7710E-02_JPRB,5.7391E-02_JPRB,5.7008E-02_JPRB,5.6586E-02_JPRB,5.6210E-02_JPRB/)
+KBO( :,28, 7) = (/&
+&4.7344E-02_JPRB,4.7085E-02_JPRB,4.6768E-02_JPRB,4.6467E-02_JPRB,4.6249E-02_JPRB/)
+KBO( :,29, 7) = (/&
+&3.8923E-02_JPRB,3.8733E-02_JPRB,3.8524E-02_JPRB,3.8372E-02_JPRB,3.8309E-02_JPRB/)
+KBO( :,30, 7) = (/&
+&3.2033E-02_JPRB,3.1913E-02_JPRB,3.1817E-02_JPRB,3.1789E-02_JPRB,3.1818E-02_JPRB/)
+KBO( :,31, 7) = (/&
+&2.6460E-02_JPRB,2.6427E-02_JPRB,2.6436E-02_JPRB,2.6518E-02_JPRB,2.6590E-02_JPRB/)
+KBO( :,32, 7) = (/&
+&2.1922E-02_JPRB,2.1964E-02_JPRB,2.2067E-02_JPRB,2.2187E-02_JPRB,2.2275E-02_JPRB/)
+KBO( :,33, 7) = (/&
+&1.8236E-02_JPRB,1.8348E-02_JPRB,1.8498E-02_JPRB,1.8631E-02_JPRB,1.8753E-02_JPRB/)
+KBO( :,34, 7) = (/&
+&1.5224E-02_JPRB,1.5383E-02_JPRB,1.5538E-02_JPRB,1.5679E-02_JPRB,1.5835E-02_JPRB/)
+KBO( :,35, 7) = (/&
+&1.2735E-02_JPRB,1.2900E-02_JPRB,1.3051E-02_JPRB,1.3209E-02_JPRB,1.3385E-02_JPRB/)
+KBO( :,36, 7) = (/&
+&1.0628E-02_JPRB,1.0788E-02_JPRB,1.0937E-02_JPRB,1.1102E-02_JPRB,1.1287E-02_JPRB/)
+KBO( :,37, 7) = (/&
+&8.9166E-03_JPRB,9.0712E-03_JPRB,9.2215E-03_JPRB,9.3908E-03_JPRB,9.5808E-03_JPRB/)
+KBO( :,38, 7) = (/&
+&7.4940E-03_JPRB,7.6454E-03_JPRB,7.7999E-03_JPRB,7.9731E-03_JPRB,8.1630E-03_JPRB/)
+KBO( :,39, 7) = (/&
+&6.3066E-03_JPRB,6.4579E-03_JPRB,6.6165E-03_JPRB,6.7948E-03_JPRB,6.9866E-03_JPRB/)
+KBO( :,40, 7) = (/&
+&5.2690E-03_JPRB,5.4111E-03_JPRB,5.5610E-03_JPRB,5.7292E-03_JPRB,5.9108E-03_JPRB/)
+KBO( :,41, 7) = (/&
+&4.3956E-03_JPRB,4.5258E-03_JPRB,4.6643E-03_JPRB,4.8199E-03_JPRB,4.9873E-03_JPRB/)
+KBO( :,42, 7) = (/&
+&3.6658E-03_JPRB,3.7854E-03_JPRB,3.9129E-03_JPRB,4.0544E-03_JPRB,4.2074E-03_JPRB/)
+KBO( :,43, 7) = (/&
+&3.0541E-03_JPRB,3.1620E-03_JPRB,3.2785E-03_JPRB,3.4070E-03_JPRB,3.5478E-03_JPRB/)
+KBO( :,44, 7) = (/&
+&2.5426E-03_JPRB,2.6415E-03_JPRB,2.7479E-03_JPRB,2.8645E-03_JPRB,2.9935E-03_JPRB/)
+KBO( :,45, 7) = (/&
+&2.1195E-03_JPRB,2.2094E-03_JPRB,2.3059E-03_JPRB,2.4121E-03_JPRB,2.5314E-03_JPRB/)
+KBO( :,46, 7) = (/&
+&1.7648E-03_JPRB,1.8463E-03_JPRB,1.9334E-03_JPRB,2.0302E-03_JPRB,2.1404E-03_JPRB/)
+KBO( :,47, 7) = (/&
+&1.4634E-03_JPRB,1.5361E-03_JPRB,1.6140E-03_JPRB,1.7015E-03_JPRB,1.8026E-03_JPRB/)
+KBO( :,48, 7) = (/&
+&1.2139E-03_JPRB,1.2801E-03_JPRB,1.3517E-03_JPRB,1.4311E-03_JPRB,1.5246E-03_JPRB/)
+KBO( :,49, 7) = (/&
+&1.0084E-03_JPRB,1.0696E-03_JPRB,1.1358E-03_JPRB,1.2100E-03_JPRB,1.2983E-03_JPRB/)
+KBO( :,50, 7) = (/&
+&8.3348E-04_JPRB,8.8778E-04_JPRB,9.4722E-04_JPRB,1.0145E-03_JPRB,1.0957E-03_JPRB/)
+KBO( :,51, 7) = (/&
+&6.8674E-04_JPRB,7.3388E-04_JPRB,7.8672E-04_JPRB,8.4662E-04_JPRB,9.1942E-04_JPRB/)
+KBO( :,52, 7) = (/&
+&5.6565E-04_JPRB,6.0707E-04_JPRB,6.5426E-04_JPRB,7.0839E-04_JPRB,7.7411E-04_JPRB/)
+KBO( :,53, 7) = (/&
+&4.6652E-04_JPRB,5.0305E-04_JPRB,5.4564E-04_JPRB,5.9512E-04_JPRB,6.5514E-04_JPRB/)
+KBO( :,54, 7) = (/&
+&3.8020E-04_JPRB,4.1066E-04_JPRB,4.4674E-04_JPRB,4.8863E-04_JPRB,5.3927E-04_JPRB/)
+KBO( :,55, 7) = (/&
+&3.0778E-04_JPRB,3.3217E-04_JPRB,3.6157E-04_JPRB,3.9555E-04_JPRB,4.3630E-04_JPRB/)
+KBO( :,56, 7) = (/&
+&2.4903E-04_JPRB,2.6857E-04_JPRB,2.9236E-04_JPRB,3.2037E-04_JPRB,3.5294E-04_JPRB/)
+KBO( :,57, 7) = (/&
+&2.0141E-04_JPRB,2.1696E-04_JPRB,2.3614E-04_JPRB,2.5898E-04_JPRB,2.8543E-04_JPRB/)
+KBO( :,58, 7) = (/&
+&1.6266E-04_JPRB,1.7505E-04_JPRB,1.9031E-04_JPRB,2.0880E-04_JPRB,2.2991E-04_JPRB/)
+KBO( :,59, 7) = (/&
+&1.3098E-04_JPRB,1.4063E-04_JPRB,1.5198E-04_JPRB,1.6574E-04_JPRB,1.8129E-04_JPRB/)
+KBO( :, 7, 8) = (/&
+&3.3211E+00_JPRB,3.8117E+00_JPRB,4.3961E+00_JPRB,5.0891E+00_JPRB,5.9185E+00_JPRB/)
+KBO( :, 8, 8) = (/&
+&1.8613E+00_JPRB,2.0568E+00_JPRB,2.2883E+00_JPRB,2.5535E+00_JPRB,2.8756E+00_JPRB/)
+KBO( :, 9, 8) = (/&
+&1.2496E+00_JPRB,1.3135E+00_JPRB,1.3903E+00_JPRB,1.4889E+00_JPRB,1.6200E+00_JPRB/)
+KBO( :,10, 8) = (/&
+&1.0270E+00_JPRB,1.0590E+00_JPRB,1.0952E+00_JPRB,1.1413E+00_JPRB,1.1993E+00_JPRB/)
+KBO( :,11, 8) = (/&
+&9.5413E-01_JPRB,9.8150E-01_JPRB,1.0111E+00_JPRB,1.0458E+00_JPRB,1.0870E+00_JPRB/)
+KBO( :,12, 8) = (/&
+&9.3205E-01_JPRB,9.5733E-01_JPRB,9.8351E-01_JPRB,1.0122E+00_JPRB,1.0457E+00_JPRB/)
+KBO( :,13, 8) = (/&
+&9.0876E-01_JPRB,9.3132E-01_JPRB,9.5428E-01_JPRB,9.7851E-01_JPRB,1.0060E+00_JPRB/)
+KBO( :,14, 8) = (/&
+&8.5246E-01_JPRB,8.7119E-01_JPRB,8.8993E-01_JPRB,9.0965E-01_JPRB,9.3087E-01_JPRB/)
+KBO( :,15, 8) = (/&
+&8.0357E-01_JPRB,8.1893E-01_JPRB,8.3481E-01_JPRB,8.5136E-01_JPRB,8.6824E-01_JPRB/)
+KBO( :,16, 8) = (/&
+&7.6497E-01_JPRB,7.7909E-01_JPRB,7.9306E-01_JPRB,8.0699E-01_JPRB,8.2094E-01_JPRB/)
+KBO( :,17, 8) = (/&
+&7.2426E-01_JPRB,7.3747E-01_JPRB,7.4973E-01_JPRB,7.6144E-01_JPRB,7.7249E-01_JPRB/)
+KBO( :,18, 8) = (/&
+&6.8011E-01_JPRB,6.9229E-01_JPRB,7.0291E-01_JPRB,7.1244E-01_JPRB,7.2174E-01_JPRB/)
+KBO( :,19, 8) = (/&
+&6.2929E-01_JPRB,6.4006E-01_JPRB,6.4901E-01_JPRB,6.5727E-01_JPRB,6.6513E-01_JPRB/)
+KBO( :,20, 8) = (/&
+&5.7567E-01_JPRB,5.8515E-01_JPRB,5.9318E-01_JPRB,6.0058E-01_JPRB,6.0766E-01_JPRB/)
+KBO( :,21, 8) = (/&
+&5.1892E-01_JPRB,5.2717E-01_JPRB,5.3431E-01_JPRB,5.4099E-01_JPRB,5.4743E-01_JPRB/)
+KBO( :,22, 8) = (/&
+&4.6089E-01_JPRB,4.6796E-01_JPRB,4.7423E-01_JPRB,4.8007E-01_JPRB,4.8563E-01_JPRB/)
+KBO( :,23, 8) = (/&
+&4.0358E-01_JPRB,4.0957E-01_JPRB,4.1496E-01_JPRB,4.1964E-01_JPRB,4.2400E-01_JPRB/)
+KBO( :,24, 8) = (/&
+&3.4857E-01_JPRB,3.5354E-01_JPRB,3.5772E-01_JPRB,3.6116E-01_JPRB,3.6425E-01_JPRB/)
+KBO( :,25, 8) = (/&
+&2.9819E-01_JPRB,3.0212E-01_JPRB,3.0511E-01_JPRB,3.0743E-01_JPRB,3.0973E-01_JPRB/)
+KBO( :,26, 8) = (/&
+&2.5341E-01_JPRB,2.5614E-01_JPRB,2.5815E-01_JPRB,2.5994E-01_JPRB,2.6173E-01_JPRB/)
+KBO( :,27, 8) = (/&
+&2.1391E-01_JPRB,2.1577E-01_JPRB,2.1730E-01_JPRB,2.1901E-01_JPRB,2.2050E-01_JPRB/)
+KBO( :,28, 8) = (/&
+&1.7949E-01_JPRB,1.8088E-01_JPRB,1.8241E-01_JPRB,1.8396E-01_JPRB,1.8539E-01_JPRB/)
+KBO( :,29, 8) = (/&
+&1.5049E-01_JPRB,1.5188E-01_JPRB,1.5349E-01_JPRB,1.5504E-01_JPRB,1.5657E-01_JPRB/)
+KBO( :,30, 8) = (/&
+&1.2605E-01_JPRB,1.2767E-01_JPRB,1.2921E-01_JPRB,1.3083E-01_JPRB,1.3263E-01_JPRB/)
+KBO( :,31, 8) = (/&
+&1.0607E-01_JPRB,1.0765E-01_JPRB,1.0930E-01_JPRB,1.1112E-01_JPRB,1.1342E-01_JPRB/)
+KBO( :,32, 8) = (/&
+&8.9368E-02_JPRB,9.1008E-02_JPRB,9.2774E-02_JPRB,9.4981E-02_JPRB,9.7872E-02_JPRB/)
+KBO( :,33, 8) = (/&
+&7.5524E-02_JPRB,7.7232E-02_JPRB,7.9299E-02_JPRB,8.2001E-02_JPRB,8.5510E-02_JPRB/)
+KBO( :,34, 8) = (/&
+&6.3951E-02_JPRB,6.5799E-02_JPRB,6.8200E-02_JPRB,7.1324E-02_JPRB,7.5176E-02_JPRB/)
+KBO( :,35, 8) = (/&
+&5.4154E-02_JPRB,5.6182E-02_JPRB,5.8823E-02_JPRB,6.2186E-02_JPRB,6.6087E-02_JPRB/)
+KBO( :,36, 8) = (/&
+&4.5779E-02_JPRB,4.7854E-02_JPRB,5.0601E-02_JPRB,5.3968E-02_JPRB,5.7802E-02_JPRB/)
+KBO( :,37, 8) = (/&
+&3.8721E-02_JPRB,4.0789E-02_JPRB,4.3532E-02_JPRB,4.6821E-02_JPRB,5.0588E-02_JPRB/)
+KBO( :,38, 8) = (/&
+&3.2891E-02_JPRB,3.4951E-02_JPRB,3.7677E-02_JPRB,4.0901E-02_JPRB,4.4641E-02_JPRB/)
+KBO( :,39, 8) = (/&
+&2.8118E-02_JPRB,3.0183E-02_JPRB,3.2884E-02_JPRB,3.6081E-02_JPRB,3.9837E-02_JPRB/)
+KBO( :,40, 8) = (/&
+&2.3847E-02_JPRB,2.5787E-02_JPRB,2.8347E-02_JPRB,3.1459E-02_JPRB,3.5061E-02_JPRB/)
+KBO( :,41, 8) = (/&
+&2.0268E-02_JPRB,2.2079E-02_JPRB,2.4495E-02_JPRB,2.7477E-02_JPRB,3.0979E-02_JPRB/)
+KBO( :,42, 8) = (/&
+&1.7304E-02_JPRB,1.9004E-02_JPRB,2.1294E-02_JPRB,2.4161E-02_JPRB,2.7579E-02_JPRB/)
+KBO( :,43, 8) = (/&
+&1.4797E-02_JPRB,1.6382E-02_JPRB,1.8537E-02_JPRB,2.1286E-02_JPRB,2.4610E-02_JPRB/)
+KBO( :,44, 8) = (/&
+&1.2690E-02_JPRB,1.4182E-02_JPRB,1.6231E-02_JPRB,1.8878E-02_JPRB,2.2106E-02_JPRB/)
+KBO( :,45, 8) = (/&
+&1.0930E-02_JPRB,1.2370E-02_JPRB,1.4353E-02_JPRB,1.6936E-02_JPRB,2.0100E-02_JPRB/)
+KBO( :,46, 8) = (/&
+&9.3910E-03_JPRB,1.0819E-02_JPRB,1.2738E-02_JPRB,1.5273E-02_JPRB,1.8465E-02_JPRB/)
+KBO( :,47, 8) = (/&
+&7.9861E-03_JPRB,9.3365E-03_JPRB,1.1203E-02_JPRB,1.3684E-02_JPRB,1.6817E-02_JPRB/)
+KBO( :,48, 8) = (/&
+&6.8013E-03_JPRB,8.0839E-03_JPRB,9.9438E-03_JPRB,1.2411E-02_JPRB,1.5563E-02_JPRB/)
+KBO( :,49, 8) = (/&
+&5.8190E-03_JPRB,7.0513E-03_JPRB,8.8856E-03_JPRB,1.1416E-02_JPRB,1.4708E-02_JPRB/)
+KBO( :,50, 8) = (/&
+&4.9304E-03_JPRB,6.0739E-03_JPRB,7.8186E-03_JPRB,1.0316E-02_JPRB,1.3667E-02_JPRB/)
+KBO( :,51, 8) = (/&
+&4.1610E-03_JPRB,5.1921E-03_JPRB,6.8130E-03_JPRB,9.2232E-03_JPRB,1.2553E-02_JPRB/)
+KBO( :,52, 8) = (/&
+&3.5138E-03_JPRB,4.4587E-03_JPRB,5.9783E-03_JPRB,8.3075E-03_JPRB,1.1637E-02_JPRB/)
+KBO( :,53, 8) = (/&
+&2.9769E-03_JPRB,3.8545E-03_JPRB,5.3084E-03_JPRB,7.5851E-03_JPRB,1.0949E-02_JPRB/)
+KBO( :,54, 8) = (/&
+&2.4427E-03_JPRB,3.1932E-03_JPRB,4.4660E-03_JPRB,6.5058E-03_JPRB,9.6124E-03_JPRB/)
+KBO( :,55, 8) = (/&
+&1.9622E-03_JPRB,2.5690E-03_JPRB,3.6206E-03_JPRB,5.3411E-03_JPRB,8.0479E-03_JPRB/)
+KBO( :,56, 8) = (/&
+&1.5709E-03_JPRB,2.0592E-03_JPRB,2.9210E-03_JPRB,4.3945E-03_JPRB,6.6922E-03_JPRB/)
+KBO( :,57, 8) = (/&
+&1.2535E-03_JPRB,1.6436E-03_JPRB,2.3438E-03_JPRB,3.5705E-03_JPRB,5.5260E-03_JPRB/)
+KBO( :,58, 8) = (/&
+&9.9517E-04_JPRB,1.3029E-03_JPRB,1.8612E-03_JPRB,2.8649E-03_JPRB,4.4948E-03_JPRB/)
+KBO( :,59, 8) = (/&
+&7.8554E-04_JPRB,1.0228E-03_JPRB,1.4402E-03_JPRB,2.2044E-03_JPRB,3.4577E-03_JPRB/)
+KBO( :, 7, 9) = (/&
+&8.6167E+00_JPRB,9.9993E+00_JPRB,1.1774E+01_JPRB,1.3928E+01_JPRB,1.6806E+01_JPRB/)
+KBO( :, 8, 9) = (/&
+&4.6456E+00_JPRB,5.1596E+00_JPRB,5.8731E+00_JPRB,6.7813E+00_JPRB,7.8273E+00_JPRB/)
+KBO( :, 9, 9) = (/&
+&2.8817E+00_JPRB,2.9866E+00_JPRB,3.1829E+00_JPRB,3.4539E+00_JPRB,3.7883E+00_JPRB/)
+KBO( :,10, 9) = (/&
+&2.1848E+00_JPRB,2.2145E+00_JPRB,2.2894E+00_JPRB,2.3929E+00_JPRB,2.5188E+00_JPRB/)
+KBO( :,11, 9) = (/&
+&1.8617E+00_JPRB,1.8904E+00_JPRB,1.9482E+00_JPRB,2.0265E+00_JPRB,2.1151E+00_JPRB/)
+KBO( :,12, 9) = (/&
+&1.7740E+00_JPRB,1.8058E+00_JPRB,1.8594E+00_JPRB,1.9279E+00_JPRB,2.0057E+00_JPRB/)
+KBO( :,13, 9) = (/&
+&1.7170E+00_JPRB,1.7519E+00_JPRB,1.8033E+00_JPRB,1.8660E+00_JPRB,1.9366E+00_JPRB/)
+KBO( :,14, 9) = (/&
+&1.6290E+00_JPRB,1.6661E+00_JPRB,1.7138E+00_JPRB,1.7672E+00_JPRB,1.8242E+00_JPRB/)
+KBO( :,15, 9) = (/&
+&1.6136E+00_JPRB,1.6519E+00_JPRB,1.6950E+00_JPRB,1.7410E+00_JPRB,1.7875E+00_JPRB/)
+KBO( :,16, 9) = (/&
+&1.6442E+00_JPRB,1.6834E+00_JPRB,1.7244E+00_JPRB,1.7672E+00_JPRB,1.8100E+00_JPRB/)
+KBO( :,17, 9) = (/&
+&1.6931E+00_JPRB,1.7318E+00_JPRB,1.7716E+00_JPRB,1.8124E+00_JPRB,1.8535E+00_JPRB/)
+KBO( :,18, 9) = (/&
+&1.7458E+00_JPRB,1.7837E+00_JPRB,1.8217E+00_JPRB,1.8608E+00_JPRB,1.8986E+00_JPRB/)
+KBO( :,19, 9) = (/&
+&1.7845E+00_JPRB,1.8215E+00_JPRB,1.8581E+00_JPRB,1.8942E+00_JPRB,1.9287E+00_JPRB/)
+KBO( :,20, 9) = (/&
+&1.8060E+00_JPRB,1.8426E+00_JPRB,1.8782E+00_JPRB,1.9127E+00_JPRB,1.9453E+00_JPRB/)
+KBO( :,21, 9) = (/&
+&1.8043E+00_JPRB,1.8411E+00_JPRB,1.8774E+00_JPRB,1.9117E+00_JPRB,1.9436E+00_JPRB/)
+KBO( :,22, 9) = (/&
+&1.7831E+00_JPRB,1.8215E+00_JPRB,1.8592E+00_JPRB,1.8938E+00_JPRB,1.9262E+00_JPRB/)
+KBO( :,23, 9) = (/&
+&1.7432E+00_JPRB,1.7837E+00_JPRB,1.8229E+00_JPRB,1.8594E+00_JPRB,1.8938E+00_JPRB/)
+KBO( :,24, 9) = (/&
+&1.6875E+00_JPRB,1.7308E+00_JPRB,1.7727E+00_JPRB,1.8123E+00_JPRB,1.8497E+00_JPRB/)
+KBO( :,25, 9) = (/&
+&1.6225E+00_JPRB,1.6694E+00_JPRB,1.7148E+00_JPRB,1.7578E+00_JPRB,1.7985E+00_JPRB/)
+KBO( :,26, 9) = (/&
+&1.5531E+00_JPRB,1.6049E+00_JPRB,1.6541E+00_JPRB,1.7008E+00_JPRB,1.7454E+00_JPRB/)
+KBO( :,27, 9) = (/&
+&1.4838E+00_JPRB,1.5403E+00_JPRB,1.5937E+00_JPRB,1.6447E+00_JPRB,1.6935E+00_JPRB/)
+KBO( :,28, 9) = (/&
+&1.4175E+00_JPRB,1.4786E+00_JPRB,1.5364E+00_JPRB,1.5921E+00_JPRB,1.6457E+00_JPRB/)
+KBO( :,29, 9) = (/&
+&1.3581E+00_JPRB,1.4237E+00_JPRB,1.4868E+00_JPRB,1.5478E+00_JPRB,1.6068E+00_JPRB/)
+KBO( :,30, 9) = (/&
+&1.3065E+00_JPRB,1.3770E+00_JPRB,1.4457E+00_JPRB,1.5119E+00_JPRB,1.5768E+00_JPRB/)
+KBO( :,31, 9) = (/&
+&1.2654E+00_JPRB,1.3417E+00_JPRB,1.4156E+00_JPRB,1.4877E+00_JPRB,1.5592E+00_JPRB/)
+KBO( :,32, 9) = (/&
+&1.2347E+00_JPRB,1.3163E+00_JPRB,1.3958E+00_JPRB,1.4744E+00_JPRB,1.5534E+00_JPRB/)
+KBO( :,33, 9) = (/&
+&1.2142E+00_JPRB,1.3012E+00_JPRB,1.3868E+00_JPRB,1.4727E+00_JPRB,1.5601E+00_JPRB/)
+KBO( :,34, 9) = (/&
+&1.1993E+00_JPRB,1.2916E+00_JPRB,1.3831E+00_JPRB,1.4762E+00_JPRB,1.5688E+00_JPRB/)
+KBO( :,35, 9) = (/&
+&1.1833E+00_JPRB,1.2807E+00_JPRB,1.3785E+00_JPRB,1.4785E+00_JPRB,1.5752E+00_JPRB/)
+KBO( :,36, 9) = (/&
+&1.1625E+00_JPRB,1.2651E+00_JPRB,1.3689E+00_JPRB,1.4743E+00_JPRB,1.5754E+00_JPRB/)
+KBO( :,37, 9) = (/&
+&1.1303E+00_JPRB,1.2371E+00_JPRB,1.3460E+00_JPRB,1.4555E+00_JPRB,1.5610E+00_JPRB/)
+KBO( :,38, 9) = (/&
+&1.1009E+00_JPRB,1.2122E+00_JPRB,1.3263E+00_JPRB,1.4399E+00_JPRB,1.5500E+00_JPRB/)
+KBO( :,39, 9) = (/&
+&1.0754E+00_JPRB,1.1914E+00_JPRB,1.3110E+00_JPRB,1.4289E+00_JPRB,1.5440E+00_JPRB/)
+KBO( :,40, 9) = (/&
+&1.0372E+00_JPRB,1.1560E+00_JPRB,1.2790E+00_JPRB,1.4000E+00_JPRB,1.5190E+00_JPRB/)
+KBO( :,41, 9) = (/&
+&9.9871E-01_JPRB,1.1200E+00_JPRB,1.2460E+00_JPRB,1.3704E+00_JPRB,1.4926E+00_JPRB/)
+KBO( :,42, 9) = (/&
+&9.6171E-01_JPRB,1.0854E+00_JPRB,1.2142E+00_JPRB,1.3421E+00_JPRB,1.4677E+00_JPRB/)
+KBO( :,43, 9) = (/&
+&9.1903E-01_JPRB,1.0445E+00_JPRB,1.1757E+00_JPRB,1.3075E+00_JPRB,1.4366E+00_JPRB/)
+KBO( :,44, 9) = (/&
+&8.7442E-01_JPRB,1.0015E+00_JPRB,1.1348E+00_JPRB,1.2703E+00_JPRB,1.4033E+00_JPRB/)
+KBO( :,45, 9) = (/&
+&8.3107E-01_JPRB,9.5973E-01_JPRB,1.0952E+00_JPRB,1.2344E+00_JPRB,1.3716E+00_JPRB/)
+KBO( :,46, 9) = (/&
+&7.8543E-01_JPRB,9.1559E-01_JPRB,1.0528E+00_JPRB,1.1955E+00_JPRB,1.3366E+00_JPRB/)
+KBO( :,47, 9) = (/&
+&7.3439E-01_JPRB,8.6539E-01_JPRB,1.0031E+00_JPRB,1.1485E+00_JPRB,1.2936E+00_JPRB/)
+KBO( :,48, 9) = (/&
+&6.8465E-01_JPRB,8.1643E-01_JPRB,9.5503E-01_JPRB,1.1032E+00_JPRB,1.2524E+00_JPRB/)
+KBO( :,49, 9) = (/&
+&6.3687E-01_JPRB,7.6933E-01_JPRB,9.0975E-01_JPRB,1.0608E+00_JPRB,1.2144E+00_JPRB/)
+KBO( :,50, 9) = (/&
+&5.9153E-01_JPRB,7.2348E-01_JPRB,8.6434E-01_JPRB,1.0167E+00_JPRB,1.1731E+00_JPRB/)
+KBO( :,51, 9) = (/&
+&5.4771E-01_JPRB,6.7868E-01_JPRB,8.1882E-01_JPRB,9.7145E-01_JPRB,1.1300E+00_JPRB/)
+KBO( :,52, 9) = (/&
+&5.0614E-01_JPRB,6.3574E-01_JPRB,7.7544E-01_JPRB,9.2863E-01_JPRB,1.0894E+00_JPRB/)
+KBO( :,53, 9) = (/&
+&4.6783E-01_JPRB,5.9578E-01_JPRB,7.3527E-01_JPRB,8.8939E-01_JPRB,1.0528E+00_JPRB/)
+KBO( :,54, 9) = (/&
+&4.2858E-01_JPRB,5.5309E-01_JPRB,6.8975E-01_JPRB,8.4016E-01_JPRB,1.0034E+00_JPRB/)
+KBO( :,55, 9) = (/&
+&3.8876E-01_JPRB,5.0900E-01_JPRB,6.4137E-01_JPRB,7.8611E-01_JPRB,9.4586E-01_JPRB/)
+KBO( :,56, 9) = (/&
+&3.5092E-01_JPRB,4.6656E-01_JPRB,5.9498E-01_JPRB,7.3470E-01_JPRB,8.8954E-01_JPRB/)
+KBO( :,57, 9) = (/&
+&3.1483E-01_JPRB,4.2575E-01_JPRB,5.4997E-01_JPRB,6.8552E-01_JPRB,8.3410E-01_JPRB/)
+KBO( :,58, 9) = (/&
+&2.8132E-01_JPRB,3.8740E-01_JPRB,5.0731E-01_JPRB,6.3876E-01_JPRB,7.8141E-01_JPRB/)
+KBO( :,59, 9) = (/&
+&2.6003E-01_JPRB,3.6342E-01_JPRB,4.7940E-01_JPRB,6.0625E-01_JPRB,7.4174E-01_JPRB/)
+KBO( :, 7,10) = (/&
+&1.5697E+01_JPRB,1.7679E+01_JPRB,2.1528E+01_JPRB,3.0021E+01_JPRB,4.1007E+01_JPRB/)
+KBO( :, 8,10) = (/&
+&9.2952E+00_JPRB,1.0046E+01_JPRB,1.1296E+01_JPRB,1.2956E+01_JPRB,1.5022E+01_JPRB/)
+KBO( :, 9,10) = (/&
+&6.0955E+00_JPRB,6.1520E+00_JPRB,6.4442E+00_JPRB,6.9113E+00_JPRB,7.6410E+00_JPRB/)
+KBO( :,10,10) = (/&
+&4.2479E+00_JPRB,4.2558E+00_JPRB,4.3823E+00_JPRB,4.5849E+00_JPRB,4.8443E+00_JPRB/)
+KBO( :,11,10) = (/&
+&3.5882E+00_JPRB,3.5777E+00_JPRB,3.6465E+00_JPRB,3.7844E+00_JPRB,3.9918E+00_JPRB/)
+KBO( :,12,10) = (/&
+&3.3077E+00_JPRB,3.3279E+00_JPRB,3.4118E+00_JPRB,3.5356E+00_JPRB,3.6964E+00_JPRB/)
+KBO( :,13,10) = (/&
+&3.1132E+00_JPRB,3.1610E+00_JPRB,3.2411E+00_JPRB,3.3566E+00_JPRB,3.4933E+00_JPRB/)
+KBO( :,14,10) = (/&
+&2.6876E+00_JPRB,2.7279E+00_JPRB,2.7858E+00_JPRB,2.8724E+00_JPRB,2.9756E+00_JPRB/)
+KBO( :,15,10) = (/&
+&2.5898E+00_JPRB,2.6527E+00_JPRB,2.7165E+00_JPRB,2.7974E+00_JPRB,2.8915E+00_JPRB/)
+KBO( :,16,10) = (/&
+&2.7402E+00_JPRB,2.8161E+00_JPRB,2.8979E+00_JPRB,2.9945E+00_JPRB,3.0907E+00_JPRB/)
+KBO( :,17,10) = (/&
+&2.9795E+00_JPRB,3.0670E+00_JPRB,3.1571E+00_JPRB,3.2540E+00_JPRB,3.3473E+00_JPRB/)
+KBO( :,18,10) = (/&
+&3.2307E+00_JPRB,3.3198E+00_JPRB,3.4108E+00_JPRB,3.5052E+00_JPRB,3.6016E+00_JPRB/)
+KBO( :,19,10) = (/&
+&3.4826E+00_JPRB,3.5697E+00_JPRB,3.6620E+00_JPRB,3.7547E+00_JPRB,3.8494E+00_JPRB/)
+KBO( :,20,10) = (/&
+&3.7406E+00_JPRB,3.8282E+00_JPRB,3.9146E+00_JPRB,4.0064E+00_JPRB,4.0952E+00_JPRB/)
+KBO( :,21,10) = (/&
+&4.0052E+00_JPRB,4.0906E+00_JPRB,4.1674E+00_JPRB,4.2500E+00_JPRB,4.3292E+00_JPRB/)
+KBO( :,22,10) = (/&
+&4.2533E+00_JPRB,4.3366E+00_JPRB,4.4069E+00_JPRB,4.4888E+00_JPRB,4.5601E+00_JPRB/)
+KBO( :,23,10) = (/&
+&4.4651E+00_JPRB,4.5450E+00_JPRB,4.6244E+00_JPRB,4.7038E+00_JPRB,4.7723E+00_JPRB/)
+KBO( :,24,10) = (/&
+&4.6357E+00_JPRB,4.7250E+00_JPRB,4.8121E+00_JPRB,4.8897E+00_JPRB,4.9609E+00_JPRB/)
+KBO( :,25,10) = (/&
+&4.7760E+00_JPRB,4.8704E+00_JPRB,4.9689E+00_JPRB,5.0528E+00_JPRB,5.1275E+00_JPRB/)
+KBO( :,26,10) = (/&
+&4.8874E+00_JPRB,4.9911E+00_JPRB,5.1002E+00_JPRB,5.1918E+00_JPRB,5.2692E+00_JPRB/)
+KBO( :,27,10) = (/&
+&4.9748E+00_JPRB,5.0953E+00_JPRB,5.2124E+00_JPRB,5.3083E+00_JPRB,5.3926E+00_JPRB/)
+KBO( :,28,10) = (/&
+&5.0502E+00_JPRB,5.1884E+00_JPRB,5.3119E+00_JPRB,5.4148E+00_JPRB,5.5003E+00_JPRB/)
+KBO( :,29,10) = (/&
+&5.1279E+00_JPRB,5.2762E+00_JPRB,5.4025E+00_JPRB,5.5131E+00_JPRB,5.6036E+00_JPRB/)
+KBO( :,30,10) = (/&
+&5.2044E+00_JPRB,5.3581E+00_JPRB,5.4889E+00_JPRB,5.6058E+00_JPRB,5.6994E+00_JPRB/)
+KBO( :,31,10) = (/&
+&5.2832E+00_JPRB,5.4378E+00_JPRB,5.5764E+00_JPRB,5.6975E+00_JPRB,5.7881E+00_JPRB/)
+KBO( :,32,10) = (/&
+&5.3589E+00_JPRB,5.5221E+00_JPRB,5.6642E+00_JPRB,5.7794E+00_JPRB,5.8684E+00_JPRB/)
+KBO( :,33,10) = (/&
+&5.4422E+00_JPRB,5.6051E+00_JPRB,5.7472E+00_JPRB,5.8589E+00_JPRB,5.9492E+00_JPRB/)
+KBO( :,34,10) = (/&
+&5.5143E+00_JPRB,5.6758E+00_JPRB,5.8184E+00_JPRB,5.9324E+00_JPRB,6.0581E+00_JPRB/)
+KBO( :,35,10) = (/&
+&5.5663E+00_JPRB,5.7307E+00_JPRB,5.8759E+00_JPRB,6.0007E+00_JPRB,6.1676E+00_JPRB/)
+KBO( :,36,10) = (/&
+&5.5957E+00_JPRB,5.7658E+00_JPRB,5.9172E+00_JPRB,6.0677E+00_JPRB,6.2475E+00_JPRB/)
+KBO( :,37,10) = (/&
+&5.5911E+00_JPRB,5.7698E+00_JPRB,5.9275E+00_JPRB,6.1033E+00_JPRB,6.2899E+00_JPRB/)
+KBO( :,38,10) = (/&
+&5.5847E+00_JPRB,5.7702E+00_JPRB,5.9359E+00_JPRB,6.1377E+00_JPRB,6.3291E+00_JPRB/)
+KBO( :,39,10) = (/&
+&5.5785E+00_JPRB,5.7701E+00_JPRB,5.9474E+00_JPRB,6.1752E+00_JPRB,6.3726E+00_JPRB/)
+KBO( :,40,10) = (/&
+&5.5411E+00_JPRB,5.7435E+00_JPRB,5.9235E+00_JPRB,6.1610E+00_JPRB,6.3723E+00_JPRB/)
+KBO( :,41,10) = (/&
+&5.4950E+00_JPRB,5.7121E+00_JPRB,5.8935E+00_JPRB,6.1377E+00_JPRB,6.3632E+00_JPRB/)
+KBO( :,42,10) = (/&
+&5.4435E+00_JPRB,5.6770E+00_JPRB,5.8638E+00_JPRB,6.1135E+00_JPRB,6.3531E+00_JPRB/)
+KBO( :,43,10) = (/&
+&5.3711E+00_JPRB,5.6253E+00_JPRB,5.8214E+00_JPRB,6.0734E+00_JPRB,6.3283E+00_JPRB/)
+KBO( :,44,10) = (/&
+&5.2841E+00_JPRB,5.5611E+00_JPRB,5.7743E+00_JPRB,6.0249E+00_JPRB,6.2949E+00_JPRB/)
+KBO( :,45,10) = (/&
+&5.1898E+00_JPRB,5.4904E+00_JPRB,5.7247E+00_JPRB,5.9791E+00_JPRB,6.2621E+00_JPRB/)
+KBO( :,46,10) = (/&
+&5.0867E+00_JPRB,5.4031E+00_JPRB,5.6642E+00_JPRB,5.9247E+00_JPRB,6.2201E+00_JPRB/)
+KBO( :,47,10) = (/&
+&4.9588E+00_JPRB,5.2939E+00_JPRB,5.5834E+00_JPRB,5.8490E+00_JPRB,6.1549E+00_JPRB/)
+KBO( :,48,10) = (/&
+&4.8216E+00_JPRB,5.1792E+00_JPRB,5.4914E+00_JPRB,5.7730E+00_JPRB,6.0921E+00_JPRB/)
+KBO( :,49,10) = (/&
+&4.6738E+00_JPRB,5.0604E+00_JPRB,5.3912E+00_JPRB,5.6961E+00_JPRB,6.0396E+00_JPRB/)
+KBO( :,50,10) = (/&
+&4.5187E+00_JPRB,4.9359E+00_JPRB,5.2845E+00_JPRB,5.6050E+00_JPRB,5.9698E+00_JPRB/)
+KBO( :,51,10) = (/&
+&4.3577E+00_JPRB,4.8020E+00_JPRB,5.1743E+00_JPRB,5.5057E+00_JPRB,5.8886E+00_JPRB/)
+KBO( :,52,10) = (/&
+&4.1875E+00_JPRB,4.6601E+00_JPRB,5.0599E+00_JPRB,5.4039E+00_JPRB,5.8085E+00_JPRB/)
+KBO( :,53,10) = (/&
+&4.0066E+00_JPRB,4.5088E+00_JPRB,4.9396E+00_JPRB,5.3035E+00_JPRB,5.7324E+00_JPRB/)
+KBO( :,54,10) = (/&
+&3.8264E+00_JPRB,4.3529E+00_JPRB,4.8099E+00_JPRB,5.1931E+00_JPRB,5.6043E+00_JPRB/)
+KBO( :,55,10) = (/&
+&3.6414E+00_JPRB,4.1888E+00_JPRB,4.6681E+00_JPRB,5.0739E+00_JPRB,5.4467E+00_JPRB/)
+KBO( :,56,10) = (/&
+&3.4467E+00_JPRB,4.0187E+00_JPRB,4.5175E+00_JPRB,4.9476E+00_JPRB,5.3119E+00_JPRB/)
+KBO( :,57,10) = (/&
+&3.2449E+00_JPRB,3.8431E+00_JPRB,4.3635E+00_JPRB,4.8167E+00_JPRB,5.1973E+00_JPRB/)
+KBO( :,58,10) = (/&
+&3.0504E+00_JPRB,3.6676E+00_JPRB,4.2101E+00_JPRB,4.6788E+00_JPRB,5.0833E+00_JPRB/)
+KBO( :,59,10) = (/&
+&2.9706E+00_JPRB,3.5768E+00_JPRB,4.1308E+00_JPRB,4.6019E+00_JPRB,5.0071E+00_JPRB/)
+KBO( :, 7,11) = (/&
+&1.7920E+01_JPRB,2.1641E+01_JPRB,2.9884E+01_JPRB,4.1982E+01_JPRB,5.8086E+01_JPRB/)
+KBO( :, 8,11) = (/&
+&1.1126E+01_JPRB,1.2099E+01_JPRB,1.3449E+01_JPRB,1.5213E+01_JPRB,1.8753E+01_JPRB/)
+KBO( :, 9,11) = (/&
+&7.7621E+00_JPRB,7.7863E+00_JPRB,8.0891E+00_JPRB,8.6591E+00_JPRB,9.4525E+00_JPRB/)
+KBO( :,10,11) = (/&
+&5.3764E+00_JPRB,5.3165E+00_JPRB,5.3549E+00_JPRB,5.6476E+00_JPRB,6.0580E+00_JPRB/)
+KBO( :,11,11) = (/&
+&4.4238E+00_JPRB,4.4268E+00_JPRB,4.4710E+00_JPRB,4.6447E+00_JPRB,4.9156E+00_JPRB/)
+KBO( :,12,11) = (/&
+&4.1742E+00_JPRB,4.1694E+00_JPRB,4.2134E+00_JPRB,4.3731E+00_JPRB,4.5989E+00_JPRB/)
+KBO( :,13,11) = (/&
+&3.8539E+00_JPRB,3.8850E+00_JPRB,3.9664E+00_JPRB,4.1051E+00_JPRB,4.2861E+00_JPRB/)
+KBO( :,14,11) = (/&
+&3.3455E+00_JPRB,3.3983E+00_JPRB,3.4591E+00_JPRB,3.5679E+00_JPRB,3.6998E+00_JPRB/)
+KBO( :,15,11) = (/&
+&3.0374E+00_JPRB,3.0982E+00_JPRB,3.1712E+00_JPRB,3.2728E+00_JPRB,3.3905E+00_JPRB/)
+KBO( :,16,11) = (/&
+&3.2400E+00_JPRB,3.3230E+00_JPRB,3.4115E+00_JPRB,3.5107E+00_JPRB,3.6327E+00_JPRB/)
+KBO( :,17,11) = (/&
+&3.5796E+00_JPRB,3.6714E+00_JPRB,3.7619E+00_JPRB,3.8672E+00_JPRB,3.9895E+00_JPRB/)
+KBO( :,18,11) = (/&
+&3.9339E+00_JPRB,4.0372E+00_JPRB,4.1451E+00_JPRB,4.2637E+00_JPRB,4.3878E+00_JPRB/)
+KBO( :,19,11) = (/&
+&4.3003E+00_JPRB,4.4193E+00_JPRB,4.5347E+00_JPRB,4.6623E+00_JPRB,4.7825E+00_JPRB/)
+KBO( :,20,11) = (/&
+&4.6837E+00_JPRB,4.8067E+00_JPRB,4.9249E+00_JPRB,5.0479E+00_JPRB,5.1713E+00_JPRB/)
+KBO( :,21,11) = (/&
+&5.0626E+00_JPRB,5.1843E+00_JPRB,5.2993E+00_JPRB,5.4194E+00_JPRB,5.5447E+00_JPRB/)
+KBO( :,22,11) = (/&
+&5.4464E+00_JPRB,5.5600E+00_JPRB,5.6663E+00_JPRB,5.7827E+00_JPRB,5.9026E+00_JPRB/)
+KBO( :,23,11) = (/&
+&5.8230E+00_JPRB,5.9290E+00_JPRB,6.0201E+00_JPRB,6.1295E+00_JPRB,6.2404E+00_JPRB/)
+KBO( :,24,11) = (/&
+&6.1873E+00_JPRB,6.2763E+00_JPRB,6.3564E+00_JPRB,6.4571E+00_JPRB,6.5535E+00_JPRB/)
+KBO( :,25,11) = (/&
+&6.5161E+00_JPRB,6.5971E+00_JPRB,6.6674E+00_JPRB,6.7623E+00_JPRB,6.8469E+00_JPRB/)
+KBO( :,26,11) = (/&
+&6.8093E+00_JPRB,6.8834E+00_JPRB,6.9596E+00_JPRB,7.0463E+00_JPRB,7.1184E+00_JPRB/)
+KBO( :,27,11) = (/&
+&7.0690E+00_JPRB,7.1424E+00_JPRB,7.2255E+00_JPRB,7.3026E+00_JPRB,7.3674E+00_JPRB/)
+KBO( :,28,11) = (/&
+&7.2957E+00_JPRB,7.3779E+00_JPRB,7.4665E+00_JPRB,7.5315E+00_JPRB,7.5874E+00_JPRB/)
+KBO( :,29,11) = (/&
+&7.4992E+00_JPRB,7.5961E+00_JPRB,7.6823E+00_JPRB,7.7381E+00_JPRB,7.7862E+00_JPRB/)
+KBO( :,30,11) = (/&
+&7.6816E+00_JPRB,7.7926E+00_JPRB,7.8689E+00_JPRB,7.9230E+00_JPRB,7.9632E+00_JPRB/)
+KBO( :,31,11) = (/&
+&7.8556E+00_JPRB,7.9647E+00_JPRB,8.0377E+00_JPRB,8.0903E+00_JPRB,8.1303E+00_JPRB/)
+KBO( :,32,11) = (/&
+&8.0202E+00_JPRB,8.1171E+00_JPRB,8.1880E+00_JPRB,8.2406E+00_JPRB,8.2756E+00_JPRB/)
+KBO( :,33,11) = (/&
+&8.1619E+00_JPRB,8.2627E+00_JPRB,8.3314E+00_JPRB,8.3764E+00_JPRB,8.4039E+00_JPRB/)
+KBO( :,34,11) = (/&
+&8.2897E+00_JPRB,8.3916E+00_JPRB,8.4495E+00_JPRB,8.4834E+00_JPRB,8.5104E+00_JPRB/)
+KBO( :,35,11) = (/&
+&8.3973E+00_JPRB,8.4969E+00_JPRB,8.5504E+00_JPRB,8.5788E+00_JPRB,8.6250E+00_JPRB/)
+KBO( :,36,11) = (/&
+&8.4783E+00_JPRB,8.5783E+00_JPRB,8.6329E+00_JPRB,8.6663E+00_JPRB,8.7603E+00_JPRB/)
+KBO( :,37,11) = (/&
+&8.5262E+00_JPRB,8.6348E+00_JPRB,8.6984E+00_JPRB,8.7369E+00_JPRB,8.8563E+00_JPRB/)
+KBO( :,38,11) = (/&
+&8.5648E+00_JPRB,8.6833E+00_JPRB,8.7565E+00_JPRB,8.8061E+00_JPRB,8.9518E+00_JPRB/)
+KBO( :,39,11) = (/&
+&8.5959E+00_JPRB,8.7278E+00_JPRB,8.8134E+00_JPRB,8.8823E+00_JPRB,9.0526E+00_JPRB/)
+KBO( :,40,11) = (/&
+&8.5957E+00_JPRB,8.7419E+00_JPRB,8.8442E+00_JPRB,8.9192E+00_JPRB,9.0935E+00_JPRB/)
+KBO( :,41,11) = (/&
+&8.5854E+00_JPRB,8.7451E+00_JPRB,8.8638E+00_JPRB,8.9464E+00_JPRB,9.1244E+00_JPRB/)
+KBO( :,42,11) = (/&
+&8.5691E+00_JPRB,8.7426E+00_JPRB,8.8772E+00_JPRB,8.9702E+00_JPRB,9.1549E+00_JPRB/)
+KBO( :,43,11) = (/&
+&8.5353E+00_JPRB,8.7238E+00_JPRB,8.8789E+00_JPRB,8.9815E+00_JPRB,9.1732E+00_JPRB/)
+KBO( :,44,11) = (/&
+&8.4888E+00_JPRB,8.6962E+00_JPRB,8.8660E+00_JPRB,8.9836E+00_JPRB,9.1847E+00_JPRB/)
+KBO( :,45,11) = (/&
+&8.4356E+00_JPRB,8.6623E+00_JPRB,8.8484E+00_JPRB,8.9837E+00_JPRB,9.1994E+00_JPRB/)
+KBO( :,46,11) = (/&
+&8.3622E+00_JPRB,8.6149E+00_JPRB,8.8200E+00_JPRB,8.9745E+00_JPRB,9.2060E+00_JPRB/)
+KBO( :,47,11) = (/&
+&8.2619E+00_JPRB,8.5445E+00_JPRB,8.7739E+00_JPRB,8.9475E+00_JPRB,9.1875E+00_JPRB/)
+KBO( :,48,11) = (/&
+&8.1513E+00_JPRB,8.4680E+00_JPRB,8.7219E+00_JPRB,8.9176E+00_JPRB,9.1678E+00_JPRB/)
+KBO( :,49,11) = (/&
+&8.0316E+00_JPRB,8.3787E+00_JPRB,8.6678E+00_JPRB,8.8862E+00_JPRB,9.1522E+00_JPRB/)
+KBO( :,50,11) = (/&
+&7.8984E+00_JPRB,8.2757E+00_JPRB,8.5998E+00_JPRB,8.8430E+00_JPRB,9.1103E+00_JPRB/)
+KBO( :,51,11) = (/&
+&7.7437E+00_JPRB,8.1650E+00_JPRB,8.5164E+00_JPRB,8.7904E+00_JPRB,9.0499E+00_JPRB/)
+KBO( :,52,11) = (/&
+&7.5822E+00_JPRB,8.0442E+00_JPRB,8.4217E+00_JPRB,8.7308E+00_JPRB,8.9942E+00_JPRB/)
+KBO( :,53,11) = (/&
+&7.4003E+00_JPRB,7.9114E+00_JPRB,8.3203E+00_JPRB,8.6646E+00_JPRB,8.9454E+00_JPRB/)
+KBO( :,54,11) = (/&
+&7.2039E+00_JPRB,7.7594E+00_JPRB,8.2013E+00_JPRB,8.5703E+00_JPRB,8.8555E+00_JPRB/)
+KBO( :,55,11) = (/&
+&6.9900E+00_JPRB,7.5960E+00_JPRB,8.0681E+00_JPRB,8.4581E+00_JPRB,8.7673E+00_JPRB/)
+KBO( :,56,11) = (/&
+&6.7720E+00_JPRB,7.4183E+00_JPRB,7.9272E+00_JPRB,8.3307E+00_JPRB,8.6758E+00_JPRB/)
+KBO( :,57,11) = (/&
+&6.5509E+00_JPRB,7.2181E+00_JPRB,7.7728E+00_JPRB,8.2049E+00_JPRB,8.5685E+00_JPRB/)
+KBO( :,58,11) = (/&
+&6.3303E+00_JPRB,7.0170E+00_JPRB,7.6150E+00_JPRB,8.0806E+00_JPRB,8.4555E+00_JPRB/)
+KBO( :,59,11) = (/&
+&6.2363E+00_JPRB,6.9228E+00_JPRB,7.5131E+00_JPRB,7.9939E+00_JPRB,8.3670E+00_JPRB/)
+KBO( :, 7,12) = (/&
+&2.2304E+01_JPRB,3.2911E+01_JPRB,4.6319E+01_JPRB,6.2557E+01_JPRB,8.3356E+01_JPRB/)
+KBO( :, 8,12) = (/&
+&1.3203E+01_JPRB,1.4115E+01_JPRB,1.5516E+01_JPRB,1.9088E+01_JPRB,2.6621E+01_JPRB/)
+KBO( :, 9,12) = (/&
+&9.6210E+00_JPRB,9.7022E+00_JPRB,9.9693E+00_JPRB,1.0635E+01_JPRB,1.1509E+01_JPRB/)
+KBO( :,10,12) = (/&
+&6.9200E+00_JPRB,6.8772E+00_JPRB,6.8479E+00_JPRB,7.1633E+00_JPRB,7.6773E+00_JPRB/)
+KBO( :,11,12) = (/&
+&5.3676E+00_JPRB,5.4048E+00_JPRB,5.4687E+00_JPRB,5.6602E+00_JPRB,5.9583E+00_JPRB/)
+KBO( :,12,12) = (/&
+&5.2136E+00_JPRB,5.2336E+00_JPRB,5.2831E+00_JPRB,5.4582E+00_JPRB,5.7388E+00_JPRB/)
+KBO( :,13,12) = (/&
+&4.8924E+00_JPRB,4.9073E+00_JPRB,4.9522E+00_JPRB,5.1280E+00_JPRB,5.3932E+00_JPRB/)
+KBO( :,14,12) = (/&
+&4.0853E+00_JPRB,4.1772E+00_JPRB,4.2731E+00_JPRB,4.4007E+00_JPRB,4.5816E+00_JPRB/)
+KBO( :,15,12) = (/&
+&3.8900E+00_JPRB,3.9892E+00_JPRB,4.0771E+00_JPRB,4.2126E+00_JPRB,4.4082E+00_JPRB/)
+KBO( :,16,12) = (/&
+&4.1327E+00_JPRB,4.2242E+00_JPRB,4.3125E+00_JPRB,4.4391E+00_JPRB,4.6138E+00_JPRB/)
+KBO( :,17,12) = (/&
+&4.4414E+00_JPRB,4.5415E+00_JPRB,4.6376E+00_JPRB,4.7581E+00_JPRB,4.9174E+00_JPRB/)
+KBO( :,18,12) = (/&
+&4.8741E+00_JPRB,4.9856E+00_JPRB,5.0865E+00_JPRB,5.2000E+00_JPRB,5.3496E+00_JPRB/)
+KBO( :,19,12) = (/&
+&5.3942E+00_JPRB,5.5159E+00_JPRB,5.6209E+00_JPRB,5.7303E+00_JPRB,5.8792E+00_JPRB/)
+KBO( :,20,12) = (/&
+&5.9449E+00_JPRB,6.0804E+00_JPRB,6.1977E+00_JPRB,6.3136E+00_JPRB,6.4625E+00_JPRB/)
+KBO( :,21,12) = (/&
+&6.5083E+00_JPRB,6.6571E+00_JPRB,6.7844E+00_JPRB,6.9105E+00_JPRB,7.0578E+00_JPRB/)
+KBO( :,22,12) = (/&
+&7.0948E+00_JPRB,7.2430E+00_JPRB,7.3777E+00_JPRB,7.5057E+00_JPRB,7.6548E+00_JPRB/)
+KBO( :,23,12) = (/&
+&7.6728E+00_JPRB,7.8216E+00_JPRB,7.9521E+00_JPRB,8.0848E+00_JPRB,8.2305E+00_JPRB/)
+KBO( :,24,12) = (/&
+&8.2357E+00_JPRB,8.3751E+00_JPRB,8.4992E+00_JPRB,8.6326E+00_JPRB,8.7728E+00_JPRB/)
+KBO( :,25,12) = (/&
+&8.7737E+00_JPRB,8.9042E+00_JPRB,9.0205E+00_JPRB,9.1429E+00_JPRB,9.2764E+00_JPRB/)
+KBO( :,26,12) = (/&
+&9.2933E+00_JPRB,9.4039E+00_JPRB,9.4975E+00_JPRB,9.6155E+00_JPRB,9.7364E+00_JPRB/)
+KBO( :,27,12) = (/&
+&9.7761E+00_JPRB,9.8603E+00_JPRB,9.9374E+00_JPRB,1.0052E+01_JPRB,1.0156E+01_JPRB/)
+KBO( :,28,12) = (/&
+&1.0209E+01_JPRB,1.0271E+01_JPRB,1.0341E+01_JPRB,1.0444E+01_JPRB,1.0534E+01_JPRB/)
+KBO( :,29,12) = (/&
+&1.0592E+01_JPRB,1.0638E+01_JPRB,1.0711E+01_JPRB,1.0795E+01_JPRB,1.0874E+01_JPRB/)
+KBO( :,30,12) = (/&
+&1.0926E+01_JPRB,1.0968E+01_JPRB,1.1042E+01_JPRB,1.1108E+01_JPRB,1.1175E+01_JPRB/)
+KBO( :,31,12) = (/&
+&1.1210E+01_JPRB,1.1270E+01_JPRB,1.1330E+01_JPRB,1.1391E+01_JPRB,1.1455E+01_JPRB/)
+KBO( :,32,12) = (/&
+&1.1473E+01_JPRB,1.1530E+01_JPRB,1.1583E+01_JPRB,1.1643E+01_JPRB,1.1703E+01_JPRB/)
+KBO( :,33,12) = (/&
+&1.1714E+01_JPRB,1.1754E+01_JPRB,1.1808E+01_JPRB,1.1874E+01_JPRB,1.1936E+01_JPRB/)
+KBO( :,34,12) = (/&
+&1.1910E+01_JPRB,1.1948E+01_JPRB,1.2008E+01_JPRB,1.2077E+01_JPRB,1.2125E+01_JPRB/)
+KBO( :,35,12) = (/&
+&1.2080E+01_JPRB,1.2122E+01_JPRB,1.2185E+01_JPRB,1.2249E+01_JPRB,1.2289E+01_JPRB/)
+KBO( :,36,12) = (/&
+&1.2230E+01_JPRB,1.2275E+01_JPRB,1.2329E+01_JPRB,1.2385E+01_JPRB,1.2434E+01_JPRB/)
+KBO( :,37,12) = (/&
+&1.2355E+01_JPRB,1.2395E+01_JPRB,1.2440E+01_JPRB,1.2491E+01_JPRB,1.2554E+01_JPRB/)
+KBO( :,38,12) = (/&
+&1.2468E+01_JPRB,1.2508E+01_JPRB,1.2543E+01_JPRB,1.2592E+01_JPRB,1.2683E+01_JPRB/)
+KBO( :,39,12) = (/&
+&1.2575E+01_JPRB,1.2612E+01_JPRB,1.2642E+01_JPRB,1.2692E+01_JPRB,1.2838E+01_JPRB/)
+KBO( :,40,12) = (/&
+&1.2650E+01_JPRB,1.2686E+01_JPRB,1.2711E+01_JPRB,1.2759E+01_JPRB,1.2904E+01_JPRB/)
+KBO( :,41,12) = (/&
+&1.2712E+01_JPRB,1.2745E+01_JPRB,1.2773E+01_JPRB,1.2817E+01_JPRB,1.2955E+01_JPRB/)
+KBO( :,42,12) = (/&
+&1.2767E+01_JPRB,1.2799E+01_JPRB,1.2828E+01_JPRB,1.2873E+01_JPRB,1.3007E+01_JPRB/)
+KBO( :,43,12) = (/&
+&1.2813E+01_JPRB,1.2848E+01_JPRB,1.2879E+01_JPRB,1.2924E+01_JPRB,1.3044E+01_JPRB/)
+KBO( :,44,12) = (/&
+&1.2854E+01_JPRB,1.2894E+01_JPRB,1.2928E+01_JPRB,1.2974E+01_JPRB,1.3081E+01_JPRB/)
+KBO( :,45,12) = (/&
+&1.2883E+01_JPRB,1.2938E+01_JPRB,1.2974E+01_JPRB,1.3025E+01_JPRB,1.3125E+01_JPRB/)
+KBO( :,46,12) = (/&
+&1.2900E+01_JPRB,1.2975E+01_JPRB,1.3019E+01_JPRB,1.3074E+01_JPRB,1.3167E+01_JPRB/)
+KBO( :,47,12) = (/&
+&1.2899E+01_JPRB,1.3003E+01_JPRB,1.3052E+01_JPRB,1.3111E+01_JPRB,1.3185E+01_JPRB/)
+KBO( :,48,12) = (/&
+&1.2888E+01_JPRB,1.3016E+01_JPRB,1.3084E+01_JPRB,1.3147E+01_JPRB,1.3217E+01_JPRB/)
+KBO( :,49,12) = (/&
+&1.2858E+01_JPRB,1.3028E+01_JPRB,1.3122E+01_JPRB,1.3196E+01_JPRB,1.3269E+01_JPRB/)
+KBO( :,50,12) = (/&
+&1.2801E+01_JPRB,1.3021E+01_JPRB,1.3135E+01_JPRB,1.3222E+01_JPRB,1.3293E+01_JPRB/)
+KBO( :,51,12) = (/&
+&1.2720E+01_JPRB,1.2990E+01_JPRB,1.3139E+01_JPRB,1.3235E+01_JPRB,1.3314E+01_JPRB/)
+KBO( :,52,12) = (/&
+&1.2625E+01_JPRB,1.2948E+01_JPRB,1.3140E+01_JPRB,1.3259E+01_JPRB,1.3347E+01_JPRB/)
+KBO( :,53,12) = (/&
+&1.2524E+01_JPRB,1.2897E+01_JPRB,1.3137E+01_JPRB,1.3283E+01_JPRB,1.3383E+01_JPRB/)
+KBO( :,54,12) = (/&
+&1.2387E+01_JPRB,1.2811E+01_JPRB,1.3084E+01_JPRB,1.3257E+01_JPRB,1.3377E+01_JPRB/)
+KBO( :,55,12) = (/&
+&1.2253E+01_JPRB,1.2679E+01_JPRB,1.3005E+01_JPRB,1.3202E+01_JPRB,1.3339E+01_JPRB/)
+KBO( :,56,12) = (/&
+&1.2121E+01_JPRB,1.2542E+01_JPRB,1.2916E+01_JPRB,1.3156E+01_JPRB,1.3289E+01_JPRB/)
+KBO( :,57,12) = (/&
+&1.1979E+01_JPRB,1.2408E+01_JPRB,1.2809E+01_JPRB,1.3086E+01_JPRB,1.3246E+01_JPRB/)
+KBO( :,58,12) = (/&
+&1.1823E+01_JPRB,1.2282E+01_JPRB,1.2681E+01_JPRB,1.3001E+01_JPRB,1.3194E+01_JPRB/)
+KBO( :,59,12) = (/&
+&1.1755E+01_JPRB,1.2232E+01_JPRB,1.2597E+01_JPRB,1.2896E+01_JPRB,1.3110E+01_JPRB/)
+KBO( :, 7,13) = (/&
+&3.5643E+01_JPRB,5.1949E+01_JPRB,7.4063E+01_JPRB,1.0270E+02_JPRB,1.3794E+02_JPRB/)
+KBO( :, 8,13) = (/&
+&1.5141E+01_JPRB,1.6031E+01_JPRB,1.9997E+01_JPRB,2.8469E+01_JPRB,4.0147E+01_JPRB/)
+KBO( :, 9,13) = (/&
+&1.1387E+01_JPRB,1.1580E+01_JPRB,1.1786E+01_JPRB,1.2550E+01_JPRB,1.3679E+01_JPRB/)
+KBO( :,10,13) = (/&
+&8.4794E+00_JPRB,8.5268E+00_JPRB,8.5378E+00_JPRB,8.7582E+00_JPRB,9.4039E+00_JPRB/)
+KBO( :,11,13) = (/&
+&6.6590E+00_JPRB,6.6857E+00_JPRB,6.6700E+00_JPRB,6.8819E+00_JPRB,7.3175E+00_JPRB/)
+KBO( :,12,13) = (/&
+&6.2717E+00_JPRB,6.3757E+00_JPRB,6.4443E+00_JPRB,6.6558E+00_JPRB,6.9844E+00_JPRB/)
+KBO( :,13,13) = (/&
+&6.0914E+00_JPRB,6.1740E+00_JPRB,6.2405E+00_JPRB,6.4377E+00_JPRB,6.7503E+00_JPRB/)
+KBO( :,14,13) = (/&
+&4.9794E+00_JPRB,5.0536E+00_JPRB,5.1492E+00_JPRB,5.3795E+00_JPRB,5.7518E+00_JPRB/)
+KBO( :,15,13) = (/&
+&5.1843E+00_JPRB,5.3190E+00_JPRB,5.4758E+00_JPRB,5.6793E+00_JPRB,6.0175E+00_JPRB/)
+KBO( :,16,13) = (/&
+&5.7049E+00_JPRB,5.8741E+00_JPRB,6.0283E+00_JPRB,6.2146E+00_JPRB,6.5273E+00_JPRB/)
+KBO( :,17,13) = (/&
+&6.2538E+00_JPRB,6.4179E+00_JPRB,6.5692E+00_JPRB,6.7387E+00_JPRB,7.0279E+00_JPRB/)
+KBO( :,18,13) = (/&
+&6.7525E+00_JPRB,6.9110E+00_JPRB,7.0637E+00_JPRB,7.2266E+00_JPRB,7.4943E+00_JPRB/)
+KBO( :,19,13) = (/&
+&7.2519E+00_JPRB,7.4118E+00_JPRB,7.5663E+00_JPRB,7.7263E+00_JPRB,7.9629E+00_JPRB/)
+KBO( :,20,13) = (/&
+&7.8324E+00_JPRB,7.9965E+00_JPRB,8.1590E+00_JPRB,8.3205E+00_JPRB,8.5444E+00_JPRB/)
+KBO( :,21,13) = (/&
+&8.5287E+00_JPRB,8.6915E+00_JPRB,8.8554E+00_JPRB,9.0146E+00_JPRB,9.2285E+00_JPRB/)
+KBO( :,22,13) = (/&
+&9.3469E+00_JPRB,9.5083E+00_JPRB,9.6626E+00_JPRB,9.8140E+00_JPRB,1.0022E+01_JPRB/)
+KBO( :,23,13) = (/&
+&1.0237E+01_JPRB,1.0396E+01_JPRB,1.0540E+01_JPRB,1.0676E+01_JPRB,1.0870E+01_JPRB/)
+KBO( :,24,13) = (/&
+&1.1146E+01_JPRB,1.1303E+01_JPRB,1.1436E+01_JPRB,1.1550E+01_JPRB,1.1722E+01_JPRB/)
+KBO( :,25,13) = (/&
+&1.2050E+01_JPRB,1.2190E+01_JPRB,1.2298E+01_JPRB,1.2397E+01_JPRB,1.2546E+01_JPRB/)
+KBO( :,26,13) = (/&
+&1.2909E+01_JPRB,1.3024E+01_JPRB,1.3107E+01_JPRB,1.3185E+01_JPRB,1.3314E+01_JPRB/)
+KBO( :,27,13) = (/&
+&1.3701E+01_JPRB,1.3792E+01_JPRB,1.3849E+01_JPRB,1.3913E+01_JPRB,1.4022E+01_JPRB/)
+KBO( :,28,13) = (/&
+&1.4427E+01_JPRB,1.4484E+01_JPRB,1.4511E+01_JPRB,1.4572E+01_JPRB,1.4654E+01_JPRB/)
+KBO( :,29,13) = (/&
+&1.5072E+01_JPRB,1.5093E+01_JPRB,1.5109E+01_JPRB,1.5170E+01_JPRB,1.5215E+01_JPRB/)
+KBO( :,30,13) = (/&
+&1.5628E+01_JPRB,1.5619E+01_JPRB,1.5649E+01_JPRB,1.5693E+01_JPRB,1.5715E+01_JPRB/)
+KBO( :,31,13) = (/&
+&1.6105E+01_JPRB,1.6099E+01_JPRB,1.6147E+01_JPRB,1.6155E+01_JPRB,1.6164E+01_JPRB/)
+KBO( :,32,13) = (/&
+&1.6511E+01_JPRB,1.6547E+01_JPRB,1.6576E+01_JPRB,1.6572E+01_JPRB,1.6565E+01_JPRB/)
+KBO( :,33,13) = (/&
+&1.6897E+01_JPRB,1.6951E+01_JPRB,1.6956E+01_JPRB,1.6944E+01_JPRB,1.6929E+01_JPRB/)
+KBO( :,34,13) = (/&
+&1.7252E+01_JPRB,1.7277E+01_JPRB,1.7273E+01_JPRB,1.7259E+01_JPRB,1.7247E+01_JPRB/)
+KBO( :,35,13) = (/&
+&1.7555E+01_JPRB,1.7563E+01_JPRB,1.7552E+01_JPRB,1.7549E+01_JPRB,1.7549E+01_JPRB/)
+KBO( :,36,13) = (/&
+&1.7803E+01_JPRB,1.7812E+01_JPRB,1.7811E+01_JPRB,1.7814E+01_JPRB,1.7805E+01_JPRB/)
+KBO( :,37,13) = (/&
+&1.8013E+01_JPRB,1.8025E+01_JPRB,1.8034E+01_JPRB,1.8035E+01_JPRB,1.8022E+01_JPRB/)
+KBO( :,38,13) = (/&
+&1.8201E+01_JPRB,1.8222E+01_JPRB,1.8247E+01_JPRB,1.8244E+01_JPRB,1.8226E+01_JPRB/)
+KBO( :,39,13) = (/&
+&1.8383E+01_JPRB,1.8417E+01_JPRB,1.8445E+01_JPRB,1.8444E+01_JPRB,1.8423E+01_JPRB/)
+KBO( :,40,13) = (/&
+&1.8521E+01_JPRB,1.8556E+01_JPRB,1.8589E+01_JPRB,1.8588E+01_JPRB,1.8570E+01_JPRB/)
+KBO( :,41,13) = (/&
+&1.8644E+01_JPRB,1.8681E+01_JPRB,1.8714E+01_JPRB,1.8712E+01_JPRB,1.8700E+01_JPRB/)
+KBO( :,42,13) = (/&
+&1.8752E+01_JPRB,1.8798E+01_JPRB,1.8834E+01_JPRB,1.8832E+01_JPRB,1.8827E+01_JPRB/)
+KBO( :,43,13) = (/&
+&1.8844E+01_JPRB,1.8901E+01_JPRB,1.8939E+01_JPRB,1.8943E+01_JPRB,1.8946E+01_JPRB/)
+KBO( :,44,13) = (/&
+&1.8930E+01_JPRB,1.8996E+01_JPRB,1.9046E+01_JPRB,1.9057E+01_JPRB,1.9063E+01_JPRB/)
+KBO( :,45,13) = (/&
+&1.9023E+01_JPRB,1.9089E+01_JPRB,1.9147E+01_JPRB,1.9171E+01_JPRB,1.9190E+01_JPRB/)
+KBO( :,46,13) = (/&
+&1.9108E+01_JPRB,1.9173E+01_JPRB,1.9241E+01_JPRB,1.9282E+01_JPRB,1.9317E+01_JPRB/)
+KBO( :,47,13) = (/&
+&1.9179E+01_JPRB,1.9235E+01_JPRB,1.9323E+01_JPRB,1.9378E+01_JPRB,1.9424E+01_JPRB/)
+KBO( :,48,13) = (/&
+&1.9259E+01_JPRB,1.9311E+01_JPRB,1.9403E+01_JPRB,1.9481E+01_JPRB,1.9542E+01_JPRB/)
+KBO( :,49,13) = (/&
+&1.9353E+01_JPRB,1.9401E+01_JPRB,1.9487E+01_JPRB,1.9582E+01_JPRB,1.9677E+01_JPRB/)
+KBO( :,50,13) = (/&
+&1.9435E+01_JPRB,1.9470E+01_JPRB,1.9546E+01_JPRB,1.9648E+01_JPRB,1.9775E+01_JPRB/)
+KBO( :,51,13) = (/&
+&1.9528E+01_JPRB,1.9522E+01_JPRB,1.9589E+01_JPRB,1.9698E+01_JPRB,1.9835E+01_JPRB/)
+KBO( :,52,13) = (/&
+&1.9619E+01_JPRB,1.9589E+01_JPRB,1.9648E+01_JPRB,1.9751E+01_JPRB,1.9897E+01_JPRB/)
+KBO( :,53,13) = (/&
+&1.9714E+01_JPRB,1.9664E+01_JPRB,1.9723E+01_JPRB,1.9814E+01_JPRB,1.9980E+01_JPRB/)
+KBO( :,54,13) = (/&
+&1.9804E+01_JPRB,1.9687E+01_JPRB,1.9738E+01_JPRB,1.9817E+01_JPRB,1.9959E+01_JPRB/)
+KBO( :,55,13) = (/&
+&1.9891E+01_JPRB,1.9703E+01_JPRB,1.9714E+01_JPRB,1.9787E+01_JPRB,1.9905E+01_JPRB/)
+KBO( :,56,13) = (/&
+&1.9968E+01_JPRB,1.9742E+01_JPRB,1.9687E+01_JPRB,1.9751E+01_JPRB,1.9853E+01_JPRB/)
+KBO( :,57,13) = (/&
+&2.0032E+01_JPRB,1.9814E+01_JPRB,1.9687E+01_JPRB,1.9714E+01_JPRB,1.9803E+01_JPRB/)
+KBO( :,58,13) = (/&
+&2.0080E+01_JPRB,1.9895E+01_JPRB,1.9702E+01_JPRB,1.9670E+01_JPRB,1.9752E+01_JPRB/)
+KBO( :,59,13) = (/&
+&2.0098E+01_JPRB,1.9929E+01_JPRB,1.9672E+01_JPRB,1.9573E+01_JPRB,1.9576E+01_JPRB/)
+KBO( :, 7,14) = (/&
+&9.1966E+01_JPRB,1.3562E+02_JPRB,1.9017E+02_JPRB,2.5592E+02_JPRB,3.3333E+02_JPRB/)
+KBO( :, 8,14) = (/&
+&2.2693E+01_JPRB,3.3411E+01_JPRB,4.8518E+01_JPRB,6.7308E+01_JPRB,8.9702E+01_JPRB/)
+KBO( :, 9,14) = (/&
+&1.2882E+01_JPRB,1.3153E+01_JPRB,1.3364E+01_JPRB,1.4883E+01_JPRB,2.1107E+01_JPRB/)
+KBO( :,10,14) = (/&
+&9.8362E+00_JPRB,9.9117E+00_JPRB,9.9648E+00_JPRB,1.0153E+01_JPRB,1.0885E+01_JPRB/)
+KBO( :,11,14) = (/&
+&7.9433E+00_JPRB,7.9973E+00_JPRB,8.0475E+00_JPRB,8.2315E+00_JPRB,8.7834E+00_JPRB/)
+KBO( :,12,14) = (/&
+&7.3895E+00_JPRB,7.4583E+00_JPRB,7.5219E+00_JPRB,7.7292E+00_JPRB,8.2231E+00_JPRB/)
+KBO( :,13,14) = (/&
+&7.1435E+00_JPRB,7.2885E+00_JPRB,7.3950E+00_JPRB,7.6192E+00_JPRB,8.1085E+00_JPRB/)
+KBO( :,14,14) = (/&
+&6.9992E+00_JPRB,7.1773E+00_JPRB,7.3399E+00_JPRB,7.5909E+00_JPRB,8.2289E+00_JPRB/)
+KBO( :,15,14) = (/&
+&7.9125E+00_JPRB,8.1063E+00_JPRB,8.2644E+00_JPRB,8.4250E+00_JPRB,8.8258E+00_JPRB/)
+KBO( :,16,14) = (/&
+&8.8516E+00_JPRB,9.0393E+00_JPRB,9.2237E+00_JPRB,9.3959E+00_JPRB,9.6957E+00_JPRB/)
+KBO( :,17,14) = (/&
+&9.8145E+00_JPRB,1.0045E+01_JPRB,1.0264E+01_JPRB,1.0472E+01_JPRB,1.0729E+01_JPRB/)
+KBO( :,18,14) = (/&
+&1.0863E+01_JPRB,1.1143E+01_JPRB,1.1400E+01_JPRB,1.1634E+01_JPRB,1.1884E+01_JPRB/)
+KBO( :,19,14) = (/&
+&1.1987E+01_JPRB,1.2302E+01_JPRB,1.2594E+01_JPRB,1.2857E+01_JPRB,1.3115E+01_JPRB/)
+KBO( :,20,14) = (/&
+&1.3163E+01_JPRB,1.3504E+01_JPRB,1.3819E+01_JPRB,1.4119E+01_JPRB,1.4393E+01_JPRB/)
+KBO( :,21,14) = (/&
+&1.4360E+01_JPRB,1.4728E+01_JPRB,1.5076E+01_JPRB,1.5394E+01_JPRB,1.5681E+01_JPRB/)
+KBO( :,22,14) = (/&
+&1.5564E+01_JPRB,1.5972E+01_JPRB,1.6343E+01_JPRB,1.6667E+01_JPRB,1.6964E+01_JPRB/)
+KBO( :,23,14) = (/&
+&1.6820E+01_JPRB,1.7233E+01_JPRB,1.7594E+01_JPRB,1.7909E+01_JPRB,1.8214E+01_JPRB/)
+KBO( :,24,14) = (/&
+&1.8109E+01_JPRB,1.8494E+01_JPRB,1.8826E+01_JPRB,1.9111E+01_JPRB,1.9401E+01_JPRB/)
+KBO( :,25,14) = (/&
+&1.9392E+01_JPRB,1.9724E+01_JPRB,2.0018E+01_JPRB,2.0268E+01_JPRB,2.0538E+01_JPRB/)
+KBO( :,26,14) = (/&
+&2.0628E+01_JPRB,2.0920E+01_JPRB,2.1173E+01_JPRB,2.1372E+01_JPRB,2.1625E+01_JPRB/)
+KBO( :,27,14) = (/&
+&2.1805E+01_JPRB,2.2040E+01_JPRB,2.2243E+01_JPRB,2.2391E+01_JPRB,2.2631E+01_JPRB/)
+KBO( :,28,14) = (/&
+&2.2897E+01_JPRB,2.3059E+01_JPRB,2.3185E+01_JPRB,2.3305E+01_JPRB,2.3583E+01_JPRB/)
+KBO( :,29,14) = (/&
+&2.3866E+01_JPRB,2.3956E+01_JPRB,2.4031E+01_JPRB,2.4181E+01_JPRB,2.4577E+01_JPRB/)
+KBO( :,30,14) = (/&
+&2.4714E+01_JPRB,2.4744E+01_JPRB,2.4786E+01_JPRB,2.5037E+01_JPRB,2.5553E+01_JPRB/)
+KBO( :,31,14) = (/&
+&2.5442E+01_JPRB,2.5420E+01_JPRB,2.5528E+01_JPRB,2.5980E+01_JPRB,2.6575E+01_JPRB/)
+KBO( :,32,14) = (/&
+&2.6060E+01_JPRB,2.6042E+01_JPRB,2.6355E+01_JPRB,2.6934E+01_JPRB,2.7574E+01_JPRB/)
+KBO( :,33,14) = (/&
+&2.6582E+01_JPRB,2.6720E+01_JPRB,2.7257E+01_JPRB,2.7902E+01_JPRB,2.8582E+01_JPRB/)
+KBO( :,34,14) = (/&
+&2.7091E+01_JPRB,2.7462E+01_JPRB,2.8092E+01_JPRB,2.8769E+01_JPRB,2.9492E+01_JPRB/)
+KBO( :,35,14) = (/&
+&2.7632E+01_JPRB,2.8159E+01_JPRB,2.8835E+01_JPRB,2.9549E+01_JPRB,3.0321E+01_JPRB/)
+KBO( :,36,14) = (/&
+&2.8159E+01_JPRB,2.8745E+01_JPRB,2.9458E+01_JPRB,3.0219E+01_JPRB,3.1043E+01_JPRB/)
+KBO( :,37,14) = (/&
+&2.8540E+01_JPRB,2.9146E+01_JPRB,2.9877E+01_JPRB,3.0672E+01_JPRB,3.1544E+01_JPRB/)
+KBO( :,38,14) = (/&
+&2.8901E+01_JPRB,2.9532E+01_JPRB,3.0283E+01_JPRB,3.1140E+01_JPRB,3.2071E+01_JPRB/)
+KBO( :,39,14) = (/&
+&2.9260E+01_JPRB,2.9925E+01_JPRB,3.0734E+01_JPRB,3.1664E+01_JPRB,3.2694E+01_JPRB/)
+KBO( :,40,14) = (/&
+&2.9430E+01_JPRB,3.0093E+01_JPRB,3.0912E+01_JPRB,3.1873E+01_JPRB,3.2935E+01_JPRB/)
+KBO( :,41,14) = (/&
+&2.9569E+01_JPRB,3.0227E+01_JPRB,3.1048E+01_JPRB,3.2034E+01_JPRB,3.3124E+01_JPRB/)
+KBO( :,42,14) = (/&
+&2.9715E+01_JPRB,3.0354E+01_JPRB,3.1194E+01_JPRB,3.2201E+01_JPRB,3.3328E+01_JPRB/)
+KBO( :,43,14) = (/&
+&2.9833E+01_JPRB,3.0439E+01_JPRB,3.1280E+01_JPRB,3.2309E+01_JPRB,3.3467E+01_JPRB/)
+KBO( :,44,14) = (/&
+&2.9941E+01_JPRB,3.0510E+01_JPRB,3.1343E+01_JPRB,3.2396E+01_JPRB,3.3596E+01_JPRB/)
+KBO( :,45,14) = (/&
+&3.0066E+01_JPRB,3.0604E+01_JPRB,3.1448E+01_JPRB,3.2529E+01_JPRB,3.3774E+01_JPRB/)
+KBO( :,46,14) = (/&
+&3.0186E+01_JPRB,3.0696E+01_JPRB,3.1535E+01_JPRB,3.2640E+01_JPRB,3.3926E+01_JPRB/)
+KBO( :,47,14) = (/&
+&3.0293E+01_JPRB,3.0717E+01_JPRB,3.1531E+01_JPRB,3.2630E+01_JPRB,3.3950E+01_JPRB/)
+KBO( :,48,14) = (/&
+&3.0429E+01_JPRB,3.0794E+01_JPRB,3.1577E+01_JPRB,3.2679E+01_JPRB,3.4060E+01_JPRB/)
+KBO( :,49,14) = (/&
+&3.0616E+01_JPRB,3.0920E+01_JPRB,3.1697E+01_JPRB,3.2833E+01_JPRB,3.4261E+01_JPRB/)
+KBO( :,50,14) = (/&
+&3.0818E+01_JPRB,3.0958E+01_JPRB,3.1730E+01_JPRB,3.2862E+01_JPRB,3.4287E+01_JPRB/)
+KBO( :,51,14) = (/&
+&3.1037E+01_JPRB,3.0997E+01_JPRB,3.1705E+01_JPRB,3.2813E+01_JPRB,3.4237E+01_JPRB/)
+KBO( :,52,14) = (/&
+&3.1309E+01_JPRB,3.1076E+01_JPRB,3.1722E+01_JPRB,3.2817E+01_JPRB,3.4252E+01_JPRB/)
+KBO( :,53,14) = (/&
+&3.1610E+01_JPRB,3.1224E+01_JPRB,3.1798E+01_JPRB,3.2922E+01_JPRB,3.4372E+01_JPRB/)
+KBO( :,54,14) = (/&
+&3.1900E+01_JPRB,3.1278E+01_JPRB,3.1648E+01_JPRB,3.2670E+01_JPRB,3.4089E+01_JPRB/)
+KBO( :,55,14) = (/&
+&3.2210E+01_JPRB,3.1399E+01_JPRB,3.1421E+01_JPRB,3.2230E+01_JPRB,3.3508E+01_JPRB/)
+KBO( :,56,14) = (/&
+&3.2550E+01_JPRB,3.1633E+01_JPRB,3.1312E+01_JPRB,3.1877E+01_JPRB,3.2983E+01_JPRB/)
+KBO( :,57,14) = (/&
+&3.2910E+01_JPRB,3.1902E+01_JPRB,3.1284E+01_JPRB,3.1616E+01_JPRB,3.2534E+01_JPRB/)
+KBO( :,58,14) = (/&
+&3.3271E+01_JPRB,3.2188E+01_JPRB,3.1382E+01_JPRB,3.1393E+01_JPRB,3.2095E+01_JPRB/)
+KBO( :,59,14) = (/&
+&3.3433E+01_JPRB,3.2317E+01_JPRB,3.1456E+01_JPRB,3.1063E+01_JPRB,3.1513E+01_JPRB/)
+KBO( :, 7,15) = (/&
+&2.8363E+02_JPRB,4.1355E+02_JPRB,5.7180E+02_JPRB,7.5690E+02_JPRB,9.6654E+02_JPRB/)
+KBO( :, 8,15) = (/&
+&7.4865E+01_JPRB,1.1268E+02_JPRB,1.5979E+02_JPRB,2.1605E+02_JPRB,2.8202E+02_JPRB/)
+KBO( :, 9,15) = (/&
+&1.4273E+01_JPRB,1.7483E+01_JPRB,2.3317E+01_JPRB,3.2081E+01_JPRB,4.4022E+01_JPRB/)
+KBO( :,10,15) = (/&
+&1.0822E+01_JPRB,1.0897E+01_JPRB,1.0977E+01_JPRB,1.1194E+01_JPRB,1.5009E+01_JPRB/)
+KBO( :,11,15) = (/&
+&8.8651E+00_JPRB,8.9560E+00_JPRB,9.0304E+00_JPRB,9.2295E+00_JPRB,1.2083E+01_JPRB/)
+KBO( :,12,15) = (/&
+&8.4071E+00_JPRB,8.4990E+00_JPRB,8.5668E+00_JPRB,8.7783E+00_JPRB,1.1395E+01_JPRB/)
+KBO( :,13,15) = (/&
+&7.8874E+00_JPRB,8.0981E+00_JPRB,8.3286E+00_JPRB,8.6740E+00_JPRB,1.0797E+01_JPRB/)
+KBO( :,14,15) = (/&
+&9.0700E+00_JPRB,9.4397E+00_JPRB,9.7504E+00_JPRB,1.0023E+01_JPRB,1.0663E+01_JPRB/)
+KBO( :,15,15) = (/&
+&1.0836E+01_JPRB,1.1231E+01_JPRB,1.1580E+01_JPRB,1.1881E+01_JPRB,1.2185E+01_JPRB/)
+KBO( :,16,15) = (/&
+&1.2867E+01_JPRB,1.3302E+01_JPRB,1.3683E+01_JPRB,1.4016E+01_JPRB,1.4292E+01_JPRB/)
+KBO( :,17,15) = (/&
+&1.5179E+01_JPRB,1.5649E+01_JPRB,1.6067E+01_JPRB,1.6423E+01_JPRB,1.6719E+01_JPRB/)
+KBO( :,18,15) = (/&
+&1.7779E+01_JPRB,1.8278E+01_JPRB,1.8717E+01_JPRB,1.9093E+01_JPRB,1.9383E+01_JPRB/)
+KBO( :,19,15) = (/&
+&2.0642E+01_JPRB,2.1170E+01_JPRB,2.1612E+01_JPRB,2.1976E+01_JPRB,2.2234E+01_JPRB/)
+KBO( :,20,15) = (/&
+&2.3750E+01_JPRB,2.4283E+01_JPRB,2.4723E+01_JPRB,2.5032E+01_JPRB,2.5262E+01_JPRB/)
+KBO( :,21,15) = (/&
+&2.7026E+01_JPRB,2.7553E+01_JPRB,2.7924E+01_JPRB,2.8192E+01_JPRB,2.8376E+01_JPRB/)
+KBO( :,22,15) = (/&
+&3.0466E+01_JPRB,3.0907E+01_JPRB,3.1208E+01_JPRB,3.1413E+01_JPRB,3.1533E+01_JPRB/)
+KBO( :,23,15) = (/&
+&3.3884E+01_JPRB,3.4236E+01_JPRB,3.4483E+01_JPRB,3.4605E+01_JPRB,3.4634E+01_JPRB/)
+KBO( :,24,15) = (/&
+&3.7294E+01_JPRB,3.7565E+01_JPRB,3.7709E+01_JPRB,3.7756E+01_JPRB,3.7674E+01_JPRB/)
+KBO( :,25,15) = (/&
+&4.0647E+01_JPRB,4.0822E+01_JPRB,4.0862E+01_JPRB,4.0770E+01_JPRB,4.0545E+01_JPRB/)
+KBO( :,26,15) = (/&
+&4.3918E+01_JPRB,4.3923E+01_JPRB,4.3794E+01_JPRB,4.3551E+01_JPRB,4.3172E+01_JPRB/)
+KBO( :,27,15) = (/&
+&4.6948E+01_JPRB,4.6779E+01_JPRB,4.6473E+01_JPRB,4.6062E+01_JPRB,4.5548E+01_JPRB/)
+KBO( :,28,15) = (/&
+&4.9671E+01_JPRB,4.9327E+01_JPRB,4.8876E+01_JPRB,4.8297E+01_JPRB,4.7637E+01_JPRB/)
+KBO( :,29,15) = (/&
+&5.2077E+01_JPRB,5.1573E+01_JPRB,5.0947E+01_JPRB,5.0200E+01_JPRB,4.9391E+01_JPRB/)
+KBO( :,30,15) = (/&
+&5.4175E+01_JPRB,5.3476E+01_JPRB,5.2686E+01_JPRB,5.1783E+01_JPRB,5.0979E+01_JPRB/)
+KBO( :,31,15) = (/&
+&5.5918E+01_JPRB,5.5055E+01_JPRB,5.4106E+01_JPRB,5.3112E+01_JPRB,5.2750E+01_JPRB/)
+KBO( :,32,15) = (/&
+&5.7323E+01_JPRB,5.6310E+01_JPRB,5.5227E+01_JPRB,5.4570E+01_JPRB,5.5133E+01_JPRB/)
+KBO( :,33,15) = (/&
+&5.8423E+01_JPRB,5.7290E+01_JPRB,5.6381E+01_JPRB,5.6660E+01_JPRB,5.8115E+01_JPRB/)
+KBO( :,34,15) = (/&
+&5.9305E+01_JPRB,5.8151E+01_JPRB,5.7902E+01_JPRB,5.9181E+01_JPRB,6.1024E+01_JPRB/)
+KBO( :,35,15) = (/&
+&6.0090E+01_JPRB,5.9220E+01_JPRB,5.9907E+01_JPRB,6.1721E+01_JPRB,6.3818E+01_JPRB/)
+KBO( :,36,15) = (/&
+&6.0898E+01_JPRB,6.0514E+01_JPRB,6.1931E+01_JPRB,6.4064E+01_JPRB,6.6503E+01_JPRB/)
+KBO( :,37,15) = (/&
+&6.1807E+01_JPRB,6.1684E+01_JPRB,6.3418E+01_JPRB,6.5762E+01_JPRB,6.8620E+01_JPRB/)
+KBO( :,38,15) = (/&
+&6.2675E+01_JPRB,6.2924E+01_JPRB,6.5022E+01_JPRB,6.7556E+01_JPRB,7.1076E+01_JPRB/)
+KBO( :,39,15) = (/&
+&6.3549E+01_JPRB,6.4372E+01_JPRB,6.6780E+01_JPRB,6.9607E+01_JPRB,7.4223E+01_JPRB/)
+KBO( :,40,15) = (/&
+&6.4290E+01_JPRB,6.5073E+01_JPRB,6.7567E+01_JPRB,7.0533E+01_JPRB,7.5366E+01_JPRB/)
+KBO( :,41,15) = (/&
+&6.4963E+01_JPRB,6.5642E+01_JPRB,6.8216E+01_JPRB,7.1296E+01_JPRB,7.6285E+01_JPRB/)
+KBO( :,42,15) = (/&
+&6.5588E+01_JPRB,6.6218E+01_JPRB,6.8898E+01_JPRB,7.2126E+01_JPRB,7.7367E+01_JPRB/)
+KBO( :,43,15) = (/&
+&6.6237E+01_JPRB,6.6662E+01_JPRB,6.9435E+01_JPRB,7.2789E+01_JPRB,7.8130E+01_JPRB/)
+KBO( :,44,15) = (/&
+&6.6904E+01_JPRB,6.7116E+01_JPRB,6.9940E+01_JPRB,7.3441E+01_JPRB,7.8892E+01_JPRB/)
+KBO( :,45,15) = (/&
+&6.7540E+01_JPRB,6.7647E+01_JPRB,7.0523E+01_JPRB,7.4251E+01_JPRB,7.9999E+01_JPRB/)
+KBO( :,46,15) = (/&
+&6.8229E+01_JPRB,6.8156E+01_JPRB,7.1033E+01_JPRB,7.4993E+01_JPRB,8.1031E+01_JPRB/)
+KBO( :,47,15) = (/&
+&6.8961E+01_JPRB,6.8535E+01_JPRB,7.1211E+01_JPRB,7.5329E+01_JPRB,8.1268E+01_JPRB/)
+KBO( :,48,15) = (/&
+&6.9704E+01_JPRB,6.8995E+01_JPRB,7.1616E+01_JPRB,7.5892E+01_JPRB,8.1953E+01_JPRB/)
+KBO( :,49,15) = (/&
+&7.0407E+01_JPRB,6.9549E+01_JPRB,7.2228E+01_JPRB,7.6829E+01_JPRB,8.3431E+01_JPRB/)
+KBO( :,50,15) = (/&
+&7.1019E+01_JPRB,6.9986E+01_JPRB,7.2345E+01_JPRB,7.7143E+01_JPRB,8.3800E+01_JPRB/)
+KBO( :,51,15) = (/&
+&7.1592E+01_JPRB,7.0396E+01_JPRB,7.2261E+01_JPRB,7.7126E+01_JPRB,8.3618E+01_JPRB/)
+KBO( :,52,15) = (/&
+&7.2111E+01_JPRB,7.0874E+01_JPRB,7.2332E+01_JPRB,7.7310E+01_JPRB,8.3944E+01_JPRB/)
+KBO( :,53,15) = (/&
+&7.2640E+01_JPRB,7.1374E+01_JPRB,7.2614E+01_JPRB,7.7805E+01_JPRB,8.4912E+01_JPRB/)
+KBO( :,54,15) = (/&
+&7.3148E+01_JPRB,7.1814E+01_JPRB,7.2024E+01_JPRB,7.6722E+01_JPRB,8.3248E+01_JPRB/)
+KBO( :,55,15) = (/&
+&7.3606E+01_JPRB,7.2253E+01_JPRB,7.1500E+01_JPRB,7.4839E+01_JPRB,8.0825E+01_JPRB/)
+KBO( :,56,15) = (/&
+&7.4051E+01_JPRB,7.2698E+01_JPRB,7.1487E+01_JPRB,7.3230E+01_JPRB,7.8699E+01_JPRB/)
+KBO( :,57,15) = (/&
+&7.4472E+01_JPRB,7.3171E+01_JPRB,7.1839E+01_JPRB,7.2012E+01_JPRB,7.6638E+01_JPRB/)
+KBO( :,58,15) = (/&
+&7.4894E+01_JPRB,7.3601E+01_JPRB,7.2242E+01_JPRB,7.1442E+01_JPRB,7.4559E+01_JPRB/)
+KBO( :,59,15) = (/&
+&7.5080E+01_JPRB,7.3786E+01_JPRB,7.2416E+01_JPRB,7.1080E+01_JPRB,7.1531E+01_JPRB/)
+KBO( :, 7,16) = (/&
+&3.8856E+02_JPRB,5.7915E+02_JPRB,8.1817E+02_JPRB,1.1061E+03_JPRB,1.4420E+03_JPRB/)
+KBO( :, 8,16) = (/&
+&1.1173E+02_JPRB,1.7284E+02_JPRB,2.5169E+02_JPRB,3.4886E+02_JPRB,4.6421E+02_JPRB/)
+KBO( :, 9,16) = (/&
+&1.6570E+01_JPRB,2.6651E+01_JPRB,4.0077E+01_JPRB,5.7028E+01_JPRB,7.7570E+01_JPRB/)
+KBO( :,10,16) = (/&
+&1.1513E+01_JPRB,1.1599E+01_JPRB,1.1623E+01_JPRB,1.2273E+01_JPRB,2.0793E+01_JPRB/)
+KBO( :,11,16) = (/&
+&9.4745E+00_JPRB,9.5365E+00_JPRB,9.5728E+00_JPRB,1.0446E+01_JPRB,1.7579E+01_JPRB/)
+KBO( :,12,16) = (/&
+&9.0416E+00_JPRB,9.1073E+00_JPRB,9.1539E+00_JPRB,1.0349E+01_JPRB,1.7350E+01_JPRB/)
+KBO( :,13,16) = (/&
+&8.4084E+00_JPRB,8.5999E+00_JPRB,8.8332E+00_JPRB,1.0153E+01_JPRB,1.6939E+01_JPRB/)
+KBO( :,14,16) = (/&
+&1.0079E+01_JPRB,1.0411E+01_JPRB,1.0702E+01_JPRB,1.0966E+01_JPRB,1.3320E+01_JPRB/)
+KBO( :,15,16) = (/&
+&1.2199E+01_JPRB,1.2610E+01_JPRB,1.2964E+01_JPRB,1.3286E+01_JPRB,1.3632E+01_JPRB/)
+KBO( :,16,16) = (/&
+&1.4758E+01_JPRB,1.5257E+01_JPRB,1.5682E+01_JPRB,1.6062E+01_JPRB,1.6458E+01_JPRB/)
+KBO( :,17,16) = (/&
+&1.7830E+01_JPRB,1.8419E+01_JPRB,1.8910E+01_JPRB,1.9353E+01_JPRB,1.9779E+01_JPRB/)
+KBO( :,18,16) = (/&
+&2.1465E+01_JPRB,2.2139E+01_JPRB,2.2704E+01_JPRB,2.3183E+01_JPRB,2.3616E+01_JPRB/)
+KBO( :,19,16) = (/&
+&2.5737E+01_JPRB,2.6464E+01_JPRB,2.7066E+01_JPRB,2.7553E+01_JPRB,2.7959E+01_JPRB/)
+KBO( :,20,16) = (/&
+&3.0665E+01_JPRB,3.1418E+01_JPRB,3.2018E+01_JPRB,3.2468E+01_JPRB,3.2800E+01_JPRB/)
+KBO( :,21,16) = (/&
+&3.6239E+01_JPRB,3.6953E+01_JPRB,3.7470E+01_JPRB,3.7836E+01_JPRB,3.8047E+01_JPRB/)
+KBO( :,22,16) = (/&
+&4.2431E+01_JPRB,4.3003E+01_JPRB,4.3369E+01_JPRB,4.3556E+01_JPRB,4.3562E+01_JPRB/)
+KBO( :,23,16) = (/&
+&4.9017E+01_JPRB,4.9364E+01_JPRB,4.9493E+01_JPRB,4.9449E+01_JPRB,4.9166E+01_JPRB/)
+KBO( :,24,16) = (/&
+&5.5807E+01_JPRB,5.5827E+01_JPRB,5.5659E+01_JPRB,5.5279E+01_JPRB,5.4693E+01_JPRB/)
+KBO( :,25,16) = (/&
+&6.2605E+01_JPRB,6.2250E+01_JPRB,6.1658E+01_JPRB,6.0879E+01_JPRB,5.9925E+01_JPRB/)
+KBO( :,26,16) = (/&
+&6.9126E+01_JPRB,6.8329E+01_JPRB,6.7305E+01_JPRB,6.6047E+01_JPRB,6.4706E+01_JPRB/)
+KBO( :,27,16) = (/&
+&7.5229E+01_JPRB,7.3889E+01_JPRB,7.2393E+01_JPRB,7.0704E+01_JPRB,6.8940E+01_JPRB/)
+KBO( :,28,16) = (/&
+&8.0701E+01_JPRB,7.8841E+01_JPRB,7.6868E+01_JPRB,7.4764E+01_JPRB,7.2600E+01_JPRB/)
+KBO( :,29,16) = (/&
+&8.5434E+01_JPRB,8.3106E+01_JPRB,8.0668E+01_JPRB,7.8169E+01_JPRB,7.5668E+01_JPRB/)
+KBO( :,30,16) = (/&
+&8.9445E+01_JPRB,8.6639E+01_JPRB,8.3811E+01_JPRB,8.0953E+01_JPRB,7.8147E+01_JPRB/)
+KBO( :,31,16) = (/&
+&9.2661E+01_JPRB,8.9490E+01_JPRB,8.6283E+01_JPRB,8.3138E+01_JPRB,8.0087E+01_JPRB/)
+KBO( :,32,16) = (/&
+&9.5180E+01_JPRB,9.1672E+01_JPRB,8.8175E+01_JPRB,8.4788E+01_JPRB,8.1658E+01_JPRB/)
+KBO( :,33,16) = (/&
+&9.7060E+01_JPRB,9.3296E+01_JPRB,8.9535E+01_JPRB,8.5975E+01_JPRB,8.6733E+01_JPRB/)
+KBO( :,34,16) = (/&
+&9.8535E+01_JPRB,9.4543E+01_JPRB,9.0580E+01_JPRB,8.8544E+01_JPRB,9.8376E+01_JPRB/)
+KBO( :,35,16) = (/&
+&9.9986E+01_JPRB,9.5782E+01_JPRB,9.1765E+01_JPRB,9.5678E+01_JPRB,1.1682E+02_JPRB/)
+KBO( :,36,16) = (/&
+&1.0154E+02_JPRB,9.7161E+01_JPRB,9.4575E+01_JPRB,1.0592E+02_JPRB,1.3789E+02_JPRB/)
+KBO( :,37,16) = (/&
+&1.0353E+02_JPRB,9.8977E+01_JPRB,9.7885E+01_JPRB,1.1385E+02_JPRB,1.5187E+02_JPRB/)
+KBO( :,38,16) = (/&
+&1.0537E+02_JPRB,1.0066E+02_JPRB,1.0193E+02_JPRB,1.2434E+02_JPRB,1.6894E+02_JPRB/)
+KBO( :,39,16) = (/&
+&1.0709E+02_JPRB,1.0226E+02_JPRB,1.0840E+02_JPRB,1.3970E+02_JPRB,1.9203E+02_JPRB/)
+KBO( :,40,16) = (/&
+&1.0920E+02_JPRB,1.0414E+02_JPRB,1.1026E+02_JPRB,1.4309E+02_JPRB,1.9842E+02_JPRB/)
+KBO( :,41,16) = (/&
+&1.1129E+02_JPRB,1.0602E+02_JPRB,1.1150E+02_JPRB,1.4497E+02_JPRB,2.0309E+02_JPRB/)
+KBO( :,42,16) = (/&
+&1.1332E+02_JPRB,1.0786E+02_JPRB,1.1308E+02_JPRB,1.4794E+02_JPRB,2.0952E+02_JPRB/)
+KBO( :,43,16) = (/&
+&1.1559E+02_JPRB,1.1003E+02_JPRB,1.1380E+02_JPRB,1.4865E+02_JPRB,2.1325E+02_JPRB/)
+KBO( :,44,16) = (/&
+&1.1806E+02_JPRB,1.1228E+02_JPRB,1.1464E+02_JPRB,1.4922E+02_JPRB,2.1715E+02_JPRB/)
+KBO( :,45,16) = (/&
+&1.2053E+02_JPRB,1.1454E+02_JPRB,1.1628E+02_JPRB,1.5180E+02_JPRB,2.2438E+02_JPRB/)
+KBO( :,46,16) = (/&
+&1.2309E+02_JPRB,1.1696E+02_JPRB,1.1783E+02_JPRB,1.5362E+02_JPRB,2.3111E+02_JPRB/)
+KBO( :,47,16) = (/&
+&1.2599E+02_JPRB,1.1969E+02_JPRB,1.1823E+02_JPRB,1.5084E+02_JPRB,2.3026E+02_JPRB/)
+KBO( :,48,16) = (/&
+&1.2892E+02_JPRB,1.2242E+02_JPRB,1.1952E+02_JPRB,1.5067E+02_JPRB,2.3396E+02_JPRB/)
+KBO( :,49,16) = (/&
+&1.3193E+02_JPRB,1.2519E+02_JPRB,1.2177E+02_JPRB,1.5425E+02_JPRB,2.4535E+02_JPRB/)
+KBO( :,50,16) = (/&
+&1.3498E+02_JPRB,1.2786E+02_JPRB,1.2310E+02_JPRB,1.5233E+02_JPRB,2.4573E+02_JPRB/)
+KBO( :,51,16) = (/&
+&1.3812E+02_JPRB,1.3051E+02_JPRB,1.2450E+02_JPRB,1.4796E+02_JPRB,2.3986E+02_JPRB/)
+KBO( :,52,16) = (/&
+&1.4129E+02_JPRB,1.3328E+02_JPRB,1.2643E+02_JPRB,1.4628E+02_JPRB,2.3868E+02_JPRB/)
+KBO( :,53,16) = (/&
+&1.4456E+02_JPRB,1.3621E+02_JPRB,1.2885E+02_JPRB,1.4756E+02_JPRB,2.4494E+02_JPRB/)
+KBO( :,54,16) = (/&
+&1.4765E+02_JPRB,1.3898E+02_JPRB,1.3126E+02_JPRB,1.3886E+02_JPRB,2.1886E+02_JPRB/)
+KBO( :,55,16) = (/&
+&1.5067E+02_JPRB,1.4175E+02_JPRB,1.3370E+02_JPRB,1.3097E+02_JPRB,1.8055E+02_JPRB/)
+KBO( :,56,16) = (/&
+&1.5379E+02_JPRB,1.4459E+02_JPRB,1.3623E+02_JPRB,1.2922E+02_JPRB,1.5393E+02_JPRB/)
+KBO( :,57,16) = (/&
+&1.5705E+02_JPRB,1.4750E+02_JPRB,1.3886E+02_JPRB,1.3117E+02_JPRB,1.3814E+02_JPRB/)
+KBO( :,58,16) = (/&
+&1.6030E+02_JPRB,1.5034E+02_JPRB,1.4144E+02_JPRB,1.3342E+02_JPRB,1.3000E+02_JPRB/)
+KBO( :,59,16) = (/&
+&1.6165E+02_JPRB,1.5155E+02_JPRB,1.4250E+02_JPRB,1.3439E+02_JPRB,1.2723E+02_JPRB/)
+
+!       SELFREFO is the array for the self-continuum.
+
+SELFREFO( :, 1) = (/&
+&3.15710E-02_JPRB, 2.74495E-02_JPRB, 2.38660E-02_JPRB, 2.07504E-02_JPRB, 1.80415E-02_JPRB,&
+&1.56862E-02_JPRB, 1.36384E-02_JPRB, 1.18580E-02_JPRB, 1.03099E-02_JPRB, 8.96400E-03_JPRB/)
+SELFREFO( :, 2) = (/&
+&3.10782E-02_JPRB, 2.71526E-02_JPRB, 2.37228E-02_JPRB, 2.07262E-02_JPRB, 1.81082E-02_JPRB,&
+&1.58209E-02_JPRB, 1.38224E-02_JPRB, 1.20765E-02_JPRB, 1.05510E-02_JPRB, 9.21827E-03_JPRB/)
+SELFREFO( :, 3) = (/&
+&3.08052E-02_JPRB, 2.68989E-02_JPRB, 2.34880E-02_JPRB, 2.05096E-02_JPRB, 1.79089E-02_JPRB,&
+&1.56380E-02_JPRB, 1.36550E-02_JPRB, 1.19235E-02_JPRB, 1.04116E-02_JPRB, 9.09133E-03_JPRB/)
+SELFREFO( :, 4) = (/&
+&3.02590E-02_JPRB, 2.64547E-02_JPRB, 2.31287E-02_JPRB, 2.02209E-02_JPRB, 1.76786E-02_JPRB,&
+&1.54560E-02_JPRB, 1.35128E-02_JPRB, 1.18139E-02_JPRB, 1.03286E-02_JPRB, 9.03003E-03_JPRB/)
+SELFREFO( :, 5) = (/&
+&2.98458E-02_JPRB, 2.61601E-02_JPRB, 2.29295E-02_JPRB, 2.00978E-02_JPRB, 1.76159E-02_JPRB,&
+&1.54404E-02_JPRB, 1.35336E-02_JPRB, 1.18623E-02_JPRB, 1.03974E-02_JPRB, 9.11337E-03_JPRB/)
+SELFREFO( :, 6) = (/&
+&2.95965E-02_JPRB, 2.59395E-02_JPRB, 2.27343E-02_JPRB, 1.99252E-02_JPRB, 1.74632E-02_JPRB,&
+&1.53054E-02_JPRB, 1.34142E-02_JPRB, 1.17567E-02_JPRB, 1.03040E-02_JPRB, 9.03083E-03_JPRB/)
+SELFREFO( :, 7) = (/&
+&2.97590E-02_JPRB, 2.60522E-02_JPRB, 2.28071E-02_JPRB, 1.99662E-02_JPRB, 1.74792E-02_JPRB,&
+&1.53020E-02_JPRB, 1.33959E-02_JPRB, 1.17273E-02_JPRB, 1.02665E-02_JPRB, 8.98772E-03_JPRB/)
+SELFREFO( :, 8) = (/&
+&2.96582E-02_JPRB, 2.59789E-02_JPRB, 2.27560E-02_JPRB, 1.99330E-02_JPRB, 1.74602E-02_JPRB,&
+&1.52941E-02_JPRB, 1.33968E-02_JPRB, 1.17348E-02_JPRB, 1.02790E-02_JPRB, 9.00382E-03_JPRB/)
+SELFREFO( :, 9) = (/&
+&2.97945E-02_JPRB, 2.60711E-02_JPRB, 2.28129E-02_JPRB, 1.99620E-02_JPRB, 1.74673E-02_JPRB,&
+&1.52844E-02_JPRB, 1.33743E-02_JPRB, 1.17029E-02_JPRB, 1.02404E-02_JPRB, 8.96062E-03_JPRB/)
+SELFREFO( :,10) = (/&
+&2.97731E-02_JPRB, 2.60436E-02_JPRB, 2.27813E-02_JPRB, 1.99276E-02_JPRB, 1.74314E-02_JPRB,&
+&1.52478E-02_JPRB, 1.33378E-02_JPRB, 1.16671E-02_JPRB, 1.02056E-02_JPRB, 8.92719E-03_JPRB/)
+SELFREFO( :,11) = (/&
+&2.94084E-02_JPRB, 2.57680E-02_JPRB, 2.25782E-02_JPRB, 1.97832E-02_JPRB, 1.73343E-02_JPRB,&
+&1.51885E-02_JPRB, 1.33083E-02_JPRB, 1.16609E-02_JPRB, 1.02174E-02_JPRB, 8.95261E-03_JPRB/)
+SELFREFO( :,12) = (/&
+&2.97023E-02_JPRB, 2.60117E-02_JPRB, 2.27796E-02_JPRB, 1.99491E-02_JPRB, 1.74703E-02_JPRB,&
+&1.52996E-02_JPRB, 1.33985E-02_JPRB, 1.17337E-02_JPRB, 1.02757E-02_JPRB, 8.99890E-03_JPRB/)
+SELFREFO( :,13) = (/&
+&2.96542E-02_JPRB, 2.59249E-02_JPRB, 2.26645E-02_JPRB, 1.98142E-02_JPRB, 1.73223E-02_JPRB,&
+&1.51438E-02_JPRB, 1.32393E-02_JPRB, 1.15743E-02_JPRB, 1.01187E-02_JPRB, 8.84612E-03_JPRB/)
+SELFREFO( :,14) = (/&
+&2.89971E-02_JPRB, 2.53964E-02_JPRB, 2.22429E-02_JPRB, 1.94809E-02_JPRB, 1.70619E-02_JPRB,&
+&1.49433E-02_JPRB, 1.30877E-02_JPRB, 1.14626E-02_JPRB, 1.00392E-02_JPRB, 8.79262E-03_JPRB/)
+SELFREFO( :,15) = (/&
+&2.80866E-02_JPRB, 2.46970E-02_JPRB, 2.17166E-02_JPRB, 1.90958E-02_JPRB, 1.67913E-02_JPRB,&
+&1.47649E-02_JPRB, 1.29830E-02_JPRB, 1.14162E-02_JPRB, 1.00385E-02_JPRB, 8.82704E-03_JPRB/)
+SELFREFO( :,16) = (/&
+&2.80866E-02_JPRB, 2.46970E-02_JPRB, 2.17166E-02_JPRB, 1.90958E-02_JPRB, 1.67913E-02_JPRB,&
+&1.47649E-02_JPRB, 1.29830E-02_JPRB, 1.14162E-02_JPRB, 1.00385E-02_JPRB, 8.82704E-03_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB8
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb9.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb9.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb9.F90	(revision 2160)
@@ -0,0 +1,18 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB9
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+      call RRTM_KGB9_00
+      call RRTM_KGB9_A1
+      call RRTM_KGB9_A2
+      call RRTM_KGB9_BB
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB9
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_00.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_00.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_00.F90	(revision 2160)
@@ -0,0 +1,173 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB9_00
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, ABSN2OO
+USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+FRACREFBO( :) = (/&
+!     From P = 0.071 mb.
+    &0.20148601_JPRB,0.15252700_JPRB,0.13376500_JPRB,0.12184600_JPRB,&
+    &0.10767800_JPRB,0.09307410_JPRB,0.07674570_JPRB,0.05876940_JPRB,&
+    &0.04001480_JPRB,0.00424612_JPRB,0.00346896_JPRB,0.00269954_JPRB,&
+    &0.00196864_JPRB,0.00122562_JPRB,0.00043628_JPRB,0.00004892_JPRB/)
+
+N2OREF( :) = (/&
+     &3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
+     &3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
+     &2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB/)
+
+H2OREF( :) = (/&
+     &1.8759999E-02_JPRB, 1.2223309E-02_JPRB, 5.8908667E-03_JPRB, 2.7675382E-03_JPRB,  &
+     &1.4065107E-03_JPRB, 7.5969833E-04_JPRB, 3.8875898E-04_JPRB, 1.6542293E-04_JPRB,  &
+     &3.7189537E-05_JPRB, 7.4764857E-06_JPRB, 4.3081886E-06_JPRB, 3.3319423E-06_JPRB,  &
+     &3.2039343E-06_JPRB/)
+
+CH4REF( :) = (/&
+     &1.7000001E-06_JPRB, 1.7000001E-06_JPRB, 1.6998713E-06_JPRB, 1.6904165E-06_JPRB,  &
+     &1.6671424E-06_JPRB, 1.6350652E-06_JPRB, 1.6097551E-06_JPRB, 1.5590465E-06_JPRB,  &
+     &1.5119849E-06_JPRB, 1.4741138E-06_JPRB, 1.4384609E-06_JPRB, 1.4002215E-06_JPRB,  &
+     &1.3573376E-06_JPRB/)
+
+ETAREF( :) = (/&
+     &_ZERO_,0.125_JPRB,0.25_JPRB,0.375_JPRB,_HALF_,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.96_JPRB,0.99_JPRB,_ONE_/)
+
+ABSN2OO( :) = (/&
+!     From P = 952.
+     &3.26267E-01_JPRB,2.42869E-00_JPRB,1.15455E+01_JPRB,7.39478E-00_JPRB,&
+     &5.16550E-00_JPRB,2.54474E-00_JPRB,3.53082E-00_JPRB,3.82278E-00_JPRB,&
+     &1.81297E-00_JPRB,6.65313E-01_JPRB,1.23652E-01_JPRB,1.83895E-03_JPRB,&
+     &1.70592E-03_JPRB,2.68434E-09_JPRB,_ZERO_,_ZERO_,&
+!     From P = 620.
+     &2.08632E-01_JPRB,1.11865E+00_JPRB,4.95975E+00_JPRB,8.10907E+00_JPRB,&
+     &1.10408E+01_JPRB,5.45460E+00_JPRB,4.18611E+00_JPRB,3.53422E+00_JPRB,&
+     &2.54164E+00_JPRB,3.65093E-01_JPRB,5.84480E-01_JPRB,2.26918E-01_JPRB,&
+     &1.36230E-03_JPRB,5.54400E-10_JPRB,6.83703E-10_JPRB,_ZERO_,&
+!     From P=313.
+     &6.20022E-02_JPRB,2.69521E-01_JPRB,9.81928E-01_JPRB,1.65004E-00_JPRB,&
+     &3.08089E-00_JPRB,5.38696E-00_JPRB,1.14600E+01_JPRB,2.41211E+01_JPRB,&
+     &1.69655E+01_JPRB,1.37556E-00_JPRB,5.43254E-01_JPRB,3.52079E-01_JPRB,&
+     &4.31888E-01_JPRB,4.82523E-06_JPRB,5.74747E-11_JPRB,_ZERO_/)
+
+STRRAT = 21.6282_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+&2.83413E-02_JPRB, 2.51443E-02_JPRB, 2.23078E-02_JPRB, 1.97914E-02_JPRB, 1.75588E-02_JPRB,&
+&1.55780E-02_JPRB, 1.38207E-02_JPRB, 1.22617E-02_JPRB, 1.08785E-02_JPRB, 9.65132E-03_JPRB/)
+SELFREFO( :, 2) = (/&
+&3.01506E-02_JPRB, 2.69506E-02_JPRB, 2.40901E-02_JPRB, 2.15333E-02_JPRB, 1.92478E-02_JPRB,&
+&1.72049E-02_JPRB, 1.53789E-02_JPRB, 1.37466E-02_JPRB, 1.22876E-02_JPRB, 1.09834E-02_JPRB/)
+SELFREFO( :, 3) = (/&
+&4.24899E-02_JPRB, 3.77138E-02_JPRB, 3.34745E-02_JPRB, 2.97118E-02_JPRB, 2.63720E-02_JPRB,&
+&2.34077E-02_JPRB, 2.07765E-02_JPRB, 1.84411E-02_JPRB, 1.63682E-02_JPRB, 1.45283E-02_JPRB/)
+SELFREFO( :, 4) = (/&
+&5.78648E-02_JPRB, 5.16988E-02_JPRB, 4.61899E-02_JPRB, 4.12679E-02_JPRB, 3.68705E-02_JPRB,&
+&3.29416E-02_JPRB, 2.94314E-02_JPRB, 2.62952E-02_JPRB, 2.34932E-02_JPRB, 2.09898E-02_JPRB/)
+SELFREFO( :, 5) = (/&
+&6.96367E-02_JPRB, 6.36716E-02_JPRB, 5.82175E-02_JPRB, 5.32306E-02_JPRB, 4.86709E-02_JPRB,&
+&4.45018E-02_JPRB, 4.06898E-02_JPRB, 3.72043E-02_JPRB, 3.40174E-02_JPRB, 3.11034E-02_JPRB/)
+SELFREFO( :, 6) = (/&
+&6.04073E-02_JPRB, 5.90856E-02_JPRB, 5.77929E-02_JPRB, 5.65284E-02_JPRB, 5.52916E-02_JPRB,&
+&5.40819E-02_JPRB, 5.28986E-02_JPRB, 5.17413E-02_JPRB, 5.06092E-02_JPRB, 4.95020E-02_JPRB/)
+SELFREFO( :, 7) = (/&
+&6.19460E-02_JPRB, 6.02812E-02_JPRB, 5.86612E-02_JPRB, 5.70847E-02_JPRB, 5.55506E-02_JPRB,&
+&5.40577E-02_JPRB, 5.26049E-02_JPRB, 5.11912E-02_JPRB, 4.98155E-02_JPRB, 4.84767E-02_JPRB/)
+SELFREFO( :, 8) = (/&
+&6.86939E-02_JPRB, 6.58429E-02_JPRB, 6.31102E-02_JPRB, 6.04909E-02_JPRB, 5.79804E-02_JPRB,&
+&5.55740E-02_JPRB, 5.32675E-02_JPRB, 5.10567E-02_JPRB, 4.89377E-02_JPRB, 4.69067E-02_JPRB/)
+SELFREFO( :, 9) = (/&
+&8.18828E-02_JPRB, 7.77172E-02_JPRB, 7.37635E-02_JPRB, 7.00110E-02_JPRB, 6.64494E-02_JPRB,&
+&6.30689E-02_JPRB, 5.98604E-02_JPRB, 5.68152E-02_JPRB, 5.39248E-02_JPRB, 5.11815E-02_JPRB/)
+SELFREFO( :,10) = (/&
+&8.41953E-02_JPRB, 8.10610E-02_JPRB, 7.80434E-02_JPRB, 7.51381E-02_JPRB, 7.23409E-02_JPRB,&
+&6.96479E-02_JPRB, 6.70551E-02_JPRB, 6.45589E-02_JPRB, 6.21556E-02_JPRB, 5.98417E-02_JPRB/)
+SELFREFO( :,11) = (/&
+&9.41304E-02_JPRB, 8.97275E-02_JPRB, 8.55305E-02_JPRB, 8.15299E-02_JPRB, 7.77164E-02_JPRB,&
+&7.40812E-02_JPRB, 7.06161E-02_JPRB, 6.73131E-02_JPRB, 6.41646E-02_JPRB, 6.11633E-02_JPRB/)
+SELFREFO( :,12) = (/&
+&9.55404E-02_JPRB, 9.02311E-02_JPRB, 8.52169E-02_JPRB, 8.04813E-02_JPRB, 7.60089E-02_JPRB,&
+&7.17850E-02_JPRB, 6.77958E-02_JPRB, 6.40284E-02_JPRB, 6.04703E-02_JPRB, 5.71099E-02_JPRB/)
+SELFREFO( :,13) = (/&
+&9.32377E-02_JPRB, 8.99082E-02_JPRB, 8.66977E-02_JPRB, 8.36018E-02_JPRB, 8.06164E-02_JPRB,&
+&7.77376E-02_JPRB, 7.49617E-02_JPRB, 7.22848E-02_JPRB, 6.97036E-02_JPRB, 6.72145E-02_JPRB/)
+SELFREFO( :,14) = (/&
+&1.14746E-01_JPRB, 1.08112E-01_JPRB, 1.01861E-01_JPRB, 9.59719E-02_JPRB, 9.04232E-02_JPRB,&
+&8.51952E-02_JPRB, 8.02695E-02_JPRB, 7.56285E-02_JPRB, 7.12559E-02_JPRB, 6.71361E-02_JPRB/)
+SELFREFO( :,15) = (/&
+&1.23517E-01_JPRB, 1.19527E-01_JPRB, 1.15666E-01_JPRB, 1.11929E-01_JPRB, 1.08313E-01_JPRB,&
+&1.04814E-01_JPRB, 1.01428E-01_JPRB, 9.81512E-02_JPRB, 9.49803E-02_JPRB, 9.19119E-02_JPRB/)
+SELFREFO( :,16) = (/&
+&1.44086E-01_JPRB, 1.36396E-01_JPRB, 1.29117E-01_JPRB, 1.22226E-01_JPRB, 1.15703E-01_JPRB,&
+&1.09528E-01_JPRB, 1.03683E-01_JPRB, 9.81497E-02_JPRB, 9.29116E-02_JPRB, 8.79530E-02_JPRB/)
+
+FRACREFAO( :, 1) = (/&
+!     From P = 1053.6 mb.
+    &0.16898900_JPRB,0.15898301_JPRB,0.13575301_JPRB,0.12600900_JPRB,&
+    &0.11545800_JPRB,0.09879170_JPRB,0.08106830_JPRB,0.06063440_JPRB,&
+    &0.03988780_JPRB,0.00421760_JPRB,0.00346635_JPRB,0.00278779_JPRB,&
+    &0.00206225_JPRB,0.00132324_JPRB,0.00050033_JPRB,0.00007038_JPRB/)
+FRACREFAO( :, 2) = (/&
+    &0.18209399_JPRB,0.15315101_JPRB,0.13571000_JPRB,0.12504999_JPRB,&
+    &0.11379100_JPRB,0.09680810_JPRB,0.08008570_JPRB,0.05970280_JPRB,&
+    &0.03942860_JPRB,0.00413383_JPRB,0.00343186_JPRB,0.00275558_JPRB,&
+    &0.00204657_JPRB,0.00130219_JPRB,0.00045454_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 3) = (/&
+    &0.18459500_JPRB,0.15512000_JPRB,0.13395500_JPRB,0.12576801_JPRB,&
+    &0.11276800_JPRB,0.09645190_JPRB,0.07956650_JPRB,0.05903340_JPRB,&
+    &0.03887050_JPRB,0.00412226_JPRB,0.00339453_JPRB,0.00273518_JPRB,&
+    &0.00196922_JPRB,0.00119411_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 4) = (/&
+    &0.18458800_JPRB,0.15859900_JPRB,0.13278100_JPRB,0.12589300_JPRB,&
+    &0.11272700_JPRB,0.09599660_JPRB,0.07903030_JPRB,0.05843600_JPRB,&
+    &0.03843400_JPRB,0.00405181_JPRB,0.00337980_JPRB,0.00263818_JPRB,&
+    &0.00186869_JPRB,0.00111807_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 5) = (/&
+    &0.18459301_JPRB,0.16176100_JPRB,0.13235000_JPRB,0.12528200_JPRB,&
+    &0.11237100_JPRB,0.09618840_JPRB,0.07833760_JPRB,0.05800770_JPRB,&
+    &0.03787610_JPRB,0.00408253_JPRB,0.00330363_JPRB,0.00250445_JPRB,&
+    &0.00176725_JPRB,0.00111753_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 6) = (/&
+    &0.18454400_JPRB,0.16505300_JPRB,0.13221300_JPRB,0.12476600_JPRB,&
+    &0.11158300_JPRB,0.09618120_JPRB,0.07797340_JPRB,0.05740380_JPRB,&
+    &0.03742820_JPRB,0.00392691_JPRB,0.00312208_JPRB,0.00246306_JPRB,&
+    &0.00176735_JPRB,0.00111721_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 7) = (/&
+    &0.18452001_JPRB,0.16697501_JPRB,0.13445500_JPRB,0.12391300_JPRB,&
+    &0.11059100_JPRB,0.09596890_JPRB,0.07761050_JPRB,0.05643200_JPRB,&
+    &0.03686520_JPRB,0.00377086_JPRB,0.00309351_JPRB,0.00246297_JPRB,&
+    &0.00176765_JPRB,0.00111700_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 8) = (/&
+    &0.18460999_JPRB,0.16854499_JPRB,0.13922299_JPRB,0.12266400_JPRB,&
+    &0.10962200_JPRB,0.09452030_JPRB,0.07653800_JPRB,0.05551340_JPRB,&
+    &0.03609660_JPRB,0.00377043_JPRB,0.00309367_JPRB,0.00246304_JPRB,&
+    &0.00176749_JPRB,0.00111689_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+FRACREFAO( :, 9) = (/&
+    &0.18312500_JPRB,0.16787501_JPRB,0.14720701_JPRB,0.12766500_JPRB,&
+    &0.10890900_JPRB,0.08935530_JPRB,0.07310870_JPRB,0.05443140_JPRB,&
+    &0.03566380_JPRB,0.00376446_JPRB,0.00309521_JPRB,0.00246510_JPRB,&
+    &0.00176139_JPRB,0.00111543_JPRB,0.00040263_JPRB,0.00005664_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB9_00
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_A1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_A1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_A1.F90	(revision 2160)
@@ -0,0 +1,1604 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB9_A1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, ABSN2OO
+USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 11, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+&1.8511E-03_JPRB,2.1684E-03_JPRB,1.9806E-03_JPRB,1.7402E-03_JPRB,1.4775E-03_JPRB,1.1966E-03_JPRB,&
+&8.9433E-04_JPRB,5.6221E-04_JPRB,3.0428E-04_JPRB,1.8439E-04_JPRB,1.3102E-04_JPRB/)
+KAO( :, 2, 1, 1) = (/&
+&2.0894E-03_JPRB,2.4523E-03_JPRB,2.2500E-03_JPRB,1.9818E-03_JPRB,1.6875E-03_JPRB,1.3729E-03_JPRB,&
+&1.0298E-03_JPRB,6.5344E-04_JPRB,3.5857E-04_JPRB,2.2082E-04_JPRB,1.5794E-04_JPRB/)
+KAO( :, 3, 1, 1) = (/&
+&2.3330E-03_JPRB,2.7449E-03_JPRB,2.5294E-03_JPRB,2.2345E-03_JPRB,1.9095E-03_JPRB,1.5602E-03_JPRB,&
+&1.1757E-03_JPRB,7.5512E-04_JPRB,4.2015E-04_JPRB,2.6222E-04_JPRB,1.8993E-04_JPRB/)
+KAO( :, 4, 1, 1) = (/&
+&2.5835E-03_JPRB,3.0490E-03_JPRB,2.8221E-03_JPRB,2.5018E-03_JPRB,2.1465E-03_JPRB,1.7595E-03_JPRB,&
+&1.3344E-03_JPRB,8.6724E-04_JPRB,4.8897E-04_JPRB,3.0971E-04_JPRB,2.2746E-04_JPRB/)
+KAO( :, 5, 1, 1) = (/&
+&2.8404E-03_JPRB,3.3655E-03_JPRB,3.1292E-03_JPRB,2.7851E-03_JPRB,2.3984E-03_JPRB,1.9730E-03_JPRB,&
+&1.5065E-03_JPRB,9.9023E-04_JPRB,5.6589E-04_JPRB,3.6410E-04_JPRB,2.7116E-04_JPRB/)
+KAO( :, 1, 2, 1) = (/&
+&1.5469E-03_JPRB,1.8260E-03_JPRB,1.6779E-03_JPRB,1.4743E-03_JPRB,1.2523E-03_JPRB,1.0146E-03_JPRB,&
+&7.5802E-04_JPRB,4.7362E-04_JPRB,2.5248E-04_JPRB,1.4960E-04_JPRB,1.0313E-04_JPRB/)
+KAO( :, 2, 2, 1) = (/&
+&1.7573E-03_JPRB,2.0750E-03_JPRB,1.9149E-03_JPRB,1.6867E-03_JPRB,1.4365E-03_JPRB,1.1680E-03_JPRB,&
+&8.7632E-04_JPRB,5.5250E-04_JPRB,2.9879E-04_JPRB,1.7951E-04_JPRB,1.2466E-04_JPRB/)
+KAO( :, 3, 2, 1) = (/&
+&1.9736E-03_JPRB,2.3350E-03_JPRB,2.1627E-03_JPRB,1.9104E-03_JPRB,1.6322E-03_JPRB,1.3324E-03_JPRB,&
+&1.0035E-03_JPRB,6.4000E-04_JPRB,3.5119E-04_JPRB,2.1343E-04_JPRB,1.4991E-04_JPRB/)
+KAO( :, 4, 2, 1) = (/&
+&2.1961E-03_JPRB,2.6057E-03_JPRB,2.4227E-03_JPRB,2.1470E-03_JPRB,1.8412E-03_JPRB,1.5084E-03_JPRB,&
+&1.1417E-03_JPRB,7.3666E-04_JPRB,4.0980E-04_JPRB,2.5228E-04_JPRB,1.7955E-04_JPRB/)
+KAO( :, 5, 2, 1) = (/&
+&2.4226E-03_JPRB,2.8887E-03_JPRB,2.6975E-03_JPRB,2.3995E-03_JPRB,2.0641E-03_JPRB,1.6967E-03_JPRB,&
+&1.2922E-03_JPRB,8.4309E-04_JPRB,4.7525E-04_JPRB,2.9676E-04_JPRB,2.1402E-04_JPRB/)
+KAO( :, 1, 3, 1) = (/&
+&1.2487E-03_JPRB,1.4859E-03_JPRB,1.3703E-03_JPRB,1.2034E-03_JPRB,1.0233E-03_JPRB,8.2934E-04_JPRB,&
+&6.1870E-04_JPRB,3.8491E-04_JPRB,2.0061E-04_JPRB,1.1644E-04_JPRB,8.3034E-05_JPRB/)
+KAO( :, 2, 3, 1) = (/&
+&1.4306E-03_JPRB,1.7008E-03_JPRB,1.5762E-03_JPRB,1.3877E-03_JPRB,1.1829E-03_JPRB,9.6138E-04_JPRB,&
+&7.2009E-04_JPRB,4.5115E-04_JPRB,2.3871E-04_JPRB,1.4060E-04_JPRB,1.0024E-04_JPRB/)
+KAO( :, 3, 3, 1) = (/&
+&1.6189E-03_JPRB,1.9278E-03_JPRB,1.7928E-03_JPRB,1.5827E-03_JPRB,1.3525E-03_JPRB,1.1028E-03_JPRB,&
+&8.2939E-04_JPRB,5.2453E-04_JPRB,2.8190E-04_JPRB,1.6789E-04_JPRB,1.2022E-04_JPRB/)
+KAO( :, 4, 3, 1) = (/&
+&1.8135E-03_JPRB,2.1671E-03_JPRB,2.0211E-03_JPRB,1.7891E-03_JPRB,1.5341E-03_JPRB,1.2544E-03_JPRB,&
+&9.4745E-04_JPRB,6.0589E-04_JPRB,3.3035E-04_JPRB,1.9886E-04_JPRB,1.4335E-04_JPRB/)
+KAO( :, 5, 3, 1) = (/&
+&2.0119E-03_JPRB,2.4174E-03_JPRB,2.2628E-03_JPRB,2.0104E-03_JPRB,1.7281E-03_JPRB,1.4171E-03_JPRB,&
+&1.0763E-03_JPRB,6.9556E-04_JPRB,3.8485E-04_JPRB,2.3413E-04_JPRB,1.7025E-04_JPRB/)
+KAO( :, 1, 4, 1) = (/&
+&9.9332E-04_JPRB,1.1937E-03_JPRB,1.1041E-03_JPRB,9.6868E-04_JPRB,8.2360E-04_JPRB,6.6725E-04_JPRB,&
+&4.9729E-04_JPRB,3.0812E-04_JPRB,1.5709E-04_JPRB,8.9177E-05_JPRB,7.0382E-05_JPRB/)
+KAO( :, 2, 4, 1) = (/&
+&1.1489E-03_JPRB,1.3782E-03_JPRB,1.2812E-03_JPRB,1.1272E-03_JPRB,9.6052E-04_JPRB,7.8016E-04_JPRB,&
+&5.8305E-04_JPRB,3.6333E-04_JPRB,1.8801E-04_JPRB,1.0835E-04_JPRB,8.4949E-05_JPRB/)
+KAO( :, 3, 4, 1) = (/&
+&1.3111E-03_JPRB,1.5738E-03_JPRB,1.4685E-03_JPRB,1.2957E-03_JPRB,1.1067E-03_JPRB,9.0126E-04_JPRB,&
+&6.7612E-04_JPRB,4.2453E-04_JPRB,2.2322E-04_JPRB,1.3010E-04_JPRB,1.0182E-04_JPRB/)
+KAO( :, 4, 4, 1) = (/&
+&1.4784E-03_JPRB,1.7816E-03_JPRB,1.6672E-03_JPRB,1.4760E-03_JPRB,1.2640E-03_JPRB,1.0311E-03_JPRB,&
+&7.7663E-04_JPRB,4.9254E-04_JPRB,2.6274E-04_JPRB,1.5479E-04_JPRB,1.2151E-04_JPRB/)
+KAO( :, 5, 4, 1) = (/&
+&1.6498E-03_JPRB,2.0005E-03_JPRB,1.8776E-03_JPRB,1.6682E-03_JPRB,1.4321E-03_JPRB,1.1713E-03_JPRB,&
+&8.8632E-04_JPRB,5.6750E-04_JPRB,3.0711E-04_JPRB,1.8305E-04_JPRB,1.4406E-04_JPRB/)
+KAO( :, 1, 5, 1) = (/&
+&7.8562E-04_JPRB,9.5485E-04_JPRB,8.8731E-04_JPRB,7.7760E-04_JPRB,6.6042E-04_JPRB,5.3465E-04_JPRB,&
+&3.9818E-04_JPRB,2.4507E-04_JPRB,1.2280E-04_JPRB,6.8024E-05_JPRB,6.2892E-05_JPRB/)
+KAO( :, 2, 5, 1) = (/&
+&9.1788E-04_JPRB,1.1130E-03_JPRB,1.0387E-03_JPRB,9.1348E-04_JPRB,7.7739E-04_JPRB,6.3079E-04_JPRB,&
+&4.7083E-04_JPRB,2.9144E-04_JPRB,1.4786E-04_JPRB,8.3150E-05_JPRB,7.5836E-05_JPRB/)
+KAO( :, 3, 5, 1) = (/&
+&1.0564E-03_JPRB,1.2815E-03_JPRB,1.1993E-03_JPRB,1.0584E-03_JPRB,9.0286E-04_JPRB,7.3472E-04_JPRB,&
+&5.4988E-04_JPRB,3.4257E-04_JPRB,1.7646E-04_JPRB,1.0042E-04_JPRB,9.0784E-05_JPRB/)
+KAO( :, 4, 5, 1) = (/&
+&1.2000E-03_JPRB,1.4607E-03_JPRB,1.3706E-03_JPRB,1.2143E-03_JPRB,1.0385E-03_JPRB,8.4626E-04_JPRB,&
+&6.3535E-04_JPRB,3.9924E-04_JPRB,2.0859E-04_JPRB,1.2014E-04_JPRB,1.0789E-04_JPRB/)
+KAO( :, 5, 5, 1) = (/&
+&1.3470E-03_JPRB,1.6493E-03_JPRB,1.5534E-03_JPRB,1.3815E-03_JPRB,1.1841E-03_JPRB,9.6670E-04_JPRB,&
+&7.2902E-04_JPRB,4.6176E-04_JPRB,2.4472E-04_JPRB,1.4262E-04_JPRB,1.2760E-04_JPRB/)
+KAO( :, 1, 6, 1) = (/&
+&6.1309E-04_JPRB,7.5529E-04_JPRB,7.0573E-04_JPRB,6.1814E-04_JPRB,5.2423E-04_JPRB,4.2388E-04_JPRB,&
+&3.1493E-04_JPRB,1.9253E-04_JPRB,9.5104E-05_JPRB,5.1400E-05_JPRB,5.8511E-05_JPRB/)
+KAO( :, 2, 6, 1) = (/&
+&7.2529E-04_JPRB,8.9038E-04_JPRB,8.3470E-04_JPRB,7.3394E-04_JPRB,6.2382E-04_JPRB,5.0540E-04_JPRB,&
+&3.7640E-04_JPRB,2.3131E-04_JPRB,1.1537E-04_JPRB,6.3305E-05_JPRB,7.0591E-05_JPRB/)
+KAO( :, 3, 6, 1) = (/&
+&8.4334E-04_JPRB,1.0336E-03_JPRB,9.7184E-04_JPRB,8.5812E-04_JPRB,7.3092E-04_JPRB,5.9381E-04_JPRB,&
+&4.4329E-04_JPRB,2.7409E-04_JPRB,1.3848E-04_JPRB,7.6884E-05_JPRB,8.4368E-05_JPRB/)
+KAO( :, 4, 6, 1) = (/&
+&9.6591E-04_JPRB,1.1861E-03_JPRB,1.1181E-03_JPRB,9.9183E-04_JPRB,8.4677E-04_JPRB,6.8969E-04_JPRB,&
+&5.1579E-04_JPRB,3.2112E-04_JPRB,1.6446E-04_JPRB,9.2420E-05_JPRB,9.9996E-05_JPRB/)
+KAO( :, 5, 6, 1) = (/&
+&1.0919E-03_JPRB,1.3468E-03_JPRB,1.2743E-03_JPRB,1.1355E-03_JPRB,9.7181E-04_JPRB,7.9286E-04_JPRB,&
+&5.9519E-04_JPRB,3.7314E-04_JPRB,1.9367E-04_JPRB,1.1025E-04_JPRB,1.1781E-04_JPRB/)
+KAO( :, 1, 7, 1) = (/&
+&4.7156E-04_JPRB,5.8937E-04_JPRB,5.5332E-04_JPRB,4.8469E-04_JPRB,4.1048E-04_JPRB,3.3155E-04_JPRB,&
+&2.4554E-04_JPRB,1.4938E-04_JPRB,7.2895E-05_JPRB,3.8595E-05_JPRB,5.7264E-05_JPRB/)
+KAO( :, 2, 7, 1) = (/&
+&5.6495E-04_JPRB,7.0294E-04_JPRB,6.6167E-04_JPRB,5.8245E-04_JPRB,4.9439E-04_JPRB,4.0002E-04_JPRB,&
+&2.9682E-04_JPRB,1.8140E-04_JPRB,8.9227E-05_JPRB,4.7916E-05_JPRB,6.9677E-05_JPRB/)
+KAO( :, 3, 7, 1) = (/&
+&6.6439E-04_JPRB,8.2373E-04_JPRB,7.7721E-04_JPRB,6.8744E-04_JPRB,5.8490E-04_JPRB,4.7448E-04_JPRB,&
+&3.5318E-04_JPRB,2.1689E-04_JPRB,1.0783E-04_JPRB,5.8667E-05_JPRB,8.3618E-05_JPRB/)
+KAO( :, 4, 7, 1) = (/&
+&7.6901E-04_JPRB,9.5239E-04_JPRB,9.0133E-04_JPRB,8.0079E-04_JPRB,6.8276E-04_JPRB,5.5536E-04_JPRB,&
+&4.1449E-04_JPRB,2.5602E-04_JPRB,1.2881E-04_JPRB,7.0934E-05_JPRB,9.9245E-05_JPRB/)
+KAO( :, 5, 7, 1) = (/&
+&8.7687E-04_JPRB,1.0882E-03_JPRB,1.0337E-03_JPRB,9.2277E-04_JPRB,7.8860E-04_JPRB,6.4298E-04_JPRB,&
+&4.8152E-04_JPRB,2.9917E-04_JPRB,1.5235E-04_JPRB,8.4990E-05_JPRB,1.1668E-04_JPRB/)
+KAO( :, 1, 8, 1) = (/&
+&3.6149E-04_JPRB,4.5739E-04_JPRB,4.3172E-04_JPRB,3.7856E-04_JPRB,3.2005E-04_JPRB,2.5782E-04_JPRB,&
+&1.9045E-04_JPRB,1.1541E-04_JPRB,5.5760E-05_JPRB,2.8968E-05_JPRB,6.3348E-05_JPRB/)
+KAO( :, 2, 8, 1) = (/&
+&4.3856E-04_JPRB,5.5284E-04_JPRB,5.2317E-04_JPRB,4.6128E-04_JPRB,3.9080E-04_JPRB,3.1525E-04_JPRB,&
+&2.3332E-04_JPRB,1.4196E-04_JPRB,6.8893E-05_JPRB,3.6257E-05_JPRB,7.8227E-05_JPRB/)
+KAO( :, 3, 8, 1) = (/&
+&5.2180E-04_JPRB,6.5495E-04_JPRB,6.2122E-04_JPRB,5.5050E-04_JPRB,4.6739E-04_JPRB,3.7783E-04_JPRB,&
+&2.8052E-04_JPRB,1.7141E-04_JPRB,8.3884E-05_JPRB,4.4746E-05_JPRB,9.4849E-05_JPRB/)
+KAO( :, 4, 8, 1) = (/&
+&6.1041E-04_JPRB,7.6428E-04_JPRB,7.2626E-04_JPRB,6.4667E-04_JPRB,5.5039E-04_JPRB,4.4616E-04_JPRB,&
+&3.3220E-04_JPRB,2.0388E-04_JPRB,1.0087E-04_JPRB,5.4479E-05_JPRB,1.1299E-04_JPRB/)
+KAO( :, 5, 8, 1) = (/&
+&7.0263E-04_JPRB,8.7961E-04_JPRB,8.3866E-04_JPRB,7.5024E-04_JPRB,6.4012E-04_JPRB,5.2015E-04_JPRB,&
+&3.8858E-04_JPRB,2.3987E-04_JPRB,1.1991E-04_JPRB,6.5600E-05_JPRB,1.3300E-04_JPRB/)
+KAO( :, 1, 9, 1) = (/&
+&2.7588E-04_JPRB,3.5363E-04_JPRB,3.3564E-04_JPRB,2.9442E-04_JPRB,2.4845E-04_JPRB,1.9944E-04_JPRB,&
+&1.4687E-04_JPRB,8.8846E-05_JPRB,4.2564E-05_JPRB,2.1694E-05_JPRB,1.1635E-04_JPRB/)
+KAO( :, 2, 9, 1) = (/&
+&3.3926E-04_JPRB,4.3331E-04_JPRB,4.1256E-04_JPRB,3.6456E-04_JPRB,3.0818E-04_JPRB,2.4781E-04_JPRB,&
+&1.8292E-04_JPRB,1.1098E-04_JPRB,5.3248E-05_JPRB,2.7395E-05_JPRB,1.4478E-04_JPRB/)
+KAO( :, 3, 9, 1) = (/&
+&4.0867E-04_JPRB,5.1901E-04_JPRB,4.9554E-04_JPRB,4.4073E-04_JPRB,3.7338E-04_JPRB,3.0096E-04_JPRB,&
+&2.2284E-04_JPRB,1.3558E-04_JPRB,6.5394E-05_JPRB,3.4106E-05_JPRB,1.7665E-04_JPRB/)
+KAO( :, 4, 9, 1) = (/&
+&4.8311E-04_JPRB,6.1155E-04_JPRB,5.8496E-04_JPRB,5.2319E-04_JPRB,4.4421E-04_JPRB,3.5901E-04_JPRB,&
+&2.6668E-04_JPRB,1.6266E-04_JPRB,7.9185E-05_JPRB,4.1808E-05_JPRB,2.1187E-04_JPRB/)
+KAO( :, 5, 9, 1) = (/&
+&5.6145E-04_JPRB,7.0981E-04_JPRB,6.8093E-04_JPRB,6.1164E-04_JPRB,5.2090E-04_JPRB,4.2218E-04_JPRB,&
+&3.1451E-04_JPRB,1.9257E-04_JPRB,9.4690E-05_JPRB,5.0644E-05_JPRB,2.5097E-04_JPRB/)
+KAO( :, 1,10, 1) = (/&
+&2.1325E-04_JPRB,2.7761E-04_JPRB,2.6556E-04_JPRB,2.3335E-04_JPRB,1.9651E-04_JPRB,1.5718E-04_JPRB,&
+&1.1525E-04_JPRB,6.9475E-05_JPRB,3.3064E-05_JPRB,1.6594E-05_JPRB,2.6093E-04_JPRB/)
+KAO( :, 2,10, 1) = (/&
+&2.6523E-04_JPRB,3.4415E-04_JPRB,3.3059E-04_JPRB,2.9327E-04_JPRB,2.4721E-04_JPRB,1.9814E-04_JPRB,&
+&1.4562E-04_JPRB,8.8015E-05_JPRB,4.1956E-05_JPRB,2.1115E-05_JPRB,3.2387E-04_JPRB/)
+KAO( :, 3,10, 1) = (/&
+&3.2298E-04_JPRB,4.1660E-04_JPRB,4.0088E-04_JPRB,3.5836E-04_JPRB,3.0264E-04_JPRB,2.4324E-04_JPRB,&
+&1.7951E-04_JPRB,1.0893E-04_JPRB,5.2077E-05_JPRB,2.6475E-05_JPRB,3.9665E-04_JPRB/)
+KAO( :, 4,10, 1) = (/&
+&3.8555E-04_JPRB,4.9515E-04_JPRB,4.7688E-04_JPRB,4.2876E-04_JPRB,3.6342E-04_JPRB,2.9294E-04_JPRB,&
+&2.1704E-04_JPRB,1.3203E-04_JPRB,6.3508E-05_JPRB,3.2669E-05_JPRB,4.7888E-04_JPRB/)
+KAO( :, 5,10, 1) = (/&
+&4.5214E-04_JPRB,5.7861E-04_JPRB,5.5869E-04_JPRB,5.0469E-04_JPRB,4.2960E-04_JPRB,3.4738E-04_JPRB,&
+&2.5818E-04_JPRB,1.5755E-04_JPRB,7.6353E-05_JPRB,3.9767E-05_JPRB,5.6953E-04_JPRB/)
+KAO( :, 1,11, 1) = (/&
+&1.8263E-04_JPRB,2.4132E-04_JPRB,2.3375E-04_JPRB,2.0689E-04_JPRB,1.7392E-04_JPRB,1.3885E-04_JPRB,&
+&1.0153E-04_JPRB,6.1012E-05_JPRB,2.8844E-05_JPRB,1.4318E-05_JPRB,3.1500E-04_JPRB/)
+KAO( :, 2,11, 1) = (/&
+&2.2729E-04_JPRB,2.9882E-04_JPRB,2.9035E-04_JPRB,2.5993E-04_JPRB,2.1873E-04_JPRB,1.7499E-04_JPRB,&
+&1.2837E-04_JPRB,7.7411E-05_JPRB,3.6724E-05_JPRB,1.8248E-05_JPRB,3.9075E-04_JPRB/)
+KAO( :, 3,11, 1) = (/&
+&2.7702E-04_JPRB,3.6186E-04_JPRB,3.5142E-04_JPRB,3.1724E-04_JPRB,2.6804E-04_JPRB,2.1505E-04_JPRB,&
+&1.5840E-04_JPRB,9.5897E-05_JPRB,4.5698E-05_JPRB,2.2869E-05_JPRB,4.7807E-04_JPRB/)
+KAO( :, 4,11, 1) = (/&
+&3.3090E-04_JPRB,4.2990E-04_JPRB,4.1786E-04_JPRB,3.7887E-04_JPRB,3.2210E-04_JPRB,2.5914E-04_JPRB,&
+&1.9166E-04_JPRB,1.1648E-04_JPRB,5.5756E-05_JPRB,2.8227E-05_JPRB,5.7397E-04_JPRB/)
+KAO( :, 5,11, 1) = (/&
+&3.8797E-04_JPRB,5.0222E-04_JPRB,4.8941E-04_JPRB,4.4563E-04_JPRB,3.8069E-04_JPRB,3.0738E-04_JPRB,&
+&2.2816E-04_JPRB,1.3917E-04_JPRB,6.7021E-05_JPRB,3.4339E-05_JPRB,6.7669E-04_JPRB/)
+KAO( :, 1,12, 1) = (/&
+&1.5441E-04_JPRB,2.0564E-04_JPRB,2.0096E-04_JPRB,1.7923E-04_JPRB,1.5061E-04_JPRB,1.2020E-04_JPRB,&
+&8.7841E-05_JPRB,5.2718E-05_JPRB,2.4841E-05_JPRB,1.2247E-05_JPRB,3.0779E-04_JPRB/)
+KAO( :, 2,12, 1) = (/&
+&1.9212E-04_JPRB,2.5449E-04_JPRB,2.4895E-04_JPRB,2.2471E-04_JPRB,1.8931E-04_JPRB,1.5143E-04_JPRB,&
+&1.1103E-04_JPRB,6.6933E-05_JPRB,3.1660E-05_JPRB,1.5617E-05_JPRB,3.8209E-04_JPRB/)
+KAO( :, 3,12, 1) = (/&
+&2.3412E-04_JPRB,3.0815E-04_JPRB,3.0111E-04_JPRB,2.7354E-04_JPRB,2.3196E-04_JPRB,1.8605E-04_JPRB,&
+&1.3699E-04_JPRB,8.2969E-05_JPRB,3.9466E-05_JPRB,1.9595E-05_JPRB,4.6727E-04_JPRB/)
+KAO( :, 4,12, 1) = (/&
+&2.7956E-04_JPRB,3.6583E-04_JPRB,3.5793E-04_JPRB,3.2668E-04_JPRB,2.7866E-04_JPRB,2.2413E-04_JPRB,&
+&1.6571E-04_JPRB,1.0083E-04_JPRB,4.8187E-05_JPRB,2.4182E-05_JPRB,5.5911E-04_JPRB/)
+KAO( :, 5,12, 1) = (/&
+&3.2770E-04_JPRB,4.2716E-04_JPRB,4.1907E-04_JPRB,3.8390E-04_JPRB,3.2941E-04_JPRB,2.6578E-04_JPRB,&
+&1.9722E-04_JPRB,1.2047E-04_JPRB,5.7910E-05_JPRB,2.9402E-05_JPRB,6.5729E-04_JPRB/)
+KAO( :, 1,13, 1) = (/&
+&1.2926E-04_JPRB,1.7285E-04_JPRB,1.6977E-04_JPRB,1.5243E-04_JPRB,1.2815E-04_JPRB,1.0230E-04_JPRB,&
+&7.4794E-05_JPRB,4.4876E-05_JPRB,2.1143E-05_JPRB,1.0395E-05_JPRB,2.5481E-04_JPRB/)
+KAO( :, 2,13, 1) = (/&
+&1.6076E-04_JPRB,2.1391E-04_JPRB,2.1001E-04_JPRB,1.9062E-04_JPRB,1.6104E-04_JPRB,1.2883E-04_JPRB,&
+&9.4499E-05_JPRB,5.6968E-05_JPRB,2.6983E-05_JPRB,1.3259E-05_JPRB,3.1628E-04_JPRB/)
+KAO( :, 3,13, 1) = (/&
+&1.9591E-04_JPRB,2.5905E-04_JPRB,2.5408E-04_JPRB,2.3203E-04_JPRB,1.9732E-04_JPRB,1.5826E-04_JPRB,&
+&1.1655E-04_JPRB,7.0656E-05_JPRB,3.3658E-05_JPRB,1.6638E-05_JPRB,3.8652E-04_JPRB/)
+KAO( :, 4,13, 1) = (/&
+&2.3390E-04_JPRB,3.0751E-04_JPRB,3.0205E-04_JPRB,2.7698E-04_JPRB,2.3712E-04_JPRB,1.9078E-04_JPRB,&
+&1.4104E-04_JPRB,8.5929E-05_JPRB,4.1109E-05_JPRB,2.0532E-05_JPRB,4.6199E-04_JPRB/)
+KAO( :, 5,13, 1) = (/&
+&2.7408E-04_JPRB,3.5916E-04_JPRB,3.5371E-04_JPRB,3.2549E-04_JPRB,2.8046E-04_JPRB,2.2630E-04_JPRB,&
+&1.6790E-04_JPRB,1.0268E-04_JPRB,4.9402E-05_JPRB,2.4960E-05_JPRB,5.4289E-04_JPRB/)
+KAO( :, 1, 1, 2) = (/&
+&6.0407E-03_JPRB,7.8065E-03_JPRB,8.1846E-03_JPRB,7.8906E-03_JPRB,7.1910E-03_JPRB,6.1108E-03_JPRB,&
+&4.6908E-03_JPRB,3.0070E-03_JPRB,1.6029E-03_JPRB,8.9663E-04_JPRB,5.4161E-04_JPRB/)
+KAO( :, 2, 1, 2) = (/&
+&6.8195E-03_JPRB,8.6717E-03_JPRB,9.0298E-03_JPRB,8.7022E-03_JPRB,7.9330E-03_JPRB,6.7597E-03_JPRB,&
+&5.2275E-03_JPRB,3.3989E-03_JPRB,1.8520E-03_JPRB,1.0477E-03_JPRB,6.3833E-04_JPRB/)
+KAO( :, 3, 1, 2) = (/&
+&7.5788E-03_JPRB,9.5388E-03_JPRB,9.9036E-03_JPRB,9.5604E-03_JPRB,8.7254E-03_JPRB,7.4504E-03_JPRB,&
+&5.8064E-03_JPRB,3.8251E-03_JPRB,2.1238E-03_JPRB,1.2161E-03_JPRB,7.5231E-04_JPRB/)
+KAO( :, 4, 1, 2) = (/&
+&8.3303E-03_JPRB,1.0419E-02_JPRB,1.0813E-02_JPRB,1.0461E-02_JPRB,9.5556E-03_JPRB,8.1956E-03_JPRB,&
+&6.4324E-03_JPRB,4.2921E-03_JPRB,2.4115E-03_JPRB,1.4052E-03_JPRB,8.8294E-04_JPRB/)
+KAO( :, 5, 1, 2) = (/&
+&9.0559E-03_JPRB,1.1320E-02_JPRB,1.1753E-02_JPRB,1.1384E-02_JPRB,1.0421E-02_JPRB,8.9932E-03_JPRB,&
+&7.1094E-03_JPRB,4.8020E-03_JPRB,2.7233E-03_JPRB,1.6150E-03_JPRB,1.0321E-03_JPRB/)
+KAO( :, 1, 2, 2) = (/&
+&5.2124E-03_JPRB,6.6819E-03_JPRB,6.9789E-03_JPRB,6.7465E-03_JPRB,6.1674E-03_JPRB,5.2549E-03_JPRB,&
+&4.0193E-03_JPRB,2.5539E-03_JPRB,1.3468E-03_JPRB,7.4621E-04_JPRB,4.4731E-04_JPRB/)
+KAO( :, 2, 2, 2) = (/&
+&5.8769E-03_JPRB,7.4300E-03_JPRB,7.7105E-03_JPRB,7.4546E-03_JPRB,6.8169E-03_JPRB,5.8241E-03_JPRB,&
+&4.4832E-03_JPRB,2.8884E-03_JPRB,1.5578E-03_JPRB,8.7448E-04_JPRB,5.2849E-04_JPRB/)
+KAO( :, 3, 2, 2) = (/&
+&6.5337E-03_JPRB,8.1860E-03_JPRB,8.4759E-03_JPRB,8.2057E-03_JPRB,7.5067E-03_JPRB,6.4273E-03_JPRB,&
+&4.9857E-03_JPRB,3.2553E-03_JPRB,1.7880E-03_JPRB,1.0185E-03_JPRB,6.2321E-04_JPRB/)
+KAO( :, 4, 2, 2) = (/&
+&7.1816E-03_JPRB,8.9552E-03_JPRB,9.2749E-03_JPRB,8.9993E-03_JPRB,8.2303E-03_JPRB,7.0662E-03_JPRB,&
+&5.5323E-03_JPRB,3.6583E-03_JPRB,2.0367E-03_JPRB,1.1804E-03_JPRB,7.3231E-04_JPRB/)
+KAO( :, 5, 2, 2) = (/&
+&7.8051E-03_JPRB,9.7506E-03_JPRB,1.0101E-02_JPRB,9.8071E-03_JPRB,8.9873E-03_JPRB,7.7508E-03_JPRB,&
+&6.1243E-03_JPRB,4.1022E-03_JPRB,2.3063E-03_JPRB,1.3585E-03_JPRB,8.5647E-04_JPRB/)
+KAO( :, 1, 3, 2) = (/&
+&4.3523E-03_JPRB,5.5520E-03_JPRB,5.7775E-03_JPRB,5.5913E-03_JPRB,5.1223E-03_JPRB,4.3826E-03_JPRB,&
+&3.3610E-03_JPRB,2.1161E-03_JPRB,1.0951E-03_JPRB,5.9556E-04_JPRB,3.7857E-04_JPRB/)
+KAO( :, 2, 3, 2) = (/&
+&4.9209E-03_JPRB,6.2002E-03_JPRB,6.4082E-03_JPRB,6.1965E-03_JPRB,5.6752E-03_JPRB,4.8744E-03_JPRB,&
+&3.7636E-03_JPRB,2.3985E-03_JPRB,1.2700E-03_JPRB,7.0291E-04_JPRB,4.5096E-04_JPRB/)
+KAO( :, 3, 3, 2) = (/&
+&5.4868E-03_JPRB,6.8502E-03_JPRB,7.0667E-03_JPRB,6.8427E-03_JPRB,6.2712E-03_JPRB,5.3957E-03_JPRB,&
+&4.1940E-03_JPRB,2.7077E-03_JPRB,1.4615E-03_JPRB,8.2150E-04_JPRB,5.3286E-04_JPRB/)
+KAO( :, 4, 3, 2) = (/&
+&6.0417E-03_JPRB,7.5160E-03_JPRB,7.7553E-03_JPRB,7.5242E-03_JPRB,6.9056E-03_JPRB,5.9509E-03_JPRB,&
+&4.6578E-03_JPRB,3.0477E-03_JPRB,1.6703E-03_JPRB,9.5611E-04_JPRB,6.2579E-04_JPRB/)
+KAO( :, 5, 3, 2) = (/&
+&6.5818E-03_JPRB,8.2045E-03_JPRB,8.4687E-03_JPRB,8.2290E-03_JPRB,7.5712E-03_JPRB,6.5448E-03_JPRB,&
+&5.1618E-03_JPRB,3.4239E-03_JPRB,1.8984E-03_JPRB,1.1049E-03_JPRB,7.3100E-04_JPRB/)
+KAO( :, 1, 4, 2) = (/&
+&3.6037E-03_JPRB,4.5619E-03_JPRB,4.7284E-03_JPRB,4.5758E-03_JPRB,4.1942E-03_JPRB,3.5992E-03_JPRB,&
+&2.7695E-03_JPRB,1.7380E-03_JPRB,8.8220E-04_JPRB,4.6885E-04_JPRB,3.3625E-04_JPRB/)
+KAO( :, 2, 4, 2) = (/&
+&4.0887E-03_JPRB,5.1148E-03_JPRB,5.2710E-03_JPRB,5.0898E-03_JPRB,4.6632E-03_JPRB,4.0157E-03_JPRB,&
+&3.1155E-03_JPRB,1.9801E-03_JPRB,1.0256E-03_JPRB,5.5681E-04_JPRB,4.0363E-04_JPRB/)
+KAO( :, 3, 4, 2) = (/&
+&4.5729E-03_JPRB,5.6722E-03_JPRB,5.8309E-03_JPRB,5.6384E-03_JPRB,5.1725E-03_JPRB,4.4617E-03_JPRB,&
+&3.4837E-03_JPRB,2.2420E-03_JPRB,1.1837E-03_JPRB,6.5451E-04_JPRB,4.7814E-04_JPRB/)
+KAO( :, 4, 4, 2) = (/&
+&5.0500E-03_JPRB,6.2435E-03_JPRB,6.4200E-03_JPRB,6.2178E-03_JPRB,5.7168E-03_JPRB,4.9415E-03_JPRB,&
+&3.8793E-03_JPRB,2.5280E-03_JPRB,1.3568E-03_JPRB,7.6386E-04_JPRB,5.6139E-04_JPRB/)
+KAO( :, 5, 4, 2) = (/&
+&5.5166E-03_JPRB,6.8327E-03_JPRB,7.0292E-03_JPRB,6.8237E-03_JPRB,6.2950E-03_JPRB,5.4568E-03_JPRB,&
+&4.3128E-03_JPRB,2.8421E-03_JPRB,1.5485E-03_JPRB,8.8605E-04_JPRB,6.5402E-04_JPRB/)
+KAO( :, 1, 5, 2) = (/&
+&2.9853E-03_JPRB,3.7407E-03_JPRB,3.8556E-03_JPRB,3.7312E-03_JPRB,3.4190E-03_JPRB,2.9428E-03_JPRB,&
+&2.2723E-03_JPRB,1.4198E-03_JPRB,7.1091E-04_JPRB,3.6855E-04_JPRB,3.1611E-04_JPRB/)
+KAO( :, 2, 5, 2) = (/&
+&3.4022E-03_JPRB,4.2141E-03_JPRB,4.3188E-03_JPRB,4.1657E-03_JPRB,3.8152E-03_JPRB,3.2922E-03_JPRB,&
+&2.5629E-03_JPRB,1.6244E-03_JPRB,8.2914E-04_JPRB,4.3956E-04_JPRB,3.7920E-04_JPRB/)
+KAO( :, 3, 5, 2) = (/&
+&3.8163E-03_JPRB,4.6908E-03_JPRB,4.7976E-03_JPRB,4.6281E-03_JPRB,4.2450E-03_JPRB,3.6719E-03_JPRB,&
+&2.8734E-03_JPRB,1.8464E-03_JPRB,9.6023E-04_JPRB,5.1918E-04_JPRB,4.5044E-04_JPRB/)
+KAO( :, 4, 5, 2) = (/&
+&4.2238E-03_JPRB,5.1812E-03_JPRB,5.2987E-03_JPRB,5.1187E-03_JPRB,4.7071E-03_JPRB,4.0810E-03_JPRB,&
+&3.2111E-03_JPRB,2.0883E-03_JPRB,1.1042E-03_JPRB,6.0901E-04_JPRB,5.3057E-04_JPRB/)
+KAO( :, 5, 5, 2) = (/&
+&4.6242E-03_JPRB,5.6849E-03_JPRB,5.8163E-03_JPRB,5.6316E-03_JPRB,5.2005E-03_JPRB,4.5233E-03_JPRB,&
+&3.5780E-03_JPRB,2.3536E-03_JPRB,1.2639E-03_JPRB,7.0822E-04_JPRB,6.1748E-04_JPRB/)
+KAO( :, 1, 6, 2) = (/&
+&2.4498E-03_JPRB,3.0475E-03_JPRB,3.1220E-03_JPRB,3.0196E-03_JPRB,2.7652E-03_JPRB,2.3889E-03_JPRB,&
+&1.8491E-03_JPRB,1.1489E-03_JPRB,5.6714E-04_JPRB,2.8783E-04_JPRB,3.1080E-04_JPRB/)
+KAO( :, 2, 6, 2) = (/&
+&2.8080E-03_JPRB,3.4520E-03_JPRB,3.5157E-03_JPRB,3.3870E-03_JPRB,3.0980E-03_JPRB,2.6793E-03_JPRB,&
+&2.0903E-03_JPRB,1.3197E-03_JPRB,6.6501E-04_JPRB,3.4472E-04_JPRB,3.7051E-04_JPRB/)
+KAO( :, 3, 6, 2) = (/&
+&3.1640E-03_JPRB,3.8601E-03_JPRB,3.9229E-03_JPRB,3.7774E-03_JPRB,3.4589E-03_JPRB,2.9977E-03_JPRB,&
+&2.3510E-03_JPRB,1.5040E-03_JPRB,7.7398E-04_JPRB,4.0896E-04_JPRB,4.3796E-04_JPRB/)
+KAO( :, 4, 6, 2) = (/&
+&3.5132E-03_JPRB,4.2794E-03_JPRB,4.3478E-03_JPRB,4.1882E-03_JPRB,3.8474E-03_JPRB,3.3403E-03_JPRB,&
+&2.6340E-03_JPRB,1.7060E-03_JPRB,8.9431E-04_JPRB,4.8188E-04_JPRB,5.1446E-04_JPRB/)
+KAO( :, 5, 6, 2) = (/&
+&3.8604E-03_JPRB,4.7099E-03_JPRB,4.7886E-03_JPRB,4.6205E-03_JPRB,4.2616E-03_JPRB,3.7139E-03_JPRB,&
+&2.9438E-03_JPRB,1.9283E-03_JPRB,1.0272E-03_JPRB,5.6324E-04_JPRB,5.9978E-04_JPRB/)
+KAO( :, 1, 7, 2) = (/&
+&1.9828E-03_JPRB,2.4555E-03_JPRB,2.5089E-03_JPRB,2.4265E-03_JPRB,2.2222E-03_JPRB,1.9219E-03_JPRB,&
+&1.4917E-03_JPRB,9.2169E-04_JPRB,4.4935E-04_JPRB,2.2355E-04_JPRB,3.2905E-04_JPRB/)
+KAO( :, 2, 7, 2) = (/&
+&2.2898E-03_JPRB,2.8015E-03_JPRB,2.8404E-03_JPRB,2.7343E-03_JPRB,2.4995E-03_JPRB,2.1638E-03_JPRB,&
+&1.6905E-03_JPRB,1.0629E-03_JPRB,5.2977E-04_JPRB,2.6953E-04_JPRB,3.8642E-04_JPRB/)
+KAO( :, 3, 7, 2) = (/&
+&2.5950E-03_JPRB,3.1495E-03_JPRB,3.1847E-03_JPRB,3.0608E-03_JPRB,2.7988E-03_JPRB,2.4271E-03_JPRB,&
+&1.9063E-03_JPRB,1.2157E-03_JPRB,6.1889E-04_JPRB,3.2121E-04_JPRB,4.5238E-04_JPRB/)
+KAO( :, 4, 7, 2) = (/&
+&2.8946E-03_JPRB,3.5066E-03_JPRB,3.5426E-03_JPRB,3.4040E-03_JPRB,3.1227E-03_JPRB,2.7135E-03_JPRB,&
+&2.1417E-03_JPRB,1.3825E-03_JPRB,7.1739E-04_JPRB,3.7957E-04_JPRB,5.2784E-04_JPRB/)
+KAO( :, 5, 7, 2) = (/&
+&3.1931E-03_JPRB,3.8740E-03_JPRB,3.9151E-03_JPRB,3.7654E-03_JPRB,3.4684E-03_JPRB,3.0255E-03_JPRB,&
+&2.3992E-03_JPRB,1.5660E-03_JPRB,8.2652E-04_JPRB,4.4537E-04_JPRB,6.1466E-04_JPRB/)
+KAO( :, 1, 8, 2) = (/&
+&1.5989E-03_JPRB,1.9702E-03_JPRB,2.0115E-03_JPRB,1.9470E-03_JPRB,1.7844E-03_JPRB,1.5432E-03_JPRB,&
+&1.1995E-03_JPRB,7.3709E-04_JPRB,3.5460E-04_JPRB,1.7239E-04_JPRB,4.0077E-04_JPRB/)
+KAO( :, 2, 8, 2) = (/&
+&1.8612E-03_JPRB,2.2667E-03_JPRB,2.2904E-03_JPRB,2.2044E-03_JPRB,2.0147E-03_JPRB,1.7439E-03_JPRB,&
+&1.3635E-03_JPRB,8.5344E-04_JPRB,4.2074E-04_JPRB,2.0967E-04_JPRB,4.6582E-04_JPRB/)
+KAO( :, 3, 8, 2) = (/&
+&2.1244E-03_JPRB,2.5624E-03_JPRB,2.5789E-03_JPRB,2.4755E-03_JPRB,2.2630E-03_JPRB,1.9622E-03_JPRB,&
+&1.5425E-03_JPRB,9.7987E-04_JPRB,4.9319E-04_JPRB,2.5142E-04_JPRB,5.4055E-04_JPRB/)
+KAO( :, 4, 8, 2) = (/&
+&2.3819E-03_JPRB,2.8649E-03_JPRB,2.8813E-03_JPRB,2.7618E-03_JPRB,2.5306E-03_JPRB,2.2005E-03_JPRB,&
+&1.7382E-03_JPRB,1.1179E-03_JPRB,5.7326E-04_JPRB,2.9833E-04_JPRB,6.2468E-04_JPRB/)
+KAO( :, 5, 8, 2) = (/&
+&2.6384E-03_JPRB,3.1771E-03_JPRB,3.1953E-03_JPRB,3.0634E-03_JPRB,2.8174E-03_JPRB,2.4583E-03_JPRB,&
+&1.9520E-03_JPRB,1.2696E-03_JPRB,6.6233E-04_JPRB,3.5121E-04_JPRB,7.1932E-04_JPRB/)
+KAO( :, 1, 9, 2) = (/&
+&1.2874E-03_JPRB,1.5807E-03_JPRB,1.6105E-03_JPRB,1.5596E-03_JPRB,1.4331E-03_JPRB,1.2409E-03_JPRB,&
+&9.6467E-04_JPRB,5.8855E-04_JPRB,2.7878E-04_JPRB,1.3223E-04_JPRB,7.1624E-04_JPRB/)
+KAO( :, 2, 9, 2) = (/&
+&1.5123E-03_JPRB,1.8336E-03_JPRB,1.8477E-03_JPRB,1.7758E-03_JPRB,1.6249E-03_JPRB,1.4066E-03_JPRB,&
+&1.0996E-03_JPRB,6.8448E-04_JPRB,3.3322E-04_JPRB,1.6247E-04_JPRB,8.2651E-04_JPRB/)
+KAO( :, 3, 9, 2) = (/&
+&1.7405E-03_JPRB,2.0860E-03_JPRB,2.0902E-03_JPRB,2.0023E-03_JPRB,1.8310E-03_JPRB,1.5864E-03_JPRB,&
+&1.2475E-03_JPRB,7.8935E-04_JPRB,3.9239E-04_JPRB,1.9609E-04_JPRB,9.5177E-04_JPRB/)
+KAO( :, 4, 9, 2) = (/&
+&1.9645E-03_JPRB,2.3442E-03_JPRB,2.3456E-03_JPRB,2.2427E-03_JPRB,2.0525E-03_JPRB,1.7831E-03_JPRB,&
+&1.4096E-03_JPRB,9.0343E-04_JPRB,4.5751E-04_JPRB,2.3374E-04_JPRB,1.0933E-03_JPRB/)
+KAO( :, 5, 9, 2) = (/&
+&2.1858E-03_JPRB,2.6097E-03_JPRB,2.6113E-03_JPRB,2.4953E-03_JPRB,2.2897E-03_JPRB,1.9950E-03_JPRB,&
+&1.5860E-03_JPRB,1.0288E-03_JPRB,5.2969E-04_JPRB,2.7603E-04_JPRB,1.2508E-03_JPRB/)
+KAO( :, 1,10, 2) = (/&
+&1.0529E-03_JPRB,1.2869E-03_JPRB,1.3057E-03_JPRB,1.2641E-03_JPRB,1.1629E-03_JPRB,1.0080E-03_JPRB,&
+&7.8495E-04_JPRB,4.7620E-04_JPRB,2.2170E-04_JPRB,1.0270E-04_JPRB,1.3580E-03_JPRB/)
+KAO( :, 2,10, 2) = (/&
+&1.2490E-03_JPRB,1.5074E-03_JPRB,1.5131E-03_JPRB,1.4495E-03_JPRB,1.3257E-03_JPRB,1.1471E-03_JPRB,&
+&8.9825E-04_JPRB,5.5593E-04_JPRB,2.6681E-04_JPRB,1.2750E-04_JPRB,1.5971E-03_JPRB/)
+KAO( :, 3,10, 2) = (/&
+&1.4492E-03_JPRB,1.7260E-03_JPRB,1.7215E-03_JPRB,1.6426E-03_JPRB,1.5005E-03_JPRB,1.2985E-03_JPRB,&
+&1.0216E-03_JPRB,6.4239E-04_JPRB,3.1568E-04_JPRB,1.5479E-04_JPRB,1.8667E-03_JPRB/)
+KAO( :, 4,10, 2) = (/&
+&1.6458E-03_JPRB,1.9481E-03_JPRB,1.9385E-03_JPRB,1.8468E-03_JPRB,1.6872E-03_JPRB,1.4625E-03_JPRB,&
+&1.1568E-03_JPRB,7.3723E-04_JPRB,3.6917E-04_JPRB,1.8512E-04_JPRB,2.1592E-03_JPRB/)
+KAO( :, 5,10, 2) = (/&
+&1.8388E-03_JPRB,2.1768E-03_JPRB,2.1658E-03_JPRB,2.0613E-03_JPRB,1.8866E-03_JPRB,1.6398E-03_JPRB,&
+&1.3041E-03_JPRB,8.4131E-04_JPRB,4.2827E-04_JPRB,2.1913E-04_JPRB,2.4697E-03_JPRB/)
+KAO( :, 1,11, 2) = (/&
+&9.3652E-04_JPRB,1.1385E-03_JPRB,1.1471E-03_JPRB,1.1044E-03_JPRB,1.0133E-03_JPRB,8.7645E-04_JPRB,&
+&6.8412E-04_JPRB,4.1724E-04_JPRB,1.9356E-04_JPRB,8.8827E-05_JPRB,1.5807E-03_JPRB/)
+KAO( :, 2,11, 2) = (/&
+&1.1100E-03_JPRB,1.3322E-03_JPRB,1.3282E-03_JPRB,1.2667E-03_JPRB,1.1577E-03_JPRB,1.0002E-03_JPRB,&
+&7.8407E-04_JPRB,4.8629E-04_JPRB,2.3224E-04_JPRB,1.1007E-04_JPRB,1.8547E-03_JPRB/)
+KAO( :, 3,11, 2) = (/&
+&1.2856E-03_JPRB,1.5232E-03_JPRB,1.5121E-03_JPRB,1.4368E-03_JPRB,1.3117E-03_JPRB,1.1334E-03_JPRB,&
+&8.9329E-04_JPRB,5.6169E-04_JPRB,2.7435E-04_JPRB,1.3331E-04_JPRB,2.1559E-03_JPRB/)
+KAO( :, 4,11, 2) = (/&
+&1.4549E-03_JPRB,1.7175E-03_JPRB,1.7035E-03_JPRB,1.6171E-03_JPRB,1.4759E-03_JPRB,1.2781E-03_JPRB,&
+&1.0119E-03_JPRB,6.4442E-04_JPRB,3.2046E-04_JPRB,1.5895E-04_JPRB,2.4834E-03_JPRB/)
+KAO( :, 5,11, 2) = (/&
+&1.6224E-03_JPRB,1.9187E-03_JPRB,1.9023E-03_JPRB,1.8058E-03_JPRB,1.6504E-03_JPRB,1.4334E-03_JPRB,&
+&1.1403E-03_JPRB,7.3509E-04_JPRB,3.7157E-04_JPRB,1.8783E-04_JPRB,2.8350E-03_JPRB/)
+KAO( :, 1,12, 2) = (/&
+&8.1827E-04_JPRB,9.9361E-04_JPRB,9.9598E-04_JPRB,9.5548E-04_JPRB,8.7645E-04_JPRB,7.5891E-04_JPRB,&
+&5.9398E-04_JPRB,3.6310E-04_JPRB,1.6830E-04_JPRB,7.6627E-05_JPRB,1.5346E-03_JPRB/)
+KAO( :, 2,12, 2) = (/&
+&9.6798E-04_JPRB,1.1604E-03_JPRB,1.1525E-03_JPRB,1.0960E-03_JPRB,1.0027E-03_JPRB,8.6748E-04_JPRB,&
+&6.8181E-04_JPRB,4.2341E-04_JPRB,2.0151E-04_JPRB,9.4708E-05_JPRB,1.7971E-03_JPRB/)
+KAO( :, 3,12, 2) = (/&
+&1.1161E-03_JPRB,1.3239E-03_JPRB,1.3118E-03_JPRB,1.2444E-03_JPRB,1.1369E-03_JPRB,9.8346E-04_JPRB,&
+&7.7783E-04_JPRB,4.8954E-04_JPRB,2.3774E-04_JPRB,1.1437E-04_JPRB,2.0823E-03_JPRB/)
+KAO( :, 4,12, 2) = (/&
+&1.2595E-03_JPRB,1.4901E-03_JPRB,1.4761E-03_JPRB,1.3996E-03_JPRB,1.2792E-03_JPRB,1.1092E-03_JPRB,&
+&8.8159E-04_JPRB,5.6210E-04_JPRB,2.7747E-04_JPRB,1.3609E-04_JPRB,2.3913E-03_JPRB/)
+KAO( :, 5,12, 2) = (/&
+&1.4015E-03_JPRB,1.6631E-03_JPRB,1.6469E-03_JPRB,1.5633E-03_JPRB,1.4309E-03_JPRB,1.2447E-03_JPRB,&
+&9.9327E-04_JPRB,6.4127E-04_JPRB,3.2131E-04_JPRB,1.6049E-04_JPRB,2.7230E-03_JPRB/)
+KAO( :, 1,13, 2) = (/&
+&7.0404E-04_JPRB,8.5653E-04_JPRB,8.5583E-04_JPRB,8.1887E-04_JPRB,7.5123E-04_JPRB,6.5123E-04_JPRB,&
+&5.1170E-04_JPRB,3.1408E-04_JPRB,1.4547E-04_JPRB,6.5608E-05_JPRB,1.2897E-03_JPRB/)
+KAO( :, 2,13, 2) = (/&
+&8.3008E-04_JPRB,9.9639E-04_JPRB,9.8845E-04_JPRB,9.3911E-04_JPRB,8.5990E-04_JPRB,7.4464E-04_JPRB,&
+&5.8802E-04_JPRB,3.6685E-04_JPRB,1.7398E-04_JPRB,8.0807E-05_JPRB,1.5096E-03_JPRB/)
+KAO( :, 3,13, 2) = (/&
+&9.5290E-04_JPRB,1.1338E-03_JPRB,1.1232E-03_JPRB,1.0653E-03_JPRB,9.7462E-04_JPRB,8.4434E-04_JPRB,&
+&6.7107E-04_JPRB,4.2462E-04_JPRB,2.0511E-04_JPRB,9.7336E-05_JPRB,1.7467E-03_JPRB/)
+KAO( :, 4,13, 2) = (/&
+&1.0727E-03_JPRB,1.2739E-03_JPRB,1.2624E-03_JPRB,1.1971E-03_JPRB,1.0958E-03_JPRB,9.5214E-04_JPRB,&
+&7.5999E-04_JPRB,4.8760E-04_JPRB,2.3902E-04_JPRB,1.1564E-04_JPRB,2.0029E-03_JPRB/)
+KAO( :, 5,13, 2) = (/&
+&1.1912E-03_JPRB,1.4186E-03_JPRB,1.4067E-03_JPRB,1.3365E-03_JPRB,1.2243E-03_JPRB,1.0674E-03_JPRB,&
+&8.5545E-04_JPRB,5.5580E-04_JPRB,2.7627E-04_JPRB,1.3629E-04_JPRB,2.2773E-03_JPRB/)
+KAO( :, 1, 1, 3) = (/&
+&1.5976E-02_JPRB,1.8568E-02_JPRB,1.8677E-02_JPRB,1.8308E-02_JPRB,1.7430E-02_JPRB,1.5980E-02_JPRB,&
+&1.3794E-02_JPRB,1.0032E-02_JPRB,5.6593E-03_JPRB,3.1315E-03_JPRB,1.4725E-03_JPRB/)
+KAO( :, 2, 1, 3) = (/&
+&1.7009E-02_JPRB,1.9983E-02_JPRB,2.0158E-02_JPRB,1.9765E-02_JPRB,1.8846E-02_JPRB,1.7308E-02_JPRB,&
+&1.4965E-02_JPRB,1.0920E-02_JPRB,6.2447E-03_JPRB,3.5291E-03_JPRB,1.7476E-03_JPRB/)
+KAO( :, 3, 1, 3) = (/&
+&1.8075E-02_JPRB,2.1456E-02_JPRB,2.1662E-02_JPRB,2.1259E-02_JPRB,2.0298E-02_JPRB,1.8677E-02_JPRB,&
+&1.6168E-02_JPRB,1.1845E-02_JPRB,6.8970E-03_JPRB,3.9734E-03_JPRB,2.0647E-03_JPRB/)
+KAO( :, 4, 1, 3) = (/&
+&1.9173E-02_JPRB,2.2980E-02_JPRB,2.3194E-02_JPRB,2.2786E-02_JPRB,2.1822E-02_JPRB,2.0115E-02_JPRB,&
+&1.7401E-02_JPRB,1.2827E-02_JPRB,7.6128E-03_JPRB,4.4580E-03_JPRB,2.4335E-03_JPRB/)
+KAO( :, 5, 1, 3) = (/&
+&2.0338E-02_JPRB,2.4533E-02_JPRB,2.4778E-02_JPRB,2.4397E-02_JPRB,2.3401E-02_JPRB,2.1590E-02_JPRB,&
+&1.8677E-02_JPRB,1.3858E-02_JPRB,8.3792E-03_JPRB,4.9858E-03_JPRB,2.8649E-03_JPRB/)
+KAO( :, 1, 2, 3) = (/&
+&1.3803E-02_JPRB,1.6030E-02_JPRB,1.6037E-02_JPRB,1.5594E-02_JPRB,1.4756E-02_JPRB,1.3459E-02_JPRB,&
+&1.1617E-02_JPRB,8.5122E-03_JPRB,4.8022E-03_JPRB,2.6569E-03_JPRB,1.3182E-03_JPRB/)
+KAO( :, 2, 2, 3) = (/&
+&1.4747E-02_JPRB,1.7312E-02_JPRB,1.7346E-02_JPRB,1.6863E-02_JPRB,1.5968E-02_JPRB,1.4592E-02_JPRB,&
+&1.2613E-02_JPRB,9.2706E-03_JPRB,5.3102E-03_JPRB,3.0023E-03_JPRB,1.5460E-03_JPRB/)
+KAO( :, 3, 2, 3) = (/&
+&1.5720E-02_JPRB,1.8638E-02_JPRB,1.8676E-02_JPRB,1.8166E-02_JPRB,1.7228E-02_JPRB,1.5775E-02_JPRB,&
+&1.3646E-02_JPRB,1.0060E-02_JPRB,5.8750E-03_JPRB,3.3882E-03_JPRB,1.8045E-03_JPRB/)
+KAO( :, 4, 2, 3) = (/&
+&1.6750E-02_JPRB,1.9993E-02_JPRB,2.0028E-02_JPRB,1.9499E-02_JPRB,1.8542E-02_JPRB,1.7020E-02_JPRB,&
+&1.4712E-02_JPRB,1.0896E-02_JPRB,6.4908E-03_JPRB,3.8125E-03_JPRB,2.0990E-03_JPRB/)
+KAO( :, 5, 2, 3) = (/&
+&1.7833E-02_JPRB,2.1360E-02_JPRB,2.1424E-02_JPRB,2.0911E-02_JPRB,1.9906E-02_JPRB,1.8307E-02_JPRB,&
+&1.5816E-02_JPRB,1.1769E-02_JPRB,7.1573E-03_JPRB,4.2773E-03_JPRB,2.4433E-03_JPRB/)
+KAO( :, 1, 3, 3) = (/&
+&1.1661E-02_JPRB,1.3546E-02_JPRB,1.3524E-02_JPRB,1.3093E-02_JPRB,1.2307E-02_JPRB,1.1159E-02_JPRB,&
+&9.5780E-03_JPRB,7.0484E-03_JPRB,3.9675E-03_JPRB,2.1846E-03_JPRB,1.2406E-03_JPRB/)
+KAO( :, 2, 3, 3) = (/&
+&1.2503E-02_JPRB,1.4707E-02_JPRB,1.4691E-02_JPRB,1.4206E-02_JPRB,1.3360E-02_JPRB,1.2110E-02_JPRB,&
+&1.0409E-02_JPRB,7.6788E-03_JPRB,4.3933E-03_JPRB,2.4719E-03_JPRB,1.4298E-03_JPRB/)
+KAO( :, 3, 3, 3) = (/&
+&1.3391E-02_JPRB,1.5887E-02_JPRB,1.5874E-02_JPRB,1.5334E-02_JPRB,1.4440E-02_JPRB,1.3111E-02_JPRB,&
+&1.1280E-02_JPRB,8.3388E-03_JPRB,4.8688E-03_JPRB,2.7958E-03_JPRB,1.6523E-03_JPRB/)
+KAO( :, 4, 3, 3) = (/&
+&1.4336E-02_JPRB,1.7085E-02_JPRB,1.7069E-02_JPRB,1.6495E-02_JPRB,1.5553E-02_JPRB,1.4166E-02_JPRB,&
+&1.2195E-02_JPRB,9.0457E-03_JPRB,5.3867E-03_JPRB,3.1533E-03_JPRB,1.9090E-03_JPRB/)
+KAO( :, 5, 3, 3) = (/&
+&1.5320E-02_JPRB,1.8321E-02_JPRB,1.8292E-02_JPRB,1.7706E-02_JPRB,1.6704E-02_JPRB,1.5265E-02_JPRB,&
+&1.3148E-02_JPRB,9.7836E-03_JPRB,5.9483E-03_JPRB,3.5492E-03_JPRB,2.2059E-03_JPRB/)
+KAO( :, 1, 4, 3) = (/&
+&9.7449E-03_JPRB,1.1294E-02_JPRB,1.1258E-02_JPRB,1.0884E-02_JPRB,1.0199E-02_JPRB,9.2227E-03_JPRB,&
+&7.8658E-03_JPRB,5.7767E-03_JPRB,3.2406E-03_JPRB,1.7708E-03_JPRB,1.2728E-03_JPRB/)
+KAO( :, 2, 4, 3) = (/&
+&1.0487E-02_JPRB,1.2330E-02_JPRB,1.2286E-02_JPRB,1.1862E-02_JPRB,1.1122E-02_JPRB,1.0046E-02_JPRB,&
+&8.5629E-03_JPRB,6.2952E-03_JPRB,3.5929E-03_JPRB,2.0093E-03_JPRB,1.4326E-03_JPRB/)
+KAO( :, 3, 4, 3) = (/&
+&1.1282E-02_JPRB,1.3369E-02_JPRB,1.3332E-02_JPRB,1.2857E-02_JPRB,1.2064E-02_JPRB,1.0901E-02_JPRB,&
+&9.2930E-03_JPRB,6.8463E-03_JPRB,3.9872E-03_JPRB,2.2770E-03_JPRB,1.6227E-03_JPRB/)
+KAO( :, 4, 4, 3) = (/&
+&1.2130E-02_JPRB,1.4435E-02_JPRB,1.4396E-02_JPRB,1.3883E-02_JPRB,1.3026E-02_JPRB,1.1786E-02_JPRB,&
+&1.0067E-02_JPRB,7.4371E-03_JPRB,4.4153E-03_JPRB,2.5725E-03_JPRB,1.8437E-03_JPRB/)
+KAO( :, 5, 4, 3) = (/&
+&1.3022E-02_JPRB,1.5544E-02_JPRB,1.5501E-02_JPRB,1.4941E-02_JPRB,1.4007E-02_JPRB,1.2708E-02_JPRB,&
+&1.0876E-02_JPRB,8.0666E-03_JPRB,4.8767E-03_JPRB,2.9035E-03_JPRB,2.1000E-03_JPRB/)
+KAO( :, 1, 5, 3) = (/&
+&8.1183E-03_JPRB,9.3706E-03_JPRB,9.3339E-03_JPRB,9.0036E-03_JPRB,8.4209E-03_JPRB,7.5832E-03_JPRB,&
+&6.4445E-03_JPRB,4.7331E-03_JPRB,2.6371E-03_JPRB,1.4269E-03_JPRB,1.3512E-03_JPRB/)
+KAO( :, 2, 5, 3) = (/&
+&8.7619E-03_JPRB,1.0271E-02_JPRB,1.0226E-02_JPRB,9.8533E-03_JPRB,9.2177E-03_JPRB,8.3034E-03_JPRB,&
+&7.0466E-03_JPRB,5.1625E-03_JPRB,2.9261E-03_JPRB,1.6222E-03_JPRB,1.4975E-03_JPRB/)
+KAO( :, 3, 5, 3) = (/&
+&9.4590E-03_JPRB,1.1191E-02_JPRB,1.1132E-02_JPRB,1.0717E-02_JPRB,1.0035E-02_JPRB,9.0438E-03_JPRB,&
+&7.6825E-03_JPRB,5.6186E-03_JPRB,3.2487E-03_JPRB,1.8419E-03_JPRB,1.6628E-03_JPRB/)
+KAO( :, 4, 5, 3) = (/&
+&1.0214E-02_JPRB,1.2129E-02_JPRB,1.2065E-02_JPRB,1.1613E-02_JPRB,1.0874E-02_JPRB,9.8104E-03_JPRB,&
+&8.3376E-03_JPRB,6.1127E-03_JPRB,3.6040E-03_JPRB,2.0844E-03_JPRB,1.8526E-03_JPRB/)
+KAO( :, 5, 5, 3) = (/&
+&1.1012E-02_JPRB,1.3112E-02_JPRB,1.3045E-02_JPRB,1.2543E-02_JPRB,1.1733E-02_JPRB,1.0605E-02_JPRB,&
+&9.0222E-03_JPRB,6.6408E-03_JPRB,3.9796E-03_JPRB,2.3572E-03_JPRB,2.0770E-03_JPRB/)
+KAO( :, 1, 6, 3) = (/&
+&6.7387E-03_JPRB,7.7194E-03_JPRB,7.6902E-03_JPRB,7.3986E-03_JPRB,6.9016E-03_JPRB,6.1800E-03_JPRB,&
+&5.2304E-03_JPRB,3.8605E-03_JPRB,2.1393E-03_JPRB,1.1384E-03_JPRB,1.3809E-03_JPRB/)
+KAO( :, 2, 6, 3) = (/&
+&7.2904E-03_JPRB,8.4901E-03_JPRB,8.4559E-03_JPRB,8.1341E-03_JPRB,7.5897E-03_JPRB,6.8043E-03_JPRB,&
+&5.7497E-03_JPRB,4.2219E-03_JPRB,2.3703E-03_JPRB,1.2951E-03_JPRB,1.5336E-03_JPRB/)
+KAO( :, 3, 6, 3) = (/&
+&7.8883E-03_JPRB,9.2955E-03_JPRB,9.2345E-03_JPRB,8.8797E-03_JPRB,8.2936E-03_JPRB,7.4421E-03_JPRB,&
+&6.2952E-03_JPRB,4.6028E-03_JPRB,2.6285E-03_JPRB,1.4716E-03_JPRB,1.6931E-03_JPRB/)
+KAO( :, 4, 6, 3) = (/&
+&8.5494E-03_JPRB,1.0121E-02_JPRB,1.0046E-02_JPRB,9.6522E-03_JPRB,9.0176E-03_JPRB,8.1042E-03_JPRB,&
+&6.8613E-03_JPRB,5.0179E-03_JPRB,2.9165E-03_JPRB,1.6693E-03_JPRB,1.8690E-03_JPRB/)
+KAO( :, 5, 6, 3) = (/&
+&9.2455E-03_JPRB,1.0989E-02_JPRB,1.0902E-02_JPRB,1.0465E-02_JPRB,9.7689E-03_JPRB,8.7913E-03_JPRB,&
+&7.4494E-03_JPRB,5.4572E-03_JPRB,3.2276E-03_JPRB,1.8909E-03_JPRB,2.0643E-03_JPRB/)
+KAO( :, 1, 7, 3) = (/&
+&5.5708E-03_JPRB,6.3303E-03_JPRB,6.2934E-03_JPRB,6.0276E-03_JPRB,5.6127E-03_JPRB,5.0058E-03_JPRB,&
+&4.2172E-03_JPRB,3.1142E-03_JPRB,1.7288E-03_JPRB,9.0214E-04_JPRB,1.3580E-03_JPRB/)
+KAO( :, 2, 7, 3) = (/&
+&6.0396E-03_JPRB,6.9771E-03_JPRB,6.9412E-03_JPRB,6.6559E-03_JPRB,6.1993E-03_JPRB,5.5301E-03_JPRB,&
+&4.6524E-03_JPRB,3.4207E-03_JPRB,1.9119E-03_JPRB,1.0257E-03_JPRB,1.5329E-03_JPRB/)
+KAO( :, 3, 7, 3) = (/&
+&6.5450E-03_JPRB,7.6646E-03_JPRB,7.6059E-03_JPRB,7.3014E-03_JPRB,6.8031E-03_JPRB,6.0741E-03_JPRB,&
+&5.1130E-03_JPRB,3.7412E-03_JPRB,2.1172E-03_JPRB,1.1666E-03_JPRB,1.7255E-03_JPRB/)
+KAO( :, 4, 7, 3) = (/&
+&7.1105E-03_JPRB,8.3764E-03_JPRB,8.3038E-03_JPRB,7.9705E-03_JPRB,7.4282E-03_JPRB,6.6393E-03_JPRB,&
+&5.5928E-03_JPRB,4.0886E-03_JPRB,2.3470E-03_JPRB,1.3258E-03_JPRB,1.9241E-03_JPRB/)
+KAO( :, 5, 7, 3) = (/&
+&7.7089E-03_JPRB,9.1270E-03_JPRB,9.0467E-03_JPRB,8.6734E-03_JPRB,8.0760E-03_JPRB,7.2286E-03_JPRB,&
+&6.0941E-03_JPRB,4.4574E-03_JPRB,2.6042E-03_JPRB,1.5049E-03_JPRB,2.1289E-03_JPRB/)
+KAO( :, 1, 8, 3) = (/&
+&4.5931E-03_JPRB,5.1838E-03_JPRB,5.1398E-03_JPRB,4.8986E-03_JPRB,4.5439E-03_JPRB,4.0450E-03_JPRB,&
+&3.3970E-03_JPRB,2.5021E-03_JPRB,1.3915E-03_JPRB,7.1461E-04_JPRB,1.4342E-03_JPRB/)
+KAO( :, 2, 8, 3) = (/&
+&4.9923E-03_JPRB,5.7205E-03_JPRB,5.6835E-03_JPRB,5.4255E-03_JPRB,5.0420E-03_JPRB,4.4815E-03_JPRB,&
+&3.7569E-03_JPRB,2.7595E-03_JPRB,1.5378E-03_JPRB,8.1223E-04_JPRB,1.6265E-03_JPRB/)
+KAO( :, 3, 8, 3) = (/&
+&5.4187E-03_JPRB,6.3059E-03_JPRB,6.2512E-03_JPRB,5.9779E-03_JPRB,5.5552E-03_JPRB,4.9397E-03_JPRB,&
+&4.1407E-03_JPRB,3.0283E-03_JPRB,1.7020E-03_JPRB,9.2374E-04_JPRB,1.8395E-03_JPRB/)
+KAO( :, 4, 8, 3) = (/&
+&5.8951E-03_JPRB,6.9159E-03_JPRB,6.8456E-03_JPRB,6.5555E-03_JPRB,6.0927E-03_JPRB,5.4203E-03_JPRB,&
+&4.5434E-03_JPRB,3.3140E-03_JPRB,1.8874E-03_JPRB,1.0500E-03_JPRB,2.0723E-03_JPRB/)
+KAO( :, 5, 8, 3) = (/&
+&6.4067E-03_JPRB,7.5583E-03_JPRB,7.4822E-03_JPRB,7.1624E-03_JPRB,6.6529E-03_JPRB,5.9218E-03_JPRB,&
+&4.9680E-03_JPRB,3.6203E-03_JPRB,2.0980E-03_JPRB,1.1933E-03_JPRB,2.3247E-03_JPRB/)
+KAO( :, 1, 9, 3) = (/&
+&3.7723E-03_JPRB,4.2334E-03_JPRB,4.1819E-03_JPRB,3.9649E-03_JPRB,3.6588E-03_JPRB,3.2575E-03_JPRB,&
+&2.7305E-03_JPRB,2.0072E-03_JPRB,1.1193E-03_JPRB,5.6741E-04_JPRB,1.9860E-03_JPRB/)
+KAO( :, 2, 9, 3) = (/&
+&4.1112E-03_JPRB,4.6764E-03_JPRB,4.6357E-03_JPRB,4.4068E-03_JPRB,4.0793E-03_JPRB,3.6198E-03_JPRB,&
+&3.0290E-03_JPRB,2.2191E-03_JPRB,1.2358E-03_JPRB,6.4340E-04_JPRB,2.2587E-03_JPRB/)
+KAO( :, 3, 9, 3) = (/&
+&4.4681E-03_JPRB,5.1657E-03_JPRB,5.1169E-03_JPRB,4.8742E-03_JPRB,4.5148E-03_JPRB,4.0038E-03_JPRB,&
+&3.3466E-03_JPRB,2.4441E-03_JPRB,1.3675E-03_JPRB,7.3070E-04_JPRB,2.5668E-03_JPRB/)
+KAO( :, 4, 9, 3) = (/&
+&4.8668E-03_JPRB,5.6866E-03_JPRB,5.6264E-03_JPRB,5.3677E-03_JPRB,4.9748E-03_JPRB,4.4113E-03_JPRB,&
+&3.6848E-03_JPRB,2.6780E-03_JPRB,1.5165E-03_JPRB,8.3094E-04_JPRB,2.9044E-03_JPRB/)
+KAO( :, 5, 9, 3) = (/&
+&5.3024E-03_JPRB,6.2338E-03_JPRB,6.1683E-03_JPRB,5.8906E-03_JPRB,5.4560E-03_JPRB,4.8416E-03_JPRB,&
+&4.0418E-03_JPRB,2.9316E-03_JPRB,1.6868E-03_JPRB,9.4494E-04_JPRB,3.2758E-03_JPRB/)
+KAO( :, 1,10, 3) = (/&
+&3.1048E-03_JPRB,3.4713E-03_JPRB,3.4149E-03_JPRB,3.2215E-03_JPRB,2.9606E-03_JPRB,2.6323E-03_JPRB,&
+&2.2040E-03_JPRB,1.6183E-03_JPRB,9.0511E-04_JPRB,4.5442E-04_JPRB,3.4066E-03_JPRB/)
+KAO( :, 2,10, 3) = (/&
+&3.3920E-03_JPRB,3.8387E-03_JPRB,3.7924E-03_JPRB,3.5898E-03_JPRB,3.3084E-03_JPRB,2.9358E-03_JPRB,&
+&2.4507E-03_JPRB,1.7915E-03_JPRB,9.9919E-04_JPRB,5.1342E-04_JPRB,3.8889E-03_JPRB/)
+KAO( :, 3,10, 3) = (/&
+&3.6957E-03_JPRB,4.2459E-03_JPRB,4.1994E-03_JPRB,3.9831E-03_JPRB,3.6769E-03_JPRB,3.2571E-03_JPRB,&
+&2.7157E-03_JPRB,1.9778E-03_JPRB,1.1048E-03_JPRB,5.8256E-04_JPRB,4.4355E-03_JPRB/)
+KAO( :, 4,10, 3) = (/&
+&4.0318E-03_JPRB,4.6867E-03_JPRB,4.6340E-03_JPRB,4.4000E-03_JPRB,4.0676E-03_JPRB,3.6005E-03_JPRB,&
+&2.9971E-03_JPRB,2.1730E-03_JPRB,1.2259E-03_JPRB,6.6297E-04_JPRB,5.0564E-03_JPRB/)
+KAO( :, 5,10, 3) = (/&
+&4.4033E-03_JPRB,5.1538E-03_JPRB,5.0961E-03_JPRB,4.8470E-03_JPRB,4.4796E-03_JPRB,3.9660E-03_JPRB,&
+&3.2977E-03_JPRB,2.3839E-03_JPRB,1.3631E-03_JPRB,7.5476E-04_JPRB,5.7516E-03_JPRB/)
+KAO( :, 1,11, 3) = (/&
+&2.6765E-03_JPRB,2.9827E-03_JPRB,2.9227E-03_JPRB,2.7508E-03_JPRB,2.5220E-03_JPRB,2.2363E-03_JPRB,&
+&1.8676E-03_JPRB,1.3675E-03_JPRB,7.6612E-04_JPRB,3.8447E-04_JPRB,4.0480E-03_JPRB/)
+KAO( :, 2,11, 3) = (/&
+&2.9286E-03_JPRB,3.3040E-03_JPRB,3.2538E-03_JPRB,3.0703E-03_JPRB,2.8192E-03_JPRB,2.4962E-03_JPRB,&
+&2.0772E-03_JPRB,1.5146E-03_JPRB,8.4625E-04_JPRB,4.3409E-04_JPRB,4.6666E-03_JPRB/)
+KAO( :, 3,11, 3) = (/&
+&3.2003E-03_JPRB,3.6648E-03_JPRB,3.6125E-03_JPRB,3.4113E-03_JPRB,3.1362E-03_JPRB,2.7724E-03_JPRB,&
+&2.3029E-03_JPRB,1.6722E-03_JPRB,9.3679E-04_JPRB,4.9229E-04_JPRB,5.3654E-03_JPRB/)
+KAO( :, 4,11, 3) = (/&
+&3.5051E-03_JPRB,4.0531E-03_JPRB,3.9947E-03_JPRB,3.7750E-03_JPRB,3.4761E-03_JPRB,3.0693E-03_JPRB,&
+&2.5452E-03_JPRB,1.8406E-03_JPRB,1.0404E-03_JPRB,5.6079E-04_JPRB,6.1512E-03_JPRB/)
+KAO( :, 5,11, 3) = (/&
+&3.8321E-03_JPRB,4.4649E-03_JPRB,4.4022E-03_JPRB,4.1654E-03_JPRB,3.8377E-03_JPRB,3.3874E-03_JPRB,&
+&2.8053E-03_JPRB,2.0226E-03_JPRB,1.1574E-03_JPRB,6.3974E-04_JPRB,7.0160E-03_JPRB/)
+KAO( :, 1,12, 3) = (/&
+&2.3036E-03_JPRB,2.5583E-03_JPRB,2.4978E-03_JPRB,2.3445E-03_JPRB,2.1430E-03_JPRB,1.8944E-03_JPRB,&
+&1.5761E-03_JPRB,1.1517E-03_JPRB,6.4556E-04_JPRB,3.2349E-04_JPRB,4.0392E-03_JPRB/)
+KAO( :, 2,12, 3) = (/&
+&2.5244E-03_JPRB,2.8452E-03_JPRB,2.7899E-03_JPRB,2.6237E-03_JPRB,2.3996E-03_JPRB,2.1171E-03_JPRB,&
+&1.7537E-03_JPRB,1.2751E-03_JPRB,7.1384E-04_JPRB,3.6513E-04_JPRB,4.6690E-03_JPRB/)
+KAO( :, 3,12, 3) = (/&
+&2.7664E-03_JPRB,3.1661E-03_JPRB,3.1080E-03_JPRB,2.9230E-03_JPRB,2.6751E-03_JPRB,2.3552E-03_JPRB,&
+&1.9462E-03_JPRB,1.4075E-03_JPRB,7.9075E-04_JPRB,4.1435E-04_JPRB,5.3798E-03_JPRB/)
+KAO( :, 4,12, 3) = (/&
+&3.0371E-03_JPRB,3.5090E-03_JPRB,3.4460E-03_JPRB,3.2437E-03_JPRB,2.9706E-03_JPRB,2.6114E-03_JPRB,&
+&2.1543E-03_JPRB,1.5507E-03_JPRB,8.7926E-04_JPRB,4.7250E-04_JPRB,6.1711E-03_JPRB/)
+KAO( :, 5,12, 3) = (/&
+&3.3239E-03_JPRB,3.8709E-03_JPRB,3.8063E-03_JPRB,3.5842E-03_JPRB,3.2855E-03_JPRB,2.8872E-03_JPRB,&
+&2.3774E-03_JPRB,1.7073E-03_JPRB,9.7951E-04_JPRB,5.3974E-04_JPRB,7.0329E-03_JPRB/)
+KAO( :, 1,13, 3) = (/&
+&1.9693E-03_JPRB,2.1819E-03_JPRB,2.1260E-03_JPRB,1.9917E-03_JPRB,1.8142E-03_JPRB,1.5977E-03_JPRB,&
+&1.3230E-03_JPRB,9.6163E-04_JPRB,5.3722E-04_JPRB,2.6914E-04_JPRB,3.4457E-03_JPRB/)
+KAO( :, 2,13, 3) = (/&
+&2.1605E-03_JPRB,2.4363E-03_JPRB,2.3825E-03_JPRB,2.2341E-03_JPRB,2.0358E-03_JPRB,1.7890E-03_JPRB,&
+&1.4743E-03_JPRB,1.0637E-03_JPRB,5.9461E-04_JPRB,3.0420E-04_JPRB,3.9859E-03_JPRB/)
+KAO( :, 3,13, 3) = (/&
+&2.3729E-03_JPRB,2.7175E-03_JPRB,2.6607E-03_JPRB,2.4950E-03_JPRB,2.2744E-03_JPRB,1.9956E-03_JPRB,&
+&1.6383E-03_JPRB,1.1739E-03_JPRB,6.5958E-04_JPRB,3.4564E-04_JPRB,4.5954E-03_JPRB/)
+KAO( :, 4,13, 3) = (/&
+&2.6042E-03_JPRB,3.0147E-03_JPRB,2.9558E-03_JPRB,2.7741E-03_JPRB,2.5310E-03_JPRB,2.2169E-03_JPRB,&
+&1.8165E-03_JPRB,1.2954E-03_JPRB,7.3516E-04_JPRB,3.9462E-04_JPRB,5.2719E-03_JPRB/)
+KAO( :, 5,13, 3) = (/&
+&2.8484E-03_JPRB,3.3273E-03_JPRB,3.2687E-03_JPRB,3.0678E-03_JPRB,2.8024E-03_JPRB,2.4543E-03_JPRB,&
+&2.0064E-03_JPRB,1.4291E-03_JPRB,8.2095E-04_JPRB,4.5105E-04_JPRB,5.9980E-03_JPRB/)
+KAO( :, 1, 1, 4) = (/&
+&3.2206E-02_JPRB,3.7616E-02_JPRB,3.7442E-02_JPRB,3.5602E-02_JPRB,3.2848E-02_JPRB,2.9212E-02_JPRB,&
+&2.4411E-02_JPRB,1.8093E-02_JPRB,1.1087E-02_JPRB,6.4396E-03_JPRB,4.1579E-03_JPRB/)
+KAO( :, 2, 1, 4) = (/&
+&3.3985E-02_JPRB,4.0141E-02_JPRB,4.0066E-02_JPRB,3.8220E-02_JPRB,3.5310E-02_JPRB,3.1363E-02_JPRB,&
+&2.6274E-02_JPRB,1.9563E-02_JPRB,1.2137E-02_JPRB,7.2344E-03_JPRB,4.9421E-03_JPRB/)
+KAO( :, 3, 1, 4) = (/&
+&3.5840E-02_JPRB,4.2657E-02_JPRB,4.2657E-02_JPRB,4.0828E-02_JPRB,3.7715E-02_JPRB,3.3592E-02_JPRB,&
+&2.8238E-02_JPRB,2.1146E-02_JPRB,1.3263E-02_JPRB,8.1243E-03_JPRB,5.8370E-03_JPRB/)
+KAO( :, 4, 1, 4) = (/&
+&3.7710E-02_JPRB,4.5086E-02_JPRB,4.5284E-02_JPRB,4.3358E-02_JPRB,4.0123E-02_JPRB,3.5805E-02_JPRB,&
+&3.0308E-02_JPRB,2.2810E-02_JPRB,1.4502E-02_JPRB,9.1329E-03_JPRB,6.8906E-03_JPRB/)
+KAO( :, 5, 1, 4) = (/&
+&3.9546E-02_JPRB,4.7465E-02_JPRB,4.7884E-02_JPRB,4.5873E-02_JPRB,4.2558E-02_JPRB,3.8078E-02_JPRB,&
+&3.2453E-02_JPRB,2.4580E-02_JPRB,1.5839E-02_JPRB,1.0280E-02_JPRB,8.0935E-03_JPRB/)
+KAO( :, 1, 2, 4) = (/&
+&2.8104E-02_JPRB,3.2464E-02_JPRB,3.2358E-02_JPRB,3.0703E-02_JPRB,2.8262E-02_JPRB,2.5049E-02_JPRB,&
+&2.0887E-02_JPRB,1.5371E-02_JPRB,9.5321E-03_JPRB,5.5766E-03_JPRB,3.4128E-03_JPRB/)
+KAO( :, 2, 2, 4) = (/&
+&2.9709E-02_JPRB,3.4733E-02_JPRB,3.4706E-02_JPRB,3.3029E-02_JPRB,3.0407E-02_JPRB,2.6975E-02_JPRB,&
+&2.2525E-02_JPRB,1.6668E-02_JPRB,1.0444E-02_JPRB,6.2493E-03_JPRB,4.0210E-03_JPRB/)
+KAO( :, 3, 2, 4) = (/&
+&3.1368E-02_JPRB,3.6997E-02_JPRB,3.7038E-02_JPRB,3.5309E-02_JPRB,3.2541E-02_JPRB,2.8948E-02_JPRB,&
+&2.4248E-02_JPRB,1.8078E-02_JPRB,1.1429E-02_JPRB,7.0025E-03_JPRB,4.7234E-03_JPRB/)
+KAO( :, 4, 2, 4) = (/&
+&3.3025E-02_JPRB,3.9194E-02_JPRB,3.9406E-02_JPRB,3.7566E-02_JPRB,3.4724E-02_JPRB,3.0907E-02_JPRB,&
+&2.6047E-02_JPRB,1.9552E-02_JPRB,1.2511E-02_JPRB,7.8460E-03_JPRB,5.5531E-03_JPRB/)
+KAO( :, 5, 2, 4) = (/&
+&3.4658E-02_JPRB,4.1417E-02_JPRB,4.1750E-02_JPRB,3.9870E-02_JPRB,3.6925E-02_JPRB,3.2920E-02_JPRB,&
+&2.7922E-02_JPRB,2.1122E-02_JPRB,1.3687E-02_JPRB,8.7925E-03_JPRB,6.5017E-03_JPRB/)
+KAO( :, 1, 3, 4) = (/&
+&2.4251E-02_JPRB,2.7585E-02_JPRB,2.7414E-02_JPRB,2.5896E-02_JPRB,2.3769E-02_JPRB,2.1015E-02_JPRB,&
+&1.7490E-02_JPRB,1.2799E-02_JPRB,7.9859E-03_JPRB,4.6822E-03_JPRB,3.0167E-03_JPRB/)
+KAO( :, 2, 3, 4) = (/&
+&2.5692E-02_JPRB,2.9548E-02_JPRB,2.9492E-02_JPRB,2.7935E-02_JPRB,2.5630E-02_JPRB,2.2680E-02_JPRB,&
+&1.8918E-02_JPRB,1.3904E-02_JPRB,8.7584E-03_JPRB,5.2529E-03_JPRB,3.4804E-03_JPRB/)
+KAO( :, 3, 3, 4) = (/&
+&2.7159E-02_JPRB,3.1559E-02_JPRB,3.1551E-02_JPRB,2.9932E-02_JPRB,2.7503E-02_JPRB,2.4395E-02_JPRB,&
+&2.0399E-02_JPRB,1.5119E-02_JPRB,9.5888E-03_JPRB,5.8905E-03_JPRB,4.0103E-03_JPRB/)
+KAO( :, 4, 3, 4) = (/&
+&2.8607E-02_JPRB,3.3560E-02_JPRB,3.3603E-02_JPRB,3.1948E-02_JPRB,2.9447E-02_JPRB,2.6126E-02_JPRB,&
+&2.1928E-02_JPRB,1.6399E-02_JPRB,1.0499E-02_JPRB,6.6008E-03_JPRB,4.6200E-03_JPRB/)
+KAO( :, 5, 3, 4) = (/&
+&3.0051E-02_JPRB,3.5562E-02_JPRB,3.5683E-02_JPRB,3.4039E-02_JPRB,3.1430E-02_JPRB,2.7908E-02_JPRB,&
+&2.3518E-02_JPRB,1.7750E-02_JPRB,1.1493E-02_JPRB,7.3863E-03_JPRB,5.3130E-03_JPRB/)
+KAO( :, 1, 4, 4) = (/&
+&2.0821E-02_JPRB,2.3399E-02_JPRB,2.3111E-02_JPRB,2.1751E-02_JPRB,1.9864E-02_JPRB,1.7485E-02_JPRB,&
+&1.4530E-02_JPRB,1.0587E-02_JPRB,6.6174E-03_JPRB,3.8560E-03_JPRB,2.7540E-03_JPRB/)
+KAO( :, 2, 4, 4) = (/&
+&2.2145E-02_JPRB,2.5108E-02_JPRB,2.4937E-02_JPRB,2.3519E-02_JPRB,2.1458E-02_JPRB,1.8898E-02_JPRB,&
+&1.5727E-02_JPRB,1.1528E-02_JPRB,7.2647E-03_JPRB,4.3306E-03_JPRB,3.1427E-03_JPRB/)
+KAO( :, 3, 4, 4) = (/&
+&2.3458E-02_JPRB,2.6892E-02_JPRB,2.6767E-02_JPRB,2.5244E-02_JPRB,2.3063E-02_JPRB,2.0374E-02_JPRB,&
+&1.6989E-02_JPRB,1.2556E-02_JPRB,7.9663E-03_JPRB,4.8678E-03_JPRB,3.5922E-03_JPRB/)
+KAO( :, 4, 4, 4) = (/&
+&2.4742E-02_JPRB,2.8684E-02_JPRB,2.8567E-02_JPRB,2.7002E-02_JPRB,2.4744E-02_JPRB,2.1891E-02_JPRB,&
+&1.8302E-02_JPRB,1.3637E-02_JPRB,8.7323E-03_JPRB,5.4756E-03_JPRB,4.1087E-03_JPRB/)
+KAO( :, 5, 4, 4) = (/&
+&2.6031E-02_JPRB,3.0478E-02_JPRB,3.0373E-02_JPRB,2.8831E-02_JPRB,2.6502E-02_JPRB,2.3472E-02_JPRB,&
+&1.9656E-02_JPRB,1.4775E-02_JPRB,9.5721E-03_JPRB,6.1469E-03_JPRB,4.6820E-03_JPRB/)
+KAO( :, 1, 5, 4) = (/&
+&1.7749E-02_JPRB,1.9809E-02_JPRB,1.9474E-02_JPRB,1.8308E-02_JPRB,1.6656E-02_JPRB,1.4612E-02_JPRB,&
+&1.2090E-02_JPRB,8.7523E-03_JPRB,5.4506E-03_JPRB,3.1594E-03_JPRB,2.6009E-03_JPRB/)
+KAO( :, 2, 5, 4) = (/&
+&1.8962E-02_JPRB,2.1368E-02_JPRB,2.1111E-02_JPRB,1.9856E-02_JPRB,1.8026E-02_JPRB,1.5797E-02_JPRB,&
+&1.3087E-02_JPRB,9.5480E-03_JPRB,5.9920E-03_JPRB,3.5465E-03_JPRB,2.9383E-03_JPRB/)
+KAO( :, 3, 5, 4) = (/&
+&2.0156E-02_JPRB,2.2955E-02_JPRB,2.2766E-02_JPRB,2.1370E-02_JPRB,1.9402E-02_JPRB,1.7036E-02_JPRB,&
+&1.4132E-02_JPRB,1.0409E-02_JPRB,6.5849E-03_JPRB,3.9909E-03_JPRB,3.3267E-03_JPRB/)
+KAO( :, 4, 5, 4) = (/&
+&2.1323E-02_JPRB,2.4554E-02_JPRB,2.4380E-02_JPRB,2.2909E-02_JPRB,2.0850E-02_JPRB,1.8325E-02_JPRB,&
+&1.5252E-02_JPRB,1.1317E-02_JPRB,7.2332E-03_JPRB,4.4966E-03_JPRB,3.7667E-03_JPRB/)
+KAO( :, 5, 5, 4) = (/&
+&2.2499E-02_JPRB,2.6158E-02_JPRB,2.5975E-02_JPRB,2.4497E-02_JPRB,2.2360E-02_JPRB,1.9686E-02_JPRB,&
+&1.6421E-02_JPRB,1.2278E-02_JPRB,7.9387E-03_JPRB,5.0610E-03_JPRB,4.2588E-03_JPRB/)
+KAO( :, 1, 6, 4) = (/&
+&1.5007E-02_JPRB,1.6598E-02_JPRB,1.6252E-02_JPRB,1.5296E-02_JPRB,1.3918E-02_JPRB,1.2197E-02_JPRB,&
+&1.0070E-02_JPRB,7.1973E-03_JPRB,4.4418E-03_JPRB,2.5632E-03_JPRB,2.6270E-03_JPRB/)
+KAO( :, 2, 6, 4) = (/&
+&1.6096E-02_JPRB,1.8008E-02_JPRB,1.7715E-02_JPRB,1.6668E-02_JPRB,1.5117E-02_JPRB,1.3217E-02_JPRB,&
+&1.0902E-02_JPRB,7.8574E-03_JPRB,4.8940E-03_JPRB,2.8829E-03_JPRB,2.9097E-03_JPRB/)
+KAO( :, 3, 6, 4) = (/&
+&1.7175E-02_JPRB,1.9434E-02_JPRB,1.9209E-02_JPRB,1.8020E-02_JPRB,1.6319E-02_JPRB,1.4272E-02_JPRB,&
+&1.1772E-02_JPRB,8.5712E-03_JPRB,5.3927E-03_JPRB,3.2482E-03_JPRB,3.2462E-03_JPRB/)
+KAO( :, 4, 6, 4) = (/&
+&1.8239E-02_JPRB,2.0847E-02_JPRB,2.0666E-02_JPRB,1.9382E-02_JPRB,1.7575E-02_JPRB,1.5371E-02_JPRB,&
+&1.2710E-02_JPRB,9.3314E-03_JPRB,5.9328E-03_JPRB,3.6614E-03_JPRB,3.6324E-03_JPRB/)
+KAO( :, 5, 6, 4) = (/&
+&1.9314E-02_JPRB,2.2274E-02_JPRB,2.2099E-02_JPRB,2.0773E-02_JPRB,1.8871E-02_JPRB,1.6523E-02_JPRB,&
+&1.3707E-02_JPRB,1.0147E-02_JPRB,6.5230E-03_JPRB,4.1212E-03_JPRB,4.0664E-03_JPRB/)
+KAO( :, 1, 7, 4) = (/&
+&1.2562E-02_JPRB,1.3749E-02_JPRB,1.3412E-02_JPRB,1.2652E-02_JPRB,1.1501E-02_JPRB,1.0078E-02_JPRB,&
+&8.3008E-03_JPRB,5.8951E-03_JPRB,3.5839E-03_JPRB,2.0640E-03_JPRB,2.8990E-03_JPRB/)
+KAO( :, 2, 7, 4) = (/&
+&1.3513E-02_JPRB,1.4992E-02_JPRB,1.4706E-02_JPRB,1.3842E-02_JPRB,1.2549E-02_JPRB,1.0956E-02_JPRB,&
+&9.0265E-03_JPRB,6.4348E-03_JPRB,3.9618E-03_JPRB,2.3233E-03_JPRB,3.1544E-03_JPRB/)
+KAO( :, 3, 7, 4) = (/&
+&1.4463E-02_JPRB,1.6248E-02_JPRB,1.6003E-02_JPRB,1.5021E-02_JPRB,1.3588E-02_JPRB,1.1865E-02_JPRB,&
+&9.7704E-03_JPRB,7.0232E-03_JPRB,4.3758E-03_JPRB,2.6208E-03_JPRB,3.4308E-03_JPRB/)
+KAO( :, 4, 7, 4) = (/&
+&1.5412E-02_JPRB,1.7497E-02_JPRB,1.7276E-02_JPRB,1.6194E-02_JPRB,1.4663E-02_JPRB,1.2815E-02_JPRB,&
+&1.0574E-02_JPRB,7.6491E-03_JPRB,4.8284E-03_JPRB,2.9535E-03_JPRB,3.7526E-03_JPRB/)
+KAO( :, 5, 7, 4) = (/&
+&1.6381E-02_JPRB,1.8748E-02_JPRB,1.8546E-02_JPRB,1.7402E-02_JPRB,1.5774E-02_JPRB,1.3800E-02_JPRB,&
+&1.1415E-02_JPRB,8.3305E-03_JPRB,5.3183E-03_JPRB,3.3227E-03_JPRB,4.1190E-03_JPRB/)
+KAO( :, 1, 8, 4) = (/&
+&1.0489E-02_JPRB,1.1350E-02_JPRB,1.1041E-02_JPRB,1.0421E-02_JPRB,9.4682E-03_JPRB,8.2685E-03_JPRB,&
+&6.7870E-03_JPRB,4.8019E-03_JPRB,2.8904E-03_JPRB,1.6552E-03_JPRB,3.2034E-03_JPRB/)
+KAO( :, 2, 8, 4) = (/&
+&1.1308E-02_JPRB,1.2427E-02_JPRB,1.2159E-02_JPRB,1.1459E-02_JPRB,1.0373E-02_JPRB,9.0374E-03_JPRB,&
+&7.4076E-03_JPRB,5.2450E-03_JPRB,3.1947E-03_JPRB,1.8626E-03_JPRB,3.5949E-03_JPRB/)
+KAO( :, 3, 8, 4) = (/&
+&1.2133E-02_JPRB,1.3516E-02_JPRB,1.3273E-02_JPRB,1.2475E-02_JPRB,1.1268E-02_JPRB,9.8130E-03_JPRB,&
+&8.0528E-03_JPRB,5.7311E-03_JPRB,3.5370E-03_JPRB,2.1011E-03_JPRB,3.9889E-03_JPRB/)
+KAO( :, 4, 8, 4) = (/&
+&1.2965E-02_JPRB,1.4611E-02_JPRB,1.4368E-02_JPRB,1.3473E-02_JPRB,1.2174E-02_JPRB,1.0625E-02_JPRB,&
+&8.7372E-03_JPRB,6.2577E-03_JPRB,3.9075E-03_JPRB,2.3709E-03_JPRB,4.3703E-03_JPRB/)
+KAO( :, 5, 8, 4) = (/&
+&1.3816E-02_JPRB,1.5699E-02_JPRB,1.5470E-02_JPRB,1.4502E-02_JPRB,1.3123E-02_JPRB,1.1467E-02_JPRB,&
+&9.4537E-03_JPRB,6.8298E-03_JPRB,4.3093E-03_JPRB,2.6663E-03_JPRB,4.7512E-03_JPRB/)
+KAO( :, 1, 9, 4) = (/&
+&8.7568E-03_JPRB,9.3693E-03_JPRB,9.0975E-03_JPRB,8.5800E-03_JPRB,7.7896E-03_JPRB,6.7645E-03_JPRB,&
+&5.5285E-03_JPRB,3.9033E-03_JPRB,2.3310E-03_JPRB,1.3217E-03_JPRB,4.5731E-03_JPRB/)
+KAO( :, 2, 9, 4) = (/&
+&9.4553E-03_JPRB,1.0293E-02_JPRB,1.0054E-02_JPRB,9.4845E-03_JPRB,8.5715E-03_JPRB,7.4310E-03_JPRB,&
+&6.0526E-03_JPRB,4.2651E-03_JPRB,2.5747E-03_JPRB,1.4878E-03_JPRB,5.2597E-03_JPRB/)
+KAO( :, 3, 9, 4) = (/&
+&1.0173E-02_JPRB,1.1238E-02_JPRB,1.1012E-02_JPRB,1.0364E-02_JPRB,9.3410E-03_JPRB,8.0964E-03_JPRB,&
+&6.6049E-03_JPRB,4.6620E-03_JPRB,2.8506E-03_JPRB,1.6770E-03_JPRB,5.9814E-03_JPRB/)
+KAO( :, 4, 9, 4) = (/&
+&1.0901E-02_JPRB,1.2188E-02_JPRB,1.1952E-02_JPRB,1.1222E-02_JPRB,1.0108E-02_JPRB,8.7846E-03_JPRB,&
+&7.1864E-03_JPRB,5.1051E-03_JPRB,3.1528E-03_JPRB,1.8913E-03_JPRB,6.7372E-03_JPRB/)
+KAO( :, 5, 9, 4) = (/&
+&1.1643E-02_JPRB,1.3136E-02_JPRB,1.2896E-02_JPRB,1.2091E-02_JPRB,1.0918E-02_JPRB,9.5045E-03_JPRB,&
+&7.7923E-03_JPRB,5.5824E-03_JPRB,3.4794E-03_JPRB,2.1303E-03_JPRB,7.5084E-03_JPRB/)
+KAO( :, 1,10, 4) = (/&
+&7.3210E-03_JPRB,7.7682E-03_JPRB,7.5348E-03_JPRB,7.0910E-03_JPRB,6.4276E-03_JPRB,5.5555E-03_JPRB,&
+&4.5190E-03_JPRB,3.1874E-03_JPRB,1.8869E-03_JPRB,1.0615E-03_JPRB,8.5089E-03_JPRB/)
+KAO( :, 2,10, 4) = (/&
+&7.9160E-03_JPRB,8.5578E-03_JPRB,8.3513E-03_JPRB,7.8702E-03_JPRB,7.1056E-03_JPRB,6.1307E-03_JPRB,&
+&4.9642E-03_JPRB,3.4828E-03_JPRB,2.0800E-03_JPRB,1.1948E-03_JPRB,9.8844E-03_JPRB/)
+KAO( :, 3,10, 4) = (/&
+&8.5286E-03_JPRB,9.3757E-03_JPRB,9.1726E-03_JPRB,8.6301E-03_JPRB,7.7707E-03_JPRB,6.7003E-03_JPRB,&
+&5.4292E-03_JPRB,3.8086E-03_JPRB,2.3039E-03_JPRB,1.3482E-03_JPRB,1.1359E-02_JPRB/)
+KAO( :, 4,10, 4) = (/&
+&9.1631E-03_JPRB,1.0191E-02_JPRB,9.9769E-03_JPRB,9.3788E-03_JPRB,8.4243E-03_JPRB,7.2793E-03_JPRB,&
+&5.9222E-03_JPRB,4.1756E-03_JPRB,2.5509E-03_JPRB,1.5190E-03_JPRB,1.2931E-02_JPRB/)
+KAO( :, 5,10, 4) = (/&
+&9.8113E-03_JPRB,1.1015E-02_JPRB,1.0788E-02_JPRB,1.0124E-02_JPRB,9.1153E-03_JPRB,7.8926E-03_JPRB,&
+&6.4363E-03_JPRB,4.5749E-03_JPRB,2.8219E-03_JPRB,1.7121E-03_JPRB,1.4601E-02_JPRB/)
+KAO( :, 1,11, 4) = (/&
+&6.3238E-03_JPRB,6.7320E-03_JPRB,6.5341E-03_JPRB,6.1432E-03_JPRB,5.5500E-03_JPRB,4.7770E-03_JPRB,&
+&3.8625E-03_JPRB,2.7098E-03_JPRB,1.5930E-03_JPRB,8.9971E-04_JPRB,1.0691E-02_JPRB/)
+KAO( :, 2,11, 4) = (/&
+&6.8377E-03_JPRB,7.4132E-03_JPRB,7.2351E-03_JPRB,6.8044E-03_JPRB,6.1328E-03_JPRB,5.2698E-03_JPRB,&
+&4.2482E-03_JPRB,2.9626E-03_JPRB,1.7579E-03_JPRB,1.0147E-03_JPRB,1.2446E-02_JPRB/)
+KAO( :, 3,11, 4) = (/&
+&7.3680E-03_JPRB,8.1117E-03_JPRB,7.9281E-03_JPRB,7.4556E-03_JPRB,6.7022E-03_JPRB,5.7552E-03_JPRB,&
+&4.6507E-03_JPRB,3.2459E-03_JPRB,1.9476E-03_JPRB,1.1453E-03_JPRB,1.4323E-02_JPRB/)
+KAO( :, 4,11, 4) = (/&
+&7.9250E-03_JPRB,8.8100E-03_JPRB,8.6199E-03_JPRB,8.1042E-03_JPRB,7.2716E-03_JPRB,6.2615E-03_JPRB,&
+&5.0763E-03_JPRB,3.5597E-03_JPRB,2.1591E-03_JPRB,1.2891E-03_JPRB,1.6318E-02_JPRB/)
+KAO( :, 5,11, 4) = (/&
+&8.4995E-03_JPRB,9.5310E-03_JPRB,9.3303E-03_JPRB,8.7684E-03_JPRB,7.8755E-03_JPRB,6.7950E-03_JPRB,&
+&5.5255E-03_JPRB,3.9023E-03_JPRB,2.3918E-03_JPRB,1.4517E-03_JPRB,1.8430E-02_JPRB/)
+KAO( :, 1,12, 4) = (/&
+&5.4239E-03_JPRB,5.7942E-03_JPRB,5.6254E-03_JPRB,5.2775E-03_JPRB,4.7538E-03_JPRB,4.0783E-03_JPRB,&
+&3.2815E-03_JPRB,2.2911E-03_JPRB,1.3390E-03_JPRB,7.5901E-04_JPRB,1.1069E-02_JPRB/)
+KAO( :, 2,12, 4) = (/&
+&5.8650E-03_JPRB,6.3756E-03_JPRB,6.2146E-03_JPRB,5.8301E-03_JPRB,5.2465E-03_JPRB,4.4949E-03_JPRB,&
+&3.6123E-03_JPRB,2.5101E-03_JPRB,1.4788E-03_JPRB,8.5773E-04_JPRB,1.2922E-02_JPRB/)
+KAO( :, 3,12, 4) = (/&
+&6.3326E-03_JPRB,6.9605E-03_JPRB,6.7926E-03_JPRB,6.3822E-03_JPRB,5.7295E-03_JPRB,4.9116E-03_JPRB,&
+&3.9590E-03_JPRB,2.7527E-03_JPRB,1.6402E-03_JPRB,9.6785E-04_JPRB,1.4890E-02_JPRB/)
+KAO( :, 4,12, 4) = (/&
+&6.8197E-03_JPRB,7.5612E-03_JPRB,7.3901E-03_JPRB,6.9407E-03_JPRB,6.2248E-03_JPRB,5.3513E-03_JPRB,&
+&4.3255E-03_JPRB,3.0215E-03_JPRB,1.8202E-03_JPRB,1.0893E-03_JPRB,1.6968E-02_JPRB/)
+KAO( :, 5,12, 4) = (/&
+&7.3239E-03_JPRB,8.1869E-03_JPRB,8.0102E-03_JPRB,7.5305E-03_JPRB,6.7534E-03_JPRB,5.8184E-03_JPRB,&
+&4.7200E-03_JPRB,3.3172E-03_JPRB,2.0173E-03_JPRB,1.2265E-03_JPRB,1.9174E-02_JPRB/)
+KAO( :, 1,13, 4) = (/&
+&4.6050E-03_JPRB,4.9342E-03_JPRB,4.7817E-03_JPRB,4.4662E-03_JPRB,4.0147E-03_JPRB,3.4350E-03_JPRB,&
+&2.7500E-03_JPRB,1.9135E-03_JPRB,1.1150E-03_JPRB,6.3435E-04_JPRB,9.6482E-03_JPRB/)
+KAO( :, 2,13, 4) = (/&
+&4.9867E-03_JPRB,5.4199E-03_JPRB,5.2643E-03_JPRB,4.9240E-03_JPRB,4.4219E-03_JPRB,3.7782E-03_JPRB,&
+&3.0269E-03_JPRB,2.1006E-03_JPRB,1.2335E-03_JPRB,7.1745E-04_JPRB,1.1271E-02_JPRB/)
+KAO( :, 3,13, 4) = (/&
+&5.3971E-03_JPRB,5.9114E-03_JPRB,5.7510E-03_JPRB,5.3855E-03_JPRB,4.8287E-03_JPRB,4.1310E-03_JPRB,&
+&3.3205E-03_JPRB,2.3075E-03_JPRB,1.3695E-03_JPRB,8.0946E-04_JPRB,1.2985E-02_JPRB/)
+KAO( :, 4,13, 4) = (/&
+&5.8203E-03_JPRB,6.4262E-03_JPRB,6.2609E-03_JPRB,5.8661E-03_JPRB,5.2552E-03_JPRB,4.5068E-03_JPRB,&
+&3.6338E-03_JPRB,2.5380E-03_JPRB,1.5209E-03_JPRB,9.1160E-04_JPRB,1.4785E-02_JPRB/)
+KAO( :, 5,13, 4) = (/&
+&6.2608E-03_JPRB,6.9642E-03_JPRB,6.7991E-03_JPRB,6.3791E-03_JPRB,5.7139E-03_JPRB,4.9101E-03_JPRB,&
+&3.9752E-03_JPRB,2.7918E-03_JPRB,1.6870E-03_JPRB,1.0277E-03_JPRB,1.6692E-02_JPRB/)
+KAO( :, 1, 1, 5) = (/&
+&6.9423E-02_JPRB,7.4960E-02_JPRB,7.2881E-02_JPRB,6.7852E-02_JPRB,6.0804E-02_JPRB,5.2531E-02_JPRB,&
+&4.2824E-02_JPRB,3.0610E-02_JPRB,1.9045E-02_JPRB,1.1972E-02_JPRB,9.0656E-03_JPRB/)
+KAO( :, 2, 1, 5) = (/&
+&7.1301E-02_JPRB,7.7925E-02_JPRB,7.6064E-02_JPRB,7.1198E-02_JPRB,6.4170E-02_JPRB,5.6008E-02_JPRB,&
+&4.6002E-02_JPRB,3.3219E-02_JPRB,2.0898E-02_JPRB,1.3541E-02_JPRB,1.0844E-02_JPRB/)
+KAO( :, 3, 1, 5) = (/&
+&7.2960E-02_JPRB,8.0744E-02_JPRB,7.9397E-02_JPRB,7.4686E-02_JPRB,6.7915E-02_JPRB,5.9615E-02_JPRB,&
+&4.9205E-02_JPRB,3.5928E-02_JPRB,2.2906E-02_JPRB,1.5284E-02_JPRB,1.2853E-02_JPRB/)
+KAO( :, 4, 1, 5) = (/&
+&7.4482E-02_JPRB,8.3568E-02_JPRB,8.2751E-02_JPRB,7.8370E-02_JPRB,7.1840E-02_JPRB,6.3241E-02_JPRB,&
+&5.2611E-02_JPRB,3.8800E-02_JPRB,2.5071E-02_JPRB,1.7190E-02_JPRB,1.5078E-02_JPRB/)
+KAO( :, 5, 1, 5) = (/&
+&7.5977E-02_JPRB,8.6416E-02_JPRB,8.6132E-02_JPRB,8.2229E-02_JPRB,7.5721E-02_JPRB,6.7015E-02_JPRB,&
+&5.6188E-02_JPRB,4.1791E-02_JPRB,2.7379E-02_JPRB,1.9319E-02_JPRB,1.7544E-02_JPRB/)
+KAO( :, 1, 2, 5) = (/&
+&6.1428E-02_JPRB,6.6243E-02_JPRB,6.4016E-02_JPRB,5.9686E-02_JPRB,5.3408E-02_JPRB,4.5905E-02_JPRB,&
+&3.7325E-02_JPRB,2.6638E-02_JPRB,1.6539E-02_JPRB,1.0261E-02_JPRB,7.2943E-03_JPRB/)
+KAO( :, 2, 2, 5) = (/&
+&6.3157E-02_JPRB,6.8963E-02_JPRB,6.7035E-02_JPRB,6.2877E-02_JPRB,5.6628E-02_JPRB,4.9107E-02_JPRB,&
+&4.0147E-02_JPRB,2.8970E-02_JPRB,1.8198E-02_JPRB,1.1562E-02_JPRB,8.6747E-03_JPRB/)
+KAO( :, 3, 2, 5) = (/&
+&6.4729E-02_JPRB,7.1653E-02_JPRB,7.0183E-02_JPRB,6.6237E-02_JPRB,6.0087E-02_JPRB,5.2347E-02_JPRB,&
+&4.3083E-02_JPRB,3.1429E-02_JPRB,1.9978E-02_JPRB,1.2998E-02_JPRB,1.0260E-02_JPRB/)
+KAO( :, 4, 2, 5) = (/&
+&6.6252E-02_JPRB,7.4355E-02_JPRB,7.3321E-02_JPRB,6.9741E-02_JPRB,6.3553E-02_JPRB,5.5697E-02_JPRB,&
+&4.6228E-02_JPRB,3.4024E-02_JPRB,2.1871E-02_JPRB,1.4556E-02_JPRB,1.2034E-02_JPRB/)
+KAO( :, 5, 2, 5) = (/&
+&6.7782E-02_JPRB,7.7009E-02_JPRB,7.6503E-02_JPRB,7.3173E-02_JPRB,6.7016E-02_JPRB,5.9180E-02_JPRB,&
+&4.9505E-02_JPRB,3.6707E-02_JPRB,2.3887E-02_JPRB,1.6290E-02_JPRB,1.4004E-02_JPRB/)
+KAO( :, 1, 3, 5) = (/&
+&5.3533E-02_JPRB,5.7434E-02_JPRB,5.5277E-02_JPRB,5.1527E-02_JPRB,4.6035E-02_JPRB,3.9352E-02_JPRB,&
+&3.1746E-02_JPRB,2.2523E-02_JPRB,1.3908E-02_JPRB,8.6490E-03_JPRB,5.9287E-03_JPRB/)
+KAO( :, 2, 3, 5) = (/&
+&5.5137E-02_JPRB,5.9969E-02_JPRB,5.8097E-02_JPRB,5.4502E-02_JPRB,4.8980E-02_JPRB,4.2173E-02_JPRB,&
+&3.4244E-02_JPRB,2.4566E-02_JPRB,1.5350E-02_JPRB,9.6962E-03_JPRB,6.9493E-03_JPRB/)
+KAO( :, 3, 3, 5) = (/&
+&5.6675E-02_JPRB,6.2431E-02_JPRB,6.0975E-02_JPRB,5.7589E-02_JPRB,5.2056E-02_JPRB,4.5047E-02_JPRB,&
+&3.6855E-02_JPRB,2.6729E-02_JPRB,1.6909E-02_JPRB,1.0855E-02_JPRB,8.1206E-03_JPRB/)
+KAO( :, 4, 3, 5) = (/&
+&5.8200E-02_JPRB,6.4923E-02_JPRB,6.3882E-02_JPRB,6.0753E-02_JPRB,5.5077E-02_JPRB,4.8037E-02_JPRB,&
+&3.9643E-02_JPRB,2.9018E-02_JPRB,1.8575E-02_JPRB,1.2121E-02_JPRB,9.4750E-03_JPRB/)
+KAO( :, 5, 3, 5) = (/&
+&5.9733E-02_JPRB,6.7416E-02_JPRB,6.6842E-02_JPRB,6.3776E-02_JPRB,5.8159E-02_JPRB,5.1164E-02_JPRB,&
+&4.2585E-02_JPRB,3.1380E-02_JPRB,2.0348E-02_JPRB,1.3514E-02_JPRB,1.0998E-02_JPRB/)
+KAO( :, 1, 4, 5) = (/&
+&4.6353E-02_JPRB,4.9264E-02_JPRB,4.7316E-02_JPRB,4.4016E-02_JPRB,3.9303E-02_JPRB,3.3446E-02_JPRB,&
+&2.6720E-02_JPRB,1.8817E-02_JPRB,1.1541E-02_JPRB,7.2722E-03_JPRB,5.4712E-03_JPRB/)
+KAO( :, 2, 4, 5) = (/&
+&4.7832E-02_JPRB,5.1575E-02_JPRB,4.9905E-02_JPRB,4.6721E-02_JPRB,4.1940E-02_JPRB,3.5924E-02_JPRB,&
+&2.8909E-02_JPRB,2.0563E-02_JPRB,1.2756E-02_JPRB,8.1360E-03_JPRB,6.2894E-03_JPRB/)
+KAO( :, 3, 4, 5) = (/&
+&4.9292E-02_JPRB,5.3845E-02_JPRB,5.2477E-02_JPRB,4.9511E-02_JPRB,4.4682E-02_JPRB,3.8438E-02_JPRB,&
+&3.1206E-02_JPRB,2.2430E-02_JPRB,1.4083E-02_JPRB,9.0822E-03_JPRB,7.2079E-03_JPRB/)
+KAO( :, 4, 4, 5) = (/&
+&5.0753E-02_JPRB,5.6167E-02_JPRB,5.5096E-02_JPRB,5.2291E-02_JPRB,4.7354E-02_JPRB,4.1051E-02_JPRB,&
+&3.3627E-02_JPRB,2.4418E-02_JPRB,1.5508E-02_JPRB,1.0111E-02_JPRB,8.2258E-03_JPRB/)
+KAO( :, 5, 4, 5) = (/&
+&5.2237E-02_JPRB,5.8453E-02_JPRB,5.7807E-02_JPRB,5.4969E-02_JPRB,5.0043E-02_JPRB,4.3750E-02_JPRB,&
+&3.6221E-02_JPRB,2.6492E-02_JPRB,1.7044E-02_JPRB,1.1243E-02_JPRB,9.3585E-03_JPRB/)
+KAO( :, 1, 5, 5) = (/&
+&4.0215E-02_JPRB,4.2178E-02_JPRB,4.0345E-02_JPRB,3.7366E-02_JPRB,3.3354E-02_JPRB,2.8283E-02_JPRB,&
+&2.2446E-02_JPRB,1.5692E-02_JPRB,9.5378E-03_JPRB,6.0574E-03_JPRB,5.0927E-03_JPRB/)
+KAO( :, 2, 5, 5) = (/&
+&4.1564E-02_JPRB,4.4223E-02_JPRB,4.2656E-02_JPRB,3.9744E-02_JPRB,3.5712E-02_JPRB,3.0486E-02_JPRB,&
+&2.4325E-02_JPRB,1.7173E-02_JPRB,1.0563E-02_JPRB,6.7992E-03_JPRB,5.7848E-03_JPRB/)
+KAO( :, 3, 5, 5) = (/&
+&4.2880E-02_JPRB,4.6295E-02_JPRB,4.4929E-02_JPRB,4.2198E-02_JPRB,3.8104E-02_JPRB,3.2711E-02_JPRB,&
+&2.6325E-02_JPRB,1.8758E-02_JPRB,1.1674E-02_JPRB,7.6073E-03_JPRB,6.5722E-03_JPRB/)
+KAO( :, 4, 5, 5) = (/&
+&4.4250E-02_JPRB,4.8374E-02_JPRB,4.7253E-02_JPRB,4.4669E-02_JPRB,4.0477E-02_JPRB,3.4961E-02_JPRB,&
+&2.8432E-02_JPRB,2.0449E-02_JPRB,1.2880E-02_JPRB,8.4762E-03_JPRB,7.4570E-03_JPRB/)
+KAO( :, 5, 5, 5) = (/&
+&4.5632E-02_JPRB,5.0457E-02_JPRB,4.9661E-02_JPRB,4.7073E-02_JPRB,4.2857E-02_JPRB,3.7281E-02_JPRB,&
+&3.0645E-02_JPRB,2.2241E-02_JPRB,1.4179E-02_JPRB,9.4224E-03_JPRB,8.4289E-03_JPRB/)
+KAO( :, 1, 6, 5) = (/&
+&3.4853E-02_JPRB,3.6094E-02_JPRB,3.4340E-02_JPRB,3.1567E-02_JPRB,2.8074E-02_JPRB,2.3747E-02_JPRB,&
+&1.8747E-02_JPRB,1.3033E-02_JPRB,7.8344E-03_JPRB,4.9564E-03_JPRB,4.7664E-03_JPRB/)
+KAO( :, 2, 6, 5) = (/&
+&3.6095E-02_JPRB,3.7902E-02_JPRB,3.6360E-02_JPRB,3.3627E-02_JPRB,3.0131E-02_JPRB,2.5638E-02_JPRB,&
+&2.0371E-02_JPRB,1.4275E-02_JPRB,8.6972E-03_JPRB,5.5735E-03_JPRB,5.3896E-03_JPRB/)
+KAO( :, 3, 6, 5) = (/&
+&3.7297E-02_JPRB,3.9745E-02_JPRB,3.8353E-02_JPRB,3.5764E-02_JPRB,3.2219E-02_JPRB,2.7550E-02_JPRB,&
+&2.2085E-02_JPRB,1.5615E-02_JPRB,9.6284E-03_JPRB,6.2556E-03_JPRB,6.0790E-03_JPRB/)
+KAO( :, 4, 6, 5) = (/&
+&3.8557E-02_JPRB,4.1597E-02_JPRB,4.0389E-02_JPRB,3.7908E-02_JPRB,3.4281E-02_JPRB,2.9507E-02_JPRB,&
+&2.3870E-02_JPRB,1.7046E-02_JPRB,1.0643E-02_JPRB,7.0034E-03_JPRB,6.8484E-03_JPRB/)
+KAO( :, 5, 6, 5) = (/&
+&3.9824E-02_JPRB,4.3464E-02_JPRB,4.2478E-02_JPRB,4.0047E-02_JPRB,3.6382E-02_JPRB,3.1522E-02_JPRB,&
+&2.5736E-02_JPRB,1.8573E-02_JPRB,1.1739E-02_JPRB,7.8250E-03_JPRB,7.7029E-03_JPRB/)
+KAO( :, 1, 7, 5) = (/&
+&2.9815E-02_JPRB,3.0608E-02_JPRB,2.8988E-02_JPRB,2.6483E-02_JPRB,2.3444E-02_JPRB,1.9806E-02_JPRB,&
+&1.5587E-02_JPRB,1.0729E-02_JPRB,6.3834E-03_JPRB,3.9988E-03_JPRB,4.7710E-03_JPRB/)
+KAO( :, 2, 7, 5) = (/&
+&3.0946E-02_JPRB,3.2211E-02_JPRB,3.0727E-02_JPRB,2.8262E-02_JPRB,2.5215E-02_JPRB,2.1406E-02_JPRB,&
+&1.6940E-02_JPRB,1.1789E-02_JPRB,7.0925E-03_JPRB,4.5059E-03_JPRB,5.3365E-03_JPRB/)
+KAO( :, 3, 7, 5) = (/&
+&3.2060E-02_JPRB,3.3823E-02_JPRB,3.2464E-02_JPRB,3.0099E-02_JPRB,2.7004E-02_JPRB,2.3026E-02_JPRB,&
+&1.8369E-02_JPRB,1.2921E-02_JPRB,7.8758E-03_JPRB,5.0685E-03_JPRB,5.9857E-03_JPRB/)
+KAO( :, 4, 7, 5) = (/&
+&3.3198E-02_JPRB,3.5483E-02_JPRB,3.4283E-02_JPRB,3.1964E-02_JPRB,2.8781E-02_JPRB,2.4689E-02_JPRB,&
+&1.9856E-02_JPRB,1.4137E-02_JPRB,8.7260E-03_JPRB,5.6932E-03_JPRB,6.6962E-03_JPRB/)
+KAO( :, 5, 7, 5) = (/&
+&3.4342E-02_JPRB,3.7144E-02_JPRB,3.6117E-02_JPRB,3.3825E-02_JPRB,3.0620E-02_JPRB,2.6411E-02_JPRB,&
+&2.1416E-02_JPRB,1.5421E-02_JPRB,9.6443E-03_JPRB,6.3905E-03_JPRB,7.4882E-03_JPRB/)
+KAO( :, 1, 8, 5) = (/&
+&2.5283E-02_JPRB,2.5751E-02_JPRB,2.4270E-02_JPRB,2.2079E-02_JPRB,1.9496E-02_JPRB,1.6496E-02_JPRB,&
+&1.2947E-02_JPRB,8.8078E-03_JPRB,5.1661E-03_JPRB,3.1956E-03_JPRB,5.6775E-03_JPRB/)
+KAO( :, 2, 8, 5) = (/&
+&2.6302E-02_JPRB,2.7180E-02_JPRB,2.5781E-02_JPRB,2.3615E-02_JPRB,2.1015E-02_JPRB,1.7843E-02_JPRB,&
+&1.4097E-02_JPRB,9.7060E-03_JPRB,5.7494E-03_JPRB,3.6083E-03_JPRB,6.1622E-03_JPRB/)
+KAO( :, 3, 8, 5) = (/&
+&2.7320E-02_JPRB,2.8593E-02_JPRB,2.7305E-02_JPRB,2.5195E-02_JPRB,2.2546E-02_JPRB,1.9223E-02_JPRB,&
+&1.5282E-02_JPRB,1.0665E-02_JPRB,6.3913E-03_JPRB,4.0728E-03_JPRB,6.7057E-03_JPRB/)
+KAO( :, 4, 8, 5) = (/&
+&2.8333E-02_JPRB,3.0041E-02_JPRB,2.8915E-02_JPRB,2.6829E-02_JPRB,2.4088E-02_JPRB,2.0635E-02_JPRB,&
+&1.6522E-02_JPRB,1.1685E-02_JPRB,7.1066E-03_JPRB,4.5896E-03_JPRB,7.3455E-03_JPRB/)
+KAO( :, 5, 8, 5) = (/&
+&2.9349E-02_JPRB,3.1526E-02_JPRB,3.0540E-02_JPRB,2.8464E-02_JPRB,2.5707E-02_JPRB,2.2109E-02_JPRB,&
+&1.7816E-02_JPRB,1.2753E-02_JPRB,7.8746E-03_JPRB,5.1734E-03_JPRB,8.0746E-03_JPRB/)
+KAO( :, 1, 9, 5) = (/&
+&2.1393E-02_JPRB,2.1598E-02_JPRB,2.0242E-02_JPRB,1.8370E-02_JPRB,1.6186E-02_JPRB,1.3706E-02_JPRB,&
+&1.0722E-02_JPRB,7.2195E-03_JPRB,4.1746E-03_JPRB,2.5439E-03_JPRB,1.0113E-02_JPRB/)
+KAO( :, 2, 9, 5) = (/&
+&2.2301E-02_JPRB,2.2863E-02_JPRB,2.1562E-02_JPRB,1.9670E-02_JPRB,1.7466E-02_JPRB,1.4848E-02_JPRB,&
+&1.1705E-02_JPRB,7.9781E-03_JPRB,4.6436E-03_JPRB,2.8718E-03_JPRB,1.1342E-02_JPRB/)
+KAO( :, 3, 9, 5) = (/&
+&2.3221E-02_JPRB,2.4089E-02_JPRB,2.2883E-02_JPRB,2.1022E-02_JPRB,1.8774E-02_JPRB,1.6030E-02_JPRB,&
+&1.2717E-02_JPRB,8.7854E-03_JPRB,5.1730E-03_JPRB,3.2515E-03_JPRB,1.2507E-02_JPRB/)
+KAO( :, 4, 9, 5) = (/&
+&2.4120E-02_JPRB,2.5343E-02_JPRB,2.4280E-02_JPRB,2.2425E-02_JPRB,2.0119E-02_JPRB,1.7244E-02_JPRB,&
+&1.3767E-02_JPRB,9.6361E-03_JPRB,5.7611E-03_JPRB,3.6765E-03_JPRB,1.3554E-02_JPRB/)
+KAO( :, 5, 9, 5) = (/&
+&2.5016E-02_JPRB,2.6638E-02_JPRB,2.5702E-02_JPRB,2.3865E-02_JPRB,2.1516E-02_JPRB,1.8508E-02_JPRB,&
+&1.4864E-02_JPRB,1.0529E-02_JPRB,6.4045E-03_JPRB,4.1546E-03_JPRB,1.4572E-02_JPRB/)
+KAO( :, 1,10, 5) = (/&
+&1.8113E-02_JPRB,1.8138E-02_JPRB,1.6915E-02_JPRB,1.5326E-02_JPRB,1.3493E-02_JPRB,1.1404E-02_JPRB,&
+&8.8894E-03_JPRB,5.9161E-03_JPRB,3.3974E-03_JPRB,2.0400E-03_JPRB,2.3155E-02_JPRB/)
+KAO( :, 2,10, 5) = (/&
+&1.8911E-02_JPRB,1.9233E-02_JPRB,1.8049E-02_JPRB,1.6433E-02_JPRB,1.4556E-02_JPRB,1.2371E-02_JPRB,&
+&9.7152E-03_JPRB,6.5645E-03_JPRB,3.7859E-03_JPRB,2.2984E-03_JPRB,2.6502E-02_JPRB/)
+KAO( :, 3,10, 5) = (/&
+&1.9728E-02_JPRB,2.0295E-02_JPRB,1.9188E-02_JPRB,1.7578E-02_JPRB,1.5660E-02_JPRB,1.3378E-02_JPRB,&
+&1.0586E-02_JPRB,7.2492E-03_JPRB,4.2176E-03_JPRB,2.6036E-03_JPRB,2.9732E-02_JPRB/)
+KAO( :, 4,10, 5) = (/&
+&2.0511E-02_JPRB,2.1373E-02_JPRB,2.0386E-02_JPRB,1.8762E-02_JPRB,1.6821E-02_JPRB,1.4424E-02_JPRB,&
+&1.1488E-02_JPRB,7.9631E-03_JPRB,4.7001E-03_JPRB,2.9535E-03_JPRB,3.2827E-02_JPRB/)
+KAO( :, 5,10, 5) = (/&
+&2.1304E-02_JPRB,2.2491E-02_JPRB,2.1602E-02_JPRB,2.0004E-02_JPRB,1.8011E-02_JPRB,1.5518E-02_JPRB,&
+&1.2440E-02_JPRB,8.7186E-03_JPRB,5.2306E-03_JPRB,3.3445E-03_JPRB,3.5819E-02_JPRB/)
+KAO( :, 1,11, 5) = (/&
+&1.5695E-02_JPRB,1.5702E-02_JPRB,1.4638E-02_JPRB,1.3267E-02_JPRB,1.1679E-02_JPRB,9.8503E-03_JPRB,&
+&7.6677E-03_JPRB,5.0761E-03_JPRB,2.9053E-03_JPRB,1.7228E-03_JPRB,2.9993E-02_JPRB/)
+KAO( :, 2,11, 5) = (/&
+&1.6401E-02_JPRB,1.6637E-02_JPRB,1.5599E-02_JPRB,1.4214E-02_JPRB,1.2583E-02_JPRB,1.0686E-02_JPRB,&
+&8.3766E-03_JPRB,5.6416E-03_JPRB,3.2428E-03_JPRB,1.9419E-03_JPRB,3.4197E-02_JPRB/)
+KAO( :, 3,11, 5) = (/&
+&1.7106E-02_JPRB,1.7559E-02_JPRB,1.6602E-02_JPRB,1.5204E-02_JPRB,1.3537E-02_JPRB,1.1563E-02_JPRB,&
+&9.1295E-03_JPRB,6.2308E-03_JPRB,3.6142E-03_JPRB,2.2018E-03_JPRB,3.8237E-02_JPRB/)
+KAO( :, 4,11, 5) = (/&
+&1.7783E-02_JPRB,1.8504E-02_JPRB,1.7628E-02_JPRB,1.6229E-02_JPRB,1.4542E-02_JPRB,1.2483E-02_JPRB,&
+&9.9207E-03_JPRB,6.8466E-03_JPRB,4.0263E-03_JPRB,2.5043E-03_JPRB,4.2149E-02_JPRB/)
+KAO( :, 5,11, 5) = (/&
+&1.8493E-02_JPRB,1.9485E-02_JPRB,1.8676E-02_JPRB,1.7295E-02_JPRB,1.5575E-02_JPRB,1.3438E-02_JPRB,&
+&1.0754E-02_JPRB,7.5058E-03_JPRB,4.4801E-03_JPRB,2.8413E-03_JPRB,4.5923E-02_JPRB/)
+KAO( :, 1,12, 5) = (/&
+&1.3506E-02_JPRB,1.3529E-02_JPRB,1.2628E-02_JPRB,1.1452E-02_JPRB,1.0063E-02_JPRB,8.4685E-03_JPRB,&
+&6.5828E-03_JPRB,4.3370E-03_JPRB,2.4676E-03_JPRB,1.4501E-03_JPRB,3.1379E-02_JPRB/)
+KAO( :, 2,12, 5) = (/&
+&1.4125E-02_JPRB,1.4325E-02_JPRB,1.3451E-02_JPRB,1.2271E-02_JPRB,1.0846E-02_JPRB,9.1944E-03_JPRB,&
+&7.1930E-03_JPRB,4.8218E-03_JPRB,2.7588E-03_JPRB,1.6351E-03_JPRB,3.5598E-02_JPRB/)
+KAO( :, 3,12, 5) = (/&
+&1.4721E-02_JPRB,1.5127E-02_JPRB,1.4318E-02_JPRB,1.3125E-02_JPRB,1.1678E-02_JPRB,9.9571E-03_JPRB,&
+&7.8415E-03_JPRB,5.3248E-03_JPRB,3.0763E-03_JPRB,1.8570E-03_JPRB,3.9752E-02_JPRB/)
+KAO( :, 4,12, 5) = (/&
+&1.5317E-02_JPRB,1.5950E-02_JPRB,1.5202E-02_JPRB,1.4009E-02_JPRB,1.2540E-02_JPRB,1.0752E-02_JPRB,&
+&8.5246E-03_JPRB,5.8565E-03_JPRB,3.4251E-03_JPRB,2.1158E-03_JPRB,4.3744E-02_JPRB/)
+KAO( :, 5,12, 5) = (/&
+&1.5969E-02_JPRB,1.6812E-02_JPRB,1.6124E-02_JPRB,1.4932E-02_JPRB,1.3442E-02_JPRB,1.1579E-02_JPRB,&
+&9.2378E-03_JPRB,6.4203E-03_JPRB,3.8147E-03_JPRB,2.4036E-03_JPRB,4.7604E-02_JPRB/)
+KAO( :, 1,13, 5) = (/&
+&1.1399E-02_JPRB,1.1449E-02_JPRB,1.0710E-02_JPRB,9.7174E-03_JPRB,8.5323E-03_JPRB,7.1730E-03_JPRB,&
+&5.5827E-03_JPRB,3.6682E-03_JPRB,2.0730E-03_JPRB,1.2124E-03_JPRB,2.7163E-02_JPRB/)
+KAO( :, 2,13, 5) = (/&
+&1.1916E-02_JPRB,1.2118E-02_JPRB,1.1410E-02_JPRB,1.0424E-02_JPRB,9.2099E-03_JPRB,7.8054E-03_JPRB,&
+&6.1073E-03_JPRB,4.0757E-03_JPRB,2.3191E-03_JPRB,1.3693E-03_JPRB,3.0692E-02_JPRB/)
+KAO( :, 3,13, 5) = (/&
+&1.2413E-02_JPRB,1.2810E-02_JPRB,1.2156E-02_JPRB,1.1166E-02_JPRB,9.9300E-03_JPRB,8.4666E-03_JPRB,&
+&6.6637E-03_JPRB,4.5036E-03_JPRB,2.5869E-03_JPRB,1.5580E-03_JPRB,3.4158E-02_JPRB/)
+KAO( :, 4,13, 5) = (/&
+&1.2945E-02_JPRB,1.3524E-02_JPRB,1.2930E-02_JPRB,1.1934E-02_JPRB,1.0680E-02_JPRB,9.1538E-03_JPRB,&
+&7.2492E-03_JPRB,4.9532E-03_JPRB,2.8844E-03_JPRB,1.7769E-03_JPRB,3.7486E-02_JPRB/)
+KAO( :, 5,13, 5) = (/&
+&1.3534E-02_JPRB,1.4296E-02_JPRB,1.3748E-02_JPRB,1.2750E-02_JPRB,1.1472E-02_JPRB,9.8678E-03_JPRB,&
+&7.8555E-03_JPRB,5.4258E-03_JPRB,3.2161E-03_JPRB,2.0203E-03_JPRB,4.0660E-02_JPRB/)
+KAO( :, 1, 1, 6) = (/&
+&1.3812E-01_JPRB,1.3826E-01_JPRB,1.3412E-01_JPRB,1.2512E-01_JPRB,1.1224E-01_JPRB,9.5217E-02_JPRB,&
+&7.4976E-02_JPRB,5.1336E-02_JPRB,3.0614E-02_JPRB,2.1696E-02_JPRB,2.0374E-02_JPRB/)
+KAO( :, 2, 1, 6) = (/&
+&1.3941E-01_JPRB,1.4212E-01_JPRB,1.3899E-01_JPRB,1.3015E-01_JPRB,1.1723E-01_JPRB,9.9705E-02_JPRB,&
+&7.9423E-02_JPRB,5.5251E-02_JPRB,3.3932E-02_JPRB,2.4851E-02_JPRB,2.3928E-02_JPRB/)
+KAO( :, 3, 1, 6) = (/&
+&1.4069E-01_JPRB,1.4606E-01_JPRB,1.4349E-01_JPRB,1.3492E-01_JPRB,1.2182E-01_JPRB,1.0431E-01_JPRB,&
+&8.4373E-02_JPRB,5.9330E-02_JPRB,3.7520E-02_JPRB,2.8503E-02_JPRB,2.7981E-02_JPRB/)
+KAO( :, 4, 1, 6) = (/&
+&1.4204E-01_JPRB,1.4980E-01_JPRB,1.4773E-01_JPRB,1.3955E-01_JPRB,1.2635E-01_JPRB,1.0953E-01_JPRB,&
+&8.9320E-02_JPRB,6.3663E-02_JPRB,4.1464E-02_JPRB,3.2709E-02_JPRB,3.2519E-02_JPRB/)
+KAO( :, 5, 1, 6) = (/&
+&1.4335E-01_JPRB,1.5332E-01_JPRB,1.5190E-01_JPRB,1.4393E-01_JPRB,1.3131E-01_JPRB,1.1498E-01_JPRB,&
+&9.4231E-02_JPRB,6.8373E-02_JPRB,4.5718E-02_JPRB,3.7379E-02_JPRB,3.7561E-02_JPRB/)
+KAO( :, 1, 2, 6) = (/&
+&1.2540E-01_JPRB,1.2569E-01_JPRB,1.2163E-01_JPRB,1.1284E-01_JPRB,1.0119E-01_JPRB,8.6267E-02_JPRB,&
+&6.7814E-02_JPRB,4.6281E-02_JPRB,2.7026E-02_JPRB,1.8209E-02_JPRB,1.6155E-02_JPRB/)
+KAO( :, 2, 2, 6) = (/&
+&1.2690E-01_JPRB,1.2947E-01_JPRB,1.2609E-01_JPRB,1.1758E-01_JPRB,1.0596E-01_JPRB,9.0648E-02_JPRB,&
+&7.2085E-02_JPRB,4.9891E-02_JPRB,2.9876E-02_JPRB,2.0766E-02_JPRB,1.9045E-02_JPRB/)
+KAO( :, 3, 2, 6) = (/&
+&1.2845E-01_JPRB,1.3318E-01_JPRB,1.3033E-01_JPRB,1.2211E-01_JPRB,1.1052E-01_JPRB,9.5256E-02_JPRB,&
+&7.6664E-02_JPRB,5.3627E-02_JPRB,3.2984E-02_JPRB,2.3750E-02_JPRB,2.2338E-02_JPRB/)
+KAO( :, 4, 2, 6) = (/&
+&1.2994E-01_JPRB,1.3679E-01_JPRB,1.3454E-01_JPRB,1.2649E-01_JPRB,1.1513E-01_JPRB,1.0018E-01_JPRB,&
+&8.1132E-02_JPRB,5.7623E-02_JPRB,3.6417E-02_JPRB,2.7177E-02_JPRB,2.6047E-02_JPRB/)
+KAO( :, 5, 2, 6) = (/&
+&1.3135E-01_JPRB,1.4032E-01_JPRB,1.3874E-01_JPRB,1.3096E-01_JPRB,1.2020E-01_JPRB,1.0521E-01_JPRB,&
+&8.5803E-02_JPRB,6.1991E-02_JPRB,4.0111E-02_JPRB,3.0993E-02_JPRB,3.0183E-02_JPRB/)
+KAO( :, 1, 3, 6) = (/&
+&1.1249E-01_JPRB,1.1241E-01_JPRB,1.0797E-01_JPRB,9.9582E-02_JPRB,8.8991E-02_JPRB,7.6122E-02_JPRB,&
+&5.9776E-02_JPRB,4.0423E-02_JPRB,2.3381E-02_JPRB,1.4989E-02_JPRB,1.2392E-02_JPRB/)
+KAO( :, 2, 3, 6) = (/&
+&1.1410E-01_JPRB,1.1606E-01_JPRB,1.1205E-01_JPRB,1.0392E-01_JPRB,9.3538E-02_JPRB,8.0374E-02_JPRB,&
+&6.3755E-02_JPRB,4.3750E-02_JPRB,2.5848E-02_JPRB,1.7065E-02_JPRB,1.4647E-02_JPRB/)
+KAO( :, 3, 3, 6) = (/&
+&1.1569E-01_JPRB,1.1965E-01_JPRB,1.1613E-01_JPRB,1.0831E-01_JPRB,9.7905E-02_JPRB,8.4765E-02_JPRB,&
+&6.7839E-02_JPRB,4.7191E-02_JPRB,2.8514E-02_JPRB,1.9425E-02_JPRB,1.7233E-02_JPRB/)
+KAO( :, 4, 3, 6) = (/&
+&1.1726E-01_JPRB,1.2309E-01_JPRB,1.2032E-01_JPRB,1.1259E-01_JPRB,1.0247E-01_JPRB,8.9387E-02_JPRB,&
+&7.1928E-02_JPRB,5.0787E-02_JPRB,3.1455E-02_JPRB,2.2128E-02_JPRB,2.0137E-02_JPRB/)
+KAO( :, 5, 3, 6) = (/&
+&1.1874E-01_JPRB,1.2658E-01_JPRB,1.2440E-01_JPRB,1.1705E-01_JPRB,1.0739E-01_JPRB,9.3857E-02_JPRB,&
+&7.6244E-02_JPRB,5.4771E-02_JPRB,3.4624E-02_JPRB,2.5158E-02_JPRB,2.3398E-02_JPRB/)
+KAO( :, 1, 4, 6) = (/&
+&1.0010E-01_JPRB,9.9685E-02_JPRB,9.4787E-02_JPRB,8.6882E-02_JPRB,7.7198E-02_JPRB,6.5934E-02_JPRB,&
+&5.1807E-02_JPRB,3.4736E-02_JPRB,1.9980E-02_JPRB,1.2335E-02_JPRB,1.0141E-02_JPRB/)
+KAO( :, 2, 4, 6) = (/&
+&1.0170E-01_JPRB,1.0312E-01_JPRB,9.8622E-02_JPRB,9.0905E-02_JPRB,8.1426E-02_JPRB,6.9900E-02_JPRB,&
+&5.5494E-02_JPRB,3.7661E-02_JPRB,2.2134E-02_JPRB,1.4013E-02_JPRB,1.1758E-02_JPRB/)
+KAO( :, 3, 4, 6) = (/&
+&1.0335E-01_JPRB,1.0651E-01_JPRB,1.0245E-01_JPRB,9.5068E-02_JPRB,8.5570E-02_JPRB,7.4056E-02_JPRB,&
+&5.9162E-02_JPRB,4.0698E-02_JPRB,2.4492E-02_JPRB,1.5920E-02_JPRB,1.3637E-02_JPRB/)
+KAO( :, 4, 4, 6) = (/&
+&1.0499E-01_JPRB,1.0979E-01_JPRB,1.0642E-01_JPRB,9.9223E-02_JPRB,8.9977E-02_JPRB,7.8273E-02_JPRB,&
+&6.2815E-02_JPRB,4.3991E-02_JPRB,2.7037E-02_JPRB,1.8072E-02_JPRB,1.5828E-02_JPRB/)
+KAO( :, 5, 4, 6) = (/&
+&1.0648E-01_JPRB,1.1320E-01_JPRB,1.1032E-01_JPRB,1.0355E-01_JPRB,9.4621E-02_JPRB,8.2442E-02_JPRB,&
+&6.6678E-02_JPRB,4.7586E-02_JPRB,2.9766E-02_JPRB,2.0476E-02_JPRB,1.8322E-02_JPRB/)
+KAO( :, 1, 5, 6) = (/&
+&8.8646E-02_JPRB,8.7933E-02_JPRB,8.2832E-02_JPRB,7.5476E-02_JPRB,6.6640E-02_JPRB,5.6566E-02_JPRB,&
+&4.4409E-02_JPRB,2.9574E-02_JPRB,1.6904E-02_JPRB,1.0272E-02_JPRB,9.1351E-03_JPRB/)
+KAO( :, 2, 5, 6) = (/&
+&9.0277E-02_JPRB,9.1081E-02_JPRB,8.6318E-02_JPRB,7.9229E-02_JPRB,7.0495E-02_JPRB,6.0192E-02_JPRB,&
+&4.7724E-02_JPRB,3.2103E-02_JPRB,1.8750E-02_JPRB,1.1641E-02_JPRB,1.0542E-02_JPRB/)
+KAO( :, 3, 5, 6) = (/&
+&9.1984E-02_JPRB,9.4263E-02_JPRB,8.9928E-02_JPRB,8.3093E-02_JPRB,7.4368E-02_JPRB,6.3999E-02_JPRB,&
+&5.1030E-02_JPRB,3.4755E-02_JPRB,2.0780E-02_JPRB,1.3171E-02_JPRB,1.2136E-02_JPRB/)
+KAO( :, 4, 5, 6) = (/&
+&9.3576E-02_JPRB,9.7447E-02_JPRB,9.3654E-02_JPRB,8.7006E-02_JPRB,7.8424E-02_JPRB,6.7877E-02_JPRB,&
+&5.4374E-02_JPRB,3.7638E-02_JPRB,2.3002E-02_JPRB,1.4893E-02_JPRB,1.3923E-02_JPRB/)
+KAO( :, 5, 5, 6) = (/&
+&9.5080E-02_JPRB,1.0065E-01_JPRB,9.7383E-02_JPRB,9.1136E-02_JPRB,8.2601E-02_JPRB,7.1701E-02_JPRB,&
+&5.7863E-02_JPRB,4.0796E-02_JPRB,2.5412E-02_JPRB,1.6809E-02_JPRB,1.5908E-02_JPRB/)
+KAO( :, 1, 6, 6) = (/&
+&7.7960E-02_JPRB,7.6934E-02_JPRB,7.1843E-02_JPRB,6.5156E-02_JPRB,5.7207E-02_JPRB,4.8156E-02_JPRB,&
+&3.7659E-02_JPRB,2.4879E-02_JPRB,1.4127E-02_JPRB,8.5541E-03_JPRB,8.3666E-03_JPRB/)
+KAO( :, 2, 6, 6) = (/&
+&7.9609E-02_JPRB,7.9866E-02_JPRB,7.5063E-02_JPRB,6.8592E-02_JPRB,6.0623E-02_JPRB,5.1416E-02_JPRB,&
+&4.0604E-02_JPRB,2.7099E-02_JPRB,1.5685E-02_JPRB,9.6918E-03_JPRB,9.5572E-03_JPRB/)
+KAO( :, 3, 6, 6) = (/&
+&8.1302E-02_JPRB,8.2836E-02_JPRB,7.8445E-02_JPRB,7.2127E-02_JPRB,6.4136E-02_JPRB,5.4857E-02_JPRB,&
+&4.3565E-02_JPRB,2.9366E-02_JPRB,1.7400E-02_JPRB,1.0963E-02_JPRB,1.0922E-02_JPRB/)
+KAO( :, 4, 6, 6) = (/&
+&8.2802E-02_JPRB,8.5864E-02_JPRB,8.1904E-02_JPRB,7.5770E-02_JPRB,6.7852E-02_JPRB,5.8330E-02_JPRB,&
+&4.6522E-02_JPRB,3.1837E-02_JPRB,1.9277E-02_JPRB,1.2364E-02_JPRB,1.2452E-02_JPRB/)
+KAO( :, 5, 6, 6) = (/&
+&8.4221E-02_JPRB,8.8823E-02_JPRB,8.5384E-02_JPRB,7.9630E-02_JPRB,7.1590E-02_JPRB,6.1823E-02_JPRB,&
+&4.9653E-02_JPRB,3.4554E-02_JPRB,2.1337E-02_JPRB,1.3901E-02_JPRB,1.4136E-02_JPRB/)
+KAO( :, 1, 7, 6) = (/&
+&6.7828E-02_JPRB,6.6421E-02_JPRB,6.1520E-02_JPRB,5.5497E-02_JPRB,4.8477E-02_JPRB,4.0523E-02_JPRB,&
+&3.1519E-02_JPRB,2.0723E-02_JPRB,1.1684E-02_JPRB,7.0442E-03_JPRB,8.2153E-03_JPRB/)
+KAO( :, 2, 7, 6) = (/&
+&6.9386E-02_JPRB,6.9084E-02_JPRB,6.4466E-02_JPRB,5.8621E-02_JPRB,5.1513E-02_JPRB,4.3404E-02_JPRB,&
+&3.4117E-02_JPRB,2.2620E-02_JPRB,1.3002E-02_JPRB,8.0096E-03_JPRB,9.3023E-03_JPRB/)
+KAO( :, 3, 7, 6) = (/&
+&7.0902E-02_JPRB,7.1781E-02_JPRB,6.7571E-02_JPRB,6.1798E-02_JPRB,5.4668E-02_JPRB,4.6485E-02_JPRB,&
+&3.6722E-02_JPRB,2.4596E-02_JPRB,1.4441E-02_JPRB,9.0791E-03_JPRB,1.0528E-02_JPRB/)
+KAO( :, 4, 7, 6) = (/&
+&7.2282E-02_JPRB,7.4474E-02_JPRB,7.0674E-02_JPRB,6.5102E-02_JPRB,5.8020E-02_JPRB,4.9583E-02_JPRB,&
+&3.9334E-02_JPRB,2.6694E-02_JPRB,1.6007E-02_JPRB,1.0271E-02_JPRB,1.1922E-02_JPRB/)
+KAO( :, 5, 7, 6) = (/&
+&7.3586E-02_JPRB,7.7141E-02_JPRB,7.3787E-02_JPRB,6.8567E-02_JPRB,6.1369E-02_JPRB,5.2671E-02_JPRB,&
+&4.2103E-02_JPRB,2.8979E-02_JPRB,1.7736E-02_JPRB,1.1572E-02_JPRB,1.3447E-02_JPRB/)
+KAO( :, 1, 8, 6) = (/&
+&5.8712E-02_JPRB,5.7043E-02_JPRB,5.2438E-02_JPRB,4.7021E-02_JPRB,4.0853E-02_JPRB,3.3895E-02_JPRB,&
+&2.6198E-02_JPRB,1.7219E-02_JPRB,9.5944E-03_JPRB,5.7565E-03_JPRB,9.7903E-03_JPRB/)
+KAO( :, 2, 8, 6) = (/&
+&6.0111E-02_JPRB,5.9403E-02_JPRB,5.5109E-02_JPRB,4.9792E-02_JPRB,4.3500E-02_JPRB,3.6406E-02_JPRB,&
+&2.8441E-02_JPRB,1.8832E-02_JPRB,1.0715E-02_JPRB,6.5565E-03_JPRB,1.0886E-02_JPRB/)
+KAO( :, 3, 8, 6) = (/&
+&6.1464E-02_JPRB,6.1765E-02_JPRB,5.7839E-02_JPRB,5.2591E-02_JPRB,4.6276E-02_JPRB,3.9078E-02_JPRB,&
+&3.0733E-02_JPRB,2.0508E-02_JPRB,1.1934E-02_JPRB,7.4566E-03_JPRB,1.2121E-02_JPRB/)
+KAO( :, 4, 8, 6) = (/&
+&6.2712E-02_JPRB,6.4146E-02_JPRB,6.0527E-02_JPRB,5.5457E-02_JPRB,4.9226E-02_JPRB,4.1797E-02_JPRB,&
+&3.3031E-02_JPRB,2.2300E-02_JPRB,1.3252E-02_JPRB,8.4625E-03_JPRB,1.3482E-02_JPRB/)
+KAO( :, 5, 8, 6) = (/&
+&6.3914E-02_JPRB,6.6490E-02_JPRB,6.3234E-02_JPRB,5.8457E-02_JPRB,5.2124E-02_JPRB,4.4504E-02_JPRB,&
+&3.5484E-02_JPRB,2.4239E-02_JPRB,1.4708E-02_JPRB,9.5766E-03_JPRB,1.4975E-02_JPRB/)
+KAO( :, 1, 9, 6) = (/&
+&5.0689E-02_JPRB,4.8919E-02_JPRB,4.4694E-02_JPRB,3.9834E-02_JPRB,3.4426E-02_JPRB,2.8389E-02_JPRB,&
+&2.1819E-02_JPRB,1.4302E-02_JPRB,7.8127E-03_JPRB,4.6620E-03_JPRB,2.0696E-02_JPRB/)
+KAO( :, 2, 9, 6) = (/&
+&5.1946E-02_JPRB,5.0973E-02_JPRB,4.7056E-02_JPRB,4.2253E-02_JPRB,3.6737E-02_JPRB,3.0544E-02_JPRB,&
+&2.3724E-02_JPRB,1.5668E-02_JPRB,8.7780E-03_JPRB,5.3214E-03_JPRB,2.1910E-02_JPRB/)
+KAO( :, 3, 9, 6) = (/&
+&5.3143E-02_JPRB,5.3077E-02_JPRB,4.9431E-02_JPRB,4.4665E-02_JPRB,3.9122E-02_JPRB,3.2816E-02_JPRB,&
+&2.5692E-02_JPRB,1.7096E-02_JPRB,9.8039E-03_JPRB,6.0656E-03_JPRB,2.3234E-02_JPRB/)
+KAO( :, 4, 9, 6) = (/&
+&5.4267E-02_JPRB,5.5157E-02_JPRB,5.1739E-02_JPRB,4.7167E-02_JPRB,4.1644E-02_JPRB,3.5136E-02_JPRB,&
+&2.7685E-02_JPRB,1.8626E-02_JPRB,1.0916E-02_JPRB,6.9060E-03_JPRB,2.4826E-02_JPRB/)
+KAO( :, 5, 9, 6) = (/&
+&5.5411E-02_JPRB,5.7220E-02_JPRB,5.4074E-02_JPRB,4.9699E-02_JPRB,4.4127E-02_JPRB,3.7477E-02_JPRB,&
+&2.9785E-02_JPRB,2.0273E-02_JPRB,1.2148E-02_JPRB,7.8411E-03_JPRB,2.6607E-02_JPRB/)
+KAO( :, 1,10, 6) = (/&
+&4.3441E-02_JPRB,4.1752E-02_JPRB,3.7992E-02_JPRB,3.3732E-02_JPRB,2.9033E-02_JPRB,2.3892E-02_JPRB,&
+&1.8315E-02_JPRB,1.1925E-02_JPRB,6.3650E-03_JPRB,3.7730E-03_JPRB,5.8980E-02_JPRB/)
+KAO( :, 2,10, 6) = (/&
+&4.4578E-02_JPRB,4.3534E-02_JPRB,4.0036E-02_JPRB,3.5800E-02_JPRB,3.1038E-02_JPRB,2.5745E-02_JPRB,&
+&1.9928E-02_JPRB,1.3095E-02_JPRB,7.1901E-03_JPRB,4.3268E-03_JPRB,6.2127E-02_JPRB/)
+KAO( :, 3,10, 6) = (/&
+&4.5637E-02_JPRB,4.5360E-02_JPRB,4.2074E-02_JPRB,3.7890E-02_JPRB,3.3109E-02_JPRB,2.7662E-02_JPRB,&
+&2.1605E-02_JPRB,1.4318E-02_JPRB,8.0717E-03_JPRB,4.9441E-03_JPRB,6.4930E-02_JPRB/)
+KAO( :, 4,10, 6) = (/&
+&4.6665E-02_JPRB,4.7201E-02_JPRB,4.4073E-02_JPRB,4.0041E-02_JPRB,3.5227E-02_JPRB,2.9634E-02_JPRB,&
+&2.3310E-02_JPRB,1.5630E-02_JPRB,9.0074E-03_JPRB,5.6431E-03_JPRB,6.7490E-02_JPRB/)
+KAO( :, 5,10, 6) = (/&
+&4.7723E-02_JPRB,4.9037E-02_JPRB,4.6142E-02_JPRB,4.2228E-02_JPRB,3.7348E-02_JPRB,3.1608E-02_JPRB,&
+&2.5075E-02_JPRB,1.7036E-02_JPRB,1.0045E-02_JPRB,6.4268E-03_JPRB,6.9977E-02_JPRB/)
+KAO( :, 1,11, 6) = (/&
+&3.7516E-02_JPRB,3.6158E-02_JPRB,3.2933E-02_JPRB,2.9252E-02_JPRB,2.5204E-02_JPRB,2.0803E-02_JPRB,&
+&1.5990E-02_JPRB,1.0375E-02_JPRB,5.4827E-03_JPRB,3.2361E-03_JPRB,8.1016E-02_JPRB/)
+KAO( :, 2,11, 6) = (/&
+&3.8506E-02_JPRB,3.7721E-02_JPRB,3.4706E-02_JPRB,3.1031E-02_JPRB,2.6946E-02_JPRB,2.2411E-02_JPRB,&
+&1.7386E-02_JPRB,1.1409E-02_JPRB,6.2003E-03_JPRB,3.7210E-03_JPRB,8.4685E-02_JPRB/)
+KAO( :, 3,11, 6) = (/&
+&3.9439E-02_JPRB,3.9310E-02_JPRB,3.6436E-02_JPRB,3.2830E-02_JPRB,2.8736E-02_JPRB,2.4071E-02_JPRB,&
+&1.8831E-02_JPRB,1.2487E-02_JPRB,6.9722E-03_JPRB,4.2623E-03_JPRB,8.7980E-02_JPRB/)
+KAO( :, 4,11, 6) = (/&
+&4.0392E-02_JPRB,4.0944E-02_JPRB,3.8217E-02_JPRB,3.4707E-02_JPRB,3.0543E-02_JPRB,2.5731E-02_JPRB,&
+&2.0303E-02_JPRB,1.3646E-02_JPRB,7.7970E-03_JPRB,4.8703E-03_JPRB,9.0981E-02_JPRB/)
+KAO( :, 5,11, 6) = (/&
+&4.1332E-02_JPRB,4.2552E-02_JPRB,4.0059E-02_JPRB,3.6603E-02_JPRB,3.2383E-02_JPRB,2.7450E-02_JPRB,&
+&2.1833E-02_JPRB,1.4887E-02_JPRB,8.7084E-03_JPRB,5.5527E-03_JPRB,9.3973E-02_JPRB/)
+KAO( :, 1,12, 6) = (/&
+&3.2190E-02_JPRB,3.1071E-02_JPRB,2.8321E-02_JPRB,2.5152E-02_JPRB,2.1728E-02_JPRB,1.7981E-02_JPRB,&
+&1.3822E-02_JPRB,8.9602E-03_JPRB,4.7106E-03_JPRB,2.7564E-03_JPRB,8.5402E-02_JPRB/)
+KAO( :, 2,12, 6) = (/&
+&3.3033E-02_JPRB,3.2405E-02_JPRB,2.9806E-02_JPRB,2.6661E-02_JPRB,2.3211E-02_JPRB,1.9361E-02_JPRB,&
+&1.5025E-02_JPRB,9.8641E-03_JPRB,5.3297E-03_JPRB,3.1770E-03_JPRB,8.8737E-02_JPRB/)
+KAO( :, 3,12, 6) = (/&
+&3.3864E-02_JPRB,3.3793E-02_JPRB,3.1297E-02_JPRB,2.8211E-02_JPRB,2.4733E-02_JPRB,2.0771E-02_JPRB,&
+&1.6265E-02_JPRB,1.0821E-02_JPRB,6.0022E-03_JPRB,3.6467E-03_JPRB,9.1670E-02_JPRB/)
+KAO( :, 4,12, 6) = (/&
+&3.4696E-02_JPRB,3.5203E-02_JPRB,3.2853E-02_JPRB,2.9817E-02_JPRB,2.6296E-02_JPRB,2.2203E-02_JPRB,&
+&1.7545E-02_JPRB,1.1834E-02_JPRB,6.7302E-03_JPRB,4.1679E-03_JPRB,9.4574E-02_JPRB/)
+KAO( :, 5,12, 6) = (/&
+&3.5522E-02_JPRB,3.6626E-02_JPRB,3.4423E-02_JPRB,3.1438E-02_JPRB,2.7875E-02_JPRB,2.3697E-02_JPRB,&
+&1.8905E-02_JPRB,1.2927E-02_JPRB,7.5191E-03_JPRB,4.7590E-03_JPRB,9.7614E-02_JPRB/)
+KAO( :, 1,13, 6) = (/&
+&2.7210E-02_JPRB,2.6304E-02_JPRB,2.3996E-02_JPRB,2.1359E-02_JPRB,1.8491E-02_JPRB,1.5314E-02_JPRB,&
+&1.1755E-02_JPRB,7.6170E-03_JPRB,4.0095E-03_JPRB,2.3275E-03_JPRB,7.1211E-02_JPRB/)
+KAO( :, 2,13, 6) = (/&
+&2.7941E-02_JPRB,2.7441E-02_JPRB,2.5246E-02_JPRB,2.2622E-02_JPRB,1.9729E-02_JPRB,1.6472E-02_JPRB,&
+&1.2765E-02_JPRB,8.4034E-03_JPRB,4.5447E-03_JPRB,2.6861E-03_JPRB,7.3769E-02_JPRB/)
+KAO( :, 3,13, 6) = (/&
+&2.8664E-02_JPRB,2.8630E-02_JPRB,2.6520E-02_JPRB,2.3935E-02_JPRB,2.1025E-02_JPRB,1.7662E-02_JPRB,&
+&1.3821E-02_JPRB,9.2359E-03_JPRB,5.1273E-03_JPRB,3.0871E-03_JPRB,7.6136E-02_JPRB/)
+KAO( :, 4,13, 6) = (/&
+&2.9387E-02_JPRB,2.9844E-02_JPRB,2.7832E-02_JPRB,2.5287E-02_JPRB,2.2341E-02_JPRB,1.8888E-02_JPRB,&
+&1.4940E-02_JPRB,1.0117E-02_JPRB,5.7529E-03_JPRB,3.5334E-03_JPRB,7.8673E-02_JPRB/)
+KAO( :, 5,13, 6) = (/&
+&3.0121E-02_JPRB,3.1064E-02_JPRB,2.9140E-02_JPRB,2.6651E-02_JPRB,2.3680E-02_JPRB,2.0177E-02_JPRB,&
+&1.6134E-02_JPRB,1.1077E-02_JPRB,6.4283E-03_JPRB,4.0402E-03_JPRB,8.1505E-02_JPRB/)
+KAO( :, 1, 1, 7) = (/&
+&2.6926E-01_JPRB,2.5612E-01_JPRB,2.3950E-01_JPRB,2.1903E-01_JPRB,1.9378E-01_JPRB,1.6501E-01_JPRB,&
+&1.2973E-01_JPRB,8.7439E-02_JPRB,5.3950E-02_JPRB,4.2811E-02_JPRB,4.3233E-02_JPRB/)
+KAO( :, 2, 1, 7) = (/&
+&2.6861E-01_JPRB,2.5930E-01_JPRB,2.4513E-01_JPRB,2.2568E-01_JPRB,2.0133E-01_JPRB,1.7294E-01_JPRB,&
+&1.3711E-01_JPRB,9.4464E-02_JPRB,6.0595E-02_JPRB,5.0710E-02_JPRB,5.1677E-02_JPRB/)
+KAO( :, 3, 1, 7) = (/&
+&2.6820E-01_JPRB,2.6238E-01_JPRB,2.5102E-01_JPRB,2.3240E-01_JPRB,2.0913E-01_JPRB,1.8091E-01_JPRB,&
+&1.4446E-01_JPRB,1.0226E-01_JPRB,6.8084E-02_JPRB,5.9495E-02_JPRB,6.1037E-02_JPRB/)
+KAO( :, 4, 1, 7) = (/&
+&2.6771E-01_JPRB,2.6572E-01_JPRB,2.5658E-01_JPRB,2.3935E-01_JPRB,2.1685E-01_JPRB,1.8839E-01_JPRB,&
+&1.5222E-01_JPRB,1.1069E-01_JPRB,7.6279E-02_JPRB,6.9108E-02_JPRB,7.1213E-02_JPRB/)
+KAO( :, 5, 1, 7) = (/&
+&2.6714E-01_JPRB,2.6936E-01_JPRB,2.6194E-01_JPRB,2.4642E-01_JPRB,2.2450E-01_JPRB,1.9571E-01_JPRB,&
+&1.6083E-01_JPRB,1.1918E-01_JPRB,8.5421E-02_JPRB,7.9682E-02_JPRB,8.2280E-02_JPRB/)
+KAO( :, 1, 2, 7) = (/&
+&2.5685E-01_JPRB,2.4492E-01_JPRB,2.2865E-01_JPRB,2.0884E-01_JPRB,1.8444E-01_JPRB,1.5601E-01_JPRB,&
+&1.2319E-01_JPRB,8.1747E-02_JPRB,4.8230E-02_JPRB,3.5409E-02_JPRB,3.4615E-02_JPRB/)
+KAO( :, 2, 2, 7) = (/&
+&2.5657E-01_JPRB,2.4834E-01_JPRB,2.3445E-01_JPRB,2.1551E-01_JPRB,1.9182E-01_JPRB,1.6377E-01_JPRB,&
+&1.3042E-01_JPRB,8.8197E-02_JPRB,5.3891E-02_JPRB,4.1822E-02_JPRB,4.1515E-02_JPRB/)
+KAO( :, 3, 2, 7) = (/&
+&2.5627E-01_JPRB,2.5163E-01_JPRB,2.4011E-01_JPRB,2.2230E-01_JPRB,1.9937E-01_JPRB,1.7150E-01_JPRB,&
+&1.3758E-01_JPRB,9.5254E-02_JPRB,6.0018E-02_JPRB,4.9025E-02_JPRB,4.9189E-02_JPRB/)
+KAO( :, 4, 2, 7) = (/&
+&2.5591E-01_JPRB,2.5517E-01_JPRB,2.4558E-01_JPRB,2.2928E-01_JPRB,2.0702E-01_JPRB,1.7899E-01_JPRB,&
+&1.4524E-01_JPRB,1.0258E-01_JPRB,6.6782E-02_JPRB,5.7123E-02_JPRB,5.7631E-02_JPRB/)
+KAO( :, 5, 2, 7) = (/&
+&2.5562E-01_JPRB,2.5902E-01_JPRB,2.5095E-01_JPRB,2.3638E-01_JPRB,2.1422E-01_JPRB,1.8662E-01_JPRB,&
+&1.5329E-01_JPRB,1.0996E-01_JPRB,7.4405E-02_JPRB,6.6142E-02_JPRB,6.6949E-02_JPRB/)
+KAO( :, 1, 3, 7) = (/&
+&2.4108E-01_JPRB,2.2965E-01_JPRB,2.1361E-01_JPRB,1.9446E-01_JPRB,1.7133E-01_JPRB,1.4401E-01_JPRB,&
+&1.1345E-01_JPRB,7.5185E-02_JPRB,4.2160E-02_JPRB,2.8583E-02_JPRB,2.6584E-02_JPRB/)
+KAO( :, 2, 3, 7) = (/&
+&2.4113E-01_JPRB,2.3314E-01_JPRB,2.1942E-01_JPRB,2.0119E-01_JPRB,1.7846E-01_JPRB,1.5146E-01_JPRB,&
+&1.2063E-01_JPRB,8.1173E-02_JPRB,4.7044E-02_JPRB,3.3533E-02_JPRB,3.2019E-02_JPRB/)
+KAO( :, 3, 3, 7) = (/&
+&2.4094E-01_JPRB,2.3663E-01_JPRB,2.2501E-01_JPRB,2.0773E-01_JPRB,1.8580E-01_JPRB,1.5907E-01_JPRB,&
+&1.2798E-01_JPRB,8.7501E-02_JPRB,5.2313E-02_JPRB,3.9244E-02_JPRB,3.8141E-02_JPRB/)
+KAO( :, 4, 3, 7) = (/&
+&2.4074E-01_JPRB,2.4043E-01_JPRB,2.3041E-01_JPRB,2.1449E-01_JPRB,1.9317E-01_JPRB,1.6647E-01_JPRB,&
+&1.3556E-01_JPRB,9.3949E-02_JPRB,5.7980E-02_JPRB,4.5777E-02_JPRB,4.5020E-02_JPRB/)
+KAO( :, 5, 3, 7) = (/&
+&2.4071E-01_JPRB,2.4430E-01_JPRB,2.3591E-01_JPRB,2.2137E-01_JPRB,2.0017E-01_JPRB,1.7425E-01_JPRB,&
+&1.4332E-01_JPRB,1.0047E-01_JPRB,6.4245E-02_JPRB,5.3237E-02_JPRB,5.2730E-02_JPRB/)
+KAO( :, 1, 4, 7) = (/&
+&2.2311E-01_JPRB,2.1202E-01_JPRB,1.9660E-01_JPRB,1.7804E-01_JPRB,1.5619E-01_JPRB,1.3066E-01_JPRB,&
+&1.0239E-01_JPRB,6.7996E-02_JPRB,3.6908E-02_JPRB,2.3235E-02_JPRB,2.0397E-02_JPRB/)
+KAO( :, 2, 4, 7) = (/&
+&2.2321E-01_JPRB,2.1552E-01_JPRB,2.0209E-01_JPRB,1.8449E-01_JPRB,1.6284E-01_JPRB,1.3774E-01_JPRB,&
+&1.0930E-01_JPRB,7.3775E-02_JPRB,4.1078E-02_JPRB,2.7004E-02_JPRB,2.4614E-02_JPRB/)
+KAO( :, 3, 4, 7) = (/&
+&2.2314E-01_JPRB,2.1901E-01_JPRB,2.0753E-01_JPRB,1.9073E-01_JPRB,1.6981E-01_JPRB,1.4494E-01_JPRB,&
+&1.1634E-01_JPRB,7.9807E-02_JPRB,4.5483E-02_JPRB,3.1405E-02_JPRB,2.9481E-02_JPRB/)
+KAO( :, 4, 4, 7) = (/&
+&2.2327E-01_JPRB,2.2287E-01_JPRB,2.1284E-01_JPRB,1.9716E-01_JPRB,1.7693E-01_JPRB,1.5226E-01_JPRB,&
+&1.2381E-01_JPRB,8.5751E-02_JPRB,5.0279E-02_JPRB,3.6528E-02_JPRB,3.5030E-02_JPRB/)
+KAO( :, 5, 4, 7) = (/&
+&2.2365E-01_JPRB,2.2673E-01_JPRB,2.1820E-01_JPRB,2.0372E-01_JPRB,1.8385E-01_JPRB,1.5984E-01_JPRB,&
+&1.3133E-01_JPRB,9.1593E-02_JPRB,5.5615E-02_JPRB,4.2459E-02_JPRB,4.1306E-02_JPRB/)
+KAO( :, 1, 5, 7) = (/&
+&2.0367E-01_JPRB,1.9330E-01_JPRB,1.7867E-01_JPRB,1.6084E-01_JPRB,1.4027E-01_JPRB,1.1693E-01_JPRB,&
+&9.0945E-02_JPRB,6.0466E-02_JPRB,3.2455E-02_JPRB,1.9165E-02_JPRB,1.7920E-02_JPRB/)
+KAO( :, 2, 5, 7) = (/&
+&2.0387E-01_JPRB,1.9668E-01_JPRB,1.8380E-01_JPRB,1.6682E-01_JPRB,1.4653E-01_JPRB,1.2346E-01_JPRB,&
+&9.7443E-02_JPRB,6.5962E-02_JPRB,3.6138E-02_JPRB,2.2169E-02_JPRB,2.0934E-02_JPRB/)
+KAO( :, 3, 5, 7) = (/&
+&2.0408E-01_JPRB,2.0015E-01_JPRB,1.8885E-01_JPRB,1.7264E-01_JPRB,1.5303E-01_JPRB,1.3023E-01_JPRB,&
+&1.0413E-01_JPRB,7.1676E-02_JPRB,3.9916E-02_JPRB,2.5581E-02_JPRB,2.4393E-02_JPRB/)
+KAO( :, 4, 5, 7) = (/&
+&2.0467E-01_JPRB,2.0395E-01_JPRB,1.9389E-01_JPRB,1.7862E-01_JPRB,1.5966E-01_JPRB,1.3725E-01_JPRB,&
+&1.1106E-01_JPRB,7.7287E-02_JPRB,4.3976E-02_JPRB,2.9567E-02_JPRB,2.8440E-02_JPRB/)
+KAO( :, 5, 5, 7) = (/&
+&2.0538E-01_JPRB,2.0784E-01_JPRB,1.9895E-01_JPRB,1.8474E-01_JPRB,1.6635E-01_JPRB,1.4459E-01_JPRB,&
+&1.1807E-01_JPRB,8.2795E-02_JPRB,4.8485E-02_JPRB,3.4195E-02_JPRB,3.3174E-02_JPRB/)
+KAO( :, 1, 6, 7) = (/&
+&1.8377E-01_JPRB,1.7398E-01_JPRB,1.6006E-01_JPRB,1.4318E-01_JPRB,1.2397E-01_JPRB,1.0298E-01_JPRB,&
+&7.9521E-02_JPRB,5.2397E-02_JPRB,2.8050E-02_JPRB,1.5934E-02_JPRB,1.6791E-02_JPRB/)
+KAO( :, 2, 6, 7) = (/&
+&1.8406E-01_JPRB,1.7717E-01_JPRB,1.6474E-01_JPRB,1.4853E-01_JPRB,1.2984E-01_JPRB,1.0898E-01_JPRB,&
+&8.5328E-02_JPRB,5.7490E-02_JPRB,3.1447E-02_JPRB,1.8349E-02_JPRB,1.9516E-02_JPRB/)
+KAO( :, 3, 6, 7) = (/&
+&1.8458E-01_JPRB,1.8054E-01_JPRB,1.6936E-01_JPRB,1.5392E-01_JPRB,1.3584E-01_JPRB,1.1517E-01_JPRB,&
+&9.1409E-02_JPRB,6.2836E-02_JPRB,3.4889E-02_JPRB,2.1106E-02_JPRB,2.2611E-02_JPRB/)
+KAO( :, 4, 6, 7) = (/&
+&1.8542E-01_JPRB,1.8421E-01_JPRB,1.7403E-01_JPRB,1.5942E-01_JPRB,1.4196E-01_JPRB,1.2162E-01_JPRB,&
+&9.7928E-02_JPRB,6.8139E-02_JPRB,3.8483E-02_JPRB,2.4244E-02_JPRB,2.6124E-02_JPRB/)
+KAO( :, 5, 6, 7) = (/&
+&1.8648E-01_JPRB,1.8801E-01_JPRB,1.7890E-01_JPRB,1.6506E-01_JPRB,1.4823E-01_JPRB,1.2840E-01_JPRB,&
+&1.0438E-01_JPRB,7.3304E-02_JPRB,4.2378E-02_JPRB,2.7839E-02_JPRB,3.0053E-02_JPRB/)
+KAO( :, 1, 7, 7) = (/&
+&1.6272E-01_JPRB,1.5372E-01_JPRB,1.4080E-01_JPRB,1.2519E-01_JPRB,1.0771E-01_JPRB,8.8984E-02_JPRB,&
+&6.8276E-02_JPRB,4.4541E-02_JPRB,2.3807E-02_JPRB,1.3453E-02_JPRB,1.6655E-02_JPRB/)
+KAO( :, 2, 7, 7) = (/&
+&1.6325E-01_JPRB,1.5679E-01_JPRB,1.4498E-01_JPRB,1.2986E-01_JPRB,1.1297E-01_JPRB,9.4402E-02_JPRB,&
+&7.3383E-02_JPRB,4.9046E-02_JPRB,2.6845E-02_JPRB,1.5405E-02_JPRB,1.9132E-02_JPRB/)
+KAO( :, 3, 7, 7) = (/&
+&1.6400E-01_JPRB,1.6007E-01_JPRB,1.4916E-01_JPRB,1.3473E-01_JPRB,1.1836E-01_JPRB,9.9949E-02_JPRB,&
+&7.8806E-02_JPRB,5.3833E-02_JPRB,2.9954E-02_JPRB,1.7645E-02_JPRB,2.1895E-02_JPRB/)
+KAO( :, 4, 7, 7) = (/&
+&1.6505E-01_JPRB,1.6353E-01_JPRB,1.5347E-01_JPRB,1.3982E-01_JPRB,1.2392E-01_JPRB,1.0565E-01_JPRB,&
+&8.4634E-02_JPRB,5.8597E-02_JPRB,3.3207E-02_JPRB,2.0171E-02_JPRB,2.4986E-02_JPRB/)
+KAO( :, 5, 7, 7) = (/&
+&1.6641E-01_JPRB,1.6726E-01_JPRB,1.5808E-01_JPRB,1.4506E-01_JPRB,1.2973E-01_JPRB,1.1182E-01_JPRB,&
+&9.0461E-02_JPRB,6.3334E-02_JPRB,3.6689E-02_JPRB,2.3031E-02_JPRB,2.8476E-02_JPRB/)
+KAO( :, 1, 8, 7) = (/&
+&1.4230E-01_JPRB,1.3413E-01_JPRB,1.2233E-01_JPRB,1.0813E-01_JPRB,9.2496E-02_JPRB,7.5904E-02_JPRB,&
+&5.7906E-02_JPRB,3.7394E-02_JPRB,2.0019E-02_JPRB,1.1310E-02_JPRB,1.9019E-02_JPRB/)
+KAO( :, 2, 8, 7) = (/&
+&1.4305E-01_JPRB,1.3708E-01_JPRB,1.2596E-01_JPRB,1.1218E-01_JPRB,9.7109E-02_JPRB,8.0704E-02_JPRB,&
+&6.2330E-02_JPRB,4.1218E-02_JPRB,2.2623E-02_JPRB,1.3029E-02_JPRB,2.1546E-02_JPRB/)
+KAO( :, 3, 8, 7) = (/&
+&1.4394E-01_JPRB,1.4013E-01_JPRB,1.2970E-01_JPRB,1.1658E-01_JPRB,1.0194E-01_JPRB,8.5591E-02_JPRB,&
+&6.7043E-02_JPRB,4.5347E-02_JPRB,2.5359E-02_JPRB,1.4903E-02_JPRB,2.4327E-02_JPRB/)
+KAO( :, 4, 8, 7) = (/&
+&1.4525E-01_JPRB,1.4339E-01_JPRB,1.3373E-01_JPRB,1.2126E-01_JPRB,1.0690E-01_JPRB,9.0683E-02_JPRB,&
+&7.2129E-02_JPRB,4.9569E-02_JPRB,2.8222E-02_JPRB,1.6964E-02_JPRB,2.7427E-02_JPRB/)
+KAO( :, 5, 8, 7) = (/&
+&1.4678E-01_JPRB,1.4702E-01_JPRB,1.3814E-01_JPRB,1.2616E-01_JPRB,1.1217E-01_JPRB,9.6136E-02_JPRB,&
+&7.7253E-02_JPRB,5.3800E-02_JPRB,3.1285E-02_JPRB,1.9274E-02_JPRB,3.0890E-02_JPRB/)
+KAO( :, 1, 9, 7) = (/&
+&1.2368E-01_JPRB,1.1615E-01_JPRB,1.0547E-01_JPRB,9.2730E-02_JPRB,7.8890E-02_JPRB,6.4288E-02_JPRB,&
+&4.8706E-02_JPRB,3.1194E-02_JPRB,1.6735E-02_JPRB,9.3621E-03_JPRB,3.9474E-02_JPRB/)
+KAO( :, 2, 9, 7) = (/&
+&1.2453E-01_JPRB,1.1886E-01_JPRB,1.0862E-01_JPRB,9.6299E-02_JPRB,8.2892E-02_JPRB,6.8444E-02_JPRB,&
+&5.2534E-02_JPRB,3.4360E-02_JPRB,1.8949E-02_JPRB,1.0875E-02_JPRB,4.3185E-02_JPRB/)
+KAO( :, 3, 9, 7) = (/&
+&1.2562E-01_JPRB,1.2177E-01_JPRB,1.1199E-01_JPRB,1.0025E-01_JPRB,8.7157E-02_JPRB,7.2734E-02_JPRB,&
+&5.6567E-02_JPRB,3.7837E-02_JPRB,2.1307E-02_JPRB,1.2524E-02_JPRB,4.7262E-02_JPRB/)
+KAO( :, 4, 9, 7) = (/&
+&1.2711E-01_JPRB,1.2497E-01_JPRB,1.1585E-01_JPRB,1.0453E-01_JPRB,9.1592E-02_JPRB,7.7237E-02_JPRB,&
+&6.0927E-02_JPRB,4.1474E-02_JPRB,2.3783E-02_JPRB,1.4321E-02_JPRB,5.1601E-02_JPRB/)
+KAO( :, 5, 9, 7) = (/&
+&1.2877E-01_JPRB,1.2842E-01_JPRB,1.2005E-01_JPRB,1.0911E-01_JPRB,9.6384E-02_JPRB,8.2052E-02_JPRB,&
+&6.5390E-02_JPRB,4.5200E-02_JPRB,2.6423E-02_JPRB,1.6264E-02_JPRB,5.6231E-02_JPRB/)
+KAO( :, 1,10, 7) = (/&
+&1.0692E-01_JPRB,1.0005E-01_JPRB,9.0502E-02_JPRB,7.9216E-02_JPRB,6.7057E-02_JPRB,5.4323E-02_JPRB,&
+&4.0890E-02_JPRB,2.6119E-02_JPRB,1.4019E-02_JPRB,7.7525E-03_JPRB,1.2082E-01_JPRB/)
+KAO( :, 2,10, 7) = (/&
+&1.0785E-01_JPRB,1.0257E-01_JPRB,9.3251E-02_JPRB,8.2316E-02_JPRB,7.0515E-02_JPRB,5.7848E-02_JPRB,&
+&4.4197E-02_JPRB,2.8769E-02_JPRB,1.5892E-02_JPRB,9.0528E-03_JPRB,1.2557E-01_JPRB/)
+KAO( :, 3,10, 7) = (/&
+&1.0912E-01_JPRB,1.0534E-01_JPRB,9.6345E-02_JPRB,8.5888E-02_JPRB,7.4218E-02_JPRB,6.1590E-02_JPRB,&
+&4.7639E-02_JPRB,3.1645E-02_JPRB,1.7926E-02_JPRB,1.0497E-02_JPRB,1.3124E-01_JPRB/)
+KAO( :, 4,10, 7) = (/&
+&1.1068E-01_JPRB,1.0836E-01_JPRB,9.9964E-02_JPRB,8.9810E-02_JPRB,7.8244E-02_JPRB,6.5593E-02_JPRB,&
+&5.1337E-02_JPRB,3.4711E-02_JPRB,2.0071E-02_JPRB,1.2083E-02_JPRB,1.3784E-01_JPRB/)
+KAO( :, 5,10, 7) = (/&
+&1.1237E-01_JPRB,1.1161E-01_JPRB,1.0388E-01_JPRB,9.3947E-02_JPRB,8.2580E-02_JPRB,6.9883E-02_JPRB,&
+&5.5203E-02_JPRB,3.7928E-02_JPRB,2.2348E-02_JPRB,1.3792E-02_JPRB,1.4518E-01_JPRB/)
+KAO( :, 1,11, 7) = (/&
+&9.2754E-02_JPRB,8.7072E-02_JPRB,7.8639E-02_JPRB,6.8755E-02_JPRB,5.8275E-02_JPRB,4.7245E-02_JPRB,&
+&3.5602E-02_JPRB,2.2866E-02_JPRB,1.2334E-02_JPRB,6.8505E-03_JPRB,1.6609E-01_JPRB/)
+KAO( :, 2,11, 7) = (/&
+&9.3939E-02_JPRB,8.9571E-02_JPRB,8.1238E-02_JPRB,7.1711E-02_JPRB,6.1381E-02_JPRB,5.0306E-02_JPRB,&
+&3.8442E-02_JPRB,2.5156E-02_JPRB,1.3991E-02_JPRB,8.0122E-03_JPRB,1.7138E-01_JPRB/)
+KAO( :, 3,11, 7) = (/&
+&9.5412E-02_JPRB,9.2282E-02_JPRB,8.4324E-02_JPRB,7.5102E-02_JPRB,6.4785E-02_JPRB,5.3640E-02_JPRB,&
+&4.1470E-02_JPRB,2.7635E-02_JPRB,1.5787E-02_JPRB,9.3174E-03_JPRB,1.7778E-01_JPRB/)
+KAO( :, 4,11, 7) = (/&
+&9.6996E-02_JPRB,9.5142E-02_JPRB,8.7745E-02_JPRB,7.8708E-02_JPRB,6.8483E-02_JPRB,5.7282E-02_JPRB,&
+&4.4714E-02_JPRB,3.0277E-02_JPRB,1.7707E-02_JPRB,1.0749E-02_JPRB,1.8499E-01_JPRB/)
+KAO( :, 5,11, 7) = (/&
+&9.8658E-02_JPRB,9.8284E-02_JPRB,9.1388E-02_JPRB,8.2534E-02_JPRB,7.2404E-02_JPRB,6.1041E-02_JPRB,&
+&4.8110E-02_JPRB,3.3083E-02_JPRB,1.9725E-02_JPRB,1.2309E-02_JPRB,1.9294E-01_JPRB/)
+KAO( :, 1,12, 7) = (/&
+&8.0002E-02_JPRB,7.5395E-02_JPRB,6.7953E-02_JPRB,5.9467E-02_JPRB,5.0458E-02_JPRB,4.0919E-02_JPRB,&
+&3.0920E-02_JPRB,1.9925E-02_JPRB,1.0727E-02_JPRB,5.9901E-03_JPRB,1.7505E-01_JPRB/)
+KAO( :, 2,12, 7) = (/&
+&8.1332E-02_JPRB,7.7813E-02_JPRB,7.0567E-02_JPRB,6.2307E-02_JPRB,5.3303E-02_JPRB,4.3618E-02_JPRB,&
+&3.3391E-02_JPRB,2.1911E-02_JPRB,1.2184E-02_JPRB,7.0189E-03_JPRB,1.8048E-01_JPRB/)
+KAO( :, 3,12, 7) = (/&
+&8.2791E-02_JPRB,8.0324E-02_JPRB,7.3485E-02_JPRB,6.5420E-02_JPRB,5.6352E-02_JPRB,4.6610E-02_JPRB,&
+&3.6047E-02_JPRB,2.4056E-02_JPRB,1.3765E-02_JPRB,8.1809E-03_JPRB,1.8704E-01_JPRB/)
+KAO( :, 4,12, 7) = (/&
+&8.4300E-02_JPRB,8.3063E-02_JPRB,7.6637E-02_JPRB,6.8671E-02_JPRB,5.9646E-02_JPRB,4.9774E-02_JPRB,&
+&3.8886E-02_JPRB,2.6351E-02_JPRB,1.5463E-02_JPRB,9.4646E-03_JPRB,1.9416E-01_JPRB/)
+KAO( :, 5,12, 7) = (/&
+&8.5799E-02_JPRB,8.5928E-02_JPRB,7.9923E-02_JPRB,7.2138E-02_JPRB,6.3097E-02_JPRB,5.3071E-02_JPRB,&
+&4.1851E-02_JPRB,2.8800E-02_JPRB,1.7260E-02_JPRB,1.0869E-02_JPRB,2.0180E-01_JPRB/)
+KAO( :, 1,13, 7) = (/&
+&6.7746E-02_JPRB,6.4117E-02_JPRB,5.7794E-02_JPRB,5.0687E-02_JPRB,4.3091E-02_JPRB,3.5063E-02_JPRB,&
+&2.6600E-02_JPRB,1.7143E-02_JPRB,9.2085E-03_JPRB,5.1738E-03_JPRB,1.4684E-01_JPRB/)
+KAO( :, 2,13, 7) = (/&
+&6.9040E-02_JPRB,6.6326E-02_JPRB,6.0272E-02_JPRB,5.3267E-02_JPRB,4.5640E-02_JPRB,3.7446E-02_JPRB,&
+&2.8771E-02_JPRB,1.8875E-02_JPRB,1.0472E-02_JPRB,6.0786E-03_JPRB,1.5190E-01_JPRB/)
+KAO( :, 3,13, 7) = (/&
+&7.0402E-02_JPRB,6.8674E-02_JPRB,6.2930E-02_JPRB,5.6044E-02_JPRB,4.8322E-02_JPRB,4.0046E-02_JPRB,&
+&3.1093E-02_JPRB,2.0746E-02_JPRB,1.1854E-02_JPRB,7.0992E-03_JPRB,1.5783E-01_JPRB/)
+KAO( :, 4,13, 7) = (/&
+&7.1727E-02_JPRB,7.1116E-02_JPRB,6.5698E-02_JPRB,5.8955E-02_JPRB,5.1188E-02_JPRB,4.2780E-02_JPRB,&
+&3.3535E-02_JPRB,2.2751E-02_JPRB,1.3343E-02_JPRB,8.2333E-03_JPRB,1.6414E-01_JPRB/)
+KAO( :, 5,13, 7) = (/&
+&7.3153E-02_JPRB,7.3694E-02_JPRB,6.8621E-02_JPRB,6.1933E-02_JPRB,5.4168E-02_JPRB,4.5648E-02_JPRB,&
+&3.6089E-02_JPRB,2.4874E-02_JPRB,1.4932E-02_JPRB,9.4816E-03_JPRB,1.7071E-01_JPRB/)
+KAO( :, 1, 1, 8) = (/&
+&4.9299E-01_JPRB,4.5097E-01_JPRB,4.1423E-01_JPRB,3.7425E-01_JPRB,3.3288E-01_JPRB,2.8439E-01_JPRB,&
+&2.3129E-01_JPRB,1.6724E-01_JPRB,1.2209E-01_JPRB,1.1839E-01_JPRB,1.2231E-01_JPRB/)
+KAO( :, 2, 1, 8) = (/&
+&4.9158E-01_JPRB,4.5413E-01_JPRB,4.2130E-01_JPRB,3.8574E-01_JPRB,3.4556E-01_JPRB,2.9862E-01_JPRB,&
+&2.4672E-01_JPRB,1.8285E-01_JPRB,1.4316E-01_JPRB,1.4173E-01_JPRB,1.4653E-01_JPRB/)
+KAO( :, 3, 1, 8) = (/&
+&4.8921E-01_JPRB,4.5835E-01_JPRB,4.2895E-01_JPRB,3.9755E-01_JPRB,3.5824E-01_JPRB,3.1313E-01_JPRB,&
+&2.6208E-01_JPRB,1.9974E-01_JPRB,1.6634E-01_JPRB,1.6696E-01_JPRB,1.7273E-01_JPRB/)
+KAO( :, 4, 1, 8) = (/&
+&4.8664E-01_JPRB,4.6279E-01_JPRB,4.3774E-01_JPRB,4.0881E-01_JPRB,3.7103E-01_JPRB,3.2868E-01_JPRB,&
+&2.7711E-01_JPRB,2.1740E-01_JPRB,1.9172E-01_JPRB,1.9403E-01_JPRB,2.0091E-01_JPRB/)
+KAO( :, 5, 1, 8) = (/&
+&4.8428E-01_JPRB,4.6664E-01_JPRB,4.4704E-01_JPRB,4.1926E-01_JPRB,3.8405E-01_JPRB,3.4407E-01_JPRB,&
+&2.9186E-01_JPRB,2.3664E-01_JPRB,2.1906E-01_JPRB,2.2276E-01_JPRB,2.3078E-01_JPRB/)
+KAO( :, 1, 2, 8) = (/&
+&5.0098E-01_JPRB,4.5838E-01_JPRB,4.1902E-01_JPRB,3.7538E-01_JPRB,3.3034E-01_JPRB,2.7973E-01_JPRB,&
+&2.2195E-01_JPRB,1.5668E-01_JPRB,1.0587E-01_JPRB,9.8490E-02_JPRB,1.0033E-01_JPRB/)
+KAO( :, 2, 2, 8) = (/&
+&4.9983E-01_JPRB,4.6235E-01_JPRB,4.2661E-01_JPRB,3.8655E-01_JPRB,3.4282E-01_JPRB,2.9301E-01_JPRB,&
+&2.3610E-01_JPRB,1.7056E-01_JPRB,1.2318E-01_JPRB,1.1876E-01_JPRB,1.2114E-01_JPRB/)
+KAO( :, 3, 2, 8) = (/&
+&4.9812E-01_JPRB,4.6732E-01_JPRB,4.3492E-01_JPRB,3.9791E-01_JPRB,3.5518E-01_JPRB,3.0663E-01_JPRB,&
+&2.5073E-01_JPRB,1.8486E-01_JPRB,1.4281E-01_JPRB,1.4075E-01_JPRB,1.4376E-01_JPRB/)
+KAO( :, 4, 2, 8) = (/&
+&4.9623E-01_JPRB,4.7200E-01_JPRB,4.4361E-01_JPRB,4.0869E-01_JPRB,3.6716E-01_JPRB,3.2094E-01_JPRB,&
+&2.6503E-01_JPRB,2.0038E-01_JPRB,1.6450E-01_JPRB,1.6447E-01_JPRB,1.6812E-01_JPRB/)
+KAO( :, 5, 2, 8) = (/&
+&4.9443E-01_JPRB,4.7565E-01_JPRB,4.5245E-01_JPRB,4.1884E-01_JPRB,3.7991E-01_JPRB,3.3502E-01_JPRB,&
+&2.7893E-01_JPRB,2.1726E-01_JPRB,1.8823E-01_JPRB,1.8992E-01_JPRB,1.9426E-01_JPRB/)
+KAO( :, 1, 3, 8) = (/&
+&5.0316E-01_JPRB,4.6054E-01_JPRB,4.1948E-01_JPRB,3.7358E-01_JPRB,3.2537E-01_JPRB,2.7199E-01_JPRB,&
+&2.1201E-01_JPRB,1.4405E-01_JPRB,9.1061E-02_JPRB,7.8216E-02_JPRB,7.8431E-02_JPRB/)
+KAO( :, 2, 3, 8) = (/&
+&5.0250E-01_JPRB,4.6508E-01_JPRB,4.2753E-01_JPRB,3.8448E-01_JPRB,3.3743E-01_JPRB,2.8477E-01_JPRB,&
+&2.2471E-01_JPRB,1.5690E-01_JPRB,1.0463E-01_JPRB,9.5297E-02_JPRB,9.5775E-02_JPRB/)
+KAO( :, 3, 3, 8) = (/&
+&5.0156E-01_JPRB,4.7034E-01_JPRB,4.3587E-01_JPRB,3.9592E-01_JPRB,3.4938E-01_JPRB,2.9738E-01_JPRB,&
+&2.3781E-01_JPRB,1.6990E-01_JPRB,1.2021E-01_JPRB,1.1406E-01_JPRB,1.1481E-01_JPRB/)
+KAO( :, 4, 3, 8) = (/&
+&5.0040E-01_JPRB,4.7526E-01_JPRB,4.4463E-01_JPRB,4.0641E-01_JPRB,3.6112E-01_JPRB,3.1063E-01_JPRB,&
+&2.5089E-01_JPRB,1.8361E-01_JPRB,1.3795E-01_JPRB,1.3453E-01_JPRB,1.3558E-01_JPRB/)
+KAO( :, 5, 3, 8) = (/&
+&4.9904E-01_JPRB,4.7934E-01_JPRB,4.5345E-01_JPRB,4.1619E-01_JPRB,3.7327E-01_JPRB,3.2376E-01_JPRB,&
+&2.6376E-01_JPRB,1.9847E-01_JPRB,1.5778E-01_JPRB,1.5659E-01_JPRB,1.5798E-01_JPRB/)
+KAO( :, 1, 4, 8) = (/&
+&4.9806E-01_JPRB,4.5577E-01_JPRB,4.1390E-01_JPRB,3.6716E-01_JPRB,3.1756E-01_JPRB,2.6347E-01_JPRB,&
+&2.0234E-01_JPRB,1.3271E-01_JPRB,7.8950E-02_JPRB,6.0980E-02_JPRB,6.0379E-02_JPRB/)
+KAO( :, 2, 4, 8) = (/&
+&4.9826E-01_JPRB,4.6101E-01_JPRB,4.2242E-01_JPRB,3.7800E-01_JPRB,3.3007E-01_JPRB,2.7585E-01_JPRB,&
+&2.1397E-01_JPRB,1.4413E-01_JPRB,8.9794E-02_JPRB,7.4947E-02_JPRB,7.4639E-02_JPRB/)
+KAO( :, 3, 4, 8) = (/&
+&4.9811E-01_JPRB,4.6681E-01_JPRB,4.3096E-01_JPRB,3.8962E-01_JPRB,3.4219E-01_JPRB,2.8784E-01_JPRB,&
+&2.2620E-01_JPRB,1.5584E-01_JPRB,1.0227E-01_JPRB,9.0609E-02_JPRB,9.0488E-02_JPRB/)
+KAO( :, 4, 4, 8) = (/&
+&4.9746E-01_JPRB,4.7213E-01_JPRB,4.3992E-01_JPRB,4.0060E-01_JPRB,3.5359E-01_JPRB,3.0001E-01_JPRB,&
+&2.3826E-01_JPRB,1.6835E-01_JPRB,1.1655E-01_JPRB,1.0791E-01_JPRB,1.0795E-01_JPRB/)
+KAO( :, 5, 4, 8) = (/&
+&4.9635E-01_JPRB,4.7672E-01_JPRB,4.4914E-01_JPRB,4.1061E-01_JPRB,3.6511E-01_JPRB,3.1218E-01_JPRB,&
+&2.5028E-01_JPRB,1.8187E-01_JPRB,1.3226E-01_JPRB,1.2654E-01_JPRB,1.2673E-01_JPRB/)
+KAO( :, 1, 5, 8) = (/&
+&4.8638E-01_JPRB,4.4445E-01_JPRB,4.0240E-01_JPRB,3.5595E-01_JPRB,3.0624E-01_JPRB,2.5236E-01_JPRB,&
+&1.9246E-01_JPRB,1.2312E-01_JPRB,6.9001E-02_JPRB,4.7715E-02_JPRB,4.6683E-02_JPRB/)
+KAO( :, 2, 5, 8) = (/&
+&4.8710E-01_JPRB,4.5014E-01_JPRB,4.1145E-01_JPRB,3.6700E-01_JPRB,3.1862E-01_JPRB,2.6463E-01_JPRB,&
+&2.0376E-01_JPRB,1.3331E-01_JPRB,7.8352E-02_JPRB,5.8722E-02_JPRB,5.8068E-02_JPRB/)
+KAO( :, 3, 5, 8) = (/&
+&4.8733E-01_JPRB,4.5646E-01_JPRB,4.2038E-01_JPRB,3.7871E-01_JPRB,3.3086E-01_JPRB,2.7657E-01_JPRB,&
+&2.1509E-01_JPRB,1.4382E-01_JPRB,8.8703E-02_JPRB,7.1451E-02_JPRB,7.1075E-02_JPRB/)
+KAO( :, 4, 5, 8) = (/&
+&4.8688E-01_JPRB,4.6221E-01_JPRB,4.2956E-01_JPRB,3.8977E-01_JPRB,3.4249E-01_JPRB,2.8843E-01_JPRB,&
+&2.2638E-01_JPRB,1.5517E-01_JPRB,1.0010E-01_JPRB,8.5586E-02_JPRB,8.5398E-02_JPRB/)
+KAO( :, 5, 5, 8) = (/&
+&4.8605E-01_JPRB,4.6725E-01_JPRB,4.3887E-01_JPRB,4.0002E-01_JPRB,3.5369E-01_JPRB,3.0008E-01_JPRB,&
+&2.3780E-01_JPRB,1.6738E-01_JPRB,1.1249E-01_JPRB,1.0093E-01_JPRB,1.0091E-01_JPRB/)
+KAO( :, 1, 6, 8) = (/&
+&4.6671E-01_JPRB,4.2600E-01_JPRB,3.8466E-01_JPRB,3.3926E-01_JPRB,2.9061E-01_JPRB,2.3768E-01_JPRB,&
+&1.7963E-01_JPRB,1.1420E-01_JPRB,6.0552E-02_JPRB,3.7850E-02_JPRB,4.1921E-02_JPRB/)
+KAO( :, 2, 6, 8) = (/&
+&4.6803E-01_JPRB,4.3203E-01_JPRB,3.9392E-01_JPRB,3.5053E-01_JPRB,3.0269E-01_JPRB,2.4962E-01_JPRB,&
+&1.9077E-01_JPRB,1.2351E-01_JPRB,6.8512E-02_JPRB,4.6284E-02_JPRB,5.0049E-02_JPRB/)
+KAO( :, 3, 6, 8) = (/&
+&4.6842E-01_JPRB,4.3840E-01_JPRB,4.0304E-01_JPRB,3.6198E-01_JPRB,3.1472E-01_JPRB,2.6142E-01_JPRB,&
+&2.0201E-01_JPRB,1.3304E-01_JPRB,7.7462E-02_JPRB,5.6089E-02_JPRB,5.9440E-02_JPRB/)
+KAO( :, 4, 6, 8) = (/&
+&4.6834E-01_JPRB,4.4438E-01_JPRB,4.1233E-01_JPRB,3.7291E-01_JPRB,3.2609E-01_JPRB,2.7299E-01_JPRB,&
+&2.1298E-01_JPRB,1.4322E-01_JPRB,8.7054E-02_JPRB,6.7233E-02_JPRB,7.0024E-02_JPRB/)
+KAO( :, 5, 6, 8) = (/&
+&4.6792E-01_JPRB,4.4990E-01_JPRB,4.2136E-01_JPRB,3.8305E-01_JPRB,3.3708E-01_JPRB,2.8431E-01_JPRB,&
+&2.2411E-01_JPRB,1.5430E-01_JPRB,9.7088E-02_JPRB,7.9618E-02_JPRB,8.1792E-02_JPRB/)
+KAO( :, 1, 7, 8) = (/&
+&4.3699E-01_JPRB,3.9837E-01_JPRB,3.5896E-01_JPRB,3.1590E-01_JPRB,2.6958E-01_JPRB,2.1919E-01_JPRB,&
+&1.6418E-01_JPRB,1.0344E-01_JPRB,5.3382E-02_JPRB,3.0831E-02_JPRB,4.2953E-02_JPRB/)
+KAO( :, 2, 7, 8) = (/&
+&4.3843E-01_JPRB,4.0448E-01_JPRB,3.6812E-01_JPRB,3.2701E-01_JPRB,2.8124E-01_JPRB,2.3050E-01_JPRB,&
+&1.7482E-01_JPRB,1.1234E-01_JPRB,6.0200E-02_JPRB,3.7229E-02_JPRB,5.0680E-02_JPRB/)
+KAO( :, 3, 7, 8) = (/&
+&4.3919E-01_JPRB,4.1086E-01_JPRB,3.7731E-01_JPRB,3.3799E-01_JPRB,2.9265E-01_JPRB,2.4169E-01_JPRB,&
+&1.8565E-01_JPRB,1.2131E-01_JPRB,6.7916E-02_JPRB,4.4736E-02_JPRB,5.9303E-02_JPRB/)
+KAO( :, 4, 7, 8) = (/&
+&4.3964E-01_JPRB,4.1709E-01_JPRB,3.8642E-01_JPRB,3.4844E-01_JPRB,3.0343E-01_JPRB,2.5289E-01_JPRB,&
+&1.9633E-01_JPRB,1.3094E-01_JPRB,7.6222E-02_JPRB,5.3326E-02_JPRB,6.8509E-02_JPRB/)
+KAO( :, 5, 7, 8) = (/&
+&4.3947E-01_JPRB,4.2288E-01_JPRB,3.9537E-01_JPRB,3.5832E-01_JPRB,3.1399E-01_JPRB,2.6369E-01_JPRB,&
+&2.0720E-01_JPRB,1.4134E-01_JPRB,8.4840E-02_JPRB,6.3000E-02_JPRB,7.8182E-02_JPRB/)
+KAO( :, 1, 8, 8) = (/&
+&4.0095E-01_JPRB,3.6508E-01_JPRB,3.2839E-01_JPRB,2.8828E-01_JPRB,2.4526E-01_JPRB,1.9846E-01_JPRB,&
+&1.4746E-01_JPRB,9.1777E-02_JPRB,4.6862E-02_JPRB,2.5767E-02_JPRB,4.9298E-02_JPRB/)
+KAO( :, 2, 8, 8) = (/&
+&4.0247E-01_JPRB,3.7108E-01_JPRB,3.3718E-01_JPRB,2.9895E-01_JPRB,2.5608E-01_JPRB,2.0883E-01_JPRB,&
+&1.5736E-01_JPRB,1.0019E-01_JPRB,5.2944E-02_JPRB,3.0729E-02_JPRB,5.6721E-02_JPRB/)
+KAO( :, 3, 8, 8) = (/&
+&4.0379E-01_JPRB,3.7769E-01_JPRB,3.4624E-01_JPRB,3.0913E-01_JPRB,2.6652E-01_JPRB,2.1917E-01_JPRB,&
+&1.6744E-01_JPRB,1.0879E-01_JPRB,5.9618E-02_JPRB,3.6479E-02_JPRB,6.5019E-02_JPRB/)
+KAO( :, 4, 8, 8) = (/&
+&4.0440E-01_JPRB,3.8393E-01_JPRB,3.5518E-01_JPRB,3.1911E-01_JPRB,2.7671E-01_JPRB,2.2954E-01_JPRB,&
+&1.7755E-01_JPRB,1.1776E-01_JPRB,6.6811E-02_JPRB,4.3078E-02_JPRB,7.4113E-02_JPRB/)
+KAO( :, 5, 8, 8) = (/&
+&4.0446E-01_JPRB,3.8965E-01_JPRB,3.6366E-01_JPRB,3.2844E-01_JPRB,2.8667E-01_JPRB,2.3995E-01_JPRB,&
+&1.8784E-01_JPRB,1.2743E-01_JPRB,7.4347E-02_JPRB,5.0583E-02_JPRB,8.3692E-02_JPRB/)
+KAO( :, 1, 9, 8) = (/&
+&3.6220E-01_JPRB,3.2943E-01_JPRB,2.9565E-01_JPRB,2.5888E-01_JPRB,2.1956E-01_JPRB,1.7688E-01_JPRB,&
+&1.3053E-01_JPRB,8.0073E-02_JPRB,4.0469E-02_JPRB,2.1839E-02_JPRB,9.4199E-02_JPRB/)
+KAO( :, 2, 9, 8) = (/&
+&3.6411E-01_JPRB,3.3547E-01_JPRB,3.0414E-01_JPRB,2.6872E-01_JPRB,2.2935E-01_JPRB,1.8612E-01_JPRB,&
+&1.3939E-01_JPRB,8.7821E-02_JPRB,4.5931E-02_JPRB,2.5820E-02_JPRB,1.0332E-01_JPRB/)
+KAO( :, 3, 9, 8) = (/&
+&3.6566E-01_JPRB,3.4191E-01_JPRB,3.1284E-01_JPRB,2.7831E-01_JPRB,2.3893E-01_JPRB,1.9553E-01_JPRB,&
+&1.4849E-01_JPRB,9.5850E-02_JPRB,5.1870E-02_JPRB,3.0419E-02_JPRB,1.1365E-01_JPRB/)
+KAO( :, 4, 9, 8) = (/&
+&3.6634E-01_JPRB,3.4783E-01_JPRB,3.2112E-01_JPRB,2.8747E-01_JPRB,2.4838E-01_JPRB,2.0518E-01_JPRB,&
+&1.5786E-01_JPRB,1.0419E-01_JPRB,5.8269E-02_JPRB,3.5620E-02_JPRB,1.2479E-01_JPRB/)
+KAO( :, 5, 9, 8) = (/&
+&3.6687E-01_JPRB,3.5352E-01_JPRB,3.2900E-01_JPRB,2.9611E-01_JPRB,2.5769E-01_JPRB,2.1498E-01_JPRB,&
+&1.6749E-01_JPRB,1.1307E-01_JPRB,6.4929E-02_JPRB,4.1475E-02_JPRB,1.3690E-01_JPRB/)
+KAO( :, 1,10, 8) = (/&
+&3.2199E-01_JPRB,2.9278E-01_JPRB,2.6222E-01_JPRB,2.2905E-01_JPRB,1.9373E-01_JPRB,1.5558E-01_JPRB,&
+&1.1424E-01_JPRB,6.9413E-02_JPRB,3.4798E-02_JPRB,1.8896E-02_JPRB,2.8335E-01_JPRB/)
+KAO( :, 2,10, 8) = (/&
+&3.2419E-01_JPRB,2.9882E-01_JPRB,2.7031E-01_JPRB,2.3822E-01_JPRB,2.0265E-01_JPRB,1.6381E-01_JPRB,&
+&1.2203E-01_JPRB,7.6200E-02_JPRB,3.9653E-02_JPRB,2.2203E-02_JPRB,3.0010E-01_JPRB/)
+KAO( :, 3,10, 8) = (/&
+&3.2557E-01_JPRB,3.0468E-01_JPRB,2.7841E-01_JPRB,2.4694E-01_JPRB,2.1134E-01_JPRB,1.7240E-01_JPRB,&
+&1.3024E-01_JPRB,8.3423E-02_JPRB,4.4862E-02_JPRB,2.6006E-02_JPRB,3.2041E-01_JPRB/)
+KAO( :, 4,10, 8) = (/&
+&3.2676E-01_JPRB,3.1040E-01_JPRB,2.8596E-01_JPRB,2.5507E-01_JPRB,2.1988E-01_JPRB,1.8121E-01_JPRB,&
+&1.3879E-01_JPRB,9.0984E-02_JPRB,5.0519E-02_JPRB,3.0296E-02_JPRB,3.4283E-01_JPRB/)
+KAO( :, 5,10, 8) = (/&
+&3.2756E-01_JPRB,3.1604E-01_JPRB,2.9325E-01_JPRB,2.6321E-01_JPRB,2.2857E-01_JPRB,1.9016E-01_JPRB,&
+&1.4762E-01_JPRB,9.9000E-02_JPRB,5.6488E-02_JPRB,3.5105E-02_JPRB,3.6677E-01_JPRB/)
+KAO( :, 1,11, 8) = (/&
+&2.8411E-01_JPRB,2.5988E-01_JPRB,2.3321E-01_JPRB,2.0412E-01_JPRB,1.7249E-01_JPRB,1.3838E-01_JPRB,&
+&1.0172E-01_JPRB,6.2178E-02_JPRB,3.1646E-02_JPRB,1.7506E-02_JPRB,3.9917E-01_JPRB/)
+KAO( :, 2,11, 8) = (/&
+&2.8582E-01_JPRB,2.6534E-01_JPRB,2.4057E-01_JPRB,2.1213E-01_JPRB,1.8034E-01_JPRB,1.4593E-01_JPRB,&
+&1.0888E-01_JPRB,6.8210E-02_JPRB,3.6011E-02_JPRB,2.0567E-02_JPRB,4.2270E-01_JPRB/)
+KAO( :, 3,11, 8) = (/&
+&2.8739E-01_JPRB,2.7084E-01_JPRB,2.4780E-01_JPRB,2.1959E-01_JPRB,1.8803E-01_JPRB,1.5372E-01_JPRB,&
+&1.1636E-01_JPRB,7.4695E-02_JPRB,4.0724E-02_JPRB,2.3986E-02_JPRB,4.4934E-01_JPRB/)
+KAO( :, 4,11, 8) = (/&
+&2.8878E-01_JPRB,2.7644E-01_JPRB,2.5472E-01_JPRB,2.2709E-01_JPRB,1.9597E-01_JPRB,1.6177E-01_JPRB,&
+&1.2408E-01_JPRB,8.1642E-02_JPRB,4.5765E-02_JPRB,2.7772E-02_JPRB,4.7717E-01_JPRB/)
+KAO( :, 5,11, 8) = (/&
+&2.8955E-01_JPRB,2.8144E-01_JPRB,2.6102E-01_JPRB,2.3454E-01_JPRB,2.0411E-01_JPRB,1.7002E-01_JPRB,&
+&1.3228E-01_JPRB,8.8823E-02_JPRB,5.1141E-02_JPRB,3.2010E-02_JPRB,5.0557E-01_JPRB/)
+KAO( :, 1,12, 8) = (/&
+&2.4710E-01_JPRB,2.2747E-01_JPRB,2.0446E-01_JPRB,1.7910E-01_JPRB,1.5126E-01_JPRB,1.2141E-01_JPRB,&
+&8.9466E-02_JPRB,5.4973E-02_JPRB,2.8499E-02_JPRB,1.5999E-02_JPRB,4.2800E-01_JPRB/)
+KAO( :, 2,12, 8) = (/&
+&2.4901E-01_JPRB,2.3258E-01_JPRB,2.1111E-01_JPRB,1.8597E-01_JPRB,1.5805E-01_JPRB,1.2818E-01_JPRB,&
+&9.5808E-02_JPRB,6.0321E-02_JPRB,3.2343E-02_JPRB,1.8809E-02_JPRB,4.5340E-01_JPRB/)
+KAO( :, 3,12, 8) = (/&
+&2.5080E-01_JPRB,2.3792E-01_JPRB,2.1766E-01_JPRB,1.9271E-01_JPRB,1.6525E-01_JPRB,1.3521E-01_JPRB,&
+&1.0253E-01_JPRB,6.6046E-02_JPRB,3.6536E-02_JPRB,2.1931E-02_JPRB,4.7921E-01_JPRB/)
+KAO( :, 4,12, 8) = (/&
+&2.5204E-01_JPRB,2.4277E-01_JPRB,2.2355E-01_JPRB,1.9948E-01_JPRB,1.7252E-01_JPRB,1.4258E-01_JPRB,&
+&1.0952E-01_JPRB,7.2180E-02_JPRB,4.1025E-02_JPRB,2.5368E-02_JPRB,5.0641E-01_JPRB/)
+KAO( :, 5,12, 8) = (/&
+&2.5346E-01_JPRB,2.4761E-01_JPRB,2.2936E-01_JPRB,2.0632E-01_JPRB,1.7985E-01_JPRB,1.5006E-01_JPRB,&
+&1.1690E-01_JPRB,7.8517E-02_JPRB,4.5825E-02_JPRB,2.9158E-02_JPRB,5.3542E-01_JPRB/)
+KAO( :, 1,13, 8) = (/&
+&2.1104E-01_JPRB,1.9539E-01_JPRB,1.7591E-01_JPRB,1.5396E-01_JPRB,1.2999E-01_JPRB,1.0448E-01_JPRB,&
+&7.7298E-02_JPRB,4.7962E-02_JPRB,2.5275E-02_JPRB,1.4360E-02_JPRB,3.6245E-01_JPRB/)
+KAO( :, 2,13, 8) = (/&
+&2.1306E-01_JPRB,2.0027E-01_JPRB,1.8186E-01_JPRB,1.6010E-01_JPRB,1.3622E-01_JPRB,1.1063E-01_JPRB,&
+&8.2888E-02_JPRB,5.2545E-02_JPRB,2.8685E-02_JPRB,1.6930E-02_JPRB,3.8275E-01_JPRB/)
+KAO( :, 3,13, 8) = (/&
+&2.1469E-01_JPRB,2.0496E-01_JPRB,1.8742E-01_JPRB,1.6612E-01_JPRB,1.4267E-01_JPRB,1.1693E-01_JPRB,&
+&8.8832E-02_JPRB,5.7525E-02_JPRB,3.2378E-02_JPRB,1.9762E-02_JPRB,4.0424E-01_JPRB/)
+KAO( :, 4,13, 8) = (/&
+&2.1644E-01_JPRB,2.0961E-01_JPRB,1.9285E-01_JPRB,1.7222E-01_JPRB,1.4919E-01_JPRB,1.2339E-01_JPRB,&
+&9.4996E-02_JPRB,6.2832E-02_JPRB,3.6346E-02_JPRB,2.2885E-02_JPRB,4.2761E-01_JPRB/)
+KAO( :, 5,13, 8) = (/&
+&2.1812E-01_JPRB,2.1428E-01_JPRB,1.9853E-01_JPRB,1.7877E-01_JPRB,1.5586E-01_JPRB,1.3014E-01_JPRB,&
+&1.0138E-01_JPRB,6.8371E-02_JPRB,4.0590E-02_JPRB,2.6305E-02_JPRB,4.5224E-01_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB9_A1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_A2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_A2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_A2.F90	(revision 2160)
@@ -0,0 +1,1604 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB9_A2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, ABSN2OO
+USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 11, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 9) = (/&
+&9.5159E-01_JPRB,8.6193E-01_JPRB,7.8445E-01_JPRB,7.0786E-01_JPRB,6.2475E-01_JPRB,5.4735E-01_JPRB,&
+&4.7357E-01_JPRB,4.3191E-01_JPRB,4.5105E-01_JPRB,4.6500E-01_JPRB,4.7768E-01_JPRB/)
+KAO( :, 2, 1, 9) = (/&
+&9.4610E-01_JPRB,8.6636E-01_JPRB,7.9453E-01_JPRB,7.2334E-01_JPRB,6.4819E-01_JPRB,5.8098E-01_JPRB,&
+&5.1867E-01_JPRB,5.0225E-01_JPRB,5.3434E-01_JPRB,5.5100E-01_JPRB,5.6593E-01_JPRB/)
+KAO( :, 3, 1, 9) = (/&
+&9.4063E-01_JPRB,8.6755E-01_JPRB,8.0500E-01_JPRB,7.3756E-01_JPRB,6.7496E-01_JPRB,6.1686E-01_JPRB,&
+&5.7144E-01_JPRB,5.7997E-01_JPRB,6.2451E-01_JPRB,6.4411E-01_JPRB,6.6119E-01_JPRB/)
+KAO( :, 4, 1, 9) = (/&
+&9.3410E-01_JPRB,8.6712E-01_JPRB,8.1423E-01_JPRB,7.5391E-01_JPRB,7.0437E-01_JPRB,6.5593E-01_JPRB,&
+&6.3263E-01_JPRB,6.6511E-01_JPRB,7.2065E-01_JPRB,7.4338E-01_JPRB,7.6295E-01_JPRB/)
+KAO( :, 5, 1, 9) = (/&
+&9.2639E-01_JPRB,8.6753E-01_JPRB,8.2122E-01_JPRB,7.7366E-01_JPRB,7.3498E-01_JPRB,7.0006E-01_JPRB,&
+&7.0131E-01_JPRB,7.5726E-01_JPRB,8.2266E-01_JPRB,8.4882E-01_JPRB,8.7078E-01_JPRB/)
+KAO( :, 1, 2, 9) = (/&
+&9.9571E-01_JPRB,8.9920E-01_JPRB,8.1614E-01_JPRB,7.3263E-01_JPRB,6.4026E-01_JPRB,5.4806E-01_JPRB,&
+&4.6027E-01_JPRB,3.9041E-01_JPRB,3.9261E-01_JPRB,4.0467E-01_JPRB,4.1298E-01_JPRB/)
+KAO( :, 2, 2, 9) = (/&
+&9.8996E-01_JPRB,9.0283E-01_JPRB,8.2671E-01_JPRB,7.4790E-01_JPRB,6.6191E-01_JPRB,5.7890E-01_JPRB,&
+&4.9929E-01_JPRB,4.5184E-01_JPRB,4.6916E-01_JPRB,4.8383E-01_JPRB,4.9391E-01_JPRB/)
+KAO( :, 3, 2, 9) = (/&
+&9.8376E-01_JPRB,9.0392E-01_JPRB,8.3729E-01_JPRB,7.6239E-01_JPRB,6.8599E-01_JPRB,6.1186E-01_JPRB,&
+&5.4354E-01_JPRB,5.2118E-01_JPRB,5.5194E-01_JPRB,5.6942E-01_JPRB,5.8138E-01_JPRB/)
+KAO( :, 4, 2, 9) = (/&
+&9.7691E-01_JPRB,9.0424E-01_JPRB,8.4680E-01_JPRB,7.7835E-01_JPRB,7.1309E-01_JPRB,6.4690E-01_JPRB,&
+&5.9506E-01_JPRB,5.9772E-01_JPRB,6.4088E-01_JPRB,6.6141E-01_JPRB,6.7534E-01_JPRB/)
+KAO( :, 5, 2, 9) = (/&
+&9.6899E-01_JPRB,9.0591E-01_JPRB,8.5458E-01_JPRB,7.9701E-01_JPRB,7.4146E-01_JPRB,6.8466E-01_JPRB,&
+&6.5376E-01_JPRB,6.8054E-01_JPRB,7.3475E-01_JPRB,7.5849E-01_JPRB,7.7486E-01_JPRB/)
+KAO( :, 1, 3, 9) = (/&
+&1.0405E+00_JPRB,9.3488E-01_JPRB,8.4463E-01_JPRB,7.5330E-01_JPRB,6.5244E-01_JPRB,5.4916E-01_JPRB,&
+&4.4520E-01_JPRB,3.4870E-01_JPRB,3.2584E-01_JPRB,3.3543E-01_JPRB,3.3962E-01_JPRB/)
+KAO( :, 2, 3, 9) = (/&
+&1.0349E+00_JPRB,9.3892E-01_JPRB,8.5534E-01_JPRB,7.6913E-01_JPRB,6.7395E-01_JPRB,5.7625E-01_JPRB,&
+&4.7914E-01_JPRB,3.9837E-01_JPRB,3.9325E-01_JPRB,4.0529E-01_JPRB,4.1035E-01_JPRB/)
+KAO( :, 3, 3, 9) = (/&
+&1.0286E+00_JPRB,9.4087E-01_JPRB,8.6735E-01_JPRB,7.8384E-01_JPRB,6.9647E-01_JPRB,6.0649E-01_JPRB,&
+&5.1617E-01_JPRB,4.5626E-01_JPRB,4.6701E-01_JPRB,4.8157E-01_JPRB,4.8769E-01_JPRB/)
+KAO( :, 4, 3, 9) = (/&
+&1.0216E+00_JPRB,9.4194E-01_JPRB,8.7769E-01_JPRB,8.0047E-01_JPRB,7.2103E-01_JPRB,6.3769E-01_JPRB,&
+&5.5844E-01_JPRB,5.2182E-01_JPRB,5.4652E-01_JPRB,5.6383E-01_JPRB,5.7106E-01_JPRB/)
+KAO( :, 5, 3, 9) = (/&
+&1.0137E+00_JPRB,9.4403E-01_JPRB,8.8589E-01_JPRB,8.1893E-01_JPRB,7.4713E-01_JPRB,6.7001E-01_JPRB,&
+&6.0589E-01_JPRB,5.9289E-01_JPRB,6.3020E-01_JPRB,6.5037E-01_JPRB,6.5878E-01_JPRB/)
+KAO( :, 1, 4, 9) = (/&
+&1.0880E+00_JPRB,9.7313E-01_JPRB,8.7384E-01_JPRB,7.7222E-01_JPRB,6.6520E-01_JPRB,5.5149E-01_JPRB,&
+&4.3468E-01_JPRB,3.1551E-01_JPRB,2.6473E-01_JPRB,2.7010E-01_JPRB,2.7211E-01_JPRB/)
+KAO( :, 2, 4, 9) = (/&
+&1.0823E+00_JPRB,9.7690E-01_JPRB,8.8415E-01_JPRB,7.9011E-01_JPRB,6.8589E-01_JPRB,5.7725E-01_JPRB,&
+&4.6480E-01_JPRB,3.5528E-01_JPRB,3.2290E-01_JPRB,3.3154E-01_JPRB,3.3402E-01_JPRB/)
+KAO( :, 3, 4, 9) = (/&
+&1.0759E+00_JPRB,9.7896E-01_JPRB,8.9677E-01_JPRB,8.0590E-01_JPRB,7.0747E-01_JPRB,6.0512E-01_JPRB,&
+&4.9649E-01_JPRB,4.0248E-01_JPRB,3.8741E-01_JPRB,3.9884E-01_JPRB,4.0190E-01_JPRB/)
+KAO( :, 4, 4, 9) = (/&
+&1.0687E+00_JPRB,9.8058E-01_JPRB,9.0886E-01_JPRB,8.2235E-01_JPRB,7.3113E-01_JPRB,6.3357E-01_JPRB,&
+&5.3180E-01_JPRB,4.5630E-01_JPRB,4.5720E-01_JPRB,4.7127E-01_JPRB,4.7487E-01_JPRB/)
+KAO( :, 5, 4, 9) = (/&
+&1.0611E+00_JPRB,9.8340E-01_JPRB,9.1796E-01_JPRB,8.4063E-01_JPRB,7.5604E-01_JPRB,6.6259E-01_JPRB,&
+&5.7101E-01_JPRB,5.1566E-01_JPRB,5.3169E-01_JPRB,5.4837E-01_JPRB,5.5265E-01_JPRB/)
+KAO( :, 1, 5, 9) = (/&
+&1.1353E+00_JPRB,1.0122E+00_JPRB,9.0436E-01_JPRB,7.9314E-01_JPRB,6.7788E-01_JPRB,5.5661E-01_JPRB,&
+&4.2870E-01_JPRB,2.9193E-01_JPRB,2.1579E-01_JPRB,2.1412E-01_JPRB,2.1527E-01_JPRB/)
+KAO( :, 2, 5, 9) = (/&
+&1.1302E+00_JPRB,1.0164E+00_JPRB,9.1463E-01_JPRB,8.1125E-01_JPRB,6.9965E-01_JPRB,5.8117E-01_JPRB,&
+&4.5601E-01_JPRB,3.2431E-01_JPRB,2.6337E-01_JPRB,2.6679E-01_JPRB,2.6824E-01_JPRB/)
+KAO( :, 3, 5, 9) = (/&
+&1.1241E+00_JPRB,1.0191E+00_JPRB,9.2734E-01_JPRB,8.2845E-01_JPRB,7.2101E-01_JPRB,6.0737E-01_JPRB,&
+&4.8451E-01_JPRB,3.6228E-01_JPRB,3.1806E-01_JPRB,3.2529E-01_JPRB,3.2713E-01_JPRB/)
+KAO( :, 4, 5, 9) = (/&
+&1.1173E+00_JPRB,1.0209E+00_JPRB,9.4019E-01_JPRB,8.4617E-01_JPRB,7.4384E-01_JPRB,6.3435E-01_JPRB,&
+&5.1515E-01_JPRB,4.0564E-01_JPRB,3.7849E-01_JPRB,3.8902E-01_JPRB,3.9122E-01_JPRB/)
+KAO( :, 5, 5, 9) = (/&
+&1.1101E+00_JPRB,1.0243E+00_JPRB,9.5096E-01_JPRB,8.6410E-01_JPRB,7.6849E-01_JPRB,6.6158E-01_JPRB,&
+&5.4858E-01_JPRB,4.5511E-01_JPRB,4.4484E-01_JPRB,4.5817E-01_JPRB,4.6081E-01_JPRB/)
+KAO( :, 1, 6, 9) = (/&
+&1.1806E+00_JPRB,1.0498E+00_JPRB,9.3337E-01_JPRB,8.1273E-01_JPRB,6.8998E-01_JPRB,5.6047E-01_JPRB,&
+&4.2456E-01_JPRB,2.7532E-01_JPRB,1.7725E-01_JPRB,1.6538E-01_JPRB,1.6672E-01_JPRB/)
+KAO( :, 2, 6, 9) = (/&
+&1.1761E+00_JPRB,1.0541E+00_JPRB,9.4371E-01_JPRB,8.3128E-01_JPRB,7.1158E-01_JPRB,5.8532E-01_JPRB,&
+&4.4996E-01_JPRB,3.0144E-01_JPRB,2.1482E-01_JPRB,2.0943E-01_JPRB,2.1089E-01_JPRB/)
+KAO( :, 3, 6, 9) = (/&
+&1.1706E+00_JPRB,1.0579E+00_JPRB,9.5635E-01_JPRB,8.4936E-01_JPRB,7.3343E-01_JPRB,6.1037E-01_JPRB,&
+&4.7682E-01_JPRB,3.3219E-01_JPRB,2.5890E-01_JPRB,2.5930E-01_JPRB,2.6088E-01_JPRB/)
+KAO( :, 4, 6, 9) = (/&
+&1.1647E+00_JPRB,1.0607E+00_JPRB,9.7013E-01_JPRB,8.6759E-01_JPRB,7.5661E-01_JPRB,6.3681E-01_JPRB,&
+&5.0490E-01_JPRB,3.6744E-01_JPRB,3.0939E-01_JPRB,3.1452E-01_JPRB,3.1634E-01_JPRB/)
+KAO( :, 5, 6, 9) = (/&
+&1.1580E+00_JPRB,1.0646E+00_JPRB,9.8251E-01_JPRB,8.8607E-01_JPRB,7.8101E-01_JPRB,6.6342E-01_JPRB,&
+&5.3428E-01_JPRB,4.0750E-01_JPRB,3.6653E-01_JPRB,3.7539E-01_JPRB,3.7760E-01_JPRB/)
+KAO( :, 1, 7, 9) = (/&
+&1.2136E+00_JPRB,1.0774E+00_JPRB,9.5377E-01_JPRB,8.2536E-01_JPRB,6.9593E-01_JPRB,5.6078E-01_JPRB,&
+&4.1863E-01_JPRB,2.6313E-01_JPRB,1.4935E-01_JPRB,1.2578E-01_JPRB,1.4257E-01_JPRB/)
+KAO( :, 2, 7, 9) = (/&
+&1.2100E+00_JPRB,1.0820E+00_JPRB,9.6432E-01_JPRB,8.4363E-01_JPRB,7.1756E-01_JPRB,5.8508E-01_JPRB,&
+&4.4339E-01_JPRB,2.8645E-01_JPRB,1.7844E-01_JPRB,1.6196E-01_JPRB,1.7527E-01_JPRB/)
+KAO( :, 3, 7, 9) = (/&
+&1.2053E+00_JPRB,1.0866E+00_JPRB,9.7664E-01_JPRB,8.6237E-01_JPRB,7.3986E-01_JPRB,6.1018E-01_JPRB,&
+&4.6912E-01_JPRB,3.1223E-01_JPRB,2.1332E-01_JPRB,2.0363E-01_JPRB,2.1371E-01_JPRB/)
+KAO( :, 4, 7, 9) = (/&
+&1.1998E+00_JPRB,1.0903E+00_JPRB,9.9072E-01_JPRB,8.8131E-01_JPRB,7.6315E-01_JPRB,6.3674E-01_JPRB,&
+&4.9590E-01_JPRB,3.4090E-01_JPRB,2.5438E-01_JPRB,2.5086E-01_JPRB,2.5825E-01_JPRB/)
+KAO( :, 5, 7, 9) = (/&
+&1.1932E+00_JPRB,1.0942E+00_JPRB,1.0040E+00_JPRB,9.0033E-01_JPRB,7.8781E-01_JPRB,6.6359E-01_JPRB,&
+&5.2347E-01_JPRB,3.7392E-01_JPRB,3.0186E-01_JPRB,3.0359E-01_JPRB,3.0908E-01_JPRB/)
+KAO( :, 1, 8, 9) = (/&
+&1.2316E+00_JPRB,1.0924E+00_JPRB,9.6349E-01_JPRB,8.3019E-01_JPRB,6.9548E-01_JPRB,5.5575E-01_JPRB,&
+&4.1003E-01_JPRB,2.5191E-01_JPRB,1.3039E-01_JPRB,9.5856E-02_JPRB,1.7533E-01_JPRB/)
+KAO( :, 2, 8, 9) = (/&
+&1.2282E+00_JPRB,1.0969E+00_JPRB,9.7419E-01_JPRB,8.4770E-01_JPRB,7.1665E-01_JPRB,5.7977E-01_JPRB,&
+&4.3430E-01_JPRB,2.7347E-01_JPRB,1.5278E-01_JPRB,1.2456E-01_JPRB,2.0121E-01_JPRB/)
+KAO( :, 3, 8, 9) = (/&
+&1.2234E+00_JPRB,1.1017E+00_JPRB,9.8619E-01_JPRB,8.6635E-01_JPRB,7.3926E-01_JPRB,6.0504E-01_JPRB,&
+&4.5959E-01_JPRB,2.9702E-01_JPRB,1.8008E-01_JPRB,1.5872E-01_JPRB,2.2963E-01_JPRB/)
+KAO( :, 4, 8, 9) = (/&
+&1.2179E+00_JPRB,1.1058E+00_JPRB,1.0001E+00_JPRB,8.8559E-01_JPRB,7.6296E-01_JPRB,6.3135E-01_JPRB,&
+&4.8567E-01_JPRB,3.2261E-01_JPRB,2.1292E-01_JPRB,1.9834E-01_JPRB,2.6180E-01_JPRB/)
+KAO( :, 5, 8, 9) = (/&
+&1.2113E+00_JPRB,1.1100E+00_JPRB,1.0138E+00_JPRB,9.0571E-01_JPRB,7.8768E-01_JPRB,6.5815E-01_JPRB,&
+&5.1266E-01_JPRB,3.5055E-01_JPRB,2.5143E-01_JPRB,2.4311E-01_JPRB,2.9921E-01_JPRB/)
+KAO( :, 1, 9, 9) = (/&
+&1.2312E+00_JPRB,1.0915E+00_JPRB,9.6019E-01_JPRB,8.2497E-01_JPRB,6.8804E-01_JPRB,5.4659E-01_JPRB,&
+&3.9889E-01_JPRB,2.4010E-01_JPRB,1.1745E-01_JPRB,7.4115E-02_JPRB,3.8570E-01_JPRB/)
+KAO( :, 2, 9, 9) = (/&
+&1.2271E+00_JPRB,1.0952E+00_JPRB,9.7062E-01_JPRB,8.4182E-01_JPRB,7.0896E-01_JPRB,5.7001E-01_JPRB,&
+&4.2261E-01_JPRB,2.6038E-01_JPRB,1.3539E-01_JPRB,9.6435E-02_JPRB,4.2073E-01_JPRB/)
+KAO( :, 3, 9, 9) = (/&
+&1.2221E+00_JPRB,1.0999E+00_JPRB,9.8223E-01_JPRB,8.6047E-01_JPRB,7.3167E-01_JPRB,5.9531E-01_JPRB,&
+&4.4692E-01_JPRB,2.8236E-01_JPRB,1.5682E-01_JPRB,1.2365E-01_JPRB,4.5798E-01_JPRB/)
+KAO( :, 4, 9, 9) = (/&
+&1.2168E+00_JPRB,1.1048E+00_JPRB,9.9655E-01_JPRB,8.8042E-01_JPRB,7.5597E-01_JPRB,6.2078E-01_JPRB,&
+&4.7224E-01_JPRB,3.0619E-01_JPRB,1.8270E-01_JPRB,1.5583E-01_JPRB,4.9794E-01_JPRB/)
+KAO( :, 5, 9, 9) = (/&
+&1.2103E+00_JPRB,1.1097E+00_JPRB,1.0110E+00_JPRB,9.0113E-01_JPRB,7.8074E-01_JPRB,6.4684E-01_JPRB,&
+&4.9870E-01_JPRB,3.3189E-01_JPRB,2.1333E-01_JPRB,1.9294E-01_JPRB,5.3980E-01_JPRB/)
+KAO( :, 1,10, 9) = (/&
+&1.2065E+00_JPRB,1.0698E+00_JPRB,9.3983E-01_JPRB,8.0628E-01_JPRB,6.7075E-01_JPRB,5.3108E-01_JPRB,&
+&3.8524E-01_JPRB,2.2846E-01_JPRB,1.0759E-01_JPRB,6.0114E-02_JPRB,1.2134E+00_JPRB/)
+KAO( :, 2,10, 9) = (/&
+&1.2021E+00_JPRB,1.0732E+00_JPRB,9.5006E-01_JPRB,8.2241E-01_JPRB,6.9118E-01_JPRB,5.5381E-01_JPRB,&
+&4.0835E-01_JPRB,2.4753E-01_JPRB,1.2339E-01_JPRB,7.7390E-02_JPRB,1.2525E+00_JPRB/)
+KAO( :, 3,10, 9) = (/&
+&1.1979E+00_JPRB,1.0788E+00_JPRB,9.6194E-01_JPRB,8.4108E-01_JPRB,7.1368E-01_JPRB,5.7871E-01_JPRB,&
+&4.3197E-01_JPRB,2.6832E-01_JPRB,1.4165E-01_JPRB,9.8913E-02_JPRB,1.2959E+00_JPRB/)
+KAO( :, 4,10, 9) = (/&
+&1.1924E+00_JPRB,1.0841E+00_JPRB,9.7645E-01_JPRB,8.6142E-01_JPRB,7.3813E-01_JPRB,6.0416E-01_JPRB,&
+&4.5629E-01_JPRB,2.9111E-01_JPRB,1.6279E-01_JPRB,1.2496E-01_JPRB,1.3457E+00_JPRB/)
+KAO( :, 5,10, 9) = (/&
+&1.1868E+00_JPRB,1.0895E+00_JPRB,9.9148E-01_JPRB,8.8237E-01_JPRB,7.6307E-01_JPRB,6.3026E-01_JPRB,&
+&4.8193E-01_JPRB,3.1564E-01_JPRB,1.8743E-01_JPRB,1.5518E-01_JPRB,1.4010E+00_JPRB/)
+KAO( :, 1,11, 9) = (/&
+&1.1602E+00_JPRB,1.0321E+00_JPRB,9.0888E-01_JPRB,7.8134E-01_JPRB,6.5183E-01_JPRB,5.1709E-01_JPRB,&
+&3.7632E-01_JPRB,2.2357E-01_JPRB,1.0454E-01_JPRB,5.6265E-02_JPRB,1.7556E+00_JPRB/)
+KAO( :, 2,11, 9) = (/&
+&1.1566E+00_JPRB,1.0373E+00_JPRB,9.1992E-01_JPRB,7.9870E-01_JPRB,6.7250E-01_JPRB,5.3982E-01_JPRB,&
+&3.9883E-01_JPRB,2.4238E-01_JPRB,1.1972E-01_JPRB,7.0995E-02_JPRB,1.7896E+00_JPRB/)
+KAO( :, 3,11, 9) = (/&
+&1.1521E+00_JPRB,1.0433E+00_JPRB,9.3315E-01_JPRB,8.1800E-01_JPRB,6.9552E-01_JPRB,5.6467E-01_JPRB,&
+&4.2241E-01_JPRB,2.6285E-01_JPRB,1.3701E-01_JPRB,8.9495E-02_JPRB,1.8345E+00_JPRB/)
+KAO( :, 4,11, 9) = (/&
+&1.1472E+00_JPRB,1.0489E+00_JPRB,9.4806E-01_JPRB,8.3843E-01_JPRB,7.1973E-01_JPRB,5.9025E-01_JPRB,&
+&4.4701E-01_JPRB,2.8499E-01_JPRB,1.5648E-01_JPRB,1.1176E-01_JPRB,1.8895E+00_JPRB/)
+KAO( :, 5,11, 9) = (/&
+&1.1436E+00_JPRB,1.0565E+00_JPRB,9.6473E-01_JPRB,8.6013E-01_JPRB,7.4475E-01_JPRB,6.1626E-01_JPRB,&
+&4.7243E-01_JPRB,3.0896E-01_JPRB,1.7805E-01_JPRB,1.3759E-01_JPRB,1.9545E+00_JPRB/)
+KAO( :, 1,12, 9) = (/&
+&1.0927E+00_JPRB,9.7589E-01_JPRB,8.6130E-01_JPRB,7.4238E-01_JPRB,6.2051E-01_JPRB,4.9305E-01_JPRB,&
+&3.5975E-01_JPRB,2.1463E-01_JPRB,1.0064E-01_JPRB,5.3171E-02_JPRB,1.9140E+00_JPRB/)
+KAO( :, 2,12, 9) = (/&
+&1.0892E+00_JPRB,9.8224E-01_JPRB,8.7322E-01_JPRB,7.6047E-01_JPRB,6.4152E-01_JPRB,5.1615E-01_JPRB,&
+&3.8192E-01_JPRB,2.3322E-01_JPRB,1.1514E-01_JPRB,6.5840E-02_JPRB,1.9498E+00_JPRB/)
+KAO( :, 3,12, 9) = (/&
+&1.0852E+00_JPRB,9.8827E-01_JPRB,8.8733E-01_JPRB,7.7978E-01_JPRB,6.6433E-01_JPRB,5.4034E-01_JPRB,&
+&4.0501E-01_JPRB,2.5357E-01_JPRB,1.3154E-01_JPRB,8.1554E-02_JPRB,2.0010E+00_JPRB/)
+KAO( :, 4,12, 9) = (/&
+&1.0828E+00_JPRB,9.9622E-01_JPRB,9.0368E-01_JPRB,8.0090E-01_JPRB,6.8832E-01_JPRB,5.6535E-01_JPRB,&
+&4.2922E-01_JPRB,2.7541E-01_JPRB,1.4957E-01_JPRB,1.0036E-01_JPRB,2.0646E+00_JPRB/)
+KAO( :, 5,12, 9) = (/&
+&1.0799E+00_JPRB,1.0059E+00_JPRB,9.2157E-01_JPRB,8.2344E-01_JPRB,7.1363E-01_JPRB,5.9111E-01_JPRB,&
+&4.5461E-01_JPRB,2.9875E-01_JPRB,1.6950E-01_JPRB,1.2252E-01_JPRB,2.1387E+00_JPRB/)
+KAO( :, 1,13, 9) = (/&
+&1.0003E+00_JPRB,8.9827E-01_JPRB,7.9453E-01_JPRB,6.8742E-01_JPRB,5.7557E-01_JPRB,4.5851E-01_JPRB,&
+&3.3514E-01_JPRB,2.0061E-01_JPRB,9.5403E-02_JPRB,5.0265E-02_JPRB,1.6361E+00_JPRB/)
+KAO( :, 2,13, 9) = (/&
+&9.9751E-01_JPRB,9.0481E-01_JPRB,8.0727E-01_JPRB,7.0499E-01_JPRB,5.9591E-01_JPRB,4.8058E-01_JPRB,&
+&3.5629E-01_JPRB,2.1887E-01_JPRB,1.0898E-01_JPRB,6.1395E-02_JPRB,1.6789E+00_JPRB/)
+KAO( :, 3,13, 9) = (/&
+&9.9614E-01_JPRB,9.1298E-01_JPRB,8.2308E-01_JPRB,7.2470E-01_JPRB,6.1846E-01_JPRB,5.0385E-01_JPRB,&
+&3.7856E-01_JPRB,2.3882E-01_JPRB,1.2434E-01_JPRB,7.4760E-02_JPRB,1.7343E+00_JPRB/)
+KAO( :, 4,13, 9) = (/&
+&9.9388E-01_JPRB,9.2211E-01_JPRB,8.4003E-01_JPRB,7.4638E-01_JPRB,6.4247E-01_JPRB,5.2829E-01_JPRB,&
+&4.0218E-01_JPRB,2.6010E-01_JPRB,1.4124E-01_JPRB,9.0738E-02_JPRB,1.8018E+00_JPRB/)
+KAO( :, 5,13, 9) = (/&
+&9.9133E-01_JPRB,9.3236E-01_JPRB,8.5728E-01_JPRB,7.6831E-01_JPRB,6.6718E-01_JPRB,5.5353E-01_JPRB,&
+&4.2726E-01_JPRB,2.8267E-01_JPRB,1.5974E-01_JPRB,1.0946E-01_JPRB,1.8787E+00_JPRB/)
+KAO( :, 1, 1,10) = (/&
+&1.4571E+00_JPRB,1.2985E+00_JPRB,1.1908E+00_JPRB,1.0846E+00_JPRB,1.0480E+00_JPRB,9.7569E-01_JPRB,&
+&9.5294E-01_JPRB,1.0946E+00_JPRB,1.1970E+00_JPRB,1.2341E+00_JPRB,1.2515E+00_JPRB/)
+KAO( :, 2, 1,10) = (/&
+&1.4234E+00_JPRB,1.2781E+00_JPRB,1.1865E+00_JPRB,1.1317E+00_JPRB,1.1150E+00_JPRB,1.0495E+00_JPRB,&
+&1.1148E+00_JPRB,1.2924E+00_JPRB,1.4136E+00_JPRB,1.4576E+00_JPRB,1.4767E+00_JPRB/)
+KAO( :, 3, 1,10) = (/&
+&1.3920E+00_JPRB,1.2691E+00_JPRB,1.1852E+00_JPRB,1.1966E+00_JPRB,1.1609E+00_JPRB,1.1524E+00_JPRB,&
+&1.2953E+00_JPRB,1.5017E+00_JPRB,1.6423E+00_JPRB,1.6923E+00_JPRB,1.7109E+00_JPRB/)
+KAO( :, 4, 1,10) = (/&
+&1.3678E+00_JPRB,1.2658E+00_JPRB,1.2088E+00_JPRB,1.2463E+00_JPRB,1.2126E+00_JPRB,1.2713E+00_JPRB,&
+&1.4845E+00_JPRB,1.7225E+00_JPRB,1.8842E+00_JPRB,1.9406E+00_JPRB,1.9546E+00_JPRB/)
+KAO( :, 5, 1,10) = (/&
+&1.3506E+00_JPRB,1.2582E+00_JPRB,1.2509E+00_JPRB,1.2864E+00_JPRB,1.2835E+00_JPRB,1.4126E+00_JPRB,&
+&1.6783E+00_JPRB,1.9484E+00_JPRB,2.1328E+00_JPRB,2.1974E+00_JPRB,2.2094E+00_JPRB/)
+KAO( :, 1, 2,10) = (/&
+&1.5647E+00_JPRB,1.3899E+00_JPRB,1.2609E+00_JPRB,1.1489E+00_JPRB,1.0577E+00_JPRB,9.7853E-01_JPRB,&
+&8.8718E-01_JPRB,9.8958E-01_JPRB,1.0824E+00_JPRB,1.1177E+00_JPRB,1.1363E+00_JPRB/)
+KAO( :, 2, 2,10) = (/&
+&1.5359E+00_JPRB,1.3755E+00_JPRB,1.2594E+00_JPRB,1.1862E+00_JPRB,1.1175E+00_JPRB,1.0395E+00_JPRB,&
+&1.0286E+00_JPRB,1.1844E+00_JPRB,1.2956E+00_JPRB,1.3363E+00_JPRB,1.3552E+00_JPRB/)
+KAO( :, 3, 2,10) = (/&
+&1.5095E+00_JPRB,1.3719E+00_JPRB,1.2702E+00_JPRB,1.2294E+00_JPRB,1.1716E+00_JPRB,1.1207E+00_JPRB,&
+&1.2069E+00_JPRB,1.4002E+00_JPRB,1.5313E+00_JPRB,1.5789E+00_JPRB,1.5968E+00_JPRB/)
+KAO( :, 4, 2,10) = (/&
+&1.4881E+00_JPRB,1.3707E+00_JPRB,1.2904E+00_JPRB,1.2704E+00_JPRB,1.2297E+00_JPRB,1.2284E+00_JPRB,&
+&1.3999E+00_JPRB,1.6237E+00_JPRB,1.7765E+00_JPRB,1.8314E+00_JPRB,1.8527E+00_JPRB/)
+KAO( :, 5, 2,10) = (/&
+&1.4712E+00_JPRB,1.3632E+00_JPRB,1.3184E+00_JPRB,1.3082E+00_JPRB,1.2921E+00_JPRB,1.3673E+00_JPRB,&
+&1.6066E+00_JPRB,1.8637E+00_JPRB,2.0388E+00_JPRB,2.1005E+00_JPRB,2.1202E+00_JPRB/)
+KAO( :, 1, 3,10) = (/&
+&1.6996E+00_JPRB,1.5099E+00_JPRB,1.3576E+00_JPRB,1.2090E+00_JPRB,1.0921E+00_JPRB,9.6189E-01_JPRB,&
+&8.2495E-01_JPRB,8.5120E-01_JPRB,9.3114E-01_JPRB,9.6079E-01_JPRB,9.7144E-01_JPRB/)
+KAO( :, 2, 3,10) = (/&
+&1.6714E+00_JPRB,1.4913E+00_JPRB,1.3572E+00_JPRB,1.2562E+00_JPRB,1.1313E+00_JPRB,1.0225E+00_JPRB,&
+&9.3378E-01_JPRB,1.0377E+00_JPRB,1.1351E+00_JPRB,1.1715E+00_JPRB,1.1847E+00_JPRB/)
+KAO( :, 3, 3,10) = (/&
+&1.6464E+00_JPRB,1.4878E+00_JPRB,1.3648E+00_JPRB,1.2864E+00_JPRB,1.1805E+00_JPRB,1.0851E+00_JPRB,&
+&1.0848E+00_JPRB,1.2467E+00_JPRB,1.3633E+00_JPRB,1.4058E+00_JPRB,1.4211E+00_JPRB/)
+KAO( :, 4, 3,10) = (/&
+&1.6254E+00_JPRB,1.4868E+00_JPRB,1.3919E+00_JPRB,1.3095E+00_JPRB,1.2349E+00_JPRB,1.1776E+00_JPRB,&
+&1.2699E+00_JPRB,1.4722E+00_JPRB,1.6102E+00_JPRB,1.6602E+00_JPRB,1.6774E+00_JPRB/)
+KAO( :, 5, 3,10) = (/&
+&1.6074E+00_JPRB,1.4842E+00_JPRB,1.4163E+00_JPRB,1.3403E+00_JPRB,1.2931E+00_JPRB,1.3071E+00_JPRB,&
+&1.4856E+00_JPRB,1.7228E+00_JPRB,1.8845E+00_JPRB,1.9421E+00_JPRB,1.9615E+00_JPRB/)
+KAO( :, 1, 4,10) = (/&
+&1.8323E+00_JPRB,1.6281E+00_JPRB,1.4618E+00_JPRB,1.2952E+00_JPRB,1.1419E+00_JPRB,9.7127E-01_JPRB,&
+&7.8485E-01_JPRB,7.2735E-01_JPRB,7.9434E-01_JPRB,8.1908E-01_JPRB,8.2678E-01_JPRB/)
+KAO( :, 2, 4,10) = (/&
+&1.8090E+00_JPRB,1.6115E+00_JPRB,1.4679E+00_JPRB,1.3303E+00_JPRB,1.1865E+00_JPRB,1.0111E+00_JPRB,&
+&8.6551E-01_JPRB,8.9427E-01_JPRB,9.7752E-01_JPRB,1.0078E+00_JPRB,1.0171E+00_JPRB/)
+KAO( :, 3, 4,10) = (/&
+&1.7889E+00_JPRB,1.6155E+00_JPRB,1.4723E+00_JPRB,1.3642E+00_JPRB,1.2203E+00_JPRB,1.0626E+00_JPRB,&
+&9.8912E-01_JPRB,1.0844E+00_JPRB,1.1852E+00_JPRB,1.2230E+00_JPRB,1.2342E+00_JPRB/)
+KAO( :, 4, 4,10) = (/&
+&1.7702E+00_JPRB,1.6167E+00_JPRB,1.4947E+00_JPRB,1.3909E+00_JPRB,1.2565E+00_JPRB,1.1410E+00_JPRB,&
+&1.1388E+00_JPRB,1.2955E+00_JPRB,1.4168E+00_JPRB,1.4624E+00_JPRB,1.4761E+00_JPRB/)
+KAO( :, 5, 4,10) = (/&
+&1.7501E+00_JPRB,1.6097E+00_JPRB,1.5232E+00_JPRB,1.4123E+00_JPRB,1.3009E+00_JPRB,1.2498E+00_JPRB,&
+&1.3238E+00_JPRB,1.5313E+00_JPRB,1.6751E+00_JPRB,1.7296E+00_JPRB,1.7455E+00_JPRB/)
+KAO( :, 1, 5,10) = (/&
+&1.9828E+00_JPRB,1.7589E+00_JPRB,1.5692E+00_JPRB,1.3787E+00_JPRB,1.1995E+00_JPRB,9.9912E-01_JPRB,&
+&7.7673E-01_JPRB,6.3208E-01_JPRB,6.6656E-01_JPRB,6.8788E-01_JPRB,6.9344E-01_JPRB/)
+KAO( :, 2, 5,10) = (/&
+&1.9634E+00_JPRB,1.7445E+00_JPRB,1.5796E+00_JPRB,1.4090E+00_JPRB,1.2375E+00_JPRB,1.0422E+00_JPRB,&
+&8.3265E-01_JPRB,7.6892E-01_JPRB,8.3508E-01_JPRB,8.6158E-01_JPRB,8.6855E-01_JPRB/)
+KAO( :, 3, 5,10) = (/&
+&1.9451E+00_JPRB,1.7488E+00_JPRB,1.5830E+00_JPRB,1.4394E+00_JPRB,1.2778E+00_JPRB,1.0801E+00_JPRB,&
+&9.2394E-01_JPRB,9.3676E-01_JPRB,1.0236E+00_JPRB,1.0564E+00_JPRB,1.0650E+00_JPRB/)
+KAO( :, 4, 5,10) = (/&
+&1.9265E+00_JPRB,1.7517E+00_JPRB,1.6023E+00_JPRB,1.4639E+00_JPRB,1.3153E+00_JPRB,1.1360E+00_JPRB,&
+&1.0450E+00_JPRB,1.1261E+00_JPRB,1.2312E+00_JPRB,1.2708E+00_JPRB,1.2815E+00_JPRB/)
+KAO( :, 5, 5,10) = (/&
+&1.9040E+00_JPRB,1.7416E+00_JPRB,1.6301E+00_JPRB,1.4960E+00_JPRB,1.3496E+00_JPRB,1.2128E+00_JPRB,&
+&1.1890E+00_JPRB,1.3318E+00_JPRB,1.4563E+00_JPRB,1.5043E+00_JPRB,1.5161E+00_JPRB/)
+KAO( :, 1, 6,10) = (/&
+&2.1467E+00_JPRB,1.9004E+00_JPRB,1.6825E+00_JPRB,1.4649E+00_JPRB,1.2465E+00_JPRB,1.0269E+00_JPRB,&
+&7.8605E-01_JPRB,5.5785E-01_JPRB,5.4603E-01_JPRB,5.6364E-01_JPRB,5.6772E-01_JPRB/)
+KAO( :, 2, 6,10) = (/&
+&2.1281E+00_JPRB,1.8881E+00_JPRB,1.6957E+00_JPRB,1.4846E+00_JPRB,1.2828E+00_JPRB,1.0659E+00_JPRB,&
+&8.3980E-01_JPRB,6.6949E-01_JPRB,6.9629E-01_JPRB,7.1873E-01_JPRB,7.2407E-01_JPRB/)
+KAO( :, 3, 6,10) = (/&
+&2.1101E+00_JPRB,1.8868E+00_JPRB,1.6967E+00_JPRB,1.5129E+00_JPRB,1.3220E+00_JPRB,1.1137E+00_JPRB,&
+&9.0037E-01_JPRB,8.0396E-01_JPRB,8.6638E-01_JPRB,8.9449E-01_JPRB,9.0065E-01_JPRB/)
+KAO( :, 4, 6,10) = (/&
+&2.0853E+00_JPRB,1.8860E+00_JPRB,1.7059E+00_JPRB,1.5431E+00_JPRB,1.3571E+00_JPRB,1.1686E+00_JPRB,&
+&9.8228E-01_JPRB,9.6588E-01_JPRB,1.0545E+00_JPRB,1.0886E+00_JPRB,1.0960E+00_JPRB/)
+KAO( :, 5, 6,10) = (/&
+&2.0580E+00_JPRB,1.8736E+00_JPRB,1.7305E+00_JPRB,1.5756E+00_JPRB,1.3997E+00_JPRB,1.2303E+00_JPRB,&
+&1.0965E+00_JPRB,1.1472E+00_JPRB,1.2529E+00_JPRB,1.2937E+00_JPRB,1.3014E+00_JPRB/)
+KAO( :, 1, 7,10) = (/&
+&2.2844E+00_JPRB,2.0203E+00_JPRB,1.7798E+00_JPRB,1.5404E+00_JPRB,1.2929E+00_JPRB,1.0469E+00_JPRB,&
+&7.9236E-01_JPRB,5.2961E-01_JPRB,4.3906E-01_JPRB,4.5269E-01_JPRB,4.5518E-01_JPRB/)
+KAO( :, 2, 7,10) = (/&
+&2.2660E+00_JPRB,2.0078E+00_JPRB,1.7931E+00_JPRB,1.5555E+00_JPRB,1.3285E+00_JPRB,1.0902E+00_JPRB,&
+&8.4669E-01_JPRB,5.9963E-01_JPRB,5.6851E-01_JPRB,5.8633E-01_JPRB,5.8943E-01_JPRB/)
+KAO( :, 3, 7,10) = (/&
+&2.2458E+00_JPRB,2.0016E+00_JPRB,1.7952E+00_JPRB,1.5839E+00_JPRB,1.3724E+00_JPRB,1.1382E+00_JPRB,&
+&9.0788E-01_JPRB,7.0219E-01_JPRB,7.1570E-01_JPRB,7.3889E-01_JPRB,7.4245E-01_JPRB/)
+KAO( :, 4, 7,10) = (/&
+&2.2171E+00_JPRB,2.0004E+00_JPRB,1.8020E+00_JPRB,1.6192E+00_JPRB,1.4137E+00_JPRB,1.1896E+00_JPRB,&
+&9.7833E-01_JPRB,8.3274E-01_JPRB,8.7925E-01_JPRB,9.0812E-01_JPRB,9.1193E-01_JPRB/)
+KAO( :, 5, 7,10) = (/&
+&2.1959E+00_JPRB,1.9929E+00_JPRB,1.8261E+00_JPRB,1.6565E+00_JPRB,1.4548E+00_JPRB,1.2529E+00_JPRB,&
+&1.0566E+00_JPRB,9.7505E-01_JPRB,1.0516E+00_JPRB,1.0862E+00_JPRB,1.0907E+00_JPRB/)
+KAO( :, 1, 8,10) = (/&
+&2.3885E+00_JPRB,2.1081E+00_JPRB,1.8478E+00_JPRB,1.5947E+00_JPRB,1.3299E+00_JPRB,1.0742E+00_JPRB,&
+&7.9832E-01_JPRB,5.1485E-01_JPRB,3.4910E-01_JPRB,3.5166E-01_JPRB,4.0882E-01_JPRB/)
+KAO( :, 2, 8,10) = (/&
+&2.3816E+00_JPRB,2.1064E+00_JPRB,1.8710E+00_JPRB,1.6145E+00_JPRB,1.3755E+00_JPRB,1.1190E+00_JPRB,&
+&8.5217E-01_JPRB,5.7569E-01_JPRB,4.5136E-01_JPRB,4.6418E-01_JPRB,4.8409E-01_JPRB/)
+KAO( :, 3, 8,10) = (/&
+&2.3652E+00_JPRB,2.1007E+00_JPRB,1.8806E+00_JPRB,1.6533E+00_JPRB,1.4207E+00_JPRB,1.1711E+00_JPRB,&
+&9.0846E-01_JPRB,6.4219E-01_JPRB,5.7508E-01_JPRB,5.9368E-01_JPRB,5.9892E-01_JPRB/)
+KAO( :, 4, 8,10) = (/&
+&2.3476E+00_JPRB,2.1091E+00_JPRB,1.8906E+00_JPRB,1.6908E+00_JPRB,1.4662E+00_JPRB,1.2230E+00_JPRB,&
+&9.7637E-01_JPRB,7.3139E-01_JPRB,7.1362E-01_JPRB,7.3716E-01_JPRB,7.4183E-01_JPRB/)
+KAO( :, 5, 8,10) = (/&
+&2.3384E+00_JPRB,2.1117E+00_JPRB,1.9201E+00_JPRB,1.7277E+00_JPRB,1.5122E+00_JPRB,1.2845E+00_JPRB,&
+&1.0504E+00_JPRB,8.4237E-01_JPRB,8.6471E-01_JPRB,8.9254E-01_JPRB,8.9924E-01_JPRB/)
+KAO( :, 1, 9,10) = (/&
+&2.5386E+00_JPRB,2.2349E+00_JPRB,1.9481E+00_JPRB,1.6673E+00_JPRB,1.3731E+00_JPRB,1.0924E+00_JPRB,&
+&8.0108E-01_JPRB,5.0383E-01_JPRB,2.8431E-01_JPRB,2.6546E-01_JPRB,1.0078E+00_JPRB/)
+KAO( :, 2, 9,10) = (/&
+&2.5451E+00_JPRB,2.2468E+00_JPRB,1.9792E+00_JPRB,1.6927E+00_JPRB,1.4190E+00_JPRB,1.1389E+00_JPRB,&
+&8.5564E-01_JPRB,5.6069E-01_JPRB,3.5715E-01_JPRB,3.5572E-01_JPRB,1.1000E+00_JPRB/)
+KAO( :, 3, 9,10) = (/&
+&2.5371E+00_JPRB,2.2464E+00_JPRB,1.9929E+00_JPRB,1.7275E+00_JPRB,1.4622E+00_JPRB,1.1905E+00_JPRB,&
+&9.1694E-01_JPRB,6.2032E-01_JPRB,4.5328E-01_JPRB,4.6281E-01_JPRB,1.1964E+00_JPRB/)
+KAO( :, 4, 9,10) = (/&
+&2.5272E+00_JPRB,2.2578E+00_JPRB,2.0033E+00_JPRB,1.7607E+00_JPRB,1.5050E+00_JPRB,1.2522E+00_JPRB,&
+&9.8282E-01_JPRB,6.8556E-01_JPRB,5.6762E-01_JPRB,5.8509E-01_JPRB,1.3014E+00_JPRB/)
+KAO( :, 5, 9,10) = (/&
+&2.5219E+00_JPRB,2.2665E+00_JPRB,2.0326E+00_JPRB,1.7988E+00_JPRB,1.5562E+00_JPRB,1.3171E+00_JPRB,&
+&1.0492E+00_JPRB,7.6013E-01_JPRB,7.0072E-01_JPRB,7.2284E-01_JPRB,1.4121E+00_JPRB/)
+KAO( :, 1,10,10) = (/&
+&2.7032E+00_JPRB,2.3752E+00_JPRB,2.0666E+00_JPRB,1.7582E+00_JPRB,1.4376E+00_JPRB,1.1282E+00_JPRB,&
+&8.0844E-01_JPRB,4.9374E-01_JPRB,2.5722E-01_JPRB,2.0186E-01_JPRB,3.6688E+00_JPRB/)
+KAO( :, 2,10,10) = (/&
+&2.7107E+00_JPRB,2.3914E+00_JPRB,2.0994E+00_JPRB,1.7884E+00_JPRB,1.4847E+00_JPRB,1.1756E+00_JPRB,&
+&8.5930E-01_JPRB,5.5140E-01_JPRB,3.0504E-01_JPRB,2.7555E-01_JPRB,3.7597E+00_JPRB/)
+KAO( :, 3,10,10) = (/&
+&2.7016E+00_JPRB,2.3907E+00_JPRB,2.1143E+00_JPRB,1.8225E+00_JPRB,1.5274E+00_JPRB,1.2237E+00_JPRB,&
+&9.2233E-01_JPRB,6.0585E-01_JPRB,3.7278E-01_JPRB,3.6425E-01_JPRB,3.8938E+00_JPRB/)
+KAO( :, 4,10,10) = (/&
+&2.6956E+00_JPRB,2.4067E+00_JPRB,2.1300E+00_JPRB,1.8578E+00_JPRB,1.5689E+00_JPRB,1.2815E+00_JPRB,&
+&9.8969E-01_JPRB,6.6341E-01_JPRB,4.6317E-01_JPRB,4.6656E-01_JPRB,4.0246E+00_JPRB/)
+KAO( :, 5,10,10) = (/&
+&2.6869E+00_JPRB,2.4172E+00_JPRB,2.1621E+00_JPRB,1.8987E+00_JPRB,1.6181E+00_JPRB,1.3422E+00_JPRB,&
+&1.0558E+00_JPRB,7.2592E-01_JPRB,5.7500E-01_JPRB,5.8744E-01_JPRB,4.1547E+00_JPRB/)
+KAO( :, 1,11,10) = (/&
+&2.8365E+00_JPRB,2.4939E+00_JPRB,2.1806E+00_JPRB,1.8562E+00_JPRB,1.5246E+00_JPRB,1.1987E+00_JPRB,&
+&8.5286E-01_JPRB,5.0756E-01_JPRB,2.5720E-01_JPRB,1.7786E-01_JPRB,5.8233E+00_JPRB/)
+KAO( :, 2,11,10) = (/&
+&2.8311E+00_JPRB,2.5017E+00_JPRB,2.2072E+00_JPRB,1.8857E+00_JPRB,1.5735E+00_JPRB,1.2464E+00_JPRB,&
+&9.0789E-01_JPRB,5.6161E-01_JPRB,3.0021E-01_JPRB,2.4395E-01_JPRB,5.8712E+00_JPRB/)
+KAO( :, 3,11,10) = (/&
+&2.8249E+00_JPRB,2.5109E+00_JPRB,2.2225E+00_JPRB,1.9282E+00_JPRB,1.6185E+00_JPRB,1.2983E+00_JPRB,&
+&9.6627E-01_JPRB,6.1528E-01_JPRB,3.5612E-01_JPRB,3.2409E-01_JPRB,5.9730E+00_JPRB/)
+KAO( :, 4,11,10) = (/&
+&2.8199E+00_JPRB,2.5320E+00_JPRB,2.2523E+00_JPRB,1.9711E+00_JPRB,1.6696E+00_JPRB,1.3539E+00_JPRB,&
+&1.0246E+00_JPRB,6.7092E-01_JPRB,4.3024E-01_JPRB,4.1910E-01_JPRB,6.1100E+00_JPRB/)
+KAO( :, 5,11,10) = (/&
+&2.8024E+00_JPRB,2.5388E+00_JPRB,2.2830E+00_JPRB,2.0130E+00_JPRB,1.7222E+00_JPRB,1.4150E+00_JPRB,&
+&1.0853E+00_JPRB,7.3326E-01_JPRB,5.2958E-01_JPRB,5.3082E-01_JPRB,6.2451E+00_JPRB/)
+KAO( :, 1,12,10) = (/&
+&2.9007E+00_JPRB,2.5522E+00_JPRB,2.2455E+00_JPRB,1.9136E+00_JPRB,1.5844E+00_JPRB,1.2502E+00_JPRB,&
+&8.9520E-01_JPRB,5.2570E-01_JPRB,2.5575E-01_JPRB,1.5969E-01_JPRB,6.7808E+00_JPRB/)
+KAO( :, 2,12,10) = (/&
+&2.8957E+00_JPRB,2.5649E+00_JPRB,2.2681E+00_JPRB,1.9492E+00_JPRB,1.6332E+00_JPRB,1.2959E+00_JPRB,&
+&9.5066E-01_JPRB,5.7358E-01_JPRB,2.9740E-01_JPRB,2.1707E-01_JPRB,6.8136E+00_JPRB/)
+KAO( :, 3,12,10) = (/&
+&2.8959E+00_JPRB,2.5923E+00_JPRB,2.2942E+00_JPRB,1.9975E+00_JPRB,1.6818E+00_JPRB,1.3548E+00_JPRB,&
+&1.0083E+00_JPRB,6.2153E-01_JPRB,3.4695E-01_JPRB,2.8857E-01_JPRB,6.9134E+00_JPRB/)
+KAO( :, 4,12,10) = (/&
+&2.8817E+00_JPRB,2.6059E+00_JPRB,2.3289E+00_JPRB,2.0414E+00_JPRB,1.7379E+00_JPRB,1.4164E+00_JPRB,&
+&1.0650E+00_JPRB,6.7585E-01_JPRB,4.1101E-01_JPRB,3.7695E-01_JPRB,7.0381E+00_JPRB/)
+KAO( :, 5,12,10) = (/&
+&2.8680E+00_JPRB,2.6070E+00_JPRB,2.3572E+00_JPRB,2.0817E+00_JPRB,1.7934E+00_JPRB,1.4807E+00_JPRB,&
+&1.1194E+00_JPRB,7.3817E-01_JPRB,4.8817E-01_JPRB,4.7434E-01_JPRB,7.1520E+00_JPRB/)
+KAO( :, 1,13,10) = (/&
+&2.8740E+00_JPRB,2.5320E+00_JPRB,2.2375E+00_JPRB,1.9099E+00_JPRB,1.5916E+00_JPRB,1.2554E+00_JPRB,&
+&9.0824E-01_JPRB,5.3705E-01_JPRB,2.5121E-01_JPRB,1.4664E-01_JPRB,6.0411E+00_JPRB/)
+KAO( :, 2,13,10) = (/&
+&2.8792E+00_JPRB,2.5659E+00_JPRB,2.2680E+00_JPRB,1.9609E+00_JPRB,1.6438E+00_JPRB,1.3095E+00_JPRB,&
+&9.6448E-01_JPRB,5.8102E-01_JPRB,2.9305E-01_JPRB,1.9412E-01_JPRB,6.1051E+00_JPRB/)
+KAO( :, 3,13,10) = (/&
+&2.8707E+00_JPRB,2.5893E+00_JPRB,2.2982E+00_JPRB,2.0064E+00_JPRB,1.6967E+00_JPRB,1.3719E+00_JPRB,&
+&1.0233E+00_JPRB,6.2659E-01_JPRB,3.3990E-01_JPRB,2.5773E-01_JPRB,6.2169E+00_JPRB/)
+KAO( :, 4,13,10) = (/&
+&2.8643E+00_JPRB,2.5995E+00_JPRB,2.3326E+00_JPRB,2.0484E+00_JPRB,1.7508E+00_JPRB,1.4355E+00_JPRB,&
+&1.0824E+00_JPRB,6.7916E-01_JPRB,3.9630E-01_JPRB,3.3349E-01_JPRB,6.3137E+00_JPRB/)
+KAO( :, 5,13,10) = (/&
+&2.8671E+00_JPRB,2.6159E+00_JPRB,2.3730E+00_JPRB,2.0970E+00_JPRB,1.8103E+00_JPRB,1.4979E+00_JPRB,&
+&1.1399E+00_JPRB,7.4021E-01_JPRB,4.5873E-01_JPRB,4.1936E-01_JPRB,6.4289E+00_JPRB/)
+KAO( :, 1, 1,11) = (/&
+&1.6613E+00_JPRB,1.4866E+00_JPRB,1.3853E+00_JPRB,1.3300E+00_JPRB,1.2682E+00_JPRB,1.2323E+00_JPRB,&
+&1.3863E+00_JPRB,1.6088E+00_JPRB,1.7596E+00_JPRB,1.8112E+00_JPRB,1.8168E+00_JPRB/)
+KAO( :, 2, 1,11) = (/&
+&1.6169E+00_JPRB,1.4555E+00_JPRB,1.4059E+00_JPRB,1.3808E+00_JPRB,1.3576E+00_JPRB,1.4059E+00_JPRB,&
+&1.6502E+00_JPRB,1.9162E+00_JPRB,2.0970E+00_JPRB,2.1595E+00_JPRB,2.1711E+00_JPRB/)
+KAO( :, 3, 1,11) = (/&
+&1.5778E+00_JPRB,1.4552E+00_JPRB,1.4351E+00_JPRB,1.4445E+00_JPRB,1.4667E+00_JPRB,1.6093E+00_JPRB,&
+&1.9164E+00_JPRB,2.2262E+00_JPRB,2.4366E+00_JPRB,2.5118E+00_JPRB,2.5357E+00_JPRB/)
+KAO( :, 4, 1,11) = (/&
+&1.5458E+00_JPRB,1.4600E+00_JPRB,1.4693E+00_JPRB,1.5080E+00_JPRB,1.5810E+00_JPRB,1.8320E+00_JPRB,&
+&2.1847E+00_JPRB,2.5375E+00_JPRB,2.7777E+00_JPRB,2.8639E+00_JPRB,2.8977E+00_JPRB/)
+KAO( :, 5, 1,11) = (/&
+&1.5169E+00_JPRB,1.4756E+00_JPRB,1.5189E+00_JPRB,1.5745E+00_JPRB,1.7149E+00_JPRB,2.0625E+00_JPRB,&
+&2.4598E+00_JPRB,2.8572E+00_JPRB,3.1271E+00_JPRB,3.2233E+00_JPRB,3.2607E+00_JPRB/)
+KAO( :, 1, 2,11) = (/&
+&1.7931E+00_JPRB,1.6027E+00_JPRB,1.4692E+00_JPRB,1.3591E+00_JPRB,1.3119E+00_JPRB,1.2053E+00_JPRB,&
+&1.2920E+00_JPRB,1.4995E+00_JPRB,1.6403E+00_JPRB,1.6893E+00_JPRB,1.7029E+00_JPRB/)
+KAO( :, 2, 2,11) = (/&
+&1.7517E+00_JPRB,1.5695E+00_JPRB,1.4741E+00_JPRB,1.4214E+00_JPRB,1.3827E+00_JPRB,1.3473E+00_JPRB,&
+&1.5430E+00_JPRB,1.7916E+00_JPRB,1.9609E+00_JPRB,2.0211E+00_JPRB,2.0410E+00_JPRB/)
+KAO( :, 3, 2,11) = (/&
+&1.7144E+00_JPRB,1.5578E+00_JPRB,1.4838E+00_JPRB,1.5024E+00_JPRB,1.4587E+00_JPRB,1.5235E+00_JPRB,&
+&1.7953E+00_JPRB,2.0852E+00_JPRB,2.2826E+00_JPRB,2.3530E+00_JPRB,2.3802E+00_JPRB/)
+KAO( :, 4, 2,11) = (/&
+&1.6782E+00_JPRB,1.5545E+00_JPRB,1.5253E+00_JPRB,1.5641E+00_JPRB,1.5463E+00_JPRB,1.7285E+00_JPRB,&
+&2.0611E+00_JPRB,2.3939E+00_JPRB,2.6193E+00_JPRB,2.6996E+00_JPRB,2.7281E+00_JPRB/)
+KAO( :, 5, 2,11) = (/&
+&1.6444E+00_JPRB,1.5616E+00_JPRB,1.5898E+00_JPRB,1.6106E+00_JPRB,1.6616E+00_JPRB,1.9596E+00_JPRB,&
+&2.3378E+00_JPRB,2.7154E+00_JPRB,2.9704E+00_JPRB,3.0605E+00_JPRB,3.0919E+00_JPRB/)
+KAO( :, 1, 3,11) = (/&
+&1.9627E+00_JPRB,1.7504E+00_JPRB,1.5854E+00_JPRB,1.4217E+00_JPRB,1.3102E+00_JPRB,1.1839E+00_JPRB,&
+&1.1622E+00_JPRB,1.3310E+00_JPRB,1.4543E+00_JPRB,1.4985E+00_JPRB,1.5140E+00_JPRB/)
+KAO( :, 2, 3,11) = (/&
+&1.9279E+00_JPRB,1.7219E+00_JPRB,1.5816E+00_JPRB,1.4501E+00_JPRB,1.3900E+00_JPRB,1.2949E+00_JPRB,&
+&1.3876E+00_JPRB,1.6085E+00_JPRB,1.7572E+00_JPRB,1.8110E+00_JPRB,1.8300E+00_JPRB/)
+KAO( :, 3, 3,11) = (/&
+&1.8924E+00_JPRB,1.7068E+00_JPRB,1.5754E+00_JPRB,1.5312E+00_JPRB,1.4545E+00_JPRB,1.4364E+00_JPRB,&
+&1.6346E+00_JPRB,1.8944E+00_JPRB,2.0697E+00_JPRB,2.1336E+00_JPRB,2.1557E+00_JPRB/)
+KAO( :, 4, 3,11) = (/&
+&1.8571E+00_JPRB,1.6996E+00_JPRB,1.5918E+00_JPRB,1.6013E+00_JPRB,1.5297E+00_JPRB,1.6118E+00_JPRB,&
+&1.8962E+00_JPRB,2.1972E+00_JPRB,2.4008E+00_JPRB,2.4733E+00_JPRB,2.4988E+00_JPRB/)
+KAO( :, 5, 3,11) = (/&
+&1.8235E+00_JPRB,1.6901E+00_JPRB,1.6505E+00_JPRB,1.6453E+00_JPRB,1.6300E+00_JPRB,1.8256E+00_JPRB,&
+&2.1737E+00_JPRB,2.5187E+00_JPRB,2.7529E+00_JPRB,2.8347E+00_JPRB,2.8622E+00_JPRB/)
+KAO( :, 1, 4,11) = (/&
+&2.1765E+00_JPRB,1.9348E+00_JPRB,1.7298E+00_JPRB,1.5261E+00_JPRB,1.3305E+00_JPRB,1.1605E+00_JPRB,&
+&1.0551E+00_JPRB,1.1346E+00_JPRB,1.2370E+00_JPRB,1.2757E+00_JPRB,1.2869E+00_JPRB/)
+KAO( :, 2, 4,11) = (/&
+&2.1414E+00_JPRB,1.9083E+00_JPRB,1.7248E+00_JPRB,1.5356E+00_JPRB,1.3817E+00_JPRB,1.2586E+00_JPRB,&
+&1.2309E+00_JPRB,1.3912E+00_JPRB,1.5177E+00_JPRB,1.5661E+00_JPRB,1.5799E+00_JPRB/)
+KAO( :, 3, 4,11) = (/&
+&2.1021E+00_JPRB,1.8834E+00_JPRB,1.7158E+00_JPRB,1.5815E+00_JPRB,1.4532E+00_JPRB,1.3786E+00_JPRB,&
+&1.4439E+00_JPRB,1.6656E+00_JPRB,1.8177E+00_JPRB,1.8749E+00_JPRB,1.8912E+00_JPRB/)
+KAO( :, 4, 4,11) = (/&
+&2.0644E+00_JPRB,1.8749E+00_JPRB,1.7166E+00_JPRB,1.6274E+00_JPRB,1.5294E+00_JPRB,1.5218E+00_JPRB,&
+&1.7000E+00_JPRB,1.9644E+00_JPRB,2.1444E+00_JPRB,2.2100E+00_JPRB,2.2304E+00_JPRB/)
+KAO( :, 5, 4,11) = (/&
+&2.0315E+00_JPRB,1.8634E+00_JPRB,1.7507E+00_JPRB,1.6723E+00_JPRB,1.6226E+00_JPRB,1.7027E+00_JPRB,&
+&1.9800E+00_JPRB,2.2880E+00_JPRB,2.4977E+00_JPRB,2.5739E+00_JPRB,2.5981E+00_JPRB/)
+KAO( :, 1, 5,11) = (/&
+&2.3978E+00_JPRB,2.1273E+00_JPRB,1.8817E+00_JPRB,1.6476E+00_JPRB,1.4011E+00_JPRB,1.1672E+00_JPRB,&
+&9.7083E-01_JPRB,9.5214E-01_JPRB,1.0369E+00_JPRB,1.0689E+00_JPRB,1.0768E+00_JPRB/)
+KAO( :, 2, 5,11) = (/&
+&2.3540E+00_JPRB,2.0936E+00_JPRB,1.8768E+00_JPRB,1.6491E+00_JPRB,1.4389E+00_JPRB,1.2340E+00_JPRB,&
+&1.1149E+00_JPRB,1.1831E+00_JPRB,1.2889E+00_JPRB,1.3291E+00_JPRB,1.3391E+00_JPRB/)
+KAO( :, 3, 5,11) = (/&
+&2.3123E+00_JPRB,2.0603E+00_JPRB,1.8683E+00_JPRB,1.6861E+00_JPRB,1.4856E+00_JPRB,1.3243E+00_JPRB,&
+&1.2879E+00_JPRB,1.4387E+00_JPRB,1.5683E+00_JPRB,1.6173E+00_JPRB,1.6292E+00_JPRB/)
+KAO( :, 4, 5,11) = (/&
+&2.2731E+00_JPRB,2.0535E+00_JPRB,1.8606E+00_JPRB,1.7201E+00_JPRB,1.5405E+00_JPRB,1.4489E+00_JPRB,&
+&1.5047E+00_JPRB,1.7253E+00_JPRB,1.8810E+00_JPRB,1.9395E+00_JPRB,1.9546E+00_JPRB/)
+KAO( :, 5, 5,11) = (/&
+&2.2409E+00_JPRB,2.0441E+00_JPRB,1.8877E+00_JPRB,1.7429E+00_JPRB,1.6151E+00_JPRB,1.6124E+00_JPRB,&
+&1.7700E+00_JPRB,2.0422E+00_JPRB,2.2271E+00_JPRB,2.2953E+00_JPRB,2.3139E+00_JPRB/)
+KAO( :, 1, 6,11) = (/&
+&2.5958E+00_JPRB,2.2974E+00_JPRB,2.0142E+00_JPRB,1.7617E+00_JPRB,1.4801E+00_JPRB,1.2138E+00_JPRB,&
+&9.4381E-01_JPRB,8.0769E-01_JPRB,8.5699E-01_JPRB,8.8288E-01_JPRB,8.8884E-01_JPRB/)
+KAO( :, 2, 6,11) = (/&
+&2.5524E+00_JPRB,2.2633E+00_JPRB,2.0140E+00_JPRB,1.7595E+00_JPRB,1.5235E+00_JPRB,1.2699E+00_JPRB,&
+&1.0358E+00_JPRB,9.9995E-01_JPRB,1.0855E+00_JPRB,1.1188E+00_JPRB,1.1263E+00_JPRB/)
+KAO( :, 3, 6,11) = (/&
+&2.5133E+00_JPRB,2.2324E+00_JPRB,2.0130E+00_JPRB,1.7928E+00_JPRB,1.5724E+00_JPRB,1.3298E+00_JPRB,&
+&1.1740E+00_JPRB,1.2292E+00_JPRB,1.3373E+00_JPRB,1.3782E+00_JPRB,1.3885E+00_JPRB/)
+KAO( :, 4, 6,11) = (/&
+&2.4807E+00_JPRB,2.2302E+00_JPRB,2.0078E+00_JPRB,1.8271E+00_JPRB,1.6226E+00_JPRB,1.4050E+00_JPRB,&
+&1.3553E+00_JPRB,1.4899E+00_JPRB,1.6221E+00_JPRB,1.6724E+00_JPRB,1.6846E+00_JPRB/)
+KAO( :, 5, 6,11) = (/&
+&2.4531E+00_JPRB,2.2259E+00_JPRB,2.0295E+00_JPRB,1.8622E+00_JPRB,1.6727E+00_JPRB,1.5327E+00_JPRB,&
+&1.5693E+00_JPRB,1.7819E+00_JPRB,1.9432E+00_JPRB,2.0038E+00_JPRB,2.0198E+00_JPRB/)
+KAO( :, 1, 7,11) = (/&
+&2.7829E+00_JPRB,2.4576E+00_JPRB,2.1410E+00_JPRB,1.8711E+00_JPRB,1.5626E+00_JPRB,1.2726E+00_JPRB,&
+&9.6771E-01_JPRB,6.9895E-01_JPRB,6.9406E-01_JPRB,7.1533E-01_JPRB,7.2033E-01_JPRB/)
+KAO( :, 2, 7,11) = (/&
+&2.7493E+00_JPRB,2.4354E+00_JPRB,2.1596E+00_JPRB,1.8755E+00_JPRB,1.6074E+00_JPRB,1.3276E+00_JPRB,&
+&1.0391E+00_JPRB,8.5593E-01_JPRB,8.9783E-01_JPRB,9.2606E-01_JPRB,9.3225E-01_JPRB/)
+KAO( :, 3, 7,11) = (/&
+&2.7215E+00_JPRB,2.4153E+00_JPRB,2.1690E+00_JPRB,1.9070E+00_JPRB,1.6545E+00_JPRB,1.3898E+00_JPRB,&
+&1.1226E+00_JPRB,1.0453E+00_JPRB,1.1294E+00_JPRB,1.1648E+00_JPRB,1.1728E+00_JPRB/)
+KAO( :, 4, 7,11) = (/&
+&2.6975E+00_JPRB,2.4170E+00_JPRB,2.1702E+00_JPRB,1.9430E+00_JPRB,1.7107E+00_JPRB,1.4568E+00_JPRB,&
+&1.2495E+00_JPRB,1.2760E+00_JPRB,1.3906E+00_JPRB,1.4345E+00_JPRB,1.4450E+00_JPRB/)
+KAO( :, 5, 7,11) = (/&
+&2.6700E+00_JPRB,2.4191E+00_JPRB,2.1904E+00_JPRB,1.9836E+00_JPRB,1.7642E+00_JPRB,1.5351E+00_JPRB,&
+&1.4268E+00_JPRB,1.5390E+00_JPRB,1.6803E+00_JPRB,1.7334E+00_JPRB,1.7463E+00_JPRB/)
+KAO( :, 1, 8,11) = (/&
+&2.9847E+00_JPRB,2.6313E+00_JPRB,2.2865E+00_JPRB,1.9879E+00_JPRB,1.6488E+00_JPRB,1.3255E+00_JPRB,&
+&9.9877E-01_JPRB,6.5722E-01_JPRB,5.5701E-01_JPRB,5.7433E-01_JPRB,5.7952E-01_JPRB/)
+KAO( :, 2, 8,11) = (/&
+&2.9589E+00_JPRB,2.6183E+00_JPRB,2.3133E+00_JPRB,2.0003E+00_JPRB,1.6901E+00_JPRB,1.3820E+00_JPRB,&
+&1.0665E+00_JPRB,7.5791E-01_JPRB,7.3569E-01_JPRB,7.5906E-01_JPRB,7.6418E-01_JPRB/)
+KAO( :, 3, 8,11) = (/&
+&2.9382E+00_JPRB,2.6052E+00_JPRB,2.3281E+00_JPRB,2.0270E+00_JPRB,1.7422E+00_JPRB,1.4465E+00_JPRB,&
+&1.1457E+00_JPRB,9.0969E-01_JPRB,9.4197E-01_JPRB,9.7232E-01_JPRB,9.7875E-01_JPRB/)
+KAO( :, 4, 8,11) = (/&
+&2.9170E+00_JPRB,2.6060E+00_JPRB,2.3361E+00_JPRB,2.0694E+00_JPRB,1.8026E+00_JPRB,1.5183E+00_JPRB,&
+&1.2312E+00_JPRB,1.0984E+00_JPRB,1.1773E+00_JPRB,1.2154E+00_JPRB,1.2236E+00_JPRB/)
+KAO( :, 5, 8,11) = (/&
+&2.8898E+00_JPRB,2.6134E+00_JPRB,2.3563E+00_JPRB,2.1177E+00_JPRB,1.8614E+00_JPRB,1.5931E+00_JPRB,&
+&1.3477E+00_JPRB,1.3211E+00_JPRB,1.4373E+00_JPRB,1.4847E+00_JPRB,1.4939E+00_JPRB/)
+KAO( :, 1, 9,11) = (/&
+&3.1562E+00_JPRB,2.7768E+00_JPRB,2.4133E+00_JPRB,2.0911E+00_JPRB,1.7326E+00_JPRB,1.3839E+00_JPRB,&
+&1.0276E+00_JPRB,6.4719E-01_JPRB,4.4660E-01_JPRB,4.5187E-01_JPRB,1.3511E+00_JPRB/)
+KAO( :, 2, 9,11) = (/&
+&3.1384E+00_JPRB,2.7738E+00_JPRB,2.4447E+00_JPRB,2.1155E+00_JPRB,1.7788E+00_JPRB,1.4436E+00_JPRB,&
+&1.0888E+00_JPRB,7.2585E-01_JPRB,5.9330E-01_JPRB,6.1102E-01_JPRB,1.4527E+00_JPRB/)
+KAO( :, 3, 9,11) = (/&
+&3.1307E+00_JPRB,2.7744E+00_JPRB,2.4761E+00_JPRB,2.1489E+00_JPRB,1.8392E+00_JPRB,1.5081E+00_JPRB,&
+&1.1726E+00_JPRB,8.2343E-01_JPRB,7.7078E-01_JPRB,7.9585E-01_JPRB,1.5858E+00_JPRB/)
+KAO( :, 4, 9,11) = (/&
+&3.1198E+00_JPRB,2.7814E+00_JPRB,2.4948E+00_JPRB,2.2031E+00_JPRB,1.9038E+00_JPRB,1.5809E+00_JPRB,&
+&1.2536E+00_JPRB,9.6368E-01_JPRB,9.7557E-01_JPRB,1.0082E+00_JPRB,1.7168E+00_JPRB/)
+KAO( :, 5, 9,11) = (/&
+&3.0996E+00_JPRB,2.7968E+00_JPRB,2.5179E+00_JPRB,2.2589E+00_JPRB,1.9623E+00_JPRB,1.6560E+00_JPRB,&
+&1.3493E+00_JPRB,1.1417E+00_JPRB,1.2025E+00_JPRB,1.2431E+00_JPRB,1.8589E+00_JPRB/)
+KAO( :, 1,10,11) = (/&
+&3.3334E+00_JPRB,2.9275E+00_JPRB,2.5435E+00_JPRB,2.1899E+00_JPRB,1.8099E+00_JPRB,1.4340E+00_JPRB,&
+&1.0600E+00_JPRB,6.4816E-01_JPRB,3.7397E-01_JPRB,3.5551E-01_JPRB,5.2534E+00_JPRB/)
+KAO( :, 2,10,11) = (/&
+&3.3403E+00_JPRB,2.9437E+00_JPRB,2.5854E+00_JPRB,2.2265E+00_JPRB,1.8583E+00_JPRB,1.5038E+00_JPRB,&
+&1.1221E+00_JPRB,7.2216E-01_JPRB,4.8652E-01_JPRB,4.8944E-01_JPRB,5.3617E+00_JPRB/)
+KAO( :, 3,10,11) = (/&
+&3.3507E+00_JPRB,2.9656E+00_JPRB,2.6315E+00_JPRB,2.2679E+00_JPRB,1.9297E+00_JPRB,1.5737E+00_JPRB,&
+&1.2011E+00_JPRB,8.0616E-01_JPRB,6.2998E-01_JPRB,6.4742E-01_JPRB,5.5025E+00_JPRB/)
+KAO( :, 4,10,11) = (/&
+&3.3473E+00_JPRB,2.9767E+00_JPRB,2.6569E+00_JPRB,2.3310E+00_JPRB,1.9983E+00_JPRB,1.6498E+00_JPRB,&
+&1.2844E+00_JPRB,9.0267E-01_JPRB,8.0194E-01_JPRB,8.2874E-01_JPRB,5.7004E+00_JPRB/)
+KAO( :, 5,10,11) = (/&
+&3.3392E+00_JPRB,3.0005E+00_JPRB,2.6833E+00_JPRB,2.3869E+00_JPRB,2.0631E+00_JPRB,1.7311E+00_JPRB,&
+&1.3746E+00_JPRB,1.0270E+00_JPRB,9.9701E-01_JPRB,1.0314E+00_JPRB,5.9087E+00_JPRB/)
+KAO( :, 1,11,11) = (/&
+&3.5791E+00_JPRB,3.1435E+00_JPRB,2.7380E+00_JPRB,2.3402E+00_JPRB,1.9223E+00_JPRB,1.5197E+00_JPRB,&
+&1.1123E+00_JPRB,6.8009E-01_JPRB,3.6796E-01_JPRB,3.2253E-01_JPRB,8.7180E+00_JPRB/)
+KAO( :, 2,11,11) = (/&
+&3.6087E+00_JPRB,3.1771E+00_JPRB,2.7948E+00_JPRB,2.3883E+00_JPRB,1.9888E+00_JPRB,1.5919E+00_JPRB,&
+&1.1796E+00_JPRB,7.5512E-01_JPRB,4.5552E-01_JPRB,4.4047E-01_JPRB,8.8675E+00_JPRB/)
+KAO( :, 3,11,11) = (/&
+&3.6204E+00_JPRB,3.2046E+00_JPRB,2.8376E+00_JPRB,2.4402E+00_JPRB,2.0562E+00_JPRB,1.6610E+00_JPRB,&
+&1.2640E+00_JPRB,8.3788E-01_JPRB,5.7436E-01_JPRB,5.8089E-01_JPRB,8.9648E+00_JPRB/)
+KAO( :, 4,11,11) = (/&
+&3.6182E+00_JPRB,3.2254E+00_JPRB,2.8581E+00_JPRB,2.4960E+00_JPRB,2.1196E+00_JPRB,1.7427E+00_JPRB,&
+&1.3559E+00_JPRB,9.2621E-01_JPRB,7.2423E-01_JPRB,7.4487E-01_JPRB,9.1149E+00_JPRB/)
+KAO( :, 5,11,11) = (/&
+&3.6174E+00_JPRB,3.2471E+00_JPRB,2.8980E+00_JPRB,2.5529E+00_JPRB,2.1857E+00_JPRB,1.8304E+00_JPRB,&
+&1.4477E+00_JPRB,1.0248E+00_JPRB,8.9846E-01_JPRB,9.2879E-01_JPRB,9.3291E+00_JPRB/)
+KAO( :, 1,12,11) = (/&
+&3.8356E+00_JPRB,3.3697E+00_JPRB,2.9444E+00_JPRB,2.5088E+00_JPRB,2.0569E+00_JPRB,1.6203E+00_JPRB,&
+&1.1634E+00_JPRB,7.0598E-01_JPRB,3.6756E-01_JPRB,2.8729E-01_JPRB,1.0641E+01_JPRB/)
+KAO( :, 2,12,11) = (/&
+&3.8609E+00_JPRB,3.3997E+00_JPRB,3.0019E+00_JPRB,2.5600E+00_JPRB,2.1300E+00_JPRB,1.6898E+00_JPRB,&
+&1.2364E+00_JPRB,7.8348E-01_JPRB,4.3743E-01_JPRB,3.9283E-01_JPRB,1.0771E+01_JPRB/)
+KAO( :, 3,12,11) = (/&
+&3.8613E+00_JPRB,3.4230E+00_JPRB,3.0314E+00_JPRB,2.6152E+00_JPRB,2.1935E+00_JPRB,1.7589E+00_JPRB,&
+&1.3202E+00_JPRB,8.6394E-01_JPRB,5.3376E-01_JPRB,5.1970E-01_JPRB,1.0841E+01_JPRB/)
+KAO( :, 4,12,11) = (/&
+&3.8625E+00_JPRB,3.4569E+00_JPRB,3.0618E+00_JPRB,2.6703E+00_JPRB,2.2548E+00_JPRB,1.8353E+00_JPRB,&
+&1.4152E+00_JPRB,9.4767E-01_JPRB,6.5928E-01_JPRB,6.6542E-01_JPRB,1.0973E+01_JPRB/)
+KAO( :, 5,12,11) = (/&
+&3.8581E+00_JPRB,3.4796E+00_JPRB,3.1105E+00_JPRB,2.7293E+00_JPRB,2.3221E+00_JPRB,1.9216E+00_JPRB,&
+&1.5109E+00_JPRB,1.0379E+00_JPRB,8.1824E-01_JPRB,8.3851E-01_JPRB,1.1187E+01_JPRB/)
+KAO( :, 1,13,11) = (/&
+&3.9871E+00_JPRB,3.5054E+00_JPRB,3.0792E+00_JPRB,2.6225E+00_JPRB,2.1590E+00_JPRB,1.6999E+00_JPRB,&
+&1.2116E+00_JPRB,7.2436E-01_JPRB,3.6726E-01_JPRB,2.5477E-01_JPRB,9.9516E+00_JPRB/)
+KAO( :, 2,13,11) = (/&
+&3.9908E+00_JPRB,3.5178E+00_JPRB,3.1201E+00_JPRB,2.6682E+00_JPRB,2.2282E+00_JPRB,1.7642E+00_JPRB,&
+&1.2901E+00_JPRB,8.0058E-01_JPRB,4.3056E-01_JPRB,3.4969E-01_JPRB,1.0028E+01_JPRB/)
+KAO( :, 3,13,11) = (/&
+&3.9925E+00_JPRB,3.5529E+00_JPRB,3.1500E+00_JPRB,2.7322E+00_JPRB,2.2922E+00_JPRB,1.8395E+00_JPRB,&
+&1.3733E+00_JPRB,8.8117E-01_JPRB,5.1140E-01_JPRB,4.6457E-01_JPRB,1.0124E+01_JPRB/)
+KAO( :, 4,13,11) = (/&
+&3.9936E+00_JPRB,3.5963E+00_JPRB,3.1980E+00_JPRB,2.7942E+00_JPRB,2.3651E+00_JPRB,1.9195E+00_JPRB,&
+&1.4609E+00_JPRB,9.6392E-01_JPRB,6.1546E-01_JPRB,5.9986E-01_JPRB,1.0319E+01_JPRB/)
+KAO( :, 5,13,11) = (/&
+&3.9766E+00_JPRB,3.6110E+00_JPRB,3.2440E+00_JPRB,2.8558E+00_JPRB,2.4407E+00_JPRB,2.0092E+00_JPRB,&
+&1.5546E+00_JPRB,1.0530E+00_JPRB,7.5480E-01_JPRB,7.6043E-01_JPRB,1.0517E+01_JPRB/)
+KAO( :, 1, 1,12) = (/&
+&2.0024E+00_JPRB,1.8234E+00_JPRB,1.7233E+00_JPRB,1.6000E+00_JPRB,1.5390E+00_JPRB,1.6921E+00_JPRB,&
+&2.0059E+00_JPRB,2.3183E+00_JPRB,2.5294E+00_JPRB,2.5972E+00_JPRB,2.5881E+00_JPRB/)
+KAO( :, 2, 1,12) = (/&
+&1.9590E+00_JPRB,1.7950E+00_JPRB,1.7523E+00_JPRB,1.6313E+00_JPRB,1.6912E+00_JPRB,2.0086E+00_JPRB,&
+&2.3854E+00_JPRB,2.7609E+00_JPRB,3.0136E+00_JPRB,3.0926E+00_JPRB,3.0692E+00_JPRB/)
+KAO( :, 3, 1,12) = (/&
+&1.9218E+00_JPRB,1.7695E+00_JPRB,1.7573E+00_JPRB,1.7104E+00_JPRB,1.9221E+00_JPRB,2.3617E+00_JPRB,&
+&2.8084E+00_JPRB,3.2536E+00_JPRB,3.5528E+00_JPRB,3.6452E+00_JPRB,3.6033E+00_JPRB/)
+KAO( :, 4, 1,12) = (/&
+&1.8869E+00_JPRB,1.7776E+00_JPRB,1.7584E+00_JPRB,1.8482E+00_JPRB,2.2062E+00_JPRB,2.7254E+00_JPRB,&
+&3.2420E+00_JPRB,3.7568E+00_JPRB,4.1037E+00_JPRB,4.2125E+00_JPRB,4.1721E+00_JPRB/)
+KAO( :, 5, 1,12) = (/&
+&1.8556E+00_JPRB,1.7835E+00_JPRB,1.7826E+00_JPRB,2.0106E+00_JPRB,2.5078E+00_JPRB,3.0956E+00_JPRB,&
+&3.6815E+00_JPRB,4.2658E+00_JPRB,4.6607E+00_JPRB,4.7891E+00_JPRB,4.7658E+00_JPRB/)
+KAO( :, 1, 2,12) = (/&
+&2.1298E+00_JPRB,1.9238E+00_JPRB,1.7993E+00_JPRB,1.6635E+00_JPRB,1.5382E+00_JPRB,1.6444E+00_JPRB,&
+&1.9357E+00_JPRB,2.2355E+00_JPRB,2.4380E+00_JPRB,2.5040E+00_JPRB,2.5099E+00_JPRB/)
+KAO( :, 2, 2,12) = (/&
+&2.0858E+00_JPRB,1.8949E+00_JPRB,1.8227E+00_JPRB,1.6898E+00_JPRB,1.7064E+00_JPRB,1.9739E+00_JPRB,&
+&2.3396E+00_JPRB,2.7042E+00_JPRB,2.9505E+00_JPRB,3.0304E+00_JPRB,3.0347E+00_JPRB/)
+KAO( :, 3, 2,12) = (/&
+&2.0506E+00_JPRB,1.8767E+00_JPRB,1.8261E+00_JPRB,1.7610E+00_JPRB,1.9334E+00_JPRB,2.3331E+00_JPRB,&
+&2.7675E+00_JPRB,3.2005E+00_JPRB,3.4937E+00_JPRB,3.5905E+00_JPRB,3.6006E+00_JPRB/)
+KAO( :, 4, 2,12) = (/&
+&2.0203E+00_JPRB,1.8859E+00_JPRB,1.8248E+00_JPRB,1.8919E+00_JPRB,2.2034E+00_JPRB,2.7037E+00_JPRB,&
+&3.2087E+00_JPRB,3.7127E+00_JPRB,4.0556E+00_JPRB,4.1705E+00_JPRB,4.1872E+00_JPRB/)
+KAO( :, 5, 2,12) = (/&
+&1.9908E+00_JPRB,1.8904E+00_JPRB,1.8512E+00_JPRB,2.0461E+00_JPRB,2.4857E+00_JPRB,3.0612E+00_JPRB,&
+&3.6347E+00_JPRB,4.2084E+00_JPRB,4.6000E+00_JPRB,4.7320E+00_JPRB,4.7545E+00_JPRB/)
+KAO( :, 1, 3,12) = (/&
+&2.3152E+00_JPRB,2.0670E+00_JPRB,1.8762E+00_JPRB,1.7274E+00_JPRB,1.5513E+00_JPRB,1.5459E+00_JPRB,&
+&1.7613E+00_JPRB,2.0324E+00_JPRB,2.2184E+00_JPRB,2.2809E+00_JPRB,2.3001E+00_JPRB/)
+KAO( :, 2, 3,12) = (/&
+&2.2611E+00_JPRB,2.0302E+00_JPRB,1.8953E+00_JPRB,1.7501E+00_JPRB,1.6877E+00_JPRB,1.8252E+00_JPRB,&
+&2.1469E+00_JPRB,2.4814E+00_JPRB,2.7105E+00_JPRB,2.7886E+00_JPRB,2.8127E+00_JPRB/)
+KAO( :, 3, 3,12) = (/&
+&2.2196E+00_JPRB,2.0024E+00_JPRB,1.9041E+00_JPRB,1.8045E+00_JPRB,1.8785E+00_JPRB,2.1610E+00_JPRB,&
+&2.5580E+00_JPRB,2.9591E+00_JPRB,3.2348E+00_JPRB,3.3294E+00_JPRB,3.3602E+00_JPRB/)
+KAO( :, 4, 3,12) = (/&
+&2.1813E+00_JPRB,2.0049E+00_JPRB,1.9086E+00_JPRB,1.9162E+00_JPRB,2.1012E+00_JPRB,2.5182E+00_JPRB,&
+&2.9831E+00_JPRB,3.4549E+00_JPRB,3.7770E+00_JPRB,3.8911E+00_JPRB,3.9291E+00_JPRB/)
+KAO( :, 5, 3,12) = (/&
+&2.1479E+00_JPRB,2.0113E+00_JPRB,1.9331E+00_JPRB,2.0520E+00_JPRB,2.3502E+00_JPRB,2.8679E+00_JPRB,&
+&3.4008E+00_JPRB,3.9406E+00_JPRB,4.3094E+00_JPRB,4.4428E+00_JPRB,4.4869E+00_JPRB/)
+KAO( :, 1, 4,12) = (/&
+&2.5457E+00_JPRB,2.2591E+00_JPRB,2.0008E+00_JPRB,1.7948E+00_JPRB,1.5715E+00_JPRB,1.4721E+00_JPRB,&
+&1.5451E+00_JPRB,1.7860E+00_JPRB,1.9513E+00_JPRB,2.0089E+00_JPRB,2.0285E+00_JPRB/)
+KAO( :, 2, 4,12) = (/&
+&2.4902E+00_JPRB,2.2151E+00_JPRB,2.0050E+00_JPRB,1.8035E+00_JPRB,1.6846E+00_JPRB,1.6830E+00_JPRB,&
+&1.9079E+00_JPRB,2.2087E+00_JPRB,2.4143E+00_JPRB,2.4852E+00_JPRB,2.5099E+00_JPRB/)
+KAO( :, 3, 4,12) = (/&
+&2.4431E+00_JPRB,2.1812E+00_JPRB,2.0033E+00_JPRB,1.8558E+00_JPRB,1.8346E+00_JPRB,1.9529E+00_JPRB,&
+&2.2983E+00_JPRB,2.6628E+00_JPRB,2.9108E+00_JPRB,2.9983E+00_JPRB,3.0280E+00_JPRB/)
+KAO( :, 4, 4,12) = (/&
+&2.3979E+00_JPRB,2.1681E+00_JPRB,1.9996E+00_JPRB,1.9562E+00_JPRB,2.0099E+00_JPRB,2.2734E+00_JPRB,&
+&2.7005E+00_JPRB,3.1310E+00_JPRB,3.4248E+00_JPRB,3.5296E+00_JPRB,3.5651E+00_JPRB/)
+KAO( :, 5, 4,12) = (/&
+&2.3549E+00_JPRB,2.1677E+00_JPRB,2.0250E+00_JPRB,2.0706E+00_JPRB,2.2012E+00_JPRB,2.6084E+00_JPRB,&
+&3.1023E+00_JPRB,3.5987E+00_JPRB,3.9377E+00_JPRB,4.0590E+00_JPRB,4.0984E+00_JPRB/)
+KAO( :, 1, 5,12) = (/&
+&2.7985E+00_JPRB,2.4747E+00_JPRB,2.1629E+00_JPRB,1.9120E+00_JPRB,1.6257E+00_JPRB,1.4332E+00_JPRB,&
+&1.3851E+00_JPRB,1.5480E+00_JPRB,1.6917E+00_JPRB,1.7423E+00_JPRB,1.7595E+00_JPRB/)
+KAO( :, 2, 5,12) = (/&
+&2.7492E+00_JPRB,2.4385E+00_JPRB,2.1709E+00_JPRB,1.9088E+00_JPRB,1.7063E+00_JPRB,1.6093E+00_JPRB,&
+&1.6827E+00_JPRB,1.9416E+00_JPRB,2.1228E+00_JPRB,2.1868E+00_JPRB,2.2077E+00_JPRB/)
+KAO( :, 3, 5,12) = (/&
+&2.7030E+00_JPRB,2.4052E+00_JPRB,2.1654E+00_JPRB,1.9357E+00_JPRB,1.8221E+00_JPRB,1.8325E+00_JPRB,&
+&2.0441E+00_JPRB,2.3696E+00_JPRB,2.5914E+00_JPRB,2.6707E+00_JPRB,2.6969E+00_JPRB/)
+KAO( :, 4, 5,12) = (/&
+&2.6567E+00_JPRB,2.3812E+00_JPRB,2.1576E+00_JPRB,2.0192E+00_JPRB,1.9790E+00_JPRB,2.0835E+00_JPRB,&
+&2.4268E+00_JPRB,2.8144E+00_JPRB,3.0796E+00_JPRB,3.1741E+00_JPRB,3.2046E+00_JPRB/)
+KAO( :, 5, 5,12) = (/&
+&2.6110E+00_JPRB,2.3730E+00_JPRB,2.1635E+00_JPRB,2.1182E+00_JPRB,2.1485E+00_JPRB,2.3741E+00_JPRB,&
+&2.8181E+00_JPRB,3.2699E+00_JPRB,3.5786E+00_JPRB,3.6897E+00_JPRB,3.7249E+00_JPRB/)
+KAO( :, 1, 6,12) = (/&
+&3.0669E+00_JPRB,2.7085E+00_JPRB,2.3540E+00_JPRB,2.0714E+00_JPRB,1.7429E+00_JPRB,1.4581E+00_JPRB,&
+&1.2708E+00_JPRB,1.2992E+00_JPRB,1.4199E+00_JPRB,1.4638E+00_JPRB,1.4769E+00_JPRB/)
+KAO( :, 2, 6,12) = (/&
+&3.0273E+00_JPRB,2.6834E+00_JPRB,2.3740E+00_JPRB,2.0802E+00_JPRB,1.7965E+00_JPRB,1.5717E+00_JPRB,&
+&1.5052E+00_JPRB,1.6583E+00_JPRB,1.8132E+00_JPRB,1.8699E+00_JPRB,1.8859E+00_JPRB/)
+KAO( :, 3, 6,12) = (/&
+&2.9774E+00_JPRB,2.6481E+00_JPRB,2.3757E+00_JPRB,2.0942E+00_JPRB,1.8671E+00_JPRB,1.7544E+00_JPRB,&
+&1.8026E+00_JPRB,2.0622E+00_JPRB,2.2566E+00_JPRB,2.3275E+00_JPRB,2.3474E+00_JPRB/)
+KAO( :, 4, 6,12) = (/&
+&2.9289E+00_JPRB,2.6161E+00_JPRB,2.3748E+00_JPRB,2.1584E+00_JPRB,1.9838E+00_JPRB,1.9738E+00_JPRB,&
+&2.1469E+00_JPRB,2.4888E+00_JPRB,2.7236E+00_JPRB,2.8101E+00_JPRB,2.8355E+00_JPRB/)
+KAO( :, 5, 6,12) = (/&
+&2.8845E+00_JPRB,2.6155E+00_JPRB,2.3754E+00_JPRB,2.2196E+00_JPRB,2.1301E+00_JPRB,2.2099E+00_JPRB,&
+&2.5314E+00_JPRB,2.9385E+00_JPRB,3.2168E+00_JPRB,3.3176E+00_JPRB,3.3483E+00_JPRB/)
+KAO( :, 1, 7,12) = (/&
+&3.3664E+00_JPRB,2.9675E+00_JPRB,2.5762E+00_JPRB,2.2561E+00_JPRB,1.8881E+00_JPRB,1.5413E+00_JPRB,&
+&1.2170E+00_JPRB,1.0953E+00_JPRB,1.1799E+00_JPRB,1.2170E+00_JPRB,1.2273E+00_JPRB/)
+KAO( :, 2, 7,12) = (/&
+&3.3233E+00_JPRB,2.9434E+00_JPRB,2.5928E+00_JPRB,2.2752E+00_JPRB,1.9335E+00_JPRB,1.6227E+00_JPRB,&
+&1.3832E+00_JPRB,1.3998E+00_JPRB,1.5310E+00_JPRB,1.5791E+00_JPRB,1.5922E+00_JPRB/)
+KAO( :, 3, 7,12) = (/&
+&3.2746E+00_JPRB,2.9093E+00_JPRB,2.6019E+00_JPRB,2.2869E+00_JPRB,2.0053E+00_JPRB,1.7360E+00_JPRB,&
+&1.6231E+00_JPRB,1.7636E+00_JPRB,1.9299E+00_JPRB,1.9918E+00_JPRB,2.0082E+00_JPRB/)
+KAO( :, 4, 7,12) = (/&
+&3.2312E+00_JPRB,2.8766E+00_JPRB,2.6067E+00_JPRB,2.3470E+00_JPRB,2.0847E+00_JPRB,1.8980E+00_JPRB,&
+&1.9031E+00_JPRB,2.1576E+00_JPRB,2.3620E+00_JPRB,2.4387E+00_JPRB,2.4578E+00_JPRB/)
+KAO( :, 5, 7,12) = (/&
+&3.1925E+00_JPRB,2.8793E+00_JPRB,2.6061E+00_JPRB,2.4035E+00_JPRB,2.1834E+00_JPRB,2.1023E+00_JPRB,&
+&2.2418E+00_JPRB,2.5923E+00_JPRB,2.8385E+00_JPRB,2.9297E+00_JPRB,2.9542E+00_JPRB/)
+KAO( :, 1, 8,12) = (/&
+&3.6796E+00_JPRB,3.2357E+00_JPRB,2.8155E+00_JPRB,2.4508E+00_JPRB,2.0518E+00_JPRB,1.6449E+00_JPRB,&
+&1.2564E+00_JPRB,9.4794E-01_JPRB,9.6423E-01_JPRB,9.9527E-01_JPRB,1.0031E+00_JPRB/)
+KAO( :, 2, 8,12) = (/&
+&3.6371E+00_JPRB,3.2182E+00_JPRB,2.8214E+00_JPRB,2.4857E+00_JPRB,2.0950E+00_JPRB,1.7292E+00_JPRB,&
+&1.3545E+00_JPRB,1.1961E+00_JPRB,1.2815E+00_JPRB,1.3224E+00_JPRB,1.3335E+00_JPRB/)
+KAO( :, 3, 8,12) = (/&
+&3.5989E+00_JPRB,3.1965E+00_JPRB,2.8529E+00_JPRB,2.5009E+00_JPRB,2.1656E+00_JPRB,1.8143E+00_JPRB,&
+&1.5162E+00_JPRB,1.5048E+00_JPRB,1.6425E+00_JPRB,1.6953E+00_JPRB,1.7094E+00_JPRB/)
+KAO( :, 4, 8,12) = (/&
+&3.5657E+00_JPRB,3.1726E+00_JPRB,2.8689E+00_JPRB,2.5490E+00_JPRB,2.2397E+00_JPRB,1.9179E+00_JPRB,&
+&1.7462E+00_JPRB,1.8651E+00_JPRB,2.0421E+00_JPRB,2.1078E+00_JPRB,2.1252E+00_JPRB/)
+KAO( :, 5, 8,12) = (/&
+&3.5352E+00_JPRB,3.1791E+00_JPRB,2.8690E+00_JPRB,2.6021E+00_JPRB,2.3244E+00_JPRB,2.0668E+00_JPRB,&
+&2.0251E+00_JPRB,2.2682E+00_JPRB,2.4843E+00_JPRB,2.5643E+00_JPRB,2.5857E+00_JPRB/)
+KAO( :, 1, 9,12) = (/&
+&4.0318E+00_JPRB,3.5333E+00_JPRB,3.0785E+00_JPRB,2.6542E+00_JPRB,2.2190E+00_JPRB,1.7557E+00_JPRB,&
+&1.3174E+00_JPRB,8.6677E-01_JPRB,7.7038E-01_JPRB,7.9546E-01_JPRB,1.7542E+00_JPRB/)
+KAO( :, 2, 9,12) = (/&
+&4.0030E+00_JPRB,3.5307E+00_JPRB,3.0824E+00_JPRB,2.7001E+00_JPRB,2.2575E+00_JPRB,1.8461E+00_JPRB,&
+&1.4064E+00_JPRB,1.0445E+00_JPRB,1.0532E+00_JPRB,1.0871E+00_JPRB,1.8981E+00_JPRB/)
+KAO( :, 3, 9,12) = (/&
+&3.9727E+00_JPRB,3.5227E+00_JPRB,3.1268E+00_JPRB,2.7209E+00_JPRB,2.3294E+00_JPRB,1.9265E+00_JPRB,&
+&1.5119E+00_JPRB,1.3023E+00_JPRB,1.3838E+00_JPRB,1.4291E+00_JPRB,2.0473E+00_JPRB/)
+KAO( :, 4, 9,12) = (/&
+&3.9416E+00_JPRB,3.5045E+00_JPRB,3.1488E+00_JPRB,2.7628E+00_JPRB,2.4024E+00_JPRB,2.0175E+00_JPRB,&
+&1.6727E+00_JPRB,1.6129E+00_JPRB,1.7549E+00_JPRB,1.8115E+00_JPRB,2.2264E+00_JPRB/)
+KAO( :, 5, 9,12) = (/&
+&3.9107E+00_JPRB,3.5025E+00_JPRB,3.1553E+00_JPRB,2.8210E+00_JPRB,2.4858E+00_JPRB,2.1278E+00_JPRB,&
+&1.8886E+00_JPRB,1.9733E+00_JPRB,2.1611E+00_JPRB,2.2311E+00_JPRB,2.4535E+00_JPRB/)
+KAO( :, 1,10,12) = (/&
+&4.3955E+00_JPRB,3.8477E+00_JPRB,3.3521E+00_JPRB,2.8767E+00_JPRB,2.3926E+00_JPRB,1.8785E+00_JPRB,&
+&1.3866E+00_JPRB,8.6336E-01_JPRB,6.3346E-01_JPRB,6.4780E-01_JPRB,7.3111E+00_JPRB/)
+KAO( :, 2,10,12) = (/&
+&4.3744E+00_JPRB,3.8521E+00_JPRB,3.3628E+00_JPRB,2.9299E+00_JPRB,2.4350E+00_JPRB,1.9605E+00_JPRB,&
+&1.4761E+00_JPRB,9.8354E-01_JPRB,8.7753E-01_JPRB,9.0596E-01_JPRB,7.5369E+00_JPRB/)
+KAO( :, 3,10,12) = (/&
+&4.3454E+00_JPRB,3.8426E+00_JPRB,3.4089E+00_JPRB,2.9580E+00_JPRB,2.5003E+00_JPRB,2.0431E+00_JPRB,&
+&1.5702E+00_JPRB,1.1751E+00_JPRB,1.1717E+00_JPRB,1.2103E+00_JPRB,7.6962E+00_JPRB/)
+KAO( :, 4,10,12) = (/&
+&4.3187E+00_JPRB,3.8382E+00_JPRB,3.4396E+00_JPRB,2.9970E+00_JPRB,2.5770E+00_JPRB,2.1340E+00_JPRB,&
+&1.7005E+00_JPRB,1.4326E+00_JPRB,1.5105E+00_JPRB,1.5607E+00_JPRB,7.8986E+00_JPRB/)
+KAO( :, 5,10,12) = (/&
+&4.2903E+00_JPRB,3.8382E+00_JPRB,3.4516E+00_JPRB,3.0612E+00_JPRB,2.6632E+00_JPRB,2.2380E+00_JPRB,&
+&1.8630E+00_JPRB,1.7458E+00_JPRB,1.8899E+00_JPRB,1.9522E+00_JPRB,8.1725E+00_JPRB/)
+KAO( :, 1,11,12) = (/&
+&4.7308E+00_JPRB,4.1459E+00_JPRB,3.6107E+00_JPRB,3.1115E+00_JPRB,2.5799E+00_JPRB,2.0280E+00_JPRB,&
+&1.4948E+00_JPRB,9.2025E-01_JPRB,6.1405E-01_JPRB,6.1696E-01_JPRB,1.2757E+01_JPRB/)
+KAO( :, 2,11,12) = (/&
+&4.7091E+00_JPRB,4.1481E+00_JPRB,3.6443E+00_JPRB,3.1635E+00_JPRB,2.6293E+00_JPRB,2.1180E+00_JPRB,&
+&1.5850E+00_JPRB,1.0412E+00_JPRB,8.3722E-01_JPRB,8.6133E-01_JPRB,1.3027E+01_JPRB/)
+KAO( :, 3,11,12) = (/&
+&4.6897E+00_JPRB,4.1435E+00_JPRB,3.6990E+00_JPRB,3.1970E+00_JPRB,2.7141E+00_JPRB,2.2094E+00_JPRB,&
+&1.6909E+00_JPRB,1.1958E+00_JPRB,1.1123E+00_JPRB,1.1498E+00_JPRB,1.3314E+01_JPRB/)
+KAO( :, 4,11,12) = (/&
+&4.6692E+00_JPRB,4.1531E+00_JPRB,3.7297E+00_JPRB,3.2622E+00_JPRB,2.7974E+00_JPRB,2.3063E+00_JPRB,&
+&1.8183E+00_JPRB,1.4163E+00_JPRB,1.4330E+00_JPRB,1.4813E+00_JPRB,1.3489E+01_JPRB/)
+KAO( :, 5,11,12) = (/&
+&4.6420E+00_JPRB,4.1769E+00_JPRB,3.7456E+00_JPRB,3.3296E+00_JPRB,2.8874E+00_JPRB,2.4151E+00_JPRB,&
+&1.9751E+00_JPRB,1.6959E+00_JPRB,1.7942E+00_JPRB,1.8551E+00_JPRB,1.3680E+01_JPRB/)
+KAO( :, 1,12,12) = (/&
+&5.0416E+00_JPRB,4.4234E+00_JPRB,3.8522E+00_JPRB,3.3241E+00_JPRB,2.7470E+00_JPRB,2.1693E+00_JPRB,&
+&1.6007E+00_JPRB,9.8107E-01_JPRB,5.9628E-01_JPRB,5.7876E-01_JPRB,1.6383E+01_JPRB/)
+KAO( :, 2,12,12) = (/&
+&5.0347E+00_JPRB,4.4335E+00_JPRB,3.9118E+00_JPRB,3.3765E+00_JPRB,2.8152E+00_JPRB,2.2721E+00_JPRB,&
+&1.6921E+00_JPRB,1.0981E+00_JPRB,7.9216E-01_JPRB,8.0484E-01_JPRB,1.6695E+01_JPRB/)
+KAO( :, 3,12,12) = (/&
+&5.0354E+00_JPRB,4.4439E+00_JPRB,3.9725E+00_JPRB,3.4283E+00_JPRB,2.9170E+00_JPRB,2.3708E+00_JPRB,&
+&1.8115E+00_JPRB,1.2441E+00_JPRB,1.0402E+00_JPRB,1.0726E+00_JPRB,1.7028E+01_JPRB/)
+KAO( :, 4,12,12) = (/&
+&5.0236E+00_JPRB,4.4684E+00_JPRB,4.0052E+00_JPRB,3.5139E+00_JPRB,3.0129E+00_JPRB,2.4842E+00_JPRB,&
+&1.9405E+00_JPRB,1.4225E+00_JPRB,1.3339E+00_JPRB,1.3805E+00_JPRB,1.7215E+01_JPRB/)
+KAO( :, 5,12,12) = (/&
+&5.0049E+00_JPRB,4.5094E+00_JPRB,4.0368E+00_JPRB,3.5937E+00_JPRB,3.1097E+00_JPRB,2.6019E+00_JPRB,&
+&2.0929E+00_JPRB,1.6533E+00_JPRB,1.6680E+00_JPRB,1.7268E+00_JPRB,1.7382E+01_JPRB/)
+KAO( :, 1,13,12) = (/&
+&5.3304E+00_JPRB,4.6811E+00_JPRB,4.0819E+00_JPRB,3.5134E+00_JPRB,2.8970E+00_JPRB,2.2995E+00_JPRB,&
+&1.6906E+00_JPRB,1.0389E+00_JPRB,5.8422E-01_JPRB,5.3149E-01_JPRB,1.6186E+01_JPRB/)
+KAO( :, 2,13,12) = (/&
+&5.3554E+00_JPRB,4.7152E+00_JPRB,4.1740E+00_JPRB,3.5813E+00_JPRB,2.9917E+00_JPRB,2.4106E+00_JPRB,&
+&1.7931E+00_JPRB,1.1573E+00_JPRB,7.4488E-01_JPRB,7.3540E-01_JPRB,1.6553E+01_JPRB/)
+KAO( :, 3,13,12) = (/&
+&5.3653E+00_JPRB,4.7361E+00_JPRB,4.2367E+00_JPRB,3.6559E+00_JPRB,3.0996E+00_JPRB,2.5206E+00_JPRB,&
+&1.9222E+00_JPRB,1.2910E+00_JPRB,9.5651E-01_JPRB,9.7652E-01_JPRB,1.6790E+01_JPRB/)
+KAO( :, 4,13,12) = (/&
+&5.3597E+00_JPRB,4.7768E+00_JPRB,4.2708E+00_JPRB,3.7474E+00_JPRB,3.2027E+00_JPRB,2.6474E+00_JPRB,&
+&2.0605E+00_JPRB,1.4452E+00_JPRB,1.2190E+00_JPRB,1.2583E+00_JPRB,1.6940E+01_JPRB/)
+KAO( :, 5,13,12) = (/&
+&5.3540E+00_JPRB,4.8243E+00_JPRB,4.3295E+00_JPRB,3.8360E+00_JPRB,3.3105E+00_JPRB,2.7756E+00_JPRB,&
+&2.2095E+00_JPRB,1.6297E+00_JPRB,1.5189E+00_JPRB,1.5724E+00_JPRB,1.7194E+01_JPRB/)
+KAO( :, 1, 1,13) = (/&
+&2.4839E+00_JPRB,2.2228E+00_JPRB,1.9877E+00_JPRB,1.9817E+00_JPRB,2.1295E+00_JPRB,2.6064E+00_JPRB,&
+&3.1026E+00_JPRB,3.6009E+00_JPRB,3.9384E+00_JPRB,4.0531E+00_JPRB,4.0630E+00_JPRB/)
+KAO( :, 2, 1,13) = (/&
+&2.4167E+00_JPRB,2.1788E+00_JPRB,2.0545E+00_JPRB,2.1075E+00_JPRB,2.4600E+00_JPRB,3.0319E+00_JPRB,&
+&3.6075E+00_JPRB,4.1850E+00_JPRB,4.5773E+00_JPRB,4.7124E+00_JPRB,4.7383E+00_JPRB/)
+KAO( :, 3, 1,13) = (/&
+&2.3519E+00_JPRB,2.1341E+00_JPRB,2.1343E+00_JPRB,2.2717E+00_JPRB,2.8227E+00_JPRB,3.4785E+00_JPRB,&
+&4.1394E+00_JPRB,4.8027E+00_JPRB,5.2528E+00_JPRB,5.4080E+00_JPRB,5.4468E+00_JPRB/)
+KAO( :, 4, 1,13) = (/&
+&2.2895E+00_JPRB,2.0936E+00_JPRB,2.2122E+00_JPRB,2.4949E+00_JPRB,3.2196E+00_JPRB,3.9764E+00_JPRB,&
+&4.7367E+00_JPRB,5.4979E+00_JPRB,6.0151E+00_JPRB,6.1897E+00_JPRB,6.2191E+00_JPRB/)
+KAO( :, 5, 1,13) = (/&
+&2.2294E+00_JPRB,2.0855E+00_JPRB,2.2831E+00_JPRB,2.7897E+00_JPRB,3.6518E+00_JPRB,4.5202E+00_JPRB,&
+&5.3909E+00_JPRB,6.2623E+00_JPRB,6.8525E+00_JPRB,7.0478E+00_JPRB,7.0466E+00_JPRB/)
+KAO( :, 1, 2,13) = (/&
+&2.6401E+00_JPRB,2.3655E+00_JPRB,2.1111E+00_JPRB,2.0137E+00_JPRB,2.0825E+00_JPRB,2.5044E+00_JPRB,&
+&2.9828E+00_JPRB,3.4624E+00_JPRB,3.7882E+00_JPRB,3.8997E+00_JPRB,3.9250E+00_JPRB/)
+KAO( :, 2, 2,13) = (/&
+&2.5670E+00_JPRB,2.3197E+00_JPRB,2.1659E+00_JPRB,2.1086E+00_JPRB,2.3636E+00_JPRB,2.9098E+00_JPRB,&
+&3.4676E+00_JPRB,4.0262E+00_JPRB,4.4056E+00_JPRB,4.5331E+00_JPRB,4.5625E+00_JPRB/)
+KAO( :, 3, 2,13) = (/&
+&2.4971E+00_JPRB,2.2719E+00_JPRB,2.2158E+00_JPRB,2.2307E+00_JPRB,2.7197E+00_JPRB,3.3654E+00_JPRB,&
+&4.0138E+00_JPRB,4.6621E+00_JPRB,5.1023E+00_JPRB,5.2462E+00_JPRB,5.2684E+00_JPRB/)
+KAO( :, 4, 2,13) = (/&
+&2.4323E+00_JPRB,2.2338E+00_JPRB,2.2635E+00_JPRB,2.4358E+00_JPRB,3.1246E+00_JPRB,3.8712E+00_JPRB,&
+&4.6205E+00_JPRB,5.3694E+00_JPRB,5.8768E+00_JPRB,6.0401E+00_JPRB,6.0554E+00_JPRB/)
+KAO( :, 5, 2,13) = (/&
+&2.3760E+00_JPRB,2.2281E+00_JPRB,2.3133E+00_JPRB,2.7376E+00_JPRB,3.5897E+00_JPRB,4.4519E+00_JPRB,&
+&5.3157E+00_JPRB,6.1803E+00_JPRB,6.7635E+00_JPRB,6.9497E+00_JPRB,6.9610E+00_JPRB/)
+KAO( :, 1, 3,13) = (/&
+&2.8086E+00_JPRB,2.5114E+00_JPRB,2.2208E+00_JPRB,2.0677E+00_JPRB,2.0427E+00_JPRB,2.3373E+00_JPRB,&
+&2.7874E+00_JPRB,3.2384E+00_JPRB,3.5440E+00_JPRB,3.6445E+00_JPRB,3.6749E+00_JPRB/)
+KAO( :, 2, 3,13) = (/&
+&2.7404E+00_JPRB,2.4643E+00_JPRB,2.2716E+00_JPRB,2.1464E+00_JPRB,2.2628E+00_JPRB,2.7529E+00_JPRB,&
+&3.2849E+00_JPRB,3.8172E+00_JPRB,4.1782E+00_JPRB,4.2940E+00_JPRB,4.3270E+00_JPRB/)
+KAO( :, 3, 3,13) = (/&
+&2.6764E+00_JPRB,2.4178E+00_JPRB,2.3087E+00_JPRB,2.2456E+00_JPRB,2.5986E+00_JPRB,3.2215E+00_JPRB,&
+&3.8463E+00_JPRB,4.4711E+00_JPRB,4.8938E+00_JPRB,5.0274E+00_JPRB,5.0645E+00_JPRB/)
+KAO( :, 4, 3,13) = (/&
+&2.6211E+00_JPRB,2.3803E+00_JPRB,2.3402E+00_JPRB,2.4064E+00_JPRB,3.0169E+00_JPRB,3.7447E+00_JPRB,&
+&4.4738E+00_JPRB,5.2031E+00_JPRB,5.6949E+00_JPRB,5.8469E+00_JPRB,5.8866E+00_JPRB/)
+KAO( :, 5, 3,13) = (/&
+&2.5706E+00_JPRB,2.3763E+00_JPRB,2.3730E+00_JPRB,2.6809E+00_JPRB,3.4926E+00_JPRB,4.3391E+00_JPRB,&
+&5.1873E+00_JPRB,6.0352E+00_JPRB,6.6054E+00_JPRB,6.7799E+00_JPRB,6.8242E+00_JPRB/)
+KAO( :, 1, 4,13) = (/&
+&2.9705E+00_JPRB,2.6437E+00_JPRB,2.3228E+00_JPRB,2.1502E+00_JPRB,2.0620E+00_JPRB,2.1581E+00_JPRB,&
+&2.5548E+00_JPRB,2.9693E+00_JPRB,3.2504E+00_JPRB,3.3452E+00_JPRB,3.3799E+00_JPRB/)
+KAO( :, 2, 4,13) = (/&
+&2.9060E+00_JPRB,2.6045E+00_JPRB,2.3805E+00_JPRB,2.2339E+00_JPRB,2.2319E+00_JPRB,2.5887E+00_JPRB,&
+&3.0909E+00_JPRB,3.5931E+00_JPRB,3.9330E+00_JPRB,4.0437E+00_JPRB,4.0869E+00_JPRB/)
+KAO( :, 3, 4,13) = (/&
+&2.8503E+00_JPRB,2.5669E+00_JPRB,2.4183E+00_JPRB,2.3219E+00_JPRB,2.5237E+00_JPRB,3.0875E+00_JPRB,&
+&3.6882E+00_JPRB,4.2895E+00_JPRB,4.6950E+00_JPRB,4.8250E+00_JPRB,4.8772E+00_JPRB/)
+KAO( :, 4, 4,13) = (/&
+&2.8040E+00_JPRB,2.5355E+00_JPRB,2.4511E+00_JPRB,2.4730E+00_JPRB,2.9343E+00_JPRB,3.6460E+00_JPRB,&
+&4.3587E+00_JPRB,5.0710E+00_JPRB,5.5512E+00_JPRB,5.6975E+00_JPRB,5.7609E+00_JPRB/)
+KAO( :, 5, 4,13) = (/&
+&2.7640E+00_JPRB,2.5346E+00_JPRB,2.4816E+00_JPRB,2.7138E+00_JPRB,3.4317E+00_JPRB,4.2678E+00_JPRB,&
+&5.1048E+00_JPRB,5.9414E+00_JPRB,6.5038E+00_JPRB,6.6733E+00_JPRB,6.7499E+00_JPRB/)
+KAO( :, 1, 5,13) = (/&
+&3.2157E+00_JPRB,2.8490E+00_JPRB,2.4890E+00_JPRB,2.2607E+00_JPRB,2.1003E+00_JPRB,2.0316E+00_JPRB,&
+&2.2821E+00_JPRB,2.6531E+00_JPRB,2.9050E+00_JPRB,2.9914E+00_JPRB,3.0227E+00_JPRB/)
+KAO( :, 2, 5,13) = (/&
+&3.1462E+00_JPRB,2.8052E+00_JPRB,2.5301E+00_JPRB,2.3469E+00_JPRB,2.2490E+00_JPRB,2.3958E+00_JPRB,&
+&2.8314E+00_JPRB,3.2925E+00_JPRB,3.6050E+00_JPRB,3.7092E+00_JPRB,3.7515E+00_JPRB/)
+KAO( :, 3, 5,13) = (/&
+&3.0906E+00_JPRB,2.7658E+00_JPRB,2.5622E+00_JPRB,2.4318E+00_JPRB,2.4969E+00_JPRB,2.8886E+00_JPRB,&
+&3.4523E+00_JPRB,4.0155E+00_JPRB,4.3974E+00_JPRB,4.5211E+00_JPRB,4.5746E+00_JPRB/)
+KAO( :, 4, 5,13) = (/&
+&3.0486E+00_JPRB,2.7373E+00_JPRB,2.5958E+00_JPRB,2.5683E+00_JPRB,2.8557E+00_JPRB,3.4815E+00_JPRB,&
+&4.1633E+00_JPRB,4.8446E+00_JPRB,5.3051E+00_JPRB,5.4504E+00_JPRB,5.5199E+00_JPRB/)
+KAO( :, 5, 5,13) = (/&
+&3.0130E+00_JPRB,2.7440E+00_JPRB,2.6274E+00_JPRB,2.8078E+00_JPRB,3.3228E+00_JPRB,4.1277E+00_JPRB,&
+&4.9382E+00_JPRB,5.7481E+00_JPRB,6.2955E+00_JPRB,6.4701E+00_JPRB,6.5508E+00_JPRB/)
+KAO( :, 1, 6,13) = (/&
+&3.5873E+00_JPRB,3.1674E+00_JPRB,2.7646E+00_JPRB,2.4502E+00_JPRB,2.1689E+00_JPRB,1.9718E+00_JPRB,&
+&2.0147E+00_JPRB,2.3234E+00_JPRB,2.5447E+00_JPRB,2.6195E+00_JPRB,2.6494E+00_JPRB/)
+KAO( :, 2, 6,13) = (/&
+&3.5157E+00_JPRB,3.1229E+00_JPRB,2.7666E+00_JPRB,2.5046E+00_JPRB,2.2807E+00_JPRB,2.2712E+00_JPRB,&
+&2.5407E+00_JPRB,2.9561E+00_JPRB,3.2371E+00_JPRB,3.3302E+00_JPRB,3.3702E+00_JPRB/)
+KAO( :, 3, 6,13) = (/&
+&3.4666E+00_JPRB,3.0873E+00_JPRB,2.7933E+00_JPRB,2.5658E+00_JPRB,2.5099E+00_JPRB,2.6904E+00_JPRB,&
+&3.1624E+00_JPRB,3.6822E+00_JPRB,4.0323E+00_JPRB,4.1466E+00_JPRB,4.1994E+00_JPRB/)
+KAO( :, 4, 6,13) = (/&
+&3.4223E+00_JPRB,3.0572E+00_JPRB,2.8088E+00_JPRB,2.6700E+00_JPRB,2.8225E+00_JPRB,3.2304E+00_JPRB,&
+&3.8614E+00_JPRB,4.4961E+00_JPRB,4.9248E+00_JPRB,5.0662E+00_JPRB,5.1277E+00_JPRB/)
+KAO( :, 5, 6,13) = (/&
+&3.3760E+00_JPRB,3.0424E+00_JPRB,2.8322E+00_JPRB,2.8911E+00_JPRB,3.2026E+00_JPRB,3.8541E+00_JPRB,&
+&4.6128E+00_JPRB,5.3710E+00_JPRB,5.8848E+00_JPRB,6.0557E+00_JPRB,6.1288E+00_JPRB/)
+KAO( :, 1, 7,13) = (/&
+&4.0318E+00_JPRB,3.5414E+00_JPRB,3.1020E+00_JPRB,2.7107E+00_JPRB,2.3308E+00_JPRB,1.9686E+00_JPRB,&
+&1.8437E+00_JPRB,2.0053E+00_JPRB,2.1966E+00_JPRB,2.2625E+00_JPRB,2.2876E+00_JPRB/)
+KAO( :, 2, 7,13) = (/&
+&3.9753E+00_JPRB,3.5219E+00_JPRB,3.0843E+00_JPRB,2.7586E+00_JPRB,2.3913E+00_JPRB,2.2135E+00_JPRB,&
+&2.2792E+00_JPRB,2.6148E+00_JPRB,2.8647E+00_JPRB,2.9486E+00_JPRB,2.9838E+00_JPRB/)
+KAO( :, 3, 7,13) = (/&
+&3.9273E+00_JPRB,3.4958E+00_JPRB,3.1284E+00_JPRB,2.7893E+00_JPRB,2.5460E+00_JPRB,2.5637E+00_JPRB,&
+&2.8433E+00_JPRB,3.3088E+00_JPRB,3.6254E+00_JPRB,3.7327E+00_JPRB,3.7756E+00_JPRB/)
+KAO( :, 4, 7,13) = (/&
+&3.8768E+00_JPRB,3.4612E+00_JPRB,3.1354E+00_JPRB,2.8419E+00_JPRB,2.8178E+00_JPRB,3.0023E+00_JPRB,&
+&3.5065E+00_JPRB,4.0831E+00_JPRB,4.4749E+00_JPRB,4.6081E+00_JPRB,4.6607E+00_JPRB/)
+KAO( :, 5, 7,13) = (/&
+&3.8207E+00_JPRB,3.4295E+00_JPRB,3.1455E+00_JPRB,3.0110E+00_JPRB,3.1435E+00_JPRB,3.5518E+00_JPRB,&
+&4.2303E+00_JPRB,4.9268E+00_JPRB,5.4004E+00_JPRB,5.5634E+00_JPRB,5.6245E+00_JPRB/)
+KAO( :, 1, 8,13) = (/&
+&4.5607E+00_JPRB,3.9914E+00_JPRB,3.4954E+00_JPRB,3.0029E+00_JPRB,2.5709E+00_JPRB,2.0712E+00_JPRB,&
+&1.7381E+00_JPRB,1.7156E+00_JPRB,1.8751E+00_JPRB,1.9316E+00_JPRB,1.9534E+00_JPRB/)
+KAO( :, 2, 8,13) = (/&
+&4.5049E+00_JPRB,3.9749E+00_JPRB,3.4687E+00_JPRB,3.0674E+00_JPRB,2.6040E+00_JPRB,2.2247E+00_JPRB,&
+&2.0925E+00_JPRB,2.2663E+00_JPRB,2.4833E+00_JPRB,2.5592E+00_JPRB,2.5867E+00_JPRB/)
+KAO( :, 3, 8,13) = (/&
+&4.4464E+00_JPRB,3.9470E+00_JPRB,3.5041E+00_JPRB,3.0976E+00_JPRB,2.6943E+00_JPRB,2.4990E+00_JPRB,&
+&2.5535E+00_JPRB,2.9086E+00_JPRB,3.1877E+00_JPRB,3.2861E+00_JPRB,3.3201E+00_JPRB/)
+KAO( :, 4, 8,13) = (/&
+&4.3818E+00_JPRB,3.9082E+00_JPRB,3.5223E+00_JPRB,3.1240E+00_JPRB,2.8867E+00_JPRB,2.8624E+00_JPRB,&
+&3.1305E+00_JPRB,3.6344E+00_JPRB,3.9841E+00_JPRB,4.1071E+00_JPRB,4.1503E+00_JPRB/)
+KAO( :, 5, 8,13) = (/&
+&4.3157E+00_JPRB,3.8635E+00_JPRB,3.5342E+00_JPRB,3.2389E+00_JPRB,3.1422E+00_JPRB,3.3087E+00_JPRB,&
+&3.8133E+00_JPRB,4.4423E+00_JPRB,4.8694E+00_JPRB,5.0203E+00_JPRB,5.0730E+00_JPRB/)
+KAO( :, 1, 9,13) = (/&
+&5.1388E+00_JPRB,4.4967E+00_JPRB,3.9252E+00_JPRB,3.3415E+00_JPRB,2.8260E+00_JPRB,2.2549E+00_JPRB,&
+&1.7301E+00_JPRB,1.4899E+00_JPRB,1.5781E+00_JPRB,1.6272E+00_JPRB,2.1902E+00_JPRB/)
+KAO( :, 2, 9,13) = (/&
+&5.0816E+00_JPRB,4.4676E+00_JPRB,3.8997E+00_JPRB,3.4081E+00_JPRB,2.8754E+00_JPRB,2.3488E+00_JPRB,&
+&1.9883E+00_JPRB,1.9458E+00_JPRB,2.1210E+00_JPRB,2.1876E+00_JPRB,2.4675E+00_JPRB/)
+KAO( :, 3, 9,13) = (/&
+&5.0129E+00_JPRB,4.4339E+00_JPRB,3.9077E+00_JPRB,3.4536E+00_JPRB,2.9357E+00_JPRB,2.5363E+00_JPRB,&
+&2.3438E+00_JPRB,2.5133E+00_JPRB,2.7551E+00_JPRB,2.8417E+00_JPRB,2.9456E+00_JPRB/)
+KAO( :, 4, 9,13) = (/&
+&4.9367E+00_JPRB,4.3927E+00_JPRB,3.9413E+00_JPRB,3.4799E+00_JPRB,3.0724E+00_JPRB,2.8062E+00_JPRB,&
+&2.8193E+00_JPRB,3.1848E+00_JPRB,3.4916E+00_JPRB,3.6009E+00_JPRB,3.6428E+00_JPRB/)
+KAO( :, 5, 9,13) = (/&
+&4.8646E+00_JPRB,4.3466E+00_JPRB,3.9578E+00_JPRB,3.5604E+00_JPRB,3.2602E+00_JPRB,3.1715E+00_JPRB,&
+&3.4132E+00_JPRB,3.9460E+00_JPRB,4.3263E+00_JPRB,4.4628E+00_JPRB,4.5130E+00_JPRB/)
+KAO( :, 1,10,13) = (/&
+&5.7351E+00_JPRB,5.0184E+00_JPRB,4.3590E+00_JPRB,3.7061E+00_JPRB,3.1107E+00_JPRB,2.4665E+00_JPRB,&
+&1.8265E+00_JPRB,1.3589E+00_JPRB,1.3281E+00_JPRB,1.3706E+00_JPRB,9.6850E+00_JPRB/)
+KAO( :, 2,10,13) = (/&
+&5.6702E+00_JPRB,4.9713E+00_JPRB,4.3505E+00_JPRB,3.7771E+00_JPRB,3.1762E+00_JPRB,2.5499E+00_JPRB,&
+&2.0068E+00_JPRB,1.7165E+00_JPRB,1.8132E+00_JPRB,1.8713E+00_JPRB,1.0044E+01_JPRB/)
+KAO( :, 3,10,13) = (/&
+&5.6012E+00_JPRB,4.9439E+00_JPRB,4.3471E+00_JPRB,3.8363E+00_JPRB,3.2324E+00_JPRB,2.7093E+00_JPRB,&
+&2.2713E+00_JPRB,2.1992E+00_JPRB,2.3944E+00_JPRB,2.4708E+00_JPRB,1.0371E+01_JPRB/)
+KAO( :, 4,10,13) = (/&
+&5.5289E+00_JPRB,4.9007E+00_JPRB,4.3908E+00_JPRB,3.8627E+00_JPRB,3.3600E+00_JPRB,2.8996E+00_JPRB,&
+&2.6404E+00_JPRB,2.8075E+00_JPRB,3.0779E+00_JPRB,3.1762E+00_JPRB,1.0595E+01_JPRB/)
+KAO( :, 5,10,13) = (/&
+&5.4567E+00_JPRB,4.8683E+00_JPRB,4.4123E+00_JPRB,3.9290E+00_JPRB,3.4997E+00_JPRB,3.1758E+00_JPRB,&
+&3.1346E+00_JPRB,3.5190E+00_JPRB,3.8593E+00_JPRB,3.9826E+00_JPRB,1.0862E+01_JPRB/)
+KAO( :, 1,11,13) = (/&
+&6.3333E+00_JPRB,5.5418E+00_JPRB,4.8105E+00_JPRB,4.1265E+00_JPRB,3.4538E+00_JPRB,2.7288E+00_JPRB,&
+&2.0255E+00_JPRB,1.4130E+00_JPRB,1.2863E+00_JPRB,1.3280E+00_JPRB,1.7958E+01_JPRB/)
+KAO( :, 2,11,13) = (/&
+&6.2689E+00_JPRB,5.5023E+00_JPRB,4.8148E+00_JPRB,4.2028E+00_JPRB,3.5226E+00_JPRB,2.8349E+00_JPRB,&
+&2.1999E+00_JPRB,1.7269E+00_JPRB,1.7697E+00_JPRB,1.8270E+00_JPRB,1.8277E+01_JPRB/)
+KAO( :, 3,11,13) = (/&
+&6.2039E+00_JPRB,5.4744E+00_JPRB,4.8374E+00_JPRB,4.2598E+00_JPRB,3.5999E+00_JPRB,3.0009E+00_JPRB,&
+&2.4146E+00_JPRB,2.1815E+00_JPRB,2.3423E+00_JPRB,2.4181E+00_JPRB,1.8696E+01_JPRB/)
+KAO( :, 4,11,13) = (/&
+&6.1388E+00_JPRB,5.4345E+00_JPRB,4.8963E+00_JPRB,4.2927E+00_JPRB,3.7367E+00_JPRB,3.1778E+00_JPRB,&
+&2.7380E+00_JPRB,2.7546E+00_JPRB,3.0088E+00_JPRB,3.1059E+00_JPRB,1.9174E+01_JPRB/)
+KAO( :, 5,11,13) = (/&
+&6.0780E+00_JPRB,5.4134E+00_JPRB,4.9226E+00_JPRB,4.3897E+00_JPRB,3.8870E+00_JPRB,3.4157E+00_JPRB,&
+&3.1673E+00_JPRB,3.4320E+00_JPRB,3.7647E+00_JPRB,3.8872E+00_JPRB,1.9497E+01_JPRB/)
+KAO( :, 1,12,13) = (/&
+&6.9733E+00_JPRB,6.1019E+00_JPRB,5.2948E+00_JPRB,4.5762E+00_JPRB,3.8194E+00_JPRB,3.0108E+00_JPRB,&
+&2.2358E+00_JPRB,1.4812E+00_JPRB,1.2391E+00_JPRB,1.2773E+00_JPRB,2.4501E+01_JPRB/)
+KAO( :, 2,12,13) = (/&
+&6.9181E+00_JPRB,6.0812E+00_JPRB,5.3188E+00_JPRB,4.6589E+00_JPRB,3.8924E+00_JPRB,3.1398E+00_JPRB,&
+&2.4112E+00_JPRB,1.7577E+00_JPRB,1.7083E+00_JPRB,1.7645E+00_JPRB,2.4773E+01_JPRB/)
+KAO( :, 3,12,13) = (/&
+&6.8566E+00_JPRB,6.0530E+00_JPRB,5.3874E+00_JPRB,4.7146E+00_JPRB,3.9882E+00_JPRB,3.3020E+00_JPRB,&
+&2.6071E+00_JPRB,2.1662E+00_JPRB,2.2758E+00_JPRB,2.3503E+00_JPRB,2.5275E+01_JPRB/)
+KAO( :, 4,12,13) = (/&
+&6.7979E+00_JPRB,6.0149E+00_JPRB,5.4468E+00_JPRB,4.7610E+00_JPRB,4.1335E+00_JPRB,3.4795E+00_JPRB,&
+&2.8840E+00_JPRB,2.7114E+00_JPRB,2.9349E+00_JPRB,3.0298E+00_JPRB,2.5870E+01_JPRB/)
+KAO( :, 5,12,13) = (/&
+&6.7411E+00_JPRB,6.0058E+00_JPRB,5.4709E+00_JPRB,4.8727E+00_JPRB,4.2890E+00_JPRB,3.6876E+00_JPRB,&
+&3.2559E+00_JPRB,3.3514E+00_JPRB,3.6668E+00_JPRB,3.7859E+00_JPRB,2.6254E+01_JPRB/)
+KAO( :, 1,13,13) = (/&
+&7.6256E+00_JPRB,6.6753E+00_JPRB,5.7900E+00_JPRB,5.0347E+00_JPRB,4.1913E+00_JPRB,3.3018E+00_JPRB,&
+&2.4527E+00_JPRB,1.5669E+00_JPRB,1.1934E+00_JPRB,1.2215E+00_JPRB,2.5519E+01_JPRB/)
+KAO( :, 2,13,13) = (/&
+&7.5682E+00_JPRB,6.6598E+00_JPRB,5.8333E+00_JPRB,5.1240E+00_JPRB,4.2715E+00_JPRB,3.4570E+00_JPRB,&
+&2.6249E+00_JPRB,1.8136E+00_JPRB,1.6447E+00_JPRB,1.6979E+00_JPRB,2.5832E+01_JPRB/)
+KAO( :, 3,13,13) = (/&
+&7.5147E+00_JPRB,6.6337E+00_JPRB,5.9406E+00_JPRB,5.1772E+00_JPRB,4.3985E+00_JPRB,3.6181E+00_JPRB,&
+&2.8202E+00_JPRB,2.1840E+00_JPRB,2.2018E+00_JPRB,2.2745E+00_JPRB,2.6512E+01_JPRB/)
+KAO( :, 4,13,13) = (/&
+&7.4664E+00_JPRB,6.6067E+00_JPRB,6.0077E+00_JPRB,5.2519E+00_JPRB,4.5469E+00_JPRB,3.7922E+00_JPRB,&
+&3.0751E+00_JPRB,2.6716E+00_JPRB,2.8374E+00_JPRB,2.9314E+00_JPRB,2.7153E+01_JPRB/)
+KAO( :, 5,13,13) = (/&
+&7.4088E+00_JPRB,6.6207E+00_JPRB,6.0282E+00_JPRB,5.3739E+00_JPRB,4.7039E+00_JPRB,4.0017E+00_JPRB,&
+&3.3998E+00_JPRB,3.2768E+00_JPRB,3.5575E+00_JPRB,3.6746E+00_JPRB,2.7529E+01_JPRB/)
+KAO( :, 1, 1,14) = (/&
+&2.8887E+00_JPRB,2.5952E+00_JPRB,2.4344E+00_JPRB,2.7140E+00_JPRB,3.5782E+00_JPRB,4.4490E+00_JPRB,&
+&5.3193E+00_JPRB,6.1891E+00_JPRB,6.7728E+00_JPRB,6.9450E+00_JPRB,6.8281E+00_JPRB/)
+KAO( :, 2, 1,14) = (/&
+&2.8442E+00_JPRB,2.6117E+00_JPRB,2.5016E+00_JPRB,3.2440E+00_JPRB,4.2873E+00_JPRB,5.3316E+00_JPRB,&
+&6.3758E+00_JPRB,7.4184E+00_JPRB,8.1189E+00_JPRB,8.3231E+00_JPRB,8.1685E+00_JPRB/)
+KAO( :, 3, 1,14) = (/&
+&2.8000E+00_JPRB,2.6157E+00_JPRB,2.7106E+00_JPRB,3.8144E+00_JPRB,5.0435E+00_JPRB,6.2737E+00_JPRB,&
+&7.5035E+00_JPRB,8.7311E+00_JPRB,9.5570E+00_JPRB,9.7945E+00_JPRB,9.6021E+00_JPRB/)
+KAO( :, 4, 1,14) = (/&
+&2.7537E+00_JPRB,2.6124E+00_JPRB,3.0214E+00_JPRB,4.4121E+00_JPRB,5.8371E+00_JPRB,7.2628E+00_JPRB,&
+&8.6899E+00_JPRB,1.0113E+01_JPRB,1.1069E+01_JPRB,1.1344E+01_JPRB,1.1112E+01_JPRB/)
+KAO( :, 5, 1,14) = (/&
+&2.7061E+00_JPRB,2.6132E+00_JPRB,3.3957E+00_JPRB,5.0168E+00_JPRB,6.6412E+00_JPRB,8.2665E+00_JPRB,&
+&9.8911E+00_JPRB,1.1513E+01_JPRB,1.2604E+01_JPRB,1.2922E+01_JPRB,1.2679E+01_JPRB/)
+KAO( :, 1, 2,14) = (/&
+&3.0576E+00_JPRB,2.7352E+00_JPRB,2.5260E+00_JPRB,2.7828E+00_JPRB,3.6218E+00_JPRB,4.5046E+00_JPRB,&
+&5.3876E+00_JPRB,6.2699E+00_JPRB,6.8610E+00_JPRB,7.0352E+00_JPRB,6.9906E+00_JPRB/)
+KAO( :, 2, 2,14) = (/&
+&3.0061E+00_JPRB,2.7324E+00_JPRB,2.6141E+00_JPRB,3.3196E+00_JPRB,4.3910E+00_JPRB,5.4630E+00_JPRB,&
+&6.5356E+00_JPRB,7.6067E+00_JPRB,8.3258E+00_JPRB,8.5350E+00_JPRB,8.4749E+00_JPRB/)
+KAO( :, 3, 2,14) = (/&
+&2.9525E+00_JPRB,2.7255E+00_JPRB,2.8471E+00_JPRB,3.9327E+00_JPRB,5.2058E+00_JPRB,6.4796E+00_JPRB,&
+&7.7532E+00_JPRB,9.0260E+00_JPRB,9.8805E+00_JPRB,1.0131E+01_JPRB,1.0067E+01_JPRB/)
+KAO( :, 4, 2,14) = (/&
+&2.8984E+00_JPRB,2.7145E+00_JPRB,3.1607E+00_JPRB,4.5565E+00_JPRB,6.0350E+00_JPRB,7.5142E+00_JPRB,&
+&8.9933E+00_JPRB,1.0470E+01_JPRB,1.1465E+01_JPRB,1.1763E+01_JPRB,1.1703E+01_JPRB/)
+KAO( :, 5, 2,14) = (/&
+&2.8438E+00_JPRB,2.7189E+00_JPRB,3.5222E+00_JPRB,5.1840E+00_JPRB,6.8691E+00_JPRB,8.5548E+00_JPRB,&
+&1.0241E+01_JPRB,1.1924E+01_JPRB,1.3058E+01_JPRB,1.3402E+01_JPRB,1.3350E+01_JPRB/)
+KAO( :, 1, 3,14) = (/&
+&3.2627E+00_JPRB,2.9257E+00_JPRB,2.6844E+00_JPRB,2.7974E+00_JPRB,3.4992E+00_JPRB,4.3540E+00_JPRB,&
+&5.2086E+00_JPRB,6.0626E+00_JPRB,6.6362E+00_JPRB,6.8051E+00_JPRB,6.8438E+00_JPRB/)
+KAO( :, 2, 3,14) = (/&
+&3.2141E+00_JPRB,2.9285E+00_JPRB,2.7611E+00_JPRB,3.2879E+00_JPRB,4.2959E+00_JPRB,5.3479E+00_JPRB,&
+&6.3996E+00_JPRB,7.4507E+00_JPRB,8.1567E+00_JPRB,8.3690E+00_JPRB,8.4216E+00_JPRB/)
+KAO( :, 3, 3,14) = (/&
+&3.1592E+00_JPRB,2.9193E+00_JPRB,2.9657E+00_JPRB,3.8707E+00_JPRB,5.1268E+00_JPRB,6.3848E+00_JPRB,&
+&7.6422E+00_JPRB,8.8991E+00_JPRB,9.7445E+00_JPRB,1.0003E+01_JPRB,1.0068E+01_JPRB/)
+KAO( :, 4, 3,14) = (/&
+&3.1015E+00_JPRB,2.9015E+00_JPRB,3.2432E+00_JPRB,4.5116E+00_JPRB,5.9798E+00_JPRB,7.4486E+00_JPRB,&
+&8.9182E+00_JPRB,1.0386E+01_JPRB,1.1375E+01_JPRB,1.1682E+01_JPRB,1.1760E+01_JPRB/)
+KAO( :, 5, 3,14) = (/&
+&3.0445E+00_JPRB,2.9022E+00_JPRB,3.5824E+00_JPRB,5.1608E+00_JPRB,6.8436E+00_JPRB,8.5264E+00_JPRB,&
+&1.0210E+01_JPRB,1.1891E+01_JPRB,1.3025E+01_JPRB,1.3379E+01_JPRB,1.3473E+01_JPRB/)
+KAO( :, 1, 4,14) = (/&
+&3.5400E+00_JPRB,3.1664E+00_JPRB,2.9101E+00_JPRB,2.8758E+00_JPRB,3.3348E+00_JPRB,4.1525E+00_JPRB,&
+&4.9718E+00_JPRB,5.7899E+00_JPRB,6.3397E+00_JPRB,6.5008E+00_JPRB,6.5768E+00_JPRB/)
+KAO( :, 2, 4,14) = (/&
+&3.4855E+00_JPRB,3.1790E+00_JPRB,2.9576E+00_JPRB,3.2747E+00_JPRB,4.1109E+00_JPRB,5.1228E+00_JPRB,&
+&6.1348E+00_JPRB,7.1442E+00_JPRB,7.8249E+00_JPRB,8.0301E+00_JPRB,8.1227E+00_JPRB/)
+KAO( :, 3, 4,14) = (/&
+&3.4320E+00_JPRB,3.1719E+00_JPRB,3.1607E+00_JPRB,3.7785E+00_JPRB,4.9272E+00_JPRB,6.1416E+00_JPRB,&
+&7.3563E+00_JPRB,8.5691E+00_JPRB,9.3880E+00_JPRB,9.6426E+00_JPRB,9.7500E+00_JPRB/)
+KAO( :, 4, 4,14) = (/&
+&3.3791E+00_JPRB,3.1599E+00_JPRB,3.3859E+00_JPRB,4.3631E+00_JPRB,5.7749E+00_JPRB,7.1988E+00_JPRB,&
+&8.6228E+00_JPRB,1.0046E+01_JPRB,1.1007E+01_JPRB,1.1312E+01_JPRB,1.1439E+01_JPRB/)
+KAO( :, 5, 4,14) = (/&
+&3.3258E+00_JPRB,3.1591E+00_JPRB,3.6665E+00_JPRB,5.0052E+00_JPRB,6.6441E+00_JPRB,8.2840E+00_JPRB,&
+&9.9242E+00_JPRB,1.1564E+01_JPRB,1.2671E+01_JPRB,1.3030E+01_JPRB,1.3170E+01_JPRB/)
+KAO( :, 1, 5,14) = (/&
+&3.8712E+00_JPRB,3.4337E+00_JPRB,3.1666E+00_JPRB,3.0128E+00_JPRB,3.2471E+00_JPRB,3.9337E+00_JPRB,&
+&4.7121E+00_JPRB,5.4892E+00_JPRB,6.0120E+00_JPRB,6.1700E+00_JPRB,6.2549E+00_JPRB/)
+KAO( :, 2, 5,14) = (/&
+&3.8269E+00_JPRB,3.4694E+00_JPRB,3.1866E+00_JPRB,3.3432E+00_JPRB,3.9282E+00_JPRB,4.8845E+00_JPRB,&
+&5.8524E+00_JPRB,6.8187E+00_JPRB,7.4706E+00_JPRB,7.6730E+00_JPRB,7.7736E+00_JPRB/)
+KAO( :, 3, 5,14) = (/&
+&3.7755E+00_JPRB,3.4748E+00_JPRB,3.3901E+00_JPRB,3.7632E+00_JPRB,4.7202E+00_JPRB,5.8870E+00_JPRB,&
+&7.0546E+00_JPRB,8.2214E+00_JPRB,9.0082E+00_JPRB,9.2591E+00_JPRB,9.3759E+00_JPRB/)
+KAO( :, 4, 5,14) = (/&
+&3.7208E+00_JPRB,3.4667E+00_JPRB,3.6066E+00_JPRB,4.2692E+00_JPRB,5.5501E+00_JPRB,6.9232E+00_JPRB,&
+&8.2967E+00_JPRB,9.6704E+00_JPRB,1.0598E+01_JPRB,1.0900E+01_JPRB,1.1032E+01_JPRB/)
+KAO( :, 5, 5,14) = (/&
+&3.6685E+00_JPRB,3.4626E+00_JPRB,3.8317E+00_JPRB,4.8383E+00_JPRB,6.4165E+00_JPRB,8.0063E+00_JPRB,&
+&9.5964E+00_JPRB,1.1185E+01_JPRB,1.2259E+01_JPRB,1.2606E+01_JPRB,1.2759E+01_JPRB/)
+KAO( :, 1, 6,14) = (/&
+&4.2985E+00_JPRB,3.7747E+00_JPRB,3.4577E+00_JPRB,3.1550E+00_JPRB,3.2497E+00_JPRB,3.6558E+00_JPRB,&
+&4.3601E+00_JPRB,5.0812E+00_JPRB,5.5670E+00_JPRB,5.7208E+00_JPRB,5.7987E+00_JPRB/)
+KAO( :, 2, 6,14) = (/&
+&4.2427E+00_JPRB,3.8123E+00_JPRB,3.4653E+00_JPRB,3.4897E+00_JPRB,3.8064E+00_JPRB,4.5507E+00_JPRB,&
+&5.4535E+00_JPRB,6.3569E+00_JPRB,6.9669E+00_JPRB,7.1637E+00_JPRB,7.2558E+00_JPRB/)
+KAO( :, 3, 6,14) = (/&
+&4.1875E+00_JPRB,3.8273E+00_JPRB,3.6255E+00_JPRB,3.8306E+00_JPRB,4.4762E+00_JPRB,5.5205E+00_JPRB,&
+&6.6168E+00_JPRB,7.7121E+00_JPRB,8.4537E+00_JPRB,8.6967E+00_JPRB,8.8046E+00_JPRB/)
+KAO( :, 4, 6,14) = (/&
+&4.1387E+00_JPRB,3.8237E+00_JPRB,3.8813E+00_JPRB,4.2503E+00_JPRB,5.2544E+00_JPRB,6.5579E+00_JPRB,&
+&7.8608E+00_JPRB,9.1631E+00_JPRB,1.0044E+01_JPRB,1.0331E+01_JPRB,1.0461E+01_JPRB/)
+KAO( :, 5, 6,14) = (/&
+&4.0993E+00_JPRB,3.8210E+00_JPRB,4.0697E+00_JPRB,4.7381E+00_JPRB,6.1433E+00_JPRB,7.6683E+00_JPRB,&
+&9.1923E+00_JPRB,1.0715E+01_JPRB,1.1746E+01_JPRB,1.2082E+01_JPRB,1.2233E+01_JPRB/)
+KAO( :, 1, 7,14) = (/&
+&4.8729E+00_JPRB,4.2640E+00_JPRB,3.8474E+00_JPRB,3.3679E+00_JPRB,3.3344E+00_JPRB,3.4772E+00_JPRB,&
+&3.9641E+00_JPRB,4.6207E+00_JPRB,5.0642E+00_JPRB,5.2074E+00_JPRB,5.2771E+00_JPRB/)
+KAO( :, 2, 7,14) = (/&
+&4.7919E+00_JPRB,4.2473E+00_JPRB,3.8324E+00_JPRB,3.6623E+00_JPRB,3.7914E+00_JPRB,4.2248E+00_JPRB,&
+&5.0116E+00_JPRB,5.8421E+00_JPRB,6.4042E+00_JPRB,6.5890E+00_JPRB,6.6727E+00_JPRB/)
+KAO( :, 3, 7,14) = (/&
+&4.7214E+00_JPRB,4.2557E+00_JPRB,3.9089E+00_JPRB,4.0054E+00_JPRB,4.3393E+00_JPRB,5.1382E+00_JPRB,&
+&6.1595E+00_JPRB,7.1803E+00_JPRB,7.8713E+00_JPRB,8.0973E+00_JPRB,8.2014E+00_JPRB/)
+KAO( :, 4, 7,14) = (/&
+&4.6651E+00_JPRB,4.2593E+00_JPRB,4.1634E+00_JPRB,4.3388E+00_JPRB,5.0089E+00_JPRB,6.1843E+00_JPRB,&
+&7.4141E+00_JPRB,8.6442E+00_JPRB,9.4748E+00_JPRB,9.7461E+00_JPRB,9.8717E+00_JPRB/)
+KAO( :, 5, 7,14) = (/&
+&4.6229E+00_JPRB,4.2611E+00_JPRB,4.3711E+00_JPRB,4.7337E+00_JPRB,5.8551E+00_JPRB,7.3079E+00_JPRB,&
+&8.7620E+00_JPRB,1.0215E+01_JPRB,1.1197E+01_JPRB,1.1518E+01_JPRB,1.1668E+01_JPRB/)
+KAO( :, 1, 8,14) = (/&
+&5.5925E+00_JPRB,4.8936E+00_JPRB,4.3354E+00_JPRB,3.7383E+00_JPRB,3.4607E+00_JPRB,3.3817E+00_JPRB,&
+&3.5604E+00_JPRB,4.1011E+00_JPRB,4.4961E+00_JPRB,4.6277E+00_JPRB,4.6848E+00_JPRB/)
+KAO( :, 2, 8,14) = (/&
+&5.4938E+00_JPRB,4.8247E+00_JPRB,4.3191E+00_JPRB,3.9163E+00_JPRB,3.8835E+00_JPRB,4.0306E+00_JPRB,&
+&4.5806E+00_JPRB,5.3399E+00_JPRB,5.8538E+00_JPRB,6.0240E+00_JPRB,6.1006E+00_JPRB/)
+KAO( :, 3, 8,14) = (/&
+&5.4085E+00_JPRB,4.8212E+00_JPRB,4.3278E+00_JPRB,4.2425E+00_JPRB,4.3274E+00_JPRB,4.8175E+00_JPRB,&
+&5.7136E+00_JPRB,6.6616E+00_JPRB,7.3038E+00_JPRB,7.5143E+00_JPRB,7.6111E+00_JPRB/)
+KAO( :, 4, 8,14) = (/&
+&5.3368E+00_JPRB,4.8168E+00_JPRB,4.5230E+00_JPRB,4.5538E+00_JPRB,4.8873E+00_JPRB,5.8090E+00_JPRB,&
+&6.9627E+00_JPRB,8.1174E+00_JPRB,8.9008E+00_JPRB,9.1580E+00_JPRB,9.2752E+00_JPRB/)
+KAO( :, 5, 8,14) = (/&
+&5.2815E+00_JPRB,4.8169E+00_JPRB,4.7320E+00_JPRB,4.8661E+00_JPRB,5.6370E+00_JPRB,6.9370E+00_JPRB,&
+&8.3184E+00_JPRB,9.6982E+00_JPRB,1.0633E+01_JPRB,1.0941E+01_JPRB,1.1084E+01_JPRB/)
+KAO( :, 1, 9,14) = (/&
+&6.4577E+00_JPRB,5.6507E+00_JPRB,4.9407E+00_JPRB,4.2286E+00_JPRB,3.7253E+00_JPRB,3.3779E+00_JPRB,&
+&3.2319E+00_JPRB,3.5421E+00_JPRB,3.8831E+00_JPRB,3.9990E+00_JPRB,4.0498E+00_JPRB/)
+KAO( :, 2, 9,14) = (/&
+&6.3422E+00_JPRB,5.5498E+00_JPRB,4.9222E+00_JPRB,4.3098E+00_JPRB,4.0685E+00_JPRB,3.8931E+00_JPRB,&
+&4.1244E+00_JPRB,4.7547E+00_JPRB,5.2133E+00_JPRB,5.3678E+00_JPRB,5.4322E+00_JPRB/)
+KAO( :, 3, 9,14) = (/&
+&6.2329E+00_JPRB,5.5111E+00_JPRB,4.9049E+00_JPRB,4.5899E+00_JPRB,4.4547E+00_JPRB,4.5979E+00_JPRB,&
+&5.2352E+00_JPRB,6.1039E+00_JPRB,6.6924E+00_JPRB,6.8898E+00_JPRB,6.9747E+00_JPRB/)
+KAO( :, 4, 9,14) = (/&
+&6.1515E+00_JPRB,5.4910E+00_JPRB,5.0222E+00_JPRB,4.8653E+00_JPRB,4.9067E+00_JPRB,5.4882E+00_JPRB,&
+&6.4831E+00_JPRB,7.5599E+00_JPRB,8.2895E+00_JPRB,8.5312E+00_JPRB,8.6396E+00_JPRB/)
+KAO( :, 5, 9,14) = (/&
+&6.0869E+00_JPRB,5.4865E+00_JPRB,5.2250E+00_JPRB,5.1325E+00_JPRB,5.5425E+00_JPRB,6.5444E+00_JPRB,&
+&7.8337E+00_JPRB,9.1350E+00_JPRB,1.0015E+01_JPRB,1.0307E+01_JPRB,1.0438E+01_JPRB/)
+KAO( :, 1,10,14) = (/&
+&7.4443E+00_JPRB,6.5140E+00_JPRB,5.6562E+00_JPRB,4.8450E+00_JPRB,4.1266E+00_JPRB,3.5478E+00_JPRB,&
+&3.0700E+00_JPRB,3.0881E+00_JPRB,3.3779E+00_JPRB,3.4799E+00_JPRB,1.2058E+01_JPRB/)
+KAO( :, 2,10,14) = (/&
+&7.3221E+00_JPRB,6.4071E+00_JPRB,5.6365E+00_JPRB,4.8644E+00_JPRB,4.3967E+00_JPRB,3.9545E+00_JPRB,&
+&3.8217E+00_JPRB,4.2441E+00_JPRB,4.6539E+00_JPRB,4.7937E+00_JPRB,1.2410E+01_JPRB/)
+KAO( :, 3,10,14) = (/&
+&7.2124E+00_JPRB,6.3403E+00_JPRB,5.6271E+00_JPRB,5.0725E+00_JPRB,4.7313E+00_JPRB,4.4923E+00_JPRB,&
+&4.8301E+00_JPRB,5.5719E+00_JPRB,6.1108E+00_JPRB,6.2952E+00_JPRB,1.2954E+01_JPRB/)
+KAO( :, 4,10,14) = (/&
+&7.1175E+00_JPRB,6.3123E+00_JPRB,5.6779E+00_JPRB,5.3374E+00_JPRB,5.0908E+00_JPRB,5.2975E+00_JPRB,&
+&6.0440E+00_JPRB,7.0430E+00_JPRB,7.7247E+00_JPRB,7.9559E+00_JPRB,1.3387E+01_JPRB/)
+KAO( :, 5,10,14) = (/&
+&7.0366E+00_JPRB,6.2756E+00_JPRB,5.8648E+00_JPRB,5.5670E+00_JPRB,5.6360E+00_JPRB,6.2965E+00_JPRB,&
+&7.4267E+00_JPRB,8.6602E+00_JPRB,9.4961E+00_JPRB,9.7792E+00_JPRB,1.3845E+01_JPRB/)
+KAO( :, 1,11,14) = (/&
+&8.4957E+00_JPRB,7.4339E+00_JPRB,6.4512E+00_JPRB,5.5185E+00_JPRB,4.7207E+00_JPRB,3.9718E+00_JPRB,&
+&3.2916E+00_JPRB,3.1500E+00_JPRB,3.4253E+00_JPRB,3.5296E+00_JPRB,2.3513E+01_JPRB/)
+KAO( :, 2,11,14) = (/&
+&8.3816E+00_JPRB,7.3341E+00_JPRB,6.4276E+00_JPRB,5.6044E+00_JPRB,4.9602E+00_JPRB,4.3313E+00_JPRB,&
+&3.9798E+00_JPRB,4.2912E+00_JPRB,4.7066E+00_JPRB,4.8505E+00_JPRB,2.3943E+01_JPRB/)
+KAO( :, 3,11,14) = (/&
+&8.2705E+00_JPRB,7.2767E+00_JPRB,6.4537E+00_JPRB,5.8081E+00_JPRB,5.2448E+00_JPRB,4.8172E+00_JPRB,&
+&4.9716E+00_JPRB,5.6457E+00_JPRB,6.1916E+00_JPRB,6.3804E+00_JPRB,2.4436E+01_JPRB/)
+KAO( :, 4,11,14) = (/&
+&8.1691E+00_JPRB,7.2418E+00_JPRB,6.5336E+00_JPRB,6.0302E+00_JPRB,5.5871E+00_JPRB,5.5776E+00_JPRB,&
+&6.1920E+00_JPRB,7.1803E+00_JPRB,7.8743E+00_JPRB,8.1125E+00_JPRB,2.5073E+01_JPRB/)
+KAO( :, 5,11,14) = (/&
+&8.0687E+00_JPRB,7.1847E+00_JPRB,6.6868E+00_JPRB,6.2347E+00_JPRB,6.0989E+00_JPRB,6.5755E+00_JPRB,&
+&7.6314E+00_JPRB,8.8985E+00_JPRB,9.7576E+00_JPRB,1.0049E+01_JPRB,2.5623E+01_JPRB/)
+KAO( :, 1,12,14) = (/&
+&9.6896E+00_JPRB,8.4786E+00_JPRB,7.3560E+00_JPRB,6.2642E+00_JPRB,5.3896E+00_JPRB,4.4442E+00_JPRB,&
+&3.5654E+00_JPRB,3.2232E+00_JPRB,3.4640E+00_JPRB,3.5704E+00_JPRB,3.3781E+01_JPRB/)
+KAO( :, 2,12,14) = (/&
+&9.5610E+00_JPRB,8.3661E+00_JPRB,7.3175E+00_JPRB,6.4413E+00_JPRB,5.6023E+00_JPRB,4.7562E+00_JPRB,&
+&4.1907E+00_JPRB,4.3435E+00_JPRB,4.7515E+00_JPRB,4.8976E+00_JPRB,3.4305E+01_JPRB/)
+KAO( :, 3,12,14) = (/&
+&9.4357E+00_JPRB,8.3098E+00_JPRB,7.3390E+00_JPRB,6.6507E+00_JPRB,5.8481E+00_JPRB,5.2296E+00_JPRB,&
+&5.1297E+00_JPRB,5.7060E+00_JPRB,6.2577E+00_JPRB,6.4493E+00_JPRB,3.4708E+01_JPRB/)
+KAO( :, 4,12,14) = (/&
+&9.3148E+00_JPRB,8.2568E+00_JPRB,7.4893E+00_JPRB,6.8212E+00_JPRB,6.1645E+00_JPRB,5.9310E+00_JPRB,&
+&6.3510E+00_JPRB,7.2870E+00_JPRB,7.9920E+00_JPRB,8.2360E+00_JPRB,3.5460E+01_JPRB/)
+KAO( :, 5,12,14) = (/&
+&9.1990E+00_JPRB,8.1836E+00_JPRB,7.6152E+00_JPRB,6.9928E+00_JPRB,6.6719E+00_JPRB,6.9180E+00_JPRB,&
+&7.8262E+00_JPRB,9.0973E+00_JPRB,9.9751E+00_JPRB,1.0276E+01_JPRB,3.6457E+01_JPRB/)
+KAO( :, 1,13,14) = (/&
+&1.0978E+01_JPRB,9.6060E+00_JPRB,8.3365E+00_JPRB,7.0935E+00_JPRB,6.1273E+00_JPRB,4.9756E+00_JPRB,&
+&3.8881E+00_JPRB,3.3072E+00_JPRB,3.4820E+00_JPRB,3.5899E+00_JPRB,3.7314E+01_JPRB/)
+KAO( :, 2,13,14) = (/&
+&1.0837E+01_JPRB,9.4874E+00_JPRB,8.2842E+00_JPRB,7.3253E+00_JPRB,6.3404E+00_JPRB,5.2568E+00_JPRB,&
+&4.4758E+00_JPRB,4.4007E+00_JPRB,4.7797E+00_JPRB,4.9274E+00_JPRB,3.7831E+01_JPRB/)
+KAO( :, 3,13,14) = (/&
+&1.0694E+01_JPRB,9.4274E+00_JPRB,8.2977E+00_JPRB,7.5668E+00_JPRB,6.5337E+00_JPRB,5.7124E+00_JPRB,&
+&5.3511E+00_JPRB,5.7626E+00_JPRB,6.3147E+00_JPRB,6.5078E+00_JPRB,3.8270E+01_JPRB/)
+KAO( :, 4,13,14) = (/&
+&1.0553E+01_JPRB,9.3501E+00_JPRB,8.4789E+00_JPRB,7.6951E+00_JPRB,6.8488E+00_JPRB,6.3996E+00_JPRB,&
+&6.5438E+00_JPRB,7.3994E+00_JPRB,8.1156E+00_JPRB,8.3624E+00_JPRB,3.9180E+01_JPRB/)
+KAO( :, 5,13,14) = (/&
+&1.0418E+01_JPRB,9.2624E+00_JPRB,8.6238E+00_JPRB,7.8509E+00_JPRB,7.3367E+00_JPRB,7.3271E+00_JPRB,&
+&8.0317E+00_JPRB,9.2713E+00_JPRB,1.0168E+01_JPRB,1.0477E+01_JPRB,4.0242E+01_JPRB/)
+KAO( :, 1, 1,15) = (/&
+&3.4517E+00_JPRB,3.0397E+00_JPRB,4.3495E+00_JPRB,6.5195E+00_JPRB,8.6891E+00_JPRB,1.0859E+01_JPRB,&
+&1.3028E+01_JPRB,1.5192E+01_JPRB,1.6642E+01_JPRB,1.7045E+01_JPRB,1.6592E+01_JPRB/)
+KAO( :, 2, 1,15) = (/&
+&3.3993E+00_JPRB,3.1455E+00_JPRB,5.0715E+00_JPRB,7.6013E+00_JPRB,1.0131E+01_JPRB,1.2660E+01_JPRB,&
+&1.5190E+01_JPRB,1.7713E+01_JPRB,1.9405E+01_JPRB,1.9876E+01_JPRB,1.9373E+01_JPRB/)
+KAO( :, 3, 1,15) = (/&
+&3.3459E+00_JPRB,3.3075E+00_JPRB,5.7978E+00_JPRB,8.6893E+00_JPRB,1.1582E+01_JPRB,1.4472E+01_JPRB,&
+&1.7361E+01_JPRB,2.0250E+01_JPRB,2.2182E+01_JPRB,2.2727E+01_JPRB,2.2178E+01_JPRB/)
+KAO( :, 4, 1,15) = (/&
+&3.2986E+00_JPRB,3.5290E+00_JPRB,6.5252E+00_JPRB,9.7768E+00_JPRB,1.3028E+01_JPRB,1.6279E+01_JPRB,&
+&1.9527E+01_JPRB,2.2769E+01_JPRB,2.4943E+01_JPRB,2.5561E+01_JPRB,2.4969E+01_JPRB/)
+KAO( :, 5, 1,15) = (/&
+&3.2551E+00_JPRB,3.7853E+00_JPRB,7.2659E+00_JPRB,1.0883E+01_JPRB,1.4501E+01_JPRB,1.8116E+01_JPRB,&
+&2.1727E+01_JPRB,2.5337E+01_JPRB,2.7748E+01_JPRB,2.8418E+01_JPRB,2.7723E+01_JPRB/)
+KAO( :, 1, 2,15) = (/&
+&3.6522E+00_JPRB,3.2711E+00_JPRB,4.5099E+00_JPRB,6.6968E+00_JPRB,8.9267E+00_JPRB,1.1156E+01_JPRB,&
+&1.3385E+01_JPRB,1.5605E+01_JPRB,1.7100E+01_JPRB,1.7534E+01_JPRB,1.7404E+01_JPRB/)
+KAO( :, 2, 2,15) = (/&
+&3.6012E+00_JPRB,3.4064E+00_JPRB,5.2386E+00_JPRB,7.8494E+00_JPRB,1.0463E+01_JPRB,1.3076E+01_JPRB,&
+&1.5688E+01_JPRB,1.8292E+01_JPRB,2.0045E+01_JPRB,2.0557E+01_JPRB,2.0412E+01_JPRB/)
+KAO( :, 3, 2,15) = (/&
+&3.5578E+00_JPRB,3.5847E+00_JPRB,6.0307E+00_JPRB,9.0357E+00_JPRB,1.2041E+01_JPRB,1.5045E+01_JPRB,&
+&1.8047E+01_JPRB,2.1044E+01_JPRB,2.3057E+01_JPRB,2.3640E+01_JPRB,2.3465E+01_JPRB/)
+KAO( :, 4, 2,15) = (/&
+&3.5171E+00_JPRB,3.8136E+00_JPRB,6.8582E+00_JPRB,1.0272E+01_JPRB,1.3685E+01_JPRB,1.7098E+01_JPRB,&
+&2.0508E+01_JPRB,2.3916E+01_JPRB,2.6198E+01_JPRB,2.6851E+01_JPRB,2.6618E+01_JPRB/)
+KAO( :, 5, 2,15) = (/&
+&3.4777E+00_JPRB,4.0744E+00_JPRB,7.7115E+00_JPRB,1.1547E+01_JPRB,1.5382E+01_JPRB,1.9216E+01_JPRB,&
+&2.3048E+01_JPRB,2.6876E+01_JPRB,2.9437E+01_JPRB,3.0161E+01_JPRB,2.9874E+01_JPRB/)
+KAO( :, 1, 3,15) = (/&
+&4.0012E+00_JPRB,3.5438E+00_JPRB,4.5445E+00_JPRB,6.5121E+00_JPRB,8.6806E+00_JPRB,1.0848E+01_JPRB,&
+&1.3016E+01_JPRB,1.5179E+01_JPRB,1.6635E+01_JPRB,1.7074E+01_JPRB,1.7180E+01_JPRB/)
+KAO( :, 2, 3,15) = (/&
+&3.9193E+00_JPRB,3.6637E+00_JPRB,5.2345E+00_JPRB,7.7505E+00_JPRB,1.0328E+01_JPRB,1.2905E+01_JPRB,&
+&1.5480E+01_JPRB,1.8051E+01_JPRB,1.9781E+01_JPRB,2.0289E+01_JPRB,2.0415E+01_JPRB/)
+KAO( :, 3, 3,15) = (/&
+&3.8577E+00_JPRB,3.8234E+00_JPRB,6.0517E+00_JPRB,9.0644E+00_JPRB,1.2077E+01_JPRB,1.5089E+01_JPRB,&
+&1.8099E+01_JPRB,2.1106E+01_JPRB,2.3127E+01_JPRB,2.3709E+01_JPRB,2.3850E+01_JPRB/)
+KAO( :, 4, 3,15) = (/&
+&3.8049E+00_JPRB,4.0468E+00_JPRB,6.9689E+00_JPRB,1.0436E+01_JPRB,1.3903E+01_JPRB,1.7370E+01_JPRB,&
+&2.0836E+01_JPRB,2.4295E+01_JPRB,2.6620E+01_JPRB,2.7290E+01_JPRB,2.7443E+01_JPRB/)
+KAO( :, 5, 3,15) = (/&
+&3.7571E+00_JPRB,4.3042E+00_JPRB,7.9142E+00_JPRB,1.1851E+01_JPRB,1.5788E+01_JPRB,1.9723E+01_JPRB,&
+&2.3657E+01_JPRB,2.7583E+01_JPRB,3.0223E+01_JPRB,3.0982E+01_JPRB,3.1151E+01_JPRB/)
+KAO( :, 1, 4,15) = (/&
+&4.5413E+00_JPRB,3.9760E+00_JPRB,4.5956E+00_JPRB,6.1749E+00_JPRB,8.2304E+00_JPRB,1.0286E+01_JPRB,&
+&1.2342E+01_JPRB,1.4394E+01_JPRB,1.5775E+01_JPRB,1.6197E+01_JPRB,1.6378E+01_JPRB/)
+KAO( :, 2, 4,15) = (/&
+&4.4358E+00_JPRB,4.0500E+00_JPRB,5.2197E+00_JPRB,7.4879E+00_JPRB,9.9757E+00_JPRB,1.2463E+01_JPRB,&
+&1.4950E+01_JPRB,1.7428E+01_JPRB,1.9103E+01_JPRB,1.9604E+01_JPRB,1.9831E+01_JPRB/)
+KAO( :, 3, 4,15) = (/&
+&4.3496E+00_JPRB,4.1500E+00_JPRB,5.9601E+00_JPRB,8.9065E+00_JPRB,1.1863E+01_JPRB,1.4820E+01_JPRB,&
+&1.7774E+01_JPRB,2.0728E+01_JPRB,2.2708E+01_JPRB,2.3295E+01_JPRB,2.3568E+01_JPRB/)
+KAO( :, 4, 4,15) = (/&
+&4.2783E+00_JPRB,4.3259E+00_JPRB,6.9520E+00_JPRB,1.0406E+01_JPRB,1.3860E+01_JPRB,1.7313E+01_JPRB,&
+&2.0763E+01_JPRB,2.4211E+01_JPRB,2.6527E+01_JPRB,2.7194E+01_JPRB,2.7525E+01_JPRB/)
+KAO( :, 5, 4,15) = (/&
+&4.2147E+00_JPRB,4.5565E+00_JPRB,7.9967E+00_JPRB,1.1967E+01_JPRB,1.5938E+01_JPRB,1.9911E+01_JPRB,&
+&2.3877E+01_JPRB,2.7842E+01_JPRB,3.0498E+01_JPRB,3.1272E+01_JPRB,3.1647E+01_JPRB/)
+KAO( :, 1, 5,15) = (/&
+&5.1884E+00_JPRB,4.5403E+00_JPRB,4.7931E+00_JPRB,5.8956E+00_JPRB,7.7629E+00_JPRB,9.7012E+00_JPRB,&
+&1.1639E+01_JPRB,1.3574E+01_JPRB,1.4878E+01_JPRB,1.5273E+01_JPRB,1.5485E+01_JPRB/)
+KAO( :, 2, 5,15) = (/&
+&5.0662E+00_JPRB,4.5450E+00_JPRB,5.3264E+00_JPRB,7.1969E+00_JPRB,9.5885E+00_JPRB,1.1980E+01_JPRB,&
+&1.4371E+01_JPRB,1.6762E+01_JPRB,1.8366E+01_JPRB,1.8844E+01_JPRB,1.9112E+01_JPRB/)
+KAO( :, 3, 5,15) = (/&
+&4.9667E+00_JPRB,4.6362E+00_JPRB,5.9568E+00_JPRB,8.7016E+00_JPRB,1.1592E+01_JPRB,1.4482E+01_JPRB,&
+&1.7370E+01_JPRB,2.0252E+01_JPRB,2.2194E+01_JPRB,2.2764E+01_JPRB,2.3092E+01_JPRB/)
+KAO( :, 4, 5,15) = (/&
+&4.8811E+00_JPRB,4.7581E+00_JPRB,6.8907E+00_JPRB,1.0315E+01_JPRB,1.3738E+01_JPRB,1.7164E+01_JPRB,&
+&2.0588E+01_JPRB,2.4000E+01_JPRB,2.6296E+01_JPRB,2.6966E+01_JPRB,2.7352E+01_JPRB/)
+KAO( :, 5, 5,15) = (/&
+&4.8022E+00_JPRB,4.9436E+00_JPRB,8.0245E+00_JPRB,1.2011E+01_JPRB,1.5998E+01_JPRB,1.9984E+01_JPRB,&
+&2.3970E+01_JPRB,2.7945E+01_JPRB,3.0615E+01_JPRB,3.1395E+01_JPRB,3.1854E+01_JPRB/)
+KAO( :, 1, 6,15) = (/&
+&5.9540E+00_JPRB,5.2101E+00_JPRB,5.1559E+00_JPRB,5.7766E+00_JPRB,7.2000E+00_JPRB,8.9966E+00_JPRB,&
+&1.0790E+01_JPRB,1.2585E+01_JPRB,1.3788E+01_JPRB,1.4160E+01_JPRB,1.4369E+01_JPRB/)
+KAO( :, 2, 6,15) = (/&
+&5.8116E+00_JPRB,5.1177E+00_JPRB,5.5815E+00_JPRB,6.8585E+00_JPRB,9.1046E+00_JPRB,1.1376E+01_JPRB,&
+&1.3646E+01_JPRB,1.5913E+01_JPRB,1.7437E+01_JPRB,1.7895E+01_JPRB,1.8166E+01_JPRB/)
+KAO( :, 3, 6,15) = (/&
+&5.6919E+00_JPRB,5.2252E+00_JPRB,6.1200E+00_JPRB,8.4234E+00_JPRB,1.1222E+01_JPRB,1.4022E+01_JPRB,&
+&1.6819E+01_JPRB,1.9613E+01_JPRB,2.1489E+01_JPRB,2.2041E+01_JPRB,2.2387E+01_JPRB/)
+KAO( :, 4, 6,15) = (/&
+&5.5882E+00_JPRB,5.3197E+00_JPRB,6.8459E+00_JPRB,1.0145E+01_JPRB,1.3515E+01_JPRB,1.6884E+01_JPRB,&
+&2.0253E+01_JPRB,2.3617E+01_JPRB,2.5877E+01_JPRB,2.6539E+01_JPRB,2.6957E+01_JPRB/)
+KAO( :, 5, 6,15) = (/&
+&5.4924E+00_JPRB,5.4609E+00_JPRB,7.9964E+00_JPRB,1.1974E+01_JPRB,1.5951E+01_JPRB,1.9927E+01_JPRB,&
+&2.3903E+01_JPRB,2.7873E+01_JPRB,3.0539E+01_JPRB,3.1317E+01_JPRB,3.1808E+01_JPRB/)
+KAO( :, 1, 7,15) = (/&
+&6.8609E+00_JPRB,6.0036E+00_JPRB,5.6856E+00_JPRB,5.8569E+00_JPRB,6.6558E+00_JPRB,8.2325E+00_JPRB,&
+&9.8779E+00_JPRB,1.1519E+01_JPRB,1.2625E+01_JPRB,1.2957E+01_JPRB,1.3161E+01_JPRB/)
+KAO( :, 2, 7,15) = (/&
+&6.6929E+00_JPRB,5.8566E+00_JPRB,5.9907E+00_JPRB,6.7106E+00_JPRB,8.5545E+00_JPRB,1.0689E+01_JPRB,&
+&1.2823E+01_JPRB,1.4953E+01_JPRB,1.6388E+01_JPRB,1.6819E+01_JPRB,1.7084E+01_JPRB/)
+KAO( :, 3, 7,15) = (/&
+&6.5525E+00_JPRB,5.8774E+00_JPRB,6.4316E+00_JPRB,8.0973E+00_JPRB,1.0774E+01_JPRB,1.3461E+01_JPRB,&
+&1.6147E+01_JPRB,1.8828E+01_JPRB,2.0635E+01_JPRB,2.1172E+01_JPRB,2.1511E+01_JPRB/)
+KAO( :, 4, 7,15) = (/&
+&6.4308E+00_JPRB,6.0200E+00_JPRB,7.0014E+00_JPRB,9.9118E+00_JPRB,1.3206E+01_JPRB,1.6500E+01_JPRB,&
+&1.9791E+01_JPRB,2.3078E+01_JPRB,2.5291E+01_JPRB,2.5943E+01_JPRB,2.6365E+01_JPRB/)
+KAO( :, 5, 7,15) = (/&
+&6.3315E+00_JPRB,6.1156E+00_JPRB,7.9980E+00_JPRB,1.1868E+01_JPRB,1.5812E+01_JPRB,1.9756E+01_JPRB,&
+&2.3696E+01_JPRB,2.7636E+01_JPRB,3.0283E+01_JPRB,3.1063E+01_JPRB,3.1573E+01_JPRB/)
+KAO( :, 1, 8,15) = (/&
+&7.8865E+00_JPRB,6.9009E+00_JPRB,6.2843E+00_JPRB,6.1316E+00_JPRB,6.3613E+00_JPRB,7.5584E+00_JPRB,&
+&9.0686E+00_JPRB,1.0577E+01_JPRB,1.1592E+01_JPRB,1.1900E+01_JPRB,1.2089E+01_JPRB/)
+KAO( :, 2, 8,15) = (/&
+&7.6965E+00_JPRB,6.7347E+00_JPRB,6.5927E+00_JPRB,6.8053E+00_JPRB,7.9909E+00_JPRB,9.9438E+00_JPRB,&
+&1.1929E+01_JPRB,1.3913E+01_JPRB,1.5248E+01_JPRB,1.5655E+01_JPRB,1.5901E+01_JPRB/)
+KAO( :, 3, 8,15) = (/&
+&7.5504E+00_JPRB,6.6675E+00_JPRB,6.9179E+00_JPRB,7.9162E+00_JPRB,1.0245E+01_JPRB,1.2802E+01_JPRB,&
+&1.5357E+01_JPRB,1.7910E+01_JPRB,1.9627E+01_JPRB,2.0148E+01_JPRB,2.0469E+01_JPRB/)
+KAO( :, 4, 8,15) = (/&
+&7.4360E+00_JPRB,6.7883E+00_JPRB,7.3531E+00_JPRB,9.6152E+00_JPRB,1.2792E+01_JPRB,1.5983E+01_JPRB,&
+&1.9172E+01_JPRB,2.2359E+01_JPRB,2.4505E+01_JPRB,2.5152E+01_JPRB,2.5554E+01_JPRB/)
+KAO( :, 5, 8,15) = (/&
+&7.3370E+00_JPRB,6.9240E+00_JPRB,8.1752E+00_JPRB,1.1669E+01_JPRB,1.5550E+01_JPRB,1.9429E+01_JPRB,&
+&2.3306E+01_JPRB,2.7182E+01_JPRB,2.9790E+01_JPRB,3.0576E+01_JPRB,3.1067E+01_JPRB/)
+KAO( :, 1, 9,15) = (/&
+&9.0967E+00_JPRB,7.9598E+00_JPRB,6.9734E+00_JPRB,6.6246E+00_JPRB,6.3273E+00_JPRB,6.9836E+00_JPRB,&
+&8.3234E+00_JPRB,9.7073E+00_JPRB,1.0640E+01_JPRB,1.0924E+01_JPRB,1.1099E+01_JPRB/)
+KAO( :, 2, 9,15) = (/&
+&8.8543E+00_JPRB,7.7477E+00_JPRB,7.2824E+00_JPRB,7.1264E+00_JPRB,7.6457E+00_JPRB,9.2650E+00_JPRB,&
+&1.1116E+01_JPRB,1.2965E+01_JPRB,1.4208E+01_JPRB,1.4588E+01_JPRB,1.4820E+01_JPRB/)
+KAO( :, 3, 9,15) = (/&
+&8.7111E+00_JPRB,7.6297E+00_JPRB,7.5745E+00_JPRB,7.9608E+00_JPRB,9.6557E+00_JPRB,1.2050E+01_JPRB,&
+&1.4456E+01_JPRB,1.6860E+01_JPRB,1.8477E+01_JPRB,1.8971E+01_JPRB,1.9271E+01_JPRB/)
+KAO( :, 4, 9,15) = (/&
+&8.5917E+00_JPRB,7.6924E+00_JPRB,7.9085E+00_JPRB,9.4305E+00_JPRB,1.2224E+01_JPRB,1.5276E+01_JPRB,&
+&1.8326E+01_JPRB,2.1371E+01_JPRB,2.3421E+01_JPRB,2.4055E+01_JPRB,2.4428E+01_JPRB/)
+KAO( :, 5, 9,15) = (/&
+&8.4819E+00_JPRB,7.8606E+00_JPRB,8.5251E+00_JPRB,1.1371E+01_JPRB,1.5099E+01_JPRB,1.8867E+01_JPRB,&
+&2.2635E+01_JPRB,2.6398E+01_JPRB,2.8934E+01_JPRB,2.9714E+01_JPRB,3.0176E+01_JPRB/)
+KAO( :, 1,10,15) = (/&
+&1.0579E+01_JPRB,9.2563E+00_JPRB,7.9515E+00_JPRB,7.2414E+00_JPRB,6.6262E+00_JPRB,6.7533E+00_JPRB,&
+&7.7880E+00_JPRB,9.0842E+00_JPRB,9.9553E+00_JPRB,1.0226E+01_JPRB,1.4443E+01_JPRB/)
+KAO( :, 2,10,15) = (/&
+&1.0272E+01_JPRB,8.9883E+00_JPRB,8.0814E+00_JPRB,7.6749E+00_JPRB,7.6815E+00_JPRB,8.8308E+00_JPRB,&
+&1.0573E+01_JPRB,1.2332E+01_JPRB,1.3516E+01_JPRB,1.3883E+01_JPRB,1.6088E+01_JPRB/)
+KAO( :, 3,10,15) = (/&
+&1.0064E+01_JPRB,8.8059E+00_JPRB,8.3682E+00_JPRB,8.3372E+00_JPRB,9.4460E+00_JPRB,1.1603E+01_JPRB,&
+&1.3923E+01_JPRB,1.6236E+01_JPRB,1.7795E+01_JPRB,1.8275E+01_JPRB,1.8972E+01_JPRB/)
+KAO( :, 4,10,15) = (/&
+&9.9156E+00_JPRB,8.7771E+00_JPRB,8.6891E+00_JPRB,9.5568E+00_JPRB,1.1876E+01_JPRB,1.4833E+01_JPRB,&
+&1.7796E+01_JPRB,2.0756E+01_JPRB,2.2749E+01_JPRB,2.3365E+01_JPRB,2.3730E+01_JPRB/)
+KAO( :, 5,10,15) = (/&
+&9.7815E+00_JPRB,8.9122E+00_JPRB,9.1420E+00_JPRB,1.1360E+01_JPRB,1.4761E+01_JPRB,1.8450E+01_JPRB,&
+&2.2139E+01_JPRB,2.5815E+01_JPRB,2.8297E+01_JPRB,2.9069E+01_JPRB,2.9515E+01_JPRB/)
+KAO( :, 1,11,15) = (/&
+&1.2192E+01_JPRB,1.0668E+01_JPRB,9.1719E+00_JPRB,8.2095E+00_JPRB,7.4257E+00_JPRB,7.4696E+00_JPRB,&
+&8.4517E+00_JPRB,9.8563E+00_JPRB,1.0806E+01_JPRB,1.1102E+01_JPRB,2.7700E+01_JPRB/)
+KAO( :, 2,11,15) = (/&
+&1.1855E+01_JPRB,1.0373E+01_JPRB,9.2641E+00_JPRB,8.5808E+00_JPRB,8.5516E+00_JPRB,9.6496E+00_JPRB,&
+&1.1490E+01_JPRB,1.3402E+01_JPRB,1.4690E+01_JPRB,1.5091E+01_JPRB,2.8329E+01_JPRB/)
+KAO( :, 3,11,15) = (/&
+&1.1617E+01_JPRB,1.0165E+01_JPRB,9.4549E+00_JPRB,9.2771E+00_JPRB,1.0404E+01_JPRB,1.2597E+01_JPRB,&
+&1.5113E+01_JPRB,1.7627E+01_JPRB,1.9321E+01_JPRB,1.9850E+01_JPRB,2.9277E+01_JPRB/)
+KAO( :, 4,11,15) = (/&
+&1.1419E+01_JPRB,1.0101E+01_JPRB,9.7647E+00_JPRB,1.0584E+01_JPRB,1.2914E+01_JPRB,1.6054E+01_JPRB,&
+&1.9262E+01_JPRB,2.2467E+01_JPRB,2.4628E+01_JPRB,2.5304E+01_JPRB,3.1159E+01_JPRB/)
+KAO( :, 5,11,15) = (/&
+&1.1246E+01_JPRB,1.0208E+01_JPRB,1.0298E+01_JPRB,1.2412E+01_JPRB,1.5920E+01_JPRB,1.9895E+01_JPRB,&
+&2.3870E+01_JPRB,2.7842E+01_JPRB,3.0521E+01_JPRB,3.1359E+01_JPRB,3.4867E+01_JPRB/)
+KAO( :, 1,12,15) = (/&
+&1.4055E+01_JPRB,1.2298E+01_JPRB,1.0584E+01_JPRB,9.3863E+00_JPRB,8.3528E+00_JPRB,8.2912E+00_JPRB,&
+&9.1651E+00_JPRB,1.0659E+01_JPRB,1.1686E+01_JPRB,1.2009E+01_JPRB,4.0755E+01_JPRB/)
+KAO( :, 2,12,15) = (/&
+&1.3708E+01_JPRB,1.1994E+01_JPRB,1.0673E+01_JPRB,9.6215E+00_JPRB,9.5535E+00_JPRB,1.0572E+01_JPRB,&
+&1.2442E+01_JPRB,1.4512E+01_JPRB,1.5909E+01_JPRB,1.6350E+01_JPRB,4.1783E+01_JPRB/)
+KAO( :, 3,12,15) = (/&
+&1.3432E+01_JPRB,1.1753E+01_JPRB,1.0809E+01_JPRB,1.0365E+01_JPRB,1.1475E+01_JPRB,1.3634E+01_JPRB,&
+&1.6334E+01_JPRB,1.9052E+01_JPRB,2.0884E+01_JPRB,2.1465E+01_JPRB,4.2453E+01_JPRB/)
+KAO( :, 4,12,15) = (/&
+&1.3187E+01_JPRB,1.1665E+01_JPRB,1.0969E+01_JPRB,1.1758E+01_JPRB,1.4080E+01_JPRB,1.7299E+01_JPRB,&
+&2.0755E+01_JPRB,2.4210E+01_JPRB,2.6541E+01_JPRB,2.7279E+01_JPRB,4.2992E+01_JPRB/)
+KAO( :, 5,12,15) = (/&
+&1.2971E+01_JPRB,1.1732E+01_JPRB,1.1607E+01_JPRB,1.3640E+01_JPRB,1.7148E+01_JPRB,2.1366E+01_JPRB,&
+&2.5637E+01_JPRB,2.9905E+01_JPRB,3.2783E+01_JPRB,3.3705E+01_JPRB,4.4626E+01_JPRB/)
+KAO( :, 1,13,15) = (/&
+&1.6228E+01_JPRB,1.4199E+01_JPRB,1.2230E+01_JPRB,1.0748E+01_JPRB,9.4009E+00_JPRB,9.2214E+00_JPRB,&
+&9.9389E+00_JPRB,1.1470E+01_JPRB,1.2574E+01_JPRB,1.2929E+01_JPRB,4.6698E+01_JPRB/)
+KAO( :, 2,13,15) = (/&
+&1.5839E+01_JPRB,1.3859E+01_JPRB,1.2304E+01_JPRB,1.0893E+01_JPRB,1.0661E+01_JPRB,1.1572E+01_JPRB,&
+&1.3374E+01_JPRB,1.5600E+01_JPRB,1.7103E+01_JPRB,1.7585E+01_JPRB,4.7783E+01_JPRB/)
+KAO( :, 3,13,15) = (/&
+&1.5511E+01_JPRB,1.3574E+01_JPRB,1.2374E+01_JPRB,1.1617E+01_JPRB,1.2687E+01_JPRB,1.4735E+01_JPRB,&
+&1.7515E+01_JPRB,2.0432E+01_JPRB,2.2399E+01_JPRB,2.3033E+01_JPRB,4.8488E+01_JPRB/)
+KAO( :, 4,13,15) = (/&
+&1.5222E+01_JPRB,1.3473E+01_JPRB,1.2471E+01_JPRB,1.3097E+01_JPRB,1.5327E+01_JPRB,1.8511E+01_JPRB,&
+&2.2200E+01_JPRB,2.5897E+01_JPRB,2.8394E+01_JPRB,2.9197E+01_JPRB,4.9013E+01_JPRB/)
+KAO( :, 5,13,15) = (/&
+&1.4970E+01_JPRB,1.3493E+01_JPRB,1.3069E+01_JPRB,1.5022E+01_JPRB,1.8478E+01_JPRB,2.2815E+01_JPRB,&
+&2.7375E+01_JPRB,3.1933E+01_JPRB,3.5007E+01_JPRB,3.5995E+01_JPRB,5.0755E+01_JPRB/)
+KAO( :, 1, 1,16) = (/&
+&3.6978E+00_JPRB,3.2359E+00_JPRB,5.8520E+00_JPRB,8.7722E+00_JPRB,1.1692E+01_JPRB,1.4611E+01_JPRB,&
+&1.7529E+01_JPRB,2.0434E+01_JPRB,2.2353E+01_JPRB,2.2771E+01_JPRB,2.1591E+01_JPRB/)
+KAO( :, 2, 1,16) = (/&
+&3.6499E+00_JPRB,3.4722E+00_JPRB,6.9301E+00_JPRB,1.0388E+01_JPRB,1.3844E+01_JPRB,1.7300E+01_JPRB,&
+&2.0752E+01_JPRB,2.4192E+01_JPRB,2.6475E+01_JPRB,2.6965E+01_JPRB,2.5577E+01_JPRB/)
+KAO( :, 3, 1,16) = (/&
+&3.5975E+00_JPRB,4.0332E+00_JPRB,8.0476E+00_JPRB,1.2062E+01_JPRB,1.6074E+01_JPRB,2.0086E+01_JPRB,&
+&2.4094E+01_JPRB,2.8087E+01_JPRB,3.0726E+01_JPRB,3.1309E+01_JPRB,2.9700E+01_JPRB/)
+KAO( :, 4, 1,16) = (/&
+&3.5405E+00_JPRB,4.6049E+00_JPRB,9.1863E+00_JPRB,1.3767E+01_JPRB,1.8347E+01_JPRB,2.2925E+01_JPRB,&
+&2.7499E+01_JPRB,3.2055E+01_JPRB,3.5076E+01_JPRB,3.5737E+01_JPRB,3.3906E+01_JPRB/)
+KAO( :, 5, 1,16) = (/&
+&3.4814E+00_JPRB,5.1822E+00_JPRB,1.0334E+01_JPRB,1.5485E+01_JPRB,2.0637E+01_JPRB,2.5785E+01_JPRB,&
+&3.0929E+01_JPRB,3.6054E+01_JPRB,3.9459E+01_JPRB,4.0196E+01_JPRB,3.8155E+01_JPRB/)
+KAO( :, 1, 2,16) = (/&
+&4.0520E+00_JPRB,3.5458E+00_JPRB,6.5231E+00_JPRB,9.7790E+00_JPRB,1.3034E+01_JPRB,1.6288E+01_JPRB,&
+&1.9539E+01_JPRB,2.2778E+01_JPRB,2.4923E+01_JPRB,2.5395E+01_JPRB,2.4752E+01_JPRB/)
+KAO( :, 2, 2,16) = (/&
+&3.9931E+00_JPRB,3.9027E+00_JPRB,7.7909E+00_JPRB,1.1679E+01_JPRB,1.5566E+01_JPRB,1.9451E+01_JPRB,&
+&2.3333E+01_JPRB,2.7200E+01_JPRB,2.9762E+01_JPRB,3.0330E+01_JPRB,2.9565E+01_JPRB/)
+KAO( :, 3, 2,16) = (/&
+&3.9308E+00_JPRB,4.5630E+00_JPRB,9.1069E+00_JPRB,1.3651E+01_JPRB,1.8193E+01_JPRB,2.2734E+01_JPRB,&
+&2.7271E+01_JPRB,3.1793E+01_JPRB,3.4788E+01_JPRB,3.5457E+01_JPRB,3.4565E+01_JPRB/)
+KAO( :, 4, 2,16) = (/&
+&3.8638E+00_JPRB,5.2409E+00_JPRB,1.0457E+01_JPRB,1.5672E+01_JPRB,2.0886E+01_JPRB,2.6099E+01_JPRB,&
+&3.1306E+01_JPRB,3.6497E+01_JPRB,3.9942E+01_JPRB,4.0702E+01_JPRB,3.9688E+01_JPRB/)
+KAO( :, 5, 2,16) = (/&
+&3.7925E+00_JPRB,5.9258E+00_JPRB,1.1820E+01_JPRB,1.7713E+01_JPRB,2.3607E+01_JPRB,2.9498E+01_JPRB,&
+&3.5387E+01_JPRB,4.1252E+01_JPRB,4.5136E+01_JPRB,4.6007E+01_JPRB,4.4885E+01_JPRB/)
+KAO( :, 1, 3,16) = (/&
+&4.4902E+00_JPRB,3.9291E+00_JPRB,6.9369E+00_JPRB,1.0400E+01_JPRB,1.3863E+01_JPRB,1.7324E+01_JPRB,&
+&2.0784E+01_JPRB,2.4230E+01_JPRB,2.6510E+01_JPRB,2.7027E+01_JPRB,2.7042E+01_JPRB/)
+KAO( :, 2, 3,16) = (/&
+&4.4190E+00_JPRB,4.2063E+00_JPRB,8.3989E+00_JPRB,1.2591E+01_JPRB,1.6783E+01_JPRB,2.0972E+01_JPRB,&
+&2.5161E+01_JPRB,2.9338E+01_JPRB,3.2094E+01_JPRB,3.2723E+01_JPRB,3.2745E+01_JPRB/)
+KAO( :, 3, 3,16) = (/&
+&4.3422E+00_JPRB,4.9746E+00_JPRB,9.9306E+00_JPRB,1.4886E+01_JPRB,1.9841E+01_JPRB,2.4793E+01_JPRB,&
+&2.9742E+01_JPRB,3.4667E+01_JPRB,3.7936E+01_JPRB,3.8674E+01_JPRB,3.8715E+01_JPRB/)
+KAO( :, 4, 3,16) = (/&
+&4.2611E+00_JPRB,5.7667E+00_JPRB,1.1509E+01_JPRB,1.7250E+01_JPRB,2.2991E+01_JPRB,2.8729E+01_JPRB,&
+&3.4468E+01_JPRB,4.0180E+01_JPRB,4.3962E+01_JPRB,4.4836E+01_JPRB,4.4863E+01_JPRB/)
+KAO( :, 5, 3,16) = (/&
+&4.1760E+00_JPRB,6.5736E+00_JPRB,1.3115E+01_JPRB,1.9656E+01_JPRB,2.6196E+01_JPRB,3.2733E+01_JPRB,&
+&3.9264E+01_JPRB,4.5777E+01_JPRB,5.0083E+01_JPRB,5.1074E+01_JPRB,5.1136E+01_JPRB/)
+KAO( :, 1, 4,16) = (/&
+&5.0258E+00_JPRB,4.3977E+00_JPRB,7.1969E+00_JPRB,1.0791E+01_JPRB,1.4383E+01_JPRB,1.7975E+01_JPRB,&
+&2.1569E+01_JPRB,2.5144E+01_JPRB,2.7520E+01_JPRB,2.8065E+01_JPRB,2.8444E+01_JPRB/)
+KAO( :, 2, 4,16) = (/&
+&4.9390E+00_JPRB,4.4372E+00_JPRB,8.8585E+00_JPRB,1.3281E+01_JPRB,1.7703E+01_JPRB,2.2123E+01_JPRB,&
+&2.6539E+01_JPRB,3.0949E+01_JPRB,3.3856E+01_JPRB,3.4541E+01_JPRB,3.4994E+01_JPRB/)
+KAO( :, 3, 4,16) = (/&
+&4.8457E+00_JPRB,5.3158E+00_JPRB,1.0614E+01_JPRB,1.5912E+01_JPRB,2.1209E+01_JPRB,2.6503E+01_JPRB,&
+&3.1793E+01_JPRB,3.7075E+01_JPRB,4.0567E+01_JPRB,4.1384E+01_JPRB,4.1940E+01_JPRB/)
+KAO( :, 4, 4,16) = (/&
+&4.7474E+00_JPRB,6.2334E+00_JPRB,1.2443E+01_JPRB,1.8652E+01_JPRB,2.4860E+01_JPRB,3.1065E+01_JPRB,&
+&3.7265E+01_JPRB,4.3443E+01_JPRB,4.7539E+01_JPRB,4.8495E+01_JPRB,4.9142E+01_JPRB/)
+KAO( :, 5, 4,16) = (/&
+&4.6434E+00_JPRB,7.1705E+00_JPRB,1.4309E+01_JPRB,2.1448E+01_JPRB,2.8585E+01_JPRB,3.5719E+01_JPRB,&
+&4.2858E+01_JPRB,4.9961E+01_JPRB,5.4666E+01_JPRB,5.5776E+01_JPRB,5.6532E+01_JPRB/)
+KAO( :, 1, 5,16) = (/&
+&5.9530E+00_JPRB,5.2090E+00_JPRB,7.3637E+00_JPRB,1.1041E+01_JPRB,1.4718E+01_JPRB,1.8396E+01_JPRB,&
+&2.2069E+01_JPRB,2.5729E+01_JPRB,2.8163E+01_JPRB,2.8740E+01_JPRB,2.9269E+01_JPRB/)
+KAO( :, 2, 5,16) = (/&
+&5.7866E+00_JPRB,5.0634E+00_JPRB,9.2276E+00_JPRB,1.3835E+01_JPRB,1.8442E+01_JPRB,2.3049E+01_JPRB,&
+&2.7650E+01_JPRB,3.2234E+01_JPRB,3.5276E+01_JPRB,3.5999E+01_JPRB,3.6669E+01_JPRB/)
+KAO( :, 3, 5,16) = (/&
+&5.6302E+00_JPRB,5.6178E+00_JPRB,1.1219E+01_JPRB,1.6821E+01_JPRB,2.2421E+01_JPRB,2.8019E+01_JPRB,&
+&3.3616E+01_JPRB,3.9189E+01_JPRB,4.2893E+01_JPRB,4.3778E+01_JPRB,4.4575E+01_JPRB/)
+KAO( :, 4, 5,16) = (/&
+&5.4798E+00_JPRB,6.6656E+00_JPRB,1.3308E+01_JPRB,1.9950E+01_JPRB,2.6591E+01_JPRB,3.3229E+01_JPRB,&
+&3.9862E+01_JPRB,4.6471E+01_JPRB,5.0866E+01_JPRB,5.1930E+01_JPRB,5.2869E+01_JPRB/)
+KAO( :, 5, 5,16) = (/&
+&5.3354E+00_JPRB,7.7467E+00_JPRB,1.5462E+01_JPRB,2.3177E+01_JPRB,3.0891E+01_JPRB,3.8601E+01_JPRB,&
+&4.6304E+01_JPRB,5.3986E+01_JPRB,5.9081E+01_JPRB,6.0310E+01_JPRB,6.1426E+01_JPRB/)
+KAO( :, 1, 6,16) = (/&
+&7.2738E+00_JPRB,6.3646E+00_JPRB,7.3570E+00_JPRB,1.1032E+01_JPRB,1.4706E+01_JPRB,1.8378E+01_JPRB,&
+&2.2046E+01_JPRB,2.5711E+01_JPRB,2.8141E+01_JPRB,2.8729E+01_JPRB,2.9318E+01_JPRB/)
+KAO( :, 2, 6,16) = (/&
+&7.0648E+00_JPRB,6.1818E+00_JPRB,9.4107E+00_JPRB,1.4112E+01_JPRB,1.8811E+01_JPRB,2.3508E+01_JPRB,&
+&2.8203E+01_JPRB,3.2879E+01_JPRB,3.5997E+01_JPRB,3.6754E+01_JPRB,3.7506E+01_JPRB/)
+KAO( :, 3, 6,16) = (/&
+&6.8590E+00_JPRB,6.0610E+00_JPRB,1.1637E+01_JPRB,1.7447E+01_JPRB,2.3256E+01_JPRB,2.9066E+01_JPRB,&
+&3.4869E+01_JPRB,4.0663E+01_JPRB,4.4507E+01_JPRB,4.5454E+01_JPRB,4.6382E+01_JPRB/)
+KAO( :, 4, 6,16) = (/&
+&6.6613E+00_JPRB,7.0109E+00_JPRB,1.4000E+01_JPRB,2.0989E+01_JPRB,2.7977E+01_JPRB,3.4961E+01_JPRB,&
+&4.1942E+01_JPRB,4.8903E+01_JPRB,5.3535E+01_JPRB,5.4670E+01_JPRB,5.5779E+01_JPRB/)
+KAO( :, 5, 6,16) = (/&
+&6.4832E+00_JPRB,8.2415E+00_JPRB,1.6453E+01_JPRB,2.4664E+01_JPRB,3.2878E+01_JPRB,4.1086E+01_JPRB,&
+&4.9286E+01_JPRB,5.7462E+01_JPRB,6.2904E+01_JPRB,6.4241E+01_JPRB,6.5559E+01_JPRB/)
+KAO( :, 1, 7,16) = (/&
+&8.8732E+00_JPRB,7.7641E+00_JPRB,7.2311E+00_JPRB,1.0833E+01_JPRB,1.4441E+01_JPRB,1.8048E+01_JPRB,&
+&2.1653E+01_JPRB,2.5247E+01_JPRB,2.7641E+01_JPRB,2.8229E+01_JPRB,2.8832E+01_JPRB/)
+KAO( :, 2, 7,16) = (/&
+&8.6143E+00_JPRB,7.5376E+00_JPRB,9.4585E+00_JPRB,1.4183E+01_JPRB,1.8907E+01_JPRB,2.3629E+01_JPRB,&
+&2.8346E+01_JPRB,3.3048E+01_JPRB,3.6188E+01_JPRB,3.6968E+01_JPRB,3.7763E+01_JPRB/)
+KAO( :, 3, 7,16) = (/&
+&8.3664E+00_JPRB,7.3209E+00_JPRB,1.1919E+01_JPRB,1.7872E+01_JPRB,2.3823E+01_JPRB,2.9773E+01_JPRB,&
+&3.5718E+01_JPRB,4.1638E+01_JPRB,4.5593E+01_JPRB,4.6590E+01_JPRB,4.7567E+01_JPRB/)
+KAO( :, 4, 7,16) = (/&
+&8.1390E+00_JPRB,7.4468E+00_JPRB,1.4558E+01_JPRB,2.1826E+01_JPRB,2.9093E+01_JPRB,3.6357E+01_JPRB,&
+&4.3619E+01_JPRB,5.0854E+01_JPRB,5.5680E+01_JPRB,5.6904E+01_JPRB,5.8098E+01_JPRB/)
+KAO( :, 5, 7,16) = (/&
+&7.9265E+00_JPRB,8.6774E+00_JPRB,1.7326E+01_JPRB,2.5975E+01_JPRB,3.4621E+01_JPRB,4.3265E+01_JPRB,&
+&5.1911E+01_JPRB,6.0538E+01_JPRB,6.6258E+01_JPRB,6.7733E+01_JPRB,6.9141E+01_JPRB/)
+KAO( :, 1, 8,16) = (/&
+&1.0788E+01_JPRB,9.4395E+00_JPRB,8.0910E+00_JPRB,1.0487E+01_JPRB,1.3981E+01_JPRB,1.7474E+01_JPRB,&
+&2.0958E+01_JPRB,2.4442E+01_JPRB,2.6758E+01_JPRB,2.7356E+01_JPRB,2.7940E+01_JPRB/)
+KAO( :, 2, 8,16) = (/&
+&1.0475E+01_JPRB,9.1659E+00_JPRB,9.3873E+00_JPRB,1.4077E+01_JPRB,1.8765E+01_JPRB,2.3452E+01_JPRB,&
+&2.8149E+01_JPRB,3.2822E+01_JPRB,3.5937E+01_JPRB,3.6740E+01_JPRB,3.7513E+01_JPRB/)
+KAO( :, 3, 8,16) = (/&
+&1.0193E+01_JPRB,8.9191E+00_JPRB,1.2075E+01_JPRB,1.8106E+01_JPRB,2.4136E+01_JPRB,3.0164E+01_JPRB,&
+&3.6189E+01_JPRB,4.2205E+01_JPRB,4.6208E+01_JPRB,4.7253E+01_JPRB,4.8244E+01_JPRB/)
+KAO( :, 4, 8,16) = (/&
+&9.9289E+00_JPRB,8.6882E+00_JPRB,1.4994E+01_JPRB,2.2482E+01_JPRB,2.9968E+01_JPRB,3.7453E+01_JPRB,&
+&4.4932E+01_JPRB,5.2391E+01_JPRB,5.7371E+01_JPRB,5.8661E+01_JPRB,5.9909E+01_JPRB/)
+KAO( :, 5, 8,16) = (/&
+&9.6775E+00_JPRB,9.2158E+00_JPRB,1.8085E+01_JPRB,2.7113E+01_JPRB,3.6140E+01_JPRB,4.5163E+01_JPRB,&
+&5.4184E+01_JPRB,6.3203E+01_JPRB,6.9206E+01_JPRB,7.0757E+01_JPRB,7.2247E+01_JPRB/)
+KAO( :, 1, 9,16) = (/&
+&1.3069E+01_JPRB,1.1436E+01_JPRB,9.8022E+00_JPRB,9.9694E+00_JPRB,1.3291E+01_JPRB,1.6611E+01_JPRB,&
+&1.9930E+01_JPRB,2.3243E+01_JPRB,2.5447E+01_JPRB,2.6029E+01_JPRB,2.6580E+01_JPRB/)
+KAO( :, 2, 9,16) = (/&
+&1.2725E+01_JPRB,1.1134E+01_JPRB,9.8753E+00_JPRB,1.3769E+01_JPRB,1.8356E+01_JPRB,2.2942E+01_JPRB,&
+&2.7527E+01_JPRB,3.2095E+01_JPRB,3.5151E+01_JPRB,3.5948E+01_JPRB,3.6707E+01_JPRB/)
+KAO( :, 3, 9,16) = (/&
+&1.2400E+01_JPRB,1.0851E+01_JPRB,1.2076E+01_JPRB,1.8109E+01_JPRB,2.4141E+01_JPRB,3.0170E+01_JPRB,&
+&3.6196E+01_JPRB,4.2203E+01_JPRB,4.6216E+01_JPRB,4.7284E+01_JPRB,4.8252E+01_JPRB/)
+KAO( :, 4, 9,16) = (/&
+&1.2089E+01_JPRB,1.0578E+01_JPRB,1.5258E+01_JPRB,2.2878E+01_JPRB,3.0500E+01_JPRB,3.8117E+01_JPRB,&
+&4.5731E+01_JPRB,5.3326E+01_JPRB,5.8402E+01_JPRB,5.9748E+01_JPRB,6.0995E+01_JPRB/)
+KAO( :, 5, 9,16) = (/&
+&1.1789E+01_JPRB,1.0434E+01_JPRB,1.8677E+01_JPRB,2.8005E+01_JPRB,3.7330E+01_JPRB,4.6652E+01_JPRB,&
+&5.5969E+01_JPRB,6.5258E+01_JPRB,7.1468E+01_JPRB,7.3124E+01_JPRB,7.4629E+01_JPRB/)
+KAO( :, 1,10,16) = (/&
+&1.5771E+01_JPRB,1.3799E+01_JPRB,1.1828E+01_JPRB,1.0379E+01_JPRB,1.2776E+01_JPRB,1.5968E+01_JPRB,&
+&1.9158E+01_JPRB,2.2340E+01_JPRB,2.4469E+01_JPRB,2.5039E+01_JPRB,2.5553E+01_JPRB/)
+KAO( :, 2,10,16) = (/&
+&1.5386E+01_JPRB,1.3463E+01_JPRB,1.1540E+01_JPRB,1.3590E+01_JPRB,1.8117E+01_JPRB,2.2643E+01_JPRB,&
+&2.7166E+01_JPRB,3.1679E+01_JPRB,3.4682E+01_JPRB,3.5507E+01_JPRB,3.6231E+01_JPRB/)
+KAO( :, 3,10,16) = (/&
+&1.5014E+01_JPRB,1.3138E+01_JPRB,1.2638E+01_JPRB,1.8229E+01_JPRB,2.4305E+01_JPRB,3.0376E+01_JPRB,&
+&3.6447E+01_JPRB,4.2507E+01_JPRB,4.6554E+01_JPRB,4.7660E+01_JPRB,4.8617E+01_JPRB/)
+KAO( :, 4,10,16) = (/&
+&1.4647E+01_JPRB,1.2816E+01_JPRB,1.5618E+01_JPRB,2.3419E+01_JPRB,3.1218E+01_JPRB,3.9016E+01_JPRB,&
+&4.6807E+01_JPRB,5.4591E+01_JPRB,5.9795E+01_JPRB,6.1215E+01_JPRB,6.2420E+01_JPRB/)
+KAO( :, 5,10,16) = (/&
+&1.4280E+01_JPRB,1.2495E+01_JPRB,1.9355E+01_JPRB,2.9020E+01_JPRB,3.8692E+01_JPRB,4.8365E+01_JPRB,&
+&5.8042E+01_JPRB,6.7684E+01_JPRB,7.4123E+01_JPRB,7.5902E+01_JPRB,7.7369E+01_JPRB/)
+KAO( :, 1,11,16) = (/&
+&1.8786E+01_JPRB,1.6438E+01_JPRB,1.4090E+01_JPRB,1.2331E+01_JPRB,1.4530E+01_JPRB,1.8160E+01_JPRB,&
+&2.1788E+01_JPRB,2.5406E+01_JPRB,2.7840E+01_JPRB,2.8505E+01_JPRB,3.1090E+01_JPRB/)
+KAO( :, 2,11,16) = (/&
+&1.8352E+01_JPRB,1.6058E+01_JPRB,1.3764E+01_JPRB,1.5493E+01_JPRB,2.0554E+01_JPRB,2.5688E+01_JPRB,&
+&3.0819E+01_JPRB,3.5940E+01_JPRB,3.9370E+01_JPRB,4.0314E+01_JPRB,4.1103E+01_JPRB/)
+KAO( :, 3,11,16) = (/&
+&1.7913E+01_JPRB,1.5674E+01_JPRB,1.4890E+01_JPRB,2.0637E+01_JPRB,2.7511E+01_JPRB,3.4389E+01_JPRB,&
+&4.1261E+01_JPRB,4.8114E+01_JPRB,5.2700E+01_JPRB,5.3986E+01_JPRB,5.5030E+01_JPRB/)
+KAO( :, 4,11,16) = (/&
+&1.7463E+01_JPRB,1.5280E+01_JPRB,1.7784E+01_JPRB,2.6445E+01_JPRB,3.5253E+01_JPRB,4.4066E+01_JPRB,&
+&5.2867E+01_JPRB,6.1654E+01_JPRB,6.7542E+01_JPRB,6.9213E+01_JPRB,7.0519E+01_JPRB/)
+KAO( :, 5,11,16) = (/&
+&1.7011E+01_JPRB,1.4885E+01_JPRB,2.1813E+01_JPRB,3.2706E+01_JPRB,4.3599E+01_JPRB,5.4495E+01_JPRB,&
+&6.5377E+01_JPRB,7.6235E+01_JPRB,8.3536E+01_JPRB,8.5586E+01_JPRB,8.7197E+01_JPRB/)
+KAO( :, 1,12,16) = (/&
+&2.2316E+01_JPRB,1.9527E+01_JPRB,1.6737E+01_JPRB,1.4596E+01_JPRB,1.6461E+01_JPRB,2.0474E+01_JPRB,&
+&2.4566E+01_JPRB,2.8661E+01_JPRB,3.1410E+01_JPRB,3.2180E+01_JPRB,4.4855E+01_JPRB/)
+KAO( :, 2,12,16) = (/&
+&2.1794E+01_JPRB,1.9070E+01_JPRB,1.6346E+01_JPRB,1.7861E+01_JPRB,2.3106E+01_JPRB,2.8879E+01_JPRB,&
+&3.4647E+01_JPRB,4.0407E+01_JPRB,4.4277E+01_JPRB,4.5382E+01_JPRB,4.9760E+01_JPRB/)
+KAO( :, 3,12,16) = (/&
+&2.1250E+01_JPRB,1.8594E+01_JPRB,1.7508E+01_JPRB,2.3135E+01_JPRB,3.0842E+01_JPRB,3.8557E+01_JPRB,&
+&4.6258E+01_JPRB,5.3944E+01_JPRB,5.9113E+01_JPRB,6.0595E+01_JPRB,6.2174E+01_JPRB/)
+KAO( :, 4,12,16) = (/&
+&2.0691E+01_JPRB,1.8105E+01_JPRB,2.0448E+01_JPRB,2.9564E+01_JPRB,3.9416E+01_JPRB,4.9267E+01_JPRB,&
+&5.9115E+01_JPRB,6.8938E+01_JPRB,7.5537E+01_JPRB,7.7449E+01_JPRB,7.8830E+01_JPRB/)
+KAO( :, 5,12,16) = (/&
+&2.0116E+01_JPRB,1.7618E+01_JPRB,2.4414E+01_JPRB,3.6468E+01_JPRB,4.8613E+01_JPRB,6.0754E+01_JPRB,&
+&7.2909E+01_JPRB,8.5015E+01_JPRB,9.3174E+01_JPRB,9.5539E+01_JPRB,9.7222E+01_JPRB/)
+KAO( :, 1,13,16) = (/&
+&2.6369E+01_JPRB,2.3073E+01_JPRB,1.9777E+01_JPRB,1.7264E+01_JPRB,1.8821E+01_JPRB,2.2830E+01_JPRB,&
+&2.7390E+01_JPRB,3.1940E+01_JPRB,3.5002E+01_JPRB,3.5903E+01_JPRB,5.1967E+01_JPRB/)
+KAO( :, 2,13,16) = (/&
+&2.5711E+01_JPRB,2.2497E+01_JPRB,1.9315E+01_JPRB,2.0637E+01_JPRB,2.5666E+01_JPRB,3.2078E+01_JPRB,&
+&3.8490E+01_JPRB,4.4893E+01_JPRB,4.9192E+01_JPRB,5.0468E+01_JPRB,5.7721E+01_JPRB/)
+KAO( :, 3,13,16) = (/&
+&2.5020E+01_JPRB,2.1893E+01_JPRB,2.0597E+01_JPRB,2.5898E+01_JPRB,3.4157E+01_JPRB,4.2689E+01_JPRB,&
+&5.1216E+01_JPRB,5.9737E+01_JPRB,6.5448E+01_JPRB,6.7176E+01_JPRB,7.0449E+01_JPRB/)
+KAO( :, 4,13,16) = (/&
+&2.4297E+01_JPRB,2.1260E+01_JPRB,2.3512E+01_JPRB,3.2642E+01_JPRB,4.3514E+01_JPRB,5.4385E+01_JPRB,&
+&6.5247E+01_JPRB,7.6086E+01_JPRB,8.3406E+01_JPRB,8.5607E+01_JPRB,8.7331E+01_JPRB/)
+KAO( :, 5,13,16) = (/&
+&2.3576E+01_JPRB,2.0739E+01_JPRB,2.7492E+01_JPRB,4.0149E+01_JPRB,5.3519E+01_JPRB,6.6886E+01_JPRB,&
+&8.0252E+01_JPRB,9.3599E+01_JPRB,1.0259E+02_JPRB,1.0529E+02_JPRB,1.0701E+02_JPRB/)
+
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB9_A2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_BB.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_BB.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_kgb9_BB.F90	(revision 2160)
@@ -0,0 +1,1544 @@
+!OCL SCALAR
+SUBROUTINE RRTM_KGB9_BB
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+           &FRACREFBO, ABSN2OO
+USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+&4.0994E-03_JPRB,5.0728E-03_JPRB,6.1420E-03_JPRB,7.2969E-03_JPRB,8.5215E-03_JPRB/)
+KBO( :,14, 1) = (/&
+&3.5608E-03_JPRB,4.4025E-03_JPRB,5.3259E-03_JPRB,6.3236E-03_JPRB,7.3838E-03_JPRB/)
+KBO( :,15, 1) = (/&
+&3.1441E-03_JPRB,3.8833E-03_JPRB,4.6911E-03_JPRB,5.5651E-03_JPRB,6.4864E-03_JPRB/)
+KBO( :,16, 1) = (/&
+&2.7804E-03_JPRB,3.4263E-03_JPRB,4.1318E-03_JPRB,4.8903E-03_JPRB,5.6839E-03_JPRB/)
+KBO( :,17, 1) = (/&
+&2.5177E-03_JPRB,3.0931E-03_JPRB,3.7229E-03_JPRB,4.3958E-03_JPRB,5.0932E-03_JPRB/)
+KBO( :,18, 1) = (/&
+&2.3397E-03_JPRB,2.8662E-03_JPRB,3.4383E-03_JPRB,4.0476E-03_JPRB,4.6762E-03_JPRB/)
+KBO( :,19, 1) = (/&
+&2.2067E-03_JPRB,2.6944E-03_JPRB,3.2196E-03_JPRB,3.7730E-03_JPRB,4.3369E-03_JPRB/)
+KBO( :,20, 1) = (/&
+&1.9900E-03_JPRB,2.4229E-03_JPRB,2.8861E-03_JPRB,3.3669E-03_JPRB,3.8498E-03_JPRB/)
+KBO( :,21, 1) = (/&
+&1.7699E-03_JPRB,2.1476E-03_JPRB,2.5489E-03_JPRB,2.9591E-03_JPRB,3.3696E-03_JPRB/)
+KBO( :,22, 1) = (/&
+&1.5791E-03_JPRB,1.9073E-03_JPRB,2.2490E-03_JPRB,2.5953E-03_JPRB,2.9423E-03_JPRB/)
+KBO( :,23, 1) = (/&
+&1.4083E-03_JPRB,1.6913E-03_JPRB,1.9813E-03_JPRB,2.2728E-03_JPRB,2.5656E-03_JPRB/)
+KBO( :,24, 1) = (/&
+&1.2531E-03_JPRB,1.4945E-03_JPRB,1.7386E-03_JPRB,1.9824E-03_JPRB,2.2278E-03_JPRB/)
+KBO( :,25, 1) = (/&
+&1.1116E-03_JPRB,1.3151E-03_JPRB,1.5192E-03_JPRB,1.7227E-03_JPRB,1.9286E-03_JPRB/)
+KBO( :,26, 1) = (/&
+&9.8108E-04_JPRB,1.1510E-03_JPRB,1.3208E-03_JPRB,1.4915E-03_JPRB,1.6636E-03_JPRB/)
+KBO( :,27, 1) = (/&
+&8.5741E-04_JPRB,9.9814E-04_JPRB,1.1394E-03_JPRB,1.2818E-03_JPRB,1.4244E-03_JPRB/)
+KBO( :,28, 1) = (/&
+&7.4362E-04_JPRB,8.5993E-04_JPRB,9.7672E-04_JPRB,1.0942E-03_JPRB,1.2112E-03_JPRB/)
+KBO( :,29, 1) = (/&
+&6.4173E-04_JPRB,7.3787E-04_JPRB,8.3430E-04_JPRB,9.3077E-04_JPRB,1.0275E-03_JPRB/)
+KBO( :,30, 1) = (/&
+&5.5206E-04_JPRB,6.3117E-04_JPRB,7.1043E-04_JPRB,7.8981E-04_JPRB,8.6914E-04_JPRB/)
+KBO( :,31, 1) = (/&
+&4.7282E-04_JPRB,5.3772E-04_JPRB,6.0295E-04_JPRB,6.6810E-04_JPRB,7.3341E-04_JPRB/)
+KBO( :,32, 1) = (/&
+&4.0428E-04_JPRB,4.5779E-04_JPRB,5.1149E-04_JPRB,5.6525E-04_JPRB,6.1880E-04_JPRB/)
+KBO( :,33, 1) = (/&
+&3.4491E-04_JPRB,3.8913E-04_JPRB,4.3344E-04_JPRB,4.7736E-04_JPRB,5.2088E-04_JPRB/)
+KBO( :,34, 1) = (/&
+&2.9576E-04_JPRB,3.3268E-04_JPRB,3.6928E-04_JPRB,4.0567E-04_JPRB,4.4172E-04_JPRB/)
+KBO( :,35, 1) = (/&
+&2.5077E-04_JPRB,2.8136E-04_JPRB,3.1174E-04_JPRB,3.4190E-04_JPRB,3.7190E-04_JPRB/)
+KBO( :,36, 1) = (/&
+&2.0965E-04_JPRB,2.3515E-04_JPRB,2.6041E-04_JPRB,2.8542E-04_JPRB,3.1056E-04_JPRB/)
+KBO( :,37, 1) = (/&
+&1.6881E-04_JPRB,1.8974E-04_JPRB,2.1051E-04_JPRB,2.3106E-04_JPRB,2.5174E-04_JPRB/)
+KBO( :,38, 1) = (/&
+&1.3519E-04_JPRB,1.5238E-04_JPRB,1.6942E-04_JPRB,1.8630E-04_JPRB,2.0323E-04_JPRB/)
+KBO( :,39, 1) = (/&
+&1.0769E-04_JPRB,1.2175E-04_JPRB,1.3571E-04_JPRB,1.4957E-04_JPRB,1.6341E-04_JPRB/)
+KBO( :,40, 1) = (/&
+&8.3659E-05_JPRB,9.4997E-05_JPRB,1.0624E-04_JPRB,1.1742E-04_JPRB,1.2854E-04_JPRB/)
+KBO( :,41, 1) = (/&
+&6.4553E-05_JPRB,7.3658E-05_JPRB,8.2687E-05_JPRB,9.1644E-05_JPRB,1.0055E-04_JPRB/)
+KBO( :,42, 1) = (/&
+&4.9559E-05_JPRB,5.6844E-05_JPRB,6.4074E-05_JPRB,7.1250E-05_JPRB,7.8380E-05_JPRB/)
+KBO( :,43, 1) = (/&
+&3.7325E-05_JPRB,4.3138E-05_JPRB,4.8889E-05_JPRB,5.4599E-05_JPRB,6.0264E-05_JPRB/)
+KBO( :,44, 1) = (/&
+&2.7719E-05_JPRB,3.2330E-05_JPRB,3.6894E-05_JPRB,4.1410E-05_JPRB,4.5899E-05_JPRB/)
+KBO( :,45, 1) = (/&
+&2.0321E-05_JPRB,2.3995E-05_JPRB,2.7586E-05_JPRB,3.1159E-05_JPRB,3.4704E-05_JPRB/)
+KBO( :,46, 1) = (/&
+&1.4684E-05_JPRB,1.7602E-05_JPRB,2.0438E-05_JPRB,2.3255E-05_JPRB,2.6055E-05_JPRB/)
+KBO( :,47, 1) = (/&
+&1.0495E-05_JPRB,1.2761E-05_JPRB,1.5036E-05_JPRB,1.7255E-05_JPRB,1.9472E-05_JPRB/)
+KBO( :,48, 1) = (/&
+&7.3772E-06_JPRB,9.1061E-06_JPRB,1.0897E-05_JPRB,1.2655E-05_JPRB,1.4395E-05_JPRB/)
+KBO( :,49, 1) = (/&
+&5.0673E-06_JPRB,6.3724E-06_JPRB,7.7347E-06_JPRB,9.1249E-06_JPRB,1.0486E-05_JPRB/)
+KBO( :,50, 1) = (/&
+&3.5302E-06_JPRB,4.5180E-06_JPRB,5.5663E-06_JPRB,6.6492E-06_JPRB,7.7336E-06_JPRB/)
+KBO( :,51, 1) = (/&
+&2.4650E-06_JPRB,3.2117E-06_JPRB,4.0196E-06_JPRB,4.8590E-06_JPRB,5.7209E-06_JPRB/)
+KBO( :,52, 1) = (/&
+&1.6959E-06_JPRB,2.2491E-06_JPRB,2.8606E-06_JPRB,3.5081E-06_JPRB,4.1772E-06_JPRB/)
+KBO( :,53, 1) = (/&
+&1.1461E-06_JPRB,1.5466E-06_JPRB,1.9999E-06_JPRB,2.4909E-06_JPRB,3.0024E-06_JPRB/)
+KBO( :,54, 1) = (/&
+&8.1277E-07_JPRB,1.1151E-06_JPRB,1.4623E-06_JPRB,1.8438E-06_JPRB,2.2473E-06_JPRB/)
+KBO( :,55, 1) = (/&
+&5.9132E-07_JPRB,8.2491E-07_JPRB,1.0964E-06_JPRB,1.3990E-06_JPRB,1.7223E-06_JPRB/)
+KBO( :,56, 1) = (/&
+&4.2770E-07_JPRB,6.0720E-07_JPRB,8.1863E-07_JPRB,1.0577E-06_JPRB,1.3158E-06_JPRB/)
+KBO( :,57, 1) = (/&
+&3.0731E-07_JPRB,4.4442E-07_JPRB,6.0841E-07_JPRB,7.9635E-07_JPRB,1.0017E-06_JPRB/)
+KBO( :,58, 1) = (/&
+&2.2286E-07_JPRB,3.2839E-07_JPRB,4.5650E-07_JPRB,6.0508E-07_JPRB,7.6969E-07_JPRB/)
+KBO( :,59, 1) = (/&
+&1.8935E-07_JPRB,2.8208E-07_JPRB,3.9434E-07_JPRB,5.2454E-07_JPRB,6.6793E-07_JPRB/)
+KBO( :,13, 2) = (/&
+&2.0350E-02_JPRB,2.3737E-02_JPRB,2.7056E-02_JPRB,3.0424E-02_JPRB,3.3880E-02_JPRB/)
+KBO( :,14, 2) = (/&
+&1.7887E-02_JPRB,2.0698E-02_JPRB,2.3474E-02_JPRB,2.6314E-02_JPRB,2.9218E-02_JPRB/)
+KBO( :,15, 2) = (/&
+&1.5699E-02_JPRB,1.8063E-02_JPRB,2.0419E-02_JPRB,2.2807E-02_JPRB,2.5263E-02_JPRB/)
+KBO( :,16, 2) = (/&
+&1.3704E-02_JPRB,1.5696E-02_JPRB,1.7682E-02_JPRB,1.9683E-02_JPRB,2.1758E-02_JPRB/)
+KBO( :,17, 2) = (/&
+&1.2174E-02_JPRB,1.3873E-02_JPRB,1.5565E-02_JPRB,1.7279E-02_JPRB,1.9055E-02_JPRB/)
+KBO( :,18, 2) = (/&
+&1.1051E-02_JPRB,1.2529E-02_JPRB,1.4014E-02_JPRB,1.5532E-02_JPRB,1.7091E-02_JPRB/)
+KBO( :,19, 2) = (/&
+&1.0133E-02_JPRB,1.1442E-02_JPRB,1.2772E-02_JPRB,1.4145E-02_JPRB,1.5532E-02_JPRB/)
+KBO( :,20, 2) = (/&
+&8.9501E-03_JPRB,1.0074E-02_JPRB,1.1232E-02_JPRB,1.2420E-02_JPRB,1.3612E-02_JPRB/)
+KBO( :,21, 2) = (/&
+&7.8061E-03_JPRB,8.7666E-03_JPRB,9.7638E-03_JPRB,1.0776E-02_JPRB,1.1786E-02_JPRB/)
+KBO( :,22, 2) = (/&
+&6.7985E-03_JPRB,7.6154E-03_JPRB,8.4665E-03_JPRB,9.3161E-03_JPRB,1.0161E-02_JPRB/)
+KBO( :,23, 2) = (/&
+&5.9115E-03_JPRB,6.6091E-03_JPRB,7.3264E-03_JPRB,8.0410E-03_JPRB,8.7466E-03_JPRB/)
+KBO( :,24, 2) = (/&
+&5.1182E-03_JPRB,5.7070E-03_JPRB,6.3037E-03_JPRB,6.8969E-03_JPRB,7.4832E-03_JPRB/)
+KBO( :,25, 2) = (/&
+&4.4185E-03_JPRB,4.9117E-03_JPRB,5.4043E-03_JPRB,5.8933E-03_JPRB,6.3802E-03_JPRB/)
+KBO( :,26, 2) = (/&
+&3.8039E-03_JPRB,4.2126E-03_JPRB,4.6157E-03_JPRB,5.0191E-03_JPRB,5.4221E-03_JPRB/)
+KBO( :,27, 2) = (/&
+&3.2526E-03_JPRB,3.5834E-03_JPRB,3.9131E-03_JPRB,4.2430E-03_JPRB,4.5744E-03_JPRB/)
+KBO( :,28, 2) = (/&
+&2.7589E-03_JPRB,3.0253E-03_JPRB,3.2916E-03_JPRB,3.5602E-03_JPRB,3.8315E-03_JPRB/)
+KBO( :,29, 2) = (/&
+&2.3366E-03_JPRB,2.5520E-03_JPRB,2.7694E-03_JPRB,2.9896E-03_JPRB,3.2113E-03_JPRB/)
+KBO( :,30, 2) = (/&
+&1.9721E-03_JPRB,2.1482E-03_JPRB,2.3261E-03_JPRB,2.5062E-03_JPRB,2.6880E-03_JPRB/)
+KBO( :,31, 2) = (/&
+&1.6646E-03_JPRB,1.8093E-03_JPRB,1.9562E-03_JPRB,2.1055E-03_JPRB,2.2560E-03_JPRB/)
+KBO( :,32, 2) = (/&
+&1.4084E-03_JPRB,1.5283E-03_JPRB,1.6508E-03_JPRB,1.7751E-03_JPRB,1.9009E-03_JPRB/)
+KBO( :,33, 2) = (/&
+&1.1942E-03_JPRB,1.2940E-03_JPRB,1.3964E-03_JPRB,1.5007E-03_JPRB,1.6067E-03_JPRB/)
+KBO( :,34, 2) = (/&
+&1.0227E-03_JPRB,1.1075E-03_JPRB,1.1945E-03_JPRB,1.2830E-03_JPRB,1.3735E-03_JPRB/)
+KBO( :,35, 2) = (/&
+&8.7018E-04_JPRB,9.4216E-04_JPRB,1.0160E-03_JPRB,1.0916E-03_JPRB,1.1695E-03_JPRB/)
+KBO( :,36, 2) = (/&
+&7.3515E-04_JPRB,7.9615E-04_JPRB,8.5904E-04_JPRB,9.2392E-04_JPRB,9.9055E-04_JPRB/)
+KBO( :,37, 2) = (/&
+&6.0212E-04_JPRB,6.5252E-04_JPRB,7.0452E-04_JPRB,7.5835E-04_JPRB,8.1370E-04_JPRB/)
+KBO( :,38, 2) = (/&
+&4.9188E-04_JPRB,5.3334E-04_JPRB,5.7632E-04_JPRB,6.2087E-04_JPRB,6.6682E-04_JPRB/)
+KBO( :,39, 2) = (/&
+&4.0118E-04_JPRB,4.3525E-04_JPRB,4.7078E-04_JPRB,5.0765E-04_JPRB,5.4579E-04_JPRB/)
+KBO( :,40, 2) = (/&
+&3.1804E-04_JPRB,3.4535E-04_JPRB,3.7372E-04_JPRB,4.0332E-04_JPRB,4.3403E-04_JPRB/)
+KBO( :,41, 2) = (/&
+&2.5079E-04_JPRB,2.7257E-04_JPRB,2.9509E-04_JPRB,3.1873E-04_JPRB,3.4326E-04_JPRB/)
+KBO( :,42, 2) = (/&
+&1.9734E-04_JPRB,2.1467E-04_JPRB,2.3255E-04_JPRB,2.5134E-04_JPRB,2.7095E-04_JPRB/)
+KBO( :,43, 2) = (/&
+&1.5339E-04_JPRB,1.6697E-04_JPRB,1.8107E-04_JPRB,1.9578E-04_JPRB,2.1125E-04_JPRB/)
+KBO( :,44, 2) = (/&
+&1.1845E-04_JPRB,1.2903E-04_JPRB,1.4006E-04_JPRB,1.5150E-04_JPRB,1.6358E-04_JPRB/)
+KBO( :,45, 2) = (/&
+&9.1280E-05_JPRB,9.9479E-05_JPRB,1.0807E-04_JPRB,1.1698E-04_JPRB,1.2633E-04_JPRB/)
+KBO( :,46, 2) = (/&
+&7.0194E-05_JPRB,7.6516E-05_JPRB,8.3188E-05_JPRB,9.0126E-05_JPRB,9.7367E-05_JPRB/)
+KBO( :,47, 2) = (/&
+&5.3867E-05_JPRB,5.8795E-05_JPRB,6.3952E-05_JPRB,6.9343E-05_JPRB,7.4969E-05_JPRB/)
+KBO( :,48, 2) = (/&
+&4.1189E-05_JPRB,4.5058E-05_JPRB,4.9041E-05_JPRB,5.3206E-05_JPRB,5.7575E-05_JPRB/)
+KBO( :,49, 2) = (/&
+&3.1341E-05_JPRB,3.4382E-05_JPRB,3.7483E-05_JPRB,4.0694E-05_JPRB,4.4051E-05_JPRB/)
+KBO( :,50, 2) = (/&
+&2.4027E-05_JPRB,2.6443E-05_JPRB,2.8884E-05_JPRB,3.1394E-05_JPRB,3.3991E-05_JPRB/)
+KBO( :,51, 2) = (/&
+&1.8468E-05_JPRB,2.0396E-05_JPRB,2.2328E-05_JPRB,2.4296E-05_JPRB,2.6326E-05_JPRB/)
+KBO( :,52, 2) = (/&
+&1.4146E-05_JPRB,1.5676E-05_JPRB,1.7214E-05_JPRB,1.8760E-05_JPRB,2.0350E-05_JPRB/)
+KBO( :,53, 2) = (/&
+&1.0781E-05_JPRB,1.1992E-05_JPRB,1.3217E-05_JPRB,1.4439E-05_JPRB,1.5682E-05_JPRB/)
+KBO( :,54, 2) = (/&
+&8.3350E-06_JPRB,9.3049E-06_JPRB,1.0280E-05_JPRB,1.1258E-05_JPRB,1.2239E-05_JPRB/)
+KBO( :,55, 2) = (/&
+&6.4823E-06_JPRB,7.2753E-06_JPRB,8.0542E-06_JPRB,8.8375E-06_JPRB,9.6163E-06_JPRB/)
+KBO( :,56, 2) = (/&
+&5.0178E-06_JPRB,5.6802E-06_JPRB,6.3041E-06_JPRB,6.9292E-06_JPRB,7.5496E-06_JPRB/)
+KBO( :,57, 2) = (/&
+&3.8663E-06_JPRB,4.4221E-06_JPRB,4.9273E-06_JPRB,5.4254E-06_JPRB,5.9221E-06_JPRB/)
+KBO( :,58, 2) = (/&
+&2.9804E-06_JPRB,3.4457E-06_JPRB,3.8617E-06_JPRB,4.2609E-06_JPRB,4.6580E-06_JPRB/)
+KBO( :,59, 2) = (/&
+&2.4280E-06_JPRB,2.8160E-06_JPRB,3.1595E-06_JPRB,3.4836E-06_JPRB,3.8045E-06_JPRB/)
+KBO( :,13, 3) = (/&
+&5.2207E-02_JPRB,5.8218E-02_JPRB,6.4867E-02_JPRB,7.1854E-02_JPRB,7.9269E-02_JPRB/)
+KBO( :,14, 3) = (/&
+&4.5186E-02_JPRB,5.0511E-02_JPRB,5.6225E-02_JPRB,6.2140E-02_JPRB,6.8380E-02_JPRB/)
+KBO( :,15, 3) = (/&
+&3.9072E-02_JPRB,4.3588E-02_JPRB,4.8378E-02_JPRB,5.3369E-02_JPRB,5.8579E-02_JPRB/)
+KBO( :,16, 3) = (/&
+&3.3600E-02_JPRB,3.7414E-02_JPRB,4.1420E-02_JPRB,4.5603E-02_JPRB,4.9920E-02_JPRB/)
+KBO( :,17, 3) = (/&
+&2.9352E-02_JPRB,3.2637E-02_JPRB,3.6077E-02_JPRB,3.9644E-02_JPRB,4.3315E-02_JPRB/)
+KBO( :,18, 3) = (/&
+&2.6239E-02_JPRB,2.9170E-02_JPRB,3.2236E-02_JPRB,3.5401E-02_JPRB,3.8652E-02_JPRB/)
+KBO( :,19, 3) = (/&
+&2.3733E-02_JPRB,2.6395E-02_JPRB,2.9161E-02_JPRB,3.2005E-02_JPRB,3.4969E-02_JPRB/)
+KBO( :,20, 3) = (/&
+&2.0795E-02_JPRB,2.3131E-02_JPRB,2.5535E-02_JPRB,2.8011E-02_JPRB,3.0599E-02_JPRB/)
+KBO( :,21, 3) = (/&
+&1.8040E-02_JPRB,2.0057E-02_JPRB,2.2116E-02_JPRB,2.4262E-02_JPRB,2.6478E-02_JPRB/)
+KBO( :,22, 3) = (/&
+&1.5612E-02_JPRB,1.7322E-02_JPRB,1.9070E-02_JPRB,2.0895E-02_JPRB,2.2752E-02_JPRB/)
+KBO( :,23, 3) = (/&
+&1.3484E-02_JPRB,1.4923E-02_JPRB,1.6411E-02_JPRB,1.7947E-02_JPRB,1.9492E-02_JPRB/)
+KBO( :,24, 3) = (/&
+&1.1550E-02_JPRB,1.2744E-02_JPRB,1.3987E-02_JPRB,1.5260E-02_JPRB,1.6517E-02_JPRB/)
+KBO( :,25, 3) = (/&
+&9.8605E-03_JPRB,1.0848E-02_JPRB,1.1882E-02_JPRB,1.2919E-02_JPRB,1.3956E-02_JPRB/)
+KBO( :,26, 3) = (/&
+&8.3958E-03_JPRB,9.2176E-03_JPRB,1.0068E-02_JPRB,1.0918E-02_JPRB,1.1783E-02_JPRB/)
+KBO( :,27, 3) = (/&
+&7.0886E-03_JPRB,7.7689E-03_JPRB,8.4604E-03_JPRB,9.1621E-03_JPRB,9.8810E-03_JPRB/)
+KBO( :,28, 3) = (/&
+&5.9371E-03_JPRB,6.4915E-03_JPRB,7.0594E-03_JPRB,7.6411E-03_JPRB,8.2339E-03_JPRB/)
+KBO( :,29, 3) = (/&
+&4.9851E-03_JPRB,5.4425E-03_JPRB,5.9143E-03_JPRB,6.3959E-03_JPRB,6.8922E-03_JPRB/)
+KBO( :,30, 3) = (/&
+&4.1812E-03_JPRB,4.5627E-03_JPRB,4.9527E-03_JPRB,5.3553E-03_JPRB,5.7728E-03_JPRB/)
+KBO( :,31, 3) = (/&
+&3.5208E-03_JPRB,3.8377E-03_JPRB,4.1624E-03_JPRB,4.5005E-03_JPRB,4.8529E-03_JPRB/)
+KBO( :,32, 3) = (/&
+&2.9794E-03_JPRB,3.2434E-03_JPRB,3.5171E-03_JPRB,3.8033E-03_JPRB,4.1013E-03_JPRB/)
+KBO( :,33, 3) = (/&
+&2.5298E-03_JPRB,2.7525E-03_JPRB,2.9853E-03_JPRB,3.2295E-03_JPRB,3.4800E-03_JPRB/)
+KBO( :,34, 3) = (/&
+&2.1748E-03_JPRB,2.3658E-03_JPRB,2.5669E-03_JPRB,2.7771E-03_JPRB,2.9911E-03_JPRB/)
+KBO( :,35, 3) = (/&
+&1.8567E-03_JPRB,2.0216E-03_JPRB,2.1956E-03_JPRB,2.3760E-03_JPRB,2.5595E-03_JPRB/)
+KBO( :,36, 3) = (/&
+&1.5731E-03_JPRB,1.7153E-03_JPRB,1.8654E-03_JPRB,2.0205E-03_JPRB,2.1791E-03_JPRB/)
+KBO( :,37, 3) = (/&
+&1.2933E-03_JPRB,1.4114E-03_JPRB,1.5364E-03_JPRB,1.6658E-03_JPRB,1.7984E-03_JPRB/)
+KBO( :,38, 3) = (/&
+&1.0616E-03_JPRB,1.1594E-03_JPRB,1.2634E-03_JPRB,1.3712E-03_JPRB,1.4820E-03_JPRB/)
+KBO( :,39, 3) = (/&
+&8.7125E-04_JPRB,9.5245E-04_JPRB,1.0387E-03_JPRB,1.1287E-03_JPRB,1.2213E-03_JPRB/)
+KBO( :,40, 3) = (/&
+&6.9327E-04_JPRB,7.5826E-04_JPRB,8.2752E-04_JPRB,8.9995E-04_JPRB,9.7479E-04_JPRB/)
+KBO( :,41, 3) = (/&
+&5.4868E-04_JPRB,6.0043E-04_JPRB,6.5570E-04_JPRB,7.1362E-04_JPRB,7.7402E-04_JPRB/)
+KBO( :,42, 3) = (/&
+&4.3350E-04_JPRB,4.7475E-04_JPRB,5.1866E-04_JPRB,5.6496E-04_JPRB,6.1339E-04_JPRB/)
+KBO( :,43, 3) = (/&
+&3.3831E-04_JPRB,3.7074E-04_JPRB,4.0518E-04_JPRB,4.4169E-04_JPRB,4.7994E-04_JPRB/)
+KBO( :,44, 3) = (/&
+&2.6244E-04_JPRB,2.8770E-04_JPRB,3.1459E-04_JPRB,3.4301E-04_JPRB,3.7299E-04_JPRB/)
+KBO( :,45, 3) = (/&
+&2.0330E-04_JPRB,2.2282E-04_JPRB,2.4376E-04_JPRB,2.6587E-04_JPRB,2.8931E-04_JPRB/)
+KBO( :,46, 3) = (/&
+&1.5718E-04_JPRB,1.7223E-04_JPRB,1.8847E-04_JPRB,2.0565E-04_JPRB,2.2386E-04_JPRB/)
+KBO( :,47, 3) = (/&
+&1.2137E-04_JPRB,1.3292E-04_JPRB,1.4544E-04_JPRB,1.5881E-04_JPRB,1.7290E-04_JPRB/)
+KBO( :,48, 3) = (/&
+&9.3602E-05_JPRB,1.0245E-04_JPRB,1.1206E-04_JPRB,1.2242E-04_JPRB,1.3333E-04_JPRB/)
+KBO( :,49, 3) = (/&
+&7.2096E-05_JPRB,7.8857E-05_JPRB,8.6198E-05_JPRB,9.4146E-05_JPRB,1.0259E-04_JPRB/)
+KBO( :,50, 3) = (/&
+&5.5913E-05_JPRB,6.1131E-05_JPRB,6.6766E-05_JPRB,7.2901E-05_JPRB,7.9460E-05_JPRB/)
+KBO( :,51, 3) = (/&
+&4.3511E-05_JPRB,4.7559E-05_JPRB,5.1896E-05_JPRB,5.6624E-05_JPRB,6.1713E-05_JPRB/)
+KBO( :,52, 3) = (/&
+&3.3817E-05_JPRB,3.6967E-05_JPRB,4.0308E-05_JPRB,4.3936E-05_JPRB,4.7870E-05_JPRB/)
+KBO( :,53, 3) = (/&
+&2.6251E-05_JPRB,2.8701E-05_JPRB,3.1278E-05_JPRB,3.4055E-05_JPRB,3.7076E-05_JPRB/)
+KBO( :,54, 3) = (/&
+&2.0565E-05_JPRB,2.2472E-05_JPRB,2.4493E-05_JPRB,2.6647E-05_JPRB,2.8987E-05_JPRB/)
+KBO( :,55, 3) = (/&
+&1.6201E-05_JPRB,1.7665E-05_JPRB,1.9265E-05_JPRB,2.0950E-05_JPRB,2.2778E-05_JPRB/)
+KBO( :,56, 3) = (/&
+&1.2781E-05_JPRB,1.3883E-05_JPRB,1.5142E-05_JPRB,1.6468E-05_JPRB,1.7890E-05_JPRB/)
+KBO( :,57, 3) = (/&
+&1.0089E-05_JPRB,1.0916E-05_JPRB,1.1894E-05_JPRB,1.2940E-05_JPRB,1.4042E-05_JPRB/)
+KBO( :,58, 3) = (/&
+&7.9784E-06_JPRB,8.6088E-06_JPRB,9.3610E-06_JPRB,1.0185E-05_JPRB,1.1049E-05_JPRB/)
+KBO( :,59, 3) = (/&
+&6.4510E-06_JPRB,6.9647E-06_JPRB,7.5759E-06_JPRB,8.2439E-06_JPRB,8.9478E-06_JPRB/)
+KBO( :,13, 4) = (/&
+&1.1841E-01_JPRB,1.2983E-01_JPRB,1.4154E-01_JPRB,1.5381E-01_JPRB,1.6654E-01_JPRB/)
+KBO( :,14, 4) = (/&
+&1.0163E-01_JPRB,1.1119E-01_JPRB,1.2120E-01_JPRB,1.3164E-01_JPRB,1.4262E-01_JPRB/)
+KBO( :,15, 4) = (/&
+&8.7533E-02_JPRB,9.5453E-02_JPRB,1.0360E-01_JPRB,1.1225E-01_JPRB,1.2143E-01_JPRB/)
+KBO( :,16, 4) = (/&
+&7.4718E-02_JPRB,8.1074E-02_JPRB,8.7917E-02_JPRB,9.5269E-02_JPRB,1.0309E-01_JPRB/)
+KBO( :,17, 4) = (/&
+&6.4598E-02_JPRB,7.0161E-02_JPRB,7.6195E-02_JPRB,8.2691E-02_JPRB,8.9645E-02_JPRB/)
+KBO( :,18, 4) = (/&
+&5.7466E-02_JPRB,6.2589E-02_JPRB,6.8109E-02_JPRB,7.4052E-02_JPRB,8.0449E-02_JPRB/)
+KBO( :,19, 4) = (/&
+&5.1818E-02_JPRB,5.6571E-02_JPRB,6.1696E-02_JPRB,6.7232E-02_JPRB,7.3092E-02_JPRB/)
+KBO( :,20, 4) = (/&
+&4.5333E-02_JPRB,4.9583E-02_JPRB,5.4175E-02_JPRB,5.9119E-02_JPRB,6.4307E-02_JPRB/)
+KBO( :,21, 4) = (/&
+&3.9244E-02_JPRB,4.2988E-02_JPRB,4.7056E-02_JPRB,5.1390E-02_JPRB,5.5921E-02_JPRB/)
+KBO( :,22, 4) = (/&
+&3.3762E-02_JPRB,3.7028E-02_JPRB,4.0590E-02_JPRB,4.4367E-02_JPRB,4.8278E-02_JPRB/)
+KBO( :,23, 4) = (/&
+&2.8964E-02_JPRB,3.1825E-02_JPRB,3.4924E-02_JPRB,3.8192E-02_JPRB,4.1570E-02_JPRB/)
+KBO( :,24, 4) = (/&
+&2.4605E-02_JPRB,2.7087E-02_JPRB,2.9744E-02_JPRB,3.2528E-02_JPRB,3.5398E-02_JPRB/)
+KBO( :,25, 4) = (/&
+&2.0888E-02_JPRB,2.3028E-02_JPRB,2.5293E-02_JPRB,2.7664E-02_JPRB,3.0056E-02_JPRB/)
+KBO( :,26, 4) = (/&
+&1.7768E-02_JPRB,1.9595E-02_JPRB,2.1528E-02_JPRB,2.3523E-02_JPRB,2.5480E-02_JPRB/)
+KBO( :,27, 4) = (/&
+&1.5025E-02_JPRB,1.6582E-02_JPRB,1.8208E-02_JPRB,1.9851E-02_JPRB,2.1449E-02_JPRB/)
+KBO( :,28, 4) = (/&
+&1.2630E-02_JPRB,1.3940E-02_JPRB,1.5283E-02_JPRB,1.6619E-02_JPRB,1.7935E-02_JPRB/)
+KBO( :,29, 4) = (/&
+&1.0679E-02_JPRB,1.1777E-02_JPRB,1.2882E-02_JPRB,1.3981E-02_JPRB,1.5077E-02_JPRB/)
+KBO( :,30, 4) = (/&
+&9.0255E-03_JPRB,9.9336E-03_JPRB,1.0847E-02_JPRB,1.1760E-02_JPRB,1.2675E-02_JPRB/)
+KBO( :,31, 4) = (/&
+&7.6536E-03_JPRB,8.4086E-03_JPRB,9.1742E-03_JPRB,9.9429E-03_JPRB,1.0712E-02_JPRB/)
+KBO( :,32, 4) = (/&
+&6.5182E-03_JPRB,7.1536E-03_JPRB,7.8014E-03_JPRB,8.4515E-03_JPRB,9.1065E-03_JPRB/)
+KBO( :,33, 4) = (/&
+&5.5704E-03_JPRB,6.1113E-03_JPRB,6.6630E-03_JPRB,7.2151E-03_JPRB,7.7820E-03_JPRB/)
+KBO( :,34, 4) = (/&
+&4.8181E-03_JPRB,5.2845E-03_JPRB,5.7551E-03_JPRB,6.2347E-03_JPRB,6.7271E-03_JPRB/)
+KBO( :,35, 4) = (/&
+&4.1344E-03_JPRB,4.5342E-03_JPRB,4.9410E-03_JPRB,5.3600E-03_JPRB,5.7876E-03_JPRB/)
+KBO( :,36, 4) = (/&
+&3.5137E-03_JPRB,3.8568E-03_JPRB,4.2105E-03_JPRB,4.5744E-03_JPRB,4.9478E-03_JPRB/)
+KBO( :,37, 4) = (/&
+&2.9015E-03_JPRB,3.1894E-03_JPRB,3.4867E-03_JPRB,3.7928E-03_JPRB,4.1062E-03_JPRB/)
+KBO( :,38, 4) = (/&
+&2.3922E-03_JPRB,2.6336E-03_JPRB,2.8833E-03_JPRB,3.1403E-03_JPRB,3.4033E-03_JPRB/)
+KBO( :,39, 4) = (/&
+&1.9717E-03_JPRB,2.1746E-03_JPRB,2.3846E-03_JPRB,2.6005E-03_JPRB,2.8213E-03_JPRB/)
+KBO( :,40, 4) = (/&
+&1.5744E-03_JPRB,1.7398E-03_JPRB,1.9111E-03_JPRB,2.0874E-03_JPRB,2.2673E-03_JPRB/)
+KBO( :,41, 4) = (/&
+&1.2499E-03_JPRB,1.3841E-03_JPRB,1.5231E-03_JPRB,1.6664E-03_JPRB,1.8122E-03_JPRB/)
+KBO( :,42, 4) = (/&
+&9.9026E-04_JPRB,1.0991E-03_JPRB,1.2117E-03_JPRB,1.3281E-03_JPRB,1.4464E-03_JPRB/)
+KBO( :,43, 4) = (/&
+&7.7424E-04_JPRB,8.6142E-04_JPRB,9.5183E-04_JPRB,1.0452E-03_JPRB,1.1404E-03_JPRB/)
+KBO( :,44, 4) = (/&
+&6.0102E-04_JPRB,6.7034E-04_JPRB,7.4252E-04_JPRB,8.1707E-04_JPRB,8.9311E-04_JPRB/)
+KBO( :,45, 4) = (/&
+&4.6542E-04_JPRB,5.2035E-04_JPRB,5.7783E-04_JPRB,6.3732E-04_JPRB,6.9797E-04_JPRB/)
+KBO( :,46, 4) = (/&
+&3.5929E-04_JPRB,4.0259E-04_JPRB,4.4817E-04_JPRB,4.9561E-04_JPRB,5.4403E-04_JPRB/)
+KBO( :,47, 4) = (/&
+&2.7639E-04_JPRB,3.1035E-04_JPRB,3.4642E-04_JPRB,3.8415E-04_JPRB,4.2283E-04_JPRB/)
+KBO( :,48, 4) = (/&
+&2.1223E-04_JPRB,2.3861E-04_JPRB,2.6709E-04_JPRB,2.9688E-04_JPRB,3.2776E-04_JPRB/)
+KBO( :,49, 4) = (/&
+&1.6266E-04_JPRB,1.8298E-04_JPRB,2.0524E-04_JPRB,2.2871E-04_JPRB,2.5327E-04_JPRB/)
+KBO( :,50, 4) = (/&
+&1.2558E-04_JPRB,1.4128E-04_JPRB,1.5863E-04_JPRB,1.7722E-04_JPRB,1.9672E-04_JPRB/)
+KBO( :,51, 4) = (/&
+&9.7209E-05_JPRB,1.0936E-04_JPRB,1.2288E-04_JPRB,1.3753E-04_JPRB,1.5302E-04_JPRB/)
+KBO( :,52, 4) = (/&
+&7.5228E-05_JPRB,8.4554E-05_JPRB,9.5027E-05_JPRB,1.0648E-04_JPRB,1.1875E-04_JPRB/)
+KBO( :,53, 4) = (/&
+&5.8185E-05_JPRB,6.5291E-05_JPRB,7.3346E-05_JPRB,8.2261E-05_JPRB,9.1865E-05_JPRB/)
+KBO( :,54, 4) = (/&
+&4.5374E-05_JPRB,5.0847E-05_JPRB,5.7097E-05_JPRB,6.4058E-05_JPRB,7.1601E-05_JPRB/)
+KBO( :,55, 4) = (/&
+&3.5491E-05_JPRB,3.9770E-05_JPRB,4.4634E-05_JPRB,5.0070E-05_JPRB,5.6003E-05_JPRB/)
+KBO( :,56, 4) = (/&
+&2.7730E-05_JPRB,3.1107E-05_JPRB,3.4873E-05_JPRB,3.9105E-05_JPRB,4.3754E-05_JPRB/)
+KBO( :,57, 4) = (/&
+&2.1648E-05_JPRB,2.4314E-05_JPRB,2.7229E-05_JPRB,3.0516E-05_JPRB,3.4148E-05_JPRB/)
+KBO( :,58, 4) = (/&
+&1.6951E-05_JPRB,1.9038E-05_JPRB,2.1314E-05_JPRB,2.3872E-05_JPRB,2.6710E-05_JPRB/)
+KBO( :,59, 4) = (/&
+&1.3663E-05_JPRB,1.5351E-05_JPRB,1.7200E-05_JPRB,1.9273E-05_JPRB,2.1558E-05_JPRB/)
+KBO( :,13, 5) = (/&
+&2.7737E-01_JPRB,2.9322E-01_JPRB,3.0941E-01_JPRB,3.2627E-01_JPRB,3.4434E-01_JPRB/)
+KBO( :,14, 5) = (/&
+&2.3065E-01_JPRB,2.4437E-01_JPRB,2.5863E-01_JPRB,2.7404E-01_JPRB,2.9080E-01_JPRB/)
+KBO( :,15, 5) = (/&
+&1.9306E-01_JPRB,2.0550E-01_JPRB,2.1890E-01_JPRB,2.3329E-01_JPRB,2.4884E-01_JPRB/)
+KBO( :,16, 5) = (/&
+&1.6288E-01_JPRB,1.7408E-01_JPRB,1.8590E-01_JPRB,1.9857E-01_JPRB,2.1238E-01_JPRB/)
+KBO( :,17, 5) = (/&
+&1.4081E-01_JPRB,1.5068E-01_JPRB,1.6123E-01_JPRB,1.7280E-01_JPRB,1.8532E-01_JPRB/)
+KBO( :,18, 5) = (/&
+&1.2553E-01_JPRB,1.3466E-01_JPRB,1.4467E-01_JPRB,1.5557E-01_JPRB,1.6709E-01_JPRB/)
+KBO( :,19, 5) = (/&
+&1.1351E-01_JPRB,1.2221E-01_JPRB,1.3178E-01_JPRB,1.4202E-01_JPRB,1.5283E-01_JPRB/)
+KBO( :,20, 5) = (/&
+&9.9675E-02_JPRB,1.0772E-01_JPRB,1.1652E-01_JPRB,1.2577E-01_JPRB,1.3562E-01_JPRB/)
+KBO( :,21, 5) = (/&
+&8.6695E-02_JPRB,9.4022E-02_JPRB,1.0192E-01_JPRB,1.1025E-01_JPRB,1.1913E-01_JPRB/)
+KBO( :,22, 5) = (/&
+&7.4874E-02_JPRB,8.1502E-02_JPRB,8.8514E-02_JPRB,9.5955E-02_JPRB,1.0385E-01_JPRB/)
+KBO( :,23, 5) = (/&
+&6.4540E-02_JPRB,7.0395E-02_JPRB,7.6612E-02_JPRB,8.3224E-02_JPRB,9.0095E-02_JPRB/)
+KBO( :,24, 5) = (/&
+&5.4946E-02_JPRB,6.0047E-02_JPRB,6.5517E-02_JPRB,7.1296E-02_JPRB,7.7220E-02_JPRB/)
+KBO( :,25, 5) = (/&
+&4.6677E-02_JPRB,5.1141E-02_JPRB,5.5940E-02_JPRB,6.0917E-02_JPRB,6.6053E-02_JPRB/)
+KBO( :,26, 5) = (/&
+&3.9709E-02_JPRB,4.3642E-02_JPRB,4.7787E-02_JPRB,5.2078E-02_JPRB,5.6505E-02_JPRB/)
+KBO( :,27, 5) = (/&
+&3.3623E-02_JPRB,3.7042E-02_JPRB,4.0591E-02_JPRB,4.4263E-02_JPRB,4.8022E-02_JPRB/)
+KBO( :,28, 5) = (/&
+&2.8328E-02_JPRB,3.1245E-02_JPRB,3.4254E-02_JPRB,3.7363E-02_JPRB,4.0510E-02_JPRB/)
+KBO( :,29, 5) = (/&
+&2.4050E-02_JPRB,2.6527E-02_JPRB,2.9098E-02_JPRB,3.1727E-02_JPRB,3.4395E-02_JPRB/)
+KBO( :,30, 5) = (/&
+&2.0420E-02_JPRB,2.2529E-02_JPRB,2.4722E-02_JPRB,2.6950E-02_JPRB,2.9231E-02_JPRB/)
+KBO( :,31, 5) = (/&
+&1.7429E-02_JPRB,1.9242E-02_JPRB,2.1110E-02_JPRB,2.3032E-02_JPRB,2.5014E-02_JPRB/)
+KBO( :,32, 5) = (/&
+&1.4961E-02_JPRB,1.6521E-02_JPRB,1.8130E-02_JPRB,1.9805E-02_JPRB,2.1542E-02_JPRB/)
+KBO( :,33, 5) = (/&
+&1.2897E-02_JPRB,1.4245E-02_JPRB,1.5653E-02_JPRB,1.7131E-02_JPRB,1.8661E-02_JPRB/)
+KBO( :,34, 5) = (/&
+&1.1253E-02_JPRB,1.2438E-02_JPRB,1.3692E-02_JPRB,1.5008E-02_JPRB,1.6374E-02_JPRB/)
+KBO( :,35, 5) = (/&
+&9.7397E-03_JPRB,1.0786E-02_JPRB,1.1902E-02_JPRB,1.3073E-02_JPRB,1.4295E-02_JPRB/)
+KBO( :,36, 5) = (/&
+&8.3444E-03_JPRB,9.2674E-03_JPRB,1.0255E-02_JPRB,1.1299E-02_JPRB,1.2388E-02_JPRB/)
+KBO( :,37, 5) = (/&
+&6.9467E-03_JPRB,7.7344E-03_JPRB,8.5805E-03_JPRB,9.4769E-03_JPRB,1.0414E-02_JPRB/)
+KBO( :,38, 5) = (/&
+&5.7736E-03_JPRB,6.4450E-03_JPRB,7.1687E-03_JPRB,7.9368E-03_JPRB,8.7424E-03_JPRB/)
+KBO( :,39, 5) = (/&
+&4.7981E-03_JPRB,5.3703E-03_JPRB,5.9884E-03_JPRB,6.6480E-03_JPRB,7.3403E-03_JPRB/)
+KBO( :,40, 5) = (/&
+&3.8576E-03_JPRB,4.3274E-03_JPRB,4.8368E-03_JPRB,5.3827E-03_JPRB,5.9574E-03_JPRB/)
+KBO( :,41, 5) = (/&
+&3.0825E-03_JPRB,3.4658E-03_JPRB,3.8827E-03_JPRB,4.3318E-03_JPRB,4.8066E-03_JPRB/)
+KBO( :,42, 5) = (/&
+&2.4580E-03_JPRB,2.7697E-03_JPRB,3.1105E-03_JPRB,3.4793E-03_JPRB,3.8701E-03_JPRB/)
+KBO( :,43, 5) = (/&
+&1.9332E-03_JPRB,2.1836E-03_JPRB,2.4577E-03_JPRB,2.7557E-03_JPRB,3.0732E-03_JPRB/)
+KBO( :,44, 5) = (/&
+&1.5097E-03_JPRB,1.7091E-03_JPRB,1.9276E-03_JPRB,2.1661E-03_JPRB,2.4221E-03_JPRB/)
+KBO( :,45, 5) = (/&
+&1.1763E-03_JPRB,1.3345E-03_JPRB,1.5083E-03_JPRB,1.6985E-03_JPRB,1.9040E-03_JPRB/)
+KBO( :,46, 5) = (/&
+&9.1296E-04_JPRB,1.0380E-03_JPRB,1.1758E-03_JPRB,1.3270E-03_JPRB,1.4913E-03_JPRB/)
+KBO( :,47, 5) = (/&
+&7.0476E-04_JPRB,8.0366E-04_JPRB,9.1252E-04_JPRB,1.0324E-03_JPRB,1.1627E-03_JPRB/)
+KBO( :,48, 5) = (/&
+&5.4241E-04_JPRB,6.2078E-04_JPRB,7.0617E-04_JPRB,8.0101E-04_JPRB,9.0392E-04_JPRB/)
+KBO( :,49, 5) = (/&
+&4.1608E-04_JPRB,4.7812E-04_JPRB,5.4515E-04_JPRB,6.1960E-04_JPRB,7.0075E-04_JPRB/)
+KBO( :,50, 5) = (/&
+&3.2092E-04_JPRB,3.7020E-04_JPRB,4.2343E-04_JPRB,4.8196E-04_JPRB,5.4630E-04_JPRB/)
+KBO( :,51, 5) = (/&
+&2.4810E-04_JPRB,2.8709E-04_JPRB,3.2948E-04_JPRB,3.7570E-04_JPRB,4.2676E-04_JPRB/)
+KBO( :,52, 5) = (/&
+&1.9141E-04_JPRB,2.2213E-04_JPRB,2.5579E-04_JPRB,2.9244E-04_JPRB,3.3280E-04_JPRB/)
+KBO( :,53, 5) = (/&
+&1.4731E-04_JPRB,1.7148E-04_JPRB,1.9808E-04_JPRB,2.2719E-04_JPRB,2.5899E-04_JPRB/)
+KBO( :,54, 5) = (/&
+&1.1424E-04_JPRB,1.3342E-04_JPRB,1.5446E-04_JPRB,1.7772E-04_JPRB,2.0300E-04_JPRB/)
+KBO( :,55, 5) = (/&
+&8.8904E-05_JPRB,1.0414E-04_JPRB,1.2079E-04_JPRB,1.3937E-04_JPRB,1.5956E-04_JPRB/)
+KBO( :,56, 5) = (/&
+&6.9133E-05_JPRB,8.1185E-05_JPRB,9.4325E-05_JPRB,1.0911E-04_JPRB,1.2522E-04_JPRB/)
+KBO( :,57, 5) = (/&
+&5.3742E-05_JPRB,6.3143E-05_JPRB,7.3567E-05_JPRB,8.5265E-05_JPRB,9.8102E-05_JPRB/)
+KBO( :,58, 5) = (/&
+&4.1907E-05_JPRB,4.9238E-05_JPRB,5.7492E-05_JPRB,6.6736E-05_JPRB,7.6984E-05_JPRB/)
+KBO( :,59, 5) = (/&
+&3.3859E-05_JPRB,3.9819E-05_JPRB,4.6565E-05_JPRB,5.4107E-05_JPRB,6.2503E-05_JPRB/)
+KBO( :,13, 6) = (/&
+&6.4121E-01_JPRB,6.6739E-01_JPRB,6.9468E-01_JPRB,7.2265E-01_JPRB,7.5107E-01_JPRB/)
+KBO( :,14, 6) = (/&
+&5.3428E-01_JPRB,5.5697E-01_JPRB,5.8044E-01_JPRB,6.0466E-01_JPRB,6.2906E-01_JPRB/)
+KBO( :,15, 6) = (/&
+&4.4250E-01_JPRB,4.6307E-01_JPRB,4.8477E-01_JPRB,5.0676E-01_JPRB,5.2972E-01_JPRB/)
+KBO( :,16, 6) = (/&
+&3.7115E-01_JPRB,3.9071E-01_JPRB,4.1071E-01_JPRB,4.3131E-01_JPRB,4.5290E-01_JPRB/)
+KBO( :,17, 6) = (/&
+&3.2201E-01_JPRB,3.3982E-01_JPRB,3.5775E-01_JPRB,3.7619E-01_JPRB,3.9590E-01_JPRB/)
+KBO( :,18, 6) = (/&
+&2.8860E-01_JPRB,3.0433E-01_JPRB,3.2058E-01_JPRB,3.3778E-01_JPRB,3.5711E-01_JPRB/)
+KBO( :,19, 6) = (/&
+&2.6093E-01_JPRB,2.7547E-01_JPRB,2.9092E-01_JPRB,3.0787E-01_JPRB,3.2715E-01_JPRB/)
+KBO( :,20, 6) = (/&
+&2.2906E-01_JPRB,2.4252E-01_JPRB,2.5706E-01_JPRB,2.7353E-01_JPRB,2.9188E-01_JPRB/)
+KBO( :,21, 6) = (/&
+&1.9921E-01_JPRB,2.1163E-01_JPRB,2.2547E-01_JPRB,2.4100E-01_JPRB,2.5826E-01_JPRB/)
+KBO( :,22, 6) = (/&
+&1.7190E-01_JPRB,1.8347E-01_JPRB,1.9652E-01_JPRB,2.1104E-01_JPRB,2.2725E-01_JPRB/)
+KBO( :,23, 6) = (/&
+&1.4807E-01_JPRB,1.5892E-01_JPRB,1.7107E-01_JPRB,1.8464E-01_JPRB,1.9976E-01_JPRB/)
+KBO( :,24, 6) = (/&
+&1.2630E-01_JPRB,1.3639E-01_JPRB,1.4760E-01_JPRB,1.6015E-01_JPRB,1.7395E-01_JPRB/)
+KBO( :,25, 6) = (/&
+&1.0785E-01_JPRB,1.1709E-01_JPRB,1.2743E-01_JPRB,1.3890E-01_JPRB,1.5149E-01_JPRB/)
+KBO( :,26, 6) = (/&
+&9.2383E-02_JPRB,1.0082E-01_JPRB,1.1033E-01_JPRB,1.2082E-01_JPRB,1.3229E-01_JPRB/)
+KBO( :,27, 6) = (/&
+&7.8812E-02_JPRB,8.6542E-02_JPRB,9.5218E-02_JPRB,1.0477E-01_JPRB,1.1508E-01_JPRB/)
+KBO( :,28, 6) = (/&
+&6.6953E-02_JPRB,7.4005E-02_JPRB,8.1900E-02_JPRB,9.0499E-02_JPRB,9.9667E-02_JPRB/)
+KBO( :,29, 6) = (/&
+&5.7472E-02_JPRB,6.3923E-02_JPRB,7.1088E-02_JPRB,7.8810E-02_JPRB,8.6979E-02_JPRB/)
+KBO( :,30, 6) = (/&
+&4.9506E-02_JPRB,5.5394E-02_JPRB,6.1825E-02_JPRB,6.8714E-02_JPRB,7.5948E-02_JPRB/)
+KBO( :,31, 6) = (/&
+&4.3026E-02_JPRB,4.8351E-02_JPRB,5.4145E-02_JPRB,6.0281E-02_JPRB,6.6645E-02_JPRB/)
+KBO( :,32, 6) = (/&
+&3.7695E-02_JPRB,4.2520E-02_JPRB,4.7714E-02_JPRB,5.3158E-02_JPRB,5.8754E-02_JPRB/)
+KBO( :,33, 6) = (/&
+&3.3253E-02_JPRB,3.7612E-02_JPRB,4.2238E-02_JPRB,4.7058E-02_JPRB,5.2057E-02_JPRB/)
+KBO( :,34, 6) = (/&
+&2.9687E-02_JPRB,3.3639E-02_JPRB,3.7802E-02_JPRB,4.2143E-02_JPRB,4.6713E-02_JPRB/)
+KBO( :,35, 6) = (/&
+&2.6238E-02_JPRB,2.9780E-02_JPRB,3.3512E-02_JPRB,3.7433E-02_JPRB,4.1618E-02_JPRB/)
+KBO( :,36, 6) = (/&
+&2.2870E-02_JPRB,2.6020E-02_JPRB,2.9343E-02_JPRB,3.2882E-02_JPRB,3.6681E-02_JPRB/)
+KBO( :,37, 6) = (/&
+&1.9322E-02_JPRB,2.2060E-02_JPRB,2.4965E-02_JPRB,2.8086E-02_JPRB,3.1456E-02_JPRB/)
+KBO( :,38, 6) = (/&
+&1.6289E-02_JPRB,1.8667E-02_JPRB,2.1206E-02_JPRB,2.3953E-02_JPRB,2.6938E-02_JPRB/)
+KBO( :,39, 6) = (/&
+&1.3724E-02_JPRB,1.5787E-02_JPRB,1.8005E-02_JPRB,2.0421E-02_JPRB,2.3064E-02_JPRB/)
+KBO( :,40, 6) = (/&
+&1.1170E-02_JPRB,1.2903E-02_JPRB,1.4777E-02_JPRB,1.6832E-02_JPRB,1.9094E-02_JPRB/)
+KBO( :,41, 6) = (/&
+&9.0289E-03_JPRB,1.0474E-02_JPRB,1.2048E-02_JPRB,1.3783E-02_JPRB,1.5707E-02_JPRB/)
+KBO( :,42, 6) = (/&
+&7.2786E-03_JPRB,8.4784E-03_JPRB,9.7962E-03_JPRB,1.1257E-02_JPRB,1.2889E-02_JPRB/)
+KBO( :,43, 6) = (/&
+&5.7746E-03_JPRB,6.7579E-03_JPRB,7.8468E-03_JPRB,9.0602E-03_JPRB,1.0425E-02_JPRB/)
+KBO( :,44, 6) = (/&
+&4.5415E-03_JPRB,5.3414E-03_JPRB,6.2337E-03_JPRB,7.2326E-03_JPRB,8.3633E-03_JPRB/)
+KBO( :,45, 6) = (/&
+&3.5601E-03_JPRB,4.2081E-03_JPRB,4.9346E-03_JPRB,5.7558E-03_JPRB,6.6891E-03_JPRB/)
+KBO( :,46, 6) = (/&
+&2.7754E-03_JPRB,3.2977E-03_JPRB,3.8855E-03_JPRB,4.5569E-03_JPRB,5.3238E-03_JPRB/)
+KBO( :,47, 6) = (/&
+&2.1475E-03_JPRB,2.5657E-03_JPRB,3.0384E-03_JPRB,3.5836E-03_JPRB,4.2109E-03_JPRB/)
+KBO( :,48, 6) = (/&
+&1.6563E-03_JPRB,1.9892E-03_JPRB,2.3684E-03_JPRB,2.8081E-03_JPRB,3.3184E-03_JPRB/)
+KBO( :,49, 6) = (/&
+&1.2736E-03_JPRB,1.5366E-03_JPRB,1.8396E-03_JPRB,2.1918E-03_JPRB,2.6053E-03_JPRB/)
+KBO( :,50, 6) = (/&
+&9.8514E-04_JPRB,1.1938E-03_JPRB,1.4366E-03_JPRB,1.7199E-03_JPRB,2.0561E-03_JPRB/)
+KBO( :,51, 6) = (/&
+&7.6305E-04_JPRB,9.2853E-04_JPRB,1.1230E-03_JPRB,1.3507E-03_JPRB,1.6237E-03_JPRB/)
+KBO( :,52, 6) = (/&
+&5.8964E-04_JPRB,7.2048E-04_JPRB,8.7539E-04_JPRB,1.0577E-03_JPRB,1.2781E-03_JPRB/)
+KBO( :,53, 6) = (/&
+&4.5442E-04_JPRB,5.5764E-04_JPRB,6.8041E-04_JPRB,8.2614E-04_JPRB,1.0025E-03_JPRB/)
+KBO( :,54, 6) = (/&
+&3.5277E-04_JPRB,4.3435E-04_JPRB,5.3231E-04_JPRB,6.4901E-04_JPRB,7.9056E-04_JPRB/)
+KBO( :,55, 6) = (/&
+&2.7456E-04_JPRB,3.3899E-04_JPRB,4.1714E-04_JPRB,5.1074E-04_JPRB,6.2435E-04_JPRB/)
+KBO( :,56, 6) = (/&
+&2.1331E-04_JPRB,2.6410E-04_JPRB,3.2619E-04_JPRB,4.0097E-04_JPRB,4.9192E-04_JPRB/)
+KBO( :,57, 6) = (/&
+&1.6544E-04_JPRB,2.0526E-04_JPRB,2.5453E-04_JPRB,3.1404E-04_JPRB,3.8660E-04_JPRB/)
+KBO( :,58, 6) = (/&
+&1.2858E-04_JPRB,1.5986E-04_JPRB,1.9897E-04_JPRB,2.4635E-04_JPRB,3.0450E-04_JPRB/)
+KBO( :,59, 6) = (/&
+&1.0424E-04_JPRB,1.3005E-04_JPRB,1.6246E-04_JPRB,2.0168E-04_JPRB,2.5022E-04_JPRB/)
+KBO( :,13, 7) = (/&
+&1.5651E+00_JPRB,1.6169E+00_JPRB,1.6708E+00_JPRB,1.7263E+00_JPRB,1.7852E+00_JPRB/)
+KBO( :,14, 7) = (/&
+&1.3034E+00_JPRB,1.3495E+00_JPRB,1.3970E+00_JPRB,1.4470E+00_JPRB,1.4990E+00_JPRB/)
+KBO( :,15, 7) = (/&
+&1.0798E+00_JPRB,1.1205E+00_JPRB,1.1627E+00_JPRB,1.2066E+00_JPRB,1.2529E+00_JPRB/)
+KBO( :,16, 7) = (/&
+&9.0502E-01_JPRB,9.4264E-01_JPRB,9.8168E-01_JPRB,1.0232E+00_JPRB,1.0668E+00_JPRB/)
+KBO( :,17, 7) = (/&
+&7.8533E-01_JPRB,8.2264E-01_JPRB,8.6170E-01_JPRB,9.0297E-01_JPRB,9.4574E-01_JPRB/)
+KBO( :,18, 7) = (/&
+&7.0905E-01_JPRB,7.4606E-01_JPRB,7.8445E-01_JPRB,8.2385E-01_JPRB,8.6498E-01_JPRB/)
+KBO( :,19, 7) = (/&
+&6.5117E-01_JPRB,6.8581E-01_JPRB,7.2084E-01_JPRB,7.5738E-01_JPRB,7.9689E-01_JPRB/)
+KBO( :,20, 7) = (/&
+&5.8055E-01_JPRB,6.1130E-01_JPRB,6.4302E-01_JPRB,6.7746E-01_JPRB,7.1553E-01_JPRB/)
+KBO( :,21, 7) = (/&
+&5.1109E-01_JPRB,5.3883E-01_JPRB,5.6867E-01_JPRB,6.0178E-01_JPRB,6.3866E-01_JPRB/)
+KBO( :,22, 7) = (/&
+&4.4535E-01_JPRB,4.7107E-01_JPRB,4.9963E-01_JPRB,5.3173E-01_JPRB,5.6752E-01_JPRB/)
+KBO( :,23, 7) = (/&
+&3.8693E-01_JPRB,4.1147E-01_JPRB,4.3911E-01_JPRB,4.7015E-01_JPRB,5.0472E-01_JPRB/)
+KBO( :,24, 7) = (/&
+&3.3299E-01_JPRB,3.5628E-01_JPRB,3.8277E-01_JPRB,4.1248E-01_JPRB,4.4550E-01_JPRB/)
+KBO( :,25, 7) = (/&
+&2.8674E-01_JPRB,3.0903E-01_JPRB,3.3447E-01_JPRB,3.6286E-01_JPRB,3.9391E-01_JPRB/)
+KBO( :,26, 7) = (/&
+&2.4799E-01_JPRB,2.6945E-01_JPRB,2.9359E-01_JPRB,3.2034E-01_JPRB,3.4997E-01_JPRB/)
+KBO( :,27, 7) = (/&
+&2.1431E-01_JPRB,2.3461E-01_JPRB,2.5723E-01_JPRB,2.8249E-01_JPRB,3.1067E-01_JPRB/)
+KBO( :,28, 7) = (/&
+&1.8505E-01_JPRB,2.0390E-01_JPRB,2.2502E-01_JPRB,2.4887E-01_JPRB,2.7537E-01_JPRB/)
+KBO( :,29, 7) = (/&
+&1.6146E-01_JPRB,1.7908E-01_JPRB,1.9912E-01_JPRB,2.2167E-01_JPRB,2.4667E-01_JPRB/)
+KBO( :,30, 7) = (/&
+&1.4137E-01_JPRB,1.5806E-01_JPRB,1.7706E-01_JPRB,1.9835E-01_JPRB,2.2209E-01_JPRB/)
+KBO( :,31, 7) = (/&
+&1.2498E-01_JPRB,1.4092E-01_JPRB,1.5896E-01_JPRB,1.7927E-01_JPRB,2.0199E-01_JPRB/)
+KBO( :,32, 7) = (/&
+&1.1162E-01_JPRB,1.2686E-01_JPRB,1.4411E-01_JPRB,1.6362E-01_JPRB,1.8544E-01_JPRB/)
+KBO( :,33, 7) = (/&
+&1.0058E-01_JPRB,1.1519E-01_JPRB,1.3185E-01_JPRB,1.5062E-01_JPRB,1.7164E-01_JPRB/)
+KBO( :,34, 7) = (/&
+&9.1872E-02_JPRB,1.0605E-01_JPRB,1.2221E-01_JPRB,1.4049E-01_JPRB,1.6092E-01_JPRB/)
+KBO( :,35, 7) = (/&
+&8.3134E-02_JPRB,9.6731E-02_JPRB,1.1227E-01_JPRB,1.2986E-01_JPRB,1.4952E-01_JPRB/)
+KBO( :,36, 7) = (/&
+&7.4081E-02_JPRB,8.6894E-02_JPRB,1.0163E-01_JPRB,1.1830E-01_JPRB,1.3703E-01_JPRB/)
+KBO( :,37, 7) = (/&
+&6.4153E-02_JPRB,7.5901E-02_JPRB,8.9515E-02_JPRB,1.0499E-01_JPRB,1.2245E-01_JPRB/)
+KBO( :,38, 7) = (/&
+&5.5459E-02_JPRB,6.6199E-02_JPRB,7.8762E-02_JPRB,9.3144E-02_JPRB,1.0945E-01_JPRB/)
+KBO( :,39, 7) = (/&
+&4.7923E-02_JPRB,5.7730E-02_JPRB,6.9328E-02_JPRB,8.2715E-02_JPRB,9.7968E-02_JPRB/)
+KBO( :,40, 7) = (/&
+&3.9991E-02_JPRB,4.8626E-02_JPRB,5.8962E-02_JPRB,7.1033E-02_JPRB,8.4866E-02_JPRB/)
+KBO( :,41, 7) = (/&
+&3.3132E-02_JPRB,4.0668E-02_JPRB,4.9786E-02_JPRB,6.0601E-02_JPRB,7.3110E-02_JPRB/)
+KBO( :,42, 7) = (/&
+&2.7362E-02_JPRB,3.3907E-02_JPRB,4.1915E-02_JPRB,5.1544E-02_JPRB,6.2838E-02_JPRB/)
+KBO( :,43, 7) = (/&
+&2.2196E-02_JPRB,2.7768E-02_JPRB,3.4671E-02_JPRB,4.3090E-02_JPRB,5.3119E-02_JPRB/)
+KBO( :,44, 7) = (/&
+&1.7818E-02_JPRB,2.2501E-02_JPRB,2.8380E-02_JPRB,3.5655E-02_JPRB,4.4455E-02_JPRB/)
+KBO( :,45, 7) = (/&
+&1.4243E-02_JPRB,1.8150E-02_JPRB,2.3128E-02_JPRB,2.9377E-02_JPRB,3.7045E-02_JPRB/)
+KBO( :,46, 7) = (/&
+&1.1286E-02_JPRB,1.4511E-02_JPRB,1.8685E-02_JPRB,2.4000E-02_JPRB,3.0616E-02_JPRB/)
+KBO( :,47, 7) = (/&
+&8.8305E-03_JPRB,1.1453E-02_JPRB,1.4902E-02_JPRB,1.9356E-02_JPRB,2.5001E-02_JPRB/)
+KBO( :,48, 7) = (/&
+&6.8710E-03_JPRB,8.9888E-03_JPRB,1.1814E-02_JPRB,1.5517E-02_JPRB,2.0294E-02_JPRB/)
+KBO( :,49, 7) = (/&
+&5.3150E-03_JPRB,7.0121E-03_JPRB,9.3059E-03_JPRB,1.2357E-02_JPRB,1.6365E-02_JPRB/)
+KBO( :,50, 7) = (/&
+&4.1309E-03_JPRB,5.4944E-03_JPRB,7.3653E-03_JPRB,9.8877E-03_JPRB,1.3254E-02_JPRB/)
+KBO( :,51, 7) = (/&
+&3.2122E-03_JPRB,4.3028E-03_JPRB,5.8246E-03_JPRB,7.9072E-03_JPRB,1.0730E-02_JPRB/)
+KBO( :,52, 7) = (/&
+&2.4855E-03_JPRB,3.3518E-03_JPRB,4.5791E-03_JPRB,6.2870E-03_JPRB,8.6345E-03_JPRB/)
+KBO( :,53, 7) = (/&
+&1.9144E-03_JPRB,2.5958E-03_JPRB,3.5772E-03_JPRB,4.9679E-03_JPRB,6.9029E-03_JPRB/)
+KBO( :,54, 7) = (/&
+&1.4846E-03_JPRB,2.0243E-03_JPRB,2.8131E-03_JPRB,3.9506E-03_JPRB,5.5585E-03_JPRB/)
+KBO( :,55, 7) = (/&
+&1.1531E-03_JPRB,1.5804E-03_JPRB,2.2143E-03_JPRB,3.1436E-03_JPRB,4.4799E-03_JPRB/)
+KBO( :,56, 7) = (/&
+&8.9241E-04_JPRB,1.2296E-03_JPRB,1.7344E-03_JPRB,2.4879E-03_JPRB,3.5892E-03_JPRB/)
+KBO( :,57, 7) = (/&
+&6.8839E-04_JPRB,9.5206E-04_JPRB,1.3509E-03_JPRB,1.9572E-03_JPRB,2.8575E-03_JPRB/)
+KBO( :,58, 7) = (/&
+&5.3236E-04_JPRB,7.3837E-04_JPRB,1.0535E-03_JPRB,1.5406E-03_JPRB,2.2793E-03_JPRB/)
+KBO( :,59, 7) = (/&
+&4.3598E-04_JPRB,6.1022E-04_JPRB,8.8068E-04_JPRB,1.3033E-03_JPRB,1.9553E-03_JPRB/)
+KBO( :,13, 8) = (/&
+&4.7769E+00_JPRB,4.8848E+00_JPRB,4.9874E+00_JPRB,5.0917E+00_JPRB,5.1968E+00_JPRB/)
+KBO( :,14, 8) = (/&
+&4.0252E+00_JPRB,4.1225E+00_JPRB,4.2203E+00_JPRB,4.3172E+00_JPRB,4.4173E+00_JPRB/)
+KBO( :,15, 8) = (/&
+&3.3636E+00_JPRB,3.4557E+00_JPRB,3.5447E+00_JPRB,3.6379E+00_JPRB,3.7313E+00_JPRB/)
+KBO( :,16, 8) = (/&
+&2.8215E+00_JPRB,2.9045E+00_JPRB,2.9912E+00_JPRB,3.0777E+00_JPRB,3.1703E+00_JPRB/)
+KBO( :,17, 8) = (/&
+&2.4207E+00_JPRB,2.5043E+00_JPRB,2.5895E+00_JPRB,2.6793E+00_JPRB,2.7738E+00_JPRB/)
+KBO( :,18, 8) = (/&
+&2.1596E+00_JPRB,2.2496E+00_JPRB,2.3425E+00_JPRB,2.4404E+00_JPRB,2.5399E+00_JPRB/)
+KBO( :,19, 8) = (/&
+&1.9873E+00_JPRB,2.0853E+00_JPRB,2.1866E+00_JPRB,2.2891E+00_JPRB,2.3905E+00_JPRB/)
+KBO( :,20, 8) = (/&
+&1.8046E+00_JPRB,1.9022E+00_JPRB,2.0007E+00_JPRB,2.0973E+00_JPRB,2.1932E+00_JPRB/)
+KBO( :,21, 8) = (/&
+&1.6245E+00_JPRB,1.7151E+00_JPRB,1.8038E+00_JPRB,1.8907E+00_JPRB,1.9795E+00_JPRB/)
+KBO( :,22, 8) = (/&
+&1.4461E+00_JPRB,1.5258E+00_JPRB,1.6036E+00_JPRB,1.6835E+00_JPRB,1.7677E+00_JPRB/)
+KBO( :,23, 8) = (/&
+&1.2784E+00_JPRB,1.3484E+00_JPRB,1.4202E+00_JPRB,1.4958E+00_JPRB,1.5781E+00_JPRB/)
+KBO( :,24, 8) = (/&
+&1.1162E+00_JPRB,1.1799E+00_JPRB,1.2469E+00_JPRB,1.3197E+00_JPRB,1.4014E+00_JPRB/)
+KBO( :,25, 8) = (/&
+&9.7290E-01_JPRB,1.0323E+00_JPRB,1.0964E+00_JPRB,1.1683E+00_JPRB,1.2507E+00_JPRB/)
+KBO( :,26, 8) = (/&
+&8.5083E-01_JPRB,9.0746E-01_JPRB,9.7028E-01_JPRB,1.0426E+00_JPRB,1.1250E+00_JPRB/)
+KBO( :,27, 8) = (/&
+&7.4331E-01_JPRB,7.9805E-01_JPRB,8.6066E-01_JPRB,9.3282E-01_JPRB,1.0150E+00_JPRB/)
+KBO( :,28, 8) = (/&
+&6.4875E-01_JPRB,7.0258E-01_JPRB,7.6476E-01_JPRB,8.3624E-01_JPRB,9.1880E-01_JPRB/)
+KBO( :,29, 8) = (/&
+&5.7353E-01_JPRB,6.2704E-01_JPRB,6.8898E-01_JPRB,7.6115E-01_JPRB,8.4456E-01_JPRB/)
+KBO( :,30, 8) = (/&
+&5.1081E-01_JPRB,5.6430E-01_JPRB,6.2672E-01_JPRB,6.9960E-01_JPRB,7.8366E-01_JPRB/)
+KBO( :,31, 8) = (/&
+&4.6060E-01_JPRB,5.1474E-01_JPRB,5.7850E-01_JPRB,6.5276E-01_JPRB,7.3784E-01_JPRB/)
+KBO( :,32, 8) = (/&
+&4.2054E-01_JPRB,4.7584E-01_JPRB,5.4138E-01_JPRB,6.1744E-01_JPRB,7.0416E-01_JPRB/)
+KBO( :,33, 8) = (/&
+&3.8881E-01_JPRB,4.4574E-01_JPRB,5.1326E-01_JPRB,5.9158E-01_JPRB,6.8101E-01_JPRB/)
+KBO( :,34, 8) = (/&
+&3.6582E-01_JPRB,4.2446E-01_JPRB,4.9413E-01_JPRB,5.7504E-01_JPRB,6.6797E-01_JPRB/)
+KBO( :,35, 8) = (/&
+&3.4211E-01_JPRB,4.0158E-01_JPRB,4.7243E-01_JPRB,5.5519E-01_JPRB,6.5095E-01_JPRB/)
+KBO( :,36, 8) = (/&
+&3.1584E-01_JPRB,3.7515E-01_JPRB,4.4596E-01_JPRB,5.2948E-01_JPRB,6.2662E-01_JPRB/)
+KBO( :,37, 8) = (/&
+&2.8335E-01_JPRB,3.4000E-01_JPRB,4.0808E-01_JPRB,4.8925E-01_JPRB,5.8433E-01_JPRB/)
+KBO( :,38, 8) = (/&
+&2.5439E-01_JPRB,3.0837E-01_JPRB,3.7382E-01_JPRB,4.5256E-01_JPRB,5.4554E-01_JPRB/)
+KBO( :,39, 8) = (/&
+&2.2884E-01_JPRB,2.8037E-01_JPRB,3.4336E-01_JPRB,4.1988E-01_JPRB,5.1084E-01_JPRB/)
+KBO( :,40, 8) = (/&
+&1.9894E-01_JPRB,2.4621E-01_JPRB,3.0460E-01_JPRB,3.7622E-01_JPRB,4.6217E-01_JPRB/)
+KBO( :,41, 8) = (/&
+&1.7202E-01_JPRB,2.1505E-01_JPRB,2.6889E-01_JPRB,3.3546E-01_JPRB,4.1631E-01_JPRB/)
+KBO( :,42, 8) = (/&
+&1.4851E-01_JPRB,1.8770E-01_JPRB,2.3715E-01_JPRB,2.9895E-01_JPRB,3.7473E-01_JPRB/)
+KBO( :,43, 8) = (/&
+&1.2600E-01_JPRB,1.6095E-01_JPRB,2.0554E-01_JPRB,2.6188E-01_JPRB,3.3169E-01_JPRB/)
+KBO( :,44, 8) = (/&
+&1.0584E-01_JPRB,1.3667E-01_JPRB,1.7652E-01_JPRB,2.2729E-01_JPRB,2.9097E-01_JPRB/)
+KBO( :,45, 8) = (/&
+&8.8493E-02_JPRB,1.1567E-01_JPRB,1.5110E-01_JPRB,1.9672E-01_JPRB,2.5462E-01_JPRB/)
+KBO( :,46, 8) = (/&
+&7.3233E-02_JPRB,9.7022E-02_JPRB,1.2827E-01_JPRB,1.6892E-01_JPRB,2.2114E-01_JPRB/)
+KBO( :,47, 8) = (/&
+&5.9636E-02_JPRB,8.0163E-02_JPRB,1.0738E-01_JPRB,1.4314E-01_JPRB,1.8961E-01_JPRB/)
+KBO( :,48, 8) = (/&
+&4.8167E-02_JPRB,6.5765E-02_JPRB,8.9346E-02_JPRB,1.2067E-01_JPRB,1.6184E-01_JPRB/)
+KBO( :,49, 8) = (/&
+&3.8566E-02_JPRB,5.3500E-02_JPRB,7.3805E-02_JPRB,1.0114E-01_JPRB,1.3740E-01_JPRB/)
+KBO( :,50, 8) = (/&
+&3.0986E-02_JPRB,4.3657E-02_JPRB,6.1235E-02_JPRB,8.5187E-02_JPRB,1.1732E-01_JPRB/)
+KBO( :,51, 8) = (/&
+&2.4855E-02_JPRB,3.5538E-02_JPRB,5.0728E-02_JPRB,7.1690E-02_JPRB,1.0021E-01_JPRB/)
+KBO( :,52, 8) = (/&
+&1.9770E-02_JPRB,2.8704E-02_JPRB,4.1703E-02_JPRB,5.9943E-02_JPRB,8.5157E-02_JPRB/)
+KBO( :,53, 8) = (/&
+&1.5594E-02_JPRB,2.2973E-02_JPRB,3.3967E-02_JPRB,4.9762E-02_JPRB,7.1853E-02_JPRB/)
+KBO( :,54, 8) = (/&
+&1.2395E-02_JPRB,1.8523E-02_JPRB,2.7877E-02_JPRB,4.1630E-02_JPRB,6.1144E-02_JPRB/)
+KBO( :,55, 8) = (/&
+&9.8575E-03_JPRB,1.4938E-02_JPRB,2.2890E-02_JPRB,3.4846E-02_JPRB,5.2121E-02_JPRB/)
+KBO( :,56, 8) = (/&
+&7.7929E-03_JPRB,1.1970E-02_JPRB,1.8661E-02_JPRB,2.8954E-02_JPRB,4.4168E-02_JPRB/)
+KBO( :,57, 8) = (/&
+&6.1195E-03_JPRB,9.5111E-03_JPRB,1.5088E-02_JPRB,2.3882E-02_JPRB,3.7179E-02_JPRB/)
+KBO( :,58, 8) = (/&
+&4.8102E-03_JPRB,7.5604E-03_JPRB,1.2200E-02_JPRB,1.9713E-02_JPRB,3.1334E-02_JPRB/)
+KBO( :,59, 8) = (/&
+&4.0994E-03_JPRB,6.5648E-03_JPRB,1.0813E-02_JPRB,1.7794E-02_JPRB,2.8755E-02_JPRB/)
+KBO( :,13, 9) = (/&
+&2.2033E+01_JPRB,2.2174E+01_JPRB,2.2343E+01_JPRB,2.2507E+01_JPRB,2.2688E+01_JPRB/)
+KBO( :,14, 9) = (/&
+&1.9641E+01_JPRB,1.9826E+01_JPRB,1.9998E+01_JPRB,2.0195E+01_JPRB,2.0429E+01_JPRB/)
+KBO( :,15, 9) = (/&
+&1.7181E+01_JPRB,1.7367E+01_JPRB,1.7589E+01_JPRB,1.7835E+01_JPRB,1.8095E+01_JPRB/)
+KBO( :,16, 9) = (/&
+&1.4894E+01_JPRB,1.5133E+01_JPRB,1.5386E+01_JPRB,1.5657E+01_JPRB,1.5957E+01_JPRB/)
+KBO( :,17, 9) = (/&
+&1.3089E+01_JPRB,1.3342E+01_JPRB,1.3618E+01_JPRB,1.3934E+01_JPRB,1.4266E+01_JPRB/)
+KBO( :,18, 9) = (/&
+&1.1731E+01_JPRB,1.2006E+01_JPRB,1.2330E+01_JPRB,1.2671E+01_JPRB,1.3025E+01_JPRB/)
+KBO( :,19, 9) = (/&
+&1.0583E+01_JPRB,1.0906E+01_JPRB,1.1254E+01_JPRB,1.1621E+01_JPRB,1.2024E+01_JPRB/)
+KBO( :,20, 9) = (/&
+&9.4570E+00_JPRB,9.7937E+00_JPRB,1.0152E+01_JPRB,1.0555E+01_JPRB,1.0995E+01_JPRB/)
+KBO( :,21, 9) = (/&
+&8.4559E+00_JPRB,8.8026E+00_JPRB,9.1952E+00_JPRB,9.6304E+00_JPRB,1.0095E+01_JPRB/)
+KBO( :,22, 9) = (/&
+&7.5782E+00_JPRB,7.9554E+00_JPRB,8.3755E+00_JPRB,8.8282E+00_JPRB,9.3139E+00_JPRB/)
+KBO( :,23, 9) = (/&
+&6.8684E+00_JPRB,7.2684E+00_JPRB,7.7047E+00_JPRB,8.1736E+00_JPRB,8.6781E+00_JPRB/)
+KBO( :,24, 9) = (/&
+&6.2497E+00_JPRB,6.6572E+00_JPRB,7.0979E+00_JPRB,7.5746E+00_JPRB,8.0821E+00_JPRB/)
+KBO( :,25, 9) = (/&
+&5.7300E+00_JPRB,6.1337E+00_JPRB,6.5736E+00_JPRB,7.0462E+00_JPRB,7.5518E+00_JPRB/)
+KBO( :,26, 9) = (/&
+&5.2905E+00_JPRB,5.6892E+00_JPRB,6.1183E+00_JPRB,6.5857E+00_JPRB,7.0904E+00_JPRB/)
+KBO( :,27, 9) = (/&
+&4.8852E+00_JPRB,5.2716E+00_JPRB,5.6895E+00_JPRB,6.1477E+00_JPRB,6.6506E+00_JPRB/)
+KBO( :,28, 9) = (/&
+&4.4993E+00_JPRB,4.8815E+00_JPRB,5.2912E+00_JPRB,5.7427E+00_JPRB,6.2498E+00_JPRB/)
+KBO( :,29, 9) = (/&
+&4.1817E+00_JPRB,4.5681E+00_JPRB,4.9858E+00_JPRB,5.4440E+00_JPRB,5.9661E+00_JPRB/)
+KBO( :,30, 9) = (/&
+&3.9159E+00_JPRB,4.3103E+00_JPRB,4.7415E+00_JPRB,5.2227E+00_JPRB,5.7617E+00_JPRB/)
+KBO( :,31, 9) = (/&
+&3.7169E+00_JPRB,4.1255E+00_JPRB,4.5793E+00_JPRB,5.0892E+00_JPRB,5.6531E+00_JPRB/)
+KBO( :,32, 9) = (/&
+&3.5834E+00_JPRB,4.0122E+00_JPRB,4.4950E+00_JPRB,5.0349E+00_JPRB,5.6294E+00_JPRB/)
+KBO( :,33, 9) = (/&
+&3.5101E+00_JPRB,3.9652E+00_JPRB,4.4790E+00_JPRB,5.0498E+00_JPRB,5.6789E+00_JPRB/)
+KBO( :,34, 9) = (/&
+&3.5050E+00_JPRB,3.9930E+00_JPRB,4.5402E+00_JPRB,5.1475E+00_JPRB,5.8191E+00_JPRB/)
+KBO( :,35, 9) = (/&
+&3.4979E+00_JPRB,4.0137E+00_JPRB,4.5890E+00_JPRB,5.2289E+00_JPRB,5.9375E+00_JPRB/)
+KBO( :,36, 9) = (/&
+&3.4706E+00_JPRB,4.0059E+00_JPRB,4.6026E+00_JPRB,5.2687E+00_JPRB,6.0062E+00_JPRB/)
+KBO( :,37, 9) = (/&
+&3.3275E+00_JPRB,3.8631E+00_JPRB,4.4602E+00_JPRB,5.1262E+00_JPRB,5.8660E+00_JPRB/)
+KBO( :,38, 9) = (/&
+&3.1941E+00_JPRB,3.7291E+00_JPRB,4.3242E+00_JPRB,4.9885E+00_JPRB,5.7266E+00_JPRB/)
+KBO( :,39, 9) = (/&
+&3.0740E+00_JPRB,3.6084E+00_JPRB,4.2006E+00_JPRB,4.8620E+00_JPRB,5.5962E+00_JPRB/)
+KBO( :,40, 9) = (/&
+&2.8552E+00_JPRB,3.3739E+00_JPRB,3.9447E+00_JPRB,4.5808E+00_JPRB,5.2902E+00_JPRB/)
+KBO( :,41, 9) = (/&
+&2.6380E+00_JPRB,3.1381E+00_JPRB,3.6872E+00_JPRB,4.2961E+00_JPRB,4.9750E+00_JPRB/)
+KBO( :,42, 9) = (/&
+&2.4342E+00_JPRB,2.9148E+00_JPRB,3.4437E+00_JPRB,4.0255E+00_JPRB,4.6737E+00_JPRB/)
+KBO( :,43, 9) = (/&
+&2.2073E+00_JPRB,2.6629E+00_JPRB,3.1662E+00_JPRB,3.7162E+00_JPRB,4.3269E+00_JPRB/)
+KBO( :,44, 9) = (/&
+&1.9815E+00_JPRB,2.4093E+00_JPRB,2.8849E+00_JPRB,3.4033E+00_JPRB,3.9755E+00_JPRB/)
+KBO( :,45, 9) = (/&
+&1.7719E+00_JPRB,2.1718E+00_JPRB,2.6189E+00_JPRB,3.1075E+00_JPRB,3.6437E+00_JPRB/)
+KBO( :,46, 9) = (/&
+&1.5723E+00_JPRB,1.9443E+00_JPRB,2.3619E+00_JPRB,2.8217E+00_JPRB,3.3236E+00_JPRB/)
+KBO( :,47, 9) = (/&
+&1.3802E+00_JPRB,1.7245E+00_JPRB,2.1129E+00_JPRB,2.5440E+00_JPRB,3.0139E+00_JPRB/)
+KBO( :,48, 9) = (/&
+&1.2042E+00_JPRB,1.5204E+00_JPRB,1.8800E+00_JPRB,2.2805E+00_JPRB,2.7207E+00_JPRB/)
+KBO( :,49, 9) = (/&
+&1.0431E+00_JPRB,1.3311E+00_JPRB,1.6618E+00_JPRB,2.0323E+00_JPRB,2.4425E+00_JPRB/)
+KBO( :,50, 9) = (/&
+&9.1020E-01_JPRB,1.1754E+00_JPRB,1.4811E+00_JPRB,1.8261E+00_JPRB,2.2093E+00_JPRB/)
+KBO( :,51, 9) = (/&
+&7.9478E-01_JPRB,1.0402E+00_JPRB,1.3230E+00_JPRB,1.6448E+00_JPRB,2.0037E+00_JPRB/)
+KBO( :,52, 9) = (/&
+&6.8856E-01_JPRB,9.1521E-01_JPRB,1.1763E+00_JPRB,1.4752E+00_JPRB,1.8102E+00_JPRB/)
+KBO( :,53, 9) = (/&
+&5.9135E-01_JPRB,7.9906E-01_JPRB,1.0400E+00_JPRB,1.3162E+00_JPRB,1.6282E+00_JPRB/)
+KBO( :,54, 9) = (/&
+&5.1488E-01_JPRB,7.0709E-01_JPRB,9.3257E-01_JPRB,1.1913E+00_JPRB,1.4845E+00_JPRB/)
+KBO( :,55, 9) = (/&
+&4.5023E-01_JPRB,6.2878E-01_JPRB,8.4073E-01_JPRB,1.0847E+00_JPRB,1.3619E+00_JPRB/)
+KBO( :,56, 9) = (/&
+&3.9100E-01_JPRB,5.5634E-01_JPRB,7.5480E-01_JPRB,9.8459E-01_JPRB,1.2461E+00_JPRB/)
+KBO( :,57, 9) = (/&
+&3.3683E-01_JPRB,4.8921E-01_JPRB,6.7380E-01_JPRB,8.9005E-01_JPRB,1.1368E+00_JPRB/)
+KBO( :,58, 9) = (/&
+&2.9052E-01_JPRB,4.3080E-01_JPRB,6.0283E-01_JPRB,8.0653E-01_JPRB,1.0401E+00_JPRB/)
+KBO( :,59, 9) = (/&
+&2.7497E-01_JPRB,4.1213E-01_JPRB,5.8166E-01_JPRB,7.8275E-01_JPRB,1.0139E+00_JPRB/)
+KBO( :,13,10) = (/&
+&6.2443E+01_JPRB,6.2764E+01_JPRB,6.3247E+01_JPRB,6.3715E+01_JPRB,6.4108E+01_JPRB/)
+KBO( :,14,10) = (/&
+&5.9985E+01_JPRB,6.0474E+01_JPRB,6.1209E+01_JPRB,6.1839E+01_JPRB,6.2132E+01_JPRB/)
+KBO( :,15,10) = (/&
+&5.6302E+01_JPRB,5.7213E+01_JPRB,5.7905E+01_JPRB,5.8328E+01_JPRB,5.8930E+01_JPRB/)
+KBO( :,16,10) = (/&
+&5.2360E+01_JPRB,5.3074E+01_JPRB,5.3755E+01_JPRB,5.4642E+01_JPRB,5.5349E+01_JPRB/)
+KBO( :,17,10) = (/&
+&4.8557E+01_JPRB,4.9472E+01_JPRB,5.0546E+01_JPRB,5.1358E+01_JPRB,5.2195E+01_JPRB/)
+KBO( :,18,10) = (/&
+&4.5817E+01_JPRB,4.7034E+01_JPRB,4.8009E+01_JPRB,4.9111E+01_JPRB,5.0457E+01_JPRB/)
+KBO( :,19,10) = (/&
+&4.3325E+01_JPRB,4.4456E+01_JPRB,4.5754E+01_JPRB,4.7330E+01_JPRB,4.8976E+01_JPRB/)
+KBO( :,20,10) = (/&
+&3.9745E+01_JPRB,4.1127E+01_JPRB,4.2837E+01_JPRB,4.4567E+01_JPRB,4.6284E+01_JPRB/)
+KBO( :,21,10) = (/&
+&3.6127E+01_JPRB,3.7823E+01_JPRB,3.9580E+01_JPRB,4.1335E+01_JPRB,4.3236E+01_JPRB/)
+KBO( :,22,10) = (/&
+&3.2661E+01_JPRB,3.4362E+01_JPRB,3.6109E+01_JPRB,3.8022E+01_JPRB,4.0162E+01_JPRB/)
+KBO( :,23,10) = (/&
+&2.9316E+01_JPRB,3.1011E+01_JPRB,3.2886E+01_JPRB,3.5036E+01_JPRB,3.7336E+01_JPRB/)
+KBO( :,24,10) = (/&
+&2.6133E+01_JPRB,2.7977E+01_JPRB,3.0126E+01_JPRB,3.2424E+01_JPRB,3.4907E+01_JPRB/)
+KBO( :,25,10) = (/&
+&2.3786E+01_JPRB,2.5903E+01_JPRB,2.8212E+01_JPRB,3.0718E+01_JPRB,3.3428E+01_JPRB/)
+KBO( :,26,10) = (/&
+&2.2187E+01_JPRB,2.4436E+01_JPRB,2.6979E+01_JPRB,2.9726E+01_JPRB,3.2775E+01_JPRB/)
+KBO( :,27,10) = (/&
+&2.0867E+01_JPRB,2.3290E+01_JPRB,2.6025E+01_JPRB,2.9060E+01_JPRB,3.2420E+01_JPRB/)
+KBO( :,28,10) = (/&
+&1.9963E+01_JPRB,2.2440E+01_JPRB,2.5348E+01_JPRB,2.8653E+01_JPRB,3.2222E+01_JPRB/)
+KBO( :,29,10) = (/&
+&1.9439E+01_JPRB,2.1951E+01_JPRB,2.4945E+01_JPRB,2.8411E+01_JPRB,3.2065E+01_JPRB/)
+KBO( :,30,10) = (/&
+&1.9217E+01_JPRB,2.1773E+01_JPRB,2.4822E+01_JPRB,2.8258E+01_JPRB,3.1954E+01_JPRB/)
+KBO( :,31,10) = (/&
+&1.9236E+01_JPRB,2.1821E+01_JPRB,2.4835E+01_JPRB,2.8172E+01_JPRB,3.1859E+01_JPRB/)
+KBO( :,32,10) = (/&
+&1.9497E+01_JPRB,2.2156E+01_JPRB,2.5072E+01_JPRB,2.8334E+01_JPRB,3.2036E+01_JPRB/)
+KBO( :,33,10) = (/&
+&1.9927E+01_JPRB,2.2649E+01_JPRB,2.5483E+01_JPRB,2.8731E+01_JPRB,3.2414E+01_JPRB/)
+KBO( :,34,10) = (/&
+&2.0616E+01_JPRB,2.3435E+01_JPRB,2.6339E+01_JPRB,2.9629E+01_JPRB,3.3264E+01_JPRB/)
+KBO( :,35,10) = (/&
+&2.1144E+01_JPRB,2.4078E+01_JPRB,2.7155E+01_JPRB,3.0411E+01_JPRB,3.3926E+01_JPRB/)
+KBO( :,36,10) = (/&
+&2.1438E+01_JPRB,2.4511E+01_JPRB,2.7776E+01_JPRB,3.1069E+01_JPRB,3.4391E+01_JPRB/)
+KBO( :,37,10) = (/&
+&2.0912E+01_JPRB,2.3999E+01_JPRB,2.7304E+01_JPRB,3.0662E+01_JPRB,3.3903E+01_JPRB/)
+KBO( :,38,10) = (/&
+&2.0345E+01_JPRB,2.3428E+01_JPRB,2.6766E+01_JPRB,3.0163E+01_JPRB,3.3445E+01_JPRB/)
+KBO( :,39,10) = (/&
+&1.9778E+01_JPRB,2.2831E+01_JPRB,2.6185E+01_JPRB,2.9606E+01_JPRB,3.2946E+01_JPRB/)
+KBO( :,40,10) = (/&
+&1.8680E+01_JPRB,2.1589E+01_JPRB,2.4845E+01_JPRB,2.8243E+01_JPRB,3.1561E+01_JPRB/)
+KBO( :,41,10) = (/&
+&1.7550E+01_JPRB,2.0318E+01_JPRB,2.3431E+01_JPRB,2.6770E+01_JPRB,3.0077E+01_JPRB/)
+KBO( :,42,10) = (/&
+&1.6473E+01_JPRB,1.9098E+01_JPRB,2.2042E+01_JPRB,2.5289E+01_JPRB,2.8560E+01_JPRB/)
+KBO( :,43,10) = (/&
+&1.5257E+01_JPRB,1.7707E+01_JPRB,2.0444E+01_JPRB,2.3540E+01_JPRB,2.6749E+01_JPRB/)
+KBO( :,44,10) = (/&
+&1.4023E+01_JPRB,1.6313E+01_JPRB,1.8839E+01_JPRB,2.1729E+01_JPRB,2.4856E+01_JPRB/)
+KBO( :,45,10) = (/&
+&1.2858E+01_JPRB,1.5005E+01_JPRB,1.7331E+01_JPRB,2.0013E+01_JPRB,2.3009E+01_JPRB/)
+KBO( :,46,10) = (/&
+&1.1732E+01_JPRB,1.3762E+01_JPRB,1.5932E+01_JPRB,1.8398E+01_JPRB,2.1229E+01_JPRB/)
+KBO( :,47,10) = (/&
+&1.0637E+01_JPRB,1.2563E+01_JPRB,1.4611E+01_JPRB,1.6882E+01_JPRB,1.9522E+01_JPRB/)
+KBO( :,48,10) = (/&
+&9.5989E+00_JPRB,1.1430E+01_JPRB,1.3382E+01_JPRB,1.5508E+01_JPRB,1.7946E+01_JPRB/)
+KBO( :,49,10) = (/&
+&8.6105E+00_JPRB,1.0367E+01_JPRB,1.2235E+01_JPRB,1.4247E+01_JPRB,1.6502E+01_JPRB/)
+KBO( :,50,10) = (/&
+&7.7795E+00_JPRB,9.4717E+00_JPRB,1.1267E+01_JPRB,1.3203E+01_JPRB,1.5335E+01_JPRB/)
+KBO( :,51,10) = (/&
+&7.0327E+00_JPRB,8.6531E+00_JPRB,1.0392E+01_JPRB,1.2262E+01_JPRB,1.4298E+01_JPRB/)
+KBO( :,52,10) = (/&
+&6.3294E+00_JPRB,7.8785E+00_JPRB,9.5601E+00_JPRB,1.1364E+01_JPRB,1.3321E+01_JPRB/)
+KBO( :,53,10) = (/&
+&5.6735E+00_JPRB,7.1473E+00_JPRB,8.7577E+00_JPRB,1.0501E+01_JPRB,1.2384E+01_JPRB/)
+KBO( :,54,10) = (/&
+&5.1171E+00_JPRB,6.5109E+00_JPRB,8.0578E+00_JPRB,9.7452E+00_JPRB,1.1565E+01_JPRB/)
+KBO( :,55,10) = (/&
+&4.6203E+00_JPRB,5.9356E+00_JPRB,7.4153E+00_JPRB,9.0377E+00_JPRB,1.0796E+01_JPRB/)
+KBO( :,56,10) = (/&
+&4.1502E+00_JPRB,5.3934E+00_JPRB,6.7922E+00_JPRB,8.3512E+00_JPRB,1.0055E+01_JPRB/)
+KBO( :,57,10) = (/&
+&3.7055E+00_JPRB,4.8827E+00_JPRB,6.2007E+00_JPRB,7.6928E+00_JPRB,9.3383E+00_JPRB/)
+KBO( :,58,10) = (/&
+&3.3017E+00_JPRB,4.4251E+00_JPRB,5.6661E+00_JPRB,7.0836E+00_JPRB,8.6693E+00_JPRB/)
+KBO( :,59,10) = (/&
+&3.1387E+00_JPRB,4.2362E+00_JPRB,5.4398E+00_JPRB,6.8151E+00_JPRB,8.3756E+00_JPRB/)
+KBO( :,13,11) = (/&
+&8.6501E+01_JPRB,8.6756E+01_JPRB,8.7009E+01_JPRB,8.7807E+01_JPRB,8.8321E+01_JPRB/)
+KBO( :,14,11) = (/&
+&8.6001E+01_JPRB,8.6390E+01_JPRB,8.7153E+01_JPRB,8.7884E+01_JPRB,8.8485E+01_JPRB/)
+KBO( :,15,11) = (/&
+&8.3396E+01_JPRB,8.4271E+01_JPRB,8.5263E+01_JPRB,8.6231E+01_JPRB,8.7169E+01_JPRB/)
+KBO( :,16,11) = (/&
+&8.0216E+01_JPRB,8.1367E+01_JPRB,8.2641E+01_JPRB,8.3850E+01_JPRB,8.5113E+01_JPRB/)
+KBO( :,17,11) = (/&
+&7.7559E+01_JPRB,7.9123E+01_JPRB,8.0637E+01_JPRB,8.2229E+01_JPRB,8.3780E+01_JPRB/)
+KBO( :,18,11) = (/&
+&7.6113E+01_JPRB,7.8038E+01_JPRB,8.0039E+01_JPRB,8.1955E+01_JPRB,8.3906E+01_JPRB/)
+KBO( :,19,11) = (/&
+&7.4701E+01_JPRB,7.7061E+01_JPRB,7.9341E+01_JPRB,8.1777E+01_JPRB,8.4316E+01_JPRB/)
+KBO( :,20,11) = (/&
+&7.1644E+01_JPRB,7.4182E+01_JPRB,7.6892E+01_JPRB,7.9840E+01_JPRB,8.2902E+01_JPRB/)
+KBO( :,21,11) = (/&
+&6.7620E+01_JPRB,7.0516E+01_JPRB,7.3720E+01_JPRB,7.7152E+01_JPRB,8.0637E+01_JPRB/)
+KBO( :,22,11) = (/&
+&6.3004E+01_JPRB,6.6364E+01_JPRB,7.0039E+01_JPRB,7.3871E+01_JPRB,7.7820E+01_JPRB/)
+KBO( :,23,11) = (/&
+&5.8500E+01_JPRB,6.2279E+01_JPRB,6.6312E+01_JPRB,7.0504E+01_JPRB,7.4998E+01_JPRB/)
+KBO( :,24,11) = (/&
+&5.3727E+01_JPRB,5.7825E+01_JPRB,6.2144E+01_JPRB,6.6890E+01_JPRB,7.2071E+01_JPRB/)
+KBO( :,25,11) = (/&
+&4.9481E+01_JPRB,5.3871E+01_JPRB,5.8717E+01_JPRB,6.4044E+01_JPRB,6.9704E+01_JPRB/)
+KBO( :,26,11) = (/&
+&4.6254E+01_JPRB,5.1111E+01_JPRB,5.6460E+01_JPRB,6.2228E+01_JPRB,6.8093E+01_JPRB/)
+KBO( :,27,11) = (/&
+&4.3953E+01_JPRB,4.9258E+01_JPRB,5.5047E+01_JPRB,6.1083E+01_JPRB,6.7149E+01_JPRB/)
+KBO( :,28,11) = (/&
+&4.2333E+01_JPRB,4.8051E+01_JPRB,5.4161E+01_JPRB,6.0348E+01_JPRB,6.6482E+01_JPRB/)
+KBO( :,29,11) = (/&
+&4.1519E+01_JPRB,4.7571E+01_JPRB,5.3856E+01_JPRB,6.0162E+01_JPRB,6.6490E+01_JPRB/)
+KBO( :,30,11) = (/&
+&4.1079E+01_JPRB,4.7326E+01_JPRB,5.3742E+01_JPRB,6.0205E+01_JPRB,6.6744E+01_JPRB/)
+KBO( :,31,11) = (/&
+&4.0957E+01_JPRB,4.7315E+01_JPRB,5.3845E+01_JPRB,6.0494E+01_JPRB,6.7153E+01_JPRB/)
+KBO( :,32,11) = (/&
+&4.1227E+01_JPRB,4.7602E+01_JPRB,5.4282E+01_JPRB,6.1081E+01_JPRB,6.7763E+01_JPRB/)
+KBO( :,33,11) = (/&
+&4.1826E+01_JPRB,4.8137E+01_JPRB,5.4944E+01_JPRB,6.1784E+01_JPRB,6.8374E+01_JPRB/)
+KBO( :,34,11) = (/&
+&4.3072E+01_JPRB,4.9391E+01_JPRB,5.6254E+01_JPRB,6.3099E+01_JPRB,6.9725E+01_JPRB/)
+KBO( :,35,11) = (/&
+&4.3986E+01_JPRB,5.0200E+01_JPRB,5.6858E+01_JPRB,6.3640E+01_JPRB,7.0415E+01_JPRB/)
+KBO( :,36,11) = (/&
+&4.4502E+01_JPRB,5.0408E+01_JPRB,5.6628E+01_JPRB,6.3171E+01_JPRB,7.0200E+01_JPRB/)
+KBO( :,37,11) = (/&
+&4.3850E+01_JPRB,4.9526E+01_JPRB,5.5508E+01_JPRB,6.1846E+01_JPRB,6.8955E+01_JPRB/)
+KBO( :,38,11) = (/&
+&4.3288E+01_JPRB,4.8717E+01_JPRB,5.4460E+01_JPRB,6.0601E+01_JPRB,6.7672E+01_JPRB/)
+KBO( :,39,11) = (/&
+&4.2793E+01_JPRB,4.8055E+01_JPRB,5.3543E+01_JPRB,5.9508E+01_JPRB,6.6570E+01_JPRB/)
+KBO( :,40,11) = (/&
+&4.0982E+01_JPRB,4.6218E+01_JPRB,5.1475E+01_JPRB,5.7189E+01_JPRB,6.4026E+01_JPRB/)
+KBO( :,41,11) = (/&
+&3.9015E+01_JPRB,4.4241E+01_JPRB,4.9337E+01_JPRB,5.4818E+01_JPRB,6.1396E+01_JPRB/)
+KBO( :,42,11) = (/&
+&3.7029E+01_JPRB,4.2233E+01_JPRB,4.7279E+01_JPRB,5.2574E+01_JPRB,5.8917E+01_JPRB/)
+KBO( :,43,11) = (/&
+&3.4672E+01_JPRB,3.9813E+01_JPRB,4.4910E+01_JPRB,5.0015E+01_JPRB,5.6019E+01_JPRB/)
+KBO( :,44,11) = (/&
+&3.2216E+01_JPRB,3.7254E+01_JPRB,4.2367E+01_JPRB,4.7396E+01_JPRB,5.3071E+01_JPRB/)
+KBO( :,45,11) = (/&
+&2.9847E+01_JPRB,3.4776E+01_JPRB,3.9855E+01_JPRB,4.4920E+01_JPRB,5.0317E+01_JPRB/)
+KBO( :,46,11) = (/&
+&2.7555E+01_JPRB,3.2329E+01_JPRB,3.7304E+01_JPRB,4.2424E+01_JPRB,4.7633E+01_JPRB/)
+KBO( :,47,11) = (/&
+&2.5262E+01_JPRB,2.9854E+01_JPRB,3.4721E+01_JPRB,3.9795E+01_JPRB,4.4945E+01_JPRB/)
+KBO( :,48,11) = (/&
+&2.3081E+01_JPRB,2.7503E+01_JPRB,3.2213E+01_JPRB,3.7177E+01_JPRB,4.2342E+01_JPRB/)
+KBO( :,49,11) = (/&
+&2.1057E+01_JPRB,2.5246E+01_JPRB,2.9758E+01_JPRB,3.4602E+01_JPRB,3.9727E+01_JPRB/)
+KBO( :,50,11) = (/&
+&1.9318E+01_JPRB,2.3248E+01_JPRB,2.7618E+01_JPRB,3.2289E+01_JPRB,3.7300E+01_JPRB/)
+KBO( :,51,11) = (/&
+&1.7764E+01_JPRB,2.1445E+01_JPRB,2.5630E+01_JPRB,3.0117E+01_JPRB,3.5003E+01_JPRB/)
+KBO( :,52,11) = (/&
+&1.6284E+01_JPRB,1.9745E+01_JPRB,2.3706E+01_JPRB,2.8037E+01_JPRB,3.2754E+01_JPRB/)
+KBO( :,53,11) = (/&
+&1.4870E+01_JPRB,1.8170E+01_JPRB,2.1878E+01_JPRB,2.6032E+01_JPRB,3.0559E+01_JPRB/)
+KBO( :,54,11) = (/&
+&1.3618E+01_JPRB,1.6796E+01_JPRB,2.0287E+01_JPRB,2.4249E+01_JPRB,2.8597E+01_JPRB/)
+KBO( :,55,11) = (/&
+&1.2457E+01_JPRB,1.5534E+01_JPRB,1.8860E+01_JPRB,2.2616E+01_JPRB,2.6796E+01_JPRB/)
+KBO( :,56,11) = (/&
+&1.1356E+01_JPRB,1.4314E+01_JPRB,1.7512E+01_JPRB,2.1058E+01_JPRB,2.5045E+01_JPRB/)
+KBO( :,57,11) = (/&
+&1.0320E+01_JPRB,1.3127E+01_JPRB,1.6224E+01_JPRB,1.9585E+01_JPRB,2.3359E+01_JPRB/)
+KBO( :,58,11) = (/&
+&9.3830E+00_JPRB,1.2046E+01_JPRB,1.5046E+01_JPRB,1.8261E+01_JPRB,2.1817E+01_JPRB/)
+KBO( :,59,11) = (/&
+&8.9391E+00_JPRB,1.1539E+01_JPRB,1.4477E+01_JPRB,1.7622E+01_JPRB,2.1055E+01_JPRB/)
+KBO( :,13,12) = (/&
+&1.1536E+02_JPRB,1.1632E+02_JPRB,1.1676E+02_JPRB,1.1687E+02_JPRB,1.1771E+02_JPRB/)
+KBO( :,14,12) = (/&
+&1.1996E+02_JPRB,1.2089E+02_JPRB,1.2132E+02_JPRB,1.2216E+02_JPRB,1.2355E+02_JPRB/)
+KBO( :,15,12) = (/&
+&1.2190E+02_JPRB,1.2270E+02_JPRB,1.2390E+02_JPRB,1.2571E+02_JPRB,1.2681E+02_JPRB/)
+KBO( :,16,12) = (/&
+&1.2181E+02_JPRB,1.2365E+02_JPRB,1.2585E+02_JPRB,1.2744E+02_JPRB,1.2865E+02_JPRB/)
+KBO( :,17,12) = (/&
+&1.2361E+02_JPRB,1.2611E+02_JPRB,1.2809E+02_JPRB,1.2991E+02_JPRB,1.3207E+02_JPRB/)
+KBO( :,18,12) = (/&
+&1.2791E+02_JPRB,1.3042E+02_JPRB,1.3285E+02_JPRB,1.3575E+02_JPRB,1.3866E+02_JPRB/)
+KBO( :,19,12) = (/&
+&1.3167E+02_JPRB,1.3492E+02_JPRB,1.3862E+02_JPRB,1.4230E+02_JPRB,1.4589E+02_JPRB/)
+KBO( :,20,12) = (/&
+&1.3240E+02_JPRB,1.3677E+02_JPRB,1.4130E+02_JPRB,1.4568E+02_JPRB,1.5011E+02_JPRB/)
+KBO( :,21,12) = (/&
+&1.3167E+02_JPRB,1.3705E+02_JPRB,1.4232E+02_JPRB,1.4765E+02_JPRB,1.5295E+02_JPRB/)
+KBO( :,22,12) = (/&
+&1.2941E+02_JPRB,1.3568E+02_JPRB,1.4188E+02_JPRB,1.4812E+02_JPRB,1.5420E+02_JPRB/)
+KBO( :,23,12) = (/&
+&1.2650E+02_JPRB,1.3362E+02_JPRB,1.4090E+02_JPRB,1.4804E+02_JPRB,1.5493E+02_JPRB/)
+KBO( :,24,12) = (/&
+&1.2203E+02_JPRB,1.3010E+02_JPRB,1.3824E+02_JPRB,1.4621E+02_JPRB,1.5349E+02_JPRB/)
+KBO( :,25,12) = (/&
+&1.1780E+02_JPRB,1.2675E+02_JPRB,1.3578E+02_JPRB,1.4425E+02_JPRB,1.5220E+02_JPRB/)
+KBO( :,26,12) = (/&
+&1.1452E+02_JPRB,1.2433E+02_JPRB,1.3394E+02_JPRB,1.4292E+02_JPRB,1.5154E+02_JPRB/)
+KBO( :,27,12) = (/&
+&1.1158E+02_JPRB,1.2202E+02_JPRB,1.3200E+02_JPRB,1.4156E+02_JPRB,1.5071E+02_JPRB/)
+KBO( :,28,12) = (/&
+&1.0877E+02_JPRB,1.1953E+02_JPRB,1.2986E+02_JPRB,1.3983E+02_JPRB,1.4949E+02_JPRB/)
+KBO( :,29,12) = (/&
+&1.0758E+02_JPRB,1.1863E+02_JPRB,1.2937E+02_JPRB,1.3977E+02_JPRB,1.4973E+02_JPRB/)
+KBO( :,30,12) = (/&
+&1.0679E+02_JPRB,1.1811E+02_JPRB,1.2916E+02_JPRB,1.3989E+02_JPRB,1.4980E+02_JPRB/)
+KBO( :,31,12) = (/&
+&1.0688E+02_JPRB,1.1849E+02_JPRB,1.2989E+02_JPRB,1.4068E+02_JPRB,1.5077E+02_JPRB/)
+KBO( :,32,12) = (/&
+&1.0761E+02_JPRB,1.1953E+02_JPRB,1.3110E+02_JPRB,1.4225E+02_JPRB,1.5305E+02_JPRB/)
+KBO( :,33,12) = (/&
+&1.0869E+02_JPRB,1.2092E+02_JPRB,1.3311E+02_JPRB,1.4513E+02_JPRB,1.5706E+02_JPRB/)
+KBO( :,34,12) = (/&
+&1.1112E+02_JPRB,1.2403E+02_JPRB,1.3695E+02_JPRB,1.4972E+02_JPRB,1.6276E+02_JPRB/)
+KBO( :,35,12) = (/&
+&1.1246E+02_JPRB,1.2623E+02_JPRB,1.4002E+02_JPRB,1.5398E+02_JPRB,1.6809E+02_JPRB/)
+KBO( :,36,12) = (/&
+&1.1250E+02_JPRB,1.2737E+02_JPRB,1.4246E+02_JPRB,1.5783E+02_JPRB,1.7316E+02_JPRB/)
+KBO( :,37,12) = (/&
+&1.1061E+02_JPRB,1.2593E+02_JPRB,1.4155E+02_JPRB,1.5744E+02_JPRB,1.7321E+02_JPRB/)
+KBO( :,38,12) = (/&
+&1.0863E+02_JPRB,1.2441E+02_JPRB,1.4054E+02_JPRB,1.5693E+02_JPRB,1.7309E+02_JPRB/)
+KBO( :,39,12) = (/&
+&1.0682E+02_JPRB,1.2301E+02_JPRB,1.3972E+02_JPRB,1.5664E+02_JPRB,1.7318E+02_JPRB/)
+KBO( :,40,12) = (/&
+&1.0231E+02_JPRB,1.1830E+02_JPRB,1.3525E+02_JPRB,1.5235E+02_JPRB,1.6904E+02_JPRB/)
+KBO( :,41,12) = (/&
+&9.7591E+01_JPRB,1.1325E+02_JPRB,1.3028E+02_JPRB,1.4750E+02_JPRB,1.6434E+02_JPRB/)
+KBO( :,42,12) = (/&
+&9.3027E+01_JPRB,1.0842E+02_JPRB,1.2533E+02_JPRB,1.4267E+02_JPRB,1.5965E+02_JPRB/)
+KBO( :,43,12) = (/&
+&8.7538E+01_JPRB,1.0245E+02_JPRB,1.1885E+02_JPRB,1.3623E+02_JPRB,1.5326E+02_JPRB/)
+KBO( :,44,12) = (/&
+&8.1886E+01_JPRB,9.6138E+01_JPRB,1.1198E+02_JPRB,1.2909E+02_JPRB,1.4608E+02_JPRB/)
+KBO( :,45,12) = (/&
+&7.6645E+01_JPRB,9.0087E+01_JPRB,1.0542E+02_JPRB,1.2199E+02_JPRB,1.3900E+02_JPRB/)
+KBO( :,46,12) = (/&
+&7.1474E+01_JPRB,8.4055E+01_JPRB,9.8742E+01_JPRB,1.1474E+02_JPRB,1.3156E+02_JPRB/)
+KBO( :,47,12) = (/&
+&6.6310E+01_JPRB,7.7963E+01_JPRB,9.1690E+01_JPRB,1.0705E+02_JPRB,1.2340E+02_JPRB/)
+KBO( :,48,12) = (/&
+&6.1600E+01_JPRB,7.2276E+01_JPRB,8.5037E+01_JPRB,9.9673E+01_JPRB,1.1542E+02_JPRB/)
+KBO( :,49,12) = (/&
+&5.7283E+01_JPRB,6.7050E+01_JPRB,7.8923E+01_JPRB,9.2652E+01_JPRB,1.0778E+02_JPRB/)
+KBO( :,50,12) = (/&
+&5.3478E+01_JPRB,6.2571E+01_JPRB,7.3516E+01_JPRB,8.6380E+01_JPRB,1.0082E+02_JPRB/)
+KBO( :,51,12) = (/&
+&4.9875E+01_JPRB,5.8576E+01_JPRB,6.8672E+01_JPRB,8.0731E+01_JPRB,9.4376E+01_JPRB/)
+KBO( :,52,12) = (/&
+&4.6408E+01_JPRB,5.4871E+01_JPRB,6.4185E+01_JPRB,7.5407E+01_JPRB,8.8241E+01_JPRB/)
+KBO( :,53,12) = (/&
+&4.3049E+01_JPRB,5.1245E+01_JPRB,6.0053E+01_JPRB,7.0436E+01_JPRB,8.2512E+01_JPRB/)
+KBO( :,54,12) = (/&
+&4.0074E+01_JPRB,4.8005E+01_JPRB,5.6523E+01_JPRB,6.6130E+01_JPRB,7.7483E+01_JPRB/)
+KBO( :,55,12) = (/&
+&3.7334E+01_JPRB,4.4988E+01_JPRB,5.3284E+01_JPRB,6.2287E+01_JPRB,7.2912E+01_JPRB/)
+KBO( :,56,12) = (/&
+&3.4721E+01_JPRB,4.2060E+01_JPRB,5.0133E+01_JPRB,5.8707E+01_JPRB,6.8606E+01_JPRB/)
+KBO( :,57,12) = (/&
+&3.2171E+01_JPRB,3.9229E+01_JPRB,4.7079E+01_JPRB,5.5373E+01_JPRB,6.4605E+01_JPRB/)
+KBO( :,58,12) = (/&
+&2.9794E+01_JPRB,3.6617E+01_JPRB,4.4198E+01_JPRB,5.2314E+01_JPRB,6.1016E+01_JPRB/)
+KBO( :,59,12) = (/&
+&2.8699E+01_JPRB,3.5397E+01_JPRB,4.2806E+01_JPRB,5.0814E+01_JPRB,5.9273E+01_JPRB/)
+KBO( :,13,13) = (/&
+&1.6492E+02_JPRB,1.6388E+02_JPRB,1.6346E+02_JPRB,1.6281E+02_JPRB,1.6185E+02_JPRB/)
+KBO( :,14,13) = (/&
+&1.7807E+02_JPRB,1.7770E+02_JPRB,1.7743E+02_JPRB,1.7669E+02_JPRB,1.7598E+02_JPRB/)
+KBO( :,15,13) = (/&
+&1.8993E+02_JPRB,1.9024E+02_JPRB,1.8997E+02_JPRB,1.8962E+02_JPRB,1.9043E+02_JPRB/)
+KBO( :,16,13) = (/&
+&2.0050E+02_JPRB,2.0095E+02_JPRB,2.0135E+02_JPRB,2.0291E+02_JPRB,2.0501E+02_JPRB/)
+KBO( :,17,13) = (/&
+&2.0905E+02_JPRB,2.1062E+02_JPRB,2.1338E+02_JPRB,2.1661E+02_JPRB,2.1875E+02_JPRB/)
+KBO( :,18,13) = (/&
+&2.1804E+02_JPRB,2.2224E+02_JPRB,2.2674E+02_JPRB,2.3000E+02_JPRB,2.3246E+02_JPRB/)
+KBO( :,19,13) = (/&
+&2.3115E+02_JPRB,2.3655E+02_JPRB,2.4106E+02_JPRB,2.4477E+02_JPRB,2.4852E+02_JPRB/)
+KBO( :,20,13) = (/&
+&2.4329E+02_JPRB,2.4898E+02_JPRB,2.5395E+02_JPRB,2.5885E+02_JPRB,2.6364E+02_JPRB/)
+KBO( :,21,13) = (/&
+&2.5437E+02_JPRB,2.6055E+02_JPRB,2.6661E+02_JPRB,2.7260E+02_JPRB,2.7787E+02_JPRB/)
+KBO( :,22,13) = (/&
+&2.6250E+02_JPRB,2.7007E+02_JPRB,2.7766E+02_JPRB,2.8448E+02_JPRB,2.9027E+02_JPRB/)
+KBO( :,23,13) = (/&
+&2.6919E+02_JPRB,2.7869E+02_JPRB,2.8736E+02_JPRB,2.9473E+02_JPRB,3.0099E+02_JPRB/)
+KBO( :,24,13) = (/&
+&2.7228E+02_JPRB,2.8325E+02_JPRB,2.9264E+02_JPRB,3.0066E+02_JPRB,3.0797E+02_JPRB/)
+KBO( :,25,13) = (/&
+&2.7478E+02_JPRB,2.8650E+02_JPRB,2.9632E+02_JPRB,3.0547E+02_JPRB,3.1366E+02_JPRB/)
+KBO( :,26,13) = (/&
+&2.7718E+02_JPRB,2.8924E+02_JPRB,3.0014E+02_JPRB,3.1019E+02_JPRB,3.1917E+02_JPRB/)
+KBO( :,27,13) = (/&
+&2.7773E+02_JPRB,2.9063E+02_JPRB,3.0281E+02_JPRB,3.1393E+02_JPRB,3.2342E+02_JPRB/)
+KBO( :,28,13) = (/&
+&2.7669E+02_JPRB,2.9127E+02_JPRB,3.0469E+02_JPRB,3.1685E+02_JPRB,3.2697E+02_JPRB/)
+KBO( :,29,13) = (/&
+&2.7898E+02_JPRB,2.9479E+02_JPRB,3.0937E+02_JPRB,3.2216E+02_JPRB,3.3294E+02_JPRB/)
+KBO( :,30,13) = (/&
+&2.8228E+02_JPRB,2.9938E+02_JPRB,3.1508E+02_JPRB,3.2858E+02_JPRB,3.4068E+02_JPRB/)
+KBO( :,31,13) = (/&
+&2.8807E+02_JPRB,3.0670E+02_JPRB,3.2315E+02_JPRB,3.3792E+02_JPRB,3.5112E+02_JPRB/)
+KBO( :,32,13) = (/&
+&2.9599E+02_JPRB,3.1568E+02_JPRB,3.3326E+02_JPRB,3.4888E+02_JPRB,3.6266E+02_JPRB/)
+KBO( :,33,13) = (/&
+&3.0608E+02_JPRB,3.2668E+02_JPRB,3.4478E+02_JPRB,3.6084E+02_JPRB,3.7554E+02_JPRB/)
+KBO( :,34,13) = (/&
+&3.1667E+02_JPRB,3.3765E+02_JPRB,3.5613E+02_JPRB,3.7316E+02_JPRB,3.8829E+02_JPRB/)
+KBO( :,35,13) = (/&
+&3.2596E+02_JPRB,3.4758E+02_JPRB,3.6720E+02_JPRB,3.8537E+02_JPRB,4.0075E+02_JPRB/)
+KBO( :,36,13) = (/&
+&3.3359E+02_JPRB,3.5628E+02_JPRB,3.7747E+02_JPRB,3.9672E+02_JPRB,4.1282E+02_JPRB/)
+KBO( :,37,13) = (/&
+&3.3360E+02_JPRB,3.5721E+02_JPRB,3.7933E+02_JPRB,3.9940E+02_JPRB,4.1630E+02_JPRB/)
+KBO( :,38,13) = (/&
+&3.3326E+02_JPRB,3.5780E+02_JPRB,3.8082E+02_JPRB,4.0174E+02_JPRB,4.1947E+02_JPRB/)
+KBO( :,39,13) = (/&
+&3.3309E+02_JPRB,3.5850E+02_JPRB,3.8253E+02_JPRB,4.0436E+02_JPRB,4.2297E+02_JPRB/)
+KBO( :,40,13) = (/&
+&3.2648E+02_JPRB,3.5268E+02_JPRB,3.7698E+02_JPRB,3.9960E+02_JPRB,4.1913E+02_JPRB/)
+KBO( :,41,13) = (/&
+&3.1896E+02_JPRB,3.4578E+02_JPRB,3.7035E+02_JPRB,3.9368E+02_JPRB,4.1397E+02_JPRB/)
+KBO( :,42,13) = (/&
+&3.1112E+02_JPRB,3.3866E+02_JPRB,3.6362E+02_JPRB,3.8746E+02_JPRB,4.0853E+02_JPRB/)
+KBO( :,43,13) = (/&
+&3.0052E+02_JPRB,3.2869E+02_JPRB,3.5427E+02_JPRB,3.7807E+02_JPRB,3.9999E+02_JPRB/)
+KBO( :,44,13) = (/&
+&2.8853E+02_JPRB,3.1745E+02_JPRB,3.4358E+02_JPRB,3.6752E+02_JPRB,3.9013E+02_JPRB/)
+KBO( :,45,13) = (/&
+&2.7601E+02_JPRB,3.0588E+02_JPRB,3.3279E+02_JPRB,3.5705E+02_JPRB,3.7967E+02_JPRB/)
+KBO( :,46,13) = (/&
+&2.6267E+02_JPRB,2.9363E+02_JPRB,3.2123E+02_JPRB,3.4597E+02_JPRB,3.6877E+02_JPRB/)
+KBO( :,47,13) = (/&
+&2.4757E+02_JPRB,2.7937E+02_JPRB,3.0805E+02_JPRB,3.3376E+02_JPRB,3.5676E+02_JPRB/)
+KBO( :,48,13) = (/&
+&2.3214E+02_JPRB,2.6483E+02_JPRB,2.9482E+02_JPRB,3.2128E+02_JPRB,3.4490E+02_JPRB/)
+KBO( :,49,13) = (/&
+&2.1667E+02_JPRB,2.4994E+02_JPRB,2.8075E+02_JPRB,3.0839E+02_JPRB,3.3291E+02_JPRB/)
+KBO( :,50,13) = (/&
+&2.0214E+02_JPRB,2.3567E+02_JPRB,2.6727E+02_JPRB,2.9615E+02_JPRB,3.2136E+02_JPRB/)
+KBO( :,51,13) = (/&
+&1.8827E+02_JPRB,2.2174E+02_JPRB,2.5386E+02_JPRB,2.8344E+02_JPRB,3.0975E+02_JPRB/)
+KBO( :,52,13) = (/&
+&1.7469E+02_JPRB,2.0766E+02_JPRB,2.4021E+02_JPRB,2.7051E+02_JPRB,2.9806E+02_JPRB/)
+KBO( :,53,13) = (/&
+&1.6154E+02_JPRB,1.9380E+02_JPRB,2.2644E+02_JPRB,2.5730E+02_JPRB,2.8551E+02_JPRB/)
+KBO( :,54,13) = (/&
+&1.4971E+02_JPRB,1.8121E+02_JPRB,2.1351E+02_JPRB,2.4474E+02_JPRB,2.7363E+02_JPRB/)
+KBO( :,55,13) = (/&
+&1.3871E+02_JPRB,1.6943E+02_JPRB,2.0115E+02_JPRB,2.3248E+02_JPRB,2.6185E+02_JPRB/)
+KBO( :,56,13) = (/&
+&1.2829E+02_JPRB,1.5787E+02_JPRB,1.8899E+02_JPRB,2.2029E+02_JPRB,2.4989E+02_JPRB/)
+KBO( :,57,13) = (/&
+&1.1862E+02_JPRB,1.4668E+02_JPRB,1.7707E+02_JPRB,2.0801E+02_JPRB,2.3778E+02_JPRB/)
+KBO( :,58,13) = (/&
+&1.1001E+02_JPRB,1.3648E+02_JPRB,1.6587E+02_JPRB,1.9633E+02_JPRB,2.2625E+02_JPRB/)
+KBO( :,59,13) = (/&
+&1.0617E+02_JPRB,1.3192E+02_JPRB,1.6056E+02_JPRB,1.9063E+02_JPRB,2.2036E+02_JPRB/)
+KBO( :,13,14) = (/&
+&2.3740E+02_JPRB,2.3433E+02_JPRB,2.3150E+02_JPRB,2.2987E+02_JPRB,2.2791E+02_JPRB/)
+KBO( :,14,14) = (/&
+&2.6697E+02_JPRB,2.6354E+02_JPRB,2.6091E+02_JPRB,2.5890E+02_JPRB,2.5611E+02_JPRB/)
+KBO( :,15,14) = (/&
+&2.9866E+02_JPRB,2.9528E+02_JPRB,2.9285E+02_JPRB,2.8971E+02_JPRB,2.8602E+02_JPRB/)
+KBO( :,16,14) = (/&
+&3.3180E+02_JPRB,3.2877E+02_JPRB,3.2564E+02_JPRB,3.2149E+02_JPRB,3.1785E+02_JPRB/)
+KBO( :,17,14) = (/&
+&3.6593E+02_JPRB,3.6291E+02_JPRB,3.5866E+02_JPRB,3.5483E+02_JPRB,3.5327E+02_JPRB/)
+KBO( :,18,14) = (/&
+&4.0089E+02_JPRB,3.9701E+02_JPRB,3.9353E+02_JPRB,3.9249E+02_JPRB,3.9242E+02_JPRB/)
+KBO( :,19,14) = (/&
+&4.3492E+02_JPRB,4.3255E+02_JPRB,4.3249E+02_JPRB,4.3314E+02_JPRB,4.3203E+02_JPRB/)
+KBO( :,20,14) = (/&
+&4.6851E+02_JPRB,4.6867E+02_JPRB,4.6996E+02_JPRB,4.7008E+02_JPRB,4.6768E+02_JPRB/)
+KBO( :,21,14) = (/&
+&5.0160E+02_JPRB,5.0368E+02_JPRB,5.0510E+02_JPRB,5.0393E+02_JPRB,5.0142E+02_JPRB/)
+KBO( :,22,14) = (/&
+&5.3436E+02_JPRB,5.3662E+02_JPRB,5.3668E+02_JPRB,5.3522E+02_JPRB,5.3316E+02_JPRB/)
+KBO( :,23,14) = (/&
+&5.6475E+02_JPRB,5.6646E+02_JPRB,5.6617E+02_JPRB,5.6492E+02_JPRB,5.6377E+02_JPRB/)
+KBO( :,24,14) = (/&
+&5.9117E+02_JPRB,5.9235E+02_JPRB,5.9305E+02_JPRB,5.9284E+02_JPRB,5.9155E+02_JPRB/)
+KBO( :,25,14) = (/&
+&6.1433E+02_JPRB,6.1663E+02_JPRB,6.1844E+02_JPRB,6.1841E+02_JPRB,6.1657E+02_JPRB/)
+KBO( :,26,14) = (/&
+&6.3532E+02_JPRB,6.3942E+02_JPRB,6.4146E+02_JPRB,6.4105E+02_JPRB,6.3887E+02_JPRB/)
+KBO( :,27,14) = (/&
+&6.5539E+02_JPRB,6.6044E+02_JPRB,6.6224E+02_JPRB,6.6141E+02_JPRB,6.5941E+02_JPRB/)
+KBO( :,28,14) = (/&
+&6.7497E+02_JPRB,6.7980E+02_JPRB,6.8130E+02_JPRB,6.7994E+02_JPRB,6.7811E+02_JPRB/)
+KBO( :,29,14) = (/&
+&6.9431E+02_JPRB,6.9884E+02_JPRB,6.9950E+02_JPRB,6.9835E+02_JPRB,6.9642E+02_JPRB/)
+KBO( :,30,14) = (/&
+&7.1327E+02_JPRB,7.1751E+02_JPRB,7.1742E+02_JPRB,7.1698E+02_JPRB,7.1542E+02_JPRB/)
+KBO( :,31,14) = (/&
+&7.3356E+02_JPRB,7.3622E+02_JPRB,7.3751E+02_JPRB,7.3724E+02_JPRB,7.3663E+02_JPRB/)
+KBO( :,32,14) = (/&
+&7.5311E+02_JPRB,7.5602E+02_JPRB,7.5787E+02_JPRB,7.5927E+02_JPRB,7.5912E+02_JPRB/)
+KBO( :,33,14) = (/&
+&7.7307E+02_JPRB,7.7793E+02_JPRB,7.8149E+02_JPRB,7.8317E+02_JPRB,7.8351E+02_JPRB/)
+KBO( :,34,14) = (/&
+&7.9467E+02_JPRB,8.0056E+02_JPRB,8.0525E+02_JPRB,8.0749E+02_JPRB,8.0900E+02_JPRB/)
+KBO( :,35,14) = (/&
+&8.1769E+02_JPRB,8.2551E+02_JPRB,8.3062E+02_JPRB,8.3402E+02_JPRB,8.3937E+02_JPRB/)
+KBO( :,36,14) = (/&
+&8.4220E+02_JPRB,8.5215E+02_JPRB,8.5810E+02_JPRB,8.6400E+02_JPRB,8.7476E+02_JPRB/)
+KBO( :,37,14) = (/&
+&8.5305E+02_JPRB,8.6405E+02_JPRB,8.7082E+02_JPRB,8.7797E+02_JPRB,8.9053E+02_JPRB/)
+KBO( :,38,14) = (/&
+&8.6322E+02_JPRB,8.7544E+02_JPRB,8.8314E+02_JPRB,8.9164E+02_JPRB,9.0590E+02_JPRB/)
+KBO( :,39,14) = (/&
+&8.7378E+02_JPRB,8.8745E+02_JPRB,8.9629E+02_JPRB,9.0629E+02_JPRB,9.2255E+02_JPRB/)
+KBO( :,40,14) = (/&
+&8.7238E+02_JPRB,8.8620E+02_JPRB,8.9614E+02_JPRB,9.0579E+02_JPRB,9.1970E+02_JPRB/)
+KBO( :,41,14) = (/&
+&8.6852E+02_JPRB,8.8300E+02_JPRB,8.9419E+02_JPRB,9.0301E+02_JPRB,9.1475E+02_JPRB/)
+KBO( :,42,14) = (/&
+&8.6436E+02_JPRB,8.7945E+02_JPRB,8.9208E+02_JPRB,9.0006E+02_JPRB,9.1044E+02_JPRB/)
+KBO( :,43,14) = (/&
+&8.5621E+02_JPRB,8.7164E+02_JPRB,8.8447E+02_JPRB,8.9300E+02_JPRB,9.0169E+02_JPRB/)
+KBO( :,44,14) = (/&
+&8.4579E+02_JPRB,8.6160E+02_JPRB,8.7458E+02_JPRB,8.8449E+02_JPRB,8.9117E+02_JPRB/)
+KBO( :,45,14) = (/&
+&8.3552E+02_JPRB,8.5159E+02_JPRB,8.6481E+02_JPRB,8.7553E+02_JPRB,8.8180E+02_JPRB/)
+KBO( :,46,14) = (/&
+&8.2373E+02_JPRB,8.4082E+02_JPRB,8.5433E+02_JPRB,8.6532E+02_JPRB,8.7296E+02_JPRB/)
+KBO( :,47,14) = (/&
+&8.0885E+02_JPRB,8.2944E+02_JPRB,8.4330E+02_JPRB,8.5448E+02_JPRB,8.6308E+02_JPRB/)
+KBO( :,48,14) = (/&
+&7.9282E+02_JPRB,8.1701E+02_JPRB,8.3172E+02_JPRB,8.4330E+02_JPRB,8.5233E+02_JPRB/)
+KBO( :,49,14) = (/&
+&7.7474E+02_JPRB,8.0258E+02_JPRB,8.2078E+02_JPRB,8.3236E+02_JPRB,8.4158E+02_JPRB/)
+KBO( :,50,14) = (/&
+&7.5683E+02_JPRB,7.8804E+02_JPRB,8.0940E+02_JPRB,8.2148E+02_JPRB,8.3083E+02_JPRB/)
+KBO( :,51,14) = (/&
+&7.3938E+02_JPRB,7.7206E+02_JPRB,7.9641E+02_JPRB,8.1162E+02_JPRB,8.2058E+02_JPRB/)
+KBO( :,52,14) = (/&
+&7.2202E+02_JPRB,7.5535E+02_JPRB,7.8294E+02_JPRB,8.0108E+02_JPRB,8.1024E+02_JPRB/)
+KBO( :,53,14) = (/&
+&7.0324E+02_JPRB,7.3897E+02_JPRB,7.6789E+02_JPRB,7.8856E+02_JPRB,8.0094E+02_JPRB/)
+KBO( :,54,14) = (/&
+&6.8557E+02_JPRB,7.2372E+02_JPRB,7.5272E+02_JPRB,7.7628E+02_JPRB,7.9095E+02_JPRB/)
+KBO( :,55,14) = (/&
+&6.6859E+02_JPRB,7.0784E+02_JPRB,7.3838E+02_JPRB,7.6303E+02_JPRB,7.7977E+02_JPRB/)
+KBO( :,56,14) = (/&
+&6.5053E+02_JPRB,6.9180E+02_JPRB,7.2460E+02_JPRB,7.4881E+02_JPRB,7.6818E+02_JPRB/)
+KBO( :,57,14) = (/&
+&6.3162E+02_JPRB,6.7617E+02_JPRB,7.0983E+02_JPRB,7.3529E+02_JPRB,7.5540E+02_JPRB/)
+KBO( :,58,14) = (/&
+&6.1260E+02_JPRB,6.6039E+02_JPRB,6.9564E+02_JPRB,7.2278E+02_JPRB,7.4208E+02_JPRB/)
+KBO( :,59,14) = (/&
+&6.0339E+02_JPRB,6.5209E+02_JPRB,6.8806E+02_JPRB,7.1492E+02_JPRB,7.3375E+02_JPRB/)
+KBO( :,13,15) = (/&
+&3.5098E+02_JPRB,3.4253E+02_JPRB,3.3549E+02_JPRB,3.2928E+02_JPRB,3.2668E+02_JPRB/)
+KBO( :,14,15) = (/&
+&4.0377E+02_JPRB,3.9399E+02_JPRB,3.8548E+02_JPRB,3.7889E+02_JPRB,3.7631E+02_JPRB/)
+KBO( :,15,15) = (/&
+&4.6249E+02_JPRB,4.5101E+02_JPRB,4.4105E+02_JPRB,4.3505E+02_JPRB,4.3250E+02_JPRB/)
+KBO( :,16,15) = (/&
+&5.2722E+02_JPRB,5.1397E+02_JPRB,5.0360E+02_JPRB,4.9808E+02_JPRB,4.9380E+02_JPRB/)
+KBO( :,17,15) = (/&
+&5.9816E+02_JPRB,5.8291E+02_JPRB,5.7380E+02_JPRB,5.6753E+02_JPRB,5.5862E+02_JPRB/)
+KBO( :,18,15) = (/&
+&6.7401E+02_JPRB,6.5981E+02_JPRB,6.5045E+02_JPRB,6.3876E+02_JPRB,6.2938E+02_JPRB/)
+KBO( :,19,15) = (/&
+&7.5603E+02_JPRB,7.4243E+02_JPRB,7.2713E+02_JPRB,7.1493E+02_JPRB,7.1147E+02_JPRB/)
+KBO( :,20,15) = (/&
+&8.4018E+02_JPRB,8.2182E+02_JPRB,8.0329E+02_JPRB,7.9254E+02_JPRB,7.9403E+02_JPRB/)
+KBO( :,21,15) = (/&
+&9.2407E+02_JPRB,8.9903E+02_JPRB,8.7966E+02_JPRB,8.7268E+02_JPRB,8.7487E+02_JPRB/)
+KBO( :,22,15) = (/&
+&1.0011E+03_JPRB,9.7360E+02_JPRB,9.5759E+02_JPRB,9.5258E+02_JPRB,9.5318E+02_JPRB/)
+KBO( :,23,15) = (/&
+&1.0752E+03_JPRB,1.0483E+03_JPRB,1.0346E+03_JPRB,1.0305E+03_JPRB,1.0291E+03_JPRB/)
+KBO( :,24,15) = (/&
+&1.1456E+03_JPRB,1.1222E+03_JPRB,1.1083E+03_JPRB,1.1031E+03_JPRB,1.1046E+03_JPRB/)
+KBO( :,25,15) = (/&
+&1.2128E+03_JPRB,1.1904E+03_JPRB,1.1781E+03_JPRB,1.1730E+03_JPRB,1.1805E+03_JPRB/)
+KBO( :,26,15) = (/&
+&1.2750E+03_JPRB,1.2517E+03_JPRB,1.2401E+03_JPRB,1.2396E+03_JPRB,1.2511E+03_JPRB/)
+KBO( :,27,15) = (/&
+&1.3306E+03_JPRB,1.3092E+03_JPRB,1.2993E+03_JPRB,1.3047E+03_JPRB,1.3242E+03_JPRB/)
+KBO( :,28,15) = (/&
+&1.3803E+03_JPRB,1.3622E+03_JPRB,1.3582E+03_JPRB,1.3721E+03_JPRB,1.4060E+03_JPRB/)
+KBO( :,29,15) = (/&
+&1.4288E+03_JPRB,1.4164E+03_JPRB,1.4235E+03_JPRB,1.4518E+03_JPRB,1.5063E+03_JPRB/)
+KBO( :,30,15) = (/&
+&1.4796E+03_JPRB,1.4775E+03_JPRB,1.4997E+03_JPRB,1.5506E+03_JPRB,1.6294E+03_JPRB/)
+KBO( :,31,15) = (/&
+&1.5388E+03_JPRB,1.5544E+03_JPRB,1.6015E+03_JPRB,1.6845E+03_JPRB,1.7959E+03_JPRB/)
+KBO( :,32,15) = (/&
+&1.6108E+03_JPRB,1.6524E+03_JPRB,1.7357E+03_JPRB,1.8549E+03_JPRB,2.0073E+03_JPRB/)
+KBO( :,33,15) = (/&
+&1.7049E+03_JPRB,1.7848E+03_JPRB,1.9109E+03_JPRB,2.0795E+03_JPRB,2.2809E+03_JPRB/)
+KBO( :,34,15) = (/&
+&1.8222E+03_JPRB,1.9474E+03_JPRB,2.1232E+03_JPRB,2.3448E+03_JPRB,2.6010E+03_JPRB/)
+KBO( :,35,15) = (/&
+&1.9666E+03_JPRB,2.1410E+03_JPRB,2.3742E+03_JPRB,2.6548E+03_JPRB,2.9712E+03_JPRB/)
+KBO( :,36,15) = (/&
+&2.1340E+03_JPRB,2.3637E+03_JPRB,2.6606E+03_JPRB,3.0085E+03_JPRB,3.3914E+03_JPRB/)
+KBO( :,37,15) = (/&
+&2.1914E+03_JPRB,2.4375E+03_JPRB,2.7564E+03_JPRB,3.1300E+03_JPRB,3.5406E+03_JPRB/)
+KBO( :,38,15) = (/&
+&2.2462E+03_JPRB,2.5086E+03_JPRB,2.8496E+03_JPRB,3.2486E+03_JPRB,3.6885E+03_JPRB/)
+KBO( :,39,15) = (/&
+&2.3075E+03_JPRB,2.5896E+03_JPRB,2.9560E+03_JPRB,3.3853E+03_JPRB,3.8593E+03_JPRB/)
+KBO( :,40,15) = (/&
+&2.2597E+03_JPRB,2.5238E+03_JPRB,2.8725E+03_JPRB,3.2888E+03_JPRB,3.7565E+03_JPRB/)
+KBO( :,41,15) = (/&
+&2.2030E+03_JPRB,2.4431E+03_JPRB,2.7663E+03_JPRB,3.1637E+03_JPRB,3.6169E+03_JPRB/)
+KBO( :,42,15) = (/&
+&2.1527E+03_JPRB,2.3676E+03_JPRB,2.6649E+03_JPRB,3.0437E+03_JPRB,3.4807E+03_JPRB/)
+KBO( :,43,15) = (/&
+&2.0801E+03_JPRB,2.2578E+03_JPRB,2.5168E+03_JPRB,2.8580E+03_JPRB,3.2606E+03_JPRB/)
+KBO( :,44,15) = (/&
+&2.0120E+03_JPRB,2.1487E+03_JPRB,2.3643E+03_JPRB,2.6580E+03_JPRB,3.0218E+03_JPRB/)
+KBO( :,45,15) = (/&
+&1.9613E+03_JPRB,2.0594E+03_JPRB,2.2322E+03_JPRB,2.4807E+03_JPRB,2.8037E+03_JPRB/)
+KBO( :,46,15) = (/&
+&1.9248E+03_JPRB,1.9849E+03_JPRB,2.1161E+03_JPRB,2.3204E+03_JPRB,2.5965E+03_JPRB/)
+KBO( :,47,15) = (/&
+&1.9027E+03_JPRB,1.9263E+03_JPRB,2.0143E+03_JPRB,2.1716E+03_JPRB,2.3989E+03_JPRB/)
+KBO( :,48,15) = (/&
+&1.8901E+03_JPRB,1.8881E+03_JPRB,1.9372E+03_JPRB,2.0507E+03_JPRB,2.2312E+03_JPRB/)
+KBO( :,49,15) = (/&
+&1.8889E+03_JPRB,1.8669E+03_JPRB,1.8827E+03_JPRB,1.9550E+03_JPRB,2.0905E+03_JPRB/)
+KBO( :,50,15) = (/&
+&1.8989E+03_JPRB,1.8542E+03_JPRB,1.8471E+03_JPRB,1.8860E+03_JPRB,1.9820E+03_JPRB/)
+KBO( :,51,15) = (/&
+&1.9169E+03_JPRB,1.8516E+03_JPRB,1.8269E+03_JPRB,1.8368E+03_JPRB,1.8967E+03_JPRB/)
+KBO( :,52,15) = (/&
+&1.9362E+03_JPRB,1.8607E+03_JPRB,1.8138E+03_JPRB,1.8022E+03_JPRB,1.8318E+03_JPRB/)
+KBO( :,53,15) = (/&
+&1.9614E+03_JPRB,1.8769E+03_JPRB,1.8109E+03_JPRB,1.7819E+03_JPRB,1.7849E+03_JPRB/)
+KBO( :,54,15) = (/&
+&1.9844E+03_JPRB,1.8925E+03_JPRB,1.8175E+03_JPRB,1.7685E+03_JPRB,1.7516E+03_JPRB/)
+KBO( :,55,15) = (/&
+&2.0020E+03_JPRB,1.9117E+03_JPRB,1.8292E+03_JPRB,1.7630E+03_JPRB,1.7309E+03_JPRB/)
+KBO( :,56,15) = (/&
+&2.0278E+03_JPRB,1.9328E+03_JPRB,1.8420E+03_JPRB,1.7676E+03_JPRB,1.7165E+03_JPRB/)
+KBO( :,57,15) = (/&
+&2.0604E+03_JPRB,1.9486E+03_JPRB,1.8586E+03_JPRB,1.7772E+03_JPRB,1.7105E+03_JPRB/)
+KBO( :,58,15) = (/&
+&2.0975E+03_JPRB,1.9708E+03_JPRB,1.8754E+03_JPRB,1.7869E+03_JPRB,1.7130E+03_JPRB/)
+KBO( :,59,15) = (/&
+&2.1134E+03_JPRB,1.9790E+03_JPRB,1.8747E+03_JPRB,1.7853E+03_JPRB,1.7084E+03_JPRB/)
+KBO( :,13,16) = (/&
+&5.7032E+02_JPRB,5.5610E+02_JPRB,5.4108E+02_JPRB,5.2545E+02_JPRB,5.0988E+02_JPRB/)
+KBO( :,14,16) = (/&
+&6.6729E+02_JPRB,6.4906E+02_JPRB,6.2994E+02_JPRB,6.1106E+02_JPRB,5.9252E+02_JPRB/)
+KBO( :,15,16) = (/&
+&7.7710E+02_JPRB,7.5381E+02_JPRB,7.3065E+02_JPRB,7.0752E+02_JPRB,6.8404E+02_JPRB/)
+KBO( :,16,16) = (/&
+&8.9983E+02_JPRB,8.7150E+02_JPRB,8.4258E+02_JPRB,8.1329E+02_JPRB,7.9266E+02_JPRB/)
+KBO( :,17,16) = (/&
+&1.0356E+03_JPRB,9.9960E+02_JPRB,9.6297E+02_JPRB,9.3112E+02_JPRB,9.3376E+02_JPRB/)
+KBO( :,18,16) = (/&
+&1.1805E+03_JPRB,1.1349E+03_JPRB,1.0927E+03_JPRB,1.0913E+03_JPRB,1.1178E+03_JPRB/)
+KBO( :,19,16) = (/&
+&1.3301E+03_JPRB,1.2743E+03_JPRB,1.2636E+03_JPRB,1.2905E+03_JPRB,1.3412E+03_JPRB/)
+KBO( :,20,16) = (/&
+&1.4790E+03_JPRB,1.4325E+03_JPRB,1.4416E+03_JPRB,1.4834E+03_JPRB,1.5509E+03_JPRB/)
+KBO( :,21,16) = (/&
+&1.6248E+03_JPRB,1.6005E+03_JPRB,1.6227E+03_JPRB,1.6765E+03_JPRB,1.7801E+03_JPRB/)
+KBO( :,22,16) = (/&
+&1.7789E+03_JPRB,1.7751E+03_JPRB,1.8121E+03_JPRB,1.8963E+03_JPRB,2.0533E+03_JPRB/)
+KBO( :,23,16) = (/&
+&1.9420E+03_JPRB,1.9550E+03_JPRB,2.0171E+03_JPRB,2.1515E+03_JPRB,2.3736E+03_JPRB/)
+KBO( :,24,16) = (/&
+&2.1057E+03_JPRB,2.1395E+03_JPRB,2.2516E+03_JPRB,2.4478E+03_JPRB,2.7312E+03_JPRB/)
+KBO( :,25,16) = (/&
+&2.2727E+03_JPRB,2.3487E+03_JPRB,2.5135E+03_JPRB,2.7876E+03_JPRB,3.1353E+03_JPRB/)
+KBO( :,26,16) = (/&
+&2.4430E+03_JPRB,2.5769E+03_JPRB,2.8118E+03_JPRB,3.1571E+03_JPRB,3.5871E+03_JPRB/)
+KBO( :,27,16) = (/&
+&2.6427E+03_JPRB,2.8396E+03_JPRB,3.1669E+03_JPRB,3.5883E+03_JPRB,4.0930E+03_JPRB/)
+KBO( :,28,16) = (/&
+&2.8823E+03_JPRB,3.1635E+03_JPRB,3.5805E+03_JPRB,4.0928E+03_JPRB,4.6511E+03_JPRB/)
+KBO( :,29,16) = (/&
+&3.1912E+03_JPRB,3.5861E+03_JPRB,4.1049E+03_JPRB,4.7016E+03_JPRB,5.3176E+03_JPRB/)
+KBO( :,30,16) = (/&
+&3.5968E+03_JPRB,4.1208E+03_JPRB,4.7628E+03_JPRB,5.4277E+03_JPRB,6.1129E+03_JPRB/)
+KBO( :,31,16) = (/&
+&4.1669E+03_JPRB,4.8568E+03_JPRB,5.5986E+03_JPRB,6.3508E+03_JPRB,7.1245E+03_JPRB/)
+KBO( :,32,16) = (/&
+&4.9181E+03_JPRB,5.7548E+03_JPRB,6.5943E+03_JPRB,7.4480E+03_JPRB,8.3250E+03_JPRB/)
+KBO( :,33,16) = (/&
+&5.8885E+03_JPRB,6.8470E+03_JPRB,7.8053E+03_JPRB,8.7780E+03_JPRB,9.7768E+03_JPRB/)
+KBO( :,34,16) = (/&
+&6.9635E+03_JPRB,8.0514E+03_JPRB,9.1398E+03_JPRB,1.0245E+04_JPRB,1.1380E+04_JPRB/)
+KBO( :,35,16) = (/&
+&8.1473E+03_JPRB,9.3881E+03_JPRB,1.0630E+04_JPRB,1.1894E+04_JPRB,1.3185E+04_JPRB/)
+KBO( :,36,16) = (/&
+&9.4364E+03_JPRB,1.0865E+04_JPRB,1.2293E+04_JPRB,1.3743E+04_JPRB,1.5227E+04_JPRB/)
+KBO( :,37,16) = (/&
+&9.8676E+03_JPRB,1.1389E+04_JPRB,1.2910E+04_JPRB,1.4442E+04_JPRB,1.6011E+04_JPRB/)
+KBO( :,38,16) = (/&
+&1.0288E+04_JPRB,1.1907E+04_JPRB,1.3518E+04_JPRB,1.5146E+04_JPRB,1.6802E+04_JPRB/)
+KBO( :,39,16) = (/&
+&1.0771E+04_JPRB,1.2499E+04_JPRB,1.4216E+04_JPRB,1.5954E+04_JPRB,1.7707E+04_JPRB/)
+KBO( :,40,16) = (/&
+&1.0414E+04_JPRB,1.2148E+04_JPRB,1.3875E+04_JPRB,1.5613E+04_JPRB,1.7368E+04_JPRB/)
+KBO( :,41,16) = (/&
+&9.9384E+03_JPRB,1.1661E+04_JPRB,1.3383E+04_JPRB,1.5104E+04_JPRB,1.6844E+04_JPRB/)
+KBO( :,42,16) = (/&
+&9.4612E+03_JPRB,1.1170E+04_JPRB,1.2888E+04_JPRB,1.4596E+04_JPRB,1.6317E+04_JPRB/)
+KBO( :,43,16) = (/&
+&8.7147E+03_JPRB,1.0370E+04_JPRB,1.2042E+04_JPRB,1.3705E+04_JPRB,1.5380E+04_JPRB/)
+KBO( :,44,16) = (/&
+&7.8820E+03_JPRB,9.4600E+03_JPRB,1.1070E+04_JPRB,1.2678E+04_JPRB,1.4284E+04_JPRB/)
+KBO( :,45,16) = (/&
+&7.0926E+03_JPRB,8.5904E+03_JPRB,1.0135E+04_JPRB,1.1689E+04_JPRB,1.3230E+04_JPRB/)
+KBO( :,46,16) = (/&
+&6.3333E+03_JPRB,7.7267E+03_JPRB,9.1993E+03_JPRB,1.0689E+04_JPRB,1.2169E+04_JPRB/)
+KBO( :,47,16) = (/&
+&5.6159E+03_JPRB,6.8398E+03_JPRB,8.2286E+03_JPRB,9.6499E+03_JPRB,1.1071E+04_JPRB/)
+KBO( :,48,16) = (/&
+&5.0469E+03_JPRB,6.0380E+03_JPRB,7.3127E+03_JPRB,8.6620E+03_JPRB,1.0021E+04_JPRB/)
+KBO( :,49,16) = (/&
+&4.6114E+03_JPRB,5.3556E+03_JPRB,6.4573E+03_JPRB,7.7273E+03_JPRB,9.0204E+03_JPRB/)
+KBO( :,50,16) = (/&
+&4.2827E+03_JPRB,4.8418E+03_JPRB,5.7290E+03_JPRB,6.8837E+03_JPRB,8.1065E+03_JPRB/)
+KBO( :,51,16) = (/&
+&4.0377E+03_JPRB,4.4505E+03_JPRB,5.1216E+03_JPRB,6.1118E+03_JPRB,7.2612E+03_JPRB/)
+KBO( :,52,16) = (/&
+&3.9027E+03_JPRB,4.1388E+03_JPRB,4.6373E+03_JPRB,5.4292E+03_JPRB,6.4624E+03_JPRB/)
+KBO( :,53,16) = (/&
+&3.8594E+03_JPRB,3.9014E+03_JPRB,4.2603E+03_JPRB,4.8496E+03_JPRB,5.7176E+03_JPRB/)
+KBO( :,54,16) = (/&
+&3.9053E+03_JPRB,3.7705E+03_JPRB,3.9739E+03_JPRB,4.4065E+03_JPRB,5.0959E+03_JPRB/)
+KBO( :,55,16) = (/&
+&4.0460E+03_JPRB,3.7217E+03_JPRB,3.7544E+03_JPRB,4.0660E+03_JPRB,4.5765E+03_JPRB/)
+KBO( :,56,16) = (/&
+&4.2054E+03_JPRB,3.7493E+03_JPRB,3.6207E+03_JPRB,3.7906E+03_JPRB,4.1568E+03_JPRB/)
+KBO( :,57,16) = (/&
+&4.3770E+03_JPRB,3.8799E+03_JPRB,3.5717E+03_JPRB,3.5790E+03_JPRB,3.8293E+03_JPRB/)
+KBO( :,58,16) = (/&
+&4.5510E+03_JPRB,4.0210E+03_JPRB,3.5972E+03_JPRB,3.4529E+03_JPRB,3.5736E+03_JPRB/)
+KBO( :,59,16) = (/&
+&4.6237E+03_JPRB,4.0799E+03_JPRB,3.6344E+03_JPRB,3.3958E+03_JPRB,3.4194E+03_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE RRTM_KGB9_BB
Index: LMDZ5/branches/testing/libf/phymar/rrtm_rrtm_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_rrtm_140gp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_rrtm_140gp.F90	(revision 2160)
@@ -0,0 +1,281 @@
+!***************************************************************************
+!                                                                          *
+!                RRTM :  RAPID RADIATIVE TRANSFER MODEL                    *
+!                                                                          *
+!             ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                 *
+!                        840 MEMORIAL DRIVE                                *
+!                        CAMBRIDGE, MA 02139                               *
+!                                                                          *
+!                           ELI J. MLAWER                                  *
+!                         STEVEN J. TAUBMAN~                               *
+!                         SHEPARD A. CLOUGH                                *
+!                                                                          *
+!                        ~currently at GFDL                                *
+!                                                                          *
+!                       email:  mlawer@aer.com                             *
+!                                                                          *
+!        The authors wish to acknowledge the contributions of the          *
+!        following people:  Patrick D. Brown, Michael J. Iacono,           *
+!        Ronald E. Farren, Luke Chen, Robert Bergstrom.                    *
+!                                                                          *
+!***************************************************************************
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714                    * 
+!                                                                          *
+!***************************************************************************
+! *** mji ***
+! *** This version of RRTM has been altered to interface with either
+!     the ECMWF numerical weather prediction model or the ECMWF column 
+!     radiation model (ECRT) package. 
+
+!     Revised, April, 1997;  Michael J. Iacono, AER, Inc.
+!          - initial implementation of RRTM in ECRT code
+!     Revised, June, 1999;  Michael J. Iacono and Eli J. Mlawer, AER, Inc.
+!          - to implement generalized maximum/random cloud overlap
+
+SUBROUTINE RRTM_RRTM_140GP &
+ &( KIDIA , KFDIA , KLON , KLEV &
+ &, PAER  , PAPH  , PAP &
+ &, PTS   , PTH   , PT &
+ &, ZEMIS , ZEMIW &
+ &, PQ    , PCCO2 , POZN &
+ &, PCLDF , PTAUCLD &
+ &, PEMIT , PFLUX , PFLUC, PTCLEAR &
+ &)
+
+! *** This program is the driver for RRTM, the AER rapid model.  
+!     For each atmosphere the user wishes to analyze, this routine
+!     a) calls ECRTATM to read in the atmospheric profile 
+!     b) calls SETCOEF to calculate various quantities needed for 
+!        the radiative transfer algorithm
+!     c) calls RTRN to do the radiative transfer calculation for
+!        clear or cloudy sky
+!     d) writes out the upward, downward, and net flux for each
+!        level and the heating rate for each layer
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPXSEC   ,JPGPT    ,JPLAY    ,&
+            &JPINPX
+USE YOERRTWN , ONLY : WAVENUM1 ,WAVENUM2 ,DELWAVE  ,NG       ,NSPA     ,NSPB
+
+!------------------------------Arguments--------------------------------
+
+! Input arguments
+
+
+IMPLICIT NONE
+INTEGER_M :: kidia                 ! First atmosphere index
+INTEGER_M :: kfdia                 ! Last atmosphere index
+INTEGER_M :: klon                  ! Number of atmospheres (longitudes)
+INTEGER_M :: klev                  ! Number of atmospheric layers
+REAL_B :: paer(klon,6,klev)        ! Aerosol optical thickness
+REAL_B :: pap(klon,klev)           ! Layer pressures (Pa)
+REAL_B :: paph(klon,klev+1)        ! Interface pressures (Pa)
+REAL_B :: pts(klon)                ! Surface temperature (K)
+REAL_B :: pt(klon,klev)            ! Layer temperature (K)
+REAL_B :: zemis(klon)              ! Non-window surface emissivity
+REAL_B :: zemiw(klon)              ! Window surface emissivity
+REAL_B :: pth(klon,klev+1)         ! Interface temperatures (K)
+REAL_B :: pq(klon,klev)            ! H2O specific humidity (mmr)
+REAL_B :: pozn(klon,klev)          ! O3 mass mixing ratio
+REAL_B :: pcco2                    ! CO2 mass mixing ratio
+REAL_B :: rch4                     ! CH4 mass mixing ratio
+REAL_B :: rn2o                     ! N2O mass mixing ratio
+REAL_B :: rcfc11                   ! CFC11 mass mixing ratio
+REAL_B :: rcfc12                   ! CFC12 mass mixing ratio
+REAL_B :: pcldf(klon,klev)         ! Cloud fraction
+REAL_B :: ptaucld(klon,klev,JPBAND)! Cloud optical depth
+REAL_B :: PFLUX(klon,2,klev+1)     ! LW total sky flux (1=up, 2=down)
+REAL_B :: PFLUC(klon,2,klev+1)     ! LW clear sky flux (1=up, 2=down)
+REAL_B :: PEMIT(klon)              ! Surface LW emissivity
+REAL_B :: PTCLEAR(klon)            ! clear-sky fraction of column
+
+INTEGER_M :: ICLDLYR(JPLAY)        ! Cloud indicator
+REAL_B :: CLDFRAC(JPLAY)           ! Cloud fraction
+REAL_B :: TAUCLD(JPLAY,JPBAND)     ! Spectral optical thickness
+
+REAL_B :: ABSS1 (JPGPT*JPLAY)
+REAL_B :: ATR1  (JPGPT,JPLAY)
+EQUIVALENCE (ABSS1(1),ATR1(1,1))
+
+REAL_B :: OD    (JPGPT,JPLAY)
+
+REAL_B :: TAUSF1(JPGPT*JPLAY)
+REAL_B :: TF1   (JPGPT,JPLAY)
+EQUIVALENCE (TAUSF1(1),TF1(1,1))
+
+REAL_B :: COLDRY(JPLAY)
+REAL_B :: WKL(JPINPX,JPLAY)
+
+REAL_B :: WX(JPXSEC,JPLAY)         ! Amount of trace gases
+
+REAL_B :: CLFNET  (0:JPLAY)
+REAL_B :: CLHTR   (0:JPLAY)
+REAL_B :: FNET    (0:JPLAY)
+REAL_B :: HTR     (0:JPLAY)
+REAL_B :: TOTDFLUC(0:JPLAY)
+REAL_B :: TOTDFLUX(0:JPLAY)
+REAL_B :: TOTUFLUC(0:JPLAY)
+REAL_B :: TOTUFLUX(0:JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: i, icld, iplon, K
+INTEGER_M :: ISTART
+INTEGER_M :: IEND
+
+!     LOCAL REAL SCALARS
+REAL_B :: FLUXFAC, HEATFAC, PI, ZEPSEC, ZTCLEAR
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+REAL_B :: COLN2O(JPLAY)
+REAL_B :: COLCH4(JPLAY)
+REAL_B :: COLO2 (JPLAY)
+REAL_B :: CO2MULT(JPLAY)
+INTEGER_M :: LAYTROP
+INTEGER_M :: LAYSWTCH
+INTEGER_M :: LAYLOW
+
+!- from PROFILE             
+REAL_B :: PAVEL(JPLAY)
+REAL_B :: TAVEL(JPLAY)
+REAL_B :: PZ(0:JPLAY)
+REAL_B :: TZ(0:JPLAY)
+REAL_B :: TBOUND
+INTEGER_M :: NLAYERS
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+!- from SURFACE             
+REAL_B :: SEMISS(JPBAND)
+REAL_B :: SEMISLW
+INTEGER_M :: IREFLECT
+
+
+!     HEATFAC is the factor by which one must multiply delta-flux/ 
+!     delta-pressure, with flux in w/m-2 and pressure in mbar, to get 
+!     the heating rate in units of degrees/day.  It is equal to 
+!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
+!        =  (9.8066)(86400)(1e-5)/(1.004)
+
+ZEPSEC = 1.E-06_JPRB
+ONEMINUS = _ONE_ - ZEPSEC
+PI = _TWO_*ASIN(_ONE_)
+FLUXFAC = PI * 2.D4
+HEATFAC = 8.4391_JPRB
+
+! *** mji ***
+! For use with ECRT, this loop is over atmospheres (or longitudes)
+DO iplon = kidia,kfdia
+
+! *** mji ***
+!- Prepare atmospheric profile from ECRT for use in RRTM, and define
+!  other RRTM input parameters.  Arrays are passed back through the
+!  existing RRTM commons and arrays.
+  ZTCLEAR=_ONE_
+
+!  print *,'before RRTM_ECRT_140GP'
+
+  CALL RRTM_ECRT_140GP &
+   &( iplon, klon , klev, icld &
+   &, paer , paph , pap &
+   &, pts  , pth  , pt &
+   &, zemis, zemiw &
+   &, pq   , pcco2, pozn, pcldf, ptaucld, ztclear &
+   &, CLDFRAC,TAUCLD,COLDRY,WKL,WX &
+   &, TAUAERL,PAVEL,TAVEL,PZ,TZ,TBOUND,NLAYERS,SEMISS,IREFLECT)
+
+  PTCLEAR(iplon)=ztclear
+
+  ISTART = 1
+  IEND   = 16
+
+!  Calculate information needed by the radiative transfer routine
+!  that is specific to this atmosphere, especially some of the 
+!  coefficients and indices needed to compute the optical depths
+!  by interpolating data from stored reference atmospheres. 
+
+!  print *,'before RRTM_SETCOEF_140GP'
+  
+    CALL RRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
+   &, FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1 &
+   &, COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT &
+   &, LAYTROP,LAYSWTCH,LAYLOW,PAVEL,TAVEL,SELFFAC,SELFFRAC,INDSELF)
+
+! print *,'before RRTM_GASABS1A_140GP'
+
+  CALL RRTM_GASABS1A_140GP (KLEV,ATR1,OD,TF1,COLDRY,WX &
+   &, TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS &
+   &, COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT &
+   &, LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!- Call the radiative transfer routine.
+
+! *** mji ***
+!  Check for cloud in column.  Use ECRT threshold set as flag icld in
+!  routine ECRTATM.  If icld=1 then column is cloudy, otherwise it is
+!  clear.  Also, set up flag array, icldlyr, for use in radiative
+!  transfer.  Set icldlyr to one for each layer with non-zero cloud
+!  fraction.
+
+  DO K = 1, KLEV
+    IF (ICLD == 1.AND.CLDFRAC(K) > ZEPSEC) THEN
+      ICLDLYR(K) = 1
+    ELSE
+      ICLDLYR(K) = 0
+    ENDIF
+  ENDDO
+
+!  Clear and cloudy parts of column are treated together in RTRN.
+!  Clear radiative transfer is done for clear layers and cloudy radiative
+!  transfer is done for cloudy layers as identified by icldlyr.
+  
+! print *,'before RRTM_RTRN1A_140GP'
+ 
+  CALL RRTM_RTRN1A_140GP (KLEV,ISTART,IEND,ICLDLYR,CLDFRAC,TAUCLD,ABSS1 &
+   &, OD,TAUSF1,CLFNET,CLHTR,FNET,HTR,TOTDFLUC,TOTDFLUX,TOTUFLUC,TOTUFLUX &
+   &, TAVEL,PZ,TZ,TBOUND,PFRAC,SEMISS,SEMISLW,IREFLECT)
+
+! ***   Pass clear sky and total sky up and down flux profiles to ECRT
+!       output arrays (zflux, zfluc). Array indexing from bottom to top 
+!       is preserved for ECRT.
+!       Invert down flux arrays for consistency with ECRT sign conventions.
+
+  pemit(iplon) = SEMISLW
+  DO i = 0, KLEV
+    pfluc(iplon,1,i+1) =  TOTUFLUC(i)*FLUXFAC
+    pfluc(iplon,2,i+1) = -TOTDFLUC(i)*FLUXFAC
+    pflux(iplon,1,i+1) =  TOTUFLUX(i)*FLUXFAC
+    pflux(iplon,2,i+1) = -TOTDFLUX(i)*FLUXFAC
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_RRTM_140GP
Index: LMDZ5/branches/testing/libf/phymar/rrtm_rtrn1a_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_rtrn1a_140gp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_rtrn1a_140gp.F90	(revision 2160)
@@ -0,0 +1,835 @@
+SUBROUTINE RRTM_RTRN1A_140GP (KLEV,ISTART,IEND,ICLDLYR,CLDFRAC,TAUCLD,ABSS1 &
+  &, OD,TAUSF1,CLFNET,CLHTR,FNET,HTR,TOTDFLUC,TOTDFLUX,TOTUFLUC,TOTUFLUX &
+  &, TAVEL,PZ,TZ,TBOUND,PFRAC,SEMISS,SEMISLW,IREFLECT)
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+!     Speed-up by D.Salmond, ECMWF, 9907
+!     Bug-fix by M.J. Iacono, AER, Inc., 9911
+!     Bug-fix by JJMorcrette, ECMWF, 991209 (RAT1, RAT2 initialization)
+!     Speed-up by D. Salmond, ECMWF, 9912
+!     Bug-fix by JJMorcrette, ECMWF, 0005 (extrapolation T<160K)
+!     Speed-up by D. Salmond, ECMWF, 000515
+
+!-* This program calculates the upward fluxes, downward fluxes,
+!   and heating rates for an arbitrary atmosphere.  The input to
+!   this program is the atmospheric profile and all Planck function
+!   information.  First-order "numerical" quadrature is used for the 
+!   angle integration, i.e. only one exponential is computed per layer
+!   per g-value per band.  Cloud overlap is treated with a generalized
+!   maximum/random method in which adjacent cloud layers are treated
+!   with maximum overlap, and non-adjacent cloud groups are treated
+!   with random overlap.  For adjacent cloud layers, cloud information
+!   is carried from the previous two layers.
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPBAND   ,JPGPT   ,JPLAY
+USE YOERRTAB , ONLY : BPADE
+USE YOERRTWN , ONLY : TOTPLNK  ,DELWAVE
+USE YOERRTFTR, ONLY : NGB
+
+IMPLICIT NONE
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+INTEGER_M :: ISTART
+INTEGER_M :: IEND
+
+INTEGER_M :: ICLDLYR(JPLAY)      ! Cloud indicator
+REAL_B :: CLDFRAC(JPLAY)         ! Cloud fraction
+REAL_B :: TAUCLD(JPLAY,JPBAND)   ! Spectral optical thickness
+REAL_B :: ABSS1 (JPGPT*JPLAY)
+REAL_B :: OD    (JPGPT,JPLAY)
+REAL_B :: TAUSF1(JPGPT*JPLAY)
+REAL_B :: CLFNET  (0:JPLAY)
+REAL_B :: CLHTR   (0:JPLAY)
+REAL_B :: FNET    (0:JPLAY)
+REAL_B :: HTR     (0:JPLAY)
+REAL_B :: TOTDFLUC(0:JPLAY)
+REAL_B :: TOTDFLUX(0:JPLAY)
+REAL_B :: TOTUFLUC(0:JPLAY)
+REAL_B :: TOTUFLUX(0:JPLAY)
+
+!- from PROFILE             
+REAL_B :: TAVEL(JPLAY)
+REAL_B :: PZ(0:JPLAY)
+REAL_B :: TZ(0:JPLAY)
+REAL_B :: TBOUND
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+!- from SURFACE             
+REAL_B :: SEMISS(JPBAND)
+REAL_B :: SEMISLW
+INTEGER_M :: IREFLECT
+
+INTEGER_M :: INDLAY(JPLAY),INDLEV(0:JPLAY)
+
+REAL_B :: BBU1(JPGPT*JPLAY),BBUTOT1(JPGPT*JPLAY)
+REAL_B :: TLAYFRAC(JPLAY),TLEVFRAC(0:JPLAY)
+REAL_B :: BGLEV(JPGPT)
+!-- DS_000515
+REAL_B :: PLVL(0:JPLAY,JPBAND+1),PLAY(0:JPLAY,JPBAND+1),WTNUM(3)
+!-- DS_000515
+REAL_B :: ODCLD(JPBAND,JPLAY),EFCLFR1(JPBAND,JPLAY)
+REAL_B :: ODCLDNW(JPGPT,JPLAY)
+REAL_B :: SEMIS(JPGPT),RADUEMIT(JPGPT)
+
+REAL_B :: RADCLRU1(JPGPT) ,RADCLRD1(JPGPT)
+REAL_B :: RADLU1(JPGPT)   ,RADLD1(JPGPT)
+REAL_B :: ABSCLD1(JPBAND,JPLAY)
+!-- DS_000515
+REAL_B :: TRNCLD(JPLAY,JPBAND+1)
+!-- DS_000515
+REAL_B :: ABSCLDNW(JPGPT,JPLAY)
+REAL_B :: ATOT1(JPGPT*JPLAY)
+
+REAL_B :: SURFEMIS(JPBAND),PLNKEMIT(JPBAND)
+
+! dimension of arrays required for cloud overlap calculations
+
+REAL_B :: clrradu(jpgpt),cldradu(jpgpt),oldcld(jpgpt)
+REAL_B :: oldclr(jpgpt),rad(jpgpt),faccld1(jplay+1),faccld2(jplay+1)
+REAL_B :: facclr1(jplay+1),facclr2(jplay+1)
+REAL_B :: faccmb1(jplay+1),faccmb2(jplay+1)
+REAL_B :: faccld1d(0:jplay),faccld2d(0:jplay),facclr1d(0:jplay)
+REAL_B :: facclr2d(0:jplay),faccmb1d(0:jplay),faccmb2d(0:jplay)
+REAL_B :: clrradd(jpgpt),cldradd(jpgpt)
+INTEGER_M :: istcld(jplay+1),istcldd(0:jplay)
+!******
+
+REAL_B :: ZPLVL(JPGPT+1,JPLAY)  ,ZPLAY(JPGPT+1,JPLAY)
+REAL_B :: ZTRNCLD(JPGPT+1,JPLAY),ZTAUCLD(JPGPT+1,JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IBAND, ICLDDN, IENT, INDBOUND, INDEX, IPR, LAY, LEV, NBI
+
+!     LOCAL REAL SCALARS
+REAL_B :: BBD, BBDTOT, BGLAY, CLDSRC, DBDTLAY, DBDTLEV,&
+          &DELBGDN, DELBGUP, DRAD1, DRADCL1, FACTOT1, &
+          &FMAX, FMIN, GASSRC, ODSM, PLANKBND, RADCLD, &
+          &RADCLU, RADD, RADMOD, RADU, RAT1, RAT2, SUMPL, &
+          &SUMPLEM, TBNDFRAC, TRNS, TTOT, URAD1, URADCL1
+
+!--------------------------------------------------------------------------
+! Input
+!  JPLAY                 ! Maximum number of model layers
+!  JPGPT                 ! Total number of g-point subintervals
+!  JPBAND                ! Number of longwave spectral bands
+!  SECANG                ! Diffusivity angle
+!  WTNUM                 ! Weight for radiance to flux conversion
+!  KLEV                  ! Number of model layers
+!  PAVEL(JPLAY)          ! Mid-layer pressures (hPa)
+!  PZ(0:JPLAY)           ! Interface pressures (hPa)
+!  TAVEL(JPLAY)          ! Mid-layer temperatures (K)
+!  TZ(0:JPLAY)           ! Interface temperatures (K)
+!  TBOUND                ! Surface temperature
+!  CLDFRAC(JPLAY)        ! Layer cloud fraction
+!  TAUCLD(JPLAY,JPBAND)  ! Layer cloud optical thickness
+!  ITR
+!  PFRAC(JPGPT,JPLAY)    ! Planck function fractions
+!  ICLDLYR(JPLAY)        ! Flag for cloudy layers
+!  ICLD                  ! Flag for cloudy column
+!  IREFLECT              ! Flag for specular reflection
+!  SEMISS(JPBAND)        ! Surface spectral emissivity
+!  BPADE                 ! Pade constant
+!  OD                    ! Clear-sky optical thickness
+!  TAUSF1                ! 
+!  ABSS1                 !  
+!
+! Local
+!  ABSS(JPGPT*JPLAY)     !
+!  ABSCLD(JPLAY)         !
+!  ATOT(JPGPT*JPLAY)     !
+!  ODCLR(JPGPT,JPLAY)    ! 
+!  ODCLD(JPBAND,JPLAY)   !
+!  EFCLFR1(JPBAND,JPLAY) ! Effective cloud fraction
+!  RADLU(JPGPT)          ! Upward radiance
+!  URAD                  ! Spectrally summed upward radiance
+!  RADCLRU(JPGPT)        ! Clear-sky upward radiance
+!  CLRURAD               ! Spectrally summed clear-sky upward radiance
+!  RADLD(JPGPT)          ! Downward radiance
+!  DRAD                  ! Spectrally summed downward radiance
+!  RADCLRD(JPGPT)        ! Clear-sky downward radiance
+!  CLRDRAD               ! Spectrally summed clear-sky downward radiance
+!
+! Output
+!  TOTUFLUX(0:JPLAY)     ! Upward longwave flux
+!  TOTDFLUX(0:JPLAY)     ! Downward longwave flux
+!  TOTUFLUC(0:JPLAY)     ! Clear-sky upward longwave flux
+!  TOTDFLUC(0:JPLAY)     ! Clear-sky downward longwave flux
+!
+! Maximum/Random cloud overlap variables
+! for upward radiaitve transfer
+!  FACCLR2  fraction of clear radiance from previous layer that needs to 
+!           be switched to cloudy stream
+!  FACCLR1  fraction of the radiance that had been switched in the previous
+!           layer from cloudy to clear that needs to be switched back to
+!           cloudy in the current layer
+!  FACCLD2  fraction of cloudy radiance from previous layer that needs to 
+!           be switched to clear stream
+!           be switched to cloudy stream
+!  FACCLD1  fraction of the radiance that had been switched in the previous
+!           layer from clear to cloudy that needs to be switched back to
+!           clear in the current layer
+! for downward radiaitve transfer
+!  FACCLR2D fraction of clear radiance from previous layer that needs to 
+!           be switched to cloudy stream
+!  FACCLR1D fraction of the radiance that had been switched in the previous
+!           layer from cloudy to clear that needs to be switched back to
+!           cloudy in the current layer
+!  FACCLD2D fraction of cloudy radiance from previous layer that needs to 
+!           be switched to clear stream
+!           be switched to cloudy stream
+!  FACCLD1D fraction of the radiance that had been switched in the previous
+!           layer from clear to cloudy that needs to be switched back to
+!           clear in the current layer
+!
+!--------------------------------------------------------------------------
+
+WTNUM(1)=_HALF_
+WTNUM(2)=_ZERO_
+WTNUM(3)=_ZERO_
+
+!-start JJM_000511
+IF (TBOUND < 339._JPRB .AND. TBOUND >= 160._JPRB ) THEN
+  INDBOUND = TBOUND - 159._JPRB
+  TBNDFRAC = TBOUND - INT(TBOUND)
+ELSE IF (TBOUND >= 339._JPRB ) THEN
+  INDBOUND = 180
+  TBNDFRAC = TBOUND - 339._JPRB
+ELSE IF (TBOUND < 160._JPRB ) THEN
+  INDBOUND = 1
+  TBNDFRAC = TBOUND - 160._JPRB
+ENDIF  
+!-end JJM_000511
+  
+DO LAY = 0, KLEV
+  TOTUFLUC(LAY) = _ZERO_
+  TOTDFLUC(LAY) = _ZERO_
+  TOTUFLUX(LAY) = _ZERO_
+  TOTDFLUX(LAY) = _ZERO_
+!-start JJM_000511
+  IF (TZ(LAY) < 339._JPRB .AND. TZ(LAY) >= 160._JPRB ) THEN
+    INDLEV(LAY) = TZ(LAY) - 159._JPRB
+    TLEVFRAC(LAY) = TZ(LAY) - INT(TZ(LAY))
+  ELSE IF (TZ(LAY) >= 339._JPRB ) THEN
+    INDLEV(LAY) = 180
+    TLEVFRAC(LAY) = TZ(LAY) - 339._JPRB
+  ELSE IF (TZ(LAY) < 160._JPRB ) THEN
+    INDLEV(LAY) = 1
+    TLEVFRAC(LAY) = TZ(LAY) - 160._JPRB
+  ENDIF    
+!-end JJM_000511
+ENDDO
+
+!_start_jjm 991209
+DO LEV=0,KLEV
+  FACCLD1(LEV+1) = _ZERO_
+  FACCLD2(LEV+1) = _ZERO_
+  FACCLR1(LEV+1) = _ZERO_
+  FACCLR2(LEV+1) = _ZERO_
+  FACCMB1(LEV+1) = _ZERO_
+  FACCMB2(LEV+1) = _ZERO_
+  FACCLD1D(LEV) = _ZERO_
+  FACCLD2D(LEV) = _ZERO_
+  FACCLR1D(LEV) = _ZERO_
+  FACCLR2D(LEV) = _ZERO_
+  FACCMB1D(LEV) = _ZERO_
+  FACCMB2D(LEV) = _ZERO_
+END DO  
+RAT1 = _ZERO_
+RAT2 = _ZERO_
+!_end_jjm 991209
+
+
+
+SUMPL   = _ZERO_
+SUMPLEM = _ZERO_
+
+ISTCLD(1) = 1
+ISTCLDD(KLEV) = 1
+
+DO LEV = 1, KLEV
+!-- DS_000515
+!-start JJM_000511
+  IF (TAVEL(LEV) < 339._JPRB .AND. TAVEL(LEV) >= 160._JPRB ) THEN
+    INDLAY(LEV) = TAVEL(LEV) - 159._JPRB
+    TLAYFRAC(LEV) = TAVEL(LEV) - INT(TAVEL(LEV))
+  ELSE IF (TAVEL(LEV) >= 339._JPRB ) THEN
+    INDLAY(LEV) = 180
+    TLAYFRAC(LEV) = TAVEL(LEV) - 339._JPRB
+  ELSE IF (TAVEL(LEV) < 160._JPRB ) THEN
+    INDLAY(LEV) = 1
+    TLAYFRAC(LEV) = TAVEL(LEV) - 160._JPRB
+  ENDIF  
+!-end JJM_000511
+END DO
+!-- DS_000515
+
+!-- DS_000515
+!OCL SCALAR
+
+DO LEV = 1, KLEV
+  IF (ICLDLYR(LEV) == 1) THEN
+
+!mji    
+    ISTCLD(LEV+1) = 0
+    IF (LEV  ==  KLEV) THEN
+      FACCLD1(LEV+1) = _ZERO_
+      FACCLD2(LEV+1) = _ZERO_
+      FACCLR1(LEV+1) = _ZERO_
+      FACCLR2(LEV+1) = _ZERO_
+!-- DS_000515      
+!      FACCMB1(LEV+1) = _ZERO_
+!      FACCMB2(LEV+1) = _ZERO_
+!mji      ISTCLD(LEV+1) = _ZERO_
+    ELSEIF (CLDFRAC(LEV+1)  >=  CLDFRAC(LEV)) THEN
+      FACCLD1(LEV+1) = _ZERO_
+      FACCLD2(LEV+1) = _ZERO_
+      IF (ISTCLD(LEV)  ==  1) THEN
+!mji        ISTCLD(LEV+1) = 0
+        FACCLR1(LEV+1) = _ZERO_
+!mji        
+        FACCLR2(LEV+1) = _ZERO_
+        IF (CLDFRAC(LEV) < _ONE_) THEN
+        FACCLR2(LEV+1) = (CLDFRAC(LEV+1)-CLDFRAC(LEV))/&
+         &(_ONE_-CLDFRAC(LEV))
+        END IF   
+      ELSE
+        FMAX = MAX(CLDFRAC(LEV),CLDFRAC(LEV-1))
+!mji
+        IF (CLDFRAC(LEV+1)  >  FMAX) THEN
+          FACCLR1(LEV+1) = RAT2
+          FACCLR2(LEV+1) = (CLDFRAC(LEV+1)-FMAX)/(_ONE_-FMAX)
+!mji          
+        ELSE IF (CLDFRAC(LEV+1) < FMAX) THEN
+          FACCLR1(LEV+1) = (CLDFRAC(LEV+1)-CLDFRAC(LEV))/&
+           &(CLDFRAC(LEV-1)-CLDFRAC(LEV))
+          FACCLR2(LEV+1) = _ZERO_
+!mji
+        ELSE
+          FACCLR1(LEV+1) = RAT2  
+          FACCLR2(LEV+1) = _ZERO_
+        ENDIF
+      ENDIF
+      IF (FACCLR1(LEV+1) > _ZERO_ .OR. FACCLR2(LEV+1) > _ZERO_) THEN
+        RAT1 = _ONE_
+        RAT2 = _ZERO_
+      ENDIF
+    ELSE
+      FACCLR1(LEV+1) = _ZERO_
+      FACCLR2(LEV+1) = _ZERO_
+      IF (ISTCLD(LEV)  ==  1) THEN
+!mji        ISTCLD(LEV+1) = 0
+        FACCLD1(LEV+1) = _ZERO_
+        FACCLD2(LEV+1) = (CLDFRAC(LEV)-CLDFRAC(LEV+1))/CLDFRAC(LEV)
+      ELSE
+        FMIN = MIN(CLDFRAC(LEV),CLDFRAC(LEV-1))
+        IF (CLDFRAC(LEV+1)  <=  FMIN) THEN
+          FACCLD1(LEV+1) = RAT1
+          FACCLD2(LEV+1) = (FMIN-CLDFRAC(LEV+1))/FMIN
+        ELSE
+          FACCLD1(LEV+1) = (CLDFRAC(LEV)-CLDFRAC(LEV+1))/&
+           &(CLDFRAC(LEV)-FMIN)
+          FACCLD2(LEV+1) = _ZERO_
+        ENDIF
+      ENDIF
+      IF (FACCLD1(LEV+1) > _ZERO_ .OR. FACCLD2(LEV+1) > _ZERO_) THEN
+        RAT1 = _ZERO_
+        RAT2 = _ONE_
+      ENDIF
+    ENDIF
+!fcc
+    IF (LEV == 1) THEN
+      FACCMB1(LEV+1) = 0.
+      FACCMB2(LEV+1) = FACCLD1(LEV+1) * FACCLR2(LEV)
+    ELSE
+      FACCMB1(LEV+1) = FACCLR1(LEV+1) * FACCLD2(LEV) *CLDFRAC(LEV-1)
+      FACCMB2(LEV+1) = FACCLD1(LEV+1) * FACCLR2(LEV) *&
+       &(_ONE_ - CLDFRAC(LEV-1)) 
+    ENDIF
+!end fcc
+  ELSE
+!-- DS_000515
+    ISTCLD(LEV+1) = 1
+  ENDIF
+ENDDO
+
+!_start_jjm 991209
+RAT1 = _ZERO_
+RAT2 = _ZERO_
+!_end_jjm 991209
+
+!-- DS_000515
+!OCL SCALAR
+
+DO LEV = KLEV, 1, -1
+  IF (ICLDLYR(LEV) == 1) THEN
+!mji
+    ISTCLDD(LEV-1) = 0  
+    IF (LEV  ==  1) THEN
+      FACCLD1D(LEV-1) = _ZERO_
+      FACCLD2D(LEV-1) = _ZERO_
+      FACCLR1D(LEV-1) = _ZERO_
+      FACCLR2D(LEV-1) = _ZERO_
+      FACCMB1D(LEV-1) = _ZERO_
+      FACCMB2D(LEV-1) = _ZERO_
+!mji      ISTCLDD(LEV-1) = _ZERO_
+    ELSEIF (CLDFRAC(LEV-1)  >=  CLDFRAC(LEV)) THEN
+      FACCLD1D(LEV-1) = _ZERO_
+      FACCLD2D(LEV-1) = _ZERO_
+      IF (ISTCLDD(LEV)  ==  1) THEN
+!mji        ISTCLDD(LEV-1) = 0
+        FACCLR1D(LEV-1) = _ZERO_
+        FACCLR2D(LEV-1) = _ZERO_
+        IF (CLDFRAC(LEV) < _ONE_) THEN
+          FACCLR2D(LEV-1) = (CLDFRAC(LEV-1)-CLDFRAC(LEV))/&
+           &(_ONE_-CLDFRAC(LEV))
+        END IF
+      ELSE
+        FMAX = MAX(CLDFRAC(LEV),CLDFRAC(LEV+1))
+!mji
+        IF (CLDFRAC(LEV-1)  >  FMAX) THEN
+          FACCLR1D(LEV-1) = RAT2
+          FACCLR2D(LEV-1) = (CLDFRAC(LEV-1)-FMAX)/(_ONE_-FMAX)
+!mji
+        ELSE IF (CLDFRAC(LEV-1) < FMAX) THEN
+          FACCLR1D(LEV-1) = (CLDFRAC(LEV-1)-CLDFRAC(LEV))/&
+           &(CLDFRAC(LEV+1)-CLDFRAC(LEV))
+          FACCLR2D(LEV-1) = _ZERO_
+!mji
+        ELSE          
+          FACCLR1D(LEV-1) = RAT2
+          FACCLR2D(LEV-1) = _ZERO_
+        ENDIF
+      ENDIF
+      IF (FACCLR1D(LEV-1) > _ZERO_ .OR. FACCLR2D(LEV-1) > _ZERO_)THEN
+        RAT1 = _ONE_
+        RAT2 = _ZERO_
+      ENDIF
+    ELSE
+      FACCLR1D(LEV-1) = _ZERO_
+      FACCLR2D(LEV-1) = _ZERO_
+      IF (ISTCLDD(LEV)  ==  1) THEN
+!mji        ISTCLDD(LEV-1) = 0
+        FACCLD1D(LEV-1) = _ZERO_
+        FACCLD2D(LEV-1) = (CLDFRAC(LEV)-CLDFRAC(LEV-1))/CLDFRAC(LEV)
+      ELSE
+        FMIN = MIN(CLDFRAC(LEV),CLDFRAC(LEV+1))
+        IF (CLDFRAC(LEV-1)  <=  FMIN) THEN
+          FACCLD1D(LEV-1) = RAT1
+          FACCLD2D(LEV-1) = (FMIN-CLDFRAC(LEV-1))/FMIN
+        ELSE
+          FACCLD1D(LEV-1) = (CLDFRAC(LEV)-CLDFRAC(LEV-1))/&
+           &(CLDFRAC(LEV)-FMIN)
+          FACCLD2D(LEV-1) = _ZERO_
+        ENDIF
+      ENDIF
+      IF (FACCLD1D(LEV-1) > _ZERO_ .OR. FACCLD2D(LEV-1) > _ZERO_)THEN
+        RAT1 = _ZERO_
+        RAT2 = _ONE_
+      ENDIF
+    ENDIF
+    FACCMB1D(LEV-1) = FACCLR1D(LEV-1) * FACCLD2D(LEV) *CLDFRAC(LEV+1)
+    FACCMB2D(LEV-1) = FACCLD1D(LEV-1) * FACCLR2D(LEV) *&
+     &(_ONE_ - CLDFRAC(LEV+1))
+  ELSE
+    ISTCLDD(LEV-1) = 1
+  ENDIF
+ENDDO
+
+
+!- Loop over frequency bands.
+
+DO IBAND = ISTART, IEND
+  DBDTLEV = TOTPLNK(INDBOUND+1,IBAND)-TOTPLNK(INDBOUND,IBAND)
+  PLANKBND = DELWAVE(IBAND) * (TOTPLNK(INDBOUND,IBAND) + TBNDFRAC * DBDTLEV)
+  DBDTLEV = TOTPLNK(INDLEV(0)+1,IBAND) -TOTPLNK(INDLEV(0),IBAND)
+!-- DS_000515
+  PLVL(0,IBAND) = DELWAVE(IBAND)&
+   &* (TOTPLNK(INDLEV(0),IBAND) + TLEVFRAC(0)*DBDTLEV)
+
+  SURFEMIS(IBAND) = SEMISS(IBAND)
+  PLNKEMIT(IBAND) = SURFEMIS(IBAND) * PLANKBND
+  SUMPLEM  = SUMPLEM + PLNKEMIT(IBAND)
+  SUMPL    = SUMPL   + PLANKBND
+!--DS
+ENDDO
+!---
+
+!-- DS_000515
+DO IBAND = ISTART, IEND
+  DO LEV = 1, KLEV
+!----              
+!- Calculate the integrated Planck functions for at the
+!  level and layer temperatures.
+!  Compute cloud transmittance for cloudy layers.
+    DBDTLEV = TOTPLNK(INDLEV(LEV)+1,IBAND) - TOTPLNK(INDLEV(LEV),IBAND)
+    DBDTLAY = TOTPLNK(INDLAY(LEV)+1,IBAND) - TOTPLNK(INDLAY(LEV),IBAND)
+!-- DS_000515
+    PLAY(LEV,IBAND) = DELWAVE(IBAND)&
+     &*(TOTPLNK(INDLAY(LEV),IBAND)+TLAYFRAC(LEV)*DBDTLAY)
+    PLVL(LEV,IBAND) = DELWAVE(IBAND)&
+     &*(TOTPLNK(INDLEV(LEV),IBAND)+TLEVFRAC(LEV)*DBDTLEV)
+    IF (ICLDLYR(LEV) > 0) THEN
+      TRNCLD(LEV,IBAND) = EXP(-TAUCLD(LEV,IBAND))
+    ENDIF
+!-- DS_000515
+  ENDDO
+
+ENDDO
+
+SEMISLW = SUMPLEM / SUMPL
+
+!--DS
+DO IPR = 1, JPGPT
+  NBI = NGB(IPR)
+  DO LEV =  1 , KLEV
+!-- DS_000515
+    ZPLAY(IPR,LEV) = PLAY(LEV,NBI)
+    ZPLVL(IPR,LEV) = PLVL(LEV-1,NBI)
+    ZTAUCLD(IPR,LEV) = TAUCLD(LEV,NBI)
+    ZTRNCLD(IPR,LEV) = TRNCLD(LEV,NBI)
+!-- DS_000515
+  ENDDO
+ENDDO
+!----      
+
+!- For cloudy layers, set cloud parameters for radiative transfer.
+DO LEV = 1, KLEV
+  IF (ICLDLYR(LEV) > 0) THEN
+    DO IPR = 1, JPGPT
+!--DS          
+!            NBI = NGB(IPR)
+      ODCLDNW(IPR,LEV) = ZTAUCLD(IPR,LEV)
+      ABSCLDNW(IPR,LEV) = _ONE_ - ZTRNCLD(IPR,LEV)
+!----            
+!            EFCLFRNW(IPR,LEV) = ABSCLDNW(IPR,LEV) * CLDFRAC(LEV)
+    ENDDO
+  ENDIF
+ENDDO
+
+!- Initialize for radiative transfer.
+DO IPR = 1, JPGPT
+  RADCLRD1(IPR) = _ZERO_
+  RADLD1(IPR)   = _ZERO_
+  NBI = NGB(IPR)
+  SEMIS(IPR) = SURFEMIS(NBI)
+  RADUEMIT(IPR) = PFRAC(IPR,1) * PLNKEMIT(NBI)
+!-- DS_000515
+  BGLEV(IPR) = PFRAC(IPR,KLEV) * PLVL(KLEV,NBI)
+ENDDO
+
+!- Downward radiative transfer.
+!  *** DRAD1 holds summed radiance for total sky stream
+!  *** DRADCL1 holds summed radiance for clear sky stream
+
+ICLDDN = 0
+DO LEV = KLEV, 1, -1
+  DRAD1   = _ZERO_
+  DRADCL1 = _ZERO_
+
+  IF (ICLDLYR(LEV) == 1) THEN
+
+!  *** Cloudy layer
+    ICLDDN = 1
+    IENT = JPGPT * (LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!--DS            
+!            NBI = NGB(IPR)
+      BGLAY = PFRAC(IPR,LEV) * ZPLAY(IPR,LEV)
+!----            
+      DELBGUP     = BGLEV(IPR) - BGLAY
+      BBU1(INDEX) = BGLAY + TAUSF1(INDEX) * DELBGUP
+!--DS            
+      BGLEV(IPR) = PFRAC(IPR,LEV) * ZPLVL(IPR,LEV)
+!----            
+      DELBGDN = BGLEV(IPR) - BGLAY
+      BBD = BGLAY + TAUSF1(INDEX) * DELBGDN
+!- total-sky downward flux          
+      ODSM = OD(IPR,LEV) + ODCLDNW(IPR,LEV)
+      FACTOT1 = ODSM / (BPADE + ODSM)
+      BBUTOT1(INDEX) = BGLAY + FACTOT1 * DELBGUP
+      ATOT1(INDEX) = ABSS1(INDEX) + ABSCLDNW(IPR,LEV)&
+       &- ABSS1(INDEX) * ABSCLDNW(IPR,LEV)
+      BBDTOT = BGLAY + FACTOT1 * DELBGDN
+      GASSRC = BBD * ABSS1(INDEX)
+!***
+      IF (ISTCLDD(LEV)  ==  1) THEN
+        CLDRADD(IPR) = CLDFRAC(LEV) * RADLD1(IPR)
+        CLRRADD(IPR) = RADLD1(IPR) - CLDRADD(IPR)
+        OLDCLD(IPR) = CLDRADD(IPR)
+        OLDCLR(IPR) = CLRRADD(IPR)
+        RAD(IPR) = _ZERO_
+      ENDIF
+      TTOT = _ONE_ - ATOT1(INDEX)
+      CLDSRC = BBDTOT * ATOT1(INDEX)
+      
+! Separate RT equations for clear and cloudy streams      
+      CLDRADD(IPR) = CLDRADD(IPR) * TTOT + CLDFRAC(LEV) * CLDSRC
+      CLRRADD(IPR) = CLRRADD(IPR) * (_ONE_-ABSS1(INDEX)) +&
+       &(_ONE_ - CLDFRAC(LEV)) * GASSRC
+
+!  Total sky downward radiance
+      RADLD1(IPR) = CLDRADD(IPR) + CLRRADD(IPR)
+      DRAD1 = DRAD1 + RADLD1(IPR)
+      
+!  Clear-sky downward radiance          
+      RADCLRD1(IPR) = RADCLRD1(IPR)+(BBD-RADCLRD1(IPR))*ABSS1(INDEX)
+      DRADCL1 = DRADCL1 + RADCLRD1(IPR)
+
+!* Code to account for maximum/random overlap:
+!   Performs RT on the radiance most recently switched between clear and
+!   cloudy streams
+      RADMOD = RAD(IPR) * (FACCLR1D(LEV-1) * (_ONE_-ABSS1(INDEX)) +&
+       &FACCLD1D(LEV-1) *  TTOT) - &
+       &FACCMB1D(LEV-1) * GASSRC + &
+       &FACCMB2D(LEV-1) * CLDSRC
+       
+!   Computes what the clear and cloudy streams would have been had no
+!   radiance been switched       
+      OLDCLD(IPR) = CLDRADD(IPR) - RADMOD
+      OLDCLR(IPR) = CLRRADD(IPR) + RADMOD
+      
+!   Computes the radiance to be switched between clear and cloudy.      
+      RAD(IPR) = -RADMOD + FACCLR2D(LEV-1)*OLDCLR(IPR) -&
+       &FACCLD2D(LEV-1)*OLDCLD(IPR)
+      CLDRADD(IPR) = CLDRADD(IPR) + RAD(IPR)
+      CLRRADD(IPR) = CLRRADD(IPR) - RAD(IPR)
+!***
+
+    ENDDO
+
+  ELSE
+
+!  *** Clear layer
+!  *** DRAD1 holds summed radiance for total sky stream
+!  *** DRADCL1 holds summed radiance for clear sky stream
+
+    IENT = JPGPT * (LEV-1)
+    IF (ICLDDN == 1) THEN
+      DO IPR = 1, JPGPT
+        INDEX = IENT + IPR
+!--DS         
+!           NBI = NGB(IPR)
+        BGLAY = PFRAC(IPR,LEV) * ZPLAY(IPR,LEV)
+!----            
+        DELBGUP     = BGLEV(IPR) - BGLAY
+        BBU1(INDEX) = BGLAY + TAUSF1(INDEX) * DELBGUP
+!--DS            
+        BGLEV(IPR) = PFRAC(IPR,LEV) * ZPLVL(IPR,LEV)
+!----                      
+        DELBGDN = BGLEV(IPR) - BGLAY
+        BBD = BGLAY + TAUSF1(INDEX) * DELBGDN
+        
+!- total-sky downward radiance
+        RADLD1(IPR) = RADLD1(IPR)+(BBD-RADLD1(IPR))*ABSS1(INDEX)
+        DRAD1 = DRAD1 + RADLD1(IPR)
+        
+!- clear-sky downward radiance
+!-  Set clear sky stream to total sky stream as long as layers
+!-  remain clear.  Streams diverge when a cloud is reached.
+        RADCLRD1(IPR) = RADCLRD1(IPR)+(BBD-RADCLRD1(IPR))*ABSS1(INDEX)
+        DRADCL1 = DRADCL1 + RADCLRD1(IPR)
+      ENDDO
+            
+    ELSE
+        
+      DO IPR = 1, JPGPT
+        INDEX = IENT + IPR
+!--DS         
+!           NBI = NGB(IPR)
+        BGLAY = PFRAC(IPR,LEV) * ZPLAY(IPR,LEV)
+!----            
+        DELBGUP     = BGLEV(IPR) - BGLAY
+        BBU1(INDEX) = BGLAY + TAUSF1(INDEX) * DELBGUP
+!--DS            
+        BGLEV(IPR) = PFRAC(IPR,LEV) * ZPLVL(IPR,LEV)
+!----                      
+        DELBGDN = BGLEV(IPR) - BGLAY
+        BBD = BGLAY + TAUSF1(INDEX) * DELBGDN
+!- total-sky downward flux          
+        RADLD1(IPR) = RADLD1(IPR)+(BBD-RADLD1(IPR))*ABSS1(INDEX)
+        DRAD1 = DRAD1 + RADLD1(IPR)
+!- clear-sky downward flux          
+!-  Set clear sky stream to total sky stream as long as layers
+!-  remain clear.  Streams diverge when a cloud is reached.
+        RADCLRD1(IPR) = RADLD1(IPR)
+      ENDDO
+      DRADCL1 = DRAD1
+    ENDIF
+    
+  ENDIF
+
+  TOTDFLUC(LEV-1) = DRADCL1 * WTNUM(1)
+  TOTDFLUX(LEV-1) = DRAD1   * WTNUM(1)
+
+ENDDO
+
+
+
+
+
+! Spectral reflectivity and reflectance
+! Includes the contribution of spectrally varying longwave emissivity 
+! and reflection from the surface to the upward radiative transfer.
+! Note: Spectral and Lambertian reflections are identical for the one
+! angle flux integration used here.
+
+URAD1   = _ZERO_
+URADCL1 = _ZERO_
+
+!start JJM_000511
+!IF (IREFLECT  ==  0) THEN
+!- Lambertian reflection.
+  DO IPR = 1, JPGPT
+! Clear-sky radiance
+!    RADCLD = _TWO_ * (RADCLRD1(IPR) * WTNUM(1) )
+    RADCLD = RADCLRD1(IPR)
+    RADCLRU1(IPR) = RADUEMIT(IPR) + (_ONE_ - SEMIS(IPR)) * RADCLD
+    URADCL1 = URADCL1 + RADCLRU1(IPR)
+
+! Total sky radiance
+!    RADD = _TWO_ * (RADLD1(IPR) * WTNUM(1) )
+    RADD = RADLD1(IPR)
+    RADLU1(IPR) = RADUEMIT(IPR) + (_ONE_ - SEMIS(IPR)) * RADD
+    URAD1 = URAD1 + RADLU1(IPR)
+  ENDDO
+  TOTUFLUC(0) = URADCL1 * _HALF_
+  TOTUFLUX(0) = URAD1 * _HALF_
+!ELSE
+!!- Specular reflection.
+!  DO IPR = 1, JPGPT
+!    RADCLU = RADUEMIT(IPR)
+!    RADCLRU1(IPR) = RADCLU + (_ONE_ - SEMIS(IPR)) * RADCLRD1(IPR)
+!    URADCL1 = URADCL1 + RADCLRU1(IPR)
+!
+!    RADU = RADUEMIT(IPR)
+!    RADLU1(IPR) = RADU + (_ONE_ - SEMIS(IPR)) * RADLD1(IPR)
+!    URAD1 = URAD1 + RADLU1(IPR)
+!  ENDDO
+!  TOTUFLUC(0) = URADCL1 * WTNUM(1)
+!  TOTUFLUX(0) = URAD1   * WTNUM(1)
+!ENDIF
+
+!- Upward radiative transfer.
+!- *** URAD1 holds the summed radiance for total sky stream
+!- *** URADCL1 holds the summed radiance for clear sky stream
+DO LEV = 1, KLEV
+  URAD1   = _ZERO_
+  URADCL1 = _ZERO_
+
+! Check flag for cloud in current layer
+  IF (ICLDLYR(LEV) == 1) THEN
+
+!- *** Cloudy layer
+    IENT = JPGPT * (LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!- total-sky upward flux          
+      GASSRC = BBU1(INDEX) * ABSS1(INDEX)
+!
+!- If first cloudy layer in sequence, split up radiance into clear and
+!    cloudy streams depending on cloud fraction
+      IF (ISTCLD(LEV)  ==  1) THEN
+        CLDRADU(IPR) = CLDFRAC(LEV) * RADLU1(IPR)
+        CLRRADU(IPR) = RADLU1(IPR) - CLDRADU(IPR)
+        OLDCLD(IPR) = CLDRADU(IPR)
+        OLDCLR(IPR) = CLRRADU(IPR)
+        RAD(IPR) = _ZERO_
+      ENDIF
+      TTOT = _ONE_ - ATOT1(INDEX)
+      TRNS = _ONE_ - ABSS1(INDEX)
+      CLDSRC = BBUTOT1(INDEX) * ATOT1(INDEX)
+!      
+!- Separate RT equations for clear and cloudy streams      
+      CLDRADU(IPR) = CLDRADU(IPR) * TTOT + CLDFRAC(LEV) * CLDSRC
+      CLRRADU(IPR) = CLRRADU(IPR) * TRNS +(_ONE_ - CLDFRAC(LEV)) * GASSRC
+!***
+
+!- total sky upward flux
+      RADLU1(IPR) = CLDRADU(IPR) + CLRRADU(IPR)
+      URAD1 = URAD1 + RADLU1(IPR)
+      
+!- clear-sky upward flux
+      RADCLRU1(IPR) = RADCLRU1(IPR) + (BBU1(INDEX)-RADCLRU1(IPR))&
+       &*ABSS1(INDEX)
+      URADCL1 = URADCL1 + RADCLRU1(IPR)
+
+!* Code to account for maximum/random overlap:
+!   Performs RT on the radiance most recently switched between clear and
+!   cloudy streams
+      RADMOD = RAD(IPR) * (FACCLR1(LEV+1) * TRNS +&
+       &FACCLD1(LEV+1) *  TTOT) - &
+       &FACCMB1(LEV+1) * GASSRC + &
+       &FACCMB2(LEV+1) * CLDSRC
+       
+!   Computes what the clear and cloudy streams would have been had no
+!   radiance been switched       
+      OLDCLD(IPR) = CLDRADU(IPR) - RADMOD
+      OLDCLR(IPR) = CLRRADU(IPR) + RADMOD
+      
+!   Computes the radiance to be switched between clear and cloudy.      
+      RAD(IPR) = -RADMOD + FACCLR2(LEV+1)*OLDCLR(IPR) -&
+       &FACCLD2(LEV+1)*OLDCLD(IPR)
+      CLDRADU(IPR) = CLDRADU(IPR) + RAD(IPR)
+      CLRRADU(IPR) = CLRRADU(IPR) - RAD(IPR)
+!***
+    ENDDO
+
+  ELSE
+
+!- *** Clear layer
+    IENT = JPGPT * (LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!- total-sky upward flux          
+      RADLU1(IPR) = RADLU1(IPR)+(BBU1(INDEX)-RADLU1(IPR))*ABSS1(INDEX)
+      URAD1 = URAD1 + RADLU1(IPR)
+!- clear-sky upward flux
+!   Upward clear and total sky streams must be separate because surface
+!   reflectance is different for each.
+      RADCLRU1(IPR) = RADCLRU1(IPR)+(BBU1(INDEX)-RADCLRU1(IPR))*ABSS1(INDEX)
+      URADCL1 = URADCL1 + RADCLRU1(IPR)
+    ENDDO
+
+  ENDIF
+
+  TOTUFLUC(LEV) = URADCL1 * WTNUM(1)
+  TOTUFLUX(LEV) = URAD1   * WTNUM(1)
+
+ENDDO
+
+
+!* Convert radiances to fluxes and heating rates for total and clear sky.
+! ** NB: moved to calling routine
+!      TOTUFLUC(0) = TOTUFLUC(0) * FLUXFAC
+!      TOTDFLUC(0) = TOTDFLUC(0) * FLUXFAC
+!      TOTUFLUX(0) = TOTUFLUX(0) * FLUXFAC
+!      TOTDFLUX(0) = TOTDFLUX(0) * FLUXFAC
+
+!      CLFNET(0) = TOTUFLUC(0) - TOTDFLUC(0)
+!      FNET(0)   = TOTUFLUX(0) - TOTDFLUX(0)
+!      DO LEV = 1, KLEV
+!        TOTUFLUC(LEV) = TOTUFLUC(LEV) * FLUXFAC
+!        TOTDFLUC(LEV) = TOTDFLUC(LEV) * FLUXFAC
+!        CLFNET(LEV) = TOTUFLUC(LEV) - TOTDFLUC(LEV)
+
+!        TOTUFLUX(LEV) = TOTUFLUX(LEV) * FLUXFAC
+!        TOTDFLUX(LEV) = TOTDFLUX(LEV) * FLUXFAC
+!        FNET(LEV) = TOTUFLUX(LEV) - TOTDFLUX(LEV)
+!        L = LEV - 1
+
+!- Calculate Heating Rates.
+!        CLHTR(L)=HEATFAC*(CLFNET(L)-CLFNET(LEV))/(PZ(L)-PZ(LEV)) 
+!        HTR(L)  =HEATFAC*(FNET(L)  -FNET(LEV))  /(PZ(L)-PZ(LEV)) 
+!      END DO
+!      CLHTR(KLEV) = 0.0
+!      HTR(KLEV)   = 0.0
+
+RETURN
+END SUBROUTINE RRTM_RTRN1A_140GP
Index: LMDZ5/branches/testing/libf/phymar/rrtm_setcoef_140gp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_setcoef_140gp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_setcoef_140gp.F90	(revision 2160)
@@ -0,0 +1,201 @@
+SUBROUTINE RRTM_SETCOEF_140GP (KLEV,COLDRY,WKL &
+ &, FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1 &
+ &, COLH2O,COLCO2,COLO3,COLN2O,COLCH4,COLO2,CO2MULT &
+ &, LAYTROP,LAYSWTCH,LAYLOW,PAVEL,TAVEL,SELFFAC,SELFFRAC,INDSELF)
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+!     Purpose:  For a given atmosphere, calculate the indices and
+!     fractions related to the pressure and temperature interpolations.
+!     Also calculate the values of the integrated Planck functions 
+!     for each band at the level and layer temperatures.
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY     ,JPBAND    ,JPGPT   ,JPINPX
+USE YOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
+
+IMPLICIT NONE
+
+REAL_B :: COLDRY(JPLAY)
+REAL_B :: WKL(JPINPX,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+REAL_B :: COLN2O(JPLAY)
+REAL_B :: COLCH4(JPLAY)
+REAL_B :: COLO2 (JPLAY)
+REAL_B :: CO2MULT(JPLAY)
+INTEGER_M :: LAYTROP
+INTEGER_M :: LAYSWTCH
+INTEGER_M :: LAYLOW
+
+!- from PROFILE             
+REAL_B :: PAVEL(JPLAY)
+REAL_B :: TAVEL(JPLAY)
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JP1, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: CO2REG, COMPFP, FACTOR, FP, FT, FT1, PLOG, SCALEFAC, STPFAC, WATER
+
+
+!#include "yoeratm.h"    
+
+STPFAC = 296._JPRB/1013._JPRB
+
+LAYTROP  = 0
+LAYSWTCH = 0
+LAYLOW   = 0
+
+!Martin control
+!PRINT*,'PAVEL(:)',PAVEL(:)
+!PRINT*,'SIZE(PAVEL)',SIZE(PAVEL)
+!Martin control
+
+DO LAY = 1, KLEV
+!        Find the two reference pressures on either side of the
+!        layer pressure.  Store them in JP and JP1.  Store in FP the
+!        fraction of the difference (in ln(pressure)) between these
+!        two values that the layer pressure lies.
+  ! Martin modif to gather MAR and LMDZ:
+  IF (PAVEL(LAY) == 0. ) PAVEL(LAY) = (PAVEL(LAY-1))/2.
+  PLOG = LOG(PAVEL(LAY))
+  JP(LAY) = INT(36._JPRB - 5*(PLOG+0.04_JPRB))
+  IF (JP(LAY)  <  1) THEN
+    JP(LAY) = 1
+  ELSEIF (JP(LAY)  >  58) THEN
+    JP(LAY) = 58
+  ENDIF
+  JP1 = JP(LAY) + 1
+  FP = 5._JPRB * (PREFLOG(JP(LAY)) - PLOG)
+
+!        Determine, for each reference pressure (JP and JP1), which
+!        reference temperature (these are different for each  
+!        reference pressure) is nearest the layer temperature but does
+!        not exceed it.  Store these indices in JT and JT1, resp.
+!        Store in FT (resp. FT1) the fraction of the way between JT
+!        (JT1) and the next highest reference temperature that the 
+!        layer temperature falls.
+  JT(LAY) = INT(3._JPRB + (TAVEL(LAY)-TREF(JP(LAY)))/15._JPRB)
+  IF (JT(LAY)  <  1) THEN
+    JT(LAY) = 1
+  ELSEIF (JT(LAY)  >  4) THEN
+    JT(LAY) = 4
+  ENDIF
+  FT = ((TAVEL(LAY)-TREF(JP(LAY)))/15._JPRB) - REAL(JT(LAY)-3)
+  JT1(LAY) = INT(3._JPRB + (TAVEL(LAY)-TREF(JP1))/15._JPRB)
+  IF (JT1(LAY)  <  1) THEN
+    JT1(LAY) = 1
+  ELSEIF (JT1(LAY)  >  4) THEN
+    JT1(LAY) = 4
+  ENDIF
+  FT1 = ((TAVEL(LAY)-TREF(JP1))/15._JPRB) - REAL(JT1(LAY)-3)
+
+  WATER = WKL(1,LAY)/COLDRY(LAY)
+  SCALEFAC = PAVEL(LAY) * STPFAC / TAVEL(LAY)
+
+!        If the pressure is less than ~100mb, perform a different
+!        set of species interpolations.
+!         IF (PLOG .LE. 4.56) GO TO 5300
+!--------------------------------------         
+  IF (PLOG  >  4.56_JPRB) THEN
+    LAYTROP =  LAYTROP + 1
+!        For one band, the "switch" occurs at ~300 mb. 
+    IF (PLOG  >=  5.76_JPRB) LAYSWTCH = LAYSWTCH + 1
+    IF (PLOG  >=  6.62_JPRB) LAYLOW = LAYLOW + 1
+
+    FORFAC(LAY) = SCALEFAC / (_ONE_+WATER)
+
+!        Set up factors needed to separately include the water vapor
+!        self-continuum in the calculation of absorption coefficient.
+!C           SELFFAC(LAY) = WATER * SCALEFAC / (1.+WATER)
+    SELFFAC(LAY) = WATER * FORFAC(LAY)
+    FACTOR = (TAVEL(LAY)-188.0_JPRB)/7.2_JPRB
+    INDSELF(LAY) = MIN(9, MAX(1, INT(FACTOR)-7))
+    SELFFRAC(LAY) = FACTOR - REAL(INDSELF(LAY) + 7)
+
+!        Calculate needed column amounts.
+    COLH2O(LAY) = 1.E-20_JPRB * WKL(1,LAY)
+    COLCO2(LAY) = 1.E-20_JPRB * WKL(2,LAY)
+    COLO3(LAY)  = 1.E-20_JPRB * WKL(3,LAY)
+    COLN2O(LAY) = 1.E-20_JPRB * WKL(4,LAY)
+    COLCH4(LAY) = 1.E-20_JPRB * WKL(6,LAY)
+    COLO2(LAY)  = 1.E-20_JPRB * WKL(7,LAY)
+    IF (COLCO2(LAY)  ==  _ZERO_) COLCO2(LAY) = 1.E-32_JPRB * COLDRY(LAY)
+    IF (COLN2O(LAY)  ==  _ZERO_) COLN2O(LAY) = 1.E-32_JPRB * COLDRY(LAY)
+    IF (COLCH4(LAY)  ==  _ZERO_) COLCH4(LAY) = 1.E-32_JPRB * COLDRY(LAY)
+!        Using E = 1334.2 cm-1.
+    CO2REG = 3.55E-24_JPRB * COLDRY(LAY)
+    CO2MULT(LAY)= (COLCO2(LAY) - CO2REG) *&
+     &272.63_JPRB*EXP(-1919.4_JPRB/TAVEL(LAY))/(8.7604E-4_JPRB*TAVEL(LAY))
+!         GO TO 5400
+!------------------
+  ELSE
+!        Above LAYTROP.
+! 5300    CONTINUE
+
+!        Calculate needed column amounts.
+    FORFAC(LAY) = SCALEFAC / (_ONE_+WATER)
+
+    COLH2O(LAY) = 1.E-20_JPRB * WKL(1,LAY)
+    COLCO2(LAY) = 1.E-20_JPRB * WKL(2,LAY)
+    COLO3(LAY)  = 1.E-20_JPRB * WKL(3,LAY)
+    COLN2O(LAY) = 1.E-20_JPRB * WKL(4,LAY)
+    COLCH4(LAY) = 1.E-20_JPRB * WKL(6,LAY)
+    COLO2(LAY)  = 1.E-20_JPRB * WKL(7,LAY)
+    IF (COLCO2(LAY)  ==  _ZERO_) COLCO2(LAY) = 1.E-32_JPRB * COLDRY(LAY)
+    IF (COLN2O(LAY)  ==  _ZERO_) COLN2O(LAY) = 1.E-32_JPRB * COLDRY(LAY)
+    IF (COLCH4(LAY)  ==  _ZERO_) COLCH4(LAY) = 1.E-32_JPRB * COLDRY(LAY)
+    CO2REG = 3.55E-24_JPRB * COLDRY(LAY)
+    CO2MULT(LAY)= (COLCO2(LAY) - CO2REG) *&
+     &272.63_JPRB*EXP(-1919.4_JPRB/TAVEL(LAY))/(8.7604E-4_JPRB*TAVEL(LAY))
+!----------------     
+  ENDIF
+! 5400    CONTINUE
+
+!        We have now isolated the layer ln pressure and temperature,
+!        between two reference pressures and two reference temperatures 
+!        (for each reference pressure).  We multiply the pressure 
+!        fraction FP with the appropriate temperature fractions to get 
+!        the factors that will be needed for the interpolation that yields
+!        the optical depths (performed in routines TAUGBn for band n).
+
+  COMPFP = _ONE_ - FP
+  FAC10(LAY) = COMPFP * FT
+  FAC00(LAY) = COMPFP * (_ONE_ - FT)
+  FAC11(LAY) = FP * FT1
+  FAC01(LAY) = FP * (_ONE_ - FT1)
+
+ENDDO
+
+! MT 981104 
+!-- Set LAYLOW for profiles with surface pressure less than 750 hPa. 
+IF (LAYLOW == 0) LAYLOW=1
+
+RETURN
+END SUBROUTINE RRTM_SETCOEF_140GP
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol1.F90	(revision 2160)
@@ -0,0 +1,245 @@
+!******************************************************************************
+!                                                                             *
+!                  Optical depths developed for the                           *
+!                                                                             *
+!                RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *
+!                                                                             *
+!            ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *
+!                        840 MEMORIAL DRIVE                                   *
+!                        CAMBRIDGE, MA 02139                                  *
+!                                                                             *
+!                           ELI J. MLAWER                                     *
+!                         STEVEN J. TAUBMAN                                   *
+!                         SHEPARD A. CLOUGH                                   *
+!                                                                             *
+!                       email:  mlawer@aer.com                                *
+!                                                                             *
+!        The authors wish to acknowledge the contributions of the             *
+!        following people:  Patrick D. Brown, Michael J. Iacono,              *
+!        Ronald E. Farren, Luke Chen, Robert Bergstrom.                       *
+!                                                                             *
+!******************************************************************************
+! Modified by:                                                                *
+!      JJ Morcrette 980714 ECMWF      for use on ECMWF's Fujitsu VPP770       *
+!         Reformatted for F90 by JJMorcrette, ECMWF                           * 
+!         - replacing COMMONs by MODULEs                                      *
+!         - changing labelled to unlabelled DO loops                          *
+!         - creating set-up routines for all block data statements            *
+!         - reorganizing the parameter statements                             * 
+!         - passing KLEV as argument                                          *
+!         - suppressing some equivalencing                                    *
+!                                                                             *
+!      D Salmond    9907   ECMWF      Speed-up modifications                  *
+!      D Salmond    000515 ECMWF      Speed-up modifications                  *
+!******************************************************************************
+!     TAUMOL                                                                  *
+!                                                                             *
+!     This file contains the subroutines TAUGBn (where n goes from            *
+!     1 to 16).  TAUGBn calculates the optical depths and Planck fractions    *
+!     per g-value and layer for band n.                                       *
+!                                                                             *
+!  Output:  optical depths (unitless)                                         *
+!           fractions needed to compute Planck functions at every layer       *
+!               and g-value                                                   *
+!                                                                             *
+!     COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *
+!     COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *
+!                                                                             *
+!  Input                                                                      *
+!                                                                             *
+!     COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *
+!     COMMON /PRECISE/  ONEMINUS                                              *
+!     COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *
+!    &                  PZ(0:MXLAY),TZ(0:MXLAY),TBOUND                        *
+!     COMMON /PROFDATA/ LAYTROP,LAYSWTCH,LAYLOW,                              *
+!    &                  COLH2O(MXLAY),COLCO2(MXLAY),                          *
+!    &                  COLO3(MXLAY),COLN2O(MXLAY),COLCH4(MXLAY),             *
+!    &                  COLO2(MXLAY),CO2MULT(MXLAY)                           *
+!     COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *
+!    &                  FAC10(MXLAY),FAC11(MXLAY)                             *
+!     COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *
+!     COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *
+!                                                                             *
+!     Description:                                                            *
+!     NG(IBAND) - number of g-values in band IBAND                            *
+!     NSPA(IBAND) - for the lower atmosphere, the number of reference         *
+!                   atmospheres that are stored for band IBAND per            *
+!                   pressure level and temperature.  Each of these            *
+!                   atmospheres has different relative amounts of the         *
+!                   key species for the band (i.e. different binary           *
+!                   species parameters).                                      *
+!     NSPB(IBAND) - same for upper atmosphere                                 *
+!     ONEMINUS - since problems are caused in some cases by interpolation     *
+!                parameters equal to or greater than 1, for these cases       *
+!                these parameters are set to this value, slightly < 1.        *
+!     PAVEL - layer pressures (mb)                                            *
+!     TAVEL - layer temperatures (degrees K)                                  *
+!     PZ - level pressures (mb)                                               *
+!     TZ - level temperatures (degrees K)                                     *
+!     LAYTROP - layer at which switch is made from one combination of         *
+!               key species to another                                        *
+!     COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *
+!               vapor,carbon dioxide, ozone, nitrous ozide, methane,          *
+!               respectively (molecules/cm**2)                                *
+!     CO2MULT - for bands in which carbon dioxide is implemented as a         *
+!               trace species, this is the factor used to multiply the        *
+!               band's average CO2 absorption coefficient to get the added    *
+!               contribution to the optical depth relative to 355 ppm.        *
+!     FACij(LAY) - for layer LAY, these are factors that are needed to        *
+!                  compute the interpolation factors that multiply the        *
+!                  appropriate reference k-values.  A value of 0 (1) for      *
+!                  i,j indicates that the corresponding factor multiplies     *
+!                  reference k-value for the lower (higher) of the two        *
+!                  appropriate temperatures, and altitudes, respectively.     *
+!     JP - the index of the lower (in altitude) of the two appropriate        *
+!          reference pressure levels needed for interpolation                 *
+!     JT, JT1 - the indices of the lower of the two appropriate reference     *
+!               temperatures needed for interpolation (for pressure           *
+!               levels JP and JP+1, respectively)                             *
+!     SELFFAC - scale factor needed to water vapor self-continuum, equals     *
+!               (water vapor density)/(atmospheric density at 296K and        *
+!               1013 mb)                                                      *
+!     SELFFRAC - factor needed for temperature interpolation of reference     *
+!                water vapor self-continuum data                              *
+!     INDSELF - index of the lower of the two appropriate reference           *
+!               temperatures needed for the self-continuum interpolation      *
+!                                                                             *
+!  Data input                                                                 *
+!     COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG) *
+!        (note:  n is the band number)                                        *
+!                                                                             *
+!     Description:                                                            *
+!     KA - k-values for low reference atmospheres (no water vapor             *
+!          self-continuum) (units: cm**2/molecule)                            *
+!     KB - k-values for high reference atmospheres (all sources)              *
+!          (units: cm**2/molecule)                                            *
+!     SELFREF - k-values for water vapor self-continuum for reference         *
+!               atmospheres (used below LAYTROP)                              *
+!               (units: cm**2/molecule)                                       *
+!                                                                             *
+!     DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *
+!     EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *
+!                                                                             *
+!******************************************************************************
+
+
+SUBROUTINE RRTM_TAUMOL1 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
+  &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     Revised by Michael J. Iacono, Atmospheric & Environmental Research.
+
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+ 
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA1 , ONLY : NG1    ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &FORREF   ,KA     ,KB     ,SELFREF 
+
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, LAY
+
+!      EQUIVALENCE (TAUAERL(1,1),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum 
+!     is interpolated (in temperature) separately.  
+
+DO LAY = 1, LAYTROP
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(1) + 1
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(1) + 1
+  INDS(LAY) = INDSELF(LAY)
+ENDDO
+
+DO IG = 1, NG1
+  DO LAY = 1, LAYTROP
+!-- DS_000515  
+    TAU (IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSA(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSA(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSA(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSA(IND1(LAY)+1,IG) +&
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ FORFAC(LAY) * FORREF(IG) ) &
+     &+ TAUAERL(LAY,1)
+    PFRAC(IG,LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(1) + 1
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(1) + 1
+ENDDO
+
+!-- JJM000517
+DO IG = 1, NG1
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM000517
+    TAU (IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSB(IND1(LAY)+1,IG)&
+     &+ FORFAC(LAY) * FORREF(IG) ) &
+     &+ TAUAERL(LAY,1)
+    PFRAC(IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL1
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol10.F90	(revision 2160)
@@ -0,0 +1,103 @@
+!*******************************************************************************
+SUBROUTINE RRTM_TAUMOL10 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,LAYTROP,PFRAC)
+
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS9
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA10, ONLY : NG10   ,ABSA   ,ABSB   ,FRACREFA, FRACREFB, KA , KB
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, LAY
+
+!      EQUIVALENCE (TAUAERL(1,10),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  
+
+DO LAY = 1, LAYTROP
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(10) + 1
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(10) + 1
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG10
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+    TAU (NGS9+IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSA(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSA(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSA(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSA(IND1(LAY)+1,IG)) &
+     &+ TAUAERL(LAY,10)
+    PFRAC(NGS9+IG,LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(10) + 1
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(10) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG10
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS9+IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSB(IND1(LAY)+1,IG)) &
+     &+ TAUAERL(LAY,10)
+    PFRAC(NGS9+IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL10
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol11.F90	(revision 2160)
@@ -0,0 +1,114 @@
+!******************************************************************************
+SUBROUTINE RRTM_TAUMOL11 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS10
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA11, ONLY : NG11   ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &KA      , KB     ,SELFREF
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, LAY
+
+!      EQUIVALENCE (TAUAERL(1,11),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum 
+!     is interpolated (in temperature) separately.
+  
+DO LAY = 1, LAYTROP
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(11) + 1
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(11) + 1
+  INDS(LAY) = INDSELF(LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG11
+  DO LAY = 1, LAYTROP
+!-- DS_000515  
+    TAU (NGS10+IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSA(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSA(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSA(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSA(IND1(LAY)+1,IG) +&
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG))))&
+     &+ TAUAERL(LAY,11)
+    PFRAC(NGS10+IG,LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(11) + 1
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(11) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG11
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS10+IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSB(IND1(LAY)+1,IG)) &
+     &+ TAUAERL(LAY,11)
+    PFRAC(NGS10+IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL11
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol12.F90	(revision 2160)
@@ -0,0 +1,154 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL12 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND  ,JPGPT   ,JPXSEC ,NGS11
+USE YOERRTWN , ONLY : NG     ,NSPA    ,NSPB
+USE YOERRTA12, ONLY : NG12   ,ABSA    ,FRACREFA,KA     ,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IJS(JPLAY)
+REAL_B :: ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECMULT, SPECPARM
+
+
+!      EQUIVALENCE (TAUAERL(1,12),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+DO LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT*COLCO2(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(12) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(12) + JS
+  INDS(LAY) = INDSELF(LAY)
+
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG12
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    JS=IJS(LAY)
+  
+!----jjm        
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!----
+    TAU (NGS11+IG,LAY) = SPECCOMB(LAY) *&
+!-- DS_000515
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+ 9,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+10,IG) +&
+!     & FAC001 * ABSA(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSA(IND1(LAY) +1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY) +9,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+10,IG))+&
+     &( (1. - FS) *( FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &               FAC10(LAY) * ABSA(IND0(LAY)+9 ,IG) +   &
+     &               FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   & 
+     &               FAC11(LAY) * ABSA(IND1(LAY)+9 ,IG))+   &
+     &     FS     *( FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   &
+     &               FAC10(LAY) * ABSA(IND0(LAY)+10,IG) +   &
+     &               FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &               FAC11(LAY) * ABSA(IND1(LAY)+10,IG))) + & 
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ TAUAERL(LAY,12)
+    PFRAC(NGS11+IG,LAY) = FRACREFA(IG,JS) + FS *&
+     &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  ENDDO
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG12
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS11+IG,LAY) = TAUAERL(LAY,12)
+    PFRAC(NGS11+IG,LAY) = _ZERO_
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL12
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol13.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol13.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol13.F90	(revision 2160)
@@ -0,0 +1,153 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL13 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+
+! Modifications
+!
+!     D Salmond 2000-05-15 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT   ,JPXSEC,NGS12
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA13, ONLY : NG13   ,ABSA   ,FRACREFA,KA    ,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLN2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IJS(JPLAY)
+REAL_B :: ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECMULT, SPECPARM
+
+
+!      EQUIVALENCE (TAUAERL(1,13),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+DO  LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT*COLN2O(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(13) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(13) + JS
+  INDS(LAY) = INDSELF(LAY)
+  
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG13
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    JS=IJS(LAY)
+!---jjm         
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!----
+    TAU (NGS12+IG,LAY) = SPECCOMB(LAY) *&
+!-- DS_000515
+     &( (1. - FS) *( FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &               FAC10(LAY) * ABSA(IND0(LAY)+ 9,IG) +   &
+     &               FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   & 
+     &               FAC11(LAY) * ABSA(IND1(LAY)+ 9,IG))+   &
+     &    FS      *( FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   & 
+     &               FAC10(LAY) * ABSA(IND0(LAY)+10,IG) +   &
+     &               FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &               FAC11(LAY) * ABSA(IND1(LAY)+10,IG))) + &
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+ 9,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+10,IG) +&
+!     & FAC001 * ABSA(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSA(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY)+ 9,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+10,IG))+&
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ TAUAERL(LAY,13)
+    PFRAC(NGS12+IG,LAY) = FRACREFA(IG,JS) + FS *&
+     &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  ENDDO
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG13
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS12+IG,LAY) = TAUAERL(LAY,13)
+    PFRAC(NGS12+IG,LAY) = _ZERO_
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL13
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol14.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol14.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol14.F90	(revision 2160)
@@ -0,0 +1,127 @@
+!******************************************************************************
+SUBROUTINE RRTM_TAUMOL14 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLCO2,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+
+! Modifications
+!
+!     D Salmond 1999-07-14 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS13
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA14, ONLY : NG14   ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+              &KA    , KB    ,SELFREF
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLCO2(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, IND0, IND1, INDS, LAY
+
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+!      EQUIVALENCE (TAUAERL(1,14),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum 
+!     is interpolated (in temperature) separately.  
+
+DO LAY = 1, LAYTROP
+  IND0 = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(14) + 1
+  IND1 = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(14) + 1
+  INDS = INDSELF(LAY)
+!-- DS_990714  
+!         DO IG = 1, NG14
+  IG=1
+  TAU (NGS13+IG,LAY) = COLCO2(LAY) *&
+   &(FAC00(LAY) * ABSA(IND0  ,IG) +&
+   & FAC10(LAY) * ABSA(IND0+1,IG) +&
+   & FAC01(LAY) * ABSA(IND1  ,IG) +&
+   & FAC11(LAY) * ABSA(IND1+1,IG) +&
+   &SELFFAC(LAY) * (SELFREF(INDS,IG) + &
+   &SELFFRAC(LAY) *&
+   &(SELFREF(INDS+1,IG) - SELFREF(INDS,IG))))&
+   &+ TAUAERL(LAY,14)
+  PFRAC(NGS13+IG,LAY) = FRACREFA(IG)
+  IG=2
+  TAU (NGS13+IG,LAY) = COLCO2(LAY) *&
+   &(FAC00(LAY) * ABSA(IND0  ,IG) +&
+   & FAC10(LAY) * ABSA(IND0+1,IG) +&
+   & FAC01(LAY) * ABSA(IND1  ,IG) +&
+   & FAC11(LAY) * ABSA(IND1+1,IG) +&
+   &SELFFAC(LAY) * (SELFREF(INDS,IG) +&
+   &SELFFRAC(LAY) *&
+   &(SELFREF(INDS+1,IG) - SELFREF(INDS,IG))))&
+   &+ TAUAERL(LAY,14)
+  PFRAC(NGS13+IG,LAY) = FRACREFA(IG)
+!         END DO
+!-- DS_990714  
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  IND0 = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(14) + 1
+  IND1 = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(14) + 1
+!-- DS_990714  
+!         DO IG = 1, NG14
+  IG=1
+  TAU (NGS13+IG,LAY) = COLCO2(LAY) *&
+   &(FAC00(LAY) * ABSB(IND0  ,IG) +&
+   & FAC10(LAY) * ABSB(IND0+1,IG) +&
+   & FAC01(LAY) * ABSB(IND1  ,IG) +&
+   & FAC11(LAY) * ABSB(IND1+1,IG)) &
+   &+ TAUAERL(LAY,14)
+  PFRAC(NGS13+IG,LAY) = FRACREFB(IG)
+  IG=2
+  TAU (NGS13+IG,LAY) = COLCO2(LAY) *&
+   &(FAC00(LAY) * ABSB(IND0  ,IG) +&
+   & FAC10(LAY) * ABSB(IND0+1,IG) +&
+   & FAC01(LAY) * ABSB(IND1  ,IG) +&
+   & FAC11(LAY) * ABSB(IND1+1,IG)) &
+   &+ TAUAERL(LAY,14)
+  PFRAC(NGS13+IG,LAY) = FRACREFB(IG)
+!         END DO
+!-- DS_990714  
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL14
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol15.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol15.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol15.F90	(revision 2160)
@@ -0,0 +1,169 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL15 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+
+! Modifications
+!
+!     D Salmond 1999-07-14 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT   ,JPXSEC ,NGS14
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA15, ONLY : NG15   ,ABSA   ,FRACREFA,KA     ,SELFREF,STRRAT
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLN2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, IND0, IND1, INDS, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECCOMB, SPECMULT, SPECPARM
+
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+!      EQUIVALENCE (TAUAERL(1,15),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+DO LAY = 1, LAYTROP
+  SPECCOMB = COLN2O(LAY) + STRRAT*COLCO2(LAY)
+  SPECPARM = COLN2O(LAY)/SPECCOMB
+  SPECPARM = MIN(SPECPARM,ONEMINUS)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+!-----jjm        
+  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+  FAC100 = FS * FAC00(LAY)
+  FAC110 = FS * FAC10(LAY)
+  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+  FAC101 = FS * FAC01(LAY)
+  FAC111 = FS * FAC11(LAY)
+!------         
+  IND0 = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(15) + JS
+  IND1 = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(15) + JS
+  INDS = INDSELF(LAY)
+!-- DS_990714  
+!         DO IG = 1, NG15
+  IG=1
+  TAU (NGS14+IG,LAY) = SPECCOMB *&
+!     &((1. - FS)*(FAC00(LAY) * ABSA(IND0,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+9,IG) +
+!     &            FAC01(LAY) * ABSA(IND1,IG) + 
+!     &            FAC11(LAY) * ABSA(IND1+9,IG)) +
+!     &     FS *  (FAC01(LAY) * ABSA(IND1+1,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+10,IG) +
+!     &            FAC00(LAY) * ABSA(IND0+1,IG) +
+!     &            FAC11(LAY) * ABSA(IND1+10,IG))) +
+   &(FAC000 * ABSA(IND0   ,IG) +&
+   & FAC100 * ABSA(IND0+ 1,IG) +&
+   & FAC010 * ABSA(IND0+ 9,IG) +&
+   & FAC110 * ABSA(IND0+10,IG) +&
+   & FAC001 * ABSA(IND1   ,IG) +&
+   & FAC101 * ABSA(IND1+ 1,IG) +&
+   & FAC011 * ABSA(IND1+ 9,IG) +&
+   & FAC111 * ABSA(IND1+10,IG))+&
+   &COLH2O(LAY) * &
+   &SELFFAC(LAY) * (SELFREF(INDS,IG) + &
+   &SELFFRAC(LAY) *&
+   &(SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   &+ TAUAERL(LAY,15)
+  PFRAC(NGS14+IG,LAY) = FRACREFA(IG,JS) + FS *&
+   &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  IG=2
+  TAU (NGS14+IG,LAY) = SPECCOMB *&
+!     &((1. - FS)*(FAC00(LAY) * ABSA(IND0,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+9,IG) +
+!     &            FAC01(LAY) * ABSA(IND1,IG) +
+!     &            FAC11(LAY) * ABSA(IND1+9,IG)) +
+!     &     FS *  (FAC01(LAY) * ABSA(IND1+1,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+10,IG) +
+!     &            FAC00(LAY) * ABSA(IND0+1,IG) +
+!     &            FAC11(LAY) * ABSA(IND1+10,IG))) +
+   &(FAC000 * ABSA(IND0   ,IG) +&
+   & FAC100 * ABSA(IND0+ 1,IG) +&
+   & FAC010 * ABSA(IND0+ 9,IG) +&
+   & FAC110 * ABSA(IND0+10,IG) +&
+   & FAC001 * ABSA(IND1   ,IG) +&
+   & FAC101 * ABSA(IND1+ 1,IG) +&
+   & FAC011 * ABSA(IND1+ 9,IG) +&
+   & FAC111 * ABSA(IND1+10,IG))+&
+   &COLH2O(LAY) *&
+   &SELFFAC(LAY) * (SELFREF(INDS,IG) +&
+   &SELFFRAC(LAY) *&
+   &(SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   &+ TAUAERL(LAY,15)
+  PFRAC(NGS14+IG,LAY) = FRACREFA(IG,JS) + FS *&
+   &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+
+!         END DO
+!-- DS_990714  
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+!         DO IG = 1, NG15
+!-- DS_990714  
+  IG=1
+  TAU (NGS14+IG,LAY) = TAUAERL(LAY,15)
+  PFRAC(NGS14+IG,LAY) = _ZERO_
+  IG=2
+  TAU (NGS14+IG,LAY) = TAUAERL(LAY,15)
+  PFRAC(NGS14+IG,LAY) = _ZERO_
+!-- DS_990714  
+!         END DO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL15
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol16.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol16.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol16.F90	(revision 2160)
@@ -0,0 +1,168 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL16 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCH4,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+
+! Modifications
+!
+!     D Salmond 1999-07-14 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT   ,JPXSEC ,NGS15
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA16, ONLY : NG16   ,ABSA   ,FRACREFA,KA     ,SELFREF,STRRAT
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCH4(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, IND0, IND1, INDS, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECCOMB, SPECMULT, SPECPARM
+
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+!      EQUIVALENCE (TAUAERL(1,16),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+DO LAY = 1, LAYTROP
+  SPECCOMB = COLH2O(LAY) + STRRAT*COLCH4(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB
+  SPECPARM = MIN(SPECPARM,ONEMINUS)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+!----jjm         
+  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+  FAC100 = FS * FAC00(LAY)
+  FAC110 = FS * FAC10(LAY)
+  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+  FAC101 = FS * FAC01(LAY)
+  FAC111 = FS * FAC11(LAY)
+!-----         
+  IND0 = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(16) + JS
+  IND1 = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(16) + JS
+  INDS = INDSELF(LAY)
+!         DO IG = 1, NG16
+!-- DS_990714
+  IG=1
+  TAU (NGS15+IG,LAY) = SPECCOMB *&
+!     &((1. - FS)*(FAC00(LAY) * ABSA(IND0   ,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+ 9,IG) +
+!     &            FAC01(LAY) * ABSA(IND1   ,IG) + 
+!     &            FAC11(LAY) * ABSA(IND1+ 9,IG))+
+!     &    FS * (  FAC01(LAY) * ABSA(IND1+ 1,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+10,IG) +
+!     &            FAC00(LAY) * ABSA(IND0+ 1,IG) +
+!     &            FAC11(LAY) * ABSA(IND1+10,IG))) +
+   &(FAC000 * ABSA(IND0   ,IG) +&
+   & FAC100 * ABSA(IND0+ 1,IG) +&
+   & FAC010 * ABSA(IND0+ 9,IG) +&
+   & FAC110 * ABSA(IND0+10,IG) +&
+   & FAC001 * ABSA(IND1   ,IG) +&
+   & FAC101 * ABSA(IND1+ 1,IG) +&
+   & FAC011 * ABSA(IND1+ 9,IG) +&
+   & FAC111 * ABSA(IND1+10,IG))+&
+   &COLH2O(LAY) * &
+   &SELFFAC(LAY) * (SELFREF(INDS,IG) + &
+   &SELFFRAC(LAY) *&
+   &(SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   &+ TAUAERL(LAY,16)
+  PFRAC(NGS15+IG,LAY) = FRACREFA(IG,JS) + FS *&
+   &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  IG=2
+  TAU (NGS15+IG,LAY) = SPECCOMB *&
+!     &((1. - FS)*(FAC00(LAY) * ABSA(IND0   ,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+ 9,IG) +
+!     &            FAC01(LAY) * ABSA(IND1   ,IG) +
+!     &            FAC11(LAY) * ABSA(IND1+ 9,IG))+
+!     &    FS * (  FAC01(LAY) * ABSA(IND1+ 1,IG) +
+!     &            FAC10(LAY) * ABSA(IND0+10,IG) +
+!     &            FAC00(LAY) * ABSA(IND0+ 1,IG) +
+!     &            FAC11(LAY) * ABSA(IND1+10,IG))) +
+   &(FAC000 * ABSA(IND0   ,IG) +&
+   & FAC100 * ABSA(IND0+ 1,IG) +&
+   & FAC010 * ABSA(IND0+ 9,IG) +&
+   & FAC110 * ABSA(IND0+10,IG) +&
+   & FAC001 * ABSA(IND1   ,IG) +&
+   & FAC101 * ABSA(IND1+ 1,IG) +&
+   & FAC011 * ABSA(IND1+ 9,IG) +&
+   & FAC111 * ABSA(IND1+10,IG))+&
+   &COLH2O(LAY) *&
+   &SELFFAC(LAY) * (SELFREF(INDS,IG) +&
+   &SELFFRAC(LAY) *&
+   &(SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   &+ TAUAERL(LAY,16)
+  PFRAC(NGS15+IG,LAY) = FRACREFA(IG,JS) + FS *&
+   &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+
+!         END DO
+!-- DS_990714
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+!         DO IG = 1, NG16
+!-- DS_990714
+  IG=1
+  TAU (NGS15+IG,LAY) = TAUAERL(LAY,16)
+  PFRAC(NGS15+IG,LAY) = _ZERO_
+  IG=2
+  TAU (NGS15+IG,LAY) = TAUAERL(LAY,16)
+  PFRAC(NGS15+IG,LAY) = _ZERO_
+!-- DS_990714
+!         END DO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL16
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol2.F90	(revision 2160)
@@ -0,0 +1,179 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL2 (KLEV,TAU,COLDRY,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,&
+  &COLH2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+!     JJMorcrette 2000-07-14 bugfix
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS1
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA2 , ONLY : NG2    ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &FORREF   ,KA     ,KB     ,SELFREF , REFPARAM
+USE YOERRTBG2, ONLY : CORR1  ,CORR2
+
+!  Input
+!#include "yoeratm.h"
+
+
+IMPLICIT NONE
+
+REAL_B :: COLDRY(JPLAY)
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+REAL_B :: FC00(JPLAY),FC01(JPLAY),FC10(JPLAY),FC11(JPLAY)
+!      REAL TAUAER(JPLAY)
+REAL_B :: FRACINT(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY), INDEX(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IFP, IFRAC, IG, JFRAC, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FP, H2OPARAM, WATER
+
+!      EQUIVALENCE (TAUAERL(1,2),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum is 
+!     interpolated (in temperature) separately.
+
+DO LAY = 1, LAYTROP
+  WATER = 1.E20_JPRB * COLH2O(LAY) / COLDRY(LAY)
+  H2OPARAM = WATER/(WATER +.002_JPRB)
+  
+!  DO IFRAC = 2, 12
+!    IF (H2OPARAM  >=  REFPARAM(IFRAC)) GO TO 1900
+!  ENDDO
+!  1900 CONTINUE
+!  FRACINT(LAY) = (H2OPARAM-REFPARAM(IFRAC))/&
+!   &(REFPARAM(IFRAC-1)-REFPARAM(IFRAC))
+
+  IF (H2OPARAM >= REFPARAM(2)) THEN
+    INDEX(LAY)=2
+  ELSE
+    DO JFRAC = 2, 12
+      IF (H2OPARAM < REFPARAM(JFRAC)) THEN
+        INDEX(LAY)=JFRAC+1
+      END IF  
+    ENDDO
+  ENDIF  
+  
+!---- JJM_000714
+  IFRAC=INDEX(LAY)
+  FRACINT(LAY) = (H2OPARAM-REFPARAM(IFRAC))/&
+   &(REFPARAM(IFRAC-1)-REFPARAM(IFRAC))
+ENDDO
+
+DO LAY = 1, LAYTROP
+
+  FP = FAC11(LAY) + FAC01(LAY)
+  IFP = 2.E2_JPRB*FP+_HALF_
+
+!---MI 981104        
+!       IF (IFP.LE.0) IFP=0
+
+  IFP=MAX(0,INT(IFP))
+
+  FC00(LAY) = FAC00(LAY) * CORR2(IFP)
+  FC10(LAY) = FAC10(LAY) * CORR2(IFP)
+  FC01(LAY) = FAC01(LAY) * CORR1(IFP)
+  FC11(LAY) = FAC11(LAY) * CORR1(IFP)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(2) + 1
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(2) + 1
+  INDS(LAY) = INDSELF(LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG2
+  DO LAY = 1, LAYTROP
+!-- JJM_000714
+    IFRAC=INDEX(LAY)  
+!-- DS_000515  
+    TAU (NGS1+IG,LAY) = COLH2O(LAY) *&
+     &(FC00(LAY) * ABSA(IND0(LAY)  ,IG) +&
+     & FC10(LAY) * ABSA(IND0(LAY)+1,IG) +&
+     & FC01(LAY) * ABSA(IND1(LAY)  ,IG) +&
+     & FC11(LAY) * ABSA(IND1(LAY)+1,IG) +&
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ FORFAC(LAY) * FORREF(IG) ) &
+     &+ TAUAERL(LAY,2)
+    PFRAC(NGS1+IG,LAY) = FRACREFA(IG,IFRAC) + FRACINT(LAY) *&
+     &(FRACREFA(IG,IFRAC-1)-FRACREFA(IG,IFRAC))
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  FP = FAC11(LAY) + FAC01(LAY)
+  IFP = 2.E2_JPRB*FP+_HALF_
+
+!---MI 981104        
+  IF (IFP <= 0) IFP=0
+
+  FC00(LAY) = FAC00(LAY) * CORR2(IFP)
+  FC10(LAY) = FAC10(LAY) * CORR2(IFP)
+  FC01(LAY) = FAC01(LAY) * CORR1(IFP)
+  FC11(LAY) = FAC11(LAY) * CORR1(IFP)
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(2) + 1
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(2) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG2
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS1+IG,LAY) = COLH2O(LAY) *&
+     &(FC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FC11(LAY) * ABSB(IND1(LAY)+1,IG)&
+     &+ FORFAC(LAY) * FORREF(IG) ) &
+     &+ TAUAERL(LAY,2)
+    PFRAC(NGS1+IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL2
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol3.F90	(revision 2160)
@@ -0,0 +1,249 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL3 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLN2O,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!
+!     D Salmond 2000-05-15 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS2
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA3 , ONLY : NG3    ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &FORREF   ,KA     ,KB     ,SELFREF , ABSN2OA ,&
+            &ABSN2OB  ,ETAREF ,H2OREF ,N2OREF  , CO2REF  ,&
+            &STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLN2O(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IJS(JPLAY)
+REAL_B :: ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+REAL_B :: N2OMULT(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, JS, LAY, NS
+
+!     LOCAL REAL SCALARS
+REAL_B :: COLREF1, COLREF2, CURRN2O, FAC000, FAC001,&
+          &FAC010, FAC011, FAC100, FAC101, FAC110, FAC111, &
+          &FP, FS, RATIO, SPECMULT, SPECPARM, WCOMB1, &
+          &WCOMB2
+
+!      EQUIVALENCE (TAUAERL(1,3),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+DO LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT*COLCO2(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IF (JS  ==  8) THEN
+    IF (FS  >=  0.9_JPRB) THEN
+      JS = 9
+      FS = 10._JPRB * (FS - 0.9_JPRB)
+    ELSE
+      FS = FS/0.9_JPRB
+    ENDIF
+  ENDIF
+
+  NS = JS + INT(FS + _HALF_)
+  FP = FAC01(LAY) + FAC11(LAY)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(3) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(3) + JS
+  INDS(LAY) = INDSELF(LAY)
+  COLREF1 = N2OREF(JP(LAY))
+  COLREF2 = N2OREF(JP(LAY)+1)
+  IF (NS  ==  10) THEN
+    WCOMB1 = _ONE_/H2OREF(JP(LAY))
+    WCOMB2 = _ONE_/H2OREF(JP(LAY)+1)
+  ELSE
+    WCOMB1 = (_ONE_-ETAREF(NS))/(STRRAT * CO2REF(JP(LAY)))
+    WCOMB2 = (_ONE_-ETAREF(NS))/(STRRAT * CO2REF(JP(LAY)+1))
+  ENDIF
+  RATIO = (COLREF1*WCOMB1)+FP*((COLREF2*WCOMB2)-(COLREF1*WCOMB1))
+  CURRN2O = SPECCOMB(LAY) * RATIO
+  N2OMULT(LAY) = COLN2O(LAY) - CURRN2O
+
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG3
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    JS=IJS(LAY)
+
+!---jjm
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!------        
+
+    TAU (NGS2+IG,LAY) = SPECCOMB(LAY) *   &
+!-- DS_000515
+     & ( (1. - FS) *(FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &               FAC10(LAY) * ABSA(IND0(LAY)+10,IG) +   &
+     &               FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   &
+     &               FAC11(LAY) * ABSA(IND1(LAY)+10,IG))+   &
+     &      FS     *(FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   &
+     &               FAC10(LAY) * ABSA(IND0(LAY)+11,IG) +   &
+     &               FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &               FAC11(LAY) * ABSA(IND1(LAY)+11,IG))) + &
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+10,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+11,IG) +&
+!     & FAC001 * ABSA(IND1(LAY),   IG) +&
+!     & FAC101 * ABSA(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY)+10,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+11,IG))+&
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG))&
+     &+ FORFAC(LAY) * FORREF(IG) ) &
+     &+ N2OMULT(LAY) * ABSN2OA(IG) &
+     &+ TAUAERL(LAY,3)
+    PFRAC(NGS2+IG,LAY) = FRACREFA(IG,JS) + FS *&
+     &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT*COLCO2(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 4._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  NS = JS + INT(FS + _HALF_)
+  FP = FAC01(LAY) + FAC11(LAY)
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(3) + JS
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(3) + JS
+  COLREF1 = N2OREF(JP(LAY))
+  COLREF2 = N2OREF(JP(LAY)+1)
+  IF (NS  ==  5) THEN
+    WCOMB1 = _ONE_/H2OREF(JP(LAY))
+    WCOMB2 = _ONE_/H2OREF(JP(LAY)+1)
+  ELSE
+    WCOMB1 = (_ONE_-ETAREF(NS))/(STRRAT * CO2REF(JP(LAY)))
+    WCOMB2 = (_ONE_-ETAREF(NS))/(STRRAT * CO2REF(JP(LAY)+1))
+  ENDIF
+  RATIO = (COLREF1*WCOMB1)+FP*((COLREF2*WCOMB2)-(COLREF1*WCOMB1))
+  CURRN2O = SPECCOMB(LAY) * RATIO
+  N2OMULT(LAY) = COLN2O(LAY) - CURRN2O
+
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+
+  FS=ZFS(LAY)
+  JS=IJS(LAY)
+!---jjm
+!  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!  FAC100 = FS * FAC00(LAY)
+!  FAC110 = FS * FAC10(LAY)
+!  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!  FAC101 = FS * FAC01(LAY)
+!  FAC111 = FS * FAC11(LAY)
+!---        
+
+  DO IG = 1, NG3
+    TAU (NGS2+IG,LAY) = SPECCOMB(LAY) *   &
+!-- DS_000515
+     & ( (1. - FS) *(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +   &
+     &               FAC10(LAY) * ABSB(IND0(LAY)+5,IG) +   &
+     &               FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +   & 
+     &               FAC11(LAY) * ABSB(IND1(LAY)+5,IG))+   &
+     &      FS     *(FAC00(LAY) * ABSB(IND0(LAY)+1,IG) +   &
+     &               FAC10(LAY) * ABSB(IND0(LAY)+6,IG) +   &
+     &               FAC01(LAY) * ABSB(IND1(LAY)+1,IG) +   &
+     &               FAC11(LAY) * ABSB(IND1(LAY)+6,IG)))   &
+!     &(FAC000 * ABSB(IND0(LAY)  ,IG) +&
+!     & FAC100 * ABSB(IND0(LAY)+1,IG) +&
+!     & FAC010 * ABSB(IND0(LAY)+5,IG) +&
+!     & FAC110 * ABSB(IND0(LAY)+6,IG) +&
+!     & FAC001 * ABSB(IND1(LAY)  ,IG) +&
+!     & FAC101 * ABSB(IND1(LAY)+1,IG) +&
+!     & FAC011 * ABSB(IND1(LAY)+5,IG) +&
+!     & FAC111 * ABSB(IND1(LAY)+6,IG))&
+!-- DS_000515
+     &+ COLH2O(LAY)*FORFAC(LAY)*FORREF(IG) &
+     &+ N2OMULT(LAY) * ABSN2OB(IG)&
+     &+ TAUAERL(LAY,3)
+    PFRAC(NGS2+IG,LAY) = FRACREFB(IG,JS) + FS *&
+     &(FRACREFB(IG,JS+1) - FRACREFB(IG,JS))
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL3
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol4.F90	(revision 2160)
@@ -0,0 +1,208 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL4 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2,COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+
+! Modifications
+!
+!     D Salmond 2000-05-15 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS3
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA4 , ONLY : NG4    ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &KA       ,KB     ,SELFREF,STRRAT1 , STRRAT2
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IJS(JPLAY)
+REAL_B :: ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECMULT, SPECPARM
+
+!      EQUIVALENCE (TAUAERL(1,4),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+DO LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT1*COLCO2(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(4) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(4) + JS
+  INDS(LAY) = INDSELF(LAY)
+
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG4
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    JS=IJS(LAY)
+!--jjm         
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!---
+
+    TAU (NGS3+IG,LAY) = SPECCOMB(LAY) *   & 
+!-- DS_000515
+     &((1. - FS) *(FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &             FAC10(LAY) * ABSA(IND0(LAY)+ 9,IG) +   &
+     &             FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   & 
+     &             FAC11(LAY) * ABSA(IND1(LAY)+ 9,IG))+   &
+     &    FS     *(FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   &
+     &             FAC10(LAY) * ABSA(IND0(LAY)+10,IG) +   &
+     &             FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &             FAC11(LAY) * ABSA(IND1(LAY)+10,IG))) + &
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+ 9,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+10,IG) +&
+!     & FAC001 * ABSA(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSA(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY)+ 9,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+10,IG))+&
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ TAUAERL(LAY,4)
+    PFRAC(NGS3+IG,LAY) = FRACREFA(IG,JS) + FS *&
+     &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  SPECCOMB(LAY) = COLO3(LAY) + STRRAT2*COLCO2(LAY)
+  SPECPARM = COLO3(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 4._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IF (JS  >  1) THEN
+    JS = JS + 1
+  ELSEIF (FS  >=  0.0024_JPRB) THEN
+    JS = 2
+    FS = (FS - 0.0024_JPRB)/0.9976_JPRB
+  ELSE
+    JS = 1
+    FS = FS/0.0024_JPRB
+  ENDIF
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(4) + JS
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(4) + JS
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  FS=ZFS(LAY)
+  JS=IJS(LAY)
+!--- jjm
+!  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!  FAC100 = FS * FAC00(LAY)
+!  FAC110 = FS * FAC10(LAY)
+!  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!  FAC101 = FS * FAC01(LAY)
+!  FAC111 = FS * FAC11(LAY)
+!------                   
+  DO IG = 1, NG4
+    TAU (NGS3+IG,LAY) = SPECCOMB(LAY) *   &
+!-- DS_000515
+     &( (1. - FS) *(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +   &
+     &              FAC10(LAY) * ABSB(IND0(LAY)+6,IG) +   &
+     &              FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +   & 
+     &              FAC11(LAY) * ABSB(IND1(LAY)+6,IG))+   &
+     &     FS     *(FAC00(LAY) * ABSB(IND0(LAY)+1,IG) +   &
+     &              FAC10(LAY) * ABSB(IND0(LAY)+7,IG) +   &
+     &              FAC01(LAY) * ABSB(IND1(LAY)+1,IG) +   &
+     &              FAC11(LAY) * ABSB(IND1(LAY)+7,IG)))   &
+!     &(FAC000 * ABSB(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSB(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSB(IND0(LAY)+ 6,IG) +&
+!     & FAC110 * ABSB(IND0(LAY)+ 7,IG) +&
+!     & FAC001 * ABSB(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSB(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSB(IND1(LAY)+ 6,IG) +&
+!     & FAC111 * ABSB(IND1(LAY)+ 7,IG))&
+!-- DS_000515
+     &+ TAUAERL(LAY,4)
+    PFRAC(NGS3+IG,LAY) = FRACREFB(IG,JS) + FS *&
+     &(FRACREFB(IG,JS+1) - FRACREFB(IG,JS))
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL4
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol5.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol5.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol5.F90	(revision 2160)
@@ -0,0 +1,203 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL5 (KLEV,TAU,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,FORFAC,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLCO2, COLO3,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+
+! Modifications
+!
+!     D Salmond 2000-05-15 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC , NGS4
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA5 , ONLY : NG5    ,ABSA   ,ABSB   ,CCL4   , FRACREFA, FRACREFB,&
+            &KA       ,KB     ,SELFREF,STRRAT1, STRRAT2
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+
+IMPLICIT NONE
+
+REAL_B ::     WX(JPXSEC,JPLAY)       ! Amount of trace gases
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+REAL_B :: FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLCO2(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IJS(JPLAY)
+REAL_B :: ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECMULT, SPECPARM
+
+
+!      EQUIVALENCE (TAUAERL(1,5),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+DO LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT1*COLCO2(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(5) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(5) + JS
+  INDS(LAY) = INDSELF(LAY)
+
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG5
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    JS=IJS(LAY)
+!---jjm
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!-----         
+
+    TAU (NGS4+IG,LAY) = SPECCOMB(LAY) *   & 
+!-- DS_000515
+     &( (1. - FS) *(FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &              FAC10(LAY) * ABSA(IND0(LAY)+ 9,IG) +   &
+     &              FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   & 
+     &              FAC11(LAY) * ABSA(IND1(LAY)+ 9,IG))+   &
+     &     FS     *(FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   &
+     &              FAC10(LAY) * ABSA(IND0(LAY)+10,IG) +   &
+     &              FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &              FAC11(LAY) * ABSA(IND1(LAY)+10,IG))) + &
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+ 9,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+10,IG) +&
+!     & FAC001 * ABSA(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSA(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY)+ 9,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+10,IG))+&
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ WX(1,LAY) * CCL4(IG)&
+     &+ TAUAERL(LAY,5)
+    PFRAC(NGS4+IG,LAY) = FRACREFA(IG,JS) + FS *&
+     &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  SPECCOMB(LAY) = COLO3(LAY) + STRRAT2*COLCO2(LAY)
+  SPECPARM = COLO3(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 4._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(5) + JS
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(5) + JS
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  FS=ZFS(LAY)
+  JS=IJS(LAY)
+!----jjm         
+!  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!  FAC100 = FS * FAC00(LAY)
+!  FAC110 = FS * FAC10(LAY)
+!  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!  FAC101 = FS * FAC01(LAY)
+!  FAC111 = FS * FAC11(LAY)
+!----         
+  DO IG = 1, NG5
+!-- DS_000515
+    TAU (NGS4+IG,LAY) = SPECCOMB(LAY) *   & 
+     &( (1. - FS) *(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +   &
+     &              FAC10(LAY) * ABSB(IND0(LAY)+5,IG) +   &
+     &              FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +   & 
+     &              FAC11(LAY) * ABSB(IND1(LAY)+5,IG))+   &
+     &     FS     *(FAC00(LAY) * ABSB(IND0(LAY)+1,IG) +   &
+     &              FAC10(LAY) * ABSB(IND0(LAY)+6,IG) +   &
+     &              FAC01(LAY) * ABSB(IND1(LAY)+1,IG) +   &
+     &              FAC11(LAY) * ABSB(IND1(LAY)+6,IG)))   &
+!     &(FAC000 * ABSB(IND0(LAY)  ,IG) +&
+!     & FAC100 * ABSB(IND0(LAY)+1,IG) +&
+!     & FAC010 * ABSB(IND0(LAY)+5,IG) +&
+!     & FAC110 * ABSB(IND0(LAY)+6,IG) +&
+!     & FAC001 * ABSB(IND1(LAY)  ,IG) +&
+!     & FAC101 * ABSB(IND1(LAY)+1,IG) +&
+!     & FAC011 * ABSB(IND1(LAY)+5,IG) +&
+!     & FAC111 * ABSB(IND1(LAY)+6,IG))&
+!-- DS_000515
+     &+ WX(1,LAY) * CCL4(IG)&
+     &+ TAUAERL(LAY,5)
+    PFRAC(NGS4+IG,LAY) = FRACREFB(IG,JS) + FS *&
+     &(FRACREFB(IG,JS+1) - FRACREFB(IG,JS))
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL5
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol6.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol6.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol6.F90	(revision 2160)
@@ -0,0 +1,113 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL6 (KLEV,TAU,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC   , NGS5
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA6 , ONLY : NG6    ,ABSA   ,ABSCO2 ,CFC11ADJ , CFC12 ,&
+            &FRACREFA, KA     ,SELFREF
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+REAL_B :: WX(JPXSEC,JPLAY)              ! Amount of trace gases
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: CO2MULT(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, LAY
+
+!      EQUIVALENCE (TAUAERL(1,6),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and
+!     temperature. The water vapor self-continuum is interpolated
+!     (in temperature) separately.  
+
+DO LAY = 1, LAYTROP
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(6) + 1
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(6) + 1
+  INDS(LAY) = INDSELF(LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG6
+  DO LAY = 1, LAYTROP
+!-- DS_000515  
+    TAU (NGS5+IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSA(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSA(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSA(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSA(IND1(LAY)+1,IG) +&
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY)*&
+     &(SELFREF(INDS(LAY)+1,IG)-SELFREF(INDS(LAY),IG))))&
+     &+ WX(2,LAY) * CFC11ADJ(IG)&
+     &+ WX(3,LAY) * CFC12(IG)&
+     &+ CO2MULT(LAY) * ABSCO2(IG)&
+     &+ TAUAERL(LAY,6)
+    PFRAC(NGS5+IG,LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+!     Nothing important goes on above LAYTROP in this band.
+!-- JJM_000517
+DO IG = 1, NG6
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS5+IG,LAY) = _ZERO_ &
+     &+ WX(2,LAY) * CFC11ADJ(IG)&
+     &+ WX(3,LAY) * CFC12(IG)&
+     &+ TAUAERL(LAY,6)
+    PFRAC(NGS5+IG,LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL6
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol7.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol7.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol7.F90	(revision 2160)
@@ -0,0 +1,167 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL7 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLO3,CO2MULT,LAYTROP,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+
+! Modifications
+!
+!     D Salmond 2000-05-15 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NGS6
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA7 , ONLY : NG7    ,ABSA   ,ABSB   ,ABSCO2 ,FRACREFA ,FRACREFB,&
+            &KA       ,KB     ,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+REAL_B :: CO2MULT(JPLAY)
+INTEGER_M :: LAYTROP
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IJS(JPLAY)
+REAL_B :: ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, JS, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: FAC000, FAC001, FAC010, FAC011, FAC100, FAC101,&
+          &FAC110, FAC111, FS, SPECMULT, SPECPARM
+
+
+!      EQUIVALENCE (TAUAERL(1,7),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.
+  
+DO LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT*COLO3(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*SPECPARM
+  JS = 1 + INT(SPECMULT)
+  FS = MOD(SPECMULT,_ONE_)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(7) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(7) + JS
+  INDS(LAY) = INDSELF(LAY)
+  ZFS(LAY)=FS
+  IJS(LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG7
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    JS=IJS(LAY)
+!---jjm        
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!-----
+
+    TAU (NGS6+IG,LAY) = SPECCOMB(LAY) *&
+!-- DS_000515
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+ 9,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+10,IG) +&
+!     & FAC001 * ABSA(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSA(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY)+ 9,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+10,IG))+&
+     &( (1. - FS) *(FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &              FAC10(LAY) * ABSA(IND0(LAY)+ 9,IG) +   &
+     &              FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   & 
+     &              FAC11(LAY) * ABSA(IND1(LAY)+ 9,IG))+   &
+     &     FS     *(FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   &
+     &              FAC10(LAY) * ABSA(IND0(LAY)+10,IG) +   &
+     &              FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &              FAC11(LAY) * ABSA(IND1(LAY)+10,IG))) + &
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ CO2MULT(LAY) * ABSCO2(IG)&
+     &+ TAUAERL(LAY,7)
+    PFRAC(NGS6+IG,LAY) = FRACREFA(IG,JS) + FS *&
+     &(FRACREFA(IG,JS+1) - FRACREFA(IG,JS))
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(7) + 1
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(7) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG7
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS6+IG,LAY) = COLO3(LAY) *&
+     &(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSB(IND1(LAY)+1,IG))&
+     &+ CO2MULT(LAY) * ABSCO2(IG)&
+     &+ TAUAERL(LAY,7)
+    PFRAC(NGS6+IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL7
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol8.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol8.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol8.F90	(revision 2160)
@@ -0,0 +1,148 @@
+!*******************************************************************************
+SUBROUTINE RRTM_TAUMOL8 (KLEV,TAU,WX,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,&
+  &COLH2O,COLO3,COLN2O,CO2MULT,LAYSWTCH,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS7
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA8 , ONLY : NG8    ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &KA      , KB     ,SELFREF,ABSCO2A , ABSCO2B ,&
+            &ABSN2OA , ABSN2OB,CFC12  ,CFC22ADJ, H2OREF  ,&
+            &N2OREF  , O3REF
+
+!  Input
+!#include "yoeratm.h"
+
+
+IMPLICIT NONE
+
+REAL_B :: WX(JPXSEC,JPLAY)             ! Amount of trace gases
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLO3 (JPLAY)
+REAL_B :: COLN2O(JPLAY)
+REAL_B :: CO2MULT(JPLAY)
+INTEGER_M :: LAYSWTCH
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!      REAL TAUAER(JPLAY)
+REAL_B :: N2OMULT(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, LAY
+
+!     LOCAL REAL SCALARS
+REAL_B :: COLREF1, COLREF2, CURRN2O, FP, RATIO, WCOMB1, WCOMB2
+
+!      EQUIVALENCE (TAUAERL(1,8),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  
+
+DO LAY = 1, LAYSWTCH
+  FP = FAC01(LAY) + FAC11(LAY)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(8) + 1
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(8) + 1
+  INDS(LAY) = INDSELF(LAY)
+  COLREF1 = N2OREF(JP(LAY))
+  COLREF2 = N2OREF(JP(LAY)+1)
+  WCOMB1 = _ONE_/H2OREF(JP(LAY))
+  WCOMB2 = _ONE_/H2OREF(JP(LAY)+1)
+  RATIO = (COLREF1*WCOMB1)+FP*((COLREF2*WCOMB2)-(COLREF1*WCOMB1))
+  CURRN2O = COLH2O(LAY) * RATIO
+  N2OMULT(LAY) = COLN2O(LAY) - CURRN2O
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG8
+  DO LAY = 1, LAYSWTCH
+!-- DS_000515
+    TAU (NGS7+IG,LAY) = COLH2O(LAY) *&
+     &(FAC00(LAY) * ABSA(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSA(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSA(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSA(IND1(LAY)+1,IG) +&
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG))))&
+     &+ WX(3,LAY) * CFC12(IG)&
+     &+ WX(4,LAY) * CFC22ADJ(IG)&
+     &+ CO2MULT(LAY) * ABSCO2A(IG)&
+     &+ N2OMULT(LAY) * ABSN2OA(IG)&
+     &+ TAUAERL(LAY,8)
+    PFRAC(NGS7+IG,LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO LAY = LAYSWTCH+1, KLEV
+  FP = FAC01(LAY) + FAC11(LAY)
+  IND0(LAY) = ((JP(LAY)-7)*5+(JT(LAY)-1))*NSPB(8) + 1
+  IND1(LAY) = ((JP(LAY)-6)*5+(JT1(LAY)-1))*NSPB(8) + 1
+  COLREF1 = N2OREF(JP(LAY))
+  COLREF2 = N2OREF(JP(LAY)+1)
+  WCOMB1 = _ONE_/O3REF(JP(LAY))
+  WCOMB2 = _ONE_/O3REF(JP(LAY)+1)
+  RATIO = (COLREF1*WCOMB1)+FP*((COLREF2*WCOMB2)-(COLREF1*WCOMB1))
+  CURRN2O = COLO3(LAY) * RATIO
+  N2OMULT(LAY) = COLN2O(LAY) - CURRN2O
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG8
+  DO LAY = LAYSWTCH+1, KLEV
+!-- JJM_000517
+    TAU (NGS7+IG,LAY) = COLO3(LAY) *&
+     &(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSB(IND1(LAY)+1,IG)) &
+     &+ WX(3,LAY) * CFC12(IG)&
+     &+ WX(4,LAY) * CFC22ADJ(IG)&
+     &+ CO2MULT(LAY) * ABSCO2B(IG)&
+     &+ N2OMULT(LAY) * ABSN2OB(IG)&
+     &+ TAUAERL(LAY,8)
+    PFRAC(NGS7+IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL8
Index: LMDZ5/branches/testing/libf/phymar/rrtm_taumol9.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/rrtm_taumol9.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/rrtm_taumol9.F90	(revision 2160)
@@ -0,0 +1,209 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL9 (KLEV,TAU,&
+  &TAUAERL,FAC00,FAC01,FAC10,FAC11,JP,JT,JT1,ONEMINUS,&
+  &COLH2O,COLN2O,COLCH4,LAYTROP,LAYSWTCH,LAYLOW,SELFFAC,SELFFRAC,INDSELF,PFRAC)
+
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+
+! Modifications
+!
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+
+#include "tsmbkind.h"
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC  , NGS8
+USE YOERRTWN , ONLY : NG     ,NSPA   ,NSPB
+USE YOERRTA9 , ONLY : NG9    ,ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+            &KA      , KB     ,SELFREF,ABSN2O  , CH4REF  ,&
+            &ETAREF  , H2OREF ,N2OREF ,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+
+IMPLICIT NONE
+
+!  Output
+REAL_B :: TAU   (JPGPT,JPLAY)
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!- from AER
+REAL_B :: TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL_B :: FAC00(JPLAY)
+REAL_B :: FAC01(JPLAY)
+REAL_B :: FAC10(JPLAY)
+REAL_B :: FAC11(JPLAY)
+
+!- from INTIND
+INTEGER_M :: JP(JPLAY)
+INTEGER_M :: JT(JPLAY)
+INTEGER_M :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL_B :: ONEMINUS
+
+!- from PROFDATA             
+REAL_B :: COLH2O(JPLAY)
+REAL_B :: COLN2O(JPLAY)
+REAL_B :: COLCH4(JPLAY)
+INTEGER_M :: LAYTROP
+INTEGER_M :: LAYSWTCH
+INTEGER_M :: LAYLOW
+
+!- from SELF             
+REAL_B :: SELFFAC(JPLAY)
+REAL_B :: SELFFRAC(JPLAY)
+INTEGER_M :: INDSELF(JPLAY)
+
+!- from SP             
+REAL_B :: PFRAC(JPGPT,JPLAY)
+
+INTEGER_M :: JFRAC(JPLAY)
+REAL_B :: FFRAC(JPLAY),ZFS(JPLAY),SPECCOMB(JPLAY)
+INTEGER_M :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY),IIOFF(JPLAY)
+
+!      REAL TAUAER(JPLAY)
+REAL_B :: N2OMULT(JPLAY)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IG, IOFF, JS, LAY, NS
+
+!     LOCAL REAL SCALARS
+REAL_B :: COLREF1, COLREF2, CURRN2O, FAC000, FAC001,&
+          &FAC010, FAC011, FAC100, FAC101, FAC110, FAC111, &
+          &FP, FS, RATIO, SPECMULT, SPECPARM, WCOMB1, &
+          &WCOMB2
+
+!      EQUIVALENCE (TAUAERL(1,9),TAUAER)
+
+IOFF = 0
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.
+  
+DO LAY = 1, LAYTROP
+  SPECCOMB(LAY) = COLH2O(LAY) + STRRAT*COLCH4(LAY)
+  SPECPARM = COLH2O(LAY)/SPECCOMB(LAY)
+  SPECPARM=MIN(ONEMINUS,SPECPARM)
+  SPECMULT = 8._JPRB*(SPECPARM)
+  JS = 1 + INT(SPECMULT)
+  JFRAC(LAY) = JS
+  FS = MOD(SPECMULT,_ONE_)
+  FFRAC(LAY) = FS
+  IF (JS  ==  8) THEN
+    IF (FS.LE. 0.68_JPRB) THEN
+      FS = FS/0.68_JPRB
+    ELSEIF (FS  <=  0.92_JPRB) THEN
+      JS = JS + 1
+      FS = (FS-0.68_JPRB)/0.24_JPRB
+    ELSE
+      JS = JS + 2
+      FS = (FS-0.92_JPRB)/0.08_JPRB
+    ENDIF
+  ELSEIF (JS  == 9) THEN
+    JS = 10
+    FS = _ONE_
+    JFRAC(LAY) = 8
+    FFRAC(LAY) = _ONE_
+  ENDIF
+  FP = FAC01(LAY) + FAC11(LAY)
+  NS = JS + INT(FS + _HALF_)
+  IND0(LAY) = ((JP(LAY)-1)*5+(JT(LAY)-1))*NSPA(9) + JS
+  IND1(LAY) = (JP(LAY)*5+(JT1(LAY)-1))*NSPA(9) + JS
+  INDS(LAY) = INDSELF(LAY)
+  IF (LAY  ==  LAYLOW) IOFF = NG9
+  IF (LAY  ==  LAYSWTCH) IOFF = 2*NG9
+  COLREF1 = N2OREF(JP(LAY))
+  COLREF2 = N2OREF(JP(LAY)+1)
+  IF (NS  ==  11) THEN
+    WCOMB1 = _ONE_/H2OREF(JP(LAY))
+    WCOMB2 = _ONE_/H2OREF(JP(LAY)+1)
+  ELSE
+    WCOMB1 = (_ONE_-ETAREF(NS))/(STRRAT * CH4REF(JP(LAY)))
+    WCOMB2 = (_ONE_-ETAREF(NS))/(STRRAT * CH4REF(JP(LAY)+1))
+  ENDIF
+  RATIO = (COLREF1*WCOMB1)+FP*((COLREF2*WCOMB2)-(COLREF1*WCOMB1))
+  CURRN2O = SPECCOMB(LAY) * RATIO
+  N2OMULT(LAY) = COLN2O(LAY) - CURRN2O
+
+  ZFS(LAY)=FS
+  IIOFF(LAY)=IOFF
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG9
+  DO LAY = 1, LAYTROP
+!-- DS_000515
+
+    FS=ZFS(LAY)
+    IOFF=IIOFF(LAY)
+!---jjm
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!------         
+
+    TAU (NGS8+IG,LAY) = SPECCOMB(LAY) *&
+!-- DS_000515
+!     &(FAC000 * ABSA(IND0(LAY)   ,IG) +&
+!     & FAC100 * ABSA(IND0(LAY)+ 1,IG) +&
+!     & FAC010 * ABSA(IND0(LAY)+11,IG) +&
+!     & FAC110 * ABSA(IND0(LAY)+12,IG) +&
+!     & FAC001 * ABSA(IND1(LAY)   ,IG) +&
+!     & FAC101 * ABSA(IND1(LAY)+ 1,IG) +&
+!     & FAC011 * ABSA(IND1(LAY)+11,IG) +&
+!     & FAC111 * ABSA(IND1(LAY)+12,IG))+&
+     &( (1. - FS) *(FAC00(LAY) * ABSA(IND0(LAY)   ,IG) +   &
+     &              FAC10(LAY) * ABSA(IND0(LAY)+11,IG) +   &
+     &              FAC01(LAY) * ABSA(IND1(LAY)   ,IG) +   &
+     &              FAC11(LAY) * ABSA(IND1(LAY)+11,IG))+   &
+     &     FS     *(FAC00(LAY) * ABSA(IND0(LAY)+ 1,IG) +   &
+     &              FAC10(LAY) * ABSA(IND0(LAY)+12,IG) +   &
+     &              FAC01(LAY) * ABSA(IND1(LAY)+ 1,IG) +   &
+     &              FAC11(LAY) * ABSA(IND1(LAY)+12,IG))) + &
+!-- DS_000515
+     &COLH2O(LAY) * &
+     &SELFFAC(LAY) * (SELFREF(INDS(LAY),IG) + &
+     &SELFFRAC(LAY) *&
+     &(SELFREF(INDS(LAY)+1,IG) - SELFREF(INDS(LAY),IG)))&
+     &+ N2OMULT(LAY) * ABSN2O(IG+IOFF)&
+     &+ TAUAERL(LAY,9)
+    PFRAC(NGS8+IG,LAY) = FRACREFA(IG,JFRAC(LAY)) + FFRAC(LAY) *&
+     &(FRACREFA(IG,JFRAC(LAY)+1) - FRACREFA(IG,JFRAC(LAY)))
+  ENDDO
+ENDDO
+
+DO LAY = LAYTROP+1, KLEV
+  IND0(LAY) = ((JP(LAY)-13)*5+(JT(LAY)-1))*NSPB(9) + 1
+  IND1(LAY) = ((JP(LAY)-12)*5+(JT1(LAY)-1))*NSPB(9) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG9
+  DO LAY = LAYTROP+1, KLEV
+!-- JJM_000517
+    TAU (NGS8+IG,LAY) = COLCH4(LAY) *&
+     &(FAC00(LAY) * ABSB(IND0(LAY)  ,IG) +&
+     & FAC10(LAY) * ABSB(IND0(LAY)+1,IG) +&
+     & FAC01(LAY) * ABSB(IND1(LAY)  ,IG) +&
+     & FAC11(LAY) * ABSB(IND1(LAY)+1,IG))&
+     &+ TAUAERL(LAY,9)
+    PFRAC(NGS8+IG,LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE RRTM_TAUMOL9
Index: LMDZ5/branches/testing/libf/phymar/strhandler.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/strhandler.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/strhandler.F90	(revision 2160)
@@ -0,0 +1,189 @@
+!OPTIONS NOOPT
+MODULE strhandler
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+PRIVATE
+
+PUBLIC :: tolower, toupper, expand_string
+PUBLIC :: sadjustl, sadjustr
+
+CONTAINS
+
+FUNCTION sadjustl(s) RESULT(c)
+
+character(len=*), intent(in) :: s
+character(len=max(1,len(s))) c
+c = ' '
+if (len(s) > 0) then
+  if (s /= ' ') c = adjustl(s)
+endif
+END FUNCTION sadjustl
+
+FUNCTION sadjustr(s) RESULT(c)
+
+character(len=*), intent(in) :: s
+character(len=max(1,len(s))) c
+c = ' '
+if (len(s) > 0) then
+  if (s /= ' ') c = adjustr(s)
+endif
+END FUNCTION sadjustr
+
+SUBROUTINE tolower(cds)
+
+character(len=*), intent(inout) :: cds
+INTEGER_M, parameter :: ich_a = ichar('a')
+INTEGER_M, parameter :: ichA  = ichar('A')
+INTEGER_M, parameter :: ichZ  = ichar('Z')
+INTEGER_M :: i, ich, new_ich
+character(len=1) ch
+do i=1,len(cds)
+  ch = cds(i:i)
+  ich = ichar(ch)
+  if ( ich >= ichA .and. ich <= ichZ ) then
+    new_ich = ich + (ich_a - ichA)
+    ch = char(new_ich)
+    cds(i:i) = ch
+  endif
+enddo
+END SUBROUTINE tolower
+
+
+SUBROUTINE toupper(cds)
+
+character(len=*), intent(inout) :: cds
+INTEGER_M, parameter :: ich_A = ichar('A')
+INTEGER_M, parameter :: icha  = ichar('a')
+INTEGER_M, parameter :: ichz  = ichar('z')
+INTEGER_M :: i, ich, new_ich
+character(len=1) ch
+do i=1,len(cds)
+  ch = cds(i:i)
+  ich = ichar(ch)
+  if ( ich >= icha .and. ich <= ichz ) then
+    new_ich = ich + (ich_A - icha)
+    ch = char(new_ich)
+    cds(i:i) = ch
+  endif
+enddo
+END SUBROUTINE toupper
+
+
+SUBROUTINE expand_string(&
+     &myproc,               &! %p
+     &nproc,                &! %n
+     &timestep,             &! %t
+     &max_timestep,&
+     &s)                   ! %s
+
+INTEGER_M, intent(in)          :: myproc, nproc
+INTEGER_M, intent(in)          :: timestep, max_timestep
+character(len=*), intent(inout) :: s(:)
+character(len=2*len(s))  t
+character(len=2*len(s)) tt
+INTEGER_M :: i, j, jj, loc_p, len_t, n
+INTEGER_M :: ndigs(4), num(4)
+character(len=6) fmt(4)
+
+n = size(s)
+
+if (n < 1) return
+
+!*    Setup output formats
+num(1) = myproc
+num(2) = max(nproc,myproc)
+num(3) = n
+num(4) = max(max_timestep,timestep)
+
+!*    Count number of digits in each integer
+do j=1,4
+  ndigs(j) = 1
+  if (num(j) /= 0) then
+    ndigs(j) = 1 + log10(dble(abs(num(j))))
+    if (num(j) < 0) ndigs(j) = ndigs(j) + 1 ! Room for minus sign
+  endif
+  ndigs(j) = min(int(ndigs(j)),9)   ! Max 9 digits supported; i.e. '999999999'
+  write(fmt(j),'("(i",i1,")")') ndigs(j)
+enddo
+
+
+!*    Expand fields '%s', '%p', '%n' and '%t' with their values
+
+
+!*    A special treatment with the sequence numbering
+if (n>1) then
+  loc_p = index(s(1),'%s')
+  if (loc_p > 0) then
+    s(2:) = s(1)
+  endif
+endif
+
+do i=1,n
+  t = adjustl(s(i))//' '
+  loc_p = index(t,'%')
+
+  if (loc_p > 0) then
+    len_t = len_trim(t)
+    j = loc_p
+    tt(:j-1) = t(:j-1)
+    tt(j:) = ' '
+    jj = j-1
+
+    do while (j <= len_t)
+      if (t(j:j) == '%') then
+        j = j + 1
+        if (j <= len_t) then
+          select case ( t(j:j) )
+          case ( 'p' )   ! myproc
+          write(tt(jj+1:jj+ndigs(1)),fmt(1)) myproc
+          jj = jj + ndigs(1)
+          case ( 'n' )   ! nproc
+          write(tt(jj+1:jj+ndigs(2)),fmt(2)) nproc
+          jj = jj + ndigs(2)
+          case ( 's' )   ! sequence number i=[1..n]
+          write(tt(jj+1:jj+ndigs(3)),fmt(3)) i
+          jj = jj + ndigs(3)
+          case ( 't' )   ! timestep
+          write(tt(jj+1:jj+ndigs(4)),fmt(4)) timestep
+          jj = jj + ndigs(4)
+          case default
+          tt(jj+1:jj+2) = '%'//t(j:j)
+          jj = jj + 2
+          end select
+        else
+          tt(jj+1:jj+1) = '%'
+          jj = jj + 1
+        endif
+      else
+        tt(jj+1:jj+1) = t(j:j)
+        jj = jj + 1
+      endif
+      j = j + 1
+    enddo
+
+    t = adjustl(tt)
+
+!*   Get also rid of any blanks in the middle of the string
+
+    len_t = len_trim(t)
+    j = 1
+    do while (j < len_t)
+      if (t(j:j) == ' ') then
+        t(j:) = t(j+1:)
+        len_t = len_trim(t)
+      else
+        j = j + 1
+      endif
+    enddo
+
+  endif
+
+  s(i) = t
+enddo
+
+END SUBROUTINE expand_string
+
+END MODULE strhandler
Index: LMDZ5/branches/testing/libf/phymar/suaerh.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suaerh.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suaerh.F90	(revision 2160)
@@ -0,0 +1,213 @@
+SUBROUTINE SUAERH
+
+
+!**** *SUAERH* - SETS UP THE AEROSOL HORIZONTAL DISTRIBUTION
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE FETCHES VALUES OF A T10 SPECTRAL DISTRIBUTION
+!     FOR FOUR AEROSOL TYPES OF DIFFERENT ORIGINS (SEA,LAND,URBAN AREAS
+!     AND DESERTS). THE VALUES TO BE OBTAINED ARE BETWEEN ZERO AND ONE.
+
+!**   INTERFACE.
+!     ----------
+
+!          THERE ARE EIGHT DUMMY ARGUMENTS: *PAESC*, *PAESS*, *PAELC*,
+!     *PAELS*, *PAEUC*, *PAEUS*, *PAEDC* AND *PAEDS*ARE ARRAYS FOR THE
+!     T10 DISTRIBUTIONS (*S FOR SEA, *L FOR LAND, *U FOR URBAN AND *D
+!     FOR DESERT, *C FOR COSINE AND *S FOR SINE).
+
+!     METHOD.
+!     -------
+
+!          NONE.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+!     AUTHOR
+!     ------
+!     J.-F. GELEYN      E.C.M.W.F.     29/09/82.
+
+!     MODIFICATIONS
+!     -------------
+!     J.-J. MORCRETTE   E.C.M.W.F.     91/07/14   ADAPTATION TO I.F.S.
+
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOEAERD  , ONLY : RCAEROS  ,RAESC    ,RAESS    ,RAELC    ,&
+            &RAELS    ,RAEUC    ,RAEUS    ,RAEDC    ,RAEDS
+
+
+IMPLICIT NONE
+
+
+!     ------------------------------------------------------------------
+
+!*    DATA STATEMENTS.
+!     ---- -----------
+
+!          *RAE S/L/U/D C/S*  (SEE ABOVE).
+
+RAESC = (/&
+&+.6688E+00_JPRB,-.1172E+00_JPRB,-.1013E+00_JPRB,+.1636E-01_JPRB,-.3699E-01_JPRB,+.1775E-01_JPRB,&
+     &-.9635E-02_JPRB,+.1290E-02_JPRB,+.4681E-04_JPRB,-.9106E-04_JPRB,+.9355E-04_JPRB,&
+           &-.7076E-01_JPRB,-.1782E-01_JPRB,+.1856E-01_JPRB,+.1372E-01_JPRB,+.8210E-04_JPRB,&
+     &+.2149E-02_JPRB,+.4856E-03_JPRB,+.2231E-03_JPRB,+.1824E-03_JPRB,+.1960E-05_JPRB,&
+                      &+.2057E-01_JPRB,+.2703E-01_JPRB,+.2424E-01_JPRB,+.9716E-02_JPRB,&
+     &+.1312E-02_JPRB,-.8846E-03_JPRB,-.3347E-03_JPRB,+.6231E-04_JPRB,+.6397E-04_JPRB,&
+                                 &-.3341E-02_JPRB,-.1295E-01_JPRB,-.4598E-02_JPRB,&
+     &+.3242E-03_JPRB,+.8122E-03_JPRB,-.2975E-03_JPRB,-.7757E-04_JPRB,+.7793E-04_JPRB,&
+                                            &+.4455E-02_JPRB,-.1584E-01_JPRB,&
+     &-.2551E-02_JPRB,+.1174E-02_JPRB,+.1335E-04_JPRB,+.5112E-04_JPRB,+.5605E-04_JPRB,&
+                                                       &+.7412E-04_JPRB,&
+     &+.1857E-02_JPRB,-.1917E-03_JPRB,+.4460E-03_JPRB,+.1767E-04_JPRB,-.5281E-04_JPRB,&
+     &-.5043E-03_JPRB,+.2467E-03_JPRB,-.2497E-03_JPRB,-.2377E-04_JPRB,-.3954E-04_JPRB,&
+                &+.2666E-03_JPRB,-.8186E-03_JPRB,-.1441E-03_JPRB,-.1904E-04_JPRB,&
+                           &+.3337E-03_JPRB,-.1696E-03_JPRB,-.2503E-04_JPRB,&
+                                      &+.1239E-03_JPRB,-.9983E-04_JPRB,&
+                                                 &-.5283E-04_JPRB &
+         &/)
+RAESS = (/&
+           &-.3374E-01_JPRB,-.3247E-01_JPRB,-.1012E-01_JPRB,+.6002E-02_JPRB,+.5190E-02_JPRB,&
+     &+.7784E-03_JPRB,-.1090E-02_JPRB,+.3294E-03_JPRB,+.1719E-03_JPRB,-.5866E-05_JPRB,&
+                      &-.4124E-03_JPRB,-.3742E-01_JPRB,-.5054E-02_JPRB,+.3430E-02_JPRB,&
+     &+.5513E-03_JPRB,-.6235E-03_JPRB,+.2892E-03_JPRB,-.9730E-04_JPRB,+.7078E-04_JPRB,&
+                                 &-.3300E-01_JPRB,+.5104E-03_JPRB,-.2156E-02_JPRB,&
+     &-.3194E-02_JPRB,-.5079E-03_JPRB,-.5517E-03_JPRB,+.4632E-04_JPRB,+.5369E-04_JPRB,&
+                                            &-.2731E-01_JPRB,+.5126E-02_JPRB,&
+     &+.2241E-02_JPRB,-.5789E-03_JPRB,-.3048E-03_JPRB,-.1774E-03_JPRB,+.1946E-05_JPRB,&
+                                                       &-.8247E-02_JPRB,&
+     &+.2338E-02_JPRB,+.1021E-02_JPRB,+.1575E-04_JPRB,+.2612E-05_JPRB,+.1995E-04_JPRB,&
+     &-.1319E-02_JPRB,+.1384E-02_JPRB,-.4159E-03_JPRB,-.2337E-03_JPRB,+.5764E-04_JPRB,&
+                &+.1495E-02_JPRB,-.3727E-03_JPRB,+.6075E-04_JPRB,-.4642E-04_JPRB,&
+                           &+.5368E-03_JPRB,-.7619E-04_JPRB,+.3774E-04_JPRB,&
+                                      &+.1206E-03_JPRB,-.4104E-06_JPRB,&
+                                                 &+.2158E-04_JPRB &
+         &/)
+RAELC = (/&
+&+.1542E+00_JPRB,+.8245E-01_JPRB,-.1879E-03_JPRB,+.4864E-02_JPRB,-.5527E-02_JPRB,-.7966E-02_JPRB,&
+     &-.2683E-02_JPRB,-.2011E-02_JPRB,-.8889E-03_JPRB,-.1058E-03_JPRB,-.1614E-04_JPRB,&
+           &+.4206E-01_JPRB,+.1912E-01_JPRB,-.9476E-02_JPRB,-.6780E-02_JPRB,+.1767E-03_JPRB,&
+     &-.5422E-03_JPRB,-.7753E-03_JPRB,-.2106E-03_JPRB,-.9870E-04_JPRB,-.1721E-04_JPRB,&
+                      &-.9536E-02_JPRB,-.9580E-02_JPRB,-.1050E-01_JPRB,-.5747E-02_JPRB,&
+     &-.1282E-02_JPRB,+.2248E-03_JPRB,+.1694E-03_JPRB,-.4782E-04_JPRB,-.2441E-04_JPRB,&
+                                 &+.5781E-03_JPRB,+.6212E-02_JPRB,+.1921E-02_JPRB,&
+     &-.1102E-02_JPRB,-.8145E-03_JPRB,+.2497E-03_JPRB,+.1539E-03_JPRB,-.2538E-04_JPRB,&
+                                            &-.3993E-02_JPRB,+.9777E-02_JPRB,&
+     &+.4837E-03_JPRB,-.1304E-02_JPRB,+.2417E-04_JPRB,-.1370E-04_JPRB,-.3731E-05_JPRB,&
+                                                       &+.1922E-02_JPRB,&
+     &-.5167E-03_JPRB,+.4295E-03_JPRB,-.1888E-03_JPRB,+.2427E-04_JPRB,+.4012E-04_JPRB,&
+     &+.1529E-02_JPRB,-.2120E-03_JPRB,+.8166E-04_JPRB,+.2579E-04_JPRB,+.3488E-04_JPRB,&
+                &+.2140E-03_JPRB,+.2274E-03_JPRB,-.3447E-05_JPRB,-.1075E-04_JPRB,&
+                           &-.1018E-03_JPRB,+.2864E-04_JPRB,+.3442E-04_JPRB,&
+                                      &-.1002E-03_JPRB,+.7117E-04_JPRB,&
+                                                 &+.2045E-04_JPRB &
+         &/)
+RAELS = (/&
+           &+.1637E-01_JPRB,+.1935E-01_JPRB,+.1080E-01_JPRB,+.2784E-02_JPRB,+.1606E-03_JPRB,&
+     &+.1860E-02_JPRB,+.1263E-02_JPRB,-.2707E-03_JPRB,-.2290E-03_JPRB,-.9761E-05_JPRB,&
+                      &-.7317E-02_JPRB,+.2465E-01_JPRB,+.6799E-02_JPRB,-.1913E-02_JPRB,&
+     &+.1382E-02_JPRB,+.6691E-03_JPRB,+.1414E-03_JPRB,+.3527E-04_JPRB,-.5210E-04_JPRB,&
+                                 &+.1873E-01_JPRB,+.2977E-02_JPRB,+.4650E-02_JPRB,&
+     &+.2509E-02_JPRB,+.3680E-03_JPRB,+.1481E-03_JPRB,-.6594E-04_JPRB,-.5634E-04_JPRB,&
+                                            &+.1592E-01_JPRB,-.1875E-02_JPRB,&
+     &-.1093E-02_JPRB,+.3022E-03_JPRB,+.2625E-03_JPRB,+.3252E-04_JPRB,-.3803E-04_JPRB,&
+                                                       &+.4218E-02_JPRB,&
+     &-.1843E-02_JPRB,-.1351E-02_JPRB,-.2952E-03_JPRB,-.8171E-05_JPRB,-.1473E-04_JPRB,&
+     &+.9076E-03_JPRB,-.1057E-02_JPRB,+.2676E-03_JPRB,+.1307E-03_JPRB,-.3628E-04_JPRB,&
+                &-.9158E-03_JPRB,+.4335E-03_JPRB,+.2927E-04_JPRB,+.6602E-04_JPRB,&
+                           &-.3570E-03_JPRB,+.5760E-04_JPRB,-.3465E-04_JPRB,&
+                                      &-.8535E-04_JPRB,-.2011E-04_JPRB,&
+                                                 &+.6612E-06_JPRB &
+         &/)
+RAEUC = (/&
+&+.8005E-01_JPRB,+.7095E-01_JPRB,+.2014E-01_JPRB,-.1412E-01_JPRB,-.2425E-01_JPRB,-.1332E-01_JPRB,&
+     &-.2904E-02_JPRB,+.5068E-03_JPRB,+.9369E-03_JPRB,+.4114E-03_JPRB,+.7549E-04_JPRB,&
+           &+.1922E-01_JPRB,+.2534E-01_JPRB,+.2088E-01_JPRB,+.1064E-01_JPRB,+.1063E-02_JPRB,&
+     &-.2526E-02_JPRB,-.2091E-02_JPRB,-.9660E-03_JPRB,-.2030E-03_JPRB,+.3865E-04_JPRB,&
+                      &-.9900E-02_JPRB,-.5964E-02_JPRB,+.2223E-02_JPRB,+.4941E-02_JPRB,&
+     &+.3277E-02_JPRB,+.1038E-02_JPRB,-.1480E-03_JPRB,-.2844E-03_JPRB,-.1208E-03_JPRB,&
+                                 &+.3999E-02_JPRB,+.6282E-02_JPRB,+.2813E-02_JPRB,&
+     &+.1475E-02_JPRB,+.4571E-03_JPRB,-.1349E-03_JPRB,-.9011E-04_JPRB,-.1936E-04_JPRB,&
+                                            &+.1994E-02_JPRB,+.3540E-02_JPRB,&
+     &+.8837E-03_JPRB,+.1992E-03_JPRB,+.3092E-04_JPRB,-.7979E-04_JPRB,-.2664E-04_JPRB,&
+                                                       &-.5006E-04_JPRB,&
+     &+.6447E-03_JPRB,+.5550E-03_JPRB,+.1197E-03_JPRB,+.6657E-04_JPRB,+.1488E-04_JPRB,&
+     &-.9141E-04_JPRB,-.2896E-03_JPRB,-.1561E-03_JPRB,-.6524E-04_JPRB,-.1559E-04_JPRB,&
+                &-.1082E-03_JPRB,-.4126E-03_JPRB,-.1732E-03_JPRB,-.8286E-04_JPRB,&
+                           &-.1993E-04_JPRB,+.3850E-04_JPRB,+.2870E-04_JPRB,&
+                                      &+.4493E-04_JPRB,+.4721E-04_JPRB,&
+                                                 &+.1338E-04_JPRB &
+         &/)
+RAEUS = (/&
+           &+.6646E-02_JPRB,+.8373E-02_JPRB,+.5463E-02_JPRB,+.4554E-02_JPRB,+.3301E-02_JPRB,&
+     &+.5725E-03_JPRB,-.7482E-03_JPRB,-.6222E-03_JPRB,-.2603E-03_JPRB,-.5127E-04_JPRB,&
+                      &-.3849E-04_JPRB,+.9741E-02_JPRB,+.8190E-02_JPRB,+.5712E-02_JPRB,&
+     &+.3039E-02_JPRB,+.5290E-03_JPRB,-.2044E-03_JPRB,-.2309E-03_JPRB,-.1160E-03_JPRB,&
+                                 &+.9160E-02_JPRB,+.1286E-01_JPRB,+.1170E-01_JPRB,&
+     &+.5491E-02_JPRB,+.1393E-02_JPRB,-.6288E-04_JPRB,-.2715E-03_JPRB,-.1047E-03_JPRB,&
+                                            &+.4873E-02_JPRB,+.3545E-02_JPRB,&
+     &+.3069E-02_JPRB,+.1819E-02_JPRB,+.6947E-03_JPRB,+.1416E-03_JPRB,-.1538E-04_JPRB,&
+                                                       &-.4351E-03_JPRB,&
+     &-.1907E-02_JPRB,-.5774E-03_JPRB,-.2247E-03_JPRB,+.5345E-04_JPRB,+.9052E-04_JPRB,&
+     &-.3972E-04_JPRB,-.9665E-04_JPRB,+.7912E-04_JPRB,-.1094E-04_JPRB,-.6776E-05_JPRB,&
+                &+.2724E-03_JPRB,+.1973E-03_JPRB,+.6837E-04_JPRB,+.4313E-04_JPRB,&
+                           &-.7174E-05_JPRB,+.8527E-05_JPRB,-.2160E-05_JPRB,&
+                                      &-.7852E-04_JPRB,+.3453E-06_JPRB,&
+                                                 &-.2402E-05_JPRB &
+         &/)
+RAEDC = (/&
+&+.2840E-01_JPRB,+.1775E-01_JPRB,-.1069E-01_JPRB,-.1553E-01_JPRB,-.3299E-02_JPRB,+.3583E-02_JPRB,&
+     &+.2274E-02_JPRB,+.5767E-04_JPRB,-.3678E-03_JPRB,-.1050E-03_JPRB,+.2133E-04_JPRB,&
+           &+.2326E-01_JPRB,+.1566E-01_JPRB,-.3130E-02_JPRB,-.8253E-02_JPRB,-.2615E-02_JPRB,&
+     &+.1247E-02_JPRB,+.1059E-02_JPRB,+.1196E-03_JPRB,-.1303E-03_JPRB,-.5094E-04_JPRB,&
+                      &+.1185E-01_JPRB,+.7238E-02_JPRB,-.1562E-02_JPRB,-.3665E-02_JPRB,&
+     &-.1182E-02_JPRB,+.4678E-03_JPRB,+.4448E-03_JPRB,+.8307E-04_JPRB,-.3468E-04_JPRB,&
+                                 &+.5273E-02_JPRB,+.3037E-02_JPRB,-.4014E-03_JPRB,&
+     &-.1202E-02_JPRB,-.4647E-03_JPRB,+.5148E-04_JPRB,+.1014E-03_JPRB,+.2996E-04_JPRB,&
+                                            &+.2505E-02_JPRB,+.1495E-02_JPRB,&
+     &+.2438E-03_JPRB,-.1223E-03_JPRB,-.7669E-04_JPRB,-.1638E-04_JPRB,+.1869E-05_JPRB,&
+                                                       &+.1094E-02_JPRB,&
+     &+.6131E-03_JPRB,+.1508E-03_JPRB,+.1765E-04_JPRB,+.1360E-05_JPRB,-.7998E-06_JPRB,&
+     &+.4475E-03_JPRB,+.2737E-03_JPRB,+.6430E-04_JPRB,-.6759E-05_JPRB,-.6761E-05_JPRB,&
+                &+.1992E-03_JPRB,+.1531E-03_JPRB,+.4828E-04_JPRB,+.5103E-06_JPRB,&
+                           &+.7454E-04_JPRB,+.5917E-04_JPRB,+.2152E-04_JPRB,&
+                                      &+.9300E-05_JPRB,+.9790E-05_JPRB,&
+                                                 &-.8853E-05_JPRB &
+         &/)
+RAEDS = (/&
+           &+.9815E-02_JPRB,+.8436E-02_JPRB,+.1087E-02_JPRB,-.2717E-02_JPRB,-.1755E-02_JPRB,&
+     &-.1559E-03_JPRB,+.2367E-03_JPRB,+.8808E-04_JPRB,+.2001E-05_JPRB,-.1244E-05_JPRB,&
+                      &+.1041E-01_JPRB,+.8039E-02_JPRB,+.1005E-02_JPRB,-.1981E-02_JPRB,&
+     &-.1090E-02_JPRB,+.1595E-05_JPRB,+.1787E-03_JPRB,+.4644E-04_JPRB,-.1052E-04_JPRB,&
+                                 &+.6593E-02_JPRB,+.3983E-02_JPRB,-.1527E-03_JPRB,&
+     &-.1235E-02_JPRB,-.5078E-03_JPRB,+.3649E-04_JPRB,+.1005E-03_JPRB,+.3182E-04_JPRB,&
+                                            &+.3225E-02_JPRB,+.1672E-02_JPRB,&
+     &-.7752E-04_JPRB,-.4312E-03_JPRB,-.1872E-03_JPRB,-.1666E-04_JPRB,+.1872E-04_JPRB,&
+                                                       &+.1133E-02_JPRB,&
+     &+.5643E-03_JPRB,+.7747E-04_JPRB,-.2980E-04_JPRB,-.2092E-04_JPRB,-.8590E-05_JPRB,&
+     &+.2988E-03_JPRB,+.6714E-04_JPRB,-.6249E-05_JPRB,+.1052E-04_JPRB,+.8790E-05_JPRB,&
+                &+.1569E-03_JPRB,-.1175E-04_JPRB,-.3033E-04_JPRB,-.9777E-06_JPRB,&
+                           &+.1101E-03_JPRB,+.6827E-05_JPRB,-.1023E-04_JPRB,&
+                                      &+.4231E-04_JPRB,+.4905E-05_JPRB,&
+                                                 &+.6229E-05_JPRB &
+         &/)
+
+!     ------------------------------------------------------------------
+RCAEROS= 0.1462E-16_JPRB
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUAERH
Index: LMDZ5/branches/testing/libf/phymar/suaerl.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suaerl.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suaerl.F90	(revision 2160)
@@ -0,0 +1,114 @@
+SUBROUTINE SUAERL
+
+!**** *SUAERL*   - INITIALIZE COMMON YOEAER
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAER, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOEAER
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-02-15
+!        99-05-25   JJMorcrette   Revised Aerosol LW properties (OPAC)
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RAER
+
+!      ----------------------------------------------------------------
+
+!*       1.    SHORTWAVE COEFFICIENTS
+!              ----------------------
+
+!      Initialised in SUAERSn depending on NSW number of SW spectral 
+!      intervals
+
+!      ----------------------------------------------------------------
+
+!*       2.    LONGWAVE COEFFICIENTS
+!              ---------------------
+
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!      RAER  = RESHAPE((/
+!     &          .038520, .037196, .040532, .054934, .038520
+!     &        , .126130, .18313 , .10357 , .064106, .126130
+!     &        , .012579, .013649, .018652, .025181, .012579
+!     &        , .011890, .016142, .021105, .028908, .011890
+!     &        , .013792, .026810, .052203, .066338, .013792 /)
+!     & ,SHAPE=(/5,5/))
+
+!=======================================================================
+
+!-- The six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ urban
+!  5/ volcanic active                     6/ stratospheric background
+
+! The quantities given are:
+! TAU : ratio of average optical thickness in interval to that at 0.55 
+!       micron
+! PIZA: average single scattering albedo
+! CGA : average asymmetry factor
+
+! computed from Hess and Koepke (con, mar, des, urb)
+!          from Bonnel et al.   (vol, str)
+
+!-- data are entered for the 6 spectral intervals of the LW scheme (line)
+!   and the different types of aerosols (column)
+
+
+IMPLICIT NONE
+RAER( :, 1)= (/&
+   &.036271_JPRB, .030153_JPRB, .017343_JPRB, .015002_JPRB, .008806_JPRB, .006865_JPRB /)
+RAER( :, 2)= (/&
+   &.026561_JPRB, .032657_JPRB, .017977_JPRB, .014210_JPRB, .016775_JPRB, .022123_JPRB /)
+RAER( :, 3)= (/&
+   &.014897_JPRB, .016359_JPRB, .019789_JPRB, .030777_JPRB, .013341_JPRB, .014321_JPRB /)
+RAER( :, 4)= (/&
+   &.001863_JPRB, .002816_JPRB, .002355_JPRB, .002557_JPRB, .001774_JPRB, .001780_JPRB /)
+RAER( :, 5)= (/&
+   &.011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB, .011890_JPRB /)
+RAER( :, 6)= (/&
+   &.013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB, .013792_JPRB /)
+
+!      ----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUAERL
Index: LMDZ5/branches/testing/libf/phymar/suaersn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suaersn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suaersn.F90	(revision 2160)
@@ -0,0 +1,222 @@
+SUBROUTINE SUAERSN (KTSW,KSW)
+
+!**** *SUAERS*   - INITIALIZE COMMON YOEAER
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAER, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOEAER
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-02-15
+!        96-01-27  JJ Morcrette  Various spectral resolutions
+!        99-05-25  JJMorcrette   Revised aerosol optical properties
+!        00-10-25  JJMorcrette   6 spectral intervals
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RTAUA     ,RPIZA    ,RCGA
+
+!      ----------------------------------------------------------------
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KSW
+INTEGER_M :: KTSW
+
+REAL_B :: ZTAUA2(2,6)  ,ZPIZA2(2,6)  ,ZCGA2(2,6)
+REAL_B :: ZTAUA4(4,6)  ,ZPIZA4(4,6)  ,ZCGA4(4,6)
+REAL_B :: ZTAUA6(6,6)  ,ZPIZA6(6,6)  ,ZCGA6(6,6)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JAER, JNU
+
+!      ----------------------------------------------------------------
+
+!*       1.    SHORTWAVE COEFFICIENTS
+!              ----------------------
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!-- old values were not spectrally defined:
+! ZTAU2  = .730719, .912819, .725059, .745405, .682188
+! ZPIZA2 = .872212, .982545, .623143, .944887, .997975
+! ZCGA2  = .647596, .739002, .580845, .662657, .624246
+!=======================================================================
+
+!-- The six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ urban
+!  5/ volcanic active                     6/ stratospheric background
+
+! The quantities given are:
+! TAU : ratio of average optical thickness in interval to that at 0.55 
+!       micron
+! PIZA: average single scattering albedo
+! CGA : average asymmetry factor
+
+! computed from Hess and Koepke (con, mar, des, urb)
+!          from Bonnel et al.   (vol, str)
+
+
+!        1.1   TWO SPECTRAL INTERVALS (0.25-0.69-4.00microns)
+
+ZTAUA2(1, :)= (/&
+ &1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+ZTAUA2(2, :)= (/&
+ &0.40174_JPRB , 0.89383_JPRB , 0.89546_JPRB , 0.40741_JPRB , 0.51143_JPRB , 0.32646_JPRB /)
+ 
+ZPIZA2(1, :)= (/&
+ &.9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)
+ZPIZA2(2, :)= (/&
+ &.8814597_JPRB, .9920407_JPRB, .9239428_JPRB, .7546879_JPRB, .9515548_JPRB, .9938563_JPRB/)
+ 
+ZCGA2(1, :)= (/&
+ &0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)
+ZCGA2(2, :)= (/&
+ &0.663224_JPRB, 0.793746_JPRB, 0.696315_JPRB, 0.652612_JPRB, .6608509_JPRB, .6318786_JPRB/)
+
+
+!        1.2   FOUR SPECTRAL INTERVALS (0.25-0.69-1.19-2.38-4.00microns)
+
+ZTAUA4(1, :)= (/&
+ &1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+ZTAUA4(2, :)= (/&
+ &0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)
+ZTAUA4(3, :)= (/&
+ &0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)
+ZTAUA4(4, :)= (/&
+ &0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)
+ 
+ZPIZA4(1, :)= (/&
+ &.9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)
+ZPIZA4(2, :)= (/&
+ &.8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)
+ZPIZA4(3, :)= (/&
+ &.8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)
+ZPIZA4(4, :)= (/&
+ &.5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)
+ 
+ZCGA4(1, :)= (/&
+ &0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)
+ZCGA4(2, :)= (/&
+ &0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)
+ZCGA4(3, :)= (/&
+ &0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)
+ZCGA4(4, :)= (/&
+ &0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)
+
+
+!        1.3   SIX SPECTRAL INTERVALS (0.185-0.25-0.44-0.69-1.19-2.38-4.00microns)
+
+ZTAUA6(1, :)= (/&
+ &1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+ZTAUA6(2, :)= (/&
+ &1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+ZTAUA6(3, :)= (/&
+ &1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+ZTAUA6(4, :)= (/&
+ &0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)
+ZTAUA6(5, :)= (/&
+ &0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)
+ZTAUA6(6, :)= (/&
+ &0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)
+ 
+ZPIZA6(1, :)= (/&
+ &.9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)
+ZPIZA6(2, :)= (/&
+ &.9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)
+ZPIZA6(3, :)= (/&
+ &.9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)
+ZPIZA6(4, :)= (/&
+ &.8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)
+ZPIZA6(5, :)= (/&
+ &.8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)
+ZPIZA6(6, :)= (/&
+ &.5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)
+ 
+ZCGA6(1, :)= (/&
+ &0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)
+ZCGA6(2, :)= (/&
+ &0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)
+ZCGA6(3, :)= (/&
+ &0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)
+ZCGA6(4, :)= (/&
+ &0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)
+ZCGA6(5, :)= (/&
+ &0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)
+ZCGA6(6, :)= (/&
+ &0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)
+
+
+!      ----------------------------------------------------------------
+
+IF (KSW == 2) THEN
+  DO JNU=1,KSW
+    DO JAER=1,6
+      RTAUA(JNU,JAER)=ZTAUA2(JNU,JAER)
+      RPIZA(JNU,JAER)=ZPIZA2(JNU,JAER)
+      RCGA(JNU,JAER) =ZCGA2 (JNU,JAER)
+    ENDDO
+  ENDDO
+ELSEIF (KSW == 4) THEN
+  DO JNU=1,KSW
+    DO JAER=1,6
+      RTAUA(JNU,JAER)=ZTAUA4(JNU,JAER)
+      RPIZA(JNU,JAER)=ZPIZA4(JNU,JAER)
+      RCGA(JNU,JAER) =ZCGA4 (JNU,JAER)
+    ENDDO
+  ENDDO
+ELSEIF (KSW == 6) THEN
+  DO JNU=1,KSW
+    DO JAER=1,6
+      RTAUA(JNU,JAER)=ZTAUA6(JNU,JAER)
+      RPIZA(JNU,JAER)=ZPIZA6(JNU,JAER)
+      RCGA(JNU,JAER) =ZCGA6 (JNU,JAER)
+    ENDDO
+  ENDDO
+ELSE
+  STOP 'SUAERSN: WRONG NUMBER OF SPECTRAL INTERVALS'
+ENDIF
+
+!      ----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUAERSN
Index: LMDZ5/branches/testing/libf/phymar/suaerv.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suaerv.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suaerv.F90	(revision 2160)
@@ -0,0 +1,173 @@
+SUBROUTINE SUAERV &
+ &(  KLEV  , PETAH &
+ &,  PVDAES, PVDAEL, PVDAEU, PVDAED &
+ &,  PTRBGA, PVOBGA, PSTBGA, PAEOPS, PAEOPL, PAEOPU &
+ &,  PAEOPD, PTRPT , PAEADK, PAEADM, PAEROS &
+ &)
+
+
+!**** *SUAERV* - PARAMETERS FOR THE VERTICAL DISTRIBUTIONS OF AEROSOLS.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE VALUES *PVDAEN* (*N=*S,*L,*U OR *D
+!     FOR SEA,LAND,URBAN OR DESERT) OF A SURFACE-NORMALISED VERTICAL
+!     DISTRIBUTION OF AEROSOLS' OPTICAL DEPHTS FROM THE ARGUMENT *PETAH*
+!     (VERTICAL COORDINATE) AT *KLEVP1* LEVELS. IT ALSO SETS VALUES FOR
+!     NON-GEOGRAPHICALLY WEIGHTED TOTAL OPTICAL DEPTHS (AT 0.55 E-06
+!     WAVE-LENGTH) *PAEOPN* FOR THE SAME FOUR TYPES AND SIMILEAR OPTICAL
+!     DEPHTS DIVIDED BY PRESSURE FOR BACKGROUND WELL-MIXED AEROSOLS
+!     OF THREE TYPES *PMNBGA* (*MN*=*TR*,*VO* OR *ST* FOR TROPOSPHERIC,
+!     VOLCANIC (STRATOSPHERIC ASHES) OR STRATOSPHERIC (SULFURIC TYPE)).
+!     IT FINALLY SET VALUES FOR THE POWER TO BE APPLIED TO A TEMPERATURE
+!     RATIO SMALLER THAN ONE IN ORDER TO OBTAIN AN IDEX ONE IN THE
+!     STRATOSPHERE AND ZERO IN THE TROPOSPHERE WITH A RELATIVELY SMOOTH
+!     TRANSITION (*PTRPT*), AS WELL AS FOR ADSORPTION COEFFICIENTS FOR
+!     WATER TO THE THREE TYPE OF TROPOSPHERIC AEROSOLS (*PAEADK*) WITH
+!     A MINIMUM VALUE (IN THE WHOLE ATMOSPHERE) FOR THE SUM OF THE
+!     PRODUCTS OF *PAEADK* BY THE OPTICAL DEPTHS DIVIDED BY PRESURE
+!     THICKNESS: *PAEADM*.
+
+!**   INTERFACE.
+!     ----------
+
+!          *SUAERV* IS CALLED FROM *SUECRAD*.
+!          THERE ARE SIXTEEN DUMMY ARGUMENTS: *PETAH* IS THE VERTICAL
+!     COORDINATE.
+!                                             *PVDAEN* (*N=*S,*L,*U OR
+!     *D) ARE THE NORMALISED VERTICAL DISTRIBUTIONS.
+!                                             *KLEVP1* IS THE NUMBER OF
+!     LEVELS.
+!                                             *PMNBGA* (*MN*=*TR*,*VO*
+!     OR *ST*) ARE THE BACKGROUND OPTICAL DEPTHS DIVIDED BY PRESSURE.
+!                                             *PAEOPN* (*N=*S,*L,*U OR
+!     *D) ARE THE TOTAL OPTICAL DEPHTS FOR THE VERTICALLY VARYING
+!     AEROSOLS.
+!                                             *PTRPT* IS THE TEMPERATURE
+!     EXPONENT FOR THE STRATOSPHERIC DEFINITION.
+!                                             *PAEADK* (1,2,3) AND
+!     AND *PAEADM* ARE THE CONSTANTS FOR THE DEFINITION OF THE QUANTITY
+!     OF WATER VAPOUR THAT WILL BE ADSORBED TO THE DRY AEROSOLS TO FORM
+!     MOIST AEROSOLS.
+
+!     METHOD.
+!     -------
+
+!          STRAIGHTFORWARD, EQUIVALENT HEIGTHS ARE GIVEN IN METERS (8434
+!     FOR THE ATMOSPHERE) AND TROPOSPHERIC AND STRATOSPHERIC PRESSURE
+!     BOUNDARY VALUES ARE SET AT 101325 AND 19330 *PASCAL.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+!     AUTHOR
+!     ------
+!     J.-F. GELEYN     E.C.M.W.F.     04/11/82.
+
+!     MODIFICATIONS
+!     -------------
+!     J.-J. MORCRETTE  E.C.M.W.F.     91/07/14   ADAPTATION TO I.F.S.
+!     JJ Morcrette 960903  block data SUAERH moved after end of SUAERV
+
+!     ------------------------------------------------------------------
+
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+!     DUMMY REAL SCALARS
+REAL_B :: PAEADM
+REAL_B :: PAEOPD
+REAL_B :: PAEOPL
+REAL_B :: PAEOPS
+REAL_B :: PAEOPU
+REAL_B :: PAEROS
+REAL_B :: PSTBGA
+REAL_B :: PTRBGA
+REAL_B :: PTRPT
+REAL_B :: PVOBGA
+
+
+!     ------------------------------------------------------------------
+REAL_B :: PETAH(KLEV+1)
+
+REAL_B :: PVDAES(KLEV+1),PVDAEL(KLEV+1),PVDAEU(KLEV+1),PVDAED(KLEV+1)
+REAL_B :: PAEADK(3)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JK
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZHSD, ZHSL, ZHSS, ZHSU
+
+
+!     ------------------------------------------------------------------
+
+
+!*         1.     COMPUTATIONS.
+!                 -------------
+
+
+ZHSS=MAX(_ONE_,8434._JPRB/1000._JPRB)
+ZHSL=MAX(_ONE_,8434._JPRB/1000._JPRB)
+ZHSU=MAX(_ONE_,8434._JPRB/1000._JPRB)
+ZHSD=MAX(_ONE_,8434._JPRB/3000._JPRB)
+PVDAES(1)=0._JPRB
+PVDAEL(1)=0._JPRB
+PVDAEU(1)=0._JPRB
+PVDAED(1)=0._JPRB
+
+! Martin CONTROL
+!PRINT*,'Control SUAERV'
+!PRINT*,'=PVDAES(1)=',PVDAES(1)
+!PRINT*,'PETAH(1)=',PETAH(1)
+!PRINT*,'PETAH=',PETAH
+!PRINT*,'ZHSS=',ZHSS
+!PRINT*,'End Control SUAERV'
+! Martin END CONTROL
+
+IF(PETAH(1) /= _ZERO_) THEN
+  PVDAES(1)=PETAH(1)**ZHSS
+  PVDAEL(1)=PETAH(1)**ZHSL
+  PVDAEU(1)=PETAH(1)**ZHSU
+  PVDAED(1)=PETAH(1)**ZHSD
+ENDIF
+DO JK=2,KLEV+1
+  PVDAES(JK)=PETAH(JK)**ZHSS
+  PVDAEL(JK)=PETAH(JK)**ZHSL
+  PVDAEU(JK)=PETAH(JK)**ZHSU
+  PVDAED(JK)=PETAH(JK)**ZHSD
+ENDDO
+PTRBGA= 0.03_JPRB/(101325._JPRB-19330._JPRB)
+PVOBGA= 0.007_JPRB/19330._JPRB
+PSTBGA= 0.045_JPRB/19330._JPRB
+PAEOPS= 0.05_JPRB
+PAEOPL= 0.2_JPRB
+PAEOPU= 0.1_JPRB
+PAEOPD= 1.9_JPRB
+PTRPT = 30._JPRB
+PAEADK(1)=+.3876E-03_JPRB
+PAEADK(2)=+.6693E-02_JPRB
+PAEADK(3)=+.8563E-03_JPRB
+PAEADM   = 2.6E-10_JPRB
+
+PAEROS   = 0.1462E-16_JPRB
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUAERV
Index: LMDZ5/branches/testing/libf/phymar/sucld.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sucld.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sucld.F90	(revision 2160)
@@ -0,0 +1,116 @@
+SUBROUTINE SUCLD ( KLEV , PETA )
+
+
+!**** *SUCLD*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUD*
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOECLD
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUCLD* FROM *SUPHEC*
+!              -----        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLD
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-12-15
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOECLD   , ONLY : CETA     ,RANVA    ,RANVB    ,RANVH    ,&
+            &RCCA     ,RCCB     ,RCCC     ,RCFCT    ,RCLWMR   ,&
+            &RCSCAL   ,RETAHB   ,RETAMB   ,RLOIA    ,RLOIB    ,&
+            &RLOIC    ,RLOID    ,RLONIA   ,RLONIB   ,RRHH     ,&
+            &RRHL     ,RRHM     ,RGAMMAS  ,REPSCR   ,REPSEC   ,&
+            &LOMEGA
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KLEV
+
+
+
+!      ----------------------------------------------------------------
+
+REAL_B :: PETA(KLEV)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JK
+
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES
+!              ----------
+
+
+RANVA  = 2._JPRB
+RANVB  = 0.3_JPRB
+RANVH  = 0.4_JPRB
+RCCA   = 0.125_JPRB
+RCCB   = 1.5_JPRB
+RCCC   = 0.8_JPRB
+RCFCT  = 0.400_JPRB
+RCSCAL = 1.0E+11_JPRB
+
+RETAHB = 0.45_JPRB
+RETAMB = 0.80_JPRB
+
+RLOIA  = 1.0E+02_JPRB
+RLOIB  =-10.00_JPRB
+RLOIC  =-0.9_JPRB
+RLOID  = 5.0_JPRB
+
+RLONIA = -0.1_JPRB
+RLONIB = -10.0_JPRB
+
+RRHH   = 0.9_JPRB
+RRHM   = 0.8_JPRB
+RRHL   = 0.70_JPRB
+
+RGAMMAS= 0.05_JPRB
+RCLWMR = 1.E-04_JPRB
+LOMEGA =.TRUE.
+
+REPSEC = 1.0E-12_JPRB
+REPSCR = 1.0E-12_JPRB
+
+DO JK=1,KLEV
+  CETA(JK)=PETA(JK)
+ENDDO
+
+!     -----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUCLD
Index: LMDZ5/branches/testing/libf/phymar/sucldp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sucldp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sucldp.F90	(revision 2160)
@@ -0,0 +1,89 @@
+SUBROUTINE SUCLDP
+
+
+!**** *SUCLDP*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUDSC*
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOECLDP
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUCLDP* FROM *SUPHEC*
+!              ------        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLDP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        C.JAKOB   *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 94-02-07
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RG
+USE YOECLDP  , ONLY : RAMID    ,RCLDIFF  ,RCLCRIT  ,RKCONV   ,&
+            &RPRC1    ,RPRC2    ,RCLDMAX  ,RPECONS  ,RTAUMEL  ,&
+            &RENTRTU  ,RENTRRA  ,RAMIN    ,RLMIN    ,RASMICE  ,&
+            &RBSMICE
+
+
+
+!*       1.    SET VALUES
+!              ----------
+
+
+
+IMPLICIT NONE
+RAMID=0.8_JPRB
+RCLDIFF=1.E-6_JPRB
+
+RCLCRIT=0.3E-3_JPRB
+RKCONV=1.E-4_JPRB
+RPRC1=100._JPRB
+RPRC2=0.5_JPRB
+RCLDMAX=5.E-3_JPRB
+
+RPECONS=5.44E-4_JPRB/RG
+RTAUMEL=5._JPRB*3.6E3_JPRB
+
+RENTRTU=0.5_JPRB
+RENTRRA=0.5_JPRB
+
+RAMIN=1.E-8_JPRB
+RLMIN=1.E-8_JPRB
+
+RASMICE=0.252_JPRB
+RBSMICE=0.837_JPRB
+
+
+!     -----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUCLDP
+
+
Index: LMDZ5/branches/testing/libf/phymar/suclop.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suclop.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suclop.F90	(revision 2160)
@@ -0,0 +1,108 @@
+SUBROUTINE SUCLOP
+
+!**** *SUCLOP*  - INITIALIZE COMMON YOECLOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMCLOP, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUCLOP
+!     FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLOP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 92-02-29
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOECLOP  , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+            &RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
+            &REBCUD   ,REBCUE   ,REBCUF   ,REBCUG   ,REBCUH   ,&
+            &REFFIA   ,REFFIB   ,RTIW     ,RRIW
+
+
+IMPLICIT NONE
+
+
+!      ----------------------------------------------------------------
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+! SW : 2 spectral intervals
+
+REBCUA(1)= 3.448E-03_JPRB
+REBCUA(2)= 3.448E-03_JPRB
+REBCUB(1)= 2.431_JPRB
+REBCUB(2)= 2.431_JPRB
+REBCUC(1)= 0.99999_JPRB
+REBCUC(2)= 0.975634_JPRB
+REBCUD(1)= 0._JPRB
+REBCUD(2)= 2.487E-04_JPRB
+REBCUE(1)= 0.7661_JPRB
+REBCUE(2)= 0.7866_JPRB
+REBCUF(1)= 5.851E-04_JPRB
+REBCUF(2)= 5.937E-04_JPRB
+
+! LW : spectrally averaged with reference Planck function at 257 K
+
+REBCUG= 1.07677_JPRB
+REBCUH= 0.00267_JPRB
+
+! Ice particle Effective Radius as a function of LWC
+
+REFFIA= 40._JPRB
+REFFIB=  0._JPRB
+
+!* Water cloud properties - from Fouquart (1987)
+
+! SW : 2 spectral intervals: parameters as a function of Reff
+
+RYFWCA(1)= 0._JPRB
+RYFWCA(2)= 0._JPRB
+RYFWCB(1)= 1.5_JPRB
+RYFWCB(2)= 1.5_JPRB
+RYFWCC(1)= 0.9999_JPRB
+RYFWCC(2)= 0.9988_JPRB
+RYFWCD(1)= 5.000E-04_JPRB
+RYFWCD(2)= 2.500E-03_JPRB
+RYFWCE(1)= 0.5_JPRB
+RYFWCE(2)= 0.05_JPRB
+RYFWCF(1)= 0.865_JPRB
+RYFWCF(2)= 0.910_JPRB
+
+!* Liquid/Solid water transition
+
+RTIW= 263._JPRB
+RRIW= 20._JPRB
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUCLOP
Index: LMDZ5/branches/testing/libf/phymar/suclopn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suclopn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suclopn.F90	(revision 2160)
@@ -0,0 +1,787 @@
+SUBROUTINE SUCLOPN (KTSW,KSW , KLEV)
+
+!**** *SUCLOP*  - INITIALIZE COMMON YOECLOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMCLOP, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUCLOPN
+!        FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLOP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     Fouquart, 1987: NATO ASI,  223-284
+!     A. Slingo, 1989: J. Atmos. Sci., 46, 1419-1427
+!     Ebert and Curry, 1992: J. Geophys. Res., 97D, 3831-3836
+!     Sun and Shine, 1994: Quart. J. Roy. Meteor. Soc., 120, 111-138
+!     Fu and Liou, 1993: J. Atmos. Sci., 50, 2008-2025
+!     Fu, 1996: J. Climate, 9, 2058-2082
+!     Fu et al., 1998: J. Climate, 11, 2223-2237
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 92-02-29
+!        97-04-16  JJ Morcrette  2 and 4 spectral intervals
+!        00-10-25  JJMorcrette   6 spectral intervals
+!        01-01-16  JJ Morcrette  ice cloud from Fu 96, Fu et al 98
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+            &RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
+            &REBCUD   ,REBCUE   ,REBCUF   ,REBCUG   ,REBCUH   ,&
+            &REBCUI   ,REBCUJ   ,RASWCA   ,RASWCB   ,RASWCC   ,&
+            &RASWCD   ,RASWCE   ,RASWCF   ,RSUSHE   ,RSUSHF   ,&
+            &RSUSHH   ,RSUSHK   ,RSUSHA   ,RSUSHG   ,RSUSHFA  ,&
+            &RSUSHC   ,RSUSHD   ,REFFIA   ,REFFIB   ,RHSAVI   ,&
+            &RFUAA0   ,RFUAA1   ,RFUBB0   ,RFUBB1   ,RFUBB2   ,&
+            &RFUBB3   ,RFUCC0   ,RFUCC1   ,RFUCC2   ,RFUCC3   ,&
+            &RFUETA   ,RFULIO   ,RFLAA0   ,RFLAA1   ,RFLBB0   ,&
+            &RFLBB1   ,RFLBB2   ,RFLBB3   ,RFLCC0   ,RFLCC1   ,&
+            &RFLCC2   ,RFLCC3   ,RFLDD0   ,RFLDD1   ,RFLDD2   ,&
+            &RFLDD3   ,RLINLI   ,RTIW     ,RRIW
+USE YOERAD   , ONLY : RAOVLP   ,RBOVLP
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KSW
+INTEGER_M :: KTSW
+INTEGER_M :: KLEV
+INTEGER_M :: JC, JNU
+
+
+
+
+!     -----------------------------------------------------------------
+REAL_B :: ZEBCUA2(2)  ,ZEBCUB2(2)  ,ZEBCUC2(2)  ,ZEBCUD2(2)&
+  &,  ZEBCUE2(2)  ,ZEBCUF2(2)  ,ZYFWCA2(2)  ,ZYFWCB2(2)&
+  &,  ZYFWCC2(2)  ,ZYFWCD2(2)  ,ZYFWCE2(2)  ,ZYFWCF2(2)&
+  &,  ZASWCA2(2)  ,ZASWCB2(2)  ,ZASWCC2(2)  ,ZASWCD2(2)&
+  &,  ZASWCE2(2)  ,ZASWCF2(2)  ,ZSUSHE2(2)  ,ZSUSHF2(2)&
+  &,  ZSUSHH2(2)  ,ZSUSHK2(2)  ,ZSUSHA2(2)  ,ZSUSHG2(2)&
+  &,  ZFLAA02(2)  ,ZFLAA12(2)  ,ZFLBB02(2)  ,ZFLBB12(2)&
+  &,  ZFLBB22(2)  ,ZFLBB32(2)  ,ZFLCC02(2)  ,ZFLCC12(2)&
+  &,  ZFLCC22(2)  ,ZFLCC32(2)  ,ZFLDD02(2)  ,ZFLDD12(2)&
+  &,  ZFLDD22(2)  ,ZFLDD32(2)&
+  &,  ZFUAA02(2)  ,ZFUAA12(2)  ,ZFUBB02(2)  ,ZFUBB12(2)&
+  &,  ZFUBB22(2)  ,ZFUBB32(2)  ,ZFUCC02(2)  ,ZFUCC12(2)&
+  &,  ZFUCC22(2)  ,ZFUCC32(2)  ,ZFUDD02(2)  ,ZFUDD12(2)&
+  &,  ZFUDD22(2)  ,ZFUDD32(2)
+
+REAL_B :: ZEBCUA4(4)  ,ZEBCUB4(4)  ,ZEBCUC4(4)  ,ZEBCUD4(4)&
+  &,  ZEBCUE4(4)  ,ZEBCUF4(4)  ,ZYFWCA4(4)  ,ZYFWCB4(4)&
+  &,  ZYFWCC4(4)  ,ZYFWCD4(4)  ,ZYFWCE4(4)  ,ZYFWCF4(4)&
+  &,  ZASWCA4(4)  ,ZASWCB4(4)  ,ZASWCC4(4)  ,ZASWCD4(4)&
+  &,  ZASWCE4(4)  ,ZASWCF4(4)  ,ZSUSHE4(4)  ,ZSUSHF4(4)&
+  &,  ZSUSHH4(4)  ,ZSUSHK4(4)  ,ZSUSHA4(4)  ,ZSUSHG4(4)&
+  &,  ZFLAA04(4)  ,ZFLAA14(4)  ,ZFLBB04(4)  ,ZFLBB14(4)&
+  &,  ZFLBB24(4)  ,ZFLBB34(4)  ,ZFLCC04(4)  ,ZFLCC14(4)&
+  &,  ZFLCC24(4)  ,ZFLCC34(4)  ,ZFLDD04(4)  ,ZFLDD14(4)&
+  &,  ZFLDD24(4)  ,ZFLDD34(4)&
+  &,  ZFUAA04(4)  ,ZFUAA14(4)  ,ZFUBB04(4)  ,ZFUBB14(4)&
+  &,  ZFUBB24(4)  ,ZFUBB34(4)  ,ZFUCC04(4)  ,ZFUCC14(4)&
+  &,  ZFUCC24(4)  ,ZFUCC34(4)  ,ZFUDD04(4)  ,ZFUDD14(4)&
+  &,  ZFUDD24(4)  ,ZFUDD34(4)
+
+REAL_B :: ZEBCUA6(6)  ,ZEBCUB6(6)  ,ZEBCUC6(6)  ,ZEBCUD6(6)&
+  &,  ZEBCUE6(6)  ,ZEBCUF6(6)  ,ZYFWCA6(6)  ,ZYFWCB6(6)&
+  &,  ZYFWCC6(6)  ,ZYFWCD6(6)  ,ZYFWCE6(6)  ,ZYFWCF6(6)&
+  &,  ZASWCA6(6)  ,ZASWCB6(6)  ,ZASWCC6(6)  ,ZASWCD6(6)&
+  &,  ZASWCE6(6)  ,ZASWCF6(6)  ,ZSUSHE6(6)  ,ZSUSHF6(6)&
+  &,  ZSUSHH6(6)  ,ZSUSHK6(6)  ,ZSUSHA6(6)  ,ZSUSHG6(6)&
+  &,  ZFLAA06(6)  ,ZFLAA16(6)  ,ZFLBB06(6)  ,ZFLBB16(6)&
+  &,  ZFLBB26(6)  ,ZFLBB36(6)  ,ZFLCC06(6)  ,ZFLCC16(6)&
+  &,  ZFLCC26(6)  ,ZFLCC36(6)  ,ZFLDD06(6)  ,ZFLDD16(6)&
+  &,  ZFLDD26(6)  ,ZFLDD36(6)&
+  &,  ZFUAA06(6)  ,ZFUAA16(6)  ,ZFUBB06(6)  ,ZFUBB16(6)&
+  &,  ZFUBB26(6)  ,ZFUBB36(6)  ,ZFUCC06(6)  ,ZFUCC16(6)&
+  &,  ZFUCC26(6)  ,ZFUCC36(6)  ,ZFUDD06(6)  ,ZFUDD16(6)&
+  &,  ZFUDD26(6)  ,ZFUDD36(6)
+
+  
+REAL_B :: ZAOVLP(3), ZBOVLP(3)  
+
+!     -----------------------------------------------------------------
+
+!*          1.    SHORTWAVE CLOUD OPTICAL PROPERTIES
+!                 ----------------------------------
+
+!     ------------------------------------------------------------------
+
+!*          1.1   TWO SPECTRAL INTERVALS
+!                 ----------------------
+
+! SW : 0.25 - 0.68 - 4.00 microns
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+!  optical properties
+ZEBCUA2 = (/ 3.448E-04_JPRB , 3.448E-04_JPRB /)
+ZEBCUB2 = (/ 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC2 = (/ 0.00001_JPRB   , 0.024366_JPRB  /)
+ZEBCUD2 = (/ _ZERO_         , 2.487E-04_JPRB /)
+ZEBCUE2 = (/ 0.7661_JPRB    , 0.7866_JPRB    /)
+ZEBCUF2 = (/ 5.851E-04_JPRB , 5.937E-04_JPRB /)
+
+!  optical properties
+!      ZEBCUA2 = (/ 3.448E-04 , 3.448E-04 /)
+!      ZEBCUB2 = (/ 2.431     , 2.431     /)
+!      ZEBCUC2 = (/ 0.00001   , 0.035589  /)
+!      ZEBCUD2 = (/ 0.        , 2.757E-04 /)
+!      ZEBCUE2 = (/ 0.7661    , 0.7921    /)
+!      ZEBCUF2 = (/ 5.851E-04 , 5.893E-04 /)
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA2 = (/ _ZERO_         , _ZERO_         /)
+ZYFWCB2 = (/ 1.5_JPRB       , 1.5_JPRB       /)
+ZYFWCC2 = (/ 0.9999_JPRB    , 0.9988_JPRB    /)
+ZYFWCD2 = (/ 5.000E-04_JPRB , 2.500E-03_JPRB /)
+ZYFWCE2 = (/ _HALF_         , 0.05_JPRB      /)
+ZYFWCF2 = (/ 0.865_JPRB     , 0.910_JPRB     /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA2 = (/ 2.817_JPRB     , 2.4584_JPRB    /)
+ZASWCB2 = (/ 1.305_JPRB     , 1.3994_JPRB    /)
+ZASWCC2 = (/-5.62E-08_JPRB  , 1.111E-02_JPRB /)
+ZASWCD2 = (/ 1.63E-07_JPRB  , 8.613E-04_JPRB /)
+ZASWCE2 = (/ 0.829_JPRB     , 0.7819_JPRB    /)
+ZASWCF2 = (/ 2.482_JPRB     , 5.0150_JPRB    /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE2 = (/ _ZERO_         , 8.6822_JPRB    /)
+ZSUSHF2 = (/ _ZERO_         , 9.6277_JPRB    /)
+ZSUSHH2 = (/ 0.8522_JPRB    , 0.8819_JPRB    /)
+ZSUSHK2 = (/ 0.1620_JPRB    , 0.1630_JPRB    /)
+ZSUSHA2 = (/ _ZERO_         , 23.204_JPRB    /)
+ZSUSHG2 = (/ 0.3270_JPRB    , 0.4180_JPRB    /)
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA02 = (/-6.656E-3_JPRB  ,-6.656E-3_JPRB  /)
+ZFLAA12 = (/ 3.686_JPRB     , 3.686_JPRB     /)
+ZFLBB02 = (/ .10998E-5_JPRB , .21136E-1_JPRB /)
+ZFLBB12 = (/-.26101E-7_JPRB , .39150E-3_JPRB /)
+ZFLBB22 = (/ .18096E-8_JPRB ,-.20740E-6_JPRB /)
+ZFLBB32 = (/-.47387E-11_JPRB,-.28829E-8_JPRB /)
+ZFLCC02 = (/ .22110E+1_JPRB , .22498E+1_JPRB /)
+ZFLCC12 = (/-.10398E-2_JPRB , .23656E-3_JPRB /)
+ZFLCC22 = (/ .65199E-4_JPRB , .51948E-4_JPRB /) 
+ZFLCC32 = (/-.34498E-6_JPRB ,-.29768E-6_JPRB /)
+ZFLDD02 = (/ .12495_JPRB    , .11716_JPRB    /)
+ZFLDD12 = (/-.43582E-3_JPRB ,-.45208E-3_JPRB /)
+ZFLDD22 = (/ .14092E-4_JPRB , .12772E-4_JPRB /)
+ZFLDD32 = (/-.69565E-7_JPRB ,-.62779E-7_JPRB /) 
+
+!* Ice cloud properties - from Fu (1996)
+
+!ZFUAA02 = (/-.291721E-04_JPRB ,
+!ZFUAA12 = (/ .251925E+01_JPRB ,
+!ZFUBB02 = (/ .135403E-06_JPRB ,
+!ZFUBB12 = (/ .992822E-07_JPRB ,
+!ZFUBB22 = (/-.738432E-10_JPRB ,
+!ZFUBB32 = (/ .331119E-12_JPRB ,
+!ZFUCC02 = (/ .748127E+00_JPRB ,
+!ZFUCC12 = (/ .956845E-03_JPRB ,
+!ZFUCC22 = (/-.111517E-05_JPRB ,
+!ZFUCC32 = (/-.815573E-08_JPRB ,
+!ZFUDD02 = (/ .115730E+00_JPRB ,
+!ZFUDD12 = (/ .256481E-03_JPRB ,
+!ZFUDD22 = (/ .191313E-05_JPRB ,
+!ZFUDD32 = (/-.124603E-07_JPRB ,
+!     ------------------------------------------------------------------
+
+!*          1.2    FOUR SPECTRAL INTERVALS
+!                  -----------------------
+
+! SW : 4 spectral intervals (0.25 - 0.69 - 1.19 - 2.38 - 4.00)
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+!      ZEBCUA4 = (/ 3.448E-03 , 3.448E-03 , 3.448E-03 , 3.448E-03 /)
+!      ZEBCUB4 = (/ 2.431     , 2.431     , 2.431     , 2.431     /)
+!      ZEBCUC4 = (/ 0.00001   , 0.00011   , 0.01861   , 0.46658   /)
+!      ZEBCUD4 = (/ 0.        , 1.405E-05 , 8.328E-4  , 2.050E-05 /)
+!      ZEBCUE4 = (/ 0.7661    , 0.7730    , 0.7940    , 0.9595    /)
+!      ZEBCUF4 = (/ 5.851E-04 , 5.665E-04 , 7.267E-04 , 1.076E-04 /)
+
+ZEBCUA4 = (/ 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB /)
+ZEBCUB4 = (/ 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC4 = (/ 0.00001_JPRB   , 0.00011_JPRB   , 0.0197796_JPRB , 0.46658_JPRB   /)
+ZEBCUD4 = (/ _ZERO_         , 1.405E-05_JPRB , 7.95513E-4_JPRB, 2.050E-05_JPRB /)
+ZEBCUE4 = (/ 0.7661_JPRB    , 0.7730_JPRB    , 0.795653_JPRB  , 0.9595_JPRB    /)
+ZEBCUF4 = (/ 5.851E-04_JPRB , 5.665E-04_JPRB , 7.267E-04_JPRB , 1.076E-04_JPRB /)
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA4 = (/ _ZERO_         , _ZERO_         , _ZERO_        , _ZERO_          /)
+ZYFWCB4 = (/ 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        /)
+ZYFWCC4 = (/ 0.9999_JPRB    , 0.9988_JPRB    , 0.9988_JPRB   , 0.9988_JPRB     /)
+ZYFWCD4 = (/ 5.000E-04_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB, 2.500E-03_JPRB  /)
+ZYFWCE4 = (/ _HALF_         , 0.05_JPRB      , 0.05_JPRB     , 0.05_JPRB       /)
+ZYFWCF4 = (/ 0.865_JPRB     , 0.910_JPRB     , 0.910_JPRB    , 0.910_JPRB      /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA4 = (/ 2.817_JPRB     , 2.682_JPRB     , 2.264_JPRB    , 1.281_JPRB      /)
+ZASWCB4 = (/ 1.305_JPRB     , 1.346_JPRB     , 1.455_JPRB    , 1.641_JPRB      /)
+ZASWCC4 = (/-5.62E-08_JPRB  ,-6.94E-06_JPRB  , 4.64E-04_JPRB , 2.01E-01_JPRB   /)
+ZASWCD4 = (/ 1.63E-07_JPRB  , 2.35E-05_JPRB  , 1.24E-03_JPRB , 7.56E-03_JPRB   /)
+ZASWCE4 = (/ 0.829_JPRB     , 0.794_JPRB     , 0.754_JPRB    , 0.826_JPRB      /)
+ZASWCF4 = (/ 2.482_JPRB     , 4.226_JPRB     , 6.560_JPRB    , 4.353_JPRB      /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE4 = (/ _ZERO_       , 7.2471E-02_JPRB , 17.5933_JPRB  , 48.7166_JPRB  /)
+ZSUSHF4 = (/ _ZERO_       , 4.01511_JPRB    , 21.1249_JPRB  , 1.20890_JPRB  /)
+ZSUSHH4 = (/ 0.8522_JPRB  , 0.85841_JPRB    , 0.90778_JPRB  ,0.982046_JPRB  /)
+ZSUSHK4 = (/ 0.1620_JPRB  , 0.160048_JPRB   , 0.188521_JPRB ,0.0411446_JPRB /)
+ZSUSHA4 = (/ _ZERO_       , 0.273455_JPRB   , 41.7675_JPRB  , 161.104_JPRB  /)
+ZSUSHG4 = (/ 0.3270_JPRB  , 0.343668_JPRB   , 0.526192_JPRB , 0.574040_JPRB /)
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA04 = (/-6.656E-03_JPRB ,-6.656E-03_JPRB,-6.656E-03_JPRB,-6.656E-03_JPRB /)
+ZFLAA14 = (/ 3.686_JPRB     , 3.686_JPRB    , 3.686_JPRB    , 3.686_JPRB     /)
+ZFLBB04 = (/ .10998E-5_JPRB , .20208E-4_JPRB, .51557E-3_JPRB, .39517E+0_JPRB /)
+ZFLBB14 = (/-.26101E-7_JPRB , .96483E-5_JPRB, .10731E-2_JPRB, .15787E-2_JPRB /)
+ZFLBB24 = (/ .18096E-8_JPRB , .83009E-7_JPRB, .17753E-5_JPRB,-.14337E-4_JPRB /)
+ZFLBB34 = (/-.47387E-11_JPRB,-.32217E-9_JPRB,-.18379E-7_JPRB, .46942E-7_JPRB /)
+ZFLCC04 = (/ .22110E+1_JPRB , .22151E+1_JPRB, .22534E+1_JPRB, .26653E+1_JPRB /)
+ZFLCC14 = (/-.10398E-2_JPRB ,-.77982E-3_JPRB, .16163E-2_JPRB, .56935E-2_JPRB /)
+ZFLCC24 = (/ .65199E-4_JPRB , .63750E-4_JPRB, .44037E-4_JPRB,-.54316E-4_JPRB /)
+ZFLCC34 = (/-.34498E-6_JPRB ,-.34466E-6_JPRB,-.27627E-6_JPRB, .17858E-6_JPRB /)
+ZFLDD04 = (/ .12495_JPRB    , .12363_JPRB   , .11983_JPRB   , .21834E-1_JPRB /)
+ZFLDD14 = (/-.43582E-3_JPRB ,-.44419E-3_JPRB,-.50108E-3_JPRB,-.29204E-3_JPRB /)
+ZFLDD24 = (/ .14092E-4_JPRB , .14038E-4_JPRB, .11843E-4_JPRB, .18060E-5_JPRB /)
+ZFLDD34 = (/-.69565E-7_JPRB ,-.68851E-7_JPRB,-.59367E-7_JPRB,-.46257E-8_JPRB /)
+
+!* Ice cloud properties - from Fu (1996) as tabulated in Sun & Rikus (1999)
+
+ZFUAA04 = (/-1.30817E-04_JPRB,-6.39479E-05_JPRB,-6.74730E-06_JPRB, 1.62674E-04_JPRB /)
+ZFUAA14 = (/ 2.52883E+00_JPRB, 2.52393E+00_JPRB, 2.52056E+00_JPRB, 2.49823E+00_JPRB /)
+ZFUBB04 = (/-1.55357E-08_JPRB,-7.90657E-07_JPRB, 9.64842E-04_JPRB, 2.25112E-01_JPRB /)
+ZFUBB14 = (/ 1.95793E-07_JPRB, 7.79991E-06_JPRB, 9.09809E-04_JPRB, 3.05017E-03_JPRB /)
+ZFUBB24 = (/-2.31234E-10_JPRB, 2.90894E-10_JPRB,-3.57557E-06_JPRB,-2.54236E-05_JPRB /)
+ZFUBB34 = (/ 1.12247E-12_JPRB,-2.02818E-12_JPRB, 1.00197E-08_JPRB, 8.49116E-08_JPRB /)
+ZFUCC04 = (/ 7.39781E-01_JPRB, 7.52335E-01_JPRB, 7.56307E-01_JPRB, 8.30812E-01_JPRB /)
+ZFUCC14 = (/ 9.10564E-04_JPRB, 1.06211E-03_JPRB, 1.73364E-03_JPRB, 2.62788E-03_JPRB /)
+ZFUCC24 = (/-4.62479E-07_JPRB,-2.45770E-06_JPRB,-8.92191E-06_JPRB,-2.43196E-05_JPRB /)
+ZFUCC34 = (/-1.05910E-08_JPRB,-3.03712E-09_JPRB, 1.97757E-08_JPRB, 8.23543E-08_JPRB /)
+
+!     ------------------------------------------------------------------
+
+!*          1.3    SIX SPECTRAL INTERVALS
+!                  ----------------------
+
+! SW : 6 spectral intervals (0.185-0.25-0.44-0.69-1.19-2.38-4.00)
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+ZEBCUA6 = (/ 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB /)
+ZEBCUB6 = (/ 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC6 = (/ 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00011_JPRB   , 0.0197796_JPRB , 0.46658_JPRB   /)
+ZEBCUD6 = (/ _ZERO_         , _ZERO_         , _ZERO_         , 1.405E-05_JPRB , 7.95513E-4_JPRB, 2.050E-05_JPRB /)
+ZEBCUE6 = (/ 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7730_JPRB    , 0.795653_JPRB  , 0.9595_JPRB    /)
+ZEBCUF6 = (/ 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.665E-04_JPRB , 7.267E-04_JPRB , 1.076E-04_JPRB /)
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA6 = (/ _ZERO_         , _ZERO_         , _ZERO_         , _ZERO_         , _ZERO_        , _ZERO_          /)
+ZYFWCB6 = (/ 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        /)
+ZYFWCC6 = (/ 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9988_JPRB    , 0.9988_JPRB   , 0.9988_JPRB     /)
+ZYFWCD6 = (/ 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB, 2.500E-03_JPRB  /)
+ZYFWCE6 = (/ _HALF_         , _HALF_         , _HALF_         , 0.05_JPRB      , 0.05_JPRB     , 0.05_JPRB       /)
+ZYFWCF6 = (/ 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.910_JPRB     , 0.910_JPRB    , 0.910_JPRB      /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA6 = (/ 2.817_JPRB     , 2.817_JPRB     , 2.817_JPRB     , 2.682_JPRB     , 2.264_JPRB    , 1.281_JPRB      /)
+ZASWCB6 = (/ 1.305_JPRB     , 1.305_JPRB     , 1.305_JPRB     , 1.346_JPRB     , 1.455_JPRB    , 1.641_JPRB      /)
+ZASWCC6 = (/-5.62E-08_JPRB  ,-5.62E-08_JPRB  ,-5.62E-08_JPRB  ,-6.94E-06_JPRB  , 4.64E-04_JPRB , 2.01E-01_JPRB   /)
+ZASWCD6 = (/ 1.63E-07_JPRB  , 1.63E-07_JPRB  , 1.63E-07_JPRB  , 2.35E-05_JPRB  , 1.24E-03_JPRB , 7.56E-03_JPRB   /)
+ZASWCE6 = (/ 0.829_JPRB     , 0.829_JPRB     , 0.829_JPRB     , 0.794_JPRB     , 0.754_JPRB    , 0.826_JPRB      /)
+ZASWCF6 = (/ 2.482_JPRB     , 2.482_JPRB     , 2.482_JPRB     , 4.226_JPRB     , 6.560_JPRB    , 4.353_JPRB      /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE6 = (/ _ZERO_       , _ZERO_       , _ZERO_       , 7.2471E-02_JPRB , 17.5933_JPRB  , 48.7166_JPRB  /)
+ZSUSHF6 = (/ _ZERO_       , _ZERO_       , _ZERO_       , 4.01511_JPRB    , 21.1249_JPRB  , 1.20890_JPRB  /)
+ZSUSHH6 = (/ 0.8522_JPRB  , 0.8522_JPRB  , 0.8522_JPRB  , 0.85841_JPRB    , 0.90778_JPRB  ,0.982046_JPRB  /)
+ZSUSHK6 = (/ 0.1620_JPRB  , 0.1620_JPRB  , 0.1620_JPRB  , 0.160048_JPRB   , 0.188521_JPRB ,0.0411446_JPRB /)
+ZSUSHA6 = (/ _ZERO_       , _ZERO_       , _ZERO_       , 0.273455_JPRB   , 41.7675_JPRB  , 161.104_JPRB  /)
+ZSUSHG6 = (/ 0.3270_JPRB  , 0.3270_JPRB  , 0.3270_JPRB  , 0.343668_JPRB   , 0.526192_JPRB , 0.574040_JPRB /)
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA06 = (/-6.656E-03_JPRB ,-6.656E-03_JPRB ,-6.656E-03_JPRB ,-6.656E-03_JPRB,-6.656E-03_JPRB,-6.656E-03_JPRB /)
+ZFLAA16 = (/ 3.686_JPRB     , 3.686_JPRB     , 3.686_JPRB     , 3.686_JPRB    , 3.686_JPRB    , 3.686_JPRB     /)
+ZFLBB06 = (/ .10998E-5_JPRB , .10998E-5_JPRB , .10998E-5_JPRB , .20208E-4_JPRB, .51557E-3_JPRB, .39517E+0_JPRB /)
+ZFLBB16 = (/-.26101E-7_JPRB ,-.26101E-7_JPRB ,-.26101E-7_JPRB , .96483E-5_JPRB, .10731E-2_JPRB, .15787E-2_JPRB /)
+ZFLBB26 = (/ .18096E-8_JPRB , .18096E-8_JPRB , .18096E-8_JPRB , .83009E-7_JPRB, .17753E-5_JPRB,-.14337E-4_JPRB /)
+ZFLBB36 = (/-.47387E-11_JPRB,-.47387E-11_JPRB,-.47387E-11_JPRB,-.32217E-9_JPRB,-.18379E-7_JPRB, .46942E-7_JPRB /)
+ZFLCC06 = (/ .22110E+1_JPRB , .22110E+1_JPRB , .22110E+1_JPRB , .22151E+1_JPRB, .22534E+1_JPRB, .26653E+1_JPRB /)
+ZFLCC16 = (/-.10398E-2_JPRB ,-.10398E-2_JPRB ,-.10398E-2_JPRB ,-.77982E-3_JPRB, .16163E-2_JPRB, .56935E-2_JPRB /)
+ZFLCC26 = (/ .65199E-4_JPRB , .65199E-4_JPRB , .65199E-4_JPRB , .63750E-4_JPRB, .44037E-4_JPRB,-.54316E-4_JPRB /)
+ZFLCC36 = (/-.34498E-6_JPRB ,-.34498E-6_JPRB ,-.34498E-6_JPRB ,-.34466E-6_JPRB,-.27627E-6_JPRB, .17858E-6_JPRB /)
+ZFLDD06 = (/ .12495_JPRB    , .12495_JPRB    , .12495_JPRB    , .12363_JPRB   , .11983_JPRB   , .21834E-1_JPRB /)
+ZFLDD16 = (/-.43582E-3_JPRB ,-.43582E-3_JPRB ,-.43582E-3_JPRB ,-.44419E-3_JPRB,-.50108E-3_JPRB,-.29204E-3_JPRB /)
+ZFLDD26 = (/ .14092E-4_JPRB , .14092E-4_JPRB , .14092E-4_JPRB , .14038E-4_JPRB, .11843E-4_JPRB, .18060E-5_JPRB /)
+ZFLDD36 = (/-.69565E-7_JPRB ,-.69565E-7_JPRB ,-.69565E-7_JPRB ,-.68851E-7_JPRB,-.59367E-7_JPRB,-.46257E-8_JPRB /)
+
+!* Ice cloud properties - from Fu (1996) as tabulated in Sun & Rikus (1999)
+
+ZFUAA06 = (/-1.30817E-04_JPRB,-1.30817E-04_JPRB,-1.30817E-04_JPRB,-6.39479E-05_JPRB,-6.74730E-06_JPRB, 1.62674E-04_JPRB /)
+ZFUAA16 = (/ 2.52883E+00_JPRB, 2.52883E+00_JPRB, 2.52883E+00_JPRB, 2.52393E+00_JPRB, 2.52056E+00_JPRB, 2.49823E+00_JPRB /)
+ZFUBB06 = (/-1.55357E-08_JPRB,-1.55357E-08_JPRB,-1.55357E-08_JPRB,-7.90657E-07_JPRB, 9.64842E-04_JPRB, 2.25112E-01_JPRB /)
+ZFUBB16 = (/ 1.95793E-07_JPRB, 1.95793E-07_JPRB, 1.95793E-07_JPRB, 7.79991E-06_JPRB, 9.09809E-04_JPRB, 3.05017E-03_JPRB /)
+ZFUBB26 = (/-2.31234E-10_JPRB,-2.31234E-10_JPRB,-2.31234E-10_JPRB, 2.90894E-10_JPRB,-3.57557E-06_JPRB,-2.54236E-05_JPRB /)
+ZFUBB36 = (/ 1.12247E-12_JPRB, 1.12247E-12_JPRB, 1.12247E-12_JPRB,-2.02818E-12_JPRB, 1.00197E-08_JPRB, 8.49116E-08_JPRB /)
+ZFUCC06 = (/ 7.39781E-01_JPRB, 7.39781E-01_JPRB, 7.39781E-01_JPRB, 7.52335E-01_JPRB, 7.56307E-01_JPRB, 8.30812E-01_JPRB /)
+ZFUCC16 = (/ 9.10564E-04_JPRB, 9.10564E-04_JPRB, 9.10564E-04_JPRB, 1.06211E-03_JPRB, 1.73364E-03_JPRB, 2.62788E-03_JPRB /)
+ZFUCC26 = (/-4.62479E-07_JPRB,-4.62479E-07_JPRB,-4.62479E-07_JPRB,-2.45770E-06_JPRB,-8.92191E-06_JPRB,-2.43196E-05_JPRB /)
+ZFUCC36 = (/-1.05910E-08_JPRB,-1.05910E-08_JPRB,-1.05910E-08_JPRB,-3.03712E-09_JPRB, 1.97757E-08_JPRB, 8.23543E-08_JPRB /)
+
+!     ------------------------------------------------------------------
+
+! LW : absorption coefficient as a function of effective radius in RRTM
+
+! water clouds from Savijarvi
+
+RHSAVI( 1, :) = (/&
+    &0.1651082_JPRB  , -0.003494839_JPRB  , _ZERO_              /)
+RHSAVI( 2, :) = (/&
+    &0.327820597_JPRB, -0.0219634383_JPRB , 0.000506783898_JPRB /) 
+RHSAVI( 3, :) = (/&
+    &0.504805453_JPRB, -0.0478602354_JPRB , 0.00141521102_JPRB  /)
+RHSAVI( 4, :) = (/&
+    &0.513169093_JPRB, -0.0508960145_JPRB , 0.00155498711_JPRB  /)
+RHSAVI( 5, :) = (/&
+    &0.448042082_JPRB, -0.0431857592_JPRB , 0.00130848978_JPRB  /)
+RHSAVI( 6, :) = (/&
+    &0.249547237_JPRB, -0.0185273835_JPRB , 0.00050361258_JPRB  /)
+RHSAVI( 7, :) = (/&
+    &0.135486796_JPRB, -0.00585852322_JPRB, 0.00011873119_JPRB  /)
+RHSAVI( 8, :) = (/&
+    &0.126668819_JPRB, -0.00497949082_JPRB, 0.0000927679172_JPRB/)
+RHSAVI( 9, :) = (/&
+    &0.130938752_JPRB, -0.00531814674_JPRB, 0.0000984953029_JPRB/)
+RHSAVI(10, :) = (/&
+    &0.147024519_JPRB, -0.00671655774_JPRB, 0.000130885091_JPRB /)
+RHSAVI(11, :) = (/&
+    &0.241463914_JPRB, -0.0174486461_JPRB , 0.000457756556_JPRB /)
+RHSAVI(12, :) = (/&
+    &0.07576579_JPRB , -0.001695588_JPRB  , _ZERO_              /)
+RHSAVI(13, :) = (/&
+    &0.1032178_JPRB  , -0.00293412_JPRB   , _ZERO_              /)
+RHSAVI(14, :) = (/&
+    &0.07342832_JPRB , -0.001775135_JPRB  , _ZERO_              /)
+RHSAVI(15, :) = (/&
+    &0.04649514_JPRB , -0.0009165462_JPRB , _ZERO_              /)
+RHSAVI(16, :) = (/&
+    &0.06893519_JPRB , -0.0001245402_JPRB , _ZERO_              /)
+    
+! water clouds from Lindner & Li (2000)
+
+RLINLI( 1, :) = (/&   
+  & 0.88116E-01_JPRB,-0.12857E-02_JPRB, 0.81658E+00_JPRB,-0.39428E+01_JPRB, 0.46652E+01_JPRB /)      
+RLINLI( 2, :) = (/&      
+  & 0.41307E-03_JPRB,-0.59631E-04_JPRB, 0.24275E+01_JPRB,-0.90838E+01_JPRB, 0.96069E+01_JPRB /)   
+RLINLI( 3, :) = (/&      
+  &-0.57709E-01_JPRB, 0.99071E-03_JPRB, 0.31118E+01_JPRB,-0.95540E+01_JPRB, 0.90189E+01_JPRB /)   
+RLINLI( 4, :) = (/&         
+  &-0.53069E-01_JPRB, 0.99992E-03_JPRB, 0.28045E+01_JPRB,-0.72836E+01_JPRB, 0.62573E+01_JPRB /)
+RLINLI( 5, :) = (/&    
+  &-0.23627E-01_JPRB, 0.55291E-03_JPRB, 0.21785E+01_JPRB,-0.54664E+01_JPRB, 0.47379E+01_JPRB /)     
+RLINLI( 6, :) = (/&         
+  & 0.29022E-01_JPRB,-0.39657E-03_JPRB, 0.14902E+01_JPRB,-0.50777E+01_JPRB, 0.52170E+01_JPRB /)
+RLINLI( 7, :) = (/&         
+  &-0.24901E-01_JPRB, 0.16195E-03_JPRB, 0.29375E+02_JPRB,-0.11437E+02_JPRB, 0.12273E+02_JPRB /)
+RLINLI( 8, :) = (/&         
+  &-0.14269E+00_JPRB, 0.22282E-02_JPRB, 0.46478E+01_JPRB,-0.16369E+02_JPRB, 0.16533E+02_JPRB /)
+RLINLI( 9, :) = (/&   
+  &-0.20398E+00_JPRB, 0.34708E-02_JPRB, 0.52858E+01_JPRB,-0.16603E+02_JPRB, 0.15392E+02_JPRB /)      
+RLINLI(10, :) = (/&         
+  &-0.18318E+00_JPRB, 0.33080E-02_JPRB, 0.46120E+01_JPRB,-0.11550E+02_JPRB, 0.87086E+01_JPRB /)
+RLINLI(11, :) = (/&   
+  &-0.20420E+00_JPRB, 0.37167E-02_JPRB, 0.48566E+01_JPRB,-0.11972E+02_JPRB, 0.86344E+01_JPRB /)      
+RLINLI(12, :) = (/&         
+  &-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)
+RLINLI(13, :) = (/& 
+  &-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)
+RLINLI(14, :) = (/&         
+  &-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)
+RLINLI(15, :) = (/&         
+  &-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)
+RLINLI(16, :) = (/&         
+  &-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)
+    
+! ice clouds From Fu & Liou
+
+RFULIO( 1, :) = (/&
+ & -7.752E-03_JPRB, 4.624_JPRB, -42.01_JPRB /)
+RFULIO( 2, :) = (/&
+ & -1.741E-02_JPRB, 5.541_JPRB, -58.42_JPRB /)
+RFULIO( 3, :) = (/&
+ & -1.704E-02_JPRB, 4.830_JPRB,  16.27_JPRB /)
+RFULIO( 4, :) = (/&
+ & -1.151E-02_JPRB, 4.182_JPRB,  31.13_JPRB /)
+RFULIO( 5, :) = (/&
+ & -1.026E-02_JPRB, 4.105_JPRB,  16.36_JPRB /)
+RFULIO( 6, :) = (/&
+ & -8.294E-03_JPRB, 3.925_JPRB,  1.315_JPRB /)
+RFULIO( 7, :) = (/&
+ & -1.153E-02_JPRB, 4.109_JPRB,  17.32_JPRB /)
+RFULIO( 8, :) = (/&
+ & -9.609E-03_JPRB, 3.768_JPRB,  34.11_JPRB /)
+RFULIO( 9, :) = (/&
+ & -9.061E-03_JPRB, 3.741_JPRB,  26.48_JPRB /)
+RFULIO(10, :) = (/&
+ & -8.441E-03_JPRB, 3.715_JPRB,  19.48_JPRB /)
+RFULIO(11, :) = (/&
+ & -8.088E-03_JPRB, 3.717_JPRB,  17.17_JPRB /)
+RFULIO(12, :) = (/&
+ & -8.088E-03_JPRB, 3.717_JPRB,  17.17_JPRB /)
+RFULIO(13, :) = (/&
+ & -7.770E-03_JPRB, 3.734_JPRB,  11.85_JPRB /)
+RFULIO(14, :) = (/&
+ & -6.656E-03_JPRB, 3.686_JPRB,  _ZERO_     /)
+RFULIO(15, :) = (/&
+ & -6.656E-03_JPRB, 3.686_JPRB,  _ZERO_     /)
+RFULIO(16, :) = (/&
+ & -6.656E-03_JPRB, 3.686_JPRB,  _ZERO_     /)
+ 
+! ice clouds from Fu et al. (1998) 
+
+RFUETA( 1, :) = (/&
+ & 4.919685E-03_JPRB, 2.327741E+00_JPRB,-1.390858E+01_JPRB /)
+RFUETA( 2, :) = (/&
+ & 3.325756E-03_JPRB, 2.601360E+00_JPRB,-1.909602E+01_JPRB /)
+RFUETA( 3, :) = (/&
+ &-1.334860E-02_JPRB, 4.043808E+00_JPRB,-2.171029E+01_JPRB /)
+RFUETA( 4, :) = (/&
+ &-9.524174E-03_JPRB, 3.587742E+00_JPRB,-1.068895E+01_JPRB /)
+RFUETA( 5, :) = (/&
+ &-4.159424E-03_JPRB, 3.047325E+00_JPRB,-5.061568E+00_JPRB /)
+RFUETA( 6, :) = (/&
+ &-1.691632E-03_JPRB, 2.765756E+00_JPRB,-8.331033E+00_JPRB /)
+RFUETA( 7, :) = (/&
+ &-8.372696E-03_JPRB, 3.455018E+00_JPRB,-1.516692E+01_JPRB /)
+RFUETA( 8, :) = (/&
+ &-8.178608E-03_JPRB, 3.401245E+00_JPRB,-8.812820E+00_JPRB /)
+RFUETA( 9, :) = (/&
+ &-4.936610E-03_JPRB, 3.087764E+00_JPRB,-3.884262E+00_JPRB /)
+RFUETA(10, :) = (/&
+ &-3.034573E-03_JPRB, 2.900043E+00_JPRB,-1.849911E+00_JPRB /)
+RFUETA(11, :) = (/&
+ &-3.034573E-03_JPRB, 2.900043E+00_JPRB,-1.849911E+00_JPRB /)
+RFUETA(12, :) = (/&
+ &-2.465236E-03_JPRB, 2.833187E+00_JPRB,-4.227573E-01_JPRB /)
+RFUETA(13, :) = (/&
+ &-2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)
+RFUETA(14, :) = (/&
+ &-2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)
+RFUETA(15, :) = (/&
+ &-2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)
+RFUETA(16, :) = (/&
+ &-2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)
+ 
+ 
+!     ----------------------------------------------------------------
+! Ebert-Curry
+
+! LW : spectrally defined for EC-OPE
+
+REBCUI = (/  1.136_JPRB,  1.338_JPRB,  1.166_JPRB,  1.166_JPRB,  1.118_JPRB,  &
+ &0.600_JPRB /)
+REBCUJ = (/ 0.0036_JPRB, 0.0003_JPRB, 0.0016_JPRB, 0.0016_JPRB, 0.0020_JPRB,  &
+ &0.0068_JPRB /)
+
+! LW : spectrally defined for RRTM
+! mass-absorption coefficients for vertical path: no diffusivity factor
+
+REBCUG = (/ 0.718_JPRB, 0.726_JPRB, 1.136_JPRB, 1.320_JPRB, 1.505_JPRB, &
+          & 1.290_JPRB, 0.911_JPRB, 0.949_JPRB, 1.021_JPRB, 1.193_JPRB, &
+          & 1.279_JPRB, 0.626_JPRB, 0.647_JPRB, 0.668_JPRB, 0.690_JPRB, &
+          & 0.690_JPRB /)
+
+
+REBCUH = (/ 0.0069_JPRB, 0.0060_JPRB, 0.0024_JPRB, 0.0004_JPRB,-0.0016_JPRB, &
+          & 0.0003_JPRB, 0.0043_JPRB, 0.0038_JPRB, 0.0030_JPRB, 0.0013_JPRB, &
+          & 0.0005_JPRB, 0.0054_JPRB, 0.0052_JPRB, 0.0050_JPRB, 0.0048_JPRB, &
+          & 0.0048_JPRB /)
+
+
+! Sun-Shine
+
+RSUSHFA = (/ 1.047_JPRB, -0.913E-04_JPRB, 0.203E-03_JPRB, -0.106E-04_JPRB  /)
+
+!     ------------------------------------------------------------------
+
+!*         2. 
+
+!* Liquid/Solid water transition
+
+RTIW= 263._JPRB
+RRIW= 20._JPRB
+
+! Ice particle Effective Radius as a function of LWC
+
+REFFIA= 40._JPRB
+REFFIB= 0._JPRB
+
+! Sun-Shine
+
+RSUSHC= 0.0306_JPRB
+RSUSHD= 0.2548_JPRB
+
+!     ------------------------------------------------------------------
+
+! SW : absorption coefficients
+
+IF (KSW == 2) THEN
+  DO JNU=1,KSW
+    RASWCA(JNU)=ZASWCA2(JNU)*1.E-02_JPRB
+    RASWCB(JNU)=ZASWCB2(JNU)
+    RASWCC(JNU)=ZASWCC2(JNU)
+    RASWCD(JNU)=ZASWCD2(JNU)
+    RASWCE(JNU)=ZASWCE2(JNU)
+    RASWCF(JNU)=ZASWCF2(JNU)*1.E-03_JPRB
+
+    REBCUA(JNU)=ZEBCUA2(JNU)
+    REBCUB(JNU)=ZEBCUB2(JNU)
+    REBCUC(JNU)=ZEBCUC2(JNU)
+    REBCUD(JNU)=ZEBCUD2(JNU)
+    REBCUE(JNU)=ZEBCUE2(JNU)
+    REBCUF(JNU)=ZEBCUF2(JNU)
+
+    RYFWCA(JNU)=ZYFWCA2(JNU)
+    RYFWCB(JNU)=ZYFWCB2(JNU)
+    RYFWCC(JNU)=ZYFWCC2(JNU)
+    RYFWCD(JNU)=ZYFWCD2(JNU)
+    RYFWCE(JNU)=ZYFWCE2(JNU)
+    RYFWCF(JNU)=ZYFWCF2(JNU)
+
+    RSUSHE(JNU)=ZSUSHE2(JNU)*1.E-02_JPRB
+    RSUSHF(JNU)=ZSUSHF2(JNU)*1.E-02_JPRB
+    RSUSHH(JNU)=ZSUSHH2(JNU)
+    RSUSHK(JNU)=ZSUSHK2(JNU)*1.E-01_JPRB
+    RSUSHA(JNU)=ZSUSHA2(JNU)*1.E-03_JPRB
+    RSUSHG(JNU)=ZSUSHG2(JNU)*1.E-01_JPRB
+    
+    RFLAA0(JNU)=ZFLAA02(JNU)
+    RFLAA1(JNU)=ZFLAA12(JNU)
+    RFLBB0(JNU)=ZFLBB02(JNU)
+    RFLBB1(JNU)=ZFLBB12(JNU)
+    RFLBB2(JNU)=ZFLBB22(JNU)
+    RFLBB3(JNU)=ZFLBB32(JNU)
+    RFLCC0(JNU)=ZFLCC02(JNU)
+    RFLCC1(JNU)=ZFLCC12(JNU)
+    RFLCC2(JNU)=ZFLCC22(JNU)
+    RFLCC3(JNU)=ZFLCC32(JNU)
+    RFLDD0(JNU)=ZFLDD02(JNU)
+    RFLDD1(JNU)=ZFLDD12(JNU)
+    RFLDD2(JNU)=ZFLDD22(JNU)
+    RFLDD3(JNU)=ZFLDD32(JNU)
+    
+!    RFUAA0(JNU)=ZFUAA02(JNU)
+!    RFUAA1(JNU)=ZFUAA12(JNU)
+!    RFUBB0(JNU)=ZFUBB02(JNU)
+!    RFUBB1(JNU)=ZFUBB12(JNU)
+!    RFUBB2(JNU)=ZFUBB22(JNU)
+!    RFUBB3(JNU)=ZFUBB32(JNU)
+!    RFUCC0(JNU)=ZFUCC02(JNU)
+!    RFUCC1(JNU)=ZFUCC12(JNU)
+!    RFUCC2(JNU)=ZFUCC22(JNU)
+!    RFUCC3(JNU)=ZFUCC32(JNU)
+!    RFUDD0(JNU)=ZFUDD02(JNU)
+!    RFUDD1(JNU)=ZFUDD12(JNU)
+!    RFUDD2(JNU)=ZFUDD22(JNU)
+!    RFUDD3(JNU)=ZFUDD32(JNU)
+    
+  ENDDO
+ELSEIF (KSW == 4) THEN
+  DO JNU=1,KSW
+    RASWCA(JNU)=ZASWCA4(JNU)*1.E-02_JPRB
+    RASWCB(JNU)=ZASWCB4(JNU)
+    RASWCC(JNU)=ZASWCC4(JNU)
+    RASWCD(JNU)=ZASWCD4(JNU)
+    RASWCE(JNU)=ZASWCE4(JNU)
+    RASWCF(JNU)=ZASWCF4(JNU)*1.E-03_JPRB
+
+    REBCUA(JNU)=ZEBCUA4(JNU)
+    REBCUB(JNU)=ZEBCUB4(JNU)
+    REBCUC(JNU)=ZEBCUC4(JNU)
+    REBCUD(JNU)=ZEBCUD4(JNU)
+    REBCUE(JNU)=ZEBCUE4(JNU)
+    REBCUF(JNU)=ZEBCUF4(JNU)
+
+    RYFWCA(JNU)=ZYFWCA4(JNU)
+    RYFWCB(JNU)=ZYFWCB4(JNU)
+    RYFWCC(JNU)=ZYFWCC4(JNU)
+    RYFWCD(JNU)=ZYFWCD4(JNU)
+    RYFWCE(JNU)=ZYFWCE4(JNU)
+    RYFWCF(JNU)=ZYFWCF4(JNU)
+
+    RSUSHE(JNU)=ZSUSHE4(JNU)*1.E-02_JPRB
+    RSUSHF(JNU)=ZSUSHF4(JNU)*1.E-02_JPRB
+    RSUSHH(JNU)=ZSUSHH4(JNU)
+    RSUSHK(JNU)=ZSUSHK4(JNU)*1.E-01_JPRB
+    RSUSHA(JNU)=ZSUSHA4(JNU)*1.E-03_JPRB
+    RSUSHG(JNU)=ZSUSHG4(JNU)*1.E-01_JPRB
+    
+    RFLAA0(JNU)=ZFLAA04(JNU)
+    RFLAA1(JNU)=ZFLAA14(JNU)
+    RFLBB0(JNU)=ZFLBB04(JNU)
+    RFLBB1(JNU)=ZFLBB14(JNU)
+    RFLBB2(JNU)=ZFLBB24(JNU)
+    RFLBB3(JNU)=ZFLBB34(JNU)
+    RFLCC0(JNU)=ZFLCC04(JNU)
+    RFLCC1(JNU)=ZFLCC14(JNU)
+    RFLCC2(JNU)=ZFLCC24(JNU)
+    RFLCC3(JNU)=ZFLCC34(JNU)
+    RFLDD0(JNU)=ZFLDD04(JNU)
+    RFLDD1(JNU)=ZFLDD14(JNU)
+    RFLDD2(JNU)=ZFLDD24(JNU)
+    RFLDD3(JNU)=ZFLDD34(JNU)
+    
+    RFUAA0(JNU)=ZFUAA04(JNU)
+    RFUAA1(JNU)=ZFUAA14(JNU)
+    RFUBB0(JNU)=ZFUBB04(JNU)
+    RFUBB1(JNU)=ZFUBB14(JNU)
+    RFUBB2(JNU)=ZFUBB24(JNU)
+    RFUBB3(JNU)=ZFUBB34(JNU)
+    RFUCC0(JNU)=ZFUCC04(JNU)
+    RFUCC1(JNU)=ZFUCC14(JNU)
+    RFUCC2(JNU)=ZFUCC24(JNU)
+    RFUCC3(JNU)=ZFUCC34(JNU)
+!    RFUDD0(JNU)=ZFUDD04(JNU)
+!    RFUDD1(JNU)=ZFUDD14(JNU)
+!    RFUDD2(JNU)=ZFUDD24(JNU)
+!    RFUDD3(JNU)=ZFUDD34(JNU)
+    
+  ENDDO
+ELSEIF (KSW == 6) THEN
+  DO JNU=1,KSW
+    RASWCA(JNU)=ZASWCA6(JNU)*1.E-02_JPRB
+    RASWCB(JNU)=ZASWCB6(JNU)
+    RASWCC(JNU)=ZASWCC6(JNU)
+    RASWCD(JNU)=ZASWCD6(JNU)
+    RASWCE(JNU)=ZASWCE6(JNU)
+    RASWCF(JNU)=ZASWCF6(JNU)*1.E-03_JPRB
+
+    REBCUA(JNU)=ZEBCUA6(JNU)
+    REBCUB(JNU)=ZEBCUB6(JNU)
+    REBCUC(JNU)=ZEBCUC6(JNU)
+    REBCUD(JNU)=ZEBCUD6(JNU)
+    REBCUE(JNU)=ZEBCUE6(JNU)
+    REBCUF(JNU)=ZEBCUF6(JNU)
+
+    RYFWCA(JNU)=ZYFWCA6(JNU)
+    RYFWCB(JNU)=ZYFWCB6(JNU)
+    RYFWCC(JNU)=ZYFWCC6(JNU)
+    RYFWCD(JNU)=ZYFWCD6(JNU)
+    RYFWCE(JNU)=ZYFWCE6(JNU)
+    RYFWCF(JNU)=ZYFWCF6(JNU)
+
+    RSUSHE(JNU)=ZSUSHE6(JNU)*1.E-02_JPRB
+    RSUSHF(JNU)=ZSUSHF6(JNU)*1.E-02_JPRB
+    RSUSHH(JNU)=ZSUSHH6(JNU)
+    RSUSHK(JNU)=ZSUSHK6(JNU)*1.E-01_JPRB
+    RSUSHA(JNU)=ZSUSHA6(JNU)*1.E-03_JPRB
+    RSUSHG(JNU)=ZSUSHG6(JNU)*1.E-01_JPRB
+    
+    RFLAA0(JNU)=ZFLAA06(JNU)
+    RFLAA1(JNU)=ZFLAA16(JNU)
+    RFLBB0(JNU)=ZFLBB06(JNU)
+    RFLBB1(JNU)=ZFLBB16(JNU)
+    RFLBB2(JNU)=ZFLBB26(JNU)
+    RFLBB3(JNU)=ZFLBB36(JNU)
+    RFLCC0(JNU)=ZFLCC06(JNU)
+    RFLCC1(JNU)=ZFLCC16(JNU)
+    RFLCC2(JNU)=ZFLCC26(JNU)
+    RFLCC3(JNU)=ZFLCC36(JNU)
+    RFLDD0(JNU)=ZFLDD06(JNU)
+    RFLDD1(JNU)=ZFLDD16(JNU)
+    RFLDD2(JNU)=ZFLDD26(JNU)
+    RFLDD3(JNU)=ZFLDD36(JNU)
+    
+    RFUAA0(JNU)=ZFUAA06(JNU)
+    RFUAA1(JNU)=ZFUAA16(JNU)
+    RFUBB0(JNU)=ZFUBB06(JNU)
+    RFUBB1(JNU)=ZFUBB16(JNU)
+    RFUBB2(JNU)=ZFUBB26(JNU)
+    RFUBB3(JNU)=ZFUBB36(JNU)
+    RFUCC0(JNU)=ZFUCC06(JNU)
+    RFUCC1(JNU)=ZFUCC16(JNU)
+    RFUCC2(JNU)=ZFUCC26(JNU)
+    RFUCC3(JNU)=ZFUCC36(JNU)
+!    RFUDD0(JNU)=ZFUDD06(JNU)
+!    RFUDD1(JNU)=ZFUDD16(JNU)
+!    RFUDD2(JNU)=ZFUDD26(JNU)
+!    RFUDD3(JNU)=ZFUDD36(JNU)
+    
+  ENDDO
+ELSE
+!  CALL ABOR1('SUCLOPN: WRONG SW SPECTRAL RESOLUTION')
+  STOP 'SUCLOPN: WRONG SW SPECTRAL RESOLUTION'
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*          2.    CLOUD OVERLAP PARAMETERS
+!                 ------------------------
+
+ZAOVLP = (/ -2.250E-05_JPRB,-7.316E-06_JPRB,-1.966E-05_JPRB /) 
+ZBOVLP = (/  0.7865_JPRB   , 0.8186_JPRB   , 0.8900_JPRB    /)
+
+IF (KLEV == 19) THEN
+  RAOVLP=ZAOVLP(1)
+  RBOVLP=ZBOVLP(1)
+ELSE IF (KLEV == 31) THEN
+  RAOVLP=ZAOVLP(2)
+  RBOVLP=ZBOVLP(2)
+ELSE IF (KLEV == 60) THEN
+  RAOVLP=ZAOVLP(3)
+  RBOVLP=ZBOVLP(3)
+ELSE  
+  RAOVLP=ZAOVLP(3)
+  RBOVLP=ZBOVLP(3)
+END IF  
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUCLOPN
Index: LMDZ5/branches/testing/libf/phymar/sucst.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sucst.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sucst.F90	(revision 2160)
@@ -0,0 +1,287 @@
+SUBROUTINE SUCST(KULOUT,KDAT,KSSS,KPRINTLEV)
+
+!**** *SUCST * - Routine to initialize the constants of the model.
+
+!     Purpose.
+!     --------
+!           Initialize and print the common YOMCST + initialize
+!         date and time of YOMRIP.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUCST (..)
+
+!        Explicit arguments :
+!        --------------------
+
+!        KULOUT  - logical unit for the output
+!        KDAT    - date in the form AAAAMMDD
+!        KSSS    - number of seconds in the day
+!        KPRINTLEV - printing level
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMCST
+!        COMMON YOMRIP
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        Additions : 90-07-30 (J.-F. Geleyn)
+!                    91-11-15 (M. Deque)
+!                    96-08-12 M.Hamrud - Reduce printing
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RPI      ,RCLUM    ,RHPLA    ,RKBOL    ,&
+            &RNAVO    ,RDAY     ,REA      ,REPSM    ,RSIYEA   ,&
+            &RSIDAY   ,ROMEGA   ,RA       ,RG       ,R1SA     ,&
+            &RSIGMA   ,RI0      ,R        ,RMD      ,RMV      ,&
+            &RMO3     ,RD       ,RV       ,RCPD     ,RCPV     ,&
+            &RCVD     ,RCVV     ,RKAPPA   ,RETV     ,RCW      ,&
+            &RCS      ,RLVTT    ,RLSTT    ,RLVZER   ,RLSZER   ,&
+            &RLMLT    ,RTT      ,RATM     ,RDT      ,RESTT    ,&
+            &RALPW    ,RBETW    ,RGAMW    ,RALPS    ,RBETS    ,&
+            &RGAMS    ,RALPD    ,RBETD    ,RGAMD
+USE YOMRIP   , ONLY : RTIMST   ,RTIMTR
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KDAT
+INTEGER_M :: KPRINTLEV
+INTEGER_M :: KSSS
+INTEGER_M :: KULOUT
+
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IA, ID, IDAT, IM, ISSS, J
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZDE, ZET, ZJU, ZRS, ZRSREL, ZTETA, ZTI
+
+
+#include "fctast.h"
+#include "fcttrm.h"
+#include "fcttim.h"
+!      -----------------------------------------------------------------
+
+!*       1.    DEFINE FUNDAMENTAL CONSTANTS.
+!              -----------------------------
+
+
+RPI=_TWO_*ASIN(_ONE_)
+RCLUM=299792458._JPRB
+RHPLA=6.6260755E-34_JPRB
+RKBOL=1.380658E-23_JPRB
+RNAVO=6.0221367E+23_JPRB
+
+!     ------------------------------------------------------------------
+
+!*       2.    DEFINE ASTRONOMICAL CONSTANTS.
+!              ------------------------------
+
+RDAY=86400._JPRB
+REA=149597870000._JPRB
+REPSM=0.409093_JPRB
+
+RSIYEA=365.25_JPRB*RDAY*_TWO_*RPI/6.283076_JPRB
+RSIDAY=RDAY/(_ONE_+RDAY/RSIYEA)
+ROMEGA=_TWO_*RPI/RSIDAY
+
+IDAT=KDAT
+ISSS=KSSS
+ID=NDD(IDAT)
+IM=NMM(IDAT)
+IA=NCCAA(IDAT)
+ZJU=RJUDAT(IA,IM,ID)
+ZTI=RTIME(IA,IM,ID,ISSS)
+RTIMST=ZTI
+RTIMTR=ZTI
+ZTETA=RTETA(ZTI)
+ZRS=RRS(ZTETA)
+ZDE=RDS(ZTETA)
+ZET=RET(ZTETA)
+ZRSREL=ZRS/REA
+
+!     ------------------------------------------------------------------
+
+!*       3.    DEFINE GEOIDE.
+!              --------------
+
+RG=9.80665_JPRB
+RA=6371229._JPRB
+R1SA=REAL(_ONE_/REAL(RA,KIND(_ONE_)),KIND(R1SA))
+
+!     ------------------------------------------------------------------
+
+!*       4.    DEFINE RADIATION CONSTANTS.
+!              ---------------------------
+
+RSIGMA=_TWO_ * RPI**5 * RKBOL**4 /(15._JPRB* RCLUM**2 * RHPLA**3)
+RI0=1370._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       5.    DEFINE THERMODYNAMIC CONSTANTS, GAS PHASE.
+!              ------------------------------------------
+
+R=RNAVO*RKBOL
+RMD=28.9644_JPRB
+RMV=18.0153_JPRB
+RMO3=47.9942_JPRB
+RD=1000._JPRB*R/RMD
+RV=1000._JPRB*R/RMV
+RCPD=3.5_JPRB*RD
+RCVD=RCPD-RD
+RCPV=4._JPRB *RV
+RCVV=RCPV-RV
+RKAPPA=RD/RCPD
+RETV=RV/RD-_ONE_
+
+!     ------------------------------------------------------------------
+
+!*       6.    DEFINE THERMODYNAMIC CONSTANTS, LIQUID PHASE.
+!              ---------------------------------------------
+
+RCW=4218._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       7.    DEFINE THERMODYNAMIC CONSTANTS, SOLID PHASE.
+!              --------------------------------------------
+
+RCS=2106._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       8.    DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE.
+!              ----------------------------------------------------
+
+RTT=273.16_JPRB
+RDT=11.82_JPRB
+RLVTT=2.5008E+6_JPRB
+RLSTT=2.8345E+6_JPRB
+RLVZER=RLVTT+RTT*(RCW-RCPV)
+RLSZER=RLSTT+RTT*(RCS-RCPV)
+RLMLT=RLSTT-RLVTT
+RATM=100000._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       9.    SATURATED VAPOUR PRESSURE.
+!              --------------------------
+
+RESTT=611.14_JPRB
+RGAMW=(RCW-RCPV)/RV
+RBETW=RLVTT/RV+RGAMW*RTT
+RALPW=LOG(RESTT)+RBETW/RTT+RGAMW*LOG(RTT)
+RGAMS=(RCS-RCPV)/RV
+RBETS=RLSTT/RV+RGAMS*RTT
+RALPS=LOG(RESTT)+RBETS/RTT+RGAMS*LOG(RTT)
+RGAMD=RGAMS-RGAMW
+RBETD=RBETS-RBETW
+RALPD=RALPS-RALPW
+
+!     ------------------------------------------------------------------
+
+!*      10.    PRINTS
+
+IF (KPRINTLEV >= 1) THEN
+  WRITE(KULOUT,'(''0*** Constants of the ICM   ***'')')
+  WRITE(KULOUT,'('' *** Fundamental constants ***'')')
+  WRITE(KULOUT,'(''           PI = '',E13.7,'' -'')')RPI
+  WRITE(KULOUT,'(''            c = '',E13.7,''m s-1'')')RCLUM
+  WRITE(KULOUT,'(''            h = '',E13.7,''J s'')')RHPLA
+  WRITE(KULOUT,'(''            K = '',E13.7,''J K-1'')')RKBOL
+  WRITE(KULOUT,'(''            N = '',E13.7,''mol-1'')')RNAVO
+  WRITE(KULOUT,'('' *** Astronomical constants ***'')')
+  WRITE(KULOUT,'(''          day = '',E13.7,'' s'')')RDAY
+  WRITE(KULOUT,'('' half g. axis = '',E13.7,'' m'')')REA
+  WRITE(KULOUT,'('' mean anomaly = '',E13.7,'' -'')')REPSM
+  WRITE(KULOUT,'('' sideral year = '',E13.7,'' s'')')RSIYEA
+  WRITE(KULOUT,'(''  sideral day = '',E13.7,'' s'')')RSIDAY
+  WRITE(KULOUT,'(''        omega = '',E13.7,'' s-1'')')ROMEGA
+
+  WRITE(KULOUT,'('' The initial date of the run is :'')')
+  WRITE(KULOUT,'(1X,I8,1X,I5,5X,I4,1X,I2,1X,I2)')IDAT,ISSS,IA,IM,ID
+  WRITE(KULOUT,'('' The Julian date is : '',F11.2)') ZJU
+  WRITE(KULOUT,'('' Time of the model  : '',F15.2,'' s'')')ZTI
+  WRITE(KULOUT,'('' Distance Earth-Sun : '',E13.7,'' m'')')ZRS
+  WRITE(KULOUT,'('' Relative Dist. E-S : '',E13.7,'' m'')')ZRSREL
+  WRITE(KULOUT,'('' Declination        : '',F12.5)') ZDE
+  WRITE(KULOUT,'('' Eq. of time        : '',F12.5,'' s'')')ZET
+  WRITE(KULOUT,'('' ***         Geoide         ***'')')
+  WRITE(KULOUT,'(''      Gravity = '',E13.7,'' m s-2'')')RG
+  WRITE(KULOUT,'('' Earth radius = '',E13.7,'' m'')')RA
+  WRITE(KULOUT,'('' Inverse E.R. = '',E13.7,'' m'')')R1SA
+  WRITE(KULOUT,'('' ***        Radiation       ***'')')
+  WRITE(KULOUT,'('' Stefan-Bol.  = '',E13.7,'' W m-2 K-4'')')  RSIGMA
+  WRITE(KULOUT,'('' Solar const. = '',E13.7,'' W m-2'')')RI0
+  WRITE(KULOUT,'('' *** Thermodynamic, gas     ***'')')
+  WRITE(KULOUT,'('' Perfect gas  = '',e13.7)') R
+  WRITE(KULOUT,'('' Dry air mass = '',e13.7)') RMD
+  WRITE(KULOUT,'('' Vapour  mass = '',e13.7)') RMV
+  WRITE(KULOUT,'('' Ozone   mass = '',e13.7)') RMO3
+  WRITE(KULOUT,'('' Dry air cst. = '',e13.7)') RD
+  WRITE(KULOUT,'('' Vapour  cst. = '',e13.7)') RV
+  WRITE(KULOUT,'(''         Cpd  = '',e13.7)') RCPD
+  WRITE(KULOUT,'(''         Cvd  = '',e13.7)') RCVD
+  WRITE(KULOUT,'(''         Cpv  = '',e13.7)') RCPV
+  WRITE(KULOUT,'(''         Cvv  = '',e13.7)') RCVV
+  WRITE(KULOUT,'(''      Rd/Cpd  = '',e13.7)') RKAPPA
+  WRITE(KULOUT,'(''     Rv/Rd-1  = '',e13.7)') RETV
+  WRITE(KULOUT,'('' *** Thermodynamic, liquid  ***'')')
+  WRITE(KULOUT,'(''         Cw   = '',E13.7)') RCW
+  WRITE(KULOUT,'('' *** thermodynamic, solid   ***'')')
+  WRITE(KULOUT,'(''         Cs   = '',E13.7)') RCS
+  WRITE(KULOUT,'('' *** Thermodynamic, trans.  ***'')')
+  WRITE(KULOUT,'('' Fusion point  = '',E13.7)') RTT
+  WRITE(KULOUT,'('' RTT-Tx(ew-ei) = '',E13.7)') RDT
+  WRITE(KULOUT,'(''        RLvTt  = '',E13.7)') RLVTT
+  WRITE(KULOUT,'(''        RLsTt  = '',E13.7)') RLSTT
+  WRITE(KULOUT,'(''        RLv0   = '',E13.7)') RLVZER
+  WRITE(KULOUT,'(''        RLs0   = '',E13.7)') RLSZER
+  WRITE(KULOUT,'(''        RLMlt  = '',E13.7)') RLMLT
+  WRITE(KULOUT,'('' Normal press. = '',E13.7)') RATM
+  WRITE(KULOUT,'('' Latent heat :  '')')
+  WRITE(KULOUT,'(10(1X,E10.4))') (10._JPRB*J,J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (RLV(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (RLS(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'('' *** Thermodynamic, satur.  ***'')')
+  WRITE(KULOUT,'('' Fusion point = '',E13.7)') RTT
+  WRITE(KULOUT,'(''      es(Tt)  = '',e13.7)') RESTT
+  WRITE(KULOUT,'('' es(T) :  '')')
+  WRITE(KULOUT,'(10(1X,E10.4))') (10._JPRB*J,J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUCST
+
+
+
+
+
+
Index: LMDZ5/branches/testing/libf/phymar/suecaebc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc.F90	(revision 2160)
@@ -0,0 +1,61 @@
+SUBROUTINE SUECAEBC
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+      call suecaebc_01
+      call suecaebc_02
+      call suecaebc_03
+      call suecaebc_04
+      call suecaebc_05
+      call suecaebc_06
+      call suecaebc_07
+      call suecaebc_08
+      call suecaebc_09
+      call suecaebc_10
+      call suecaebc_11
+      call suecaebc_12
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_01.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_01
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 January
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,1:1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  1 --- lat:  1  90.0
+ZAER (:, 1, 1) = (/&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,.659E-04_JPRB,&
+&.659E-04_JPRB,.659E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  2  86.0
+ZAER (:, 2, 1) = (/&
+&.674E-04_JPRB,.674E-04_JPRB,.676E-04_JPRB,.677E-04_JPRB,.677E-04_JPRB,.679E-04_JPRB,.679E-04_JPRB,&
+&.679E-04_JPRB,.679E-04_JPRB,.678E-04_JPRB,.678E-04_JPRB,.677E-04_JPRB,.677E-04_JPRB,.676E-04_JPRB,&
+&.676E-04_JPRB,.674E-04_JPRB,.674E-04_JPRB,.673E-04_JPRB,.673E-04_JPRB,.672E-04_JPRB,.671E-04_JPRB,&
+&.670E-04_JPRB,.670E-04_JPRB,.669E-04_JPRB,.667E-04_JPRB,.666E-04_JPRB,.665E-04_JPRB,.664E-04_JPRB,&
+&.662E-04_JPRB,.661E-04_JPRB,.659E-04_JPRB,.658E-04_JPRB,.656E-04_JPRB,.653E-04_JPRB,.652E-04_JPRB,&
+&.650E-04_JPRB,.648E-04_JPRB,.646E-04_JPRB,.645E-04_JPRB,.644E-04_JPRB,.643E-04_JPRB,.642E-04_JPRB,&
+&.641E-04_JPRB,.640E-04_JPRB,.640E-04_JPRB,.639E-04_JPRB,.639E-04_JPRB,.638E-04_JPRB,.638E-04_JPRB,&
+&.638E-04_JPRB,.639E-04_JPRB,.639E-04_JPRB,.639E-04_JPRB,.640E-04_JPRB,.641E-04_JPRB,.641E-04_JPRB,&
+&.643E-04_JPRB,.644E-04_JPRB,.645E-04_JPRB,.647E-04_JPRB,.649E-04_JPRB,.651E-04_JPRB,.653E-04_JPRB,&
+&.655E-04_JPRB,.657E-04_JPRB,.660E-04_JPRB,.662E-04_JPRB,.664E-04_JPRB,.667E-04_JPRB,.669E-04_JPRB,&
+&.671E-04_JPRB,.674E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  3  82.0
+ZAER (:, 3, 1) = (/&
+&.712E-04_JPRB,.712E-04_JPRB,.720E-04_JPRB,.721E-04_JPRB,.723E-04_JPRB,.724E-04_JPRB,.722E-04_JPRB,&
+&.721E-04_JPRB,.718E-04_JPRB,.715E-04_JPRB,.712E-04_JPRB,.707E-04_JPRB,.704E-04_JPRB,.702E-04_JPRB,&
+&.699E-04_JPRB,.697E-04_JPRB,.696E-04_JPRB,.695E-04_JPRB,.695E-04_JPRB,.695E-04_JPRB,.696E-04_JPRB,&
+&.697E-04_JPRB,.697E-04_JPRB,.698E-04_JPRB,.698E-04_JPRB,.697E-04_JPRB,.696E-04_JPRB,.693E-04_JPRB,&
+&.690E-04_JPRB,.686E-04_JPRB,.680E-04_JPRB,.675E-04_JPRB,.670E-04_JPRB,.661E-04_JPRB,.654E-04_JPRB,&
+&.649E-04_JPRB,.643E-04_JPRB,.637E-04_JPRB,.633E-04_JPRB,.629E-04_JPRB,.625E-04_JPRB,.623E-04_JPRB,&
+&.621E-04_JPRB,.619E-04_JPRB,.618E-04_JPRB,.618E-04_JPRB,.617E-04_JPRB,.618E-04_JPRB,.618E-04_JPRB,&
+&.619E-04_JPRB,.619E-04_JPRB,.619E-04_JPRB,.619E-04_JPRB,.620E-04_JPRB,.620E-04_JPRB,.620E-04_JPRB,&
+&.622E-04_JPRB,.623E-04_JPRB,.626E-04_JPRB,.629E-04_JPRB,.632E-04_JPRB,.637E-04_JPRB,.644E-04_JPRB,&
+&.649E-04_JPRB,.656E-04_JPRB,.666E-04_JPRB,.672E-04_JPRB,.680E-04_JPRB,.691E-04_JPRB,.697E-04_JPRB,&
+&.703E-04_JPRB,.712E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  4  78.0
+ZAER (:, 4, 1) = (/&
+&.772E-04_JPRB,.773E-04_JPRB,.786E-04_JPRB,.788E-04_JPRB,.790E-04_JPRB,.788E-04_JPRB,.782E-04_JPRB,&
+&.777E-04_JPRB,.766E-04_JPRB,.756E-04_JPRB,.748E-04_JPRB,.737E-04_JPRB,.728E-04_JPRB,.723E-04_JPRB,&
+&.717E-04_JPRB,.714E-04_JPRB,.714E-04_JPRB,.714E-04_JPRB,.719E-04_JPRB,.723E-04_JPRB,.729E-04_JPRB,&
+&.741E-04_JPRB,.748E-04_JPRB,.756E-04_JPRB,.769E-04_JPRB,.774E-04_JPRB,.778E-04_JPRB,.780E-04_JPRB,&
+&.775E-04_JPRB,.770E-04_JPRB,.755E-04_JPRB,.740E-04_JPRB,.728E-04_JPRB,.706E-04_JPRB,.689E-04_JPRB,&
+&.677E-04_JPRB,.660E-04_JPRB,.648E-04_JPRB,.641E-04_JPRB,.632E-04_JPRB,.625E-04_JPRB,.622E-04_JPRB,&
+&.620E-04_JPRB,.618E-04_JPRB,.618E-04_JPRB,.619E-04_JPRB,.620E-04_JPRB,.621E-04_JPRB,.622E-04_JPRB,&
+&.623E-04_JPRB,.622E-04_JPRB,.622E-04_JPRB,.619E-04_JPRB,.618E-04_JPRB,.616E-04_JPRB,.614E-04_JPRB,&
+&.613E-04_JPRB,.613E-04_JPRB,.615E-04_JPRB,.618E-04_JPRB,.622E-04_JPRB,.630E-04_JPRB,.640E-04_JPRB,&
+&.649E-04_JPRB,.662E-04_JPRB,.680E-04_JPRB,.692E-04_JPRB,.707E-04_JPRB,.730E-04_JPRB,.742E-04_JPRB,&
+&.755E-04_JPRB,.772E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  5  74.0
+ZAER (:, 5, 1) = (/&
+&.834E-04_JPRB,.835E-04_JPRB,.850E-04_JPRB,.853E-04_JPRB,.854E-04_JPRB,.848E-04_JPRB,.837E-04_JPRB,&
+&.827E-04_JPRB,.808E-04_JPRB,.792E-04_JPRB,.780E-04_JPRB,.763E-04_JPRB,.751E-04_JPRB,.744E-04_JPRB,&
+&.737E-04_JPRB,.733E-04_JPRB,.733E-04_JPRB,.735E-04_JPRB,.745E-04_JPRB,.754E-04_JPRB,.766E-04_JPRB,&
+&.793E-04_JPRB,.813E-04_JPRB,.833E-04_JPRB,.876E-04_JPRB,.897E-04_JPRB,.918E-04_JPRB,.940E-04_JPRB,&
+&.939E-04_JPRB,.935E-04_JPRB,.907E-04_JPRB,.877E-04_JPRB,.850E-04_JPRB,.803E-04_JPRB,.766E-04_JPRB,&
+&.741E-04_JPRB,.709E-04_JPRB,.688E-04_JPRB,.677E-04_JPRB,.665E-04_JPRB,.658E-04_JPRB,.655E-04_JPRB,&
+&.652E-04_JPRB,.653E-04_JPRB,.654E-04_JPRB,.656E-04_JPRB,.660E-04_JPRB,.661E-04_JPRB,.663E-04_JPRB,&
+&.662E-04_JPRB,.659E-04_JPRB,.657E-04_JPRB,.650E-04_JPRB,.646E-04_JPRB,.641E-04_JPRB,.635E-04_JPRB,&
+&.632E-04_JPRB,.630E-04_JPRB,.632E-04_JPRB,.636E-04_JPRB,.641E-04_JPRB,.650E-04_JPRB,.663E-04_JPRB,&
+&.674E-04_JPRB,.690E-04_JPRB,.713E-04_JPRB,.729E-04_JPRB,.748E-04_JPRB,.778E-04_JPRB,.794E-04_JPRB,&
+&.811E-04_JPRB,.834E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  6  70.0
+ZAER (:, 6, 1) = (/&
+&.894E-04_JPRB,.894E-04_JPRB,.903E-04_JPRB,.902E-04_JPRB,.901E-04_JPRB,.892E-04_JPRB,.879E-04_JPRB,&
+&.867E-04_JPRB,.845E-04_JPRB,.828E-04_JPRB,.816E-04_JPRB,.803E-04_JPRB,.794E-04_JPRB,.788E-04_JPRB,&
+&.783E-04_JPRB,.779E-04_JPRB,.778E-04_JPRB,.779E-04_JPRB,.787E-04_JPRB,.796E-04_JPRB,.807E-04_JPRB,&
+&.837E-04_JPRB,.864E-04_JPRB,.894E-04_JPRB,.972E-04_JPRB,.102E-03_JPRB,.107E-03_JPRB,.114E-03_JPRB,&
+&.115E-03_JPRB,.115E-03_JPRB,.112E-03_JPRB,.107E-03_JPRB,.103E-03_JPRB,.946E-04_JPRB,.883E-04_JPRB,&
+&.842E-04_JPRB,.794E-04_JPRB,.768E-04_JPRB,.755E-04_JPRB,.744E-04_JPRB,.740E-04_JPRB,.739E-04_JPRB,&
+&.739E-04_JPRB,.742E-04_JPRB,.743E-04_JPRB,.744E-04_JPRB,.746E-04_JPRB,.746E-04_JPRB,.746E-04_JPRB,&
+&.742E-04_JPRB,.737E-04_JPRB,.731E-04_JPRB,.719E-04_JPRB,.710E-04_JPRB,.702E-04_JPRB,.692E-04_JPRB,&
+&.688E-04_JPRB,.688E-04_JPRB,.693E-04_JPRB,.702E-04_JPRB,.711E-04_JPRB,.724E-04_JPRB,.737E-04_JPRB,&
+&.747E-04_JPRB,.761E-04_JPRB,.783E-04_JPRB,.798E-04_JPRB,.817E-04_JPRB,.846E-04_JPRB,.861E-04_JPRB,&
+&.875E-04_JPRB,.893E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  7  66.0
+ZAER (:, 7, 1) = (/&
+&.970E-04_JPRB,.970E-04_JPRB,.962E-04_JPRB,.957E-04_JPRB,.951E-04_JPRB,.940E-04_JPRB,.927E-04_JPRB,&
+&.914E-04_JPRB,.887E-04_JPRB,.871E-04_JPRB,.862E-04_JPRB,.858E-04_JPRB,.858E-04_JPRB,.858E-04_JPRB,&
+&.857E-04_JPRB,.852E-04_JPRB,.849E-04_JPRB,.847E-04_JPRB,.852E-04_JPRB,.858E-04_JPRB,.867E-04_JPRB,&
+&.891E-04_JPRB,.916E-04_JPRB,.944E-04_JPRB,.104E-03_JPRB,.111E-03_JPRB,.119E-03_JPRB,.131E-03_JPRB,&
+&.134E-03_JPRB,.135E-03_JPRB,.132E-03_JPRB,.126E-03_JPRB,.121E-03_JPRB,.111E-03_JPRB,.104E-03_JPRB,&
+&.994E-04_JPRB,.937E-04_JPRB,.908E-04_JPRB,.895E-04_JPRB,.886E-04_JPRB,.889E-04_JPRB,.891E-04_JPRB,&
+&.893E-04_JPRB,.892E-04_JPRB,.889E-04_JPRB,.884E-04_JPRB,.877E-04_JPRB,.874E-04_JPRB,.871E-04_JPRB,&
+&.868E-04_JPRB,.862E-04_JPRB,.856E-04_JPRB,.839E-04_JPRB,.825E-04_JPRB,.814E-04_JPRB,.800E-04_JPRB,&
+&.799E-04_JPRB,.800E-04_JPRB,.812E-04_JPRB,.830E-04_JPRB,.843E-04_JPRB,.862E-04_JPRB,.875E-04_JPRB,&
+&.881E-04_JPRB,.887E-04_JPRB,.897E-04_JPRB,.908E-04_JPRB,.923E-04_JPRB,.950E-04_JPRB,.961E-04_JPRB,&
+&.970E-04_JPRB,.970E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  8  62.0
+ZAER (:, 8, 1) = (/&
+&.111E-03_JPRB,.111E-03_JPRB,.108E-03_JPRB,.107E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,&
+&.100E-03_JPRB,.960E-04_JPRB,.937E-04_JPRB,.925E-04_JPRB,.922E-04_JPRB,.928E-04_JPRB,.930E-04_JPRB,&
+&.932E-04_JPRB,.926E-04_JPRB,.922E-04_JPRB,.919E-04_JPRB,.918E-04_JPRB,.923E-04_JPRB,.930E-04_JPRB,&
+&.960E-04_JPRB,.985E-04_JPRB,.101E-03_JPRB,.110E-03_JPRB,.118E-03_JPRB,.126E-03_JPRB,.141E-03_JPRB,&
+&.144E-03_JPRB,.145E-03_JPRB,.142E-03_JPRB,.138E-03_JPRB,.134E-03_JPRB,.128E-03_JPRB,.122E-03_JPRB,&
+&.119E-03_JPRB,.113E-03_JPRB,.110E-03_JPRB,.109E-03_JPRB,.107E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,&
+&.108E-03_JPRB,.107E-03_JPRB,.106E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,.101E-03_JPRB,.100E-03_JPRB,&
+&.101E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.983E-04_JPRB,.969E-04_JPRB,.953E-04_JPRB,&
+&.954E-04_JPRB,.957E-04_JPRB,.972E-04_JPRB,.997E-04_JPRB,.101E-03_JPRB,.104E-03_JPRB,.106E-03_JPRB,&
+&.106E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.110E-03_JPRB,.111E-03_JPRB,&
+&.113E-03_JPRB,.111E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat:  9  58.0
+ZAER (:, 9, 1) = (/&
+&.137E-03_JPRB,.136E-03_JPRB,.131E-03_JPRB,.128E-03_JPRB,.125E-03_JPRB,.122E-03_JPRB,.118E-03_JPRB,&
+&.115E-03_JPRB,.108E-03_JPRB,.103E-03_JPRB,.101E-03_JPRB,.987E-04_JPRB,.990E-04_JPRB,.993E-04_JPRB,&
+&.999E-04_JPRB,.992E-04_JPRB,.987E-04_JPRB,.980E-04_JPRB,.973E-04_JPRB,.972E-04_JPRB,.972E-04_JPRB,&
+&.100E-03_JPRB,.104E-03_JPRB,.107E-03_JPRB,.117E-03_JPRB,.124E-03_JPRB,.132E-03_JPRB,.147E-03_JPRB,&
+&.151E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,.151E-03_JPRB,.148E-03_JPRB,.143E-03_JPRB,.141E-03_JPRB,&
+&.139E-03_JPRB,.135E-03_JPRB,.131E-03_JPRB,.128E-03_JPRB,.123E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,&
+&.119E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.118E-03_JPRB,.116E-03_JPRB,.114E-03_JPRB,&
+&.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,&
+&.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,.117E-03_JPRB,.120E-03_JPRB,&
+&.122E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.128E-03_JPRB,.131E-03_JPRB,&
+&.135E-03_JPRB,.137E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 10  54.0
+ZAER (:,10, 1) = (/&
+&.159E-03_JPRB,.159E-03_JPRB,.156E-03_JPRB,.152E-03_JPRB,.148E-03_JPRB,.140E-03_JPRB,.134E-03_JPRB,&
+&.128E-03_JPRB,.119E-03_JPRB,.113E-03_JPRB,.108E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,&
+&.106E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,&
+&.103E-03_JPRB,.107E-03_JPRB,.111E-03_JPRB,.124E-03_JPRB,.132E-03_JPRB,.141E-03_JPRB,.156E-03_JPRB,&
+&.164E-03_JPRB,.171E-03_JPRB,.177E-03_JPRB,.172E-03_JPRB,.168E-03_JPRB,.162E-03_JPRB,.160E-03_JPRB,&
+&.157E-03_JPRB,.151E-03_JPRB,.143E-03_JPRB,.138E-03_JPRB,.131E-03_JPRB,.126E-03_JPRB,.125E-03_JPRB,&
+&.125E-03_JPRB,.129E-03_JPRB,.132E-03_JPRB,.136E-03_JPRB,.138E-03_JPRB,.134E-03_JPRB,.129E-03_JPRB,&
+&.121E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,.124E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.129E-03_JPRB,&
+&.129E-03_JPRB,.127E-03_JPRB,.123E-03_JPRB,.121E-03_JPRB,.120E-03_JPRB,.121E-03_JPRB,.126E-03_JPRB,&
+&.130E-03_JPRB,.136E-03_JPRB,.140E-03_JPRB,.142E-03_JPRB,.144E-03_JPRB,.149E-03_JPRB,.152E-03_JPRB,&
+&.156E-03_JPRB,.159E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 11  50.0
+ZAER (:,11, 1) = (/&
+&.184E-03_JPRB,.184E-03_JPRB,.178E-03_JPRB,.171E-03_JPRB,.164E-03_JPRB,.152E-03_JPRB,.145E-03_JPRB,&
+&.139E-03_JPRB,.130E-03_JPRB,.123E-03_JPRB,.118E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,&
+&.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.111E-03_JPRB,&
+&.112E-03_JPRB,.117E-03_JPRB,.123E-03_JPRB,.140E-03_JPRB,.151E-03_JPRB,.163E-03_JPRB,.182E-03_JPRB,&
+&.193E-03_JPRB,.200E-03_JPRB,.203E-03_JPRB,.201E-03_JPRB,.198E-03_JPRB,.190E-03_JPRB,.180E-03_JPRB,&
+&.172E-03_JPRB,.162E-03_JPRB,.152E-03_JPRB,.146E-03_JPRB,.138E-03_JPRB,.133E-03_JPRB,.132E-03_JPRB,&
+&.131E-03_JPRB,.136E-03_JPRB,.142E-03_JPRB,.150E-03_JPRB,.157E-03_JPRB,.153E-03_JPRB,.148E-03_JPRB,&
+&.131E-03_JPRB,.129E-03_JPRB,.127E-03_JPRB,.133E-03_JPRB,.137E-03_JPRB,.140E-03_JPRB,.145E-03_JPRB,&
+&.144E-03_JPRB,.142E-03_JPRB,.134E-03_JPRB,.129E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.130E-03_JPRB,&
+&.136E-03_JPRB,.147E-03_JPRB,.160E-03_JPRB,.165E-03_JPRB,.169E-03_JPRB,.178E-03_JPRB,.181E-03_JPRB,&
+&.185E-03_JPRB,.184E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 12  46.0
+ZAER (:,12, 1) = (/&
+&.216E-03_JPRB,.215E-03_JPRB,.194E-03_JPRB,.183E-03_JPRB,.174E-03_JPRB,.161E-03_JPRB,.155E-03_JPRB,&
+&.150E-03_JPRB,.142E-03_JPRB,.136E-03_JPRB,.132E-03_JPRB,.127E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,&
+&.129E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.130E-03_JPRB,.128E-03_JPRB,.127E-03_JPRB,.125E-03_JPRB,&
+&.131E-03_JPRB,.143E-03_JPRB,.155E-03_JPRB,.186E-03_JPRB,.205E-03_JPRB,.223E-03_JPRB,.238E-03_JPRB,&
+&.237E-03_JPRB,.235E-03_JPRB,.229E-03_JPRB,.235E-03_JPRB,.237E-03_JPRB,.231E-03_JPRB,.210E-03_JPRB,&
+&.197E-03_JPRB,.182E-03_JPRB,.170E-03_JPRB,.162E-03_JPRB,.153E-03_JPRB,.146E-03_JPRB,.144E-03_JPRB,&
+&.142E-03_JPRB,.149E-03_JPRB,.158E-03_JPRB,.169E-03_JPRB,.183E-03_JPRB,.179E-03_JPRB,.174E-03_JPRB,&
+&.153E-03_JPRB,.147E-03_JPRB,.142E-03_JPRB,.147E-03_JPRB,.152E-03_JPRB,.155E-03_JPRB,.160E-03_JPRB,&
+&.162E-03_JPRB,.161E-03_JPRB,.152E-03_JPRB,.145E-03_JPRB,.141E-03_JPRB,.138E-03_JPRB,.143E-03_JPRB,&
+&.155E-03_JPRB,.176E-03_JPRB,.202E-03_JPRB,.207E-03_JPRB,.207E-03_JPRB,.216E-03_JPRB,.223E-03_JPRB,&
+&.229E-03_JPRB,.216E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 13  42.0
+ZAER (:,13, 1) = (/&
+&.252E-03_JPRB,.251E-03_JPRB,.208E-03_JPRB,.196E-03_JPRB,.186E-03_JPRB,.175E-03_JPRB,.170E-03_JPRB,&
+&.165E-03_JPRB,.158E-03_JPRB,.153E-03_JPRB,.150E-03_JPRB,.145E-03_JPRB,.144E-03_JPRB,.145E-03_JPRB,&
+&.146E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,.146E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,&
+&.169E-03_JPRB,.203E-03_JPRB,.241E-03_JPRB,.353E-03_JPRB,.391E-03_JPRB,.422E-03_JPRB,.361E-03_JPRB,&
+&.316E-03_JPRB,.282E-03_JPRB,.272E-03_JPRB,.280E-03_JPRB,.284E-03_JPRB,.276E-03_JPRB,.258E-03_JPRB,&
+&.246E-03_JPRB,.229E-03_JPRB,.210E-03_JPRB,.200E-03_JPRB,.189E-03_JPRB,.181E-03_JPRB,.178E-03_JPRB,&
+&.174E-03_JPRB,.186E-03_JPRB,.198E-03_JPRB,.213E-03_JPRB,.230E-03_JPRB,.224E-03_JPRB,.216E-03_JPRB,&
+&.191E-03_JPRB,.181E-03_JPRB,.172E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,.180E-03_JPRB,.187E-03_JPRB,&
+&.189E-03_JPRB,.189E-03_JPRB,.183E-03_JPRB,.174E-03_JPRB,.169E-03_JPRB,.162E-03_JPRB,.181E-03_JPRB,&
+&.211E-03_JPRB,.265E-03_JPRB,.293E-03_JPRB,.286E-03_JPRB,.266E-03_JPRB,.262E-03_JPRB,.269E-03_JPRB,&
+&.279E-03_JPRB,.253E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 14  38.0
+ZAER (:,14, 1) = (/&
+&.283E-03_JPRB,.281E-03_JPRB,.228E-03_JPRB,.216E-03_JPRB,.205E-03_JPRB,.194E-03_JPRB,.189E-03_JPRB,&
+&.184E-03_JPRB,.176E-03_JPRB,.171E-03_JPRB,.167E-03_JPRB,.163E-03_JPRB,.161E-03_JPRB,.161E-03_JPRB,&
+&.162E-03_JPRB,.164E-03_JPRB,.163E-03_JPRB,.162E-03_JPRB,.160E-03_JPRB,.162E-03_JPRB,.166E-03_JPRB,&
+&.232E-03_JPRB,.325E-03_JPRB,.428E-03_JPRB,.859E-03_JPRB,.998E-03_JPRB,.110E-02_JPRB,.697E-03_JPRB,&
+&.525E-03_JPRB,.396E-03_JPRB,.355E-03_JPRB,.357E-03_JPRB,.355E-03_JPRB,.338E-03_JPRB,.328E-03_JPRB,&
+&.319E-03_JPRB,.305E-03_JPRB,.289E-03_JPRB,.283E-03_JPRB,.282E-03_JPRB,.281E-03_JPRB,.279E-03_JPRB,&
+&.275E-03_JPRB,.289E-03_JPRB,.297E-03_JPRB,.306E-03_JPRB,.313E-03_JPRB,.302E-03_JPRB,.289E-03_JPRB,&
+&.257E-03_JPRB,.240E-03_JPRB,.225E-03_JPRB,.217E-03_JPRB,.219E-03_JPRB,.220E-03_JPRB,.225E-03_JPRB,&
+&.227E-03_JPRB,.228E-03_JPRB,.233E-03_JPRB,.226E-03_JPRB,.218E-03_JPRB,.205E-03_JPRB,.251E-03_JPRB,&
+&.305E-03_JPRB,.394E-03_JPRB,.424E-03_JPRB,.407E-03_JPRB,.371E-03_JPRB,.319E-03_JPRB,.318E-03_JPRB,&
+&.322E-03_JPRB,.284E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 15  34.0
+ZAER (:,15, 1) = (/&
+&.311E-03_JPRB,.309E-03_JPRB,.257E-03_JPRB,.242E-03_JPRB,.230E-03_JPRB,.215E-03_JPRB,.209E-03_JPRB,&
+&.203E-03_JPRB,.194E-03_JPRB,.189E-03_JPRB,.186E-03_JPRB,.182E-03_JPRB,.178E-03_JPRB,.177E-03_JPRB,&
+&.176E-03_JPRB,.178E-03_JPRB,.178E-03_JPRB,.176E-03_JPRB,.177E-03_JPRB,.184E-03_JPRB,.194E-03_JPRB,&
+&.318E-03_JPRB,.490E-03_JPRB,.681E-03_JPRB,.176E-02_JPRB,.213E-02_JPRB,.241E-02_JPRB,.135E-02_JPRB,&
+&.912E-03_JPRB,.581E-03_JPRB,.474E-03_JPRB,.463E-03_JPRB,.452E-03_JPRB,.432E-03_JPRB,.426E-03_JPRB,&
+&.420E-03_JPRB,.408E-03_JPRB,.409E-03_JPRB,.418E-03_JPRB,.439E-03_JPRB,.486E-03_JPRB,.504E-03_JPRB,&
+&.517E-03_JPRB,.496E-03_JPRB,.480E-03_JPRB,.462E-03_JPRB,.439E-03_JPRB,.419E-03_JPRB,.399E-03_JPRB,&
+&.356E-03_JPRB,.328E-03_JPRB,.302E-03_JPRB,.283E-03_JPRB,.279E-03_JPRB,.275E-03_JPRB,.273E-03_JPRB,&
+&.276E-03_JPRB,.283E-03_JPRB,.307E-03_JPRB,.300E-03_JPRB,.291E-03_JPRB,.270E-03_JPRB,.334E-03_JPRB,&
+&.393E-03_JPRB,.485E-03_JPRB,.543E-03_JPRB,.538E-03_JPRB,.513E-03_JPRB,.392E-03_JPRB,.370E-03_JPRB,&
+&.358E-03_JPRB,.313E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 16  30.0
+ZAER (:,16, 1) = (/&
+&.340E-03_JPRB,.339E-03_JPRB,.290E-03_JPRB,.273E-03_JPRB,.257E-03_JPRB,.236E-03_JPRB,.228E-03_JPRB,&
+&.221E-03_JPRB,.210E-03_JPRB,.206E-03_JPRB,.203E-03_JPRB,.200E-03_JPRB,.195E-03_JPRB,.193E-03_JPRB,&
+&.190E-03_JPRB,.194E-03_JPRB,.193E-03_JPRB,.191E-03_JPRB,.194E-03_JPRB,.209E-03_JPRB,.230E-03_JPRB,&
+&.413E-03_JPRB,.627E-03_JPRB,.863E-03_JPRB,.243E-02_JPRB,.306E-02_JPRB,.354E-02_JPRB,.204E-02_JPRB,&
+&.134E-02_JPRB,.818E-03_JPRB,.638E-03_JPRB,.613E-03_JPRB,.597E-03_JPRB,.583E-03_JPRB,.573E-03_JPRB,&
+&.566E-03_JPRB,.558E-03_JPRB,.579E-03_JPRB,.604E-03_JPRB,.649E-03_JPRB,.783E-03_JPRB,.842E-03_JPRB,&
+&.899E-03_JPRB,.796E-03_JPRB,.724E-03_JPRB,.642E-03_JPRB,.570E-03_JPRB,.542E-03_JPRB,.516E-03_JPRB,&
+&.464E-03_JPRB,.428E-03_JPRB,.394E-03_JPRB,.364E-03_JPRB,.352E-03_JPRB,.343E-03_JPRB,.334E-03_JPRB,&
+&.340E-03_JPRB,.352E-03_JPRB,.389E-03_JPRB,.382E-03_JPRB,.370E-03_JPRB,.345E-03_JPRB,.399E-03_JPRB,&
+&.438E-03_JPRB,.493E-03_JPRB,.581E-03_JPRB,.598E-03_JPRB,.600E-03_JPRB,.451E-03_JPRB,.417E-03_JPRB,&
+&.393E-03_JPRB,.342E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 17  26.0
+ZAER (:,17, 1) = (/&
+&.366E-03_JPRB,.364E-03_JPRB,.320E-03_JPRB,.300E-03_JPRB,.283E-03_JPRB,.255E-03_JPRB,.245E-03_JPRB,&
+&.236E-03_JPRB,.224E-03_JPRB,.222E-03_JPRB,.220E-03_JPRB,.216E-03_JPRB,.211E-03_JPRB,.209E-03_JPRB,&
+&.210E-03_JPRB,.216E-03_JPRB,.215E-03_JPRB,.210E-03_JPRB,.218E-03_JPRB,.242E-03_JPRB,.277E-03_JPRB,&
+&.484E-03_JPRB,.663E-03_JPRB,.856E-03_JPRB,.230E-02_JPRB,.304E-02_JPRB,.364E-02_JPRB,.232E-02_JPRB,&
+&.160E-02_JPRB,.106E-02_JPRB,.856E-03_JPRB,.835E-03_JPRB,.821E-03_JPRB,.806E-03_JPRB,.774E-03_JPRB,&
+&.765E-03_JPRB,.782E-03_JPRB,.821E-03_JPRB,.844E-03_JPRB,.872E-03_JPRB,.105E-02_JPRB,.114E-02_JPRB,&
+&.124E-02_JPRB,.105E-02_JPRB,.925E-03_JPRB,.780E-03_JPRB,.661E-03_JPRB,.629E-03_JPRB,.601E-03_JPRB,&
+&.553E-03_JPRB,.516E-03_JPRB,.482E-03_JPRB,.451E-03_JPRB,.436E-03_JPRB,.424E-03_JPRB,.410E-03_JPRB,&
+&.413E-03_JPRB,.423E-03_JPRB,.457E-03_JPRB,.448E-03_JPRB,.435E-03_JPRB,.408E-03_JPRB,.431E-03_JPRB,&
+&.445E-03_JPRB,.460E-03_JPRB,.540E-03_JPRB,.563E-03_JPRB,.578E-03_JPRB,.467E-03_JPRB,.438E-03_JPRB,&
+&.415E-03_JPRB,.367E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 18  22.0
+ZAER (:,18, 1) = (/&
+&.376E-03_JPRB,.375E-03_JPRB,.330E-03_JPRB,.311E-03_JPRB,.293E-03_JPRB,.269E-03_JPRB,.257E-03_JPRB,&
+&.248E-03_JPRB,.236E-03_JPRB,.237E-03_JPRB,.237E-03_JPRB,.234E-03_JPRB,.233E-03_JPRB,.235E-03_JPRB,&
+&.243E-03_JPRB,.253E-03_JPRB,.251E-03_JPRB,.243E-03_JPRB,.268E-03_JPRB,.298E-03_JPRB,.339E-03_JPRB,&
+&.489E-03_JPRB,.592E-03_JPRB,.701E-03_JPRB,.164E-02_JPRB,.228E-02_JPRB,.283E-02_JPRB,.214E-02_JPRB,&
+&.165E-02_JPRB,.129E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.114E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.108E-02_JPRB,.122E-02_JPRB,.130E-02_JPRB,&
+&.140E-02_JPRB,.120E-02_JPRB,.105E-02_JPRB,.877E-03_JPRB,.717E-03_JPRB,.677E-03_JPRB,.642E-03_JPRB,&
+&.611E-03_JPRB,.579E-03_JPRB,.550E-03_JPRB,.527E-03_JPRB,.517E-03_JPRB,.509E-03_JPRB,.490E-03_JPRB,&
+&.486E-03_JPRB,.488E-03_JPRB,.510E-03_JPRB,.496E-03_JPRB,.481E-03_JPRB,.454E-03_JPRB,.450E-03_JPRB,&
+&.451E-03_JPRB,.453E-03_JPRB,.490E-03_JPRB,.497E-03_JPRB,.498E-03_JPRB,.441E-03_JPRB,.426E-03_JPRB,&
+&.413E-03_JPRB,.377E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 19  18.0
+ZAER (:,19, 1) = (/&
+&.358E-03_JPRB,.357E-03_JPRB,.310E-03_JPRB,.294E-03_JPRB,.281E-03_JPRB,.274E-03_JPRB,.265E-03_JPRB,&
+&.257E-03_JPRB,.245E-03_JPRB,.251E-03_JPRB,.257E-03_JPRB,.265E-03_JPRB,.273E-03_JPRB,.281E-03_JPRB,&
+&.293E-03_JPRB,.309E-03_JPRB,.316E-03_JPRB,.321E-03_JPRB,.372E-03_JPRB,.397E-03_JPRB,.423E-03_JPRB,&
+&.461E-03_JPRB,.512E-03_JPRB,.569E-03_JPRB,.112E-02_JPRB,.156E-02_JPRB,.196E-02_JPRB,.187E-02_JPRB,&
+&.168E-02_JPRB,.155E-02_JPRB,.151E-02_JPRB,.155E-02_JPRB,.156E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,&
+&.148E-02_JPRB,.165E-02_JPRB,.163E-02_JPRB,.153E-02_JPRB,.134E-02_JPRB,.137E-02_JPRB,.144E-02_JPRB,&
+&.154E-02_JPRB,.138E-02_JPRB,.122E-02_JPRB,.102E-02_JPRB,.798E-03_JPRB,.732E-03_JPRB,.673E-03_JPRB,&
+&.639E-03_JPRB,.618E-03_JPRB,.598E-03_JPRB,.575E-03_JPRB,.575E-03_JPRB,.573E-03_JPRB,.561E-03_JPRB,&
+&.566E-03_JPRB,.571E-03_JPRB,.580E-03_JPRB,.560E-03_JPRB,.542E-03_JPRB,.512E-03_JPRB,.490E-03_JPRB,&
+&.482E-03_JPRB,.478E-03_JPRB,.472E-03_JPRB,.455E-03_JPRB,.429E-03_JPRB,.399E-03_JPRB,.393E-03_JPRB,&
+&.388E-03_JPRB,.359E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 20  14.0
+ZAER (:,20, 1) = (/&
+&.312E-03_JPRB,.311E-03_JPRB,.268E-03_JPRB,.260E-03_JPRB,.255E-03_JPRB,.270E-03_JPRB,.269E-03_JPRB,&
+&.267E-03_JPRB,.259E-03_JPRB,.274E-03_JPRB,.289E-03_JPRB,.318E-03_JPRB,.337E-03_JPRB,.348E-03_JPRB,&
+&.357E-03_JPRB,.390E-03_JPRB,.422E-03_JPRB,.469E-03_JPRB,.543E-03_JPRB,.558E-03_JPRB,.563E-03_JPRB,&
+&.523E-03_JPRB,.566E-03_JPRB,.621E-03_JPRB,.100E-02_JPRB,.127E-02_JPRB,.151E-02_JPRB,.170E-02_JPRB,&
+&.178E-02_JPRB,.184E-02_JPRB,.188E-02_JPRB,.202E-02_JPRB,.209E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,&
+&.209E-02_JPRB,.232E-02_JPRB,.224E-02_JPRB,.210E-02_JPRB,.184E-02_JPRB,.179E-02_JPRB,.183E-02_JPRB,&
+&.193E-02_JPRB,.174E-02_JPRB,.153E-02_JPRB,.128E-02_JPRB,.975E-03_JPRB,.854E-03_JPRB,.740E-03_JPRB,&
+&.668E-03_JPRB,.654E-03_JPRB,.640E-03_JPRB,.613E-03_JPRB,.613E-03_JPRB,.617E-03_JPRB,.642E-03_JPRB,&
+&.721E-03_JPRB,.763E-03_JPRB,.769E-03_JPRB,.719E-03_JPRB,.677E-03_JPRB,.612E-03_JPRB,.561E-03_JPRB,&
+&.536E-03_JPRB,.511E-03_JPRB,.460E-03_JPRB,.421E-03_JPRB,.372E-03_JPRB,.356E-03_JPRB,.351E-03_JPRB,&
+&.345E-03_JPRB,.313E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 21  10.0
+ZAER (:,21, 1) = (/&
+&.276E-03_JPRB,.276E-03_JPRB,.249E-03_JPRB,.247E-03_JPRB,.247E-03_JPRB,.270E-03_JPRB,.279E-03_JPRB,&
+&.285E-03_JPRB,.291E-03_JPRB,.315E-03_JPRB,.339E-03_JPRB,.389E-03_JPRB,.421E-03_JPRB,.434E-03_JPRB,&
+&.440E-03_JPRB,.493E-03_JPRB,.552E-03_JPRB,.644E-03_JPRB,.769E-03_JPRB,.804E-03_JPRB,.828E-03_JPRB,&
+&.772E-03_JPRB,.848E-03_JPRB,.942E-03_JPRB,.112E-02_JPRB,.125E-02_JPRB,.138E-02_JPRB,.165E-02_JPRB,&
+&.187E-02_JPRB,.205E-02_JPRB,.226E-02_JPRB,.260E-02_JPRB,.280E-02_JPRB,.285E-02_JPRB,.292E-02_JPRB,&
+&.305E-02_JPRB,.335E-02_JPRB,.326E-02_JPRB,.320E-02_JPRB,.312E-02_JPRB,.298E-02_JPRB,.289E-02_JPRB,&
+&.279E-02_JPRB,.242E-02_JPRB,.210E-02_JPRB,.172E-02_JPRB,.127E-02_JPRB,.107E-02_JPRB,.889E-03_JPRB,&
+&.757E-03_JPRB,.741E-03_JPRB,.725E-03_JPRB,.706E-03_JPRB,.701E-03_JPRB,.714E-03_JPRB,.828E-03_JPRB,&
+&.107E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.105E-02_JPRB,.936E-03_JPRB,.770E-03_JPRB,.655E-03_JPRB,&
+&.600E-03_JPRB,.550E-03_JPRB,.461E-03_JPRB,.406E-03_JPRB,.341E-03_JPRB,.345E-03_JPRB,.332E-03_JPRB,&
+&.315E-03_JPRB,.278E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 22   6.0
+ZAER (:,22, 1) = (/&
+&.318E-03_JPRB,.317E-03_JPRB,.291E-03_JPRB,.283E-03_JPRB,.277E-03_JPRB,.288E-03_JPRB,.301E-03_JPRB,&
+&.314E-03_JPRB,.342E-03_JPRB,.376E-03_JPRB,.406E-03_JPRB,.460E-03_JPRB,.509E-03_JPRB,.536E-03_JPRB,&
+&.562E-03_JPRB,.631E-03_JPRB,.701E-03_JPRB,.805E-03_JPRB,.102E-02_JPRB,.117E-02_JPRB,.134E-02_JPRB,&
+&.137E-02_JPRB,.148E-02_JPRB,.162E-02_JPRB,.140E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.157E-02_JPRB,&
+&.187E-02_JPRB,.216E-02_JPRB,.276E-02_JPRB,.341E-02_JPRB,.383E-02_JPRB,.411E-02_JPRB,.451E-02_JPRB,&
+&.484E-02_JPRB,.536E-02_JPRB,.550E-02_JPRB,.573E-02_JPRB,.618E-02_JPRB,.585E-02_JPRB,.535E-02_JPRB,&
+&.456E-02_JPRB,.359E-02_JPRB,.295E-02_JPRB,.222E-02_JPRB,.156E-02_JPRB,.132E-02_JPRB,.110E-02_JPRB,&
+&.949E-03_JPRB,.946E-03_JPRB,.948E-03_JPRB,.999E-03_JPRB,.998E-03_JPRB,.104E-02_JPRB,.129E-02_JPRB,&
+&.162E-02_JPRB,.176E-02_JPRB,.167E-02_JPRB,.142E-02_JPRB,.125E-02_JPRB,.101E-02_JPRB,.794E-03_JPRB,&
+&.691E-03_JPRB,.596E-03_JPRB,.497E-03_JPRB,.444E-03_JPRB,.386E-03_JPRB,.414E-03_JPRB,.396E-03_JPRB,&
+&.369E-03_JPRB,.319E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 23   2.0
+ZAER (:,23, 1) = (/&
+&.472E-03_JPRB,.471E-03_JPRB,.437E-03_JPRB,.398E-03_JPRB,.365E-03_JPRB,.343E-03_JPRB,.341E-03_JPRB,&
+&.348E-03_JPRB,.394E-03_JPRB,.434E-03_JPRB,.466E-03_JPRB,.516E-03_JPRB,.587E-03_JPRB,.640E-03_JPRB,&
+&.716E-03_JPRB,.811E-03_JPRB,.905E-03_JPRB,.105E-02_JPRB,.138E-02_JPRB,.175E-02_JPRB,.223E-02_JPRB,&
+&.249E-02_JPRB,.259E-02_JPRB,.268E-02_JPRB,.181E-02_JPRB,.159E-02_JPRB,.141E-02_JPRB,.161E-02_JPRB,&
+&.201E-02_JPRB,.244E-02_JPRB,.356E-02_JPRB,.468E-02_JPRB,.554E-02_JPRB,.669E-02_JPRB,.789E-02_JPRB,&
+&.867E-02_JPRB,.957E-02_JPRB,.101E-01_JPRB,.106E-01_JPRB,.115E-01_JPRB,.111E-01_JPRB,.986E-02_JPRB,&
+&.774E-02_JPRB,.531E-02_JPRB,.409E-02_JPRB,.283E-02_JPRB,.186E-02_JPRB,.158E-02_JPRB,.133E-02_JPRB,&
+&.118E-02_JPRB,.130E-02_JPRB,.141E-02_JPRB,.167E-02_JPRB,.172E-02_JPRB,.182E-02_JPRB,.228E-02_JPRB,&
+&.242E-02_JPRB,.239E-02_JPRB,.194E-02_JPRB,.178E-02_JPRB,.164E-02_JPRB,.140E-02_JPRB,.105E-02_JPRB,&
+&.867E-03_JPRB,.691E-03_JPRB,.594E-03_JPRB,.558E-03_JPRB,.528E-03_JPRB,.591E-03_JPRB,.573E-03_JPRB,&
+&.541E-03_JPRB,.475E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 24  -2.0
+ZAER (:,24, 1) = (/&
+&.801E-03_JPRB,.799E-03_JPRB,.747E-03_JPRB,.669E-03_JPRB,.597E-03_JPRB,.490E-03_JPRB,.443E-03_JPRB,&
+&.418E-03_JPRB,.437E-03_JPRB,.477E-03_JPRB,.517E-03_JPRB,.596E-03_JPRB,.684E-03_JPRB,.750E-03_JPRB,&
+&.844E-03_JPRB,.104E-02_JPRB,.122E-02_JPRB,.147E-02_JPRB,.211E-02_JPRB,.279E-02_JPRB,.366E-02_JPRB,&
+&.428E-02_JPRB,.422E-02_JPRB,.410E-02_JPRB,.231E-02_JPRB,.186E-02_JPRB,.148E-02_JPRB,.168E-02_JPRB,&
+&.227E-02_JPRB,.297E-02_JPRB,.511E-02_JPRB,.724E-02_JPRB,.923E-02_JPRB,.131E-01_JPRB,.169E-01_JPRB,&
+&.184E-01_JPRB,.180E-01_JPRB,.174E-01_JPRB,.172E-01_JPRB,.171E-01_JPRB,.164E-01_JPRB,.145E-01_JPRB,&
+&.115E-01_JPRB,.720E-02_JPRB,.542E-02_JPRB,.370E-02_JPRB,.232E-02_JPRB,.202E-02_JPRB,.176E-02_JPRB,&
+&.152E-02_JPRB,.176E-02_JPRB,.202E-02_JPRB,.264E-02_JPRB,.297E-02_JPRB,.329E-02_JPRB,.398E-02_JPRB,&
+&.382E-02_JPRB,.353E-02_JPRB,.271E-02_JPRB,.259E-02_JPRB,.243E-02_JPRB,.206E-02_JPRB,.156E-02_JPRB,&
+&.128E-02_JPRB,.994E-03_JPRB,.823E-03_JPRB,.778E-03_JPRB,.756E-03_JPRB,.846E-03_JPRB,.846E-03_JPRB,&
+&.834E-03_JPRB,.802E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 25  -6.0
+ZAER (:,25, 1) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.117E-02_JPRB,.107E-02_JPRB,.972E-03_JPRB,.753E-03_JPRB,.637E-03_JPRB,&
+&.558E-03_JPRB,.513E-03_JPRB,.533E-03_JPRB,.575E-03_JPRB,.697E-03_JPRB,.821E-03_JPRB,.909E-03_JPRB,&
+&.103E-02_JPRB,.132E-02_JPRB,.158E-02_JPRB,.196E-02_JPRB,.291E-02_JPRB,.371E-02_JPRB,.471E-02_JPRB,&
+&.527E-02_JPRB,.496E-02_JPRB,.454E-02_JPRB,.236E-02_JPRB,.184E-02_JPRB,.139E-02_JPRB,.161E-02_JPRB,&
+&.229E-02_JPRB,.309E-02_JPRB,.561E-02_JPRB,.864E-02_JPRB,.119E-01_JPRB,.194E-01_JPRB,.259E-01_JPRB,&
+&.279E-01_JPRB,.254E-01_JPRB,.228E-01_JPRB,.214E-01_JPRB,.197E-01_JPRB,.182E-01_JPRB,.160E-01_JPRB,&
+&.127E-01_JPRB,.795E-02_JPRB,.602E-02_JPRB,.418E-02_JPRB,.280E-02_JPRB,.256E-02_JPRB,.237E-02_JPRB,&
+&.221E-02_JPRB,.254E-02_JPRB,.287E-02_JPRB,.358E-02_JPRB,.423E-02_JPRB,.485E-02_JPRB,.614E-02_JPRB,&
+&.570E-02_JPRB,.520E-02_JPRB,.407E-02_JPRB,.366E-02_JPRB,.330E-02_JPRB,.269E-02_JPRB,.213E-02_JPRB,&
+&.179E-02_JPRB,.139E-02_JPRB,.109E-02_JPRB,.102E-02_JPRB,.991E-03_JPRB,.110E-02_JPRB,.115E-02_JPRB,&
+&.120E-02_JPRB,.123E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 26 -10.0
+ZAER (:,26, 1) = (/&
+&.172E-02_JPRB,.171E-02_JPRB,.165E-02_JPRB,.153E-02_JPRB,.140E-02_JPRB,.109E-02_JPRB,.918E-03_JPRB,&
+&.789E-03_JPRB,.662E-03_JPRB,.673E-03_JPRB,.715E-03_JPRB,.847E-03_JPRB,.980E-03_JPRB,.109E-02_JPRB,&
+&.127E-02_JPRB,.175E-02_JPRB,.215E-02_JPRB,.269E-02_JPRB,.357E-02_JPRB,.396E-02_JPRB,.435E-02_JPRB,&
+&.434E-02_JPRB,.393E-02_JPRB,.345E-02_JPRB,.185E-02_JPRB,.151E-02_JPRB,.124E-02_JPRB,.151E-02_JPRB,&
+&.203E-02_JPRB,.264E-02_JPRB,.454E-02_JPRB,.715E-02_JPRB,.104E-01_JPRB,.188E-01_JPRB,.248E-01_JPRB,&
+&.265E-01_JPRB,.241E-01_JPRB,.222E-01_JPRB,.206E-01_JPRB,.182E-01_JPRB,.161E-01_JPRB,.143E-01_JPRB,&
+&.117E-01_JPRB,.758E-02_JPRB,.581E-02_JPRB,.408E-02_JPRB,.305E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,&
+&.317E-02_JPRB,.361E-02_JPRB,.401E-02_JPRB,.446E-02_JPRB,.526E-02_JPRB,.616E-02_JPRB,.857E-02_JPRB,&
+&.830E-02_JPRB,.767E-02_JPRB,.563E-02_JPRB,.467E-02_JPRB,.402E-02_JPRB,.317E-02_JPRB,.267E-02_JPRB,&
+&.229E-02_JPRB,.175E-02_JPRB,.136E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,.139E-02_JPRB,.150E-02_JPRB,&
+&.163E-02_JPRB,.171E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 27 -14.0
+ZAER (:,27, 1) = (/&
+&.221E-02_JPRB,.221E-02_JPRB,.212E-02_JPRB,.198E-02_JPRB,.184E-02_JPRB,.145E-02_JPRB,.124E-02_JPRB,&
+&.107E-02_JPRB,.870E-03_JPRB,.882E-03_JPRB,.917E-03_JPRB,.102E-02_JPRB,.110E-02_JPRB,.122E-02_JPRB,&
+&.147E-02_JPRB,.235E-02_JPRB,.300E-02_JPRB,.386E-02_JPRB,.421E-02_JPRB,.389E-02_JPRB,.334E-02_JPRB,&
+&.273E-02_JPRB,.242E-02_JPRB,.210E-02_JPRB,.133E-02_JPRB,.120E-02_JPRB,.110E-02_JPRB,.129E-02_JPRB,&
+&.158E-02_JPRB,.193E-02_JPRB,.304E-02_JPRB,.477E-02_JPRB,.701E-02_JPRB,.131E-01_JPRB,.172E-01_JPRB,&
+&.185E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.158E-01_JPRB,.142E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,&
+&.923E-02_JPRB,.623E-02_JPRB,.494E-02_JPRB,.367E-02_JPRB,.312E-02_JPRB,.323E-02_JPRB,.340E-02_JPRB,&
+&.406E-02_JPRB,.454E-02_JPRB,.498E-02_JPRB,.530E-02_JPRB,.617E-02_JPRB,.727E-02_JPRB,.107E-01_JPRB,&
+&.110E-01_JPRB,.107E-01_JPRB,.831E-02_JPRB,.635E-02_JPRB,.521E-02_JPRB,.408E-02_JPRB,.349E-02_JPRB,&
+&.303E-02_JPRB,.236E-02_JPRB,.185E-02_JPRB,.169E-02_JPRB,.159E-02_JPRB,.175E-02_JPRB,.192E-02_JPRB,&
+&.211E-02_JPRB,.221E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 28 -18.0
+ZAER (:,28, 1) = (/&
+&.269E-02_JPRB,.269E-02_JPRB,.254E-02_JPRB,.239E-02_JPRB,.222E-02_JPRB,.179E-02_JPRB,.154E-02_JPRB,&
+&.135E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.119E-02_JPRB,.122E-02_JPRB,.131E-02_JPRB,&
+&.152E-02_JPRB,.261E-02_JPRB,.338E-02_JPRB,.437E-02_JPRB,.434E-02_JPRB,.374E-02_JPRB,.284E-02_JPRB,&
+&.194E-02_JPRB,.168E-02_JPRB,.146E-02_JPRB,.113E-02_JPRB,.107E-02_JPRB,.102E-02_JPRB,.110E-02_JPRB,&
+&.122E-02_JPRB,.138E-02_JPRB,.193E-02_JPRB,.293E-02_JPRB,.418E-02_JPRB,.754E-02_JPRB,.986E-02_JPRB,&
+&.107E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.884E-02_JPRB,.802E-02_JPRB,&
+&.700E-02_JPRB,.498E-02_JPRB,.415E-02_JPRB,.336E-02_JPRB,.321E-02_JPRB,.338E-02_JPRB,.359E-02_JPRB,&
+&.459E-02_JPRB,.492E-02_JPRB,.524E-02_JPRB,.566E-02_JPRB,.648E-02_JPRB,.762E-02_JPRB,.115E-01_JPRB,&
+&.132E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,.102E-01_JPRB,.821E-02_JPRB,.584E-02_JPRB,.477E-02_JPRB,&
+&.416E-02_JPRB,.345E-02_JPRB,.272E-02_JPRB,.247E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.241E-02_JPRB,&
+&.259E-02_JPRB,.269E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 29 -22.0
+ZAER (:,29, 1) = (/&
+&.307E-02_JPRB,.307E-02_JPRB,.290E-02_JPRB,.271E-02_JPRB,.251E-02_JPRB,.205E-02_JPRB,.175E-02_JPRB,&
+&.153E-02_JPRB,.131E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.132E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,&
+&.154E-02_JPRB,.231E-02_JPRB,.293E-02_JPRB,.379E-02_JPRB,.384E-02_JPRB,.342E-02_JPRB,.277E-02_JPRB,&
+&.191E-02_JPRB,.164E-02_JPRB,.140E-02_JPRB,.117E-02_JPRB,.111E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,&
+&.108E-02_JPRB,.114E-02_JPRB,.138E-02_JPRB,.186E-02_JPRB,.240E-02_JPRB,.372E-02_JPRB,.483E-02_JPRB,&
+&.543E-02_JPRB,.586E-02_JPRB,.644E-02_JPRB,.676E-02_JPRB,.708E-02_JPRB,.671E-02_JPRB,.625E-02_JPRB,&
+&.556E-02_JPRB,.422E-02_JPRB,.375E-02_JPRB,.332E-02_JPRB,.332E-02_JPRB,.342E-02_JPRB,.354E-02_JPRB,&
+&.432E-02_JPRB,.452E-02_JPRB,.471E-02_JPRB,.493E-02_JPRB,.553E-02_JPRB,.648E-02_JPRB,.101E-01_JPRB,&
+&.141E-01_JPRB,.168E-01_JPRB,.197E-01_JPRB,.157E-01_JPRB,.127E-01_JPRB,.846E-02_JPRB,.654E-02_JPRB,&
+&.565E-02_JPRB,.486E-02_JPRB,.403E-02_JPRB,.367E-02_JPRB,.333E-02_JPRB,.309E-02_JPRB,.308E-02_JPRB,&
+&.309E-02_JPRB,.307E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 30 -26.0
+ZAER (:,30, 1) = (/&
+&.335E-02_JPRB,.334E-02_JPRB,.306E-02_JPRB,.280E-02_JPRB,.254E-02_JPRB,.209E-02_JPRB,.180E-02_JPRB,&
+&.159E-02_JPRB,.137E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.144E-02_JPRB,.165E-02_JPRB,.171E-02_JPRB,&
+&.168E-02_JPRB,.193E-02_JPRB,.233E-02_JPRB,.298E-02_JPRB,.330E-02_JPRB,.316E-02_JPRB,.286E-02_JPRB,&
+&.218E-02_JPRB,.190E-02_JPRB,.163E-02_JPRB,.133E-02_JPRB,.124E-02_JPRB,.115E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.109E-02_JPRB,.118E-02_JPRB,.138E-02_JPRB,.157E-02_JPRB,.196E-02_JPRB,.236E-02_JPRB,&
+&.271E-02_JPRB,.329E-02_JPRB,.388E-02_JPRB,.431E-02_JPRB,.491E-02_JPRB,.508E-02_JPRB,.490E-02_JPRB,&
+&.453E-02_JPRB,.376E-02_JPRB,.358E-02_JPRB,.348E-02_JPRB,.344E-02_JPRB,.341E-02_JPRB,.338E-02_JPRB,&
+&.374E-02_JPRB,.380E-02_JPRB,.383E-02_JPRB,.352E-02_JPRB,.379E-02_JPRB,.443E-02_JPRB,.742E-02_JPRB,&
+&.134E-01_JPRB,.182E-01_JPRB,.257E-01_JPRB,.214E-01_JPRB,.177E-01_JPRB,.117E-01_JPRB,.861E-02_JPRB,&
+&.724E-02_JPRB,.609E-02_JPRB,.527E-02_JPRB,.483E-02_JPRB,.436E-02_JPRB,.400E-02_JPRB,.383E-02_JPRB,&
+&.365E-02_JPRB,.336E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 31 -30.0
+ZAER (:,31, 1) = (/&
+&.341E-02_JPRB,.339E-02_JPRB,.290E-02_JPRB,.259E-02_JPRB,.230E-02_JPRB,.194E-02_JPRB,.173E-02_JPRB,&
+&.157E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.153E-02_JPRB,.180E-02_JPRB,.186E-02_JPRB,&
+&.178E-02_JPRB,.175E-02_JPRB,.200E-02_JPRB,.249E-02_JPRB,.305E-02_JPRB,.310E-02_JPRB,.305E-02_JPRB,&
+&.256E-02_JPRB,.227E-02_JPRB,.196E-02_JPRB,.154E-02_JPRB,.139E-02_JPRB,.125E-02_JPRB,.115E-02_JPRB,&
+&.113E-02_JPRB,.112E-02_JPRB,.116E-02_JPRB,.124E-02_JPRB,.132E-02_JPRB,.146E-02_JPRB,.158E-02_JPRB,&
+&.174E-02_JPRB,.210E-02_JPRB,.259E-02_JPRB,.298E-02_JPRB,.354E-02_JPRB,.396E-02_JPRB,.403E-02_JPRB,&
+&.399E-02_JPRB,.364E-02_JPRB,.370E-02_JPRB,.385E-02_JPRB,.388E-02_JPRB,.375E-02_JPRB,.360E-02_JPRB,&
+&.361E-02_JPRB,.343E-02_JPRB,.322E-02_JPRB,.247E-02_JPRB,.246E-02_JPRB,.278E-02_JPRB,.493E-02_JPRB,&
+&.112E-01_JPRB,.171E-01_JPRB,.282E-01_JPRB,.252E-01_JPRB,.217E-01_JPRB,.147E-01_JPRB,.106E-01_JPRB,&
+&.859E-02_JPRB,.682E-02_JPRB,.591E-02_JPRB,.541E-02_JPRB,.485E-02_JPRB,.448E-02_JPRB,.424E-02_JPRB,&
+&.397E-02_JPRB,.342E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 32 -34.0
+ZAER (:,32, 1) = (/&
+&.310E-02_JPRB,.308E-02_JPRB,.247E-02_JPRB,.218E-02_JPRB,.194E-02_JPRB,.172E-02_JPRB,.162E-02_JPRB,&
+&.151E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.132E-02_JPRB,.159E-02_JPRB,.178E-02_JPRB,.180E-02_JPRB,&
+&.167E-02_JPRB,.162E-02_JPRB,.181E-02_JPRB,.222E-02_JPRB,.293E-02_JPRB,.314E-02_JPRB,.330E-02_JPRB,&
+&.301E-02_JPRB,.269E-02_JPRB,.234E-02_JPRB,.174E-02_JPRB,.154E-02_JPRB,.135E-02_JPRB,.120E-02_JPRB,&
+&.117E-02_JPRB,.116E-02_JPRB,.121E-02_JPRB,.130E-02_JPRB,.136E-02_JPRB,.143E-02_JPRB,.156E-02_JPRB,&
+&.173E-02_JPRB,.207E-02_JPRB,.257E-02_JPRB,.301E-02_JPRB,.370E-02_JPRB,.436E-02_JPRB,.463E-02_JPRB,&
+&.485E-02_JPRB,.475E-02_JPRB,.489E-02_JPRB,.511E-02_JPRB,.527E-02_JPRB,.506E-02_JPRB,.482E-02_JPRB,&
+&.429E-02_JPRB,.381E-02_JPRB,.333E-02_JPRB,.244E-02_JPRB,.228E-02_JPRB,.235E-02_JPRB,.354E-02_JPRB,&
+&.826E-02_JPRB,.132E-01_JPRB,.237E-01_JPRB,.234E-01_JPRB,.213E-01_JPRB,.155E-01_JPRB,.111E-01_JPRB,&
+&.891E-02_JPRB,.678E-02_JPRB,.576E-02_JPRB,.523E-02_JPRB,.466E-02_JPRB,.423E-02_JPRB,.398E-02_JPRB,&
+&.371E-02_JPRB,.312E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 33 -38.0
+ZAER (:,33, 1) = (/&
+&.253E-02_JPRB,.251E-02_JPRB,.199E-02_JPRB,.179E-02_JPRB,.163E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,&
+&.144E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,.133E-02_JPRB,.159E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,&
+&.141E-02_JPRB,.142E-02_JPRB,.160E-02_JPRB,.194E-02_JPRB,.271E-02_JPRB,.305E-02_JPRB,.337E-02_JPRB,&
+&.336E-02_JPRB,.306E-02_JPRB,.270E-02_JPRB,.190E-02_JPRB,.164E-02_JPRB,.141E-02_JPRB,.123E-02_JPRB,&
+&.119E-02_JPRB,.118E-02_JPRB,.132E-02_JPRB,.152E-02_JPRB,.166E-02_JPRB,.176E-02_JPRB,.208E-02_JPRB,&
+&.247E-02_JPRB,.329E-02_JPRB,.459E-02_JPRB,.557E-02_JPRB,.696E-02_JPRB,.789E-02_JPRB,.828E-02_JPRB,&
+&.864E-02_JPRB,.833E-02_JPRB,.818E-02_JPRB,.801E-02_JPRB,.794E-02_JPRB,.752E-02_JPRB,.706E-02_JPRB,&
+&.573E-02_JPRB,.503E-02_JPRB,.436E-02_JPRB,.346E-02_JPRB,.321E-02_JPRB,.308E-02_JPRB,.334E-02_JPRB,&
+&.564E-02_JPRB,.830E-02_JPRB,.145E-01_JPRB,.160E-01_JPRB,.157E-01_JPRB,.129E-01_JPRB,.961E-02_JPRB,&
+&.786E-02_JPRB,.598E-02_JPRB,.502E-02_JPRB,.454E-02_JPRB,.404E-02_JPRB,.354E-02_JPRB,.329E-02_JPRB,&
+&.303E-02_JPRB,.255E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 34 -42.0
+ZAER (:,34, 1) = (/&
+&.203E-02_JPRB,.202E-02_JPRB,.169E-02_JPRB,.155E-02_JPRB,.143E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,&
+&.136E-02_JPRB,.130E-02_JPRB,.132E-02_JPRB,.137E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.140E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.137E-02_JPRB,.161E-02_JPRB,.227E-02_JPRB,.262E-02_JPRB,.300E-02_JPRB,&
+&.324E-02_JPRB,.306E-02_JPRB,.282E-02_JPRB,.197E-02_JPRB,.169E-02_JPRB,.143E-02_JPRB,.123E-02_JPRB,&
+&.119E-02_JPRB,.120E-02_JPRB,.152E-02_JPRB,.192E-02_JPRB,.222E-02_JPRB,.253E-02_JPRB,.338E-02_JPRB,&
+&.446E-02_JPRB,.682E-02_JPRB,.104E-01_JPRB,.126E-01_JPRB,.151E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,&
+&.156E-01_JPRB,.145E-01_JPRB,.136E-01_JPRB,.126E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,.958E-02_JPRB,&
+&.771E-02_JPRB,.701E-02_JPRB,.633E-02_JPRB,.526E-02_JPRB,.480E-02_JPRB,.443E-02_JPRB,.399E-02_JPRB,&
+&.450E-02_JPRB,.529E-02_JPRB,.752E-02_JPRB,.894E-02_JPRB,.929E-02_JPRB,.875E-02_JPRB,.713E-02_JPRB,&
+&.611E-02_JPRB,.485E-02_JPRB,.405E-02_JPRB,.368E-02_JPRB,.330E-02_JPRB,.289E-02_JPRB,.267E-02_JPRB,&
+&.244E-02_JPRB,.204E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 35 -46.0
+ZAER (:,35, 1) = (/&
+&.174E-02_JPRB,.174E-02_JPRB,.157E-02_JPRB,.147E-02_JPRB,.139E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,&
+&.132E-02_JPRB,.130E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.129E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,.134E-02_JPRB,.171E-02_JPRB,.196E-02_JPRB,.224E-02_JPRB,&
+&.252E-02_JPRB,.250E-02_JPRB,.245E-02_JPRB,.192E-02_JPRB,.168E-02_JPRB,.146E-02_JPRB,.125E-02_JPRB,&
+&.123E-02_JPRB,.128E-02_JPRB,.174E-02_JPRB,.236E-02_JPRB,.287E-02_JPRB,.369E-02_JPRB,.557E-02_JPRB,&
+&.796E-02_JPRB,.132E-01_JPRB,.206E-01_JPRB,.243E-01_JPRB,.276E-01_JPRB,.263E-01_JPRB,.253E-01_JPRB,&
+&.238E-01_JPRB,.219E-01_JPRB,.201E-01_JPRB,.180E-01_JPRB,.150E-01_JPRB,.134E-01_JPRB,.117E-01_JPRB,&
+&.989E-02_JPRB,.937E-02_JPRB,.883E-02_JPRB,.747E-02_JPRB,.660E-02_JPRB,.590E-02_JPRB,.502E-02_JPRB,&
+&.479E-02_JPRB,.474E-02_JPRB,.500E-02_JPRB,.538E-02_JPRB,.551E-02_JPRB,.547E-02_JPRB,.476E-02_JPRB,&
+&.427E-02_JPRB,.361E-02_JPRB,.310E-02_JPRB,.287E-02_JPRB,.265E-02_JPRB,.236E-02_JPRB,.221E-02_JPRB,&
+&.205E-02_JPRB,.175E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 36 -50.0
+ZAER (:,36, 1) = (/&
+&.162E-02_JPRB,.162E-02_JPRB,.153E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,&
+&.128E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.116E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,.117E-02_JPRB,.131E-02_JPRB,.140E-02_JPRB,.151E-02_JPRB,&
+&.167E-02_JPRB,.173E-02_JPRB,.177E-02_JPRB,.168E-02_JPRB,.158E-02_JPRB,.149E-02_JPRB,.133E-02_JPRB,&
+&.135E-02_JPRB,.143E-02_JPRB,.189E-02_JPRB,.256E-02_JPRB,.321E-02_JPRB,.457E-02_JPRB,.737E-02_JPRB,&
+&.109E-01_JPRB,.187E-01_JPRB,.298E-01_JPRB,.347E-01_JPRB,.385E-01_JPRB,.356E-01_JPRB,.339E-01_JPRB,&
+&.317E-01_JPRB,.289E-01_JPRB,.262E-01_JPRB,.229E-01_JPRB,.182E-01_JPRB,.159E-01_JPRB,.138E-01_JPRB,&
+&.117E-01_JPRB,.112E-01_JPRB,.107E-01_JPRB,.933E-02_JPRB,.822E-02_JPRB,.732E-02_JPRB,.614E-02_JPRB,&
+&.551E-02_JPRB,.504E-02_JPRB,.438E-02_JPRB,.392E-02_JPRB,.363E-02_JPRB,.332E-02_JPRB,.291E-02_JPRB,&
+&.268E-02_JPRB,.241E-02_JPRB,.227E-02_JPRB,.221E-02_JPRB,.214E-02_JPRB,.194E-02_JPRB,.185E-02_JPRB,&
+&.174E-02_JPRB,.162E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 37 -54.0
+ZAER (:,37, 1) = (/&
+&.154E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.146E-02_JPRB,.135E-02_JPRB,.128E-02_JPRB,&
+&.122E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,.113E-02_JPRB,.117E-02_JPRB,.121E-02_JPRB,&
+&.126E-02_JPRB,.130E-02_JPRB,.134E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,&
+&.147E-02_JPRB,.160E-02_JPRB,.202E-02_JPRB,.245E-02_JPRB,.293E-02_JPRB,.413E-02_JPRB,.659E-02_JPRB,&
+&.960E-02_JPRB,.160E-01_JPRB,.249E-01_JPRB,.290E-01_JPRB,.323E-01_JPRB,.326E-01_JPRB,.329E-01_JPRB,&
+&.334E-01_JPRB,.315E-01_JPRB,.285E-01_JPRB,.247E-01_JPRB,.194E-01_JPRB,.171E-01_JPRB,.148E-01_JPRB,&
+&.124E-01_JPRB,.115E-01_JPRB,.107E-01_JPRB,.962E-02_JPRB,.879E-02_JPRB,.803E-02_JPRB,.668E-02_JPRB,&
+&.571E-02_JPRB,.497E-02_JPRB,.398E-02_JPRB,.324E-02_JPRB,.279E-02_JPRB,.226E-02_JPRB,.193E-02_JPRB,&
+&.180E-02_JPRB,.172E-02_JPRB,.176E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.166E-02_JPRB,.160E-02_JPRB,&
+&.155E-02_JPRB,.154E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 38 -58.0
+ZAER (:,38, 1) = (/&
+&.142E-02_JPRB,.142E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.134E-02_JPRB,.125E-02_JPRB,&
+&.117E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.994E-03_JPRB,.987E-03_JPRB,.100E-02_JPRB,.101E-02_JPRB,&
+&.101E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,&
+&.117E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.126E-02_JPRB,&
+&.143E-02_JPRB,.159E-02_JPRB,.198E-02_JPRB,.229E-02_JPRB,.261E-02_JPRB,.331E-02_JPRB,.475E-02_JPRB,&
+&.608E-02_JPRB,.845E-02_JPRB,.112E-01_JPRB,.128E-01_JPRB,.146E-01_JPRB,.174E-01_JPRB,.197E-01_JPRB,&
+&.228E-01_JPRB,.232E-01_JPRB,.218E-01_JPRB,.198E-01_JPRB,.164E-01_JPRB,.147E-01_JPRB,.131E-01_JPRB,&
+&.107E-01_JPRB,.976E-02_JPRB,.895E-02_JPRB,.833E-02_JPRB,.798E-02_JPRB,.756E-02_JPRB,.641E-02_JPRB,&
+&.537E-02_JPRB,.458E-02_JPRB,.352E-02_JPRB,.284E-02_JPRB,.242E-02_JPRB,.192E-02_JPRB,.159E-02_JPRB,&
+&.146E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,.140E-02_JPRB,.137E-02_JPRB,&
+&.135E-02_JPRB,.142E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 39 -62.0
+ZAER (:,39, 1) = (/&
+&.131E-02_JPRB,.131E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.131E-02_JPRB,.123E-02_JPRB,&
+&.116E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,.114E-02_JPRB,&
+&.118E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.116E-02_JPRB,&
+&.131E-02_JPRB,.146E-02_JPRB,.185E-02_JPRB,.220E-02_JPRB,.249E-02_JPRB,.298E-02_JPRB,.349E-02_JPRB,&
+&.385E-02_JPRB,.434E-02_JPRB,.480E-02_JPRB,.524E-02_JPRB,.595E-02_JPRB,.755E-02_JPRB,.877E-02_JPRB,&
+&.104E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.118E-01_JPRB,.109E-01_JPRB,.994E-02_JPRB,&
+&.815E-02_JPRB,.752E-02_JPRB,.695E-02_JPRB,.652E-02_JPRB,.632E-02_JPRB,.608E-02_JPRB,.541E-02_JPRB,&
+&.464E-02_JPRB,.404E-02_JPRB,.319E-02_JPRB,.262E-02_JPRB,.225E-02_JPRB,.182E-02_JPRB,.152E-02_JPRB,&
+&.139E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,&
+&.126E-02_JPRB,.131E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 40 -66.0
+ZAER (:,40, 1) = (/&
+&.128E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,.124E-02_JPRB,&
+&.120E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,&
+&.112E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.107E-02_JPRB,&
+&.119E-02_JPRB,.131E-02_JPRB,.160E-02_JPRB,.186E-02_JPRB,.208E-02_JPRB,.241E-02_JPRB,.263E-02_JPRB,&
+&.277E-02_JPRB,.292E-02_JPRB,.303E-02_JPRB,.319E-02_JPRB,.349E-02_JPRB,.430E-02_JPRB,.500E-02_JPRB,&
+&.595E-02_JPRB,.733E-02_JPRB,.794E-02_JPRB,.853E-02_JPRB,.860E-02_JPRB,.824E-02_JPRB,.784E-02_JPRB,&
+&.684E-02_JPRB,.639E-02_JPRB,.598E-02_JPRB,.546E-02_JPRB,.522E-02_JPRB,.499E-02_JPRB,.453E-02_JPRB,&
+&.404E-02_JPRB,.366E-02_JPRB,.305E-02_JPRB,.262E-02_JPRB,.235E-02_JPRB,.201E-02_JPRB,.173E-02_JPRB,&
+&.158E-02_JPRB,.143E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,&
+&.129E-02_JPRB,.128E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 41 -70.0
+ZAER (:,41, 1) = (/&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,&
+&.130E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,&
+&.123E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.998E-03_JPRB,.989E-03_JPRB,.984E-03_JPRB,.103E-02_JPRB,&
+&.111E-02_JPRB,.120E-02_JPRB,.140E-02_JPRB,.158E-02_JPRB,.172E-02_JPRB,.196E-02_JPRB,.210E-02_JPRB,&
+&.219E-02_JPRB,.227E-02_JPRB,.233E-02_JPRB,.242E-02_JPRB,.258E-02_JPRB,.300E-02_JPRB,.337E-02_JPRB,&
+&.388E-02_JPRB,.471E-02_JPRB,.514E-02_JPRB,.560E-02_JPRB,.592E-02_JPRB,.588E-02_JPRB,.582E-02_JPRB,&
+&.551E-02_JPRB,.532E-02_JPRB,.514E-02_JPRB,.480E-02_JPRB,.457E-02_JPRB,.436E-02_JPRB,.398E-02_JPRB,&
+&.367E-02_JPRB,.342E-02_JPRB,.304E-02_JPRB,.272E-02_JPRB,.251E-02_JPRB,.224E-02_JPRB,.198E-02_JPRB,&
+&.183E-02_JPRB,.166E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,&
+&.135E-02_JPRB,.134E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 42 -74.0
+ZAER (:,42, 1) = (/&
+&.141E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,&
+&.132E-02_JPRB,.125E-02_JPRB,.121E-02_JPRB,.116E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,&
+&.997E-03_JPRB,.981E-03_JPRB,.966E-03_JPRB,.957E-03_JPRB,.967E-03_JPRB,.978E-03_JPRB,.103E-02_JPRB,&
+&.109E-02_JPRB,.115E-02_JPRB,.129E-02_JPRB,.140E-02_JPRB,.150E-02_JPRB,.166E-02_JPRB,.177E-02_JPRB,&
+&.185E-02_JPRB,.194E-02_JPRB,.201E-02_JPRB,.208E-02_JPRB,.218E-02_JPRB,.239E-02_JPRB,.256E-02_JPRB,&
+&.279E-02_JPRB,.318E-02_JPRB,.340E-02_JPRB,.364E-02_JPRB,.389E-02_JPRB,.396E-02_JPRB,.402E-02_JPRB,&
+&.403E-02_JPRB,.401E-02_JPRB,.399E-02_JPRB,.387E-02_JPRB,.376E-02_JPRB,.365E-02_JPRB,.342E-02_JPRB,&
+&.322E-02_JPRB,.307E-02_JPRB,.282E-02_JPRB,.260E-02_JPRB,.244E-02_JPRB,.224E-02_JPRB,.204E-02_JPRB,&
+&.192E-02_JPRB,.176E-02_JPRB,.161E-02_JPRB,.155E-02_JPRB,.148E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,&
+&.141E-02_JPRB,.141E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 43 -78.0
+ZAER (:,43, 1) = (/&
+&.150E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,&
+&.134E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,&
+&.103E-02_JPRB,.102E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.101E-02_JPRB,.103E-02_JPRB,.107E-02_JPRB,&
+&.111E-02_JPRB,.115E-02_JPRB,.123E-02_JPRB,.130E-02_JPRB,.136E-02_JPRB,.145E-02_JPRB,.153E-02_JPRB,&
+&.158E-02_JPRB,.165E-02_JPRB,.172E-02_JPRB,.177E-02_JPRB,.184E-02_JPRB,.195E-02_JPRB,.202E-02_JPRB,&
+&.212E-02_JPRB,.229E-02_JPRB,.239E-02_JPRB,.249E-02_JPRB,.263E-02_JPRB,.269E-02_JPRB,.274E-02_JPRB,&
+&.281E-02_JPRB,.283E-02_JPRB,.284E-02_JPRB,.283E-02_JPRB,.280E-02_JPRB,.277E-02_JPRB,.268E-02_JPRB,&
+&.260E-02_JPRB,.252E-02_JPRB,.240E-02_JPRB,.228E-02_JPRB,.220E-02_JPRB,.208E-02_JPRB,.196E-02_JPRB,&
+&.188E-02_JPRB,.178E-02_JPRB,.169E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,&
+&.151E-02_JPRB,.150E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 44 -82.0
+ZAER (:,44, 1) = (/&
+&.156E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,&
+&.151E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,&
+&.137E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,&
+&.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,&
+&.121E-02_JPRB,.123E-02_JPRB,.126E-02_JPRB,.130E-02_JPRB,.132E-02_JPRB,.137E-02_JPRB,.141E-02_JPRB,&
+&.143E-02_JPRB,.147E-02_JPRB,.152E-02_JPRB,.155E-02_JPRB,.159E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,&
+&.171E-02_JPRB,.177E-02_JPRB,.181E-02_JPRB,.185E-02_JPRB,.191E-02_JPRB,.194E-02_JPRB,.196E-02_JPRB,&
+&.200E-02_JPRB,.202E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,&
+&.201E-02_JPRB,.199E-02_JPRB,.195E-02_JPRB,.191E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.179E-02_JPRB,&
+&.176E-02_JPRB,.172E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,&
+&.158E-02_JPRB,.156E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 45 -86.0
+ZAER (:,45, 1) = (/&
+&.155E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,&
+&.150E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.144E-02_JPRB,.143E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,&
+&.138E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,&
+&.145E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,&
+&.154E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,&
+&.162E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,&
+&.165E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,&
+&.161E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.156E-02_JPRB,.155E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  1 --- lat: 46 -90.0
+ZAER (:,46, 1) = (/&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=1
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_01
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_02.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_02
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 February
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,2:2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  2 --- lat:  1  90.0
+ZAER (:, 1, 2) = (/&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,.932E-04_JPRB,&
+&.932E-04_JPRB,.932E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  2  86.0
+ZAER (:, 2, 2) = (/&
+&.927E-04_JPRB,.928E-04_JPRB,.934E-04_JPRB,.937E-04_JPRB,.940E-04_JPRB,.946E-04_JPRB,.949E-04_JPRB,&
+&.952E-04_JPRB,.957E-04_JPRB,.960E-04_JPRB,.962E-04_JPRB,.966E-04_JPRB,.969E-04_JPRB,.971E-04_JPRB,&
+&.973E-04_JPRB,.975E-04_JPRB,.977E-04_JPRB,.979E-04_JPRB,.981E-04_JPRB,.982E-04_JPRB,.983E-04_JPRB,&
+&.984E-04_JPRB,.984E-04_JPRB,.984E-04_JPRB,.983E-04_JPRB,.982E-04_JPRB,.981E-04_JPRB,.979E-04_JPRB,&
+&.976E-04_JPRB,.974E-04_JPRB,.969E-04_JPRB,.965E-04_JPRB,.961E-04_JPRB,.955E-04_JPRB,.950E-04_JPRB,&
+&.945E-04_JPRB,.939E-04_JPRB,.933E-04_JPRB,.929E-04_JPRB,.923E-04_JPRB,.917E-04_JPRB,.914E-04_JPRB,&
+&.909E-04_JPRB,.903E-04_JPRB,.900E-04_JPRB,.897E-04_JPRB,.893E-04_JPRB,.891E-04_JPRB,.889E-04_JPRB,&
+&.885E-04_JPRB,.884E-04_JPRB,.883E-04_JPRB,.881E-04_JPRB,.881E-04_JPRB,.880E-04_JPRB,.880E-04_JPRB,&
+&.880E-04_JPRB,.881E-04_JPRB,.882E-04_JPRB,.884E-04_JPRB,.885E-04_JPRB,.887E-04_JPRB,.890E-04_JPRB,&
+&.893E-04_JPRB,.896E-04_JPRB,.900E-04_JPRB,.904E-04_JPRB,.908E-04_JPRB,.913E-04_JPRB,.917E-04_JPRB,&
+&.921E-04_JPRB,.927E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  3  82.0
+ZAER (:, 3, 2) = (/&
+&.930E-04_JPRB,.931E-04_JPRB,.948E-04_JPRB,.957E-04_JPRB,.965E-04_JPRB,.977E-04_JPRB,.983E-04_JPRB,&
+&.989E-04_JPRB,.996E-04_JPRB,.100E-03_JPRB,.100E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.102E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,&
+&.107E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.108E-03_JPRB,.108E-03_JPRB,.109E-03_JPRB,.108E-03_JPRB,&
+&.108E-03_JPRB,.107E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,.997E-04_JPRB,&
+&.983E-04_JPRB,.962E-04_JPRB,.942E-04_JPRB,.929E-04_JPRB,.912E-04_JPRB,.895E-04_JPRB,.885E-04_JPRB,&
+&.873E-04_JPRB,.859E-04_JPRB,.852E-04_JPRB,.844E-04_JPRB,.834E-04_JPRB,.829E-04_JPRB,.824E-04_JPRB,&
+&.816E-04_JPRB,.813E-04_JPRB,.810E-04_JPRB,.805E-04_JPRB,.803E-04_JPRB,.802E-04_JPRB,.802E-04_JPRB,&
+&.802E-04_JPRB,.802E-04_JPRB,.804E-04_JPRB,.808E-04_JPRB,.811E-04_JPRB,.816E-04_JPRB,.824E-04_JPRB,&
+&.831E-04_JPRB,.839E-04_JPRB,.852E-04_JPRB,.861E-04_JPRB,.872E-04_JPRB,.890E-04_JPRB,.900E-04_JPRB,&
+&.911E-04_JPRB,.930E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  4  78.0
+ZAER (:, 4, 2) = (/&
+&.952E-04_JPRB,.953E-04_JPRB,.980E-04_JPRB,.993E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,&
+&.105E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.110E-03_JPRB,.111E-03_JPRB,.113E-03_JPRB,&
+&.115E-03_JPRB,.116E-03_JPRB,.118E-03_JPRB,.121E-03_JPRB,.122E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,&
+&.124E-03_JPRB,.124E-03_JPRB,.122E-03_JPRB,.119E-03_JPRB,.117E-03_JPRB,.112E-03_JPRB,.108E-03_JPRB,&
+&.105E-03_JPRB,.101E-03_JPRB,.966E-04_JPRB,.941E-04_JPRB,.910E-04_JPRB,.882E-04_JPRB,.866E-04_JPRB,&
+&.848E-04_JPRB,.829E-04_JPRB,.820E-04_JPRB,.810E-04_JPRB,.796E-04_JPRB,.789E-04_JPRB,.782E-04_JPRB,&
+&.770E-04_JPRB,.764E-04_JPRB,.759E-04_JPRB,.751E-04_JPRB,.747E-04_JPRB,.743E-04_JPRB,.740E-04_JPRB,&
+&.739E-04_JPRB,.738E-04_JPRB,.739E-04_JPRB,.743E-04_JPRB,.748E-04_JPRB,.755E-04_JPRB,.769E-04_JPRB,&
+&.779E-04_JPRB,.794E-04_JPRB,.817E-04_JPRB,.833E-04_JPRB,.852E-04_JPRB,.883E-04_JPRB,.900E-04_JPRB,&
+&.919E-04_JPRB,.951E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  5  74.0
+ZAER (:, 5, 2) = (/&
+&.981E-04_JPRB,.982E-04_JPRB,.101E-03_JPRB,.102E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,&
+&.104E-03_JPRB,.104E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,&
+&.104E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.111E-03_JPRB,.114E-03_JPRB,.117E-03_JPRB,.119E-03_JPRB,&
+&.123E-03_JPRB,.125E-03_JPRB,.128E-03_JPRB,.133E-03_JPRB,.136E-03_JPRB,.139E-03_JPRB,.144E-03_JPRB,&
+&.145E-03_JPRB,.145E-03_JPRB,.143E-03_JPRB,.139E-03_JPRB,.135E-03_JPRB,.127E-03_JPRB,.119E-03_JPRB,&
+&.113E-03_JPRB,.106E-03_JPRB,.100E-03_JPRB,.970E-04_JPRB,.932E-04_JPRB,.900E-04_JPRB,.883E-04_JPRB,&
+&.865E-04_JPRB,.845E-04_JPRB,.836E-04_JPRB,.826E-04_JPRB,.813E-04_JPRB,.805E-04_JPRB,.798E-04_JPRB,&
+&.783E-04_JPRB,.775E-04_JPRB,.767E-04_JPRB,.753E-04_JPRB,.744E-04_JPRB,.736E-04_JPRB,.724E-04_JPRB,&
+&.718E-04_JPRB,.715E-04_JPRB,.713E-04_JPRB,.717E-04_JPRB,.723E-04_JPRB,.735E-04_JPRB,.756E-04_JPRB,&
+&.772E-04_JPRB,.794E-04_JPRB,.827E-04_JPRB,.847E-04_JPRB,.871E-04_JPRB,.905E-04_JPRB,.925E-04_JPRB,&
+&.946E-04_JPRB,.980E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  6  70.0
+ZAER (:, 6, 2) = (/&
+&.100E-03_JPRB,.100E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,&
+&.104E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,&
+&.106E-03_JPRB,.109E-03_JPRB,.112E-03_JPRB,.116E-03_JPRB,.122E-03_JPRB,.126E-03_JPRB,.130E-03_JPRB,&
+&.136E-03_JPRB,.140E-03_JPRB,.144E-03_JPRB,.151E-03_JPRB,.155E-03_JPRB,.159E-03_JPRB,.165E-03_JPRB,&
+&.168E-03_JPRB,.170E-03_JPRB,.168E-03_JPRB,.162E-03_JPRB,.156E-03_JPRB,.142E-03_JPRB,.131E-03_JPRB,&
+&.123E-03_JPRB,.113E-03_JPRB,.107E-03_JPRB,.104E-03_JPRB,.100E-03_JPRB,.980E-04_JPRB,.964E-04_JPRB,&
+&.946E-04_JPRB,.923E-04_JPRB,.911E-04_JPRB,.900E-04_JPRB,.888E-04_JPRB,.883E-04_JPRB,.879E-04_JPRB,&
+&.869E-04_JPRB,.859E-04_JPRB,.849E-04_JPRB,.825E-04_JPRB,.807E-04_JPRB,.791E-04_JPRB,.765E-04_JPRB,&
+&.750E-04_JPRB,.741E-04_JPRB,.734E-04_JPRB,.743E-04_JPRB,.754E-04_JPRB,.776E-04_JPRB,.809E-04_JPRB,&
+&.833E-04_JPRB,.865E-04_JPRB,.901E-04_JPRB,.921E-04_JPRB,.942E-04_JPRB,.962E-04_JPRB,.972E-04_JPRB,&
+&.982E-04_JPRB,.100E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  7  66.0
+ZAER (:, 7, 2) = (/&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,.106E-03_JPRB,&
+&.107E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.106E-03_JPRB,.108E-03_JPRB,&
+&.111E-03_JPRB,.116E-03_JPRB,.120E-03_JPRB,.126E-03_JPRB,.137E-03_JPRB,.143E-03_JPRB,.150E-03_JPRB,&
+&.159E-03_JPRB,.165E-03_JPRB,.171E-03_JPRB,.181E-03_JPRB,.185E-03_JPRB,.189E-03_JPRB,.192E-03_JPRB,&
+&.193E-03_JPRB,.194E-03_JPRB,.192E-03_JPRB,.183E-03_JPRB,.174E-03_JPRB,.156E-03_JPRB,.141E-03_JPRB,&
+&.131E-03_JPRB,.120E-03_JPRB,.116E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,&
+&.110E-03_JPRB,.106E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.100E-03_JPRB,.101E-03_JPRB,&
+&.101E-03_JPRB,.101E-03_JPRB,.997E-04_JPRB,.959E-04_JPRB,.927E-04_JPRB,.899E-04_JPRB,.855E-04_JPRB,&
+&.831E-04_JPRB,.818E-04_JPRB,.811E-04_JPRB,.833E-04_JPRB,.857E-04_JPRB,.902E-04_JPRB,.953E-04_JPRB,&
+&.984E-04_JPRB,.102E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,&
+&.104E-03_JPRB,.103E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  8  62.0
+ZAER (:, 8, 2) = (/&
+&.112E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,&
+&.115E-03_JPRB,.116E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,&
+&.117E-03_JPRB,.122E-03_JPRB,.127E-03_JPRB,.135E-03_JPRB,.154E-03_JPRB,.164E-03_JPRB,.175E-03_JPRB,&
+&.187E-03_JPRB,.194E-03_JPRB,.201E-03_JPRB,.218E-03_JPRB,.224E-03_JPRB,.230E-03_JPRB,.231E-03_JPRB,&
+&.227E-03_JPRB,.223E-03_JPRB,.213E-03_JPRB,.199E-03_JPRB,.187E-03_JPRB,.164E-03_JPRB,.148E-03_JPRB,&
+&.138E-03_JPRB,.128E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,&
+&.127E-03_JPRB,.122E-03_JPRB,.118E-03_JPRB,.114E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,.115E-03_JPRB,&
+&.119E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,.113E-03_JPRB,.109E-03_JPRB,.105E-03_JPRB,.993E-04_JPRB,&
+&.962E-04_JPRB,.945E-04_JPRB,.939E-04_JPRB,.978E-04_JPRB,.102E-03_JPRB,.109E-03_JPRB,.116E-03_JPRB,&
+&.120E-03_JPRB,.122E-03_JPRB,.123E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.119E-03_JPRB,.117E-03_JPRB,&
+&.115E-03_JPRB,.113E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat:  9  58.0
+ZAER (:, 9, 2) = (/&
+&.130E-03_JPRB,.130E-03_JPRB,.128E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,&
+&.129E-03_JPRB,.129E-03_JPRB,.128E-03_JPRB,.127E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,&
+&.126E-03_JPRB,.129E-03_JPRB,.135E-03_JPRB,.143E-03_JPRB,.165E-03_JPRB,.177E-03_JPRB,.191E-03_JPRB,&
+&.206E-03_JPRB,.216E-03_JPRB,.226E-03_JPRB,.262E-03_JPRB,.279E-03_JPRB,.295E-03_JPRB,.291E-03_JPRB,&
+&.277E-03_JPRB,.265E-03_JPRB,.244E-03_JPRB,.221E-03_JPRB,.202E-03_JPRB,.173E-03_JPRB,.155E-03_JPRB,&
+&.144E-03_JPRB,.135E-03_JPRB,.132E-03_JPRB,.131E-03_JPRB,.133E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,&
+&.137E-03_JPRB,.133E-03_JPRB,.130E-03_JPRB,.126E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.127E-03_JPRB,&
+&.133E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.131E-03_JPRB,.125E-03_JPRB,.120E-03_JPRB,.114E-03_JPRB,&
+&.111E-03_JPRB,.109E-03_JPRB,.109E-03_JPRB,.113E-03_JPRB,.118E-03_JPRB,.127E-03_JPRB,.136E-03_JPRB,&
+&.138E-03_JPRB,.139E-03_JPRB,.141E-03_JPRB,.141E-03_JPRB,.141E-03_JPRB,.139E-03_JPRB,.137E-03_JPRB,&
+&.134E-03_JPRB,.130E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 10  54.0
+ZAER (:,10, 2) = (/&
+&.148E-03_JPRB,.148E-03_JPRB,.144E-03_JPRB,.143E-03_JPRB,.141E-03_JPRB,.139E-03_JPRB,.139E-03_JPRB,&
+&.139E-03_JPRB,.139E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.134E-03_JPRB,.134E-03_JPRB,.134E-03_JPRB,&
+&.137E-03_JPRB,.143E-03_JPRB,.148E-03_JPRB,.156E-03_JPRB,.168E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,&
+&.188E-03_JPRB,.204E-03_JPRB,.223E-03_JPRB,.294E-03_JPRB,.333E-03_JPRB,.368E-03_JPRB,.362E-03_JPRB,&
+&.335E-03_JPRB,.311E-03_JPRB,.280E-03_JPRB,.249E-03_JPRB,.223E-03_JPRB,.182E-03_JPRB,.160E-03_JPRB,&
+&.148E-03_JPRB,.138E-03_JPRB,.133E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.135E-03_JPRB,.138E-03_JPRB,&
+&.141E-03_JPRB,.141E-03_JPRB,.139E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.137E-03_JPRB,&
+&.142E-03_JPRB,.145E-03_JPRB,.147E-03_JPRB,.144E-03_JPRB,.138E-03_JPRB,.133E-03_JPRB,.125E-03_JPRB,&
+&.122E-03_JPRB,.120E-03_JPRB,.119E-03_JPRB,.124E-03_JPRB,.129E-03_JPRB,.140E-03_JPRB,.146E-03_JPRB,&
+&.147E-03_JPRB,.148E-03_JPRB,.153E-03_JPRB,.156E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,.156E-03_JPRB,&
+&.153E-03_JPRB,.148E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 11  50.0
+ZAER (:,11, 2) = (/&
+&.174E-03_JPRB,.174E-03_JPRB,.165E-03_JPRB,.161E-03_JPRB,.157E-03_JPRB,.152E-03_JPRB,.150E-03_JPRB,&
+&.148E-03_JPRB,.145E-03_JPRB,.143E-03_JPRB,.142E-03_JPRB,.143E-03_JPRB,.145E-03_JPRB,.147E-03_JPRB,&
+&.149E-03_JPRB,.154E-03_JPRB,.159E-03_JPRB,.166E-03_JPRB,.170E-03_JPRB,.169E-03_JPRB,.166E-03_JPRB,&
+&.172E-03_JPRB,.194E-03_JPRB,.218E-03_JPRB,.332E-03_JPRB,.406E-03_JPRB,.472E-03_JPRB,.474E-03_JPRB,&
+&.422E-03_JPRB,.378E-03_JPRB,.323E-03_JPRB,.286E-03_JPRB,.253E-03_JPRB,.197E-03_JPRB,.169E-03_JPRB,&
+&.154E-03_JPRB,.143E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.138E-03_JPRB,.144E-03_JPRB,.149E-03_JPRB,&
+&.154E-03_JPRB,.155E-03_JPRB,.153E-03_JPRB,.149E-03_JPRB,.147E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,&
+&.152E-03_JPRB,.154E-03_JPRB,.156E-03_JPRB,.157E-03_JPRB,.150E-03_JPRB,.145E-03_JPRB,.136E-03_JPRB,&
+&.133E-03_JPRB,.132E-03_JPRB,.131E-03_JPRB,.139E-03_JPRB,.145E-03_JPRB,.156E-03_JPRB,.158E-03_JPRB,&
+&.158E-03_JPRB,.157E-03_JPRB,.165E-03_JPRB,.170E-03_JPRB,.177E-03_JPRB,.181E-03_JPRB,.181E-03_JPRB,&
+&.180E-03_JPRB,.174E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 12  46.0
+ZAER (:,12, 2) = (/&
+&.215E-03_JPRB,.215E-03_JPRB,.195E-03_JPRB,.187E-03_JPRB,.180E-03_JPRB,.169E-03_JPRB,.164E-03_JPRB,&
+&.160E-03_JPRB,.155E-03_JPRB,.153E-03_JPRB,.154E-03_JPRB,.156E-03_JPRB,.161E-03_JPRB,.163E-03_JPRB,&
+&.165E-03_JPRB,.169E-03_JPRB,.172E-03_JPRB,.175E-03_JPRB,.172E-03_JPRB,.169E-03_JPRB,.165E-03_JPRB,&
+&.175E-03_JPRB,.205E-03_JPRB,.239E-03_JPRB,.424E-03_JPRB,.539E-03_JPRB,.642E-03_JPRB,.625E-03_JPRB,&
+&.543E-03_JPRB,.472E-03_JPRB,.379E-03_JPRB,.327E-03_JPRB,.286E-03_JPRB,.227E-03_JPRB,.192E-03_JPRB,&
+&.172E-03_JPRB,.157E-03_JPRB,.152E-03_JPRB,.154E-03_JPRB,.161E-03_JPRB,.175E-03_JPRB,.184E-03_JPRB,&
+&.193E-03_JPRB,.188E-03_JPRB,.180E-03_JPRB,.170E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.165E-03_JPRB,&
+&.167E-03_JPRB,.170E-03_JPRB,.173E-03_JPRB,.179E-03_JPRB,.173E-03_JPRB,.168E-03_JPRB,.157E-03_JPRB,&
+&.152E-03_JPRB,.150E-03_JPRB,.150E-03_JPRB,.162E-03_JPRB,.171E-03_JPRB,.183E-03_JPRB,.182E-03_JPRB,&
+&.182E-03_JPRB,.180E-03_JPRB,.182E-03_JPRB,.186E-03_JPRB,.192E-03_JPRB,.205E-03_JPRB,.213E-03_JPRB,&
+&.221E-03_JPRB,.216E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 13  42.0
+ZAER (:,13, 2) = (/&
+&.269E-03_JPRB,.268E-03_JPRB,.241E-03_JPRB,.231E-03_JPRB,.220E-03_JPRB,.199E-03_JPRB,.190E-03_JPRB,&
+&.183E-03_JPRB,.178E-03_JPRB,.177E-03_JPRB,.178E-03_JPRB,.181E-03_JPRB,.184E-03_JPRB,.186E-03_JPRB,&
+&.187E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,.187E-03_JPRB,.179E-03_JPRB,.175E-03_JPRB,.171E-03_JPRB,&
+&.196E-03_JPRB,.251E-03_JPRB,.312E-03_JPRB,.662E-03_JPRB,.806E-03_JPRB,.928E-03_JPRB,.799E-03_JPRB,&
+&.668E-03_JPRB,.557E-03_JPRB,.422E-03_JPRB,.358E-03_JPRB,.312E-03_JPRB,.262E-03_JPRB,.228E-03_JPRB,&
+&.209E-03_JPRB,.191E-03_JPRB,.192E-03_JPRB,.198E-03_JPRB,.214E-03_JPRB,.244E-03_JPRB,.260E-03_JPRB,&
+&.278E-03_JPRB,.256E-03_JPRB,.238E-03_JPRB,.216E-03_JPRB,.199E-03_JPRB,.197E-03_JPRB,.197E-03_JPRB,&
+&.198E-03_JPRB,.202E-03_JPRB,.207E-03_JPRB,.219E-03_JPRB,.217E-03_JPRB,.213E-03_JPRB,.200E-03_JPRB,&
+&.189E-03_JPRB,.184E-03_JPRB,.185E-03_JPRB,.202E-03_JPRB,.212E-03_JPRB,.223E-03_JPRB,.232E-03_JPRB,&
+&.237E-03_JPRB,.242E-03_JPRB,.229E-03_JPRB,.227E-03_JPRB,.227E-03_JPRB,.241E-03_JPRB,.254E-03_JPRB,&
+&.269E-03_JPRB,.269E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 14  38.0
+ZAER (:,14, 2) = (/&
+&.320E-03_JPRB,.320E-03_JPRB,.297E-03_JPRB,.285E-03_JPRB,.272E-03_JPRB,.240E-03_JPRB,.226E-03_JPRB,&
+&.217E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.212E-03_JPRB,.212E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.209E-03_JPRB,.206E-03_JPRB,.203E-03_JPRB,.198E-03_JPRB,.191E-03_JPRB,.190E-03_JPRB,.190E-03_JPRB,&
+&.254E-03_JPRB,.349E-03_JPRB,.455E-03_JPRB,.111E-02_JPRB,.135E-02_JPRB,.153E-02_JPRB,.112E-02_JPRB,&
+&.846E-03_JPRB,.625E-03_JPRB,.443E-03_JPRB,.386E-03_JPRB,.346E-03_JPRB,.307E-03_JPRB,.289E-03_JPRB,&
+&.280E-03_JPRB,.274E-03_JPRB,.275E-03_JPRB,.291E-03_JPRB,.325E-03_JPRB,.406E-03_JPRB,.439E-03_JPRB,&
+&.470E-03_JPRB,.399E-03_JPRB,.356E-03_JPRB,.308E-03_JPRB,.263E-03_JPRB,.258E-03_JPRB,.256E-03_JPRB,&
+&.261E-03_JPRB,.265E-03_JPRB,.270E-03_JPRB,.283E-03_JPRB,.283E-03_JPRB,.280E-03_JPRB,.263E-03_JPRB,&
+&.248E-03_JPRB,.242E-03_JPRB,.250E-03_JPRB,.270E-03_JPRB,.278E-03_JPRB,.279E-03_JPRB,.309E-03_JPRB,&
+&.325E-03_JPRB,.341E-03_JPRB,.329E-03_JPRB,.326E-03_JPRB,.324E-03_JPRB,.315E-03_JPRB,.320E-03_JPRB,&
+&.328E-03_JPRB,.321E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 15  34.0
+ZAER (:,15, 2) = (/&
+&.362E-03_JPRB,.362E-03_JPRB,.343E-03_JPRB,.330E-03_JPRB,.316E-03_JPRB,.279E-03_JPRB,.264E-03_JPRB,&
+&.254E-03_JPRB,.247E-03_JPRB,.245E-03_JPRB,.243E-03_JPRB,.238E-03_JPRB,.231E-03_JPRB,.227E-03_JPRB,&
+&.222E-03_JPRB,.215E-03_JPRB,.211E-03_JPRB,.206E-03_JPRB,.206E-03_JPRB,.212E-03_JPRB,.222E-03_JPRB,&
+&.372E-03_JPRB,.525E-03_JPRB,.690E-03_JPRB,.169E-02_JPRB,.212E-02_JPRB,.247E-02_JPRB,.174E-02_JPRB,&
+&.117E-02_JPRB,.737E-03_JPRB,.495E-03_JPRB,.444E-03_JPRB,.412E-03_JPRB,.395E-03_JPRB,.401E-03_JPRB,&
+&.406E-03_JPRB,.413E-03_JPRB,.421E-03_JPRB,.452E-03_JPRB,.522E-03_JPRB,.713E-03_JPRB,.778E-03_JPRB,&
+&.824E-03_JPRB,.650E-03_JPRB,.553E-03_JPRB,.449E-03_JPRB,.364E-03_JPRB,.355E-03_JPRB,.351E-03_JPRB,&
+&.364E-03_JPRB,.361E-03_JPRB,.359E-03_JPRB,.365E-03_JPRB,.360E-03_JPRB,.354E-03_JPRB,.335E-03_JPRB,&
+&.322E-03_JPRB,.320E-03_JPRB,.342E-03_JPRB,.359E-03_JPRB,.360E-03_JPRB,.345E-03_JPRB,.386E-03_JPRB,&
+&.407E-03_JPRB,.429E-03_JPRB,.458E-03_JPRB,.475E-03_JPRB,.494E-03_JPRB,.430E-03_JPRB,.410E-03_JPRB,&
+&.394E-03_JPRB,.363E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 16  30.0
+ZAER (:,16, 2) = (/&
+&.392E-03_JPRB,.391E-03_JPRB,.368E-03_JPRB,.352E-03_JPRB,.336E-03_JPRB,.301E-03_JPRB,.289E-03_JPRB,&
+&.280E-03_JPRB,.272E-03_JPRB,.267E-03_JPRB,.262E-03_JPRB,.252E-03_JPRB,.238E-03_JPRB,.231E-03_JPRB,&
+&.225E-03_JPRB,.220E-03_JPRB,.218E-03_JPRB,.216E-03_JPRB,.227E-03_JPRB,.245E-03_JPRB,.269E-03_JPRB,&
+&.579E-03_JPRB,.777E-03_JPRB,.983E-03_JPRB,.206E-02_JPRB,.276E-02_JPRB,.334E-02_JPRB,.246E-02_JPRB,&
+&.159E-02_JPRB,.922E-03_JPRB,.627E-03_JPRB,.587E-03_JPRB,.565E-03_JPRB,.571E-03_JPRB,.587E-03_JPRB,&
+&.595E-03_JPRB,.598E-03_JPRB,.615E-03_JPRB,.667E-03_JPRB,.778E-03_JPRB,.108E-02_JPRB,.118E-02_JPRB,&
+&.123E-02_JPRB,.935E-03_JPRB,.778E-03_JPRB,.611E-03_JPRB,.502E-03_JPRB,.492E-03_JPRB,.488E-03_JPRB,&
+&.498E-03_JPRB,.480E-03_JPRB,.464E-03_JPRB,.454E-03_JPRB,.439E-03_JPRB,.425E-03_JPRB,.404E-03_JPRB,&
+&.396E-03_JPRB,.400E-03_JPRB,.433E-03_JPRB,.444E-03_JPRB,.441E-03_JPRB,.418E-03_JPRB,.452E-03_JPRB,&
+&.467E-03_JPRB,.480E-03_JPRB,.552E-03_JPRB,.595E-03_JPRB,.644E-03_JPRB,.527E-03_JPRB,.484E-03_JPRB,&
+&.443E-03_JPRB,.393E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 17  26.0
+ZAER (:,17, 2) = (/&
+&.404E-03_JPRB,.403E-03_JPRB,.371E-03_JPRB,.351E-03_JPRB,.332E-03_JPRB,.302E-03_JPRB,.293E-03_JPRB,&
+&.286E-03_JPRB,.278E-03_JPRB,.275E-03_JPRB,.270E-03_JPRB,.258E-03_JPRB,.239E-03_JPRB,.231E-03_JPRB,&
+&.226E-03_JPRB,.232E-03_JPRB,.236E-03_JPRB,.241E-03_JPRB,.264E-03_JPRB,.293E-03_JPRB,.331E-03_JPRB,&
+&.764E-03_JPRB,.952E-03_JPRB,.113E-02_JPRB,.197E-02_JPRB,.282E-02_JPRB,.356E-02_JPRB,.297E-02_JPRB,&
+&.202E-02_JPRB,.129E-02_JPRB,.912E-03_JPRB,.864E-03_JPRB,.840E-03_JPRB,.849E-03_JPRB,.843E-03_JPRB,&
+&.831E-03_JPRB,.801E-03_JPRB,.826E-03_JPRB,.891E-03_JPRB,.103E-02_JPRB,.136E-02_JPRB,.144E-02_JPRB,&
+&.146E-02_JPRB,.113E-02_JPRB,.953E-03_JPRB,.770E-03_JPRB,.675E-03_JPRB,.662E-03_JPRB,.653E-03_JPRB,&
+&.637E-03_JPRB,.602E-03_JPRB,.570E-03_JPRB,.541E-03_JPRB,.514E-03_JPRB,.492E-03_JPRB,.467E-03_JPRB,&
+&.468E-03_JPRB,.478E-03_JPRB,.516E-03_JPRB,.525E-03_JPRB,.522E-03_JPRB,.502E-03_JPRB,.516E-03_JPRB,&
+&.518E-03_JPRB,.515E-03_JPRB,.578E-03_JPRB,.620E-03_JPRB,.670E-03_JPRB,.553E-03_JPRB,.506E-03_JPRB,&
+&.461E-03_JPRB,.406E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 18  22.0
+ZAER (:,18, 2) = (/&
+&.402E-03_JPRB,.400E-03_JPRB,.362E-03_JPRB,.341E-03_JPRB,.321E-03_JPRB,.295E-03_JPRB,.288E-03_JPRB,&
+&.283E-03_JPRB,.284E-03_JPRB,.285E-03_JPRB,.281E-03_JPRB,.265E-03_JPRB,.245E-03_JPRB,.238E-03_JPRB,&
+&.239E-03_JPRB,.258E-03_JPRB,.270E-03_JPRB,.286E-03_JPRB,.324E-03_JPRB,.355E-03_JPRB,.395E-03_JPRB,&
+&.790E-03_JPRB,.915E-03_JPRB,.103E-02_JPRB,.154E-02_JPRB,.231E-02_JPRB,.302E-02_JPRB,.308E-02_JPRB,&
+&.239E-02_JPRB,.183E-02_JPRB,.135E-02_JPRB,.126E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.114E-02_JPRB,&
+&.110E-02_JPRB,.103E-02_JPRB,.108E-02_JPRB,.113E-02_JPRB,.124E-02_JPRB,.145E-02_JPRB,.150E-02_JPRB,&
+&.149E-02_JPRB,.124E-02_JPRB,.110E-02_JPRB,.955E-03_JPRB,.864E-03_JPRB,.831E-03_JPRB,.800E-03_JPRB,&
+&.748E-03_JPRB,.703E-03_JPRB,.662E-03_JPRB,.619E-03_JPRB,.587E-03_JPRB,.562E-03_JPRB,.535E-03_JPRB,&
+&.550E-03_JPRB,.568E-03_JPRB,.611E-03_JPRB,.617E-03_JPRB,.611E-03_JPRB,.587E-03_JPRB,.578E-03_JPRB,&
+&.567E-03_JPRB,.548E-03_JPRB,.559E-03_JPRB,.571E-03_JPRB,.589E-03_JPRB,.519E-03_JPRB,.487E-03_JPRB,&
+&.455E-03_JPRB,.403E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 19  18.0
+ZAER (:,19, 2) = (/&
+&.393E-03_JPRB,.392E-03_JPRB,.352E-03_JPRB,.338E-03_JPRB,.324E-03_JPRB,.300E-03_JPRB,.298E-03_JPRB,&
+&.300E-03_JPRB,.315E-03_JPRB,.313E-03_JPRB,.306E-03_JPRB,.284E-03_JPRB,.265E-03_JPRB,.262E-03_JPRB,&
+&.272E-03_JPRB,.295E-03_JPRB,.316E-03_JPRB,.347E-03_JPRB,.403E-03_JPRB,.433E-03_JPRB,.467E-03_JPRB,&
+&.728E-03_JPRB,.790E-03_JPRB,.839E-03_JPRB,.117E-02_JPRB,.169E-02_JPRB,.220E-02_JPRB,.273E-02_JPRB,&
+&.249E-02_JPRB,.225E-02_JPRB,.180E-02_JPRB,.170E-02_JPRB,.163E-02_JPRB,.159E-02_JPRB,.147E-02_JPRB,&
+&.141E-02_JPRB,.138E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,&
+&.155E-02_JPRB,.145E-02_JPRB,.134E-02_JPRB,.122E-02_JPRB,.105E-02_JPRB,.963E-03_JPRB,.882E-03_JPRB,&
+&.806E-03_JPRB,.763E-03_JPRB,.723E-03_JPRB,.679E-03_JPRB,.651E-03_JPRB,.631E-03_JPRB,.622E-03_JPRB,&
+&.667E-03_JPRB,.701E-03_JPRB,.743E-03_JPRB,.726E-03_JPRB,.704E-03_JPRB,.660E-03_JPRB,.631E-03_JPRB,&
+&.607E-03_JPRB,.571E-03_JPRB,.529E-03_JPRB,.515E-03_JPRB,.504E-03_JPRB,.477E-03_JPRB,.459E-03_JPRB,&
+&.439E-03_JPRB,.395E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 20  14.0
+ZAER (:,20, 2) = (/&
+&.382E-03_JPRB,.381E-03_JPRB,.354E-03_JPRB,.352E-03_JPRB,.349E-03_JPRB,.333E-03_JPRB,.340E-03_JPRB,&
+&.349E-03_JPRB,.371E-03_JPRB,.362E-03_JPRB,.350E-03_JPRB,.322E-03_JPRB,.304E-03_JPRB,.303E-03_JPRB,&
+&.319E-03_JPRB,.346E-03_JPRB,.374E-03_JPRB,.418E-03_JPRB,.505E-03_JPRB,.547E-03_JPRB,.591E-03_JPRB,&
+&.769E-03_JPRB,.801E-03_JPRB,.823E-03_JPRB,.101E-02_JPRB,.127E-02_JPRB,.154E-02_JPRB,.211E-02_JPRB,&
+&.225E-02_JPRB,.233E-02_JPRB,.217E-02_JPRB,.214E-02_JPRB,.210E-02_JPRB,.201E-02_JPRB,.189E-02_JPRB,&
+&.188E-02_JPRB,.204E-02_JPRB,.223E-02_JPRB,.220E-02_JPRB,.201E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,&
+&.193E-02_JPRB,.189E-02_JPRB,.175E-02_JPRB,.156E-02_JPRB,.123E-02_JPRB,.108E-02_JPRB,.944E-03_JPRB,&
+&.839E-03_JPRB,.792E-03_JPRB,.749E-03_JPRB,.718E-03_JPRB,.703E-03_JPRB,.699E-03_JPRB,.738E-03_JPRB,&
+&.872E-03_JPRB,.947E-03_JPRB,.976E-03_JPRB,.882E-03_JPRB,.818E-03_JPRB,.733E-03_JPRB,.679E-03_JPRB,&
+&.639E-03_JPRB,.586E-03_JPRB,.516E-03_JPRB,.488E-03_JPRB,.464E-03_JPRB,.454E-03_JPRB,.439E-03_JPRB,&
+&.421E-03_JPRB,.383E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 21  10.0
+ZAER (:,21, 2) = (/&
+&.400E-03_JPRB,.400E-03_JPRB,.392E-03_JPRB,.396E-03_JPRB,.399E-03_JPRB,.397E-03_JPRB,.408E-03_JPRB,&
+&.419E-03_JPRB,.438E-03_JPRB,.425E-03_JPRB,.410E-03_JPRB,.379E-03_JPRB,.354E-03_JPRB,.351E-03_JPRB,&
+&.364E-03_JPRB,.401E-03_JPRB,.441E-03_JPRB,.501E-03_JPRB,.648E-03_JPRB,.728E-03_JPRB,.814E-03_JPRB,&
+&.944E-03_JPRB,.996E-03_JPRB,.105E-02_JPRB,.108E-02_JPRB,.115E-02_JPRB,.124E-02_JPRB,.172E-02_JPRB,&
+&.203E-02_JPRB,.227E-02_JPRB,.246E-02_JPRB,.259E-02_JPRB,.266E-02_JPRB,.263E-02_JPRB,.266E-02_JPRB,&
+&.277E-02_JPRB,.309E-02_JPRB,.328E-02_JPRB,.325E-02_JPRB,.305E-02_JPRB,.293E-02_JPRB,.291E-02_JPRB,&
+&.291E-02_JPRB,.275E-02_JPRB,.244E-02_JPRB,.205E-02_JPRB,.151E-02_JPRB,.130E-02_JPRB,.109E-02_JPRB,&
+&.903E-03_JPRB,.844E-03_JPRB,.794E-03_JPRB,.789E-03_JPRB,.797E-03_JPRB,.821E-03_JPRB,.942E-03_JPRB,&
+&.123E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.115E-02_JPRB,.100E-02_JPRB,.821E-03_JPRB,.712E-03_JPRB,&
+&.660E-03_JPRB,.613E-03_JPRB,.547E-03_JPRB,.510E-03_JPRB,.470E-03_JPRB,.464E-03_JPRB,.451E-03_JPRB,&
+&.434E-03_JPRB,.401E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 22   6.0
+ZAER (:,22, 2) = (/&
+&.507E-03_JPRB,.507E-03_JPRB,.494E-03_JPRB,.487E-03_JPRB,.481E-03_JPRB,.470E-03_JPRB,.479E-03_JPRB,&
+&.487E-03_JPRB,.506E-03_JPRB,.496E-03_JPRB,.484E-03_JPRB,.455E-03_JPRB,.417E-03_JPRB,.408E-03_JPRB,&
+&.419E-03_JPRB,.476E-03_JPRB,.532E-03_JPRB,.615E-03_JPRB,.822E-03_JPRB,.969E-03_JPRB,.115E-02_JPRB,&
+&.132E-02_JPRB,.146E-02_JPRB,.160E-02_JPRB,.136E-02_JPRB,.127E-02_JPRB,.121E-02_JPRB,.165E-02_JPRB,&
+&.199E-02_JPRB,.228E-02_JPRB,.269E-02_JPRB,.303E-02_JPRB,.330E-02_JPRB,.372E-02_JPRB,.412E-02_JPRB,&
+&.437E-02_JPRB,.464E-02_JPRB,.488E-02_JPRB,.502E-02_JPRB,.517E-02_JPRB,.537E-02_JPRB,.525E-02_JPRB,&
+&.497E-02_JPRB,.414E-02_JPRB,.352E-02_JPRB,.280E-02_JPRB,.198E-02_JPRB,.164E-02_JPRB,.132E-02_JPRB,&
+&.101E-02_JPRB,.970E-03_JPRB,.944E-03_JPRB,.102E-02_JPRB,.105E-02_JPRB,.111E-02_JPRB,.138E-02_JPRB,&
+&.173E-02_JPRB,.190E-02_JPRB,.187E-02_JPRB,.150E-02_JPRB,.124E-02_JPRB,.904E-03_JPRB,.715E-03_JPRB,&
+&.651E-03_JPRB,.623E-03_JPRB,.594E-03_JPRB,.560E-03_JPRB,.513E-03_JPRB,.527E-03_JPRB,.526E-03_JPRB,&
+&.524E-03_JPRB,.508E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 23   2.0
+ZAER (:,23, 2) = (/&
+&.701E-03_JPRB,.700E-03_JPRB,.660E-03_JPRB,.632E-03_JPRB,.606E-03_JPRB,.559E-03_JPRB,.553E-03_JPRB,&
+&.556E-03_JPRB,.587E-03_JPRB,.586E-03_JPRB,.580E-03_JPRB,.558E-03_JPRB,.520E-03_JPRB,.509E-03_JPRB,&
+&.514E-03_JPRB,.611E-03_JPRB,.698E-03_JPRB,.823E-03_JPRB,.109E-02_JPRB,.130E-02_JPRB,.156E-02_JPRB,&
+&.205E-02_JPRB,.239E-02_JPRB,.275E-02_JPRB,.182E-02_JPRB,.157E-02_JPRB,.137E-02_JPRB,.188E-02_JPRB,&
+&.215E-02_JPRB,.243E-02_JPRB,.306E-02_JPRB,.394E-02_JPRB,.469E-02_JPRB,.595E-02_JPRB,.718E-02_JPRB,&
+&.780E-02_JPRB,.812E-02_JPRB,.840E-02_JPRB,.880E-02_JPRB,.954E-02_JPRB,.103E-01_JPRB,.977E-02_JPRB,&
+&.856E-02_JPRB,.589E-02_JPRB,.475E-02_JPRB,.365E-02_JPRB,.248E-02_JPRB,.203E-02_JPRB,.161E-02_JPRB,&
+&.117E-02_JPRB,.121E-02_JPRB,.127E-02_JPRB,.150E-02_JPRB,.156E-02_JPRB,.167E-02_JPRB,.214E-02_JPRB,&
+&.252E-02_JPRB,.264E-02_JPRB,.230E-02_JPRB,.182E-02_JPRB,.147E-02_JPRB,.969E-03_JPRB,.730E-03_JPRB,&
+&.654E-03_JPRB,.631E-03_JPRB,.629E-03_JPRB,.613E-03_JPRB,.586E-03_JPRB,.656E-03_JPRB,.684E-03_JPRB,&
+&.711E-03_JPRB,.701E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 24  -2.0
+ZAER (:,24, 2) = (/&
+&.102E-02_JPRB,.101E-02_JPRB,.894E-03_JPRB,.822E-03_JPRB,.757E-03_JPRB,.669E-03_JPRB,.651E-03_JPRB,&
+&.651E-03_JPRB,.705E-03_JPRB,.736E-03_JPRB,.746E-03_JPRB,.727E-03_JPRB,.709E-03_JPRB,.698E-03_JPRB,&
+&.687E-03_JPRB,.827E-03_JPRB,.102E-02_JPRB,.133E-02_JPRB,.183E-02_JPRB,.204E-02_JPRB,.225E-02_JPRB,&
+&.333E-02_JPRB,.397E-02_JPRB,.463E-02_JPRB,.251E-02_JPRB,.201E-02_JPRB,.159E-02_JPRB,.223E-02_JPRB,&
+&.261E-02_JPRB,.301E-02_JPRB,.400E-02_JPRB,.584E-02_JPRB,.765E-02_JPRB,.114E-01_JPRB,.151E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,.171E-01_JPRB,.159E-01_JPRB,&
+&.133E-01_JPRB,.801E-02_JPRB,.615E-02_JPRB,.448E-02_JPRB,.298E-02_JPRB,.255E-02_JPRB,.215E-02_JPRB,&
+&.168E-02_JPRB,.177E-02_JPRB,.189E-02_JPRB,.238E-02_JPRB,.245E-02_JPRB,.262E-02_JPRB,.341E-02_JPRB,&
+&.383E-02_JPRB,.387E-02_JPRB,.313E-02_JPRB,.239E-02_JPRB,.188E-02_JPRB,.120E-02_JPRB,.879E-03_JPRB,&
+&.776E-03_JPRB,.743E-03_JPRB,.722E-03_JPRB,.724E-03_JPRB,.733E-03_JPRB,.900E-03_JPRB,.972E-03_JPRB,&
+&.104E-02_JPRB,.102E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 25  -6.0
+ZAER (:,25, 2) = (/&
+&.145E-02_JPRB,.144E-02_JPRB,.121E-02_JPRB,.105E-02_JPRB,.914E-03_JPRB,.787E-03_JPRB,.778E-03_JPRB,&
+&.787E-03_JPRB,.863E-03_JPRB,.920E-03_JPRB,.948E-03_JPRB,.953E-03_JPRB,.940E-03_JPRB,.932E-03_JPRB,&
+&.924E-03_JPRB,.119E-02_JPRB,.161E-02_JPRB,.231E-02_JPRB,.313E-02_JPRB,.331E-02_JPRB,.340E-02_JPRB,&
+&.472E-02_JPRB,.523E-02_JPRB,.572E-02_JPRB,.286E-02_JPRB,.223E-02_JPRB,.170E-02_JPRB,.220E-02_JPRB,&
+&.274E-02_JPRB,.337E-02_JPRB,.530E-02_JPRB,.850E-02_JPRB,.117E-01_JPRB,.183E-01_JPRB,.238E-01_JPRB,&
+&.258E-01_JPRB,.251E-01_JPRB,.228E-01_JPRB,.217E-01_JPRB,.209E-01_JPRB,.206E-01_JPRB,.186E-01_JPRB,&
+&.151E-01_JPRB,.920E-02_JPRB,.705E-02_JPRB,.509E-02_JPRB,.352E-02_JPRB,.316E-02_JPRB,.286E-02_JPRB,&
+&.256E-02_JPRB,.266E-02_JPRB,.280E-02_JPRB,.356E-02_JPRB,.395E-02_JPRB,.441E-02_JPRB,.570E-02_JPRB,&
+&.566E-02_JPRB,.538E-02_JPRB,.426E-02_JPRB,.333E-02_JPRB,.267E-02_JPRB,.177E-02_JPRB,.128E-02_JPRB,&
+&.109E-02_JPRB,.984E-03_JPRB,.941E-03_JPRB,.979E-03_JPRB,.106E-02_JPRB,.130E-02_JPRB,.139E-02_JPRB,&
+&.148E-02_JPRB,.145E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 26 -10.0
+ZAER (:,26, 2) = (/&
+&.198E-02_JPRB,.197E-02_JPRB,.168E-02_JPRB,.143E-02_JPRB,.120E-02_JPRB,.939E-03_JPRB,.924E-03_JPRB,&
+&.934E-03_JPRB,.104E-02_JPRB,.109E-02_JPRB,.113E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,&
+&.119E-02_JPRB,.186E-02_JPRB,.279E-02_JPRB,.429E-02_JPRB,.524E-02_JPRB,.503E-02_JPRB,.450E-02_JPRB,&
+&.510E-02_JPRB,.507E-02_JPRB,.498E-02_JPRB,.255E-02_JPRB,.211E-02_JPRB,.174E-02_JPRB,.200E-02_JPRB,&
+&.247E-02_JPRB,.311E-02_JPRB,.551E-02_JPRB,.927E-02_JPRB,.127E-01_JPRB,.192E-01_JPRB,.225E-01_JPRB,&
+&.239E-01_JPRB,.241E-01_JPRB,.230E-01_JPRB,.219E-01_JPRB,.201E-01_JPRB,.195E-01_JPRB,.176E-01_JPRB,&
+&.145E-01_JPRB,.917E-02_JPRB,.711E-02_JPRB,.518E-02_JPRB,.387E-02_JPRB,.369E-02_JPRB,.358E-02_JPRB,&
+&.364E-02_JPRB,.380E-02_JPRB,.401E-02_JPRB,.495E-02_JPRB,.595E-02_JPRB,.700E-02_JPRB,.952E-02_JPRB,&
+&.892E-02_JPRB,.805E-02_JPRB,.573E-02_JPRB,.463E-02_JPRB,.385E-02_JPRB,.278E-02_JPRB,.200E-02_JPRB,&
+&.166E-02_JPRB,.136E-02_JPRB,.129E-02_JPRB,.137E-02_JPRB,.152E-02_JPRB,.184E-02_JPRB,.195E-02_JPRB,&
+&.204E-02_JPRB,.198E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 27 -14.0
+ZAER (:,27, 2) = (/&
+&.260E-02_JPRB,.259E-02_JPRB,.231E-02_JPRB,.202E-02_JPRB,.174E-02_JPRB,.123E-02_JPRB,.114E-02_JPRB,&
+&.110E-02_JPRB,.120E-02_JPRB,.125E-02_JPRB,.129E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,&
+&.149E-02_JPRB,.274E-02_JPRB,.441E-02_JPRB,.712E-02_JPRB,.800E-02_JPRB,.700E-02_JPRB,.530E-02_JPRB,&
+&.427E-02_JPRB,.385E-02_JPRB,.346E-02_JPRB,.213E-02_JPRB,.193E-02_JPRB,.177E-02_JPRB,.182E-02_JPRB,&
+&.209E-02_JPRB,.250E-02_JPRB,.428E-02_JPRB,.708E-02_JPRB,.961E-02_JPRB,.143E-01_JPRB,.149E-01_JPRB,&
+&.154E-01_JPRB,.160E-01_JPRB,.168E-01_JPRB,.164E-01_JPRB,.150E-01_JPRB,.146E-01_JPRB,.137E-01_JPRB,&
+&.123E-01_JPRB,.818E-02_JPRB,.647E-02_JPRB,.480E-02_JPRB,.387E-02_JPRB,.388E-02_JPRB,.396E-02_JPRB,&
+&.463E-02_JPRB,.498E-02_JPRB,.537E-02_JPRB,.647E-02_JPRB,.792E-02_JPRB,.939E-02_JPRB,.128E-01_JPRB,&
+&.122E-01_JPRB,.112E-01_JPRB,.821E-02_JPRB,.666E-02_JPRB,.562E-02_JPRB,.429E-02_JPRB,.318E-02_JPRB,&
+&.259E-02_JPRB,.199E-02_JPRB,.172E-02_JPRB,.178E-02_JPRB,.196E-02_JPRB,.238E-02_JPRB,.251E-02_JPRB,&
+&.263E-02_JPRB,.260E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 28 -18.0
+ZAER (:,28, 2) = (/&
+&.319E-02_JPRB,.318E-02_JPRB,.287E-02_JPRB,.261E-02_JPRB,.234E-02_JPRB,.171E-02_JPRB,.147E-02_JPRB,&
+&.133E-02_JPRB,.132E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.150E-02_JPRB,.157E-02_JPRB,.164E-02_JPRB,&
+&.175E-02_JPRB,.301E-02_JPRB,.492E-02_JPRB,.808E-02_JPRB,.892E-02_JPRB,.767E-02_JPRB,.559E-02_JPRB,&
+&.353E-02_JPRB,.301E-02_JPRB,.258E-02_JPRB,.199E-02_JPRB,.192E-02_JPRB,.186E-02_JPRB,.178E-02_JPRB,&
+&.186E-02_JPRB,.201E-02_JPRB,.285E-02_JPRB,.443E-02_JPRB,.589E-02_JPRB,.864E-02_JPRB,.847E-02_JPRB,&
+&.843E-02_JPRB,.856E-02_JPRB,.966E-02_JPRB,.983E-02_JPRB,.945E-02_JPRB,.948E-02_JPRB,.935E-02_JPRB,&
+&.911E-02_JPRB,.684E-02_JPRB,.565E-02_JPRB,.439E-02_JPRB,.380E-02_JPRB,.390E-02_JPRB,.406E-02_JPRB,&
+&.538E-02_JPRB,.583E-02_JPRB,.630E-02_JPRB,.736E-02_JPRB,.858E-02_JPRB,.991E-02_JPRB,.133E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB,.125E-01_JPRB,.104E-01_JPRB,.885E-02_JPRB,.648E-02_JPRB,.498E-02_JPRB,&
+&.414E-02_JPRB,.321E-02_JPRB,.248E-02_JPRB,.240E-02_JPRB,.249E-02_JPRB,.294E-02_JPRB,.308E-02_JPRB,&
+&.319E-02_JPRB,.319E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 29 -22.0
+ZAER (:,29, 2) = (/&
+&.362E-02_JPRB,.360E-02_JPRB,.309E-02_JPRB,.283E-02_JPRB,.258E-02_JPRB,.211E-02_JPRB,.183E-02_JPRB,&
+&.163E-02_JPRB,.148E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,.164E-02_JPRB,.175E-02_JPRB,.181E-02_JPRB,&
+&.190E-02_JPRB,.260E-02_JPRB,.388E-02_JPRB,.606E-02_JPRB,.742E-02_JPRB,.674E-02_JPRB,.540E-02_JPRB,&
+&.339E-02_JPRB,.286E-02_JPRB,.242E-02_JPRB,.206E-02_JPRB,.201E-02_JPRB,.196E-02_JPRB,.183E-02_JPRB,&
+&.178E-02_JPRB,.177E-02_JPRB,.198E-02_JPRB,.277E-02_JPRB,.348E-02_JPRB,.477E-02_JPRB,.457E-02_JPRB,&
+&.444E-02_JPRB,.430E-02_JPRB,.508E-02_JPRB,.544E-02_JPRB,.575E-02_JPRB,.617E-02_JPRB,.636E-02_JPRB,&
+&.655E-02_JPRB,.550E-02_JPRB,.484E-02_JPRB,.409E-02_JPRB,.379E-02_JPRB,.384E-02_JPRB,.393E-02_JPRB,&
+&.534E-02_JPRB,.575E-02_JPRB,.613E-02_JPRB,.658E-02_JPRB,.708E-02_JPRB,.788E-02_JPRB,.110E-01_JPRB,&
+&.143E-01_JPRB,.164E-01_JPRB,.181E-01_JPRB,.161E-01_JPRB,.139E-01_JPRB,.979E-02_JPRB,.746E-02_JPRB,&
+&.623E-02_JPRB,.492E-02_JPRB,.377E-02_JPRB,.346E-02_JPRB,.329E-02_JPRB,.367E-02_JPRB,.376E-02_JPRB,&
+&.383E-02_JPRB,.362E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 30 -26.0
+ZAER (:,30, 2) = (/&
+&.374E-02_JPRB,.372E-02_JPRB,.301E-02_JPRB,.271E-02_JPRB,.245E-02_JPRB,.217E-02_JPRB,.200E-02_JPRB,&
+&.186E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.175E-02_JPRB,.190E-02_JPRB,.196E-02_JPRB,&
+&.199E-02_JPRB,.217E-02_JPRB,.275E-02_JPRB,.381E-02_JPRB,.524E-02_JPRB,.523E-02_JPRB,.487E-02_JPRB,&
+&.367E-02_JPRB,.316E-02_JPRB,.267E-02_JPRB,.225E-02_JPRB,.215E-02_JPRB,.205E-02_JPRB,.190E-02_JPRB,&
+&.177E-02_JPRB,.166E-02_JPRB,.161E-02_JPRB,.195E-02_JPRB,.224E-02_JPRB,.276E-02_JPRB,.269E-02_JPRB,&
+&.268E-02_JPRB,.274E-02_JPRB,.331E-02_JPRB,.371E-02_JPRB,.424E-02_JPRB,.461E-02_JPRB,.477E-02_JPRB,&
+&.493E-02_JPRB,.450E-02_JPRB,.425E-02_JPRB,.397E-02_JPRB,.384E-02_JPRB,.375E-02_JPRB,.367E-02_JPRB,&
+&.458E-02_JPRB,.485E-02_JPRB,.504E-02_JPRB,.470E-02_JPRB,.463E-02_JPRB,.497E-02_JPRB,.748E-02_JPRB,&
+&.131E-01_JPRB,.175E-01_JPRB,.240E-01_JPRB,.223E-01_JPRB,.196E-01_JPRB,.136E-01_JPRB,.101E-01_JPRB,&
+&.834E-02_JPRB,.667E-02_JPRB,.527E-02_JPRB,.471E-02_JPRB,.422E-02_JPRB,.444E-02_JPRB,.442E-02_JPRB,&
+&.436E-02_JPRB,.376E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 31 -30.0
+ZAER (:,31, 2) = (/&
+&.351E-02_JPRB,.349E-02_JPRB,.278E-02_JPRB,.247E-02_JPRB,.221E-02_JPRB,.201E-02_JPRB,.196E-02_JPRB,&
+&.191E-02_JPRB,.181E-02_JPRB,.170E-02_JPRB,.169E-02_JPRB,.181E-02_JPRB,.195E-02_JPRB,.198E-02_JPRB,&
+&.195E-02_JPRB,.196E-02_JPRB,.224E-02_JPRB,.278E-02_JPRB,.392E-02_JPRB,.421E-02_JPRB,.440E-02_JPRB,&
+&.396E-02_JPRB,.351E-02_JPRB,.302E-02_JPRB,.243E-02_JPRB,.224E-02_JPRB,.206E-02_JPRB,.186E-02_JPRB,&
+&.172E-02_JPRB,.160E-02_JPRB,.147E-02_JPRB,.156E-02_JPRB,.166E-02_JPRB,.188E-02_JPRB,.200E-02_JPRB,&
+&.220E-02_JPRB,.272E-02_JPRB,.360E-02_JPRB,.419E-02_JPRB,.494E-02_JPRB,.501E-02_JPRB,.495E-02_JPRB,&
+&.480E-02_JPRB,.443E-02_JPRB,.434E-02_JPRB,.427E-02_JPRB,.425E-02_JPRB,.406E-02_JPRB,.386E-02_JPRB,&
+&.407E-02_JPRB,.402E-02_JPRB,.393E-02_JPRB,.313E-02_JPRB,.288E-02_JPRB,.299E-02_JPRB,.477E-02_JPRB,&
+&.108E-01_JPRB,.162E-01_JPRB,.260E-01_JPRB,.251E-01_JPRB,.225E-01_JPRB,.160E-01_JPRB,.118E-01_JPRB,&
+&.968E-02_JPRB,.763E-02_JPRB,.620E-02_JPRB,.551E-02_JPRB,.481E-02_JPRB,.477E-02_JPRB,.459E-02_JPRB,&
+&.436E-02_JPRB,.353E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 32 -34.0
+ZAER (:,32, 2) = (/&
+&.301E-02_JPRB,.299E-02_JPRB,.249E-02_JPRB,.225E-02_JPRB,.204E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,&
+&.181E-02_JPRB,.176E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.180E-02_JPRB,.187E-02_JPRB,.185E-02_JPRB,&
+&.176E-02_JPRB,.179E-02_JPRB,.202E-02_JPRB,.246E-02_JPRB,.350E-02_JPRB,.388E-02_JPRB,.422E-02_JPRB,&
+&.413E-02_JPRB,.375E-02_JPRB,.332E-02_JPRB,.248E-02_JPRB,.220E-02_JPRB,.195E-02_JPRB,.170E-02_JPRB,&
+&.160E-02_JPRB,.152E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,.159E-02_JPRB,.194E-02_JPRB,&
+&.245E-02_JPRB,.366E-02_JPRB,.553E-02_JPRB,.676E-02_JPRB,.833E-02_JPRB,.829E-02_JPRB,.786E-02_JPRB,&
+&.709E-02_JPRB,.596E-02_JPRB,.565E-02_JPRB,.542E-02_JPRB,.541E-02_JPRB,.519E-02_JPRB,.495E-02_JPRB,&
+&.451E-02_JPRB,.406E-02_JPRB,.360E-02_JPRB,.269E-02_JPRB,.244E-02_JPRB,.242E-02_JPRB,.344E-02_JPRB,&
+&.779E-02_JPRB,.121E-01_JPRB,.209E-01_JPRB,.215E-01_JPRB,.201E-01_JPRB,.155E-01_JPRB,.118E-01_JPRB,&
+&.971E-02_JPRB,.748E-02_JPRB,.609E-02_JPRB,.539E-02_JPRB,.466E-02_JPRB,.438E-02_JPRB,.409E-02_JPRB,&
+&.376E-02_JPRB,.303E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 33 -38.0
+ZAER (:,33, 2) = (/&
+&.248E-02_JPRB,.247E-02_JPRB,.223E-02_JPRB,.211E-02_JPRB,.199E-02_JPRB,.183E-02_JPRB,.176E-02_JPRB,&
+&.170E-02_JPRB,.162E-02_JPRB,.160E-02_JPRB,.162E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,&
+&.154E-02_JPRB,.161E-02_JPRB,.183E-02_JPRB,.224E-02_JPRB,.325E-02_JPRB,.368E-02_JPRB,.410E-02_JPRB,&
+&.417E-02_JPRB,.385E-02_JPRB,.346E-02_JPRB,.237E-02_JPRB,.206E-02_JPRB,.178E-02_JPRB,.152E-02_JPRB,&
+&.146E-02_JPRB,.141E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.144E-02_JPRB,.173E-02_JPRB,.244E-02_JPRB,&
+&.339E-02_JPRB,.553E-02_JPRB,.910E-02_JPRB,.114E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,&
+&.119E-01_JPRB,.943E-02_JPRB,.856E-02_JPRB,.779E-02_JPRB,.734E-02_JPRB,.704E-02_JPRB,.672E-02_JPRB,&
+&.578E-02_JPRB,.505E-02_JPRB,.435E-02_JPRB,.333E-02_JPRB,.303E-02_JPRB,.288E-02_JPRB,.320E-02_JPRB,&
+&.527E-02_JPRB,.751E-02_JPRB,.125E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.124E-01_JPRB,.101E-01_JPRB,&
+&.852E-02_JPRB,.656E-02_JPRB,.513E-02_JPRB,.452E-02_JPRB,.393E-02_JPRB,.360E-02_JPRB,.331E-02_JPRB,&
+&.298E-02_JPRB,.250E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 34 -42.0
+ZAER (:,34, 2) = (/&
+&.214E-02_JPRB,.214E-02_JPRB,.207E-02_JPRB,.203E-02_JPRB,.198E-02_JPRB,.187E-02_JPRB,.176E-02_JPRB,&
+&.167E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.154E-02_JPRB,.161E-02_JPRB,.156E-02_JPRB,.150E-02_JPRB,&
+&.138E-02_JPRB,.147E-02_JPRB,.165E-02_JPRB,.197E-02_JPRB,.275E-02_JPRB,.316E-02_JPRB,.360E-02_JPRB,&
+&.379E-02_JPRB,.351E-02_JPRB,.317E-02_JPRB,.212E-02_JPRB,.184E-02_JPRB,.158E-02_JPRB,.139E-02_JPRB,&
+&.135E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.153E-02_JPRB,.178E-02_JPRB,.245E-02_JPRB,.370E-02_JPRB,&
+&.519E-02_JPRB,.836E-02_JPRB,.143E-01_JPRB,.180E-01_JPRB,.225E-01_JPRB,.221E-01_JPRB,.207E-01_JPRB,&
+&.183E-01_JPRB,.147E-01_JPRB,.130E-01_JPRB,.114E-01_JPRB,.968E-02_JPRB,.906E-02_JPRB,.848E-02_JPRB,&
+&.738E-02_JPRB,.661E-02_JPRB,.586E-02_JPRB,.462E-02_JPRB,.421E-02_JPRB,.391E-02_JPRB,.372E-02_JPRB,&
+&.423E-02_JPRB,.494E-02_JPRB,.678E-02_JPRB,.811E-02_JPRB,.860E-02_JPRB,.856E-02_JPRB,.761E-02_JPRB,&
+&.667E-02_JPRB,.522E-02_JPRB,.398E-02_JPRB,.355E-02_JPRB,.321E-02_JPRB,.294E-02_JPRB,.270E-02_JPRB,&
+&.241E-02_JPRB,.215E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 35 -46.0
+ZAER (:,35, 2) = (/&
+&.199E-02_JPRB,.199E-02_JPRB,.198E-02_JPRB,.196E-02_JPRB,.193E-02_JPRB,.184E-02_JPRB,.173E-02_JPRB,&
+&.163E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,.148E-02_JPRB,.142E-02_JPRB,.137E-02_JPRB,&
+&.130E-02_JPRB,.137E-02_JPRB,.149E-02_JPRB,.169E-02_JPRB,.211E-02_JPRB,.237E-02_JPRB,.265E-02_JPRB,&
+&.280E-02_JPRB,.262E-02_JPRB,.239E-02_JPRB,.175E-02_JPRB,.157E-02_JPRB,.140E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.147E-02_JPRB,.196E-02_JPRB,.250E-02_JPRB,.375E-02_JPRB,.560E-02_JPRB,&
+&.755E-02_JPRB,.114E-01_JPRB,.201E-01_JPRB,.257E-01_JPRB,.327E-01_JPRB,.313E-01_JPRB,.290E-01_JPRB,&
+&.255E-01_JPRB,.209E-01_JPRB,.183E-01_JPRB,.156E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,.973E-02_JPRB,&
+&.875E-02_JPRB,.809E-02_JPRB,.743E-02_JPRB,.609E-02_JPRB,.558E-02_JPRB,.517E-02_JPRB,.471E-02_JPRB,&
+&.451E-02_JPRB,.446E-02_JPRB,.466E-02_JPRB,.504E-02_JPRB,.524E-02_JPRB,.542E-02_JPRB,.520E-02_JPRB,&
+&.474E-02_JPRB,.387E-02_JPRB,.322E-02_JPRB,.300E-02_JPRB,.284E-02_JPRB,.254E-02_JPRB,.233E-02_JPRB,&
+&.211E-02_JPRB,.199E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 36 -50.0
+ZAER (:,36, 2) = (/&
+&.197E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.188E-02_JPRB,.174E-02_JPRB,.163E-02_JPRB,&
+&.154E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,&
+&.125E-02_JPRB,.128E-02_JPRB,.133E-02_JPRB,.142E-02_JPRB,.160E-02_JPRB,.171E-02_JPRB,.184E-02_JPRB,&
+&.190E-02_JPRB,.181E-02_JPRB,.170E-02_JPRB,.146E-02_JPRB,.138E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,&
+&.128E-02_JPRB,.138E-02_JPRB,.184E-02_JPRB,.259E-02_JPRB,.332E-02_JPRB,.484E-02_JPRB,.686E-02_JPRB,&
+&.882E-02_JPRB,.125E-01_JPRB,.223E-01_JPRB,.290E-01_JPRB,.378E-01_JPRB,.369E-01_JPRB,.348E-01_JPRB,&
+&.314E-01_JPRB,.263E-01_JPRB,.230E-01_JPRB,.194E-01_JPRB,.141E-01_JPRB,.124E-01_JPRB,.108E-01_JPRB,&
+&.955E-02_JPRB,.900E-02_JPRB,.845E-02_JPRB,.748E-02_JPRB,.690E-02_JPRB,.642E-02_JPRB,.572E-02_JPRB,&
+&.522E-02_JPRB,.483E-02_JPRB,.426E-02_JPRB,.391E-02_JPRB,.372E-02_JPRB,.356E-02_JPRB,.349E-02_JPRB,&
+&.336E-02_JPRB,.311E-02_JPRB,.286E-02_JPRB,.274E-02_JPRB,.263E-02_JPRB,.232E-02_JPRB,.217E-02_JPRB,&
+&.202E-02_JPRB,.197E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 37 -54.0
+ZAER (:,37, 2) = (/&
+&.200E-02_JPRB,.200E-02_JPRB,.198E-02_JPRB,.192E-02_JPRB,.185E-02_JPRB,.163E-02_JPRB,.149E-02_JPRB,&
+&.139E-02_JPRB,.130E-02_JPRB,.126E-02_JPRB,.123E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.130E-02_JPRB,.137E-02_JPRB,.145E-02_JPRB,&
+&.150E-02_JPRB,.148E-02_JPRB,.144E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,&
+&.138E-02_JPRB,.161E-02_JPRB,.243E-02_JPRB,.318E-02_JPRB,.382E-02_JPRB,.490E-02_JPRB,.599E-02_JPRB,&
+&.697E-02_JPRB,.864E-02_JPRB,.141E-01_JPRB,.187E-01_JPRB,.254E-01_JPRB,.291E-01_JPRB,.302E-01_JPRB,&
+&.309E-01_JPRB,.283E-01_JPRB,.253E-01_JPRB,.215E-01_JPRB,.158E-01_JPRB,.139E-01_JPRB,.121E-01_JPRB,&
+&.976E-02_JPRB,.907E-02_JPRB,.845E-02_JPRB,.784E-02_JPRB,.729E-02_JPRB,.680E-02_JPRB,.598E-02_JPRB,&
+&.539E-02_JPRB,.491E-02_JPRB,.418E-02_JPRB,.354E-02_JPRB,.314E-02_JPRB,.270E-02_JPRB,.257E-02_JPRB,&
+&.256E-02_JPRB,.260E-02_JPRB,.262E-02_JPRB,.259E-02_JPRB,.252E-02_JPRB,.225E-02_JPRB,.215E-02_JPRB,&
+&.205E-02_JPRB,.201E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 38 -58.0
+ZAER (:,38, 2) = (/&
+&.200E-02_JPRB,.200E-02_JPRB,.193E-02_JPRB,.185E-02_JPRB,.176E-02_JPRB,.153E-02_JPRB,.137E-02_JPRB,&
+&.126E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.115E-02_JPRB,.120E-02_JPRB,.126E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.117E-02_JPRB,.122E-02_JPRB,&
+&.151E-02_JPRB,.184E-02_JPRB,.274E-02_JPRB,.322E-02_JPRB,.354E-02_JPRB,.379E-02_JPRB,.392E-02_JPRB,&
+&.404E-02_JPRB,.426E-02_JPRB,.604E-02_JPRB,.788E-02_JPRB,.110E-01_JPRB,.158E-01_JPRB,.189E-01_JPRB,&
+&.227E-01_JPRB,.237E-01_JPRB,.221E-01_JPRB,.196E-01_JPRB,.156E-01_JPRB,.139E-01_JPRB,.122E-01_JPRB,&
+&.953E-02_JPRB,.869E-02_JPRB,.792E-02_JPRB,.717E-02_JPRB,.678E-02_JPRB,.642E-02_JPRB,.573E-02_JPRB,&
+&.506E-02_JPRB,.455E-02_JPRB,.385E-02_JPRB,.329E-02_JPRB,.291E-02_JPRB,.243E-02_JPRB,.226E-02_JPRB,&
+&.224E-02_JPRB,.230E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,.219E-02_JPRB,.211E-02_JPRB,&
+&.204E-02_JPRB,.200E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 39 -62.0
+ZAER (:,39, 2) = (/&
+&.194E-02_JPRB,.193E-02_JPRB,.184E-02_JPRB,.175E-02_JPRB,.166E-02_JPRB,.144E-02_JPRB,.131E-02_JPRB,&
+&.120E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.995E-03_JPRB,.998E-03_JPRB,.101E-02_JPRB,.105E-02_JPRB,.109E-02_JPRB,.113E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.128E-02_JPRB,&
+&.154E-02_JPRB,.180E-02_JPRB,.234E-02_JPRB,.255E-02_JPRB,.268E-02_JPRB,.274E-02_JPRB,.277E-02_JPRB,&
+&.285E-02_JPRB,.308E-02_JPRB,.401E-02_JPRB,.491E-02_JPRB,.637E-02_JPRB,.864E-02_JPRB,.103E-01_JPRB,&
+&.124E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.124E-01_JPRB,.114E-01_JPRB,.104E-01_JPRB,&
+&.852E-02_JPRB,.790E-02_JPRB,.732E-02_JPRB,.669E-02_JPRB,.633E-02_JPRB,.600E-02_JPRB,.538E-02_JPRB,&
+&.480E-02_JPRB,.435E-02_JPRB,.369E-02_JPRB,.321E-02_JPRB,.289E-02_JPRB,.249E-02_JPRB,.226E-02_JPRB,&
+&.218E-02_JPRB,.214E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.215E-02_JPRB,.208E-02_JPRB,.204E-02_JPRB,&
+&.200E-02_JPRB,.194E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 40 -66.0
+ZAER (:,40, 2) = (/&
+&.189E-02_JPRB,.188E-02_JPRB,.175E-02_JPRB,.165E-02_JPRB,.156E-02_JPRB,.139E-02_JPRB,.129E-02_JPRB,&
+&.122E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.105E-02_JPRB,.101E-02_JPRB,.978E-03_JPRB,.957E-03_JPRB,&
+&.929E-03_JPRB,.909E-03_JPRB,.908E-03_JPRB,.914E-03_JPRB,.951E-03_JPRB,.979E-03_JPRB,.101E-02_JPRB,&
+&.105E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,.111E-02_JPRB,.127E-02_JPRB,&
+&.144E-02_JPRB,.160E-02_JPRB,.191E-02_JPRB,.208E-02_JPRB,.221E-02_JPRB,.238E-02_JPRB,.254E-02_JPRB,&
+&.270E-02_JPRB,.300E-02_JPRB,.356E-02_JPRB,.403E-02_JPRB,.475E-02_JPRB,.577E-02_JPRB,.651E-02_JPRB,&
+&.744E-02_JPRB,.850E-02_JPRB,.886E-02_JPRB,.918E-02_JPRB,.904E-02_JPRB,.872E-02_JPRB,.837E-02_JPRB,&
+&.739E-02_JPRB,.696E-02_JPRB,.656E-02_JPRB,.608E-02_JPRB,.580E-02_JPRB,.554E-02_JPRB,.503E-02_JPRB,&
+&.455E-02_JPRB,.417E-02_JPRB,.359E-02_JPRB,.320E-02_JPRB,.295E-02_JPRB,.266E-02_JPRB,.242E-02_JPRB,&
+&.230E-02_JPRB,.217E-02_JPRB,.211E-02_JPRB,.208E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,.200E-02_JPRB,&
+&.197E-02_JPRB,.189E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 41 -70.0
+ZAER (:,41, 2) = (/&
+&.180E-02_JPRB,.179E-02_JPRB,.166E-02_JPRB,.157E-02_JPRB,.149E-02_JPRB,.137E-02_JPRB,.130E-02_JPRB,&
+&.124E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.109E-02_JPRB,.105E-02_JPRB,.101E-02_JPRB,.978E-03_JPRB,&
+&.942E-03_JPRB,.913E-03_JPRB,.902E-03_JPRB,.893E-03_JPRB,.904E-03_JPRB,.916E-03_JPRB,.934E-03_JPRB,&
+&.956E-03_JPRB,.963E-03_JPRB,.969E-03_JPRB,.988E-03_JPRB,.103E-02_JPRB,.107E-02_JPRB,.121E-02_JPRB,&
+&.133E-02_JPRB,.144E-02_JPRB,.165E-02_JPRB,.179E-02_JPRB,.191E-02_JPRB,.209E-02_JPRB,.227E-02_JPRB,&
+&.243E-02_JPRB,.269E-02_JPRB,.302E-02_JPRB,.328E-02_JPRB,.366E-02_JPRB,.420E-02_JPRB,.459E-02_JPRB,&
+&.508E-02_JPRB,.575E-02_JPRB,.607E-02_JPRB,.639E-02_JPRB,.668E-02_JPRB,.665E-02_JPRB,.661E-02_JPRB,&
+&.621E-02_JPRB,.595E-02_JPRB,.568E-02_JPRB,.523E-02_JPRB,.495E-02_JPRB,.469E-02_JPRB,.428E-02_JPRB,&
+&.395E-02_JPRB,.369E-02_JPRB,.332E-02_JPRB,.309E-02_JPRB,.294E-02_JPRB,.277E-02_JPRB,.261E-02_JPRB,&
+&.251E-02_JPRB,.240E-02_JPRB,.227E-02_JPRB,.220E-02_JPRB,.212E-02_JPRB,.203E-02_JPRB,.197E-02_JPRB,&
+&.191E-02_JPRB,.180E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 42 -74.0
+ZAER (:,42, 2) = (/&
+&.180E-02_JPRB,.179E-02_JPRB,.166E-02_JPRB,.159E-02_JPRB,.152E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,&
+&.131E-02_JPRB,.125E-02_JPRB,.120E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,&
+&.102E-02_JPRB,.996E-03_JPRB,.982E-03_JPRB,.969E-03_JPRB,.965E-03_JPRB,.968E-03_JPRB,.973E-03_JPRB,&
+&.986E-03_JPRB,.994E-03_JPRB,.100E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.116E-02_JPRB,&
+&.123E-02_JPRB,.129E-02_JPRB,.143E-02_JPRB,.154E-02_JPRB,.164E-02_JPRB,.180E-02_JPRB,.196E-02_JPRB,&
+&.209E-02_JPRB,.228E-02_JPRB,.250E-02_JPRB,.267E-02_JPRB,.291E-02_JPRB,.326E-02_JPRB,.351E-02_JPRB,&
+&.384E-02_JPRB,.429E-02_JPRB,.452E-02_JPRB,.477E-02_JPRB,.505E-02_JPRB,.510E-02_JPRB,.514E-02_JPRB,&
+&.500E-02_JPRB,.484E-02_JPRB,.467E-02_JPRB,.433E-02_JPRB,.410E-02_JPRB,.390E-02_JPRB,.360E-02_JPRB,&
+&.340E-02_JPRB,.325E-02_JPRB,.305E-02_JPRB,.292E-02_JPRB,.284E-02_JPRB,.274E-02_JPRB,.265E-02_JPRB,&
+&.259E-02_JPRB,.251E-02_JPRB,.240E-02_JPRB,.233E-02_JPRB,.224E-02_JPRB,.210E-02_JPRB,.202E-02_JPRB,&
+&.194E-02_JPRB,.180E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 43 -78.0
+ZAER (:,43, 2) = (/&
+&.192E-02_JPRB,.191E-02_JPRB,.180E-02_JPRB,.173E-02_JPRB,.167E-02_JPRB,.158E-02_JPRB,.152E-02_JPRB,&
+&.147E-02_JPRB,.141E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,&
+&.119E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,&
+&.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.129E-02_JPRB,&
+&.132E-02_JPRB,.135E-02_JPRB,.142E-02_JPRB,.149E-02_JPRB,.155E-02_JPRB,.165E-02_JPRB,.175E-02_JPRB,&
+&.184E-02_JPRB,.196E-02_JPRB,.211E-02_JPRB,.222E-02_JPRB,.238E-02_JPRB,.260E-02_JPRB,.275E-02_JPRB,&
+&.295E-02_JPRB,.320E-02_JPRB,.334E-02_JPRB,.348E-02_JPRB,.365E-02_JPRB,.369E-02_JPRB,.374E-02_JPRB,&
+&.373E-02_JPRB,.368E-02_JPRB,.362E-02_JPRB,.349E-02_JPRB,.339E-02_JPRB,.330E-02_JPRB,.315E-02_JPRB,&
+&.305E-02_JPRB,.298E-02_JPRB,.287E-02_JPRB,.279E-02_JPRB,.273E-02_JPRB,.267E-02_JPRB,.260E-02_JPRB,&
+&.256E-02_JPRB,.250E-02_JPRB,.242E-02_JPRB,.237E-02_JPRB,.230E-02_JPRB,.218E-02_JPRB,.211E-02_JPRB,&
+&.204E-02_JPRB,.192E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 44 -82.0
+ZAER (:,44, 2) = (/&
+&.200E-02_JPRB,.200E-02_JPRB,.193E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.178E-02_JPRB,.174E-02_JPRB,&
+&.171E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,.152E-02_JPRB,&
+&.151E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,&
+&.152E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.158E-02_JPRB,.160E-02_JPRB,&
+&.162E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,.170E-02_JPRB,.172E-02_JPRB,.178E-02_JPRB,.183E-02_JPRB,&
+&.187E-02_JPRB,.193E-02_JPRB,.201E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.224E-02_JPRB,.230E-02_JPRB,&
+&.238E-02_JPRB,.249E-02_JPRB,.255E-02_JPRB,.261E-02_JPRB,.268E-02_JPRB,.271E-02_JPRB,.274E-02_JPRB,&
+&.277E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.276E-02_JPRB,.273E-02_JPRB,.271E-02_JPRB,.267E-02_JPRB,&
+&.264E-02_JPRB,.261E-02_JPRB,.257E-02_JPRB,.253E-02_JPRB,.250E-02_JPRB,.246E-02_JPRB,.242E-02_JPRB,&
+&.239E-02_JPRB,.235E-02_JPRB,.230E-02_JPRB,.227E-02_JPRB,.223E-02_JPRB,.216E-02_JPRB,.212E-02_JPRB,&
+&.208E-02_JPRB,.200E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 45 -86.0
+ZAER (:,45, 2) = (/&
+&.202E-02_JPRB,.202E-02_JPRB,.200E-02_JPRB,.198E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,&
+&.192E-02_JPRB,.190E-02_JPRB,.189E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.185E-02_JPRB,&
+&.184E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,&
+&.185E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,.192E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.197E-02_JPRB,&
+&.198E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,.206E-02_JPRB,.208E-02_JPRB,.210E-02_JPRB,&
+&.212E-02_JPRB,.215E-02_JPRB,.216E-02_JPRB,.218E-02_JPRB,.219E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,&
+&.223E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.224E-02_JPRB,.224E-02_JPRB,.223E-02_JPRB,.222E-02_JPRB,.221E-02_JPRB,.219E-02_JPRB,.218E-02_JPRB,&
+&.216E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,.212E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.207E-02_JPRB,&
+&.205E-02_JPRB,.203E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  2 --- lat: 46 -90.0
+ZAER (:,46, 2) = (/&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=2
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_02
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_03.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_03.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_03.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_03
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 March
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,3:3)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  3 --- lat:  1  90.0
+ZAER (:, 1, 3) = (/&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,.872E-04_JPRB,&
+&.872E-04_JPRB,.872E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  2  86.0
+ZAER (:, 2, 3) = (/&
+&.880E-04_JPRB,.880E-04_JPRB,.885E-04_JPRB,.887E-04_JPRB,.889E-04_JPRB,.892E-04_JPRB,.894E-04_JPRB,&
+&.896E-04_JPRB,.898E-04_JPRB,.899E-04_JPRB,.900E-04_JPRB,.901E-04_JPRB,.901E-04_JPRB,.901E-04_JPRB,&
+&.902E-04_JPRB,.902E-04_JPRB,.902E-04_JPRB,.901E-04_JPRB,.901E-04_JPRB,.900E-04_JPRB,.900E-04_JPRB,&
+&.899E-04_JPRB,.899E-04_JPRB,.898E-04_JPRB,.896E-04_JPRB,.895E-04_JPRB,.894E-04_JPRB,.892E-04_JPRB,&
+&.890E-04_JPRB,.889E-04_JPRB,.886E-04_JPRB,.884E-04_JPRB,.882E-04_JPRB,.879E-04_JPRB,.876E-04_JPRB,&
+&.874E-04_JPRB,.870E-04_JPRB,.867E-04_JPRB,.865E-04_JPRB,.862E-04_JPRB,.858E-04_JPRB,.856E-04_JPRB,&
+&.854E-04_JPRB,.851E-04_JPRB,.849E-04_JPRB,.847E-04_JPRB,.845E-04_JPRB,.844E-04_JPRB,.842E-04_JPRB,&
+&.841E-04_JPRB,.840E-04_JPRB,.839E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.839E-04_JPRB,&
+&.840E-04_JPRB,.840E-04_JPRB,.841E-04_JPRB,.843E-04_JPRB,.845E-04_JPRB,.847E-04_JPRB,.850E-04_JPRB,&
+&.852E-04_JPRB,.855E-04_JPRB,.859E-04_JPRB,.862E-04_JPRB,.865E-04_JPRB,.870E-04_JPRB,.872E-04_JPRB,&
+&.875E-04_JPRB,.880E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  3  82.0
+ZAER (:, 3, 3) = (/&
+&.902E-04_JPRB,.903E-04_JPRB,.915E-04_JPRB,.921E-04_JPRB,.926E-04_JPRB,.933E-04_JPRB,.937E-04_JPRB,&
+&.939E-04_JPRB,.942E-04_JPRB,.944E-04_JPRB,.944E-04_JPRB,.945E-04_JPRB,.945E-04_JPRB,.945E-04_JPRB,&
+&.945E-04_JPRB,.945E-04_JPRB,.944E-04_JPRB,.944E-04_JPRB,.944E-04_JPRB,.944E-04_JPRB,.944E-04_JPRB,&
+&.945E-04_JPRB,.945E-04_JPRB,.946E-04_JPRB,.947E-04_JPRB,.947E-04_JPRB,.948E-04_JPRB,.946E-04_JPRB,&
+&.944E-04_JPRB,.942E-04_JPRB,.935E-04_JPRB,.929E-04_JPRB,.924E-04_JPRB,.913E-04_JPRB,.903E-04_JPRB,&
+&.896E-04_JPRB,.885E-04_JPRB,.874E-04_JPRB,.867E-04_JPRB,.858E-04_JPRB,.848E-04_JPRB,.842E-04_JPRB,&
+&.836E-04_JPRB,.828E-04_JPRB,.824E-04_JPRB,.820E-04_JPRB,.814E-04_JPRB,.811E-04_JPRB,.808E-04_JPRB,&
+&.803E-04_JPRB,.800E-04_JPRB,.798E-04_JPRB,.794E-04_JPRB,.792E-04_JPRB,.790E-04_JPRB,.789E-04_JPRB,&
+&.789E-04_JPRB,.789E-04_JPRB,.791E-04_JPRB,.794E-04_JPRB,.798E-04_JPRB,.804E-04_JPRB,.811E-04_JPRB,&
+&.818E-04_JPRB,.826E-04_JPRB,.838E-04_JPRB,.847E-04_JPRB,.857E-04_JPRB,.871E-04_JPRB,.879E-04_JPRB,&
+&.888E-04_JPRB,.902E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  4  78.0
+ZAER (:, 4, 3) = (/&
+&.943E-04_JPRB,.944E-04_JPRB,.964E-04_JPRB,.973E-04_JPRB,.981E-04_JPRB,.988E-04_JPRB,.989E-04_JPRB,&
+&.989E-04_JPRB,.987E-04_JPRB,.983E-04_JPRB,.980E-04_JPRB,.977E-04_JPRB,.975E-04_JPRB,.974E-04_JPRB,&
+&.974E-04_JPRB,.974E-04_JPRB,.975E-04_JPRB,.977E-04_JPRB,.980E-04_JPRB,.982E-04_JPRB,.985E-04_JPRB,&
+&.992E-04_JPRB,.998E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,&
+&.104E-03_JPRB,.104E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.981E-04_JPRB,.959E-04_JPRB,&
+&.943E-04_JPRB,.919E-04_JPRB,.899E-04_JPRB,.885E-04_JPRB,.868E-04_JPRB,.852E-04_JPRB,.844E-04_JPRB,&
+&.834E-04_JPRB,.824E-04_JPRB,.820E-04_JPRB,.816E-04_JPRB,.810E-04_JPRB,.807E-04_JPRB,.804E-04_JPRB,&
+&.797E-04_JPRB,.793E-04_JPRB,.788E-04_JPRB,.777E-04_JPRB,.770E-04_JPRB,.765E-04_JPRB,.757E-04_JPRB,&
+&.752E-04_JPRB,.750E-04_JPRB,.748E-04_JPRB,.752E-04_JPRB,.756E-04_JPRB,.765E-04_JPRB,.779E-04_JPRB,&
+&.790E-04_JPRB,.805E-04_JPRB,.828E-04_JPRB,.843E-04_JPRB,.861E-04_JPRB,.888E-04_JPRB,.902E-04_JPRB,&
+&.918E-04_JPRB,.942E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  5  74.0
+ZAER (:, 5, 3) = (/&
+&.997E-04_JPRB,.998E-04_JPRB,.102E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,&
+&.103E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.995E-04_JPRB,.983E-04_JPRB,.978E-04_JPRB,.977E-04_JPRB,&
+&.978E-04_JPRB,.985E-04_JPRB,.990E-04_JPRB,.997E-04_JPRB,.101E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.104E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,.109E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.115E-03_JPRB,&
+&.115E-03_JPRB,.116E-03_JPRB,.114E-03_JPRB,.112E-03_JPRB,.110E-03_JPRB,.106E-03_JPRB,.102E-03_JPRB,&
+&.998E-04_JPRB,.962E-04_JPRB,.933E-04_JPRB,.915E-04_JPRB,.894E-04_JPRB,.876E-04_JPRB,.868E-04_JPRB,&
+&.859E-04_JPRB,.854E-04_JPRB,.853E-04_JPRB,.852E-04_JPRB,.851E-04_JPRB,.851E-04_JPRB,.851E-04_JPRB,&
+&.846E-04_JPRB,.839E-04_JPRB,.832E-04_JPRB,.813E-04_JPRB,.800E-04_JPRB,.789E-04_JPRB,.772E-04_JPRB,&
+&.762E-04_JPRB,.756E-04_JPRB,.749E-04_JPRB,.752E-04_JPRB,.756E-04_JPRB,.767E-04_JPRB,.787E-04_JPRB,&
+&.802E-04_JPRB,.824E-04_JPRB,.854E-04_JPRB,.874E-04_JPRB,.897E-04_JPRB,.930E-04_JPRB,.948E-04_JPRB,&
+&.968E-04_JPRB,.996E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  6  70.0
+ZAER (:, 6, 3) = (/&
+&.105E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.108E-03_JPRB,.107E-03_JPRB,&
+&.106E-03_JPRB,.104E-03_JPRB,.103E-03_JPRB,.101E-03_JPRB,.997E-04_JPRB,.991E-04_JPRB,.990E-04_JPRB,&
+&.994E-04_JPRB,.101E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,&
+&.109E-03_JPRB,.111E-03_JPRB,.113E-03_JPRB,.117E-03_JPRB,.118E-03_JPRB,.120E-03_JPRB,.124E-03_JPRB,&
+&.125E-03_JPRB,.126E-03_JPRB,.124E-03_JPRB,.121E-03_JPRB,.119E-03_JPRB,.115E-03_JPRB,.111E-03_JPRB,&
+&.109E-03_JPRB,.105E-03_JPRB,.102E-03_JPRB,.996E-04_JPRB,.974E-04_JPRB,.959E-04_JPRB,.954E-04_JPRB,&
+&.951E-04_JPRB,.953E-04_JPRB,.955E-04_JPRB,.957E-04_JPRB,.959E-04_JPRB,.959E-04_JPRB,.959E-04_JPRB,&
+&.952E-04_JPRB,.941E-04_JPRB,.930E-04_JPRB,.901E-04_JPRB,.882E-04_JPRB,.866E-04_JPRB,.843E-04_JPRB,&
+&.831E-04_JPRB,.823E-04_JPRB,.817E-04_JPRB,.819E-04_JPRB,.823E-04_JPRB,.835E-04_JPRB,.856E-04_JPRB,&
+&.872E-04_JPRB,.895E-04_JPRB,.925E-04_JPRB,.945E-04_JPRB,.968E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,&
+&.103E-03_JPRB,.105E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  7  66.0
+ZAER (:, 7, 3) = (/&
+&.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.110E-03_JPRB,&
+&.109E-03_JPRB,.108E-03_JPRB,.107E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,&
+&.105E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.110E-03_JPRB,.112E-03_JPRB,.114E-03_JPRB,.116E-03_JPRB,&
+&.119E-03_JPRB,.120E-03_JPRB,.121E-03_JPRB,.124E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.131E-03_JPRB,&
+&.132E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.131E-03_JPRB,.129E-03_JPRB,.127E-03_JPRB,&
+&.125E-03_JPRB,.122E-03_JPRB,.119E-03_JPRB,.117E-03_JPRB,.115E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,&
+&.114E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,.115E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,&
+&.112E-03_JPRB,.110E-03_JPRB,.108E-03_JPRB,.103E-03_JPRB,.100E-03_JPRB,.981E-04_JPRB,.958E-04_JPRB,&
+&.951E-04_JPRB,.948E-04_JPRB,.946E-04_JPRB,.949E-04_JPRB,.955E-04_JPRB,.966E-04_JPRB,.982E-04_JPRB,&
+&.992E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,.105E-03_JPRB,.108E-03_JPRB,.110E-03_JPRB,&
+&.111E-03_JPRB,.113E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  8  62.0
+ZAER (:, 8, 3) = (/&
+&.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.120E-03_JPRB,.118E-03_JPRB,.117E-03_JPRB,&
+&.116E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,&
+&.114E-03_JPRB,.115E-03_JPRB,.116E-03_JPRB,.118E-03_JPRB,.121E-03_JPRB,.123E-03_JPRB,.126E-03_JPRB,&
+&.131E-03_JPRB,.133E-03_JPRB,.135E-03_JPRB,.137E-03_JPRB,.138E-03_JPRB,.139E-03_JPRB,.139E-03_JPRB,&
+&.138E-03_JPRB,.137E-03_JPRB,.138E-03_JPRB,.141E-03_JPRB,.143E-03_JPRB,.144E-03_JPRB,.143E-03_JPRB,&
+&.142E-03_JPRB,.140E-03_JPRB,.138E-03_JPRB,.136E-03_JPRB,.134E-03_JPRB,.133E-03_JPRB,.133E-03_JPRB,&
+&.134E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.134E-03_JPRB,&
+&.132E-03_JPRB,.129E-03_JPRB,.126E-03_JPRB,.121E-03_JPRB,.117E-03_JPRB,.114E-03_JPRB,.111E-03_JPRB,&
+&.111E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,&
+&.114E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.115E-03_JPRB,.117E-03_JPRB,&
+&.119E-03_JPRB,.122E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat:  9  58.0
+ZAER (:, 9, 3) = (/&
+&.132E-03_JPRB,.132E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.131E-03_JPRB,.128E-03_JPRB,&
+&.126E-03_JPRB,.123E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,&
+&.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,.127E-03_JPRB,.132E-03_JPRB,.138E-03_JPRB,&
+&.150E-03_JPRB,.156E-03_JPRB,.161E-03_JPRB,.162E-03_JPRB,.161E-03_JPRB,.159E-03_JPRB,.153E-03_JPRB,&
+&.149E-03_JPRB,.147E-03_JPRB,.149E-03_JPRB,.154E-03_JPRB,.157E-03_JPRB,.160E-03_JPRB,.159E-03_JPRB,&
+&.157E-03_JPRB,.155E-03_JPRB,.153E-03_JPRB,.151E-03_JPRB,.148E-03_JPRB,.145E-03_JPRB,.144E-03_JPRB,&
+&.144E-03_JPRB,.146E-03_JPRB,.148E-03_JPRB,.149E-03_JPRB,.150E-03_JPRB,.151E-03_JPRB,.152E-03_JPRB,&
+&.150E-03_JPRB,.148E-03_JPRB,.145E-03_JPRB,.140E-03_JPRB,.137E-03_JPRB,.134E-03_JPRB,.131E-03_JPRB,&
+&.130E-03_JPRB,.130E-03_JPRB,.130E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,.130E-03_JPRB,.129E-03_JPRB,&
+&.127E-03_JPRB,.125E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.120E-03_JPRB,.122E-03_JPRB,.125E-03_JPRB,&
+&.128E-03_JPRB,.132E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 10  54.0
+ZAER (:,10, 3) = (/&
+&.144E-03_JPRB,.144E-03_JPRB,.150E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.146E-03_JPRB,.141E-03_JPRB,&
+&.138E-03_JPRB,.134E-03_JPRB,.132E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,&
+&.131E-03_JPRB,.129E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,.133E-03_JPRB,.139E-03_JPRB,.148E-03_JPRB,&
+&.170E-03_JPRB,.180E-03_JPRB,.190E-03_JPRB,.188E-03_JPRB,.183E-03_JPRB,.178E-03_JPRB,.170E-03_JPRB,&
+&.169E-03_JPRB,.169E-03_JPRB,.174E-03_JPRB,.180E-03_JPRB,.184E-03_JPRB,.190E-03_JPRB,.190E-03_JPRB,&
+&.188E-03_JPRB,.181E-03_JPRB,.173E-03_JPRB,.168E-03_JPRB,.161E-03_JPRB,.154E-03_JPRB,.152E-03_JPRB,&
+&.150E-03_JPRB,.153E-03_JPRB,.157E-03_JPRB,.161E-03_JPRB,.166E-03_JPRB,.167E-03_JPRB,.168E-03_JPRB,&
+&.166E-03_JPRB,.161E-03_JPRB,.157E-03_JPRB,.151E-03_JPRB,.149E-03_JPRB,.148E-03_JPRB,.147E-03_JPRB,&
+&.146E-03_JPRB,.146E-03_JPRB,.146E-03_JPRB,.145E-03_JPRB,.145E-03_JPRB,.143E-03_JPRB,.141E-03_JPRB,&
+&.140E-03_JPRB,.137E-03_JPRB,.134E-03_JPRB,.132E-03_JPRB,.129E-03_JPRB,.132E-03_JPRB,.135E-03_JPRB,&
+&.138E-03_JPRB,.143E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 11  50.0
+ZAER (:,11, 3) = (/&
+&.171E-03_JPRB,.171E-03_JPRB,.175E-03_JPRB,.176E-03_JPRB,.175E-03_JPRB,.168E-03_JPRB,.162E-03_JPRB,&
+&.157E-03_JPRB,.150E-03_JPRB,.147E-03_JPRB,.145E-03_JPRB,.145E-03_JPRB,.146E-03_JPRB,.146E-03_JPRB,&
+&.145E-03_JPRB,.143E-03_JPRB,.142E-03_JPRB,.140E-03_JPRB,.145E-03_JPRB,.152E-03_JPRB,.162E-03_JPRB,&
+&.192E-03_JPRB,.208E-03_JPRB,.225E-03_JPRB,.226E-03_JPRB,.216E-03_JPRB,.206E-03_JPRB,.203E-03_JPRB,&
+&.211E-03_JPRB,.218E-03_JPRB,.234E-03_JPRB,.245E-03_JPRB,.253E-03_JPRB,.264E-03_JPRB,.255E-03_JPRB,&
+&.246E-03_JPRB,.229E-03_JPRB,.213E-03_JPRB,.203E-03_JPRB,.193E-03_JPRB,.180E-03_JPRB,.175E-03_JPRB,&
+&.170E-03_JPRB,.172E-03_JPRB,.176E-03_JPRB,.182E-03_JPRB,.189E-03_JPRB,.189E-03_JPRB,.189E-03_JPRB,&
+&.181E-03_JPRB,.174E-03_JPRB,.167E-03_JPRB,.157E-03_JPRB,.158E-03_JPRB,.159E-03_JPRB,.163E-03_JPRB,&
+&.165E-03_JPRB,.166E-03_JPRB,.166E-03_JPRB,.164E-03_JPRB,.163E-03_JPRB,.161E-03_JPRB,.161E-03_JPRB,&
+&.162E-03_JPRB,.163E-03_JPRB,.159E-03_JPRB,.155E-03_JPRB,.149E-03_JPRB,.151E-03_JPRB,.157E-03_JPRB,&
+&.164E-03_JPRB,.170E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 12  46.0
+ZAER (:,12, 3) = (/&
+&.218E-03_JPRB,.218E-03_JPRB,.214E-03_JPRB,.213E-03_JPRB,.211E-03_JPRB,.202E-03_JPRB,.193E-03_JPRB,&
+&.185E-03_JPRB,.175E-03_JPRB,.170E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.166E-03_JPRB,.164E-03_JPRB,.162E-03_JPRB,.159E-03_JPRB,.160E-03_JPRB,.166E-03_JPRB,.173E-03_JPRB,&
+&.212E-03_JPRB,.242E-03_JPRB,.273E-03_JPRB,.303E-03_JPRB,.296E-03_JPRB,.288E-03_JPRB,.282E-03_JPRB,&
+&.296E-03_JPRB,.309E-03_JPRB,.342E-03_JPRB,.354E-03_JPRB,.359E-03_JPRB,.355E-03_JPRB,.333E-03_JPRB,&
+&.317E-03_JPRB,.295E-03_JPRB,.275E-03_JPRB,.264E-03_JPRB,.255E-03_JPRB,.237E-03_JPRB,.227E-03_JPRB,&
+&.216E-03_JPRB,.219E-03_JPRB,.224E-03_JPRB,.231E-03_JPRB,.236E-03_JPRB,.232E-03_JPRB,.228E-03_JPRB,&
+&.211E-03_JPRB,.198E-03_JPRB,.185E-03_JPRB,.169E-03_JPRB,.170E-03_JPRB,.172E-03_JPRB,.181E-03_JPRB,&
+&.188E-03_JPRB,.191E-03_JPRB,.193E-03_JPRB,.192E-03_JPRB,.193E-03_JPRB,.194E-03_JPRB,.196E-03_JPRB,&
+&.201E-03_JPRB,.210E-03_JPRB,.209E-03_JPRB,.199E-03_JPRB,.184E-03_JPRB,.185E-03_JPRB,.195E-03_JPRB,&
+&.208E-03_JPRB,.218E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 13  42.0
+ZAER (:,13, 3) = (/&
+&.278E-03_JPRB,.278E-03_JPRB,.262E-03_JPRB,.261E-03_JPRB,.259E-03_JPRB,.249E-03_JPRB,.237E-03_JPRB,&
+&.226E-03_JPRB,.209E-03_JPRB,.203E-03_JPRB,.200E-03_JPRB,.199E-03_JPRB,.199E-03_JPRB,.197E-03_JPRB,&
+&.194E-03_JPRB,.190E-03_JPRB,.185E-03_JPRB,.179E-03_JPRB,.176E-03_JPRB,.180E-03_JPRB,.186E-03_JPRB,&
+&.245E-03_JPRB,.304E-03_JPRB,.368E-03_JPRB,.474E-03_JPRB,.480E-03_JPRB,.482E-03_JPRB,.435E-03_JPRB,&
+&.426E-03_JPRB,.425E-03_JPRB,.471E-03_JPRB,.472E-03_JPRB,.467E-03_JPRB,.439E-03_JPRB,.418E-03_JPRB,&
+&.405E-03_JPRB,.390E-03_JPRB,.371E-03_JPRB,.363E-03_JPRB,.356E-03_JPRB,.336E-03_JPRB,.326E-03_JPRB,&
+&.314E-03_JPRB,.313E-03_JPRB,.316E-03_JPRB,.320E-03_JPRB,.310E-03_JPRB,.304E-03_JPRB,.297E-03_JPRB,&
+&.267E-03_JPRB,.246E-03_JPRB,.226E-03_JPRB,.200E-03_JPRB,.198E-03_JPRB,.198E-03_JPRB,.210E-03_JPRB,&
+&.221E-03_JPRB,.228E-03_JPRB,.235E-03_JPRB,.241E-03_JPRB,.244E-03_JPRB,.247E-03_JPRB,.262E-03_JPRB,&
+&.278E-03_JPRB,.304E-03_JPRB,.298E-03_JPRB,.279E-03_JPRB,.248E-03_JPRB,.242E-03_JPRB,.253E-03_JPRB,&
+&.269E-03_JPRB,.278E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 14  38.0
+ZAER (:,14, 3) = (/&
+&.334E-03_JPRB,.333E-03_JPRB,.311E-03_JPRB,.309E-03_JPRB,.306E-03_JPRB,.295E-03_JPRB,.281E-03_JPRB,&
+&.269E-03_JPRB,.248E-03_JPRB,.238E-03_JPRB,.233E-03_JPRB,.230E-03_JPRB,.227E-03_JPRB,.224E-03_JPRB,&
+&.220E-03_JPRB,.214E-03_JPRB,.208E-03_JPRB,.198E-03_JPRB,.194E-03_JPRB,.201E-03_JPRB,.211E-03_JPRB,&
+&.328E-03_JPRB,.440E-03_JPRB,.561E-03_JPRB,.809E-03_JPRB,.852E-03_JPRB,.880E-03_JPRB,.709E-03_JPRB,&
+&.639E-03_JPRB,.589E-03_JPRB,.586E-03_JPRB,.579E-03_JPRB,.568E-03_JPRB,.530E-03_JPRB,.507E-03_JPRB,&
+&.496E-03_JPRB,.490E-03_JPRB,.475E-03_JPRB,.476E-03_JPRB,.490E-03_JPRB,.500E-03_JPRB,.501E-03_JPRB,&
+&.500E-03_JPRB,.476E-03_JPRB,.462E-03_JPRB,.446E-03_JPRB,.407E-03_JPRB,.398E-03_JPRB,.390E-03_JPRB,&
+&.347E-03_JPRB,.322E-03_JPRB,.297E-03_JPRB,.262E-03_JPRB,.254E-03_JPRB,.251E-03_JPRB,.264E-03_JPRB,&
+&.278E-03_JPRB,.290E-03_JPRB,.310E-03_JPRB,.322E-03_JPRB,.326E-03_JPRB,.324E-03_JPRB,.360E-03_JPRB,&
+&.393E-03_JPRB,.443E-03_JPRB,.437E-03_JPRB,.410E-03_JPRB,.368E-03_JPRB,.318E-03_JPRB,.319E-03_JPRB,&
+&.327E-03_JPRB,.334E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 15  34.0
+ZAER (:,15, 3) = (/&
+&.374E-03_JPRB,.373E-03_JPRB,.348E-03_JPRB,.341E-03_JPRB,.334E-03_JPRB,.322E-03_JPRB,.311E-03_JPRB,&
+&.302E-03_JPRB,.283E-03_JPRB,.270E-03_JPRB,.261E-03_JPRB,.250E-03_JPRB,.243E-03_JPRB,.239E-03_JPRB,&
+&.235E-03_JPRB,.232E-03_JPRB,.226E-03_JPRB,.217E-03_JPRB,.215E-03_JPRB,.228E-03_JPRB,.247E-03_JPRB,&
+&.486E-03_JPRB,.673E-03_JPRB,.871E-03_JPRB,.138E-02_JPRB,.154E-02_JPRB,.165E-02_JPRB,.122E-02_JPRB,&
+&.101E-02_JPRB,.846E-03_JPRB,.735E-03_JPRB,.710E-03_JPRB,.688E-03_JPRB,.652E-03_JPRB,.611E-03_JPRB,&
+&.586E-03_JPRB,.561E-03_JPRB,.558E-03_JPRB,.585E-03_JPRB,.649E-03_JPRB,.746E-03_JPRB,.782E-03_JPRB,&
+&.809E-03_JPRB,.703E-03_JPRB,.643E-03_JPRB,.577E-03_JPRB,.509E-03_JPRB,.496E-03_JPRB,.486E-03_JPRB,&
+&.450E-03_JPRB,.425E-03_JPRB,.400E-03_JPRB,.361E-03_JPRB,.349E-03_JPRB,.344E-03_JPRB,.354E-03_JPRB,&
+&.368E-03_JPRB,.383E-03_JPRB,.420E-03_JPRB,.428E-03_JPRB,.425E-03_JPRB,.410E-03_JPRB,.466E-03_JPRB,&
+&.505E-03_JPRB,.555E-03_JPRB,.573E-03_JPRB,.554E-03_JPRB,.516E-03_JPRB,.399E-03_JPRB,.382E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 16  30.0
+ZAER (:,16, 3) = (/&
+&.396E-03_JPRB,.396E-03_JPRB,.368E-03_JPRB,.355E-03_JPRB,.344E-03_JPRB,.332E-03_JPRB,.326E-03_JPRB,&
+&.321E-03_JPRB,.308E-03_JPRB,.293E-03_JPRB,.281E-03_JPRB,.263E-03_JPRB,.253E-03_JPRB,.249E-03_JPRB,&
+&.246E-03_JPRB,.244E-03_JPRB,.241E-03_JPRB,.235E-03_JPRB,.237E-03_JPRB,.258E-03_JPRB,.288E-03_JPRB,&
+&.667E-03_JPRB,.909E-03_JPRB,.116E-02_JPRB,.203E-02_JPRB,.240E-02_JPRB,.269E-02_JPRB,.199E-02_JPRB,&
+&.156E-02_JPRB,.121E-02_JPRB,.952E-03_JPRB,.881E-03_JPRB,.832E-03_JPRB,.786E-03_JPRB,.718E-03_JPRB,&
+&.674E-03_JPRB,.622E-03_JPRB,.651E-03_JPRB,.710E-03_JPRB,.829E-03_JPRB,.104E-02_JPRB,.112E-02_JPRB,&
+&.119E-02_JPRB,.959E-03_JPRB,.833E-03_JPRB,.699E-03_JPRB,.605E-03_JPRB,.592E-03_JPRB,.585E-03_JPRB,&
+&.572E-03_JPRB,.551E-03_JPRB,.531E-03_JPRB,.497E-03_JPRB,.484E-03_JPRB,.475E-03_JPRB,.476E-03_JPRB,&
+&.484E-03_JPRB,.497E-03_JPRB,.536E-03_JPRB,.530E-03_JPRB,.517E-03_JPRB,.483E-03_JPRB,.540E-03_JPRB,&
+&.570E-03_JPRB,.602E-03_JPRB,.647E-03_JPRB,.641E-03_JPRB,.618E-03_JPRB,.468E-03_JPRB,.435E-03_JPRB,&
+&.413E-03_JPRB,.397E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 17  26.0
+ZAER (:,17, 3) = (/&
+&.410E-03_JPRB,.409E-03_JPRB,.376E-03_JPRB,.359E-03_JPRB,.344E-03_JPRB,.334E-03_JPRB,.329E-03_JPRB,&
+&.325E-03_JPRB,.320E-03_JPRB,.308E-03_JPRB,.298E-03_JPRB,.278E-03_JPRB,.266E-03_JPRB,.261E-03_JPRB,&
+&.262E-03_JPRB,.263E-03_JPRB,.260E-03_JPRB,.256E-03_JPRB,.270E-03_JPRB,.302E-03_JPRB,.349E-03_JPRB,&
+&.777E-03_JPRB,.995E-03_JPRB,.121E-02_JPRB,.219E-02_JPRB,.279E-02_JPRB,.330E-02_JPRB,.266E-02_JPRB,&
+&.206E-02_JPRB,.158E-02_JPRB,.114E-02_JPRB,.103E-02_JPRB,.953E-03_JPRB,.885E-03_JPRB,.816E-03_JPRB,&
+&.775E-03_JPRB,.734E-03_JPRB,.802E-03_JPRB,.880E-03_JPRB,.102E-02_JPRB,.130E-02_JPRB,.140E-02_JPRB,&
+&.149E-02_JPRB,.117E-02_JPRB,.100E-02_JPRB,.819E-03_JPRB,.710E-03_JPRB,.707E-03_JPRB,.711E-03_JPRB,&
+&.715E-03_JPRB,.694E-03_JPRB,.674E-03_JPRB,.645E-03_JPRB,.627E-03_JPRB,.613E-03_JPRB,.597E-03_JPRB,&
+&.598E-03_JPRB,.603E-03_JPRB,.621E-03_JPRB,.601E-03_JPRB,.580E-03_JPRB,.538E-03_JPRB,.575E-03_JPRB,&
+&.593E-03_JPRB,.611E-03_JPRB,.648E-03_JPRB,.644E-03_JPRB,.626E-03_JPRB,.503E-03_JPRB,.467E-03_JPRB,&
+&.439E-03_JPRB,.410E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 18  22.0
+ZAER (:,18, 3) = (/&
+&.420E-03_JPRB,.419E-03_JPRB,.385E-03_JPRB,.363E-03_JPRB,.345E-03_JPRB,.331E-03_JPRB,.325E-03_JPRB,&
+&.321E-03_JPRB,.321E-03_JPRB,.318E-03_JPRB,.313E-03_JPRB,.301E-03_JPRB,.287E-03_JPRB,.283E-03_JPRB,&
+&.285E-03_JPRB,.291E-03_JPRB,.293E-03_JPRB,.294E-03_JPRB,.336E-03_JPRB,.388E-03_JPRB,.456E-03_JPRB,&
+&.772E-03_JPRB,.901E-03_JPRB,.102E-02_JPRB,.174E-02_JPRB,.241E-02_JPRB,.301E-02_JPRB,.272E-02_JPRB,&
+&.219E-02_JPRB,.173E-02_JPRB,.121E-02_JPRB,.111E-02_JPRB,.103E-02_JPRB,.960E-03_JPRB,.932E-03_JPRB,&
+&.925E-03_JPRB,.943E-03_JPRB,.103E-02_JPRB,.110E-02_JPRB,.122E-02_JPRB,.147E-02_JPRB,.156E-02_JPRB,&
+&.164E-02_JPRB,.134E-02_JPRB,.116E-02_JPRB,.968E-03_JPRB,.849E-03_JPRB,.848E-03_JPRB,.853E-03_JPRB,&
+&.852E-03_JPRB,.825E-03_JPRB,.799E-03_JPRB,.761E-03_JPRB,.737E-03_JPRB,.717E-03_JPRB,.694E-03_JPRB,&
+&.685E-03_JPRB,.678E-03_JPRB,.668E-03_JPRB,.641E-03_JPRB,.619E-03_JPRB,.587E-03_JPRB,.597E-03_JPRB,&
+&.604E-03_JPRB,.614E-03_JPRB,.612E-03_JPRB,.600E-03_JPRB,.581E-03_JPRB,.505E-03_JPRB,.477E-03_JPRB,&
+&.450E-03_JPRB,.421E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 19  18.0
+ZAER (:,19, 3) = (/&
+&.427E-03_JPRB,.426E-03_JPRB,.394E-03_JPRB,.373E-03_JPRB,.354E-03_JPRB,.332E-03_JPRB,.324E-03_JPRB,&
+&.320E-03_JPRB,.327E-03_JPRB,.331E-03_JPRB,.332E-03_JPRB,.329E-03_JPRB,.319E-03_JPRB,.318E-03_JPRB,&
+&.324E-03_JPRB,.337E-03_JPRB,.349E-03_JPRB,.368E-03_JPRB,.456E-03_JPRB,.528E-03_JPRB,.617E-03_JPRB,&
+&.738E-03_JPRB,.792E-03_JPRB,.844E-03_JPRB,.131E-02_JPRB,.181E-02_JPRB,.227E-02_JPRB,.221E-02_JPRB,&
+&.190E-02_JPRB,.163E-02_JPRB,.123E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.112E-02_JPRB,&
+&.116E-02_JPRB,.123E-02_JPRB,.130E-02_JPRB,.136E-02_JPRB,.144E-02_JPRB,.158E-02_JPRB,.165E-02_JPRB,&
+&.171E-02_JPRB,.152E-02_JPRB,.136E-02_JPRB,.117E-02_JPRB,.101E-02_JPRB,.982E-03_JPRB,.965E-03_JPRB,&
+&.945E-03_JPRB,.906E-03_JPRB,.868E-03_JPRB,.812E-03_JPRB,.794E-03_JPRB,.782E-03_JPRB,.775E-03_JPRB,&
+&.768E-03_JPRB,.761E-03_JPRB,.745E-03_JPRB,.710E-03_JPRB,.688E-03_JPRB,.660E-03_JPRB,.633E-03_JPRB,&
+&.622E-03_JPRB,.614E-03_JPRB,.581E-03_JPRB,.565E-03_JPRB,.547E-03_JPRB,.500E-03_JPRB,.477E-03_JPRB,&
+&.455E-03_JPRB,.428E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 20  14.0
+ZAER (:,20, 3) = (/&
+&.420E-03_JPRB,.420E-03_JPRB,.400E-03_JPRB,.388E-03_JPRB,.376E-03_JPRB,.349E-03_JPRB,.343E-03_JPRB,&
+&.342E-03_JPRB,.356E-03_JPRB,.360E-03_JPRB,.362E-03_JPRB,.365E-03_JPRB,.371E-03_JPRB,.380E-03_JPRB,&
+&.400E-03_JPRB,.425E-03_JPRB,.454E-03_JPRB,.500E-03_JPRB,.630E-03_JPRB,.715E-03_JPRB,.811E-03_JPRB,&
+&.830E-03_JPRB,.849E-03_JPRB,.870E-03_JPRB,.122E-02_JPRB,.148E-02_JPRB,.172E-02_JPRB,.175E-02_JPRB,&
+&.163E-02_JPRB,.152E-02_JPRB,.131E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.131E-02_JPRB,.141E-02_JPRB,&
+&.148E-02_JPRB,.157E-02_JPRB,.164E-02_JPRB,.168E-02_JPRB,.172E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,&
+&.182E-02_JPRB,.173E-02_JPRB,.159E-02_JPRB,.141E-02_JPRB,.117E-02_JPRB,.111E-02_JPRB,.106E-02_JPRB,&
+&.100E-02_JPRB,.930E-03_JPRB,.864E-03_JPRB,.792E-03_JPRB,.805E-03_JPRB,.821E-03_JPRB,.863E-03_JPRB,&
+&.927E-03_JPRB,.967E-03_JPRB,.100E-02_JPRB,.924E-03_JPRB,.869E-03_JPRB,.794E-03_JPRB,.696E-03_JPRB,&
+&.657E-03_JPRB,.632E-03_JPRB,.586E-03_JPRB,.562E-03_JPRB,.537E-03_JPRB,.500E-03_JPRB,.476E-03_JPRB,&
+&.451E-03_JPRB,.421E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 21  10.0
+ZAER (:,21, 3) = (/&
+&.413E-03_JPRB,.413E-03_JPRB,.417E-03_JPRB,.416E-03_JPRB,.414E-03_JPRB,.392E-03_JPRB,.395E-03_JPRB,&
+&.398E-03_JPRB,.410E-03_JPRB,.406E-03_JPRB,.407E-03_JPRB,.416E-03_JPRB,.443E-03_JPRB,.469E-03_JPRB,&
+&.513E-03_JPRB,.562E-03_JPRB,.613E-03_JPRB,.691E-03_JPRB,.848E-03_JPRB,.936E-03_JPRB,.103E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.125E-02_JPRB,.136E-02_JPRB,.146E-02_JPRB,.162E-02_JPRB,&
+&.165E-02_JPRB,.165E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.154E-02_JPRB,.168E-02_JPRB,.184E-02_JPRB,&
+&.195E-02_JPRB,.208E-02_JPRB,.222E-02_JPRB,.227E-02_JPRB,.228E-02_JPRB,.215E-02_JPRB,.210E-02_JPRB,&
+&.206E-02_JPRB,.204E-02_JPRB,.191E-02_JPRB,.175E-02_JPRB,.142E-02_JPRB,.131E-02_JPRB,.120E-02_JPRB,&
+&.106E-02_JPRB,.934E-03_JPRB,.820E-03_JPRB,.738E-03_JPRB,.792E-03_JPRB,.850E-03_JPRB,.992E-03_JPRB,&
+&.125E-02_JPRB,.141E-02_JPRB,.153E-02_JPRB,.135E-02_JPRB,.121E-02_JPRB,.982E-03_JPRB,.782E-03_JPRB,&
+&.717E-03_JPRB,.693E-03_JPRB,.641E-03_JPRB,.602E-03_JPRB,.553E-03_JPRB,.508E-03_JPRB,.475E-03_JPRB,&
+&.439E-03_JPRB,.414E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 22   6.0
+ZAER (:,22, 3) = (/&
+&.436E-03_JPRB,.437E-03_JPRB,.465E-03_JPRB,.479E-03_JPRB,.489E-03_JPRB,.479E-03_JPRB,.482E-03_JPRB,&
+&.484E-03_JPRB,.480E-03_JPRB,.469E-03_JPRB,.468E-03_JPRB,.487E-03_JPRB,.529E-03_JPRB,.570E-03_JPRB,&
+&.639E-03_JPRB,.720E-03_JPRB,.789E-03_JPRB,.887E-03_JPRB,.107E-02_JPRB,.120E-02_JPRB,.136E-02_JPRB,&
+&.148E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.169E-02_JPRB,&
+&.180E-02_JPRB,.187E-02_JPRB,.183E-02_JPRB,.192E-02_JPRB,.203E-02_JPRB,.235E-02_JPRB,.265E-02_JPRB,&
+&.284E-02_JPRB,.307E-02_JPRB,.339E-02_JPRB,.353E-02_JPRB,.364E-02_JPRB,.323E-02_JPRB,.305E-02_JPRB,&
+&.288E-02_JPRB,.273E-02_JPRB,.256E-02_JPRB,.234E-02_JPRB,.187E-02_JPRB,.165E-02_JPRB,.143E-02_JPRB,&
+&.113E-02_JPRB,.987E-03_JPRB,.856E-03_JPRB,.788E-03_JPRB,.866E-03_JPRB,.968E-03_JPRB,.130E-02_JPRB,&
+&.180E-02_JPRB,.207E-02_JPRB,.214E-02_JPRB,.186E-02_JPRB,.161E-02_JPRB,.121E-02_JPRB,.874E-03_JPRB,&
+&.770E-03_JPRB,.742E-03_JPRB,.688E-03_JPRB,.643E-03_JPRB,.584E-03_JPRB,.521E-03_JPRB,.485E-03_JPRB,&
+&.448E-03_JPRB,.436E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 23   2.0
+ZAER (:,23, 3) = (/&
+&.515E-03_JPRB,.517E-03_JPRB,.573E-03_JPRB,.599E-03_JPRB,.619E-03_JPRB,.616E-03_JPRB,.608E-03_JPRB,&
+&.597E-03_JPRB,.569E-03_JPRB,.544E-03_JPRB,.540E-03_JPRB,.564E-03_JPRB,.621E-03_JPRB,.675E-03_JPRB,&
+&.765E-03_JPRB,.874E-03_JPRB,.970E-03_JPRB,.111E-02_JPRB,.141E-02_JPRB,.168E-02_JPRB,.200E-02_JPRB,&
+&.230E-02_JPRB,.238E-02_JPRB,.244E-02_JPRB,.181E-02_JPRB,.165E-02_JPRB,.153E-02_JPRB,.184E-02_JPRB,&
+&.202E-02_JPRB,.217E-02_JPRB,.232E-02_JPRB,.266E-02_JPRB,.303E-02_JPRB,.388E-02_JPRB,.456E-02_JPRB,&
+&.487E-02_JPRB,.495E-02_JPRB,.545E-02_JPRB,.584E-02_JPRB,.642E-02_JPRB,.582E-02_JPRB,.546E-02_JPRB,&
+&.503E-02_JPRB,.417E-02_JPRB,.371E-02_JPRB,.323E-02_JPRB,.250E-02_JPRB,.215E-02_JPRB,.181E-02_JPRB,&
+&.132E-02_JPRB,.121E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.120E-02_JPRB,.135E-02_JPRB,.202E-02_JPRB,&
+&.261E-02_JPRB,.286E-02_JPRB,.267E-02_JPRB,.232E-02_JPRB,.201E-02_JPRB,.148E-02_JPRB,.104E-02_JPRB,&
+&.867E-03_JPRB,.754E-03_JPRB,.672E-03_JPRB,.629E-03_JPRB,.582E-03_JPRB,.559E-03_JPRB,.537E-03_JPRB,&
+&.510E-03_JPRB,.515E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 24  -2.0
+ZAER (:,24, 3) = (/&
+&.708E-03_JPRB,.711E-03_JPRB,.785E-03_JPRB,.803E-03_JPRB,.816E-03_JPRB,.801E-03_JPRB,.778E-03_JPRB,&
+&.751E-03_JPRB,.679E-03_JPRB,.633E-03_JPRB,.618E-03_JPRB,.639E-03_JPRB,.725E-03_JPRB,.800E-03_JPRB,&
+&.920E-03_JPRB,.108E-02_JPRB,.127E-02_JPRB,.156E-02_JPRB,.216E-02_JPRB,.262E-02_JPRB,.318E-02_JPRB,&
+&.389E-02_JPRB,.395E-02_JPRB,.397E-02_JPRB,.242E-02_JPRB,.203E-02_JPRB,.170E-02_JPRB,.207E-02_JPRB,&
+&.237E-02_JPRB,.265E-02_JPRB,.322E-02_JPRB,.422E-02_JPRB,.527E-02_JPRB,.758E-02_JPRB,.949E-02_JPRB,&
+&.101E-01_JPRB,.967E-02_JPRB,.947E-02_JPRB,.978E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,&
+&.933E-02_JPRB,.673E-02_JPRB,.554E-02_JPRB,.434E-02_JPRB,.330E-02_JPRB,.287E-02_JPRB,.246E-02_JPRB,&
+&.193E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.211E-02_JPRB,.214E-02_JPRB,.230E-02_JPRB,.328E-02_JPRB,&
+&.387E-02_JPRB,.402E-02_JPRB,.342E-02_JPRB,.298E-02_JPRB,.262E-02_JPRB,.206E-02_JPRB,.142E-02_JPRB,&
+&.112E-02_JPRB,.856E-03_JPRB,.694E-03_JPRB,.643E-03_JPRB,.607E-03_JPRB,.657E-03_JPRB,.671E-03_JPRB,&
+&.682E-03_JPRB,.708E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 25  -6.0
+ZAER (:,25, 3) = (/&
+&.104E-02_JPRB,.104E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.103E-02_JPRB,.978E-03_JPRB,&
+&.925E-03_JPRB,.814E-03_JPRB,.746E-03_JPRB,.720E-03_JPRB,.738E-03_JPRB,.854E-03_JPRB,.965E-03_JPRB,&
+&.115E-02_JPRB,.150E-02_JPRB,.184E-02_JPRB,.235E-02_JPRB,.326E-02_JPRB,.382E-02_JPRB,.445E-02_JPRB,&
+&.541E-02_JPRB,.534E-02_JPRB,.517E-02_JPRB,.278E-02_JPRB,.228E-02_JPRB,.186E-02_JPRB,.211E-02_JPRB,&
+&.247E-02_JPRB,.287E-02_JPRB,.402E-02_JPRB,.580E-02_JPRB,.763E-02_JPRB,.116E-01_JPRB,.145E-01_JPRB,&
+&.153E-01_JPRB,.142E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.135E-01_JPRB,&
+&.120E-01_JPRB,.833E-02_JPRB,.661E-02_JPRB,.488E-02_JPRB,.376E-02_JPRB,.343E-02_JPRB,.314E-02_JPRB,&
+&.293E-02_JPRB,.310E-02_JPRB,.327E-02_JPRB,.354E-02_JPRB,.350E-02_JPRB,.364E-02_JPRB,.476E-02_JPRB,&
+&.553E-02_JPRB,.570E-02_JPRB,.473E-02_JPRB,.405E-02_JPRB,.353E-02_JPRB,.279E-02_JPRB,.190E-02_JPRB,&
+&.146E-02_JPRB,.103E-02_JPRB,.848E-03_JPRB,.812E-03_JPRB,.809E-03_JPRB,.880E-03_JPRB,.924E-03_JPRB,&
+&.972E-03_JPRB,.104E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 26 -10.0
+ZAER (:,26, 3) = (/&
+&.144E-02_JPRB,.144E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.140E-02_JPRB,.129E-02_JPRB,&
+&.119E-02_JPRB,.103E-02_JPRB,.933E-03_JPRB,.891E-03_JPRB,.893E-03_JPRB,.100E-02_JPRB,.115E-02_JPRB,&
+&.144E-02_JPRB,.216E-02_JPRB,.282E-02_JPRB,.377E-02_JPRB,.501E-02_JPRB,.524E-02_JPRB,.530E-02_JPRB,&
+&.554E-02_JPRB,.530E-02_JPRB,.499E-02_JPRB,.277E-02_JPRB,.234E-02_JPRB,.196E-02_JPRB,.205E-02_JPRB,&
+&.237E-02_JPRB,.276E-02_JPRB,.396E-02_JPRB,.618E-02_JPRB,.843E-02_JPRB,.132E-01_JPRB,.149E-01_JPRB,&
+&.152E-01_JPRB,.140E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,&
+&.116E-01_JPRB,.822E-02_JPRB,.651E-02_JPRB,.470E-02_JPRB,.386E-02_JPRB,.378E-02_JPRB,.374E-02_JPRB,&
+&.406E-02_JPRB,.451E-02_JPRB,.492E-02_JPRB,.530E-02_JPRB,.516E-02_JPRB,.530E-02_JPRB,.682E-02_JPRB,&
+&.810E-02_JPRB,.841E-02_JPRB,.696E-02_JPRB,.562E-02_JPRB,.470E-02_JPRB,.349E-02_JPRB,.241E-02_JPRB,&
+&.186E-02_JPRB,.132E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.128E-02_JPRB,.132E-02_JPRB,&
+&.136E-02_JPRB,.144E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 27 -14.0
+ZAER (:,27, 3) = (/&
+&.178E-02_JPRB,.178E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.185E-02_JPRB,.171E-02_JPRB,&
+&.158E-02_JPRB,.134E-02_JPRB,.120E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.117E-02_JPRB,.132E-02_JPRB,&
+&.164E-02_JPRB,.294E-02_JPRB,.431E-02_JPRB,.640E-02_JPRB,.769E-02_JPRB,.705E-02_JPRB,.579E-02_JPRB,&
+&.475E-02_JPRB,.439E-02_JPRB,.405E-02_JPRB,.263E-02_JPRB,.232E-02_JPRB,.206E-02_JPRB,.212E-02_JPRB,&
+&.231E-02_JPRB,.253E-02_JPRB,.328E-02_JPRB,.504E-02_JPRB,.697E-02_JPRB,.115E-01_JPRB,.118E-01_JPRB,&
+&.116E-01_JPRB,.102E-01_JPRB,.977E-02_JPRB,.957E-02_JPRB,.941E-02_JPRB,.937E-02_JPRB,.911E-02_JPRB,&
+&.867E-02_JPRB,.668E-02_JPRB,.547E-02_JPRB,.413E-02_JPRB,.366E-02_JPRB,.381E-02_JPRB,.401E-02_JPRB,&
+&.509E-02_JPRB,.578E-02_JPRB,.642E-02_JPRB,.719E-02_JPRB,.714E-02_JPRB,.737E-02_JPRB,.909E-02_JPRB,&
+&.107E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,.781E-02_JPRB,.629E-02_JPRB,.447E-02_JPRB,.324E-02_JPRB,&
+&.260E-02_JPRB,.195E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.171E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.176E-02_JPRB,.178E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 28 -18.0
+ZAER (:,28, 3) = (/&
+&.208E-02_JPRB,.208E-02_JPRB,.225E-02_JPRB,.232E-02_JPRB,.236E-02_JPRB,.228E-02_JPRB,.210E-02_JPRB,&
+&.193E-02_JPRB,.162E-02_JPRB,.146E-02_JPRB,.137E-02_JPRB,.133E-02_JPRB,.140E-02_JPRB,.154E-02_JPRB,&
+&.184E-02_JPRB,.341E-02_JPRB,.513E-02_JPRB,.779E-02_JPRB,.920E-02_JPRB,.814E-02_JPRB,.622E-02_JPRB,&
+&.430E-02_JPRB,.382E-02_JPRB,.344E-02_JPRB,.260E-02_JPRB,.237E-02_JPRB,.217E-02_JPRB,.216E-02_JPRB,&
+&.226E-02_JPRB,.237E-02_JPRB,.263E-02_JPRB,.349E-02_JPRB,.468E-02_JPRB,.802E-02_JPRB,.822E-02_JPRB,&
+&.794E-02_JPRB,.676E-02_JPRB,.630E-02_JPRB,.598E-02_JPRB,.556E-02_JPRB,.545E-02_JPRB,.549E-02_JPRB,&
+&.560E-02_JPRB,.485E-02_JPRB,.427E-02_JPRB,.361E-02_JPRB,.347E-02_JPRB,.371E-02_JPRB,.399E-02_JPRB,&
+&.565E-02_JPRB,.655E-02_JPRB,.741E-02_JPRB,.876E-02_JPRB,.886E-02_JPRB,.904E-02_JPRB,.980E-02_JPRB,&
+&.122E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.107E-01_JPRB,.859E-02_JPRB,.605E-02_JPRB,.477E-02_JPRB,&
+&.406E-02_JPRB,.330E-02_JPRB,.264E-02_JPRB,.248E-02_JPRB,.239E-02_JPRB,.232E-02_JPRB,.225E-02_JPRB,&
+&.217E-02_JPRB,.208E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 29 -22.0
+ZAER (:,29, 3) = (/&
+&.247E-02_JPRB,.247E-02_JPRB,.261E-02_JPRB,.266E-02_JPRB,.269E-02_JPRB,.257E-02_JPRB,.237E-02_JPRB,&
+&.219E-02_JPRB,.185E-02_JPRB,.167E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.174E-02_JPRB,.188E-02_JPRB,&
+&.208E-02_JPRB,.319E-02_JPRB,.450E-02_JPRB,.655E-02_JPRB,.809E-02_JPRB,.740E-02_JPRB,.601E-02_JPRB,&
+&.419E-02_JPRB,.368E-02_JPRB,.323E-02_JPRB,.263E-02_JPRB,.242E-02_JPRB,.223E-02_JPRB,.213E-02_JPRB,&
+&.218E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,.247E-02_JPRB,.295E-02_JPRB,.459E-02_JPRB,.494E-02_JPRB,&
+&.498E-02_JPRB,.460E-02_JPRB,.422E-02_JPRB,.395E-02_JPRB,.361E-02_JPRB,.363E-02_JPRB,.374E-02_JPRB,&
+&.394E-02_JPRB,.378E-02_JPRB,.361E-02_JPRB,.340E-02_JPRB,.348E-02_JPRB,.367E-02_JPRB,.388E-02_JPRB,&
+&.547E-02_JPRB,.638E-02_JPRB,.724E-02_JPRB,.839E-02_JPRB,.828E-02_JPRB,.825E-02_JPRB,.857E-02_JPRB,&
+&.127E-01_JPRB,.155E-01_JPRB,.186E-01_JPRB,.146E-01_JPRB,.119E-01_JPRB,.827E-02_JPRB,.682E-02_JPRB,&
+&.599E-02_JPRB,.503E-02_JPRB,.410E-02_JPRB,.372E-02_JPRB,.337E-02_JPRB,.300E-02_JPRB,.281E-02_JPRB,&
+&.261E-02_JPRB,.247E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 30 -26.0
+ZAER (:,30, 3) = (/&
+&.305E-02_JPRB,.304E-02_JPRB,.302E-02_JPRB,.297E-02_JPRB,.291E-02_JPRB,.268E-02_JPRB,.250E-02_JPRB,&
+&.233E-02_JPRB,.201E-02_JPRB,.184E-02_JPRB,.179E-02_JPRB,.190E-02_JPRB,.217E-02_JPRB,.230E-02_JPRB,&
+&.240E-02_JPRB,.281E-02_JPRB,.350E-02_JPRB,.465E-02_JPRB,.602E-02_JPRB,.585E-02_JPRB,.529E-02_JPRB,&
+&.410E-02_JPRB,.364E-02_JPRB,.320E-02_JPRB,.264E-02_JPRB,.246E-02_JPRB,.228E-02_JPRB,.210E-02_JPRB,&
+&.209E-02_JPRB,.208E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.216E-02_JPRB,.268E-02_JPRB,.295E-02_JPRB,&
+&.313E-02_JPRB,.331E-02_JPRB,.322E-02_JPRB,.319E-02_JPRB,.318E-02_JPRB,.336E-02_JPRB,.351E-02_JPRB,&
+&.372E-02_JPRB,.371E-02_JPRB,.368E-02_JPRB,.364E-02_JPRB,.382E-02_JPRB,.395E-02_JPRB,.409E-02_JPRB,&
+&.503E-02_JPRB,.553E-02_JPRB,.597E-02_JPRB,.618E-02_JPRB,.585E-02_JPRB,.576E-02_JPRB,.663E-02_JPRB,&
+&.125E-01_JPRB,.170E-01_JPRB,.233E-01_JPRB,.192E-01_JPRB,.159E-01_JPRB,.109E-01_JPRB,.878E-02_JPRB,&
+&.762E-02_JPRB,.633E-02_JPRB,.528E-02_JPRB,.481E-02_JPRB,.434E-02_JPRB,.375E-02_JPRB,.348E-02_JPRB,&
+&.320E-02_JPRB,.305E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 31 -30.0
+ZAER (:,31, 3) = (/&
+&.358E-02_JPRB,.357E-02_JPRB,.332E-02_JPRB,.314E-02_JPRB,.297E-02_JPRB,.264E-02_JPRB,.249E-02_JPRB,&
+&.235E-02_JPRB,.208E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,.222E-02_JPRB,.250E-02_JPRB,.259E-02_JPRB,&
+&.257E-02_JPRB,.261E-02_JPRB,.297E-02_JPRB,.366E-02_JPRB,.473E-02_JPRB,.484E-02_JPRB,.476E-02_JPRB,&
+&.405E-02_JPRB,.361E-02_JPRB,.316E-02_JPRB,.255E-02_JPRB,.241E-02_JPRB,.227E-02_JPRB,.208E-02_JPRB,&
+&.202E-02_JPRB,.198E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,.207E-02_JPRB,.225E-02_JPRB,&
+&.244E-02_JPRB,.278E-02_JPRB,.305E-02_JPRB,.330E-02_JPRB,.371E-02_JPRB,.408E-02_JPRB,.432E-02_JPRB,&
+&.462E-02_JPRB,.459E-02_JPRB,.463E-02_JPRB,.468E-02_JPRB,.490E-02_JPRB,.498E-02_JPRB,.505E-02_JPRB,&
+&.507E-02_JPRB,.486E-02_JPRB,.464E-02_JPRB,.400E-02_JPRB,.369E-02_JPRB,.370E-02_JPRB,.510E-02_JPRB,&
+&.116E-01_JPRB,.170E-01_JPRB,.260E-01_JPRB,.223E-01_JPRB,.188E-01_JPRB,.128E-01_JPRB,.995E-02_JPRB,&
+&.838E-02_JPRB,.666E-02_JPRB,.563E-02_JPRB,.521E-02_JPRB,.482E-02_JPRB,.430E-02_JPRB,.405E-02_JPRB,&
+&.379E-02_JPRB,.359E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 32 -34.0
+ZAER (:,32, 3) = (/&
+&.365E-02_JPRB,.364E-02_JPRB,.327E-02_JPRB,.305E-02_JPRB,.284E-02_JPRB,.250E-02_JPRB,.236E-02_JPRB,&
+&.225E-02_JPRB,.207E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.246E-02_JPRB,.258E-02_JPRB,.257E-02_JPRB,&
+&.243E-02_JPRB,.244E-02_JPRB,.275E-02_JPRB,.336E-02_JPRB,.435E-02_JPRB,.460E-02_JPRB,.474E-02_JPRB,&
+&.414E-02_JPRB,.363E-02_JPRB,.309E-02_JPRB,.234E-02_JPRB,.222E-02_JPRB,.210E-02_JPRB,.197E-02_JPRB,&
+&.191E-02_JPRB,.186E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.181E-02_JPRB,.196E-02_JPRB,.226E-02_JPRB,&
+&.257E-02_JPRB,.317E-02_JPRB,.393E-02_JPRB,.455E-02_JPRB,.547E-02_JPRB,.623E-02_JPRB,.652E-02_JPRB,&
+&.676E-02_JPRB,.646E-02_JPRB,.651E-02_JPRB,.662E-02_JPRB,.670E-02_JPRB,.661E-02_JPRB,.651E-02_JPRB,&
+&.580E-02_JPRB,.502E-02_JPRB,.428E-02_JPRB,.321E-02_JPRB,.303E-02_JPRB,.312E-02_JPRB,.444E-02_JPRB,&
+&.101E-01_JPRB,.152E-01_JPRB,.247E-01_JPRB,.222E-01_JPRB,.193E-01_JPRB,.136E-01_JPRB,.100E-01_JPRB,&
+&.808E-02_JPRB,.604E-02_JPRB,.515E-02_JPRB,.483E-02_JPRB,.455E-02_JPRB,.425E-02_JPRB,.408E-02_JPRB,&
+&.390E-02_JPRB,.366E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 33 -38.0
+ZAER (:,33, 3) = (/&
+&.319E-02_JPRB,.318E-02_JPRB,.293E-02_JPRB,.276E-02_JPRB,.260E-02_JPRB,.234E-02_JPRB,.221E-02_JPRB,&
+&.212E-02_JPRB,.204E-02_JPRB,.214E-02_JPRB,.227E-02_JPRB,.256E-02_JPRB,.251E-02_JPRB,.239E-02_JPRB,&
+&.212E-02_JPRB,.219E-02_JPRB,.252E-02_JPRB,.313E-02_JPRB,.420E-02_JPRB,.453E-02_JPRB,.479E-02_JPRB,&
+&.419E-02_JPRB,.359E-02_JPRB,.293E-02_JPRB,.209E-02_JPRB,.196E-02_JPRB,.185E-02_JPRB,.180E-02_JPRB,&
+&.175E-02_JPRB,.170E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,.176E-02_JPRB,.203E-02_JPRB,.264E-02_JPRB,&
+&.327E-02_JPRB,.447E-02_JPRB,.615E-02_JPRB,.747E-02_JPRB,.940E-02_JPRB,.106E-01_JPRB,.108E-01_JPRB,&
+&.105E-01_JPRB,.955E-02_JPRB,.926E-02_JPRB,.904E-02_JPRB,.843E-02_JPRB,.808E-02_JPRB,.773E-02_JPRB,&
+&.686E-02_JPRB,.595E-02_JPRB,.509E-02_JPRB,.391E-02_JPRB,.376E-02_JPRB,.378E-02_JPRB,.456E-02_JPRB,&
+&.850E-02_JPRB,.123E-01_JPRB,.196E-01_JPRB,.189E-01_JPRB,.172E-01_JPRB,.130E-01_JPRB,.904E-02_JPRB,&
+&.702E-02_JPRB,.499E-02_JPRB,.426E-02_JPRB,.400E-02_JPRB,.380E-02_JPRB,.360E-02_JPRB,.349E-02_JPRB,&
+&.338E-02_JPRB,.319E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 34 -42.0
+ZAER (:,34, 3) = (/&
+&.256E-02_JPRB,.256E-02_JPRB,.253E-02_JPRB,.247E-02_JPRB,.240E-02_JPRB,.224E-02_JPRB,.214E-02_JPRB,&
+&.207E-02_JPRB,.208E-02_JPRB,.223E-02_JPRB,.235E-02_JPRB,.254E-02_JPRB,.238E-02_JPRB,.222E-02_JPRB,&
+&.195E-02_JPRB,.204E-02_JPRB,.232E-02_JPRB,.282E-02_JPRB,.379E-02_JPRB,.409E-02_JPRB,.432E-02_JPRB,&
+&.380E-02_JPRB,.325E-02_JPRB,.265E-02_JPRB,.189E-02_JPRB,.179E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,&
+&.163E-02_JPRB,.160E-02_JPRB,.155E-02_JPRB,.165E-02_JPRB,.182E-02_JPRB,.233E-02_JPRB,.353E-02_JPRB,&
+&.473E-02_JPRB,.702E-02_JPRB,.106E-01_JPRB,.134E-01_JPRB,.175E-01_JPRB,.183E-01_JPRB,.177E-01_JPRB,&
+&.163E-01_JPRB,.143E-01_JPRB,.131E-01_JPRB,.118E-01_JPRB,.968E-02_JPRB,.899E-02_JPRB,.837E-02_JPRB,&
+&.783E-02_JPRB,.717E-02_JPRB,.654E-02_JPRB,.548E-02_JPRB,.519E-02_JPRB,.501E-02_JPRB,.511E-02_JPRB,&
+&.731E-02_JPRB,.937E-02_JPRB,.133E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,.107E-01_JPRB,.738E-02_JPRB,&
+&.572E-02_JPRB,.410E-02_JPRB,.344E-02_JPRB,.321E-02_JPRB,.303E-02_JPRB,.283E-02_JPRB,.274E-02_JPRB,&
+&.264E-02_JPRB,.257E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 35 -46.0
+ZAER (:,35, 3) = (/&
+&.211E-02_JPRB,.211E-02_JPRB,.222E-02_JPRB,.225E-02_JPRB,.226E-02_JPRB,.217E-02_JPRB,.211E-02_JPRB,&
+&.208E-02_JPRB,.213E-02_JPRB,.224E-02_JPRB,.231E-02_JPRB,.239E-02_JPRB,.223E-02_JPRB,.211E-02_JPRB,&
+&.192E-02_JPRB,.202E-02_JPRB,.220E-02_JPRB,.253E-02_JPRB,.306E-02_JPRB,.320E-02_JPRB,.328E-02_JPRB,&
+&.291E-02_JPRB,.259E-02_JPRB,.224E-02_JPRB,.180E-02_JPRB,.174E-02_JPRB,.170E-02_JPRB,.169E-02_JPRB,&
+&.166E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.183E-02_JPRB,.212E-02_JPRB,.302E-02_JPRB,.527E-02_JPRB,&
+&.750E-02_JPRB,.117E-01_JPRB,.188E-01_JPRB,.239E-01_JPRB,.310E-01_JPRB,.298E-01_JPRB,.276E-01_JPRB,&
+&.241E-01_JPRB,.206E-01_JPRB,.180E-01_JPRB,.150E-01_JPRB,.110E-01_JPRB,.986E-02_JPRB,.883E-02_JPRB,&
+&.845E-02_JPRB,.818E-02_JPRB,.788E-02_JPRB,.705E-02_JPRB,.654E-02_JPRB,.614E-02_JPRB,.576E-02_JPRB,&
+&.659E-02_JPRB,.733E-02_JPRB,.865E-02_JPRB,.884E-02_JPRB,.851E-02_JPRB,.737E-02_JPRB,.545E-02_JPRB,&
+&.444E-02_JPRB,.338E-02_JPRB,.285E-02_JPRB,.266E-02_JPRB,.250E-02_JPRB,.229E-02_JPRB,.220E-02_JPRB,&
+&.210E-02_JPRB,.211E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 36 -50.0
+ZAER (:,36, 3) = (/&
+&.178E-02_JPRB,.179E-02_JPRB,.197E-02_JPRB,.204E-02_JPRB,.209E-02_JPRB,.207E-02_JPRB,.205E-02_JPRB,&
+&.203E-02_JPRB,.205E-02_JPRB,.210E-02_JPRB,.212E-02_JPRB,.208E-02_JPRB,.196E-02_JPRB,.190E-02_JPRB,&
+&.184E-02_JPRB,.196E-02_JPRB,.208E-02_JPRB,.227E-02_JPRB,.235E-02_JPRB,.231E-02_JPRB,.224E-02_JPRB,&
+&.203E-02_JPRB,.193E-02_JPRB,.184E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,.183E-02_JPRB,&
+&.187E-02_JPRB,.192E-02_JPRB,.208E-02_JPRB,.227E-02_JPRB,.264E-02_JPRB,.390E-02_JPRB,.729E-02_JPRB,&
+&.107E-01_JPRB,.170E-01_JPRB,.278E-01_JPRB,.347E-01_JPRB,.432E-01_JPRB,.401E-01_JPRB,.368E-01_JPRB,&
+&.322E-01_JPRB,.268E-01_JPRB,.228E-01_JPRB,.183E-01_JPRB,.128E-01_JPRB,.111E-01_JPRB,.959E-02_JPRB,&
+&.864E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,.823E-02_JPRB,.753E-02_JPRB,.694E-02_JPRB,.611E-02_JPRB,&
+&.600E-02_JPRB,.588E-02_JPRB,.560E-02_JPRB,.522E-02_JPRB,.491E-02_JPRB,.440E-02_JPRB,.369E-02_JPRB,&
+&.327E-02_JPRB,.276E-02_JPRB,.242E-02_JPRB,.228E-02_JPRB,.214E-02_JPRB,.190E-02_JPRB,.181E-02_JPRB,&
+&.173E-02_JPRB,.178E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 37 -54.0
+ZAER (:,37, 3) = (/&
+&.164E-02_JPRB,.165E-02_JPRB,.183E-02_JPRB,.190E-02_JPRB,.196E-02_JPRB,.194E-02_JPRB,.188E-02_JPRB,&
+&.184E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.168E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,&
+&.159E-02_JPRB,.172E-02_JPRB,.180E-02_JPRB,.192E-02_JPRB,.186E-02_JPRB,.181E-02_JPRB,.174E-02_JPRB,&
+&.168E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.174E-02_JPRB,.179E-02_JPRB,.183E-02_JPRB,.195E-02_JPRB,&
+&.210E-02_JPRB,.224E-02_JPRB,.256E-02_JPRB,.280E-02_JPRB,.319E-02_JPRB,.439E-02_JPRB,.779E-02_JPRB,&
+&.112E-01_JPRB,.177E-01_JPRB,.275E-01_JPRB,.333E-01_JPRB,.400E-01_JPRB,.400E-01_JPRB,.385E-01_JPRB,&
+&.358E-01_JPRB,.298E-01_JPRB,.254E-01_JPRB,.205E-01_JPRB,.144E-01_JPRB,.122E-01_JPRB,.102E-01_JPRB,&
+&.840E-02_JPRB,.833E-02_JPRB,.828E-02_JPRB,.832E-02_JPRB,.775E-02_JPRB,.719E-02_JPRB,.595E-02_JPRB,&
+&.533E-02_JPRB,.486E-02_JPRB,.421E-02_JPRB,.368E-02_JPRB,.334E-02_JPRB,.292E-02_JPRB,.261E-02_JPRB,&
+&.244E-02_JPRB,.224E-02_JPRB,.207E-02_JPRB,.196E-02_JPRB,.183E-02_JPRB,.163E-02_JPRB,.157E-02_JPRB,&
+&.153E-02_JPRB,.164E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 38 -58.0
+ZAER (:,38, 3) = (/&
+&.163E-02_JPRB,.163E-02_JPRB,.176E-02_JPRB,.180E-02_JPRB,.183E-02_JPRB,.176E-02_JPRB,.166E-02_JPRB,&
+&.158E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,.140E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.143E-02_JPRB,.148E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,&
+&.160E-02_JPRB,.165E-02_JPRB,.171E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,.191E-02_JPRB,&
+&.210E-02_JPRB,.229E-02_JPRB,.275E-02_JPRB,.312E-02_JPRB,.351E-02_JPRB,.441E-02_JPRB,.666E-02_JPRB,&
+&.898E-02_JPRB,.134E-01_JPRB,.189E-01_JPRB,.224E-01_JPRB,.266E-01_JPRB,.289E-01_JPRB,.295E-01_JPRB,&
+&.297E-01_JPRB,.263E-01_JPRB,.230E-01_JPRB,.191E-01_JPRB,.136E-01_JPRB,.117E-01_JPRB,.980E-02_JPRB,&
+&.772E-02_JPRB,.736E-02_JPRB,.705E-02_JPRB,.696E-02_JPRB,.661E-02_JPRB,.624E-02_JPRB,.531E-02_JPRB,&
+&.476E-02_JPRB,.436E-02_JPRB,.386E-02_JPRB,.341E-02_JPRB,.307E-02_JPRB,.261E-02_JPRB,.231E-02_JPRB,&
+&.216E-02_JPRB,.202E-02_JPRB,.184E-02_JPRB,.174E-02_JPRB,.162E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.162E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 39 -62.0
+ZAER (:,39, 3) = (/&
+&.162E-02_JPRB,.163E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.157E-02_JPRB,.148E-02_JPRB,&
+&.142E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,&
+&.130E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.139E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,.153E-02_JPRB,&
+&.161E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.160E-02_JPRB,.166E-02_JPRB,&
+&.183E-02_JPRB,.200E-02_JPRB,.245E-02_JPRB,.286E-02_JPRB,.323E-02_JPRB,.393E-02_JPRB,.515E-02_JPRB,&
+&.642E-02_JPRB,.886E-02_JPRB,.119E-01_JPRB,.138E-01_JPRB,.161E-01_JPRB,.180E-01_JPRB,.186E-01_JPRB,&
+&.190E-01_JPRB,.178E-01_JPRB,.164E-01_JPRB,.146E-01_JPRB,.115E-01_JPRB,.101E-01_JPRB,.874E-02_JPRB,&
+&.692E-02_JPRB,.637E-02_JPRB,.587E-02_JPRB,.541E-02_JPRB,.516E-02_JPRB,.493E-02_JPRB,.450E-02_JPRB,&
+&.420E-02_JPRB,.398E-02_JPRB,.367E-02_JPRB,.333E-02_JPRB,.308E-02_JPRB,.271E-02_JPRB,.239E-02_JPRB,&
+&.220E-02_JPRB,.199E-02_JPRB,.178E-02_JPRB,.168E-02_JPRB,.157E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,&
+&.156E-02_JPRB,.162E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 40 -66.0
+ZAER (:,40, 3) = (/&
+&.172E-02_JPRB,.172E-02_JPRB,.166E-02_JPRB,.161E-02_JPRB,.157E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,&
+&.140E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,&
+&.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,.152E-02_JPRB,.156E-02_JPRB,&
+&.161E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,&
+&.148E-02_JPRB,.160E-02_JPRB,.194E-02_JPRB,.227E-02_JPRB,.258E-02_JPRB,.316E-02_JPRB,.400E-02_JPRB,&
+&.480E-02_JPRB,.626E-02_JPRB,.809E-02_JPRB,.930E-02_JPRB,.109E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,&
+&.132E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.999E-02_JPRB,.893E-02_JPRB,.785E-02_JPRB,&
+&.591E-02_JPRB,.525E-02_JPRB,.466E-02_JPRB,.420E-02_JPRB,.412E-02_JPRB,.406E-02_JPRB,.397E-02_JPRB,&
+&.384E-02_JPRB,.372E-02_JPRB,.350E-02_JPRB,.328E-02_JPRB,.311E-02_JPRB,.285E-02_JPRB,.257E-02_JPRB,&
+&.239E-02_JPRB,.219E-02_JPRB,.199E-02_JPRB,.190E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.174E-02_JPRB,&
+&.173E-02_JPRB,.172E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 41 -70.0
+ZAER (:,41, 3) = (/&
+&.194E-02_JPRB,.193E-02_JPRB,.183E-02_JPRB,.176E-02_JPRB,.170E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.155E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,&
+&.152E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.155E-02_JPRB,.157E-02_JPRB,.160E-02_JPRB,&
+&.161E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.149E-02_JPRB,.143E-02_JPRB,.138E-02_JPRB,.133E-02_JPRB,&
+&.138E-02_JPRB,.143E-02_JPRB,.163E-02_JPRB,.187E-02_JPRB,.209E-02_JPRB,.255E-02_JPRB,.311E-02_JPRB,&
+&.359E-02_JPRB,.443E-02_JPRB,.544E-02_JPRB,.616E-02_JPRB,.712E-02_JPRB,.810E-02_JPRB,.861E-02_JPRB,&
+&.917E-02_JPRB,.951E-02_JPRB,.947E-02_JPRB,.936E-02_JPRB,.855E-02_JPRB,.783E-02_JPRB,.708E-02_JPRB,&
+&.547E-02_JPRB,.480E-02_JPRB,.418E-02_JPRB,.365E-02_JPRB,.360E-02_JPRB,.357E-02_JPRB,.359E-02_JPRB,&
+&.357E-02_JPRB,.353E-02_JPRB,.343E-02_JPRB,.330E-02_JPRB,.320E-02_JPRB,.305E-02_JPRB,.284E-02_JPRB,&
+&.271E-02_JPRB,.256E-02_JPRB,.240E-02_JPRB,.232E-02_JPRB,.224E-02_JPRB,.213E-02_JPRB,.208E-02_JPRB,&
+&.202E-02_JPRB,.194E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 42 -74.0
+ZAER (:,42, 3) = (/&
+&.225E-02_JPRB,.225E-02_JPRB,.215E-02_JPRB,.210E-02_JPRB,.205E-02_JPRB,.197E-02_JPRB,.194E-02_JPRB,&
+&.191E-02_JPRB,.189E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.181E-02_JPRB,&
+&.177E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,&
+&.166E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,.156E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,&
+&.152E-02_JPRB,.155E-02_JPRB,.164E-02_JPRB,.177E-02_JPRB,.190E-02_JPRB,.216E-02_JPRB,.247E-02_JPRB,&
+&.272E-02_JPRB,.315E-02_JPRB,.367E-02_JPRB,.405E-02_JPRB,.460E-02_JPRB,.528E-02_JPRB,.570E-02_JPRB,&
+&.618E-02_JPRB,.668E-02_JPRB,.685E-02_JPRB,.699E-02_JPRB,.681E-02_JPRB,.650E-02_JPRB,.616E-02_JPRB,&
+&.525E-02_JPRB,.480E-02_JPRB,.438E-02_JPRB,.390E-02_JPRB,.377E-02_JPRB,.367E-02_JPRB,.357E-02_JPRB,&
+&.351E-02_JPRB,.346E-02_JPRB,.338E-02_JPRB,.328E-02_JPRB,.321E-02_JPRB,.310E-02_JPRB,.298E-02_JPRB,&
+&.291E-02_JPRB,.281E-02_JPRB,.270E-02_JPRB,.263E-02_JPRB,.256E-02_JPRB,.245E-02_JPRB,.240E-02_JPRB,&
+&.234E-02_JPRB,.225E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 43 -78.0
+ZAER (:,43, 3) = (/&
+&.259E-02_JPRB,.259E-02_JPRB,.253E-02_JPRB,.250E-02_JPRB,.247E-02_JPRB,.242E-02_JPRB,.239E-02_JPRB,&
+&.237E-02_JPRB,.233E-02_JPRB,.229E-02_JPRB,.226E-02_JPRB,.222E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,&
+&.210E-02_JPRB,.204E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.194E-02_JPRB,.192E-02_JPRB,.190E-02_JPRB,&
+&.188E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,&
+&.181E-02_JPRB,.182E-02_JPRB,.187E-02_JPRB,.193E-02_JPRB,.199E-02_JPRB,.211E-02_JPRB,.226E-02_JPRB,&
+&.239E-02_JPRB,.260E-02_JPRB,.286E-02_JPRB,.306E-02_JPRB,.335E-02_JPRB,.374E-02_JPRB,.398E-02_JPRB,&
+&.428E-02_JPRB,.464E-02_JPRB,.479E-02_JPRB,.495E-02_JPRB,.501E-02_JPRB,.494E-02_JPRB,.486E-02_JPRB,&
+&.454E-02_JPRB,.434E-02_JPRB,.416E-02_JPRB,.388E-02_JPRB,.375E-02_JPRB,.364E-02_JPRB,.350E-02_JPRB,&
+&.342E-02_JPRB,.336E-02_JPRB,.327E-02_JPRB,.320E-02_JPRB,.315E-02_JPRB,.308E-02_JPRB,.302E-02_JPRB,&
+&.298E-02_JPRB,.293E-02_JPRB,.287E-02_JPRB,.283E-02_JPRB,.279E-02_JPRB,.272E-02_JPRB,.269E-02_JPRB,&
+&.265E-02_JPRB,.260E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 44 -82.0
+ZAER (:,44, 3) = (/&
+&.287E-02_JPRB,.287E-02_JPRB,.284E-02_JPRB,.282E-02_JPRB,.280E-02_JPRB,.277E-02_JPRB,.275E-02_JPRB,&
+&.274E-02_JPRB,.270E-02_JPRB,.267E-02_JPRB,.264E-02_JPRB,.261E-02_JPRB,.257E-02_JPRB,.255E-02_JPRB,&
+&.252E-02_JPRB,.247E-02_JPRB,.245E-02_JPRB,.242E-02_JPRB,.239E-02_JPRB,.237E-02_JPRB,.235E-02_JPRB,&
+&.233E-02_JPRB,.232E-02_JPRB,.231E-02_JPRB,.229E-02_JPRB,.229E-02_JPRB,.229E-02_JPRB,.229E-02_JPRB,&
+&.229E-02_JPRB,.230E-02_JPRB,.231E-02_JPRB,.234E-02_JPRB,.237E-02_JPRB,.243E-02_JPRB,.249E-02_JPRB,&
+&.254E-02_JPRB,.264E-02_JPRB,.275E-02_JPRB,.283E-02_JPRB,.295E-02_JPRB,.311E-02_JPRB,.321E-02_JPRB,&
+&.333E-02_JPRB,.348E-02_JPRB,.355E-02_JPRB,.363E-02_JPRB,.370E-02_JPRB,.371E-02_JPRB,.371E-02_JPRB,&
+&.367E-02_JPRB,.362E-02_JPRB,.358E-02_JPRB,.349E-02_JPRB,.344E-02_JPRB,.339E-02_JPRB,.332E-02_JPRB,&
+&.327E-02_JPRB,.323E-02_JPRB,.318E-02_JPRB,.315E-02_JPRB,.312E-02_JPRB,.309E-02_JPRB,.306E-02_JPRB,&
+&.305E-02_JPRB,.302E-02_JPRB,.300E-02_JPRB,.298E-02_JPRB,.296E-02_JPRB,.293E-02_JPRB,.292E-02_JPRB,&
+&.290E-02_JPRB,.287E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 45 -86.0
+ZAER (:,45, 3) = (/&
+&.294E-02_JPRB,.294E-02_JPRB,.293E-02_JPRB,.292E-02_JPRB,.292E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.289E-02_JPRB,.288E-02_JPRB,.286E-02_JPRB,.285E-02_JPRB,.284E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,&
+&.280E-02_JPRB,.279E-02_JPRB,.278E-02_JPRB,.277E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,.274E-02_JPRB,&
+&.273E-02_JPRB,.272E-02_JPRB,.271E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,&
+&.271E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.273E-02_JPRB,.274E-02_JPRB,.275E-02_JPRB,.277E-02_JPRB,&
+&.279E-02_JPRB,.282E-02_JPRB,.284E-02_JPRB,.287E-02_JPRB,.290E-02_JPRB,.293E-02_JPRB,.296E-02_JPRB,&
+&.298E-02_JPRB,.302E-02_JPRB,.303E-02_JPRB,.305E-02_JPRB,.308E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,&
+&.310E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.307E-02_JPRB,&
+&.306E-02_JPRB,.305E-02_JPRB,.304E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.301E-02_JPRB,.301E-02_JPRB,&
+&.300E-02_JPRB,.299E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.297E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,&
+&.295E-02_JPRB,.294E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  3 --- lat: 46 -90.0
+ZAER (:,46, 3) = (/&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=3
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_03
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_04.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_04.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_04.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_04
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 April
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,4:4)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  4 --- lat:  1  90.0
+ZAER (:, 1, 4) = (/&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  2  86.0
+ZAER (:, 2, 4) = (/&
+&.875E-04_JPRB,.875E-04_JPRB,.879E-04_JPRB,.881E-04_JPRB,.883E-04_JPRB,.886E-04_JPRB,.888E-04_JPRB,&
+&.889E-04_JPRB,.891E-04_JPRB,.892E-04_JPRB,.893E-04_JPRB,.894E-04_JPRB,.894E-04_JPRB,.894E-04_JPRB,&
+&.895E-04_JPRB,.895E-04_JPRB,.894E-04_JPRB,.894E-04_JPRB,.894E-04_JPRB,.894E-04_JPRB,.894E-04_JPRB,&
+&.893E-04_JPRB,.892E-04_JPRB,.891E-04_JPRB,.890E-04_JPRB,.888E-04_JPRB,.887E-04_JPRB,.883E-04_JPRB,&
+&.881E-04_JPRB,.879E-04_JPRB,.875E-04_JPRB,.872E-04_JPRB,.869E-04_JPRB,.864E-04_JPRB,.860E-04_JPRB,&
+&.857E-04_JPRB,.852E-04_JPRB,.848E-04_JPRB,.845E-04_JPRB,.841E-04_JPRB,.837E-04_JPRB,.835E-04_JPRB,&
+&.832E-04_JPRB,.828E-04_JPRB,.826E-04_JPRB,.824E-04_JPRB,.822E-04_JPRB,.821E-04_JPRB,.820E-04_JPRB,&
+&.819E-04_JPRB,.818E-04_JPRB,.818E-04_JPRB,.819E-04_JPRB,.819E-04_JPRB,.820E-04_JPRB,.821E-04_JPRB,&
+&.823E-04_JPRB,.824E-04_JPRB,.827E-04_JPRB,.830E-04_JPRB,.832E-04_JPRB,.835E-04_JPRB,.839E-04_JPRB,&
+&.842E-04_JPRB,.846E-04_JPRB,.851E-04_JPRB,.854E-04_JPRB,.858E-04_JPRB,.863E-04_JPRB,.866E-04_JPRB,&
+&.870E-04_JPRB,.875E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  3  82.0
+ZAER (:, 3, 4) = (/&
+&.899E-04_JPRB,.899E-04_JPRB,.910E-04_JPRB,.914E-04_JPRB,.918E-04_JPRB,.922E-04_JPRB,.924E-04_JPRB,&
+&.926E-04_JPRB,.925E-04_JPRB,.925E-04_JPRB,.925E-04_JPRB,.924E-04_JPRB,.924E-04_JPRB,.924E-04_JPRB,&
+&.924E-04_JPRB,.924E-04_JPRB,.924E-04_JPRB,.925E-04_JPRB,.927E-04_JPRB,.928E-04_JPRB,.931E-04_JPRB,&
+&.933E-04_JPRB,.934E-04_JPRB,.935E-04_JPRB,.936E-04_JPRB,.935E-04_JPRB,.934E-04_JPRB,.929E-04_JPRB,&
+&.925E-04_JPRB,.921E-04_JPRB,.911E-04_JPRB,.901E-04_JPRB,.892E-04_JPRB,.879E-04_JPRB,.866E-04_JPRB,&
+&.857E-04_JPRB,.843E-04_JPRB,.831E-04_JPRB,.822E-04_JPRB,.812E-04_JPRB,.801E-04_JPRB,.795E-04_JPRB,&
+&.789E-04_JPRB,.781E-04_JPRB,.778E-04_JPRB,.775E-04_JPRB,.771E-04_JPRB,.769E-04_JPRB,.768E-04_JPRB,&
+&.766E-04_JPRB,.765E-04_JPRB,.764E-04_JPRB,.764E-04_JPRB,.763E-04_JPRB,.762E-04_JPRB,.763E-04_JPRB,&
+&.765E-04_JPRB,.767E-04_JPRB,.770E-04_JPRB,.775E-04_JPRB,.780E-04_JPRB,.788E-04_JPRB,.798E-04_JPRB,&
+&.806E-04_JPRB,.816E-04_JPRB,.831E-04_JPRB,.840E-04_JPRB,.851E-04_JPRB,.867E-04_JPRB,.876E-04_JPRB,&
+&.885E-04_JPRB,.898E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  4  78.0
+ZAER (:, 4, 4) = (/&
+&.925E-04_JPRB,.925E-04_JPRB,.942E-04_JPRB,.947E-04_JPRB,.952E-04_JPRB,.954E-04_JPRB,.952E-04_JPRB,&
+&.950E-04_JPRB,.943E-04_JPRB,.937E-04_JPRB,.933E-04_JPRB,.927E-04_JPRB,.923E-04_JPRB,.922E-04_JPRB,&
+&.921E-04_JPRB,.922E-04_JPRB,.924E-04_JPRB,.928E-04_JPRB,.934E-04_JPRB,.939E-04_JPRB,.946E-04_JPRB,&
+&.959E-04_JPRB,.967E-04_JPRB,.975E-04_JPRB,.988E-04_JPRB,.993E-04_JPRB,.998E-04_JPRB,.100E-03_JPRB,&
+&.995E-04_JPRB,.990E-04_JPRB,.975E-04_JPRB,.957E-04_JPRB,.942E-04_JPRB,.917E-04_JPRB,.892E-04_JPRB,&
+&.874E-04_JPRB,.849E-04_JPRB,.827E-04_JPRB,.813E-04_JPRB,.796E-04_JPRB,.781E-04_JPRB,.774E-04_JPRB,&
+&.767E-04_JPRB,.761E-04_JPRB,.759E-04_JPRB,.757E-04_JPRB,.757E-04_JPRB,.757E-04_JPRB,.758E-04_JPRB,&
+&.758E-04_JPRB,.757E-04_JPRB,.755E-04_JPRB,.751E-04_JPRB,.746E-04_JPRB,.742E-04_JPRB,.735E-04_JPRB,&
+&.730E-04_JPRB,.728E-04_JPRB,.726E-04_JPRB,.729E-04_JPRB,.733E-04_JPRB,.742E-04_JPRB,.757E-04_JPRB,&
+&.769E-04_JPRB,.785E-04_JPRB,.809E-04_JPRB,.825E-04_JPRB,.844E-04_JPRB,.871E-04_JPRB,.886E-04_JPRB,&
+&.901E-04_JPRB,.924E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  5  74.0
+ZAER (:, 5, 4) = (/&
+&.950E-04_JPRB,.950E-04_JPRB,.970E-04_JPRB,.977E-04_JPRB,.982E-04_JPRB,.983E-04_JPRB,.977E-04_JPRB,&
+&.971E-04_JPRB,.958E-04_JPRB,.946E-04_JPRB,.938E-04_JPRB,.928E-04_JPRB,.923E-04_JPRB,.921E-04_JPRB,&
+&.922E-04_JPRB,.927E-04_JPRB,.932E-04_JPRB,.938E-04_JPRB,.947E-04_JPRB,.955E-04_JPRB,.964E-04_JPRB,&
+&.987E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,.105E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.110E-03_JPRB,&
+&.110E-03_JPRB,.109E-03_JPRB,.107E-03_JPRB,.105E-03_JPRB,.103E-03_JPRB,.989E-04_JPRB,.954E-04_JPRB,&
+&.928E-04_JPRB,.892E-04_JPRB,.862E-04_JPRB,.845E-04_JPRB,.825E-04_JPRB,.813E-04_JPRB,.808E-04_JPRB,&
+&.804E-04_JPRB,.805E-04_JPRB,.807E-04_JPRB,.809E-04_JPRB,.816E-04_JPRB,.821E-04_JPRB,.826E-04_JPRB,&
+&.832E-04_JPRB,.831E-04_JPRB,.830E-04_JPRB,.822E-04_JPRB,.810E-04_JPRB,.799E-04_JPRB,.779E-04_JPRB,&
+&.764E-04_JPRB,.752E-04_JPRB,.739E-04_JPRB,.735E-04_JPRB,.735E-04_JPRB,.740E-04_JPRB,.754E-04_JPRB,&
+&.767E-04_JPRB,.784E-04_JPRB,.811E-04_JPRB,.829E-04_JPRB,.852E-04_JPRB,.884E-04_JPRB,.902E-04_JPRB,&
+&.921E-04_JPRB,.949E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  6  70.0
+ZAER (:, 6, 4) = (/&
+&.983E-04_JPRB,.984E-04_JPRB,.100E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,&
+&.100E-03_JPRB,.989E-04_JPRB,.979E-04_JPRB,.972E-04_JPRB,.963E-04_JPRB,.961E-04_JPRB,.962E-04_JPRB,&
+&.969E-04_JPRB,.980E-04_JPRB,.988E-04_JPRB,.996E-04_JPRB,.100E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.104E-03_JPRB,.106E-03_JPRB,.108E-03_JPRB,.114E-03_JPRB,.116E-03_JPRB,.118E-03_JPRB,.122E-03_JPRB,&
+&.122E-03_JPRB,.122E-03_JPRB,.120E-03_JPRB,.117E-03_JPRB,.115E-03_JPRB,.110E-03_JPRB,.106E-03_JPRB,&
+&.103E-03_JPRB,.994E-04_JPRB,.964E-04_JPRB,.948E-04_JPRB,.932E-04_JPRB,.924E-04_JPRB,.922E-04_JPRB,&
+&.921E-04_JPRB,.922E-04_JPRB,.922E-04_JPRB,.923E-04_JPRB,.933E-04_JPRB,.942E-04_JPRB,.951E-04_JPRB,&
+&.967E-04_JPRB,.970E-04_JPRB,.971E-04_JPRB,.960E-04_JPRB,.943E-04_JPRB,.927E-04_JPRB,.897E-04_JPRB,&
+&.872E-04_JPRB,.854E-04_JPRB,.828E-04_JPRB,.815E-04_JPRB,.809E-04_JPRB,.807E-04_JPRB,.817E-04_JPRB,&
+&.826E-04_JPRB,.840E-04_JPRB,.861E-04_JPRB,.877E-04_JPRB,.896E-04_JPRB,.925E-04_JPRB,.941E-04_JPRB,&
+&.958E-04_JPRB,.982E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  7  66.0
+ZAER (:, 7, 4) = (/&
+&.104E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,&
+&.105E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,&
+&.106E-03_JPRB,.108E-03_JPRB,.109E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,&
+&.111E-03_JPRB,.113E-03_JPRB,.115E-03_JPRB,.123E-03_JPRB,.127E-03_JPRB,.131E-03_JPRB,.134E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.133E-03_JPRB,.130E-03_JPRB,.127E-03_JPRB,.123E-03_JPRB,.120E-03_JPRB,&
+&.118E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,&
+&.111E-03_JPRB,.109E-03_JPRB,.108E-03_JPRB,.107E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.110E-03_JPRB,&
+&.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.108E-03_JPRB,&
+&.105E-03_JPRB,.103E-03_JPRB,.998E-04_JPRB,.974E-04_JPRB,.961E-04_JPRB,.950E-04_JPRB,.951E-04_JPRB,&
+&.953E-04_JPRB,.957E-04_JPRB,.967E-04_JPRB,.975E-04_JPRB,.985E-04_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.103E-03_JPRB,.104E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  8  62.0
+ZAER (:, 8, 4) = (/&
+&.113E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,&
+&.116E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.116E-03_JPRB,.115E-03_JPRB,.116E-03_JPRB,&
+&.117E-03_JPRB,.119E-03_JPRB,.120E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,.120E-03_JPRB,&
+&.121E-03_JPRB,.123E-03_JPRB,.126E-03_JPRB,.135E-03_JPRB,.140E-03_JPRB,.144E-03_JPRB,.146E-03_JPRB,&
+&.146E-03_JPRB,.145E-03_JPRB,.143E-03_JPRB,.140E-03_JPRB,.137E-03_JPRB,.133E-03_JPRB,.131E-03_JPRB,&
+&.131E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.133E-03_JPRB,.134E-03_JPRB,.134E-03_JPRB,.133E-03_JPRB,&
+&.132E-03_JPRB,.127E-03_JPRB,.125E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.123E-03_JPRB,.125E-03_JPRB,&
+&.129E-03_JPRB,.131E-03_JPRB,.133E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.133E-03_JPRB,&
+&.131E-03_JPRB,.128E-03_JPRB,.124E-03_JPRB,.121E-03_JPRB,.119E-03_JPRB,.118E-03_JPRB,.116E-03_JPRB,&
+&.115E-03_JPRB,.114E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,&
+&.113E-03_JPRB,.113E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat:  9  58.0
+ZAER (:, 9, 4) = (/&
+&.127E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,.133E-03_JPRB,.134E-03_JPRB,&
+&.135E-03_JPRB,.136E-03_JPRB,.134E-03_JPRB,.133E-03_JPRB,.131E-03_JPRB,.128E-03_JPRB,.127E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.128E-03_JPRB,.130E-03_JPRB,.132E-03_JPRB,.134E-03_JPRB,&
+&.140E-03_JPRB,.144E-03_JPRB,.149E-03_JPRB,.160E-03_JPRB,.164E-03_JPRB,.168E-03_JPRB,.172E-03_JPRB,&
+&.171E-03_JPRB,.170E-03_JPRB,.162E-03_JPRB,.153E-03_JPRB,.147E-03_JPRB,.139E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.139E-03_JPRB,.141E-03_JPRB,.143E-03_JPRB,.147E-03_JPRB,.149E-03_JPRB,.148E-03_JPRB,&
+&.147E-03_JPRB,.142E-03_JPRB,.140E-03_JPRB,.137E-03_JPRB,.138E-03_JPRB,.139E-03_JPRB,.140E-03_JPRB,&
+&.144E-03_JPRB,.147E-03_JPRB,.150E-03_JPRB,.155E-03_JPRB,.156E-03_JPRB,.157E-03_JPRB,.158E-03_JPRB,&
+&.157E-03_JPRB,.156E-03_JPRB,.152E-03_JPRB,.148E-03_JPRB,.145E-03_JPRB,.142E-03_JPRB,.139E-03_JPRB,&
+&.137E-03_JPRB,.134E-03_JPRB,.130E-03_JPRB,.128E-03_JPRB,.126E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,&
+&.125E-03_JPRB,.127E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 10  54.0
+ZAER (:,10, 4) = (/&
+&.146E-03_JPRB,.146E-03_JPRB,.150E-03_JPRB,.154E-03_JPRB,.157E-03_JPRB,.161E-03_JPRB,.160E-03_JPRB,&
+&.158E-03_JPRB,.155E-03_JPRB,.154E-03_JPRB,.151E-03_JPRB,.147E-03_JPRB,.141E-03_JPRB,.137E-03_JPRB,&
+&.133E-03_JPRB,.131E-03_JPRB,.130E-03_JPRB,.130E-03_JPRB,.133E-03_JPRB,.136E-03_JPRB,.140E-03_JPRB,&
+&.155E-03_JPRB,.166E-03_JPRB,.177E-03_JPRB,.192E-03_JPRB,.199E-03_JPRB,.206E-03_JPRB,.214E-03_JPRB,&
+&.214E-03_JPRB,.212E-03_JPRB,.196E-03_JPRB,.179E-03_JPRB,.168E-03_JPRB,.155E-03_JPRB,.150E-03_JPRB,&
+&.147E-03_JPRB,.147E-03_JPRB,.151E-03_JPRB,.153E-03_JPRB,.157E-03_JPRB,.158E-03_JPRB,.158E-03_JPRB,&
+&.157E-03_JPRB,.154E-03_JPRB,.153E-03_JPRB,.153E-03_JPRB,.155E-03_JPRB,.155E-03_JPRB,.155E-03_JPRB,&
+&.155E-03_JPRB,.158E-03_JPRB,.161E-03_JPRB,.168E-03_JPRB,.170E-03_JPRB,.171E-03_JPRB,.171E-03_JPRB,&
+&.171E-03_JPRB,.170E-03_JPRB,.167E-03_JPRB,.164E-03_JPRB,.162E-03_JPRB,.157E-03_JPRB,.154E-03_JPRB,&
+&.151E-03_JPRB,.148E-03_JPRB,.142E-03_JPRB,.139E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,.139E-03_JPRB,&
+&.141E-03_JPRB,.146E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 11  50.0
+ZAER (:,11, 4) = (/&
+&.178E-03_JPRB,.178E-03_JPRB,.185E-03_JPRB,.189E-03_JPRB,.192E-03_JPRB,.193E-03_JPRB,.189E-03_JPRB,&
+&.185E-03_JPRB,.179E-03_JPRB,.176E-03_JPRB,.173E-03_JPRB,.166E-03_JPRB,.157E-03_JPRB,.152E-03_JPRB,&
+&.146E-03_JPRB,.141E-03_JPRB,.139E-03_JPRB,.138E-03_JPRB,.140E-03_JPRB,.143E-03_JPRB,.147E-03_JPRB,&
+&.169E-03_JPRB,.187E-03_JPRB,.206E-03_JPRB,.228E-03_JPRB,.235E-03_JPRB,.242E-03_JPRB,.250E-03_JPRB,&
+&.250E-03_JPRB,.249E-03_JPRB,.242E-03_JPRB,.222E-03_JPRB,.207E-03_JPRB,.191E-03_JPRB,.182E-03_JPRB,&
+&.178E-03_JPRB,.176E-03_JPRB,.179E-03_JPRB,.181E-03_JPRB,.182E-03_JPRB,.179E-03_JPRB,.178E-03_JPRB,&
+&.176E-03_JPRB,.176E-03_JPRB,.177E-03_JPRB,.179E-03_JPRB,.176E-03_JPRB,.175E-03_JPRB,.173E-03_JPRB,&
+&.170E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,.183E-03_JPRB,.184E-03_JPRB,.184E-03_JPRB,.183E-03_JPRB,&
+&.182E-03_JPRB,.182E-03_JPRB,.179E-03_JPRB,.174E-03_JPRB,.170E-03_JPRB,.164E-03_JPRB,.162E-03_JPRB,&
+&.161E-03_JPRB,.160E-03_JPRB,.155E-03_JPRB,.153E-03_JPRB,.151E-03_JPRB,.158E-03_JPRB,.163E-03_JPRB,&
+&.169E-03_JPRB,.177E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 12  46.0
+ZAER (:,12, 4) = (/&
+&.221E-03_JPRB,.221E-03_JPRB,.222E-03_JPRB,.225E-03_JPRB,.227E-03_JPRB,.223E-03_JPRB,.218E-03_JPRB,&
+&.213E-03_JPRB,.205E-03_JPRB,.201E-03_JPRB,.197E-03_JPRB,.188E-03_JPRB,.177E-03_JPRB,.170E-03_JPRB,&
+&.161E-03_JPRB,.156E-03_JPRB,.154E-03_JPRB,.152E-03_JPRB,.154E-03_JPRB,.158E-03_JPRB,.163E-03_JPRB,&
+&.192E-03_JPRB,.215E-03_JPRB,.241E-03_JPRB,.281E-03_JPRB,.291E-03_JPRB,.300E-03_JPRB,.296E-03_JPRB,&
+&.292E-03_JPRB,.289E-03_JPRB,.293E-03_JPRB,.277E-03_JPRB,.264E-03_JPRB,.245E-03_JPRB,.235E-03_JPRB,&
+&.229E-03_JPRB,.224E-03_JPRB,.227E-03_JPRB,.227E-03_JPRB,.224E-03_JPRB,.222E-03_JPRB,.222E-03_JPRB,&
+&.221E-03_JPRB,.223E-03_JPRB,.222E-03_JPRB,.220E-03_JPRB,.208E-03_JPRB,.204E-03_JPRB,.200E-03_JPRB,&
+&.196E-03_JPRB,.198E-03_JPRB,.199E-03_JPRB,.201E-03_JPRB,.200E-03_JPRB,.200E-03_JPRB,.199E-03_JPRB,&
+&.198E-03_JPRB,.197E-03_JPRB,.194E-03_JPRB,.187E-03_JPRB,.182E-03_JPRB,.176E-03_JPRB,.177E-03_JPRB,&
+&.179E-03_JPRB,.183E-03_JPRB,.182E-03_JPRB,.181E-03_JPRB,.179E-03_JPRB,.192E-03_JPRB,.202E-03_JPRB,&
+&.213E-03_JPRB,.221E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 13  42.0
+ZAER (:,13, 4) = (/&
+&.264E-03_JPRB,.264E-03_JPRB,.255E-03_JPRB,.255E-03_JPRB,.254E-03_JPRB,.245E-03_JPRB,.241E-03_JPRB,&
+&.237E-03_JPRB,.230E-03_JPRB,.223E-03_JPRB,.217E-03_JPRB,.209E-03_JPRB,.199E-03_JPRB,.191E-03_JPRB,&
+&.180E-03_JPRB,.174E-03_JPRB,.172E-03_JPRB,.170E-03_JPRB,.173E-03_JPRB,.179E-03_JPRB,.187E-03_JPRB,&
+&.231E-03_JPRB,.271E-03_JPRB,.314E-03_JPRB,.395E-03_JPRB,.419E-03_JPRB,.437E-03_JPRB,.391E-03_JPRB,&
+&.379E-03_JPRB,.369E-03_JPRB,.360E-03_JPRB,.334E-03_JPRB,.316E-03_JPRB,.295E-03_JPRB,.289E-03_JPRB,&
+&.284E-03_JPRB,.277E-03_JPRB,.281E-03_JPRB,.284E-03_JPRB,.289E-03_JPRB,.302E-03_JPRB,.306E-03_JPRB,&
+&.309E-03_JPRB,.305E-03_JPRB,.296E-03_JPRB,.285E-03_JPRB,.263E-03_JPRB,.255E-03_JPRB,.247E-03_JPRB,&
+&.241E-03_JPRB,.238E-03_JPRB,.235E-03_JPRB,.231E-03_JPRB,.226E-03_JPRB,.223E-03_JPRB,.221E-03_JPRB,&
+&.220E-03_JPRB,.218E-03_JPRB,.214E-03_JPRB,.206E-03_JPRB,.201E-03_JPRB,.196E-03_JPRB,.205E-03_JPRB,&
+&.215E-03_JPRB,.230E-03_JPRB,.232E-03_JPRB,.228E-03_JPRB,.220E-03_JPRB,.233E-03_JPRB,.246E-03_JPRB,&
+&.261E-03_JPRB,.264E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 14  38.0
+ZAER (:,14, 4) = (/&
+&.293E-03_JPRB,.293E-03_JPRB,.279E-03_JPRB,.275E-03_JPRB,.270E-03_JPRB,.258E-03_JPRB,.254E-03_JPRB,&
+&.252E-03_JPRB,.248E-03_JPRB,.240E-03_JPRB,.234E-03_JPRB,.227E-03_JPRB,.218E-03_JPRB,.211E-03_JPRB,&
+&.201E-03_JPRB,.195E-03_JPRB,.192E-03_JPRB,.190E-03_JPRB,.196E-03_JPRB,.207E-03_JPRB,.221E-03_JPRB,&
+&.305E-03_JPRB,.376E-03_JPRB,.453E-03_JPRB,.626E-03_JPRB,.702E-03_JPRB,.764E-03_JPRB,.654E-03_JPRB,&
+&.584E-03_JPRB,.524E-03_JPRB,.449E-03_JPRB,.413E-03_JPRB,.389E-03_JPRB,.368E-03_JPRB,.361E-03_JPRB,&
+&.353E-03_JPRB,.338E-03_JPRB,.353E-03_JPRB,.368E-03_JPRB,.392E-03_JPRB,.442E-03_JPRB,.457E-03_JPRB,&
+&.465E-03_JPRB,.433E-03_JPRB,.406E-03_JPRB,.375E-03_JPRB,.344E-03_JPRB,.329E-03_JPRB,.316E-03_JPRB,&
+&.302E-03_JPRB,.295E-03_JPRB,.288E-03_JPRB,.277E-03_JPRB,.267E-03_JPRB,.259E-03_JPRB,.256E-03_JPRB,&
+&.251E-03_JPRB,.247E-03_JPRB,.241E-03_JPRB,.233E-03_JPRB,.229E-03_JPRB,.226E-03_JPRB,.247E-03_JPRB,&
+&.267E-03_JPRB,.299E-03_JPRB,.311E-03_JPRB,.304E-03_JPRB,.289E-03_JPRB,.280E-03_JPRB,.288E-03_JPRB,&
+&.299E-03_JPRB,.293E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 15  34.0
+ZAER (:,15, 4) = (/&
+&.317E-03_JPRB,.317E-03_JPRB,.300E-03_JPRB,.291E-03_JPRB,.283E-03_JPRB,.268E-03_JPRB,.263E-03_JPRB,&
+&.260E-03_JPRB,.257E-03_JPRB,.252E-03_JPRB,.249E-03_JPRB,.245E-03_JPRB,.236E-03_JPRB,.230E-03_JPRB,&
+&.222E-03_JPRB,.217E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,.228E-03_JPRB,.248E-03_JPRB,.275E-03_JPRB,&
+&.444E-03_JPRB,.551E-03_JPRB,.661E-03_JPRB,.976E-03_JPRB,.120E-02_JPRB,.140E-02_JPRB,.123E-02_JPRB,&
+&.993E-03_JPRB,.797E-03_JPRB,.611E-03_JPRB,.550E-03_JPRB,.508E-03_JPRB,.472E-03_JPRB,.455E-03_JPRB,&
+&.440E-03_JPRB,.415E-03_JPRB,.437E-03_JPRB,.467E-03_JPRB,.521E-03_JPRB,.647E-03_JPRB,.689E-03_JPRB,&
+&.715E-03_JPRB,.617E-03_JPRB,.556E-03_JPRB,.488E-03_JPRB,.429E-03_JPRB,.410E-03_JPRB,.393E-03_JPRB,&
+&.377E-03_JPRB,.367E-03_JPRB,.358E-03_JPRB,.340E-03_JPRB,.323E-03_JPRB,.311E-03_JPRB,.303E-03_JPRB,&
+&.296E-03_JPRB,.292E-03_JPRB,.286E-03_JPRB,.278E-03_JPRB,.274E-03_JPRB,.271E-03_JPRB,.302E-03_JPRB,&
+&.329E-03_JPRB,.370E-03_JPRB,.399E-03_JPRB,.395E-03_JPRB,.379E-03_JPRB,.338E-03_JPRB,.331E-03_JPRB,&
+&.328E-03_JPRB,.318E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 16  30.0
+ZAER (:,16, 4) = (/&
+&.353E-03_JPRB,.353E-03_JPRB,.334E-03_JPRB,.319E-03_JPRB,.305E-03_JPRB,.287E-03_JPRB,.279E-03_JPRB,&
+&.273E-03_JPRB,.269E-03_JPRB,.268E-03_JPRB,.268E-03_JPRB,.268E-03_JPRB,.258E-03_JPRB,.252E-03_JPRB,&
+&.246E-03_JPRB,.247E-03_JPRB,.250E-03_JPRB,.256E-03_JPRB,.278E-03_JPRB,.310E-03_JPRB,.355E-03_JPRB,&
+&.634E-03_JPRB,.757E-03_JPRB,.876E-03_JPRB,.134E-02_JPRB,.180E-02_JPRB,.220E-02_JPRB,.206E-02_JPRB,&
+&.160E-02_JPRB,.123E-02_JPRB,.873E-03_JPRB,.737E-03_JPRB,.646E-03_JPRB,.567E-03_JPRB,.542E-03_JPRB,&
+&.525E-03_JPRB,.501E-03_JPRB,.517E-03_JPRB,.554E-03_JPRB,.632E-03_JPRB,.885E-03_JPRB,.975E-03_JPRB,&
+&.104E-02_JPRB,.833E-03_JPRB,.716E-03_JPRB,.592E-03_JPRB,.497E-03_JPRB,.482E-03_JPRB,.471E-03_JPRB,&
+&.464E-03_JPRB,.450E-03_JPRB,.436E-03_JPRB,.416E-03_JPRB,.397E-03_JPRB,.382E-03_JPRB,.369E-03_JPRB,&
+&.364E-03_JPRB,.361E-03_JPRB,.356E-03_JPRB,.346E-03_JPRB,.342E-03_JPRB,.339E-03_JPRB,.371E-03_JPRB,&
+&.396E-03_JPRB,.431E-03_JPRB,.473E-03_JPRB,.477E-03_JPRB,.472E-03_JPRB,.406E-03_JPRB,.384E-03_JPRB,&
+&.365E-03_JPRB,.354E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 17  26.0
+ZAER (:,17, 4) = (/&
+&.412E-03_JPRB,.411E-03_JPRB,.389E-03_JPRB,.366E-03_JPRB,.345E-03_JPRB,.319E-03_JPRB,.309E-03_JPRB,&
+&.302E-03_JPRB,.295E-03_JPRB,.298E-03_JPRB,.299E-03_JPRB,.301E-03_JPRB,.290E-03_JPRB,.285E-03_JPRB,&
+&.284E-03_JPRB,.291E-03_JPRB,.301E-03_JPRB,.318E-03_JPRB,.349E-03_JPRB,.395E-03_JPRB,.457E-03_JPRB,&
+&.770E-03_JPRB,.866E-03_JPRB,.951E-03_JPRB,.153E-02_JPRB,.218E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,&
+&.219E-02_JPRB,.170E-02_JPRB,.110E-02_JPRB,.880E-03_JPRB,.732E-03_JPRB,.617E-03_JPRB,.600E-03_JPRB,&
+&.589E-03_JPRB,.579E-03_JPRB,.592E-03_JPRB,.628E-03_JPRB,.705E-03_JPRB,.104E-02_JPRB,.117E-02_JPRB,&
+&.128E-02_JPRB,.982E-03_JPRB,.828E-03_JPRB,.667E-03_JPRB,.561E-03_JPRB,.559E-03_JPRB,.563E-03_JPRB,&
+&.558E-03_JPRB,.534E-03_JPRB,.513E-03_JPRB,.499E-03_JPRB,.487E-03_JPRB,.477E-03_JPRB,.463E-03_JPRB,&
+&.461E-03_JPRB,.459E-03_JPRB,.453E-03_JPRB,.441E-03_JPRB,.435E-03_JPRB,.433E-03_JPRB,.457E-03_JPRB,&
+&.473E-03_JPRB,.496E-03_JPRB,.536E-03_JPRB,.545E-03_JPRB,.548E-03_JPRB,.481E-03_JPRB,.453E-03_JPRB,&
+&.426E-03_JPRB,.412E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 18  22.0
+ZAER (:,18, 4) = (/&
+&.486E-03_JPRB,.485E-03_JPRB,.453E-03_JPRB,.424E-03_JPRB,.398E-03_JPRB,.370E-03_JPRB,.356E-03_JPRB,&
+&.347E-03_JPRB,.337E-03_JPRB,.340E-03_JPRB,.341E-03_JPRB,.340E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,&
+&.339E-03_JPRB,.355E-03_JPRB,.375E-03_JPRB,.407E-03_JPRB,.448E-03_JPRB,.500E-03_JPRB,.568E-03_JPRB,&
+&.775E-03_JPRB,.829E-03_JPRB,.873E-03_JPRB,.146E-02_JPRB,.216E-02_JPRB,.280E-02_JPRB,.295E-02_JPRB,&
+&.240E-02_JPRB,.191E-02_JPRB,.117E-02_JPRB,.914E-03_JPRB,.748E-03_JPRB,.638E-03_JPRB,.641E-03_JPRB,&
+&.650E-03_JPRB,.675E-03_JPRB,.695E-03_JPRB,.719E-03_JPRB,.761E-03_JPRB,.106E-02_JPRB,.118E-02_JPRB,&
+&.130E-02_JPRB,.103E-02_JPRB,.887E-03_JPRB,.738E-03_JPRB,.646E-03_JPRB,.651E-03_JPRB,.662E-03_JPRB,&
+&.644E-03_JPRB,.610E-03_JPRB,.582E-03_JPRB,.584E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,.582E-03_JPRB,&
+&.580E-03_JPRB,.577E-03_JPRB,.567E-03_JPRB,.554E-03_JPRB,.548E-03_JPRB,.545E-03_JPRB,.554E-03_JPRB,&
+&.562E-03_JPRB,.574E-03_JPRB,.596E-03_JPRB,.600E-03_JPRB,.599E-03_JPRB,.546E-03_JPRB,.524E-03_JPRB,&
+&.502E-03_JPRB,.487E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 19  18.0
+ZAER (:,19, 4) = (/&
+&.548E-03_JPRB,.546E-03_JPRB,.505E-03_JPRB,.477E-03_JPRB,.454E-03_JPRB,.433E-03_JPRB,.417E-03_JPRB,&
+&.404E-03_JPRB,.390E-03_JPRB,.386E-03_JPRB,.383E-03_JPRB,.380E-03_JPRB,.380E-03_JPRB,.389E-03_JPRB,&
+&.411E-03_JPRB,.437E-03_JPRB,.473E-03_JPRB,.531E-03_JPRB,.596E-03_JPRB,.645E-03_JPRB,.703E-03_JPRB,&
+&.758E-03_JPRB,.795E-03_JPRB,.833E-03_JPRB,.133E-02_JPRB,.188E-02_JPRB,.239E-02_JPRB,.257E-02_JPRB,&
+&.213E-02_JPRB,.174E-02_JPRB,.111E-02_JPRB,.895E-03_JPRB,.759E-03_JPRB,.687E-03_JPRB,.713E-03_JPRB,&
+&.749E-03_JPRB,.833E-03_JPRB,.845E-03_JPRB,.845E-03_JPRB,.835E-03_JPRB,.103E-02_JPRB,.113E-02_JPRB,&
+&.124E-02_JPRB,.106E-02_JPRB,.952E-03_JPRB,.833E-03_JPRB,.744E-03_JPRB,.739E-03_JPRB,.738E-03_JPRB,&
+&.705E-03_JPRB,.673E-03_JPRB,.647E-03_JPRB,.659E-03_JPRB,.672E-03_JPRB,.683E-03_JPRB,.700E-03_JPRB,&
+&.707E-03_JPRB,.707E-03_JPRB,.693E-03_JPRB,.678E-03_JPRB,.671E-03_JPRB,.666E-03_JPRB,.657E-03_JPRB,&
+&.653E-03_JPRB,.650E-03_JPRB,.643E-03_JPRB,.632E-03_JPRB,.616E-03_JPRB,.578E-03_JPRB,.567E-03_JPRB,&
+&.558E-03_JPRB,.548E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 20  14.0
+ZAER (:,20, 4) = (/&
+&.572E-03_JPRB,.570E-03_JPRB,.530E-03_JPRB,.513E-03_JPRB,.499E-03_JPRB,.489E-03_JPRB,.472E-03_JPRB,&
+&.459E-03_JPRB,.444E-03_JPRB,.430E-03_JPRB,.423E-03_JPRB,.421E-03_JPRB,.433E-03_JPRB,.453E-03_JPRB,&
+&.495E-03_JPRB,.543E-03_JPRB,.600E-03_JPRB,.690E-03_JPRB,.804E-03_JPRB,.851E-03_JPRB,.897E-03_JPRB,&
+&.878E-03_JPRB,.915E-03_JPRB,.959E-03_JPRB,.137E-02_JPRB,.162E-02_JPRB,.186E-02_JPRB,.200E-02_JPRB,&
+&.172E-02_JPRB,.147E-02_JPRB,.106E-02_JPRB,.921E-03_JPRB,.843E-03_JPRB,.830E-03_JPRB,.880E-03_JPRB,&
+&.934E-03_JPRB,.104E-02_JPRB,.102E-02_JPRB,.990E-03_JPRB,.945E-03_JPRB,.106E-02_JPRB,.115E-02_JPRB,&
+&.126E-02_JPRB,.115E-02_JPRB,.104E-02_JPRB,.918E-03_JPRB,.814E-03_JPRB,.796E-03_JPRB,.781E-03_JPRB,&
+&.745E-03_JPRB,.727E-03_JPRB,.711E-03_JPRB,.715E-03_JPRB,.728E-03_JPRB,.745E-03_JPRB,.798E-03_JPRB,&
+&.870E-03_JPRB,.905E-03_JPRB,.894E-03_JPRB,.845E-03_JPRB,.818E-03_JPRB,.796E-03_JPRB,.752E-03_JPRB,&
+&.725E-03_JPRB,.692E-03_JPRB,.649E-03_JPRB,.622E-03_JPRB,.590E-03_JPRB,.572E-03_JPRB,.573E-03_JPRB,&
+&.577E-03_JPRB,.572E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 21  10.0
+ZAER (:,21, 4) = (/&
+&.562E-03_JPRB,.561E-03_JPRB,.528E-03_JPRB,.526E-03_JPRB,.524E-03_JPRB,.517E-03_JPRB,.502E-03_JPRB,&
+&.492E-03_JPRB,.488E-03_JPRB,.476E-03_JPRB,.472E-03_JPRB,.474E-03_JPRB,.499E-03_JPRB,.531E-03_JPRB,&
+&.590E-03_JPRB,.666E-03_JPRB,.743E-03_JPRB,.859E-03_JPRB,.101E-02_JPRB,.106E-02_JPRB,.109E-02_JPRB,&
+&.106E-02_JPRB,.112E-02_JPRB,.119E-02_JPRB,.145E-02_JPRB,.152E-02_JPRB,.158E-02_JPRB,.172E-02_JPRB,&
+&.155E-02_JPRB,.139E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.110E-02_JPRB,.117E-02_JPRB,&
+&.122E-02_JPRB,.128E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,.111E-02_JPRB,.118E-02_JPRB,.127E-02_JPRB,&
+&.139E-02_JPRB,.129E-02_JPRB,.115E-02_JPRB,.985E-03_JPRB,.859E-03_JPRB,.836E-03_JPRB,.818E-03_JPRB,&
+&.789E-03_JPRB,.780E-03_JPRB,.771E-03_JPRB,.751E-03_JPRB,.760E-03_JPRB,.785E-03_JPRB,.913E-03_JPRB,&
+&.116E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.112E-02_JPRB,.102E-02_JPRB,.928E-03_JPRB,.817E-03_JPRB,&
+&.757E-03_JPRB,.690E-03_JPRB,.616E-03_JPRB,.584E-03_JPRB,.554E-03_JPRB,.565E-03_JPRB,.573E-03_JPRB,&
+&.583E-03_JPRB,.563E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 22   6.0
+ZAER (:,22, 4) = (/&
+&.562E-03_JPRB,.560E-03_JPRB,.520E-03_JPRB,.530E-03_JPRB,.537E-03_JPRB,.524E-03_JPRB,.509E-03_JPRB,&
+&.503E-03_JPRB,.517E-03_JPRB,.526E-03_JPRB,.533E-03_JPRB,.544E-03_JPRB,.587E-03_JPRB,.629E-03_JPRB,&
+&.702E-03_JPRB,.802E-03_JPRB,.886E-03_JPRB,.101E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.128E-02_JPRB,&
+&.131E-02_JPRB,.139E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,.168E-02_JPRB,&
+&.157E-02_JPRB,.147E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,.159E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.155E-02_JPRB,.147E-02_JPRB,.135E-02_JPRB,.144E-02_JPRB,.154E-02_JPRB,&
+&.169E-02_JPRB,.155E-02_JPRB,.137E-02_JPRB,.115E-02_JPRB,.963E-03_JPRB,.935E-03_JPRB,.914E-03_JPRB,&
+&.884E-03_JPRB,.875E-03_JPRB,.864E-03_JPRB,.819E-03_JPRB,.823E-03_JPRB,.864E-03_JPRB,.111E-02_JPRB,&
+&.153E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.143E-02_JPRB,.125E-02_JPRB,.103E-02_JPRB,.846E-03_JPRB,&
+&.749E-03_JPRB,.650E-03_JPRB,.574E-03_JPRB,.561E-03_JPRB,.563E-03_JPRB,.605E-03_JPRB,.612E-03_JPRB,&
+&.616E-03_JPRB,.563E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 23   2.0
+ZAER (:,23, 4) = (/&
+&.610E-03_JPRB,.608E-03_JPRB,.553E-03_JPRB,.565E-03_JPRB,.573E-03_JPRB,.550E-03_JPRB,.536E-03_JPRB,&
+&.532E-03_JPRB,.557E-03_JPRB,.576E-03_JPRB,.594E-03_JPRB,.626E-03_JPRB,.693E-03_JPRB,.750E-03_JPRB,&
+&.842E-03_JPRB,.947E-03_JPRB,.102E-02_JPRB,.112E-02_JPRB,.128E-02_JPRB,.139E-02_JPRB,.153E-02_JPRB,&
+&.173E-02_JPRB,.191E-02_JPRB,.210E-02_JPRB,.173E-02_JPRB,.164E-02_JPRB,.157E-02_JPRB,.172E-02_JPRB,&
+&.168E-02_JPRB,.167E-02_JPRB,.183E-02_JPRB,.192E-02_JPRB,.200E-02_JPRB,.215E-02_JPRB,.220E-02_JPRB,&
+&.219E-02_JPRB,.210E-02_JPRB,.197E-02_JPRB,.187E-02_JPRB,.175E-02_JPRB,.190E-02_JPRB,.201E-02_JPRB,&
+&.216E-02_JPRB,.189E-02_JPRB,.168E-02_JPRB,.144E-02_JPRB,.123E-02_JPRB,.118E-02_JPRB,.114E-02_JPRB,&
+&.108E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.107E-02_JPRB,.136E-02_JPRB,&
+&.168E-02_JPRB,.182E-02_JPRB,.171E-02_JPRB,.151E-02_JPRB,.136E-02_JPRB,.114E-02_JPRB,.894E-03_JPRB,&
+&.766E-03_JPRB,.635E-03_JPRB,.585E-03_JPRB,.602E-03_JPRB,.645E-03_JPRB,.725E-03_JPRB,.728E-03_JPRB,&
+&.723E-03_JPRB,.614E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 24  -2.0
+ZAER (:,24, 4) = (/&
+&.737E-03_JPRB,.735E-03_JPRB,.676E-03_JPRB,.684E-03_JPRB,.687E-03_JPRB,.650E-03_JPRB,.645E-03_JPRB,&
+&.644E-03_JPRB,.654E-03_JPRB,.658E-03_JPRB,.677E-03_JPRB,.739E-03_JPRB,.876E-03_JPRB,.963E-03_JPRB,&
+&.107E-02_JPRB,.114E-02_JPRB,.122E-02_JPRB,.133E-02_JPRB,.160E-02_JPRB,.178E-02_JPRB,.199E-02_JPRB,&
+&.252E-02_JPRB,.280E-02_JPRB,.308E-02_JPRB,.213E-02_JPRB,.193E-02_JPRB,.176E-02_JPRB,.190E-02_JPRB,&
+&.197E-02_JPRB,.206E-02_JPRB,.243E-02_JPRB,.270E-02_JPRB,.292E-02_JPRB,.327E-02_JPRB,.323E-02_JPRB,&
+&.313E-02_JPRB,.288E-02_JPRB,.267E-02_JPRB,.264E-02_JPRB,.273E-02_JPRB,.296E-02_JPRB,.303E-02_JPRB,&
+&.305E-02_JPRB,.226E-02_JPRB,.203E-02_JPRB,.185E-02_JPRB,.168E-02_JPRB,.158E-02_JPRB,.148E-02_JPRB,&
+&.141E-02_JPRB,.143E-02_JPRB,.145E-02_JPRB,.158E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.166E-02_JPRB,&
+&.182E-02_JPRB,.184E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,.154E-02_JPRB,.143E-02_JPRB,.115E-02_JPRB,&
+&.102E-02_JPRB,.889E-03_JPRB,.849E-03_JPRB,.866E-03_JPRB,.907E-03_JPRB,.989E-03_JPRB,.966E-03_JPRB,&
+&.927E-03_JPRB,.743E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 25  -6.0
+ZAER (:,25, 4) = (/&
+&.967E-03_JPRB,.965E-03_JPRB,.901E-03_JPRB,.907E-03_JPRB,.911E-03_JPRB,.901E-03_JPRB,.883E-03_JPRB,&
+&.865E-03_JPRB,.825E-03_JPRB,.806E-03_JPRB,.825E-03_JPRB,.929E-03_JPRB,.118E-02_JPRB,.132E-02_JPRB,&
+&.146E-02_JPRB,.158E-02_JPRB,.174E-02_JPRB,.199E-02_JPRB,.241E-02_JPRB,.265E-02_JPRB,.290E-02_JPRB,&
+&.345E-02_JPRB,.353E-02_JPRB,.358E-02_JPRB,.240E-02_JPRB,.221E-02_JPRB,.204E-02_JPRB,.217E-02_JPRB,&
+&.227E-02_JPRB,.243E-02_JPRB,.307E-02_JPRB,.370E-02_JPRB,.416E-02_JPRB,.471E-02_JPRB,.441E-02_JPRB,&
+&.420E-02_JPRB,.394E-02_JPRB,.374E-02_JPRB,.385E-02_JPRB,.425E-02_JPRB,.487E-02_JPRB,.482E-02_JPRB,&
+&.450E-02_JPRB,.290E-02_JPRB,.250E-02_JPRB,.222E-02_JPRB,.209E-02_JPRB,.200E-02_JPRB,.190E-02_JPRB,&
+&.192E-02_JPRB,.207E-02_JPRB,.223E-02_JPRB,.254E-02_JPRB,.228E-02_JPRB,.213E-02_JPRB,.220E-02_JPRB,&
+&.248E-02_JPRB,.253E-02_JPRB,.212E-02_JPRB,.217E-02_JPRB,.216E-02_JPRB,.208E-02_JPRB,.176E-02_JPRB,&
+&.161E-02_JPRB,.150E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.133E-02_JPRB,&
+&.121E-02_JPRB,.974E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 26 -10.0
+ZAER (:,26, 4) = (/&
+&.132E-02_JPRB,.131E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.126E-02_JPRB,&
+&.122E-02_JPRB,.110E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.116E-02_JPRB,.153E-02_JPRB,.177E-02_JPRB,&
+&.209E-02_JPRB,.255E-02_JPRB,.305E-02_JPRB,.382E-02_JPRB,.414E-02_JPRB,.407E-02_JPRB,.390E-02_JPRB,&
+&.375E-02_JPRB,.359E-02_JPRB,.342E-02_JPRB,.244E-02_JPRB,.227E-02_JPRB,.214E-02_JPRB,.225E-02_JPRB,&
+&.241E-02_JPRB,.262E-02_JPRB,.345E-02_JPRB,.461E-02_JPRB,.546E-02_JPRB,.642E-02_JPRB,.529E-02_JPRB,&
+&.471E-02_JPRB,.437E-02_JPRB,.436E-02_JPRB,.460E-02_JPRB,.520E-02_JPRB,.602E-02_JPRB,.597E-02_JPRB,&
+&.556E-02_JPRB,.376E-02_JPRB,.308E-02_JPRB,.245E-02_JPRB,.229E-02_JPRB,.230E-02_JPRB,.232E-02_JPRB,&
+&.277E-02_JPRB,.326E-02_JPRB,.372E-02_JPRB,.415E-02_JPRB,.359E-02_JPRB,.323E-02_JPRB,.324E-02_JPRB,&
+&.385E-02_JPRB,.402E-02_JPRB,.345E-02_JPRB,.326E-02_JPRB,.317E-02_JPRB,.310E-02_JPRB,.276E-02_JPRB,&
+&.259E-02_JPRB,.240E-02_JPRB,.221E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.195E-02_JPRB,.177E-02_JPRB,&
+&.157E-02_JPRB,.132E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 27 -14.0
+ZAER (:,27, 4) = (/&
+&.168E-02_JPRB,.167E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,.171E-02_JPRB,.167E-02_JPRB,&
+&.163E-02_JPRB,.151E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,.141E-02_JPRB,.182E-02_JPRB,.217E-02_JPRB,&
+&.274E-02_JPRB,.389E-02_JPRB,.490E-02_JPRB,.634E-02_JPRB,.629E-02_JPRB,.555E-02_JPRB,.443E-02_JPRB,&
+&.344E-02_JPRB,.318E-02_JPRB,.296E-02_JPRB,.229E-02_JPRB,.216E-02_JPRB,.204E-02_JPRB,.207E-02_JPRB,&
+&.219E-02_JPRB,.239E-02_JPRB,.325E-02_JPRB,.461E-02_JPRB,.571E-02_JPRB,.733E-02_JPRB,.565E-02_JPRB,&
+&.469E-02_JPRB,.386E-02_JPRB,.404E-02_JPRB,.427E-02_JPRB,.469E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,&
+&.495E-02_JPRB,.391E-02_JPRB,.327E-02_JPRB,.256E-02_JPRB,.238E-02_JPRB,.252E-02_JPRB,.269E-02_JPRB,&
+&.382E-02_JPRB,.473E-02_JPRB,.554E-02_JPRB,.603E-02_JPRB,.546E-02_JPRB,.503E-02_JPRB,.465E-02_JPRB,&
+&.541E-02_JPRB,.569E-02_JPRB,.529E-02_JPRB,.474E-02_JPRB,.446E-02_JPRB,.426E-02_JPRB,.395E-02_JPRB,&
+&.373E-02_JPRB,.345E-02_JPRB,.303E-02_JPRB,.290E-02_JPRB,.279E-02_JPRB,.234E-02_JPRB,.209E-02_JPRB,&
+&.184E-02_JPRB,.168E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 28 -18.0
+ZAER (:,28, 4) = (/&
+&.198E-02_JPRB,.198E-02_JPRB,.200E-02_JPRB,.197E-02_JPRB,.196E-02_JPRB,.203E-02_JPRB,.198E-02_JPRB,&
+&.194E-02_JPRB,.186E-02_JPRB,.174E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.207E-02_JPRB,.246E-02_JPRB,&
+&.315E-02_JPRB,.444E-02_JPRB,.554E-02_JPRB,.709E-02_JPRB,.702E-02_JPRB,.598E-02_JPRB,.443E-02_JPRB,&
+&.309E-02_JPRB,.282E-02_JPRB,.262E-02_JPRB,.216E-02_JPRB,.205E-02_JPRB,.195E-02_JPRB,.186E-02_JPRB,&
+&.195E-02_JPRB,.209E-02_JPRB,.263E-02_JPRB,.358E-02_JPRB,.445E-02_JPRB,.607E-02_JPRB,.488E-02_JPRB,&
+&.410E-02_JPRB,.322E-02_JPRB,.339E-02_JPRB,.351E-02_JPRB,.368E-02_JPRB,.384E-02_JPRB,.387E-02_JPRB,&
+&.387E-02_JPRB,.349E-02_JPRB,.314E-02_JPRB,.274E-02_JPRB,.264E-02_JPRB,.282E-02_JPRB,.305E-02_JPRB,&
+&.468E-02_JPRB,.587E-02_JPRB,.693E-02_JPRB,.766E-02_JPRB,.724E-02_JPRB,.676E-02_JPRB,.548E-02_JPRB,&
+&.664E-02_JPRB,.744E-02_JPRB,.827E-02_JPRB,.726E-02_JPRB,.653E-02_JPRB,.553E-02_JPRB,.501E-02_JPRB,&
+&.470E-02_JPRB,.433E-02_JPRB,.382E-02_JPRB,.359E-02_JPRB,.336E-02_JPRB,.264E-02_JPRB,.235E-02_JPRB,&
+&.207E-02_JPRB,.198E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 29 -22.0
+ZAER (:,29, 4) = (/&
+&.219E-02_JPRB,.219E-02_JPRB,.224E-02_JPRB,.223E-02_JPRB,.222E-02_JPRB,.230E-02_JPRB,.221E-02_JPRB,&
+&.214E-02_JPRB,.200E-02_JPRB,.193E-02_JPRB,.191E-02_JPRB,.197E-02_JPRB,.232E-02_JPRB,.265E-02_JPRB,&
+&.319E-02_JPRB,.399E-02_JPRB,.468E-02_JPRB,.566E-02_JPRB,.590E-02_JPRB,.522E-02_JPRB,.412E-02_JPRB,&
+&.290E-02_JPRB,.263E-02_JPRB,.242E-02_JPRB,.211E-02_JPRB,.200E-02_JPRB,.190E-02_JPRB,.176E-02_JPRB,&
+&.185E-02_JPRB,.194E-02_JPRB,.216E-02_JPRB,.258E-02_JPRB,.300E-02_JPRB,.392E-02_JPRB,.352E-02_JPRB,&
+&.322E-02_JPRB,.282E-02_JPRB,.286E-02_JPRB,.294E-02_JPRB,.308E-02_JPRB,.349E-02_JPRB,.367E-02_JPRB,&
+&.385E-02_JPRB,.357E-02_JPRB,.341E-02_JPRB,.323E-02_JPRB,.317E-02_JPRB,.331E-02_JPRB,.348E-02_JPRB,&
+&.500E-02_JPRB,.616E-02_JPRB,.719E-02_JPRB,.791E-02_JPRB,.734E-02_JPRB,.677E-02_JPRB,.556E-02_JPRB,&
+&.784E-02_JPRB,.980E-02_JPRB,.131E-01_JPRB,.117E-01_JPRB,.103E-01_JPRB,.756E-02_JPRB,.635E-02_JPRB,&
+&.574E-02_JPRB,.514E-02_JPRB,.448E-02_JPRB,.413E-02_JPRB,.375E-02_JPRB,.304E-02_JPRB,.269E-02_JPRB,&
+&.233E-02_JPRB,.220E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 30 -26.0
+ZAER (:,30, 4) = (/&
+&.235E-02_JPRB,.235E-02_JPRB,.233E-02_JPRB,.237E-02_JPRB,.242E-02_JPRB,.253E-02_JPRB,.239E-02_JPRB,&
+&.226E-02_JPRB,.201E-02_JPRB,.195E-02_JPRB,.197E-02_JPRB,.212E-02_JPRB,.251E-02_JPRB,.274E-02_JPRB,&
+&.300E-02_JPRB,.334E-02_JPRB,.370E-02_JPRB,.425E-02_JPRB,.468E-02_JPRB,.441E-02_JPRB,.391E-02_JPRB,&
+&.292E-02_JPRB,.262E-02_JPRB,.236E-02_JPRB,.211E-02_JPRB,.201E-02_JPRB,.191E-02_JPRB,.180E-02_JPRB,&
+&.185E-02_JPRB,.190E-02_JPRB,.197E-02_JPRB,.213E-02_JPRB,.230E-02_JPRB,.266E-02_JPRB,.270E-02_JPRB,&
+&.271E-02_JPRB,.265E-02_JPRB,.270E-02_JPRB,.284E-02_JPRB,.314E-02_JPRB,.394E-02_JPRB,.441E-02_JPRB,&
+&.495E-02_JPRB,.458E-02_JPRB,.436E-02_JPRB,.413E-02_JPRB,.386E-02_JPRB,.390E-02_JPRB,.397E-02_JPRB,&
+&.508E-02_JPRB,.585E-02_JPRB,.650E-02_JPRB,.653E-02_JPRB,.576E-02_JPRB,.525E-02_JPRB,.529E-02_JPRB,&
+&.925E-02_JPRB,.128E-01_JPRB,.191E-01_JPRB,.174E-01_JPRB,.153E-01_JPRB,.107E-01_JPRB,.841E-02_JPRB,&
+&.723E-02_JPRB,.600E-02_JPRB,.488E-02_JPRB,.439E-02_JPRB,.392E-02_JPRB,.337E-02_JPRB,.303E-02_JPRB,&
+&.267E-02_JPRB,.236E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 31 -30.0
+ZAER (:,31, 4) = (/&
+&.259E-02_JPRB,.259E-02_JPRB,.244E-02_JPRB,.250E-02_JPRB,.256E-02_JPRB,.265E-02_JPRB,.246E-02_JPRB,&
+&.229E-02_JPRB,.196E-02_JPRB,.190E-02_JPRB,.194E-02_JPRB,.217E-02_JPRB,.258E-02_JPRB,.273E-02_JPRB,&
+&.274E-02_JPRB,.285E-02_JPRB,.314E-02_JPRB,.365E-02_JPRB,.420E-02_JPRB,.417E-02_JPRB,.398E-02_JPRB,&
+&.322E-02_JPRB,.285E-02_JPRB,.248E-02_JPRB,.219E-02_JPRB,.209E-02_JPRB,.199E-02_JPRB,.188E-02_JPRB,&
+&.187E-02_JPRB,.186E-02_JPRB,.190E-02_JPRB,.206E-02_JPRB,.222E-02_JPRB,.251E-02_JPRB,.276E-02_JPRB,&
+&.288E-02_JPRB,.290E-02_JPRB,.310E-02_JPRB,.341E-02_JPRB,.400E-02_JPRB,.515E-02_JPRB,.587E-02_JPRB,&
+&.672E-02_JPRB,.628E-02_JPRB,.586E-02_JPRB,.536E-02_JPRB,.474E-02_JPRB,.469E-02_JPRB,.467E-02_JPRB,&
+&.539E-02_JPRB,.557E-02_JPRB,.566E-02_JPRB,.487E-02_JPRB,.418E-02_JPRB,.389E-02_JPRB,.500E-02_JPRB,&
+&.103E-01_JPRB,.149E-01_JPRB,.230E-01_JPRB,.214E-01_JPRB,.190E-01_JPRB,.137E-01_JPRB,.105E-01_JPRB,&
+&.871E-02_JPRB,.668E-02_JPRB,.504E-02_JPRB,.441E-02_JPRB,.386E-02_JPRB,.350E-02_JPRB,.328E-02_JPRB,&
+&.306E-02_JPRB,.260E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 32 -34.0
+ZAER (:,32, 4) = (/&
+&.293E-02_JPRB,.292E-02_JPRB,.265E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.242E-02_JPRB,&
+&.223E-02_JPRB,.190E-02_JPRB,.187E-02_JPRB,.194E-02_JPRB,.224E-02_JPRB,.254E-02_JPRB,.258E-02_JPRB,&
+&.239E-02_JPRB,.243E-02_JPRB,.271E-02_JPRB,.326E-02_JPRB,.402E-02_JPRB,.414E-02_JPRB,.416E-02_JPRB,&
+&.362E-02_JPRB,.321E-02_JPRB,.276E-02_JPRB,.231E-02_JPRB,.218E-02_JPRB,.206E-02_JPRB,.192E-02_JPRB,&
+&.186E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.203E-02_JPRB,.226E-02_JPRB,.277E-02_JPRB,.325E-02_JPRB,&
+&.350E-02_JPRB,.364E-02_JPRB,.411E-02_JPRB,.472E-02_JPRB,.584E-02_JPRB,.745E-02_JPRB,.824E-02_JPRB,&
+&.906E-02_JPRB,.845E-02_JPRB,.778E-02_JPRB,.697E-02_JPRB,.618E-02_JPRB,.608E-02_JPRB,.601E-02_JPRB,&
+&.626E-02_JPRB,.585E-02_JPRB,.540E-02_JPRB,.420E-02_JPRB,.379E-02_JPRB,.372E-02_JPRB,.504E-02_JPRB,&
+&.102E-01_JPRB,.147E-01_JPRB,.222E-01_JPRB,.214E-01_JPRB,.196E-01_JPRB,.153E-01_JPRB,.117E-01_JPRB,&
+&.951E-02_JPRB,.693E-02_JPRB,.507E-02_JPRB,.434E-02_JPRB,.367E-02_JPRB,.346E-02_JPRB,.340E-02_JPRB,&
+&.334E-02_JPRB,.294E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 33 -38.0
+ZAER (:,33, 4) = (/&
+&.312E-02_JPRB,.311E-02_JPRB,.281E-02_JPRB,.271E-02_JPRB,.262E-02_JPRB,.255E-02_JPRB,.234E-02_JPRB,&
+&.216E-02_JPRB,.186E-02_JPRB,.188E-02_JPRB,.198E-02_JPRB,.230E-02_JPRB,.242E-02_JPRB,.235E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.231E-02_JPRB,.279E-02_JPRB,.364E-02_JPRB,.390E-02_JPRB,.408E-02_JPRB,&
+&.376E-02_JPRB,.339E-02_JPRB,.297E-02_JPRB,.236E-02_JPRB,.219E-02_JPRB,.203E-02_JPRB,.187E-02_JPRB,&
+&.180E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.196E-02_JPRB,.224E-02_JPRB,.300E-02_JPRB,.368E-02_JPRB,&
+&.410E-02_JPRB,.452E-02_JPRB,.545E-02_JPRB,.661E-02_JPRB,.868E-02_JPRB,.112E-01_JPRB,.120E-01_JPRB,&
+&.126E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,.952E-02_JPRB,.848E-02_JPRB,.825E-02_JPRB,.805E-02_JPRB,&
+&.765E-02_JPRB,.685E-02_JPRB,.606E-02_JPRB,.472E-02_JPRB,.448E-02_JPRB,.445E-02_JPRB,.537E-02_JPRB,&
+&.898E-02_JPRB,.121E-01_JPRB,.174E-01_JPRB,.178E-01_JPRB,.170E-01_JPRB,.145E-01_JPRB,.114E-01_JPRB,&
+&.929E-02_JPRB,.671E-02_JPRB,.493E-02_JPRB,.418E-02_JPRB,.347E-02_JPRB,.334E-02_JPRB,.335E-02_JPRB,&
+&.338E-02_JPRB,.313E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 34 -42.0
+ZAER (:,34, 4) = (/&
+&.301E-02_JPRB,.301E-02_JPRB,.274E-02_JPRB,.262E-02_JPRB,.251E-02_JPRB,.244E-02_JPRB,.228E-02_JPRB,&
+&.214E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.196E-02_JPRB,.222E-02_JPRB,.223E-02_JPRB,.215E-02_JPRB,&
+&.191E-02_JPRB,.192E-02_JPRB,.209E-02_JPRB,.242E-02_JPRB,.310E-02_JPRB,.335E-02_JPRB,.357E-02_JPRB,&
+&.340E-02_JPRB,.315E-02_JPRB,.286E-02_JPRB,.224E-02_JPRB,.207E-02_JPRB,.191E-02_JPRB,.179E-02_JPRB,&
+&.174E-02_JPRB,.171E-02_JPRB,.174E-02_JPRB,.195E-02_JPRB,.225E-02_JPRB,.311E-02_JPRB,.400E-02_JPRB,&
+&.462E-02_JPRB,.542E-02_JPRB,.743E-02_JPRB,.955E-02_JPRB,.131E-01_JPRB,.167E-01_JPRB,.176E-01_JPRB,&
+&.179E-01_JPRB,.164E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,&
+&.919E-02_JPRB,.830E-02_JPRB,.744E-02_JPRB,.603E-02_JPRB,.565E-02_JPRB,.541E-02_JPRB,.553E-02_JPRB,&
+&.726E-02_JPRB,.886E-02_JPRB,.118E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.120E-01_JPRB,.970E-02_JPRB,&
+&.812E-02_JPRB,.604E-02_JPRB,.446E-02_JPRB,.384E-02_JPRB,.328E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,&
+&.320E-02_JPRB,.302E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 35 -46.0
+ZAER (:,35, 4) = (/&
+&.278E-02_JPRB,.278E-02_JPRB,.253E-02_JPRB,.244E-02_JPRB,.236E-02_JPRB,.229E-02_JPRB,.221E-02_JPRB,&
+&.213E-02_JPRB,.194E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.198E-02_JPRB,&
+&.189E-02_JPRB,.190E-02_JPRB,.201E-02_JPRB,.221E-02_JPRB,.256E-02_JPRB,.268E-02_JPRB,.277E-02_JPRB,&
+&.271E-02_JPRB,.258E-02_JPRB,.243E-02_JPRB,.200E-02_JPRB,.188E-02_JPRB,.178E-02_JPRB,.172E-02_JPRB,&
+&.169E-02_JPRB,.168E-02_JPRB,.177E-02_JPRB,.205E-02_JPRB,.240E-02_JPRB,.331E-02_JPRB,.455E-02_JPRB,&
+&.554E-02_JPRB,.707E-02_JPRB,.112E-01_JPRB,.147E-01_JPRB,.202E-01_JPRB,.238E-01_JPRB,.244E-01_JPRB,&
+&.242E-01_JPRB,.226E-01_JPRB,.209E-01_JPRB,.188E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.122E-01_JPRB,&
+&.106E-01_JPRB,.973E-02_JPRB,.891E-02_JPRB,.758E-02_JPRB,.689E-02_JPRB,.634E-02_JPRB,.566E-02_JPRB,&
+&.607E-02_JPRB,.659E-02_JPRB,.788E-02_JPRB,.864E-02_JPRB,.885E-02_JPRB,.861E-02_JPRB,.730E-02_JPRB,&
+&.629E-02_JPRB,.490E-02_JPRB,.382E-02_JPRB,.345E-02_JPRB,.315E-02_JPRB,.306E-02_JPRB,.303E-02_JPRB,&
+&.300E-02_JPRB,.279E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 36 -50.0
+ZAER (:,36, 4) = (/&
+&.259E-02_JPRB,.258E-02_JPRB,.230E-02_JPRB,.223E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,&
+&.205E-02_JPRB,.194E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.181E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,&
+&.184E-02_JPRB,.190E-02_JPRB,.196E-02_JPRB,.205E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,&
+&.207E-02_JPRB,.201E-02_JPRB,.194E-02_JPRB,.176E-02_JPRB,.172E-02_JPRB,.168E-02_JPRB,.165E-02_JPRB,&
+&.165E-02_JPRB,.166E-02_JPRB,.180E-02_JPRB,.218E-02_JPRB,.261E-02_JPRB,.360E-02_JPRB,.520E-02_JPRB,&
+&.667E-02_JPRB,.926E-02_JPRB,.155E-01_JPRB,.202E-01_JPRB,.268E-01_JPRB,.293E-01_JPRB,.297E-01_JPRB,&
+&.296E-01_JPRB,.285E-01_JPRB,.264E-01_JPRB,.237E-01_JPRB,.185E-01_JPRB,.163E-01_JPRB,.143E-01_JPRB,&
+&.119E-01_JPRB,.109E-01_JPRB,.100E-01_JPRB,.875E-02_JPRB,.794E-02_JPRB,.725E-02_JPRB,.620E-02_JPRB,&
+&.590E-02_JPRB,.574E-02_JPRB,.570E-02_JPRB,.569E-02_JPRB,.563E-02_JPRB,.549E-02_JPRB,.477E-02_JPRB,&
+&.428E-02_JPRB,.365E-02_JPRB,.326E-02_JPRB,.313E-02_JPRB,.305E-02_JPRB,.298E-02_JPRB,.292E-02_JPRB,&
+&.286E-02_JPRB,.260E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 37 -54.0
+ZAER (:,37, 4) = (/&
+&.250E-02_JPRB,.250E-02_JPRB,.220E-02_JPRB,.210E-02_JPRB,.201E-02_JPRB,.196E-02_JPRB,.191E-02_JPRB,&
+&.187E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,&
+&.177E-02_JPRB,.181E-02_JPRB,.183E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,&
+&.170E-02_JPRB,.167E-02_JPRB,.165E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,&
+&.160E-02_JPRB,.163E-02_JPRB,.181E-02_JPRB,.224E-02_JPRB,.267E-02_JPRB,.359E-02_JPRB,.499E-02_JPRB,&
+&.640E-02_JPRB,.908E-02_JPRB,.148E-01_JPRB,.190E-01_JPRB,.247E-01_JPRB,.277E-01_JPRB,.294E-01_JPRB,&
+&.314E-01_JPRB,.313E-01_JPRB,.291E-01_JPRB,.260E-01_JPRB,.201E-01_JPRB,.176E-01_JPRB,.153E-01_JPRB,&
+&.126E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,.876E-02_JPRB,.807E-02_JPRB,.745E-02_JPRB,.643E-02_JPRB,&
+&.584E-02_JPRB,.540E-02_JPRB,.482E-02_JPRB,.434E-02_JPRB,.401E-02_JPRB,.356E-02_JPRB,.316E-02_JPRB,&
+&.297E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.283E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,.281E-02_JPRB,&
+&.273E-02_JPRB,.251E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 38 -58.0
+ZAER (:,38, 4) = (/&
+&.251E-02_JPRB,.250E-02_JPRB,.227E-02_JPRB,.212E-02_JPRB,.199E-02_JPRB,.182E-02_JPRB,.174E-02_JPRB,&
+&.168E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,&
+&.163E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,&
+&.154E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,&
+&.150E-02_JPRB,.154E-02_JPRB,.174E-02_JPRB,.214E-02_JPRB,.252E-02_JPRB,.328E-02_JPRB,.429E-02_JPRB,&
+&.528E-02_JPRB,.714E-02_JPRB,.996E-02_JPRB,.121E-01_JPRB,.151E-01_JPRB,.192E-01_JPRB,.219E-01_JPRB,&
+&.251E-01_JPRB,.265E-01_JPRB,.252E-01_JPRB,.232E-01_JPRB,.181E-01_JPRB,.159E-01_JPRB,.138E-01_JPRB,&
+&.112E-01_JPRB,.996E-02_JPRB,.884E-02_JPRB,.754E-02_JPRB,.705E-02_JPRB,.659E-02_JPRB,.573E-02_JPRB,&
+&.512E-02_JPRB,.467E-02_JPRB,.411E-02_JPRB,.366E-02_JPRB,.333E-02_JPRB,.288E-02_JPRB,.256E-02_JPRB,&
+&.244E-02_JPRB,.237E-02_JPRB,.246E-02_JPRB,.252E-02_JPRB,.260E-02_JPRB,.263E-02_JPRB,.262E-02_JPRB,&
+&.260E-02_JPRB,.251E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 39 -62.0
+ZAER (:,39, 4) = (/&
+&.253E-02_JPRB,.253E-02_JPRB,.240E-02_JPRB,.226E-02_JPRB,.212E-02_JPRB,.187E-02_JPRB,.173E-02_JPRB,&
+&.163E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,&
+&.146E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.142E-02_JPRB,.144E-02_JPRB,&
+&.148E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.146E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,.131E-02_JPRB,&
+&.133E-02_JPRB,.137E-02_JPRB,.156E-02_JPRB,.190E-02_JPRB,.224E-02_JPRB,.296E-02_JPRB,.397E-02_JPRB,&
+&.488E-02_JPRB,.647E-02_JPRB,.819E-02_JPRB,.942E-02_JPRB,.111E-01_JPRB,.134E-01_JPRB,.148E-01_JPRB,&
+&.166E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.134E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,&
+&.893E-02_JPRB,.820E-02_JPRB,.751E-02_JPRB,.666E-02_JPRB,.616E-02_JPRB,.571E-02_JPRB,.486E-02_JPRB,&
+&.422E-02_JPRB,.378E-02_JPRB,.331E-02_JPRB,.305E-02_JPRB,.286E-02_JPRB,.261E-02_JPRB,.239E-02_JPRB,&
+&.229E-02_JPRB,.221E-02_JPRB,.224E-02_JPRB,.228E-02_JPRB,.234E-02_JPRB,.242E-02_JPRB,.246E-02_JPRB,&
+&.250E-02_JPRB,.253E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 40 -66.0
+ZAER (:,40, 4) = (/&
+&.251E-02_JPRB,.250E-02_JPRB,.242E-02_JPRB,.233E-02_JPRB,.223E-02_JPRB,.204E-02_JPRB,.190E-02_JPRB,&
+&.180E-02_JPRB,.167E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,&
+&.144E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,.146E-02_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.139E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,.120E-02_JPRB,&
+&.122E-02_JPRB,.125E-02_JPRB,.141E-02_JPRB,.167E-02_JPRB,.193E-02_JPRB,.254E-02_JPRB,.342E-02_JPRB,&
+&.419E-02_JPRB,.552E-02_JPRB,.695E-02_JPRB,.792E-02_JPRB,.918E-02_JPRB,.105E-01_JPRB,.112E-01_JPRB,&
+&.120E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.983E-02_JPRB,.907E-02_JPRB,.834E-02_JPRB,&
+&.737E-02_JPRB,.699E-02_JPRB,.663E-02_JPRB,.608E-02_JPRB,.567E-02_JPRB,.529E-02_JPRB,.459E-02_JPRB,&
+&.406E-02_JPRB,.368E-02_JPRB,.322E-02_JPRB,.300E-02_JPRB,.286E-02_JPRB,.272E-02_JPRB,.259E-02_JPRB,&
+&.252E-02_JPRB,.244E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,.241E-02_JPRB,.245E-02_JPRB,.247E-02_JPRB,&
+&.249E-02_JPRB,.251E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 41 -70.0
+ZAER (:,41, 4) = (/&
+&.251E-02_JPRB,.251E-02_JPRB,.241E-02_JPRB,.234E-02_JPRB,.227E-02_JPRB,.214E-02_JPRB,.204E-02_JPRB,&
+&.197E-02_JPRB,.186E-02_JPRB,.180E-02_JPRB,.175E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,&
+&.154E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,&
+&.150E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,.135E-02_JPRB,.129E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,&
+&.120E-02_JPRB,.123E-02_JPRB,.136E-02_JPRB,.154E-02_JPRB,.173E-02_JPRB,.214E-02_JPRB,.272E-02_JPRB,&
+&.324E-02_JPRB,.416E-02_JPRB,.526E-02_JPRB,.604E-02_JPRB,.707E-02_JPRB,.808E-02_JPRB,.852E-02_JPRB,&
+&.895E-02_JPRB,.892E-02_JPRB,.862E-02_JPRB,.823E-02_JPRB,.734E-02_JPRB,.693E-02_JPRB,.653E-02_JPRB,&
+&.602E-02_JPRB,.584E-02_JPRB,.566E-02_JPRB,.538E-02_JPRB,.515E-02_JPRB,.494E-02_JPRB,.453E-02_JPRB,&
+&.419E-02_JPRB,.394E-02_JPRB,.361E-02_JPRB,.340E-02_JPRB,.326E-02_JPRB,.311E-02_JPRB,.297E-02_JPRB,&
+&.289E-02_JPRB,.278E-02_JPRB,.270E-02_JPRB,.267E-02_JPRB,.264E-02_JPRB,.262E-02_JPRB,.260E-02_JPRB,&
+&.257E-02_JPRB,.251E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 42 -74.0
+ZAER (:,42, 4) = (/&
+&.252E-02_JPRB,.252E-02_JPRB,.241E-02_JPRB,.234E-02_JPRB,.228E-02_JPRB,.218E-02_JPRB,.212E-02_JPRB,&
+&.206E-02_JPRB,.198E-02_JPRB,.193E-02_JPRB,.189E-02_JPRB,.182E-02_JPRB,.176E-02_JPRB,.172E-02_JPRB,&
+&.167E-02_JPRB,.163E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,&
+&.150E-02_JPRB,.146E-02_JPRB,.143E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,&
+&.130E-02_JPRB,.132E-02_JPRB,.142E-02_JPRB,.155E-02_JPRB,.168E-02_JPRB,.195E-02_JPRB,.229E-02_JPRB,&
+&.261E-02_JPRB,.315E-02_JPRB,.383E-02_JPRB,.431E-02_JPRB,.497E-02_JPRB,.562E-02_JPRB,.590E-02_JPRB,&
+&.617E-02_JPRB,.618E-02_JPRB,.604E-02_JPRB,.585E-02_JPRB,.542E-02_JPRB,.520E-02_JPRB,.499E-02_JPRB,&
+&.469E-02_JPRB,.460E-02_JPRB,.451E-02_JPRB,.440E-02_JPRB,.432E-02_JPRB,.425E-02_JPRB,.413E-02_JPRB,&
+&.400E-02_JPRB,.390E-02_JPRB,.375E-02_JPRB,.362E-02_JPRB,.352E-02_JPRB,.340E-02_JPRB,.327E-02_JPRB,&
+&.318E-02_JPRB,.308E-02_JPRB,.297E-02_JPRB,.291E-02_JPRB,.285E-02_JPRB,.277E-02_JPRB,.271E-02_JPRB,&
+&.265E-02_JPRB,.253E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 43 -78.0
+ZAER (:,43, 4) = (/&
+&.250E-02_JPRB,.249E-02_JPRB,.239E-02_JPRB,.233E-02_JPRB,.227E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,&
+&.209E-02_JPRB,.202E-02_JPRB,.197E-02_JPRB,.193E-02_JPRB,.188E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,&
+&.174E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,.164E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,&
+&.152E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,&
+&.149E-02_JPRB,.152E-02_JPRB,.160E-02_JPRB,.169E-02_JPRB,.178E-02_JPRB,.196E-02_JPRB,.216E-02_JPRB,&
+&.233E-02_JPRB,.261E-02_JPRB,.295E-02_JPRB,.320E-02_JPRB,.352E-02_JPRB,.385E-02_JPRB,.401E-02_JPRB,&
+&.416E-02_JPRB,.423E-02_JPRB,.421E-02_JPRB,.417E-02_JPRB,.403E-02_JPRB,.394E-02_JPRB,.385E-02_JPRB,&
+&.371E-02_JPRB,.366E-02_JPRB,.361E-02_JPRB,.356E-02_JPRB,.355E-02_JPRB,.353E-02_JPRB,.350E-02_JPRB,&
+&.348E-02_JPRB,.345E-02_JPRB,.341E-02_JPRB,.336E-02_JPRB,.332E-02_JPRB,.326E-02_JPRB,.319E-02_JPRB,&
+&.314E-02_JPRB,.306E-02_JPRB,.297E-02_JPRB,.292E-02_JPRB,.285E-02_JPRB,.275E-02_JPRB,.268E-02_JPRB,&
+&.262E-02_JPRB,.250E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 44 -82.0
+ZAER (:,44, 4) = (/&
+&.235E-02_JPRB,.235E-02_JPRB,.228E-02_JPRB,.224E-02_JPRB,.220E-02_JPRB,.214E-02_JPRB,.211E-02_JPRB,&
+&.208E-02_JPRB,.203E-02_JPRB,.199E-02_JPRB,.196E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,.186E-02_JPRB,&
+&.183E-02_JPRB,.180E-02_JPRB,.178E-02_JPRB,.176E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.172E-02_JPRB,&
+&.170E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,.173E-02_JPRB,&
+&.176E-02_JPRB,.179E-02_JPRB,.185E-02_JPRB,.190E-02_JPRB,.195E-02_JPRB,.205E-02_JPRB,.214E-02_JPRB,&
+&.222E-02_JPRB,.234E-02_JPRB,.248E-02_JPRB,.257E-02_JPRB,.269E-02_JPRB,.282E-02_JPRB,.289E-02_JPRB,&
+&.296E-02_JPRB,.303E-02_JPRB,.304E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.304E-02_JPRB,.303E-02_JPRB,&
+&.299E-02_JPRB,.298E-02_JPRB,.296E-02_JPRB,.294E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.292E-02_JPRB,&
+&.291E-02_JPRB,.290E-02_JPRB,.289E-02_JPRB,.287E-02_JPRB,.285E-02_JPRB,.282E-02_JPRB,.279E-02_JPRB,&
+&.276E-02_JPRB,.272E-02_JPRB,.267E-02_JPRB,.263E-02_JPRB,.258E-02_JPRB,.252E-02_JPRB,.248E-02_JPRB,&
+&.243E-02_JPRB,.235E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 45 -86.0
+ZAER (:,45, 4) = (/&
+&.226E-02_JPRB,.226E-02_JPRB,.224E-02_JPRB,.222E-02_JPRB,.220E-02_JPRB,.218E-02_JPRB,.217E-02_JPRB,&
+&.215E-02_JPRB,.213E-02_JPRB,.212E-02_JPRB,.211E-02_JPRB,.209E-02_JPRB,.208E-02_JPRB,.207E-02_JPRB,&
+&.206E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,&
+&.202E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.205E-02_JPRB,&
+&.206E-02_JPRB,.207E-02_JPRB,.210E-02_JPRB,.212E-02_JPRB,.214E-02_JPRB,.217E-02_JPRB,.220E-02_JPRB,&
+&.222E-02_JPRB,.226E-02_JPRB,.229E-02_JPRB,.231E-02_JPRB,.234E-02_JPRB,.238E-02_JPRB,.240E-02_JPRB,&
+&.242E-02_JPRB,.245E-02_JPRB,.246E-02_JPRB,.247E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.250E-02_JPRB,&
+&.250E-02_JPRB,.250E-02_JPRB,.250E-02_JPRB,.250E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,&
+&.248E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.246E-02_JPRB,.245E-02_JPRB,.244E-02_JPRB,.243E-02_JPRB,&
+&.241E-02_JPRB,.240E-02_JPRB,.238E-02_JPRB,.237E-02_JPRB,.235E-02_JPRB,.232E-02_JPRB,.231E-02_JPRB,&
+&.229E-02_JPRB,.226E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  4 --- lat: 46 -90.0
+ZAER (:,46, 4) = (/&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=4
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_04
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_05.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_05.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_05.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_05
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 May
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,5:5)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  5 --- lat:  1  90.0
+ZAER (:, 1, 5) = (/&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,.795E-04_JPRB,&
+&.795E-04_JPRB,.795E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  2  86.0
+ZAER (:, 2, 5) = (/&
+&.809E-04_JPRB,.809E-04_JPRB,.813E-04_JPRB,.816E-04_JPRB,.818E-04_JPRB,.820E-04_JPRB,.822E-04_JPRB,&
+&.824E-04_JPRB,.825E-04_JPRB,.826E-04_JPRB,.827E-04_JPRB,.828E-04_JPRB,.828E-04_JPRB,.829E-04_JPRB,&
+&.829E-04_JPRB,.829E-04_JPRB,.828E-04_JPRB,.828E-04_JPRB,.828E-04_JPRB,.828E-04_JPRB,.827E-04_JPRB,&
+&.826E-04_JPRB,.826E-04_JPRB,.825E-04_JPRB,.823E-04_JPRB,.822E-04_JPRB,.821E-04_JPRB,.818E-04_JPRB,&
+&.816E-04_JPRB,.815E-04_JPRB,.811E-04_JPRB,.808E-04_JPRB,.805E-04_JPRB,.800E-04_JPRB,.796E-04_JPRB,&
+&.792E-04_JPRB,.788E-04_JPRB,.783E-04_JPRB,.780E-04_JPRB,.776E-04_JPRB,.771E-04_JPRB,.769E-04_JPRB,&
+&.766E-04_JPRB,.762E-04_JPRB,.761E-04_JPRB,.759E-04_JPRB,.756E-04_JPRB,.755E-04_JPRB,.754E-04_JPRB,&
+&.754E-04_JPRB,.753E-04_JPRB,.753E-04_JPRB,.754E-04_JPRB,.754E-04_JPRB,.755E-04_JPRB,.757E-04_JPRB,&
+&.759E-04_JPRB,.761E-04_JPRB,.763E-04_JPRB,.766E-04_JPRB,.769E-04_JPRB,.772E-04_JPRB,.775E-04_JPRB,&
+&.778E-04_JPRB,.782E-04_JPRB,.786E-04_JPRB,.789E-04_JPRB,.793E-04_JPRB,.798E-04_JPRB,.801E-04_JPRB,&
+&.804E-04_JPRB,.808E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  3  82.0
+ZAER (:, 3, 5) = (/&
+&.840E-04_JPRB,.840E-04_JPRB,.851E-04_JPRB,.857E-04_JPRB,.862E-04_JPRB,.868E-04_JPRB,.871E-04_JPRB,&
+&.873E-04_JPRB,.875E-04_JPRB,.876E-04_JPRB,.877E-04_JPRB,.877E-04_JPRB,.876E-04_JPRB,.876E-04_JPRB,&
+&.875E-04_JPRB,.875E-04_JPRB,.875E-04_JPRB,.875E-04_JPRB,.877E-04_JPRB,.878E-04_JPRB,.880E-04_JPRB,&
+&.884E-04_JPRB,.887E-04_JPRB,.890E-04_JPRB,.895E-04_JPRB,.897E-04_JPRB,.898E-04_JPRB,.898E-04_JPRB,&
+&.895E-04_JPRB,.892E-04_JPRB,.883E-04_JPRB,.873E-04_JPRB,.865E-04_JPRB,.850E-04_JPRB,.835E-04_JPRB,&
+&.824E-04_JPRB,.809E-04_JPRB,.793E-04_JPRB,.783E-04_JPRB,.771E-04_JPRB,.758E-04_JPRB,.750E-04_JPRB,&
+&.742E-04_JPRB,.733E-04_JPRB,.729E-04_JPRB,.724E-04_JPRB,.719E-04_JPRB,.716E-04_JPRB,.714E-04_JPRB,&
+&.712E-04_JPRB,.711E-04_JPRB,.710E-04_JPRB,.710E-04_JPRB,.710E-04_JPRB,.711E-04_JPRB,.713E-04_JPRB,&
+&.716E-04_JPRB,.719E-04_JPRB,.723E-04_JPRB,.729E-04_JPRB,.734E-04_JPRB,.741E-04_JPRB,.749E-04_JPRB,&
+&.756E-04_JPRB,.765E-04_JPRB,.777E-04_JPRB,.785E-04_JPRB,.795E-04_JPRB,.809E-04_JPRB,.817E-04_JPRB,&
+&.825E-04_JPRB,.839E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  4  78.0
+ZAER (:, 4, 5) = (/&
+&.890E-04_JPRB,.891E-04_JPRB,.910E-04_JPRB,.917E-04_JPRB,.924E-04_JPRB,.930E-04_JPRB,.930E-04_JPRB,&
+&.929E-04_JPRB,.926E-04_JPRB,.922E-04_JPRB,.920E-04_JPRB,.916E-04_JPRB,.912E-04_JPRB,.910E-04_JPRB,&
+&.908E-04_JPRB,.907E-04_JPRB,.908E-04_JPRB,.909E-04_JPRB,.915E-04_JPRB,.922E-04_JPRB,.930E-04_JPRB,&
+&.948E-04_JPRB,.961E-04_JPRB,.975E-04_JPRB,.100E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.984E-04_JPRB,.955E-04_JPRB,.926E-04_JPRB,&
+&.904E-04_JPRB,.872E-04_JPRB,.843E-04_JPRB,.825E-04_JPRB,.802E-04_JPRB,.782E-04_JPRB,.771E-04_JPRB,&
+&.760E-04_JPRB,.749E-04_JPRB,.745E-04_JPRB,.740E-04_JPRB,.736E-04_JPRB,.734E-04_JPRB,.732E-04_JPRB,&
+&.729E-04_JPRB,.726E-04_JPRB,.724E-04_JPRB,.718E-04_JPRB,.714E-04_JPRB,.711E-04_JPRB,.708E-04_JPRB,&
+&.706E-04_JPRB,.706E-04_JPRB,.707E-04_JPRB,.711E-04_JPRB,.715E-04_JPRB,.722E-04_JPRB,.733E-04_JPRB,&
+&.742E-04_JPRB,.755E-04_JPRB,.776E-04_JPRB,.791E-04_JPRB,.808E-04_JPRB,.835E-04_JPRB,.850E-04_JPRB,&
+&.865E-04_JPRB,.890E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  5  74.0
+ZAER (:, 5, 5) = (/&
+&.973E-04_JPRB,.974E-04_JPRB,.994E-04_JPRB,.100E-03_JPRB,.101E-03_JPRB,.100E-03_JPRB,.996E-04_JPRB,&
+&.989E-04_JPRB,.973E-04_JPRB,.962E-04_JPRB,.955E-04_JPRB,.946E-04_JPRB,.940E-04_JPRB,.937E-04_JPRB,&
+&.934E-04_JPRB,.934E-04_JPRB,.935E-04_JPRB,.937E-04_JPRB,.946E-04_JPRB,.955E-04_JPRB,.967E-04_JPRB,&
+&.997E-04_JPRB,.102E-03_JPRB,.104E-03_JPRB,.109E-03_JPRB,.111E-03_JPRB,.113E-03_JPRB,.115E-03_JPRB,&
+&.116E-03_JPRB,.116E-03_JPRB,.115E-03_JPRB,.113E-03_JPRB,.111E-03_JPRB,.106E-03_JPRB,.102E-03_JPRB,&
+&.992E-04_JPRB,.948E-04_JPRB,.910E-04_JPRB,.887E-04_JPRB,.860E-04_JPRB,.841E-04_JPRB,.833E-04_JPRB,&
+&.825E-04_JPRB,.822E-04_JPRB,.823E-04_JPRB,.825E-04_JPRB,.832E-04_JPRB,.835E-04_JPRB,.838E-04_JPRB,&
+&.837E-04_JPRB,.831E-04_JPRB,.825E-04_JPRB,.808E-04_JPRB,.794E-04_JPRB,.782E-04_JPRB,.763E-04_JPRB,&
+&.751E-04_JPRB,.742E-04_JPRB,.733E-04_JPRB,.732E-04_JPRB,.733E-04_JPRB,.737E-04_JPRB,.749E-04_JPRB,&
+&.760E-04_JPRB,.778E-04_JPRB,.808E-04_JPRB,.829E-04_JPRB,.855E-04_JPRB,.895E-04_JPRB,.917E-04_JPRB,&
+&.940E-04_JPRB,.972E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  6  70.0
+ZAER (:, 6, 5) = (/&
+&.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.111E-03_JPRB,.109E-03_JPRB,&
+&.107E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,.101E-03_JPRB,.100E-03_JPRB,.996E-04_JPRB,.995E-04_JPRB,&
+&.995E-04_JPRB,.998E-04_JPRB,.100E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.104E-03_JPRB,.106E-03_JPRB,.108E-03_JPRB,.112E-03_JPRB,.114E-03_JPRB,.116E-03_JPRB,.120E-03_JPRB,&
+&.121E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.119E-03_JPRB,.115E-03_JPRB,.111E-03_JPRB,&
+&.108E-03_JPRB,.103E-03_JPRB,.996E-04_JPRB,.976E-04_JPRB,.955E-04_JPRB,.946E-04_JPRB,.945E-04_JPRB,&
+&.947E-04_JPRB,.961E-04_JPRB,.972E-04_JPRB,.986E-04_JPRB,.101E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,&
+&.104E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.977E-04_JPRB,.948E-04_JPRB,.922E-04_JPRB,.880E-04_JPRB,&
+&.855E-04_JPRB,.837E-04_JPRB,.819E-04_JPRB,.813E-04_JPRB,.813E-04_JPRB,.819E-04_JPRB,.840E-04_JPRB,&
+&.859E-04_JPRB,.889E-04_JPRB,.935E-04_JPRB,.965E-04_JPRB,.100E-03_JPRB,.105E-03_JPRB,.108E-03_JPRB,&
+&.111E-03_JPRB,.113E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  7  66.0
+ZAER (:, 7, 5) = (/&
+&.142E-03_JPRB,.142E-03_JPRB,.138E-03_JPRB,.136E-03_JPRB,.134E-03_JPRB,.128E-03_JPRB,.124E-03_JPRB,&
+&.121E-03_JPRB,.115E-03_JPRB,.112E-03_JPRB,.110E-03_JPRB,.109E-03_JPRB,.109E-03_JPRB,.109E-03_JPRB,&
+&.110E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,&
+&.110E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,.112E-03_JPRB,.114E-03_JPRB,.116E-03_JPRB,.119E-03_JPRB,&
+&.121E-03_JPRB,.122E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.123E-03_JPRB,&
+&.121E-03_JPRB,.117E-03_JPRB,.115E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,&
+&.115E-03_JPRB,.118E-03_JPRB,.121E-03_JPRB,.123E-03_JPRB,.128E-03_JPRB,.130E-03_JPRB,.132E-03_JPRB,&
+&.133E-03_JPRB,.130E-03_JPRB,.127E-03_JPRB,.119E-03_JPRB,.115E-03_JPRB,.110E-03_JPRB,.104E-03_JPRB,&
+&.101E-03_JPRB,.992E-04_JPRB,.976E-04_JPRB,.975E-04_JPRB,.980E-04_JPRB,.994E-04_JPRB,.104E-03_JPRB,&
+&.108E-03_JPRB,.115E-03_JPRB,.123E-03_JPRB,.128E-03_JPRB,.133E-03_JPRB,.139E-03_JPRB,.141E-03_JPRB,&
+&.144E-03_JPRB,.142E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  8  62.0
+ZAER (:, 8, 5) = (/&
+&.188E-03_JPRB,.188E-03_JPRB,.177E-03_JPRB,.172E-03_JPRB,.168E-03_JPRB,.159E-03_JPRB,.150E-03_JPRB,&
+&.143E-03_JPRB,.133E-03_JPRB,.127E-03_JPRB,.123E-03_JPRB,.121E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,&
+&.122E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.122E-03_JPRB,&
+&.120E-03_JPRB,.119E-03_JPRB,.118E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.116E-03_JPRB,.119E-03_JPRB,&
+&.121E-03_JPRB,.123E-03_JPRB,.127E-03_JPRB,.132E-03_JPRB,.135E-03_JPRB,.142E-03_JPRB,.144E-03_JPRB,&
+&.144E-03_JPRB,.141E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.139E-03_JPRB,&
+&.141E-03_JPRB,.145E-03_JPRB,.148E-03_JPRB,.151E-03_JPRB,.159E-03_JPRB,.163E-03_JPRB,.168E-03_JPRB,&
+&.169E-03_JPRB,.163E-03_JPRB,.158E-03_JPRB,.145E-03_JPRB,.137E-03_JPRB,.131E-03_JPRB,.124E-03_JPRB,&
+&.122E-03_JPRB,.122E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.127E-03_JPRB,.136E-03_JPRB,&
+&.144E-03_JPRB,.156E-03_JPRB,.172E-03_JPRB,.180E-03_JPRB,.188E-03_JPRB,.196E-03_JPRB,.196E-03_JPRB,&
+&.196E-03_JPRB,.188E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat:  9  58.0
+ZAER (:, 9, 5) = (/&
+&.239E-03_JPRB,.239E-03_JPRB,.231E-03_JPRB,.226E-03_JPRB,.221E-03_JPRB,.206E-03_JPRB,.193E-03_JPRB,&
+&.181E-03_JPRB,.165E-03_JPRB,.155E-03_JPRB,.148E-03_JPRB,.142E-03_JPRB,.142E-03_JPRB,.141E-03_JPRB,&
+&.141E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.137E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,.134E-03_JPRB,.132E-03_JPRB,.130E-03_JPRB,.131E-03_JPRB,&
+&.137E-03_JPRB,.142E-03_JPRB,.152E-03_JPRB,.160E-03_JPRB,.166E-03_JPRB,.175E-03_JPRB,.179E-03_JPRB,&
+&.180E-03_JPRB,.177E-03_JPRB,.171E-03_JPRB,.167E-03_JPRB,.161E-03_JPRB,.157E-03_JPRB,.158E-03_JPRB,&
+&.160E-03_JPRB,.168E-03_JPRB,.174E-03_JPRB,.182E-03_JPRB,.197E-03_JPRB,.204E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.202E-03_JPRB,.194E-03_JPRB,.176E-03_JPRB,.164E-03_JPRB,.155E-03_JPRB,.146E-03_JPRB,&
+&.149E-03_JPRB,.152E-03_JPRB,.159E-03_JPRB,.162E-03_JPRB,.164E-03_JPRB,.167E-03_JPRB,.185E-03_JPRB,&
+&.202E-03_JPRB,.230E-03_JPRB,.247E-03_JPRB,.249E-03_JPRB,.248E-03_JPRB,.252E-03_JPRB,.250E-03_JPRB,&
+&.246E-03_JPRB,.239E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 10  54.0
+ZAER (:,10, 5) = (/&
+&.292E-03_JPRB,.291E-03_JPRB,.278E-03_JPRB,.275E-03_JPRB,.271E-03_JPRB,.260E-03_JPRB,.242E-03_JPRB,&
+&.226E-03_JPRB,.200E-03_JPRB,.185E-03_JPRB,.176E-03_JPRB,.166E-03_JPRB,.165E-03_JPRB,.163E-03_JPRB,&
+&.160E-03_JPRB,.155E-03_JPRB,.152E-03_JPRB,.148E-03_JPRB,.145E-03_JPRB,.145E-03_JPRB,.145E-03_JPRB,&
+&.150E-03_JPRB,.154E-03_JPRB,.158E-03_JPRB,.161E-03_JPRB,.162E-03_JPRB,.163E-03_JPRB,.175E-03_JPRB,&
+&.192E-03_JPRB,.206E-03_JPRB,.222E-03_JPRB,.227E-03_JPRB,.230E-03_JPRB,.233E-03_JPRB,.230E-03_JPRB,&
+&.227E-03_JPRB,.220E-03_JPRB,.202E-03_JPRB,.189E-03_JPRB,.172E-03_JPRB,.164E-03_JPRB,.163E-03_JPRB,&
+&.166E-03_JPRB,.181E-03_JPRB,.193E-03_JPRB,.208E-03_JPRB,.235E-03_JPRB,.243E-03_JPRB,.249E-03_JPRB,&
+&.239E-03_JPRB,.227E-03_JPRB,.216E-03_JPRB,.197E-03_JPRB,.183E-03_JPRB,.172E-03_JPRB,.160E-03_JPRB,&
+&.161E-03_JPRB,.163E-03_JPRB,.174E-03_JPRB,.182E-03_JPRB,.188E-03_JPRB,.198E-03_JPRB,.225E-03_JPRB,&
+&.252E-03_JPRB,.296E-03_JPRB,.316E-03_JPRB,.314E-03_JPRB,.304E-03_JPRB,.299E-03_JPRB,.300E-03_JPRB,&
+&.301E-03_JPRB,.292E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 11  50.0
+ZAER (:,11, 5) = (/&
+&.344E-03_JPRB,.343E-03_JPRB,.307E-03_JPRB,.302E-03_JPRB,.298E-03_JPRB,.293E-03_JPRB,.274E-03_JPRB,&
+&.258E-03_JPRB,.227E-03_JPRB,.212E-03_JPRB,.202E-03_JPRB,.192E-03_JPRB,.188E-03_JPRB,.185E-03_JPRB,&
+&.182E-03_JPRB,.178E-03_JPRB,.174E-03_JPRB,.168E-03_JPRB,.161E-03_JPRB,.159E-03_JPRB,.157E-03_JPRB,&
+&.161E-03_JPRB,.166E-03_JPRB,.172E-03_JPRB,.185E-03_JPRB,.198E-03_JPRB,.212E-03_JPRB,.263E-03_JPRB,&
+&.297E-03_JPRB,.325E-03_JPRB,.350E-03_JPRB,.346E-03_JPRB,.342E-03_JPRB,.331E-03_JPRB,.315E-03_JPRB,&
+&.299E-03_JPRB,.269E-03_JPRB,.236E-03_JPRB,.214E-03_JPRB,.183E-03_JPRB,.172E-03_JPRB,.172E-03_JPRB,&
+&.177E-03_JPRB,.199E-03_JPRB,.218E-03_JPRB,.240E-03_JPRB,.276E-03_JPRB,.279E-03_JPRB,.279E-03_JPRB,&
+&.257E-03_JPRB,.241E-03_JPRB,.226E-03_JPRB,.206E-03_JPRB,.192E-03_JPRB,.180E-03_JPRB,.164E-03_JPRB,&
+&.161E-03_JPRB,.162E-03_JPRB,.169E-03_JPRB,.180E-03_JPRB,.191E-03_JPRB,.210E-03_JPRB,.242E-03_JPRB,&
+&.275E-03_JPRB,.325E-03_JPRB,.372E-03_JPRB,.382E-03_JPRB,.384E-03_JPRB,.361E-03_JPRB,.359E-03_JPRB,&
+&.360E-03_JPRB,.345E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 12  46.0
+ZAER (:,12, 5) = (/&
+&.384E-03_JPRB,.381E-03_JPRB,.317E-03_JPRB,.310E-03_JPRB,.304E-03_JPRB,.302E-03_JPRB,.291E-03_JPRB,&
+&.280E-03_JPRB,.253E-03_JPRB,.237E-03_JPRB,.228E-03_JPRB,.219E-03_JPRB,.212E-03_JPRB,.209E-03_JPRB,&
+&.208E-03_JPRB,.206E-03_JPRB,.202E-03_JPRB,.192E-03_JPRB,.182E-03_JPRB,.178E-03_JPRB,.174E-03_JPRB,&
+&.175E-03_JPRB,.182E-03_JPRB,.190E-03_JPRB,.218E-03_JPRB,.248E-03_JPRB,.281E-03_JPRB,.378E-03_JPRB,&
+&.428E-03_JPRB,.469E-03_JPRB,.514E-03_JPRB,.504E-03_JPRB,.489E-03_JPRB,.448E-03_JPRB,.410E-03_JPRB,&
+&.378E-03_JPRB,.324E-03_JPRB,.274E-03_JPRB,.244E-03_JPRB,.210E-03_JPRB,.197E-03_JPRB,.199E-03_JPRB,&
+&.208E-03_JPRB,.238E-03_JPRB,.265E-03_JPRB,.297E-03_JPRB,.346E-03_JPRB,.342E-03_JPRB,.335E-03_JPRB,&
+&.289E-03_JPRB,.264E-03_JPRB,.240E-03_JPRB,.211E-03_JPRB,.198E-03_JPRB,.187E-03_JPRB,.169E-03_JPRB,&
+&.165E-03_JPRB,.165E-03_JPRB,.171E-03_JPRB,.182E-03_JPRB,.195E-03_JPRB,.217E-03_JPRB,.256E-03_JPRB,&
+&.294E-03_JPRB,.354E-03_JPRB,.432E-03_JPRB,.465E-03_JPRB,.495E-03_JPRB,.457E-03_JPRB,.440E-03_JPRB,&
+&.424E-03_JPRB,.385E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 13  42.0
+ZAER (:,13, 5) = (/&
+&.443E-03_JPRB,.440E-03_JPRB,.344E-03_JPRB,.329E-03_JPRB,.317E-03_JPRB,.311E-03_JPRB,.307E-03_JPRB,&
+&.301E-03_JPRB,.278E-03_JPRB,.263E-03_JPRB,.254E-03_JPRB,.247E-03_JPRB,.239E-03_JPRB,.235E-03_JPRB,&
+&.233E-03_JPRB,.231E-03_JPRB,.226E-03_JPRB,.216E-03_JPRB,.204E-03_JPRB,.198E-03_JPRB,.192E-03_JPRB,&
+&.195E-03_JPRB,.209E-03_JPRB,.225E-03_JPRB,.295E-03_JPRB,.366E-03_JPRB,.437E-03_JPRB,.552E-03_JPRB,&
+&.592E-03_JPRB,.631E-03_JPRB,.706E-03_JPRB,.678E-03_JPRB,.646E-03_JPRB,.572E-03_JPRB,.497E-03_JPRB,&
+&.442E-03_JPRB,.365E-03_JPRB,.320E-03_JPRB,.296E-03_JPRB,.271E-03_JPRB,.265E-03_JPRB,.273E-03_JPRB,&
+&.291E-03_JPRB,.331E-03_JPRB,.371E-03_JPRB,.420E-03_JPRB,.477E-03_JPRB,.464E-03_JPRB,.446E-03_JPRB,&
+&.364E-03_JPRB,.320E-03_JPRB,.279E-03_JPRB,.232E-03_JPRB,.215E-03_JPRB,.201E-03_JPRB,.188E-03_JPRB,&
+&.183E-03_JPRB,.182E-03_JPRB,.189E-03_JPRB,.199E-03_JPRB,.212E-03_JPRB,.236E-03_JPRB,.291E-03_JPRB,&
+&.345E-03_JPRB,.431E-03_JPRB,.532E-03_JPRB,.578E-03_JPRB,.624E-03_JPRB,.567E-03_JPRB,.539E-03_JPRB,&
+&.510E-03_JPRB,.445E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 14  38.0
+ZAER (:,14, 5) = (/&
+&.519E-03_JPRB,.516E-03_JPRB,.419E-03_JPRB,.391E-03_JPRB,.366E-03_JPRB,.340E-03_JPRB,.333E-03_JPRB,&
+&.325E-03_JPRB,.302E-03_JPRB,.289E-03_JPRB,.281E-03_JPRB,.272E-03_JPRB,.266E-03_JPRB,.263E-03_JPRB,&
+&.258E-03_JPRB,.253E-03_JPRB,.246E-03_JPRB,.237E-03_JPRB,.224E-03_JPRB,.218E-03_JPRB,.212E-03_JPRB,&
+&.227E-03_JPRB,.259E-03_JPRB,.294E-03_JPRB,.470E-03_JPRB,.637E-03_JPRB,.794E-03_JPRB,.884E-03_JPRB,&
+&.914E-03_JPRB,.944E-03_JPRB,.100E-02_JPRB,.939E-03_JPRB,.874E-03_JPRB,.730E-03_JPRB,.599E-03_JPRB,&
+&.516E-03_JPRB,.424E-03_JPRB,.396E-03_JPRB,.388E-03_JPRB,.390E-03_JPRB,.416E-03_JPRB,.445E-03_JPRB,&
+&.490E-03_JPRB,.543E-03_JPRB,.598E-03_JPRB,.666E-03_JPRB,.689E-03_JPRB,.643E-03_JPRB,.591E-03_JPRB,&
+&.483E-03_JPRB,.416E-03_JPRB,.353E-03_JPRB,.284E-03_JPRB,.260E-03_JPRB,.243E-03_JPRB,.233E-03_JPRB,&
+&.227E-03_JPRB,.226E-03_JPRB,.234E-03_JPRB,.248E-03_JPRB,.265E-03_JPRB,.298E-03_JPRB,.397E-03_JPRB,&
+&.485E-03_JPRB,.616E-03_JPRB,.740E-03_JPRB,.801E-03_JPRB,.866E-03_JPRB,.743E-03_JPRB,.682E-03_JPRB,&
+&.619E-03_JPRB,.522E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 15  34.0
+ZAER (:,15, 5) = (/&
+&.612E-03_JPRB,.609E-03_JPRB,.515E-03_JPRB,.479E-03_JPRB,.445E-03_JPRB,.397E-03_JPRB,.376E-03_JPRB,&
+&.360E-03_JPRB,.337E-03_JPRB,.323E-03_JPRB,.313E-03_JPRB,.302E-03_JPRB,.293E-03_JPRB,.288E-03_JPRB,&
+&.283E-03_JPRB,.273E-03_JPRB,.265E-03_JPRB,.256E-03_JPRB,.245E-03_JPRB,.241E-03_JPRB,.238E-03_JPRB,&
+&.284E-03_JPRB,.348E-03_JPRB,.419E-03_JPRB,.817E-03_JPRB,.117E-02_JPRB,.150E-02_JPRB,.162E-02_JPRB,&
+&.156E-02_JPRB,.149E-02_JPRB,.132E-02_JPRB,.118E-02_JPRB,.106E-02_JPRB,.866E-03_JPRB,.694E-03_JPRB,&
+&.595E-03_JPRB,.507E-03_JPRB,.524E-03_JPRB,.556E-03_JPRB,.620E-03_JPRB,.725E-03_JPRB,.820E-03_JPRB,&
+&.951E-03_JPRB,.969E-03_JPRB,.986E-03_JPRB,.101E-02_JPRB,.933E-03_JPRB,.852E-03_JPRB,.767E-03_JPRB,&
+&.641E-03_JPRB,.548E-03_JPRB,.463E-03_JPRB,.372E-03_JPRB,.347E-03_JPRB,.328E-03_JPRB,.315E-03_JPRB,&
+&.308E-03_JPRB,.307E-03_JPRB,.322E-03_JPRB,.347E-03_JPRB,.387E-03_JPRB,.473E-03_JPRB,.739E-03_JPRB,&
+&.917E-03_JPRB,.115E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.949E-03_JPRB,.838E-03_JPRB,&
+&.731E-03_JPRB,.616E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 16  30.0
+ZAER (:,16, 5) = (/&
+&.710E-03_JPRB,.706E-03_JPRB,.598E-03_JPRB,.558E-03_JPRB,.521E-03_JPRB,.465E-03_JPRB,.433E-03_JPRB,&
+&.410E-03_JPRB,.388E-03_JPRB,.367E-03_JPRB,.353E-03_JPRB,.336E-03_JPRB,.318E-03_JPRB,.309E-03_JPRB,&
+&.302E-03_JPRB,.289E-03_JPRB,.281E-03_JPRB,.272E-03_JPRB,.269E-03_JPRB,.272E-03_JPRB,.277E-03_JPRB,&
+&.382E-03_JPRB,.498E-03_JPRB,.625E-03_JPRB,.156E-02_JPRB,.239E-02_JPRB,.315E-02_JPRB,.310E-02_JPRB,&
+&.262E-02_JPRB,.220E-02_JPRB,.162E-02_JPRB,.135E-02_JPRB,.116E-02_JPRB,.944E-03_JPRB,.767E-03_JPRB,&
+&.676E-03_JPRB,.622E-03_JPRB,.738E-03_JPRB,.873E-03_JPRB,.111E-02_JPRB,.150E-02_JPRB,.170E-02_JPRB,&
+&.192E-02_JPRB,.170E-02_JPRB,.154E-02_JPRB,.135E-02_JPRB,.109E-02_JPRB,.997E-03_JPRB,.908E-03_JPRB,&
+&.800E-03_JPRB,.695E-03_JPRB,.599E-03_JPRB,.491E-03_JPRB,.465E-03_JPRB,.445E-03_JPRB,.426E-03_JPRB,&
+&.423E-03_JPRB,.428E-03_JPRB,.454E-03_JPRB,.510E-03_JPRB,.631E-03_JPRB,.919E-03_JPRB,.171E-02_JPRB,&
+&.211E-02_JPRB,.252E-02_JPRB,.226E-02_JPRB,.200E-02_JPRB,.165E-02_JPRB,.116E-02_JPRB,.993E-03_JPRB,&
+&.844E-03_JPRB,.714E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 17  26.0
+ZAER (:,17, 5) = (/&
+&.777E-03_JPRB,.773E-03_JPRB,.648E-03_JPRB,.605E-03_JPRB,.566E-03_JPRB,.517E-03_JPRB,.484E-03_JPRB,&
+&.460E-03_JPRB,.435E-03_JPRB,.410E-03_JPRB,.391E-03_JPRB,.367E-03_JPRB,.343E-03_JPRB,.331E-03_JPRB,&
+&.321E-03_JPRB,.307E-03_JPRB,.300E-03_JPRB,.294E-03_JPRB,.312E-03_JPRB,.329E-03_JPRB,.349E-03_JPRB,&
+&.530E-03_JPRB,.761E-03_JPRB,.102E-02_JPRB,.322E-02_JPRB,.495E-02_JPRB,.646E-02_JPRB,.527E-02_JPRB,&
+&.405E-02_JPRB,.304E-02_JPRB,.191E-02_JPRB,.149E-02_JPRB,.121E-02_JPRB,.966E-03_JPRB,.820E-03_JPRB,&
+&.770E-03_JPRB,.809E-03_JPRB,.111E-02_JPRB,.146E-02_JPRB,.208E-02_JPRB,.296E-02_JPRB,.321E-02_JPRB,&
+&.335E-02_JPRB,.254E-02_JPRB,.209E-02_JPRB,.161E-02_JPRB,.116E-02_JPRB,.105E-02_JPRB,.956E-03_JPRB,&
+&.892E-03_JPRB,.800E-03_JPRB,.713E-03_JPRB,.616E-03_JPRB,.592E-03_JPRB,.574E-03_JPRB,.557E-03_JPRB,&
+&.562E-03_JPRB,.576E-03_JPRB,.626E-03_JPRB,.763E-03_JPRB,.108E-02_JPRB,.185E-02_JPRB,.369E-02_JPRB,&
+&.449E-02_JPRB,.514E-02_JPRB,.373E-02_JPRB,.294E-02_JPRB,.204E-02_JPRB,.137E-02_JPRB,.114E-02_JPRB,&
+&.934E-03_JPRB,.782E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 18  22.0
+ZAER (:,18, 5) = (/&
+&.778E-03_JPRB,.774E-03_JPRB,.651E-03_JPRB,.612E-03_JPRB,.577E-03_JPRB,.537E-03_JPRB,.510E-03_JPRB,&
+&.487E-03_JPRB,.456E-03_JPRB,.435E-03_JPRB,.419E-03_JPRB,.396E-03_JPRB,.376E-03_JPRB,.365E-03_JPRB,&
+&.354E-03_JPRB,.342E-03_JPRB,.341E-03_JPRB,.346E-03_JPRB,.412E-03_JPRB,.460E-03_JPRB,.519E-03_JPRB,&
+&.869E-03_JPRB,.139E-02_JPRB,.197E-02_JPRB,.625E-02_JPRB,.875E-02_JPRB,.108E-01_JPRB,.759E-02_JPRB,&
+&.556E-02_JPRB,.388E-02_JPRB,.211E-02_JPRB,.157E-02_JPRB,.121E-02_JPRB,.957E-03_JPRB,.883E-03_JPRB,&
+&.908E-03_JPRB,.109E-02_JPRB,.165E-02_JPRB,.224E-02_JPRB,.326E-02_JPRB,.443E-02_JPRB,.459E-02_JPRB,&
+&.444E-02_JPRB,.304E-02_JPRB,.244E-02_JPRB,.184E-02_JPRB,.126E-02_JPRB,.109E-02_JPRB,.949E-03_JPRB,&
+&.905E-03_JPRB,.839E-03_JPRB,.778E-03_JPRB,.721E-03_JPRB,.706E-03_JPRB,.695E-03_JPRB,.687E-03_JPRB,&
+&.706E-03_JPRB,.747E-03_JPRB,.874E-03_JPRB,.120E-02_JPRB,.182E-02_JPRB,.327E-02_JPRB,.622E-02_JPRB,&
+&.724E-02_JPRB,.771E-02_JPRB,.477E-02_JPRB,.347E-02_JPRB,.222E-02_JPRB,.146E-02_JPRB,.119E-02_JPRB,&
+&.937E-03_JPRB,.783E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 19  18.0
+ZAER (:,19, 5) = (/&
+&.717E-03_JPRB,.714E-03_JPRB,.614E-03_JPRB,.582E-03_JPRB,.555E-03_JPRB,.522E-03_JPRB,.502E-03_JPRB,&
+&.484E-03_JPRB,.452E-03_JPRB,.444E-03_JPRB,.439E-03_JPRB,.432E-03_JPRB,.425E-03_JPRB,.419E-03_JPRB,&
+&.409E-03_JPRB,.405E-03_JPRB,.428E-03_JPRB,.475E-03_JPRB,.644E-03_JPRB,.793E-03_JPRB,.979E-03_JPRB,&
+&.171E-02_JPRB,.281E-02_JPRB,.403E-02_JPRB,.103E-01_JPRB,.125E-01_JPRB,.142E-01_JPRB,.897E-02_JPRB,&
+&.638E-02_JPRB,.424E-02_JPRB,.208E-02_JPRB,.151E-02_JPRB,.116E-02_JPRB,.973E-03_JPRB,.101E-02_JPRB,&
+&.113E-02_JPRB,.148E-02_JPRB,.239E-02_JPRB,.315E-02_JPRB,.428E-02_JPRB,.512E-02_JPRB,.507E-02_JPRB,&
+&.465E-02_JPRB,.314E-02_JPRB,.258E-02_JPRB,.207E-02_JPRB,.143E-02_JPRB,.118E-02_JPRB,.946E-03_JPRB,&
+&.888E-03_JPRB,.851E-03_JPRB,.818E-03_JPRB,.794E-03_JPRB,.788E-03_JPRB,.785E-03_JPRB,.795E-03_JPRB,&
+&.860E-03_JPRB,.960E-03_JPRB,.124E-02_JPRB,.186E-02_JPRB,.277E-02_JPRB,.470E-02_JPRB,.768E-02_JPRB,&
+&.825E-02_JPRB,.773E-02_JPRB,.430E-02_JPRB,.304E-02_JPRB,.197E-02_JPRB,.129E-02_JPRB,.105E-02_JPRB,&
+&.842E-03_JPRB,.721E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 20  14.0
+ZAER (:,20, 5) = (/&
+&.656E-03_JPRB,.653E-03_JPRB,.565E-03_JPRB,.534E-03_JPRB,.508E-03_JPRB,.484E-03_JPRB,.471E-03_JPRB,&
+&.460E-03_JPRB,.444E-03_JPRB,.453E-03_JPRB,.461E-03_JPRB,.477E-03_JPRB,.485E-03_JPRB,.487E-03_JPRB,&
+&.486E-03_JPRB,.510E-03_JPRB,.583E-03_JPRB,.716E-03_JPRB,.108E-02_JPRB,.143E-02_JPRB,.189E-02_JPRB,&
+&.314E-02_JPRB,.490E-02_JPRB,.686E-02_JPRB,.137E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,.834E-02_JPRB,&
+&.570E-02_JPRB,.357E-02_JPRB,.179E-02_JPRB,.136E-02_JPRB,.111E-02_JPRB,.106E-02_JPRB,.123E-02_JPRB,&
+&.147E-02_JPRB,.203E-02_JPRB,.342E-02_JPRB,.437E-02_JPRB,.563E-02_JPRB,.576E-02_JPRB,.539E-02_JPRB,&
+&.469E-02_JPRB,.319E-02_JPRB,.265E-02_JPRB,.216E-02_JPRB,.149E-02_JPRB,.121E-02_JPRB,.944E-03_JPRB,&
+&.879E-03_JPRB,.864E-03_JPRB,.849E-03_JPRB,.830E-03_JPRB,.829E-03_JPRB,.837E-03_JPRB,.899E-03_JPRB,&
+&.108E-02_JPRB,.126E-02_JPRB,.166E-02_JPRB,.252E-02_JPRB,.348E-02_JPRB,.536E-02_JPRB,.691E-02_JPRB,&
+&.663E-02_JPRB,.510E-02_JPRB,.280E-02_JPRB,.202E-02_JPRB,.143E-02_JPRB,.100E-02_JPRB,.865E-03_JPRB,&
+&.748E-03_JPRB,.659E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 21  10.0
+ZAER (:,21, 5) = (/&
+&.618E-03_JPRB,.615E-03_JPRB,.525E-03_JPRB,.495E-03_JPRB,.470E-03_JPRB,.451E-03_JPRB,.446E-03_JPRB,&
+&.444E-03_JPRB,.453E-03_JPRB,.470E-03_JPRB,.487E-03_JPRB,.520E-03_JPRB,.547E-03_JPRB,.566E-03_JPRB,&
+&.592E-03_JPRB,.666E-03_JPRB,.804E-03_JPRB,.104E-02_JPRB,.165E-02_JPRB,.224E-02_JPRB,.297E-02_JPRB,&
+&.445E-02_JPRB,.638E-02_JPRB,.851E-02_JPRB,.137E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.629E-02_JPRB,&
+&.406E-02_JPRB,.234E-02_JPRB,.140E-02_JPRB,.120E-02_JPRB,.111E-02_JPRB,.125E-02_JPRB,.157E-02_JPRB,&
+&.193E-02_JPRB,.267E-02_JPRB,.440E-02_JPRB,.564E-02_JPRB,.731E-02_JPRB,.710E-02_JPRB,.628E-02_JPRB,&
+&.489E-02_JPRB,.307E-02_JPRB,.248E-02_JPRB,.197E-02_JPRB,.141E-02_JPRB,.118E-02_JPRB,.975E-03_JPRB,&
+&.899E-03_JPRB,.877E-03_JPRB,.856E-03_JPRB,.824E-03_JPRB,.839E-03_JPRB,.878E-03_JPRB,.106E-02_JPRB,&
+&.142E-02_JPRB,.167E-02_JPRB,.199E-02_JPRB,.281E-02_JPRB,.356E-02_JPRB,.484E-02_JPRB,.486E-02_JPRB,&
+&.423E-02_JPRB,.285E-02_JPRB,.174E-02_JPRB,.137E-02_JPRB,.108E-02_JPRB,.859E-03_JPRB,.779E-03_JPRB,&
+&.706E-03_JPRB,.621E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 22   6.0
+ZAER (:,22, 5) = (/&
+&.618E-03_JPRB,.615E-03_JPRB,.519E-03_JPRB,.487E-03_JPRB,.461E-03_JPRB,.449E-03_JPRB,.454E-03_JPRB,&
+&.461E-03_JPRB,.479E-03_JPRB,.497E-03_JPRB,.517E-03_JPRB,.560E-03_JPRB,.618E-03_JPRB,.658E-03_JPRB,&
+&.713E-03_JPRB,.831E-03_JPRB,.102E-02_JPRB,.135E-02_JPRB,.217E-02_JPRB,.292E-02_JPRB,.387E-02_JPRB,&
+&.505E-02_JPRB,.650E-02_JPRB,.809E-02_JPRB,.107E-01_JPRB,.103E-01_JPRB,.972E-02_JPRB,.426E-02_JPRB,&
+&.278E-02_JPRB,.165E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.119E-02_JPRB,.146E-02_JPRB,.192E-02_JPRB,&
+&.235E-02_JPRB,.313E-02_JPRB,.476E-02_JPRB,.612E-02_JPRB,.817E-02_JPRB,.813E-02_JPRB,.707E-02_JPRB,&
+&.516E-02_JPRB,.297E-02_JPRB,.231E-02_JPRB,.177E-02_JPRB,.134E-02_JPRB,.117E-02_JPRB,.102E-02_JPRB,&
+&.924E-03_JPRB,.880E-03_JPRB,.842E-03_JPRB,.814E-03_JPRB,.864E-03_JPRB,.954E-03_JPRB,.132E-02_JPRB,&
+&.174E-02_JPRB,.200E-02_JPRB,.218E-02_JPRB,.269E-02_JPRB,.309E-02_JPRB,.372E-02_JPRB,.322E-02_JPRB,&
+&.266E-02_JPRB,.176E-02_JPRB,.125E-02_JPRB,.108E-02_JPRB,.937E-03_JPRB,.813E-03_JPRB,.759E-03_JPRB,&
+&.706E-03_JPRB,.621E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 23   2.0
+ZAER (:,23, 5) = (/&
+&.628E-03_JPRB,.626E-03_JPRB,.544E-03_JPRB,.513E-03_JPRB,.488E-03_JPRB,.477E-03_JPRB,.488E-03_JPRB,&
+&.498E-03_JPRB,.517E-03_JPRB,.536E-03_JPRB,.559E-03_JPRB,.613E-03_JPRB,.706E-03_JPRB,.766E-03_JPRB,&
+&.839E-03_JPRB,.972E-03_JPRB,.120E-02_JPRB,.157E-02_JPRB,.258E-02_JPRB,.346E-02_JPRB,.454E-02_JPRB,&
+&.502E-02_JPRB,.584E-02_JPRB,.676E-02_JPRB,.737E-02_JPRB,.674E-02_JPRB,.599E-02_JPRB,.270E-02_JPRB,&
+&.190E-02_JPRB,.129E-02_JPRB,.104E-02_JPRB,.112E-02_JPRB,.123E-02_JPRB,.157E-02_JPRB,.206E-02_JPRB,&
+&.250E-02_JPRB,.325E-02_JPRB,.446E-02_JPRB,.553E-02_JPRB,.721E-02_JPRB,.745E-02_JPRB,.670E-02_JPRB,&
+&.525E-02_JPRB,.299E-02_JPRB,.228E-02_JPRB,.169E-02_JPRB,.129E-02_JPRB,.117E-02_JPRB,.106E-02_JPRB,&
+&.937E-03_JPRB,.890E-03_JPRB,.852E-03_JPRB,.877E-03_JPRB,.950E-03_JPRB,.107E-02_JPRB,.157E-02_JPRB,&
+&.190E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.231E-02_JPRB,.248E-02_JPRB,.268E-02_JPRB,.220E-02_JPRB,&
+&.185E-02_JPRB,.136E-02_JPRB,.107E-02_JPRB,.977E-03_JPRB,.916E-03_JPRB,.822E-03_JPRB,.772E-03_JPRB,&
+&.721E-03_JPRB,.631E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 24  -2.0
+ZAER (:,24, 5) = (/&
+&.678E-03_JPRB,.675E-03_JPRB,.601E-03_JPRB,.570E-03_JPRB,.544E-03_JPRB,.528E-03_JPRB,.531E-03_JPRB,&
+&.537E-03_JPRB,.560E-03_JPRB,.578E-03_JPRB,.605E-03_JPRB,.677E-03_JPRB,.791E-03_JPRB,.860E-03_JPRB,&
+&.940E-03_JPRB,.109E-02_JPRB,.136E-02_JPRB,.182E-02_JPRB,.285E-02_JPRB,.361E-02_JPRB,.450E-02_JPRB,&
+&.450E-02_JPRB,.478E-02_JPRB,.512E-02_JPRB,.441E-02_JPRB,.371E-02_JPRB,.301E-02_JPRB,.174E-02_JPRB,&
+&.138E-02_JPRB,.111E-02_JPRB,.103E-02_JPRB,.113E-02_JPRB,.125E-02_JPRB,.155E-02_JPRB,.197E-02_JPRB,&
+&.237E-02_JPRB,.307E-02_JPRB,.374E-02_JPRB,.426E-02_JPRB,.499E-02_JPRB,.515E-02_JPRB,.476E-02_JPRB,&
+&.401E-02_JPRB,.254E-02_JPRB,.203E-02_JPRB,.158E-02_JPRB,.128E-02_JPRB,.119E-02_JPRB,.111E-02_JPRB,&
+&.995E-03_JPRB,.101E-02_JPRB,.102E-02_JPRB,.108E-02_JPRB,.112E-02_JPRB,.121E-02_JPRB,.168E-02_JPRB,&
+&.195E-02_JPRB,.206E-02_JPRB,.197E-02_JPRB,.211E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.187E-02_JPRB,&
+&.166E-02_JPRB,.136E-02_JPRB,.113E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.930E-03_JPRB,.865E-03_JPRB,&
+&.794E-03_JPRB,.681E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 25  -6.0
+ZAER (:,25, 5) = (/&
+&.821E-03_JPRB,.817E-03_JPRB,.691E-03_JPRB,.662E-03_JPRB,.636E-03_JPRB,.611E-03_JPRB,.612E-03_JPRB,&
+&.614E-03_JPRB,.622E-03_JPRB,.641E-03_JPRB,.674E-03_JPRB,.762E-03_JPRB,.857E-03_JPRB,.916E-03_JPRB,&
+&.984E-03_JPRB,.122E-02_JPRB,.156E-02_JPRB,.213E-02_JPRB,.297E-02_JPRB,.338E-02_JPRB,.380E-02_JPRB,&
+&.385E-02_JPRB,.381E-02_JPRB,.377E-02_JPRB,.265E-02_JPRB,.222E-02_JPRB,.180E-02_JPRB,.134E-02_JPRB,&
+&.117E-02_JPRB,.106E-02_JPRB,.111E-02_JPRB,.126E-02_JPRB,.140E-02_JPRB,.172E-02_JPRB,.216E-02_JPRB,&
+&.255E-02_JPRB,.323E-02_JPRB,.355E-02_JPRB,.359E-02_JPRB,.346E-02_JPRB,.337E-02_JPRB,.316E-02_JPRB,&
+&.280E-02_JPRB,.208E-02_JPRB,.179E-02_JPRB,.152E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,.122E-02_JPRB,&
+&.125E-02_JPRB,.140E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.181E-02_JPRB,&
+&.217E-02_JPRB,.235E-02_JPRB,.233E-02_JPRB,.245E-02_JPRB,.249E-02_JPRB,.248E-02_JPRB,.211E-02_JPRB,&
+&.190E-02_JPRB,.167E-02_JPRB,.144E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.123E-02_JPRB,.113E-02_JPRB,&
+&.101E-02_JPRB,.827E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 26 -10.0
+ZAER (:,26, 5) = (/&
+&.113E-02_JPRB,.112E-02_JPRB,.929E-03_JPRB,.886E-03_JPRB,.845E-03_JPRB,.775E-03_JPRB,.769E-03_JPRB,&
+&.767E-03_JPRB,.781E-03_JPRB,.816E-03_JPRB,.854E-03_JPRB,.934E-03_JPRB,.974E-03_JPRB,.101E-02_JPRB,&
+&.107E-02_JPRB,.155E-02_JPRB,.212E-02_JPRB,.301E-02_JPRB,.366E-02_JPRB,.359E-02_JPRB,.333E-02_JPRB,&
+&.314E-02_JPRB,.302E-02_JPRB,.290E-02_JPRB,.188E-02_JPRB,.160E-02_JPRB,.135E-02_JPRB,.122E-02_JPRB,&
+&.113E-02_JPRB,.108E-02_JPRB,.119E-02_JPRB,.143E-02_JPRB,.168E-02_JPRB,.223E-02_JPRB,.253E-02_JPRB,&
+&.283E-02_JPRB,.338E-02_JPRB,.369E-02_JPRB,.361E-02_JPRB,.318E-02_JPRB,.269E-02_JPRB,.250E-02_JPRB,&
+&.234E-02_JPRB,.195E-02_JPRB,.175E-02_JPRB,.153E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.146E-02_JPRB,&
+&.185E-02_JPRB,.223E-02_JPRB,.255E-02_JPRB,.242E-02_JPRB,.211E-02_JPRB,.195E-02_JPRB,.216E-02_JPRB,&
+&.291E-02_JPRB,.335E-02_JPRB,.359E-02_JPRB,.346E-02_JPRB,.335E-02_JPRB,.316E-02_JPRB,.269E-02_JPRB,&
+&.248E-02_JPRB,.229E-02_JPRB,.199E-02_JPRB,.187E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.161E-02_JPRB,&
+&.142E-02_JPRB,.114E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 27 -14.0
+ZAER (:,27, 5) = (/&
+&.161E-02_JPRB,.160E-02_JPRB,.140E-02_JPRB,.132E-02_JPRB,.123E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.110E-02_JPRB,.115E-02_JPRB,.119E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.123E-02_JPRB,&
+&.136E-02_JPRB,.231E-02_JPRB,.328E-02_JPRB,.473E-02_JPRB,.505E-02_JPRB,.442E-02_JPRB,.340E-02_JPRB,&
+&.265E-02_JPRB,.247E-02_JPRB,.233E-02_JPRB,.163E-02_JPRB,.145E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,&
+&.121E-02_JPRB,.119E-02_JPRB,.128E-02_JPRB,.152E-02_JPRB,.185E-02_JPRB,.277E-02_JPRB,.282E-02_JPRB,&
+&.287E-02_JPRB,.300E-02_JPRB,.344E-02_JPRB,.351E-02_JPRB,.337E-02_JPRB,.269E-02_JPRB,.245E-02_JPRB,&
+&.227E-02_JPRB,.196E-02_JPRB,.176E-02_JPRB,.155E-02_JPRB,.163E-02_JPRB,.174E-02_JPRB,.185E-02_JPRB,&
+&.279E-02_JPRB,.348E-02_JPRB,.406E-02_JPRB,.399E-02_JPRB,.353E-02_JPRB,.318E-02_JPRB,.283E-02_JPRB,&
+&.402E-02_JPRB,.484E-02_JPRB,.577E-02_JPRB,.495E-02_JPRB,.447E-02_JPRB,.396E-02_JPRB,.353E-02_JPRB,&
+&.330E-02_JPRB,.307E-02_JPRB,.260E-02_JPRB,.241E-02_JPRB,.225E-02_JPRB,.230E-02_JPRB,.215E-02_JPRB,&
+&.196E-02_JPRB,.162E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 28 -18.0
+ZAER (:,28, 5) = (/&
+&.224E-02_JPRB,.224E-02_JPRB,.208E-02_JPRB,.192E-02_JPRB,.177E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,&
+&.135E-02_JPRB,.144E-02_JPRB,.150E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.162E-02_JPRB,&
+&.189E-02_JPRB,.300E-02_JPRB,.395E-02_JPRB,.528E-02_JPRB,.542E-02_JPRB,.467E-02_JPRB,.352E-02_JPRB,&
+&.246E-02_JPRB,.220E-02_JPRB,.200E-02_JPRB,.159E-02_JPRB,.147E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.135E-02_JPRB,.143E-02_JPRB,.160E-02_JPRB,.188E-02_JPRB,.278E-02_JPRB,.271E-02_JPRB,&
+&.263E-02_JPRB,.245E-02_JPRB,.271E-02_JPRB,.284E-02_JPRB,.297E-02_JPRB,.265E-02_JPRB,.251E-02_JPRB,&
+&.240E-02_JPRB,.208E-02_JPRB,.187E-02_JPRB,.164E-02_JPRB,.188E-02_JPRB,.208E-02_JPRB,.229E-02_JPRB,&
+&.372E-02_JPRB,.471E-02_JPRB,.558E-02_JPRB,.604E-02_JPRB,.558E-02_JPRB,.509E-02_JPRB,.389E-02_JPRB,&
+&.540E-02_JPRB,.671E-02_JPRB,.895E-02_JPRB,.744E-02_JPRB,.642E-02_JPRB,.512E-02_JPRB,.463E-02_JPRB,&
+&.432E-02_JPRB,.394E-02_JPRB,.320E-02_JPRB,.293E-02_JPRB,.272E-02_JPRB,.274E-02_JPRB,.262E-02_JPRB,&
+&.248E-02_JPRB,.225E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 29 -22.0
+ZAER (:,29, 5) = (/&
+&.288E-02_JPRB,.288E-02_JPRB,.272E-02_JPRB,.249E-02_JPRB,.227E-02_JPRB,.180E-02_JPRB,.170E-02_JPRB,&
+&.165E-02_JPRB,.174E-02_JPRB,.179E-02_JPRB,.182E-02_JPRB,.183E-02_JPRB,.189E-02_JPRB,.202E-02_JPRB,&
+&.230E-02_JPRB,.312E-02_JPRB,.370E-02_JPRB,.446E-02_JPRB,.467E-02_JPRB,.420E-02_JPRB,.345E-02_JPRB,&
+&.245E-02_JPRB,.217E-02_JPRB,.192E-02_JPRB,.162E-02_JPRB,.153E-02_JPRB,.144E-02_JPRB,.140E-02_JPRB,&
+&.141E-02_JPRB,.144E-02_JPRB,.156E-02_JPRB,.175E-02_JPRB,.197E-02_JPRB,.256E-02_JPRB,.244E-02_JPRB,&
+&.232E-02_JPRB,.207E-02_JPRB,.213E-02_JPRB,.224E-02_JPRB,.246E-02_JPRB,.258E-02_JPRB,.265E-02_JPRB,&
+&.273E-02_JPRB,.251E-02_JPRB,.231E-02_JPRB,.208E-02_JPRB,.238E-02_JPRB,.261E-02_JPRB,.286E-02_JPRB,&
+&.432E-02_JPRB,.534E-02_JPRB,.626E-02_JPRB,.710E-02_JPRB,.664E-02_JPRB,.619E-02_JPRB,.522E-02_JPRB,&
+&.763E-02_JPRB,.972E-02_JPRB,.133E-01_JPRB,.111E-01_JPRB,.939E-02_JPRB,.687E-02_JPRB,.590E-02_JPRB,&
+&.541E-02_JPRB,.493E-02_JPRB,.399E-02_JPRB,.362E-02_JPRB,.330E-02_JPRB,.317E-02_JPRB,.305E-02_JPRB,&
+&.290E-02_JPRB,.288E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 30 -26.0
+ZAER (:,30, 5) = (/&
+&.340E-02_JPRB,.340E-02_JPRB,.314E-02_JPRB,.288E-02_JPRB,.262E-02_JPRB,.212E-02_JPRB,.200E-02_JPRB,&
+&.194E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.202E-02_JPRB,.207E-02_JPRB,.224E-02_JPRB,.236E-02_JPRB,&
+&.250E-02_JPRB,.291E-02_JPRB,.323E-02_JPRB,.366E-02_JPRB,.398E-02_JPRB,.379E-02_JPRB,.344E-02_JPRB,&
+&.263E-02_JPRB,.235E-02_JPRB,.209E-02_JPRB,.174E-02_JPRB,.161E-02_JPRB,.150E-02_JPRB,.143E-02_JPRB,&
+&.144E-02_JPRB,.147E-02_JPRB,.164E-02_JPRB,.194E-02_JPRB,.220E-02_JPRB,.267E-02_JPRB,.249E-02_JPRB,&
+&.237E-02_JPRB,.221E-02_JPRB,.226E-02_JPRB,.243E-02_JPRB,.282E-02_JPRB,.319E-02_JPRB,.335E-02_JPRB,&
+&.349E-02_JPRB,.341E-02_JPRB,.332E-02_JPRB,.322E-02_JPRB,.336E-02_JPRB,.352E-02_JPRB,.370E-02_JPRB,&
+&.487E-02_JPRB,.550E-02_JPRB,.605E-02_JPRB,.620E-02_JPRB,.568E-02_JPRB,.543E-02_JPRB,.598E-02_JPRB,&
+&.101E-01_JPRB,.133E-01_JPRB,.182E-01_JPRB,.156E-01_JPRB,.133E-01_JPRB,.948E-02_JPRB,.756E-02_JPRB,&
+&.672E-02_JPRB,.603E-02_JPRB,.501E-02_JPRB,.452E-02_JPRB,.403E-02_JPRB,.367E-02_JPRB,.350E-02_JPRB,&
+&.332E-02_JPRB,.340E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 31 -30.0
+ZAER (:,31, 5) = (/&
+&.373E-02_JPRB,.372E-02_JPRB,.338E-02_JPRB,.309E-02_JPRB,.281E-02_JPRB,.238E-02_JPRB,.225E-02_JPRB,&
+&.217E-02_JPRB,.216E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.224E-02_JPRB,.248E-02_JPRB,.256E-02_JPRB,&
+&.256E-02_JPRB,.270E-02_JPRB,.294E-02_JPRB,.335E-02_JPRB,.377E-02_JPRB,.376E-02_JPRB,.367E-02_JPRB,&
+&.304E-02_JPRB,.270E-02_JPRB,.236E-02_JPRB,.191E-02_JPRB,.174E-02_JPRB,.159E-02_JPRB,.149E-02_JPRB,&
+&.148E-02_JPRB,.149E-02_JPRB,.169E-02_JPRB,.206E-02_JPRB,.239E-02_JPRB,.300E-02_JPRB,.299E-02_JPRB,&
+&.300E-02_JPRB,.303E-02_JPRB,.348E-02_JPRB,.395E-02_JPRB,.472E-02_JPRB,.519E-02_JPRB,.528E-02_JPRB,&
+&.526E-02_JPRB,.509E-02_JPRB,.496E-02_JPRB,.482E-02_JPRB,.459E-02_JPRB,.469E-02_JPRB,.483E-02_JPRB,&
+&.571E-02_JPRB,.567E-02_JPRB,.556E-02_JPRB,.458E-02_JPRB,.408E-02_JPRB,.402E-02_JPRB,.582E-02_JPRB,&
+&.112E-01_JPRB,.153E-01_JPRB,.214E-01_JPRB,.196E-01_JPRB,.174E-01_JPRB,.129E-01_JPRB,.981E-02_JPRB,&
+&.840E-02_JPRB,.718E-02_JPRB,.593E-02_JPRB,.530E-02_JPRB,.462E-02_JPRB,.414E-02_JPRB,.393E-02_JPRB,&
+&.373E-02_JPRB,.373E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 32 -34.0
+ZAER (:,32, 5) = (/&
+&.388E-02_JPRB,.387E-02_JPRB,.352E-02_JPRB,.322E-02_JPRB,.294E-02_JPRB,.257E-02_JPRB,.241E-02_JPRB,&
+&.229E-02_JPRB,.216E-02_JPRB,.209E-02_JPRB,.212E-02_JPRB,.234E-02_JPRB,.256E-02_JPRB,.259E-02_JPRB,&
+&.244E-02_JPRB,.251E-02_JPRB,.275E-02_JPRB,.320E-02_JPRB,.367E-02_JPRB,.379E-02_JPRB,.387E-02_JPRB,&
+&.343E-02_JPRB,.304E-02_JPRB,.262E-02_JPRB,.207E-02_JPRB,.189E-02_JPRB,.172E-02_JPRB,.157E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.170E-02_JPRB,.206E-02_JPRB,.243E-02_JPRB,.318E-02_JPRB,.375E-02_JPRB,&
+&.419E-02_JPRB,.485E-02_JPRB,.625E-02_JPRB,.717E-02_JPRB,.832E-02_JPRB,.876E-02_JPRB,.878E-02_JPRB,&
+&.863E-02_JPRB,.765E-02_JPRB,.708E-02_JPRB,.646E-02_JPRB,.587E-02_JPRB,.602E-02_JPRB,.623E-02_JPRB,&
+&.691E-02_JPRB,.626E-02_JPRB,.559E-02_JPRB,.396E-02_JPRB,.352E-02_JPRB,.350E-02_JPRB,.528E-02_JPRB,&
+&.102E-01_JPRB,.143E-01_JPRB,.212E-01_JPRB,.211E-01_JPRB,.196E-01_JPRB,.154E-01_JPRB,.116E-01_JPRB,&
+&.982E-02_JPRB,.808E-02_JPRB,.643E-02_JPRB,.568E-02_JPRB,.491E-02_JPRB,.440E-02_JPRB,.419E-02_JPRB,&
+&.398E-02_JPRB,.389E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 33 -38.0
+ZAER (:,33, 5) = (/&
+&.385E-02_JPRB,.384E-02_JPRB,.355E-02_JPRB,.327E-02_JPRB,.301E-02_JPRB,.267E-02_JPRB,.246E-02_JPRB,&
+&.229E-02_JPRB,.210E-02_JPRB,.207E-02_JPRB,.212E-02_JPRB,.236E-02_JPRB,.250E-02_JPRB,.246E-02_JPRB,&
+&.224E-02_JPRB,.231E-02_JPRB,.253E-02_JPRB,.293E-02_JPRB,.335E-02_JPRB,.351E-02_JPRB,.366E-02_JPRB,&
+&.345E-02_JPRB,.315E-02_JPRB,.280E-02_JPRB,.220E-02_JPRB,.200E-02_JPRB,.182E-02_JPRB,.163E-02_JPRB,&
+&.158E-02_JPRB,.155E-02_JPRB,.167E-02_JPRB,.203E-02_JPRB,.240E-02_JPRB,.321E-02_JPRB,.451E-02_JPRB,&
+&.564E-02_JPRB,.756E-02_JPRB,.105E-01_JPRB,.120E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,&
+&.134E-01_JPRB,.114E-01_JPRB,.101E-01_JPRB,.857E-02_JPRB,.751E-02_JPRB,.769E-02_JPRB,.795E-02_JPRB,&
+&.845E-02_JPRB,.750E-02_JPRB,.655E-02_JPRB,.479E-02_JPRB,.431E-02_JPRB,.413E-02_JPRB,.504E-02_JPRB,&
+&.801E-02_JPRB,.109E-01_JPRB,.167E-01_JPRB,.186E-01_JPRB,.183E-01_JPRB,.151E-01_JPRB,.117E-01_JPRB,&
+&.992E-02_JPRB,.809E-02_JPRB,.638E-02_JPRB,.564E-02_JPRB,.493E-02_JPRB,.435E-02_JPRB,.414E-02_JPRB,&
+&.394E-02_JPRB,.386E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 34 -42.0
+ZAER (:,34, 5) = (/&
+&.360E-02_JPRB,.359E-02_JPRB,.337E-02_JPRB,.315E-02_JPRB,.294E-02_JPRB,.265E-02_JPRB,.243E-02_JPRB,&
+&.227E-02_JPRB,.210E-02_JPRB,.209E-02_JPRB,.212E-02_JPRB,.225E-02_JPRB,.230E-02_JPRB,.226E-02_JPRB,&
+&.211E-02_JPRB,.217E-02_JPRB,.230E-02_JPRB,.252E-02_JPRB,.277E-02_JPRB,.288E-02_JPRB,.299E-02_JPRB,&
+&.304E-02_JPRB,.291E-02_JPRB,.275E-02_JPRB,.221E-02_JPRB,.202E-02_JPRB,.184E-02_JPRB,.165E-02_JPRB,&
+&.158E-02_JPRB,.154E-02_JPRB,.166E-02_JPRB,.207E-02_JPRB,.249E-02_JPRB,.343E-02_JPRB,.525E-02_JPRB,&
+&.704E-02_JPRB,.104E-01_JPRB,.155E-01_JPRB,.180E-01_JPRB,.205E-01_JPRB,.196E-01_JPRB,.192E-01_JPRB,&
+&.189E-01_JPRB,.166E-01_JPRB,.146E-01_JPRB,.121E-01_JPRB,.994E-02_JPRB,.992E-02_JPRB,.100E-01_JPRB,&
+&.103E-01_JPRB,.925E-02_JPRB,.825E-02_JPRB,.648E-02_JPRB,.580E-02_JPRB,.533E-02_JPRB,.520E-02_JPRB,&
+&.614E-02_JPRB,.736E-02_JPRB,.104E-01_JPRB,.131E-01_JPRB,.137E-01_JPRB,.127E-01_JPRB,.100E-01_JPRB,&
+&.861E-02_JPRB,.709E-02_JPRB,.582E-02_JPRB,.524E-02_JPRB,.466E-02_JPRB,.407E-02_JPRB,.385E-02_JPRB,&
+&.365E-02_JPRB,.360E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 35 -46.0
+ZAER (:,35, 5) = (/&
+&.316E-02_JPRB,.315E-02_JPRB,.298E-02_JPRB,.283E-02_JPRB,.270E-02_JPRB,.249E-02_JPRB,.234E-02_JPRB,&
+&.223E-02_JPRB,.211E-02_JPRB,.207E-02_JPRB,.204E-02_JPRB,.203E-02_JPRB,.206E-02_JPRB,.207E-02_JPRB,&
+&.205E-02_JPRB,.207E-02_JPRB,.210E-02_JPRB,.214E-02_JPRB,.217E-02_JPRB,.221E-02_JPRB,.225E-02_JPRB,&
+&.239E-02_JPRB,.236E-02_JPRB,.231E-02_JPRB,.199E-02_JPRB,.187E-02_JPRB,.177E-02_JPRB,.164E-02_JPRB,&
+&.160E-02_JPRB,.159E-02_JPRB,.178E-02_JPRB,.226E-02_JPRB,.278E-02_JPRB,.394E-02_JPRB,.623E-02_JPRB,&
+&.856E-02_JPRB,.130E-01_JPRB,.209E-01_JPRB,.252E-01_JPRB,.295E-01_JPRB,.270E-01_JPRB,.258E-01_JPRB,&
+&.246E-01_JPRB,.226E-01_JPRB,.199E-01_JPRB,.166E-01_JPRB,.131E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,&
+&.117E-01_JPRB,.108E-01_JPRB,.992E-02_JPRB,.808E-02_JPRB,.712E-02_JPRB,.635E-02_JPRB,.544E-02_JPRB,&
+&.529E-02_JPRB,.545E-02_JPRB,.646E-02_JPRB,.812E-02_JPRB,.881E-02_JPRB,.899E-02_JPRB,.765E-02_JPRB,&
+&.682E-02_JPRB,.581E-02_JPRB,.500E-02_JPRB,.457E-02_JPRB,.411E-02_JPRB,.363E-02_JPRB,.345E-02_JPRB,&
+&.327E-02_JPRB,.316E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 36 -50.0
+ZAER (:,36, 5) = (/&
+&.266E-02_JPRB,.266E-02_JPRB,.256E-02_JPRB,.250E-02_JPRB,.243E-02_JPRB,.229E-02_JPRB,.220E-02_JPRB,&
+&.213E-02_JPRB,.204E-02_JPRB,.197E-02_JPRB,.192E-02_JPRB,.183E-02_JPRB,.185E-02_JPRB,.189E-02_JPRB,&
+&.197E-02_JPRB,.196E-02_JPRB,.193E-02_JPRB,.187E-02_JPRB,.178E-02_JPRB,.174E-02_JPRB,.171E-02_JPRB,&
+&.173E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.161E-02_JPRB,&
+&.165E-02_JPRB,.170E-02_JPRB,.196E-02_JPRB,.253E-02_JPRB,.312E-02_JPRB,.443E-02_JPRB,.718E-02_JPRB,&
+&.100E-01_JPRB,.156E-01_JPRB,.254E-01_JPRB,.309E-01_JPRB,.370E-01_JPRB,.330E-01_JPRB,.309E-01_JPRB,&
+&.286E-01_JPRB,.268E-01_JPRB,.240E-01_JPRB,.206E-01_JPRB,.157E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,&
+&.120E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.876E-02_JPRB,.766E-02_JPRB,.677E-02_JPRB,.567E-02_JPRB,&
+&.527E-02_JPRB,.510E-02_JPRB,.523E-02_JPRB,.566E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.525E-02_JPRB,&
+&.488E-02_JPRB,.443E-02_JPRB,.406E-02_JPRB,.380E-02_JPRB,.349E-02_JPRB,.322E-02_JPRB,.305E-02_JPRB,&
+&.287E-02_JPRB,.267E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 37 -54.0
+ZAER (:,37, 5) = (/&
+&.224E-02_JPRB,.224E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.212E-02_JPRB,.206E-02_JPRB,&
+&.200E-02_JPRB,.191E-02_JPRB,.184E-02_JPRB,.178E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,.174E-02_JPRB,&
+&.180E-02_JPRB,.177E-02_JPRB,.173E-02_JPRB,.165E-02_JPRB,.158E-02_JPRB,.154E-02_JPRB,.150E-02_JPRB,&
+&.143E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,.159E-02_JPRB,&
+&.166E-02_JPRB,.174E-02_JPRB,.202E-02_JPRB,.261E-02_JPRB,.323E-02_JPRB,.466E-02_JPRB,.723E-02_JPRB,&
+&.977E-02_JPRB,.145E-01_JPRB,.221E-01_JPRB,.262E-01_JPRB,.305E-01_JPRB,.283E-01_JPRB,.277E-01_JPRB,&
+&.272E-01_JPRB,.269E-01_JPRB,.248E-01_JPRB,.219E-01_JPRB,.165E-01_JPRB,.148E-01_JPRB,.132E-01_JPRB,&
+&.113E-01_JPRB,.105E-01_JPRB,.960E-02_JPRB,.813E-02_JPRB,.722E-02_JPRB,.648E-02_JPRB,.553E-02_JPRB,&
+&.516E-02_JPRB,.490E-02_JPRB,.462E-02_JPRB,.435E-02_JPRB,.410E-02_JPRB,.367E-02_JPRB,.332E-02_JPRB,&
+&.318E-02_JPRB,.309E-02_JPRB,.303E-02_JPRB,.296E-02_JPRB,.286E-02_JPRB,.273E-02_JPRB,.260E-02_JPRB,&
+&.246E-02_JPRB,.225E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 38 -58.0
+ZAER (:,38, 5) = (/&
+&.201E-02_JPRB,.201E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,&
+&.184E-02_JPRB,.174E-02_JPRB,.168E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,&
+&.163E-02_JPRB,.159E-02_JPRB,.156E-02_JPRB,.151E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.143E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,&
+&.152E-02_JPRB,.157E-02_JPRB,.183E-02_JPRB,.234E-02_JPRB,.287E-02_JPRB,.407E-02_JPRB,.560E-02_JPRB,&
+&.695E-02_JPRB,.922E-02_JPRB,.118E-01_JPRB,.134E-01_JPRB,.153E-01_JPRB,.162E-01_JPRB,.173E-01_JPRB,&
+&.190E-01_JPRB,.201E-01_JPRB,.190E-01_JPRB,.173E-01_JPRB,.138E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,&
+&.939E-02_JPRB,.850E-02_JPRB,.765E-02_JPRB,.654E-02_JPRB,.597E-02_JPRB,.548E-02_JPRB,.471E-02_JPRB,&
+&.429E-02_JPRB,.399E-02_JPRB,.361E-02_JPRB,.325E-02_JPRB,.299E-02_JPRB,.262E-02_JPRB,.241E-02_JPRB,&
+&.236E-02_JPRB,.236E-02_JPRB,.238E-02_JPRB,.236E-02_JPRB,.232E-02_JPRB,.229E-02_JPRB,.221E-02_JPRB,&
+&.212E-02_JPRB,.201E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 39 -62.0
+ZAER (:,39, 5) = (/&
+&.184E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,.175E-02_JPRB,&
+&.171E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,.155E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,&
+&.154E-02_JPRB,.152E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.144E-02_JPRB,.143E-02_JPRB,.142E-02_JPRB,&
+&.139E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,.124E-02_JPRB,&
+&.122E-02_JPRB,.123E-02_JPRB,.140E-02_JPRB,.172E-02_JPRB,.205E-02_JPRB,.278E-02_JPRB,.366E-02_JPRB,&
+&.436E-02_JPRB,.547E-02_JPRB,.669E-02_JPRB,.744E-02_JPRB,.833E-02_JPRB,.962E-02_JPRB,.105E-01_JPRB,&
+&.115E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.962E-02_JPRB,.898E-02_JPRB,.836E-02_JPRB,&
+&.725E-02_JPRB,.666E-02_JPRB,.609E-02_JPRB,.516E-02_JPRB,.462E-02_JPRB,.416E-02_JPRB,.347E-02_JPRB,&
+&.310E-02_JPRB,.284E-02_JPRB,.255E-02_JPRB,.237E-02_JPRB,.226E-02_JPRB,.216E-02_JPRB,.212E-02_JPRB,&
+&.209E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,.201E-02_JPRB,.198E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,&
+&.189E-02_JPRB,.184E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 40 -66.0
+ZAER (:,40, 5) = (/&
+&.175E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,.164E-02_JPRB,&
+&.161E-02_JPRB,.155E-02_JPRB,.152E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,&
+&.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,&
+&.141E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.127E-02_JPRB,.120E-02_JPRB,.114E-02_JPRB,.104E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.112E-02_JPRB,.129E-02_JPRB,.148E-02_JPRB,.190E-02_JPRB,.247E-02_JPRB,&
+&.294E-02_JPRB,.371E-02_JPRB,.459E-02_JPRB,.522E-02_JPRB,.607E-02_JPRB,.710E-02_JPRB,.765E-02_JPRB,&
+&.826E-02_JPRB,.837E-02_JPRB,.813E-02_JPRB,.778E-02_JPRB,.712E-02_JPRB,.680E-02_JPRB,.648E-02_JPRB,&
+&.580E-02_JPRB,.536E-02_JPRB,.492E-02_JPRB,.410E-02_JPRB,.361E-02_JPRB,.320E-02_JPRB,.264E-02_JPRB,&
+&.238E-02_JPRB,.222E-02_JPRB,.207E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,&
+&.204E-02_JPRB,.200E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,.187E-02_JPRB,.184E-02_JPRB,&
+&.181E-02_JPRB,.176E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 41 -70.0
+ZAER (:,41, 5) = (/&
+&.176E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,.170E-02_JPRB,.167E-02_JPRB,.164E-02_JPRB,&
+&.162E-02_JPRB,.159E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,&
+&.161E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,.155E-02_JPRB,.149E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,&
+&.135E-02_JPRB,.131E-02_JPRB,.127E-02_JPRB,.117E-02_JPRB,.111E-02_JPRB,.106E-02_JPRB,.991E-03_JPRB,&
+&.986E-03_JPRB,.992E-03_JPRB,.107E-02_JPRB,.120E-02_JPRB,.134E-02_JPRB,.165E-02_JPRB,.203E-02_JPRB,&
+&.235E-02_JPRB,.289E-02_JPRB,.354E-02_JPRB,.405E-02_JPRB,.478E-02_JPRB,.567E-02_JPRB,.610E-02_JPRB,&
+&.654E-02_JPRB,.657E-02_JPRB,.641E-02_JPRB,.617E-02_JPRB,.567E-02_JPRB,.539E-02_JPRB,.510E-02_JPRB,&
+&.452E-02_JPRB,.416E-02_JPRB,.381E-02_JPRB,.317E-02_JPRB,.279E-02_JPRB,.250E-02_JPRB,.214E-02_JPRB,&
+&.201E-02_JPRB,.193E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,.194E-02_JPRB,.199E-02_JPRB,.201E-02_JPRB,&
+&.200E-02_JPRB,.199E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,&
+&.181E-02_JPRB,.176E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 42 -74.0
+ZAER (:,42, 5) = (/&
+&.180E-02_JPRB,.180E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,&
+&.175E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,.163E-02_JPRB,.155E-02_JPRB,.151E-02_JPRB,.145E-02_JPRB,&
+&.137E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,&
+&.116E-02_JPRB,.119E-02_JPRB,.129E-02_JPRB,.141E-02_JPRB,.154E-02_JPRB,.180E-02_JPRB,.208E-02_JPRB,&
+&.231E-02_JPRB,.268E-02_JPRB,.313E-02_JPRB,.346E-02_JPRB,.394E-02_JPRB,.448E-02_JPRB,.474E-02_JPRB,&
+&.501E-02_JPRB,.501E-02_JPRB,.489E-02_JPRB,.472E-02_JPRB,.434E-02_JPRB,.411E-02_JPRB,.388E-02_JPRB,&
+&.343E-02_JPRB,.318E-02_JPRB,.294E-02_JPRB,.252E-02_JPRB,.230E-02_JPRB,.213E-02_JPRB,.192E-02_JPRB,&
+&.185E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,.184E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,&
+&.192E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,&
+&.183E-02_JPRB,.180E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 43 -78.0
+ZAER (:,43, 5) = (/&
+&.185E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,&
+&.187E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,&
+&.185E-02_JPRB,.182E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,.166E-02_JPRB,.161E-02_JPRB,&
+&.156E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,&
+&.152E-02_JPRB,.156E-02_JPRB,.166E-02_JPRB,.176E-02_JPRB,.186E-02_JPRB,.203E-02_JPRB,.221E-02_JPRB,&
+&.235E-02_JPRB,.255E-02_JPRB,.278E-02_JPRB,.293E-02_JPRB,.314E-02_JPRB,.334E-02_JPRB,.344E-02_JPRB,&
+&.353E-02_JPRB,.351E-02_JPRB,.345E-02_JPRB,.336E-02_JPRB,.316E-02_JPRB,.303E-02_JPRB,.290E-02_JPRB,&
+&.265E-02_JPRB,.251E-02_JPRB,.238E-02_JPRB,.217E-02_JPRB,.206E-02_JPRB,.197E-02_JPRB,.186E-02_JPRB,&
+&.182E-02_JPRB,.180E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.183E-02_JPRB,&
+&.184E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,&
+&.185E-02_JPRB,.185E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 44 -82.0
+ZAER (:,44, 5) = (/&
+&.188E-02_JPRB,.188E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,&
+&.190E-02_JPRB,.189E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,&
+&.178E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,&
+&.181E-02_JPRB,.184E-02_JPRB,.189E-02_JPRB,.194E-02_JPRB,.198E-02_JPRB,.206E-02_JPRB,.213E-02_JPRB,&
+&.218E-02_JPRB,.225E-02_JPRB,.232E-02_JPRB,.237E-02_JPRB,.242E-02_JPRB,.246E-02_JPRB,.248E-02_JPRB,&
+&.249E-02_JPRB,.247E-02_JPRB,.245E-02_JPRB,.242E-02_JPRB,.235E-02_JPRB,.231E-02_JPRB,.226E-02_JPRB,&
+&.217E-02_JPRB,.212E-02_JPRB,.207E-02_JPRB,.200E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.187E-02_JPRB,&
+&.185E-02_JPRB,.184E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.183E-02_JPRB,&
+&.184E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.188E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 45 -86.0
+ZAER (:,45, 5) = (/&
+&.191E-02_JPRB,.191E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,&
+&.193E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.192E-02_JPRB,.193E-02_JPRB,&
+&.193E-02_JPRB,.194E-02_JPRB,.195E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,.199E-02_JPRB,.200E-02_JPRB,&
+&.201E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,&
+&.204E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,.200E-02_JPRB,.199E-02_JPRB,&
+&.198E-02_JPRB,.197E-02_JPRB,.196E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.191E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  5 --- lat: 46 -90.0
+ZAER (:,46, 5) = (/&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=5   
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_05
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_06.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_06.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_06.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_06
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 June
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,6:6)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  6 --- lat:  1  90.0
+ZAER (:, 1, 6) = (/&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,.838E-04_JPRB,&
+&.838E-04_JPRB,.838E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  2  86.0
+ZAER (:, 2, 6) = (/&
+&.853E-04_JPRB,.854E-04_JPRB,.863E-04_JPRB,.869E-04_JPRB,.874E-04_JPRB,.882E-04_JPRB,.887E-04_JPRB,&
+&.890E-04_JPRB,.896E-04_JPRB,.900E-04_JPRB,.902E-04_JPRB,.905E-04_JPRB,.908E-04_JPRB,.909E-04_JPRB,&
+&.909E-04_JPRB,.910E-04_JPRB,.909E-04_JPRB,.908E-04_JPRB,.906E-04_JPRB,.905E-04_JPRB,.903E-04_JPRB,&
+&.899E-04_JPRB,.896E-04_JPRB,.893E-04_JPRB,.888E-04_JPRB,.884E-04_JPRB,.880E-04_JPRB,.874E-04_JPRB,&
+&.869E-04_JPRB,.865E-04_JPRB,.858E-04_JPRB,.852E-04_JPRB,.848E-04_JPRB,.840E-04_JPRB,.835E-04_JPRB,&
+&.830E-04_JPRB,.824E-04_JPRB,.818E-04_JPRB,.814E-04_JPRB,.808E-04_JPRB,.802E-04_JPRB,.799E-04_JPRB,&
+&.794E-04_JPRB,.789E-04_JPRB,.786E-04_JPRB,.783E-04_JPRB,.779E-04_JPRB,.777E-04_JPRB,.774E-04_JPRB,&
+&.771E-04_JPRB,.771E-04_JPRB,.770E-04_JPRB,.769E-04_JPRB,.769E-04_JPRB,.769E-04_JPRB,.770E-04_JPRB,&
+&.772E-04_JPRB,.773E-04_JPRB,.776E-04_JPRB,.780E-04_JPRB,.783E-04_JPRB,.787E-04_JPRB,.793E-04_JPRB,&
+&.797E-04_JPRB,.803E-04_JPRB,.811E-04_JPRB,.816E-04_JPRB,.822E-04_JPRB,.831E-04_JPRB,.837E-04_JPRB,&
+&.843E-04_JPRB,.853E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  3  82.0
+ZAER (:, 3, 6) = (/&
+&.928E-04_JPRB,.929E-04_JPRB,.956E-04_JPRB,.972E-04_JPRB,.986E-04_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.103E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.107E-03_JPRB,&
+&.107E-03_JPRB,.107E-03_JPRB,.106E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,&
+&.103E-03_JPRB,.102E-03_JPRB,.101E-03_JPRB,.100E-03_JPRB,.992E-04_JPRB,.984E-04_JPRB,.969E-04_JPRB,&
+&.957E-04_JPRB,.946E-04_JPRB,.927E-04_JPRB,.912E-04_JPRB,.900E-04_JPRB,.880E-04_JPRB,.865E-04_JPRB,&
+&.854E-04_JPRB,.838E-04_JPRB,.823E-04_JPRB,.813E-04_JPRB,.800E-04_JPRB,.786E-04_JPRB,.778E-04_JPRB,&
+&.768E-04_JPRB,.757E-04_JPRB,.750E-04_JPRB,.744E-04_JPRB,.733E-04_JPRB,.728E-04_JPRB,.723E-04_JPRB,&
+&.714E-04_JPRB,.710E-04_JPRB,.707E-04_JPRB,.702E-04_JPRB,.700E-04_JPRB,.699E-04_JPRB,.699E-04_JPRB,&
+&.702E-04_JPRB,.704E-04_JPRB,.710E-04_JPRB,.718E-04_JPRB,.725E-04_JPRB,.736E-04_JPRB,.751E-04_JPRB,&
+&.762E-04_JPRB,.777E-04_JPRB,.799E-04_JPRB,.814E-04_JPRB,.832E-04_JPRB,.861E-04_JPRB,.878E-04_JPRB,&
+&.896E-04_JPRB,.927E-04_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  4  78.0
+ZAER (:, 4, 6) = (/&
+&.109E-03_JPRB,.109E-03_JPRB,.115E-03_JPRB,.117E-03_JPRB,.119E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,&
+&.125E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,&
+&.127E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.120E-03_JPRB,&
+&.118E-03_JPRB,.117E-03_JPRB,.116E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.112E-03_JPRB,&
+&.110E-03_JPRB,.109E-03_JPRB,.106E-03_JPRB,.103E-03_JPRB,.101E-03_JPRB,.980E-04_JPRB,.956E-04_JPRB,&
+&.938E-04_JPRB,.914E-04_JPRB,.893E-04_JPRB,.880E-04_JPRB,.863E-04_JPRB,.847E-04_JPRB,.838E-04_JPRB,&
+&.828E-04_JPRB,.817E-04_JPRB,.810E-04_JPRB,.802E-04_JPRB,.788E-04_JPRB,.779E-04_JPRB,.770E-04_JPRB,&
+&.753E-04_JPRB,.744E-04_JPRB,.735E-04_JPRB,.723E-04_JPRB,.718E-04_JPRB,.714E-04_JPRB,.710E-04_JPRB,&
+&.711E-04_JPRB,.712E-04_JPRB,.717E-04_JPRB,.727E-04_JPRB,.735E-04_JPRB,.749E-04_JPRB,.770E-04_JPRB,&
+&.786E-04_JPRB,.810E-04_JPRB,.847E-04_JPRB,.874E-04_JPRB,.906E-04_JPRB,.961E-04_JPRB,.995E-04_JPRB,&
+&.103E-03_JPRB,.109E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  5  74.0
+ZAER (:, 5, 6) = (/&
+&.131E-03_JPRB,.131E-03_JPRB,.139E-03_JPRB,.142E-03_JPRB,.145E-03_JPRB,.148E-03_JPRB,.149E-03_JPRB,&
+&.149E-03_JPRB,.149E-03_JPRB,.148E-03_JPRB,.147E-03_JPRB,.146E-03_JPRB,.144E-03_JPRB,.143E-03_JPRB,&
+&.142E-03_JPRB,.139E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.133E-03_JPRB,.132E-03_JPRB,.130E-03_JPRB,&
+&.128E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,&
+&.128E-03_JPRB,.127E-03_JPRB,.124E-03_JPRB,.120E-03_JPRB,.118E-03_JPRB,.113E-03_JPRB,.111E-03_JPRB,&
+&.109E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,.104E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.101E-03_JPRB,&
+&.101E-03_JPRB,.101E-03_JPRB,.100E-03_JPRB,.994E-04_JPRB,.973E-04_JPRB,.959E-04_JPRB,.944E-04_JPRB,&
+&.913E-04_JPRB,.898E-04_JPRB,.883E-04_JPRB,.862E-04_JPRB,.852E-04_JPRB,.845E-04_JPRB,.839E-04_JPRB,&
+&.838E-04_JPRB,.839E-04_JPRB,.843E-04_JPRB,.851E-04_JPRB,.858E-04_JPRB,.869E-04_JPRB,.886E-04_JPRB,&
+&.902E-04_JPRB,.927E-04_JPRB,.967E-04_JPRB,.100E-03_JPRB,.104E-03_JPRB,.112E-03_JPRB,.117E-03_JPRB,&
+&.122E-03_JPRB,.131E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  6  70.0
+ZAER (:, 6, 6) = (/&
+&.156E-03_JPRB,.156E-03_JPRB,.165E-03_JPRB,.169E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,.179E-03_JPRB,&
+&.179E-03_JPRB,.177E-03_JPRB,.173E-03_JPRB,.170E-03_JPRB,.166E-03_JPRB,.161E-03_JPRB,.158E-03_JPRB,&
+&.153E-03_JPRB,.149E-03_JPRB,.147E-03_JPRB,.145E-03_JPRB,.143E-03_JPRB,.141E-03_JPRB,.139E-03_JPRB,&
+&.137E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,.140E-03_JPRB,.143E-03_JPRB,.145E-03_JPRB,.148E-03_JPRB,&
+&.149E-03_JPRB,.149E-03_JPRB,.147E-03_JPRB,.144E-03_JPRB,.141E-03_JPRB,.137E-03_JPRB,.135E-03_JPRB,&
+&.134E-03_JPRB,.133E-03_JPRB,.134E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,&
+&.137E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,.135E-03_JPRB,.131E-03_JPRB,.129E-03_JPRB,.126E-03_JPRB,&
+&.121E-03_JPRB,.118E-03_JPRB,.115E-03_JPRB,.112E-03_JPRB,.110E-03_JPRB,.109E-03_JPRB,.109E-03_JPRB,&
+&.110E-03_JPRB,.110E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,.115E-03_JPRB,&
+&.115E-03_JPRB,.116E-03_JPRB,.119E-03_JPRB,.122E-03_JPRB,.126E-03_JPRB,.134E-03_JPRB,.140E-03_JPRB,&
+&.146E-03_JPRB,.156E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  7  66.0
+ZAER (:, 7, 6) = (/&
+&.191E-03_JPRB,.191E-03_JPRB,.203E-03_JPRB,.210E-03_JPRB,.217E-03_JPRB,.229E-03_JPRB,.232E-03_JPRB,&
+&.234E-03_JPRB,.229E-03_JPRB,.220E-03_JPRB,.212E-03_JPRB,.200E-03_JPRB,.188E-03_JPRB,.180E-03_JPRB,&
+&.171E-03_JPRB,.165E-03_JPRB,.163E-03_JPRB,.160E-03_JPRB,.158E-03_JPRB,.155E-03_JPRB,.152E-03_JPRB,&
+&.149E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.152E-03_JPRB,.157E-03_JPRB,.161E-03_JPRB,.167E-03_JPRB,&
+&.169E-03_JPRB,.170E-03_JPRB,.170E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,&
+&.169E-03_JPRB,.172E-03_JPRB,.178E-03_JPRB,.182E-03_JPRB,.187E-03_JPRB,.193E-03_JPRB,.195E-03_JPRB,&
+&.197E-03_JPRB,.195E-03_JPRB,.192E-03_JPRB,.188E-03_JPRB,.180E-03_JPRB,.176E-03_JPRB,.173E-03_JPRB,&
+&.164E-03_JPRB,.158E-03_JPRB,.153E-03_JPRB,.145E-03_JPRB,.143E-03_JPRB,.142E-03_JPRB,.143E-03_JPRB,&
+&.147E-03_JPRB,.150E-03_JPRB,.157E-03_JPRB,.161E-03_JPRB,.163E-03_JPRB,.163E-03_JPRB,.160E-03_JPRB,&
+&.158E-03_JPRB,.155E-03_JPRB,.156E-03_JPRB,.157E-03_JPRB,.160E-03_JPRB,.168E-03_JPRB,.173E-03_JPRB,&
+&.179E-03_JPRB,.191E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  8  62.0
+ZAER (:, 8, 6) = (/&
+&.262E-03_JPRB,.263E-03_JPRB,.285E-03_JPRB,.298E-03_JPRB,.308E-03_JPRB,.319E-03_JPRB,.319E-03_JPRB,&
+&.317E-03_JPRB,.309E-03_JPRB,.290E-03_JPRB,.274E-03_JPRB,.249E-03_JPRB,.225E-03_JPRB,.211E-03_JPRB,&
+&.196E-03_JPRB,.189E-03_JPRB,.185E-03_JPRB,.182E-03_JPRB,.178E-03_JPRB,.175E-03_JPRB,.172E-03_JPRB,&
+&.166E-03_JPRB,.165E-03_JPRB,.163E-03_JPRB,.165E-03_JPRB,.168E-03_JPRB,.172E-03_JPRB,.178E-03_JPRB,&
+&.182E-03_JPRB,.185E-03_JPRB,.190E-03_JPRB,.193E-03_JPRB,.197E-03_JPRB,.202E-03_JPRB,.206E-03_JPRB,&
+&.210E-03_JPRB,.218E-03_JPRB,.229E-03_JPRB,.238E-03_JPRB,.251E-03_JPRB,.263E-03_JPRB,.267E-03_JPRB,&
+&.269E-03_JPRB,.263E-03_JPRB,.257E-03_JPRB,.249E-03_JPRB,.238E-03_JPRB,.235E-03_JPRB,.232E-03_JPRB,&
+&.222E-03_JPRB,.214E-03_JPRB,.206E-03_JPRB,.190E-03_JPRB,.184E-03_JPRB,.181E-03_JPRB,.183E-03_JPRB,&
+&.195E-03_JPRB,.206E-03_JPRB,.228E-03_JPRB,.239E-03_JPRB,.242E-03_JPRB,.238E-03_JPRB,.228E-03_JPRB,&
+&.222E-03_JPRB,.214E-03_JPRB,.209E-03_JPRB,.209E-03_JPRB,.209E-03_JPRB,.217E-03_JPRB,.227E-03_JPRB,&
+&.239E-03_JPRB,.262E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat:  9  58.0
+ZAER (:, 9, 6) = (/&
+&.408E-03_JPRB,.408E-03_JPRB,.433E-03_JPRB,.431E-03_JPRB,.426E-03_JPRB,.392E-03_JPRB,.371E-03_JPRB,&
+&.356E-03_JPRB,.344E-03_JPRB,.330E-03_JPRB,.316E-03_JPRB,.291E-03_JPRB,.267E-03_JPRB,.252E-03_JPRB,&
+&.233E-03_JPRB,.219E-03_JPRB,.212E-03_JPRB,.205E-03_JPRB,.199E-03_JPRB,.195E-03_JPRB,.190E-03_JPRB,&
+&.187E-03_JPRB,.186E-03_JPRB,.185E-03_JPRB,.187E-03_JPRB,.189E-03_JPRB,.191E-03_JPRB,.196E-03_JPRB,&
+&.201E-03_JPRB,.206E-03_JPRB,.219E-03_JPRB,.235E-03_JPRB,.247E-03_JPRB,.264E-03_JPRB,.277E-03_JPRB,&
+&.288E-03_JPRB,.304E-03_JPRB,.311E-03_JPRB,.316E-03_JPRB,.325E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,&
+&.329E-03_JPRB,.317E-03_JPRB,.308E-03_JPRB,.297E-03_JPRB,.291E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,&
+&.287E-03_JPRB,.276E-03_JPRB,.266E-03_JPRB,.246E-03_JPRB,.239E-03_JPRB,.236E-03_JPRB,.240E-03_JPRB,&
+&.262E-03_JPRB,.280E-03_JPRB,.312E-03_JPRB,.315E-03_JPRB,.313E-03_JPRB,.303E-03_JPRB,.300E-03_JPRB,&
+&.297E-03_JPRB,.293E-03_JPRB,.289E-03_JPRB,.291E-03_JPRB,.296E-03_JPRB,.329E-03_JPRB,.354E-03_JPRB,&
+&.382E-03_JPRB,.407E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 10  54.0
+ZAER (:,10, 6) = (/&
+&.553E-03_JPRB,.553E-03_JPRB,.558E-03_JPRB,.531E-03_JPRB,.504E-03_JPRB,.434E-03_JPRB,.405E-03_JPRB,&
+&.383E-03_JPRB,.360E-03_JPRB,.350E-03_JPRB,.342E-03_JPRB,.327E-03_JPRB,.313E-03_JPRB,.302E-03_JPRB,&
+&.284E-03_JPRB,.259E-03_JPRB,.244E-03_JPRB,.227E-03_JPRB,.216E-03_JPRB,.211E-03_JPRB,.205E-03_JPRB,&
+&.202E-03_JPRB,.205E-03_JPRB,.208E-03_JPRB,.218E-03_JPRB,.219E-03_JPRB,.221E-03_JPRB,.225E-03_JPRB,&
+&.234E-03_JPRB,.246E-03_JPRB,.283E-03_JPRB,.318E-03_JPRB,.346E-03_JPRB,.387E-03_JPRB,.407E-03_JPRB,&
+&.419E-03_JPRB,.430E-03_JPRB,.420E-03_JPRB,.412E-03_JPRB,.398E-03_JPRB,.379E-03_JPRB,.370E-03_JPRB,&
+&.362E-03_JPRB,.352E-03_JPRB,.347E-03_JPRB,.340E-03_JPRB,.345E-03_JPRB,.349E-03_JPRB,.354E-03_JPRB,&
+&.344E-03_JPRB,.332E-03_JPRB,.321E-03_JPRB,.305E-03_JPRB,.299E-03_JPRB,.296E-03_JPRB,.302E-03_JPRB,&
+&.323E-03_JPRB,.337E-03_JPRB,.351E-03_JPRB,.335E-03_JPRB,.325E-03_JPRB,.317E-03_JPRB,.341E-03_JPRB,&
+&.368E-03_JPRB,.413E-03_JPRB,.451E-03_JPRB,.468E-03_JPRB,.485E-03_JPRB,.529E-03_JPRB,.548E-03_JPRB,&
+&.566E-03_JPRB,.554E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 11  50.0
+ZAER (:,11, 6) = (/&
+&.653E-03_JPRB,.653E-03_JPRB,.626E-03_JPRB,.588E-03_JPRB,.552E-03_JPRB,.477E-03_JPRB,.438E-03_JPRB,&
+&.408E-03_JPRB,.377E-03_JPRB,.366E-03_JPRB,.360E-03_JPRB,.353E-03_JPRB,.346E-03_JPRB,.341E-03_JPRB,&
+&.333E-03_JPRB,.302E-03_JPRB,.282E-03_JPRB,.258E-03_JPRB,.240E-03_JPRB,.232E-03_JPRB,.224E-03_JPRB,&
+&.223E-03_JPRB,.228E-03_JPRB,.235E-03_JPRB,.250E-03_JPRB,.256E-03_JPRB,.262E-03_JPRB,.275E-03_JPRB,&
+&.303E-03_JPRB,.333E-03_JPRB,.419E-03_JPRB,.479E-03_JPRB,.525E-03_JPRB,.589E-03_JPRB,.597E-03_JPRB,&
+&.597E-03_JPRB,.587E-03_JPRB,.556E-03_JPRB,.542E-03_JPRB,.532E-03_JPRB,.479E-03_JPRB,.461E-03_JPRB,&
+&.449E-03_JPRB,.449E-03_JPRB,.447E-03_JPRB,.445E-03_JPRB,.457E-03_JPRB,.456E-03_JPRB,.454E-03_JPRB,&
+&.422E-03_JPRB,.409E-03_JPRB,.396E-03_JPRB,.380E-03_JPRB,.377E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,&
+&.384E-03_JPRB,.387E-03_JPRB,.377E-03_JPRB,.342E-03_JPRB,.328E-03_JPRB,.324E-03_JPRB,.403E-03_JPRB,&
+&.481E-03_JPRB,.602E-03_JPRB,.724E-03_JPRB,.753E-03_JPRB,.765E-03_JPRB,.750E-03_JPRB,.735E-03_JPRB,&
+&.716E-03_JPRB,.655E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 12  46.0
+ZAER (:,12, 6) = (/&
+&.740E-03_JPRB,.739E-03_JPRB,.687E-03_JPRB,.649E-03_JPRB,.612E-03_JPRB,.529E-03_JPRB,.473E-03_JPRB,&
+&.434E-03_JPRB,.400E-03_JPRB,.397E-03_JPRB,.396E-03_JPRB,.393E-03_JPRB,.390E-03_JPRB,.389E-03_JPRB,&
+&.387E-03_JPRB,.359E-03_JPRB,.337E-03_JPRB,.307E-03_JPRB,.278E-03_JPRB,.267E-03_JPRB,.258E-03_JPRB,&
+&.263E-03_JPRB,.272E-03_JPRB,.283E-03_JPRB,.304E-03_JPRB,.321E-03_JPRB,.338E-03_JPRB,.378E-03_JPRB,&
+&.441E-03_JPRB,.507E-03_JPRB,.674E-03_JPRB,.725E-03_JPRB,.761E-03_JPRB,.799E-03_JPRB,.779E-03_JPRB,&
+&.765E-03_JPRB,.748E-03_JPRB,.733E-03_JPRB,.734E-03_JPRB,.749E-03_JPRB,.680E-03_JPRB,.665E-03_JPRB,&
+&.664E-03_JPRB,.659E-03_JPRB,.647E-03_JPRB,.631E-03_JPRB,.629E-03_JPRB,.637E-03_JPRB,.644E-03_JPRB,&
+&.582E-03_JPRB,.558E-03_JPRB,.534E-03_JPRB,.488E-03_JPRB,.481E-03_JPRB,.476E-03_JPRB,.465E-03_JPRB,&
+&.466E-03_JPRB,.461E-03_JPRB,.438E-03_JPRB,.404E-03_JPRB,.396E-03_JPRB,.407E-03_JPRB,.536E-03_JPRB,&
+&.646E-03_JPRB,.808E-03_JPRB,.958E-03_JPRB,.963E-03_JPRB,.927E-03_JPRB,.836E-03_JPRB,.807E-03_JPRB,&
+&.782E-03_JPRB,.742E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 13  42.0
+ZAER (:,13, 6) = (/&
+&.887E-03_JPRB,.884E-03_JPRB,.804E-03_JPRB,.753E-03_JPRB,.704E-03_JPRB,.608E-03_JPRB,.545E-03_JPRB,&
+&.499E-03_JPRB,.459E-03_JPRB,.458E-03_JPRB,.459E-03_JPRB,.466E-03_JPRB,.458E-03_JPRB,.452E-03_JPRB,&
+&.443E-03_JPRB,.422E-03_JPRB,.400E-03_JPRB,.366E-03_JPRB,.333E-03_JPRB,.321E-03_JPRB,.311E-03_JPRB,&
+&.328E-03_JPRB,.348E-03_JPRB,.370E-03_JPRB,.431E-03_JPRB,.485E-03_JPRB,.541E-03_JPRB,.650E-03_JPRB,&
+&.755E-03_JPRB,.857E-03_JPRB,.107E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,&
+&.998E-03_JPRB,.950E-03_JPRB,.927E-03_JPRB,.936E-03_JPRB,.973E-03_JPRB,.915E-03_JPRB,.925E-03_JPRB,&
+&.964E-03_JPRB,.105E-02_JPRB,.104E-02_JPRB,.100E-02_JPRB,.910E-03_JPRB,.900E-03_JPRB,.895E-03_JPRB,&
+&.820E-03_JPRB,.781E-03_JPRB,.740E-03_JPRB,.642E-03_JPRB,.623E-03_JPRB,.606E-03_JPRB,.584E-03_JPRB,&
+&.577E-03_JPRB,.569E-03_JPRB,.552E-03_JPRB,.546E-03_JPRB,.549E-03_JPRB,.562E-03_JPRB,.707E-03_JPRB,&
+&.840E-03_JPRB,.104E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,.101E-02_JPRB,.857E-03_JPRB,.848E-03_JPRB,&
+&.857E-03_JPRB,.886E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 14  38.0
+ZAER (:,14, 6) = (/&
+&.115E-02_JPRB,.115E-02_JPRB,.103E-02_JPRB,.933E-03_JPRB,.846E-03_JPRB,.715E-03_JPRB,.652E-03_JPRB,&
+&.605E-03_JPRB,.557E-03_JPRB,.545E-03_JPRB,.543E-03_JPRB,.556E-03_JPRB,.537E-03_JPRB,.521E-03_JPRB,&
+&.496E-03_JPRB,.487E-03_JPRB,.469E-03_JPRB,.438E-03_JPRB,.412E-03_JPRB,.413E-03_JPRB,.420E-03_JPRB,&
+&.451E-03_JPRB,.488E-03_JPRB,.528E-03_JPRB,.723E-03_JPRB,.901E-03_JPRB,.108E-02_JPRB,.139E-02_JPRB,&
+&.150E-02_JPRB,.159E-02_JPRB,.173E-02_JPRB,.161E-02_JPRB,.153E-02_JPRB,.142E-02_JPRB,.132E-02_JPRB,&
+&.125E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.118E-02_JPRB,.128E-02_JPRB,.134E-02_JPRB,.141E-02_JPRB,&
+&.151E-02_JPRB,.170E-02_JPRB,.166E-02_JPRB,.158E-02_JPRB,.130E-02_JPRB,.123E-02_JPRB,.118E-02_JPRB,&
+&.111E-02_JPRB,.104E-02_JPRB,.978E-03_JPRB,.860E-03_JPRB,.822E-03_JPRB,.790E-03_JPRB,.738E-03_JPRB,&
+&.725E-03_JPRB,.719E-03_JPRB,.719E-03_JPRB,.750E-03_JPRB,.782E-03_JPRB,.843E-03_JPRB,.104E-02_JPRB,&
+&.119E-02_JPRB,.141E-02_JPRB,.147E-02_JPRB,.140E-02_JPRB,.128E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 15  34.0
+ZAER (:,15, 6) = (/&
+&.146E-02_JPRB,.145E-02_JPRB,.128E-02_JPRB,.114E-02_JPRB,.100E-02_JPRB,.839E-03_JPRB,.773E-03_JPRB,&
+&.725E-03_JPRB,.683E-03_JPRB,.660E-03_JPRB,.647E-03_JPRB,.639E-03_JPRB,.608E-03_JPRB,.583E-03_JPRB,&
+&.549E-03_JPRB,.544E-03_JPRB,.540E-03_JPRB,.534E-03_JPRB,.553E-03_JPRB,.599E-03_JPRB,.663E-03_JPRB,&
+&.737E-03_JPRB,.820E-03_JPRB,.911E-03_JPRB,.158E-02_JPRB,.213E-02_JPRB,.266E-02_JPRB,.319E-02_JPRB,&
+&.297E-02_JPRB,.277E-02_JPRB,.240E-02_JPRB,.205E-02_JPRB,.182E-02_JPRB,.160E-02_JPRB,.149E-02_JPRB,&
+&.144E-02_JPRB,.140E-02_JPRB,.152E-02_JPRB,.170E-02_JPRB,.205E-02_JPRB,.268E-02_JPRB,.286E-02_JPRB,&
+&.294E-02_JPRB,.287E-02_JPRB,.267E-02_JPRB,.242E-02_JPRB,.186E-02_JPRB,.168E-02_JPRB,.153E-02_JPRB,&
+&.137E-02_JPRB,.127E-02_JPRB,.119E-02_JPRB,.109E-02_JPRB,.103E-02_JPRB,.976E-03_JPRB,.904E-03_JPRB,&
+&.895E-03_JPRB,.897E-03_JPRB,.928E-03_JPRB,.106E-02_JPRB,.121E-02_JPRB,.151E-02_JPRB,.195E-02_JPRB,&
+&.218E-02_JPRB,.244E-02_JPRB,.236E-02_JPRB,.224E-02_JPRB,.205E-02_JPRB,.169E-02_JPRB,.166E-02_JPRB,&
+&.168E-02_JPRB,.147E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 16  30.0
+ZAER (:,16, 6) = (/&
+&.155E-02_JPRB,.154E-02_JPRB,.135E-02_JPRB,.121E-02_JPRB,.109E-02_JPRB,.933E-03_JPRB,.891E-03_JPRB,&
+&.856E-03_JPRB,.800E-03_JPRB,.767E-03_JPRB,.741E-03_JPRB,.699E-03_JPRB,.659E-03_JPRB,.633E-03_JPRB,&
+&.600E-03_JPRB,.589E-03_JPRB,.608E-03_JPRB,.650E-03_JPRB,.813E-03_JPRB,.970E-03_JPRB,.117E-02_JPRB,&
+&.143E-02_JPRB,.164E-02_JPRB,.187E-02_JPRB,.402E-02_JPRB,.536E-02_JPRB,.657E-02_JPRB,.630E-02_JPRB,&
+&.516E-02_JPRB,.416E-02_JPRB,.280E-02_JPRB,.225E-02_JPRB,.189E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,&
+&.164E-02_JPRB,.176E-02_JPRB,.213E-02_JPRB,.270E-02_JPRB,.379E-02_JPRB,.553E-02_JPRB,.586E-02_JPRB,&
+&.579E-02_JPRB,.486E-02_JPRB,.418E-02_JPRB,.339E-02_JPRB,.243E-02_JPRB,.212E-02_JPRB,.185E-02_JPRB,&
+&.157E-02_JPRB,.143E-02_JPRB,.131E-02_JPRB,.124E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.106E-02_JPRB,&
+&.105E-02_JPRB,.108E-02_JPRB,.120E-02_JPRB,.163E-02_JPRB,.214E-02_JPRB,.314E-02_JPRB,.428E-02_JPRB,&
+&.476E-02_JPRB,.510E-02_JPRB,.435E-02_JPRB,.380E-02_JPRB,.312E-02_JPRB,.228E-02_JPRB,.208E-02_JPRB,&
+&.194E-02_JPRB,.156E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 17  26.0
+ZAER (:,17, 6) = (/&
+&.138E-02_JPRB,.137E-02_JPRB,.121E-02_JPRB,.113E-02_JPRB,.106E-02_JPRB,.964E-03_JPRB,.961E-03_JPRB,&
+&.945E-03_JPRB,.868E-03_JPRB,.826E-03_JPRB,.789E-03_JPRB,.725E-03_JPRB,.681E-03_JPRB,.659E-03_JPRB,&
+&.641E-03_JPRB,.633E-03_JPRB,.696E-03_JPRB,.823E-03_JPRB,.131E-02_JPRB,.172E-02_JPRB,.222E-02_JPRB,&
+&.294E-02_JPRB,.338E-02_JPRB,.382E-02_JPRB,.911E-02_JPRB,.115E-01_JPRB,.135E-01_JPRB,.101E-01_JPRB,&
+&.753E-02_JPRB,.535E-02_JPRB,.294E-02_JPRB,.232E-02_JPRB,.192E-02_JPRB,.166E-02_JPRB,.177E-02_JPRB,&
+&.193E-02_JPRB,.228E-02_JPRB,.301E-02_JPRB,.418E-02_JPRB,.644E-02_JPRB,.940E-02_JPRB,.985E-02_JPRB,&
+&.954E-02_JPRB,.707E-02_JPRB,.563E-02_JPRB,.406E-02_JPRB,.271E-02_JPRB,.232E-02_JPRB,.198E-02_JPRB,&
+&.164E-02_JPRB,.148E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,&
+&.120E-02_JPRB,.131E-02_JPRB,.170E-02_JPRB,.275E-02_JPRB,.392E-02_JPRB,.617E-02_JPRB,.862E-02_JPRB,&
+&.921E-02_JPRB,.904E-02_JPRB,.658E-02_JPRB,.514E-02_JPRB,.349E-02_JPRB,.236E-02_JPRB,.203E-02_JPRB,&
+&.175E-02_JPRB,.139E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 18  22.0
+ZAER (:,18, 6) = (/&
+&.115E-02_JPRB,.115E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,.959E-03_JPRB,.928E-03_JPRB,.936E-03_JPRB,&
+&.928E-03_JPRB,.856E-03_JPRB,.818E-03_JPRB,.783E-03_JPRB,.719E-03_JPRB,.671E-03_JPRB,.655E-03_JPRB,&
+&.658E-03_JPRB,.693E-03_JPRB,.837E-03_JPRB,.110E-02_JPRB,.210E-02_JPRB,.290E-02_JPRB,.389E-02_JPRB,&
+&.553E-02_JPRB,.629E-02_JPRB,.703E-02_JPRB,.163E-01_JPRB,.195E-01_JPRB,.219E-01_JPRB,.138E-01_JPRB,&
+&.945E-02_JPRB,.594E-02_JPRB,.295E-02_JPRB,.237E-02_JPRB,.201E-02_JPRB,.182E-02_JPRB,.200E-02_JPRB,&
+&.229E-02_JPRB,.299E-02_JPRB,.438E-02_JPRB,.622E-02_JPRB,.961E-02_JPRB,.126E-01_JPRB,.127E-01_JPRB,&
+&.118E-01_JPRB,.803E-02_JPRB,.617E-02_JPRB,.424E-02_JPRB,.280E-02_JPRB,.235E-02_JPRB,.194E-02_JPRB,&
+&.157E-02_JPRB,.144E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,&
+&.140E-02_JPRB,.169E-02_JPRB,.260E-02_JPRB,.450E-02_JPRB,.647E-02_JPRB,.101E-01_JPRB,.134E-01_JPRB,&
+&.135E-01_JPRB,.116E-01_JPRB,.729E-02_JPRB,.514E-02_JPRB,.289E-02_JPRB,.195E-02_JPRB,.165E-02_JPRB,&
+&.140E-02_JPRB,.116E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 19  18.0
+ZAER (:,19, 6) = (/&
+&.992E-03_JPRB,.990E-03_JPRB,.915E-03_JPRB,.883E-03_JPRB,.857E-03_JPRB,.850E-03_JPRB,.843E-03_JPRB,&
+&.829E-03_JPRB,.780E-03_JPRB,.763E-03_JPRB,.741E-03_JPRB,.692E-03_JPRB,.654E-03_JPRB,.650E-03_JPRB,&
+&.674E-03_JPRB,.798E-03_JPRB,.105E-02_JPRB,.149E-02_JPRB,.296E-02_JPRB,.425E-02_JPRB,.587E-02_JPRB,&
+&.882E-02_JPRB,.102E-01_JPRB,.115E-01_JPRB,.234E-01_JPRB,.265E-01_JPRB,.286E-01_JPRB,.159E-01_JPRB,&
+&.102E-01_JPRB,.571E-02_JPRB,.281E-02_JPRB,.237E-02_JPRB,.211E-02_JPRB,.203E-02_JPRB,.232E-02_JPRB,&
+&.279E-02_JPRB,.394E-02_JPRB,.661E-02_JPRB,.906E-02_JPRB,.130E-01_JPRB,.140E-01_JPRB,.131E-01_JPRB,&
+&.111E-01_JPRB,.731E-02_JPRB,.575E-02_JPRB,.424E-02_JPRB,.297E-02_JPRB,.241E-02_JPRB,.188E-02_JPRB,&
+&.147E-02_JPRB,.138E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.136E-02_JPRB,&
+&.170E-02_JPRB,.221E-02_JPRB,.365E-02_JPRB,.622E-02_JPRB,.864E-02_JPRB,.128E-01_JPRB,.151E-01_JPRB,&
+&.141E-01_JPRB,.105E-01_JPRB,.590E-02_JPRB,.397E-02_JPRB,.215E-02_JPRB,.150E-02_JPRB,.130E-02_JPRB,&
+&.113E-02_JPRB,.996E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 20  14.0
+ZAER (:,20, 6) = (/&
+&.862E-03_JPRB,.861E-03_JPRB,.802E-03_JPRB,.795E-03_JPRB,.789E-03_JPRB,.780E-03_JPRB,.759E-03_JPRB,&
+&.741E-03_JPRB,.711E-03_JPRB,.707E-03_JPRB,.699E-03_JPRB,.678E-03_JPRB,.670E-03_JPRB,.691E-03_JPRB,&
+&.755E-03_JPRB,.100E-02_JPRB,.136E-02_JPRB,.196E-02_JPRB,.369E-02_JPRB,.542E-02_JPRB,.763E-02_JPRB,&
+&.118E-01_JPRB,.141E-01_JPRB,.165E-01_JPRB,.282E-01_JPRB,.297E-01_JPRB,.301E-01_JPRB,.146E-01_JPRB,&
+&.897E-02_JPRB,.465E-02_JPRB,.252E-02_JPRB,.226E-02_JPRB,.213E-02_JPRB,.219E-02_JPRB,.271E-02_JPRB,&
+&.342E-02_JPRB,.504E-02_JPRB,.937E-02_JPRB,.122E-01_JPRB,.159E-01_JPRB,.144E-01_JPRB,.126E-01_JPRB,&
+&.994E-02_JPRB,.636E-02_JPRB,.513E-02_JPRB,.405E-02_JPRB,.293E-02_JPRB,.236E-02_JPRB,.179E-02_JPRB,&
+&.143E-02_JPRB,.135E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.137E-02_JPRB,.153E-02_JPRB,&
+&.205E-02_JPRB,.268E-02_JPRB,.417E-02_JPRB,.678E-02_JPRB,.885E-02_JPRB,.120E-01_JPRB,.119E-01_JPRB,&
+&.103E-01_JPRB,.674E-02_JPRB,.373E-02_JPRB,.260E-02_JPRB,.162E-02_JPRB,.120E-02_JPRB,.108E-02_JPRB,&
+&.973E-03_JPRB,.866E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 21  10.0
+ZAER (:,21, 6) = (/&
+&.769E-03_JPRB,.768E-03_JPRB,.716E-03_JPRB,.715E-03_JPRB,.711E-03_JPRB,.685E-03_JPRB,.671E-03_JPRB,&
+&.664E-03_JPRB,.668E-03_JPRB,.676E-03_JPRB,.684E-03_JPRB,.701E-03_JPRB,.732E-03_JPRB,.788E-03_JPRB,&
+&.909E-03_JPRB,.129E-02_JPRB,.173E-02_JPRB,.242E-02_JPRB,.433E-02_JPRB,.627E-02_JPRB,.876E-02_JPRB,&
+&.131E-01_JPRB,.163E-01_JPRB,.196E-01_JPRB,.287E-01_JPRB,.275E-01_JPRB,.255E-01_JPRB,.107E-01_JPRB,&
+&.642E-02_JPRB,.319E-02_JPRB,.210E-02_JPRB,.201E-02_JPRB,.202E-02_JPRB,.229E-02_JPRB,.306E-02_JPRB,&
+&.402E-02_JPRB,.608E-02_JPRB,.114E-01_JPRB,.145E-01_JPRB,.178E-01_JPRB,.152E-01_JPRB,.129E-01_JPRB,&
+&.976E-02_JPRB,.597E-02_JPRB,.471E-02_JPRB,.362E-02_JPRB,.257E-02_JPRB,.212E-02_JPRB,.170E-02_JPRB,&
+&.142E-02_JPRB,.133E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.130E-02_JPRB,.138E-02_JPRB,.171E-02_JPRB,&
+&.232E-02_JPRB,.289E-02_JPRB,.399E-02_JPRB,.591E-02_JPRB,.701E-02_JPRB,.811E-02_JPRB,.683E-02_JPRB,&
+&.554E-02_JPRB,.351E-02_JPRB,.220E-02_JPRB,.170E-02_JPRB,.126E-02_JPRB,.102E-02_JPRB,.936E-03_JPRB,&
+&.859E-03_JPRB,.772E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 22   6.0
+ZAER (:,22, 6) = (/&
+&.712E-03_JPRB,.710E-03_JPRB,.647E-03_JPRB,.638E-03_JPRB,.628E-03_JPRB,.597E-03_JPRB,.596E-03_JPRB,&
+&.599E-03_JPRB,.624E-03_JPRB,.655E-03_JPRB,.682E-03_JPRB,.729E-03_JPRB,.789E-03_JPRB,.878E-03_JPRB,&
+&.106E-02_JPRB,.149E-02_JPRB,.194E-02_JPRB,.263E-02_JPRB,.470E-02_JPRB,.668E-02_JPRB,.919E-02_JPRB,&
+&.126E-01_JPRB,.155E-01_JPRB,.187E-01_JPRB,.235E-01_JPRB,.209E-01_JPRB,.179E-01_JPRB,.737E-02_JPRB,&
+&.455E-02_JPRB,.243E-02_JPRB,.173E-02_JPRB,.176E-02_JPRB,.188E-02_JPRB,.234E-02_JPRB,.333E-02_JPRB,&
+&.446E-02_JPRB,.681E-02_JPRB,.120E-01_JPRB,.150E-01_JPRB,.184E-01_JPRB,.156E-01_JPRB,.131E-01_JPRB,&
+&.971E-02_JPRB,.590E-02_JPRB,.456E-02_JPRB,.337E-02_JPRB,.229E-02_JPRB,.196E-02_JPRB,.165E-02_JPRB,&
+&.141E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,.116E-02_JPRB,.121E-02_JPRB,.133E-02_JPRB,.183E-02_JPRB,&
+&.245E-02_JPRB,.295E-02_JPRB,.373E-02_JPRB,.457E-02_JPRB,.482E-02_JPRB,.460E-02_JPRB,.351E-02_JPRB,&
+&.281E-02_JPRB,.195E-02_JPRB,.147E-02_JPRB,.127E-02_JPRB,.107E-02_JPRB,.892E-03_JPRB,.829E-03_JPRB,&
+&.771E-03_JPRB,.714E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 23   2.0
+ZAER (:,23, 6) = (/&
+&.681E-03_JPRB,.679E-03_JPRB,.601E-03_JPRB,.586E-03_JPRB,.572E-03_JPRB,.547E-03_JPRB,.554E-03_JPRB,&
+&.565E-03_JPRB,.596E-03_JPRB,.638E-03_JPRB,.672E-03_JPRB,.729E-03_JPRB,.808E-03_JPRB,.920E-03_JPRB,&
+&.114E-02_JPRB,.153E-02_JPRB,.200E-02_JPRB,.274E-02_JPRB,.495E-02_JPRB,.684E-02_JPRB,.919E-02_JPRB,&
+&.110E-01_JPRB,.126E-01_JPRB,.143E-01_JPRB,.162E-01_JPRB,.138E-01_JPRB,.113E-01_JPRB,.499E-02_JPRB,&
+&.325E-02_JPRB,.193E-02_JPRB,.143E-02_JPRB,.158E-02_JPRB,.178E-02_JPRB,.240E-02_JPRB,.354E-02_JPRB,&
+&.466E-02_JPRB,.678E-02_JPRB,.111E-01_JPRB,.137E-01_JPRB,.165E-01_JPRB,.144E-01_JPRB,.123E-01_JPRB,&
+&.922E-02_JPRB,.583E-02_JPRB,.451E-02_JPRB,.327E-02_JPRB,.218E-02_JPRB,.191E-02_JPRB,.167E-02_JPRB,&
+&.139E-02_JPRB,.128E-02_JPRB,.118E-02_JPRB,.107E-02_JPRB,.112E-02_JPRB,.124E-02_JPRB,.178E-02_JPRB,&
+&.236E-02_JPRB,.279E-02_JPRB,.335E-02_JPRB,.363E-02_JPRB,.357E-02_JPRB,.310E-02_JPRB,.229E-02_JPRB,&
+&.188E-02_JPRB,.146E-02_JPRB,.121E-02_JPRB,.110E-02_JPRB,.995E-03_JPRB,.837E-03_JPRB,.784E-03_JPRB,&
+&.737E-03_JPRB,.683E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 24  -2.0
+ZAER (:,24, 6) = (/&
+&.716E-03_JPRB,.713E-03_JPRB,.612E-03_JPRB,.586E-03_JPRB,.563E-03_JPRB,.537E-03_JPRB,.552E-03_JPRB,&
+&.567E-03_JPRB,.597E-03_JPRB,.632E-03_JPRB,.667E-03_JPRB,.733E-03_JPRB,.843E-03_JPRB,.950E-03_JPRB,&
+&.113E-02_JPRB,.153E-02_JPRB,.201E-02_JPRB,.276E-02_JPRB,.492E-02_JPRB,.649E-02_JPRB,.835E-02_JPRB,&
+&.868E-02_JPRB,.898E-02_JPRB,.930E-02_JPRB,.876E-02_JPRB,.712E-02_JPRB,.548E-02_JPRB,.295E-02_JPRB,&
+&.215E-02_JPRB,.154E-02_JPRB,.136E-02_JPRB,.155E-02_JPRB,.179E-02_JPRB,.243E-02_JPRB,.343E-02_JPRB,&
+&.436E-02_JPRB,.604E-02_JPRB,.865E-02_JPRB,.101E-01_JPRB,.118E-01_JPRB,.106E-01_JPRB,.932E-02_JPRB,&
+&.751E-02_JPRB,.515E-02_JPRB,.411E-02_JPRB,.309E-02_JPRB,.220E-02_JPRB,.194E-02_JPRB,.172E-02_JPRB,&
+&.138E-02_JPRB,.127E-02_JPRB,.116E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.116E-02_JPRB,.151E-02_JPRB,&
+&.198E-02_JPRB,.235E-02_JPRB,.286E-02_JPRB,.305E-02_JPRB,.299E-02_JPRB,.260E-02_JPRB,.197E-02_JPRB,&
+&.166E-02_JPRB,.135E-02_JPRB,.118E-02_JPRB,.110E-02_JPRB,.101E-02_JPRB,.851E-03_JPRB,.815E-03_JPRB,&
+&.790E-03_JPRB,.719E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 25  -6.0
+ZAER (:,25, 6) = (/&
+&.817E-03_JPRB,.813E-03_JPRB,.673E-03_JPRB,.644E-03_JPRB,.620E-03_JPRB,.612E-03_JPRB,.622E-03_JPRB,&
+&.630E-03_JPRB,.642E-03_JPRB,.695E-03_JPRB,.736E-03_JPRB,.797E-03_JPRB,.876E-03_JPRB,.951E-03_JPRB,&
+&.108E-02_JPRB,.147E-02_JPRB,.190E-02_JPRB,.256E-02_JPRB,.419E-02_JPRB,.515E-02_JPRB,.622E-02_JPRB,&
+&.636E-02_JPRB,.608E-02_JPRB,.574E-02_JPRB,.442E-02_JPRB,.350E-02_JPRB,.262E-02_JPRB,.173E-02_JPRB,&
+&.148E-02_JPRB,.131E-02_JPRB,.136E-02_JPRB,.154E-02_JPRB,.175E-02_JPRB,.227E-02_JPRB,.311E-02_JPRB,&
+&.385E-02_JPRB,.507E-02_JPRB,.638E-02_JPRB,.682E-02_JPRB,.692E-02_JPRB,.639E-02_JPRB,.593E-02_JPRB,&
+&.529E-02_JPRB,.397E-02_JPRB,.336E-02_JPRB,.275E-02_JPRB,.221E-02_JPRB,.202E-02_JPRB,.183E-02_JPRB,&
+&.154E-02_JPRB,.147E-02_JPRB,.140E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.148E-02_JPRB,&
+&.181E-02_JPRB,.210E-02_JPRB,.260E-02_JPRB,.278E-02_JPRB,.273E-02_JPRB,.239E-02_JPRB,.189E-02_JPRB,&
+&.167E-02_JPRB,.147E-02_JPRB,.139E-02_JPRB,.130E-02_JPRB,.118E-02_JPRB,.983E-03_JPRB,.940E-03_JPRB,&
+&.911E-03_JPRB,.820E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 26 -10.0
+ZAER (:,26, 6) = (/&
+&.971E-03_JPRB,.966E-03_JPRB,.794E-03_JPRB,.775E-03_JPRB,.765E-03_JPRB,.807E-03_JPRB,.798E-03_JPRB,&
+&.790E-03_JPRB,.776E-03_JPRB,.833E-03_JPRB,.872E-03_JPRB,.917E-03_JPRB,.944E-03_JPRB,.993E-03_JPRB,&
+&.110E-02_JPRB,.145E-02_JPRB,.176E-02_JPRB,.223E-02_JPRB,.310E-02_JPRB,.359E-02_JPRB,.414E-02_JPRB,&
+&.428E-02_JPRB,.387E-02_JPRB,.336E-02_JPRB,.230E-02_JPRB,.189E-02_JPRB,.151E-02_JPRB,.119E-02_JPRB,&
+&.117E-02_JPRB,.118E-02_JPRB,.133E-02_JPRB,.147E-02_JPRB,.164E-02_JPRB,.206E-02_JPRB,.266E-02_JPRB,&
+&.315E-02_JPRB,.393E-02_JPRB,.469E-02_JPRB,.475E-02_JPRB,.436E-02_JPRB,.394E-02_JPRB,.372E-02_JPRB,&
+&.347E-02_JPRB,.302E-02_JPRB,.279E-02_JPRB,.253E-02_JPRB,.237E-02_JPRB,.228E-02_JPRB,.220E-02_JPRB,&
+&.212E-02_JPRB,.221E-02_JPRB,.228E-02_JPRB,.236E-02_JPRB,.222E-02_JPRB,.214E-02_JPRB,.218E-02_JPRB,&
+&.245E-02_JPRB,.269E-02_JPRB,.308E-02_JPRB,.315E-02_JPRB,.305E-02_JPRB,.268E-02_JPRB,.219E-02_JPRB,&
+&.200E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.173E-02_JPRB,.158E-02_JPRB,.130E-02_JPRB,.120E-02_JPRB,&
+&.112E-02_JPRB,.976E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 27 -14.0
+ZAER (:,27, 6) = (/&
+&.115E-02_JPRB,.115E-02_JPRB,.964E-03_JPRB,.979E-03_JPRB,.997E-03_JPRB,.106E-02_JPRB,.104E-02_JPRB,&
+&.102E-02_JPRB,.975E-03_JPRB,.102E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.112E-02_JPRB,&
+&.125E-02_JPRB,.162E-02_JPRB,.183E-02_JPRB,.207E-02_JPRB,.236E-02_JPRB,.265E-02_JPRB,.302E-02_JPRB,&
+&.290E-02_JPRB,.252E-02_JPRB,.207E-02_JPRB,.144E-02_JPRB,.130E-02_JPRB,.117E-02_JPRB,.104E-02_JPRB,&
+&.108E-02_JPRB,.113E-02_JPRB,.128E-02_JPRB,.141E-02_JPRB,.154E-02_JPRB,.185E-02_JPRB,.221E-02_JPRB,&
+&.250E-02_JPRB,.297E-02_JPRB,.343E-02_JPRB,.353E-02_JPRB,.342E-02_JPRB,.302E-02_JPRB,.280E-02_JPRB,&
+&.254E-02_JPRB,.258E-02_JPRB,.264E-02_JPRB,.271E-02_JPRB,.298E-02_JPRB,.302E-02_JPRB,.306E-02_JPRB,&
+&.322E-02_JPRB,.358E-02_JPRB,.391E-02_JPRB,.414E-02_JPRB,.394E-02_JPRB,.379E-02_JPRB,.365E-02_JPRB,&
+&.403E-02_JPRB,.439E-02_JPRB,.510E-02_JPRB,.465E-02_JPRB,.425E-02_JPRB,.357E-02_JPRB,.297E-02_JPRB,&
+&.272E-02_JPRB,.252E-02_JPRB,.237E-02_JPRB,.220E-02_JPRB,.195E-02_JPRB,.170E-02_JPRB,.156E-02_JPRB,&
+&.141E-02_JPRB,.116E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 28 -18.0
+ZAER (:,28, 6) = (/&
+&.135E-02_JPRB,.135E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,.126E-02_JPRB,.132E-02_JPRB,.128E-02_JPRB,&
+&.125E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,.131E-02_JPRB,&
+&.149E-02_JPRB,.186E-02_JPRB,.198E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.218E-02_JPRB,.243E-02_JPRB,&
+&.211E-02_JPRB,.184E-02_JPRB,.156E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.111E-02_JPRB,.105E-02_JPRB,&
+&.108E-02_JPRB,.112E-02_JPRB,.125E-02_JPRB,.135E-02_JPRB,.146E-02_JPRB,.169E-02_JPRB,.194E-02_JPRB,&
+&.211E-02_JPRB,.233E-02_JPRB,.255E-02_JPRB,.268E-02_JPRB,.284E-02_JPRB,.266E-02_JPRB,.251E-02_JPRB,&
+&.231E-02_JPRB,.247E-02_JPRB,.273E-02_JPRB,.307E-02_JPRB,.380E-02_JPRB,.401E-02_JPRB,.420E-02_JPRB,&
+&.446E-02_JPRB,.498E-02_JPRB,.546E-02_JPRB,.584E-02_JPRB,.570E-02_JPRB,.557E-02_JPRB,.539E-02_JPRB,&
+&.646E-02_JPRB,.738E-02_JPRB,.891E-02_JPRB,.754E-02_JPRB,.649E-02_JPRB,.493E-02_JPRB,.398E-02_JPRB,&
+&.358E-02_JPRB,.326E-02_JPRB,.282E-02_JPRB,.253E-02_JPRB,.219E-02_JPRB,.203E-02_JPRB,.188E-02_JPRB,&
+&.170E-02_JPRB,.136E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 29 -22.0
+ZAER (:,29, 6) = (/&
+&.166E-02_JPRB,.166E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,&
+&.142E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,.157E-02_JPRB,&
+&.174E-02_JPRB,.198E-02_JPRB,.203E-02_JPRB,.200E-02_JPRB,.190E-02_JPRB,.198E-02_JPRB,.212E-02_JPRB,&
+&.178E-02_JPRB,.159E-02_JPRB,.140E-02_JPRB,.124E-02_JPRB,.118E-02_JPRB,.112E-02_JPRB,.107E-02_JPRB,&
+&.110E-02_JPRB,.113E-02_JPRB,.123E-02_JPRB,.133E-02_JPRB,.143E-02_JPRB,.163E-02_JPRB,.185E-02_JPRB,&
+&.198E-02_JPRB,.210E-02_JPRB,.207E-02_JPRB,.215E-02_JPRB,.236E-02_JPRB,.257E-02_JPRB,.263E-02_JPRB,&
+&.265E-02_JPRB,.269E-02_JPRB,.297E-02_JPRB,.334E-02_JPRB,.446E-02_JPRB,.484E-02_JPRB,.520E-02_JPRB,&
+&.546E-02_JPRB,.580E-02_JPRB,.610E-02_JPRB,.623E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,.659E-02_JPRB,&
+&.893E-02_JPRB,.108E-01_JPRB,.136E-01_JPRB,.119E-01_JPRB,.101E-01_JPRB,.703E-02_JPRB,.522E-02_JPRB,&
+&.447E-02_JPRB,.390E-02_JPRB,.320E-02_JPRB,.284E-02_JPRB,.244E-02_JPRB,.231E-02_JPRB,.218E-02_JPRB,&
+&.203E-02_JPRB,.168E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 30 -26.0
+ZAER (:,30, 6) = (/&
+&.206E-02_JPRB,.205E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.171E-02_JPRB,.162E-02_JPRB,.156E-02_JPRB,&
+&.152E-02_JPRB,.150E-02_JPRB,.155E-02_JPRB,.159E-02_JPRB,.163E-02_JPRB,.173E-02_JPRB,.181E-02_JPRB,&
+&.194E-02_JPRB,.200E-02_JPRB,.205E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.212E-02_JPRB,&
+&.179E-02_JPRB,.161E-02_JPRB,.143E-02_JPRB,.128E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,&
+&.110E-02_JPRB,.113E-02_JPRB,.122E-02_JPRB,.135E-02_JPRB,.147E-02_JPRB,.169E-02_JPRB,.198E-02_JPRB,&
+&.214E-02_JPRB,.230E-02_JPRB,.212E-02_JPRB,.213E-02_JPRB,.229E-02_JPRB,.294E-02_JPRB,.322E-02_JPRB,&
+&.348E-02_JPRB,.346E-02_JPRB,.362E-02_JPRB,.384E-02_JPRB,.503E-02_JPRB,.547E-02_JPRB,.588E-02_JPRB,&
+&.603E-02_JPRB,.595E-02_JPRB,.583E-02_JPRB,.515E-02_JPRB,.497E-02_JPRB,.508E-02_JPRB,.660E-02_JPRB,&
+&.105E-01_JPRB,.137E-01_JPRB,.183E-01_JPRB,.168E-01_JPRB,.147E-01_JPRB,.100E-01_JPRB,.676E-02_JPRB,&
+&.542E-02_JPRB,.445E-02_JPRB,.362E-02_JPRB,.324E-02_JPRB,.285E-02_JPRB,.269E-02_JPRB,.256E-02_JPRB,&
+&.242E-02_JPRB,.207E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 31 -30.0
+ZAER (:,31, 6) = (/&
+&.237E-02_JPRB,.236E-02_JPRB,.209E-02_JPRB,.201E-02_JPRB,.193E-02_JPRB,.176E-02_JPRB,.169E-02_JPRB,&
+&.166E-02_JPRB,.167E-02_JPRB,.172E-02_JPRB,.176E-02_JPRB,.183E-02_JPRB,.191E-02_JPRB,.196E-02_JPRB,&
+&.199E-02_JPRB,.196E-02_JPRB,.209E-02_JPRB,.235E-02_JPRB,.260E-02_JPRB,.257E-02_JPRB,.249E-02_JPRB,&
+&.208E-02_JPRB,.183E-02_JPRB,.157E-02_JPRB,.130E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,.109E-02_JPRB,&
+&.111E-02_JPRB,.114E-02_JPRB,.122E-02_JPRB,.142E-02_JPRB,.159E-02_JPRB,.192E-02_JPRB,.236E-02_JPRB,&
+&.267E-02_JPRB,.309E-02_JPRB,.298E-02_JPRB,.296E-02_JPRB,.299E-02_JPRB,.392E-02_JPRB,.434E-02_JPRB,&
+&.476E-02_JPRB,.480E-02_JPRB,.484E-02_JPRB,.490E-02_JPRB,.593E-02_JPRB,.630E-02_JPRB,.663E-02_JPRB,&
+&.644E-02_JPRB,.586E-02_JPRB,.525E-02_JPRB,.381E-02_JPRB,.356E-02_JPRB,.371E-02_JPRB,.577E-02_JPRB,&
+&.108E-01_JPRB,.149E-01_JPRB,.215E-01_JPRB,.208E-01_JPRB,.186E-01_JPRB,.132E-01_JPRB,.842E-02_JPRB,&
+&.642E-02_JPRB,.488E-02_JPRB,.393E-02_JPRB,.357E-02_JPRB,.327E-02_JPRB,.309E-02_JPRB,.295E-02_JPRB,&
+&.279E-02_JPRB,.238E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 32 -34.0
+ZAER (:,32, 6) = (/&
+&.250E-02_JPRB,.249E-02_JPRB,.219E-02_JPRB,.214E-02_JPRB,.208E-02_JPRB,.193E-02_JPRB,.187E-02_JPRB,&
+&.183E-02_JPRB,.182E-02_JPRB,.183E-02_JPRB,.186E-02_JPRB,.197E-02_JPRB,.202E-02_JPRB,.200E-02_JPRB,&
+&.190E-02_JPRB,.187E-02_JPRB,.205E-02_JPRB,.243E-02_JPRB,.293E-02_JPRB,.298E-02_JPRB,.293E-02_JPRB,&
+&.253E-02_JPRB,.220E-02_JPRB,.184E-02_JPRB,.138E-02_JPRB,.127E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,&
+&.115E-02_JPRB,.118E-02_JPRB,.128E-02_JPRB,.154E-02_JPRB,.181E-02_JPRB,.242E-02_JPRB,.314E-02_JPRB,&
+&.377E-02_JPRB,.482E-02_JPRB,.527E-02_JPRB,.533E-02_JPRB,.516E-02_JPRB,.609E-02_JPRB,.655E-02_JPRB,&
+&.701E-02_JPRB,.687E-02_JPRB,.677E-02_JPRB,.666E-02_JPRB,.752E-02_JPRB,.778E-02_JPRB,.801E-02_JPRB,&
+&.716E-02_JPRB,.613E-02_JPRB,.512E-02_JPRB,.333E-02_JPRB,.312E-02_JPRB,.324E-02_JPRB,.497E-02_JPRB,&
+&.955E-02_JPRB,.136E-01_JPRB,.208E-01_JPRB,.217E-01_JPRB,.203E-01_JPRB,.151E-01_JPRB,.980E-02_JPRB,&
+&.733E-02_JPRB,.513E-02_JPRB,.395E-02_JPRB,.362E-02_JPRB,.342E-02_JPRB,.332E-02_JPRB,.316E-02_JPRB,&
+&.296E-02_JPRB,.251E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 33 -38.0
+ZAER (:,33, 6) = (/&
+&.242E-02_JPRB,.241E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,.211E-02_JPRB,.205E-02_JPRB,.200E-02_JPRB,&
+&.195E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,.187E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.196E-02_JPRB,&
+&.178E-02_JPRB,.175E-02_JPRB,.192E-02_JPRB,.226E-02_JPRB,.278E-02_JPRB,.293E-02_JPRB,.302E-02_JPRB,&
+&.288E-02_JPRB,.257E-02_JPRB,.222E-02_JPRB,.158E-02_JPRB,.143E-02_JPRB,.129E-02_JPRB,.119E-02_JPRB,&
+&.120E-02_JPRB,.123E-02_JPRB,.135E-02_JPRB,.171E-02_JPRB,.212E-02_JPRB,.314E-02_JPRB,.451E-02_JPRB,&
+&.583E-02_JPRB,.826E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,&
+&.112E-01_JPRB,.105E-01_JPRB,.999E-02_JPRB,.949E-02_JPRB,.986E-02_JPRB,.991E-02_JPRB,.994E-02_JPRB,&
+&.845E-02_JPRB,.718E-02_JPRB,.596E-02_JPRB,.412E-02_JPRB,.388E-02_JPRB,.385E-02_JPRB,.466E-02_JPRB,&
+&.745E-02_JPRB,.103E-01_JPRB,.161E-01_JPRB,.189E-01_JPRB,.187E-01_JPRB,.151E-01_JPRB,.103E-01_JPRB,&
+&.775E-02_JPRB,.514E-02_JPRB,.371E-02_JPRB,.337E-02_JPRB,.323E-02_JPRB,.320E-02_JPRB,.304E-02_JPRB,&
+&.284E-02_JPRB,.243E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 34 -42.0
+ZAER (:,34, 6) = (/&
+&.216E-02_JPRB,.215E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.203E-02_JPRB,.199E-02_JPRB,&
+&.195E-02_JPRB,.183E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.190E-02_JPRB,.193E-02_JPRB,.187E-02_JPRB,&
+&.170E-02_JPRB,.166E-02_JPRB,.177E-02_JPRB,.200E-02_JPRB,.232E-02_JPRB,.247E-02_JPRB,.262E-02_JPRB,&
+&.278E-02_JPRB,.263E-02_JPRB,.243E-02_JPRB,.177E-02_JPRB,.159E-02_JPRB,.143E-02_JPRB,.128E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.139E-02_JPRB,.180E-02_JPRB,.229E-02_JPRB,.357E-02_JPRB,.602E-02_JPRB,&
+&.863E-02_JPRB,.138E-01_JPRB,.190E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.188E-01_JPRB,.182E-01_JPRB,&
+&.177E-01_JPRB,.163E-01_JPRB,.152E-01_JPRB,.138E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,&
+&.998E-02_JPRB,.878E-02_JPRB,.763E-02_JPRB,.596E-02_JPRB,.545E-02_JPRB,.508E-02_JPRB,.482E-02_JPRB,&
+&.583E-02_JPRB,.715E-02_JPRB,.105E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.130E-01_JPRB,.948E-02_JPRB,&
+&.736E-02_JPRB,.489E-02_JPRB,.343E-02_JPRB,.306E-02_JPRB,.288E-02_JPRB,.278E-02_JPRB,.262E-02_JPRB,&
+&.243E-02_JPRB,.217E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 35 -46.0
+ZAER (:,35, 6) = (/&
+&.186E-02_JPRB,.186E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,.193E-02_JPRB,.194E-02_JPRB,.191E-02_JPRB,&
+&.188E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.175E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.173E-02_JPRB,&
+&.162E-02_JPRB,.161E-02_JPRB,.167E-02_JPRB,.179E-02_JPRB,.188E-02_JPRB,.194E-02_JPRB,.201E-02_JPRB,&
+&.222E-02_JPRB,.220E-02_JPRB,.216E-02_JPRB,.175E-02_JPRB,.163E-02_JPRB,.151E-02_JPRB,.135E-02_JPRB,&
+&.129E-02_JPRB,.126E-02_JPRB,.135E-02_JPRB,.166E-02_JPRB,.207E-02_JPRB,.325E-02_JPRB,.665E-02_JPRB,&
+&.108E-01_JPRB,.196E-01_JPRB,.314E-01_JPRB,.355E-01_JPRB,.367E-01_JPRB,.303E-01_JPRB,.276E-01_JPRB,&
+&.250E-01_JPRB,.234E-01_JPRB,.215E-01_JPRB,.193E-01_JPRB,.158E-01_JPRB,.143E-01_JPRB,.128E-01_JPRB,&
+&.110E-01_JPRB,.101E-01_JPRB,.919E-02_JPRB,.782E-02_JPRB,.694E-02_JPRB,.620E-02_JPRB,.521E-02_JPRB,&
+&.529E-02_JPRB,.561E-02_JPRB,.679E-02_JPRB,.851E-02_JPRB,.928E-02_JPRB,.961E-02_JPRB,.780E-02_JPRB,&
+&.640E-02_JPRB,.446E-02_JPRB,.325E-02_JPRB,.288E-02_JPRB,.262E-02_JPRB,.232E-02_JPRB,.215E-02_JPRB,&
+&.198E-02_JPRB,.186E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 36 -50.0
+ZAER (:,36, 6) = (/&
+&.170E-02_JPRB,.170E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.178E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,&
+&.154E-02_JPRB,.156E-02_JPRB,.159E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,.157E-02_JPRB,.153E-02_JPRB,&
+&.159E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.134E-02_JPRB,&
+&.129E-02_JPRB,.126E-02_JPRB,.129E-02_JPRB,.146E-02_JPRB,.174E-02_JPRB,.264E-02_JPRB,.606E-02_JPRB,&
+&.107E-01_JPRB,.210E-01_JPRB,.379E-01_JPRB,.447E-01_JPRB,.484E-01_JPRB,.398E-01_JPRB,.353E-01_JPRB,&
+&.303E-01_JPRB,.280E-01_JPRB,.259E-01_JPRB,.233E-01_JPRB,.184E-01_JPRB,.160E-01_JPRB,.136E-01_JPRB,&
+&.112E-01_JPRB,.104E-01_JPRB,.965E-02_JPRB,.842E-02_JPRB,.736E-02_JPRB,.649E-02_JPRB,.537E-02_JPRB,&
+&.526E-02_JPRB,.523E-02_JPRB,.534E-02_JPRB,.585E-02_JPRB,.613E-02_JPRB,.639E-02_JPRB,.560E-02_JPRB,&
+&.491E-02_JPRB,.388E-02_JPRB,.303E-02_JPRB,.270E-02_JPRB,.240E-02_JPRB,.201E-02_JPRB,.187E-02_JPRB,&
+&.173E-02_JPRB,.170E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 37 -54.0
+ZAER (:,37, 6) = (/&
+&.168E-02_JPRB,.168E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,&
+&.171E-02_JPRB,.168E-02_JPRB,.160E-02_JPRB,.154E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.146E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,.141E-02_JPRB,.135E-02_JPRB,&
+&.130E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,&
+&.123E-02_JPRB,.122E-02_JPRB,.130E-02_JPRB,.141E-02_JPRB,.161E-02_JPRB,.224E-02_JPRB,.472E-02_JPRB,&
+&.795E-02_JPRB,.151E-01_JPRB,.264E-01_JPRB,.319E-01_JPRB,.367E-01_JPRB,.334E-01_JPRB,.312E-01_JPRB,&
+&.284E-01_JPRB,.267E-01_JPRB,.247E-01_JPRB,.222E-01_JPRB,.177E-01_JPRB,.154E-01_JPRB,.131E-01_JPRB,&
+&.103E-01_JPRB,.943E-02_JPRB,.855E-02_JPRB,.735E-02_JPRB,.658E-02_JPRB,.596E-02_JPRB,.525E-02_JPRB,&
+&.505E-02_JPRB,.491E-02_JPRB,.472E-02_JPRB,.458E-02_JPRB,.441E-02_JPRB,.406E-02_JPRB,.364E-02_JPRB,&
+&.339E-02_JPRB,.311E-02_JPRB,.273E-02_JPRB,.250E-02_JPRB,.223E-02_JPRB,.189E-02_JPRB,.178E-02_JPRB,&
+&.168E-02_JPRB,.168E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 38 -58.0
+ZAER (:,38, 6) = (/&
+&.171E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,.164E-02_JPRB,&
+&.160E-02_JPRB,.151E-02_JPRB,.145E-02_JPRB,.140E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,&
+&.139E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,.135E-02_JPRB,.130E-02_JPRB,&
+&.123E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,&
+&.114E-02_JPRB,.117E-02_JPRB,.131E-02_JPRB,.148E-02_JPRB,.168E-02_JPRB,.213E-02_JPRB,.346E-02_JPRB,&
+&.503E-02_JPRB,.834E-02_JPRB,.126E-01_JPRB,.151E-01_JPRB,.179E-01_JPRB,.189E-01_JPRB,.192E-01_JPRB,&
+&.193E-01_JPRB,.191E-01_JPRB,.178E-01_JPRB,.160E-01_JPRB,.128E-01_JPRB,.114E-01_JPRB,.101E-01_JPRB,&
+&.826E-02_JPRB,.746E-02_JPRB,.670E-02_JPRB,.569E-02_JPRB,.531E-02_JPRB,.501E-02_JPRB,.470E-02_JPRB,&
+&.446E-02_JPRB,.427E-02_JPRB,.399E-02_JPRB,.366E-02_JPRB,.337E-02_JPRB,.291E-02_JPRB,.260E-02_JPRB,&
+&.248E-02_JPRB,.241E-02_JPRB,.236E-02_JPRB,.227E-02_JPRB,.214E-02_JPRB,.189E-02_JPRB,.180E-02_JPRB,&
+&.172E-02_JPRB,.171E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 39 -62.0
+ZAER (:,39, 6) = (/&
+&.176E-02_JPRB,.176E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.164E-02_JPRB,.156E-02_JPRB,&
+&.149E-02_JPRB,.139E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,&
+&.138E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,&
+&.127E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.118E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.104E-02_JPRB,&
+&.106E-02_JPRB,.109E-02_JPRB,.124E-02_JPRB,.148E-02_JPRB,.171E-02_JPRB,.219E-02_JPRB,.300E-02_JPRB,&
+&.383E-02_JPRB,.541E-02_JPRB,.739E-02_JPRB,.867E-02_JPRB,.103E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.106E-01_JPRB,.991E-02_JPRB,.913E-02_JPRB,.777E-02_JPRB,.711E-02_JPRB,.647E-02_JPRB,&
+&.566E-02_JPRB,.529E-02_JPRB,.493E-02_JPRB,.439E-02_JPRB,.417E-02_JPRB,.399E-02_JPRB,.381E-02_JPRB,&
+&.366E-02_JPRB,.353E-02_JPRB,.332E-02_JPRB,.311E-02_JPRB,.293E-02_JPRB,.266E-02_JPRB,.241E-02_JPRB,&
+&.229E-02_JPRB,.218E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.211E-02_JPRB,.197E-02_JPRB,.190E-02_JPRB,&
+&.182E-02_JPRB,.176E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 40 -66.0
+ZAER (:,40, 6) = (/&
+&.180E-02_JPRB,.180E-02_JPRB,.176E-02_JPRB,.173E-02_JPRB,.170E-02_JPRB,.160E-02_JPRB,.152E-02_JPRB,&
+&.146E-02_JPRB,.137E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,&
+&.123E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.971E-03_JPRB,&
+&.981E-03_JPRB,.100E-02_JPRB,.112E-02_JPRB,.132E-02_JPRB,.152E-02_JPRB,.198E-02_JPRB,.261E-02_JPRB,&
+&.318E-02_JPRB,.417E-02_JPRB,.543E-02_JPRB,.628E-02_JPRB,.738E-02_JPRB,.792E-02_JPRB,.795E-02_JPRB,&
+&.780E-02_JPRB,.711E-02_JPRB,.664E-02_JPRB,.610E-02_JPRB,.517E-02_JPRB,.474E-02_JPRB,.432E-02_JPRB,&
+&.393E-02_JPRB,.382E-02_JPRB,.370E-02_JPRB,.350E-02_JPRB,.337E-02_JPRB,.326E-02_JPRB,.314E-02_JPRB,&
+&.307E-02_JPRB,.301E-02_JPRB,.294E-02_JPRB,.286E-02_JPRB,.279E-02_JPRB,.267E-02_JPRB,.250E-02_JPRB,&
+&.240E-02_JPRB,.227E-02_JPRB,.219E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,.200E-02_JPRB,.194E-02_JPRB,&
+&.187E-02_JPRB,.180E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 41 -70.0
+ZAER (:,41, 6) = (/&
+&.179E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.162E-02_JPRB,.156E-02_JPRB,&
+&.151E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,&
+&.116E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,.977E-03_JPRB,.949E-03_JPRB,.920E-03_JPRB,&
+&.929E-03_JPRB,.945E-03_JPRB,.102E-02_JPRB,.116E-02_JPRB,.130E-02_JPRB,.162E-02_JPRB,.205E-02_JPRB,&
+&.243E-02_JPRB,.306E-02_JPRB,.377E-02_JPRB,.424E-02_JPRB,.486E-02_JPRB,.527E-02_JPRB,.535E-02_JPRB,&
+&.534E-02_JPRB,.498E-02_JPRB,.471E-02_JPRB,.440E-02_JPRB,.391E-02_JPRB,.369E-02_JPRB,.349E-02_JPRB,&
+&.325E-02_JPRB,.316E-02_JPRB,.308E-02_JPRB,.293E-02_JPRB,.284E-02_JPRB,.277E-02_JPRB,.269E-02_JPRB,&
+&.265E-02_JPRB,.263E-02_JPRB,.262E-02_JPRB,.261E-02_JPRB,.260E-02_JPRB,.256E-02_JPRB,.247E-02_JPRB,&
+&.241E-02_JPRB,.231E-02_JPRB,.221E-02_JPRB,.214E-02_JPRB,.207E-02_JPRB,.197E-02_JPRB,.191E-02_JPRB,&
+&.186E-02_JPRB,.179E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 42 -74.0
+ZAER (:,42, 6) = (/&
+&.177E-02_JPRB,.177E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,&
+&.156E-02_JPRB,.152E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,&
+&.143E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.122E-02_JPRB,&
+&.114E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.997E-03_JPRB,.975E-03_JPRB,.954E-03_JPRB,.937E-03_JPRB,&
+&.947E-03_JPRB,.962E-03_JPRB,.102E-02_JPRB,.111E-02_JPRB,.119E-02_JPRB,.139E-02_JPRB,.162E-02_JPRB,&
+&.182E-02_JPRB,.216E-02_JPRB,.252E-02_JPRB,.275E-02_JPRB,.305E-02_JPRB,.328E-02_JPRB,.337E-02_JPRB,&
+&.343E-02_JPRB,.337E-02_JPRB,.332E-02_JPRB,.325E-02_JPRB,.313E-02_JPRB,.307E-02_JPRB,.301E-02_JPRB,&
+&.290E-02_JPRB,.284E-02_JPRB,.277E-02_JPRB,.263E-02_JPRB,.255E-02_JPRB,.248E-02_JPRB,.240E-02_JPRB,&
+&.237E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.234E-02_JPRB,.230E-02_JPRB,&
+&.227E-02_JPRB,.222E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,.202E-02_JPRB,.193E-02_JPRB,.188E-02_JPRB,&
+&.183E-02_JPRB,.177E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 43 -78.0
+ZAER (:,43, 6) = (/&
+&.171E-02_JPRB,.171E-02_JPRB,.167E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,&
+&.157E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,&
+&.145E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.127E-02_JPRB,&
+&.122E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.110E-02_JPRB,.111E-02_JPRB,.115E-02_JPRB,.120E-02_JPRB,.125E-02_JPRB,.135E-02_JPRB,.147E-02_JPRB,&
+&.156E-02_JPRB,.171E-02_JPRB,.187E-02_JPRB,.197E-02_JPRB,.210E-02_JPRB,.222E-02_JPRB,.228E-02_JPRB,&
+&.235E-02_JPRB,.240E-02_JPRB,.243E-02_JPRB,.245E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,&
+&.243E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,.229E-02_JPRB,.225E-02_JPRB,.221E-02_JPRB,.215E-02_JPRB,&
+&.212E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,&
+&.202E-02_JPRB,.199E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.188E-02_JPRB,.183E-02_JPRB,.179E-02_JPRB,&
+&.176E-02_JPRB,.171E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 44 -82.0
+ZAER (:,44, 6) = (/&
+&.163E-02_JPRB,.163E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,&
+&.155E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,&
+&.147E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,&
+&.136E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,&
+&.152E-02_JPRB,.157E-02_JPRB,.163E-02_JPRB,.166E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,.180E-02_JPRB,&
+&.183E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,.191E-02_JPRB,.193E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.195E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.190E-02_JPRB,.189E-02_JPRB,.187E-02_JPRB,&
+&.185E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.178E-02_JPRB,&
+&.177E-02_JPRB,.176E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.168E-02_JPRB,&
+&.166E-02_JPRB,.164E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 45 -86.0
+ZAER (:,45, 6) = (/&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.156E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,&
+&.153E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,&
+&.150E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,&
+&.155E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,&
+&.163E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.167E-02_JPRB,&
+&.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,&
+&.166E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,&
+&.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,&
+&.160E-02_JPRB,.159E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  6 --- lat: 46 -90.0
+ZAER (:,46, 6) = (/&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=6    
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_06
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_07.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_07.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_07.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_07
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 July
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,7:7)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  7 --- lat:  1  90.0
+ZAER (:, 1, 7) = (/&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,&
+&.135E-03_JPRB,.135E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  2  86.0
+ZAER (:, 2, 7) = (/&
+&.140E-03_JPRB,.140E-03_JPRB,.142E-03_JPRB,.143E-03_JPRB,.144E-03_JPRB,.145E-03_JPRB,.146E-03_JPRB,&
+&.146E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,&
+&.148E-03_JPRB,.148E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,.146E-03_JPRB,.146E-03_JPRB,&
+&.146E-03_JPRB,.145E-03_JPRB,.144E-03_JPRB,.143E-03_JPRB,.143E-03_JPRB,.142E-03_JPRB,.141E-03_JPRB,&
+&.140E-03_JPRB,.139E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.134E-03_JPRB,&
+&.133E-03_JPRB,.132E-03_JPRB,.130E-03_JPRB,.129E-03_JPRB,.128E-03_JPRB,.127E-03_JPRB,.126E-03_JPRB,&
+&.125E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,&
+&.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,&
+&.124E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,&
+&.130E-03_JPRB,.131E-03_JPRB,.133E-03_JPRB,.134E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.137E-03_JPRB,&
+&.139E-03_JPRB,.140E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  3  82.0
+ZAER (:, 3, 7) = (/&
+&.161E-03_JPRB,.161E-03_JPRB,.166E-03_JPRB,.169E-03_JPRB,.171E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,&
+&.176E-03_JPRB,.177E-03_JPRB,.176E-03_JPRB,.176E-03_JPRB,.175E-03_JPRB,.174E-03_JPRB,.173E-03_JPRB,&
+&.171E-03_JPRB,.170E-03_JPRB,.169E-03_JPRB,.168E-03_JPRB,.166E-03_JPRB,.166E-03_JPRB,.165E-03_JPRB,&
+&.164E-03_JPRB,.163E-03_JPRB,.162E-03_JPRB,.161E-03_JPRB,.160E-03_JPRB,.159E-03_JPRB,.157E-03_JPRB,&
+&.155E-03_JPRB,.154E-03_JPRB,.151E-03_JPRB,.148E-03_JPRB,.146E-03_JPRB,.142E-03_JPRB,.138E-03_JPRB,&
+&.136E-03_JPRB,.132E-03_JPRB,.128E-03_JPRB,.126E-03_JPRB,.123E-03_JPRB,.120E-03_JPRB,.119E-03_JPRB,&
+&.116E-03_JPRB,.114E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.110E-03_JPRB,&
+&.110E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,&
+&.114E-03_JPRB,.115E-03_JPRB,.117E-03_JPRB,.119E-03_JPRB,.121E-03_JPRB,.124E-03_JPRB,.127E-03_JPRB,&
+&.129E-03_JPRB,.132E-03_JPRB,.137E-03_JPRB,.139E-03_JPRB,.143E-03_JPRB,.148E-03_JPRB,.151E-03_JPRB,&
+&.155E-03_JPRB,.161E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  4  78.0
+ZAER (:, 4, 7) = (/&
+&.206E-03_JPRB,.207E-03_JPRB,.217E-03_JPRB,.221E-03_JPRB,.225E-03_JPRB,.228E-03_JPRB,.226E-03_JPRB,&
+&.225E-03_JPRB,.222E-03_JPRB,.217E-03_JPRB,.214E-03_JPRB,.209E-03_JPRB,.203E-03_JPRB,.200E-03_JPRB,&
+&.196E-03_JPRB,.191E-03_JPRB,.189E-03_JPRB,.186E-03_JPRB,.184E-03_JPRB,.183E-03_JPRB,.182E-03_JPRB,&
+&.182E-03_JPRB,.182E-03_JPRB,.182E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,&
+&.182E-03_JPRB,.180E-03_JPRB,.177E-03_JPRB,.173E-03_JPRB,.170E-03_JPRB,.163E-03_JPRB,.158E-03_JPRB,&
+&.153E-03_JPRB,.146E-03_JPRB,.139E-03_JPRB,.135E-03_JPRB,.131E-03_JPRB,.126E-03_JPRB,.123E-03_JPRB,&
+&.120E-03_JPRB,.117E-03_JPRB,.116E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,&
+&.113E-03_JPRB,.113E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.115E-03_JPRB,.116E-03_JPRB,&
+&.118E-03_JPRB,.119E-03_JPRB,.122E-03_JPRB,.125E-03_JPRB,.127E-03_JPRB,.131E-03_JPRB,.136E-03_JPRB,&
+&.140E-03_JPRB,.145E-03_JPRB,.153E-03_JPRB,.158E-03_JPRB,.165E-03_JPRB,.177E-03_JPRB,.184E-03_JPRB,&
+&.192E-03_JPRB,.206E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  5  74.0
+ZAER (:, 5, 7) = (/&
+&.277E-03_JPRB,.278E-03_JPRB,.295E-03_JPRB,.298E-03_JPRB,.300E-03_JPRB,.292E-03_JPRB,.283E-03_JPRB,&
+&.275E-03_JPRB,.261E-03_JPRB,.250E-03_JPRB,.242E-03_JPRB,.230E-03_JPRB,.220E-03_JPRB,.213E-03_JPRB,&
+&.205E-03_JPRB,.199E-03_JPRB,.195E-03_JPRB,.191E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,.187E-03_JPRB,&
+&.188E-03_JPRB,.190E-03_JPRB,.192E-03_JPRB,.198E-03_JPRB,.201E-03_JPRB,.204E-03_JPRB,.209E-03_JPRB,&
+&.211E-03_JPRB,.212E-03_JPRB,.211E-03_JPRB,.208E-03_JPRB,.205E-03_JPRB,.198E-03_JPRB,.192E-03_JPRB,&
+&.186E-03_JPRB,.177E-03_JPRB,.168E-03_JPRB,.162E-03_JPRB,.155E-03_JPRB,.149E-03_JPRB,.146E-03_JPRB,&
+&.142E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.139E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.141E-03_JPRB,&
+&.141E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,&
+&.138E-03_JPRB,.139E-03_JPRB,.141E-03_JPRB,.144E-03_JPRB,.146E-03_JPRB,.149E-03_JPRB,.154E-03_JPRB,&
+&.158E-03_JPRB,.165E-03_JPRB,.177E-03_JPRB,.187E-03_JPRB,.199E-03_JPRB,.222E-03_JPRB,.237E-03_JPRB,&
+&.252E-03_JPRB,.277E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  6  70.0
+ZAER (:, 6, 7) = (/&
+&.378E-03_JPRB,.379E-03_JPRB,.400E-03_JPRB,.394E-03_JPRB,.387E-03_JPRB,.353E-03_JPRB,.328E-03_JPRB,&
+&.308E-03_JPRB,.281E-03_JPRB,.264E-03_JPRB,.252E-03_JPRB,.235E-03_JPRB,.222E-03_JPRB,.214E-03_JPRB,&
+&.205E-03_JPRB,.199E-03_JPRB,.195E-03_JPRB,.192E-03_JPRB,.189E-03_JPRB,.188E-03_JPRB,.187E-03_JPRB,&
+&.188E-03_JPRB,.191E-03_JPRB,.193E-03_JPRB,.203E-03_JPRB,.210E-03_JPRB,.217E-03_JPRB,.231E-03_JPRB,&
+&.238E-03_JPRB,.243E-03_JPRB,.248E-03_JPRB,.248E-03_JPRB,.248E-03_JPRB,.246E-03_JPRB,.243E-03_JPRB,&
+&.240E-03_JPRB,.232E-03_JPRB,.221E-03_JPRB,.213E-03_JPRB,.202E-03_JPRB,.193E-03_JPRB,.189E-03_JPRB,&
+&.187E-03_JPRB,.189E-03_JPRB,.190E-03_JPRB,.192E-03_JPRB,.197E-03_JPRB,.199E-03_JPRB,.201E-03_JPRB,&
+&.201E-03_JPRB,.198E-03_JPRB,.195E-03_JPRB,.187E-03_JPRB,.183E-03_JPRB,.180E-03_JPRB,.176E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.180E-03_JPRB,.181E-03_JPRB,.183E-03_JPRB,.184E-03_JPRB,.186E-03_JPRB,&
+&.189E-03_JPRB,.194E-03_JPRB,.208E-03_JPRB,.223E-03_JPRB,.244E-03_JPRB,.286E-03_JPRB,.311E-03_JPRB,&
+&.338E-03_JPRB,.377E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  7  66.0
+ZAER (:, 7, 7) = (/&
+&.485E-03_JPRB,.486E-03_JPRB,.500E-03_JPRB,.481E-03_JPRB,.460E-03_JPRB,.400E-03_JPRB,.362E-03_JPRB,&
+&.333E-03_JPRB,.297E-03_JPRB,.276E-03_JPRB,.261E-03_JPRB,.241E-03_JPRB,.228E-03_JPRB,.220E-03_JPRB,&
+&.212E-03_JPRB,.208E-03_JPRB,.206E-03_JPRB,.203E-03_JPRB,.199E-03_JPRB,.197E-03_JPRB,.194E-03_JPRB,&
+&.192E-03_JPRB,.192E-03_JPRB,.193E-03_JPRB,.202E-03_JPRB,.211E-03_JPRB,.221E-03_JPRB,.244E-03_JPRB,&
+&.257E-03_JPRB,.269E-03_JPRB,.285E-03_JPRB,.293E-03_JPRB,.299E-03_JPRB,.307E-03_JPRB,.312E-03_JPRB,&
+&.314E-03_JPRB,.311E-03_JPRB,.297E-03_JPRB,.287E-03_JPRB,.273E-03_JPRB,.261E-03_JPRB,.259E-03_JPRB,&
+&.258E-03_JPRB,.265E-03_JPRB,.272E-03_JPRB,.279E-03_JPRB,.291E-03_JPRB,.298E-03_JPRB,.304E-03_JPRB,&
+&.303E-03_JPRB,.294E-03_JPRB,.284E-03_JPRB,.261E-03_JPRB,.251E-03_JPRB,.244E-03_JPRB,.240E-03_JPRB,&
+&.242E-03_JPRB,.246E-03_JPRB,.253E-03_JPRB,.258E-03_JPRB,.259E-03_JPRB,.257E-03_JPRB,.250E-03_JPRB,&
+&.247E-03_JPRB,.244E-03_JPRB,.253E-03_JPRB,.270E-03_JPRB,.295E-03_JPRB,.358E-03_JPRB,.396E-03_JPRB,&
+&.437E-03_JPRB,.484E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  8  62.0
+ZAER (:, 8, 7) = (/&
+&.591E-03_JPRB,.592E-03_JPRB,.600E-03_JPRB,.568E-03_JPRB,.536E-03_JPRB,.467E-03_JPRB,.431E-03_JPRB,&
+&.402E-03_JPRB,.364E-03_JPRB,.335E-03_JPRB,.313E-03_JPRB,.285E-03_JPRB,.266E-03_JPRB,.255E-03_JPRB,&
+&.245E-03_JPRB,.238E-03_JPRB,.233E-03_JPRB,.227E-03_JPRB,.219E-03_JPRB,.215E-03_JPRB,.212E-03_JPRB,&
+&.207E-03_JPRB,.204E-03_JPRB,.201E-03_JPRB,.205E-03_JPRB,.216E-03_JPRB,.227E-03_JPRB,.258E-03_JPRB,&
+&.279E-03_JPRB,.297E-03_JPRB,.323E-03_JPRB,.336E-03_JPRB,.347E-03_JPRB,.369E-03_JPRB,.384E-03_JPRB,&
+&.389E-03_JPRB,.387E-03_JPRB,.373E-03_JPRB,.362E-03_JPRB,.348E-03_JPRB,.344E-03_JPRB,.348E-03_JPRB,&
+&.355E-03_JPRB,.367E-03_JPRB,.376E-03_JPRB,.385E-03_JPRB,.406E-03_JPRB,.417E-03_JPRB,.428E-03_JPRB,&
+&.418E-03_JPRB,.397E-03_JPRB,.377E-03_JPRB,.341E-03_JPRB,.329E-03_JPRB,.322E-03_JPRB,.323E-03_JPRB,&
+&.338E-03_JPRB,.352E-03_JPRB,.377E-03_JPRB,.387E-03_JPRB,.388E-03_JPRB,.378E-03_JPRB,.352E-03_JPRB,&
+&.334E-03_JPRB,.312E-03_JPRB,.305E-03_JPRB,.317E-03_JPRB,.340E-03_JPRB,.413E-03_JPRB,.467E-03_JPRB,&
+&.527E-03_JPRB,.589E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat:  9  58.0
+ZAER (:, 9, 7) = (/&
+&.655E-03_JPRB,.655E-03_JPRB,.665E-03_JPRB,.640E-03_JPRB,.616E-03_JPRB,.567E-03_JPRB,.536E-03_JPRB,&
+&.512E-03_JPRB,.480E-03_JPRB,.454E-03_JPRB,.431E-03_JPRB,.394E-03_JPRB,.355E-03_JPRB,.331E-03_JPRB,&
+&.303E-03_JPRB,.278E-03_JPRB,.264E-03_JPRB,.249E-03_JPRB,.240E-03_JPRB,.237E-03_JPRB,.235E-03_JPRB,&
+&.233E-03_JPRB,.231E-03_JPRB,.230E-03_JPRB,.236E-03_JPRB,.252E-03_JPRB,.269E-03_JPRB,.312E-03_JPRB,&
+&.335E-03_JPRB,.355E-03_JPRB,.378E-03_JPRB,.388E-03_JPRB,.400E-03_JPRB,.431E-03_JPRB,.454E-03_JPRB,&
+&.462E-03_JPRB,.455E-03_JPRB,.442E-03_JPRB,.435E-03_JPRB,.428E-03_JPRB,.442E-03_JPRB,.458E-03_JPRB,&
+&.482E-03_JPRB,.504E-03_JPRB,.510E-03_JPRB,.513E-03_JPRB,.512E-03_JPRB,.509E-03_JPRB,.507E-03_JPRB,&
+&.476E-03_JPRB,.448E-03_JPRB,.421E-03_JPRB,.384E-03_JPRB,.378E-03_JPRB,.378E-03_JPRB,.399E-03_JPRB,&
+&.442E-03_JPRB,.477E-03_JPRB,.536E-03_JPRB,.546E-03_JPRB,.539E-03_JPRB,.505E-03_JPRB,.454E-03_JPRB,&
+&.424E-03_JPRB,.390E-03_JPRB,.376E-03_JPRB,.383E-03_JPRB,.399E-03_JPRB,.460E-03_JPRB,.513E-03_JPRB,&
+&.573E-03_JPRB,.652E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 10  54.0
+ZAER (:,10, 7) = (/&
+&.690E-03_JPRB,.689E-03_JPRB,.679E-03_JPRB,.672E-03_JPRB,.664E-03_JPRB,.633E-03_JPRB,.589E-03_JPRB,&
+&.552E-03_JPRB,.501E-03_JPRB,.478E-03_JPRB,.463E-03_JPRB,.448E-03_JPRB,.420E-03_JPRB,.397E-03_JPRB,&
+&.363E-03_JPRB,.318E-03_JPRB,.295E-03_JPRB,.270E-03_JPRB,.261E-03_JPRB,.260E-03_JPRB,.261E-03_JPRB,&
+&.271E-03_JPRB,.278E-03_JPRB,.287E-03_JPRB,.315E-03_JPRB,.347E-03_JPRB,.380E-03_JPRB,.446E-03_JPRB,&
+&.461E-03_JPRB,.474E-03_JPRB,.492E-03_JPRB,.506E-03_JPRB,.518E-03_JPRB,.537E-03_JPRB,.540E-03_JPRB,&
+&.535E-03_JPRB,.515E-03_JPRB,.510E-03_JPRB,.516E-03_JPRB,.534E-03_JPRB,.576E-03_JPRB,.610E-03_JPRB,&
+&.654E-03_JPRB,.677E-03_JPRB,.670E-03_JPRB,.655E-03_JPRB,.593E-03_JPRB,.564E-03_JPRB,.536E-03_JPRB,&
+&.481E-03_JPRB,.453E-03_JPRB,.427E-03_JPRB,.399E-03_JPRB,.404E-03_JPRB,.412E-03_JPRB,.447E-03_JPRB,&
+&.507E-03_JPRB,.552E-03_JPRB,.611E-03_JPRB,.606E-03_JPRB,.590E-03_JPRB,.552E-03_JPRB,.504E-03_JPRB,&
+&.480E-03_JPRB,.457E-03_JPRB,.452E-03_JPRB,.455E-03_JPRB,.462E-03_JPRB,.505E-03_JPRB,.553E-03_JPRB,&
+&.609E-03_JPRB,.687E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 11  50.0
+ZAER (:,11, 7) = (/&
+&.734E-03_JPRB,.734E-03_JPRB,.714E-03_JPRB,.710E-03_JPRB,.708E-03_JPRB,.708E-03_JPRB,.650E-03_JPRB,&
+&.596E-03_JPRB,.492E-03_JPRB,.452E-03_JPRB,.431E-03_JPRB,.422E-03_JPRB,.423E-03_JPRB,.420E-03_JPRB,&
+&.411E-03_JPRB,.371E-03_JPRB,.347E-03_JPRB,.319E-03_JPRB,.309E-03_JPRB,.311E-03_JPRB,.317E-03_JPRB,&
+&.342E-03_JPRB,.358E-03_JPRB,.374E-03_JPRB,.440E-03_JPRB,.497E-03_JPRB,.553E-03_JPRB,.650E-03_JPRB,&
+&.658E-03_JPRB,.667E-03_JPRB,.682E-03_JPRB,.712E-03_JPRB,.727E-03_JPRB,.723E-03_JPRB,.677E-03_JPRB,&
+&.647E-03_JPRB,.613E-03_JPRB,.611E-03_JPRB,.635E-03_JPRB,.692E-03_JPRB,.767E-03_JPRB,.811E-03_JPRB,&
+&.862E-03_JPRB,.864E-03_JPRB,.839E-03_JPRB,.804E-03_JPRB,.697E-03_JPRB,.642E-03_JPRB,.587E-03_JPRB,&
+&.517E-03_JPRB,.496E-03_JPRB,.478E-03_JPRB,.467E-03_JPRB,.469E-03_JPRB,.473E-03_JPRB,.491E-03_JPRB,&
+&.540E-03_JPRB,.573E-03_JPRB,.605E-03_JPRB,.594E-03_JPRB,.580E-03_JPRB,.551E-03_JPRB,.524E-03_JPRB,&
+&.512E-03_JPRB,.501E-03_JPRB,.509E-03_JPRB,.514E-03_JPRB,.520E-03_JPRB,.556E-03_JPRB,.601E-03_JPRB,&
+&.654E-03_JPRB,.732E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 12  46.0
+ZAER (:,12, 7) = (/&
+&.798E-03_JPRB,.798E-03_JPRB,.800E-03_JPRB,.784E-03_JPRB,.770E-03_JPRB,.769E-03_JPRB,.713E-03_JPRB,&
+&.658E-03_JPRB,.540E-03_JPRB,.485E-03_JPRB,.452E-03_JPRB,.425E-03_JPRB,.431E-03_JPRB,.438E-03_JPRB,&
+&.447E-03_JPRB,.435E-03_JPRB,.426E-03_JPRB,.415E-03_JPRB,.405E-03_JPRB,.407E-03_JPRB,.412E-03_JPRB,&
+&.450E-03_JPRB,.480E-03_JPRB,.512E-03_JPRB,.625E-03_JPRB,.700E-03_JPRB,.774E-03_JPRB,.876E-03_JPRB,&
+&.953E-03_JPRB,.102E-02_JPRB,.110E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.102E-02_JPRB,&
+&.950E-03_JPRB,.866E-03_JPRB,.865E-03_JPRB,.904E-03_JPRB,.997E-03_JPRB,.104E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.916E-03_JPRB,.851E-03_JPRB,.787E-03_JPRB,&
+&.728E-03_JPRB,.684E-03_JPRB,.648E-03_JPRB,.644E-03_JPRB,.614E-03_JPRB,.589E-03_JPRB,.557E-03_JPRB,&
+&.583E-03_JPRB,.595E-03_JPRB,.587E-03_JPRB,.578E-03_JPRB,.571E-03_JPRB,.561E-03_JPRB,.575E-03_JPRB,&
+&.577E-03_JPRB,.572E-03_JPRB,.581E-03_JPRB,.588E-03_JPRB,.598E-03_JPRB,.647E-03_JPRB,.693E-03_JPRB,&
+&.745E-03_JPRB,.796E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 13  42.0
+ZAER (:,13, 7) = (/&
+&.913E-03_JPRB,.912E-03_JPRB,.900E-03_JPRB,.885E-03_JPRB,.870E-03_JPRB,.848E-03_JPRB,.792E-03_JPRB,&
+&.739E-03_JPRB,.639E-03_JPRB,.572E-03_JPRB,.529E-03_JPRB,.488E-03_JPRB,.491E-03_JPRB,.501E-03_JPRB,&
+&.523E-03_JPRB,.540E-03_JPRB,.545E-03_JPRB,.546E-03_JPRB,.531E-03_JPRB,.533E-03_JPRB,.540E-03_JPRB,&
+&.617E-03_JPRB,.663E-03_JPRB,.709E-03_JPRB,.877E-03_JPRB,.102E-02_JPRB,.117E-02_JPRB,.142E-02_JPRB,&
+&.170E-02_JPRB,.191E-02_JPRB,.208E-02_JPRB,.204E-02_JPRB,.199E-02_JPRB,.185E-02_JPRB,.172E-02_JPRB,&
+&.161E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,.152E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,&
+&.136E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.136E-02_JPRB,.130E-02_JPRB,.125E-02_JPRB,&
+&.121E-02_JPRB,.111E-02_JPRB,.102E-02_JPRB,.995E-03_JPRB,.900E-03_JPRB,.817E-03_JPRB,.680E-03_JPRB,&
+&.665E-03_JPRB,.649E-03_JPRB,.610E-03_JPRB,.601E-03_JPRB,.605E-03_JPRB,.628E-03_JPRB,.707E-03_JPRB,&
+&.745E-03_JPRB,.779E-03_JPRB,.780E-03_JPRB,.773E-03_JPRB,.763E-03_JPRB,.851E-03_JPRB,.908E-03_JPRB,&
+&.969E-03_JPRB,.914E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 14  38.0
+ZAER (:,14, 7) = (/&
+&.120E-02_JPRB,.119E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.965E-03_JPRB,&
+&.908E-03_JPRB,.791E-03_JPRB,.712E-03_JPRB,.662E-03_JPRB,.613E-03_JPRB,.621E-03_JPRB,.634E-03_JPRB,&
+&.658E-03_JPRB,.679E-03_JPRB,.680E-03_JPRB,.672E-03_JPRB,.653E-03_JPRB,.668E-03_JPRB,.697E-03_JPRB,&
+&.811E-03_JPRB,.895E-03_JPRB,.983E-03_JPRB,.138E-02_JPRB,.179E-02_JPRB,.219E-02_JPRB,.270E-02_JPRB,&
+&.308E-02_JPRB,.336E-02_JPRB,.342E-02_JPRB,.311E-02_JPRB,.291E-02_JPRB,.278E-02_JPRB,.259E-02_JPRB,&
+&.243E-02_JPRB,.216E-02_JPRB,.219E-02_JPRB,.226E-02_JPRB,.244E-02_JPRB,.238E-02_JPRB,.230E-02_JPRB,&
+&.219E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.234E-02_JPRB,.208E-02_JPRB,.194E-02_JPRB,.181E-02_JPRB,&
+&.171E-02_JPRB,.158E-02_JPRB,.146E-02_JPRB,.140E-02_JPRB,.126E-02_JPRB,.113E-02_JPRB,.918E-03_JPRB,&
+&.835E-03_JPRB,.777E-03_JPRB,.710E-03_JPRB,.707E-03_JPRB,.736E-03_JPRB,.822E-03_JPRB,.998E-03_JPRB,&
+&.111E-02_JPRB,.124E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,&
+&.134E-02_JPRB,.120E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 15  34.0
+ZAER (:,15, 7) = (/&
+&.169E-02_JPRB,.168E-02_JPRB,.144E-02_JPRB,.138E-02_JPRB,.133E-02_JPRB,.128E-02_JPRB,.119E-02_JPRB,&
+&.111E-02_JPRB,.969E-03_JPRB,.882E-03_JPRB,.829E-03_JPRB,.783E-03_JPRB,.799E-03_JPRB,.807E-03_JPRB,&
+&.814E-03_JPRB,.809E-03_JPRB,.796E-03_JPRB,.772E-03_JPRB,.753E-03_JPRB,.803E-03_JPRB,.883E-03_JPRB,&
+&.111E-02_JPRB,.131E-02_JPRB,.151E-02_JPRB,.266E-02_JPRB,.365E-02_JPRB,.459E-02_JPRB,.529E-02_JPRB,&
+&.523E-02_JPRB,.513E-02_JPRB,.462E-02_JPRB,.404E-02_JPRB,.369E-02_JPRB,.360E-02_JPRB,.329E-02_JPRB,&
+&.307E-02_JPRB,.277E-02_JPRB,.301E-02_JPRB,.328E-02_JPRB,.373E-02_JPRB,.403E-02_JPRB,.407E-02_JPRB,&
+&.402E-02_JPRB,.392E-02_JPRB,.368E-02_JPRB,.336E-02_JPRB,.273E-02_JPRB,.244E-02_JPRB,.215E-02_JPRB,&
+&.197E-02_JPRB,.187E-02_JPRB,.177E-02_JPRB,.172E-02_JPRB,.159E-02_JPRB,.147E-02_JPRB,.126E-02_JPRB,&
+&.112E-02_JPRB,.102E-02_JPRB,.927E-03_JPRB,.960E-03_JPRB,.106E-02_JPRB,.130E-02_JPRB,.192E-02_JPRB,&
+&.226E-02_JPRB,.264E-02_JPRB,.270E-02_JPRB,.259E-02_JPRB,.240E-02_JPRB,.219E-02_JPRB,.207E-02_JPRB,&
+&.195E-02_JPRB,.170E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 16  30.0
+ZAER (:,16, 7) = (/&
+&.220E-02_JPRB,.219E-02_JPRB,.180E-02_JPRB,.169E-02_JPRB,.159E-02_JPRB,.149E-02_JPRB,.135E-02_JPRB,&
+&.125E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,.996E-03_JPRB,.952E-03_JPRB,.950E-03_JPRB,.946E-03_JPRB,&
+&.937E-03_JPRB,.911E-03_JPRB,.883E-03_JPRB,.841E-03_JPRB,.862E-03_JPRB,.100E-02_JPRB,.121E-02_JPRB,&
+&.172E-02_JPRB,.212E-02_JPRB,.254E-02_JPRB,.558E-02_JPRB,.749E-02_JPRB,.923E-02_JPRB,.950E-02_JPRB,&
+&.807E-02_JPRB,.682E-02_JPRB,.508E-02_JPRB,.445E-02_JPRB,.408E-02_JPRB,.399E-02_JPRB,.361E-02_JPRB,&
+&.341E-02_JPRB,.329E-02_JPRB,.393E-02_JPRB,.457E-02_JPRB,.562E-02_JPRB,.681E-02_JPRB,.715E-02_JPRB,&
+&.732E-02_JPRB,.612E-02_JPRB,.521E-02_JPRB,.414E-02_JPRB,.301E-02_JPRB,.264E-02_JPRB,.230E-02_JPRB,&
+&.206E-02_JPRB,.199E-02_JPRB,.193E-02_JPRB,.191E-02_JPRB,.182E-02_JPRB,.172E-02_JPRB,.154E-02_JPRB,&
+&.140E-02_JPRB,.131E-02_JPRB,.121E-02_JPRB,.137E-02_JPRB,.172E-02_JPRB,.259E-02_JPRB,.450E-02_JPRB,&
+&.535E-02_JPRB,.606E-02_JPRB,.565E-02_JPRB,.504E-02_JPRB,.417E-02_JPRB,.345E-02_JPRB,.306E-02_JPRB,&
+&.265E-02_JPRB,.221E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 17  26.0
+ZAER (:,17, 7) = (/&
+&.241E-02_JPRB,.239E-02_JPRB,.190E-02_JPRB,.174E-02_JPRB,.160E-02_JPRB,.149E-02_JPRB,.137E-02_JPRB,&
+&.128E-02_JPRB,.120E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,&
+&.105E-02_JPRB,.101E-02_JPRB,.973E-03_JPRB,.910E-03_JPRB,.107E-02_JPRB,.140E-02_JPRB,.187E-02_JPRB,&
+&.264E-02_JPRB,.340E-02_JPRB,.422E-02_JPRB,.108E-01_JPRB,.138E-01_JPRB,.164E-01_JPRB,.138E-01_JPRB,&
+&.103E-01_JPRB,.749E-02_JPRB,.476E-02_JPRB,.433E-02_JPRB,.406E-02_JPRB,.393E-02_JPRB,.365E-02_JPRB,&
+&.366E-02_JPRB,.411E-02_JPRB,.552E-02_JPRB,.681E-02_JPRB,.886E-02_JPRB,.110E-01_JPRB,.116E-01_JPRB,&
+&.117E-01_JPRB,.857E-02_JPRB,.670E-02_JPRB,.465E-02_JPRB,.307E-02_JPRB,.266E-02_JPRB,.230E-02_JPRB,&
+&.209E-02_JPRB,.204E-02_JPRB,.199E-02_JPRB,.196E-02_JPRB,.189E-02_JPRB,.181E-02_JPRB,.164E-02_JPRB,&
+&.155E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.204E-02_JPRB,.297E-02_JPRB,.509E-02_JPRB,.883E-02_JPRB,&
+&.103E-01_JPRB,.111E-01_JPRB,.926E-02_JPRB,.775E-02_JPRB,.580E-02_JPRB,.438E-02_JPRB,.369E-02_JPRB,&
+&.299E-02_JPRB,.243E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 18  22.0
+ZAER (:,18, 7) = (/&
+&.220E-02_JPRB,.219E-02_JPRB,.170E-02_JPRB,.153E-02_JPRB,.138E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,&
+&.121E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.119E-02_JPRB,&
+&.124E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.161E-02_JPRB,.222E-02_JPRB,.304E-02_JPRB,&
+&.411E-02_JPRB,.549E-02_JPRB,.703E-02_JPRB,.179E-01_JPRB,.211E-01_JPRB,.234E-01_JPRB,.157E-01_JPRB,&
+&.108E-01_JPRB,.694E-02_JPRB,.424E-02_JPRB,.404E-02_JPRB,.388E-02_JPRB,.366E-02_JPRB,.366E-02_JPRB,&
+&.414E-02_JPRB,.570E-02_JPRB,.836E-02_JPRB,.103E-01_JPRB,.130E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,&
+&.155E-01_JPRB,.104E-01_JPRB,.787E-02_JPRB,.528E-02_JPRB,.324E-02_JPRB,.270E-02_JPRB,.224E-02_JPRB,&
+&.204E-02_JPRB,.199E-02_JPRB,.195E-02_JPRB,.190E-02_JPRB,.182E-02_JPRB,.174E-02_JPRB,.160E-02_JPRB,&
+&.158E-02_JPRB,.162E-02_JPRB,.183E-02_JPRB,.302E-02_JPRB,.469E-02_JPRB,.825E-02_JPRB,.129E-01_JPRB,&
+&.143E-01_JPRB,.144E-01_JPRB,.108E-01_JPRB,.864E-02_JPRB,.614E-02_JPRB,.429E-02_JPRB,.353E-02_JPRB,&
+&.279E-02_JPRB,.222E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 19  18.0
+ZAER (:,19, 7) = (/&
+&.176E-02_JPRB,.175E-02_JPRB,.136E-02_JPRB,.122E-02_JPRB,.110E-02_JPRB,.101E-02_JPRB,.103E-02_JPRB,&
+&.104E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.121E-02_JPRB,.131E-02_JPRB,.140E-02_JPRB,&
+&.154E-02_JPRB,.160E-02_JPRB,.169E-02_JPRB,.185E-02_JPRB,.277E-02_JPRB,.371E-02_JPRB,.491E-02_JPRB,&
+&.665E-02_JPRB,.892E-02_JPRB,.114E-01_JPRB,.243E-01_JPRB,.257E-01_JPRB,.262E-01_JPRB,.148E-01_JPRB,&
+&.991E-02_JPRB,.612E-02_JPRB,.388E-02_JPRB,.377E-02_JPRB,.366E-02_JPRB,.343E-02_JPRB,.381E-02_JPRB,&
+&.488E-02_JPRB,.784E-02_JPRB,.120E-01_JPRB,.143E-01_JPRB,.165E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,&
+&.171E-01_JPRB,.110E-01_JPRB,.845E-02_JPRB,.595E-02_JPRB,.354E-02_JPRB,.286E-02_JPRB,.226E-02_JPRB,&
+&.195E-02_JPRB,.187E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.169E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,&
+&.167E-02_JPRB,.184E-02_JPRB,.237E-02_JPRB,.408E-02_JPRB,.616E-02_JPRB,.103E-01_JPRB,.140E-01_JPRB,&
+&.142E-01_JPRB,.126E-01_JPRB,.868E-02_JPRB,.679E-02_JPRB,.483E-02_JPRB,.334E-02_JPRB,.280E-02_JPRB,&
+&.230E-02_JPRB,.178E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 20  14.0
+ZAER (:,20, 7) = (/&
+&.132E-02_JPRB,.131E-02_JPRB,.102E-02_JPRB,.937E-03_JPRB,.866E-03_JPRB,.807E-03_JPRB,.836E-03_JPRB,&
+&.866E-03_JPRB,.932E-03_JPRB,.100E-02_JPRB,.108E-02_JPRB,.124E-02_JPRB,.141E-02_JPRB,.157E-02_JPRB,&
+&.182E-02_JPRB,.216E-02_JPRB,.251E-02_JPRB,.304E-02_JPRB,.454E-02_JPRB,.579E-02_JPRB,.733E-02_JPRB,&
+&.993E-02_JPRB,.130E-01_JPRB,.163E-01_JPRB,.270E-01_JPRB,.260E-01_JPRB,.243E-01_JPRB,.126E-01_JPRB,&
+&.851E-02_JPRB,.532E-02_JPRB,.350E-02_JPRB,.341E-02_JPRB,.336E-02_JPRB,.339E-02_JPRB,.418E-02_JPRB,&
+&.570E-02_JPRB,.956E-02_JPRB,.154E-01_JPRB,.177E-01_JPRB,.190E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,&
+&.168E-01_JPRB,.112E-01_JPRB,.866E-02_JPRB,.615E-02_JPRB,.375E-02_JPRB,.304E-02_JPRB,.241E-02_JPRB,&
+&.194E-02_JPRB,.181E-02_JPRB,.170E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.170E-02_JPRB,&
+&.199E-02_JPRB,.232E-02_JPRB,.307E-02_JPRB,.481E-02_JPRB,.657E-02_JPRB,.979E-02_JPRB,.111E-01_JPRB,&
+&.103E-01_JPRB,.787E-02_JPRB,.523E-02_JPRB,.413E-02_JPRB,.310E-02_JPRB,.241E-02_JPRB,.210E-02_JPRB,&
+&.179E-02_JPRB,.133E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 21  10.0
+ZAER (:,21, 7) = (/&
+&.952E-03_JPRB,.946E-03_JPRB,.748E-03_JPRB,.716E-03_JPRB,.690E-03_JPRB,.681E-03_JPRB,.721E-03_JPRB,&
+&.763E-03_JPRB,.862E-03_JPRB,.999E-03_JPRB,.111E-02_JPRB,.128E-02_JPRB,.151E-02_JPRB,.172E-02_JPRB,&
+&.206E-02_JPRB,.266E-02_JPRB,.326E-02_JPRB,.416E-02_JPRB,.627E-02_JPRB,.774E-02_JPRB,.949E-02_JPRB,&
+&.124E-01_JPRB,.153E-01_JPRB,.185E-01_JPRB,.249E-01_JPRB,.227E-01_JPRB,.200E-01_JPRB,.102E-01_JPRB,&
+&.691E-02_JPRB,.439E-02_JPRB,.305E-02_JPRB,.307E-02_JPRB,.318E-02_JPRB,.368E-02_JPRB,.489E-02_JPRB,&
+&.669E-02_JPRB,.109E-01_JPRB,.178E-01_JPRB,.203E-01_JPRB,.211E-01_JPRB,.193E-01_JPRB,.180E-01_JPRB,&
+&.164E-01_JPRB,.114E-01_JPRB,.875E-02_JPRB,.601E-02_JPRB,.376E-02_JPRB,.314E-02_JPRB,.258E-02_JPRB,&
+&.203E-02_JPRB,.187E-02_JPRB,.171E-02_JPRB,.161E-02_JPRB,.157E-02_JPRB,.158E-02_JPRB,.188E-02_JPRB,&
+&.252E-02_JPRB,.301E-02_JPRB,.371E-02_JPRB,.493E-02_JPRB,.584E-02_JPRB,.715E-02_JPRB,.691E-02_JPRB,&
+&.605E-02_JPRB,.434E-02_JPRB,.297E-02_JPRB,.246E-02_JPRB,.203E-02_JPRB,.177E-02_JPRB,.155E-02_JPRB,&
+&.131E-02_JPRB,.963E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 22   6.0
+ZAER (:,22, 7) = (/&
+&.669E-03_JPRB,.666E-03_JPRB,.581E-03_JPRB,.579E-03_JPRB,.581E-03_JPRB,.622E-03_JPRB,.677E-03_JPRB,&
+&.735E-03_JPRB,.869E-03_JPRB,.102E-02_JPRB,.115E-02_JPRB,.135E-02_JPRB,.166E-02_JPRB,.191E-02_JPRB,&
+&.229E-02_JPRB,.301E-02_JPRB,.378E-02_JPRB,.495E-02_JPRB,.750E-02_JPRB,.920E-02_JPRB,.112E-01_JPRB,&
+&.135E-01_JPRB,.153E-01_JPRB,.171E-01_JPRB,.186E-01_JPRB,.164E-01_JPRB,.141E-01_JPRB,.735E-02_JPRB,&
+&.502E-02_JPRB,.326E-02_JPRB,.260E-02_JPRB,.281E-02_JPRB,.312E-02_JPRB,.405E-02_JPRB,.565E-02_JPRB,&
+&.755E-02_JPRB,.116E-01_JPRB,.177E-01_JPRB,.201E-01_JPRB,.216E-01_JPRB,.194E-01_JPRB,.178E-01_JPRB,&
+&.159E-01_JPRB,.112E-01_JPRB,.869E-02_JPRB,.608E-02_JPRB,.382E-02_JPRB,.325E-02_JPRB,.275E-02_JPRB,&
+&.222E-02_JPRB,.202E-02_JPRB,.184E-02_JPRB,.167E-02_JPRB,.160E-02_JPRB,.162E-02_JPRB,.205E-02_JPRB,&
+&.298E-02_JPRB,.358E-02_JPRB,.409E-02_JPRB,.461E-02_JPRB,.481E-02_JPRB,.485E-02_JPRB,.410E-02_JPRB,&
+&.346E-02_JPRB,.251E-02_JPRB,.191E-02_JPRB,.169E-02_JPRB,.150E-02_JPRB,.130E-02_JPRB,.111E-02_JPRB,&
+&.880E-03_JPRB,.675E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 23   2.0
+ZAER (:,23, 7) = (/&
+&.494E-03_JPRB,.493E-03_JPRB,.471E-03_JPRB,.487E-03_JPRB,.509E-03_JPRB,.595E-03_JPRB,.667E-03_JPRB,&
+&.739E-03_JPRB,.897E-03_JPRB,.105E-02_JPRB,.118E-02_JPRB,.139E-02_JPRB,.178E-02_JPRB,.209E-02_JPRB,&
+&.254E-02_JPRB,.328E-02_JPRB,.410E-02_JPRB,.538E-02_JPRB,.821E-02_JPRB,.102E-01_JPRB,.126E-01_JPRB,&
+&.140E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.123E-01_JPRB,.104E-01_JPRB,.849E-02_JPRB,.439E-02_JPRB,&
+&.323E-02_JPRB,.238E-02_JPRB,.225E-02_JPRB,.253E-02_JPRB,.292E-02_JPRB,.402E-02_JPRB,.555E-02_JPRB,&
+&.716E-02_JPRB,.103E-01_JPRB,.147E-01_JPRB,.168E-01_JPRB,.185E-01_JPRB,.176E-01_JPRB,.164E-01_JPRB,&
+&.147E-01_JPRB,.108E-01_JPRB,.856E-02_JPRB,.614E-02_JPRB,.399E-02_JPRB,.342E-02_JPRB,.293E-02_JPRB,&
+&.241E-02_JPRB,.221E-02_JPRB,.202E-02_JPRB,.174E-02_JPRB,.166E-02_JPRB,.170E-02_JPRB,.223E-02_JPRB,&
+&.301E-02_JPRB,.352E-02_JPRB,.404E-02_JPRB,.414E-02_JPRB,.399E-02_JPRB,.344E-02_JPRB,.272E-02_JPRB,&
+&.228E-02_JPRB,.174E-02_JPRB,.140E-02_JPRB,.126E-02_JPRB,.112E-02_JPRB,.916E-03_JPRB,.764E-03_JPRB,&
+&.597E-03_JPRB,.497E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 24  -2.0
+ZAER (:,24, 7) = (/&
+&.416E-03_JPRB,.415E-03_JPRB,.404E-03_JPRB,.436E-03_JPRB,.471E-03_JPRB,.564E-03_JPRB,.640E-03_JPRB,&
+&.715E-03_JPRB,.875E-03_JPRB,.104E-02_JPRB,.117E-02_JPRB,.139E-02_JPRB,.180E-02_JPRB,.216E-02_JPRB,&
+&.274E-02_JPRB,.345E-02_JPRB,.418E-02_JPRB,.529E-02_JPRB,.770E-02_JPRB,.940E-02_JPRB,.114E-01_JPRB,&
+&.120E-01_JPRB,.111E-01_JPRB,.993E-02_JPRB,.719E-02_JPRB,.572E-02_JPRB,.429E-02_JPRB,.229E-02_JPRB,&
+&.201E-02_JPRB,.184E-02_JPRB,.197E-02_JPRB,.222E-02_JPRB,.256E-02_JPRB,.355E-02_JPRB,.451E-02_JPRB,&
+&.556E-02_JPRB,.769E-02_JPRB,.110E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,&
+&.121E-01_JPRB,.954E-02_JPRB,.784E-02_JPRB,.591E-02_JPRB,.423E-02_JPRB,.370E-02_JPRB,.320E-02_JPRB,&
+&.258E-02_JPRB,.238E-02_JPRB,.218E-02_JPRB,.188E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,.215E-02_JPRB,&
+&.262E-02_JPRB,.298E-02_JPRB,.348E-02_JPRB,.354E-02_JPRB,.334E-02_JPRB,.271E-02_JPRB,.210E-02_JPRB,&
+&.177E-02_JPRB,.140E-02_JPRB,.114E-02_JPRB,.101E-02_JPRB,.871E-03_JPRB,.706E-03_JPRB,.607E-03_JPRB,&
+&.502E-03_JPRB,.418E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 25  -6.0
+ZAER (:,25, 7) = (/&
+&.420E-03_JPRB,.420E-03_JPRB,.414E-03_JPRB,.447E-03_JPRB,.480E-03_JPRB,.550E-03_JPRB,.618E-03_JPRB,&
+&.682E-03_JPRB,.805E-03_JPRB,.939E-03_JPRB,.106E-02_JPRB,.127E-02_JPRB,.169E-02_JPRB,.200E-02_JPRB,&
+&.245E-02_JPRB,.321E-02_JPRB,.376E-02_JPRB,.447E-02_JPRB,.588E-02_JPRB,.685E-02_JPRB,.798E-02_JPRB,&
+&.796E-02_JPRB,.706E-02_JPRB,.600E-02_JPRB,.380E-02_JPRB,.295E-02_JPRB,.214E-02_JPRB,.146E-02_JPRB,&
+&.150E-02_JPRB,.155E-02_JPRB,.175E-02_JPRB,.194E-02_JPRB,.220E-02_JPRB,.291E-02_JPRB,.364E-02_JPRB,&
+&.432E-02_JPRB,.556E-02_JPRB,.774E-02_JPRB,.875E-02_JPRB,.958E-02_JPRB,.953E-02_JPRB,.927E-02_JPRB,&
+&.880E-02_JPRB,.763E-02_JPRB,.663E-02_JPRB,.544E-02_JPRB,.438E-02_JPRB,.398E-02_JPRB,.360E-02_JPRB,&
+&.291E-02_JPRB,.270E-02_JPRB,.251E-02_JPRB,.225E-02_JPRB,.209E-02_JPRB,.198E-02_JPRB,.204E-02_JPRB,&
+&.226E-02_JPRB,.244E-02_JPRB,.273E-02_JPRB,.286E-02_JPRB,.278E-02_JPRB,.236E-02_JPRB,.183E-02_JPRB,&
+&.155E-02_JPRB,.125E-02_JPRB,.103E-02_JPRB,.919E-03_JPRB,.794E-03_JPRB,.661E-03_JPRB,.594E-03_JPRB,&
+&.526E-03_JPRB,.423E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 26 -10.0
+ZAER (:,26, 7) = (/&
+&.487E-03_JPRB,.486E-03_JPRB,.472E-03_JPRB,.503E-03_JPRB,.534E-03_JPRB,.594E-03_JPRB,.658E-03_JPRB,&
+&.714E-03_JPRB,.808E-03_JPRB,.890E-03_JPRB,.966E-03_JPRB,.110E-02_JPRB,.143E-02_JPRB,.164E-02_JPRB,&
+&.188E-02_JPRB,.244E-02_JPRB,.280E-02_JPRB,.323E-02_JPRB,.385E-02_JPRB,.425E-02_JPRB,.471E-02_JPRB,&
+&.449E-02_JPRB,.391E-02_JPRB,.325E-02_JPRB,.202E-02_JPRB,.167E-02_JPRB,.136E-02_JPRB,.126E-02_JPRB,&
+&.136E-02_JPRB,.145E-02_JPRB,.165E-02_JPRB,.181E-02_JPRB,.199E-02_JPRB,.240E-02_JPRB,.295E-02_JPRB,&
+&.341E-02_JPRB,.417E-02_JPRB,.526E-02_JPRB,.588E-02_JPRB,.654E-02_JPRB,.666E-02_JPRB,.655E-02_JPRB,&
+&.629E-02_JPRB,.580E-02_JPRB,.540E-02_JPRB,.491E-02_JPRB,.447E-02_JPRB,.423E-02_JPRB,.398E-02_JPRB,&
+&.337E-02_JPRB,.324E-02_JPRB,.313E-02_JPRB,.300E-02_JPRB,.270E-02_JPRB,.247E-02_JPRB,.223E-02_JPRB,&
+&.230E-02_JPRB,.232E-02_JPRB,.227E-02_JPRB,.237E-02_JPRB,.234E-02_JPRB,.213E-02_JPRB,.173E-02_JPRB,&
+&.151E-02_JPRB,.126E-02_JPRB,.110E-02_JPRB,.985E-03_JPRB,.845E-03_JPRB,.706E-03_JPRB,.649E-03_JPRB,&
+&.593E-03_JPRB,.490E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 27 -14.0
+ZAER (:,27, 7) = (/&
+&.613E-03_JPRB,.611E-03_JPRB,.565E-03_JPRB,.584E-03_JPRB,.607E-03_JPRB,.692E-03_JPRB,.756E-03_JPRB,&
+&.810E-03_JPRB,.893E-03_JPRB,.961E-03_JPRB,.101E-02_JPRB,.108E-02_JPRB,.128E-02_JPRB,.140E-02_JPRB,&
+&.151E-02_JPRB,.177E-02_JPRB,.197E-02_JPRB,.225E-02_JPRB,.255E-02_JPRB,.271E-02_JPRB,.290E-02_JPRB,&
+&.266E-02_JPRB,.233E-02_JPRB,.196E-02_JPRB,.136E-02_JPRB,.127E-02_JPRB,.120E-02_JPRB,.128E-02_JPRB,&
+&.138E-02_JPRB,.149E-02_JPRB,.168E-02_JPRB,.185E-02_JPRB,.200E-02_JPRB,.224E-02_JPRB,.253E-02_JPRB,&
+&.280E-02_JPRB,.328E-02_JPRB,.390E-02_JPRB,.433E-02_JPRB,.491E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,&
+&.504E-02_JPRB,.472E-02_JPRB,.460E-02_JPRB,.449E-02_JPRB,.458E-02_JPRB,.453E-02_JPRB,.447E-02_JPRB,&
+&.406E-02_JPRB,.409E-02_JPRB,.412E-02_JPRB,.421E-02_JPRB,.384E-02_JPRB,.354E-02_JPRB,.320E-02_JPRB,&
+&.337E-02_JPRB,.335E-02_JPRB,.291E-02_JPRB,.267E-02_JPRB,.250E-02_JPRB,.227E-02_JPRB,.195E-02_JPRB,&
+&.176E-02_JPRB,.152E-02_JPRB,.136E-02_JPRB,.121E-02_JPRB,.102E-02_JPRB,.818E-03_JPRB,.748E-03_JPRB,&
+&.685E-03_JPRB,.615E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 28 -18.0
+ZAER (:,28, 7) = (/&
+&.782E-03_JPRB,.779E-03_JPRB,.704E-03_JPRB,.705E-03_JPRB,.716E-03_JPRB,.816E-03_JPRB,.877E-03_JPRB,&
+&.929E-03_JPRB,.101E-02_JPRB,.110E-02_JPRB,.116E-02_JPRB,.124E-02_JPRB,.137E-02_JPRB,.143E-02_JPRB,&
+&.147E-02_JPRB,.153E-02_JPRB,.162E-02_JPRB,.176E-02_JPRB,.196E-02_JPRB,.205E-02_JPRB,.213E-02_JPRB,&
+&.192E-02_JPRB,.172E-02_JPRB,.152E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.129E-02_JPRB,&
+&.141E-02_JPRB,.153E-02_JPRB,.172E-02_JPRB,.189E-02_JPRB,.203E-02_JPRB,.224E-02_JPRB,.236E-02_JPRB,&
+&.251E-02_JPRB,.281E-02_JPRB,.339E-02_JPRB,.388E-02_JPRB,.462E-02_JPRB,.522E-02_JPRB,.526E-02_JPRB,&
+&.510E-02_JPRB,.455E-02_JPRB,.450E-02_JPRB,.453E-02_JPRB,.496E-02_JPRB,.507E-02_JPRB,.515E-02_JPRB,&
+&.491E-02_JPRB,.509E-02_JPRB,.527E-02_JPRB,.559E-02_JPRB,.534E-02_JPRB,.518E-02_JPRB,.517E-02_JPRB,&
+&.583E-02_JPRB,.605E-02_JPRB,.558E-02_JPRB,.454E-02_JPRB,.389E-02_JPRB,.318E-02_JPRB,.261E-02_JPRB,&
+&.231E-02_JPRB,.199E-02_JPRB,.177E-02_JPRB,.157E-02_JPRB,.129E-02_JPRB,.101E-02_JPRB,.913E-03_JPRB,&
+&.824E-03_JPRB,.783E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 29 -22.0
+ZAER (:,29, 7) = (/&
+&.969E-03_JPRB,.966E-03_JPRB,.872E-03_JPRB,.875E-03_JPRB,.886E-03_JPRB,.965E-03_JPRB,.100E-02_JPRB,&
+&.104E-02_JPRB,.112E-02_JPRB,.121E-02_JPRB,.130E-02_JPRB,.146E-02_JPRB,.164E-02_JPRB,.169E-02_JPRB,&
+&.165E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,.167E-02_JPRB,.180E-02_JPRB,.186E-02_JPRB,.191E-02_JPRB,&
+&.169E-02_JPRB,.154E-02_JPRB,.138E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.124E-02_JPRB,&
+&.137E-02_JPRB,.149E-02_JPRB,.168E-02_JPRB,.186E-02_JPRB,.200E-02_JPRB,.221E-02_JPRB,.230E-02_JPRB,&
+&.240E-02_JPRB,.259E-02_JPRB,.313E-02_JPRB,.365E-02_JPRB,.449E-02_JPRB,.581E-02_JPRB,.618E-02_JPRB,&
+&.635E-02_JPRB,.530E-02_JPRB,.509E-02_JPRB,.499E-02_JPRB,.554E-02_JPRB,.573E-02_JPRB,.591E-02_JPRB,&
+&.585E-02_JPRB,.609E-02_JPRB,.629E-02_JPRB,.621E-02_JPRB,.598E-02_JPRB,.599E-02_JPRB,.704E-02_JPRB,&
+&.883E-02_JPRB,.980E-02_JPRB,.100E-01_JPRB,.791E-02_JPRB,.648E-02_JPRB,.463E-02_JPRB,.355E-02_JPRB,&
+&.305E-02_JPRB,.262E-02_JPRB,.222E-02_JPRB,.191E-02_JPRB,.153E-02_JPRB,.120E-02_JPRB,.110E-02_JPRB,&
+&.102E-02_JPRB,.970E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 30 -26.0
+ZAER (:,30, 7) = (/&
+&.115E-02_JPRB,.114E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,&
+&.115E-02_JPRB,.120E-02_JPRB,.128E-02_JPRB,.138E-02_JPRB,.161E-02_JPRB,.194E-02_JPRB,.200E-02_JPRB,&
+&.188E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.180E-02_JPRB,.195E-02_JPRB,.198E-02_JPRB,.200E-02_JPRB,&
+&.174E-02_JPRB,.155E-02_JPRB,.136E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.116E-02_JPRB,&
+&.128E-02_JPRB,.140E-02_JPRB,.162E-02_JPRB,.182E-02_JPRB,.199E-02_JPRB,.222E-02_JPRB,.240E-02_JPRB,&
+&.249E-02_JPRB,.257E-02_JPRB,.303E-02_JPRB,.348E-02_JPRB,.422E-02_JPRB,.593E-02_JPRB,.684E-02_JPRB,&
+&.783E-02_JPRB,.688E-02_JPRB,.633E-02_JPRB,.573E-02_JPRB,.607E-02_JPRB,.631E-02_JPRB,.655E-02_JPRB,&
+&.685E-02_JPRB,.675E-02_JPRB,.659E-02_JPRB,.552E-02_JPRB,.524E-02_JPRB,.539E-02_JPRB,.759E-02_JPRB,&
+&.109E-01_JPRB,.130E-01_JPRB,.148E-01_JPRB,.121E-01_JPRB,.988E-02_JPRB,.646E-02_JPRB,.470E-02_JPRB,&
+&.392E-02_JPRB,.328E-02_JPRB,.252E-02_JPRB,.210E-02_JPRB,.164E-02_JPRB,.136E-02_JPRB,.129E-02_JPRB,&
+&.123E-02_JPRB,.115E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 31 -30.0
+ZAER (:,31, 7) = (/&
+&.131E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.122E-02_JPRB,.125E-02_JPRB,&
+&.128E-02_JPRB,.130E-02_JPRB,.135E-02_JPRB,.145E-02_JPRB,.172E-02_JPRB,.211E-02_JPRB,.217E-02_JPRB,&
+&.198E-02_JPRB,.175E-02_JPRB,.180E-02_JPRB,.201E-02_JPRB,.231E-02_JPRB,.235E-02_JPRB,.233E-02_JPRB,&
+&.199E-02_JPRB,.171E-02_JPRB,.142E-02_JPRB,.114E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.111E-02_JPRB,&
+&.122E-02_JPRB,.133E-02_JPRB,.159E-02_JPRB,.185E-02_JPRB,.207E-02_JPRB,.239E-02_JPRB,.264E-02_JPRB,&
+&.277E-02_JPRB,.285E-02_JPRB,.337E-02_JPRB,.379E-02_JPRB,.443E-02_JPRB,.620E-02_JPRB,.756E-02_JPRB,&
+&.935E-02_JPRB,.908E-02_JPRB,.813E-02_JPRB,.685E-02_JPRB,.664E-02_JPRB,.689E-02_JPRB,.718E-02_JPRB,&
+&.758E-02_JPRB,.680E-02_JPRB,.601E-02_JPRB,.429E-02_JPRB,.405E-02_JPRB,.425E-02_JPRB,.669E-02_JPRB,&
+&.109E-01_JPRB,.140E-01_JPRB,.182E-01_JPRB,.158E-01_JPRB,.133E-01_JPRB,.865E-02_JPRB,.610E-02_JPRB,&
+&.493E-02_JPRB,.389E-02_JPRB,.275E-02_JPRB,.226E-02_JPRB,.179E-02_JPRB,.158E-02_JPRB,.151E-02_JPRB,&
+&.144E-02_JPRB,.131E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 32 -34.0
+ZAER (:,32, 7) = (/&
+&.151E-02_JPRB,.151E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,&
+&.138E-02_JPRB,.140E-02_JPRB,.144E-02_JPRB,.153E-02_JPRB,.179E-02_JPRB,.207E-02_JPRB,.209E-02_JPRB,&
+&.188E-02_JPRB,.173E-02_JPRB,.185E-02_JPRB,.216E-02_JPRB,.263E-02_JPRB,.272E-02_JPRB,.274E-02_JPRB,&
+&.234E-02_JPRB,.197E-02_JPRB,.157E-02_JPRB,.115E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,&
+&.119E-02_JPRB,.130E-02_JPRB,.160E-02_JPRB,.191E-02_JPRB,.219E-02_JPRB,.270E-02_JPRB,.303E-02_JPRB,&
+&.326E-02_JPRB,.352E-02_JPRB,.443E-02_JPRB,.508E-02_JPRB,.595E-02_JPRB,.798E-02_JPRB,.974E-02_JPRB,&
+&.121E-01_JPRB,.118E-01_JPRB,.104E-01_JPRB,.860E-02_JPRB,.782E-02_JPRB,.795E-02_JPRB,.814E-02_JPRB,&
+&.790E-02_JPRB,.659E-02_JPRB,.534E-02_JPRB,.363E-02_JPRB,.345E-02_JPRB,.359E-02_JPRB,.525E-02_JPRB,&
+&.921E-02_JPRB,.126E-01_JPRB,.185E-01_JPRB,.176E-01_JPRB,.157E-01_JPRB,.113E-01_JPRB,.794E-02_JPRB,&
+&.621E-02_JPRB,.442E-02_JPRB,.296E-02_JPRB,.246E-02_JPRB,.207E-02_JPRB,.188E-02_JPRB,.178E-02_JPRB,&
+&.167E-02_JPRB,.152E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 33 -38.0
+ZAER (:,33, 7) = (/&
+&.179E-02_JPRB,.178E-02_JPRB,.167E-02_JPRB,.158E-02_JPRB,.151E-02_JPRB,.145E-02_JPRB,.146E-02_JPRB,&
+&.146E-02_JPRB,.148E-02_JPRB,.153E-02_JPRB,.161E-02_JPRB,.181E-02_JPRB,.193E-02_JPRB,.189E-02_JPRB,&
+&.168E-02_JPRB,.165E-02_JPRB,.182E-02_JPRB,.217E-02_JPRB,.271E-02_JPRB,.284E-02_JPRB,.293E-02_JPRB,&
+&.261E-02_JPRB,.222E-02_JPRB,.179E-02_JPRB,.123E-02_JPRB,.114E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.116E-02_JPRB,.126E-02_JPRB,.153E-02_JPRB,.183E-02_JPRB,.215E-02_JPRB,.287E-02_JPRB,.352E-02_JPRB,&
+&.407E-02_JPRB,.497E-02_JPRB,.701E-02_JPRB,.842E-02_JPRB,.103E-01_JPRB,.128E-01_JPRB,.148E-01_JPRB,&
+&.173E-01_JPRB,.154E-01_JPRB,.136E-01_JPRB,.114E-01_JPRB,.101E-01_JPRB,.981E-02_JPRB,.961E-02_JPRB,&
+&.828E-02_JPRB,.684E-02_JPRB,.550E-02_JPRB,.396E-02_JPRB,.374E-02_JPRB,.369E-02_JPRB,.436E-02_JPRB,&
+&.713E-02_JPRB,.988E-02_JPRB,.155E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.134E-01_JPRB,.965E-02_JPRB,&
+&.746E-02_JPRB,.490E-02_JPRB,.317E-02_JPRB,.268E-02_JPRB,.237E-02_JPRB,.219E-02_JPRB,.207E-02_JPRB,&
+&.194E-02_JPRB,.179E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 34 -42.0
+ZAER (:,34, 7) = (/&
+&.203E-02_JPRB,.202E-02_JPRB,.188E-02_JPRB,.179E-02_JPRB,.170E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.158E-02_JPRB,.163E-02_JPRB,.177E-02_JPRB,.178E-02_JPRB,.173E-02_JPRB,&
+&.156E-02_JPRB,.157E-02_JPRB,.173E-02_JPRB,.203E-02_JPRB,.246E-02_JPRB,.261E-02_JPRB,.273E-02_JPRB,&
+&.260E-02_JPRB,.231E-02_JPRB,.198E-02_JPRB,.137E-02_JPRB,.123E-02_JPRB,.111E-02_JPRB,.105E-02_JPRB,&
+&.109E-02_JPRB,.114E-02_JPRB,.133E-02_JPRB,.156E-02_JPRB,.184E-02_JPRB,.261E-02_JPRB,.383E-02_JPRB,&
+&.500E-02_JPRB,.715E-02_JPRB,.116E-01_JPRB,.148E-01_JPRB,.192E-01_JPRB,.218E-01_JPRB,.230E-01_JPRB,&
+&.241E-01_JPRB,.204E-01_JPRB,.182E-01_JPRB,.157E-01_JPRB,.132E-01_JPRB,.122E-01_JPRB,.113E-01_JPRB,&
+&.914E-02_JPRB,.782E-02_JPRB,.659E-02_JPRB,.512E-02_JPRB,.466E-02_JPRB,.435E-02_JPRB,.431E-02_JPRB,&
+&.573E-02_JPRB,.738E-02_JPRB,.112E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,.986E-02_JPRB,&
+&.785E-02_JPRB,.530E-02_JPRB,.351E-02_JPRB,.297E-02_JPRB,.261E-02_JPRB,.241E-02_JPRB,.229E-02_JPRB,&
+&.217E-02_JPRB,.203E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 35 -46.0
+ZAER (:,35, 7) = (/&
+&.213E-02_JPRB,.213E-02_JPRB,.195E-02_JPRB,.185E-02_JPRB,.176E-02_JPRB,.165E-02_JPRB,.159E-02_JPRB,&
+&.156E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,&
+&.150E-02_JPRB,.153E-02_JPRB,.162E-02_JPRB,.179E-02_JPRB,.197E-02_JPRB,.206E-02_JPRB,.216E-02_JPRB,&
+&.219E-02_JPRB,.206E-02_JPRB,.190E-02_JPRB,.146E-02_JPRB,.132E-02_JPRB,.119E-02_JPRB,.108E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.114E-02_JPRB,.129E-02_JPRB,.150E-02_JPRB,.215E-02_JPRB,.379E-02_JPRB,&
+&.553E-02_JPRB,.895E-02_JPRB,.166E-01_JPRB,.226E-01_JPRB,.313E-01_JPRB,.329E-01_JPRB,.321E-01_JPRB,&
+&.302E-01_JPRB,.258E-01_JPRB,.231E-01_JPRB,.203E-01_JPRB,.163E-01_JPRB,.146E-01_JPRB,.130E-01_JPRB,&
+&.103E-01_JPRB,.919E-02_JPRB,.809E-02_JPRB,.667E-02_JPRB,.585E-02_JPRB,.522E-02_JPRB,.460E-02_JPRB,&
+&.502E-02_JPRB,.568E-02_JPRB,.756E-02_JPRB,.894E-02_JPRB,.950E-02_JPRB,.958E-02_JPRB,.830E-02_JPRB,&
+&.717E-02_JPRB,.550E-02_JPRB,.402E-02_JPRB,.344E-02_JPRB,.293E-02_JPRB,.258E-02_JPRB,.244E-02_JPRB,&
+&.230E-02_JPRB,.214E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 36 -50.0
+ZAER (:,36, 7) = (/&
+&.207E-02_JPRB,.207E-02_JPRB,.184E-02_JPRB,.173E-02_JPRB,.163E-02_JPRB,.154E-02_JPRB,.150E-02_JPRB,&
+&.148E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.143E-02_JPRB,.148E-02_JPRB,.151E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,&
+&.157E-02_JPRB,.156E-02_JPRB,.154E-02_JPRB,.143E-02_JPRB,.135E-02_JPRB,.127E-02_JPRB,.114E-02_JPRB,&
+&.110E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,.119E-02_JPRB,.136E-02_JPRB,.195E-02_JPRB,.392E-02_JPRB,&
+&.594E-02_JPRB,.983E-02_JPRB,.191E-01_JPRB,.267E-01_JPRB,.382E-01_JPRB,.385E-01_JPRB,.363E-01_JPRB,&
+&.320E-01_JPRB,.272E-01_JPRB,.247E-01_JPRB,.221E-01_JPRB,.179E-01_JPRB,.160E-01_JPRB,.141E-01_JPRB,&
+&.114E-01_JPRB,.105E-01_JPRB,.954E-02_JPRB,.806E-02_JPRB,.696E-02_JPRB,.606E-02_JPRB,.491E-02_JPRB,&
+&.469E-02_JPRB,.471E-02_JPRB,.524E-02_JPRB,.583E-02_JPRB,.611E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,&
+&.596E-02_JPRB,.532E-02_JPRB,.433E-02_JPRB,.384E-02_JPRB,.332E-02_JPRB,.276E-02_JPRB,.254E-02_JPRB,&
+&.233E-02_JPRB,.208E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 37 -54.0
+ZAER (:,37, 7) = (/&
+&.189E-02_JPRB,.189E-02_JPRB,.163E-02_JPRB,.152E-02_JPRB,.142E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,&
+&.135E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,&
+&.118E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,.116E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.119E-02_JPRB,.130E-02_JPRB,.148E-02_JPRB,.202E-02_JPRB,.358E-02_JPRB,&
+&.519E-02_JPRB,.826E-02_JPRB,.149E-01_JPRB,.204E-01_JPRB,.286E-01_JPRB,.298E-01_JPRB,.285E-01_JPRB,&
+&.257E-01_JPRB,.225E-01_JPRB,.206E-01_JPRB,.186E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,&
+&.110E-01_JPRB,.102E-01_JPRB,.945E-02_JPRB,.806E-02_JPRB,.691E-02_JPRB,.596E-02_JPRB,.468E-02_JPRB,&
+&.426E-02_JPRB,.404E-02_JPRB,.403E-02_JPRB,.411E-02_JPRB,.415E-02_JPRB,.418E-02_JPRB,.446E-02_JPRB,&
+&.451E-02_JPRB,.447E-02_JPRB,.408E-02_JPRB,.379E-02_JPRB,.342E-02_JPRB,.278E-02_JPRB,.249E-02_JPRB,&
+&.221E-02_JPRB,.190E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 38 -58.0
+ZAER (:,38, 7) = (/&
+&.168E-02_JPRB,.167E-02_JPRB,.144E-02_JPRB,.135E-02_JPRB,.128E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,&
+&.132E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.122E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,&
+&.105E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,&
+&.102E-02_JPRB,.104E-02_JPRB,.118E-02_JPRB,.140E-02_JPRB,.162E-02_JPRB,.210E-02_JPRB,.285E-02_JPRB,&
+&.354E-02_JPRB,.474E-02_JPRB,.721E-02_JPRB,.937E-02_JPRB,.127E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,&
+&.151E-01_JPRB,.140E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.103E-01_JPRB,.982E-02_JPRB,.939E-02_JPRB,&
+&.857E-02_JPRB,.803E-02_JPRB,.750E-02_JPRB,.650E-02_JPRB,.570E-02_JPRB,.502E-02_JPRB,.405E-02_JPRB,&
+&.368E-02_JPRB,.347E-02_JPRB,.338E-02_JPRB,.331E-02_JPRB,.326E-02_JPRB,.322E-02_JPRB,.330E-02_JPRB,&
+&.338E-02_JPRB,.350E-02_JPRB,.351E-02_JPRB,.339E-02_JPRB,.319E-02_JPRB,.263E-02_JPRB,.234E-02_JPRB,&
+&.203E-02_JPRB,.169E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 39 -62.0
+ZAER (:,39, 7) = (/&
+&.145E-02_JPRB,.144E-02_JPRB,.130E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,&
+&.115E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,&
+&.127E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.113E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,.953E-03_JPRB,.906E-03_JPRB,.841E-03_JPRB,&
+&.852E-03_JPRB,.879E-03_JPRB,.103E-02_JPRB,.131E-02_JPRB,.157E-02_JPRB,.209E-02_JPRB,.251E-02_JPRB,&
+&.283E-02_JPRB,.329E-02_JPRB,.432E-02_JPRB,.531E-02_JPRB,.693E-02_JPRB,.833E-02_JPRB,.855E-02_JPRB,&
+&.843E-02_JPRB,.742E-02_JPRB,.691E-02_JPRB,.637E-02_JPRB,.588E-02_JPRB,.580E-02_JPRB,.574E-02_JPRB,&
+&.563E-02_JPRB,.548E-02_JPRB,.532E-02_JPRB,.491E-02_JPRB,.451E-02_JPRB,.416E-02_JPRB,.359E-02_JPRB,&
+&.332E-02_JPRB,.314E-02_JPRB,.299E-02_JPRB,.288E-02_JPRB,.282E-02_JPRB,.275E-02_JPRB,.276E-02_JPRB,&
+&.278E-02_JPRB,.283E-02_JPRB,.282E-02_JPRB,.274E-02_JPRB,.262E-02_JPRB,.221E-02_JPRB,.198E-02_JPRB,&
+&.173E-02_JPRB,.146E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 40 -66.0
+ZAER (:,40, 7) = (/&
+&.130E-02_JPRB,.129E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,&
+&.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,&
+&.123E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.102E-02_JPRB,.100E-02_JPRB,.981E-03_JPRB,.908E-03_JPRB,.865E-03_JPRB,.823E-03_JPRB,.777E-03_JPRB,&
+&.785E-03_JPRB,.806E-03_JPRB,.928E-03_JPRB,.115E-02_JPRB,.136E-02_JPRB,.179E-02_JPRB,.220E-02_JPRB,&
+&.255E-02_JPRB,.311E-02_JPRB,.392E-02_JPRB,.454E-02_JPRB,.540E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,&
+&.577E-02_JPRB,.494E-02_JPRB,.455E-02_JPRB,.415E-02_JPRB,.396E-02_JPRB,.397E-02_JPRB,.400E-02_JPRB,&
+&.405E-02_JPRB,.402E-02_JPRB,.399E-02_JPRB,.386E-02_JPRB,.369E-02_JPRB,.352E-02_JPRB,.321E-02_JPRB,&
+&.300E-02_JPRB,.286E-02_JPRB,.268E-02_JPRB,.255E-02_JPRB,.247E-02_JPRB,.237E-02_JPRB,.230E-02_JPRB,&
+&.226E-02_JPRB,.221E-02_JPRB,.213E-02_JPRB,.206E-02_JPRB,.196E-02_JPRB,.173E-02_JPRB,.160E-02_JPRB,&
+&.147E-02_JPRB,.130E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 41 -70.0
+ZAER (:,41, 7) = (/&
+&.130E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.125E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.116E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,&
+&.990E-03_JPRB,.956E-03_JPRB,.921E-03_JPRB,.854E-03_JPRB,.823E-03_JPRB,.794E-03_JPRB,.763E-03_JPRB,&
+&.769E-03_JPRB,.782E-03_JPRB,.860E-03_JPRB,.100E-02_JPRB,.114E-02_JPRB,.145E-02_JPRB,.181E-02_JPRB,&
+&.211E-02_JPRB,.260E-02_JPRB,.314E-02_JPRB,.347E-02_JPRB,.388E-02_JPRB,.400E-02_JPRB,.392E-02_JPRB,&
+&.372E-02_JPRB,.331E-02_JPRB,.314E-02_JPRB,.298E-02_JPRB,.294E-02_JPRB,.298E-02_JPRB,.301E-02_JPRB,&
+&.310E-02_JPRB,.312E-02_JPRB,.313E-02_JPRB,.309E-02_JPRB,.301E-02_JPRB,.292E-02_JPRB,.274E-02_JPRB,&
+&.261E-02_JPRB,.252E-02_JPRB,.238E-02_JPRB,.227E-02_JPRB,.219E-02_JPRB,.208E-02_JPRB,.198E-02_JPRB,&
+&.192E-02_JPRB,.185E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,.162E-02_JPRB,.150E-02_JPRB,.144E-02_JPRB,&
+&.138E-02_JPRB,.130E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 42 -74.0
+ZAER (:,42, 7) = (/&
+&.140E-02_JPRB,.140E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,&
+&.134E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,&
+&.128E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,&
+&.974E-03_JPRB,.940E-03_JPRB,.905E-03_JPRB,.852E-03_JPRB,.831E-03_JPRB,.811E-03_JPRB,.793E-03_JPRB,&
+&.800E-03_JPRB,.811E-03_JPRB,.864E-03_JPRB,.950E-03_JPRB,.104E-02_JPRB,.122E-02_JPRB,.145E-02_JPRB,&
+&.163E-02_JPRB,.191E-02_JPRB,.219E-02_JPRB,.235E-02_JPRB,.252E-02_JPRB,.257E-02_JPRB,.254E-02_JPRB,&
+&.248E-02_JPRB,.237E-02_JPRB,.233E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.232E-02_JPRB,.234E-02_JPRB,&
+&.237E-02_JPRB,.238E-02_JPRB,.239E-02_JPRB,.238E-02_JPRB,.234E-02_JPRB,.231E-02_JPRB,.223E-02_JPRB,&
+&.217E-02_JPRB,.212E-02_JPRB,.205E-02_JPRB,.199E-02_JPRB,.194E-02_JPRB,.188E-02_JPRB,.180E-02_JPRB,&
+&.176E-02_JPRB,.170E-02_JPRB,.164E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,&
+&.144E-02_JPRB,.140E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 43 -78.0
+ZAER (:,43, 7) = (/&
+&.148E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,&
+&.138E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,&
+&.125E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,&
+&.992E-03_JPRB,.967E-03_JPRB,.942E-03_JPRB,.906E-03_JPRB,.894E-03_JPRB,.883E-03_JPRB,.876E-03_JPRB,&
+&.885E-03_JPRB,.895E-03_JPRB,.933E-03_JPRB,.984E-03_JPRB,.103E-02_JPRB,.112E-02_JPRB,.123E-02_JPRB,&
+&.132E-02_JPRB,.144E-02_JPRB,.156E-02_JPRB,.163E-02_JPRB,.171E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,&
+&.180E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.184E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,&
+&.180E-02_JPRB,.179E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,&
+&.166E-02_JPRB,.164E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,.152E-02_JPRB,&
+&.151E-02_JPRB,.148E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 44 -82.0
+ZAER (:,44, 7) = (/&
+&.146E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,.143E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,&
+&.125E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,&
+&.110E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.106E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.120E-02_JPRB,&
+&.123E-02_JPRB,.128E-02_JPRB,.132E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.144E-02_JPRB,&
+&.147E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,.155E-02_JPRB,&
+&.156E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,&
+&.148E-02_JPRB,.146E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 45 -86.0
+ZAER (:,45, 7) = (/&
+&.139E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.135E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,&
+&.135E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.140E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.139E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  7 --- lat: 46 -90.0
+ZAER (:,46, 7) = (/&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=7   
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_07
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_08.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_08.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_08.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_08
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 August
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,8:8)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  8 --- lat:  1  90.0
+ZAER (:, 1, 8) = (/&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.168E-03_JPRB,.168E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  2  86.0
+ZAER (:, 2, 8) = (/&
+&.175E-03_JPRB,.175E-03_JPRB,.178E-03_JPRB,.179E-03_JPRB,.180E-03_JPRB,.182E-03_JPRB,.183E-03_JPRB,&
+&.185E-03_JPRB,.186E-03_JPRB,.187E-03_JPRB,.187E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,&
+&.188E-03_JPRB,.188E-03_JPRB,.187E-03_JPRB,.187E-03_JPRB,.186E-03_JPRB,.185E-03_JPRB,.184E-03_JPRB,&
+&.182E-03_JPRB,.181E-03_JPRB,.181E-03_JPRB,.178E-03_JPRB,.177E-03_JPRB,.176E-03_JPRB,.174E-03_JPRB,&
+&.172E-03_JPRB,.171E-03_JPRB,.169E-03_JPRB,.167E-03_JPRB,.166E-03_JPRB,.164E-03_JPRB,.162E-03_JPRB,&
+&.161E-03_JPRB,.160E-03_JPRB,.158E-03_JPRB,.157E-03_JPRB,.156E-03_JPRB,.155E-03_JPRB,.154E-03_JPRB,&
+&.153E-03_JPRB,.153E-03_JPRB,.152E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,&
+&.151E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,&
+&.153E-03_JPRB,.154E-03_JPRB,.155E-03_JPRB,.156E-03_JPRB,.157E-03_JPRB,.158E-03_JPRB,.160E-03_JPRB,&
+&.161E-03_JPRB,.162E-03_JPRB,.164E-03_JPRB,.165E-03_JPRB,.167E-03_JPRB,.169E-03_JPRB,.171E-03_JPRB,&
+&.172E-03_JPRB,.175E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  3  82.0
+ZAER (:, 3, 8) = (/&
+&.193E-03_JPRB,.193E-03_JPRB,.202E-03_JPRB,.206E-03_JPRB,.210E-03_JPRB,.216E-03_JPRB,.220E-03_JPRB,&
+&.223E-03_JPRB,.227E-03_JPRB,.228E-03_JPRB,.230E-03_JPRB,.231E-03_JPRB,.230E-03_JPRB,.229E-03_JPRB,&
+&.228E-03_JPRB,.226E-03_JPRB,.224E-03_JPRB,.222E-03_JPRB,.218E-03_JPRB,.216E-03_JPRB,.214E-03_JPRB,&
+&.209E-03_JPRB,.207E-03_JPRB,.204E-03_JPRB,.199E-03_JPRB,.196E-03_JPRB,.193E-03_JPRB,.188E-03_JPRB,&
+&.184E-03_JPRB,.181E-03_JPRB,.175E-03_JPRB,.172E-03_JPRB,.168E-03_JPRB,.163E-03_JPRB,.159E-03_JPRB,&
+&.156E-03_JPRB,.152E-03_JPRB,.148E-03_JPRB,.146E-03_JPRB,.143E-03_JPRB,.140E-03_JPRB,.139E-03_JPRB,&
+&.137E-03_JPRB,.135E-03_JPRB,.134E-03_JPRB,.133E-03_JPRB,.132E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,&
+&.131E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.133E-03_JPRB,&
+&.135E-03_JPRB,.136E-03_JPRB,.138E-03_JPRB,.140E-03_JPRB,.142E-03_JPRB,.146E-03_JPRB,.150E-03_JPRB,&
+&.152E-03_JPRB,.156E-03_JPRB,.161E-03_JPRB,.165E-03_JPRB,.169E-03_JPRB,.176E-03_JPRB,.180E-03_JPRB,&
+&.185E-03_JPRB,.193E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  4  78.0
+ZAER (:, 4, 8) = (/&
+&.229E-03_JPRB,.229E-03_JPRB,.245E-03_JPRB,.252E-03_JPRB,.260E-03_JPRB,.270E-03_JPRB,.275E-03_JPRB,&
+&.280E-03_JPRB,.285E-03_JPRB,.287E-03_JPRB,.287E-03_JPRB,.286E-03_JPRB,.282E-03_JPRB,.279E-03_JPRB,&
+&.274E-03_JPRB,.268E-03_JPRB,.264E-03_JPRB,.259E-03_JPRB,.253E-03_JPRB,.249E-03_JPRB,.244E-03_JPRB,&
+&.238E-03_JPRB,.235E-03_JPRB,.231E-03_JPRB,.225E-03_JPRB,.222E-03_JPRB,.218E-03_JPRB,.212E-03_JPRB,&
+&.207E-03_JPRB,.203E-03_JPRB,.195E-03_JPRB,.189E-03_JPRB,.184E-03_JPRB,.176E-03_JPRB,.168E-03_JPRB,&
+&.163E-03_JPRB,.157E-03_JPRB,.151E-03_JPRB,.147E-03_JPRB,.143E-03_JPRB,.140E-03_JPRB,.138E-03_JPRB,&
+&.137E-03_JPRB,.134E-03_JPRB,.134E-03_JPRB,.133E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.131E-03_JPRB,&
+&.130E-03_JPRB,.130E-03_JPRB,.130E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,&
+&.129E-03_JPRB,.130E-03_JPRB,.132E-03_JPRB,.135E-03_JPRB,.138E-03_JPRB,.142E-03_JPRB,.148E-03_JPRB,&
+&.152E-03_JPRB,.157E-03_JPRB,.167E-03_JPRB,.173E-03_JPRB,.182E-03_JPRB,.195E-03_JPRB,.203E-03_JPRB,&
+&.212E-03_JPRB,.228E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  5  74.0
+ZAER (:, 5, 8) = (/&
+&.290E-03_JPRB,.291E-03_JPRB,.309E-03_JPRB,.316E-03_JPRB,.322E-03_JPRB,.329E-03_JPRB,.333E-03_JPRB,&
+&.336E-03_JPRB,.339E-03_JPRB,.339E-03_JPRB,.337E-03_JPRB,.330E-03_JPRB,.319E-03_JPRB,.312E-03_JPRB,&
+&.302E-03_JPRB,.293E-03_JPRB,.287E-03_JPRB,.281E-03_JPRB,.273E-03_JPRB,.268E-03_JPRB,.263E-03_JPRB,&
+&.257E-03_JPRB,.254E-03_JPRB,.251E-03_JPRB,.248E-03_JPRB,.247E-03_JPRB,.246E-03_JPRB,.243E-03_JPRB,&
+&.240E-03_JPRB,.237E-03_JPRB,.230E-03_JPRB,.223E-03_JPRB,.217E-03_JPRB,.207E-03_JPRB,.198E-03_JPRB,&
+&.191E-03_JPRB,.182E-03_JPRB,.174E-03_JPRB,.169E-03_JPRB,.164E-03_JPRB,.161E-03_JPRB,.159E-03_JPRB,&
+&.159E-03_JPRB,.159E-03_JPRB,.160E-03_JPRB,.161E-03_JPRB,.164E-03_JPRB,.166E-03_JPRB,.167E-03_JPRB,&
+&.168E-03_JPRB,.167E-03_JPRB,.165E-03_JPRB,.161E-03_JPRB,.157E-03_JPRB,.154E-03_JPRB,.149E-03_JPRB,&
+&.148E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,.150E-03_JPRB,.152E-03_JPRB,.156E-03_JPRB,.163E-03_JPRB,&
+&.169E-03_JPRB,.178E-03_JPRB,.193E-03_JPRB,.204E-03_JPRB,.217E-03_JPRB,.239E-03_JPRB,.252E-03_JPRB,&
+&.266E-03_JPRB,.290E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  6  70.0
+ZAER (:, 6, 8) = (/&
+&.378E-03_JPRB,.378E-03_JPRB,.386E-03_JPRB,.383E-03_JPRB,.379E-03_JPRB,.372E-03_JPRB,.370E-03_JPRB,&
+&.369E-03_JPRB,.368E-03_JPRB,.365E-03_JPRB,.360E-03_JPRB,.348E-03_JPRB,.332E-03_JPRB,.322E-03_JPRB,&
+&.310E-03_JPRB,.301E-03_JPRB,.296E-03_JPRB,.290E-03_JPRB,.283E-03_JPRB,.278E-03_JPRB,.272E-03_JPRB,&
+&.267E-03_JPRB,.265E-03_JPRB,.264E-03_JPRB,.266E-03_JPRB,.269E-03_JPRB,.272E-03_JPRB,.276E-03_JPRB,&
+&.276E-03_JPRB,.276E-03_JPRB,.274E-03_JPRB,.270E-03_JPRB,.265E-03_JPRB,.254E-03_JPRB,.244E-03_JPRB,&
+&.237E-03_JPRB,.227E-03_JPRB,.219E-03_JPRB,.214E-03_JPRB,.209E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,&
+&.207E-03_JPRB,.213E-03_JPRB,.219E-03_JPRB,.225E-03_JPRB,.237E-03_JPRB,.243E-03_JPRB,.250E-03_JPRB,&
+&.258E-03_JPRB,.257E-03_JPRB,.255E-03_JPRB,.242E-03_JPRB,.229E-03_JPRB,.218E-03_JPRB,.203E-03_JPRB,&
+&.196E-03_JPRB,.193E-03_JPRB,.191E-03_JPRB,.194E-03_JPRB,.196E-03_JPRB,.200E-03_JPRB,.210E-03_JPRB,&
+&.220E-03_JPRB,.236E-03_JPRB,.260E-03_JPRB,.277E-03_JPRB,.297E-03_JPRB,.326E-03_JPRB,.341E-03_JPRB,&
+&.357E-03_JPRB,.377E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  7  66.0
+ZAER (:, 7, 8) = (/&
+&.451E-03_JPRB,.451E-03_JPRB,.436E-03_JPRB,.419E-03_JPRB,.404E-03_JPRB,.381E-03_JPRB,.375E-03_JPRB,&
+&.372E-03_JPRB,.372E-03_JPRB,.369E-03_JPRB,.365E-03_JPRB,.351E-03_JPRB,.335E-03_JPRB,.325E-03_JPRB,&
+&.313E-03_JPRB,.306E-03_JPRB,.302E-03_JPRB,.299E-03_JPRB,.293E-03_JPRB,.288E-03_JPRB,.283E-03_JPRB,&
+&.276E-03_JPRB,.275E-03_JPRB,.274E-03_JPRB,.282E-03_JPRB,.288E-03_JPRB,.293E-03_JPRB,.302E-03_JPRB,&
+&.306E-03_JPRB,.309E-03_JPRB,.312E-03_JPRB,.311E-03_JPRB,.308E-03_JPRB,.299E-03_JPRB,.292E-03_JPRB,&
+&.287E-03_JPRB,.282E-03_JPRB,.279E-03_JPRB,.276E-03_JPRB,.274E-03_JPRB,.276E-03_JPRB,.280E-03_JPRB,&
+&.287E-03_JPRB,.301E-03_JPRB,.311E-03_JPRB,.322E-03_JPRB,.342E-03_JPRB,.356E-03_JPRB,.371E-03_JPRB,&
+&.397E-03_JPRB,.398E-03_JPRB,.397E-03_JPRB,.372E-03_JPRB,.345E-03_JPRB,.322E-03_JPRB,.288E-03_JPRB,&
+&.273E-03_JPRB,.265E-03_JPRB,.260E-03_JPRB,.264E-03_JPRB,.269E-03_JPRB,.278E-03_JPRB,.299E-03_JPRB,&
+&.318E-03_JPRB,.349E-03_JPRB,.389E-03_JPRB,.409E-03_JPRB,.430E-03_JPRB,.446E-03_JPRB,.450E-03_JPRB,&
+&.454E-03_JPRB,.451E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  8  62.0
+ZAER (:, 8, 8) = (/&
+&.454E-03_JPRB,.453E-03_JPRB,.433E-03_JPRB,.416E-03_JPRB,.400E-03_JPRB,.373E-03_JPRB,.370E-03_JPRB,&
+&.370E-03_JPRB,.375E-03_JPRB,.375E-03_JPRB,.372E-03_JPRB,.361E-03_JPRB,.345E-03_JPRB,.336E-03_JPRB,&
+&.325E-03_JPRB,.319E-03_JPRB,.316E-03_JPRB,.313E-03_JPRB,.310E-03_JPRB,.308E-03_JPRB,.305E-03_JPRB,&
+&.300E-03_JPRB,.297E-03_JPRB,.295E-03_JPRB,.298E-03_JPRB,.304E-03_JPRB,.311E-03_JPRB,.326E-03_JPRB,&
+&.333E-03_JPRB,.338E-03_JPRB,.339E-03_JPRB,.336E-03_JPRB,.333E-03_JPRB,.327E-03_JPRB,.328E-03_JPRB,&
+&.330E-03_JPRB,.337E-03_JPRB,.346E-03_JPRB,.353E-03_JPRB,.361E-03_JPRB,.378E-03_JPRB,.390E-03_JPRB,&
+&.406E-03_JPRB,.422E-03_JPRB,.428E-03_JPRB,.434E-03_JPRB,.451E-03_JPRB,.470E-03_JPRB,.490E-03_JPRB,&
+&.528E-03_JPRB,.528E-03_JPRB,.525E-03_JPRB,.501E-03_JPRB,.471E-03_JPRB,.443E-03_JPRB,.392E-03_JPRB,&
+&.366E-03_JPRB,.352E-03_JPRB,.343E-03_JPRB,.349E-03_JPRB,.356E-03_JPRB,.370E-03_JPRB,.409E-03_JPRB,&
+&.443E-03_JPRB,.493E-03_JPRB,.545E-03_JPRB,.561E-03_JPRB,.572E-03_JPRB,.540E-03_JPRB,.515E-03_JPRB,&
+&.486E-03_JPRB,.455E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat:  9  58.0
+ZAER (:, 9, 8) = (/&
+&.451E-03_JPRB,.451E-03_JPRB,.437E-03_JPRB,.430E-03_JPRB,.423E-03_JPRB,.402E-03_JPRB,.397E-03_JPRB,&
+&.394E-03_JPRB,.397E-03_JPRB,.395E-03_JPRB,.391E-03_JPRB,.379E-03_JPRB,.364E-03_JPRB,.354E-03_JPRB,&
+&.341E-03_JPRB,.333E-03_JPRB,.329E-03_JPRB,.326E-03_JPRB,.328E-03_JPRB,.331E-03_JPRB,.335E-03_JPRB,&
+&.341E-03_JPRB,.342E-03_JPRB,.342E-03_JPRB,.343E-03_JPRB,.347E-03_JPRB,.352E-03_JPRB,.375E-03_JPRB,&
+&.383E-03_JPRB,.388E-03_JPRB,.376E-03_JPRB,.367E-03_JPRB,.363E-03_JPRB,.364E-03_JPRB,.366E-03_JPRB,&
+&.371E-03_JPRB,.385E-03_JPRB,.411E-03_JPRB,.430E-03_JPRB,.456E-03_JPRB,.492E-03_JPRB,.517E-03_JPRB,&
+&.547E-03_JPRB,.565E-03_JPRB,.560E-03_JPRB,.549E-03_JPRB,.553E-03_JPRB,.564E-03_JPRB,.576E-03_JPRB,&
+&.591E-03_JPRB,.587E-03_JPRB,.584E-03_JPRB,.581E-03_JPRB,.566E-03_JPRB,.549E-03_JPRB,.505E-03_JPRB,&
+&.479E-03_JPRB,.462E-03_JPRB,.449E-03_JPRB,.446E-03_JPRB,.450E-03_JPRB,.462E-03_JPRB,.513E-03_JPRB,&
+&.555E-03_JPRB,.618E-03_JPRB,.680E-03_JPRB,.691E-03_JPRB,.690E-03_JPRB,.612E-03_JPRB,.561E-03_JPRB,&
+&.506E-03_JPRB,.453E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 10  54.0
+ZAER (:,10, 8) = (/&
+&.478E-03_JPRB,.478E-03_JPRB,.468E-03_JPRB,.466E-03_JPRB,.462E-03_JPRB,.446E-03_JPRB,.433E-03_JPRB,&
+&.425E-03_JPRB,.419E-03_JPRB,.414E-03_JPRB,.407E-03_JPRB,.392E-03_JPRB,.380E-03_JPRB,.371E-03_JPRB,&
+&.355E-03_JPRB,.347E-03_JPRB,.345E-03_JPRB,.344E-03_JPRB,.351E-03_JPRB,.359E-03_JPRB,.370E-03_JPRB,&
+&.385E-03_JPRB,.391E-03_JPRB,.398E-03_JPRB,.398E-03_JPRB,.408E-03_JPRB,.420E-03_JPRB,.457E-03_JPRB,&
+&.472E-03_JPRB,.479E-03_JPRB,.461E-03_JPRB,.446E-03_JPRB,.437E-03_JPRB,.432E-03_JPRB,.427E-03_JPRB,&
+&.426E-03_JPRB,.430E-03_JPRB,.462E-03_JPRB,.489E-03_JPRB,.530E-03_JPRB,.580E-03_JPRB,.617E-03_JPRB,&
+&.666E-03_JPRB,.679E-03_JPRB,.675E-03_JPRB,.667E-03_JPRB,.660E-03_JPRB,.648E-03_JPRB,.635E-03_JPRB,&
+&.626E-03_JPRB,.614E-03_JPRB,.604E-03_JPRB,.606E-03_JPRB,.610E-03_JPRB,.610E-03_JPRB,.594E-03_JPRB,&
+&.577E-03_JPRB,.563E-03_JPRB,.544E-03_JPRB,.528E-03_JPRB,.525E-03_JPRB,.535E-03_JPRB,.583E-03_JPRB,&
+&.622E-03_JPRB,.679E-03_JPRB,.758E-03_JPRB,.782E-03_JPRB,.796E-03_JPRB,.687E-03_JPRB,.615E-03_JPRB,&
+&.537E-03_JPRB,.480E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 11  50.0
+ZAER (:,11, 8) = (/&
+&.539E-03_JPRB,.538E-03_JPRB,.496E-03_JPRB,.486E-03_JPRB,.478E-03_JPRB,.471E-03_JPRB,.458E-03_JPRB,&
+&.447E-03_JPRB,.430E-03_JPRB,.426E-03_JPRB,.423E-03_JPRB,.417E-03_JPRB,.420E-03_JPRB,.416E-03_JPRB,&
+&.401E-03_JPRB,.391E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.400E-03_JPRB,.408E-03_JPRB,.419E-03_JPRB,&
+&.433E-03_JPRB,.442E-03_JPRB,.451E-03_JPRB,.459E-03_JPRB,.480E-03_JPRB,.504E-03_JPRB,.575E-03_JPRB,&
+&.609E-03_JPRB,.634E-03_JPRB,.635E-03_JPRB,.629E-03_JPRB,.621E-03_JPRB,.597E-03_JPRB,.577E-03_JPRB,&
+&.563E-03_JPRB,.545E-03_JPRB,.571E-03_JPRB,.597E-03_JPRB,.641E-03_JPRB,.690E-03_JPRB,.727E-03_JPRB,&
+&.776E-03_JPRB,.827E-03_JPRB,.865E-03_JPRB,.909E-03_JPRB,.882E-03_JPRB,.831E-03_JPRB,.776E-03_JPRB,&
+&.717E-03_JPRB,.687E-03_JPRB,.661E-03_JPRB,.655E-03_JPRB,.660E-03_JPRB,.663E-03_JPRB,.662E-03_JPRB,&
+&.653E-03_JPRB,.644E-03_JPRB,.623E-03_JPRB,.612E-03_JPRB,.616E-03_JPRB,.637E-03_JPRB,.679E-03_JPRB,&
+&.707E-03_JPRB,.743E-03_JPRB,.840E-03_JPRB,.881E-03_JPRB,.921E-03_JPRB,.809E-03_JPRB,.722E-03_JPRB,&
+&.624E-03_JPRB,.541E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 12  46.0
+ZAER (:,12, 8) = (/&
+&.612E-03_JPRB,.610E-03_JPRB,.550E-03_JPRB,.532E-03_JPRB,.516E-03_JPRB,.508E-03_JPRB,.492E-03_JPRB,&
+&.479E-03_JPRB,.465E-03_JPRB,.470E-03_JPRB,.473E-03_JPRB,.476E-03_JPRB,.489E-03_JPRB,.495E-03_JPRB,&
+&.499E-03_JPRB,.492E-03_JPRB,.490E-03_JPRB,.488E-03_JPRB,.495E-03_JPRB,.502E-03_JPRB,.509E-03_JPRB,&
+&.522E-03_JPRB,.532E-03_JPRB,.542E-03_JPRB,.563E-03_JPRB,.605E-03_JPRB,.650E-03_JPRB,.782E-03_JPRB,&
+&.861E-03_JPRB,.923E-03_JPRB,.959E-03_JPRB,.947E-03_JPRB,.931E-03_JPRB,.889E-03_JPRB,.842E-03_JPRB,&
+&.820E-03_JPRB,.815E-03_JPRB,.826E-03_JPRB,.836E-03_JPRB,.851E-03_JPRB,.892E-03_JPRB,.952E-03_JPRB,&
+&.104E-02_JPRB,.124E-02_JPRB,.136E-02_JPRB,.149E-02_JPRB,.138E-02_JPRB,.128E-02_JPRB,.118E-02_JPRB,&
+&.992E-03_JPRB,.919E-03_JPRB,.853E-03_JPRB,.797E-03_JPRB,.776E-03_JPRB,.761E-03_JPRB,.752E-03_JPRB,&
+&.740E-03_JPRB,.728E-03_JPRB,.700E-03_JPRB,.697E-03_JPRB,.712E-03_JPRB,.761E-03_JPRB,.871E-03_JPRB,&
+&.927E-03_JPRB,.983E-03_JPRB,.982E-03_JPRB,.992E-03_JPRB,.101E-02_JPRB,.940E-03_JPRB,.851E-03_JPRB,&
+&.748E-03_JPRB,.616E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 13  42.0
+ZAER (:,13, 8) = (/&
+&.777E-03_JPRB,.775E-03_JPRB,.698E-03_JPRB,.664E-03_JPRB,.634E-03_JPRB,.601E-03_JPRB,.573E-03_JPRB,&
+&.555E-03_JPRB,.555E-03_JPRB,.567E-03_JPRB,.575E-03_JPRB,.581E-03_JPRB,.598E-03_JPRB,.612E-03_JPRB,&
+&.634E-03_JPRB,.636E-03_JPRB,.638E-03_JPRB,.643E-03_JPRB,.645E-03_JPRB,.642E-03_JPRB,.638E-03_JPRB,&
+&.657E-03_JPRB,.675E-03_JPRB,.694E-03_JPRB,.821E-03_JPRB,.960E-03_JPRB,.110E-02_JPRB,.125E-02_JPRB,&
+&.127E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,&
+&.121E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.132E-02_JPRB,.149E-02_JPRB,&
+&.176E-02_JPRB,.221E-02_JPRB,.233E-02_JPRB,.243E-02_JPRB,.216E-02_JPRB,.200E-02_JPRB,.185E-02_JPRB,&
+&.147E-02_JPRB,.136E-02_JPRB,.124E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,.954E-03_JPRB,.906E-03_JPRB,&
+&.879E-03_JPRB,.859E-03_JPRB,.830E-03_JPRB,.829E-03_JPRB,.856E-03_JPRB,.934E-03_JPRB,.118E-02_JPRB,&
+&.132E-02_JPRB,.148E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.122E-02_JPRB,.110E-02_JPRB,&
+&.951E-03_JPRB,.782E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 14  38.0
+ZAER (:,14, 8) = (/&
+&.118E-02_JPRB,.117E-02_JPRB,.986E-03_JPRB,.920E-03_JPRB,.863E-03_JPRB,.805E-03_JPRB,.772E-03_JPRB,&
+&.750E-03_JPRB,.741E-03_JPRB,.752E-03_JPRB,.760E-03_JPRB,.776E-03_JPRB,.774E-03_JPRB,.784E-03_JPRB,&
+&.811E-03_JPRB,.809E-03_JPRB,.810E-03_JPRB,.814E-03_JPRB,.803E-03_JPRB,.794E-03_JPRB,.784E-03_JPRB,&
+&.865E-03_JPRB,.931E-03_JPRB,.100E-02_JPRB,.141E-02_JPRB,.179E-02_JPRB,.213E-02_JPRB,.201E-02_JPRB,&
+&.183E-02_JPRB,.170E-02_JPRB,.166E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,&
+&.162E-02_JPRB,.162E-02_JPRB,.166E-02_JPRB,.173E-02_JPRB,.189E-02_JPRB,.236E-02_JPRB,.278E-02_JPRB,&
+&.335E-02_JPRB,.395E-02_JPRB,.390E-02_JPRB,.371E-02_JPRB,.309E-02_JPRB,.279E-02_JPRB,.250E-02_JPRB,&
+&.200E-02_JPRB,.188E-02_JPRB,.175E-02_JPRB,.149E-02_JPRB,.135E-02_JPRB,.125E-02_JPRB,.114E-02_JPRB,&
+&.111E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.115E-02_JPRB,.130E-02_JPRB,.175E-02_JPRB,&
+&.202E-02_JPRB,.232E-02_JPRB,.211E-02_JPRB,.203E-02_JPRB,.194E-02_JPRB,.170E-02_JPRB,.154E-02_JPRB,&
+&.136E-02_JPRB,.119E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 15  34.0
+ZAER (:,15, 8) = (/&
+&.172E-02_JPRB,.171E-02_JPRB,.142E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.113E-02_JPRB,&
+&.108E-02_JPRB,.999E-03_JPRB,.970E-03_JPRB,.960E-03_JPRB,.972E-03_JPRB,.956E-03_JPRB,.960E-03_JPRB,&
+&.983E-03_JPRB,.968E-03_JPRB,.960E-03_JPRB,.953E-03_JPRB,.922E-03_JPRB,.919E-03_JPRB,.922E-03_JPRB,&
+&.119E-02_JPRB,.142E-02_JPRB,.166E-02_JPRB,.282E-02_JPRB,.358E-02_JPRB,.423E-02_JPRB,.353E-02_JPRB,&
+&.299E-02_JPRB,.259E-02_JPRB,.243E-02_JPRB,.224E-02_JPRB,.213E-02_JPRB,.206E-02_JPRB,.207E-02_JPRB,&
+&.207E-02_JPRB,.206E-02_JPRB,.229E-02_JPRB,.261E-02_JPRB,.320E-02_JPRB,.432E-02_JPRB,.496E-02_JPRB,&
+&.570E-02_JPRB,.602E-02_JPRB,.560E-02_JPRB,.495E-02_JPRB,.380E-02_JPRB,.333E-02_JPRB,.287E-02_JPRB,&
+&.237E-02_JPRB,.228E-02_JPRB,.219E-02_JPRB,.196E-02_JPRB,.176E-02_JPRB,.160E-02_JPRB,.142E-02_JPRB,&
+&.136E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.142E-02_JPRB,.160E-02_JPRB,.204E-02_JPRB,.295E-02_JPRB,&
+&.342E-02_JPRB,.390E-02_JPRB,.365E-02_JPRB,.337E-02_JPRB,.299E-02_JPRB,.233E-02_JPRB,.209E-02_JPRB,&
+&.188E-02_JPRB,.173E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 16  30.0
+ZAER (:,16, 8) = (/&
+&.200E-02_JPRB,.199E-02_JPRB,.176E-02_JPRB,.164E-02_JPRB,.155E-02_JPRB,.158E-02_JPRB,.148E-02_JPRB,&
+&.139E-02_JPRB,.122E-02_JPRB,.113E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.107E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.998E-03_JPRB,.976E-03_JPRB,.101E-02_JPRB,.107E-02_JPRB,&
+&.165E-02_JPRB,.212E-02_JPRB,.263E-02_JPRB,.554E-02_JPRB,.704E-02_JPRB,.828E-02_JPRB,.627E-02_JPRB,&
+&.517E-02_JPRB,.432E-02_JPRB,.385E-02_JPRB,.323E-02_JPRB,.281E-02_JPRB,.242E-02_JPRB,.242E-02_JPRB,&
+&.243E-02_JPRB,.249E-02_JPRB,.319E-02_JPRB,.405E-02_JPRB,.561E-02_JPRB,.759E-02_JPRB,.832E-02_JPRB,&
+&.888E-02_JPRB,.833E-02_JPRB,.725E-02_JPRB,.585E-02_JPRB,.402E-02_JPRB,.345E-02_JPRB,.294E-02_JPRB,&
+&.250E-02_JPRB,.245E-02_JPRB,.240E-02_JPRB,.234E-02_JPRB,.211E-02_JPRB,.192E-02_JPRB,.168E-02_JPRB,&
+&.158E-02_JPRB,.155E-02_JPRB,.160E-02_JPRB,.185E-02_JPRB,.234E-02_JPRB,.350E-02_JPRB,.522E-02_JPRB,&
+&.602E-02_JPRB,.673E-02_JPRB,.579E-02_JPRB,.501E-02_JPRB,.401E-02_JPRB,.293E-02_JPRB,.256E-02_JPRB,&
+&.222E-02_JPRB,.201E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 17  26.0
+ZAER (:,17, 8) = (/&
+&.187E-02_JPRB,.187E-02_JPRB,.177E-02_JPRB,.169E-02_JPRB,.164E-02_JPRB,.171E-02_JPRB,.161E-02_JPRB,&
+&.151E-02_JPRB,.129E-02_JPRB,.118E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,&
+&.110E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,.988E-03_JPRB,.104E-02_JPRB,.119E-02_JPRB,.140E-02_JPRB,&
+&.246E-02_JPRB,.339E-02_JPRB,.440E-02_JPRB,.108E-01_JPRB,.132E-01_JPRB,.151E-01_JPRB,.100E-01_JPRB,&
+&.796E-02_JPRB,.633E-02_JPRB,.506E-02_JPRB,.394E-02_JPRB,.317E-02_JPRB,.247E-02_JPRB,.249E-02_JPRB,&
+&.260E-02_JPRB,.294E-02_JPRB,.440E-02_JPRB,.613E-02_JPRB,.918E-02_JPRB,.123E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.108E-01_JPRB,.875E-02_JPRB,.628E-02_JPRB,.380E-02_JPRB,.324E-02_JPRB,.278E-02_JPRB,&
+&.245E-02_JPRB,.242E-02_JPRB,.241E-02_JPRB,.250E-02_JPRB,.228E-02_JPRB,.210E-02_JPRB,.184E-02_JPRB,&
+&.174E-02_JPRB,.173E-02_JPRB,.192E-02_JPRB,.258E-02_JPRB,.358E-02_JPRB,.579E-02_JPRB,.895E-02_JPRB,&
+&.101E-01_JPRB,.107E-01_JPRB,.788E-02_JPRB,.627E-02_JPRB,.447E-02_JPRB,.314E-02_JPRB,.264E-02_JPRB,&
+&.218E-02_JPRB,.188E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 18  22.0
+ZAER (:,18, 8) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,.155E-02_JPRB,.149E-02_JPRB,&
+&.142E-02_JPRB,.121E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,&
+&.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.144E-02_JPRB,.185E-02_JPRB,.241E-02_JPRB,&
+&.444E-02_JPRB,.628E-02_JPRB,.827E-02_JPRB,.187E-01_JPRB,.211E-01_JPRB,.228E-01_JPRB,.135E-01_JPRB,&
+&.103E-01_JPRB,.763E-02_JPRB,.512E-02_JPRB,.387E-02_JPRB,.303E-02_JPRB,.238E-02_JPRB,.251E-02_JPRB,&
+&.283E-02_JPRB,.369E-02_JPRB,.622E-02_JPRB,.891E-02_JPRB,.135E-01_JPRB,.169E-01_JPRB,.170E-01_JPRB,&
+&.161E-01_JPRB,.121E-01_JPRB,.941E-02_JPRB,.632E-02_JPRB,.348E-02_JPRB,.293E-02_JPRB,.250E-02_JPRB,&
+&.230E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.241E-02_JPRB,.225E-02_JPRB,.210E-02_JPRB,.186E-02_JPRB,&
+&.184E-02_JPRB,.193E-02_JPRB,.236E-02_JPRB,.371E-02_JPRB,.540E-02_JPRB,.886E-02_JPRB,.134E-01_JPRB,&
+&.144E-01_JPRB,.140E-01_JPRB,.877E-02_JPRB,.643E-02_JPRB,.415E-02_JPRB,.281E-02_JPRB,.231E-02_JPRB,&
+&.185E-02_JPRB,.158E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 19  18.0
+ZAER (:,19, 8) = (/&
+&.128E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.123E-02_JPRB,&
+&.119E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.114E-02_JPRB,.122E-02_JPRB,&
+&.137E-02_JPRB,.153E-02_JPRB,.165E-02_JPRB,.182E-02_JPRB,.261E-02_JPRB,.345E-02_JPRB,.455E-02_JPRB,&
+&.815E-02_JPRB,.112E-01_JPRB,.144E-01_JPRB,.262E-01_JPRB,.272E-01_JPRB,.274E-01_JPRB,.154E-01_JPRB,&
+&.111E-01_JPRB,.767E-02_JPRB,.441E-02_JPRB,.343E-02_JPRB,.282E-02_JPRB,.251E-02_JPRB,.288E-02_JPRB,&
+&.349E-02_JPRB,.500E-02_JPRB,.899E-02_JPRB,.123E-01_JPRB,.174E-01_JPRB,.194E-01_JPRB,.187E-01_JPRB,&
+&.166E-01_JPRB,.115E-01_JPRB,.888E-02_JPRB,.611E-02_JPRB,.333E-02_JPRB,.274E-02_JPRB,.225E-02_JPRB,&
+&.215E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.220E-02_JPRB,.211E-02_JPRB,.203E-02_JPRB,.187E-02_JPRB,&
+&.198E-02_JPRB,.220E-02_JPRB,.291E-02_JPRB,.504E-02_JPRB,.740E-02_JPRB,.119E-01_JPRB,.159E-01_JPRB,&
+&.160E-01_JPRB,.138E-01_JPRB,.763E-02_JPRB,.529E-02_JPRB,.326E-02_JPRB,.220E-02_JPRB,.183E-02_JPRB,&
+&.148E-02_JPRB,.129E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 20  14.0
+ZAER (:,20, 8) = (/&
+&.101E-02_JPRB,.101E-02_JPRB,.968E-03_JPRB,.976E-03_JPRB,.981E-03_JPRB,.980E-03_JPRB,.982E-03_JPRB,&
+&.986E-03_JPRB,.993E-03_JPRB,.101E-02_JPRB,.104E-02_JPRB,.110E-02_JPRB,.130E-02_JPRB,.148E-02_JPRB,&
+&.179E-02_JPRB,.225E-02_JPRB,.266E-02_JPRB,.325E-02_JPRB,.472E-02_JPRB,.598E-02_JPRB,.755E-02_JPRB,&
+&.123E-01_JPRB,.160E-01_JPRB,.200E-01_JPRB,.300E-01_JPRB,.293E-01_JPRB,.280E-01_JPRB,.149E-01_JPRB,&
+&.103E-01_JPRB,.656E-02_JPRB,.371E-02_JPRB,.315E-02_JPRB,.286E-02_JPRB,.295E-02_JPRB,.362E-02_JPRB,&
+&.459E-02_JPRB,.683E-02_JPRB,.125E-01_JPRB,.160E-01_JPRB,.202E-01_JPRB,.200E-01_JPRB,.185E-01_JPRB,&
+&.157E-01_JPRB,.105E-01_JPRB,.807E-02_JPRB,.569E-02_JPRB,.325E-02_JPRB,.269E-02_JPRB,.222E-02_JPRB,&
+&.213E-02_JPRB,.210E-02_JPRB,.207E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,&
+&.228E-02_JPRB,.264E-02_JPRB,.355E-02_JPRB,.605E-02_JPRB,.853E-02_JPRB,.130E-01_JPRB,.143E-01_JPRB,&
+&.131E-01_JPRB,.987E-02_JPRB,.535E-02_JPRB,.373E-02_JPRB,.240E-02_JPRB,.163E-02_JPRB,.138E-02_JPRB,&
+&.115E-02_JPRB,.102E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 21  10.0
+ZAER (:,21, 8) = (/&
+&.772E-03_JPRB,.771E-03_JPRB,.742E-03_JPRB,.760E-03_JPRB,.779E-03_JPRB,.826E-03_JPRB,.862E-03_JPRB,&
+&.895E-03_JPRB,.959E-03_JPRB,.100E-02_JPRB,.107E-02_JPRB,.122E-02_JPRB,.153E-02_JPRB,.185E-02_JPRB,&
+&.242E-02_JPRB,.320E-02_JPRB,.397E-02_JPRB,.511E-02_JPRB,.727E-02_JPRB,.868E-02_JPRB,.103E-01_JPRB,&
+&.146E-01_JPRB,.183E-01_JPRB,.223E-01_JPRB,.298E-01_JPRB,.283E-01_JPRB,.262E-01_JPRB,.130E-01_JPRB,&
+&.859E-02_JPRB,.516E-02_JPRB,.313E-02_JPRB,.299E-02_JPRB,.302E-02_JPRB,.349E-02_JPRB,.438E-02_JPRB,&
+&.569E-02_JPRB,.874E-02_JPRB,.159E-01_JPRB,.194E-01_JPRB,.225E-01_JPRB,.210E-01_JPRB,.187E-01_JPRB,&
+&.153E-01_JPRB,.102E-01_JPRB,.773E-02_JPRB,.527E-02_JPRB,.322E-02_JPRB,.276E-02_JPRB,.239E-02_JPRB,&
+&.224E-02_JPRB,.218E-02_JPRB,.212E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.222E-02_JPRB,&
+&.277E-02_JPRB,.328E-02_JPRB,.426E-02_JPRB,.634E-02_JPRB,.808E-02_JPRB,.108E-01_JPRB,.986E-02_JPRB,&
+&.840E-02_JPRB,.583E-02_JPRB,.362E-02_JPRB,.271E-02_JPRB,.188E-02_JPRB,.128E-02_JPRB,.107E-02_JPRB,&
+&.872E-03_JPRB,.775E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 22   6.0
+ZAER (:,22, 8) = (/&
+&.594E-03_JPRB,.594E-03_JPRB,.601E-03_JPRB,.643E-03_JPRB,.683E-03_JPRB,.758E-03_JPRB,.808E-03_JPRB,&
+&.857E-03_JPRB,.957E-03_JPRB,.103E-02_JPRB,.111E-02_JPRB,.131E-02_JPRB,.168E-02_JPRB,.209E-02_JPRB,&
+&.282E-02_JPRB,.394E-02_JPRB,.503E-02_JPRB,.666E-02_JPRB,.902E-02_JPRB,.106E-01_JPRB,.125E-01_JPRB,&
+&.160E-01_JPRB,.188E-01_JPRB,.219E-01_JPRB,.263E-01_JPRB,.242E-01_JPRB,.216E-01_JPRB,.107E-01_JPRB,&
+&.703E-02_JPRB,.423E-02_JPRB,.280E-02_JPRB,.289E-02_JPRB,.307E-02_JPRB,.373E-02_JPRB,.478E-02_JPRB,&
+&.632E-02_JPRB,.988E-02_JPRB,.170E-01_JPRB,.205E-01_JPRB,.234E-01_JPRB,.211E-01_JPRB,.187E-01_JPRB,&
+&.150E-01_JPRB,.100E-01_JPRB,.762E-02_JPRB,.518E-02_JPRB,.337E-02_JPRB,.296E-02_JPRB,.263E-02_JPRB,&
+&.232E-02_JPRB,.221E-02_JPRB,.212E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.208E-02_JPRB,.250E-02_JPRB,&
+&.326E-02_JPRB,.386E-02_JPRB,.477E-02_JPRB,.612E-02_JPRB,.687E-02_JPRB,.758E-02_JPRB,.631E-02_JPRB,&
+&.526E-02_JPRB,.374E-02_JPRB,.265E-02_JPRB,.210E-02_JPRB,.153E-02_JPRB,.102E-02_JPRB,.836E-03_JPRB,&
+&.662E-03_JPRB,.596E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 23   2.0
+ZAER (:,23, 8) = (/&
+&.500E-03_JPRB,.501E-03_JPRB,.508E-03_JPRB,.562E-03_JPRB,.613E-03_JPRB,.705E-03_JPRB,.780E-03_JPRB,&
+&.848E-03_JPRB,.967E-03_JPRB,.106E-02_JPRB,.116E-02_JPRB,.135E-02_JPRB,.172E-02_JPRB,.212E-02_JPRB,&
+&.284E-02_JPRB,.427E-02_JPRB,.546E-02_JPRB,.712E-02_JPRB,.931E-02_JPRB,.115E-01_JPRB,.143E-01_JPRB,&
+&.178E-01_JPRB,.190E-01_JPRB,.201E-01_JPRB,.211E-01_JPRB,.187E-01_JPRB,.162E-01_JPRB,.841E-02_JPRB,&
+&.564E-02_JPRB,.352E-02_JPRB,.246E-02_JPRB,.266E-02_JPRB,.290E-02_JPRB,.355E-02_JPRB,.464E-02_JPRB,&
+&.604E-02_JPRB,.911E-02_JPRB,.142E-01_JPRB,.170E-01_JPRB,.197E-01_JPRB,.185E-01_JPRB,.169E-01_JPRB,&
+&.143E-01_JPRB,.978E-02_JPRB,.755E-02_JPRB,.524E-02_JPRB,.365E-02_JPRB,.322E-02_JPRB,.284E-02_JPRB,&
+&.231E-02_JPRB,.218E-02_JPRB,.206E-02_JPRB,.199E-02_JPRB,.198E-02_JPRB,.206E-02_JPRB,.264E-02_JPRB,&
+&.336E-02_JPRB,.395E-02_JPRB,.490E-02_JPRB,.563E-02_JPRB,.583E-02_JPRB,.558E-02_JPRB,.448E-02_JPRB,&
+&.367E-02_JPRB,.259E-02_JPRB,.201E-02_JPRB,.168E-02_JPRB,.130E-02_JPRB,.858E-03_JPRB,.699E-03_JPRB,&
+&.552E-03_JPRB,.502E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 24  -2.0
+ZAER (:,24, 8) = (/&
+&.454E-03_JPRB,.454E-03_JPRB,.454E-03_JPRB,.499E-03_JPRB,.545E-03_JPRB,.645E-03_JPRB,.747E-03_JPRB,&
+&.832E-03_JPRB,.959E-03_JPRB,.108E-02_JPRB,.118E-02_JPRB,.137E-02_JPRB,.174E-02_JPRB,.211E-02_JPRB,&
+&.273E-02_JPRB,.413E-02_JPRB,.511E-02_JPRB,.638E-02_JPRB,.787E-02_JPRB,.100E-01_JPRB,.129E-01_JPRB,&
+&.160E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,.141E-01_JPRB,.120E-01_JPRB,.978E-02_JPRB,.532E-02_JPRB,&
+&.377E-02_JPRB,.259E-02_JPRB,.206E-02_JPRB,.233E-02_JPRB,.262E-02_JPRB,.327E-02_JPRB,.425E-02_JPRB,&
+&.536E-02_JPRB,.762E-02_JPRB,.102E-01_JPRB,.118E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,&
+&.123E-01_JPRB,.889E-02_JPRB,.716E-02_JPRB,.535E-02_JPRB,.395E-02_JPRB,.352E-02_JPRB,.313E-02_JPRB,&
+&.249E-02_JPRB,.231E-02_JPRB,.215E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.201E-02_JPRB,.241E-02_JPRB,&
+&.301E-02_JPRB,.351E-02_JPRB,.432E-02_JPRB,.478E-02_JPRB,.479E-02_JPRB,.431E-02_JPRB,.341E-02_JPRB,&
+&.282E-02_JPRB,.208E-02_JPRB,.158E-02_JPRB,.134E-02_JPRB,.108E-02_JPRB,.768E-03_JPRB,.644E-03_JPRB,&
+&.524E-03_JPRB,.456E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 25  -6.0
+ZAER (:,25, 8) = (/&
+&.442E-03_JPRB,.442E-03_JPRB,.457E-03_JPRB,.496E-03_JPRB,.536E-03_JPRB,.620E-03_JPRB,.717E-03_JPRB,&
+&.799E-03_JPRB,.928E-03_JPRB,.103E-02_JPRB,.112E-02_JPRB,.129E-02_JPRB,.157E-02_JPRB,.186E-02_JPRB,&
+&.238E-02_JPRB,.341E-02_JPRB,.406E-02_JPRB,.484E-02_JPRB,.555E-02_JPRB,.678E-02_JPRB,.848E-02_JPRB,&
+&.103E-01_JPRB,.984E-02_JPRB,.909E-02_JPRB,.731E-02_JPRB,.604E-02_JPRB,.479E-02_JPRB,.291E-02_JPRB,&
+&.230E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.216E-02_JPRB,.245E-02_JPRB,.306E-02_JPRB,.387E-02_JPRB,&
+&.470E-02_JPRB,.633E-02_JPRB,.781E-02_JPRB,.843E-02_JPRB,.881E-02_JPRB,.969E-02_JPRB,.955E-02_JPRB,&
+&.896E-02_JPRB,.717E-02_JPRB,.614E-02_JPRB,.503E-02_JPRB,.402E-02_JPRB,.369E-02_JPRB,.338E-02_JPRB,&
+&.290E-02_JPRB,.271E-02_JPRB,.253E-02_JPRB,.232E-02_JPRB,.218E-02_JPRB,.211E-02_JPRB,.217E-02_JPRB,&
+&.252E-02_JPRB,.283E-02_JPRB,.340E-02_JPRB,.368E-02_JPRB,.369E-02_JPRB,.338E-02_JPRB,.274E-02_JPRB,&
+&.231E-02_JPRB,.176E-02_JPRB,.128E-02_JPRB,.107E-02_JPRB,.872E-03_JPRB,.680E-03_JPRB,.597E-03_JPRB,&
+&.517E-03_JPRB,.444E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 26 -10.0
+ZAER (:,26, 8) = (/&
+&.453E-03_JPRB,.455E-03_JPRB,.496E-03_JPRB,.536E-03_JPRB,.574E-03_JPRB,.643E-03_JPRB,.719E-03_JPRB,&
+&.784E-03_JPRB,.885E-03_JPRB,.967E-03_JPRB,.103E-02_JPRB,.114E-02_JPRB,.129E-02_JPRB,.146E-02_JPRB,&
+&.177E-02_JPRB,.244E-02_JPRB,.284E-02_JPRB,.331E-02_JPRB,.362E-02_JPRB,.425E-02_JPRB,.514E-02_JPRB,&
+&.586E-02_JPRB,.521E-02_JPRB,.439E-02_JPRB,.324E-02_JPRB,.282E-02_JPRB,.241E-02_JPRB,.182E-02_JPRB,&
+&.166E-02_JPRB,.158E-02_JPRB,.186E-02_JPRB,.213E-02_JPRB,.238E-02_JPRB,.286E-02_JPRB,.337E-02_JPRB,&
+&.389E-02_JPRB,.488E-02_JPRB,.585E-02_JPRB,.607E-02_JPRB,.591E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,&
+&.610E-02_JPRB,.531E-02_JPRB,.483E-02_JPRB,.431E-02_JPRB,.392E-02_JPRB,.376E-02_JPRB,.361E-02_JPRB,&
+&.331E-02_JPRB,.328E-02_JPRB,.324E-02_JPRB,.307E-02_JPRB,.281E-02_JPRB,.261E-02_JPRB,.240E-02_JPRB,&
+&.245E-02_JPRB,.254E-02_JPRB,.279E-02_JPRB,.292E-02_JPRB,.290E-02_JPRB,.272E-02_JPRB,.227E-02_JPRB,&
+&.196E-02_JPRB,.156E-02_JPRB,.117E-02_JPRB,.984E-03_JPRB,.790E-03_JPRB,.652E-03_JPRB,.589E-03_JPRB,&
+&.526E-03_JPRB,.456E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 27 -14.0
+ZAER (:,27, 8) = (/&
+&.520E-03_JPRB,.521E-03_JPRB,.558E-03_JPRB,.603E-03_JPRB,.646E-03_JPRB,.717E-03_JPRB,.774E-03_JPRB,&
+&.821E-03_JPRB,.893E-03_JPRB,.948E-03_JPRB,.990E-03_JPRB,.105E-02_JPRB,.114E-02_JPRB,.123E-02_JPRB,&
+&.137E-02_JPRB,.175E-02_JPRB,.200E-02_JPRB,.231E-02_JPRB,.248E-02_JPRB,.279E-02_JPRB,.321E-02_JPRB,&
+&.335E-02_JPRB,.287E-02_JPRB,.228E-02_JPRB,.177E-02_JPRB,.167E-02_JPRB,.159E-02_JPRB,.148E-02_JPRB,&
+&.152E-02_JPRB,.159E-02_JPRB,.192E-02_JPRB,.214E-02_JPRB,.232E-02_JPRB,.263E-02_JPRB,.291E-02_JPRB,&
+&.320E-02_JPRB,.378E-02_JPRB,.451E-02_JPRB,.469E-02_JPRB,.457E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,&
+&.451E-02_JPRB,.421E-02_JPRB,.402E-02_JPRB,.381E-02_JPRB,.393E-02_JPRB,.395E-02_JPRB,.397E-02_JPRB,&
+&.392E-02_JPRB,.405E-02_JPRB,.417E-02_JPRB,.420E-02_JPRB,.396E-02_JPRB,.375E-02_JPRB,.341E-02_JPRB,&
+&.341E-02_JPRB,.341E-02_JPRB,.340E-02_JPRB,.326E-02_JPRB,.310E-02_JPRB,.276E-02_JPRB,.222E-02_JPRB,&
+&.192E-02_JPRB,.159E-02_JPRB,.126E-02_JPRB,.108E-02_JPRB,.870E-03_JPRB,.750E-03_JPRB,.682E-03_JPRB,&
+&.610E-03_JPRB,.523E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 28 -18.0
+ZAER (:,28, 8) = (/&
+&.687E-03_JPRB,.687E-03_JPRB,.676E-03_JPRB,.716E-03_JPRB,.753E-03_JPRB,.812E-03_JPRB,.850E-03_JPRB,&
+&.882E-03_JPRB,.932E-03_JPRB,.980E-03_JPRB,.102E-02_JPRB,.111E-02_JPRB,.117E-02_JPRB,.122E-02_JPRB,&
+&.127E-02_JPRB,.145E-02_JPRB,.159E-02_JPRB,.179E-02_JPRB,.194E-02_JPRB,.206E-02_JPRB,.222E-02_JPRB,&
+&.220E-02_JPRB,.191E-02_JPRB,.156E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,&
+&.153E-02_JPRB,.165E-02_JPRB,.193E-02_JPRB,.212E-02_JPRB,.228E-02_JPRB,.255E-02_JPRB,.274E-02_JPRB,&
+&.293E-02_JPRB,.331E-02_JPRB,.386E-02_JPRB,.407E-02_JPRB,.415E-02_JPRB,.422E-02_JPRB,.426E-02_JPRB,&
+&.430E-02_JPRB,.403E-02_JPRB,.392E-02_JPRB,.382E-02_JPRB,.425E-02_JPRB,.441E-02_JPRB,.455E-02_JPRB,&
+&.456E-02_JPRB,.480E-02_JPRB,.502E-02_JPRB,.533E-02_JPRB,.524E-02_JPRB,.519E-02_JPRB,.521E-02_JPRB,&
+&.581E-02_JPRB,.617E-02_JPRB,.640E-02_JPRB,.549E-02_JPRB,.474E-02_JPRB,.357E-02_JPRB,.272E-02_JPRB,&
+&.232E-02_JPRB,.198E-02_JPRB,.160E-02_JPRB,.137E-02_JPRB,.110E-02_JPRB,.941E-03_JPRB,.858E-03_JPRB,&
+&.773E-03_JPRB,.690E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 29 -22.0
+ZAER (:,29, 8) = (/&
+&.912E-03_JPRB,.909E-03_JPRB,.821E-03_JPRB,.835E-03_JPRB,.849E-03_JPRB,.887E-03_JPRB,.904E-03_JPRB,&
+&.920E-03_JPRB,.949E-03_JPRB,.100E-02_JPRB,.107E-02_JPRB,.122E-02_JPRB,.132E-02_JPRB,.135E-02_JPRB,&
+&.135E-02_JPRB,.138E-02_JPRB,.145E-02_JPRB,.157E-02_JPRB,.171E-02_JPRB,.181E-02_JPRB,.194E-02_JPRB,&
+&.180E-02_JPRB,.160E-02_JPRB,.138E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.133E-02_JPRB,.140E-02_JPRB,&
+&.151E-02_JPRB,.162E-02_JPRB,.183E-02_JPRB,.204E-02_JPRB,.221E-02_JPRB,.253E-02_JPRB,.269E-02_JPRB,&
+&.285E-02_JPRB,.314E-02_JPRB,.351E-02_JPRB,.376E-02_JPRB,.408E-02_JPRB,.464E-02_JPRB,.489E-02_JPRB,&
+&.512E-02_JPRB,.468E-02_JPRB,.447E-02_JPRB,.427E-02_JPRB,.474E-02_JPRB,.493E-02_JPRB,.510E-02_JPRB,&
+&.519E-02_JPRB,.540E-02_JPRB,.559E-02_JPRB,.565E-02_JPRB,.557E-02_JPRB,.570E-02_JPRB,.684E-02_JPRB,&
+&.894E-02_JPRB,.103E-01_JPRB,.113E-01_JPRB,.965E-02_JPRB,.805E-02_JPRB,.524E-02_JPRB,.369E-02_JPRB,&
+&.305E-02_JPRB,.259E-02_JPRB,.206E-02_JPRB,.175E-02_JPRB,.139E-02_JPRB,.114E-02_JPRB,.106E-02_JPRB,&
+&.984E-03_JPRB,.914E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 30 -26.0
+ZAER (:,30, 8) = (/&
+&.113E-02_JPRB,.112E-02_JPRB,.940E-03_JPRB,.913E-03_JPRB,.895E-03_JPRB,.929E-03_JPRB,.945E-03_JPRB,&
+&.957E-03_JPRB,.965E-03_JPRB,.101E-02_JPRB,.109E-02_JPRB,.130E-02_JPRB,.151E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.148E-02_JPRB,.152E-02_JPRB,.165E-02_JPRB,.179E-02_JPRB,.188E-02_JPRB,.199E-02_JPRB,&
+&.176E-02_JPRB,.158E-02_JPRB,.139E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.133E-02_JPRB,&
+&.141E-02_JPRB,.150E-02_JPRB,.167E-02_JPRB,.186E-02_JPRB,.205E-02_JPRB,.241E-02_JPRB,.262E-02_JPRB,&
+&.278E-02_JPRB,.300E-02_JPRB,.336E-02_JPRB,.374E-02_JPRB,.437E-02_JPRB,.537E-02_JPRB,.587E-02_JPRB,&
+&.641E-02_JPRB,.590E-02_JPRB,.547E-02_JPRB,.497E-02_JPRB,.519E-02_JPRB,.537E-02_JPRB,.556E-02_JPRB,&
+&.586E-02_JPRB,.579E-02_JPRB,.568E-02_JPRB,.491E-02_JPRB,.471E-02_JPRB,.492E-02_JPRB,.721E-02_JPRB,&
+&.111E-01_JPRB,.137E-01_JPRB,.161E-01_JPRB,.146E-01_JPRB,.125E-01_JPRB,.811E-02_JPRB,.522E-02_JPRB,&
+&.406E-02_JPRB,.326E-02_JPRB,.244E-02_JPRB,.204E-02_JPRB,.163E-02_JPRB,.131E-02_JPRB,.125E-02_JPRB,&
+&.121E-02_JPRB,.113E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 31 -30.0
+ZAER (:,31, 8) = (/&
+&.133E-02_JPRB,.132E-02_JPRB,.106E-02_JPRB,.991E-03_JPRB,.939E-03_JPRB,.970E-03_JPRB,.101E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.106E-02_JPRB,.113E-02_JPRB,.137E-02_JPRB,.168E-02_JPRB,.179E-02_JPRB,&
+&.181E-02_JPRB,.164E-02_JPRB,.171E-02_JPRB,.193E-02_JPRB,.217E-02_JPRB,.222E-02_JPRB,.225E-02_JPRB,&
+&.194E-02_JPRB,.173E-02_JPRB,.150E-02_JPRB,.130E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,&
+&.128E-02_JPRB,.133E-02_JPRB,.147E-02_JPRB,.163E-02_JPRB,.180E-02_JPRB,.217E-02_JPRB,.251E-02_JPRB,&
+&.271E-02_JPRB,.292E-02_JPRB,.348E-02_JPRB,.415E-02_JPRB,.532E-02_JPRB,.673E-02_JPRB,.735E-02_JPRB,&
+&.794E-02_JPRB,.744E-02_JPRB,.678E-02_JPRB,.594E-02_JPRB,.577E-02_JPRB,.596E-02_JPRB,.618E-02_JPRB,&
+&.644E-02_JPRB,.587E-02_JPRB,.528E-02_JPRB,.386E-02_JPRB,.359E-02_JPRB,.381E-02_JPRB,.644E-02_JPRB,&
+&.114E-01_JPRB,.150E-01_JPRB,.194E-01_JPRB,.187E-01_JPRB,.167E-01_JPRB,.116E-01_JPRB,.733E-02_JPRB,&
+&.546E-02_JPRB,.394E-02_JPRB,.275E-02_JPRB,.227E-02_JPRB,.182E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.133E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 32 -34.0
+ZAER (:,32, 8) = (/&
+&.152E-02_JPRB,.151E-02_JPRB,.122E-02_JPRB,.112E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.107E-02_JPRB,&
+&.111E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.121E-02_JPRB,.144E-02_JPRB,.173E-02_JPRB,.181E-02_JPRB,&
+&.177E-02_JPRB,.167E-02_JPRB,.180E-02_JPRB,.210E-02_JPRB,.252E-02_JPRB,.260E-02_JPRB,.261E-02_JPRB,&
+&.230E-02_JPRB,.203E-02_JPRB,.175E-02_JPRB,.140E-02_JPRB,.130E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,&
+&.118E-02_JPRB,.119E-02_JPRB,.128E-02_JPRB,.141E-02_JPRB,.155E-02_JPRB,.188E-02_JPRB,.237E-02_JPRB,&
+&.271E-02_JPRB,.314E-02_JPRB,.411E-02_JPRB,.522E-02_JPRB,.714E-02_JPRB,.926E-02_JPRB,.985E-02_JPRB,&
+&.101E-01_JPRB,.945E-02_JPRB,.856E-02_JPRB,.744E-02_JPRB,.681E-02_JPRB,.697E-02_JPRB,.718E-02_JPRB,&
+&.707E-02_JPRB,.602E-02_JPRB,.500E-02_JPRB,.342E-02_JPRB,.314E-02_JPRB,.326E-02_JPRB,.524E-02_JPRB,&
+&.989E-02_JPRB,.137E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,.185E-01_JPRB,.138E-01_JPRB,.896E-02_JPRB,&
+&.665E-02_JPRB,.451E-02_JPRB,.314E-02_JPRB,.259E-02_JPRB,.209E-02_JPRB,.168E-02_JPRB,.163E-02_JPRB,&
+&.161E-02_JPRB,.152E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 33 -38.0
+ZAER (:,33, 8) = (/&
+&.168E-02_JPRB,.167E-02_JPRB,.139E-02_JPRB,.127E-02_JPRB,.116E-02_JPRB,.108E-02_JPRB,.113E-02_JPRB,&
+&.117E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.129E-02_JPRB,.149E-02_JPRB,.166E-02_JPRB,.168E-02_JPRB,&
+&.156E-02_JPRB,.153E-02_JPRB,.169E-02_JPRB,.200E-02_JPRB,.252E-02_JPRB,.267E-02_JPRB,.277E-02_JPRB,&
+&.259E-02_JPRB,.234E-02_JPRB,.206E-02_JPRB,.153E-02_JPRB,.137E-02_JPRB,.123E-02_JPRB,.114E-02_JPRB,&
+&.112E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.122E-02_JPRB,.132E-02_JPRB,.158E-02_JPRB,.222E-02_JPRB,&
+&.282E-02_JPRB,.387E-02_JPRB,.567E-02_JPRB,.745E-02_JPRB,.104E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,&
+&.137E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.983E-02_JPRB,.862E-02_JPRB,.857E-02_JPRB,.857E-02_JPRB,&
+&.797E-02_JPRB,.674E-02_JPRB,.557E-02_JPRB,.391E-02_JPRB,.353E-02_JPRB,.342E-02_JPRB,.431E-02_JPRB,&
+&.744E-02_JPRB,.104E-01_JPRB,.159E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,.132E-01_JPRB,.887E-02_JPRB,&
+&.674E-02_JPRB,.470E-02_JPRB,.351E-02_JPRB,.298E-02_JPRB,.246E-02_JPRB,.199E-02_JPRB,.189E-02_JPRB,&
+&.182E-02_JPRB,.169E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 34 -42.0
+ZAER (:,34, 8) = (/&
+&.177E-02_JPRB,.176E-02_JPRB,.150E-02_JPRB,.139E-02_JPRB,.128E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,&
+&.122E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.132E-02_JPRB,.147E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,&
+&.141E-02_JPRB,.140E-02_JPRB,.151E-02_JPRB,.175E-02_JPRB,.218E-02_JPRB,.234E-02_JPRB,.248E-02_JPRB,&
+&.249E-02_JPRB,.231E-02_JPRB,.211E-02_JPRB,.158E-02_JPRB,.140E-02_JPRB,.124E-02_JPRB,.111E-02_JPRB,&
+&.108E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.108E-02_JPRB,.115E-02_JPRB,.137E-02_JPRB,.219E-02_JPRB,&
+&.317E-02_JPRB,.524E-02_JPRB,.860E-02_JPRB,.115E-01_JPRB,.160E-01_JPRB,.196E-01_JPRB,.199E-01_JPRB,&
+&.190E-01_JPRB,.171E-01_JPRB,.154E-01_JPRB,.134E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,&
+&.909E-02_JPRB,.796E-02_JPRB,.687E-02_JPRB,.506E-02_JPRB,.442E-02_JPRB,.400E-02_JPRB,.399E-02_JPRB,&
+&.537E-02_JPRB,.687E-02_JPRB,.102E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.105E-01_JPRB,.720E-02_JPRB,&
+&.566E-02_JPRB,.429E-02_JPRB,.353E-02_JPRB,.314E-02_JPRB,.272E-02_JPRB,.229E-02_JPRB,.213E-02_JPRB,&
+&.198E-02_JPRB,.178E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 35 -46.0
+ZAER (:,35, 8) = (/&
+&.175E-02_JPRB,.175E-02_JPRB,.152E-02_JPRB,.143E-02_JPRB,.135E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.134E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.135E-02_JPRB,.132E-02_JPRB,.137E-02_JPRB,.149E-02_JPRB,.169E-02_JPRB,.177E-02_JPRB,.184E-02_JPRB,&
+&.192E-02_JPRB,.185E-02_JPRB,.176E-02_JPRB,.146E-02_JPRB,.134E-02_JPRB,.122E-02_JPRB,.112E-02_JPRB,&
+&.109E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.111E-02_JPRB,.135E-02_JPRB,.250E-02_JPRB,&
+&.398E-02_JPRB,.724E-02_JPRB,.130E-01_JPRB,.177E-01_JPRB,.247E-01_JPRB,.275E-01_JPRB,.271E-01_JPRB,&
+&.253E-01_JPRB,.226E-01_JPRB,.204E-01_JPRB,.178E-01_JPRB,.150E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,&
+&.102E-01_JPRB,.910E-02_JPRB,.804E-02_JPRB,.625E-02_JPRB,.533E-02_JPRB,.462E-02_JPRB,.392E-02_JPRB,&
+&.418E-02_JPRB,.461E-02_JPRB,.586E-02_JPRB,.734E-02_JPRB,.774E-02_JPRB,.727E-02_JPRB,.517E-02_JPRB,&
+&.424E-02_JPRB,.347E-02_JPRB,.311E-02_JPRB,.289E-02_JPRB,.262E-02_JPRB,.232E-02_JPRB,.216E-02_JPRB,&
+&.200E-02_JPRB,.176E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 36 -50.0
+ZAER (:,36, 8) = (/&
+&.162E-02_JPRB,.162E-02_JPRB,.147E-02_JPRB,.141E-02_JPRB,.134E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,&
+&.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,&
+&.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.124E-02_JPRB,.154E-02_JPRB,.295E-02_JPRB,&
+&.475E-02_JPRB,.869E-02_JPRB,.170E-01_JPRB,.234E-01_JPRB,.324E-01_JPRB,.343E-01_JPRB,.332E-01_JPRB,&
+&.305E-01_JPRB,.271E-01_JPRB,.245E-01_JPRB,.216E-01_JPRB,.176E-01_JPRB,.158E-01_JPRB,.140E-01_JPRB,&
+&.109E-01_JPRB,.963E-02_JPRB,.846E-02_JPRB,.677E-02_JPRB,.574E-02_JPRB,.490E-02_JPRB,.387E-02_JPRB,&
+&.372E-02_JPRB,.373E-02_JPRB,.410E-02_JPRB,.478E-02_JPRB,.495E-02_JPRB,.469E-02_JPRB,.370E-02_JPRB,&
+&.323E-02_JPRB,.281E-02_JPRB,.258E-02_JPRB,.243E-02_JPRB,.226E-02_JPRB,.204E-02_JPRB,.192E-02_JPRB,&
+&.180E-02_JPRB,.163E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 37 -54.0
+ZAER (:,37, 8) = (/&
+&.139E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.128E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,&
+&.115E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.105E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.105E-02_JPRB,&
+&.109E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.117E-02_JPRB,&
+&.123E-02_JPRB,.128E-02_JPRB,.138E-02_JPRB,.145E-02_JPRB,.155E-02_JPRB,.185E-02_JPRB,.289E-02_JPRB,&
+&.419E-02_JPRB,.699E-02_JPRB,.139E-01_JPRB,.194E-01_JPRB,.276E-01_JPRB,.307E-01_JPRB,.307E-01_JPRB,&
+&.296E-01_JPRB,.270E-01_JPRB,.246E-01_JPRB,.217E-01_JPRB,.174E-01_JPRB,.156E-01_JPRB,.140E-01_JPRB,&
+&.108E-01_JPRB,.940E-02_JPRB,.811E-02_JPRB,.643E-02_JPRB,.546E-02_JPRB,.468E-02_JPRB,.368E-02_JPRB,&
+&.339E-02_JPRB,.326E-02_JPRB,.330E-02_JPRB,.351E-02_JPRB,.352E-02_JPRB,.331E-02_JPRB,.286E-02_JPRB,&
+&.265E-02_JPRB,.244E-02_JPRB,.222E-02_JPRB,.206E-02_JPRB,.187E-02_JPRB,.166E-02_JPRB,.156E-02_JPRB,&
+&.147E-02_JPRB,.140E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 38 -58.0
+ZAER (:,38, 8) = (/&
+&.115E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.110E-02_JPRB,&
+&.107E-02_JPRB,.102E-02_JPRB,.981E-03_JPRB,.958E-03_JPRB,.936E-03_JPRB,.951E-03_JPRB,.966E-03_JPRB,&
+&.989E-03_JPRB,.977E-03_JPRB,.958E-03_JPRB,.928E-03_JPRB,.898E-03_JPRB,.883E-03_JPRB,.867E-03_JPRB,&
+&.853E-03_JPRB,.856E-03_JPRB,.860E-03_JPRB,.885E-03_JPRB,.895E-03_JPRB,.908E-03_JPRB,.967E-03_JPRB,&
+&.109E-02_JPRB,.121E-02_JPRB,.150E-02_JPRB,.174E-02_JPRB,.194E-02_JPRB,.228E-02_JPRB,.274E-02_JPRB,&
+&.323E-02_JPRB,.421E-02_JPRB,.670E-02_JPRB,.898E-02_JPRB,.126E-01_JPRB,.154E-01_JPRB,.167E-01_JPRB,&
+&.181E-01_JPRB,.187E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,.125E-01_JPRB,&
+&.100E-01_JPRB,.872E-02_JPRB,.750E-02_JPRB,.587E-02_JPRB,.504E-02_JPRB,.436E-02_JPRB,.349E-02_JPRB,&
+&.316E-02_JPRB,.298E-02_JPRB,.290E-02_JPRB,.299E-02_JPRB,.298E-02_JPRB,.285E-02_JPRB,.261E-02_JPRB,&
+&.246E-02_JPRB,.229E-02_JPRB,.201E-02_JPRB,.183E-02_JPRB,.162E-02_JPRB,.138E-02_JPRB,.129E-02_JPRB,&
+&.120E-02_JPRB,.116E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 39 -62.0
+ZAER (:,39, 8) = (/&
+&.107E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.102E-02_JPRB,&
+&.987E-03_JPRB,.936E-03_JPRB,.911E-03_JPRB,.899E-03_JPRB,.896E-03_JPRB,.909E-03_JPRB,.917E-03_JPRB,&
+&.928E-03_JPRB,.912E-03_JPRB,.892E-03_JPRB,.861E-03_JPRB,.828E-03_JPRB,.819E-03_JPRB,.812E-03_JPRB,&
+&.815E-03_JPRB,.817E-03_JPRB,.819E-03_JPRB,.804E-03_JPRB,.787E-03_JPRB,.771E-03_JPRB,.774E-03_JPRB,&
+&.871E-03_JPRB,.987E-03_JPRB,.136E-02_JPRB,.175E-02_JPRB,.207E-02_JPRB,.260E-02_JPRB,.296E-02_JPRB,&
+&.321E-02_JPRB,.355E-02_JPRB,.421E-02_JPRB,.490E-02_JPRB,.607E-02_JPRB,.765E-02_JPRB,.857E-02_JPRB,&
+&.963E-02_JPRB,.105E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,&
+&.872E-02_JPRB,.790E-02_JPRB,.712E-02_JPRB,.597E-02_JPRB,.526E-02_JPRB,.464E-02_JPRB,.368E-02_JPRB,&
+&.326E-02_JPRB,.301E-02_JPRB,.286E-02_JPRB,.287E-02_JPRB,.286E-02_JPRB,.282E-02_JPRB,.265E-02_JPRB,&
+&.249E-02_JPRB,.224E-02_JPRB,.190E-02_JPRB,.172E-02_JPRB,.152E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,&
+&.114E-02_JPRB,.107E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 40 -66.0
+ZAER (:,40, 8) = (/&
+&.112E-02_JPRB,.112E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.104E-02_JPRB,.100E-02_JPRB,.971E-03_JPRB,&
+&.947E-03_JPRB,.914E-03_JPRB,.900E-03_JPRB,.893E-03_JPRB,.890E-03_JPRB,.893E-03_JPRB,.896E-03_JPRB,&
+&.901E-03_JPRB,.890E-03_JPRB,.876E-03_JPRB,.854E-03_JPRB,.830E-03_JPRB,.825E-03_JPRB,.823E-03_JPRB,&
+&.832E-03_JPRB,.830E-03_JPRB,.826E-03_JPRB,.785E-03_JPRB,.755E-03_JPRB,.727E-03_JPRB,.708E-03_JPRB,&
+&.771E-03_JPRB,.856E-03_JPRB,.117E-02_JPRB,.159E-02_JPRB,.196E-02_JPRB,.262E-02_JPRB,.315E-02_JPRB,&
+&.350E-02_JPRB,.393E-02_JPRB,.426E-02_JPRB,.453E-02_JPRB,.495E-02_JPRB,.563E-02_JPRB,.610E-02_JPRB,&
+&.669E-02_JPRB,.729E-02_JPRB,.760E-02_JPRB,.793E-02_JPRB,.827E-02_JPRB,.819E-02_JPRB,.807E-02_JPRB,&
+&.731E-02_JPRB,.680E-02_JPRB,.631E-02_JPRB,.550E-02_JPRB,.495E-02_JPRB,.447E-02_JPRB,.370E-02_JPRB,&
+&.333E-02_JPRB,.310E-02_JPRB,.290E-02_JPRB,.282E-02_JPRB,.276E-02_JPRB,.268E-02_JPRB,.250E-02_JPRB,&
+&.234E-02_JPRB,.211E-02_JPRB,.180E-02_JPRB,.164E-02_JPRB,.148E-02_JPRB,.131E-02_JPRB,.125E-02_JPRB,&
+&.119E-02_JPRB,.113E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 41 -70.0
+ZAER (:,41, 8) = (/&
+&.120E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.100E-02_JPRB,.972E-03_JPRB,.956E-03_JPRB,.945E-03_JPRB,.933E-03_JPRB,.927E-03_JPRB,.924E-03_JPRB,&
+&.919E-03_JPRB,.912E-03_JPRB,.904E-03_JPRB,.894E-03_JPRB,.882E-03_JPRB,.879E-03_JPRB,.876E-03_JPRB,&
+&.871E-03_JPRB,.859E-03_JPRB,.846E-03_JPRB,.799E-03_JPRB,.771E-03_JPRB,.746E-03_JPRB,.737E-03_JPRB,&
+&.791E-03_JPRB,.861E-03_JPRB,.111E-02_JPRB,.143E-02_JPRB,.174E-02_JPRB,.233E-02_JPRB,.289E-02_JPRB,&
+&.326E-02_JPRB,.373E-02_JPRB,.401E-02_JPRB,.415E-02_JPRB,.430E-02_JPRB,.444E-02_JPRB,.452E-02_JPRB,&
+&.461E-02_JPRB,.473E-02_JPRB,.487E-02_JPRB,.504E-02_JPRB,.540E-02_JPRB,.548E-02_JPRB,.554E-02_JPRB,&
+&.529E-02_JPRB,.505E-02_JPRB,.481E-02_JPRB,.436E-02_JPRB,.405E-02_JPRB,.378E-02_JPRB,.336E-02_JPRB,&
+&.313E-02_JPRB,.297E-02_JPRB,.279E-02_JPRB,.266E-02_JPRB,.257E-02_JPRB,.243E-02_JPRB,.225E-02_JPRB,&
+&.210E-02_JPRB,.191E-02_JPRB,.169E-02_JPRB,.158E-02_JPRB,.146E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,&
+&.125E-02_JPRB,.120E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 42 -74.0
+ZAER (:,42, 8) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,&
+&.109E-02_JPRB,.106E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.100E-02_JPRB,.991E-03_JPRB,.984E-03_JPRB,&
+&.977E-03_JPRB,.975E-03_JPRB,.973E-03_JPRB,.970E-03_JPRB,.962E-03_JPRB,.957E-03_JPRB,.951E-03_JPRB,&
+&.929E-03_JPRB,.912E-03_JPRB,.893E-03_JPRB,.856E-03_JPRB,.843E-03_JPRB,.832E-03_JPRB,.849E-03_JPRB,&
+&.903E-03_JPRB,.965E-03_JPRB,.115E-02_JPRB,.138E-02_JPRB,.159E-02_JPRB,.199E-02_JPRB,.238E-02_JPRB,&
+&.264E-02_JPRB,.299E-02_JPRB,.321E-02_JPRB,.331E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.337E-02_JPRB,&
+&.334E-02_JPRB,.331E-02_JPRB,.333E-02_JPRB,.335E-02_JPRB,.344E-02_JPRB,.347E-02_JPRB,.349E-02_JPRB,&
+&.344E-02_JPRB,.336E-02_JPRB,.328E-02_JPRB,.311E-02_JPRB,.298E-02_JPRB,.287E-02_JPRB,.269E-02_JPRB,&
+&.257E-02_JPRB,.248E-02_JPRB,.235E-02_JPRB,.224E-02_JPRB,.215E-02_JPRB,.203E-02_JPRB,.190E-02_JPRB,&
+&.180E-02_JPRB,.168E-02_JPRB,.154E-02_JPRB,.147E-02_JPRB,.140E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,&
+&.126E-02_JPRB,.123E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 43 -78.0
+ZAER (:,43, 8) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,&
+&.113E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,&
+&.981E-03_JPRB,.971E-03_JPRB,.962E-03_JPRB,.951E-03_JPRB,.954E-03_JPRB,.960E-03_JPRB,.100E-02_JPRB,&
+&.105E-02_JPRB,.110E-02_JPRB,.124E-02_JPRB,.138E-02_JPRB,.150E-02_JPRB,.172E-02_JPRB,.191E-02_JPRB,&
+&.205E-02_JPRB,.224E-02_JPRB,.238E-02_JPRB,.245E-02_JPRB,.252E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,&
+&.254E-02_JPRB,.253E-02_JPRB,.252E-02_JPRB,.251E-02_JPRB,.249E-02_JPRB,.248E-02_JPRB,.246E-02_JPRB,&
+&.242E-02_JPRB,.238E-02_JPRB,.235E-02_JPRB,.227E-02_JPRB,.222E-02_JPRB,.216E-02_JPRB,.207E-02_JPRB,&
+&.201E-02_JPRB,.196E-02_JPRB,.189E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.169E-02_JPRB,.161E-02_JPRB,&
+&.156E-02_JPRB,.149E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,&
+&.126E-02_JPRB,.123E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 44 -82.0
+ZAER (:,44, 8) = (/&
+&.127E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,&
+&.119E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,&
+&.120E-02_JPRB,.123E-02_JPRB,.130E-02_JPRB,.136E-02_JPRB,.141E-02_JPRB,.151E-02_JPRB,.158E-02_JPRB,&
+&.164E-02_JPRB,.171E-02_JPRB,.178E-02_JPRB,.182E-02_JPRB,.186E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,&
+&.192E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,&
+&.188E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,.180E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.170E-02_JPRB,&
+&.167E-02_JPRB,.165E-02_JPRB,.161E-02_JPRB,.157E-02_JPRB,.155E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,&
+&.145E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,&
+&.129E-02_JPRB,.127E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 45 -86.0
+ZAER (:,45, 8) = (/&
+&.134E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,&
+&.144E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,&
+&.154E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,&
+&.149E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,.142E-02_JPRB,&
+&.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.135E-02_JPRB,.134E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  8 --- lat: 46 -90.0
+ZAER (:,46, 8) = (/&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=8   
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_08
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_09.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_09.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_09.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_09
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 September
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,9:9)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month:  9 --- lat:  1  90.0
+ZAER (:, 1, 9) = (/&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  2  86.0
+ZAER (:, 2, 9) = (/&
+&.179E-03_JPRB,.180E-03_JPRB,.182E-03_JPRB,.183E-03_JPRB,.184E-03_JPRB,.185E-03_JPRB,.187E-03_JPRB,&
+&.188E-03_JPRB,.189E-03_JPRB,.190E-03_JPRB,.191E-03_JPRB,.192E-03_JPRB,.193E-03_JPRB,.193E-03_JPRB,&
+&.193E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.193E-03_JPRB,&
+&.192E-03_JPRB,.192E-03_JPRB,.192E-03_JPRB,.190E-03_JPRB,.189E-03_JPRB,.188E-03_JPRB,.187E-03_JPRB,&
+&.185E-03_JPRB,.184E-03_JPRB,.183E-03_JPRB,.181E-03_JPRB,.180E-03_JPRB,.178E-03_JPRB,.176E-03_JPRB,&
+&.175E-03_JPRB,.174E-03_JPRB,.172E-03_JPRB,.171E-03_JPRB,.170E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,&
+&.167E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.164E-03_JPRB,.163E-03_JPRB,.163E-03_JPRB,.163E-03_JPRB,&
+&.162E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.163E-03_JPRB,&
+&.163E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.166E-03_JPRB,.167E-03_JPRB,&
+&.168E-03_JPRB,.169E-03_JPRB,.170E-03_JPRB,.172E-03_JPRB,.173E-03_JPRB,.175E-03_JPRB,.176E-03_JPRB,&
+&.177E-03_JPRB,.179E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  3  82.0
+ZAER (:, 3, 9) = (/&
+&.191E-03_JPRB,.191E-03_JPRB,.197E-03_JPRB,.200E-03_JPRB,.203E-03_JPRB,.207E-03_JPRB,.210E-03_JPRB,&
+&.213E-03_JPRB,.216E-03_JPRB,.218E-03_JPRB,.220E-03_JPRB,.222E-03_JPRB,.223E-03_JPRB,.223E-03_JPRB,&
+&.224E-03_JPRB,.224E-03_JPRB,.223E-03_JPRB,.223E-03_JPRB,.223E-03_JPRB,.222E-03_JPRB,.222E-03_JPRB,&
+&.220E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,.217E-03_JPRB,.216E-03_JPRB,.214E-03_JPRB,.211E-03_JPRB,&
+&.209E-03_JPRB,.206E-03_JPRB,.202E-03_JPRB,.198E-03_JPRB,.194E-03_JPRB,.189E-03_JPRB,.184E-03_JPRB,&
+&.180E-03_JPRB,.176E-03_JPRB,.171E-03_JPRB,.168E-03_JPRB,.165E-03_JPRB,.161E-03_JPRB,.159E-03_JPRB,&
+&.157E-03_JPRB,.154E-03_JPRB,.153E-03_JPRB,.152E-03_JPRB,.151E-03_JPRB,.150E-03_JPRB,.150E-03_JPRB,&
+&.149E-03_JPRB,.149E-03_JPRB,.149E-03_JPRB,.149E-03_JPRB,.149E-03_JPRB,.150E-03_JPRB,.150E-03_JPRB,&
+&.150E-03_JPRB,.151E-03_JPRB,.152E-03_JPRB,.153E-03_JPRB,.154E-03_JPRB,.155E-03_JPRB,.157E-03_JPRB,&
+&.159E-03_JPRB,.162E-03_JPRB,.166E-03_JPRB,.168E-03_JPRB,.172E-03_JPRB,.177E-03_JPRB,.181E-03_JPRB,&
+&.184E-03_JPRB,.190E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  4  78.0
+ZAER (:, 4, 9) = (/&
+&.215E-03_JPRB,.216E-03_JPRB,.225E-03_JPRB,.230E-03_JPRB,.234E-03_JPRB,.240E-03_JPRB,.243E-03_JPRB,&
+&.246E-03_JPRB,.250E-03_JPRB,.252E-03_JPRB,.253E-03_JPRB,.254E-03_JPRB,.254E-03_JPRB,.253E-03_JPRB,&
+&.252E-03_JPRB,.251E-03_JPRB,.250E-03_JPRB,.249E-03_JPRB,.249E-03_JPRB,.249E-03_JPRB,.250E-03_JPRB,&
+&.251E-03_JPRB,.251E-03_JPRB,.252E-03_JPRB,.252E-03_JPRB,.252E-03_JPRB,.251E-03_JPRB,.249E-03_JPRB,&
+&.246E-03_JPRB,.243E-03_JPRB,.236E-03_JPRB,.229E-03_JPRB,.223E-03_JPRB,.213E-03_JPRB,.203E-03_JPRB,&
+&.196E-03_JPRB,.187E-03_JPRB,.179E-03_JPRB,.174E-03_JPRB,.169E-03_JPRB,.164E-03_JPRB,.161E-03_JPRB,&
+&.159E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,.155E-03_JPRB,.155E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,&
+&.154E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,&
+&.154E-03_JPRB,.153E-03_JPRB,.154E-03_JPRB,.154E-03_JPRB,.155E-03_JPRB,.156E-03_JPRB,.159E-03_JPRB,&
+&.161E-03_JPRB,.165E-03_JPRB,.172E-03_JPRB,.176E-03_JPRB,.182E-03_JPRB,.192E-03_JPRB,.198E-03_JPRB,&
+&.204E-03_JPRB,.215E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  5  74.0
+ZAER (:, 5, 9) = (/&
+&.257E-03_JPRB,.257E-03_JPRB,.267E-03_JPRB,.271E-03_JPRB,.273E-03_JPRB,.276E-03_JPRB,.277E-03_JPRB,&
+&.278E-03_JPRB,.277E-03_JPRB,.276E-03_JPRB,.276E-03_JPRB,.274E-03_JPRB,.272E-03_JPRB,.270E-03_JPRB,&
+&.267E-03_JPRB,.264E-03_JPRB,.263E-03_JPRB,.262E-03_JPRB,.263E-03_JPRB,.265E-03_JPRB,.268E-03_JPRB,&
+&.273E-03_JPRB,.276E-03_JPRB,.280E-03_JPRB,.286E-03_JPRB,.289E-03_JPRB,.291E-03_JPRB,.292E-03_JPRB,&
+&.289E-03_JPRB,.286E-03_JPRB,.276E-03_JPRB,.265E-03_JPRB,.256E-03_JPRB,.241E-03_JPRB,.227E-03_JPRB,&
+&.217E-03_JPRB,.203E-03_JPRB,.193E-03_JPRB,.187E-03_JPRB,.180E-03_JPRB,.176E-03_JPRB,.174E-03_JPRB,&
+&.172E-03_JPRB,.172E-03_JPRB,.172E-03_JPRB,.173E-03_JPRB,.174E-03_JPRB,.174E-03_JPRB,.175E-03_JPRB,&
+&.176E-03_JPRB,.176E-03_JPRB,.177E-03_JPRB,.178E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.176E-03_JPRB,&
+&.174E-03_JPRB,.173E-03_JPRB,.172E-03_JPRB,.171E-03_JPRB,.171E-03_JPRB,.172E-03_JPRB,.175E-03_JPRB,&
+&.178E-03_JPRB,.183E-03_JPRB,.193E-03_JPRB,.200E-03_JPRB,.210E-03_JPRB,.225E-03_JPRB,.234E-03_JPRB,&
+&.243E-03_JPRB,.256E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  6  70.0
+ZAER (:, 6, 9) = (/&
+&.323E-03_JPRB,.323E-03_JPRB,.329E-03_JPRB,.330E-03_JPRB,.329E-03_JPRB,.325E-03_JPRB,.320E-03_JPRB,&
+&.316E-03_JPRB,.307E-03_JPRB,.300E-03_JPRB,.296E-03_JPRB,.291E-03_JPRB,.288E-03_JPRB,.286E-03_JPRB,&
+&.282E-03_JPRB,.279E-03_JPRB,.277E-03_JPRB,.275E-03_JPRB,.277E-03_JPRB,.281E-03_JPRB,.285E-03_JPRB,&
+&.294E-03_JPRB,.301E-03_JPRB,.309E-03_JPRB,.326E-03_JPRB,.333E-03_JPRB,.340E-03_JPRB,.344E-03_JPRB,&
+&.339E-03_JPRB,.334E-03_JPRB,.319E-03_JPRB,.304E-03_JPRB,.291E-03_JPRB,.271E-03_JPRB,.255E-03_JPRB,&
+&.244E-03_JPRB,.229E-03_JPRB,.217E-03_JPRB,.210E-03_JPRB,.203E-03_JPRB,.199E-03_JPRB,.198E-03_JPRB,&
+&.198E-03_JPRB,.199E-03_JPRB,.200E-03_JPRB,.202E-03_JPRB,.206E-03_JPRB,.208E-03_JPRB,.210E-03_JPRB,&
+&.214E-03_JPRB,.216E-03_JPRB,.218E-03_JPRB,.220E-03_JPRB,.219E-03_JPRB,.219E-03_JPRB,.217E-03_JPRB,&
+&.215E-03_JPRB,.213E-03_JPRB,.211E-03_JPRB,.210E-03_JPRB,.210E-03_JPRB,.210E-03_JPRB,.214E-03_JPRB,&
+&.219E-03_JPRB,.227E-03_JPRB,.242E-03_JPRB,.252E-03_JPRB,.266E-03_JPRB,.286E-03_JPRB,.297E-03_JPRB,&
+&.308E-03_JPRB,.322E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  7  66.0
+ZAER (:, 7, 9) = (/&
+&.399E-03_JPRB,.399E-03_JPRB,.402E-03_JPRB,.399E-03_JPRB,.396E-03_JPRB,.385E-03_JPRB,.376E-03_JPRB,&
+&.367E-03_JPRB,.349E-03_JPRB,.336E-03_JPRB,.328E-03_JPRB,.319E-03_JPRB,.315E-03_JPRB,.312E-03_JPRB,&
+&.307E-03_JPRB,.302E-03_JPRB,.298E-03_JPRB,.293E-03_JPRB,.293E-03_JPRB,.295E-03_JPRB,.299E-03_JPRB,&
+&.310E-03_JPRB,.321E-03_JPRB,.332E-03_JPRB,.360E-03_JPRB,.373E-03_JPRB,.385E-03_JPRB,.392E-03_JPRB,&
+&.385E-03_JPRB,.377E-03_JPRB,.356E-03_JPRB,.341E-03_JPRB,.328E-03_JPRB,.311E-03_JPRB,.296E-03_JPRB,&
+&.284E-03_JPRB,.268E-03_JPRB,.254E-03_JPRB,.246E-03_JPRB,.238E-03_JPRB,.234E-03_JPRB,.233E-03_JPRB,&
+&.234E-03_JPRB,.235E-03_JPRB,.237E-03_JPRB,.240E-03_JPRB,.246E-03_JPRB,.251E-03_JPRB,.256E-03_JPRB,&
+&.266E-03_JPRB,.269E-03_JPRB,.272E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,.271E-03_JPRB,&
+&.271E-03_JPRB,.271E-03_JPRB,.272E-03_JPRB,.272E-03_JPRB,.273E-03_JPRB,.275E-03_JPRB,.284E-03_JPRB,&
+&.292E-03_JPRB,.304E-03_JPRB,.320E-03_JPRB,.331E-03_JPRB,.345E-03_JPRB,.365E-03_JPRB,.375E-03_JPRB,&
+&.386E-03_JPRB,.399E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  8  62.0
+ZAER (:, 8, 9) = (/&
+&.460E-03_JPRB,.460E-03_JPRB,.466E-03_JPRB,.459E-03_JPRB,.452E-03_JPRB,.435E-03_JPRB,.425E-03_JPRB,&
+&.415E-03_JPRB,.395E-03_JPRB,.379E-03_JPRB,.369E-03_JPRB,.358E-03_JPRB,.351E-03_JPRB,.347E-03_JPRB,&
+&.341E-03_JPRB,.334E-03_JPRB,.327E-03_JPRB,.318E-03_JPRB,.310E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.318E-03_JPRB,.329E-03_JPRB,.341E-03_JPRB,.374E-03_JPRB,.391E-03_JPRB,.406E-03_JPRB,.415E-03_JPRB,&
+&.407E-03_JPRB,.399E-03_JPRB,.384E-03_JPRB,.376E-03_JPRB,.369E-03_JPRB,.358E-03_JPRB,.348E-03_JPRB,&
+&.339E-03_JPRB,.323E-03_JPRB,.305E-03_JPRB,.294E-03_JPRB,.281E-03_JPRB,.279E-03_JPRB,.282E-03_JPRB,&
+&.288E-03_JPRB,.293E-03_JPRB,.295E-03_JPRB,.296E-03_JPRB,.302E-03_JPRB,.308E-03_JPRB,.315E-03_JPRB,&
+&.330E-03_JPRB,.334E-03_JPRB,.337E-03_JPRB,.335E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.334E-03_JPRB,&
+&.340E-03_JPRB,.345E-03_JPRB,.354E-03_JPRB,.359E-03_JPRB,.363E-03_JPRB,.369E-03_JPRB,.382E-03_JPRB,&
+&.391E-03_JPRB,.403E-03_JPRB,.408E-03_JPRB,.411E-03_JPRB,.415E-03_JPRB,.429E-03_JPRB,.438E-03_JPRB,&
+&.448E-03_JPRB,.460E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat:  9  58.0
+ZAER (:, 9, 9) = (/&
+&.517E-03_JPRB,.517E-03_JPRB,.514E-03_JPRB,.503E-03_JPRB,.492E-03_JPRB,.474E-03_JPRB,.464E-03_JPRB,&
+&.455E-03_JPRB,.437E-03_JPRB,.423E-03_JPRB,.413E-03_JPRB,.398E-03_JPRB,.387E-03_JPRB,.380E-03_JPRB,&
+&.371E-03_JPRB,.357E-03_JPRB,.348E-03_JPRB,.335E-03_JPRB,.327E-03_JPRB,.328E-03_JPRB,.330E-03_JPRB,&
+&.344E-03_JPRB,.358E-03_JPRB,.372E-03_JPRB,.412E-03_JPRB,.435E-03_JPRB,.455E-03_JPRB,.468E-03_JPRB,&
+&.458E-03_JPRB,.449E-03_JPRB,.441E-03_JPRB,.435E-03_JPRB,.429E-03_JPRB,.418E-03_JPRB,.407E-03_JPRB,&
+&.397E-03_JPRB,.378E-03_JPRB,.352E-03_JPRB,.339E-03_JPRB,.326E-03_JPRB,.341E-03_JPRB,.357E-03_JPRB,&
+&.380E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,.389E-03_JPRB,.386E-03_JPRB,.388E-03_JPRB,.390E-03_JPRB,&
+&.395E-03_JPRB,.398E-03_JPRB,.400E-03_JPRB,.395E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,.397E-03_JPRB,&
+&.409E-03_JPRB,.419E-03_JPRB,.437E-03_JPRB,.446E-03_JPRB,.454E-03_JPRB,.467E-03_JPRB,.493E-03_JPRB,&
+&.502E-03_JPRB,.507E-03_JPRB,.484E-03_JPRB,.480E-03_JPRB,.480E-03_JPRB,.503E-03_JPRB,.510E-03_JPRB,&
+&.517E-03_JPRB,.517E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 10  54.0
+ZAER (:,10, 9) = (/&
+&.558E-03_JPRB,.557E-03_JPRB,.542E-03_JPRB,.532E-03_JPRB,.523E-03_JPRB,.512E-03_JPRB,.506E-03_JPRB,&
+&.498E-03_JPRB,.476E-03_JPRB,.463E-03_JPRB,.452E-03_JPRB,.433E-03_JPRB,.418E-03_JPRB,.407E-03_JPRB,&
+&.393E-03_JPRB,.373E-03_JPRB,.363E-03_JPRB,.354E-03_JPRB,.355E-03_JPRB,.359E-03_JPRB,.366E-03_JPRB,&
+&.385E-03_JPRB,.403E-03_JPRB,.423E-03_JPRB,.474E-03_JPRB,.507E-03_JPRB,.538E-03_JPRB,.565E-03_JPRB,&
+&.547E-03_JPRB,.533E-03_JPRB,.523E-03_JPRB,.505E-03_JPRB,.490E-03_JPRB,.466E-03_JPRB,.451E-03_JPRB,&
+&.439E-03_JPRB,.422E-03_JPRB,.400E-03_JPRB,.392E-03_JPRB,.390E-03_JPRB,.431E-03_JPRB,.459E-03_JPRB,&
+&.494E-03_JPRB,.498E-03_JPRB,.491E-03_JPRB,.480E-03_JPRB,.466E-03_JPRB,.463E-03_JPRB,.461E-03_JPRB,&
+&.457E-03_JPRB,.458E-03_JPRB,.458E-03_JPRB,.455E-03_JPRB,.447E-03_JPRB,.442E-03_JPRB,.440E-03_JPRB,&
+&.452E-03_JPRB,.464E-03_JPRB,.488E-03_JPRB,.495E-03_JPRB,.505E-03_JPRB,.526E-03_JPRB,.565E-03_JPRB,&
+&.579E-03_JPRB,.584E-03_JPRB,.542E-03_JPRB,.532E-03_JPRB,.527E-03_JPRB,.553E-03_JPRB,.561E-03_JPRB,&
+&.569E-03_JPRB,.558E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 11  50.0
+ZAER (:,11, 9) = (/&
+&.592E-03_JPRB,.592E-03_JPRB,.575E-03_JPRB,.562E-03_JPRB,.550E-03_JPRB,.536E-03_JPRB,.535E-03_JPRB,&
+&.532E-03_JPRB,.516E-03_JPRB,.502E-03_JPRB,.491E-03_JPRB,.475E-03_JPRB,.461E-03_JPRB,.448E-03_JPRB,&
+&.427E-03_JPRB,.406E-03_JPRB,.399E-03_JPRB,.396E-03_JPRB,.411E-03_JPRB,.419E-03_JPRB,.427E-03_JPRB,&
+&.447E-03_JPRB,.474E-03_JPRB,.504E-03_JPRB,.563E-03_JPRB,.594E-03_JPRB,.624E-03_JPRB,.657E-03_JPRB,&
+&.640E-03_JPRB,.624E-03_JPRB,.602E-03_JPRB,.570E-03_JPRB,.547E-03_JPRB,.522E-03_JPRB,.508E-03_JPRB,&
+&.498E-03_JPRB,.488E-03_JPRB,.480E-03_JPRB,.482E-03_JPRB,.493E-03_JPRB,.546E-03_JPRB,.580E-03_JPRB,&
+&.620E-03_JPRB,.608E-03_JPRB,.597E-03_JPRB,.584E-03_JPRB,.578E-03_JPRB,.593E-03_JPRB,.609E-03_JPRB,&
+&.600E-03_JPRB,.582E-03_JPRB,.566E-03_JPRB,.547E-03_JPRB,.523E-03_JPRB,.505E-03_JPRB,.491E-03_JPRB,&
+&.496E-03_JPRB,.504E-03_JPRB,.526E-03_JPRB,.531E-03_JPRB,.541E-03_JPRB,.567E-03_JPRB,.621E-03_JPRB,&
+&.643E-03_JPRB,.657E-03_JPRB,.616E-03_JPRB,.600E-03_JPRB,.586E-03_JPRB,.588E-03_JPRB,.594E-03_JPRB,&
+&.601E-03_JPRB,.593E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 12  46.0
+ZAER (:,12, 9) = (/&
+&.642E-03_JPRB,.641E-03_JPRB,.624E-03_JPRB,.603E-03_JPRB,.584E-03_JPRB,.557E-03_JPRB,.558E-03_JPRB,&
+&.558E-03_JPRB,.558E-03_JPRB,.552E-03_JPRB,.545E-03_JPRB,.529E-03_JPRB,.514E-03_JPRB,.500E-03_JPRB,&
+&.477E-03_JPRB,.459E-03_JPRB,.458E-03_JPRB,.464E-03_JPRB,.495E-03_JPRB,.509E-03_JPRB,.523E-03_JPRB,&
+&.560E-03_JPRB,.598E-03_JPRB,.640E-03_JPRB,.728E-03_JPRB,.749E-03_JPRB,.769E-03_JPRB,.772E-03_JPRB,&
+&.759E-03_JPRB,.744E-03_JPRB,.700E-03_JPRB,.657E-03_JPRB,.630E-03_JPRB,.616E-03_JPRB,.609E-03_JPRB,&
+&.612E-03_JPRB,.631E-03_JPRB,.668E-03_JPRB,.696E-03_JPRB,.734E-03_JPRB,.760E-03_JPRB,.789E-03_JPRB,&
+&.831E-03_JPRB,.834E-03_JPRB,.831E-03_JPRB,.826E-03_JPRB,.838E-03_JPRB,.915E-03_JPRB,.998E-03_JPRB,&
+&.950E-03_JPRB,.879E-03_JPRB,.813E-03_JPRB,.747E-03_JPRB,.683E-03_JPRB,.638E-03_JPRB,.615E-03_JPRB,&
+&.608E-03_JPRB,.607E-03_JPRB,.616E-03_JPRB,.615E-03_JPRB,.625E-03_JPRB,.655E-03_JPRB,.711E-03_JPRB,&
+&.727E-03_JPRB,.728E-03_JPRB,.694E-03_JPRB,.682E-03_JPRB,.671E-03_JPRB,.648E-03_JPRB,.646E-03_JPRB,&
+&.646E-03_JPRB,.642E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 13  42.0
+ZAER (:,13, 9) = (/&
+&.770E-03_JPRB,.769E-03_JPRB,.728E-03_JPRB,.695E-03_JPRB,.665E-03_JPRB,.619E-03_JPRB,.613E-03_JPRB,&
+&.611E-03_JPRB,.621E-03_JPRB,.621E-03_JPRB,.616E-03_JPRB,.600E-03_JPRB,.583E-03_JPRB,.571E-03_JPRB,&
+&.555E-03_JPRB,.551E-03_JPRB,.556E-03_JPRB,.568E-03_JPRB,.600E-03_JPRB,.629E-03_JPRB,.664E-03_JPRB,&
+&.765E-03_JPRB,.831E-03_JPRB,.898E-03_JPRB,.103E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,&
+&.966E-03_JPRB,.911E-03_JPRB,.833E-03_JPRB,.792E-03_JPRB,.774E-03_JPRB,.796E-03_JPRB,.834E-03_JPRB,&
+&.872E-03_JPRB,.945E-03_JPRB,.106E-02_JPRB,.114E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,&
+&.131E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.154E-02_JPRB,.166E-02_JPRB,&
+&.153E-02_JPRB,.139E-02_JPRB,.126E-02_JPRB,.111E-02_JPRB,.100E-02_JPRB,.925E-03_JPRB,.882E-03_JPRB,&
+&.846E-03_JPRB,.825E-03_JPRB,.813E-03_JPRB,.803E-03_JPRB,.814E-03_JPRB,.856E-03_JPRB,.912E-03_JPRB,&
+&.928E-03_JPRB,.930E-03_JPRB,.911E-03_JPRB,.911E-03_JPRB,.916E-03_JPRB,.843E-03_JPRB,.814E-03_JPRB,&
+&.785E-03_JPRB,.771E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 14  38.0
+ZAER (:,14, 9) = (/&
+&.103E-02_JPRB,.103E-02_JPRB,.929E-03_JPRB,.880E-03_JPRB,.836E-03_JPRB,.776E-03_JPRB,.748E-03_JPRB,&
+&.730E-03_JPRB,.721E-03_JPRB,.716E-03_JPRB,.709E-03_JPRB,.690E-03_JPRB,.676E-03_JPRB,.671E-03_JPRB,&
+&.670E-03_JPRB,.682E-03_JPRB,.690E-03_JPRB,.700E-03_JPRB,.728E-03_JPRB,.778E-03_JPRB,.848E-03_JPRB,&
+&.109E-02_JPRB,.126E-02_JPRB,.144E-02_JPRB,.178E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.159E-02_JPRB,&
+&.136E-02_JPRB,.117E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.119E-02_JPRB,.124E-02_JPRB,&
+&.130E-02_JPRB,.143E-02_JPRB,.170E-02_JPRB,.190E-02_JPRB,.217E-02_JPRB,.212E-02_JPRB,.217E-02_JPRB,&
+&.226E-02_JPRB,.228E-02_JPRB,.227E-02_JPRB,.225E-02_JPRB,.234E-02_JPRB,.237E-02_JPRB,.238E-02_JPRB,&
+&.209E-02_JPRB,.194E-02_JPRB,.179E-02_JPRB,.158E-02_JPRB,.146E-02_JPRB,.136E-02_JPRB,.124E-02_JPRB,&
+&.117E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.117E-02_JPRB,.129E-02_JPRB,.142E-02_JPRB,&
+&.149E-02_JPRB,.154E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.130E-02_JPRB,.121E-02_JPRB,&
+&.112E-02_JPRB,.103E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 15  34.0
+ZAER (:,15, 9) = (/&
+&.139E-02_JPRB,.139E-02_JPRB,.124E-02_JPRB,.117E-02_JPRB,.111E-02_JPRB,.103E-02_JPRB,.966E-03_JPRB,&
+&.923E-03_JPRB,.892E-03_JPRB,.863E-03_JPRB,.841E-03_JPRB,.806E-03_JPRB,.793E-03_JPRB,.792E-03_JPRB,&
+&.803E-03_JPRB,.820E-03_JPRB,.829E-03_JPRB,.839E-03_JPRB,.858E-03_JPRB,.935E-03_JPRB,.105E-02_JPRB,&
+&.153E-02_JPRB,.194E-02_JPRB,.238E-02_JPRB,.350E-02_JPRB,.352E-02_JPRB,.349E-02_JPRB,.263E-02_JPRB,&
+&.207E-02_JPRB,.165E-02_JPRB,.151E-02_JPRB,.155E-02_JPRB,.161E-02_JPRB,.182E-02_JPRB,.177E-02_JPRB,&
+&.180E-02_JPRB,.197E-02_JPRB,.250E-02_JPRB,.290E-02_JPRB,.347E-02_JPRB,.343E-02_JPRB,.356E-02_JPRB,&
+&.381E-02_JPRB,.355E-02_JPRB,.339E-02_JPRB,.323E-02_JPRB,.318E-02_JPRB,.300E-02_JPRB,.279E-02_JPRB,&
+&.240E-02_JPRB,.229E-02_JPRB,.217E-02_JPRB,.201E-02_JPRB,.190E-02_JPRB,.180E-02_JPRB,.162E-02_JPRB,&
+&.152E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,.149E-02_JPRB,.167E-02_JPRB,.214E-02_JPRB,.260E-02_JPRB,&
+&.277E-02_JPRB,.286E-02_JPRB,.279E-02_JPRB,.265E-02_JPRB,.243E-02_JPRB,.185E-02_JPRB,.169E-02_JPRB,&
+&.156E-02_JPRB,.140E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 16  30.0
+ZAER (:,16, 9) = (/&
+&.167E-02_JPRB,.167E-02_JPRB,.153E-02_JPRB,.145E-02_JPRB,.137E-02_JPRB,.127E-02_JPRB,.118E-02_JPRB,&
+&.111E-02_JPRB,.106E-02_JPRB,.996E-03_JPRB,.951E-03_JPRB,.903E-03_JPRB,.889E-03_JPRB,.893E-03_JPRB,&
+&.917E-03_JPRB,.939E-03_JPRB,.945E-03_JPRB,.947E-03_JPRB,.988E-03_JPRB,.112E-02_JPRB,.130E-02_JPRB,&
+&.208E-02_JPRB,.279E-02_JPRB,.356E-02_JPRB,.623E-02_JPRB,.643E-02_JPRB,.646E-02_JPRB,.418E-02_JPRB,&
+&.316E-02_JPRB,.241E-02_JPRB,.217E-02_JPRB,.219E-02_JPRB,.222E-02_JPRB,.231E-02_JPRB,.226E-02_JPRB,&
+&.234E-02_JPRB,.271E-02_JPRB,.353E-02_JPRB,.419E-02_JPRB,.513E-02_JPRB,.539E-02_JPRB,.570E-02_JPRB,&
+&.616E-02_JPRB,.534E-02_JPRB,.474E-02_JPRB,.406E-02_JPRB,.359E-02_JPRB,.325E-02_JPRB,.291E-02_JPRB,&
+&.254E-02_JPRB,.244E-02_JPRB,.235E-02_JPRB,.224E-02_JPRB,.214E-02_JPRB,.205E-02_JPRB,.187E-02_JPRB,&
+&.178E-02_JPRB,.172E-02_JPRB,.170E-02_JPRB,.183E-02_JPRB,.225E-02_JPRB,.331E-02_JPRB,.464E-02_JPRB,&
+&.495E-02_JPRB,.484E-02_JPRB,.410E-02_JPRB,.361E-02_JPRB,.301E-02_JPRB,.220E-02_JPRB,.199E-02_JPRB,&
+&.184E-02_JPRB,.168E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 17  26.0
+ZAER (:,17, 9) = (/&
+&.170E-02_JPRB,.170E-02_JPRB,.157E-02_JPRB,.151E-02_JPRB,.145E-02_JPRB,.137E-02_JPRB,.126E-02_JPRB,&
+&.119E-02_JPRB,.113E-02_JPRB,.104E-02_JPRB,.983E-03_JPRB,.937E-03_JPRB,.937E-03_JPRB,.959E-03_JPRB,&
+&.102E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.125E-02_JPRB,.152E-02_JPRB,.189E-02_JPRB,&
+&.289E-02_JPRB,.392E-02_JPRB,.504E-02_JPRB,.101E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.630E-02_JPRB,&
+&.474E-02_JPRB,.354E-02_JPRB,.295E-02_JPRB,.275E-02_JPRB,.261E-02_JPRB,.246E-02_JPRB,.261E-02_JPRB,&
+&.291E-02_JPRB,.367E-02_JPRB,.485E-02_JPRB,.591E-02_JPRB,.758E-02_JPRB,.838E-02_JPRB,.882E-02_JPRB,&
+&.930E-02_JPRB,.747E-02_JPRB,.613E-02_JPRB,.457E-02_JPRB,.363E-02_JPRB,.327E-02_JPRB,.294E-02_JPRB,&
+&.260E-02_JPRB,.247E-02_JPRB,.236E-02_JPRB,.225E-02_JPRB,.218E-02_JPRB,.210E-02_JPRB,.194E-02_JPRB,&
+&.192E-02_JPRB,.193E-02_JPRB,.200E-02_JPRB,.231E-02_JPRB,.304E-02_JPRB,.485E-02_JPRB,.730E-02_JPRB,&
+&.766E-02_JPRB,.701E-02_JPRB,.508E-02_JPRB,.409E-02_JPRB,.305E-02_JPRB,.223E-02_JPRB,.201E-02_JPRB,&
+&.185E-02_JPRB,.170E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 18  22.0
+ZAER (:,18, 9) = (/&
+&.146E-02_JPRB,.146E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.119E-02_JPRB,&
+&.114E-02_JPRB,.109E-02_JPRB,.101E-02_JPRB,.962E-03_JPRB,.927E-03_JPRB,.964E-03_JPRB,.102E-02_JPRB,&
+&.113E-02_JPRB,.121E-02_JPRB,.127E-02_JPRB,.135E-02_JPRB,.177E-02_JPRB,.231E-02_JPRB,.304E-02_JPRB,&
+&.417E-02_JPRB,.564E-02_JPRB,.726E-02_JPRB,.146E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.910E-02_JPRB,&
+&.680E-02_JPRB,.497E-02_JPRB,.361E-02_JPRB,.303E-02_JPRB,.267E-02_JPRB,.243E-02_JPRB,.290E-02_JPRB,&
+&.347E-02_JPRB,.469E-02_JPRB,.656E-02_JPRB,.831E-02_JPRB,.111E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.904E-02_JPRB,.707E-02_JPRB,.489E-02_JPRB,.363E-02_JPRB,.326E-02_JPRB,.292E-02_JPRB,&
+&.258E-02_JPRB,.243E-02_JPRB,.230E-02_JPRB,.219E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,.196E-02_JPRB,&
+&.207E-02_JPRB,.219E-02_JPRB,.248E-02_JPRB,.313E-02_JPRB,.426E-02_JPRB,.685E-02_JPRB,.966E-02_JPRB,&
+&.973E-02_JPRB,.822E-02_JPRB,.518E-02_JPRB,.387E-02_JPRB,.262E-02_JPRB,.197E-02_JPRB,.177E-02_JPRB,&
+&.161E-02_JPRB,.147E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 19  18.0
+ZAER (:,19, 9) = (/&
+&.108E-02_JPRB,.108E-02_JPRB,.974E-03_JPRB,.100E-02_JPRB,.103E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,&
+&.105E-02_JPRB,.104E-02_JPRB,.100E-02_JPRB,.972E-03_JPRB,.940E-03_JPRB,.101E-02_JPRB,.109E-02_JPRB,&
+&.126E-02_JPRB,.148E-02_JPRB,.166E-02_JPRB,.191E-02_JPRB,.262E-02_JPRB,.349E-02_JPRB,.464E-02_JPRB,&
+&.601E-02_JPRB,.794E-02_JPRB,.101E-01_JPRB,.181E-01_JPRB,.188E-01_JPRB,.190E-01_JPRB,.119E-01_JPRB,&
+&.869E-02_JPRB,.612E-02_JPRB,.387E-02_JPRB,.310E-02_JPRB,.265E-02_JPRB,.255E-02_JPRB,.329E-02_JPRB,&
+&.412E-02_JPRB,.578E-02_JPRB,.871E-02_JPRB,.110E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,&
+&.132E-01_JPRB,.941E-02_JPRB,.736E-02_JPRB,.517E-02_JPRB,.372E-02_JPRB,.328E-02_JPRB,.288E-02_JPRB,&
+&.252E-02_JPRB,.240E-02_JPRB,.228E-02_JPRB,.220E-02_JPRB,.215E-02_JPRB,.212E-02_JPRB,.206E-02_JPRB,&
+&.230E-02_JPRB,.255E-02_JPRB,.307E-02_JPRB,.418E-02_JPRB,.556E-02_JPRB,.834E-02_JPRB,.100E-01_JPRB,&
+&.950E-02_JPRB,.732E-02_JPRB,.414E-02_JPRB,.297E-02_JPRB,.198E-02_JPRB,.153E-02_JPRB,.137E-02_JPRB,&
+&.123E-02_JPRB,.109E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 20  14.0
+ZAER (:,20, 9) = (/&
+&.753E-03_JPRB,.753E-03_JPRB,.728E-03_JPRB,.783E-03_JPRB,.838E-03_JPRB,.956E-03_JPRB,.999E-03_JPRB,&
+&.104E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.112E-02_JPRB,.122E-02_JPRB,&
+&.143E-02_JPRB,.188E-02_JPRB,.226E-02_JPRB,.277E-02_JPRB,.385E-02_JPRB,.495E-02_JPRB,.636E-02_JPRB,&
+&.803E-02_JPRB,.101E-01_JPRB,.123E-01_JPRB,.194E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.130E-01_JPRB,&
+&.928E-02_JPRB,.628E-02_JPRB,.378E-02_JPRB,.319E-02_JPRB,.290E-02_JPRB,.302E-02_JPRB,.392E-02_JPRB,&
+&.494E-02_JPRB,.706E-02_JPRB,.108E-01_JPRB,.128E-01_JPRB,.149E-01_JPRB,.143E-01_JPRB,.136E-01_JPRB,&
+&.126E-01_JPRB,.929E-02_JPRB,.742E-02_JPRB,.539E-02_JPRB,.381E-02_JPRB,.335E-02_JPRB,.295E-02_JPRB,&
+&.252E-02_JPRB,.243E-02_JPRB,.234E-02_JPRB,.228E-02_JPRB,.224E-02_JPRB,.222E-02_JPRB,.225E-02_JPRB,&
+&.256E-02_JPRB,.290E-02_JPRB,.366E-02_JPRB,.500E-02_JPRB,.613E-02_JPRB,.795E-02_JPRB,.785E-02_JPRB,&
+&.692E-02_JPRB,.497E-02_JPRB,.280E-02_JPRB,.206E-02_JPRB,.149E-02_JPRB,.116E-02_JPRB,.102E-02_JPRB,&
+&.877E-03_JPRB,.757E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 21  10.0
+ZAER (:,21, 9) = (/&
+&.594E-03_JPRB,.595E-03_JPRB,.624E-03_JPRB,.693E-03_JPRB,.761E-03_JPRB,.900E-03_JPRB,.974E-03_JPRB,&
+&.104E-02_JPRB,.116E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.135E-02_JPRB,.148E-02_JPRB,&
+&.172E-02_JPRB,.237E-02_JPRB,.292E-02_JPRB,.370E-02_JPRB,.514E-02_JPRB,.635E-02_JPRB,.785E-02_JPRB,&
+&.937E-02_JPRB,.113E-01_JPRB,.133E-01_JPRB,.190E-01_JPRB,.194E-01_JPRB,.193E-01_JPRB,.120E-01_JPRB,&
+&.840E-02_JPRB,.555E-02_JPRB,.355E-02_JPRB,.338E-02_JPRB,.334E-02_JPRB,.363E-02_JPRB,.449E-02_JPRB,&
+&.555E-02_JPRB,.782E-02_JPRB,.121E-01_JPRB,.141E-01_JPRB,.156E-01_JPRB,.138E-01_JPRB,.131E-01_JPRB,&
+&.125E-01_JPRB,.959E-02_JPRB,.768E-02_JPRB,.555E-02_JPRB,.395E-02_JPRB,.351E-02_JPRB,.311E-02_JPRB,&
+&.260E-02_JPRB,.251E-02_JPRB,.243E-02_JPRB,.235E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.240E-02_JPRB,&
+&.284E-02_JPRB,.331E-02_JPRB,.434E-02_JPRB,.535E-02_JPRB,.596E-02_JPRB,.660E-02_JPRB,.574E-02_JPRB,&
+&.484E-02_JPRB,.341E-02_JPRB,.215E-02_JPRB,.167E-02_JPRB,.127E-02_JPRB,.974E-03_JPRB,.833E-03_JPRB,&
+&.689E-03_JPRB,.597E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 22   6.0
+ZAER (:,22, 9) = (/&
+&.556E-03_JPRB,.557E-03_JPRB,.582E-03_JPRB,.642E-03_JPRB,.702E-03_JPRB,.837E-03_JPRB,.924E-03_JPRB,&
+&.100E-02_JPRB,.115E-02_JPRB,.123E-02_JPRB,.130E-02_JPRB,.144E-02_JPRB,.162E-02_JPRB,.180E-02_JPRB,&
+&.209E-02_JPRB,.282E-02_JPRB,.343E-02_JPRB,.429E-02_JPRB,.587E-02_JPRB,.712E-02_JPRB,.866E-02_JPRB,&
+&.104E-01_JPRB,.120E-01_JPRB,.137E-01_JPRB,.167E-01_JPRB,.160E-01_JPRB,.150E-01_JPRB,.968E-02_JPRB,&
+&.692E-02_JPRB,.477E-02_JPRB,.340E-02_JPRB,.349E-02_JPRB,.361E-02_JPRB,.391E-02_JPRB,.463E-02_JPRB,&
+&.564E-02_JPRB,.792E-02_JPRB,.123E-01_JPRB,.144E-01_JPRB,.163E-01_JPRB,.143E-01_JPRB,.135E-01_JPRB,&
+&.127E-01_JPRB,.952E-02_JPRB,.763E-02_JPRB,.555E-02_JPRB,.404E-02_JPRB,.360E-02_JPRB,.321E-02_JPRB,&
+&.271E-02_JPRB,.260E-02_JPRB,.250E-02_JPRB,.232E-02_JPRB,.230E-02_JPRB,.232E-02_JPRB,.253E-02_JPRB,&
+&.321E-02_JPRB,.381E-02_JPRB,.488E-02_JPRB,.544E-02_JPRB,.560E-02_JPRB,.545E-02_JPRB,.454E-02_JPRB,&
+&.383E-02_JPRB,.282E-02_JPRB,.190E-02_JPRB,.153E-02_JPRB,.118E-02_JPRB,.913E-03_JPRB,.779E-03_JPRB,&
+&.642E-03_JPRB,.559E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 23   2.0
+ZAER (:,23, 9) = (/&
+&.565E-03_JPRB,.565E-03_JPRB,.572E-03_JPRB,.602E-03_JPRB,.638E-03_JPRB,.751E-03_JPRB,.841E-03_JPRB,&
+&.920E-03_JPRB,.106E-02_JPRB,.120E-02_JPRB,.132E-02_JPRB,.152E-02_JPRB,.176E-02_JPRB,.198E-02_JPRB,&
+&.233E-02_JPRB,.310E-02_JPRB,.367E-02_JPRB,.444E-02_JPRB,.589E-02_JPRB,.710E-02_JPRB,.861E-02_JPRB,&
+&.108E-01_JPRB,.118E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.117E-01_JPRB,.102E-01_JPRB,.736E-02_JPRB,&
+&.556E-02_JPRB,.415E-02_JPRB,.323E-02_JPRB,.335E-02_JPRB,.346E-02_JPRB,.369E-02_JPRB,.446E-02_JPRB,&
+&.534E-02_JPRB,.717E-02_JPRB,.101E-01_JPRB,.115E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.119E-01_JPRB,&
+&.113E-01_JPRB,.842E-02_JPRB,.683E-02_JPRB,.513E-02_JPRB,.384E-02_JPRB,.342E-02_JPRB,.304E-02_JPRB,&
+&.264E-02_JPRB,.251E-02_JPRB,.239E-02_JPRB,.217E-02_JPRB,.212E-02_JPRB,.214E-02_JPRB,.249E-02_JPRB,&
+&.319E-02_JPRB,.376E-02_JPRB,.460E-02_JPRB,.504E-02_JPRB,.511E-02_JPRB,.481E-02_JPRB,.398E-02_JPRB,&
+&.338E-02_JPRB,.257E-02_JPRB,.177E-02_JPRB,.145E-02_JPRB,.116E-02_JPRB,.913E-03_JPRB,.789E-03_JPRB,&
+&.662E-03_JPRB,.568E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 24  -2.0
+ZAER (:,24, 9) = (/&
+&.574E-03_JPRB,.574E-03_JPRB,.561E-03_JPRB,.574E-03_JPRB,.592E-03_JPRB,.673E-03_JPRB,.751E-03_JPRB,&
+&.823E-03_JPRB,.962E-03_JPRB,.112E-02_JPRB,.126E-02_JPRB,.151E-02_JPRB,.175E-02_JPRB,.195E-02_JPRB,&
+&.226E-02_JPRB,.295E-02_JPRB,.342E-02_JPRB,.402E-02_JPRB,.510E-02_JPRB,.604E-02_JPRB,.721E-02_JPRB,&
+&.906E-02_JPRB,.940E-02_JPRB,.964E-02_JPRB,.879E-02_JPRB,.781E-02_JPRB,.679E-02_JPRB,.477E-02_JPRB,&
+&.386E-02_JPRB,.317E-02_JPRB,.285E-02_JPRB,.287E-02_JPRB,.293E-02_JPRB,.315E-02_JPRB,.381E-02_JPRB,&
+&.440E-02_JPRB,.544E-02_JPRB,.656E-02_JPRB,.690E-02_JPRB,.688E-02_JPRB,.746E-02_JPRB,.769E-02_JPRB,&
+&.789E-02_JPRB,.609E-02_JPRB,.518E-02_JPRB,.422E-02_JPRB,.346E-02_JPRB,.313E-02_JPRB,.282E-02_JPRB,&
+&.240E-02_JPRB,.229E-02_JPRB,.219E-02_JPRB,.209E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.223E-02_JPRB,&
+&.266E-02_JPRB,.305E-02_JPRB,.377E-02_JPRB,.428E-02_JPRB,.441E-02_JPRB,.421E-02_JPRB,.359E-02_JPRB,&
+&.312E-02_JPRB,.246E-02_JPRB,.174E-02_JPRB,.144E-02_JPRB,.115E-02_JPRB,.920E-03_JPRB,.810E-03_JPRB,&
+&.698E-03_JPRB,.578E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 25  -6.0
+ZAER (:,25, 9) = (/&
+&.569E-03_JPRB,.568E-03_JPRB,.543E-03_JPRB,.547E-03_JPRB,.556E-03_JPRB,.611E-03_JPRB,.670E-03_JPRB,&
+&.727E-03_JPRB,.838E-03_JPRB,.977E-03_JPRB,.110E-02_JPRB,.134E-02_JPRB,.153E-02_JPRB,.167E-02_JPRB,&
+&.187E-02_JPRB,.236E-02_JPRB,.271E-02_JPRB,.316E-02_JPRB,.379E-02_JPRB,.436E-02_JPRB,.507E-02_JPRB,&
+&.626E-02_JPRB,.642E-02_JPRB,.651E-02_JPRB,.568E-02_JPRB,.509E-02_JPRB,.447E-02_JPRB,.300E-02_JPRB,&
+&.255E-02_JPRB,.223E-02_JPRB,.222E-02_JPRB,.225E-02_JPRB,.232E-02_JPRB,.255E-02_JPRB,.315E-02_JPRB,&
+&.363E-02_JPRB,.436E-02_JPRB,.467E-02_JPRB,.455E-02_JPRB,.405E-02_JPRB,.447E-02_JPRB,.471E-02_JPRB,&
+&.499E-02_JPRB,.401E-02_JPRB,.368E-02_JPRB,.340E-02_JPRB,.312E-02_JPRB,.295E-02_JPRB,.278E-02_JPRB,&
+&.242E-02_JPRB,.240E-02_JPRB,.239E-02_JPRB,.251E-02_JPRB,.247E-02_JPRB,.243E-02_JPRB,.235E-02_JPRB,&
+&.252E-02_JPRB,.276E-02_JPRB,.338E-02_JPRB,.390E-02_JPRB,.405E-02_JPRB,.390E-02_JPRB,.333E-02_JPRB,&
+&.292E-02_JPRB,.236E-02_JPRB,.183E-02_JPRB,.153E-02_JPRB,.121E-02_JPRB,.930E-03_JPRB,.819E-03_JPRB,&
+&.713E-03_JPRB,.574E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 26 -10.0
+ZAER (:,26, 9) = (/&
+&.562E-03_JPRB,.561E-03_JPRB,.542E-03_JPRB,.542E-03_JPRB,.545E-03_JPRB,.579E-03_JPRB,.625E-03_JPRB,&
+&.668E-03_JPRB,.756E-03_JPRB,.850E-03_JPRB,.944E-03_JPRB,.113E-02_JPRB,.122E-02_JPRB,.130E-02_JPRB,&
+&.142E-02_JPRB,.177E-02_JPRB,.201E-02_JPRB,.233E-02_JPRB,.265E-02_JPRB,.290E-02_JPRB,.321E-02_JPRB,&
+&.394E-02_JPRB,.407E-02_JPRB,.415E-02_JPRB,.360E-02_JPRB,.328E-02_JPRB,.295E-02_JPRB,.210E-02_JPRB,&
+&.185E-02_JPRB,.167E-02_JPRB,.169E-02_JPRB,.179E-02_JPRB,.189E-02_JPRB,.215E-02_JPRB,.260E-02_JPRB,&
+&.294E-02_JPRB,.342E-02_JPRB,.350E-02_JPRB,.339E-02_JPRB,.305E-02_JPRB,.322E-02_JPRB,.338E-02_JPRB,&
+&.361E-02_JPRB,.318E-02_JPRB,.308E-02_JPRB,.301E-02_JPRB,.300E-02_JPRB,.298E-02_JPRB,.296E-02_JPRB,&
+&.293E-02_JPRB,.315E-02_JPRB,.337E-02_JPRB,.378E-02_JPRB,.363E-02_JPRB,.351E-02_JPRB,.333E-02_JPRB,&
+&.355E-02_JPRB,.382E-02_JPRB,.446E-02_JPRB,.458E-02_JPRB,.446E-02_JPRB,.398E-02_JPRB,.339E-02_JPRB,&
+&.296E-02_JPRB,.236E-02_JPRB,.191E-02_JPRB,.162E-02_JPRB,.129E-02_JPRB,.973E-03_JPRB,.842E-03_JPRB,&
+&.716E-03_JPRB,.567E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 27 -14.0
+ZAER (:,27, 9) = (/&
+&.569E-03_JPRB,.569E-03_JPRB,.565E-03_JPRB,.566E-03_JPRB,.569E-03_JPRB,.599E-03_JPRB,.642E-03_JPRB,&
+&.680E-03_JPRB,.747E-03_JPRB,.812E-03_JPRB,.873E-03_JPRB,.984E-03_JPRB,.103E-02_JPRB,.107E-02_JPRB,&
+&.113E-02_JPRB,.147E-02_JPRB,.166E-02_JPRB,.187E-02_JPRB,.202E-02_JPRB,.212E-02_JPRB,.223E-02_JPRB,&
+&.260E-02_JPRB,.270E-02_JPRB,.279E-02_JPRB,.237E-02_JPRB,.219E-02_JPRB,.200E-02_JPRB,.162E-02_JPRB,&
+&.151E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,.150E-02_JPRB,.159E-02_JPRB,.178E-02_JPRB,.209E-02_JPRB,&
+&.232E-02_JPRB,.263E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.266E-02_JPRB,.277E-02_JPRB,.291E-02_JPRB,&
+&.311E-02_JPRB,.310E-02_JPRB,.315E-02_JPRB,.321E-02_JPRB,.335E-02_JPRB,.346E-02_JPRB,.358E-02_JPRB,&
+&.394E-02_JPRB,.449E-02_JPRB,.501E-02_JPRB,.572E-02_JPRB,.554E-02_JPRB,.543E-02_JPRB,.550E-02_JPRB,&
+&.624E-02_JPRB,.684E-02_JPRB,.777E-02_JPRB,.648E-02_JPRB,.560E-02_JPRB,.445E-02_JPRB,.377E-02_JPRB,&
+&.325E-02_JPRB,.253E-02_JPRB,.191E-02_JPRB,.162E-02_JPRB,.133E-02_JPRB,.102E-02_JPRB,.867E-03_JPRB,&
+&.710E-03_JPRB,.573E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 28 -18.0
+ZAER (:,28, 9) = (/&
+&.581E-03_JPRB,.581E-03_JPRB,.593E-03_JPRB,.601E-03_JPRB,.612E-03_JPRB,.647E-03_JPRB,.688E-03_JPRB,&
+&.721E-03_JPRB,.770E-03_JPRB,.819E-03_JPRB,.867E-03_JPRB,.962E-03_JPRB,.101E-02_JPRB,.104E-02_JPRB,&
+&.108E-02_JPRB,.141E-02_JPRB,.157E-02_JPRB,.173E-02_JPRB,.179E-02_JPRB,.183E-02_JPRB,.188E-02_JPRB,&
+&.194E-02_JPRB,.200E-02_JPRB,.207E-02_JPRB,.181E-02_JPRB,.162E-02_JPRB,.143E-02_JPRB,.126E-02_JPRB,&
+&.125E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.132E-02_JPRB,.139E-02_JPRB,.154E-02_JPRB,.179E-02_JPRB,&
+&.197E-02_JPRB,.221E-02_JPRB,.234E-02_JPRB,.243E-02_JPRB,.254E-02_JPRB,.269E-02_JPRB,.282E-02_JPRB,&
+&.299E-02_JPRB,.318E-02_JPRB,.338E-02_JPRB,.362E-02_JPRB,.409E-02_JPRB,.432E-02_JPRB,.455E-02_JPRB,&
+&.512E-02_JPRB,.575E-02_JPRB,.635E-02_JPRB,.724E-02_JPRB,.712E-02_JPRB,.715E-02_JPRB,.789E-02_JPRB,&
+&.987E-02_JPRB,.113E-01_JPRB,.129E-01_JPRB,.961E-02_JPRB,.757E-02_JPRB,.526E-02_JPRB,.413E-02_JPRB,&
+&.344E-02_JPRB,.262E-02_JPRB,.185E-02_JPRB,.158E-02_JPRB,.135E-02_JPRB,.107E-02_JPRB,.907E-03_JPRB,&
+&.734E-03_JPRB,.586E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 29 -22.0
+ZAER (:,29, 9) = (/&
+&.614E-03_JPRB,.615E-03_JPRB,.631E-03_JPRB,.640E-03_JPRB,.651E-03_JPRB,.691E-03_JPRB,.737E-03_JPRB,&
+&.770E-03_JPRB,.801E-03_JPRB,.836E-03_JPRB,.884E-03_JPRB,.100E-02_JPRB,.111E-02_JPRB,.116E-02_JPRB,&
+&.120E-02_JPRB,.143E-02_JPRB,.158E-02_JPRB,.175E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.183E-02_JPRB,&
+&.169E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.149E-02_JPRB,.130E-02_JPRB,.111E-02_JPRB,.985E-03_JPRB,&
+&.102E-02_JPRB,.105E-02_JPRB,.112E-02_JPRB,.122E-02_JPRB,.131E-02_JPRB,.144E-02_JPRB,.167E-02_JPRB,&
+&.184E-02_JPRB,.209E-02_JPRB,.227E-02_JPRB,.240E-02_JPRB,.258E-02_JPRB,.285E-02_JPRB,.302E-02_JPRB,&
+&.322E-02_JPRB,.334E-02_JPRB,.360E-02_JPRB,.395E-02_JPRB,.475E-02_JPRB,.508E-02_JPRB,.539E-02_JPRB,&
+&.594E-02_JPRB,.631E-02_JPRB,.665E-02_JPRB,.714E-02_JPRB,.690E-02_JPRB,.701E-02_JPRB,.875E-02_JPRB,&
+&.127E-01_JPRB,.154E-01_JPRB,.185E-01_JPRB,.138E-01_JPRB,.106E-01_JPRB,.650E-02_JPRB,.429E-02_JPRB,&
+&.332E-02_JPRB,.251E-02_JPRB,.183E-02_JPRB,.160E-02_JPRB,.142E-02_JPRB,.112E-02_JPRB,.954E-03_JPRB,&
+&.781E-03_JPRB,.619E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 30 -26.0
+ZAER (:,30, 9) = (/&
+&.706E-03_JPRB,.706E-03_JPRB,.704E-03_JPRB,.691E-03_JPRB,.685E-03_JPRB,.728E-03_JPRB,.784E-03_JPRB,&
+&.821E-03_JPRB,.840E-03_JPRB,.859E-03_JPRB,.908E-03_JPRB,.106E-02_JPRB,.126E-02_JPRB,.135E-02_JPRB,&
+&.139E-02_JPRB,.149E-02_JPRB,.164E-02_JPRB,.188E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.204E-02_JPRB,&
+&.174E-02_JPRB,.160E-02_JPRB,.147E-02_JPRB,.125E-02_JPRB,.109E-02_JPRB,.936E-03_JPRB,.827E-03_JPRB,&
+&.854E-03_JPRB,.886E-03_JPRB,.982E-03_JPRB,.113E-02_JPRB,.125E-02_JPRB,.142E-02_JPRB,.162E-02_JPRB,&
+&.179E-02_JPRB,.207E-02_JPRB,.228E-02_JPRB,.247E-02_JPRB,.275E-02_JPRB,.320E-02_JPRB,.347E-02_JPRB,&
+&.379E-02_JPRB,.368E-02_JPRB,.385E-02_JPRB,.412E-02_JPRB,.499E-02_JPRB,.540E-02_JPRB,.579E-02_JPRB,&
+&.622E-02_JPRB,.612E-02_JPRB,.600E-02_JPRB,.559E-02_JPRB,.527E-02_JPRB,.549E-02_JPRB,.836E-02_JPRB,&
+&.142E-01_JPRB,.183E-01_JPRB,.232E-01_JPRB,.185E-01_JPRB,.146E-01_JPRB,.830E-02_JPRB,.460E-02_JPRB,&
+&.320E-02_JPRB,.237E-02_JPRB,.187E-02_JPRB,.170E-02_JPRB,.156E-02_JPRB,.120E-02_JPRB,.103E-02_JPRB,&
+&.847E-03_JPRB,.711E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 31 -30.0
+ZAER (:,31, 9) = (/&
+&.923E-03_JPRB,.921E-03_JPRB,.852E-03_JPRB,.783E-03_JPRB,.733E-03_JPRB,.770E-03_JPRB,.835E-03_JPRB,&
+&.878E-03_JPRB,.899E-03_JPRB,.898E-03_JPRB,.947E-03_JPRB,.113E-02_JPRB,.140E-02_JPRB,.150E-02_JPRB,&
+&.153E-02_JPRB,.153E-02_JPRB,.171E-02_JPRB,.205E-02_JPRB,.258E-02_JPRB,.259E-02_JPRB,.248E-02_JPRB,&
+&.202E-02_JPRB,.178E-02_JPRB,.153E-02_JPRB,.114E-02_JPRB,.993E-03_JPRB,.856E-03_JPRB,.783E-03_JPRB,&
+&.789E-03_JPRB,.803E-03_JPRB,.879E-03_JPRB,.102E-02_JPRB,.115E-02_JPRB,.137E-02_JPRB,.158E-02_JPRB,&
+&.174E-02_JPRB,.200E-02_JPRB,.225E-02_JPRB,.252E-02_JPRB,.298E-02_JPRB,.387E-02_JPRB,.432E-02_JPRB,&
+&.481E-02_JPRB,.446E-02_JPRB,.442E-02_JPRB,.443E-02_JPRB,.511E-02_JPRB,.562E-02_JPRB,.614E-02_JPRB,&
+&.642E-02_JPRB,.582E-02_JPRB,.522E-02_JPRB,.395E-02_JPRB,.369E-02_JPRB,.403E-02_JPRB,.737E-02_JPRB,&
+&.138E-01_JPRB,.186E-01_JPRB,.249E-01_JPRB,.217E-01_JPRB,.179E-01_JPRB,.103E-01_JPRB,.556E-02_JPRB,&
+&.371E-02_JPRB,.252E-02_JPRB,.207E-02_JPRB,.192E-02_JPRB,.182E-02_JPRB,.144E-02_JPRB,.125E-02_JPRB,&
+&.105E-02_JPRB,.927E-03_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 32 -34.0
+ZAER (:,32, 9) = (/&
+&.130E-02_JPRB,.129E-02_JPRB,.108E-02_JPRB,.945E-03_JPRB,.840E-03_JPRB,.843E-03_JPRB,.904E-03_JPRB,&
+&.944E-03_JPRB,.966E-03_JPRB,.949E-03_JPRB,.994E-03_JPRB,.119E-02_JPRB,.144E-02_JPRB,.153E-02_JPRB,&
+&.153E-02_JPRB,.152E-02_JPRB,.173E-02_JPRB,.214E-02_JPRB,.286E-02_JPRB,.297E-02_JPRB,.297E-02_JPRB,&
+&.241E-02_JPRB,.206E-02_JPRB,.169E-02_JPRB,.114E-02_JPRB,.991E-03_JPRB,.856E-03_JPRB,.801E-03_JPRB,&
+&.799E-03_JPRB,.802E-03_JPRB,.836E-03_JPRB,.927E-03_JPRB,.103E-02_JPRB,.127E-02_JPRB,.158E-02_JPRB,&
+&.179E-02_JPRB,.204E-02_JPRB,.239E-02_JPRB,.279E-02_JPRB,.348E-02_JPRB,.514E-02_JPRB,.594E-02_JPRB,&
+&.674E-02_JPRB,.613E-02_JPRB,.582E-02_JPRB,.551E-02_JPRB,.583E-02_JPRB,.641E-02_JPRB,.703E-02_JPRB,&
+&.715E-02_JPRB,.618E-02_JPRB,.522E-02_JPRB,.342E-02_JPRB,.320E-02_JPRB,.345E-02_JPRB,.600E-02_JPRB,&
+&.113E-01_JPRB,.156E-01_JPRB,.222E-01_JPRB,.212E-01_JPRB,.184E-01_JPRB,.116E-01_JPRB,.691E-02_JPRB,&
+&.484E-02_JPRB,.312E-02_JPRB,.250E-02_JPRB,.231E-02_JPRB,.218E-02_JPRB,.188E-02_JPRB,.169E-02_JPRB,&
+&.148E-02_JPRB,.130E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 33 -38.0
+ZAER (:,33, 9) = (/&
+&.173E-02_JPRB,.172E-02_JPRB,.135E-02_JPRB,.117E-02_JPRB,.103E-02_JPRB,.982E-03_JPRB,.101E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.104E-02_JPRB,.121E-02_JPRB,.138E-02_JPRB,.143E-02_JPRB,&
+&.140E-02_JPRB,.145E-02_JPRB,.167E-02_JPRB,.209E-02_JPRB,.285E-02_JPRB,.305E-02_JPRB,.318E-02_JPRB,&
+&.269E-02_JPRB,.227E-02_JPRB,.182E-02_JPRB,.119E-02_JPRB,.104E-02_JPRB,.911E-03_JPRB,.832E-03_JPRB,&
+&.825E-03_JPRB,.821E-03_JPRB,.831E-03_JPRB,.874E-03_JPRB,.950E-03_JPRB,.120E-02_JPRB,.172E-02_JPRB,&
+&.208E-02_JPRB,.251E-02_JPRB,.334E-02_JPRB,.408E-02_JPRB,.523E-02_JPRB,.784E-02_JPRB,.904E-02_JPRB,&
+&.102E-01_JPRB,.916E-02_JPRB,.859E-02_JPRB,.797E-02_JPRB,.774E-02_JPRB,.814E-02_JPRB,.860E-02_JPRB,&
+&.848E-02_JPRB,.733E-02_JPRB,.621E-02_JPRB,.427E-02_JPRB,.391E-02_JPRB,.382E-02_JPRB,.484E-02_JPRB,&
+&.788E-02_JPRB,.107E-01_JPRB,.159E-01_JPRB,.166E-01_JPRB,.154E-01_JPRB,.112E-01_JPRB,.770E-02_JPRB,&
+&.586E-02_JPRB,.395E-02_JPRB,.308E-02_JPRB,.277E-02_JPRB,.253E-02_JPRB,.231E-02_JPRB,.215E-02_JPRB,&
+&.198E-02_JPRB,.174E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 34 -42.0
+ZAER (:,34, 9) = (/&
+&.201E-02_JPRB,.200E-02_JPRB,.157E-02_JPRB,.140E-02_JPRB,.126E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.119E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,&
+&.129E-02_JPRB,.135E-02_JPRB,.154E-02_JPRB,.188E-02_JPRB,.252E-02_JPRB,.271E-02_JPRB,.285E-02_JPRB,&
+&.259E-02_JPRB,.224E-02_JPRB,.185E-02_JPRB,.125E-02_JPRB,.111E-02_JPRB,.982E-03_JPRB,.867E-03_JPRB,&
+&.847E-03_JPRB,.833E-03_JPRB,.835E-03_JPRB,.882E-03_JPRB,.975E-03_JPRB,.129E-02_JPRB,.217E-02_JPRB,&
+&.289E-02_JPRB,.403E-02_JPRB,.655E-02_JPRB,.827E-02_JPRB,.105E-01_JPRB,.133E-01_JPRB,.145E-01_JPRB,&
+&.155E-01_JPRB,.141E-01_JPRB,.132E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,&
+&.101E-01_JPRB,.886E-02_JPRB,.771E-02_JPRB,.592E-02_JPRB,.530E-02_JPRB,.486E-02_JPRB,.465E-02_JPRB,&
+&.565E-02_JPRB,.680E-02_JPRB,.945E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.934E-02_JPRB,.732E-02_JPRB,&
+&.604E-02_JPRB,.448E-02_JPRB,.354E-02_JPRB,.313E-02_JPRB,.275E-02_JPRB,.246E-02_JPRB,.236E-02_JPRB,&
+&.226E-02_JPRB,.202E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 35 -46.0
+ZAER (:,35, 9) = (/&
+&.200E-02_JPRB,.199E-02_JPRB,.165E-02_JPRB,.152E-02_JPRB,.141E-02_JPRB,.127E-02_JPRB,.122E-02_JPRB,&
+&.119E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,&
+&.125E-02_JPRB,.131E-02_JPRB,.143E-02_JPRB,.163E-02_JPRB,.200E-02_JPRB,.211E-02_JPRB,.219E-02_JPRB,&
+&.208E-02_JPRB,.188E-02_JPRB,.165E-02_JPRB,.125E-02_JPRB,.113E-02_JPRB,.102E-02_JPRB,.914E-03_JPRB,&
+&.886E-03_JPRB,.866E-03_JPRB,.869E-03_JPRB,.966E-03_JPRB,.113E-02_JPRB,.168E-02_JPRB,.326E-02_JPRB,&
+&.479E-02_JPRB,.761E-02_JPRB,.139E-01_JPRB,.176E-01_JPRB,.218E-01_JPRB,.222E-01_JPRB,.223E-01_JPRB,&
+&.222E-01_JPRB,.210E-01_JPRB,.194E-01_JPRB,.176E-01_JPRB,.150E-01_JPRB,.139E-01_JPRB,.128E-01_JPRB,&
+&.115E-01_JPRB,.104E-01_JPRB,.931E-02_JPRB,.764E-02_JPRB,.677E-02_JPRB,.608E-02_JPRB,.530E-02_JPRB,&
+&.524E-02_JPRB,.536E-02_JPRB,.596E-02_JPRB,.694E-02_JPRB,.729E-02_JPRB,.722E-02_JPRB,.606E-02_JPRB,&
+&.528E-02_JPRB,.429E-02_JPRB,.356E-02_JPRB,.316E-02_JPRB,.273E-02_JPRB,.236E-02_JPRB,.228E-02_JPRB,&
+&.221E-02_JPRB,.200E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 36 -50.0
+ZAER (:,36, 9) = (/&
+&.177E-02_JPRB,.176E-02_JPRB,.156E-02_JPRB,.148E-02_JPRB,.141E-02_JPRB,.129E-02_JPRB,.124E-02_JPRB,&
+&.121E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,&
+&.121E-02_JPRB,.127E-02_JPRB,.132E-02_JPRB,.141E-02_JPRB,.155E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.147E-02_JPRB,.140E-02_JPRB,.132E-02_JPRB,.115E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,.933E-03_JPRB,&
+&.916E-03_JPRB,.907E-03_JPRB,.934E-03_JPRB,.111E-02_JPRB,.140E-02_JPRB,.234E-02_JPRB,.484E-02_JPRB,&
+&.751E-02_JPRB,.128E-01_JPRB,.230E-01_JPRB,.288E-01_JPRB,.350E-01_JPRB,.316E-01_JPRB,.299E-01_JPRB,&
+&.281E-01_JPRB,.265E-01_JPRB,.244E-01_JPRB,.216E-01_JPRB,.176E-01_JPRB,.159E-01_JPRB,.142E-01_JPRB,&
+&.124E-01_JPRB,.115E-01_JPRB,.107E-01_JPRB,.914E-02_JPRB,.812E-02_JPRB,.728E-02_JPRB,.615E-02_JPRB,&
+&.565E-02_JPRB,.529E-02_JPRB,.487E-02_JPRB,.513E-02_JPRB,.525E-02_JPRB,.529E-02_JPRB,.458E-02_JPRB,&
+&.411E-02_JPRB,.350E-02_JPRB,.307E-02_JPRB,.279E-02_JPRB,.245E-02_JPRB,.211E-02_JPRB,.202E-02_JPRB,&
+&.195E-02_JPRB,.177E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 37 -54.0
+ZAER (:,37, 9) = (/&
+&.156E-02_JPRB,.155E-02_JPRB,.143E-02_JPRB,.137E-02_JPRB,.132E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,&
+&.119E-02_JPRB,.114E-02_JPRB,.109E-02_JPRB,.105E-02_JPRB,.997E-03_JPRB,.101E-02_JPRB,.104E-02_JPRB,&
+&.110E-02_JPRB,.115E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,&
+&.112E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,.993E-03_JPRB,.922E-03_JPRB,&
+&.916E-03_JPRB,.922E-03_JPRB,.101E-02_JPRB,.124E-02_JPRB,.162E-02_JPRB,.283E-02_JPRB,.554E-02_JPRB,&
+&.833E-02_JPRB,.137E-01_JPRB,.224E-01_JPRB,.274E-01_JPRB,.328E-01_JPRB,.310E-01_JPRB,.297E-01_JPRB,&
+&.280E-01_JPRB,.259E-01_JPRB,.235E-01_JPRB,.206E-01_JPRB,.167E-01_JPRB,.153E-01_JPRB,.141E-01_JPRB,&
+&.125E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,.979E-02_JPRB,.874E-02_JPRB,.783E-02_JPRB,.644E-02_JPRB,&
+&.565E-02_JPRB,.507E-02_JPRB,.433E-02_JPRB,.408E-02_JPRB,.392E-02_JPRB,.375E-02_JPRB,.330E-02_JPRB,&
+&.302E-02_JPRB,.267E-02_JPRB,.236E-02_JPRB,.219E-02_JPRB,.200E-02_JPRB,.182E-02_JPRB,.175E-02_JPRB,&
+&.169E-02_JPRB,.156E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 38 -58.0
+ZAER (:,38, 9) = (/&
+&.139E-02_JPRB,.139E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,&
+&.111E-02_JPRB,.107E-02_JPRB,.102E-02_JPRB,.990E-03_JPRB,.950E-03_JPRB,.955E-03_JPRB,.966E-03_JPRB,&
+&.991E-03_JPRB,.100E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,&
+&.102E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.977E-03_JPRB,.945E-03_JPRB,.886E-03_JPRB,&
+&.896E-03_JPRB,.928E-03_JPRB,.112E-02_JPRB,.148E-02_JPRB,.195E-02_JPRB,.319E-02_JPRB,.535E-02_JPRB,&
+&.717E-02_JPRB,.102E-01_JPRB,.136E-01_JPRB,.158E-01_JPRB,.184E-01_JPRB,.191E-01_JPRB,.193E-01_JPRB,&
+&.194E-01_JPRB,.186E-01_JPRB,.173E-01_JPRB,.157E-01_JPRB,.133E-01_JPRB,.126E-01_JPRB,.119E-01_JPRB,&
+&.108E-01_JPRB,.102E-01_JPRB,.955E-02_JPRB,.843E-02_JPRB,.765E-02_JPRB,.696E-02_JPRB,.579E-02_JPRB,&
+&.504E-02_JPRB,.449E-02_JPRB,.377E-02_JPRB,.336E-02_JPRB,.310E-02_JPRB,.281E-02_JPRB,.249E-02_JPRB,&
+&.229E-02_JPRB,.205E-02_JPRB,.184E-02_JPRB,.174E-02_JPRB,.165E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,&
+&.150E-02_JPRB,.140E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 39 -62.0
+ZAER (:,39, 9) = (/&
+&.128E-02_JPRB,.128E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,&
+&.996E-03_JPRB,.961E-03_JPRB,.937E-03_JPRB,.921E-03_JPRB,.905E-03_JPRB,.911E-03_JPRB,.915E-03_JPRB,&
+&.920E-03_JPRB,.912E-03_JPRB,.910E-03_JPRB,.910E-03_JPRB,.929E-03_JPRB,.949E-03_JPRB,.975E-03_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.953E-03_JPRB,.906E-03_JPRB,.861E-03_JPRB,.815E-03_JPRB,&
+&.853E-03_JPRB,.922E-03_JPRB,.124E-02_JPRB,.175E-02_JPRB,.229E-02_JPRB,.345E-02_JPRB,.473E-02_JPRB,&
+&.560E-02_JPRB,.671E-02_JPRB,.755E-02_JPRB,.814E-02_JPRB,.892E-02_JPRB,.956E-02_JPRB,.988E-02_JPRB,&
+&.102E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.935E-02_JPRB,.889E-02_JPRB,.842E-02_JPRB,&
+&.753E-02_JPRB,.709E-02_JPRB,.668E-02_JPRB,.613E-02_JPRB,.580E-02_JPRB,.550E-02_JPRB,.491E-02_JPRB,&
+&.444E-02_JPRB,.407E-02_JPRB,.352E-02_JPRB,.314E-02_JPRB,.287E-02_JPRB,.251E-02_JPRB,.215E-02_JPRB,&
+&.196E-02_JPRB,.176E-02_JPRB,.162E-02_JPRB,.156E-02_JPRB,.151E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,&
+&.139E-02_JPRB,.129E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 40 -66.0
+ZAER (:,40, 9) = (/&
+&.122E-02_JPRB,.121E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,.101E-02_JPRB,.969E-03_JPRB,.948E-03_JPRB,&
+&.931E-03_JPRB,.909E-03_JPRB,.899E-03_JPRB,.894E-03_JPRB,.895E-03_JPRB,.901E-03_JPRB,.905E-03_JPRB,&
+&.909E-03_JPRB,.911E-03_JPRB,.915E-03_JPRB,.921E-03_JPRB,.942E-03_JPRB,.958E-03_JPRB,.977E-03_JPRB,&
+&.100E-02_JPRB,.997E-03_JPRB,.991E-03_JPRB,.923E-03_JPRB,.877E-03_JPRB,.834E-03_JPRB,.795E-03_JPRB,&
+&.845E-03_JPRB,.921E-03_JPRB,.123E-02_JPRB,.167E-02_JPRB,.207E-02_JPRB,.286E-02_JPRB,.353E-02_JPRB,&
+&.396E-02_JPRB,.445E-02_JPRB,.474E-02_JPRB,.494E-02_JPRB,.520E-02_JPRB,.548E-02_JPRB,.565E-02_JPRB,&
+&.585E-02_JPRB,.615E-02_JPRB,.623E-02_JPRB,.630E-02_JPRB,.608E-02_JPRB,.584E-02_JPRB,.557E-02_JPRB,&
+&.508E-02_JPRB,.488E-02_JPRB,.469E-02_JPRB,.449E-02_JPRB,.441E-02_JPRB,.432E-02_JPRB,.413E-02_JPRB,&
+&.393E-02_JPRB,.376E-02_JPRB,.344E-02_JPRB,.310E-02_JPRB,.286E-02_JPRB,.250E-02_JPRB,.217E-02_JPRB,&
+&.200E-02_JPRB,.181E-02_JPRB,.166E-02_JPRB,.160E-02_JPRB,.153E-02_JPRB,.145E-02_JPRB,.140E-02_JPRB,&
+&.134E-02_JPRB,.122E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 41 -70.0
+ZAER (:,41, 9) = (/&
+&.121E-02_JPRB,.121E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.980E-03_JPRB,.961E-03_JPRB,&
+&.947E-03_JPRB,.936E-03_JPRB,.935E-03_JPRB,.937E-03_JPRB,.944E-03_JPRB,.952E-03_JPRB,.957E-03_JPRB,&
+&.962E-03_JPRB,.968E-03_JPRB,.973E-03_JPRB,.979E-03_JPRB,.989E-03_JPRB,.996E-03_JPRB,.100E-02_JPRB,&
+&.101E-02_JPRB,.997E-03_JPRB,.987E-03_JPRB,.942E-03_JPRB,.913E-03_JPRB,.886E-03_JPRB,.872E-03_JPRB,&
+&.925E-03_JPRB,.994E-03_JPRB,.124E-02_JPRB,.154E-02_JPRB,.180E-02_JPRB,.226E-02_JPRB,.259E-02_JPRB,&
+&.280E-02_JPRB,.301E-02_JPRB,.315E-02_JPRB,.323E-02_JPRB,.333E-02_JPRB,.347E-02_JPRB,.356E-02_JPRB,&
+&.366E-02_JPRB,.381E-02_JPRB,.386E-02_JPRB,.390E-02_JPRB,.379E-02_JPRB,.369E-02_JPRB,.357E-02_JPRB,&
+&.340E-02_JPRB,.337E-02_JPRB,.334E-02_JPRB,.336E-02_JPRB,.340E-02_JPRB,.343E-02_JPRB,.346E-02_JPRB,&
+&.340E-02_JPRB,.333E-02_JPRB,.315E-02_JPRB,.291E-02_JPRB,.273E-02_JPRB,.248E-02_JPRB,.225E-02_JPRB,&
+&.211E-02_JPRB,.196E-02_JPRB,.180E-02_JPRB,.172E-02_JPRB,.163E-02_JPRB,.150E-02_JPRB,.142E-02_JPRB,&
+&.135E-02_JPRB,.122E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 42 -74.0
+ZAER (:,42, 9) = (/&
+&.131E-02_JPRB,.131E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,&
+&.105E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.106E-02_JPRB,&
+&.112E-02_JPRB,.119E-02_JPRB,.137E-02_JPRB,.154E-02_JPRB,.169E-02_JPRB,.194E-02_JPRB,.212E-02_JPRB,&
+&.224E-02_JPRB,.237E-02_JPRB,.244E-02_JPRB,.249E-02_JPRB,.254E-02_JPRB,.261E-02_JPRB,.266E-02_JPRB,&
+&.272E-02_JPRB,.279E-02_JPRB,.282E-02_JPRB,.284E-02_JPRB,.283E-02_JPRB,.282E-02_JPRB,.280E-02_JPRB,&
+&.279E-02_JPRB,.282E-02_JPRB,.285E-02_JPRB,.293E-02_JPRB,.299E-02_JPRB,.304E-02_JPRB,.307E-02_JPRB,&
+&.304E-02_JPRB,.299E-02_JPRB,.286E-02_JPRB,.269E-02_JPRB,.257E-02_JPRB,.239E-02_JPRB,.223E-02_JPRB,&
+&.214E-02_JPRB,.201E-02_JPRB,.188E-02_JPRB,.181E-02_JPRB,.171E-02_JPRB,.158E-02_JPRB,.151E-02_JPRB,&
+&.143E-02_JPRB,.131E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 43 -78.0
+ZAER (:,43, 9) = (/&
+&.146E-02_JPRB,.145E-02_JPRB,.138E-02_JPRB,.135E-02_JPRB,.132E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,&
+&.124E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.131E-02_JPRB,&
+&.137E-02_JPRB,.142E-02_JPRB,.152E-02_JPRB,.162E-02_JPRB,.170E-02_JPRB,.182E-02_JPRB,.192E-02_JPRB,&
+&.198E-02_JPRB,.207E-02_JPRB,.214E-02_JPRB,.218E-02_JPRB,.223E-02_JPRB,.229E-02_JPRB,.232E-02_JPRB,&
+&.236E-02_JPRB,.241E-02_JPRB,.243E-02_JPRB,.246E-02_JPRB,.249E-02_JPRB,.251E-02_JPRB,.253E-02_JPRB,&
+&.256E-02_JPRB,.258E-02_JPRB,.261E-02_JPRB,.265E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.266E-02_JPRB,&
+&.262E-02_JPRB,.257E-02_JPRB,.248E-02_JPRB,.238E-02_JPRB,.230E-02_JPRB,.219E-02_JPRB,.210E-02_JPRB,&
+&.203E-02_JPRB,.195E-02_JPRB,.186E-02_JPRB,.180E-02_JPRB,.173E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,&
+&.154E-02_JPRB,.146E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 44 -82.0
+ZAER (:,44, 9) = (/&
+&.156E-02_JPRB,.156E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,&
+&.144E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,&
+&.141E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.153E-02_JPRB,&
+&.156E-02_JPRB,.158E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,.180E-02_JPRB,&
+&.184E-02_JPRB,.188E-02_JPRB,.192E-02_JPRB,.195E-02_JPRB,.199E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,&
+&.206E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.213E-02_JPRB,.215E-02_JPRB,.217E-02_JPRB,.218E-02_JPRB,&
+&.219E-02_JPRB,.220E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.220E-02_JPRB,.219E-02_JPRB,.217E-02_JPRB,&
+&.214E-02_JPRB,.212E-02_JPRB,.207E-02_JPRB,.202E-02_JPRB,.199E-02_JPRB,.194E-02_JPRB,.189E-02_JPRB,&
+&.186E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.174E-02_JPRB,.170E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,&
+&.161E-02_JPRB,.156E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 45 -86.0
+ZAER (:,45, 9) = (/&
+&.165E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,&
+&.161E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,&
+&.161E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,&
+&.167E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,&
+&.175E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,&
+&.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.183E-02_JPRB,&
+&.183E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,&
+&.174E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,.167E-02_JPRB,&
+&.167E-02_JPRB,.165E-02_JPRB/)
+!-- Black Carbon Aerosol     month:  9 --- lat: 46 -90.0
+ZAER (:,46, 9) = (/&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=9   
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_09
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_10.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_10
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 October
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,10:10)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month: 10 --- lat:  1  90.0
+ZAER (:, 1,10) = (/&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  2  86.0
+ZAER (:, 2,10) = (/&
+&.128E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.130E-03_JPRB,.130E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,&
+&.131E-03_JPRB,.131E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,&
+&.131E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,.131E-03_JPRB,.130E-03_JPRB,.130E-03_JPRB,.130E-03_JPRB,&
+&.130E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,&
+&.127E-03_JPRB,.127E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.125E-03_JPRB,&
+&.125E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.123E-03_JPRB,&
+&.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,&
+&.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,&
+&.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,&
+&.124E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.127E-03_JPRB,&
+&.128E-03_JPRB,.128E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  3  82.0
+ZAER (:, 3,10) = (/&
+&.137E-03_JPRB,.137E-03_JPRB,.139E-03_JPRB,.140E-03_JPRB,.141E-03_JPRB,.143E-03_JPRB,.144E-03_JPRB,&
+&.145E-03_JPRB,.145E-03_JPRB,.145E-03_JPRB,.146E-03_JPRB,.146E-03_JPRB,.145E-03_JPRB,.145E-03_JPRB,&
+&.144E-03_JPRB,.143E-03_JPRB,.143E-03_JPRB,.142E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.139E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.134E-03_JPRB,&
+&.133E-03_JPRB,.133E-03_JPRB,.131E-03_JPRB,.130E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.127E-03_JPRB,&
+&.126E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.123E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,&
+&.121E-03_JPRB,.121E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,&
+&.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,&
+&.120E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,.122E-03_JPRB,.123E-03_JPRB,&
+&.124E-03_JPRB,.125E-03_JPRB,.126E-03_JPRB,.128E-03_JPRB,.130E-03_JPRB,.132E-03_JPRB,.133E-03_JPRB,&
+&.135E-03_JPRB,.137E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  4  78.0
+ZAER (:, 4,10) = (/&
+&.155E-03_JPRB,.156E-03_JPRB,.160E-03_JPRB,.162E-03_JPRB,.164E-03_JPRB,.166E-03_JPRB,.167E-03_JPRB,&
+&.168E-03_JPRB,.169E-03_JPRB,.169E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,.166E-03_JPRB,.165E-03_JPRB,&
+&.162E-03_JPRB,.160E-03_JPRB,.159E-03_JPRB,.157E-03_JPRB,.155E-03_JPRB,.154E-03_JPRB,.153E-03_JPRB,&
+&.152E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.150E-03_JPRB,.150E-03_JPRB,.149E-03_JPRB,&
+&.148E-03_JPRB,.147E-03_JPRB,.144E-03_JPRB,.142E-03_JPRB,.140E-03_JPRB,.137E-03_JPRB,.134E-03_JPRB,&
+&.133E-03_JPRB,.131E-03_JPRB,.128E-03_JPRB,.127E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.123E-03_JPRB,&
+&.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.122E-03_JPRB,.123E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,&
+&.125E-03_JPRB,.125E-03_JPRB,.126E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,&
+&.124E-03_JPRB,.124E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.125E-03_JPRB,.127E-03_JPRB,.129E-03_JPRB,&
+&.131E-03_JPRB,.133E-03_JPRB,.136E-03_JPRB,.139E-03_JPRB,.142E-03_JPRB,.146E-03_JPRB,.149E-03_JPRB,&
+&.152E-03_JPRB,.155E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  5  74.0
+ZAER (:, 5,10) = (/&
+&.187E-03_JPRB,.187E-03_JPRB,.192E-03_JPRB,.194E-03_JPRB,.196E-03_JPRB,.198E-03_JPRB,.199E-03_JPRB,&
+&.199E-03_JPRB,.198E-03_JPRB,.196E-03_JPRB,.195E-03_JPRB,.192E-03_JPRB,.188E-03_JPRB,.186E-03_JPRB,&
+&.182E-03_JPRB,.178E-03_JPRB,.176E-03_JPRB,.172E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,.166E-03_JPRB,&
+&.165E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,&
+&.167E-03_JPRB,.166E-03_JPRB,.162E-03_JPRB,.159E-03_JPRB,.156E-03_JPRB,.151E-03_JPRB,.146E-03_JPRB,&
+&.143E-03_JPRB,.140E-03_JPRB,.137E-03_JPRB,.135E-03_JPRB,.132E-03_JPRB,.130E-03_JPRB,.129E-03_JPRB,&
+&.128E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.132E-03_JPRB,.134E-03_JPRB,.136E-03_JPRB,&
+&.139E-03_JPRB,.140E-03_JPRB,.141E-03_JPRB,.141E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.139E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.139E-03_JPRB,.141E-03_JPRB,.143E-03_JPRB,.147E-03_JPRB,&
+&.150E-03_JPRB,.154E-03_JPRB,.159E-03_JPRB,.163E-03_JPRB,.168E-03_JPRB,.174E-03_JPRB,.178E-03_JPRB,&
+&.181E-03_JPRB,.187E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  6  70.0
+ZAER (:, 6,10) = (/&
+&.228E-03_JPRB,.228E-03_JPRB,.233E-03_JPRB,.234E-03_JPRB,.236E-03_JPRB,.236E-03_JPRB,.234E-03_JPRB,&
+&.233E-03_JPRB,.229E-03_JPRB,.224E-03_JPRB,.220E-03_JPRB,.215E-03_JPRB,.210E-03_JPRB,.207E-03_JPRB,&
+&.204E-03_JPRB,.198E-03_JPRB,.195E-03_JPRB,.190E-03_JPRB,.184E-03_JPRB,.181E-03_JPRB,.177E-03_JPRB,&
+&.175E-03_JPRB,.174E-03_JPRB,.174E-03_JPRB,.176E-03_JPRB,.178E-03_JPRB,.180E-03_JPRB,.183E-03_JPRB,&
+&.183E-03_JPRB,.183E-03_JPRB,.180E-03_JPRB,.176E-03_JPRB,.173E-03_JPRB,.167E-03_JPRB,.163E-03_JPRB,&
+&.160E-03_JPRB,.156E-03_JPRB,.153E-03_JPRB,.151E-03_JPRB,.149E-03_JPRB,.147E-03_JPRB,.146E-03_JPRB,&
+&.145E-03_JPRB,.144E-03_JPRB,.145E-03_JPRB,.146E-03_JPRB,.149E-03_JPRB,.152E-03_JPRB,.155E-03_JPRB,&
+&.161E-03_JPRB,.164E-03_JPRB,.166E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,&
+&.166E-03_JPRB,.166E-03_JPRB,.167E-03_JPRB,.168E-03_JPRB,.170E-03_JPRB,.173E-03_JPRB,.178E-03_JPRB,&
+&.181E-03_JPRB,.187E-03_JPRB,.195E-03_JPRB,.200E-03_JPRB,.207E-03_JPRB,.214E-03_JPRB,.218E-03_JPRB,&
+&.221E-03_JPRB,.228E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  7  66.0
+ZAER (:, 7,10) = (/&
+&.270E-03_JPRB,.271E-03_JPRB,.274E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,.269E-03_JPRB,.265E-03_JPRB,&
+&.262E-03_JPRB,.254E-03_JPRB,.248E-03_JPRB,.243E-03_JPRB,.237E-03_JPRB,.232E-03_JPRB,.229E-03_JPRB,&
+&.226E-03_JPRB,.220E-03_JPRB,.216E-03_JPRB,.210E-03_JPRB,.202E-03_JPRB,.198E-03_JPRB,.193E-03_JPRB,&
+&.186E-03_JPRB,.183E-03_JPRB,.181E-03_JPRB,.181E-03_JPRB,.183E-03_JPRB,.185E-03_JPRB,.189E-03_JPRB,&
+&.190E-03_JPRB,.191E-03_JPRB,.189E-03_JPRB,.188E-03_JPRB,.186E-03_JPRB,.185E-03_JPRB,.182E-03_JPRB,&
+&.181E-03_JPRB,.179E-03_JPRB,.178E-03_JPRB,.177E-03_JPRB,.176E-03_JPRB,.174E-03_JPRB,.172E-03_JPRB,&
+&.170E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,.166E-03_JPRB,.168E-03_JPRB,.171E-03_JPRB,.174E-03_JPRB,&
+&.182E-03_JPRB,.187E-03_JPRB,.192E-03_JPRB,.199E-03_JPRB,.203E-03_JPRB,.205E-03_JPRB,.207E-03_JPRB,&
+&.209E-03_JPRB,.211E-03_JPRB,.213E-03_JPRB,.215E-03_JPRB,.217E-03_JPRB,.219E-03_JPRB,.223E-03_JPRB,&
+&.227E-03_JPRB,.232E-03_JPRB,.239E-03_JPRB,.244E-03_JPRB,.251E-03_JPRB,.258E-03_JPRB,.261E-03_JPRB,&
+&.264E-03_JPRB,.270E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  8  62.0
+ZAER (:, 8,10) = (/&
+&.309E-03_JPRB,.309E-03_JPRB,.305E-03_JPRB,.301E-03_JPRB,.297E-03_JPRB,.289E-03_JPRB,.285E-03_JPRB,&
+&.282E-03_JPRB,.276E-03_JPRB,.270E-03_JPRB,.266E-03_JPRB,.260E-03_JPRB,.255E-03_JPRB,.252E-03_JPRB,&
+&.247E-03_JPRB,.242E-03_JPRB,.237E-03_JPRB,.232E-03_JPRB,.225E-03_JPRB,.220E-03_JPRB,.214E-03_JPRB,&
+&.205E-03_JPRB,.200E-03_JPRB,.196E-03_JPRB,.193E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.196E-03_JPRB,&
+&.197E-03_JPRB,.197E-03_JPRB,.196E-03_JPRB,.197E-03_JPRB,.198E-03_JPRB,.202E-03_JPRB,.204E-03_JPRB,&
+&.205E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.204E-03_JPRB,&
+&.202E-03_JPRB,.197E-03_JPRB,.194E-03_JPRB,.190E-03_JPRB,.186E-03_JPRB,.188E-03_JPRB,.189E-03_JPRB,&
+&.198E-03_JPRB,.205E-03_JPRB,.212E-03_JPRB,.225E-03_JPRB,.234E-03_JPRB,.241E-03_JPRB,.249E-03_JPRB,&
+&.256E-03_JPRB,.261E-03_JPRB,.268E-03_JPRB,.271E-03_JPRB,.273E-03_JPRB,.274E-03_JPRB,.281E-03_JPRB,&
+&.285E-03_JPRB,.292E-03_JPRB,.296E-03_JPRB,.300E-03_JPRB,.303E-03_JPRB,.307E-03_JPRB,.308E-03_JPRB,&
+&.308E-03_JPRB,.309E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat:  9  58.0
+ZAER (:, 9,10) = (/&
+&.335E-03_JPRB,.334E-03_JPRB,.321E-03_JPRB,.314E-03_JPRB,.308E-03_JPRB,.305E-03_JPRB,.311E-03_JPRB,&
+&.314E-03_JPRB,.315E-03_JPRB,.307E-03_JPRB,.300E-03_JPRB,.288E-03_JPRB,.279E-03_JPRB,.273E-03_JPRB,&
+&.266E-03_JPRB,.259E-03_JPRB,.255E-03_JPRB,.248E-03_JPRB,.244E-03_JPRB,.241E-03_JPRB,.238E-03_JPRB,&
+&.233E-03_JPRB,.229E-03_JPRB,.225E-03_JPRB,.217E-03_JPRB,.215E-03_JPRB,.214E-03_JPRB,.214E-03_JPRB,&
+&.215E-03_JPRB,.215E-03_JPRB,.217E-03_JPRB,.223E-03_JPRB,.229E-03_JPRB,.238E-03_JPRB,.241E-03_JPRB,&
+&.242E-03_JPRB,.240E-03_JPRB,.236E-03_JPRB,.235E-03_JPRB,.235E-03_JPRB,.234E-03_JPRB,.233E-03_JPRB,&
+&.231E-03_JPRB,.225E-03_JPRB,.221E-03_JPRB,.216E-03_JPRB,.210E-03_JPRB,.210E-03_JPRB,.211E-03_JPRB,&
+&.223E-03_JPRB,.234E-03_JPRB,.245E-03_JPRB,.262E-03_JPRB,.266E-03_JPRB,.271E-03_JPRB,.280E-03_JPRB,&
+&.289E-03_JPRB,.296E-03_JPRB,.304E-03_JPRB,.304E-03_JPRB,.304E-03_JPRB,.306E-03_JPRB,.322E-03_JPRB,&
+&.334E-03_JPRB,.351E-03_JPRB,.357E-03_JPRB,.359E-03_JPRB,.361E-03_JPRB,.357E-03_JPRB,.351E-03_JPRB,&
+&.345E-03_JPRB,.335E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 10  54.0
+ZAER (:,10,10) = (/&
+&.352E-03_JPRB,.352E-03_JPRB,.330E-03_JPRB,.325E-03_JPRB,.322E-03_JPRB,.332E-03_JPRB,.345E-03_JPRB,&
+&.354E-03_JPRB,.357E-03_JPRB,.345E-03_JPRB,.335E-03_JPRB,.316E-03_JPRB,.302E-03_JPRB,.293E-03_JPRB,&
+&.282E-03_JPRB,.273E-03_JPRB,.268E-03_JPRB,.262E-03_JPRB,.260E-03_JPRB,.260E-03_JPRB,.262E-03_JPRB,&
+&.262E-03_JPRB,.262E-03_JPRB,.262E-03_JPRB,.257E-03_JPRB,.254E-03_JPRB,.251E-03_JPRB,.249E-03_JPRB,&
+&.253E-03_JPRB,.257E-03_JPRB,.269E-03_JPRB,.282E-03_JPRB,.292E-03_JPRB,.300E-03_JPRB,.298E-03_JPRB,&
+&.296E-03_JPRB,.291E-03_JPRB,.282E-03_JPRB,.276E-03_JPRB,.271E-03_JPRB,.265E-03_JPRB,.262E-03_JPRB,&
+&.258E-03_JPRB,.252E-03_JPRB,.249E-03_JPRB,.246E-03_JPRB,.245E-03_JPRB,.248E-03_JPRB,.251E-03_JPRB,&
+&.266E-03_JPRB,.282E-03_JPRB,.298E-03_JPRB,.316E-03_JPRB,.309E-03_JPRB,.304E-03_JPRB,.304E-03_JPRB,&
+&.311E-03_JPRB,.314E-03_JPRB,.314E-03_JPRB,.307E-03_JPRB,.304E-03_JPRB,.303E-03_JPRB,.324E-03_JPRB,&
+&.344E-03_JPRB,.373E-03_JPRB,.393E-03_JPRB,.397E-03_JPRB,.398E-03_JPRB,.391E-03_JPRB,.382E-03_JPRB,&
+&.372E-03_JPRB,.353E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 11  50.0
+ZAER (:,11,10) = (/&
+&.381E-03_JPRB,.380E-03_JPRB,.351E-03_JPRB,.349E-03_JPRB,.350E-03_JPRB,.368E-03_JPRB,.379E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.375E-03_JPRB,.364E-03_JPRB,.343E-03_JPRB,.326E-03_JPRB,.317E-03_JPRB,&
+&.308E-03_JPRB,.301E-03_JPRB,.297E-03_JPRB,.293E-03_JPRB,.294E-03_JPRB,.297E-03_JPRB,.301E-03_JPRB,&
+&.306E-03_JPRB,.312E-03_JPRB,.319E-03_JPRB,.324E-03_JPRB,.323E-03_JPRB,.322E-03_JPRB,.326E-03_JPRB,&
+&.341E-03_JPRB,.355E-03_JPRB,.386E-03_JPRB,.397E-03_JPRB,.401E-03_JPRB,.389E-03_JPRB,.381E-03_JPRB,&
+&.375E-03_JPRB,.368E-03_JPRB,.359E-03_JPRB,.350E-03_JPRB,.335E-03_JPRB,.324E-03_JPRB,.319E-03_JPRB,&
+&.315E-03_JPRB,.305E-03_JPRB,.302E-03_JPRB,.300E-03_JPRB,.313E-03_JPRB,.324E-03_JPRB,.335E-03_JPRB,&
+&.344E-03_JPRB,.354E-03_JPRB,.364E-03_JPRB,.377E-03_JPRB,.367E-03_JPRB,.359E-03_JPRB,.345E-03_JPRB,&
+&.342E-03_JPRB,.338E-03_JPRB,.328E-03_JPRB,.316E-03_JPRB,.311E-03_JPRB,.310E-03_JPRB,.329E-03_JPRB,&
+&.349E-03_JPRB,.382E-03_JPRB,.429E-03_JPRB,.443E-03_JPRB,.453E-03_JPRB,.436E-03_JPRB,.425E-03_JPRB,&
+&.413E-03_JPRB,.382E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 12  46.0
+ZAER (:,12,10) = (/&
+&.447E-03_JPRB,.446E-03_JPRB,.400E-03_JPRB,.394E-03_JPRB,.392E-03_JPRB,.415E-03_JPRB,.420E-03_JPRB,&
+&.421E-03_JPRB,.414E-03_JPRB,.403E-03_JPRB,.393E-03_JPRB,.375E-03_JPRB,.361E-03_JPRB,.355E-03_JPRB,&
+&.351E-03_JPRB,.347E-03_JPRB,.344E-03_JPRB,.342E-03_JPRB,.347E-03_JPRB,.353E-03_JPRB,.361E-03_JPRB,&
+&.371E-03_JPRB,.386E-03_JPRB,.402E-03_JPRB,.430E-03_JPRB,.446E-03_JPRB,.461E-03_JPRB,.477E-03_JPRB,&
+&.502E-03_JPRB,.522E-03_JPRB,.538E-03_JPRB,.523E-03_JPRB,.510E-03_JPRB,.486E-03_JPRB,.486E-03_JPRB,&
+&.483E-03_JPRB,.471E-03_JPRB,.468E-03_JPRB,.464E-03_JPRB,.457E-03_JPRB,.447E-03_JPRB,.442E-03_JPRB,&
+&.436E-03_JPRB,.414E-03_JPRB,.406E-03_JPRB,.398E-03_JPRB,.423E-03_JPRB,.436E-03_JPRB,.450E-03_JPRB,&
+&.473E-03_JPRB,.484E-03_JPRB,.492E-03_JPRB,.492E-03_JPRB,.476E-03_JPRB,.459E-03_JPRB,.424E-03_JPRB,&
+&.400E-03_JPRB,.385E-03_JPRB,.370E-03_JPRB,.358E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.377E-03_JPRB,&
+&.401E-03_JPRB,.439E-03_JPRB,.511E-03_JPRB,.538E-03_JPRB,.562E-03_JPRB,.530E-03_JPRB,.514E-03_JPRB,&
+&.497E-03_JPRB,.449E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 13  42.0
+ZAER (:,13,10) = (/&
+&.558E-03_JPRB,.555E-03_JPRB,.483E-03_JPRB,.472E-03_JPRB,.466E-03_JPRB,.482E-03_JPRB,.481E-03_JPRB,&
+&.477E-03_JPRB,.458E-03_JPRB,.444E-03_JPRB,.433E-03_JPRB,.418E-03_JPRB,.409E-03_JPRB,.406E-03_JPRB,&
+&.406E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.405E-03_JPRB,.418E-03_JPRB,.430E-03_JPRB,.445E-03_JPRB,&
+&.465E-03_JPRB,.496E-03_JPRB,.530E-03_JPRB,.631E-03_JPRB,.681E-03_JPRB,.725E-03_JPRB,.715E-03_JPRB,&
+&.707E-03_JPRB,.696E-03_JPRB,.655E-03_JPRB,.641E-03_JPRB,.633E-03_JPRB,.628E-03_JPRB,.648E-03_JPRB,&
+&.648E-03_JPRB,.619E-03_JPRB,.621E-03_JPRB,.626E-03_JPRB,.636E-03_JPRB,.650E-03_JPRB,.643E-03_JPRB,&
+&.625E-03_JPRB,.600E-03_JPRB,.588E-03_JPRB,.577E-03_JPRB,.586E-03_JPRB,.599E-03_JPRB,.613E-03_JPRB,&
+&.683E-03_JPRB,.716E-03_JPRB,.742E-03_JPRB,.723E-03_JPRB,.683E-03_JPRB,.644E-03_JPRB,.562E-03_JPRB,&
+&.518E-03_JPRB,.490E-03_JPRB,.466E-03_JPRB,.450E-03_JPRB,.446E-03_JPRB,.451E-03_JPRB,.483E-03_JPRB,&
+&.518E-03_JPRB,.574E-03_JPRB,.674E-03_JPRB,.716E-03_JPRB,.757E-03_JPRB,.697E-03_JPRB,.664E-03_JPRB,&
+&.629E-03_JPRB,.560E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 14  38.0
+ZAER (:,14,10) = (/&
+&.683E-03_JPRB,.680E-03_JPRB,.589E-03_JPRB,.580E-03_JPRB,.574E-03_JPRB,.577E-03_JPRB,.571E-03_JPRB,&
+&.561E-03_JPRB,.529E-03_JPRB,.513E-03_JPRB,.502E-03_JPRB,.490E-03_JPRB,.479E-03_JPRB,.478E-03_JPRB,&
+&.484E-03_JPRB,.479E-03_JPRB,.481E-03_JPRB,.486E-03_JPRB,.504E-03_JPRB,.519E-03_JPRB,.536E-03_JPRB,&
+&.589E-03_JPRB,.655E-03_JPRB,.727E-03_JPRB,.101E-02_JPRB,.112E-02_JPRB,.120E-02_JPRB,.105E-02_JPRB,&
+&.972E-03_JPRB,.906E-03_JPRB,.824E-03_JPRB,.850E-03_JPRB,.862E-03_JPRB,.851E-03_JPRB,.860E-03_JPRB,&
+&.853E-03_JPRB,.816E-03_JPRB,.816E-03_JPRB,.834E-03_JPRB,.879E-03_JPRB,.949E-03_JPRB,.962E-03_JPRB,&
+&.960E-03_JPRB,.956E-03_JPRB,.941E-03_JPRB,.920E-03_JPRB,.865E-03_JPRB,.860E-03_JPRB,.860E-03_JPRB,&
+&.970E-03_JPRB,.102E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.955E-03_JPRB,.886E-03_JPRB,.764E-03_JPRB,&
+&.705E-03_JPRB,.666E-03_JPRB,.626E-03_JPRB,.612E-03_JPRB,.604E-03_JPRB,.599E-03_JPRB,.645E-03_JPRB,&
+&.697E-03_JPRB,.783E-03_JPRB,.914E-03_JPRB,.968E-03_JPRB,.102E-02_JPRB,.905E-03_JPRB,.838E-03_JPRB,&
+&.768E-03_JPRB,.685E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 15  34.0
+ZAER (:,15,10) = (/&
+&.793E-03_JPRB,.791E-03_JPRB,.712E-03_JPRB,.710E-03_JPRB,.707E-03_JPRB,.699E-03_JPRB,.684E-03_JPRB,&
+&.669E-03_JPRB,.632E-03_JPRB,.617E-03_JPRB,.606E-03_JPRB,.592E-03_JPRB,.573E-03_JPRB,.571E-03_JPRB,&
+&.580E-03_JPRB,.572E-03_JPRB,.570E-03_JPRB,.571E-03_JPRB,.587E-03_JPRB,.600E-03_JPRB,.616E-03_JPRB,&
+&.726E-03_JPRB,.850E-03_JPRB,.987E-03_JPRB,.160E-02_JPRB,.182E-02_JPRB,.200E-02_JPRB,.162E-02_JPRB,&
+&.142E-02_JPRB,.126E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,&
+&.104E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.108E-02_JPRB,.120E-02_JPRB,.140E-02_JPRB,.152E-02_JPRB,&
+&.166E-02_JPRB,.163E-02_JPRB,.152E-02_JPRB,.136E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,&
+&.129E-02_JPRB,.131E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.118E-02_JPRB,.109E-02_JPRB,.974E-03_JPRB,&
+&.925E-03_JPRB,.889E-03_JPRB,.842E-03_JPRB,.822E-03_JPRB,.809E-03_JPRB,.793E-03_JPRB,.850E-03_JPRB,&
+&.911E-03_JPRB,.101E-02_JPRB,.120E-02_JPRB,.127E-02_JPRB,.133E-02_JPRB,.112E-02_JPRB,.101E-02_JPRB,&
+&.893E-03_JPRB,.796E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 16  30.0
+ZAER (:,16,10) = (/&
+&.903E-03_JPRB,.902E-03_JPRB,.847E-03_JPRB,.836E-03_JPRB,.825E-03_JPRB,.796E-03_JPRB,.780E-03_JPRB,&
+&.767E-03_JPRB,.748E-03_JPRB,.727E-03_JPRB,.713E-03_JPRB,.694E-03_JPRB,.682E-03_JPRB,.682E-03_JPRB,&
+&.694E-03_JPRB,.675E-03_JPRB,.662E-03_JPRB,.645E-03_JPRB,.650E-03_JPRB,.665E-03_JPRB,.687E-03_JPRB,&
+&.888E-03_JPRB,.107E-02_JPRB,.126E-02_JPRB,.232E-02_JPRB,.283E-02_JPRB,.325E-02_JPRB,.261E-02_JPRB,&
+&.216E-02_JPRB,.179E-02_JPRB,.152E-02_JPRB,.148E-02_JPRB,.142E-02_JPRB,.127E-02_JPRB,.123E-02_JPRB,&
+&.120E-02_JPRB,.118E-02_JPRB,.128E-02_JPRB,.144E-02_JPRB,.173E-02_JPRB,.221E-02_JPRB,.256E-02_JPRB,&
+&.301E-02_JPRB,.281E-02_JPRB,.245E-02_JPRB,.197E-02_JPRB,.163E-02_JPRB,.157E-02_JPRB,.152E-02_JPRB,&
+&.157E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.143E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,.113E-02_JPRB,&
+&.110E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.999E-03_JPRB,.107E-02_JPRB,&
+&.114E-02_JPRB,.123E-02_JPRB,.146E-02_JPRB,.154E-02_JPRB,.159E-02_JPRB,.128E-02_JPRB,.115E-02_JPRB,&
+&.101E-02_JPRB,.907E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 17  26.0
+ZAER (:,17,10) = (/&
+&.102E-02_JPRB,.101E-02_JPRB,.949E-03_JPRB,.910E-03_JPRB,.873E-03_JPRB,.813E-03_JPRB,.811E-03_JPRB,&
+&.812E-03_JPRB,.826E-03_JPRB,.809E-03_JPRB,.796E-03_JPRB,.781E-03_JPRB,.814E-03_JPRB,.843E-03_JPRB,&
+&.889E-03_JPRB,.828E-03_JPRB,.779E-03_JPRB,.713E-03_JPRB,.698E-03_JPRB,.723E-03_JPRB,.763E-03_JPRB,&
+&.106E-02_JPRB,.128E-02_JPRB,.151E-02_JPRB,.294E-02_JPRB,.383E-02_JPRB,.459E-02_JPRB,.372E-02_JPRB,&
+&.298E-02_JPRB,.238E-02_JPRB,.190E-02_JPRB,.174E-02_JPRB,.160E-02_JPRB,.140E-02_JPRB,.135E-02_JPRB,&
+&.135E-02_JPRB,.140E-02_JPRB,.180E-02_JPRB,.220E-02_JPRB,.287E-02_JPRB,.368E-02_JPRB,.431E-02_JPRB,&
+&.515E-02_JPRB,.456E-02_JPRB,.380E-02_JPRB,.285E-02_JPRB,.221E-02_JPRB,.202E-02_JPRB,.185E-02_JPRB,&
+&.179E-02_JPRB,.169E-02_JPRB,.160E-02_JPRB,.150E-02_JPRB,.140E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,&
+&.121E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.133E-02_JPRB,&
+&.141E-02_JPRB,.148E-02_JPRB,.162E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.135E-02_JPRB,.123E-02_JPRB,&
+&.112E-02_JPRB,.102E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 18  22.0
+ZAER (:,18,10) = (/&
+&.107E-02_JPRB,.106E-02_JPRB,.956E-03_JPRB,.889E-03_JPRB,.830E-03_JPRB,.761E-03_JPRB,.778E-03_JPRB,&
+&.796E-03_JPRB,.838E-03_JPRB,.850E-03_JPRB,.857E-03_JPRB,.863E-03_JPRB,.946E-03_JPRB,.102E-02_JPRB,&
+&.113E-02_JPRB,.100E-02_JPRB,.911E-03_JPRB,.783E-03_JPRB,.758E-03_JPRB,.808E-03_JPRB,.889E-03_JPRB,&
+&.129E-02_JPRB,.159E-02_JPRB,.190E-02_JPRB,.340E-02_JPRB,.438E-02_JPRB,.521E-02_JPRB,.425E-02_JPRB,&
+&.345E-02_JPRB,.280E-02_JPRB,.227E-02_JPRB,.196E-02_JPRB,.173E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,&
+&.157E-02_JPRB,.181E-02_JPRB,.278E-02_JPRB,.358E-02_JPRB,.476E-02_JPRB,.557E-02_JPRB,.627E-02_JPRB,&
+&.723E-02_JPRB,.617E-02_JPRB,.506E-02_JPRB,.369E-02_JPRB,.271E-02_JPRB,.236E-02_JPRB,.205E-02_JPRB,&
+&.191E-02_JPRB,.178E-02_JPRB,.165E-02_JPRB,.155E-02_JPRB,.146E-02_JPRB,.138E-02_JPRB,.129E-02_JPRB,&
+&.130E-02_JPRB,.131E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.142E-02_JPRB,.162E-02_JPRB,&
+&.169E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.162E-02_JPRB,.156E-02_JPRB,.132E-02_JPRB,.123E-02_JPRB,&
+&.115E-02_JPRB,.107E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 19  18.0
+ZAER (:,19,10) = (/&
+&.100E-02_JPRB,.996E-03_JPRB,.866E-03_JPRB,.804E-03_JPRB,.752E-03_JPRB,.713E-03_JPRB,.734E-03_JPRB,&
+&.758E-03_JPRB,.814E-03_JPRB,.866E-03_JPRB,.899E-03_JPRB,.933E-03_JPRB,.102E-02_JPRB,.110E-02_JPRB,&
+&.125E-02_JPRB,.111E-02_JPRB,.101E-02_JPRB,.872E-03_JPRB,.908E-03_JPRB,.102E-02_JPRB,.118E-02_JPRB,&
+&.170E-02_JPRB,.212E-02_JPRB,.256E-02_JPRB,.384E-02_JPRB,.442E-02_JPRB,.490E-02_JPRB,.396E-02_JPRB,&
+&.341E-02_JPRB,.297E-02_JPRB,.254E-02_JPRB,.214E-02_JPRB,.187E-02_JPRB,.165E-02_JPRB,.177E-02_JPRB,&
+&.198E-02_JPRB,.251E-02_JPRB,.416E-02_JPRB,.516E-02_JPRB,.636E-02_JPRB,.674E-02_JPRB,.714E-02_JPRB,&
+&.771E-02_JPRB,.654E-02_JPRB,.535E-02_JPRB,.390E-02_JPRB,.272E-02_JPRB,.237E-02_JPRB,.205E-02_JPRB,&
+&.192E-02_JPRB,.180E-02_JPRB,.170E-02_JPRB,.157E-02_JPRB,.149E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,&
+&.138E-02_JPRB,.140E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,.154E-02_JPRB,.167E-02_JPRB,.183E-02_JPRB,&
+&.184E-02_JPRB,.177E-02_JPRB,.162E-02_JPRB,.152E-02_JPRB,.140E-02_JPRB,.121E-02_JPRB,.114E-02_JPRB,&
+&.109E-02_JPRB,.100E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 20  14.0
+ZAER (:,20,10) = (/&
+&.863E-03_JPRB,.860E-03_JPRB,.759E-03_JPRB,.734E-03_JPRB,.714E-03_JPRB,.707E-03_JPRB,.715E-03_JPRB,&
+&.730E-03_JPRB,.789E-03_JPRB,.862E-03_JPRB,.907E-03_JPRB,.953E-03_JPRB,.103E-02_JPRB,.111E-02_JPRB,&
+&.125E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,.126E-02_JPRB,.148E-02_JPRB,.176E-02_JPRB,&
+&.238E-02_JPRB,.286E-02_JPRB,.336E-02_JPRB,.427E-02_JPRB,.438E-02_JPRB,.442E-02_JPRB,.361E-02_JPRB,&
+&.332E-02_JPRB,.306E-02_JPRB,.257E-02_JPRB,.221E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.227E-02_JPRB,&
+&.267E-02_JPRB,.358E-02_JPRB,.547E-02_JPRB,.617E-02_JPRB,.647E-02_JPRB,.622E-02_JPRB,.627E-02_JPRB,&
+&.644E-02_JPRB,.571E-02_JPRB,.470E-02_JPRB,.342E-02_JPRB,.235E-02_JPRB,.215E-02_JPRB,.200E-02_JPRB,&
+&.188E-02_JPRB,.180E-02_JPRB,.172E-02_JPRB,.158E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,&
+&.150E-02_JPRB,.156E-02_JPRB,.165E-02_JPRB,.173E-02_JPRB,.180E-02_JPRB,.190E-02_JPRB,.195E-02_JPRB,&
+&.191E-02_JPRB,.179E-02_JPRB,.157E-02_JPRB,.142E-02_JPRB,.124E-02_JPRB,.108E-02_JPRB,.102E-02_JPRB,&
+&.960E-03_JPRB,.866E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 21  10.0
+ZAER (:,21,10) = (/&
+&.721E-03_JPRB,.720E-03_JPRB,.673E-03_JPRB,.682E-03_JPRB,.689E-03_JPRB,.700E-03_JPRB,.705E-03_JPRB,&
+&.715E-03_JPRB,.759E-03_JPRB,.823E-03_JPRB,.866E-03_JPRB,.919E-03_JPRB,.100E-02_JPRB,.108E-02_JPRB,&
+&.120E-02_JPRB,.119E-02_JPRB,.124E-02_JPRB,.135E-02_JPRB,.178E-02_JPRB,.216E-02_JPRB,.263E-02_JPRB,&
+&.333E-02_JPRB,.376E-02_JPRB,.421E-02_JPRB,.477E-02_JPRB,.467E-02_JPRB,.455E-02_JPRB,.411E-02_JPRB,&
+&.363E-02_JPRB,.318E-02_JPRB,.240E-02_JPRB,.224E-02_JPRB,.220E-02_JPRB,.246E-02_JPRB,.297E-02_JPRB,&
+&.353E-02_JPRB,.464E-02_JPRB,.636E-02_JPRB,.659E-02_JPRB,.588E-02_JPRB,.506E-02_JPRB,.509E-02_JPRB,&
+&.544E-02_JPRB,.496E-02_JPRB,.410E-02_JPRB,.301E-02_JPRB,.221E-02_JPRB,.208E-02_JPRB,.199E-02_JPRB,&
+&.185E-02_JPRB,.177E-02_JPRB,.168E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,&
+&.173E-02_JPRB,.190E-02_JPRB,.214E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,.216E-02_JPRB,.222E-02_JPRB,&
+&.218E-02_JPRB,.206E-02_JPRB,.160E-02_JPRB,.137E-02_JPRB,.113E-02_JPRB,.954E-03_JPRB,.880E-03_JPRB,&
+&.807E-03_JPRB,.724E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 22   6.0
+ZAER (:,22,10) = (/&
+&.644E-03_JPRB,.643E-03_JPRB,.610E-03_JPRB,.623E-03_JPRB,.635E-03_JPRB,.657E-03_JPRB,.669E-03_JPRB,&
+&.682E-03_JPRB,.715E-03_JPRB,.757E-03_JPRB,.793E-03_JPRB,.849E-03_JPRB,.944E-03_JPRB,.102E-02_JPRB,&
+&.113E-02_JPRB,.122E-02_JPRB,.135E-02_JPRB,.158E-02_JPRB,.224E-02_JPRB,.283E-02_JPRB,.358E-02_JPRB,&
+&.477E-02_JPRB,.514E-02_JPRB,.547E-02_JPRB,.556E-02_JPRB,.544E-02_JPRB,.529E-02_JPRB,.484E-02_JPRB,&
+&.392E-02_JPRB,.315E-02_JPRB,.230E-02_JPRB,.235E-02_JPRB,.247E-02_JPRB,.290E-02_JPRB,.343E-02_JPRB,&
+&.394E-02_JPRB,.490E-02_JPRB,.654E-02_JPRB,.661E-02_JPRB,.560E-02_JPRB,.458E-02_JPRB,.470E-02_JPRB,&
+&.529E-02_JPRB,.460E-02_JPRB,.381E-02_JPRB,.284E-02_JPRB,.220E-02_JPRB,.204E-02_JPRB,.190E-02_JPRB,&
+&.173E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.161E-02_JPRB,&
+&.200E-02_JPRB,.230E-02_JPRB,.271E-02_JPRB,.281E-02_JPRB,.278E-02_JPRB,.256E-02_JPRB,.263E-02_JPRB,&
+&.259E-02_JPRB,.246E-02_JPRB,.172E-02_JPRB,.141E-02_JPRB,.111E-02_JPRB,.904E-03_JPRB,.812E-03_JPRB,&
+&.720E-03_JPRB,.646E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 23   2.0
+ZAER (:,23,10) = (/&
+&.611E-03_JPRB,.610E-03_JPRB,.565E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.578E-03_JPRB,.601E-03_JPRB,&
+&.623E-03_JPRB,.667E-03_JPRB,.708E-03_JPRB,.742E-03_JPRB,.798E-03_JPRB,.893E-03_JPRB,.962E-03_JPRB,&
+&.106E-02_JPRB,.119E-02_JPRB,.135E-02_JPRB,.161E-02_JPRB,.246E-02_JPRB,.323E-02_JPRB,.419E-02_JPRB,&
+&.630E-02_JPRB,.659E-02_JPRB,.674E-02_JPRB,.622E-02_JPRB,.603E-02_JPRB,.581E-02_JPRB,.485E-02_JPRB,&
+&.374E-02_JPRB,.286E-02_JPRB,.219E-02_JPRB,.236E-02_JPRB,.253E-02_JPRB,.289E-02_JPRB,.334E-02_JPRB,&
+&.372E-02_JPRB,.435E-02_JPRB,.508E-02_JPRB,.499E-02_JPRB,.423E-02_JPRB,.374E-02_JPRB,.399E-02_JPRB,&
+&.461E-02_JPRB,.404E-02_JPRB,.345E-02_JPRB,.272E-02_JPRB,.213E-02_JPRB,.194E-02_JPRB,.177E-02_JPRB,&
+&.159E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,.156E-02_JPRB,.169E-02_JPRB,&
+&.204E-02_JPRB,.233E-02_JPRB,.280E-02_JPRB,.312E-02_JPRB,.315E-02_JPRB,.287E-02_JPRB,.281E-02_JPRB,&
+&.271E-02_JPRB,.254E-02_JPRB,.178E-02_JPRB,.145E-02_JPRB,.113E-02_JPRB,.913E-03_JPRB,.809E-03_JPRB,&
+&.705E-03_JPRB,.614E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 24  -2.0
+ZAER (:,24,10) = (/&
+&.577E-03_JPRB,.576E-03_JPRB,.535E-03_JPRB,.515E-03_JPRB,.499E-03_JPRB,.496E-03_JPRB,.521E-03_JPRB,&
+&.547E-03_JPRB,.612E-03_JPRB,.657E-03_JPRB,.693E-03_JPRB,.749E-03_JPRB,.853E-03_JPRB,.931E-03_JPRB,&
+&.104E-02_JPRB,.118E-02_JPRB,.133E-02_JPRB,.155E-02_JPRB,.233E-02_JPRB,.303E-02_JPRB,.391E-02_JPRB,&
+&.593E-02_JPRB,.614E-02_JPRB,.621E-02_JPRB,.558E-02_JPRB,.522E-02_JPRB,.482E-02_JPRB,.360E-02_JPRB,&
+&.281E-02_JPRB,.221E-02_JPRB,.196E-02_JPRB,.216E-02_JPRB,.233E-02_JPRB,.266E-02_JPRB,.311E-02_JPRB,&
+&.343E-02_JPRB,.388E-02_JPRB,.374E-02_JPRB,.347E-02_JPRB,.291E-02_JPRB,.299E-02_JPRB,.324E-02_JPRB,&
+&.367E-02_JPRB,.341E-02_JPRB,.306E-02_JPRB,.263E-02_JPRB,.220E-02_JPRB,.204E-02_JPRB,.189E-02_JPRB,&
+&.156E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.177E-02_JPRB,.187E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.203E-02_JPRB,.216E-02_JPRB,.251E-02_JPRB,.300E-02_JPRB,.311E-02_JPRB,.288E-02_JPRB,.269E-02_JPRB,&
+&.255E-02_JPRB,.236E-02_JPRB,.173E-02_JPRB,.145E-02_JPRB,.116E-02_JPRB,.896E-03_JPRB,.776E-03_JPRB,&
+&.657E-03_JPRB,.579E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 25  -6.0
+ZAER (:,25,10) = (/&
+&.558E-03_JPRB,.556E-03_JPRB,.515E-03_JPRB,.491E-03_JPRB,.470E-03_JPRB,.455E-03_JPRB,.470E-03_JPRB,&
+&.489E-03_JPRB,.543E-03_JPRB,.586E-03_JPRB,.624E-03_JPRB,.693E-03_JPRB,.795E-03_JPRB,.881E-03_JPRB,&
+&.101E-02_JPRB,.118E-02_JPRB,.134E-02_JPRB,.158E-02_JPRB,.207E-02_JPRB,.248E-02_JPRB,.299E-02_JPRB,&
+&.422E-02_JPRB,.436E-02_JPRB,.442E-02_JPRB,.381E-02_JPRB,.348E-02_JPRB,.313E-02_JPRB,.225E-02_JPRB,&
+&.187E-02_JPRB,.161E-02_JPRB,.164E-02_JPRB,.188E-02_JPRB,.211E-02_JPRB,.253E-02_JPRB,.307E-02_JPRB,&
+&.338E-02_JPRB,.368E-02_JPRB,.336E-02_JPRB,.306E-02_JPRB,.260E-02_JPRB,.276E-02_JPRB,.298E-02_JPRB,&
+&.330E-02_JPRB,.335E-02_JPRB,.312E-02_JPRB,.279E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,.225E-02_JPRB,&
+&.192E-02_JPRB,.198E-02_JPRB,.208E-02_JPRB,.257E-02_JPRB,.270E-02_JPRB,.280E-02_JPRB,.287E-02_JPRB,&
+&.288E-02_JPRB,.284E-02_JPRB,.263E-02_JPRB,.293E-02_JPRB,.301E-02_JPRB,.291E-02_JPRB,.275E-02_JPRB,&
+&.259E-02_JPRB,.232E-02_JPRB,.173E-02_JPRB,.144E-02_JPRB,.115E-02_JPRB,.843E-03_JPRB,.723E-03_JPRB,&
+&.609E-03_JPRB,.559E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 26 -10.0
+ZAER (:,26,10) = (/&
+&.627E-03_JPRB,.625E-03_JPRB,.545E-03_JPRB,.513E-03_JPRB,.486E-03_JPRB,.462E-03_JPRB,.463E-03_JPRB,&
+&.471E-03_JPRB,.514E-03_JPRB,.562E-03_JPRB,.602E-03_JPRB,.672E-03_JPRB,.754E-03_JPRB,.834E-03_JPRB,&
+&.972E-03_JPRB,.119E-02_JPRB,.136E-02_JPRB,.160E-02_JPRB,.190E-02_JPRB,.208E-02_JPRB,.227E-02_JPRB,&
+&.275E-02_JPRB,.279E-02_JPRB,.281E-02_JPRB,.245E-02_JPRB,.221E-02_JPRB,.196E-02_JPRB,.141E-02_JPRB,&
+&.129E-02_JPRB,.122E-02_JPRB,.135E-02_JPRB,.161E-02_JPRB,.184E-02_JPRB,.226E-02_JPRB,.267E-02_JPRB,&
+&.289E-02_JPRB,.304E-02_JPRB,.283E-02_JPRB,.265E-02_JPRB,.238E-02_JPRB,.248E-02_JPRB,.271E-02_JPRB,&
+&.308E-02_JPRB,.339E-02_JPRB,.325E-02_JPRB,.301E-02_JPRB,.264E-02_JPRB,.271E-02_JPRB,.280E-02_JPRB,&
+&.282E-02_JPRB,.304E-02_JPRB,.329E-02_JPRB,.411E-02_JPRB,.404E-02_JPRB,.409E-02_JPRB,.465E-02_JPRB,&
+&.488E-02_JPRB,.479E-02_JPRB,.396E-02_JPRB,.368E-02_JPRB,.354E-02_JPRB,.345E-02_JPRB,.310E-02_JPRB,&
+&.277E-02_JPRB,.228E-02_JPRB,.168E-02_JPRB,.140E-02_JPRB,.111E-02_JPRB,.865E-03_JPRB,.762E-03_JPRB,&
+&.662E-03_JPRB,.628E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 27 -14.0
+ZAER (:,27,10) = (/&
+&.837E-03_JPRB,.833E-03_JPRB,.684E-03_JPRB,.616E-03_JPRB,.558E-03_JPRB,.509E-03_JPRB,.503E-03_JPRB,&
+&.508E-03_JPRB,.553E-03_JPRB,.617E-03_JPRB,.666E-03_JPRB,.737E-03_JPRB,.805E-03_JPRB,.870E-03_JPRB,&
+&.978E-03_JPRB,.128E-02_JPRB,.149E-02_JPRB,.175E-02_JPRB,.188E-02_JPRB,.193E-02_JPRB,.197E-02_JPRB,&
+&.206E-02_JPRB,.203E-02_JPRB,.198E-02_JPRB,.168E-02_JPRB,.152E-02_JPRB,.136E-02_JPRB,.109E-02_JPRB,&
+&.105E-02_JPRB,.103E-02_JPRB,.113E-02_JPRB,.134E-02_JPRB,.151E-02_JPRB,.175E-02_JPRB,.197E-02_JPRB,&
+&.208E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.211E-02_JPRB,.219E-02_JPRB,.239E-02_JPRB,&
+&.273E-02_JPRB,.311E-02_JPRB,.312E-02_JPRB,.305E-02_JPRB,.313E-02_JPRB,.329E-02_JPRB,.346E-02_JPRB,&
+&.395E-02_JPRB,.431E-02_JPRB,.470E-02_JPRB,.577E-02_JPRB,.547E-02_JPRB,.543E-02_JPRB,.652E-02_JPRB,&
+&.734E-02_JPRB,.755E-02_JPRB,.674E-02_JPRB,.552E-02_JPRB,.485E-02_JPRB,.427E-02_JPRB,.356E-02_JPRB,&
+&.300E-02_JPRB,.222E-02_JPRB,.164E-02_JPRB,.139E-02_JPRB,.116E-02_JPRB,.102E-02_JPRB,.947E-03_JPRB,&
+&.867E-03_JPRB,.838E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 28 -18.0
+ZAER (:,28,10) = (/&
+&.112E-02_JPRB,.112E-02_JPRB,.934E-03_JPRB,.814E-03_JPRB,.710E-03_JPRB,.617E-03_JPRB,.610E-03_JPRB,&
+&.616E-03_JPRB,.667E-03_JPRB,.754E-03_JPRB,.822E-03_JPRB,.920E-03_JPRB,.100E-02_JPRB,.105E-02_JPRB,&
+&.110E-02_JPRB,.143E-02_JPRB,.165E-02_JPRB,.193E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,&
+&.189E-02_JPRB,.175E-02_JPRB,.160E-02_JPRB,.131E-02_JPRB,.120E-02_JPRB,.110E-02_JPRB,.967E-03_JPRB,&
+&.929E-03_JPRB,.909E-03_JPRB,.970E-03_JPRB,.111E-02_JPRB,.121E-02_JPRB,.130E-02_JPRB,.138E-02_JPRB,&
+&.145E-02_JPRB,.156E-02_JPRB,.167E-02_JPRB,.174E-02_JPRB,.183E-02_JPRB,.198E-02_JPRB,.216E-02_JPRB,&
+&.242E-02_JPRB,.273E-02_JPRB,.285E-02_JPRB,.295E-02_JPRB,.351E-02_JPRB,.376E-02_JPRB,.399E-02_JPRB,&
+&.474E-02_JPRB,.517E-02_JPRB,.566E-02_JPRB,.725E-02_JPRB,.663E-02_JPRB,.639E-02_JPRB,.755E-02_JPRB,&
+&.981E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.862E-02_JPRB,.717E-02_JPRB,.556E-02_JPRB,.420E-02_JPRB,&
+&.338E-02_JPRB,.241E-02_JPRB,.174E-02_JPRB,.150E-02_JPRB,.130E-02_JPRB,.125E-02_JPRB,.120E-02_JPRB,&
+&.115E-02_JPRB,.112E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 29 -22.0
+ZAER (:,29,10) = (/&
+&.140E-02_JPRB,.140E-02_JPRB,.125E-02_JPRB,.109E-02_JPRB,.959E-03_JPRB,.797E-03_JPRB,.782E-03_JPRB,&
+&.783E-03_JPRB,.832E-03_JPRB,.935E-03_JPRB,.103E-02_JPRB,.120E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,&
+&.135E-02_JPRB,.158E-02_JPRB,.180E-02_JPRB,.214E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.229E-02_JPRB,&
+&.191E-02_JPRB,.167E-02_JPRB,.143E-02_JPRB,.112E-02_JPRB,.105E-02_JPRB,.977E-03_JPRB,.875E-03_JPRB,&
+&.830E-03_JPRB,.802E-03_JPRB,.834E-03_JPRB,.940E-03_JPRB,.101E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,&
+&.114E-02_JPRB,.127E-02_JPRB,.142E-02_JPRB,.153E-02_JPRB,.168E-02_JPRB,.197E-02_JPRB,.215E-02_JPRB,&
+&.237E-02_JPRB,.260E-02_JPRB,.278E-02_JPRB,.299E-02_JPRB,.377E-02_JPRB,.407E-02_JPRB,.435E-02_JPRB,&
+&.510E-02_JPRB,.547E-02_JPRB,.588E-02_JPRB,.725E-02_JPRB,.654E-02_JPRB,.630E-02_JPRB,.784E-02_JPRB,&
+&.121E-01_JPRB,.147E-01_JPRB,.164E-01_JPRB,.131E-01_JPRB,.108E-01_JPRB,.773E-02_JPRB,.539E-02_JPRB,&
+&.418E-02_JPRB,.296E-02_JPRB,.209E-02_JPRB,.177E-02_JPRB,.150E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 30 -26.0
+ZAER (:,30,10) = (/&
+&.167E-02_JPRB,.167E-02_JPRB,.159E-02_JPRB,.144E-02_JPRB,.129E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,&
+&.100E-02_JPRB,.103E-02_JPRB,.114E-02_JPRB,.126E-02_JPRB,.154E-02_JPRB,.183E-02_JPRB,.187E-02_JPRB,&
+&.169E-02_JPRB,.179E-02_JPRB,.204E-02_JPRB,.251E-02_JPRB,.292E-02_JPRB,.287E-02_JPRB,.269E-02_JPRB,&
+&.208E-02_JPRB,.174E-02_JPRB,.141E-02_JPRB,.104E-02_JPRB,.975E-03_JPRB,.918E-03_JPRB,.835E-03_JPRB,&
+&.776E-03_JPRB,.734E-03_JPRB,.731E-03_JPRB,.810E-03_JPRB,.868E-03_JPRB,.931E-03_JPRB,.987E-03_JPRB,&
+&.105E-02_JPRB,.117E-02_JPRB,.134E-02_JPRB,.152E-02_JPRB,.182E-02_JPRB,.234E-02_JPRB,.254E-02_JPRB,&
+&.273E-02_JPRB,.292E-02_JPRB,.313E-02_JPRB,.340E-02_JPRB,.416E-02_JPRB,.445E-02_JPRB,.473E-02_JPRB,&
+&.540E-02_JPRB,.547E-02_JPRB,.553E-02_JPRB,.561E-02_JPRB,.505E-02_JPRB,.502E-02_JPRB,.723E-02_JPRB,&
+&.134E-01_JPRB,.177E-01_JPRB,.223E-01_JPRB,.188E-01_JPRB,.158E-01_JPRB,.108E-01_JPRB,.723E-02_JPRB,&
+&.547E-02_JPRB,.377E-02_JPRB,.265E-02_JPRB,.219E-02_JPRB,.176E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.167E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 31 -30.0
+ZAER (:,31,10) = (/&
+&.191E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,.179E-02_JPRB,.167E-02_JPRB,.143E-02_JPRB,.134E-02_JPRB,&
+&.128E-02_JPRB,.124E-02_JPRB,.132E-02_JPRB,.146E-02_JPRB,.184E-02_JPRB,.225E-02_JPRB,.229E-02_JPRB,&
+&.201E-02_JPRB,.203E-02_JPRB,.233E-02_JPRB,.291E-02_JPRB,.349E-02_JPRB,.343E-02_JPRB,.322E-02_JPRB,&
+&.245E-02_JPRB,.200E-02_JPRB,.154E-02_JPRB,.105E-02_JPRB,.977E-03_JPRB,.913E-03_JPRB,.845E-03_JPRB,&
+&.780E-03_JPRB,.728E-03_JPRB,.690E-03_JPRB,.730E-03_JPRB,.772E-03_JPRB,.862E-03_JPRB,.969E-03_JPRB,&
+&.105E-02_JPRB,.118E-02_JPRB,.143E-02_JPRB,.177E-02_JPRB,.239E-02_JPRB,.319E-02_JPRB,.345E-02_JPRB,&
+&.362E-02_JPRB,.377E-02_JPRB,.394E-02_JPRB,.416E-02_JPRB,.481E-02_JPRB,.509E-02_JPRB,.536E-02_JPRB,&
+&.585E-02_JPRB,.546E-02_JPRB,.504E-02_JPRB,.382E-02_JPRB,.341E-02_JPRB,.351E-02_JPRB,.593E-02_JPRB,&
+&.130E-01_JPRB,.184E-01_JPRB,.260E-01_JPRB,.239E-01_JPRB,.208E-01_JPRB,.142E-01_JPRB,.936E-02_JPRB,&
+&.696E-02_JPRB,.467E-02_JPRB,.323E-02_JPRB,.264E-02_JPRB,.210E-02_JPRB,.184E-02_JPRB,.181E-02_JPRB,&
+&.180E-02_JPRB,.191E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 32 -34.0
+ZAER (:,32,10) = (/&
+&.214E-02_JPRB,.214E-02_JPRB,.216E-02_JPRB,.209E-02_JPRB,.201E-02_JPRB,.176E-02_JPRB,.163E-02_JPRB,&
+&.153E-02_JPRB,.141E-02_JPRB,.146E-02_JPRB,.160E-02_JPRB,.201E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,&
+&.204E-02_JPRB,.210E-02_JPRB,.243E-02_JPRB,.305E-02_JPRB,.373E-02_JPRB,.379E-02_JPRB,.372E-02_JPRB,&
+&.295E-02_JPRB,.241E-02_JPRB,.185E-02_JPRB,.119E-02_JPRB,.107E-02_JPRB,.968E-03_JPRB,.870E-03_JPRB,&
+&.823E-03_JPRB,.781E-03_JPRB,.721E-03_JPRB,.719E-03_JPRB,.738E-03_JPRB,.832E-03_JPRB,.101E-02_JPRB,&
+&.117E-02_JPRB,.143E-02_JPRB,.193E-02_JPRB,.257E-02_JPRB,.375E-02_JPRB,.497E-02_JPRB,.539E-02_JPRB,&
+&.567E-02_JPRB,.557E-02_JPRB,.554E-02_JPRB,.551E-02_JPRB,.598E-02_JPRB,.624E-02_JPRB,.648E-02_JPRB,&
+&.659E-02_JPRB,.584E-02_JPRB,.506E-02_JPRB,.336E-02_JPRB,.298E-02_JPRB,.301E-02_JPRB,.481E-02_JPRB,&
+&.107E-01_JPRB,.157E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,.225E-01_JPRB,.164E-01_JPRB,.109E-01_JPRB,&
+&.814E-02_JPRB,.544E-02_JPRB,.376E-02_JPRB,.310E-02_JPRB,.251E-02_JPRB,.220E-02_JPRB,.211E-02_JPRB,&
+&.204E-02_JPRB,.214E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 33 -38.0
+ZAER (:,33,10) = (/&
+&.232E-02_JPRB,.232E-02_JPRB,.233E-02_JPRB,.226E-02_JPRB,.219E-02_JPRB,.192E-02_JPRB,.176E-02_JPRB,&
+&.165E-02_JPRB,.151E-02_JPRB,.155E-02_JPRB,.166E-02_JPRB,.200E-02_JPRB,.213E-02_JPRB,.208E-02_JPRB,&
+&.182E-02_JPRB,.194E-02_JPRB,.225E-02_JPRB,.279E-02_JPRB,.349E-02_JPRB,.369E-02_JPRB,.384E-02_JPRB,&
+&.335E-02_JPRB,.284E-02_JPRB,.229E-02_JPRB,.145E-02_JPRB,.126E-02_JPRB,.108E-02_JPRB,.916E-03_JPRB,&
+&.892E-03_JPRB,.866E-03_JPRB,.802E-03_JPRB,.783E-03_JPRB,.802E-03_JPRB,.943E-03_JPRB,.128E-02_JPRB,&
+&.163E-02_JPRB,.232E-02_JPRB,.362E-02_JPRB,.485E-02_JPRB,.684E-02_JPRB,.853E-02_JPRB,.912E-02_JPRB,&
+&.954E-02_JPRB,.905E-02_JPRB,.866E-02_JPRB,.821E-02_JPRB,.799E-02_JPRB,.806E-02_JPRB,.815E-02_JPRB,&
+&.780E-02_JPRB,.698E-02_JPRB,.617E-02_JPRB,.461E-02_JPRB,.420E-02_JPRB,.403E-02_JPRB,.469E-02_JPRB,&
+&.776E-02_JPRB,.108E-01_JPRB,.169E-01_JPRB,.193E-01_JPRB,.190E-01_JPRB,.156E-01_JPRB,.110E-01_JPRB,&
+&.853E-02_JPRB,.593E-02_JPRB,.422E-02_JPRB,.354E-02_JPRB,.291E-02_JPRB,.257E-02_JPRB,.243E-02_JPRB,&
+&.230E-02_JPRB,.232E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 34 -42.0
+ZAER (:,34,10) = (/&
+&.239E-02_JPRB,.239E-02_JPRB,.231E-02_JPRB,.222E-02_JPRB,.213E-02_JPRB,.187E-02_JPRB,.172E-02_JPRB,&
+&.161E-02_JPRB,.153E-02_JPRB,.159E-02_JPRB,.167E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.180E-02_JPRB,&
+&.164E-02_JPRB,.174E-02_JPRB,.194E-02_JPRB,.228E-02_JPRB,.278E-02_JPRB,.304E-02_JPRB,.330E-02_JPRB,&
+&.326E-02_JPRB,.293E-02_JPRB,.254E-02_JPRB,.165E-02_JPRB,.142E-02_JPRB,.120E-02_JPRB,.998E-03_JPRB,&
+&.971E-03_JPRB,.945E-03_JPRB,.895E-03_JPRB,.908E-03_JPRB,.984E-03_JPRB,.131E-02_JPRB,.210E-02_JPRB,&
+&.293E-02_JPRB,.456E-02_JPRB,.767E-02_JPRB,.993E-02_JPRB,.130E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,&
+&.150E-01_JPRB,.143E-01_JPRB,.136E-01_JPRB,.127E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,&
+&.957E-02_JPRB,.897E-02_JPRB,.835E-02_JPRB,.701E-02_JPRB,.646E-02_JPRB,.603E-02_JPRB,.561E-02_JPRB,&
+&.637E-02_JPRB,.737E-02_JPRB,.991E-02_JPRB,.122E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.974E-02_JPRB,&
+&.810E-02_JPRB,.608E-02_JPRB,.455E-02_JPRB,.388E-02_JPRB,.323E-02_JPRB,.279E-02_JPRB,.264E-02_JPRB,&
+&.251E-02_JPRB,.240E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 35 -46.0
+ZAER (:,35,10) = (/&
+&.228E-02_JPRB,.228E-02_JPRB,.209E-02_JPRB,.199E-02_JPRB,.190E-02_JPRB,.171E-02_JPRB,.159E-02_JPRB,&
+&.152E-02_JPRB,.147E-02_JPRB,.153E-02_JPRB,.160E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,&
+&.161E-02_JPRB,.163E-02_JPRB,.168E-02_JPRB,.178E-02_JPRB,.195E-02_JPRB,.209E-02_JPRB,.227E-02_JPRB,&
+&.247E-02_JPRB,.238E-02_JPRB,.225E-02_JPRB,.162E-02_JPRB,.144E-02_JPRB,.126E-02_JPRB,.108E-02_JPRB,&
+&.104E-02_JPRB,.101E-02_JPRB,.994E-03_JPRB,.109E-02_JPRB,.129E-02_JPRB,.196E-02_JPRB,.364E-02_JPRB,&
+&.530E-02_JPRB,.841E-02_JPRB,.143E-01_JPRB,.180E-01_JPRB,.225E-01_JPRB,.225E-01_JPRB,.219E-01_JPRB,&
+&.207E-01_JPRB,.199E-01_JPRB,.190E-01_JPRB,.179E-01_JPRB,.147E-01_JPRB,.136E-01_JPRB,.126E-01_JPRB,&
+&.119E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.959E-02_JPRB,.867E-02_JPRB,.791E-02_JPRB,.686E-02_JPRB,&
+&.660E-02_JPRB,.653E-02_JPRB,.678E-02_JPRB,.770E-02_JPRB,.822E-02_JPRB,.871E-02_JPRB,.784E-02_JPRB,&
+&.706E-02_JPRB,.587E-02_JPRB,.460E-02_JPRB,.397E-02_JPRB,.332E-02_JPRB,.282E-02_JPRB,.265E-02_JPRB,&
+&.250E-02_JPRB,.229E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 36 -50.0
+ZAER (:,36,10) = (/&
+&.198E-02_JPRB,.198E-02_JPRB,.179E-02_JPRB,.172E-02_JPRB,.165E-02_JPRB,.155E-02_JPRB,.146E-02_JPRB,&
+&.141E-02_JPRB,.139E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.158E-02_JPRB,&
+&.158E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,&
+&.168E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.147E-02_JPRB,.137E-02_JPRB,.127E-02_JPRB,.113E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.117E-02_JPRB,.138E-02_JPRB,.173E-02_JPRB,.282E-02_JPRB,.528E-02_JPRB,&
+&.765E-02_JPRB,.120E-01_JPRB,.201E-01_JPRB,.250E-01_JPRB,.305E-01_JPRB,.282E-01_JPRB,.265E-01_JPRB,&
+&.244E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.216E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,&
+&.141E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.112E-01_JPRB,.100E-01_JPRB,.901E-02_JPRB,.768E-02_JPRB,&
+&.709E-02_JPRB,.664E-02_JPRB,.600E-02_JPRB,.574E-02_JPRB,.567E-02_JPRB,.575E-02_JPRB,.557E-02_JPRB,&
+&.531E-02_JPRB,.485E-02_JPRB,.403E-02_JPRB,.357E-02_JPRB,.307E-02_JPRB,.266E-02_JPRB,.248E-02_JPRB,&
+&.229E-02_JPRB,.199E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 37 -54.0
+ZAER (:,37,10) = (/&
+&.164E-02_JPRB,.163E-02_JPRB,.153E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,.139E-02_JPRB,.134E-02_JPRB,&
+&.132E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.133E-02_JPRB,.126E-02_JPRB,.115E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,&
+&.122E-02_JPRB,.126E-02_JPRB,.130E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.115E-02_JPRB,.110E-02_JPRB,&
+&.116E-02_JPRB,.123E-02_JPRB,.143E-02_JPRB,.173E-02_JPRB,.214E-02_JPRB,.329E-02_JPRB,.554E-02_JPRB,&
+&.764E-02_JPRB,.114E-01_JPRB,.178E-01_JPRB,.215E-01_JPRB,.258E-01_JPRB,.253E-01_JPRB,.248E-01_JPRB,&
+&.242E-01_JPRB,.245E-01_JPRB,.236E-01_JPRB,.223E-01_JPRB,.190E-01_JPRB,.174E-01_JPRB,.159E-01_JPRB,&
+&.142E-01_JPRB,.133E-01_JPRB,.124E-01_JPRB,.105E-01_JPRB,.947E-02_JPRB,.857E-02_JPRB,.724E-02_JPRB,&
+&.660E-02_JPRB,.608E-02_JPRB,.526E-02_JPRB,.454E-02_JPRB,.412E-02_JPRB,.371E-02_JPRB,.343E-02_JPRB,&
+&.327E-02_JPRB,.307E-02_JPRB,.274E-02_JPRB,.258E-02_JPRB,.241E-02_JPRB,.221E-02_JPRB,.206E-02_JPRB,&
+&.188E-02_JPRB,.164E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 38 -58.0
+ZAER (:,38,10) = (/&
+&.133E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,&
+&.117E-02_JPRB,.109E-02_JPRB,.103E-02_JPRB,.958E-03_JPRB,.905E-03_JPRB,.899E-03_JPRB,.903E-03_JPRB,&
+&.965E-03_JPRB,.100E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.100E-02_JPRB,.105E-02_JPRB,&
+&.117E-02_JPRB,.130E-02_JPRB,.157E-02_JPRB,.182E-02_JPRB,.210E-02_JPRB,.277E-02_JPRB,.404E-02_JPRB,&
+&.520E-02_JPRB,.723E-02_JPRB,.943E-02_JPRB,.108E-01_JPRB,.124E-01_JPRB,.139E-01_JPRB,.151E-01_JPRB,&
+&.165E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,.155E-01_JPRB,.143E-01_JPRB,.131E-01_JPRB,&
+&.111E-01_JPRB,.101E-01_JPRB,.909E-02_JPRB,.776E-02_JPRB,.704E-02_JPRB,.643E-02_JPRB,.553E-02_JPRB,&
+&.506E-02_JPRB,.465E-02_JPRB,.397E-02_JPRB,.331E-02_JPRB,.290E-02_JPRB,.243E-02_JPRB,.219E-02_JPRB,&
+&.207E-02_JPRB,.193E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.163E-02_JPRB,.154E-02_JPRB,.148E-02_JPRB,&
+&.141E-02_JPRB,.133E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 39 -62.0
+ZAER (:,39,10) = (/&
+&.111E-02_JPRB,.111E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,&
+&.103E-02_JPRB,.952E-03_JPRB,.904E-03_JPRB,.846E-03_JPRB,.819E-03_JPRB,.821E-03_JPRB,.830E-03_JPRB,&
+&.866E-03_JPRB,.879E-03_JPRB,.891E-03_JPRB,.865E-03_JPRB,.855E-03_JPRB,.849E-03_JPRB,.911E-03_JPRB,&
+&.996E-03_JPRB,.108E-02_JPRB,.127E-02_JPRB,.147E-02_JPRB,.168E-02_JPRB,.214E-02_JPRB,.277E-02_JPRB,&
+&.327E-02_JPRB,.401E-02_JPRB,.467E-02_JPRB,.511E-02_JPRB,.570E-02_JPRB,.650E-02_JPRB,.713E-02_JPRB,&
+&.796E-02_JPRB,.904E-02_JPRB,.958E-02_JPRB,.101E-01_JPRB,.102E-01_JPRB,.971E-02_JPRB,.914E-02_JPRB,&
+&.749E-02_JPRB,.671E-02_JPRB,.598E-02_JPRB,.513E-02_JPRB,.474E-02_JPRB,.440E-02_JPRB,.386E-02_JPRB,&
+&.349E-02_JPRB,.319E-02_JPRB,.274E-02_JPRB,.236E-02_JPRB,.211E-02_JPRB,.182E-02_JPRB,.159E-02_JPRB,&
+&.147E-02_JPRB,.134E-02_JPRB,.123E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.111E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 40 -66.0
+ZAER (:,40,10) = (/&
+&.988E-03_JPRB,.989E-03_JPRB,.102E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.100E-02_JPRB,.979E-03_JPRB,&
+&.941E-03_JPRB,.885E-03_JPRB,.853E-03_JPRB,.816E-03_JPRB,.802E-03_JPRB,.807E-03_JPRB,.817E-03_JPRB,&
+&.838E-03_JPRB,.833E-03_JPRB,.825E-03_JPRB,.767E-03_JPRB,.741E-03_JPRB,.717E-03_JPRB,.730E-03_JPRB,&
+&.772E-03_JPRB,.818E-03_JPRB,.934E-03_JPRB,.108E-02_JPRB,.124E-02_JPRB,.158E-02_JPRB,.205E-02_JPRB,&
+&.240E-02_JPRB,.290E-02_JPRB,.321E-02_JPRB,.341E-02_JPRB,.365E-02_JPRB,.401E-02_JPRB,.429E-02_JPRB,&
+&.466E-02_JPRB,.518E-02_JPRB,.551E-02_JPRB,.588E-02_JPRB,.610E-02_JPRB,.584E-02_JPRB,.553E-02_JPRB,&
+&.464E-02_JPRB,.424E-02_JPRB,.388E-02_JPRB,.348E-02_JPRB,.326E-02_JPRB,.307E-02_JPRB,.275E-02_JPRB,&
+&.251E-02_JPRB,.233E-02_JPRB,.205E-02_JPRB,.182E-02_JPRB,.166E-02_JPRB,.145E-02_JPRB,.128E-02_JPRB,&
+&.120E-02_JPRB,.112E-02_JPRB,.105E-02_JPRB,.102E-02_JPRB,.984E-03_JPRB,.962E-03_JPRB,.961E-03_JPRB,&
+&.963E-03_JPRB,.987E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 41 -70.0
+ZAER (:,41,10) = (/&
+&.929E-03_JPRB,.930E-03_JPRB,.939E-03_JPRB,.945E-03_JPRB,.951E-03_JPRB,.962E-03_JPRB,.968E-03_JPRB,&
+&.973E-03_JPRB,.977E-03_JPRB,.977E-03_JPRB,.974E-03_JPRB,.963E-03_JPRB,.940E-03_JPRB,.920E-03_JPRB,&
+&.888E-03_JPRB,.854E-03_JPRB,.836E-03_JPRB,.815E-03_JPRB,.808E-03_JPRB,.810E-03_JPRB,.814E-03_JPRB,&
+&.808E-03_JPRB,.790E-03_JPRB,.770E-03_JPRB,.711E-03_JPRB,.682E-03_JPRB,.654E-03_JPRB,.638E-03_JPRB,&
+&.652E-03_JPRB,.669E-03_JPRB,.728E-03_JPRB,.811E-03_JPRB,.898E-03_JPRB,.109E-02_JPRB,.134E-02_JPRB,&
+&.155E-02_JPRB,.188E-02_JPRB,.217E-02_JPRB,.235E-02_JPRB,.255E-02_JPRB,.271E-02_JPRB,.281E-02_JPRB,&
+&.293E-02_JPRB,.310E-02_JPRB,.320E-02_JPRB,.329E-02_JPRB,.326E-02_JPRB,.312E-02_JPRB,.297E-02_JPRB,&
+&.263E-02_JPRB,.250E-02_JPRB,.237E-02_JPRB,.221E-02_JPRB,.212E-02_JPRB,.204E-02_JPRB,.191E-02_JPRB,&
+&.179E-02_JPRB,.170E-02_JPRB,.156E-02_JPRB,.143E-02_JPRB,.134E-02_JPRB,.122E-02_JPRB,.114E-02_JPRB,&
+&.110E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,.984E-03_JPRB,.962E-03_JPRB,.941E-03_JPRB,.934E-03_JPRB,&
+&.928E-03_JPRB,.929E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 42 -74.0
+ZAER (:,42,10) = (/&
+&.901E-03_JPRB,.901E-03_JPRB,.892E-03_JPRB,.890E-03_JPRB,.889E-03_JPRB,.892E-03_JPRB,.896E-03_JPRB,&
+&.899E-03_JPRB,.905E-03_JPRB,.907E-03_JPRB,.908E-03_JPRB,.904E-03_JPRB,.893E-03_JPRB,.883E-03_JPRB,&
+&.867E-03_JPRB,.848E-03_JPRB,.837E-03_JPRB,.825E-03_JPRB,.816E-03_JPRB,.811E-03_JPRB,.805E-03_JPRB,&
+&.786E-03_JPRB,.767E-03_JPRB,.746E-03_JPRB,.700E-03_JPRB,.677E-03_JPRB,.655E-03_JPRB,.633E-03_JPRB,&
+&.632E-03_JPRB,.636E-03_JPRB,.662E-03_JPRB,.703E-03_JPRB,.745E-03_JPRB,.838E-03_JPRB,.955E-03_JPRB,&
+&.106E-02_JPRB,.122E-02_JPRB,.140E-02_JPRB,.152E-02_JPRB,.166E-02_JPRB,.178E-02_JPRB,.183E-02_JPRB,&
+&.189E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,.191E-02_JPRB,.184E-02_JPRB,.177E-02_JPRB,&
+&.164E-02_JPRB,.159E-02_JPRB,.155E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.145E-02_JPRB,.141E-02_JPRB,&
+&.137E-02_JPRB,.133E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,&
+&.108E-02_JPRB,.105E-02_JPRB,.101E-02_JPRB,.995E-03_JPRB,.973E-03_JPRB,.945E-03_JPRB,.931E-03_JPRB,&
+&.918E-03_JPRB,.902E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 43 -78.0
+ZAER (:,43,10) = (/&
+&.882E-03_JPRB,.882E-03_JPRB,.871E-03_JPRB,.868E-03_JPRB,.866E-03_JPRB,.865E-03_JPRB,.866E-03_JPRB,&
+&.867E-03_JPRB,.869E-03_JPRB,.870E-03_JPRB,.870E-03_JPRB,.868E-03_JPRB,.862E-03_JPRB,.857E-03_JPRB,&
+&.848E-03_JPRB,.836E-03_JPRB,.828E-03_JPRB,.818E-03_JPRB,.804E-03_JPRB,.795E-03_JPRB,.784E-03_JPRB,&
+&.763E-03_JPRB,.749E-03_JPRB,.734E-03_JPRB,.705E-03_JPRB,.691E-03_JPRB,.679E-03_JPRB,.664E-03_JPRB,&
+&.662E-03_JPRB,.662E-03_JPRB,.675E-03_JPRB,.695E-03_JPRB,.716E-03_JPRB,.760E-03_JPRB,.813E-03_JPRB,&
+&.858E-03_JPRB,.933E-03_JPRB,.102E-02_JPRB,.108E-02_JPRB,.115E-02_JPRB,.122E-02_JPRB,.126E-02_JPRB,&
+&.130E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.101E-02_JPRB,.987E-03_JPRB,.970E-03_JPRB,.951E-03_JPRB,.924E-03_JPRB,.912E-03_JPRB,&
+&.899E-03_JPRB,.883E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 44 -82.0
+ZAER (:,44,10) = (/&
+&.864E-03_JPRB,.863E-03_JPRB,.855E-03_JPRB,.852E-03_JPRB,.849E-03_JPRB,.846E-03_JPRB,.844E-03_JPRB,&
+&.843E-03_JPRB,.840E-03_JPRB,.838E-03_JPRB,.836E-03_JPRB,.832E-03_JPRB,.828E-03_JPRB,.824E-03_JPRB,&
+&.818E-03_JPRB,.810E-03_JPRB,.805E-03_JPRB,.798E-03_JPRB,.788E-03_JPRB,.782E-03_JPRB,.774E-03_JPRB,&
+&.762E-03_JPRB,.755E-03_JPRB,.748E-03_JPRB,.737E-03_JPRB,.732E-03_JPRB,.728E-03_JPRB,.724E-03_JPRB,&
+&.725E-03_JPRB,.727E-03_JPRB,.734E-03_JPRB,.745E-03_JPRB,.755E-03_JPRB,.775E-03_JPRB,.797E-03_JPRB,&
+&.815E-03_JPRB,.845E-03_JPRB,.876E-03_JPRB,.898E-03_JPRB,.928E-03_JPRB,.960E-03_JPRB,.977E-03_JPRB,&
+&.996E-03_JPRB,.101E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.994E-03_JPRB,.987E-03_JPRB,.977E-03_JPRB,.964E-03_JPRB,&
+&.955E-03_JPRB,.943E-03_JPRB,.927E-03_JPRB,.917E-03_JPRB,.906E-03_JPRB,.890E-03_JPRB,.882E-03_JPRB,&
+&.875E-03_JPRB,.864E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 45 -86.0
+ZAER (:,45,10) = (/&
+&.855E-03_JPRB,.855E-03_JPRB,.851E-03_JPRB,.849E-03_JPRB,.848E-03_JPRB,.845E-03_JPRB,.843E-03_JPRB,&
+&.842E-03_JPRB,.839E-03_JPRB,.837E-03_JPRB,.836E-03_JPRB,.833E-03_JPRB,.831E-03_JPRB,.829E-03_JPRB,&
+&.826E-03_JPRB,.823E-03_JPRB,.821E-03_JPRB,.818E-03_JPRB,.815E-03_JPRB,.813E-03_JPRB,.810E-03_JPRB,&
+&.807E-03_JPRB,.805E-03_JPRB,.804E-03_JPRB,.802E-03_JPRB,.801E-03_JPRB,.801E-03_JPRB,.802E-03_JPRB,&
+&.803E-03_JPRB,.805E-03_JPRB,.808E-03_JPRB,.812E-03_JPRB,.816E-03_JPRB,.822E-03_JPRB,.828E-03_JPRB,&
+&.833E-03_JPRB,.841E-03_JPRB,.849E-03_JPRB,.854E-03_JPRB,.862E-03_JPRB,.870E-03_JPRB,.875E-03_JPRB,&
+&.881E-03_JPRB,.889E-03_JPRB,.893E-03_JPRB,.897E-03_JPRB,.902E-03_JPRB,.904E-03_JPRB,.907E-03_JPRB,&
+&.910E-03_JPRB,.911E-03_JPRB,.911E-03_JPRB,.912E-03_JPRB,.912E-03_JPRB,.912E-03_JPRB,.910E-03_JPRB,&
+&.909E-03_JPRB,.907E-03_JPRB,.904E-03_JPRB,.901E-03_JPRB,.898E-03_JPRB,.895E-03_JPRB,.890E-03_JPRB,&
+&.887E-03_JPRB,.883E-03_JPRB,.878E-03_JPRB,.874E-03_JPRB,.871E-03_JPRB,.865E-03_JPRB,.863E-03_JPRB,&
+&.860E-03_JPRB,.856E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 10 --- lat: 46 -90.0
+ZAER (:,46,10) = (/&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=10  
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_10
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_11.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_11
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 November
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,11:11)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month: 11 --- lat:  1  90.0
+ZAER (:, 1,11) = (/&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,.860E-04_JPRB,&
+&.860E-04_JPRB,.860E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  2  86.0
+ZAER (:, 2,11) = (/&
+&.884E-04_JPRB,.884E-04_JPRB,.887E-04_JPRB,.889E-04_JPRB,.890E-04_JPRB,.891E-04_JPRB,.892E-04_JPRB,&
+&.892E-04_JPRB,.892E-04_JPRB,.892E-04_JPRB,.891E-04_JPRB,.891E-04_JPRB,.890E-04_JPRB,.889E-04_JPRB,&
+&.888E-04_JPRB,.887E-04_JPRB,.886E-04_JPRB,.885E-04_JPRB,.883E-04_JPRB,.882E-04_JPRB,.881E-04_JPRB,&
+&.879E-04_JPRB,.878E-04_JPRB,.877E-04_JPRB,.874E-04_JPRB,.873E-04_JPRB,.871E-04_JPRB,.867E-04_JPRB,&
+&.865E-04_JPRB,.862E-04_JPRB,.859E-04_JPRB,.856E-04_JPRB,.853E-04_JPRB,.849E-04_JPRB,.846E-04_JPRB,&
+&.844E-04_JPRB,.841E-04_JPRB,.837E-04_JPRB,.835E-04_JPRB,.833E-04_JPRB,.831E-04_JPRB,.830E-04_JPRB,&
+&.829E-04_JPRB,.828E-04_JPRB,.827E-04_JPRB,.827E-04_JPRB,.827E-04_JPRB,.827E-04_JPRB,.828E-04_JPRB,&
+&.829E-04_JPRB,.830E-04_JPRB,.830E-04_JPRB,.832E-04_JPRB,.833E-04_JPRB,.834E-04_JPRB,.837E-04_JPRB,&
+&.839E-04_JPRB,.840E-04_JPRB,.843E-04_JPRB,.846E-04_JPRB,.848E-04_JPRB,.850E-04_JPRB,.854E-04_JPRB,&
+&.857E-04_JPRB,.860E-04_JPRB,.865E-04_JPRB,.867E-04_JPRB,.870E-04_JPRB,.875E-04_JPRB,.877E-04_JPRB,&
+&.880E-04_JPRB,.884E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  3  82.0
+ZAER (:, 3,11) = (/&
+&.949E-04_JPRB,.949E-04_JPRB,.958E-04_JPRB,.960E-04_JPRB,.961E-04_JPRB,.960E-04_JPRB,.957E-04_JPRB,&
+&.955E-04_JPRB,.949E-04_JPRB,.944E-04_JPRB,.940E-04_JPRB,.934E-04_JPRB,.929E-04_JPRB,.926E-04_JPRB,&
+&.922E-04_JPRB,.919E-04_JPRB,.917E-04_JPRB,.915E-04_JPRB,.913E-04_JPRB,.913E-04_JPRB,.912E-04_JPRB,&
+&.912E-04_JPRB,.912E-04_JPRB,.912E-04_JPRB,.912E-04_JPRB,.911E-04_JPRB,.910E-04_JPRB,.904E-04_JPRB,&
+&.898E-04_JPRB,.893E-04_JPRB,.882E-04_JPRB,.872E-04_JPRB,.863E-04_JPRB,.850E-04_JPRB,.839E-04_JPRB,&
+&.831E-04_JPRB,.820E-04_JPRB,.810E-04_JPRB,.804E-04_JPRB,.797E-04_JPRB,.792E-04_JPRB,.789E-04_JPRB,&
+&.786E-04_JPRB,.785E-04_JPRB,.785E-04_JPRB,.785E-04_JPRB,.788E-04_JPRB,.790E-04_JPRB,.792E-04_JPRB,&
+&.797E-04_JPRB,.800E-04_JPRB,.802E-04_JPRB,.807E-04_JPRB,.809E-04_JPRB,.812E-04_JPRB,.815E-04_JPRB,&
+&.817E-04_JPRB,.819E-04_JPRB,.823E-04_JPRB,.827E-04_JPRB,.831E-04_JPRB,.837E-04_JPRB,.847E-04_JPRB,&
+&.854E-04_JPRB,.864E-04_JPRB,.879E-04_JPRB,.889E-04_JPRB,.900E-04_JPRB,.917E-04_JPRB,.927E-04_JPRB,&
+&.936E-04_JPRB,.949E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  4  78.0
+ZAER (:, 4,11) = (/&
+&.107E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,.108E-03_JPRB,.107E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,&
+&.104E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.988E-04_JPRB,.972E-04_JPRB,.961E-04_JPRB,.954E-04_JPRB,&
+&.945E-04_JPRB,.939E-04_JPRB,.937E-04_JPRB,.935E-04_JPRB,.936E-04_JPRB,.938E-04_JPRB,.941E-04_JPRB,&
+&.950E-04_JPRB,.956E-04_JPRB,.963E-04_JPRB,.976E-04_JPRB,.981E-04_JPRB,.986E-04_JPRB,.986E-04_JPRB,&
+&.980E-04_JPRB,.973E-04_JPRB,.954E-04_JPRB,.935E-04_JPRB,.919E-04_JPRB,.892E-04_JPRB,.869E-04_JPRB,&
+&.853E-04_JPRB,.830E-04_JPRB,.811E-04_JPRB,.800E-04_JPRB,.786E-04_JPRB,.777E-04_JPRB,.773E-04_JPRB,&
+&.769E-04_JPRB,.769E-04_JPRB,.771E-04_JPRB,.774E-04_JPRB,.785E-04_JPRB,.792E-04_JPRB,.800E-04_JPRB,&
+&.812E-04_JPRB,.819E-04_JPRB,.824E-04_JPRB,.829E-04_JPRB,.830E-04_JPRB,.830E-04_JPRB,.827E-04_JPRB,&
+&.823E-04_JPRB,.820E-04_JPRB,.817E-04_JPRB,.817E-04_JPRB,.819E-04_JPRB,.826E-04_JPRB,.840E-04_JPRB,&
+&.852E-04_JPRB,.871E-04_JPRB,.902E-04_JPRB,.923E-04_JPRB,.950E-04_JPRB,.990E-04_JPRB,.101E-03_JPRB,&
+&.103E-03_JPRB,.106E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  5  74.0
+ZAER (:, 5,11) = (/&
+&.121E-03_JPRB,.121E-03_JPRB,.123E-03_JPRB,.122E-03_JPRB,.121E-03_JPRB,.118E-03_JPRB,.115E-03_JPRB,&
+&.113E-03_JPRB,.109E-03_JPRB,.106E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,.998E-04_JPRB,.987E-04_JPRB,&
+&.975E-04_JPRB,.967E-04_JPRB,.964E-04_JPRB,.961E-04_JPRB,.964E-04_JPRB,.967E-04_JPRB,.972E-04_JPRB,&
+&.987E-04_JPRB,.999E-04_JPRB,.101E-03_JPRB,.104E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.109E-03_JPRB,&
+&.109E-03_JPRB,.108E-03_JPRB,.106E-03_JPRB,.104E-03_JPRB,.102E-03_JPRB,.979E-04_JPRB,.947E-04_JPRB,&
+&.924E-04_JPRB,.893E-04_JPRB,.866E-04_JPRB,.850E-04_JPRB,.831E-04_JPRB,.819E-04_JPRB,.814E-04_JPRB,&
+&.809E-04_JPRB,.811E-04_JPRB,.816E-04_JPRB,.823E-04_JPRB,.845E-04_JPRB,.860E-04_JPRB,.875E-04_JPRB,&
+&.902E-04_JPRB,.911E-04_JPRB,.919E-04_JPRB,.921E-04_JPRB,.914E-04_JPRB,.906E-04_JPRB,.887E-04_JPRB,&
+&.869E-04_JPRB,.855E-04_JPRB,.836E-04_JPRB,.826E-04_JPRB,.823E-04_JPRB,.826E-04_JPRB,.840E-04_JPRB,&
+&.856E-04_JPRB,.882E-04_JPRB,.928E-04_JPRB,.963E-04_JPRB,.101E-03_JPRB,.108E-03_JPRB,.112E-03_JPRB,&
+&.116E-03_JPRB,.121E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  6  70.0
+ZAER (:, 6,11) = (/&
+&.135E-03_JPRB,.136E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.130E-03_JPRB,.126E-03_JPRB,&
+&.123E-03_JPRB,.118E-03_JPRB,.114E-03_JPRB,.111E-03_JPRB,.108E-03_JPRB,.106E-03_JPRB,.105E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,.102E-03_JPRB,&
+&.103E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.108E-03_JPRB,.111E-03_JPRB,.113E-03_JPRB,.116E-03_JPRB,&
+&.117E-03_JPRB,.117E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.112E-03_JPRB,.108E-03_JPRB,.106E-03_JPRB,&
+&.103E-03_JPRB,.101E-03_JPRB,.982E-04_JPRB,.968E-04_JPRB,.951E-04_JPRB,.939E-04_JPRB,.934E-04_JPRB,&
+&.929E-04_JPRB,.930E-04_JPRB,.934E-04_JPRB,.939E-04_JPRB,.963E-04_JPRB,.984E-04_JPRB,.101E-03_JPRB,&
+&.105E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.107E-03_JPRB,.105E-03_JPRB,.103E-03_JPRB,.994E-04_JPRB,&
+&.961E-04_JPRB,.936E-04_JPRB,.902E-04_JPRB,.884E-04_JPRB,.876E-04_JPRB,.873E-04_JPRB,.886E-04_JPRB,&
+&.902E-04_JPRB,.930E-04_JPRB,.987E-04_JPRB,.103E-03_JPRB,.109E-03_JPRB,.119E-03_JPRB,.124E-03_JPRB,&
+&.129E-03_JPRB,.135E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  7  66.0
+ZAER (:, 7,11) = (/&
+&.150E-03_JPRB,.150E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,.150E-03_JPRB,.144E-03_JPRB,.140E-03_JPRB,&
+&.136E-03_JPRB,.131E-03_JPRB,.126E-03_JPRB,.123E-03_JPRB,.119E-03_JPRB,.116E-03_JPRB,.114E-03_JPRB,&
+&.113E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.110E-03_JPRB,.110E-03_JPRB,.109E-03_JPRB,&
+&.108E-03_JPRB,.109E-03_JPRB,.109E-03_JPRB,.111E-03_JPRB,.113E-03_JPRB,.115E-03_JPRB,.118E-03_JPRB,&
+&.119E-03_JPRB,.119E-03_JPRB,.119E-03_JPRB,.119E-03_JPRB,.119E-03_JPRB,.117E-03_JPRB,.116E-03_JPRB,&
+&.116E-03_JPRB,.115E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,.114E-03_JPRB,&
+&.113E-03_JPRB,.113E-03_JPRB,.113E-03_JPRB,.112E-03_JPRB,.113E-03_JPRB,.115E-03_JPRB,.118E-03_JPRB,&
+&.122E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.124E-03_JPRB,.121E-03_JPRB,.119E-03_JPRB,.113E-03_JPRB,&
+&.109E-03_JPRB,.106E-03_JPRB,.102E-03_JPRB,.100E-03_JPRB,.997E-04_JPRB,.994E-04_JPRB,.101E-03_JPRB,&
+&.103E-03_JPRB,.106E-03_JPRB,.112E-03_JPRB,.117E-03_JPRB,.122E-03_JPRB,.133E-03_JPRB,.138E-03_JPRB,&
+&.143E-03_JPRB,.150E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  8  62.0
+ZAER (:, 8,11) = (/&
+&.163E-03_JPRB,.163E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.161E-03_JPRB,.156E-03_JPRB,&
+&.152E-03_JPRB,.146E-03_JPRB,.142E-03_JPRB,.139E-03_JPRB,.135E-03_JPRB,.131E-03_JPRB,.129E-03_JPRB,&
+&.127E-03_JPRB,.125E-03_JPRB,.123E-03_JPRB,.121E-03_JPRB,.119E-03_JPRB,.117E-03_JPRB,.116E-03_JPRB,&
+&.115E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,.116E-03_JPRB,.116E-03_JPRB,.117E-03_JPRB,.119E-03_JPRB,&
+&.119E-03_JPRB,.119E-03_JPRB,.120E-03_JPRB,.121E-03_JPRB,.122E-03_JPRB,.124E-03_JPRB,.126E-03_JPRB,&
+&.129E-03_JPRB,.133E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,.137E-03_JPRB,&
+&.137E-03_JPRB,.135E-03_JPRB,.134E-03_JPRB,.132E-03_JPRB,.133E-03_JPRB,.134E-03_JPRB,.135E-03_JPRB,&
+&.140E-03_JPRB,.141E-03_JPRB,.142E-03_JPRB,.140E-03_JPRB,.137E-03_JPRB,.135E-03_JPRB,.131E-03_JPRB,&
+&.128E-03_JPRB,.125E-03_JPRB,.121E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,.120E-03_JPRB,&
+&.122E-03_JPRB,.125E-03_JPRB,.131E-03_JPRB,.135E-03_JPRB,.141E-03_JPRB,.151E-03_JPRB,.155E-03_JPRB,&
+&.159E-03_JPRB,.163E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat:  9  58.0
+ZAER (:, 9,11) = (/&
+&.181E-03_JPRB,.182E-03_JPRB,.184E-03_JPRB,.184E-03_JPRB,.184E-03_JPRB,.179E-03_JPRB,.174E-03_JPRB,&
+&.170E-03_JPRB,.163E-03_JPRB,.160E-03_JPRB,.157E-03_JPRB,.153E-03_JPRB,.149E-03_JPRB,.146E-03_JPRB,&
+&.143E-03_JPRB,.139E-03_JPRB,.136E-03_JPRB,.133E-03_JPRB,.129E-03_JPRB,.127E-03_JPRB,.124E-03_JPRB,&
+&.123E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.127E-03_JPRB,.126E-03_JPRB,&
+&.127E-03_JPRB,.128E-03_JPRB,.129E-03_JPRB,.131E-03_JPRB,.132E-03_JPRB,.134E-03_JPRB,.138E-03_JPRB,&
+&.142E-03_JPRB,.148E-03_JPRB,.153E-03_JPRB,.155E-03_JPRB,.155E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,&
+&.157E-03_JPRB,.155E-03_JPRB,.153E-03_JPRB,.152E-03_JPRB,.150E-03_JPRB,.152E-03_JPRB,.153E-03_JPRB,&
+&.158E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,.157E-03_JPRB,.156E-03_JPRB,.155E-03_JPRB,.154E-03_JPRB,&
+&.152E-03_JPRB,.149E-03_JPRB,.145E-03_JPRB,.142E-03_JPRB,.141E-03_JPRB,.140E-03_JPRB,.141E-03_JPRB,&
+&.143E-03_JPRB,.147E-03_JPRB,.153E-03_JPRB,.158E-03_JPRB,.165E-03_JPRB,.174E-03_JPRB,.177E-03_JPRB,&
+&.179E-03_JPRB,.181E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 10  54.0
+ZAER (:,10,11) = (/&
+&.205E-03_JPRB,.205E-03_JPRB,.207E-03_JPRB,.206E-03_JPRB,.205E-03_JPRB,.199E-03_JPRB,.192E-03_JPRB,&
+&.187E-03_JPRB,.178E-03_JPRB,.174E-03_JPRB,.170E-03_JPRB,.166E-03_JPRB,.162E-03_JPRB,.160E-03_JPRB,&
+&.158E-03_JPRB,.154E-03_JPRB,.151E-03_JPRB,.147E-03_JPRB,.143E-03_JPRB,.140E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.140E-03_JPRB,.143E-03_JPRB,.146E-03_JPRB,.146E-03_JPRB,.147E-03_JPRB,.146E-03_JPRB,&
+&.147E-03_JPRB,.147E-03_JPRB,.150E-03_JPRB,.152E-03_JPRB,.153E-03_JPRB,.155E-03_JPRB,.157E-03_JPRB,&
+&.159E-03_JPRB,.163E-03_JPRB,.166E-03_JPRB,.168E-03_JPRB,.167E-03_JPRB,.168E-03_JPRB,.169E-03_JPRB,&
+&.171E-03_JPRB,.172E-03_JPRB,.171E-03_JPRB,.169E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,.168E-03_JPRB,&
+&.171E-03_JPRB,.172E-03_JPRB,.173E-03_JPRB,.170E-03_JPRB,.170E-03_JPRB,.170E-03_JPRB,.171E-03_JPRB,&
+&.170E-03_JPRB,.169E-03_JPRB,.166E-03_JPRB,.163E-03_JPRB,.162E-03_JPRB,.160E-03_JPRB,.162E-03_JPRB,&
+&.165E-03_JPRB,.171E-03_JPRB,.178E-03_JPRB,.184E-03_JPRB,.191E-03_JPRB,.198E-03_JPRB,.200E-03_JPRB,&
+&.202E-03_JPRB,.205E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 11  50.0
+ZAER (:,11,11) = (/&
+&.233E-03_JPRB,.233E-03_JPRB,.233E-03_JPRB,.231E-03_JPRB,.230E-03_JPRB,.220E-03_JPRB,.213E-03_JPRB,&
+&.206E-03_JPRB,.194E-03_JPRB,.188E-03_JPRB,.184E-03_JPRB,.180E-03_JPRB,.177E-03_JPRB,.176E-03_JPRB,&
+&.176E-03_JPRB,.173E-03_JPRB,.170E-03_JPRB,.166E-03_JPRB,.162E-03_JPRB,.160E-03_JPRB,.158E-03_JPRB,&
+&.159E-03_JPRB,.164E-03_JPRB,.169E-03_JPRB,.175E-03_JPRB,.176E-03_JPRB,.177E-03_JPRB,.178E-03_JPRB,&
+&.180E-03_JPRB,.183E-03_JPRB,.187E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,.189E-03_JPRB,.190E-03_JPRB,&
+&.190E-03_JPRB,.191E-03_JPRB,.191E-03_JPRB,.191E-03_JPRB,.193E-03_JPRB,.192E-03_JPRB,.192E-03_JPRB,&
+&.193E-03_JPRB,.193E-03_JPRB,.192E-03_JPRB,.190E-03_JPRB,.188E-03_JPRB,.186E-03_JPRB,.184E-03_JPRB,&
+&.181E-03_JPRB,.181E-03_JPRB,.182E-03_JPRB,.184E-03_JPRB,.187E-03_JPRB,.189E-03_JPRB,.192E-03_JPRB,&
+&.192E-03_JPRB,.191E-03_JPRB,.188E-03_JPRB,.187E-03_JPRB,.186E-03_JPRB,.188E-03_JPRB,.190E-03_JPRB,&
+&.195E-03_JPRB,.205E-03_JPRB,.214E-03_JPRB,.219E-03_JPRB,.224E-03_JPRB,.232E-03_JPRB,.233E-03_JPRB,&
+&.233E-03_JPRB,.233E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 12  46.0
+ZAER (:,12,11) = (/&
+&.270E-03_JPRB,.269E-03_JPRB,.259E-03_JPRB,.256E-03_JPRB,.253E-03_JPRB,.240E-03_JPRB,.230E-03_JPRB,&
+&.222E-03_JPRB,.210E-03_JPRB,.203E-03_JPRB,.199E-03_JPRB,.196E-03_JPRB,.195E-03_JPRB,.195E-03_JPRB,&
+&.196E-03_JPRB,.193E-03_JPRB,.191E-03_JPRB,.187E-03_JPRB,.185E-03_JPRB,.184E-03_JPRB,.183E-03_JPRB,&
+&.186E-03_JPRB,.194E-03_JPRB,.203E-03_JPRB,.222E-03_JPRB,.235E-03_JPRB,.247E-03_JPRB,.262E-03_JPRB,&
+&.263E-03_JPRB,.263E-03_JPRB,.260E-03_JPRB,.253E-03_JPRB,.248E-03_JPRB,.241E-03_JPRB,.242E-03_JPRB,&
+&.242E-03_JPRB,.238E-03_JPRB,.233E-03_JPRB,.233E-03_JPRB,.239E-03_JPRB,.239E-03_JPRB,.239E-03_JPRB,&
+&.238E-03_JPRB,.231E-03_JPRB,.227E-03_JPRB,.221E-03_JPRB,.217E-03_JPRB,.212E-03_JPRB,.206E-03_JPRB,&
+&.202E-03_JPRB,.202E-03_JPRB,.203E-03_JPRB,.212E-03_JPRB,.219E-03_JPRB,.224E-03_JPRB,.230E-03_JPRB,&
+&.230E-03_JPRB,.229E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.226E-03_JPRB,.236E-03_JPRB,&
+&.246E-03_JPRB,.262E-03_JPRB,.270E-03_JPRB,.269E-03_JPRB,.266E-03_JPRB,.275E-03_JPRB,.278E-03_JPRB,&
+&.280E-03_JPRB,.270E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 13  42.0
+ZAER (:,13,11) = (/&
+&.311E-03_JPRB,.310E-03_JPRB,.287E-03_JPRB,.281E-03_JPRB,.275E-03_JPRB,.260E-03_JPRB,.249E-03_JPRB,&
+&.240E-03_JPRB,.230E-03_JPRB,.223E-03_JPRB,.218E-03_JPRB,.213E-03_JPRB,.212E-03_JPRB,.212E-03_JPRB,&
+&.213E-03_JPRB,.212E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.221E-03_JPRB,.240E-03_JPRB,.261E-03_JPRB,.352E-03_JPRB,.415E-03_JPRB,.471E-03_JPRB,.457E-03_JPRB,&
+&.420E-03_JPRB,.389E-03_JPRB,.351E-03_JPRB,.339E-03_JPRB,.328E-03_JPRB,.305E-03_JPRB,.301E-03_JPRB,&
+&.299E-03_JPRB,.297E-03_JPRB,.294E-03_JPRB,.301E-03_JPRB,.317E-03_JPRB,.336E-03_JPRB,.339E-03_JPRB,&
+&.338E-03_JPRB,.314E-03_JPRB,.299E-03_JPRB,.282E-03_JPRB,.272E-03_JPRB,.261E-03_JPRB,.250E-03_JPRB,&
+&.247E-03_JPRB,.250E-03_JPRB,.254E-03_JPRB,.271E-03_JPRB,.281E-03_JPRB,.288E-03_JPRB,.292E-03_JPRB,&
+&.289E-03_JPRB,.285E-03_JPRB,.276E-03_JPRB,.273E-03_JPRB,.274E-03_JPRB,.279E-03_JPRB,.307E-03_JPRB,&
+&.328E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.343E-03_JPRB,.318E-03_JPRB,.321E-03_JPRB,.326E-03_JPRB,&
+&.333E-03_JPRB,.311E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 14  38.0
+ZAER (:,14,11) = (/&
+&.351E-03_JPRB,.350E-03_JPRB,.326E-03_JPRB,.317E-03_JPRB,.308E-03_JPRB,.288E-03_JPRB,.276E-03_JPRB,&
+&.267E-03_JPRB,.256E-03_JPRB,.247E-03_JPRB,.240E-03_JPRB,.232E-03_JPRB,.230E-03_JPRB,.232E-03_JPRB,&
+&.236E-03_JPRB,.239E-03_JPRB,.240E-03_JPRB,.241E-03_JPRB,.241E-03_JPRB,.242E-03_JPRB,.243E-03_JPRB,&
+&.280E-03_JPRB,.334E-03_JPRB,.393E-03_JPRB,.720E-03_JPRB,.870E-03_JPRB,.992E-03_JPRB,.754E-03_JPRB,&
+&.612E-03_JPRB,.498E-03_JPRB,.411E-03_JPRB,.395E-03_JPRB,.381E-03_JPRB,.353E-03_JPRB,.350E-03_JPRB,&
+&.352E-03_JPRB,.360E-03_JPRB,.373E-03_JPRB,.398E-03_JPRB,.447E-03_JPRB,.499E-03_JPRB,.505E-03_JPRB,&
+&.496E-03_JPRB,.447E-03_JPRB,.422E-03_JPRB,.395E-03_JPRB,.372E-03_JPRB,.356E-03_JPRB,.339E-03_JPRB,&
+&.338E-03_JPRB,.340E-03_JPRB,.342E-03_JPRB,.360E-03_JPRB,.367E-03_JPRB,.370E-03_JPRB,.366E-03_JPRB,&
+&.357E-03_JPRB,.351E-03_JPRB,.343E-03_JPRB,.339E-03_JPRB,.340E-03_JPRB,.349E-03_JPRB,.410E-03_JPRB,&
+&.447E-03_JPRB,.491E-03_JPRB,.484E-03_JPRB,.454E-03_JPRB,.408E-03_JPRB,.377E-03_JPRB,.374E-03_JPRB,&
+&.374E-03_JPRB,.352E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 15  34.0
+ZAER (:,15,11) = (/&
+&.402E-03_JPRB,.401E-03_JPRB,.380E-03_JPRB,.369E-03_JPRB,.359E-03_JPRB,.335E-03_JPRB,.319E-03_JPRB,&
+&.307E-03_JPRB,.290E-03_JPRB,.278E-03_JPRB,.269E-03_JPRB,.258E-03_JPRB,.259E-03_JPRB,.262E-03_JPRB,&
+&.271E-03_JPRB,.275E-03_JPRB,.275E-03_JPRB,.272E-03_JPRB,.273E-03_JPRB,.280E-03_JPRB,.291E-03_JPRB,&
+&.403E-03_JPRB,.503E-03_JPRB,.612E-03_JPRB,.126E-02_JPRB,.148E-02_JPRB,.165E-02_JPRB,.111E-02_JPRB,&
+&.821E-03_JPRB,.598E-03_JPRB,.464E-03_JPRB,.436E-03_JPRB,.416E-03_JPRB,.394E-03_JPRB,.406E-03_JPRB,&
+&.415E-03_JPRB,.431E-03_JPRB,.469E-03_JPRB,.517E-03_JPRB,.604E-03_JPRB,.686E-03_JPRB,.702E-03_JPRB,&
+&.700E-03_JPRB,.652E-03_JPRB,.616E-03_JPRB,.574E-03_JPRB,.521E-03_JPRB,.494E-03_JPRB,.468E-03_JPRB,&
+&.456E-03_JPRB,.455E-03_JPRB,.455E-03_JPRB,.464E-03_JPRB,.462E-03_JPRB,.458E-03_JPRB,.443E-03_JPRB,&
+&.429E-03_JPRB,.423E-03_JPRB,.431E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.435E-03_JPRB,.525E-03_JPRB,&
+&.571E-03_JPRB,.618E-03_JPRB,.626E-03_JPRB,.597E-03_JPRB,.547E-03_JPRB,.453E-03_JPRB,.433E-03_JPRB,&
+&.419E-03_JPRB,.402E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 16  30.0
+ZAER (:,16,11) = (/&
+&.461E-03_JPRB,.460E-03_JPRB,.435E-03_JPRB,.427E-03_JPRB,.418E-03_JPRB,.393E-03_JPRB,.373E-03_JPRB,&
+&.356E-03_JPRB,.330E-03_JPRB,.317E-03_JPRB,.308E-03_JPRB,.300E-03_JPRB,.302E-03_JPRB,.306E-03_JPRB,&
+&.314E-03_JPRB,.310E-03_JPRB,.305E-03_JPRB,.298E-03_JPRB,.304E-03_JPRB,.331E-03_JPRB,.371E-03_JPRB,&
+&.576E-03_JPRB,.688E-03_JPRB,.802E-03_JPRB,.153E-02_JPRB,.181E-02_JPRB,.203E-02_JPRB,.139E-02_JPRB,&
+&.102E-02_JPRB,.724E-03_JPRB,.535E-03_JPRB,.495E-03_JPRB,.471E-03_JPRB,.461E-03_JPRB,.492E-03_JPRB,&
+&.514E-03_JPRB,.545E-03_JPRB,.612E-03_JPRB,.673E-03_JPRB,.770E-03_JPRB,.895E-03_JPRB,.958E-03_JPRB,&
+&.102E-02_JPRB,.980E-03_JPRB,.907E-03_JPRB,.813E-03_JPRB,.695E-03_JPRB,.648E-03_JPRB,.604E-03_JPRB,&
+&.584E-03_JPRB,.586E-03_JPRB,.588E-03_JPRB,.590E-03_JPRB,.574E-03_JPRB,.558E-03_JPRB,.521E-03_JPRB,&
+&.505E-03_JPRB,.503E-03_JPRB,.533E-03_JPRB,.527E-03_JPRB,.524E-03_JPRB,.522E-03_JPRB,.605E-03_JPRB,&
+&.646E-03_JPRB,.686E-03_JPRB,.731E-03_JPRB,.720E-03_JPRB,.689E-03_JPRB,.540E-03_JPRB,.505E-03_JPRB,&
+&.480E-03_JPRB,.462E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 17  26.0
+ZAER (:,17,11) = (/&
+&.517E-03_JPRB,.516E-03_JPRB,.478E-03_JPRB,.472E-03_JPRB,.464E-03_JPRB,.443E-03_JPRB,.422E-03_JPRB,&
+&.404E-03_JPRB,.372E-03_JPRB,.361E-03_JPRB,.355E-03_JPRB,.353E-03_JPRB,.356E-03_JPRB,.356E-03_JPRB,&
+&.356E-03_JPRB,.341E-03_JPRB,.332E-03_JPRB,.320E-03_JPRB,.343E-03_JPRB,.396E-03_JPRB,.471E-03_JPRB,&
+&.714E-03_JPRB,.776E-03_JPRB,.828E-03_JPRB,.138E-02_JPRB,.172E-02_JPRB,.201E-02_JPRB,.160E-02_JPRB,&
+&.123E-02_JPRB,.930E-03_JPRB,.666E-03_JPRB,.605E-03_JPRB,.571E-03_JPRB,.570E-03_JPRB,.622E-03_JPRB,&
+&.661E-03_JPRB,.714E-03_JPRB,.819E-03_JPRB,.891E-03_JPRB,.985E-03_JPRB,.116E-02_JPRB,.129E-02_JPRB,&
+&.147E-02_JPRB,.141E-02_JPRB,.127E-02_JPRB,.110E-02_JPRB,.897E-03_JPRB,.813E-03_JPRB,.733E-03_JPRB,&
+&.713E-03_JPRB,.718E-03_JPRB,.722E-03_JPRB,.733E-03_JPRB,.703E-03_JPRB,.673E-03_JPRB,.609E-03_JPRB,&
+&.591E-03_JPRB,.591E-03_JPRB,.631E-03_JPRB,.624E-03_JPRB,.616E-03_JPRB,.601E-03_JPRB,.650E-03_JPRB,&
+&.676E-03_JPRB,.703E-03_JPRB,.768E-03_JPRB,.773E-03_JPRB,.762E-03_JPRB,.614E-03_JPRB,.578E-03_JPRB,&
+&.552E-03_JPRB,.518E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 18  22.0
+ZAER (:,18,11) = (/&
+&.557E-03_JPRB,.555E-03_JPRB,.501E-03_JPRB,.495E-03_JPRB,.489E-03_JPRB,.474E-03_JPRB,.456E-03_JPRB,&
+&.439E-03_JPRB,.409E-03_JPRB,.403E-03_JPRB,.402E-03_JPRB,.408E-03_JPRB,.409E-03_JPRB,.406E-03_JPRB,&
+&.399E-03_JPRB,.380E-03_JPRB,.370E-03_JPRB,.359E-03_JPRB,.406E-03_JPRB,.481E-03_JPRB,.583E-03_JPRB,&
+&.775E-03_JPRB,.778E-03_JPRB,.765E-03_JPRB,.115E-02_JPRB,.152E-02_JPRB,.186E-02_JPRB,.178E-02_JPRB,&
+&.148E-02_JPRB,.122E-02_JPRB,.893E-03_JPRB,.785E-03_JPRB,.727E-03_JPRB,.738E-03_JPRB,.804E-03_JPRB,&
+&.852E-03_JPRB,.913E-03_JPRB,.110E-02_JPRB,.120E-02_JPRB,.129E-02_JPRB,.143E-02_JPRB,.160E-02_JPRB,&
+&.185E-02_JPRB,.179E-02_JPRB,.160E-02_JPRB,.136E-02_JPRB,.108E-02_JPRB,.958E-03_JPRB,.845E-03_JPRB,&
+&.819E-03_JPRB,.819E-03_JPRB,.820E-03_JPRB,.840E-03_JPRB,.807E-03_JPRB,.775E-03_JPRB,.703E-03_JPRB,&
+&.683E-03_JPRB,.681E-03_JPRB,.716E-03_JPRB,.709E-03_JPRB,.697E-03_JPRB,.669E-03_JPRB,.693E-03_JPRB,&
+&.707E-03_JPRB,.722E-03_JPRB,.764E-03_JPRB,.765E-03_JPRB,.755E-03_JPRB,.657E-03_JPRB,.633E-03_JPRB,&
+&.614E-03_JPRB,.559E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 19  18.0
+ZAER (:,19,11) = (/&
+&.573E-03_JPRB,.571E-03_JPRB,.503E-03_JPRB,.499E-03_JPRB,.496E-03_JPRB,.490E-03_JPRB,.478E-03_JPRB,&
+&.467E-03_JPRB,.444E-03_JPRB,.441E-03_JPRB,.443E-03_JPRB,.454E-03_JPRB,.455E-03_JPRB,.453E-03_JPRB,&
+&.447E-03_JPRB,.437E-03_JPRB,.436E-03_JPRB,.437E-03_JPRB,.521E-03_JPRB,.619E-03_JPRB,.749E-03_JPRB,&
+&.858E-03_JPRB,.856E-03_JPRB,.845E-03_JPRB,.118E-02_JPRB,.151E-02_JPRB,.181E-02_JPRB,.191E-02_JPRB,&
+&.172E-02_JPRB,.153E-02_JPRB,.118E-02_JPRB,.103E-02_JPRB,.957E-03_JPRB,.998E-03_JPRB,.106E-02_JPRB,&
+&.110E-02_JPRB,.116E-02_JPRB,.144E-02_JPRB,.154E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.173E-02_JPRB,&
+&.199E-02_JPRB,.203E-02_JPRB,.182E-02_JPRB,.153E-02_JPRB,.113E-02_JPRB,.101E-02_JPRB,.907E-03_JPRB,&
+&.869E-03_JPRB,.862E-03_JPRB,.858E-03_JPRB,.877E-03_JPRB,.854E-03_JPRB,.831E-03_JPRB,.780E-03_JPRB,&
+&.767E-03_JPRB,.767E-03_JPRB,.794E-03_JPRB,.783E-03_JPRB,.768E-03_JPRB,.737E-03_JPRB,.753E-03_JPRB,&
+&.762E-03_JPRB,.772E-03_JPRB,.761E-03_JPRB,.743E-03_JPRB,.718E-03_JPRB,.667E-03_JPRB,.653E-03_JPRB,&
+&.641E-03_JPRB,.575E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 20  14.0
+ZAER (:,20,11) = (/&
+&.564E-03_JPRB,.562E-03_JPRB,.494E-03_JPRB,.492E-03_JPRB,.491E-03_JPRB,.496E-03_JPRB,.494E-03_JPRB,&
+&.491E-03_JPRB,.485E-03_JPRB,.481E-03_JPRB,.481E-03_JPRB,.489E-03_JPRB,.499E-03_JPRB,.503E-03_JPRB,&
+&.506E-03_JPRB,.515E-03_JPRB,.534E-03_JPRB,.568E-03_JPRB,.715E-03_JPRB,.856E-03_JPRB,.104E-02_JPRB,&
+&.113E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.152E-02_JPRB,.176E-02_JPRB,.198E-02_JPRB,.210E-02_JPRB,&
+&.196E-02_JPRB,.182E-02_JPRB,.147E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.140E-02_JPRB,.145E-02_JPRB,&
+&.149E-02_JPRB,.157E-02_JPRB,.178E-02_JPRB,.181E-02_JPRB,.172E-02_JPRB,.160E-02_JPRB,.170E-02_JPRB,&
+&.193E-02_JPRB,.220E-02_JPRB,.197E-02_JPRB,.160E-02_JPRB,.110E-02_JPRB,.999E-03_JPRB,.919E-03_JPRB,&
+&.872E-03_JPRB,.865E-03_JPRB,.861E-03_JPRB,.875E-03_JPRB,.863E-03_JPRB,.852E-03_JPRB,.831E-03_JPRB,&
+&.860E-03_JPRB,.883E-03_JPRB,.919E-03_JPRB,.888E-03_JPRB,.867E-03_JPRB,.839E-03_JPRB,.852E-03_JPRB,&
+&.858E-03_JPRB,.862E-03_JPRB,.785E-03_JPRB,.739E-03_JPRB,.688E-03_JPRB,.654E-03_JPRB,.643E-03_JPRB,&
+&.634E-03_JPRB,.566E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 21  10.0
+ZAER (:,21,11) = (/&
+&.565E-03_JPRB,.562E-03_JPRB,.492E-03_JPRB,.486E-03_JPRB,.482E-03_JPRB,.490E-03_JPRB,.496E-03_JPRB,&
+&.500E-03_JPRB,.507E-03_JPRB,.505E-03_JPRB,.507E-03_JPRB,.520E-03_JPRB,.545E-03_JPRB,.562E-03_JPRB,&
+&.583E-03_JPRB,.620E-03_JPRB,.670E-03_JPRB,.750E-03_JPRB,.986E-03_JPRB,.119E-02_JPRB,.145E-02_JPRB,&
+&.169E-02_JPRB,.176E-02_JPRB,.182E-02_JPRB,.224E-02_JPRB,.245E-02_JPRB,.263E-02_JPRB,.260E-02_JPRB,&
+&.235E-02_JPRB,.213E-02_JPRB,.178E-02_JPRB,.185E-02_JPRB,.191E-02_JPRB,.202E-02_JPRB,.210E-02_JPRB,&
+&.218E-02_JPRB,.233E-02_JPRB,.227E-02_JPRB,.215E-02_JPRB,.192E-02_JPRB,.177E-02_JPRB,.182E-02_JPRB,&
+&.199E-02_JPRB,.224E-02_JPRB,.199E-02_JPRB,.160E-02_JPRB,.113E-02_JPRB,.103E-02_JPRB,.939E-03_JPRB,&
+&.864E-03_JPRB,.856E-03_JPRB,.850E-03_JPRB,.860E-03_JPRB,.863E-03_JPRB,.867E-03_JPRB,.883E-03_JPRB,&
+&.102E-02_JPRB,.111E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.849E-03_JPRB,.766E-03_JPRB,.681E-03_JPRB,.651E-03_JPRB,.641E-03_JPRB,&
+&.631E-03_JPRB,.567E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 22   6.0
+ZAER (:,22,11) = (/&
+&.602E-03_JPRB,.600E-03_JPRB,.518E-03_JPRB,.499E-03_JPRB,.484E-03_JPRB,.483E-03_JPRB,.490E-03_JPRB,&
+&.496E-03_JPRB,.504E-03_JPRB,.510E-03_JPRB,.520E-03_JPRB,.544E-03_JPRB,.589E-03_JPRB,.621E-03_JPRB,&
+&.665E-03_JPRB,.742E-03_JPRB,.825E-03_JPRB,.953E-03_JPRB,.125E-02_JPRB,.151E-02_JPRB,.184E-02_JPRB,&
+&.247E-02_JPRB,.264E-02_JPRB,.277E-02_JPRB,.332E-02_JPRB,.356E-02_JPRB,.376E-02_JPRB,.343E-02_JPRB,&
+&.291E-02_JPRB,.251E-02_JPRB,.227E-02_JPRB,.259E-02_JPRB,.281E-02_JPRB,.296E-02_JPRB,.316E-02_JPRB,&
+&.331E-02_JPRB,.355E-02_JPRB,.339E-02_JPRB,.322E-02_JPRB,.293E-02_JPRB,.277E-02_JPRB,.273E-02_JPRB,&
+&.274E-02_JPRB,.240E-02_JPRB,.207E-02_JPRB,.167E-02_JPRB,.126E-02_JPRB,.113E-02_JPRB,.101E-02_JPRB,&
+&.860E-03_JPRB,.857E-03_JPRB,.855E-03_JPRB,.867E-03_JPRB,.876E-03_JPRB,.894E-03_JPRB,.971E-03_JPRB,&
+&.124E-02_JPRB,.140E-02_JPRB,.154E-02_JPRB,.148E-02_JPRB,.143E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,&
+&.128E-02_JPRB,.124E-02_JPRB,.923E-03_JPRB,.804E-03_JPRB,.702E-03_JPRB,.672E-03_JPRB,.667E-03_JPRB,&
+&.665E-03_JPRB,.604E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 23   2.0
+ZAER (:,23,11) = (/&
+&.651E-03_JPRB,.648E-03_JPRB,.556E-03_JPRB,.524E-03_JPRB,.497E-03_JPRB,.486E-03_JPRB,.488E-03_JPRB,&
+&.493E-03_JPRB,.509E-03_JPRB,.520E-03_JPRB,.534E-03_JPRB,.567E-03_JPRB,.621E-03_JPRB,.667E-03_JPRB,&
+&.741E-03_JPRB,.840E-03_JPRB,.940E-03_JPRB,.109E-02_JPRB,.139E-02_JPRB,.166E-02_JPRB,.201E-02_JPRB,&
+&.314E-02_JPRB,.345E-02_JPRB,.370E-02_JPRB,.419E-02_JPRB,.442E-02_JPRB,.460E-02_JPRB,.390E-02_JPRB,&
+&.327E-02_JPRB,.284E-02_JPRB,.298E-02_JPRB,.364E-02_JPRB,.411E-02_JPRB,.456E-02_JPRB,.501E-02_JPRB,&
+&.531E-02_JPRB,.566E-02_JPRB,.556E-02_JPRB,.552E-02_JPRB,.548E-02_JPRB,.523E-02_JPRB,.513E-02_JPRB,&
+&.503E-02_JPRB,.359E-02_JPRB,.283E-02_JPRB,.203E-02_JPRB,.144E-02_JPRB,.128E-02_JPRB,.113E-02_JPRB,&
+&.915E-03_JPRB,.918E-03_JPRB,.924E-03_JPRB,.975E-03_JPRB,.973E-03_JPRB,.996E-03_JPRB,.115E-02_JPRB,&
+&.145E-02_JPRB,.164E-02_JPRB,.180E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,.170E-02_JPRB,.156E-02_JPRB,&
+&.149E-02_JPRB,.140E-02_JPRB,.959E-03_JPRB,.824E-03_JPRB,.732E-03_JPRB,.703E-03_JPRB,.702E-03_JPRB,&
+&.704E-03_JPRB,.652E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 24  -2.0
+ZAER (:,24,11) = (/&
+&.683E-03_JPRB,.681E-03_JPRB,.628E-03_JPRB,.592E-03_JPRB,.560E-03_JPRB,.514E-03_JPRB,.505E-03_JPRB,&
+&.503E-03_JPRB,.519E-03_JPRB,.534E-03_JPRB,.550E-03_JPRB,.583E-03_JPRB,.640E-03_JPRB,.689E-03_JPRB,&
+&.768E-03_JPRB,.861E-03_JPRB,.952E-03_JPRB,.109E-02_JPRB,.136E-02_JPRB,.160E-02_JPRB,.190E-02_JPRB,&
+&.325E-02_JPRB,.365E-02_JPRB,.400E-02_JPRB,.410E-02_JPRB,.412E-02_JPRB,.410E-02_JPRB,.334E-02_JPRB,&
+&.306E-02_JPRB,.296E-02_JPRB,.373E-02_JPRB,.487E-02_JPRB,.587E-02_JPRB,.762E-02_JPRB,.878E-02_JPRB,&
+&.927E-02_JPRB,.929E-02_JPRB,.872E-02_JPRB,.847E-02_JPRB,.826E-02_JPRB,.838E-02_JPRB,.821E-02_JPRB,&
+&.784E-02_JPRB,.574E-02_JPRB,.432E-02_JPRB,.273E-02_JPRB,.163E-02_JPRB,.146E-02_JPRB,.133E-02_JPRB,&
+&.116E-02_JPRB,.120E-02_JPRB,.125E-02_JPRB,.145E-02_JPRB,.146E-02_JPRB,.153E-02_JPRB,.194E-02_JPRB,&
+&.231E-02_JPRB,.250E-02_JPRB,.253E-02_JPRB,.252E-02_JPRB,.241E-02_JPRB,.210E-02_JPRB,.173E-02_JPRB,&
+&.155E-02_JPRB,.136E-02_JPRB,.974E-03_JPRB,.860E-03_JPRB,.787E-03_JPRB,.743E-03_JPRB,.729E-03_JPRB,&
+&.718E-03_JPRB,.684E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 25  -6.0
+ZAER (:,25,11) = (/&
+&.711E-03_JPRB,.711E-03_JPRB,.713E-03_JPRB,.683E-03_JPRB,.651E-03_JPRB,.571E-03_JPRB,.549E-03_JPRB,&
+&.534E-03_JPRB,.528E-03_JPRB,.527E-03_JPRB,.533E-03_JPRB,.555E-03_JPRB,.601E-03_JPRB,.648E-03_JPRB,&
+&.733E-03_JPRB,.851E-03_JPRB,.940E-03_JPRB,.106E-02_JPRB,.127E-02_JPRB,.148E-02_JPRB,.174E-02_JPRB,&
+&.291E-02_JPRB,.314E-02_JPRB,.331E-02_JPRB,.301E-02_JPRB,.289E-02_JPRB,.277E-02_JPRB,.252E-02_JPRB,&
+&.268E-02_JPRB,.293E-02_JPRB,.398E-02_JPRB,.534E-02_JPRB,.672E-02_JPRB,.973E-02_JPRB,.122E-01_JPRB,&
+&.130E-01_JPRB,.122E-01_JPRB,.102E-01_JPRB,.927E-02_JPRB,.851E-02_JPRB,.843E-02_JPRB,.820E-02_JPRB,&
+&.781E-02_JPRB,.627E-02_JPRB,.488E-02_JPRB,.322E-02_JPRB,.183E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,&
+&.171E-02_JPRB,.191E-02_JPRB,.209E-02_JPRB,.239E-02_JPRB,.261E-02_JPRB,.294E-02_JPRB,.412E-02_JPRB,&
+&.453E-02_JPRB,.459E-02_JPRB,.400E-02_JPRB,.347E-02_JPRB,.307E-02_JPRB,.251E-02_JPRB,.189E-02_JPRB,&
+&.161E-02_JPRB,.135E-02_JPRB,.103E-02_JPRB,.936E-03_JPRB,.872E-03_JPRB,.781E-03_JPRB,.749E-03_JPRB,&
+&.720E-03_JPRB,.711E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 26 -10.0
+ZAER (:,26,11) = (/&
+&.778E-03_JPRB,.779E-03_JPRB,.818E-03_JPRB,.778E-03_JPRB,.736E-03_JPRB,.627E-03_JPRB,.600E-03_JPRB,&
+&.579E-03_JPRB,.551E-03_JPRB,.535E-03_JPRB,.530E-03_JPRB,.539E-03_JPRB,.575E-03_JPRB,.617E-03_JPRB,&
+&.698E-03_JPRB,.845E-03_JPRB,.939E-03_JPRB,.105E-02_JPRB,.124E-02_JPRB,.139E-02_JPRB,.156E-02_JPRB,&
+&.232E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,.188E-02_JPRB,.175E-02_JPRB,.165E-02_JPRB,.182E-02_JPRB,&
+&.214E-02_JPRB,.247E-02_JPRB,.324E-02_JPRB,.449E-02_JPRB,.576E-02_JPRB,.851E-02_JPRB,.112E-01_JPRB,&
+&.121E-01_JPRB,.110E-01_JPRB,.903E-02_JPRB,.790E-02_JPRB,.662E-02_JPRB,.612E-02_JPRB,.592E-02_JPRB,&
+&.575E-02_JPRB,.508E-02_JPRB,.422E-02_JPRB,.314E-02_JPRB,.203E-02_JPRB,.207E-02_JPRB,.218E-02_JPRB,&
+&.274E-02_JPRB,.312E-02_JPRB,.346E-02_JPRB,.371E-02_JPRB,.427E-02_JPRB,.504E-02_JPRB,.762E-02_JPRB,&
+&.801E-02_JPRB,.781E-02_JPRB,.617E-02_JPRB,.464E-02_JPRB,.375E-02_JPRB,.282E-02_JPRB,.204E-02_JPRB,&
+&.169E-02_JPRB,.140E-02_JPRB,.114E-02_JPRB,.105E-02_JPRB,.978E-03_JPRB,.829E-03_JPRB,.780E-03_JPRB,&
+&.736E-03_JPRB,.776E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 27 -14.0
+ZAER (:,27,11) = (/&
+&.938E-03_JPRB,.939E-03_JPRB,.978E-03_JPRB,.922E-03_JPRB,.862E-03_JPRB,.697E-03_JPRB,.655E-03_JPRB,&
+&.625E-03_JPRB,.597E-03_JPRB,.582E-03_JPRB,.579E-03_JPRB,.591E-03_JPRB,.612E-03_JPRB,.642E-03_JPRB,&
+&.703E-03_JPRB,.909E-03_JPRB,.102E-02_JPRB,.114E-02_JPRB,.125E-02_JPRB,.132E-02_JPRB,.140E-02_JPRB,&
+&.170E-02_JPRB,.167E-02_JPRB,.161E-02_JPRB,.127E-02_JPRB,.119E-02_JPRB,.112E-02_JPRB,.127E-02_JPRB,&
+&.147E-02_JPRB,.167E-02_JPRB,.217E-02_JPRB,.300E-02_JPRB,.383E-02_JPRB,.557E-02_JPRB,.749E-02_JPRB,&
+&.806E-02_JPRB,.731E-02_JPRB,.615E-02_JPRB,.529E-02_JPRB,.409E-02_JPRB,.359E-02_JPRB,.354E-02_JPRB,&
+&.364E-02_JPRB,.352E-02_JPRB,.313E-02_JPRB,.261E-02_JPRB,.209E-02_JPRB,.237E-02_JPRB,.272E-02_JPRB,&
+&.404E-02_JPRB,.465E-02_JPRB,.520E-02_JPRB,.564E-02_JPRB,.643E-02_JPRB,.749E-02_JPRB,.110E-01_JPRB,&
+&.115E-01_JPRB,.113E-01_JPRB,.916E-02_JPRB,.646E-02_JPRB,.489E-02_JPRB,.332E-02_JPRB,.232E-02_JPRB,&
+&.189E-02_JPRB,.153E-02_JPRB,.129E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,.950E-03_JPRB,.891E-03_JPRB,&
+&.837E-03_JPRB,.935E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 28 -18.0
+ZAER (:,28,11) = (/&
+&.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,.107E-02_JPRB,.875E-03_JPRB,.781E-03_JPRB,&
+&.714E-03_JPRB,.652E-03_JPRB,.647E-03_JPRB,.653E-03_JPRB,.683E-03_JPRB,.713E-03_JPRB,.734E-03_JPRB,&
+&.764E-03_JPRB,.103E-02_JPRB,.117E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.142E-02_JPRB,.150E-02_JPRB,&
+&.142E-02_JPRB,.132E-02_JPRB,.121E-02_JPRB,.102E-02_JPRB,.964E-03_JPRB,.915E-03_JPRB,.961E-03_JPRB,&
+&.105E-02_JPRB,.114E-02_JPRB,.141E-02_JPRB,.183E-02_JPRB,.226E-02_JPRB,.323E-02_JPRB,.423E-02_JPRB,&
+&.451E-02_JPRB,.403E-02_JPRB,.339E-02_JPRB,.294E-02_JPRB,.234E-02_JPRB,.214E-02_JPRB,.221E-02_JPRB,&
+&.241E-02_JPRB,.241E-02_JPRB,.226E-02_JPRB,.206E-02_JPRB,.201E-02_JPRB,.248E-02_JPRB,.300E-02_JPRB,&
+&.470E-02_JPRB,.547E-02_JPRB,.626E-02_JPRB,.787E-02_JPRB,.873E-02_JPRB,.985E-02_JPRB,.135E-01_JPRB,&
+&.148E-01_JPRB,.151E-01_JPRB,.134E-01_JPRB,.996E-02_JPRB,.765E-02_JPRB,.474E-02_JPRB,.327E-02_JPRB,&
+&.262E-02_JPRB,.206E-02_JPRB,.164E-02_JPRB,.147E-02_JPRB,.133E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,&
+&.109E-02_JPRB,.119E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 29 -22.0
+ZAER (:,29,11) = (/&
+&.150E-02_JPRB,.150E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.130E-02_JPRB,.113E-02_JPRB,.990E-03_JPRB,&
+&.881E-03_JPRB,.751E-03_JPRB,.725E-03_JPRB,.729E-03_JPRB,.788E-03_JPRB,.866E-03_JPRB,.897E-03_JPRB,&
+&.908E-03_JPRB,.113E-02_JPRB,.129E-02_JPRB,.149E-02_JPRB,.159E-02_JPRB,.168E-02_JPRB,.179E-02_JPRB,&
+&.150E-02_JPRB,.131E-02_JPRB,.112E-02_JPRB,.974E-03_JPRB,.931E-03_JPRB,.891E-03_JPRB,.869E-03_JPRB,&
+&.899E-03_JPRB,.936E-03_JPRB,.105E-02_JPRB,.125E-02_JPRB,.148E-02_JPRB,.198E-02_JPRB,.234E-02_JPRB,&
+&.239E-02_JPRB,.205E-02_JPRB,.176E-02_JPRB,.162E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,.166E-02_JPRB,&
+&.187E-02_JPRB,.193E-02_JPRB,.188E-02_JPRB,.181E-02_JPRB,.193E-02_JPRB,.240E-02_JPRB,.293E-02_JPRB,&
+&.453E-02_JPRB,.521E-02_JPRB,.593E-02_JPRB,.783E-02_JPRB,.854E-02_JPRB,.961E-02_JPRB,.135E-01_JPRB,&
+&.170E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,.154E-01_JPRB,.124E-01_JPRB,.749E-02_JPRB,.520E-02_JPRB,&
+&.416E-02_JPRB,.326E-02_JPRB,.246E-02_JPRB,.211E-02_JPRB,.177E-02_JPRB,.152E-02_JPRB,.148E-02_JPRB,&
+&.146E-02_JPRB,.150E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 30 -26.0
+ZAER (:,30,11) = (/&
+&.181E-02_JPRB,.180E-02_JPRB,.163E-02_JPRB,.156E-02_JPRB,.150E-02_JPRB,.137E-02_JPRB,.123E-02_JPRB,&
+&.112E-02_JPRB,.943E-03_JPRB,.886E-03_JPRB,.878E-03_JPRB,.945E-03_JPRB,.110E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.125E-02_JPRB,.142E-02_JPRB,.172E-02_JPRB,.200E-02_JPRB,.209E-02_JPRB,.215E-02_JPRB,&
+&.178E-02_JPRB,.153E-02_JPRB,.128E-02_JPRB,.108E-02_JPRB,.103E-02_JPRB,.985E-03_JPRB,.904E-03_JPRB,&
+&.891E-03_JPRB,.886E-03_JPRB,.917E-03_JPRB,.104E-02_JPRB,.116E-02_JPRB,.143E-02_JPRB,.152E-02_JPRB,&
+&.150E-02_JPRB,.131E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.131E-02_JPRB,.146E-02_JPRB,.161E-02_JPRB,&
+&.182E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,.197E-02_JPRB,.201E-02_JPRB,.235E-02_JPRB,.272E-02_JPRB,&
+&.400E-02_JPRB,.437E-02_JPRB,.475E-02_JPRB,.555E-02_JPRB,.582E-02_JPRB,.660E-02_JPRB,.105E-01_JPRB,&
+&.165E-01_JPRB,.204E-01_JPRB,.241E-01_JPRB,.216E-01_JPRB,.183E-01_JPRB,.114E-01_JPRB,.789E-02_JPRB,&
+&.632E-02_JPRB,.500E-02_JPRB,.378E-02_JPRB,.318E-02_JPRB,.254E-02_JPRB,.210E-02_JPRB,.197E-02_JPRB,&
+&.186E-02_JPRB,.181E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 31 -30.0
+ZAER (:,31,11) = (/&
+&.209E-02_JPRB,.208E-02_JPRB,.182E-02_JPRB,.173E-02_JPRB,.164E-02_JPRB,.151E-02_JPRB,.141E-02_JPRB,&
+&.132E-02_JPRB,.118E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.121E-02_JPRB,.141E-02_JPRB,.147E-02_JPRB,&
+&.143E-02_JPRB,.140E-02_JPRB,.158E-02_JPRB,.195E-02_JPRB,.247E-02_JPRB,.258E-02_JPRB,.262E-02_JPRB,&
+&.220E-02_JPRB,.192E-02_JPRB,.162E-02_JPRB,.128E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,.985E-03_JPRB,&
+&.938E-03_JPRB,.902E-03_JPRB,.895E-03_JPRB,.962E-03_JPRB,.103E-02_JPRB,.118E-02_JPRB,.125E-02_JPRB,&
+&.129E-02_JPRB,.134E-02_JPRB,.138E-02_JPRB,.147E-02_JPRB,.165E-02_JPRB,.186E-02_JPRB,.204E-02_JPRB,&
+&.227E-02_JPRB,.254E-02_JPRB,.262E-02_JPRB,.267E-02_JPRB,.246E-02_JPRB,.262E-02_JPRB,.281E-02_JPRB,&
+&.366E-02_JPRB,.365E-02_JPRB,.362E-02_JPRB,.324E-02_JPRB,.320E-02_JPRB,.364E-02_JPRB,.675E-02_JPRB,&
+&.134E-01_JPRB,.185E-01_JPRB,.257E-01_JPRB,.248E-01_JPRB,.220E-01_JPRB,.148E-01_JPRB,.104E-01_JPRB,&
+&.839E-02_JPRB,.662E-02_JPRB,.507E-02_JPRB,.429E-02_JPRB,.347E-02_JPRB,.283E-02_JPRB,.255E-02_JPRB,&
+&.227E-02_JPRB,.210E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 32 -34.0
+ZAER (:,32,11) = (/&
+&.228E-02_JPRB,.227E-02_JPRB,.198E-02_JPRB,.183E-02_JPRB,.170E-02_JPRB,.150E-02_JPRB,.144E-02_JPRB,&
+&.140E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.152E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.153E-02_JPRB,.146E-02_JPRB,.165E-02_JPRB,.206E-02_JPRB,.277E-02_JPRB,.296E-02_JPRB,.308E-02_JPRB,&
+&.275E-02_JPRB,.243E-02_JPRB,.207E-02_JPRB,.151E-02_JPRB,.137E-02_JPRB,.124E-02_JPRB,.106E-02_JPRB,&
+&.101E-02_JPRB,.970E-03_JPRB,.951E-03_JPRB,.968E-03_JPRB,.991E-03_JPRB,.105E-02_JPRB,.121E-02_JPRB,&
+&.137E-02_JPRB,.167E-02_JPRB,.197E-02_JPRB,.226E-02_JPRB,.275E-02_JPRB,.320E-02_JPRB,.347E-02_JPRB,&
+&.377E-02_JPRB,.393E-02_JPRB,.398E-02_JPRB,.404E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,.362E-02_JPRB,&
+&.391E-02_JPRB,.359E-02_JPRB,.325E-02_JPRB,.246E-02_JPRB,.233E-02_JPRB,.251E-02_JPRB,.428E-02_JPRB,&
+&.930E-02_JPRB,.137E-01_JPRB,.215E-01_JPRB,.228E-01_JPRB,.214E-01_JPRB,.157E-01_JPRB,.114E-01_JPRB,&
+&.925E-02_JPRB,.717E-02_JPRB,.560E-02_JPRB,.487E-02_JPRB,.412E-02_JPRB,.337E-02_JPRB,.298E-02_JPRB,&
+&.257E-02_JPRB,.229E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 33 -38.0
+ZAER (:,33,11) = (/&
+&.236E-02_JPRB,.235E-02_JPRB,.207E-02_JPRB,.185E-02_JPRB,.165E-02_JPRB,.138E-02_JPRB,.135E-02_JPRB,&
+&.134E-02_JPRB,.135E-02_JPRB,.139E-02_JPRB,.147E-02_JPRB,.169E-02_JPRB,.174E-02_JPRB,.167E-02_JPRB,&
+&.145E-02_JPRB,.141E-02_JPRB,.160E-02_JPRB,.201E-02_JPRB,.280E-02_JPRB,.307E-02_JPRB,.331E-02_JPRB,&
+&.323E-02_JPRB,.290E-02_JPRB,.253E-02_JPRB,.171E-02_JPRB,.150E-02_JPRB,.132E-02_JPRB,.115E-02_JPRB,&
+&.111E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.107E-02_JPRB,.139E-02_JPRB,&
+&.172E-02_JPRB,.235E-02_JPRB,.325E-02_JPRB,.403E-02_JPRB,.526E-02_JPRB,.645E-02_JPRB,.685E-02_JPRB,&
+&.712E-02_JPRB,.672E-02_JPRB,.652E-02_JPRB,.632E-02_JPRB,.557E-02_JPRB,.533E-02_JPRB,.511E-02_JPRB,&
+&.490E-02_JPRB,.443E-02_JPRB,.396E-02_JPRB,.318E-02_JPRB,.293E-02_JPRB,.286E-02_JPRB,.343E-02_JPRB,&
+&.606E-02_JPRB,.871E-02_JPRB,.142E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.134E-01_JPRB,.101E-01_JPRB,&
+&.827E-02_JPRB,.632E-02_JPRB,.516E-02_JPRB,.462E-02_JPRB,.409E-02_JPRB,.341E-02_JPRB,.304E-02_JPRB,&
+&.265E-02_JPRB,.237E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 34 -42.0
+ZAER (:,34,11) = (/&
+&.237E-02_JPRB,.236E-02_JPRB,.206E-02_JPRB,.178E-02_JPRB,.154E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,&
+&.123E-02_JPRB,.129E-02_JPRB,.136E-02_JPRB,.145E-02_JPRB,.165E-02_JPRB,.163E-02_JPRB,.154E-02_JPRB,&
+&.134E-02_JPRB,.136E-02_JPRB,.154E-02_JPRB,.188E-02_JPRB,.255E-02_JPRB,.284E-02_JPRB,.311E-02_JPRB,&
+&.322E-02_JPRB,.296E-02_JPRB,.265E-02_JPRB,.181E-02_JPRB,.159E-02_JPRB,.140E-02_JPRB,.130E-02_JPRB,&
+&.129E-02_JPRB,.127E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.123E-02_JPRB,.148E-02_JPRB,.215E-02_JPRB,&
+&.281E-02_JPRB,.406E-02_JPRB,.611E-02_JPRB,.778E-02_JPRB,.103E-01_JPRB,.123E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.983E-02_JPRB,.821E-02_JPRB,.755E-02_JPRB,.692E-02_JPRB,&
+&.644E-02_JPRB,.597E-02_JPRB,.551E-02_JPRB,.470E-02_JPRB,.430E-02_JPRB,.398E-02_JPRB,.368E-02_JPRB,&
+&.445E-02_JPRB,.545E-02_JPRB,.795E-02_JPRB,.972E-02_JPRB,.101E-01_JPRB,.911E-02_JPRB,.725E-02_JPRB,&
+&.611E-02_JPRB,.475E-02_JPRB,.406E-02_JPRB,.374E-02_JPRB,.341E-02_JPRB,.298E-02_JPRB,.276E-02_JPRB,&
+&.252E-02_JPRB,.237E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 35 -46.0
+ZAER (:,35,11) = (/&
+&.220E-02_JPRB,.220E-02_JPRB,.192E-02_JPRB,.167E-02_JPRB,.144E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.121E-02_JPRB,.128E-02_JPRB,.135E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.141E-02_JPRB,&
+&.129E-02_JPRB,.134E-02_JPRB,.146E-02_JPRB,.169E-02_JPRB,.205E-02_JPRB,.220E-02_JPRB,.236E-02_JPRB,&
+&.248E-02_JPRB,.235E-02_JPRB,.218E-02_JPRB,.170E-02_JPRB,.157E-02_JPRB,.145E-02_JPRB,.146E-02_JPRB,&
+&.153E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,.165E-02_JPRB,.184E-02_JPRB,.255E-02_JPRB,.389E-02_JPRB,&
+&.515E-02_JPRB,.741E-02_JPRB,.113E-01_JPRB,.142E-01_JPRB,.181E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,&
+&.193E-01_JPRB,.179E-01_JPRB,.163E-01_JPRB,.143E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,.903E-02_JPRB,&
+&.822E-02_JPRB,.775E-02_JPRB,.728E-02_JPRB,.642E-02_JPRB,.584E-02_JPRB,.534E-02_JPRB,.459E-02_JPRB,&
+&.451E-02_JPRB,.461E-02_JPRB,.515E-02_JPRB,.563E-02_JPRB,.576E-02_JPRB,.562E-02_JPRB,.467E-02_JPRB,&
+&.407E-02_JPRB,.333E-02_JPRB,.286E-02_JPRB,.270E-02_JPRB,.256E-02_JPRB,.239E-02_JPRB,.231E-02_JPRB,&
+&.224E-02_JPRB,.220E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 36 -50.0
+ZAER (:,36,11) = (/&
+&.185E-02_JPRB,.184E-02_JPRB,.169E-02_JPRB,.152E-02_JPRB,.137E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,&
+&.111E-02_JPRB,.114E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,&
+&.126E-02_JPRB,.129E-02_JPRB,.134E-02_JPRB,.143E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,&
+&.157E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.146E-02_JPRB,.156E-02_JPRB,&
+&.177E-02_JPRB,.194E-02_JPRB,.213E-02_JPRB,.244E-02_JPRB,.283E-02_JPRB,.388E-02_JPRB,.597E-02_JPRB,&
+&.782E-02_JPRB,.110E-01_JPRB,.167E-01_JPRB,.202E-01_JPRB,.244E-01_JPRB,.239E-01_JPRB,.236E-01_JPRB,&
+&.231E-01_JPRB,.220E-01_JPRB,.203E-01_JPRB,.180E-01_JPRB,.145E-01_JPRB,.130E-01_JPRB,.115E-01_JPRB,&
+&.985E-02_JPRB,.921E-02_JPRB,.859E-02_JPRB,.776E-02_JPRB,.712E-02_JPRB,.657E-02_JPRB,.572E-02_JPRB,&
+&.537E-02_JPRB,.511E-02_JPRB,.478E-02_JPRB,.444E-02_JPRB,.419E-02_JPRB,.382E-02_JPRB,.317E-02_JPRB,&
+&.278E-02_JPRB,.234E-02_JPRB,.206E-02_JPRB,.197E-02_JPRB,.191E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,&
+&.183E-02_JPRB,.185E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 37 -54.0
+ZAER (:,37,11) = (/&
+&.152E-02_JPRB,.152E-02_JPRB,.148E-02_JPRB,.140E-02_JPRB,.132E-02_JPRB,.120E-02_JPRB,.115E-02_JPRB,&
+&.111E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.121E-02_JPRB,.128E-02_JPRB,.136E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,.149E-02_JPRB,.163E-02_JPRB,&
+&.188E-02_JPRB,.211E-02_JPRB,.249E-02_JPRB,.294E-02_JPRB,.344E-02_JPRB,.465E-02_JPRB,.663E-02_JPRB,&
+&.827E-02_JPRB,.109E-01_JPRB,.148E-01_JPRB,.170E-01_JPRB,.194E-01_JPRB,.201E-01_JPRB,.208E-01_JPRB,&
+&.217E-01_JPRB,.217E-01_JPRB,.204E-01_JPRB,.186E-01_JPRB,.151E-01_JPRB,.137E-01_JPRB,.123E-01_JPRB,&
+&.103E-01_JPRB,.954E-02_JPRB,.882E-02_JPRB,.816E-02_JPRB,.770E-02_JPRB,.728E-02_JPRB,.655E-02_JPRB,&
+&.601E-02_JPRB,.556E-02_JPRB,.482E-02_JPRB,.413E-02_JPRB,.366E-02_JPRB,.303E-02_JPRB,.242E-02_JPRB,&
+&.208E-02_JPRB,.171E-02_JPRB,.157E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,&
+&.147E-02_JPRB,.152E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 38 -58.0
+ZAER (:,38,11) = (/&
+&.134E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,&
+&.109E-02_JPRB,.103E-02_JPRB,.992E-03_JPRB,.969E-03_JPRB,.947E-03_JPRB,.942E-03_JPRB,.944E-03_JPRB,&
+&.953E-03_JPRB,.960E-03_JPRB,.968E-03_JPRB,.981E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,&
+&.113E-02_JPRB,.120E-02_JPRB,.127E-02_JPRB,.136E-02_JPRB,.141E-02_JPRB,.146E-02_JPRB,.166E-02_JPRB,&
+&.188E-02_JPRB,.209E-02_JPRB,.250E-02_JPRB,.299E-02_JPRB,.350E-02_JPRB,.462E-02_JPRB,.580E-02_JPRB,&
+&.655E-02_JPRB,.738E-02_JPRB,.794E-02_JPRB,.859E-02_JPRB,.972E-02_JPRB,.121E-01_JPRB,.140E-01_JPRB,&
+&.165E-01_JPRB,.176E-01_JPRB,.166E-01_JPRB,.150E-01_JPRB,.121E-01_JPRB,.111E-01_JPRB,.101E-01_JPRB,&
+&.876E-02_JPRB,.829E-02_JPRB,.788E-02_JPRB,.763E-02_JPRB,.743E-02_JPRB,.722E-02_JPRB,.667E-02_JPRB,&
+&.604E-02_JPRB,.552E-02_JPRB,.471E-02_JPRB,.404E-02_JPRB,.355E-02_JPRB,.284E-02_JPRB,.220E-02_JPRB,&
+&.186E-02_JPRB,.151E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,&
+&.133E-02_JPRB,.134E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 39 -62.0
+ZAER (:,39,11) = (/&
+&.126E-02_JPRB,.126E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.116E-02_JPRB,.111E-02_JPRB,&
+&.106E-02_JPRB,.992E-03_JPRB,.947E-03_JPRB,.919E-03_JPRB,.892E-03_JPRB,.875E-03_JPRB,.864E-03_JPRB,&
+&.851E-03_JPRB,.848E-03_JPRB,.853E-03_JPRB,.864E-03_JPRB,.898E-03_JPRB,.929E-03_JPRB,.968E-03_JPRB,&
+&.104E-02_JPRB,.108E-02_JPRB,.112E-02_JPRB,.118E-02_JPRB,.125E-02_JPRB,.133E-02_JPRB,.155E-02_JPRB,&
+&.171E-02_JPRB,.187E-02_JPRB,.221E-02_JPRB,.269E-02_JPRB,.314E-02_JPRB,.400E-02_JPRB,.460E-02_JPRB,&
+&.492E-02_JPRB,.513E-02_JPRB,.549E-02_JPRB,.603E-02_JPRB,.706E-02_JPRB,.891E-02_JPRB,.101E-01_JPRB,&
+&.116E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.108E-01_JPRB,.875E-02_JPRB,.798E-02_JPRB,.725E-02_JPRB,&
+&.662E-02_JPRB,.653E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,.637E-02_JPRB,.627E-02_JPRB,.592E-02_JPRB,&
+&.545E-02_JPRB,.506E-02_JPRB,.443E-02_JPRB,.383E-02_JPRB,.338E-02_JPRB,.271E-02_JPRB,.208E-02_JPRB,&
+&.176E-02_JPRB,.143E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 40 -66.0
+ZAER (:,40,11) = (/&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,&
+&.104E-02_JPRB,.983E-03_JPRB,.936E-03_JPRB,.903E-03_JPRB,.861E-03_JPRB,.831E-03_JPRB,.815E-03_JPRB,&
+&.798E-03_JPRB,.798E-03_JPRB,.804E-03_JPRB,.816E-03_JPRB,.844E-03_JPRB,.865E-03_JPRB,.890E-03_JPRB,&
+&.932E-03_JPRB,.951E-03_JPRB,.968E-03_JPRB,.100E-02_JPRB,.105E-02_JPRB,.109E-02_JPRB,.123E-02_JPRB,&
+&.135E-02_JPRB,.146E-02_JPRB,.172E-02_JPRB,.205E-02_JPRB,.234E-02_JPRB,.286E-02_JPRB,.328E-02_JPRB,&
+&.358E-02_JPRB,.399E-02_JPRB,.463E-02_JPRB,.522E-02_JPRB,.617E-02_JPRB,.756E-02_JPRB,.837E-02_JPRB,&
+&.930E-02_JPRB,.955E-02_JPRB,.908E-02_JPRB,.839E-02_JPRB,.683E-02_JPRB,.620E-02_JPRB,.560E-02_JPRB,&
+&.509E-02_JPRB,.503E-02_JPRB,.497E-02_JPRB,.494E-02_JPRB,.486E-02_JPRB,.478E-02_JPRB,.453E-02_JPRB,&
+&.425E-02_JPRB,.400E-02_JPRB,.359E-02_JPRB,.316E-02_JPRB,.282E-02_JPRB,.233E-02_JPRB,.188E-02_JPRB,&
+&.165E-02_JPRB,.140E-02_JPRB,.126E-02_JPRB,.120E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,&
+&.118E-02_JPRB,.120E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 41 -70.0
+ZAER (:,41,11) = (/&
+&.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,&
+&.103E-02_JPRB,.987E-03_JPRB,.948E-03_JPRB,.917E-03_JPRB,.872E-03_JPRB,.836E-03_JPRB,.816E-03_JPRB,&
+&.795E-03_JPRB,.790E-03_JPRB,.793E-03_JPRB,.800E-03_JPRB,.814E-03_JPRB,.821E-03_JPRB,.829E-03_JPRB,&
+&.840E-03_JPRB,.844E-03_JPRB,.848E-03_JPRB,.861E-03_JPRB,.882E-03_JPRB,.906E-03_JPRB,.987E-03_JPRB,&
+&.107E-02_JPRB,.115E-02_JPRB,.134E-02_JPRB,.154E-02_JPRB,.171E-02_JPRB,.200E-02_JPRB,.228E-02_JPRB,&
+&.252E-02_JPRB,.289E-02_JPRB,.343E-02_JPRB,.388E-02_JPRB,.457E-02_JPRB,.541E-02_JPRB,.584E-02_JPRB,&
+&.630E-02_JPRB,.644E-02_JPRB,.625E-02_JPRB,.595E-02_JPRB,.511E-02_JPRB,.472E-02_JPRB,.434E-02_JPRB,&
+&.396E-02_JPRB,.387E-02_JPRB,.380E-02_JPRB,.369E-02_JPRB,.361E-02_JPRB,.353E-02_JPRB,.337E-02_JPRB,&
+&.321E-02_JPRB,.307E-02_JPRB,.280E-02_JPRB,.252E-02_JPRB,.231E-02_JPRB,.200E-02_JPRB,.173E-02_JPRB,&
+&.157E-02_JPRB,.139E-02_JPRB,.126E-02_JPRB,.121E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.117E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 42 -74.0
+ZAER (:,42,11) = (/&
+&.117E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.105E-02_JPRB,&
+&.103E-02_JPRB,.990E-03_JPRB,.956E-03_JPRB,.930E-03_JPRB,.891E-03_JPRB,.859E-03_JPRB,.839E-03_JPRB,&
+&.817E-03_JPRB,.807E-03_JPRB,.804E-03_JPRB,.805E-03_JPRB,.810E-03_JPRB,.811E-03_JPRB,.813E-03_JPRB,&
+&.814E-03_JPRB,.815E-03_JPRB,.816E-03_JPRB,.826E-03_JPRB,.841E-03_JPRB,.858E-03_JPRB,.911E-03_JPRB,&
+&.967E-03_JPRB,.102E-02_JPRB,.114E-02_JPRB,.126E-02_JPRB,.136E-02_JPRB,.154E-02_JPRB,.170E-02_JPRB,&
+&.184E-02_JPRB,.204E-02_JPRB,.230E-02_JPRB,.250E-02_JPRB,.281E-02_JPRB,.318E-02_JPRB,.338E-02_JPRB,&
+&.361E-02_JPRB,.378E-02_JPRB,.379E-02_JPRB,.377E-02_JPRB,.357E-02_JPRB,.345E-02_JPRB,.333E-02_JPRB,&
+&.316E-02_JPRB,.309E-02_JPRB,.303E-02_JPRB,.293E-02_JPRB,.286E-02_JPRB,.281E-02_JPRB,.270E-02_JPRB,&
+&.260E-02_JPRB,.251E-02_JPRB,.234E-02_JPRB,.216E-02_JPRB,.203E-02_JPRB,.184E-02_JPRB,.165E-02_JPRB,&
+&.154E-02_JPRB,.141E-02_JPRB,.130E-02_JPRB,.125E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 43 -78.0
+ZAER (:,43,11) = (/&
+&.117E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.101E-02_JPRB,.977E-03_JPRB,.952E-03_JPRB,.933E-03_JPRB,.907E-03_JPRB,.885E-03_JPRB,.871E-03_JPRB,&
+&.854E-03_JPRB,.843E-03_JPRB,.838E-03_JPRB,.834E-03_JPRB,.834E-03_JPRB,.834E-03_JPRB,.835E-03_JPRB,&
+&.838E-03_JPRB,.842E-03_JPRB,.847E-03_JPRB,.861E-03_JPRB,.874E-03_JPRB,.887E-03_JPRB,.924E-03_JPRB,&
+&.956E-03_JPRB,.987E-03_JPRB,.105E-02_JPRB,.111E-02_JPRB,.116E-02_JPRB,.125E-02_JPRB,.133E-02_JPRB,&
+&.140E-02_JPRB,.150E-02_JPRB,.160E-02_JPRB,.169E-02_JPRB,.181E-02_JPRB,.196E-02_JPRB,.206E-02_JPRB,&
+&.217E-02_JPRB,.232E-02_JPRB,.239E-02_JPRB,.246E-02_JPRB,.252E-02_JPRB,.253E-02_JPRB,.255E-02_JPRB,&
+&.254E-02_JPRB,.252E-02_JPRB,.250E-02_JPRB,.246E-02_JPRB,.242E-02_JPRB,.239E-02_JPRB,.232E-02_JPRB,&
+&.225E-02_JPRB,.219E-02_JPRB,.209E-02_JPRB,.198E-02_JPRB,.189E-02_JPRB,.177E-02_JPRB,.164E-02_JPRB,&
+&.156E-02_JPRB,.147E-02_JPRB,.138E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,&
+&.120E-02_JPRB,.117E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 44 -82.0
+ZAER (:,44,11) = (/&
+&.119E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,&
+&.104E-02_JPRB,.102E-02_JPRB,.999E-03_JPRB,.986E-03_JPRB,.968E-03_JPRB,.955E-03_JPRB,.946E-03_JPRB,&
+&.935E-03_JPRB,.926E-03_JPRB,.922E-03_JPRB,.917E-03_JPRB,.915E-03_JPRB,.915E-03_JPRB,.915E-03_JPRB,&
+&.919E-03_JPRB,.924E-03_JPRB,.928E-03_JPRB,.940E-03_JPRB,.949E-03_JPRB,.958E-03_JPRB,.981E-03_JPRB,&
+&.998E-03_JPRB,.101E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,.114E-02_JPRB,.118E-02_JPRB,&
+&.121E-02_JPRB,.126E-02_JPRB,.131E-02_JPRB,.135E-02_JPRB,.141E-02_JPRB,.147E-02_JPRB,.152E-02_JPRB,&
+&.158E-02_JPRB,.166E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,.183E-02_JPRB,.186E-02_JPRB,.189E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,&
+&.186E-02_JPRB,.183E-02_JPRB,.178E-02_JPRB,.172E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,.155E-02_JPRB,&
+&.151E-02_JPRB,.146E-02_JPRB,.140E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,&
+&.123E-02_JPRB,.119E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 45 -86.0
+ZAER (:,45,11) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,&
+&.111E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,&
+&.121E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,&
+&.134E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,&
+&.147E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,&
+&.147E-02_JPRB,.147E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,&
+&.137E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,&
+&.125E-02_JPRB,.123E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 11 --- lat: 46 -90.0
+ZAER (:,46,11) = (/&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=11  
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_11
Index: LMDZ5/branches/testing/libf/phymar/suecaebc_12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaebc_12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaebc_12.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAEBC_12
+
+!**   OPTICAL THICKNESS OF BLACK CARBON AEROSOLS (URBAN/FOREST FIRE ORIGIN)
+!                                                 December
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEBC* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERBC
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,12:12)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Black Carbon Aerosol     month: 12 --- lat:  1  90.0
+ZAER (:, 1,12) = (/&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,.661E-04_JPRB,&
+&.661E-04_JPRB,.661E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  2  86.0
+ZAER (:, 2,12) = (/&
+&.680E-04_JPRB,.681E-04_JPRB,.684E-04_JPRB,.686E-04_JPRB,.688E-04_JPRB,.689E-04_JPRB,.690E-04_JPRB,&
+&.691E-04_JPRB,.692E-04_JPRB,.692E-04_JPRB,.692E-04_JPRB,.691E-04_JPRB,.691E-04_JPRB,.690E-04_JPRB,&
+&.689E-04_JPRB,.689E-04_JPRB,.688E-04_JPRB,.687E-04_JPRB,.686E-04_JPRB,.685E-04_JPRB,.684E-04_JPRB,&
+&.682E-04_JPRB,.681E-04_JPRB,.679E-04_JPRB,.677E-04_JPRB,.676E-04_JPRB,.674E-04_JPRB,.671E-04_JPRB,&
+&.669E-04_JPRB,.667E-04_JPRB,.664E-04_JPRB,.661E-04_JPRB,.659E-04_JPRB,.655E-04_JPRB,.652E-04_JPRB,&
+&.649E-04_JPRB,.646E-04_JPRB,.643E-04_JPRB,.641E-04_JPRB,.638E-04_JPRB,.635E-04_JPRB,.634E-04_JPRB,&
+&.632E-04_JPRB,.630E-04_JPRB,.629E-04_JPRB,.628E-04_JPRB,.627E-04_JPRB,.627E-04_JPRB,.627E-04_JPRB,&
+&.627E-04_JPRB,.627E-04_JPRB,.627E-04_JPRB,.629E-04_JPRB,.630E-04_JPRB,.631E-04_JPRB,.633E-04_JPRB,&
+&.635E-04_JPRB,.636E-04_JPRB,.639E-04_JPRB,.642E-04_JPRB,.644E-04_JPRB,.647E-04_JPRB,.651E-04_JPRB,&
+&.654E-04_JPRB,.657E-04_JPRB,.661E-04_JPRB,.664E-04_JPRB,.667E-04_JPRB,.671E-04_JPRB,.674E-04_JPRB,&
+&.676E-04_JPRB,.680E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  3  82.0
+ZAER (:, 3,12) = (/&
+&.703E-04_JPRB,.703E-04_JPRB,.712E-04_JPRB,.717E-04_JPRB,.722E-04_JPRB,.726E-04_JPRB,.728E-04_JPRB,&
+&.729E-04_JPRB,.730E-04_JPRB,.729E-04_JPRB,.728E-04_JPRB,.726E-04_JPRB,.724E-04_JPRB,.722E-04_JPRB,&
+&.719E-04_JPRB,.717E-04_JPRB,.716E-04_JPRB,.714E-04_JPRB,.712E-04_JPRB,.712E-04_JPRB,.711E-04_JPRB,&
+&.711E-04_JPRB,.711E-04_JPRB,.711E-04_JPRB,.710E-04_JPRB,.709E-04_JPRB,.708E-04_JPRB,.703E-04_JPRB,&
+&.699E-04_JPRB,.694E-04_JPRB,.684E-04_JPRB,.676E-04_JPRB,.669E-04_JPRB,.657E-04_JPRB,.647E-04_JPRB,&
+&.639E-04_JPRB,.629E-04_JPRB,.620E-04_JPRB,.615E-04_JPRB,.607E-04_JPRB,.601E-04_JPRB,.597E-04_JPRB,&
+&.593E-04_JPRB,.589E-04_JPRB,.587E-04_JPRB,.586E-04_JPRB,.583E-04_JPRB,.583E-04_JPRB,.582E-04_JPRB,&
+&.582E-04_JPRB,.582E-04_JPRB,.582E-04_JPRB,.583E-04_JPRB,.584E-04_JPRB,.585E-04_JPRB,.587E-04_JPRB,&
+&.591E-04_JPRB,.593E-04_JPRB,.599E-04_JPRB,.604E-04_JPRB,.609E-04_JPRB,.616E-04_JPRB,.625E-04_JPRB,&
+&.631E-04_JPRB,.639E-04_JPRB,.649E-04_JPRB,.656E-04_JPRB,.664E-04_JPRB,.677E-04_JPRB,.684E-04_JPRB,&
+&.691E-04_JPRB,.702E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  4  78.0
+ZAER (:, 4,12) = (/&
+&.718E-04_JPRB,.718E-04_JPRB,.735E-04_JPRB,.743E-04_JPRB,.750E-04_JPRB,.756E-04_JPRB,.757E-04_JPRB,&
+&.758E-04_JPRB,.755E-04_JPRB,.751E-04_JPRB,.748E-04_JPRB,.742E-04_JPRB,.737E-04_JPRB,.733E-04_JPRB,&
+&.728E-04_JPRB,.725E-04_JPRB,.723E-04_JPRB,.722E-04_JPRB,.723E-04_JPRB,.725E-04_JPRB,.728E-04_JPRB,&
+&.736E-04_JPRB,.742E-04_JPRB,.748E-04_JPRB,.761E-04_JPRB,.766E-04_JPRB,.771E-04_JPRB,.772E-04_JPRB,&
+&.767E-04_JPRB,.762E-04_JPRB,.746E-04_JPRB,.730E-04_JPRB,.715E-04_JPRB,.692E-04_JPRB,.672E-04_JPRB,&
+&.657E-04_JPRB,.636E-04_JPRB,.620E-04_JPRB,.609E-04_JPRB,.597E-04_JPRB,.587E-04_JPRB,.581E-04_JPRB,&
+&.576E-04_JPRB,.572E-04_JPRB,.572E-04_JPRB,.571E-04_JPRB,.571E-04_JPRB,.571E-04_JPRB,.571E-04_JPRB,&
+&.569E-04_JPRB,.567E-04_JPRB,.565E-04_JPRB,.561E-04_JPRB,.558E-04_JPRB,.556E-04_JPRB,.554E-04_JPRB,&
+&.554E-04_JPRB,.555E-04_JPRB,.559E-04_JPRB,.564E-04_JPRB,.569E-04_JPRB,.576E-04_JPRB,.587E-04_JPRB,&
+&.596E-04_JPRB,.608E-04_JPRB,.624E-04_JPRB,.635E-04_JPRB,.649E-04_JPRB,.670E-04_JPRB,.683E-04_JPRB,&
+&.696E-04_JPRB,.717E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  5  74.0
+ZAER (:, 5,12) = (/&
+&.749E-04_JPRB,.749E-04_JPRB,.773E-04_JPRB,.782E-04_JPRB,.789E-04_JPRB,.793E-04_JPRB,.790E-04_JPRB,&
+&.787E-04_JPRB,.777E-04_JPRB,.768E-04_JPRB,.761E-04_JPRB,.752E-04_JPRB,.746E-04_JPRB,.742E-04_JPRB,&
+&.736E-04_JPRB,.732E-04_JPRB,.731E-04_JPRB,.731E-04_JPRB,.734E-04_JPRB,.738E-04_JPRB,.744E-04_JPRB,&
+&.759E-04_JPRB,.773E-04_JPRB,.787E-04_JPRB,.821E-04_JPRB,.838E-04_JPRB,.854E-04_JPRB,.871E-04_JPRB,&
+&.870E-04_JPRB,.868E-04_JPRB,.849E-04_JPRB,.828E-04_JPRB,.809E-04_JPRB,.776E-04_JPRB,.748E-04_JPRB,&
+&.727E-04_JPRB,.698E-04_JPRB,.673E-04_JPRB,.657E-04_JPRB,.638E-04_JPRB,.623E-04_JPRB,.615E-04_JPRB,&
+&.608E-04_JPRB,.605E-04_JPRB,.608E-04_JPRB,.611E-04_JPRB,.620E-04_JPRB,.623E-04_JPRB,.625E-04_JPRB,&
+&.622E-04_JPRB,.616E-04_JPRB,.610E-04_JPRB,.595E-04_JPRB,.585E-04_JPRB,.576E-04_JPRB,.564E-04_JPRB,&
+&.559E-04_JPRB,.555E-04_JPRB,.551E-04_JPRB,.552E-04_JPRB,.554E-04_JPRB,.558E-04_JPRB,.568E-04_JPRB,&
+&.577E-04_JPRB,.591E-04_JPRB,.613E-04_JPRB,.629E-04_JPRB,.649E-04_JPRB,.680E-04_JPRB,.698E-04_JPRB,&
+&.718E-04_JPRB,.748E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  6  70.0
+ZAER (:, 6,12) = (/&
+&.822E-04_JPRB,.823E-04_JPRB,.845E-04_JPRB,.851E-04_JPRB,.855E-04_JPRB,.853E-04_JPRB,.844E-04_JPRB,&
+&.834E-04_JPRB,.813E-04_JPRB,.798E-04_JPRB,.788E-04_JPRB,.777E-04_JPRB,.772E-04_JPRB,.769E-04_JPRB,&
+&.766E-04_JPRB,.765E-04_JPRB,.766E-04_JPRB,.766E-04_JPRB,.771E-04_JPRB,.774E-04_JPRB,.779E-04_JPRB,&
+&.792E-04_JPRB,.807E-04_JPRB,.823E-04_JPRB,.868E-04_JPRB,.895E-04_JPRB,.921E-04_JPRB,.952E-04_JPRB,&
+&.957E-04_JPRB,.958E-04_JPRB,.943E-04_JPRB,.926E-04_JPRB,.911E-04_JPRB,.887E-04_JPRB,.866E-04_JPRB,&
+&.848E-04_JPRB,.822E-04_JPRB,.795E-04_JPRB,.777E-04_JPRB,.753E-04_JPRB,.727E-04_JPRB,.714E-04_JPRB,&
+&.699E-04_JPRB,.690E-04_JPRB,.693E-04_JPRB,.698E-04_JPRB,.716E-04_JPRB,.724E-04_JPRB,.732E-04_JPRB,&
+&.730E-04_JPRB,.719E-04_JPRB,.708E-04_JPRB,.682E-04_JPRB,.664E-04_JPRB,.650E-04_JPRB,.630E-04_JPRB,&
+&.617E-04_JPRB,.609E-04_JPRB,.598E-04_JPRB,.591E-04_JPRB,.588E-04_JPRB,.586E-04_JPRB,.594E-04_JPRB,&
+&.604E-04_JPRB,.620E-04_JPRB,.651E-04_JPRB,.674E-04_JPRB,.702E-04_JPRB,.743E-04_JPRB,.766E-04_JPRB,&
+&.789E-04_JPRB,.821E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  7  66.0
+ZAER (:, 7,12) = (/&
+&.937E-04_JPRB,.937E-04_JPRB,.954E-04_JPRB,.956E-04_JPRB,.957E-04_JPRB,.946E-04_JPRB,.927E-04_JPRB,&
+&.910E-04_JPRB,.874E-04_JPRB,.850E-04_JPRB,.836E-04_JPRB,.823E-04_JPRB,.818E-04_JPRB,.816E-04_JPRB,&
+&.815E-04_JPRB,.819E-04_JPRB,.823E-04_JPRB,.829E-04_JPRB,.837E-04_JPRB,.841E-04_JPRB,.845E-04_JPRB,&
+&.853E-04_JPRB,.862E-04_JPRB,.871E-04_JPRB,.909E-04_JPRB,.935E-04_JPRB,.960E-04_JPRB,.988E-04_JPRB,&
+&.992E-04_JPRB,.994E-04_JPRB,.984E-04_JPRB,.979E-04_JPRB,.977E-04_JPRB,.981E-04_JPRB,.986E-04_JPRB,&
+&.987E-04_JPRB,.985E-04_JPRB,.973E-04_JPRB,.962E-04_JPRB,.942E-04_JPRB,.905E-04_JPRB,.881E-04_JPRB,&
+&.852E-04_JPRB,.823E-04_JPRB,.817E-04_JPRB,.814E-04_JPRB,.831E-04_JPRB,.842E-04_JPRB,.853E-04_JPRB,&
+&.859E-04_JPRB,.848E-04_JPRB,.837E-04_JPRB,.802E-04_JPRB,.782E-04_JPRB,.766E-04_JPRB,.744E-04_JPRB,&
+&.735E-04_JPRB,.727E-04_JPRB,.716E-04_JPRB,.706E-04_JPRB,.700E-04_JPRB,.694E-04_JPRB,.699E-04_JPRB,&
+&.708E-04_JPRB,.724E-04_JPRB,.759E-04_JPRB,.785E-04_JPRB,.817E-04_JPRB,.863E-04_JPRB,.886E-04_JPRB,&
+&.909E-04_JPRB,.936E-04_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  8  62.0
+ZAER (:, 8,12) = (/&
+&.108E-03_JPRB,.108E-03_JPRB,.110E-03_JPRB,.109E-03_JPRB,.109E-03_JPRB,.107E-03_JPRB,.104E-03_JPRB,&
+&.101E-03_JPRB,.965E-04_JPRB,.928E-04_JPRB,.906E-04_JPRB,.884E-04_JPRB,.875E-04_JPRB,.872E-04_JPRB,&
+&.870E-04_JPRB,.878E-04_JPRB,.885E-04_JPRB,.897E-04_JPRB,.915E-04_JPRB,.925E-04_JPRB,.936E-04_JPRB,&
+&.950E-04_JPRB,.956E-04_JPRB,.961E-04_JPRB,.982E-04_JPRB,.996E-04_JPRB,.101E-03_JPRB,.102E-03_JPRB,&
+&.101E-03_JPRB,.994E-04_JPRB,.970E-04_JPRB,.981E-04_JPRB,.997E-04_JPRB,.105E-03_JPRB,.109E-03_JPRB,&
+&.112E-03_JPRB,.116E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.115E-03_JPRB,.111E-03_JPRB,.107E-03_JPRB,&
+&.103E-03_JPRB,.971E-04_JPRB,.946E-04_JPRB,.922E-04_JPRB,.924E-04_JPRB,.935E-04_JPRB,.947E-04_JPRB,&
+&.965E-04_JPRB,.959E-04_JPRB,.952E-04_JPRB,.925E-04_JPRB,.911E-04_JPRB,.900E-04_JPRB,.895E-04_JPRB,&
+&.902E-04_JPRB,.907E-04_JPRB,.913E-04_JPRB,.908E-04_JPRB,.904E-04_JPRB,.896E-04_JPRB,.896E-04_JPRB,&
+&.902E-04_JPRB,.915E-04_JPRB,.939E-04_JPRB,.960E-04_JPRB,.986E-04_JPRB,.103E-03_JPRB,.105E-03_JPRB,&
+&.107E-03_JPRB,.108E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat:  9  58.0
+ZAER (:, 9,12) = (/&
+&.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.126E-03_JPRB,.125E-03_JPRB,.123E-03_JPRB,.119E-03_JPRB,&
+&.116E-03_JPRB,.109E-03_JPRB,.104E-03_JPRB,.100E-03_JPRB,.962E-04_JPRB,.945E-04_JPRB,.940E-04_JPRB,&
+&.940E-04_JPRB,.949E-04_JPRB,.958E-04_JPRB,.970E-04_JPRB,.988E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,&
+&.106E-03_JPRB,.109E-03_JPRB,.112E-03_JPRB,.116E-03_JPRB,.116E-03_JPRB,.117E-03_JPRB,.113E-03_JPRB,&
+&.109E-03_JPRB,.105E-03_JPRB,.102E-03_JPRB,.107E-03_JPRB,.112E-03_JPRB,.121E-03_JPRB,.128E-03_JPRB,&
+&.132E-03_JPRB,.136E-03_JPRB,.135E-03_JPRB,.133E-03_JPRB,.129E-03_JPRB,.122E-03_JPRB,.118E-03_JPRB,&
+&.113E-03_JPRB,.106E-03_JPRB,.103E-03_JPRB,.999E-04_JPRB,.990E-04_JPRB,.100E-03_JPRB,.102E-03_JPRB,&
+&.104E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.107E-03_JPRB,&
+&.110E-03_JPRB,.112E-03_JPRB,.115E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,&
+&.115E-03_JPRB,.116E-03_JPRB,.117E-03_JPRB,.119E-03_JPRB,.121E-03_JPRB,.124E-03_JPRB,.125E-03_JPRB,&
+&.126E-03_JPRB,.126E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 10  54.0
+ZAER (:,10,12) = (/&
+&.149E-03_JPRB,.149E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.147E-03_JPRB,.143E-03_JPRB,.137E-03_JPRB,&
+&.132E-03_JPRB,.123E-03_JPRB,.116E-03_JPRB,.112E-03_JPRB,.105E-03_JPRB,.103E-03_JPRB,.102E-03_JPRB,&
+&.102E-03_JPRB,.103E-03_JPRB,.104E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.107E-03_JPRB,.108E-03_JPRB,&
+&.116E-03_JPRB,.122E-03_JPRB,.128E-03_JPRB,.133E-03_JPRB,.135E-03_JPRB,.136E-03_JPRB,.132E-03_JPRB,&
+&.127E-03_JPRB,.123E-03_JPRB,.127E-03_JPRB,.136E-03_JPRB,.145E-03_JPRB,.160E-03_JPRB,.165E-03_JPRB,&
+&.166E-03_JPRB,.162E-03_JPRB,.156E-03_JPRB,.149E-03_JPRB,.138E-03_JPRB,.125E-03_JPRB,.119E-03_JPRB,&
+&.113E-03_JPRB,.108E-03_JPRB,.106E-03_JPRB,.104E-03_JPRB,.104E-03_JPRB,.105E-03_JPRB,.106E-03_JPRB,&
+&.109E-03_JPRB,.110E-03_JPRB,.112E-03_JPRB,.116E-03_JPRB,.118E-03_JPRB,.120E-03_JPRB,.124E-03_JPRB,&
+&.126E-03_JPRB,.128E-03_JPRB,.132E-03_JPRB,.133E-03_JPRB,.133E-03_JPRB,.131E-03_JPRB,.130E-03_JPRB,&
+&.131E-03_JPRB,.133E-03_JPRB,.138E-03_JPRB,.141E-03_JPRB,.144E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,&
+&.149E-03_JPRB,.149E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 11  50.0
+ZAER (:,11,12) = (/&
+&.177E-03_JPRB,.176E-03_JPRB,.170E-03_JPRB,.169E-03_JPRB,.167E-03_JPRB,.165E-03_JPRB,.159E-03_JPRB,&
+&.153E-03_JPRB,.141E-03_JPRB,.132E-03_JPRB,.126E-03_JPRB,.118E-03_JPRB,.115E-03_JPRB,.114E-03_JPRB,&
+&.114E-03_JPRB,.116E-03_JPRB,.118E-03_JPRB,.120E-03_JPRB,.120E-03_JPRB,.119E-03_JPRB,.119E-03_JPRB,&
+&.131E-03_JPRB,.139E-03_JPRB,.146E-03_JPRB,.151E-03_JPRB,.154E-03_JPRB,.156E-03_JPRB,.161E-03_JPRB,&
+&.161E-03_JPRB,.163E-03_JPRB,.171E-03_JPRB,.177E-03_JPRB,.183E-03_JPRB,.198E-03_JPRB,.204E-03_JPRB,&
+&.206E-03_JPRB,.201E-03_JPRB,.189E-03_JPRB,.179E-03_JPRB,.161E-03_JPRB,.138E-03_JPRB,.128E-03_JPRB,&
+&.118E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.110E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,&
+&.115E-03_JPRB,.118E-03_JPRB,.122E-03_JPRB,.130E-03_JPRB,.134E-03_JPRB,.138E-03_JPRB,.141E-03_JPRB,&
+&.140E-03_JPRB,.140E-03_JPRB,.141E-03_JPRB,.140E-03_JPRB,.140E-03_JPRB,.139E-03_JPRB,.140E-03_JPRB,&
+&.144E-03_JPRB,.151E-03_JPRB,.159E-03_JPRB,.163E-03_JPRB,.166E-03_JPRB,.173E-03_JPRB,.175E-03_JPRB,&
+&.177E-03_JPRB,.177E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 12  46.0
+ZAER (:,12,12) = (/&
+&.214E-03_JPRB,.214E-03_JPRB,.193E-03_JPRB,.188E-03_JPRB,.185E-03_JPRB,.186E-03_JPRB,.183E-03_JPRB,&
+&.178E-03_JPRB,.166E-03_JPRB,.155E-03_JPRB,.147E-03_JPRB,.136E-03_JPRB,.132E-03_JPRB,.130E-03_JPRB,&
+&.130E-03_JPRB,.134E-03_JPRB,.136E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,&
+&.152E-03_JPRB,.165E-03_JPRB,.178E-03_JPRB,.191E-03_JPRB,.201E-03_JPRB,.212E-03_JPRB,.235E-03_JPRB,&
+&.242E-03_JPRB,.246E-03_JPRB,.242E-03_JPRB,.233E-03_JPRB,.229E-03_JPRB,.236E-03_JPRB,.242E-03_JPRB,&
+&.245E-03_JPRB,.248E-03_JPRB,.241E-03_JPRB,.232E-03_JPRB,.214E-03_JPRB,.179E-03_JPRB,.162E-03_JPRB,&
+&.146E-03_JPRB,.130E-03_JPRB,.127E-03_JPRB,.125E-03_JPRB,.126E-03_JPRB,.128E-03_JPRB,.130E-03_JPRB,&
+&.136E-03_JPRB,.141E-03_JPRB,.146E-03_JPRB,.157E-03_JPRB,.160E-03_JPRB,.162E-03_JPRB,.160E-03_JPRB,&
+&.158E-03_JPRB,.155E-03_JPRB,.152E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.152E-03_JPRB,.162E-03_JPRB,&
+&.172E-03_JPRB,.189E-03_JPRB,.200E-03_JPRB,.200E-03_JPRB,.197E-03_JPRB,.207E-03_JPRB,.213E-03_JPRB,&
+&.220E-03_JPRB,.215E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 13  42.0
+ZAER (:,13,12) = (/&
+&.256E-03_JPRB,.255E-03_JPRB,.219E-03_JPRB,.213E-03_JPRB,.208E-03_JPRB,.210E-03_JPRB,.208E-03_JPRB,&
+&.205E-03_JPRB,.193E-03_JPRB,.181E-03_JPRB,.173E-03_JPRB,.161E-03_JPRB,.155E-03_JPRB,.152E-03_JPRB,&
+&.151E-03_JPRB,.155E-03_JPRB,.157E-03_JPRB,.158E-03_JPRB,.157E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,&
+&.184E-03_JPRB,.212E-03_JPRB,.244E-03_JPRB,.344E-03_JPRB,.392E-03_JPRB,.435E-03_JPRB,.429E-03_JPRB,&
+&.399E-03_JPRB,.370E-03_JPRB,.318E-03_JPRB,.291E-03_JPRB,.276E-03_JPRB,.276E-03_JPRB,.288E-03_JPRB,&
+&.298E-03_JPRB,.313E-03_JPRB,.312E-03_JPRB,.305E-03_JPRB,.289E-03_JPRB,.250E-03_JPRB,.229E-03_JPRB,&
+&.206E-03_JPRB,.178E-03_JPRB,.170E-03_JPRB,.164E-03_JPRB,.162E-03_JPRB,.166E-03_JPRB,.171E-03_JPRB,&
+&.181E-03_JPRB,.189E-03_JPRB,.196E-03_JPRB,.206E-03_JPRB,.205E-03_JPRB,.203E-03_JPRB,.194E-03_JPRB,&
+&.189E-03_JPRB,.186E-03_JPRB,.182E-03_JPRB,.178E-03_JPRB,.177E-03_JPRB,.178E-03_JPRB,.206E-03_JPRB,&
+&.232E-03_JPRB,.270E-03_JPRB,.283E-03_JPRB,.275E-03_JPRB,.257E-03_JPRB,.249E-03_JPRB,.256E-03_JPRB,&
+&.267E-03_JPRB,.256E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 14  38.0
+ZAER (:,14,12) = (/&
+&.278E-03_JPRB,.277E-03_JPRB,.241E-03_JPRB,.235E-03_JPRB,.230E-03_JPRB,.232E-03_JPRB,.229E-03_JPRB,&
+&.225E-03_JPRB,.214E-03_JPRB,.202E-03_JPRB,.194E-03_JPRB,.182E-03_JPRB,.176E-03_JPRB,.173E-03_JPRB,&
+&.172E-03_JPRB,.177E-03_JPRB,.179E-03_JPRB,.180E-03_JPRB,.176E-03_JPRB,.176E-03_JPRB,.177E-03_JPRB,&
+&.231E-03_JPRB,.298E-03_JPRB,.371E-03_JPRB,.730E-03_JPRB,.879E-03_JPRB,.100E-02_JPRB,.803E-03_JPRB,&
+&.638E-03_JPRB,.503E-03_JPRB,.374E-03_JPRB,.337E-03_JPRB,.318E-03_JPRB,.324E-03_JPRB,.355E-03_JPRB,&
+&.374E-03_JPRB,.393E-03_JPRB,.380E-03_JPRB,.373E-03_JPRB,.364E-03_JPRB,.356E-03_JPRB,.342E-03_JPRB,&
+&.319E-03_JPRB,.275E-03_JPRB,.260E-03_JPRB,.246E-03_JPRB,.233E-03_JPRB,.234E-03_JPRB,.236E-03_JPRB,&
+&.247E-03_JPRB,.257E-03_JPRB,.267E-03_JPRB,.274E-03_JPRB,.270E-03_JPRB,.265E-03_JPRB,.249E-03_JPRB,&
+&.240E-03_JPRB,.236E-03_JPRB,.236E-03_JPRB,.230E-03_JPRB,.226E-03_JPRB,.222E-03_JPRB,.276E-03_JPRB,&
+&.320E-03_JPRB,.381E-03_JPRB,.403E-03_JPRB,.390E-03_JPRB,.362E-03_JPRB,.303E-03_JPRB,.296E-03_JPRB,&
+&.296E-03_JPRB,.279E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 15  34.0
+ZAER (:,15,12) = (/&
+&.285E-03_JPRB,.284E-03_JPRB,.256E-03_JPRB,.251E-03_JPRB,.247E-03_JPRB,.246E-03_JPRB,.241E-03_JPRB,&
+&.236E-03_JPRB,.223E-03_JPRB,.213E-03_JPRB,.206E-03_JPRB,.195E-03_JPRB,.189E-03_JPRB,.187E-03_JPRB,&
+&.189E-03_JPRB,.196E-03_JPRB,.197E-03_JPRB,.197E-03_JPRB,.193E-03_JPRB,.196E-03_JPRB,.201E-03_JPRB,&
+&.319E-03_JPRB,.431E-03_JPRB,.553E-03_JPRB,.119E-02_JPRB,.146E-02_JPRB,.167E-02_JPRB,.119E-02_JPRB,&
+&.855E-03_JPRB,.589E-03_JPRB,.405E-03_JPRB,.382E-03_JPRB,.374E-03_JPRB,.401E-03_JPRB,.443E-03_JPRB,&
+&.462E-03_JPRB,.467E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.459E-03_JPRB,.535E-03_JPRB,.545E-03_JPRB,&
+&.535E-03_JPRB,.448E-03_JPRB,.408E-03_JPRB,.367E-03_JPRB,.333E-03_JPRB,.329E-03_JPRB,.327E-03_JPRB,&
+&.333E-03_JPRB,.345E-03_JPRB,.354E-03_JPRB,.356E-03_JPRB,.349E-03_JPRB,.340E-03_JPRB,.319E-03_JPRB,&
+&.306E-03_JPRB,.301E-03_JPRB,.310E-03_JPRB,.302E-03_JPRB,.296E-03_JPRB,.287E-03_JPRB,.356E-03_JPRB,&
+&.406E-03_JPRB,.473E-03_JPRB,.519E-03_JPRB,.514E-03_JPRB,.493E-03_JPRB,.361E-03_JPRB,.332E-03_JPRB,&
+&.311E-03_JPRB,.286E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 16  30.0
+ZAER (:,16,12) = (/&
+&.295E-03_JPRB,.294E-03_JPRB,.270E-03_JPRB,.263E-03_JPRB,.258E-03_JPRB,.254E-03_JPRB,.247E-03_JPRB,&
+&.241E-03_JPRB,.224E-03_JPRB,.217E-03_JPRB,.210E-03_JPRB,.201E-03_JPRB,.197E-03_JPRB,.198E-03_JPRB,&
+&.204E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.208E-03_JPRB,.206E-03_JPRB,.216E-03_JPRB,.231E-03_JPRB,&
+&.434E-03_JPRB,.561E-03_JPRB,.692E-03_JPRB,.137E-02_JPRB,.170E-02_JPRB,.197E-02_JPRB,.135E-02_JPRB,&
+&.954E-03_JPRB,.644E-03_JPRB,.462E-03_JPRB,.486E-03_JPRB,.505E-03_JPRB,.532E-03_JPRB,.557E-03_JPRB,&
+&.560E-03_JPRB,.538E-03_JPRB,.507E-03_JPRB,.527E-03_JPRB,.597E-03_JPRB,.783E-03_JPRB,.822E-03_JPRB,&
+&.822E-03_JPRB,.675E-03_JPRB,.602E-03_JPRB,.525E-03_JPRB,.465E-03_JPRB,.455E-03_JPRB,.448E-03_JPRB,&
+&.448E-03_JPRB,.449E-03_JPRB,.448E-03_JPRB,.436E-03_JPRB,.422E-03_JPRB,.410E-03_JPRB,.383E-03_JPRB,&
+&.371E-03_JPRB,.370E-03_JPRB,.390E-03_JPRB,.382E-03_JPRB,.374E-03_JPRB,.361E-03_JPRB,.420E-03_JPRB,&
+&.457E-03_JPRB,.502E-03_JPRB,.569E-03_JPRB,.579E-03_JPRB,.576E-03_JPRB,.407E-03_JPRB,.363E-03_JPRB,&
+&.328E-03_JPRB,.296E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 17  26.0
+ZAER (:,17,12) = (/&
+&.316E-03_JPRB,.315E-03_JPRB,.283E-03_JPRB,.274E-03_JPRB,.267E-03_JPRB,.261E-03_JPRB,.253E-03_JPRB,&
+&.245E-03_JPRB,.226E-03_JPRB,.220E-03_JPRB,.215E-03_JPRB,.209E-03_JPRB,.210E-03_JPRB,.214E-03_JPRB,&
+&.225E-03_JPRB,.227E-03_JPRB,.224E-03_JPRB,.218E-03_JPRB,.219E-03_JPRB,.240E-03_JPRB,.270E-03_JPRB,&
+&.515E-03_JPRB,.609E-03_JPRB,.698E-03_JPRB,.120E-02_JPRB,.156E-02_JPRB,.187E-02_JPRB,.140E-02_JPRB,&
+&.105E-02_JPRB,.782E-03_JPRB,.648E-03_JPRB,.719E-03_JPRB,.748E-03_JPRB,.699E-03_JPRB,.692E-03_JPRB,&
+&.687E-03_JPRB,.678E-03_JPRB,.672E-03_JPRB,.699E-03_JPRB,.767E-03_JPRB,.977E-03_JPRB,.102E-02_JPRB,&
+&.103E-02_JPRB,.894E-03_JPRB,.810E-03_JPRB,.717E-03_JPRB,.627E-03_JPRB,.609E-03_JPRB,.595E-03_JPRB,&
+&.574E-03_JPRB,.548E-03_JPRB,.525E-03_JPRB,.498E-03_JPRB,.480E-03_JPRB,.464E-03_JPRB,.439E-03_JPRB,&
+&.434E-03_JPRB,.437E-03_JPRB,.465E-03_JPRB,.456E-03_JPRB,.446E-03_JPRB,.427E-03_JPRB,.455E-03_JPRB,&
+&.470E-03_JPRB,.484E-03_JPRB,.549E-03_JPRB,.565E-03_JPRB,.571E-03_JPRB,.426E-03_JPRB,.386E-03_JPRB,&
+&.352E-03_JPRB,.317E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 18  22.0
+ZAER (:,18,12) = (/&
+&.342E-03_JPRB,.341E-03_JPRB,.300E-03_JPRB,.290E-03_JPRB,.282E-03_JPRB,.273E-03_JPRB,.263E-03_JPRB,&
+&.254E-03_JPRB,.234E-03_JPRB,.229E-03_JPRB,.227E-03_JPRB,.228E-03_JPRB,.238E-03_JPRB,.246E-03_JPRB,&
+&.259E-03_JPRB,.251E-03_JPRB,.245E-03_JPRB,.235E-03_JPRB,.247E-03_JPRB,.280E-03_JPRB,.326E-03_JPRB,&
+&.528E-03_JPRB,.577E-03_JPRB,.617E-03_JPRB,.962E-03_JPRB,.135E-02_JPRB,.170E-02_JPRB,.152E-02_JPRB,&
+&.126E-02_JPRB,.106E-02_JPRB,.100E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.892E-03_JPRB,.910E-03_JPRB,&
+&.961E-03_JPRB,.110E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.976E-03_JPRB,.105E-02_JPRB,.109E-02_JPRB,&
+&.112E-02_JPRB,.109E-02_JPRB,.101E-02_JPRB,.897E-03_JPRB,.773E-03_JPRB,.742E-03_JPRB,.714E-03_JPRB,&
+&.658E-03_JPRB,.613E-03_JPRB,.574E-03_JPRB,.549E-03_JPRB,.530E-03_JPRB,.515E-03_JPRB,.499E-03_JPRB,&
+&.503E-03_JPRB,.511E-03_JPRB,.536E-03_JPRB,.524E-03_JPRB,.509E-03_JPRB,.477E-03_JPRB,.474E-03_JPRB,&
+&.472E-03_JPRB,.467E-03_JPRB,.504E-03_JPRB,.510E-03_JPRB,.509E-03_JPRB,.420E-03_JPRB,.398E-03_JPRB,&
+&.380E-03_JPRB,.343E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 19  18.0
+ZAER (:,19,12) = (/&
+&.355E-03_JPRB,.354E-03_JPRB,.318E-03_JPRB,.310E-03_JPRB,.303E-03_JPRB,.290E-03_JPRB,.278E-03_JPRB,&
+&.269E-03_JPRB,.254E-03_JPRB,.253E-03_JPRB,.257E-03_JPRB,.272E-03_JPRB,.293E-03_JPRB,.305E-03_JPRB,&
+&.316E-03_JPRB,.298E-03_JPRB,.291E-03_JPRB,.286E-03_JPRB,.324E-03_JPRB,.368E-03_JPRB,.426E-03_JPRB,&
+&.538E-03_JPRB,.578E-03_JPRB,.614E-03_JPRB,.933E-03_JPRB,.128E-02_JPRB,.160E-02_JPRB,.164E-02_JPRB,&
+&.152E-02_JPRB,.143E-02_JPRB,.147E-02_JPRB,.152E-02_JPRB,.150E-02_JPRB,.127E-02_JPRB,.140E-02_JPRB,&
+&.157E-02_JPRB,.194E-02_JPRB,.176E-02_JPRB,.158E-02_JPRB,.126E-02_JPRB,.117E-02_JPRB,.122E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.119E-02_JPRB,.999E-03_JPRB,.832E-03_JPRB,.787E-03_JPRB,.748E-03_JPRB,&
+&.676E-03_JPRB,.638E-03_JPRB,.605E-03_JPRB,.598E-03_JPRB,.583E-03_JPRB,.571E-03_JPRB,.561E-03_JPRB,&
+&.584E-03_JPRB,.601E-03_JPRB,.624E-03_JPRB,.599E-03_JPRB,.572E-03_JPRB,.523E-03_JPRB,.500E-03_JPRB,&
+&.486E-03_JPRB,.470E-03_JPRB,.464E-03_JPRB,.454E-03_JPRB,.439E-03_JPRB,.398E-03_JPRB,.393E-03_JPRB,&
+&.393E-03_JPRB,.357E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 20  14.0
+ZAER (:,20,12) = (/&
+&.347E-03_JPRB,.346E-03_JPRB,.324E-03_JPRB,.320E-03_JPRB,.315E-03_JPRB,.302E-03_JPRB,.294E-03_JPRB,&
+&.290E-03_JPRB,.292E-03_JPRB,.303E-03_JPRB,.317E-03_JPRB,.349E-03_JPRB,.382E-03_JPRB,.399E-03_JPRB,&
+&.415E-03_JPRB,.399E-03_JPRB,.403E-03_JPRB,.417E-03_JPRB,.500E-03_JPRB,.558E-03_JPRB,.626E-03_JPRB,&
+&.689E-03_JPRB,.765E-03_JPRB,.849E-03_JPRB,.118E-02_JPRB,.141E-02_JPRB,.163E-02_JPRB,.181E-02_JPRB,&
+&.180E-02_JPRB,.182E-02_JPRB,.199E-02_JPRB,.209E-02_JPRB,.213E-02_JPRB,.211E-02_JPRB,.237E-02_JPRB,&
+&.261E-02_JPRB,.303E-02_JPRB,.266E-02_JPRB,.233E-02_JPRB,.182E-02_JPRB,.172E-02_JPRB,.175E-02_JPRB,&
+&.186E-02_JPRB,.164E-02_JPRB,.138E-02_JPRB,.106E-02_JPRB,.826E-03_JPRB,.772E-03_JPRB,.727E-03_JPRB,&
+&.672E-03_JPRB,.649E-03_JPRB,.630E-03_JPRB,.640E-03_JPRB,.626E-03_JPRB,.618E-03_JPRB,.624E-03_JPRB,&
+&.716E-03_JPRB,.768E-03_JPRB,.792E-03_JPRB,.720E-03_JPRB,.669E-03_JPRB,.601E-03_JPRB,.562E-03_JPRB,&
+&.534E-03_JPRB,.497E-03_JPRB,.437E-03_JPRB,.412E-03_JPRB,.387E-03_JPRB,.367E-03_JPRB,.368E-03_JPRB,&
+&.373E-03_JPRB,.347E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 21  10.0
+ZAER (:,21,12) = (/&
+&.330E-03_JPRB,.330E-03_JPRB,.320E-03_JPRB,.315E-03_JPRB,.312E-03_JPRB,.309E-03_JPRB,.310E-03_JPRB,&
+&.316E-03_JPRB,.340E-03_JPRB,.369E-03_JPRB,.396E-03_JPRB,.448E-03_JPRB,.495E-03_JPRB,.524E-03_JPRB,&
+&.556E-03_JPRB,.577E-03_JPRB,.608E-03_JPRB,.659E-03_JPRB,.805E-03_JPRB,.889E-03_JPRB,.983E-03_JPRB,&
+&.110E-02_JPRB,.126E-02_JPRB,.144E-02_JPRB,.174E-02_JPRB,.191E-02_JPRB,.207E-02_JPRB,.226E-02_JPRB,&
+&.217E-02_JPRB,.215E-02_JPRB,.250E-02_JPRB,.279E-02_JPRB,.304E-02_JPRB,.343E-02_JPRB,.391E-02_JPRB,&
+&.418E-02_JPRB,.439E-02_JPRB,.404E-02_JPRB,.376E-02_JPRB,.336E-02_JPRB,.324E-02_JPRB,.312E-02_JPRB,&
+&.294E-02_JPRB,.216E-02_JPRB,.172E-02_JPRB,.124E-02_JPRB,.881E-03_JPRB,.792E-03_JPRB,.716E-03_JPRB,&
+&.673E-03_JPRB,.662E-03_JPRB,.654E-03_JPRB,.681E-03_JPRB,.667E-03_JPRB,.664E-03_JPRB,.705E-03_JPRB,&
+&.967E-03_JPRB,.111E-02_JPRB,.115E-02_JPRB,.974E-03_JPRB,.872E-03_JPRB,.766E-03_JPRB,.707E-03_JPRB,&
+&.658E-03_JPRB,.588E-03_JPRB,.442E-03_JPRB,.394E-03_JPRB,.360E-03_JPRB,.345E-03_JPRB,.343E-03_JPRB,&
+&.342E-03_JPRB,.330E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 22   6.0
+ZAER (:,22,12) = (/&
+&.342E-03_JPRB,.341E-03_JPRB,.328E-03_JPRB,.323E-03_JPRB,.321E-03_JPRB,.334E-03_JPRB,.344E-03_JPRB,&
+&.355E-03_JPRB,.387E-03_JPRB,.430E-03_JPRB,.468E-03_JPRB,.536E-03_JPRB,.593E-03_JPRB,.631E-03_JPRB,&
+&.679E-03_JPRB,.752E-03_JPRB,.819E-03_JPRB,.916E-03_JPRB,.115E-02_JPRB,.129E-02_JPRB,.146E-02_JPRB,&
+&.186E-02_JPRB,.210E-02_JPRB,.234E-02_JPRB,.244E-02_JPRB,.268E-02_JPRB,.291E-02_JPRB,.299E-02_JPRB,&
+&.264E-02_JPRB,.246E-02_JPRB,.301E-02_JPRB,.359E-02_JPRB,.412E-02_JPRB,.507E-02_JPRB,.602E-02_JPRB,&
+&.645E-02_JPRB,.654E-02_JPRB,.679E-02_JPRB,.688E-02_JPRB,.692E-02_JPRB,.648E-02_JPRB,.591E-02_JPRB,&
+&.504E-02_JPRB,.325E-02_JPRB,.250E-02_JPRB,.178E-02_JPRB,.114E-02_JPRB,.954E-03_JPRB,.793E-03_JPRB,&
+&.710E-03_JPRB,.711E-03_JPRB,.715E-03_JPRB,.750E-03_JPRB,.742E-03_JPRB,.750E-03_JPRB,.830E-03_JPRB,&
+&.120E-02_JPRB,.140E-02_JPRB,.149E-02_JPRB,.130E-02_JPRB,.117E-02_JPRB,.103E-02_JPRB,.952E-03_JPRB,&
+&.884E-03_JPRB,.781E-03_JPRB,.496E-03_JPRB,.417E-03_JPRB,.373E-03_JPRB,.350E-03_JPRB,.346E-03_JPRB,&
+&.343E-03_JPRB,.342E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 23   2.0
+ZAER (:,23,12) = (/&
+&.409E-03_JPRB,.408E-03_JPRB,.376E-03_JPRB,.369E-03_JPRB,.364E-03_JPRB,.382E-03_JPRB,.397E-03_JPRB,&
+&.411E-03_JPRB,.436E-03_JPRB,.480E-03_JPRB,.519E-03_JPRB,.586E-03_JPRB,.652E-03_JPRB,.695E-03_JPRB,&
+&.749E-03_JPRB,.846E-03_JPRB,.928E-03_JPRB,.104E-02_JPRB,.135E-02_JPRB,.161E-02_JPRB,.194E-02_JPRB,&
+&.278E-02_JPRB,.305E-02_JPRB,.329E-02_JPRB,.317E-02_JPRB,.340E-02_JPRB,.360E-02_JPRB,.343E-02_JPRB,&
+&.303E-02_JPRB,.285E-02_JPRB,.372E-02_JPRB,.496E-02_JPRB,.609E-02_JPRB,.821E-02_JPRB,.100E-01_JPRB,&
+&.108E-01_JPRB,.110E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,&
+&.870E-02_JPRB,.525E-02_JPRB,.390E-02_JPRB,.262E-02_JPRB,.156E-02_JPRB,.129E-02_JPRB,.106E-02_JPRB,&
+&.924E-03_JPRB,.903E-03_JPRB,.888E-03_JPRB,.934E-03_JPRB,.964E-03_JPRB,.997E-03_JPRB,.109E-02_JPRB,&
+&.129E-02_JPRB,.142E-02_JPRB,.156E-02_JPRB,.150E-02_JPRB,.142E-02_JPRB,.125E-02_JPRB,.113E-02_JPRB,&
+&.105E-02_JPRB,.936E-03_JPRB,.574E-03_JPRB,.473E-03_JPRB,.414E-03_JPRB,.379E-03_JPRB,.383E-03_JPRB,&
+&.393E-03_JPRB,.408E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 24  -2.0
+ZAER (:,24,12) = (/&
+&.533E-03_JPRB,.532E-03_JPRB,.495E-03_JPRB,.475E-03_JPRB,.460E-03_JPRB,.465E-03_JPRB,.469E-03_JPRB,&
+&.473E-03_JPRB,.483E-03_JPRB,.523E-03_JPRB,.555E-03_JPRB,.606E-03_JPRB,.659E-03_JPRB,.701E-03_JPRB,&
+&.761E-03_JPRB,.870E-03_JPRB,.965E-03_JPRB,.110E-02_JPRB,.140E-02_JPRB,.167E-02_JPRB,.200E-02_JPRB,&
+&.322E-02_JPRB,.356E-02_JPRB,.385E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.322E-02_JPRB,&
+&.327E-02_JPRB,.353E-02_JPRB,.529E-02_JPRB,.793E-02_JPRB,.105E-01_JPRB,.156E-01_JPRB,.187E-01_JPRB,&
+&.197E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.180E-01_JPRB,.173E-01_JPRB,.162E-01_JPRB,.146E-01_JPRB,&
+&.122E-01_JPRB,.751E-02_JPRB,.548E-02_JPRB,.349E-02_JPRB,.207E-02_JPRB,.182E-02_JPRB,.162E-02_JPRB,&
+&.158E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.176E-02_JPRB,.192E-02_JPRB,.205E-02_JPRB,.218E-02_JPRB,&
+&.210E-02_JPRB,.203E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.180E-02_JPRB,.141E-02_JPRB,.115E-02_JPRB,&
+&.104E-02_JPRB,.948E-03_JPRB,.700E-03_JPRB,.594E-03_JPRB,.494E-03_JPRB,.446E-03_JPRB,.459E-03_JPRB,&
+&.481E-03_JPRB,.531E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 25  -6.0
+ZAER (:,25,12) = (/&
+&.669E-03_JPRB,.668E-03_JPRB,.651E-03_JPRB,.620E-03_JPRB,.592E-03_JPRB,.558E-03_JPRB,.543E-03_JPRB,&
+&.534E-03_JPRB,.535E-03_JPRB,.556E-03_JPRB,.575E-03_JPRB,.607E-03_JPRB,.643E-03_JPRB,.678E-03_JPRB,&
+&.738E-03_JPRB,.850E-03_JPRB,.947E-03_JPRB,.109E-02_JPRB,.135E-02_JPRB,.157E-02_JPRB,.185E-02_JPRB,&
+&.301E-02_JPRB,.322E-02_JPRB,.337E-02_JPRB,.267E-02_JPRB,.262E-02_JPRB,.259E-02_JPRB,.275E-02_JPRB,&
+&.335E-02_JPRB,.411E-02_JPRB,.677E-02_JPRB,.106E-01_JPRB,.143E-01_JPRB,.218E-01_JPRB,.260E-01_JPRB,&
+&.271E-01_JPRB,.249E-01_JPRB,.221E-01_JPRB,.202E-01_JPRB,.177E-01_JPRB,.164E-01_JPRB,.148E-01_JPRB,&
+&.125E-01_JPRB,.813E-02_JPRB,.599E-02_JPRB,.379E-02_JPRB,.244E-02_JPRB,.232E-02_JPRB,.227E-02_JPRB,&
+&.259E-02_JPRB,.274E-02_JPRB,.289E-02_JPRB,.329E-02_JPRB,.369E-02_JPRB,.406E-02_JPRB,.472E-02_JPRB,&
+&.430E-02_JPRB,.388E-02_JPRB,.299E-02_JPRB,.283E-02_JPRB,.253E-02_JPRB,.182E-02_JPRB,.134E-02_JPRB,&
+&.115E-02_JPRB,.103E-02_JPRB,.903E-03_JPRB,.810E-03_JPRB,.695E-03_JPRB,.619E-03_JPRB,.619E-03_JPRB,&
+&.628E-03_JPRB,.668E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 26 -10.0
+ZAER (:,26,12) = (/&
+&.836E-03_JPRB,.835E-03_JPRB,.805E-03_JPRB,.762E-03_JPRB,.722E-03_JPRB,.653E-03_JPRB,.623E-03_JPRB,&
+&.604E-03_JPRB,.602E-03_JPRB,.608E-03_JPRB,.612E-03_JPRB,.617E-03_JPRB,.633E-03_JPRB,.659E-03_JPRB,&
+&.714E-03_JPRB,.848E-03_JPRB,.976E-03_JPRB,.116E-02_JPRB,.135E-02_JPRB,.149E-02_JPRB,.166E-02_JPRB,&
+&.234E-02_JPRB,.236E-02_JPRB,.231E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.176E-02_JPRB,.207E-02_JPRB,&
+&.279E-02_JPRB,.362E-02_JPRB,.604E-02_JPRB,.930E-02_JPRB,.124E-01_JPRB,.183E-01_JPRB,.226E-01_JPRB,&
+&.239E-01_JPRB,.222E-01_JPRB,.190E-01_JPRB,.168E-01_JPRB,.136E-01_JPRB,.123E-01_JPRB,.112E-01_JPRB,&
+&.971E-02_JPRB,.700E-02_JPRB,.542E-02_JPRB,.370E-02_JPRB,.277E-02_JPRB,.280E-02_JPRB,.289E-02_JPRB,&
+&.368E-02_JPRB,.413E-02_JPRB,.454E-02_JPRB,.507E-02_JPRB,.574E-02_JPRB,.645E-02_JPRB,.826E-02_JPRB,&
+&.732E-02_JPRB,.638E-02_JPRB,.448E-02_JPRB,.399E-02_JPRB,.349E-02_JPRB,.259E-02_JPRB,.182E-02_JPRB,&
+&.151E-02_JPRB,.128E-02_JPRB,.117E-02_JPRB,.109E-02_JPRB,.986E-03_JPRB,.884E-03_JPRB,.856E-03_JPRB,&
+&.834E-03_JPRB,.836E-03_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 27 -14.0
+ZAER (:,27,12) = (/&
+&.103E-02_JPRB,.103E-02_JPRB,.962E-03_JPRB,.908E-03_JPRB,.858E-03_JPRB,.773E-03_JPRB,.712E-03_JPRB,&
+&.672E-03_JPRB,.653E-03_JPRB,.662E-03_JPRB,.665E-03_JPRB,.658E-03_JPRB,.658E-03_JPRB,.676E-03_JPRB,&
+&.726E-03_JPRB,.944E-03_JPRB,.112E-02_JPRB,.137E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.144E-02_JPRB,&
+&.165E-02_JPRB,.156E-02_JPRB,.145E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.114E-02_JPRB,.133E-02_JPRB,&
+&.188E-02_JPRB,.249E-02_JPRB,.413E-02_JPRB,.601E-02_JPRB,.774E-02_JPRB,.110E-01_JPRB,.139E-01_JPRB,&
+&.151E-01_JPRB,.153E-01_JPRB,.131E-01_JPRB,.113E-01_JPRB,.863E-02_JPRB,.728E-02_JPRB,.668E-02_JPRB,&
+&.612E-02_JPRB,.500E-02_JPRB,.420E-02_JPRB,.329E-02_JPRB,.296E-02_JPRB,.314E-02_JPRB,.336E-02_JPRB,&
+&.452E-02_JPRB,.522E-02_JPRB,.593E-02_JPRB,.729E-02_JPRB,.809E-02_JPRB,.901E-02_JPRB,.116E-01_JPRB,&
+&.108E-01_JPRB,.974E-02_JPRB,.712E-02_JPRB,.589E-02_JPRB,.498E-02_JPRB,.372E-02_JPRB,.261E-02_JPRB,&
+&.210E-02_JPRB,.166E-02_JPRB,.148E-02_JPRB,.139E-02_JPRB,.131E-02_JPRB,.118E-02_JPRB,.113E-02_JPRB,&
+&.107E-02_JPRB,.103E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 28 -18.0
+ZAER (:,28,12) = (/&
+&.128E-02_JPRB,.128E-02_JPRB,.120E-02_JPRB,.113E-02_JPRB,.107E-02_JPRB,.968E-03_JPRB,.855E-03_JPRB,&
+&.775E-03_JPRB,.707E-03_JPRB,.724E-03_JPRB,.737E-03_JPRB,.753E-03_JPRB,.753E-03_JPRB,.766E-03_JPRB,&
+&.800E-03_JPRB,.105E-02_JPRB,.124E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,&
+&.133E-02_JPRB,.119E-02_JPRB,.104E-02_JPRB,.870E-03_JPRB,.859E-03_JPRB,.853E-03_JPRB,.921E-03_JPRB,&
+&.121E-02_JPRB,.153E-02_JPRB,.250E-02_JPRB,.330E-02_JPRB,.413E-02_JPRB,.597E-02_JPRB,.767E-02_JPRB,&
+&.864E-02_JPRB,.945E-02_JPRB,.805E-02_JPRB,.689E-02_JPRB,.515E-02_JPRB,.423E-02_JPRB,.397E-02_JPRB,&
+&.387E-02_JPRB,.353E-02_JPRB,.323E-02_JPRB,.288E-02_JPRB,.301E-02_JPRB,.321E-02_JPRB,.342E-02_JPRB,&
+&.461E-02_JPRB,.556E-02_JPRB,.658E-02_JPRB,.945E-02_JPRB,.103E-01_JPRB,.113E-01_JPRB,.141E-01_JPRB,&
+&.147E-01_JPRB,.145E-01_JPRB,.123E-01_JPRB,.986E-02_JPRB,.812E-02_JPRB,.569E-02_JPRB,.396E-02_JPRB,&
+&.314E-02_JPRB,.236E-02_JPRB,.197E-02_JPRB,.182E-02_JPRB,.171E-02_JPRB,.154E-02_JPRB,.145E-02_JPRB,&
+&.136E-02_JPRB,.129E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 29 -22.0
+ZAER (:,29,12) = (/&
+&.161E-02_JPRB,.161E-02_JPRB,.152E-02_JPRB,.142E-02_JPRB,.134E-02_JPRB,.120E-02_JPRB,.105E-02_JPRB,&
+&.925E-03_JPRB,.787E-03_JPRB,.802E-03_JPRB,.824E-03_JPRB,.880E-03_JPRB,.935E-03_JPRB,.955E-03_JPRB,&
+&.960E-03_JPRB,.115E-02_JPRB,.130E-02_JPRB,.152E-02_JPRB,.166E-02_JPRB,.172E-02_JPRB,.178E-02_JPRB,&
+&.141E-02_JPRB,.121E-02_JPRB,.101E-02_JPRB,.841E-03_JPRB,.813E-03_JPRB,.790E-03_JPRB,.811E-03_JPRB,&
+&.903E-03_JPRB,.104E-02_JPRB,.158E-02_JPRB,.195E-02_JPRB,.239E-02_JPRB,.350E-02_JPRB,.450E-02_JPRB,&
+&.515E-02_JPRB,.588E-02_JPRB,.521E-02_JPRB,.461E-02_JPRB,.366E-02_JPRB,.322E-02_JPRB,.313E-02_JPRB,&
+&.315E-02_JPRB,.306E-02_JPRB,.296E-02_JPRB,.283E-02_JPRB,.302E-02_JPRB,.316E-02_JPRB,.331E-02_JPRB,&
+&.428E-02_JPRB,.519E-02_JPRB,.619E-02_JPRB,.900E-02_JPRB,.977E-02_JPRB,.108E-01_JPRB,.142E-01_JPRB,&
+&.175E-01_JPRB,.193E-01_JPRB,.198E-01_JPRB,.162E-01_JPRB,.132E-01_JPRB,.866E-02_JPRB,.603E-02_JPRB,&
+&.474E-02_JPRB,.350E-02_JPRB,.276E-02_JPRB,.249E-02_JPRB,.225E-02_JPRB,.201E-02_JPRB,.189E-02_JPRB,&
+&.177E-02_JPRB,.162E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 30 -26.0
+ZAER (:,30,12) = (/&
+&.193E-02_JPRB,.193E-02_JPRB,.175E-02_JPRB,.165E-02_JPRB,.155E-02_JPRB,.138E-02_JPRB,.121E-02_JPRB,&
+&.108E-02_JPRB,.885E-03_JPRB,.883E-03_JPRB,.911E-03_JPRB,.101E-02_JPRB,.118E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.127E-02_JPRB,.139E-02_JPRB,.162E-02_JPRB,.202E-02_JPRB,.215E-02_JPRB,.225E-02_JPRB,&
+&.177E-02_JPRB,.150E-02_JPRB,.123E-02_JPRB,.948E-03_JPRB,.892E-03_JPRB,.844E-03_JPRB,.857E-03_JPRB,&
+&.861E-03_JPRB,.897E-03_JPRB,.116E-02_JPRB,.140E-02_JPRB,.167E-02_JPRB,.230E-02_JPRB,.288E-02_JPRB,&
+&.328E-02_JPRB,.383E-02_JPRB,.372E-02_JPRB,.357E-02_JPRB,.331E-02_JPRB,.344E-02_JPRB,.353E-02_JPRB,&
+&.365E-02_JPRB,.347E-02_JPRB,.335E-02_JPRB,.321E-02_JPRB,.320E-02_JPRB,.326E-02_JPRB,.333E-02_JPRB,&
+&.393E-02_JPRB,.449E-02_JPRB,.504E-02_JPRB,.618E-02_JPRB,.662E-02_JPRB,.744E-02_JPRB,.109E-01_JPRB,&
+&.166E-01_JPRB,.207E-01_JPRB,.262E-01_JPRB,.228E-01_JPRB,.190E-01_JPRB,.119E-01_JPRB,.809E-02_JPRB,&
+&.632E-02_JPRB,.472E-02_JPRB,.367E-02_JPRB,.323E-02_JPRB,.281E-02_JPRB,.248E-02_JPRB,.234E-02_JPRB,&
+&.220E-02_JPRB,.194E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 31 -30.0
+ZAER (:,31,12) = (/&
+&.211E-02_JPRB,.211E-02_JPRB,.185E-02_JPRB,.173E-02_JPRB,.162E-02_JPRB,.145E-02_JPRB,.131E-02_JPRB,&
+&.120E-02_JPRB,.102E-02_JPRB,.999E-03_JPRB,.103E-02_JPRB,.117E-02_JPRB,.141E-02_JPRB,.148E-02_JPRB,&
+&.147E-02_JPRB,.139E-02_JPRB,.153E-02_JPRB,.185E-02_JPRB,.251E-02_JPRB,.270E-02_JPRB,.284E-02_JPRB,&
+&.234E-02_JPRB,.198E-02_JPRB,.159E-02_JPRB,.114E-02_JPRB,.105E-02_JPRB,.965E-03_JPRB,.965E-03_JPRB,&
+&.936E-03_JPRB,.923E-03_JPRB,.992E-03_JPRB,.114E-02_JPRB,.130E-02_JPRB,.165E-02_JPRB,.201E-02_JPRB,&
+&.229E-02_JPRB,.269E-02_JPRB,.291E-02_JPRB,.318E-02_JPRB,.366E-02_JPRB,.450E-02_JPRB,.484E-02_JPRB,&
+&.516E-02_JPRB,.469E-02_JPRB,.438E-02_JPRB,.403E-02_JPRB,.384E-02_JPRB,.382E-02_JPRB,.380E-02_JPRB,&
+&.383E-02_JPRB,.385E-02_JPRB,.384E-02_JPRB,.352E-02_JPRB,.356E-02_JPRB,.396E-02_JPRB,.644E-02_JPRB,&
+&.123E-01_JPRB,.175E-01_JPRB,.268E-01_JPRB,.254E-01_JPRB,.220E-01_JPRB,.138E-01_JPRB,.939E-02_JPRB,&
+&.733E-02_JPRB,.551E-02_JPRB,.423E-02_JPRB,.370E-02_JPRB,.319E-02_JPRB,.277E-02_JPRB,.259E-02_JPRB,&
+&.242E-02_JPRB,.212E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 32 -34.0
+ZAER (:,32,12) = (/&
+&.209E-02_JPRB,.208E-02_JPRB,.183E-02_JPRB,.170E-02_JPRB,.158E-02_JPRB,.147E-02_JPRB,.138E-02_JPRB,&
+&.131E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.131E-02_JPRB,.148E-02_JPRB,.151E-02_JPRB,&
+&.143E-02_JPRB,.138E-02_JPRB,.158E-02_JPRB,.200E-02_JPRB,.286E-02_JPRB,.315E-02_JPRB,.341E-02_JPRB,&
+&.298E-02_JPRB,.253E-02_JPRB,.204E-02_JPRB,.137E-02_JPRB,.123E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,&
+&.103E-02_JPRB,.999E-03_JPRB,.963E-03_JPRB,.999E-03_JPRB,.106E-02_JPRB,.128E-02_JPRB,.161E-02_JPRB,&
+&.187E-02_JPRB,.225E-02_JPRB,.274E-02_JPRB,.349E-02_JPRB,.491E-02_JPRB,.651E-02_JPRB,.714E-02_JPRB,&
+&.766E-02_JPRB,.690E-02_JPRB,.633E-02_JPRB,.567E-02_JPRB,.529E-02_JPRB,.511E-02_JPRB,.492E-02_JPRB,&
+&.427E-02_JPRB,.383E-02_JPRB,.340E-02_JPRB,.260E-02_JPRB,.243E-02_JPRB,.249E-02_JPRB,.360E-02_JPRB,&
+&.772E-02_JPRB,.119E-01_JPRB,.208E-01_JPRB,.218E-01_JPRB,.200E-01_JPRB,.136E-01_JPRB,.955E-02_JPRB,&
+&.755E-02_JPRB,.560E-02_JPRB,.421E-02_JPRB,.368E-02_JPRB,.323E-02_JPRB,.276E-02_JPRB,.255E-02_JPRB,&
+&.234E-02_JPRB,.210E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 33 -38.0
+ZAER (:,33,12) = (/&
+&.189E-02_JPRB,.189E-02_JPRB,.172E-02_JPRB,.160E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,&
+&.140E-02_JPRB,.131E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,&
+&.122E-02_JPRB,.125E-02_JPRB,.147E-02_JPRB,.189E-02_JPRB,.285E-02_JPRB,.327E-02_JPRB,.369E-02_JPRB,&
+&.337E-02_JPRB,.293E-02_JPRB,.244E-02_JPRB,.158E-02_JPRB,.138E-02_JPRB,.120E-02_JPRB,.115E-02_JPRB,&
+&.111E-02_JPRB,.106E-02_JPRB,.988E-03_JPRB,.955E-03_JPRB,.963E-03_JPRB,.109E-02_JPRB,.144E-02_JPRB,&
+&.178E-02_JPRB,.242E-02_JPRB,.359E-02_JPRB,.507E-02_JPRB,.774E-02_JPRB,.996E-02_JPRB,.109E-01_JPRB,&
+&.116E-01_JPRB,.107E-01_JPRB,.989E-02_JPRB,.885E-02_JPRB,.778E-02_JPRB,.719E-02_JPRB,.661E-02_JPRB,&
+&.554E-02_JPRB,.492E-02_JPRB,.432E-02_JPRB,.338E-02_JPRB,.310E-02_JPRB,.294E-02_JPRB,.315E-02_JPRB,&
+&.502E-02_JPRB,.727E-02_JPRB,.127E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,.111E-01_JPRB,.836E-02_JPRB,&
+&.679E-02_JPRB,.501E-02_JPRB,.371E-02_JPRB,.327E-02_JPRB,.292E-02_JPRB,.250E-02_JPRB,.229E-02_JPRB,&
+&.208E-02_JPRB,.190E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 34 -42.0
+ZAER (:,34,12) = (/&
+&.163E-02_JPRB,.162E-02_JPRB,.155E-02_JPRB,.149E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.141E-02_JPRB,.133E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.132E-02_JPRB,.126E-02_JPRB,.119E-02_JPRB,&
+&.107E-02_JPRB,.111E-02_JPRB,.128E-02_JPRB,.161E-02_JPRB,.246E-02_JPRB,.291E-02_JPRB,.340E-02_JPRB,&
+&.324E-02_JPRB,.290E-02_JPRB,.251E-02_JPRB,.165E-02_JPRB,.145E-02_JPRB,.126E-02_JPRB,.119E-02_JPRB,&
+&.114E-02_JPRB,.109E-02_JPRB,.999E-03_JPRB,.958E-03_JPRB,.956E-03_JPRB,.106E-02_JPRB,.160E-02_JPRB,&
+&.228E-02_JPRB,.378E-02_JPRB,.677E-02_JPRB,.942E-02_JPRB,.135E-01_JPRB,.158E-01_JPRB,.167E-01_JPRB,&
+&.174E-01_JPRB,.166E-01_JPRB,.153E-01_JPRB,.137E-01_JPRB,.111E-01_JPRB,.985E-02_JPRB,.867E-02_JPRB,&
+&.763E-02_JPRB,.707E-02_JPRB,.652E-02_JPRB,.540E-02_JPRB,.490E-02_JPRB,.449E-02_JPRB,.400E-02_JPRB,&
+&.443E-02_JPRB,.517E-02_JPRB,.731E-02_JPRB,.851E-02_JPRB,.858E-02_JPRB,.745E-02_JPRB,.605E-02_JPRB,&
+&.512E-02_JPRB,.393E-02_JPRB,.299E-02_JPRB,.267E-02_JPRB,.242E-02_JPRB,.212E-02_JPRB,.196E-02_JPRB,&
+&.179E-02_JPRB,.163E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 35 -46.0
+ZAER (:,35,12) = (/&
+&.138E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.132E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.116E-02_JPRB,.111E-02_JPRB,&
+&.103E-02_JPRB,.104E-02_JPRB,.114E-02_JPRB,.133E-02_JPRB,.187E-02_JPRB,.221E-02_JPRB,.258E-02_JPRB,&
+&.256E-02_JPRB,.234E-02_JPRB,.208E-02_JPRB,.151E-02_JPRB,.140E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,&
+&.118E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.109E-02_JPRB,.138E-02_JPRB,.259E-02_JPRB,&
+&.404E-02_JPRB,.714E-02_JPRB,.129E-01_JPRB,.169E-01_JPRB,.223E-01_JPRB,.238E-01_JPRB,.240E-01_JPRB,&
+&.237E-01_JPRB,.227E-01_JPRB,.208E-01_JPRB,.184E-01_JPRB,.143E-01_JPRB,.126E-01_JPRB,.110E-01_JPRB,&
+&.100E-01_JPRB,.960E-02_JPRB,.915E-02_JPRB,.795E-02_JPRB,.715E-02_JPRB,.646E-02_JPRB,.537E-02_JPRB,&
+&.507E-02_JPRB,.492E-02_JPRB,.497E-02_JPRB,.491E-02_JPRB,.474E-02_JPRB,.432E-02_JPRB,.371E-02_JPRB,&
+&.329E-02_JPRB,.274E-02_JPRB,.226E-02_JPRB,.206E-02_JPRB,.187E-02_JPRB,.167E-02_JPRB,.158E-02_JPRB,&
+&.148E-02_JPRB,.138E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 36 -50.0
+ZAER (:,36,12) = (/&
+&.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.122E-02_JPRB,.125E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,&
+&.125E-02_JPRB,.123E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,&
+&.100E-02_JPRB,.101E-02_JPRB,.105E-02_JPRB,.112E-02_JPRB,.134E-02_JPRB,.150E-02_JPRB,.168E-02_JPRB,&
+&.172E-02_JPRB,.162E-02_JPRB,.149E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.129E-02_JPRB,&
+&.126E-02_JPRB,.124E-02_JPRB,.127E-02_JPRB,.137E-02_JPRB,.159E-02_JPRB,.236E-02_JPRB,.452E-02_JPRB,&
+&.664E-02_JPRB,.106E-01_JPRB,.176E-01_JPRB,.221E-01_JPRB,.277E-01_JPRB,.281E-01_JPRB,.277E-01_JPRB,&
+&.269E-01_JPRB,.254E-01_JPRB,.233E-01_JPRB,.207E-01_JPRB,.167E-01_JPRB,.151E-01_JPRB,.136E-01_JPRB,&
+&.121E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,.990E-02_JPRB,.886E-02_JPRB,.795E-02_JPRB,.651E-02_JPRB,&
+&.579E-02_JPRB,.516E-02_JPRB,.411E-02_JPRB,.327E-02_JPRB,.282E-02_JPRB,.242E-02_JPRB,.215E-02_JPRB,&
+&.199E-02_JPRB,.180E-02_JPRB,.164E-02_JPRB,.155E-02_JPRB,.144E-02_JPRB,.131E-02_JPRB,.126E-02_JPRB,&
+&.122E-02_JPRB,.119E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 37 -54.0
+ZAER (:,37,12) = (/&
+&.110E-02_JPRB,.110E-02_JPRB,.113E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,&
+&.121E-02_JPRB,.116E-02_JPRB,.110E-02_JPRB,.104E-02_JPRB,.956E-03_JPRB,.928E-03_JPRB,.926E-03_JPRB,&
+&.944E-03_JPRB,.975E-03_JPRB,.985E-03_JPRB,.991E-03_JPRB,.104E-02_JPRB,.110E-02_JPRB,.116E-02_JPRB,&
+&.121E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.118E-02_JPRB,.123E-02_JPRB,.137E-02_JPRB,&
+&.149E-02_JPRB,.161E-02_JPRB,.192E-02_JPRB,.226E-02_JPRB,.271E-02_JPRB,.398E-02_JPRB,.627E-02_JPRB,&
+&.810E-02_JPRB,.109E-01_JPRB,.148E-01_JPRB,.173E-01_JPRB,.205E-01_JPRB,.216E-01_JPRB,.225E-01_JPRB,&
+&.238E-01_JPRB,.248E-01_JPRB,.237E-01_JPRB,.218E-01_JPRB,.184E-01_JPRB,.169E-01_JPRB,.155E-01_JPRB,&
+&.135E-01_JPRB,.127E-01_JPRB,.119E-01_JPRB,.105E-01_JPRB,.933E-02_JPRB,.834E-02_JPRB,.668E-02_JPRB,&
+&.560E-02_JPRB,.471E-02_JPRB,.328E-02_JPRB,.239E-02_JPRB,.193E-02_JPRB,.161E-02_JPRB,.145E-02_JPRB,&
+&.136E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,&
+&.109E-02_JPRB,.110E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 38 -58.0
+ZAER (:,38,12) = (/&
+&.110E-02_JPRB,.110E-02_JPRB,.115E-02_JPRB,.118E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,&
+&.114E-02_JPRB,.107E-02_JPRB,.102E-02_JPRB,.976E-03_JPRB,.920E-03_JPRB,.908E-03_JPRB,.910E-03_JPRB,&
+&.925E-03_JPRB,.935E-03_JPRB,.933E-03_JPRB,.924E-03_JPRB,.923E-03_JPRB,.934E-03_JPRB,.951E-03_JPRB,&
+&.101E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.109E-02_JPRB,.118E-02_JPRB,.127E-02_JPRB,.157E-02_JPRB,&
+&.189E-02_JPRB,.222E-02_JPRB,.298E-02_JPRB,.357E-02_JPRB,.417E-02_JPRB,.546E-02_JPRB,.673E-02_JPRB,&
+&.744E-02_JPRB,.803E-02_JPRB,.838E-02_JPRB,.879E-02_JPRB,.950E-02_JPRB,.112E-01_JPRB,.130E-01_JPRB,&
+&.157E-01_JPRB,.190E-01_JPRB,.196E-01_JPRB,.197E-01_JPRB,.179E-01_JPRB,.168E-01_JPRB,.156E-01_JPRB,&
+&.134E-01_JPRB,.124E-01_JPRB,.114E-01_JPRB,.985E-02_JPRB,.872E-02_JPRB,.771E-02_JPRB,.596E-02_JPRB,&
+&.470E-02_JPRB,.378E-02_JPRB,.264E-02_JPRB,.206E-02_JPRB,.176E-02_JPRB,.151E-02_JPRB,.134E-02_JPRB,&
+&.125E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.110E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 39 -62.0
+ZAER (:,39,12) = (/&
+&.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,&
+&.100E-02_JPRB,.961E-03_JPRB,.948E-03_JPRB,.940E-03_JPRB,.935E-03_JPRB,.942E-03_JPRB,.945E-03_JPRB,&
+&.947E-03_JPRB,.921E-03_JPRB,.904E-03_JPRB,.883E-03_JPRB,.880E-03_JPRB,.892E-03_JPRB,.912E-03_JPRB,&
+&.955E-03_JPRB,.978E-03_JPRB,.100E-02_JPRB,.107E-02_JPRB,.118E-02_JPRB,.130E-02_JPRB,.173E-02_JPRB,&
+&.213E-02_JPRB,.252E-02_JPRB,.330E-02_JPRB,.385E-02_JPRB,.425E-02_JPRB,.478E-02_JPRB,.491E-02_JPRB,&
+&.489E-02_JPRB,.465E-02_JPRB,.472E-02_JPRB,.506E-02_JPRB,.583E-02_JPRB,.716E-02_JPRB,.810E-02_JPRB,&
+&.931E-02_JPRB,.114E-01_JPRB,.124E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,&
+&.125E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,.907E-02_JPRB,.785E-02_JPRB,.679E-02_JPRB,.511E-02_JPRB,&
+&.415E-02_JPRB,.349E-02_JPRB,.275E-02_JPRB,.231E-02_JPRB,.204E-02_JPRB,.176E-02_JPRB,.154E-02_JPRB,&
+&.143E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.117E-02_JPRB,&
+&.115E-02_JPRB,.113E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 40 -66.0
+ZAER (:,40,12) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.115E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.990E-03_JPRB,.964E-03_JPRB,&
+&.950E-03_JPRB,.959E-03_JPRB,.980E-03_JPRB,.994E-03_JPRB,.101E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.101E-02_JPRB,.972E-03_JPRB,.947E-03_JPRB,.914E-03_JPRB,.900E-03_JPRB,.903E-03_JPRB,.912E-03_JPRB,&
+&.931E-03_JPRB,.942E-03_JPRB,.953E-03_JPRB,.102E-02_JPRB,.112E-02_JPRB,.123E-02_JPRB,.160E-02_JPRB,&
+&.191E-02_JPRB,.220E-02_JPRB,.271E-02_JPRB,.299E-02_JPRB,.316E-02_JPRB,.325E-02_JPRB,.322E-02_JPRB,&
+&.325E-02_JPRB,.336E-02_JPRB,.380E-02_JPRB,.426E-02_JPRB,.505E-02_JPRB,.609E-02_JPRB,.662E-02_JPRB,&
+&.720E-02_JPRB,.817E-02_JPRB,.889E-02_JPRB,.971E-02_JPRB,.110E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,&
+&.112E-01_JPRB,.105E-01_JPRB,.968E-02_JPRB,.808E-02_JPRB,.699E-02_JPRB,.607E-02_JPRB,.476E-02_JPRB,&
+&.410E-02_JPRB,.364E-02_JPRB,.314E-02_JPRB,.278E-02_JPRB,.253E-02_JPRB,.221E-02_JPRB,.196E-02_JPRB,&
+&.184E-02_JPRB,.172E-02_JPRB,.165E-02_JPRB,.161E-02_JPRB,.156E-02_JPRB,.147E-02_JPRB,.141E-02_JPRB,&
+&.134E-02_JPRB,.124E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 41 -70.0
+ZAER (:,41,12) = (/&
+&.154E-02_JPRB,.153E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.130E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,&
+&.113E-02_JPRB,.108E-02_JPRB,.105E-02_JPRB,.995E-03_JPRB,.949E-03_JPRB,.930E-03_JPRB,.912E-03_JPRB,&
+&.895E-03_JPRB,.890E-03_JPRB,.886E-03_JPRB,.921E-03_JPRB,.982E-03_JPRB,.105E-02_JPRB,.126E-02_JPRB,&
+&.145E-02_JPRB,.162E-02_JPRB,.191E-02_JPRB,.209E-02_JPRB,.222E-02_JPRB,.236E-02_JPRB,.249E-02_JPRB,&
+&.265E-02_JPRB,.296E-02_JPRB,.348E-02_JPRB,.390E-02_JPRB,.453E-02_JPRB,.528E-02_JPRB,.570E-02_JPRB,&
+&.617E-02_JPRB,.686E-02_JPRB,.737E-02_JPRB,.796E-02_JPRB,.903E-02_JPRB,.940E-02_JPRB,.974E-02_JPRB,&
+&.947E-02_JPRB,.885E-02_JPRB,.822E-02_JPRB,.686E-02_JPRB,.606E-02_JPRB,.539E-02_JPRB,.453E-02_JPRB,&
+&.411E-02_JPRB,.382E-02_JPRB,.348E-02_JPRB,.323E-02_JPRB,.304E-02_JPRB,.278E-02_JPRB,.252E-02_JPRB,&
+&.238E-02_JPRB,.221E-02_JPRB,.208E-02_JPRB,.202E-02_JPRB,.195E-02_JPRB,.183E-02_JPRB,.176E-02_JPRB,&
+&.168E-02_JPRB,.154E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 42 -74.0
+ZAER (:,42,12) = (/&
+&.205E-02_JPRB,.205E-02_JPRB,.192E-02_JPRB,.185E-02_JPRB,.178E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,&
+&.158E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,&
+&.125E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.106E-02_JPRB,.985E-03_JPRB,.949E-03_JPRB,.911E-03_JPRB,&
+&.871E-03_JPRB,.858E-03_JPRB,.847E-03_JPRB,.860E-03_JPRB,.892E-03_JPRB,.927E-03_JPRB,.104E-02_JPRB,&
+&.114E-02_JPRB,.124E-02_JPRB,.142E-02_JPRB,.157E-02_JPRB,.169E-02_JPRB,.189E-02_JPRB,.211E-02_JPRB,&
+&.232E-02_JPRB,.268E-02_JPRB,.317E-02_JPRB,.353E-02_JPRB,.405E-02_JPRB,.465E-02_JPRB,.500E-02_JPRB,&
+&.542E-02_JPRB,.595E-02_JPRB,.628E-02_JPRB,.664E-02_JPRB,.720E-02_JPRB,.737E-02_JPRB,.753E-02_JPRB,&
+&.730E-02_JPRB,.692E-02_JPRB,.654E-02_JPRB,.572E-02_JPRB,.525E-02_JPRB,.485E-02_JPRB,.433E-02_JPRB,&
+&.406E-02_JPRB,.386E-02_JPRB,.361E-02_JPRB,.341E-02_JPRB,.327E-02_JPRB,.306E-02_JPRB,.284E-02_JPRB,&
+&.272E-02_JPRB,.257E-02_JPRB,.246E-02_JPRB,.241E-02_JPRB,.236E-02_JPRB,.228E-02_JPRB,.223E-02_JPRB,&
+&.217E-02_JPRB,.205E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 43 -78.0
+ZAER (:,43,12) = (/&
+&.242E-02_JPRB,.241E-02_JPRB,.228E-02_JPRB,.221E-02_JPRB,.214E-02_JPRB,.202E-02_JPRB,.195E-02_JPRB,&
+&.189E-02_JPRB,.179E-02_JPRB,.172E-02_JPRB,.167E-02_JPRB,.159E-02_JPRB,.151E-02_JPRB,.145E-02_JPRB,&
+&.137E-02_JPRB,.129E-02_JPRB,.123E-02_JPRB,.117E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,&
+&.970E-03_JPRB,.953E-03_JPRB,.938E-03_JPRB,.938E-03_JPRB,.956E-03_JPRB,.975E-03_JPRB,.104E-02_JPRB,&
+&.111E-02_JPRB,.117E-02_JPRB,.131E-02_JPRB,.143E-02_JPRB,.154E-02_JPRB,.173E-02_JPRB,.195E-02_JPRB,&
+&.213E-02_JPRB,.241E-02_JPRB,.276E-02_JPRB,.302E-02_JPRB,.337E-02_JPRB,.379E-02_JPRB,.404E-02_JPRB,&
+&.434E-02_JPRB,.470E-02_JPRB,.490E-02_JPRB,.511E-02_JPRB,.537E-02_JPRB,.544E-02_JPRB,.550E-02_JPRB,&
+&.541E-02_JPRB,.527E-02_JPRB,.512E-02_JPRB,.479E-02_JPRB,.457E-02_JPRB,.439E-02_JPRB,.411E-02_JPRB,&
+&.394E-02_JPRB,.381E-02_JPRB,.363E-02_JPRB,.348E-02_JPRB,.338E-02_JPRB,.323E-02_JPRB,.309E-02_JPRB,&
+&.301E-02_JPRB,.291E-02_JPRB,.281E-02_JPRB,.276E-02_JPRB,.271E-02_JPRB,.264E-02_JPRB,.259E-02_JPRB,&
+&.253E-02_JPRB,.242E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 44 -82.0
+ZAER (:,44,12) = (/&
+&.251E-02_JPRB,.250E-02_JPRB,.240E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,.220E-02_JPRB,.214E-02_JPRB,&
+&.209E-02_JPRB,.201E-02_JPRB,.195E-02_JPRB,.190E-02_JPRB,.183E-02_JPRB,.177E-02_JPRB,.172E-02_JPRB,&
+&.166E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,.152E-02_JPRB,.147E-02_JPRB,.145E-02_JPRB,.142E-02_JPRB,&
+&.139E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.144E-02_JPRB,&
+&.149E-02_JPRB,.153E-02_JPRB,.161E-02_JPRB,.169E-02_JPRB,.176E-02_JPRB,.189E-02_JPRB,.202E-02_JPRB,&
+&.212E-02_JPRB,.228E-02_JPRB,.246E-02_JPRB,.259E-02_JPRB,.277E-02_JPRB,.297E-02_JPRB,.310E-02_JPRB,&
+&.325E-02_JPRB,.344E-02_JPRB,.354E-02_JPRB,.364E-02_JPRB,.377E-02_JPRB,.382E-02_JPRB,.385E-02_JPRB,&
+&.387E-02_JPRB,.385E-02_JPRB,.383E-02_JPRB,.376E-02_JPRB,.370E-02_JPRB,.365E-02_JPRB,.355E-02_JPRB,&
+&.348E-02_JPRB,.343E-02_JPRB,.334E-02_JPRB,.326E-02_JPRB,.321E-02_JPRB,.313E-02_JPRB,.306E-02_JPRB,&
+&.301E-02_JPRB,.294E-02_JPRB,.287E-02_JPRB,.282E-02_JPRB,.277E-02_JPRB,.270E-02_JPRB,.265E-02_JPRB,&
+&.260E-02_JPRB,.251E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 45 -86.0
+ZAER (:,45,12) = (/&
+&.247E-02_JPRB,.246E-02_JPRB,.242E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,.233E-02_JPRB,.231E-02_JPRB,&
+&.229E-02_JPRB,.225E-02_JPRB,.222E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,&
+&.211E-02_JPRB,.208E-02_JPRB,.207E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,&
+&.200E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.203E-02_JPRB,&
+&.205E-02_JPRB,.206E-02_JPRB,.210E-02_JPRB,.213E-02_JPRB,.215E-02_JPRB,.220E-02_JPRB,.224E-02_JPRB,&
+&.228E-02_JPRB,.233E-02_JPRB,.239E-02_JPRB,.243E-02_JPRB,.248E-02_JPRB,.254E-02_JPRB,.258E-02_JPRB,&
+&.263E-02_JPRB,.268E-02_JPRB,.271E-02_JPRB,.275E-02_JPRB,.280E-02_JPRB,.282E-02_JPRB,.284E-02_JPRB,&
+&.286E-02_JPRB,.287E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.286E-02_JPRB,&
+&.285E-02_JPRB,.284E-02_JPRB,.282E-02_JPRB,.280E-02_JPRB,.278E-02_JPRB,.276E-02_JPRB,.273E-02_JPRB,&
+&.271E-02_JPRB,.268E-02_JPRB,.265E-02_JPRB,.262E-02_JPRB,.260E-02_JPRB,.256E-02_JPRB,.254E-02_JPRB,&
+&.251E-02_JPRB,.247E-02_JPRB/)
+!-- Black Carbon Aerosol     month: 12 --- lat: 46 -90.0
+ZAER (:,46,12) = (/&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=12
+  DO JI=1,46
+    DO JL=1,72
+      RAERBC(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'BLACK CARBON AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEBC_12
Index: LMDZ5/branches/testing/libf/phymar/suecaec.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaec.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaec.F90	(revision 2160)
@@ -0,0 +1,1984 @@
+SUBROUTINE SUECAEC ( KINDAT, KMINUT )
+
+
+!**** *SUECAEC* - DEFINES NEW CLIMATOLOGICAL DISTRIBUTION OF AEROSOLS
+
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEC* FROM *UPDTIM*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+!     AEROSOL TOTAL OPTICAL THICKNESS (0.55 MICRON)
+
+!-- TEGEN ET AL. MONTHLY CLIMATOLOGY OF TROPOSPHERIC AEROSOLS
+
+! RTAEBC : BLACK CARBON AEROSOL
+! RTAEOR : ORGANIC AEROSOL
+! RTAESD : SAND DUST AEROSOL
+! RTAESS : SEA SALT AEROSOL
+! RTAESU : SULFATE AEROSOL
+
+!-- GISS HISTORY OF VOLCANIC AEROSOLS
+
+! RTAEVO : VOLCANIC AEROSOL
+
+
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     990115: JJMorcrette, Volcanic aerosols
+!     990525: JJMorcrette, Monthly Climatology of Tropospheric Aerosols
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RPI   , RDAY
+USE YOEAERC  , ONLY : RAERBC, RAEROR, RAERSD, RAERSS, RAERSU,&
+              &REPAER, RSINCT, RSINCV,&
+              &RTAEBC, RTAEOR, RTAESD, RTAESS, RTAESU, RTAEVO
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KINDAT
+INTEGER_M :: KMINUT
+
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+!                                 ZAERV:2003,2004 are dummy years
+REAL_B :: ZLATT(46),  ZLATV(24) , ZAERV(1957:2004,12,24)
+REAL_B :: ZYTIME(12), ZMDAY(12) , ZTAERV(24)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IDY, IM, IM1, IM2, IMN, IYR, IYR1, IYR2, JI, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: GRID, ZINT, ZLAT, ZRES, ZRESM, ZRESP, ZTIMI, ZXTIME
+
+
+#include "fcttim.h"      
+!     ------------------------------------------------------------------
+
+ZMDAY = (/&
+      &31._JPRB,    59.25_JPRB,  90.25_JPRB, 120.25_JPRB, 151.25_JPRB, 181.25_JPRB &
+  &,  212.25_JPRB, 243.25_JPRB, 273.25_JPRB, 304.25_JPRB, 334.25_JPRB, 365.25_JPRB &
+        &/)
+ZYTIME= (/&
+     &22320._JPRB,  64980._JPRB, 107640._JPRB, 151560._JPRB, 195480._JPRB, 239400._JPRB &
+  &, 283320._JPRB, 327960._JPRB, 371880._JPRB, 415800._JPRB, 459720._JPRB, 503640._JPRB &
+        &/)
+
+!     ------------------------------------------------------------------
+
+!     VOLCANIC AEROSOL OPTICAL THICKNESS (GISS)     
+
+!- reference latitudes
+
+ZLATV(:) = (/&
+ &90.0_JPRB, 82.2_JPRB, 74.3_JPRB, 66.5_JPRB, 58.7_JPRB, 50.9_JPRB, 43.0_JPRB, 35.2_JPRB, 27.4_JPRB, 19.6_JPRB, 11.7_JPRB, &
+  &3.9_JPRB, -3.9_JPRB,-11.7_JPRB,-19.6_JPRB,-27.4_JPRB,-35.2_JPRB,-43.0_JPRB,-50.9_JPRB,-58.7_JPRB,-66.5_JPRB,-74.3_JPRB,&
+&-82.2_JPRB,-90.0_JPRB /) 
+
+!- total optical thickness * 10000
+
+ZAERV(1957, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 2, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 3, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 4, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 5, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 6, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1957,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 2, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 3, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 4, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 5, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 6, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1958,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 2, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 3, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 4, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 5, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 6, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1959,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1960, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1960, 2, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1960, 3, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1960, 4, :) = (/&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17/)
+ZAERV(1960, 5, :) = (/&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33/)
+ZAERV(1960, 6, :) = (/&
+   &50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50,&
+   &50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50/)
+ZAERV(1960, 7, :) = (/&
+   &67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67,&
+   &67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67/)
+ZAERV(1960, 8, :) = (/&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83/)
+ZAERV(1960, 9, :) = (/&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
+ZAERV(1960,10, :) = (/&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
+ZAERV(1960,11, :) = (/&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
+ZAERV(1960,12, :) = (/&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
+  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
+ZAERV(1961, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1961, 2, :) = (/&
+    &1,   1,   1,  40,   1,   1,  20,   1,  72, 190, 190, 101,&
+   &30,  48,  69,  90, 110,  94,  78,  63,  47,  31,  16,   1/)
+ZAERV(1961, 3, :) = (/&
+    &1,   1,   1,  50,   1,   1,  10,   1, 145, 380, 380, 230,&
+  &110,  85,  57,  28,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1961, 4, :) = (/&
+   &60,  60,  60,  50,   1,   1,   1,   1, 175, 460, 460, 272,&
+  &120,  93,  62,  30,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1961, 5, :) = (/&
+   &80,  80,  80,  40,   1,   1,   1,   1, 110, 290, 290, 129,&
+    &1,  18,  39,  60,  80,  68,  57,  46,  34,  23,  11,   1/)
+ZAERV(1961, 6, :) = (/&
+   &90,  90,  90,  10,  50,  50,   1,   1,  61, 160, 160,  71,&
+    &1,  25,  53,  82, 110,  94,  78,  63,  47,  31,  16,   1/)
+ZAERV(1961, 7, :) = (/&
+   &70,  70,  70,   1,  70,  70,   1,  10,  52, 120, 120,  70,&
+   &30,  23,  15,   8,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1961, 8, :) = (/&
+   &40,  40,  40,   1,  60,  60,   1,  80,  95, 120, 120, 153,&
+  &180, 142,  97,  53,  10,   9,   7,   6,   4,   3,   1,   1/)
+ZAERV(1961, 9, :) = (/&
+    &1,   1,   1,   1,  40,  40,   1,  60,  83, 120, 120, 214,&
+  &290, 236, 173, 111,  50,  43,  36,  28,  21,  14,   7,   1/)
+ZAERV(1961,10, :) = (/&
+    &1,   1,   1,   1,  20,  20,   1,   1,  38, 100, 100, 228,&
+  &330, 258, 175,  91,  10,   9,   7,   6,   4,   3,   1,   1/)
+ZAERV(1961,11, :) = (/&
+    &1,   1,   1,  10,  10,  10,  80,   1,   4,  10,  10, 193,&
+  &340, 264, 175,  86,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1961,12, :) = (/&
+    &1,   1,   1,  10,  10,  10,  80,   1,   8,  20,  20, 164,&
+  &280, 217, 144,  71,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1962, 1, :) = (/&
+    &1,   1,   1,  10,  20,  20,   1,   1,  53, 140, 140, 112,&
+   &90,  70,  46,  23,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1962, 2, :) = (/&
+    &1,   1,   1,   1,  50,  50,   1,   1,  61, 160, 160, 116,&
+   &80,  78,  75,  73,  70,  60,  50,  40,  30,  20,  10,   1/)
+ZAERV(1962, 3, :) = (/&
+    &1,   1,   1,   1,  70,  70,   1,   1,  11,  30,  30, 152,&
+  &250, 259, 269, 280, 290, 248, 206, 165, 124,  83,  41,   1/)
+ZAERV(1962, 4, :) = (/&
+    &1,   1,   1,   1,  60,  60,  50,   1,   1,   1,   1, 216,&
+  &390, 363, 332, 300, 270, 231, 192, 154, 115,  77,  38,   1/)
+ZAERV(1962, 5, :) = (/&
+    &1,   1,   1,   1,  40,  40, 100,   1,   1,   1,   1,  28,&
+   &50,  46,  40,  35,  30,  26,  21,  17,  13,   9,   4,   1/)
+ZAERV(1962, 6, :) = (/&
+    &1,   1,   1,   1,   1,   1, 150,   1,  19,  50,  50,  33,&
+   &20,  20,  20,  20,  20,  17,  14,  11,   9,   6,   3,   1/)
+ZAERV(1962, 7, :) = (/&
+    &1,   1,   1,  20,   1,   1, 160,   1,  46, 120, 120, 270,&
+  &390, 311, 220, 129,  40,  34,  28,  23,  17,  11,   6,   1/)
+ZAERV(1962, 8, :) = (/&
+    &1,   1,   1,  20,   1,   1, 140,   1,  57, 150, 150, 405,&
+  &610, 473, 314, 155,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1962, 9, :) = (/&
+   &30,  30,  30,  10,  10,  10,  80,  10,  44, 100, 100, 189,&
+  &260, 202, 134,  66,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1962,10, :) = (/&
+   &80,  80,  80,  10,  20,  20,  10, 120,  78,  10,  10, 110,&
+  &190, 147,  98,  48,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1962,11, :) = (/&
+  &130, 130, 130,  50,  20,  20,   1,  50,  39,  20,  20, 142,&
+  &240, 186, 123,  61,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1962,12, :) = (/&
+  &180, 180, 180,  60,   1,   1,   1,   1,  19,  50,  50, 122,&
+  &180, 140,  93,  46,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1963, 1, :) = (/&
+  &230, 230, 230,  10,   1,   1, 100,   1,  53, 140, 140,  62,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1963, 2, :) = (/&
+  &280, 280, 280,  70,   1,   1, 130,   1,  61, 160, 160,  71,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1963, 3, :) = (/&
+  &290, 290, 290, 150,   1,   1,  50, 150, 154, 160, 160,  71,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1963, 4, :) = (/&
+  &230, 230, 230, 150,  20,  20,  70,  90, 113, 150, 150, 294,&
+  &410, 379, 342, 306, 270, 231, 192, 154, 115,  77,  38,   1/)
+ZAERV(1963, 5, :) = (/&
+   &80,  80,  80, 100,  40,  40, 130,   1,  53, 140, 140, 578,&
+  &930, 874, 809, 743, 680, 581, 484, 387, 290, 194,  97,   1/)
+ZAERV(1963, 6, :) = (/&
+    &1,   1,   1,  20,   1,   1, 120,   1,  76, 200, 200, 621,&
+  &960,1025,1101,1176,1250,1067, 889, 711, 534, 356, 178,   1/)
+ZAERV(1963, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,  50, 140, 208, 320, 320, 608,&
+  &840, 975,1131,1288,1440,1229,1025, 820, 615, 410, 205,   1/)
+ZAERV(1963, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,  50, 280, 333, 420, 420, 608,&
+  &760, 946,1163,1379,1590,1357,1131, 905, 679, 452, 226,   1/)
+ZAERV(1963, 9, :) = (/&
+   &30,  30,  30,   1,  20,  20,  60, 200, 299, 460, 460, 698,&
+  &890,1072,1283,1495,1700,1451,1209, 968, 726, 484, 242,   1/)
+ZAERV(1963,10, :) = (/&
+   &90,  90,  90,  10,  90,  90, 120, 180, 271, 420, 420,1135,&
+ &1710,1714,1720,1725,1730,1524,1323,1123, 922, 721, 521, 320/)
+ZAERV(1963,11, :) = (/&
+  &160, 160, 160, 110, 150, 150, 210, 420, 352, 240, 240,1360,&
+ &2260,2116,1949,1782,1620,1560,1502,1443,1385,1327,1268,1210/)
+ZAERV(1963,12, :) = (/&
+  &220, 220, 220, 180, 210, 210, 330, 490, 364, 160, 160,1180,&
+ &2000,1823,1616,1410,1210,1264,1317,1369,1422,1475,1527,1580/)
+ZAERV(1964, 1, :) = (/&
+  &280, 280, 280, 230, 320, 320, 370, 460, 346, 160, 160, 753,&
+ &1230,1154,1065, 976, 890, 985,1078,1170,1263,1355,1448,1540/)
+ZAERV(1964, 2, :) = (/&
+  &340, 340, 340, 300, 390, 390, 350, 370, 317, 230, 230, 707,&
+ &1090,1029, 959, 888, 820, 911, 999,1087,1175,1264,1352,1440/)
+ZAERV(1964, 3, :) = (/&
+  &390, 390, 390, 360, 380, 380, 290, 240, 270, 320, 320, 808,&
+ &1200,1106, 996, 887, 780, 859, 936,1013,1089,1166,1243,1320/)
+ZAERV(1964, 4, :) = (/&
+  &430, 430, 430, 390, 310, 310, 190, 150, 245, 400, 400,1049,&
+ &1570,1379,1157, 936, 720, 792, 861, 931,1001,1071,1140,1210/)
+ZAERV(1964, 5, :) = (/&
+  &450, 450, 450, 270,   1,   1, 100,  90, 223, 440, 440,1188,&
+ &1790,1534,1237, 939, 650, 716, 780, 844, 908, 972,1036,1100/)
+ZAERV(1964, 6, :) = (/&
+  &430, 430, 430, 220,   1,   1,  30,  90, 231, 460, 460,1397,&
+ &2150,1827,1451,1075, 710, 752, 794, 835, 876, 917, 959,1000/)
+ZAERV(1964, 7, :) = (/&
+  &400, 400, 400, 250,  30,  30,  10, 170, 277, 450, 450,1697,&
+ &2700,2296,1826,1357, 900, 899, 897, 896, 894, 893, 891, 890/)
+ZAERV(1964, 8, :) = (/&
+  &320, 320, 320, 290,  90,  90,  10, 240, 308, 420, 420,1734,&
+ &2790,2363,1868,1372, 890, 875, 861, 847, 833, 818, 804, 790/)
+ZAERV(1964, 9, :) = (/&
+  &220, 220, 220, 360, 160, 160,  20, 320, 343, 380, 380,1455,&
+ &2320,1938,1495,1051, 620, 629, 637, 646, 654, 663, 671, 680/)
+ZAERV(1964,10, :) = (/&
+  &120, 120, 120, 330, 230, 230, 100, 430, 384, 310, 310,1053,&
+ &1650,1356,1014, 672, 340, 396, 450, 504, 558, 612, 666, 720/)
+ZAERV(1964,11, :) = (/&
+   &80,  80,  80, 260, 320, 320, 230, 520, 417, 250, 250, 727,&
+ &1110, 903, 663, 423, 190, 292, 392, 492, 591, 691, 790, 890/)
+ZAERV(1964,12, :) = (/&
+  &130, 130, 130, 250, 410, 410, 430, 530, 397, 180, 180, 457,&
+  &680, 561, 423, 284, 150, 273, 392, 512, 631, 751, 870, 990/)
+ZAERV(1965, 1, :) = (/&
+  &320, 320, 320, 290, 490, 490, 490, 490, 361, 150, 150, 167,&
+  &180, 178, 175, 173, 170, 288, 404, 519, 634, 749, 865, 980/)
+ZAERV(1965, 2, :) = (/&
+  &570, 570, 570, 430, 500, 500, 450, 420, 317, 150, 150,  67,&
+    &1,  49, 107, 164, 220, 314, 405, 496, 587, 678, 769, 860/)
+ZAERV(1965, 3, :) = (/&
+  &660, 660, 660, 640, 460, 460, 290, 390, 299, 150, 150,  67,&
+    &1,  56, 121, 187, 250, 316, 380, 444, 508, 572, 636, 700/)
+ZAERV(1965, 4, :) = (/&
+  &600, 600, 600, 660, 400, 400, 200, 330, 296, 240, 240, 107,&
+    &1,  72, 155, 239, 320, 351, 381, 410, 440, 470, 500, 530/)
+ZAERV(1965, 5, :) = (/&
+  &520, 520, 520, 630, 270, 270, 170, 190, 239, 320, 320, 143,&
+    &1,  90, 194, 299, 400, 400, 400, 400, 400, 400, 400, 400/)
+ZAERV(1965, 6, :) = (/&
+  &470, 470, 470, 550, 250, 250,  60,  20, 146, 350, 350, 156,&
+    &1,  90, 194, 299, 400, 380, 360, 340, 320, 300, 280, 260/)
+ZAERV(1965, 7, :) = (/&
+  &400, 400, 400, 490, 260, 260,   1, 170, 242, 360, 360, 388,&
+  &410, 379, 342, 306, 270, 255, 241, 227, 213, 198, 184, 170/)
+ZAERV(1965, 8, :) = (/&
+  &300, 300, 300, 420, 280, 280,   1, 210, 240, 290, 290, 440,&
+  &560, 459, 342, 224, 110, 113, 116, 119, 121, 124, 127, 130/)
+ZAERV(1965, 9, :) = (/&
+  &200, 200, 200, 340, 290, 290,  30, 240, 248, 260, 260, 399,&
+  &510, 411, 296, 182,  70,  80,  90, 100, 110, 120, 130, 140/)
+ZAERV(1965,10, :) = (/&
+  &100, 100, 100, 250, 290, 290, 220, 270, 262, 250, 250, 355,&
+  &440, 368, 285, 201, 120, 130, 140, 150, 160, 170, 180, 190/)
+ZAERV(1965,11, :) = (/&
+    &1,   1,   1, 180, 280, 280, 300, 290, 275, 250, 250, 305,&
+  &350, 339, 326, 313, 300, 287, 274, 261, 248, 236, 223, 210/)
+ZAERV(1965,12, :) = (/&
+    &1,   1,   1, 110, 270, 270, 350, 300, 296, 290, 290, 296,&
+  &300, 338, 383, 427, 470, 417, 366, 315, 264, 212, 161, 110/)
+ZAERV(1966, 1, :) = (/&
+  &335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335,&
+  &335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335/)
+ZAERV(1966, 2, :) = (/&
+  &320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320,&
+  &320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320/)
+ZAERV(1966, 3, :) = (/&
+  &305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305,&
+  &305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305/)
+ZAERV(1966, 4, :) = (/&
+  &290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290,&
+  &290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290/)
+ZAERV(1966, 5, :) = (/&
+  &275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275,&
+  &275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275/)
+ZAERV(1966, 6, :) = (/&
+  &260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260,&
+  &260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260/)
+ZAERV(1966, 7, :) = (/&
+  &245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245,&
+  &245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245/)
+ZAERV(1966, 8, :) = (/&
+  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230,&
+  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230/)
+ZAERV(1966, 9, :) = (/&
+  &215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,&
+  &215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215/)
+ZAERV(1966,10, :) = (/&
+  &200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200,&
+  &200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200/)
+ZAERV(1966,11, :) = (/&
+  &185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185,&
+  &185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185/)
+ZAERV(1966,12, :) = (/&
+  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170,&
+  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170/)
+ZAERV(1967, 1, :) = (/&
+  &155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155,&
+  &155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155/)
+ZAERV(1967, 2, :) = (/&
+  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140,&
+  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140/)
+ZAERV(1967, 3, :) = (/&
+  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125,&
+  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125/)
+ZAERV(1967, 4, :) = (/&
+  &110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110,&
+  &110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110/)
+ZAERV(1967, 5, :) = (/&
+  &130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130,&
+  &130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130/)
+ZAERV(1967, 6, :) = (/&
+  &150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150,&
+  &150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150/)
+ZAERV(1967, 7, :) = (/&
+  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170,&
+  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170/)
+ZAERV(1967, 8, :) = (/&
+  &190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190,&
+  &190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190/)
+ZAERV(1967, 9, :) = (/&
+  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210,&
+  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210/)
+ZAERV(1967,10, :) = (/&
+  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230,&
+  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230/)
+ZAERV(1967,11, :) = (/&
+  &207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207,&
+  &207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207/)
+ZAERV(1967,12, :) = (/&
+  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183,&
+  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183/)
+ZAERV(1968, 1, :) = (/&
+  &160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,&
+  &160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160/)
+ZAERV(1968, 2, :) = (/&
+  &137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137,&
+  &137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137/)
+ZAERV(1968, 3, :) = (/&
+  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113,&
+  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113/)
+ZAERV(1968, 4, :) = (/&
+   &90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90,&
+   &90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90/)
+ZAERV(1968, 5, :) = (/&
+  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170,&
+  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170/)
+ZAERV(1968, 6, :) = (/&
+  &250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250,&
+  &250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250/)
+ZAERV(1968, 7, :) = (/&
+  &330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330,&
+  &330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330/)
+ZAERV(1968, 8, :) = (/&
+  &410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,&
+  &410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410/)
+ZAERV(1968, 9, :) = (/&
+  &490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490,&
+  &490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490/)
+ZAERV(1968,10, :) = (/&
+  &570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570,&
+  &570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570/)
+ZAERV(1968,11, :) = (/&
+  &551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551,&
+  &551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551/)
+ZAERV(1968,12, :) = (/&
+  &533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533,&
+  &533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533/)
+ZAERV(1969, 1, :) = (/&
+  &514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514,&
+  &514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514/)
+ZAERV(1969, 2, :) = (/&
+  &496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496,&
+  &496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496/)
+ZAERV(1969, 3, :) = (/&
+  &477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477,&
+  &477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477/)
+ZAERV(1969, 4, :) = (/&
+  &459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459,&
+  &459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459/)
+ZAERV(1969, 5, :) = (/&
+  &440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440,&
+  &440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440/)
+ZAERV(1969, 6, :) = (/&
+  &421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,&
+  &421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421/)
+ZAERV(1969, 7, :) = (/&
+  &403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403,&
+  &403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403/)
+ZAERV(1969, 8, :) = (/&
+  &384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384,&
+  &384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384/)
+ZAERV(1969, 9, :) = (/&
+  &366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,&
+  &366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366/)
+ZAERV(1969,10, :) = (/&
+  &347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347,&
+  &347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347/)
+ZAERV(1969,11, :) = (/&
+  &329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329,&
+  &329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329/)
+ZAERV(1969,12, :) = (/&
+  &310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310,&
+  &310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310/)
+ZAERV(1970, 1, :) = (/&
+  &291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291,&
+  &291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291/)
+ZAERV(1970, 2, :) = (/&
+  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273,&
+  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273/)
+ZAERV(1970, 3, :) = (/&
+  &254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254,&
+  &254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254/)
+ZAERV(1970, 4, :) = (/&
+  &236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236,&
+  &236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236/)
+ZAERV(1970, 5, :) = (/&
+  &217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217,&
+  &217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217/)
+ZAERV(1970, 6, :) = (/&
+  &199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199,&
+  &199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199/)
+ZAERV(1970, 7, :) = (/&
+  &180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,&
+  &180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180/)
+ZAERV(1970, 8, :) = (/&
+  &161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,&
+  &161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161/)
+ZAERV(1970, 9, :) = (/&
+  &143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143,&
+  &143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143/)
+ZAERV(1970,10, :) = (/&
+  &124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124,&
+  &124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124/)
+ZAERV(1970,11, :) = (/&
+  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106,&
+  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106/)
+ZAERV(1970,12, :) = (/&
+   &87,  87,  87,  87,  87,  87,  87,  87,  87,  87,  87,  87,&
+   &87,  87,  87,  87,  87,  87,  87,  87,  87,  87,  87,  87/)
+ZAERV(1971, 1, :) = (/&
+   &69,  69,  69,  69,  69,  69,  69,  69,  69,  69,  69,  69,&
+   &69,  69,  69,  69,  69,  69,  69,  69,  69,  69,  69,  69/)
+ZAERV(1971, 2, :) = (/&
+   &50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50,&
+   &50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50,  50/)
+ZAERV(1971, 3, :) = (/&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42/)
+ZAERV(1971, 4, :) = (/&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33/)
+ZAERV(1971, 5, :) = (/&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25/)
+ZAERV(1971, 6, :) = (/&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17/)
+ZAERV(1971, 7, :) = (/&
+    &8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,&
+    &8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8/)
+ZAERV(1971, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(1971, 9, :) = (/&
+    &2,   2,   2,   2,   2,   2,   2,   2,   2,   2,   2,   2,&
+    &2,   2,   2,   2,   2,   2,   2,   2,   2,   2,   2,   2/)
+ZAERV(1971,10, :) = (/&
+    &4,   4,   4,   4,   4,   4,   4,   4,   4,   4,   4,   4,&
+    &4,   4,   4,   4,   4,   4,   4,   4,   4,   4,   4,   4/)
+ZAERV(1971,11, :) = (/&
+    &6,   6,   6,   6,   6,   6,   6,   6,   6,   6,   6,   6,&
+    &6,   6,   6,   6,   6,   6,   6,   6,   6,   6,   6,   6/)
+ZAERV(1971,12, :) = (/&
+    &8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,&
+    &8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8,   8/)
+ZAERV(1972, 1, :) = (/&
+   &10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,&
+   &10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10/)
+ZAERV(1972, 2, :) = (/&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14/)
+ZAERV(1972, 3, :) = (/&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18/)
+ZAERV(1972, 4, :) = (/&
+   &21,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21,&
+   &21,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21/)
+ZAERV(1972, 5, :) = (/&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25/)
+ZAERV(1972, 6, :) = (/&
+   &29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,&
+   &29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29/)
+ZAERV(1972, 7, :) = (/&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33/)
+ZAERV(1972, 8, :) = (/&
+   &37,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37,&
+   &37,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37/)
+ZAERV(1972, 9, :) = (/&
+   &41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41,&
+   &41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41/)
+ZAERV(1972,10, :) = (/&
+   &44,  44,  44,  44,  44,  44,  44,  44,  44,  44,  44,  44,&
+   &44,  44,  44,  44,  44,  44,  44,  44,  44,  44,  44,  44/)
+ZAERV(1972,11, :) = (/&
+   &48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48,&
+   &48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48/)
+ZAERV(1972,12, :) = (/&
+   &52,  52,  52,  52,  52,  52,  52,  52,  52,  52,  52,  52,&
+   &52,  52,  52,  52,  52,  52,  52,  52,  52,  52,  52,  52/)
+ZAERV(1973, 1, :) = (/&
+   &56,  56,  56,  56,  56,  56,  56,  56,  56,  56,  56,  56,&
+   &56,  56,  56,  56,  56,  56,  56,  56,  56,  56,  56,  56/)
+ZAERV(1973, 2, :) = (/&
+   &60,  60,  60,  60,  60,  60,  60,  60,  60,  60,  60,  60,&
+   &60,  60,  60,  60,  60,  60,  60,  60,  60,  60,  60,  60/)
+ZAERV(1973, 3, :) = (/&
+   &64,  64,  64,  64,  64,  64,  64,  64,  64,  64,  64,  64,&
+   &64,  64,  64,  64,  64,  64,  64,  64,  64,  64,  64,  64/)
+ZAERV(1973, 4, :) = (/&
+   &67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67,&
+   &67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67,  67/)
+ZAERV(1973, 5, :) = (/&
+   &71,  71,  71,  71,  71,  71,  71,  71,  71,  71,  71,  71,&
+   &71,  71,  71,  71,  71,  71,  71,  71,  71,  71,  71,  71/)
+ZAERV(1973, 6, :) = (/&
+   &75,  75,  75,  75,  75,  75,  75,  75,  75,  75,  75,  75,&
+   &75,  75,  75,  75,  75,  75,  75,  75,  75,  75,  75,  75/)
+ZAERV(1973, 7, :) = (/&
+   &79,  79,  79,  79,  79,  79,  79,  79,  79,  79,  79,  79,&
+   &79,  79,  79,  79,  79,  79,  79,  79,  79,  79,  79,  79/)
+ZAERV(1973, 8, :) = (/&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83/)
+ZAERV(1973, 9, :) = (/&
+   &86,  86,  86,  86,  86,  86,  86,  86,  86,  86,  86,  86,&
+   &86,  86,  86,  86,  86,  86,  86,  86,  86,  86,  86,  86/)
+ZAERV(1973,10, :) = (/&
+   &90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90,&
+   &90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90,  90/)
+ZAERV(1973,11, :) = (/&
+   &94,  94,  94,  94,  94,  94,  94,  94,  94,  94,  94,  94,&
+   &94,  94,  94,  94,  94,  94,  94,  94,  94,  94,  94,  94/)
+ZAERV(1973,12, :) = (/&
+   &98,  98,  98,  98,  98,  98,  98,  98,  98,  98,  98,  98,&
+   &98,  98,  98,  98,  98,  98,  98,  98,  98,  98,  98,  98/)
+ZAERV(1974, 1, :) = (/&
+  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,&
+  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102/)
+ZAERV(1974, 2, :) = (/&
+  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106,&
+  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106/)
+ZAERV(1974, 3, :) = (/&
+  &109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,&
+  &109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109/)
+ZAERV(1974, 4, :) = (/&
+  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113,&
+  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113/)
+ZAERV(1974, 5, :) = (/&
+  &117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117,&
+  &117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117/)
+ZAERV(1974, 6, :) = (/&
+  &121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121,&
+  &121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121/)
+ZAERV(1974, 7, :) = (/&
+  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125,&
+  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125/)
+ZAERV(1974, 8, :) = (/&
+  &129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,&
+  &129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129/)
+ZAERV(1974, 9, :) = (/&
+  &132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132,&
+  &132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132/)
+ZAERV(1974,10, :) = (/&
+  &136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136,&
+  &136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136/)
+ZAERV(1974,11, :) = (/&
+  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140,&
+  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140/)
+ZAERV(1974,12, :) = (/&
+  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183,&
+  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183/)
+ZAERV(1975, 1, :) = (/&
+  &227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227,&
+  &227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227/)
+ZAERV(1975, 2, :) = (/&
+  &270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270,&
+  &270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270/)
+ZAERV(1975, 3, :) = (/&
+  &313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313,&
+  &313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313/)
+ZAERV(1975, 4, :) = (/&
+  &357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,&
+  &357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357/)
+ZAERV(1975, 5, :) = (/&
+  &400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400,&
+  &400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400/)
+ZAERV(1975, 6, :) = (/&
+  &337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337,&
+  &337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337/)
+ZAERV(1975, 7, :) = (/&
+  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273,&
+  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273/)
+ZAERV(1975, 8, :) = (/&
+  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210,&
+  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210/)
+ZAERV(1975, 9, :) = (/&
+  &147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147,&
+  &147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147/)
+ZAERV(1975,10, :) = (/&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83/)
+ZAERV(1975,11, :) = (/&
+   &20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,&
+   &20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20/)
+ZAERV(1975,12, :) = (/&
+   &20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,&
+   &20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20/)
+ZAERV(1976, 1, :) = (/&
+   &19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,&
+   &19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19/)
+ZAERV(1976, 2, :) = (/&
+   &19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,&
+   &19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19/)
+ZAERV(1976, 3, :) = (/&
+   &19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,&
+   &19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19/)
+ZAERV(1976, 4, :) = (/&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18/)
+ZAERV(1976, 5, :) = (/&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18/)
+ZAERV(1976, 6, :) = (/&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,&
+   &18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18/)
+ZAERV(1976, 7, :) = (/&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17/)
+ZAERV(1976, 8, :) = (/&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,&
+   &17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17,  17/)
+ZAERV(1976, 9, :) = (/&
+   &16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,&
+   &16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16/)
+ZAERV(1976,10, :) = (/&
+   &16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,&
+   &16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16/)
+ZAERV(1976,11, :) = (/&
+   &16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,&
+   &16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16,  16/)
+ZAERV(1976,12, :) = (/&
+   &15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,&
+   &15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15/)
+ZAERV(1977, 1, :) = (/&
+   &15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,&
+   &15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15/)
+ZAERV(1977, 2, :) = (/&
+   &15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,&
+   &15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15/)
+ZAERV(1977, 3, :) = (/&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14/)
+ZAERV(1977, 4, :) = (/&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14/)
+ZAERV(1977, 5, :) = (/&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,&
+   &14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14/)
+ZAERV(1977, 6, :) = (/&
+   &13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,&
+   &13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13/)
+ZAERV(1977, 7, :) = (/&
+   &13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,&
+   &13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13/)
+ZAERV(1977, 8, :) = (/&
+   &13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,&
+   &13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13/)
+ZAERV(1977, 9, :) = (/&
+   &12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,&
+   &12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12/)
+ZAERV(1977,10, :) = (/&
+   &12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,&
+   &12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12/)
+ZAERV(1977,11, :) = (/&
+   &11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,&
+   &11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11/)
+ZAERV(1977,12, :) = (/&
+   &11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,&
+   &11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11/)
+ZAERV(1978, 1, :) = (/&
+   &11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,&
+   &11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11/)
+ZAERV(1978, 2, :) = (/&
+   &10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,&
+   &10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10/)
+ZAERV(1978, 3, :) = (/&
+   &10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,&
+   &10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10/)
+ZAERV(1978, 4, :) = (/&
+   &28,  28,  28,  28,  28,  28,  28,  28,  28,  28,  28,  28,&
+   &28,  28,  28,  28,  28,  28,  28,  28,  28,  28,  28,  28/)
+ZAERV(1978, 5, :) = (/&
+   &47,  47,  47,  47,  47,  47,  47,  47,  47,  47,  47,  47,&
+   &47,  47,  47,  47,  47,  47,  47,  47,  47,  47,  47,  47/)
+ZAERV(1978, 6, :) = (/&
+   &65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,&
+   &65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65/)
+ZAERV(1978, 7, :) = (/&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,&
+   &83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83,  83/)
+ZAERV(1978, 8, :) = (/&
+  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,&
+  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102/)
+ZAERV(1978, 9, :) = (/&
+  &120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120,&
+  &120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120/)
+ZAERV(1978,10, :) = (/&
+  &122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122,&
+  &122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122/)
+ZAERV(1978,11, :) = (/&
+  &123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123,&
+  &123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123/)
+ZAERV(1978,12, :) = (/&
+  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125,&
+  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125/)
+ZAERV(1979, 1, :) = (/&
+  &127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127,&
+  &127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127/)
+ZAERV(1979, 2, :) = (/&
+  &128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,&
+  &128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128/)
+ZAERV(1979, 3, :) = (/&
+   &27,  27,  27,  27,  27,  27,  27,  27,  27,  27,  27,  27,&
+   &22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22/)
+ZAERV(1979, 4, :) = (/&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,&
+   &23,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23/)
+ZAERV(1979, 5, :) = (/&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,&
+   &24,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24/)
+ZAERV(1979, 6, :) = (/&
+   &23,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23,&
+   &24,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24/)
+ZAERV(1979, 7, :) = (/&
+   &22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,&
+   &26,  26,  26,  26,  26,  26,  26,  26,  26,  26,  26,  26/)
+ZAERV(1979, 8, :) = (/&
+   &22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,&
+   &27,  27,  27,  27,  27,  27,  27,  27,  27,  27,  27,  27/)
+ZAERV(1979, 9, :) = (/&
+   &23,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23,&
+   &29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29/)
+ZAERV(1979,10, :) = (/&
+   &24,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24,&
+   &26,  26,  26,  26,  26,  26,  26,  26,  26,  26,  26,  26/)
+ZAERV(1979,11, :) = (/&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25/)
+ZAERV(1979,12, :) = (/&
+   &30,  30,  30,  30,  30,  30,  30,  30,  30,  30,  30,  30,&
+   &25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25/)
+ZAERV(1980, 1, :) = (/&
+   &33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,  33,&
+   &27,  27,  27,  27,  27,  27,  27,  27,  27,  27,  27,  27/)
+ZAERV(1980, 2, :) = (/&
+   &22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22,&
+   &29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29/)
+ZAERV(1980, 3, :) = (/&
+   &34,  34,  34,  34,  34,  34,  34,  34,  34,  34,  34,  34,&
+   &29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29/)
+ZAERV(1980, 4, :) = (/&
+   &31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31,&
+   &29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29/)
+ZAERV(1980, 5, :) = (/&
+   &30,  30,  30,  30,  30,  30,  30,  30,  30,  30,  30,  30,&
+   &30,  30,  30,  30,  30,  30,  30,  30,  30,  30,  30,  30/)
+ZAERV(1980, 6, :) = (/&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,&
+   &31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31/)
+ZAERV(1980, 7, :) = (/&
+   &55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,&
+   &31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31/)
+ZAERV(1980, 8, :) = (/&
+   &65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,&
+   &31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31,  31/)
+ZAERV(1980, 9, :) = (/&
+   &68,  68,  68,  68,  68,  68,  68,  68,  68,  68,  68,  68,&
+   &32,  32,  32,  32,  32,  32,  32,  32,  32,  32,  32,  32/)
+ZAERV(1980,10, :) = (/&
+   &68,  68,  68,  68,  68,  68,  68,  68,  68,  68,  68,  68,&
+   &34,  34,  34,  34,  34,  34,  34,  34,  34,  34,  34,  34/)
+ZAERV(1980,11, :) = (/&
+   &65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,  65,&
+   &41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41/)
+ZAERV(1980,12, :) = (/&
+   &61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,&
+   &41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41,  41/)
+ZAERV(1981, 1, :) = (/&
+   &59,  59,  59,  59,  59,  59,  59,  59,  59,  59,  59,  59,&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42/)
+ZAERV(1981, 2, :) = (/&
+   &55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42/)
+ZAERV(1981, 3, :) = (/&
+   &49,  49,  49,  49,  49,  49,  49,  49,  49,  49,  49,  49,&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42/)
+ZAERV(1981, 4, :) = (/&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42/)
+ZAERV(1981, 5, :) = (/&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,&
+   &42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42,  42/)
+ZAERV(1981, 6, :) = (/&
+   &52,  52,  52,  52,  52,  52,  52,  52,  52,  52,  52,  52,&
+   &44,  44,  44,  44,  44,  44,  44,  44,  44,  44,  44,  44/)
+ZAERV(1981, 7, :) = (/&
+   &61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,&
+   &48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48/)
+ZAERV(1981, 8, :) = (/&
+   &57,  57,  57,  57,  57,  57,  57,  57,  57,  57,  57,  57,&
+   &51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51/)
+ZAERV(1981, 9, :) = (/&
+   &53,  53,  53,  53,  53,  53,  53,  53,  53,  53,  53,  53,&
+   &48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48,  48/)
+ZAERV(1981,10, :) = (/&
+   &54,  54,  54,  54,  54,  54,  54,  54,  54,  54,  54,  54,&
+   &46,  46,  46,  46,  46,  46,  46,  46,  46,  46,  46,  46/)
+ZAERV(1981,11, :) = (/&
+   &55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,&
+   &46,  46,  46,  46,  46,  46,  46,  46,  46,  46,  46,  46/)
+ZAERV(1981,12, :) = (/&
+   &55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,  55,&
+   &46,  46,  46,  46,  46,  46,  46,  46,  46,  46,  46,  46/)
+ZAERV(1982, 1, :) = (/&
+   &61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,&
+   &51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51/)
+ZAERV(1982, 2, :) = (/&
+   &61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,&
+   &51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51/)
+ZAERV(1982, 3, :) = (/&
+   &61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,  61,&
+   &51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51,  51/)
+ZAERV(1982, 4, :) = (/&
+  &101, 101, 101, 101, 101,  23,  20,  13, 123,2823, 124,   8,&
+    &6,   6,   4,   3,   2,   2,   1,  66,  66,  66,  66,  66/)
+ZAERV(1982, 5, :) = (/&
+  &185, 185, 185, 185, 185, 224, 194, 146,1158,3001,1271, 102,&
+   &77,  58,  44,  35,  29,  23,  17,  55,  55,  55,  55,  55/)
+ZAERV(1982, 6, :) = (/&
+  &253, 253, 253, 253, 253, 274, 238, 279,1266,2642,1938, 443,&
+  &267, 163,  99,  78,  73,  68,  62,  66,  66,  66,  66,  66/)
+ZAERV(1982, 7, :) = (/&
+  &284, 284, 284, 284, 284, 299, 263, 437,1184,2470,2386,1285,&
+  &664, 354, 187, 144, 151, 160, 163,  96,  96,  96,  96,  96/)
+ZAERV(1982, 8, :) = (/&
+  &347, 347, 347, 347, 347, 377, 352, 504,1242,2180,2270,1575,&
+  &829, 468, 260, 197, 209, 227, 221, 143, 143, 143, 143, 143/)
+ZAERV(1982, 9, :) = (/&
+  &387, 387, 387, 387, 387, 487, 485, 557,1319,1916,2074,1719,&
+  &938, 578, 345, 256, 273, 301, 275,  96,  96,  96,  96,  96/)
+ZAERV(1982,10, :) = (/&
+  &476, 476, 476, 476, 476, 630, 670, 618,1400,1681,1895,1873,&
+ &1060, 715, 459, 337, 359, 402, 342,  46,  46,  46,  46,  46/)
+ZAERV(1982,11, :) = (/&
+  &689, 689, 689, 689, 689, 882, 900, 773,1218,1404,1738,1834,&
+ &1188, 826, 531, 343, 402, 473, 430, 195, 195, 195, 195, 195/)
+ZAERV(1982,12, :) = (/&
+ &1085,1085,1085,1085,1085,1240,1126,1016, 890,1134,1575,1601,&
+ &1255, 865, 532, 287, 397, 497, 526, 461, 461, 461, 461, 461/)
+ZAERV(1983, 1, :) = (/&
+ &1214,1214,1214,1214,1214,1300,1143,1018, 803,1015,1364,1344,&
+ &1053, 755, 494, 310, 449, 519, 545, 549, 549, 549, 549, 549/)
+ZAERV(1983, 2, :) = (/&
+ &1377,1377,1377,1377,1377,1315,1132, 976, 747, 923,1176,1126,&
+  &853, 647, 452, 352, 514, 534, 545, 575, 575, 575, 575, 575/)
+ZAERV(1983, 3, :) = (/&
+ &2013,2013,2013,2013,2013,1341,1128, 932, 688, 832,1010, 941,&
+  &693, 558, 413, 400, 589, 545, 540, 487, 487, 487, 487, 487/)
+ZAERV(1983, 4, :) = (/&
+ &1681,1681,1681,1681,1681,1365,1124, 892, 636, 749, 864, 780,&
+  &558, 476, 372, 458, 675, 553, 536, 410, 410, 410, 410, 410/)
+ZAERV(1983, 5, :) = (/&
+ &1460,1460,1460,1460,1460,1359,1093, 846, 590, 678, 746, 656,&
+  &457, 409, 337, 502, 740, 552, 526, 331, 331, 331, 331, 331/)
+ZAERV(1983, 6, :) = (/&
+ &1572,1572,1572,1572,1572,1200, 943, 748, 542, 620, 674, 598,&
+  &419, 367, 296, 447, 644, 491, 485, 279, 279, 279, 279, 279/)
+ZAERV(1983, 7, :) = (/&
+ &1294,1294,1294,1294,1294,1035, 793, 652, 498, 568, 615, 554,&
+  &389, 333, 261, 381, 536, 428, 440, 290, 290, 290, 290, 290/)
+ZAERV(1983, 8, :) = (/&
+ &1038,1038,1038,1038,1038, 890, 663, 569, 459, 518, 560, 513,&
+  &365, 301, 229, 327, 444, 372, 402, 329, 329, 329, 329, 329/)
+ZAERV(1983, 9, :) = (/&
+ &1012,1012,1012,1012,1012, 768, 558, 496, 420, 473, 510, 475,&
+  &341, 273, 200, 279, 371, 323, 366, 188, 188, 188, 188, 188/)
+ZAERV(1983,10, :) = (/&
+  &818, 818, 818, 818, 818, 662, 468, 433, 385, 432, 465, 440,&
+  &319, 246, 176, 238, 308, 282, 333, 122, 122, 122, 122, 122/)
+ZAERV(1983,11, :) = (/&
+  &667, 667, 667, 667, 667, 571, 393, 378, 354, 396, 424, 407,&
+  &296, 223, 154, 204, 256, 245, 303, 186, 186, 186, 186, 186/)
+ZAERV(1983,12, :) = (/&
+  &567, 567, 567, 567, 567, 492, 330, 330, 326, 362, 386, 377,&
+  &277, 204, 135, 174, 213, 213, 275, 294, 294, 294, 294, 294/)
+ZAERV(1984, 1, :) = (/&
+  &540, 540, 540, 540, 540, 424, 276, 287, 297, 329, 351, 349,&
+  &259, 183, 119, 147, 177, 185, 251, 310, 310, 310, 310, 310/)
+ZAERV(1984, 2, :) = (/&
+  &503, 503, 503, 503, 503, 375, 242, 256, 268, 298, 318, 318,&
+  &237, 165, 106, 131, 155, 165, 227, 293, 293, 293, 293, 293/)
+ZAERV(1984, 3, :) = (/&
+  &385, 385, 385, 385, 385, 338, 218, 230, 243, 268, 286, 286,&
+  &212, 147,  96, 118, 140, 149, 205, 263, 263, 263, 263, 263/)
+ZAERV(1984, 4, :) = (/&
+  &433, 433, 433, 433, 433, 303, 197, 207, 217, 242, 257, 257,&
+  &191, 133,  86, 107, 125, 133, 184, 246, 246, 246, 246, 246/)
+ZAERV(1984, 5, :) = (/&
+  &388, 388, 388, 388, 388, 273, 177, 186, 196, 217, 231, 231,&
+  &173, 120,  77,  95, 112, 119, 165, 217, 217, 217, 217, 217/)
+ZAERV(1984, 6, :) = (/&
+  &321, 321, 321, 321, 321, 244, 158, 167, 176, 196, 208, 208,&
+  &154, 108,  69,  85, 101, 107, 147, 249, 249, 249, 249, 249/)
+ZAERV(1984, 7, :) = (/&
+  &284, 284, 284, 284, 284, 220, 142, 150, 157, 175, 187, 187,&
+  &140,  98,  62,  76,  90,  96, 133, 276, 276, 276, 276, 276/)
+ZAERV(1984, 8, :) = (/&
+  &274, 274, 274, 274, 274, 197, 127, 134, 142, 157, 167, 167,&
+  &124,  86,  56,  67,  81,  86, 119, 227, 227, 227, 227, 227/)
+ZAERV(1984, 9, :) = (/&
+  &264, 264, 264, 264, 264, 177, 114, 121, 127, 141, 151, 151,&
+  &112,  78,  51,  61,  73,  77, 107, 114, 114, 114, 114, 114/)
+ZAERV(1984,10, :) = (/&
+  &256, 256, 256, 256, 256, 158, 102, 109, 114, 127, 135, 135,&
+  &101,  70,  44,  55,  66,  69,  95,  84,  84,  84,  84,  84/)
+ZAERV(1984,11, :) = (/&
+  &249, 249, 249, 249, 249, 142,  92,  98, 102, 114, 122, 122,&
+   &90,  63,  40,  50,  59,  62,  86, 139, 139, 139, 139, 139/)
+ZAERV(1984,12, :) = (/&
+  &241, 241, 241, 241, 241, 128,  83,  88,  92, 102, 110, 110,&
+   &81,  56,  35,  44,  53,  55,  77, 199, 199, 199, 199, 199/)
+ZAERV(1985, 1, :) = (/&
+  &229, 229, 229, 229, 229, 256, 251, 186, 134, 120, 133, 134,&
+  &140, 145, 128, 104, 112, 145, 182, 213, 213, 213, 213, 213/)
+ZAERV(1985, 2, :) = (/&
+  &237, 237, 237, 237, 237, 268, 262, 178, 127, 115, 119, 117,&
+  &125, 127, 102, 107, 111, 133, 212, 213, 211, 213, 215, 215/)
+ZAERV(1985, 3, :) = (/&
+  &222, 222, 222, 222, 223, 220, 202, 122,  88,  90, 103, 115,&
+  &116, 116, 112, 109, 110, 121, 157, 208, 205, 202, 202, 202/)
+ZAERV(1985, 4, :) = (/&
+  &234, 234, 234, 240, 238, 191, 155, 115,  93,  92,  97, 117,&
+  &123, 115, 105, 107, 111, 134, 165, 192, 192, 192, 192, 192/)
+ZAERV(1985, 5, :) = (/&
+  &210, 210, 210, 210, 210, 155, 138, 108,  88,  84,  98, 109,&
+  &112, 105,  96, 100, 115, 149, 161, 176, 176, 176, 176, 176/)
+ZAERV(1985, 6, :) = (/&
+  &172, 172, 172, 172, 173, 151, 118,  94,  83,  86, 103, 112,&
+  &116, 105,  92,  95, 121, 171, 178, 182, 182, 182, 182, 182/)
+ZAERV(1985, 7, :) = (/&
+  &150, 150, 150, 150, 150, 122,  98,  79,  79,  88, 109, 115,&
+  &122,  98,  79,  86, 120, 161, 176, 205, 205, 205, 205, 205/)
+ZAERV(1985, 8, :) = (/&
+  &152, 152, 152, 152, 152, 119,  97,  82,  78,  86, 103, 113,&
+  &118,  93,  73,  78, 107, 144, 165, 191, 191, 191, 191, 191/)
+ZAERV(1985, 9, :) = (/&
+  &155, 155, 155, 155, 156, 116,  96,  86,  77,  84,  97, 110,&
+  &115,  88,  67,  69,  93, 127, 154,  85,  89,  89,  89,  89/)
+ZAERV(1985,10, :) = (/&
+  &157, 157, 157, 157, 157, 125,  97,  77,  76,  84,  93, 107,&
+  &108,  86,  73,  80, 105, 126, 130,  75,  76,  73,  73,  73/)
+ZAERV(1985,11, :) = (/&
+  &146, 146, 146, 146, 146, 133, 111,  83,  77,  78,  94, 105,&
+  &104,  81,  70,  63,  76, 107, 132,  87,  85,  85,  85,  85/)
+ZAERV(1985,12, :) = (/&
+  &150, 150, 150, 150, 150, 151, 134, 102,  77,  79, 139, 254,&
+  &188,  98,  71,  62,  71,  93, 113, 116, 116, 116, 116, 116/)
+ZAERV(1986, 1, :) = (/&
+  &178, 178, 178, 178, 178, 168, 157, 121,  76,  80, 185, 404,&
+  &271, 116,  71,  60,  66,  79,  94, 120, 120, 120, 120, 120/)
+ZAERV(1986, 2, :) = (/&
+  &224, 224, 224, 224, 224, 184, 182, 138, 104, 111, 239, 389,&
+  &284, 115,  32,  64,  67,  83,  98, 114, 114, 115, 118, 118/)
+ZAERV(1986, 3, :) = (/&
+  &152, 152, 152, 152, 150, 160, 140,  86,  81,  94, 197, 364,&
+  &290, 140,  81,  67,  67,  86,  97, 121, 118, 117, 117, 117/)
+ZAERV(1986, 4, :) = (/&
+  &173, 173, 173, 181, 179, 149, 140, 110,  94, 120, 178, 354,&
+  &273, 138,  81,  68,  69,  89, 107, 116, 116, 116, 116, 116/)
+ZAERV(1986, 5, :) = (/&
+  &172, 172, 172, 172, 176, 130, 113,  94,  91, 110, 186, 301,&
+  &271, 136,  79,  67,  76,  96, 117, 116, 116, 116, 116, 116/)
+ZAERV(1986, 6, :) = (/&
+  &149, 149, 149, 149, 150, 130,  99,  79,  76,  96, 163, 251,&
+  &240, 125,  70,  71,  92, 119, 131, 126, 126, 126, 126, 126/)
+ZAERV(1986, 7, :) = (/&
+  &135, 135, 135, 135, 135, 116,  85,  63,  62,  83, 140, 202,&
+  &208, 138,  87,  78, 107, 122, 134, 201, 201, 201, 201, 201/)
+ZAERV(1986, 8, :) = (/&
+  &141, 141, 141, 140, 139, 101,  64,  71,  78,  95, 117, 188,&
+  &194, 145, 110,  86, 122, 144, 150, 303, 303, 303, 303, 303/)
+ZAERV(1986, 9, :) = (/&
+  &149, 149, 149, 151, 151, 112,  94,  80,  93, 109, 144, 181,&
+  &178, 155,  79,  70, 104, 129, 140, 139, 144, 144, 144, 144/)
+ZAERV(1986,10, :) = (/&
+  &148, 148, 148, 148, 148, 118, 100,  82,  87, 114, 169, 207,&
+  &186, 153, 105,  86, 100, 136, 138,  59,  63,  62,  62,  62/)
+ZAERV(1986,11, :) = (/&
+  &144, 144, 144, 144, 144, 141, 118,  97,  84, 113, 159, 184,&
+  &181, 151,  95,  73,  85,  97, 111,  92,  94,  94,  94,  94/)
+ZAERV(1986,12, :) = (/&
+  &161, 161, 161, 161, 161, 152, 136, 107,  87, 106, 150, 162,&
+  &160, 135,  85,  51,  60,  86, 105, 119, 120, 120, 120, 120/)
+ZAERV(1987, 1, :) = (/&
+  &247, 247, 247, 247, 247, 159, 105, 113,  91, 112, 136, 141,&
+  &138, 119,  74,  28,  35,  76,  93, 118, 118, 118, 118, 118/)
+ZAERV(1987, 2, :) = (/&
+  &187, 187, 187, 187, 187, 157, 155, 119, 104, 104, 119, 121,&
+  &116,  82,  76,  49,  51,  77, 101, 112, 110, 113, 112, 112/)
+ZAERV(1987, 3, :) = (/&
+  &176, 176, 176, 176, 176, 162, 145,  98,  83,  87, 110, 113,&
+  &108, 100,  77,  69,  68,  78,  82, 128, 128, 128, 128, 128/)
+ZAERV(1987, 4, :) = (/&
+  &164, 164, 164, 167, 170, 135, 124, 104,  86,  89,  96, 105,&
+  &105,  97,  76,  70,  69,  83,  93, 115, 115, 115, 115, 115/)
+ZAERV(1987, 5, :) = (/&
+  &158, 158, 158, 158, 152, 148, 118, 100,  92,  90, 102,  95,&
+   &95,  91,  80,  65,  73,  82,  93, 105, 105, 105, 105, 105/)
+ZAERV(1987, 6, :) = (/&
+  &151, 151, 151, 151, 153, 119, 104,  90,  85,  86,  95,  91,&
+   &89,  87,  91,  83,  95, 115, 115, 142, 142, 142, 142, 142/)
+ZAERV(1987, 7, :) = (/&
+  &124, 124, 124, 124, 126, 108,  89,  80,  79,  82,  90,  86,&
+   &83,  87,  83,  88, 102, 114, 118, 230, 230, 230, 230, 230/)
+ZAERV(1987, 8, :) = (/&
+  &132, 132, 129, 129, 130, 102,  91,  81,  80,  83,  80,  85,&
+   &87,  84,  85,  86, 109, 125, 119, 230, 230, 230, 230, 230/)
+ZAERV(1987, 9, :) = (/&
+  &149, 149, 149, 149, 149, 110,  93,  82,  82,  83,  82,  88,&
+   &85,  79,  71,  80, 100, 121, 114, 180, 179, 179, 179, 179/)
+ZAERV(1987,10, :) = (/&
+  &140, 140, 140, 140, 140, 119,  99,  81,  82,  76,  77,  86,&
+   &86,  73,  68,  72, 102, 122, 120,  86,  91,  82,  82,  82/)
+ZAERV(1987,11, :) = (/&
+  &144, 144, 144, 144, 144, 125, 111,  83,  70,  67,  74,  83,&
+   &83,  68,  66,  74,  89, 104, 109,  70,  73,  73,  73,  73/)
+ZAERV(1987,12, :) = (/&
+  &139, 139, 139, 139, 139, 125, 115,  82,  63,  59,  68,  82,&
+   &79,  72,  63,  65,  76, 102,  99, 110, 114, 114, 114, 114/)
+ZAERV(1988, 1, :) = (/&
+  &139, 139, 139, 139, 139, 136, 113,  80,  54,  57,  67,  80,&
+   &75,  75,  61,  56,  63,  74,  87, 114, 115, 115, 115, 115/)
+ZAERV(1988, 2, :) = (/&
+  &177, 177, 177, 177, 177, 135, 123,  88,  52,  47,  66,  76,&
+   &73,  64,  63,  60,  64,  72,  81, 113, 111, 112, 112, 112/)
+ZAERV(1988, 3, :) = (/&
+  &127, 127, 127, 127, 126, 112,  94,  66,  45,  41,  57,  74,&
+   &73,  68,  64,  63,  66,  71,  75, 113, 113, 113, 113, 113/)
+ZAERV(1988, 4, :) = (/&
+  &122, 122, 122, 124, 129,  91,  82,  61,  42,  44,  58,  66,&
+   &68,  54,  60,  58,  62,  73,  88, 108, 108, 108, 108, 108/)
+ZAERV(1988, 5, :) = (/&
+  &103, 103, 103, 103, 102,  84,  74,  54,  41,  44,  55,  66,&
+   &67,  63,  57,  56,  67,  82,  94,  97,  97,  97,  97,  97/)
+ZAERV(1988, 6, :) = (/&
+   &81,  81,  81,  81,  83,  70,  49,  46,  40,  44,  56,  65,&
+   &67,  70,  61,  67,  79,  96, 101, 110, 110, 110, 110, 110/)
+ZAERV(1988, 7, :) = (/&
+   &68,  68,  68,  68,  69,  54,  46,  39,  40,  43,  57,  64,&
+   &67,  65,  58,  58,  79,  98, 104, 243, 243, 243, 243, 243/)
+ZAERV(1988, 8, :) = (/&
+   &77,  77,  74,  72,  73,  62,  50,  42,  41,  45,  53,  65,&
+   &68,  66,  58,  65,  90, 118, 113, 378, 378, 378, 378, 378/)
+ZAERV(1988, 9, :) = (/&
+   &94,  94,  94,  94,  96,  65,  54,  45,  43,  47,  57,  66,&
+   &70,  61,  51,  56,  79,  94, 104,  95,  95,  95,  95,  95/)
+ZAERV(1988,10, :) = (/&
+   &90,  90,  90,  90,  90,  67,  59,  45,  41,  44,  53,  60,&
+   &63,  62,  56,  57,  73, 100, 105,  67,  63,  62,  62,  62/)
+ZAERV(1988,11, :) = (/&
+   &88,  88,  88,  88,  88,  76,  67,  50,  43,  45,  53,  59,&
+   &63,  63,  56,  54,  65,  80,  91, 100, 100, 100, 100, 100/)
+ZAERV(1988,12, :) = (/&
+   &84,  84,  84,  84,  84,  82,  79,  57,  46,  49,  50,  60,&
+   &60,  65,  54,  51,  59,  70,  86, 114, 112, 112, 112, 112/)
+ZAERV(1989, 1, :) = (/&
+  &160, 160, 160, 160, 160,  88,  77,  57,  41,  44,  49,  61,&
+   &58,  67,  51,  49,  53,  63,  76, 100, 100, 100, 100, 100/)
+ZAERV(1989, 2, :) = (/&
+   &83,  83,  83,  83,  83,  91,  83,  61,  43,  42,  49,  53,&
+   &54,  46,  51,  51,  54,  63,  76,  98,  96,  96,  94,  94/)
+ZAERV(1989, 3, :) = (/&
+   &74,  74,  74,  73,  76,  73,  63,  53,  37,  40,  47,  55,&
+   &60,  57,  52,  53,  55,  64,  75, 100,  98,  95,  95,  95/)
+ZAERV(1989, 4, :) = (/&
+   &79,  79,  79,  81,  82,  72,  67,  49,  44,  42,  46,  51,&
+   &54,  51,  48,  47,  49,  61,  71,  93,  93,  93,  93,  93/)
+ZAERV(1989, 5, :) = (/&
+   &67,  67,  67,  67,  66,  61,  57,  42,  38,  37,  44,  49,&
+    &2,  12,   1,  22,  49,  68,  79, 102, 102, 102, 102, 102/)
+ZAERV(1989, 6, :) = (/&
+   &80,  80,  80,  80,  81,  56,  48,  38,  36,  37,  43,  46,&
+   &24,  55,  51,  49,  63,  76,  79,  97,  97,  97,  97,  97/)
+ZAERV(1989, 7, :) = (/&
+   &80,  80,  80,  80,  78,  43,  40,  34,  34,  37,  43,  44,&
+   &46,  50,  49,  52,  65,  80,  86, 203, 203, 203, 203, 203/)
+ZAERV(1989, 8, :) = (/&
+   &69,  69,  67,  65,  65,  42,  42,  36,  38,  42,  37,  40,&
+   &47,  50,  52,  57,  73,  89,  90, 369, 369, 369, 369, 369/)
+ZAERV(1989, 9, :) = (/&
+   &71,  71,  71,  71,  71,  40,  45,  39,  42,  46,  45,  43,&
+   &42,  46,  46,  42,  53,  79,  79, 161, 162, 162, 162, 162/)
+ZAERV(1989,10, :) = (/&
+   &71,  71,  71,  71,  71,  55,  48,  40,  42,  43,  42,  41,&
+   &41,  46,  48,  50,  65,  76,  81,  63,  60,  58,  58,  58/)
+ZAERV(1989,11, :) = (/&
+   &73,  73,  73,  73,  73,  64,  57,  47,  42,  42,  43,  45,&
+   &45,  47,  47,  48,  58,  63,  75,  63,  66,  66,  66,  66/)
+ZAERV(1989,12, :) = (/&
+   &74,  74,  74,  74,  74,  73,  71,  47,  42,  36,  36,  40,&
+   &40,  44,  44,  43,  48,  56,  68,  77,  77,  77,  77,  77/)
+ZAERV(1990, 1, :) = (/&
+  &157, 157, 157, 157, 157,  81,  72,  57,  38,  35,  35,  34,&
+   &36,  41,  41,  39,  40,  45,  59,  74,  77,  77,  77,  77/)
+ZAERV(1990, 2, :) = (/&
+  &313, 313, 313, 313, 313,  76,  69,  56,  41,  33,  31,  33,&
+   &49,  28,  58,  44,  42,  49,  59,  75,  77,  77,  77,  77/)
+ZAERV(1990, 3, :) = (/&
+   &77,  77,  77,  67,  68,  68,  59,  48,  37,  33,  41,  58,&
+   &70, 107,  74,  48,  45,  52,  59,  84,  82,  82,  82,  82/)
+ZAERV(1990, 4, :) = (/&
+   &77,  77,  77,  75,  75,  71,  64,  50,  39,   7,   1,   1,&
+    &1,  61,  78,  56,  25,  28,  49,  73,  73,  73,  73,  73/)
+ZAERV(1990, 5, :) = (/&
+   &74,  74,  74,  74,  72,  55,  50,  39,  36,  37,  39,  39,&
+    &1,  13,  22,  28,  32,  75,  84,  65,  65,  65,  65,  65/)
+ZAERV(1990, 6, :) = (/&
+   &74,  74,  74,  74,  74,  51,  40,  35,  34,  37,  41,  46,&
+   &32,  72,  61,  56,  76,  91,  94,  93,  93,  93,  93,  93/)
+ZAERV(1990, 7, :) = (/&
+   &68,  68,  68,  68,  65,  62,  36,  30,  33,  38,  43,  53,&
+   &64,  64,  55,  62,  82,  95, 105, 209, 209, 209, 209, 209/)
+ZAERV(1990, 8, :) = (/&
+   &63,  63,  63,  62,  61,  60,  40,  34,  35,  40,  47,  56,&
+   &69,  66,  60,  62,  84, 101, 107, 203, 203, 203, 203, 203/)
+ZAERV(1990, 9, :) = (/&
+   &64,  64,  64,  64,  66,  58,  44,  37,  38,  42,  51,  57,&
+   &66,  58,  47,  51,  64,  87,  92, 162, 171, 171, 171, 171/)
+ZAERV(1990,10, :) = (/&
+   &73,  73,  73,  73,  73,  57,  47,  40,  38,  40,  47,  57,&
+   &63,  57,  49,  55,  68,  86,  94,  52,  54,  50,  50,  50/)
+ZAERV(1990,11, :) = (/&
+   &73,  73,  73,  73,  73,  60,  55,  42,  39,  43,  48,  59,&
+   &65,  58,  51,  54,  65,  78,  87,  61,  66,  66,  66,  66/)
+ZAERV(1990,12, :) = (/&
+   &79,  79,  79,  79,  79,  67,  62,  48,  35,  37,  39,  59,&
+   &65,  58,  51,  48,  51,  66,  81,  81,  82,  82,  82,  82/)
+ZAERV(1991, 1, :) = (/&
+  &102, 103, 110, 115,  87,  66,  64,  52,  38,  36,  43,  51,&
+   &53,  50,  44,  47,  49,  56,  71,  98,  91,  83,  89,  89/)
+ZAERV(1991, 2, :) = (/&
+   &85,  86,  83,  75,  69,  68,  65,  54,  39,  36,  43,  49,&
+   &48,  45,  44,  44,  49,  56,  67,  91, 101,  90,  85,  84/)
+ZAERV(1991, 3, :) = (/&
+   &73,  73,  72,  68,  65,  59,  51,  42,  34,  34,  41,  49,&
+   &51,  49,  47,  48,  51,  58,  68,  83, 111, 109,  92,  90/)
+ZAERV(1991, 4, :) = (/&
+   &77,  76,  71,  70,  66,  59,  52,  43,  36,  34,  38,  43,&
+   &45,  44,  43,  43,  47,  55,  65,  78, 105, 105,  90,  88/)
+ZAERV(1991, 5, :) = (/&
+  &118, 114,  63,  59,  57,  52,  45,  38,  33,  33,  40,  47,&
+   &47,  47,  44,  48,  56,  64,  68,  87, 100, 101,  86,  84/)
+ZAERV(1991, 6, :) = (/&
+  &168, 160,  66,  57,  55,  52,  51,  45,  59, 164, 378, 720,&
+  &558, 175,  60,  51,  63,  70,  74,  98,  99, 110,  97,  95/)
+ZAERV(1991, 7, :) = (/&
+  &228, 224, 161, 138, 126, 118, 103,  88, 213, 498, 673,1202,&
+ &1218, 780, 146,  78,  93,  92,  89, 134, 151, 171, 111, 105/)
+ZAERV(1991, 8, :) = (/&
+  &342, 338, 274, 235, 225, 216, 193, 200, 480, 956,1083,1729,&
+ &1938,1826, 721, 332, 329, 272, 191, 152, 168, 183, 121, 115/)
+ZAERV(1991, 9, :) = (/&
+  &366, 366, 368, 330, 336, 325, 312, 398, 883,1489,1634,2008,&
+ &2263,2023, 990, 543, 571, 565, 450, 217, 186, 256, 157, 149/)
+ZAERV(1991,10, :) = (/&
+  &547, 559, 748, 531, 515, 529, 552, 613,1068,1773,1947,2163,&
+ &2292,2090,1168, 780, 900,1019, 871, 609, 547, 442, 206, 189/)
+ZAERV(1991,11, :) = (/&
+  &715, 732,1010, 693, 685, 768, 804, 777,1125,1716,1959,2124,&
+ &2301,2558,1457, 826,1020,1242,1268,1240,1057, 944, 446, 406/)
+ZAERV(1991,12, :) = (/&
+  &833, 854,1201,1085,1239,1635,1578,1356,1226,1606,1612,1748,&
+ &1977,2073,1161, 720, 785, 924,1173,1413,1220,1210,1236,1236/)
+ZAERV(1992, 1, :) = (/&
+  &924, 949,1358,1392,1564,1731,1761,1665,1330,1539,1837,1873,&
+ &2006,2067,1269, 708, 717, 854,1158,1423,1462,1600,1668,1668/)
+ZAERV(1992, 2, :) = (/&
+ &1003,1031,1454,1573,1677,1801,1837,1788,1444,1520,1846,1880,&
+ &1863,1911,1213, 740, 729, 871,1162,1418,1553,1559,1492,1489/)
+ZAERV(1992, 3, :) = (/&
+ &1062,1089,1449,1524,1571,1674,1693,1581,1370,1485,1705,1760,&
+ &1765,1699,1224, 826, 758, 886,1134,1350,1602,1635,1472,1459/)
+ZAERV(1992, 4, :) = (/&
+ &1120,1145,1468,1496,1461,1480,1465,1327,1285,1427,1556,1637,&
+ &1681,1672,1310, 911, 885,1025,1242,1361,1598,1710,1442,1420/)
+ZAERV(1992, 5, :) = (/&
+ &1179,1193,1392,1422,1428,1404,1365,1298,1256,1435,1560,1624,&
+ &1613,1566,1214,1035,1117,1238,1294,1369,1472,1527,1378,1366/)
+ZAERV(1992, 6, :) = (/&
+ &1233,1241,1334,1334,1304,1237,1110, 971, 995,1160,1294,1394,&
+ &1414,1383,1149,1081,1295,1464,1436,1395,1479,1454,1323,1316/)
+ZAERV(1992, 7, :) = (/&
+ &1269,1270,1292,1299,1180,1117, 957, 836, 942,1175,1369,1415,&
+ &1306,1257,1099,1067,1317,1532,1533,1366,1427,1347,1272,1270/)
+ZAERV(1992, 8, :) = (/&
+ &1272,1271,1251,1261,1203,1069, 956, 828, 912,1059,1230,1096,&
+ &1031,1098,1098,1078,1368,1532,1418,1263,1255,1177,1212,1216/)
+ZAERV(1992, 9, :) = (/&
+ &1254,1253,1233,1231,1167,1041, 913, 779, 864,1066,1179, 969,&
+  &888, 980, 965, 933,1185,1338,1283,1175,1037,1023,1156,1166/)
+ZAERV(1992,10, :) = (/&
+ &1193,1193,1183,1161,1147,1085, 942, 796, 829, 994,1012, 889,&
+  &824, 866, 832, 871,1070,1208,1228,1113,1018,1012,1111,1119/)
+ZAERV(1992,11, :) = (/&
+ &1117,1117,1115,1120,1132,1100, 979, 820, 721, 783, 884, 862,&
+  &785, 821, 797, 803, 935,1063,1138,1136,1039, 989,1060,1066/)
+ZAERV(1992,12, :) = (/&
+ &1044,1044,1050,1056,1143,1081, 984, 833, 663, 620, 667, 660,&
+  &647, 663, 580, 577, 686, 865,1027,1091,1000, 995,1015,1017/)
+ZAERV(1993, 1, :) = (/&
+  &981, 982, 995, 996,1165,1123,1003, 823, 601, 520, 552, 610,&
+  &628, 599, 535, 533, 577, 751, 915,1026,1041,1013, 995, 994/)
+ZAERV(1993, 2, :) = (/&
+  &904, 906, 926, 926, 985,1002, 927, 690, 482, 430, 496, 572,&
+  &563, 521, 462, 478, 519, 638, 789, 907,1006,1054,1042,1041/)
+ZAERV(1993, 3, :) = (/&
+  &827, 831, 883, 887, 902, 886, 798, 610, 427, 388, 448, 518,&
+  &521, 485, 437, 443, 483, 607, 758, 853, 913,1021,1054,1052/)
+ZAERV(1993, 4, :) = (/&
+  &749, 754, 817, 825, 833, 811, 725, 530, 383, 347, 407, 474,&
+  &465, 431, 410, 412, 466, 589, 721, 808, 839, 934,1006,1005/)
+ZAERV(1993, 5, :) = (/&
+  &664, 664, 672, 704, 717, 702, 603, 436, 335, 323, 393, 457,&
+  &447, 424, 398, 418, 527, 649, 713, 744, 811, 881, 945, 945/)
+ZAERV(1993, 6, :) = (/&
+  &579, 584, 641, 656, 644, 587, 478, 337, 285, 300, 348, 388,&
+  &402, 409, 356, 389, 527, 674, 728, 752, 780, 826, 883, 884/)
+ZAERV(1993, 7, :) = (/&
+  &508, 509, 521, 512, 506, 470, 351, 275, 271, 290, 332, 369,&
+  &385, 372, 338, 375, 523, 704, 753, 757, 747, 771, 825, 826/)
+ZAERV(1993, 8, :) = (/&
+  &505, 505, 506, 497, 466, 416, 331, 270, 262, 296, 357, 361,&
+  &378, 380, 322, 333, 463, 654, 720, 719, 696, 711, 756, 758/)
+ZAERV(1993, 9, :) = (/&
+  &509, 509, 506, 459, 423, 372, 305, 258, 260, 299, 345, 357,&
+  &348, 323, 296, 319, 421, 554, 638, 660, 658, 667, 679, 679/)
+ZAERV(1993,10, :) = (/&
+  &488, 489, 488, 432, 407, 373, 315, 254, 244, 263, 303, 343,&
+  &344, 322, 292, 310, 409, 521, 599, 614, 617, 624, 595, 593/)
+ZAERV(1993,11, :) = (/&
+  &467, 467, 470, 422, 402, 381, 325, 260, 230, 237, 258, 301,&
+  &342, 319, 284, 295, 373, 450, 537, 538, 532, 535, 539, 539/)
+ZAERV(1993,12, :) = (/&
+  &446, 446, 452, 405, 395, 382, 342, 255, 212, 215, 239, 265,&
+  &273, 261, 236, 232, 263, 349, 455, 503, 537, 537, 512, 510/)
+ZAERV(1994, 1, :) = (/&
+  &422, 422, 431, 384, 384, 384, 341, 254, 193, 190, 216, 242,&
+  &260, 250, 219, 206, 223, 287, 376, 435, 450, 461, 454, 453/)
+ZAERV(1994, 2, :) = (/&
+  &392, 392, 405, 375, 369, 368, 328, 241, 167, 172, 208, 220,&
+  &248, 234, 203, 188, 204, 252, 325, 390, 422, 454, 470, 471/)
+ZAERV(1994, 3, :) = (/&
+  &360, 361, 379, 382, 363, 323, 267, 202, 153, 151, 175, 204,&
+  &215, 206, 182, 166, 180, 226, 286, 343, 381, 449, 475, 476/)
+ZAERV(1994, 4, :) = (/&
+  &330, 330, 341, 350, 332, 303, 258, 195, 149, 145, 160, 178,&
+  &180, 175, 157, 150, 173, 219, 267, 307, 338, 419, 447, 448/)
+ZAERV(1994, 5, :) = (/&
+  &323, 322, 316, 299, 264, 244, 211, 167, 135, 138, 155, 168,&
+  &170, 174, 158, 156, 195, 249, 270, 283, 323, 386, 414, 414/)
+ZAERV(1994, 6, :) = (/&
+  &270, 269, 257, 253, 227, 195, 155, 128, 122, 137, 153, 145,&
+  &145, 159, 144, 142, 186, 253, 280, 281, 299, 354, 383, 383/)
+ZAERV(1994, 7, :) = (/&
+  &205, 205, 208, 206, 196, 168, 126, 109, 116, 137, 159, 150,&
+  &146, 171, 148, 150, 196, 265, 291, 280, 275, 319, 349, 349/)
+ZAERV(1994, 8, :) = (/&
+  &211, 211, 205, 195, 184, 162, 125, 110, 119, 141, 184, 154,&
+  &142, 151, 142, 136, 179, 240, 267, 266, 254, 282, 313, 313/)
+ZAERV(1994, 9, :) = (/&
+  &218, 218, 209, 186, 175, 149, 124, 107, 113, 135, 159, 137,&
+  &133, 131, 125, 131, 174, 223, 250, 249, 239, 256, 273, 273/)
+ZAERV(1994,10, :) = (/&
+  &250, 250, 240, 182, 173, 159, 129, 111, 109, 125, 154, 154,&
+  &154, 146, 125, 134, 185, 239, 256, 246, 238, 238, 231, 231/)
+ZAERV(1994,11, :) = (/&
+  &294, 293, 285, 198, 188, 189, 160, 122, 106, 110, 123, 134,&
+  &149, 140, 118, 118, 152, 198, 232, 237, 238, 228, 219, 219/)
+ZAERV(1994,12, :) = (/&
+  &367, 367, 363, 309, 261, 201, 177, 126,  95,  90, 100, 124,&
+  &148, 132, 114, 107, 127, 164, 211, 233, 241, 246, 267, 268/)
+ZAERV(1995, 1, :) = (/&
+  &338, 338, 334, 284, 240, 185, 162, 116,  87,  83,  92, 114,&
+  &136, 121, 105,  99, 117, 151, 194, 214, 222, 226, 245, 247/)
+ZAERV(1995, 2, :) = (/&
+  &311, 311, 308, 262, 221, 170, 149, 107,  80,  76,  85, 105,&
+  &125, 111,  96,  91, 108, 139, 179, 197, 204, 208, 226, 227/)
+ZAERV(1995, 3, :) = (/&
+  &286, 286, 283, 241, 204, 156, 138,  98,  74,  70,  78,  96,&
+  &115, 102,  89,  83,  99, 128, 165, 181, 188, 192, 208, 209/)
+ZAERV(1995, 4, :) = (/&
+  &263, 263, 260, 222, 187, 144, 127,  90,  68,  64,  72,  89,&
+  &106,  94,  81,  77,  91, 118, 151, 167, 173, 176, 191, 192/)
+ZAERV(1995, 5, :) = (/&
+  &242, 242, 240, 204, 172, 132, 116,  83,  63,  59,  66,  82,&
+   &97,  87,  75,  71,  84, 108, 139, 153, 159, 162, 176, 177/)
+ZAERV(1995, 6, :) = (/&
+  &223, 223, 220, 187, 158, 122, 107,  76,  58,  54,  61,  75,&
+   &90,  80,  69,  65,  77, 100, 128, 141, 146, 149, 162, 163/)
+ZAERV(1995, 7, :) = (/&
+  &205, 205, 203, 173, 146, 112,  99,  70,  53,  50,  56,  69,&
+   &82,  73,  63,  60,  71,  92, 118, 130, 135, 137, 149, 150/)
+ZAERV(1995, 8, :) = (/&
+  &189, 189, 187, 159, 134, 103,  91,  65,  49,  46,  51,  64,&
+   &76,  68,  58,  55,  65,  84, 108, 120, 124, 126, 137, 138/)
+ZAERV(1995, 9, :) = (/&
+  &174, 174, 172, 146, 123,  95,  83,  59,  45,  42,  47,  58,&
+   &70,  62,  54,  51,  60,  78, 100, 110, 114, 116, 126, 127/)
+ZAERV(1995,10, :) = (/&
+  &160, 160, 158, 134, 114,  87,  77,  55,  41,  39,  43,  54,&
+   &64,  57,  49,  47,  55,  71,  92, 101, 105, 107, 116, 117/)
+ZAERV(1995,11, :) = (/&
+  &147, 147, 145, 124, 104,  80,  71,  50,  38,  36,  40,  50,&
+   &59,  53,  45,  43,  51,  66,  84,  93,  96,  98, 107, 107/)
+ZAERV(1995,12, :) = (/&
+  &135, 135, 134, 114,  96,  74,  65,  46,  35,  33,  37,  46,&
+   &54,  48,  42,  39,  47,  61,  78,  86,  89,  91,  98,  99/)
+ZAERV(1996, 1, :) = (/&
+  &124, 124, 123, 105,  88,  68,  60,  43,  32,  30,  34,  42,&
+   &50,  45,  38,  36,  43,  56,  72,  79,  82,  83,  90,  91/)
+ZAERV(1996, 2, :) = (/&
+  &114, 114, 113,  96,  81,  62,  55,  39,  30,  28,  31,  39,&
+   &46,  41,  35,  33,  40,  51,  66,  72,  75,  77,  83,  83/)
+ZAERV(1996, 3, :) = (/&
+  &105, 105, 104,  89,  75,  57,  51,  36,  27,  26,  29,  35,&
+   &42,  38,  33,  31,  36,  47,  61,  67,  69,  70,  76,  77/)
+ZAERV(1996, 4, :) = (/&
+   &97,  97,  96,  81,  69,  53,  47,  33,  25,  24,  26,  33,&
+   &39,  35,  30,  28,  33,  43,  56,  61,  64,  65,  70,  71/)
+ZAERV(1996, 5, :) = (/&
+   &89,  89,  88,  75,  63,  49,  43,  31,  23,  22,  24,  30,&
+   &36,  32,  28,  26,  31,  40,  51,  56,  58,  60,  65,  65/)
+ZAERV(1996, 6, :) = (/&
+   &82,  82,  81,  69,  58,  45,  39,  28,  21,  20,  22,  28,&
+   &33,  29,  25,  24,  28,  37,  47,  52,  54,  55,  59,  60/)
+ZAERV(1996, 7, :) = (/&
+   &75,  75,  75,  63,  54,  41,  36,  26,  19,  18,  21,  25,&
+   &30,  27,  23,  22,  26,  34,  43,  48,  50,  51,  55,  55/)
+ZAERV(1996, 8, :) = (/&
+   &69,  69,  69,  58,  49,  38,  33,  24,  18,  17,  19,  23,&
+   &28,  25,  21,  20,  24,  31,  40,  44,  46,  46,  50,  51/)
+ZAERV(1996, 9, :) = (/&
+   &64,  64,  63,  54,  45,  35,  31,  22,  17,  16,  17,  22,&
+   &26,  23,  20,  19,  22,  29,  37,  40,  42,  43,  46,  47/)
+ZAERV(1996,10, :) = (/&
+   &59,  59,  58,  49,  42,  32,  28,  20,  15,  14,  16,  20,&
+   &24,  21,  18,  17,  20,  26,  34,  37,  39,  39,  43,  43/)
+ZAERV(1996,11, :) = (/&
+   &54,  54,  53,  45,  38,  30,  26,  19,  14,  13,  15,  18,&
+   &22,  19,  17,  16,  19,  24,  31,  34,  35,  36,  39,  39/)
+ZAERV(1996,12, :) = (/&
+   &50,  50,  49,  42,  35,  27,  24,  17,  13,  12,  14,  17,&
+   &20,  18,  15,  14,  17,  22,  29,  32,  33,  33,  36,  36/)
+ZAERV(1997, 1, :) = (/&
+   &46,  46,  45,  38,  33,  25,  22,  16,  12,  11,  12,  15,&
+   &18,  16,  14,  13,  16,  20,  26,  29,  30,  31,  33,  33/)
+ZAERV(1997, 2, :) = (/&
+   &42,  42,  42,  35,  30,  23,  20,  14,  11,  10,  11,  14,&
+   &17,  15,  13,  12,  15,  19,  24,  27,  28,  28,  31,  31/)
+ZAERV(1997, 3, :) = (/&
+   &39,  39,  38,  33,  28,  21,  19,  13,  10,   9,  11,  13,&
+   &16,  14,  12,  11,  13,  17,  22,  25,  25,  26,  28,  28/)
+ZAERV(1997, 4, :) = (/&
+   &36,  36,  35,  30,  25,  19,  17,  12,   9,   9,  10,  12,&
+   &14,  13,  11,  10,  12,  16,  20,  23,  23,  24,  26,  26/)
+ZAERV(1997, 5, :) = (/&
+   &33,  33,  32,  28,  23,  18,  16,  11,   8,   8,   9,  11,&
+   &13,  12,  10,  10,  11,  15,  19,  21,  22,  22,  24,  24/)
+ZAERV(1997, 6, :) = (/&
+   &30,  30,  30,  25,  21,  16,  14,  10,   8,   7,   8,  10,&
+   &12,  11,   9,   9,  10,  13,  17,  19,  20,  20,  22,  22/)
+ZAERV(1997, 7, :) = (/&
+   &28,  28,  27,  23,  20,  15,  13,  10,   7,   7,   8,   9,&
+   &11,  10,   9,   8,  10,  12,  16,  18,  18,  19,  20,  20/)
+ZAERV(1997, 8, :) = (/&
+   &26,  26,  25,  21,  18,  14,  12,   9,   7,   6,   7,   9,&
+   &10,   9,   8,   7,   9,  11,  15,  16,  17,  17,  19,  19/)
+ZAERV(1997, 9, :) = (/&
+   &23,  23,  23,  20,  17,  13,  11,   8,   6,   6,   6,   8,&
+    &9,   8,   7,   7,   8,  11,  14,  15,  15,  16,  17,  17/)
+ZAERV(1997,10, :) = (/&
+   &22,  22,  21,  18,  15,  12,  10,   7,   6,   5,   6,   7,&
+    &9,   8,   7,   6,   7,  10,  12,  14,  14,  14,  16,  16/)
+ZAERV(1997,11, :) = (/&
+   &20,  20,  20,  17,  14,  11,  10,   7,   5,   5,   5,   7,&
+    &8,   7,   6,   6,   7,   9,  11,  13,  13,  13,  14,  15/)
+ZAERV(1997,12, :) = (/&
+   &18,  18,  18,  15,  13,  10,   9,   6,   5,   4,   5,   6,&
+    &7,   7,   6,   5,   6,   8,  11,  12,  12,  12,  13,  13/)
+ZAERV(1998, 1, :) = (/&
+   &17,  17,  17,  14,  12,   9,   8,   6,   4,   4,   5,   6,&
+    &7,   6,   5,   5,   6,   8,  10,  11,  11,  11,  12,  12/)
+ZAERV(1998, 2, :) = (/&
+   &15,  15,  15,  13,  11,   8,   7,   5,   4,   4,   4,   5,&
+    &6,   6,   5,   5,   5,   7,   9,  10,  10,  10,  11,  11/)
+ZAERV(1998, 3, :) = (/&
+   &14,  14,  14,  12,  10,   8,   7,   5,   4,   3,   4,   5,&
+    &6,   5,   4,   4,   5,   6,   8,   9,   9,  10,  10,  10/)
+ZAERV(1998, 4, :) = (/&
+   &13,  13,  13,  11,   9,   7,   6,   4,   3,   3,   4,   4,&
+    &5,   5,   4,   4,   5,   6,   8,   8,   9,   9,  10,  10/)
+ZAERV(1998, 5, :) = (/&
+   &12,  12,  12,  10,   9,   7,   6,   4,   3,   3,   3,   4,&
+    &5,   4,   4,   4,   4,   5,   7,   8,   8,   8,   9,   9/)
+ZAERV(1998, 6, :) = (/&
+   &11,  11,  11,   9,   8,   6,   5,   4,   3,   3,   3,   4,&
+    &4,   4,   3,   3,   4,   5,   6,   7,   7,   7,   8,   8/)
+ZAERV(1998, 7, :) = (/&
+   &10,  10,  10,   9,   7,   6,   5,   3,   3,   2,   3,   3,&
+    &4,   4,   3,   3,   4,   5,   6,   6,   7,   7,   7,   7/)
+ZAERV(1998, 8, :) = (/&
+    &9,   9,   9,   8,   7,   5,   5,   3,   2,   2,   3,   3,&
+    &4,   3,   3,   3,   3,   4,   5,   6,   6,   6,   7,   7/)
+ZAERV(1998, 9, :) = (/&
+    &9,   9,   9,   7,   6,   5,   4,   3,   2,   2,   2,   3,&
+    &3,   3,   3,   3,   3,   4,   5,   5,   6,   6,   6,   6/)
+ZAERV(1998,10, :) = (/&
+    &8,   8,   8,   7,   6,   4,   4,   3,   2,   2,   2,   3,&
+    &3,   3,   2,   2,   3,   4,   5,   5,   5,   5,   6,   6/)
+ZAERV(1998,11, :) = (/&
+    &7,   7,   7,   6,   5,   4,   4,   3,   2,   2,   2,   2,&
+    &3,   3,   2,   2,   3,   3,   4,   5,   5,   5,   5,   5/)
+ZAERV(1998,12, :) = (/&
+    &7,   7,   7,   6,   5,   4,   3,   2,   2,   2,   2,   2,&
+    &3,   2,   2,   2,   2,   3,   4,   4,   4,   5,   5,   5/)
+ZAERV(1999, 1, :) = (/&
+    &6,   6,   6,   5,   4,   3,   3,   2,   2,   2,   2,   2,&
+    &2,   2,   2,   2,   2,   3,   4,   4,   4,   4,   4,   5/)
+ZAERV(1999, 2, :) = (/&
+    &6,   6,   6,   5,   4,   3,   3,   2,   1,   1,   2,   2,&
+    &2,   2,   2,   2,   2,   3,   3,   4,   4,   4,   4,   4/)
+ZAERV(1999, 3, :) = (/&
+    &5,   5,   5,   4,   4,   3,   3,   2,   1,   1,   1,   2,&
+    &2,   2,   2,   2,   2,   2,   3,   3,   3,   4,   4,   4/)
+ZAERV(1999, 4, :) = (/&
+    &5,   5,   5,   4,   3,   3,   2,   2,   1,   1,   1,   2,&
+    &2,   2,   1,   1,   2,   2,   3,   3,   3,   3,   3,   4/)
+ZAERV(1999, 5, :) = (/&
+    &4,   4,   4,   4,   3,   2,   2,   2,   1,   1,   1,   1,&
+    &2,   2,   1,   1,   2,   2,   3,   3,   3,   3,   3,   3/)
+ZAERV(1999, 6, :) = (/&
+    &4,   4,   4,   3,   3,   2,   2,   1,   1,   1,   1,   1,&
+    &2,   1,   1,   1,   1,   2,   2,   3,   3,   3,   3,   3/)
+ZAERV(1999, 7, :) = (/&
+    &4,   4,   4,   3,   3,   2,   2,   1,   1,   1,   1,   1,&
+    &2,   1,   1,   1,   1,   2,   2,   2,   2,   3,   3,   3/)
+ZAERV(1999, 8, :) = (/&
+    &3,   3,   3,   3,   2,   2,   2,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   3,   3/)
+ZAERV(1999, 9, :) = (/&
+    &3,   3,   3,   3,   2,   2,   2,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2/)
+ZAERV(1999,10, :) = (/&
+    &3,   3,   3,   2,   2,   2,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2/)
+ZAERV(1999,11, :) = (/&
+    &3,   3,   3,   2,   2,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2/)
+ZAERV(1999,12, :) = (/&
+    &2,   2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2/)
+ZAERV(2000, 1, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2/)
+ZAERV(2000, 2, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 3, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 4, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 5, :) = (/&
+    &2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 6, :) = (/&
+    &2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2000,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 1, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2/)
+ZAERV(2001, 2, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 3, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 4, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 5, :) = (/&
+    &2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 6, :) = (/&
+    &2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2001,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 1, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2/)
+ZAERV(2002, 2, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 3, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 4, :) = (/&
+    &2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 5, :) = (/&
+    &2,   2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 6, :) = (/&
+    &2,   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2002,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2/)
+ZAERV(2003, 2, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 3, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 4, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 5, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 6, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2003,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 1, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2/)
+ZAERV(2004, 2, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 3, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 4, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 5, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 6, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 7, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 8, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004, 9, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004,10, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004,11, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+ZAERV(2004,12, :) = (/&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,&
+    &1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1/)
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     TIME INDEX WITHIN AEROSOL CLIMATOLOGY
+!                 -------------------------------------
+
+
+!*         1.1    SEASONAL TIME INDEX WITHIN TEGEN'S AEROSOL CLIMATOLOGY
+!                 ------------------------------------------------------
+
+
+IDY=NDD(KINDAT)-1
+IMN=NMM(KINDAT)
+IF (IMN == 1) THEN
+  ZXTIME=REAL(IDY)*1440._JPRB + KMINUT
+ELSEIF (IMN == 2) THEN
+  IF(IDY == 28) IDY=IDY-1
+! A DAY IN FEB. IS 28.25*24*60/28=1452.8571min LONG.
+  ZXTIME=44640._JPRB+REAL(IDY)*1452.8571_JPRB+KMINUT
+ELSE
+  ZXTIME=(ZMDAY(IMN-1)+REAL(IDY))*1440._JPRB+KMINUT
+ENDIF
+! 525960=MINUTES IN A SIDERAL YEAR (365.25d)
+ZXTIME=MOD(ZXTIME,525960._JPRB)
+
+IM1=0
+IM2=0
+IF (ZXTIME <= ZYTIME(1)) THEN
+  IM1=12
+  IM2=1
+  ZTIMI=(ZYTIME(1)-ZXTIME)/44640._JPRB
+ELSEIF(ZXTIME > ZYTIME(12)) THEN
+  IM1=12
+  IM2=1
+  ZTIMI=(548280._JPRB-ZXTIME)/44640._JPRB
+! 548280.=(365.25d + 15.5d)*24*60
+ELSE
+  DO IM=1,11
+    IF (ZXTIME > ZYTIME(IM) .AND. ZXTIME <= ZYTIME(IM+1)) THEN
+      IM1=IM
+      IM2=IM+1
+      ZTIMI=(ZXTIME-ZYTIME(IM2))/(ZYTIME(IM1)-ZYTIME(IM2))
+    ENDIF
+  ENDDO
+  IF (IM1 == 0.OR. IM2 == 0 ) THEN
+!    CALL ABOR1('Problem with time interpolation in suecaec!')
+    PRINT *,'Problem with time interpolation in suecaec!'
+    STOP
+  ENDIF
+ENDIF
+
+
+!*         1.2    TIME INDEX WITHIN GISS VOLCANIC AEROSOL CLIMATOLOGY
+!                 ---------------------------------------------------
+
+IYR=NCCAA(KINDAT)
+IMN=NMM(KINDAT)
+IDY=NDD(KINDAT)
+IF (IMN == 1.AND.IDY <= 15) THEN
+  IYR1=IYR-1
+  IYR2=IYR
+ELSEIF (IMN == 12.AND.IDY > 15) THEN
+  IYR1=IYR
+  IYR2=IYR+1
+ELSE
+  IYR1=IYR
+  IYR2=IYR
+ENDIF
+
+
+!*         2.0    TOTAL OPTICAL THICKNESS
+!                 -----------------------
+
+!*         2.1    TROPOSPHERIC AEROSOL MONTHLY CLIMATOLOGY
+!                 ----------------------------------------
+
+!-- VECTOR OF LATITUDES FOR TEGEN ET AL. AEROSOL CLIMATOLOGY:
+
+DO JI=1,46
+  ZLATT(JI)=90._JPRB-(JI-1)*4._JPRB
+  RSINCT(JI)=SIN(ZLATT(JI)*RPI/180._JPRB)
+ENDDO
+
+DO JI=1,46
+  DO JL=1,72
+    RTAEBC(JL,JI)=RAERBC(JL,JI,IM2)&
+     &+ZTIMI*(RAERBC(JL,JI,IM1)-RAERBC(JL,JI,IM2))     
+    RTAEOR(JL,JI)=RAEROR(JL,JI,IM2)&
+     &+ZTIMI*(RAEROR(JL,JI,IM1)-RAEROR(JL,JI,IM2))     
+    RTAESD(JL,JI)=RAERSD(JL,JI,IM2)&
+     &+ZTIMI*(RAERSD(JL,JI,IM1)-RAERSD(JL,JI,IM2))     
+    RTAESS(JL,JI)=RAERSS(JL,JI,IM2)&
+     &+ZTIMI*(RAERSS(JL,JI,IM1)-RAERSS(JL,JI,IM2))     
+    RTAESU(JL,JI)=RAERSU(JL,JI,IM2)&
+     &+ZTIMI*(RAERSU(JL,JI,IM1)-RAERSU(JL,JI,IM2))
+  ENDDO
+ENDDO
+
+
+
+!*         2.2    VOLCANIC AEROSOL CLIMATOLOGY
+!                 ----------------------------
+
+GRID=4._JPRB
+DO JI=1,46
+  ZLAT=90._JPRB-(JI-1)*GRID
+  DO JL=1,23
+    IF (ZLAT == ZLATV(JL)) THEN
+      ZRES=ZAERV(IYR2,IM2,JL)&
+       &+ZTIMI*(ZAERV(IYR1,IM1,JL)-ZAERV(IYR2,IM2,JL))     
+    ELSEIF (ZLAT < ZLATV(JL).AND.ZLAT >= ZLATV(JL+1))THEN
+      ZINT=(ZLAT-ZLATV(JL+1))/(ZLATV(JL)-ZLATV(JL+1))
+      ZRESM=ZAERV(IYR2,IM2,JL)&
+       &+ZTIMI*(ZAERV(IYR1,IM1,JL)-ZAERV(IYR2,IM2,JL))     
+      ZRESP=ZAERV(IYR2,IM2,JL+1)&
+       &+ZTIMI*(ZAERV(IYR1,IM1,JL+1)-ZAERV(IYR2,IM2,JL+1))     
+      ZRES=ZRESP-ZINT*(ZRESP-ZRESM)
+    ENDIF
+  ENDDO
+!-- 19330. is the reference thickness of the stratosphere as in the
+! old aerosol climatology        
+  RTAEVO(JI)=ZRES*1.E-04_JPRB/19330._JPRB
+ENDDO
+
+!-- security for aerosol optical thickness
+REPAER=1.E-12_JPRB
+
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEC
Index: LMDZ5/branches/testing/libf/phymar/suecaeor.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor.F90	(revision 2160)
@@ -0,0 +1,61 @@
+SUBROUTINE SUECAEOR
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+      call SUECAEOR_01
+      call SUECAEOR_02
+      call SUECAEOR_03
+      call SUECAEOR_04
+      call SUECAEOR_05
+      call SUECAEOR_06
+      call SUECAEOR_07
+      call SUECAEOR_08
+      call SUECAEOR_09
+      call SUECAEOR_10
+      call SUECAEOR_11
+      call SUECAEOR_12
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_01.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_01
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,1:1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  1 --- lat:  1  90.0
+ZAER (:, 1, 1) = (/&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  2  86.0
+ZAER (:, 2, 1) = (/&
+&.753E-03_JPRB,.753E-03_JPRB,.756E-03_JPRB,.757E-03_JPRB,.758E-03_JPRB,.758E-03_JPRB,.759E-03_JPRB,&
+&.759E-03_JPRB,.759E-03_JPRB,.759E-03_JPRB,.759E-03_JPRB,.758E-03_JPRB,.757E-03_JPRB,.756E-03_JPRB,&
+&.756E-03_JPRB,.755E-03_JPRB,.754E-03_JPRB,.753E-03_JPRB,.752E-03_JPRB,.751E-03_JPRB,.750E-03_JPRB,&
+&.749E-03_JPRB,.748E-03_JPRB,.747E-03_JPRB,.745E-03_JPRB,.744E-03_JPRB,.743E-03_JPRB,.741E-03_JPRB,&
+&.739E-03_JPRB,.738E-03_JPRB,.736E-03_JPRB,.734E-03_JPRB,.732E-03_JPRB,.729E-03_JPRB,.727E-03_JPRB,&
+&.726E-03_JPRB,.723E-03_JPRB,.721E-03_JPRB,.719E-03_JPRB,.718E-03_JPRB,.716E-03_JPRB,.715E-03_JPRB,&
+&.714E-03_JPRB,.713E-03_JPRB,.713E-03_JPRB,.712E-03_JPRB,.711E-03_JPRB,.711E-03_JPRB,.711E-03_JPRB,&
+&.711E-03_JPRB,.711E-03_JPRB,.712E-03_JPRB,.713E-03_JPRB,.713E-03_JPRB,.714E-03_JPRB,.715E-03_JPRB,&
+&.716E-03_JPRB,.718E-03_JPRB,.720E-03_JPRB,.721E-03_JPRB,.723E-03_JPRB,.725E-03_JPRB,.729E-03_JPRB,&
+&.731E-03_JPRB,.734E-03_JPRB,.737E-03_JPRB,.739E-03_JPRB,.742E-03_JPRB,.746E-03_JPRB,.748E-03_JPRB,&
+&.749E-03_JPRB,.753E-03_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  3  82.0
+ZAER (:, 3, 1) = (/&
+&.798E-03_JPRB,.799E-03_JPRB,.807E-03_JPRB,.810E-03_JPRB,.811E-03_JPRB,.812E-03_JPRB,.811E-03_JPRB,&
+&.809E-03_JPRB,.806E-03_JPRB,.802E-03_JPRB,.799E-03_JPRB,.795E-03_JPRB,.790E-03_JPRB,.788E-03_JPRB,&
+&.785E-03_JPRB,.783E-03_JPRB,.782E-03_JPRB,.781E-03_JPRB,.781E-03_JPRB,.781E-03_JPRB,.781E-03_JPRB,&
+&.783E-03_JPRB,.783E-03_JPRB,.783E-03_JPRB,.784E-03_JPRB,.783E-03_JPRB,.782E-03_JPRB,.777E-03_JPRB,&
+&.773E-03_JPRB,.769E-03_JPRB,.762E-03_JPRB,.755E-03_JPRB,.749E-03_JPRB,.739E-03_JPRB,.732E-03_JPRB,&
+&.726E-03_JPRB,.718E-03_JPRB,.711E-03_JPRB,.707E-03_JPRB,.701E-03_JPRB,.697E-03_JPRB,.694E-03_JPRB,&
+&.692E-03_JPRB,.690E-03_JPRB,.689E-03_JPRB,.688E-03_JPRB,.687E-03_JPRB,.688E-03_JPRB,.688E-03_JPRB,&
+&.688E-03_JPRB,.688E-03_JPRB,.688E-03_JPRB,.689E-03_JPRB,.689E-03_JPRB,.689E-03_JPRB,.690E-03_JPRB,&
+&.692E-03_JPRB,.693E-03_JPRB,.696E-03_JPRB,.700E-03_JPRB,.704E-03_JPRB,.709E-03_JPRB,.718E-03_JPRB,&
+&.724E-03_JPRB,.733E-03_JPRB,.744E-03_JPRB,.751E-03_JPRB,.760E-03_JPRB,.774E-03_JPRB,.781E-03_JPRB,&
+&.788E-03_JPRB,.798E-03_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  4  78.0
+ZAER (:, 4, 1) = (/&
+&.868E-03_JPRB,.868E-03_JPRB,.883E-03_JPRB,.886E-03_JPRB,.888E-03_JPRB,.887E-03_JPRB,.881E-03_JPRB,&
+&.875E-03_JPRB,.863E-03_JPRB,.851E-03_JPRB,.842E-03_JPRB,.830E-03_JPRB,.820E-03_JPRB,.814E-03_JPRB,&
+&.808E-03_JPRB,.805E-03_JPRB,.805E-03_JPRB,.807E-03_JPRB,.813E-03_JPRB,.818E-03_JPRB,.825E-03_JPRB,&
+&.839E-03_JPRB,.848E-03_JPRB,.857E-03_JPRB,.874E-03_JPRB,.879E-03_JPRB,.884E-03_JPRB,.885E-03_JPRB,&
+&.879E-03_JPRB,.873E-03_JPRB,.854E-03_JPRB,.836E-03_JPRB,.821E-03_JPRB,.796E-03_JPRB,.776E-03_JPRB,&
+&.762E-03_JPRB,.742E-03_JPRB,.727E-03_JPRB,.719E-03_JPRB,.709E-03_JPRB,.701E-03_JPRB,.697E-03_JPRB,&
+&.694E-03_JPRB,.692E-03_JPRB,.692E-03_JPRB,.692E-03_JPRB,.693E-03_JPRB,.694E-03_JPRB,.695E-03_JPRB,&
+&.695E-03_JPRB,.694E-03_JPRB,.693E-03_JPRB,.690E-03_JPRB,.688E-03_JPRB,.686E-03_JPRB,.683E-03_JPRB,&
+&.682E-03_JPRB,.682E-03_JPRB,.683E-03_JPRB,.688E-03_JPRB,.693E-03_JPRB,.701E-03_JPRB,.714E-03_JPRB,&
+&.725E-03_JPRB,.740E-03_JPRB,.761E-03_JPRB,.775E-03_JPRB,.793E-03_JPRB,.819E-03_JPRB,.832E-03_JPRB,&
+&.846E-03_JPRB,.867E-03_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  5  74.0
+ZAER (:, 5, 1) = (/&
+&.937E-03_JPRB,.938E-03_JPRB,.955E-03_JPRB,.958E-03_JPRB,.960E-03_JPRB,.955E-03_JPRB,.944E-03_JPRB,&
+&.933E-03_JPRB,.913E-03_JPRB,.894E-03_JPRB,.881E-03_JPRB,.862E-03_JPRB,.847E-03_JPRB,.839E-03_JPRB,&
+&.831E-03_JPRB,.829E-03_JPRB,.830E-03_JPRB,.833E-03_JPRB,.847E-03_JPRB,.858E-03_JPRB,.873E-03_JPRB,&
+&.906E-03_JPRB,.930E-03_JPRB,.954E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.100E-02_JPRB,.971E-03_JPRB,.914E-03_JPRB,.870E-03_JPRB,&
+&.840E-03_JPRB,.801E-03_JPRB,.777E-03_JPRB,.764E-03_JPRB,.751E-03_JPRB,.742E-03_JPRB,.738E-03_JPRB,&
+&.736E-03_JPRB,.736E-03_JPRB,.737E-03_JPRB,.739E-03_JPRB,.742E-03_JPRB,.743E-03_JPRB,.744E-03_JPRB,&
+&.743E-03_JPRB,.740E-03_JPRB,.737E-03_JPRB,.728E-03_JPRB,.723E-03_JPRB,.717E-03_JPRB,.709E-03_JPRB,&
+&.705E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,.710E-03_JPRB,.715E-03_JPRB,.725E-03_JPRB,.741E-03_JPRB,&
+&.754E-03_JPRB,.772E-03_JPRB,.798E-03_JPRB,.817E-03_JPRB,.840E-03_JPRB,.873E-03_JPRB,.891E-03_JPRB,&
+&.909E-03_JPRB,.936E-03_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  6  70.0
+ZAER (:, 6, 1) = (/&
+&.100E-02_JPRB,.100E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.100E-02_JPRB,.992E-03_JPRB,&
+&.979E-03_JPRB,.955E-03_JPRB,.938E-03_JPRB,.925E-03_JPRB,.910E-03_JPRB,.901E-03_JPRB,.895E-03_JPRB,&
+&.889E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.888E-03_JPRB,.899E-03_JPRB,.910E-03_JPRB,.924E-03_JPRB,&
+&.961E-03_JPRB,.994E-03_JPRB,.103E-02_JPRB,.113E-02_JPRB,.118E-02_JPRB,.124E-02_JPRB,.132E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.109E-02_JPRB,.101E-02_JPRB,&
+&.964E-03_JPRB,.904E-03_JPRB,.872E-03_JPRB,.857E-03_JPRB,.844E-03_JPRB,.839E-03_JPRB,.839E-03_JPRB,&
+&.839E-03_JPRB,.841E-03_JPRB,.843E-03_JPRB,.844E-03_JPRB,.845E-03_JPRB,.846E-03_JPRB,.846E-03_JPRB,&
+&.842E-03_JPRB,.836E-03_JPRB,.830E-03_JPRB,.814E-03_JPRB,.803E-03_JPRB,.794E-03_JPRB,.780E-03_JPRB,&
+&.774E-03_JPRB,.773E-03_JPRB,.777E-03_JPRB,.788E-03_JPRB,.797E-03_JPRB,.811E-03_JPRB,.828E-03_JPRB,&
+&.840E-03_JPRB,.857E-03_JPRB,.880E-03_JPRB,.897E-03_JPRB,.917E-03_JPRB,.950E-03_JPRB,.966E-03_JPRB,&
+&.983E-03_JPRB,.100E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  7  66.0
+ZAER (:, 7, 1) = (/&
+&.110E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.101E-02_JPRB,.990E-03_JPRB,.981E-03_JPRB,.978E-03_JPRB,.980E-03_JPRB,.981E-03_JPRB,&
+&.979E-03_JPRB,.975E-03_JPRB,.973E-03_JPRB,.970E-03_JPRB,.978E-03_JPRB,.987E-03_JPRB,.999E-03_JPRB,&
+&.103E-02_JPRB,.106E-02_JPRB,.109E-02_JPRB,.121E-02_JPRB,.130E-02_JPRB,.139E-02_JPRB,.153E-02_JPRB,&
+&.157E-02_JPRB,.159E-02_JPRB,.155E-02_JPRB,.148E-02_JPRB,.142E-02_JPRB,.130E-02_JPRB,.121E-02_JPRB,&
+&.115E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.998E-03_JPRB,.993E-03_JPRB,.987E-03_JPRB,.967E-03_JPRB,.949E-03_JPRB,.935E-03_JPRB,.915E-03_JPRB,&
+&.910E-03_JPRB,.909E-03_JPRB,.918E-03_JPRB,.937E-03_JPRB,.952E-03_JPRB,.973E-03_JPRB,.988E-03_JPRB,&
+&.996E-03_JPRB,.100E-02_JPRB,.101E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  8  62.0
+ZAER (:, 8, 1) = (/&
+&.128E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,&
+&.114E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,&
+&.111E-02_JPRB,.114E-02_JPRB,.118E-02_JPRB,.129E-02_JPRB,.138E-02_JPRB,.148E-02_JPRB,.165E-02_JPRB,&
+&.169E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,.163E-02_JPRB,.158E-02_JPRB,.150E-02_JPRB,.143E-02_JPRB,&
+&.139E-02_JPRB,.132E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,&
+&.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,&
+&.128E-02_JPRB,.128E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat:  9  58.0
+ZAER (:, 9, 1) = (/&
+&.156E-02_JPRB,.156E-02_JPRB,.151E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.140E-02_JPRB,.136E-02_JPRB,&
+&.132E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,&
+&.117E-02_JPRB,.122E-02_JPRB,.126E-02_JPRB,.138E-02_JPRB,.147E-02_JPRB,.157E-02_JPRB,.174E-02_JPRB,&
+&.179E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,&
+&.164E-02_JPRB,.160E-02_JPRB,.154E-02_JPRB,.150E-02_JPRB,.145E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,&
+&.133E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,&
+&.137E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.145E-02_JPRB,.149E-02_JPRB,&
+&.154E-02_JPRB,.156E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 10  54.0
+ZAER (:,10, 1) = (/&
+&.181E-02_JPRB,.181E-02_JPRB,.178E-02_JPRB,.174E-02_JPRB,.170E-02_JPRB,.162E-02_JPRB,.155E-02_JPRB,&
+&.149E-02_JPRB,.138E-02_JPRB,.130E-02_JPRB,.125E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,&
+&.123E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.123E-02_JPRB,.765E-03_JPRB,.133E-02_JPRB,.149E-02_JPRB,.159E-02_JPRB,.169E-02_JPRB,.187E-02_JPRB,&
+&.196E-02_JPRB,.204E-02_JPRB,.210E-02_JPRB,.203E-02_JPRB,.198E-02_JPRB,.192E-02_JPRB,.190E-02_JPRB,&
+&.188E-02_JPRB,.181E-02_JPRB,.171E-02_JPRB,.165E-02_JPRB,.156E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,&
+&.147E-02_JPRB,.152E-02_JPRB,.156E-02_JPRB,.161E-02_JPRB,.163E-02_JPRB,.158E-02_JPRB,.153E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,.150E-02_JPRB,.153E-02_JPRB,.157E-02_JPRB,&
+&.155E-02_JPRB,.153E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,&
+&.147E-02_JPRB,.152E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,.159E-02_JPRB,.166E-02_JPRB,.171E-02_JPRB,&
+&.176E-02_JPRB,.180E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 11  50.0
+ZAER (:,11, 1) = (/&
+&.206E-02_JPRB,.205E-02_JPRB,.201E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,.177E-02_JPRB,.169E-02_JPRB,&
+&.162E-02_JPRB,.152E-02_JPRB,.143E-02_JPRB,.138E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.134E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,&
+&.136E-02_JPRB,.857E-03_JPRB,.150E-02_JPRB,.171E-02_JPRB,.185E-02_JPRB,.198E-02_JPRB,.218E-02_JPRB,&
+&.229E-02_JPRB,.238E-02_JPRB,.240E-02_JPRB,.238E-02_JPRB,.234E-02_JPRB,.226E-02_JPRB,.215E-02_JPRB,&
+&.208E-02_JPRB,.197E-02_JPRB,.185E-02_JPRB,.177E-02_JPRB,.166E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,&
+&.155E-02_JPRB,.160E-02_JPRB,.168E-02_JPRB,.178E-02_JPRB,.188E-02_JPRB,.183E-02_JPRB,.177E-02_JPRB,&
+&.157E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.160E-02_JPRB,.166E-02_JPRB,.172E-02_JPRB,.178E-02_JPRB,&
+&.177E-02_JPRB,.174E-02_JPRB,.162E-02_JPRB,.154E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,&
+&.156E-02_JPRB,.165E-02_JPRB,.175E-02_JPRB,.180E-02_JPRB,.184E-02_JPRB,.194E-02_JPRB,.199E-02_JPRB,&
+&.204E-02_JPRB,.206E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 12  46.0
+ZAER (:,12, 1) = (/&
+&.237E-02_JPRB,.236E-02_JPRB,.221E-02_JPRB,.212E-02_JPRB,.203E-02_JPRB,.190E-02_JPRB,.182E-02_JPRB,&
+&.176E-02_JPRB,.168E-02_JPRB,.161E-02_JPRB,.156E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,&
+&.163E-02_JPRB,.108E-02_JPRB,.198E-02_JPRB,.234E-02_JPRB,.254E-02_JPRB,.272E-02_JPRB,.284E-02_JPRB,&
+&.281E-02_JPRB,.279E-02_JPRB,.273E-02_JPRB,.281E-02_JPRB,.285E-02_JPRB,.279E-02_JPRB,.258E-02_JPRB,&
+&.244E-02_JPRB,.226E-02_JPRB,.210E-02_JPRB,.200E-02_JPRB,.186E-02_JPRB,.176E-02_JPRB,.171E-02_JPRB,&
+&.168E-02_JPRB,.176E-02_JPRB,.187E-02_JPRB,.200E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.212E-02_JPRB,&
+&.186E-02_JPRB,.179E-02_JPRB,.174E-02_JPRB,.180E-02_JPRB,.187E-02_JPRB,.193E-02_JPRB,.200E-02_JPRB,&
+&.202E-02_JPRB,.201E-02_JPRB,.188E-02_JPRB,.177E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.168E-02_JPRB,&
+&.176E-02_JPRB,.194E-02_JPRB,.216E-02_JPRB,.220E-02_JPRB,.222E-02_JPRB,.234E-02_JPRB,.240E-02_JPRB,&
+&.246E-02_JPRB,.237E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 13  42.0
+ZAER (:,13, 1) = (/&
+&.279E-02_JPRB,.277E-02_JPRB,.243E-02_JPRB,.232E-02_JPRB,.222E-02_JPRB,.209E-02_JPRB,.203E-02_JPRB,&
+&.197E-02_JPRB,.188E-02_JPRB,.183E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.176E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,&
+&.219E-02_JPRB,.162E-02_JPRB,.195E-02_JPRB,.453E-02_JPRB,.484E-02_JPRB,.507E-02_JPRB,.430E-02_JPRB,&
+&.377E-02_JPRB,.339E-02_JPRB,.331E-02_JPRB,.344E-02_JPRB,.351E-02_JPRB,.348E-02_JPRB,.331E-02_JPRB,&
+&.317E-02_JPRB,.296E-02_JPRB,.269E-02_JPRB,.253E-02_JPRB,.235E-02_JPRB,.222E-02_JPRB,.215E-02_JPRB,&
+&.208E-02_JPRB,.222E-02_JPRB,.238E-02_JPRB,.257E-02_JPRB,.281E-02_JPRB,.276E-02_JPRB,.269E-02_JPRB,&
+&.237E-02_JPRB,.225E-02_JPRB,.214E-02_JPRB,.215E-02_JPRB,.222E-02_JPRB,.228E-02_JPRB,.236E-02_JPRB,&
+&.240E-02_JPRB,.239E-02_JPRB,.231E-02_JPRB,.218E-02_JPRB,.209E-02_JPRB,.199E-02_JPRB,.211E-02_JPRB,&
+&.234E-02_JPRB,.278E-02_JPRB,.304E-02_JPRB,.299E-02_JPRB,.283E-02_JPRB,.282E-02_JPRB,.289E-02_JPRB,&
+&.299E-02_JPRB,.279E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 14  38.0
+ZAER (:,14, 1) = (/&
+&.322E-02_JPRB,.320E-02_JPRB,.271E-02_JPRB,.259E-02_JPRB,.249E-02_JPRB,.236E-02_JPRB,.229E-02_JPRB,&
+&.223E-02_JPRB,.213E-02_JPRB,.207E-02_JPRB,.203E-02_JPRB,.199E-02_JPRB,.196E-02_JPRB,.195E-02_JPRB,&
+&.197E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.199E-02_JPRB,.207E-02_JPRB,&
+&.315E-02_JPRB,.273E-02_JPRB,.367E-02_JPRB,.664E-02_JPRB,.123E-01_JPRB,.131E-01_JPRB,.821E-02_JPRB,&
+&.628E-02_JPRB,.484E-02_JPRB,.447E-02_JPRB,.459E-02_JPRB,.462E-02_JPRB,.446E-02_JPRB,.436E-02_JPRB,&
+&.426E-02_JPRB,.407E-02_JPRB,.380E-02_JPRB,.367E-02_JPRB,.356E-02_JPRB,.346E-02_JPRB,.340E-02_JPRB,&
+&.333E-02_JPRB,.350E-02_JPRB,.364E-02_JPRB,.381E-02_JPRB,.397E-02_JPRB,.386E-02_JPRB,.372E-02_JPRB,&
+&.329E-02_JPRB,.306E-02_JPRB,.286E-02_JPRB,.277E-02_JPRB,.280E-02_JPRB,.283E-02_JPRB,.290E-02_JPRB,&
+&.292E-02_JPRB,.293E-02_JPRB,.296E-02_JPRB,.286E-02_JPRB,.277E-02_JPRB,.261E-02_JPRB,.292E-02_JPRB,&
+&.335E-02_JPRB,.411E-02_JPRB,.265E-02_JPRB,.427E-02_JPRB,.395E-02_JPRB,.348E-02_JPRB,.347E-02_JPRB,&
+&.352E-02_JPRB,.323E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 15  34.0
+ZAER (:,15, 1) = (/&
+&.365E-02_JPRB,.363E-02_JPRB,.311E-02_JPRB,.296E-02_JPRB,.283E-02_JPRB,.265E-02_JPRB,.257E-02_JPRB,&
+&.250E-02_JPRB,.237E-02_JPRB,.231E-02_JPRB,.227E-02_JPRB,.223E-02_JPRB,.218E-02_JPRB,.216E-02_JPRB,&
+&.215E-02_JPRB,.219E-02_JPRB,.218E-02_JPRB,.216E-02_JPRB,.217E-02_JPRB,.229E-02_JPRB,.246E-02_JPRB,&
+&.451E-02_JPRB,.433E-02_JPRB,.613E-02_JPRB,.138E-01_JPRB,.160E-01_JPRB,.292E-01_JPRB,.162E-01_JPRB,&
+&.111E-01_JPRB,.739E-02_JPRB,.625E-02_JPRB,.622E-02_JPRB,.615E-02_JPRB,.586E-02_JPRB,.579E-02_JPRB,&
+&.570E-02_JPRB,.553E-02_JPRB,.547E-02_JPRB,.548E-02_JPRB,.556E-02_JPRB,.355E-02_JPRB,.609E-02_JPRB,&
+&.627E-02_JPRB,.616E-02_JPRB,.609E-02_JPRB,.602E-02_JPRB,.583E-02_JPRB,.558E-02_JPRB,.531E-02_JPRB,&
+&.469E-02_JPRB,.430E-02_JPRB,.395E-02_JPRB,.369E-02_JPRB,.364E-02_JPRB,.360E-02_JPRB,.358E-02_JPRB,&
+&.360E-02_JPRB,.366E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.229E-02_JPRB,.366E-02_JPRB,.408E-02_JPRB,&
+&.457E-02_JPRB,.322E-02_JPRB,.354E-02_JPRB,.350E-02_JPRB,.554E-02_JPRB,.442E-02_JPRB,.421E-02_JPRB,&
+&.409E-02_JPRB,.366E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 16  30.0
+ZAER (:,16, 1) = (/&
+&.411E-02_JPRB,.409E-02_JPRB,.356E-02_JPRB,.337E-02_JPRB,.319E-02_JPRB,.293E-02_JPRB,.282E-02_JPRB,&
+&.273E-02_JPRB,.259E-02_JPRB,.253E-02_JPRB,.249E-02_JPRB,.245E-02_JPRB,.239E-02_JPRB,.236E-02_JPRB,&
+&.234E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,.236E-02_JPRB,.241E-02_JPRB,.264E-02_JPRB,.296E-02_JPRB,&
+&.615E-02_JPRB,.593E-02_JPRB,.840E-02_JPRB,.203E-01_JPRB,.241E-01_JPRB,.448E-01_JPRB,.255E-01_JPRB,&
+&.172E-01_JPRB,.110E-01_JPRB,.887E-02_JPRB,.853E-02_JPRB,.828E-02_JPRB,.795E-02_JPRB,.778E-02_JPRB,&
+&.767E-02_JPRB,.754E-02_JPRB,.773E-02_JPRB,.793E-02_JPRB,.827E-02_JPRB,.572E-02_JPRB,.614E-02_JPRB,&
+&.661E-02_JPRB,.102E-01_JPRB,.958E-02_JPRB,.881E-02_JPRB,.790E-02_JPRB,.744E-02_JPRB,.699E-02_JPRB,&
+&.619E-02_JPRB,.568E-02_JPRB,.522E-02_JPRB,.481E-02_JPRB,.466E-02_JPRB,.454E-02_JPRB,.440E-02_JPRB,&
+&.444E-02_JPRB,.455E-02_JPRB,.492E-02_JPRB,.303E-02_JPRB,.305E-02_JPRB,.302E-02_JPRB,.323E-02_JPRB,&
+&.343E-02_JPRB,.373E-02_JPRB,.418E-02_JPRB,.420E-02_JPRB,.683E-02_JPRB,.534E-02_JPRB,.498E-02_JPRB,&
+&.471E-02_JPRB,.412E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 17  26.0
+ZAER (:,17, 1) = (/&
+&.450E-02_JPRB,.448E-02_JPRB,.395E-02_JPRB,.372E-02_JPRB,.351E-02_JPRB,.317E-02_JPRB,.303E-02_JPRB,&
+&.292E-02_JPRB,.276E-02_JPRB,.273E-02_JPRB,.270E-02_JPRB,.265E-02_JPRB,.259E-02_JPRB,.257E-02_JPRB,&
+&.259E-02_JPRB,.267E-02_JPRB,.266E-02_JPRB,.260E-02_JPRB,.271E-02_JPRB,.308E-02_JPRB,.361E-02_JPRB,&
+&.746E-02_JPRB,.679E-02_JPRB,.931E-02_JPRB,.215E-01_JPRB,.261E-01_JPRB,.296E-01_JPRB,.307E-01_JPRB,&
+&.218E-01_JPRB,.152E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,&
+&.103E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.111E-01_JPRB,.685E-02_JPRB,.801E-02_JPRB,.871E-02_JPRB,&
+&.953E-02_JPRB,.143E-01_JPRB,.130E-01_JPRB,.113E-01_JPRB,.951E-02_JPRB,.880E-02_JPRB,.813E-02_JPRB,&
+&.735E-02_JPRB,.685E-02_JPRB,.639E-02_JPRB,.598E-02_JPRB,.578E-02_JPRB,.561E-02_JPRB,.538E-02_JPRB,&
+&.538E-02_JPRB,.547E-02_JPRB,.585E-02_JPRB,.366E-02_JPRB,.376E-02_JPRB,.389E-02_JPRB,.401E-02_JPRB,&
+&.408E-02_JPRB,.417E-02_JPRB,.450E-02_JPRB,.445E-02_JPRB,.710E-02_JPRB,.581E-02_JPRB,.544E-02_JPRB,&
+&.513E-02_JPRB,.452E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 18  22.0
+ZAER (:,18, 1) = (/&
+&.464E-02_JPRB,.462E-02_JPRB,.408E-02_JPRB,.384E-02_JPRB,.362E-02_JPRB,.332E-02_JPRB,.317E-02_JPRB,&
+&.305E-02_JPRB,.290E-02_JPRB,.292E-02_JPRB,.291E-02_JPRB,.287E-02_JPRB,.285E-02_JPRB,.289E-02_JPRB,&
+&.300E-02_JPRB,.312E-02_JPRB,.310E-02_JPRB,.301E-02_JPRB,.334E-02_JPRB,.380E-02_JPRB,.442E-02_JPRB,&
+&.760E-02_JPRB,.657E-02_JPRB,.877E-02_JPRB,.186E-01_JPRB,.228E-01_JPRB,.261E-01_JPRB,.188E-01_JPRB,&
+&.247E-01_JPRB,.196E-01_JPRB,.169E-01_JPRB,.162E-01_JPRB,.156E-01_JPRB,.145E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.889E-02_JPRB,.101E-01_JPRB,.108E-01_JPRB,&
+&.118E-01_JPRB,.105E-01_JPRB,.157E-01_JPRB,.804E-02_JPRB,.106E-01_JPRB,.957E-02_JPRB,.861E-02_JPRB,&
+&.802E-02_JPRB,.761E-02_JPRB,.725E-02_JPRB,.695E-02_JPRB,.680E-02_JPRB,.666E-02_JPRB,.636E-02_JPRB,&
+&.624E-02_JPRB,.625E-02_JPRB,.653E-02_JPRB,.683E-02_JPRB,.429E-02_JPRB,.465E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.469E-02_JPRB,.459E-02_JPRB,.720E-02_JPRB,.653E-02_JPRB,.565E-02_JPRB,.539E-02_JPRB,&
+&.517E-02_JPRB,.466E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 19  18.0
+ZAER (:,19, 1) = (/&
+&.436E-02_JPRB,.434E-02_JPRB,.379E-02_JPRB,.359E-02_JPRB,.343E-02_JPRB,.335E-02_JPRB,.324E-02_JPRB,&
+&.314E-02_JPRB,.299E-02_JPRB,.308E-02_JPRB,.315E-02_JPRB,.324E-02_JPRB,.334E-02_JPRB,.344E-02_JPRB,&
+&.360E-02_JPRB,.381E-02_JPRB,.390E-02_JPRB,.399E-02_JPRB,.467E-02_JPRB,.507E-02_JPRB,.552E-02_JPRB,&
+&.721E-02_JPRB,.622E-02_JPRB,.835E-02_JPRB,.166E-01_JPRB,.198E-01_JPRB,.225E-01_JPRB,.190E-01_JPRB,&
+&.166E-01_JPRB,.245E-01_JPRB,.219E-01_JPRB,.212E-01_JPRB,.205E-01_JPRB,.191E-01_JPRB,.186E-01_JPRB,&
+&.190E-01_JPRB,.209E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.115E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,&
+&.142E-01_JPRB,.127E-01_JPRB,.187E-01_JPRB,.940E-02_JPRB,.118E-01_JPRB,.103E-01_JPRB,.888E-02_JPRB,&
+&.827E-02_JPRB,.801E-02_JPRB,.777E-02_JPRB,.749E-02_JPRB,.745E-02_JPRB,.737E-02_JPRB,.710E-02_JPRB,&
+&.709E-02_JPRB,.711E-02_JPRB,.724E-02_JPRB,.745E-02_JPRB,.783E-02_JPRB,.523E-02_JPRB,.534E-02_JPRB,&
+&.527E-02_JPRB,.508E-02_JPRB,.445E-02_JPRB,.664E-02_JPRB,.567E-02_JPRB,.508E-02_JPRB,.492E-02_JPRB,&
+&.479E-02_JPRB,.437E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 20  14.0
+ZAER (:,20, 1) = (/&
+&.368E-02_JPRB,.367E-02_JPRB,.320E-02_JPRB,.311E-02_JPRB,.306E-02_JPRB,.326E-02_JPRB,.325E-02_JPRB,&
+&.324E-02_JPRB,.315E-02_JPRB,.334E-02_JPRB,.352E-02_JPRB,.387E-02_JPRB,.411E-02_JPRB,.424E-02_JPRB,&
+&.436E-02_JPRB,.480E-02_JPRB,.523E-02_JPRB,.587E-02_JPRB,.690E-02_JPRB,.722E-02_JPRB,.748E-02_JPRB,&
+&.517E-02_JPRB,.738E-02_JPRB,.993E-02_JPRB,.178E-01_JPRB,.199E-01_JPRB,.217E-01_JPRB,.198E-01_JPRB,&
+&.186E-01_JPRB,.292E-01_JPRB,.258E-01_JPRB,.262E-01_JPRB,.262E-01_JPRB,.254E-01_JPRB,.253E-01_JPRB,&
+&.260E-01_JPRB,.287E-01_JPRB,.285E-01_JPRB,.279E-01_JPRB,.160E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,&
+&.181E-01_JPRB,.159E-01_JPRB,.138E-01_JPRB,.188E-01_JPRB,.136E-01_JPRB,.115E-01_JPRB,.954E-02_JPRB,&
+&.847E-02_JPRB,.832E-02_JPRB,.816E-02_JPRB,.782E-02_JPRB,.774E-02_JPRB,.770E-02_JPRB,.781E-02_JPRB,&
+&.858E-02_JPRB,.899E-02_JPRB,.906E-02_JPRB,.877E-02_JPRB,.885E-02_JPRB,.940E-02_JPRB,.579E-02_JPRB,&
+&.563E-02_JPRB,.867E-02_JPRB,.687E-02_JPRB,.588E-02_JPRB,.478E-02_JPRB,.441E-02_JPRB,.425E-02_JPRB,&
+&.411E-02_JPRB,.370E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 21  10.0
+ZAER (:,21, 1) = (/&
+&.309E-02_JPRB,.308E-02_JPRB,.283E-02_JPRB,.284E-02_JPRB,.287E-02_JPRB,.319E-02_JPRB,.331E-02_JPRB,&
+&.340E-02_JPRB,.349E-02_JPRB,.379E-02_JPRB,.409E-02_JPRB,.469E-02_JPRB,.509E-02_JPRB,.525E-02_JPRB,&
+&.533E-02_JPRB,.604E-02_JPRB,.684E-02_JPRB,.806E-02_JPRB,.985E-02_JPRB,.106E-01_JPRB,.113E-01_JPRB,&
+&.776E-02_JPRB,.105E-01_JPRB,.136E-01_JPRB,.197E-01_JPRB,.206E-01_JPRB,.213E-01_JPRB,.197E-01_JPRB,&
+&.193E-01_JPRB,.313E-01_JPRB,.293E-01_JPRB,.323E-01_JPRB,.341E-01_JPRB,.344E-01_JPRB,.353E-01_JPRB,&
+&.368E-01_JPRB,.404E-01_JPRB,.404E-01_JPRB,.411E-01_JPRB,.256E-01_JPRB,.260E-01_JPRB,.256E-01_JPRB,&
+&.248E-01_JPRB,.205E-01_JPRB,.290E-01_JPRB,.230E-01_JPRB,.162E-01_JPRB,.135E-01_JPRB,.111E-01_JPRB,&
+&.939E-02_JPRB,.920E-02_JPRB,.901E-02_JPRB,.870E-02_JPRB,.850E-02_JPRB,.854E-02_JPRB,.960E-02_JPRB,&
+&.120E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.119E-01_JPRB,.110E-01_JPRB,.100E-01_JPRB,.990E-02_JPRB,&
+&.949E-02_JPRB,.869E-02_JPRB,.647E-02_JPRB,.535E-02_JPRB,.418E-02_JPRB,.403E-02_JPRB,.382E-02_JPRB,&
+&.356E-02_JPRB,.310E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 22   6.0
+ZAER (:,22, 1) = (/&
+&.329E-02_JPRB,.328E-02_JPRB,.310E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.328E-02_JPRB,.347E-02_JPRB,&
+&.365E-02_JPRB,.402E-02_JPRB,.442E-02_JPRB,.479E-02_JPRB,.545E-02_JPRB,.607E-02_JPRB,.641E-02_JPRB,&
+&.674E-02_JPRB,.765E-02_JPRB,.855E-02_JPRB,.990E-02_JPRB,.129E-01_JPRB,.152E-01_JPRB,.108E-01_JPRB,&
+&.126E-01_JPRB,.154E-01_JPRB,.185E-01_JPRB,.202E-01_JPRB,.198E-01_JPRB,.193E-01_JPRB,.176E-01_JPRB,&
+&.179E-01_JPRB,.307E-01_JPRB,.343E-01_JPRB,.411E-01_JPRB,.455E-01_JPRB,.485E-01_JPRB,.530E-01_JPRB,&
+&.566E-01_JPRB,.625E-01_JPRB,.654E-01_JPRB,.694E-01_JPRB,.461E-01_JPRB,.452E-01_JPRB,.417E-01_JPRB,&
+&.360E-01_JPRB,.275E-01_JPRB,.371E-01_JPRB,.274E-01_JPRB,.187E-01_JPRB,.159E-01_JPRB,.132E-01_JPRB,&
+&.115E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.145E-01_JPRB,&
+&.177E-01_JPRB,.191E-01_JPRB,.181E-01_JPRB,.155E-01_JPRB,.138E-01_JPRB,.117E-01_JPRB,.103E-01_JPRB,&
+&.951E-02_JPRB,.514E-02_JPRB,.380E-02_JPRB,.531E-02_JPRB,.431E-02_JPRB,.442E-02_JPRB,.416E-02_JPRB,&
+&.383E-02_JPRB,.331E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 23   2.0
+ZAER (:,23, 1) = (/&
+&.460E-02_JPRB,.460E-02_JPRB,.435E-02_JPRB,.405E-02_JPRB,.379E-02_JPRB,.368E-02_JPRB,.374E-02_JPRB,&
+&.389E-02_JPRB,.449E-02_JPRB,.496E-02_JPRB,.535E-02_JPRB,.598E-02_JPRB,.686E-02_JPRB,.751E-02_JPRB,&
+&.844E-02_JPRB,.967E-02_JPRB,.108E-01_JPRB,.126E-01_JPRB,.172E-01_JPRB,.222E-01_JPRB,.173E-01_JPRB,&
+&.206E-01_JPRB,.225E-01_JPRB,.245E-01_JPRB,.200E-01_JPRB,.183E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,&
+&.284E-01_JPRB,.317E-01_JPRB,.427E-01_JPRB,.551E-01_JPRB,.647E-01_JPRB,.774E-01_JPRB,.907E-01_JPRB,&
+&.994E-01_JPRB,.110E+00_JPRB,.117E+00_JPRB,.741E-01_JPRB,.806E-01_JPRB,.786E-01_JPRB,.699E-01_JPRB,&
+&.549E-01_JPRB,.374E-01_JPRB,.287E-01_JPRB,.328E-01_JPRB,.214E-01_JPRB,.183E-01_JPRB,.156E-01_JPRB,&
+&.140E-01_JPRB,.152E-01_JPRB,.165E-01_JPRB,.190E-01_JPRB,.192E-01_JPRB,.201E-01_JPRB,.251E-01_JPRB,&
+&.264E-01_JPRB,.155E-01_JPRB,.208E-01_JPRB,.114E-01_JPRB,.175E-01_JPRB,.151E-01_JPRB,.119E-01_JPRB,&
+&.613E-02_JPRB,.841E-02_JPRB,.659E-02_JPRB,.593E-02_JPRB,.537E-02_JPRB,.581E-02_JPRB,.559E-02_JPRB,&
+&.525E-02_JPRB,.462E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 24  -2.0
+ZAER (:,24, 1) = (/&
+&.747E-02_JPRB,.746E-02_JPRB,.705E-02_JPRB,.641E-02_JPRB,.583E-02_JPRB,.493E-02_JPRB,.459E-02_JPRB,&
+&.444E-02_JPRB,.478E-02_JPRB,.527E-02_JPRB,.576E-02_JPRB,.671E-02_JPRB,.778E-02_JPRB,.859E-02_JPRB,&
+&.976E-02_JPRB,.122E-01_JPRB,.144E-01_JPRB,.175E-01_JPRB,.258E-01_JPRB,.343E-01_JPRB,.454E-01_JPRB,&
+&.329E-01_JPRB,.332E-01_JPRB,.330E-01_JPRB,.204E-01_JPRB,.168E-01_JPRB,.228E-01_JPRB,.227E-01_JPRB,&
+&.286E-01_JPRB,.359E-01_JPRB,.597E-01_JPRB,.838E-01_JPRB,.106E+00_JPRB,.150E+00_JPRB,.192E+00_JPRB,&
+&.208E+00_JPRB,.202E+00_JPRB,.196E+00_JPRB,.116E+00_JPRB,.114E+00_JPRB,.110E+00_JPRB,.975E-01_JPRB,&
+&.771E-01_JPRB,.482E-01_JPRB,.362E-01_JPRB,.247E-01_JPRB,.261E-01_JPRB,.227E-01_JPRB,.199E-01_JPRB,&
+&.176E-01_JPRB,.204E-01_JPRB,.233E-01_JPRB,.299E-01_JPRB,.327E-01_JPRB,.357E-01_JPRB,.427E-01_JPRB,&
+&.242E-01_JPRB,.370E-01_JPRB,.281E-01_JPRB,.161E-01_JPRB,.249E-01_JPRB,.208E-01_JPRB,.155E-01_JPRB,&
+&.128E-01_JPRB,.100E-01_JPRB,.818E-02_JPRB,.764E-02_JPRB,.729E-02_JPRB,.798E-02_JPRB,.793E-02_JPRB,&
+&.778E-02_JPRB,.748E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 25  -6.0
+ZAER (:,25, 1) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.107E-01_JPRB,.986E-02_JPRB,.906E-02_JPRB,.726E-02_JPRB,.630E-02_JPRB,&
+&.567E-02_JPRB,.536E-02_JPRB,.563E-02_JPRB,.614E-02_JPRB,.756E-02_JPRB,.906E-02_JPRB,.101E-01_JPRB,&
+&.117E-01_JPRB,.153E-01_JPRB,.186E-01_JPRB,.234E-01_JPRB,.353E-01_JPRB,.452E-01_JPRB,.574E-01_JPRB,&
+&.392E-01_JPRB,.371E-01_JPRB,.343E-01_JPRB,.184E-01_JPRB,.240E-01_JPRB,.181E-01_JPRB,.196E-01_JPRB,&
+&.271E-01_JPRB,.361E-01_JPRB,.646E-01_JPRB,.989E-01_JPRB,.136E+00_JPRB,.222E+00_JPRB,.176E+00_JPRB,&
+&.189E+00_JPRB,.170E+00_JPRB,.152E+00_JPRB,.141E+00_JPRB,.129E+00_JPRB,.118E+00_JPRB,.104E+00_JPRB,&
+&.836E-01_JPRB,.523E-01_JPRB,.396E-01_JPRB,.274E-01_JPRB,.309E-01_JPRB,.283E-01_JPRB,.263E-01_JPRB,&
+&.253E-01_JPRB,.293E-01_JPRB,.332E-01_JPRB,.403E-01_JPRB,.463E-01_JPRB,.521E-01_JPRB,.642E-01_JPRB,&
+&.581E-01_JPRB,.521E-01_JPRB,.399E-01_JPRB,.364E-01_JPRB,.329E-01_JPRB,.264E-01_JPRB,.198E-01_JPRB,&
+&.164E-01_JPRB,.130E-01_JPRB,.104E-01_JPRB,.969E-02_JPRB,.933E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,&
+&.109E-01_JPRB,.112E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 26 -10.0
+ZAER (:,26, 1) = (/&
+&.153E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,.136E-01_JPRB,.126E-01_JPRB,.102E-01_JPRB,.874E-02_JPRB,&
+&.768E-02_JPRB,.662E-02_JPRB,.679E-02_JPRB,.728E-02_JPRB,.878E-02_JPRB,.104E-01_JPRB,.119E-01_JPRB,&
+&.142E-01_JPRB,.202E-01_JPRB,.251E-01_JPRB,.321E-01_JPRB,.432E-01_JPRB,.479E-01_JPRB,.523E-01_JPRB,&
+&.313E-01_JPRB,.283E-01_JPRB,.248E-01_JPRB,.220E-01_JPRB,.179E-01_JPRB,.144E-01_JPRB,.172E-01_JPRB,&
+&.231E-01_JPRB,.301E-01_JPRB,.515E-01_JPRB,.809E-01_JPRB,.117E+00_JPRB,.213E+00_JPRB,.167E+00_JPRB,&
+&.178E+00_JPRB,.161E+00_JPRB,.147E+00_JPRB,.136E+00_JPRB,.118E+00_JPRB,.104E+00_JPRB,.917E-01_JPRB,&
+&.762E-01_JPRB,.493E-01_JPRB,.377E-01_JPRB,.264E-01_JPRB,.198E-01_JPRB,.325E-01_JPRB,.326E-01_JPRB,&
+&.354E-01_JPRB,.410E-01_JPRB,.460E-01_JPRB,.503E-01_JPRB,.576E-01_JPRB,.661E-01_JPRB,.891E-01_JPRB,&
+&.827E-01_JPRB,.741E-01_JPRB,.517E-01_JPRB,.436E-01_JPRB,.377E-01_JPRB,.298E-01_JPRB,.239E-01_JPRB,&
+&.203E-01_JPRB,.159E-01_JPRB,.126E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.126E-01_JPRB,.135E-01_JPRB,&
+&.146E-01_JPRB,.152E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 27 -14.0
+ZAER (:,27, 1) = (/&
+&.193E-01_JPRB,.193E-01_JPRB,.184E-01_JPRB,.172E-01_JPRB,.160E-01_JPRB,.130E-01_JPRB,.113E-01_JPRB,&
+&.998E-02_JPRB,.833E-02_JPRB,.847E-02_JPRB,.883E-02_JPRB,.992E-02_JPRB,.110E-01_JPRB,.126E-01_JPRB,&
+&.160E-01_JPRB,.269E-01_JPRB,.349E-01_JPRB,.455E-01_JPRB,.301E-01_JPRB,.277E-01_JPRB,.391E-01_JPRB,&
+&.314E-01_JPRB,.276E-01_JPRB,.237E-01_JPRB,.146E-01_JPRB,.130E-01_JPRB,.118E-01_JPRB,.139E-01_JPRB,&
+&.172E-01_JPRB,.212E-01_JPRB,.337E-01_JPRB,.530E-01_JPRB,.780E-01_JPRB,.879E-01_JPRB,.115E+00_JPRB,&
+&.123E+00_JPRB,.114E+00_JPRB,.110E+00_JPRB,.104E+00_JPRB,.915E-01_JPRB,.780E-01_JPRB,.696E-01_JPRB,&
+&.596E-01_JPRB,.402E-01_JPRB,.317E-01_JPRB,.232E-01_JPRB,.329E-01_JPRB,.342E-01_JPRB,.360E-01_JPRB,&
+&.440E-01_JPRB,.507E-01_JPRB,.340E-01_JPRB,.598E-01_JPRB,.680E-01_JPRB,.786E-01_JPRB,.112E+00_JPRB,&
+&.648E-01_JPRB,.591E-01_JPRB,.684E-01_JPRB,.536E-01_JPRB,.447E-01_JPRB,.354E-01_JPRB,.297E-01_JPRB,&
+&.257E-01_JPRB,.205E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.143E-01_JPRB,.157E-01_JPRB,.170E-01_JPRB,&
+&.186E-01_JPRB,.193E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 28 -18.0
+ZAER (:,28, 1) = (/&
+&.229E-01_JPRB,.228E-01_JPRB,.215E-01_JPRB,.201E-01_JPRB,.187E-01_JPRB,.153E-01_JPRB,.134E-01_JPRB,&
+&.120E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.107E-01_JPRB,.112E-01_JPRB,.126E-01_JPRB,&
+&.157E-01_JPRB,.292E-01_JPRB,.232E-01_JPRB,.304E-01_JPRB,.301E-01_JPRB,.428E-01_JPRB,.318E-01_JPRB,&
+&.211E-01_JPRB,.180E-01_JPRB,.154E-01_JPRB,.115E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.111E-01_JPRB,&
+&.125E-01_JPRB,.143E-01_JPRB,.204E-01_JPRB,.314E-01_JPRB,.453E-01_JPRB,.494E-01_JPRB,.648E-01_JPRB,&
+&.704E-01_JPRB,.678E-01_JPRB,.704E-01_JPRB,.694E-01_JPRB,.652E-01_JPRB,.569E-01_JPRB,.516E-01_JPRB,&
+&.451E-01_JPRB,.317E-01_JPRB,.436E-01_JPRB,.208E-01_JPRB,.195E-01_JPRB,.205E-01_JPRB,.365E-01_JPRB,&
+&.479E-01_JPRB,.534E-01_JPRB,.350E-01_JPRB,.379E-01_JPRB,.714E-01_JPRB,.827E-01_JPRB,.726E-01_JPRB,&
+&.754E-01_JPRB,.735E-01_JPRB,.999E-01_JPRB,.769E-01_JPRB,.626E-01_JPRB,.464E-01_JPRB,.384E-01_JPRB,&
+&.338E-01_JPRB,.286E-01_JPRB,.230E-01_JPRB,.211E-01_JPRB,.197E-01_JPRB,.200E-01_JPRB,.211E-01_JPRB,&
+&.224E-01_JPRB,.228E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 29 -22.0
+ZAER (:,29, 1) = (/&
+&.254E-01_JPRB,.253E-01_JPRB,.237E-01_JPRB,.220E-01_JPRB,.203E-01_JPRB,.167E-01_JPRB,.146E-01_JPRB,&
+&.130E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.119E-01_JPRB,.128E-01_JPRB,&
+&.145E-01_JPRB,.147E-01_JPRB,.193E-01_JPRB,.423E-01_JPRB,.421E-01_JPRB,.369E-01_JPRB,.290E-01_JPRB,&
+&.192E-01_JPRB,.163E-01_JPRB,.138E-01_JPRB,.113E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,&
+&.105E-01_JPRB,.111E-01_JPRB,.136E-01_JPRB,.189E-01_JPRB,.248E-01_JPRB,.236E-01_JPRB,.310E-01_JPRB,&
+&.351E-01_JPRB,.380E-01_JPRB,.420E-01_JPRB,.440E-01_JPRB,.460E-01_JPRB,.433E-01_JPRB,.401E-01_JPRB,&
+&.355E-01_JPRB,.264E-01_JPRB,.230E-01_JPRB,.200E-01_JPRB,.191E-01_JPRB,.196E-01_JPRB,.337E-01_JPRB,&
+&.429E-01_JPRB,.280E-01_JPRB,.301E-01_JPRB,.325E-01_JPRB,.363E-01_JPRB,.419E-01_JPRB,.625E-01_JPRB,&
+&.765E-01_JPRB,.836E-01_JPRB,.839E-01_JPRB,.110E+00_JPRB,.891E-01_JPRB,.625E-01_JPRB,.500E-01_JPRB,&
+&.441E-01_JPRB,.385E-01_JPRB,.327E-01_JPRB,.301E-01_JPRB,.276E-01_JPRB,.262E-01_JPRB,.261E-01_JPRB,&
+&.263E-01_JPRB,.254E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 30 -26.0
+ZAER (:,30, 1) = (/&
+&.269E-01_JPRB,.269E-01_JPRB,.242E-01_JPRB,.220E-01_JPRB,.199E-01_JPRB,.165E-01_JPRB,.146E-01_JPRB,&
+&.131E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.130E-01_JPRB,.136E-01_JPRB,&
+&.843E-02_JPRB,.111E-01_JPRB,.138E-01_JPRB,.301E-01_JPRB,.327E-01_JPRB,.307E-01_JPRB,.271E-01_JPRB,&
+&.202E-01_JPRB,.175E-01_JPRB,.151E-01_JPRB,.123E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,&
+&.999E-02_JPRB,.101E-01_JPRB,.110E-01_JPRB,.130E-01_JPRB,.151E-01_JPRB,.193E-01_JPRB,.142E-01_JPRB,&
+&.165E-01_JPRB,.204E-01_JPRB,.243E-01_JPRB,.272E-01_JPRB,.312E-01_JPRB,.321E-01_JPRB,.308E-01_JPRB,&
+&.281E-01_JPRB,.226E-01_JPRB,.210E-01_JPRB,.197E-01_JPRB,.181E-01_JPRB,.295E-01_JPRB,.173E-01_JPRB,&
+&.201E-01_JPRB,.215E-01_JPRB,.225E-01_JPRB,.223E-01_JPRB,.243E-01_JPRB,.280E-01_JPRB,.435E-01_JPRB,&
+&.669E-01_JPRB,.838E-01_JPRB,.105E+00_JPRB,.853E-01_JPRB,.117E+00_JPRB,.807E-01_JPRB,.619E-01_JPRB,&
+&.533E-01_JPRB,.458E-01_JPRB,.408E-01_JPRB,.380E-01_JPRB,.348E-01_JPRB,.325E-01_JPRB,.313E-01_JPRB,&
+&.300E-01_JPRB,.270E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 31 -30.0
+ZAER (:,31, 1) = (/&
+&.266E-01_JPRB,.264E-01_JPRB,.222E-01_JPRB,.198E-01_JPRB,.176E-01_JPRB,.150E-01_JPRB,.137E-01_JPRB,&
+&.126E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.120E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,&
+&.825E-02_JPRB,.878E-02_JPRB,.103E-01_JPRB,.131E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.255E-01_JPRB,&
+&.214E-01_JPRB,.191E-01_JPRB,.167E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,.103E-01_JPRB,&
+&.100E-01_JPRB,.986E-02_JPRB,.101E-01_JPRB,.108E-01_JPRB,.115E-01_JPRB,.128E-01_JPRB,.831E-02_JPRB,&
+&.922E-02_JPRB,.113E-01_JPRB,.144E-01_JPRB,.168E-01_JPRB,.203E-01_JPRB,.227E-01_JPRB,.230E-01_JPRB,&
+&.226E-01_JPRB,.197E-01_JPRB,.192E-01_JPRB,.190E-01_JPRB,.177E-01_JPRB,.168E-01_JPRB,.159E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.162E-01_JPRB,.263E-01_JPRB,&
+&.508E-01_JPRB,.722E-01_JPRB,.109E+00_JPRB,.954E-01_JPRB,.817E-01_JPRB,.946E-01_JPRB,.697E-01_JPRB,&
+&.580E-01_JPRB,.475E-01_JPRB,.430E-01_JPRB,.402E-01_JPRB,.369E-01_JPRB,.348E-01_JPRB,.332E-01_JPRB,&
+&.313E-01_JPRB,.267E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 32 -34.0
+ZAER (:,32, 1) = (/&
+&.231E-01_JPRB,.230E-01_JPRB,.183E-01_JPRB,.162E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.124E-01_JPRB,&
+&.119E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.121E-01_JPRB,.132E-01_JPRB,.797E-02_JPRB,&
+&.746E-02_JPRB,.744E-02_JPRB,.839E-02_JPRB,.103E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.147E-01_JPRB,&
+&.227E-01_JPRB,.205E-01_JPRB,.181E-01_JPRB,.141E-01_JPRB,.127E-01_JPRB,.114E-01_JPRB,.104E-01_JPRB,&
+&.100E-01_JPRB,.977E-02_JPRB,.985E-02_JPRB,.103E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,&
+&.768E-02_JPRB,.901E-02_JPRB,.113E-01_JPRB,.133E-01_JPRB,.274E-01_JPRB,.327E-01_JPRB,.349E-01_JPRB,&
+&.369E-01_JPRB,.345E-01_JPRB,.206E-01_JPRB,.207E-01_JPRB,.205E-01_JPRB,.195E-01_JPRB,.184E-01_JPRB,&
+&.168E-01_JPRB,.154E-01_JPRB,.140E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.111E-01_JPRB,.162E-01_JPRB,&
+&.339E-01_JPRB,.515E-01_JPRB,.874E-01_JPRB,.843E-01_JPRB,.762E-01_JPRB,.931E-01_JPRB,.678E-01_JPRB,&
+&.332E-01_JPRB,.434E-01_JPRB,.388E-01_JPRB,.361E-01_JPRB,.331E-01_JPRB,.309E-01_JPRB,.294E-01_JPRB,&
+&.277E-01_JPRB,.233E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 33 -38.0
+ZAER (:,33, 1) = (/&
+&.179E-01_JPRB,.178E-01_JPRB,.143E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.110E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,.119E-01_JPRB,.724E-02_JPRB,.699E-02_JPRB,&
+&.622E-02_JPRB,.626E-02_JPRB,.697E-02_JPRB,.833E-02_JPRB,.113E-01_JPRB,.127E-01_JPRB,.140E-01_JPRB,&
+&.234E-01_JPRB,.215E-01_JPRB,.192E-01_JPRB,.143E-01_JPRB,.128E-01_JPRB,.114E-01_JPRB,.101E-01_JPRB,&
+&.975E-02_JPRB,.953E-02_JPRB,.100E-01_JPRB,.110E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,&
+&.941E-02_JPRB,.202E-01_JPRB,.273E-01_JPRB,.328E-01_JPRB,.407E-01_JPRB,.470E-01_JPRB,.499E-01_JPRB,&
+&.316E-01_JPRB,.300E-01_JPRB,.293E-01_JPRB,.284E-01_JPRB,.279E-01_JPRB,.264E-01_JPRB,.248E-01_JPRB,&
+&.204E-01_JPRB,.181E-01_JPRB,.160E-01_JPRB,.131E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.131E-01_JPRB,&
+&.213E-01_JPRB,.305E-01_JPRB,.512E-01_JPRB,.555E-01_JPRB,.897E-01_JPRB,.734E-01_JPRB,.555E-01_JPRB,&
+&.459E-01_JPRB,.214E-01_JPRB,.312E-01_JPRB,.289E-01_JPRB,.264E-01_JPRB,.239E-01_JPRB,.225E-01_JPRB,&
+&.211E-01_JPRB,.180E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 34 -42.0
+ZAER (:,34, 1) = (/&
+&.136E-01_JPRB,.136E-01_JPRB,.117E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.990E-02_JPRB,.997E-02_JPRB,.103E-01_JPRB,.113E-01_JPRB,.648E-02_JPRB,.609E-02_JPRB,&
+&.531E-02_JPRB,.533E-02_JPRB,.578E-02_JPRB,.666E-02_JPRB,.909E-02_JPRB,.105E-01_JPRB,.120E-01_JPRB,&
+&.130E-01_JPRB,.206E-01_JPRB,.192E-01_JPRB,.139E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.963E-02_JPRB,&
+&.930E-02_JPRB,.924E-02_JPRB,.107E-01_JPRB,.126E-01_JPRB,.141E-01_JPRB,.156E-01_JPRB,.200E-01_JPRB,&
+&.154E-01_JPRB,.228E-01_JPRB,.569E-01_JPRB,.682E-01_JPRB,.814E-01_JPRB,.511E-01_JPRB,.517E-01_JPRB,&
+&.865E-01_JPRB,.805E-01_JPRB,.454E-01_JPRB,.420E-01_JPRB,.636E-01_JPRB,.352E-01_JPRB,.322E-01_JPRB,&
+&.262E-01_JPRB,.239E-01_JPRB,.217E-01_JPRB,.184E-01_JPRB,.169E-01_JPRB,.158E-01_JPRB,.143E-01_JPRB,&
+&.160E-01_JPRB,.186E-01_JPRB,.258E-01_JPRB,.300E-01_JPRB,.310E-01_JPRB,.292E-01_JPRB,.239E-01_JPRB,&
+&.344E-01_JPRB,.278E-01_JPRB,.238E-01_JPRB,.221E-01_JPRB,.203E-01_JPRB,.182E-01_JPRB,.170E-01_JPRB,&
+&.159E-01_JPRB,.137E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 35 -46.0
+ZAER (:,35, 1) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,.962E-02_JPRB,.951E-02_JPRB,.960E-02_JPRB,&
+&.965E-02_JPRB,.960E-02_JPRB,.974E-02_JPRB,.990E-02_JPRB,.102E-01_JPRB,.579E-02_JPRB,.545E-02_JPRB,&
+&.485E-02_JPRB,.477E-02_JPRB,.495E-02_JPRB,.535E-02_JPRB,.672E-02_JPRB,.764E-02_JPRB,.872E-02_JPRB,&
+&.985E-02_JPRB,.982E-02_JPRB,.968E-02_JPRB,.130E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,.919E-02_JPRB,&
+&.906E-02_JPRB,.925E-02_JPRB,.115E-01_JPRB,.146E-01_JPRB,.171E-01_JPRB,.213E-01_JPRB,.310E-01_JPRB,&
+&.434E-01_JPRB,.424E-01_JPRB,.658E-01_JPRB,.773E-01_JPRB,.877E-01_JPRB,.841E-01_JPRB,.810E-01_JPRB,&
+&.769E-01_JPRB,.709E-01_JPRB,.652E-01_JPRB,.585E-01_JPRB,.817E-01_JPRB,.438E-01_JPRB,.386E-01_JPRB,&
+&.328E-01_JPRB,.311E-01_JPRB,.293E-01_JPRB,.250E-01_JPRB,.222E-01_JPRB,.200E-01_JPRB,.171E-01_JPRB,&
+&.163E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.159E-01_JPRB,&
+&.143E-01_JPRB,.204E-01_JPRB,.179E-01_JPRB,.168E-01_JPRB,.157E-01_JPRB,.143E-01_JPRB,.136E-01_JPRB,&
+&.128E-01_JPRB,.113E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 36 -50.0
+ZAER (:,36, 1) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.996E-02_JPRB,.972E-02_JPRB,.951E-02_JPRB,.923E-02_JPRB,.918E-02_JPRB,&
+&.912E-02_JPRB,.899E-02_JPRB,.895E-02_JPRB,.888E-02_JPRB,.522E-02_JPRB,.498E-02_JPRB,.478E-02_JPRB,&
+&.444E-02_JPRB,.435E-02_JPRB,.440E-02_JPRB,.455E-02_JPRB,.503E-02_JPRB,.538E-02_JPRB,.581E-02_JPRB,&
+&.644E-02_JPRB,.666E-02_JPRB,.687E-02_JPRB,.110E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,.926E-02_JPRB,&
+&.934E-02_JPRB,.969E-02_JPRB,.120E-01_JPRB,.153E-01_JPRB,.186E-01_JPRB,.255E-01_JPRB,.400E-01_JPRB,&
+&.585E-01_JPRB,.592E-01_JPRB,.939E-01_JPRB,.109E+00_JPRB,.121E+00_JPRB,.113E+00_JPRB,.107E+00_JPRB,&
+&.101E+00_JPRB,.928E-01_JPRB,.841E-01_JPRB,.737E-01_JPRB,.587E-01_JPRB,.517E-01_JPRB,.449E-01_JPRB,&
+&.385E-01_JPRB,.369E-01_JPRB,.351E-01_JPRB,.306E-01_JPRB,.270E-01_JPRB,.241E-01_JPRB,.203E-01_JPRB,&
+&.183E-01_JPRB,.168E-01_JPRB,.146E-01_JPRB,.131E-01_JPRB,.121E-01_JPRB,.111E-01_JPRB,.983E-02_JPRB,&
+&.908E-02_JPRB,.824E-02_JPRB,.131E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,&
+&.108E-01_JPRB,.103E-01_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 37 -54.0
+ZAER (:,37, 1) = (/&
+&.967E-02_JPRB,.967E-02_JPRB,.980E-02_JPRB,.971E-02_JPRB,.958E-02_JPRB,.907E-02_JPRB,.873E-02_JPRB,&
+&.846E-02_JPRB,.805E-02_JPRB,.778E-02_JPRB,.455E-02_JPRB,.439E-02_JPRB,.427E-02_JPRB,.419E-02_JPRB,&
+&.409E-02_JPRB,.404E-02_JPRB,.405E-02_JPRB,.409E-02_JPRB,.428E-02_JPRB,.440E-02_JPRB,.757E-02_JPRB,&
+&.476E-02_JPRB,.493E-02_JPRB,.512E-02_JPRB,.540E-02_JPRB,.906E-02_JPRB,.910E-02_JPRB,.907E-02_JPRB,&
+&.962E-02_JPRB,.103E-01_JPRB,.124E-01_JPRB,.146E-01_JPRB,.170E-01_JPRB,.230E-01_JPRB,.358E-01_JPRB,&
+&.308E-01_JPRB,.846E-01_JPRB,.131E+00_JPRB,.914E-01_JPRB,.102E+00_JPRB,.103E+00_JPRB,.104E+00_JPRB,&
+&.106E+00_JPRB,.100E+00_JPRB,.909E-01_JPRB,.790E-01_JPRB,.622E-01_JPRB,.550E-01_JPRB,.481E-01_JPRB,&
+&.405E-01_JPRB,.377E-01_JPRB,.351E-01_JPRB,.314E-01_JPRB,.287E-01_JPRB,.262E-01_JPRB,.219E-01_JPRB,&
+&.187E-01_JPRB,.164E-01_JPRB,.132E-01_JPRB,.108E-01_JPRB,.937E-02_JPRB,.767E-02_JPRB,.663E-02_JPRB,&
+&.624E-02_JPRB,.100E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,.598E-02_JPRB,.975E-02_JPRB,&
+&.952E-02_JPRB,.966E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 38 -58.0
+ZAER (:,38, 1) = (/&
+&.893E-02_JPRB,.895E-02_JPRB,.955E-02_JPRB,.952E-02_JPRB,.944E-02_JPRB,.881E-02_JPRB,.829E-02_JPRB,&
+&.786E-02_JPRB,.724E-02_JPRB,.417E-02_JPRB,.407E-02_JPRB,.401E-02_JPRB,.402E-02_JPRB,.400E-02_JPRB,&
+&.396E-02_JPRB,.392E-02_JPRB,.392E-02_JPRB,.394E-02_JPRB,.674E-02_JPRB,.686E-02_JPRB,.700E-02_JPRB,&
+&.438E-02_JPRB,.449E-02_JPRB,.461E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.793E-02_JPRB,.818E-02_JPRB,&
+&.904E-02_JPRB,.993E-02_JPRB,.120E-01_JPRB,.136E-01_JPRB,.152E-01_JPRB,.188E-01_JPRB,.262E-01_JPRB,&
+&.331E-01_JPRB,.455E-01_JPRB,.602E-01_JPRB,.412E-01_JPRB,.469E-01_JPRB,.934E-01_JPRB,.633E-01_JPRB,&
+&.728E-01_JPRB,.740E-01_JPRB,.696E-01_JPRB,.633E-01_JPRB,.527E-01_JPRB,.475E-01_JPRB,.425E-01_JPRB,&
+&.348E-01_JPRB,.319E-01_JPRB,.293E-01_JPRB,.272E-01_JPRB,.260E-01_JPRB,.247E-01_JPRB,.210E-01_JPRB,&
+&.176E-01_JPRB,.150E-01_JPRB,.117E-01_JPRB,.953E-02_JPRB,.818E-02_JPRB,.659E-02_JPRB,.552E-02_JPRB,&
+&.513E-02_JPRB,.490E-02_JPRB,.848E-02_JPRB,.860E-02_JPRB,.871E-02_JPRB,.510E-02_JPRB,.845E-02_JPRB,&
+&.841E-02_JPRB,.892E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 39 -62.0
+ZAER (:,39, 1) = (/&
+&.822E-02_JPRB,.823E-02_JPRB,.872E-02_JPRB,.878E-02_JPRB,.528E-02_JPRB,.504E-02_JPRB,.478E-02_JPRB,&
+&.456E-02_JPRB,.423E-02_JPRB,.411E-02_JPRB,.405E-02_JPRB,.407E-02_JPRB,.409E-02_JPRB,.408E-02_JPRB,&
+&.402E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.397E-02_JPRB,.672E-02_JPRB,.683E-02_JPRB,.696E-02_JPRB,&
+&.438E-02_JPRB,.744E-02_JPRB,.756E-02_JPRB,.738E-02_JPRB,.722E-02_JPRB,.709E-02_JPRB,.441E-02_JPRB,&
+&.815E-02_JPRB,.898E-02_JPRB,.111E-01_JPRB,.129E-01_JPRB,.144E-01_JPRB,.170E-01_JPRB,.197E-01_JPRB,&
+&.216E-01_JPRB,.241E-01_JPRB,.265E-01_JPRB,.173E-01_JPRB,.197E-01_JPRB,.413E-01_JPRB,.286E-01_JPRB,&
+&.336E-01_JPRB,.386E-01_JPRB,.398E-01_JPRB,.406E-01_JPRB,.381E-01_JPRB,.353E-01_JPRB,.324E-01_JPRB,&
+&.267E-01_JPRB,.247E-01_JPRB,.229E-01_JPRB,.214E-01_JPRB,.208E-01_JPRB,.200E-01_JPRB,.177E-01_JPRB,&
+&.153E-01_JPRB,.134E-01_JPRB,.106E-01_JPRB,.883E-02_JPRB,.767E-02_JPRB,.629E-02_JPRB,.533E-02_JPRB,&
+&.490E-02_JPRB,.456E-02_JPRB,.453E-02_JPRB,.458E-02_JPRB,.467E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,&
+&.470E-02_JPRB,.821E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 40 -66.0
+ZAER (:,40, 1) = (/&
+&.478E-02_JPRB,.479E-02_JPRB,.819E-02_JPRB,.829E-02_JPRB,.500E-02_JPRB,.492E-02_JPRB,.477E-02_JPRB,&
+&.464E-02_JPRB,.444E-02_JPRB,.437E-02_JPRB,.433E-02_JPRB,.433E-02_JPRB,.431E-02_JPRB,.428E-02_JPRB,&
+&.420E-02_JPRB,.413E-02_JPRB,.410E-02_JPRB,.408E-02_JPRB,.409E-02_JPRB,.413E-02_JPRB,.695E-02_JPRB,&
+&.427E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.683E-02_JPRB,.667E-02_JPRB,.392E-02_JPRB,.405E-02_JPRB,&
+&.442E-02_JPRB,.802E-02_JPRB,.961E-02_JPRB,.110E-01_JPRB,.122E-01_JPRB,.139E-01_JPRB,.152E-01_JPRB,&
+&.159E-01_JPRB,.166E-01_JPRB,.172E-01_JPRB,.181E-01_JPRB,.118E-01_JPRB,.144E-01_JPRB,.166E-01_JPRB,&
+&.196E-01_JPRB,.239E-01_JPRB,.259E-01_JPRB,.278E-01_JPRB,.280E-01_JPRB,.269E-01_JPRB,.256E-01_JPRB,&
+&.225E-01_JPRB,.211E-01_JPRB,.197E-01_JPRB,.180E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,.149E-01_JPRB,&
+&.134E-01_JPRB,.121E-01_JPRB,.102E-01_JPRB,.884E-02_JPRB,.796E-02_JPRB,.691E-02_JPRB,.601E-02_JPRB,&
+&.554E-02_JPRB,.507E-02_JPRB,.484E-02_JPRB,.480E-02_JPRB,.480E-02_JPRB,.481E-02_JPRB,.479E-02_JPRB,&
+&.476E-02_JPRB,.478E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 41 -70.0
+ZAER (:,41, 1) = (/&
+&.819E-02_JPRB,.820E-02_JPRB,.828E-02_JPRB,.832E-02_JPRB,.501E-02_JPRB,.500E-02_JPRB,.494E-02_JPRB,&
+&.490E-02_JPRB,.804E-02_JPRB,.799E-02_JPRB,.477E-02_JPRB,.793E-02_JPRB,.783E-02_JPRB,.463E-02_JPRB,&
+&.450E-02_JPRB,.435E-02_JPRB,.712E-02_JPRB,.417E-02_JPRB,.409E-02_JPRB,.404E-02_JPRB,.400E-02_JPRB,&
+&.395E-02_JPRB,.391E-02_JPRB,.647E-02_JPRB,.629E-02_JPRB,.624E-02_JPRB,.373E-02_JPRB,.387E-02_JPRB,&
+&.414E-02_JPRB,.442E-02_JPRB,.508E-02_JPRB,.565E-02_JPRB,.102E-01_JPRB,.115E-01_JPRB,.123E-01_JPRB,&
+&.128E-01_JPRB,.132E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.149E-01_JPRB,.171E-01_JPRB,.114E-01_JPRB,&
+&.130E-01_JPRB,.260E-01_JPRB,.283E-01_JPRB,.307E-01_JPRB,.324E-01_JPRB,.322E-01_JPRB,.319E-01_JPRB,&
+&.303E-01_JPRB,.176E-01_JPRB,.170E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,.144E-01_JPRB,.132E-01_JPRB,&
+&.122E-01_JPRB,.114E-01_JPRB,.102E-01_JPRB,.918E-02_JPRB,.849E-02_JPRB,.762E-02_JPRB,.681E-02_JPRB,&
+&.633E-02_JPRB,.576E-02_JPRB,.534E-02_JPRB,.517E-02_JPRB,.503E-02_JPRB,.496E-02_JPRB,.494E-02_JPRB,&
+&.820E-02_JPRB,.492E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 42 -74.0
+ZAER (:,42, 1) = (/&
+&.849E-02_JPRB,.849E-02_JPRB,.858E-02_JPRB,.862E-02_JPRB,.866E-02_JPRB,.871E-02_JPRB,.873E-02_JPRB,&
+&.875E-02_JPRB,.876E-02_JPRB,.874E-02_JPRB,.871E-02_JPRB,.862E-02_JPRB,.506E-02_JPRB,.495E-02_JPRB,&
+&.795E-02_JPRB,.758E-02_JPRB,.734E-02_JPRB,.705E-02_JPRB,.675E-02_JPRB,.395E-02_JPRB,.641E-02_JPRB,&
+&.622E-02_JPRB,.615E-02_JPRB,.608E-02_JPRB,.604E-02_JPRB,.365E-02_JPRB,.369E-02_JPRB,.386E-02_JPRB,&
+&.406E-02_JPRB,.426E-02_JPRB,.470E-02_JPRB,.507E-02_JPRB,.899E-02_JPRB,.984E-02_JPRB,.105E-01_JPRB,&
+&.109E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.127E-01_JPRB,.138E-01_JPRB,.147E-01_JPRB,&
+&.159E-01_JPRB,.180E-01_JPRB,.191E-01_JPRB,.204E-01_JPRB,.217E-01_JPRB,.220E-01_JPRB,.223E-01_JPRB,&
+&.224E-01_JPRB,.223E-01_JPRB,.221E-01_JPRB,.215E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,&
+&.108E-01_JPRB,.103E-01_JPRB,.951E-02_JPRB,.880E-02_JPRB,.138E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,&
+&.110E-01_JPRB,.102E-01_JPRB,.943E-02_JPRB,.909E-02_JPRB,.876E-02_JPRB,.854E-02_JPRB,.849E-02_JPRB,&
+&.845E-02_JPRB,.849E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 43 -78.0
+ZAER (:,43, 1) = (/&
+&.893E-02_JPRB,.894E-02_JPRB,.897E-02_JPRB,.899E-02_JPRB,.902E-02_JPRB,.904E-02_JPRB,.905E-02_JPRB,&
+&.906E-02_JPRB,.903E-02_JPRB,.896E-02_JPRB,.889E-02_JPRB,.874E-02_JPRB,.852E-02_JPRB,.834E-02_JPRB,&
+&.806E-02_JPRB,.772E-02_JPRB,.750E-02_JPRB,.723E-02_JPRB,.415E-02_JPRB,.406E-02_JPRB,.395E-02_JPRB,&
+&.640E-02_JPRB,.634E-02_JPRB,.377E-02_JPRB,.376E-02_JPRB,.380E-02_JPRB,.384E-02_JPRB,.397E-02_JPRB,&
+&.410E-02_JPRB,.423E-02_JPRB,.450E-02_JPRB,.472E-02_JPRB,.818E-02_JPRB,.869E-02_JPRB,.910E-02_JPRB,&
+&.940E-02_JPRB,.980E-02_JPRB,.102E-01_JPRB,.104E-01_JPRB,.650E-02_JPRB,.114E-01_JPRB,.118E-01_JPRB,&
+&.123E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,.142E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,&
+&.158E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,&
+&.147E-01_JPRB,.856E-02_JPRB,.136E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,.112E-01_JPRB,&
+&.108E-01_JPRB,.103E-01_JPRB,.982E-02_JPRB,.957E-02_JPRB,.931E-02_JPRB,.909E-02_JPRB,.902E-02_JPRB,&
+&.895E-02_JPRB,.894E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 44 -82.0
+ZAER (:,44, 1) = (/&
+&.921E-02_JPRB,.921E-02_JPRB,.916E-02_JPRB,.913E-02_JPRB,.911E-02_JPRB,.906E-02_JPRB,.901E-02_JPRB,&
+&.897E-02_JPRB,.889E-02_JPRB,.880E-02_JPRB,.872E-02_JPRB,.859E-02_JPRB,.844E-02_JPRB,.833E-02_JPRB,&
+&.816E-02_JPRB,.797E-02_JPRB,.785E-02_JPRB,.770E-02_JPRB,.752E-02_JPRB,.742E-02_JPRB,.439E-02_JPRB,&
+&.432E-02_JPRB,.430E-02_JPRB,.428E-02_JPRB,.427E-02_JPRB,.429E-02_JPRB,.430E-02_JPRB,.437E-02_JPRB,&
+&.443E-02_JPRB,.448E-02_JPRB,.461E-02_JPRB,.470E-02_JPRB,.479E-02_JPRB,.822E-02_JPRB,.843E-02_JPRB,&
+&.858E-02_JPRB,.880E-02_JPRB,.902E-02_JPRB,.918E-02_JPRB,.939E-02_JPRB,.966E-02_JPRB,.984E-02_JPRB,&
+&.101E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,&
+&.115E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.115E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,&
+&.102E-01_JPRB,.100E-01_JPRB,.982E-02_JPRB,.970E-02_JPRB,.957E-02_JPRB,.943E-02_JPRB,.936E-02_JPRB,&
+&.929E-02_JPRB,.922E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 45 -86.0
+ZAER (:,45, 1) = (/&
+&.914E-02_JPRB,.914E-02_JPRB,.908E-02_JPRB,.905E-02_JPRB,.902E-02_JPRB,.897E-02_JPRB,.893E-02_JPRB,&
+&.890E-02_JPRB,.885E-02_JPRB,.880E-02_JPRB,.876E-02_JPRB,.870E-02_JPRB,.865E-02_JPRB,.861E-02_JPRB,&
+&.855E-02_JPRB,.849E-02_JPRB,.845E-02_JPRB,.841E-02_JPRB,.836E-02_JPRB,.833E-02_JPRB,.829E-02_JPRB,&
+&.826E-02_JPRB,.824E-02_JPRB,.823E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.825E-02_JPRB,&
+&.827E-02_JPRB,.830E-02_JPRB,.835E-02_JPRB,.840E-02_JPRB,.844E-02_JPRB,.850E-02_JPRB,.857E-02_JPRB,&
+&.862E-02_JPRB,.869E-02_JPRB,.877E-02_JPRB,.882E-02_JPRB,.889E-02_JPRB,.898E-02_JPRB,.903E-02_JPRB,&
+&.910E-02_JPRB,.919E-02_JPRB,.924E-02_JPRB,.929E-02_JPRB,.937E-02_JPRB,.942E-02_JPRB,.946E-02_JPRB,&
+&.953E-02_JPRB,.955E-02_JPRB,.958E-02_JPRB,.961E-02_JPRB,.963E-02_JPRB,.964E-02_JPRB,.965E-02_JPRB,&
+&.964E-02_JPRB,.963E-02_JPRB,.961E-02_JPRB,.959E-02_JPRB,.957E-02_JPRB,.954E-02_JPRB,.949E-02_JPRB,&
+&.947E-02_JPRB,.943E-02_JPRB,.938E-02_JPRB,.934E-02_JPRB,.931E-02_JPRB,.926E-02_JPRB,.923E-02_JPRB,&
+&.919E-02_JPRB,.914E-02_JPRB/)
+!-- Organic Aerosol          month:  1 --- lat: 46 -90.0
+ZAER (:,46, 1) = (/&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=1   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_01
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_02.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_02
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,2:2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  2 --- lat:  1  90.0
+ZAER (:, 1, 2) = (/&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  2  86.0
+ZAER (:, 2, 2) = (/&
+&.111E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,&
+&.110E-02_JPRB,.111E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  3  82.0
+ZAER (:, 3, 2) = (/&
+&.111E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,&
+&.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,&
+&.118E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,&
+&.105E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.998E-03_JPRB,.991E-03_JPRB,.985E-03_JPRB,&
+&.975E-03_JPRB,.971E-03_JPRB,.967E-03_JPRB,.962E-03_JPRB,.959E-03_JPRB,.958E-03_JPRB,.956E-03_JPRB,&
+&.956E-03_JPRB,.956E-03_JPRB,.959E-03_JPRB,.962E-03_JPRB,.965E-03_JPRB,.972E-03_JPRB,.981E-03_JPRB,&
+&.988E-03_JPRB,.999E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,&
+&.109E-02_JPRB,.111E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  4  78.0
+ZAER (:, 4, 2) = (/&
+&.113E-02_JPRB,.113E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.123E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,&
+&.126E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,&
+&.139E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.150E-02_JPRB,&
+&.150E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,.135E-02_JPRB,.130E-02_JPRB,&
+&.126E-02_JPRB,.121E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.104E-02_JPRB,&
+&.102E-02_JPRB,.997E-03_JPRB,.986E-03_JPRB,.973E-03_JPRB,.956E-03_JPRB,.947E-03_JPRB,.939E-03_JPRB,&
+&.924E-03_JPRB,.917E-03_JPRB,.910E-03_JPRB,.899E-03_JPRB,.893E-03_JPRB,.889E-03_JPRB,.883E-03_JPRB,&
+&.880E-03_JPRB,.879E-03_JPRB,.880E-03_JPRB,.884E-03_JPRB,.888E-03_JPRB,.897E-03_JPRB,.912E-03_JPRB,&
+&.924E-03_JPRB,.942E-03_JPRB,.969E-03_JPRB,.988E-03_JPRB,.101E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,&
+&.109E-02_JPRB,.113E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  5  74.0
+ZAER (:, 5, 2) = (/&
+&.116E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,&
+&.126E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.138E-02_JPRB,.141E-02_JPRB,.144E-02_JPRB,&
+&.149E-02_JPRB,.152E-02_JPRB,.155E-02_JPRB,.162E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,.173E-02_JPRB,&
+&.175E-02_JPRB,.175E-02_JPRB,.173E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,.152E-02_JPRB,.143E-02_JPRB,&
+&.137E-02_JPRB,.128E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,&
+&.105E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.987E-03_JPRB,.978E-03_JPRB,.969E-03_JPRB,&
+&.949E-03_JPRB,.939E-03_JPRB,.928E-03_JPRB,.908E-03_JPRB,.896E-03_JPRB,.886E-03_JPRB,.870E-03_JPRB,&
+&.860E-03_JPRB,.854E-03_JPRB,.850E-03_JPRB,.854E-03_JPRB,.860E-03_JPRB,.874E-03_JPRB,.897E-03_JPRB,&
+&.915E-03_JPRB,.942E-03_JPRB,.979E-03_JPRB,.100E-02_JPRB,.103E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,&
+&.112E-02_JPRB,.116E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  6  70.0
+ZAER (:, 6, 2) = (/&
+&.119E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,&
+&.127E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.141E-02_JPRB,.149E-02_JPRB,.153E-02_JPRB,.159E-02_JPRB,&
+&.166E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,.185E-02_JPRB,.189E-02_JPRB,.193E-02_JPRB,.200E-02_JPRB,&
+&.203E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.195E-02_JPRB,.187E-02_JPRB,.172E-02_JPRB,.158E-02_JPRB,&
+&.149E-02_JPRB,.137E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,&
+&.115E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,&
+&.107E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.101E-02_JPRB,.984E-03_JPRB,.962E-03_JPRB,.926E-03_JPRB,&
+&.905E-03_JPRB,.891E-03_JPRB,.881E-03_JPRB,.889E-03_JPRB,.900E-03_JPRB,.926E-03_JPRB,.963E-03_JPRB,&
+&.990E-03_JPRB,.103E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,&
+&.117E-02_JPRB,.119E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  7  66.0
+ZAER (:, 7, 2) = (/&
+&.122E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,&
+&.133E-02_JPRB,.139E-02_JPRB,.145E-02_JPRB,.152E-02_JPRB,.167E-02_JPRB,.175E-02_JPRB,.184E-02_JPRB,&
+&.197E-02_JPRB,.204E-02_JPRB,.211E-02_JPRB,.223E-02_JPRB,.227E-02_JPRB,.231E-02_JPRB,.234E-02_JPRB,&
+&.235E-02_JPRB,.235E-02_JPRB,.232E-02_JPRB,.221E-02_JPRB,.211E-02_JPRB,.188E-02_JPRB,.170E-02_JPRB,&
+&.159E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,&
+&.135E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,&
+&.126E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.105E-02_JPRB,&
+&.101E-02_JPRB,.995E-03_JPRB,.982E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.108E-02_JPRB,.114E-02_JPRB,&
+&.117E-02_JPRB,.121E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,&
+&.123E-02_JPRB,.122E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  8  62.0
+ZAER (:, 8, 2) = (/&
+&.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,&
+&.137E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,&
+&.141E-02_JPRB,.147E-02_JPRB,.153E-02_JPRB,.163E-02_JPRB,.187E-02_JPRB,.200E-02_JPRB,.215E-02_JPRB,&
+&.232E-02_JPRB,.241E-02_JPRB,.250E-02_JPRB,.270E-02_JPRB,.278E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,&
+&.278E-02_JPRB,.272E-02_JPRB,.258E-02_JPRB,.241E-02_JPRB,.226E-02_JPRB,.199E-02_JPRB,.179E-02_JPRB,&
+&.167E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.155E-02_JPRB,.158E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,&
+&.158E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,&
+&.149E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.123E-02_JPRB,&
+&.119E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.119E-02_JPRB,.123E-02_JPRB,.132E-02_JPRB,.139E-02_JPRB,&
+&.142E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,&
+&.136E-02_JPRB,.133E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat:  9  58.0
+ZAER (:, 9, 2) = (/&
+&.152E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,&
+&.154E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,&
+&.152E-02_JPRB,.157E-02_JPRB,.163E-02_JPRB,.173E-02_JPRB,.201E-02_JPRB,.217E-02_JPRB,.235E-02_JPRB,&
+&.255E-02_JPRB,.268E-02_JPRB,.282E-02_JPRB,.325E-02_JPRB,.346E-02_JPRB,.365E-02_JPRB,.358E-02_JPRB,&
+&.340E-02_JPRB,.324E-02_JPRB,.298E-02_JPRB,.269E-02_JPRB,.247E-02_JPRB,.212E-02_JPRB,.190E-02_JPRB,&
+&.177E-02_JPRB,.164E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.164E-02_JPRB,.167E-02_JPRB,.168E-02_JPRB,&
+&.169E-02_JPRB,.165E-02_JPRB,.161E-02_JPRB,.157E-02_JPRB,.155E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,&
+&.168E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,.165E-02_JPRB,.158E-02_JPRB,.152E-02_JPRB,.143E-02_JPRB,&
+&.139E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.139E-02_JPRB,.144E-02_JPRB,.155E-02_JPRB,.163E-02_JPRB,&
+&.165E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,&
+&.156E-02_JPRB,.153E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 10  54.0
+ZAER (:,10, 2) = (/&
+&.171E-02_JPRB,.171E-02_JPRB,.169E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.167E-02_JPRB,&
+&.168E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,&
+&.167E-02_JPRB,.174E-02_JPRB,.181E-02_JPRB,.191E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.221E-02_JPRB,&
+&.239E-02_JPRB,.155E-02_JPRB,.281E-02_JPRB,.365E-02_JPRB,.411E-02_JPRB,.453E-02_JPRB,.444E-02_JPRB,&
+&.410E-02_JPRB,.380E-02_JPRB,.341E-02_JPRB,.304E-02_JPRB,.274E-02_JPRB,.224E-02_JPRB,.197E-02_JPRB,&
+&.182E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.166E-02_JPRB,.169E-02_JPRB,&
+&.173E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.171E-02_JPRB,.173E-02_JPRB,&
+&.182E-02_JPRB,.185E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.175E-02_JPRB,.168E-02_JPRB,.158E-02_JPRB,&
+&.154E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,.160E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,&
+&.177E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.179E-02_JPRB,&
+&.175E-02_JPRB,.172E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 11  50.0
+ZAER (:,11, 2) = (/&
+&.198E-02_JPRB,.198E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,&
+&.180E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,.181E-02_JPRB,&
+&.184E-02_JPRB,.190E-02_JPRB,.196E-02_JPRB,.205E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.225E-02_JPRB,.150E-02_JPRB,.280E-02_JPRB,.415E-02_JPRB,.502E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,&
+&.516E-02_JPRB,.461E-02_JPRB,.393E-02_JPRB,.348E-02_JPRB,.309E-02_JPRB,.243E-02_JPRB,.208E-02_JPRB,&
+&.189E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,.168E-02_JPRB,.170E-02_JPRB,.178E-02_JPRB,.183E-02_JPRB,&
+&.190E-02_JPRB,.191E-02_JPRB,.189E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,&
+&.194E-02_JPRB,.198E-02_JPRB,.201E-02_JPRB,.203E-02_JPRB,.194E-02_JPRB,.186E-02_JPRB,.174E-02_JPRB,&
+&.170E-02_JPRB,.168E-02_JPRB,.167E-02_JPRB,.176E-02_JPRB,.184E-02_JPRB,.196E-02_JPRB,.194E-02_JPRB,&
+&.192E-02_JPRB,.188E-02_JPRB,.192E-02_JPRB,.195E-02_JPRB,.199E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,&
+&.202E-02_JPRB,.198E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 12  46.0
+ZAER (:,12, 2) = (/&
+&.241E-02_JPRB,.240E-02_JPRB,.228E-02_JPRB,.222E-02_JPRB,.217E-02_JPRB,.207E-02_JPRB,.201E-02_JPRB,&
+&.197E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.192E-02_JPRB,.195E-02_JPRB,.200E-02_JPRB,.203E-02_JPRB,&
+&.205E-02_JPRB,.210E-02_JPRB,.213E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,.211E-02_JPRB,&
+&.230E-02_JPRB,.160E-02_JPRB,.309E-02_JPRB,.530E-02_JPRB,.663E-02_JPRB,.783E-02_JPRB,.759E-02_JPRB,&
+&.659E-02_JPRB,.572E-02_JPRB,.459E-02_JPRB,.398E-02_JPRB,.349E-02_JPRB,.279E-02_JPRB,.236E-02_JPRB,&
+&.213E-02_JPRB,.194E-02_JPRB,.189E-02_JPRB,.192E-02_JPRB,.200E-02_JPRB,.217E-02_JPRB,.227E-02_JPRB,&
+&.238E-02_JPRB,.232E-02_JPRB,.223E-02_JPRB,.211E-02_JPRB,.205E-02_JPRB,.207E-02_JPRB,.209E-02_JPRB,&
+&.212E-02_JPRB,.218E-02_JPRB,.224E-02_JPRB,.234E-02_JPRB,.226E-02_JPRB,.218E-02_JPRB,.204E-02_JPRB,&
+&.197E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.209E-02_JPRB,.219E-02_JPRB,.233E-02_JPRB,.227E-02_JPRB,&
+&.222E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,.211E-02_JPRB,.215E-02_JPRB,.227E-02_JPRB,.234E-02_JPRB,&
+&.242E-02_JPRB,.241E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 13  42.0
+ZAER (:,13, 2) = (/&
+&.304E-02_JPRB,.304E-02_JPRB,.287E-02_JPRB,.278E-02_JPRB,.269E-02_JPRB,.247E-02_JPRB,.237E-02_JPRB,&
+&.229E-02_JPRB,.223E-02_JPRB,.223E-02_JPRB,.224E-02_JPRB,.228E-02_JPRB,.232E-02_JPRB,.233E-02_JPRB,&
+&.235E-02_JPRB,.237E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.226E-02_JPRB,.223E-02_JPRB,.220E-02_JPRB,&
+&.257E-02_JPRB,.197E-02_JPRB,.245E-02_JPRB,.825E-02_JPRB,.985E-02_JPRB,.112E-01_JPRB,.959E-02_JPRB,&
+&.805E-02_JPRB,.674E-02_JPRB,.515E-02_JPRB,.440E-02_JPRB,.385E-02_JPRB,.324E-02_JPRB,.282E-02_JPRB,&
+&.259E-02_JPRB,.239E-02_JPRB,.242E-02_JPRB,.250E-02_JPRB,.270E-02_JPRB,.304E-02_JPRB,.323E-02_JPRB,&
+&.344E-02_JPRB,.319E-02_JPRB,.297E-02_JPRB,.272E-02_JPRB,.251E-02_JPRB,.250E-02_JPRB,.250E-02_JPRB,&
+&.253E-02_JPRB,.261E-02_JPRB,.269E-02_JPRB,.289E-02_JPRB,.287E-02_JPRB,.282E-02_JPRB,.263E-02_JPRB,&
+&.248E-02_JPRB,.241E-02_JPRB,.242E-02_JPRB,.264E-02_JPRB,.276E-02_JPRB,.285E-02_JPRB,.282E-02_JPRB,&
+&.279E-02_JPRB,.274E-02_JPRB,.257E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.267E-02_JPRB,.280E-02_JPRB,&
+&.295E-02_JPRB,.304E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 14  38.0
+ZAER (:,14, 2) = (/&
+&.379E-02_JPRB,.378E-02_JPRB,.365E-02_JPRB,.353E-02_JPRB,.340E-02_JPRB,.304E-02_JPRB,.287E-02_JPRB,&
+&.276E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.269E-02_JPRB,.267E-02_JPRB,&
+&.266E-02_JPRB,.262E-02_JPRB,.258E-02_JPRB,.252E-02_JPRB,.244E-02_JPRB,.243E-02_JPRB,.244E-02_JPRB,&
+&.330E-02_JPRB,.277E-02_JPRB,.365E-02_JPRB,.832E-02_JPRB,.163E-01_JPRB,.182E-01_JPRB,.133E-01_JPRB,&
+&.101E-01_JPRB,.760E-02_JPRB,.550E-02_JPRB,.483E-02_JPRB,.435E-02_JPRB,.388E-02_JPRB,.366E-02_JPRB,&
+&.355E-02_JPRB,.350E-02_JPRB,.355E-02_JPRB,.374E-02_JPRB,.415E-02_JPRB,.502E-02_JPRB,.542E-02_JPRB,&
+&.579E-02_JPRB,.501E-02_JPRB,.450E-02_JPRB,.393E-02_JPRB,.338E-02_JPRB,.333E-02_JPRB,.331E-02_JPRB,&
+&.339E-02_JPRB,.347E-02_JPRB,.356E-02_JPRB,.377E-02_JPRB,.377E-02_JPRB,.374E-02_JPRB,.351E-02_JPRB,&
+&.329E-02_JPRB,.320E-02_JPRB,.328E-02_JPRB,.360E-02_JPRB,.371E-02_JPRB,.369E-02_JPRB,.373E-02_JPRB,&
+&.375E-02_JPRB,.377E-02_JPRB,.218E-02_JPRB,.359E-02_JPRB,.357E-02_JPRB,.352E-02_JPRB,.359E-02_JPRB,&
+&.370E-02_JPRB,.378E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 15  34.0
+ZAER (:,15, 2) = (/&
+&.451E-02_JPRB,.451E-02_JPRB,.438E-02_JPRB,.422E-02_JPRB,.405E-02_JPRB,.360E-02_JPRB,.341E-02_JPRB,&
+&.328E-02_JPRB,.319E-02_JPRB,.316E-02_JPRB,.313E-02_JPRB,.304E-02_JPRB,.295E-02_JPRB,.290E-02_JPRB,&
+&.284E-02_JPRB,.274E-02_JPRB,.269E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.272E-02_JPRB,.284E-02_JPRB,&
+&.483E-02_JPRB,.423E-02_JPRB,.569E-02_JPRB,.128E-01_JPRB,.155E-01_JPRB,.295E-01_JPRB,.205E-01_JPRB,&
+&.141E-01_JPRB,.907E-02_JPRB,.629E-02_JPRB,.570E-02_JPRB,.533E-02_JPRB,.515E-02_JPRB,.523E-02_JPRB,&
+&.529E-02_JPRB,.541E-02_JPRB,.553E-02_JPRB,.590E-02_JPRB,.670E-02_JPRB,.526E-02_JPRB,.951E-02_JPRB,&
+&.101E-01_JPRB,.817E-02_JPRB,.706E-02_JPRB,.585E-02_JPRB,.480E-02_JPRB,.470E-02_JPRB,.466E-02_JPRB,&
+&.483E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.491E-02_JPRB,.486E-02_JPRB,.479E-02_JPRB,.452E-02_JPRB,&
+&.431E-02_JPRB,.427E-02_JPRB,.452E-02_JPRB,.495E-02_JPRB,.305E-02_JPRB,.499E-02_JPRB,.498E-02_JPRB,&
+&.500E-02_JPRB,.302E-02_JPRB,.314E-02_JPRB,.321E-02_JPRB,.548E-02_JPRB,.496E-02_JPRB,.482E-02_JPRB,&
+&.470E-02_JPRB,.452E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 16  30.0
+ZAER (:,16, 2) = (/&
+&.511E-02_JPRB,.510E-02_JPRB,.483E-02_JPRB,.461E-02_JPRB,.439E-02_JPRB,.394E-02_JPRB,.377E-02_JPRB,&
+&.365E-02_JPRB,.353E-02_JPRB,.346E-02_JPRB,.339E-02_JPRB,.324E-02_JPRB,.306E-02_JPRB,.297E-02_JPRB,&
+&.288E-02_JPRB,.281E-02_JPRB,.279E-02_JPRB,.277E-02_JPRB,.290E-02_JPRB,.314E-02_JPRB,.346E-02_JPRB,&
+&.771E-02_JPRB,.653E-02_JPRB,.853E-02_JPRB,.166E-01_JPRB,.210E-01_JPRB,.410E-01_JPRB,.294E-01_JPRB,&
+&.192E-01_JPRB,.115E-01_JPRB,.820E-02_JPRB,.774E-02_JPRB,.750E-02_JPRB,.759E-02_JPRB,.777E-02_JPRB,&
+&.787E-02_JPRB,.795E-02_JPRB,.822E-02_JPRB,.887E-02_JPRB,.102E-01_JPRB,.810E-02_JPRB,.875E-02_JPRB,&
+&.915E-02_JPRB,.120E-01_JPRB,.102E-01_JPRB,.823E-02_JPRB,.685E-02_JPRB,.669E-02_JPRB,.660E-02_JPRB,&
+&.667E-02_JPRB,.646E-02_JPRB,.627E-02_JPRB,.616E-02_JPRB,.597E-02_JPRB,.579E-02_JPRB,.547E-02_JPRB,&
+&.535E-02_JPRB,.541E-02_JPRB,.591E-02_JPRB,.390E-02_JPRB,.405E-02_JPRB,.409E-02_JPRB,.401E-02_JPRB,&
+&.394E-02_JPRB,.385E-02_JPRB,.415E-02_JPRB,.431E-02_JPRB,.749E-02_JPRB,.646E-02_JPRB,.605E-02_JPRB,&
+&.565E-02_JPRB,.512E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 17  26.0
+ZAER (:,17, 2) = (/&
+&.540E-02_JPRB,.539E-02_JPRB,.493E-02_JPRB,.465E-02_JPRB,.439E-02_JPRB,.399E-02_JPRB,.385E-02_JPRB,&
+&.374E-02_JPRB,.361E-02_JPRB,.356E-02_JPRB,.349E-02_JPRB,.333E-02_JPRB,.308E-02_JPRB,.296E-02_JPRB,&
+&.289E-02_JPRB,.297E-02_JPRB,.302E-02_JPRB,.307E-02_JPRB,.337E-02_JPRB,.376E-02_JPRB,.427E-02_JPRB,&
+&.104E-01_JPRB,.843E-02_JPRB,.107E-01_JPRB,.177E-01_JPRB,.231E-01_JPRB,.277E-01_JPRB,.361E-01_JPRB,&
+&.249E-01_JPRB,.163E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.111E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,.848E-02_JPRB,.107E-01_JPRB,.113E-01_JPRB,&
+&.116E-01_JPRB,.154E-01_JPRB,.132E-01_JPRB,.109E-01_JPRB,.949E-02_JPRB,.916E-02_JPRB,.888E-02_JPRB,&
+&.854E-02_JPRB,.812E-02_JPRB,.774E-02_JPRB,.737E-02_JPRB,.700E-02_JPRB,.669E-02_JPRB,.630E-02_JPRB,&
+&.631E-02_JPRB,.652E-02_JPRB,.738E-02_JPRB,.497E-02_JPRB,.528E-02_JPRB,.560E-02_JPRB,.539E-02_JPRB,&
+&.516E-02_JPRB,.478E-02_JPRB,.489E-02_JPRB,.496E-02_JPRB,.843E-02_JPRB,.725E-02_JPRB,.672E-02_JPRB,&
+&.618E-02_JPRB,.543E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 18  22.0
+ZAER (:,18, 2) = (/&
+&.539E-02_JPRB,.537E-02_JPRB,.480E-02_JPRB,.453E-02_JPRB,.428E-02_JPRB,.391E-02_JPRB,.378E-02_JPRB,&
+&.369E-02_JPRB,.366E-02_JPRB,.366E-02_JPRB,.360E-02_JPRB,.338E-02_JPRB,.311E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.326E-02_JPRB,.342E-02_JPRB,.364E-02_JPRB,.413E-02_JPRB,.457E-02_JPRB,.511E-02_JPRB,&
+&.111E-01_JPRB,.872E-02_JPRB,.109E-01_JPRB,.169E-01_JPRB,.216E-01_JPRB,.258E-01_JPRB,.234E-01_JPRB,&
+&.307E-01_JPRB,.241E-01_JPRB,.182E-01_JPRB,.169E-01_JPRB,.161E-01_JPRB,.158E-01_JPRB,.150E-01_JPRB,&
+&.145E-01_JPRB,.138E-01_JPRB,.147E-01_JPRB,.159E-01_JPRB,.110E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.109E-01_JPRB,.161E-01_JPRB,.837E-02_JPRB,.123E-01_JPRB,.115E-01_JPRB,.108E-01_JPRB,&
+&.998E-02_JPRB,.945E-02_JPRB,.895E-02_JPRB,.838E-02_JPRB,.792E-02_JPRB,.756E-02_JPRB,.714E-02_JPRB,&
+&.732E-02_JPRB,.769E-02_JPRB,.890E-02_JPRB,.102E-01_JPRB,.671E-02_JPRB,.752E-02_JPRB,.704E-02_JPRB,&
+&.654E-02_JPRB,.574E-02_JPRB,.523E-02_JPRB,.836E-02_JPRB,.802E-02_JPRB,.714E-02_JPRB,.670E-02_JPRB,&
+&.624E-02_JPRB,.542E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 19  18.0
+ZAER (:,19, 2) = (/&
+&.521E-02_JPRB,.520E-02_JPRB,.466E-02_JPRB,.448E-02_JPRB,.430E-02_JPRB,.396E-02_JPRB,.387E-02_JPRB,&
+&.384E-02_JPRB,.397E-02_JPRB,.395E-02_JPRB,.385E-02_JPRB,.356E-02_JPRB,.332E-02_JPRB,.329E-02_JPRB,&
+&.341E-02_JPRB,.371E-02_JPRB,.399E-02_JPRB,.439E-02_JPRB,.513E-02_JPRB,.558E-02_JPRB,.610E-02_JPRB,&
+&.107E-01_JPRB,.839E-02_JPRB,.105E-01_JPRB,.162E-01_JPRB,.193E-01_JPRB,.221E-01_JPRB,.229E-01_JPRB,&
+&.207E-01_JPRB,.309E-01_JPRB,.240E-01_JPRB,.223E-01_JPRB,.211E-01_JPRB,.204E-01_JPRB,.189E-01_JPRB,&
+&.183E-01_JPRB,.182E-01_JPRB,.202E-01_JPRB,.216E-01_JPRB,.140E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,&
+&.144E-01_JPRB,.130E-01_JPRB,.198E-01_JPRB,.106E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.118E-01_JPRB,&
+&.107E-01_JPRB,.102E-01_JPRB,.966E-02_JPRB,.905E-02_JPRB,.864E-02_JPRB,.835E-02_JPRB,.813E-02_JPRB,&
+&.866E-02_JPRB,.923E-02_JPRB,.105E-01_JPRB,.120E-01_JPRB,.133E-01_JPRB,.930E-02_JPRB,.845E-02_JPRB,&
+&.763E-02_JPRB,.636E-02_JPRB,.517E-02_JPRB,.781E-02_JPRB,.705E-02_JPRB,.660E-02_JPRB,.628E-02_JPRB,&
+&.594E-02_JPRB,.524E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 20  14.0
+ZAER (:,20, 2) = (/&
+&.493E-02_JPRB,.492E-02_JPRB,.457E-02_JPRB,.454E-02_JPRB,.450E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,&
+&.433E-02_JPRB,.455E-02_JPRB,.444E-02_JPRB,.430E-02_JPRB,.399E-02_JPRB,.377E-02_JPRB,.377E-02_JPRB,&
+&.397E-02_JPRB,.432E-02_JPRB,.470E-02_JPRB,.529E-02_JPRB,.645E-02_JPRB,.711E-02_JPRB,.784E-02_JPRB,&
+&.726E-02_JPRB,.929E-02_JPRB,.114E-01_JPRB,.163E-01_JPRB,.177E-01_JPRB,.191E-01_JPRB,.205E-01_JPRB,&
+&.203E-01_JPRB,.329E-01_JPRB,.281E-01_JPRB,.271E-01_JPRB,.263E-01_JPRB,.252E-01_JPRB,.238E-01_JPRB,&
+&.239E-01_JPRB,.259E-01_JPRB,.293E-01_JPRB,.306E-01_JPRB,.187E-01_JPRB,.181E-01_JPRB,.179E-01_JPRB,&
+&.178E-01_JPRB,.164E-01_JPRB,.149E-01_JPRB,.216E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,.124E-01_JPRB,&
+&.110E-01_JPRB,.104E-01_JPRB,.982E-02_JPRB,.935E-02_JPRB,.910E-02_JPRB,.899E-02_JPRB,.934E-02_JPRB,&
+&.108E-01_JPRB,.118E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,.145E-01_JPRB,.164E-01_JPRB,.881E-02_JPRB,&
+&.784E-02_JPRB,.106E-01_JPRB,.811E-02_JPRB,.713E-02_JPRB,.627E-02_JPRB,.608E-02_JPRB,.582E-02_JPRB,&
+&.551E-02_JPRB,.494E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 21  10.0
+ZAER (:,21, 2) = (/&
+&.490E-02_JPRB,.490E-02_JPRB,.478E-02_JPRB,.486E-02_JPRB,.492E-02_JPRB,.489E-02_JPRB,.497E-02_JPRB,&
+&.505E-02_JPRB,.522E-02_JPRB,.507E-02_JPRB,.492E-02_JPRB,.460E-02_JPRB,.433E-02_JPRB,.431E-02_JPRB,&
+&.450E-02_JPRB,.498E-02_JPRB,.549E-02_JPRB,.626E-02_JPRB,.823E-02_JPRB,.949E-02_JPRB,.109E-01_JPRB,&
+&.910E-02_JPRB,.112E-01_JPRB,.134E-01_JPRB,.167E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.183E-01_JPRB,&
+&.187E-01_JPRB,.315E-01_JPRB,.306E-01_JPRB,.318E-01_JPRB,.324E-01_JPRB,.321E-01_JPRB,.325E-01_JPRB,&
+&.339E-01_JPRB,.379E-01_JPRB,.415E-01_JPRB,.428E-01_JPRB,.260E-01_JPRB,.261E-01_JPRB,.257E-01_JPRB,&
+&.250E-01_JPRB,.222E-01_JPRB,.322E-01_JPRB,.264E-01_JPRB,.189E-01_JPRB,.162E-01_JPRB,.137E-01_JPRB,&
+&.114E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.991E-02_JPRB,.996E-02_JPRB,.102E-01_JPRB,.114E-01_JPRB,&
+&.144E-01_JPRB,.161E-01_JPRB,.169E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,&
+&.120E-01_JPRB,.102E-01_JPRB,.792E-02_JPRB,.694E-02_JPRB,.597E-02_JPRB,.588E-02_JPRB,.566E-02_JPRB,&
+&.538E-02_JPRB,.492E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 22   6.0
+ZAER (:,22, 2) = (/&
+&.580E-02_JPRB,.579E-02_JPRB,.564E-02_JPRB,.563E-02_JPRB,.562E-02_JPRB,.555E-02_JPRB,.563E-02_JPRB,&
+&.571E-02_JPRB,.588E-02_JPRB,.578E-02_JPRB,.566E-02_JPRB,.538E-02_JPRB,.498E-02_JPRB,.491E-02_JPRB,&
+&.509E-02_JPRB,.581E-02_JPRB,.651E-02_JPRB,.754E-02_JPRB,.102E-01_JPRB,.124E-01_JPRB,.907E-02_JPRB,&
+&.119E-01_JPRB,.141E-01_JPRB,.165E-01_JPRB,.168E-01_JPRB,.162E-01_JPRB,.156E-01_JPRB,.169E-01_JPRB,&
+&.175E-01_JPRB,.303E-01_JPRB,.327E-01_JPRB,.365E-01_JPRB,.396E-01_JPRB,.443E-01_JPRB,.489E-01_JPRB,&
+&.518E-01_JPRB,.550E-01_JPRB,.591E-01_JPRB,.620E-01_JPRB,.396E-01_JPRB,.420E-01_JPRB,.410E-01_JPRB,&
+&.382E-01_JPRB,.306E-01_JPRB,.427E-01_JPRB,.334E-01_JPRB,.233E-01_JPRB,.195E-01_JPRB,.158E-01_JPRB,&
+&.122E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,.133E-01_JPRB,.160E-01_JPRB,&
+&.197E-01_JPRB,.215E-01_JPRB,.215E-01_JPRB,.183E-01_JPRB,.160E-01_JPRB,.129E-01_JPRB,.113E-01_JPRB,&
+&.105E-01_JPRB,.584E-02_JPRB,.482E-02_JPRB,.712E-02_JPRB,.612E-02_JPRB,.618E-02_JPRB,.613E-02_JPRB,&
+&.606E-02_JPRB,.581E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 23   2.0
+ZAER (:,23, 2) = (/&
+&.755E-02_JPRB,.754E-02_JPRB,.720E-02_JPRB,.697E-02_JPRB,.675E-02_JPRB,.632E-02_JPRB,.627E-02_JPRB,&
+&.630E-02_JPRB,.660E-02_JPRB,.662E-02_JPRB,.657E-02_JPRB,.636E-02_JPRB,.600E-02_JPRB,.593E-02_JPRB,&
+&.607E-02_JPRB,.726E-02_JPRB,.833E-02_JPRB,.987E-02_JPRB,.133E-01_JPRB,.162E-01_JPRB,.119E-01_JPRB,&
+&.167E-01_JPRB,.201E-01_JPRB,.236E-01_JPRB,.181E-01_JPRB,.160E-01_JPRB,.143E-01_JPRB,.165E-01_JPRB,&
+&.288E-01_JPRB,.305E-01_JPRB,.367E-01_JPRB,.466E-01_JPRB,.550E-01_JPRB,.692E-01_JPRB,.831E-01_JPRB,&
+&.900E-01_JPRB,.935E-01_JPRB,.975E-01_JPRB,.617E-01_JPRB,.674E-01_JPRB,.724E-01_JPRB,.685E-01_JPRB,&
+&.598E-01_JPRB,.406E-01_JPRB,.326E-01_JPRB,.415E-01_JPRB,.283E-01_JPRB,.233E-01_JPRB,.187E-01_JPRB,&
+&.137E-01_JPRB,.143E-01_JPRB,.150E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.192E-01_JPRB,.245E-01_JPRB,&
+&.284E-01_JPRB,.178E-01_JPRB,.261E-01_JPRB,.127E-01_JPRB,.175E-01_JPRB,.121E-01_JPRB,.987E-02_JPRB,&
+&.542E-02_JPRB,.854E-02_JPRB,.767E-02_JPRB,.714E-02_JPRB,.653E-02_JPRB,.714E-02_JPRB,.741E-02_JPRB,&
+&.767E-02_JPRB,.756E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 24  -2.0
+ZAER (:,24, 2) = (/&
+&.105E-01_JPRB,.105E-01_JPRB,.942E-02_JPRB,.876E-02_JPRB,.815E-02_JPRB,.730E-02_JPRB,.712E-02_JPRB,&
+&.710E-02_JPRB,.761E-02_JPRB,.794E-02_JPRB,.805E-02_JPRB,.788E-02_JPRB,.776E-02_JPRB,.773E-02_JPRB,&
+&.777E-02_JPRB,.958E-02_JPRB,.119E-01_JPRB,.158E-01_JPRB,.220E-01_JPRB,.249E-01_JPRB,.278E-01_JPRB,&
+&.256E-01_JPRB,.308E-01_JPRB,.362E-01_JPRB,.212E-01_JPRB,.171E-01_JPRB,.228E-01_JPRB,.285E-01_JPRB,&
+&.321E-01_JPRB,.361E-01_JPRB,.470E-01_JPRB,.678E-01_JPRB,.883E-01_JPRB,.131E+00_JPRB,.173E+00_JPRB,&
+&.190E+00_JPRB,.188E+00_JPRB,.179E+00_JPRB,.107E+00_JPRB,.110E+00_JPRB,.114E+00_JPRB,.105E+00_JPRB,&
+&.878E-01_JPRB,.530E-01_JPRB,.407E-01_JPRB,.297E-01_JPRB,.333E-01_JPRB,.285E-01_JPRB,.242E-01_JPRB,&
+&.190E-01_JPRB,.203E-01_JPRB,.218E-01_JPRB,.272E-01_JPRB,.276E-01_JPRB,.294E-01_JPRB,.386E-01_JPRB,&
+&.255E-01_JPRB,.425E-01_JPRB,.344E-01_JPRB,.159E-01_JPRB,.210E-01_JPRB,.135E-01_JPRB,.100E-01_JPRB,&
+&.882E-02_JPRB,.829E-02_JPRB,.780E-02_JPRB,.770E-02_JPRB,.767E-02_JPRB,.925E-02_JPRB,.995E-02_JPRB,&
+&.106E-01_JPRB,.105E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 25  -6.0
+ZAER (:,25, 2) = (/&
+&.145E-01_JPRB,.144E-01_JPRB,.123E-01_JPRB,.109E-01_JPRB,.961E-02_JPRB,.838E-02_JPRB,.825E-02_JPRB,&
+&.829E-02_JPRB,.896E-02_JPRB,.949E-02_JPRB,.976E-02_JPRB,.983E-02_JPRB,.979E-02_JPRB,.984E-02_JPRB,&
+&.100E-01_JPRB,.134E-01_JPRB,.187E-01_JPRB,.273E-01_JPRB,.376E-01_JPRB,.401E-01_JPRB,.414E-01_JPRB,&
+&.351E-01_JPRB,.391E-01_JPRB,.428E-01_JPRB,.219E-01_JPRB,.285E-01_JPRB,.216E-01_JPRB,.265E-01_JPRB,&
+&.324E-01_JPRB,.394E-01_JPRB,.609E-01_JPRB,.971E-01_JPRB,.133E+00_JPRB,.209E+00_JPRB,.162E+00_JPRB,&
+&.175E+00_JPRB,.169E+00_JPRB,.151E+00_JPRB,.143E+00_JPRB,.136E+00_JPRB,.134E+00_JPRB,.121E+00_JPRB,&
+&.984E-01_JPRB,.602E-01_JPRB,.462E-01_JPRB,.333E-01_JPRB,.385E-01_JPRB,.348E-01_JPRB,.319E-01_JPRB,&
+&.287E-01_JPRB,.303E-01_JPRB,.322E-01_JPRB,.402E-01_JPRB,.433E-01_JPRB,.475E-01_JPRB,.617E-01_JPRB,&
+&.606E-01_JPRB,.570E-01_JPRB,.448E-01_JPRB,.354E-01_JPRB,.284E-01_JPRB,.185E-01_JPRB,.131E-01_JPRB,&
+&.112E-01_JPRB,.102E-01_JPRB,.964E-02_JPRB,.991E-02_JPRB,.105E-01_JPRB,.128E-01_JPRB,.138E-01_JPRB,&
+&.147E-01_JPRB,.145E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 26 -10.0
+ZAER (:,26, 2) = (/&
+&.191E-01_JPRB,.190E-01_JPRB,.165E-01_JPRB,.142E-01_JPRB,.121E-01_JPRB,.976E-02_JPRB,.956E-02_JPRB,&
+&.960E-02_JPRB,.105E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,&
+&.124E-01_JPRB,.209E-01_JPRB,.323E-01_JPRB,.506E-01_JPRB,.628E-01_JPRB,.605E-01_JPRB,.543E-01_JPRB,&
+&.369E-01_JPRB,.366E-01_JPRB,.359E-01_JPRB,.305E-01_JPRB,.250E-01_JPRB,.203E-01_JPRB,.230E-01_JPRB,&
+&.282E-01_JPRB,.354E-01_JPRB,.623E-01_JPRB,.105E+00_JPRB,.144E+00_JPRB,.217E+00_JPRB,.152E+00_JPRB,&
+&.161E+00_JPRB,.160E+00_JPRB,.152E+00_JPRB,.144E+00_JPRB,.130E+00_JPRB,.125E+00_JPRB,.113E+00_JPRB,&
+&.941E-01_JPRB,.598E-01_JPRB,.463E-01_JPRB,.336E-01_JPRB,.251E-01_JPRB,.401E-01_JPRB,.391E-01_JPRB,&
+&.402E-01_JPRB,.428E-01_JPRB,.456E-01_JPRB,.547E-01_JPRB,.643E-01_JPRB,.747E-01_JPRB,.101E+00_JPRB,&
+&.924E-01_JPRB,.823E-01_JPRB,.574E-01_JPRB,.468E-01_JPRB,.388E-01_JPRB,.276E-01_JPRB,.196E-01_JPRB,&
+&.162E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,.135E-01_JPRB,.149E-01_JPRB,.177E-01_JPRB,.186E-01_JPRB,&
+&.195E-01_JPRB,.191E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 27 -14.0
+ZAER (:,27, 2) = (/&
+&.241E-01_JPRB,.240E-01_JPRB,.216E-01_JPRB,.191E-01_JPRB,.167E-01_JPRB,.123E-01_JPRB,.114E-01_JPRB,&
+&.111E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.138E-01_JPRB,&
+&.150E-01_JPRB,.305E-01_JPRB,.510E-01_JPRB,.840E-01_JPRB,.571E-01_JPRB,.499E-01_JPRB,.627E-01_JPRB,&
+&.502E-01_JPRB,.451E-01_JPRB,.403E-01_JPRB,.242E-01_JPRB,.217E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,&
+&.229E-01_JPRB,.275E-01_JPRB,.476E-01_JPRB,.790E-01_JPRB,.107E+00_JPRB,.952E-01_JPRB,.993E-01_JPRB,&
+&.102E+00_JPRB,.106E+00_JPRB,.111E+00_JPRB,.108E+00_JPRB,.972E-01_JPRB,.942E-01_JPRB,.885E-01_JPRB,&
+&.793E-01_JPRB,.533E-01_JPRB,.420E-01_JPRB,.309E-01_JPRB,.408E-01_JPRB,.411E-01_JPRB,.421E-01_JPRB,&
+&.503E-01_JPRB,.553E-01_JPRB,.363E-01_JPRB,.714E-01_JPRB,.862E-01_JPRB,.101E+00_JPRB,.135E+00_JPRB,&
+&.746E-01_JPRB,.666E-01_JPRB,.767E-01_JPRB,.619E-01_JPRB,.521E-01_JPRB,.399E-01_JPRB,.292E-01_JPRB,&
+&.240E-01_JPRB,.190E-01_JPRB,.168E-01_JPRB,.173E-01_JPRB,.189E-01_JPRB,.223E-01_JPRB,.234E-01_JPRB,&
+&.243E-01_JPRB,.241E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 28 -18.0
+ZAER (:,28, 2) = (/&
+&.286E-01_JPRB,.285E-01_JPRB,.256E-01_JPRB,.234E-01_JPRB,.211E-01_JPRB,.160E-01_JPRB,.141E-01_JPRB,&
+&.130E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,.153E-01_JPRB,&
+&.169E-01_JPRB,.327E-01_JPRB,.336E-01_JPRB,.567E-01_JPRB,.628E-01_JPRB,.895E-01_JPRB,.643E-01_JPRB,&
+&.401E-01_JPRB,.341E-01_JPRB,.292E-01_JPRB,.218E-01_JPRB,.208E-01_JPRB,.198E-01_JPRB,.186E-01_JPRB,&
+&.194E-01_JPRB,.211E-01_JPRB,.307E-01_JPRB,.484E-01_JPRB,.645E-01_JPRB,.568E-01_JPRB,.555E-01_JPRB,&
+&.552E-01_JPRB,.562E-01_JPRB,.634E-01_JPRB,.643E-01_JPRB,.614E-01_JPRB,.613E-01_JPRB,.604E-01_JPRB,&
+&.589E-01_JPRB,.443E-01_JPRB,.604E-01_JPRB,.276E-01_JPRB,.230E-01_JPRB,.238E-01_JPRB,.416E-01_JPRB,&
+&.575E-01_JPRB,.640E-01_JPRB,.422E-01_JPRB,.490E-01_JPRB,.947E-01_JPRB,.108E+00_JPRB,.842E-01_JPRB,&
+&.833E-01_JPRB,.790E-01_JPRB,.105E+00_JPRB,.863E-01_JPRB,.728E-01_JPRB,.547E-01_JPRB,.423E-01_JPRB,&
+&.357E-01_JPRB,.285E-01_JPRB,.230E-01_JPRB,.225E-01_JPRB,.233E-01_JPRB,.269E-01_JPRB,.279E-01_JPRB,&
+&.287E-01_JPRB,.286E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 29 -22.0
+ZAER (:,29, 2) = (/&
+&.312E-01_JPRB,.310E-01_JPRB,.264E-01_JPRB,.241E-01_JPRB,.220E-01_JPRB,.186E-01_JPRB,.166E-01_JPRB,&
+&.152E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.155E-01_JPRB,.162E-01_JPRB,&
+&.173E-01_JPRB,.158E-01_JPRB,.251E-01_JPRB,.682E-01_JPRB,.842E-01_JPRB,.759E-01_JPRB,.596E-01_JPRB,&
+&.364E-01_JPRB,.308E-01_JPRB,.262E-01_JPRB,.219E-01_JPRB,.209E-01_JPRB,.200E-01_JPRB,.183E-01_JPRB,&
+&.176E-01_JPRB,.175E-01_JPRB,.200E-01_JPRB,.291E-01_JPRB,.370E-01_JPRB,.307E-01_JPRB,.293E-01_JPRB,&
+&.284E-01_JPRB,.273E-01_JPRB,.323E-01_JPRB,.346E-01_JPRB,.364E-01_JPRB,.390E-01_JPRB,.402E-01_JPRB,&
+&.414E-01_JPRB,.347E-01_JPRB,.299E-01_JPRB,.244E-01_JPRB,.215E-01_JPRB,.220E-01_JPRB,.379E-01_JPRB,&
+&.554E-01_JPRB,.371E-01_JPRB,.406E-01_JPRB,.440E-01_JPRB,.473E-01_JPRB,.518E-01_JPRB,.671E-01_JPRB,&
+&.783E-01_JPRB,.837E-01_JPRB,.828E-01_JPRB,.118E+00_JPRB,.101E+00_JPRB,.734E-01_JPRB,.578E-01_JPRB,&
+&.494E-01_JPRB,.403E-01_JPRB,.325E-01_JPRB,.305E-01_JPRB,.296E-01_JPRB,.325E-01_JPRB,.329E-01_JPRB,&
+&.332E-01_JPRB,.312E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 30 -26.0
+ZAER (:,30, 2) = (/&
+&.307E-01_JPRB,.305E-01_JPRB,.244E-01_JPRB,.220E-01_JPRB,.200E-01_JPRB,.182E-01_JPRB,.173E-01_JPRB,&
+&.165E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.154E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,&
+&.101E-01_JPRB,.118E-01_JPRB,.158E-01_JPRB,.381E-01_JPRB,.543E-01_JPRB,.538E-01_JPRB,.493E-01_JPRB,&
+&.363E-01_JPRB,.315E-01_JPRB,.271E-01_JPRB,.226E-01_JPRB,.212E-01_JPRB,.200E-01_JPRB,.180E-01_JPRB,&
+&.166E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.193E-01_JPRB,.228E-01_JPRB,.285E-01_JPRB,.164E-01_JPRB,&
+&.159E-01_JPRB,.153E-01_JPRB,.183E-01_JPRB,.205E-01_JPRB,.236E-01_JPRB,.260E-01_JPRB,.273E-01_JPRB,&
+&.287E-01_JPRB,.261E-01_JPRB,.240E-01_JPRB,.216E-01_JPRB,.198E-01_JPRB,.324E-01_JPRB,.192E-01_JPRB,&
+&.265E-01_JPRB,.295E-01_JPRB,.320E-01_JPRB,.311E-01_JPRB,.308E-01_JPRB,.322E-01_JPRB,.432E-01_JPRB,&
+&.651E-01_JPRB,.807E-01_JPRB,.995E-01_JPRB,.897E-01_JPRB,.130E+00_JPRB,.917E-01_JPRB,.708E-01_JPRB,&
+&.604E-01_JPRB,.501E-01_JPRB,.418E-01_JPRB,.386E-01_JPRB,.358E-01_JPRB,.374E-01_JPRB,.369E-01_JPRB,&
+&.361E-01_JPRB,.309E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 31 -30.0
+ZAER (:,31, 2) = (/&
+&.273E-01_JPRB,.271E-01_JPRB,.215E-01_JPRB,.191E-01_JPRB,.171E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,&
+&.160E-01_JPRB,.157E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,&
+&.934E-02_JPRB,.960E-02_JPRB,.111E-01_JPRB,.140E-01_JPRB,.205E-01_JPRB,.221E-01_JPRB,.386E-01_JPRB,&
+&.350E-01_JPRB,.315E-01_JPRB,.277E-01_JPRB,.224E-01_JPRB,.206E-01_JPRB,.188E-01_JPRB,.167E-01_JPRB,&
+&.154E-01_JPRB,.144E-01_JPRB,.135E-01_JPRB,.146E-01_JPRB,.158E-01_JPRB,.181E-01_JPRB,.109E-01_JPRB,&
+&.113E-01_JPRB,.125E-01_JPRB,.155E-01_JPRB,.177E-01_JPRB,.209E-01_JPRB,.219E-01_JPRB,.223E-01_JPRB,&
+&.226E-01_JPRB,.215E-01_JPRB,.207E-01_JPRB,.200E-01_JPRB,.190E-01_JPRB,.181E-01_JPRB,.172E-01_JPRB,&
+&.202E-01_JPRB,.215E-01_JPRB,.225E-01_JPRB,.194E-01_JPRB,.180E-01_JPRB,.182E-01_JPRB,.254E-01_JPRB,&
+&.484E-01_JPRB,.677E-01_JPRB,.998E-01_JPRB,.944E-01_JPRB,.840E-01_JPRB,.995E-01_JPRB,.759E-01_JPRB,&
+&.641E-01_JPRB,.526E-01_JPRB,.451E-01_JPRB,.415E-01_JPRB,.377E-01_JPRB,.377E-01_JPRB,.362E-01_JPRB,&
+&.343E-01_JPRB,.275E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 32 -34.0
+ZAER (:,32, 2) = (/&
+&.223E-01_JPRB,.222E-01_JPRB,.184E-01_JPRB,.166E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,&
+&.144E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.873E-02_JPRB,&
+&.818E-02_JPRB,.824E-02_JPRB,.919E-02_JPRB,.110E-01_JPRB,.156E-01_JPRB,.174E-01_JPRB,.191E-01_JPRB,&
+&.320E-01_JPRB,.297E-01_JPRB,.269E-01_JPRB,.208E-01_JPRB,.186E-01_JPRB,.166E-01_JPRB,.145E-01_JPRB,&
+&.138E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.127E-01_JPRB,.137E-01_JPRB,.154E-01_JPRB,&
+&.107E-01_JPRB,.143E-01_JPRB,.200E-01_JPRB,.239E-01_JPRB,.484E-01_JPRB,.489E-01_JPRB,.473E-01_JPRB,&
+&.443E-01_JPRB,.391E-01_JPRB,.224E-01_JPRB,.215E-01_JPRB,.211E-01_JPRB,.201E-01_JPRB,.192E-01_JPRB,&
+&.186E-01_JPRB,.179E-01_JPRB,.170E-01_JPRB,.139E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.163E-01_JPRB,&
+&.320E-01_JPRB,.470E-01_JPRB,.764E-01_JPRB,.769E-01_JPRB,.713E-01_JPRB,.908E-01_JPRB,.707E-01_JPRB,&
+&.358E-01_JPRB,.478E-01_JPRB,.408E-01_JPRB,.372E-01_JPRB,.333E-01_JPRB,.321E-01_JPRB,.302E-01_JPRB,&
+&.280E-01_JPRB,.225E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 33 -38.0
+ZAER (:,33, 2) = (/&
+&.177E-01_JPRB,.177E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,&
+&.129E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,.796E-02_JPRB,.765E-02_JPRB,&
+&.698E-02_JPRB,.716E-02_JPRB,.800E-02_JPRB,.957E-02_JPRB,.135E-01_JPRB,.153E-01_JPRB,.171E-01_JPRB,&
+&.294E-01_JPRB,.276E-01_JPRB,.253E-01_JPRB,.182E-01_JPRB,.161E-01_JPRB,.142E-01_JPRB,.124E-01_JPRB,&
+&.121E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,.132E-01_JPRB,.168E-01_JPRB,&
+&.130E-01_JPRB,.327E-01_JPRB,.509E-01_JPRB,.628E-01_JPRB,.777E-01_JPRB,.782E-01_JPRB,.742E-01_JPRB,&
+&.401E-01_JPRB,.329E-01_JPRB,.302E-01_JPRB,.277E-01_JPRB,.262E-01_JPRB,.251E-01_JPRB,.241E-01_JPRB,&
+&.212E-01_JPRB,.191E-01_JPRB,.171E-01_JPRB,.140E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,&
+&.203E-01_JPRB,.278E-01_JPRB,.440E-01_JPRB,.483E-01_JPRB,.799E-01_JPRB,.702E-01_JPRB,.579E-01_JPRB,&
+&.498E-01_JPRB,.237E-01_JPRB,.322E-01_JPRB,.290E-01_JPRB,.259E-01_JPRB,.245E-01_JPRB,.229E-01_JPRB,&
+&.210E-01_JPRB,.178E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 34 -42.0
+ZAER (:,34, 2) = (/&
+&.148E-01_JPRB,.148E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,&
+&.122E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.703E-02_JPRB,.671E-02_JPRB,&
+&.611E-02_JPRB,.638E-02_JPRB,.707E-02_JPRB,.829E-02_JPRB,.112E-01_JPRB,.128E-01_JPRB,.145E-01_JPRB,&
+&.154E-01_JPRB,.241E-01_JPRB,.221E-01_JPRB,.154E-01_JPRB,.137E-01_JPRB,.120E-01_JPRB,.109E-01_JPRB,&
+&.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.129E-01_JPRB,.163E-01_JPRB,.228E-01_JPRB,&
+&.183E-01_JPRB,.281E-01_JPRB,.774E-01_JPRB,.965E-01_JPRB,.120E+00_JPRB,.708E-01_JPRB,.667E-01_JPRB,&
+&.992E-01_JPRB,.812E-01_JPRB,.436E-01_JPRB,.383E-01_JPRB,.550E-01_JPRB,.311E-01_JPRB,.292E-01_JPRB,&
+&.256E-01_JPRB,.232E-01_JPRB,.209E-01_JPRB,.171E-01_JPRB,.156E-01_JPRB,.145E-01_JPRB,.138E-01_JPRB,&
+&.154E-01_JPRB,.176E-01_JPRB,.234E-01_JPRB,.275E-01_JPRB,.289E-01_JPRB,.287E-01_JPRB,.258E-01_JPRB,&
+&.381E-01_JPRB,.305E-01_JPRB,.240E-01_JPRB,.219E-01_JPRB,.203E-01_JPRB,.192E-01_JPRB,.179E-01_JPRB,&
+&.163E-01_JPRB,.149E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 35 -46.0
+ZAER (:,35, 2) = (/&
+&.134E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,&
+&.117E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.619E-02_JPRB,.596E-02_JPRB,&
+&.559E-02_JPRB,.586E-02_JPRB,.631E-02_JPRB,.706E-02_JPRB,.863E-02_JPRB,.959E-02_JPRB,.107E-01_JPRB,&
+&.114E-01_JPRB,.107E-01_JPRB,.988E-02_JPRB,.124E-01_JPRB,.113E-01_JPRB,.103E-01_JPRB,.980E-02_JPRB,&
+&.986E-02_JPRB,.100E-01_JPRB,.110E-01_JPRB,.135E-01_JPRB,.163E-01_JPRB,.227E-01_JPRB,.323E-01_JPRB,&
+&.424E-01_JPRB,.374E-01_JPRB,.642E-01_JPRB,.816E-01_JPRB,.103E+00_JPRB,.991E-01_JPRB,.923E-01_JPRB,&
+&.818E-01_JPRB,.678E-01_JPRB,.598E-01_JPRB,.512E-01_JPRB,.666E-01_JPRB,.362E-01_JPRB,.328E-01_JPRB,&
+&.296E-01_JPRB,.275E-01_JPRB,.254E-01_JPRB,.211E-01_JPRB,.194E-01_JPRB,.180E-01_JPRB,.163E-01_JPRB,&
+&.156E-01_JPRB,.154E-01_JPRB,.159E-01_JPRB,.171E-01_JPRB,.177E-01_JPRB,.183E-01_JPRB,.177E-01_JPRB,&
+&.163E-01_JPRB,.227E-01_JPRB,.193E-01_JPRB,.183E-01_JPRB,.176E-01_JPRB,.162E-01_JPRB,.152E-01_JPRB,&
+&.140E-01_JPRB,.134E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 36 -50.0
+ZAER (:,36, 2) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,&
+&.109E-01_JPRB,.101E-01_JPRB,.977E-02_JPRB,.957E-02_JPRB,.560E-02_JPRB,.541E-02_JPRB,.532E-02_JPRB,&
+&.525E-02_JPRB,.538E-02_JPRB,.557E-02_JPRB,.589E-02_JPRB,.659E-02_JPRB,.703E-02_JPRB,.752E-02_JPRB,&
+&.775E-02_JPRB,.743E-02_JPRB,.703E-02_JPRB,.102E-01_JPRB,.981E-02_JPRB,.942E-02_JPRB,.896E-02_JPRB,&
+&.940E-02_JPRB,.100E-01_JPRB,.126E-01_JPRB,.164E-01_JPRB,.202E-01_JPRB,.281E-01_JPRB,.385E-01_JPRB,&
+&.486E-01_JPRB,.405E-01_JPRB,.706E-01_JPRB,.914E-01_JPRB,.119E+00_JPRB,.116E+00_JPRB,.110E+00_JPRB,&
+&.100E+00_JPRB,.850E-01_JPRB,.747E-01_JPRB,.630E-01_JPRB,.461E-01_JPRB,.408E-01_JPRB,.360E-01_JPRB,&
+&.319E-01_JPRB,.301E-01_JPRB,.284E-01_JPRB,.252E-01_JPRB,.233E-01_JPRB,.216E-01_JPRB,.193E-01_JPRB,&
+&.176E-01_JPRB,.164E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,&
+&.118E-01_JPRB,.111E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,&
+&.132E-01_JPRB,.130E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 37 -54.0
+ZAER (:,37, 2) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,&
+&.967E-02_JPRB,.914E-02_JPRB,.887E-02_JPRB,.519E-02_JPRB,.496E-02_JPRB,.482E-02_JPRB,.479E-02_JPRB,&
+&.484E-02_JPRB,.486E-02_JPRB,.492E-02_JPRB,.501E-02_JPRB,.537E-02_JPRB,.563E-02_JPRB,.989E-02_JPRB,&
+&.616E-02_JPRB,.606E-02_JPRB,.593E-02_JPRB,.563E-02_JPRB,.910E-02_JPRB,.884E-02_JPRB,.852E-02_JPRB,&
+&.960E-02_JPRB,.109E-01_JPRB,.153E-01_JPRB,.192E-01_JPRB,.225E-01_JPRB,.280E-01_JPRB,.336E-01_JPRB,&
+&.231E-01_JPRB,.471E-01_JPRB,.758E-01_JPRB,.596E-01_JPRB,.807E-01_JPRB,.925E-01_JPRB,.965E-01_JPRB,&
+&.993E-01_JPRB,.910E-01_JPRB,.813E-01_JPRB,.693E-01_JPRB,.516E-01_JPRB,.454E-01_JPRB,.397E-01_JPRB,&
+&.323E-01_JPRB,.301E-01_JPRB,.281E-01_JPRB,.261E-01_JPRB,.243E-01_JPRB,.227E-01_JPRB,.200E-01_JPRB,&
+&.181E-01_JPRB,.165E-01_JPRB,.142E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,.955E-02_JPRB,.923E-02_JPRB,&
+&.924E-02_JPRB,.158E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.856E-02_JPRB,.137E-01_JPRB,&
+&.132E-01_JPRB,.130E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 38 -58.0
+ZAER (:,38, 2) = (/&
+&.127E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.100E-01_JPRB,.916E-02_JPRB,&
+&.855E-02_JPRB,.803E-02_JPRB,.471E-02_JPRB,.462E-02_JPRB,.449E-02_JPRB,.441E-02_JPRB,.439E-02_JPRB,&
+&.444E-02_JPRB,.444E-02_JPRB,.445E-02_JPRB,.449E-02_JPRB,.786E-02_JPRB,.820E-02_JPRB,.862E-02_JPRB,&
+&.547E-02_JPRB,.546E-02_JPRB,.542E-02_JPRB,.866E-02_JPRB,.845E-02_JPRB,.827E-02_JPRB,.845E-02_JPRB,&
+&.100E-01_JPRB,.118E-01_JPRB,.166E-01_JPRB,.192E-01_JPRB,.209E-01_JPRB,.221E-01_JPRB,.227E-01_JPRB,&
+&.233E-01_JPRB,.243E-01_JPRB,.338E-01_JPRB,.261E-01_JPRB,.360E-01_JPRB,.855E-01_JPRB,.613E-01_JPRB,&
+&.734E-01_JPRB,.763E-01_JPRB,.712E-01_JPRB,.635E-01_JPRB,.506E-01_JPRB,.451E-01_JPRB,.398E-01_JPRB,&
+&.314E-01_JPRB,.288E-01_JPRB,.263E-01_JPRB,.239E-01_JPRB,.226E-01_JPRB,.214E-01_JPRB,.191E-01_JPRB,&
+&.170E-01_JPRB,.153E-01_JPRB,.131E-01_JPRB,.114E-01_JPRB,.102E-01_JPRB,.868E-02_JPRB,.821E-02_JPRB,&
+&.820E-02_JPRB,.847E-02_JPRB,.148E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.830E-02_JPRB,.134E-01_JPRB,&
+&.130E-01_JPRB,.128E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 39 -62.0
+ZAER (:,39, 2) = (/&
+&.122E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.629E-02_JPRB,.555E-02_JPRB,.509E-02_JPRB,&
+&.476E-02_JPRB,.443E-02_JPRB,.431E-02_JPRB,.423E-02_JPRB,.414E-02_JPRB,.409E-02_JPRB,.406E-02_JPRB,&
+&.404E-02_JPRB,.402E-02_JPRB,.405E-02_JPRB,.410E-02_JPRB,.715E-02_JPRB,.740E-02_JPRB,.771E-02_JPRB,&
+&.484E-02_JPRB,.808E-02_JPRB,.806E-02_JPRB,.785E-02_JPRB,.779E-02_JPRB,.778E-02_JPRB,.510E-02_JPRB,&
+&.987E-02_JPRB,.112E-01_JPRB,.142E-01_JPRB,.154E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,&
+&.170E-01_JPRB,.181E-01_JPRB,.230E-01_JPRB,.167E-01_JPRB,.214E-01_JPRB,.477E-01_JPRB,.338E-01_JPRB,&
+&.404E-01_JPRB,.459E-01_JPRB,.460E-01_JPRB,.451E-01_JPRB,.404E-01_JPRB,.373E-01_JPRB,.341E-01_JPRB,&
+&.281E-01_JPRB,.261E-01_JPRB,.242E-01_JPRB,.223E-01_JPRB,.211E-01_JPRB,.200E-01_JPRB,.179E-01_JPRB,&
+&.161E-01_JPRB,.146E-01_JPRB,.126E-01_JPRB,.111E-01_JPRB,.101E-01_JPRB,.882E-02_JPRB,.813E-02_JPRB,&
+&.791E-02_JPRB,.784E-02_JPRB,.800E-02_JPRB,.803E-02_JPRB,.802E-02_JPRB,.784E-02_JPRB,.771E-02_JPRB,&
+&.756E-02_JPRB,.122E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 40 -66.0
+ZAER (:,40, 2) = (/&
+&.702E-02_JPRB,.701E-02_JPRB,.109E-01_JPRB,.104E-01_JPRB,.591E-02_JPRB,.533E-02_JPRB,.499E-02_JPRB,&
+&.472E-02_JPRB,.439E-02_JPRB,.424E-02_JPRB,.414E-02_JPRB,.401E-02_JPRB,.390E-02_JPRB,.383E-02_JPRB,&
+&.374E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,.371E-02_JPRB,.386E-02_JPRB,.398E-02_JPRB,.688E-02_JPRB,&
+&.429E-02_JPRB,.432E-02_JPRB,.433E-02_JPRB,.716E-02_JPRB,.725E-02_JPRB,.442E-02_JPRB,.490E-02_JPRB,&
+&.544E-02_JPRB,.993E-02_JPRB,.116E-01_JPRB,.126E-01_JPRB,.133E-01_JPRB,.143E-01_JPRB,.151E-01_JPRB,&
+&.160E-01_JPRB,.175E-01_JPRB,.204E-01_JPRB,.229E-01_JPRB,.161E-01_JPRB,.193E-01_JPRB,.216E-01_JPRB,&
+&.246E-01_JPRB,.280E-01_JPRB,.292E-01_JPRB,.301E-01_JPRB,.297E-01_JPRB,.286E-01_JPRB,.275E-01_JPRB,&
+&.244E-01_JPRB,.230E-01_JPRB,.217E-01_JPRB,.202E-01_JPRB,.193E-01_JPRB,.185E-01_JPRB,.168E-01_JPRB,&
+&.153E-01_JPRB,.140E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.929E-02_JPRB,.858E-02_JPRB,&
+&.823E-02_JPRB,.788E-02_JPRB,.770E-02_JPRB,.763E-02_JPRB,.757E-02_JPRB,.750E-02_JPRB,.743E-02_JPRB,&
+&.734E-02_JPRB,.703E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 41 -70.0
+ZAER (:,41, 2) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.980E-02_JPRB,.562E-02_JPRB,.519E-02_JPRB,.494E-02_JPRB,&
+&.475E-02_JPRB,.749E-02_JPRB,.724E-02_JPRB,.423E-02_JPRB,.681E-02_JPRB,.658E-02_JPRB,.386E-02_JPRB,&
+&.374E-02_JPRB,.364E-02_JPRB,.600E-02_JPRB,.358E-02_JPRB,.364E-02_JPRB,.370E-02_JPRB,.377E-02_JPRB,&
+&.387E-02_JPRB,.389E-02_JPRB,.652E-02_JPRB,.662E-02_JPRB,.680E-02_JPRB,.421E-02_JPRB,.463E-02_JPRB,&
+&.500E-02_JPRB,.535E-02_JPRB,.602E-02_JPRB,.650E-02_JPRB,.115E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.143E-01_JPRB,.157E-01_JPRB,.174E-01_JPRB,.188E-01_JPRB,.208E-01_JPRB,.237E-01_JPRB,.154E-01_JPRB,&
+&.171E-01_JPRB,.319E-01_JPRB,.336E-01_JPRB,.353E-01_JPRB,.368E-01_JPRB,.366E-01_JPRB,.363E-01_JPRB,&
+&.342E-01_JPRB,.197E-01_JPRB,.188E-01_JPRB,.174E-01_JPRB,.165E-01_JPRB,.157E-01_JPRB,.143E-01_JPRB,&
+&.133E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.957E-02_JPRB,.910E-02_JPRB,&
+&.882E-02_JPRB,.849E-02_JPRB,.812E-02_JPRB,.790E-02_JPRB,.766E-02_JPRB,.737E-02_JPRB,.721E-02_JPRB,&
+&.117E-01_JPRB,.664E-02_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 42 -74.0
+ZAER (:,42, 2) = (/&
+&.109E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,.973E-02_JPRB,.936E-02_JPRB,.879E-02_JPRB,.846E-02_JPRB,&
+&.820E-02_JPRB,.784E-02_JPRB,.759E-02_JPRB,.741E-02_JPRB,.715E-02_JPRB,.416E-02_JPRB,.408E-02_JPRB,&
+&.661E-02_JPRB,.645E-02_JPRB,.638E-02_JPRB,.632E-02_JPRB,.631E-02_JPRB,.380E-02_JPRB,.638E-02_JPRB,&
+&.646E-02_JPRB,.651E-02_JPRB,.656E-02_JPRB,.668E-02_JPRB,.408E-02_JPRB,.416E-02_JPRB,.440E-02_JPRB,&
+&.462E-02_JPRB,.482E-02_JPRB,.526E-02_JPRB,.562E-02_JPRB,.990E-02_JPRB,.108E-01_JPRB,.117E-01_JPRB,&
+&.123E-01_JPRB,.134E-01_JPRB,.146E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.186E-01_JPRB,.199E-01_JPRB,&
+&.216E-01_JPRB,.241E-01_JPRB,.253E-01_JPRB,.267E-01_JPRB,.281E-01_JPRB,.283E-01_JPRB,.285E-01_JPRB,&
+&.277E-01_JPRB,.268E-01_JPRB,.260E-01_JPRB,.241E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,.121E-01_JPRB,&
+&.115E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.162E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,&
+&.150E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.109E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 43 -78.0
+ZAER (:,43, 2) = (/&
+&.114E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.954E-02_JPRB,.923E-02_JPRB,&
+&.898E-02_JPRB,.861E-02_JPRB,.835E-02_JPRB,.816E-02_JPRB,.790E-02_JPRB,.770E-02_JPRB,.757E-02_JPRB,&
+&.742E-02_JPRB,.731E-02_JPRB,.726E-02_JPRB,.722E-02_JPRB,.434E-02_JPRB,.435E-02_JPRB,.438E-02_JPRB,&
+&.741E-02_JPRB,.748E-02_JPRB,.453E-02_JPRB,.460E-02_JPRB,.464E-02_JPRB,.469E-02_JPRB,.480E-02_JPRB,&
+&.490E-02_JPRB,.501E-02_JPRB,.523E-02_JPRB,.544E-02_JPRB,.938E-02_JPRB,.994E-02_JPRB,.105E-01_JPRB,&
+&.109E-01_JPRB,.116E-01_JPRB,.124E-01_JPRB,.130E-01_JPRB,.830E-02_JPRB,.150E-01_JPRB,.158E-01_JPRB,&
+&.168E-01_JPRB,.182E-01_JPRB,.189E-01_JPRB,.196E-01_JPRB,.205E-01_JPRB,.208E-01_JPRB,.210E-01_JPRB,&
+&.209E-01_JPRB,.207E-01_JPRB,.204E-01_JPRB,.196E-01_JPRB,.191E-01_JPRB,.186E-01_JPRB,.178E-01_JPRB,&
+&.173E-01_JPRB,.101E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.150E-01_JPRB,&
+&.148E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,&
+&.120E-01_JPRB,.114E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 44 -82.0
+ZAER (:,44, 2) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,&
+&.102E-01_JPRB,.993E-02_JPRB,.974E-02_JPRB,.961E-02_JPRB,.943E-02_JPRB,.929E-02_JPRB,.921E-02_JPRB,&
+&.911E-02_JPRB,.905E-02_JPRB,.903E-02_JPRB,.901E-02_JPRB,.902E-02_JPRB,.905E-02_JPRB,.545E-02_JPRB,&
+&.550E-02_JPRB,.553E-02_JPRB,.556E-02_JPRB,.562E-02_JPRB,.565E-02_JPRB,.568E-02_JPRB,.575E-02_JPRB,&
+&.581E-02_JPRB,.587E-02_JPRB,.598E-02_JPRB,.608E-02_JPRB,.617E-02_JPRB,.106E-01_JPRB,.108E-01_JPRB,&
+&.110E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,&
+&.138E-01_JPRB,.143E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,&
+&.157E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.153E-01_JPRB,&
+&.151E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,&
+&.138E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,&
+&.122E-01_JPRB,.118E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 45 -86.0
+ZAER (:,45, 2) = (/&
+&.118E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.116E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.123E-01_JPRB,.125E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.120E-01_JPRB,.119E-01_JPRB/)
+!-- Organic Aerosol          month:  2 --- lat: 46 -90.0
+ZAER (:,46, 2) = (/&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=2   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_02
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_03.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_03.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_03.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_03
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,3:3)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  3 --- lat:  1  90.0
+ZAER (:, 1, 3) = (/&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  2  86.0
+ZAER (:, 2, 3) = (/&
+&.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.109E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  3  82.0
+ZAER (:, 3, 3) = (/&
+&.112E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,&
+&.111E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,&
+&.103E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.998E-03_JPRB,&
+&.991E-03_JPRB,.988E-03_JPRB,.985E-03_JPRB,.980E-03_JPRB,.977E-03_JPRB,.976E-03_JPRB,.974E-03_JPRB,&
+&.973E-03_JPRB,.973E-03_JPRB,.976E-03_JPRB,.980E-03_JPRB,.984E-03_JPRB,.991E-03_JPRB,.100E-02_JPRB,&
+&.101E-02_JPRB,.102E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,&
+&.110E-02_JPRB,.111E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  4  78.0
+ZAER (:, 4, 3) = (/&
+&.117E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,&
+&.117E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,&
+&.103E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.999E-03_JPRB,.996E-03_JPRB,.992E-03_JPRB,&
+&.984E-03_JPRB,.978E-03_JPRB,.972E-03_JPRB,.958E-03_JPRB,.950E-03_JPRB,.943E-03_JPRB,.933E-03_JPRB,&
+&.927E-03_JPRB,.924E-03_JPRB,.923E-03_JPRB,.927E-03_JPRB,.932E-03_JPRB,.942E-03_JPRB,.960E-03_JPRB,&
+&.974E-03_JPRB,.994E-03_JPRB,.102E-02_JPRB,.104E-02_JPRB,.106E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,&
+&.113E-02_JPRB,.117E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  5  74.0
+ZAER (:, 5, 3) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,&
+&.128E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.127E-02_JPRB,&
+&.123E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.100E-02_JPRB,.987E-03_JPRB,.973E-03_JPRB,.952E-03_JPRB,&
+&.940E-03_JPRB,.932E-03_JPRB,.926E-03_JPRB,.928E-03_JPRB,.934E-03_JPRB,.947E-03_JPRB,.972E-03_JPRB,&
+&.991E-03_JPRB,.102E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,&
+&.120E-02_JPRB,.123E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  6  70.0
+ZAER (:, 6, 3) = (/&
+&.130E-02_JPRB,.130E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,&
+&.131E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,&
+&.136E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,&
+&.155E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,&
+&.134E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,&
+&.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,&
+&.103E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.106E-02_JPRB,&
+&.108E-02_JPRB,.111E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,&
+&.128E-02_JPRB,.130E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  7  66.0
+ZAER (:, 7, 3) = (/&
+&.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.135E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,&
+&.131E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,.145E-02_JPRB,&
+&.148E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.159E-02_JPRB,.163E-02_JPRB,&
+&.164E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,&
+&.155E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,&
+&.139E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,&
+&.137E-02_JPRB,.138E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  8  62.0
+ZAER (:, 8, 3) = (/&
+&.148E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,&
+&.143E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,&
+&.141E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,.151E-02_JPRB,.154E-02_JPRB,.158E-02_JPRB,&
+&.164E-02_JPRB,.167E-02_JPRB,.169E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.172E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.175E-02_JPRB,.177E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,&
+&.176E-02_JPRB,.173E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,&
+&.165E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,&
+&.165E-02_JPRB,.161E-02_JPRB,.158E-02_JPRB,.150E-02_JPRB,.145E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,&
+&.138E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,&
+&.142E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,&
+&.145E-02_JPRB,.148E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat:  9  58.0
+ZAER (:, 9, 3) = (/&
+&.159E-02_JPRB,.160E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.159E-02_JPRB,.157E-02_JPRB,&
+&.155E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,&
+&.152E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,.159E-02_JPRB,.165E-02_JPRB,.172E-02_JPRB,&
+&.190E-02_JPRB,.197E-02_JPRB,.204E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,.200E-02_JPRB,.192E-02_JPRB,&
+&.187E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,.191E-02_JPRB,.195E-02_JPRB,.198E-02_JPRB,.197E-02_JPRB,&
+&.196E-02_JPRB,.193E-02_JPRB,.189E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,&
+&.179E-02_JPRB,.182E-02_JPRB,.183E-02_JPRB,.185E-02_JPRB,.187E-02_JPRB,.188E-02_JPRB,.189E-02_JPRB,&
+&.187E-02_JPRB,.184E-02_JPRB,.181E-02_JPRB,.176E-02_JPRB,.171E-02_JPRB,.167E-02_JPRB,.163E-02_JPRB,&
+&.162E-02_JPRB,.162E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,&
+&.160E-02_JPRB,.158E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,&
+&.154E-02_JPRB,.159E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 10  54.0
+ZAER (:,10, 3) = (/&
+&.173E-02_JPRB,.173E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,.173E-02_JPRB,&
+&.169E-02_JPRB,.165E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,&
+&.163E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,.166E-02_JPRB,.175E-02_JPRB,.186E-02_JPRB,&
+&.216E-02_JPRB,.137E-02_JPRB,.241E-02_JPRB,.239E-02_JPRB,.232E-02_JPRB,.225E-02_JPRB,.214E-02_JPRB,&
+&.213E-02_JPRB,.212E-02_JPRB,.218E-02_JPRB,.224E-02_JPRB,.229E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,&
+&.235E-02_JPRB,.226E-02_JPRB,.215E-02_JPRB,.208E-02_JPRB,.200E-02_JPRB,.191E-02_JPRB,.188E-02_JPRB,&
+&.186E-02_JPRB,.190E-02_JPRB,.194E-02_JPRB,.200E-02_JPRB,.206E-02_JPRB,.208E-02_JPRB,.209E-02_JPRB,&
+&.207E-02_JPRB,.202E-02_JPRB,.197E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,&
+&.183E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.177E-02_JPRB,&
+&.175E-02_JPRB,.173E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.163E-02_JPRB,&
+&.166E-02_JPRB,.173E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 11  50.0
+ZAER (:,11, 3) = (/&
+&.199E-02_JPRB,.200E-02_JPRB,.207E-02_JPRB,.209E-02_JPRB,.210E-02_JPRB,.204E-02_JPRB,.197E-02_JPRB,&
+&.192E-02_JPRB,.185E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,&
+&.181E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,.182E-02_JPRB,.192E-02_JPRB,.206E-02_JPRB,&
+&.246E-02_JPRB,.160E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.274E-02_JPRB,.261E-02_JPRB,.257E-02_JPRB,&
+&.266E-02_JPRB,.275E-02_JPRB,.294E-02_JPRB,.306E-02_JPRB,.316E-02_JPRB,.328E-02_JPRB,.317E-02_JPRB,&
+&.305E-02_JPRB,.285E-02_JPRB,.265E-02_JPRB,.253E-02_JPRB,.240E-02_JPRB,.224E-02_JPRB,.218E-02_JPRB,&
+&.212E-02_JPRB,.213E-02_JPRB,.219E-02_JPRB,.226E-02_JPRB,.234E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,&
+&.227E-02_JPRB,.218E-02_JPRB,.209E-02_JPRB,.198E-02_JPRB,.199E-02_JPRB,.200E-02_JPRB,.207E-02_JPRB,&
+&.209E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.206E-02_JPRB,.204E-02_JPRB,.203E-02_JPRB,&
+&.203E-02_JPRB,.202E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.185E-02_JPRB,&
+&.191E-02_JPRB,.199E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 12  46.0
+ZAER (:,12, 3) = (/&
+&.246E-02_JPRB,.247E-02_JPRB,.249E-02_JPRB,.251E-02_JPRB,.252E-02_JPRB,.246E-02_JPRB,.236E-02_JPRB,&
+&.229E-02_JPRB,.217E-02_JPRB,.212E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.212E-02_JPRB,.211E-02_JPRB,&
+&.209E-02_JPRB,.206E-02_JPRB,.204E-02_JPRB,.201E-02_JPRB,.202E-02_JPRB,.210E-02_JPRB,.221E-02_JPRB,&
+&.275E-02_JPRB,.189E-02_JPRB,.356E-02_JPRB,.393E-02_JPRB,.382E-02_JPRB,.371E-02_JPRB,.359E-02_JPRB,&
+&.375E-02_JPRB,.391E-02_JPRB,.428E-02_JPRB,.442E-02_JPRB,.447E-02_JPRB,.439E-02_JPRB,.414E-02_JPRB,&
+&.395E-02_JPRB,.369E-02_JPRB,.344E-02_JPRB,.332E-02_JPRB,.320E-02_JPRB,.297E-02_JPRB,.284E-02_JPRB,&
+&.270E-02_JPRB,.273E-02_JPRB,.279E-02_JPRB,.287E-02_JPRB,.292E-02_JPRB,.289E-02_JPRB,.284E-02_JPRB,&
+&.264E-02_JPRB,.249E-02_JPRB,.234E-02_JPRB,.214E-02_JPRB,.215E-02_JPRB,.218E-02_JPRB,.231E-02_JPRB,&
+&.239E-02_JPRB,.243E-02_JPRB,.245E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,&
+&.249E-02_JPRB,.254E-02_JPRB,.247E-02_JPRB,.236E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.225E-02_JPRB,&
+&.235E-02_JPRB,.246E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 13  42.0
+ZAER (:,13, 3) = (/&
+&.316E-02_JPRB,.316E-02_JPRB,.309E-02_JPRB,.312E-02_JPRB,.314E-02_JPRB,.306E-02_JPRB,.292E-02_JPRB,&
+&.280E-02_JPRB,.262E-02_JPRB,.255E-02_JPRB,.252E-02_JPRB,.253E-02_JPRB,.252E-02_JPRB,.251E-02_JPRB,&
+&.247E-02_JPRB,.241E-02_JPRB,.235E-02_JPRB,.226E-02_JPRB,.224E-02_JPRB,.229E-02_JPRB,.239E-02_JPRB,&
+&.321E-02_JPRB,.242E-02_JPRB,.295E-02_JPRB,.625E-02_JPRB,.623E-02_JPRB,.617E-02_JPRB,.552E-02_JPRB,&
+&.539E-02_JPRB,.535E-02_JPRB,.585E-02_JPRB,.587E-02_JPRB,.581E-02_JPRB,.547E-02_JPRB,.523E-02_JPRB,&
+&.508E-02_JPRB,.492E-02_JPRB,.469E-02_JPRB,.458E-02_JPRB,.448E-02_JPRB,.423E-02_JPRB,.408E-02_JPRB,&
+&.392E-02_JPRB,.389E-02_JPRB,.393E-02_JPRB,.398E-02_JPRB,.388E-02_JPRB,.381E-02_JPRB,.374E-02_JPRB,&
+&.336E-02_JPRB,.311E-02_JPRB,.287E-02_JPRB,.255E-02_JPRB,.252E-02_JPRB,.252E-02_JPRB,.268E-02_JPRB,&
+&.282E-02_JPRB,.291E-02_JPRB,.301E-02_JPRB,.309E-02_JPRB,.314E-02_JPRB,.319E-02_JPRB,.325E-02_JPRB,&
+&.335E-02_JPRB,.352E-02_JPRB,.339E-02_JPRB,.319E-02_JPRB,.290E-02_JPRB,.280E-02_JPRB,.290E-02_JPRB,&
+&.303E-02_JPRB,.316E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 14  38.0
+ZAER (:,14, 3) = (/&
+&.392E-02_JPRB,.391E-02_JPRB,.377E-02_JPRB,.378E-02_JPRB,.378E-02_JPRB,.367E-02_JPRB,.350E-02_JPRB,&
+&.336E-02_JPRB,.312E-02_JPRB,.302E-02_JPRB,.296E-02_JPRB,.293E-02_JPRB,.289E-02_JPRB,.286E-02_JPRB,&
+&.281E-02_JPRB,.274E-02_JPRB,.266E-02_JPRB,.253E-02_JPRB,.248E-02_JPRB,.257E-02_JPRB,.271E-02_JPRB,&
+&.431E-02_JPRB,.357E-02_JPRB,.465E-02_JPRB,.649E-02_JPRB,.110E-01_JPRB,.111E-01_JPRB,.885E-02_JPRB,&
+&.799E-02_JPRB,.736E-02_JPRB,.727E-02_JPRB,.720E-02_JPRB,.708E-02_JPRB,.667E-02_JPRB,.642E-02_JPRB,&
+&.631E-02_JPRB,.627E-02_JPRB,.607E-02_JPRB,.605E-02_JPRB,.615E-02_JPRB,.618E-02_JPRB,.617E-02_JPRB,&
+&.613E-02_JPRB,.587E-02_JPRB,.573E-02_JPRB,.559E-02_JPRB,.517E-02_JPRB,.506E-02_JPRB,.496E-02_JPRB,&
+&.443E-02_JPRB,.410E-02_JPRB,.379E-02_JPRB,.334E-02_JPRB,.324E-02_JPRB,.320E-02_JPRB,.337E-02_JPRB,&
+&.356E-02_JPRB,.372E-02_JPRB,.397E-02_JPRB,.420E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,.447E-02_JPRB,&
+&.468E-02_JPRB,.503E-02_JPRB,.295E-02_JPRB,.464E-02_JPRB,.420E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,&
+&.376E-02_JPRB,.391E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 15  34.0
+ZAER (:,15, 3) = (/&
+&.458E-02_JPRB,.457E-02_JPRB,.437E-02_JPRB,.429E-02_JPRB,.421E-02_JPRB,.406E-02_JPRB,.393E-02_JPRB,&
+&.382E-02_JPRB,.359E-02_JPRB,.343E-02_JPRB,.332E-02_JPRB,.320E-02_JPRB,.311E-02_JPRB,.307E-02_JPRB,&
+&.302E-02_JPRB,.297E-02_JPRB,.290E-02_JPRB,.278E-02_JPRB,.276E-02_JPRB,.292E-02_JPRB,.317E-02_JPRB,&
+&.640E-02_JPRB,.558E-02_JPRB,.746E-02_JPRB,.114E-01_JPRB,.121E-01_JPRB,.209E-01_JPRB,.149E-01_JPRB,&
+&.124E-01_JPRB,.105E-01_JPRB,.912E-02_JPRB,.887E-02_JPRB,.865E-02_JPRB,.830E-02_JPRB,.784E-02_JPRB,&
+&.756E-02_JPRB,.730E-02_JPRB,.725E-02_JPRB,.749E-02_JPRB,.811E-02_JPRB,.543E-02_JPRB,.941E-02_JPRB,&
+&.971E-02_JPRB,.863E-02_JPRB,.801E-02_JPRB,.734E-02_JPRB,.659E-02_JPRB,.642E-02_JPRB,.628E-02_JPRB,&
+&.581E-02_JPRB,.547E-02_JPRB,.514E-02_JPRB,.463E-02_JPRB,.449E-02_JPRB,.441E-02_JPRB,.455E-02_JPRB,&
+&.473E-02_JPRB,.494E-02_JPRB,.543E-02_JPRB,.578E-02_JPRB,.353E-02_JPRB,.580E-02_JPRB,.602E-02_JPRB,&
+&.627E-02_JPRB,.401E-02_JPRB,.402E-02_JPRB,.384E-02_JPRB,.589E-02_JPRB,.476E-02_JPRB,.458E-02_JPRB,&
+&.450E-02_JPRB,.458E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 16  30.0
+ZAER (:,16, 3) = (/&
+&.502E-02_JPRB,.501E-02_JPRB,.472E-02_JPRB,.454E-02_JPRB,.438E-02_JPRB,.422E-02_JPRB,.415E-02_JPRB,&
+&.409E-02_JPRB,.393E-02_JPRB,.375E-02_JPRB,.360E-02_JPRB,.337E-02_JPRB,.324E-02_JPRB,.319E-02_JPRB,&
+&.316E-02_JPRB,.313E-02_JPRB,.309E-02_JPRB,.300E-02_JPRB,.304E-02_JPRB,.332E-02_JPRB,.373E-02_JPRB,&
+&.885E-02_JPRB,.772E-02_JPRB,.103E-01_JPRB,.172E-01_JPRB,.191E-01_JPRB,.342E-01_JPRB,.241E-01_JPRB,&
+&.190E-01_JPRB,.150E-01_JPRB,.119E-01_JPRB,.112E-01_JPRB,.106E-01_JPRB,.101E-01_JPRB,.934E-02_JPRB,&
+&.883E-02_JPRB,.826E-02_JPRB,.865E-02_JPRB,.933E-02_JPRB,.107E-01_JPRB,.764E-02_JPRB,.813E-02_JPRB,&
+&.855E-02_JPRB,.119E-01_JPRB,.106E-01_JPRB,.917E-02_JPRB,.800E-02_JPRB,.779E-02_JPRB,.763E-02_JPRB,&
+&.743E-02_JPRB,.714E-02_JPRB,.687E-02_JPRB,.643E-02_JPRB,.625E-02_JPRB,.613E-02_JPRB,.615E-02_JPRB,&
+&.628E-02_JPRB,.650E-02_JPRB,.714E-02_JPRB,.454E-02_JPRB,.461E-02_JPRB,.452E-02_JPRB,.460E-02_JPRB,&
+&.470E-02_JPRB,.487E-02_JPRB,.491E-02_JPRB,.471E-02_JPRB,.727E-02_JPRB,.575E-02_JPRB,.541E-02_JPRB,&
+&.517E-02_JPRB,.503E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 17  26.0
+ZAER (:,17, 3) = (/&
+&.524E-02_JPRB,.523E-02_JPRB,.486E-02_JPRB,.461E-02_JPRB,.441E-02_JPRB,.426E-02_JPRB,.421E-02_JPRB,&
+&.416E-02_JPRB,.409E-02_JPRB,.395E-02_JPRB,.381E-02_JPRB,.357E-02_JPRB,.341E-02_JPRB,.335E-02_JPRB,&
+&.336E-02_JPRB,.337E-02_JPRB,.334E-02_JPRB,.328E-02_JPRB,.348E-02_JPRB,.394E-02_JPRB,.459E-02_JPRB,&
+&.105E-01_JPRB,.881E-02_JPRB,.114E-01_JPRB,.198E-01_JPRB,.231E-01_JPRB,.257E-01_JPRB,.325E-01_JPRB,&
+&.253E-01_JPRB,.195E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.108E-01_JPRB,&
+&.103E-01_JPRB,.995E-02_JPRB,.111E-01_JPRB,.122E-01_JPRB,.850E-02_JPRB,.102E-01_JPRB,.108E-01_JPRB,&
+&.112E-01_JPRB,.153E-01_JPRB,.133E-01_JPRB,.112E-01_JPRB,.960E-02_JPRB,.939E-02_JPRB,.927E-02_JPRB,&
+&.925E-02_JPRB,.898E-02_JPRB,.873E-02_JPRB,.835E-02_JPRB,.810E-02_JPRB,.792E-02_JPRB,.772E-02_JPRB,&
+&.784E-02_JPRB,.806E-02_JPRB,.873E-02_JPRB,.556E-02_JPRB,.568E-02_JPRB,.566E-02_JPRB,.555E-02_JPRB,&
+&.552E-02_JPRB,.552E-02_JPRB,.536E-02_JPRB,.508E-02_JPRB,.778E-02_JPRB,.637E-02_JPRB,.595E-02_JPRB,&
+&.560E-02_JPRB,.525E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 18  22.0
+ZAER (:,18, 3) = (/&
+&.534E-02_JPRB,.533E-02_JPRB,.494E-02_JPRB,.467E-02_JPRB,.443E-02_JPRB,.423E-02_JPRB,.415E-02_JPRB,&
+&.410E-02_JPRB,.410E-02_JPRB,.405E-02_JPRB,.399E-02_JPRB,.385E-02_JPRB,.367E-02_JPRB,.362E-02_JPRB,&
+&.364E-02_JPRB,.374E-02_JPRB,.377E-02_JPRB,.379E-02_JPRB,.438E-02_JPRB,.513E-02_JPRB,.614E-02_JPRB,&
+&.109E-01_JPRB,.862E-02_JPRB,.108E-01_JPRB,.182E-01_JPRB,.219E-01_JPRB,.251E-01_JPRB,.209E-01_JPRB,&
+&.278E-01_JPRB,.220E-01_JPRB,.158E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,&
+&.125E-01_JPRB,.130E-01_JPRB,.147E-01_JPRB,.163E-01_JPRB,.113E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,&
+&.135E-01_JPRB,.112E-01_JPRB,.164E-01_JPRB,.828E-02_JPRB,.116E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,&
+&.109E-01_JPRB,.106E-01_JPRB,.103E-01_JPRB,.979E-02_JPRB,.948E-02_JPRB,.923E-02_JPRB,.895E-02_JPRB,&
+&.909E-02_JPRB,.932E-02_JPRB,.996E-02_JPRB,.108E-01_JPRB,.676E-02_JPRB,.700E-02_JPRB,.649E-02_JPRB,&
+&.622E-02_JPRB,.592E-02_JPRB,.537E-02_JPRB,.834E-02_JPRB,.760E-02_JPRB,.653E-02_JPRB,.612E-02_JPRB,&
+&.574E-02_JPRB,.535E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 19  18.0
+ZAER (:,19, 3) = (/&
+&.535E-02_JPRB,.534E-02_JPRB,.502E-02_JPRB,.477E-02_JPRB,.454E-02_JPRB,.423E-02_JPRB,.412E-02_JPRB,&
+&.406E-02_JPRB,.412E-02_JPRB,.418E-02_JPRB,.420E-02_JPRB,.417E-02_JPRB,.405E-02_JPRB,.404E-02_JPRB,&
+&.413E-02_JPRB,.432E-02_JPRB,.450E-02_JPRB,.476E-02_JPRB,.604E-02_JPRB,.715E-02_JPRB,.853E-02_JPRB,&
+&.113E-01_JPRB,.859E-02_JPRB,.105E-01_JPRB,.167E-01_JPRB,.195E-01_JPRB,.218E-01_JPRB,.190E-01_JPRB,&
+&.158E-01_JPRB,.218E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,&
+&.157E-01_JPRB,.170E-01_JPRB,.191E-01_JPRB,.211E-01_JPRB,.146E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,&
+&.154E-01_JPRB,.134E-01_JPRB,.198E-01_JPRB,.101E-01_JPRB,.138E-01_JPRB,.131E-01_JPRB,.124E-01_JPRB,&
+&.120E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.997E-02_JPRB,.994E-02_JPRB,&
+&.102E-01_JPRB,.105E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.831E-02_JPRB,.733E-02_JPRB,&
+&.675E-02_JPRB,.607E-02_JPRB,.520E-02_JPRB,.796E-02_JPRB,.725E-02_JPRB,.643E-02_JPRB,.608E-02_JPRB,&
+&.573E-02_JPRB,.536E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 20  14.0
+ZAER (:,20, 3) = (/&
+&.522E-02_JPRB,.521E-02_JPRB,.503E-02_JPRB,.488E-02_JPRB,.473E-02_JPRB,.438E-02_JPRB,.427E-02_JPRB,&
+&.424E-02_JPRB,.438E-02_JPRB,.445E-02_JPRB,.449E-02_JPRB,.453E-02_JPRB,.463E-02_JPRB,.476E-02_JPRB,&
+&.503E-02_JPRB,.541E-02_JPRB,.584E-02_JPRB,.651E-02_JPRB,.854E-02_JPRB,.996E-02_JPRB,.116E-01_JPRB,&
+&.851E-02_JPRB,.103E-01_JPRB,.124E-01_JPRB,.177E-01_JPRB,.189E-01_JPRB,.198E-01_JPRB,.172E-01_JPRB,&
+&.148E-01_JPRB,.213E-01_JPRB,.177E-01_JPRB,.173E-01_JPRB,.171E-01_JPRB,.176E-01_JPRB,.189E-01_JPRB,&
+&.200E-01_JPRB,.217E-01_JPRB,.241E-01_JPRB,.263E-01_JPRB,.179E-01_JPRB,.181E-01_JPRB,.178E-01_JPRB,&
+&.172E-01_JPRB,.155E-01_JPRB,.139E-01_JPRB,.201E-01_JPRB,.157E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,&
+&.126E-01_JPRB,.117E-01_JPRB,.109E-01_JPRB,.995E-02_JPRB,.101E-01_JPRB,.103E-01_JPRB,.109E-01_JPRB,&
+&.120E-01_JPRB,.128E-01_JPRB,.138E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,.769E-02_JPRB,&
+&.694E-02_JPRB,.102E-01_JPRB,.855E-02_JPRB,.778E-02_JPRB,.700E-02_JPRB,.632E-02_JPRB,.596E-02_JPRB,&
+&.558E-02_JPRB,.523E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 21  10.0
+ZAER (:,21, 3) = (/&
+&.503E-02_JPRB,.503E-02_JPRB,.508E-02_JPRB,.509E-02_JPRB,.506E-02_JPRB,.478E-02_JPRB,.477E-02_JPRB,&
+&.478E-02_JPRB,.490E-02_JPRB,.489E-02_JPRB,.492E-02_JPRB,.504E-02_JPRB,.541E-02_JPRB,.577E-02_JPRB,&
+&.637E-02_JPRB,.709E-02_JPRB,.785E-02_JPRB,.900E-02_JPRB,.116E-01_JPRB,.133E-01_JPRB,.152E-01_JPRB,&
+&.112E-01_JPRB,.131E-01_JPRB,.151E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.187E-01_JPRB,.166E-01_JPRB,&
+&.151E-01_JPRB,.228E-01_JPRB,.200E-01_JPRB,.200E-01_JPRB,.204E-01_JPRB,.220E-01_JPRB,.241E-01_JPRB,&
+&.257E-01_JPRB,.280E-01_JPRB,.314E-01_JPRB,.338E-01_JPRB,.222E-01_JPRB,.215E-01_JPRB,.206E-01_JPRB,&
+&.194E-01_JPRB,.178E-01_JPRB,.270E-01_JPRB,.238E-01_JPRB,.182E-01_JPRB,.165E-01_JPRB,.149E-01_JPRB,&
+&.131E-01_JPRB,.115E-01_JPRB,.101E-01_JPRB,.907E-02_JPRB,.971E-02_JPRB,.104E-01_JPRB,.121E-01_JPRB,&
+&.152E-01_JPRB,.172E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,.172E-01_JPRB,.154E-01_JPRB,.127E-01_JPRB,&
+&.115E-01_JPRB,.106E-01_JPRB,.896E-02_JPRB,.804E-02_JPRB,.700E-02_JPRB,.627E-02_JPRB,.582E-02_JPRB,&
+&.535E-02_JPRB,.504E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 22   6.0
+ZAER (:,22, 3) = (/&
+&.511E-02_JPRB,.512E-02_JPRB,.544E-02_JPRB,.560E-02_JPRB,.571E-02_JPRB,.557E-02_JPRB,.559E-02_JPRB,&
+&.560E-02_JPRB,.557E-02_JPRB,.549E-02_JPRB,.552E-02_JPRB,.576E-02_JPRB,.631E-02_JPRB,.685E-02_JPRB,&
+&.776E-02_JPRB,.892E-02_JPRB,.991E-02_JPRB,.113E-01_JPRB,.142E-01_JPRB,.166E-01_JPRB,.117E-01_JPRB,&
+&.147E-01_JPRB,.163E-01_JPRB,.179E-01_JPRB,.192E-01_JPRB,.184E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,&
+&.156E-01_JPRB,.248E-01_JPRB,.233E-01_JPRB,.244E-01_JPRB,.258E-01_JPRB,.295E-01_JPRB,.332E-01_JPRB,&
+&.357E-01_JPRB,.389E-01_JPRB,.442E-01_JPRB,.476E-01_JPRB,.310E-01_JPRB,.287E-01_JPRB,.270E-01_JPRB,&
+&.248E-01_JPRB,.220E-01_JPRB,.333E-01_JPRB,.294E-01_JPRB,.225E-01_JPRB,.198E-01_JPRB,.173E-01_JPRB,&
+&.136E-01_JPRB,.118E-01_JPRB,.103E-01_JPRB,.938E-02_JPRB,.103E-01_JPRB,.115E-01_JPRB,.151E-01_JPRB,&
+&.207E-01_JPRB,.239E-01_JPRB,.253E-01_JPRB,.229E-01_JPRB,.206E-01_JPRB,.163E-01_JPRB,.126E-01_JPRB,&
+&.113E-01_JPRB,.638E-02_JPRB,.549E-02_JPRB,.822E-02_JPRB,.715E-02_JPRB,.620E-02_JPRB,.573E-02_JPRB,&
+&.525E-02_JPRB,.512E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 23   2.0
+ZAER (:,23, 3) = (/&
+&.579E-02_JPRB,.581E-02_JPRB,.641E-02_JPRB,.667E-02_JPRB,.687E-02_JPRB,.681E-02_JPRB,.673E-02_JPRB,&
+&.663E-02_JPRB,.641E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.655E-02_JPRB,.727E-02_JPRB,.795E-02_JPRB,&
+&.909E-02_JPRB,.105E-01_JPRB,.118E-01_JPRB,.136E-01_JPRB,.179E-01_JPRB,.218E-01_JPRB,.160E-01_JPRB,&
+&.201E-01_JPRB,.216E-01_JPRB,.231E-01_JPRB,.198E-01_JPRB,.180E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,&
+&.269E-01_JPRB,.273E-01_JPRB,.283E-01_JPRB,.323E-01_JPRB,.366E-01_JPRB,.464E-01_JPRB,.544E-01_JPRB,&
+&.581E-01_JPRB,.592E-01_JPRB,.663E-01_JPRB,.433E-01_JPRB,.486E-01_JPRB,.449E-01_JPRB,.420E-01_JPRB,&
+&.381E-01_JPRB,.306E-01_JPRB,.267E-01_JPRB,.376E-01_JPRB,.287E-01_JPRB,.248E-01_JPRB,.210E-01_JPRB,&
+&.154E-01_JPRB,.141E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.140E-01_JPRB,.156E-01_JPRB,.231E-01_JPRB,&
+&.298E-01_JPRB,.196E-01_JPRB,.311E-01_JPRB,.166E-01_JPRB,.243E-01_JPRB,.184E-01_JPRB,.135E-01_JPRB,&
+&.686E-02_JPRB,.989E-02_JPRB,.842E-02_JPRB,.766E-02_JPRB,.685E-02_JPRB,.634E-02_JPRB,.604E-02_JPRB,&
+&.571E-02_JPRB,.579E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 24  -2.0
+ZAER (:,24, 3) = (/&
+&.761E-02_JPRB,.764E-02_JPRB,.839E-02_JPRB,.856E-02_JPRB,.867E-02_JPRB,.850E-02_JPRB,.827E-02_JPRB,&
+&.802E-02_JPRB,.739E-02_JPRB,.701E-02_JPRB,.692E-02_JPRB,.723E-02_JPRB,.829E-02_JPRB,.921E-02_JPRB,&
+&.107E-01_JPRB,.127E-01_JPRB,.150E-01_JPRB,.185E-01_JPRB,.263E-01_JPRB,.323E-01_JPRB,.397E-01_JPRB,&
+&.305E-01_JPRB,.317E-01_JPRB,.325E-01_JPRB,.218E-01_JPRB,.180E-01_JPRB,.246E-01_JPRB,.261E-01_JPRB,&
+&.288E-01_JPRB,.316E-01_JPRB,.378E-01_JPRB,.493E-01_JPRB,.613E-01_JPRB,.882E-01_JPRB,.110E+00_JPRB,&
+&.117E+00_JPRB,.112E+00_JPRB,.110E+00_JPRB,.681E-01_JPRB,.745E-01_JPRB,.738E-01_JPRB,.703E-01_JPRB,&
+&.642E-01_JPRB,.463E-01_JPRB,.379E-01_JPRB,.293E-01_JPRB,.367E-01_JPRB,.321E-01_JPRB,.277E-01_JPRB,&
+&.220E-01_JPRB,.219E-01_JPRB,.220E-01_JPRB,.240E-01_JPRB,.243E-01_JPRB,.262E-01_JPRB,.374E-01_JPRB,&
+&.262E-01_JPRB,.453E-01_JPRB,.387E-01_JPRB,.204E-01_JPRB,.300E-01_JPRB,.237E-01_JPRB,.165E-01_JPRB,&
+&.132E-01_JPRB,.101E-01_JPRB,.806E-02_JPRB,.733E-02_JPRB,.674E-02_JPRB,.713E-02_JPRB,.724E-02_JPRB,&
+&.734E-02_JPRB,.760E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 25  -6.0
+ZAER (:,25, 3) = (/&
+&.108E-01_JPRB,.108E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,&
+&.956E-02_JPRB,.858E-02_JPRB,.800E-02_JPRB,.780E-02_JPRB,.805E-02_JPRB,.944E-02_JPRB,.108E-01_JPRB,&
+&.131E-01_JPRB,.172E-01_JPRB,.214E-01_JPRB,.277E-01_JPRB,.391E-01_JPRB,.460E-01_JPRB,.538E-01_JPRB,&
+&.402E-01_JPRB,.403E-01_JPRB,.398E-01_JPRB,.223E-01_JPRB,.299E-01_JPRB,.236E-01_JPRB,.251E-01_JPRB,&
+&.289E-01_JPRB,.332E-01_JPRB,.460E-01_JPRB,.660E-01_JPRB,.869E-01_JPRB,.133E+00_JPRB,.995E-01_JPRB,&
+&.105E+00_JPRB,.967E-01_JPRB,.889E-01_JPRB,.883E-01_JPRB,.925E-01_JPRB,.938E-01_JPRB,.890E-01_JPRB,&
+&.798E-01_JPRB,.560E-01_JPRB,.444E-01_JPRB,.324E-01_JPRB,.411E-01_JPRB,.377E-01_JPRB,.347E-01_JPRB,&
+&.327E-01_JPRB,.350E-01_JPRB,.371E-01_JPRB,.399E-01_JPRB,.392E-01_JPRB,.407E-01_JPRB,.531E-01_JPRB,&
+&.609E-01_JPRB,.622E-01_JPRB,.509E-01_JPRB,.439E-01_JPRB,.384E-01_JPRB,.303E-01_JPRB,.208E-01_JPRB,&
+&.161E-01_JPRB,.115E-01_JPRB,.928E-02_JPRB,.873E-02_JPRB,.849E-02_JPRB,.920E-02_JPRB,.966E-02_JPRB,&
+&.102E-01_JPRB,.107E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 26 -10.0
+ZAER (:,26, 3) = (/&
+&.144E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,.137E-01_JPRB,.127E-01_JPRB,&
+&.118E-01_JPRB,.104E-01_JPRB,.958E-02_JPRB,.922E-02_JPRB,.927E-02_JPRB,.106E-01_JPRB,.124E-01_JPRB,&
+&.158E-01_JPRB,.246E-01_JPRB,.327E-01_JPRB,.444E-01_JPRB,.598E-01_JPRB,.625E-01_JPRB,.631E-01_JPRB,&
+&.398E-01_JPRB,.382E-01_JPRB,.362E-01_JPRB,.337E-01_JPRB,.280E-01_JPRB,.230E-01_JPRB,.234E-01_JPRB,&
+&.269E-01_JPRB,.310E-01_JPRB,.444E-01_JPRB,.690E-01_JPRB,.941E-01_JPRB,.148E+00_JPRB,.101E+00_JPRB,&
+&.103E+00_JPRB,.940E-01_JPRB,.877E-01_JPRB,.863E-01_JPRB,.874E-01_JPRB,.882E-01_JPRB,.839E-01_JPRB,&
+&.760E-01_JPRB,.545E-01_JPRB,.431E-01_JPRB,.309E-01_JPRB,.248E-01_JPRB,.406E-01_JPRB,.403E-01_JPRB,&
+&.443E-01_JPRB,.500E-01_JPRB,.551E-01_JPRB,.588E-01_JPRB,.571E-01_JPRB,.586E-01_JPRB,.753E-01_JPRB,&
+&.878E-01_JPRB,.897E-01_JPRB,.714E-01_JPRB,.577E-01_JPRB,.483E-01_JPRB,.360E-01_JPRB,.248E-01_JPRB,&
+&.192E-01_JPRB,.138E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,&
+&.139E-01_JPRB,.144E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 27 -14.0
+ZAER (:,27, 3) = (/&
+&.174E-01_JPRB,.174E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,.180E-01_JPRB,.172E-01_JPRB,.160E-01_JPRB,&
+&.148E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,.117E-01_JPRB,.135E-01_JPRB,&
+&.174E-01_JPRB,.331E-01_JPRB,.498E-01_JPRB,.754E-01_JPRB,.547E-01_JPRB,.500E-01_JPRB,.676E-01_JPRB,&
+&.549E-01_JPRB,.505E-01_JPRB,.466E-01_JPRB,.299E-01_JPRB,.262E-01_JPRB,.230E-01_JPRB,.234E-01_JPRB,&
+&.252E-01_JPRB,.276E-01_JPRB,.357E-01_JPRB,.551E-01_JPRB,.762E-01_JPRB,.754E-01_JPRB,.783E-01_JPRB,&
+&.768E-01_JPRB,.677E-01_JPRB,.647E-01_JPRB,.630E-01_JPRB,.612E-01_JPRB,.605E-01_JPRB,.588E-01_JPRB,&
+&.561E-01_JPRB,.435E-01_JPRB,.355E-01_JPRB,.267E-01_JPRB,.384E-01_JPRB,.398E-01_JPRB,.418E-01_JPRB,&
+&.539E-01_JPRB,.627E-01_JPRB,.425E-01_JPRB,.781E-01_JPRB,.778E-01_JPRB,.807E-01_JPRB,.101E+00_JPRB,&
+&.689E-01_JPRB,.704E-01_JPRB,.982E-01_JPRB,.745E-01_JPRB,.597E-01_JPRB,.431E-01_JPRB,.307E-01_JPRB,&
+&.247E-01_JPRB,.189E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,.175E-01_JPRB,&
+&.175E-01_JPRB,.174E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 28 -18.0
+ZAER (:,28, 3) = (/&
+&.198E-01_JPRB,.198E-01_JPRB,.208E-01_JPRB,.212E-01_JPRB,.214E-01_JPRB,.204E-01_JPRB,.188E-01_JPRB,&
+&.174E-01_JPRB,.150E-01_JPRB,.137E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.149E-01_JPRB,&
+&.187E-01_JPRB,.377E-01_JPRB,.352E-01_JPRB,.546E-01_JPRB,.646E-01_JPRB,.946E-01_JPRB,.707E-01_JPRB,&
+&.476E-01_JPRB,.420E-01_JPRB,.377E-01_JPRB,.282E-01_JPRB,.256E-01_JPRB,.233E-01_JPRB,.230E-01_JPRB,&
+&.239E-01_JPRB,.249E-01_JPRB,.275E-01_JPRB,.370E-01_JPRB,.498E-01_JPRB,.516E-01_JPRB,.532E-01_JPRB,&
+&.516E-01_JPRB,.443E-01_JPRB,.414E-01_JPRB,.392E-01_JPRB,.360E-01_JPRB,.349E-01_JPRB,.349E-01_JPRB,&
+&.354E-01_JPRB,.305E-01_JPRB,.445E-01_JPRB,.224E-01_JPRB,.208E-01_JPRB,.220E-01_JPRB,.392E-01_JPRB,&
+&.577E-01_JPRB,.693E-01_JPRB,.480E-01_JPRB,.556E-01_JPRB,.940E-01_JPRB,.965E-01_JPRB,.642E-01_JPRB,&
+&.748E-01_JPRB,.790E-01_JPRB,.124E+00_JPRB,.926E-01_JPRB,.735E-01_JPRB,.525E-01_JPRB,.407E-01_JPRB,&
+&.347E-01_JPRB,.286E-01_JPRB,.236E-01_JPRB,.225E-01_JPRB,.222E-01_JPRB,.219E-01_JPRB,.213E-01_JPRB,&
+&.207E-01_JPRB,.198E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 29 -22.0
+ZAER (:,29, 3) = (/&
+&.223E-01_JPRB,.224E-01_JPRB,.231E-01_JPRB,.233E-01_JPRB,.234E-01_JPRB,.221E-01_JPRB,.205E-01_JPRB,&
+&.190E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.154E-01_JPRB,.169E-01_JPRB,&
+&.197E-01_JPRB,.202E-01_JPRB,.298E-01_JPRB,.743E-01_JPRB,.917E-01_JPRB,.829E-01_JPRB,.655E-01_JPRB,&
+&.439E-01_JPRB,.382E-01_JPRB,.336E-01_JPRB,.271E-01_JPRB,.249E-01_JPRB,.229E-01_JPRB,.217E-01_JPRB,&
+&.221E-01_JPRB,.223E-01_JPRB,.221E-01_JPRB,.249E-01_JPRB,.301E-01_JPRB,.286E-01_JPRB,.312E-01_JPRB,&
+&.317E-01_JPRB,.296E-01_JPRB,.271E-01_JPRB,.253E-01_JPRB,.227E-01_JPRB,.222E-01_JPRB,.225E-01_JPRB,&
+&.233E-01_JPRB,.219E-01_JPRB,.207E-01_JPRB,.192E-01_JPRB,.189E-01_JPRB,.198E-01_JPRB,.347E-01_JPRB,&
+&.525E-01_JPRB,.387E-01_JPRB,.454E-01_JPRB,.525E-01_JPRB,.519E-01_JPRB,.518E-01_JPRB,.536E-01_JPRB,&
+&.702E-01_JPRB,.805E-01_JPRB,.883E-01_JPRB,.113E+00_JPRB,.913E-01_JPRB,.641E-01_JPRB,.528E-01_JPRB,&
+&.467E-01_JPRB,.401E-01_JPRB,.337E-01_JPRB,.312E-01_JPRB,.289E-01_JPRB,.265E-01_JPRB,.252E-01_JPRB,&
+&.238E-01_JPRB,.224E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 30 -26.0
+ZAER (:,30, 3) = (/&
+&.257E-01_JPRB,.257E-01_JPRB,.253E-01_JPRB,.247E-01_JPRB,.240E-01_JPRB,.221E-01_JPRB,.207E-01_JPRB,&
+&.194E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.161E-01_JPRB,.180E-01_JPRB,.192E-01_JPRB,&
+&.123E-01_JPRB,.161E-01_JPRB,.212E-01_JPRB,.487E-01_JPRB,.634E-01_JPRB,.606E-01_JPRB,.531E-01_JPRB,&
+&.398E-01_JPRB,.352E-01_JPRB,.310E-01_JPRB,.256E-01_JPRB,.238E-01_JPRB,.221E-01_JPRB,.203E-01_JPRB,&
+&.202E-01_JPRB,.201E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,.209E-01_JPRB,.266E-01_JPRB,.179E-01_JPRB,&
+&.191E-01_JPRB,.204E-01_JPRB,.197E-01_JPRB,.191E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.187E-01_JPRB,&
+&.193E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,.308E-01_JPRB,.191E-01_JPRB,&
+&.257E-01_JPRB,.306E-01_JPRB,.350E-01_JPRB,.383E-01_JPRB,.363E-01_JPRB,.354E-01_JPRB,.380E-01_JPRB,&
+&.612E-01_JPRB,.783E-01_JPRB,.100E+00_JPRB,.810E-01_JPRB,.111E+00_JPRB,.764E-01_JPRB,.626E-01_JPRB,&
+&.551E-01_JPRB,.471E-01_JPRB,.406E-01_JPRB,.376E-01_JPRB,.347E-01_JPRB,.309E-01_JPRB,.291E-01_JPRB,&
+&.272E-01_JPRB,.258E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 31 -30.0
+ZAER (:,31, 3) = (/&
+&.282E-01_JPRB,.282E-01_JPRB,.262E-01_JPRB,.248E-01_JPRB,.234E-01_JPRB,.208E-01_JPRB,.198E-01_JPRB,&
+&.188E-01_JPRB,.171E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.179E-01_JPRB,.197E-01_JPRB,.203E-01_JPRB,&
+&.122E-01_JPRB,.133E-01_JPRB,.158E-01_JPRB,.201E-01_JPRB,.263E-01_JPRB,.265E-01_JPRB,.423E-01_JPRB,&
+&.351E-01_JPRB,.315E-01_JPRB,.280E-01_JPRB,.231E-01_JPRB,.218E-01_JPRB,.207E-01_JPRB,.191E-01_JPRB,&
+&.187E-01_JPRB,.184E-01_JPRB,.181E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,.194E-01_JPRB,.127E-01_JPRB,&
+&.137E-01_JPRB,.155E-01_JPRB,.164E-01_JPRB,.172E-01_JPRB,.182E-01_JPRB,.191E-01_JPRB,.198E-01_JPRB,&
+&.208E-01_JPRB,.204E-01_JPRB,.202E-01_JPRB,.199E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.204E-01_JPRB,&
+&.222E-01_JPRB,.233E-01_JPRB,.241E-01_JPRB,.234E-01_JPRB,.218E-01_JPRB,.214E-01_JPRB,.263E-01_JPRB,&
+&.515E-01_JPRB,.721E-01_JPRB,.105E+00_JPRB,.878E-01_JPRB,.735E-01_JPRB,.842E-01_JPRB,.665E-01_JPRB,&
+&.569E-01_JPRB,.466E-01_JPRB,.406E-01_JPRB,.382E-01_JPRB,.360E-01_JPRB,.331E-01_JPRB,.315E-01_JPRB,&
+&.299E-01_JPRB,.283E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 32 -34.0
+ZAER (:,32, 3) = (/&
+&.273E-01_JPRB,.272E-01_JPRB,.247E-01_JPRB,.231E-01_JPRB,.215E-01_JPRB,.191E-01_JPRB,.183E-01_JPRB,&
+&.176E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.169E-01_JPRB,.191E-01_JPRB,.198E-01_JPRB,.117E-01_JPRB,&
+&.111E-01_JPRB,.115E-01_JPRB,.132E-01_JPRB,.163E-01_JPRB,.211E-01_JPRB,.220E-01_JPRB,.222E-01_JPRB,&
+&.320E-01_JPRB,.284E-01_JPRB,.247E-01_JPRB,.197E-01_JPRB,.189E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,&
+&.171E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,.173E-01_JPRB,.192E-01_JPRB,&
+&.127E-01_JPRB,.149E-01_JPRB,.174E-01_JPRB,.194E-01_JPRB,.370E-01_JPRB,.410E-01_JPRB,.428E-01_JPRB,&
+&.446E-01_JPRB,.429E-01_JPRB,.255E-01_JPRB,.254E-01_JPRB,.250E-01_JPRB,.245E-01_JPRB,.241E-01_JPRB,&
+&.224E-01_JPRB,.205E-01_JPRB,.186E-01_JPRB,.158E-01_JPRB,.153E-01_JPRB,.158E-01_JPRB,.208E-01_JPRB,&
+&.421E-01_JPRB,.610E-01_JPRB,.948E-01_JPRB,.836E-01_JPRB,.720E-01_JPRB,.849E-01_JPRB,.636E-01_JPRB,&
+&.313E-01_JPRB,.402E-01_JPRB,.350E-01_JPRB,.333E-01_JPRB,.320E-01_JPRB,.308E-01_JPRB,.300E-01_JPRB,&
+&.290E-01_JPRB,.274E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 33 -38.0
+ZAER (:,33, 3) = (/&
+&.229E-01_JPRB,.229E-01_JPRB,.214E-01_JPRB,.203E-01_JPRB,.192E-01_JPRB,.175E-01_JPRB,.168E-01_JPRB,&
+&.163E-01_JPRB,.158E-01_JPRB,.166E-01_JPRB,.174E-01_JPRB,.194E-01_JPRB,.113E-01_JPRB,.107E-01_JPRB,&
+&.952E-02_JPRB,.990E-02_JPRB,.114E-01_JPRB,.141E-01_JPRB,.186E-01_JPRB,.198E-01_JPRB,.206E-01_JPRB,&
+&.299E-01_JPRB,.260E-01_JPRB,.218E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.151E-01_JPRB,&
+&.150E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.166E-01_JPRB,.199E-01_JPRB,&
+&.140E-01_JPRB,.298E-01_JPRB,.386E-01_JPRB,.454E-01_JPRB,.552E-01_JPRB,.622E-01_JPRB,.634E-01_JPRB,&
+&.378E-01_JPRB,.349E-01_JPRB,.338E-01_JPRB,.326E-01_JPRB,.300E-01_JPRB,.287E-01_JPRB,.273E-01_JPRB,&
+&.245E-01_JPRB,.217E-01_JPRB,.191E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.162E-01_JPRB,.194E-01_JPRB,&
+&.338E-01_JPRB,.472E-01_JPRB,.728E-01_JPRB,.691E-01_JPRB,.104E+00_JPRB,.784E-01_JPRB,.555E-01_JPRB,&
+&.438E-01_JPRB,.193E-01_JPRB,.278E-01_JPRB,.264E-01_JPRB,.254E-01_JPRB,.248E-01_JPRB,.244E-01_JPRB,&
+&.239E-01_JPRB,.229E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 34 -42.0
+ZAER (:,34, 3) = (/&
+&.180E-01_JPRB,.180E-01_JPRB,.181E-01_JPRB,.178E-01_JPRB,.175E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,&
+&.156E-01_JPRB,.158E-01_JPRB,.169E-01_JPRB,.177E-01_JPRB,.190E-01_JPRB,.106E-01_JPRB,.987E-02_JPRB,&
+&.862E-02_JPRB,.897E-02_JPRB,.101E-01_JPRB,.122E-01_JPRB,.160E-01_JPRB,.172E-01_JPRB,.180E-01_JPRB,&
+&.158E-01_JPRB,.228E-01_JPRB,.190E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.171E-01_JPRB,.233E-01_JPRB,&
+&.178E-01_JPRB,.250E-01_JPRB,.602E-01_JPRB,.747E-01_JPRB,.955E-01_JPRB,.605E-01_JPRB,.589E-01_JPRB,&
+&.916E-01_JPRB,.817E-01_JPRB,.451E-01_JPRB,.407E-01_JPRB,.558E-01_JPRB,.311E-01_JPRB,.290E-01_JPRB,&
+&.270E-01_JPRB,.248E-01_JPRB,.228E-01_JPRB,.197E-01_JPRB,.190E-01_JPRB,.187E-01_JPRB,.196E-01_JPRB,&
+&.276E-01_JPRB,.349E-01_JPRB,.486E-01_JPRB,.495E-01_JPRB,.469E-01_JPRB,.382E-01_JPRB,.267E-01_JPRB,&
+&.350E-01_JPRB,.257E-01_JPRB,.219E-01_JPRB,.207E-01_JPRB,.197E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,&
+&.181E-01_JPRB,.180E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 35 -46.0
+ZAER (:,35, 3) = (/&
+&.147E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,.158E-01_JPRB,.155E-01_JPRB,&
+&.155E-01_JPRB,.158E-01_JPRB,.167E-01_JPRB,.172E-01_JPRB,.176E-01_JPRB,.979E-02_JPRB,.919E-02_JPRB,&
+&.831E-02_JPRB,.862E-02_JPRB,.934E-02_JPRB,.106E-01_JPRB,.127E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,&
+&.121E-01_JPRB,.108E-01_JPRB,.947E-02_JPRB,.130E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.126E-01_JPRB,&
+&.125E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,.148E-01_JPRB,.197E-01_JPRB,.314E-01_JPRB,&
+&.430E-01_JPRB,.388E-01_JPRB,.609E-01_JPRB,.768E-01_JPRB,.985E-01_JPRB,.953E-01_JPRB,.888E-01_JPRB,&
+&.784E-01_JPRB,.680E-01_JPRB,.598E-01_JPRB,.502E-01_JPRB,.622E-01_JPRB,.335E-01_JPRB,.301E-01_JPRB,&
+&.286E-01_JPRB,.277E-01_JPRB,.267E-01_JPRB,.241E-01_JPRB,.226E-01_JPRB,.215E-01_JPRB,.206E-01_JPRB,&
+&.238E-01_JPRB,.266E-01_JPRB,.314E-01_JPRB,.319E-01_JPRB,.307E-01_JPRB,.264E-01_JPRB,.197E-01_JPRB,&
+&.161E-01_JPRB,.208E-01_JPRB,.179E-01_JPRB,.169E-01_JPRB,.161E-01_JPRB,.150E-01_JPRB,.146E-01_JPRB,&
+&.143E-01_JPRB,.147E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 36 -50.0
+ZAER (:,36, 3) = (/&
+&.125E-01_JPRB,.125E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.149E-01_JPRB,&
+&.149E-01_JPRB,.151E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.906E-02_JPRB,.849E-02_JPRB,.816E-02_JPRB,&
+&.779E-02_JPRB,.816E-02_JPRB,.860E-02_JPRB,.930E-02_JPRB,.972E-02_JPRB,.962E-02_JPRB,.937E-02_JPRB,&
+&.853E-02_JPRB,.811E-02_JPRB,.770E-02_JPRB,.122E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.133E-01_JPRB,.140E-01_JPRB,.150E-01_JPRB,.169E-01_JPRB,.235E-01_JPRB,.411E-01_JPRB,&
+&.586E-01_JPRB,.549E-01_JPRB,.884E-01_JPRB,.110E+00_JPRB,.136E+00_JPRB,.127E+00_JPRB,.117E+00_JPRB,&
+&.103E+00_JPRB,.865E-01_JPRB,.741E-01_JPRB,.599E-01_JPRB,.426E-01_JPRB,.372E-01_JPRB,.322E-01_JPRB,&
+&.290E-01_JPRB,.291E-01_JPRB,.290E-01_JPRB,.276E-01_JPRB,.255E-01_JPRB,.236E-01_JPRB,.213E-01_JPRB,&
+&.212E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,.190E-01_JPRB,.178E-01_JPRB,.159E-01_JPRB,.134E-01_JPRB,&
+&.120E-01_JPRB,.103E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,&
+&.118E-01_JPRB,.125E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 37 -54.0
+ZAER (:,37, 3) = (/&
+&.115E-01_JPRB,.115E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,&
+&.133E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.764E-02_JPRB,.728E-02_JPRB,.683E-02_JPRB,.666E-02_JPRB,&
+&.662E-02_JPRB,.705E-02_JPRB,.736E-02_JPRB,.779E-02_JPRB,.768E-02_JPRB,.751E-02_JPRB,.121E-01_JPRB,&
+&.702E-02_JPRB,.699E-02_JPRB,.698E-02_JPRB,.719E-02_JPRB,.123E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,&
+&.138E-01_JPRB,.145E-01_JPRB,.161E-01_JPRB,.173E-01_JPRB,.193E-01_JPRB,.256E-01_JPRB,.433E-01_JPRB,&
+&.366E-01_JPRB,.947E-01_JPRB,.146E+00_JPRB,.106E+00_JPRB,.127E+00_JPRB,.127E+00_JPRB,.122E+00_JPRB,&
+&.114E+00_JPRB,.957E-01_JPRB,.821E-01_JPRB,.663E-01_JPRB,.471E-01_JPRB,.404E-01_JPRB,.341E-01_JPRB,&
+&.282E-01_JPRB,.279E-01_JPRB,.277E-01_JPRB,.278E-01_JPRB,.261E-01_JPRB,.243E-01_JPRB,.205E-01_JPRB,&
+&.186E-01_JPRB,.172E-01_JPRB,.151E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.106E-01_JPRB,.966E-02_JPRB,&
+&.912E-02_JPRB,.142E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.120E-01_JPRB,.653E-02_JPRB,.106E-01_JPRB,&
+&.105E-01_JPRB,.114E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 38 -58.0
+ZAER (:,38, 3) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.117E-01_JPRB,&
+&.112E-01_JPRB,.106E-01_JPRB,.623E-02_JPRB,.613E-02_JPRB,.595E-02_JPRB,.571E-02_JPRB,.562E-02_JPRB,&
+&.559E-02_JPRB,.580E-02_JPRB,.599E-02_JPRB,.624E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,&
+&.659E-02_JPRB,.678E-02_JPRB,.698E-02_JPRB,.121E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,&
+&.135E-01_JPRB,.145E-01_JPRB,.169E-01_JPRB,.188E-01_JPRB,.208E-01_JPRB,.255E-01_JPRB,.373E-01_JPRB,&
+&.494E-01_JPRB,.730E-01_JPRB,.102E+00_JPRB,.719E-01_JPRB,.852E-01_JPRB,.155E+00_JPRB,.948E-01_JPRB,&
+&.953E-01_JPRB,.844E-01_JPRB,.741E-01_JPRB,.617E-01_JPRB,.445E-01_JPRB,.383E-01_JPRB,.325E-01_JPRB,&
+&.258E-01_JPRB,.247E-01_JPRB,.237E-01_JPRB,.234E-01_JPRB,.223E-01_JPRB,.212E-01_JPRB,.183E-01_JPRB,&
+&.165E-01_JPRB,.153E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,.950E-02_JPRB,.858E-02_JPRB,&
+&.813E-02_JPRB,.769E-02_JPRB,.119E-01_JPRB,.113E-01_JPRB,.107E-01_JPRB,.611E-02_JPRB,.102E-01_JPRB,&
+&.103E-01_JPRB,.112E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 39 -62.0
+ZAER (:,39, 3) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.674E-02_JPRB,.645E-02_JPRB,.611E-02_JPRB,&
+&.585E-02_JPRB,.552E-02_JPRB,.546E-02_JPRB,.543E-02_JPRB,.541E-02_JPRB,.534E-02_JPRB,.529E-02_JPRB,&
+&.523E-02_JPRB,.529E-02_JPRB,.540E-02_JPRB,.558E-02_JPRB,.971E-02_JPRB,.100E-01_JPRB,.104E-01_JPRB,&
+&.658E-02_JPRB,.112E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.662E-02_JPRB,&
+&.118E-01_JPRB,.127E-01_JPRB,.151E-01_JPRB,.172E-01_JPRB,.192E-01_JPRB,.228E-01_JPRB,.293E-01_JPRB,&
+&.360E-01_JPRB,.488E-01_JPRB,.648E-01_JPRB,.450E-01_JPRB,.525E-01_JPRB,.969E-01_JPRB,.601E-01_JPRB,&
+&.616E-01_JPRB,.578E-01_JPRB,.532E-01_JPRB,.475E-01_JPRB,.376E-01_JPRB,.332E-01_JPRB,.290E-01_JPRB,&
+&.231E-01_JPRB,.214E-01_JPRB,.198E-01_JPRB,.183E-01_JPRB,.175E-01_JPRB,.168E-01_JPRB,.154E-01_JPRB,&
+&.145E-01_JPRB,.138E-01_JPRB,.128E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,.978E-02_JPRB,.877E-02_JPRB,&
+&.817E-02_JPRB,.748E-02_JPRB,.680E-02_JPRB,.649E-02_JPRB,.617E-02_JPRB,.609E-02_JPRB,.617E-02_JPRB,&
+&.628E-02_JPRB,.110E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 40 -66.0
+ZAER (:,40, 3) = (/&
+&.673E-02_JPRB,.673E-02_JPRB,.110E-01_JPRB,.107E-01_JPRB,.627E-02_JPRB,.594E-02_JPRB,.574E-02_JPRB,&
+&.560E-02_JPRB,.548E-02_JPRB,.547E-02_JPRB,.546E-02_JPRB,.547E-02_JPRB,.544E-02_JPRB,.541E-02_JPRB,&
+&.536E-02_JPRB,.541E-02_JPRB,.549E-02_JPRB,.564E-02_JPRB,.591E-02_JPRB,.609E-02_JPRB,.105E-01_JPRB,&
+&.653E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,.104E-01_JPRB,.999E-02_JPRB,.577E-02_JPRB,.561E-02_JPRB,&
+&.589E-02_JPRB,.104E-01_JPRB,.121E-01_JPRB,.139E-01_JPRB,.155E-01_JPRB,.187E-01_JPRB,.231E-01_JPRB,&
+&.273E-01_JPRB,.350E-01_JPRB,.447E-01_JPRB,.510E-01_JPRB,.355E-01_JPRB,.396E-01_JPRB,.414E-01_JPRB,&
+&.429E-01_JPRB,.421E-01_JPRB,.404E-01_JPRB,.381E-01_JPRB,.329E-01_JPRB,.295E-01_JPRB,.260E-01_JPRB,&
+&.199E-01_JPRB,.178E-01_JPRB,.159E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,&
+&.133E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.931E-02_JPRB,&
+&.874E-02_JPRB,.804E-02_JPRB,.742E-02_JPRB,.715E-02_JPRB,.687E-02_JPRB,.674E-02_JPRB,.672E-02_JPRB,&
+&.672E-02_JPRB,.673E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 41 -70.0
+ZAER (:,41, 3) = (/&
+&.121E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.112E-01_JPRB,.651E-02_JPRB,.616E-02_JPRB,.602E-02_JPRB,&
+&.593E-02_JPRB,.985E-02_JPRB,.990E-02_JPRB,.596E-02_JPRB,.993E-02_JPRB,.988E-02_JPRB,.590E-02_JPRB,&
+&.587E-02_JPRB,.588E-02_JPRB,.986E-02_JPRB,.598E-02_JPRB,.613E-02_JPRB,.623E-02_JPRB,.635E-02_JPRB,&
+&.645E-02_JPRB,.640E-02_JPRB,.106E-01_JPRB,.100E-01_JPRB,.968E-02_JPRB,.560E-02_JPRB,.538E-02_JPRB,&
+&.548E-02_JPRB,.563E-02_JPRB,.625E-02_JPRB,.701E-02_JPRB,.129E-01_JPRB,.153E-01_JPRB,.183E-01_JPRB,&
+&.208E-01_JPRB,.252E-01_JPRB,.306E-01_JPRB,.344E-01_JPRB,.395E-01_JPRB,.447E-01_JPRB,.284E-01_JPRB,&
+&.302E-01_JPRB,.522E-01_JPRB,.520E-01_JPRB,.513E-01_JPRB,.471E-01_JPRB,.433E-01_JPRB,.392E-01_JPRB,&
+&.307E-01_JPRB,.163E-01_JPRB,.143E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,&
+&.123E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,&
+&.969E-02_JPRB,.918E-02_JPRB,.870E-02_JPRB,.844E-02_JPRB,.815E-02_JPRB,.783E-02_JPRB,.768E-02_JPRB,&
+&.125E-01_JPRB,.728E-02_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 42 -74.0
+ZAER (:,42, 3) = (/&
+&.136E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.683E-02_JPRB,.677E-02_JPRB,&
+&.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.649E-02_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.612E-02_JPRB,.601E-02_JPRB,.587E-02_JPRB,&
+&.590E-02_JPRB,.596E-02_JPRB,.626E-02_JPRB,.667E-02_JPRB,.118E-01_JPRB,.132E-01_JPRB,.148E-01_JPRB,&
+&.162E-01_JPRB,.184E-01_JPRB,.211E-01_JPRB,.232E-01_JPRB,.261E-01_JPRB,.297E-01_JPRB,.319E-01_JPRB,&
+&.345E-01_JPRB,.372E-01_JPRB,.380E-01_JPRB,.388E-01_JPRB,.378E-01_JPRB,.361E-01_JPRB,.343E-01_JPRB,&
+&.295E-01_JPRB,.271E-01_JPRB,.249E-01_JPRB,.223E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,.187E-01_JPRB,.181E-01_JPRB,.175E-01_JPRB,&
+&.171E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.144E-01_JPRB,&
+&.141E-01_JPRB,.136E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 43 -78.0
+ZAER (:,43, 3) = (/&
+&.154E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,&
+&.142E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,&
+&.128E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.724E-02_JPRB,.719E-02_JPRB,.715E-02_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.700E-02_JPRB,.691E-02_JPRB,.687E-02_JPRB,.682E-02_JPRB,.677E-02_JPRB,&
+&.678E-02_JPRB,.681E-02_JPRB,.693E-02_JPRB,.712E-02_JPRB,.122E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,&
+&.143E-01_JPRB,.154E-01_JPRB,.168E-01_JPRB,.179E-01_JPRB,.117E-01_JPRB,.215E-01_JPRB,.228E-01_JPRB,&
+&.243E-01_JPRB,.262E-01_JPRB,.271E-01_JPRB,.279E-01_JPRB,.282E-01_JPRB,.278E-01_JPRB,.274E-01_JPRB,&
+&.257E-01_JPRB,.247E-01_JPRB,.237E-01_JPRB,.221E-01_JPRB,.214E-01_JPRB,.209E-01_JPRB,.201E-01_JPRB,&
+&.197E-01_JPRB,.116E-01_JPRB,.189E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,&
+&.174E-01_JPRB,.171E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,&
+&.157E-01_JPRB,.154E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 44 -82.0
+ZAER (:,44, 3) = (/&
+&.168E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,&
+&.160E-01_JPRB,.159E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,.151E-01_JPRB,&
+&.150E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,.849E-02_JPRB,&
+&.842E-02_JPRB,.838E-02_JPRB,.834E-02_JPRB,.828E-02_JPRB,.826E-02_JPRB,.825E-02_JPRB,.824E-02_JPRB,&
+&.824E-02_JPRB,.825E-02_JPRB,.832E-02_JPRB,.839E-02_JPRB,.847E-02_JPRB,.144E-01_JPRB,.148E-01_JPRB,&
+&.151E-01_JPRB,.156E-01_JPRB,.161E-01_JPRB,.166E-01_JPRB,.172E-01_JPRB,.181E-01_JPRB,.186E-01_JPRB,&
+&.193E-01_JPRB,.200E-01_JPRB,.204E-01_JPRB,.208E-01_JPRB,.212E-01_JPRB,.212E-01_JPRB,.213E-01_JPRB,&
+&.210E-01_JPRB,.207E-01_JPRB,.205E-01_JPRB,.200E-01_JPRB,.197E-01_JPRB,.195E-01_JPRB,.191E-01_JPRB,&
+&.188E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,.178E-01_JPRB,&
+&.177E-01_JPRB,.176E-01_JPRB,.175E-01_JPRB,.174E-01_JPRB,.173E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,&
+&.170E-01_JPRB,.168E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 45 -86.0
+ZAER (:,45, 3) = (/&
+&.171E-01_JPRB,.171E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,&
+&.168E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,&
+&.164E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,&
+&.160E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,&
+&.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,&
+&.163E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.171E-01_JPRB,.172E-01_JPRB,&
+&.174E-01_JPRB,.175E-01_JPRB,.176E-01_JPRB,.177E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,&
+&.177E-01_JPRB,.177E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,&
+&.174E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,&
+&.172E-01_JPRB,.171E-01_JPRB/)
+!-- Organic Aerosol          month:  3 --- lat: 46 -90.0
+ZAER (:,46, 3) = (/&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.169E-01_JPRB,.169E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=3   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_03
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_04.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_04.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_04.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_04
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,4:4)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  4 --- lat:  1  90.0
+ZAER (:, 1, 4) = (/&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  2  86.0
+ZAER (:, 2, 4) = (/&
+&.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.110E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.109E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  3  82.0
+ZAER (:, 3, 4) = (/&
+&.111E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,&
+&.107E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.998E-03_JPRB,.991E-03_JPRB,&
+&.982E-03_JPRB,.974E-03_JPRB,.969E-03_JPRB,.965E-03_JPRB,.960E-03_JPRB,.958E-03_JPRB,.955E-03_JPRB,&
+&.953E-03_JPRB,.951E-03_JPRB,.950E-03_JPRB,.948E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.948E-03_JPRB,&
+&.950E-03_JPRB,.952E-03_JPRB,.956E-03_JPRB,.962E-03_JPRB,.968E-03_JPRB,.977E-03_JPRB,.990E-03_JPRB,&
+&.999E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,&
+&.110E-02_JPRB,.111E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  4  78.0
+ZAER (:, 4, 4) = (/&
+&.114E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,&
+&.119E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,&
+&.109E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.992E-03_JPRB,.974E-03_JPRB,.965E-03_JPRB,&
+&.955E-03_JPRB,.948E-03_JPRB,.946E-03_JPRB,.944E-03_JPRB,.942E-03_JPRB,.942E-03_JPRB,.943E-03_JPRB,&
+&.942E-03_JPRB,.940E-03_JPRB,.938E-03_JPRB,.932E-03_JPRB,.926E-03_JPRB,.920E-03_JPRB,.912E-03_JPRB,&
+&.906E-03_JPRB,.902E-03_JPRB,.900E-03_JPRB,.904E-03_JPRB,.909E-03_JPRB,.919E-03_JPRB,.937E-03_JPRB,&
+&.951E-03_JPRB,.971E-03_JPRB,.100E-02_JPRB,.102E-02_JPRB,.104E-02_JPRB,.108E-02_JPRB,.110E-02_JPRB,&
+&.111E-02_JPRB,.114E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  5  74.0
+ZAER (:, 5, 4) = (/&
+&.117E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.120E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.131E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,&
+&.115E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.993E-03_JPRB,.967E-03_JPRB,&
+&.948E-03_JPRB,.934E-03_JPRB,.917E-03_JPRB,.911E-03_JPRB,.911E-03_JPRB,.916E-03_JPRB,.933E-03_JPRB,&
+&.948E-03_JPRB,.970E-03_JPRB,.100E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,&
+&.114E-02_JPRB,.117E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  6  70.0
+ZAER (:, 6, 4) = (/&
+&.121E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,&
+&.123E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.120E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,&
+&.130E-02_JPRB,.132E-02_JPRB,.135E-02_JPRB,.142E-02_JPRB,.145E-02_JPRB,.148E-02_JPRB,.152E-02_JPRB,&
+&.152E-02_JPRB,.152E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.137E-02_JPRB,.132E-02_JPRB,&
+&.128E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,&
+&.109E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.101E-02_JPRB,&
+&.102E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,&
+&.118E-02_JPRB,.121E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  7  66.0
+ZAER (:, 7, 4) = (/&
+&.128E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,&
+&.132E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,&
+&.138E-02_JPRB,.141E-02_JPRB,.144E-02_JPRB,.153E-02_JPRB,.159E-02_JPRB,.164E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,.163E-02_JPRB,.160E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,&
+&.146E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,&
+&.141E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,&
+&.132E-02_JPRB,.129E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.119E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,&
+&.127E-02_JPRB,.128E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  8  62.0
+ZAER (:, 8, 4) = (/&
+&.140E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,&
+&.143E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,&
+&.146E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,&
+&.150E-02_JPRB,.153E-02_JPRB,.157E-02_JPRB,.169E-02_JPRB,.175E-02_JPRB,.181E-02_JPRB,.184E-02_JPRB,&
+&.184E-02_JPRB,.183E-02_JPRB,.180E-02_JPRB,.176E-02_JPRB,.172E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,&
+&.163E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,&
+&.165E-02_JPRB,.158E-02_JPRB,.155E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.155E-02_JPRB,&
+&.162E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.166E-02_JPRB,&
+&.163E-02_JPRB,.161E-02_JPRB,.155E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,&
+&.145E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat:  9  58.0
+ZAER (:, 9, 4) = (/&
+&.156E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.158E-02_JPRB,.163E-02_JPRB,.165E-02_JPRB,&
+&.166E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,&
+&.157E-02_JPRB,.158E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.163E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,&
+&.174E-02_JPRB,.180E-02_JPRB,.186E-02_JPRB,.201E-02_JPRB,.207E-02_JPRB,.212E-02_JPRB,.218E-02_JPRB,&
+&.218E-02_JPRB,.216E-02_JPRB,.205E-02_JPRB,.194E-02_JPRB,.185E-02_JPRB,.176E-02_JPRB,.173E-02_JPRB,&
+&.172E-02_JPRB,.173E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,.182E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,&
+&.183E-02_JPRB,.177E-02_JPRB,.174E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.174E-02_JPRB,&
+&.178E-02_JPRB,.183E-02_JPRB,.187E-02_JPRB,.194E-02_JPRB,.195E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,&
+&.198E-02_JPRB,.196E-02_JPRB,.190E-02_JPRB,.185E-02_JPRB,.182E-02_JPRB,.179E-02_JPRB,.176E-02_JPRB,&
+&.173E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.157E-02_JPRB,.156E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 10  54.0
+ZAER (:,10, 4) = (/&
+&.178E-02_JPRB,.178E-02_JPRB,.184E-02_JPRB,.188E-02_JPRB,.192E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,&
+&.194E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,.187E-02_JPRB,.183E-02_JPRB,.177E-02_JPRB,.172E-02_JPRB,&
+&.167E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,&
+&.193E-02_JPRB,.124E-02_JPRB,.221E-02_JPRB,.243E-02_JPRB,.253E-02_JPRB,.262E-02_JPRB,.273E-02_JPRB,&
+&.274E-02_JPRB,.271E-02_JPRB,.250E-02_JPRB,.228E-02_JPRB,.212E-02_JPRB,.195E-02_JPRB,.188E-02_JPRB,&
+&.185E-02_JPRB,.183E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,.196E-02_JPRB,.198E-02_JPRB,.197E-02_JPRB,&
+&.195E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,&
+&.192E-02_JPRB,.196E-02_JPRB,.201E-02_JPRB,.211E-02_JPRB,.214E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,&
+&.216E-02_JPRB,.215E-02_JPRB,.212E-02_JPRB,.208E-02_JPRB,.204E-02_JPRB,.198E-02_JPRB,.194E-02_JPRB,&
+&.191E-02_JPRB,.186E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,&
+&.174E-02_JPRB,.178E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 11  50.0
+ZAER (:,11, 4) = (/&
+&.212E-02_JPRB,.212E-02_JPRB,.223E-02_JPRB,.229E-02_JPRB,.233E-02_JPRB,.237E-02_JPRB,.232E-02_JPRB,&
+&.229E-02_JPRB,.222E-02_JPRB,.219E-02_JPRB,.215E-02_JPRB,.207E-02_JPRB,.197E-02_JPRB,.190E-02_JPRB,&
+&.182E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,.180E-02_JPRB,.184E-02_JPRB,&
+&.211E-02_JPRB,.140E-02_JPRB,.256E-02_JPRB,.288E-02_JPRB,.301E-02_JPRB,.313E-02_JPRB,.323E-02_JPRB,&
+&.322E-02_JPRB,.319E-02_JPRB,.308E-02_JPRB,.282E-02_JPRB,.263E-02_JPRB,.241E-02_JPRB,.230E-02_JPRB,&
+&.224E-02_JPRB,.220E-02_JPRB,.225E-02_JPRB,.227E-02_JPRB,.228E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,&
+&.220E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,&
+&.210E-02_JPRB,.215E-02_JPRB,.221E-02_JPRB,.229E-02_JPRB,.231E-02_JPRB,.233E-02_JPRB,.232E-02_JPRB,&
+&.232E-02_JPRB,.231E-02_JPRB,.228E-02_JPRB,.221E-02_JPRB,.216E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,&
+&.204E-02_JPRB,.202E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.188E-02_JPRB,.192E-02_JPRB,.196E-02_JPRB,&
+&.201E-02_JPRB,.211E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 12  46.0
+ZAER (:,12, 4) = (/&
+&.258E-02_JPRB,.258E-02_JPRB,.267E-02_JPRB,.274E-02_JPRB,.278E-02_JPRB,.277E-02_JPRB,.271E-02_JPRB,&
+&.266E-02_JPRB,.257E-02_JPRB,.252E-02_JPRB,.247E-02_JPRB,.235E-02_JPRB,.222E-02_JPRB,.213E-02_JPRB,&
+&.203E-02_JPRB,.196E-02_JPRB,.194E-02_JPRB,.192E-02_JPRB,.194E-02_JPRB,.198E-02_JPRB,.205E-02_JPRB,&
+&.240E-02_JPRB,.162E-02_JPRB,.302E-02_JPRB,.360E-02_JPRB,.375E-02_JPRB,.388E-02_JPRB,.384E-02_JPRB,&
+&.376E-02_JPRB,.371E-02_JPRB,.371E-02_JPRB,.349E-02_JPRB,.331E-02_JPRB,.307E-02_JPRB,.295E-02_JPRB,&
+&.289E-02_JPRB,.282E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,.284E-02_JPRB,.280E-02_JPRB,.278E-02_JPRB,&
+&.276E-02_JPRB,.275E-02_JPRB,.273E-02_JPRB,.270E-02_JPRB,.256E-02_JPRB,.251E-02_JPRB,.247E-02_JPRB,&
+&.244E-02_JPRB,.247E-02_JPRB,.249E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,&
+&.254E-02_JPRB,.253E-02_JPRB,.250E-02_JPRB,.240E-02_JPRB,.234E-02_JPRB,.225E-02_JPRB,.224E-02_JPRB,&
+&.224E-02_JPRB,.226E-02_JPRB,.223E-02_JPRB,.221E-02_JPRB,.219E-02_JPRB,.228E-02_JPRB,.236E-02_JPRB,&
+&.245E-02_JPRB,.257E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 13  42.0
+ZAER (:,13, 4) = (/&
+&.307E-02_JPRB,.307E-02_JPRB,.310E-02_JPRB,.313E-02_JPRB,.316E-02_JPRB,.308E-02_JPRB,.304E-02_JPRB,&
+&.300E-02_JPRB,.291E-02_JPRB,.283E-02_JPRB,.276E-02_JPRB,.265E-02_JPRB,.251E-02_JPRB,.241E-02_JPRB,&
+&.227E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.214E-02_JPRB,.219E-02_JPRB,.226E-02_JPRB,.237E-02_JPRB,&
+&.293E-02_JPRB,.208E-02_JPRB,.244E-02_JPRB,.515E-02_JPRB,.541E-02_JPRB,.559E-02_JPRB,.500E-02_JPRB,&
+&.483E-02_JPRB,.468E-02_JPRB,.450E-02_JPRB,.419E-02_JPRB,.396E-02_JPRB,.370E-02_JPRB,.364E-02_JPRB,&
+&.359E-02_JPRB,.351E-02_JPRB,.357E-02_JPRB,.361E-02_JPRB,.366E-02_JPRB,.377E-02_JPRB,.381E-02_JPRB,&
+&.383E-02_JPRB,.375E-02_JPRB,.364E-02_JPRB,.351E-02_JPRB,.327E-02_JPRB,.317E-02_JPRB,.308E-02_JPRB,&
+&.303E-02_JPRB,.301E-02_JPRB,.298E-02_JPRB,.294E-02_JPRB,.289E-02_JPRB,.285E-02_JPRB,.283E-02_JPRB,&
+&.282E-02_JPRB,.281E-02_JPRB,.278E-02_JPRB,.270E-02_JPRB,.264E-02_JPRB,.258E-02_JPRB,.259E-02_JPRB,&
+&.264E-02_JPRB,.273E-02_JPRB,.275E-02_JPRB,.272E-02_JPRB,.266E-02_JPRB,.275E-02_JPRB,.285E-02_JPRB,&
+&.298E-02_JPRB,.307E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 14  38.0
+ZAER (:,14, 4) = (/&
+&.347E-02_JPRB,.347E-02_JPRB,.343E-02_JPRB,.341E-02_JPRB,.339E-02_JPRB,.327E-02_JPRB,.323E-02_JPRB,&
+&.320E-02_JPRB,.316E-02_JPRB,.305E-02_JPRB,.298E-02_JPRB,.288E-02_JPRB,.277E-02_JPRB,.267E-02_JPRB,&
+&.254E-02_JPRB,.247E-02_JPRB,.243E-02_JPRB,.240E-02_JPRB,.250E-02_JPRB,.265E-02_JPRB,.284E-02_JPRB,&
+&.393E-02_JPRB,.298E-02_JPRB,.365E-02_JPRB,.500E-02_JPRB,.902E-02_JPRB,.954E-02_JPRB,.809E-02_JPRB,&
+&.728E-02_JPRB,.657E-02_JPRB,.561E-02_JPRB,.520E-02_JPRB,.492E-02_JPRB,.466E-02_JPRB,.459E-02_JPRB,&
+&.451E-02_JPRB,.434E-02_JPRB,.452E-02_JPRB,.467E-02_JPRB,.492E-02_JPRB,.541E-02_JPRB,.557E-02_JPRB,&
+&.566E-02_JPRB,.532E-02_JPRB,.502E-02_JPRB,.468E-02_JPRB,.434E-02_JPRB,.417E-02_JPRB,.401E-02_JPRB,&
+&.386E-02_JPRB,.378E-02_JPRB,.371E-02_JPRB,.359E-02_JPRB,.344E-02_JPRB,.333E-02_JPRB,.329E-02_JPRB,&
+&.323E-02_JPRB,.318E-02_JPRB,.312E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.312E-02_JPRB,.317E-02_JPRB,&
+&.329E-02_JPRB,.351E-02_JPRB,.218E-02_JPRB,.357E-02_JPRB,.343E-02_JPRB,.332E-02_JPRB,.337E-02_JPRB,&
+&.346E-02_JPRB,.347E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 15  34.0
+ZAER (:,15, 4) = (/&
+&.388E-02_JPRB,.388E-02_JPRB,.376E-02_JPRB,.367E-02_JPRB,.358E-02_JPRB,.342E-02_JPRB,.336E-02_JPRB,&
+&.331E-02_JPRB,.327E-02_JPRB,.320E-02_JPRB,.316E-02_JPRB,.312E-02_JPRB,.300E-02_JPRB,.292E-02_JPRB,&
+&.281E-02_JPRB,.276E-02_JPRB,.275E-02_JPRB,.276E-02_JPRB,.294E-02_JPRB,.321E-02_JPRB,.358E-02_JPRB,&
+&.582E-02_JPRB,.449E-02_JPRB,.553E-02_JPRB,.806E-02_JPRB,.938E-02_JPRB,.175E-01_JPRB,.151E-01_JPRB,&
+&.123E-01_JPRB,.994E-02_JPRB,.765E-02_JPRB,.694E-02_JPRB,.646E-02_JPRB,.606E-02_JPRB,.588E-02_JPRB,&
+&.571E-02_JPRB,.541E-02_JPRB,.566E-02_JPRB,.595E-02_JPRB,.646E-02_JPRB,.464E-02_JPRB,.818E-02_JPRB,&
+&.851E-02_JPRB,.754E-02_JPRB,.690E-02_JPRB,.618E-02_JPRB,.553E-02_JPRB,.531E-02_JPRB,.510E-02_JPRB,&
+&.491E-02_JPRB,.479E-02_JPRB,.467E-02_JPRB,.446E-02_JPRB,.422E-02_JPRB,.404E-02_JPRB,.394E-02_JPRB,&
+&.384E-02_JPRB,.378E-02_JPRB,.371E-02_JPRB,.383E-02_JPRB,.234E-02_JPRB,.399E-02_JPRB,.408E-02_JPRB,&
+&.425E-02_JPRB,.274E-02_JPRB,.288E-02_JPRB,.282E-02_JPRB,.448E-02_JPRB,.408E-02_JPRB,.400E-02_JPRB,&
+&.394E-02_JPRB,.389E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 16  30.0
+ZAER (:,16, 4) = (/&
+&.446E-02_JPRB,.445E-02_JPRB,.425E-02_JPRB,.406E-02_JPRB,.389E-02_JPRB,.367E-02_JPRB,.356E-02_JPRB,&
+&.347E-02_JPRB,.341E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.340E-02_JPRB,.327E-02_JPRB,.319E-02_JPRB,&
+&.312E-02_JPRB,.314E-02_JPRB,.321E-02_JPRB,.334E-02_JPRB,.366E-02_JPRB,.411E-02_JPRB,.472E-02_JPRB,&
+&.853E-02_JPRB,.639E-02_JPRB,.769E-02_JPRB,.117E-01_JPRB,.145E-01_JPRB,.282E-01_JPRB,.251E-01_JPRB,&
+&.197E-01_JPRB,.152E-01_JPRB,.109E-01_JPRB,.936E-02_JPRB,.830E-02_JPRB,.741E-02_JPRB,.714E-02_JPRB,&
+&.694E-02_JPRB,.664E-02_JPRB,.684E-02_JPRB,.724E-02_JPRB,.803E-02_JPRB,.635E-02_JPRB,.693E-02_JPRB,&
+&.738E-02_JPRB,.103E-01_JPRB,.908E-02_JPRB,.780E-02_JPRB,.666E-02_JPRB,.644E-02_JPRB,.626E-02_JPRB,&
+&.615E-02_JPRB,.596E-02_JPRB,.578E-02_JPRB,.551E-02_JPRB,.524E-02_JPRB,.503E-02_JPRB,.483E-02_JPRB,&
+&.476E-02_JPRB,.472E-02_JPRB,.470E-02_JPRB,.298E-02_JPRB,.307E-02_JPRB,.316E-02_JPRB,.323E-02_JPRB,&
+&.334E-02_JPRB,.354E-02_JPRB,.369E-02_JPRB,.361E-02_JPRB,.574E-02_JPRB,.507E-02_JPRB,.481E-02_JPRB,&
+&.457E-02_JPRB,.446E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 17  26.0
+ZAER (:,17, 4) = (/&
+&.527E-02_JPRB,.526E-02_JPRB,.496E-02_JPRB,.467E-02_JPRB,.440E-02_JPRB,.407E-02_JPRB,.392E-02_JPRB,&
+&.381E-02_JPRB,.371E-02_JPRB,.374E-02_JPRB,.376E-02_JPRB,.378E-02_JPRB,.365E-02_JPRB,.360E-02_JPRB,&
+&.359E-02_JPRB,.374E-02_JPRB,.395E-02_JPRB,.428E-02_JPRB,.477E-02_JPRB,.540E-02_JPRB,.624E-02_JPRB,&
+&.107E-01_JPRB,.773E-02_JPRB,.902E-02_JPRB,.144E-01_JPRB,.185E-01_JPRB,.221E-01_JPRB,.338E-01_JPRB,&
+&.268E-01_JPRB,.209E-01_JPRB,.139E-01_JPRB,.113E-01_JPRB,.964E-02_JPRB,.829E-02_JPRB,.807E-02_JPRB,&
+&.795E-02_JPRB,.785E-02_JPRB,.810E-02_JPRB,.862E-02_JPRB,.580E-02_JPRB,.795E-02_JPRB,.880E-02_JPRB,&
+&.952E-02_JPRB,.128E-01_JPRB,.111E-01_JPRB,.943E-02_JPRB,.794E-02_JPRB,.774E-02_JPRB,.761E-02_JPRB,&
+&.746E-02_JPRB,.714E-02_JPRB,.686E-02_JPRB,.666E-02_JPRB,.648E-02_JPRB,.632E-02_JPRB,.610E-02_JPRB,&
+&.606E-02_JPRB,.606E-02_JPRB,.614E-02_JPRB,.392E-02_JPRB,.405E-02_JPRB,.417E-02_JPRB,.428E-02_JPRB,&
+&.437E-02_JPRB,.452E-02_JPRB,.458E-02_JPRB,.444E-02_JPRB,.699E-02_JPRB,.617E-02_JPRB,.582E-02_JPRB,&
+&.547E-02_JPRB,.528E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 18  22.0
+ZAER (:,18, 4) = (/&
+&.620E-02_JPRB,.619E-02_JPRB,.575E-02_JPRB,.538E-02_JPRB,.505E-02_JPRB,.466E-02_JPRB,.447E-02_JPRB,&
+&.434E-02_JPRB,.421E-02_JPRB,.425E-02_JPRB,.427E-02_JPRB,.425E-02_JPRB,.417E-02_JPRB,.419E-02_JPRB,&
+&.432E-02_JPRB,.465E-02_JPRB,.507E-02_JPRB,.575E-02_JPRB,.640E-02_JPRB,.713E-02_JPRB,.810E-02_JPRB,&
+&.116E-01_JPRB,.819E-02_JPRB,.944E-02_JPRB,.154E-01_JPRB,.198E-01_JPRB,.237E-01_JPRB,.222E-01_JPRB,&
+&.299E-01_JPRB,.237E-01_JPRB,.151E-01_JPRB,.121E-01_JPRB,.101E-01_JPRB,.875E-02_JPRB,.875E-02_JPRB,&
+&.886E-02_JPRB,.925E-02_JPRB,.983E-02_JPRB,.105E-01_JPRB,.710E-02_JPRB,.918E-02_JPRB,.100E-01_JPRB,&
+&.108E-01_JPRB,.879E-02_JPRB,.130E-01_JPRB,.675E-02_JPRB,.953E-02_JPRB,.925E-02_JPRB,.905E-02_JPRB,&
+&.862E-02_JPRB,.817E-02_JPRB,.778E-02_JPRB,.777E-02_JPRB,.776E-02_JPRB,.773E-02_JPRB,.762E-02_JPRB,&
+&.760E-02_JPRB,.763E-02_JPRB,.781E-02_JPRB,.848E-02_JPRB,.530E-02_JPRB,.547E-02_JPRB,.558E-02_JPRB,&
+&.562E-02_JPRB,.563E-02_JPRB,.539E-02_JPRB,.852E-02_JPRB,.788E-02_JPRB,.708E-02_JPRB,.676E-02_JPRB,&
+&.645E-02_JPRB,.621E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 19  18.0
+ZAER (:,19, 4) = (/&
+&.690E-02_JPRB,.689E-02_JPRB,.632E-02_JPRB,.597E-02_JPRB,.567E-02_JPRB,.539E-02_JPRB,.517E-02_JPRB,&
+&.501E-02_JPRB,.484E-02_JPRB,.479E-02_JPRB,.476E-02_JPRB,.473E-02_JPRB,.479E-02_JPRB,.495E-02_JPRB,&
+&.534E-02_JPRB,.589E-02_JPRB,.663E-02_JPRB,.783E-02_JPRB,.891E-02_JPRB,.978E-02_JPRB,.108E-01_JPRB,&
+&.132E-01_JPRB,.920E-02_JPRB,.106E-01_JPRB,.163E-01_JPRB,.195E-01_JPRB,.224E-01_JPRB,.209E-01_JPRB,&
+&.169E-01_JPRB,.224E-01_JPRB,.149E-01_JPRB,.121E-01_JPRB,.104E-01_JPRB,.940E-02_JPRB,.970E-02_JPRB,&
+&.102E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,.891E-02_JPRB,.105E-01_JPRB,.111E-01_JPRB,&
+&.115E-01_JPRB,.985E-02_JPRB,.148E-01_JPRB,.788E-02_JPRB,.110E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,&
+&.945E-02_JPRB,.898E-02_JPRB,.859E-02_JPRB,.865E-02_JPRB,.877E-02_JPRB,.888E-02_JPRB,.902E-02_JPRB,&
+&.911E-02_JPRB,.923E-02_JPRB,.954E-02_JPRB,.106E-01_JPRB,.111E-01_JPRB,.699E-02_JPRB,.698E-02_JPRB,&
+&.684E-02_JPRB,.655E-02_JPRB,.583E-02_JPRB,.897E-02_JPRB,.811E-02_JPRB,.744E-02_JPRB,.725E-02_JPRB,&
+&.711E-02_JPRB,.691E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 20  14.0
+ZAER (:,20, 4) = (/&
+&.703E-02_JPRB,.701E-02_JPRB,.648E-02_JPRB,.628E-02_JPRB,.611E-02_JPRB,.600E-02_JPRB,.580E-02_JPRB,&
+&.565E-02_JPRB,.547E-02_JPRB,.531E-02_JPRB,.524E-02_JPRB,.523E-02_JPRB,.548E-02_JPRB,.583E-02_JPRB,&
+&.655E-02_JPRB,.745E-02_JPRB,.858E-02_JPRB,.104E-01_JPRB,.124E-01_JPRB,.136E-01_JPRB,.149E-01_JPRB,&
+&.104E-01_JPRB,.119E-01_JPRB,.135E-01_JPRB,.186E-01_JPRB,.198E-01_JPRB,.208E-01_JPRB,.184E-01_JPRB,&
+&.149E-01_JPRB,.200E-01_JPRB,.141E-01_JPRB,.124E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.117E-01_JPRB,&
+&.125E-01_JPRB,.142E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.112E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,&
+&.128E-01_JPRB,.110E-01_JPRB,.988E-02_JPRB,.143E-01_JPRB,.118E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,&
+&.989E-02_JPRB,.956E-02_JPRB,.928E-02_JPRB,.921E-02_JPRB,.934E-02_JPRB,.952E-02_JPRB,.101E-01_JPRB,&
+&.109E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,.127E-01_JPRB,.132E-01_JPRB,.138E-01_JPRB,.803E-02_JPRB,&
+&.763E-02_JPRB,.115E-01_JPRB,.963E-02_JPRB,.868E-02_JPRB,.765E-02_JPRB,.722E-02_JPRB,.719E-02_JPRB,&
+&.720E-02_JPRB,.704E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 21  10.0
+ZAER (:,21, 4) = (/&
+&.667E-02_JPRB,.665E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.622E-02_JPRB,.608E-02_JPRB,&
+&.598E-02_JPRB,.596E-02_JPRB,.583E-02_JPRB,.579E-02_JPRB,.585E-02_JPRB,.629E-02_JPRB,.680E-02_JPRB,&
+&.775E-02_JPRB,.911E-02_JPRB,.106E-01_JPRB,.129E-01_JPRB,.159E-01_JPRB,.174E-01_JPRB,.190E-01_JPRB,&
+&.131E-01_JPRB,.150E-01_JPRB,.171E-01_JPRB,.210E-01_JPRB,.205E-01_JPRB,.198E-01_JPRB,.172E-01_JPRB,&
+&.140E-01_JPRB,.190E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,.152E-01_JPRB,&
+&.161E-01_JPRB,.173E-01_JPRB,.189E-01_JPRB,.204E-01_JPRB,.137E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,&
+&.148E-01_JPRB,.123E-01_JPRB,.176E-01_JPRB,.144E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.106E-01_JPRB,&
+&.102E-01_JPRB,.996E-02_JPRB,.977E-02_JPRB,.945E-02_JPRB,.953E-02_JPRB,.980E-02_JPRB,.112E-01_JPRB,&
+&.140E-01_JPRB,.156E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.138E-01_JPRB,&
+&.127E-01_JPRB,.111E-01_JPRB,.895E-02_JPRB,.797E-02_JPRB,.700E-02_JPRB,.687E-02_JPRB,.690E-02_JPRB,&
+&.696E-02_JPRB,.668E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 22   6.0
+ZAER (:,22, 4) = (/&
+&.637E-02_JPRB,.635E-02_JPRB,.595E-02_JPRB,.610E-02_JPRB,.621E-02_JPRB,.614E-02_JPRB,.601E-02_JPRB,&
+&.597E-02_JPRB,.618E-02_JPRB,.632E-02_JPRB,.643E-02_JPRB,.661E-02_JPRB,.724E-02_JPRB,.786E-02_JPRB,&
+&.893E-02_JPRB,.107E-01_JPRB,.123E-01_JPRB,.147E-01_JPRB,.178E-01_JPRB,.198E-01_JPRB,.132E-01_JPRB,&
+&.156E-01_JPRB,.179E-01_JPRB,.203E-01_JPRB,.215E-01_JPRB,.202E-01_JPRB,.188E-01_JPRB,.165E-01_JPRB,&
+&.138E-01_JPRB,.194E-01_JPRB,.167E-01_JPRB,.171E-01_JPRB,.176E-01_JPRB,.186E-01_JPRB,.200E-01_JPRB,&
+&.208E-01_JPRB,.216E-01_JPRB,.234E-01_JPRB,.247E-01_JPRB,.160E-01_JPRB,.177E-01_JPRB,.178E-01_JPRB,&
+&.173E-01_JPRB,.138E-01_JPRB,.194E-01_JPRB,.155E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,&
+&.109E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.994E-02_JPRB,.998E-02_JPRB,.104E-01_JPRB,.131E-01_JPRB,&
+&.179E-01_JPRB,.204E-01_JPRB,.208E-01_JPRB,.184E-01_JPRB,.168E-01_JPRB,.148E-01_JPRB,.131E-01_JPRB,&
+&.118E-01_JPRB,.605E-02_JPRB,.481E-02_JPRB,.732E-02_JPRB,.678E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,&
+&.695E-02_JPRB,.639E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 23   2.0
+ZAER (:,23, 4) = (/&
+&.658E-02_JPRB,.657E-02_JPRB,.605E-02_JPRB,.621E-02_JPRB,.631E-02_JPRB,.615E-02_JPRB,.604E-02_JPRB,&
+&.603E-02_JPRB,.637E-02_JPRB,.662E-02_JPRB,.687E-02_JPRB,.733E-02_JPRB,.823E-02_JPRB,.900E-02_JPRB,&
+&.102E-01_JPRB,.120E-01_JPRB,.135E-01_JPRB,.155E-01_JPRB,.188E-01_JPRB,.214E-01_JPRB,.148E-01_JPRB,&
+&.185E-01_JPRB,.210E-01_JPRB,.236E-01_JPRB,.209E-01_JPRB,.190E-01_JPRB,.171E-01_JPRB,.151E-01_JPRB,&
+&.226E-01_JPRB,.209E-01_JPRB,.217E-01_JPRB,.230E-01_JPRB,.242E-01_JPRB,.263E-01_JPRB,.271E-01_JPRB,&
+&.273E-01_JPRB,.268E-01_JPRB,.278E-01_JPRB,.174E-01_JPRB,.186E-01_JPRB,.209E-01_JPRB,.210E-01_JPRB,&
+&.201E-01_JPRB,.158E-01_JPRB,.135E-01_JPRB,.185E-01_JPRB,.149E-01_JPRB,.140E-01_JPRB,.134E-01_JPRB,&
+&.126E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.124E-01_JPRB,.157E-01_JPRB,&
+&.195E-01_JPRB,.128E-01_JPRB,.207E-01_JPRB,.113E-01_JPRB,.173E-01_JPRB,.148E-01_JPRB,.123E-01_JPRB,&
+&.642E-02_JPRB,.868E-02_JPRB,.733E-02_JPRB,.716E-02_JPRB,.728E-02_JPRB,.786E-02_JPRB,.782E-02_JPRB,&
+&.769E-02_JPRB,.662E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 24  -2.0
+ZAER (:,24, 4) = (/&
+&.759E-02_JPRB,.757E-02_JPRB,.701E-02_JPRB,.708E-02_JPRB,.710E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,&
+&.681E-02_JPRB,.705E-02_JPRB,.717E-02_JPRB,.744E-02_JPRB,.823E-02_JPRB,.990E-02_JPRB,.110E-01_JPRB,&
+&.122E-01_JPRB,.135E-01_JPRB,.148E-01_JPRB,.168E-01_JPRB,.212E-01_JPRB,.245E-01_JPRB,.283E-01_JPRB,&
+&.228E-01_JPRB,.255E-01_JPRB,.281E-01_JPRB,.204E-01_JPRB,.178E-01_JPRB,.257E-01_JPRB,.241E-01_JPRB,&
+&.240E-01_JPRB,.244E-01_JPRB,.283E-01_JPRB,.316E-01_JPRB,.344E-01_JPRB,.390E-01_JPRB,.388E-01_JPRB,&
+&.380E-01_JPRB,.354E-01_JPRB,.346E-01_JPRB,.215E-01_JPRB,.236E-01_JPRB,.259E-01_JPRB,.259E-01_JPRB,&
+&.248E-01_JPRB,.181E-01_JPRB,.157E-01_JPRB,.137E-01_JPRB,.194E-01_JPRB,.180E-01_JPRB,.167E-01_JPRB,&
+&.157E-01_JPRB,.160E-01_JPRB,.163E-01_JPRB,.178E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.193E-01_JPRB,&
+&.129E-01_JPRB,.219E-01_JPRB,.193E-01_JPRB,.115E-01_JPRB,.184E-01_JPRB,.166E-01_JPRB,.132E-01_JPRB,&
+&.115E-01_JPRB,.976E-02_JPRB,.901E-02_JPRB,.907E-02_JPRB,.940E-02_JPRB,.101E-01_JPRB,.984E-02_JPRB,&
+&.942E-02_JPRB,.765E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 25  -6.0
+ZAER (:,25, 4) = (/&
+&.949E-02_JPRB,.947E-02_JPRB,.875E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.867E-02_JPRB,.861E-02_JPRB,&
+&.854E-02_JPRB,.841E-02_JPRB,.837E-02_JPRB,.867E-02_JPRB,.986E-02_JPRB,.127E-01_JPRB,.144E-01_JPRB,&
+&.161E-01_JPRB,.179E-01_JPRB,.201E-01_JPRB,.235E-01_JPRB,.297E-01_JPRB,.332E-01_JPRB,.371E-01_JPRB,&
+&.276E-01_JPRB,.286E-01_JPRB,.293E-01_JPRB,.198E-01_JPRB,.291E-01_JPRB,.256E-01_JPRB,.254E-01_JPRB,&
+&.264E-01_JPRB,.280E-01_JPRB,.351E-01_JPRB,.422E-01_JPRB,.477E-01_JPRB,.551E-01_JPRB,.312E-01_JPRB,&
+&.298E-01_JPRB,.277E-01_JPRB,.266E-01_JPRB,.275E-01_JPRB,.306E-01_JPRB,.349E-01_JPRB,.345E-01_JPRB,&
+&.322E-01_JPRB,.212E-01_JPRB,.181E-01_JPRB,.156E-01_JPRB,.230E-01_JPRB,.217E-01_JPRB,.206E-01_JPRB,&
+&.207E-01_JPRB,.227E-01_JPRB,.246E-01_JPRB,.284E-01_JPRB,.254E-01_JPRB,.237E-01_JPRB,.251E-01_JPRB,&
+&.283E-01_JPRB,.289E-01_JPRB,.241E-01_JPRB,.243E-01_JPRB,.237E-01_JPRB,.219E-01_JPRB,.177E-01_JPRB,&
+&.159E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,&
+&.118E-01_JPRB,.956E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 26 -10.0
+ZAER (:,26, 4) = (/&
+&.123E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.112E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.103E-01_JPRB,.118E-01_JPRB,.158E-01_JPRB,.186E-01_JPRB,&
+&.224E-01_JPRB,.282E-01_JPRB,.345E-01_JPRB,.440E-01_JPRB,.490E-01_JPRB,.486E-01_JPRB,.470E-01_JPRB,&
+&.277E-01_JPRB,.267E-01_JPRB,.257E-01_JPRB,.300E-01_JPRB,.271E-01_JPRB,.246E-01_JPRB,.251E-01_JPRB,&
+&.268E-01_JPRB,.292E-01_JPRB,.385E-01_JPRB,.514E-01_JPRB,.609E-01_JPRB,.724E-01_JPRB,.361E-01_JPRB,&
+&.321E-01_JPRB,.293E-01_JPRB,.289E-01_JPRB,.304E-01_JPRB,.342E-01_JPRB,.396E-01_JPRB,.394E-01_JPRB,&
+&.369E-01_JPRB,.252E-01_JPRB,.205E-01_JPRB,.161E-01_JPRB,.143E-01_JPRB,.239E-01_JPRB,.240E-01_JPRB,&
+&.289E-01_JPRB,.348E-01_JPRB,.402E-01_JPRB,.455E-01_JPRB,.393E-01_JPRB,.353E-01_JPRB,.359E-01_JPRB,&
+&.427E-01_JPRB,.444E-01_JPRB,.373E-01_JPRB,.343E-01_JPRB,.323E-01_JPRB,.301E-01_JPRB,.253E-01_JPRB,&
+&.232E-01_JPRB,.215E-01_JPRB,.198E-01_JPRB,.193E-01_JPRB,.191E-01_JPRB,.178E-01_JPRB,.164E-01_JPRB,&
+&.147E-01_JPRB,.123E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 27 -14.0
+ZAER (:,27, 4) = (/&
+&.147E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,&
+&.142E-01_JPRB,.134E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,.179E-01_JPRB,.220E-01_JPRB,&
+&.285E-01_JPRB,.426E-01_JPRB,.551E-01_JPRB,.730E-01_JPRB,.440E-01_JPRB,.388E-01_JPRB,.516E-01_JPRB,&
+&.400E-01_JPRB,.370E-01_JPRB,.345E-01_JPRB,.263E-01_JPRB,.242E-01_JPRB,.224E-01_JPRB,.221E-01_JPRB,&
+&.235E-01_JPRB,.257E-01_JPRB,.354E-01_JPRB,.502E-01_JPRB,.621E-01_JPRB,.478E-01_JPRB,.370E-01_JPRB,&
+&.307E-01_JPRB,.250E-01_JPRB,.256E-01_JPRB,.268E-01_JPRB,.292E-01_JPRB,.319E-01_JPRB,.320E-01_JPRB,&
+&.312E-01_JPRB,.246E-01_JPRB,.203E-01_JPRB,.155E-01_JPRB,.233E-01_JPRB,.246E-01_JPRB,.262E-01_JPRB,&
+&.389E-01_JPRB,.495E-01_JPRB,.353E-01_JPRB,.646E-01_JPRB,.581E-01_JPRB,.535E-01_JPRB,.510E-01_JPRB,&
+&.351E-01_JPRB,.365E-01_JPRB,.544E-01_JPRB,.464E-01_JPRB,.420E-01_JPRB,.382E-01_JPRB,.336E-01_JPRB,&
+&.313E-01_JPRB,.290E-01_JPRB,.255E-01_JPRB,.244E-01_JPRB,.235E-01_JPRB,.204E-01_JPRB,.185E-01_JPRB,&
+&.165E-01_JPRB,.148E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 28 -18.0
+ZAER (:,28, 4) = (/&
+&.167E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.167E-01_JPRB,.164E-01_JPRB,&
+&.161E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.193E-01_JPRB,.237E-01_JPRB,&
+&.317E-01_JPRB,.477E-01_JPRB,.368E-01_JPRB,.483E-01_JPRB,.482E-01_JPRB,.681E-01_JPRB,.496E-01_JPRB,&
+&.341E-01_JPRB,.310E-01_JPRB,.289E-01_JPRB,.236E-01_JPRB,.220E-01_JPRB,.205E-01_JPRB,.189E-01_JPRB,&
+&.199E-01_JPRB,.214E-01_JPRB,.277E-01_JPRB,.381E-01_JPRB,.475E-01_JPRB,.387E-01_JPRB,.311E-01_JPRB,&
+&.261E-01_JPRB,.202E-01_JPRB,.207E-01_JPRB,.210E-01_JPRB,.213E-01_JPRB,.219E-01_JPRB,.221E-01_JPRB,&
+&.221E-01_JPRB,.199E-01_JPRB,.295E-01_JPRB,.150E-01_JPRB,.142E-01_JPRB,.153E-01_JPRB,.276E-01_JPRB,&
+&.457E-01_JPRB,.598E-01_JPRB,.434E-01_JPRB,.478E-01_JPRB,.744E-01_JPRB,.693E-01_JPRB,.349E-01_JPRB,&
+&.400E-01_JPRB,.429E-01_JPRB,.744E-01_JPRB,.625E-01_JPRB,.547E-01_JPRB,.454E-01_JPRB,.399E-01_JPRB,&
+&.371E-01_JPRB,.344E-01_JPRB,.304E-01_JPRB,.286E-01_JPRB,.269E-01_JPRB,.220E-01_JPRB,.198E-01_JPRB,&
+&.176E-01_JPRB,.168E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 29 -22.0
+ZAER (:,29, 4) = (/&
+&.178E-01_JPRB,.178E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,.176E-01_JPRB,&
+&.171E-01_JPRB,.161E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.167E-01_JPRB,.203E-01_JPRB,.240E-01_JPRB,&
+&.305E-01_JPRB,.246E-01_JPRB,.298E-01_JPRB,.616E-01_JPRB,.642E-01_JPRB,.562E-01_JPRB,.434E-01_JPRB,&
+&.299E-01_JPRB,.271E-01_JPRB,.250E-01_JPRB,.214E-01_JPRB,.202E-01_JPRB,.189E-01_JPRB,.170E-01_JPRB,&
+&.179E-01_JPRB,.189E-01_JPRB,.217E-01_JPRB,.262E-01_JPRB,.308E-01_JPRB,.242E-01_JPRB,.218E-01_JPRB,&
+&.199E-01_JPRB,.172E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.175E-01_JPRB,.182E-01_JPRB,&
+&.189E-01_JPRB,.177E-01_JPRB,.168E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.162E-01_JPRB,.286E-01_JPRB,&
+&.449E-01_JPRB,.354E-01_JPRB,.430E-01_JPRB,.483E-01_JPRB,.444E-01_JPRB,.406E-01_JPRB,.331E-01_JPRB,&
+&.418E-01_JPRB,.490E-01_JPRB,.607E-01_JPRB,.883E-01_JPRB,.766E-01_JPRB,.567E-01_JPRB,.472E-01_JPRB,&
+&.426E-01_JPRB,.384E-01_JPRB,.339E-01_JPRB,.315E-01_JPRB,.289E-01_JPRB,.241E-01_JPRB,.216E-01_JPRB,&
+&.189E-01_JPRB,.178E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 30 -26.0
+ZAER (:,30, 4) = (/&
+&.184E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.187E-01_JPRB,.190E-01_JPRB,.194E-01_JPRB,.184E-01_JPRB,&
+&.175E-01_JPRB,.158E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,.174E-01_JPRB,.207E-01_JPRB,.231E-01_JPRB,&
+&.160E-01_JPRB,.191E-01_JPRB,.216E-01_JPRB,.421E-01_JPRB,.459E-01_JPRB,.429E-01_JPRB,.373E-01_JPRB,&
+&.273E-01_JPRB,.245E-01_JPRB,.221E-01_JPRB,.197E-01_JPRB,.187E-01_JPRB,.177E-01_JPRB,.164E-01_JPRB,&
+&.170E-01_JPRB,.175E-01_JPRB,.186E-01_JPRB,.200E-01_JPRB,.216E-01_JPRB,.252E-01_JPRB,.156E-01_JPRB,&
+&.157E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,.153E-01_JPRB,.178E-01_JPRB,.194E-01_JPRB,&
+&.214E-01_JPRB,.200E-01_JPRB,.191E-01_JPRB,.179E-01_JPRB,.169E-01_JPRB,.287E-01_JPRB,.177E-01_JPRB,&
+&.243E-01_JPRB,.303E-01_JPRB,.356E-01_JPRB,.386E-01_JPRB,.340E-01_JPRB,.307E-01_JPRB,.287E-01_JPRB,&
+&.438E-01_JPRB,.569E-01_JPRB,.797E-01_JPRB,.718E-01_JPRB,.104E+00_JPRB,.736E-01_JPRB,.582E-01_JPRB,&
+&.503E-01_JPRB,.424E-01_JPRB,.353E-01_JPRB,.323E-01_JPRB,.293E-01_JPRB,.256E-01_JPRB,.233E-01_JPRB,&
+&.208E-01_JPRB,.185E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 31 -30.0
+ZAER (:,31, 4) = (/&
+&.196E-01_JPRB,.196E-01_JPRB,.186E-01_JPRB,.191E-01_JPRB,.195E-01_JPRB,.199E-01_JPRB,.186E-01_JPRB,&
+&.174E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.172E-01_JPRB,.202E-01_JPRB,.216E-01_JPRB,&
+&.135E-01_JPRB,.149E-01_JPRB,.166E-01_JPRB,.193E-01_JPRB,.218E-01_JPRB,.213E-01_JPRB,.335E-01_JPRB,&
+&.266E-01_JPRB,.236E-01_JPRB,.207E-01_JPRB,.186E-01_JPRB,.178E-01_JPRB,.171E-01_JPRB,.163E-01_JPRB,&
+&.163E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.178E-01_JPRB,.188E-01_JPRB,.207E-01_JPRB,.138E-01_JPRB,&
+&.145E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.160E-01_JPRB,.175E-01_JPRB,.210E-01_JPRB,.234E-01_JPRB,&
+&.265E-01_JPRB,.252E-01_JPRB,.236E-01_JPRB,.216E-01_JPRB,.192E-01_JPRB,.190E-01_JPRB,.189E-01_JPRB,&
+&.227E-01_JPRB,.253E-01_JPRB,.274E-01_JPRB,.267E-01_JPRB,.231E-01_JPRB,.212E-01_JPRB,.246E-01_JPRB,&
+&.448E-01_JPRB,.620E-01_JPRB,.908E-01_JPRB,.831E-01_JPRB,.733E-01_JPRB,.884E-01_JPRB,.684E-01_JPRB,&
+&.573E-01_JPRB,.450E-01_JPRB,.351E-01_JPRB,.313E-01_JPRB,.280E-01_JPRB,.257E-01_JPRB,.243E-01_JPRB,&
+&.228E-01_JPRB,.197E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 32 -34.0
+ZAER (:,32, 4) = (/&
+&.212E-01_JPRB,.212E-01_JPRB,.195E-01_JPRB,.195E-01_JPRB,.195E-01_JPRB,.193E-01_JPRB,.179E-01_JPRB,&
+&.166E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.150E-01_JPRB,.172E-01_JPRB,.193E-01_JPRB,.118E-01_JPRB,&
+&.112E-01_JPRB,.117E-01_JPRB,.131E-01_JPRB,.157E-01_JPRB,.186E-01_JPRB,.189E-01_JPRB,.187E-01_JPRB,&
+&.268E-01_JPRB,.239E-01_JPRB,.209E-01_JPRB,.180E-01_JPRB,.173E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,&
+&.155E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.165E-01_JPRB,.178E-01_JPRB,.206E-01_JPRB,.239E-01_JPRB,&
+&.154E-01_JPRB,.161E-01_JPRB,.176E-01_JPRB,.194E-01_JPRB,.379E-01_JPRB,.461E-01_JPRB,.505E-01_JPRB,&
+&.555E-01_JPRB,.528E-01_JPRB,.293E-01_JPRB,.264E-01_JPRB,.232E-01_JPRB,.227E-01_JPRB,.223E-01_JPRB,&
+&.236E-01_JPRB,.231E-01_JPRB,.226E-01_JPRB,.199E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,.226E-01_JPRB,&
+&.421E-01_JPRB,.583E-01_JPRB,.846E-01_JPRB,.796E-01_JPRB,.722E-01_JPRB,.933E-01_JPRB,.722E-01_JPRB,&
+&.357E-01_JPRB,.448E-01_JPRB,.341E-01_JPRB,.297E-01_JPRB,.258E-01_JPRB,.247E-01_JPRB,.243E-01_JPRB,&
+&.240E-01_JPRB,.213E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 33 -38.0
+ZAER (:,33, 4) = (/&
+&.218E-01_JPRB,.218E-01_JPRB,.199E-01_JPRB,.193E-01_JPRB,.187E-01_JPRB,.183E-01_JPRB,.170E-01_JPRB,&
+&.159E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.150E-01_JPRB,.174E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,&
+&.943E-02_JPRB,.942E-02_JPRB,.104E-01_JPRB,.124E-01_JPRB,.155E-01_JPRB,.163E-01_JPRB,.168E-01_JPRB,&
+&.258E-01_JPRB,.236E-01_JPRB,.211E-01_JPRB,.175E-01_JPRB,.166E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,&
+&.144E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,.151E-01_JPRB,.166E-01_JPRB,.208E-01_JPRB,.250E-01_JPRB,&
+&.165E-01_JPRB,.303E-01_JPRB,.352E-01_JPRB,.411E-01_JPRB,.516E-01_JPRB,.646E-01_JPRB,.693E-01_JPRB,&
+&.436E-01_JPRB,.408E-01_JPRB,.377E-01_JPRB,.339E-01_JPRB,.300E-01_JPRB,.290E-01_JPRB,.282E-01_JPRB,&
+&.268E-01_JPRB,.244E-01_JPRB,.222E-01_JPRB,.189E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.222E-01_JPRB,&
+&.354E-01_JPRB,.463E-01_JPRB,.643E-01_JPRB,.643E-01_JPRB,.102E+00_JPRB,.863E-01_JPRB,.679E-01_JPRB,&
+&.562E-01_JPRB,.251E-01_JPRB,.320E-01_JPRB,.277E-01_JPRB,.236E-01_JPRB,.230E-01_JPRB,.232E-01_JPRB,&
+&.234E-01_JPRB,.219E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 34 -42.0
+ZAER (:,34, 4) = (/&
+&.205E-01_JPRB,.204E-01_JPRB,.189E-01_JPRB,.181E-01_JPRB,.174E-01_JPRB,.171E-01_JPRB,.162E-01_JPRB,&
+&.154E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,.147E-01_JPRB,.168E-01_JPRB,.101E-01_JPRB,.971E-02_JPRB,&
+&.864E-02_JPRB,.849E-02_JPRB,.906E-02_JPRB,.103E-01_JPRB,.127E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,&
+&.136E-01_JPRB,.212E-01_JPRB,.197E-01_JPRB,.162E-01_JPRB,.153E-01_JPRB,.145E-01_JPRB,.138E-01_JPRB,&
+&.134E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,.141E-01_JPRB,.158E-01_JPRB,.205E-01_JPRB,.257E-01_JPRB,&
+&.176E-01_JPRB,.204E-01_JPRB,.445E-01_JPRB,.554E-01_JPRB,.736E-01_JPRB,.555E-01_JPRB,.583E-01_JPRB,&
+&.986E-01_JPRB,.916E-01_JPRB,.509E-01_JPRB,.460E-01_JPRB,.656E-01_JPRB,.369E-01_JPRB,.346E-01_JPRB,&
+&.311E-01_JPRB,.283E-01_JPRB,.257E-01_JPRB,.217E-01_JPRB,.208E-01_JPRB,.204E-01_JPRB,.212E-01_JPRB,&
+&.273E-01_JPRB,.328E-01_JPRB,.427E-01_JPRB,.458E-01_JPRB,.458E-01_JPRB,.420E-01_JPRB,.342E-01_JPRB,&
+&.482E-01_JPRB,.369E-01_JPRB,.282E-01_JPRB,.248E-01_JPRB,.217E-01_JPRB,.212E-01_JPRB,.213E-01_JPRB,&
+&.214E-01_JPRB,.205E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 35 -46.0
+ZAER (:,35, 4) = (/&
+&.184E-01_JPRB,.184E-01_JPRB,.169E-01_JPRB,.164E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,.155E-01_JPRB,&
+&.151E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.150E-01_JPRB,.909E-02_JPRB,.892E-02_JPRB,&
+&.842E-02_JPRB,.832E-02_JPRB,.862E-02_JPRB,.926E-02_JPRB,.104E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,&
+&.108E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.125E-01_JPRB,.127E-01_JPRB,.141E-01_JPRB,.159E-01_JPRB,.208E-01_JPRB,.276E-01_JPRB,&
+&.330E-01_JPRB,.248E-01_JPRB,.377E-01_JPRB,.487E-01_JPRB,.656E-01_JPRB,.768E-01_JPRB,.787E-01_JPRB,&
+&.778E-01_JPRB,.735E-01_JPRB,.682E-01_JPRB,.617E-01_JPRB,.834E-01_JPRB,.452E-01_JPRB,.405E-01_JPRB,&
+&.353E-01_JPRB,.327E-01_JPRB,.301E-01_JPRB,.261E-01_JPRB,.240E-01_JPRB,.223E-01_JPRB,.203E-01_JPRB,&
+&.218E-01_JPRB,.236E-01_JPRB,.279E-01_JPRB,.303E-01_JPRB,.309E-01_JPRB,.299E-01_JPRB,.255E-01_JPRB,&
+&.223E-01_JPRB,.295E-01_JPRB,.238E-01_JPRB,.218E-01_JPRB,.202E-01_JPRB,.199E-01_JPRB,.198E-01_JPRB,&
+&.196E-01_JPRB,.185E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 36 -50.0
+ZAER (:,36, 4) = (/&
+&.169E-01_JPRB,.168E-01_JPRB,.152E-01_JPRB,.148E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,&
+&.143E-01_JPRB,.138E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.801E-02_JPRB,.809E-02_JPRB,.811E-02_JPRB,&
+&.809E-02_JPRB,.819E-02_JPRB,.835E-02_JPRB,.862E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.872E-02_JPRB,&
+&.851E-02_JPRB,.833E-02_JPRB,.815E-02_JPRB,.127E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,&
+&.121E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,.144E-01_JPRB,.166E-01_JPRB,.218E-01_JPRB,.303E-01_JPRB,&
+&.380E-01_JPRB,.309E-01_JPRB,.503E-01_JPRB,.649E-01_JPRB,.855E-01_JPRB,.930E-01_JPRB,.945E-01_JPRB,&
+&.943E-01_JPRB,.913E-01_JPRB,.847E-01_JPRB,.760E-01_JPRB,.599E-01_JPRB,.532E-01_JPRB,.468E-01_JPRB,&
+&.393E-01_JPRB,.364E-01_JPRB,.336E-01_JPRB,.295E-01_JPRB,.269E-01_JPRB,.247E-01_JPRB,.213E-01_JPRB,&
+&.204E-01_JPRB,.199E-01_JPRB,.199E-01_JPRB,.199E-01_JPRB,.197E-01_JPRB,.192E-01_JPRB,.168E-01_JPRB,&
+&.152E-01_JPRB,.133E-01_JPRB,.202E-01_JPRB,.196E-01_JPRB,.193E-01_JPRB,.190E-01_JPRB,.187E-01_JPRB,&
+&.184E-01_JPRB,.169E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 37 -54.0
+ZAER (:,37, 4) = (/&
+&.161E-01_JPRB,.161E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,&
+&.128E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.743E-02_JPRB,.736E-02_JPRB,.741E-02_JPRB,.748E-02_JPRB,&
+&.761E-02_JPRB,.771E-02_JPRB,.774E-02_JPRB,.777E-02_JPRB,.767E-02_JPRB,.755E-02_JPRB,.123E-01_JPRB,&
+&.711E-02_JPRB,.703E-02_JPRB,.696E-02_JPRB,.694E-02_JPRB,.116E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.124E-01_JPRB,.146E-01_JPRB,.168E-01_JPRB,.215E-01_JPRB,.288E-01_JPRB,&
+&.217E-01_JPRB,.499E-01_JPRB,.792E-01_JPRB,.604E-01_JPRB,.782E-01_JPRB,.878E-01_JPRB,.932E-01_JPRB,&
+&.993E-01_JPRB,.993E-01_JPRB,.924E-01_JPRB,.828E-01_JPRB,.644E-01_JPRB,.569E-01_JPRB,.497E-01_JPRB,&
+&.411E-01_JPRB,.374E-01_JPRB,.339E-01_JPRB,.293E-01_JPRB,.270E-01_JPRB,.250E-01_JPRB,.217E-01_JPRB,&
+&.199E-01_JPRB,.185E-01_JPRB,.166E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.126E-01_JPRB,.114E-01_JPRB,&
+&.108E-01_JPRB,.173E-01_JPRB,.174E-01_JPRB,.177E-01_JPRB,.180E-01_JPRB,.108E-01_JPRB,.178E-01_JPRB,&
+&.174E-01_JPRB,.162E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 38 -58.0
+ZAER (:,38, 4) = (/&
+&.159E-01_JPRB,.158E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,&
+&.113E-01_JPRB,.111E-01_JPRB,.666E-02_JPRB,.668E-02_JPRB,.671E-02_JPRB,.677E-02_JPRB,.680E-02_JPRB,&
+&.684E-02_JPRB,.675E-02_JPRB,.671E-02_JPRB,.665E-02_JPRB,.110E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,&
+&.646E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.108E-01_JPRB,.118E-01_JPRB,.139E-01_JPRB,.158E-01_JPRB,.197E-01_JPRB,.249E-01_JPRB,&
+&.300E-01_JPRB,.395E-01_JPRB,.541E-01_JPRB,.391E-01_JPRB,.485E-01_JPRB,.102E+00_JPRB,.695E-01_JPRB,&
+&.798E-01_JPRB,.837E-01_JPRB,.799E-01_JPRB,.740E-01_JPRB,.579E-01_JPRB,.511E-01_JPRB,.446E-01_JPRB,&
+&.365E-01_JPRB,.328E-01_JPRB,.293E-01_JPRB,.253E-01_JPRB,.237E-01_JPRB,.222E-01_JPRB,.194E-01_JPRB,&
+&.174E-01_JPRB,.160E-01_JPRB,.142E-01_JPRB,.128E-01_JPRB,.117E-01_JPRB,.104E-01_JPRB,.940E-02_JPRB,&
+&.907E-02_JPRB,.892E-02_JPRB,.155E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,.996E-02_JPRB,.165E-01_JPRB,&
+&.164E-01_JPRB,.159E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 39 -62.0
+ZAER (:,39, 4) = (/&
+&.157E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,.143E-01_JPRB,.811E-02_JPRB,.724E-02_JPRB,.678E-02_JPRB,&
+&.645E-02_JPRB,.613E-02_JPRB,.607E-02_JPRB,.605E-02_JPRB,.607E-02_JPRB,.609E-02_JPRB,.608E-02_JPRB,&
+&.602E-02_JPRB,.588E-02_JPRB,.580E-02_JPRB,.573E-02_JPRB,.964E-02_JPRB,.980E-02_JPRB,.100E-01_JPRB,&
+&.620E-02_JPRB,.104E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.989E-02_JPRB,.959E-02_JPRB,.551E-02_JPRB,&
+&.928E-02_JPRB,.948E-02_JPRB,.106E-01_JPRB,.124E-01_JPRB,.142E-01_JPRB,.179E-01_JPRB,.231E-01_JPRB,&
+&.278E-01_JPRB,.359E-01_JPRB,.448E-01_JPRB,.307E-01_JPRB,.358E-01_JPRB,.717E-01_JPRB,.475E-01_JPRB,&
+&.529E-01_JPRB,.554E-01_JPRB,.542E-01_JPRB,.520E-01_JPRB,.433E-01_JPRB,.391E-01_JPRB,.350E-01_JPRB,&
+&.294E-01_JPRB,.272E-01_JPRB,.251E-01_JPRB,.224E-01_JPRB,.208E-01_JPRB,.193E-01_JPRB,.166E-01_JPRB,&
+&.145E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.946E-02_JPRB,.883E-02_JPRB,&
+&.856E-02_JPRB,.836E-02_JPRB,.851E-02_JPRB,.866E-02_JPRB,.887E-02_JPRB,.910E-02_JPRB,.923E-02_JPRB,&
+&.937E-02_JPRB,.157E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 40 -66.0
+ZAER (:,40, 4) = (/&
+&.922E-02_JPRB,.921E-02_JPRB,.150E-01_JPRB,.144E-01_JPRB,.832E-02_JPRB,.767E-02_JPRB,.724E-02_JPRB,&
+&.690E-02_JPRB,.648E-02_JPRB,.628E-02_JPRB,.615E-02_JPRB,.602E-02_JPRB,.594E-02_JPRB,.588E-02_JPRB,&
+&.578E-02_JPRB,.568E-02_JPRB,.563E-02_JPRB,.560E-02_JPRB,.571E-02_JPRB,.583E-02_JPRB,.997E-02_JPRB,&
+&.616E-02_JPRB,.615E-02_JPRB,.612E-02_JPRB,.962E-02_JPRB,.921E-02_JPRB,.528E-02_JPRB,.499E-02_JPRB,&
+&.505E-02_JPRB,.860E-02_JPRB,.953E-02_JPRB,.109E-01_JPRB,.124E-01_JPRB,.156E-01_JPRB,.202E-01_JPRB,&
+&.242E-01_JPRB,.310E-01_JPRB,.384E-01_JPRB,.434E-01_JPRB,.300E-01_JPRB,.341E-01_JPRB,.363E-01_JPRB,&
+&.387E-01_JPRB,.394E-01_JPRB,.384E-01_JPRB,.369E-01_JPRB,.322E-01_JPRB,.298E-01_JPRB,.276E-01_JPRB,&
+&.245E-01_JPRB,.234E-01_JPRB,.222E-01_JPRB,.204E-01_JPRB,.191E-01_JPRB,.179E-01_JPRB,.157E-01_JPRB,&
+&.140E-01_JPRB,.128E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.982E-02_JPRB,.947E-02_JPRB,&
+&.926E-02_JPRB,.902E-02_JPRB,.894E-02_JPRB,.895E-02_JPRB,.898E-02_JPRB,.908E-02_JPRB,.916E-02_JPRB,&
+&.924E-02_JPRB,.922E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 41 -70.0
+ZAER (:,41, 4) = (/&
+&.152E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,.834E-02_JPRB,.790E-02_JPRB,.760E-02_JPRB,&
+&.735E-02_JPRB,.117E-01_JPRB,.114E-01_JPRB,.668E-02_JPRB,.108E-01_JPRB,.105E-01_JPRB,.619E-02_JPRB,&
+&.606E-02_JPRB,.596E-02_JPRB,.987E-02_JPRB,.589E-02_JPRB,.593E-02_JPRB,.598E-02_JPRB,.604E-02_JPRB,&
+&.605E-02_JPRB,.596E-02_JPRB,.977E-02_JPRB,.916E-02_JPRB,.882E-02_JPRB,.509E-02_JPRB,.487E-02_JPRB,&
+&.493E-02_JPRB,.502E-02_JPRB,.546E-02_JPRB,.607E-02_JPRB,.112E-01_JPRB,.134E-01_JPRB,.165E-01_JPRB,&
+&.192E-01_JPRB,.239E-01_JPRB,.297E-01_JPRB,.337E-01_JPRB,.391E-01_JPRB,.443E-01_JPRB,.280E-01_JPRB,&
+&.293E-01_JPRB,.487E-01_JPRB,.472E-01_JPRB,.451E-01_JPRB,.405E-01_JPRB,.384E-01_JPRB,.364E-01_JPRB,&
+&.337E-01_JPRB,.196E-01_JPRB,.191E-01_JPRB,.182E-01_JPRB,.174E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,&
+&.144E-01_JPRB,.136E-01_JPRB,.125E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,&
+&.103E-01_JPRB,.100E-01_JPRB,.978E-02_JPRB,.969E-02_JPRB,.959E-02_JPRB,.950E-02_JPRB,.944E-02_JPRB,&
+&.156E-01_JPRB,.914E-02_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 42 -74.0
+ZAER (:,42, 4) = (/&
+&.152E-01_JPRB,.152E-01_JPRB,.145E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.671E-02_JPRB,.660E-02_JPRB,&
+&.108E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.608E-02_JPRB,.101E-01_JPRB,&
+&.988E-02_JPRB,.970E-02_JPRB,.951E-02_JPRB,.909E-02_JPRB,.533E-02_JPRB,.522E-02_JPRB,.514E-02_JPRB,&
+&.521E-02_JPRB,.530E-02_JPRB,.563E-02_JPRB,.607E-02_JPRB,.108E-01_JPRB,.123E-01_JPRB,.141E-01_JPRB,&
+&.158E-01_JPRB,.186E-01_JPRB,.222E-01_JPRB,.247E-01_JPRB,.281E-01_JPRB,.315E-01_JPRB,.330E-01_JPRB,&
+&.344E-01_JPRB,.344E-01_JPRB,.337E-01_JPRB,.327E-01_JPRB,.304E-01_JPRB,.293E-01_JPRB,.282E-01_JPRB,&
+&.266E-01_JPRB,.261E-01_JPRB,.256E-01_JPRB,.250E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,&
+&.137E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.203E-01_JPRB,.197E-01_JPRB,.190E-01_JPRB,&
+&.186E-01_JPRB,.181E-01_JPRB,.176E-01_JPRB,.172E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,&
+&.159E-01_JPRB,.152E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 43 -78.0
+ZAER (:,43, 4) = (/&
+&.150E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.138E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,&
+&.128E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,&
+&.111E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.621E-02_JPRB,.615E-02_JPRB,.609E-02_JPRB,&
+&.994E-02_JPRB,.983E-02_JPRB,.583E-02_JPRB,.573E-02_JPRB,.571E-02_JPRB,.568E-02_JPRB,.572E-02_JPRB,&
+&.581E-02_JPRB,.591E-02_JPRB,.619E-02_JPRB,.649E-02_JPRB,.113E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,&
+&.142E-01_JPRB,.157E-01_JPRB,.175E-01_JPRB,.188E-01_JPRB,.122E-01_JPRB,.222E-01_JPRB,.230E-01_JPRB,&
+&.238E-01_JPRB,.241E-01_JPRB,.240E-01_JPRB,.238E-01_JPRB,.231E-01_JPRB,.226E-01_JPRB,.221E-01_JPRB,&
+&.214E-01_JPRB,.211E-01_JPRB,.208E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.203E-01_JPRB,.202E-01_JPRB,&
+&.200E-01_JPRB,.119E-01_JPRB,.197E-01_JPRB,.194E-01_JPRB,.192E-01_JPRB,.189E-01_JPRB,.185E-01_JPRB,&
+&.183E-01_JPRB,.179E-01_JPRB,.175E-01_JPRB,.172E-01_JPRB,.168E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,&
+&.156E-01_JPRB,.150E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 44 -82.0
+ZAER (:,44, 4) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,&
+&.127E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,&
+&.115E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.654E-02_JPRB,&
+&.649E-02_JPRB,.647E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.648E-02_JPRB,.650E-02_JPRB,.659E-02_JPRB,&
+&.667E-02_JPRB,.675E-02_JPRB,.695E-02_JPRB,.713E-02_JPRB,.729E-02_JPRB,.126E-01_JPRB,.131E-01_JPRB,&
+&.136E-01_JPRB,.142E-01_JPRB,.149E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,.167E-01_JPRB,.171E-01_JPRB,&
+&.174E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,.177E-01_JPRB,&
+&.175E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.171E-01_JPRB,&
+&.170E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,&
+&.163E-01_JPRB,.161E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,&
+&.146E-01_JPRB,.142E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 45 -86.0
+ZAER (:,45, 4) = (/&
+&.137E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,&
+&.131E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.126E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.126E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,&
+&.135E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,&
+&.145E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,&
+&.148E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,&
+&.145E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,&
+&.138E-01_JPRB,.137E-01_JPRB/)
+!-- Organic Aerosol          month:  4 --- lat: 46 -90.0
+ZAER (:,46, 4) = (/&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=4   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_04
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_05.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_05.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_05.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_05
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,5:5)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  5 --- lat:  1  90.0
+ZAER (:, 1, 5) = (/&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  2  86.0
+ZAER (:, 2, 5) = (/&
+&.969E-03_JPRB,.969E-03_JPRB,.974E-03_JPRB,.977E-03_JPRB,.979E-03_JPRB,.983E-03_JPRB,.985E-03_JPRB,&
+&.986E-03_JPRB,.988E-03_JPRB,.990E-03_JPRB,.991E-03_JPRB,.992E-03_JPRB,.992E-03_JPRB,.993E-03_JPRB,&
+&.993E-03_JPRB,.993E-03_JPRB,.993E-03_JPRB,.993E-03_JPRB,.992E-03_JPRB,.992E-03_JPRB,.992E-03_JPRB,&
+&.991E-03_JPRB,.990E-03_JPRB,.989E-03_JPRB,.988E-03_JPRB,.986E-03_JPRB,.985E-03_JPRB,.982E-03_JPRB,&
+&.980E-03_JPRB,.978E-03_JPRB,.973E-03_JPRB,.969E-03_JPRB,.966E-03_JPRB,.960E-03_JPRB,.955E-03_JPRB,&
+&.952E-03_JPRB,.946E-03_JPRB,.941E-03_JPRB,.937E-03_JPRB,.932E-03_JPRB,.927E-03_JPRB,.924E-03_JPRB,&
+&.920E-03_JPRB,.915E-03_JPRB,.913E-03_JPRB,.911E-03_JPRB,.908E-03_JPRB,.907E-03_JPRB,.906E-03_JPRB,&
+&.905E-03_JPRB,.905E-03_JPRB,.905E-03_JPRB,.906E-03_JPRB,.906E-03_JPRB,.907E-03_JPRB,.909E-03_JPRB,&
+&.911E-03_JPRB,.913E-03_JPRB,.916E-03_JPRB,.920E-03_JPRB,.922E-03_JPRB,.926E-03_JPRB,.931E-03_JPRB,&
+&.934E-03_JPRB,.938E-03_JPRB,.943E-03_JPRB,.947E-03_JPRB,.950E-03_JPRB,.956E-03_JPRB,.960E-03_JPRB,&
+&.963E-03_JPRB,.969E-03_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  3  82.0
+ZAER (:, 3, 5) = (/&
+&.100E-02_JPRB,.100E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.100E-02_JPRB,&
+&.992E-03_JPRB,.973E-03_JPRB,.955E-03_JPRB,.943E-03_JPRB,.928E-03_JPRB,.912E-03_JPRB,.903E-03_JPRB,&
+&.893E-03_JPRB,.882E-03_JPRB,.877E-03_JPRB,.872E-03_JPRB,.865E-03_JPRB,.862E-03_JPRB,.860E-03_JPRB,&
+&.856E-03_JPRB,.856E-03_JPRB,.855E-03_JPRB,.855E-03_JPRB,.855E-03_JPRB,.856E-03_JPRB,.858E-03_JPRB,&
+&.862E-03_JPRB,.865E-03_JPRB,.870E-03_JPRB,.876E-03_JPRB,.882E-03_JPRB,.889E-03_JPRB,.900E-03_JPRB,&
+&.907E-03_JPRB,.917E-03_JPRB,.931E-03_JPRB,.940E-03_JPRB,.951E-03_JPRB,.967E-03_JPRB,.977E-03_JPRB,&
+&.987E-03_JPRB,.100E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  4  78.0
+ZAER (:, 4, 5) = (/&
+&.106E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,&
+&.113E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,&
+&.109E-02_JPRB,.105E-02_JPRB,.102E-02_JPRB,.994E-03_JPRB,.967E-03_JPRB,.942E-03_JPRB,.929E-03_JPRB,&
+&.915E-03_JPRB,.902E-03_JPRB,.897E-03_JPRB,.891E-03_JPRB,.886E-03_JPRB,.884E-03_JPRB,.882E-03_JPRB,&
+&.878E-03_JPRB,.875E-03_JPRB,.872E-03_JPRB,.866E-03_JPRB,.862E-03_JPRB,.858E-03_JPRB,.854E-03_JPRB,&
+&.852E-03_JPRB,.851E-03_JPRB,.852E-03_JPRB,.857E-03_JPRB,.861E-03_JPRB,.868E-03_JPRB,.882E-03_JPRB,&
+&.892E-03_JPRB,.906E-03_JPRB,.929E-03_JPRB,.944E-03_JPRB,.964E-03_JPRB,.993E-03_JPRB,.101E-02_JPRB,&
+&.103E-02_JPRB,.106E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  5  74.0
+ZAER (:, 5, 5) = (/&
+&.115E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,&
+&.119E-02_JPRB,.121E-02_JPRB,.124E-02_JPRB,.130E-02_JPRB,.132E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,&
+&.138E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,&
+&.120E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,&
+&.992E-03_JPRB,.987E-03_JPRB,.988E-03_JPRB,.989E-03_JPRB,.998E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.999E-03_JPRB,.992E-03_JPRB,.973E-03_JPRB,.957E-03_JPRB,.943E-03_JPRB,.920E-03_JPRB,&
+&.905E-03_JPRB,.895E-03_JPRB,.884E-03_JPRB,.882E-03_JPRB,.882E-03_JPRB,.887E-03_JPRB,.901E-03_JPRB,&
+&.913E-03_JPRB,.932E-03_JPRB,.963E-03_JPRB,.986E-03_JPRB,.101E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,&
+&.111E-02_JPRB,.115E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  6  70.0
+ZAER (:, 6, 5) = (/&
+&.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,&
+&.125E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.128E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,&
+&.145E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,.133E-02_JPRB,&
+&.130E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,&
+&.113E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,&
+&.103E-02_JPRB,.101E-02_JPRB,.984E-03_JPRB,.977E-03_JPRB,.976E-03_JPRB,.982E-03_JPRB,.100E-02_JPRB,&
+&.103E-02_JPRB,.106E-02_JPRB,.110E-02_JPRB,.114E-02_JPRB,.118E-02_JPRB,.123E-02_JPRB,.126E-02_JPRB,&
+&.129E-02_JPRB,.132E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  7  66.0
+ZAER (:, 7, 5) = (/&
+&.162E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,.154E-02_JPRB,.148E-02_JPRB,.143E-02_JPRB,&
+&.139E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,&
+&.144E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,&
+&.145E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,&
+&.137E-02_JPRB,.140E-02_JPRB,.142E-02_JPRB,.145E-02_JPRB,.149E-02_JPRB,.152E-02_JPRB,.154E-02_JPRB,&
+&.156E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.142E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.124E-02_JPRB,&
+&.121E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.123E-02_JPRB,&
+&.127E-02_JPRB,.134E-02_JPRB,.142E-02_JPRB,.147E-02_JPRB,.153E-02_JPRB,.159E-02_JPRB,.162E-02_JPRB,&
+&.164E-02_JPRB,.163E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  8  62.0
+ZAER (:, 8, 5) = (/&
+&.209E-02_JPRB,.209E-02_JPRB,.198E-02_JPRB,.194E-02_JPRB,.190E-02_JPRB,.180E-02_JPRB,.171E-02_JPRB,&
+&.164E-02_JPRB,.153E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,&
+&.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,&
+&.144E-02_JPRB,.147E-02_JPRB,.152E-02_JPRB,.157E-02_JPRB,.161E-02_JPRB,.168E-02_JPRB,.171E-02_JPRB,&
+&.170E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,&
+&.167E-02_JPRB,.171E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,.183E-02_JPRB,.188E-02_JPRB,.193E-02_JPRB,&
+&.195E-02_JPRB,.190E-02_JPRB,.184E-02_JPRB,.170E-02_JPRB,.161E-02_JPRB,.155E-02_JPRB,.147E-02_JPRB,&
+&.145E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.158E-02_JPRB,&
+&.166E-02_JPRB,.179E-02_JPRB,.194E-02_JPRB,.202E-02_JPRB,.210E-02_JPRB,.219E-02_JPRB,.218E-02_JPRB,&
+&.217E-02_JPRB,.209E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat:  9  58.0
+ZAER (:, 9, 5) = (/&
+&.262E-02_JPRB,.262E-02_JPRB,.253E-02_JPRB,.249E-02_JPRB,.245E-02_JPRB,.229E-02_JPRB,.216E-02_JPRB,&
+&.205E-02_JPRB,.188E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,&
+&.161E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,&
+&.163E-02_JPRB,.169E-02_JPRB,.180E-02_JPRB,.189E-02_JPRB,.196E-02_JPRB,.207E-02_JPRB,.211E-02_JPRB,&
+&.212E-02_JPRB,.209E-02_JPRB,.203E-02_JPRB,.198E-02_JPRB,.191E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.188E-02_JPRB,.195E-02_JPRB,.201E-02_JPRB,.208E-02_JPRB,.225E-02_JPRB,.233E-02_JPRB,.241E-02_JPRB,&
+&.241E-02_JPRB,.232E-02_JPRB,.224E-02_JPRB,.204E-02_JPRB,.192E-02_JPRB,.182E-02_JPRB,.174E-02_JPRB,&
+&.175E-02_JPRB,.177E-02_JPRB,.185E-02_JPRB,.188E-02_JPRB,.190E-02_JPRB,.192E-02_JPRB,.210E-02_JPRB,&
+&.228E-02_JPRB,.255E-02_JPRB,.271E-02_JPRB,.274E-02_JPRB,.273E-02_JPRB,.276E-02_JPRB,.273E-02_JPRB,&
+&.269E-02_JPRB,.262E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 10  54.0
+ZAER (:,10, 5) = (/&
+&.315E-02_JPRB,.314E-02_JPRB,.301E-02_JPRB,.299E-02_JPRB,.296E-02_JPRB,.285E-02_JPRB,.268E-02_JPRB,&
+&.252E-02_JPRB,.224E-02_JPRB,.209E-02_JPRB,.199E-02_JPRB,.189E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,&
+&.183E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.171E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,&
+&.172E-02_JPRB,.105E-02_JPRB,.180E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,.191E-02_JPRB,.206E-02_JPRB,&
+&.225E-02_JPRB,.242E-02_JPRB,.261E-02_JPRB,.266E-02_JPRB,.270E-02_JPRB,.272E-02_JPRB,.270E-02_JPRB,&
+&.267E-02_JPRB,.259E-02_JPRB,.239E-02_JPRB,.224E-02_JPRB,.204E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,&
+&.193E-02_JPRB,.208E-02_JPRB,.221E-02_JPRB,.237E-02_JPRB,.267E-02_JPRB,.275E-02_JPRB,.283E-02_JPRB,&
+&.273E-02_JPRB,.260E-02_JPRB,.248E-02_JPRB,.228E-02_JPRB,.213E-02_JPRB,.202E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.192E-02_JPRB,.203E-02_JPRB,.211E-02_JPRB,.217E-02_JPRB,.226E-02_JPRB,.253E-02_JPRB,&
+&.280E-02_JPRB,.322E-02_JPRB,.342E-02_JPRB,.339E-02_JPRB,.329E-02_JPRB,.324E-02_JPRB,.323E-02_JPRB,&
+&.323E-02_JPRB,.315E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 11  50.0
+ZAER (:,11, 5) = (/&
+&.366E-02_JPRB,.365E-02_JPRB,.331E-02_JPRB,.327E-02_JPRB,.324E-02_JPRB,.321E-02_JPRB,.302E-02_JPRB,&
+&.285E-02_JPRB,.254E-02_JPRB,.237E-02_JPRB,.227E-02_JPRB,.217E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,&
+&.207E-02_JPRB,.204E-02_JPRB,.199E-02_JPRB,.192E-02_JPRB,.185E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,&
+&.182E-02_JPRB,.113E-02_JPRB,.193E-02_JPRB,.212E-02_JPRB,.228E-02_JPRB,.246E-02_JPRB,.308E-02_JPRB,&
+&.347E-02_JPRB,.379E-02_JPRB,.408E-02_JPRB,.405E-02_JPRB,.401E-02_JPRB,.387E-02_JPRB,.370E-02_JPRB,&
+&.352E-02_JPRB,.317E-02_JPRB,.279E-02_JPRB,.252E-02_JPRB,.217E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,&
+&.204E-02_JPRB,.227E-02_JPRB,.247E-02_JPRB,.271E-02_JPRB,.310E-02_JPRB,.314E-02_JPRB,.315E-02_JPRB,&
+&.292E-02_JPRB,.275E-02_JPRB,.259E-02_JPRB,.239E-02_JPRB,.224E-02_JPRB,.212E-02_JPRB,.194E-02_JPRB,&
+&.192E-02_JPRB,.194E-02_JPRB,.202E-02_JPRB,.213E-02_JPRB,.223E-02_JPRB,.240E-02_JPRB,.272E-02_JPRB,&
+&.304E-02_JPRB,.353E-02_JPRB,.399E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,.383E-02_JPRB,.380E-02_JPRB,&
+&.380E-02_JPRB,.366E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 12  46.0
+ZAER (:,12, 5) = (/&
+&.402E-02_JPRB,.400E-02_JPRB,.342E-02_JPRB,.336E-02_JPRB,.331E-02_JPRB,.332E-02_JPRB,.321E-02_JPRB,&
+&.309E-02_JPRB,.281E-02_JPRB,.265E-02_JPRB,.255E-02_JPRB,.247E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,&
+&.236E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,.220E-02_JPRB,.209E-02_JPRB,.204E-02_JPRB,.200E-02_JPRB,&
+&.198E-02_JPRB,.123E-02_JPRB,.212E-02_JPRB,.245E-02_JPRB,.283E-02_JPRB,.323E-02_JPRB,.441E-02_JPRB,&
+&.500E-02_JPRB,.549E-02_JPRB,.599E-02_JPRB,.588E-02_JPRB,.572E-02_JPRB,.524E-02_JPRB,.481E-02_JPRB,&
+&.444E-02_JPRB,.382E-02_JPRB,.323E-02_JPRB,.289E-02_JPRB,.249E-02_JPRB,.231E-02_JPRB,.232E-02_JPRB,&
+&.239E-02_JPRB,.271E-02_JPRB,.299E-02_JPRB,.333E-02_JPRB,.387E-02_JPRB,.384E-02_JPRB,.376E-02_JPRB,&
+&.327E-02_JPRB,.300E-02_JPRB,.274E-02_JPRB,.244E-02_JPRB,.230E-02_JPRB,.218E-02_JPRB,.200E-02_JPRB,&
+&.198E-02_JPRB,.199E-02_JPRB,.206E-02_JPRB,.218E-02_JPRB,.229E-02_JPRB,.250E-02_JPRB,.287E-02_JPRB,&
+&.325E-02_JPRB,.384E-02_JPRB,.461E-02_JPRB,.492E-02_JPRB,.521E-02_JPRB,.476E-02_JPRB,.456E-02_JPRB,&
+&.437E-02_JPRB,.403E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 13  42.0
+ZAER (:,13, 5) = (/&
+&.458E-02_JPRB,.455E-02_JPRB,.369E-02_JPRB,.356E-02_JPRB,.346E-02_JPRB,.342E-02_JPRB,.339E-02_JPRB,&
+&.333E-02_JPRB,.309E-02_JPRB,.294E-02_JPRB,.285E-02_JPRB,.278E-02_JPRB,.270E-02_JPRB,.267E-02_JPRB,&
+&.265E-02_JPRB,.263E-02_JPRB,.257E-02_JPRB,.247E-02_JPRB,.235E-02_JPRB,.228E-02_JPRB,.222E-02_JPRB,&
+&.222E-02_JPRB,.141E-02_JPRB,.150E-02_JPRB,.333E-02_JPRB,.418E-02_JPRB,.503E-02_JPRB,.643E-02_JPRB,&
+&.691E-02_JPRB,.736E-02_JPRB,.820E-02_JPRB,.787E-02_JPRB,.751E-02_JPRB,.666E-02_JPRB,.581E-02_JPRB,&
+&.518E-02_JPRB,.430E-02_JPRB,.377E-02_JPRB,.349E-02_JPRB,.318E-02_JPRB,.307E-02_JPRB,.314E-02_JPRB,&
+&.330E-02_JPRB,.372E-02_JPRB,.414E-02_JPRB,.465E-02_JPRB,.529E-02_JPRB,.517E-02_JPRB,.498E-02_JPRB,&
+&.410E-02_JPRB,.361E-02_JPRB,.316E-02_JPRB,.267E-02_JPRB,.249E-02_JPRB,.235E-02_JPRB,.220E-02_JPRB,&
+&.218E-02_JPRB,.218E-02_JPRB,.225E-02_JPRB,.239E-02_JPRB,.252E-02_JPRB,.276E-02_JPRB,.326E-02_JPRB,&
+&.378E-02_JPRB,.461E-02_JPRB,.563E-02_JPRB,.610E-02_JPRB,.657E-02_JPRB,.588E-02_JPRB,.554E-02_JPRB,&
+&.520E-02_JPRB,.460E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 14  38.0
+ZAER (:,14, 5) = (/&
+&.539E-02_JPRB,.536E-02_JPRB,.449E-02_JPRB,.422E-02_JPRB,.399E-02_JPRB,.376E-02_JPRB,.369E-02_JPRB,&
+&.361E-02_JPRB,.337E-02_JPRB,.324E-02_JPRB,.315E-02_JPRB,.307E-02_JPRB,.302E-02_JPRB,.299E-02_JPRB,&
+&.296E-02_JPRB,.289E-02_JPRB,.283E-02_JPRB,.272E-02_JPRB,.258E-02_JPRB,.252E-02_JPRB,.245E-02_JPRB,&
+&.263E-02_JPRB,.179E-02_JPRB,.204E-02_JPRB,.328E-02_JPRB,.740E-02_JPRB,.922E-02_JPRB,.103E-01_JPRB,&
+&.106E-01_JPRB,.109E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.849E-02_JPRB,.699E-02_JPRB,&
+&.604E-02_JPRB,.499E-02_JPRB,.466E-02_JPRB,.455E-02_JPRB,.453E-02_JPRB,.469E-02_JPRB,.496E-02_JPRB,&
+&.540E-02_JPRB,.599E-02_JPRB,.659E-02_JPRB,.732E-02_JPRB,.761E-02_JPRB,.714E-02_JPRB,.659E-02_JPRB,&
+&.542E-02_JPRB,.469E-02_JPRB,.400E-02_JPRB,.327E-02_JPRB,.301E-02_JPRB,.282E-02_JPRB,.272E-02_JPRB,&
+&.266E-02_JPRB,.266E-02_JPRB,.275E-02_JPRB,.294E-02_JPRB,.315E-02_JPRB,.352E-02_JPRB,.446E-02_JPRB,&
+&.530E-02_JPRB,.656E-02_JPRB,.469E-02_JPRB,.844E-02_JPRB,.908E-02_JPRB,.774E-02_JPRB,.706E-02_JPRB,&
+&.635E-02_JPRB,.542E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 15  34.0
+ZAER (:,15, 5) = (/&
+&.647E-02_JPRB,.644E-02_JPRB,.555E-02_JPRB,.519E-02_JPRB,.486E-02_JPRB,.440E-02_JPRB,.418E-02_JPRB,&
+&.401E-02_JPRB,.377E-02_JPRB,.363E-02_JPRB,.354E-02_JPRB,.344E-02_JPRB,.335E-02_JPRB,.330E-02_JPRB,&
+&.326E-02_JPRB,.315E-02_JPRB,.307E-02_JPRB,.295E-02_JPRB,.283E-02_JPRB,.281E-02_JPRB,.279E-02_JPRB,&
+&.344E-02_JPRB,.257E-02_JPRB,.312E-02_JPRB,.599E-02_JPRB,.838E-02_JPRB,.177E-01_JPRB,.189E-01_JPRB,&
+&.181E-01_JPRB,.172E-01_JPRB,.153E-01_JPRB,.136E-01_JPRB,.123E-01_JPRB,.101E-01_JPRB,.812E-02_JPRB,&
+&.698E-02_JPRB,.597E-02_JPRB,.616E-02_JPRB,.646E-02_JPRB,.705E-02_JPRB,.475E-02_JPRB,.882E-02_JPRB,&
+&.101E-01_JPRB,.105E-01_JPRB,.107E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.950E-02_JPRB,.860E-02_JPRB,&
+&.721E-02_JPRB,.619E-02_JPRB,.525E-02_JPRB,.426E-02_JPRB,.399E-02_JPRB,.379E-02_JPRB,.366E-02_JPRB,&
+&.358E-02_JPRB,.358E-02_JPRB,.376E-02_JPRB,.409E-02_JPRB,.273E-02_JPRB,.551E-02_JPRB,.811E-02_JPRB,&
+&.989E-02_JPRB,.731E-02_JPRB,.794E-02_JPRB,.792E-02_JPRB,.128E-01_JPRB,.997E-02_JPRB,.879E-02_JPRB,&
+&.765E-02_JPRB,.651E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 16  30.0
+ZAER (:,16, 5) = (/&
+&.766E-02_JPRB,.762E-02_JPRB,.653E-02_JPRB,.610E-02_JPRB,.571E-02_JPRB,.516E-02_JPRB,.483E-02_JPRB,&
+&.459E-02_JPRB,.436E-02_JPRB,.415E-02_JPRB,.401E-02_JPRB,.385E-02_JPRB,.367E-02_JPRB,.358E-02_JPRB,&
+&.351E-02_JPRB,.336E-02_JPRB,.327E-02_JPRB,.317E-02_JPRB,.316E-02_JPRB,.324E-02_JPRB,.336E-02_JPRB,&
+&.493E-02_JPRB,.395E-02_JPRB,.505E-02_JPRB,.117E-01_JPRB,.172E-01_JPRB,.370E-01_JPRB,.358E-01_JPRB,&
+&.302E-01_JPRB,.254E-01_JPRB,.188E-01_JPRB,.157E-01_JPRB,.135E-01_JPRB,.111E-01_JPRB,.901E-02_JPRB,&
+&.795E-02_JPRB,.733E-02_JPRB,.864E-02_JPRB,.100E-01_JPRB,.124E-01_JPRB,.957E-02_JPRB,.107E-01_JPRB,&
+&.121E-01_JPRB,.183E-01_JPRB,.167E-01_JPRB,.149E-01_JPRB,.123E-01_JPRB,.113E-01_JPRB,.103E-01_JPRB,&
+&.905E-02_JPRB,.790E-02_JPRB,.683E-02_JPRB,.564E-02_JPRB,.537E-02_JPRB,.515E-02_JPRB,.497E-02_JPRB,&
+&.494E-02_JPRB,.500E-02_JPRB,.533E-02_JPRB,.361E-02_JPRB,.439E-02_JPRB,.623E-02_JPRB,.110E-01_JPRB,&
+&.134E-01_JPRB,.160E-01_JPRB,.144E-01_JPRB,.127E-01_JPRB,.174E-01_JPRB,.123E-01_JPRB,.106E-01_JPRB,&
+&.902E-02_JPRB,.770E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 17  26.0
+ZAER (:,17, 5) = (/&
+&.852E-02_JPRB,.848E-02_JPRB,.714E-02_JPRB,.667E-02_JPRB,.625E-02_JPRB,.575E-02_JPRB,.541E-02_JPRB,&
+&.516E-02_JPRB,.490E-02_JPRB,.464E-02_JPRB,.446E-02_JPRB,.422E-02_JPRB,.398E-02_JPRB,.386E-02_JPRB,&
+&.376E-02_JPRB,.360E-02_JPRB,.353E-02_JPRB,.348E-02_JPRB,.378E-02_JPRB,.405E-02_JPRB,.437E-02_JPRB,&
+&.706E-02_JPRB,.616E-02_JPRB,.828E-02_JPRB,.235E-01_JPRB,.350E-01_JPRB,.450E-01_JPRB,.604E-01_JPRB,&
+&.464E-01_JPRB,.348E-01_JPRB,.221E-01_JPRB,.174E-01_JPRB,.142E-01_JPRB,.114E-01_JPRB,.967E-02_JPRB,&
+&.909E-02_JPRB,.952E-02_JPRB,.129E-01_JPRB,.167E-01_JPRB,.140E-01_JPRB,.190E-01_JPRB,.204E-01_JPRB,&
+&.211E-01_JPRB,.275E-01_JPRB,.231E-01_JPRB,.183E-01_JPRB,.134E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,&
+&.102E-01_JPRB,.918E-02_JPRB,.822E-02_JPRB,.715E-02_JPRB,.690E-02_JPRB,.671E-02_JPRB,.654E-02_JPRB,&
+&.662E-02_JPRB,.681E-02_JPRB,.743E-02_JPRB,.541E-02_JPRB,.739E-02_JPRB,.121E-01_JPRB,.233E-01_JPRB,&
+&.282E-01_JPRB,.324E-01_JPRB,.238E-01_JPRB,.188E-01_JPRB,.217E-01_JPRB,.146E-01_JPRB,.123E-01_JPRB,&
+&.102E-01_JPRB,.857E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 18  22.0
+ZAER (:,18, 5) = (/&
+&.860E-02_JPRB,.856E-02_JPRB,.721E-02_JPRB,.678E-02_JPRB,.640E-02_JPRB,.600E-02_JPRB,.572E-02_JPRB,&
+&.548E-02_JPRB,.515E-02_JPRB,.494E-02_JPRB,.478E-02_JPRB,.457E-02_JPRB,.440E-02_JPRB,.430E-02_JPRB,&
+&.420E-02_JPRB,.406E-02_JPRB,.410E-02_JPRB,.425E-02_JPRB,.524E-02_JPRB,.592E-02_JPRB,.672E-02_JPRB,&
+&.115E-01_JPRB,.109E-01_JPRB,.155E-01_JPRB,.445E-01_JPRB,.609E-01_JPRB,.745E-01_JPRB,.520E-01_JPRB,&
+&.634E-01_JPRB,.443E-01_JPRB,.244E-01_JPRB,.183E-01_JPRB,.143E-01_JPRB,.113E-01_JPRB,.105E-01_JPRB,&
+&.107E-01_JPRB,.128E-01_JPRB,.192E-01_JPRB,.259E-01_JPRB,.223E-01_JPRB,.292E-01_JPRB,.299E-01_JPRB,&
+&.287E-01_JPRB,.203E-01_JPRB,.277E-01_JPRB,.130E-01_JPRB,.151E-01_JPRB,.130E-01_JPRB,.112E-01_JPRB,&
+&.105E-01_JPRB,.979E-02_JPRB,.910E-02_JPRB,.848E-02_JPRB,.834E-02_JPRB,.824E-02_JPRB,.817E-02_JPRB,&
+&.841E-02_JPRB,.888E-02_JPRB,.103E-01_JPRB,.140E-01_JPRB,.123E-01_JPRB,.211E-01_JPRB,.389E-01_JPRB,&
+&.453E-01_JPRB,.485E-01_JPRB,.304E-01_JPRB,.371E-01_JPRB,.237E-01_JPRB,.157E-01_JPRB,.129E-01_JPRB,&
+&.103E-01_JPRB,.865E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 19  18.0
+ZAER (:,19, 5) = (/&
+&.793E-02_JPRB,.790E-02_JPRB,.681E-02_JPRB,.648E-02_JPRB,.619E-02_JPRB,.587E-02_JPRB,.566E-02_JPRB,&
+&.546E-02_JPRB,.512E-02_JPRB,.506E-02_JPRB,.503E-02_JPRB,.502E-02_JPRB,.500E-02_JPRB,.497E-02_JPRB,&
+&.491E-02_JPRB,.492E-02_JPRB,.532E-02_JPRB,.612E-02_JPRB,.855E-02_JPRB,.105E-01_JPRB,.129E-01_JPRB,&
+&.226E-01_JPRB,.217E-01_JPRB,.308E-01_JPRB,.731E-01_JPRB,.868E-01_JPRB,.971E-01_JPRB,.616E-01_JPRB,&
+&.438E-01_JPRB,.485E-01_JPRB,.241E-01_JPRB,.177E-01_JPRB,.137E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,&
+&.134E-01_JPRB,.174E-01_JPRB,.280E-01_JPRB,.369E-01_JPRB,.303E-01_JPRB,.351E-01_JPRB,.343E-01_JPRB,&
+&.311E-01_JPRB,.216E-01_JPRB,.304E-01_JPRB,.152E-01_JPRB,.176E-01_JPRB,.144E-01_JPRB,.113E-01_JPRB,&
+&.105E-01_JPRB,.101E-01_JPRB,.973E-02_JPRB,.948E-02_JPRB,.942E-02_JPRB,.940E-02_JPRB,.953E-02_JPRB,&
+&.103E-01_JPRB,.114E-01_JPRB,.144E-01_JPRB,.213E-01_JPRB,.307E-01_JPRB,.303E-01_JPRB,.483E-01_JPRB,&
+&.519E-01_JPRB,.489E-01_JPRB,.276E-01_JPRB,.327E-01_JPRB,.213E-01_JPRB,.140E-01_JPRB,.115E-01_JPRB,&
+&.929E-02_JPRB,.798E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 20  14.0
+ZAER (:,20, 5) = (/&
+&.719E-02_JPRB,.716E-02_JPRB,.625E-02_JPRB,.595E-02_JPRB,.569E-02_JPRB,.546E-02_JPRB,.531E-02_JPRB,&
+&.520E-02_JPRB,.505E-02_JPRB,.517E-02_JPRB,.530E-02_JPRB,.556E-02_JPRB,.573E-02_JPRB,.582E-02_JPRB,&
+&.589E-02_JPRB,.632E-02_JPRB,.746E-02_JPRB,.951E-02_JPRB,.146E-01_JPRB,.193E-01_JPRB,.252E-01_JPRB,&
+&.251E-01_JPRB,.380E-01_JPRB,.522E-01_JPRB,.978E-01_JPRB,.102E+00_JPRB,.103E+00_JPRB,.584E-01_JPRB,&
+&.398E-01_JPRB,.414E-01_JPRB,.209E-01_JPRB,.160E-01_JPRB,.132E-01_JPRB,.128E-01_JPRB,.148E-01_JPRB,&
+&.176E-01_JPRB,.240E-01_JPRB,.401E-01_JPRB,.515E-01_JPRB,.401E-01_JPRB,.404E-01_JPRB,.375E-01_JPRB,&
+&.322E-01_JPRB,.225E-01_JPRB,.192E-01_JPRB,.271E-01_JPRB,.185E-01_JPRB,.149E-01_JPRB,.114E-01_JPRB,&
+&.106E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.999E-02_JPRB,.101E-01_JPRB,.108E-01_JPRB,&
+&.127E-01_JPRB,.148E-01_JPRB,.190E-01_JPRB,.283E-01_JPRB,.385E-01_JPRB,.580E-01_JPRB,.441E-01_JPRB,&
+&.424E-01_JPRB,.550E-01_JPRB,.306E-01_JPRB,.222E-01_JPRB,.155E-01_JPRB,.109E-01_JPRB,.946E-02_JPRB,&
+&.819E-02_JPRB,.722E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 21  10.0
+ZAER (:,21, 5) = (/&
+&.667E-02_JPRB,.664E-02_JPRB,.576E-02_JPRB,.547E-02_JPRB,.523E-02_JPRB,.504E-02_JPRB,.499E-02_JPRB,&
+&.498E-02_JPRB,.511E-02_JPRB,.534E-02_JPRB,.556E-02_JPRB,.601E-02_JPRB,.641E-02_JPRB,.672E-02_JPRB,&
+&.714E-02_JPRB,.829E-02_JPRB,.103E-01_JPRB,.137E-01_JPRB,.221E-01_JPRB,.298E-01_JPRB,.395E-01_JPRB,&
+&.358E-01_JPRB,.499E-01_JPRB,.655E-01_JPRB,.996E-01_JPRB,.978E-01_JPRB,.933E-01_JPRB,.457E-01_JPRB,&
+&.294E-01_JPRB,.281E-01_JPRB,.166E-01_JPRB,.144E-01_JPRB,.135E-01_JPRB,.153E-01_JPRB,.191E-01_JPRB,&
+&.233E-01_JPRB,.319E-01_JPRB,.519E-01_JPRB,.663E-01_JPRB,.517E-01_JPRB,.500E-01_JPRB,.441E-01_JPRB,&
+&.343E-01_JPRB,.223E-01_JPRB,.305E-01_JPRB,.249E-01_JPRB,.174E-01_JPRB,.145E-01_JPRB,.118E-01_JPRB,&
+&.109E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.997E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,.127E-01_JPRB,&
+&.165E-01_JPRB,.193E-01_JPRB,.227E-01_JPRB,.316E-01_JPRB,.396E-01_JPRB,.530E-01_JPRB,.532E-01_JPRB,&
+&.464E-01_JPRB,.319E-01_JPRB,.195E-01_JPRB,.152E-01_JPRB,.120E-01_JPRB,.933E-02_JPRB,.841E-02_JPRB,&
+&.758E-02_JPRB,.669E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 22   6.0
+ZAER (:,22, 5) = (/&
+&.652E-02_JPRB,.649E-02_JPRB,.557E-02_JPRB,.527E-02_JPRB,.502E-02_JPRB,.490E-02_JPRB,.495E-02_JPRB,&
+&.503E-02_JPRB,.529E-02_JPRB,.553E-02_JPRB,.579E-02_JPRB,.634E-02_JPRB,.708E-02_JPRB,.763E-02_JPRB,&
+&.842E-02_JPRB,.101E-01_JPRB,.127E-01_JPRB,.171E-01_JPRB,.282E-01_JPRB,.380E-01_JPRB,.302E-01_JPRB,&
+&.405E-01_JPRB,.515E-01_JPRB,.636E-01_JPRB,.814E-01_JPRB,.783E-01_JPRB,.731E-01_JPRB,.326E-01_JPRB,&
+&.212E-01_JPRB,.207E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.146E-01_JPRB,.181E-01_JPRB,.236E-01_JPRB,&
+&.288E-01_JPRB,.381E-01_JPRB,.573E-01_JPRB,.733E-01_JPRB,.585E-01_JPRB,.582E-01_JPRB,.506E-01_JPRB,&
+&.372E-01_JPRB,.220E-01_JPRB,.288E-01_JPRB,.224E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,.124E-01_JPRB,&
+&.112E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.974E-02_JPRB,.103E-01_JPRB,.114E-01_JPRB,.159E-01_JPRB,&
+&.205E-01_JPRB,.233E-01_JPRB,.251E-01_JPRB,.305E-01_JPRB,.348E-01_JPRB,.412E-01_JPRB,.362E-01_JPRB,&
+&.303E-01_JPRB,.124E-01_JPRB,.863E-02_JPRB,.121E-01_JPRB,.103E-01_JPRB,.867E-02_JPRB,.802E-02_JPRB,&
+&.740E-02_JPRB,.655E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 23   2.0
+ZAER (:,23, 5) = (/&
+&.648E-02_JPRB,.646E-02_JPRB,.567E-02_JPRB,.539E-02_JPRB,.516E-02_JPRB,.502E-02_JPRB,.513E-02_JPRB,&
+&.524E-02_JPRB,.548E-02_JPRB,.575E-02_JPRB,.606E-02_JPRB,.674E-02_JPRB,.786E-02_JPRB,.862E-02_JPRB,&
+&.962E-02_JPRB,.114E-01_JPRB,.143E-01_JPRB,.193E-01_JPRB,.324E-01_JPRB,.439E-01_JPRB,.348E-01_JPRB,&
+&.401E-01_JPRB,.470E-01_JPRB,.547E-01_JPRB,.599E-01_JPRB,.545E-01_JPRB,.481E-01_JPRB,.218E-01_JPRB,&
+&.251E-01_JPRB,.165E-01_JPRB,.127E-01_JPRB,.137E-01_JPRB,.152E-01_JPRB,.197E-01_JPRB,.258E-01_JPRB,&
+&.313E-01_JPRB,.406E-01_JPRB,.562E-01_JPRB,.419E-01_JPRB,.546E-01_JPRB,.562E-01_JPRB,.503E-01_JPRB,&
+&.391E-01_JPRB,.227E-01_JPRB,.174E-01_JPRB,.216E-01_JPRB,.159E-01_JPRB,.142E-01_JPRB,.128E-01_JPRB,&
+&.112E-01_JPRB,.106E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.111E-01_JPRB,.127E-01_JPRB,.192E-01_JPRB,&
+&.233E-01_JPRB,.151E-01_JPRB,.249E-01_JPRB,.164E-01_JPRB,.287E-01_JPRB,.302E-01_JPRB,.254E-01_JPRB,&
+&.129E-01_JPRB,.160E-01_JPRB,.121E-01_JPRB,.108E-01_JPRB,.979E-02_JPRB,.849E-02_JPRB,.793E-02_JPRB,&
+&.738E-02_JPRB,.651E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 24  -2.0
+ZAER (:,24, 5) = (/&
+&.668E-02_JPRB,.666E-02_JPRB,.598E-02_JPRB,.572E-02_JPRB,.549E-02_JPRB,.532E-02_JPRB,.535E-02_JPRB,&
+&.541E-02_JPRB,.564E-02_JPRB,.589E-02_JPRB,.624E-02_JPRB,.711E-02_JPRB,.843E-02_JPRB,.927E-02_JPRB,&
+&.103E-01_JPRB,.123E-01_JPRB,.157E-01_JPRB,.215E-01_JPRB,.349E-01_JPRB,.449E-01_JPRB,.570E-01_JPRB,&
+&.363E-01_JPRB,.394E-01_JPRB,.428E-01_JPRB,.377E-01_JPRB,.317E-01_JPRB,.426E-01_JPRB,.233E-01_JPRB,&
+&.178E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.139E-01_JPRB,.156E-01_JPRB,.199E-01_JPRB,.257E-01_JPRB,&
+&.311E-01_JPRB,.403E-01_JPRB,.502E-01_JPRB,.347E-01_JPRB,.413E-01_JPRB,.427E-01_JPRB,.391E-01_JPRB,&
+&.319E-01_JPRB,.205E-01_JPRB,.163E-01_JPRB,.126E-01_JPRB,.156E-01_JPRB,.142E-01_JPRB,.129E-01_JPRB,&
+&.115E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.140E-01_JPRB,.207E-01_JPRB,&
+&.146E-01_JPRB,.258E-01_JPRB,.242E-01_JPRB,.152E-01_JPRB,.253E-01_JPRB,.241E-01_JPRB,.207E-01_JPRB,&
+&.183E-01_JPRB,.150E-01_JPRB,.121E-01_JPRB,.111E-01_JPRB,.103E-01_JPRB,.894E-02_JPRB,.830E-02_JPRB,&
+&.766E-02_JPRB,.671E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 25  -6.0
+ZAER (:,25, 5) = (/&
+&.744E-02_JPRB,.741E-02_JPRB,.643E-02_JPRB,.622E-02_JPRB,.604E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,&
+&.583E-02_JPRB,.590E-02_JPRB,.614E-02_JPRB,.652E-02_JPRB,.751E-02_JPRB,.861E-02_JPRB,.934E-02_JPRB,&
+&.103E-01_JPRB,.131E-01_JPRB,.173E-01_JPRB,.242E-01_JPRB,.353E-01_JPRB,.412E-01_JPRB,.475E-01_JPRB,&
+&.313E-01_JPRB,.319E-01_JPRB,.323E-01_JPRB,.231E-01_JPRB,.317E-01_JPRB,.251E-01_JPRB,.170E-01_JPRB,&
+&.144E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.150E-01_JPRB,.172E-01_JPRB,.228E-01_JPRB,.181E-01_JPRB,&
+&.215E-01_JPRB,.266E-01_JPRB,.295E-01_JPRB,.303E-01_JPRB,.301E-01_JPRB,.294E-01_JPRB,.271E-01_JPRB,&
+&.231E-01_JPRB,.170E-01_JPRB,.145E-01_JPRB,.121E-01_JPRB,.158E-01_JPRB,.146E-01_JPRB,.135E-01_JPRB,&
+&.136E-01_JPRB,.153E-01_JPRB,.167E-01_JPRB,.165E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.212E-01_JPRB,&
+&.256E-01_JPRB,.275E-01_JPRB,.264E-01_JPRB,.271E-01_JPRB,.269E-01_JPRB,.257E-01_JPRB,.215E-01_JPRB,&
+&.192E-01_JPRB,.166E-01_JPRB,.140E-01_JPRB,.130E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,.985E-02_JPRB,&
+&.888E-02_JPRB,.748E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 26 -10.0
+ZAER (:,26, 5) = (/&
+&.938E-02_JPRB,.933E-02_JPRB,.790E-02_JPRB,.763E-02_JPRB,.737E-02_JPRB,.688E-02_JPRB,.683E-02_JPRB,&
+&.680E-02_JPRB,.686E-02_JPRB,.721E-02_JPRB,.761E-02_JPRB,.848E-02_JPRB,.917E-02_JPRB,.978E-02_JPRB,&
+&.108E-01_JPRB,.163E-01_JPRB,.231E-01_JPRB,.337E-01_JPRB,.427E-01_JPRB,.427E-01_JPRB,.405E-01_JPRB,&
+&.247E-01_JPRB,.244E-01_JPRB,.239E-01_JPRB,.253E-01_JPRB,.210E-01_JPRB,.170E-01_JPRB,.145E-01_JPRB,&
+&.131E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,.162E-01_JPRB,.196E-01_JPRB,.282E-01_JPRB,.207E-01_JPRB,&
+&.234E-01_JPRB,.270E-01_JPRB,.290E-01_JPRB,.284E-01_JPRB,.256E-01_JPRB,.217E-01_JPRB,.197E-01_JPRB,&
+&.177E-01_JPRB,.147E-01_JPRB,.131E-01_JPRB,.113E-01_JPRB,.956E-02_JPRB,.154E-01_JPRB,.150E-01_JPRB,&
+&.187E-01_JPRB,.230E-01_JPRB,.265E-01_JPRB,.254E-01_JPRB,.222E-01_JPRB,.205E-01_JPRB,.237E-01_JPRB,&
+&.316E-01_JPRB,.358E-01_JPRB,.367E-01_JPRB,.345E-01_JPRB,.327E-01_JPRB,.301E-01_JPRB,.248E-01_JPRB,&
+&.223E-01_JPRB,.200E-01_JPRB,.174E-01_JPRB,.161E-01_JPRB,.148E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,&
+&.115E-01_JPRB,.944E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 27 -14.0
+ZAER (:,27, 5) = (/&
+&.125E-01_JPRB,.125E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.988E-02_JPRB,.863E-02_JPRB,.848E-02_JPRB,&
+&.847E-02_JPRB,.897E-02_JPRB,.946E-02_JPRB,.982E-02_JPRB,.103E-01_JPRB,.105E-01_JPRB,.113E-01_JPRB,&
+&.133E-01_JPRB,.244E-01_JPRB,.358E-01_JPRB,.532E-01_JPRB,.348E-01_JPRB,.306E-01_JPRB,.391E-01_JPRB,&
+&.316E-01_JPRB,.301E-01_JPRB,.290E-01_JPRB,.193E-01_JPRB,.167E-01_JPRB,.143E-01_JPRB,.135E-01_JPRB,&
+&.128E-01_JPRB,.123E-01_JPRB,.131E-01_JPRB,.160E-01_JPRB,.199E-01_JPRB,.189E-01_JPRB,.206E-01_JPRB,&
+&.215E-01_JPRB,.221E-01_JPRB,.243E-01_JPRB,.245E-01_JPRB,.231E-01_JPRB,.183E-01_JPRB,.165E-01_JPRB,&
+&.151E-01_JPRB,.131E-01_JPRB,.118E-01_JPRB,.103E-01_JPRB,.163E-01_JPRB,.168E-01_JPRB,.175E-01_JPRB,&
+&.267E-01_JPRB,.345E-01_JPRB,.247E-01_JPRB,.413E-01_JPRB,.362E-01_JPRB,.325E-01_JPRB,.298E-01_JPRB,&
+&.248E-01_JPRB,.293E-01_JPRB,.552E-01_JPRB,.461E-01_JPRB,.405E-01_JPRB,.345E-01_JPRB,.291E-01_JPRB,&
+&.265E-01_JPRB,.242E-01_JPRB,.207E-01_JPRB,.192E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,.166E-01_JPRB,&
+&.151E-01_JPRB,.126E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 28 -18.0
+ZAER (:,28, 5) = (/&
+&.166E-01_JPRB,.166E-01_JPRB,.154E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,&
+&.105E-01_JPRB,.112E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.126E-01_JPRB,.141E-01_JPRB,&
+&.180E-01_JPRB,.313E-01_JPRB,.255E-01_JPRB,.350E-01_JPRB,.361E-01_JPRB,.514E-01_JPRB,.376E-01_JPRB,&
+&.263E-01_JPRB,.240E-01_JPRB,.222E-01_JPRB,.169E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,&
+&.128E-01_JPRB,.127E-01_JPRB,.132E-01_JPRB,.151E-01_JPRB,.183E-01_JPRB,.171E-01_JPRB,.178E-01_JPRB,&
+&.178E-01_JPRB,.166E-01_JPRB,.178E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.157E-01_JPRB,.147E-01_JPRB,&
+&.140E-01_JPRB,.123E-01_JPRB,.184E-01_JPRB,.970E-02_JPRB,.101E-01_JPRB,.110E-01_JPRB,.199E-01_JPRB,&
+&.336E-01_JPRB,.449E-01_JPRB,.330E-01_JPRB,.365E-01_JPRB,.555E-01_JPRB,.502E-01_JPRB,.233E-01_JPRB,&
+&.307E-01_JPRB,.366E-01_JPRB,.765E-01_JPRB,.621E-01_JPRB,.525E-01_JPRB,.405E-01_JPRB,.349E-01_JPRB,&
+&.320E-01_JPRB,.291E-01_JPRB,.240E-01_JPRB,.222E-01_JPRB,.207E-01_JPRB,.206E-01_JPRB,.197E-01_JPRB,&
+&.185E-01_JPRB,.167E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 29 -22.0
+ZAER (:,29, 5) = (/&
+&.206E-01_JPRB,.206E-01_JPRB,.194E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.133E-01_JPRB,.126E-01_JPRB,&
+&.123E-01_JPRB,.130E-01_JPRB,.135E-01_JPRB,.138E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.165E-01_JPRB,&
+&.204E-01_JPRB,.186E-01_JPRB,.228E-01_JPRB,.470E-01_JPRB,.487E-01_JPRB,.430E-01_JPRB,.341E-01_JPRB,&
+&.240E-01_JPRB,.213E-01_JPRB,.192E-01_JPRB,.158E-01_JPRB,.144E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.132E-01_JPRB,.147E-01_JPRB,.168E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,&
+&.141E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.136E-01_JPRB,&
+&.139E-01_JPRB,.127E-01_JPRB,.118E-01_JPRB,.106E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,.225E-01_JPRB,&
+&.362E-01_JPRB,.288E-01_JPRB,.353E-01_JPRB,.418E-01_JPRB,.388E-01_JPRB,.357E-01_JPRB,.289E-01_JPRB,&
+&.383E-01_JPRB,.464E-01_JPRB,.601E-01_JPRB,.818E-01_JPRB,.683E-01_JPRB,.493E-01_JPRB,.416E-01_JPRB,&
+&.381E-01_JPRB,.348E-01_JPRB,.286E-01_JPRB,.262E-01_JPRB,.241E-01_JPRB,.231E-01_JPRB,.222E-01_JPRB,&
+&.211E-01_JPRB,.207E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 30 -26.0
+ZAER (:,30, 5) = (/&
+&.239E-01_JPRB,.238E-01_JPRB,.220E-01_JPRB,.202E-01_JPRB,.185E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,&
+&.139E-01_JPRB,.144E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.165E-01_JPRB,.178E-01_JPRB,&
+&.122E-01_JPRB,.161E-01_JPRB,.186E-01_JPRB,.358E-01_JPRB,.381E-01_JPRB,.357E-01_JPRB,.315E-01_JPRB,&
+&.236E-01_JPRB,.211E-01_JPRB,.189E-01_JPRB,.156E-01_JPRB,.142E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.124E-01_JPRB,.132E-01_JPRB,.149E-01_JPRB,.166E-01_JPRB,.205E-01_JPRB,.124E-01_JPRB,&
+&.123E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.122E-01_JPRB,.131E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,&
+&.156E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.250E-01_JPRB,.158E-01_JPRB,&
+&.220E-01_JPRB,.269E-01_JPRB,.314E-01_JPRB,.350E-01_JPRB,.322E-01_JPRB,.303E-01_JPRB,.305E-01_JPRB,&
+&.457E-01_JPRB,.576E-01_JPRB,.748E-01_JPRB,.629E-01_JPRB,.885E-01_JPRB,.626E-01_JPRB,.506E-01_JPRB,&
+&.453E-01_JPRB,.410E-01_JPRB,.345E-01_JPRB,.314E-01_JPRB,.283E-01_JPRB,.259E-01_JPRB,.247E-01_JPRB,&
+&.234E-01_JPRB,.239E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 31 -30.0
+ZAER (:,31, 5) = (/&
+&.258E-01_JPRB,.257E-01_JPRB,.234E-01_JPRB,.214E-01_JPRB,.195E-01_JPRB,.167E-01_JPRB,.158E-01_JPRB,&
+&.153E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,.160E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,&
+&.116E-01_JPRB,.140E-01_JPRB,.158E-01_JPRB,.183E-01_JPRB,.200E-01_JPRB,.196E-01_JPRB,.312E-01_JPRB,&
+&.251E-01_JPRB,.223E-01_JPRB,.196E-01_JPRB,.161E-01_JPRB,.146E-01_JPRB,.132E-01_JPRB,.122E-01_JPRB,&
+&.121E-01_JPRB,.122E-01_JPRB,.131E-01_JPRB,.150E-01_JPRB,.169E-01_JPRB,.209E-01_JPRB,.130E-01_JPRB,&
+&.132E-01_JPRB,.135E-01_JPRB,.149E-01_JPRB,.163E-01_JPRB,.186E-01_JPRB,.201E-01_JPRB,.207E-01_JPRB,&
+&.211E-01_JPRB,.208E-01_JPRB,.202E-01_JPRB,.194E-01_JPRB,.182E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,&
+&.231E-01_JPRB,.245E-01_JPRB,.255E-01_JPRB,.236E-01_JPRB,.213E-01_JPRB,.208E-01_JPRB,.273E-01_JPRB,&
+&.475E-01_JPRB,.627E-01_JPRB,.835E-01_JPRB,.745E-01_JPRB,.652E-01_JPRB,.804E-01_JPRB,.623E-01_JPRB,&
+&.540E-01_JPRB,.470E-01_JPRB,.395E-01_JPRB,.357E-01_JPRB,.316E-01_JPRB,.284E-01_JPRB,.271E-01_JPRB,&
+&.258E-01_JPRB,.258E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 32 -34.0
+ZAER (:,32, 5) = (/&
+&.264E-01_JPRB,.263E-01_JPRB,.239E-01_JPRB,.219E-01_JPRB,.201E-01_JPRB,.177E-01_JPRB,.166E-01_JPRB,&
+&.158E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,.164E-01_JPRB,.181E-01_JPRB,.111E-01_JPRB,&
+&.109E-01_JPRB,.123E-01_JPRB,.139E-01_JPRB,.162E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,&
+&.263E-01_JPRB,.234E-01_JPRB,.203E-01_JPRB,.165E-01_JPRB,.150E-01_JPRB,.136E-01_JPRB,.124E-01_JPRB,&
+&.121E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.147E-01_JPRB,.167E-01_JPRB,.211E-01_JPRB,.246E-01_JPRB,&
+&.163E-01_JPRB,.186E-01_JPRB,.231E-01_JPRB,.260E-01_JPRB,.494E-01_JPRB,.522E-01_JPRB,.530E-01_JPRB,&
+&.534E-01_JPRB,.487E-01_JPRB,.272E-01_JPRB,.248E-01_JPRB,.222E-01_JPRB,.225E-01_JPRB,.230E-01_JPRB,&
+&.255E-01_JPRB,.239E-01_JPRB,.222E-01_JPRB,.171E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.226E-01_JPRB,&
+&.412E-01_JPRB,.562E-01_JPRB,.796E-01_JPRB,.772E-01_JPRB,.710E-01_JPRB,.920E-01_JPRB,.709E-01_JPRB,&
+&.364E-01_JPRB,.509E-01_JPRB,.413E-01_JPRB,.370E-01_JPRB,.326E-01_JPRB,.296E-01_JPRB,.283E-01_JPRB,&
+&.271E-01_JPRB,.264E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 33 -38.0
+ZAER (:,33, 5) = (/&
+&.258E-01_JPRB,.257E-01_JPRB,.236E-01_JPRB,.218E-01_JPRB,.202E-01_JPRB,.180E-01_JPRB,.166E-01_JPRB,&
+&.155E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,.147E-01_JPRB,.166E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.100E-01_JPRB,.109E-01_JPRB,.120E-01_JPRB,.139E-01_JPRB,.153E-01_JPRB,.158E-01_JPRB,.162E-01_JPRB,&
+&.251E-01_JPRB,.229E-01_JPRB,.205E-01_JPRB,.167E-01_JPRB,.152E-01_JPRB,.138E-01_JPRB,.124E-01_JPRB,&
+&.120E-01_JPRB,.117E-01_JPRB,.123E-01_JPRB,.142E-01_JPRB,.162E-01_JPRB,.207E-01_JPRB,.278E-01_JPRB,&
+&.204E-01_JPRB,.442E-01_JPRB,.596E-01_JPRB,.677E-01_JPRB,.760E-01_JPRB,.772E-01_JPRB,.777E-01_JPRB,&
+&.470E-01_JPRB,.406E-01_JPRB,.362E-01_JPRB,.313E-01_JPRB,.272E-01_JPRB,.275E-01_JPRB,.281E-01_JPRB,&
+&.295E-01_JPRB,.265E-01_JPRB,.234E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.160E-01_JPRB,.198E-01_JPRB,&
+&.309E-01_JPRB,.413E-01_JPRB,.614E-01_JPRB,.665E-01_JPRB,.108E+00_JPRB,.886E-01_JPRB,.694E-01_JPRB,&
+&.595E-01_JPRB,.296E-01_JPRB,.396E-01_JPRB,.356E-01_JPRB,.317E-01_JPRB,.286E-01_JPRB,.274E-01_JPRB,&
+&.263E-01_JPRB,.258E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 34 -42.0
+ZAER (:,34, 5) = (/&
+&.235E-01_JPRB,.235E-01_JPRB,.220E-01_JPRB,.206E-01_JPRB,.193E-01_JPRB,.174E-01_JPRB,.160E-01_JPRB,&
+&.150E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.145E-01_JPRB,.159E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.952E-02_JPRB,.992E-02_JPRB,.105E-01_JPRB,.114E-01_JPRB,.122E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,&
+&.129E-01_JPRB,.207E-01_JPRB,.197E-01_JPRB,.163E-01_JPRB,.149E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.141E-01_JPRB,.163E-01_JPRB,.213E-01_JPRB,.310E-01_JPRB,&
+&.243E-01_JPRB,.349E-01_JPRB,.849E-01_JPRB,.986E-01_JPRB,.112E+00_JPRB,.648E-01_JPRB,.640E-01_JPRB,&
+&.106E+00_JPRB,.934E-01_JPRB,.495E-01_JPRB,.417E-01_JPRB,.575E-01_JPRB,.342E-01_JPRB,.344E-01_JPRB,&
+&.348E-01_JPRB,.316E-01_JPRB,.283E-01_JPRB,.227E-01_JPRB,.206E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,&
+&.225E-01_JPRB,.268E-01_JPRB,.373E-01_JPRB,.458E-01_JPRB,.478E-01_JPRB,.442E-01_JPRB,.353E-01_JPRB,&
+&.508E-01_JPRB,.423E-01_JPRB,.353E-01_JPRB,.322E-01_JPRB,.291E-01_JPRB,.260E-01_JPRB,.248E-01_JPRB,&
+&.238E-01_JPRB,.235E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 35 -46.0
+ZAER (:,35, 5) = (/&
+&.202E-01_JPRB,.202E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.174E-01_JPRB,.161E-01_JPRB,.152E-01_JPRB,&
+&.146E-01_JPRB,.139E-01_JPRB,.138E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.899E-02_JPRB,.916E-02_JPRB,&
+&.923E-02_JPRB,.933E-02_JPRB,.944E-02_JPRB,.961E-02_JPRB,.967E-02_JPRB,.975E-02_JPRB,.985E-02_JPRB,&
+&.103E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.119E-01_JPRB,&
+&.115E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.147E-01_JPRB,.174E-01_JPRB,.235E-01_JPRB,.355E-01_JPRB,&
+&.477E-01_JPRB,.427E-01_JPRB,.676E-01_JPRB,.810E-01_JPRB,.946E-01_JPRB,.874E-01_JPRB,.838E-01_JPRB,&
+&.800E-01_JPRB,.734E-01_JPRB,.653E-01_JPRB,.552E-01_JPRB,.727E-01_JPRB,.418E-01_JPRB,.404E-01_JPRB,&
+&.390E-01_JPRB,.363E-01_JPRB,.336E-01_JPRB,.276E-01_JPRB,.245E-01_JPRB,.220E-01_JPRB,.191E-01_JPRB,&
+&.187E-01_JPRB,.193E-01_JPRB,.228E-01_JPRB,.284E-01_JPRB,.307E-01_JPRB,.313E-01_JPRB,.269E-01_JPRB,&
+&.241E-01_JPRB,.344E-01_JPRB,.299E-01_JPRB,.276E-01_JPRB,.252E-01_JPRB,.227E-01_JPRB,.217E-01_JPRB,&
+&.208E-01_JPRB,.202E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 36 -50.0
+ZAER (:,36, 5) = (/&
+&.169E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,&
+&.139E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.769E-02_JPRB,.804E-02_JPRB,.833E-02_JPRB,&
+&.878E-02_JPRB,.877E-02_JPRB,.866E-02_JPRB,.844E-02_JPRB,.806E-02_JPRB,.788E-02_JPRB,.771E-02_JPRB,&
+&.772E-02_JPRB,.767E-02_JPRB,.761E-02_JPRB,.122E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.117E-01_JPRB,.129E-01_JPRB,.158E-01_JPRB,.189E-01_JPRB,.256E-01_JPRB,.400E-01_JPRB,&
+&.549E-01_JPRB,.502E-01_JPRB,.810E-01_JPRB,.983E-01_JPRB,.117E+00_JPRB,.105E+00_JPRB,.990E-01_JPRB,&
+&.919E-01_JPRB,.861E-01_JPRB,.775E-01_JPRB,.666E-01_JPRB,.515E-01_JPRB,.474E-01_JPRB,.437E-01_JPRB,&
+&.397E-01_JPRB,.375E-01_JPRB,.352E-01_JPRB,.297E-01_JPRB,.261E-01_JPRB,.233E-01_JPRB,.197E-01_JPRB,&
+&.185E-01_JPRB,.180E-01_JPRB,.184E-01_JPRB,.199E-01_JPRB,.205E-01_JPRB,.206E-01_JPRB,.187E-01_JPRB,&
+&.174E-01_JPRB,.158E-01_JPRB,.242E-01_JPRB,.228E-01_JPRB,.211E-01_JPRB,.198E-01_JPRB,.189E-01_JPRB,&
+&.179E-01_JPRB,.169E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 37 -54.0
+ZAER (:,37, 5) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,&
+&.131E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.729E-02_JPRB,.717E-02_JPRB,.740E-02_JPRB,.762E-02_JPRB,&
+&.798E-02_JPRB,.789E-02_JPRB,.770E-02_JPRB,.737E-02_JPRB,.699E-02_JPRB,.677E-02_JPRB,.109E-01_JPRB,&
+&.621E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.635E-02_JPRB,.107E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,&
+&.113E-01_JPRB,.117E-01_JPRB,.130E-01_JPRB,.160E-01_JPRB,.192E-01_JPRB,.266E-01_JPRB,.400E-01_JPRB,&
+&.319E-01_JPRB,.777E-01_JPRB,.117E+00_JPRB,.833E-01_JPRB,.968E-01_JPRB,.903E-01_JPRB,.883E-01_JPRB,&
+&.870E-01_JPRB,.861E-01_JPRB,.795E-01_JPRB,.704E-01_JPRB,.537E-01_JPRB,.482E-01_JPRB,.431E-01_JPRB,&
+&.373E-01_JPRB,.346E-01_JPRB,.320E-01_JPRB,.276E-01_JPRB,.247E-01_JPRB,.224E-01_JPRB,.194E-01_JPRB,&
+&.182E-01_JPRB,.173E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.187E-01_JPRB,.183E-01_JPRB,.179E-01_JPRB,.173E-01_JPRB,.100E-01_JPRB,.161E-01_JPRB,&
+&.153E-01_JPRB,.142E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 38 -58.0
+ZAER (:,38, 5) = (/&
+&.127E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,&
+&.121E-01_JPRB,.116E-01_JPRB,.681E-02_JPRB,.673E-02_JPRB,.670E-02_JPRB,.684E-02_JPRB,.693E-02_JPRB,&
+&.705E-02_JPRB,.685E-02_JPRB,.667E-02_JPRB,.641E-02_JPRB,.103E-01_JPRB,.100E-01_JPRB,.976E-02_JPRB,&
+&.566E-02_JPRB,.570E-02_JPRB,.575E-02_JPRB,.100E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,&
+&.102E-01_JPRB,.105E-01_JPRB,.118E-01_JPRB,.144E-01_JPRB,.171E-01_JPRB,.234E-01_JPRB,.314E-01_JPRB,&
+&.384E-01_JPRB,.503E-01_JPRB,.642E-01_JPRB,.435E-01_JPRB,.493E-01_JPRB,.873E-01_JPRB,.559E-01_JPRB,&
+&.612E-01_JPRB,.644E-01_JPRB,.610E-01_JPRB,.558E-01_JPRB,.450E-01_JPRB,.408E-01_JPRB,.369E-01_JPRB,&
+&.312E-01_JPRB,.284E-01_JPRB,.257E-01_JPRB,.223E-01_JPRB,.206E-01_JPRB,.190E-01_JPRB,.166E-01_JPRB,&
+&.152E-01_JPRB,.142E-01_JPRB,.129E-01_JPRB,.117E-01_JPRB,.108E-01_JPRB,.959E-02_JPRB,.893E-02_JPRB,&
+&.874E-02_JPRB,.872E-02_JPRB,.146E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.848E-02_JPRB,.137E-01_JPRB,&
+&.133E-01_JPRB,.127E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 39 -62.0
+ZAER (:,39, 5) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.707E-02_JPRB,.707E-02_JPRB,.692E-02_JPRB,&
+&.677E-02_JPRB,.648E-02_JPRB,.635E-02_JPRB,.628E-02_JPRB,.624E-02_JPRB,.629E-02_JPRB,.631E-02_JPRB,&
+&.633E-02_JPRB,.620E-02_JPRB,.609E-02_JPRB,.593E-02_JPRB,.965E-02_JPRB,.954E-02_JPRB,.943E-02_JPRB,&
+&.563E-02_JPRB,.943E-02_JPRB,.949E-02_JPRB,.951E-02_JPRB,.927E-02_JPRB,.902E-02_JPRB,.505E-02_JPRB,&
+&.830E-02_JPRB,.834E-02_JPRB,.921E-02_JPRB,.109E-01_JPRB,.127E-01_JPRB,.166E-01_JPRB,.212E-01_JPRB,&
+&.249E-01_JPRB,.307E-01_JPRB,.371E-01_JPRB,.247E-01_JPRB,.275E-01_JPRB,.526E-01_JPRB,.343E-01_JPRB,&
+&.377E-01_JPRB,.390E-01_JPRB,.378E-01_JPRB,.358E-01_JPRB,.315E-01_JPRB,.296E-01_JPRB,.276E-01_JPRB,&
+&.242E-01_JPRB,.224E-01_JPRB,.206E-01_JPRB,.176E-01_JPRB,.159E-01_JPRB,.145E-01_JPRB,.123E-01_JPRB,&
+&.110E-01_JPRB,.102E-01_JPRB,.928E-02_JPRB,.868E-02_JPRB,.835E-02_JPRB,.804E-02_JPRB,.788E-02_JPRB,&
+&.778E-02_JPRB,.768E-02_JPRB,.757E-02_JPRB,.749E-02_JPRB,.740E-02_JPRB,.731E-02_JPRB,.721E-02_JPRB,&
+&.711E-02_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 40 -66.0
+ZAER (:,40, 5) = (/&
+&.664E-02_JPRB,.663E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.661E-02_JPRB,.656E-02_JPRB,.646E-02_JPRB,&
+&.635E-02_JPRB,.616E-02_JPRB,.604E-02_JPRB,.597E-02_JPRB,.594E-02_JPRB,.598E-02_JPRB,.601E-02_JPRB,&
+&.606E-02_JPRB,.602E-02_JPRB,.596E-02_JPRB,.587E-02_JPRB,.577E-02_JPRB,.573E-02_JPRB,.948E-02_JPRB,&
+&.560E-02_JPRB,.552E-02_JPRB,.544E-02_JPRB,.857E-02_JPRB,.817E-02_JPRB,.467E-02_JPRB,.431E-02_JPRB,&
+&.424E-02_JPRB,.704E-02_JPRB,.752E-02_JPRB,.850E-02_JPRB,.952E-02_JPRB,.118E-01_JPRB,.148E-01_JPRB,&
+&.173E-01_JPRB,.213E-01_JPRB,.260E-01_JPRB,.293E-01_JPRB,.203E-01_JPRB,.235E-01_JPRB,.253E-01_JPRB,&
+&.272E-01_JPRB,.275E-01_JPRB,.268E-01_JPRB,.257E-01_JPRB,.237E-01_JPRB,.227E-01_JPRB,.217E-01_JPRB,&
+&.195E-01_JPRB,.181E-01_JPRB,.167E-01_JPRB,.142E-01_JPRB,.126E-01_JPRB,.112E-01_JPRB,.945E-02_JPRB,&
+&.860E-02_JPRB,.806E-02_JPRB,.761E-02_JPRB,.756E-02_JPRB,.757E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,&
+&.760E-02_JPRB,.746E-02_JPRB,.728E-02_JPRB,.720E-02_JPRB,.710E-02_JPRB,.701E-02_JPRB,.693E-02_JPRB,&
+&.683E-02_JPRB,.664E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 41 -70.0
+ZAER (:,41, 5) = (/&
+&.111E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.651E-02_JPRB,.645E-02_JPRB,.638E-02_JPRB,&
+&.631E-02_JPRB,.103E-01_JPRB,.102E-01_JPRB,.612E-02_JPRB,.102E-01_JPRB,.103E-01_JPRB,.621E-02_JPRB,&
+&.624E-02_JPRB,.619E-02_JPRB,.102E-01_JPRB,.599E-02_JPRB,.579E-02_JPRB,.567E-02_JPRB,.555E-02_JPRB,&
+&.534E-02_JPRB,.519E-02_JPRB,.840E-02_JPRB,.782E-02_JPRB,.749E-02_JPRB,.431E-02_JPRB,.405E-02_JPRB,&
+&.403E-02_JPRB,.404E-02_JPRB,.429E-02_JPRB,.474E-02_JPRB,.867E-02_JPRB,.103E-01_JPRB,.124E-01_JPRB,&
+&.141E-01_JPRB,.168E-01_JPRB,.203E-01_JPRB,.230E-01_JPRB,.269E-01_JPRB,.315E-01_JPRB,.203E-01_JPRB,&
+&.217E-01_JPRB,.363E-01_JPRB,.355E-01_JPRB,.343E-01_JPRB,.317E-01_JPRB,.302E-01_JPRB,.287E-01_JPRB,&
+&.256E-01_JPRB,.142E-01_JPRB,.131E-01_JPRB,.110E-01_JPRB,.985E-02_JPRB,.891E-02_JPRB,.774E-02_JPRB,&
+&.731E-02_JPRB,.707E-02_JPRB,.697E-02_JPRB,.709E-02_JPRB,.721E-02_JPRB,.739E-02_JPRB,.747E-02_JPRB,&
+&.747E-02_JPRB,.741E-02_JPRB,.729E-02_JPRB,.721E-02_JPRB,.712E-02_JPRB,.699E-02_JPRB,.691E-02_JPRB,&
+&.114E-01_JPRB,.665E-02_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 42 -74.0
+ZAER (:,42, 5) = (/&
+&.114E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.666E-02_JPRB,.665E-02_JPRB,&
+&.110E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.991E-02_JPRB,.578E-02_JPRB,.932E-02_JPRB,&
+&.887E-02_JPRB,.862E-02_JPRB,.836E-02_JPRB,.794E-02_JPRB,.466E-02_JPRB,.456E-02_JPRB,.448E-02_JPRB,&
+&.455E-02_JPRB,.464E-02_JPRB,.495E-02_JPRB,.538E-02_JPRB,.964E-02_JPRB,.110E-01_JPRB,.125E-01_JPRB,&
+&.138E-01_JPRB,.157E-01_JPRB,.181E-01_JPRB,.198E-01_JPRB,.223E-01_JPRB,.253E-01_JPRB,.266E-01_JPRB,&
+&.279E-01_JPRB,.280E-01_JPRB,.274E-01_JPRB,.265E-01_JPRB,.245E-01_JPRB,.233E-01_JPRB,.221E-01_JPRB,&
+&.197E-01_JPRB,.184E-01_JPRB,.171E-01_JPRB,.149E-01_JPRB,.824E-02_JPRB,.768E-02_JPRB,.703E-02_JPRB,&
+&.681E-02_JPRB,.669E-02_JPRB,.667E-02_JPRB,.677E-02_JPRB,.114E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,&
+&.115E-01_JPRB,.114E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 43 -78.0
+ZAER (:,43, 5) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,&
+&.115E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.634E-02_JPRB,.621E-02_JPRB,.606E-02_JPRB,&
+&.976E-02_JPRB,.960E-02_JPRB,.566E-02_JPRB,.555E-02_JPRB,.553E-02_JPRB,.552E-02_JPRB,.558E-02_JPRB,&
+&.570E-02_JPRB,.582E-02_JPRB,.613E-02_JPRB,.646E-02_JPRB,.113E-01_JPRB,.122E-01_JPRB,.131E-01_JPRB,&
+&.139E-01_JPRB,.150E-01_JPRB,.162E-01_JPRB,.170E-01_JPRB,.109E-01_JPRB,.192E-01_JPRB,.197E-01_JPRB,&
+&.202E-01_JPRB,.200E-01_JPRB,.197E-01_JPRB,.193E-01_JPRB,.182E-01_JPRB,.176E-01_JPRB,.169E-01_JPRB,&
+&.155E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.130E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,&
+&.112E-01_JPRB,.664E-02_JPRB,.110E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,&
+&.114E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 44 -82.0
+ZAER (:,44, 5) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.664E-02_JPRB,&
+&.656E-02_JPRB,.653E-02_JPRB,.649E-02_JPRB,.647E-02_JPRB,.648E-02_JPRB,.650E-02_JPRB,.658E-02_JPRB,&
+&.665E-02_JPRB,.673E-02_JPRB,.689E-02_JPRB,.705E-02_JPRB,.718E-02_JPRB,.124E-01_JPRB,.127E-01_JPRB,&
+&.130E-01_JPRB,.134E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,&
+&.147E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,&
+&.130E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.114E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 45 -86.0
+ZAER (:,45, 5) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.120E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB/)
+!-- Organic Aerosol          month:  5 --- lat: 46 -90.0
+ZAER (:,46, 5) = (/&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=5   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_05
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_06.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_06.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_06.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_06
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,6:6)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  6 --- lat:  1  90.0
+ZAER (:, 1, 6) = (/&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,.950E-03_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  2  86.0
+ZAER (:, 2, 6) = (/&
+&.967E-03_JPRB,.967E-03_JPRB,.978E-03_JPRB,.984E-03_JPRB,.989E-03_JPRB,.998E-03_JPRB,.100E-02_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.997E-03_JPRB,.989E-03_JPRB,&
+&.984E-03_JPRB,.980E-03_JPRB,.972E-03_JPRB,.966E-03_JPRB,.962E-03_JPRB,.953E-03_JPRB,.947E-03_JPRB,&
+&.942E-03_JPRB,.935E-03_JPRB,.928E-03_JPRB,.924E-03_JPRB,.917E-03_JPRB,.911E-03_JPRB,.907E-03_JPRB,&
+&.902E-03_JPRB,.897E-03_JPRB,.894E-03_JPRB,.890E-03_JPRB,.885E-03_JPRB,.883E-03_JPRB,.881E-03_JPRB,&
+&.878E-03_JPRB,.876E-03_JPRB,.875E-03_JPRB,.874E-03_JPRB,.874E-03_JPRB,.874E-03_JPRB,.875E-03_JPRB,&
+&.877E-03_JPRB,.879E-03_JPRB,.883E-03_JPRB,.886E-03_JPRB,.890E-03_JPRB,.895E-03_JPRB,.901E-03_JPRB,&
+&.906E-03_JPRB,.912E-03_JPRB,.920E-03_JPRB,.926E-03_JPRB,.933E-03_JPRB,.943E-03_JPRB,.949E-03_JPRB,&
+&.955E-03_JPRB,.966E-03_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  3  82.0
+ZAER (:, 3, 6) = (/&
+&.105E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,&
+&.108E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.997E-03_JPRB,.980E-03_JPRB,&
+&.967E-03_JPRB,.949E-03_JPRB,.933E-03_JPRB,.922E-03_JPRB,.908E-03_JPRB,.893E-03_JPRB,.884E-03_JPRB,&
+&.873E-03_JPRB,.861E-03_JPRB,.854E-03_JPRB,.846E-03_JPRB,.835E-03_JPRB,.829E-03_JPRB,.823E-03_JPRB,&
+&.814E-03_JPRB,.810E-03_JPRB,.806E-03_JPRB,.800E-03_JPRB,.799E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,&
+&.801E-03_JPRB,.804E-03_JPRB,.810E-03_JPRB,.819E-03_JPRB,.826E-03_JPRB,.839E-03_JPRB,.855E-03_JPRB,&
+&.867E-03_JPRB,.884E-03_JPRB,.907E-03_JPRB,.924E-03_JPRB,.944E-03_JPRB,.975E-03_JPRB,.993E-03_JPRB,&
+&.101E-02_JPRB,.105E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  4  78.0
+ZAER (:, 4, 6) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.133E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,&
+&.139E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,&
+&.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,&
+&.123E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,&
+&.106E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.995E-03_JPRB,.977E-03_JPRB,.959E-03_JPRB,.949E-03_JPRB,&
+&.937E-03_JPRB,.925E-03_JPRB,.917E-03_JPRB,.909E-03_JPRB,.893E-03_JPRB,.883E-03_JPRB,.873E-03_JPRB,&
+&.855E-03_JPRB,.846E-03_JPRB,.837E-03_JPRB,.824E-03_JPRB,.818E-03_JPRB,.814E-03_JPRB,.811E-03_JPRB,&
+&.811E-03_JPRB,.813E-03_JPRB,.819E-03_JPRB,.828E-03_JPRB,.837E-03_JPRB,.853E-03_JPRB,.876E-03_JPRB,&
+&.895E-03_JPRB,.922E-03_JPRB,.961E-03_JPRB,.990E-03_JPRB,.103E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,&
+&.116E-02_JPRB,.122E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  5  74.0
+ZAER (:, 5, 6) = (/&
+&.147E-02_JPRB,.147E-02_JPRB,.154E-02_JPRB,.157E-02_JPRB,.160E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,&
+&.165E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,&
+&.156E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,&
+&.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,&
+&.142E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,&
+&.122E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,&
+&.103E-02_JPRB,.101E-02_JPRB,.999E-03_JPRB,.977E-03_JPRB,.967E-03_JPRB,.960E-03_JPRB,.954E-03_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.958E-03_JPRB,.966E-03_JPRB,.974E-03_JPRB,.987E-03_JPRB,.101E-02_JPRB,&
+&.102E-02_JPRB,.105E-02_JPRB,.110E-02_JPRB,.113E-02_JPRB,.118E-02_JPRB,.126E-02_JPRB,.131E-02_JPRB,&
+&.137E-02_JPRB,.146E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  6  70.0
+ZAER (:, 6, 6) = (/&
+&.172E-02_JPRB,.172E-02_JPRB,.181E-02_JPRB,.185E-02_JPRB,.189E-02_JPRB,.194E-02_JPRB,.195E-02_JPRB,&
+&.195E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,.186E-02_JPRB,.181E-02_JPRB,.177E-02_JPRB,.173E-02_JPRB,&
+&.168E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,.157E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.154E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,.163E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,&
+&.150E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,&
+&.135E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.130E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.137E-02_JPRB,.141E-02_JPRB,.150E-02_JPRB,.156E-02_JPRB,&
+&.162E-02_JPRB,.172E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  7  66.0
+ZAER (:, 7, 6) = (/&
+&.208E-02_JPRB,.208E-02_JPRB,.219E-02_JPRB,.227E-02_JPRB,.234E-02_JPRB,.245E-02_JPRB,.249E-02_JPRB,&
+&.251E-02_JPRB,.245E-02_JPRB,.236E-02_JPRB,.229E-02_JPRB,.217E-02_JPRB,.204E-02_JPRB,.196E-02_JPRB,&
+&.187E-02_JPRB,.181E-02_JPRB,.178E-02_JPRB,.176E-02_JPRB,.173E-02_JPRB,.170E-02_JPRB,.167E-02_JPRB,&
+&.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.167E-02_JPRB,.172E-02_JPRB,.176E-02_JPRB,.182E-02_JPRB,&
+&.185E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,&
+&.188E-02_JPRB,.192E-02_JPRB,.199E-02_JPRB,.203E-02_JPRB,.209E-02_JPRB,.216E-02_JPRB,.218E-02_JPRB,&
+&.220E-02_JPRB,.218E-02_JPRB,.214E-02_JPRB,.210E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.192E-02_JPRB,&
+&.183E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,&
+&.164E-02_JPRB,.168E-02_JPRB,.175E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,&
+&.176E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.185E-02_JPRB,.191E-02_JPRB,&
+&.197E-02_JPRB,.208E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  8  62.0
+ZAER (:, 8, 6) = (/&
+&.281E-02_JPRB,.281E-02_JPRB,.302E-02_JPRB,.315E-02_JPRB,.326E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,&
+&.335E-02_JPRB,.327E-02_JPRB,.308E-02_JPRB,.292E-02_JPRB,.267E-02_JPRB,.243E-02_JPRB,.229E-02_JPRB,&
+&.213E-02_JPRB,.206E-02_JPRB,.202E-02_JPRB,.199E-02_JPRB,.194E-02_JPRB,.191E-02_JPRB,.187E-02_JPRB,&
+&.182E-02_JPRB,.180E-02_JPRB,.178E-02_JPRB,.181E-02_JPRB,.184E-02_JPRB,.187E-02_JPRB,.194E-02_JPRB,&
+&.198E-02_JPRB,.202E-02_JPRB,.207E-02_JPRB,.212E-02_JPRB,.216E-02_JPRB,.221E-02_JPRB,.227E-02_JPRB,&
+&.232E-02_JPRB,.241E-02_JPRB,.255E-02_JPRB,.266E-02_JPRB,.281E-02_JPRB,.293E-02_JPRB,.298E-02_JPRB,&
+&.301E-02_JPRB,.293E-02_JPRB,.286E-02_JPRB,.276E-02_JPRB,.264E-02_JPRB,.260E-02_JPRB,.257E-02_JPRB,&
+&.246E-02_JPRB,.237E-02_JPRB,.228E-02_JPRB,.211E-02_JPRB,.205E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,&
+&.217E-02_JPRB,.229E-02_JPRB,.252E-02_JPRB,.264E-02_JPRB,.267E-02_JPRB,.263E-02_JPRB,.252E-02_JPRB,&
+&.245E-02_JPRB,.237E-02_JPRB,.232E-02_JPRB,.231E-02_JPRB,.230E-02_JPRB,.238E-02_JPRB,.247E-02_JPRB,&
+&.257E-02_JPRB,.280E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat:  9  58.0
+ZAER (:, 9, 6) = (/&
+&.426E-02_JPRB,.427E-02_JPRB,.452E-02_JPRB,.450E-02_JPRB,.445E-02_JPRB,.411E-02_JPRB,.391E-02_JPRB,&
+&.377E-02_JPRB,.365E-02_JPRB,.350E-02_JPRB,.336E-02_JPRB,.310E-02_JPRB,.286E-02_JPRB,.271E-02_JPRB,&
+&.252E-02_JPRB,.237E-02_JPRB,.230E-02_JPRB,.222E-02_JPRB,.215E-02_JPRB,.212E-02_JPRB,.208E-02_JPRB,&
+&.204E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,.205E-02_JPRB,.207E-02_JPRB,.213E-02_JPRB,&
+&.218E-02_JPRB,.223E-02_JPRB,.239E-02_JPRB,.257E-02_JPRB,.271E-02_JPRB,.290E-02_JPRB,.307E-02_JPRB,&
+&.320E-02_JPRB,.338E-02_JPRB,.346E-02_JPRB,.353E-02_JPRB,.363E-02_JPRB,.369E-02_JPRB,.369E-02_JPRB,&
+&.365E-02_JPRB,.351E-02_JPRB,.341E-02_JPRB,.330E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,&
+&.316E-02_JPRB,.305E-02_JPRB,.294E-02_JPRB,.273E-02_JPRB,.266E-02_JPRB,.262E-02_JPRB,.266E-02_JPRB,&
+&.289E-02_JPRB,.308E-02_JPRB,.343E-02_JPRB,.346E-02_JPRB,.344E-02_JPRB,.333E-02_JPRB,.328E-02_JPRB,&
+&.324E-02_JPRB,.319E-02_JPRB,.314E-02_JPRB,.316E-02_JPRB,.322E-02_JPRB,.352E-02_JPRB,.377E-02_JPRB,&
+&.404E-02_JPRB,.425E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 10  54.0
+ZAER (:,10, 6) = (/&
+&.570E-02_JPRB,.570E-02_JPRB,.576E-02_JPRB,.551E-02_JPRB,.524E-02_JPRB,.456E-02_JPRB,.427E-02_JPRB,&
+&.405E-02_JPRB,.382E-02_JPRB,.370E-02_JPRB,.361E-02_JPRB,.347E-02_JPRB,.332E-02_JPRB,.321E-02_JPRB,&
+&.304E-02_JPRB,.277E-02_JPRB,.262E-02_JPRB,.245E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,.223E-02_JPRB,&
+&.219E-02_JPRB,.133E-02_JPRB,.225E-02_JPRB,.235E-02_JPRB,.237E-02_JPRB,.239E-02_JPRB,.243E-02_JPRB,&
+&.254E-02_JPRB,.267E-02_JPRB,.310E-02_JPRB,.350E-02_JPRB,.382E-02_JPRB,.428E-02_JPRB,.452E-02_JPRB,&
+&.466E-02_JPRB,.479E-02_JPRB,.467E-02_JPRB,.458E-02_JPRB,.443E-02_JPRB,.421E-02_JPRB,.411E-02_JPRB,&
+&.402E-02_JPRB,.390E-02_JPRB,.383E-02_JPRB,.376E-02_JPRB,.380E-02_JPRB,.384E-02_JPRB,.389E-02_JPRB,&
+&.379E-02_JPRB,.366E-02_JPRB,.355E-02_JPRB,.337E-02_JPRB,.330E-02_JPRB,.327E-02_JPRB,.333E-02_JPRB,&
+&.355E-02_JPRB,.370E-02_JPRB,.385E-02_JPRB,.367E-02_JPRB,.356E-02_JPRB,.346E-02_JPRB,.369E-02_JPRB,&
+&.396E-02_JPRB,.441E-02_JPRB,.478E-02_JPRB,.495E-02_JPRB,.512E-02_JPRB,.553E-02_JPRB,.570E-02_JPRB,&
+&.586E-02_JPRB,.570E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 11  50.0
+ZAER (:,11, 6) = (/&
+&.666E-02_JPRB,.666E-02_JPRB,.643E-02_JPRB,.607E-02_JPRB,.572E-02_JPRB,.500E-02_JPRB,.460E-02_JPRB,&
+&.430E-02_JPRB,.398E-02_JPRB,.387E-02_JPRB,.380E-02_JPRB,.373E-02_JPRB,.367E-02_JPRB,.362E-02_JPRB,&
+&.353E-02_JPRB,.322E-02_JPRB,.302E-02_JPRB,.277E-02_JPRB,.259E-02_JPRB,.250E-02_JPRB,.242E-02_JPRB,&
+&.239E-02_JPRB,.147E-02_JPRB,.251E-02_JPRB,.269E-02_JPRB,.276E-02_JPRB,.283E-02_JPRB,.297E-02_JPRB,&
+&.329E-02_JPRB,.365E-02_JPRB,.463E-02_JPRB,.529E-02_JPRB,.581E-02_JPRB,.652E-02_JPRB,.661E-02_JPRB,&
+&.662E-02_JPRB,.652E-02_JPRB,.618E-02_JPRB,.602E-02_JPRB,.589E-02_JPRB,.531E-02_JPRB,.510E-02_JPRB,&
+&.495E-02_JPRB,.494E-02_JPRB,.491E-02_JPRB,.486E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.497E-02_JPRB,&
+&.462E-02_JPRB,.448E-02_JPRB,.434E-02_JPRB,.418E-02_JPRB,.413E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,&
+&.421E-02_JPRB,.423E-02_JPRB,.412E-02_JPRB,.375E-02_JPRB,.359E-02_JPRB,.354E-02_JPRB,.433E-02_JPRB,&
+&.510E-02_JPRB,.631E-02_JPRB,.754E-02_JPRB,.782E-02_JPRB,.793E-02_JPRB,.773E-02_JPRB,.753E-02_JPRB,&
+&.730E-02_JPRB,.668E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 12  46.0
+ZAER (:,12, 6) = (/&
+&.748E-02_JPRB,.747E-02_JPRB,.704E-02_JPRB,.669E-02_JPRB,.633E-02_JPRB,.552E-02_JPRB,.496E-02_JPRB,&
+&.456E-02_JPRB,.422E-02_JPRB,.419E-02_JPRB,.417E-02_JPRB,.415E-02_JPRB,.412E-02_JPRB,.411E-02_JPRB,&
+&.409E-02_JPRB,.381E-02_JPRB,.358E-02_JPRB,.328E-02_JPRB,.298E-02_JPRB,.287E-02_JPRB,.277E-02_JPRB,&
+&.281E-02_JPRB,.174E-02_JPRB,.301E-02_JPRB,.325E-02_JPRB,.345E-02_JPRB,.366E-02_JPRB,.412E-02_JPRB,&
+&.484E-02_JPRB,.559E-02_JPRB,.747E-02_JPRB,.802E-02_JPRB,.841E-02_JPRB,.882E-02_JPRB,.861E-02_JPRB,&
+&.847E-02_JPRB,.830E-02_JPRB,.812E-02_JPRB,.813E-02_JPRB,.827E-02_JPRB,.749E-02_JPRB,.730E-02_JPRB,&
+&.725E-02_JPRB,.717E-02_JPRB,.703E-02_JPRB,.684E-02_JPRB,.681E-02_JPRB,.688E-02_JPRB,.696E-02_JPRB,&
+&.631E-02_JPRB,.605E-02_JPRB,.579E-02_JPRB,.531E-02_JPRB,.524E-02_JPRB,.517E-02_JPRB,.507E-02_JPRB,&
+&.508E-02_JPRB,.503E-02_JPRB,.478E-02_JPRB,.442E-02_JPRB,.431E-02_JPRB,.441E-02_JPRB,.570E-02_JPRB,&
+&.679E-02_JPRB,.839E-02_JPRB,.991E-02_JPRB,.994E-02_JPRB,.953E-02_JPRB,.854E-02_JPRB,.819E-02_JPRB,&
+&.787E-02_JPRB,.750E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 13  42.0
+ZAER (:,13, 6) = (/&
+&.894E-02_JPRB,.892E-02_JPRB,.824E-02_JPRB,.776E-02_JPRB,.728E-02_JPRB,.633E-02_JPRB,.569E-02_JPRB,&
+&.523E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.483E-02_JPRB,.490E-02_JPRB,.482E-02_JPRB,.476E-02_JPRB,&
+&.466E-02_JPRB,.446E-02_JPRB,.423E-02_JPRB,.388E-02_JPRB,.354E-02_JPRB,.343E-02_JPRB,.333E-02_JPRB,&
+&.351E-02_JPRB,.223E-02_JPRB,.237E-02_JPRB,.463E-02_JPRB,.525E-02_JPRB,.587E-02_JPRB,.714E-02_JPRB,&
+&.832E-02_JPRB,.947E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,&
+&.110E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,&
+&.104E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.982E-02_JPRB,.969E-02_JPRB,.960E-02_JPRB,&
+&.883E-02_JPRB,.841E-02_JPRB,.798E-02_JPRB,.695E-02_JPRB,.674E-02_JPRB,.656E-02_JPRB,.634E-02_JPRB,&
+&.626E-02_JPRB,.618E-02_JPRB,.600E-02_JPRB,.593E-02_JPRB,.594E-02_JPRB,.605E-02_JPRB,.748E-02_JPRB,&
+&.880E-02_JPRB,.108E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.871E-02_JPRB,.855E-02_JPRB,&
+&.855E-02_JPRB,.892E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 14  38.0
+ZAER (:,14, 6) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.106E-01_JPRB,.962E-02_JPRB,.875E-02_JPRB,.743E-02_JPRB,.679E-02_JPRB,&
+&.631E-02_JPRB,.582E-02_JPRB,.571E-02_JPRB,.570E-02_JPRB,.583E-02_JPRB,.563E-02_JPRB,.546E-02_JPRB,&
+&.522E-02_JPRB,.513E-02_JPRB,.495E-02_JPRB,.464E-02_JPRB,.439E-02_JPRB,.443E-02_JPRB,.454E-02_JPRB,&
+&.490E-02_JPRB,.320E-02_JPRB,.348E-02_JPRB,.475E-02_JPRB,.988E-02_JPRB,.118E-01_JPRB,.154E-01_JPRB,&
+&.166E-01_JPRB,.176E-01_JPRB,.191E-01_JPRB,.179E-01_JPRB,.169E-01_JPRB,.157E-01_JPRB,.146E-01_JPRB,&
+&.139E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.151E-01_JPRB,&
+&.161E-01_JPRB,.181E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,&
+&.119E-01_JPRB,.112E-01_JPRB,.106E-01_JPRB,.927E-02_JPRB,.886E-02_JPRB,.850E-02_JPRB,.796E-02_JPRB,&
+&.783E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.809E-02_JPRB,.842E-02_JPRB,.902E-02_JPRB,.109E-01_JPRB,&
+&.124E-01_JPRB,.145E-01_JPRB,.909E-02_JPRB,.144E-01_JPRB,.131E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,&
+&.117E-01_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 15  34.0
+ZAER (:,15, 6) = (/&
+&.149E-01_JPRB,.148E-01_JPRB,.132E-01_JPRB,.117E-01_JPRB,.104E-01_JPRB,.871E-02_JPRB,.804E-02_JPRB,&
+&.755E-02_JPRB,.712E-02_JPRB,.690E-02_JPRB,.677E-02_JPRB,.669E-02_JPRB,.636E-02_JPRB,.611E-02_JPRB,&
+&.576E-02_JPRB,.572E-02_JPRB,.570E-02_JPRB,.569E-02_JPRB,.596E-02_JPRB,.652E-02_JPRB,.731E-02_JPRB,&
+&.828E-02_JPRB,.557E-02_JPRB,.622E-02_JPRB,.106E-01_JPRB,.142E-01_JPRB,.294E-01_JPRB,.352E-01_JPRB,&
+&.328E-01_JPRB,.305E-01_JPRB,.265E-01_JPRB,.228E-01_JPRB,.202E-01_JPRB,.178E-01_JPRB,.167E-01_JPRB,&
+&.160E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.185E-01_JPRB,.219E-01_JPRB,.169E-01_JPRB,.298E-01_JPRB,&
+&.306E-01_JPRB,.301E-01_JPRB,.282E-01_JPRB,.256E-01_JPRB,.198E-01_JPRB,.180E-01_JPRB,.164E-01_JPRB,&
+&.147E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.974E-02_JPRB,&
+&.963E-02_JPRB,.965E-02_JPRB,.997E-02_JPRB,.114E-01_JPRB,.774E-02_JPRB,.159E-01_JPRB,.203E-01_JPRB,&
+&.226E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,.209E-01_JPRB,.172E-01_JPRB,.169E-01_JPRB,&
+&.171E-01_JPRB,.150E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 16  30.0
+ZAER (:,16, 6) = (/&
+&.159E-01_JPRB,.159E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.970E-02_JPRB,.927E-02_JPRB,&
+&.890E-02_JPRB,.833E-02_JPRB,.800E-02_JPRB,.773E-02_JPRB,.730E-02_JPRB,.689E-02_JPRB,.662E-02_JPRB,&
+&.627E-02_JPRB,.620E-02_JPRB,.646E-02_JPRB,.700E-02_JPRB,.895E-02_JPRB,.108E-01_JPRB,.132E-01_JPRB,&
+&.165E-01_JPRB,.115E-01_JPRB,.131E-01_JPRB,.271E-01_JPRB,.358E-01_JPRB,.725E-01_JPRB,.694E-01_JPRB,&
+&.568E-01_JPRB,.459E-01_JPRB,.309E-01_JPRB,.249E-01_JPRB,.210E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.183E-01_JPRB,.195E-01_JPRB,.232E-01_JPRB,.289E-01_JPRB,.398E-01_JPRB,.345E-01_JPRB,.364E-01_JPRB,&
+&.359E-01_JPRB,.507E-01_JPRB,.439E-01_JPRB,.360E-01_JPRB,.259E-01_JPRB,.227E-01_JPRB,.199E-01_JPRB,&
+&.169E-01_JPRB,.154E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,.126E-01_JPRB,.121E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.116E-01_JPRB,.129E-01_JPRB,.104E-01_JPRB,.135E-01_JPRB,.195E-01_JPRB,.265E-01_JPRB,&
+&.294E-01_JPRB,.315E-01_JPRB,.270E-01_JPRB,.235E-01_JPRB,.318E-01_JPRB,.233E-01_JPRB,.213E-01_JPRB,&
+&.198E-01_JPRB,.161E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 17  26.0
+ZAER (:,17, 6) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.126E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,&
+&.984E-02_JPRB,.904E-02_JPRB,.861E-02_JPRB,.822E-02_JPRB,.756E-02_JPRB,.709E-02_JPRB,.686E-02_JPRB,&
+&.669E-02_JPRB,.669E-02_JPRB,.749E-02_JPRB,.906E-02_JPRB,.148E-01_JPRB,.195E-01_JPRB,.253E-01_JPRB,&
+&.340E-01_JPRB,.235E-01_JPRB,.266E-01_JPRB,.608E-01_JPRB,.762E-01_JPRB,.888E-01_JPRB,.111E+00_JPRB,&
+&.828E-01_JPRB,.589E-01_JPRB,.325E-01_JPRB,.256E-01_JPRB,.212E-01_JPRB,.184E-01_JPRB,.196E-01_JPRB,&
+&.213E-01_JPRB,.251E-01_JPRB,.324E-01_JPRB,.444E-01_JPRB,.406E-01_JPRB,.585E-01_JPRB,.612E-01_JPRB,&
+&.594E-01_JPRB,.740E-01_JPRB,.594E-01_JPRB,.433E-01_JPRB,.291E-01_JPRB,.250E-01_JPRB,.213E-01_JPRB,&
+&.177E-01_JPRB,.160E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,&
+&.129E-01_JPRB,.140E-01_JPRB,.182E-01_JPRB,.174E-01_JPRB,.245E-01_JPRB,.381E-01_JPRB,.530E-01_JPRB,&
+&.567E-01_JPRB,.558E-01_JPRB,.408E-01_JPRB,.318E-01_JPRB,.358E-01_JPRB,.243E-01_JPRB,.209E-01_JPRB,&
+&.181E-01_JPRB,.143E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 18  22.0
+ZAER (:,18, 6) = (/&
+&.120E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.969E-02_JPRB,.976E-02_JPRB,&
+&.967E-02_JPRB,.893E-02_JPRB,.852E-02_JPRB,.815E-02_JPRB,.747E-02_JPRB,.697E-02_JPRB,.681E-02_JPRB,&
+&.686E-02_JPRB,.738E-02_JPRB,.917E-02_JPRB,.124E-01_JPRB,.240E-01_JPRB,.334E-01_JPRB,.448E-01_JPRB,&
+&.636E-01_JPRB,.433E-01_JPRB,.483E-01_JPRB,.108E+00_JPRB,.129E+00_JPRB,.144E+00_JPRB,.908E-01_JPRB,&
+&.104E+00_JPRB,.654E-01_JPRB,.326E-01_JPRB,.262E-01_JPRB,.223E-01_JPRB,.201E-01_JPRB,.220E-01_JPRB,&
+&.251E-01_JPRB,.325E-01_JPRB,.470E-01_JPRB,.663E-01_JPRB,.610E-01_JPRB,.791E-01_JPRB,.797E-01_JPRB,&
+&.741E-01_JPRB,.510E-01_JPRB,.659E-01_JPRB,.277E-01_JPRB,.307E-01_JPRB,.256E-01_JPRB,.210E-01_JPRB,&
+&.171E-01_JPRB,.156E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,&
+&.149E-01_JPRB,.180E-01_JPRB,.275E-01_JPRB,.469E-01_JPRB,.401E-01_JPRB,.621E-01_JPRB,.824E-01_JPRB,&
+&.828E-01_JPRB,.716E-01_JPRB,.452E-01_JPRB,.532E-01_JPRB,.299E-01_JPRB,.202E-01_JPRB,.172E-01_JPRB,&
+&.146E-01_JPRB,.121E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 19  18.0
+ZAER (:,19, 6) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.953E-02_JPRB,.921E-02_JPRB,.895E-02_JPRB,.888E-02_JPRB,.879E-02_JPRB,&
+&.865E-02_JPRB,.813E-02_JPRB,.793E-02_JPRB,.769E-02_JPRB,.718E-02_JPRB,.679E-02_JPRB,.677E-02_JPRB,&
+&.707E-02_JPRB,.864E-02_JPRB,.118E-01_JPRB,.171E-01_JPRB,.344E-01_JPRB,.494E-01_JPRB,.681E-01_JPRB,&
+&.102E+00_JPRB,.700E-01_JPRB,.787E-01_JPRB,.155E+00_JPRB,.175E+00_JPRB,.187E+00_JPRB,.105E+00_JPRB,&
+&.672E-01_JPRB,.629E-01_JPRB,.311E-01_JPRB,.263E-01_JPRB,.235E-01_JPRB,.224E-01_JPRB,.254E-01_JPRB,&
+&.304E-01_JPRB,.426E-01_JPRB,.711E-01_JPRB,.973E-01_JPRB,.834E-01_JPRB,.890E-01_JPRB,.832E-01_JPRB,&
+&.706E-01_JPRB,.471E-01_JPRB,.625E-01_JPRB,.284E-01_JPRB,.331E-01_JPRB,.267E-01_JPRB,.205E-01_JPRB,&
+&.162E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.146E-01_JPRB,&
+&.181E-01_JPRB,.234E-01_JPRB,.383E-01_JPRB,.646E-01_JPRB,.891E-01_JPRB,.789E-01_JPRB,.930E-01_JPRB,&
+&.867E-01_JPRB,.647E-01_JPRB,.367E-01_JPRB,.413E-01_JPRB,.224E-01_JPRB,.156E-01_JPRB,.136E-01_JPRB,&
+&.119E-01_JPRB,.104E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 20  14.0
+ZAER (:,20, 6) = (/&
+&.897E-02_JPRB,.895E-02_JPRB,.830E-02_JPRB,.824E-02_JPRB,.819E-02_JPRB,.810E-02_JPRB,.788E-02_JPRB,&
+&.769E-02_JPRB,.738E-02_JPRB,.732E-02_JPRB,.723E-02_JPRB,.703E-02_JPRB,.697E-02_JPRB,.724E-02_JPRB,&
+&.802E-02_JPRB,.110E-01_JPRB,.154E-01_JPRB,.227E-01_JPRB,.432E-01_JPRB,.633E-01_JPRB,.890E-01_JPRB,&
+&.819E-01_JPRB,.972E-01_JPRB,.113E+00_JPRB,.187E+00_JPRB,.196E+00_JPRB,.198E+00_JPRB,.962E-01_JPRB,&
+&.593E-01_JPRB,.515E-01_JPRB,.280E-01_JPRB,.252E-01_JPRB,.238E-01_JPRB,.243E-01_JPRB,.299E-01_JPRB,&
+&.375E-01_JPRB,.549E-01_JPRB,.101E+00_JPRB,.132E+00_JPRB,.104E+00_JPRB,.926E-01_JPRB,.808E-01_JPRB,&
+&.638E-01_JPRB,.415E-01_JPRB,.341E-01_JPRB,.460E-01_JPRB,.332E-01_JPRB,.263E-01_JPRB,.196E-01_JPRB,&
+&.157E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,.164E-01_JPRB,&
+&.219E-01_JPRB,.284E-01_JPRB,.438E-01_JPRB,.704E-01_JPRB,.914E-01_JPRB,.123E+00_JPRB,.736E-01_JPRB,&
+&.636E-01_JPRB,.704E-01_JPRB,.392E-01_JPRB,.273E-01_JPRB,.170E-01_JPRB,.125E-01_JPRB,.112E-01_JPRB,&
+&.102E-01_JPRB,.900E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 21  10.0
+ZAER (:,21, 6) = (/&
+&.787E-02_JPRB,.786E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.728E-02_JPRB,.701E-02_JPRB,.688E-02_JPRB,&
+&.680E-02_JPRB,.686E-02_JPRB,.695E-02_JPRB,.704E-02_JPRB,.726E-02_JPRB,.763E-02_JPRB,.832E-02_JPRB,&
+&.977E-02_JPRB,.144E-01_JPRB,.197E-01_JPRB,.279E-01_JPRB,.508E-01_JPRB,.736E-01_JPRB,.103E+00_JPRB,&
+&.912E-01_JPRB,.113E+00_JPRB,.135E+00_JPRB,.193E+00_JPRB,.184E+00_JPRB,.170E+00_JPRB,.716E-01_JPRB,&
+&.430E-01_JPRB,.359E-01_JPRB,.235E-01_JPRB,.226E-01_JPRB,.227E-01_JPRB,.257E-01_JPRB,.342E-01_JPRB,&
+&.447E-01_JPRB,.672E-01_JPRB,.125E+00_JPRB,.158E+00_JPRB,.117E+00_JPRB,.986E-01_JPRB,.836E-01_JPRB,&
+&.636E-01_JPRB,.395E-01_JPRB,.526E-01_JPRB,.414E-01_JPRB,.292E-01_JPRB,.239E-01_JPRB,.188E-01_JPRB,&
+&.156E-01_JPRB,.147E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.149E-01_JPRB,.185E-01_JPRB,&
+&.250E-01_JPRB,.311E-01_JPRB,.425E-01_JPRB,.621E-01_JPRB,.734E-01_JPRB,.846E-01_JPRB,.719E-01_JPRB,&
+&.587E-01_JPRB,.378E-01_JPRB,.236E-01_JPRB,.181E-01_JPRB,.132E-01_JPRB,.106E-01_JPRB,.967E-02_JPRB,&
+&.884E-02_JPRB,.790E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 22   6.0
+ZAER (:,22, 6) = (/&
+&.709E-02_JPRB,.707E-02_JPRB,.642E-02_JPRB,.634E-02_JPRB,.624E-02_JPRB,.595E-02_JPRB,.593E-02_JPRB,&
+&.598E-02_JPRB,.627E-02_JPRB,.661E-02_JPRB,.691E-02_JPRB,.744E-02_JPRB,.814E-02_JPRB,.921E-02_JPRB,&
+&.114E-01_JPRB,.166E-01_JPRB,.220E-01_JPRB,.302E-01_JPRB,.551E-01_JPRB,.787E-01_JPRB,.652E-01_JPRB,&
+&.894E-01_JPRB,.109E+00_JPRB,.131E+00_JPRB,.163E+00_JPRB,.144E+00_JPRB,.123E+00_JPRB,.509E-01_JPRB,&
+&.315E-01_JPRB,.281E-01_JPRB,.197E-01_JPRB,.201E-01_JPRB,.214E-01_JPRB,.267E-01_JPRB,.378E-01_JPRB,&
+&.504E-01_JPRB,.761E-01_JPRB,.133E+00_JPRB,.166E+00_JPRB,.122E+00_JPRB,.103E+00_JPRB,.862E-01_JPRB,&
+&.640E-01_JPRB,.393E-01_JPRB,.512E-01_JPRB,.384E-01_JPRB,.261E-01_JPRB,.222E-01_JPRB,.186E-01_JPRB,&
+&.156E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,.125E-01_JPRB,.131E-01_JPRB,.144E-01_JPRB,.201E-01_JPRB,&
+&.272E-01_JPRB,.327E-01_JPRB,.408E-01_JPRB,.492E-01_JPRB,.517E-01_JPRB,.494E-01_JPRB,.386E-01_JPRB,&
+&.313E-01_JPRB,.132E-01_JPRB,.961E-02_JPRB,.135E-01_JPRB,.110E-01_JPRB,.909E-02_JPRB,.838E-02_JPRB,&
+&.773E-02_JPRB,.711E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 23   2.0
+ZAER (:,23, 6) = (/&
+&.652E-02_JPRB,.649E-02_JPRB,.574E-02_JPRB,.560E-02_JPRB,.547E-02_JPRB,.526E-02_JPRB,.532E-02_JPRB,&
+&.542E-02_JPRB,.578E-02_JPRB,.624E-02_JPRB,.662E-02_JPRB,.721E-02_JPRB,.812E-02_JPRB,.945E-02_JPRB,&
+&.121E-01_JPRB,.168E-01_JPRB,.225E-01_JPRB,.314E-01_JPRB,.582E-01_JPRB,.811E-01_JPRB,.657E-01_JPRB,&
+&.788E-01_JPRB,.905E-01_JPRB,.103E+00_JPRB,.116E+00_JPRB,.987E-01_JPRB,.803E-01_JPRB,.358E-01_JPRB,&
+&.387E-01_JPRB,.228E-01_JPRB,.166E-01_JPRB,.182E-01_JPRB,.206E-01_JPRB,.278E-01_JPRB,.408E-01_JPRB,&
+&.535E-01_JPRB,.770E-01_JPRB,.126E+00_JPRB,.931E-01_JPRB,.113E+00_JPRB,.981E-01_JPRB,.832E-01_JPRB,&
+&.621E-01_JPRB,.392E-01_JPRB,.305E-01_JPRB,.373E-01_JPRB,.248E-01_JPRB,.215E-01_JPRB,.186E-01_JPRB,&
+&.152E-01_JPRB,.139E-01_JPRB,.127E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.133E-01_JPRB,.199E-01_JPRB,&
+&.271E-01_JPRB,.193E-01_JPRB,.380E-01_JPRB,.242E-01_JPRB,.395E-01_JPRB,.342E-01_JPRB,.261E-01_JPRB,&
+&.129E-01_JPRB,.166E-01_JPRB,.129E-01_JPRB,.114E-01_JPRB,.991E-02_JPRB,.824E-02_JPRB,.766E-02_JPRB,&
+&.713E-02_JPRB,.653E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 24  -2.0
+ZAER (:,24, 6) = (/&
+&.646E-02_JPRB,.643E-02_JPRB,.553E-02_JPRB,.531E-02_JPRB,.511E-02_JPRB,.486E-02_JPRB,.499E-02_JPRB,&
+&.514E-02_JPRB,.548E-02_JPRB,.587E-02_JPRB,.625E-02_JPRB,.695E-02_JPRB,.823E-02_JPRB,.953E-02_JPRB,&
+&.118E-01_JPRB,.166E-01_JPRB,.225E-01_JPRB,.317E-01_JPRB,.582E-01_JPRB,.774E-01_JPRB,.100E+00_JPRB,&
+&.635E-01_JPRB,.663E-01_JPRB,.693E-01_JPRB,.652E-01_JPRB,.528E-01_JPRB,.674E-01_JPRB,.359E-01_JPRB,&
+&.258E-01_JPRB,.182E-01_JPRB,.159E-01_JPRB,.185E-01_JPRB,.215E-01_JPRB,.292E-01_JPRB,.412E-01_JPRB,&
+&.521E-01_JPRB,.714E-01_JPRB,.102E+00_JPRB,.720E-01_JPRB,.841E-01_JPRB,.755E-01_JPRB,.662E-01_JPRB,&
+&.526E-01_JPRB,.355E-01_JPRB,.283E-01_JPRB,.213E-01_JPRB,.247E-01_JPRB,.216E-01_JPRB,.188E-01_JPRB,&
+&.147E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.169E-01_JPRB,&
+&.137E-01_JPRB,.273E-01_JPRB,.329E-01_JPRB,.207E-01_JPRB,.335E-01_JPRB,.287E-01_JPRB,.219E-01_JPRB,&
+&.183E-01_JPRB,.145E-01_JPRB,.119E-01_JPRB,.107E-01_JPRB,.937E-02_JPRB,.785E-02_JPRB,.750E-02_JPRB,&
+&.724E-02_JPRB,.648E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 25  -6.0
+ZAER (:,25, 6) = (/&
+&.684E-02_JPRB,.681E-02_JPRB,.566E-02_JPRB,.541E-02_JPRB,.519E-02_JPRB,.506E-02_JPRB,.518E-02_JPRB,&
+&.530E-02_JPRB,.553E-02_JPRB,.604E-02_JPRB,.645E-02_JPRB,.711E-02_JPRB,.813E-02_JPRB,.910E-02_JPRB,&
+&.107E-01_JPRB,.156E-01_JPRB,.210E-01_JPRB,.293E-01_JPRB,.499E-01_JPRB,.619E-01_JPRB,.752E-01_JPRB,&
+&.478E-01_JPRB,.462E-01_JPRB,.441E-01_JPRB,.337E-01_JPRB,.440E-01_JPRB,.323E-01_JPRB,.205E-01_JPRB,&
+&.174E-01_JPRB,.153E-01_JPRB,.161E-01_JPRB,.185E-01_JPRB,.214E-01_JPRB,.291E-01_JPRB,.242E-01_JPRB,&
+&.296E-01_JPRB,.383E-01_JPRB,.475E-01_JPRB,.510E-01_JPRB,.525E-01_JPRB,.489E-01_JPRB,.449E-01_JPRB,&
+&.390E-01_JPRB,.282E-01_JPRB,.235E-01_JPRB,.187E-01_JPRB,.236E-01_JPRB,.210E-01_JPRB,.185E-01_JPRB,&
+&.149E-01_JPRB,.141E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.152E-01_JPRB,&
+&.194E-01_JPRB,.229E-01_JPRB,.281E-01_JPRB,.300E-01_JPRB,.293E-01_JPRB,.254E-01_JPRB,.197E-01_JPRB,&
+&.170E-01_JPRB,.144E-01_JPRB,.127E-01_JPRB,.115E-01_JPRB,.101E-01_JPRB,.833E-02_JPRB,.795E-02_JPRB,&
+&.770E-02_JPRB,.687E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 26 -10.0
+ZAER (:,26, 6) = (/&
+&.753E-02_JPRB,.749E-02_JPRB,.621E-02_JPRB,.604E-02_JPRB,.593E-02_JPRB,.616E-02_JPRB,.615E-02_JPRB,&
+&.616E-02_JPRB,.624E-02_JPRB,.678E-02_JPRB,.717E-02_JPRB,.770E-02_JPRB,.823E-02_JPRB,.895E-02_JPRB,&
+&.104E-01_JPRB,.147E-01_JPRB,.189E-01_JPRB,.251E-01_JPRB,.370E-01_JPRB,.436E-01_JPRB,.508E-01_JPRB,&
+&.326E-01_JPRB,.296E-01_JPRB,.260E-01_JPRB,.286E-01_JPRB,.230E-01_JPRB,.178E-01_JPRB,.135E-01_JPRB,&
+&.133E-01_JPRB,.134E-01_JPRB,.152E-01_JPRB,.171E-01_JPRB,.196E-01_JPRB,.267E-01_JPRB,.215E-01_JPRB,&
+&.254E-01_JPRB,.310E-01_JPRB,.357E-01_JPRB,.361E-01_JPRB,.336E-01_JPRB,.307E-01_JPRB,.285E-01_JPRB,&
+&.255E-01_JPRB,.208E-01_JPRB,.183E-01_JPRB,.157E-01_JPRB,.132E-01_JPRB,.205E-01_JPRB,.191E-01_JPRB,&
+&.178E-01_JPRB,.187E-01_JPRB,.196E-01_JPRB,.209E-01_JPRB,.196E-01_JPRB,.189E-01_JPRB,.199E-01_JPRB,&
+&.235E-01_JPRB,.262E-01_JPRB,.298E-01_JPRB,.299E-01_JPRB,.286E-01_JPRB,.247E-01_JPRB,.197E-01_JPRB,&
+&.176E-01_JPRB,.162E-01_JPRB,.150E-01_JPRB,.139E-01_JPRB,.123E-01_JPRB,.100E-01_JPRB,.930E-02_JPRB,&
+&.868E-02_JPRB,.756E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 27 -14.0
+ZAER (:,27, 6) = (/&
+&.851E-02_JPRB,.847E-02_JPRB,.715E-02_JPRB,.722E-02_JPRB,.731E-02_JPRB,.768E-02_JPRB,.759E-02_JPRB,&
+&.752E-02_JPRB,.743E-02_JPRB,.788E-02_JPRB,.816E-02_JPRB,.846E-02_JPRB,.890E-02_JPRB,.969E-02_JPRB,&
+&.114E-01_JPRB,.158E-01_JPRB,.189E-01_JPRB,.228E-01_JPRB,.169E-01_JPRB,.194E-01_JPRB,.373E-01_JPRB,&
+&.357E-01_JPRB,.307E-01_JPRB,.249E-01_JPRB,.162E-01_JPRB,.143E-01_JPRB,.126E-01_JPRB,.112E-01_JPRB,&
+&.117E-01_JPRB,.123E-01_JPRB,.140E-01_JPRB,.154E-01_JPRB,.172E-01_JPRB,.133E-01_JPRB,.167E-01_JPRB,&
+&.191E-01_JPRB,.225E-01_JPRB,.251E-01_JPRB,.255E-01_JPRB,.244E-01_JPRB,.217E-01_JPRB,.197E-01_JPRB,&
+&.171E-01_JPRB,.158E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,.228E-01_JPRB,.227E-01_JPRB,.227E-01_JPRB,&
+&.242E-01_JPRB,.283E-01_JPRB,.193E-01_JPRB,.359E-01_JPRB,.343E-01_JPRB,.330E-01_JPRB,.316E-01_JPRB,&
+&.215E-01_JPRB,.236E-01_JPRB,.442E-01_JPRB,.385E-01_JPRB,.341E-01_JPRB,.277E-01_JPRB,.226E-01_JPRB,&
+&.206E-01_JPRB,.193E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,.124E-01_JPRB,.114E-01_JPRB,&
+&.104E-01_JPRB,.857E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 28 -18.0
+ZAER (:,28, 6) = (/&
+&.970E-02_JPRB,.966E-02_JPRB,.832E-02_JPRB,.863E-02_JPRB,.891E-02_JPRB,.927E-02_JPRB,.910E-02_JPRB,&
+&.895E-02_JPRB,.868E-02_JPRB,.901E-02_JPRB,.925E-02_JPRB,.955E-02_JPRB,.101E-01_JPRB,.111E-01_JPRB,&
+&.133E-01_JPRB,.180E-01_JPRB,.120E-01_JPRB,.130E-01_JPRB,.141E-01_JPRB,.260E-01_JPRB,.294E-01_JPRB,&
+&.245E-01_JPRB,.208E-01_JPRB,.168E-01_JPRB,.123E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,&
+&.109E-01_JPRB,.114E-01_JPRB,.126E-01_JPRB,.137E-01_JPRB,.151E-01_JPRB,.111E-01_JPRB,.131E-01_JPRB,&
+&.145E-01_JPRB,.161E-01_JPRB,.173E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,.167E-01_JPRB,.153E-01_JPRB,&
+&.133E-01_JPRB,.130E-01_JPRB,.223E-01_JPRB,.139E-01_JPRB,.157E-01_JPRB,.164E-01_JPRB,.285E-01_JPRB,&
+&.319E-01_JPRB,.385E-01_JPRB,.268E-01_JPRB,.315E-01_JPRB,.515E-01_JPRB,.503E-01_JPRB,.279E-01_JPRB,&
+&.321E-01_JPRB,.354E-01_JPRB,.680E-01_JPRB,.549E-01_JPRB,.459E-01_JPRB,.339E-01_JPRB,.273E-01_JPRB,&
+&.247E-01_JPRB,.228E-01_JPRB,.200E-01_JPRB,.181E-01_JPRB,.157E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,&
+&.121E-01_JPRB,.977E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 29 -22.0
+ZAER (:,29, 6) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,&
+&.998E-02_JPRB,.970E-02_JPRB,.101E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,.116E-01_JPRB,.128E-01_JPRB,&
+&.151E-01_JPRB,.112E-01_JPRB,.118E-01_JPRB,.201E-01_JPRB,.203E-01_JPRB,.219E-01_JPRB,.243E-01_JPRB,&
+&.195E-01_JPRB,.169E-01_JPRB,.141E-01_JPRB,.118E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,&
+&.103E-01_JPRB,.105E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,.135E-01_JPRB,.954E-02_JPRB,.111E-01_JPRB,&
+&.120E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,&
+&.131E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.175E-01_JPRB,.189E-01_JPRB,.336E-01_JPRB,&
+&.378E-01_JPRB,.263E-01_JPRB,.298E-01_JPRB,.345E-01_JPRB,.342E-01_JPRB,.340E-01_JPRB,.339E-01_JPRB,&
+&.414E-01_JPRB,.473E-01_JPRB,.562E-01_JPRB,.784E-01_JPRB,.655E-01_JPRB,.449E-01_JPRB,.337E-01_JPRB,&
+&.292E-01_JPRB,.260E-01_JPRB,.219E-01_JPRB,.196E-01_JPRB,.171E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,&
+&.140E-01_JPRB,.117E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 30 -26.0
+ZAER (:,30, 6) = (/&
+&.139E-01_JPRB,.139E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,.131E-01_JPRB,.143E-01_JPRB,&
+&.972E-02_JPRB,.109E-01_JPRB,.115E-01_JPRB,.203E-01_JPRB,.208E-01_JPRB,.214E-01_JPRB,.223E-01_JPRB,&
+&.185E-01_JPRB,.162E-01_JPRB,.139E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,.100E-01_JPRB,.957E-02_JPRB,&
+&.972E-02_JPRB,.991E-02_JPRB,.105E-01_JPRB,.116E-01_JPRB,.126E-01_JPRB,.147E-01_JPRB,.103E-01_JPRB,&
+&.111E-01_JPRB,.118E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,.135E-01_JPRB,.144E-01_JPRB,&
+&.152E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.157E-01_JPRB,.192E-01_JPRB,.344E-01_JPRB,.220E-01_JPRB,&
+&.241E-01_JPRB,.260E-01_JPRB,.277E-01_JPRB,.282E-01_JPRB,.274E-01_JPRB,.276E-01_JPRB,.323E-01_JPRB,&
+&.455E-01_JPRB,.557E-01_JPRB,.705E-01_JPRB,.625E-01_JPRB,.894E-01_JPRB,.607E-01_JPRB,.418E-01_JPRB,&
+&.341E-01_JPRB,.287E-01_JPRB,.239E-01_JPRB,.216E-01_JPRB,.192E-01_JPRB,.180E-01_JPRB,.172E-01_JPRB,&
+&.162E-01_JPRB,.140E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 31 -30.0
+ZAER (:,31, 6) = (/&
+&.156E-01_JPRB,.156E-01_JPRB,.138E-01_JPRB,.133E-01_JPRB,.128E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,&
+&.114E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.123E-01_JPRB,.131E-01_JPRB,.142E-01_JPRB,.151E-01_JPRB,&
+&.978E-02_JPRB,.104E-01_JPRB,.114E-01_JPRB,.132E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.239E-01_JPRB,&
+&.196E-01_JPRB,.171E-01_JPRB,.145E-01_JPRB,.118E-01_JPRB,.107E-01_JPRB,.966E-02_JPRB,.919E-02_JPRB,&
+&.937E-02_JPRB,.957E-02_JPRB,.101E-01_JPRB,.114E-01_JPRB,.125E-01_JPRB,.148E-01_JPRB,.106E-01_JPRB,&
+&.118E-01_JPRB,.133E-01_JPRB,.129E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.160E-01_JPRB,.176E-01_JPRB,&
+&.192E-01_JPRB,.192E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.218E-01_JPRB,.229E-01_JPRB,.239E-01_JPRB,&
+&.245E-01_JPRB,.239E-01_JPRB,.232E-01_JPRB,.193E-01_JPRB,.180E-01_JPRB,.182E-01_JPRB,.257E-01_JPRB,&
+&.435E-01_JPRB,.576E-01_JPRB,.789E-01_JPRB,.738E-01_JPRB,.653E-01_JPRB,.764E-01_JPRB,.501E-01_JPRB,&
+&.390E-01_JPRB,.306E-01_JPRB,.252E-01_JPRB,.231E-01_JPRB,.213E-01_JPRB,.203E-01_JPRB,.193E-01_JPRB,&
+&.182E-01_JPRB,.157E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 32 -34.0
+ZAER (:,32, 6) = (/&
+&.161E-01_JPRB,.160E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,&
+&.123E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,.140E-01_JPRB,.149E-01_JPRB,.922E-02_JPRB,&
+&.938E-02_JPRB,.983E-02_JPRB,.111E-01_JPRB,.133E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,.156E-01_JPRB,&
+&.218E-01_JPRB,.189E-01_JPRB,.159E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,.974E-02_JPRB,.909E-02_JPRB,&
+&.927E-02_JPRB,.949E-02_JPRB,.102E-01_JPRB,.117E-01_JPRB,.132E-01_JPRB,.166E-01_JPRB,.209E-01_JPRB,&
+&.147E-01_JPRB,.181E-01_JPRB,.195E-01_JPRB,.197E-01_JPRB,.322E-01_JPRB,.377E-01_JPRB,.406E-01_JPRB,&
+&.437E-01_JPRB,.429E-01_JPRB,.252E-01_JPRB,.244E-01_JPRB,.266E-01_JPRB,.272E-01_JPRB,.278E-01_JPRB,&
+&.257E-01_JPRB,.230E-01_JPRB,.202E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,.137E-01_JPRB,.199E-01_JPRB,&
+&.364E-01_JPRB,.504E-01_JPRB,.741E-01_JPRB,.752E-01_JPRB,.694E-01_JPRB,.857E-01_JPRB,.567E-01_JPRB,&
+&.260E-01_JPRB,.314E-01_JPRB,.247E-01_JPRB,.229E-01_JPRB,.218E-01_JPRB,.213E-01_JPRB,.203E-01_JPRB,&
+&.191E-01_JPRB,.162E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 33 -38.0
+ZAER (:,33, 6) = (/&
+&.153E-01_JPRB,.153E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,.145E-01_JPRB,.926E-02_JPRB,.932E-02_JPRB,&
+&.899E-02_JPRB,.925E-02_JPRB,.102E-01_JPRB,.120E-01_JPRB,.145E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,&
+&.232E-01_JPRB,.209E-01_JPRB,.183E-01_JPRB,.133E-01_JPRB,.118E-01_JPRB,.104E-01_JPRB,.937E-02_JPRB,&
+&.940E-02_JPRB,.952E-02_JPRB,.103E-01_JPRB,.123E-01_JPRB,.145E-01_JPRB,.198E-01_JPRB,.273E-01_JPRB,&
+&.207E-01_JPRB,.474E-01_JPRB,.571E-01_JPRB,.596E-01_JPRB,.587E-01_JPRB,.613E-01_JPRB,.631E-01_JPRB,&
+&.393E-01_JPRB,.366E-01_JPRB,.349E-01_JPRB,.331E-01_JPRB,.336E-01_JPRB,.336E-01_JPRB,.336E-01_JPRB,&
+&.290E-01_JPRB,.252E-01_JPRB,.214E-01_JPRB,.156E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.175E-01_JPRB,&
+&.274E-01_JPRB,.370E-01_JPRB,.564E-01_JPRB,.646E-01_JPRB,.106E+00_JPRB,.852E-01_JPRB,.590E-01_JPRB,&
+&.452E-01_JPRB,.186E-01_JPRB,.228E-01_JPRB,.209E-01_JPRB,.202E-01_JPRB,.202E-01_JPRB,.192E-01_JPRB,&
+&.180E-01_JPRB,.154E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 34 -42.0
+ZAER (:,34, 6) = (/&
+&.136E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,&
+&.128E-01_JPRB,.121E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.143E-01_JPRB,.930E-02_JPRB,.938E-02_JPRB,&
+&.895E-02_JPRB,.897E-02_JPRB,.949E-02_JPRB,.105E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.129E-01_JPRB,&
+&.135E-01_JPRB,.214E-01_JPRB,.199E-01_JPRB,.148E-01_JPRB,.130E-01_JPRB,.114E-01_JPRB,.994E-02_JPRB,&
+&.968E-02_JPRB,.958E-02_JPRB,.103E-01_JPRB,.125E-01_JPRB,.151E-01_JPRB,.217E-01_JPRB,.346E-01_JPRB,&
+&.290E-01_JPRB,.455E-01_JPRB,.103E+00_JPRB,.112E+00_JPRB,.113E+00_JPRB,.621E-01_JPRB,.602E-01_JPRB,&
+&.983E-01_JPRB,.906E-01_JPRB,.506E-01_JPRB,.463E-01_JPRB,.705E-01_JPRB,.406E-01_JPRB,.389E-01_JPRB,&
+&.336E-01_JPRB,.299E-01_JPRB,.264E-01_JPRB,.213E-01_JPRB,.197E-01_JPRB,.185E-01_JPRB,.175E-01_JPRB,&
+&.210E-01_JPRB,.254E-01_JPRB,.365E-01_JPRB,.465E-01_JPRB,.489E-01_JPRB,.448E-01_JPRB,.330E-01_JPRB,&
+&.432E-01_JPRB,.294E-01_JPRB,.211E-01_JPRB,.189E-01_JPRB,.179E-01_JPRB,.174E-01_JPRB,.165E-01_JPRB,&
+&.154E-01_JPRB,.137E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 35 -46.0
+ZAER (:,35, 6) = (/&
+&.118E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,&
+&.123E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.137E-01_JPRB,.902E-02_JPRB,.922E-02_JPRB,&
+&.904E-02_JPRB,.896E-02_JPRB,.913E-02_JPRB,.952E-02_JPRB,.981E-02_JPRB,.101E-01_JPRB,.104E-01_JPRB,&
+&.115E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.148E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.106E-01_JPRB,&
+&.100E-01_JPRB,.967E-02_JPRB,.991E-02_JPRB,.115E-01_JPRB,.137E-01_JPRB,.197E-01_JPRB,.374E-01_JPRB,&
+&.591E-01_JPRB,.634E-01_JPRB,.100E+00_JPRB,.113E+00_JPRB,.117E+00_JPRB,.977E-01_JPRB,.892E-01_JPRB,&
+&.813E-01_JPRB,.761E-01_JPRB,.702E-01_JPRB,.630E-01_JPRB,.867E-01_JPRB,.472E-01_JPRB,.426E-01_JPRB,&
+&.369E-01_JPRB,.342E-01_JPRB,.316E-01_JPRB,.275E-01_JPRB,.247E-01_JPRB,.223E-01_JPRB,.189E-01_JPRB,&
+&.192E-01_JPRB,.202E-01_JPRB,.241E-01_JPRB,.299E-01_JPRB,.326E-01_JPRB,.339E-01_JPRB,.278E-01_JPRB,&
+&.231E-01_JPRB,.273E-01_JPRB,.200E-01_JPRB,.178E-01_JPRB,.163E-01_JPRB,.146E-01_JPRB,.136E-01_JPRB,&
+&.126E-01_JPRB,.118E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 36 -50.0
+ZAER (:,36, 6) = (/&
+&.108E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,&
+&.120E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.777E-02_JPRB,.848E-02_JPRB,.879E-02_JPRB,&
+&.896E-02_JPRB,.893E-02_JPRB,.892E-02_JPRB,.891E-02_JPRB,.845E-02_JPRB,.825E-02_JPRB,.805E-02_JPRB,&
+&.849E-02_JPRB,.854E-02_JPRB,.855E-02_JPRB,.129E-01_JPRB,.123E-01_JPRB,.116E-01_JPRB,.105E-01_JPRB,&
+&.998E-02_JPRB,.958E-02_JPRB,.953E-02_JPRB,.103E-01_JPRB,.117E-01_JPRB,.163E-01_JPRB,.340E-01_JPRB,&
+&.580E-01_JPRB,.672E-01_JPRB,.120E+00_JPRB,.141E+00_JPRB,.153E+00_JPRB,.127E+00_JPRB,.113E+00_JPRB,&
+&.979E-01_JPRB,.904E-01_JPRB,.838E-01_JPRB,.760E-01_JPRB,.604E-01_JPRB,.528E-01_JPRB,.454E-01_JPRB,&
+&.380E-01_JPRB,.356E-01_JPRB,.334E-01_JPRB,.298E-01_JPRB,.265E-01_JPRB,.237E-01_JPRB,.199E-01_JPRB,&
+&.195E-01_JPRB,.193E-01_JPRB,.196E-01_JPRB,.214E-01_JPRB,.224E-01_JPRB,.235E-01_JPRB,.208E-01_JPRB,&
+&.183E-01_JPRB,.145E-01_JPRB,.189E-01_JPRB,.168E-01_JPRB,.150E-01_JPRB,.127E-01_JPRB,.118E-01_JPRB,&
+&.110E-01_JPRB,.108E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 37 -54.0
+ZAER (:,37, 6) = (/&
+&.108E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.707E-02_JPRB,.740E-02_JPRB,.809E-02_JPRB,.848E-02_JPRB,&
+&.888E-02_JPRB,.875E-02_JPRB,.856E-02_JPRB,.824E-02_JPRB,.748E-02_JPRB,.702E-02_JPRB,.108E-01_JPRB,&
+&.633E-02_JPRB,.634E-02_JPRB,.637E-02_JPRB,.629E-02_JPRB,.104E-01_JPRB,.102E-01_JPRB,.957E-02_JPRB,&
+&.929E-02_JPRB,.912E-02_JPRB,.936E-02_JPRB,.989E-02_JPRB,.109E-01_JPRB,.141E-01_JPRB,.269E-01_JPRB,&
+&.261E-01_JPRB,.806E-01_JPRB,.140E+00_JPRB,.101E+00_JPRB,.116E+00_JPRB,.107E+00_JPRB,.101E+00_JPRB,&
+&.923E-01_JPRB,.871E-01_JPRB,.809E-01_JPRB,.731E-01_JPRB,.585E-01_JPRB,.514E-01_JPRB,.444E-01_JPRB,&
+&.356E-01_JPRB,.328E-01_JPRB,.300E-01_JPRB,.265E-01_JPRB,.242E-01_JPRB,.224E-01_JPRB,.200E-01_JPRB,&
+&.192E-01_JPRB,.186E-01_JPRB,.178E-01_JPRB,.173E-01_JPRB,.167E-01_JPRB,.156E-01_JPRB,.141E-01_JPRB,&
+&.131E-01_JPRB,.200E-01_JPRB,.173E-01_JPRB,.158E-01_JPRB,.141E-01_JPRB,.723E-02_JPRB,.114E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 38 -58.0
+ZAER (:,38, 6) = (/&
+&.111E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.113E-01_JPRB,.110E-01_JPRB,.660E-02_JPRB,.673E-02_JPRB,.714E-02_JPRB,.781E-02_JPRB,.814E-02_JPRB,&
+&.841E-02_JPRB,.814E-02_JPRB,.788E-02_JPRB,.750E-02_JPRB,.113E-01_JPRB,.106E-01_JPRB,.971E-02_JPRB,&
+&.545E-02_JPRB,.540E-02_JPRB,.538E-02_JPRB,.899E-02_JPRB,.887E-02_JPRB,.874E-02_JPRB,.827E-02_JPRB,&
+&.825E-02_JPRB,.833E-02_JPRB,.906E-02_JPRB,.999E-02_JPRB,.110E-01_JPRB,.133E-01_JPRB,.201E-01_JPRB,&
+&.283E-01_JPRB,.456E-01_JPRB,.685E-01_JPRB,.492E-01_JPRB,.584E-01_JPRB,.104E+00_JPRB,.637E-01_JPRB,&
+&.645E-01_JPRB,.636E-01_JPRB,.594E-01_JPRB,.537E-01_JPRB,.436E-01_JPRB,.392E-01_JPRB,.349E-01_JPRB,&
+&.290E-01_JPRB,.265E-01_JPRB,.241E-01_JPRB,.212E-01_JPRB,.201E-01_JPRB,.193E-01_JPRB,.183E-01_JPRB,&
+&.174E-01_JPRB,.166E-01_JPRB,.155E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,&
+&.988E-02_JPRB,.949E-02_JPRB,.153E-01_JPRB,.147E-01_JPRB,.137E-01_JPRB,.730E-02_JPRB,.116E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 39 -62.0
+ZAER (:,39, 6) = (/&
+&.114E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.710E-02_JPRB,.703E-02_JPRB,.678E-02_JPRB,&
+&.657E-02_JPRB,.626E-02_JPRB,.629E-02_JPRB,.641E-02_JPRB,.681E-02_JPRB,.724E-02_JPRB,.743E-02_JPRB,&
+&.754E-02_JPRB,.732E-02_JPRB,.711E-02_JPRB,.680E-02_JPRB,.105E-01_JPRB,.100E-01_JPRB,.948E-02_JPRB,&
+&.536E-02_JPRB,.879E-02_JPRB,.865E-02_JPRB,.834E-02_JPRB,.805E-02_JPRB,.776E-02_JPRB,.436E-02_JPRB,&
+&.731E-02_JPRB,.745E-02_JPRB,.831E-02_JPRB,.961E-02_JPRB,.109E-01_JPRB,.134E-01_JPRB,.176E-01_JPRB,&
+&.220E-01_JPRB,.303E-01_JPRB,.412E-01_JPRB,.291E-01_JPRB,.347E-01_JPRB,.636E-01_JPRB,.390E-01_JPRB,&
+&.393E-01_JPRB,.370E-01_JPRB,.349E-01_JPRB,.322E-01_JPRB,.275E-01_JPRB,.253E-01_JPRB,.230E-01_JPRB,&
+&.203E-01_JPRB,.191E-01_JPRB,.180E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,&
+&.143E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.965E-02_JPRB,&
+&.915E-02_JPRB,.869E-02_JPRB,.857E-02_JPRB,.845E-02_JPRB,.828E-02_JPRB,.770E-02_JPRB,.739E-02_JPRB,&
+&.707E-02_JPRB,.115E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 40 -66.0
+ZAER (:,40, 6) = (/&
+&.699E-02_JPRB,.699E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.686E-02_JPRB,.666E-02_JPRB,.644E-02_JPRB,&
+&.627E-02_JPRB,.605E-02_JPRB,.607E-02_JPRB,.614E-02_JPRB,.637E-02_JPRB,.660E-02_JPRB,.669E-02_JPRB,&
+&.672E-02_JPRB,.656E-02_JPRB,.642E-02_JPRB,.621E-02_JPRB,.588E-02_JPRB,.568E-02_JPRB,.908E-02_JPRB,&
+&.517E-02_JPRB,.503E-02_JPRB,.490E-02_JPRB,.767E-02_JPRB,.737E-02_JPRB,.425E-02_JPRB,.400E-02_JPRB,&
+&.401E-02_JPRB,.678E-02_JPRB,.744E-02_JPRB,.852E-02_JPRB,.963E-02_JPRB,.121E-01_JPRB,.155E-01_JPRB,&
+&.186E-01_JPRB,.239E-01_JPRB,.309E-01_JPRB,.358E-01_JPRB,.253E-01_JPRB,.276E-01_JPRB,.279E-01_JPRB,&
+&.277E-01_JPRB,.254E-01_JPRB,.238E-01_JPRB,.219E-01_JPRB,.186E-01_JPRB,.170E-01_JPRB,.156E-01_JPRB,&
+&.142E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.121E-01_JPRB,&
+&.119E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.990E-02_JPRB,&
+&.948E-02_JPRB,.900E-02_JPRB,.867E-02_JPRB,.847E-02_JPRB,.824E-02_JPRB,.782E-02_JPRB,.756E-02_JPRB,&
+&.728E-02_JPRB,.700E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 41 -70.0
+ZAER (:,41, 6) = (/&
+&.115E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.661E-02_JPRB,.643E-02_JPRB,.627E-02_JPRB,&
+&.616E-02_JPRB,.100E-01_JPRB,.999E-02_JPRB,.600E-02_JPRB,.101E-01_JPRB,.102E-01_JPRB,.615E-02_JPRB,&
+&.613E-02_JPRB,.602E-02_JPRB,.985E-02_JPRB,.576E-02_JPRB,.549E-02_JPRB,.532E-02_JPRB,.512E-02_JPRB,&
+&.480E-02_JPRB,.463E-02_JPRB,.742E-02_JPRB,.695E-02_JPRB,.673E-02_JPRB,.391E-02_JPRB,.377E-02_JPRB,&
+&.378E-02_JPRB,.382E-02_JPRB,.408E-02_JPRB,.453E-02_JPRB,.833E-02_JPRB,.101E-01_JPRB,.125E-01_JPRB,&
+&.146E-01_JPRB,.181E-01_JPRB,.222E-01_JPRB,.249E-01_JPRB,.284E-01_JPRB,.310E-01_JPRB,.190E-01_JPRB,&
+&.190E-01_JPRB,.297E-01_JPRB,.281E-01_JPRB,.263E-01_JPRB,.233E-01_JPRB,.220E-01_JPRB,.208E-01_JPRB,&
+&.195E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.997E-02_JPRB,.962E-02_JPRB,&
+&.937E-02_JPRB,.903E-02_JPRB,.863E-02_JPRB,.837E-02_JPRB,.806E-02_JPRB,.763E-02_JPRB,.741E-02_JPRB,&
+&.120E-01_JPRB,.691E-02_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 42 -74.0
+ZAER (:,42, 6) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,&
+&.102E-01_JPRB,.101E-01_JPRB,.999E-02_JPRB,.995E-02_JPRB,.990E-02_JPRB,.591E-02_JPRB,.588E-02_JPRB,&
+&.969E-02_JPRB,.950E-02_JPRB,.934E-02_JPRB,.910E-02_JPRB,.871E-02_JPRB,.507E-02_JPRB,.814E-02_JPRB,&
+&.764E-02_JPRB,.737E-02_JPRB,.711E-02_JPRB,.670E-02_JPRB,.393E-02_JPRB,.385E-02_JPRB,.378E-02_JPRB,&
+&.381E-02_JPRB,.385E-02_JPRB,.405E-02_JPRB,.435E-02_JPRB,.774E-02_JPRB,.882E-02_JPRB,.102E-01_JPRB,&
+&.113E-01_JPRB,.132E-01_JPRB,.153E-01_JPRB,.166E-01_JPRB,.183E-01_JPRB,.197E-01_JPRB,.202E-01_JPRB,&
+&.205E-01_JPRB,.202E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.186E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,&
+&.173E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.159E-01_JPRB,.935E-02_JPRB,.917E-02_JPRB,.899E-02_JPRB,&
+&.892E-02_JPRB,.889E-02_JPRB,.891E-02_JPRB,.895E-02_JPRB,.149E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,&
+&.146E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,&
+&.117E-01_JPRB,.113E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 43 -78.0
+ZAER (:,43, 6) = (/&
+&.109E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,&
+&.101E-01_JPRB,.995E-02_JPRB,.987E-02_JPRB,.981E-02_JPRB,.972E-02_JPRB,.963E-02_JPRB,.955E-02_JPRB,&
+&.943E-02_JPRB,.926E-02_JPRB,.912E-02_JPRB,.893E-02_JPRB,.518E-02_JPRB,.507E-02_JPRB,.494E-02_JPRB,&
+&.790E-02_JPRB,.772E-02_JPRB,.452E-02_JPRB,.438E-02_JPRB,.432E-02_JPRB,.428E-02_JPRB,.426E-02_JPRB,&
+&.429E-02_JPRB,.434E-02_JPRB,.448E-02_JPRB,.466E-02_JPRB,.806E-02_JPRB,.864E-02_JPRB,.930E-02_JPRB,&
+&.983E-02_JPRB,.107E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.772E-02_JPRB,.136E-01_JPRB,.139E-01_JPRB,&
+&.142E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,&
+&.146E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.786E-02_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,&
+&.128E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.116E-01_JPRB,.114E-01_JPRB,&
+&.112E-01_JPRB,.109E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 44 -82.0
+ZAER (:,44, 6) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.996E-02_JPRB,.990E-02_JPRB,&
+&.985E-02_JPRB,.977E-02_JPRB,.971E-02_JPRB,.966E-02_JPRB,.959E-02_JPRB,.952E-02_JPRB,.946E-02_JPRB,&
+&.938E-02_JPRB,.927E-02_JPRB,.919E-02_JPRB,.909E-02_JPRB,.896E-02_JPRB,.887E-02_JPRB,.527E-02_JPRB,&
+&.518E-02_JPRB,.514E-02_JPRB,.509E-02_JPRB,.504E-02_JPRB,.502E-02_JPRB,.501E-02_JPRB,.502E-02_JPRB,&
+&.505E-02_JPRB,.507E-02_JPRB,.515E-02_JPRB,.524E-02_JPRB,.532E-02_JPRB,.910E-02_JPRB,.934E-02_JPRB,&
+&.954E-02_JPRB,.983E-02_JPRB,.101E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.111E-01_JPRB,&
+&.113E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,&
+&.105E-01_JPRB,.103E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 45 -86.0
+ZAER (:,45, 6) = (/&
+&.100E-01_JPRB,.100E-01_JPRB,.996E-02_JPRB,.994E-02_JPRB,.992E-02_JPRB,.988E-02_JPRB,.985E-02_JPRB,&
+&.983E-02_JPRB,.980E-02_JPRB,.977E-02_JPRB,.974E-02_JPRB,.971E-02_JPRB,.969E-02_JPRB,.966E-02_JPRB,&
+&.963E-02_JPRB,.960E-02_JPRB,.957E-02_JPRB,.954E-02_JPRB,.951E-02_JPRB,.949E-02_JPRB,.947E-02_JPRB,&
+&.944E-02_JPRB,.943E-02_JPRB,.942E-02_JPRB,.940E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.942E-02_JPRB,&
+&.944E-02_JPRB,.945E-02_JPRB,.950E-02_JPRB,.954E-02_JPRB,.957E-02_JPRB,.963E-02_JPRB,.969E-02_JPRB,&
+&.973E-02_JPRB,.980E-02_JPRB,.987E-02_JPRB,.992E-02_JPRB,.998E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB/)
+!-- Organic Aerosol          month:  6 --- lat: 46 -90.0
+ZAER (:,46, 6) = (/&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=6   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_06
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_07.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_07.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_07.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_07
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,7:7)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  7 --- lat:  1  90.0
+ZAER (:, 1, 7) = (/&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.145E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  2  86.0
+ZAER (:, 2, 7) = (/&
+&.151E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.157E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,&
+&.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.156E-02_JPRB,&
+&.156E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.134E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,&
+&.140E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,&
+&.149E-02_JPRB,.151E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  3  82.0
+ZAER (:, 3, 7) = (/&
+&.172E-02_JPRB,.172E-02_JPRB,.178E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,&
+&.182E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,&
+&.175E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,.170E-02_JPRB,.169E-02_JPRB,&
+&.167E-02_JPRB,.165E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,.156E-02_JPRB,.152E-02_JPRB,.149E-02_JPRB,&
+&.146E-02_JPRB,.143E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,&
+&.126E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,&
+&.124E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.137E-02_JPRB,&
+&.139E-02_JPRB,.142E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.153E-02_JPRB,.159E-02_JPRB,.162E-02_JPRB,&
+&.166E-02_JPRB,.172E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  4  78.0
+ZAER (:, 4, 7) = (/&
+&.218E-02_JPRB,.218E-02_JPRB,.230E-02_JPRB,.234E-02_JPRB,.237E-02_JPRB,.240E-02_JPRB,.239E-02_JPRB,&
+&.237E-02_JPRB,.233E-02_JPRB,.229E-02_JPRB,.226E-02_JPRB,.220E-02_JPRB,.215E-02_JPRB,.211E-02_JPRB,&
+&.207E-02_JPRB,.202E-02_JPRB,.200E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,&
+&.192E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.196E-02_JPRB,&
+&.194E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.182E-02_JPRB,.176E-02_JPRB,.170E-02_JPRB,&
+&.165E-02_JPRB,.157E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.141E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,&
+&.130E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,&
+&.128E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.147E-02_JPRB,&
+&.150E-02_JPRB,.156E-02_JPRB,.164E-02_JPRB,.170E-02_JPRB,.177E-02_JPRB,.189E-02_JPRB,.196E-02_JPRB,&
+&.204E-02_JPRB,.217E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  5  74.0
+ZAER (:, 5, 7) = (/&
+&.291E-02_JPRB,.291E-02_JPRB,.309E-02_JPRB,.312E-02_JPRB,.313E-02_JPRB,.306E-02_JPRB,.296E-02_JPRB,&
+&.288E-02_JPRB,.274E-02_JPRB,.263E-02_JPRB,.254E-02_JPRB,.241E-02_JPRB,.231E-02_JPRB,.224E-02_JPRB,&
+&.216E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,.202E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.198E-02_JPRB,&
+&.199E-02_JPRB,.201E-02_JPRB,.204E-02_JPRB,.211E-02_JPRB,.214E-02_JPRB,.217E-02_JPRB,.223E-02_JPRB,&
+&.225E-02_JPRB,.227E-02_JPRB,.226E-02_JPRB,.223E-02_JPRB,.220E-02_JPRB,.214E-02_JPRB,.207E-02_JPRB,&
+&.201E-02_JPRB,.191E-02_JPRB,.182E-02_JPRB,.175E-02_JPRB,.168E-02_JPRB,.161E-02_JPRB,.157E-02_JPRB,&
+&.154E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,&
+&.153E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.149E-02_JPRB,.150E-02_JPRB,.153E-02_JPRB,.155E-02_JPRB,.157E-02_JPRB,.161E-02_JPRB,.166E-02_JPRB,&
+&.171E-02_JPRB,.177E-02_JPRB,.189E-02_JPRB,.199E-02_JPRB,.211E-02_JPRB,.235E-02_JPRB,.249E-02_JPRB,&
+&.265E-02_JPRB,.290E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  6  70.0
+ZAER (:, 6, 7) = (/&
+&.394E-02_JPRB,.395E-02_JPRB,.415E-02_JPRB,.410E-02_JPRB,.402E-02_JPRB,.368E-02_JPRB,.343E-02_JPRB,&
+&.322E-02_JPRB,.295E-02_JPRB,.277E-02_JPRB,.265E-02_JPRB,.247E-02_JPRB,.234E-02_JPRB,.226E-02_JPRB,&
+&.216E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,.202E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.198E-02_JPRB,&
+&.200E-02_JPRB,.203E-02_JPRB,.206E-02_JPRB,.217E-02_JPRB,.224E-02_JPRB,.231E-02_JPRB,.246E-02_JPRB,&
+&.254E-02_JPRB,.260E-02_JPRB,.266E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.265E-02_JPRB,.262E-02_JPRB,&
+&.258E-02_JPRB,.250E-02_JPRB,.238E-02_JPRB,.230E-02_JPRB,.218E-02_JPRB,.208E-02_JPRB,.205E-02_JPRB,&
+&.201E-02_JPRB,.203E-02_JPRB,.205E-02_JPRB,.208E-02_JPRB,.212E-02_JPRB,.214E-02_JPRB,.217E-02_JPRB,&
+&.217E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.191E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.196E-02_JPRB,.198E-02_JPRB,.201E-02_JPRB,&
+&.203E-02_JPRB,.208E-02_JPRB,.223E-02_JPRB,.237E-02_JPRB,.257E-02_JPRB,.300E-02_JPRB,.326E-02_JPRB,&
+&.353E-02_JPRB,.393E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  7  66.0
+ZAER (:, 7, 7) = (/&
+&.500E-02_JPRB,.501E-02_JPRB,.516E-02_JPRB,.497E-02_JPRB,.476E-02_JPRB,.414E-02_JPRB,.377E-02_JPRB,&
+&.347E-02_JPRB,.310E-02_JPRB,.289E-02_JPRB,.274E-02_JPRB,.255E-02_JPRB,.241E-02_JPRB,.233E-02_JPRB,&
+&.225E-02_JPRB,.220E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,.210E-02_JPRB,.207E-02_JPRB,.205E-02_JPRB,&
+&.203E-02_JPRB,.204E-02_JPRB,.205E-02_JPRB,.215E-02_JPRB,.225E-02_JPRB,.235E-02_JPRB,.260E-02_JPRB,&
+&.275E-02_JPRB,.287E-02_JPRB,.306E-02_JPRB,.314E-02_JPRB,.321E-02_JPRB,.330E-02_JPRB,.337E-02_JPRB,&
+&.339E-02_JPRB,.335E-02_JPRB,.320E-02_JPRB,.309E-02_JPRB,.293E-02_JPRB,.282E-02_JPRB,.279E-02_JPRB,&
+&.278E-02_JPRB,.285E-02_JPRB,.292E-02_JPRB,.300E-02_JPRB,.313E-02_JPRB,.320E-02_JPRB,.327E-02_JPRB,&
+&.326E-02_JPRB,.316E-02_JPRB,.305E-02_JPRB,.281E-02_JPRB,.270E-02_JPRB,.262E-02_JPRB,.257E-02_JPRB,&
+&.260E-02_JPRB,.263E-02_JPRB,.271E-02_JPRB,.275E-02_JPRB,.277E-02_JPRB,.275E-02_JPRB,.268E-02_JPRB,&
+&.264E-02_JPRB,.261E-02_JPRB,.269E-02_JPRB,.286E-02_JPRB,.310E-02_JPRB,.374E-02_JPRB,.412E-02_JPRB,&
+&.452E-02_JPRB,.499E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  8  62.0
+ZAER (:, 8, 7) = (/&
+&.607E-02_JPRB,.608E-02_JPRB,.615E-02_JPRB,.583E-02_JPRB,.550E-02_JPRB,.482E-02_JPRB,.446E-02_JPRB,&
+&.417E-02_JPRB,.378E-02_JPRB,.348E-02_JPRB,.327E-02_JPRB,.299E-02_JPRB,.279E-02_JPRB,.269E-02_JPRB,&
+&.258E-02_JPRB,.251E-02_JPRB,.246E-02_JPRB,.240E-02_JPRB,.232E-02_JPRB,.228E-02_JPRB,.223E-02_JPRB,&
+&.218E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,.217E-02_JPRB,.229E-02_JPRB,.241E-02_JPRB,.275E-02_JPRB,&
+&.297E-02_JPRB,.317E-02_JPRB,.346E-02_JPRB,.360E-02_JPRB,.372E-02_JPRB,.396E-02_JPRB,.412E-02_JPRB,&
+&.419E-02_JPRB,.417E-02_JPRB,.401E-02_JPRB,.390E-02_JPRB,.375E-02_JPRB,.370E-02_JPRB,.374E-02_JPRB,&
+&.382E-02_JPRB,.394E-02_JPRB,.403E-02_JPRB,.413E-02_JPRB,.436E-02_JPRB,.448E-02_JPRB,.460E-02_JPRB,&
+&.449E-02_JPRB,.427E-02_JPRB,.406E-02_JPRB,.367E-02_JPRB,.354E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,&
+&.362E-02_JPRB,.377E-02_JPRB,.404E-02_JPRB,.413E-02_JPRB,.414E-02_JPRB,.403E-02_JPRB,.375E-02_JPRB,&
+&.356E-02_JPRB,.331E-02_JPRB,.323E-02_JPRB,.334E-02_JPRB,.355E-02_JPRB,.429E-02_JPRB,.482E-02_JPRB,&
+&.542E-02_JPRB,.605E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat:  9  58.0
+ZAER (:, 9, 7) = (/&
+&.670E-02_JPRB,.670E-02_JPRB,.679E-02_JPRB,.654E-02_JPRB,.630E-02_JPRB,.581E-02_JPRB,.551E-02_JPRB,&
+&.527E-02_JPRB,.496E-02_JPRB,.470E-02_JPRB,.447E-02_JPRB,.410E-02_JPRB,.370E-02_JPRB,.345E-02_JPRB,&
+&.317E-02_JPRB,.291E-02_JPRB,.277E-02_JPRB,.262E-02_JPRB,.252E-02_JPRB,.249E-02_JPRB,.247E-02_JPRB,&
+&.245E-02_JPRB,.243E-02_JPRB,.242E-02_JPRB,.250E-02_JPRB,.267E-02_JPRB,.285E-02_JPRB,.334E-02_JPRB,&
+&.358E-02_JPRB,.379E-02_JPRB,.403E-02_JPRB,.415E-02_JPRB,.428E-02_JPRB,.462E-02_JPRB,.488E-02_JPRB,&
+&.497E-02_JPRB,.491E-02_JPRB,.476E-02_JPRB,.467E-02_JPRB,.460E-02_JPRB,.474E-02_JPRB,.492E-02_JPRB,&
+&.517E-02_JPRB,.541E-02_JPRB,.547E-02_JPRB,.550E-02_JPRB,.549E-02_JPRB,.546E-02_JPRB,.543E-02_JPRB,&
+&.510E-02_JPRB,.480E-02_JPRB,.451E-02_JPRB,.410E-02_JPRB,.405E-02_JPRB,.405E-02_JPRB,.427E-02_JPRB,&
+&.472E-02_JPRB,.509E-02_JPRB,.571E-02_JPRB,.581E-02_JPRB,.573E-02_JPRB,.536E-02_JPRB,.481E-02_JPRB,&
+&.448E-02_JPRB,.409E-02_JPRB,.392E-02_JPRB,.398E-02_JPRB,.413E-02_JPRB,.474E-02_JPRB,.528E-02_JPRB,&
+&.589E-02_JPRB,.667E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 10  54.0
+ZAER (:,10, 7) = (/&
+&.703E-02_JPRB,.702E-02_JPRB,.692E-02_JPRB,.686E-02_JPRB,.678E-02_JPRB,.648E-02_JPRB,.604E-02_JPRB,&
+&.568E-02_JPRB,.517E-02_JPRB,.494E-02_JPRB,.480E-02_JPRB,.464E-02_JPRB,.435E-02_JPRB,.412E-02_JPRB,&
+&.378E-02_JPRB,.332E-02_JPRB,.308E-02_JPRB,.283E-02_JPRB,.273E-02_JPRB,.272E-02_JPRB,.273E-02_JPRB,&
+&.283E-02_JPRB,.174E-02_JPRB,.299E-02_JPRB,.330E-02_JPRB,.366E-02_JPRB,.402E-02_JPRB,.474E-02_JPRB,&
+&.490E-02_JPRB,.505E-02_JPRB,.525E-02_JPRB,.541E-02_JPRB,.555E-02_JPRB,.576E-02_JPRB,.580E-02_JPRB,&
+&.576E-02_JPRB,.555E-02_JPRB,.548E-02_JPRB,.554E-02_JPRB,.572E-02_JPRB,.617E-02_JPRB,.653E-02_JPRB,&
+&.701E-02_JPRB,.727E-02_JPRB,.718E-02_JPRB,.703E-02_JPRB,.635E-02_JPRB,.603E-02_JPRB,.573E-02_JPRB,&
+&.513E-02_JPRB,.483E-02_JPRB,.455E-02_JPRB,.425E-02_JPRB,.430E-02_JPRB,.438E-02_JPRB,.476E-02_JPRB,&
+&.540E-02_JPRB,.588E-02_JPRB,.651E-02_JPRB,.645E-02_JPRB,.628E-02_JPRB,.585E-02_JPRB,.531E-02_JPRB,&
+&.503E-02_JPRB,.476E-02_JPRB,.468E-02_JPRB,.469E-02_JPRB,.474E-02_JPRB,.517E-02_JPRB,.566E-02_JPRB,&
+&.621E-02_JPRB,.700E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 11  50.0
+ZAER (:,11, 7) = (/&
+&.742E-02_JPRB,.742E-02_JPRB,.724E-02_JPRB,.723E-02_JPRB,.722E-02_JPRB,.724E-02_JPRB,.666E-02_JPRB,&
+&.613E-02_JPRB,.508E-02_JPRB,.467E-02_JPRB,.446E-02_JPRB,.437E-02_JPRB,.438E-02_JPRB,.435E-02_JPRB,&
+&.427E-02_JPRB,.385E-02_JPRB,.360E-02_JPRB,.332E-02_JPRB,.322E-02_JPRB,.324E-02_JPRB,.330E-02_JPRB,&
+&.354E-02_JPRB,.223E-02_JPRB,.389E-02_JPRB,.462E-02_JPRB,.524E-02_JPRB,.587E-02_JPRB,.692E-02_JPRB,&
+&.701E-02_JPRB,.711E-02_JPRB,.728E-02_JPRB,.762E-02_JPRB,.780E-02_JPRB,.777E-02_JPRB,.728E-02_JPRB,&
+&.696E-02_JPRB,.659E-02_JPRB,.656E-02_JPRB,.681E-02_JPRB,.743E-02_JPRB,.823E-02_JPRB,.869E-02_JPRB,&
+&.923E-02_JPRB,.925E-02_JPRB,.898E-02_JPRB,.860E-02_JPRB,.745E-02_JPRB,.685E-02_JPRB,.625E-02_JPRB,&
+&.547E-02_JPRB,.525E-02_JPRB,.506E-02_JPRB,.494E-02_JPRB,.497E-02_JPRB,.501E-02_JPRB,.521E-02_JPRB,&
+&.574E-02_JPRB,.609E-02_JPRB,.644E-02_JPRB,.632E-02_JPRB,.617E-02_JPRB,.584E-02_JPRB,.552E-02_JPRB,&
+&.536E-02_JPRB,.521E-02_JPRB,.525E-02_JPRB,.529E-02_JPRB,.533E-02_JPRB,.567E-02_JPRB,.611E-02_JPRB,&
+&.662E-02_JPRB,.740E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 12  46.0
+ZAER (:,12, 7) = (/&
+&.799E-02_JPRB,.800E-02_JPRB,.810E-02_JPRB,.796E-02_JPRB,.785E-02_JPRB,.786E-02_JPRB,.730E-02_JPRB,&
+&.675E-02_JPRB,.556E-02_JPRB,.500E-02_JPRB,.467E-02_JPRB,.439E-02_JPRB,.446E-02_JPRB,.453E-02_JPRB,&
+&.463E-02_JPRB,.451E-02_JPRB,.442E-02_JPRB,.430E-02_JPRB,.420E-02_JPRB,.423E-02_JPRB,.429E-02_JPRB,&
+&.469E-02_JPRB,.300E-02_JPRB,.534E-02_JPRB,.659E-02_JPRB,.742E-02_JPRB,.823E-02_JPRB,.934E-02_JPRB,&
+&.102E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.110E-01_JPRB,&
+&.102E-01_JPRB,.933E-02_JPRB,.930E-02_JPRB,.972E-02_JPRB,.107E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,&
+&.112E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.975E-02_JPRB,.903E-02_JPRB,.832E-02_JPRB,&
+&.767E-02_JPRB,.722E-02_JPRB,.684E-02_JPRB,.679E-02_JPRB,.648E-02_JPRB,.623E-02_JPRB,.589E-02_JPRB,&
+&.617E-02_JPRB,.630E-02_JPRB,.623E-02_JPRB,.614E-02_JPRB,.607E-02_JPRB,.593E-02_JPRB,.604E-02_JPRB,&
+&.602E-02_JPRB,.592E-02_JPRB,.598E-02_JPRB,.604E-02_JPRB,.613E-02_JPRB,.657E-02_JPRB,.700E-02_JPRB,&
+&.748E-02_JPRB,.798E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 13  42.0
+ZAER (:,13, 7) = (/&
+&.912E-02_JPRB,.912E-02_JPRB,.910E-02_JPRB,.898E-02_JPRB,.886E-02_JPRB,.865E-02_JPRB,.810E-02_JPRB,&
+&.758E-02_JPRB,.657E-02_JPRB,.589E-02_JPRB,.546E-02_JPRB,.504E-02_JPRB,.507E-02_JPRB,.517E-02_JPRB,&
+&.540E-02_JPRB,.559E-02_JPRB,.564E-02_JPRB,.566E-02_JPRB,.551E-02_JPRB,.556E-02_JPRB,.566E-02_JPRB,&
+&.653E-02_JPRB,.421E-02_JPRB,.450E-02_JPRB,.927E-02_JPRB,.109E-01_JPRB,.125E-01_JPRB,.152E-01_JPRB,&
+&.183E-01_JPRB,.207E-01_JPRB,.225E-01_JPRB,.220E-01_JPRB,.215E-01_JPRB,.201E-01_JPRB,.187E-01_JPRB,&
+&.175E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,.154E-01_JPRB,.164E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,&
+&.144E-01_JPRB,.157E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.132E-01_JPRB,&
+&.127E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.945E-02_JPRB,.860E-02_JPRB,.717E-02_JPRB,&
+&.702E-02_JPRB,.685E-02_JPRB,.645E-02_JPRB,.637E-02_JPRB,.641E-02_JPRB,.664E-02_JPRB,.740E-02_JPRB,&
+&.774E-02_JPRB,.801E-02_JPRB,.798E-02_JPRB,.791E-02_JPRB,.782E-02_JPRB,.864E-02_JPRB,.915E-02_JPRB,&
+&.970E-02_JPRB,.914E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 14  38.0
+ZAER (:,14, 7) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.988E-02_JPRB,&
+&.931E-02_JPRB,.812E-02_JPRB,.731E-02_JPRB,.681E-02_JPRB,.631E-02_JPRB,.640E-02_JPRB,.653E-02_JPRB,&
+&.679E-02_JPRB,.702E-02_JPRB,.705E-02_JPRB,.698E-02_JPRB,.680E-02_JPRB,.701E-02_JPRB,.737E-02_JPRB,&
+&.869E-02_JPRB,.575E-02_JPRB,.631E-02_JPRB,.881E-02_JPRB,.191E-01_JPRB,.234E-01_JPRB,.291E-01_JPRB,&
+&.333E-01_JPRB,.365E-01_JPRB,.371E-01_JPRB,.337E-01_JPRB,.315E-01_JPRB,.302E-01_JPRB,.281E-01_JPRB,&
+&.263E-01_JPRB,.234E-01_JPRB,.235E-01_JPRB,.242E-01_JPRB,.259E-01_JPRB,.251E-01_JPRB,.242E-01_JPRB,&
+&.229E-01_JPRB,.247E-01_JPRB,.248E-01_JPRB,.245E-01_JPRB,.219E-01_JPRB,.205E-01_JPRB,.190E-01_JPRB,&
+&.180E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.119E-01_JPRB,.965E-02_JPRB,&
+&.879E-02_JPRB,.818E-02_JPRB,.749E-02_JPRB,.748E-02_JPRB,.779E-02_JPRB,.869E-02_JPRB,.104E-01_JPRB,&
+&.115E-01_JPRB,.128E-01_JPRB,.790E-02_JPRB,.130E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,&
+&.134E-01_JPRB,.121E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 15  34.0
+ZAER (:,15, 7) = (/&
+&.171E-01_JPRB,.171E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,&
+&.114E-01_JPRB,.991E-02_JPRB,.904E-02_JPRB,.851E-02_JPRB,.805E-02_JPRB,.822E-02_JPRB,.832E-02_JPRB,&
+&.842E-02_JPRB,.839E-02_JPRB,.826E-02_JPRB,.802E-02_JPRB,.787E-02_JPRB,.848E-02_JPRB,.944E-02_JPRB,&
+&.121E-01_JPRB,.857E-02_JPRB,.995E-02_JPRB,.173E-01_JPRB,.237E-01_JPRB,.496E-01_JPRB,.574E-01_JPRB,&
+&.569E-01_JPRB,.558E-01_JPRB,.502E-01_JPRB,.439E-01_JPRB,.401E-01_JPRB,.391E-01_JPRB,.357E-01_JPRB,&
+&.333E-01_JPRB,.300E-01_JPRB,.323E-01_JPRB,.349E-01_JPRB,.393E-01_JPRB,.251E-01_JPRB,.421E-01_JPRB,&
+&.416E-01_JPRB,.408E-01_JPRB,.384E-01_JPRB,.353E-01_JPRB,.288E-01_JPRB,.257E-01_JPRB,.227E-01_JPRB,&
+&.208E-01_JPRB,.197E-01_JPRB,.187E-01_JPRB,.181E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.131E-01_JPRB,&
+&.117E-01_JPRB,.107E-01_JPRB,.976E-02_JPRB,.101E-01_JPRB,.670E-02_JPRB,.137E-01_JPRB,.200E-01_JPRB,&
+&.235E-01_JPRB,.164E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,.244E-01_JPRB,.222E-01_JPRB,.210E-01_JPRB,&
+&.198E-01_JPRB,.172E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 16  30.0
+ZAER (:,16, 7) = (/&
+&.224E-01_JPRB,.223E-01_JPRB,.184E-01_JPRB,.172E-01_JPRB,.161E-01_JPRB,.152E-01_JPRB,.138E-01_JPRB,&
+&.128E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.982E-02_JPRB,.982E-02_JPRB,.980E-02_JPRB,&
+&.977E-02_JPRB,.950E-02_JPRB,.920E-02_JPRB,.874E-02_JPRB,.903E-02_JPRB,.107E-01_JPRB,.132E-01_JPRB,&
+&.192E-01_JPRB,.142E-01_JPRB,.170E-01_JPRB,.367E-01_JPRB,.492E-01_JPRB,.101E+00_JPRB,.103E+00_JPRB,&
+&.878E-01_JPRB,.743E-01_JPRB,.552E-01_JPRB,.483E-01_JPRB,.443E-01_JPRB,.435E-01_JPRB,.392E-01_JPRB,&
+&.370E-01_JPRB,.355E-01_JPRB,.419E-01_JPRB,.483E-01_JPRB,.587E-01_JPRB,.420E-01_JPRB,.441E-01_JPRB,&
+&.452E-01_JPRB,.635E-01_JPRB,.543E-01_JPRB,.435E-01_JPRB,.318E-01_JPRB,.279E-01_JPRB,.242E-01_JPRB,&
+&.218E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,.201E-01_JPRB,.191E-01_JPRB,.181E-01_JPRB,.160E-01_JPRB,&
+&.147E-01_JPRB,.137E-01_JPRB,.127E-01_JPRB,.867E-02_JPRB,.109E-01_JPRB,.161E-01_JPRB,.278E-01_JPRB,&
+&.330E-01_JPRB,.373E-01_JPRB,.348E-01_JPRB,.310E-01_JPRB,.424E-01_JPRB,.351E-01_JPRB,.311E-01_JPRB,&
+&.270E-01_JPRB,.225E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 17  26.0
+ZAER (:,17, 7) = (/&
+&.246E-01_JPRB,.244E-01_JPRB,.194E-01_JPRB,.178E-01_JPRB,.164E-01_JPRB,.153E-01_JPRB,.140E-01_JPRB,&
+&.131E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.111E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.950E-02_JPRB,.114E-01_JPRB,.152E-01_JPRB,.206E-01_JPRB,&
+&.298E-01_JPRB,.230E-01_JPRB,.285E-01_JPRB,.717E-01_JPRB,.912E-01_JPRB,.108E+00_JPRB,.150E+00_JPRB,&
+&.112E+00_JPRB,.815E-01_JPRB,.518E-01_JPRB,.470E-01_JPRB,.441E-01_JPRB,.427E-01_JPRB,.395E-01_JPRB,&
+&.395E-01_JPRB,.440E-01_JPRB,.584E-01_JPRB,.714E-01_JPRB,.552E-01_JPRB,.678E-01_JPRB,.711E-01_JPRB,&
+&.723E-01_JPRB,.894E-01_JPRB,.704E-01_JPRB,.494E-01_JPRB,.327E-01_JPRB,.282E-01_JPRB,.242E-01_JPRB,&
+&.220E-01_JPRB,.214E-01_JPRB,.209E-01_JPRB,.207E-01_JPRB,.198E-01_JPRB,.189E-01_JPRB,.171E-01_JPRB,&
+&.162E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.128E-01_JPRB,.185E-01_JPRB,.314E-01_JPRB,.540E-01_JPRB,&
+&.628E-01_JPRB,.683E-01_JPRB,.569E-01_JPRB,.475E-01_JPRB,.591E-01_JPRB,.446E-01_JPRB,.376E-01_JPRB,&
+&.306E-01_JPRB,.247E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 18  22.0
+ZAER (:,18, 7) = (/&
+&.225E-01_JPRB,.223E-01_JPRB,.174E-01_JPRB,.156E-01_JPRB,.142E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,&
+&.123E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,&
+&.134E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.176E-01_JPRB,.247E-01_JPRB,.342E-01_JPRB,&
+&.467E-01_JPRB,.373E-01_JPRB,.476E-01_JPRB,.118E+00_JPRB,.139E+00_JPRB,.154E+00_JPRB,.102E+00_JPRB,&
+&.117E+00_JPRB,.754E-01_JPRB,.461E-01_JPRB,.439E-01_JPRB,.422E-01_JPRB,.397E-01_JPRB,.394E-01_JPRB,&
+&.443E-01_JPRB,.607E-01_JPRB,.880E-01_JPRB,.108E+00_JPRB,.812E-01_JPRB,.958E-01_JPRB,.980E-01_JPRB,&
+&.962E-01_JPRB,.654E-01_JPRB,.834E-01_JPRB,.341E-01_JPRB,.350E-01_JPRB,.290E-01_JPRB,.237E-01_JPRB,&
+&.214E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.199E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,.167E-01_JPRB,&
+&.164E-01_JPRB,.168E-01_JPRB,.192E-01_JPRB,.315E-01_JPRB,.291E-01_JPRB,.507E-01_JPRB,.789E-01_JPRB,&
+&.871E-01_JPRB,.882E-01_JPRB,.663E-01_JPRB,.883E-01_JPRB,.626E-01_JPRB,.437E-01_JPRB,.360E-01_JPRB,&
+&.285E-01_JPRB,.227E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 19  18.0
+ZAER (:,19, 7) = (/&
+&.180E-01_JPRB,.179E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,&
+&.106E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,.116E-01_JPRB,.130E-01_JPRB,.143E-01_JPRB,.153E-01_JPRB,&
+&.169E-01_JPRB,.176E-01_JPRB,.186E-01_JPRB,.205E-01_JPRB,.313E-01_JPRB,.422E-01_JPRB,.561E-01_JPRB,&
+&.762E-01_JPRB,.610E-01_JPRB,.778E-01_JPRB,.161E+00_JPRB,.169E+00_JPRB,.172E+00_JPRB,.963E-01_JPRB,&
+&.645E-01_JPRB,.665E-01_JPRB,.422E-01_JPRB,.410E-01_JPRB,.398E-01_JPRB,.371E-01_JPRB,.410E-01_JPRB,&
+&.522E-01_JPRB,.834E-01_JPRB,.127E+00_JPRB,.150E+00_JPRB,.103E+00_JPRB,.114E+00_JPRB,.113E+00_JPRB,&
+&.107E+00_JPRB,.697E-01_JPRB,.901E-01_JPRB,.389E-01_JPRB,.388E-01_JPRB,.311E-01_JPRB,.242E-01_JPRB,&
+&.205E-01_JPRB,.197E-01_JPRB,.189E-01_JPRB,.184E-01_JPRB,.177E-01_JPRB,.171E-01_JPRB,.166E-01_JPRB,&
+&.174E-01_JPRB,.192E-01_JPRB,.248E-01_JPRB,.425E-01_JPRB,.638E-01_JPRB,.638E-01_JPRB,.854E-01_JPRB,&
+&.869E-01_JPRB,.775E-01_JPRB,.534E-01_JPRB,.696E-01_JPRB,.494E-01_JPRB,.342E-01_JPRB,.286E-01_JPRB,&
+&.236E-01_JPRB,.182E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 20  14.0
+ZAER (:,20, 7) = (/&
+&.135E-01_JPRB,.134E-01_JPRB,.104E-01_JPRB,.955E-02_JPRB,.882E-02_JPRB,.823E-02_JPRB,.854E-02_JPRB,&
+&.885E-02_JPRB,.958E-02_JPRB,.105E-01_JPRB,.115E-01_JPRB,.135E-01_JPRB,.155E-01_JPRB,.173E-01_JPRB,&
+&.202E-01_JPRB,.242E-01_JPRB,.284E-01_JPRB,.346E-01_JPRB,.521E-01_JPRB,.667E-01_JPRB,.847E-01_JPRB,&
+&.691E-01_JPRB,.894E-01_JPRB,.112E+00_JPRB,.180E+00_JPRB,.172E+00_JPRB,.160E+00_JPRB,.823E-01_JPRB,&
+&.556E-01_JPRB,.581E-01_JPRB,.381E-01_JPRB,.371E-01_JPRB,.365E-01_JPRB,.367E-01_JPRB,.450E-01_JPRB,&
+&.610E-01_JPRB,.102E+00_JPRB,.163E+00_JPRB,.187E+00_JPRB,.120E+00_JPRB,.119E+00_JPRB,.115E+00_JPRB,&
+&.106E+00_JPRB,.712E-01_JPRB,.557E-01_JPRB,.674E-01_JPRB,.413E-01_JPRB,.331E-01_JPRB,.257E-01_JPRB,&
+&.204E-01_JPRB,.190E-01_JPRB,.177E-01_JPRB,.170E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.178E-01_JPRB,&
+&.209E-01_JPRB,.243E-01_JPRB,.322E-01_JPRB,.502E-01_JPRB,.683E-01_JPRB,.101E+00_JPRB,.685E-01_JPRB,&
+&.637E-01_JPRB,.817E-01_JPRB,.541E-01_JPRB,.426E-01_JPRB,.319E-01_JPRB,.247E-01_JPRB,.215E-01_JPRB,&
+&.184E-01_JPRB,.137E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 21  10.0
+ZAER (:,21, 7) = (/&
+&.973E-02_JPRB,.966E-02_JPRB,.760E-02_JPRB,.727E-02_JPRB,.701E-02_JPRB,.694E-02_JPRB,.739E-02_JPRB,&
+&.786E-02_JPRB,.897E-02_JPRB,.106E-01_JPRB,.119E-01_JPRB,.140E-01_JPRB,.166E-01_JPRB,.191E-01_JPRB,&
+&.231E-01_JPRB,.302E-01_JPRB,.373E-01_JPRB,.480E-01_JPRB,.728E-01_JPRB,.903E-01_JPRB,.111E+00_JPRB,&
+&.877E-01_JPRB,.107E+00_JPRB,.128E+00_JPRB,.169E+00_JPRB,.152E+00_JPRB,.133E+00_JPRB,.675E-01_JPRB,&
+&.457E-01_JPRB,.481E-01_JPRB,.332E-01_JPRB,.334E-01_JPRB,.346E-01_JPRB,.398E-01_JPRB,.527E-01_JPRB,&
+&.719E-01_JPRB,.117E+00_JPRB,.190E+00_JPRB,.216E+00_JPRB,.135E+00_JPRB,.123E+00_JPRB,.114E+00_JPRB,&
+&.104E+00_JPRB,.727E-01_JPRB,.940E-01_JPRB,.657E-01_JPRB,.413E-01_JPRB,.340E-01_JPRB,.275E-01_JPRB,&
+&.214E-01_JPRB,.195E-01_JPRB,.178E-01_JPRB,.166E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,.198E-01_JPRB,&
+&.268E-01_JPRB,.321E-01_JPRB,.396E-01_JPRB,.521E-01_JPRB,.614E-01_JPRB,.749E-01_JPRB,.727E-01_JPRB,&
+&.639E-01_JPRB,.462E-01_JPRB,.312E-01_JPRB,.257E-01_JPRB,.210E-01_JPRB,.182E-01_JPRB,.159E-01_JPRB,&
+&.134E-01_JPRB,.984E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 22   6.0
+ZAER (:,22, 7) = (/&
+&.682E-02_JPRB,.679E-02_JPRB,.588E-02_JPRB,.585E-02_JPRB,.588E-02_JPRB,.635E-02_JPRB,.699E-02_JPRB,&
+&.765E-02_JPRB,.920E-02_JPRB,.110E-01_JPRB,.125E-01_JPRB,.148E-01_JPRB,.185E-01_JPRB,.214E-01_JPRB,&
+&.258E-01_JPRB,.345E-01_JPRB,.436E-01_JPRB,.576E-01_JPRB,.879E-01_JPRB,.109E+00_JPRB,.798E-01_JPRB,&
+&.967E-01_JPRB,.109E+00_JPRB,.122E+00_JPRB,.130E+00_JPRB,.114E+00_JPRB,.970E-01_JPRB,.496E-01_JPRB,&
+&.337E-01_JPRB,.361E-01_JPRB,.285E-01_JPRB,.307E-01_JPRB,.341E-01_JPRB,.439E-01_JPRB,.610E-01_JPRB,&
+&.814E-01_JPRB,.125E+00_JPRB,.190E+00_JPRB,.216E+00_JPRB,.139E+00_JPRB,.125E+00_JPRB,.115E+00_JPRB,&
+&.102E+00_JPRB,.713E-01_JPRB,.929E-01_JPRB,.659E-01_JPRB,.416E-01_JPRB,.351E-01_JPRB,.294E-01_JPRB,&
+&.235E-01_JPRB,.212E-01_JPRB,.192E-01_JPRB,.173E-01_JPRB,.166E-01_JPRB,.169E-01_JPRB,.217E-01_JPRB,&
+&.323E-01_JPRB,.391E-01_JPRB,.448E-01_JPRB,.500E-01_JPRB,.520E-01_JPRB,.520E-01_JPRB,.446E-01_JPRB,&
+&.379E-01_JPRB,.167E-01_JPRB,.123E-01_JPRB,.179E-01_JPRB,.157E-01_JPRB,.135E-01_JPRB,.114E-01_JPRB,&
+&.902E-02_JPRB,.689E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 23   2.0
+ZAER (:,23, 7) = (/&
+&.495E-02_JPRB,.495E-02_JPRB,.470E-02_JPRB,.487E-02_JPRB,.510E-02_JPRB,.608E-02_JPRB,.690E-02_JPRB,&
+&.772E-02_JPRB,.955E-02_JPRB,.114E-01_JPRB,.129E-01_JPRB,.153E-01_JPRB,.199E-01_JPRB,.235E-01_JPRB,&
+&.288E-01_JPRB,.376E-01_JPRB,.476E-01_JPRB,.631E-01_JPRB,.972E-01_JPRB,.121E+00_JPRB,.897E-01_JPRB,&
+&.101E+00_JPRB,.102E+00_JPRB,.103E+00_JPRB,.894E-01_JPRB,.754E-01_JPRB,.609E-01_JPRB,.308E-01_JPRB,&
+&.370E-01_JPRB,.266E-01_JPRB,.248E-01_JPRB,.279E-01_JPRB,.321E-01_JPRB,.439E-01_JPRB,.602E-01_JPRB,&
+&.773E-01_JPRB,.111E+00_JPRB,.159E+00_JPRB,.109E+00_JPRB,.121E+00_JPRB,.115E+00_JPRB,.107E+00_JPRB,&
+&.951E-01_JPRB,.697E-01_JPRB,.553E-01_JPRB,.664E-01_JPRB,.432E-01_JPRB,.368E-01_JPRB,.312E-01_JPRB,&
+&.254E-01_JPRB,.232E-01_JPRB,.211E-01_JPRB,.179E-01_JPRB,.171E-01_JPRB,.175E-01_JPRB,.237E-01_JPRB,&
+&.330E-01_JPRB,.236E-01_JPRB,.457E-01_JPRB,.279E-01_JPRB,.445E-01_JPRB,.379E-01_JPRB,.305E-01_JPRB,&
+&.154E-01_JPRB,.196E-01_JPRB,.153E-01_JPRB,.134E-01_JPRB,.116E-01_JPRB,.938E-02_JPRB,.778E-02_JPRB,&
+&.602E-02_JPRB,.499E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 24  -2.0
+ZAER (:,24, 7) = (/&
+&.397E-02_JPRB,.396E-02_JPRB,.384E-02_JPRB,.418E-02_JPRB,.456E-02_JPRB,.562E-02_JPRB,.645E-02_JPRB,&
+&.728E-02_JPRB,.914E-02_JPRB,.110E-01_JPRB,.126E-01_JPRB,.153E-01_JPRB,.201E-01_JPRB,.244E-01_JPRB,&
+&.312E-01_JPRB,.398E-01_JPRB,.487E-01_JPRB,.621E-01_JPRB,.914E-01_JPRB,.112E+00_JPRB,.137E+00_JPRB,&
+&.877E-01_JPRB,.817E-01_JPRB,.742E-01_JPRB,.549E-01_JPRB,.436E-01_JPRB,.542E-01_JPRB,.274E-01_JPRB,&
+&.233E-01_JPRB,.205E-01_JPRB,.218E-01_JPRB,.245E-01_JPRB,.283E-01_JPRB,.391E-01_JPRB,.496E-01_JPRB,&
+&.611E-01_JPRB,.841E-01_JPRB,.121E+00_JPRB,.825E-01_JPRB,.903E-01_JPRB,.903E-01_JPRB,.867E-01_JPRB,&
+&.803E-01_JPRB,.623E-01_JPRB,.509E-01_JPRB,.382E-01_JPRB,.453E-01_JPRB,.393E-01_JPRB,.338E-01_JPRB,&
+&.269E-01_JPRB,.245E-01_JPRB,.223E-01_JPRB,.189E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.226E-01_JPRB,&
+&.172E-01_JPRB,.334E-01_JPRB,.399E-01_JPRB,.242E-01_JPRB,.379E-01_JPRB,.301E-01_JPRB,.233E-01_JPRB,&
+&.195E-01_JPRB,.153E-01_JPRB,.121E-01_JPRB,.105E-01_JPRB,.889E-02_JPRB,.699E-02_JPRB,.592E-02_JPRB,&
+&.481E-02_JPRB,.399E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 25  -6.0
+ZAER (:,25, 7) = (/&
+&.369E-02_JPRB,.369E-02_JPRB,.364E-02_JPRB,.398E-02_JPRB,.432E-02_JPRB,.510E-02_JPRB,.583E-02_JPRB,&
+&.652E-02_JPRB,.793E-02_JPRB,.953E-02_JPRB,.110E-01_JPRB,.136E-01_JPRB,.185E-01_JPRB,.223E-01_JPRB,&
+&.277E-01_JPRB,.370E-01_JPRB,.438E-01_JPRB,.526E-01_JPRB,.699E-01_JPRB,.821E-01_JPRB,.966E-01_JPRB,&
+&.596E-01_JPRB,.538E-01_JPRB,.468E-01_JPRB,.302E-01_JPRB,.384E-01_JPRB,.271E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.169E-01_JPRB,.189E-01_JPRB,.210E-01_JPRB,.239E-01_JPRB,.325E-01_JPRB,.249E-01_JPRB,&
+&.297E-01_JPRB,.378E-01_JPRB,.524E-01_JPRB,.598E-01_JPRB,.669E-01_JPRB,.671E-01_JPRB,.648E-01_JPRB,&
+&.606E-01_JPRB,.507E-01_JPRB,.433E-01_JPRB,.347E-01_JPRB,.453E-01_JPRB,.409E-01_JPRB,.367E-01_JPRB,&
+&.292E-01_JPRB,.268E-01_JPRB,.246E-01_JPRB,.215E-01_JPRB,.199E-01_JPRB,.190E-01_JPRB,.203E-01_JPRB,&
+&.236E-01_JPRB,.262E-01_JPRB,.302E-01_JPRB,.320E-01_JPRB,.309E-01_JPRB,.258E-01_JPRB,.197E-01_JPRB,&
+&.163E-01_JPRB,.128E-01_JPRB,.102E-01_JPRB,.892E-02_JPRB,.756E-02_JPRB,.609E-02_JPRB,.537E-02_JPRB,&
+&.465E-02_JPRB,.372E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 26 -10.0
+ZAER (:,26, 7) = (/&
+&.387E-02_JPRB,.386E-02_JPRB,.381E-02_JPRB,.410E-02_JPRB,.439E-02_JPRB,.499E-02_JPRB,.565E-02_JPRB,&
+&.624E-02_JPRB,.732E-02_JPRB,.838E-02_JPRB,.935E-02_JPRB,.111E-01_JPRB,.152E-01_JPRB,.177E-01_JPRB,&
+&.206E-01_JPRB,.277E-01_JPRB,.322E-01_JPRB,.377E-01_JPRB,.459E-01_JPRB,.512E-01_JPRB,.574E-01_JPRB,&
+&.342E-01_JPRB,.302E-01_JPRB,.255E-01_JPRB,.257E-01_JPRB,.205E-01_JPRB,.158E-01_JPRB,.135E-01_JPRB,&
+&.143E-01_JPRB,.151E-01_JPRB,.170E-01_JPRB,.185E-01_JPRB,.206E-01_JPRB,.265E-01_JPRB,.208E-01_JPRB,&
+&.243E-01_JPRB,.290E-01_JPRB,.355E-01_JPRB,.397E-01_JPRB,.451E-01_JPRB,.468E-01_JPRB,.457E-01_JPRB,&
+&.431E-01_JPRB,.377E-01_JPRB,.339E-01_JPRB,.296E-01_JPRB,.254E-01_JPRB,.396E-01_JPRB,.370E-01_JPRB,&
+&.309E-01_JPRB,.296E-01_JPRB,.284E-01_JPRB,.267E-01_JPRB,.240E-01_JPRB,.220E-01_JPRB,.205E-01_JPRB,&
+&.220E-01_JPRB,.228E-01_JPRB,.231E-01_JPRB,.248E-01_JPRB,.246E-01_JPRB,.223E-01_JPRB,.174E-01_JPRB,&
+&.147E-01_JPRB,.116E-01_JPRB,.944E-02_JPRB,.830E-02_JPRB,.706E-02_JPRB,.589E-02_JPRB,.534E-02_JPRB,&
+&.479E-02_JPRB,.389E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 27 -14.0
+ZAER (:,27, 7) = (/&
+&.450E-02_JPRB,.449E-02_JPRB,.424E-02_JPRB,.441E-02_JPRB,.462E-02_JPRB,.532E-02_JPRB,.595E-02_JPRB,&
+&.652E-02_JPRB,.753E-02_JPRB,.839E-02_JPRB,.907E-02_JPRB,.101E-01_JPRB,.127E-01_JPRB,.142E-01_JPRB,&
+&.157E-01_JPRB,.193E-01_JPRB,.221E-01_JPRB,.259E-01_JPRB,.183E-01_JPRB,.197E-01_JPRB,.354E-01_JPRB,&
+&.328E-01_JPRB,.286E-01_JPRB,.238E-01_JPRB,.154E-01_JPRB,.139E-01_JPRB,.126E-01_JPRB,.130E-01_JPRB,&
+&.140E-01_JPRB,.149E-01_JPRB,.166E-01_JPRB,.178E-01_JPRB,.192E-01_JPRB,.136E-01_JPRB,.165E-01_JPRB,&
+&.185E-01_JPRB,.211E-01_JPRB,.236E-01_JPRB,.259E-01_JPRB,.296E-01_JPRB,.315E-01_JPRB,.312E-01_JPRB,&
+&.299E-01_JPRB,.266E-01_JPRB,.250E-01_JPRB,.234E-01_JPRB,.373E-01_JPRB,.365E-01_JPRB,.356E-01_JPRB,&
+&.329E-01_JPRB,.334E-01_JPRB,.204E-01_JPRB,.354E-01_JPRB,.323E-01_JPRB,.298E-01_JPRB,.269E-01_JPRB,&
+&.170E-01_JPRB,.170E-01_JPRB,.251E-01_JPRB,.239E-01_JPRB,.228E-01_JPRB,.209E-01_JPRB,.171E-01_JPRB,&
+&.149E-01_JPRB,.124E-01_JPRB,.102E-01_JPRB,.895E-02_JPRB,.746E-02_JPRB,.615E-02_JPRB,.562E-02_JPRB,&
+&.512E-02_JPRB,.452E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 28 -18.0
+ZAER (:,28, 7) = (/&
+&.546E-02_JPRB,.544E-02_JPRB,.499E-02_JPRB,.503E-02_JPRB,.514E-02_JPRB,.593E-02_JPRB,.655E-02_JPRB,&
+&.712E-02_JPRB,.818E-02_JPRB,.918E-02_JPRB,.994E-02_JPRB,.110E-01_JPRB,.127E-01_JPRB,.136E-01_JPRB,&
+&.145E-01_JPRB,.161E-01_JPRB,.106E-01_JPRB,.120E-01_JPRB,.140E-01_JPRB,.245E-01_JPRB,.254E-01_JPRB,&
+&.223E-01_JPRB,.196E-01_JPRB,.168E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.127E-01_JPRB,&
+&.138E-01_JPRB,.148E-01_JPRB,.163E-01_JPRB,.175E-01_JPRB,.185E-01_JPRB,.123E-01_JPRB,.134E-01_JPRB,&
+&.142E-01_JPRB,.155E-01_JPRB,.175E-01_JPRB,.194E-01_JPRB,.227E-01_JPRB,.250E-01_JPRB,.249E-01_JPRB,&
+&.240E-01_JPRB,.211E-01_JPRB,.339E-01_JPRB,.199E-01_JPRB,.208E-01_JPRB,.213E-01_JPRB,.362E-01_JPRB,&
+&.361E-01_JPRB,.387E-01_JPRB,.248E-01_JPRB,.280E-01_JPRB,.446E-01_JPRB,.428E-01_JPRB,.240E-01_JPRB,&
+&.260E-01_JPRB,.264E-01_JPRB,.402E-01_JPRB,.334E-01_JPRB,.291E-01_JPRB,.243E-01_JPRB,.195E-01_JPRB,&
+&.171E-01_JPRB,.145E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.878E-02_JPRB,.703E-02_JPRB,.640E-02_JPRB,&
+&.583E-02_JPRB,.547E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 29 -22.0
+ZAER (:,29, 7) = (/&
+&.657E-02_JPRB,.655E-02_JPRB,.598E-02_JPRB,.603E-02_JPRB,.613E-02_JPRB,.680E-02_JPRB,.730E-02_JPRB,&
+&.778E-02_JPRB,.879E-02_JPRB,.987E-02_JPRB,.109E-01_JPRB,.126E-01_JPRB,.145E-01_JPRB,.152E-01_JPRB,&
+&.155E-01_JPRB,.963E-02_JPRB,.101E-01_JPRB,.182E-01_JPRB,.206E-01_JPRB,.213E-01_JPRB,.218E-01_JPRB,&
+&.186E-01_JPRB,.166E-01_JPRB,.145E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.118E-01_JPRB,&
+&.129E-01_JPRB,.139E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.177E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,&
+&.121E-01_JPRB,.127E-01_JPRB,.144E-01_JPRB,.163E-01_JPRB,.193E-01_JPRB,.237E-01_JPRB,.249E-01_JPRB,&
+&.254E-01_JPRB,.213E-01_JPRB,.203E-01_JPRB,.197E-01_JPRB,.213E-01_JPRB,.223E-01_JPRB,.387E-01_JPRB,&
+&.408E-01_JPRB,.269E-01_JPRB,.290E-01_JPRB,.316E-01_JPRB,.302E-01_JPRB,.295E-01_JPRB,.305E-01_JPRB,&
+&.362E-01_JPRB,.391E-01_JPRB,.393E-01_JPRB,.520E-01_JPRB,.428E-01_JPRB,.310E-01_JPRB,.240E-01_JPRB,&
+&.207E-01_JPRB,.178E-01_JPRB,.148E-01_JPRB,.127E-01_JPRB,.100E-01_JPRB,.802E-02_JPRB,.742E-02_JPRB,&
+&.692E-02_JPRB,.658E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 30 -26.0
+ZAER (:,30, 7) = (/&
+&.766E-02_JPRB,.765E-02_JPRB,.708E-02_JPRB,.710E-02_JPRB,.717E-02_JPRB,.768E-02_JPRB,.807E-02_JPRB,&
+&.844E-02_JPRB,.918E-02_JPRB,.101E-01_JPRB,.112E-01_JPRB,.136E-01_JPRB,.165E-01_JPRB,.174E-01_JPRB,&
+&.102E-01_JPRB,.995E-02_JPRB,.104E-01_JPRB,.189E-01_JPRB,.210E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,&
+&.180E-01_JPRB,.159E-01_JPRB,.137E-01_JPRB,.112E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.108E-01_JPRB,&
+&.117E-01_JPRB,.125E-01_JPRB,.141E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.183E-01_JPRB,.116E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.133E-01_JPRB,.147E-01_JPRB,.171E-01_JPRB,.228E-01_JPRB,.260E-01_JPRB,&
+&.295E-01_JPRB,.260E-01_JPRB,.239E-01_JPRB,.216E-01_JPRB,.225E-01_JPRB,.394E-01_JPRB,.248E-01_JPRB,&
+&.277E-01_JPRB,.291E-01_JPRB,.301E-01_JPRB,.281E-01_JPRB,.262E-01_JPRB,.258E-01_JPRB,.313E-01_JPRB,&
+&.424E-01_JPRB,.495E-01_JPRB,.555E-01_JPRB,.450E-01_JPRB,.611E-01_JPRB,.403E-01_JPRB,.299E-01_JPRB,&
+&.253E-01_JPRB,.214E-01_JPRB,.165E-01_JPRB,.137E-01_JPRB,.107E-01_JPRB,.895E-02_JPRB,.851E-02_JPRB,&
+&.817E-02_JPRB,.768E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 31 -30.0
+ZAER (:,31, 7) = (/&
+&.867E-02_JPRB,.865E-02_JPRB,.816E-02_JPRB,.801E-02_JPRB,.794E-02_JPRB,.833E-02_JPRB,.872E-02_JPRB,&
+&.904E-02_JPRB,.950E-02_JPRB,.102E-01_JPRB,.113E-01_JPRB,.142E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,&
+&.105E-01_JPRB,.101E-01_JPRB,.107E-01_JPRB,.123E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.233E-01_JPRB,&
+&.191E-01_JPRB,.164E-01_JPRB,.136E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.985E-02_JPRB,.101E-01_JPRB,&
+&.107E-01_JPRB,.113E-01_JPRB,.129E-01_JPRB,.146E-01_JPRB,.161E-01_JPRB,.185E-01_JPRB,.122E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.142E-01_JPRB,.154E-01_JPRB,.174E-01_JPRB,.233E-01_JPRB,.279E-01_JPRB,&
+&.341E-01_JPRB,.330E-01_JPRB,.296E-01_JPRB,.251E-01_JPRB,.240E-01_JPRB,.251E-01_JPRB,.263E-01_JPRB,&
+&.295E-01_JPRB,.282E-01_JPRB,.267E-01_JPRB,.211E-01_JPRB,.192E-01_JPRB,.191E-01_JPRB,.267E-01_JPRB,&
+&.414E-01_JPRB,.522E-01_JPRB,.662E-01_JPRB,.568E-01_JPRB,.476E-01_JPRB,.520E-01_JPRB,.374E-01_JPRB,&
+&.307E-01_JPRB,.247E-01_JPRB,.177E-01_JPRB,.146E-01_JPRB,.115E-01_JPRB,.102E-01_JPRB,.981E-02_JPRB,&
+&.944E-02_JPRB,.869E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 32 -34.0
+ZAER (:,32, 7) = (/&
+&.990E-02_JPRB,.989E-02_JPRB,.937E-02_JPRB,.900E-02_JPRB,.872E-02_JPRB,.884E-02_JPRB,.918E-02_JPRB,&
+&.945E-02_JPRB,.979E-02_JPRB,.104E-01_JPRB,.115E-01_JPRB,.145E-01_JPRB,.175E-01_JPRB,.109E-01_JPRB,&
+&.101E-01_JPRB,.996E-02_JPRB,.109E-01_JPRB,.129E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.154E-01_JPRB,&
+&.210E-01_JPRB,.177E-01_JPRB,.142E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.974E-02_JPRB,.978E-02_JPRB,&
+&.102E-01_JPRB,.108E-01_JPRB,.124E-01_JPRB,.142E-01_JPRB,.160E-01_JPRB,.194E-01_JPRB,.219E-01_JPRB,&
+&.141E-01_JPRB,.149E-01_JPRB,.176E-01_JPRB,.195E-01_JPRB,.370E-01_JPRB,.481E-01_JPRB,.578E-01_JPRB,&
+&.710E-01_JPRB,.690E-01_JPRB,.368E-01_JPRB,.305E-01_JPRB,.275E-01_JPRB,.280E-01_JPRB,.288E-01_JPRB,&
+&.293E-01_JPRB,.258E-01_JPRB,.223E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.207E-01_JPRB,&
+&.345E-01_JPRB,.463E-01_JPRB,.659E-01_JPRB,.619E-01_JPRB,.551E-01_JPRB,.662E-01_JPRB,.476E-01_JPRB,&
+&.227E-01_JPRB,.276E-01_JPRB,.188E-01_JPRB,.157E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,&
+&.109E-01_JPRB,.993E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 33 -38.0
+ZAER (:,33, 7) = (/&
+&.115E-01_JPRB,.115E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.986E-02_JPRB,.952E-02_JPRB,.962E-02_JPRB,&
+&.973E-02_JPRB,.100E-01_JPRB,.107E-01_JPRB,.118E-01_JPRB,.146E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,&
+&.972E-02_JPRB,.988E-02_JPRB,.110E-01_JPRB,.131E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,&
+&.228E-01_JPRB,.195E-01_JPRB,.159E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,.980E-02_JPRB,.954E-02_JPRB,&
+&.991E-02_JPRB,.104E-01_JPRB,.118E-01_JPRB,.135E-01_JPRB,.153E-01_JPRB,.196E-01_JPRB,.238E-01_JPRB,&
+&.162E-01_JPRB,.319E-01_JPRB,.425E-01_JPRB,.500E-01_JPRB,.599E-01_JPRB,.736E-01_JPRB,.839E-01_JPRB,&
+&.583E-01_JPRB,.523E-01_JPRB,.463E-01_JPRB,.392E-01_JPRB,.344E-01_JPRB,.336E-01_JPRB,.330E-01_JPRB,&
+&.294E-01_JPRB,.251E-01_JPRB,.211E-01_JPRB,.163E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.171E-01_JPRB,&
+&.266E-01_JPRB,.360E-01_JPRB,.550E-01_JPRB,.578E-01_JPRB,.930E-01_JPRB,.781E-01_JPRB,.575E-01_JPRB,&
+&.450E-01_JPRB,.182E-01_JPRB,.200E-01_JPRB,.170E-01_JPRB,.151E-01_JPRB,.140E-01_JPRB,.132E-01_JPRB,&
+&.125E-01_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 34 -42.0
+ZAER (:,34, 7) = (/&
+&.131E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.101E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.119E-01_JPRB,.145E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,&
+&.986E-02_JPRB,.101E-01_JPRB,.110E-01_JPRB,.127E-01_JPRB,.146E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,&
+&.141E-01_JPRB,.210E-01_JPRB,.183E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.103E-01_JPRB,.937E-02_JPRB,&
+&.944E-02_JPRB,.963E-02_JPRB,.107E-01_JPRB,.119E-01_JPRB,.134E-01_JPRB,.176E-01_JPRB,.245E-01_JPRB,&
+&.185E-01_JPRB,.254E-01_JPRB,.656E-01_JPRB,.826E-01_JPRB,.106E+00_JPRB,.720E-01_JPRB,.756E-01_JPRB,&
+&.131E+00_JPRB,.112E+00_JPRB,.603E-01_JPRB,.523E-01_JPRB,.736E-01_JPRB,.412E-01_JPRB,.384E-01_JPRB,&
+&.316E-01_JPRB,.276E-01_JPRB,.240E-01_JPRB,.195E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,&
+&.216E-01_JPRB,.272E-01_JPRB,.402E-01_JPRB,.464E-01_JPRB,.481E-01_JPRB,.459E-01_JPRB,.357E-01_JPRB,&
+&.479E-01_JPRB,.330E-01_JPRB,.221E-01_JPRB,.188E-01_JPRB,.166E-01_JPRB,.153E-01_JPRB,.146E-01_JPRB,&
+&.139E-01_JPRB,.131E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 35 -46.0
+ZAER (:,35, 7) = (/&
+&.137E-01_JPRB,.137E-01_JPRB,.126E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.140E-01_JPRB,.979E-02_JPRB,.103E-01_JPRB,&
+&.102E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,&
+&.131E-01_JPRB,.123E-01_JPRB,.113E-01_JPRB,.147E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.971E-02_JPRB,&
+&.931E-02_JPRB,.909E-02_JPRB,.961E-02_JPRB,.103E-01_JPRB,.115E-01_JPRB,.149E-01_JPRB,.235E-01_JPRB,&
+&.327E-01_JPRB,.304E-01_JPRB,.544E-01_JPRB,.733E-01_JPRB,.101E+00_JPRB,.106E+00_JPRB,.104E+00_JPRB,&
+&.978E-01_JPRB,.837E-01_JPRB,.755E-01_JPRB,.668E-01_JPRB,.906E-01_JPRB,.490E-01_JPRB,.437E-01_JPRB,&
+&.355E-01_JPRB,.322E-01_JPRB,.290E-01_JPRB,.247E-01_JPRB,.221E-01_JPRB,.200E-01_JPRB,.180E-01_JPRB,&
+&.195E-01_JPRB,.218E-01_JPRB,.281E-01_JPRB,.328E-01_JPRB,.348E-01_JPRB,.354E-01_JPRB,.311E-01_JPRB,&
+&.271E-01_JPRB,.349E-01_JPRB,.255E-01_JPRB,.218E-01_JPRB,.186E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,&
+&.147E-01_JPRB,.138E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 36 -50.0
+ZAER (:,36, 7) = (/&
+&.135E-01_JPRB,.135E-01_JPRB,.120E-01_JPRB,.113E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.991E-02_JPRB,&
+&.982E-02_JPRB,.992E-02_JPRB,.106E-01_JPRB,.114E-01_JPRB,.800E-02_JPRB,.930E-02_JPRB,.994E-02_JPRB,&
+&.105E-01_JPRB,.106E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.101E-01_JPRB,.986E-02_JPRB,.150E-01_JPRB,.139E-01_JPRB,.128E-01_JPRB,.106E-01_JPRB,&
+&.984E-02_JPRB,.933E-02_JPRB,.935E-02_JPRB,.975E-02_JPRB,.106E-01_JPRB,.136E-01_JPRB,.238E-01_JPRB,&
+&.343E-01_JPRB,.328E-01_JPRB,.617E-01_JPRB,.858E-01_JPRB,.122E+00_JPRB,.123E+00_JPRB,.116E+00_JPRB,&
+&.103E+00_JPRB,.886E-01_JPRB,.809E-01_JPRB,.727E-01_JPRB,.599E-01_JPRB,.539E-01_JPRB,.479E-01_JPRB,&
+&.397E-01_JPRB,.369E-01_JPRB,.342E-01_JPRB,.298E-01_JPRB,.264E-01_JPRB,.235E-01_JPRB,.199E-01_JPRB,&
+&.192E-01_JPRB,.192E-01_JPRB,.207E-01_JPRB,.227E-01_JPRB,.237E-01_JPRB,.246E-01_JPRB,.246E-01_JPRB,&
+&.233E-01_JPRB,.206E-01_JPRB,.277E-01_JPRB,.245E-01_JPRB,.212E-01_JPRB,.178E-01_JPRB,.164E-01_JPRB,&
+&.151E-01_JPRB,.136E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 37 -54.0
+ZAER (:,37, 7) = (/&
+&.126E-01_JPRB,.126E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,.965E-02_JPRB,.923E-02_JPRB,.916E-02_JPRB,&
+&.915E-02_JPRB,.937E-02_JPRB,.102E-01_JPRB,.663E-02_JPRB,.772E-02_JPRB,.891E-02_JPRB,.959E-02_JPRB,&
+&.103E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.961E-02_JPRB,.859E-02_JPRB,.808E-02_JPRB,.126E-01_JPRB,&
+&.736E-02_JPRB,.750E-02_JPRB,.768E-02_JPRB,.788E-02_JPRB,.127E-01_JPRB,.122E-01_JPRB,.107E-01_JPRB,&
+&.102E-01_JPRB,.978E-02_JPRB,.987E-02_JPRB,.103E-01_JPRB,.111E-01_JPRB,.137E-01_JPRB,.219E-01_JPRB,&
+&.181E-01_JPRB,.462E-01_JPRB,.808E-01_JPRB,.656E-01_JPRB,.914E-01_JPRB,.959E-01_JPRB,.922E-01_JPRB,&
+&.840E-01_JPRB,.744E-01_JPRB,.688E-01_JPRB,.625E-01_JPRB,.530E-01_JPRB,.491E-01_JPRB,.454E-01_JPRB,&
+&.392E-01_JPRB,.369E-01_JPRB,.345E-01_JPRB,.304E-01_JPRB,.270E-01_JPRB,.241E-01_JPRB,.201E-01_JPRB,&
+&.185E-01_JPRB,.175E-01_JPRB,.170E-01_JPRB,.171E-01_JPRB,.172E-01_JPRB,.174E-01_JPRB,.182E-01_JPRB,&
+&.182E-01_JPRB,.294E-01_JPRB,.264E-01_JPRB,.245E-01_JPRB,.221E-01_JPRB,.110E-01_JPRB,.165E-01_JPRB,&
+&.146E-01_JPRB,.127E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 38 -58.0
+ZAER (:,38, 7) = (/&
+&.115E-01_JPRB,.115E-01_JPRB,.100E-01_JPRB,.965E-02_JPRB,.931E-02_JPRB,.904E-02_JPRB,.889E-02_JPRB,&
+&.884E-02_JPRB,.903E-02_JPRB,.600E-02_JPRB,.656E-02_JPRB,.763E-02_JPRB,.860E-02_JPRB,.908E-02_JPRB,&
+&.947E-02_JPRB,.907E-02_JPRB,.858E-02_JPRB,.780E-02_JPRB,.114E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,&
+&.595E-02_JPRB,.607E-02_JPRB,.623E-02_JPRB,.105E-01_JPRB,.101E-01_JPRB,.964E-02_JPRB,.870E-02_JPRB,&
+&.858E-02_JPRB,.858E-02_JPRB,.927E-02_JPRB,.104E-01_JPRB,.116E-01_JPRB,.142E-01_JPRB,.182E-01_JPRB,&
+&.219E-01_JPRB,.284E-01_JPRB,.418E-01_JPRB,.322E-01_JPRB,.434E-01_JPRB,.846E-01_JPRB,.522E-01_JPRB,&
+&.522E-01_JPRB,.491E-01_JPRB,.462E-01_JPRB,.427E-01_JPRB,.374E-01_JPRB,.359E-01_JPRB,.346E-01_JPRB,&
+&.321E-01_JPRB,.306E-01_JPRB,.291E-01_JPRB,.261E-01_JPRB,.236E-01_JPRB,.216E-01_JPRB,.184E-01_JPRB,&
+&.169E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,.144E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.138E-01_JPRB,&
+&.139E-01_JPRB,.141E-01_JPRB,.231E-01_JPRB,.222E-01_JPRB,.209E-01_JPRB,.105E-01_JPRB,.157E-01_JPRB,&
+&.138E-01_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 39 -62.0
+ZAER (:,39, 7) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.953E-02_JPRB,.952E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.561E-02_JPRB,&
+&.556E-02_JPRB,.561E-02_JPRB,.607E-02_JPRB,.649E-02_JPRB,.727E-02_JPRB,.779E-02_JPRB,.796E-02_JPRB,&
+&.793E-02_JPRB,.735E-02_JPRB,.689E-02_JPRB,.625E-02_JPRB,.941E-02_JPRB,.911E-02_JPRB,.889E-02_JPRB,&
+&.541E-02_JPRB,.907E-02_JPRB,.911E-02_JPRB,.855E-02_JPRB,.798E-02_JPRB,.742E-02_JPRB,.400E-02_JPRB,&
+&.664E-02_JPRB,.675E-02_JPRB,.767E-02_JPRB,.930E-02_JPRB,.108E-01_JPRB,.139E-01_JPRB,.165E-01_JPRB,&
+&.185E-01_JPRB,.215E-01_JPRB,.280E-01_JPRB,.204E-01_JPRB,.262E-01_JPRB,.519E-01_JPRB,.320E-01_JPRB,&
+&.317E-01_JPRB,.283E-01_JPRB,.266E-01_JPRB,.249E-01_JPRB,.232E-01_JPRB,.229E-01_JPRB,.227E-01_JPRB,&
+&.224E-01_JPRB,.220E-01_JPRB,.216E-01_JPRB,.205E-01_JPRB,.193E-01_JPRB,.182E-01_JPRB,.162E-01_JPRB,&
+&.150E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.897E-02_JPRB,.813E-02_JPRB,&
+&.724E-02_JPRB,.103E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 40 -66.0
+ZAER (:,40, 7) = (/&
+&.564E-02_JPRB,.563E-02_JPRB,.918E-02_JPRB,.933E-02_JPRB,.568E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,&
+&.583E-02_JPRB,.590E-02_JPRB,.615E-02_JPRB,.637E-02_JPRB,.676E-02_JPRB,.692E-02_JPRB,.690E-02_JPRB,&
+&.670E-02_JPRB,.625E-02_JPRB,.594E-02_JPRB,.556E-02_JPRB,.524E-02_JPRB,.514E-02_JPRB,.844E-02_JPRB,&
+&.502E-02_JPRB,.494E-02_JPRB,.485E-02_JPRB,.738E-02_JPRB,.693E-02_JPRB,.390E-02_JPRB,.359E-02_JPRB,&
+&.358E-02_JPRB,.606E-02_JPRB,.678E-02_JPRB,.813E-02_JPRB,.942E-02_JPRB,.121E-01_JPRB,.148E-01_JPRB,&
+&.171E-01_JPRB,.208E-01_JPRB,.260E-01_JPRB,.298E-01_JPRB,.210E-01_JPRB,.230E-01_JPRB,.230E-01_JPRB,&
+&.221E-01_JPRB,.193E-01_JPRB,.179E-01_JPRB,.166E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,&
+&.162E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,.160E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,.138E-01_JPRB,&
+&.130E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,.968E-02_JPRB,&
+&.945E-02_JPRB,.917E-02_JPRB,.882E-02_JPRB,.850E-02_JPRB,.808E-02_JPRB,.719E-02_JPRB,.670E-02_JPRB,&
+&.619E-02_JPRB,.565E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 41 -70.0
+ZAER (:,41, 7) = (/&
+&.931E-02_JPRB,.931E-02_JPRB,.928E-02_JPRB,.940E-02_JPRB,.571E-02_JPRB,.583E-02_JPRB,.587E-02_JPRB,&
+&.592E-02_JPRB,.997E-02_JPRB,.101E-01_JPRB,.616E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.623E-02_JPRB,&
+&.607E-02_JPRB,.579E-02_JPRB,.932E-02_JPRB,.533E-02_JPRB,.506E-02_JPRB,.492E-02_JPRB,.478E-02_JPRB,&
+&.456E-02_JPRB,.442E-02_JPRB,.712E-02_JPRB,.659E-02_JPRB,.633E-02_JPRB,.364E-02_JPRB,.347E-02_JPRB,&
+&.348E-02_JPRB,.352E-02_JPRB,.382E-02_JPRB,.434E-02_JPRB,.814E-02_JPRB,.101E-01_JPRB,.124E-01_JPRB,&
+&.144E-01_JPRB,.176E-01_JPRB,.209E-01_JPRB,.230E-01_JPRB,.254E-01_JPRB,.260E-01_JPRB,.153E-01_JPRB,&
+&.145E-01_JPRB,.218E-01_JPRB,.208E-01_JPRB,.199E-01_JPRB,.197E-01_JPRB,.199E-01_JPRB,.202E-01_JPRB,&
+&.209E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,&
+&.110E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.952E-02_JPRB,.917E-02_JPRB,.872E-02_JPRB,.828E-02_JPRB,&
+&.801E-02_JPRB,.767E-02_JPRB,.728E-02_JPRB,.703E-02_JPRB,.673E-02_JPRB,.628E-02_JPRB,.606E-02_JPRB,&
+&.971E-02_JPRB,.559E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 42 -74.0
+ZAER (:,42, 7) = (/&
+&.984E-02_JPRB,.984E-02_JPRB,.975E-02_JPRB,.976E-02_JPRB,.976E-02_JPRB,.981E-02_JPRB,.983E-02_JPRB,&
+&.984E-02_JPRB,.988E-02_JPRB,.992E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.591E-02_JPRB,.584E-02_JPRB,&
+&.954E-02_JPRB,.920E-02_JPRB,.894E-02_JPRB,.860E-02_JPRB,.815E-02_JPRB,.473E-02_JPRB,.757E-02_JPRB,&
+&.713E-02_JPRB,.689E-02_JPRB,.665E-02_JPRB,.627E-02_JPRB,.368E-02_JPRB,.359E-02_JPRB,.352E-02_JPRB,&
+&.355E-02_JPRB,.361E-02_JPRB,.384E-02_JPRB,.419E-02_JPRB,.758E-02_JPRB,.883E-02_JPRB,.103E-01_JPRB,&
+&.115E-01_JPRB,.133E-01_JPRB,.150E-01_JPRB,.160E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.171E-01_JPRB,&
+&.167E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.159E-01_JPRB,.161E-01_JPRB,&
+&.164E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.983E-02_JPRB,.968E-02_JPRB,.937E-02_JPRB,&
+&.913E-02_JPRB,.893E-02_JPRB,.862E-02_JPRB,.834E-02_JPRB,.135E-01_JPRB,.131E-01_JPRB,.126E-01_JPRB,&
+&.122E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.100E-01_JPRB,.984E-02_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 43 -78.0
+ZAER (:,43, 7) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.993E-02_JPRB,&
+&.987E-02_JPRB,.978E-02_JPRB,.970E-02_JPRB,.963E-02_JPRB,.951E-02_JPRB,.935E-02_JPRB,.922E-02_JPRB,&
+&.902E-02_JPRB,.875E-02_JPRB,.855E-02_JPRB,.828E-02_JPRB,.476E-02_JPRB,.463E-02_JPRB,.448E-02_JPRB,&
+&.714E-02_JPRB,.696E-02_JPRB,.407E-02_JPRB,.394E-02_JPRB,.389E-02_JPRB,.385E-02_JPRB,.384E-02_JPRB,&
+&.388E-02_JPRB,.394E-02_JPRB,.412E-02_JPRB,.434E-02_JPRB,.758E-02_JPRB,.825E-02_JPRB,.896E-02_JPRB,&
+&.952E-02_JPRB,.104E-01_JPRB,.111E-01_JPRB,.116E-01_JPRB,.726E-02_JPRB,.124E-01_JPRB,.125E-01_JPRB,&
+&.126E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,&
+&.132E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,&
+&.129E-01_JPRB,.766E-02_JPRB,.126E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,&
+&.117E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 44 -82.0
+ZAER (:,44, 7) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.997E-02_JPRB,.988E-02_JPRB,&
+&.980E-02_JPRB,.968E-02_JPRB,.958E-02_JPRB,.949E-02_JPRB,.936E-02_JPRB,.922E-02_JPRB,.912E-02_JPRB,&
+&.897E-02_JPRB,.880E-02_JPRB,.868E-02_JPRB,.853E-02_JPRB,.834E-02_JPRB,.823E-02_JPRB,.486E-02_JPRB,&
+&.476E-02_JPRB,.471E-02_JPRB,.466E-02_JPRB,.461E-02_JPRB,.459E-02_JPRB,.458E-02_JPRB,.459E-02_JPRB,&
+&.462E-02_JPRB,.466E-02_JPRB,.475E-02_JPRB,.485E-02_JPRB,.494E-02_JPRB,.851E-02_JPRB,.877E-02_JPRB,&
+&.897E-02_JPRB,.928E-02_JPRB,.958E-02_JPRB,.978E-02_JPRB,.100E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,&
+&.105E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 45 -86.0
+ZAER (:,45, 7) = (/&
+&.999E-02_JPRB,.999E-02_JPRB,.993E-02_JPRB,.990E-02_JPRB,.986E-02_JPRB,.980E-02_JPRB,.975E-02_JPRB,&
+&.971E-02_JPRB,.965E-02_JPRB,.960E-02_JPRB,.956E-02_JPRB,.950E-02_JPRB,.944E-02_JPRB,.940E-02_JPRB,&
+&.934E-02_JPRB,.928E-02_JPRB,.924E-02_JPRB,.919E-02_JPRB,.913E-02_JPRB,.909E-02_JPRB,.906E-02_JPRB,&
+&.901E-02_JPRB,.899E-02_JPRB,.897E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.896E-02_JPRB,&
+&.898E-02_JPRB,.900E-02_JPRB,.904E-02_JPRB,.909E-02_JPRB,.913E-02_JPRB,.919E-02_JPRB,.925E-02_JPRB,&
+&.930E-02_JPRB,.938E-02_JPRB,.946E-02_JPRB,.951E-02_JPRB,.959E-02_JPRB,.967E-02_JPRB,.972E-02_JPRB,&
+&.977E-02_JPRB,.986E-02_JPRB,.990E-02_JPRB,.994E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB/)
+!-- Organic Aerosol          month:  7 --- lat: 46 -90.0
+ZAER (:,46, 7) = (/&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,&
+&.968E-02_JPRB,.968E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=7   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_07
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_08.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_08.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_08.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_08
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,8:8)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  8 --- lat:  1  90.0
+ZAER (:, 1, 8) = (/&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  2  86.0
+ZAER (:, 2, 8) = (/&
+&.184E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,.188E-02_JPRB,.189E-02_JPRB,.191E-02_JPRB,.193E-02_JPRB,&
+&.194E-02_JPRB,.195E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.195E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,&
+&.191E-02_JPRB,.190E-02_JPRB,.189E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.185E-02_JPRB,.182E-02_JPRB,&
+&.181E-02_JPRB,.180E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,&
+&.170E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,&
+&.161E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.158E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,&
+&.161E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.168E-02_JPRB,&
+&.169E-02_JPRB,.171E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,&
+&.181E-02_JPRB,.184E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  3  82.0
+ZAER (:, 3, 8) = (/&
+&.203E-02_JPRB,.203E-02_JPRB,.211E-02_JPRB,.216E-02_JPRB,.220E-02_JPRB,.226E-02_JPRB,.230E-02_JPRB,&
+&.233E-02_JPRB,.237E-02_JPRB,.239E-02_JPRB,.240E-02_JPRB,.241E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,&
+&.238E-02_JPRB,.236E-02_JPRB,.234E-02_JPRB,.232E-02_JPRB,.228E-02_JPRB,.226E-02_JPRB,.223E-02_JPRB,&
+&.219E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.208E-02_JPRB,.205E-02_JPRB,.202E-02_JPRB,.197E-02_JPRB,&
+&.194E-02_JPRB,.191E-02_JPRB,.185E-02_JPRB,.181E-02_JPRB,.177E-02_JPRB,.171E-02_JPRB,.167E-02_JPRB,&
+&.164E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,&
+&.145E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,&
+&.143E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.154E-02_JPRB,.158E-02_JPRB,&
+&.161E-02_JPRB,.165E-02_JPRB,.170E-02_JPRB,.174E-02_JPRB,.178E-02_JPRB,.185E-02_JPRB,.190E-02_JPRB,&
+&.195E-02_JPRB,.203E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  4  78.0
+ZAER (:, 4, 8) = (/&
+&.240E-02_JPRB,.240E-02_JPRB,.256E-02_JPRB,.264E-02_JPRB,.271E-02_JPRB,.281E-02_JPRB,.287E-02_JPRB,&
+&.291E-02_JPRB,.297E-02_JPRB,.298E-02_JPRB,.299E-02_JPRB,.297E-02_JPRB,.293E-02_JPRB,.290E-02_JPRB,&
+&.284E-02_JPRB,.278E-02_JPRB,.274E-02_JPRB,.269E-02_JPRB,.263E-02_JPRB,.259E-02_JPRB,.255E-02_JPRB,&
+&.248E-02_JPRB,.245E-02_JPRB,.241E-02_JPRB,.235E-02_JPRB,.232E-02_JPRB,.228E-02_JPRB,.222E-02_JPRB,&
+&.218E-02_JPRB,.214E-02_JPRB,.206E-02_JPRB,.199E-02_JPRB,.194E-02_JPRB,.185E-02_JPRB,.178E-02_JPRB,&
+&.172E-02_JPRB,.165E-02_JPRB,.159E-02_JPRB,.156E-02_JPRB,.152E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,&
+&.144E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,&
+&.137E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,.146E-02_JPRB,.151E-02_JPRB,.156E-02_JPRB,&
+&.161E-02_JPRB,.167E-02_JPRB,.176E-02_JPRB,.183E-02_JPRB,.192E-02_JPRB,.205E-02_JPRB,.214E-02_JPRB,&
+&.223E-02_JPRB,.239E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  5  74.0
+ZAER (:, 5, 8) = (/&
+&.302E-02_JPRB,.303E-02_JPRB,.322E-02_JPRB,.329E-02_JPRB,.335E-02_JPRB,.341E-02_JPRB,.345E-02_JPRB,&
+&.348E-02_JPRB,.352E-02_JPRB,.351E-02_JPRB,.348E-02_JPRB,.341E-02_JPRB,.330E-02_JPRB,.323E-02_JPRB,&
+&.313E-02_JPRB,.303E-02_JPRB,.298E-02_JPRB,.291E-02_JPRB,.283E-02_JPRB,.278E-02_JPRB,.273E-02_JPRB,&
+&.267E-02_JPRB,.265E-02_JPRB,.262E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,.257E-02_JPRB,.255E-02_JPRB,&
+&.252E-02_JPRB,.249E-02_JPRB,.243E-02_JPRB,.236E-02_JPRB,.229E-02_JPRB,.219E-02_JPRB,.209E-02_JPRB,&
+&.202E-02_JPRB,.192E-02_JPRB,.184E-02_JPRB,.179E-02_JPRB,.174E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,&
+&.167E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.171E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.176E-02_JPRB,&
+&.177E-02_JPRB,.176E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,.165E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,&
+&.156E-02_JPRB,.155E-02_JPRB,.156E-02_JPRB,.159E-02_JPRB,.161E-02_JPRB,.166E-02_JPRB,.172E-02_JPRB,&
+&.178E-02_JPRB,.188E-02_JPRB,.203E-02_JPRB,.214E-02_JPRB,.228E-02_JPRB,.251E-02_JPRB,.264E-02_JPRB,&
+&.279E-02_JPRB,.302E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  6  70.0
+ZAER (:, 6, 8) = (/&
+&.391E-02_JPRB,.392E-02_JPRB,.399E-02_JPRB,.396E-02_JPRB,.393E-02_JPRB,.384E-02_JPRB,.382E-02_JPRB,&
+&.381E-02_JPRB,.380E-02_JPRB,.377E-02_JPRB,.372E-02_JPRB,.359E-02_JPRB,.343E-02_JPRB,.333E-02_JPRB,&
+&.320E-02_JPRB,.312E-02_JPRB,.307E-02_JPRB,.301E-02_JPRB,.293E-02_JPRB,.288E-02_JPRB,.283E-02_JPRB,&
+&.277E-02_JPRB,.276E-02_JPRB,.274E-02_JPRB,.278E-02_JPRB,.281E-02_JPRB,.284E-02_JPRB,.288E-02_JPRB,&
+&.289E-02_JPRB,.290E-02_JPRB,.288E-02_JPRB,.284E-02_JPRB,.280E-02_JPRB,.269E-02_JPRB,.258E-02_JPRB,&
+&.250E-02_JPRB,.239E-02_JPRB,.231E-02_JPRB,.226E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,&
+&.218E-02_JPRB,.224E-02_JPRB,.230E-02_JPRB,.237E-02_JPRB,.249E-02_JPRB,.256E-02_JPRB,.262E-02_JPRB,&
+&.271E-02_JPRB,.270E-02_JPRB,.268E-02_JPRB,.254E-02_JPRB,.241E-02_JPRB,.230E-02_JPRB,.214E-02_JPRB,&
+&.207E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,.206E-02_JPRB,.211E-02_JPRB,.221E-02_JPRB,&
+&.232E-02_JPRB,.247E-02_JPRB,.273E-02_JPRB,.290E-02_JPRB,.311E-02_JPRB,.340E-02_JPRB,.355E-02_JPRB,&
+&.371E-02_JPRB,.391E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  7  66.0
+ZAER (:, 7, 8) = (/&
+&.465E-02_JPRB,.465E-02_JPRB,.449E-02_JPRB,.432E-02_JPRB,.416E-02_JPRB,.393E-02_JPRB,.388E-02_JPRB,&
+&.385E-02_JPRB,.384E-02_JPRB,.381E-02_JPRB,.376E-02_JPRB,.363E-02_JPRB,.346E-02_JPRB,.336E-02_JPRB,&
+&.324E-02_JPRB,.317E-02_JPRB,.313E-02_JPRB,.310E-02_JPRB,.304E-02_JPRB,.299E-02_JPRB,.294E-02_JPRB,&
+&.287E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.293E-02_JPRB,.299E-02_JPRB,.306E-02_JPRB,.315E-02_JPRB,&
+&.320E-02_JPRB,.324E-02_JPRB,.328E-02_JPRB,.327E-02_JPRB,.324E-02_JPRB,.315E-02_JPRB,.307E-02_JPRB,&
+&.302E-02_JPRB,.297E-02_JPRB,.292E-02_JPRB,.290E-02_JPRB,.288E-02_JPRB,.291E-02_JPRB,.295E-02_JPRB,&
+&.303E-02_JPRB,.317E-02_JPRB,.326E-02_JPRB,.337E-02_JPRB,.358E-02_JPRB,.373E-02_JPRB,.389E-02_JPRB,&
+&.417E-02_JPRB,.418E-02_JPRB,.416E-02_JPRB,.390E-02_JPRB,.362E-02_JPRB,.339E-02_JPRB,.303E-02_JPRB,&
+&.288E-02_JPRB,.279E-02_JPRB,.274E-02_JPRB,.278E-02_JPRB,.283E-02_JPRB,.293E-02_JPRB,.314E-02_JPRB,&
+&.334E-02_JPRB,.365E-02_JPRB,.405E-02_JPRB,.425E-02_JPRB,.446E-02_JPRB,.461E-02_JPRB,.465E-02_JPRB,&
+&.468E-02_JPRB,.466E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  8  62.0
+ZAER (:, 8, 8) = (/&
+&.468E-02_JPRB,.467E-02_JPRB,.445E-02_JPRB,.428E-02_JPRB,.411E-02_JPRB,.384E-02_JPRB,.382E-02_JPRB,&
+&.381E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.383E-02_JPRB,.372E-02_JPRB,.356E-02_JPRB,.347E-02_JPRB,&
+&.336E-02_JPRB,.330E-02_JPRB,.327E-02_JPRB,.325E-02_JPRB,.322E-02_JPRB,.319E-02_JPRB,.315E-02_JPRB,&
+&.311E-02_JPRB,.309E-02_JPRB,.306E-02_JPRB,.311E-02_JPRB,.317E-02_JPRB,.323E-02_JPRB,.341E-02_JPRB,&
+&.348E-02_JPRB,.354E-02_JPRB,.356E-02_JPRB,.353E-02_JPRB,.350E-02_JPRB,.345E-02_JPRB,.344E-02_JPRB,&
+&.346E-02_JPRB,.353E-02_JPRB,.363E-02_JPRB,.369E-02_JPRB,.378E-02_JPRB,.396E-02_JPRB,.409E-02_JPRB,&
+&.426E-02_JPRB,.442E-02_JPRB,.449E-02_JPRB,.455E-02_JPRB,.472E-02_JPRB,.492E-02_JPRB,.514E-02_JPRB,&
+&.553E-02_JPRB,.553E-02_JPRB,.551E-02_JPRB,.525E-02_JPRB,.494E-02_JPRB,.466E-02_JPRB,.412E-02_JPRB,&
+&.385E-02_JPRB,.369E-02_JPRB,.360E-02_JPRB,.366E-02_JPRB,.373E-02_JPRB,.389E-02_JPRB,.429E-02_JPRB,&
+&.463E-02_JPRB,.513E-02_JPRB,.565E-02_JPRB,.580E-02_JPRB,.590E-02_JPRB,.557E-02_JPRB,.530E-02_JPRB,&
+&.501E-02_JPRB,.469E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat:  9  58.0
+ZAER (:, 9, 8) = (/&
+&.463E-02_JPRB,.463E-02_JPRB,.448E-02_JPRB,.441E-02_JPRB,.433E-02_JPRB,.412E-02_JPRB,.407E-02_JPRB,&
+&.405E-02_JPRB,.408E-02_JPRB,.407E-02_JPRB,.403E-02_JPRB,.390E-02_JPRB,.375E-02_JPRB,.365E-02_JPRB,&
+&.351E-02_JPRB,.343E-02_JPRB,.340E-02_JPRB,.337E-02_JPRB,.339E-02_JPRB,.342E-02_JPRB,.346E-02_JPRB,&
+&.351E-02_JPRB,.352E-02_JPRB,.353E-02_JPRB,.354E-02_JPRB,.359E-02_JPRB,.365E-02_JPRB,.392E-02_JPRB,&
+&.402E-02_JPRB,.407E-02_JPRB,.395E-02_JPRB,.385E-02_JPRB,.380E-02_JPRB,.382E-02_JPRB,.384E-02_JPRB,&
+&.389E-02_JPRB,.403E-02_JPRB,.431E-02_JPRB,.451E-02_JPRB,.477E-02_JPRB,.516E-02_JPRB,.542E-02_JPRB,&
+&.575E-02_JPRB,.593E-02_JPRB,.587E-02_JPRB,.576E-02_JPRB,.580E-02_JPRB,.592E-02_JPRB,.605E-02_JPRB,&
+&.619E-02_JPRB,.616E-02_JPRB,.614E-02_JPRB,.610E-02_JPRB,.594E-02_JPRB,.576E-02_JPRB,.529E-02_JPRB,&
+&.501E-02_JPRB,.484E-02_JPRB,.469E-02_JPRB,.468E-02_JPRB,.472E-02_JPRB,.486E-02_JPRB,.537E-02_JPRB,&
+&.580E-02_JPRB,.642E-02_JPRB,.703E-02_JPRB,.712E-02_JPRB,.710E-02_JPRB,.629E-02_JPRB,.576E-02_JPRB,&
+&.520E-02_JPRB,.465E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 10  54.0
+ZAER (:,10, 8) = (/&
+&.487E-02_JPRB,.487E-02_JPRB,.478E-02_JPRB,.476E-02_JPRB,.472E-02_JPRB,.455E-02_JPRB,.443E-02_JPRB,&
+&.434E-02_JPRB,.430E-02_JPRB,.425E-02_JPRB,.418E-02_JPRB,.403E-02_JPRB,.391E-02_JPRB,.381E-02_JPRB,&
+&.365E-02_JPRB,.357E-02_JPRB,.355E-02_JPRB,.354E-02_JPRB,.361E-02_JPRB,.369E-02_JPRB,.380E-02_JPRB,&
+&.394E-02_JPRB,.241E-02_JPRB,.408E-02_JPRB,.409E-02_JPRB,.422E-02_JPRB,.435E-02_JPRB,.478E-02_JPRB,&
+&.494E-02_JPRB,.504E-02_JPRB,.485E-02_JPRB,.469E-02_JPRB,.459E-02_JPRB,.454E-02_JPRB,.448E-02_JPRB,&
+&.447E-02_JPRB,.452E-02_JPRB,.485E-02_JPRB,.514E-02_JPRB,.558E-02_JPRB,.610E-02_JPRB,.650E-02_JPRB,&
+&.702E-02_JPRB,.714E-02_JPRB,.709E-02_JPRB,.700E-02_JPRB,.694E-02_JPRB,.681E-02_JPRB,.668E-02_JPRB,&
+&.657E-02_JPRB,.645E-02_JPRB,.635E-02_JPRB,.638E-02_JPRB,.641E-02_JPRB,.640E-02_JPRB,.622E-02_JPRB,&
+&.603E-02_JPRB,.589E-02_JPRB,.569E-02_JPRB,.554E-02_JPRB,.552E-02_JPRB,.562E-02_JPRB,.611E-02_JPRB,&
+&.649E-02_JPRB,.704E-02_JPRB,.782E-02_JPRB,.804E-02_JPRB,.817E-02_JPRB,.704E-02_JPRB,.630E-02_JPRB,&
+&.550E-02_JPRB,.489E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 11  50.0
+ZAER (:,11, 8) = (/&
+&.544E-02_JPRB,.543E-02_JPRB,.503E-02_JPRB,.493E-02_JPRB,.485E-02_JPRB,.479E-02_JPRB,.466E-02_JPRB,&
+&.456E-02_JPRB,.439E-02_JPRB,.436E-02_JPRB,.433E-02_JPRB,.427E-02_JPRB,.431E-02_JPRB,.426E-02_JPRB,&
+&.410E-02_JPRB,.400E-02_JPRB,.398E-02_JPRB,.399E-02_JPRB,.409E-02_JPRB,.418E-02_JPRB,.429E-02_JPRB,&
+&.443E-02_JPRB,.271E-02_JPRB,.460E-02_JPRB,.470E-02_JPRB,.495E-02_JPRB,.523E-02_JPRB,.603E-02_JPRB,&
+&.642E-02_JPRB,.670E-02_JPRB,.672E-02_JPRB,.666E-02_JPRB,.658E-02_JPRB,.632E-02_JPRB,.611E-02_JPRB,&
+&.596E-02_JPRB,.576E-02_JPRB,.604E-02_JPRB,.633E-02_JPRB,.679E-02_JPRB,.730E-02_JPRB,.769E-02_JPRB,&
+&.821E-02_JPRB,.870E-02_JPRB,.907E-02_JPRB,.950E-02_JPRB,.923E-02_JPRB,.870E-02_JPRB,.813E-02_JPRB,&
+&.751E-02_JPRB,.720E-02_JPRB,.693E-02_JPRB,.687E-02_JPRB,.692E-02_JPRB,.694E-02_JPRB,.691E-02_JPRB,&
+&.683E-02_JPRB,.673E-02_JPRB,.652E-02_JPRB,.644E-02_JPRB,.649E-02_JPRB,.671E-02_JPRB,.713E-02_JPRB,&
+&.739E-02_JPRB,.772E-02_JPRB,.866E-02_JPRB,.906E-02_JPRB,.943E-02_JPRB,.826E-02_JPRB,.734E-02_JPRB,&
+&.632E-02_JPRB,.547E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 12  46.0
+ZAER (:,12, 8) = (/&
+&.610E-02_JPRB,.608E-02_JPRB,.553E-02_JPRB,.537E-02_JPRB,.523E-02_JPRB,.515E-02_JPRB,.499E-02_JPRB,&
+&.487E-02_JPRB,.474E-02_JPRB,.479E-02_JPRB,.482E-02_JPRB,.485E-02_JPRB,.499E-02_JPRB,.505E-02_JPRB,&
+&.508E-02_JPRB,.501E-02_JPRB,.499E-02_JPRB,.498E-02_JPRB,.506E-02_JPRB,.513E-02_JPRB,.521E-02_JPRB,&
+&.534E-02_JPRB,.325E-02_JPRB,.552E-02_JPRB,.577E-02_JPRB,.626E-02_JPRB,.678E-02_JPRB,.827E-02_JPRB,&
+&.917E-02_JPRB,.986E-02_JPRB,.102E-01_JPRB,.101E-01_JPRB,.996E-02_JPRB,.950E-02_JPRB,.898E-02_JPRB,&
+&.875E-02_JPRB,.870E-02_JPRB,.882E-02_JPRB,.893E-02_JPRB,.909E-02_JPRB,.949E-02_JPRB,.101E-01_JPRB,&
+&.109E-01_JPRB,.130E-01_JPRB,.142E-01_JPRB,.155E-01_JPRB,.144E-01_JPRB,.134E-01_JPRB,.123E-01_JPRB,&
+&.104E-01_JPRB,.959E-02_JPRB,.890E-02_JPRB,.833E-02_JPRB,.811E-02_JPRB,.795E-02_JPRB,.784E-02_JPRB,&
+&.772E-02_JPRB,.760E-02_JPRB,.734E-02_JPRB,.735E-02_JPRB,.752E-02_JPRB,.802E-02_JPRB,.912E-02_JPRB,&
+&.967E-02_JPRB,.102E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.955E-02_JPRB,.859E-02_JPRB,&
+&.748E-02_JPRB,.614E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 13  42.0
+ZAER (:,13, 8) = (/&
+&.770E-02_JPRB,.768E-02_JPRB,.702E-02_JPRB,.669E-02_JPRB,.640E-02_JPRB,.608E-02_JPRB,.580E-02_JPRB,&
+&.562E-02_JPRB,.563E-02_JPRB,.576E-02_JPRB,.584E-02_JPRB,.590E-02_JPRB,.607E-02_JPRB,.622E-02_JPRB,&
+&.644E-02_JPRB,.646E-02_JPRB,.649E-02_JPRB,.655E-02_JPRB,.658E-02_JPRB,.656E-02_JPRB,.653E-02_JPRB,&
+&.673E-02_JPRB,.414E-02_JPRB,.426E-02_JPRB,.852E-02_JPRB,.101E-01_JPRB,.117E-01_JPRB,.134E-01_JPRB,&
+&.137E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.140E-01_JPRB,.157E-01_JPRB,&
+&.184E-01_JPRB,.228E-01_JPRB,.241E-01_JPRB,.251E-01_JPRB,.224E-01_JPRB,.208E-01_JPRB,.192E-01_JPRB,&
+&.153E-01_JPRB,.141E-01_JPRB,.130E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,.943E-02_JPRB,&
+&.916E-02_JPRB,.896E-02_JPRB,.869E-02_JPRB,.873E-02_JPRB,.903E-02_JPRB,.986E-02_JPRB,.123E-01_JPRB,&
+&.137E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,.111E-01_JPRB,&
+&.947E-02_JPRB,.776E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 14  38.0
+ZAER (:,14, 8) = (/&
+&.118E-01_JPRB,.117E-01_JPRB,.993E-02_JPRB,.929E-02_JPRB,.872E-02_JPRB,.814E-02_JPRB,.780E-02_JPRB,&
+&.758E-02_JPRB,.750E-02_JPRB,.761E-02_JPRB,.770E-02_JPRB,.786E-02_JPRB,.784E-02_JPRB,.794E-02_JPRB,&
+&.824E-02_JPRB,.823E-02_JPRB,.825E-02_JPRB,.830E-02_JPRB,.821E-02_JPRB,.814E-02_JPRB,.805E-02_JPRB,&
+&.898E-02_JPRB,.581E-02_JPRB,.626E-02_JPRB,.897E-02_JPRB,.191E-01_JPRB,.228E-01_JPRB,.216E-01_JPRB,&
+&.197E-01_JPRB,.183E-01_JPRB,.178E-01_JPRB,.173E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.174E-01_JPRB,&
+&.174E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.186E-01_JPRB,.200E-01_JPRB,.246E-01_JPRB,.288E-01_JPRB,&
+&.345E-01_JPRB,.407E-01_JPRB,.402E-01_JPRB,.384E-01_JPRB,.321E-01_JPRB,.290E-01_JPRB,.260E-01_JPRB,&
+&.209E-01_JPRB,.196E-01_JPRB,.182E-01_JPRB,.155E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,.119E-01_JPRB,&
+&.115E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.137E-01_JPRB,.182E-01_JPRB,&
+&.209E-01_JPRB,.239E-01_JPRB,.130E-01_JPRB,.207E-01_JPRB,.198E-01_JPRB,.173E-01_JPRB,.155E-01_JPRB,&
+&.136E-01_JPRB,.118E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 15  34.0
+ZAER (:,15, 8) = (/&
+&.174E-01_JPRB,.173E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,.124E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,&
+&.110E-01_JPRB,.101E-01_JPRB,.983E-02_JPRB,.973E-02_JPRB,.985E-02_JPRB,.969E-02_JPRB,.974E-02_JPRB,&
+&.100E-01_JPRB,.989E-02_JPRB,.982E-02_JPRB,.976E-02_JPRB,.946E-02_JPRB,.947E-02_JPRB,.954E-02_JPRB,&
+&.127E-01_JPRB,.915E-02_JPRB,.108E-01_JPRB,.184E-01_JPRB,.233E-01_JPRB,.459E-01_JPRB,.381E-01_JPRB,&
+&.323E-01_JPRB,.279E-01_JPRB,.262E-01_JPRB,.242E-01_JPRB,.230E-01_JPRB,.222E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.222E-01_JPRB,.245E-01_JPRB,.276E-01_JPRB,.334E-01_JPRB,.267E-01_JPRB,.509E-01_JPRB,&
+&.584E-01_JPRB,.619E-01_JPRB,.578E-01_JPRB,.515E-01_JPRB,.396E-01_JPRB,.347E-01_JPRB,.299E-01_JPRB,&
+&.248E-01_JPRB,.238E-01_JPRB,.227E-01_JPRB,.204E-01_JPRB,.183E-01_JPRB,.166E-01_JPRB,.147E-01_JPRB,&
+&.141E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,.150E-01_JPRB,.101E-01_JPRB,.214E-01_JPRB,.306E-01_JPRB,&
+&.353E-01_JPRB,.241E-01_JPRB,.225E-01_JPRB,.207E-01_JPRB,.303E-01_JPRB,.237E-01_JPRB,.212E-01_JPRB,&
+&.189E-01_JPRB,.174E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 16  30.0
+ZAER (:,16, 8) = (/&
+&.203E-01_JPRB,.202E-01_JPRB,.178E-01_JPRB,.166E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,&
+&.141E-01_JPRB,.123E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.110E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.105E-01_JPRB,.112E-01_JPRB,&
+&.181E-01_JPRB,.141E-01_JPRB,.176E-01_JPRB,.368E-01_JPRB,.466E-01_JPRB,.911E-01_JPRB,.682E-01_JPRB,&
+&.561E-01_JPRB,.468E-01_JPRB,.417E-01_JPRB,.349E-01_JPRB,.303E-01_JPRB,.262E-01_JPRB,.261E-01_JPRB,&
+&.263E-01_JPRB,.269E-01_JPRB,.338E-01_JPRB,.425E-01_JPRB,.580E-01_JPRB,.466E-01_JPRB,.509E-01_JPRB,&
+&.543E-01_JPRB,.860E-01_JPRB,.753E-01_JPRB,.613E-01_JPRB,.421E-01_JPRB,.361E-01_JPRB,.307E-01_JPRB,&
+&.261E-01_JPRB,.255E-01_JPRB,.249E-01_JPRB,.242E-01_JPRB,.218E-01_JPRB,.199E-01_JPRB,.174E-01_JPRB,&
+&.164E-01_JPRB,.160E-01_JPRB,.166E-01_JPRB,.117E-01_JPRB,.147E-01_JPRB,.217E-01_JPRB,.322E-01_JPRB,&
+&.371E-01_JPRB,.415E-01_JPRB,.358E-01_JPRB,.308E-01_JPRB,.407E-01_JPRB,.298E-01_JPRB,.260E-01_JPRB,&
+&.225E-01_JPRB,.204E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 17  26.0
+ZAER (:,17, 8) = (/&
+&.191E-01_JPRB,.190E-01_JPRB,.181E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,.174E-01_JPRB,.164E-01_JPRB,&
+&.153E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,&
+&.115E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.126E-01_JPRB,.151E-01_JPRB,&
+&.277E-01_JPRB,.231E-01_JPRB,.300E-01_JPRB,.722E-01_JPRB,.877E-01_JPRB,.996E-01_JPRB,.109E+00_JPRB,&
+&.866E-01_JPRB,.686E-01_JPRB,.548E-01_JPRB,.427E-01_JPRB,.343E-01_JPRB,.267E-01_JPRB,.268E-01_JPRB,&
+&.280E-01_JPRB,.315E-01_JPRB,.463E-01_JPRB,.637E-01_JPRB,.567E-01_JPRB,.754E-01_JPRB,.792E-01_JPRB,&
+&.790E-01_JPRB,.112E+00_JPRB,.917E-01_JPRB,.665E-01_JPRB,.402E-01_JPRB,.341E-01_JPRB,.291E-01_JPRB,&
+&.255E-01_JPRB,.252E-01_JPRB,.250E-01_JPRB,.257E-01_JPRB,.235E-01_JPRB,.216E-01_JPRB,.189E-01_JPRB,&
+&.179E-01_JPRB,.179E-01_JPRB,.199E-01_JPRB,.161E-01_JPRB,.222E-01_JPRB,.356E-01_JPRB,.547E-01_JPRB,&
+&.618E-01_JPRB,.660E-01_JPRB,.486E-01_JPRB,.386E-01_JPRB,.456E-01_JPRB,.320E-01_JPRB,.270E-01_JPRB,&
+&.222E-01_JPRB,.192E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 18  22.0
+ZAER (:,18, 8) = (/&
+&.159E-01_JPRB,.159E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,.152E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,&
+&.144E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,.117E-01_JPRB,&
+&.125E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.155E-01_JPRB,.203E-01_JPRB,.267E-01_JPRB,&
+&.505E-01_JPRB,.429E-01_JPRB,.565E-01_JPRB,.125E+00_JPRB,.139E+00_JPRB,.149E+00_JPRB,.884E-01_JPRB,&
+&.112E+00_JPRB,.828E-01_JPRB,.556E-01_JPRB,.420E-01_JPRB,.329E-01_JPRB,.257E-01_JPRB,.270E-01_JPRB,&
+&.303E-01_JPRB,.392E-01_JPRB,.652E-01_JPRB,.927E-01_JPRB,.834E-01_JPRB,.104E+00_JPRB,.105E+00_JPRB,&
+&.995E-01_JPRB,.765E-01_JPRB,.998E-01_JPRB,.408E-01_JPRB,.371E-01_JPRB,.310E-01_JPRB,.261E-01_JPRB,&
+&.239E-01_JPRB,.239E-01_JPRB,.239E-01_JPRB,.249E-01_JPRB,.232E-01_JPRB,.216E-01_JPRB,.191E-01_JPRB,&
+&.189E-01_JPRB,.199E-01_JPRB,.245E-01_JPRB,.383E-01_JPRB,.334E-01_JPRB,.543E-01_JPRB,.816E-01_JPRB,&
+&.881E-01_JPRB,.860E-01_JPRB,.540E-01_JPRB,.661E-01_JPRB,.424E-01_JPRB,.287E-01_JPRB,.236E-01_JPRB,&
+&.189E-01_JPRB,.160E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 19  18.0
+ZAER (:,19, 8) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,&
+&.121E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.121E-01_JPRB,.131E-01_JPRB,&
+&.149E-01_JPRB,.167E-01_JPRB,.181E-01_JPRB,.201E-01_JPRB,.291E-01_JPRB,.389E-01_JPRB,.517E-01_JPRB,&
+&.936E-01_JPRB,.764E-01_JPRB,.981E-01_JPRB,.174E+00_JPRB,.179E+00_JPRB,.179E+00_JPRB,.100E+00_JPRB,&
+&.725E-01_JPRB,.832E-01_JPRB,.479E-01_JPRB,.372E-01_JPRB,.306E-01_JPRB,.271E-01_JPRB,.309E-01_JPRB,&
+&.373E-01_JPRB,.530E-01_JPRB,.943E-01_JPRB,.129E+00_JPRB,.109E+00_JPRB,.121E+00_JPRB,.116E+00_JPRB,&
+&.104E+00_JPRB,.733E-01_JPRB,.952E-01_JPRB,.400E-01_JPRB,.358E-01_JPRB,.291E-01_JPRB,.236E-01_JPRB,&
+&.223E-01_JPRB,.223E-01_JPRB,.223E-01_JPRB,.227E-01_JPRB,.218E-01_JPRB,.209E-01_JPRB,.193E-01_JPRB,&
+&.204E-01_JPRB,.228E-01_JPRB,.301E-01_JPRB,.521E-01_JPRB,.762E-01_JPRB,.734E-01_JPRB,.974E-01_JPRB,&
+&.979E-01_JPRB,.848E-01_JPRB,.471E-01_JPRB,.544E-01_JPRB,.334E-01_JPRB,.225E-01_JPRB,.187E-01_JPRB,&
+&.152E-01_JPRB,.131E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 20  14.0
+ZAER (:,20, 8) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.976E-02_JPRB,.984E-02_JPRB,.989E-02_JPRB,.990E-02_JPRB,.998E-02_JPRB,&
+&.100E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.140E-01_JPRB,.162E-01_JPRB,&
+&.199E-01_JPRB,.252E-01_JPRB,.300E-01_JPRB,.370E-01_JPRB,.540E-01_JPRB,.689E-01_JPRB,.874E-01_JPRB,&
+&.856E-01_JPRB,.110E+00_JPRB,.137E+00_JPRB,.199E+00_JPRB,.193E+00_JPRB,.183E+00_JPRB,.973E-01_JPRB,&
+&.670E-01_JPRB,.714E-01_JPRB,.403E-01_JPRB,.341E-01_JPRB,.309E-01_JPRB,.317E-01_JPRB,.387E-01_JPRB,&
+&.489E-01_JPRB,.724E-01_JPRB,.132E+00_JPRB,.168E+00_JPRB,.127E+00_JPRB,.126E+00_JPRB,.116E+00_JPRB,&
+&.994E-01_JPRB,.671E-01_JPRB,.523E-01_JPRB,.624E-01_JPRB,.350E-01_JPRB,.286E-01_JPRB,.232E-01_JPRB,&
+&.221E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.210E-01_JPRB,.208E-01_JPRB,.206E-01_JPRB,.206E-01_JPRB,&
+&.236E-01_JPRB,.274E-01_JPRB,.369E-01_JPRB,.627E-01_JPRB,.880E-01_JPRB,.133E+00_JPRB,.879E-01_JPRB,&
+&.809E-01_JPRB,.102E+00_JPRB,.554E-01_JPRB,.386E-01_JPRB,.246E-01_JPRB,.167E-01_JPRB,.141E-01_JPRB,&
+&.118E-01_JPRB,.103E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 21  10.0
+ZAER (:,21, 8) = (/&
+&.778E-02_JPRB,.777E-02_JPRB,.743E-02_JPRB,.763E-02_JPRB,.784E-02_JPRB,.837E-02_JPRB,.878E-02_JPRB,&
+&.918E-02_JPRB,.993E-02_JPRB,.105E-01_JPRB,.113E-01_JPRB,.132E-01_JPRB,.168E-01_JPRB,.206E-01_JPRB,&
+&.274E-01_JPRB,.365E-01_JPRB,.456E-01_JPRB,.590E-01_JPRB,.846E-01_JPRB,.102E+00_JPRB,.122E+00_JPRB,&
+&.103E+00_JPRB,.127E+00_JPRB,.153E+00_JPRB,.201E+00_JPRB,.189E+00_JPRB,.173E+00_JPRB,.852E-01_JPRB,&
+&.563E-01_JPRB,.564E-01_JPRB,.340E-01_JPRB,.324E-01_JPRB,.325E-01_JPRB,.374E-01_JPRB,.468E-01_JPRB,&
+&.607E-01_JPRB,.930E-01_JPRB,.169E+00_JPRB,.206E+00_JPRB,.143E+00_JPRB,.133E+00_JPRB,.119E+00_JPRB,&
+&.973E-01_JPRB,.646E-01_JPRB,.826E-01_JPRB,.573E-01_JPRB,.344E-01_JPRB,.292E-01_JPRB,.249E-01_JPRB,&
+&.233E-01_JPRB,.227E-01_JPRB,.220E-01_JPRB,.207E-01_JPRB,.206E-01_JPRB,.209E-01_JPRB,.232E-01_JPRB,&
+&.292E-01_JPRB,.347E-01_JPRB,.451E-01_JPRB,.664E-01_JPRB,.841E-01_JPRB,.112E+00_JPRB,.102E+00_JPRB,&
+&.877E-01_JPRB,.619E-01_JPRB,.382E-01_JPRB,.284E-01_JPRB,.194E-01_JPRB,.131E-01_JPRB,.109E-01_JPRB,&
+&.885E-02_JPRB,.781E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 22   6.0
+ZAER (:,22, 8) = (/&
+&.594E-02_JPRB,.594E-02_JPRB,.598E-02_JPRB,.644E-02_JPRB,.688E-02_JPRB,.772E-02_JPRB,.830E-02_JPRB,&
+&.887E-02_JPRB,.101E-01_JPRB,.109E-01_JPRB,.119E-01_JPRB,.143E-01_JPRB,.187E-01_JPRB,.235E-01_JPRB,&
+&.322E-01_JPRB,.455E-01_JPRB,.585E-01_JPRB,.778E-01_JPRB,.106E+00_JPRB,.125E+00_JPRB,.890E-01_JPRB,&
+&.114E+00_JPRB,.133E+00_JPRB,.153E+00_JPRB,.181E+00_JPRB,.165E+00_JPRB,.146E+00_JPRB,.711E-01_JPRB,&
+&.467E-01_JPRB,.466E-01_JPRB,.305E-01_JPRB,.313E-01_JPRB,.331E-01_JPRB,.400E-01_JPRB,.512E-01_JPRB,&
+&.675E-01_JPRB,.106E+00_JPRB,.182E+00_JPRB,.219E+00_JPRB,.150E+00_JPRB,.135E+00_JPRB,.118E+00_JPRB,&
+&.949E-01_JPRB,.636E-01_JPRB,.810E-01_JPRB,.555E-01_JPRB,.356E-01_JPRB,.311E-01_JPRB,.273E-01_JPRB,&
+&.241E-01_JPRB,.231E-01_JPRB,.221E-01_JPRB,.210E-01_JPRB,.209E-01_JPRB,.216E-01_JPRB,.263E-01_JPRB,&
+&.348E-01_JPRB,.416E-01_JPRB,.516E-01_JPRB,.654E-01_JPRB,.731E-01_JPRB,.802E-01_JPRB,.677E-01_JPRB,&
+&.571E-01_JPRB,.248E-01_JPRB,.172E-01_JPRB,.225E-01_JPRB,.159E-01_JPRB,.105E-01_JPRB,.852E-02_JPRB,&
+&.668E-02_JPRB,.596E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 23   2.0
+ZAER (:,23, 8) = (/&
+&.493E-02_JPRB,.493E-02_JPRB,.502E-02_JPRB,.560E-02_JPRB,.616E-02_JPRB,.717E-02_JPRB,.805E-02_JPRB,&
+&.884E-02_JPRB,.103E-01_JPRB,.114E-01_JPRB,.125E-01_JPRB,.148E-01_JPRB,.192E-01_JPRB,.240E-01_JPRB,&
+&.325E-01_JPRB,.495E-01_JPRB,.637E-01_JPRB,.836E-01_JPRB,.110E+00_JPRB,.137E+00_JPRB,.103E+00_JPRB,&
+&.127E+00_JPRB,.135E+00_JPRB,.143E+00_JPRB,.149E+00_JPRB,.132E+00_JPRB,.113E+00_JPRB,.578E-01_JPRB,&
+&.639E-01_JPRB,.390E-01_JPRB,.267E-01_JPRB,.287E-01_JPRB,.312E-01_JPRB,.381E-01_JPRB,.497E-01_JPRB,&
+&.646E-01_JPRB,.972E-01_JPRB,.152E+00_JPRB,.109E+00_JPRB,.127E+00_JPRB,.120E+00_JPRB,.109E+00_JPRB,&
+&.912E-01_JPRB,.619E-01_JPRB,.478E-01_JPRB,.555E-01_JPRB,.385E-01_JPRB,.338E-01_JPRB,.297E-01_JPRB,&
+&.240E-01_JPRB,.226E-01_JPRB,.214E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.214E-01_JPRB,.281E-01_JPRB,&
+&.364E-01_JPRB,.260E-01_JPRB,.543E-01_JPRB,.372E-01_JPRB,.639E-01_JPRB,.606E-01_JPRB,.496E-01_JPRB,&
+&.246E-01_JPRB,.292E-01_JPRB,.221E-01_JPRB,.181E-01_JPRB,.137E-01_JPRB,.884E-02_JPRB,.710E-02_JPRB,&
+&.551E-02_JPRB,.495E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 24  -2.0
+ZAER (:,24, 8) = (/&
+&.434E-02_JPRB,.434E-02_JPRB,.436E-02_JPRB,.486E-02_JPRB,.536E-02_JPRB,.645E-02_JPRB,.764E-02_JPRB,&
+&.864E-02_JPRB,.102E-01_JPRB,.116E-01_JPRB,.128E-01_JPRB,.150E-01_JPRB,.195E-01_JPRB,.238E-01_JPRB,&
+&.313E-01_JPRB,.481E-01_JPRB,.599E-01_JPRB,.753E-01_JPRB,.934E-01_JPRB,.120E+00_JPRB,.155E+00_JPRB,&
+&.116E+00_JPRB,.114E+00_JPRB,.111E+00_JPRB,.102E+00_JPRB,.865E-01_JPRB,.117E+00_JPRB,.620E-01_JPRB,&
+&.430E-01_JPRB,.284E-01_JPRB,.220E-01_JPRB,.249E-01_JPRB,.280E-01_JPRB,.352E-01_JPRB,.460E-01_JPRB,&
+&.579E-01_JPRB,.819E-01_JPRB,.111E+00_JPRB,.771E-01_JPRB,.895E-01_JPRB,.933E-01_JPRB,.890E-01_JPRB,&
+&.798E-01_JPRB,.570E-01_JPRB,.457E-01_JPRB,.341E-01_JPRB,.414E-01_JPRB,.368E-01_JPRB,.325E-01_JPRB,&
+&.257E-01_JPRB,.238E-01_JPRB,.220E-01_JPRB,.204E-01_JPRB,.201E-01_JPRB,.206E-01_JPRB,.256E-01_JPRB,&
+&.197E-01_JPRB,.389E-01_JPRB,.488E-01_JPRB,.323E-01_JPRB,.537E-01_JPRB,.475E-01_JPRB,.378E-01_JPRB,&
+&.313E-01_JPRB,.230E-01_JPRB,.171E-01_JPRB,.143E-01_JPRB,.113E-01_JPRB,.784E-02_JPRB,.646E-02_JPRB,&
+&.514E-02_JPRB,.437E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 25  -6.0
+ZAER (:,25, 8) = (/&
+&.407E-02_JPRB,.407E-02_JPRB,.421E-02_JPRB,.463E-02_JPRB,.506E-02_JPRB,.597E-02_JPRB,.712E-02_JPRB,&
+&.810E-02_JPRB,.966E-02_JPRB,.109E-01_JPRB,.120E-01_JPRB,.141E-01_JPRB,.174E-01_JPRB,.209E-01_JPRB,&
+&.270E-01_JPRB,.396E-01_JPRB,.476E-01_JPRB,.572E-01_JPRB,.662E-01_JPRB,.815E-01_JPRB,.103E+00_JPRB,&
+&.769E-01_JPRB,.735E-01_JPRB,.680E-01_JPRB,.544E-01_JPRB,.742E-01_JPRB,.579E-01_JPRB,.334E-01_JPRB,&
+&.255E-01_JPRB,.198E-01_JPRB,.195E-01_JPRB,.226E-01_JPRB,.260E-01_JPRB,.339E-01_JPRB,.263E-01_JPRB,&
+&.319E-01_JPRB,.419E-01_JPRB,.521E-01_JPRB,.567E-01_JPRB,.604E-01_JPRB,.672E-01_JPRB,.658E-01_JPRB,&
+&.609E-01_JPRB,.473E-01_JPRB,.399E-01_JPRB,.319E-01_JPRB,.413E-01_JPRB,.376E-01_JPRB,.343E-01_JPRB,&
+&.291E-01_JPRB,.270E-01_JPRB,.250E-01_JPRB,.228E-01_JPRB,.215E-01_JPRB,.209E-01_JPRB,.223E-01_JPRB,&
+&.268E-01_JPRB,.307E-01_JPRB,.377E-01_JPRB,.409E-01_JPRB,.408E-01_JPRB,.370E-01_JPRB,.298E-01_JPRB,&
+&.250E-01_JPRB,.187E-01_JPRB,.133E-01_JPRB,.110E-01_JPRB,.881E-02_JPRB,.670E-02_JPRB,.580E-02_JPRB,&
+&.492E-02_JPRB,.409E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 26 -10.0
+ZAER (:,26, 8) = (/&
+&.396E-02_JPRB,.398E-02_JPRB,.437E-02_JPRB,.476E-02_JPRB,.514E-02_JPRB,.581E-02_JPRB,.675E-02_JPRB,&
+&.753E-02_JPRB,.876E-02_JPRB,.980E-02_JPRB,.107E-01_JPRB,.121E-01_JPRB,.140E-01_JPRB,.161E-01_JPRB,&
+&.198E-01_JPRB,.283E-01_JPRB,.333E-01_JPRB,.392E-01_JPRB,.437E-01_JPRB,.519E-01_JPRB,.631E-01_JPRB,&
+&.439E-01_JPRB,.392E-01_JPRB,.331E-01_JPRB,.393E-01_JPRB,.334E-01_JPRB,.277E-01_JPRB,.197E-01_JPRB,&
+&.173E-01_JPRB,.159E-01_JPRB,.183E-01_JPRB,.211E-01_JPRB,.243E-01_JPRB,.324E-01_JPRB,.244E-01_JPRB,&
+&.282E-01_JPRB,.337E-01_JPRB,.394E-01_JPRB,.408E-01_JPRB,.403E-01_JPRB,.438E-01_JPRB,.437E-01_JPRB,&
+&.421E-01_JPRB,.353E-01_JPRB,.312E-01_JPRB,.266E-01_JPRB,.228E-01_JPRB,.362E-01_JPRB,.345E-01_JPRB,&
+&.313E-01_JPRB,.308E-01_JPRB,.303E-01_JPRB,.290E-01_JPRB,.265E-01_JPRB,.246E-01_JPRB,.229E-01_JPRB,&
+&.243E-01_JPRB,.258E-01_JPRB,.289E-01_JPRB,.302E-01_JPRB,.301E-01_JPRB,.284E-01_JPRB,.235E-01_JPRB,&
+&.201E-01_JPRB,.156E-01_JPRB,.113E-01_JPRB,.935E-02_JPRB,.737E-02_JPRB,.592E-02_JPRB,.530E-02_JPRB,&
+&.469E-02_JPRB,.399E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 27 -14.0
+ZAER (:,27, 8) = (/&
+&.422E-02_JPRB,.423E-02_JPRB,.464E-02_JPRB,.504E-02_JPRB,.542E-02_JPRB,.605E-02_JPRB,.678E-02_JPRB,&
+&.738E-02_JPRB,.827E-02_JPRB,.902E-02_JPRB,.963E-02_JPRB,.106E-01_JPRB,.119E-01_JPRB,.131E-01_JPRB,&
+&.150E-01_JPRB,.201E-01_JPRB,.234E-01_JPRB,.275E-01_JPRB,.183E-01_JPRB,.206E-01_JPRB,.395E-01_JPRB,&
+&.408E-01_JPRB,.343E-01_JPRB,.265E-01_JPRB,.193E-01_JPRB,.178E-01_JPRB,.164E-01_JPRB,.147E-01_JPRB,&
+&.146E-01_JPRB,.149E-01_JPRB,.177E-01_JPRB,.199E-01_JPRB,.223E-01_JPRB,.167E-01_JPRB,.199E-01_JPRB,&
+&.220E-01_JPRB,.243E-01_JPRB,.273E-01_JPRB,.280E-01_JPRB,.275E-01_JPRB,.285E-01_JPRB,.287E-01_JPRB,&
+&.287E-01_JPRB,.258E-01_JPRB,.236E-01_JPRB,.211E-01_JPRB,.335E-01_JPRB,.335E-01_JPRB,.336E-01_JPRB,&
+&.335E-01_JPRB,.354E-01_JPRB,.222E-01_JPRB,.388E-01_JPRB,.364E-01_JPRB,.342E-01_JPRB,.302E-01_JPRB,&
+&.182E-01_JPRB,.182E-01_JPRB,.298E-01_JPRB,.287E-01_JPRB,.274E-01_JPRB,.248E-01_JPRB,.201E-01_JPRB,&
+&.174E-01_JPRB,.143E-01_JPRB,.109E-01_JPRB,.922E-02_JPRB,.739E-02_JPRB,.615E-02_JPRB,.554E-02_JPRB,&
+&.492E-02_JPRB,.424E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 28 -18.0
+ZAER (:,28, 8) = (/&
+&.512E-02_JPRB,.512E-02_JPRB,.520E-02_JPRB,.556E-02_JPRB,.590E-02_JPRB,.646E-02_JPRB,.706E-02_JPRB,&
+&.755E-02_JPRB,.829E-02_JPRB,.889E-02_JPRB,.946E-02_JPRB,.105E-01_JPRB,.116E-01_JPRB,.125E-01_JPRB,&
+&.137E-01_JPRB,.164E-01_JPRB,.111E-01_JPRB,.127E-01_JPRB,.141E-01_JPRB,.249E-01_JPRB,.265E-01_JPRB,&
+&.254E-01_JPRB,.212E-01_JPRB,.164E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.140E-01_JPRB,.148E-01_JPRB,.170E-01_JPRB,.187E-01_JPRB,.203E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,&
+&.167E-01_JPRB,.178E-01_JPRB,.193E-01_JPRB,.200E-01_JPRB,.204E-01_JPRB,.215E-01_JPRB,.219E-01_JPRB,&
+&.223E-01_JPRB,.206E-01_JPRB,.322E-01_JPRB,.178E-01_JPRB,.188E-01_JPRB,.195E-01_JPRB,.339E-01_JPRB,&
+&.359E-01_JPRB,.397E-01_JPRB,.260E-01_JPRB,.297E-01_JPRB,.478E-01_JPRB,.461E-01_JPRB,.252E-01_JPRB,&
+&.270E-01_JPRB,.279E-01_JPRB,.464E-01_JPRB,.399E-01_JPRB,.348E-01_JPRB,.270E-01_JPRB,.208E-01_JPRB,&
+&.179E-01_JPRB,.154E-01_JPRB,.123E-01_JPRB,.105E-01_JPRB,.852E-02_JPRB,.713E-02_JPRB,.645E-02_JPRB,&
+&.576E-02_JPRB,.514E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 29 -22.0
+ZAER (:,29, 8) = (/&
+&.642E-02_JPRB,.640E-02_JPRB,.591E-02_JPRB,.611E-02_JPRB,.631E-02_JPRB,.676E-02_JPRB,.721E-02_JPRB,&
+&.760E-02_JPRB,.824E-02_JPRB,.885E-02_JPRB,.956E-02_JPRB,.112E-01_JPRB,.126E-01_JPRB,.134E-01_JPRB,&
+&.142E-01_JPRB,.933E-02_JPRB,.998E-02_JPRB,.181E-01_JPRB,.197E-01_JPRB,.208E-01_JPRB,.220E-01_JPRB,&
+&.197E-01_JPRB,.169E-01_JPRB,.138E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,&
+&.135E-01_JPRB,.143E-01_JPRB,.158E-01_JPRB,.174E-01_JPRB,.187E-01_JPRB,.126E-01_JPRB,.132E-01_JPRB,&
+&.138E-01_JPRB,.146E-01_JPRB,.155E-01_JPRB,.163E-01_JPRB,.175E-01_JPRB,.200E-01_JPRB,.211E-01_JPRB,&
+&.221E-01_JPRB,.201E-01_JPRB,.189E-01_JPRB,.176E-01_JPRB,.191E-01_JPRB,.200E-01_JPRB,.350E-01_JPRB,&
+&.387E-01_JPRB,.260E-01_JPRB,.286E-01_JPRB,.317E-01_JPRB,.301E-01_JPRB,.292E-01_JPRB,.304E-01_JPRB,&
+&.375E-01_JPRB,.418E-01_JPRB,.446E-01_JPRB,.629E-01_JPRB,.526E-01_JPRB,.351E-01_JPRB,.253E-01_JPRB,&
+&.212E-01_JPRB,.183E-01_JPRB,.145E-01_JPRB,.124E-01_JPRB,.997E-02_JPRB,.822E-02_JPRB,.758E-02_JPRB,&
+&.698E-02_JPRB,.643E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 30 -26.0
+ZAER (:,30, 8) = (/&
+&.769E-02_JPRB,.765E-02_JPRB,.652E-02_JPRB,.645E-02_JPRB,.644E-02_JPRB,.686E-02_JPRB,.724E-02_JPRB,&
+&.756E-02_JPRB,.809E-02_JPRB,.870E-02_JPRB,.956E-02_JPRB,.117E-01_JPRB,.140E-01_JPRB,.152E-01_JPRB,&
+&.969E-02_JPRB,.987E-02_JPRB,.103E-01_JPRB,.186E-01_JPRB,.196E-01_JPRB,.204E-01_JPRB,.214E-01_JPRB,&
+&.183E-01_JPRB,.161E-01_JPRB,.137E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,&
+&.125E-01_JPRB,.131E-01_JPRB,.142E-01_JPRB,.156E-01_JPRB,.168E-01_JPRB,.191E-01_JPRB,.121E-01_JPRB,&
+&.126E-01_JPRB,.132E-01_JPRB,.142E-01_JPRB,.154E-01_JPRB,.176E-01_JPRB,.213E-01_JPRB,.233E-01_JPRB,&
+&.253E-01_JPRB,.231E-01_JPRB,.213E-01_JPRB,.193E-01_JPRB,.199E-01_JPRB,.346E-01_JPRB,.217E-01_JPRB,&
+&.250E-01_JPRB,.267E-01_JPRB,.281E-01_JPRB,.270E-01_JPRB,.246E-01_JPRB,.240E-01_JPRB,.301E-01_JPRB,&
+&.437E-01_JPRB,.525E-01_JPRB,.602E-01_JPRB,.536E-01_JPRB,.763E-01_JPRB,.502E-01_JPRB,.334E-01_JPRB,&
+&.266E-01_JPRB,.217E-01_JPRB,.163E-01_JPRB,.137E-01_JPRB,.111E-01_JPRB,.903E-02_JPRB,.858E-02_JPRB,&
+&.827E-02_JPRB,.770E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 31 -30.0
+ZAER (:,31, 8) = (/&
+&.885E-02_JPRB,.880E-02_JPRB,.720E-02_JPRB,.684E-02_JPRB,.659E-02_JPRB,.694E-02_JPRB,.735E-02_JPRB,&
+&.769E-02_JPRB,.815E-02_JPRB,.868E-02_JPRB,.958E-02_JPRB,.120E-01_JPRB,.152E-01_JPRB,.167E-01_JPRB,&
+&.107E-01_JPRB,.108E-01_JPRB,.115E-01_JPRB,.128E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.227E-01_JPRB,&
+&.190E-01_JPRB,.168E-01_JPRB,.144E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.114E-01_JPRB,.116E-01_JPRB,.124E-01_JPRB,.136E-01_JPRB,.147E-01_JPRB,.171E-01_JPRB,.114E-01_JPRB,&
+&.121E-01_JPRB,.127E-01_JPRB,.144E-01_JPRB,.165E-01_JPRB,.203E-01_JPRB,.253E-01_JPRB,.276E-01_JPRB,&
+&.299E-01_JPRB,.278E-01_JPRB,.253E-01_JPRB,.221E-01_JPRB,.213E-01_JPRB,.221E-01_JPRB,.231E-01_JPRB,&
+&.260E-01_JPRB,.253E-01_JPRB,.244E-01_JPRB,.198E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,.258E-01_JPRB,&
+&.433E-01_JPRB,.556E-01_JPRB,.701E-01_JPRB,.664E-01_JPRB,.590E-01_JPRB,.688E-01_JPRB,.448E-01_JPRB,&
+&.342E-01_JPRB,.254E-01_JPRB,.179E-01_JPRB,.149E-01_JPRB,.120E-01_JPRB,.982E-02_JPRB,.953E-02_JPRB,&
+&.944E-02_JPRB,.887E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 32 -34.0
+ZAER (:,32, 8) = (/&
+&.998E-02_JPRB,.992E-02_JPRB,.814E-02_JPRB,.752E-02_JPRB,.704E-02_JPRB,.709E-02_JPRB,.753E-02_JPRB,&
+&.789E-02_JPRB,.837E-02_JPRB,.884E-02_JPRB,.976E-02_JPRB,.123E-01_JPRB,.158E-01_JPRB,.103E-01_JPRB,&
+&.106E-01_JPRB,.108E-01_JPRB,.119E-01_JPRB,.138E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,&
+&.210E-01_JPRB,.185E-01_JPRB,.158E-01_JPRB,.128E-01_JPRB,.119E-01_JPRB,.112E-01_JPRB,.107E-01_JPRB,&
+&.106E-01_JPRB,.105E-01_JPRB,.110E-01_JPRB,.118E-01_JPRB,.127E-01_JPRB,.149E-01_JPRB,.180E-01_JPRB,&
+&.120E-01_JPRB,.133E-01_JPRB,.164E-01_JPRB,.199E-01_JPRB,.434E-01_JPRB,.552E-01_JPRB,.588E-01_JPRB,&
+&.606E-01_JPRB,.563E-01_JPRB,.306E-01_JPRB,.265E-01_JPRB,.242E-01_JPRB,.248E-01_JPRB,.257E-01_JPRB,&
+&.266E-01_JPRB,.237E-01_JPRB,.209E-01_JPRB,.154E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.205E-01_JPRB,&
+&.367E-01_JPRB,.498E-01_JPRB,.696E-01_JPRB,.698E-01_JPRB,.644E-01_JPRB,.803E-01_JPRB,.536E-01_JPRB,&
+&.244E-01_JPRB,.285E-01_JPRB,.202E-01_JPRB,.167E-01_JPRB,.136E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,&
+&.106E-01_JPRB,.100E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 33 -38.0
+ZAER (:,33, 8) = (/&
+&.109E-01_JPRB,.109E-01_JPRB,.915E-02_JPRB,.840E-02_JPRB,.778E-02_JPRB,.739E-02_JPRB,.776E-02_JPRB,&
+&.808E-02_JPRB,.858E-02_JPRB,.906E-02_JPRB,.100E-01_JPRB,.127E-01_JPRB,.936E-02_JPRB,.985E-02_JPRB,&
+&.961E-02_JPRB,.986E-02_JPRB,.109E-01_JPRB,.129E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,&
+&.227E-01_JPRB,.204E-01_JPRB,.179E-01_JPRB,.138E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,.103E-01_JPRB,&
+&.101E-01_JPRB,.994E-02_JPRB,.993E-02_JPRB,.104E-01_JPRB,.110E-01_JPRB,.127E-01_JPRB,.167E-01_JPRB,&
+&.120E-01_JPRB,.258E-01_JPRB,.352E-01_JPRB,.446E-01_JPRB,.601E-01_JPRB,.767E-01_JPRB,.795E-01_JPRB,&
+&.469E-01_JPRB,.427E-01_JPRB,.386E-01_JPRB,.336E-01_JPRB,.296E-01_JPRB,.295E-01_JPRB,.296E-01_JPRB,&
+&.282E-01_JPRB,.245E-01_JPRB,.210E-01_JPRB,.157E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.167E-01_JPRB,&
+&.276E-01_JPRB,.376E-01_JPRB,.562E-01_JPRB,.601E-01_JPRB,.961E-01_JPRB,.770E-01_JPRB,.528E-01_JPRB,&
+&.409E-01_JPRB,.177E-01_JPRB,.223E-01_JPRB,.191E-01_JPRB,.158E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,&
+&.118E-01_JPRB,.110E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 34 -42.0
+ZAER (:,34, 8) = (/&
+&.115E-01_JPRB,.114E-01_JPRB,.982E-02_JPRB,.914E-02_JPRB,.855E-02_JPRB,.793E-02_JPRB,.813E-02_JPRB,&
+&.834E-02_JPRB,.882E-02_JPRB,.926E-02_JPRB,.102E-01_JPRB,.128E-01_JPRB,.910E-02_JPRB,.941E-02_JPRB,&
+&.897E-02_JPRB,.898E-02_JPRB,.975E-02_JPRB,.113E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,&
+&.137E-01_JPRB,.211E-01_JPRB,.192E-01_JPRB,.147E-01_JPRB,.130E-01_JPRB,.114E-01_JPRB,.100E-01_JPRB,&
+&.966E-02_JPRB,.937E-02_JPRB,.913E-02_JPRB,.936E-02_JPRB,.974E-02_JPRB,.110E-01_JPRB,.158E-01_JPRB,&
+&.127E-01_JPRB,.195E-01_JPRB,.501E-01_JPRB,.655E-01_JPRB,.892E-01_JPRB,.648E-01_JPRB,.655E-01_JPRB,&
+&.104E+00_JPRB,.938E-01_JPRB,.508E-01_JPRB,.443E-01_JPRB,.639E-01_JPRB,.366E-01_JPRB,.351E-01_JPRB,&
+&.312E-01_JPRB,.278E-01_JPRB,.245E-01_JPRB,.190E-01_JPRB,.169E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,&
+&.202E-01_JPRB,.254E-01_JPRB,.368E-01_JPRB,.424E-01_JPRB,.427E-01_JPRB,.373E-01_JPRB,.261E-01_JPRB,&
+&.349E-01_JPRB,.271E-01_JPRB,.225E-01_JPRB,.201E-01_JPRB,.175E-01_JPRB,.148E-01_JPRB,.138E-01_JPRB,&
+&.128E-01_JPRB,.115E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 35 -46.0
+ZAER (:,35, 8) = (/&
+&.115E-01_JPRB,.114E-01_JPRB,.997E-02_JPRB,.945E-02_JPRB,.899E-02_JPRB,.841E-02_JPRB,.843E-02_JPRB,&
+&.851E-02_JPRB,.884E-02_JPRB,.925E-02_JPRB,.100E-01_JPRB,.123E-01_JPRB,.869E-02_JPRB,.907E-02_JPRB,&
+&.888E-02_JPRB,.873E-02_JPRB,.922E-02_JPRB,.103E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,.149E-01_JPRB,.132E-01_JPRB,.117E-01_JPRB,.100E-01_JPRB,&
+&.952E-02_JPRB,.913E-02_JPRB,.876E-02_JPRB,.880E-02_JPRB,.908E-02_JPRB,.103E-01_JPRB,.165E-01_JPRB,&
+&.245E-01_JPRB,.252E-01_JPRB,.434E-01_JPRB,.581E-01_JPRB,.797E-01_JPRB,.885E-01_JPRB,.871E-01_JPRB,&
+&.814E-01_JPRB,.730E-01_JPRB,.661E-01_JPRB,.582E-01_JPRB,.822E-01_JPRB,.454E-01_JPRB,.417E-01_JPRB,&
+&.349E-01_JPRB,.316E-01_JPRB,.283E-01_JPRB,.229E-01_JPRB,.198E-01_JPRB,.175E-01_JPRB,.151E-01_JPRB,&
+&.162E-01_JPRB,.177E-01_JPRB,.221E-01_JPRB,.271E-01_JPRB,.284E-01_JPRB,.268E-01_JPRB,.196E-01_JPRB,&
+&.163E-01_JPRB,.225E-01_JPRB,.201E-01_JPRB,.187E-01_JPRB,.170E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,&
+&.130E-01_JPRB,.115E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 36 -50.0
+ZAER (:,36, 8) = (/&
+&.107E-01_JPRB,.107E-01_JPRB,.974E-02_JPRB,.936E-02_JPRB,.902E-02_JPRB,.849E-02_JPRB,.841E-02_JPRB,&
+&.840E-02_JPRB,.862E-02_JPRB,.909E-02_JPRB,.975E-02_JPRB,.682E-02_JPRB,.794E-02_JPRB,.845E-02_JPRB,&
+&.879E-02_JPRB,.880E-02_JPRB,.914E-02_JPRB,.982E-02_JPRB,.106E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
+&.100E-01_JPRB,.974E-02_JPRB,.943E-02_JPRB,.138E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.102E-01_JPRB,&
+&.985E-02_JPRB,.953E-02_JPRB,.917E-02_JPRB,.911E-02_JPRB,.937E-02_JPRB,.108E-01_JPRB,.181E-01_JPRB,&
+&.276E-01_JPRB,.290E-01_JPRB,.551E-01_JPRB,.749E-01_JPRB,.103E+00_JPRB,.109E+00_JPRB,.105E+00_JPRB,&
+&.973E-01_JPRB,.869E-01_JPRB,.790E-01_JPRB,.699E-01_JPRB,.577E-01_JPRB,.523E-01_JPRB,.470E-01_JPRB,&
+&.375E-01_JPRB,.337E-01_JPRB,.300E-01_JPRB,.248E-01_JPRB,.214E-01_JPRB,.186E-01_JPRB,.152E-01_JPRB,&
+&.148E-01_JPRB,.150E-01_JPRB,.163E-01_JPRB,.186E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.148E-01_JPRB,&
+&.130E-01_JPRB,.114E-01_JPRB,.171E-01_JPRB,.161E-01_JPRB,.150E-01_JPRB,.135E-01_JPRB,.127E-01_JPRB,&
+&.119E-01_JPRB,.108E-01_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 37 -54.0
+ZAER (:,37, 8) = (/&
+&.940E-02_JPRB,.939E-02_JPRB,.910E-02_JPRB,.892E-02_JPRB,.874E-02_JPRB,.838E-02_JPRB,.826E-02_JPRB,&
+&.820E-02_JPRB,.829E-02_JPRB,.877E-02_JPRB,.562E-02_JPRB,.644E-02_JPRB,.727E-02_JPRB,.776E-02_JPRB,&
+&.831E-02_JPRB,.846E-02_JPRB,.862E-02_JPRB,.885E-02_JPRB,.884E-02_JPRB,.845E-02_JPRB,.131E-01_JPRB,&
+&.748E-02_JPRB,.741E-02_JPRB,.736E-02_JPRB,.689E-02_JPRB,.109E-01_JPRB,.103E-01_JPRB,.969E-02_JPRB,&
+&.966E-02_JPRB,.967E-02_JPRB,.997E-02_JPRB,.102E-01_JPRB,.107E-01_JPRB,.121E-01_JPRB,.176E-01_JPRB,&
+&.146E-01_JPRB,.390E-01_JPRB,.746E-01_JPRB,.620E-01_JPRB,.875E-01_JPRB,.974E-01_JPRB,.978E-01_JPRB,&
+&.949E-01_JPRB,.872E-01_JPRB,.797E-01_JPRB,.707E-01_JPRB,.575E-01_JPRB,.524E-01_JPRB,.475E-01_JPRB,&
+&.378E-01_JPRB,.335E-01_JPRB,.293E-01_JPRB,.239E-01_JPRB,.207E-01_JPRB,.181E-01_JPRB,.148E-01_JPRB,&
+&.139E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.119E-01_JPRB,&
+&.110E-01_JPRB,.168E-01_JPRB,.151E-01_JPRB,.140E-01_JPRB,.127E-01_JPRB,.674E-02_JPRB,.106E-01_JPRB,&
+&.994E-02_JPRB,.942E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 38 -58.0
+ZAER (:,38, 8) = (/&
+&.795E-02_JPRB,.795E-02_JPRB,.807E-02_JPRB,.819E-02_JPRB,.829E-02_JPRB,.828E-02_JPRB,.811E-02_JPRB,&
+&.798E-02_JPRB,.784E-02_JPRB,.490E-02_JPRB,.520E-02_JPRB,.593E-02_JPRB,.670E-02_JPRB,.711E-02_JPRB,&
+&.749E-02_JPRB,.734E-02_JPRB,.718E-02_JPRB,.694E-02_JPRB,.111E-01_JPRB,.106E-01_JPRB,.101E-01_JPRB,&
+&.564E-02_JPRB,.551E-02_JPRB,.539E-02_JPRB,.859E-02_JPRB,.832E-02_JPRB,.807E-02_JPRB,.791E-02_JPRB,&
+&.832E-02_JPRB,.880E-02_JPRB,.102E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,.145E-01_JPRB,.169E-01_JPRB,&
+&.195E-01_JPRB,.246E-01_JPRB,.376E-01_JPRB,.299E-01_JPRB,.415E-01_JPRB,.842E-01_JPRB,.551E-01_JPRB,&
+&.599E-01_JPRB,.617E-01_JPRB,.597E-01_JPRB,.566E-01_JPRB,.501E-01_JPRB,.467E-01_JPRB,.434E-01_JPRB,&
+&.358E-01_JPRB,.317E-01_JPRB,.278E-01_JPRB,.224E-01_JPRB,.196E-01_JPRB,.173E-01_JPRB,.142E-01_JPRB,&
+&.131E-01_JPRB,.124E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,&
+&.102E-01_JPRB,.944E-02_JPRB,.138E-01_JPRB,.126E-01_JPRB,.111E-01_JPRB,.573E-02_JPRB,.892E-02_JPRB,&
+&.831E-02_JPRB,.796E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 39 -62.0
+ZAER (:,39, 8) = (/&
+&.742E-02_JPRB,.742E-02_JPRB,.743E-02_JPRB,.760E-02_JPRB,.465E-02_JPRB,.473E-02_JPRB,.464E-02_JPRB,&
+&.457E-02_JPRB,.445E-02_JPRB,.454E-02_JPRB,.471E-02_JPRB,.518E-02_JPRB,.577E-02_JPRB,.607E-02_JPRB,&
+&.631E-02_JPRB,.610E-02_JPRB,.591E-02_JPRB,.563E-02_JPRB,.900E-02_JPRB,.879E-02_JPRB,.857E-02_JPRB,&
+&.488E-02_JPRB,.785E-02_JPRB,.756E-02_JPRB,.703E-02_JPRB,.676E-02_JPRB,.651E-02_JPRB,.377E-02_JPRB,&
+&.669E-02_JPRB,.724E-02_JPRB,.919E-02_JPRB,.114E-01_JPRB,.132E-01_JPRB,.163E-01_JPRB,.183E-01_JPRB,&
+&.198E-01_JPRB,.216E-01_JPRB,.253E-01_JPRB,.175E-01_JPRB,.215E-01_JPRB,.448E-01_JPRB,.300E-01_JPRB,&
+&.336E-01_JPRB,.366E-01_JPRB,.378E-01_JPRB,.389E-01_JPRB,.389E-01_JPRB,.377E-01_JPRB,.363E-01_JPRB,&
+&.318E-01_JPRB,.291E-01_JPRB,.266E-01_JPRB,.227E-01_JPRB,.202E-01_JPRB,.180E-01_JPRB,.147E-01_JPRB,&
+&.131E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.108E-01_JPRB,&
+&.102E-01_JPRB,.922E-02_JPRB,.784E-02_JPRB,.709E-02_JPRB,.625E-02_JPRB,.538E-02_JPRB,.503E-02_JPRB,&
+&.470E-02_JPRB,.743E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 40 -66.0
+ZAER (:,40, 8) = (/&
+&.466E-02_JPRB,.465E-02_JPRB,.758E-02_JPRB,.756E-02_JPRB,.452E-02_JPRB,.448E-02_JPRB,.441E-02_JPRB,&
+&.436E-02_JPRB,.431E-02_JPRB,.438E-02_JPRB,.448E-02_JPRB,.471E-02_JPRB,.500E-02_JPRB,.514E-02_JPRB,&
+&.525E-02_JPRB,.515E-02_JPRB,.506E-02_JPRB,.493E-02_JPRB,.485E-02_JPRB,.482E-02_JPRB,.797E-02_JPRB,&
+&.465E-02_JPRB,.452E-02_JPRB,.438E-02_JPRB,.668E-02_JPRB,.636E-02_JPRB,.364E-02_JPRB,.346E-02_JPRB,&
+&.362E-02_JPRB,.644E-02_JPRB,.814E-02_JPRB,.104E-01_JPRB,.125E-01_JPRB,.163E-01_JPRB,.194E-01_JPRB,&
+&.215E-01_JPRB,.239E-01_JPRB,.258E-01_JPRB,.275E-01_JPRB,.179E-01_JPRB,.203E-01_JPRB,.219E-01_JPRB,&
+&.238E-01_JPRB,.258E-01_JPRB,.269E-01_JPRB,.281E-01_JPRB,.295E-01_JPRB,.293E-01_JPRB,.291E-01_JPRB,&
+&.267E-01_JPRB,.250E-01_JPRB,.233E-01_JPRB,.205E-01_JPRB,.186E-01_JPRB,.169E-01_JPRB,.142E-01_JPRB,&
+&.129E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,&
+&.952E-02_JPRB,.858E-02_JPRB,.739E-02_JPRB,.676E-02_JPRB,.607E-02_JPRB,.540E-02_JPRB,.514E-02_JPRB,&
+&.489E-02_JPRB,.466E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 41 -70.0
+ZAER (:,41, 8) = (/&
+&.826E-02_JPRB,.826E-02_JPRB,.805E-02_JPRB,.795E-02_JPRB,.471E-02_JPRB,.460E-02_JPRB,.453E-02_JPRB,&
+&.447E-02_JPRB,.739E-02_JPRB,.743E-02_JPRB,.449E-02_JPRB,.763E-02_JPRB,.777E-02_JPRB,.470E-02_JPRB,&
+&.472E-02_JPRB,.467E-02_JPRB,.772E-02_JPRB,.458E-02_JPRB,.456E-02_JPRB,.455E-02_JPRB,.454E-02_JPRB,&
+&.446E-02_JPRB,.436E-02_JPRB,.709E-02_JPRB,.659E-02_JPRB,.632E-02_JPRB,.364E-02_JPRB,.351E-02_JPRB,&
+&.365E-02_JPRB,.386E-02_JPRB,.464E-02_JPRB,.573E-02_JPRB,.113E-01_JPRB,.147E-01_JPRB,.178E-01_JPRB,&
+&.199E-01_JPRB,.226E-01_JPRB,.241E-01_JPRB,.249E-01_JPRB,.257E-01_JPRB,.265E-01_JPRB,.162E-01_JPRB,&
+&.165E-01_JPRB,.283E-01_JPRB,.292E-01_JPRB,.303E-01_JPRB,.325E-01_JPRB,.331E-01_JPRB,.336E-01_JPRB,&
+&.324E-01_JPRB,.186E-01_JPRB,.178E-01_JPRB,.162E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,.127E-01_JPRB,&
+&.119E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.964E-02_JPRB,.894E-02_JPRB,&
+&.842E-02_JPRB,.771E-02_JPRB,.688E-02_JPRB,.644E-02_JPRB,.597E-02_JPRB,.551E-02_JPRB,.532E-02_JPRB,&
+&.858E-02_JPRB,.496E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 42 -74.0
+ZAER (:,42, 8) = (/&
+&.846E-02_JPRB,.846E-02_JPRB,.833E-02_JPRB,.825E-02_JPRB,.817E-02_JPRB,.803E-02_JPRB,.794E-02_JPRB,&
+&.787E-02_JPRB,.777E-02_JPRB,.773E-02_JPRB,.771E-02_JPRB,.769E-02_JPRB,.461E-02_JPRB,.460E-02_JPRB,&
+&.765E-02_JPRB,.760E-02_JPRB,.757E-02_JPRB,.753E-02_JPRB,.749E-02_JPRB,.447E-02_JPRB,.741E-02_JPRB,&
+&.726E-02_JPRB,.712E-02_JPRB,.697E-02_JPRB,.665E-02_JPRB,.391E-02_JPRB,.383E-02_JPRB,.382E-02_JPRB,&
+&.398E-02_JPRB,.416E-02_JPRB,.476E-02_JPRB,.552E-02_JPRB,.104E-01_JPRB,.126E-01_JPRB,.148E-01_JPRB,&
+&.162E-01_JPRB,.182E-01_JPRB,.194E-01_JPRB,.200E-01_JPRB,.204E-01_JPRB,.203E-01_JPRB,.203E-01_JPRB,&
+&.202E-01_JPRB,.201E-01_JPRB,.203E-01_JPRB,.205E-01_JPRB,.212E-01_JPRB,.214E-01_JPRB,.216E-01_JPRB,&
+&.214E-01_JPRB,.209E-01_JPRB,.205E-01_JPRB,.194E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,&
+&.978E-02_JPRB,.948E-02_JPRB,.903E-02_JPRB,.867E-02_JPRB,.140E-01_JPRB,.133E-01_JPRB,.125E-01_JPRB,&
+&.119E-01_JPRB,.112E-01_JPRB,.103E-01_JPRB,.991E-02_JPRB,.945E-02_JPRB,.900E-02_JPRB,.881E-02_JPRB,&
+&.864E-02_JPRB,.847E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 43 -78.0
+ZAER (:,43, 8) = (/&
+&.844E-02_JPRB,.844E-02_JPRB,.836E-02_JPRB,.831E-02_JPRB,.826E-02_JPRB,.817E-02_JPRB,.811E-02_JPRB,&
+&.805E-02_JPRB,.796E-02_JPRB,.790E-02_JPRB,.785E-02_JPRB,.777E-02_JPRB,.772E-02_JPRB,.768E-02_JPRB,&
+&.763E-02_JPRB,.757E-02_JPRB,.753E-02_JPRB,.749E-02_JPRB,.446E-02_JPRB,.443E-02_JPRB,.439E-02_JPRB,&
+&.720E-02_JPRB,.713E-02_JPRB,.423E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.425E-02_JPRB,&
+&.441E-02_JPRB,.458E-02_JPRB,.501E-02_JPRB,.546E-02_JPRB,.978E-02_JPRB,.110E-01_JPRB,.121E-01_JPRB,&
+&.129E-01_JPRB,.139E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,.927E-02_JPRB,.156E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,&
+&.152E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.755E-02_JPRB,.121E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,&
+&.103E-01_JPRB,.988E-02_JPRB,.946E-02_JPRB,.924E-02_JPRB,.900E-02_JPRB,.876E-02_JPRB,.865E-02_JPRB,&
+&.856E-02_JPRB,.845E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 44 -82.0
+ZAER (:,44, 8) = (/&
+&.856E-02_JPRB,.856E-02_JPRB,.848E-02_JPRB,.843E-02_JPRB,.839E-02_JPRB,.831E-02_JPRB,.826E-02_JPRB,&
+&.821E-02_JPRB,.814E-02_JPRB,.809E-02_JPRB,.804E-02_JPRB,.798E-02_JPRB,.793E-02_JPRB,.789E-02_JPRB,&
+&.784E-02_JPRB,.779E-02_JPRB,.776E-02_JPRB,.773E-02_JPRB,.769E-02_JPRB,.766E-02_JPRB,.458E-02_JPRB,&
+&.456E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.458E-02_JPRB,.461E-02_JPRB,.464E-02_JPRB,.474E-02_JPRB,&
+&.485E-02_JPRB,.496E-02_JPRB,.518E-02_JPRB,.539E-02_JPRB,.556E-02_JPRB,.976E-02_JPRB,.102E-01_JPRB,&
+&.105E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,&
+&.121E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,&
+&.119E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,&
+&.108E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.988E-02_JPRB,.967E-02_JPRB,&
+&.953E-02_JPRB,.936E-02_JPRB,.916E-02_JPRB,.905E-02_JPRB,.893E-02_JPRB,.880E-02_JPRB,.873E-02_JPRB,&
+&.866E-02_JPRB,.856E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 45 -86.0
+ZAER (:,45, 8) = (/&
+&.889E-02_JPRB,.889E-02_JPRB,.884E-02_JPRB,.881E-02_JPRB,.878E-02_JPRB,.874E-02_JPRB,.872E-02_JPRB,&
+&.869E-02_JPRB,.866E-02_JPRB,.863E-02_JPRB,.861E-02_JPRB,.858E-02_JPRB,.856E-02_JPRB,.854E-02_JPRB,&
+&.852E-02_JPRB,.850E-02_JPRB,.849E-02_JPRB,.848E-02_JPRB,.847E-02_JPRB,.846E-02_JPRB,.846E-02_JPRB,&
+&.847E-02_JPRB,.848E-02_JPRB,.850E-02_JPRB,.854E-02_JPRB,.857E-02_JPRB,.861E-02_JPRB,.869E-02_JPRB,&
+&.875E-02_JPRB,.882E-02_JPRB,.893E-02_JPRB,.902E-02_JPRB,.910E-02_JPRB,.922E-02_JPRB,.933E-02_JPRB,&
+&.941E-02_JPRB,.953E-02_JPRB,.963E-02_JPRB,.970E-02_JPRB,.978E-02_JPRB,.987E-02_JPRB,.991E-02_JPRB,&
+&.996E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.998E-02_JPRB,.995E-02_JPRB,.990E-02_JPRB,.985E-02_JPRB,.981E-02_JPRB,.974E-02_JPRB,&
+&.969E-02_JPRB,.964E-02_JPRB,.957E-02_JPRB,.950E-02_JPRB,.946E-02_JPRB,.939E-02_JPRB,.932E-02_JPRB,&
+&.928E-02_JPRB,.922E-02_JPRB,.915E-02_JPRB,.912E-02_JPRB,.907E-02_JPRB,.901E-02_JPRB,.898E-02_JPRB,&
+&.894E-02_JPRB,.889E-02_JPRB/)
+!-- Organic Aerosol          month:  8 --- lat: 46 -90.0
+ZAER (:,46, 8) = (/&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.917E-02_JPRB,.917E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=8   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_08
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_09.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_09.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_09.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_09
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,9:9)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month:  9 --- lat:  1  90.0
+ZAER (:, 1, 9) = (/&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  2  86.0
+ZAER (:, 2, 9) = (/&
+&.189E-02_JPRB,.189E-02_JPRB,.192E-02_JPRB,.193E-02_JPRB,.194E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,&
+&.199E-02_JPRB,.200E-02_JPRB,.201E-02_JPRB,.202E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,&
+&.204E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.204E-02_JPRB,&
+&.204E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,.200E-02_JPRB,.199E-02_JPRB,.198E-02_JPRB,&
+&.196E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,&
+&.185E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,&
+&.176E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.173E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.176E-02_JPRB,.177E-02_JPRB,&
+&.178E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.183E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,&
+&.187E-02_JPRB,.189E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  3  82.0
+ZAER (:, 3, 9) = (/&
+&.201E-02_JPRB,.201E-02_JPRB,.207E-02_JPRB,.211E-02_JPRB,.214E-02_JPRB,.219E-02_JPRB,.222E-02_JPRB,&
+&.225E-02_JPRB,.228E-02_JPRB,.230E-02_JPRB,.232E-02_JPRB,.234E-02_JPRB,.235E-02_JPRB,.236E-02_JPRB,&
+&.236E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,&
+&.234E-02_JPRB,.233E-02_JPRB,.232E-02_JPRB,.230E-02_JPRB,.229E-02_JPRB,.227E-02_JPRB,.224E-02_JPRB,&
+&.221E-02_JPRB,.218E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,.200E-02_JPRB,.195E-02_JPRB,&
+&.191E-02_JPRB,.186E-02_JPRB,.181E-02_JPRB,.178E-02_JPRB,.174E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,&
+&.165E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,&
+&.159E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.167E-02_JPRB,&
+&.169E-02_JPRB,.171E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.181E-02_JPRB,.187E-02_JPRB,.191E-02_JPRB,&
+&.194E-02_JPRB,.201E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  4  78.0
+ZAER (:, 4, 9) = (/&
+&.227E-02_JPRB,.228E-02_JPRB,.237E-02_JPRB,.242E-02_JPRB,.246E-02_JPRB,.253E-02_JPRB,.256E-02_JPRB,&
+&.259E-02_JPRB,.262E-02_JPRB,.265E-02_JPRB,.266E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.267E-02_JPRB,&
+&.266E-02_JPRB,.265E-02_JPRB,.264E-02_JPRB,.263E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.265E-02_JPRB,&
+&.266E-02_JPRB,.267E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.267E-02_JPRB,.264E-02_JPRB,&
+&.261E-02_JPRB,.258E-02_JPRB,.251E-02_JPRB,.243E-02_JPRB,.237E-02_JPRB,.226E-02_JPRB,.216E-02_JPRB,&
+&.208E-02_JPRB,.198E-02_JPRB,.190E-02_JPRB,.185E-02_JPRB,.178E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,&
+&.168E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,&
+&.171E-02_JPRB,.174E-02_JPRB,.181E-02_JPRB,.186E-02_JPRB,.193E-02_JPRB,.203E-02_JPRB,.209E-02_JPRB,&
+&.216E-02_JPRB,.227E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  5  74.0
+ZAER (:, 5, 9) = (/&
+&.271E-02_JPRB,.271E-02_JPRB,.281E-02_JPRB,.285E-02_JPRB,.288E-02_JPRB,.290E-02_JPRB,.291E-02_JPRB,&
+&.291E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.289E-02_JPRB,.288E-02_JPRB,.285E-02_JPRB,.284E-02_JPRB,&
+&.281E-02_JPRB,.278E-02_JPRB,.277E-02_JPRB,.276E-02_JPRB,.278E-02_JPRB,.281E-02_JPRB,.283E-02_JPRB,&
+&.290E-02_JPRB,.294E-02_JPRB,.298E-02_JPRB,.306E-02_JPRB,.308E-02_JPRB,.311E-02_JPRB,.312E-02_JPRB,&
+&.309E-02_JPRB,.305E-02_JPRB,.295E-02_JPRB,.283E-02_JPRB,.273E-02_JPRB,.256E-02_JPRB,.241E-02_JPRB,&
+&.230E-02_JPRB,.216E-02_JPRB,.205E-02_JPRB,.198E-02_JPRB,.191E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,&
+&.182E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.184E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,&
+&.186E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.186E-02_JPRB,&
+&.185E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.185E-02_JPRB,&
+&.188E-02_JPRB,.193E-02_JPRB,.204E-02_JPRB,.212E-02_JPRB,.222E-02_JPRB,.238E-02_JPRB,.247E-02_JPRB,&
+&.257E-02_JPRB,.270E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  6  70.0
+ZAER (:, 6, 9) = (/&
+&.339E-02_JPRB,.339E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.345E-02_JPRB,.341E-02_JPRB,.335E-02_JPRB,&
+&.330E-02_JPRB,.321E-02_JPRB,.314E-02_JPRB,.310E-02_JPRB,.305E-02_JPRB,.302E-02_JPRB,.299E-02_JPRB,&
+&.296E-02_JPRB,.292E-02_JPRB,.291E-02_JPRB,.290E-02_JPRB,.292E-02_JPRB,.296E-02_JPRB,.301E-02_JPRB,&
+&.312E-02_JPRB,.321E-02_JPRB,.329E-02_JPRB,.348E-02_JPRB,.357E-02_JPRB,.364E-02_JPRB,.369E-02_JPRB,&
+&.364E-02_JPRB,.358E-02_JPRB,.342E-02_JPRB,.326E-02_JPRB,.312E-02_JPRB,.290E-02_JPRB,.273E-02_JPRB,&
+&.260E-02_JPRB,.243E-02_JPRB,.230E-02_JPRB,.223E-02_JPRB,.215E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,&
+&.209E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.213E-02_JPRB,.218E-02_JPRB,.220E-02_JPRB,.222E-02_JPRB,&
+&.226E-02_JPRB,.228E-02_JPRB,.230E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.230E-02_JPRB,&
+&.228E-02_JPRB,.226E-02_JPRB,.224E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.226E-02_JPRB,&
+&.231E-02_JPRB,.240E-02_JPRB,.256E-02_JPRB,.267E-02_JPRB,.281E-02_JPRB,.302E-02_JPRB,.313E-02_JPRB,&
+&.325E-02_JPRB,.339E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  7  66.0
+ZAER (:, 7, 9) = (/&
+&.419E-02_JPRB,.419E-02_JPRB,.422E-02_JPRB,.418E-02_JPRB,.414E-02_JPRB,.404E-02_JPRB,.394E-02_JPRB,&
+&.384E-02_JPRB,.365E-02_JPRB,.351E-02_JPRB,.343E-02_JPRB,.334E-02_JPRB,.329E-02_JPRB,.326E-02_JPRB,&
+&.321E-02_JPRB,.316E-02_JPRB,.312E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.310E-02_JPRB,.315E-02_JPRB,&
+&.328E-02_JPRB,.340E-02_JPRB,.353E-02_JPRB,.385E-02_JPRB,.400E-02_JPRB,.413E-02_JPRB,.423E-02_JPRB,&
+&.414E-02_JPRB,.405E-02_JPRB,.382E-02_JPRB,.366E-02_JPRB,.352E-02_JPRB,.333E-02_JPRB,.317E-02_JPRB,&
+&.304E-02_JPRB,.286E-02_JPRB,.271E-02_JPRB,.262E-02_JPRB,.252E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,&
+&.247E-02_JPRB,.249E-02_JPRB,.251E-02_JPRB,.253E-02_JPRB,.260E-02_JPRB,.266E-02_JPRB,.272E-02_JPRB,&
+&.282E-02_JPRB,.285E-02_JPRB,.288E-02_JPRB,.291E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.288E-02_JPRB,&
+&.288E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.289E-02_JPRB,.290E-02_JPRB,.293E-02_JPRB,.301E-02_JPRB,&
+&.309E-02_JPRB,.321E-02_JPRB,.339E-02_JPRB,.350E-02_JPRB,.363E-02_JPRB,.384E-02_JPRB,.395E-02_JPRB,&
+&.406E-02_JPRB,.419E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  8  62.0
+ZAER (:, 8, 9) = (/&
+&.482E-02_JPRB,.482E-02_JPRB,.488E-02_JPRB,.480E-02_JPRB,.473E-02_JPRB,.455E-02_JPRB,.445E-02_JPRB,&
+&.435E-02_JPRB,.413E-02_JPRB,.397E-02_JPRB,.386E-02_JPRB,.375E-02_JPRB,.367E-02_JPRB,.362E-02_JPRB,&
+&.356E-02_JPRB,.349E-02_JPRB,.342E-02_JPRB,.332E-02_JPRB,.325E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.334E-02_JPRB,.347E-02_JPRB,.361E-02_JPRB,.398E-02_JPRB,.417E-02_JPRB,.434E-02_JPRB,.444E-02_JPRB,&
+&.435E-02_JPRB,.427E-02_JPRB,.411E-02_JPRB,.403E-02_JPRB,.396E-02_JPRB,.385E-02_JPRB,.374E-02_JPRB,&
+&.364E-02_JPRB,.347E-02_JPRB,.326E-02_JPRB,.313E-02_JPRB,.299E-02_JPRB,.296E-02_JPRB,.299E-02_JPRB,&
+&.305E-02_JPRB,.311E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.320E-02_JPRB,.327E-02_JPRB,.335E-02_JPRB,&
+&.351E-02_JPRB,.355E-02_JPRB,.358E-02_JPRB,.357E-02_JPRB,.355E-02_JPRB,.354E-02_JPRB,.356E-02_JPRB,&
+&.362E-02_JPRB,.367E-02_JPRB,.377E-02_JPRB,.383E-02_JPRB,.387E-02_JPRB,.393E-02_JPRB,.406E-02_JPRB,&
+&.415E-02_JPRB,.426E-02_JPRB,.431E-02_JPRB,.434E-02_JPRB,.437E-02_JPRB,.451E-02_JPRB,.460E-02_JPRB,&
+&.469E-02_JPRB,.481E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat:  9  58.0
+ZAER (:, 9, 9) = (/&
+&.540E-02_JPRB,.540E-02_JPRB,.536E-02_JPRB,.526E-02_JPRB,.515E-02_JPRB,.496E-02_JPRB,.486E-02_JPRB,&
+&.476E-02_JPRB,.457E-02_JPRB,.443E-02_JPRB,.432E-02_JPRB,.415E-02_JPRB,.404E-02_JPRB,.396E-02_JPRB,&
+&.387E-02_JPRB,.373E-02_JPRB,.363E-02_JPRB,.350E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.345E-02_JPRB,&
+&.360E-02_JPRB,.374E-02_JPRB,.389E-02_JPRB,.435E-02_JPRB,.460E-02_JPRB,.484E-02_JPRB,.500E-02_JPRB,&
+&.489E-02_JPRB,.481E-02_JPRB,.472E-02_JPRB,.466E-02_JPRB,.461E-02_JPRB,.450E-02_JPRB,.438E-02_JPRB,&
+&.427E-02_JPRB,.408E-02_JPRB,.378E-02_JPRB,.362E-02_JPRB,.346E-02_JPRB,.361E-02_JPRB,.378E-02_JPRB,&
+&.402E-02_JPRB,.415E-02_JPRB,.414E-02_JPRB,.411E-02_JPRB,.409E-02_JPRB,.411E-02_JPRB,.414E-02_JPRB,&
+&.420E-02_JPRB,.423E-02_JPRB,.426E-02_JPRB,.420E-02_JPRB,.417E-02_JPRB,.416E-02_JPRB,.424E-02_JPRB,&
+&.435E-02_JPRB,.446E-02_JPRB,.465E-02_JPRB,.475E-02_JPRB,.484E-02_JPRB,.498E-02_JPRB,.524E-02_JPRB,&
+&.533E-02_JPRB,.538E-02_JPRB,.512E-02_JPRB,.506E-02_JPRB,.504E-02_JPRB,.526E-02_JPRB,.533E-02_JPRB,&
+&.539E-02_JPRB,.540E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 10  54.0
+ZAER (:,10, 9) = (/&
+&.580E-02_JPRB,.580E-02_JPRB,.566E-02_JPRB,.556E-02_JPRB,.547E-02_JPRB,.535E-02_JPRB,.529E-02_JPRB,&
+&.520E-02_JPRB,.497E-02_JPRB,.484E-02_JPRB,.472E-02_JPRB,.452E-02_JPRB,.436E-02_JPRB,.425E-02_JPRB,&
+&.410E-02_JPRB,.388E-02_JPRB,.378E-02_JPRB,.369E-02_JPRB,.370E-02_JPRB,.375E-02_JPRB,.382E-02_JPRB,&
+&.401E-02_JPRB,.252E-02_JPRB,.441E-02_JPRB,.499E-02_JPRB,.537E-02_JPRB,.573E-02_JPRB,.608E-02_JPRB,&
+&.587E-02_JPRB,.572E-02_JPRB,.560E-02_JPRB,.541E-02_JPRB,.525E-02_JPRB,.500E-02_JPRB,.484E-02_JPRB,&
+&.472E-02_JPRB,.454E-02_JPRB,.428E-02_JPRB,.419E-02_JPRB,.415E-02_JPRB,.456E-02_JPRB,.485E-02_JPRB,&
+&.520E-02_JPRB,.526E-02_JPRB,.519E-02_JPRB,.508E-02_JPRB,.494E-02_JPRB,.491E-02_JPRB,.488E-02_JPRB,&
+&.484E-02_JPRB,.485E-02_JPRB,.486E-02_JPRB,.484E-02_JPRB,.475E-02_JPRB,.469E-02_JPRB,.468E-02_JPRB,&
+&.481E-02_JPRB,.493E-02_JPRB,.518E-02_JPRB,.527E-02_JPRB,.538E-02_JPRB,.561E-02_JPRB,.602E-02_JPRB,&
+&.615E-02_JPRB,.620E-02_JPRB,.574E-02_JPRB,.561E-02_JPRB,.553E-02_JPRB,.576E-02_JPRB,.583E-02_JPRB,&
+&.590E-02_JPRB,.581E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 11  50.0
+ZAER (:,11, 9) = (/&
+&.611E-02_JPRB,.610E-02_JPRB,.598E-02_JPRB,.585E-02_JPRB,.573E-02_JPRB,.560E-02_JPRB,.558E-02_JPRB,&
+&.555E-02_JPRB,.538E-02_JPRB,.524E-02_JPRB,.512E-02_JPRB,.496E-02_JPRB,.481E-02_JPRB,.468E-02_JPRB,&
+&.445E-02_JPRB,.423E-02_JPRB,.416E-02_JPRB,.413E-02_JPRB,.429E-02_JPRB,.437E-02_JPRB,.445E-02_JPRB,&
+&.467E-02_JPRB,.297E-02_JPRB,.527E-02_JPRB,.594E-02_JPRB,.631E-02_JPRB,.667E-02_JPRB,.708E-02_JPRB,&
+&.688E-02_JPRB,.671E-02_JPRB,.646E-02_JPRB,.611E-02_JPRB,.586E-02_JPRB,.558E-02_JPRB,.544E-02_JPRB,&
+&.535E-02_JPRB,.524E-02_JPRB,.514E-02_JPRB,.515E-02_JPRB,.524E-02_JPRB,.579E-02_JPRB,.613E-02_JPRB,&
+&.655E-02_JPRB,.643E-02_JPRB,.631E-02_JPRB,.616E-02_JPRB,.611E-02_JPRB,.626E-02_JPRB,.643E-02_JPRB,&
+&.635E-02_JPRB,.616E-02_JPRB,.599E-02_JPRB,.578E-02_JPRB,.554E-02_JPRB,.536E-02_JPRB,.521E-02_JPRB,&
+&.526E-02_JPRB,.534E-02_JPRB,.556E-02_JPRB,.563E-02_JPRB,.575E-02_JPRB,.604E-02_JPRB,.661E-02_JPRB,&
+&.683E-02_JPRB,.698E-02_JPRB,.652E-02_JPRB,.633E-02_JPRB,.614E-02_JPRB,.609E-02_JPRB,.612E-02_JPRB,&
+&.617E-02_JPRB,.611E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 12  46.0
+ZAER (:,12, 9) = (/&
+&.652E-02_JPRB,.652E-02_JPRB,.643E-02_JPRB,.623E-02_JPRB,.605E-02_JPRB,.579E-02_JPRB,.581E-02_JPRB,&
+&.582E-02_JPRB,.581E-02_JPRB,.576E-02_JPRB,.569E-02_JPRB,.552E-02_JPRB,.536E-02_JPRB,.521E-02_JPRB,&
+&.496E-02_JPRB,.478E-02_JPRB,.477E-02_JPRB,.483E-02_JPRB,.515E-02_JPRB,.530E-02_JPRB,.545E-02_JPRB,&
+&.585E-02_JPRB,.377E-02_JPRB,.675E-02_JPRB,.779E-02_JPRB,.803E-02_JPRB,.825E-02_JPRB,.832E-02_JPRB,&
+&.818E-02_JPRB,.802E-02_JPRB,.754E-02_JPRB,.706E-02_JPRB,.677E-02_JPRB,.662E-02_JPRB,.655E-02_JPRB,&
+&.658E-02_JPRB,.678E-02_JPRB,.717E-02_JPRB,.745E-02_JPRB,.783E-02_JPRB,.808E-02_JPRB,.838E-02_JPRB,&
+&.881E-02_JPRB,.884E-02_JPRB,.879E-02_JPRB,.872E-02_JPRB,.884E-02_JPRB,.964E-02_JPRB,.105E-01_JPRB,&
+&.101E-01_JPRB,.930E-02_JPRB,.860E-02_JPRB,.788E-02_JPRB,.723E-02_JPRB,.675E-02_JPRB,.650E-02_JPRB,&
+&.643E-02_JPRB,.641E-02_JPRB,.650E-02_JPRB,.651E-02_JPRB,.664E-02_JPRB,.698E-02_JPRB,.757E-02_JPRB,&
+&.773E-02_JPRB,.773E-02_JPRB,.734E-02_JPRB,.718E-02_JPRB,.704E-02_JPRB,.669E-02_JPRB,.661E-02_JPRB,&
+&.654E-02_JPRB,.652E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 13  42.0
+ZAER (:,13, 9) = (/&
+&.780E-02_JPRB,.779E-02_JPRB,.747E-02_JPRB,.715E-02_JPRB,.686E-02_JPRB,.642E-02_JPRB,.636E-02_JPRB,&
+&.635E-02_JPRB,.646E-02_JPRB,.647E-02_JPRB,.642E-02_JPRB,.626E-02_JPRB,.608E-02_JPRB,.595E-02_JPRB,&
+&.578E-02_JPRB,.573E-02_JPRB,.578E-02_JPRB,.591E-02_JPRB,.624E-02_JPRB,.656E-02_JPRB,.695E-02_JPRB,&
+&.810E-02_JPRB,.531E-02_JPRB,.577E-02_JPRB,.112E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.111E-01_JPRB,&
+&.105E-01_JPRB,.986E-02_JPRB,.901E-02_JPRB,.855E-02_JPRB,.834E-02_JPRB,.860E-02_JPRB,.901E-02_JPRB,&
+&.943E-02_JPRB,.102E-01_JPRB,.114E-01_JPRB,.122E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,&
+&.138E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.162E-01_JPRB,.174E-01_JPRB,&
+&.162E-01_JPRB,.147E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.106E-01_JPRB,.979E-02_JPRB,.935E-02_JPRB,&
+&.896E-02_JPRB,.873E-02_JPRB,.860E-02_JPRB,.853E-02_JPRB,.867E-02_JPRB,.917E-02_JPRB,.977E-02_JPRB,&
+&.991E-02_JPRB,.987E-02_JPRB,.961E-02_JPRB,.958E-02_JPRB,.959E-02_JPRB,.872E-02_JPRB,.833E-02_JPRB,&
+&.793E-02_JPRB,.780E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 14  38.0
+ZAER (:,14, 9) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.954E-02_JPRB,.906E-02_JPRB,.863E-02_JPRB,.805E-02_JPRB,.776E-02_JPRB,&
+&.758E-02_JPRB,.750E-02_JPRB,.745E-02_JPRB,.738E-02_JPRB,.718E-02_JPRB,.704E-02_JPRB,.699E-02_JPRB,&
+&.697E-02_JPRB,.709E-02_JPRB,.717E-02_JPRB,.728E-02_JPRB,.758E-02_JPRB,.814E-02_JPRB,.891E-02_JPRB,&
+&.118E-01_JPRB,.825E-02_JPRB,.949E-02_JPRB,.117E-01_JPRB,.195E-01_JPRB,.195E-01_JPRB,.173E-01_JPRB,&
+&.147E-01_JPRB,.127E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.117E-01_JPRB,.129E-01_JPRB,.135E-01_JPRB,&
+&.142E-01_JPRB,.155E-01_JPRB,.183E-01_JPRB,.203E-01_JPRB,.230E-01_JPRB,.224E-01_JPRB,.227E-01_JPRB,&
+&.236E-01_JPRB,.239E-01_JPRB,.238E-01_JPRB,.235E-01_JPRB,.247E-01_JPRB,.249E-01_JPRB,.251E-01_JPRB,&
+&.221E-01_JPRB,.205E-01_JPRB,.189E-01_JPRB,.167E-01_JPRB,.155E-01_JPRB,.144E-01_JPRB,.132E-01_JPRB,&
+&.125E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,.139E-01_JPRB,.152E-01_JPRB,&
+&.158E-01_JPRB,.165E-01_JPRB,.101E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.135E-01_JPRB,.125E-01_JPRB,&
+&.115E-01_JPRB,.105E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 15  34.0
+ZAER (:,15, 9) = (/&
+&.143E-01_JPRB,.142E-01_JPRB,.128E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,.107E-01_JPRB,.100E-01_JPRB,&
+&.960E-02_JPRB,.926E-02_JPRB,.897E-02_JPRB,.874E-02_JPRB,.839E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,&
+&.836E-02_JPRB,.852E-02_JPRB,.862E-02_JPRB,.872E-02_JPRB,.894E-02_JPRB,.983E-02_JPRB,.111E-01_JPRB,&
+&.168E-01_JPRB,.130E-01_JPRB,.161E-01_JPRB,.233E-01_JPRB,.233E-01_JPRB,.380E-01_JPRB,.286E-01_JPRB,&
+&.225E-01_JPRB,.180E-01_JPRB,.164E-01_JPRB,.169E-01_JPRB,.176E-01_JPRB,.199E-01_JPRB,.193E-01_JPRB,&
+&.197E-01_JPRB,.215E-01_JPRB,.269E-01_JPRB,.309E-01_JPRB,.366E-01_JPRB,.215E-01_JPRB,.370E-01_JPRB,&
+&.394E-01_JPRB,.370E-01_JPRB,.356E-01_JPRB,.340E-01_JPRB,.337E-01_JPRB,.317E-01_JPRB,.296E-01_JPRB,&
+&.256E-01_JPRB,.243E-01_JPRB,.231E-01_JPRB,.213E-01_JPRB,.202E-01_JPRB,.191E-01_JPRB,.171E-01_JPRB,&
+&.161E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.162E-01_JPRB,.109E-01_JPRB,.231E-01_JPRB,.277E-01_JPRB,&
+&.294E-01_JPRB,.183E-01_JPRB,.177E-01_JPRB,.167E-01_JPRB,.254E-01_JPRB,.192E-01_JPRB,.175E-01_JPRB,&
+&.160E-01_JPRB,.143E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 16  30.0
+ZAER (:,16, 9) = (/&
+&.173E-01_JPRB,.172E-01_JPRB,.158E-01_JPRB,.150E-01_JPRB,.142E-01_JPRB,.131E-01_JPRB,.123E-01_JPRB,&
+&.116E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,.990E-02_JPRB,.940E-02_JPRB,.926E-02_JPRB,.930E-02_JPRB,&
+&.957E-02_JPRB,.978E-02_JPRB,.984E-02_JPRB,.987E-02_JPRB,.104E-01_JPRB,.119E-01_JPRB,.142E-01_JPRB,&
+&.235E-01_JPRB,.191E-01_JPRB,.245E-01_JPRB,.422E-01_JPRB,.430E-01_JPRB,.713E-01_JPRB,.456E-01_JPRB,&
+&.345E-01_JPRB,.262E-01_JPRB,.237E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,.254E-01_JPRB,.247E-01_JPRB,&
+&.256E-01_JPRB,.294E-01_JPRB,.378E-01_JPRB,.443E-01_JPRB,.537E-01_JPRB,.334E-01_JPRB,.352E-01_JPRB,&
+&.380E-01_JPRB,.557E-01_JPRB,.499E-01_JPRB,.432E-01_JPRB,.383E-01_JPRB,.348E-01_JPRB,.311E-01_JPRB,&
+&.272E-01_JPRB,.260E-01_JPRB,.250E-01_JPRB,.237E-01_JPRB,.227E-01_JPRB,.217E-01_JPRB,.197E-01_JPRB,&
+&.188E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.121E-01_JPRB,.147E-01_JPRB,.212E-01_JPRB,.292E-01_JPRB,&
+&.312E-01_JPRB,.306E-01_JPRB,.260E-01_JPRB,.228E-01_JPRB,.314E-01_JPRB,.228E-01_JPRB,.207E-01_JPRB,&
+&.191E-01_JPRB,.173E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 17  26.0
+ZAER (:,17, 9) = (/&
+&.176E-01_JPRB,.176E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.132E-01_JPRB,&
+&.125E-01_JPRB,.118E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.978E-02_JPRB,.980E-02_JPRB,.101E-01_JPRB,&
+&.107E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.114E-01_JPRB,.134E-01_JPRB,.167E-01_JPRB,.211E-01_JPRB,&
+&.334E-01_JPRB,.273E-01_JPRB,.352E-01_JPRB,.686E-01_JPRB,.712E-01_JPRB,.716E-01_JPRB,.691E-01_JPRB,&
+&.519E-01_JPRB,.387E-01_JPRB,.323E-01_JPRB,.302E-01_JPRB,.287E-01_JPRB,.271E-01_JPRB,.286E-01_JPRB,&
+&.317E-01_JPRB,.395E-01_JPRB,.514E-01_JPRB,.622E-01_JPRB,.474E-01_JPRB,.520E-01_JPRB,.546E-01_JPRB,&
+&.575E-01_JPRB,.785E-01_JPRB,.651E-01_JPRB,.495E-01_JPRB,.395E-01_JPRB,.354E-01_JPRB,.316E-01_JPRB,&
+&.278E-01_JPRB,.264E-01_JPRB,.251E-01_JPRB,.238E-01_JPRB,.230E-01_JPRB,.222E-01_JPRB,.205E-01_JPRB,&
+&.204E-01_JPRB,.206E-01_JPRB,.217E-01_JPRB,.151E-01_JPRB,.197E-01_JPRB,.307E-01_JPRB,.455E-01_JPRB,&
+&.478E-01_JPRB,.440E-01_JPRB,.321E-01_JPRB,.258E-01_JPRB,.317E-01_JPRB,.232E-01_JPRB,.210E-01_JPRB,&
+&.192E-01_JPRB,.177E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 18  22.0
+ZAER (:,18, 9) = (/&
+&.152E-01_JPRB,.151E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.124E-01_JPRB,&
+&.119E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.101E-01_JPRB,.971E-02_JPRB,.101E-01_JPRB,.108E-01_JPRB,&
+&.121E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.147E-01_JPRB,.196E-01_JPRB,.261E-01_JPRB,.348E-01_JPRB,&
+&.486E-01_JPRB,.394E-01_JPRB,.507E-01_JPRB,.989E-01_JPRB,.102E+00_JPRB,.103E+00_JPRB,.599E-01_JPRB,&
+&.745E-01_JPRB,.544E-01_JPRB,.396E-01_JPRB,.334E-01_JPRB,.294E-01_JPRB,.268E-01_JPRB,.316E-01_JPRB,&
+&.375E-01_JPRB,.501E-01_JPRB,.693E-01_JPRB,.871E-01_JPRB,.694E-01_JPRB,.758E-01_JPRB,.767E-01_JPRB,&
+&.760E-01_JPRB,.576E-01_JPRB,.761E-01_JPRB,.323E-01_JPRB,.401E-01_JPRB,.357E-01_JPRB,.315E-01_JPRB,&
+&.275E-01_JPRB,.259E-01_JPRB,.245E-01_JPRB,.232E-01_JPRB,.226E-01_JPRB,.220E-01_JPRB,.206E-01_JPRB,&
+&.218E-01_JPRB,.233E-01_JPRB,.267E-01_JPRB,.336E-01_JPRB,.271E-01_JPRB,.427E-01_JPRB,.597E-01_JPRB,&
+&.602E-01_JPRB,.513E-01_JPRB,.326E-01_JPRB,.406E-01_JPRB,.273E-01_JPRB,.205E-01_JPRB,.184E-01_JPRB,&
+&.167E-01_JPRB,.152E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 19  18.0
+ZAER (:,19, 9) = (/&
+&.112E-01_JPRB,.111E-01_JPRB,.100E-01_JPRB,.104E-01_JPRB,.107E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.111E-01_JPRB,.106E-01_JPRB,.103E-01_JPRB,.992E-02_JPRB,.107E-01_JPRB,.118E-01_JPRB,&
+&.137E-01_JPRB,.163E-01_JPRB,.184E-01_JPRB,.213E-01_JPRB,.298E-01_JPRB,.402E-01_JPRB,.540E-01_JPRB,&
+&.707E-01_JPRB,.557E-01_JPRB,.703E-01_JPRB,.122E+00_JPRB,.126E+00_JPRB,.126E+00_JPRB,.779E-01_JPRB,&
+&.571E-01_JPRB,.671E-01_JPRB,.426E-01_JPRB,.342E-01_JPRB,.293E-01_JPRB,.281E-01_JPRB,.358E-01_JPRB,&
+&.443E-01_JPRB,.617E-01_JPRB,.919E-01_JPRB,.115E+00_JPRB,.887E-01_JPRB,.923E-01_JPRB,.896E-01_JPRB,&
+&.835E-01_JPRB,.606E-01_JPRB,.800E-01_JPRB,.345E-01_JPRB,.413E-01_JPRB,.360E-01_JPRB,.311E-01_JPRB,&
+&.269E-01_JPRB,.256E-01_JPRB,.243E-01_JPRB,.233E-01_JPRB,.227E-01_JPRB,.222E-01_JPRB,.216E-01_JPRB,&
+&.242E-01_JPRB,.269E-01_JPRB,.326E-01_JPRB,.441E-01_JPRB,.581E-01_JPRB,.517E-01_JPRB,.617E-01_JPRB,&
+&.586E-01_JPRB,.457E-01_JPRB,.261E-01_JPRB,.311E-01_JPRB,.206E-01_JPRB,.159E-01_JPRB,.143E-01_JPRB,&
+&.128E-01_JPRB,.112E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 20  14.0
+ZAER (:,20, 9) = (/&
+&.777E-02_JPRB,.776E-02_JPRB,.752E-02_JPRB,.813E-02_JPRB,.874E-02_JPRB,.101E-01_JPRB,.107E-01_JPRB,&
+&.111E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.111E-01_JPRB,.121E-01_JPRB,.134E-01_JPRB,&
+&.158E-01_JPRB,.212E-01_JPRB,.256E-01_JPRB,.318E-01_JPRB,.447E-01_JPRB,.581E-01_JPRB,.753E-01_JPRB,&
+&.574E-01_JPRB,.713E-01_JPRB,.866E-01_JPRB,.132E+00_JPRB,.135E+00_JPRB,.134E+00_JPRB,.854E-01_JPRB,&
+&.610E-01_JPRB,.691E-01_JPRB,.417E-01_JPRB,.354E-01_JPRB,.321E-01_JPRB,.332E-01_JPRB,.425E-01_JPRB,&
+&.532E-01_JPRB,.753E-01_JPRB,.114E+00_JPRB,.135E+00_JPRB,.942E-01_JPRB,.907E-01_JPRB,.866E-01_JPRB,&
+&.805E-01_JPRB,.600E-01_JPRB,.484E-01_JPRB,.597E-01_JPRB,.420E-01_JPRB,.367E-01_JPRB,.318E-01_JPRB,&
+&.271E-01_JPRB,.260E-01_JPRB,.250E-01_JPRB,.242E-01_JPRB,.236E-01_JPRB,.233E-01_JPRB,.235E-01_JPRB,&
+&.269E-01_JPRB,.305E-01_JPRB,.385E-01_JPRB,.523E-01_JPRB,.638E-01_JPRB,.821E-01_JPRB,.487E-01_JPRB,&
+&.431E-01_JPRB,.524E-01_JPRB,.295E-01_JPRB,.217E-01_JPRB,.155E-01_JPRB,.120E-01_JPRB,.106E-01_JPRB,&
+&.908E-02_JPRB,.781E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 21  10.0
+ZAER (:,21, 9) = (/&
+&.613E-02_JPRB,.614E-02_JPRB,.647E-02_JPRB,.724E-02_JPRB,.800E-02_JPRB,.961E-02_JPRB,.105E-01_JPRB,&
+&.113E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,.151E-01_JPRB,.167E-01_JPRB,&
+&.195E-01_JPRB,.272E-01_JPRB,.338E-01_JPRB,.432E-01_JPRB,.608E-01_JPRB,.758E-01_JPRB,.943E-01_JPRB,&
+&.680E-01_JPRB,.808E-01_JPRB,.948E-01_JPRB,.131E+00_JPRB,.132E+00_JPRB,.129E+00_JPRB,.792E-01_JPRB,&
+&.555E-01_JPRB,.613E-01_JPRB,.394E-01_JPRB,.374E-01_JPRB,.370E-01_JPRB,.399E-01_JPRB,.489E-01_JPRB,&
+&.600E-01_JPRB,.838E-01_JPRB,.129E+00_JPRB,.150E+00_JPRB,.100E+00_JPRB,.887E-01_JPRB,.841E-01_JPRB,&
+&.801E-01_JPRB,.616E-01_JPRB,.829E-01_JPRB,.608E-01_JPRB,.433E-01_JPRB,.382E-01_JPRB,.336E-01_JPRB,&
+&.279E-01_JPRB,.270E-01_JPRB,.261E-01_JPRB,.250E-01_JPRB,.247E-01_JPRB,.246E-01_JPRB,.252E-01_JPRB,&
+&.300E-01_JPRB,.350E-01_JPRB,.458E-01_JPRB,.562E-01_JPRB,.623E-01_JPRB,.686E-01_JPRB,.603E-01_JPRB,&
+&.514E-01_JPRB,.369E-01_JPRB,.230E-01_JPRB,.177E-01_JPRB,.132E-01_JPRB,.101E-01_JPRB,.864E-02_JPRB,&
+&.711E-02_JPRB,.616E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 22   6.0
+ZAER (:,22, 9) = (/&
+&.572E-02_JPRB,.572E-02_JPRB,.601E-02_JPRB,.669E-02_JPRB,.737E-02_JPRB,.893E-02_JPRB,.996E-02_JPRB,&
+&.109E-01_JPRB,.127E-01_JPRB,.137E-01_JPRB,.145E-01_JPRB,.161E-01_JPRB,.184E-01_JPRB,.205E-01_JPRB,&
+&.241E-01_JPRB,.329E-01_JPRB,.402E-01_JPRB,.506E-01_JPRB,.700E-01_JPRB,.858E-01_JPRB,.630E-01_JPRB,&
+&.759E-01_JPRB,.870E-01_JPRB,.988E-01_JPRB,.119E+00_JPRB,.112E+00_JPRB,.103E+00_JPRB,.648E-01_JPRB,&
+&.463E-01_JPRB,.530E-01_JPRB,.380E-01_JPRB,.389E-01_JPRB,.401E-01_JPRB,.433E-01_JPRB,.508E-01_JPRB,&
+&.614E-01_JPRB,.856E-01_JPRB,.132E+00_JPRB,.156E+00_JPRB,.106E+00_JPRB,.939E-01_JPRB,.878E-01_JPRB,&
+&.817E-01_JPRB,.610E-01_JPRB,.818E-01_JPRB,.602E-01_JPRB,.442E-01_JPRB,.393E-01_JPRB,.348E-01_JPRB,&
+&.292E-01_JPRB,.279E-01_JPRB,.267E-01_JPRB,.246E-01_JPRB,.243E-01_JPRB,.244E-01_JPRB,.266E-01_JPRB,&
+&.341E-01_JPRB,.407E-01_JPRB,.523E-01_JPRB,.580E-01_JPRB,.596E-01_JPRB,.578E-01_JPRB,.492E-01_JPRB,&
+&.420E-01_JPRB,.189E-01_JPRB,.124E-01_JPRB,.163E-01_JPRB,.123E-01_JPRB,.946E-02_JPRB,.804E-02_JPRB,&
+&.659E-02_JPRB,.574E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 23   2.0
+ZAER (:,23, 9) = (/&
+&.574E-02_JPRB,.575E-02_JPRB,.584E-02_JPRB,.620E-02_JPRB,.661E-02_JPRB,.795E-02_JPRB,.899E-02_JPRB,&
+&.992E-02_JPRB,.116E-01_JPRB,.132E-01_JPRB,.146E-01_JPRB,.172E-01_JPRB,.202E-01_JPRB,.228E-01_JPRB,&
+&.270E-01_JPRB,.364E-01_JPRB,.434E-01_JPRB,.527E-01_JPRB,.706E-01_JPRB,.860E-01_JPRB,.630E-01_JPRB,&
+&.799E-01_JPRB,.876E-01_JPRB,.952E-01_JPRB,.962E-01_JPRB,.846E-01_JPRB,.727E-01_JPRB,.502E-01_JPRB,&
+&.626E-01_JPRB,.463E-01_JPRB,.363E-01_JPRB,.377E-01_JPRB,.390E-01_JPRB,.416E-01_JPRB,.497E-01_JPRB,&
+&.590E-01_JPRB,.784E-01_JPRB,.110E+00_JPRB,.763E-01_JPRB,.864E-01_JPRB,.829E-01_JPRB,.792E-01_JPRB,&
+&.738E-01_JPRB,.543E-01_JPRB,.441E-01_JPRB,.554E-01_JPRB,.417E-01_JPRB,.371E-01_JPRB,.327E-01_JPRB,&
+&.281E-01_JPRB,.267E-01_JPRB,.252E-01_JPRB,.226E-01_JPRB,.220E-01_JPRB,.222E-01_JPRB,.260E-01_JPRB,&
+&.341E-01_JPRB,.243E-01_JPRB,.502E-01_JPRB,.330E-01_JPRB,.556E-01_JPRB,.520E-01_JPRB,.439E-01_JPRB,&
+&.226E-01_JPRB,.288E-01_JPRB,.191E-01_JPRB,.154E-01_JPRB,.120E-01_JPRB,.935E-02_JPRB,.806E-02_JPRB,&
+&.675E-02_JPRB,.577E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 24  -2.0
+ZAER (:,24, 9) = (/&
+&.573E-02_JPRB,.573E-02_JPRB,.558E-02_JPRB,.574E-02_JPRB,.597E-02_JPRB,.696E-02_JPRB,.786E-02_JPRB,&
+&.869E-02_JPRB,.103E-01_JPRB,.121E-01_JPRB,.138E-01_JPRB,.170E-01_JPRB,.199E-01_JPRB,.223E-01_JPRB,&
+&.262E-01_JPRB,.347E-01_JPRB,.405E-01_JPRB,.480E-01_JPRB,.613E-01_JPRB,.733E-01_JPRB,.883E-01_JPRB,&
+&.678E-01_JPRB,.712E-01_JPRB,.738E-01_JPRB,.670E-01_JPRB,.584E-01_JPRB,.826E-01_JPRB,.546E-01_JPRB,&
+&.438E-01_JPRB,.357E-01_JPRB,.322E-01_JPRB,.327E-01_JPRB,.337E-01_JPRB,.370E-01_JPRB,.445E-01_JPRB,&
+&.511E-01_JPRB,.622E-01_JPRB,.747E-01_JPRB,.478E-01_JPRB,.494E-01_JPRB,.534E-01_JPRB,.541E-01_JPRB,&
+&.539E-01_JPRB,.403E-01_JPRB,.339E-01_JPRB,.273E-01_JPRB,.370E-01_JPRB,.332E-01_JPRB,.296E-01_JPRB,&
+&.247E-01_JPRB,.235E-01_JPRB,.224E-01_JPRB,.212E-01_JPRB,.204E-01_JPRB,.202E-01_JPRB,.226E-01_JPRB,&
+&.167E-01_JPRB,.326E-01_JPRB,.412E-01_JPRB,.281E-01_JPRB,.479E-01_JPRB,.450E-01_JPRB,.384E-01_JPRB,&
+&.333E-01_JPRB,.262E-01_JPRB,.181E-01_JPRB,.147E-01_JPRB,.116E-01_JPRB,.922E-02_JPRB,.813E-02_JPRB,&
+&.704E-02_JPRB,.577E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 25  -6.0
+ZAER (:,25, 9) = (/&
+&.551E-02_JPRB,.550E-02_JPRB,.519E-02_JPRB,.525E-02_JPRB,.537E-02_JPRB,.605E-02_JPRB,.673E-02_JPRB,&
+&.737E-02_JPRB,.864E-02_JPRB,.103E-01_JPRB,.119E-01_JPRB,.147E-01_JPRB,.172E-01_JPRB,.190E-01_JPRB,&
+&.214E-01_JPRB,.276E-01_JPRB,.320E-01_JPRB,.377E-01_JPRB,.458E-01_JPRB,.531E-01_JPRB,.622E-01_JPRB,&
+&.477E-01_JPRB,.498E-01_JPRB,.513E-01_JPRB,.444E-01_JPRB,.644E-01_JPRB,.546E-01_JPRB,.345E-01_JPRB,&
+&.292E-01_JPRB,.254E-01_JPRB,.253E-01_JPRB,.261E-01_JPRB,.276E-01_JPRB,.325E-01_JPRB,.248E-01_JPRB,&
+&.283E-01_JPRB,.325E-01_JPRB,.343E-01_JPRB,.341E-01_JPRB,.321E-01_JPRB,.349E-01_JPRB,.358E-01_JPRB,&
+&.364E-01_JPRB,.275E-01_JPRB,.244E-01_JPRB,.217E-01_JPRB,.319E-01_JPRB,.297E-01_JPRB,.274E-01_JPRB,&
+&.235E-01_JPRB,.231E-01_JPRB,.228E-01_JPRB,.240E-01_JPRB,.234E-01_JPRB,.229E-01_JPRB,.223E-01_JPRB,&
+&.245E-01_JPRB,.271E-01_JPRB,.334E-01_JPRB,.392E-01_JPRB,.408E-01_JPRB,.390E-01_JPRB,.331E-01_JPRB,&
+&.289E-01_JPRB,.234E-01_JPRB,.178E-01_JPRB,.149E-01_JPRB,.117E-01_JPRB,.900E-02_JPRB,.795E-02_JPRB,&
+&.695E-02_JPRB,.555E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 26 -10.0
+ZAER (:,26, 9) = (/&
+&.516E-02_JPRB,.515E-02_JPRB,.489E-02_JPRB,.488E-02_JPRB,.492E-02_JPRB,.531E-02_JPRB,.582E-02_JPRB,&
+&.630E-02_JPRB,.727E-02_JPRB,.849E-02_JPRB,.968E-02_JPRB,.120E-01_JPRB,.133E-01_JPRB,.144E-01_JPRB,&
+&.161E-01_JPRB,.204E-01_JPRB,.235E-01_JPRB,.276E-01_JPRB,.321E-01_JPRB,.355E-01_JPRB,.396E-01_JPRB,&
+&.302E-01_JPRB,.317E-01_JPRB,.329E-01_JPRB,.466E-01_JPRB,.413E-01_JPRB,.359E-01_JPRB,.244E-01_JPRB,&
+&.212E-01_JPRB,.190E-01_JPRB,.192E-01_JPRB,.209E-01_JPRB,.233E-01_JPRB,.297E-01_JPRB,.226E-01_JPRB,&
+&.252E-01_JPRB,.273E-01_JPRB,.267E-01_JPRB,.257E-01_JPRB,.237E-01_JPRB,.244E-01_JPRB,.251E-01_JPRB,&
+&.260E-01_JPRB,.209E-01_JPRB,.191E-01_JPRB,.175E-01_JPRB,.164E-01_JPRB,.267E-01_JPRB,.263E-01_JPRB,&
+&.260E-01_JPRB,.282E-01_JPRB,.304E-01_JPRB,.349E-01_JPRB,.330E-01_JPRB,.314E-01_JPRB,.292E-01_JPRB,&
+&.306E-01_JPRB,.322E-01_JPRB,.359E-01_JPRB,.379E-01_JPRB,.377E-01_JPRB,.348E-01_JPRB,.295E-01_JPRB,&
+&.258E-01_JPRB,.209E-01_JPRB,.171E-01_JPRB,.147E-01_JPRB,.118E-01_JPRB,.902E-02_JPRB,.782E-02_JPRB,&
+&.665E-02_JPRB,.521E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 27 -14.0
+ZAER (:,27, 9) = (/&
+&.493E-02_JPRB,.493E-02_JPRB,.480E-02_JPRB,.479E-02_JPRB,.480E-02_JPRB,.506E-02_JPRB,.550E-02_JPRB,&
+&.591E-02_JPRB,.667E-02_JPRB,.753E-02_JPRB,.832E-02_JPRB,.978E-02_JPRB,.106E-01_JPRB,.112E-01_JPRB,&
+&.123E-01_JPRB,.166E-01_JPRB,.189E-01_JPRB,.215E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.270E-01_JPRB,&
+&.321E-01_JPRB,.338E-01_JPRB,.353E-01_JPRB,.293E-01_JPRB,.265E-01_JPRB,.237E-01_JPRB,.187E-01_JPRB,&
+&.171E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.173E-01_JPRB,.191E-01_JPRB,.145E-01_JPRB,.176E-01_JPRB,&
+&.191E-01_JPRB,.200E-01_JPRB,.189E-01_JPRB,.182E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.184E-01_JPRB,&
+&.196E-01_JPRB,.177E-01_JPRB,.168E-01_JPRB,.159E-01_JPRB,.262E-01_JPRB,.272E-01_JPRB,.284E-01_JPRB,&
+&.328E-01_JPRB,.392E-01_JPRB,.271E-01_JPRB,.529E-01_JPRB,.496E-01_JPRB,.471E-01_JPRB,.449E-01_JPRB,&
+&.288E-01_JPRB,.301E-01_JPRB,.531E-01_JPRB,.451E-01_JPRB,.398E-01_JPRB,.334E-01_JPRB,.283E-01_JPRB,&
+&.247E-01_JPRB,.197E-01_JPRB,.158E-01_JPRB,.137E-01_JPRB,.115E-01_JPRB,.895E-02_JPRB,.760E-02_JPRB,&
+&.621E-02_JPRB,.497E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 28 -18.0
+ZAER (:,28, 9) = (/&
+&.476E-02_JPRB,.476E-02_JPRB,.480E-02_JPRB,.483E-02_JPRB,.488E-02_JPRB,.511E-02_JPRB,.550E-02_JPRB,&
+&.585E-02_JPRB,.645E-02_JPRB,.711E-02_JPRB,.774E-02_JPRB,.893E-02_JPRB,.981E-02_JPRB,.105E-01_JPRB,&
+&.114E-01_JPRB,.154E-01_JPRB,.104E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.206E-01_JPRB,.214E-01_JPRB,&
+&.224E-01_JPRB,.236E-01_JPRB,.248E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,.164E-01_JPRB,.142E-01_JPRB,&
+&.139E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.145E-01_JPRB,.156E-01_JPRB,.110E-01_JPRB,.126E-01_JPRB,&
+&.134E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.137E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.149E-01_JPRB,&
+&.159E-01_JPRB,.156E-01_JPRB,.262E-01_JPRB,.159E-01_JPRB,.172E-01_JPRB,.185E-01_JPRB,.331E-01_JPRB,&
+&.415E-01_JPRB,.505E-01_JPRB,.353E-01_JPRB,.412E-01_JPRB,.644E-01_JPRB,.616E-01_JPRB,.368E-01_JPRB,&
+&.421E-01_JPRB,.456E-01_JPRB,.812E-01_JPRB,.607E-01_JPRB,.483E-01_JPRB,.348E-01_JPRB,.279E-01_JPRB,&
+&.237E-01_JPRB,.186E-01_JPRB,.142E-01_JPRB,.125E-01_JPRB,.110E-01_JPRB,.872E-02_JPRB,.738E-02_JPRB,&
+&.597E-02_JPRB,.480E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 29 -22.0
+ZAER (:,29, 9) = (/&
+&.478E-02_JPRB,.478E-02_JPRB,.486E-02_JPRB,.490E-02_JPRB,.497E-02_JPRB,.521E-02_JPRB,.561E-02_JPRB,&
+&.594E-02_JPRB,.637E-02_JPRB,.689E-02_JPRB,.748E-02_JPRB,.875E-02_JPRB,.102E-01_JPRB,.112E-01_JPRB,&
+&.123E-01_JPRB,.917E-02_JPRB,.997E-02_JPRB,.179E-01_JPRB,.184E-01_JPRB,.187E-01_JPRB,.190E-01_JPRB,&
+&.179E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.167E-01_JPRB,.143E-01_JPRB,.121E-01_JPRB,.106E-01_JPRB,&
+&.109E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,.135E-01_JPRB,.900E-02_JPRB,.980E-02_JPRB,&
+&.104E-01_JPRB,.111E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,&
+&.151E-01_JPRB,.148E-01_JPRB,.154E-01_JPRB,.161E-01_JPRB,.187E-01_JPRB,.203E-01_JPRB,.368E-01_JPRB,&
+&.470E-01_JPRB,.330E-01_JPRB,.374E-01_JPRB,.416E-01_JPRB,.382E-01_JPRB,.363E-01_JPRB,.393E-01_JPRB,&
+&.513E-01_JPRB,.593E-01_JPRB,.675E-01_JPRB,.833E-01_JPRB,.640E-01_JPRB,.399E-01_JPRB,.273E-01_JPRB,&
+&.217E-01_JPRB,.170E-01_JPRB,.131E-01_JPRB,.118E-01_JPRB,.107E-01_JPRB,.845E-02_JPRB,.723E-02_JPRB,&
+&.597E-02_JPRB,.482E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 30 -26.0
+ZAER (:,30, 9) = (/&
+&.519E-02_JPRB,.519E-02_JPRB,.513E-02_JPRB,.506E-02_JPRB,.504E-02_JPRB,.532E-02_JPRB,.578E-02_JPRB,&
+&.610E-02_JPRB,.639E-02_JPRB,.677E-02_JPRB,.734E-02_JPRB,.875E-02_JPRB,.108E-01_JPRB,.121E-01_JPRB,&
+&.812E-02_JPRB,.913E-02_JPRB,.986E-02_JPRB,.180E-01_JPRB,.196E-01_JPRB,.195E-01_JPRB,.189E-01_JPRB,&
+&.166E-01_JPRB,.156E-01_JPRB,.147E-01_JPRB,.130E-01_JPRB,.112E-01_JPRB,.947E-02_JPRB,.829E-02_JPRB,&
+&.860E-02_JPRB,.891E-02_JPRB,.965E-02_JPRB,.110E-01_JPRB,.121E-01_JPRB,.133E-01_JPRB,.859E-02_JPRB,&
+&.912E-02_JPRB,.100E-01_JPRB,.108E-01_JPRB,.114E-01_JPRB,.123E-01_JPRB,.140E-01_JPRB,.150E-01_JPRB,&
+&.164E-01_JPRB,.155E-01_JPRB,.157E-01_JPRB,.162E-01_JPRB,.189E-01_JPRB,.345E-01_JPRB,.225E-01_JPRB,&
+&.280E-01_JPRB,.306E-01_JPRB,.329E-01_JPRB,.327E-01_JPRB,.292E-01_JPRB,.280E-01_JPRB,.359E-01_JPRB,&
+&.550E-01_JPRB,.683E-01_JPRB,.830E-01_JPRB,.652E-01_JPRB,.851E-01_JPRB,.489E-01_JPRB,.283E-01_JPRB,&
+&.205E-01_JPRB,.157E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.109E-01_JPRB,.851E-02_JPRB,.733E-02_JPRB,&
+&.615E-02_JPRB,.522E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 31 -30.0
+ZAER (:,31, 9) = (/&
+&.635E-02_JPRB,.633E-02_JPRB,.590E-02_JPRB,.551E-02_JPRB,.523E-02_JPRB,.551E-02_JPRB,.600E-02_JPRB,&
+&.633E-02_JPRB,.658E-02_JPRB,.680E-02_JPRB,.733E-02_JPRB,.887E-02_JPRB,.112E-01_JPRB,.125E-01_JPRB,&
+&.828E-02_JPRB,.883E-02_JPRB,.970E-02_JPRB,.112E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.209E-01_JPRB,&
+&.174E-01_JPRB,.156E-01_JPRB,.138E-01_JPRB,.108E-01_JPRB,.940E-02_JPRB,.808E-02_JPRB,.736E-02_JPRB,&
+&.747E-02_JPRB,.762E-02_JPRB,.823E-02_JPRB,.951E-02_JPRB,.105E-01_JPRB,.120E-01_JPRB,.781E-02_JPRB,&
+&.835E-02_JPRB,.926E-02_JPRB,.102E-01_JPRB,.111E-01_JPRB,.125E-01_JPRB,.155E-01_JPRB,.173E-01_JPRB,&
+&.193E-01_JPRB,.178E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.187E-01_JPRB,.206E-01_JPRB,.225E-01_JPRB,&
+&.263E-01_JPRB,.263E-01_JPRB,.259E-01_JPRB,.219E-01_JPRB,.195E-01_JPRB,.195E-01_JPRB,.303E-01_JPRB,&
+&.522E-01_JPRB,.682E-01_JPRB,.882E-01_JPRB,.754E-01_JPRB,.617E-01_JPRB,.597E-01_JPRB,.334E-01_JPRB,&
+&.231E-01_JPRB,.164E-01_JPRB,.138E-01_JPRB,.129E-01_JPRB,.121E-01_JPRB,.967E-02_JPRB,.843E-02_JPRB,&
+&.716E-02_JPRB,.637E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 32 -34.0
+ZAER (:,32, 9) = (/&
+&.845E-02_JPRB,.842E-02_JPRB,.720E-02_JPRB,.641E-02_JPRB,.580E-02_JPRB,.589E-02_JPRB,.633E-02_JPRB,&
+&.664E-02_JPRB,.688E-02_JPRB,.697E-02_JPRB,.746E-02_JPRB,.909E-02_JPRB,.112E-01_JPRB,.730E-02_JPRB,&
+&.772E-02_JPRB,.818E-02_JPRB,.921E-02_JPRB,.110E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.140E-01_JPRB,&
+&.191E-01_JPRB,.166E-01_JPRB,.141E-01_JPRB,.101E-01_JPRB,.881E-02_JPRB,.764E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.723E-02_JPRB,.748E-02_JPRB,.825E-02_JPRB,.899E-02_JPRB,.105E-01_JPRB,.122E-01_JPRB,&
+&.801E-02_JPRB,.891E-02_JPRB,.101E-01_JPRB,.114E-01_JPRB,.227E-01_JPRB,.317E-01_JPRB,.364E-01_JPRB,&
+&.414E-01_JPRB,.380E-01_JPRB,.215E-01_JPRB,.200E-01_JPRB,.206E-01_JPRB,.224E-01_JPRB,.244E-01_JPRB,&
+&.262E-01_JPRB,.240E-01_JPRB,.218E-01_JPRB,.162E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.239E-01_JPRB,&
+&.421E-01_JPRB,.565E-01_JPRB,.779E-01_JPRB,.727E-01_JPRB,.628E-01_JPRB,.663E-01_JPRB,.406E-01_JPRB,&
+&.175E-01_JPRB,.197E-01_JPRB,.162E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,&
+&.958E-02_JPRB,.849E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 33 -38.0
+ZAER (:,33, 9) = (/&
+&.110E-01_JPRB,.109E-01_JPRB,.873E-02_JPRB,.772E-02_JPRB,.690E-02_JPRB,.664E-02_JPRB,.688E-02_JPRB,&
+&.705E-02_JPRB,.718E-02_JPRB,.723E-02_JPRB,.768E-02_JPRB,.922E-02_JPRB,.648E-02_JPRB,.683E-02_JPRB,&
+&.690E-02_JPRB,.735E-02_JPRB,.839E-02_JPRB,.102E-01_JPRB,.133E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,&
+&.202E-01_JPRB,.175E-01_JPRB,.146E-01_JPRB,.101E-01_JPRB,.894E-02_JPRB,.785E-02_JPRB,.719E-02_JPRB,&
+&.714E-02_JPRB,.711E-02_JPRB,.719E-02_JPRB,.750E-02_JPRB,.797E-02_JPRB,.936E-02_JPRB,.123E-01_JPRB,&
+&.856E-02_JPRB,.167E-01_JPRB,.210E-01_JPRB,.249E-01_JPRB,.309E-01_JPRB,.448E-01_JPRB,.515E-01_JPRB,&
+&.350E-01_JPRB,.317E-01_JPRB,.296E-01_JPRB,.273E-01_JPRB,.262E-01_JPRB,.274E-01_JPRB,.287E-01_JPRB,&
+&.288E-01_JPRB,.256E-01_JPRB,.224E-01_JPRB,.168E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.186E-01_JPRB,&
+&.290E-01_JPRB,.384E-01_JPRB,.555E-01_JPRB,.566E-01_JPRB,.871E-01_JPRB,.636E-01_JPRB,.447E-01_JPRB,&
+&.348E-01_JPRB,.146E-01_JPRB,.193E-01_JPRB,.175E-01_JPRB,.160E-01_JPRB,.145E-01_JPRB,.135E-01_JPRB,&
+&.125E-01_JPRB,.110E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 34 -42.0
+ZAER (:,34, 9) = (/&
+&.126E-01_JPRB,.125E-01_JPRB,.100E-01_JPRB,.902E-02_JPRB,.819E-02_JPRB,.764E-02_JPRB,.758E-02_JPRB,&
+&.754E-02_JPRB,.757E-02_JPRB,.765E-02_JPRB,.800E-02_JPRB,.915E-02_JPRB,.621E-02_JPRB,.644E-02_JPRB,&
+&.637E-02_JPRB,.668E-02_JPRB,.752E-02_JPRB,.903E-02_JPRB,.116E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,&
+&.118E-01_JPRB,.173E-01_JPRB,.148E-01_JPRB,.106E-01_JPRB,.947E-02_JPRB,.839E-02_JPRB,.733E-02_JPRB,&
+&.714E-02_JPRB,.701E-02_JPRB,.702E-02_JPRB,.726E-02_JPRB,.774E-02_JPRB,.941E-02_JPRB,.141E-01_JPRB,&
+&.108E-01_JPRB,.144E-01_JPRB,.369E-01_JPRB,.458E-01_JPRB,.575E-01_JPRB,.431E-01_JPRB,.469E-01_JPRB,&
+&.841E-01_JPRB,.773E-01_JPRB,.433E-01_JPRB,.398E-01_JPRB,.598E-01_JPRB,.353E-01_JPRB,.348E-01_JPRB,&
+&.329E-01_JPRB,.294E-01_JPRB,.260E-01_JPRB,.209E-01_JPRB,.189E-01_JPRB,.175E-01_JPRB,.169E-01_JPRB,&
+&.203E-01_JPRB,.241E-01_JPRB,.328E-01_JPRB,.369E-01_JPRB,.368E-01_JPRB,.320E-01_JPRB,.255E-01_JPRB,&
+&.356E-01_JPRB,.271E-01_JPRB,.217E-01_JPRB,.193E-01_JPRB,.171E-01_JPRB,.153E-01_JPRB,.146E-01_JPRB,&
+&.141E-01_JPRB,.127E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 35 -46.0
+ZAER (:,35, 9) = (/&
+&.125E-01_JPRB,.124E-01_JPRB,.104E-01_JPRB,.966E-02_JPRB,.898E-02_JPRB,.827E-02_JPRB,.802E-02_JPRB,&
+&.788E-02_JPRB,.790E-02_JPRB,.806E-02_JPRB,.832E-02_JPRB,.898E-02_JPRB,.596E-02_JPRB,.619E-02_JPRB,&
+&.628E-02_JPRB,.645E-02_JPRB,.698E-02_JPRB,.794E-02_JPRB,.967E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,&
+&.101E-01_JPRB,.923E-02_JPRB,.830E-02_JPRB,.109E-01_JPRB,.981E-02_JPRB,.879E-02_JPRB,.764E-02_JPRB,&
+&.736E-02_JPRB,.715E-02_JPRB,.708E-02_JPRB,.753E-02_JPRB,.836E-02_JPRB,.112E-01_JPRB,.193E-01_JPRB,&
+&.272E-01_JPRB,.250E-01_JPRB,.443E-01_JPRB,.557E-01_JPRB,.690E-01_JPRB,.703E-01_JPRB,.704E-01_JPRB,&
+&.700E-01_JPRB,.667E-01_JPRB,.621E-01_JPRB,.562E-01_JPRB,.800E-01_JPRB,.446E-01_JPRB,.413E-01_JPRB,&
+&.371E-01_JPRB,.338E-01_JPRB,.306E-01_JPRB,.256E-01_JPRB,.229E-01_JPRB,.208E-01_JPRB,.183E-01_JPRB,&
+&.182E-01_JPRB,.186E-01_JPRB,.207E-01_JPRB,.240E-01_JPRB,.252E-01_JPRB,.251E-01_JPRB,.214E-01_JPRB,&
+&.188E-01_JPRB,.259E-01_JPRB,.216E-01_JPRB,.193E-01_JPRB,.168E-01_JPRB,.146E-01_JPRB,.141E-01_JPRB,&
+&.138E-01_JPRB,.125E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 36 -50.0
+ZAER (:,36, 9) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.983E-02_JPRB,.937E-02_JPRB,.894E-02_JPRB,.831E-02_JPRB,.808E-02_JPRB,&
+&.793E-02_JPRB,.789E-02_JPRB,.799E-02_JPRB,.813E-02_JPRB,.508E-02_JPRB,.553E-02_JPRB,.583E-02_JPRB,&
+&.621E-02_JPRB,.641E-02_JPRB,.671E-02_JPRB,.720E-02_JPRB,.797E-02_JPRB,.811E-02_JPRB,.814E-02_JPRB,&
+&.774E-02_JPRB,.737E-02_JPRB,.698E-02_JPRB,.103E-01_JPRB,.951E-02_JPRB,.875E-02_JPRB,.776E-02_JPRB,&
+&.753E-02_JPRB,.736E-02_JPRB,.738E-02_JPRB,.816E-02_JPRB,.959E-02_JPRB,.144E-01_JPRB,.271E-01_JPRB,&
+&.407E-01_JPRB,.406E-01_JPRB,.723E-01_JPRB,.901E-01_JPRB,.109E+00_JPRB,.992E-01_JPRB,.940E-01_JPRB,&
+&.883E-01_JPRB,.834E-01_JPRB,.768E-01_JPRB,.685E-01_JPRB,.560E-01_JPRB,.507E-01_JPRB,.455E-01_JPRB,&
+&.399E-01_JPRB,.373E-01_JPRB,.347E-01_JPRB,.301E-01_JPRB,.269E-01_JPRB,.243E-01_JPRB,.208E-01_JPRB,&
+&.193E-01_JPRB,.182E-01_JPRB,.170E-01_JPRB,.180E-01_JPRB,.184E-01_JPRB,.188E-01_JPRB,.165E-01_JPRB,&
+&.149E-01_JPRB,.128E-01_JPRB,.187E-01_JPRB,.171E-01_JPRB,.151E-01_JPRB,.131E-01_JPRB,.126E-01_JPRB,&
+&.121E-01_JPRB,.111E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 37 -54.0
+ZAER (:,37, 9) = (/&
+&.970E-02_JPRB,.968E-02_JPRB,.899E-02_JPRB,.869E-02_JPRB,.842E-02_JPRB,.809E-02_JPRB,.794E-02_JPRB,&
+&.782E-02_JPRB,.767E-02_JPRB,.758E-02_JPRB,.456E-02_JPRB,.470E-02_JPRB,.508E-02_JPRB,.537E-02_JPRB,&
+&.579E-02_JPRB,.606E-02_JPRB,.622E-02_JPRB,.642E-02_JPRB,.658E-02_JPRB,.650E-02_JPRB,.106E-01_JPRB,&
+&.597E-02_JPRB,.584E-02_JPRB,.572E-02_JPRB,.558E-02_JPRB,.890E-02_JPRB,.849E-02_JPRB,.763E-02_JPRB,&
+&.746E-02_JPRB,.737E-02_JPRB,.767E-02_JPRB,.876E-02_JPRB,.106E-01_JPRB,.168E-01_JPRB,.306E-01_JPRB,&
+&.269E-01_JPRB,.724E-01_JPRB,.117E+00_JPRB,.856E-01_JPRB,.102E+00_JPRB,.973E-01_JPRB,.932E-01_JPRB,&
+&.876E-01_JPRB,.815E-01_JPRB,.744E-01_JPRB,.655E-01_JPRB,.533E-01_JPRB,.492E-01_JPRB,.453E-01_JPRB,&
+&.403E-01_JPRB,.382E-01_JPRB,.360E-01_JPRB,.321E-01_JPRB,.289E-01_JPRB,.261E-01_JPRB,.218E-01_JPRB,&
+&.193E-01_JPRB,.175E-01_JPRB,.152E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,&
+&.111E-01_JPRB,.164E-01_JPRB,.146E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.678E-02_JPRB,.109E-01_JPRB,&
+&.105E-01_JPRB,.972E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 38 -58.0
+ZAER (:,38, 9) = (/&
+&.876E-02_JPRB,.874E-02_JPRB,.815E-02_JPRB,.798E-02_JPRB,.782E-02_JPRB,.761E-02_JPRB,.750E-02_JPRB,&
+&.740E-02_JPRB,.722E-02_JPRB,.427E-02_JPRB,.426E-02_JPRB,.436E-02_JPRB,.463E-02_JPRB,.483E-02_JPRB,&
+&.510E-02_JPRB,.525E-02_JPRB,.531E-02_JPRB,.537E-02_JPRB,.901E-02_JPRB,.898E-02_JPRB,.891E-02_JPRB,&
+&.523E-02_JPRB,.517E-02_JPRB,.512E-02_JPRB,.831E-02_JPRB,.804E-02_JPRB,.777E-02_JPRB,.715E-02_JPRB,&
+&.707E-02_JPRB,.713E-02_JPRB,.798E-02_JPRB,.981E-02_JPRB,.122E-01_JPRB,.185E-01_JPRB,.296E-01_JPRB,&
+&.390E-01_JPRB,.543E-01_JPRB,.722E-01_JPRB,.500E-01_JPRB,.581E-01_JPRB,.101E+00_JPRB,.614E-01_JPRB,&
+&.615E-01_JPRB,.593E-01_JPRB,.553E-01_JPRB,.502E-01_JPRB,.431E-01_JPRB,.408E-01_JPRB,.387E-01_JPRB,&
+&.352E-01_JPRB,.332E-01_JPRB,.313E-01_JPRB,.281E-01_JPRB,.257E-01_JPRB,.235E-01_JPRB,.199E-01_JPRB,&
+&.175E-01_JPRB,.157E-01_JPRB,.134E-01_JPRB,.121E-01_JPRB,.112E-01_JPRB,.102E-01_JPRB,.913E-02_JPRB,&
+&.845E-02_JPRB,.762E-02_JPRB,.114E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.588E-02_JPRB,.956E-02_JPRB,&
+&.932E-02_JPRB,.878E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 39 -62.0
+ZAER (:,39, 9) = (/&
+&.810E-02_JPRB,.808E-02_JPRB,.745E-02_JPRB,.726E-02_JPRB,.426E-02_JPRB,.415E-02_JPRB,.408E-02_JPRB,&
+&.403E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.396E-02_JPRB,.406E-02_JPRB,.424E-02_JPRB,.436E-02_JPRB,&
+&.451E-02_JPRB,.459E-02_JPRB,.463E-02_JPRB,.467E-02_JPRB,.793E-02_JPRB,.801E-02_JPRB,.810E-02_JPRB,&
+&.489E-02_JPRB,.804E-02_JPRB,.792E-02_JPRB,.733E-02_JPRB,.696E-02_JPRB,.661E-02_JPRB,.370E-02_JPRB,&
+&.628E-02_JPRB,.656E-02_JPRB,.816E-02_JPRB,.109E-01_JPRB,.136E-01_JPRB,.197E-01_JPRB,.264E-01_JPRB,&
+&.310E-01_JPRB,.368E-01_JPRB,.413E-01_JPRB,.267E-01_JPRB,.293E-01_JPRB,.522E-01_JPRB,.323E-01_JPRB,&
+&.334E-01_JPRB,.342E-01_JPRB,.338E-01_JPRB,.331E-01_JPRB,.307E-01_JPRB,.292E-01_JPRB,.278E-01_JPRB,&
+&.250E-01_JPRB,.237E-01_JPRB,.224E-01_JPRB,.208E-01_JPRB,.198E-01_JPRB,.189E-01_JPRB,.170E-01_JPRB,&
+&.155E-01_JPRB,.143E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,.912E-02_JPRB,.789E-02_JPRB,&
+&.724E-02_JPRB,.655E-02_JPRB,.604E-02_JPRB,.583E-02_JPRB,.564E-02_JPRB,.550E-02_JPRB,.538E-02_JPRB,&
+&.525E-02_JPRB,.812E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 40 -66.0
+ZAER (:,40, 9) = (/&
+&.465E-02_JPRB,.464E-02_JPRB,.714E-02_JPRB,.692E-02_JPRB,.403E-02_JPRB,.391E-02_JPRB,.386E-02_JPRB,&
+&.382E-02_JPRB,.379E-02_JPRB,.383E-02_JPRB,.388E-02_JPRB,.401E-02_JPRB,.416E-02_JPRB,.425E-02_JPRB,&
+&.435E-02_JPRB,.442E-02_JPRB,.447E-02_JPRB,.451E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.759E-02_JPRB,&
+&.451E-02_JPRB,.442E-02_JPRB,.433E-02_JPRB,.662E-02_JPRB,.627E-02_JPRB,.356E-02_JPRB,.336E-02_JPRB,&
+&.349E-02_JPRB,.618E-02_JPRB,.778E-02_JPRB,.101E-01_JPRB,.123E-01_JPRB,.165E-01_JPRB,.201E-01_JPRB,&
+&.225E-01_JPRB,.251E-01_JPRB,.268E-01_JPRB,.279E-01_JPRB,.177E-01_JPRB,.186E-01_JPRB,.192E-01_JPRB,&
+&.198E-01_JPRB,.206E-01_JPRB,.208E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,.195E-01_JPRB,.187E-01_JPRB,&
+&.171E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,.143E-01_JPRB,&
+&.137E-01_JPRB,.132E-01_JPRB,.122E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.904E-02_JPRB,.792E-02_JPRB,&
+&.731E-02_JPRB,.664E-02_JPRB,.616E-02_JPRB,.593E-02_JPRB,.570E-02_JPRB,.542E-02_JPRB,.524E-02_JPRB,&
+&.505E-02_JPRB,.466E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 41 -70.0
+ZAER (:,41, 9) = (/&
+&.778E-02_JPRB,.776E-02_JPRB,.721E-02_JPRB,.699E-02_JPRB,.409E-02_JPRB,.397E-02_JPRB,.393E-02_JPRB,&
+&.391E-02_JPRB,.655E-02_JPRB,.666E-02_JPRB,.406E-02_JPRB,.698E-02_JPRB,.718E-02_JPRB,.438E-02_JPRB,&
+&.445E-02_JPRB,.448E-02_JPRB,.748E-02_JPRB,.449E-02_JPRB,.445E-02_JPRB,.441E-02_JPRB,.436E-02_JPRB,&
+&.426E-02_JPRB,.417E-02_JPRB,.680E-02_JPRB,.640E-02_JPRB,.617E-02_JPRB,.357E-02_JPRB,.348E-02_JPRB,&
+&.363E-02_JPRB,.384E-02_JPRB,.462E-02_JPRB,.559E-02_JPRB,.108E-01_JPRB,.133E-01_JPRB,.152E-01_JPRB,&
+&.164E-01_JPRB,.177E-01_JPRB,.185E-01_JPRB,.190E-01_JPRB,.196E-01_JPRB,.203E-01_JPRB,.124E-01_JPRB,&
+&.127E-01_JPRB,.218E-01_JPRB,.220E-01_JPRB,.222E-01_JPRB,.216E-01_JPRB,.210E-01_JPRB,.204E-01_JPRB,&
+&.195E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,&
+&.119E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.103E-01_JPRB,.975E-02_JPRB,.891E-02_JPRB,.813E-02_JPRB,&
+&.767E-02_JPRB,.714E-02_JPRB,.661E-02_JPRB,.633E-02_JPRB,.601E-02_JPRB,.559E-02_JPRB,.535E-02_JPRB,&
+&.849E-02_JPRB,.468E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 42 -74.0
+ZAER (:,42, 9) = (/&
+&.839E-02_JPRB,.838E-02_JPRB,.788E-02_JPRB,.768E-02_JPRB,.750E-02_JPRB,.729E-02_JPRB,.723E-02_JPRB,&
+&.719E-02_JPRB,.720E-02_JPRB,.727E-02_JPRB,.733E-02_JPRB,.744E-02_JPRB,.453E-02_JPRB,.456E-02_JPRB,&
+&.765E-02_JPRB,.765E-02_JPRB,.762E-02_JPRB,.757E-02_JPRB,.745E-02_JPRB,.442E-02_JPRB,.728E-02_JPRB,&
+&.712E-02_JPRB,.702E-02_JPRB,.692E-02_JPRB,.675E-02_JPRB,.402E-02_JPRB,.399E-02_JPRB,.407E-02_JPRB,&
+&.426E-02_JPRB,.447E-02_JPRB,.504E-02_JPRB,.563E-02_JPRB,.102E-01_JPRB,.116E-01_JPRB,.127E-01_JPRB,&
+&.134E-01_JPRB,.142E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,&
+&.161E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,&
+&.162E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,&
+&.106E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.953E-02_JPRB,.152E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,&
+&.129E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.983E-02_JPRB,.944E-02_JPRB,&
+&.903E-02_JPRB,.841E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 43 -78.0
+ZAER (:,43, 9) = (/&
+&.923E-02_JPRB,.922E-02_JPRB,.886E-02_JPRB,.870E-02_JPRB,.855E-02_JPRB,.836E-02_JPRB,.827E-02_JPRB,&
+&.821E-02_JPRB,.814E-02_JPRB,.811E-02_JPRB,.809E-02_JPRB,.808E-02_JPRB,.807E-02_JPRB,.806E-02_JPRB,&
+&.804E-02_JPRB,.799E-02_JPRB,.796E-02_JPRB,.791E-02_JPRB,.471E-02_JPRB,.469E-02_JPRB,.467E-02_JPRB,&
+&.773E-02_JPRB,.773E-02_JPRB,.464E-02_JPRB,.467E-02_JPRB,.471E-02_JPRB,.476E-02_JPRB,.493E-02_JPRB,&
+&.509E-02_JPRB,.525E-02_JPRB,.561E-02_JPRB,.592E-02_JPRB,.103E-01_JPRB,.110E-01_JPRB,.116E-01_JPRB,&
+&.120E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.808E-02_JPRB,.138E-01_JPRB,.139E-01_JPRB,&
+&.141E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,&
+&.150E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,&
+&.153E-01_JPRB,.907E-02_JPRB,.147E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,&
+&.122E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.993E-02_JPRB,&
+&.965E-02_JPRB,.924E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 44 -82.0
+ZAER (:,44, 9) = (/&
+&.976E-02_JPRB,.975E-02_JPRB,.957E-02_JPRB,.948E-02_JPRB,.939E-02_JPRB,.927E-02_JPRB,.921E-02_JPRB,&
+&.916E-02_JPRB,.909E-02_JPRB,.904E-02_JPRB,.901E-02_JPRB,.896E-02_JPRB,.893E-02_JPRB,.891E-02_JPRB,&
+&.888E-02_JPRB,.885E-02_JPRB,.884E-02_JPRB,.883E-02_JPRB,.883E-02_JPRB,.884E-02_JPRB,.531E-02_JPRB,&
+&.533E-02_JPRB,.535E-02_JPRB,.537E-02_JPRB,.544E-02_JPRB,.549E-02_JPRB,.554E-02_JPRB,.566E-02_JPRB,&
+&.576E-02_JPRB,.585E-02_JPRB,.601E-02_JPRB,.615E-02_JPRB,.626E-02_JPRB,.107E-01_JPRB,.110E-01_JPRB,&
+&.112E-01_JPRB,.115E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,&
+&.125E-01_JPRB,.126E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,&
+&.128E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.113E-01_JPRB,.111E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,&
+&.997E-02_JPRB,.977E-02_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 45 -86.0
+ZAER (:,45, 9) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.999E-02_JPRB,.997E-02_JPRB,.995E-02_JPRB,.993E-02_JPRB,.991E-02_JPRB,.990E-02_JPRB,.990E-02_JPRB,&
+&.989E-02_JPRB,.989E-02_JPRB,.989E-02_JPRB,.989E-02_JPRB,.990E-02_JPRB,.992E-02_JPRB,.993E-02_JPRB,&
+&.996E-02_JPRB,.998E-02_JPRB,.100E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.102E-01_JPRB/)
+!-- Organic Aerosol          month:  9 --- lat: 46 -90.0
+ZAER (:,46, 9) = (/&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=9   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_09
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_10.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_10
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,10:10)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month: 10 --- lat:  1  90.0
+ZAER (:, 1,10) = (/&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  2  86.0
+ZAER (:, 2,10) = (/&
+&.139E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.141E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.135E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.135E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,&
+&.138E-02_JPRB,.139E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  3  82.0
+ZAER (:, 3,10) = (/&
+&.147E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.154E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,&
+&.149E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,&
+&.136E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,&
+&.134E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,&
+&.145E-02_JPRB,.147E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  4  78.0
+ZAER (:, 4,10) = (/&
+&.168E-02_JPRB,.168E-02_JPRB,.172E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,&
+&.180E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,.176E-02_JPRB,&
+&.175E-02_JPRB,.172E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,&
+&.159E-02_JPRB,.158E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,&
+&.143E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,&
+&.135E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,&
+&.141E-02_JPRB,.143E-02_JPRB,.147E-02_JPRB,.149E-02_JPRB,.153E-02_JPRB,.157E-02_JPRB,.160E-02_JPRB,&
+&.163E-02_JPRB,.168E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  5  74.0
+ZAER (:, 5,10) = (/&
+&.201E-02_JPRB,.201E-02_JPRB,.206E-02_JPRB,.208E-02_JPRB,.210E-02_JPRB,.212E-02_JPRB,.213E-02_JPRB,&
+&.213E-02_JPRB,.212E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.205E-02_JPRB,.201E-02_JPRB,.199E-02_JPRB,&
+&.195E-02_JPRB,.191E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,&
+&.180E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.171E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,&
+&.155E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,&
+&.150E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,&
+&.149E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.154E-02_JPRB,.158E-02_JPRB,&
+&.161E-02_JPRB,.165E-02_JPRB,.171E-02_JPRB,.175E-02_JPRB,.180E-02_JPRB,.187E-02_JPRB,.191E-02_JPRB,&
+&.195E-02_JPRB,.200E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  6  70.0
+ZAER (:, 6,10) = (/&
+&.244E-02_JPRB,.244E-02_JPRB,.248E-02_JPRB,.250E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.250E-02_JPRB,&
+&.248E-02_JPRB,.243E-02_JPRB,.239E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,.224E-02_JPRB,.221E-02_JPRB,&
+&.216E-02_JPRB,.212E-02_JPRB,.208E-02_JPRB,.203E-02_JPRB,.197E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,.193E-02_JPRB,.197E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.180E-02_JPRB,.176E-02_JPRB,&
+&.173E-02_JPRB,.169E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,&
+&.157E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.161E-02_JPRB,.164E-02_JPRB,.167E-02_JPRB,&
+&.174E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,&
+&.179E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,.183E-02_JPRB,.186E-02_JPRB,.191E-02_JPRB,&
+&.195E-02_JPRB,.201E-02_JPRB,.209E-02_JPRB,.215E-02_JPRB,.222E-02_JPRB,.230E-02_JPRB,.234E-02_JPRB,&
+&.237E-02_JPRB,.243E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  7  66.0
+ZAER (:, 7,10) = (/&
+&.288E-02_JPRB,.288E-02_JPRB,.291E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.286E-02_JPRB,.282E-02_JPRB,&
+&.278E-02_JPRB,.270E-02_JPRB,.263E-02_JPRB,.259E-02_JPRB,.252E-02_JPRB,.247E-02_JPRB,.244E-02_JPRB,&
+&.240E-02_JPRB,.235E-02_JPRB,.230E-02_JPRB,.225E-02_JPRB,.216E-02_JPRB,.211E-02_JPRB,.206E-02_JPRB,&
+&.199E-02_JPRB,.196E-02_JPRB,.193E-02_JPRB,.194E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,.203E-02_JPRB,&
+&.204E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.200E-02_JPRB,.198E-02_JPRB,.196E-02_JPRB,&
+&.195E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,&
+&.184E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.184E-02_JPRB,.187E-02_JPRB,&
+&.197E-02_JPRB,.202E-02_JPRB,.207E-02_JPRB,.216E-02_JPRB,.219E-02_JPRB,.222E-02_JPRB,.224E-02_JPRB,&
+&.226E-02_JPRB,.228E-02_JPRB,.231E-02_JPRB,.233E-02_JPRB,.234E-02_JPRB,.236E-02_JPRB,.240E-02_JPRB,&
+&.244E-02_JPRB,.249E-02_JPRB,.257E-02_JPRB,.262E-02_JPRB,.268E-02_JPRB,.275E-02_JPRB,.278E-02_JPRB,&
+&.282E-02_JPRB,.288E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  8  62.0
+ZAER (:, 8,10) = (/&
+&.328E-02_JPRB,.328E-02_JPRB,.323E-02_JPRB,.318E-02_JPRB,.314E-02_JPRB,.305E-02_JPRB,.301E-02_JPRB,&
+&.298E-02_JPRB,.292E-02_JPRB,.287E-02_JPRB,.283E-02_JPRB,.276E-02_JPRB,.272E-02_JPRB,.268E-02_JPRB,&
+&.263E-02_JPRB,.257E-02_JPRB,.253E-02_JPRB,.248E-02_JPRB,.240E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,&
+&.219E-02_JPRB,.214E-02_JPRB,.210E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.210E-02_JPRB,&
+&.211E-02_JPRB,.212E-02_JPRB,.211E-02_JPRB,.212E-02_JPRB,.214E-02_JPRB,.218E-02_JPRB,.220E-02_JPRB,&
+&.221E-02_JPRB,.222E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.221E-02_JPRB,&
+&.219E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,.205E-02_JPRB,.201E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,&
+&.213E-02_JPRB,.221E-02_JPRB,.229E-02_JPRB,.244E-02_JPRB,.253E-02_JPRB,.260E-02_JPRB,.270E-02_JPRB,&
+&.277E-02_JPRB,.282E-02_JPRB,.290E-02_JPRB,.293E-02_JPRB,.294E-02_JPRB,.296E-02_JPRB,.302E-02_JPRB,&
+&.306E-02_JPRB,.313E-02_JPRB,.317E-02_JPRB,.320E-02_JPRB,.325E-02_JPRB,.327E-02_JPRB,.327E-02_JPRB,&
+&.327E-02_JPRB,.328E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat:  9  58.0
+ZAER (:, 9,10) = (/&
+&.352E-02_JPRB,.352E-02_JPRB,.338E-02_JPRB,.331E-02_JPRB,.325E-02_JPRB,.322E-02_JPRB,.328E-02_JPRB,&
+&.331E-02_JPRB,.332E-02_JPRB,.324E-02_JPRB,.317E-02_JPRB,.306E-02_JPRB,.296E-02_JPRB,.290E-02_JPRB,&
+&.283E-02_JPRB,.276E-02_JPRB,.271E-02_JPRB,.265E-02_JPRB,.260E-02_JPRB,.257E-02_JPRB,.255E-02_JPRB,&
+&.249E-02_JPRB,.245E-02_JPRB,.240E-02_JPRB,.233E-02_JPRB,.230E-02_JPRB,.228E-02_JPRB,.229E-02_JPRB,&
+&.230E-02_JPRB,.231E-02_JPRB,.234E-02_JPRB,.241E-02_JPRB,.247E-02_JPRB,.258E-02_JPRB,.261E-02_JPRB,&
+&.262E-02_JPRB,.260E-02_JPRB,.255E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.253E-02_JPRB,.252E-02_JPRB,&
+&.250E-02_JPRB,.243E-02_JPRB,.239E-02_JPRB,.234E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,&
+&.239E-02_JPRB,.252E-02_JPRB,.264E-02_JPRB,.282E-02_JPRB,.287E-02_JPRB,.292E-02_JPRB,.302E-02_JPRB,&
+&.312E-02_JPRB,.319E-02_JPRB,.328E-02_JPRB,.327E-02_JPRB,.328E-02_JPRB,.330E-02_JPRB,.346E-02_JPRB,&
+&.358E-02_JPRB,.375E-02_JPRB,.380E-02_JPRB,.382E-02_JPRB,.383E-02_JPRB,.378E-02_JPRB,.371E-02_JPRB,&
+&.363E-02_JPRB,.353E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 10  54.0
+ZAER (:,10,10) = (/&
+&.370E-02_JPRB,.369E-02_JPRB,.348E-02_JPRB,.342E-02_JPRB,.339E-02_JPRB,.349E-02_JPRB,.364E-02_JPRB,&
+&.373E-02_JPRB,.376E-02_JPRB,.364E-02_JPRB,.353E-02_JPRB,.334E-02_JPRB,.319E-02_JPRB,.309E-02_JPRB,&
+&.299E-02_JPRB,.290E-02_JPRB,.285E-02_JPRB,.278E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.278E-02_JPRB,&
+&.279E-02_JPRB,.168E-02_JPRB,.280E-02_JPRB,.276E-02_JPRB,.272E-02_JPRB,.269E-02_JPRB,.269E-02_JPRB,&
+&.272E-02_JPRB,.276E-02_JPRB,.291E-02_JPRB,.305E-02_JPRB,.315E-02_JPRB,.325E-02_JPRB,.323E-02_JPRB,&
+&.321E-02_JPRB,.316E-02_JPRB,.306E-02_JPRB,.300E-02_JPRB,.293E-02_JPRB,.287E-02_JPRB,.283E-02_JPRB,&
+&.280E-02_JPRB,.273E-02_JPRB,.269E-02_JPRB,.265E-02_JPRB,.263E-02_JPRB,.267E-02_JPRB,.271E-02_JPRB,&
+&.286E-02_JPRB,.304E-02_JPRB,.321E-02_JPRB,.340E-02_JPRB,.333E-02_JPRB,.328E-02_JPRB,.327E-02_JPRB,&
+&.335E-02_JPRB,.339E-02_JPRB,.338E-02_JPRB,.330E-02_JPRB,.327E-02_JPRB,.326E-02_JPRB,.348E-02_JPRB,&
+&.368E-02_JPRB,.397E-02_JPRB,.417E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.411E-02_JPRB,.402E-02_JPRB,&
+&.391E-02_JPRB,.370E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 11  50.0
+ZAER (:,11,10) = (/&
+&.397E-02_JPRB,.396E-02_JPRB,.368E-02_JPRB,.367E-02_JPRB,.367E-02_JPRB,.387E-02_JPRB,.399E-02_JPRB,&
+&.407E-02_JPRB,.407E-02_JPRB,.395E-02_JPRB,.384E-02_JPRB,.361E-02_JPRB,.344E-02_JPRB,.335E-02_JPRB,&
+&.326E-02_JPRB,.319E-02_JPRB,.315E-02_JPRB,.311E-02_JPRB,.312E-02_JPRB,.315E-02_JPRB,.321E-02_JPRB,&
+&.326E-02_JPRB,.200E-02_JPRB,.343E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,.354E-02_JPRB,&
+&.370E-02_JPRB,.386E-02_JPRB,.420E-02_JPRB,.433E-02_JPRB,.438E-02_JPRB,.426E-02_JPRB,.416E-02_JPRB,&
+&.410E-02_JPRB,.401E-02_JPRB,.392E-02_JPRB,.382E-02_JPRB,.366E-02_JPRB,.354E-02_JPRB,.349E-02_JPRB,&
+&.344E-02_JPRB,.332E-02_JPRB,.328E-02_JPRB,.325E-02_JPRB,.338E-02_JPRB,.349E-02_JPRB,.361E-02_JPRB,&
+&.372E-02_JPRB,.383E-02_JPRB,.392E-02_JPRB,.405E-02_JPRB,.396E-02_JPRB,.387E-02_JPRB,.371E-02_JPRB,&
+&.368E-02_JPRB,.363E-02_JPRB,.353E-02_JPRB,.340E-02_JPRB,.334E-02_JPRB,.332E-02_JPRB,.352E-02_JPRB,&
+&.372E-02_JPRB,.406E-02_JPRB,.454E-02_JPRB,.468E-02_JPRB,.475E-02_JPRB,.455E-02_JPRB,.442E-02_JPRB,&
+&.429E-02_JPRB,.398E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 12  46.0
+ZAER (:,12,10) = (/&
+&.461E-02_JPRB,.459E-02_JPRB,.418E-02_JPRB,.413E-02_JPRB,.412E-02_JPRB,.437E-02_JPRB,.442E-02_JPRB,&
+&.444E-02_JPRB,.437E-02_JPRB,.426E-02_JPRB,.415E-02_JPRB,.395E-02_JPRB,.381E-02_JPRB,.374E-02_JPRB,&
+&.370E-02_JPRB,.367E-02_JPRB,.365E-02_JPRB,.363E-02_JPRB,.369E-02_JPRB,.376E-02_JPRB,.386E-02_JPRB,&
+&.398E-02_JPRB,.250E-02_JPRB,.439E-02_JPRB,.476E-02_JPRB,.495E-02_JPRB,.512E-02_JPRB,.529E-02_JPRB,&
+&.555E-02_JPRB,.576E-02_JPRB,.593E-02_JPRB,.577E-02_JPRB,.562E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,&
+&.534E-02_JPRB,.520E-02_JPRB,.518E-02_JPRB,.514E-02_JPRB,.506E-02_JPRB,.495E-02_JPRB,.489E-02_JPRB,&
+&.482E-02_JPRB,.455E-02_JPRB,.444E-02_JPRB,.433E-02_JPRB,.456E-02_JPRB,.470E-02_JPRB,.484E-02_JPRB,&
+&.510E-02_JPRB,.521E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.512E-02_JPRB,.495E-02_JPRB,.456E-02_JPRB,&
+&.431E-02_JPRB,.414E-02_JPRB,.398E-02_JPRB,.385E-02_JPRB,.379E-02_JPRB,.379E-02_JPRB,.402E-02_JPRB,&
+&.426E-02_JPRB,.462E-02_JPRB,.536E-02_JPRB,.564E-02_JPRB,.587E-02_JPRB,.550E-02_JPRB,.529E-02_JPRB,&
+&.508E-02_JPRB,.462E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 13  42.0
+ZAER (:,13,10) = (/&
+&.569E-02_JPRB,.567E-02_JPRB,.503E-02_JPRB,.495E-02_JPRB,.490E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,&
+&.505E-02_JPRB,.485E-02_JPRB,.469E-02_JPRB,.457E-02_JPRB,.441E-02_JPRB,.432E-02_JPRB,.429E-02_JPRB,&
+&.430E-02_JPRB,.427E-02_JPRB,.428E-02_JPRB,.431E-02_JPRB,.445E-02_JPRB,.459E-02_JPRB,.477E-02_JPRB,&
+&.507E-02_JPRB,.330E-02_JPRB,.359E-02_JPRB,.723E-02_JPRB,.773E-02_JPRB,.818E-02_JPRB,.802E-02_JPRB,&
+&.791E-02_JPRB,.778E-02_JPRB,.730E-02_JPRB,.714E-02_JPRB,.704E-02_JPRB,.700E-02_JPRB,.723E-02_JPRB,&
+&.724E-02_JPRB,.692E-02_JPRB,.696E-02_JPRB,.701E-02_JPRB,.710E-02_JPRB,.721E-02_JPRB,.712E-02_JPRB,&
+&.692E-02_JPRB,.660E-02_JPRB,.644E-02_JPRB,.628E-02_JPRB,.633E-02_JPRB,.646E-02_JPRB,.660E-02_JPRB,&
+&.736E-02_JPRB,.770E-02_JPRB,.798E-02_JPRB,.778E-02_JPRB,.736E-02_JPRB,.695E-02_JPRB,.607E-02_JPRB,&
+&.560E-02_JPRB,.529E-02_JPRB,.503E-02_JPRB,.486E-02_JPRB,.481E-02_JPRB,.487E-02_JPRB,.517E-02_JPRB,&
+&.549E-02_JPRB,.601E-02_JPRB,.705E-02_JPRB,.748E-02_JPRB,.789E-02_JPRB,.718E-02_JPRB,.679E-02_JPRB,&
+&.637E-02_JPRB,.572E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 14  38.0
+ZAER (:,14,10) = (/&
+&.701E-02_JPRB,.698E-02_JPRB,.615E-02_JPRB,.609E-02_JPRB,.605E-02_JPRB,.610E-02_JPRB,.604E-02_JPRB,&
+&.594E-02_JPRB,.560E-02_JPRB,.543E-02_JPRB,.531E-02_JPRB,.517E-02_JPRB,.507E-02_JPRB,.506E-02_JPRB,&
+&.514E-02_JPRB,.510E-02_JPRB,.511E-02_JPRB,.517E-02_JPRB,.538E-02_JPRB,.556E-02_JPRB,.578E-02_JPRB,&
+&.658E-02_JPRB,.451E-02_JPRB,.513E-02_JPRB,.713E-02_JPRB,.129E-01_JPRB,.137E-01_JPRB,.118E-01_JPRB,&
+&.109E-01_JPRB,.102E-01_JPRB,.928E-02_JPRB,.957E-02_JPRB,.970E-02_JPRB,.956E-02_JPRB,.966E-02_JPRB,&
+&.959E-02_JPRB,.922E-02_JPRB,.921E-02_JPRB,.936E-02_JPRB,.973E-02_JPRB,.104E-01_JPRB,.105E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.934E-02_JPRB,.929E-02_JPRB,.929E-02_JPRB,&
+&.105E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.103E-01_JPRB,.955E-02_JPRB,.828E-02_JPRB,&
+&.765E-02_JPRB,.722E-02_JPRB,.679E-02_JPRB,.665E-02_JPRB,.659E-02_JPRB,.655E-02_JPRB,.698E-02_JPRB,&
+&.749E-02_JPRB,.834E-02_JPRB,.580E-02_JPRB,.102E-01_JPRB,.106E-01_JPRB,.935E-02_JPRB,.861E-02_JPRB,&
+&.782E-02_JPRB,.703E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 15  34.0
+ZAER (:,15,10) = (/&
+&.825E-02_JPRB,.823E-02_JPRB,.750E-02_JPRB,.748E-02_JPRB,.746E-02_JPRB,.740E-02_JPRB,.724E-02_JPRB,&
+&.707E-02_JPRB,.668E-02_JPRB,.653E-02_JPRB,.642E-02_JPRB,.627E-02_JPRB,.609E-02_JPRB,.607E-02_JPRB,&
+&.619E-02_JPRB,.610E-02_JPRB,.608E-02_JPRB,.609E-02_JPRB,.626E-02_JPRB,.644E-02_JPRB,.668E-02_JPRB,&
+&.835E-02_JPRB,.609E-02_JPRB,.726E-02_JPRB,.115E-01_JPRB,.128E-01_JPRB,.231E-01_JPRB,.184E-01_JPRB,&
+&.162E-01_JPRB,.144E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,&
+&.118E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.132E-01_JPRB,.897E-02_JPRB,.161E-01_JPRB,&
+&.175E-01_JPRB,.175E-01_JPRB,.164E-01_JPRB,.147E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.127E-01_JPRB,&
+&.139E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.139E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,.106E-01_JPRB,&
+&.101E-01_JPRB,.968E-02_JPRB,.918E-02_JPRB,.904E-02_JPRB,.537E-02_JPRB,.887E-02_JPRB,.941E-02_JPRB,&
+&.100E-01_JPRB,.667E-02_JPRB,.780E-02_JPRB,.812E-02_JPRB,.139E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,&
+&.926E-02_JPRB,.828E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 16  30.0
+ZAER (:,16,10) = (/&
+&.953E-02_JPRB,.952E-02_JPRB,.897E-02_JPRB,.885E-02_JPRB,.873E-02_JPRB,.843E-02_JPRB,.826E-02_JPRB,&
+&.811E-02_JPRB,.790E-02_JPRB,.768E-02_JPRB,.754E-02_JPRB,.736E-02_JPRB,.727E-02_JPRB,.731E-02_JPRB,&
+&.748E-02_JPRB,.726E-02_JPRB,.710E-02_JPRB,.689E-02_JPRB,.693E-02_JPRB,.716E-02_JPRB,.750E-02_JPRB,&
+&.107E-01_JPRB,.797E-02_JPRB,.965E-02_JPRB,.173E-01_JPRB,.205E-01_JPRB,.386E-01_JPRB,.301E-01_JPRB,&
+&.248E-01_JPRB,.207E-01_JPRB,.175E-01_JPRB,.170E-01_JPRB,.163E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,&
+&.137E-01_JPRB,.134E-01_JPRB,.145E-01_JPRB,.160E-01_JPRB,.188E-01_JPRB,.140E-01_JPRB,.161E-01_JPRB,&
+&.189E-01_JPRB,.299E-01_JPRB,.263E-01_JPRB,.215E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,&
+&.171E-01_JPRB,.167E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.123E-01_JPRB,&
+&.120E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.690E-02_JPRB,.687E-02_JPRB,.688E-02_JPRB,.734E-02_JPRB,&
+&.776E-02_JPRB,.842E-02_JPRB,.975E-02_JPRB,.100E-01_JPRB,.167E-01_JPRB,.134E-01_JPRB,.120E-01_JPRB,&
+&.107E-01_JPRB,.957E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 17  26.0
+ZAER (:,17,10) = (/&
+&.108E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.963E-02_JPRB,.923E-02_JPRB,.859E-02_JPRB,.855E-02_JPRB,&
+&.856E-02_JPRB,.870E-02_JPRB,.852E-02_JPRB,.841E-02_JPRB,.829E-02_JPRB,.876E-02_JPRB,.914E-02_JPRB,&
+&.972E-02_JPRB,.900E-02_JPRB,.842E-02_JPRB,.762E-02_JPRB,.743E-02_JPRB,.780E-02_JPRB,.841E-02_JPRB,&
+&.131E-01_JPRB,.983E-02_JPRB,.119E-01_JPRB,.229E-01_JPRB,.288E-01_JPRB,.338E-01_JPRB,.437E-01_JPRB,&
+&.348E-01_JPRB,.277E-01_JPRB,.221E-01_JPRB,.201E-01_JPRB,.185E-01_JPRB,.162E-01_JPRB,.155E-01_JPRB,&
+&.154E-01_JPRB,.160E-01_JPRB,.202E-01_JPRB,.243E-01_JPRB,.187E-01_JPRB,.233E-01_JPRB,.272E-01_JPRB,&
+&.325E-01_JPRB,.487E-01_JPRB,.411E-01_JPRB,.315E-01_JPRB,.245E-01_JPRB,.223E-01_JPRB,.204E-01_JPRB,&
+&.196E-01_JPRB,.185E-01_JPRB,.175E-01_JPRB,.164E-01_JPRB,.153E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,.819E-02_JPRB,.827E-02_JPRB,.850E-02_JPRB,.931E-02_JPRB,&
+&.979E-02_JPRB,.104E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.176E-01_JPRB,.143E-01_JPRB,.131E-01_JPRB,&
+&.119E-01_JPRB,.108E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 18  22.0
+ZAER (:,18,10) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.101E-01_JPRB,.938E-02_JPRB,.873E-02_JPRB,.799E-02_JPRB,.816E-02_JPRB,&
+&.835E-02_JPRB,.881E-02_JPRB,.896E-02_JPRB,.906E-02_JPRB,.919E-02_JPRB,.103E-01_JPRB,.111E-01_JPRB,&
+&.124E-01_JPRB,.110E-01_JPRB,.990E-02_JPRB,.837E-02_JPRB,.810E-02_JPRB,.880E-02_JPRB,.992E-02_JPRB,&
+&.158E-01_JPRB,.122E-01_JPRB,.150E-01_JPRB,.277E-01_JPRB,.343E-01_JPRB,.398E-01_JPRB,.307E-01_JPRB,&
+&.411E-01_JPRB,.330E-01_JPRB,.265E-01_JPRB,.228E-01_JPRB,.201E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.180E-01_JPRB,.207E-01_JPRB,.310E-01_JPRB,.393E-01_JPRB,.309E-01_JPRB,.356E-01_JPRB,.400E-01_JPRB,&
+&.462E-01_JPRB,.400E-01_JPRB,.553E-01_JPRB,.248E-01_JPRB,.304E-01_JPRB,.264E-01_JPRB,.226E-01_JPRB,&
+&.211E-01_JPRB,.196E-01_JPRB,.183E-01_JPRB,.171E-01_JPRB,.160E-01_JPRB,.152E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.143E-01_JPRB,.150E-01_JPRB,.154E-01_JPRB,.957E-02_JPRB,.102E-01_JPRB,.113E-01_JPRB,&
+&.117E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.180E-01_JPRB,.167E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,&
+&.122E-01_JPRB,.113E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 19  18.0
+ZAER (:,19,10) = (/&
+&.105E-01_JPRB,.104E-01_JPRB,.909E-02_JPRB,.842E-02_JPRB,.785E-02_JPRB,.742E-02_JPRB,.766E-02_JPRB,&
+&.792E-02_JPRB,.856E-02_JPRB,.915E-02_JPRB,.953E-02_JPRB,.997E-02_JPRB,.111E-01_JPRB,.122E-01_JPRB,&
+&.139E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,.941E-02_JPRB,.994E-02_JPRB,.114E-01_JPRB,.135E-01_JPRB,&
+&.211E-01_JPRB,.164E-01_JPRB,.204E-01_JPRB,.324E-01_JPRB,.362E-01_JPRB,.391E-01_JPRB,.296E-01_JPRB,&
+&.250E-01_JPRB,.354E-01_JPRB,.300E-01_JPRB,.251E-01_JPRB,.219E-01_JPRB,.193E-01_JPRB,.206E-01_JPRB,&
+&.229E-01_JPRB,.288E-01_JPRB,.462E-01_JPRB,.567E-01_JPRB,.415E-01_JPRB,.438E-01_JPRB,.463E-01_JPRB,&
+&.499E-01_JPRB,.428E-01_JPRB,.591E-01_JPRB,.265E-01_JPRB,.309E-01_JPRB,.267E-01_JPRB,.228E-01_JPRB,&
+&.213E-01_JPRB,.200E-01_JPRB,.188E-01_JPRB,.173E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.148E-01_JPRB,&
+&.151E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,.171E-01_JPRB,.180E-01_JPRB,.118E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,.168E-01_JPRB,.149E-01_JPRB,.128E-01_JPRB,.120E-01_JPRB,&
+&.113E-01_JPRB,.105E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 20  14.0
+ZAER (:,20,10) = (/&
+&.892E-02_JPRB,.889E-02_JPRB,.787E-02_JPRB,.760E-02_JPRB,.739E-02_JPRB,.732E-02_JPRB,.743E-02_JPRB,&
+&.762E-02_JPRB,.830E-02_JPRB,.913E-02_JPRB,.966E-02_JPRB,.102E-01_JPRB,.113E-01_JPRB,.123E-01_JPRB,&
+&.140E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.145E-01_JPRB,.175E-01_JPRB,.213E-01_JPRB,&
+&.184E-01_JPRB,.227E-01_JPRB,.274E-01_JPRB,.368E-01_JPRB,.371E-01_JPRB,.369E-01_JPRB,.280E-01_JPRB,&
+&.248E-01_JPRB,.366E-01_JPRB,.303E-01_JPRB,.261E-01_JPRB,.236E-01_JPRB,.231E-01_JPRB,.266E-01_JPRB,&
+&.311E-01_JPRB,.410E-01_JPRB,.611E-01_JPRB,.688E-01_JPRB,.434E-01_JPRB,.417E-01_JPRB,.417E-01_JPRB,&
+&.424E-01_JPRB,.377E-01_JPRB,.313E-01_JPRB,.389E-01_JPRB,.268E-01_JPRB,.243E-01_JPRB,.224E-01_JPRB,&
+&.210E-01_JPRB,.200E-01_JPRB,.190E-01_JPRB,.174E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,.155E-01_JPRB,&
+&.164E-01_JPRB,.172E-01_JPRB,.183E-01_JPRB,.196E-01_JPRB,.205E-01_JPRB,.216E-01_JPRB,.133E-01_JPRB,&
+&.130E-01_JPRB,.203E-01_JPRB,.173E-01_JPRB,.154E-01_JPRB,.131E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,&
+&.991E-02_JPRB,.895E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 21  10.0
+ZAER (:,21,10) = (/&
+&.737E-02_JPRB,.736E-02_JPRB,.689E-02_JPRB,.699E-02_JPRB,.709E-02_JPRB,.722E-02_JPRB,.731E-02_JPRB,&
+&.745E-02_JPRB,.798E-02_JPRB,.871E-02_JPRB,.923E-02_JPRB,.988E-02_JPRB,.110E-01_JPRB,.120E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.142E-01_JPRB,.157E-01_JPRB,.214E-01_JPRB,.266E-01_JPRB,.333E-01_JPRB,&
+&.264E-01_JPRB,.308E-01_JPRB,.354E-01_JPRB,.415E-01_JPRB,.401E-01_JPRB,.384E-01_JPRB,.314E-01_JPRB,&
+&.267E-01_JPRB,.377E-01_JPRB,.285E-01_JPRB,.265E-01_JPRB,.261E-01_JPRB,.291E-01_JPRB,.349E-01_JPRB,&
+&.410E-01_JPRB,.532E-01_JPRB,.720E-01_JPRB,.752E-01_JPRB,.415E-01_JPRB,.360E-01_JPRB,.355E-01_JPRB,&
+&.365E-01_JPRB,.330E-01_JPRB,.458E-01_JPRB,.340E-01_JPRB,.251E-01_JPRB,.236E-01_JPRB,.224E-01_JPRB,&
+&.206E-01_JPRB,.196E-01_JPRB,.186E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,&
+&.190E-01_JPRB,.210E-01_JPRB,.238E-01_JPRB,.247E-01_JPRB,.248E-01_JPRB,.241E-01_JPRB,.252E-01_JPRB,&
+&.248E-01_JPRB,.234E-01_JPRB,.176E-01_JPRB,.148E-01_JPRB,.119E-01_JPRB,.987E-02_JPRB,.903E-02_JPRB,&
+&.823E-02_JPRB,.740E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 22   6.0
+ZAER (:,22,10) = (/&
+&.648E-02_JPRB,.647E-02_JPRB,.615E-02_JPRB,.631E-02_JPRB,.647E-02_JPRB,.673E-02_JPRB,.691E-02_JPRB,&
+&.709E-02_JPRB,.750E-02_JPRB,.799E-02_JPRB,.842E-02_JPRB,.913E-02_JPRB,.104E-01_JPRB,.113E-01_JPRB,&
+&.127E-01_JPRB,.140E-01_JPRB,.158E-01_JPRB,.187E-01_JPRB,.275E-01_JPRB,.357E-01_JPRB,.276E-01_JPRB,&
+&.379E-01_JPRB,.420E-01_JPRB,.459E-01_JPRB,.480E-01_JPRB,.458E-01_JPRB,.434E-01_JPRB,.357E-01_JPRB,&
+&.283E-01_JPRB,.370E-01_JPRB,.274E-01_JPRB,.280E-01_JPRB,.294E-01_JPRB,.344E-01_JPRB,.405E-01_JPRB,&
+&.462E-01_JPRB,.568E-01_JPRB,.756E-01_JPRB,.778E-01_JPRB,.417E-01_JPRB,.348E-01_JPRB,.345E-01_JPRB,&
+&.364E-01_JPRB,.308E-01_JPRB,.425E-01_JPRB,.319E-01_JPRB,.249E-01_JPRB,.230E-01_JPRB,.214E-01_JPRB,&
+&.193E-01_JPRB,.186E-01_JPRB,.179E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,.166E-01_JPRB,.176E-01_JPRB,&
+&.220E-01_JPRB,.254E-01_JPRB,.303E-01_JPRB,.316E-01_JPRB,.312E-01_JPRB,.285E-01_JPRB,.300E-01_JPRB,&
+&.297E-01_JPRB,.169E-01_JPRB,.114E-01_JPRB,.153E-01_JPRB,.117E-01_JPRB,.937E-02_JPRB,.832E-02_JPRB,&
+&.726E-02_JPRB,.651E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 23   2.0
+ZAER (:,23,10) = (/&
+&.604E-02_JPRB,.603E-02_JPRB,.562E-02_JPRB,.564E-02_JPRB,.567E-02_JPRB,.587E-02_JPRB,.616E-02_JPRB,&
+&.644E-02_JPRB,.698E-02_JPRB,.748E-02_JPRB,.790E-02_JPRB,.859E-02_JPRB,.979E-02_JPRB,.107E-01_JPRB,&
+&.119E-01_JPRB,.136E-01_JPRB,.158E-01_JPRB,.192E-01_JPRB,.303E-01_JPRB,.406E-01_JPRB,.322E-01_JPRB,&
+&.492E-01_JPRB,.525E-01_JPRB,.548E-01_JPRB,.518E-01_JPRB,.490E-01_JPRB,.458E-01_JPRB,.351E-01_JPRB,&
+&.446E-01_JPRB,.337E-01_JPRB,.266E-01_JPRB,.285E-01_JPRB,.305E-01_JPRB,.349E-01_JPRB,.402E-01_JPRB,&
+&.446E-01_JPRB,.519E-01_JPRB,.621E-01_JPRB,.379E-01_JPRB,.348E-01_JPRB,.311E-01_JPRB,.313E-01_JPRB,&
+&.331E-01_JPRB,.276E-01_JPRB,.234E-01_JPRB,.307E-01_JPRB,.241E-01_JPRB,.219E-01_JPRB,.199E-01_JPRB,&
+&.176E-01_JPRB,.175E-01_JPRB,.174E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.184E-01_JPRB,&
+&.225E-01_JPRB,.156E-01_JPRB,.317E-01_JPRB,.212E-01_JPRB,.355E-01_JPRB,.320E-01_JPRB,.317E-01_JPRB,&
+&.184E-01_JPRB,.287E-01_JPRB,.194E-01_JPRB,.155E-01_JPRB,.118E-01_JPRB,.933E-02_JPRB,.819E-02_JPRB,&
+&.704E-02_JPRB,.607E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 24  -2.0
+ZAER (:,24,10) = (/&
+&.557E-02_JPRB,.556E-02_JPRB,.521E-02_JPRB,.503E-02_JPRB,.490E-02_JPRB,.491E-02_JPRB,.521E-02_JPRB,&
+&.554E-02_JPRB,.632E-02_JPRB,.687E-02_JPRB,.732E-02_JPRB,.801E-02_JPRB,.929E-02_JPRB,.103E-01_JPRB,&
+&.117E-01_JPRB,.133E-01_JPRB,.153E-01_JPRB,.183E-01_JPRB,.285E-01_JPRB,.378E-01_JPRB,.495E-01_JPRB,&
+&.460E-01_JPRB,.484E-01_JPRB,.498E-01_JPRB,.447E-01_JPRB,.410E-01_JPRB,.617E-01_JPRB,.433E-01_JPRB,&
+&.338E-01_JPRB,.266E-01_JPRB,.244E-01_JPRB,.272E-01_JPRB,.298E-01_JPRB,.344E-01_JPRB,.400E-01_JPRB,&
+&.439E-01_JPRB,.492E-01_JPRB,.500E-01_JPRB,.292E-01_JPRB,.272E-01_JPRB,.272E-01_JPRB,.276E-01_JPRB,&
+&.285E-01_JPRB,.243E-01_JPRB,.213E-01_JPRB,.179E-01_JPRB,.243E-01_JPRB,.224E-01_JPRB,.206E-01_JPRB,&
+&.170E-01_JPRB,.170E-01_JPRB,.172E-01_JPRB,.192E-01_JPRB,.200E-01_JPRB,.205E-01_JPRB,.202E-01_JPRB,&
+&.128E-01_JPRB,.231E-01_JPRB,.280E-01_JPRB,.200E-01_JPRB,.343E-01_JPRB,.309E-01_JPRB,.284E-01_JPRB,&
+&.268E-01_JPRB,.248E-01_JPRB,.179E-01_JPRB,.148E-01_JPRB,.117E-01_JPRB,.880E-02_JPRB,.758E-02_JPRB,&
+&.639E-02_JPRB,.560E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 25  -6.0
+ZAER (:,25,10) = (/&
+&.514E-02_JPRB,.513E-02_JPRB,.478E-02_JPRB,.457E-02_JPRB,.440E-02_JPRB,.430E-02_JPRB,.449E-02_JPRB,&
+&.473E-02_JPRB,.539E-02_JPRB,.592E-02_JPRB,.639E-02_JPRB,.722E-02_JPRB,.842E-02_JPRB,.948E-02_JPRB,&
+&.112E-01_JPRB,.133E-01_JPRB,.154E-01_JPRB,.184E-01_JPRB,.251E-01_JPRB,.306E-01_JPRB,.375E-01_JPRB,&
+&.330E-01_JPRB,.349E-01_JPRB,.361E-01_JPRB,.305E-01_JPRB,.451E-01_JPRB,.393E-01_JPRB,.270E-01_JPRB,&
+&.228E-01_JPRB,.199E-01_JPRB,.214E-01_JPRB,.254E-01_JPRB,.293E-01_JPRB,.371E-01_JPRB,.265E-01_JPRB,&
+&.287E-01_JPRB,.299E-01_JPRB,.276E-01_JPRB,.259E-01_JPRB,.235E-01_JPRB,.240E-01_JPRB,.248E-01_JPRB,&
+&.261E-01_JPRB,.241E-01_JPRB,.217E-01_JPRB,.186E-01_JPRB,.252E-01_JPRB,.242E-01_JPRB,.235E-01_JPRB,&
+&.204E-01_JPRB,.212E-01_JPRB,.223E-01_JPRB,.273E-01_JPRB,.279E-01_JPRB,.281E-01_JPRB,.274E-01_JPRB,&
+&.267E-01_JPRB,.262E-01_JPRB,.258E-01_JPRB,.295E-01_JPRB,.302E-01_JPRB,.280E-01_JPRB,.252E-01_JPRB,&
+&.235E-01_JPRB,.215E-01_JPRB,.164E-01_JPRB,.137E-01_JPRB,.109E-01_JPRB,.783E-02_JPRB,.668E-02_JPRB,&
+&.562E-02_JPRB,.515E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 26 -10.0
+ZAER (:,26,10) = (/&
+&.526E-02_JPRB,.524E-02_JPRB,.464E-02_JPRB,.440E-02_JPRB,.421E-02_JPRB,.408E-02_JPRB,.416E-02_JPRB,&
+&.430E-02_JPRB,.482E-02_JPRB,.537E-02_JPRB,.585E-02_JPRB,.664E-02_JPRB,.761E-02_JPRB,.861E-02_JPRB,&
+&.104E-01_JPRB,.130E-01_JPRB,.152E-01_JPRB,.183E-01_JPRB,.228E-01_JPRB,.253E-01_JPRB,.280E-01_JPRB,&
+&.210E-01_JPRB,.218E-01_JPRB,.224E-01_JPRB,.321E-01_JPRB,.281E-01_JPRB,.241E-01_JPRB,.169E-01_JPRB,&
+&.157E-01_JPRB,.152E-01_JPRB,.180E-01_JPRB,.225E-01_JPRB,.268E-01_JPRB,.352E-01_JPRB,.242E-01_JPRB,&
+&.252E-01_JPRB,.246E-01_JPRB,.220E-01_JPRB,.204E-01_JPRB,.184E-01_JPRB,.189E-01_JPRB,.203E-01_JPRB,&
+&.227E-01_JPRB,.230E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,.158E-01_JPRB,.269E-01_JPRB,.279E-01_JPRB,&
+&.293E-01_JPRB,.322E-01_JPRB,.352E-01_JPRB,.429E-01_JPRB,.402E-01_JPRB,.387E-01_JPRB,.406E-01_JPRB,&
+&.402E-01_JPRB,.383E-01_JPRB,.315E-01_JPRB,.309E-01_JPRB,.301E-01_JPRB,.286E-01_JPRB,.243E-01_JPRB,&
+&.217E-01_JPRB,.186E-01_JPRB,.146E-01_JPRB,.124E-01_JPRB,.988E-02_JPRB,.738E-02_JPRB,.643E-02_JPRB,&
+&.553E-02_JPRB,.527E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 27 -14.0
+ZAER (:,27,10) = (/&
+&.634E-02_JPRB,.630E-02_JPRB,.527E-02_JPRB,.484E-02_JPRB,.447E-02_JPRB,.420E-02_JPRB,.422E-02_JPRB,&
+&.432E-02_JPRB,.481E-02_JPRB,.546E-02_JPRB,.597E-02_JPRB,.670E-02_JPRB,.755E-02_JPRB,.842E-02_JPRB,&
+&.993E-02_JPRB,.135E-01_JPRB,.161E-01_JPRB,.194E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.230E-01_JPRB,&
+&.242E-01_JPRB,.241E-01_JPRB,.238E-01_JPRB,.207E-01_JPRB,.185E-01_JPRB,.163E-01_JPRB,.128E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.146E-01_JPRB,.181E-01_JPRB,.210E-01_JPRB,.156E-01_JPRB,.168E-01_JPRB,&
+&.171E-01_JPRB,.163E-01_JPRB,.153E-01_JPRB,.147E-01_JPRB,.141E-01_JPRB,.144E-01_JPRB,.156E-01_JPRB,&
+&.178E-01_JPRB,.190E-01_JPRB,.183E-01_JPRB,.170E-01_JPRB,.279E-01_JPRB,.301E-01_JPRB,.327E-01_JPRB,&
+&.403E-01_JPRB,.455E-01_JPRB,.304E-01_JPRB,.599E-01_JPRB,.533E-01_JPRB,.495E-01_JPRB,.530E-01_JPRB,&
+&.330E-01_JPRB,.325E-01_JPRB,.464E-01_JPRB,.394E-01_JPRB,.354E-01_JPRB,.315E-01_JPRB,.254E-01_JPRB,&
+&.215E-01_JPRB,.166E-01_JPRB,.132E-01_JPRB,.114E-01_JPRB,.947E-02_JPRB,.795E-02_JPRB,.727E-02_JPRB,&
+&.660E-02_JPRB,.634E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 28 -18.0
+ZAER (:,28,10) = (/&
+&.796E-02_JPRB,.792E-02_JPRB,.670E-02_JPRB,.595E-02_JPRB,.531E-02_JPRB,.477E-02_JPRB,.478E-02_JPRB,&
+&.489E-02_JPRB,.541E-02_JPRB,.617E-02_JPRB,.677E-02_JPRB,.768E-02_JPRB,.867E-02_JPRB,.944E-02_JPRB,&
+&.106E-01_JPRB,.146E-01_JPRB,.102E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.211E-01_JPRB,.213E-01_JPRB,&
+&.199E-01_JPRB,.186E-01_JPRB,.172E-01_JPRB,.146E-01_JPRB,.135E-01_JPRB,.125E-01_JPRB,.109E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB,.119E-01_JPRB,.142E-01_JPRB,.157E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,&
+&.104E-01_JPRB,.105E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.116E-01_JPRB,.125E-01_JPRB,&
+&.139E-01_JPRB,.148E-01_JPRB,.247E-01_JPRB,.146E-01_JPRB,.168E-01_JPRB,.190E-01_JPRB,.353E-01_JPRB,&
+&.472E-01_JPRB,.544E-01_JPRB,.369E-01_JPRB,.448E-01_JPRB,.646E-01_JPRB,.581E-01_JPRB,.353E-01_JPRB,&
+&.416E-01_JPRB,.442E-01_JPRB,.704E-01_JPRB,.559E-01_JPRB,.471E-01_JPRB,.376E-01_JPRB,.283E-01_JPRB,&
+&.229E-01_JPRB,.168E-01_JPRB,.130E-01_JPRB,.114E-01_JPRB,.986E-02_JPRB,.911E-02_JPRB,.869E-02_JPRB,&
+&.825E-02_JPRB,.797E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 29 -22.0
+ZAER (:,29,10) = (/&
+&.964E-02_JPRB,.961E-02_JPRB,.856E-02_JPRB,.762E-02_JPRB,.679E-02_JPRB,.582E-02_JPRB,.578E-02_JPRB,&
+&.586E-02_JPRB,.637E-02_JPRB,.720E-02_JPRB,.797E-02_JPRB,.938E-02_JPRB,.109E-01_JPRB,.116E-01_JPRB,&
+&.122E-01_JPRB,.911E-02_JPRB,.104E-01_JPRB,.200E-01_JPRB,.212E-01_JPRB,.213E-01_JPRB,.211E-01_JPRB,&
+&.180E-01_JPRB,.160E-01_JPRB,.139E-01_JPRB,.113E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.914E-02_JPRB,&
+&.872E-02_JPRB,.854E-02_JPRB,.952E-02_JPRB,.113E-01_JPRB,.122E-01_JPRB,.734E-02_JPRB,.705E-02_JPRB,&
+&.708E-02_JPRB,.758E-02_JPRB,.818E-02_JPRB,.857E-02_JPRB,.907E-02_JPRB,.103E-01_JPRB,.111E-01_JPRB,&
+&.122E-01_JPRB,.127E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.165E-01_JPRB,.187E-01_JPRB,.350E-01_JPRB,&
+&.484E-01_JPRB,.336E-01_JPRB,.381E-01_JPRB,.449E-01_JPRB,.388E-01_JPRB,.350E-01_JPRB,.363E-01_JPRB,&
+&.497E-01_JPRB,.574E-01_JPRB,.613E-01_JPRB,.808E-01_JPRB,.666E-01_JPRB,.491E-01_JPRB,.347E-01_JPRB,&
+&.273E-01_JPRB,.198E-01_JPRB,.146E-01_JPRB,.126E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.998E-02_JPRB,&
+&.978E-02_JPRB,.965E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 30 -26.0
+ZAER (:,30,10) = (/&
+&.113E-01_JPRB,.112E-01_JPRB,.106E-01_JPRB,.967E-02_JPRB,.878E-02_JPRB,.747E-02_JPRB,.724E-02_JPRB,&
+&.716E-02_JPRB,.752E-02_JPRB,.838E-02_JPRB,.935E-02_JPRB,.115E-01_JPRB,.139E-01_JPRB,.147E-01_JPRB,&
+&.862E-02_JPRB,.958E-02_JPRB,.108E-01_JPRB,.211E-01_JPRB,.237E-01_JPRB,.233E-01_JPRB,.221E-01_JPRB,&
+&.176E-01_JPRB,.150E-01_JPRB,.124E-01_JPRB,.963E-02_JPRB,.917E-02_JPRB,.872E-02_JPRB,.795E-02_JPRB,&
+&.748E-02_JPRB,.720E-02_JPRB,.764E-02_JPRB,.896E-02_JPRB,.978E-02_JPRB,.102E-01_JPRB,.596E-02_JPRB,&
+&.599E-02_JPRB,.630E-02_JPRB,.695E-02_JPRB,.759E-02_JPRB,.864E-02_JPRB,.106E-01_JPRB,.116E-01_JPRB,&
+&.127E-01_JPRB,.132E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.171E-01_JPRB,.313E-01_JPRB,.205E-01_JPRB,&
+&.279E-01_JPRB,.312E-01_JPRB,.341E-01_JPRB,.349E-01_JPRB,.304E-01_JPRB,.283E-01_JPRB,.336E-01_JPRB,&
+&.543E-01_JPRB,.682E-01_JPRB,.823E-01_JPRB,.682E-01_JPRB,.948E-01_JPRB,.659E-01_JPRB,.450E-01_JPRB,&
+&.346E-01_JPRB,.245E-01_JPRB,.178E-01_JPRB,.149E-01_JPRB,.121E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.113E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 31 -30.0
+ZAER (:,31,10) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.110E-01_JPRB,.953E-02_JPRB,.904E-02_JPRB,&
+&.872E-02_JPRB,.863E-02_JPRB,.942E-02_JPRB,.105E-01_JPRB,.133E-01_JPRB,.165E-01_JPRB,.172E-01_JPRB,&
+&.964E-02_JPRB,.101E-01_JPRB,.114E-01_JPRB,.137E-01_JPRB,.159E-01_JPRB,.157E-01_JPRB,.245E-01_JPRB,&
+&.190E-01_JPRB,.158E-01_JPRB,.125E-01_JPRB,.908E-02_JPRB,.857E-02_JPRB,.810E-02_JPRB,.745E-02_JPRB,&
+&.696E-02_JPRB,.659E-02_JPRB,.649E-02_JPRB,.724E-02_JPRB,.786E-02_JPRB,.879E-02_JPRB,.553E-02_JPRB,&
+&.571E-02_JPRB,.596E-02_JPRB,.674E-02_JPRB,.786E-02_JPRB,.996E-02_JPRB,.129E-01_JPRB,.141E-01_JPRB,&
+&.152E-01_JPRB,.158E-01_JPRB,.163E-01_JPRB,.168E-01_JPRB,.188E-01_JPRB,.200E-01_JPRB,.211E-01_JPRB,&
+&.264E-01_JPRB,.273E-01_JPRB,.276E-01_JPRB,.226E-01_JPRB,.198E-01_JPRB,.191E-01_JPRB,.273E-01_JPRB,&
+&.519E-01_JPRB,.703E-01_JPRB,.948E-01_JPRB,.851E-01_JPRB,.736E-01_JPRB,.845E-01_JPRB,.565E-01_JPRB,&
+&.427E-01_JPRB,.295E-01_JPRB,.211E-01_JPRB,.175E-01_JPRB,.141E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.127E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 32 -34.0
+ZAER (:,32,10) = (/&
+&.140E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,&
+&.101E-01_JPRB,.947E-02_JPRB,.101E-01_JPRB,.112E-01_JPRB,.143E-01_JPRB,.169E-01_JPRB,.103E-01_JPRB,&
+&.937E-02_JPRB,.985E-02_JPRB,.112E-01_JPRB,.136E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,&
+&.216E-01_JPRB,.179E-01_JPRB,.140E-01_JPRB,.959E-02_JPRB,.881E-02_JPRB,.810E-02_JPRB,.726E-02_JPRB,&
+&.687E-02_JPRB,.654E-02_JPRB,.613E-02_JPRB,.631E-02_JPRB,.661E-02_JPRB,.757E-02_JPRB,.876E-02_JPRB,&
+&.580E-02_JPRB,.662E-02_JPRB,.820E-02_JPRB,.103E-01_JPRB,.236E-01_JPRB,.307E-01_JPRB,.335E-01_JPRB,&
+&.359E-01_JPRB,.356E-01_JPRB,.211E-01_JPRB,.208E-01_JPRB,.222E-01_JPRB,.230E-01_JPRB,.237E-01_JPRB,&
+&.257E-01_JPRB,.243E-01_JPRB,.227E-01_JPRB,.163E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.207E-01_JPRB,&
+&.416E-01_JPRB,.589E-01_JPRB,.866E-01_JPRB,.859E-01_JPRB,.784E-01_JPRB,.951E-01_JPRB,.639E-01_JPRB,&
+&.290E-01_JPRB,.332E-01_JPRB,.237E-01_JPRB,.199E-01_JPRB,.164E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,&
+&.136E-01_JPRB,.140E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 33 -38.0
+ZAER (:,33,10) = (/&
+&.148E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.121E-01_JPRB,.112E-01_JPRB,&
+&.105E-01_JPRB,.987E-02_JPRB,.105E-01_JPRB,.115E-01_JPRB,.142E-01_JPRB,.918E-02_JPRB,.903E-02_JPRB,&
+&.805E-02_JPRB,.863E-02_JPRB,.984E-02_JPRB,.119E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,.161E-01_JPRB,&
+&.236E-01_JPRB,.202E-01_JPRB,.164E-01_JPRB,.109E-01_JPRB,.969E-02_JPRB,.853E-02_JPRB,.728E-02_JPRB,&
+&.703E-02_JPRB,.679E-02_JPRB,.628E-02_JPRB,.617E-02_JPRB,.632E-02_JPRB,.730E-02_JPRB,.948E-02_JPRB,&
+&.697E-02_JPRB,.156E-01_JPRB,.225E-01_JPRB,.292E-01_JPRB,.399E-01_JPRB,.494E-01_JPRB,.531E-01_JPRB,&
+&.336E-01_JPRB,.321E-01_JPRB,.307E-01_JPRB,.291E-01_JPRB,.282E-01_JPRB,.282E-01_JPRB,.284E-01_JPRB,&
+&.274E-01_JPRB,.251E-01_JPRB,.228E-01_JPRB,.178E-01_JPRB,.162E-01_JPRB,.156E-01_JPRB,.179E-01_JPRB,&
+&.289E-01_JPRB,.395E-01_JPRB,.601E-01_JPRB,.668E-01_JPRB,.109E+00_JPRB,.890E-01_JPRB,.630E-01_JPRB,&
+&.493E-01_JPRB,.210E-01_JPRB,.255E-01_JPRB,.218E-01_JPRB,.183E-01_JPRB,.164E-01_JPRB,.156E-01_JPRB,&
+&.148E-01_JPRB,.148E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 34 -42.0
+ZAER (:,34,10) = (/&
+&.149E-01_JPRB,.149E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,.115E-01_JPRB,.107E-01_JPRB,&
+&.102E-01_JPRB,.982E-02_JPRB,.105E-01_JPRB,.114E-01_JPRB,.132E-01_JPRB,.801E-02_JPRB,.777E-02_JPRB,&
+&.708E-02_JPRB,.743E-02_JPRB,.817E-02_JPRB,.947E-02_JPRB,.115E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.134E-01_JPRB,.203E-01_JPRB,.178E-01_JPRB,.119E-01_JPRB,.104E-01_JPRB,.901E-02_JPRB,.756E-02_JPRB,&
+&.730E-02_JPRB,.705E-02_JPRB,.659E-02_JPRB,.658E-02_JPRB,.695E-02_JPRB,.873E-02_JPRB,.132E-01_JPRB,&
+&.108E-01_JPRB,.162E-01_JPRB,.436E-01_JPRB,.557E-01_JPRB,.722E-01_JPRB,.486E-01_JPRB,.500E-01_JPRB,&
+&.841E-01_JPRB,.803E-01_JPRB,.459E-01_JPRB,.430E-01_JPRB,.620E-01_JPRB,.357E-01_JPRB,.345E-01_JPRB,&
+&.322E-01_JPRB,.303E-01_JPRB,.283E-01_JPRB,.241E-01_JPRB,.223E-01_JPRB,.209E-01_JPRB,.196E-01_JPRB,&
+&.223E-01_JPRB,.257E-01_JPRB,.343E-01_JPRB,.414E-01_JPRB,.435E-01_JPRB,.418E-01_JPRB,.331E-01_JPRB,&
+&.460E-01_JPRB,.350E-01_JPRB,.266E-01_JPRB,.230E-01_JPRB,.195E-01_JPRB,.172E-01_JPRB,.164E-01_JPRB,&
+&.156E-01_JPRB,.149E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 35 -46.0
+ZAER (:,35,10) = (/&
+&.139E-01_JPRB,.138E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.105E-01_JPRB,.991E-02_JPRB,&
+&.952E-02_JPRB,.946E-02_JPRB,.102E-01_JPRB,.108E-01_JPRB,.120E-01_JPRB,.725E-02_JPRB,.713E-02_JPRB,&
+&.682E-02_JPRB,.676E-02_JPRB,.692E-02_JPRB,.725E-02_JPRB,.792E-02_JPRB,.851E-02_JPRB,.924E-02_JPRB,&
+&.101E-01_JPRB,.977E-02_JPRB,.930E-02_JPRB,.114E-01_JPRB,.102E-01_JPRB,.911E-02_JPRB,.785E-02_JPRB,&
+&.747E-02_JPRB,.718E-02_JPRB,.694E-02_JPRB,.737E-02_JPRB,.835E-02_JPRB,.119E-01_JPRB,.209E-01_JPRB,&
+&.299E-01_JPRB,.281E-01_JPRB,.466E-01_JPRB,.584E-01_JPRB,.728E-01_JPRB,.730E-01_JPRB,.712E-01_JPRB,&
+&.680E-01_JPRB,.656E-01_JPRB,.627E-01_JPRB,.591E-01_JPRB,.810E-01_JPRB,.451E-01_JPRB,.420E-01_JPRB,&
+&.392E-01_JPRB,.379E-01_JPRB,.365E-01_JPRB,.319E-01_JPRB,.289E-01_JPRB,.264E-01_JPRB,.230E-01_JPRB,&
+&.222E-01_JPRB,.221E-01_JPRB,.229E-01_JPRB,.260E-01_JPRB,.277E-01_JPRB,.294E-01_JPRB,.264E-01_JPRB,&
+&.238E-01_JPRB,.333E-01_JPRB,.264E-01_JPRB,.230E-01_JPRB,.195E-01_JPRB,.168E-01_JPRB,.159E-01_JPRB,&
+&.151E-01_JPRB,.139E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 36 -50.0
+ZAER (:,36,10) = (/&
+&.119E-01_JPRB,.119E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.953E-02_JPRB,.911E-02_JPRB,&
+&.888E-02_JPRB,.898E-02_JPRB,.952E-02_JPRB,.997E-02_JPRB,.642E-02_JPRB,.653E-02_JPRB,.655E-02_JPRB,&
+&.649E-02_JPRB,.621E-02_JPRB,.600E-02_JPRB,.571E-02_JPRB,.554E-02_JPRB,.571E-02_JPRB,.599E-02_JPRB,&
+&.683E-02_JPRB,.695E-02_JPRB,.702E-02_JPRB,.102E-01_JPRB,.952E-02_JPRB,.890E-02_JPRB,.787E-02_JPRB,&
+&.764E-02_JPRB,.751E-02_JPRB,.772E-02_JPRB,.881E-02_JPRB,.106E-01_JPRB,.163E-01_JPRB,.294E-01_JPRB,&
+&.420E-01_JPRB,.390E-01_JPRB,.644E-01_JPRB,.796E-01_JPRB,.972E-01_JPRB,.902E-01_JPRB,.852E-01_JPRB,&
+&.790E-01_JPRB,.779E-01_JPRB,.747E-01_JPRB,.705E-01_JPRB,.585E-01_JPRB,.539E-01_JPRB,.495E-01_JPRB,&
+&.461E-01_JPRB,.445E-01_JPRB,.427E-01_JPRB,.369E-01_JPRB,.329E-01_JPRB,.297E-01_JPRB,.254E-01_JPRB,&
+&.236E-01_JPRB,.221E-01_JPRB,.201E-01_JPRB,.193E-01_JPRB,.191E-01_JPRB,.194E-01_JPRB,.188E-01_JPRB,&
+&.180E-01_JPRB,.165E-01_JPRB,.230E-01_JPRB,.205E-01_JPRB,.178E-01_JPRB,.156E-01_JPRB,.146E-01_JPRB,&
+&.136E-01_JPRB,.120E-01_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 37 -54.0
+ZAER (:,37,10) = (/&
+&.984E-02_JPRB,.982E-02_JPRB,.922E-02_JPRB,.903E-02_JPRB,.885E-02_JPRB,.860E-02_JPRB,.843E-02_JPRB,&
+&.838E-02_JPRB,.863E-02_JPRB,.890E-02_JPRB,.543E-02_JPRB,.549E-02_JPRB,.558E-02_JPRB,.561E-02_JPRB,&
+&.559E-02_JPRB,.527E-02_JPRB,.498E-02_JPRB,.457E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,.718E-02_JPRB,&
+&.488E-02_JPRB,.507E-02_JPRB,.524E-02_JPRB,.506E-02_JPRB,.817E-02_JPRB,.789E-02_JPRB,.744E-02_JPRB,&
+&.769E-02_JPRB,.800E-02_JPRB,.903E-02_JPRB,.106E-01_JPRB,.128E-01_JPRB,.187E-01_JPRB,.306E-01_JPRB,&
+&.250E-01_JPRB,.616E-01_JPRB,.951E-01_JPRB,.688E-01_JPRB,.821E-01_JPRB,.812E-01_JPRB,.798E-01_JPRB,&
+&.778E-01_JPRB,.791E-01_JPRB,.764E-01_JPRB,.725E-01_JPRB,.616E-01_JPRB,.564E-01_JPRB,.515E-01_JPRB,&
+&.462E-01_JPRB,.433E-01_JPRB,.404E-01_JPRB,.345E-01_JPRB,.311E-01_JPRB,.282E-01_JPRB,.239E-01_JPRB,&
+&.218E-01_JPRB,.202E-01_JPRB,.176E-01_JPRB,.152E-01_JPRB,.139E-01_JPRB,.126E-01_JPRB,.117E-01_JPRB,&
+&.112E-01_JPRB,.176E-01_JPRB,.158E-01_JPRB,.150E-01_JPRB,.140E-01_JPRB,.782E-02_JPRB,.122E-01_JPRB,&
+&.112E-01_JPRB,.988E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 38 -58.0
+ZAER (:,38,10) = (/&
+&.812E-02_JPRB,.812E-02_JPRB,.817E-02_JPRB,.812E-02_JPRB,.806E-02_JPRB,.788E-02_JPRB,.796E-02_JPRB,&
+&.801E-02_JPRB,.809E-02_JPRB,.482E-02_JPRB,.478E-02_JPRB,.471E-02_JPRB,.468E-02_JPRB,.464E-02_JPRB,&
+&.455E-02_JPRB,.425E-02_JPRB,.404E-02_JPRB,.375E-02_JPRB,.594E-02_JPRB,.591E-02_JPRB,.594E-02_JPRB,&
+&.383E-02_JPRB,.399E-02_JPRB,.415E-02_JPRB,.697E-02_JPRB,.685E-02_JPRB,.675E-02_JPRB,.693E-02_JPRB,&
+&.756E-02_JPRB,.820E-02_JPRB,.971E-02_JPRB,.110E-01_JPRB,.125E-01_JPRB,.160E-01_JPRB,.227E-01_JPRB,&
+&.288E-01_JPRB,.396E-01_JPRB,.513E-01_JPRB,.352E-01_JPRB,.405E-01_JPRB,.756E-01_JPRB,.490E-01_JPRB,&
+&.537E-01_JPRB,.583E-01_JPRB,.581E-01_JPRB,.569E-01_JPRB,.502E-01_JPRB,.464E-01_JPRB,.427E-01_JPRB,&
+&.362E-01_JPRB,.329E-01_JPRB,.297E-01_JPRB,.255E-01_JPRB,.232E-01_JPRB,.212E-01_JPRB,.183E-01_JPRB,&
+&.168E-01_JPRB,.155E-01_JPRB,.134E-01_JPRB,.112E-01_JPRB,.987E-02_JPRB,.835E-02_JPRB,.763E-02_JPRB,&
+&.722E-02_JPRB,.676E-02_JPRB,.104E-01_JPRB,.101E-01_JPRB,.972E-02_JPRB,.553E-02_JPRB,.890E-02_JPRB,&
+&.856E-02_JPRB,.813E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 39 -62.0
+ZAER (:,39,10) = (/&
+&.688E-02_JPRB,.689E-02_JPRB,.715E-02_JPRB,.719E-02_JPRB,.433E-02_JPRB,.433E-02_JPRB,.435E-02_JPRB,&
+&.436E-02_JPRB,.436E-02_JPRB,.433E-02_JPRB,.429E-02_JPRB,.424E-02_JPRB,.418E-02_JPRB,.410E-02_JPRB,&
+&.396E-02_JPRB,.368E-02_JPRB,.351E-02_JPRB,.331E-02_JPRB,.538E-02_JPRB,.540E-02_JPRB,.546E-02_JPRB,&
+&.343E-02_JPRB,.583E-02_JPRB,.593E-02_JPRB,.580E-02_JPRB,.572E-02_JPRB,.565E-02_JPRB,.356E-02_JPRB,&
+&.638E-02_JPRB,.684E-02_JPRB,.792E-02_JPRB,.901E-02_JPRB,.101E-01_JPRB,.126E-01_JPRB,.159E-01_JPRB,&
+&.185E-01_JPRB,.225E-01_JPRB,.261E-01_JPRB,.171E-01_JPRB,.190E-01_JPRB,.361E-01_JPRB,.237E-01_JPRB,&
+&.263E-01_JPRB,.297E-01_JPRB,.313E-01_JPRB,.331E-01_JPRB,.333E-01_JPRB,.317E-01_JPRB,.298E-01_JPRB,&
+&.245E-01_JPRB,.220E-01_JPRB,.197E-01_JPRB,.170E-01_JPRB,.158E-01_JPRB,.147E-01_JPRB,.129E-01_JPRB,&
+&.117E-01_JPRB,.108E-01_JPRB,.932E-02_JPRB,.809E-02_JPRB,.730E-02_JPRB,.635E-02_JPRB,.565E-02_JPRB,&
+&.526E-02_JPRB,.484E-02_JPRB,.445E-02_JPRB,.428E-02_JPRB,.412E-02_JPRB,.403E-02_JPRB,.402E-02_JPRB,&
+&.401E-02_JPRB,.688E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 40 -66.0
+ZAER (:,40,10) = (/&
+&.371E-02_JPRB,.371E-02_JPRB,.636E-02_JPRB,.644E-02_JPRB,.391E-02_JPRB,.397E-02_JPRB,.399E-02_JPRB,&
+&.401E-02_JPRB,.402E-02_JPRB,.400E-02_JPRB,.398E-02_JPRB,.393E-02_JPRB,.384E-02_JPRB,.375E-02_JPRB,&
+&.361E-02_JPRB,.341E-02_JPRB,.330E-02_JPRB,.318E-02_JPRB,.314E-02_JPRB,.317E-02_JPRB,.535E-02_JPRB,&
+&.331E-02_JPRB,.330E-02_JPRB,.328E-02_JPRB,.512E-02_JPRB,.494E-02_JPRB,.287E-02_JPRB,.288E-02_JPRB,&
+&.302E-02_JPRB,.528E-02_JPRB,.592E-02_JPRB,.675E-02_JPRB,.761E-02_JPRB,.951E-02_JPRB,.120E-01_JPRB,&
+&.138E-01_JPRB,.165E-01_JPRB,.182E-01_JPRB,.193E-01_JPRB,.123E-01_JPRB,.135E-01_JPRB,.144E-01_JPRB,&
+&.156E-01_JPRB,.173E-01_JPRB,.183E-01_JPRB,.194E-01_JPRB,.201E-01_JPRB,.193E-01_JPRB,.183E-01_JPRB,&
+&.154E-01_JPRB,.141E-01_JPRB,.129E-01_JPRB,.117E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.934E-02_JPRB,&
+&.858E-02_JPRB,.799E-02_JPRB,.712E-02_JPRB,.637E-02_JPRB,.586E-02_JPRB,.517E-02_JPRB,.465E-02_JPRB,&
+&.437E-02_JPRB,.410E-02_JPRB,.388E-02_JPRB,.378E-02_JPRB,.367E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,&
+&.361E-02_JPRB,.371E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 41 -70.0
+ZAER (:,41,10) = (/&
+&.587E-02_JPRB,.587E-02_JPRB,.593E-02_JPRB,.596E-02_JPRB,.360E-02_JPRB,.364E-02_JPRB,.367E-02_JPRB,&
+&.369E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.371E-02_JPRB,.611E-02_JPRB,.597E-02_JPRB,.352E-02_JPRB,&
+&.341E-02_JPRB,.329E-02_JPRB,.539E-02_JPRB,.317E-02_JPRB,.316E-02_JPRB,.317E-02_JPRB,.318E-02_JPRB,&
+&.318E-02_JPRB,.312E-02_JPRB,.509E-02_JPRB,.473E-02_JPRB,.454E-02_JPRB,.262E-02_JPRB,.254E-02_JPRB,&
+&.258E-02_JPRB,.264E-02_JPRB,.284E-02_JPRB,.312E-02_JPRB,.569E-02_JPRB,.677E-02_JPRB,.812E-02_JPRB,&
+&.924E-02_JPRB,.110E-01_JPRB,.126E-01_JPRB,.135E-01_JPRB,.146E-01_JPRB,.155E-01_JPRB,.961E-02_JPRB,&
+&.100E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,.176E-01_JPRB,.168E-01_JPRB,&
+&.150E-01_JPRB,.855E-02_JPRB,.815E-02_JPRB,.766E-02_JPRB,.736E-02_JPRB,.709E-02_JPRB,.664E-02_JPRB,&
+&.629E-02_JPRB,.600E-02_JPRB,.554E-02_JPRB,.511E-02_JPRB,.482E-02_JPRB,.445E-02_JPRB,.418E-02_JPRB,&
+&.403E-02_JPRB,.388E-02_JPRB,.375E-02_JPRB,.369E-02_JPRB,.362E-02_JPRB,.356E-02_JPRB,.353E-02_JPRB,&
+&.586E-02_JPRB,.352E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 42 -74.0
+ZAER (:,42,10) = (/&
+&.572E-02_JPRB,.572E-02_JPRB,.567E-02_JPRB,.565E-02_JPRB,.564E-02_JPRB,.566E-02_JPRB,.568E-02_JPRB,&
+&.571E-02_JPRB,.574E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.574E-02_JPRB,.341E-02_JPRB,.338E-02_JPRB,&
+&.555E-02_JPRB,.545E-02_JPRB,.540E-02_JPRB,.534E-02_JPRB,.530E-02_JPRB,.317E-02_JPRB,.526E-02_JPRB,&
+&.515E-02_JPRB,.504E-02_JPRB,.492E-02_JPRB,.464E-02_JPRB,.270E-02_JPRB,.261E-02_JPRB,.252E-02_JPRB,&
+&.252E-02_JPRB,.252E-02_JPRB,.261E-02_JPRB,.275E-02_JPRB,.482E-02_JPRB,.534E-02_JPRB,.598E-02_JPRB,&
+&.653E-02_JPRB,.745E-02_JPRB,.842E-02_JPRB,.904E-02_JPRB,.981E-02_JPRB,.104E-01_JPRB,.107E-01_JPRB,&
+&.111E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,&
+&.969E-02_JPRB,.944E-02_JPRB,.921E-02_JPRB,.895E-02_JPRB,.528E-02_JPRB,.520E-02_JPRB,.506E-02_JPRB,&
+&.493E-02_JPRB,.482E-02_JPRB,.464E-02_JPRB,.447E-02_JPRB,.726E-02_JPRB,.701E-02_JPRB,.680E-02_JPRB,&
+&.667E-02_JPRB,.651E-02_JPRB,.633E-02_JPRB,.623E-02_JPRB,.611E-02_JPRB,.596E-02_JPRB,.588E-02_JPRB,&
+&.581E-02_JPRB,.572E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 43 -78.0
+ZAER (:,43,10) = (/&
+&.561E-02_JPRB,.561E-02_JPRB,.555E-02_JPRB,.553E-02_JPRB,.552E-02_JPRB,.551E-02_JPRB,.552E-02_JPRB,&
+&.553E-02_JPRB,.555E-02_JPRB,.555E-02_JPRB,.555E-02_JPRB,.554E-02_JPRB,.552E-02_JPRB,.550E-02_JPRB,&
+&.545E-02_JPRB,.539E-02_JPRB,.535E-02_JPRB,.530E-02_JPRB,.314E-02_JPRB,.311E-02_JPRB,.307E-02_JPRB,&
+&.499E-02_JPRB,.491E-02_JPRB,.289E-02_JPRB,.279E-02_JPRB,.273E-02_JPRB,.268E-02_JPRB,.263E-02_JPRB,&
+&.262E-02_JPRB,.262E-02_JPRB,.266E-02_JPRB,.272E-02_JPRB,.465E-02_JPRB,.491E-02_JPRB,.520E-02_JPRB,&
+&.545E-02_JPRB,.586E-02_JPRB,.633E-02_JPRB,.664E-02_JPRB,.423E-02_JPRB,.744E-02_JPRB,.765E-02_JPRB,&
+&.787E-02_JPRB,.806E-02_JPRB,.811E-02_JPRB,.814E-02_JPRB,.802E-02_JPRB,.791E-02_JPRB,.780E-02_JPRB,&
+&.758E-02_JPRB,.750E-02_JPRB,.742E-02_JPRB,.734E-02_JPRB,.729E-02_JPRB,.725E-02_JPRB,.719E-02_JPRB,&
+&.711E-02_JPRB,.423E-02_JPRB,.694E-02_JPRB,.684E-02_JPRB,.676E-02_JPRB,.665E-02_JPRB,.653E-02_JPRB,&
+&.645E-02_JPRB,.633E-02_JPRB,.619E-02_JPRB,.610E-02_JPRB,.599E-02_JPRB,.585E-02_JPRB,.578E-02_JPRB,&
+&.571E-02_JPRB,.561E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 44 -82.0
+ZAER (:,44,10) = (/&
+&.551E-02_JPRB,.551E-02_JPRB,.547E-02_JPRB,.545E-02_JPRB,.544E-02_JPRB,.541E-02_JPRB,.540E-02_JPRB,&
+&.540E-02_JPRB,.539E-02_JPRB,.538E-02_JPRB,.536E-02_JPRB,.535E-02_JPRB,.533E-02_JPRB,.531E-02_JPRB,&
+&.527E-02_JPRB,.523E-02_JPRB,.520E-02_JPRB,.517E-02_JPRB,.510E-02_JPRB,.507E-02_JPRB,.302E-02_JPRB,&
+&.297E-02_JPRB,.295E-02_JPRB,.292E-02_JPRB,.288E-02_JPRB,.286E-02_JPRB,.285E-02_JPRB,.283E-02_JPRB,&
+&.283E-02_JPRB,.284E-02_JPRB,.286E-02_JPRB,.290E-02_JPRB,.293E-02_JPRB,.499E-02_JPRB,.512E-02_JPRB,&
+&.522E-02_JPRB,.538E-02_JPRB,.556E-02_JPRB,.568E-02_JPRB,.584E-02_JPRB,.602E-02_JPRB,.612E-02_JPRB,&
+&.623E-02_JPRB,.634E-02_JPRB,.639E-02_JPRB,.643E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,&
+&.645E-02_JPRB,.644E-02_JPRB,.642E-02_JPRB,.641E-02_JPRB,.639E-02_JPRB,.638E-02_JPRB,.636E-02_JPRB,&
+&.633E-02_JPRB,.631E-02_JPRB,.626E-02_JPRB,.622E-02_JPRB,.618E-02_JPRB,.612E-02_JPRB,.606E-02_JPRB,&
+&.601E-02_JPRB,.594E-02_JPRB,.585E-02_JPRB,.580E-02_JPRB,.574E-02_JPRB,.565E-02_JPRB,.561E-02_JPRB,&
+&.557E-02_JPRB,.551E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 45 -86.0
+ZAER (:,45,10) = (/&
+&.546E-02_JPRB,.546E-02_JPRB,.544E-02_JPRB,.543E-02_JPRB,.542E-02_JPRB,.540E-02_JPRB,.539E-02_JPRB,&
+&.538E-02_JPRB,.537E-02_JPRB,.536E-02_JPRB,.535E-02_JPRB,.534E-02_JPRB,.533E-02_JPRB,.531E-02_JPRB,&
+&.530E-02_JPRB,.528E-02_JPRB,.527E-02_JPRB,.526E-02_JPRB,.523E-02_JPRB,.522E-02_JPRB,.521E-02_JPRB,&
+&.519E-02_JPRB,.518E-02_JPRB,.517E-02_JPRB,.516E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,&
+&.516E-02_JPRB,.517E-02_JPRB,.519E-02_JPRB,.521E-02_JPRB,.523E-02_JPRB,.526E-02_JPRB,.530E-02_JPRB,&
+&.533E-02_JPRB,.537E-02_JPRB,.541E-02_JPRB,.544E-02_JPRB,.548E-02_JPRB,.553E-02_JPRB,.556E-02_JPRB,&
+&.560E-02_JPRB,.563E-02_JPRB,.566E-02_JPRB,.568E-02_JPRB,.571E-02_JPRB,.572E-02_JPRB,.573E-02_JPRB,&
+&.575E-02_JPRB,.575E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.575E-02_JPRB,&
+&.574E-02_JPRB,.574E-02_JPRB,.572E-02_JPRB,.571E-02_JPRB,.569E-02_JPRB,.567E-02_JPRB,.565E-02_JPRB,&
+&.563E-02_JPRB,.561E-02_JPRB,.557E-02_JPRB,.556E-02_JPRB,.554E-02_JPRB,.551E-02_JPRB,.549E-02_JPRB,&
+&.548E-02_JPRB,.546E-02_JPRB/)
+!-- Organic Aerosol          month: 10 --- lat: 46 -90.0
+ZAER (:,46,10) = (/&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.545E-02_JPRB,.545E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=10   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_10
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_11.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_11
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,11:11)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month: 11 --- lat:  1  90.0
+ZAER (:, 1,11) = (/&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.947E-03_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  2  86.0
+ZAER (:, 2,11) = (/&
+&.972E-03_JPRB,.972E-03_JPRB,.976E-03_JPRB,.977E-03_JPRB,.979E-03_JPRB,.980E-03_JPRB,.981E-03_JPRB,&
+&.981E-03_JPRB,.981E-03_JPRB,.981E-03_JPRB,.980E-03_JPRB,.980E-03_JPRB,.979E-03_JPRB,.978E-03_JPRB,&
+&.977E-03_JPRB,.976E-03_JPRB,.975E-03_JPRB,.974E-03_JPRB,.972E-03_JPRB,.971E-03_JPRB,.970E-03_JPRB,&
+&.969E-03_JPRB,.967E-03_JPRB,.965E-03_JPRB,.963E-03_JPRB,.961E-03_JPRB,.959E-03_JPRB,.955E-03_JPRB,&
+&.952E-03_JPRB,.950E-03_JPRB,.945E-03_JPRB,.942E-03_JPRB,.939E-03_JPRB,.935E-03_JPRB,.931E-03_JPRB,&
+&.928E-03_JPRB,.925E-03_JPRB,.921E-03_JPRB,.919E-03_JPRB,.917E-03_JPRB,.914E-03_JPRB,.913E-03_JPRB,&
+&.912E-03_JPRB,.911E-03_JPRB,.910E-03_JPRB,.910E-03_JPRB,.910E-03_JPRB,.911E-03_JPRB,.911E-03_JPRB,&
+&.912E-03_JPRB,.913E-03_JPRB,.914E-03_JPRB,.916E-03_JPRB,.917E-03_JPRB,.918E-03_JPRB,.921E-03_JPRB,&
+&.923E-03_JPRB,.925E-03_JPRB,.928E-03_JPRB,.931E-03_JPRB,.933E-03_JPRB,.936E-03_JPRB,.940E-03_JPRB,&
+&.943E-03_JPRB,.946E-03_JPRB,.951E-03_JPRB,.954E-03_JPRB,.957E-03_JPRB,.962E-03_JPRB,.965E-03_JPRB,&
+&.968E-03_JPRB,.972E-03_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  3  82.0
+ZAER (:, 3,11) = (/&
+&.104E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.997E-03_JPRB,&
+&.991E-03_JPRB,.985E-03_JPRB,.972E-03_JPRB,.961E-03_JPRB,.952E-03_JPRB,.937E-03_JPRB,.924E-03_JPRB,&
+&.915E-03_JPRB,.902E-03_JPRB,.892E-03_JPRB,.885E-03_JPRB,.877E-03_JPRB,.871E-03_JPRB,.868E-03_JPRB,&
+&.865E-03_JPRB,.863E-03_JPRB,.863E-03_JPRB,.864E-03_JPRB,.867E-03_JPRB,.869E-03_JPRB,.872E-03_JPRB,&
+&.877E-03_JPRB,.881E-03_JPRB,.884E-03_JPRB,.889E-03_JPRB,.892E-03_JPRB,.894E-03_JPRB,.898E-03_JPRB,&
+&.900E-03_JPRB,.903E-03_JPRB,.906E-03_JPRB,.911E-03_JPRB,.915E-03_JPRB,.922E-03_JPRB,.932E-03_JPRB,&
+&.939E-03_JPRB,.951E-03_JPRB,.967E-03_JPRB,.977E-03_JPRB,.989E-03_JPRB,.101E-02_JPRB,.102E-02_JPRB,&
+&.103E-02_JPRB,.104E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  4  78.0
+ZAER (:, 4,11) = (/&
+&.116E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,&
+&.114E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.986E-03_JPRB,.960E-03_JPRB,&
+&.941E-03_JPRB,.916E-03_JPRB,.894E-03_JPRB,.881E-03_JPRB,.867E-03_JPRB,.856E-03_JPRB,.851E-03_JPRB,&
+&.847E-03_JPRB,.846E-03_JPRB,.849E-03_JPRB,.853E-03_JPRB,.865E-03_JPRB,.873E-03_JPRB,.882E-03_JPRB,&
+&.897E-03_JPRB,.904E-03_JPRB,.910E-03_JPRB,.917E-03_JPRB,.917E-03_JPRB,.917E-03_JPRB,.913E-03_JPRB,&
+&.909E-03_JPRB,.906E-03_JPRB,.901E-03_JPRB,.901E-03_JPRB,.903E-03_JPRB,.910E-03_JPRB,.924E-03_JPRB,&
+&.937E-03_JPRB,.958E-03_JPRB,.990E-03_JPRB,.101E-02_JPRB,.104E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,&
+&.113E-02_JPRB,.116E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  5  74.0
+ZAER (:, 5,11) = (/&
+&.132E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,&
+&.123E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,&
+&.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,&
+&.109E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.109E-02_JPRB,.105E-02_JPRB,&
+&.102E-02_JPRB,.989E-03_JPRB,.958E-03_JPRB,.940E-03_JPRB,.919E-03_JPRB,.903E-03_JPRB,.897E-03_JPRB,&
+&.893E-03_JPRB,.895E-03_JPRB,.900E-03_JPRB,.908E-03_JPRB,.932E-03_JPRB,.949E-03_JPRB,.967E-03_JPRB,&
+&.998E-03_JPRB,.101E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.983E-03_JPRB,&
+&.962E-03_JPRB,.946E-03_JPRB,.924E-03_JPRB,.912E-03_JPRB,.908E-03_JPRB,.909E-03_JPRB,.924E-03_JPRB,&
+&.941E-03_JPRB,.968E-03_JPRB,.102E-02_JPRB,.105E-02_JPRB,.110E-02_JPRB,.118E-02_JPRB,.122E-02_JPRB,&
+&.126E-02_JPRB,.131E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  6  70.0
+ZAER (:, 6,11) = (/&
+&.147E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.138E-02_JPRB,&
+&.134E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.129E-02_JPRB,&
+&.130E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,&
+&.115E-02_JPRB,.112E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,&
+&.116E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.111E-02_JPRB,&
+&.107E-02_JPRB,.104E-02_JPRB,.100E-02_JPRB,.977E-03_JPRB,.966E-03_JPRB,.960E-03_JPRB,.972E-03_JPRB,&
+&.989E-03_JPRB,.102E-02_JPRB,.108E-02_JPRB,.112E-02_JPRB,.118E-02_JPRB,.128E-02_JPRB,.134E-02_JPRB,&
+&.140E-02_JPRB,.147E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  7  66.0
+ZAER (:, 7,11) = (/&
+&.161E-02_JPRB,.161E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.157E-02_JPRB,.152E-02_JPRB,&
+&.148E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.119E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.126E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,&
+&.137E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,&
+&.122E-02_JPRB,.118E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,&
+&.112E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,.127E-02_JPRB,.133E-02_JPRB,.143E-02_JPRB,.149E-02_JPRB,&
+&.154E-02_JPRB,.161E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  8  62.0
+ZAER (:, 8,11) = (/&
+&.175E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.170E-02_JPRB,&
+&.166E-02_JPRB,.160E-02_JPRB,.155E-02_JPRB,.152E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.141E-02_JPRB,&
+&.139E-02_JPRB,.137E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.140E-02_JPRB,&
+&.143E-02_JPRB,.148E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,&
+&.153E-02_JPRB,.151E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,&
+&.156E-02_JPRB,.158E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,&
+&.142E-02_JPRB,.138E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,&
+&.133E-02_JPRB,.137E-02_JPRB,.143E-02_JPRB,.147E-02_JPRB,.153E-02_JPRB,.162E-02_JPRB,.166E-02_JPRB,&
+&.171E-02_JPRB,.175E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat:  9  58.0
+ZAER (:, 9,11) = (/&
+&.196E-02_JPRB,.196E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.195E-02_JPRB,.190E-02_JPRB,&
+&.186E-02_JPRB,.178E-02_JPRB,.174E-02_JPRB,.171E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,&
+&.156E-02_JPRB,.152E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,&
+&.141E-02_JPRB,.142E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,.149E-02_JPRB,.154E-02_JPRB,&
+&.158E-02_JPRB,.165E-02_JPRB,.170E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,&
+&.176E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,.169E-02_JPRB,.172E-02_JPRB,&
+&.177E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.172E-02_JPRB,&
+&.169E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,.155E-02_JPRB,.156E-02_JPRB,&
+&.158E-02_JPRB,.161E-02_JPRB,.168E-02_JPRB,.172E-02_JPRB,.179E-02_JPRB,.187E-02_JPRB,.190E-02_JPRB,&
+&.192E-02_JPRB,.196E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 10  54.0
+ZAER (:,10,11) = (/&
+&.222E-02_JPRB,.222E-02_JPRB,.225E-02_JPRB,.224E-02_JPRB,.223E-02_JPRB,.216E-02_JPRB,.209E-02_JPRB,&
+&.204E-02_JPRB,.194E-02_JPRB,.189E-02_JPRB,.186E-02_JPRB,.182E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,&
+&.172E-02_JPRB,.169E-02_JPRB,.166E-02_JPRB,.162E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.924E-03_JPRB,.157E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,&
+&.165E-02_JPRB,.165E-02_JPRB,.167E-02_JPRB,.170E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,.176E-02_JPRB,&
+&.178E-02_JPRB,.182E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.188E-02_JPRB,.190E-02_JPRB,&
+&.193E-02_JPRB,.194E-02_JPRB,.192E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.188E-02_JPRB,&
+&.192E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.182E-02_JPRB,.187E-02_JPRB,.195E-02_JPRB,.200E-02_JPRB,.206E-02_JPRB,.213E-02_JPRB,.215E-02_JPRB,&
+&.218E-02_JPRB,.221E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 11  50.0
+ZAER (:,11,11) = (/&
+&.249E-02_JPRB,.249E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.241E-02_JPRB,.232E-02_JPRB,&
+&.224E-02_JPRB,.211E-02_JPRB,.205E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.191E-02_JPRB,.188E-02_JPRB,.183E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.173E-02_JPRB,&
+&.176E-02_JPRB,.109E-02_JPRB,.187E-02_JPRB,.194E-02_JPRB,.196E-02_JPRB,.198E-02_JPRB,.200E-02_JPRB,&
+&.203E-02_JPRB,.206E-02_JPRB,.210E-02_JPRB,.212E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,&
+&.214E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.216E-02_JPRB,.218E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,&
+&.218E-02_JPRB,.218E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.212E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,&
+&.203E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.207E-02_JPRB,.210E-02_JPRB,.213E-02_JPRB,.218E-02_JPRB,&
+&.218E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.214E-02_JPRB,&
+&.217E-02_JPRB,.225E-02_JPRB,.233E-02_JPRB,.237E-02_JPRB,.241E-02_JPRB,.246E-02_JPRB,.247E-02_JPRB,&
+&.247E-02_JPRB,.249E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 12  46.0
+ZAER (:,12,11) = (/&
+&.282E-02_JPRB,.282E-02_JPRB,.279E-02_JPRB,.279E-02_JPRB,.277E-02_JPRB,.264E-02_JPRB,.253E-02_JPRB,&
+&.244E-02_JPRB,.230E-02_JPRB,.223E-02_JPRB,.220E-02_JPRB,.217E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,&
+&.217E-02_JPRB,.214E-02_JPRB,.211E-02_JPRB,.207E-02_JPRB,.204E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,&
+&.207E-02_JPRB,.131E-02_JPRB,.231E-02_JPRB,.254E-02_JPRB,.270E-02_JPRB,.285E-02_JPRB,.301E-02_JPRB,&
+&.303E-02_JPRB,.303E-02_JPRB,.299E-02_JPRB,.290E-02_JPRB,.283E-02_JPRB,.274E-02_JPRB,.276E-02_JPRB,&
+&.276E-02_JPRB,.272E-02_JPRB,.267E-02_JPRB,.268E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,.274E-02_JPRB,&
+&.273E-02_JPRB,.264E-02_JPRB,.258E-02_JPRB,.252E-02_JPRB,.246E-02_JPRB,.240E-02_JPRB,.233E-02_JPRB,&
+&.227E-02_JPRB,.228E-02_JPRB,.229E-02_JPRB,.240E-02_JPRB,.249E-02_JPRB,.256E-02_JPRB,.264E-02_JPRB,&
+&.265E-02_JPRB,.264E-02_JPRB,.259E-02_JPRB,.258E-02_JPRB,.258E-02_JPRB,.259E-02_JPRB,.266E-02_JPRB,&
+&.273E-02_JPRB,.285E-02_JPRB,.291E-02_JPRB,.289E-02_JPRB,.284E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,&
+&.288E-02_JPRB,.283E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 13  42.0
+ZAER (:,13,11) = (/&
+&.326E-02_JPRB,.325E-02_JPRB,.312E-02_JPRB,.308E-02_JPRB,.303E-02_JPRB,.288E-02_JPRB,.275E-02_JPRB,&
+&.266E-02_JPRB,.256E-02_JPRB,.247E-02_JPRB,.242E-02_JPRB,.237E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,&
+&.238E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,&
+&.253E-02_JPRB,.169E-02_JPRB,.188E-02_JPRB,.425E-02_JPRB,.495E-02_JPRB,.557E-02_JPRB,.533E-02_JPRB,&
+&.490E-02_JPRB,.453E-02_JPRB,.409E-02_JPRB,.396E-02_JPRB,.383E-02_JPRB,.353E-02_JPRB,.349E-02_JPRB,&
+&.348E-02_JPRB,.348E-02_JPRB,.346E-02_JPRB,.354E-02_JPRB,.373E-02_JPRB,.390E-02_JPRB,.392E-02_JPRB,&
+&.387E-02_JPRB,.360E-02_JPRB,.343E-02_JPRB,.324E-02_JPRB,.311E-02_JPRB,.300E-02_JPRB,.288E-02_JPRB,&
+&.284E-02_JPRB,.288E-02_JPRB,.293E-02_JPRB,.313E-02_JPRB,.326E-02_JPRB,.336E-02_JPRB,.341E-02_JPRB,&
+&.337E-02_JPRB,.332E-02_JPRB,.322E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,.322E-02_JPRB,.342E-02_JPRB,&
+&.358E-02_JPRB,.382E-02_JPRB,.379E-02_JPRB,.364E-02_JPRB,.338E-02_JPRB,.333E-02_JPRB,.335E-02_JPRB,&
+&.338E-02_JPRB,.326E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 14  38.0
+ZAER (:,14,11) = (/&
+&.377E-02_JPRB,.376E-02_JPRB,.361E-02_JPRB,.353E-02_JPRB,.345E-02_JPRB,.324E-02_JPRB,.310E-02_JPRB,&
+&.300E-02_JPRB,.287E-02_JPRB,.277E-02_JPRB,.269E-02_JPRB,.259E-02_JPRB,.258E-02_JPRB,.259E-02_JPRB,&
+&.265E-02_JPRB,.268E-02_JPRB,.269E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.272E-02_JPRB,.275E-02_JPRB,&
+&.336E-02_JPRB,.251E-02_JPRB,.307E-02_JPRB,.544E-02_JPRB,.105E-01_JPRB,.116E-01_JPRB,.872E-02_JPRB,&
+&.712E-02_JPRB,.585E-02_JPRB,.488E-02_JPRB,.471E-02_JPRB,.454E-02_JPRB,.420E-02_JPRB,.418E-02_JPRB,&
+&.422E-02_JPRB,.435E-02_JPRB,.452E-02_JPRB,.478E-02_JPRB,.528E-02_JPRB,.573E-02_JPRB,.575E-02_JPRB,&
+&.561E-02_JPRB,.511E-02_JPRB,.484E-02_JPRB,.457E-02_JPRB,.431E-02_JPRB,.414E-02_JPRB,.398E-02_JPRB,&
+&.397E-02_JPRB,.399E-02_JPRB,.403E-02_JPRB,.426E-02_JPRB,.435E-02_JPRB,.440E-02_JPRB,.433E-02_JPRB,&
+&.422E-02_JPRB,.414E-02_JPRB,.402E-02_JPRB,.398E-02_JPRB,.400E-02_JPRB,.409E-02_JPRB,.457E-02_JPRB,&
+&.487E-02_JPRB,.522E-02_JPRB,.306E-02_JPRB,.479E-02_JPRB,.430E-02_JPRB,.393E-02_JPRB,.388E-02_JPRB,&
+&.387E-02_JPRB,.377E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 15  34.0
+ZAER (:,15,11) = (/&
+&.446E-02_JPRB,.445E-02_JPRB,.430E-02_JPRB,.419E-02_JPRB,.408E-02_JPRB,.381E-02_JPRB,.363E-02_JPRB,&
+&.348E-02_JPRB,.327E-02_JPRB,.314E-02_JPRB,.304E-02_JPRB,.291E-02_JPRB,.292E-02_JPRB,.297E-02_JPRB,&
+&.306E-02_JPRB,.310E-02_JPRB,.309E-02_JPRB,.306E-02_JPRB,.308E-02_JPRB,.321E-02_JPRB,.341E-02_JPRB,&
+&.519E-02_JPRB,.409E-02_JPRB,.515E-02_JPRB,.993E-02_JPRB,.111E-01_JPRB,.197E-01_JPRB,.129E-01_JPRB,&
+&.965E-02_JPRB,.716E-02_JPRB,.564E-02_JPRB,.534E-02_JPRB,.511E-02_JPRB,.482E-02_JPRB,.501E-02_JPRB,&
+&.516E-02_JPRB,.539E-02_JPRB,.582E-02_JPRB,.630E-02_JPRB,.711E-02_JPRB,.462E-02_JPRB,.779E-02_JPRB,&
+&.773E-02_JPRB,.737E-02_JPRB,.705E-02_JPRB,.667E-02_JPRB,.613E-02_JPRB,.584E-02_JPRB,.556E-02_JPRB,&
+&.545E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.557E-02_JPRB,.555E-02_JPRB,.550E-02_JPRB,.530E-02_JPRB,&
+&.511E-02_JPRB,.502E-02_JPRB,.506E-02_JPRB,.513E-02_JPRB,.312E-02_JPRB,.532E-02_JPRB,.601E-02_JPRB,&
+&.639E-02_JPRB,.409E-02_JPRB,.406E-02_JPRB,.383E-02_JPRB,.578E-02_JPRB,.485E-02_JPRB,.465E-02_JPRB,&
+&.452E-02_JPRB,.446E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 16  30.0
+ZAER (:,16,11) = (/&
+&.526E-02_JPRB,.525E-02_JPRB,.500E-02_JPRB,.490E-02_JPRB,.479E-02_JPRB,.450E-02_JPRB,.427E-02_JPRB,&
+&.407E-02_JPRB,.376E-02_JPRB,.360E-02_JPRB,.350E-02_JPRB,.340E-02_JPRB,.344E-02_JPRB,.348E-02_JPRB,&
+&.356E-02_JPRB,.350E-02_JPRB,.344E-02_JPRB,.334E-02_JPRB,.346E-02_JPRB,.392E-02_JPRB,.457E-02_JPRB,&
+&.799E-02_JPRB,.604E-02_JPRB,.732E-02_JPRB,.132E-01_JPRB,.145E-01_JPRB,.255E-01_JPRB,.168E-01_JPRB,&
+&.125E-01_JPRB,.906E-02_JPRB,.680E-02_JPRB,.631E-02_JPRB,.600E-02_JPRB,.583E-02_JPRB,.626E-02_JPRB,&
+&.657E-02_JPRB,.696E-02_JPRB,.770E-02_JPRB,.829E-02_JPRB,.916E-02_JPRB,.597E-02_JPRB,.628E-02_JPRB,&
+&.667E-02_JPRB,.111E-01_JPRB,.104E-01_JPRB,.953E-02_JPRB,.828E-02_JPRB,.776E-02_JPRB,.726E-02_JPRB,&
+&.708E-02_JPRB,.711E-02_JPRB,.714E-02_JPRB,.715E-02_JPRB,.695E-02_JPRB,.674E-02_JPRB,.627E-02_JPRB,&
+&.603E-02_JPRB,.598E-02_JPRB,.630E-02_JPRB,.392E-02_JPRB,.399E-02_JPRB,.407E-02_JPRB,.440E-02_JPRB,&
+&.462E-02_JPRB,.490E-02_JPRB,.501E-02_JPRB,.482E-02_JPRB,.746E-02_JPRB,.598E-02_JPRB,.563E-02_JPRB,&
+&.538E-02_JPRB,.526E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 17  26.0
+ZAER (:,17,11) = (/&
+&.594E-02_JPRB,.592E-02_JPRB,.550E-02_JPRB,.542E-02_JPRB,.532E-02_JPRB,.507E-02_JPRB,.483E-02_JPRB,&
+&.462E-02_JPRB,.424E-02_JPRB,.411E-02_JPRB,.404E-02_JPRB,.403E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,&
+&.404E-02_JPRB,.386E-02_JPRB,.374E-02_JPRB,.361E-02_JPRB,.397E-02_JPRB,.481E-02_JPRB,.601E-02_JPRB,&
+&.103E-01_JPRB,.723E-02_JPRB,.823E-02_JPRB,.136E-01_JPRB,.154E-01_JPRB,.167E-01_JPRB,.208E-01_JPRB,&
+&.161E-01_JPRB,.124E-01_JPRB,.888E-02_JPRB,.803E-02_JPRB,.753E-02_JPRB,.742E-02_JPRB,.807E-02_JPRB,&
+&.853E-02_JPRB,.915E-02_JPRB,.103E-01_JPRB,.111E-01_JPRB,.721E-02_JPRB,.794E-02_JPRB,.871E-02_JPRB,&
+&.980E-02_JPRB,.162E-01_JPRB,.149E-01_JPRB,.131E-01_JPRB,.109E-01_JPRB,.985E-02_JPRB,.890E-02_JPRB,&
+&.870E-02_JPRB,.877E-02_JPRB,.883E-02_JPRB,.889E-02_JPRB,.850E-02_JPRB,.812E-02_JPRB,.731E-02_JPRB,&
+&.704E-02_JPRB,.703E-02_JPRB,.752E-02_JPRB,.472E-02_JPRB,.482E-02_JPRB,.487E-02_JPRB,.502E-02_JPRB,&
+&.517E-02_JPRB,.543E-02_JPRB,.559E-02_JPRB,.543E-02_JPRB,.853E-02_JPRB,.697E-02_JPRB,.659E-02_JPRB,&
+&.631E-02_JPRB,.595E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 18  22.0
+ZAER (:,18,11) = (/&
+&.632E-02_JPRB,.631E-02_JPRB,.570E-02_JPRB,.563E-02_JPRB,.556E-02_JPRB,.539E-02_JPRB,.519E-02_JPRB,&
+&.500E-02_JPRB,.464E-02_JPRB,.457E-02_JPRB,.457E-02_JPRB,.465E-02_JPRB,.464E-02_JPRB,.461E-02_JPRB,&
+&.452E-02_JPRB,.432E-02_JPRB,.421E-02_JPRB,.410E-02_JPRB,.479E-02_JPRB,.592E-02_JPRB,.747E-02_JPRB,&
+&.113E-01_JPRB,.762E-02_JPRB,.838E-02_JPRB,.135E-01_JPRB,.157E-01_JPRB,.176E-01_JPRB,.151E-01_JPRB,&
+&.208E-01_JPRB,.170E-01_JPRB,.121E-01_JPRB,.106E-01_JPRB,.972E-02_JPRB,.968E-02_JPRB,.105E-01_JPRB,&
+&.110E-01_JPRB,.117E-01_JPRB,.138E-01_JPRB,.150E-01_JPRB,.980E-02_JPRB,.104E-01_JPRB,.114E-01_JPRB,&
+&.130E-01_JPRB,.127E-01_JPRB,.192E-01_JPRB,.993E-02_JPRB,.132E-01_JPRB,.117E-01_JPRB,.103E-01_JPRB,&
+&.100E-01_JPRB,.999E-02_JPRB,.100E-01_JPRB,.102E-01_JPRB,.971E-02_JPRB,.928E-02_JPRB,.835E-02_JPRB,&
+&.806E-02_JPRB,.803E-02_JPRB,.853E-02_JPRB,.892E-02_JPRB,.544E-02_JPRB,.546E-02_JPRB,.550E-02_JPRB,&
+&.558E-02_JPRB,.573E-02_JPRB,.571E-02_JPRB,.918E-02_JPRB,.866E-02_JPRB,.755E-02_JPRB,.724E-02_JPRB,&
+&.699E-02_JPRB,.635E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 19  18.0
+ZAER (:,19,11) = (/&
+&.640E-02_JPRB,.637E-02_JPRB,.564E-02_JPRB,.561E-02_JPRB,.557E-02_JPRB,.551E-02_JPRB,.539E-02_JPRB,&
+&.527E-02_JPRB,.501E-02_JPRB,.500E-02_JPRB,.503E-02_JPRB,.516E-02_JPRB,.515E-02_JPRB,.513E-02_JPRB,&
+&.507E-02_JPRB,.502E-02_JPRB,.503E-02_JPRB,.509E-02_JPRB,.626E-02_JPRB,.770E-02_JPRB,.960E-02_JPRB,&
+&.129E-01_JPRB,.890E-02_JPRB,.101E-01_JPRB,.155E-01_JPRB,.176E-01_JPRB,.194E-01_JPRB,.177E-01_JPRB,&
+&.152E-01_JPRB,.215E-01_JPRB,.158E-01_JPRB,.137E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,&
+&.141E-01_JPRB,.148E-01_JPRB,.180E-01_JPRB,.196E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.133E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.222E-01_JPRB,.113E-01_JPRB,.140E-01_JPRB,.125E-01_JPRB,.110E-01_JPRB,&
+&.106E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.986E-02_JPRB,.915E-02_JPRB,&
+&.894E-02_JPRB,.893E-02_JPRB,.934E-02_JPRB,.963E-02_JPRB,.974E-02_JPRB,.584E-02_JPRB,.590E-02_JPRB,&
+&.594E-02_JPRB,.599E-02_JPRB,.561E-02_JPRB,.888E-02_JPRB,.828E-02_JPRB,.764E-02_JPRB,.741E-02_JPRB,&
+&.721E-02_JPRB,.642E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 20  14.0
+ZAER (:,20,11) = (/&
+&.624E-02_JPRB,.621E-02_JPRB,.545E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,&
+&.549E-02_JPRB,.547E-02_JPRB,.545E-02_JPRB,.546E-02_JPRB,.554E-02_JPRB,.565E-02_JPRB,.572E-02_JPRB,&
+&.578E-02_JPRB,.598E-02_JPRB,.627E-02_JPRB,.676E-02_JPRB,.877E-02_JPRB,.109E-01_JPRB,.136E-01_JPRB,&
+&.107E-01_JPRB,.126E-01_JPRB,.145E-01_JPRB,.201E-01_JPRB,.214E-01_JPRB,.224E-01_JPRB,.203E-01_JPRB,&
+&.175E-01_JPRB,.251E-01_JPRB,.192E-01_JPRB,.177E-01_JPRB,.170E-01_JPRB,.177E-01_JPRB,.183E-01_JPRB,&
+&.189E-01_JPRB,.199E-01_JPRB,.225E-01_JPRB,.237E-01_JPRB,.148E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,&
+&.150E-01_JPRB,.161E-01_JPRB,.144E-01_JPRB,.199E-01_JPRB,.137E-01_JPRB,.123E-01_JPRB,.112E-01_JPRB,&
+&.106E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.997E-02_JPRB,.964E-02_JPRB,&
+&.986E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.647E-02_JPRB,&
+&.653E-02_JPRB,.109E-01_JPRB,.948E-02_JPRB,.869E-02_JPRB,.781E-02_JPRB,.735E-02_JPRB,.719E-02_JPRB,&
+&.705E-02_JPRB,.626E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 21  10.0
+ZAER (:,21,11) = (/&
+&.616E-02_JPRB,.613E-02_JPRB,.533E-02_JPRB,.526E-02_JPRB,.521E-02_JPRB,.534E-02_JPRB,.544E-02_JPRB,&
+&.553E-02_JPRB,.569E-02_JPRB,.569E-02_JPRB,.573E-02_JPRB,.588E-02_JPRB,.621E-02_JPRB,.644E-02_JPRB,&
+&.673E-02_JPRB,.728E-02_JPRB,.797E-02_JPRB,.907E-02_JPRB,.124E-01_JPRB,.155E-01_JPRB,.196E-01_JPRB,&
+&.158E-01_JPRB,.182E-01_JPRB,.207E-01_JPRB,.261E-01_JPRB,.270E-01_JPRB,.275E-01_JPRB,.236E-01_JPRB,&
+&.198E-01_JPRB,.279E-01_JPRB,.228E-01_JPRB,.234E-01_JPRB,.240E-01_JPRB,.252E-01_JPRB,.263E-01_JPRB,&
+&.273E-01_JPRB,.291E-01_JPRB,.290E-01_JPRB,.290E-01_JPRB,.174E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,&
+&.162E-01_JPRB,.166E-01_JPRB,.243E-01_JPRB,.196E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,&
+&.104E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.998E-02_JPRB,.100E-01_JPRB,&
+&.114E-01_JPRB,.123E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.101E-01_JPRB,.886E-02_JPRB,.757E-02_JPRB,.709E-02_JPRB,.698E-02_JPRB,&
+&.690E-02_JPRB,.618E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 22   6.0
+ZAER (:,22,11) = (/&
+&.636E-02_JPRB,.633E-02_JPRB,.544E-02_JPRB,.523E-02_JPRB,.507E-02_JPRB,.512E-02_JPRB,.525E-02_JPRB,&
+&.536E-02_JPRB,.553E-02_JPRB,.562E-02_JPRB,.576E-02_JPRB,.611E-02_JPRB,.670E-02_JPRB,.713E-02_JPRB,&
+&.774E-02_JPRB,.878E-02_JPRB,.990E-02_JPRB,.116E-01_JPRB,.158E-01_JPRB,.199E-01_JPRB,.151E-01_JPRB,&
+&.219E-01_JPRB,.247E-01_JPRB,.273E-01_JPRB,.324E-01_JPRB,.332E-01_JPRB,.336E-01_JPRB,.277E-01_JPRB,&
+&.227E-01_JPRB,.314E-01_JPRB,.282E-01_JPRB,.320E-01_JPRB,.344E-01_JPRB,.362E-01_JPRB,.386E-01_JPRB,&
+&.406E-01_JPRB,.436E-01_JPRB,.429E-01_JPRB,.424E-01_JPRB,.251E-01_JPRB,.248E-01_JPRB,.237E-01_JPRB,&
+&.219E-01_JPRB,.179E-01_JPRB,.253E-01_JPRB,.202E-01_JPRB,.151E-01_JPRB,.135E-01_JPRB,.120E-01_JPRB,&
+&.102E-01_JPRB,.101E-01_JPRB,.997E-02_JPRB,.999E-02_JPRB,.995E-02_JPRB,.100E-01_JPRB,.107E-01_JPRB,&
+&.135E-01_JPRB,.152E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,.155E-01_JPRB,&
+&.155E-01_JPRB,.914E-02_JPRB,.648E-02_JPRB,.908E-02_JPRB,.755E-02_JPRB,.703E-02_JPRB,.699E-02_JPRB,&
+&.700E-02_JPRB,.638E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 23   2.0
+ZAER (:,23,11) = (/&
+&.656E-02_JPRB,.653E-02_JPRB,.557E-02_JPRB,.524E-02_JPRB,.498E-02_JPRB,.497E-02_JPRB,.506E-02_JPRB,&
+&.516E-02_JPRB,.542E-02_JPRB,.557E-02_JPRB,.577E-02_JPRB,.624E-02_JPRB,.699E-02_JPRB,.762E-02_JPRB,&
+&.860E-02_JPRB,.994E-02_JPRB,.113E-01_JPRB,.133E-01_JPRB,.176E-01_JPRB,.217E-01_JPRB,.162E-01_JPRB,&
+&.265E-01_JPRB,.298E-01_JPRB,.327E-01_JPRB,.362E-01_JPRB,.369E-01_JPRB,.371E-01_JPRB,.293E-01_JPRB,&
+&.404E-01_JPRB,.346E-01_JPRB,.363E-01_JPRB,.441E-01_JPRB,.495E-01_JPRB,.549E-01_JPRB,.602E-01_JPRB,&
+&.638E-01_JPRB,.681E-01_JPRB,.689E-01_JPRB,.419E-01_JPRB,.429E-01_JPRB,.414E-01_JPRB,.398E-01_JPRB,&
+&.374E-01_JPRB,.260E-01_JPRB,.203E-01_JPRB,.240E-01_JPRB,.168E-01_JPRB,.148E-01_JPRB,.131E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.122E-01_JPRB,&
+&.152E-01_JPRB,.102E-01_JPRB,.188E-01_JPRB,.118E-01_JPRB,.195E-01_JPRB,.182E-01_JPRB,.176E-01_JPRB,&
+&.103E-01_JPRB,.165E-01_JPRB,.107E-01_JPRB,.883E-02_JPRB,.748E-02_JPRB,.701E-02_JPRB,.700E-02_JPRB,&
+&.706E-02_JPRB,.658E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 24  -2.0
+ZAER (:,24,11) = (/&
+&.646E-02_JPRB,.644E-02_JPRB,.587E-02_JPRB,.553E-02_JPRB,.523E-02_JPRB,.494E-02_JPRB,.495E-02_JPRB,&
+&.501E-02_JPRB,.531E-02_JPRB,.552E-02_JPRB,.577E-02_JPRB,.629E-02_JPRB,.707E-02_JPRB,.773E-02_JPRB,&
+&.877E-02_JPRB,.100E-01_JPRB,.113E-01_JPRB,.132E-01_JPRB,.170E-01_JPRB,.205E-01_JPRB,.249E-01_JPRB,&
+&.270E-01_JPRB,.307E-01_JPRB,.340E-01_JPRB,.338E-01_JPRB,.329E-01_JPRB,.528E-01_JPRB,.407E-01_JPRB,&
+&.371E-01_JPRB,.356E-01_JPRB,.449E-01_JPRB,.582E-01_JPRB,.699E-01_JPRB,.907E-01_JPRB,.104E+00_JPRB,&
+&.110E+00_JPRB,.110E+00_JPRB,.105E+00_JPRB,.620E-01_JPRB,.611E-01_JPRB,.611E-01_JPRB,.591E-01_JPRB,&
+&.554E-01_JPRB,.399E-01_JPRB,.299E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.164E-01_JPRB,.150E-01_JPRB,&
+&.130E-01_JPRB,.133E-01_JPRB,.138E-01_JPRB,.154E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.184E-01_JPRB,&
+&.128E-01_JPRB,.230E-01_JPRB,.234E-01_JPRB,.143E-01_JPRB,.230E-01_JPRB,.202E-01_JPRB,.175E-01_JPRB,&
+&.161E-01_JPRB,.145E-01_JPRB,.100E-01_JPRB,.855E-02_JPRB,.747E-02_JPRB,.687E-02_JPRB,.677E-02_JPRB,&
+&.671E-02_JPRB,.647E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 25  -6.0
+ZAER (:,25,11) = (/&
+&.629E-02_JPRB,.629E-02_JPRB,.626E-02_JPRB,.599E-02_JPRB,.573E-02_JPRB,.516E-02_JPRB,.507E-02_JPRB,&
+&.503E-02_JPRB,.509E-02_JPRB,.519E-02_JPRB,.534E-02_JPRB,.574E-02_JPRB,.635E-02_JPRB,.697E-02_JPRB,&
+&.806E-02_JPRB,.970E-02_JPRB,.110E-01_JPRB,.127E-01_JPRB,.158E-01_JPRB,.188E-01_JPRB,.226E-01_JPRB,&
+&.242E-01_JPRB,.263E-01_JPRB,.278E-01_JPRB,.245E-01_JPRB,.378E-01_JPRB,.349E-01_JPRB,.305E-01_JPRB,&
+&.323E-01_JPRB,.351E-01_JPRB,.476E-01_JPRB,.636E-01_JPRB,.803E-01_JPRB,.117E+00_JPRB,.873E-01_JPRB,&
+&.925E-01_JPRB,.860E-01_JPRB,.726E-01_JPRB,.662E-01_JPRB,.607E-01_JPRB,.592E-01_JPRB,.572E-01_JPRB,&
+&.542E-01_JPRB,.427E-01_JPRB,.329E-01_JPRB,.214E-01_JPRB,.200E-01_JPRB,.189E-01_JPRB,.186E-01_JPRB,&
+&.187E-01_JPRB,.207E-01_JPRB,.225E-01_JPRB,.244E-01_JPRB,.252E-01_JPRB,.272E-01_JPRB,.364E-01_JPRB,&
+&.380E-01_JPRB,.376E-01_JPRB,.326E-01_JPRB,.291E-01_JPRB,.262E-01_JPRB,.217E-01_JPRB,.169E-01_JPRB,&
+&.147E-01_JPRB,.127E-01_JPRB,.975E-02_JPRB,.868E-02_JPRB,.779E-02_JPRB,.679E-02_JPRB,.653E-02_JPRB,&
+&.632E-02_JPRB,.629E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 26 -10.0
+ZAER (:,26,11) = (/&
+&.648E-02_JPRB,.649E-02_JPRB,.677E-02_JPRB,.649E-02_JPRB,.619E-02_JPRB,.544E-02_JPRB,.531E-02_JPRB,&
+&.520E-02_JPRB,.501E-02_JPRB,.491E-02_JPRB,.493E-02_JPRB,.515E-02_JPRB,.565E-02_JPRB,.623E-02_JPRB,&
+&.732E-02_JPRB,.932E-02_JPRB,.106E-01_JPRB,.123E-01_JPRB,.153E-01_JPRB,.173E-01_JPRB,.196E-01_JPRB,&
+&.183E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,.241E-01_JPRB,.220E-01_JPRB,.202E-01_JPRB,.219E-01_JPRB,&
+&.255E-01_JPRB,.293E-01_JPRB,.384E-01_JPRB,.533E-01_JPRB,.688E-01_JPRB,.103E+00_JPRB,.803E-01_JPRB,&
+&.856E-01_JPRB,.770E-01_JPRB,.631E-01_JPRB,.551E-01_JPRB,.461E-01_JPRB,.422E-01_JPRB,.407E-01_JPRB,&
+&.395E-01_JPRB,.343E-01_JPRB,.281E-01_JPRB,.205E-01_JPRB,.130E-01_JPRB,.221E-01_JPRB,.234E-01_JPRB,&
+&.294E-01_JPRB,.334E-01_JPRB,.368E-01_JPRB,.371E-01_JPRB,.405E-01_JPRB,.458E-01_JPRB,.659E-01_JPRB,&
+&.649E-01_JPRB,.608E-01_JPRB,.460E-01_JPRB,.355E-01_JPRB,.291E-01_JPRB,.223E-01_JPRB,.162E-01_JPRB,&
+&.137E-01_JPRB,.118E-01_JPRB,.985E-02_JPRB,.904E-02_JPRB,.829E-02_JPRB,.687E-02_JPRB,.646E-02_JPRB,&
+&.613E-02_JPRB,.647E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 27 -14.0
+ZAER (:,27,11) = (/&
+&.742E-02_JPRB,.743E-02_JPRB,.773E-02_JPRB,.735E-02_JPRB,.693E-02_JPRB,.579E-02_JPRB,.557E-02_JPRB,&
+&.540E-02_JPRB,.518E-02_JPRB,.501E-02_JPRB,.498E-02_JPRB,.514E-02_JPRB,.554E-02_JPRB,.604E-02_JPRB,&
+&.700E-02_JPRB,.969E-02_JPRB,.112E-01_JPRB,.129E-01_JPRB,.889E-02_JPRB,.928E-02_JPRB,.160E-01_JPRB,&
+&.198E-01_JPRB,.195E-01_JPRB,.188E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,.127E-01_JPRB,.146E-01_JPRB,&
+&.170E-01_JPRB,.195E-01_JPRB,.253E-01_JPRB,.352E-01_JPRB,.452E-01_JPRB,.402E-01_JPRB,.529E-01_JPRB,&
+&.564E-01_JPRB,.503E-01_JPRB,.422E-01_JPRB,.363E-01_JPRB,.281E-01_JPRB,.245E-01_JPRB,.241E-01_JPRB,&
+&.247E-01_JPRB,.234E-01_JPRB,.205E-01_JPRB,.168E-01_JPRB,.217E-01_JPRB,.245E-01_JPRB,.281E-01_JPRB,&
+&.426E-01_JPRB,.494E-01_JPRB,.331E-01_JPRB,.560E-01_JPRB,.610E-01_JPRB,.682E-01_JPRB,.941E-01_JPRB,&
+&.545E-01_JPRB,.505E-01_JPRB,.634E-01_JPRB,.454E-01_JPRB,.349E-01_JPRB,.242E-01_JPRB,.171E-01_JPRB,&
+&.141E-01_JPRB,.118E-01_JPRB,.102E-01_JPRB,.958E-02_JPRB,.899E-02_JPRB,.758E-02_JPRB,.710E-02_JPRB,&
+&.667E-02_JPRB,.739E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 28 -18.0
+ZAER (:,28,11) = (/&
+&.905E-02_JPRB,.905E-02_JPRB,.908E-02_JPRB,.866E-02_JPRB,.821E-02_JPRB,.688E-02_JPRB,.631E-02_JPRB,&
+&.588E-02_JPRB,.544E-02_JPRB,.534E-02_JPRB,.535E-02_JPRB,.555E-02_JPRB,.594E-02_JPRB,.636E-02_JPRB,&
+&.711E-02_JPRB,.106E-01_JPRB,.742E-02_JPRB,.856E-02_JPRB,.877E-02_JPRB,.150E-01_JPRB,.155E-01_JPRB,&
+&.145E-01_JPRB,.135E-01_JPRB,.123E-01_JPRB,.101E-01_JPRB,.958E-02_JPRB,.914E-02_JPRB,.101E-01_JPRB,&
+&.113E-01_JPRB,.125E-01_JPRB,.157E-01_JPRB,.207E-01_JPRB,.260E-01_JPRB,.227E-01_JPRB,.292E-01_JPRB,&
+&.309E-01_JPRB,.272E-01_JPRB,.227E-01_JPRB,.196E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,.146E-01_JPRB,&
+&.158E-01_JPRB,.155E-01_JPRB,.238E-01_JPRB,.127E-01_JPRB,.119E-01_JPRB,.146E-01_JPRB,.296E-01_JPRB,&
+&.484E-01_JPRB,.575E-01_JPRB,.396E-01_JPRB,.463E-01_JPRB,.828E-01_JPRB,.903E-01_JPRB,.690E-01_JPRB,&
+&.684E-01_JPRB,.652E-01_JPRB,.887E-01_JPRB,.656E-01_JPRB,.506E-01_JPRB,.322E-01_JPRB,.226E-01_JPRB,&
+&.183E-01_JPRB,.146E-01_JPRB,.120E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.894E-02_JPRB,.861E-02_JPRB,&
+&.835E-02_JPRB,.903E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 29 -22.0
+ZAER (:,29,11) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.964E-02_JPRB,.853E-02_JPRB,.763E-02_JPRB,&
+&.692E-02_JPRB,.603E-02_JPRB,.580E-02_JPRB,.579E-02_JPRB,.615E-02_JPRB,.678E-02_JPRB,.720E-02_JPRB,&
+&.773E-02_JPRB,.655E-02_JPRB,.764E-02_JPRB,.148E-01_JPRB,.151E-01_JPRB,.158E-01_JPRB,.167E-01_JPRB,&
+&.137E-01_JPRB,.119E-01_JPRB,.100E-01_JPRB,.858E-02_JPRB,.819E-02_JPRB,.785E-02_JPRB,.800E-02_JPRB,&
+&.861E-02_JPRB,.924E-02_JPRB,.107E-01_JPRB,.133E-01_JPRB,.159E-01_JPRB,.132E-01_JPRB,.156E-01_JPRB,&
+&.158E-01_JPRB,.133E-01_JPRB,.112E-01_JPRB,.101E-01_JPRB,.917E-02_JPRB,.942E-02_JPRB,.102E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.133E-01_JPRB,.272E-01_JPRB,&
+&.448E-01_JPRB,.322E-01_JPRB,.375E-01_JPRB,.466E-01_JPRB,.492E-01_JPRB,.531E-01_JPRB,.677E-01_JPRB,&
+&.761E-01_JPRB,.789E-01_JPRB,.729E-01_JPRB,.975E-01_JPRB,.780E-01_JPRB,.479E-01_JPRB,.339E-01_JPRB,&
+&.275E-01_JPRB,.218E-01_JPRB,.169E-01_JPRB,.148E-01_JPRB,.128E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,&
+&.108E-01_JPRB,.110E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 30 -26.0
+ZAER (:,30,11) = (/&
+&.129E-01_JPRB,.129E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.100E-01_JPRB,.916E-02_JPRB,&
+&.842E-02_JPRB,.727E-02_JPRB,.685E-02_JPRB,.676E-02_JPRB,.715E-02_JPRB,.820E-02_JPRB,.870E-02_JPRB,&
+&.544E-02_JPRB,.656E-02_JPRB,.759E-02_JPRB,.152E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,.180E-01_JPRB,&
+&.146E-01_JPRB,.125E-01_JPRB,.103E-01_JPRB,.867E-02_JPRB,.828E-02_JPRB,.792E-02_JPRB,.747E-02_JPRB,&
+&.763E-02_JPRB,.782E-02_JPRB,.848E-02_JPRB,.101E-01_JPRB,.116E-01_JPRB,.149E-01_JPRB,.949E-02_JPRB,&
+&.925E-02_JPRB,.774E-02_JPRB,.698E-02_JPRB,.683E-02_JPRB,.703E-02_JPRB,.783E-02_JPRB,.869E-02_JPRB,&
+&.993E-02_JPRB,.106E-01_JPRB,.103E-01_JPRB,.991E-02_JPRB,.998E-02_JPRB,.198E-01_JPRB,.140E-01_JPRB,&
+&.224E-01_JPRB,.259E-01_JPRB,.292E-01_JPRB,.337E-01_JPRB,.340E-01_JPRB,.365E-01_JPRB,.515E-01_JPRB,&
+&.717E-01_JPRB,.838E-01_JPRB,.914E-01_JPRB,.796E-01_JPRB,.111E+00_JPRB,.697E-01_JPRB,.492E-01_JPRB,&
+&.399E-01_JPRB,.321E-01_JPRB,.250E-01_JPRB,.214E-01_JPRB,.176E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,&
+&.134E-01_JPRB,.129E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 31 -30.0
+ZAER (:,31,11) = (/&
+&.146E-01_JPRB,.145E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,&
+&.961E-02_JPRB,.875E-02_JPRB,.840E-02_JPRB,.838E-02_JPRB,.889E-02_JPRB,.102E-01_JPRB,.106E-01_JPRB,&
+&.634E-02_JPRB,.664E-02_JPRB,.761E-02_JPRB,.937E-02_JPRB,.114E-01_JPRB,.118E-01_JPRB,.198E-01_JPRB,&
+&.166E-01_JPRB,.144E-01_JPRB,.122E-01_JPRB,.969E-02_JPRB,.912E-02_JPRB,.856E-02_JPRB,.761E-02_JPRB,&
+&.736E-02_JPRB,.721E-02_JPRB,.744E-02_JPRB,.844E-02_JPRB,.940E-02_JPRB,.113E-01_JPRB,.705E-02_JPRB,&
+&.710E-02_JPRB,.690E-02_JPRB,.683E-02_JPRB,.705E-02_JPRB,.760E-02_JPRB,.845E-02_JPRB,.935E-02_JPRB,&
+&.106E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.117E-01_JPRB,.128E-01_JPRB,&
+&.183E-01_JPRB,.195E-01_JPRB,.203E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,.196E-01_JPRB,.320E-01_JPRB,&
+&.562E-01_JPRB,.737E-01_JPRB,.954E-01_JPRB,.894E-01_JPRB,.783E-01_JPRB,.875E-01_JPRB,.626E-01_JPRB,&
+&.511E-01_JPRB,.410E-01_JPRB,.323E-01_JPRB,.279E-01_JPRB,.231E-01_JPRB,.193E-01_JPRB,.176E-01_JPRB,&
+&.160E-01_JPRB,.146E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 32 -34.0
+ZAER (:,32,11) = (/&
+&.154E-01_JPRB,.154E-01_JPRB,.134E-01_JPRB,.125E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,&
+&.986E-02_JPRB,.960E-02_JPRB,.955E-02_JPRB,.980E-02_JPRB,.108E-01_JPRB,.118E-01_JPRB,.708E-02_JPRB,&
+&.660E-02_JPRB,.648E-02_JPRB,.737E-02_JPRB,.919E-02_JPRB,.121E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,&
+&.195E-01_JPRB,.172E-01_JPRB,.148E-01_JPRB,.110E-01_JPRB,.999E-02_JPRB,.907E-02_JPRB,.784E-02_JPRB,&
+&.745E-02_JPRB,.717E-02_JPRB,.715E-02_JPRB,.762E-02_JPRB,.808E-02_JPRB,.897E-02_JPRB,.999E-02_JPRB,&
+&.656E-02_JPRB,.757E-02_JPRB,.847E-02_JPRB,.937E-02_JPRB,.181E-01_JPRB,.206E-01_JPRB,.224E-01_JPRB,&
+&.248E-01_JPRB,.264E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.144E-01_JPRB,&
+&.165E-01_JPRB,.158E-01_JPRB,.150E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,.190E-01_JPRB,&
+&.374E-01_JPRB,.530E-01_JPRB,.786E-01_JPRB,.808E-01_JPRB,.747E-01_JPRB,.908E-01_JPRB,.665E-01_JPRB,&
+&.327E-01_JPRB,.429E-01_JPRB,.344E-01_JPRB,.303E-01_JPRB,.263E-01_JPRB,.221E-01_JPRB,.198E-01_JPRB,&
+&.173E-01_JPRB,.155E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 33 -38.0
+ZAER (:,33,11) = (/&
+&.153E-01_JPRB,.152E-01_JPRB,.135E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.935E-02_JPRB,.928E-02_JPRB,&
+&.927E-02_JPRB,.948E-02_JPRB,.973E-02_JPRB,.102E-01_JPRB,.117E-01_JPRB,.718E-02_JPRB,.691E-02_JPRB,&
+&.607E-02_JPRB,.597E-02_JPRB,.680E-02_JPRB,.847E-02_JPRB,.116E-01_JPRB,.127E-01_JPRB,.136E-01_JPRB,&
+&.220E-01_JPRB,.199E-01_JPRB,.174E-01_JPRB,.120E-01_JPRB,.106E-01_JPRB,.934E-02_JPRB,.810E-02_JPRB,&
+&.780E-02_JPRB,.757E-02_JPRB,.738E-02_JPRB,.740E-02_JPRB,.751E-02_JPRB,.797E-02_JPRB,.990E-02_JPRB,&
+&.710E-02_JPRB,.155E-01_JPRB,.203E-01_JPRB,.245E-01_JPRB,.309E-01_JPRB,.373E-01_JPRB,.397E-01_JPRB,&
+&.250E-01_JPRB,.241E-01_JPRB,.235E-01_JPRB,.227E-01_JPRB,.200E-01_JPRB,.193E-01_JPRB,.186E-01_JPRB,&
+&.180E-01_JPRB,.165E-01_JPRB,.149E-01_JPRB,.121E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.134E-01_JPRB,&
+&.231E-01_JPRB,.324E-01_JPRB,.507E-01_JPRB,.583E-01_JPRB,.954E-01_JPRB,.762E-01_JPRB,.576E-01_JPRB,&
+&.475E-01_JPRB,.220E-01_JPRB,.304E-01_JPRB,.277E-01_JPRB,.249E-01_JPRB,.213E-01_JPRB,.192E-01_JPRB,&
+&.170E-01_JPRB,.154E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 34 -42.0
+ZAER (:,34,11) = (/&
+&.147E-01_JPRB,.146E-01_JPRB,.130E-01_JPRB,.114E-01_JPRB,.993E-02_JPRB,.829E-02_JPRB,.833E-02_JPRB,&
+&.843E-02_JPRB,.887E-02_JPRB,.933E-02_JPRB,.989E-02_JPRB,.112E-01_JPRB,.661E-02_JPRB,.626E-02_JPRB,&
+&.547E-02_JPRB,.557E-02_JPRB,.628E-02_JPRB,.765E-02_JPRB,.103E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,&
+&.129E-01_JPRB,.199E-01_JPRB,.178E-01_JPRB,.123E-01_JPRB,.109E-01_JPRB,.955E-02_JPRB,.869E-02_JPRB,&
+&.855E-02_JPRB,.840E-02_JPRB,.800E-02_JPRB,.787E-02_JPRB,.811E-02_JPRB,.960E-02_JPRB,.133E-01_JPRB,&
+&.102E-01_JPRB,.143E-01_JPRB,.347E-01_JPRB,.435E-01_JPRB,.566E-01_JPRB,.404E-01_JPRB,.419E-01_JPRB,&
+&.703E-01_JPRB,.651E-01_JPRB,.365E-01_JPRB,.335E-01_JPRB,.469E-01_JPRB,.260E-01_JPRB,.239E-01_JPRB,&
+&.222E-01_JPRB,.206E-01_JPRB,.191E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,&
+&.159E-01_JPRB,.194E-01_JPRB,.278E-01_JPRB,.334E-01_JPRB,.344E-01_JPRB,.309E-01_JPRB,.246E-01_JPRB,&
+&.346E-01_JPRB,.272E-01_JPRB,.234E-01_JPRB,.218E-01_JPRB,.201E-01_JPRB,.179E-01_JPRB,.168E-01_JPRB,&
+&.155E-01_JPRB,.147E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 35 -46.0
+ZAER (:,35,11) = (/&
+&.134E-01_JPRB,.133E-01_JPRB,.119E-01_JPRB,.104E-01_JPRB,.915E-02_JPRB,.769E-02_JPRB,.770E-02_JPRB,&
+&.780E-02_JPRB,.828E-02_JPRB,.869E-02_JPRB,.908E-02_JPRB,.984E-02_JPRB,.583E-02_JPRB,.563E-02_JPRB,&
+&.518E-02_JPRB,.534E-02_JPRB,.584E-02_JPRB,.674E-02_JPRB,.814E-02_JPRB,.876E-02_JPRB,.939E-02_JPRB,&
+&.989E-02_JPRB,.937E-02_JPRB,.870E-02_JPRB,.114E-01_JPRB,.105E-01_JPRB,.965E-02_JPRB,.944E-02_JPRB,&
+&.972E-02_JPRB,.989E-02_JPRB,.960E-02_JPRB,.100E-01_JPRB,.110E-01_JPRB,.148E-01_JPRB,.220E-01_JPRB,&
+&.287E-01_JPRB,.245E-01_JPRB,.369E-01_JPRB,.458E-01_JPRB,.579E-01_JPRB,.626E-01_JPRB,.632E-01_JPRB,&
+&.625E-01_JPRB,.585E-01_JPRB,.534E-01_JPRB,.471E-01_JPRB,.628E-01_JPRB,.339E-01_JPRB,.303E-01_JPRB,&
+&.276E-01_JPRB,.260E-01_JPRB,.245E-01_JPRB,.217E-01_JPRB,.198E-01_JPRB,.182E-01_JPRB,.157E-01_JPRB,&
+&.155E-01_JPRB,.158E-01_JPRB,.176E-01_JPRB,.192E-01_JPRB,.195E-01_JPRB,.190E-01_JPRB,.158E-01_JPRB,&
+&.138E-01_JPRB,.190E-01_JPRB,.164E-01_JPRB,.156E-01_JPRB,.149E-01_JPRB,.141E-01_JPRB,.138E-01_JPRB,&
+&.135E-01_JPRB,.134E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 36 -50.0
+ZAER (:,36,11) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.104E-01_JPRB,.948E-02_JPRB,.866E-02_JPRB,.759E-02_JPRB,.751E-02_JPRB,&
+&.750E-02_JPRB,.773E-02_JPRB,.789E-02_JPRB,.803E-02_JPRB,.496E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,&
+&.495E-02_JPRB,.507E-02_JPRB,.528E-02_JPRB,.564E-02_JPRB,.583E-02_JPRB,.588E-02_JPRB,.590E-02_JPRB,&
+&.628E-02_JPRB,.633E-02_JPRB,.636E-02_JPRB,.101E-01_JPRB,.981E-02_JPRB,.953E-02_JPRB,.988E-02_JPRB,&
+&.108E-01_JPRB,.116E-01_JPRB,.124E-01_JPRB,.140E-01_JPRB,.161E-01_JPRB,.216E-01_JPRB,.326E-01_JPRB,&
+&.424E-01_JPRB,.354E-01_JPRB,.533E-01_JPRB,.643E-01_JPRB,.773E-01_JPRB,.760E-01_JPRB,.752E-01_JPRB,&
+&.742E-01_JPRB,.711E-01_JPRB,.657E-01_JPRB,.587E-01_JPRB,.476E-01_JPRB,.426E-01_JPRB,.378E-01_JPRB,&
+&.326E-01_JPRB,.305E-01_JPRB,.285E-01_JPRB,.258E-01_JPRB,.237E-01_JPRB,.219E-01_JPRB,.192E-01_JPRB,&
+&.181E-01_JPRB,.173E-01_JPRB,.162E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,.109E-01_JPRB,&
+&.959E-02_JPRB,.810E-02_JPRB,.120E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.110E-01_JPRB,.112E-01_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 37 -54.0
+ZAER (:,37,11) = (/&
+&.924E-02_JPRB,.923E-02_JPRB,.913E-02_JPRB,.873E-02_JPRB,.835E-02_JPRB,.779E-02_JPRB,.757E-02_JPRB,&
+&.740E-02_JPRB,.720E-02_JPRB,.707E-02_JPRB,.419E-02_JPRB,.415E-02_JPRB,.422E-02_JPRB,.428E-02_JPRB,&
+&.439E-02_JPRB,.445E-02_JPRB,.451E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,.459E-02_JPRB,.762E-02_JPRB,&
+&.483E-02_JPRB,.511E-02_JPRB,.542E-02_JPRB,.575E-02_JPRB,.953E-02_JPRB,.952E-02_JPRB,.101E-01_JPRB,&
+&.113E-01_JPRB,.124E-01_JPRB,.143E-01_JPRB,.166E-01_JPRB,.192E-01_JPRB,.255E-01_JPRB,.358E-01_JPRB,&
+&.267E-01_JPRB,.584E-01_JPRB,.786E-01_JPRB,.541E-01_JPRB,.617E-01_JPRB,.642E-01_JPRB,.664E-01_JPRB,&
+&.694E-01_JPRB,.698E-01_JPRB,.659E-01_JPRB,.603E-01_JPRB,.493E-01_JPRB,.447E-01_JPRB,.403E-01_JPRB,&
+&.338E-01_JPRB,.313E-01_JPRB,.290E-01_JPRB,.269E-01_JPRB,.254E-01_JPRB,.241E-01_JPRB,.218E-01_JPRB,&
+&.200E-01_JPRB,.186E-01_JPRB,.162E-01_JPRB,.140E-01_JPRB,.125E-01_JPRB,.104E-01_JPRB,.836E-02_JPRB,&
+&.726E-02_JPRB,.101E-01_JPRB,.931E-02_JPRB,.907E-02_JPRB,.889E-02_JPRB,.527E-02_JPRB,.882E-02_JPRB,&
+&.889E-02_JPRB,.922E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 38 -58.0
+ZAER (:,38,11) = (/&
+&.824E-02_JPRB,.823E-02_JPRB,.811E-02_JPRB,.799E-02_JPRB,.787E-02_JPRB,.764E-02_JPRB,.739E-02_JPRB,&
+&.717E-02_JPRB,.678E-02_JPRB,.393E-02_JPRB,.384E-02_JPRB,.374E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,&
+&.374E-02_JPRB,.377E-02_JPRB,.380E-02_JPRB,.386E-02_JPRB,.663E-02_JPRB,.679E-02_JPRB,.700E-02_JPRB,&
+&.452E-02_JPRB,.478E-02_JPRB,.506E-02_JPRB,.889E-02_JPRB,.902E-02_JPRB,.919E-02_JPRB,.101E-01_JPRB,&
+&.112E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.169E-01_JPRB,.195E-01_JPRB,.253E-01_JPRB,.315E-01_JPRB,&
+&.354E-01_JPRB,.398E-01_JPRB,.430E-01_JPRB,.280E-01_JPRB,.317E-01_JPRB,.655E-01_JPRB,.452E-01_JPRB,&
+&.530E-01_JPRB,.567E-01_JPRB,.536E-01_JPRB,.487E-01_JPRB,.394E-01_JPRB,.361E-01_JPRB,.329E-01_JPRB,&
+&.287E-01_JPRB,.272E-01_JPRB,.258E-01_JPRB,.251E-01_JPRB,.245E-01_JPRB,.238E-01_JPRB,.221E-01_JPRB,&
+&.200E-01_JPRB,.183E-01_JPRB,.158E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,.978E-02_JPRB,.766E-02_JPRB,&
+&.655E-02_JPRB,.540E-02_JPRB,.817E-02_JPRB,.790E-02_JPRB,.770E-02_JPRB,.466E-02_JPRB,.791E-02_JPRB,&
+&.808E-02_JPRB,.823E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 39 -62.0
+ZAER (:,39,11) = (/&
+&.772E-02_JPRB,.772E-02_JPRB,.761E-02_JPRB,.757E-02_JPRB,.451E-02_JPRB,.441E-02_JPRB,.425E-02_JPRB,&
+&.411E-02_JPRB,.385E-02_JPRB,.369E-02_JPRB,.359E-02_JPRB,.347E-02_JPRB,.339E-02_JPRB,.335E-02_JPRB,&
+&.329E-02_JPRB,.330E-02_JPRB,.333E-02_JPRB,.338E-02_JPRB,.589E-02_JPRB,.612E-02_JPRB,.641E-02_JPRB,&
+&.415E-02_JPRB,.715E-02_JPRB,.738E-02_JPRB,.765E-02_JPRB,.796E-02_JPRB,.829E-02_JPRB,.558E-02_JPRB,&
+&.101E-01_JPRB,.109E-01_JPRB,.126E-01_JPRB,.151E-01_JPRB,.175E-01_JPRB,.221E-01_JPRB,.252E-01_JPRB,&
+&.269E-01_JPRB,.281E-01_JPRB,.301E-01_JPRB,.198E-01_JPRB,.231E-01_JPRB,.484E-01_JPRB,.329E-01_JPRB,&
+&.376E-01_JPRB,.398E-01_JPRB,.380E-01_JPRB,.350E-01_JPRB,.285E-01_JPRB,.260E-01_JPRB,.238E-01_JPRB,&
+&.218E-01_JPRB,.215E-01_JPRB,.212E-01_JPRB,.212E-01_JPRB,.210E-01_JPRB,.207E-01_JPRB,.195E-01_JPRB,&
+&.180E-01_JPRB,.168E-01_JPRB,.148E-01_JPRB,.129E-01_JPRB,.114E-01_JPRB,.929E-02_JPRB,.725E-02_JPRB,&
+&.620E-02_JPRB,.515E-02_JPRB,.466E-02_JPRB,.450E-02_JPRB,.438E-02_JPRB,.442E-02_JPRB,.450E-02_JPRB,&
+&.460E-02_JPRB,.772E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 40 -66.0
+ZAER (:,40,11) = (/&
+&.442E-02_JPRB,.442E-02_JPRB,.739E-02_JPRB,.733E-02_JPRB,.435E-02_JPRB,.420E-02_JPRB,.406E-02_JPRB,&
+&.394E-02_JPRB,.374E-02_JPRB,.358E-02_JPRB,.346E-02_JPRB,.330E-02_JPRB,.320E-02_JPRB,.314E-02_JPRB,&
+&.308E-02_JPRB,.309E-02_JPRB,.312E-02_JPRB,.318E-02_JPRB,.331E-02_JPRB,.340E-02_JPRB,.586E-02_JPRB,&
+&.369E-02_JPRB,.376E-02_JPRB,.382E-02_JPRB,.650E-02_JPRB,.667E-02_JPRB,.411E-02_JPRB,.449E-02_JPRB,&
+&.483E-02_JPRB,.864E-02_JPRB,.100E-01_JPRB,.117E-01_JPRB,.132E-01_JPRB,.160E-01_JPRB,.182E-01_JPRB,&
+&.198E-01_JPRB,.220E-01_JPRB,.254E-01_JPRB,.286E-01_JPRB,.202E-01_JPRB,.246E-01_JPRB,.271E-01_JPRB,&
+&.300E-01_JPRB,.308E-01_JPRB,.293E-01_JPRB,.271E-01_JPRB,.223E-01_JPRB,.203E-01_JPRB,.184E-01_JPRB,&
+&.168E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.164E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,&
+&.141E-01_JPRB,.134E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,.961E-02_JPRB,.803E-02_JPRB,.658E-02_JPRB,&
+&.582E-02_JPRB,.503E-02_JPRB,.458E-02_JPRB,.441E-02_JPRB,.425E-02_JPRB,.422E-02_JPRB,.427E-02_JPRB,&
+&.433E-02_JPRB,.442E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 41 -70.0
+ZAER (:,41,11) = (/&
+&.716E-02_JPRB,.716E-02_JPRB,.715E-02_JPRB,.707E-02_JPRB,.419E-02_JPRB,.405E-02_JPRB,.395E-02_JPRB,&
+&.385E-02_JPRB,.615E-02_JPRB,.593E-02_JPRB,.345E-02_JPRB,.549E-02_JPRB,.530E-02_JPRB,.311E-02_JPRB,&
+&.304E-02_JPRB,.303E-02_JPRB,.508E-02_JPRB,.309E-02_JPRB,.316E-02_JPRB,.320E-02_JPRB,.324E-02_JPRB,&
+&.329E-02_JPRB,.331E-02_JPRB,.553E-02_JPRB,.557E-02_JPRB,.565E-02_JPRB,.345E-02_JPRB,.366E-02_JPRB,&
+&.391E-02_JPRB,.416E-02_JPRB,.475E-02_JPRB,.537E-02_JPRB,.985E-02_JPRB,.114E-01_JPRB,.129E-01_JPRB,&
+&.142E-01_JPRB,.162E-01_JPRB,.190E-01_JPRB,.214E-01_JPRB,.250E-01_JPRB,.294E-01_JPRB,.190E-01_JPRB,&
+&.205E-01_JPRB,.348E-01_JPRB,.338E-01_JPRB,.322E-01_JPRB,.279E-01_JPRB,.259E-01_JPRB,.239E-01_JPRB,&
+&.219E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,&
+&.108E-01_JPRB,.103E-01_JPRB,.949E-02_JPRB,.859E-02_JPRB,.792E-02_JPRB,.696E-02_JPRB,.606E-02_JPRB,&
+&.556E-02_JPRB,.499E-02_JPRB,.457E-02_JPRB,.440E-02_JPRB,.425E-02_JPRB,.419E-02_JPRB,.421E-02_JPRB,&
+&.706E-02_JPRB,.430E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 42 -74.0
+ZAER (:,42,11) = (/&
+&.707E-02_JPRB,.707E-02_JPRB,.699E-02_JPRB,.690E-02_JPRB,.680E-02_JPRB,.660E-02_JPRB,.645E-02_JPRB,&
+&.632E-02_JPRB,.611E-02_JPRB,.592E-02_JPRB,.577E-02_JPRB,.555E-02_JPRB,.323E-02_JPRB,.316E-02_JPRB,&
+&.514E-02_JPRB,.510E-02_JPRB,.509E-02_JPRB,.511E-02_JPRB,.516E-02_JPRB,.311E-02_JPRB,.520E-02_JPRB,&
+&.521E-02_JPRB,.522E-02_JPRB,.523E-02_JPRB,.527E-02_JPRB,.320E-02_JPRB,.325E-02_JPRB,.340E-02_JPRB,&
+&.357E-02_JPRB,.374E-02_JPRB,.412E-02_JPRB,.449E-02_JPRB,.801E-02_JPRB,.895E-02_JPRB,.983E-02_JPRB,&
+&.105E-01_JPRB,.116E-01_JPRB,.130E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,.177E-01_JPRB,.187E-01_JPRB,&
+&.199E-01_JPRB,.208E-01_JPRB,.208E-01_JPRB,.207E-01_JPRB,.197E-01_JPRB,.191E-01_JPRB,.185E-01_JPRB,&
+&.176E-01_JPRB,.173E-01_JPRB,.170E-01_JPRB,.165E-01_JPRB,.967E-02_JPRB,.948E-02_JPRB,.915E-02_JPRB,&
+&.881E-02_JPRB,.851E-02_JPRB,.799E-02_JPRB,.742E-02_JPRB,.117E-01_JPRB,.107E-01_JPRB,.966E-02_JPRB,&
+&.907E-02_JPRB,.837E-02_JPRB,.778E-02_JPRB,.754E-02_JPRB,.730E-02_JPRB,.715E-02_JPRB,.712E-02_JPRB,&
+&.709E-02_JPRB,.708E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 43 -78.0
+ZAER (:,43,11) = (/&
+&.700E-02_JPRB,.700E-02_JPRB,.682E-02_JPRB,.670E-02_JPRB,.660E-02_JPRB,.640E-02_JPRB,.627E-02_JPRB,&
+&.616E-02_JPRB,.599E-02_JPRB,.585E-02_JPRB,.575E-02_JPRB,.560E-02_JPRB,.549E-02_JPRB,.541E-02_JPRB,&
+&.532E-02_JPRB,.526E-02_JPRB,.524E-02_JPRB,.523E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,&
+&.526E-02_JPRB,.529E-02_JPRB,.319E-02_JPRB,.323E-02_JPRB,.327E-02_JPRB,.331E-02_JPRB,.342E-02_JPRB,&
+&.352E-02_JPRB,.362E-02_JPRB,.382E-02_JPRB,.401E-02_JPRB,.695E-02_JPRB,.742E-02_JPRB,.787E-02_JPRB,&
+&.821E-02_JPRB,.874E-02_JPRB,.934E-02_JPRB,.979E-02_JPRB,.626E-02_JPRB,.112E-01_JPRB,.118E-01_JPRB,&
+&.124E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,&
+&.143E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.752E-02_JPRB,.120E-01_JPRB,.114E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.958E-02_JPRB,&
+&.916E-02_JPRB,.866E-02_JPRB,.816E-02_JPRB,.792E-02_JPRB,.766E-02_JPRB,.740E-02_JPRB,.729E-02_JPRB,&
+&.717E-02_JPRB,.701E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 44 -82.0
+ZAER (:,44,11) = (/&
+&.709E-02_JPRB,.709E-02_JPRB,.688E-02_JPRB,.677E-02_JPRB,.667E-02_JPRB,.650E-02_JPRB,.639E-02_JPRB,&
+&.630E-02_JPRB,.617E-02_JPRB,.608E-02_JPRB,.602E-02_JPRB,.591E-02_JPRB,.584E-02_JPRB,.579E-02_JPRB,&
+&.574E-02_JPRB,.569E-02_JPRB,.567E-02_JPRB,.565E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,.338E-02_JPRB,&
+&.339E-02_JPRB,.341E-02_JPRB,.342E-02_JPRB,.346E-02_JPRB,.349E-02_JPRB,.352E-02_JPRB,.359E-02_JPRB,&
+&.365E-02_JPRB,.370E-02_JPRB,.380E-02_JPRB,.389E-02_JPRB,.397E-02_JPRB,.683E-02_JPRB,.704E-02_JPRB,&
+&.721E-02_JPRB,.748E-02_JPRB,.777E-02_JPRB,.798E-02_JPRB,.828E-02_JPRB,.865E-02_JPRB,.889E-02_JPRB,&
+&.920E-02_JPRB,.965E-02_JPRB,.989E-02_JPRB,.102E-01_JPRB,.105E-01_JPRB,.107E-01_JPRB,.109E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,&
+&.107E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.998E-02_JPRB,.976E-02_JPRB,.943E-02_JPRB,.907E-02_JPRB,&
+&.884E-02_JPRB,.855E-02_JPRB,.823E-02_JPRB,.805E-02_JPRB,.784E-02_JPRB,.759E-02_JPRB,.745E-02_JPRB,&
+&.731E-02_JPRB,.710E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 45 -86.0
+ZAER (:,45,11) = (/&
+&.731E-02_JPRB,.731E-02_JPRB,.720E-02_JPRB,.714E-02_JPRB,.709E-02_JPRB,.701E-02_JPRB,.696E-02_JPRB,&
+&.691E-02_JPRB,.685E-02_JPRB,.681E-02_JPRB,.678E-02_JPRB,.673E-02_JPRB,.670E-02_JPRB,.668E-02_JPRB,&
+&.665E-02_JPRB,.663E-02_JPRB,.662E-02_JPRB,.661E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,&
+&.661E-02_JPRB,.662E-02_JPRB,.663E-02_JPRB,.666E-02_JPRB,.668E-02_JPRB,.670E-02_JPRB,.675E-02_JPRB,&
+&.678E-02_JPRB,.682E-02_JPRB,.688E-02_JPRB,.694E-02_JPRB,.699E-02_JPRB,.707E-02_JPRB,.715E-02_JPRB,&
+&.721E-02_JPRB,.732E-02_JPRB,.742E-02_JPRB,.750E-02_JPRB,.761E-02_JPRB,.774E-02_JPRB,.782E-02_JPRB,&
+&.793E-02_JPRB,.808E-02_JPRB,.816E-02_JPRB,.824E-02_JPRB,.837E-02_JPRB,.844E-02_JPRB,.850E-02_JPRB,&
+&.860E-02_JPRB,.863E-02_JPRB,.866E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.866E-02_JPRB,&
+&.861E-02_JPRB,.857E-02_JPRB,.850E-02_JPRB,.842E-02_JPRB,.836E-02_JPRB,.826E-02_JPRB,.816E-02_JPRB,&
+&.808E-02_JPRB,.798E-02_JPRB,.786E-02_JPRB,.779E-02_JPRB,.770E-02_JPRB,.757E-02_JPRB,.750E-02_JPRB,&
+&.743E-02_JPRB,.731E-02_JPRB/)
+!-- Organic Aerosol          month: 11 --- lat: 46 -90.0
+ZAER (:,46,11) = (/&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=11  
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_11
Index: LMDZ5/branches/testing/libf/phymar/suecaeor_12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaeor_12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaeor_12.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAEOR_12
+
+!**   OPTICAL THICKNESS OF ORGANIC-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAEOR* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAEROR
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,12:12)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Organic Aerosol          month: 12 --- lat:  1  90.0
+ZAER (:, 1,12) = (/&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.765E-03_JPRB,.765E-03_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  2  86.0
+ZAER (:, 2,12) = (/&
+&.788E-03_JPRB,.788E-03_JPRB,.792E-03_JPRB,.794E-03_JPRB,.796E-03_JPRB,.799E-03_JPRB,.800E-03_JPRB,&
+&.801E-03_JPRB,.801E-03_JPRB,.801E-03_JPRB,.801E-03_JPRB,.801E-03_JPRB,.800E-03_JPRB,.800E-03_JPRB,&
+&.800E-03_JPRB,.799E-03_JPRB,.798E-03_JPRB,.796E-03_JPRB,.794E-03_JPRB,.793E-03_JPRB,.792E-03_JPRB,&
+&.790E-03_JPRB,.789E-03_JPRB,.787E-03_JPRB,.784E-03_JPRB,.782E-03_JPRB,.781E-03_JPRB,.777E-03_JPRB,&
+&.774E-03_JPRB,.772E-03_JPRB,.768E-03_JPRB,.765E-03_JPRB,.762E-03_JPRB,.757E-03_JPRB,.754E-03_JPRB,&
+&.751E-03_JPRB,.747E-03_JPRB,.743E-03_JPRB,.741E-03_JPRB,.738E-03_JPRB,.735E-03_JPRB,.733E-03_JPRB,&
+&.731E-03_JPRB,.729E-03_JPRB,.727E-03_JPRB,.726E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,&
+&.725E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,.727E-03_JPRB,.728E-03_JPRB,.729E-03_JPRB,.732E-03_JPRB,&
+&.734E-03_JPRB,.736E-03_JPRB,.739E-03_JPRB,.743E-03_JPRB,.745E-03_JPRB,.749E-03_JPRB,.753E-03_JPRB,&
+&.756E-03_JPRB,.760E-03_JPRB,.765E-03_JPRB,.768E-03_JPRB,.771E-03_JPRB,.777E-03_JPRB,.780E-03_JPRB,&
+&.783E-03_JPRB,.788E-03_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  3  82.0
+ZAER (:, 3,12) = (/&
+&.813E-03_JPRB,.813E-03_JPRB,.825E-03_JPRB,.830E-03_JPRB,.835E-03_JPRB,.841E-03_JPRB,.843E-03_JPRB,&
+&.845E-03_JPRB,.845E-03_JPRB,.844E-03_JPRB,.843E-03_JPRB,.841E-03_JPRB,.839E-03_JPRB,.837E-03_JPRB,&
+&.835E-03_JPRB,.832E-03_JPRB,.830E-03_JPRB,.828E-03_JPRB,.826E-03_JPRB,.826E-03_JPRB,.825E-03_JPRB,&
+&.825E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.824E-03_JPRB,.822E-03_JPRB,.821E-03_JPRB,.815E-03_JPRB,&
+&.809E-03_JPRB,.804E-03_JPRB,.792E-03_JPRB,.782E-03_JPRB,.773E-03_JPRB,.759E-03_JPRB,.747E-03_JPRB,&
+&.738E-03_JPRB,.727E-03_JPRB,.716E-03_JPRB,.710E-03_JPRB,.701E-03_JPRB,.693E-03_JPRB,.689E-03_JPRB,&
+&.684E-03_JPRB,.680E-03_JPRB,.678E-03_JPRB,.675E-03_JPRB,.673E-03_JPRB,.673E-03_JPRB,.672E-03_JPRB,&
+&.672E-03_JPRB,.671E-03_JPRB,.671E-03_JPRB,.672E-03_JPRB,.673E-03_JPRB,.675E-03_JPRB,.678E-03_JPRB,&
+&.682E-03_JPRB,.685E-03_JPRB,.691E-03_JPRB,.698E-03_JPRB,.703E-03_JPRB,.711E-03_JPRB,.722E-03_JPRB,&
+&.729E-03_JPRB,.738E-03_JPRB,.750E-03_JPRB,.758E-03_JPRB,.768E-03_JPRB,.782E-03_JPRB,.790E-03_JPRB,&
+&.799E-03_JPRB,.812E-03_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  4  78.0
+ZAER (:, 4,12) = (/&
+&.827E-03_JPRB,.827E-03_JPRB,.848E-03_JPRB,.857E-03_JPRB,.864E-03_JPRB,.873E-03_JPRB,.874E-03_JPRB,&
+&.875E-03_JPRB,.871E-03_JPRB,.867E-03_JPRB,.863E-03_JPRB,.857E-03_JPRB,.852E-03_JPRB,.848E-03_JPRB,&
+&.843E-03_JPRB,.839E-03_JPRB,.838E-03_JPRB,.836E-03_JPRB,.838E-03_JPRB,.840E-03_JPRB,.844E-03_JPRB,&
+&.854E-03_JPRB,.861E-03_JPRB,.869E-03_JPRB,.885E-03_JPRB,.891E-03_JPRB,.896E-03_JPRB,.899E-03_JPRB,&
+&.893E-03_JPRB,.886E-03_JPRB,.867E-03_JPRB,.847E-03_JPRB,.830E-03_JPRB,.801E-03_JPRB,.778E-03_JPRB,&
+&.761E-03_JPRB,.737E-03_JPRB,.717E-03_JPRB,.705E-03_JPRB,.690E-03_JPRB,.677E-03_JPRB,.671E-03_JPRB,&
+&.664E-03_JPRB,.660E-03_JPRB,.659E-03_JPRB,.658E-03_JPRB,.659E-03_JPRB,.659E-03_JPRB,.659E-03_JPRB,&
+&.657E-03_JPRB,.654E-03_JPRB,.651E-03_JPRB,.646E-03_JPRB,.643E-03_JPRB,.640E-03_JPRB,.638E-03_JPRB,&
+&.638E-03_JPRB,.639E-03_JPRB,.643E-03_JPRB,.649E-03_JPRB,.655E-03_JPRB,.664E-03_JPRB,.677E-03_JPRB,&
+&.686E-03_JPRB,.699E-03_JPRB,.719E-03_JPRB,.732E-03_JPRB,.747E-03_JPRB,.771E-03_JPRB,.786E-03_JPRB,&
+&.801E-03_JPRB,.826E-03_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  5  74.0
+ZAER (:, 5,12) = (/&
+&.856E-03_JPRB,.857E-03_JPRB,.885E-03_JPRB,.896E-03_JPRB,.905E-03_JPRB,.912E-03_JPRB,.908E-03_JPRB,&
+&.904E-03_JPRB,.892E-03_JPRB,.882E-03_JPRB,.875E-03_JPRB,.865E-03_JPRB,.858E-03_JPRB,.854E-03_JPRB,&
+&.848E-03_JPRB,.843E-03_JPRB,.842E-03_JPRB,.842E-03_JPRB,.847E-03_JPRB,.853E-03_JPRB,.860E-03_JPRB,&
+&.880E-03_JPRB,.897E-03_JPRB,.915E-03_JPRB,.957E-03_JPRB,.978E-03_JPRB,.997E-03_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.102E-02_JPRB,.994E-03_JPRB,.969E-03_JPRB,.947E-03_JPRB,.908E-03_JPRB,.873E-03_JPRB,&
+&.848E-03_JPRB,.814E-03_JPRB,.784E-03_JPRB,.765E-03_JPRB,.742E-03_JPRB,.721E-03_JPRB,.712E-03_JPRB,&
+&.702E-03_JPRB,.700E-03_JPRB,.702E-03_JPRB,.706E-03_JPRB,.716E-03_JPRB,.720E-03_JPRB,.723E-03_JPRB,&
+&.719E-03_JPRB,.712E-03_JPRB,.704E-03_JPRB,.686E-03_JPRB,.674E-03_JPRB,.664E-03_JPRB,.650E-03_JPRB,&
+&.642E-03_JPRB,.637E-03_JPRB,.633E-03_JPRB,.633E-03_JPRB,.635E-03_JPRB,.641E-03_JPRB,.652E-03_JPRB,&
+&.662E-03_JPRB,.678E-03_JPRB,.703E-03_JPRB,.721E-03_JPRB,.742E-03_JPRB,.777E-03_JPRB,.798E-03_JPRB,&
+&.820E-03_JPRB,.855E-03_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  6  70.0
+ZAER (:, 6,12) = (/&
+&.935E-03_JPRB,.935E-03_JPRB,.963E-03_JPRB,.972E-03_JPRB,.978E-03_JPRB,.976E-03_JPRB,.965E-03_JPRB,&
+&.954E-03_JPRB,.930E-03_JPRB,.913E-03_JPRB,.902E-03_JPRB,.890E-03_JPRB,.885E-03_JPRB,.882E-03_JPRB,&
+&.879E-03_JPRB,.878E-03_JPRB,.879E-03_JPRB,.881E-03_JPRB,.888E-03_JPRB,.893E-03_JPRB,.900E-03_JPRB,&
+&.918E-03_JPRB,.936E-03_JPRB,.957E-03_JPRB,.101E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.102E-02_JPRB,&
+&.999E-03_JPRB,.967E-03_JPRB,.936E-03_JPRB,.913E-03_JPRB,.883E-03_JPRB,.850E-03_JPRB,.831E-03_JPRB,&
+&.811E-03_JPRB,.800E-03_JPRB,.802E-03_JPRB,.808E-03_JPRB,.830E-03_JPRB,.840E-03_JPRB,.849E-03_JPRB,&
+&.847E-03_JPRB,.834E-03_JPRB,.821E-03_JPRB,.790E-03_JPRB,.768E-03_JPRB,.750E-03_JPRB,.727E-03_JPRB,&
+&.712E-03_JPRB,.701E-03_JPRB,.688E-03_JPRB,.679E-03_JPRB,.674E-03_JPRB,.673E-03_JPRB,.681E-03_JPRB,&
+&.692E-03_JPRB,.710E-03_JPRB,.743E-03_JPRB,.768E-03_JPRB,.798E-03_JPRB,.843E-03_JPRB,.869E-03_JPRB,&
+&.895E-03_JPRB,.933E-03_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  7  66.0
+ZAER (:, 7,12) = (/&
+&.106E-02_JPRB,.106E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,&
+&.104E-02_JPRB,.996E-03_JPRB,.971E-03_JPRB,.955E-03_JPRB,.940E-03_JPRB,.935E-03_JPRB,.933E-03_JPRB,&
+&.932E-03_JPRB,.937E-03_JPRB,.944E-03_JPRB,.954E-03_JPRB,.966E-03_JPRB,.973E-03_JPRB,.980E-03_JPRB,&
+&.991E-03_JPRB,.100E-02_JPRB,.102E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,.113E-02_JPRB,.117E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,&
+&.999E-03_JPRB,.959E-03_JPRB,.949E-03_JPRB,.943E-03_JPRB,.963E-03_JPRB,.977E-03_JPRB,.990E-03_JPRB,&
+&.999E-03_JPRB,.986E-03_JPRB,.972E-03_JPRB,.933E-03_JPRB,.908E-03_JPRB,.888E-03_JPRB,.864E-03_JPRB,&
+&.852E-03_JPRB,.842E-03_JPRB,.828E-03_JPRB,.815E-03_JPRB,.807E-03_JPRB,.798E-03_JPRB,.802E-03_JPRB,&
+&.811E-03_JPRB,.828E-03_JPRB,.866E-03_JPRB,.894E-03_JPRB,.929E-03_JPRB,.981E-03_JPRB,.101E-02_JPRB,&
+&.103E-02_JPRB,.106E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  8  62.0
+ZAER (:, 8,12) = (/&
+&.123E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,&
+&.115E-02_JPRB,.110E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.999E-03_JPRB,.995E-03_JPRB,&
+&.994E-03_JPRB,.100E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,&
+&.120E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.125E-02_JPRB,.130E-02_JPRB,&
+&.134E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,&
+&.122E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,&
+&.104E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.110E-02_JPRB,.113E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,&
+&.121E-02_JPRB,.123E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat:  9  58.0
+ZAER (:, 9,12) = (/&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,&
+&.132E-02_JPRB,.125E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,.115E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,&
+&.126E-02_JPRB,.130E-02_JPRB,.134E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,&
+&.131E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,.128E-02_JPRB,.133E-02_JPRB,.145E-02_JPRB,.153E-02_JPRB,&
+&.158E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.159E-02_JPRB,.153E-02_JPRB,.145E-02_JPRB,.140E-02_JPRB,&
+&.134E-02_JPRB,.125E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,&
+&.121E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,&
+&.130E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 10  54.0
+ZAER (:,10,12) = (/&
+&.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.158E-02_JPRB,&
+&.152E-02_JPRB,.142E-02_JPRB,.133E-02_JPRB,.128E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,&
+&.141E-02_JPRB,.891E-03_JPRB,.157E-02_JPRB,.163E-02_JPRB,.165E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,&
+&.154E-02_JPRB,.149E-02_JPRB,.152E-02_JPRB,.164E-02_JPRB,.174E-02_JPRB,.192E-02_JPRB,.199E-02_JPRB,&
+&.200E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,.181E-02_JPRB,.166E-02_JPRB,.149E-02_JPRB,.142E-02_JPRB,&
+&.134E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,&
+&.127E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.137E-02_JPRB,.140E-02_JPRB,.143E-02_JPRB,.148E-02_JPRB,&
+&.151E-02_JPRB,.153E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.152E-02_JPRB,.155E-02_JPRB,.159E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,&
+&.167E-02_JPRB,.167E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 11  50.0
+ZAER (:,11,12) = (/&
+&.194E-02_JPRB,.194E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.184E-02_JPRB,&
+&.178E-02_JPRB,.164E-02_JPRB,.153E-02_JPRB,.146E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.135E-02_JPRB,.138E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.159E-02_JPRB,.102E-02_JPRB,.181E-02_JPRB,.185E-02_JPRB,.190E-02_JPRB,.194E-02_JPRB,.197E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.222E-02_JPRB,.240E-02_JPRB,.249E-02_JPRB,&
+&.251E-02_JPRB,.246E-02_JPRB,.232E-02_JPRB,.218E-02_JPRB,.197E-02_JPRB,.167E-02_JPRB,.154E-02_JPRB,&
+&.141E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,&
+&.135E-02_JPRB,.140E-02_JPRB,.144E-02_JPRB,.155E-02_JPRB,.162E-02_JPRB,.167E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.169E-02_JPRB,.170E-02_JPRB,.169E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,&
+&.167E-02_JPRB,.172E-02_JPRB,.179E-02_JPRB,.182E-02_JPRB,.186E-02_JPRB,.192E-02_JPRB,.193E-02_JPRB,&
+&.195E-02_JPRB,.194E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 12  46.0
+ZAER (:,12,12) = (/&
+&.231E-02_JPRB,.231E-02_JPRB,.217E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,&
+&.209E-02_JPRB,.194E-02_JPRB,.182E-02_JPRB,.172E-02_JPRB,.159E-02_JPRB,.154E-02_JPRB,.152E-02_JPRB,&
+&.153E-02_JPRB,.158E-02_JPRB,.161E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,&
+&.188E-02_JPRB,.123E-02_JPRB,.222E-02_JPRB,.237E-02_JPRB,.249E-02_JPRB,.262E-02_JPRB,.287E-02_JPRB,&
+&.292E-02_JPRB,.296E-02_JPRB,.290E-02_JPRB,.282E-02_JPRB,.280E-02_JPRB,.289E-02_JPRB,.298E-02_JPRB,&
+&.304E-02_JPRB,.308E-02_JPRB,.299E-02_JPRB,.287E-02_JPRB,.265E-02_JPRB,.220E-02_JPRB,.198E-02_JPRB,&
+&.176E-02_JPRB,.156E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,&
+&.162E-02_JPRB,.169E-02_JPRB,.176E-02_JPRB,.191E-02_JPRB,.196E-02_JPRB,.198E-02_JPRB,.196E-02_JPRB,&
+&.193E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,.183E-02_JPRB,.182E-02_JPRB,.188E-02_JPRB,&
+&.197E-02_JPRB,.211E-02_JPRB,.219E-02_JPRB,.220E-02_JPRB,.219E-02_JPRB,.227E-02_JPRB,.231E-02_JPRB,&
+&.236E-02_JPRB,.231E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 13  42.0
+ZAER (:,13,12) = (/&
+&.277E-02_JPRB,.276E-02_JPRB,.250E-02_JPRB,.248E-02_JPRB,.246E-02_JPRB,.250E-02_JPRB,.248E-02_JPRB,&
+&.244E-02_JPRB,.229E-02_JPRB,.215E-02_JPRB,.204E-02_JPRB,.190E-02_JPRB,.184E-02_JPRB,.181E-02_JPRB,&
+&.180E-02_JPRB,.185E-02_JPRB,.188E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.232E-02_JPRB,.164E-02_JPRB,.190E-02_JPRB,.439E-02_JPRB,.490E-02_JPRB,.534E-02_JPRB,.515E-02_JPRB,&
+&.479E-02_JPRB,.445E-02_JPRB,.384E-02_JPRB,.356E-02_JPRB,.341E-02_JPRB,.344E-02_JPRB,.361E-02_JPRB,&
+&.374E-02_JPRB,.392E-02_JPRB,.391E-02_JPRB,.381E-02_JPRB,.359E-02_JPRB,.309E-02_JPRB,.282E-02_JPRB,&
+&.251E-02_JPRB,.215E-02_JPRB,.205E-02_JPRB,.196E-02_JPRB,.195E-02_JPRB,.200E-02_JPRB,.206E-02_JPRB,&
+&.221E-02_JPRB,.232E-02_JPRB,.241E-02_JPRB,.256E-02_JPRB,.256E-02_JPRB,.255E-02_JPRB,.242E-02_JPRB,&
+&.235E-02_JPRB,.230E-02_JPRB,.224E-02_JPRB,.219E-02_JPRB,.217E-02_JPRB,.216E-02_JPRB,.237E-02_JPRB,&
+&.257E-02_JPRB,.288E-02_JPRB,.301E-02_JPRB,.294E-02_JPRB,.279E-02_JPRB,.271E-02_JPRB,.276E-02_JPRB,&
+&.284E-02_JPRB,.277E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 14  38.0
+ZAER (:,14,12) = (/&
+&.311E-02_JPRB,.310E-02_JPRB,.281E-02_JPRB,.278E-02_JPRB,.277E-02_JPRB,.280E-02_JPRB,.277E-02_JPRB,&
+&.272E-02_JPRB,.257E-02_JPRB,.243E-02_JPRB,.232E-02_JPRB,.218E-02_JPRB,.211E-02_JPRB,.208E-02_JPRB,&
+&.206E-02_JPRB,.214E-02_JPRB,.216E-02_JPRB,.218E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.215E-02_JPRB,&
+&.301E-02_JPRB,.243E-02_JPRB,.313E-02_JPRB,.582E-02_JPRB,.112E-01_JPRB,.123E-01_JPRB,.955E-02_JPRB,&
+&.766E-02_JPRB,.612E-02_JPRB,.461E-02_JPRB,.420E-02_JPRB,.399E-02_JPRB,.409E-02_JPRB,.450E-02_JPRB,&
+&.474E-02_JPRB,.497E-02_JPRB,.480E-02_JPRB,.468E-02_JPRB,.452E-02_JPRB,.433E-02_JPRB,.413E-02_JPRB,&
+&.384E-02_JPRB,.334E-02_JPRB,.315E-02_JPRB,.298E-02_JPRB,.286E-02_JPRB,.289E-02_JPRB,.293E-02_JPRB,&
+&.309E-02_JPRB,.324E-02_JPRB,.338E-02_JPRB,.349E-02_JPRB,.346E-02_JPRB,.340E-02_JPRB,.318E-02_JPRB,&
+&.306E-02_JPRB,.298E-02_JPRB,.293E-02_JPRB,.287E-02_JPRB,.283E-02_JPRB,.281E-02_JPRB,.321E-02_JPRB,&
+&.357E-02_JPRB,.409E-02_JPRB,.258E-02_JPRB,.416E-02_JPRB,.387E-02_JPRB,.330E-02_JPRB,.323E-02_JPRB,&
+&.322E-02_JPRB,.312E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 15  34.0
+ZAER (:,15,12) = (/&
+&.333E-02_JPRB,.333E-02_JPRB,.309E-02_JPRB,.305E-02_JPRB,.302E-02_JPRB,.302E-02_JPRB,.295E-02_JPRB,&
+&.288E-02_JPRB,.272E-02_JPRB,.259E-02_JPRB,.250E-02_JPRB,.236E-02_JPRB,.228E-02_JPRB,.226E-02_JPRB,&
+&.229E-02_JPRB,.238E-02_JPRB,.240E-02_JPRB,.239E-02_JPRB,.233E-02_JPRB,.238E-02_JPRB,.247E-02_JPRB,&
+&.433E-02_JPRB,.381E-02_JPRB,.514E-02_JPRB,.102E-01_JPRB,.117E-01_JPRB,.212E-01_JPRB,.144E-01_JPRB,&
+&.105E-01_JPRB,.739E-02_JPRB,.522E-02_JPRB,.492E-02_JPRB,.482E-02_JPRB,.513E-02_JPRB,.567E-02_JPRB,&
+&.591E-02_JPRB,.598E-02_JPRB,.558E-02_JPRB,.552E-02_JPRB,.565E-02_JPRB,.375E-02_JPRB,.633E-02_JPRB,&
+&.625E-02_JPRB,.544E-02_JPRB,.502E-02_JPRB,.459E-02_JPRB,.423E-02_JPRB,.420E-02_JPRB,.418E-02_JPRB,&
+&.429E-02_JPRB,.445E-02_JPRB,.459E-02_JPRB,.464E-02_JPRB,.455E-02_JPRB,.445E-02_JPRB,.415E-02_JPRB,&
+&.396E-02_JPRB,.387E-02_JPRB,.387E-02_JPRB,.389E-02_JPRB,.233E-02_JPRB,.387E-02_JPRB,.436E-02_JPRB,&
+&.478E-02_JPRB,.325E-02_JPRB,.350E-02_JPRB,.341E-02_JPRB,.531E-02_JPRB,.404E-02_JPRB,.375E-02_JPRB,&
+&.354E-02_JPRB,.334E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 16  30.0
+ZAER (:,16,12) = (/&
+&.358E-02_JPRB,.357E-02_JPRB,.333E-02_JPRB,.326E-02_JPRB,.320E-02_JPRB,.315E-02_JPRB,.305E-02_JPRB,&
+&.296E-02_JPRB,.276E-02_JPRB,.265E-02_JPRB,.257E-02_JPRB,.245E-02_JPRB,.239E-02_JPRB,.240E-02_JPRB,&
+&.250E-02_JPRB,.258E-02_JPRB,.258E-02_JPRB,.254E-02_JPRB,.249E-02_JPRB,.265E-02_JPRB,.290E-02_JPRB,&
+&.620E-02_JPRB,.543E-02_JPRB,.726E-02_JPRB,.134E-01_JPRB,.149E-01_JPRB,.266E-01_JPRB,.171E-01_JPRB,&
+&.122E-01_JPRB,.847E-02_JPRB,.622E-02_JPRB,.641E-02_JPRB,.657E-02_JPRB,.684E-02_JPRB,.715E-02_JPRB,&
+&.720E-02_JPRB,.695E-02_JPRB,.656E-02_JPRB,.671E-02_JPRB,.733E-02_JPRB,.540E-02_JPRB,.568E-02_JPRB,&
+&.580E-02_JPRB,.846E-02_JPRB,.770E-02_JPRB,.685E-02_JPRB,.614E-02_JPRB,.599E-02_JPRB,.587E-02_JPRB,&
+&.586E-02_JPRB,.588E-02_JPRB,.589E-02_JPRB,.576E-02_JPRB,.559E-02_JPRB,.542E-02_JPRB,.505E-02_JPRB,&
+&.485E-02_JPRB,.479E-02_JPRB,.493E-02_JPRB,.309E-02_JPRB,.315E-02_JPRB,.317E-02_JPRB,.334E-02_JPRB,&
+&.352E-02_JPRB,.380E-02_JPRB,.414E-02_JPRB,.407E-02_JPRB,.641E-02_JPRB,.475E-02_JPRB,.429E-02_JPRB,&
+&.392E-02_JPRB,.359E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 17  26.0
+ZAER (:,17,12) = (/&
+&.391E-02_JPRB,.390E-02_JPRB,.354E-02_JPRB,.343E-02_JPRB,.333E-02_JPRB,.324E-02_JPRB,.313E-02_JPRB,&
+&.302E-02_JPRB,.278E-02_JPRB,.269E-02_JPRB,.262E-02_JPRB,.255E-02_JPRB,.256E-02_JPRB,.262E-02_JPRB,&
+&.277E-02_JPRB,.279E-02_JPRB,.275E-02_JPRB,.266E-02_JPRB,.267E-02_JPRB,.299E-02_JPRB,.348E-02_JPRB,&
+&.773E-02_JPRB,.644E-02_JPRB,.833E-02_JPRB,.140E-01_JPRB,.156E-01_JPRB,.167E-01_JPRB,.189E-01_JPRB,&
+&.143E-01_JPRB,.108E-01_JPRB,.881E-02_JPRB,.947E-02_JPRB,.970E-02_JPRB,.901E-02_JPRB,.889E-02_JPRB,&
+&.881E-02_JPRB,.872E-02_JPRB,.867E-02_JPRB,.898E-02_JPRB,.584E-02_JPRB,.707E-02_JPRB,.748E-02_JPRB,&
+&.776E-02_JPRB,.119E-01_JPRB,.110E-01_JPRB,.986E-02_JPRB,.863E-02_JPRB,.825E-02_JPRB,.791E-02_JPRB,&
+&.753E-02_JPRB,.725E-02_JPRB,.698E-02_JPRB,.664E-02_JPRB,.639E-02_JPRB,.616E-02_JPRB,.579E-02_JPRB,&
+&.567E-02_JPRB,.569E-02_JPRB,.599E-02_JPRB,.389E-02_JPRB,.401E-02_JPRB,.406E-02_JPRB,.396E-02_JPRB,&
+&.396E-02_JPRB,.401E-02_JPRB,.427E-02_JPRB,.420E-02_JPRB,.666E-02_JPRB,.517E-02_JPRB,.472E-02_JPRB,&
+&.434E-02_JPRB,.392E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 18  22.0
+ZAER (:,18,12) = (/&
+&.421E-02_JPRB,.420E-02_JPRB,.373E-02_JPRB,.362E-02_JPRB,.352E-02_JPRB,.339E-02_JPRB,.325E-02_JPRB,&
+&.313E-02_JPRB,.287E-02_JPRB,.280E-02_JPRB,.277E-02_JPRB,.279E-02_JPRB,.293E-02_JPRB,.304E-02_JPRB,&
+&.321E-02_JPRB,.309E-02_JPRB,.300E-02_JPRB,.288E-02_JPRB,.306E-02_JPRB,.358E-02_JPRB,.433E-02_JPRB,&
+&.819E-02_JPRB,.654E-02_JPRB,.824E-02_JPRB,.136E-01_JPRB,.155E-01_JPRB,.169E-01_JPRB,.134E-01_JPRB,&
+&.184E-01_JPRB,.152E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,&
+&.121E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.794E-02_JPRB,.854E-02_JPRB,.896E-02_JPRB,&
+&.950E-02_JPRB,.932E-02_JPRB,.144E-01_JPRB,.772E-02_JPRB,.109E-01_JPRB,.102E-01_JPRB,.956E-02_JPRB,&
+&.867E-02_JPRB,.815E-02_JPRB,.767E-02_JPRB,.732E-02_JPRB,.702E-02_JPRB,.678E-02_JPRB,.649E-02_JPRB,&
+&.651E-02_JPRB,.662E-02_JPRB,.702E-02_JPRB,.764E-02_JPRB,.475E-02_JPRB,.482E-02_JPRB,.443E-02_JPRB,&
+&.423E-02_JPRB,.403E-02_JPRB,.405E-02_JPRB,.654E-02_JPRB,.618E-02_JPRB,.518E-02_JPRB,.490E-02_JPRB,&
+&.467E-02_JPRB,.422E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 19  18.0
+ZAER (:,19,12) = (/&
+&.429E-02_JPRB,.428E-02_JPRB,.390E-02_JPRB,.382E-02_JPRB,.375E-02_JPRB,.359E-02_JPRB,.344E-02_JPRB,&
+&.332E-02_JPRB,.312E-02_JPRB,.311E-02_JPRB,.316E-02_JPRB,.335E-02_JPRB,.364E-02_JPRB,.380E-02_JPRB,&
+&.396E-02_JPRB,.370E-02_JPRB,.362E-02_JPRB,.357E-02_JPRB,.416E-02_JPRB,.490E-02_JPRB,.588E-02_JPRB,&
+&.868E-02_JPRB,.692E-02_JPRB,.878E-02_JPRB,.147E-01_JPRB,.166E-01_JPRB,.181E-01_JPRB,.162E-01_JPRB,&
+&.142E-01_JPRB,.210E-01_JPRB,.194E-01_JPRB,.195E-01_JPRB,.189E-01_JPRB,.159E-01_JPRB,.174E-01_JPRB,&
+&.193E-01_JPRB,.236E-01_JPRB,.220E-01_JPRB,.205E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.113E-01_JPRB,&
+&.121E-01_JPRB,.115E-01_JPRB,.172E-01_JPRB,.875E-02_JPRB,.118E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,&
+&.903E-02_JPRB,.851E-02_JPRB,.805E-02_JPRB,.785E-02_JPRB,.758E-02_JPRB,.736E-02_JPRB,.713E-02_JPRB,&
+&.736E-02_JPRB,.758E-02_JPRB,.799E-02_JPRB,.847E-02_JPRB,.873E-02_JPRB,.539E-02_JPRB,.485E-02_JPRB,&
+&.449E-02_JPRB,.404E-02_JPRB,.375E-02_JPRB,.589E-02_JPRB,.544E-02_JPRB,.489E-02_JPRB,.479E-02_JPRB,&
+&.473E-02_JPRB,.430E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 20  14.0
+ZAER (:,20,12) = (/&
+&.411E-02_JPRB,.410E-02_JPRB,.391E-02_JPRB,.388E-02_JPRB,.384E-02_JPRB,.371E-02_JPRB,.362E-02_JPRB,&
+&.357E-02_JPRB,.360E-02_JPRB,.375E-02_JPRB,.393E-02_JPRB,.435E-02_JPRB,.480E-02_JPRB,.504E-02_JPRB,&
+&.525E-02_JPRB,.506E-02_JPRB,.515E-02_JPRB,.540E-02_JPRB,.673E-02_JPRB,.780E-02_JPRB,.911E-02_JPRB,&
+&.715E-02_JPRB,.949E-02_JPRB,.121E-01_JPRB,.187E-01_JPRB,.198E-01_JPRB,.207E-01_JPRB,.191E-01_JPRB,&
+&.172E-01_JPRB,.263E-01_JPRB,.255E-01_JPRB,.261E-01_JPRB,.263E-01_JPRB,.257E-01_JPRB,.288E-01_JPRB,&
+&.315E-01_JPRB,.364E-01_JPRB,.328E-01_JPRB,.301E-01_JPRB,.159E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,&
+&.168E-01_JPRB,.139E-01_JPRB,.116E-01_JPRB,.151E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.983E-02_JPRB,&
+&.900E-02_JPRB,.859E-02_JPRB,.824E-02_JPRB,.816E-02_JPRB,.790E-02_JPRB,.771E-02_JPRB,.764E-02_JPRB,&
+&.858E-02_JPRB,.915E-02_JPRB,.952E-02_JPRB,.932E-02_JPRB,.934E-02_JPRB,.962E-02_JPRB,.534E-02_JPRB,&
+&.491E-02_JPRB,.707E-02_JPRB,.591E-02_JPRB,.534E-02_JPRB,.476E-02_JPRB,.441E-02_JPRB,.439E-02_JPRB,&
+&.441E-02_JPRB,.411E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 21  10.0
+ZAER (:,21,12) = (/&
+&.379E-02_JPRB,.379E-02_JPRB,.373E-02_JPRB,.371E-02_JPRB,.369E-02_JPRB,.373E-02_JPRB,.376E-02_JPRB,&
+&.384E-02_JPRB,.417E-02_JPRB,.456E-02_JPRB,.493E-02_JPRB,.561E-02_JPRB,.628E-02_JPRB,.668E-02_JPRB,&
+&.712E-02_JPRB,.745E-02_JPRB,.796E-02_JPRB,.881E-02_JPRB,.112E-01_JPRB,.128E-01_JPRB,.148E-01_JPRB,&
+&.116E-01_JPRB,.148E-01_JPRB,.183E-01_JPRB,.246E-01_JPRB,.250E-01_JPRB,.251E-01_JPRB,.222E-01_JPRB,&
+&.195E-01_JPRB,.295E-01_JPRB,.313E-01_JPRB,.342E-01_JPRB,.367E-01_JPRB,.410E-01_JPRB,.464E-01_JPRB,&
+&.495E-01_JPRB,.522E-01_JPRB,.492E-01_JPRB,.475E-01_JPRB,.274E-01_JPRB,.282E-01_JPRB,.271E-01_JPRB,&
+&.248E-01_JPRB,.175E-01_JPRB,.230E-01_JPRB,.166E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,.939E-02_JPRB,&
+&.877E-02_JPRB,.850E-02_JPRB,.829E-02_JPRB,.838E-02_JPRB,.810E-02_JPRB,.797E-02_JPRB,.828E-02_JPRB,&
+&.110E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,&
+&.950E-02_JPRB,.830E-02_JPRB,.596E-02_JPRB,.505E-02_JPRB,.426E-02_JPRB,.397E-02_JPRB,.393E-02_JPRB,&
+&.391E-02_JPRB,.380E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 22   6.0
+ZAER (:,22,12) = (/&
+&.366E-02_JPRB,.366E-02_JPRB,.362E-02_JPRB,.362E-02_JPRB,.365E-02_JPRB,.388E-02_JPRB,.402E-02_JPRB,&
+&.418E-02_JPRB,.465E-02_JPRB,.524E-02_JPRB,.577E-02_JPRB,.671E-02_JPRB,.751E-02_JPRB,.805E-02_JPRB,&
+&.876E-02_JPRB,.981E-02_JPRB,.109E-01_JPRB,.124E-01_JPRB,.159E-01_JPRB,.186E-01_JPRB,.130E-01_JPRB,&
+&.180E-01_JPRB,.215E-01_JPRB,.252E-01_JPRB,.287E-01_JPRB,.293E-01_JPRB,.296E-01_JPRB,.258E-01_JPRB,&
+&.216E-01_JPRB,.317E-01_JPRB,.366E-01_JPRB,.432E-01_JPRB,.490E-01_JPRB,.595E-01_JPRB,.703E-01_JPRB,&
+&.752E-01_JPRB,.766E-01_JPRB,.809E-01_JPRB,.834E-01_JPRB,.516E-01_JPRB,.503E-01_JPRB,.460E-01_JPRB,&
+&.388E-01_JPRB,.244E-01_JPRB,.312E-01_JPRB,.221E-01_JPRB,.138E-01_JPRB,.116E-01_JPRB,.970E-02_JPRB,&
+&.871E-02_JPRB,.867E-02_JPRB,.866E-02_JPRB,.885E-02_JPRB,.861E-02_JPRB,.858E-02_JPRB,.945E-02_JPRB,&
+&.133E-01_JPRB,.156E-01_JPRB,.167E-01_JPRB,.149E-01_JPRB,.137E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.631E-02_JPRB,.384E-02_JPRB,.509E-02_JPRB,.416E-02_JPRB,.377E-02_JPRB,.370E-02_JPRB,&
+&.365E-02_JPRB,.366E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 23   2.0
+ZAER (:,23,12) = (/&
+&.403E-02_JPRB,.402E-02_JPRB,.387E-02_JPRB,.388E-02_JPRB,.392E-02_JPRB,.420E-02_JPRB,.445E-02_JPRB,&
+&.467E-02_JPRB,.509E-02_JPRB,.572E-02_JPRB,.627E-02_JPRB,.723E-02_JPRB,.816E-02_JPRB,.878E-02_JPRB,&
+&.958E-02_JPRB,.110E-01_JPRB,.122E-01_JPRB,.140E-01_JPRB,.184E-01_JPRB,.224E-01_JPRB,.164E-01_JPRB,&
+&.246E-01_JPRB,.277E-01_JPRB,.306E-01_JPRB,.305E-01_JPRB,.311E-01_JPRB,.313E-01_JPRB,.270E-01_JPRB,&
+&.386E-01_JPRB,.351E-01_JPRB,.443E-01_JPRB,.584E-01_JPRB,.713E-01_JPRB,.951E-01_JPRB,.115E+00_JPRB,&
+&.124E+00_JPRB,.127E+00_JPRB,.135E+00_JPRB,.840E-01_JPRB,.872E-01_JPRB,.816E-01_JPRB,.736E-01_JPRB,&
+&.614E-01_JPRB,.369E-01_JPRB,.274E-01_JPRB,.308E-01_JPRB,.180E-01_JPRB,.149E-01_JPRB,.121E-01_JPRB,&
+&.106E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,.107E-01_JPRB,.120E-01_JPRB,&
+&.143E-01_JPRB,.956E-02_JPRB,.175E-01_JPRB,.101E-01_JPRB,.159E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,&
+&.746E-02_JPRB,.114E-01_JPRB,.660E-02_JPRB,.519E-02_JPRB,.430E-02_JPRB,.384E-02_JPRB,.382E-02_JPRB,&
+&.387E-02_JPRB,.402E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 24  -2.0
+ZAER (:,24,12) = (/&
+&.500E-02_JPRB,.499E-02_JPRB,.478E-02_JPRB,.468E-02_JPRB,.462E-02_JPRB,.478E-02_JPRB,.493E-02_JPRB,&
+&.509E-02_JPRB,.542E-02_JPRB,.597E-02_JPRB,.644E-02_JPRB,.722E-02_JPRB,.799E-02_JPRB,.859E-02_JPRB,&
+&.946E-02_JPRB,.110E-01_JPRB,.123E-01_JPRB,.143E-01_JPRB,.184E-01_JPRB,.222E-01_JPRB,.271E-01_JPRB,&
+&.269E-01_JPRB,.301E-01_JPRB,.329E-01_JPRB,.286E-01_JPRB,.276E-01_JPRB,.442E-01_JPRB,.397E-01_JPRB,&
+&.395E-01_JPRB,.419E-01_JPRB,.618E-01_JPRB,.918E-01_JPRB,.121E+00_JPRB,.179E+00_JPRB,.214E+00_JPRB,&
+&.226E+00_JPRB,.215E+00_JPRB,.209E+00_JPRB,.122E+00_JPRB,.117E+00_JPRB,.110E+00_JPRB,.986E-01_JPRB,&
+&.817E-01_JPRB,.504E-01_JPRB,.369E-01_JPRB,.236E-01_JPRB,.229E-01_JPRB,.201E-01_JPRB,.179E-01_JPRB,&
+&.173E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.182E-01_JPRB,.194E-01_JPRB,.205E-01_JPRB,.221E-01_JPRB,&
+&.131E-01_JPRB,.214E-01_JPRB,.204E-01_JPRB,.120E-01_JPRB,.184E-01_JPRB,.139E-01_JPRB,.118E-01_JPRB,&
+&.108E-01_JPRB,.987E-02_JPRB,.692E-02_JPRB,.577E-02_JPRB,.475E-02_JPRB,.426E-02_JPRB,.435E-02_JPRB,&
+&.453E-02_JPRB,.498E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 25  -6.0
+ZAER (:,25,12) = (/&
+&.612E-02_JPRB,.612E-02_JPRB,.605E-02_JPRB,.584E-02_JPRB,.566E-02_JPRB,.548E-02_JPRB,.543E-02_JPRB,&
+&.544E-02_JPRB,.565E-02_JPRB,.598E-02_JPRB,.629E-02_JPRB,.683E-02_JPRB,.737E-02_JPRB,.788E-02_JPRB,&
+&.874E-02_JPRB,.103E-01_JPRB,.116E-01_JPRB,.135E-01_JPRB,.171E-01_JPRB,.203E-01_JPRB,.241E-01_JPRB,&
+&.241E-01_JPRB,.261E-01_JPRB,.275E-01_JPRB,.213E-01_JPRB,.338E-01_JPRB,.323E-01_JPRB,.329E-01_JPRB,&
+&.394E-01_JPRB,.478E-01_JPRB,.780E-01_JPRB,.122E+00_JPRB,.164E+00_JPRB,.249E+00_JPRB,.178E+00_JPRB,&
+&.185E+00_JPRB,.168E+00_JPRB,.148E+00_JPRB,.134E+00_JPRB,.116E+00_JPRB,.108E+00_JPRB,.973E-01_JPRB,&
+&.816E-01_JPRB,.532E-01_JPRB,.392E-01_JPRB,.247E-01_JPRB,.263E-01_JPRB,.251E-01_JPRB,.247E-01_JPRB,&
+&.278E-01_JPRB,.290E-01_JPRB,.301E-01_JPRB,.330E-01_JPRB,.363E-01_JPRB,.394E-01_JPRB,.452E-01_JPRB,&
+&.416E-01_JPRB,.376E-01_JPRB,.289E-01_JPRB,.266E-01_JPRB,.232E-01_JPRB,.160E-01_JPRB,.120E-01_JPRB,&
+&.104E-01_JPRB,.944E-02_JPRB,.814E-02_JPRB,.729E-02_JPRB,.627E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,&
+&.571E-02_JPRB,.611E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 26 -10.0
+ZAER (:,26,12) = (/&
+&.745E-02_JPRB,.744E-02_JPRB,.728E-02_JPRB,.697E-02_JPRB,.669E-02_JPRB,.619E-02_JPRB,.598E-02_JPRB,&
+&.588E-02_JPRB,.598E-02_JPRB,.612E-02_JPRB,.624E-02_JPRB,.645E-02_JPRB,.675E-02_JPRB,.714E-02_JPRB,&
+&.792E-02_JPRB,.971E-02_JPRB,.114E-01_JPRB,.139E-01_JPRB,.168E-01_JPRB,.185E-01_JPRB,.204E-01_JPRB,&
+&.175E-01_JPRB,.176E-01_JPRB,.174E-01_JPRB,.212E-01_JPRB,.211E-01_JPRB,.213E-01_JPRB,.241E-01_JPRB,&
+&.322E-01_JPRB,.415E-01_JPRB,.691E-01_JPRB,.106E+00_JPRB,.141E+00_JPRB,.208E+00_JPRB,.153E+00_JPRB,&
+&.161E+00_JPRB,.149E+00_JPRB,.127E+00_JPRB,.111E+00_JPRB,.894E-01_JPRB,.797E-01_JPRB,.724E-01_JPRB,&
+&.630E-01_JPRB,.452E-01_JPRB,.347E-01_JPRB,.234E-01_JPRB,.172E-01_JPRB,.292E-01_JPRB,.304E-01_JPRB,&
+&.391E-01_JPRB,.434E-01_JPRB,.473E-01_JPRB,.505E-01_JPRB,.560E-01_JPRB,.620E-01_JPRB,.776E-01_JPRB,&
+&.677E-01_JPRB,.581E-01_JPRB,.390E-01_JPRB,.340E-01_JPRB,.293E-01_JPRB,.212E-01_JPRB,.149E-01_JPRB,&
+&.125E-01_JPRB,.108E-01_JPRB,.997E-02_JPRB,.932E-02_JPRB,.850E-02_JPRB,.764E-02_JPRB,.746E-02_JPRB,&
+&.734E-02_JPRB,.744E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 27 -14.0
+ZAER (:,27,12) = (/&
+&.887E-02_JPRB,.886E-02_JPRB,.840E-02_JPRB,.803E-02_JPRB,.767E-02_JPRB,.704E-02_JPRB,.659E-02_JPRB,&
+&.630E-02_JPRB,.622E-02_JPRB,.632E-02_JPRB,.635E-02_JPRB,.632E-02_JPRB,.646E-02_JPRB,.678E-02_JPRB,&
+&.750E-02_JPRB,.102E-01_JPRB,.125E-01_JPRB,.158E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.165E-01_JPRB,&
+&.184E-01_JPRB,.174E-01_JPRB,.160E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,.148E-01_JPRB,&
+&.210E-01_JPRB,.279E-01_JPRB,.467E-01_JPRB,.681E-01_JPRB,.877E-01_JPRB,.747E-01_JPRB,.930E-01_JPRB,&
+&.101E+00_JPRB,.102E+00_JPRB,.869E-01_JPRB,.747E-01_JPRB,.562E-01_JPRB,.468E-01_JPRB,.428E-01_JPRB,&
+&.392E-01_JPRB,.314E-01_JPRB,.261E-01_JPRB,.200E-01_JPRB,.295E-01_JPRB,.314E-01_JPRB,.340E-01_JPRB,&
+&.473E-01_JPRB,.547E-01_JPRB,.371E-01_JPRB,.719E-01_JPRB,.786E-01_JPRB,.864E-01_JPRB,.108E+00_JPRB,&
+&.570E-01_JPRB,.492E-01_JPRB,.550E-01_JPRB,.451E-01_JPRB,.381E-01_JPRB,.287E-01_JPRB,.203E-01_JPRB,&
+&.166E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.984E-02_JPRB,.946E-02_JPRB,&
+&.912E-02_JPRB,.888E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 28 -18.0
+ZAER (:,28,12) = (/&
+&.106E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.955E-02_JPRB,.911E-02_JPRB,.837E-02_JPRB,.752E-02_JPRB,&
+&.693E-02_JPRB,.647E-02_JPRB,.661E-02_JPRB,.669E-02_JPRB,.676E-02_JPRB,.687E-02_JPRB,.714E-02_JPRB,&
+&.777E-02_JPRB,.109E-01_JPRB,.800E-02_JPRB,.994E-02_JPRB,.986E-02_JPRB,.160E-01_JPRB,.153E-01_JPRB,&
+&.133E-01_JPRB,.118E-01_JPRB,.101E-01_JPRB,.836E-02_JPRB,.839E-02_JPRB,.849E-02_JPRB,.935E-02_JPRB,&
+&.126E-01_JPRB,.164E-01_JPRB,.276E-01_JPRB,.367E-01_JPRB,.460E-01_JPRB,.398E-01_JPRB,.508E-01_JPRB,&
+&.570E-01_JPRB,.622E-01_JPRB,.530E-01_JPRB,.451E-01_JPRB,.330E-01_JPRB,.264E-01_JPRB,.246E-01_JPRB,&
+&.237E-01_JPRB,.211E-01_JPRB,.318E-01_JPRB,.166E-01_JPRB,.172E-01_JPRB,.184E-01_JPRB,.332E-01_JPRB,&
+&.467E-01_JPRB,.574E-01_JPRB,.409E-01_JPRB,.551E-01_JPRB,.999E-01_JPRB,.109E+00_JPRB,.779E-01_JPRB,&
+&.748E-01_JPRB,.692E-01_JPRB,.877E-01_JPRB,.694E-01_JPRB,.569E-01_JPRB,.409E-01_JPRB,.294E-01_JPRB,&
+&.238E-01_JPRB,.184E-01_JPRB,.157E-01_JPRB,.147E-01_JPRB,.139E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
+&.111E-01_JPRB,.106E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 29 -22.0
+ZAER (:,29,12) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.986E-02_JPRB,.871E-02_JPRB,&
+&.784E-02_JPRB,.687E-02_JPRB,.699E-02_JPRB,.715E-02_JPRB,.754E-02_JPRB,.799E-02_JPRB,.828E-02_JPRB,&
+&.863E-02_JPRB,.669E-02_JPRB,.780E-02_JPRB,.154E-01_JPRB,.162E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,&
+&.128E-01_JPRB,.108E-01_JPRB,.889E-02_JPRB,.739E-02_JPRB,.718E-02_JPRB,.702E-02_JPRB,.731E-02_JPRB,&
+&.846E-02_JPRB,.101E-01_JPRB,.164E-01_JPRB,.207E-01_JPRB,.257E-01_JPRB,.227E-01_JPRB,.292E-01_JPRB,&
+&.334E-01_JPRB,.383E-01_JPRB,.337E-01_JPRB,.294E-01_JPRB,.224E-01_JPRB,.187E-01_JPRB,.178E-01_JPRB,&
+&.176E-01_JPRB,.169E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,.160E-01_JPRB,.170E-01_JPRB,.302E-01_JPRB,&
+&.411E-01_JPRB,.312E-01_JPRB,.379E-01_JPRB,.525E-01_JPRB,.570E-01_JPRB,.622E-01_JPRB,.768E-01_JPRB,&
+&.849E-01_JPRB,.875E-01_JPRB,.810E-01_JPRB,.107E+00_JPRB,.870E-01_JPRB,.581E-01_JPRB,.419E-01_JPRB,&
+&.338E-01_JPRB,.260E-01_JPRB,.211E-01_JPRB,.193E-01_JPRB,.177E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,&
+&.140E-01_JPRB,.128E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 30 -26.0
+ZAER (:,30,12) = (/&
+&.148E-01_JPRB,.147E-01_JPRB,.134E-01_JPRB,.127E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,.967E-02_JPRB,&
+&.872E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,.759E-02_JPRB,.834E-02_JPRB,.949E-02_JPRB,.995E-02_JPRB,&
+&.608E-02_JPRB,.665E-02_JPRB,.740E-02_JPRB,.144E-01_JPRB,.170E-01_JPRB,.178E-01_JPRB,.184E-01_JPRB,&
+&.146E-01_JPRB,.124E-01_JPRB,.100E-01_JPRB,.783E-02_JPRB,.738E-02_JPRB,.700E-02_JPRB,.706E-02_JPRB,&
+&.729E-02_JPRB,.787E-02_JPRB,.111E-01_JPRB,.141E-01_JPRB,.171E-01_JPRB,.239E-01_JPRB,.180E-01_JPRB,&
+&.206E-01_JPRB,.241E-01_JPRB,.231E-01_JPRB,.216E-01_JPRB,.187E-01_JPRB,.177E-01_JPRB,.175E-01_JPRB,&
+&.177E-01_JPRB,.168E-01_JPRB,.162E-01_JPRB,.155E-01_JPRB,.153E-01_JPRB,.262E-01_JPRB,.163E-01_JPRB,&
+&.210E-01_JPRB,.255E-01_JPRB,.299E-01_JPRB,.364E-01_JPRB,.388E-01_JPRB,.426E-01_JPRB,.573E-01_JPRB,&
+&.761E-01_JPRB,.889E-01_JPRB,.103E+00_JPRB,.863E-01_JPRB,.118E+00_JPRB,.746E-01_JPRB,.525E-01_JPRB,&
+&.422E-01_JPRB,.329E-01_JPRB,.264E-01_JPRB,.237E-01_JPRB,.212E-01_JPRB,.187E-01_JPRB,.178E-01_JPRB,&
+&.168E-01_JPRB,.148E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 31 -30.0
+ZAER (:,31,12) = (/&
+&.156E-01_JPRB,.155E-01_JPRB,.137E-01_JPRB,.129E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,&
+&.933E-02_JPRB,.814E-02_JPRB,.802E-02_JPRB,.822E-02_JPRB,.917E-02_JPRB,.107E-01_JPRB,.112E-01_JPRB,&
+&.665E-02_JPRB,.651E-02_JPRB,.721E-02_JPRB,.864E-02_JPRB,.112E-01_JPRB,.120E-01_JPRB,.210E-01_JPRB,&
+&.177E-01_JPRB,.150E-01_JPRB,.122E-01_JPRB,.894E-02_JPRB,.824E-02_JPRB,.762E-02_JPRB,.751E-02_JPRB,&
+&.738E-02_JPRB,.743E-02_JPRB,.855E-02_JPRB,.104E-01_JPRB,.122E-01_JPRB,.160E-01_JPRB,.119E-01_JPRB,&
+&.135E-01_JPRB,.158E-01_JPRB,.167E-01_JPRB,.173E-01_JPRB,.180E-01_JPRB,.198E-01_JPRB,.206E-01_JPRB,&
+&.215E-01_JPRB,.198E-01_JPRB,.186E-01_JPRB,.173E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,&
+&.181E-01_JPRB,.197E-01_JPRB,.210E-01_JPRB,.201E-01_JPRB,.202E-01_JPRB,.219E-01_JPRB,.320E-01_JPRB,&
+&.532E-01_JPRB,.710E-01_JPRB,.101E+00_JPRB,.922E-01_JPRB,.789E-01_JPRB,.825E-01_JPRB,.574E-01_JPRB,&
+&.458E-01_JPRB,.357E-01_JPRB,.285E-01_JPRB,.255E-01_JPRB,.227E-01_JPRB,.199E-01_JPRB,.188E-01_JPRB,&
+&.177E-01_JPRB,.156E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 32 -34.0
+ZAER (:,32,12) = (/&
+&.147E-01_JPRB,.147E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,&
+&.981E-02_JPRB,.905E-02_JPRB,.879E-02_JPRB,.890E-02_JPRB,.972E-02_JPRB,.107E-01_JPRB,.654E-02_JPRB,&
+&.621E-02_JPRB,.606E-02_JPRB,.688E-02_JPRB,.858E-02_JPRB,.119E-01_JPRB,.131E-01_JPRB,.141E-01_JPRB,&
+&.209E-01_JPRB,.180E-01_JPRB,.148E-01_JPRB,.102E-01_JPRB,.921E-02_JPRB,.829E-02_JPRB,.802E-02_JPRB,&
+&.772E-02_JPRB,.750E-02_JPRB,.744E-02_JPRB,.806E-02_JPRB,.891E-02_JPRB,.113E-01_JPRB,.144E-01_JPRB,&
+&.100E-01_JPRB,.118E-01_JPRB,.137E-01_JPRB,.160E-01_JPRB,.335E-01_JPRB,.412E-01_JPRB,.444E-01_JPRB,&
+&.472E-01_JPRB,.432E-01_JPRB,.240E-01_JPRB,.218E-01_JPRB,.201E-01_JPRB,.195E-01_JPRB,.188E-01_JPRB,&
+&.175E-01_JPRB,.166E-01_JPRB,.155E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,.162E-01_JPRB,&
+&.311E-01_JPRB,.458E-01_JPRB,.755E-01_JPRB,.766E-01_JPRB,.694E-01_JPRB,.781E-01_JPRB,.558E-01_JPRB,&
+&.268E-01_JPRB,.340E-01_JPRB,.265E-01_JPRB,.238E-01_JPRB,.215E-01_JPRB,.186E-01_JPRB,.174E-01_JPRB,&
+&.162E-01_JPRB,.148E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 33 -38.0
+ZAER (:,33,12) = (/&
+&.127E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.101E-01_JPRB,.960E-02_JPRB,.921E-02_JPRB,.917E-02_JPRB,.969E-02_JPRB,.586E-02_JPRB,.567E-02_JPRB,&
+&.515E-02_JPRB,.524E-02_JPRB,.609E-02_JPRB,.771E-02_JPRB,.114E-01_JPRB,.131E-01_JPRB,.147E-01_JPRB,&
+&.228E-01_JPRB,.200E-01_JPRB,.169E-01_JPRB,.112E-01_JPRB,.989E-02_JPRB,.868E-02_JPRB,.825E-02_JPRB,&
+&.792E-02_JPRB,.763E-02_JPRB,.713E-02_JPRB,.701E-02_JPRB,.721E-02_JPRB,.851E-02_JPRB,.114E-01_JPRB,&
+&.833E-02_JPRB,.180E-01_JPRB,.243E-01_JPRB,.319E-01_JPRB,.455E-01_JPRB,.572E-01_JPRB,.620E-01_JPRB,&
+&.397E-01_JPRB,.372E-01_JPRB,.345E-01_JPRB,.311E-01_JPRB,.274E-01_JPRB,.255E-01_JPRB,.236E-01_JPRB,&
+&.202E-01_JPRB,.182E-01_JPRB,.163E-01_JPRB,.132E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,&
+&.188E-01_JPRB,.266E-01_JPRB,.448E-01_JPRB,.503E-01_JPRB,.810E-01_JPRB,.625E-01_JPRB,.475E-01_JPRB,&
+&.389E-01_JPRB,.175E-01_JPRB,.223E-01_JPRB,.200E-01_JPRB,.182E-01_JPRB,.158E-01_JPRB,.147E-01_JPRB,&
+&.136E-01_JPRB,.127E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 34 -42.0
+ZAER (:,34,12) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.983E-02_JPRB,.964E-02_JPRB,.974E-02_JPRB,.991E-02_JPRB,&
+&.994E-02_JPRB,.952E-02_JPRB,.913E-02_JPRB,.900E-02_JPRB,.919E-02_JPRB,.522E-02_JPRB,.492E-02_JPRB,&
+&.439E-02_JPRB,.449E-02_JPRB,.515E-02_JPRB,.638E-02_JPRB,.964E-02_JPRB,.114E-01_JPRB,.133E-01_JPRB,&
+&.129E-01_JPRB,.193E-01_JPRB,.169E-01_JPRB,.114E-01_JPRB,.100E-01_JPRB,.882E-02_JPRB,.825E-02_JPRB,&
+&.789E-02_JPRB,.755E-02_JPRB,.695E-02_JPRB,.668E-02_JPRB,.667E-02_JPRB,.739E-02_JPRB,.108E-01_JPRB,&
+&.890E-02_JPRB,.139E-01_JPRB,.387E-01_JPRB,.523E-01_JPRB,.735E-01_JPRB,.517E-01_JPRB,.546E-01_JPRB,&
+&.949E-01_JPRB,.915E-01_JPRB,.509E-01_JPRB,.456E-01_JPRB,.620E-01_JPRB,.333E-01_JPRB,.296E-01_JPRB,&
+&.261E-01_JPRB,.243E-01_JPRB,.224E-01_JPRB,.189E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.142E-01_JPRB,&
+&.156E-01_JPRB,.180E-01_JPRB,.251E-01_JPRB,.287E-01_JPRB,.288E-01_JPRB,.249E-01_JPRB,.203E-01_JPRB,&
+&.288E-01_JPRB,.224E-01_JPRB,.174E-01_JPRB,.157E-01_JPRB,.145E-01_JPRB,.129E-01_JPRB,.120E-01_JPRB,&
+&.112E-01_JPRB,.104E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 35 -46.0
+ZAER (:,35,12) = (/&
+&.868E-02_JPRB,.868E-02_JPRB,.874E-02_JPRB,.881E-02_JPRB,.888E-02_JPRB,.910E-02_JPRB,.918E-02_JPRB,&
+&.921E-02_JPRB,.906E-02_JPRB,.875E-02_JPRB,.856E-02_JPRB,.838E-02_JPRB,.473E-02_JPRB,.449E-02_JPRB,&
+&.411E-02_JPRB,.410E-02_JPRB,.447E-02_JPRB,.521E-02_JPRB,.729E-02_JPRB,.858E-02_JPRB,.100E-01_JPRB,&
+&.101E-01_JPRB,.924E-02_JPRB,.828E-02_JPRB,.102E-01_JPRB,.945E-02_JPRB,.876E-02_JPRB,.835E-02_JPRB,&
+&.791E-02_JPRB,.752E-02_JPRB,.696E-02_JPRB,.687E-02_JPRB,.714E-02_JPRB,.870E-02_JPRB,.152E-01_JPRB,&
+&.230E-01_JPRB,.237E-01_JPRB,.415E-01_JPRB,.539E-01_JPRB,.705E-01_JPRB,.759E-01_JPRB,.766E-01_JPRB,&
+&.760E-01_JPRB,.732E-01_JPRB,.674E-01_JPRB,.598E-01_JPRB,.779E-01_JPRB,.415E-01_JPRB,.365E-01_JPRB,&
+&.333E-01_JPRB,.319E-01_JPRB,.305E-01_JPRB,.266E-01_JPRB,.240E-01_JPRB,.218E-01_JPRB,.182E-01_JPRB,&
+&.171E-01_JPRB,.166E-01_JPRB,.168E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.145E-01_JPRB,.125E-01_JPRB,&
+&.111E-01_JPRB,.156E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.101E-01_JPRB,.959E-02_JPRB,&
+&.910E-02_JPRB,.869E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 36 -50.0
+ZAER (:,36,12) = (/&
+&.749E-02_JPRB,.749E-02_JPRB,.764E-02_JPRB,.795E-02_JPRB,.824E-02_JPRB,.868E-02_JPRB,.866E-02_JPRB,&
+&.863E-02_JPRB,.854E-02_JPRB,.817E-02_JPRB,.785E-02_JPRB,.440E-02_JPRB,.420E-02_JPRB,.408E-02_JPRB,&
+&.394E-02_JPRB,.393E-02_JPRB,.405E-02_JPRB,.431E-02_JPRB,.517E-02_JPRB,.579E-02_JPRB,.652E-02_JPRB,&
+&.673E-02_JPRB,.635E-02_JPRB,.589E-02_JPRB,.848E-02_JPRB,.835E-02_JPRB,.825E-02_JPRB,.829E-02_JPRB,&
+&.810E-02_JPRB,.797E-02_JPRB,.796E-02_JPRB,.844E-02_JPRB,.955E-02_JPRB,.136E-01_JPRB,.249E-01_JPRB,&
+&.360E-01_JPRB,.341E-01_JPRB,.557E-01_JPRB,.697E-01_JPRB,.872E-01_JPRB,.890E-01_JPRB,.880E-01_JPRB,&
+&.856E-01_JPRB,.811E-01_JPRB,.746E-01_JPRB,.665E-01_JPRB,.541E-01_JPRB,.491E-01_JPRB,.442E-01_JPRB,&
+&.398E-01_JPRB,.383E-01_JPRB,.367E-01_JPRB,.326E-01_JPRB,.292E-01_JPRB,.262E-01_JPRB,.216E-01_JPRB,&
+&.192E-01_JPRB,.172E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.955E-02_JPRB,.825E-02_JPRB,.736E-02_JPRB,&
+&.684E-02_JPRB,.623E-02_JPRB,.959E-02_JPRB,.911E-02_JPRB,.856E-02_JPRB,.788E-02_JPRB,.769E-02_JPRB,&
+&.754E-02_JPRB,.749E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 37 -54.0
+ZAER (:,37,12) = (/&
+&.691E-02_JPRB,.692E-02_JPRB,.722E-02_JPRB,.755E-02_JPRB,.786E-02_JPRB,.838E-02_JPRB,.832E-02_JPRB,&
+&.824E-02_JPRB,.799E-02_JPRB,.753E-02_JPRB,.429E-02_JPRB,.392E-02_JPRB,.374E-02_JPRB,.367E-02_JPRB,&
+&.367E-02_JPRB,.373E-02_JPRB,.376E-02_JPRB,.378E-02_JPRB,.399E-02_JPRB,.421E-02_JPRB,.747E-02_JPRB,&
+&.470E-02_JPRB,.461E-02_JPRB,.449E-02_JPRB,.441E-02_JPRB,.757E-02_JPRB,.782E-02_JPRB,.847E-02_JPRB,&
+&.908E-02_JPRB,.971E-02_JPRB,.112E-01_JPRB,.129E-01_JPRB,.153E-01_JPRB,.219E-01_JPRB,.337E-01_JPRB,&
+&.260E-01_JPRB,.581E-01_JPRB,.783E-01_JPRB,.549E-01_JPRB,.647E-01_JPRB,.687E-01_JPRB,.717E-01_JPRB,&
+&.756E-01_JPRB,.791E-01_JPRB,.756E-01_JPRB,.701E-01_JPRB,.593E-01_JPRB,.546E-01_JPRB,.500E-01_JPRB,&
+&.437E-01_JPRB,.413E-01_JPRB,.389E-01_JPRB,.341E-01_JPRB,.305E-01_JPRB,.273E-01_JPRB,.219E-01_JPRB,&
+&.184E-01_JPRB,.156E-01_JPRB,.110E-01_JPRB,.811E-02_JPRB,.666E-02_JPRB,.560E-02_JPRB,.509E-02_JPRB,&
+&.482E-02_JPRB,.758E-02_JPRB,.740E-02_JPRB,.729E-02_JPRB,.717E-02_JPRB,.412E-02_JPRB,.678E-02_JPRB,&
+&.671E-02_JPRB,.690E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 38 -58.0
+ZAER (:,38,12) = (/&
+&.680E-02_JPRB,.681E-02_JPRB,.718E-02_JPRB,.745E-02_JPRB,.768E-02_JPRB,.791E-02_JPRB,.776E-02_JPRB,&
+&.760E-02_JPRB,.721E-02_JPRB,.410E-02_JPRB,.393E-02_JPRB,.368E-02_JPRB,.358E-02_JPRB,.355E-02_JPRB,&
+&.355E-02_JPRB,.355E-02_JPRB,.352E-02_JPRB,.348E-02_JPRB,.581E-02_JPRB,.591E-02_JPRB,.605E-02_JPRB,&
+&.386E-02_JPRB,.394E-02_JPRB,.401E-02_JPRB,.692E-02_JPRB,.735E-02_JPRB,.782E-02_JPRB,.934E-02_JPRB,&
+&.110E-01_JPRB,.127E-01_JPRB,.166E-01_JPRB,.197E-01_JPRB,.228E-01_JPRB,.295E-01_JPRB,.361E-01_JPRB,&
+&.398E-01_JPRB,.430E-01_JPRB,.449E-01_JPRB,.283E-01_JPRB,.307E-01_JPRB,.603E-01_JPRB,.419E-01_JPRB,&
+&.502E-01_JPRB,.610E-01_JPRB,.628E-01_JPRB,.634E-01_JPRB,.574E-01_JPRB,.539E-01_JPRB,.503E-01_JPRB,&
+&.433E-01_JPRB,.400E-01_JPRB,.369E-01_JPRB,.320E-01_JPRB,.284E-01_JPRB,.251E-01_JPRB,.195E-01_JPRB,&
+&.155E-01_JPRB,.125E-01_JPRB,.890E-02_JPRB,.706E-02_JPRB,.608E-02_JPRB,.527E-02_JPRB,.471E-02_JPRB,&
+&.443E-02_JPRB,.414E-02_JPRB,.672E-02_JPRB,.665E-02_JPRB,.659E-02_JPRB,.388E-02_JPRB,.648E-02_JPRB,&
+&.652E-02_JPRB,.679E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 39 -62.0
+ZAER (:,39,12) = (/&
+&.685E-02_JPRB,.685E-02_JPRB,.695E-02_JPRB,.700E-02_JPRB,.422E-02_JPRB,.415E-02_JPRB,.402E-02_JPRB,&
+&.392E-02_JPRB,.377E-02_JPRB,.371E-02_JPRB,.366E-02_JPRB,.361E-02_JPRB,.359E-02_JPRB,.357E-02_JPRB,&
+&.354E-02_JPRB,.342E-02_JPRB,.336E-02_JPRB,.329E-02_JPRB,.548E-02_JPRB,.557E-02_JPRB,.571E-02_JPRB,&
+&.360E-02_JPRB,.615E-02_JPRB,.629E-02_JPRB,.668E-02_JPRB,.724E-02_JPRB,.786E-02_JPRB,.601E-02_JPRB,&
+&.121E-01_JPRB,.142E-01_JPRB,.182E-01_JPRB,.211E-01_JPRB,.233E-01_JPRB,.260E-01_JPRB,.267E-01_JPRB,&
+&.267E-01_JPRB,.254E-01_JPRB,.258E-01_JPRB,.166E-01_JPRB,.191E-01_JPRB,.388E-01_JPRB,.263E-01_JPRB,&
+&.301E-01_JPRB,.366E-01_JPRB,.399E-01_JPRB,.432E-01_JPRB,.452E-01_JPRB,.448E-01_JPRB,.443E-01_JPRB,&
+&.403E-01_JPRB,.374E-01_JPRB,.345E-01_JPRB,.295E-01_JPRB,.256E-01_JPRB,.221E-01_JPRB,.167E-01_JPRB,&
+&.137E-01_JPRB,.116E-01_JPRB,.922E-02_JPRB,.782E-02_JPRB,.698E-02_JPRB,.606E-02_JPRB,.534E-02_JPRB,&
+&.499E-02_JPRB,.467E-02_JPRB,.455E-02_JPRB,.447E-02_JPRB,.439E-02_JPRB,.428E-02_JPRB,.422E-02_JPRB,&
+&.416E-02_JPRB,.685E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 40 -66.0
+ZAER (:,40,12) = (/&
+&.437E-02_JPRB,.437E-02_JPRB,.688E-02_JPRB,.669E-02_JPRB,.390E-02_JPRB,.370E-02_JPRB,.362E-02_JPRB,&
+&.358E-02_JPRB,.361E-02_JPRB,.367E-02_JPRB,.371E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.371E-02_JPRB,&
+&.366E-02_JPRB,.354E-02_JPRB,.346E-02_JPRB,.335E-02_JPRB,.332E-02_JPRB,.334E-02_JPRB,.565E-02_JPRB,&
+&.348E-02_JPRB,.353E-02_JPRB,.358E-02_JPRB,.631E-02_JPRB,.683E-02_JPRB,.444E-02_JPRB,.554E-02_JPRB,&
+&.651E-02_JPRB,.123E-01_JPRB,.150E-01_JPRB,.165E-01_JPRB,.175E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,&
+&.180E-01_JPRB,.185E-01_JPRB,.208E-01_JPRB,.233E-01_JPRB,.165E-01_JPRB,.198E-01_JPRB,.215E-01_JPRB,&
+&.233E-01_JPRB,.264E-01_JPRB,.287E-01_JPRB,.313E-01_JPRB,.354E-01_JPRB,.367E-01_JPRB,.378E-01_JPRB,&
+&.362E-01_JPRB,.338E-01_JPRB,.314E-01_JPRB,.262E-01_JPRB,.228E-01_JPRB,.198E-01_JPRB,.156E-01_JPRB,&
+&.135E-01_JPRB,.121E-01_JPRB,.105E-01_JPRB,.932E-02_JPRB,.853E-02_JPRB,.748E-02_JPRB,.670E-02_JPRB,&
+&.630E-02_JPRB,.592E-02_JPRB,.570E-02_JPRB,.557E-02_JPRB,.543E-02_JPRB,.514E-02_JPRB,.494E-02_JPRB,&
+&.472E-02_JPRB,.438E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 41 -70.0
+ZAER (:,41,12) = (/&
+&.887E-02_JPRB,.885E-02_JPRB,.825E-02_JPRB,.793E-02_JPRB,.458E-02_JPRB,.432E-02_JPRB,.424E-02_JPRB,&
+&.419E-02_JPRB,.698E-02_JPRB,.703E-02_JPRB,.423E-02_JPRB,.703E-02_JPRB,.694E-02_JPRB,.411E-02_JPRB,&
+&.402E-02_JPRB,.386E-02_JPRB,.623E-02_JPRB,.358E-02_JPRB,.345E-02_JPRB,.340E-02_JPRB,.335E-02_JPRB,&
+&.332E-02_JPRB,.331E-02_JPRB,.551E-02_JPRB,.570E-02_JPRB,.601E-02_JPRB,.381E-02_JPRB,.447E-02_JPRB,&
+&.504E-02_JPRB,.557E-02_JPRB,.650E-02_JPRB,.706E-02_JPRB,.124E-01_JPRB,.132E-01_JPRB,.139E-01_JPRB,&
+&.148E-01_JPRB,.164E-01_JPRB,.192E-01_JPRB,.214E-01_JPRB,.247E-01_JPRB,.286E-01_JPRB,.185E-01_JPRB,&
+&.200E-01_JPRB,.370E-01_JPRB,.398E-01_JPRB,.429E-01_JPRB,.486E-01_JPRB,.506E-01_JPRB,.525E-01_JPRB,&
+&.509E-01_JPRB,.286E-01_JPRB,.267E-01_JPRB,.223E-01_JPRB,.198E-01_JPRB,.177E-01_JPRB,.149E-01_JPRB,&
+&.136E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.929E-02_JPRB,.849E-02_JPRB,&
+&.803E-02_JPRB,.750E-02_JPRB,.709E-02_JPRB,.688E-02_JPRB,.665E-02_JPRB,.628E-02_JPRB,.603E-02_JPRB,&
+&.959E-02_JPRB,.533E-02_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 42 -74.0
+ZAER (:,42,12) = (/&
+&.116E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.959E-02_JPRB,.931E-02_JPRB,&
+&.909E-02_JPRB,.883E-02_JPRB,.864E-02_JPRB,.848E-02_JPRB,.820E-02_JPRB,.473E-02_JPRB,.459E-02_JPRB,&
+&.730E-02_JPRB,.689E-02_JPRB,.661E-02_JPRB,.627E-02_JPRB,.590E-02_JPRB,.343E-02_JPRB,.552E-02_JPRB,&
+&.532E-02_JPRB,.526E-02_JPRB,.521E-02_JPRB,.529E-02_JPRB,.327E-02_JPRB,.338E-02_JPRB,.374E-02_JPRB,&
+&.406E-02_JPRB,.436E-02_JPRB,.495E-02_JPRB,.540E-02_JPRB,.966E-02_JPRB,.107E-01_JPRB,.119E-01_JPRB,&
+&.130E-01_JPRB,.149E-01_JPRB,.175E-01_JPRB,.195E-01_JPRB,.222E-01_JPRB,.254E-01_JPRB,.272E-01_JPRB,&
+&.294E-01_JPRB,.323E-01_JPRB,.340E-01_JPRB,.359E-01_JPRB,.389E-01_JPRB,.398E-01_JPRB,.407E-01_JPRB,&
+&.394E-01_JPRB,.375E-01_JPRB,.355E-01_JPRB,.311E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.143E-01_JPRB,&
+&.134E-01_JPRB,.128E-01_JPRB,.120E-01_JPRB,.113E-01_JPRB,.181E-01_JPRB,.170E-01_JPRB,.159E-01_JPRB,&
+&.152E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,&
+&.122E-01_JPRB,.116E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 43 -78.0
+ZAER (:,43,12) = (/&
+&.135E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.102E-01_JPRB,.983E-02_JPRB,.953E-02_JPRB,.908E-02_JPRB,.865E-02_JPRB,.833E-02_JPRB,&
+&.791E-02_JPRB,.746E-02_JPRB,.717E-02_JPRB,.683E-02_JPRB,.387E-02_JPRB,.375E-02_JPRB,.363E-02_JPRB,&
+&.580E-02_JPRB,.571E-02_JPRB,.338E-02_JPRB,.339E-02_JPRB,.345E-02_JPRB,.351E-02_JPRB,.373E-02_JPRB,&
+&.394E-02_JPRB,.414E-02_JPRB,.458E-02_JPRB,.497E-02_JPRB,.886E-02_JPRB,.992E-02_JPRB,.110E-01_JPRB,&
+&.120E-01_JPRB,.135E-01_JPRB,.154E-01_JPRB,.167E-01_JPRB,.112E-01_JPRB,.208E-01_JPRB,.222E-01_JPRB,&
+&.237E-01_JPRB,.257E-01_JPRB,.267E-01_JPRB,.278E-01_JPRB,.292E-01_JPRB,.296E-01_JPRB,.300E-01_JPRB,&
+&.294E-01_JPRB,.287E-01_JPRB,.279E-01_JPRB,.261E-01_JPRB,.250E-01_JPRB,.240E-01_JPRB,.225E-01_JPRB,&
+&.216E-01_JPRB,.126E-01_JPRB,.200E-01_JPRB,.192E-01_JPRB,.187E-01_JPRB,.179E-01_JPRB,.171E-01_JPRB,&
+&.167E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,&
+&.142E-01_JPRB,.135E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 44 -82.0
+ZAER (:,44,12) = (/&
+&.140E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,&
+&.117E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.979E-02_JPRB,&
+&.947E-02_JPRB,.915E-02_JPRB,.896E-02_JPRB,.872E-02_JPRB,.846E-02_JPRB,.833E-02_JPRB,.492E-02_JPRB,&
+&.482E-02_JPRB,.479E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.481E-02_JPRB,.486E-02_JPRB,.500E-02_JPRB,&
+&.513E-02_JPRB,.526E-02_JPRB,.554E-02_JPRB,.580E-02_JPRB,.602E-02_JPRB,.107E-01_JPRB,.114E-01_JPRB,&
+&.120E-01_JPRB,.128E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.153E-01_JPRB,.165E-01_JPRB,.172E-01_JPRB,&
+&.180E-01_JPRB,.189E-01_JPRB,.195E-01_JPRB,.200E-01_JPRB,.207E-01_JPRB,.209E-01_JPRB,.212E-01_JPRB,&
+&.212E-01_JPRB,.211E-01_JPRB,.211E-01_JPRB,.207E-01_JPRB,.203E-01_JPRB,.200E-01_JPRB,.195E-01_JPRB,&
+&.192E-01_JPRB,.189E-01_JPRB,.184E-01_JPRB,.180E-01_JPRB,.178E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,&
+&.166E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,.157E-01_JPRB,.154E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,&
+&.145E-01_JPRB,.140E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 45 -86.0
+ZAER (:,45,12) = (/&
+&.138E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,&
+&.128E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,&
+&.115E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,&
+&.128E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,.138E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,&
+&.146E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,&
+&.158E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,&
+&.158E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,&
+&.150E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,.141E-01_JPRB,&
+&.140E-01_JPRB,.138E-01_JPRB/)
+!-- Organic Aerosol          month: 12 --- lat: 46 -90.0
+ZAER (:,46,12) = (/&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=12   
+  DO JI=1,46
+    DO JL=1,72
+      RAEROR(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'ORGANIC AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAEOR_12
Index: LMDZ5/branches/testing/libf/phymar/suecaesd.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd.F90	(revision 2160)
@@ -0,0 +1,61 @@
+SUBROUTINE SUECAESD
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+      call SUECAESD_01
+      call SUECAESD_02
+      call SUECAESD_03
+      call SUECAESD_04
+      call SUECAESD_05
+      call SUECAESD_06
+      call SUECAESD_07
+      call SUECAESD_08
+      call SUECAESD_09
+      call SUECAESD_10
+      call SUECAESD_11
+      call SUECAESD_12
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_01.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_01
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      January
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,1:1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  1  90.0
+ZAER (:, 1, 1) = (/&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.309E-03_JPRB,.309E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  2  86.0
+ZAER (:, 2, 1) = (/&
+&.369E-03_JPRB,.375E-03_JPRB,.378E-03_JPRB,.378E-03_JPRB,.375E-03_JPRB,.373E-03_JPRB,.372E-03_JPRB,&
+&.365E-03_JPRB,.356E-03_JPRB,.353E-03_JPRB,.347E-03_JPRB,.340E-03_JPRB,.332E-03_JPRB,.321E-03_JPRB,&
+&.312E-03_JPRB,.309E-03_JPRB,.310E-03_JPRB,.315E-03_JPRB,.319E-03_JPRB,.322E-03_JPRB,.326E-03_JPRB,&
+&.331E-03_JPRB,.336E-03_JPRB,.340E-03_JPRB,.346E-03_JPRB,.357E-03_JPRB,.369E-03_JPRB,.381E-03_JPRB,&
+&.393E-03_JPRB,.403E-03_JPRB,.412E-03_JPRB,.419E-03_JPRB,.427E-03_JPRB,.435E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.437E-03_JPRB,.434E-03_JPRB,.427E-03_JPRB,.417E-03_JPRB,.409E-03_JPRB,.399E-03_JPRB,&
+&.386E-03_JPRB,.376E-03_JPRB,.368E-03_JPRB,.360E-03_JPRB,.348E-03_JPRB,.337E-03_JPRB,.325E-03_JPRB,&
+&.311E-03_JPRB,.300E-03_JPRB,.291E-03_JPRB,.288E-03_JPRB,.290E-03_JPRB,.291E-03_JPRB,.291E-03_JPRB,&
+&.292E-03_JPRB,.293E-03_JPRB,.296E-03_JPRB,.299E-03_JPRB,.302E-03_JPRB,.304E-03_JPRB,.306E-03_JPRB,&
+&.309E-03_JPRB,.313E-03_JPRB,.317E-03_JPRB,.325E-03_JPRB,.333E-03_JPRB,.341E-03_JPRB,.349E-03_JPRB,&
+&.355E-03_JPRB,.362E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  3  82.0
+ZAER (:, 3, 1) = (/&
+&.425E-03_JPRB,.442E-03_JPRB,.456E-03_JPRB,.467E-03_JPRB,.478E-03_JPRB,.488E-03_JPRB,.491E-03_JPRB,&
+&.487E-03_JPRB,.482E-03_JPRB,.482E-03_JPRB,.476E-03_JPRB,.468E-03_JPRB,.454E-03_JPRB,.435E-03_JPRB,&
+&.408E-03_JPRB,.375E-03_JPRB,.353E-03_JPRB,.339E-03_JPRB,.338E-03_JPRB,.347E-03_JPRB,.352E-03_JPRB,&
+&.345E-03_JPRB,.337E-03_JPRB,.342E-03_JPRB,.352E-03_JPRB,.365E-03_JPRB,.382E-03_JPRB,.405E-03_JPRB,&
+&.422E-03_JPRB,.446E-03_JPRB,.466E-03_JPRB,.477E-03_JPRB,.489E-03_JPRB,.511E-03_JPRB,.530E-03_JPRB,&
+&.539E-03_JPRB,.541E-03_JPRB,.548E-03_JPRB,.559E-03_JPRB,.559E-03_JPRB,.550E-03_JPRB,.544E-03_JPRB,&
+&.532E-03_JPRB,.516E-03_JPRB,.494E-03_JPRB,.485E-03_JPRB,.478E-03_JPRB,.469E-03_JPRB,.460E-03_JPRB,&
+&.436E-03_JPRB,.400E-03_JPRB,.352E-03_JPRB,.317E-03_JPRB,.298E-03_JPRB,.288E-03_JPRB,.284E-03_JPRB,&
+&.285E-03_JPRB,.284E-03_JPRB,.279E-03_JPRB,.276E-03_JPRB,.279E-03_JPRB,.285E-03_JPRB,.296E-03_JPRB,&
+&.308E-03_JPRB,.323E-03_JPRB,.342E-03_JPRB,.356E-03_JPRB,.366E-03_JPRB,.372E-03_JPRB,.376E-03_JPRB,&
+&.384E-03_JPRB,.403E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  4  78.0
+ZAER (:, 4, 1) = (/&
+&.479E-03_JPRB,.496E-03_JPRB,.508E-03_JPRB,.537E-03_JPRB,.582E-03_JPRB,.599E-03_JPRB,.593E-03_JPRB,&
+&.562E-03_JPRB,.548E-03_JPRB,.530E-03_JPRB,.498E-03_JPRB,.477E-03_JPRB,.440E-03_JPRB,.408E-03_JPRB,&
+&.379E-03_JPRB,.343E-03_JPRB,.316E-03_JPRB,.307E-03_JPRB,.316E-03_JPRB,.329E-03_JPRB,.341E-03_JPRB,&
+&.346E-03_JPRB,.361E-03_JPRB,.386E-03_JPRB,.400E-03_JPRB,.423E-03_JPRB,.470E-03_JPRB,.517E-03_JPRB,&
+&.544E-03_JPRB,.578E-03_JPRB,.592E-03_JPRB,.584E-03_JPRB,.582E-03_JPRB,.583E-03_JPRB,.548E-03_JPRB,&
+&.522E-03_JPRB,.525E-03_JPRB,.553E-03_JPRB,.554E-03_JPRB,.539E-03_JPRB,.532E-03_JPRB,.539E-03_JPRB,&
+&.558E-03_JPRB,.576E-03_JPRB,.588E-03_JPRB,.588E-03_JPRB,.595E-03_JPRB,.600E-03_JPRB,.585E-03_JPRB,&
+&.564E-03_JPRB,.528E-03_JPRB,.452E-03_JPRB,.382E-03_JPRB,.327E-03_JPRB,.289E-03_JPRB,.268E-03_JPRB,&
+&.262E-03_JPRB,.266E-03_JPRB,.268E-03_JPRB,.266E-03_JPRB,.272E-03_JPRB,.280E-03_JPRB,.294E-03_JPRB,&
+&.310E-03_JPRB,.335E-03_JPRB,.362E-03_JPRB,.376E-03_JPRB,.389E-03_JPRB,.420E-03_JPRB,.439E-03_JPRB,&
+&.443E-03_JPRB,.462E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  5  74.0
+ZAER (:, 5, 1) = (/&
+&.545E-03_JPRB,.579E-03_JPRB,.620E-03_JPRB,.683E-03_JPRB,.712E-03_JPRB,.714E-03_JPRB,.697E-03_JPRB,&
+&.672E-03_JPRB,.631E-03_JPRB,.613E-03_JPRB,.577E-03_JPRB,.532E-03_JPRB,.476E-03_JPRB,.422E-03_JPRB,&
+&.380E-03_JPRB,.332E-03_JPRB,.292E-03_JPRB,.273E-03_JPRB,.276E-03_JPRB,.292E-03_JPRB,.341E-03_JPRB,&
+&.389E-03_JPRB,.442E-03_JPRB,.470E-03_JPRB,.493E-03_JPRB,.559E-03_JPRB,.677E-03_JPRB,.812E-03_JPRB,&
+&.911E-03_JPRB,.891E-03_JPRB,.831E-03_JPRB,.815E-03_JPRB,.764E-03_JPRB,.722E-03_JPRB,.687E-03_JPRB,&
+&.650E-03_JPRB,.590E-03_JPRB,.522E-03_JPRB,.480E-03_JPRB,.468E-03_JPRB,.438E-03_JPRB,.423E-03_JPRB,&
+&.445E-03_JPRB,.499E-03_JPRB,.561E-03_JPRB,.608E-03_JPRB,.656E-03_JPRB,.661E-03_JPRB,.602E-03_JPRB,&
+&.618E-03_JPRB,.647E-03_JPRB,.605E-03_JPRB,.539E-03_JPRB,.487E-03_JPRB,.438E-03_JPRB,.388E-03_JPRB,&
+&.341E-03_JPRB,.305E-03_JPRB,.292E-03_JPRB,.286E-03_JPRB,.275E-03_JPRB,.281E-03_JPRB,.302E-03_JPRB,&
+&.322E-03_JPRB,.350E-03_JPRB,.402E-03_JPRB,.460E-03_JPRB,.496E-03_JPRB,.508E-03_JPRB,.511E-03_JPRB,&
+&.510E-03_JPRB,.514E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  6  70.0
+ZAER (:, 6, 1) = (/&
+&.786E-03_JPRB,.776E-03_JPRB,.772E-03_JPRB,.818E-03_JPRB,.841E-03_JPRB,.844E-03_JPRB,.849E-03_JPRB,&
+&.847E-03_JPRB,.798E-03_JPRB,.765E-03_JPRB,.752E-03_JPRB,.728E-03_JPRB,.687E-03_JPRB,.613E-03_JPRB,&
+&.533E-03_JPRB,.444E-03_JPRB,.356E-03_JPRB,.318E-03_JPRB,.313E-03_JPRB,.366E-03_JPRB,.480E-03_JPRB,&
+&.539E-03_JPRB,.509E-03_JPRB,.523E-03_JPRB,.582E-03_JPRB,.660E-03_JPRB,.769E-03_JPRB,.949E-03_JPRB,&
+&.103E-02_JPRB,.810E-03_JPRB,.836E-03_JPRB,.927E-03_JPRB,.956E-03_JPRB,.912E-03_JPRB,.860E-03_JPRB,&
+&.785E-03_JPRB,.680E-03_JPRB,.580E-03_JPRB,.486E-03_JPRB,.445E-03_JPRB,.389E-03_JPRB,.360E-03_JPRB,&
+&.410E-03_JPRB,.502E-03_JPRB,.619E-03_JPRB,.681E-03_JPRB,.703E-03_JPRB,.670E-03_JPRB,.592E-03_JPRB,&
+&.607E-03_JPRB,.664E-03_JPRB,.708E-03_JPRB,.700E-03_JPRB,.637E-03_JPRB,.593E-03_JPRB,.559E-03_JPRB,&
+&.516E-03_JPRB,.473E-03_JPRB,.424E-03_JPRB,.383E-03_JPRB,.350E-03_JPRB,.342E-03_JPRB,.360E-03_JPRB,&
+&.400E-03_JPRB,.445E-03_JPRB,.485E-03_JPRB,.559E-03_JPRB,.633E-03_JPRB,.689E-03_JPRB,.719E-03_JPRB,&
+&.729E-03_JPRB,.756E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  7  66.0
+ZAER (:, 7, 1) = (/&
+&.111E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.986E-03_JPRB,&
+&.963E-03_JPRB,.949E-03_JPRB,.945E-03_JPRB,.952E-03_JPRB,.925E-03_JPRB,.858E-03_JPRB,.771E-03_JPRB,&
+&.677E-03_JPRB,.589E-03_JPRB,.523E-03_JPRB,.500E-03_JPRB,.477E-03_JPRB,.511E-03_JPRB,.742E-03_JPRB,&
+&.963E-03_JPRB,.817E-03_JPRB,.766E-03_JPRB,.928E-03_JPRB,.107E-02_JPRB,.108E-02_JPRB,.114E-02_JPRB,&
+&.127E-02_JPRB,.107E-02_JPRB,.101E-02_JPRB,.108E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.111E-02_JPRB,&
+&.956E-03_JPRB,.858E-03_JPRB,.836E-03_JPRB,.753E-03_JPRB,.678E-03_JPRB,.677E-03_JPRB,.678E-03_JPRB,&
+&.708E-03_JPRB,.754E-03_JPRB,.799E-03_JPRB,.824E-03_JPRB,.882E-03_JPRB,.896E-03_JPRB,.896E-03_JPRB,&
+&.915E-03_JPRB,.967E-03_JPRB,.101E-02_JPRB,.104E-02_JPRB,.981E-03_JPRB,.891E-03_JPRB,.806E-03_JPRB,&
+&.732E-03_JPRB,.694E-03_JPRB,.640E-03_JPRB,.578E-03_JPRB,.538E-03_JPRB,.536E-03_JPRB,.585E-03_JPRB,&
+&.608E-03_JPRB,.613E-03_JPRB,.622E-03_JPRB,.648E-03_JPRB,.722E-03_JPRB,.843E-03_JPRB,.936E-03_JPRB,&
+&.101E-02_JPRB,.108E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  8  62.0
+ZAER (:, 8, 1) = (/&
+&.136E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,.138E-02_JPRB,.130E-02_JPRB,.121E-02_JPRB,.112E-02_JPRB,&
+&.108E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.965E-03_JPRB,.858E-03_JPRB,&
+&.827E-03_JPRB,.768E-03_JPRB,.727E-03_JPRB,.693E-03_JPRB,.630E-03_JPRB,.609E-03_JPRB,.699E-03_JPRB,&
+&.122E-02_JPRB,.141E-02_JPRB,.147E-02_JPRB,.184E-02_JPRB,.200E-02_JPRB,.189E-02_JPRB,.174E-02_JPRB,&
+&.185E-02_JPRB,.185E-02_JPRB,.153E-02_JPRB,.137E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.154E-02_JPRB,&
+&.150E-02_JPRB,.134E-02_JPRB,.128E-02_JPRB,.121E-02_JPRB,.112E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,&
+&.991E-03_JPRB,.104E-02_JPRB,.115E-02_JPRB,.120E-02_JPRB,.125E-02_JPRB,.135E-02_JPRB,.141E-02_JPRB,&
+&.142E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.131E-02_JPRB,.119E-02_JPRB,&
+&.106E-02_JPRB,.953E-03_JPRB,.865E-03_JPRB,.784E-03_JPRB,.714E-03_JPRB,.668E-03_JPRB,.691E-03_JPRB,&
+&.744E-03_JPRB,.763E-03_JPRB,.764E-03_JPRB,.794E-03_JPRB,.879E-03_JPRB,.106E-02_JPRB,.117E-02_JPRB,&
+&.115E-02_JPRB,.124E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat:  9  58.0
+ZAER (:, 9, 1) = (/&
+&.183E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.178E-02_JPRB,.168E-02_JPRB,.156E-02_JPRB,.143E-02_JPRB,&
+&.130E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,.107E-02_JPRB,.102E-02_JPRB,&
+&.998E-03_JPRB,.912E-03_JPRB,.813E-03_JPRB,.750E-03_JPRB,.694E-03_JPRB,.652E-03_JPRB,.688E-03_JPRB,&
+&.130E-02_JPRB,.401E-02_JPRB,.515E-02_JPRB,.459E-02_JPRB,.368E-02_JPRB,.304E-02_JPRB,.296E-02_JPRB,&
+&.328E-02_JPRB,.321E-02_JPRB,.288E-02_JPRB,.235E-02_JPRB,.214E-02_JPRB,.204E-02_JPRB,.219E-02_JPRB,&
+&.214E-02_JPRB,.193E-02_JPRB,.174E-02_JPRB,.162E-02_JPRB,.148E-02_JPRB,.135E-02_JPRB,.129E-02_JPRB,&
+&.133E-02_JPRB,.157E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,&
+&.177E-02_JPRB,.169E-02_JPRB,.165E-02_JPRB,.161E-02_JPRB,.158E-02_JPRB,.153E-02_JPRB,.146E-02_JPRB,&
+&.137E-02_JPRB,.125E-02_JPRB,.113E-02_JPRB,.102E-02_JPRB,.923E-03_JPRB,.835E-03_JPRB,.786E-03_JPRB,&
+&.797E-03_JPRB,.816E-03_JPRB,.850E-03_JPRB,.955E-03_JPRB,.104E-02_JPRB,.113E-02_JPRB,.130E-02_JPRB,&
+&.147E-02_JPRB,.168E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 10  54.0
+ZAER (:,10, 1) = (/&
+&.246E-02_JPRB,.242E-02_JPRB,.231E-02_JPRB,.225E-02_JPRB,.222E-02_JPRB,.214E-02_JPRB,.198E-02_JPRB,&
+&.181E-02_JPRB,.166E-02_JPRB,.156E-02_JPRB,.147E-02_JPRB,.137E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,&
+&.116E-02_JPRB,.102E-02_JPRB,.906E-03_JPRB,.812E-03_JPRB,.748E-03_JPRB,.692E-03_JPRB,.671E-03_JPRB,&
+&.149E-02_JPRB,.144E-01_JPRB,.153E-01_JPRB,.112E-01_JPRB,.925E-02_JPRB,.816E-02_JPRB,.783E-02_JPRB,&
+&.762E-02_JPRB,.711E-02_JPRB,.631E-02_JPRB,.546E-02_JPRB,.462E-02_JPRB,.389E-02_JPRB,.349E-02_JPRB,&
+&.312E-02_JPRB,.276E-02_JPRB,.246E-02_JPRB,.225E-02_JPRB,.212E-02_JPRB,.210E-02_JPRB,.221E-02_JPRB,&
+&.246E-02_JPRB,.278E-02_JPRB,.285E-02_JPRB,.272E-02_JPRB,.264E-02_JPRB,.253E-02_JPRB,.242E-02_JPRB,&
+&.230E-02_JPRB,.218E-02_JPRB,.207E-02_JPRB,.193E-02_JPRB,.181E-02_JPRB,.173E-02_JPRB,.168E-02_JPRB,&
+&.160E-02_JPRB,.148E-02_JPRB,.138E-02_JPRB,.131E-02_JPRB,.122E-02_JPRB,.110E-02_JPRB,.996E-03_JPRB,&
+&.941E-03_JPRB,.969E-03_JPRB,.112E-02_JPRB,.127E-02_JPRB,.137E-02_JPRB,.157E-02_JPRB,.193E-02_JPRB,&
+&.224E-02_JPRB,.240E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 11  50.0
+ZAER (:,11, 1) = (/&
+&.309E-02_JPRB,.308E-02_JPRB,.305E-02_JPRB,.299E-02_JPRB,.290E-02_JPRB,.283E-02_JPRB,.274E-02_JPRB,&
+&.257E-02_JPRB,.231E-02_JPRB,.201E-02_JPRB,.178E-02_JPRB,.163E-02_JPRB,.148E-02_JPRB,.133E-02_JPRB,&
+&.123E-02_JPRB,.109E-02_JPRB,.962E-03_JPRB,.874E-03_JPRB,.816E-03_JPRB,.767E-03_JPRB,.795E-03_JPRB,&
+&.187E-02_JPRB,.164E-01_JPRB,.273E-01_JPRB,.315E-01_JPRB,.255E-01_JPRB,.210E-01_JPRB,.171E-01_JPRB,&
+&.137E-01_JPRB,.111E-01_JPRB,.919E-02_JPRB,.797E-02_JPRB,.709E-02_JPRB,.617E-02_JPRB,.533E-02_JPRB,&
+&.465E-02_JPRB,.421E-02_JPRB,.395E-02_JPRB,.384E-02_JPRB,.374E-02_JPRB,.368E-02_JPRB,.373E-02_JPRB,&
+&.387E-02_JPRB,.383E-02_JPRB,.352E-02_JPRB,.324E-02_JPRB,.292E-02_JPRB,.266E-02_JPRB,.263E-02_JPRB,&
+&.271E-02_JPRB,.274E-02_JPRB,.268E-02_JPRB,.251E-02_JPRB,.228E-02_JPRB,.213E-02_JPRB,.201E-02_JPRB,&
+&.191E-02_JPRB,.182E-02_JPRB,.172E-02_JPRB,.164E-02_JPRB,.160E-02_JPRB,.162E-02_JPRB,.171E-02_JPRB,&
+&.180E-02_JPRB,.191E-02_JPRB,.198E-02_JPRB,.209E-02_JPRB,.244E-02_JPRB,.302E-02_JPRB,.349E-02_JPRB,&
+&.344E-02_JPRB,.316E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 12  46.0
+ZAER (:,12, 1) = (/&
+&.427E-02_JPRB,.421E-02_JPRB,.408E-02_JPRB,.394E-02_JPRB,.381E-02_JPRB,.374E-02_JPRB,.372E-02_JPRB,&
+&.360E-02_JPRB,.336E-02_JPRB,.302E-02_JPRB,.256E-02_JPRB,.213E-02_JPRB,.183E-02_JPRB,.157E-02_JPRB,&
+&.137E-02_JPRB,.123E-02_JPRB,.111E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.145E-02_JPRB,&
+&.594E-02_JPRB,.359E-01_JPRB,.729E-01_JPRB,.609E-01_JPRB,.373E-01_JPRB,.254E-01_JPRB,.184E-01_JPRB,&
+&.145E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,.965E-02_JPRB,.894E-02_JPRB,.822E-02_JPRB,&
+&.751E-02_JPRB,.678E-02_JPRB,.615E-02_JPRB,.560E-02_JPRB,.519E-02_JPRB,.494E-02_JPRB,.482E-02_JPRB,&
+&.465E-02_JPRB,.442E-02_JPRB,.407E-02_JPRB,.368E-02_JPRB,.335E-02_JPRB,.314E-02_JPRB,.297E-02_JPRB,&
+&.291E-02_JPRB,.302E-02_JPRB,.298E-02_JPRB,.279E-02_JPRB,.252E-02_JPRB,.231E-02_JPRB,.226E-02_JPRB,&
+&.232E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.259E-02_JPRB,.334E-02_JPRB,.473E-02_JPRB,.502E-02_JPRB,&
+&.479E-02_JPRB,.420E-02_JPRB,.408E-02_JPRB,.499E-02_JPRB,.594E-02_JPRB,.618E-02_JPRB,.579E-02_JPRB,&
+&.512E-02_JPRB,.452E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 13  42.0
+ZAER (:,13, 1) = (/&
+&.574E-02_JPRB,.528E-02_JPRB,.496E-02_JPRB,.478E-02_JPRB,.473E-02_JPRB,.463E-02_JPRB,.459E-02_JPRB,&
+&.444E-02_JPRB,.425E-02_JPRB,.398E-02_JPRB,.358E-02_JPRB,.312E-02_JPRB,.263E-02_JPRB,.219E-02_JPRB,&
+&.187E-02_JPRB,.169E-02_JPRB,.159E-02_JPRB,.153E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.272E-02_JPRB,&
+&.956E-02_JPRB,.320E-01_JPRB,.725E-01_JPRB,.556E-01_JPRB,.296E-01_JPRB,.197E-01_JPRB,.148E-01_JPRB,&
+&.120E-01_JPRB,.101E-01_JPRB,.897E-02_JPRB,.856E-02_JPRB,.879E-02_JPRB,.916E-02_JPRB,.896E-02_JPRB,&
+&.851E-02_JPRB,.785E-02_JPRB,.706E-02_JPRB,.634E-02_JPRB,.578E-02_JPRB,.559E-02_JPRB,.569E-02_JPRB,&
+&.554E-02_JPRB,.523E-02_JPRB,.471E-02_JPRB,.420E-02_JPRB,.391E-02_JPRB,.370E-02_JPRB,.347E-02_JPRB,&
+&.328E-02_JPRB,.327E-02_JPRB,.317E-02_JPRB,.300E-02_JPRB,.274E-02_JPRB,.250E-02_JPRB,.258E-02_JPRB,&
+&.285E-02_JPRB,.301E-02_JPRB,.333E-02_JPRB,.457E-02_JPRB,.885E-02_JPRB,.113E-01_JPRB,.110E-01_JPRB,&
+&.108E-01_JPRB,.119E-01_JPRB,.133E-01_JPRB,.125E-01_JPRB,.110E-01_JPRB,.946E-02_JPRB,.797E-02_JPRB,&
+&.692E-02_JPRB,.623E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 14  38.0
+ZAER (:,14, 1) = (/&
+&.762E-02_JPRB,.656E-02_JPRB,.593E-02_JPRB,.523E-02_JPRB,.467E-02_JPRB,.408E-02_JPRB,.386E-02_JPRB,&
+&.387E-02_JPRB,.336E-02_JPRB,.298E-02_JPRB,.310E-02_JPRB,.321E-02_JPRB,.305E-02_JPRB,.285E-02_JPRB,&
+&.261E-02_JPRB,.244E-02_JPRB,.232E-02_JPRB,.221E-02_JPRB,.211E-02_JPRB,.219E-02_JPRB,.335E-02_JPRB,&
+&.881E-02_JPRB,.230E-01_JPRB,.474E-01_JPRB,.304E-01_JPRB,.176E-01_JPRB,.136E-01_JPRB,.111E-01_JPRB,&
+&.989E-02_JPRB,.890E-02_JPRB,.826E-02_JPRB,.807E-02_JPRB,.803E-02_JPRB,.780E-02_JPRB,.733E-02_JPRB,&
+&.723E-02_JPRB,.688E-02_JPRB,.632E-02_JPRB,.574E-02_JPRB,.558E-02_JPRB,.805E-02_JPRB,.982E-02_JPRB,&
+&.746E-02_JPRB,.587E-02_JPRB,.510E-02_JPRB,.460E-02_JPRB,.432E-02_JPRB,.402E-02_JPRB,.370E-02_JPRB,&
+&.347E-02_JPRB,.337E-02_JPRB,.331E-02_JPRB,.323E-02_JPRB,.306E-02_JPRB,.277E-02_JPRB,.272E-02_JPRB,&
+&.275E-02_JPRB,.306E-02_JPRB,.551E-02_JPRB,.125E-01_JPRB,.224E-01_JPRB,.228E-01_JPRB,.242E-01_JPRB,&
+&.256E-01_JPRB,.313E-01_JPRB,.301E-01_JPRB,.241E-01_JPRB,.194E-01_JPRB,.153E-01_JPRB,.122E-01_JPRB,&
+&.101E-01_JPRB,.872E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 15  34.0
+ZAER (:,15, 1) = (/&
+&.990E-02_JPRB,.881E-02_JPRB,.761E-02_JPRB,.616E-02_JPRB,.507E-02_JPRB,.447E-02_JPRB,.398E-02_JPRB,&
+&.362E-02_JPRB,.330E-02_JPRB,.309E-02_JPRB,.305E-02_JPRB,.308E-02_JPRB,.320E-02_JPRB,.327E-02_JPRB,&
+&.321E-02_JPRB,.308E-02_JPRB,.295E-02_JPRB,.281E-02_JPRB,.267E-02_JPRB,.275E-02_JPRB,.329E-02_JPRB,&
+&.598E-02_JPRB,.157E-01_JPRB,.275E-01_JPRB,.182E-01_JPRB,.125E-01_JPRB,.103E-01_JPRB,.881E-02_JPRB,&
+&.806E-02_JPRB,.743E-02_JPRB,.674E-02_JPRB,.641E-02_JPRB,.630E-02_JPRB,.588E-02_JPRB,.559E-02_JPRB,&
+&.581E-02_JPRB,.587E-02_JPRB,.561E-02_JPRB,.557E-02_JPRB,.705E-02_JPRB,.135E-01_JPRB,.181E-01_JPRB,&
+&.103E-01_JPRB,.699E-02_JPRB,.585E-02_JPRB,.503E-02_JPRB,.456E-02_JPRB,.424E-02_JPRB,.391E-02_JPRB,&
+&.369E-02_JPRB,.364E-02_JPRB,.362E-02_JPRB,.356E-02_JPRB,.336E-02_JPRB,.304E-02_JPRB,.285E-02_JPRB,&
+&.274E-02_JPRB,.406E-02_JPRB,.121E-01_JPRB,.293E-01_JPRB,.574E-01_JPRB,.850E-01_JPRB,.965E-01_JPRB,&
+&.811E-01_JPRB,.801E-01_JPRB,.592E-01_JPRB,.424E-01_JPRB,.268E-01_JPRB,.192E-01_JPRB,.160E-01_JPRB,&
+&.135E-01_JPRB,.113E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 16  30.0
+ZAER (:,16, 1) = (/&
+&.117E-01_JPRB,.106E-01_JPRB,.955E-02_JPRB,.813E-02_JPRB,.724E-02_JPRB,.661E-02_JPRB,.573E-02_JPRB,&
+&.512E-02_JPRB,.469E-02_JPRB,.427E-02_JPRB,.392E-02_JPRB,.366E-02_JPRB,.353E-02_JPRB,.343E-02_JPRB,&
+&.325E-02_JPRB,.313E-02_JPRB,.299E-02_JPRB,.280E-02_JPRB,.262E-02_JPRB,.258E-02_JPRB,.294E-02_JPRB,&
+&.507E-02_JPRB,.143E-01_JPRB,.187E-01_JPRB,.116E-01_JPRB,.804E-02_JPRB,.674E-02_JPRB,.550E-02_JPRB,&
+&.448E-02_JPRB,.396E-02_JPRB,.392E-02_JPRB,.410E-02_JPRB,.452E-02_JPRB,.485E-02_JPRB,.480E-02_JPRB,&
+&.486E-02_JPRB,.483E-02_JPRB,.498E-02_JPRB,.788E-02_JPRB,.164E-01_JPRB,.289E-01_JPRB,.225E-01_JPRB,&
+&.121E-01_JPRB,.802E-02_JPRB,.618E-02_JPRB,.552E-02_JPRB,.511E-02_JPRB,.471E-02_JPRB,.446E-02_JPRB,&
+&.418E-02_JPRB,.408E-02_JPRB,.401E-02_JPRB,.402E-02_JPRB,.381E-02_JPRB,.349E-02_JPRB,.323E-02_JPRB,&
+&.320E-02_JPRB,.884E-02_JPRB,.291E-01_JPRB,.631E-01_JPRB,.107E+00_JPRB,.161E+00_JPRB,.165E+00_JPRB,&
+&.127E+00_JPRB,.113E+00_JPRB,.847E-01_JPRB,.478E-01_JPRB,.290E-01_JPRB,.239E-01_JPRB,.197E-01_JPRB,&
+&.158E-01_JPRB,.133E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 17  26.0
+ZAER (:,17, 1) = (/&
+&.111E-01_JPRB,.968E-02_JPRB,.917E-02_JPRB,.865E-02_JPRB,.842E-02_JPRB,.788E-02_JPRB,.679E-02_JPRB,&
+&.582E-02_JPRB,.512E-02_JPRB,.440E-02_JPRB,.359E-02_JPRB,.291E-02_JPRB,.261E-02_JPRB,.256E-02_JPRB,&
+&.258E-02_JPRB,.258E-02_JPRB,.239E-02_JPRB,.213E-02_JPRB,.217E-02_JPRB,.269E-02_JPRB,.360E-02_JPRB,&
+&.609E-02_JPRB,.161E-01_JPRB,.210E-01_JPRB,.161E-01_JPRB,.958E-02_JPRB,.675E-02_JPRB,.480E-02_JPRB,&
+&.366E-02_JPRB,.307E-02_JPRB,.292E-02_JPRB,.300E-02_JPRB,.340E-02_JPRB,.376E-02_JPRB,.406E-02_JPRB,&
+&.443E-02_JPRB,.485E-02_JPRB,.630E-02_JPRB,.137E-01_JPRB,.270E-01_JPRB,.247E-01_JPRB,.182E-01_JPRB,&
+&.128E-01_JPRB,.926E-02_JPRB,.739E-02_JPRB,.766E-02_JPRB,.564E-02_JPRB,.489E-02_JPRB,.453E-02_JPRB,&
+&.410E-02_JPRB,.404E-02_JPRB,.429E-02_JPRB,.447E-02_JPRB,.449E-02_JPRB,.456E-02_JPRB,.482E-02_JPRB,&
+&.897E-02_JPRB,.278E-01_JPRB,.845E-01_JPRB,.147E+00_JPRB,.140E+00_JPRB,.124E+00_JPRB,.125E+00_JPRB,&
+&.116E+00_JPRB,.935E-01_JPRB,.592E-01_JPRB,.350E-01_JPRB,.279E-01_JPRB,.235E-01_JPRB,.190E-01_JPRB,&
+&.151E-01_JPRB,.127E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 18  22.0
+ZAER (:,18, 1) = (/&
+&.849E-02_JPRB,.715E-02_JPRB,.710E-02_JPRB,.687E-02_JPRB,.627E-02_JPRB,.536E-02_JPRB,.430E-02_JPRB,&
+&.330E-02_JPRB,.262E-02_JPRB,.211E-02_JPRB,.173E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.171E-02_JPRB,&
+&.199E-02_JPRB,.222E-02_JPRB,.232E-02_JPRB,.247E-02_JPRB,.311E-02_JPRB,.432E-02_JPRB,.585E-02_JPRB,&
+&.102E-01_JPRB,.229E-01_JPRB,.231E-01_JPRB,.246E-01_JPRB,.115E-01_JPRB,.641E-02_JPRB,.464E-02_JPRB,&
+&.383E-02_JPRB,.332E-02_JPRB,.319E-02_JPRB,.329E-02_JPRB,.360E-02_JPRB,.400E-02_JPRB,.478E-02_JPRB,&
+&.600E-02_JPRB,.767E-02_JPRB,.103E-01_JPRB,.177E-01_JPRB,.254E-01_JPRB,.191E-01_JPRB,.191E-01_JPRB,&
+&.129E-01_JPRB,.932E-02_JPRB,.675E-02_JPRB,.610E-02_JPRB,.477E-02_JPRB,.385E-02_JPRB,.342E-02_JPRB,&
+&.336E-02_JPRB,.367E-02_JPRB,.410E-02_JPRB,.475E-02_JPRB,.572E-02_JPRB,.786E-02_JPRB,.140E-01_JPRB,&
+&.312E-01_JPRB,.628E-01_JPRB,.122E+00_JPRB,.176E+00_JPRB,.102E+00_JPRB,.602E-01_JPRB,.586E-01_JPRB,&
+&.479E-01_JPRB,.371E-01_JPRB,.285E-01_JPRB,.242E-01_JPRB,.211E-01_JPRB,.182E-01_JPRB,.149E-01_JPRB,&
+&.121E-01_JPRB,.101E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 19  18.0
+ZAER (:,19, 1) = (/&
+&.444E-02_JPRB,.393E-02_JPRB,.364E-02_JPRB,.324E-02_JPRB,.257E-02_JPRB,.198E-02_JPRB,.160E-02_JPRB,&
+&.125E-02_JPRB,.935E-03_JPRB,.830E-03_JPRB,.856E-03_JPRB,.960E-03_JPRB,.118E-02_JPRB,.148E-02_JPRB,&
+&.187E-02_JPRB,.225E-02_JPRB,.254E-02_JPRB,.292E-02_JPRB,.376E-02_JPRB,.517E-02_JPRB,.777E-02_JPRB,&
+&.127E-01_JPRB,.166E-01_JPRB,.168E-01_JPRB,.178E-01_JPRB,.819E-02_JPRB,.421E-02_JPRB,.386E-02_JPRB,&
+&.384E-02_JPRB,.359E-02_JPRB,.382E-02_JPRB,.420E-02_JPRB,.501E-02_JPRB,.595E-02_JPRB,.670E-02_JPRB,&
+&.782E-02_JPRB,.956E-02_JPRB,.119E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,.100E-01_JPRB,.916E-02_JPRB,&
+&.727E-02_JPRB,.564E-02_JPRB,.422E-02_JPRB,.294E-02_JPRB,.270E-02_JPRB,.251E-02_JPRB,.258E-02_JPRB,&
+&.279E-02_JPRB,.317E-02_JPRB,.383E-02_JPRB,.512E-02_JPRB,.776E-02_JPRB,.145E-01_JPRB,.271E-01_JPRB,&
+&.455E-01_JPRB,.649E-01_JPRB,.806E-01_JPRB,.763E-01_JPRB,.438E-01_JPRB,.284E-01_JPRB,.241E-01_JPRB,&
+&.205E-01_JPRB,.168E-01_JPRB,.144E-01_JPRB,.153E-01_JPRB,.141E-01_JPRB,.123E-01_JPRB,.963E-02_JPRB,&
+&.718E-02_JPRB,.542E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 20  14.0
+ZAER (:,20, 1) = (/&
+&.156E-02_JPRB,.130E-02_JPRB,.108E-02_JPRB,.836E-03_JPRB,.660E-03_JPRB,.546E-03_JPRB,.481E-03_JPRB,&
+&.436E-03_JPRB,.445E-03_JPRB,.535E-03_JPRB,.700E-03_JPRB,.895E-03_JPRB,.112E-02_JPRB,.136E-02_JPRB,&
+&.166E-02_JPRB,.189E-02_JPRB,.216E-02_JPRB,.258E-02_JPRB,.327E-02_JPRB,.419E-02_JPRB,.539E-02_JPRB,&
+&.627E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.619E-02_JPRB,.434E-02_JPRB,.453E-02_JPRB,.627E-02_JPRB,&
+&.685E-02_JPRB,.534E-02_JPRB,.491E-02_JPRB,.510E-02_JPRB,.580E-02_JPRB,.623E-02_JPRB,.649E-02_JPRB,&
+&.712E-02_JPRB,.783E-02_JPRB,.822E-02_JPRB,.833E-02_JPRB,.516E-02_JPRB,.347E-02_JPRB,.314E-02_JPRB,&
+&.241E-02_JPRB,.204E-02_JPRB,.171E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.139E-02_JPRB,.164E-02_JPRB,&
+&.202E-02_JPRB,.251E-02_JPRB,.309E-02_JPRB,.403E-02_JPRB,.589E-02_JPRB,.928E-02_JPRB,.152E-01_JPRB,&
+&.228E-01_JPRB,.282E-01_JPRB,.276E-01_JPRB,.208E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.982E-02_JPRB,&
+&.748E-02_JPRB,.666E-02_JPRB,.710E-02_JPRB,.820E-02_JPRB,.802E-02_JPRB,.646E-02_JPRB,.474E-02_JPRB,&
+&.280E-02_JPRB,.189E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 21  10.0
+ZAER (:,21, 1) = (/&
+&.580E-03_JPRB,.427E-03_JPRB,.294E-03_JPRB,.220E-03_JPRB,.181E-03_JPRB,.195E-03_JPRB,.240E-03_JPRB,&
+&.287E-03_JPRB,.378E-03_JPRB,.500E-03_JPRB,.654E-03_JPRB,.832E-03_JPRB,.101E-02_JPRB,.119E-02_JPRB,&
+&.142E-02_JPRB,.162E-02_JPRB,.188E-02_JPRB,.231E-02_JPRB,.285E-02_JPRB,.325E-02_JPRB,.327E-02_JPRB,&
+&.305E-02_JPRB,.226E-02_JPRB,.224E-02_JPRB,.310E-02_JPRB,.402E-02_JPRB,.623E-02_JPRB,.114E-01_JPRB,&
+&.191E-01_JPRB,.150E-01_JPRB,.628E-02_JPRB,.532E-02_JPRB,.528E-02_JPRB,.514E-02_JPRB,.516E-02_JPRB,&
+&.545E-02_JPRB,.536E-02_JPRB,.475E-02_JPRB,.367E-02_JPRB,.216E-02_JPRB,.150E-02_JPRB,.128E-02_JPRB,&
+&.102E-02_JPRB,.835E-03_JPRB,.679E-03_JPRB,.592E-03_JPRB,.636E-03_JPRB,.779E-03_JPRB,.990E-03_JPRB,&
+&.122E-02_JPRB,.145E-02_JPRB,.160E-02_JPRB,.182E-02_JPRB,.229E-02_JPRB,.311E-02_JPRB,.488E-02_JPRB,&
+&.707E-02_JPRB,.756E-02_JPRB,.844E-02_JPRB,.728E-02_JPRB,.651E-02_JPRB,.556E-02_JPRB,.361E-02_JPRB,&
+&.265E-02_JPRB,.208E-02_JPRB,.230E-02_JPRB,.277E-02_JPRB,.307E-02_JPRB,.229E-02_JPRB,.166E-02_JPRB,&
+&.104E-02_JPRB,.730E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 22   6.0
+ZAER (:,22, 1) = (/&
+&.231E-03_JPRB,.157E-03_JPRB,.108E-03_JPRB,.109E-03_JPRB,.133E-03_JPRB,.178E-03_JPRB,.241E-03_JPRB,&
+&.313E-03_JPRB,.417E-03_JPRB,.555E-03_JPRB,.705E-03_JPRB,.861E-03_JPRB,.103E-02_JPRB,.121E-02_JPRB,&
+&.144E-02_JPRB,.170E-02_JPRB,.194E-02_JPRB,.231E-02_JPRB,.270E-02_JPRB,.328E-02_JPRB,.343E-02_JPRB,&
+&.252E-02_JPRB,.192E-02_JPRB,.246E-02_JPRB,.341E-02_JPRB,.489E-02_JPRB,.721E-02_JPRB,.120E-01_JPRB,&
+&.193E-01_JPRB,.151E-01_JPRB,.635E-02_JPRB,.500E-02_JPRB,.467E-02_JPRB,.458E-02_JPRB,.446E-02_JPRB,&
+&.413E-02_JPRB,.380E-02_JPRB,.357E-02_JPRB,.303E-02_JPRB,.247E-02_JPRB,.207E-02_JPRB,.198E-02_JPRB,&
+&.179E-02_JPRB,.144E-02_JPRB,.101E-02_JPRB,.658E-03_JPRB,.591E-03_JPRB,.571E-03_JPRB,.552E-03_JPRB,&
+&.543E-03_JPRB,.513E-03_JPRB,.524E-03_JPRB,.572E-03_JPRB,.646E-03_JPRB,.798E-03_JPRB,.107E-02_JPRB,&
+&.135E-02_JPRB,.164E-02_JPRB,.218E-02_JPRB,.200E-02_JPRB,.192E-02_JPRB,.157E-02_JPRB,.880E-03_JPRB,&
+&.550E-03_JPRB,.507E-03_JPRB,.568E-03_JPRB,.674E-03_JPRB,.696E-03_JPRB,.434E-03_JPRB,.350E-03_JPRB,&
+&.304E-03_JPRB,.262E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 23   2.0
+ZAER (:,23, 1) = (/&
+&.137E-03_JPRB,.114E-03_JPRB,.100E-03_JPRB,.110E-03_JPRB,.142E-03_JPRB,.190E-03_JPRB,.250E-03_JPRB,&
+&.317E-03_JPRB,.435E-03_JPRB,.595E-03_JPRB,.747E-03_JPRB,.894E-03_JPRB,.106E-02_JPRB,.130E-02_JPRB,&
+&.169E-02_JPRB,.217E-02_JPRB,.275E-02_JPRB,.322E-02_JPRB,.376E-02_JPRB,.506E-02_JPRB,.804E-02_JPRB,&
+&.487E-02_JPRB,.383E-02_JPRB,.449E-02_JPRB,.535E-02_JPRB,.622E-02_JPRB,.766E-02_JPRB,.105E-01_JPRB,&
+&.108E-01_JPRB,.799E-02_JPRB,.652E-02_JPRB,.613E-02_JPRB,.618E-02_JPRB,.636E-02_JPRB,.645E-02_JPRB,&
+&.652E-02_JPRB,.651E-02_JPRB,.652E-02_JPRB,.629E-02_JPRB,.612E-02_JPRB,.629E-02_JPRB,.642E-02_JPRB,&
+&.604E-02_JPRB,.556E-02_JPRB,.448E-02_JPRB,.221E-02_JPRB,.110E-02_JPRB,.929E-03_JPRB,.740E-03_JPRB,&
+&.608E-03_JPRB,.482E-03_JPRB,.378E-03_JPRB,.285E-03_JPRB,.218E-03_JPRB,.230E-03_JPRB,.290E-03_JPRB,&
+&.362E-03_JPRB,.386E-03_JPRB,.433E-03_JPRB,.452E-03_JPRB,.440E-03_JPRB,.322E-03_JPRB,.181E-03_JPRB,&
+&.130E-03_JPRB,.132E-03_JPRB,.136E-03_JPRB,.154E-03_JPRB,.172E-03_JPRB,.123E-03_JPRB,.127E-03_JPRB,&
+&.141E-03_JPRB,.143E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 24  -2.0
+ZAER (:,24, 1) = (/&
+&.230E-03_JPRB,.276E-03_JPRB,.316E-03_JPRB,.344E-03_JPRB,.378E-03_JPRB,.441E-03_JPRB,.514E-03_JPRB,&
+&.603E-03_JPRB,.712E-03_JPRB,.926E-03_JPRB,.123E-02_JPRB,.152E-02_JPRB,.177E-02_JPRB,.198E-02_JPRB,&
+&.257E-02_JPRB,.359E-02_JPRB,.481E-02_JPRB,.555E-02_JPRB,.661E-02_JPRB,.768E-02_JPRB,.935E-02_JPRB,&
+&.100E-01_JPRB,.107E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,&
+&.122E-01_JPRB,.117E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.108E-01_JPRB,.120E-01_JPRB,&
+&.133E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.169E-01_JPRB,.190E-01_JPRB,.209E-01_JPRB,&
+&.221E-01_JPRB,.228E-01_JPRB,.235E-01_JPRB,.187E-01_JPRB,.723E-02_JPRB,.281E-02_JPRB,.233E-02_JPRB,&
+&.206E-02_JPRB,.175E-02_JPRB,.139E-02_JPRB,.105E-02_JPRB,.717E-03_JPRB,.451E-03_JPRB,.331E-03_JPRB,&
+&.233E-03_JPRB,.137E-03_JPRB,.136E-03_JPRB,.132E-03_JPRB,.107E-03_JPRB,.714E-04_JPRB,.619E-04_JPRB,&
+&.675E-04_JPRB,.794E-04_JPRB,.901E-04_JPRB,.109E-03_JPRB,.130E-03_JPRB,.139E-03_JPRB,.156E-03_JPRB,&
+&.186E-03_JPRB,.205E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 25  -6.0
+ZAER (:,25, 1) = (/&
+&.443E-03_JPRB,.509E-03_JPRB,.591E-03_JPRB,.706E-03_JPRB,.839E-03_JPRB,.983E-03_JPRB,.111E-02_JPRB,&
+&.123E-02_JPRB,.141E-02_JPRB,.173E-02_JPRB,.223E-02_JPRB,.280E-02_JPRB,.355E-02_JPRB,.420E-02_JPRB,&
+&.534E-02_JPRB,.718E-02_JPRB,.916E-02_JPRB,.109E-01_JPRB,.131E-01_JPRB,.152E-01_JPRB,.174E-01_JPRB,&
+&.200E-01_JPRB,.221E-01_JPRB,.238E-01_JPRB,.253E-01_JPRB,.261E-01_JPRB,.269E-01_JPRB,.279E-01_JPRB,&
+&.293E-01_JPRB,.300E-01_JPRB,.308E-01_JPRB,.294E-01_JPRB,.254E-01_JPRB,.244E-01_JPRB,.272E-01_JPRB,&
+&.307E-01_JPRB,.326E-01_JPRB,.326E-01_JPRB,.331E-01_JPRB,.340E-01_JPRB,.360E-01_JPRB,.386E-01_JPRB,&
+&.410E-01_JPRB,.451E-01_JPRB,.492E-01_JPRB,.539E-01_JPRB,.328E-01_JPRB,.697E-02_JPRB,.599E-02_JPRB,&
+&.580E-02_JPRB,.539E-02_JPRB,.459E-02_JPRB,.374E-02_JPRB,.298E-02_JPRB,.212E-02_JPRB,.158E-02_JPRB,&
+&.946E-03_JPRB,.261E-03_JPRB,.124E-03_JPRB,.106E-03_JPRB,.107E-03_JPRB,.115E-03_JPRB,.122E-03_JPRB,&
+&.148E-03_JPRB,.171E-03_JPRB,.184E-03_JPRB,.205E-03_JPRB,.233E-03_JPRB,.254E-03_JPRB,.281E-03_JPRB,&
+&.335E-03_JPRB,.389E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 26 -10.0
+ZAER (:,26, 1) = (/&
+&.865E-03_JPRB,.931E-03_JPRB,.978E-03_JPRB,.105E-02_JPRB,.122E-02_JPRB,.150E-02_JPRB,.179E-02_JPRB,&
+&.198E-02_JPRB,.229E-02_JPRB,.276E-02_JPRB,.343E-02_JPRB,.425E-02_JPRB,.520E-02_JPRB,.686E-02_JPRB,&
+&.893E-02_JPRB,.111E-01_JPRB,.132E-01_JPRB,.152E-01_JPRB,.178E-01_JPRB,.211E-01_JPRB,.249E-01_JPRB,&
+&.294E-01_JPRB,.332E-01_JPRB,.362E-01_JPRB,.392E-01_JPRB,.433E-01_JPRB,.484E-01_JPRB,.542E-01_JPRB,&
+&.602E-01_JPRB,.641E-01_JPRB,.687E-01_JPRB,.737E-01_JPRB,.732E-01_JPRB,.709E-01_JPRB,.758E-01_JPRB,&
+&.821E-01_JPRB,.884E-01_JPRB,.829E-01_JPRB,.791E-01_JPRB,.755E-01_JPRB,.659E-01_JPRB,.638E-01_JPRB,&
+&.605E-01_JPRB,.570E-01_JPRB,.619E-01_JPRB,.615E-01_JPRB,.353E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,&
+&.126E-01_JPRB,.120E-01_JPRB,.109E-01_JPRB,.964E-02_JPRB,.825E-02_JPRB,.636E-02_JPRB,.501E-02_JPRB,&
+&.381E-02_JPRB,.225E-02_JPRB,.842E-03_JPRB,.223E-03_JPRB,.179E-03_JPRB,.248E-03_JPRB,.330E-03_JPRB,&
+&.409E-03_JPRB,.459E-03_JPRB,.479E-03_JPRB,.520E-03_JPRB,.555E-03_JPRB,.579E-03_JPRB,.612E-03_JPRB,&
+&.668E-03_JPRB,.762E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 27 -14.0
+ZAER (:,27, 1) = (/&
+&.148E-02_JPRB,.169E-02_JPRB,.182E-02_JPRB,.195E-02_JPRB,.212E-02_JPRB,.236E-02_JPRB,.261E-02_JPRB,&
+&.272E-02_JPRB,.295E-02_JPRB,.361E-02_JPRB,.425E-02_JPRB,.470E-02_JPRB,.525E-02_JPRB,.687E-02_JPRB,&
+&.926E-02_JPRB,.118E-01_JPRB,.138E-01_JPRB,.148E-01_JPRB,.160E-01_JPRB,.187E-01_JPRB,.232E-01_JPRB,&
+&.287E-01_JPRB,.333E-01_JPRB,.377E-01_JPRB,.434E-01_JPRB,.503E-01_JPRB,.566E-01_JPRB,.637E-01_JPRB,&
+&.705E-01_JPRB,.773E-01_JPRB,.858E-01_JPRB,.971E-01_JPRB,.110E+00_JPRB,.121E+00_JPRB,.130E+00_JPRB,&
+&.139E+00_JPRB,.136E+00_JPRB,.110E+00_JPRB,.953E-01_JPRB,.101E+00_JPRB,.890E-01_JPRB,.790E-01_JPRB,&
+&.797E-01_JPRB,.747E-01_JPRB,.642E-01_JPRB,.602E-01_JPRB,.444E-01_JPRB,.257E-01_JPRB,.235E-01_JPRB,&
+&.220E-01_JPRB,.207E-01_JPRB,.191E-01_JPRB,.169E-01_JPRB,.150E-01_JPRB,.126E-01_JPRB,.973E-02_JPRB,&
+&.796E-02_JPRB,.573E-02_JPRB,.217E-02_JPRB,.453E-03_JPRB,.376E-03_JPRB,.557E-03_JPRB,.755E-03_JPRB,&
+&.962E-03_JPRB,.107E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.111E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,&
+&.122E-02_JPRB,.129E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 28 -18.0
+ZAER (:,28, 1) = (/&
+&.207E-02_JPRB,.239E-02_JPRB,.267E-02_JPRB,.289E-02_JPRB,.318E-02_JPRB,.354E-02_JPRB,.386E-02_JPRB,&
+&.408E-02_JPRB,.431E-02_JPRB,.474E-02_JPRB,.540E-02_JPRB,.582E-02_JPRB,.613E-02_JPRB,.681E-02_JPRB,&
+&.876E-02_JPRB,.124E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,.154E-01_JPRB,.167E-01_JPRB,.184E-01_JPRB,&
+&.235E-01_JPRB,.295E-01_JPRB,.342E-01_JPRB,.385E-01_JPRB,.440E-01_JPRB,.505E-01_JPRB,.562E-01_JPRB,&
+&.612E-01_JPRB,.680E-01_JPRB,.788E-01_JPRB,.928E-01_JPRB,.110E+00_JPRB,.120E+00_JPRB,.113E+00_JPRB,&
+&.104E+00_JPRB,.868E-01_JPRB,.764E-01_JPRB,.740E-01_JPRB,.736E-01_JPRB,.672E-01_JPRB,.686E-01_JPRB,&
+&.817E-01_JPRB,.870E-01_JPRB,.989E-01_JPRB,.120E+00_JPRB,.106E+00_JPRB,.501E-01_JPRB,.344E-01_JPRB,&
+&.321E-01_JPRB,.315E-01_JPRB,.292E-01_JPRB,.252E-01_JPRB,.219E-01_JPRB,.195E-01_JPRB,.163E-01_JPRB,&
+&.136E-01_JPRB,.954E-02_JPRB,.527E-02_JPRB,.172E-02_JPRB,.108E-02_JPRB,.142E-02_JPRB,.181E-02_JPRB,&
+&.230E-02_JPRB,.266E-02_JPRB,.251E-02_JPRB,.216E-02_JPRB,.193E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,&
+&.186E-02_JPRB,.188E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 29 -22.0
+ZAER (:,29, 1) = (/&
+&.260E-02_JPRB,.266E-02_JPRB,.283E-02_JPRB,.310E-02_JPRB,.355E-02_JPRB,.404E-02_JPRB,.431E-02_JPRB,&
+&.452E-02_JPRB,.510E-02_JPRB,.603E-02_JPRB,.677E-02_JPRB,.756E-02_JPRB,.862E-02_JPRB,.930E-02_JPRB,&
+&.106E-01_JPRB,.140E-01_JPRB,.164E-01_JPRB,.143E-01_JPRB,.136E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,&
+&.145E-01_JPRB,.203E-01_JPRB,.254E-01_JPRB,.275E-01_JPRB,.320E-01_JPRB,.397E-01_JPRB,.433E-01_JPRB,&
+&.461E-01_JPRB,.520E-01_JPRB,.613E-01_JPRB,.732E-01_JPRB,.921E-01_JPRB,.108E+00_JPRB,.110E+00_JPRB,&
+&.103E+00_JPRB,.823E-01_JPRB,.761E-01_JPRB,.756E-01_JPRB,.701E-01_JPRB,.560E-01_JPRB,.488E-01_JPRB,&
+&.613E-01_JPRB,.781E-01_JPRB,.102E+00_JPRB,.148E+00_JPRB,.123E+00_JPRB,.760E-01_JPRB,.445E-01_JPRB,&
+&.400E-01_JPRB,.372E-01_JPRB,.323E-01_JPRB,.294E-01_JPRB,.273E-01_JPRB,.236E-01_JPRB,.204E-01_JPRB,&
+&.171E-01_JPRB,.125E-01_JPRB,.896E-02_JPRB,.587E-02_JPRB,.368E-02_JPRB,.339E-02_JPRB,.361E-02_JPRB,&
+&.381E-02_JPRB,.427E-02_JPRB,.457E-02_JPRB,.471E-02_JPRB,.444E-02_JPRB,.369E-02_JPRB,.283E-02_JPRB,&
+&.256E-02_JPRB,.255E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 30 -26.0
+ZAER (:,30, 1) = (/&
+&.375E-02_JPRB,.338E-02_JPRB,.319E-02_JPRB,.341E-02_JPRB,.388E-02_JPRB,.420E-02_JPRB,.427E-02_JPRB,&
+&.447E-02_JPRB,.487E-02_JPRB,.593E-02_JPRB,.709E-02_JPRB,.854E-02_JPRB,.115E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.172E-01_JPRB,.267E-01_JPRB,.174E-01_JPRB,.825E-02_JPRB,.680E-02_JPRB,.698E-02_JPRB,&
+&.824E-02_JPRB,.112E-01_JPRB,.163E-01_JPRB,.191E-01_JPRB,.230E-01_JPRB,.307E-01_JPRB,.329E-01_JPRB,&
+&.309E-01_JPRB,.326E-01_JPRB,.413E-01_JPRB,.522E-01_JPRB,.688E-01_JPRB,.842E-01_JPRB,.974E-01_JPRB,&
+&.115E+00_JPRB,.107E+00_JPRB,.847E-01_JPRB,.757E-01_JPRB,.702E-01_JPRB,.478E-01_JPRB,.285E-01_JPRB,&
+&.281E-01_JPRB,.472E-01_JPRB,.827E-01_JPRB,.115E+00_JPRB,.103E+00_JPRB,.736E-01_JPRB,.542E-01_JPRB,&
+&.445E-01_JPRB,.372E-01_JPRB,.324E-01_JPRB,.307E-01_JPRB,.295E-01_JPRB,.239E-01_JPRB,.194E-01_JPRB,&
+&.180E-01_JPRB,.156E-01_JPRB,.126E-01_JPRB,.103E-01_JPRB,.832E-02_JPRB,.695E-02_JPRB,.642E-02_JPRB,&
+&.639E-02_JPRB,.690E-02_JPRB,.750E-02_JPRB,.772E-02_JPRB,.746E-02_JPRB,.689E-02_JPRB,.584E-02_JPRB,&
+&.485E-02_JPRB,.415E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 31 -30.0
+ZAER (:,31, 1) = (/&
+&.610E-02_JPRB,.507E-02_JPRB,.445E-02_JPRB,.454E-02_JPRB,.469E-02_JPRB,.456E-02_JPRB,.425E-02_JPRB,&
+&.407E-02_JPRB,.435E-02_JPRB,.489E-02_JPRB,.584E-02_JPRB,.668E-02_JPRB,.111E-01_JPRB,.183E-01_JPRB,&
+&.172E-01_JPRB,.180E-01_JPRB,.316E-01_JPRB,.202E-01_JPRB,.911E-02_JPRB,.624E-02_JPRB,.543E-02_JPRB,&
+&.572E-02_JPRB,.661E-02_JPRB,.869E-02_JPRB,.117E-01_JPRB,.149E-01_JPRB,.218E-01_JPRB,.257E-01_JPRB,&
+&.244E-01_JPRB,.207E-01_JPRB,.218E-01_JPRB,.304E-01_JPRB,.402E-01_JPRB,.500E-01_JPRB,.568E-01_JPRB,&
+&.541E-01_JPRB,.768E-01_JPRB,.766E-01_JPRB,.747E-01_JPRB,.436E-01_JPRB,.206E-01_JPRB,.109E-01_JPRB,&
+&.114E-01_JPRB,.199E-01_JPRB,.422E-01_JPRB,.620E-01_JPRB,.682E-01_JPRB,.559E-01_JPRB,.431E-01_JPRB,&
+&.338E-01_JPRB,.312E-01_JPRB,.311E-01_JPRB,.290E-01_JPRB,.254E-01_JPRB,.211E-01_JPRB,.183E-01_JPRB,&
+&.177E-01_JPRB,.187E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,.128E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,&
+&.115E-01_JPRB,.122E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,&
+&.888E-02_JPRB,.742E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 32 -34.0
+ZAER (:,32, 1) = (/&
+&.765E-02_JPRB,.647E-02_JPRB,.583E-02_JPRB,.539E-02_JPRB,.492E-02_JPRB,.437E-02_JPRB,.381E-02_JPRB,&
+&.344E-02_JPRB,.354E-02_JPRB,.389E-02_JPRB,.419E-02_JPRB,.542E-02_JPRB,.956E-02_JPRB,.124E-01_JPRB,&
+&.105E-01_JPRB,.121E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,.947E-02_JPRB,.614E-02_JPRB,.482E-02_JPRB,&
+&.451E-02_JPRB,.470E-02_JPRB,.504E-02_JPRB,.642E-02_JPRB,.805E-02_JPRB,.104E-01_JPRB,.161E-01_JPRB,&
+&.181E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.154E-01_JPRB,.186E-01_JPRB,.210E-01_JPRB,.247E-01_JPRB,&
+&.197E-01_JPRB,.192E-01_JPRB,.370E-01_JPRB,.280E-01_JPRB,.977E-02_JPRB,.539E-02_JPRB,.421E-02_JPRB,&
+&.434E-02_JPRB,.685E-02_JPRB,.149E-01_JPRB,.283E-01_JPRB,.312E-01_JPRB,.332E-01_JPRB,.295E-01_JPRB,&
+&.229E-01_JPRB,.218E-01_JPRB,.228E-01_JPRB,.219E-01_JPRB,.191E-01_JPRB,.168E-01_JPRB,.162E-01_JPRB,&
+&.184E-01_JPRB,.209E-01_JPRB,.192E-01_JPRB,.181E-01_JPRB,.171E-01_JPRB,.154E-01_JPRB,.144E-01_JPRB,&
+&.144E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.135E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,&
+&.104E-01_JPRB,.915E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 33 -38.0
+ZAER (:,33, 1) = (/&
+&.723E-02_JPRB,.622E-02_JPRB,.529E-02_JPRB,.469E-02_JPRB,.421E-02_JPRB,.374E-02_JPRB,.331E-02_JPRB,&
+&.297E-02_JPRB,.291E-02_JPRB,.305E-02_JPRB,.321E-02_JPRB,.444E-02_JPRB,.696E-02_JPRB,.812E-02_JPRB,&
+&.713E-02_JPRB,.645E-02_JPRB,.705E-02_JPRB,.850E-02_JPRB,.757E-02_JPRB,.600E-02_JPRB,.482E-02_JPRB,&
+&.412E-02_JPRB,.377E-02_JPRB,.363E-02_JPRB,.379E-02_JPRB,.459E-02_JPRB,.509E-02_JPRB,.664E-02_JPRB,&
+&.948E-02_JPRB,.818E-02_JPRB,.630E-02_JPRB,.641E-02_JPRB,.722E-02_JPRB,.111E-01_JPRB,.146E-01_JPRB,&
+&.121E-01_JPRB,.949E-02_JPRB,.211E-01_JPRB,.146E-01_JPRB,.620E-02_JPRB,.396E-02_JPRB,.345E-02_JPRB,&
+&.393E-02_JPRB,.552E-02_JPRB,.894E-02_JPRB,.126E-01_JPRB,.206E-01_JPRB,.246E-01_JPRB,.196E-01_JPRB,&
+&.183E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.167E-01_JPRB,.173E-01_JPRB,.152E-01_JPRB,.167E-01_JPRB,&
+&.215E-01_JPRB,.247E-01_JPRB,.249E-01_JPRB,.273E-01_JPRB,.246E-01_JPRB,.197E-01_JPRB,.172E-01_JPRB,&
+&.164E-01_JPRB,.153E-01_JPRB,.138E-01_JPRB,.118E-01_JPRB,.100E-01_JPRB,.884E-02_JPRB,.835E-02_JPRB,&
+&.824E-02_JPRB,.802E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 34 -42.0
+ZAER (:,34, 1) = (/&
+&.573E-02_JPRB,.543E-02_JPRB,.472E-02_JPRB,.392E-02_JPRB,.340E-02_JPRB,.305E-02_JPRB,.290E-02_JPRB,&
+&.272E-02_JPRB,.250E-02_JPRB,.250E-02_JPRB,.251E-02_JPRB,.289E-02_JPRB,.453E-02_JPRB,.496E-02_JPRB,&
+&.408E-02_JPRB,.323E-02_JPRB,.459E-02_JPRB,.593E-02_JPRB,.537E-02_JPRB,.470E-02_JPRB,.417E-02_JPRB,&
+&.391E-02_JPRB,.336E-02_JPRB,.298E-02_JPRB,.284E-02_JPRB,.318E-02_JPRB,.356E-02_JPRB,.362E-02_JPRB,&
+&.445E-02_JPRB,.534E-02_JPRB,.487E-02_JPRB,.406E-02_JPRB,.378E-02_JPRB,.522E-02_JPRB,.951E-02_JPRB,&
+&.953E-02_JPRB,.567E-02_JPRB,.926E-02_JPRB,.108E-01_JPRB,.708E-02_JPRB,.432E-02_JPRB,.313E-02_JPRB,&
+&.260E-02_JPRB,.291E-02_JPRB,.428E-02_JPRB,.924E-02_JPRB,.236E-01_JPRB,.448E-01_JPRB,.206E-01_JPRB,&
+&.142E-01_JPRB,.123E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,.160E-01_JPRB,.192E-01_JPRB,.281E-01_JPRB,&
+&.475E-01_JPRB,.495E-01_JPRB,.488E-01_JPRB,.465E-01_JPRB,.401E-01_JPRB,.331E-01_JPRB,.279E-01_JPRB,&
+&.226E-01_JPRB,.171E-01_JPRB,.126E-01_JPRB,.972E-02_JPRB,.793E-02_JPRB,.649E-02_JPRB,.563E-02_JPRB,&
+&.551E-02_JPRB,.570E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 35 -46.0
+ZAER (:,35, 1) = (/&
+&.422E-02_JPRB,.428E-02_JPRB,.413E-02_JPRB,.386E-02_JPRB,.354E-02_JPRB,.318E-02_JPRB,.292E-02_JPRB,&
+&.273E-02_JPRB,.256E-02_JPRB,.231E-02_JPRB,.205E-02_JPRB,.188E-02_JPRB,.212E-02_JPRB,.217E-02_JPRB,&
+&.192E-02_JPRB,.175E-02_JPRB,.442E-02_JPRB,.464E-02_JPRB,.326E-02_JPRB,.281E-02_JPRB,.270E-02_JPRB,&
+&.262E-02_JPRB,.211E-02_JPRB,.177E-02_JPRB,.165E-02_JPRB,.182E-02_JPRB,.221E-02_JPRB,.238E-02_JPRB,&
+&.257E-02_JPRB,.297E-02_JPRB,.335E-02_JPRB,.333E-02_JPRB,.302E-02_JPRB,.298E-02_JPRB,.563E-02_JPRB,&
+&.774E-02_JPRB,.607E-02_JPRB,.516E-02_JPRB,.577E-02_JPRB,.562E-02_JPRB,.485E-02_JPRB,.380E-02_JPRB,&
+&.278E-02_JPRB,.219E-02_JPRB,.260E-02_JPRB,.487E-02_JPRB,.211E-01_JPRB,.473E-01_JPRB,.368E-01_JPRB,&
+&.249E-01_JPRB,.157E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.144E-01_JPRB,.179E-01_JPRB,.277E-01_JPRB,&
+&.384E-01_JPRB,.490E-01_JPRB,.465E-01_JPRB,.375E-01_JPRB,.365E-01_JPRB,.295E-01_JPRB,.216E-01_JPRB,&
+&.160E-01_JPRB,.125E-01_JPRB,.956E-02_JPRB,.733E-02_JPRB,.572E-02_JPRB,.461E-02_JPRB,.399E-02_JPRB,&
+&.385E-02_JPRB,.398E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 36 -50.0
+ZAER (:,36, 1) = (/&
+&.294E-02_JPRB,.333E-02_JPRB,.353E-02_JPRB,.342E-02_JPRB,.333E-02_JPRB,.316E-02_JPRB,.292E-02_JPRB,&
+&.262E-02_JPRB,.226E-02_JPRB,.187E-02_JPRB,.159E-02_JPRB,.144E-02_JPRB,.134E-02_JPRB,.127E-02_JPRB,&
+&.121E-02_JPRB,.123E-02_JPRB,.180E-02_JPRB,.206E-02_JPRB,.161E-02_JPRB,.130E-02_JPRB,.148E-02_JPRB,&
+&.165E-02_JPRB,.142E-02_JPRB,.123E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.121E-02_JPRB,.131E-02_JPRB,&
+&.144E-02_JPRB,.159E-02_JPRB,.181E-02_JPRB,.197E-02_JPRB,.196E-02_JPRB,.195E-02_JPRB,.306E-02_JPRB,&
+&.486E-02_JPRB,.487E-02_JPRB,.414E-02_JPRB,.311E-02_JPRB,.260E-02_JPRB,.283E-02_JPRB,.321E-02_JPRB,&
+&.336E-02_JPRB,.311E-02_JPRB,.312E-02_JPRB,.391E-02_JPRB,.175E-01_JPRB,.342E-01_JPRB,.278E-01_JPRB,&
+&.222E-01_JPRB,.187E-01_JPRB,.139E-01_JPRB,.126E-01_JPRB,.132E-01_JPRB,.139E-01_JPRB,.162E-01_JPRB,&
+&.176E-01_JPRB,.185E-01_JPRB,.197E-01_JPRB,.194E-01_JPRB,.183E-01_JPRB,.131E-01_JPRB,.112E-01_JPRB,&
+&.105E-01_JPRB,.847E-02_JPRB,.579E-02_JPRB,.358E-02_JPRB,.258E-02_JPRB,.218E-02_JPRB,.204E-02_JPRB,&
+&.228E-02_JPRB,.256E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 37 -54.0
+ZAER (:,37, 1) = (/&
+&.204E-02_JPRB,.243E-02_JPRB,.304E-02_JPRB,.340E-02_JPRB,.336E-02_JPRB,.292E-02_JPRB,.255E-02_JPRB,&
+&.209E-02_JPRB,.169E-02_JPRB,.139E-02_JPRB,.121E-02_JPRB,.111E-02_JPRB,.104E-02_JPRB,.101E-02_JPRB,&
+&.971E-03_JPRB,.101E-02_JPRB,.130E-02_JPRB,.144E-02_JPRB,.117E-02_JPRB,.961E-03_JPRB,.102E-02_JPRB,&
+&.117E-02_JPRB,.107E-02_JPRB,.103E-02_JPRB,.982E-03_JPRB,.941E-03_JPRB,.910E-03_JPRB,.855E-03_JPRB,&
+&.837E-03_JPRB,.890E-03_JPRB,.993E-03_JPRB,.111E-02_JPRB,.115E-02_JPRB,.119E-02_JPRB,.148E-02_JPRB,&
+&.198E-02_JPRB,.210E-02_JPRB,.199E-02_JPRB,.176E-02_JPRB,.163E-02_JPRB,.147E-02_JPRB,.144E-02_JPRB,&
+&.177E-02_JPRB,.200E-02_JPRB,.231E-02_JPRB,.285E-02_JPRB,.120E-01_JPRB,.311E-01_JPRB,.307E-01_JPRB,&
+&.240E-01_JPRB,.205E-01_JPRB,.173E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,&
+&.133E-01_JPRB,.141E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,.125E-01_JPRB,.101E-01_JPRB,.870E-02_JPRB,&
+&.775E-02_JPRB,.506E-02_JPRB,.286E-02_JPRB,.193E-02_JPRB,.151E-02_JPRB,.124E-02_JPRB,.118E-02_JPRB,&
+&.149E-02_JPRB,.181E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 38 -58.0
+ZAER (:,38, 1) = (/&
+&.179E-02_JPRB,.198E-02_JPRB,.246E-02_JPRB,.287E-02_JPRB,.324E-02_JPRB,.318E-02_JPRB,.282E-02_JPRB,&
+&.214E-02_JPRB,.166E-02_JPRB,.137E-02_JPRB,.123E-02_JPRB,.108E-02_JPRB,.912E-03_JPRB,.851E-03_JPRB,&
+&.822E-03_JPRB,.840E-03_JPRB,.885E-03_JPRB,.990E-03_JPRB,.101E-02_JPRB,.984E-03_JPRB,.101E-02_JPRB,&
+&.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.974E-03_JPRB,.911E-03_JPRB,.820E-03_JPRB,.675E-03_JPRB,&
+&.577E-03_JPRB,.552E-03_JPRB,.595E-03_JPRB,.664E-03_JPRB,.712E-03_JPRB,.747E-03_JPRB,.806E-03_JPRB,&
+&.946E-03_JPRB,.117E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.120E-02_JPRB,.105E-02_JPRB,.933E-03_JPRB,&
+&.965E-03_JPRB,.992E-03_JPRB,.101E-02_JPRB,.126E-02_JPRB,.398E-02_JPRB,.197E-01_JPRB,.268E-01_JPRB,&
+&.222E-01_JPRB,.172E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,&
+&.117E-01_JPRB,.109E-01_JPRB,.100E-01_JPRB,.955E-02_JPRB,.872E-02_JPRB,.716E-02_JPRB,.619E-02_JPRB,&
+&.514E-02_JPRB,.366E-02_JPRB,.246E-02_JPRB,.153E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,.131E-02_JPRB,&
+&.149E-02_JPRB,.170E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 39 -62.0
+ZAER (:,39, 1) = (/&
+&.181E-02_JPRB,.173E-02_JPRB,.160E-02_JPRB,.171E-02_JPRB,.199E-02_JPRB,.220E-02_JPRB,.215E-02_JPRB,&
+&.198E-02_JPRB,.168E-02_JPRB,.141E-02_JPRB,.128E-02_JPRB,.122E-02_JPRB,.111E-02_JPRB,.100E-02_JPRB,&
+&.942E-03_JPRB,.925E-03_JPRB,.907E-03_JPRB,.929E-03_JPRB,.986E-03_JPRB,.102E-02_JPRB,.103E-02_JPRB,&
+&.104E-02_JPRB,.103E-02_JPRB,.989E-03_JPRB,.896E-03_JPRB,.812E-03_JPRB,.717E-03_JPRB,.601E-03_JPRB,&
+&.511E-03_JPRB,.467E-03_JPRB,.470E-03_JPRB,.501E-03_JPRB,.542E-03_JPRB,.578E-03_JPRB,.603E-03_JPRB,&
+&.602E-03_JPRB,.629E-03_JPRB,.716E-03_JPRB,.781E-03_JPRB,.799E-03_JPRB,.769E-03_JPRB,.719E-03_JPRB,&
+&.690E-03_JPRB,.673E-03_JPRB,.656E-03_JPRB,.659E-03_JPRB,.680E-03_JPRB,.278E-02_JPRB,.746E-02_JPRB,&
+&.926E-02_JPRB,.906E-02_JPRB,.837E-02_JPRB,.820E-02_JPRB,.847E-02_JPRB,.857E-02_JPRB,.814E-02_JPRB,&
+&.767E-02_JPRB,.715E-02_JPRB,.654E-02_JPRB,.624E-02_JPRB,.603E-02_JPRB,.529E-02_JPRB,.471E-02_JPRB,&
+&.410E-02_JPRB,.356E-02_JPRB,.276E-02_JPRB,.173E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,&
+&.173E-02_JPRB,.179E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 40 -66.0
+ZAER (:,40, 1) = (/&
+&.170E-02_JPRB,.162E-02_JPRB,.150E-02_JPRB,.143E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.146E-02_JPRB,&
+&.149E-02_JPRB,.149E-02_JPRB,.143E-02_JPRB,.133E-02_JPRB,.124E-02_JPRB,.116E-02_JPRB,.109E-02_JPRB,&
+&.106E-02_JPRB,.102E-02_JPRB,.969E-03_JPRB,.958E-03_JPRB,.978E-03_JPRB,.995E-03_JPRB,.980E-03_JPRB,&
+&.939E-03_JPRB,.901E-03_JPRB,.839E-03_JPRB,.784E-03_JPRB,.728E-03_JPRB,.668E-03_JPRB,.611E-03_JPRB,&
+&.543E-03_JPRB,.486E-03_JPRB,.469E-03_JPRB,.475E-03_JPRB,.492E-03_JPRB,.494E-03_JPRB,.490E-03_JPRB,&
+&.495E-03_JPRB,.509E-03_JPRB,.541E-03_JPRB,.571E-03_JPRB,.584E-03_JPRB,.581E-03_JPRB,.574E-03_JPRB,&
+&.566E-03_JPRB,.548E-03_JPRB,.514E-03_JPRB,.499E-03_JPRB,.550E-03_JPRB,.730E-03_JPRB,.160E-02_JPRB,&
+&.218E-02_JPRB,.247E-02_JPRB,.280E-02_JPRB,.270E-02_JPRB,.283E-02_JPRB,.321E-02_JPRB,.354E-02_JPRB,&
+&.375E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.394E-02_JPRB,.395E-02_JPRB,.374E-02_JPRB,.351E-02_JPRB,&
+&.322E-02_JPRB,.296E-02_JPRB,.281E-02_JPRB,.225E-02_JPRB,.181E-02_JPRB,.174E-02_JPRB,.167E-02_JPRB,&
+&.167E-02_JPRB,.172E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 41 -70.0
+ZAER (:,41, 1) = (/&
+&.162E-02_JPRB,.156E-02_JPRB,.159E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.157E-02_JPRB,.151E-02_JPRB,&
+&.145E-02_JPRB,.143E-02_JPRB,.136E-02_JPRB,.126E-02_JPRB,.113E-02_JPRB,.104E-02_JPRB,.993E-03_JPRB,&
+&.975E-03_JPRB,.929E-03_JPRB,.880E-03_JPRB,.860E-03_JPRB,.862E-03_JPRB,.833E-03_JPRB,.782E-03_JPRB,&
+&.748E-03_JPRB,.773E-03_JPRB,.743E-03_JPRB,.674E-03_JPRB,.655E-03_JPRB,.624E-03_JPRB,.597E-03_JPRB,&
+&.567E-03_JPRB,.534E-03_JPRB,.472E-03_JPRB,.440E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.440E-03_JPRB,&
+&.483E-03_JPRB,.520E-03_JPRB,.535E-03_JPRB,.528E-03_JPRB,.522E-03_JPRB,.525E-03_JPRB,.551E-03_JPRB,&
+&.559E-03_JPRB,.533E-03_JPRB,.492E-03_JPRB,.501E-03_JPRB,.609E-03_JPRB,.730E-03_JPRB,.790E-03_JPRB,&
+&.700E-03_JPRB,.701E-03_JPRB,.768E-03_JPRB,.833E-03_JPRB,.922E-03_JPRB,.104E-02_JPRB,.119E-02_JPRB,&
+&.138E-02_JPRB,.161E-02_JPRB,.181E-02_JPRB,.194E-02_JPRB,.198E-02_JPRB,.223E-02_JPRB,.253E-02_JPRB,&
+&.265E-02_JPRB,.261E-02_JPRB,.252E-02_JPRB,.241E-02_JPRB,.214E-02_JPRB,.202E-02_JPRB,.194E-02_JPRB,&
+&.179E-02_JPRB,.170E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 42 -74.0
+ZAER (:,42, 1) = (/&
+&.191E-02_JPRB,.185E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,.179E-02_JPRB,.163E-02_JPRB,&
+&.146E-02_JPRB,.131E-02_JPRB,.118E-02_JPRB,.109E-02_JPRB,.101E-02_JPRB,.949E-03_JPRB,.900E-03_JPRB,&
+&.867E-03_JPRB,.829E-03_JPRB,.784E-03_JPRB,.759E-03_JPRB,.721E-03_JPRB,.671E-03_JPRB,.619E-03_JPRB,&
+&.609E-03_JPRB,.642E-03_JPRB,.676E-03_JPRB,.642E-03_JPRB,.607E-03_JPRB,.590E-03_JPRB,.567E-03_JPRB,&
+&.546E-03_JPRB,.537E-03_JPRB,.524E-03_JPRB,.500E-03_JPRB,.484E-03_JPRB,.477E-03_JPRB,.508E-03_JPRB,&
+&.565E-03_JPRB,.597E-03_JPRB,.604E-03_JPRB,.596E-03_JPRB,.606E-03_JPRB,.630E-03_JPRB,.648E-03_JPRB,&
+&.639E-03_JPRB,.617E-03_JPRB,.578E-03_JPRB,.529E-03_JPRB,.511E-03_JPRB,.496E-03_JPRB,.509E-03_JPRB,&
+&.599E-03_JPRB,.747E-03_JPRB,.829E-03_JPRB,.826E-03_JPRB,.851E-03_JPRB,.925E-03_JPRB,.108E-02_JPRB,&
+&.122E-02_JPRB,.129E-02_JPRB,.136E-02_JPRB,.142E-02_JPRB,.147E-02_JPRB,.163E-02_JPRB,.190E-02_JPRB,&
+&.211E-02_JPRB,.226E-02_JPRB,.234E-02_JPRB,.241E-02_JPRB,.234E-02_JPRB,.225E-02_JPRB,.219E-02_JPRB,&
+&.214E-02_JPRB,.206E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 43 -78.0
+ZAER (:,43, 1) = (/&
+&.178E-02_JPRB,.173E-02_JPRB,.170E-02_JPRB,.167E-02_JPRB,.162E-02_JPRB,.154E-02_JPRB,.141E-02_JPRB,&
+&.132E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,.105E-02_JPRB,.926E-03_JPRB,.852E-03_JPRB,.813E-03_JPRB,&
+&.762E-03_JPRB,.701E-03_JPRB,.648E-03_JPRB,.605E-03_JPRB,.565E-03_JPRB,.524E-03_JPRB,.491E-03_JPRB,&
+&.480E-03_JPRB,.491E-03_JPRB,.521E-03_JPRB,.522E-03_JPRB,.496E-03_JPRB,.491E-03_JPRB,.487E-03_JPRB,&
+&.478E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,.475E-03_JPRB,.490E-03_JPRB,.544E-03_JPRB,.608E-03_JPRB,&
+&.634E-03_JPRB,.635E-03_JPRB,.639E-03_JPRB,.654E-03_JPRB,.679E-03_JPRB,.698E-03_JPRB,.717E-03_JPRB,&
+&.737E-03_JPRB,.749E-03_JPRB,.735E-03_JPRB,.708E-03_JPRB,.709E-03_JPRB,.738E-03_JPRB,.795E-03_JPRB,&
+&.826E-03_JPRB,.852E-03_JPRB,.901E-03_JPRB,.976E-03_JPRB,.102E-02_JPRB,.107E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.120E-02_JPRB,.141E-02_JPRB,.158E-02_JPRB,.163E-02_JPRB,.169E-02_JPRB,.180E-02_JPRB,&
+&.199E-02_JPRB,.216E-02_JPRB,.223E-02_JPRB,.222E-02_JPRB,.215E-02_JPRB,.206E-02_JPRB,.198E-02_JPRB,&
+&.192E-02_JPRB,.186E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 44 -82.0
+ZAER (:,44, 1) = (/&
+&.138E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,.126E-02_JPRB,.120E-02_JPRB,.112E-02_JPRB,&
+&.104E-02_JPRB,.989E-03_JPRB,.924E-03_JPRB,.856E-03_JPRB,.780E-03_JPRB,.713E-03_JPRB,.663E-03_JPRB,&
+&.613E-03_JPRB,.560E-03_JPRB,.520E-03_JPRB,.493E-03_JPRB,.470E-03_JPRB,.444E-03_JPRB,.409E-03_JPRB,&
+&.390E-03_JPRB,.400E-03_JPRB,.420E-03_JPRB,.431E-03_JPRB,.427E-03_JPRB,.423E-03_JPRB,.424E-03_JPRB,&
+&.430E-03_JPRB,.446E-03_JPRB,.455E-03_JPRB,.467E-03_JPRB,.507E-03_JPRB,.563E-03_JPRB,.605E-03_JPRB,&
+&.620E-03_JPRB,.639E-03_JPRB,.670E-03_JPRB,.709E-03_JPRB,.752E-03_JPRB,.788E-03_JPRB,.819E-03_JPRB,&
+&.850E-03_JPRB,.880E-03_JPRB,.901E-03_JPRB,.924E-03_JPRB,.958E-03_JPRB,.100E-02_JPRB,.104E-02_JPRB,&
+&.106E-02_JPRB,.108E-02_JPRB,.112E-02_JPRB,.119E-02_JPRB,.128E-02_JPRB,.135E-02_JPRB,.141E-02_JPRB,&
+&.149E-02_JPRB,.156E-02_JPRB,.164E-02_JPRB,.171E-02_JPRB,.176E-02_JPRB,.180E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.180E-02_JPRB,.175E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,.154E-02_JPRB,.147E-02_JPRB,&
+&.143E-02_JPRB,.139E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 45 -86.0
+ZAER (:,45, 1) = (/&
+&.107E-02_JPRB,.103E-02_JPRB,.982E-03_JPRB,.929E-03_JPRB,.880E-03_JPRB,.844E-03_JPRB,.812E-03_JPRB,&
+&.775E-03_JPRB,.746E-03_JPRB,.724E-03_JPRB,.712E-03_JPRB,.700E-03_JPRB,.679E-03_JPRB,.662E-03_JPRB,&
+&.644E-03_JPRB,.631E-03_JPRB,.619E-03_JPRB,.602E-03_JPRB,.593E-03_JPRB,.585E-03_JPRB,.576E-03_JPRB,&
+&.571E-03_JPRB,.569E-03_JPRB,.572E-03_JPRB,.575E-03_JPRB,.574E-03_JPRB,.570E-03_JPRB,.573E-03_JPRB,&
+&.587E-03_JPRB,.600E-03_JPRB,.626E-03_JPRB,.665E-03_JPRB,.705E-03_JPRB,.733E-03_JPRB,.749E-03_JPRB,&
+&.762E-03_JPRB,.786E-03_JPRB,.801E-03_JPRB,.806E-03_JPRB,.819E-03_JPRB,.827E-03_JPRB,.842E-03_JPRB,&
+&.852E-03_JPRB,.876E-03_JPRB,.899E-03_JPRB,.915E-03_JPRB,.941E-03_JPRB,.975E-03_JPRB,.100E-02_JPRB,&
+&.102E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,&
+&.109E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.109E-02_JPRB,.108E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  1 --- lat: 46 -90.0
+ZAER (:,46, 1) = (/&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.818E-03_JPRB,.818E-03_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=1   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_01
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_02.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_02
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      February
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,2:2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  1  90.0
+ZAER (:, 1, 2) = (/&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  2  86.0
+ZAER (:, 2, 2) = (/&
+&.952E-03_JPRB,.949E-03_JPRB,.944E-03_JPRB,.933E-03_JPRB,.921E-03_JPRB,.912E-03_JPRB,.906E-03_JPRB,&
+&.903E-03_JPRB,.902E-03_JPRB,.908E-03_JPRB,.922E-03_JPRB,.936E-03_JPRB,.944E-03_JPRB,.948E-03_JPRB,&
+&.951E-03_JPRB,.947E-03_JPRB,.935E-03_JPRB,.931E-03_JPRB,.927E-03_JPRB,.927E-03_JPRB,.925E-03_JPRB,&
+&.917E-03_JPRB,.911E-03_JPRB,.901E-03_JPRB,.890E-03_JPRB,.879E-03_JPRB,.874E-03_JPRB,.873E-03_JPRB,&
+&.872E-03_JPRB,.867E-03_JPRB,.866E-03_JPRB,.861E-03_JPRB,.856E-03_JPRB,.853E-03_JPRB,.847E-03_JPRB,&
+&.840E-03_JPRB,.836E-03_JPRB,.835E-03_JPRB,.834E-03_JPRB,.839E-03_JPRB,.842E-03_JPRB,.844E-03_JPRB,&
+&.844E-03_JPRB,.839E-03_JPRB,.836E-03_JPRB,.836E-03_JPRB,.833E-03_JPRB,.827E-03_JPRB,.822E-03_JPRB,&
+&.821E-03_JPRB,.823E-03_JPRB,.827E-03_JPRB,.831E-03_JPRB,.834E-03_JPRB,.840E-03_JPRB,.849E-03_JPRB,&
+&.858E-03_JPRB,.869E-03_JPRB,.877E-03_JPRB,.882E-03_JPRB,.884E-03_JPRB,.889E-03_JPRB,.892E-03_JPRB,&
+&.895E-03_JPRB,.899E-03_JPRB,.900E-03_JPRB,.903E-03_JPRB,.906E-03_JPRB,.914E-03_JPRB,.927E-03_JPRB,&
+&.942E-03_JPRB,.952E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  3  82.0
+ZAER (:, 3, 2) = (/&
+&.799E-03_JPRB,.796E-03_JPRB,.804E-03_JPRB,.811E-03_JPRB,.822E-03_JPRB,.832E-03_JPRB,.829E-03_JPRB,&
+&.833E-03_JPRB,.853E-03_JPRB,.880E-03_JPRB,.890E-03_JPRB,.905E-03_JPRB,.921E-03_JPRB,.927E-03_JPRB,&
+&.952E-03_JPRB,.102E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.108E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.102E-02_JPRB,.988E-03_JPRB,.975E-03_JPRB,.978E-03_JPRB,&
+&.982E-03_JPRB,.981E-03_JPRB,.983E-03_JPRB,.988E-03_JPRB,.993E-03_JPRB,.989E-03_JPRB,.960E-03_JPRB,&
+&.924E-03_JPRB,.909E-03_JPRB,.886E-03_JPRB,.851E-03_JPRB,.835E-03_JPRB,.839E-03_JPRB,.840E-03_JPRB,&
+&.842E-03_JPRB,.839E-03_JPRB,.845E-03_JPRB,.855E-03_JPRB,.861E-03_JPRB,.860E-03_JPRB,.842E-03_JPRB,&
+&.815E-03_JPRB,.795E-03_JPRB,.787E-03_JPRB,.779E-03_JPRB,.777E-03_JPRB,.783E-03_JPRB,.793E-03_JPRB,&
+&.804E-03_JPRB,.819E-03_JPRB,.833E-03_JPRB,.840E-03_JPRB,.846E-03_JPRB,.851E-03_JPRB,.852E-03_JPRB,&
+&.851E-03_JPRB,.856E-03_JPRB,.866E-03_JPRB,.874E-03_JPRB,.875E-03_JPRB,.866E-03_JPRB,.837E-03_JPRB,&
+&.821E-03_JPRB,.811E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  4  78.0
+ZAER (:, 4, 2) = (/&
+&.750E-03_JPRB,.740E-03_JPRB,.749E-03_JPRB,.760E-03_JPRB,.789E-03_JPRB,.832E-03_JPRB,.871E-03_JPRB,&
+&.898E-03_JPRB,.917E-03_JPRB,.924E-03_JPRB,.892E-03_JPRB,.856E-03_JPRB,.835E-03_JPRB,.800E-03_JPRB,&
+&.810E-03_JPRB,.914E-03_JPRB,.104E-02_JPRB,.108E-02_JPRB,.110E-02_JPRB,.116E-02_JPRB,.121E-02_JPRB,&
+&.122E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,&
+&.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,&
+&.109E-02_JPRB,.105E-02_JPRB,.991E-03_JPRB,.933E-03_JPRB,.862E-03_JPRB,.836E-03_JPRB,.836E-03_JPRB,&
+&.827E-03_JPRB,.813E-03_JPRB,.821E-03_JPRB,.833E-03_JPRB,.838E-03_JPRB,.841E-03_JPRB,.839E-03_JPRB,&
+&.828E-03_JPRB,.811E-03_JPRB,.793E-03_JPRB,.788E-03_JPRB,.788E-03_JPRB,.801E-03_JPRB,.818E-03_JPRB,&
+&.837E-03_JPRB,.847E-03_JPRB,.851E-03_JPRB,.853E-03_JPRB,.854E-03_JPRB,.856E-03_JPRB,.851E-03_JPRB,&
+&.839E-03_JPRB,.820E-03_JPRB,.823E-03_JPRB,.837E-03_JPRB,.831E-03_JPRB,.806E-03_JPRB,.771E-03_JPRB,&
+&.747E-03_JPRB,.759E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  5  74.0
+ZAER (:, 5, 2) = (/&
+&.907E-03_JPRB,.925E-03_JPRB,.931E-03_JPRB,.930E-03_JPRB,.926E-03_JPRB,.928E-03_JPRB,.939E-03_JPRB,&
+&.936E-03_JPRB,.920E-03_JPRB,.906E-03_JPRB,.876E-03_JPRB,.821E-03_JPRB,.771E-03_JPRB,.728E-03_JPRB,&
+&.725E-03_JPRB,.788E-03_JPRB,.979E-03_JPRB,.105E-02_JPRB,.110E-02_JPRB,.121E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,&
+&.133E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.128E-02_JPRB,&
+&.130E-02_JPRB,.127E-02_JPRB,.110E-02_JPRB,.926E-03_JPRB,.818E-03_JPRB,.801E-03_JPRB,.801E-03_JPRB,&
+&.799E-03_JPRB,.804E-03_JPRB,.807E-03_JPRB,.812E-03_JPRB,.818E-03_JPRB,.815E-03_JPRB,.812E-03_JPRB,&
+&.804E-03_JPRB,.818E-03_JPRB,.861E-03_JPRB,.882E-03_JPRB,.891E-03_JPRB,.910E-03_JPRB,.926E-03_JPRB,&
+&.917E-03_JPRB,.897E-03_JPRB,.877E-03_JPRB,.871E-03_JPRB,.882E-03_JPRB,.894E-03_JPRB,.912E-03_JPRB,&
+&.921E-03_JPRB,.919E-03_JPRB,.920E-03_JPRB,.914E-03_JPRB,.902E-03_JPRB,.882E-03_JPRB,.842E-03_JPRB,&
+&.836E-03_JPRB,.871E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  6  70.0
+ZAER (:, 6, 2) = (/&
+&.106E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,.978E-03_JPRB,&
+&.950E-03_JPRB,.919E-03_JPRB,.882E-03_JPRB,.848E-03_JPRB,.774E-03_JPRB,.710E-03_JPRB,.683E-03_JPRB,&
+&.686E-03_JPRB,.725E-03_JPRB,.760E-03_JPRB,.806E-03_JPRB,.951E-03_JPRB,.107E-02_JPRB,.121E-02_JPRB,&
+&.130E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.133E-02_JPRB,.143E-02_JPRB,.150E-02_JPRB,.140E-02_JPRB,&
+&.134E-02_JPRB,.136E-02_JPRB,.125E-02_JPRB,.108E-02_JPRB,.103E-02_JPRB,.109E-02_JPRB,.116E-02_JPRB,&
+&.123E-02_JPRB,.124E-02_JPRB,.106E-02_JPRB,.866E-03_JPRB,.783E-03_JPRB,.766E-03_JPRB,.754E-03_JPRB,&
+&.752E-03_JPRB,.776E-03_JPRB,.819E-03_JPRB,.860E-03_JPRB,.892E-03_JPRB,.889E-03_JPRB,.844E-03_JPRB,&
+&.832E-03_JPRB,.845E-03_JPRB,.892E-03_JPRB,.954E-03_JPRB,.101E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,&
+&.101E-02_JPRB,.972E-03_JPRB,.965E-03_JPRB,.965E-03_JPRB,.980E-03_JPRB,.998E-03_JPRB,.102E-02_JPRB,&
+&.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.995E-03_JPRB,.984E-03_JPRB,.967E-03_JPRB,.960E-03_JPRB,&
+&.980E-03_JPRB,.102E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  7  66.0
+ZAER (:, 7, 2) = (/&
+&.117E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.110E-02_JPRB,&
+&.104E-02_JPRB,.988E-03_JPRB,.930E-03_JPRB,.875E-03_JPRB,.833E-03_JPRB,.767E-03_JPRB,.690E-03_JPRB,&
+&.669E-03_JPRB,.676E-03_JPRB,.700E-03_JPRB,.746E-03_JPRB,.805E-03_JPRB,.949E-03_JPRB,.114E-02_JPRB,&
+&.137E-02_JPRB,.148E-02_JPRB,.137E-02_JPRB,.154E-02_JPRB,.171E-02_JPRB,.173E-02_JPRB,.165E-02_JPRB,&
+&.150E-02_JPRB,.145E-02_JPRB,.135E-02_JPRB,.112E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.103E-02_JPRB,&
+&.107E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,.940E-03_JPRB,.890E-03_JPRB,.860E-03_JPRB,.827E-03_JPRB,&
+&.813E-03_JPRB,.837E-03_JPRB,.890E-03_JPRB,.921E-03_JPRB,.945E-03_JPRB,.962E-03_JPRB,.974E-03_JPRB,&
+&.992E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.103E-02_JPRB,.107E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,&
+&.121E-02_JPRB,.115E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.106E-02_JPRB,.112E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  8  62.0
+ZAER (:, 8, 2) = (/&
+&.150E-02_JPRB,.150E-02_JPRB,.153E-02_JPRB,.154E-02_JPRB,.148E-02_JPRB,.139E-02_JPRB,.130E-02_JPRB,&
+&.120E-02_JPRB,.113E-02_JPRB,.107E-02_JPRB,.990E-03_JPRB,.913E-03_JPRB,.851E-03_JPRB,.817E-03_JPRB,&
+&.803E-03_JPRB,.818E-03_JPRB,.857E-03_JPRB,.922E-03_JPRB,.100E-02_JPRB,.110E-02_JPRB,.121E-02_JPRB,&
+&.140E-02_JPRB,.186E-02_JPRB,.240E-02_JPRB,.271E-02_JPRB,.257E-02_JPRB,.227E-02_JPRB,.210E-02_JPRB,&
+&.191E-02_JPRB,.171E-02_JPRB,.152E-02_JPRB,.134E-02_JPRB,.119E-02_JPRB,.108E-02_JPRB,.105E-02_JPRB,&
+&.107E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.109E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.999E-03_JPRB,.979E-03_JPRB,.993E-03_JPRB,.104E-02_JPRB,.104E-02_JPRB,.108E-02_JPRB,.114E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.113E-02_JPRB,.126E-02_JPRB,.139E-02_JPRB,&
+&.140E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,&
+&.124E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.134E-02_JPRB,.140E-02_JPRB,&
+&.146E-02_JPRB,.149E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat:  9  58.0
+ZAER (:, 9, 2) = (/&
+&.208E-02_JPRB,.207E-02_JPRB,.204E-02_JPRB,.199E-02_JPRB,.189E-02_JPRB,.175E-02_JPRB,.161E-02_JPRB,&
+&.147E-02_JPRB,.137E-02_JPRB,.129E-02_JPRB,.120E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.109E-02_JPRB,.114E-02_JPRB,.121E-02_JPRB,.131E-02_JPRB,.141E-02_JPRB,.151E-02_JPRB,.158E-02_JPRB,&
+&.193E-02_JPRB,.343E-02_JPRB,.574E-02_JPRB,.507E-02_JPRB,.397E-02_JPRB,.305E-02_JPRB,.252E-02_JPRB,&
+&.231E-02_JPRB,.212E-02_JPRB,.193E-02_JPRB,.184E-02_JPRB,.166E-02_JPRB,.144E-02_JPRB,.129E-02_JPRB,&
+&.125E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,&
+&.142E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.152E-02_JPRB,&
+&.157E-02_JPRB,.152E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,.144E-02_JPRB,.149E-02_JPRB,.157E-02_JPRB,&
+&.164E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,.156E-02_JPRB,&
+&.156E-02_JPRB,.161E-02_JPRB,.166E-02_JPRB,.175E-02_JPRB,.185E-02_JPRB,.193E-02_JPRB,.200E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 10  54.0
+ZAER (:,10, 2) = (/&
+&.298E-02_JPRB,.295E-02_JPRB,.287E-02_JPRB,.274E-02_JPRB,.257E-02_JPRB,.236E-02_JPRB,.214E-02_JPRB,&
+&.192E-02_JPRB,.177E-02_JPRB,.167E-02_JPRB,.157E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.156E-02_JPRB,&
+&.162E-02_JPRB,.168E-02_JPRB,.178E-02_JPRB,.188E-02_JPRB,.196E-02_JPRB,.203E-02_JPRB,.219E-02_JPRB,&
+&.320E-02_JPRB,.119E-01_JPRB,.155E-01_JPRB,.112E-01_JPRB,.858E-02_JPRB,.629E-02_JPRB,.443E-02_JPRB,&
+&.342E-02_JPRB,.302E-02_JPRB,.275E-02_JPRB,.261E-02_JPRB,.242E-02_JPRB,.221E-02_JPRB,.200E-02_JPRB,&
+&.188E-02_JPRB,.179E-02_JPRB,.172E-02_JPRB,.177E-02_JPRB,.193E-02_JPRB,.208E-02_JPRB,.218E-02_JPRB,&
+&.223E-02_JPRB,.227E-02_JPRB,.229E-02_JPRB,.226E-02_JPRB,.217E-02_JPRB,.204E-02_JPRB,.199E-02_JPRB,&
+&.197E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.193E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,&
+&.199E-02_JPRB,.207E-02_JPRB,.213E-02_JPRB,.212E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,.205E-02_JPRB,&
+&.215E-02_JPRB,.224E-02_JPRB,.235E-02_JPRB,.251E-02_JPRB,.268E-02_JPRB,.285E-02_JPRB,.290E-02_JPRB,&
+&.297E-02_JPRB,.297E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 11  50.0
+ZAER (:,11, 2) = (/&
+&.465E-02_JPRB,.441E-02_JPRB,.413E-02_JPRB,.380E-02_JPRB,.352E-02_JPRB,.326E-02_JPRB,.299E-02_JPRB,&
+&.268E-02_JPRB,.241E-02_JPRB,.227E-02_JPRB,.219E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.219E-02_JPRB,&
+&.225E-02_JPRB,.232E-02_JPRB,.237E-02_JPRB,.241E-02_JPRB,.242E-02_JPRB,.244E-02_JPRB,.329E-02_JPRB,&
+&.514E-02_JPRB,.198E-01_JPRB,.393E-01_JPRB,.313E-01_JPRB,.210E-01_JPRB,.143E-01_JPRB,.968E-02_JPRB,&
+&.687E-02_JPRB,.540E-02_JPRB,.458E-02_JPRB,.411E-02_JPRB,.371E-02_JPRB,.335E-02_JPRB,.307E-02_JPRB,&
+&.288E-02_JPRB,.286E-02_JPRB,.299E-02_JPRB,.320E-02_JPRB,.342E-02_JPRB,.357E-02_JPRB,.364E-02_JPRB,&
+&.365E-02_JPRB,.357E-02_JPRB,.346E-02_JPRB,.334E-02_JPRB,.320E-02_JPRB,.299E-02_JPRB,.276E-02_JPRB,&
+&.258E-02_JPRB,.248E-02_JPRB,.244E-02_JPRB,.243E-02_JPRB,.240E-02_JPRB,.246E-02_JPRB,.258E-02_JPRB,&
+&.275E-02_JPRB,.286E-02_JPRB,.288E-02_JPRB,.284E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.299E-02_JPRB,&
+&.318E-02_JPRB,.323E-02_JPRB,.365E-02_JPRB,.400E-02_JPRB,.447E-02_JPRB,.480E-02_JPRB,.492E-02_JPRB,&
+&.504E-02_JPRB,.489E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 12  46.0
+ZAER (:,12, 2) = (/&
+&.721E-02_JPRB,.678E-02_JPRB,.608E-02_JPRB,.526E-02_JPRB,.464E-02_JPRB,.421E-02_JPRB,.387E-02_JPRB,&
+&.359E-02_JPRB,.329E-02_JPRB,.303E-02_JPRB,.287E-02_JPRB,.277E-02_JPRB,.275E-02_JPRB,.274E-02_JPRB,&
+&.277E-02_JPRB,.283E-02_JPRB,.286E-02_JPRB,.285E-02_JPRB,.283E-02_JPRB,.288E-02_JPRB,.486E-02_JPRB,&
+&.154E-01_JPRB,.609E-01_JPRB,.110E+00_JPRB,.454E-01_JPRB,.213E-01_JPRB,.159E-01_JPRB,.123E-01_JPRB,&
+&.969E-02_JPRB,.823E-02_JPRB,.725E-02_JPRB,.638E-02_JPRB,.565E-02_JPRB,.517E-02_JPRB,.490E-02_JPRB,&
+&.477E-02_JPRB,.492E-02_JPRB,.520E-02_JPRB,.540E-02_JPRB,.544E-02_JPRB,.545E-02_JPRB,.543E-02_JPRB,&
+&.530E-02_JPRB,.514E-02_JPRB,.496E-02_JPRB,.472E-02_JPRB,.448E-02_JPRB,.420E-02_JPRB,.384E-02_JPRB,&
+&.348E-02_JPRB,.324E-02_JPRB,.313E-02_JPRB,.310E-02_JPRB,.322E-02_JPRB,.347E-02_JPRB,.364E-02_JPRB,&
+&.392E-02_JPRB,.405E-02_JPRB,.405E-02_JPRB,.426E-02_JPRB,.461E-02_JPRB,.462E-02_JPRB,.501E-02_JPRB,&
+&.478E-02_JPRB,.475E-02_JPRB,.565E-02_JPRB,.563E-02_JPRB,.574E-02_JPRB,.597E-02_JPRB,.675E-02_JPRB,&
+&.737E-02_JPRB,.745E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 13  42.0
+ZAER (:,13, 2) = (/&
+&.100E-01_JPRB,.937E-02_JPRB,.817E-02_JPRB,.686E-02_JPRB,.600E-02_JPRB,.537E-02_JPRB,.480E-02_JPRB,&
+&.436E-02_JPRB,.406E-02_JPRB,.381E-02_JPRB,.361E-02_JPRB,.350E-02_JPRB,.354E-02_JPRB,.355E-02_JPRB,&
+&.359E-02_JPRB,.359E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.361E-02_JPRB,.373E-02_JPRB,.112E-01_JPRB,&
+&.482E-01_JPRB,.985E-01_JPRB,.120E+00_JPRB,.511E-01_JPRB,.282E-01_JPRB,.201E-01_JPRB,.152E-01_JPRB,&
+&.115E-01_JPRB,.934E-02_JPRB,.831E-02_JPRB,.767E-02_JPRB,.708E-02_JPRB,.668E-02_JPRB,.655E-02_JPRB,&
+&.653E-02_JPRB,.660E-02_JPRB,.655E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.666E-02_JPRB,.665E-02_JPRB,&
+&.647E-02_JPRB,.631E-02_JPRB,.622E-02_JPRB,.600E-02_JPRB,.569E-02_JPRB,.534E-02_JPRB,.492E-02_JPRB,&
+&.454E-02_JPRB,.426E-02_JPRB,.411E-02_JPRB,.416E-02_JPRB,.453E-02_JPRB,.490E-02_JPRB,.528E-02_JPRB,&
+&.612E-02_JPRB,.627E-02_JPRB,.619E-02_JPRB,.743E-02_JPRB,.837E-02_JPRB,.830E-02_JPRB,.804E-02_JPRB,&
+&.731E-02_JPRB,.834E-02_JPRB,.817E-02_JPRB,.708E-02_JPRB,.678E-02_JPRB,.794E-02_JPRB,.967E-02_JPRB,&
+&.103E-01_JPRB,.102E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 14  38.0
+ZAER (:,14, 2) = (/&
+&.125E-01_JPRB,.112E-01_JPRB,.961E-02_JPRB,.844E-02_JPRB,.769E-02_JPRB,.716E-02_JPRB,.679E-02_JPRB,&
+&.627E-02_JPRB,.576E-02_JPRB,.541E-02_JPRB,.512E-02_JPRB,.492E-02_JPRB,.497E-02_JPRB,.499E-02_JPRB,&
+&.495E-02_JPRB,.486E-02_JPRB,.485E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.570E-02_JPRB,.174E-01_JPRB,&
+&.479E-01_JPRB,.645E-01_JPRB,.560E-01_JPRB,.302E-01_JPRB,.211E-01_JPRB,.159E-01_JPRB,.133E-01_JPRB,&
+&.114E-01_JPRB,.100E-01_JPRB,.928E-02_JPRB,.879E-02_JPRB,.825E-02_JPRB,.774E-02_JPRB,.734E-02_JPRB,&
+&.708E-02_JPRB,.687E-02_JPRB,.652E-02_JPRB,.633E-02_JPRB,.645E-02_JPRB,.688E-02_JPRB,.750E-02_JPRB,&
+&.740E-02_JPRB,.707E-02_JPRB,.672E-02_JPRB,.638E-02_JPRB,.602E-02_JPRB,.580E-02_JPRB,.558E-02_JPRB,&
+&.528E-02_JPRB,.502E-02_JPRB,.491E-02_JPRB,.525E-02_JPRB,.608E-02_JPRB,.694E-02_JPRB,.842E-02_JPRB,&
+&.916E-02_JPRB,.889E-02_JPRB,.886E-02_JPRB,.127E-01_JPRB,.153E-01_JPRB,.142E-01_JPRB,.127E-01_JPRB,&
+&.140E-01_JPRB,.201E-01_JPRB,.139E-01_JPRB,.100E-01_JPRB,.112E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,&
+&.146E-01_JPRB,.135E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 15  34.0
+ZAER (:,15, 2) = (/&
+&.145E-01_JPRB,.119E-01_JPRB,.984E-02_JPRB,.883E-02_JPRB,.863E-02_JPRB,.870E-02_JPRB,.874E-02_JPRB,&
+&.889E-02_JPRB,.895E-02_JPRB,.879E-02_JPRB,.837E-02_JPRB,.789E-02_JPRB,.766E-02_JPRB,.720E-02_JPRB,&
+&.668E-02_JPRB,.630E-02_JPRB,.614E-02_JPRB,.607E-02_JPRB,.601E-02_JPRB,.753E-02_JPRB,.166E-01_JPRB,&
+&.302E-01_JPRB,.291E-01_JPRB,.263E-01_JPRB,.191E-01_JPRB,.144E-01_JPRB,.115E-01_JPRB,.107E-01_JPRB,&
+&.102E-01_JPRB,.992E-02_JPRB,.964E-02_JPRB,.908E-02_JPRB,.854E-02_JPRB,.802E-02_JPRB,.769E-02_JPRB,&
+&.740E-02_JPRB,.705E-02_JPRB,.654E-02_JPRB,.621E-02_JPRB,.727E-02_JPRB,.111E-01_JPRB,.137E-01_JPRB,&
+&.116E-01_JPRB,.950E-02_JPRB,.781E-02_JPRB,.702E-02_JPRB,.645E-02_JPRB,.602E-02_JPRB,.582E-02_JPRB,&
+&.560E-02_JPRB,.552E-02_JPRB,.609E-02_JPRB,.741E-02_JPRB,.940E-02_JPRB,.120E-01_JPRB,.149E-01_JPRB,&
+&.157E-01_JPRB,.171E-01_JPRB,.210E-01_JPRB,.350E-01_JPRB,.510E-01_JPRB,.446E-01_JPRB,.362E-01_JPRB,&
+&.412E-01_JPRB,.347E-01_JPRB,.220E-01_JPRB,.254E-01_JPRB,.284E-01_JPRB,.281E-01_JPRB,.264E-01_JPRB,&
+&.224E-01_JPRB,.180E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 16  30.0
+ZAER (:,16, 2) = (/&
+&.166E-01_JPRB,.131E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.105E-01_JPRB,.987E-02_JPRB,&
+&.914E-02_JPRB,.864E-02_JPRB,.838E-02_JPRB,.814E-02_JPRB,.803E-02_JPRB,.778E-02_JPRB,.710E-02_JPRB,&
+&.662E-02_JPRB,.629E-02_JPRB,.640E-02_JPRB,.675E-02_JPRB,.720E-02_JPRB,.941E-02_JPRB,.165E-01_JPRB,&
+&.213E-01_JPRB,.205E-01_JPRB,.208E-01_JPRB,.162E-01_JPRB,.123E-01_JPRB,.981E-02_JPRB,.859E-02_JPRB,&
+&.791E-02_JPRB,.738E-02_JPRB,.733E-02_JPRB,.749E-02_JPRB,.759E-02_JPRB,.750E-02_JPRB,.721E-02_JPRB,&
+&.688E-02_JPRB,.681E-02_JPRB,.669E-02_JPRB,.774E-02_JPRB,.132E-01_JPRB,.226E-01_JPRB,.238E-01_JPRB,&
+&.167E-01_JPRB,.115E-01_JPRB,.847E-02_JPRB,.740E-02_JPRB,.652E-02_JPRB,.594E-02_JPRB,.584E-02_JPRB,&
+&.587E-02_JPRB,.613E-02_JPRB,.771E-02_JPRB,.116E-01_JPRB,.161E-01_JPRB,.217E-01_JPRB,.268E-01_JPRB,&
+&.299E-01_JPRB,.365E-01_JPRB,.501E-01_JPRB,.701E-01_JPRB,.984E-01_JPRB,.102E+00_JPRB,.832E-01_JPRB,&
+&.639E-01_JPRB,.460E-01_JPRB,.495E-01_JPRB,.551E-01_JPRB,.429E-01_JPRB,.378E-01_JPRB,.367E-01_JPRB,&
+&.309E-01_JPRB,.233E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 17  26.0
+ZAER (:,17, 2) = (/&
+&.201E-01_JPRB,.169E-01_JPRB,.149E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.102E-01_JPRB,.815E-02_JPRB,&
+&.599E-02_JPRB,.465E-02_JPRB,.411E-02_JPRB,.427E-02_JPRB,.478E-02_JPRB,.537E-02_JPRB,.571E-02_JPRB,&
+&.556E-02_JPRB,.554E-02_JPRB,.630E-02_JPRB,.737E-02_JPRB,.900E-02_JPRB,.116E-01_JPRB,.157E-01_JPRB,&
+&.174E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,.162E-01_JPRB,.118E-01_JPRB,.901E-02_JPRB,.707E-02_JPRB,&
+&.591E-02_JPRB,.591E-02_JPRB,.660E-02_JPRB,.727E-02_JPRB,.751E-02_JPRB,.711E-02_JPRB,.655E-02_JPRB,&
+&.642E-02_JPRB,.681E-02_JPRB,.789E-02_JPRB,.119E-01_JPRB,.207E-01_JPRB,.257E-01_JPRB,.226E-01_JPRB,&
+&.161E-01_JPRB,.114E-01_JPRB,.834E-02_JPRB,.697E-02_JPRB,.564E-02_JPRB,.549E-02_JPRB,.566E-02_JPRB,&
+&.594E-02_JPRB,.686E-02_JPRB,.107E-01_JPRB,.178E-01_JPRB,.240E-01_JPRB,.295E-01_JPRB,.366E-01_JPRB,&
+&.444E-01_JPRB,.573E-01_JPRB,.756E-01_JPRB,.104E+00_JPRB,.127E+00_JPRB,.124E+00_JPRB,.107E+00_JPRB,&
+&.874E-01_JPRB,.744E-01_JPRB,.914E-01_JPRB,.582E-01_JPRB,.388E-01_JPRB,.326E-01_JPRB,.335E-01_JPRB,&
+&.326E-01_JPRB,.271E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 18  22.0
+ZAER (:,18, 2) = (/&
+&.186E-01_JPRB,.145E-01_JPRB,.109E-01_JPRB,.830E-02_JPRB,.607E-02_JPRB,.407E-02_JPRB,.288E-02_JPRB,&
+&.227E-02_JPRB,.205E-02_JPRB,.227E-02_JPRB,.269E-02_JPRB,.304E-02_JPRB,.359E-02_JPRB,.456E-02_JPRB,&
+&.533E-02_JPRB,.605E-02_JPRB,.696E-02_JPRB,.825E-02_JPRB,.102E-01_JPRB,.122E-01_JPRB,.148E-01_JPRB,&
+&.169E-01_JPRB,.200E-01_JPRB,.173E-01_JPRB,.146E-01_JPRB,.785E-02_JPRB,.568E-02_JPRB,.514E-02_JPRB,&
+&.547E-02_JPRB,.632E-02_JPRB,.725E-02_JPRB,.756E-02_JPRB,.753E-02_JPRB,.719E-02_JPRB,.700E-02_JPRB,&
+&.735E-02_JPRB,.832E-02_JPRB,.107E-01_JPRB,.163E-01_JPRB,.222E-01_JPRB,.184E-01_JPRB,.126E-01_JPRB,&
+&.910E-02_JPRB,.727E-02_JPRB,.497E-02_JPRB,.427E-02_JPRB,.421E-02_JPRB,.482E-02_JPRB,.621E-02_JPRB,&
+&.897E-02_JPRB,.141E-01_JPRB,.222E-01_JPRB,.329E-01_JPRB,.398E-01_JPRB,.461E-01_JPRB,.549E-01_JPRB,&
+&.632E-01_JPRB,.698E-01_JPRB,.799E-01_JPRB,.935E-01_JPRB,.109E+00_JPRB,.111E+00_JPRB,.108E+00_JPRB,&
+&.993E-01_JPRB,.725E-01_JPRB,.479E-01_JPRB,.278E-01_JPRB,.197E-01_JPRB,.166E-01_JPRB,.200E-01_JPRB,&
+&.235E-01_JPRB,.226E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 19  18.0
+ZAER (:,19, 2) = (/&
+&.961E-02_JPRB,.634E-02_JPRB,.397E-02_JPRB,.282E-02_JPRB,.242E-02_JPRB,.191E-02_JPRB,.172E-02_JPRB,&
+&.183E-02_JPRB,.216E-02_JPRB,.251E-02_JPRB,.282E-02_JPRB,.315E-02_JPRB,.354E-02_JPRB,.418E-02_JPRB,&
+&.514E-02_JPRB,.643E-02_JPRB,.794E-02_JPRB,.100E-01_JPRB,.122E-01_JPRB,.139E-01_JPRB,.159E-01_JPRB,&
+&.157E-01_JPRB,.121E-01_JPRB,.979E-02_JPRB,.682E-02_JPRB,.387E-02_JPRB,.395E-02_JPRB,.488E-02_JPRB,&
+&.607E-02_JPRB,.683E-02_JPRB,.738E-02_JPRB,.742E-02_JPRB,.746E-02_JPRB,.741E-02_JPRB,.763E-02_JPRB,&
+&.810E-02_JPRB,.925E-02_JPRB,.111E-01_JPRB,.131E-01_JPRB,.121E-01_JPRB,.765E-02_JPRB,.542E-02_JPRB,&
+&.444E-02_JPRB,.345E-02_JPRB,.264E-02_JPRB,.269E-02_JPRB,.306E-02_JPRB,.359E-02_JPRB,.506E-02_JPRB,&
+&.849E-02_JPRB,.161E-01_JPRB,.283E-01_JPRB,.419E-01_JPRB,.531E-01_JPRB,.649E-01_JPRB,.725E-01_JPRB,&
+&.727E-01_JPRB,.647E-01_JPRB,.592E-01_JPRB,.573E-01_JPRB,.635E-01_JPRB,.670E-01_JPRB,.645E-01_JPRB,&
+&.540E-01_JPRB,.307E-01_JPRB,.144E-01_JPRB,.826E-02_JPRB,.691E-02_JPRB,.810E-02_JPRB,.130E-01_JPRB,&
+&.149E-01_JPRB,.130E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 20  14.0
+ZAER (:,20, 2) = (/&
+&.237E-02_JPRB,.151E-02_JPRB,.108E-02_JPRB,.125E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.174E-02_JPRB,&
+&.228E-02_JPRB,.285E-02_JPRB,.320E-02_JPRB,.347E-02_JPRB,.395E-02_JPRB,.441E-02_JPRB,.505E-02_JPRB,&
+&.609E-02_JPRB,.742E-02_JPRB,.914E-02_JPRB,.111E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,&
+&.111E-01_JPRB,.743E-02_JPRB,.419E-02_JPRB,.295E-02_JPRB,.348E-02_JPRB,.505E-02_JPRB,.661E-02_JPRB,&
+&.759E-02_JPRB,.740E-02_JPRB,.744E-02_JPRB,.743E-02_JPRB,.762E-02_JPRB,.759E-02_JPRB,.752E-02_JPRB,&
+&.756E-02_JPRB,.777E-02_JPRB,.775E-02_JPRB,.752E-02_JPRB,.575E-02_JPRB,.334E-02_JPRB,.250E-02_JPRB,&
+&.200E-02_JPRB,.167E-02_JPRB,.157E-02_JPRB,.166E-02_JPRB,.189E-02_JPRB,.222E-02_JPRB,.330E-02_JPRB,&
+&.554E-02_JPRB,.104E-01_JPRB,.199E-01_JPRB,.298E-01_JPRB,.362E-01_JPRB,.415E-01_JPRB,.433E-01_JPRB,&
+&.418E-01_JPRB,.359E-01_JPRB,.283E-01_JPRB,.263E-01_JPRB,.267E-01_JPRB,.233E-01_JPRB,.168E-01_JPRB,&
+&.121E-01_JPRB,.580E-02_JPRB,.225E-02_JPRB,.163E-02_JPRB,.171E-02_JPRB,.215E-02_JPRB,.340E-02_JPRB,&
+&.406E-02_JPRB,.317E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 21  10.0
+ZAER (:,21, 2) = (/&
+&.729E-03_JPRB,.705E-03_JPRB,.795E-03_JPRB,.108E-02_JPRB,.136E-02_JPRB,.158E-02_JPRB,.205E-02_JPRB,&
+&.276E-02_JPRB,.339E-02_JPRB,.389E-02_JPRB,.435E-02_JPRB,.490E-02_JPRB,.565E-02_JPRB,.633E-02_JPRB,&
+&.677E-02_JPRB,.758E-02_JPRB,.845E-02_JPRB,.927E-02_JPRB,.101E-01_JPRB,.100E-01_JPRB,.844E-02_JPRB,&
+&.678E-02_JPRB,.427E-02_JPRB,.272E-02_JPRB,.272E-02_JPRB,.414E-02_JPRB,.668E-02_JPRB,.102E-01_JPRB,&
+&.133E-01_JPRB,.111E-01_JPRB,.819E-02_JPRB,.774E-02_JPRB,.773E-02_JPRB,.746E-02_JPRB,.702E-02_JPRB,&
+&.666E-02_JPRB,.618E-02_JPRB,.565E-02_JPRB,.519E-02_JPRB,.420E-02_JPRB,.309E-02_JPRB,.258E-02_JPRB,&
+&.206E-02_JPRB,.166E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.159E-02_JPRB,.196E-02_JPRB,.286E-02_JPRB,&
+&.431E-02_JPRB,.715E-02_JPRB,.121E-01_JPRB,.162E-01_JPRB,.170E-01_JPRB,.165E-01_JPRB,.147E-01_JPRB,&
+&.122E-01_JPRB,.898E-02_JPRB,.803E-02_JPRB,.805E-02_JPRB,.595E-02_JPRB,.418E-02_JPRB,.330E-02_JPRB,&
+&.182E-02_JPRB,.840E-03_JPRB,.499E-03_JPRB,.659E-03_JPRB,.727E-03_JPRB,.776E-03_JPRB,.931E-03_JPRB,&
+&.845E-03_JPRB,.754E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 22   6.0
+ZAER (:,22, 2) = (/&
+&.748E-03_JPRB,.867E-03_JPRB,.106E-02_JPRB,.133E-02_JPRB,.168E-02_JPRB,.220E-02_JPRB,.291E-02_JPRB,&
+&.358E-02_JPRB,.413E-02_JPRB,.467E-02_JPRB,.523E-02_JPRB,.592E-02_JPRB,.677E-02_JPRB,.741E-02_JPRB,&
+&.762E-02_JPRB,.783E-02_JPRB,.797E-02_JPRB,.832E-02_JPRB,.911E-02_JPRB,.956E-02_JPRB,.793E-02_JPRB,&
+&.587E-02_JPRB,.417E-02_JPRB,.342E-02_JPRB,.338E-02_JPRB,.448E-02_JPRB,.677E-02_JPRB,.106E-01_JPRB,&
+&.135E-01_JPRB,.116E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,.970E-02_JPRB,.910E-02_JPRB,&
+&.824E-02_JPRB,.704E-02_JPRB,.637E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.594E-02_JPRB,.546E-02_JPRB,&
+&.465E-02_JPRB,.365E-02_JPRB,.281E-02_JPRB,.235E-02_JPRB,.232E-02_JPRB,.251E-02_JPRB,.267E-02_JPRB,&
+&.282E-02_JPRB,.320E-02_JPRB,.408E-02_JPRB,.452E-02_JPRB,.409E-02_JPRB,.350E-02_JPRB,.307E-02_JPRB,&
+&.262E-02_JPRB,.189E-02_JPRB,.133E-02_JPRB,.117E-02_JPRB,.105E-02_JPRB,.849E-03_JPRB,.605E-03_JPRB,&
+&.467E-03_JPRB,.396E-03_JPRB,.427E-03_JPRB,.550E-03_JPRB,.625E-03_JPRB,.685E-03_JPRB,.706E-03_JPRB,&
+&.677E-03_JPRB,.667E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 23   2.0
+ZAER (:,23, 2) = (/&
+&.121E-02_JPRB,.128E-02_JPRB,.142E-02_JPRB,.168E-02_JPRB,.218E-02_JPRB,.297E-02_JPRB,.387E-02_JPRB,&
+&.462E-02_JPRB,.531E-02_JPRB,.622E-02_JPRB,.710E-02_JPRB,.767E-02_JPRB,.832E-02_JPRB,.893E-02_JPRB,&
+&.949E-02_JPRB,.100E-01_JPRB,.108E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,.129E-01_JPRB,.120E-01_JPRB,&
+&.104E-01_JPRB,.833E-02_JPRB,.747E-02_JPRB,.674E-02_JPRB,.677E-02_JPRB,.805E-02_JPRB,.112E-01_JPRB,&
+&.140E-01_JPRB,.152E-01_JPRB,.164E-01_JPRB,.169E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,&
+&.155E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.143E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,.157E-01_JPRB,&
+&.160E-01_JPRB,.143E-01_JPRB,.107E-01_JPRB,.611E-02_JPRB,.388E-02_JPRB,.364E-02_JPRB,.328E-02_JPRB,&
+&.285E-02_JPRB,.243E-02_JPRB,.214E-02_JPRB,.178E-02_JPRB,.150E-02_JPRB,.123E-02_JPRB,.103E-02_JPRB,&
+&.817E-03_JPRB,.627E-03_JPRB,.582E-03_JPRB,.606E-03_JPRB,.593E-03_JPRB,.562E-03_JPRB,.624E-03_JPRB,&
+&.767E-03_JPRB,.877E-03_JPRB,.103E-02_JPRB,.122E-02_JPRB,.136E-02_JPRB,.141E-02_JPRB,.134E-02_JPRB,&
+&.126E-02_JPRB,.118E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 24  -2.0
+ZAER (:,24, 2) = (/&
+&.310E-02_JPRB,.282E-02_JPRB,.268E-02_JPRB,.278E-02_JPRB,.308E-02_JPRB,.373E-02_JPRB,.477E-02_JPRB,&
+&.602E-02_JPRB,.747E-02_JPRB,.917E-02_JPRB,.108E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,.137E-01_JPRB,&
+&.154E-01_JPRB,.162E-01_JPRB,.171E-01_JPRB,.182E-01_JPRB,.192E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,&
+&.199E-01_JPRB,.195E-01_JPRB,.190E-01_JPRB,.177E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.197E-01_JPRB,&
+&.242E-01_JPRB,.277E-01_JPRB,.300E-01_JPRB,.301E-01_JPRB,.301E-01_JPRB,.303E-01_JPRB,.302E-01_JPRB,&
+&.294E-01_JPRB,.294E-01_JPRB,.304E-01_JPRB,.327E-01_JPRB,.357E-01_JPRB,.384E-01_JPRB,.426E-01_JPRB,&
+&.461E-01_JPRB,.432E-01_JPRB,.363E-01_JPRB,.266E-01_JPRB,.142E-01_JPRB,.940E-02_JPRB,.827E-02_JPRB,&
+&.728E-02_JPRB,.627E-02_JPRB,.521E-02_JPRB,.422E-02_JPRB,.352E-02_JPRB,.303E-02_JPRB,.254E-02_JPRB,&
+&.178E-02_JPRB,.113E-02_JPRB,.105E-02_JPRB,.109E-02_JPRB,.117E-02_JPRB,.132E-02_JPRB,.157E-02_JPRB,&
+&.194E-02_JPRB,.227E-02_JPRB,.261E-02_JPRB,.300E-02_JPRB,.342E-02_JPRB,.369E-02_JPRB,.369E-02_JPRB,&
+&.362E-02_JPRB,.336E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 25  -6.0
+ZAER (:,25, 2) = (/&
+&.665E-02_JPRB,.582E-02_JPRB,.503E-02_JPRB,.462E-02_JPRB,.473E-02_JPRB,.544E-02_JPRB,.674E-02_JPRB,&
+&.839E-02_JPRB,.103E-01_JPRB,.124E-01_JPRB,.147E-01_JPRB,.162E-01_JPRB,.178E-01_JPRB,.205E-01_JPRB,&
+&.228E-01_JPRB,.242E-01_JPRB,.261E-01_JPRB,.283E-01_JPRB,.303E-01_JPRB,.317E-01_JPRB,.332E-01_JPRB,&
+&.337E-01_JPRB,.341E-01_JPRB,.347E-01_JPRB,.364E-01_JPRB,.372E-01_JPRB,.395E-01_JPRB,.438E-01_JPRB,&
+&.505E-01_JPRB,.586E-01_JPRB,.664E-01_JPRB,.699E-01_JPRB,.688E-01_JPRB,.639E-01_JPRB,.607E-01_JPRB,&
+&.568E-01_JPRB,.552E-01_JPRB,.555E-01_JPRB,.572E-01_JPRB,.616E-01_JPRB,.664E-01_JPRB,.703E-01_JPRB,&
+&.752E-01_JPRB,.773E-01_JPRB,.709E-01_JPRB,.628E-01_JPRB,.417E-01_JPRB,.254E-01_JPRB,.220E-01_JPRB,&
+&.198E-01_JPRB,.181E-01_JPRB,.159E-01_JPRB,.134E-01_JPRB,.112E-01_JPRB,.950E-02_JPRB,.844E-02_JPRB,&
+&.702E-02_JPRB,.525E-02_JPRB,.367E-02_JPRB,.275E-02_JPRB,.240E-02_JPRB,.252E-02_JPRB,.294E-02_JPRB,&
+&.360E-02_JPRB,.426E-02_JPRB,.486E-02_JPRB,.549E-02_JPRB,.622E-02_JPRB,.684E-02_JPRB,.714E-02_JPRB,&
+&.742E-02_JPRB,.722E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 26 -10.0
+ZAER (:,26, 2) = (/&
+&.105E-01_JPRB,.943E-02_JPRB,.807E-02_JPRB,.709E-02_JPRB,.683E-02_JPRB,.771E-02_JPRB,.919E-02_JPRB,&
+&.105E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,.155E-01_JPRB,.182E-01_JPRB,.214E-01_JPRB,.250E-01_JPRB,&
+&.281E-01_JPRB,.304E-01_JPRB,.327E-01_JPRB,.348E-01_JPRB,.368E-01_JPRB,.389E-01_JPRB,.413E-01_JPRB,&
+&.420E-01_JPRB,.415E-01_JPRB,.432E-01_JPRB,.467E-01_JPRB,.543E-01_JPRB,.666E-01_JPRB,.803E-01_JPRB,&
+&.921E-01_JPRB,.107E+00_JPRB,.121E+00_JPRB,.133E+00_JPRB,.141E+00_JPRB,.143E+00_JPRB,.148E+00_JPRB,&
+&.147E+00_JPRB,.132E+00_JPRB,.120E+00_JPRB,.113E+00_JPRB,.106E+00_JPRB,.104E+00_JPRB,.110E+00_JPRB,&
+&.113E+00_JPRB,.114E+00_JPRB,.112E+00_JPRB,.114E+00_JPRB,.793E-01_JPRB,.523E-01_JPRB,.478E-01_JPRB,&
+&.416E-01_JPRB,.368E-01_JPRB,.344E-01_JPRB,.322E-01_JPRB,.300E-01_JPRB,.255E-01_JPRB,.213E-01_JPRB,&
+&.183E-01_JPRB,.164E-01_JPRB,.139E-01_JPRB,.918E-02_JPRB,.571E-02_JPRB,.429E-02_JPRB,.473E-02_JPRB,&
+&.571E-02_JPRB,.673E-02_JPRB,.767E-02_JPRB,.856E-02_JPRB,.928E-02_JPRB,.982E-02_JPRB,.103E-01_JPRB,&
+&.107E-01_JPRB,.109E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 27 -14.0
+ZAER (:,27, 2) = (/&
+&.130E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.111E-01_JPRB,.124E-01_JPRB,&
+&.132E-01_JPRB,.141E-01_JPRB,.153E-01_JPRB,.167E-01_JPRB,.191E-01_JPRB,.215E-01_JPRB,.238E-01_JPRB,&
+&.268E-01_JPRB,.299E-01_JPRB,.328E-01_JPRB,.336E-01_JPRB,.337E-01_JPRB,.341E-01_JPRB,.345E-01_JPRB,&
+&.346E-01_JPRB,.357E-01_JPRB,.388E-01_JPRB,.448E-01_JPRB,.561E-01_JPRB,.703E-01_JPRB,.855E-01_JPRB,&
+&.101E+00_JPRB,.119E+00_JPRB,.135E+00_JPRB,.149E+00_JPRB,.166E+00_JPRB,.185E+00_JPRB,.211E+00_JPRB,&
+&.248E+00_JPRB,.259E+00_JPRB,.207E+00_JPRB,.168E+00_JPRB,.172E+00_JPRB,.152E+00_JPRB,.139E+00_JPRB,&
+&.144E+00_JPRB,.156E+00_JPRB,.168E+00_JPRB,.187E+00_JPRB,.157E+00_JPRB,.929E-01_JPRB,.775E-01_JPRB,&
+&.671E-01_JPRB,.573E-01_JPRB,.533E-01_JPRB,.488E-01_JPRB,.445E-01_JPRB,.409E-01_JPRB,.363E-01_JPRB,&
+&.332E-01_JPRB,.294E-01_JPRB,.243E-01_JPRB,.196E-01_JPRB,.144E-01_JPRB,.811E-02_JPRB,.623E-02_JPRB,&
+&.686E-02_JPRB,.794E-02_JPRB,.901E-02_JPRB,.100E-01_JPRB,.108E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,&
+&.119E-01_JPRB,.125E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 28 -18.0
+ZAER (:,28, 2) = (/&
+&.151E-01_JPRB,.162E-01_JPRB,.166E-01_JPRB,.153E-01_JPRB,.139E-01_JPRB,.145E-01_JPRB,.156E-01_JPRB,&
+&.157E-01_JPRB,.160E-01_JPRB,.171E-01_JPRB,.188E-01_JPRB,.211E-01_JPRB,.235E-01_JPRB,.247E-01_JPRB,&
+&.258E-01_JPRB,.305E-01_JPRB,.369E-01_JPRB,.382E-01_JPRB,.375E-01_JPRB,.356E-01_JPRB,.329E-01_JPRB,&
+&.306E-01_JPRB,.298E-01_JPRB,.314E-01_JPRB,.371E-01_JPRB,.474E-01_JPRB,.591E-01_JPRB,.725E-01_JPRB,&
+&.878E-01_JPRB,.100E+00_JPRB,.115E+00_JPRB,.130E+00_JPRB,.144E+00_JPRB,.153E+00_JPRB,.163E+00_JPRB,&
+&.163E+00_JPRB,.148E+00_JPRB,.146E+00_JPRB,.134E+00_JPRB,.137E+00_JPRB,.131E+00_JPRB,.127E+00_JPRB,&
+&.136E+00_JPRB,.152E+00_JPRB,.202E+00_JPRB,.251E+00_JPRB,.208E+00_JPRB,.139E+00_JPRB,.107E+00_JPRB,&
+&.954E-01_JPRB,.813E-01_JPRB,.743E-01_JPRB,.675E-01_JPRB,.570E-01_JPRB,.515E-01_JPRB,.494E-01_JPRB,&
+&.474E-01_JPRB,.419E-01_JPRB,.351E-01_JPRB,.293E-01_JPRB,.237E-01_JPRB,.161E-01_JPRB,.109E-01_JPRB,&
+&.893E-02_JPRB,.908E-02_JPRB,.101E-01_JPRB,.113E-01_JPRB,.126E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,&
+&.136E-01_JPRB,.140E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 29 -22.0
+ZAER (:,29, 2) = (/&
+&.177E-01_JPRB,.184E-01_JPRB,.189E-01_JPRB,.183E-01_JPRB,.168E-01_JPRB,.169E-01_JPRB,.176E-01_JPRB,&
+&.171E-01_JPRB,.171E-01_JPRB,.180E-01_JPRB,.197E-01_JPRB,.217E-01_JPRB,.242E-01_JPRB,.294E-01_JPRB,&
+&.323E-01_JPRB,.340E-01_JPRB,.439E-01_JPRB,.447E-01_JPRB,.462E-01_JPRB,.468E-01_JPRB,.371E-01_JPRB,&
+&.291E-01_JPRB,.283E-01_JPRB,.274E-01_JPRB,.289E-01_JPRB,.352E-01_JPRB,.457E-01_JPRB,.562E-01_JPRB,&
+&.647E-01_JPRB,.722E-01_JPRB,.808E-01_JPRB,.874E-01_JPRB,.922E-01_JPRB,.900E-01_JPRB,.980E-01_JPRB,&
+&.123E+00_JPRB,.110E+00_JPRB,.100E+00_JPRB,.104E+00_JPRB,.108E+00_JPRB,.100E+00_JPRB,.987E-01_JPRB,&
+&.113E+00_JPRB,.130E+00_JPRB,.182E+00_JPRB,.199E+00_JPRB,.136E+00_JPRB,.124E+00_JPRB,.110E+00_JPRB,&
+&.114E+00_JPRB,.101E+00_JPRB,.849E-01_JPRB,.744E-01_JPRB,.665E-01_JPRB,.616E-01_JPRB,.576E-01_JPRB,&
+&.547E-01_JPRB,.511E-01_JPRB,.464E-01_JPRB,.403E-01_JPRB,.345E-01_JPRB,.272E-01_JPRB,.209E-01_JPRB,&
+&.165E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.141E-01_JPRB,.154E-01_JPRB,.165E-01_JPRB,&
+&.171E-01_JPRB,.176E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 30 -26.0
+ZAER (:,30, 2) = (/&
+&.220E-01_JPRB,.212E-01_JPRB,.206E-01_JPRB,.196E-01_JPRB,.182E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,&
+&.177E-01_JPRB,.176E-01_JPRB,.178E-01_JPRB,.180E-01_JPRB,.193E-01_JPRB,.236E-01_JPRB,.330E-01_JPRB,&
+&.380E-01_JPRB,.491E-01_JPRB,.696E-01_JPRB,.531E-01_JPRB,.411E-01_JPRB,.343E-01_JPRB,.297E-01_JPRB,&
+&.260E-01_JPRB,.248E-01_JPRB,.240E-01_JPRB,.241E-01_JPRB,.261E-01_JPRB,.338E-01_JPRB,.435E-01_JPRB,&
+&.472E-01_JPRB,.465E-01_JPRB,.427E-01_JPRB,.410E-01_JPRB,.480E-01_JPRB,.643E-01_JPRB,.810E-01_JPRB,&
+&.117E+00_JPRB,.154E+00_JPRB,.119E+00_JPRB,.964E-01_JPRB,.974E-01_JPRB,.815E-01_JPRB,.726E-01_JPRB,&
+&.810E-01_JPRB,.993E-01_JPRB,.134E+00_JPRB,.130E+00_JPRB,.856E-01_JPRB,.683E-01_JPRB,.737E-01_JPRB,&
+&.911E-01_JPRB,.101E+00_JPRB,.891E-01_JPRB,.774E-01_JPRB,.687E-01_JPRB,.618E-01_JPRB,.550E-01_JPRB,&
+&.517E-01_JPRB,.514E-01_JPRB,.517E-01_JPRB,.474E-01_JPRB,.429E-01_JPRB,.378E-01_JPRB,.324E-01_JPRB,&
+&.279E-01_JPRB,.239E-01_JPRB,.204E-01_JPRB,.188E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,.201E-01_JPRB,&
+&.217E-01_JPRB,.227E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 31 -30.0
+ZAER (:,31, 2) = (/&
+&.249E-01_JPRB,.224E-01_JPRB,.206E-01_JPRB,.193E-01_JPRB,.181E-01_JPRB,.178E-01_JPRB,.181E-01_JPRB,&
+&.174E-01_JPRB,.163E-01_JPRB,.154E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,.193E-01_JPRB,.332E-01_JPRB,&
+&.364E-01_JPRB,.552E-01_JPRB,.867E-01_JPRB,.599E-01_JPRB,.396E-01_JPRB,.299E-01_JPRB,.247E-01_JPRB,&
+&.216E-01_JPRB,.199E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,.234E-01_JPRB,.275E-01_JPRB,&
+&.315E-01_JPRB,.318E-01_JPRB,.295E-01_JPRB,.247E-01_JPRB,.269E-01_JPRB,.405E-01_JPRB,.432E-01_JPRB,&
+&.528E-01_JPRB,.857E-01_JPRB,.962E-01_JPRB,.927E-01_JPRB,.977E-01_JPRB,.720E-01_JPRB,.575E-01_JPRB,&
+&.695E-01_JPRB,.773E-01_JPRB,.858E-01_JPRB,.784E-01_JPRB,.505E-01_JPRB,.362E-01_JPRB,.354E-01_JPRB,&
+&.447E-01_JPRB,.587E-01_JPRB,.672E-01_JPRB,.615E-01_JPRB,.562E-01_JPRB,.507E-01_JPRB,.452E-01_JPRB,&
+&.425E-01_JPRB,.432E-01_JPRB,.497E-01_JPRB,.518E-01_JPRB,.472E-01_JPRB,.422E-01_JPRB,.376E-01_JPRB,&
+&.357E-01_JPRB,.335E-01_JPRB,.308E-01_JPRB,.288E-01_JPRB,.276E-01_JPRB,.269E-01_JPRB,.268E-01_JPRB,&
+&.270E-01_JPRB,.267E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 32 -34.0
+ZAER (:,32, 2) = (/&
+&.202E-01_JPRB,.182E-01_JPRB,.166E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,&
+&.146E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.146E-01_JPRB,.224E-01_JPRB,&
+&.247E-01_JPRB,.369E-01_JPRB,.515E-01_JPRB,.462E-01_JPRB,.332E-01_JPRB,.257E-01_JPRB,.214E-01_JPRB,&
+&.189E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.163E-01_JPRB,.181E-01_JPRB,&
+&.198E-01_JPRB,.209E-01_JPRB,.227E-01_JPRB,.198E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.135E-01_JPRB,&
+&.137E-01_JPRB,.184E-01_JPRB,.377E-01_JPRB,.570E-01_JPRB,.651E-01_JPRB,.534E-01_JPRB,.343E-01_JPRB,&
+&.318E-01_JPRB,.359E-01_JPRB,.472E-01_JPRB,.435E-01_JPRB,.359E-01_JPRB,.330E-01_JPRB,.264E-01_JPRB,&
+&.255E-01_JPRB,.341E-01_JPRB,.432E-01_JPRB,.445E-01_JPRB,.435E-01_JPRB,.420E-01_JPRB,.389E-01_JPRB,&
+&.366E-01_JPRB,.398E-01_JPRB,.540E-01_JPRB,.616E-01_JPRB,.548E-01_JPRB,.449E-01_JPRB,.360E-01_JPRB,&
+&.326E-01_JPRB,.313E-01_JPRB,.301E-01_JPRB,.291E-01_JPRB,.279E-01_JPRB,.266E-01_JPRB,.251E-01_JPRB,&
+&.240E-01_JPRB,.223E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 33 -38.0
+ZAER (:,33, 2) = (/&
+&.123E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.110E-01_JPRB,.102E-01_JPRB,.913E-02_JPRB,.806E-02_JPRB,.764E-02_JPRB,.908E-02_JPRB,.111E-01_JPRB,&
+&.125E-01_JPRB,.153E-01_JPRB,.215E-01_JPRB,.229E-01_JPRB,.193E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,&
+&.124E-01_JPRB,.104E-01_JPRB,.897E-02_JPRB,.861E-02_JPRB,.865E-02_JPRB,.963E-02_JPRB,.109E-01_JPRB,&
+&.122E-01_JPRB,.132E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,.126E-01_JPRB,.103E-01_JPRB,.948E-02_JPRB,&
+&.882E-02_JPRB,.866E-02_JPRB,.115E-01_JPRB,.243E-01_JPRB,.374E-01_JPRB,.378E-01_JPRB,.268E-01_JPRB,&
+&.186E-01_JPRB,.143E-01_JPRB,.205E-01_JPRB,.260E-01_JPRB,.297E-01_JPRB,.405E-01_JPRB,.282E-01_JPRB,&
+&.219E-01_JPRB,.216E-01_JPRB,.268E-01_JPRB,.336E-01_JPRB,.352E-01_JPRB,.334E-01_JPRB,.322E-01_JPRB,&
+&.321E-01_JPRB,.440E-01_JPRB,.686E-01_JPRB,.799E-01_JPRB,.649E-01_JPRB,.477E-01_JPRB,.336E-01_JPRB,&
+&.260E-01_JPRB,.242E-01_JPRB,.235E-01_JPRB,.224E-01_JPRB,.207E-01_JPRB,.189E-01_JPRB,.170E-01_JPRB,&
+&.152E-01_JPRB,.135E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 34 -42.0
+ZAER (:,34, 2) = (/&
+&.684E-02_JPRB,.701E-02_JPRB,.729E-02_JPRB,.749E-02_JPRB,.785E-02_JPRB,.838E-02_JPRB,.870E-02_JPRB,&
+&.843E-02_JPRB,.792E-02_JPRB,.698E-02_JPRB,.595E-02_JPRB,.545E-02_JPRB,.539E-02_JPRB,.550E-02_JPRB,&
+&.598E-02_JPRB,.599E-02_JPRB,.784E-02_JPRB,.922E-02_JPRB,.815E-02_JPRB,.652E-02_JPRB,.545E-02_JPRB,&
+&.481E-02_JPRB,.454E-02_JPRB,.437E-02_JPRB,.439E-02_JPRB,.457E-02_JPRB,.513E-02_JPRB,.604E-02_JPRB,&
+&.720E-02_JPRB,.826E-02_JPRB,.955E-02_JPRB,.111E-01_JPRB,.106E-01_JPRB,.925E-02_JPRB,.825E-02_JPRB,&
+&.753E-02_JPRB,.717E-02_JPRB,.677E-02_JPRB,.960E-02_JPRB,.168E-01_JPRB,.238E-01_JPRB,.220E-01_JPRB,&
+&.173E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.154E-01_JPRB,.383E-01_JPRB,.825E-01_JPRB,.383E-01_JPRB,&
+&.267E-01_JPRB,.233E-01_JPRB,.223E-01_JPRB,.273E-01_JPRB,.294E-01_JPRB,.292E-01_JPRB,.350E-01_JPRB,&
+&.595E-01_JPRB,.102E+00_JPRB,.105E+00_JPRB,.847E-01_JPRB,.642E-01_JPRB,.502E-01_JPRB,.405E-01_JPRB,&
+&.293E-01_JPRB,.220E-01_JPRB,.174E-01_JPRB,.142E-01_JPRB,.119E-01_JPRB,.103E-01_JPRB,.869E-02_JPRB,&
+&.742E-02_JPRB,.687E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 35 -46.0
+ZAER (:,35, 2) = (/&
+&.399E-02_JPRB,.441E-02_JPRB,.496E-02_JPRB,.532E-02_JPRB,.575E-02_JPRB,.648E-02_JPRB,.680E-02_JPRB,&
+&.663E-02_JPRB,.633E-02_JPRB,.584E-02_JPRB,.509E-02_JPRB,.444E-02_JPRB,.411E-02_JPRB,.396E-02_JPRB,&
+&.389E-02_JPRB,.382E-02_JPRB,.415E-02_JPRB,.389E-02_JPRB,.355E-02_JPRB,.333E-02_JPRB,.312E-02_JPRB,&
+&.294E-02_JPRB,.282E-02_JPRB,.274E-02_JPRB,.281E-02_JPRB,.296E-02_JPRB,.312E-02_JPRB,.352E-02_JPRB,&
+&.425E-02_JPRB,.497E-02_JPRB,.596E-02_JPRB,.712E-02_JPRB,.783E-02_JPRB,.759E-02_JPRB,.714E-02_JPRB,&
+&.673E-02_JPRB,.634E-02_JPRB,.607E-02_JPRB,.572E-02_JPRB,.743E-02_JPRB,.119E-01_JPRB,.151E-01_JPRB,&
+&.154E-01_JPRB,.138E-01_JPRB,.123E-01_JPRB,.142E-01_JPRB,.515E-01_JPRB,.109E+00_JPRB,.512E-01_JPRB,&
+&.319E-01_JPRB,.302E-01_JPRB,.293E-01_JPRB,.323E-01_JPRB,.288E-01_JPRB,.263E-01_JPRB,.341E-01_JPRB,&
+&.543E-01_JPRB,.835E-01_JPRB,.768E-01_JPRB,.487E-01_JPRB,.340E-01_JPRB,.245E-01_JPRB,.201E-01_JPRB,&
+&.159E-01_JPRB,.111E-01_JPRB,.802E-02_JPRB,.577E-02_JPRB,.434E-02_JPRB,.385E-02_JPRB,.341E-02_JPRB,&
+&.331E-02_JPRB,.349E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 36 -50.0
+ZAER (:,36, 2) = (/&
+&.295E-02_JPRB,.326E-02_JPRB,.368E-02_JPRB,.401E-02_JPRB,.447E-02_JPRB,.512E-02_JPRB,.544E-02_JPRB,&
+&.535E-02_JPRB,.512E-02_JPRB,.485E-02_JPRB,.444E-02_JPRB,.389E-02_JPRB,.348E-02_JPRB,.319E-02_JPRB,&
+&.291E-02_JPRB,.265E-02_JPRB,.250E-02_JPRB,.246E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,.247E-02_JPRB,&
+&.247E-02_JPRB,.238E-02_JPRB,.233E-02_JPRB,.228E-02_JPRB,.227E-02_JPRB,.243E-02_JPRB,.271E-02_JPRB,&
+&.297E-02_JPRB,.327E-02_JPRB,.377E-02_JPRB,.429E-02_JPRB,.479E-02_JPRB,.513E-02_JPRB,.515E-02_JPRB,&
+&.494E-02_JPRB,.481E-02_JPRB,.489E-02_JPRB,.456E-02_JPRB,.453E-02_JPRB,.584E-02_JPRB,.783E-02_JPRB,&
+&.103E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.147E-01_JPRB,.544E-01_JPRB,.100E+00_JPRB,.568E-01_JPRB,&
+&.396E-01_JPRB,.370E-01_JPRB,.400E-01_JPRB,.325E-01_JPRB,.233E-01_JPRB,.200E-01_JPRB,.216E-01_JPRB,&
+&.289E-01_JPRB,.357E-01_JPRB,.285E-01_JPRB,.187E-01_JPRB,.123E-01_JPRB,.655E-02_JPRB,.448E-02_JPRB,&
+&.431E-02_JPRB,.377E-02_JPRB,.344E-02_JPRB,.288E-02_JPRB,.252E-02_JPRB,.241E-02_JPRB,.232E-02_JPRB,&
+&.232E-02_JPRB,.258E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 37 -54.0
+ZAER (:,37, 2) = (/&
+&.270E-02_JPRB,.278E-02_JPRB,.309E-02_JPRB,.336E-02_JPRB,.374E-02_JPRB,.419E-02_JPRB,.446E-02_JPRB,&
+&.447E-02_JPRB,.439E-02_JPRB,.420E-02_JPRB,.395E-02_JPRB,.351E-02_JPRB,.308E-02_JPRB,.277E-02_JPRB,&
+&.251E-02_JPRB,.230E-02_JPRB,.219E-02_JPRB,.214E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.208E-02_JPRB,&
+&.211E-02_JPRB,.212E-02_JPRB,.213E-02_JPRB,.202E-02_JPRB,.194E-02_JPRB,.204E-02_JPRB,.235E-02_JPRB,&
+&.242E-02_JPRB,.261E-02_JPRB,.275E-02_JPRB,.273E-02_JPRB,.292E-02_JPRB,.315E-02_JPRB,.328E-02_JPRB,&
+&.323E-02_JPRB,.321E-02_JPRB,.344E-02_JPRB,.341E-02_JPRB,.318E-02_JPRB,.364E-02_JPRB,.447E-02_JPRB,&
+&.590E-02_JPRB,.799E-02_JPRB,.993E-02_JPRB,.152E-01_JPRB,.430E-01_JPRB,.799E-01_JPRB,.694E-01_JPRB,&
+&.571E-01_JPRB,.494E-01_JPRB,.428E-01_JPRB,.295E-01_JPRB,.218E-01_JPRB,.187E-01_JPRB,.167E-01_JPRB,&
+&.152E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,.861E-02_JPRB,.488E-02_JPRB,.313E-02_JPRB,.250E-02_JPRB,&
+&.228E-02_JPRB,.221E-02_JPRB,.225E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,.217E-02_JPRB,.225E-02_JPRB,&
+&.243E-02_JPRB,.261E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 38 -58.0
+ZAER (:,38, 2) = (/&
+&.270E-02_JPRB,.264E-02_JPRB,.265E-02_JPRB,.299E-02_JPRB,.333E-02_JPRB,.356E-02_JPRB,.375E-02_JPRB,&
+&.380E-02_JPRB,.385E-02_JPRB,.379E-02_JPRB,.364E-02_JPRB,.335E-02_JPRB,.303E-02_JPRB,.278E-02_JPRB,&
+&.256E-02_JPRB,.234E-02_JPRB,.221E-02_JPRB,.204E-02_JPRB,.190E-02_JPRB,.193E-02_JPRB,.200E-02_JPRB,&
+&.195E-02_JPRB,.196E-02_JPRB,.200E-02_JPRB,.189E-02_JPRB,.181E-02_JPRB,.188E-02_JPRB,.209E-02_JPRB,&
+&.225E-02_JPRB,.256E-02_JPRB,.272E-02_JPRB,.258E-02_JPRB,.251E-02_JPRB,.243E-02_JPRB,.238E-02_JPRB,&
+&.235E-02_JPRB,.244E-02_JPRB,.267E-02_JPRB,.272E-02_JPRB,.253E-02_JPRB,.262E-02_JPRB,.322E-02_JPRB,&
+&.409E-02_JPRB,.575E-02_JPRB,.937E-02_JPRB,.137E-01_JPRB,.237E-01_JPRB,.450E-01_JPRB,.549E-01_JPRB,&
+&.492E-01_JPRB,.369E-01_JPRB,.295E-01_JPRB,.238E-01_JPRB,.212E-01_JPRB,.201E-01_JPRB,.192E-01_JPRB,&
+&.167E-01_JPRB,.125E-01_JPRB,.892E-02_JPRB,.517E-02_JPRB,.358E-02_JPRB,.260E-02_JPRB,.218E-02_JPRB,&
+&.198E-02_JPRB,.194E-02_JPRB,.197E-02_JPRB,.201E-02_JPRB,.209E-02_JPRB,.220E-02_JPRB,.233E-02_JPRB,&
+&.250E-02_JPRB,.265E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 39 -62.0
+ZAER (:,39, 2) = (/&
+&.276E-02_JPRB,.268E-02_JPRB,.260E-02_JPRB,.276E-02_JPRB,.312E-02_JPRB,.340E-02_JPRB,.350E-02_JPRB,&
+&.347E-02_JPRB,.345E-02_JPRB,.338E-02_JPRB,.322E-02_JPRB,.298E-02_JPRB,.272E-02_JPRB,.254E-02_JPRB,&
+&.237E-02_JPRB,.220E-02_JPRB,.208E-02_JPRB,.197E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.202E-02_JPRB,&
+&.209E-02_JPRB,.207E-02_JPRB,.209E-02_JPRB,.196E-02_JPRB,.180E-02_JPRB,.199E-02_JPRB,.224E-02_JPRB,&
+&.247E-02_JPRB,.287E-02_JPRB,.304E-02_JPRB,.278E-02_JPRB,.234E-02_JPRB,.203E-02_JPRB,.196E-02_JPRB,&
+&.198E-02_JPRB,.209E-02_JPRB,.218E-02_JPRB,.230E-02_JPRB,.238E-02_JPRB,.267E-02_JPRB,.351E-02_JPRB,&
+&.589E-02_JPRB,.733E-02_JPRB,.880E-02_JPRB,.967E-02_JPRB,.127E-01_JPRB,.190E-01_JPRB,.232E-01_JPRB,&
+&.233E-01_JPRB,.228E-01_JPRB,.239E-01_JPRB,.214E-01_JPRB,.204E-01_JPRB,.210E-01_JPRB,.209E-01_JPRB,&
+&.173E-01_JPRB,.109E-01_JPRB,.518E-02_JPRB,.288E-02_JPRB,.256E-02_JPRB,.242E-02_JPRB,.238E-02_JPRB,&
+&.229E-02_JPRB,.228E-02_JPRB,.231E-02_JPRB,.234E-02_JPRB,.241E-02_JPRB,.248E-02_JPRB,.258E-02_JPRB,&
+&.272E-02_JPRB,.280E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 40 -66.0
+ZAER (:,40, 2) = (/&
+&.271E-02_JPRB,.261E-02_JPRB,.259E-02_JPRB,.266E-02_JPRB,.284E-02_JPRB,.299E-02_JPRB,.306E-02_JPRB,&
+&.307E-02_JPRB,.302E-02_JPRB,.295E-02_JPRB,.280E-02_JPRB,.263E-02_JPRB,.244E-02_JPRB,.230E-02_JPRB,&
+&.216E-02_JPRB,.207E-02_JPRB,.196E-02_JPRB,.190E-02_JPRB,.187E-02_JPRB,.184E-02_JPRB,.195E-02_JPRB,&
+&.212E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.210E-02_JPRB,.206E-02_JPRB,.222E-02_JPRB,.247E-02_JPRB,&
+&.261E-02_JPRB,.324E-02_JPRB,.359E-02_JPRB,.342E-02_JPRB,.294E-02_JPRB,.239E-02_JPRB,.202E-02_JPRB,&
+&.189E-02_JPRB,.198E-02_JPRB,.213E-02_JPRB,.235E-02_JPRB,.267E-02_JPRB,.316E-02_JPRB,.532E-02_JPRB,&
+&.776E-02_JPRB,.856E-02_JPRB,.842E-02_JPRB,.784E-02_JPRB,.946E-02_JPRB,.136E-01_JPRB,.175E-01_JPRB,&
+&.209E-01_JPRB,.208E-01_JPRB,.207E-01_JPRB,.187E-01_JPRB,.191E-01_JPRB,.209E-01_JPRB,.194E-01_JPRB,&
+&.126E-01_JPRB,.702E-02_JPRB,.341E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.272E-02_JPRB,.269E-02_JPRB,&
+&.268E-02_JPRB,.266E-02_JPRB,.265E-02_JPRB,.263E-02_JPRB,.261E-02_JPRB,.263E-02_JPRB,.268E-02_JPRB,&
+&.276E-02_JPRB,.279E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 41 -70.0
+ZAER (:,41, 2) = (/&
+&.257E-02_JPRB,.244E-02_JPRB,.241E-02_JPRB,.244E-02_JPRB,.248E-02_JPRB,.250E-02_JPRB,.249E-02_JPRB,&
+&.247E-02_JPRB,.243E-02_JPRB,.237E-02_JPRB,.230E-02_JPRB,.224E-02_JPRB,.216E-02_JPRB,.206E-02_JPRB,&
+&.200E-02_JPRB,.194E-02_JPRB,.184E-02_JPRB,.181E-02_JPRB,.184E-02_JPRB,.187E-02_JPRB,.194E-02_JPRB,&
+&.207E-02_JPRB,.215E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.223E-02_JPRB,.232E-02_JPRB,.227E-02_JPRB,&
+&.235E-02_JPRB,.291E-02_JPRB,.368E-02_JPRB,.403E-02_JPRB,.400E-02_JPRB,.356E-02_JPRB,.315E-02_JPRB,&
+&.298E-02_JPRB,.307E-02_JPRB,.346E-02_JPRB,.420E-02_JPRB,.518E-02_JPRB,.610E-02_JPRB,.691E-02_JPRB,&
+&.725E-02_JPRB,.725E-02_JPRB,.712E-02_JPRB,.780E-02_JPRB,.922E-02_JPRB,.119E-01_JPRB,.147E-01_JPRB,&
+&.152E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,.136E-01_JPRB,.138E-01_JPRB,.128E-01_JPRB,.962E-02_JPRB,&
+&.739E-02_JPRB,.545E-02_JPRB,.370E-02_JPRB,.329E-02_JPRB,.310E-02_JPRB,.301E-02_JPRB,.294E-02_JPRB,&
+&.285E-02_JPRB,.279E-02_JPRB,.275E-02_JPRB,.270E-02_JPRB,.268E-02_JPRB,.269E-02_JPRB,.273E-02_JPRB,&
+&.273E-02_JPRB,.269E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 42 -74.0
+ZAER (:,42, 2) = (/&
+&.236E-02_JPRB,.227E-02_JPRB,.218E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,&
+&.207E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,&
+&.184E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.188E-02_JPRB,.196E-02_JPRB,.203E-02_JPRB,&
+&.212E-02_JPRB,.218E-02_JPRB,.225E-02_JPRB,.234E-02_JPRB,.238E-02_JPRB,.234E-02_JPRB,.223E-02_JPRB,&
+&.233E-02_JPRB,.280E-02_JPRB,.356E-02_JPRB,.436E-02_JPRB,.491E-02_JPRB,.505E-02_JPRB,.493E-02_JPRB,&
+&.486E-02_JPRB,.487E-02_JPRB,.514E-02_JPRB,.564E-02_JPRB,.614E-02_JPRB,.641E-02_JPRB,.632E-02_JPRB,&
+&.629E-02_JPRB,.654E-02_JPRB,.736E-02_JPRB,.856E-02_JPRB,.971E-02_JPRB,.108E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.984E-02_JPRB,.899E-02_JPRB,.765E-02_JPRB,.629E-02_JPRB,&
+&.543E-02_JPRB,.464E-02_JPRB,.420E-02_JPRB,.391E-02_JPRB,.352E-02_JPRB,.329E-02_JPRB,.313E-02_JPRB,&
+&.297E-02_JPRB,.283E-02_JPRB,.278E-02_JPRB,.273E-02_JPRB,.271E-02_JPRB,.269E-02_JPRB,.265E-02_JPRB,&
+&.257E-02_JPRB,.248E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 43 -78.0
+ZAER (:,43, 2) = (/&
+&.220E-02_JPRB,.212E-02_JPRB,.204E-02_JPRB,.197E-02_JPRB,.193E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,&
+&.189E-02_JPRB,.187E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,&
+&.183E-02_JPRB,.186E-02_JPRB,.189E-02_JPRB,.192E-02_JPRB,.194E-02_JPRB,.200E-02_JPRB,.209E-02_JPRB,&
+&.218E-02_JPRB,.225E-02_JPRB,.229E-02_JPRB,.237E-02_JPRB,.233E-02_JPRB,.224E-02_JPRB,.227E-02_JPRB,&
+&.238E-02_JPRB,.266E-02_JPRB,.318E-02_JPRB,.429E-02_JPRB,.515E-02_JPRB,.568E-02_JPRB,.595E-02_JPRB,&
+&.623E-02_JPRB,.646E-02_JPRB,.661E-02_JPRB,.668E-02_JPRB,.676E-02_JPRB,.683E-02_JPRB,.692E-02_JPRB,&
+&.722E-02_JPRB,.772E-02_JPRB,.817E-02_JPRB,.848E-02_JPRB,.870E-02_JPRB,.886E-02_JPRB,.880E-02_JPRB,&
+&.833E-02_JPRB,.764E-02_JPRB,.711E-02_JPRB,.667E-02_JPRB,.635E-02_JPRB,.617E-02_JPRB,.557E-02_JPRB,&
+&.469E-02_JPRB,.400E-02_JPRB,.383E-02_JPRB,.387E-02_JPRB,.384E-02_JPRB,.357E-02_JPRB,.351E-02_JPRB,&
+&.344E-02_JPRB,.327E-02_JPRB,.315E-02_JPRB,.304E-02_JPRB,.292E-02_JPRB,.276E-02_JPRB,.259E-02_JPRB,&
+&.244E-02_JPRB,.231E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 44 -82.0
+ZAER (:,44, 2) = (/&
+&.232E-02_JPRB,.223E-02_JPRB,.215E-02_JPRB,.208E-02_JPRB,.202E-02_JPRB,.198E-02_JPRB,.196E-02_JPRB,&
+&.193E-02_JPRB,.191E-02_JPRB,.189E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.189E-02_JPRB,.190E-02_JPRB,&
+&.192E-02_JPRB,.194E-02_JPRB,.197E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.207E-02_JPRB,.214E-02_JPRB,&
+&.219E-02_JPRB,.221E-02_JPRB,.223E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,.234E-02_JPRB,.246E-02_JPRB,&
+&.264E-02_JPRB,.289E-02_JPRB,.332E-02_JPRB,.406E-02_JPRB,.477E-02_JPRB,.515E-02_JPRB,.528E-02_JPRB,&
+&.532E-02_JPRB,.538E-02_JPRB,.549E-02_JPRB,.568E-02_JPRB,.582E-02_JPRB,.584E-02_JPRB,.583E-02_JPRB,&
+&.585E-02_JPRB,.589E-02_JPRB,.590E-02_JPRB,.601E-02_JPRB,.612E-02_JPRB,.613E-02_JPRB,.594E-02_JPRB,&
+&.566E-02_JPRB,.541E-02_JPRB,.521E-02_JPRB,.505E-02_JPRB,.493E-02_JPRB,.471E-02_JPRB,.443E-02_JPRB,&
+&.433E-02_JPRB,.422E-02_JPRB,.412E-02_JPRB,.406E-02_JPRB,.402E-02_JPRB,.393E-02_JPRB,.381E-02_JPRB,&
+&.370E-02_JPRB,.357E-02_JPRB,.342E-02_JPRB,.326E-02_JPRB,.307E-02_JPRB,.283E-02_JPRB,.264E-02_JPRB,&
+&.251E-02_JPRB,.241E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 45 -86.0
+ZAER (:,45, 2) = (/&
+&.321E-02_JPRB,.314E-02_JPRB,.305E-02_JPRB,.301E-02_JPRB,.296E-02_JPRB,.292E-02_JPRB,.287E-02_JPRB,&
+&.284E-02_JPRB,.282E-02_JPRB,.279E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.275E-02_JPRB,.276E-02_JPRB,&
+&.276E-02_JPRB,.276E-02_JPRB,.277E-02_JPRB,.281E-02_JPRB,.285E-02_JPRB,.289E-02_JPRB,.294E-02_JPRB,&
+&.299E-02_JPRB,.307E-02_JPRB,.318E-02_JPRB,.330E-02_JPRB,.342E-02_JPRB,.357E-02_JPRB,.372E-02_JPRB,&
+&.392E-02_JPRB,.412E-02_JPRB,.431E-02_JPRB,.446E-02_JPRB,.457E-02_JPRB,.463E-02_JPRB,.466E-02_JPRB,&
+&.462E-02_JPRB,.460E-02_JPRB,.456E-02_JPRB,.451E-02_JPRB,.449E-02_JPRB,.447E-02_JPRB,.445E-02_JPRB,&
+&.441E-02_JPRB,.435E-02_JPRB,.430E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.422E-02_JPRB,.417E-02_JPRB,&
+&.419E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.428E-02_JPRB,.431E-02_JPRB,.428E-02_JPRB,.426E-02_JPRB,&
+&.428E-02_JPRB,.430E-02_JPRB,.430E-02_JPRB,.425E-02_JPRB,.417E-02_JPRB,.407E-02_JPRB,.395E-02_JPRB,&
+&.383E-02_JPRB,.370E-02_JPRB,.360E-02_JPRB,.355E-02_JPRB,.349E-02_JPRB,.342E-02_JPRB,.339E-02_JPRB,&
+&.333E-02_JPRB,.326E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  2 --- lat: 46 -90.0
+ZAER (:,46, 2) = (/&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=2   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_02
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_03.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_03.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_03.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_03
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      March
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,3:3)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  1  90.0
+ZAER (:, 1, 3) = (/&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,.966E-03_JPRB,&
+&.966E-03_JPRB,.966E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  2  86.0
+ZAER (:, 2, 3) = (/&
+&.867E-03_JPRB,.856E-03_JPRB,.846E-03_JPRB,.830E-03_JPRB,.816E-03_JPRB,.804E-03_JPRB,.789E-03_JPRB,&
+&.783E-03_JPRB,.790E-03_JPRB,.802E-03_JPRB,.819E-03_JPRB,.837E-03_JPRB,.859E-03_JPRB,.880E-03_JPRB,&
+&.898E-03_JPRB,.918E-03_JPRB,.931E-03_JPRB,.943E-03_JPRB,.953E-03_JPRB,.965E-03_JPRB,.979E-03_JPRB,&
+&.982E-03_JPRB,.982E-03_JPRB,.999E-03_JPRB,.102E-02_JPRB,.103E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,&
+&.104E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.100E-02_JPRB,&
+&.965E-03_JPRB,.931E-03_JPRB,.909E-03_JPRB,.898E-03_JPRB,.894E-03_JPRB,.892E-03_JPRB,.892E-03_JPRB,&
+&.895E-03_JPRB,.898E-03_JPRB,.898E-03_JPRB,.904E-03_JPRB,.907E-03_JPRB,.906E-03_JPRB,.908E-03_JPRB,&
+&.911E-03_JPRB,.911E-03_JPRB,.908E-03_JPRB,.906E-03_JPRB,.904E-03_JPRB,.903E-03_JPRB,.903E-03_JPRB,&
+&.902E-03_JPRB,.901E-03_JPRB,.899E-03_JPRB,.894E-03_JPRB,.893E-03_JPRB,.889E-03_JPRB,.887E-03_JPRB,&
+&.890E-03_JPRB,.895E-03_JPRB,.897E-03_JPRB,.897E-03_JPRB,.899E-03_JPRB,.900E-03_JPRB,.898E-03_JPRB,&
+&.891E-03_JPRB,.879E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  3  82.0
+ZAER (:, 3, 3) = (/&
+&.649E-03_JPRB,.627E-03_JPRB,.615E-03_JPRB,.611E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.611E-03_JPRB,&
+&.611E-03_JPRB,.618E-03_JPRB,.638E-03_JPRB,.661E-03_JPRB,.685E-03_JPRB,.708E-03_JPRB,.728E-03_JPRB,&
+&.749E-03_JPRB,.775E-03_JPRB,.808E-03_JPRB,.838E-03_JPRB,.867E-03_JPRB,.896E-03_JPRB,.917E-03_JPRB,&
+&.927E-03_JPRB,.933E-03_JPRB,.945E-03_JPRB,.963E-03_JPRB,.982E-03_JPRB,.101E-02_JPRB,.104E-02_JPRB,&
+&.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,&
+&.109E-02_JPRB,.102E-02_JPRB,.944E-03_JPRB,.899E-03_JPRB,.880E-03_JPRB,.854E-03_JPRB,.821E-03_JPRB,&
+&.802E-03_JPRB,.799E-03_JPRB,.801E-03_JPRB,.802E-03_JPRB,.811E-03_JPRB,.825E-03_JPRB,.837E-03_JPRB,&
+&.846E-03_JPRB,.851E-03_JPRB,.859E-03_JPRB,.865E-03_JPRB,.858E-03_JPRB,.848E-03_JPRB,.840E-03_JPRB,&
+&.835E-03_JPRB,.829E-03_JPRB,.817E-03_JPRB,.805E-03_JPRB,.796E-03_JPRB,.783E-03_JPRB,.768E-03_JPRB,&
+&.761E-03_JPRB,.776E-03_JPRB,.804E-03_JPRB,.824E-03_JPRB,.821E-03_JPRB,.800E-03_JPRB,.771E-03_JPRB,&
+&.728E-03_JPRB,.683E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  4  78.0
+ZAER (:, 4, 3) = (/&
+&.598E-03_JPRB,.602E-03_JPRB,.603E-03_JPRB,.602E-03_JPRB,.600E-03_JPRB,.598E-03_JPRB,.601E-03_JPRB,&
+&.609E-03_JPRB,.620E-03_JPRB,.640E-03_JPRB,.664E-03_JPRB,.679E-03_JPRB,.671E-03_JPRB,.661E-03_JPRB,&
+&.672E-03_JPRB,.692E-03_JPRB,.721E-03_JPRB,.757E-03_JPRB,.801E-03_JPRB,.852E-03_JPRB,.876E-03_JPRB,&
+&.884E-03_JPRB,.890E-03_JPRB,.903E-03_JPRB,.910E-03_JPRB,.925E-03_JPRB,.961E-03_JPRB,.103E-02_JPRB,&
+&.113E-02_JPRB,.128E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,&
+&.120E-02_JPRB,.108E-02_JPRB,.946E-03_JPRB,.860E-03_JPRB,.811E-03_JPRB,.762E-03_JPRB,.738E-03_JPRB,&
+&.730E-03_JPRB,.723E-03_JPRB,.720E-03_JPRB,.721E-03_JPRB,.731E-03_JPRB,.736E-03_JPRB,.751E-03_JPRB,&
+&.768E-03_JPRB,.786E-03_JPRB,.817E-03_JPRB,.855E-03_JPRB,.870E-03_JPRB,.868E-03_JPRB,.861E-03_JPRB,&
+&.854E-03_JPRB,.844E-03_JPRB,.817E-03_JPRB,.786E-03_JPRB,.776E-03_JPRB,.762E-03_JPRB,.745E-03_JPRB,&
+&.727E-03_JPRB,.721E-03_JPRB,.737E-03_JPRB,.757E-03_JPRB,.767E-03_JPRB,.757E-03_JPRB,.716E-03_JPRB,&
+&.662E-03_JPRB,.616E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  5  74.0
+ZAER (:, 5, 3) = (/&
+&.659E-03_JPRB,.658E-03_JPRB,.653E-03_JPRB,.646E-03_JPRB,.639E-03_JPRB,.621E-03_JPRB,.609E-03_JPRB,&
+&.627E-03_JPRB,.657E-03_JPRB,.670E-03_JPRB,.677E-03_JPRB,.674E-03_JPRB,.663E-03_JPRB,.655E-03_JPRB,&
+&.660E-03_JPRB,.687E-03_JPRB,.699E-03_JPRB,.709E-03_JPRB,.734E-03_JPRB,.781E-03_JPRB,.807E-03_JPRB,&
+&.816E-03_JPRB,.841E-03_JPRB,.880E-03_JPRB,.927E-03_JPRB,.976E-03_JPRB,.103E-02_JPRB,.112E-02_JPRB,&
+&.124E-02_JPRB,.139E-02_JPRB,.169E-02_JPRB,.165E-02_JPRB,.149E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,&
+&.133E-02_JPRB,.124E-02_JPRB,.105E-02_JPRB,.875E-03_JPRB,.770E-03_JPRB,.711E-03_JPRB,.681E-03_JPRB,&
+&.665E-03_JPRB,.661E-03_JPRB,.676E-03_JPRB,.700E-03_JPRB,.718E-03_JPRB,.729E-03_JPRB,.742E-03_JPRB,&
+&.738E-03_JPRB,.747E-03_JPRB,.790E-03_JPRB,.831E-03_JPRB,.854E-03_JPRB,.863E-03_JPRB,.868E-03_JPRB,&
+&.876E-03_JPRB,.875E-03_JPRB,.858E-03_JPRB,.831E-03_JPRB,.811E-03_JPRB,.796E-03_JPRB,.779E-03_JPRB,&
+&.765E-03_JPRB,.752E-03_JPRB,.748E-03_JPRB,.749E-03_JPRB,.757E-03_JPRB,.755E-03_JPRB,.720E-03_JPRB,&
+&.680E-03_JPRB,.660E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  6  70.0
+ZAER (:, 6, 3) = (/&
+&.763E-03_JPRB,.749E-03_JPRB,.733E-03_JPRB,.714E-03_JPRB,.700E-03_JPRB,.691E-03_JPRB,.690E-03_JPRB,&
+&.696E-03_JPRB,.713E-03_JPRB,.723E-03_JPRB,.747E-03_JPRB,.769E-03_JPRB,.774E-03_JPRB,.788E-03_JPRB,&
+&.812E-03_JPRB,.826E-03_JPRB,.821E-03_JPRB,.802E-03_JPRB,.784E-03_JPRB,.778E-03_JPRB,.767E-03_JPRB,&
+&.753E-03_JPRB,.770E-03_JPRB,.834E-03_JPRB,.945E-03_JPRB,.101E-02_JPRB,.111E-02_JPRB,.129E-02_JPRB,&
+&.151E-02_JPRB,.170E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.184E-02_JPRB,.172E-02_JPRB,.152E-02_JPRB,&
+&.144E-02_JPRB,.132E-02_JPRB,.112E-02_JPRB,.918E-03_JPRB,.783E-03_JPRB,.696E-03_JPRB,.661E-03_JPRB,&
+&.651E-03_JPRB,.666E-03_JPRB,.715E-03_JPRB,.780E-03_JPRB,.831E-03_JPRB,.844E-03_JPRB,.824E-03_JPRB,&
+&.795E-03_JPRB,.766E-03_JPRB,.791E-03_JPRB,.841E-03_JPRB,.872E-03_JPRB,.892E-03_JPRB,.907E-03_JPRB,&
+&.930E-03_JPRB,.959E-03_JPRB,.960E-03_JPRB,.941E-03_JPRB,.907E-03_JPRB,.886E-03_JPRB,.883E-03_JPRB,&
+&.882E-03_JPRB,.867E-03_JPRB,.836E-03_JPRB,.808E-03_JPRB,.797E-03_JPRB,.799E-03_JPRB,.798E-03_JPRB,&
+&.789E-03_JPRB,.776E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  7  66.0
+ZAER (:, 7, 3) = (/&
+&.921E-03_JPRB,.920E-03_JPRB,.913E-03_JPRB,.913E-03_JPRB,.915E-03_JPRB,.920E-03_JPRB,.928E-03_JPRB,&
+&.936E-03_JPRB,.941E-03_JPRB,.949E-03_JPRB,.960E-03_JPRB,.974E-03_JPRB,.999E-03_JPRB,.103E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.987E-03_JPRB,.945E-03_JPRB,.904E-03_JPRB,.869E-03_JPRB,&
+&.841E-03_JPRB,.824E-03_JPRB,.950E-03_JPRB,.133E-02_JPRB,.160E-02_JPRB,.175E-02_JPRB,.205E-02_JPRB,&
+&.232E-02_JPRB,.249E-02_JPRB,.254E-02_JPRB,.236E-02_JPRB,.218E-02_JPRB,.210E-02_JPRB,.184E-02_JPRB,&
+&.163E-02_JPRB,.149E-02_JPRB,.134E-02_JPRB,.120E-02_JPRB,.107E-02_JPRB,.959E-03_JPRB,.883E-03_JPRB,&
+&.841E-03_JPRB,.828E-03_JPRB,.833E-03_JPRB,.866E-03_JPRB,.892E-03_JPRB,.900E-03_JPRB,.895E-03_JPRB,&
+&.908E-03_JPRB,.868E-03_JPRB,.830E-03_JPRB,.820E-03_JPRB,.835E-03_JPRB,.859E-03_JPRB,.885E-03_JPRB,&
+&.937E-03_JPRB,.990E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.101E-02_JPRB,.979E-03_JPRB,.965E-03_JPRB,.962E-03_JPRB,.972E-03_JPRB,.978E-03_JPRB,&
+&.953E-03_JPRB,.927E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  8  62.0
+ZAER (:, 8, 3) = (/&
+&.131E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,&
+&.136E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,&
+&.127E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,&
+&.102E-02_JPRB,.149E-02_JPRB,.262E-02_JPRB,.280E-02_JPRB,.244E-02_JPRB,.240E-02_JPRB,.287E-02_JPRB,&
+&.326E-02_JPRB,.327E-02_JPRB,.316E-02_JPRB,.293E-02_JPRB,.269E-02_JPRB,.246E-02_JPRB,.238E-02_JPRB,&
+&.217E-02_JPRB,.189E-02_JPRB,.171E-02_JPRB,.157E-02_JPRB,.146E-02_JPRB,.135E-02_JPRB,.123E-02_JPRB,&
+&.115E-02_JPRB,.110E-02_JPRB,.105E-02_JPRB,.101E-02_JPRB,.985E-03_JPRB,.975E-03_JPRB,.983E-03_JPRB,&
+&.100E-02_JPRB,.965E-03_JPRB,.921E-03_JPRB,.890E-03_JPRB,.882E-03_JPRB,.906E-03_JPRB,.929E-03_JPRB,&
+&.956E-03_JPRB,.101E-02_JPRB,.107E-02_JPRB,.113E-02_JPRB,.118E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,&
+&.123E-02_JPRB,.128E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat:  9  58.0
+ZAER (:, 9, 3) = (/&
+&.189E-02_JPRB,.199E-02_JPRB,.207E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,.204E-02_JPRB,.197E-02_JPRB,&
+&.192E-02_JPRB,.187E-02_JPRB,.182E-02_JPRB,.179E-02_JPRB,.176E-02_JPRB,.170E-02_JPRB,.160E-02_JPRB,&
+&.151E-02_JPRB,.145E-02_JPRB,.139E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.165E-02_JPRB,.473E-02_JPRB,.484E-02_JPRB,.358E-02_JPRB,.308E-02_JPRB,.340E-02_JPRB,.389E-02_JPRB,&
+&.386E-02_JPRB,.365E-02_JPRB,.351E-02_JPRB,.334E-02_JPRB,.318E-02_JPRB,.309E-02_JPRB,.300E-02_JPRB,&
+&.280E-02_JPRB,.260E-02_JPRB,.238E-02_JPRB,.221E-02_JPRB,.210E-02_JPRB,.199E-02_JPRB,.190E-02_JPRB,&
+&.179E-02_JPRB,.166E-02_JPRB,.152E-02_JPRB,.139E-02_JPRB,.129E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,&
+&.114E-02_JPRB,.108E-02_JPRB,.106E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.106E-02_JPRB,.110E-02_JPRB,&
+&.117E-02_JPRB,.128E-02_JPRB,.139E-02_JPRB,.148E-02_JPRB,.153E-02_JPRB,.158E-02_JPRB,.160E-02_JPRB,&
+&.161E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,.153E-02_JPRB,.151E-02_JPRB,.159E-02_JPRB,&
+&.169E-02_JPRB,.180E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 10  54.0
+ZAER (:,10, 3) = (/&
+&.255E-02_JPRB,.263E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.261E-02_JPRB,.258E-02_JPRB,.258E-02_JPRB,&
+&.258E-02_JPRB,.254E-02_JPRB,.245E-02_JPRB,.234E-02_JPRB,.219E-02_JPRB,.203E-02_JPRB,.191E-02_JPRB,&
+&.186E-02_JPRB,.182E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.162E-02_JPRB,.157E-02_JPRB,.155E-02_JPRB,&
+&.318E-02_JPRB,.130E-01_JPRB,.108E-01_JPRB,.748E-02_JPRB,.647E-02_JPRB,.586E-02_JPRB,.533E-02_JPRB,&
+&.495E-02_JPRB,.468E-02_JPRB,.442E-02_JPRB,.419E-02_JPRB,.395E-02_JPRB,.379E-02_JPRB,.380E-02_JPRB,&
+&.381E-02_JPRB,.374E-02_JPRB,.353E-02_JPRB,.321E-02_JPRB,.290E-02_JPRB,.263E-02_JPRB,.242E-02_JPRB,&
+&.231E-02_JPRB,.228E-02_JPRB,.225E-02_JPRB,.215E-02_JPRB,.197E-02_JPRB,.176E-02_JPRB,.158E-02_JPRB,&
+&.143E-02_JPRB,.130E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.134E-02_JPRB,.147E-02_JPRB,&
+&.161E-02_JPRB,.173E-02_JPRB,.187E-02_JPRB,.197E-02_JPRB,.203E-02_JPRB,.208E-02_JPRB,.211E-02_JPRB,&
+&.213E-02_JPRB,.217E-02_JPRB,.214E-02_JPRB,.208E-02_JPRB,.200E-02_JPRB,.207E-02_JPRB,.221E-02_JPRB,&
+&.234E-02_JPRB,.245E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 11  50.0
+ZAER (:,11, 3) = (/&
+&.328E-02_JPRB,.327E-02_JPRB,.325E-02_JPRB,.308E-02_JPRB,.300E-02_JPRB,.307E-02_JPRB,.314E-02_JPRB,&
+&.315E-02_JPRB,.312E-02_JPRB,.304E-02_JPRB,.288E-02_JPRB,.261E-02_JPRB,.238E-02_JPRB,.226E-02_JPRB,&
+&.222E-02_JPRB,.217E-02_JPRB,.213E-02_JPRB,.205E-02_JPRB,.193E-02_JPRB,.183E-02_JPRB,.185E-02_JPRB,&
+&.308E-02_JPRB,.188E-01_JPRB,.273E-01_JPRB,.183E-01_JPRB,.123E-01_JPRB,.980E-02_JPRB,.775E-02_JPRB,&
+&.659E-02_JPRB,.599E-02_JPRB,.588E-02_JPRB,.637E-02_JPRB,.675E-02_JPRB,.676E-02_JPRB,.656E-02_JPRB,&
+&.622E-02_JPRB,.578E-02_JPRB,.514E-02_JPRB,.460E-02_JPRB,.410E-02_JPRB,.363E-02_JPRB,.342E-02_JPRB,&
+&.343E-02_JPRB,.339E-02_JPRB,.325E-02_JPRB,.303E-02_JPRB,.276E-02_JPRB,.249E-02_JPRB,.226E-02_JPRB,&
+&.206E-02_JPRB,.188E-02_JPRB,.175E-02_JPRB,.171E-02_JPRB,.178E-02_JPRB,.192E-02_JPRB,.204E-02_JPRB,&
+&.218E-02_JPRB,.240E-02_JPRB,.262E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.269E-02_JPRB,.272E-02_JPRB,&
+&.281E-02_JPRB,.284E-02_JPRB,.278E-02_JPRB,.278E-02_JPRB,.285E-02_JPRB,.303E-02_JPRB,.312E-02_JPRB,&
+&.318E-02_JPRB,.324E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 12  46.0
+ZAER (:,12, 3) = (/&
+&.419E-02_JPRB,.388E-02_JPRB,.359E-02_JPRB,.339E-02_JPRB,.334E-02_JPRB,.340E-02_JPRB,.345E-02_JPRB,&
+&.337E-02_JPRB,.339E-02_JPRB,.342E-02_JPRB,.335E-02_JPRB,.306E-02_JPRB,.273E-02_JPRB,.254E-02_JPRB,&
+&.243E-02_JPRB,.234E-02_JPRB,.230E-02_JPRB,.226E-02_JPRB,.222E-02_JPRB,.217E-02_JPRB,.273E-02_JPRB,&
+&.599E-02_JPRB,.299E-01_JPRB,.585E-01_JPRB,.382E-01_JPRB,.170E-01_JPRB,.133E-01_JPRB,.120E-01_JPRB,&
+&.111E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.105E-01_JPRB,.934E-02_JPRB,&
+&.825E-02_JPRB,.739E-02_JPRB,.664E-02_JPRB,.602E-02_JPRB,.564E-02_JPRB,.530E-02_JPRB,.495E-02_JPRB,&
+&.460E-02_JPRB,.422E-02_JPRB,.394E-02_JPRB,.371E-02_JPRB,.353E-02_JPRB,.336E-02_JPRB,.314E-02_JPRB,&
+&.291E-02_JPRB,.270E-02_JPRB,.254E-02_JPRB,.245E-02_JPRB,.251E-02_JPRB,.262E-02_JPRB,.284E-02_JPRB,&
+&.330E-02_JPRB,.376E-02_JPRB,.393E-02_JPRB,.372E-02_JPRB,.361E-02_JPRB,.355E-02_JPRB,.363E-02_JPRB,&
+&.374E-02_JPRB,.376E-02_JPRB,.408E-02_JPRB,.432E-02_JPRB,.431E-02_JPRB,.446E-02_JPRB,.454E-02_JPRB,&
+&.453E-02_JPRB,.440E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 13  42.0
+ZAER (:,13, 3) = (/&
+&.490E-02_JPRB,.444E-02_JPRB,.411E-02_JPRB,.383E-02_JPRB,.372E-02_JPRB,.373E-02_JPRB,.369E-02_JPRB,&
+&.364E-02_JPRB,.357E-02_JPRB,.356E-02_JPRB,.357E-02_JPRB,.332E-02_JPRB,.301E-02_JPRB,.278E-02_JPRB,&
+&.262E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.258E-02_JPRB,.363E-02_JPRB,.940E-02_JPRB,&
+&.234E-01_JPRB,.563E-01_JPRB,.106E+00_JPRB,.834E-01_JPRB,.390E-01_JPRB,.240E-01_JPRB,.202E-01_JPRB,&
+&.194E-01_JPRB,.173E-01_JPRB,.149E-01_JPRB,.128E-01_JPRB,.110E-01_JPRB,.957E-02_JPRB,.855E-02_JPRB,&
+&.776E-02_JPRB,.737E-02_JPRB,.713E-02_JPRB,.689E-02_JPRB,.663E-02_JPRB,.626E-02_JPRB,.572E-02_JPRB,&
+&.523E-02_JPRB,.486E-02_JPRB,.451E-02_JPRB,.431E-02_JPRB,.423E-02_JPRB,.415E-02_JPRB,.397E-02_JPRB,&
+&.372E-02_JPRB,.350E-02_JPRB,.330E-02_JPRB,.318E-02_JPRB,.329E-02_JPRB,.381E-02_JPRB,.459E-02_JPRB,&
+&.533E-02_JPRB,.538E-02_JPRB,.518E-02_JPRB,.544E-02_JPRB,.569E-02_JPRB,.519E-02_JPRB,.484E-02_JPRB,&
+&.474E-02_JPRB,.557E-02_JPRB,.632E-02_JPRB,.653E-02_JPRB,.687E-02_JPRB,.695E-02_JPRB,.653E-02_JPRB,&
+&.591E-02_JPRB,.535E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 14  38.0
+ZAER (:,14, 3) = (/&
+&.543E-02_JPRB,.498E-02_JPRB,.460E-02_JPRB,.430E-02_JPRB,.433E-02_JPRB,.434E-02_JPRB,.412E-02_JPRB,&
+&.400E-02_JPRB,.389E-02_JPRB,.381E-02_JPRB,.362E-02_JPRB,.345E-02_JPRB,.329E-02_JPRB,.313E-02_JPRB,&
+&.300E-02_JPRB,.297E-02_JPRB,.296E-02_JPRB,.298E-02_JPRB,.303E-02_JPRB,.631E-02_JPRB,.175E-01_JPRB,&
+&.295E-01_JPRB,.586E-01_JPRB,.101E+00_JPRB,.866E-01_JPRB,.515E-01_JPRB,.331E-01_JPRB,.234E-01_JPRB,&
+&.180E-01_JPRB,.145E-01_JPRB,.124E-01_JPRB,.106E-01_JPRB,.897E-02_JPRB,.784E-02_JPRB,.724E-02_JPRB,&
+&.690E-02_JPRB,.689E-02_JPRB,.711E-02_JPRB,.719E-02_JPRB,.705E-02_JPRB,.698E-02_JPRB,.673E-02_JPRB,&
+&.629E-02_JPRB,.557E-02_JPRB,.495E-02_JPRB,.468E-02_JPRB,.462E-02_JPRB,.463E-02_JPRB,.459E-02_JPRB,&
+&.444E-02_JPRB,.421E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.461E-02_JPRB,.607E-02_JPRB,.744E-02_JPRB,&
+&.738E-02_JPRB,.657E-02_JPRB,.669E-02_JPRB,.956E-02_JPRB,.107E-01_JPRB,.865E-02_JPRB,.745E-02_JPRB,&
+&.108E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.959E-02_JPRB,.749E-02_JPRB,&
+&.620E-02_JPRB,.565E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 15  34.0
+ZAER (:,15, 3) = (/&
+&.637E-02_JPRB,.590E-02_JPRB,.537E-02_JPRB,.509E-02_JPRB,.518E-02_JPRB,.513E-02_JPRB,.484E-02_JPRB,&
+&.465E-02_JPRB,.457E-02_JPRB,.448E-02_JPRB,.424E-02_JPRB,.392E-02_JPRB,.367E-02_JPRB,.350E-02_JPRB,&
+&.352E-02_JPRB,.357E-02_JPRB,.348E-02_JPRB,.336E-02_JPRB,.325E-02_JPRB,.496E-02_JPRB,.128E-01_JPRB,&
+&.175E-01_JPRB,.288E-01_JPRB,.477E-01_JPRB,.574E-01_JPRB,.422E-01_JPRB,.260E-01_JPRB,.170E-01_JPRB,&
+&.126E-01_JPRB,.102E-01_JPRB,.829E-02_JPRB,.695E-02_JPRB,.625E-02_JPRB,.620E-02_JPRB,.658E-02_JPRB,&
+&.670E-02_JPRB,.670E-02_JPRB,.706E-02_JPRB,.784E-02_JPRB,.885E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.864E-02_JPRB,.680E-02_JPRB,.594E-02_JPRB,.548E-02_JPRB,.501E-02_JPRB,.474E-02_JPRB,.487E-02_JPRB,&
+&.484E-02_JPRB,.486E-02_JPRB,.514E-02_JPRB,.563E-02_JPRB,.718E-02_JPRB,.944E-02_JPRB,.115E-01_JPRB,&
+&.109E-01_JPRB,.977E-02_JPRB,.119E-01_JPRB,.189E-01_JPRB,.222E-01_JPRB,.236E-01_JPRB,.333E-01_JPRB,&
+&.394E-01_JPRB,.369E-01_JPRB,.244E-01_JPRB,.195E-01_JPRB,.137E-01_JPRB,.940E-02_JPRB,.756E-02_JPRB,&
+&.679E-02_JPRB,.653E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 16  30.0
+ZAER (:,16, 3) = (/&
+&.742E-02_JPRB,.693E-02_JPRB,.651E-02_JPRB,.621E-02_JPRB,.606E-02_JPRB,.588E-02_JPRB,.534E-02_JPRB,&
+&.504E-02_JPRB,.485E-02_JPRB,.470E-02_JPRB,.453E-02_JPRB,.424E-02_JPRB,.406E-02_JPRB,.411E-02_JPRB,&
+&.424E-02_JPRB,.408E-02_JPRB,.385E-02_JPRB,.372E-02_JPRB,.358E-02_JPRB,.474E-02_JPRB,.834E-02_JPRB,&
+&.782E-02_JPRB,.911E-02_JPRB,.218E-01_JPRB,.282E-01_JPRB,.242E-01_JPRB,.176E-01_JPRB,.114E-01_JPRB,&
+&.831E-02_JPRB,.676E-02_JPRB,.577E-02_JPRB,.533E-02_JPRB,.532E-02_JPRB,.586E-02_JPRB,.675E-02_JPRB,&
+&.681E-02_JPRB,.661E-02_JPRB,.779E-02_JPRB,.115E-01_JPRB,.158E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,&
+&.114E-01_JPRB,.834E-02_JPRB,.704E-02_JPRB,.611E-02_JPRB,.502E-02_JPRB,.463E-02_JPRB,.518E-02_JPRB,&
+&.577E-02_JPRB,.664E-02_JPRB,.734E-02_JPRB,.831E-02_JPRB,.111E-01_JPRB,.143E-01_JPRB,.174E-01_JPRB,&
+&.187E-01_JPRB,.198E-01_JPRB,.262E-01_JPRB,.366E-01_JPRB,.462E-01_JPRB,.582E-01_JPRB,.859E-01_JPRB,&
+&.700E-01_JPRB,.513E-01_JPRB,.355E-01_JPRB,.243E-01_JPRB,.142E-01_JPRB,.103E-01_JPRB,.899E-02_JPRB,&
+&.823E-02_JPRB,.786E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 17  26.0
+ZAER (:,17, 3) = (/&
+&.628E-02_JPRB,.591E-02_JPRB,.580E-02_JPRB,.563E-02_JPRB,.528E-02_JPRB,.487E-02_JPRB,.440E-02_JPRB,&
+&.403E-02_JPRB,.379E-02_JPRB,.373E-02_JPRB,.384E-02_JPRB,.396E-02_JPRB,.423E-02_JPRB,.455E-02_JPRB,&
+&.473E-02_JPRB,.441E-02_JPRB,.415E-02_JPRB,.404E-02_JPRB,.434E-02_JPRB,.568E-02_JPRB,.656E-02_JPRB,&
+&.595E-02_JPRB,.853E-02_JPRB,.165E-01_JPRB,.191E-01_JPRB,.130E-01_JPRB,.997E-02_JPRB,.675E-02_JPRB,&
+&.529E-02_JPRB,.461E-02_JPRB,.463E-02_JPRB,.471E-02_JPRB,.499E-02_JPRB,.571E-02_JPRB,.673E-02_JPRB,&
+&.705E-02_JPRB,.764E-02_JPRB,.105E-01_JPRB,.156E-01_JPRB,.193E-01_JPRB,.213E-01_JPRB,.232E-01_JPRB,&
+&.120E-01_JPRB,.749E-02_JPRB,.614E-02_JPRB,.589E-02_JPRB,.475E-02_JPRB,.490E-02_JPRB,.601E-02_JPRB,&
+&.758E-02_JPRB,.948E-02_JPRB,.113E-01_JPRB,.137E-01_JPRB,.176E-01_JPRB,.218E-01_JPRB,.262E-01_JPRB,&
+&.310E-01_JPRB,.392E-01_JPRB,.547E-01_JPRB,.726E-01_JPRB,.772E-01_JPRB,.846E-01_JPRB,.883E-01_JPRB,&
+&.677E-01_JPRB,.536E-01_JPRB,.416E-01_JPRB,.214E-01_JPRB,.136E-01_JPRB,.110E-01_JPRB,.933E-02_JPRB,&
+&.802E-02_JPRB,.704E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 18  22.0
+ZAER (:,18, 3) = (/&
+&.382E-02_JPRB,.335E-02_JPRB,.321E-02_JPRB,.300E-02_JPRB,.266E-02_JPRB,.231E-02_JPRB,.224E-02_JPRB,&
+&.234E-02_JPRB,.249E-02_JPRB,.270E-02_JPRB,.309E-02_JPRB,.360E-02_JPRB,.422E-02_JPRB,.470E-02_JPRB,&
+&.506E-02_JPRB,.492E-02_JPRB,.453E-02_JPRB,.448E-02_JPRB,.468E-02_JPRB,.525E-02_JPRB,.554E-02_JPRB,&
+&.623E-02_JPRB,.110E-01_JPRB,.155E-01_JPRB,.200E-01_JPRB,.871E-02_JPRB,.565E-02_JPRB,.434E-02_JPRB,&
+&.393E-02_JPRB,.403E-02_JPRB,.438E-02_JPRB,.465E-02_JPRB,.498E-02_JPRB,.572E-02_JPRB,.691E-02_JPRB,&
+&.803E-02_JPRB,.962E-02_JPRB,.121E-01_JPRB,.146E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.180E-01_JPRB,&
+&.730E-02_JPRB,.437E-02_JPRB,.392E-02_JPRB,.427E-02_JPRB,.428E-02_JPRB,.507E-02_JPRB,.660E-02_JPRB,&
+&.870E-02_JPRB,.114E-01_JPRB,.145E-01_JPRB,.185E-01_JPRB,.237E-01_JPRB,.294E-01_JPRB,.360E-01_JPRB,&
+&.440E-01_JPRB,.554E-01_JPRB,.794E-01_JPRB,.102E+00_JPRB,.760E-01_JPRB,.704E-01_JPRB,.648E-01_JPRB,&
+&.519E-01_JPRB,.402E-01_JPRB,.272E-01_JPRB,.154E-01_JPRB,.116E-01_JPRB,.871E-02_JPRB,.696E-02_JPRB,&
+&.551E-02_JPRB,.460E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 19  18.0
+ZAER (:,19, 3) = (/&
+&.221E-02_JPRB,.208E-02_JPRB,.204E-02_JPRB,.194E-02_JPRB,.165E-02_JPRB,.147E-02_JPRB,.155E-02_JPRB,&
+&.178E-02_JPRB,.204E-02_JPRB,.239E-02_JPRB,.304E-02_JPRB,.401E-02_JPRB,.488E-02_JPRB,.517E-02_JPRB,&
+&.542E-02_JPRB,.525E-02_JPRB,.494E-02_JPRB,.495E-02_JPRB,.507E-02_JPRB,.545E-02_JPRB,.594E-02_JPRB,&
+&.632E-02_JPRB,.746E-02_JPRB,.106E-01_JPRB,.104E-01_JPRB,.467E-02_JPRB,.343E-02_JPRB,.327E-02_JPRB,&
+&.368E-02_JPRB,.400E-02_JPRB,.457E-02_JPRB,.489E-02_JPRB,.540E-02_JPRB,.647E-02_JPRB,.762E-02_JPRB,&
+&.864E-02_JPRB,.949E-02_JPRB,.932E-02_JPRB,.683E-02_JPRB,.426E-02_JPRB,.438E-02_JPRB,.408E-02_JPRB,&
+&.320E-02_JPRB,.280E-02_JPRB,.282E-02_JPRB,.327E-02_JPRB,.414E-02_JPRB,.539E-02_JPRB,.710E-02_JPRB,&
+&.919E-02_JPRB,.115E-01_JPRB,.141E-01_JPRB,.182E-01_JPRB,.229E-01_JPRB,.280E-01_JPRB,.334E-01_JPRB,&
+&.382E-01_JPRB,.441E-01_JPRB,.522E-01_JPRB,.500E-01_JPRB,.415E-01_JPRB,.360E-01_JPRB,.325E-01_JPRB,&
+&.255E-01_JPRB,.177E-01_JPRB,.124E-01_JPRB,.912E-02_JPRB,.668E-02_JPRB,.470E-02_JPRB,.347E-02_JPRB,&
+&.275E-02_JPRB,.247E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 20  14.0
+ZAER (:,20, 3) = (/&
+&.146E-02_JPRB,.150E-02_JPRB,.147E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.172E-02_JPRB,&
+&.205E-02_JPRB,.236E-02_JPRB,.276E-02_JPRB,.372E-02_JPRB,.500E-02_JPRB,.588E-02_JPRB,.632E-02_JPRB,&
+&.647E-02_JPRB,.616E-02_JPRB,.601E-02_JPRB,.595E-02_JPRB,.601E-02_JPRB,.576E-02_JPRB,.549E-02_JPRB,&
+&.536E-02_JPRB,.478E-02_JPRB,.407E-02_JPRB,.336E-02_JPRB,.298E-02_JPRB,.368E-02_JPRB,.462E-02_JPRB,&
+&.525E-02_JPRB,.516E-02_JPRB,.532E-02_JPRB,.576E-02_JPRB,.646E-02_JPRB,.711E-02_JPRB,.742E-02_JPRB,&
+&.766E-02_JPRB,.725E-02_JPRB,.586E-02_JPRB,.366E-02_JPRB,.235E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,&
+&.204E-02_JPRB,.205E-02_JPRB,.213E-02_JPRB,.242E-02_JPRB,.341E-02_JPRB,.466E-02_JPRB,.595E-02_JPRB,&
+&.774E-02_JPRB,.935E-02_JPRB,.110E-01_JPRB,.135E-01_JPRB,.159E-01_JPRB,.179E-01_JPRB,.206E-01_JPRB,&
+&.231E-01_JPRB,.236E-01_JPRB,.217E-01_JPRB,.197E-01_JPRB,.177E-01_JPRB,.144E-01_JPRB,.970E-02_JPRB,&
+&.737E-02_JPRB,.519E-02_JPRB,.409E-02_JPRB,.341E-02_JPRB,.262E-02_JPRB,.200E-02_JPRB,.150E-02_JPRB,&
+&.126E-02_JPRB,.131E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 21  10.0
+ZAER (:,21, 3) = (/&
+&.113E-02_JPRB,.122E-02_JPRB,.130E-02_JPRB,.145E-02_JPRB,.161E-02_JPRB,.181E-02_JPRB,.221E-02_JPRB,&
+&.263E-02_JPRB,.309E-02_JPRB,.370E-02_JPRB,.455E-02_JPRB,.534E-02_JPRB,.603E-02_JPRB,.649E-02_JPRB,&
+&.677E-02_JPRB,.677E-02_JPRB,.672E-02_JPRB,.649E-02_JPRB,.591E-02_JPRB,.488E-02_JPRB,.415E-02_JPRB,&
+&.402E-02_JPRB,.266E-02_JPRB,.196E-02_JPRB,.192E-02_JPRB,.267E-02_JPRB,.445E-02_JPRB,.772E-02_JPRB,&
+&.129E-01_JPRB,.116E-01_JPRB,.703E-02_JPRB,.703E-02_JPRB,.738E-02_JPRB,.731E-02_JPRB,.693E-02_JPRB,&
+&.637E-02_JPRB,.579E-02_JPRB,.467E-02_JPRB,.337E-02_JPRB,.268E-02_JPRB,.245E-02_JPRB,.244E-02_JPRB,&
+&.228E-02_JPRB,.206E-02_JPRB,.193E-02_JPRB,.204E-02_JPRB,.241E-02_JPRB,.300E-02_JPRB,.376E-02_JPRB,&
+&.469E-02_JPRB,.563E-02_JPRB,.644E-02_JPRB,.769E-02_JPRB,.836E-02_JPRB,.886E-02_JPRB,.943E-02_JPRB,&
+&.949E-02_JPRB,.913E-02_JPRB,.846E-02_JPRB,.754E-02_JPRB,.661E-02_JPRB,.525E-02_JPRB,.315E-02_JPRB,&
+&.178E-02_JPRB,.979E-03_JPRB,.954E-03_JPRB,.111E-02_JPRB,.103E-02_JPRB,.882E-03_JPRB,.777E-03_JPRB,&
+&.761E-03_JPRB,.883E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 22   6.0
+ZAER (:,22, 3) = (/&
+&.141E-02_JPRB,.152E-02_JPRB,.165E-02_JPRB,.182E-02_JPRB,.208E-02_JPRB,.250E-02_JPRB,.296E-02_JPRB,&
+&.331E-02_JPRB,.368E-02_JPRB,.415E-02_JPRB,.452E-02_JPRB,.475E-02_JPRB,.490E-02_JPRB,.504E-02_JPRB,&
+&.507E-02_JPRB,.516E-02_JPRB,.521E-02_JPRB,.487E-02_JPRB,.438E-02_JPRB,.379E-02_JPRB,.325E-02_JPRB,&
+&.227E-02_JPRB,.174E-02_JPRB,.177E-02_JPRB,.206E-02_JPRB,.274E-02_JPRB,.410E-02_JPRB,.677E-02_JPRB,&
+&.996E-02_JPRB,.996E-02_JPRB,.904E-02_JPRB,.894E-02_JPRB,.867E-02_JPRB,.828E-02_JPRB,.791E-02_JPRB,&
+&.747E-02_JPRB,.678E-02_JPRB,.574E-02_JPRB,.512E-02_JPRB,.513E-02_JPRB,.518E-02_JPRB,.533E-02_JPRB,&
+&.503E-02_JPRB,.434E-02_JPRB,.378E-02_JPRB,.345E-02_JPRB,.317E-02_JPRB,.294E-02_JPRB,.281E-02_JPRB,&
+&.278E-02_JPRB,.287E-02_JPRB,.313E-02_JPRB,.320E-02_JPRB,.315E-02_JPRB,.319E-02_JPRB,.287E-02_JPRB,&
+&.254E-02_JPRB,.234E-02_JPRB,.186E-02_JPRB,.172E-02_JPRB,.203E-02_JPRB,.141E-02_JPRB,.847E-03_JPRB,&
+&.813E-03_JPRB,.783E-03_JPRB,.831E-03_JPRB,.915E-03_JPRB,.933E-03_JPRB,.967E-03_JPRB,.101E-02_JPRB,&
+&.113E-02_JPRB,.126E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 23   2.0
+ZAER (:,23, 3) = (/&
+&.217E-02_JPRB,.219E-02_JPRB,.227E-02_JPRB,.246E-02_JPRB,.276E-02_JPRB,.319E-02_JPRB,.360E-02_JPRB,&
+&.386E-02_JPRB,.411E-02_JPRB,.441E-02_JPRB,.460E-02_JPRB,.469E-02_JPRB,.477E-02_JPRB,.493E-02_JPRB,&
+&.518E-02_JPRB,.558E-02_JPRB,.597E-02_JPRB,.631E-02_JPRB,.630E-02_JPRB,.586E-02_JPRB,.549E-02_JPRB,&
+&.451E-02_JPRB,.395E-02_JPRB,.435E-02_JPRB,.495E-02_JPRB,.564E-02_JPRB,.698E-02_JPRB,.918E-02_JPRB,&
+&.122E-01_JPRB,.144E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,&
+&.126E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.131E-01_JPRB,.138E-01_JPRB,.146E-01_JPRB,&
+&.147E-01_JPRB,.134E-01_JPRB,.108E-01_JPRB,.739E-02_JPRB,.556E-02_JPRB,.443E-02_JPRB,.327E-02_JPRB,&
+&.229E-02_JPRB,.176E-02_JPRB,.148E-02_JPRB,.126E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.102E-02_JPRB,&
+&.950E-03_JPRB,.926E-03_JPRB,.979E-03_JPRB,.119E-02_JPRB,.129E-02_JPRB,.123E-02_JPRB,.129E-02_JPRB,&
+&.141E-02_JPRB,.147E-02_JPRB,.156E-02_JPRB,.166E-02_JPRB,.175E-02_JPRB,.182E-02_JPRB,.190E-02_JPRB,&
+&.206E-02_JPRB,.215E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 24  -2.0
+ZAER (:,24, 3) = (/&
+&.403E-02_JPRB,.375E-02_JPRB,.351E-02_JPRB,.336E-02_JPRB,.354E-02_JPRB,.391E-02_JPRB,.426E-02_JPRB,&
+&.456E-02_JPRB,.499E-02_JPRB,.569E-02_JPRB,.645E-02_JPRB,.718E-02_JPRB,.793E-02_JPRB,.876E-02_JPRB,&
+&.976E-02_JPRB,.106E-01_JPRB,.116E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,&
+&.138E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,.152E-01_JPRB,.158E-01_JPRB,.177E-01_JPRB,.221E-01_JPRB,&
+&.261E-01_JPRB,.279E-01_JPRB,.285E-01_JPRB,.270E-01_JPRB,.245E-01_JPRB,.226E-01_JPRB,.222E-01_JPRB,&
+&.228E-01_JPRB,.240E-01_JPRB,.262E-01_JPRB,.290E-01_JPRB,.316E-01_JPRB,.344E-01_JPRB,.371E-01_JPRB,&
+&.388E-01_JPRB,.384E-01_JPRB,.359E-01_JPRB,.273E-01_JPRB,.171E-01_JPRB,.124E-01_JPRB,.939E-02_JPRB,&
+&.705E-02_JPRB,.476E-02_JPRB,.277E-02_JPRB,.159E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.127E-02_JPRB,&
+&.133E-02_JPRB,.140E-02_JPRB,.167E-02_JPRB,.203E-02_JPRB,.224E-02_JPRB,.241E-02_JPRB,.263E-02_JPRB,&
+&.281E-02_JPRB,.297E-02_JPRB,.314E-02_JPRB,.337E-02_JPRB,.369E-02_JPRB,.386E-02_JPRB,.394E-02_JPRB,&
+&.413E-02_JPRB,.415E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 25  -6.0
+ZAER (:,25, 3) = (/&
+&.633E-02_JPRB,.585E-02_JPRB,.555E-02_JPRB,.517E-02_JPRB,.492E-02_JPRB,.513E-02_JPRB,.547E-02_JPRB,&
+&.576E-02_JPRB,.632E-02_JPRB,.730E-02_JPRB,.843E-02_JPRB,.966E-02_JPRB,.111E-01_JPRB,.129E-01_JPRB,&
+&.151E-01_JPRB,.169E-01_JPRB,.188E-01_JPRB,.208E-01_JPRB,.228E-01_JPRB,.247E-01_JPRB,.266E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.284E-01_JPRB,.321E-01_JPRB,.349E-01_JPRB,.389E-01_JPRB,.463E-01_JPRB,&
+&.534E-01_JPRB,.579E-01_JPRB,.599E-01_JPRB,.592E-01_JPRB,.554E-01_JPRB,.509E-01_JPRB,.503E-01_JPRB,&
+&.517E-01_JPRB,.571E-01_JPRB,.609E-01_JPRB,.645E-01_JPRB,.665E-01_JPRB,.691E-01_JPRB,.749E-01_JPRB,&
+&.810E-01_JPRB,.863E-01_JPRB,.885E-01_JPRB,.840E-01_JPRB,.594E-01_JPRB,.373E-01_JPRB,.299E-01_JPRB,&
+&.250E-01_JPRB,.206E-01_JPRB,.150E-01_JPRB,.849E-02_JPRB,.475E-02_JPRB,.312E-02_JPRB,.275E-02_JPRB,&
+&.281E-02_JPRB,.288E-02_JPRB,.299E-02_JPRB,.342E-02_JPRB,.389E-02_JPRB,.424E-02_JPRB,.460E-02_JPRB,&
+&.498E-02_JPRB,.534E-02_JPRB,.565E-02_JPRB,.608E-02_JPRB,.672E-02_JPRB,.716E-02_JPRB,.736E-02_JPRB,&
+&.730E-02_JPRB,.688E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 26 -10.0
+ZAER (:,26, 3) = (/&
+&.912E-02_JPRB,.820E-02_JPRB,.775E-02_JPRB,.757E-02_JPRB,.716E-02_JPRB,.682E-02_JPRB,.690E-02_JPRB,&
+&.720E-02_JPRB,.779E-02_JPRB,.868E-02_JPRB,.964E-02_JPRB,.109E-01_JPRB,.127E-01_JPRB,.156E-01_JPRB,&
+&.196E-01_JPRB,.230E-01_JPRB,.257E-01_JPRB,.278E-01_JPRB,.299E-01_JPRB,.307E-01_JPRB,.329E-01_JPRB,&
+&.348E-01_JPRB,.347E-01_JPRB,.373E-01_JPRB,.409E-01_JPRB,.487E-01_JPRB,.594E-01_JPRB,.681E-01_JPRB,&
+&.741E-01_JPRB,.802E-01_JPRB,.878E-01_JPRB,.988E-01_JPRB,.110E+00_JPRB,.109E+00_JPRB,.113E+00_JPRB,&
+&.125E+00_JPRB,.138E+00_JPRB,.143E+00_JPRB,.136E+00_JPRB,.135E+00_JPRB,.127E+00_JPRB,.127E+00_JPRB,&
+&.132E+00_JPRB,.137E+00_JPRB,.142E+00_JPRB,.142E+00_JPRB,.107E+00_JPRB,.728E-01_JPRB,.594E-01_JPRB,&
+&.510E-01_JPRB,.447E-01_JPRB,.378E-01_JPRB,.277E-01_JPRB,.184E-01_JPRB,.109E-01_JPRB,.698E-02_JPRB,&
+&.601E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,.597E-02_JPRB,.629E-02_JPRB,.680E-02_JPRB,.739E-02_JPRB,&
+&.808E-02_JPRB,.865E-02_JPRB,.908E-02_JPRB,.959E-02_JPRB,.101E-01_JPRB,.107E-01_JPRB,.110E-01_JPRB,&
+&.109E-01_JPRB,.102E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 27 -14.0
+ZAER (:,27, 3) = (/&
+&.128E-01_JPRB,.120E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.990E-02_JPRB,.861E-02_JPRB,.796E-02_JPRB,&
+&.820E-02_JPRB,.845E-02_JPRB,.921E-02_JPRB,.102E-01_JPRB,.112E-01_JPRB,.128E-01_JPRB,.158E-01_JPRB,&
+&.199E-01_JPRB,.248E-01_JPRB,.294E-01_JPRB,.311E-01_JPRB,.322E-01_JPRB,.307E-01_JPRB,.296E-01_JPRB,&
+&.308E-01_JPRB,.318E-01_JPRB,.353E-01_JPRB,.412E-01_JPRB,.491E-01_JPRB,.575E-01_JPRB,.613E-01_JPRB,&
+&.613E-01_JPRB,.644E-01_JPRB,.746E-01_JPRB,.923E-01_JPRB,.120E+00_JPRB,.142E+00_JPRB,.158E+00_JPRB,&
+&.231E+00_JPRB,.286E+00_JPRB,.252E+00_JPRB,.185E+00_JPRB,.202E+00_JPRB,.190E+00_JPRB,.163E+00_JPRB,&
+&.166E+00_JPRB,.175E+00_JPRB,.171E+00_JPRB,.185E+00_JPRB,.156E+00_JPRB,.109E+00_JPRB,.881E-01_JPRB,&
+&.760E-01_JPRB,.667E-01_JPRB,.570E-01_JPRB,.447E-01_JPRB,.358E-01_JPRB,.264E-01_JPRB,.170E-01_JPRB,&
+&.134E-01_JPRB,.128E-01_JPRB,.117E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.103E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,.117E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.134E-01_JPRB,&
+&.135E-01_JPRB,.133E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 28 -18.0
+ZAER (:,28, 3) = (/&
+&.165E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.126E-01_JPRB,.108E-01_JPRB,&
+&.100E-01_JPRB,.975E-02_JPRB,.990E-02_JPRB,.110E-01_JPRB,.124E-01_JPRB,.147E-01_JPRB,.181E-01_JPRB,&
+&.231E-01_JPRB,.275E-01_JPRB,.352E-01_JPRB,.360E-01_JPRB,.350E-01_JPRB,.344E-01_JPRB,.325E-01_JPRB,&
+&.286E-01_JPRB,.270E-01_JPRB,.299E-01_JPRB,.395E-01_JPRB,.479E-01_JPRB,.519E-01_JPRB,.525E-01_JPRB,&
+&.493E-01_JPRB,.473E-01_JPRB,.517E-01_JPRB,.633E-01_JPRB,.916E-01_JPRB,.127E+00_JPRB,.151E+00_JPRB,&
+&.230E+00_JPRB,.223E+00_JPRB,.190E+00_JPRB,.183E+00_JPRB,.182E+00_JPRB,.173E+00_JPRB,.153E+00_JPRB,&
+&.160E+00_JPRB,.169E+00_JPRB,.182E+00_JPRB,.243E+00_JPRB,.214E+00_JPRB,.151E+00_JPRB,.112E+00_JPRB,&
+&.964E-01_JPRB,.909E-01_JPRB,.809E-01_JPRB,.655E-01_JPRB,.553E-01_JPRB,.462E-01_JPRB,.364E-01_JPRB,&
+&.305E-01_JPRB,.256E-01_JPRB,.224E-01_JPRB,.204E-01_JPRB,.185E-01_JPRB,.171E-01_JPRB,.158E-01_JPRB,&
+&.144E-01_JPRB,.129E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,.143E-01_JPRB,.154E-01_JPRB,&
+&.162E-01_JPRB,.165E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 29 -22.0
+ZAER (:,29, 3) = (/&
+&.187E-01_JPRB,.187E-01_JPRB,.182E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,.157E-01_JPRB,.142E-01_JPRB,&
+&.131E-01_JPRB,.124E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.134E-01_JPRB,.157E-01_JPRB,.220E-01_JPRB,&
+&.342E-01_JPRB,.337E-01_JPRB,.460E-01_JPRB,.436E-01_JPRB,.404E-01_JPRB,.394E-01_JPRB,.350E-01_JPRB,&
+&.262E-01_JPRB,.245E-01_JPRB,.263E-01_JPRB,.346E-01_JPRB,.433E-01_JPRB,.471E-01_JPRB,.470E-01_JPRB,&
+&.423E-01_JPRB,.376E-01_JPRB,.360E-01_JPRB,.382E-01_JPRB,.550E-01_JPRB,.903E-01_JPRB,.130E+00_JPRB,&
+&.199E+00_JPRB,.198E+00_JPRB,.194E+00_JPRB,.183E+00_JPRB,.161E+00_JPRB,.153E+00_JPRB,.148E+00_JPRB,&
+&.152E+00_JPRB,.154E+00_JPRB,.177E+00_JPRB,.258E+00_JPRB,.230E+00_JPRB,.178E+00_JPRB,.127E+00_JPRB,&
+&.116E+00_JPRB,.117E+00_JPRB,.981E-01_JPRB,.836E-01_JPRB,.761E-01_JPRB,.661E-01_JPRB,.571E-01_JPRB,&
+&.499E-01_JPRB,.411E-01_JPRB,.356E-01_JPRB,.321E-01_JPRB,.293E-01_JPRB,.266E-01_JPRB,.246E-01_JPRB,&
+&.223E-01_JPRB,.187E-01_JPRB,.165E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.161E-01_JPRB,.173E-01_JPRB,&
+&.186E-01_JPRB,.191E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 30 -26.0
+ZAER (:,30, 3) = (/&
+&.215E-01_JPRB,.201E-01_JPRB,.194E-01_JPRB,.185E-01_JPRB,.175E-01_JPRB,.167E-01_JPRB,.158E-01_JPRB,&
+&.150E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.165E-01_JPRB,.266E-01_JPRB,&
+&.398E-01_JPRB,.457E-01_JPRB,.860E-01_JPRB,.724E-01_JPRB,.442E-01_JPRB,.342E-01_JPRB,.277E-01_JPRB,&
+&.238E-01_JPRB,.236E-01_JPRB,.251E-01_JPRB,.285E-01_JPRB,.350E-01_JPRB,.396E-01_JPRB,.400E-01_JPRB,&
+&.378E-01_JPRB,.329E-01_JPRB,.292E-01_JPRB,.264E-01_JPRB,.318E-01_JPRB,.595E-01_JPRB,.107E+00_JPRB,&
+&.167E+00_JPRB,.225E+00_JPRB,.207E+00_JPRB,.189E+00_JPRB,.179E+00_JPRB,.155E+00_JPRB,.147E+00_JPRB,&
+&.140E+00_JPRB,.140E+00_JPRB,.163E+00_JPRB,.197E+00_JPRB,.199E+00_JPRB,.165E+00_JPRB,.134E+00_JPRB,&
+&.130E+00_JPRB,.130E+00_JPRB,.108E+00_JPRB,.947E-01_JPRB,.831E-01_JPRB,.685E-01_JPRB,.601E-01_JPRB,&
+&.565E-01_JPRB,.568E-01_JPRB,.525E-01_JPRB,.460E-01_JPRB,.403E-01_JPRB,.368E-01_JPRB,.338E-01_JPRB,&
+&.308E-01_JPRB,.280E-01_JPRB,.260E-01_JPRB,.245E-01_JPRB,.233E-01_JPRB,.227E-01_JPRB,.226E-01_JPRB,&
+&.227E-01_JPRB,.225E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 31 -30.0
+ZAER (:,31, 3) = (/&
+&.239E-01_JPRB,.216E-01_JPRB,.201E-01_JPRB,.186E-01_JPRB,.175E-01_JPRB,.165E-01_JPRB,.153E-01_JPRB,&
+&.144E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.224E-01_JPRB,&
+&.291E-01_JPRB,.501E-01_JPRB,.103E+00_JPRB,.865E-01_JPRB,.586E-01_JPRB,.414E-01_JPRB,.294E-01_JPRB,&
+&.258E-01_JPRB,.240E-01_JPRB,.236E-01_JPRB,.241E-01_JPRB,.272E-01_JPRB,.311E-01_JPRB,.328E-01_JPRB,&
+&.352E-01_JPRB,.307E-01_JPRB,.270E-01_JPRB,.246E-01_JPRB,.250E-01_JPRB,.340E-01_JPRB,.584E-01_JPRB,&
+&.839E-01_JPRB,.157E+00_JPRB,.153E+00_JPRB,.152E+00_JPRB,.163E+00_JPRB,.134E+00_JPRB,.124E+00_JPRB,&
+&.117E+00_JPRB,.113E+00_JPRB,.127E+00_JPRB,.139E+00_JPRB,.143E+00_JPRB,.122E+00_JPRB,.102E+00_JPRB,&
+&.109E+00_JPRB,.108E+00_JPRB,.100E+00_JPRB,.851E-01_JPRB,.693E-01_JPRB,.579E-01_JPRB,.551E-01_JPRB,&
+&.580E-01_JPRB,.667E-01_JPRB,.638E-01_JPRB,.532E-01_JPRB,.458E-01_JPRB,.416E-01_JPRB,.396E-01_JPRB,&
+&.377E-01_JPRB,.361E-01_JPRB,.347E-01_JPRB,.337E-01_JPRB,.325E-01_JPRB,.307E-01_JPRB,.295E-01_JPRB,&
+&.283E-01_JPRB,.266E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 32 -34.0
+ZAER (:,32, 3) = (/&
+&.235E-01_JPRB,.209E-01_JPRB,.187E-01_JPRB,.172E-01_JPRB,.161E-01_JPRB,.150E-01_JPRB,.137E-01_JPRB,&
+&.124E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.141E-01_JPRB,&
+&.187E-01_JPRB,.364E-01_JPRB,.575E-01_JPRB,.552E-01_JPRB,.458E-01_JPRB,.364E-01_JPRB,.305E-01_JPRB,&
+&.268E-01_JPRB,.229E-01_JPRB,.202E-01_JPRB,.194E-01_JPRB,.199E-01_JPRB,.226E-01_JPRB,.251E-01_JPRB,&
+&.289E-01_JPRB,.266E-01_JPRB,.227E-01_JPRB,.201E-01_JPRB,.210E-01_JPRB,.243E-01_JPRB,.321E-01_JPRB,&
+&.509E-01_JPRB,.743E-01_JPRB,.679E-01_JPRB,.694E-01_JPRB,.839E-01_JPRB,.775E-01_JPRB,.704E-01_JPRB,&
+&.641E-01_JPRB,.659E-01_JPRB,.732E-01_JPRB,.802E-01_JPRB,.815E-01_JPRB,.802E-01_JPRB,.721E-01_JPRB,&
+&.701E-01_JPRB,.709E-01_JPRB,.664E-01_JPRB,.612E-01_JPRB,.569E-01_JPRB,.549E-01_JPRB,.532E-01_JPRB,&
+&.558E-01_JPRB,.707E-01_JPRB,.707E-01_JPRB,.606E-01_JPRB,.532E-01_JPRB,.511E-01_JPRB,.477E-01_JPRB,&
+&.438E-01_JPRB,.397E-01_JPRB,.366E-01_JPRB,.346E-01_JPRB,.327E-01_JPRB,.306E-01_JPRB,.287E-01_JPRB,&
+&.271E-01_JPRB,.252E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 33 -38.0
+ZAER (:,33, 3) = (/&
+&.194E-01_JPRB,.176E-01_JPRB,.161E-01_JPRB,.150E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,&
+&.108E-01_JPRB,.101E-01_JPRB,.935E-02_JPRB,.866E-02_JPRB,.815E-02_JPRB,.835E-02_JPRB,.914E-02_JPRB,&
+&.110E-01_JPRB,.193E-01_JPRB,.305E-01_JPRB,.336E-01_JPRB,.315E-01_JPRB,.272E-01_JPRB,.255E-01_JPRB,&
+&.232E-01_JPRB,.203E-01_JPRB,.179E-01_JPRB,.158E-01_JPRB,.145E-01_JPRB,.158E-01_JPRB,.187E-01_JPRB,&
+&.220E-01_JPRB,.228E-01_JPRB,.204E-01_JPRB,.192E-01_JPRB,.197E-01_JPRB,.202E-01_JPRB,.217E-01_JPRB,&
+&.297E-01_JPRB,.309E-01_JPRB,.245E-01_JPRB,.244E-01_JPRB,.315E-01_JPRB,.364E-01_JPRB,.388E-01_JPRB,&
+&.375E-01_JPRB,.366E-01_JPRB,.408E-01_JPRB,.495E-01_JPRB,.594E-01_JPRB,.603E-01_JPRB,.582E-01_JPRB,&
+&.545E-01_JPRB,.504E-01_JPRB,.458E-01_JPRB,.523E-01_JPRB,.588E-01_JPRB,.581E-01_JPRB,.577E-01_JPRB,&
+&.608E-01_JPRB,.868E-01_JPRB,.966E-01_JPRB,.950E-01_JPRB,.761E-01_JPRB,.615E-01_JPRB,.498E-01_JPRB,&
+&.410E-01_JPRB,.350E-01_JPRB,.308E-01_JPRB,.282E-01_JPRB,.264E-01_JPRB,.249E-01_JPRB,.233E-01_JPRB,&
+&.217E-01_JPRB,.204E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 34 -42.0
+ZAER (:,34, 3) = (/&
+&.149E-01_JPRB,.142E-01_JPRB,.135E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.105E-01_JPRB,&
+&.974E-02_JPRB,.902E-02_JPRB,.830E-02_JPRB,.753E-02_JPRB,.686E-02_JPRB,.677E-02_JPRB,.700E-02_JPRB,&
+&.786E-02_JPRB,.106E-01_JPRB,.200E-01_JPRB,.241E-01_JPRB,.229E-01_JPRB,.214E-01_JPRB,.206E-01_JPRB,&
+&.190E-01_JPRB,.170E-01_JPRB,.150E-01_JPRB,.129E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.127E-01_JPRB,&
+&.150E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,.169E-01_JPRB,.157E-01_JPRB,.140E-01_JPRB,&
+&.141E-01_JPRB,.191E-01_JPRB,.146E-01_JPRB,.125E-01_JPRB,.174E-01_JPRB,.256E-01_JPRB,.286E-01_JPRB,&
+&.270E-01_JPRB,.265E-01_JPRB,.297E-01_JPRB,.353E-01_JPRB,.427E-01_JPRB,.568E-01_JPRB,.526E-01_JPRB,&
+&.477E-01_JPRB,.444E-01_JPRB,.410E-01_JPRB,.427E-01_JPRB,.507E-01_JPRB,.593E-01_JPRB,.762E-01_JPRB,&
+&.999E-01_JPRB,.126E+00_JPRB,.127E+00_JPRB,.980E-01_JPRB,.681E-01_JPRB,.480E-01_JPRB,.345E-01_JPRB,&
+&.271E-01_JPRB,.225E-01_JPRB,.188E-01_JPRB,.166E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,.154E-01_JPRB,&
+&.153E-01_JPRB,.152E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 35 -46.0
+ZAER (:,35, 3) = (/&
+&.114E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.977E-02_JPRB,&
+&.903E-02_JPRB,.852E-02_JPRB,.786E-02_JPRB,.699E-02_JPRB,.638E-02_JPRB,.635E-02_JPRB,.630E-02_JPRB,&
+&.648E-02_JPRB,.724E-02_JPRB,.114E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,&
+&.154E-01_JPRB,.147E-01_JPRB,.128E-01_JPRB,.106E-01_JPRB,.918E-02_JPRB,.833E-02_JPRB,.803E-02_JPRB,&
+&.923E-02_JPRB,.108E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.103E-01_JPRB,.898E-02_JPRB,&
+&.103E-01_JPRB,.159E-01_JPRB,.112E-01_JPRB,.915E-02_JPRB,.129E-01_JPRB,.178E-01_JPRB,.198E-01_JPRB,&
+&.200E-01_JPRB,.214E-01_JPRB,.258E-01_JPRB,.309E-01_JPRB,.420E-01_JPRB,.608E-01_JPRB,.540E-01_JPRB,&
+&.409E-01_JPRB,.390E-01_JPRB,.383E-01_JPRB,.370E-01_JPRB,.390E-01_JPRB,.434E-01_JPRB,.502E-01_JPRB,&
+&.615E-01_JPRB,.628E-01_JPRB,.612E-01_JPRB,.461E-01_JPRB,.372E-01_JPRB,.295E-01_JPRB,.245E-01_JPRB,&
+&.201E-01_JPRB,.154E-01_JPRB,.126E-01_JPRB,.106E-01_JPRB,.898E-02_JPRB,.858E-02_JPRB,.910E-02_JPRB,&
+&.101E-01_JPRB,.109E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 36 -50.0
+ZAER (:,36, 3) = (/&
+&.876E-02_JPRB,.956E-02_JPRB,.102E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.952E-02_JPRB,&
+&.880E-02_JPRB,.822E-02_JPRB,.743E-02_JPRB,.668E-02_JPRB,.617E-02_JPRB,.589E-02_JPRB,.559E-02_JPRB,&
+&.539E-02_JPRB,.556E-02_JPRB,.585E-02_JPRB,.103E-01_JPRB,.134E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,&
+&.134E-01_JPRB,.118E-01_JPRB,.102E-01_JPRB,.902E-02_JPRB,.783E-02_JPRB,.657E-02_JPRB,.589E-02_JPRB,&
+&.607E-02_JPRB,.667E-02_JPRB,.723E-02_JPRB,.746E-02_JPRB,.747E-02_JPRB,.708E-02_JPRB,.725E-02_JPRB,&
+&.117E-01_JPRB,.125E-01_JPRB,.848E-02_JPRB,.730E-02_JPRB,.101E-01_JPRB,.139E-01_JPRB,.159E-01_JPRB,&
+&.180E-01_JPRB,.181E-01_JPRB,.213E-01_JPRB,.279E-01_JPRB,.340E-01_JPRB,.446E-01_JPRB,.501E-01_JPRB,&
+&.415E-01_JPRB,.359E-01_JPRB,.334E-01_JPRB,.299E-01_JPRB,.282E-01_JPRB,.274E-01_JPRB,.254E-01_JPRB,&
+&.235E-01_JPRB,.226E-01_JPRB,.224E-01_JPRB,.222E-01_JPRB,.180E-01_JPRB,.136E-01_JPRB,.116E-01_JPRB,&
+&.969E-02_JPRB,.805E-02_JPRB,.791E-02_JPRB,.737E-02_JPRB,.648E-02_JPRB,.626E-02_JPRB,.655E-02_JPRB,&
+&.717E-02_JPRB,.795E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 37 -54.0
+ZAER (:,37, 3) = (/&
+&.709E-02_JPRB,.803E-02_JPRB,.898E-02_JPRB,.965E-02_JPRB,.988E-02_JPRB,.976E-02_JPRB,.917E-02_JPRB,&
+&.859E-02_JPRB,.798E-02_JPRB,.714E-02_JPRB,.648E-02_JPRB,.590E-02_JPRB,.550E-02_JPRB,.525E-02_JPRB,&
+&.514E-02_JPRB,.508E-02_JPRB,.532E-02_JPRB,.702E-02_JPRB,.942E-02_JPRB,.996E-02_JPRB,.104E-01_JPRB,&
+&.105E-01_JPRB,.937E-02_JPRB,.809E-02_JPRB,.720E-02_JPRB,.541E-02_JPRB,.455E-02_JPRB,.464E-02_JPRB,&
+&.469E-02_JPRB,.483E-02_JPRB,.520E-02_JPRB,.558E-02_JPRB,.577E-02_JPRB,.595E-02_JPRB,.756E-02_JPRB,&
+&.950E-02_JPRB,.783E-02_JPRB,.626E-02_JPRB,.625E-02_JPRB,.783E-02_JPRB,.113E-01_JPRB,.138E-01_JPRB,&
+&.167E-01_JPRB,.164E-01_JPRB,.195E-01_JPRB,.246E-01_JPRB,.267E-01_JPRB,.270E-01_JPRB,.321E-01_JPRB,&
+&.322E-01_JPRB,.290E-01_JPRB,.230E-01_JPRB,.192E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.159E-01_JPRB,&
+&.145E-01_JPRB,.136E-01_JPRB,.124E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.859E-02_JPRB,.680E-02_JPRB,&
+&.600E-02_JPRB,.518E-02_JPRB,.496E-02_JPRB,.530E-02_JPRB,.533E-02_JPRB,.561E-02_JPRB,.587E-02_JPRB,&
+&.634E-02_JPRB,.659E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 38 -58.0
+ZAER (:,38, 3) = (/&
+&.645E-02_JPRB,.714E-02_JPRB,.808E-02_JPRB,.884E-02_JPRB,.912E-02_JPRB,.900E-02_JPRB,.849E-02_JPRB,&
+&.817E-02_JPRB,.772E-02_JPRB,.707E-02_JPRB,.645E-02_JPRB,.614E-02_JPRB,.569E-02_JPRB,.531E-02_JPRB,&
+&.521E-02_JPRB,.531E-02_JPRB,.572E-02_JPRB,.656E-02_JPRB,.766E-02_JPRB,.788E-02_JPRB,.830E-02_JPRB,&
+&.905E-02_JPRB,.871E-02_JPRB,.715E-02_JPRB,.565E-02_JPRB,.445E-02_JPRB,.416E-02_JPRB,.426E-02_JPRB,&
+&.438E-02_JPRB,.439E-02_JPRB,.473E-02_JPRB,.506E-02_JPRB,.515E-02_JPRB,.548E-02_JPRB,.638E-02_JPRB,&
+&.582E-02_JPRB,.524E-02_JPRB,.490E-02_JPRB,.558E-02_JPRB,.662E-02_JPRB,.815E-02_JPRB,.958E-02_JPRB,&
+&.125E-01_JPRB,.153E-01_JPRB,.182E-01_JPRB,.215E-01_JPRB,.228E-01_JPRB,.237E-01_JPRB,.286E-01_JPRB,&
+&.293E-01_JPRB,.217E-01_JPRB,.157E-01_JPRB,.126E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,&
+&.101E-01_JPRB,.928E-02_JPRB,.831E-02_JPRB,.744E-02_JPRB,.709E-02_JPRB,.647E-02_JPRB,.580E-02_JPRB,&
+&.539E-02_JPRB,.488E-02_JPRB,.492E-02_JPRB,.525E-02_JPRB,.552E-02_JPRB,.578E-02_JPRB,.585E-02_JPRB,&
+&.591E-02_JPRB,.603E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 39 -62.0
+ZAER (:,39, 3) = (/&
+&.669E-02_JPRB,.724E-02_JPRB,.780E-02_JPRB,.819E-02_JPRB,.839E-02_JPRB,.831E-02_JPRB,.788E-02_JPRB,&
+&.767E-02_JPRB,.744E-02_JPRB,.685E-02_JPRB,.631E-02_JPRB,.602E-02_JPRB,.570E-02_JPRB,.536E-02_JPRB,&
+&.527E-02_JPRB,.544E-02_JPRB,.614E-02_JPRB,.682E-02_JPRB,.759E-02_JPRB,.799E-02_JPRB,.825E-02_JPRB,&
+&.851E-02_JPRB,.814E-02_JPRB,.662E-02_JPRB,.528E-02_JPRB,.470E-02_JPRB,.440E-02_JPRB,.449E-02_JPRB,&
+&.463E-02_JPRB,.485E-02_JPRB,.527E-02_JPRB,.543E-02_JPRB,.526E-02_JPRB,.501E-02_JPRB,.481E-02_JPRB,&
+&.427E-02_JPRB,.430E-02_JPRB,.428E-02_JPRB,.433E-02_JPRB,.455E-02_JPRB,.575E-02_JPRB,.717E-02_JPRB,&
+&.893E-02_JPRB,.133E-01_JPRB,.155E-01_JPRB,.175E-01_JPRB,.192E-01_JPRB,.223E-01_JPRB,.260E-01_JPRB,&
+&.256E-01_JPRB,.184E-01_JPRB,.133E-01_JPRB,.984E-02_JPRB,.826E-02_JPRB,.765E-02_JPRB,.776E-02_JPRB,&
+&.793E-02_JPRB,.735E-02_JPRB,.647E-02_JPRB,.597E-02_JPRB,.575E-02_JPRB,.533E-02_JPRB,.516E-02_JPRB,&
+&.515E-02_JPRB,.507E-02_JPRB,.521E-02_JPRB,.542E-02_JPRB,.563E-02_JPRB,.575E-02_JPRB,.581E-02_JPRB,&
+&.584E-02_JPRB,.625E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 40 -66.0
+ZAER (:,40, 3) = (/&
+&.677E-02_JPRB,.718E-02_JPRB,.745E-02_JPRB,.762E-02_JPRB,.766E-02_JPRB,.753E-02_JPRB,.722E-02_JPRB,&
+&.690E-02_JPRB,.667E-02_JPRB,.646E-02_JPRB,.599E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.583E-02_JPRB,&
+&.563E-02_JPRB,.571E-02_JPRB,.631E-02_JPRB,.679E-02_JPRB,.732E-02_JPRB,.824E-02_JPRB,.897E-02_JPRB,&
+&.907E-02_JPRB,.843E-02_JPRB,.693E-02_JPRB,.554E-02_JPRB,.477E-02_JPRB,.462E-02_JPRB,.465E-02_JPRB,&
+&.471E-02_JPRB,.514E-02_JPRB,.559E-02_JPRB,.532E-02_JPRB,.478E-02_JPRB,.420E-02_JPRB,.394E-02_JPRB,&
+&.379E-02_JPRB,.377E-02_JPRB,.370E-02_JPRB,.366E-02_JPRB,.374E-02_JPRB,.422E-02_JPRB,.505E-02_JPRB,&
+&.704E-02_JPRB,.117E-01_JPRB,.136E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.150E-01_JPRB,&
+&.141E-01_JPRB,.144E-01_JPRB,.135E-01_JPRB,.113E-01_JPRB,.958E-02_JPRB,.848E-02_JPRB,.810E-02_JPRB,&
+&.802E-02_JPRB,.746E-02_JPRB,.649E-02_JPRB,.573E-02_JPRB,.529E-02_JPRB,.500E-02_JPRB,.516E-02_JPRB,&
+&.552E-02_JPRB,.553E-02_JPRB,.552E-02_JPRB,.563E-02_JPRB,.586E-02_JPRB,.590E-02_JPRB,.591E-02_JPRB,&
+&.610E-02_JPRB,.644E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 41 -70.0
+ZAER (:,41, 3) = (/&
+&.628E-02_JPRB,.647E-02_JPRB,.665E-02_JPRB,.673E-02_JPRB,.664E-02_JPRB,.646E-02_JPRB,.631E-02_JPRB,&
+&.608E-02_JPRB,.575E-02_JPRB,.547E-02_JPRB,.552E-02_JPRB,.577E-02_JPRB,.597E-02_JPRB,.601E-02_JPRB,&
+&.565E-02_JPRB,.564E-02_JPRB,.598E-02_JPRB,.625E-02_JPRB,.668E-02_JPRB,.769E-02_JPRB,.887E-02_JPRB,&
+&.992E-02_JPRB,.103E-01_JPRB,.883E-02_JPRB,.703E-02_JPRB,.533E-02_JPRB,.472E-02_JPRB,.475E-02_JPRB,&
+&.485E-02_JPRB,.527E-02_JPRB,.576E-02_JPRB,.559E-02_JPRB,.498E-02_JPRB,.431E-02_JPRB,.390E-02_JPRB,&
+&.384E-02_JPRB,.386E-02_JPRB,.389E-02_JPRB,.399E-02_JPRB,.418E-02_JPRB,.459E-02_JPRB,.537E-02_JPRB,&
+&.667E-02_JPRB,.837E-02_JPRB,.115E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,&
+&.972E-02_JPRB,.972E-02_JPRB,.104E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.924E-02_JPRB,.856E-02_JPRB,&
+&.806E-02_JPRB,.722E-02_JPRB,.599E-02_JPRB,.530E-02_JPRB,.509E-02_JPRB,.503E-02_JPRB,.512E-02_JPRB,&
+&.538E-02_JPRB,.544E-02_JPRB,.537E-02_JPRB,.547E-02_JPRB,.565E-02_JPRB,.564E-02_JPRB,.578E-02_JPRB,&
+&.595E-02_JPRB,.611E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 42 -74.0
+ZAER (:,42, 3) = (/&
+&.557E-02_JPRB,.568E-02_JPRB,.571E-02_JPRB,.567E-02_JPRB,.561E-02_JPRB,.559E-02_JPRB,.559E-02_JPRB,&
+&.551E-02_JPRB,.539E-02_JPRB,.529E-02_JPRB,.540E-02_JPRB,.569E-02_JPRB,.588E-02_JPRB,.595E-02_JPRB,&
+&.572E-02_JPRB,.543E-02_JPRB,.538E-02_JPRB,.552E-02_JPRB,.593E-02_JPRB,.678E-02_JPRB,.762E-02_JPRB,&
+&.828E-02_JPRB,.882E-02_JPRB,.874E-02_JPRB,.823E-02_JPRB,.693E-02_JPRB,.603E-02_JPRB,.567E-02_JPRB,&
+&.556E-02_JPRB,.568E-02_JPRB,.594E-02_JPRB,.603E-02_JPRB,.544E-02_JPRB,.481E-02_JPRB,.449E-02_JPRB,&
+&.445E-02_JPRB,.440E-02_JPRB,.457E-02_JPRB,.499E-02_JPRB,.542E-02_JPRB,.587E-02_JPRB,.632E-02_JPRB,&
+&.660E-02_JPRB,.703E-02_JPRB,.823E-02_JPRB,.873E-02_JPRB,.836E-02_JPRB,.798E-02_JPRB,.794E-02_JPRB,&
+&.824E-02_JPRB,.837E-02_JPRB,.804E-02_JPRB,.816E-02_JPRB,.825E-02_JPRB,.820E-02_JPRB,.794E-02_JPRB,&
+&.751E-02_JPRB,.686E-02_JPRB,.561E-02_JPRB,.502E-02_JPRB,.491E-02_JPRB,.482E-02_JPRB,.481E-02_JPRB,&
+&.494E-02_JPRB,.495E-02_JPRB,.491E-02_JPRB,.492E-02_JPRB,.503E-02_JPRB,.511E-02_JPRB,.524E-02_JPRB,&
+&.536E-02_JPRB,.544E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 43 -78.0
+ZAER (:,43, 3) = (/&
+&.487E-02_JPRB,.490E-02_JPRB,.491E-02_JPRB,.489E-02_JPRB,.489E-02_JPRB,.491E-02_JPRB,.496E-02_JPRB,&
+&.498E-02_JPRB,.501E-02_JPRB,.505E-02_JPRB,.512E-02_JPRB,.515E-02_JPRB,.520E-02_JPRB,.527E-02_JPRB,&
+&.544E-02_JPRB,.553E-02_JPRB,.555E-02_JPRB,.558E-02_JPRB,.575E-02_JPRB,.605E-02_JPRB,.632E-02_JPRB,&
+&.658E-02_JPRB,.689E-02_JPRB,.710E-02_JPRB,.704E-02_JPRB,.672E-02_JPRB,.633E-02_JPRB,.608E-02_JPRB,&
+&.592E-02_JPRB,.589E-02_JPRB,.588E-02_JPRB,.584E-02_JPRB,.554E-02_JPRB,.517E-02_JPRB,.514E-02_JPRB,&
+&.525E-02_JPRB,.541E-02_JPRB,.562E-02_JPRB,.583E-02_JPRB,.591E-02_JPRB,.582E-02_JPRB,.577E-02_JPRB,&
+&.570E-02_JPRB,.550E-02_JPRB,.554E-02_JPRB,.551E-02_JPRB,.533E-02_JPRB,.549E-02_JPRB,.560E-02_JPRB,&
+&.588E-02_JPRB,.618E-02_JPRB,.632E-02_JPRB,.652E-02_JPRB,.674E-02_JPRB,.689E-02_JPRB,.682E-02_JPRB,&
+&.651E-02_JPRB,.608E-02_JPRB,.538E-02_JPRB,.484E-02_JPRB,.468E-02_JPRB,.464E-02_JPRB,.460E-02_JPRB,&
+&.461E-02_JPRB,.459E-02_JPRB,.452E-02_JPRB,.451E-02_JPRB,.450E-02_JPRB,.451E-02_JPRB,.460E-02_JPRB,&
+&.472E-02_JPRB,.482E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 44 -82.0
+ZAER (:,44, 3) = (/&
+&.451E-02_JPRB,.459E-02_JPRB,.465E-02_JPRB,.468E-02_JPRB,.471E-02_JPRB,.472E-02_JPRB,.474E-02_JPRB,&
+&.477E-02_JPRB,.478E-02_JPRB,.480E-02_JPRB,.479E-02_JPRB,.472E-02_JPRB,.467E-02_JPRB,.470E-02_JPRB,&
+&.484E-02_JPRB,.502E-02_JPRB,.519E-02_JPRB,.531E-02_JPRB,.539E-02_JPRB,.542E-02_JPRB,.546E-02_JPRB,&
+&.552E-02_JPRB,.565E-02_JPRB,.575E-02_JPRB,.578E-02_JPRB,.582E-02_JPRB,.584E-02_JPRB,.586E-02_JPRB,&
+&.583E-02_JPRB,.566E-02_JPRB,.520E-02_JPRB,.491E-02_JPRB,.487E-02_JPRB,.498E-02_JPRB,.503E-02_JPRB,&
+&.511E-02_JPRB,.519E-02_JPRB,.526E-02_JPRB,.529E-02_JPRB,.525E-02_JPRB,.513E-02_JPRB,.512E-02_JPRB,&
+&.516E-02_JPRB,.511E-02_JPRB,.506E-02_JPRB,.505E-02_JPRB,.502E-02_JPRB,.508E-02_JPRB,.532E-02_JPRB,&
+&.550E-02_JPRB,.564E-02_JPRB,.573E-02_JPRB,.578E-02_JPRB,.577E-02_JPRB,.574E-02_JPRB,.572E-02_JPRB,&
+&.562E-02_JPRB,.540E-02_JPRB,.509E-02_JPRB,.486E-02_JPRB,.474E-02_JPRB,.468E-02_JPRB,.465E-02_JPRB,&
+&.460E-02_JPRB,.451E-02_JPRB,.444E-02_JPRB,.440E-02_JPRB,.436E-02_JPRB,.432E-02_JPRB,.433E-02_JPRB,&
+&.438E-02_JPRB,.445E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 45 -86.0
+ZAER (:,45, 3) = (/&
+&.458E-02_JPRB,.461E-02_JPRB,.463E-02_JPRB,.465E-02_JPRB,.467E-02_JPRB,.469E-02_JPRB,.472E-02_JPRB,&
+&.473E-02_JPRB,.474E-02_JPRB,.475E-02_JPRB,.476E-02_JPRB,.477E-02_JPRB,.479E-02_JPRB,.482E-02_JPRB,&
+&.485E-02_JPRB,.487E-02_JPRB,.490E-02_JPRB,.492E-02_JPRB,.493E-02_JPRB,.491E-02_JPRB,.490E-02_JPRB,&
+&.491E-02_JPRB,.493E-02_JPRB,.495E-02_JPRB,.497E-02_JPRB,.498E-02_JPRB,.497E-02_JPRB,.496E-02_JPRB,&
+&.495E-02_JPRB,.491E-02_JPRB,.492E-02_JPRB,.498E-02_JPRB,.504E-02_JPRB,.511E-02_JPRB,.515E-02_JPRB,&
+&.515E-02_JPRB,.515E-02_JPRB,.512E-02_JPRB,.505E-02_JPRB,.498E-02_JPRB,.492E-02_JPRB,.491E-02_JPRB,&
+&.488E-02_JPRB,.487E-02_JPRB,.488E-02_JPRB,.489E-02_JPRB,.492E-02_JPRB,.496E-02_JPRB,.500E-02_JPRB,&
+&.501E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.498E-02_JPRB,.495E-02_JPRB,.490E-02_JPRB,.486E-02_JPRB,&
+&.481E-02_JPRB,.476E-02_JPRB,.472E-02_JPRB,.466E-02_JPRB,.462E-02_JPRB,.458E-02_JPRB,.455E-02_JPRB,&
+&.452E-02_JPRB,.450E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.447E-02_JPRB,.448E-02_JPRB,.451E-02_JPRB,&
+&.453E-02_JPRB,.456E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  3 --- lat: 46 -90.0
+ZAER (:,46, 3) = (/&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.472E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=3   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_03
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_04.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_04.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_04.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_04
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      April
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,4:4)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  1  90.0
+ZAER (:, 1, 4) = (/&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  2  86.0
+ZAER (:, 2, 4) = (/&
+&.965E-03_JPRB,.951E-03_JPRB,.940E-03_JPRB,.923E-03_JPRB,.905E-03_JPRB,.893E-03_JPRB,.886E-03_JPRB,&
+&.883E-03_JPRB,.892E-03_JPRB,.904E-03_JPRB,.914E-03_JPRB,.924E-03_JPRB,.935E-03_JPRB,.950E-03_JPRB,&
+&.967E-03_JPRB,.982E-03_JPRB,.992E-03_JPRB,.999E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.997E-03_JPRB,&
+&.989E-03_JPRB,.988E-03_JPRB,.995E-03_JPRB,.100E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.999E-03_JPRB,.997E-03_JPRB,.992E-03_JPRB,&
+&.985E-03_JPRB,.972E-03_JPRB,.969E-03_JPRB,.972E-03_JPRB,.975E-03_JPRB,.980E-03_JPRB,.986E-03_JPRB,&
+&.987E-03_JPRB,.991E-03_JPRB,.992E-03_JPRB,.990E-03_JPRB,.990E-03_JPRB,.988E-03_JPRB,.985E-03_JPRB,&
+&.980E-03_JPRB,.978E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.974E-03_JPRB,.972E-03_JPRB,.970E-03_JPRB,&
+&.967E-03_JPRB,.966E-03_JPRB,.968E-03_JPRB,.967E-03_JPRB,.969E-03_JPRB,.974E-03_JPRB,.975E-03_JPRB,&
+&.976E-03_JPRB,.977E-03_JPRB,.976E-03_JPRB,.978E-03_JPRB,.980E-03_JPRB,.978E-03_JPRB,.981E-03_JPRB,&
+&.986E-03_JPRB,.978E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  3  82.0
+ZAER (:, 3, 4) = (/&
+&.848E-03_JPRB,.852E-03_JPRB,.856E-03_JPRB,.857E-03_JPRB,.854E-03_JPRB,.849E-03_JPRB,.841E-03_JPRB,&
+&.835E-03_JPRB,.833E-03_JPRB,.843E-03_JPRB,.846E-03_JPRB,.845E-03_JPRB,.850E-03_JPRB,.862E-03_JPRB,&
+&.888E-03_JPRB,.914E-03_JPRB,.940E-03_JPRB,.961E-03_JPRB,.975E-03_JPRB,.980E-03_JPRB,.976E-03_JPRB,&
+&.965E-03_JPRB,.957E-03_JPRB,.964E-03_JPRB,.981E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,&
+&.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,&
+&.111E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.100E-02_JPRB,.999E-03_JPRB,&
+&.100E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.102E-02_JPRB,.990E-03_JPRB,.973E-03_JPRB,.962E-03_JPRB,&
+&.945E-03_JPRB,.934E-03_JPRB,.927E-03_JPRB,.924E-03_JPRB,.922E-03_JPRB,.923E-03_JPRB,.925E-03_JPRB,&
+&.923E-03_JPRB,.920E-03_JPRB,.919E-03_JPRB,.917E-03_JPRB,.907E-03_JPRB,.885E-03_JPRB,.853E-03_JPRB,&
+&.837E-03_JPRB,.840E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  4  78.0
+ZAER (:, 4, 4) = (/&
+&.828E-03_JPRB,.824E-03_JPRB,.802E-03_JPRB,.782E-03_JPRB,.769E-03_JPRB,.761E-03_JPRB,.762E-03_JPRB,&
+&.782E-03_JPRB,.806E-03_JPRB,.822E-03_JPRB,.826E-03_JPRB,.817E-03_JPRB,.811E-03_JPRB,.795E-03_JPRB,&
+&.789E-03_JPRB,.795E-03_JPRB,.815E-03_JPRB,.847E-03_JPRB,.887E-03_JPRB,.927E-03_JPRB,.958E-03_JPRB,&
+&.983E-03_JPRB,.101E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,&
+&.114E-02_JPRB,.115E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.122E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,&
+&.128E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.119E-02_JPRB,.123E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.123E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.114E-02_JPRB,.107E-02_JPRB,.100E-02_JPRB,.994E-03_JPRB,&
+&.969E-03_JPRB,.944E-03_JPRB,.931E-03_JPRB,.924E-03_JPRB,.920E-03_JPRB,.909E-03_JPRB,.896E-03_JPRB,&
+&.892E-03_JPRB,.886E-03_JPRB,.877E-03_JPRB,.870E-03_JPRB,.863E-03_JPRB,.835E-03_JPRB,.797E-03_JPRB,&
+&.794E-03_JPRB,.811E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  5  74.0
+ZAER (:, 5, 4) = (/&
+&.858E-03_JPRB,.863E-03_JPRB,.857E-03_JPRB,.865E-03_JPRB,.884E-03_JPRB,.887E-03_JPRB,.888E-03_JPRB,&
+&.903E-03_JPRB,.931E-03_JPRB,.945E-03_JPRB,.947E-03_JPRB,.930E-03_JPRB,.906E-03_JPRB,.888E-03_JPRB,&
+&.877E-03_JPRB,.870E-03_JPRB,.887E-03_JPRB,.925E-03_JPRB,.969E-03_JPRB,.100E-02_JPRB,.102E-02_JPRB,&
+&.104E-02_JPRB,.109E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.116E-02_JPRB,.124E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.139E-02_JPRB,.146E-02_JPRB,&
+&.150E-02_JPRB,.148E-02_JPRB,.140E-02_JPRB,.127E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.121E-02_JPRB,&
+&.125E-02_JPRB,.130E-02_JPRB,.137E-02_JPRB,.145E-02_JPRB,.155E-02_JPRB,.160E-02_JPRB,.154E-02_JPRB,&
+&.145E-02_JPRB,.140E-02_JPRB,.137E-02_JPRB,.130E-02_JPRB,.119E-02_JPRB,.107E-02_JPRB,.102E-02_JPRB,&
+&.100E-02_JPRB,.987E-03_JPRB,.991E-03_JPRB,.987E-03_JPRB,.967E-03_JPRB,.946E-03_JPRB,.927E-03_JPRB,&
+&.921E-03_JPRB,.908E-03_JPRB,.883E-03_JPRB,.864E-03_JPRB,.866E-03_JPRB,.858E-03_JPRB,.842E-03_JPRB,&
+&.839E-03_JPRB,.844E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  6  70.0
+ZAER (:, 6, 4) = (/&
+&.105E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,.115E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,&
+&.125E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.123E-02_JPRB,&
+&.120E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.122E-02_JPRB,.126E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.121E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.126E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,.154E-02_JPRB,&
+&.164E-02_JPRB,.160E-02_JPRB,.145E-02_JPRB,.126E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,&
+&.126E-02_JPRB,.137E-02_JPRB,.145E-02_JPRB,.154E-02_JPRB,.173E-02_JPRB,.189E-02_JPRB,.183E-02_JPRB,&
+&.169E-02_JPRB,.158E-02_JPRB,.154E-02_JPRB,.147E-02_JPRB,.138E-02_JPRB,.126E-02_JPRB,.115E-02_JPRB,&
+&.108E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,&
+&.106E-02_JPRB,.103E-02_JPRB,.990E-03_JPRB,.971E-03_JPRB,.960E-03_JPRB,.960E-03_JPRB,.967E-03_JPRB,&
+&.985E-03_JPRB,.101E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  7  66.0
+ZAER (:, 7, 4) = (/&
+&.150E-02_JPRB,.153E-02_JPRB,.157E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.165E-02_JPRB,&
+&.169E-02_JPRB,.173E-02_JPRB,.176E-02_JPRB,.177E-02_JPRB,.174E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,&
+&.157E-02_JPRB,.154E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,&
+&.144E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,.157E-02_JPRB,.152E-02_JPRB,.141E-02_JPRB,.136E-02_JPRB,&
+&.141E-02_JPRB,.147E-02_JPRB,.158E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,&
+&.166E-02_JPRB,.168E-02_JPRB,.155E-02_JPRB,.139E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,&
+&.138E-02_JPRB,.152E-02_JPRB,.164E-02_JPRB,.168E-02_JPRB,.172E-02_JPRB,.182E-02_JPRB,.194E-02_JPRB,&
+&.204E-02_JPRB,.206E-02_JPRB,.199E-02_JPRB,.186E-02_JPRB,.175E-02_JPRB,.165E-02_JPRB,.158E-02_JPRB,&
+&.152E-02_JPRB,.145E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.135E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.138E-02_JPRB,&
+&.142E-02_JPRB,.146E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  8  62.0
+ZAER (:, 8, 4) = (/&
+&.224E-02_JPRB,.228E-02_JPRB,.233E-02_JPRB,.238E-02_JPRB,.242E-02_JPRB,.251E-02_JPRB,.263E-02_JPRB,&
+&.270E-02_JPRB,.270E-02_JPRB,.261E-02_JPRB,.247E-02_JPRB,.234E-02_JPRB,.222E-02_JPRB,.212E-02_JPRB,&
+&.203E-02_JPRB,.196E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.183E-02_JPRB,.180E-02_JPRB,.176E-02_JPRB,&
+&.172E-02_JPRB,.170E-02_JPRB,.176E-02_JPRB,.199E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,&
+&.219E-02_JPRB,.228E-02_JPRB,.223E-02_JPRB,.206E-02_JPRB,.189E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,.183E-02_JPRB,.188E-02_JPRB,.194E-02_JPRB,.204E-02_JPRB,&
+&.213E-02_JPRB,.223E-02_JPRB,.226E-02_JPRB,.219E-02_JPRB,.209E-02_JPRB,.201E-02_JPRB,.204E-02_JPRB,&
+&.218E-02_JPRB,.234E-02_JPRB,.244E-02_JPRB,.240E-02_JPRB,.224E-02_JPRB,.211E-02_JPRB,.204E-02_JPRB,&
+&.198E-02_JPRB,.193E-02_JPRB,.188E-02_JPRB,.182E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,&
+&.176E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,.179E-02_JPRB,.186E-02_JPRB,.195E-02_JPRB,.203E-02_JPRB,&
+&.211E-02_JPRB,.218E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat:  9  58.0
+ZAER (:, 9, 4) = (/&
+&.385E-02_JPRB,.387E-02_JPRB,.391E-02_JPRB,.398E-02_JPRB,.409E-02_JPRB,.416E-02_JPRB,.405E-02_JPRB,&
+&.382E-02_JPRB,.351E-02_JPRB,.324E-02_JPRB,.307E-02_JPRB,.296E-02_JPRB,.287E-02_JPRB,.277E-02_JPRB,&
+&.265E-02_JPRB,.252E-02_JPRB,.242E-02_JPRB,.233E-02_JPRB,.224E-02_JPRB,.217E-02_JPRB,.211E-02_JPRB,&
+&.211E-02_JPRB,.217E-02_JPRB,.248E-02_JPRB,.296E-02_JPRB,.363E-02_JPRB,.374E-02_JPRB,.361E-02_JPRB,&
+&.342E-02_JPRB,.313E-02_JPRB,.288E-02_JPRB,.264E-02_JPRB,.246E-02_JPRB,.233E-02_JPRB,.232E-02_JPRB,&
+&.242E-02_JPRB,.257E-02_JPRB,.271E-02_JPRB,.284E-02_JPRB,.302E-02_JPRB,.314E-02_JPRB,.320E-02_JPRB,&
+&.322E-02_JPRB,.322E-02_JPRB,.314E-02_JPRB,.300E-02_JPRB,.288E-02_JPRB,.286E-02_JPRB,.293E-02_JPRB,&
+&.298E-02_JPRB,.296E-02_JPRB,.290E-02_JPRB,.282E-02_JPRB,.272E-02_JPRB,.260E-02_JPRB,.250E-02_JPRB,&
+&.244E-02_JPRB,.240E-02_JPRB,.238E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.237E-02_JPRB,.238E-02_JPRB,&
+&.241E-02_JPRB,.247E-02_JPRB,.262E-02_JPRB,.285E-02_JPRB,.316E-02_JPRB,.345E-02_JPRB,.368E-02_JPRB,&
+&.381E-02_JPRB,.385E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 10  54.0
+ZAER (:,10, 4) = (/&
+&.534E-02_JPRB,.526E-02_JPRB,.521E-02_JPRB,.515E-02_JPRB,.492E-02_JPRB,.439E-02_JPRB,.374E-02_JPRB,&
+&.331E-02_JPRB,.308E-02_JPRB,.297E-02_JPRB,.299E-02_JPRB,.309E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,&
+&.309E-02_JPRB,.298E-02_JPRB,.288E-02_JPRB,.277E-02_JPRB,.267E-02_JPRB,.257E-02_JPRB,.260E-02_JPRB,&
+&.288E-02_JPRB,.463E-02_JPRB,.608E-02_JPRB,.788E-02_JPRB,.855E-02_JPRB,.716E-02_JPRB,.582E-02_JPRB,&
+&.484E-02_JPRB,.410E-02_JPRB,.374E-02_JPRB,.354E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,&
+&.343E-02_JPRB,.354E-02_JPRB,.375E-02_JPRB,.388E-02_JPRB,.393E-02_JPRB,.393E-02_JPRB,.393E-02_JPRB,&
+&.401E-02_JPRB,.405E-02_JPRB,.398E-02_JPRB,.392E-02_JPRB,.393E-02_JPRB,.398E-02_JPRB,.395E-02_JPRB,&
+&.383E-02_JPRB,.370E-02_JPRB,.358E-02_JPRB,.342E-02_JPRB,.324E-02_JPRB,.310E-02_JPRB,.301E-02_JPRB,&
+&.298E-02_JPRB,.296E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.301E-02_JPRB,.306E-02_JPRB,.316E-02_JPRB,&
+&.337E-02_JPRB,.376E-02_JPRB,.443E-02_JPRB,.528E-02_JPRB,.596E-02_JPRB,.619E-02_JPRB,.604E-02_JPRB,&
+&.578E-02_JPRB,.552E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 11  50.0
+ZAER (:,11, 4) = (/&
+&.580E-02_JPRB,.575E-02_JPRB,.563E-02_JPRB,.513E-02_JPRB,.420E-02_JPRB,.365E-02_JPRB,.339E-02_JPRB,&
+&.331E-02_JPRB,.322E-02_JPRB,.317E-02_JPRB,.315E-02_JPRB,.309E-02_JPRB,.314E-02_JPRB,.321E-02_JPRB,&
+&.319E-02_JPRB,.312E-02_JPRB,.303E-02_JPRB,.295E-02_JPRB,.287E-02_JPRB,.281E-02_JPRB,.374E-02_JPRB,&
+&.701E-02_JPRB,.201E-01_JPRB,.261E-01_JPRB,.225E-01_JPRB,.156E-01_JPRB,.125E-01_JPRB,.107E-01_JPRB,&
+&.862E-02_JPRB,.726E-02_JPRB,.627E-02_JPRB,.544E-02_JPRB,.525E-02_JPRB,.527E-02_JPRB,.519E-02_JPRB,&
+&.501E-02_JPRB,.490E-02_JPRB,.480E-02_JPRB,.469E-02_JPRB,.467E-02_JPRB,.477E-02_JPRB,.495E-02_JPRB,&
+&.521E-02_JPRB,.515E-02_JPRB,.506E-02_JPRB,.498E-02_JPRB,.494E-02_JPRB,.487E-02_JPRB,.476E-02_JPRB,&
+&.464E-02_JPRB,.452E-02_JPRB,.438E-02_JPRB,.420E-02_JPRB,.397E-02_JPRB,.377E-02_JPRB,.365E-02_JPRB,&
+&.358E-02_JPRB,.352E-02_JPRB,.350E-02_JPRB,.357E-02_JPRB,.374E-02_JPRB,.398E-02_JPRB,.454E-02_JPRB,&
+&.547E-02_JPRB,.689E-02_JPRB,.805E-02_JPRB,.833E-02_JPRB,.786E-02_JPRB,.702E-02_JPRB,.631E-02_JPRB,&
+&.591E-02_JPRB,.575E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 12  46.0
+ZAER (:,12, 4) = (/&
+&.601E-02_JPRB,.603E-02_JPRB,.572E-02_JPRB,.493E-02_JPRB,.415E-02_JPRB,.378E-02_JPRB,.360E-02_JPRB,&
+&.352E-02_JPRB,.349E-02_JPRB,.351E-02_JPRB,.339E-02_JPRB,.328E-02_JPRB,.323E-02_JPRB,.324E-02_JPRB,&
+&.317E-02_JPRB,.309E-02_JPRB,.305E-02_JPRB,.299E-02_JPRB,.292E-02_JPRB,.302E-02_JPRB,.561E-02_JPRB,&
+&.141E-01_JPRB,.348E-01_JPRB,.635E-01_JPRB,.483E-01_JPRB,.266E-01_JPRB,.224E-01_JPRB,.193E-01_JPRB,&
+&.159E-01_JPRB,.137E-01_JPRB,.111E-01_JPRB,.886E-02_JPRB,.772E-02_JPRB,.726E-02_JPRB,.706E-02_JPRB,&
+&.677E-02_JPRB,.635E-02_JPRB,.598E-02_JPRB,.576E-02_JPRB,.574E-02_JPRB,.598E-02_JPRB,.653E-02_JPRB,&
+&.694E-02_JPRB,.665E-02_JPRB,.639E-02_JPRB,.615E-02_JPRB,.593E-02_JPRB,.565E-02_JPRB,.543E-02_JPRB,&
+&.523E-02_JPRB,.500E-02_JPRB,.476E-02_JPRB,.461E-02_JPRB,.438E-02_JPRB,.420E-02_JPRB,.407E-02_JPRB,&
+&.397E-02_JPRB,.389E-02_JPRB,.392E-02_JPRB,.437E-02_JPRB,.531E-02_JPRB,.601E-02_JPRB,.821E-02_JPRB,&
+&.100E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.908E-02_JPRB,.728E-02_JPRB,.619E-02_JPRB,.575E-02_JPRB,&
+&.571E-02_JPRB,.581E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 13  42.0
+ZAER (:,13, 4) = (/&
+&.654E-02_JPRB,.623E-02_JPRB,.557E-02_JPRB,.487E-02_JPRB,.433E-02_JPRB,.392E-02_JPRB,.373E-02_JPRB,&
+&.364E-02_JPRB,.365E-02_JPRB,.371E-02_JPRB,.362E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.344E-02_JPRB,&
+&.324E-02_JPRB,.309E-02_JPRB,.304E-02_JPRB,.303E-02_JPRB,.307E-02_JPRB,.374E-02_JPRB,.101E-01_JPRB,&
+&.234E-01_JPRB,.578E-01_JPRB,.996E-01_JPRB,.794E-01_JPRB,.474E-01_JPRB,.343E-01_JPRB,.263E-01_JPRB,&
+&.207E-01_JPRB,.175E-01_JPRB,.151E-01_JPRB,.129E-01_JPRB,.113E-01_JPRB,.997E-02_JPRB,.881E-02_JPRB,&
+&.776E-02_JPRB,.717E-02_JPRB,.688E-02_JPRB,.669E-02_JPRB,.699E-02_JPRB,.745E-02_JPRB,.836E-02_JPRB,&
+&.872E-02_JPRB,.813E-02_JPRB,.766E-02_JPRB,.725E-02_JPRB,.700E-02_JPRB,.669E-02_JPRB,.623E-02_JPRB,&
+&.574E-02_JPRB,.539E-02_JPRB,.503E-02_JPRB,.486E-02_JPRB,.467E-02_JPRB,.455E-02_JPRB,.450E-02_JPRB,&
+&.449E-02_JPRB,.448E-02_JPRB,.464E-02_JPRB,.644E-02_JPRB,.881E-02_JPRB,.115E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.107E-01_JPRB,.737E-02_JPRB,.618E-02_JPRB,.576E-02_JPRB,&
+&.593E-02_JPRB,.637E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 14  38.0
+ZAER (:,14, 4) = (/&
+&.702E-02_JPRB,.640E-02_JPRB,.575E-02_JPRB,.511E-02_JPRB,.452E-02_JPRB,.414E-02_JPRB,.393E-02_JPRB,&
+&.385E-02_JPRB,.382E-02_JPRB,.378E-02_JPRB,.379E-02_JPRB,.372E-02_JPRB,.371E-02_JPRB,.368E-02_JPRB,&
+&.352E-02_JPRB,.331E-02_JPRB,.312E-02_JPRB,.312E-02_JPRB,.325E-02_JPRB,.601E-02_JPRB,.129E-01_JPRB,&
+&.242E-01_JPRB,.611E-01_JPRB,.763E-01_JPRB,.500E-01_JPRB,.332E-01_JPRB,.239E-01_JPRB,.207E-01_JPRB,&
+&.191E-01_JPRB,.172E-01_JPRB,.158E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.117E-01_JPRB,.101E-01_JPRB,&
+&.883E-02_JPRB,.799E-02_JPRB,.732E-02_JPRB,.721E-02_JPRB,.848E-02_JPRB,.990E-02_JPRB,.120E-01_JPRB,&
+&.112E-01_JPRB,.985E-02_JPRB,.893E-02_JPRB,.818E-02_JPRB,.759E-02_JPRB,.691E-02_JPRB,.636E-02_JPRB,&
+&.598E-02_JPRB,.566E-02_JPRB,.538E-02_JPRB,.514E-02_JPRB,.491E-02_JPRB,.500E-02_JPRB,.555E-02_JPRB,&
+&.582E-02_JPRB,.586E-02_JPRB,.686E-02_JPRB,.110E-01_JPRB,.166E-01_JPRB,.243E-01_JPRB,.276E-01_JPRB,&
+&.280E-01_JPRB,.292E-01_JPRB,.233E-01_JPRB,.126E-01_JPRB,.824E-02_JPRB,.687E-02_JPRB,.618E-02_JPRB,&
+&.653E-02_JPRB,.725E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 15  34.0
+ZAER (:,15, 4) = (/&
+&.724E-02_JPRB,.666E-02_JPRB,.613E-02_JPRB,.550E-02_JPRB,.493E-02_JPRB,.450E-02_JPRB,.424E-02_JPRB,&
+&.406E-02_JPRB,.392E-02_JPRB,.386E-02_JPRB,.392E-02_JPRB,.396E-02_JPRB,.400E-02_JPRB,.405E-02_JPRB,&
+&.403E-02_JPRB,.389E-02_JPRB,.363E-02_JPRB,.355E-02_JPRB,.379E-02_JPRB,.640E-02_JPRB,.120E-01_JPRB,&
+&.161E-01_JPRB,.256E-01_JPRB,.306E-01_JPRB,.271E-01_JPRB,.211E-01_JPRB,.167E-01_JPRB,.147E-01_JPRB,&
+&.155E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,.139E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,&
+&.946E-02_JPRB,.875E-02_JPRB,.816E-02_JPRB,.893E-02_JPRB,.142E-01_JPRB,.203E-01_JPRB,.196E-01_JPRB,&
+&.147E-01_JPRB,.119E-01_JPRB,.102E-01_JPRB,.878E-02_JPRB,.740E-02_JPRB,.621E-02_JPRB,.568E-02_JPRB,&
+&.575E-02_JPRB,.563E-02_JPRB,.540E-02_JPRB,.536E-02_JPRB,.545E-02_JPRB,.614E-02_JPRB,.853E-02_JPRB,&
+&.929E-02_JPRB,.901E-02_JPRB,.133E-01_JPRB,.236E-01_JPRB,.343E-01_JPRB,.507E-01_JPRB,.573E-01_JPRB,&
+&.487E-01_JPRB,.452E-01_JPRB,.206E-01_JPRB,.127E-01_JPRB,.988E-02_JPRB,.824E-02_JPRB,.755E-02_JPRB,&
+&.793E-02_JPRB,.794E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 16  30.0
+ZAER (:,16, 4) = (/&
+&.797E-02_JPRB,.732E-02_JPRB,.680E-02_JPRB,.622E-02_JPRB,.569E-02_JPRB,.506E-02_JPRB,.458E-02_JPRB,&
+&.437E-02_JPRB,.405E-02_JPRB,.395E-02_JPRB,.399E-02_JPRB,.400E-02_JPRB,.403E-02_JPRB,.418E-02_JPRB,&
+&.448E-02_JPRB,.447E-02_JPRB,.406E-02_JPRB,.409E-02_JPRB,.483E-02_JPRB,.748E-02_JPRB,.108E-01_JPRB,&
+&.106E-01_JPRB,.115E-01_JPRB,.183E-01_JPRB,.163E-01_JPRB,.140E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.135E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.138E-01_JPRB,.123E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,&
+&.101E-01_JPRB,.997E-02_JPRB,.105E-01_JPRB,.136E-01_JPRB,.236E-01_JPRB,.353E-01_JPRB,.290E-01_JPRB,&
+&.190E-01_JPRB,.139E-01_JPRB,.117E-01_JPRB,.991E-02_JPRB,.787E-02_JPRB,.664E-02_JPRB,.617E-02_JPRB,&
+&.619E-02_JPRB,.626E-02_JPRB,.611E-02_JPRB,.617E-02_JPRB,.652E-02_JPRB,.861E-02_JPRB,.137E-01_JPRB,&
+&.148E-01_JPRB,.147E-01_JPRB,.207E-01_JPRB,.375E-01_JPRB,.462E-01_JPRB,.607E-01_JPRB,.697E-01_JPRB,&
+&.543E-01_JPRB,.390E-01_JPRB,.232E-01_JPRB,.159E-01_JPRB,.129E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,&
+&.961E-02_JPRB,.883E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 17  26.0
+ZAER (:,17, 4) = (/&
+&.790E-02_JPRB,.715E-02_JPRB,.660E-02_JPRB,.632E-02_JPRB,.606E-02_JPRB,.547E-02_JPRB,.498E-02_JPRB,&
+&.460E-02_JPRB,.404E-02_JPRB,.365E-02_JPRB,.362E-02_JPRB,.364E-02_JPRB,.366E-02_JPRB,.379E-02_JPRB,&
+&.434E-02_JPRB,.463E-02_JPRB,.438E-02_JPRB,.492E-02_JPRB,.648E-02_JPRB,.853E-02_JPRB,.930E-02_JPRB,&
+&.822E-02_JPRB,.102E-01_JPRB,.211E-01_JPRB,.218E-01_JPRB,.146E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,&
+&.141E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.135E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,&
+&.109E-01_JPRB,.122E-01_JPRB,.158E-01_JPRB,.208E-01_JPRB,.298E-01_JPRB,.428E-01_JPRB,.269E-01_JPRB,&
+&.170E-01_JPRB,.138E-01_JPRB,.123E-01_JPRB,.111E-01_JPRB,.832E-02_JPRB,.711E-02_JPRB,.676E-02_JPRB,&
+&.678E-02_JPRB,.703E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.761E-02_JPRB,.107E-01_JPRB,.138E-01_JPRB,&
+&.164E-01_JPRB,.181E-01_JPRB,.288E-01_JPRB,.516E-01_JPRB,.488E-01_JPRB,.496E-01_JPRB,.462E-01_JPRB,&
+&.416E-01_JPRB,.327E-01_JPRB,.234E-01_JPRB,.168E-01_JPRB,.141E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,&
+&.966E-02_JPRB,.869E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 18  22.0
+ZAER (:,18, 4) = (/&
+&.593E-02_JPRB,.559E-02_JPRB,.522E-02_JPRB,.494E-02_JPRB,.483E-02_JPRB,.450E-02_JPRB,.389E-02_JPRB,&
+&.329E-02_JPRB,.289E-02_JPRB,.260E-02_JPRB,.258E-02_JPRB,.281E-02_JPRB,.313E-02_JPRB,.366E-02_JPRB,&
+&.439E-02_JPRB,.480E-02_JPRB,.517E-02_JPRB,.616E-02_JPRB,.732E-02_JPRB,.790E-02_JPRB,.777E-02_JPRB,&
+&.774E-02_JPRB,.103E-01_JPRB,.268E-01_JPRB,.445E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.126E-01_JPRB,.154E-01_JPRB,.199E-01_JPRB,.275E-01_JPRB,.365E-01_JPRB,.338E-01_JPRB,.212E-01_JPRB,&
+&.132E-01_JPRB,.125E-01_JPRB,.112E-01_JPRB,.955E-02_JPRB,.758E-02_JPRB,.653E-02_JPRB,.618E-02_JPRB,&
+&.611E-02_JPRB,.634E-02_JPRB,.668E-02_JPRB,.705E-02_JPRB,.785E-02_JPRB,.944E-02_JPRB,.109E-01_JPRB,&
+&.145E-01_JPRB,.206E-01_JPRB,.329E-01_JPRB,.487E-01_JPRB,.399E-01_JPRB,.366E-01_JPRB,.343E-01_JPRB,&
+&.321E-01_JPRB,.288E-01_JPRB,.200E-01_JPRB,.157E-01_JPRB,.134E-01_JPRB,.114E-01_JPRB,.929E-02_JPRB,&
+&.746E-02_JPRB,.648E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 19  18.0
+ZAER (:,19, 4) = (/&
+&.364E-02_JPRB,.334E-02_JPRB,.309E-02_JPRB,.295E-02_JPRB,.277E-02_JPRB,.259E-02_JPRB,.237E-02_JPRB,&
+&.217E-02_JPRB,.216E-02_JPRB,.225E-02_JPRB,.249E-02_JPRB,.303E-02_JPRB,.367E-02_JPRB,.436E-02_JPRB,&
+&.483E-02_JPRB,.505E-02_JPRB,.558E-02_JPRB,.627E-02_JPRB,.669E-02_JPRB,.704E-02_JPRB,.725E-02_JPRB,&
+&.739E-02_JPRB,.924E-02_JPRB,.252E-01_JPRB,.277E-01_JPRB,.905E-02_JPRB,.893E-02_JPRB,.950E-02_JPRB,&
+&.954E-02_JPRB,.949E-02_JPRB,.989E-02_JPRB,.104E-01_JPRB,.113E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,&
+&.131E-01_JPRB,.137E-01_JPRB,.151E-01_JPRB,.164E-01_JPRB,.166E-01_JPRB,.171E-01_JPRB,.138E-01_JPRB,&
+&.112E-01_JPRB,.101E-01_JPRB,.814E-02_JPRB,.628E-02_JPRB,.515E-02_JPRB,.449E-02_JPRB,.437E-02_JPRB,&
+&.440E-02_JPRB,.461E-02_JPRB,.483E-02_JPRB,.518E-02_JPRB,.582E-02_JPRB,.678E-02_JPRB,.832E-02_JPRB,&
+&.115E-01_JPRB,.170E-01_JPRB,.252E-01_JPRB,.307E-01_JPRB,.285E-01_JPRB,.270E-01_JPRB,.263E-01_JPRB,&
+&.243E-01_JPRB,.201E-01_JPRB,.163E-01_JPRB,.137E-01_JPRB,.110E-01_JPRB,.818E-02_JPRB,.579E-02_JPRB,&
+&.456E-02_JPRB,.397E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 20  14.0
+ZAER (:,20, 4) = (/&
+&.175E-02_JPRB,.164E-02_JPRB,.159E-02_JPRB,.169E-02_JPRB,.187E-02_JPRB,.196E-02_JPRB,.204E-02_JPRB,&
+&.203E-02_JPRB,.220E-02_JPRB,.267E-02_JPRB,.338E-02_JPRB,.403E-02_JPRB,.454E-02_JPRB,.495E-02_JPRB,&
+&.513E-02_JPRB,.528E-02_JPRB,.567E-02_JPRB,.597E-02_JPRB,.619E-02_JPRB,.595E-02_JPRB,.550E-02_JPRB,&
+&.533E-02_JPRB,.786E-02_JPRB,.942E-02_JPRB,.683E-02_JPRB,.575E-02_JPRB,.624E-02_JPRB,.679E-02_JPRB,&
+&.692E-02_JPRB,.688E-02_JPRB,.764E-02_JPRB,.890E-02_JPRB,.103E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,&
+&.102E-01_JPRB,.955E-02_JPRB,.866E-02_JPRB,.676E-02_JPRB,.683E-02_JPRB,.812E-02_JPRB,.816E-02_JPRB,&
+&.770E-02_JPRB,.631E-02_JPRB,.445E-02_JPRB,.339E-02_JPRB,.290E-02_JPRB,.256E-02_JPRB,.234E-02_JPRB,&
+&.221E-02_JPRB,.225E-02_JPRB,.249E-02_JPRB,.322E-02_JPRB,.413E-02_JPRB,.492E-02_JPRB,.661E-02_JPRB,&
+&.947E-02_JPRB,.135E-01_JPRB,.181E-01_JPRB,.203E-01_JPRB,.209E-01_JPRB,.180E-01_JPRB,.155E-01_JPRB,&
+&.136E-01_JPRB,.116E-01_JPRB,.936E-02_JPRB,.736E-02_JPRB,.526E-02_JPRB,.339E-02_JPRB,.233E-02_JPRB,&
+&.201E-02_JPRB,.187E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 21  10.0
+ZAER (:,21, 4) = (/&
+&.108E-02_JPRB,.117E-02_JPRB,.131E-02_JPRB,.150E-02_JPRB,.173E-02_JPRB,.195E-02_JPRB,.211E-02_JPRB,&
+&.227E-02_JPRB,.261E-02_JPRB,.317E-02_JPRB,.381E-02_JPRB,.424E-02_JPRB,.458E-02_JPRB,.491E-02_JPRB,&
+&.518E-02_JPRB,.546E-02_JPRB,.558E-02_JPRB,.548E-02_JPRB,.527E-02_JPRB,.454E-02_JPRB,.393E-02_JPRB,&
+&.429E-02_JPRB,.442E-02_JPRB,.393E-02_JPRB,.368E-02_JPRB,.442E-02_JPRB,.534E-02_JPRB,.687E-02_JPRB,&
+&.745E-02_JPRB,.595E-02_JPRB,.626E-02_JPRB,.693E-02_JPRB,.789E-02_JPRB,.865E-02_JPRB,.880E-02_JPRB,&
+&.801E-02_JPRB,.668E-02_JPRB,.518E-02_JPRB,.357E-02_JPRB,.368E-02_JPRB,.395E-02_JPRB,.404E-02_JPRB,&
+&.406E-02_JPRB,.346E-02_JPRB,.266E-02_JPRB,.214E-02_JPRB,.183E-02_JPRB,.174E-02_JPRB,.167E-02_JPRB,&
+&.165E-02_JPRB,.175E-02_JPRB,.203E-02_JPRB,.267E-02_JPRB,.343E-02_JPRB,.437E-02_JPRB,.591E-02_JPRB,&
+&.772E-02_JPRB,.988E-02_JPRB,.118E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.944E-02_JPRB,.714E-02_JPRB,&
+&.552E-02_JPRB,.399E-02_JPRB,.293E-02_JPRB,.227E-02_JPRB,.163E-02_JPRB,.114E-02_JPRB,.101E-02_JPRB,&
+&.991E-03_JPRB,.101E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 22   6.0
+ZAER (:,22, 4) = (/&
+&.113E-02_JPRB,.127E-02_JPRB,.141E-02_JPRB,.156E-02_JPRB,.174E-02_JPRB,.194E-02_JPRB,.218E-02_JPRB,&
+&.247E-02_JPRB,.283E-02_JPRB,.327E-02_JPRB,.367E-02_JPRB,.395E-02_JPRB,.419E-02_JPRB,.439E-02_JPRB,&
+&.460E-02_JPRB,.486E-02_JPRB,.503E-02_JPRB,.490E-02_JPRB,.432E-02_JPRB,.371E-02_JPRB,.328E-02_JPRB,&
+&.289E-02_JPRB,.276E-02_JPRB,.265E-02_JPRB,.282E-02_JPRB,.327E-02_JPRB,.371E-02_JPRB,.434E-02_JPRB,&
+&.480E-02_JPRB,.516E-02_JPRB,.572E-02_JPRB,.602E-02_JPRB,.643E-02_JPRB,.648E-02_JPRB,.624E-02_JPRB,&
+&.544E-02_JPRB,.437E-02_JPRB,.360E-02_JPRB,.330E-02_JPRB,.353E-02_JPRB,.351E-02_JPRB,.381E-02_JPRB,&
+&.399E-02_JPRB,.345E-02_JPRB,.263E-02_JPRB,.196E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.162E-02_JPRB,&
+&.150E-02_JPRB,.149E-02_JPRB,.161E-02_JPRB,.173E-02_JPRB,.196E-02_JPRB,.245E-02_JPRB,.304E-02_JPRB,&
+&.350E-02_JPRB,.424E-02_JPRB,.452E-02_JPRB,.444E-02_JPRB,.392E-02_JPRB,.278E-02_JPRB,.163E-02_JPRB,&
+&.108E-02_JPRB,.739E-03_JPRB,.608E-03_JPRB,.617E-03_JPRB,.612E-03_JPRB,.633E-03_JPRB,.715E-03_JPRB,&
+&.844E-03_JPRB,.973E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 23   2.0
+ZAER (:,23, 4) = (/&
+&.129E-02_JPRB,.142E-02_JPRB,.154E-02_JPRB,.163E-02_JPRB,.175E-02_JPRB,.193E-02_JPRB,.218E-02_JPRB,&
+&.248E-02_JPRB,.281E-02_JPRB,.317E-02_JPRB,.351E-02_JPRB,.387E-02_JPRB,.421E-02_JPRB,.447E-02_JPRB,&
+&.471E-02_JPRB,.492E-02_JPRB,.520E-02_JPRB,.550E-02_JPRB,.558E-02_JPRB,.557E-02_JPRB,.505E-02_JPRB,&
+&.436E-02_JPRB,.463E-02_JPRB,.510E-02_JPRB,.569E-02_JPRB,.619E-02_JPRB,.642E-02_JPRB,.689E-02_JPRB,&
+&.763E-02_JPRB,.842E-02_JPRB,.886E-02_JPRB,.844E-02_JPRB,.801E-02_JPRB,.752E-02_JPRB,.702E-02_JPRB,&
+&.641E-02_JPRB,.598E-02_JPRB,.600E-02_JPRB,.638E-02_JPRB,.686E-02_JPRB,.705E-02_JPRB,.747E-02_JPRB,&
+&.772E-02_JPRB,.707E-02_JPRB,.553E-02_JPRB,.372E-02_JPRB,.287E-02_JPRB,.247E-02_JPRB,.209E-02_JPRB,&
+&.168E-02_JPRB,.140E-02_JPRB,.122E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.119E-02_JPRB,.132E-02_JPRB,&
+&.148E-02_JPRB,.162E-02_JPRB,.156E-02_JPRB,.142E-02_JPRB,.110E-02_JPRB,.764E-03_JPRB,.577E-03_JPRB,&
+&.497E-03_JPRB,.439E-03_JPRB,.448E-03_JPRB,.506E-03_JPRB,.632E-03_JPRB,.778E-03_JPRB,.926E-03_JPRB,&
+&.106E-02_JPRB,.117E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 24  -2.0
+ZAER (:,24, 4) = (/&
+&.181E-02_JPRB,.191E-02_JPRB,.204E-02_JPRB,.217E-02_JPRB,.226E-02_JPRB,.230E-02_JPRB,.246E-02_JPRB,&
+&.271E-02_JPRB,.304E-02_JPRB,.353E-02_JPRB,.410E-02_JPRB,.455E-02_JPRB,.506E-02_JPRB,.573E-02_JPRB,&
+&.633E-02_JPRB,.689E-02_JPRB,.765E-02_JPRB,.878E-02_JPRB,.994E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.115E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.148E-01_JPRB,.166E-01_JPRB,.179E-01_JPRB,.204E-01_JPRB,&
+&.219E-01_JPRB,.220E-01_JPRB,.216E-01_JPRB,.198E-01_JPRB,.176E-01_JPRB,.166E-01_JPRB,.152E-01_JPRB,&
+&.136E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.151E-01_JPRB,.165E-01_JPRB,.179E-01_JPRB,&
+&.187E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,.151E-01_JPRB,.106E-01_JPRB,.842E-02_JPRB,.688E-02_JPRB,&
+&.498E-02_JPRB,.324E-02_JPRB,.234E-02_JPRB,.173E-02_JPRB,.133E-02_JPRB,.124E-02_JPRB,.130E-02_JPRB,&
+&.129E-02_JPRB,.122E-02_JPRB,.126E-02_JPRB,.116E-02_JPRB,.101E-02_JPRB,.940E-03_JPRB,.905E-03_JPRB,&
+&.916E-03_JPRB,.951E-03_JPRB,.990E-03_JPRB,.104E-02_JPRB,.115E-02_JPRB,.131E-02_JPRB,.147E-02_JPRB,&
+&.161E-02_JPRB,.170E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 25  -6.0
+ZAER (:,25, 4) = (/&
+&.351E-02_JPRB,.355E-02_JPRB,.358E-02_JPRB,.363E-02_JPRB,.360E-02_JPRB,.351E-02_JPRB,.358E-02_JPRB,&
+&.389E-02_JPRB,.427E-02_JPRB,.489E-02_JPRB,.572E-02_JPRB,.642E-02_JPRB,.702E-02_JPRB,.792E-02_JPRB,&
+&.912E-02_JPRB,.103E-01_JPRB,.118E-01_JPRB,.141E-01_JPRB,.169E-01_JPRB,.198E-01_JPRB,.221E-01_JPRB,&
+&.232E-01_JPRB,.246E-01_JPRB,.283E-01_JPRB,.308E-01_JPRB,.335E-01_JPRB,.388E-01_JPRB,.469E-01_JPRB,&
+&.511E-01_JPRB,.501E-01_JPRB,.516E-01_JPRB,.515E-01_JPRB,.496E-01_JPRB,.507E-01_JPRB,.485E-01_JPRB,&
+&.427E-01_JPRB,.388E-01_JPRB,.379E-01_JPRB,.371E-01_JPRB,.378E-01_JPRB,.404E-01_JPRB,.435E-01_JPRB,&
+&.463E-01_JPRB,.482E-01_JPRB,.491E-01_JPRB,.502E-01_JPRB,.418E-01_JPRB,.287E-01_JPRB,.241E-01_JPRB,&
+&.185E-01_JPRB,.138E-01_JPRB,.108E-01_JPRB,.808E-02_JPRB,.528E-02_JPRB,.362E-02_JPRB,.310E-02_JPRB,&
+&.286E-02_JPRB,.251E-02_JPRB,.235E-02_JPRB,.224E-02_JPRB,.213E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,&
+&.210E-02_JPRB,.211E-02_JPRB,.216E-02_JPRB,.228E-02_JPRB,.255E-02_JPRB,.280E-02_JPRB,.303E-02_JPRB,&
+&.322E-02_JPRB,.337E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 26 -10.0
+ZAER (:,26, 4) = (/&
+&.697E-02_JPRB,.688E-02_JPRB,.667E-02_JPRB,.643E-02_JPRB,.607E-02_JPRB,.594E-02_JPRB,.601E-02_JPRB,&
+&.651E-02_JPRB,.730E-02_JPRB,.795E-02_JPRB,.863E-02_JPRB,.946E-02_JPRB,.101E-01_JPRB,.106E-01_JPRB,&
+&.118E-01_JPRB,.133E-01_JPRB,.153E-01_JPRB,.180E-01_JPRB,.213E-01_JPRB,.236E-01_JPRB,.278E-01_JPRB,&
+&.320E-01_JPRB,.349E-01_JPRB,.396E-01_JPRB,.453E-01_JPRB,.535E-01_JPRB,.639E-01_JPRB,.759E-01_JPRB,&
+&.838E-01_JPRB,.889E-01_JPRB,.971E-01_JPRB,.107E+00_JPRB,.115E+00_JPRB,.119E+00_JPRB,.114E+00_JPRB,&
+&.114E+00_JPRB,.115E+00_JPRB,.112E+00_JPRB,.107E+00_JPRB,.991E-01_JPRB,.930E-01_JPRB,.953E-01_JPRB,&
+&.989E-01_JPRB,.984E-01_JPRB,.944E-01_JPRB,.996E-01_JPRB,.911E-01_JPRB,.676E-01_JPRB,.599E-01_JPRB,&
+&.488E-01_JPRB,.397E-01_JPRB,.367E-01_JPRB,.289E-01_JPRB,.214E-01_JPRB,.151E-01_JPRB,.116E-01_JPRB,&
+&.876E-02_JPRB,.727E-02_JPRB,.684E-02_JPRB,.595E-02_JPRB,.481E-02_JPRB,.440E-02_JPRB,.450E-02_JPRB,&
+&.454E-02_JPRB,.447E-02_JPRB,.459E-02_JPRB,.514E-02_JPRB,.600E-02_JPRB,.660E-02_JPRB,.679E-02_JPRB,&
+&.699E-02_JPRB,.699E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 27 -14.0
+ZAER (:,27, 4) = (/&
+&.118E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,.128E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,&
+&.141E-01_JPRB,.147E-01_JPRB,.166E-01_JPRB,.181E-01_JPRB,.205E-01_JPRB,.221E-01_JPRB,.236E-01_JPRB,&
+&.269E-01_JPRB,.313E-01_JPRB,.372E-01_JPRB,.459E-01_JPRB,.560E-01_JPRB,.629E-01_JPRB,.695E-01_JPRB,&
+&.784E-01_JPRB,.899E-01_JPRB,.105E+00_JPRB,.123E+00_JPRB,.148E+00_JPRB,.173E+00_JPRB,.183E+00_JPRB,&
+&.217E+00_JPRB,.209E+00_JPRB,.199E+00_JPRB,.174E+00_JPRB,.170E+00_JPRB,.156E+00_JPRB,.140E+00_JPRB,&
+&.139E+00_JPRB,.136E+00_JPRB,.141E+00_JPRB,.154E+00_JPRB,.135E+00_JPRB,.105E+00_JPRB,.912E-01_JPRB,&
+&.765E-01_JPRB,.720E-01_JPRB,.753E-01_JPRB,.648E-01_JPRB,.492E-01_JPRB,.385E-01_JPRB,.313E-01_JPRB,&
+&.219E-01_JPRB,.164E-01_JPRB,.133E-01_JPRB,.128E-01_JPRB,.994E-02_JPRB,.756E-02_JPRB,.747E-02_JPRB,&
+&.772E-02_JPRB,.756E-02_JPRB,.757E-02_JPRB,.838E-02_JPRB,.981E-02_JPRB,.111E-01_JPRB,.118E-01_JPRB,&
+&.123E-01_JPRB,.121E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 28 -18.0
+ZAER (:,28, 4) = (/&
+&.194E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,.188E-01_JPRB,.191E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,&
+&.185E-01_JPRB,.181E-01_JPRB,.171E-01_JPRB,.162E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,.188E-01_JPRB,&
+&.207E-01_JPRB,.188E-01_JPRB,.220E-01_JPRB,.234E-01_JPRB,.228E-01_JPRB,.244E-01_JPRB,.257E-01_JPRB,&
+&.267E-01_JPRB,.287E-01_JPRB,.331E-01_JPRB,.387E-01_JPRB,.447E-01_JPRB,.505E-01_JPRB,.560E-01_JPRB,&
+&.637E-01_JPRB,.723E-01_JPRB,.867E-01_JPRB,.112E+00_JPRB,.146E+00_JPRB,.166E+00_JPRB,.200E+00_JPRB,&
+&.245E+00_JPRB,.222E+00_JPRB,.190E+00_JPRB,.177E+00_JPRB,.189E+00_JPRB,.174E+00_JPRB,.158E+00_JPRB,&
+&.153E+00_JPRB,.143E+00_JPRB,.155E+00_JPRB,.208E+00_JPRB,.182E+00_JPRB,.143E+00_JPRB,.111E+00_JPRB,&
+&.967E-01_JPRB,.101E+00_JPRB,.114E+00_JPRB,.104E+00_JPRB,.814E-01_JPRB,.672E-01_JPRB,.562E-01_JPRB,&
+&.448E-01_JPRB,.355E-01_JPRB,.237E-01_JPRB,.193E-01_JPRB,.158E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,&
+&.125E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,.149E-01_JPRB,.164E-01_JPRB,.179E-01_JPRB,&
+&.191E-01_JPRB,.196E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 29 -22.0
+ZAER (:,29, 4) = (/&
+&.270E-01_JPRB,.265E-01_JPRB,.256E-01_JPRB,.254E-01_JPRB,.254E-01_JPRB,.242E-01_JPRB,.240E-01_JPRB,&
+&.241E-01_JPRB,.245E-01_JPRB,.240E-01_JPRB,.230E-01_JPRB,.216E-01_JPRB,.197E-01_JPRB,.236E-01_JPRB,&
+&.297E-01_JPRB,.279E-01_JPRB,.351E-01_JPRB,.296E-01_JPRB,.274E-01_JPRB,.284E-01_JPRB,.299E-01_JPRB,&
+&.258E-01_JPRB,.263E-01_JPRB,.303E-01_JPRB,.342E-01_JPRB,.369E-01_JPRB,.396E-01_JPRB,.460E-01_JPRB,&
+&.556E-01_JPRB,.579E-01_JPRB,.642E-01_JPRB,.821E-01_JPRB,.112E+00_JPRB,.133E+00_JPRB,.144E+00_JPRB,&
+&.181E+00_JPRB,.189E+00_JPRB,.171E+00_JPRB,.156E+00_JPRB,.174E+00_JPRB,.180E+00_JPRB,.167E+00_JPRB,&
+&.156E+00_JPRB,.144E+00_JPRB,.148E+00_JPRB,.199E+00_JPRB,.196E+00_JPRB,.159E+00_JPRB,.131E+00_JPRB,&
+&.119E+00_JPRB,.134E+00_JPRB,.131E+00_JPRB,.117E+00_JPRB,.104E+00_JPRB,.892E-01_JPRB,.772E-01_JPRB,&
+&.687E-01_JPRB,.591E-01_JPRB,.441E-01_JPRB,.317E-01_JPRB,.245E-01_JPRB,.214E-01_JPRB,.207E-01_JPRB,&
+&.202E-01_JPRB,.204E-01_JPRB,.202E-01_JPRB,.207E-01_JPRB,.219E-01_JPRB,.250E-01_JPRB,.271E-01_JPRB,&
+&.280E-01_JPRB,.281E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 30 -26.0
+ZAER (:,30, 4) = (/&
+&.368E-01_JPRB,.340E-01_JPRB,.339E-01_JPRB,.332E-01_JPRB,.323E-01_JPRB,.302E-01_JPRB,.291E-01_JPRB,&
+&.282E-01_JPRB,.278E-01_JPRB,.272E-01_JPRB,.261E-01_JPRB,.255E-01_JPRB,.263E-01_JPRB,.373E-01_JPRB,&
+&.421E-01_JPRB,.407E-01_JPRB,.736E-01_JPRB,.436E-01_JPRB,.301E-01_JPRB,.285E-01_JPRB,.273E-01_JPRB,&
+&.267E-01_JPRB,.261E-01_JPRB,.271E-01_JPRB,.289E-01_JPRB,.305E-01_JPRB,.334E-01_JPRB,.388E-01_JPRB,&
+&.452E-01_JPRB,.432E-01_JPRB,.404E-01_JPRB,.464E-01_JPRB,.664E-01_JPRB,.960E-01_JPRB,.114E+00_JPRB,&
+&.145E+00_JPRB,.198E+00_JPRB,.175E+00_JPRB,.148E+00_JPRB,.178E+00_JPRB,.188E+00_JPRB,.166E+00_JPRB,&
+&.146E+00_JPRB,.135E+00_JPRB,.154E+00_JPRB,.176E+00_JPRB,.178E+00_JPRB,.148E+00_JPRB,.128E+00_JPRB,&
+&.129E+00_JPRB,.166E+00_JPRB,.130E+00_JPRB,.112E+00_JPRB,.105E+00_JPRB,.882E-01_JPRB,.761E-01_JPRB,&
+&.766E-01_JPRB,.785E-01_JPRB,.667E-01_JPRB,.516E-01_JPRB,.429E-01_JPRB,.395E-01_JPRB,.377E-01_JPRB,&
+&.358E-01_JPRB,.341E-01_JPRB,.337E-01_JPRB,.343E-01_JPRB,.354E-01_JPRB,.391E-01_JPRB,.408E-01_JPRB,&
+&.390E-01_JPRB,.385E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 31 -30.0
+ZAER (:,31, 4) = (/&
+&.465E-01_JPRB,.440E-01_JPRB,.411E-01_JPRB,.393E-01_JPRB,.380E-01_JPRB,.369E-01_JPRB,.363E-01_JPRB,&
+&.345E-01_JPRB,.327E-01_JPRB,.304E-01_JPRB,.283E-01_JPRB,.272E-01_JPRB,.285E-01_JPRB,.434E-01_JPRB,&
+&.485E-01_JPRB,.600E-01_JPRB,.991E-01_JPRB,.627E-01_JPRB,.417E-01_JPRB,.356E-01_JPRB,.329E-01_JPRB,&
+&.309E-01_JPRB,.290E-01_JPRB,.281E-01_JPRB,.272E-01_JPRB,.268E-01_JPRB,.314E-01_JPRB,.346E-01_JPRB,&
+&.367E-01_JPRB,.337E-01_JPRB,.275E-01_JPRB,.235E-01_JPRB,.289E-01_JPRB,.478E-01_JPRB,.693E-01_JPRB,&
+&.874E-01_JPRB,.148E+00_JPRB,.133E+00_JPRB,.151E+00_JPRB,.197E+00_JPRB,.188E+00_JPRB,.164E+00_JPRB,&
+&.139E+00_JPRB,.127E+00_JPRB,.136E+00_JPRB,.152E+00_JPRB,.147E+00_JPRB,.128E+00_JPRB,.104E+00_JPRB,&
+&.961E-01_JPRB,.120E+00_JPRB,.127E+00_JPRB,.104E+00_JPRB,.929E-01_JPRB,.770E-01_JPRB,.725E-01_JPRB,&
+&.896E-01_JPRB,.951E-01_JPRB,.851E-01_JPRB,.721E-01_JPRB,.624E-01_JPRB,.568E-01_JPRB,.532E-01_JPRB,&
+&.506E-01_JPRB,.503E-01_JPRB,.531E-01_JPRB,.555E-01_JPRB,.555E-01_JPRB,.557E-01_JPRB,.542E-01_JPRB,&
+&.505E-01_JPRB,.474E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 32 -34.0
+ZAER (:,32, 4) = (/&
+&.552E-01_JPRB,.505E-01_JPRB,.468E-01_JPRB,.446E-01_JPRB,.428E-01_JPRB,.416E-01_JPRB,.402E-01_JPRB,&
+&.378E-01_JPRB,.347E-01_JPRB,.317E-01_JPRB,.293E-01_JPRB,.281E-01_JPRB,.296E-01_JPRB,.360E-01_JPRB,&
+&.423E-01_JPRB,.641E-01_JPRB,.853E-01_JPRB,.691E-01_JPRB,.505E-01_JPRB,.415E-01_JPRB,.362E-01_JPRB,&
+&.321E-01_JPRB,.301E-01_JPRB,.281E-01_JPRB,.266E-01_JPRB,.250E-01_JPRB,.262E-01_JPRB,.294E-01_JPRB,&
+&.298E-01_JPRB,.287E-01_JPRB,.253E-01_JPRB,.209E-01_JPRB,.192E-01_JPRB,.213E-01_JPRB,.299E-01_JPRB,&
+&.447E-01_JPRB,.476E-01_JPRB,.399E-01_JPRB,.692E-01_JPRB,.106E+00_JPRB,.125E+00_JPRB,.136E+00_JPRB,&
+&.119E+00_JPRB,.981E-01_JPRB,.101E+00_JPRB,.111E+00_JPRB,.114E+00_JPRB,.102E+00_JPRB,.904E-01_JPRB,&
+&.744E-01_JPRB,.806E-01_JPRB,.975E-01_JPRB,.929E-01_JPRB,.826E-01_JPRB,.784E-01_JPRB,.778E-01_JPRB,&
+&.988E-01_JPRB,.139E+00_JPRB,.135E+00_JPRB,.112E+00_JPRB,.898E-01_JPRB,.800E-01_JPRB,.745E-01_JPRB,&
+&.705E-01_JPRB,.728E-01_JPRB,.799E-01_JPRB,.794E-01_JPRB,.728E-01_JPRB,.661E-01_JPRB,.629E-01_JPRB,&
+&.589E-01_JPRB,.562E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 33 -38.0
+ZAER (:,33, 4) = (/&
+&.627E-01_JPRB,.559E-01_JPRB,.510E-01_JPRB,.471E-01_JPRB,.440E-01_JPRB,.412E-01_JPRB,.376E-01_JPRB,&
+&.348E-01_JPRB,.326E-01_JPRB,.308E-01_JPRB,.283E-01_JPRB,.269E-01_JPRB,.284E-01_JPRB,.298E-01_JPRB,&
+&.326E-01_JPRB,.418E-01_JPRB,.567E-01_JPRB,.590E-01_JPRB,.492E-01_JPRB,.402E-01_JPRB,.342E-01_JPRB,&
+&.293E-01_JPRB,.257E-01_JPRB,.231E-01_JPRB,.217E-01_JPRB,.210E-01_JPRB,.208E-01_JPRB,.225E-01_JPRB,&
+&.244E-01_JPRB,.241E-01_JPRB,.234E-01_JPRB,.206E-01_JPRB,.187E-01_JPRB,.175E-01_JPRB,.199E-01_JPRB,&
+&.259E-01_JPRB,.254E-01_JPRB,.242E-01_JPRB,.412E-01_JPRB,.487E-01_JPRB,.614E-01_JPRB,.804E-01_JPRB,&
+&.994E-01_JPRB,.900E-01_JPRB,.796E-01_JPRB,.745E-01_JPRB,.933E-01_JPRB,.104E+00_JPRB,.104E+00_JPRB,&
+&.721E-01_JPRB,.651E-01_JPRB,.692E-01_JPRB,.797E-01_JPRB,.909E-01_JPRB,.931E-01_JPRB,.986E-01_JPRB,&
+&.149E+00_JPRB,.290E+00_JPRB,.243E+00_JPRB,.188E+00_JPRB,.141E+00_JPRB,.130E+00_JPRB,.120E+00_JPRB,&
+&.108E+00_JPRB,.998E-01_JPRB,.937E-01_JPRB,.847E-01_JPRB,.758E-01_JPRB,.708E-01_JPRB,.673E-01_JPRB,&
+&.652E-01_JPRB,.647E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 34 -42.0
+ZAER (:,34, 4) = (/&
+&.549E-01_JPRB,.506E-01_JPRB,.476E-01_JPRB,.450E-01_JPRB,.425E-01_JPRB,.374E-01_JPRB,.330E-01_JPRB,&
+&.311E-01_JPRB,.299E-01_JPRB,.281E-01_JPRB,.245E-01_JPRB,.229E-01_JPRB,.245E-01_JPRB,.246E-01_JPRB,&
+&.245E-01_JPRB,.258E-01_JPRB,.304E-01_JPRB,.360E-01_JPRB,.345E-01_JPRB,.306E-01_JPRB,.263E-01_JPRB,&
+&.219E-01_JPRB,.186E-01_JPRB,.165E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.167E-01_JPRB,.178E-01_JPRB,&
+&.196E-01_JPRB,.201E-01_JPRB,.202E-01_JPRB,.190E-01_JPRB,.177E-01_JPRB,.165E-01_JPRB,.155E-01_JPRB,&
+&.161E-01_JPRB,.173E-01_JPRB,.204E-01_JPRB,.338E-01_JPRB,.378E-01_JPRB,.402E-01_JPRB,.513E-01_JPRB,&
+&.667E-01_JPRB,.768E-01_JPRB,.683E-01_JPRB,.575E-01_JPRB,.936E-01_JPRB,.167E+00_JPRB,.138E+00_JPRB,&
+&.629E-01_JPRB,.525E-01_JPRB,.524E-01_JPRB,.642E-01_JPRB,.851E-01_JPRB,.116E+00_JPRB,.185E+00_JPRB,&
+&.320E+00_JPRB,.412E+00_JPRB,.436E+00_JPRB,.419E+00_JPRB,.294E+00_JPRB,.218E+00_JPRB,.166E+00_JPRB,&
+&.130E+00_JPRB,.106E+00_JPRB,.874E-01_JPRB,.734E-01_JPRB,.641E-01_JPRB,.598E-01_JPRB,.579E-01_JPRB,&
+&.578E-01_JPRB,.572E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 35 -46.0
+ZAER (:,35, 4) = (/&
+&.398E-01_JPRB,.386E-01_JPRB,.377E-01_JPRB,.378E-01_JPRB,.387E-01_JPRB,.338E-01_JPRB,.286E-01_JPRB,&
+&.279E-01_JPRB,.268E-01_JPRB,.248E-01_JPRB,.216E-01_JPRB,.205E-01_JPRB,.206E-01_JPRB,.196E-01_JPRB,&
+&.192E-01_JPRB,.211E-01_JPRB,.237E-01_JPRB,.248E-01_JPRB,.222E-01_JPRB,.189E-01_JPRB,.169E-01_JPRB,&
+&.153E-01_JPRB,.139E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.119E-01_JPRB,.128E-01_JPRB,.140E-01_JPRB,&
+&.155E-01_JPRB,.162E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.161E-01_JPRB,.149E-01_JPRB,.135E-01_JPRB,&
+&.124E-01_JPRB,.128E-01_JPRB,.188E-01_JPRB,.304E-01_JPRB,.369E-01_JPRB,.365E-01_JPRB,.371E-01_JPRB,&
+&.413E-01_JPRB,.532E-01_JPRB,.562E-01_JPRB,.533E-01_JPRB,.684E-01_JPRB,.129E+00_JPRB,.131E+00_JPRB,&
+&.631E-01_JPRB,.471E-01_JPRB,.408E-01_JPRB,.497E-01_JPRB,.674E-01_JPRB,.872E-01_JPRB,.114E+00_JPRB,&
+&.175E+00_JPRB,.303E+00_JPRB,.372E+00_JPRB,.356E+00_JPRB,.263E+00_JPRB,.191E+00_JPRB,.147E+00_JPRB,&
+&.113E+00_JPRB,.859E-01_JPRB,.679E-01_JPRB,.576E-01_JPRB,.492E-01_JPRB,.436E-01_JPRB,.405E-01_JPRB,&
+&.401E-01_JPRB,.403E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 36 -50.0
+ZAER (:,36, 4) = (/&
+&.288E-01_JPRB,.291E-01_JPRB,.289E-01_JPRB,.302E-01_JPRB,.327E-01_JPRB,.314E-01_JPRB,.254E-01_JPRB,&
+&.230E-01_JPRB,.218E-01_JPRB,.201E-01_JPRB,.188E-01_JPRB,.176E-01_JPRB,.161E-01_JPRB,.149E-01_JPRB,&
+&.147E-01_JPRB,.171E-01_JPRB,.186E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,&
+&.130E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,.111E-01_JPRB,&
+&.123E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.123E-01_JPRB,.115E-01_JPRB,&
+&.110E-01_JPRB,.109E-01_JPRB,.160E-01_JPRB,.283E-01_JPRB,.361E-01_JPRB,.346E-01_JPRB,.302E-01_JPRB,&
+&.311E-01_JPRB,.361E-01_JPRB,.387E-01_JPRB,.402E-01_JPRB,.425E-01_JPRB,.553E-01_JPRB,.733E-01_JPRB,&
+&.683E-01_JPRB,.474E-01_JPRB,.376E-01_JPRB,.399E-01_JPRB,.445E-01_JPRB,.461E-01_JPRB,.454E-01_JPRB,&
+&.654E-01_JPRB,.131E+00_JPRB,.189E+00_JPRB,.205E+00_JPRB,.170E+00_JPRB,.126E+00_JPRB,.976E-01_JPRB,&
+&.731E-01_JPRB,.541E-01_JPRB,.423E-01_JPRB,.344E-01_JPRB,.287E-01_JPRB,.262E-01_JPRB,.250E-01_JPRB,&
+&.252E-01_JPRB,.272E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 37 -54.0
+ZAER (:,37, 4) = (/&
+&.229E-01_JPRB,.248E-01_JPRB,.250E-01_JPRB,.256E-01_JPRB,.268E-01_JPRB,.276E-01_JPRB,.248E-01_JPRB,&
+&.210E-01_JPRB,.188E-01_JPRB,.172E-01_JPRB,.163E-01_JPRB,.149E-01_JPRB,.130E-01_JPRB,.117E-01_JPRB,&
+&.115E-01_JPRB,.136E-01_JPRB,.158E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.133E-01_JPRB,&
+&.130E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,.102E-01_JPRB,.913E-02_JPRB,.882E-02_JPRB,.895E-02_JPRB,&
+&.966E-02_JPRB,.104E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.996E-02_JPRB,.100E-01_JPRB,&
+&.108E-01_JPRB,.111E-01_JPRB,.139E-01_JPRB,.238E-01_JPRB,.317E-01_JPRB,.311E-01_JPRB,.268E-01_JPRB,&
+&.243E-01_JPRB,.240E-01_JPRB,.253E-01_JPRB,.297E-01_JPRB,.331E-01_JPRB,.382E-01_JPRB,.441E-01_JPRB,&
+&.484E-01_JPRB,.457E-01_JPRB,.401E-01_JPRB,.356E-01_JPRB,.328E-01_JPRB,.301E-01_JPRB,.274E-01_JPRB,&
+&.304E-01_JPRB,.541E-01_JPRB,.760E-01_JPRB,.763E-01_JPRB,.675E-01_JPRB,.623E-01_JPRB,.484E-01_JPRB,&
+&.331E-01_JPRB,.234E-01_JPRB,.172E-01_JPRB,.148E-01_JPRB,.145E-01_JPRB,.151E-01_JPRB,.156E-01_JPRB,&
+&.164E-01_JPRB,.193E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 38 -58.0
+ZAER (:,38, 4) = (/&
+&.176E-01_JPRB,.208E-01_JPRB,.222E-01_JPRB,.228E-01_JPRB,.236E-01_JPRB,.244E-01_JPRB,.236E-01_JPRB,&
+&.212E-01_JPRB,.178E-01_JPRB,.152E-01_JPRB,.137E-01_JPRB,.123E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,&
+&.102E-01_JPRB,.114E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.112E-01_JPRB,.976E-02_JPRB,.857E-02_JPRB,.803E-02_JPRB,.787E-02_JPRB,&
+&.800E-02_JPRB,.829E-02_JPRB,.855E-02_JPRB,.859E-02_JPRB,.842E-02_JPRB,.832E-02_JPRB,.926E-02_JPRB,&
+&.107E-01_JPRB,.119E-01_JPRB,.149E-01_JPRB,.196E-01_JPRB,.229E-01_JPRB,.227E-01_JPRB,.207E-01_JPRB,&
+&.191E-01_JPRB,.184E-01_JPRB,.189E-01_JPRB,.209E-01_JPRB,.248E-01_JPRB,.280E-01_JPRB,.311E-01_JPRB,&
+&.342E-01_JPRB,.351E-01_JPRB,.326E-01_JPRB,.281E-01_JPRB,.244E-01_JPRB,.221E-01_JPRB,.206E-01_JPRB,&
+&.219E-01_JPRB,.292E-01_JPRB,.417E-01_JPRB,.470E-01_JPRB,.489E-01_JPRB,.396E-01_JPRB,.264E-01_JPRB,&
+&.190E-01_JPRB,.137E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.111E-01_JPRB,.121E-01_JPRB,.133E-01_JPRB,&
+&.142E-01_JPRB,.153E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 39 -62.0
+ZAER (:,39, 4) = (/&
+&.144E-01_JPRB,.157E-01_JPRB,.175E-01_JPRB,.188E-01_JPRB,.198E-01_JPRB,.208E-01_JPRB,.203E-01_JPRB,&
+&.190E-01_JPRB,.162E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.102E-01_JPRB,.958E-02_JPRB,.900E-02_JPRB,&
+&.899E-02_JPRB,.102E-01_JPRB,.119E-01_JPRB,.128E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.130E-01_JPRB,&
+&.125E-01_JPRB,.114E-01_JPRB,.100E-01_JPRB,.858E-02_JPRB,.777E-02_JPRB,.731E-02_JPRB,.719E-02_JPRB,&
+&.736E-02_JPRB,.743E-02_JPRB,.720E-02_JPRB,.701E-02_JPRB,.724E-02_JPRB,.770E-02_JPRB,.882E-02_JPRB,&
+&.103E-01_JPRB,.117E-01_JPRB,.131E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,&
+&.141E-01_JPRB,.149E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.176E-01_JPRB,.198E-01_JPRB,&
+&.212E-01_JPRB,.211E-01_JPRB,.205E-01_JPRB,.197E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.198E-01_JPRB,&
+&.236E-01_JPRB,.278E-01_JPRB,.332E-01_JPRB,.300E-01_JPRB,.243E-01_JPRB,.199E-01_JPRB,.168E-01_JPRB,&
+&.159E-01_JPRB,.133E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.112E-01_JPRB,.123E-01_JPRB,&
+&.134E-01_JPRB,.138E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 40 -66.0
+ZAER (:,40, 4) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.142E-01_JPRB,.157E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,&
+&.160E-01_JPRB,.150E-01_JPRB,.132E-01_JPRB,.114E-01_JPRB,.101E-01_JPRB,.969E-02_JPRB,.908E-02_JPRB,&
+&.882E-02_JPRB,.978E-02_JPRB,.109E-01_JPRB,.117E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.113E-01_JPRB,.105E-01_JPRB,.923E-02_JPRB,.816E-02_JPRB,.741E-02_JPRB,.704E-02_JPRB,.709E-02_JPRB,&
+&.741E-02_JPRB,.727E-02_JPRB,.681E-02_JPRB,.662E-02_JPRB,.672E-02_JPRB,.711E-02_JPRB,.788E-02_JPRB,&
+&.856E-02_JPRB,.895E-02_JPRB,.889E-02_JPRB,.848E-02_JPRB,.825E-02_JPRB,.894E-02_JPRB,.945E-02_JPRB,&
+&.101E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.967E-02_JPRB,.958E-02_JPRB,.114E-01_JPRB,&
+&.126E-01_JPRB,.130E-01_JPRB,.140E-01_JPRB,.156E-01_JPRB,.172E-01_JPRB,.195E-01_JPRB,.223E-01_JPRB,&
+&.246E-01_JPRB,.243E-01_JPRB,.219E-01_JPRB,.169E-01_JPRB,.138E-01_JPRB,.148E-01_JPRB,.161E-01_JPRB,&
+&.162E-01_JPRB,.148E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 41 -70.0
+ZAER (:,41, 4) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,.113E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,&
+&.131E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,.995E-02_JPRB,.959E-02_JPRB,&
+&.941E-02_JPRB,.976E-02_JPRB,.103E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,&
+&.979E-02_JPRB,.930E-02_JPRB,.849E-02_JPRB,.791E-02_JPRB,.749E-02_JPRB,.729E-02_JPRB,.724E-02_JPRB,&
+&.760E-02_JPRB,.781E-02_JPRB,.773E-02_JPRB,.727E-02_JPRB,.676E-02_JPRB,.673E-02_JPRB,.701E-02_JPRB,&
+&.753E-02_JPRB,.745E-02_JPRB,.731E-02_JPRB,.758E-02_JPRB,.816E-02_JPRB,.864E-02_JPRB,.865E-02_JPRB,&
+&.853E-02_JPRB,.837E-02_JPRB,.836E-02_JPRB,.833E-02_JPRB,.818E-02_JPRB,.814E-02_JPRB,.854E-02_JPRB,&
+&.918E-02_JPRB,.974E-02_JPRB,.109E-01_JPRB,.130E-01_JPRB,.152E-01_JPRB,.177E-01_JPRB,.200E-01_JPRB,&
+&.219E-01_JPRB,.206E-01_JPRB,.170E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,.152E-01_JPRB,.156E-01_JPRB,&
+&.149E-01_JPRB,.143E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.115E-01_JPRB,.110E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 42 -74.0
+ZAER (:,42, 4) = (/&
+&.997E-02_JPRB,.990E-02_JPRB,.101E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,.963E-02_JPRB,&
+&.942E-02_JPRB,.923E-02_JPRB,.919E-02_JPRB,.927E-02_JPRB,.921E-02_JPRB,.909E-02_JPRB,.898E-02_JPRB,&
+&.868E-02_JPRB,.828E-02_JPRB,.789E-02_JPRB,.757E-02_JPRB,.741E-02_JPRB,.738E-02_JPRB,.748E-02_JPRB,&
+&.752E-02_JPRB,.762E-02_JPRB,.786E-02_JPRB,.775E-02_JPRB,.724E-02_JPRB,.699E-02_JPRB,.709E-02_JPRB,&
+&.739E-02_JPRB,.755E-02_JPRB,.765E-02_JPRB,.789E-02_JPRB,.811E-02_JPRB,.824E-02_JPRB,.818E-02_JPRB,&
+&.801E-02_JPRB,.778E-02_JPRB,.763E-02_JPRB,.747E-02_JPRB,.721E-02_JPRB,.703E-02_JPRB,.686E-02_JPRB,&
+&.673E-02_JPRB,.688E-02_JPRB,.716E-02_JPRB,.757E-02_JPRB,.870E-02_JPRB,.108E-01_JPRB,.126E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,&
+&.111E-01_JPRB,.104E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 43 -78.0
+ZAER (:,43, 4) = (/&
+&.978E-02_JPRB,.981E-02_JPRB,.982E-02_JPRB,.974E-02_JPRB,.958E-02_JPRB,.942E-02_JPRB,.926E-02_JPRB,&
+&.913E-02_JPRB,.915E-02_JPRB,.926E-02_JPRB,.925E-02_JPRB,.919E-02_JPRB,.904E-02_JPRB,.880E-02_JPRB,&
+&.850E-02_JPRB,.827E-02_JPRB,.807E-02_JPRB,.794E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.787E-02_JPRB,&
+&.769E-02_JPRB,.751E-02_JPRB,.744E-02_JPRB,.736E-02_JPRB,.730E-02_JPRB,.725E-02_JPRB,.732E-02_JPRB,&
+&.737E-02_JPRB,.741E-02_JPRB,.750E-02_JPRB,.756E-02_JPRB,.737E-02_JPRB,.703E-02_JPRB,.693E-02_JPRB,&
+&.693E-02_JPRB,.698E-02_JPRB,.723E-02_JPRB,.738E-02_JPRB,.734E-02_JPRB,.731E-02_JPRB,.732E-02_JPRB,&
+&.734E-02_JPRB,.726E-02_JPRB,.717E-02_JPRB,.688E-02_JPRB,.674E-02_JPRB,.678E-02_JPRB,.672E-02_JPRB,&
+&.674E-02_JPRB,.690E-02_JPRB,.713E-02_JPRB,.788E-02_JPRB,.851E-02_JPRB,.916E-02_JPRB,.955E-02_JPRB,&
+&.972E-02_JPRB,.986E-02_JPRB,.999E-02_JPRB,.101E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,&
+&.101E-01_JPRB,.985E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 44 -82.0
+ZAER (:,44, 4) = (/&
+&.856E-02_JPRB,.852E-02_JPRB,.849E-02_JPRB,.851E-02_JPRB,.857E-02_JPRB,.859E-02_JPRB,.854E-02_JPRB,&
+&.845E-02_JPRB,.834E-02_JPRB,.821E-02_JPRB,.806E-02_JPRB,.787E-02_JPRB,.771E-02_JPRB,.758E-02_JPRB,&
+&.746E-02_JPRB,.735E-02_JPRB,.724E-02_JPRB,.713E-02_JPRB,.705E-02_JPRB,.704E-02_JPRB,.705E-02_JPRB,&
+&.701E-02_JPRB,.700E-02_JPRB,.704E-02_JPRB,.701E-02_JPRB,.698E-02_JPRB,.700E-02_JPRB,.706E-02_JPRB,&
+&.715E-02_JPRB,.718E-02_JPRB,.725E-02_JPRB,.733E-02_JPRB,.721E-02_JPRB,.693E-02_JPRB,.666E-02_JPRB,&
+&.659E-02_JPRB,.668E-02_JPRB,.683E-02_JPRB,.691E-02_JPRB,.701E-02_JPRB,.707E-02_JPRB,.709E-02_JPRB,&
+&.703E-02_JPRB,.704E-02_JPRB,.709E-02_JPRB,.715E-02_JPRB,.721E-02_JPRB,.731E-02_JPRB,.745E-02_JPRB,&
+&.754E-02_JPRB,.765E-02_JPRB,.777E-02_JPRB,.790E-02_JPRB,.797E-02_JPRB,.803E-02_JPRB,.814E-02_JPRB,&
+&.829E-02_JPRB,.849E-02_JPRB,.861E-02_JPRB,.865E-02_JPRB,.869E-02_JPRB,.881E-02_JPRB,.885E-02_JPRB,&
+&.882E-02_JPRB,.883E-02_JPRB,.887E-02_JPRB,.895E-02_JPRB,.900E-02_JPRB,.898E-02_JPRB,.888E-02_JPRB,&
+&.875E-02_JPRB,.864E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 45 -86.0
+ZAER (:,45, 4) = (/&
+&.843E-02_JPRB,.838E-02_JPRB,.839E-02_JPRB,.840E-02_JPRB,.836E-02_JPRB,.828E-02_JPRB,.824E-02_JPRB,&
+&.816E-02_JPRB,.809E-02_JPRB,.796E-02_JPRB,.785E-02_JPRB,.780E-02_JPRB,.774E-02_JPRB,.765E-02_JPRB,&
+&.758E-02_JPRB,.755E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.750E-02_JPRB,.748E-02_JPRB,.745E-02_JPRB,&
+&.745E-02_JPRB,.745E-02_JPRB,.743E-02_JPRB,.738E-02_JPRB,.735E-02_JPRB,.734E-02_JPRB,.732E-02_JPRB,&
+&.729E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.728E-02_JPRB,.722E-02_JPRB,.721E-02_JPRB,.720E-02_JPRB,&
+&.720E-02_JPRB,.723E-02_JPRB,.727E-02_JPRB,.734E-02_JPRB,.746E-02_JPRB,.755E-02_JPRB,.763E-02_JPRB,&
+&.762E-02_JPRB,.762E-02_JPRB,.770E-02_JPRB,.778E-02_JPRB,.786E-02_JPRB,.796E-02_JPRB,.803E-02_JPRB,&
+&.808E-02_JPRB,.810E-02_JPRB,.812E-02_JPRB,.816E-02_JPRB,.825E-02_JPRB,.830E-02_JPRB,.836E-02_JPRB,&
+&.845E-02_JPRB,.856E-02_JPRB,.859E-02_JPRB,.862E-02_JPRB,.861E-02_JPRB,.856E-02_JPRB,.850E-02_JPRB,&
+&.848E-02_JPRB,.850E-02_JPRB,.852E-02_JPRB,.853E-02_JPRB,.856E-02_JPRB,.852E-02_JPRB,.850E-02_JPRB,&
+&.847E-02_JPRB,.848E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  4 --- lat: 46 -90.0
+ZAER (:,46, 4) = (/&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=4   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_04
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_05.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_05.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_05.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_05
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      May
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,5:5)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  1  90.0
+ZAER (:, 1, 5) = (/&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  2  86.0
+ZAER (:, 2, 5) = (/&
+&.114E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,&
+&.107E-02_JPRB,.108E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,&
+&.120E-02_JPRB,.123E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,&
+&.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,&
+&.119E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,&
+&.115E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,&
+&.109E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  3  82.0
+ZAER (:, 3, 5) = (/&
+&.989E-03_JPRB,.970E-03_JPRB,.960E-03_JPRB,.948E-03_JPRB,.940E-03_JPRB,.938E-03_JPRB,.944E-03_JPRB,&
+&.955E-03_JPRB,.976E-03_JPRB,.100E-02_JPRB,.103E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,&
+&.110E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.120E-02_JPRB,.125E-02_JPRB,.129E-02_JPRB,.133E-02_JPRB,&
+&.135E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,&
+&.140E-02_JPRB,.138E-02_JPRB,.135E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,&
+&.125E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,&
+&.110E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.106E-02_JPRB,&
+&.105E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,&
+&.104E-02_JPRB,.101E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  4  78.0
+ZAER (:, 4, 5) = (/&
+&.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.984E-03_JPRB,.968E-03_JPRB,&
+&.969E-03_JPRB,.997E-03_JPRB,.103E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.103E-02_JPRB,&
+&.102E-02_JPRB,.103E-02_JPRB,.107E-02_JPRB,.113E-02_JPRB,.122E-02_JPRB,.132E-02_JPRB,.144E-02_JPRB,&
+&.156E-02_JPRB,.170E-02_JPRB,.175E-02_JPRB,.176E-02_JPRB,.179E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,&
+&.177E-02_JPRB,.173E-02_JPRB,.166E-02_JPRB,.158E-02_JPRB,.152E-02_JPRB,.144E-02_JPRB,.138E-02_JPRB,&
+&.130E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.110E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.113E-02_JPRB,&
+&.116E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,.114E-02_JPRB,&
+&.109E-02_JPRB,.106E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  5  74.0
+ZAER (:, 5, 5) = (/&
+&.112E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,&
+&.108E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,&
+&.101E-02_JPRB,.972E-03_JPRB,.957E-03_JPRB,.990E-03_JPRB,.107E-02_JPRB,.120E-02_JPRB,.137E-02_JPRB,&
+&.157E-02_JPRB,.175E-02_JPRB,.188E-02_JPRB,.197E-02_JPRB,.204E-02_JPRB,.210E-02_JPRB,.215E-02_JPRB,&
+&.216E-02_JPRB,.211E-02_JPRB,.203E-02_JPRB,.192E-02_JPRB,.180E-02_JPRB,.164E-02_JPRB,.148E-02_JPRB,&
+&.135E-02_JPRB,.124E-02_JPRB,.117E-02_JPRB,.111E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.106E-02_JPRB,&
+&.108E-02_JPRB,.111E-02_JPRB,.116E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,.117E-02_JPRB,&
+&.114E-02_JPRB,.115E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.118E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.119E-02_JPRB,&
+&.123E-02_JPRB,.129E-02_JPRB,.134E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.136E-02_JPRB,.129E-02_JPRB,&
+&.121E-02_JPRB,.116E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  6  70.0
+ZAER (:, 6, 5) = (/&
+&.128E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.121E-02_JPRB,&
+&.115E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.115E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.112E-02_JPRB,.127E-02_JPRB,&
+&.141E-02_JPRB,.150E-02_JPRB,.160E-02_JPRB,.170E-02_JPRB,.190E-02_JPRB,.215E-02_JPRB,.234E-02_JPRB,&
+&.241E-02_JPRB,.233E-02_JPRB,.222E-02_JPRB,.212E-02_JPRB,.206E-02_JPRB,.193E-02_JPRB,.170E-02_JPRB,&
+&.149E-02_JPRB,.131E-02_JPRB,.114E-02_JPRB,.102E-02_JPRB,.960E-03_JPRB,.945E-03_JPRB,.950E-03_JPRB,&
+&.972E-03_JPRB,.103E-02_JPRB,.113E-02_JPRB,.123E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,&
+&.122E-02_JPRB,.119E-02_JPRB,.124E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,.122E-02_JPRB,&
+&.119E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,&
+&.129E-02_JPRB,.131E-02_JPRB,.135E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,.151E-02_JPRB,.153E-02_JPRB,&
+&.149E-02_JPRB,.139E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  7  66.0
+ZAER (:, 7, 5) = (/&
+&.148E-02_JPRB,.146E-02_JPRB,.140E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.118E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.114E-02_JPRB,.118E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,&
+&.128E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.136E-02_JPRB,&
+&.141E-02_JPRB,.147E-02_JPRB,.154E-02_JPRB,.165E-02_JPRB,.191E-02_JPRB,.234E-02_JPRB,.274E-02_JPRB,&
+&.290E-02_JPRB,.278E-02_JPRB,.266E-02_JPRB,.250E-02_JPRB,.239E-02_JPRB,.228E-02_JPRB,.208E-02_JPRB,&
+&.184E-02_JPRB,.162E-02_JPRB,.137E-02_JPRB,.116E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,.986E-03_JPRB,&
+&.101E-02_JPRB,.107E-02_JPRB,.116E-02_JPRB,.128E-02_JPRB,.136E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,&
+&.131E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.121E-02_JPRB,&
+&.116E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,.125E-02_JPRB,&
+&.133E-02_JPRB,.134E-02_JPRB,.138E-02_JPRB,.157E-02_JPRB,.189E-02_JPRB,.190E-02_JPRB,.182E-02_JPRB,&
+&.179E-02_JPRB,.162E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  8  62.0
+ZAER (:, 8, 5) = (/&
+&.192E-02_JPRB,.171E-02_JPRB,.159E-02_JPRB,.142E-02_JPRB,.129E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,&
+&.119E-02_JPRB,.129E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,&
+&.138E-02_JPRB,.137E-02_JPRB,.135E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.126E-02_JPRB,.137E-02_JPRB,&
+&.149E-02_JPRB,.150E-02_JPRB,.162E-02_JPRB,.184E-02_JPRB,.225E-02_JPRB,.276E-02_JPRB,.311E-02_JPRB,&
+&.329E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.314E-02_JPRB,.304E-02_JPRB,.280E-02_JPRB,.257E-02_JPRB,&
+&.234E-02_JPRB,.212E-02_JPRB,.181E-02_JPRB,.154E-02_JPRB,.134E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.128E-02_JPRB,.131E-02_JPRB,.137E-02_JPRB,.147E-02_JPRB,.156E-02_JPRB,.166E-02_JPRB,.162E-02_JPRB,&
+&.156E-02_JPRB,.150E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,.134E-02_JPRB,&
+&.127E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,.133E-02_JPRB,&
+&.151E-02_JPRB,.164E-02_JPRB,.177E-02_JPRB,.248E-02_JPRB,.280E-02_JPRB,.255E-02_JPRB,.236E-02_JPRB,&
+&.230E-02_JPRB,.214E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat:  9  58.0
+ZAER (:, 9, 5) = (/&
+&.238E-02_JPRB,.218E-02_JPRB,.195E-02_JPRB,.168E-02_JPRB,.147E-02_JPRB,.130E-02_JPRB,.128E-02_JPRB,&
+&.138E-02_JPRB,.147E-02_JPRB,.153E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,&
+&.162E-02_JPRB,.161E-02_JPRB,.155E-02_JPRB,.147E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,&
+&.155E-02_JPRB,.162E-02_JPRB,.182E-02_JPRB,.240E-02_JPRB,.337E-02_JPRB,.395E-02_JPRB,.421E-02_JPRB,&
+&.410E-02_JPRB,.379E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.366E-02_JPRB,.347E-02_JPRB,.310E-02_JPRB,&
+&.288E-02_JPRB,.273E-02_JPRB,.249E-02_JPRB,.218E-02_JPRB,.187E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,&
+&.166E-02_JPRB,.168E-02_JPRB,.179E-02_JPRB,.191E-02_JPRB,.201E-02_JPRB,.205E-02_JPRB,.202E-02_JPRB,&
+&.198E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,.183E-02_JPRB,.176E-02_JPRB,.166E-02_JPRB,&
+&.157E-02_JPRB,.153E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.153E-02_JPRB,&
+&.179E-02_JPRB,.203E-02_JPRB,.265E-02_JPRB,.350E-02_JPRB,.331E-02_JPRB,.309E-02_JPRB,.307E-02_JPRB,&
+&.287E-02_JPRB,.259E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 10  54.0
+ZAER (:,10, 5) = (/&
+&.262E-02_JPRB,.253E-02_JPRB,.235E-02_JPRB,.208E-02_JPRB,.175E-02_JPRB,.150E-02_JPRB,.145E-02_JPRB,&
+&.155E-02_JPRB,.165E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,&
+&.177E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.167E-02_JPRB,.157E-02_JPRB,.151E-02_JPRB,.159E-02_JPRB,&
+&.258E-02_JPRB,.342E-02_JPRB,.460E-02_JPRB,.593E-02_JPRB,.712E-02_JPRB,.777E-02_JPRB,.734E-02_JPRB,&
+&.627E-02_JPRB,.518E-02_JPRB,.452E-02_JPRB,.405E-02_JPRB,.382E-02_JPRB,.365E-02_JPRB,.346E-02_JPRB,&
+&.329E-02_JPRB,.316E-02_JPRB,.290E-02_JPRB,.265E-02_JPRB,.249E-02_JPRB,.242E-02_JPRB,.240E-02_JPRB,&
+&.235E-02_JPRB,.238E-02_JPRB,.251E-02_JPRB,.262E-02_JPRB,.266E-02_JPRB,.266E-02_JPRB,.266E-02_JPRB,&
+&.268E-02_JPRB,.270E-02_JPRB,.263E-02_JPRB,.249E-02_JPRB,.230E-02_JPRB,.209E-02_JPRB,.193E-02_JPRB,&
+&.182E-02_JPRB,.174E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.187E-02_JPRB,&
+&.205E-02_JPRB,.258E-02_JPRB,.393E-02_JPRB,.409E-02_JPRB,.364E-02_JPRB,.353E-02_JPRB,.328E-02_JPRB,&
+&.291E-02_JPRB,.269E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 11  50.0
+ZAER (:,11, 5) = (/&
+&.284E-02_JPRB,.277E-02_JPRB,.267E-02_JPRB,.246E-02_JPRB,.215E-02_JPRB,.186E-02_JPRB,.173E-02_JPRB,&
+&.175E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.168E-02_JPRB,.167E-02_JPRB,.176E-02_JPRB,.183E-02_JPRB,&
+&.189E-02_JPRB,.191E-02_JPRB,.189E-02_JPRB,.183E-02_JPRB,.176E-02_JPRB,.171E-02_JPRB,.292E-02_JPRB,&
+&.544E-02_JPRB,.146E-01_JPRB,.214E-01_JPRB,.198E-01_JPRB,.161E-01_JPRB,.125E-01_JPRB,.922E-02_JPRB,&
+&.749E-02_JPRB,.637E-02_JPRB,.565E-02_JPRB,.506E-02_JPRB,.454E-02_JPRB,.433E-02_JPRB,.426E-02_JPRB,&
+&.414E-02_JPRB,.390E-02_JPRB,.360E-02_JPRB,.340E-02_JPRB,.333E-02_JPRB,.333E-02_JPRB,.323E-02_JPRB,&
+&.331E-02_JPRB,.351E-02_JPRB,.354E-02_JPRB,.345E-02_JPRB,.346E-02_JPRB,.351E-02_JPRB,.360E-02_JPRB,&
+&.360E-02_JPRB,.351E-02_JPRB,.334E-02_JPRB,.313E-02_JPRB,.287E-02_JPRB,.259E-02_JPRB,.233E-02_JPRB,&
+&.214E-02_JPRB,.196E-02_JPRB,.187E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.197E-02_JPRB,.212E-02_JPRB,&
+&.237E-02_JPRB,.399E-02_JPRB,.582E-02_JPRB,.501E-02_JPRB,.420E-02_JPRB,.385E-02_JPRB,.335E-02_JPRB,&
+&.304E-02_JPRB,.292E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 12  46.0
+ZAER (:,12, 5) = (/&
+&.341E-02_JPRB,.334E-02_JPRB,.321E-02_JPRB,.302E-02_JPRB,.273E-02_JPRB,.243E-02_JPRB,.221E-02_JPRB,&
+&.211E-02_JPRB,.199E-02_JPRB,.188E-02_JPRB,.178E-02_JPRB,.187E-02_JPRB,.204E-02_JPRB,.211E-02_JPRB,&
+&.208E-02_JPRB,.202E-02_JPRB,.196E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.195E-02_JPRB,.296E-02_JPRB,&
+&.346E-02_JPRB,.151E-01_JPRB,.474E-01_JPRB,.463E-01_JPRB,.282E-01_JPRB,.184E-01_JPRB,.140E-01_JPRB,&
+&.117E-01_JPRB,.970E-02_JPRB,.830E-02_JPRB,.751E-02_JPRB,.686E-02_JPRB,.632E-02_JPRB,.591E-02_JPRB,&
+&.550E-02_JPRB,.507E-02_JPRB,.469E-02_JPRB,.443E-02_JPRB,.415E-02_JPRB,.392E-02_JPRB,.394E-02_JPRB,&
+&.471E-02_JPRB,.454E-02_JPRB,.426E-02_JPRB,.419E-02_JPRB,.418E-02_JPRB,.422E-02_JPRB,.430E-02_JPRB,&
+&.429E-02_JPRB,.427E-02_JPRB,.403E-02_JPRB,.359E-02_JPRB,.326E-02_JPRB,.303E-02_JPRB,.279E-02_JPRB,&
+&.256E-02_JPRB,.238E-02_JPRB,.246E-02_JPRB,.247E-02_JPRB,.234E-02_JPRB,.235E-02_JPRB,.281E-02_JPRB,&
+&.434E-02_JPRB,.863E-02_JPRB,.866E-02_JPRB,.651E-02_JPRB,.500E-02_JPRB,.392E-02_JPRB,.340E-02_JPRB,&
+&.336E-02_JPRB,.342E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 13  42.0
+ZAER (:,13, 5) = (/&
+&.392E-02_JPRB,.378E-02_JPRB,.358E-02_JPRB,.343E-02_JPRB,.326E-02_JPRB,.301E-02_JPRB,.278E-02_JPRB,&
+&.261E-02_JPRB,.240E-02_JPRB,.218E-02_JPRB,.210E-02_JPRB,.224E-02_JPRB,.230E-02_JPRB,.223E-02_JPRB,&
+&.210E-02_JPRB,.200E-02_JPRB,.197E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.195E-02_JPRB,.228E-02_JPRB,&
+&.247E-02_JPRB,.457E-02_JPRB,.382E-01_JPRB,.461E-01_JPRB,.254E-01_JPRB,.177E-01_JPRB,.148E-01_JPRB,&
+&.128E-01_JPRB,.105E-01_JPRB,.856E-02_JPRB,.747E-02_JPRB,.670E-02_JPRB,.600E-02_JPRB,.583E-02_JPRB,&
+&.584E-02_JPRB,.562E-02_JPRB,.502E-02_JPRB,.464E-02_JPRB,.432E-02_JPRB,.419E-02_JPRB,.484E-02_JPRB,&
+&.729E-02_JPRB,.713E-02_JPRB,.611E-02_JPRB,.556E-02_JPRB,.495E-02_JPRB,.455E-02_JPRB,.446E-02_JPRB,&
+&.447E-02_JPRB,.474E-02_JPRB,.449E-02_JPRB,.397E-02_JPRB,.357E-02_JPRB,.340E-02_JPRB,.321E-02_JPRB,&
+&.298E-02_JPRB,.306E-02_JPRB,.348E-02_JPRB,.309E-02_JPRB,.276E-02_JPRB,.346E-02_JPRB,.516E-02_JPRB,&
+&.108E-01_JPRB,.135E-01_JPRB,.921E-02_JPRB,.731E-02_JPRB,.627E-02_JPRB,.468E-02_JPRB,.393E-02_JPRB,&
+&.387E-02_JPRB,.392E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 14  38.0
+ZAER (:,14, 5) = (/&
+&.441E-02_JPRB,.418E-02_JPRB,.391E-02_JPRB,.370E-02_JPRB,.359E-02_JPRB,.347E-02_JPRB,.333E-02_JPRB,&
+&.313E-02_JPRB,.282E-02_JPRB,.261E-02_JPRB,.257E-02_JPRB,.248E-02_JPRB,.234E-02_JPRB,.220E-02_JPRB,&
+&.213E-02_JPRB,.206E-02_JPRB,.202E-02_JPRB,.196E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,.190E-02_JPRB,&
+&.227E-02_JPRB,.643E-02_JPRB,.191E-01_JPRB,.246E-01_JPRB,.193E-01_JPRB,.152E-01_JPRB,.130E-01_JPRB,&
+&.110E-01_JPRB,.938E-02_JPRB,.802E-02_JPRB,.677E-02_JPRB,.594E-02_JPRB,.534E-02_JPRB,.532E-02_JPRB,&
+&.547E-02_JPRB,.535E-02_JPRB,.482E-02_JPRB,.456E-02_JPRB,.471E-02_JPRB,.556E-02_JPRB,.788E-02_JPRB,&
+&.111E-01_JPRB,.983E-02_JPRB,.716E-02_JPRB,.602E-02_JPRB,.543E-02_JPRB,.503E-02_JPRB,.475E-02_JPRB,&
+&.459E-02_JPRB,.471E-02_JPRB,.405E-02_JPRB,.347E-02_JPRB,.346E-02_JPRB,.370E-02_JPRB,.363E-02_JPRB,&
+&.346E-02_JPRB,.405E-02_JPRB,.485E-02_JPRB,.445E-02_JPRB,.509E-02_JPRB,.760E-02_JPRB,.117E-01_JPRB,&
+&.183E-01_JPRB,.153E-01_JPRB,.990E-02_JPRB,.856E-02_JPRB,.808E-02_JPRB,.638E-02_JPRB,.496E-02_JPRB,&
+&.454E-02_JPRB,.444E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 15  34.0
+ZAER (:,15, 5) = (/&
+&.500E-02_JPRB,.460E-02_JPRB,.426E-02_JPRB,.400E-02_JPRB,.391E-02_JPRB,.386E-02_JPRB,.379E-02_JPRB,&
+&.354E-02_JPRB,.322E-02_JPRB,.304E-02_JPRB,.283E-02_JPRB,.251E-02_JPRB,.238E-02_JPRB,.229E-02_JPRB,&
+&.227E-02_JPRB,.221E-02_JPRB,.212E-02_JPRB,.200E-02_JPRB,.192E-02_JPRB,.194E-02_JPRB,.203E-02_JPRB,&
+&.274E-02_JPRB,.552E-02_JPRB,.989E-02_JPRB,.144E-01_JPRB,.147E-01_JPRB,.133E-01_JPRB,.118E-01_JPRB,&
+&.102E-01_JPRB,.931E-02_JPRB,.824E-02_JPRB,.713E-02_JPRB,.636E-02_JPRB,.572E-02_JPRB,.536E-02_JPRB,&
+&.533E-02_JPRB,.521E-02_JPRB,.496E-02_JPRB,.501E-02_JPRB,.735E-02_JPRB,.154E-01_JPRB,.245E-01_JPRB,&
+&.223E-01_JPRB,.133E-01_JPRB,.835E-02_JPRB,.693E-02_JPRB,.640E-02_JPRB,.589E-02_JPRB,.534E-02_JPRB,&
+&.505E-02_JPRB,.471E-02_JPRB,.410E-02_JPRB,.388E-02_JPRB,.391E-02_JPRB,.404E-02_JPRB,.408E-02_JPRB,&
+&.412E-02_JPRB,.454E-02_JPRB,.638E-02_JPRB,.847E-02_JPRB,.120E-01_JPRB,.168E-01_JPRB,.286E-01_JPRB,&
+&.309E-01_JPRB,.296E-01_JPRB,.240E-01_JPRB,.135E-01_JPRB,.960E-02_JPRB,.791E-02_JPRB,.655E-02_JPRB,&
+&.571E-02_JPRB,.525E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 16  30.0
+ZAER (:,16, 5) = (/&
+&.529E-02_JPRB,.483E-02_JPRB,.444E-02_JPRB,.424E-02_JPRB,.406E-02_JPRB,.403E-02_JPRB,.390E-02_JPRB,&
+&.370E-02_JPRB,.337E-02_JPRB,.304E-02_JPRB,.282E-02_JPRB,.266E-02_JPRB,.259E-02_JPRB,.244E-02_JPRB,&
+&.226E-02_JPRB,.220E-02_JPRB,.214E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.204E-02_JPRB,.215E-02_JPRB,&
+&.283E-02_JPRB,.591E-02_JPRB,.108E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,.102E-01_JPRB,&
+&.875E-02_JPRB,.796E-02_JPRB,.739E-02_JPRB,.676E-02_JPRB,.622E-02_JPRB,.575E-02_JPRB,.577E-02_JPRB,&
+&.580E-02_JPRB,.565E-02_JPRB,.622E-02_JPRB,.773E-02_JPRB,.149E-01_JPRB,.349E-01_JPRB,.440E-01_JPRB,&
+&.303E-01_JPRB,.153E-01_JPRB,.101E-01_JPRB,.833E-02_JPRB,.737E-02_JPRB,.662E-02_JPRB,.608E-02_JPRB,&
+&.568E-02_JPRB,.545E-02_JPRB,.504E-02_JPRB,.471E-02_JPRB,.458E-02_JPRB,.447E-02_JPRB,.442E-02_JPRB,&
+&.450E-02_JPRB,.503E-02_JPRB,.730E-02_JPRB,.132E-01_JPRB,.195E-01_JPRB,.286E-01_JPRB,.435E-01_JPRB,&
+&.425E-01_JPRB,.359E-01_JPRB,.257E-01_JPRB,.162E-01_JPRB,.113E-01_JPRB,.895E-02_JPRB,.757E-02_JPRB,&
+&.661E-02_JPRB,.585E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 17  26.0
+ZAER (:,17, 5) = (/&
+&.545E-02_JPRB,.493E-02_JPRB,.448E-02_JPRB,.426E-02_JPRB,.405E-02_JPRB,.389E-02_JPRB,.365E-02_JPRB,&
+&.340E-02_JPRB,.303E-02_JPRB,.274E-02_JPRB,.262E-02_JPRB,.253E-02_JPRB,.250E-02_JPRB,.242E-02_JPRB,&
+&.221E-02_JPRB,.207E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.209E-02_JPRB,.211E-02_JPRB,.229E-02_JPRB,&
+&.293E-02_JPRB,.492E-02_JPRB,.109E-01_JPRB,.127E-01_JPRB,.113E-01_JPRB,.955E-02_JPRB,.776E-02_JPRB,&
+&.672E-02_JPRB,.613E-02_JPRB,.584E-02_JPRB,.563E-02_JPRB,.551E-02_JPRB,.564E-02_JPRB,.626E-02_JPRB,&
+&.663E-02_JPRB,.733E-02_JPRB,.102E-01_JPRB,.149E-01_JPRB,.249E-01_JPRB,.364E-01_JPRB,.317E-01_JPRB,&
+&.224E-01_JPRB,.145E-01_JPRB,.994E-02_JPRB,.871E-02_JPRB,.712E-02_JPRB,.632E-02_JPRB,.580E-02_JPRB,&
+&.537E-02_JPRB,.524E-02_JPRB,.505E-02_JPRB,.479E-02_JPRB,.458E-02_JPRB,.439E-02_JPRB,.438E-02_JPRB,&
+&.454E-02_JPRB,.525E-02_JPRB,.911E-02_JPRB,.206E-01_JPRB,.246E-01_JPRB,.314E-01_JPRB,.392E-01_JPRB,&
+&.388E-01_JPRB,.263E-01_JPRB,.199E-01_JPRB,.145E-01_JPRB,.109E-01_JPRB,.892E-02_JPRB,.772E-02_JPRB,&
+&.678E-02_JPRB,.600E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 18  22.0
+ZAER (:,18, 5) = (/&
+&.463E-02_JPRB,.435E-02_JPRB,.391E-02_JPRB,.347E-02_JPRB,.298E-02_JPRB,.270E-02_JPRB,.255E-02_JPRB,&
+&.234E-02_JPRB,.209E-02_JPRB,.194E-02_JPRB,.191E-02_JPRB,.194E-02_JPRB,.207E-02_JPRB,.216E-02_JPRB,&
+&.212E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.207E-02_JPRB,.215E-02_JPRB,.238E-02_JPRB,.286E-02_JPRB,&
+&.350E-02_JPRB,.429E-02_JPRB,.709E-02_JPRB,.103E-01_JPRB,.604E-02_JPRB,.584E-02_JPRB,.568E-02_JPRB,&
+&.511E-02_JPRB,.482E-02_JPRB,.482E-02_JPRB,.513E-02_JPRB,.567E-02_JPRB,.639E-02_JPRB,.742E-02_JPRB,&
+&.835E-02_JPRB,.948E-02_JPRB,.111E-01_JPRB,.134E-01_JPRB,.196E-01_JPRB,.316E-01_JPRB,.308E-01_JPRB,&
+&.153E-01_JPRB,.112E-01_JPRB,.942E-02_JPRB,.854E-02_JPRB,.630E-02_JPRB,.573E-02_JPRB,.527E-02_JPRB,&
+&.481E-02_JPRB,.452E-02_JPRB,.436E-02_JPRB,.424E-02_JPRB,.420E-02_JPRB,.422E-02_JPRB,.443E-02_JPRB,&
+&.509E-02_JPRB,.626E-02_JPRB,.121E-01_JPRB,.267E-01_JPRB,.288E-01_JPRB,.287E-01_JPRB,.317E-01_JPRB,&
+&.279E-01_JPRB,.211E-01_JPRB,.153E-01_JPRB,.989E-02_JPRB,.794E-02_JPRB,.689E-02_JPRB,.601E-02_JPRB,&
+&.533E-02_JPRB,.488E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 19  18.0
+ZAER (:,19, 5) = (/&
+&.338E-02_JPRB,.323E-02_JPRB,.278E-02_JPRB,.230E-02_JPRB,.197E-02_JPRB,.179E-02_JPRB,.171E-02_JPRB,&
+&.163E-02_JPRB,.157E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.156E-02_JPRB,.168E-02_JPRB,.177E-02_JPRB,&
+&.183E-02_JPRB,.188E-02_JPRB,.198E-02_JPRB,.214E-02_JPRB,.241E-02_JPRB,.287E-02_JPRB,.325E-02_JPRB,&
+&.335E-02_JPRB,.331E-02_JPRB,.463E-02_JPRB,.596E-02_JPRB,.428E-02_JPRB,.422E-02_JPRB,.439E-02_JPRB,&
+&.438E-02_JPRB,.440E-02_JPRB,.488E-02_JPRB,.570E-02_JPRB,.681E-02_JPRB,.763E-02_JPRB,.830E-02_JPRB,&
+&.879E-02_JPRB,.920E-02_JPRB,.925E-02_JPRB,.938E-02_JPRB,.111E-01_JPRB,.131E-01_JPRB,.118E-01_JPRB,&
+&.928E-02_JPRB,.783E-02_JPRB,.702E-02_JPRB,.614E-02_JPRB,.521E-02_JPRB,.465E-02_JPRB,.432E-02_JPRB,&
+&.404E-02_JPRB,.380E-02_JPRB,.364E-02_JPRB,.369E-02_JPRB,.402E-02_JPRB,.472E-02_JPRB,.573E-02_JPRB,&
+&.730E-02_JPRB,.959E-02_JPRB,.138E-01_JPRB,.217E-01_JPRB,.254E-01_JPRB,.245E-01_JPRB,.244E-01_JPRB,&
+&.216E-01_JPRB,.140E-01_JPRB,.765E-02_JPRB,.551E-02_JPRB,.455E-02_JPRB,.402E-02_JPRB,.359E-02_JPRB,&
+&.343E-02_JPRB,.335E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 20  14.0
+ZAER (:,20, 5) = (/&
+&.198E-02_JPRB,.189E-02_JPRB,.166E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,&
+&.142E-02_JPRB,.142E-02_JPRB,.143E-02_JPRB,.148E-02_JPRB,.157E-02_JPRB,.167E-02_JPRB,.174E-02_JPRB,&
+&.184E-02_JPRB,.201E-02_JPRB,.220E-02_JPRB,.236E-02_JPRB,.262E-02_JPRB,.291E-02_JPRB,.310E-02_JPRB,&
+&.276E-02_JPRB,.306E-02_JPRB,.358E-02_JPRB,.372E-02_JPRB,.352E-02_JPRB,.372E-02_JPRB,.393E-02_JPRB,&
+&.401E-02_JPRB,.449E-02_JPRB,.547E-02_JPRB,.679E-02_JPRB,.792E-02_JPRB,.813E-02_JPRB,.790E-02_JPRB,&
+&.789E-02_JPRB,.803E-02_JPRB,.779E-02_JPRB,.729E-02_JPRB,.724E-02_JPRB,.734E-02_JPRB,.712E-02_JPRB,&
+&.683E-02_JPRB,.647E-02_JPRB,.600E-02_JPRB,.530E-02_JPRB,.425E-02_JPRB,.355E-02_JPRB,.326E-02_JPRB,&
+&.316E-02_JPRB,.314E-02_JPRB,.319E-02_JPRB,.344E-02_JPRB,.392E-02_JPRB,.472E-02_JPRB,.599E-02_JPRB,&
+&.770E-02_JPRB,.973E-02_JPRB,.122E-01_JPRB,.153E-01_JPRB,.176E-01_JPRB,.164E-01_JPRB,.130E-01_JPRB,&
+&.908E-02_JPRB,.519E-02_JPRB,.331E-02_JPRB,.264E-02_JPRB,.237E-02_JPRB,.212E-02_JPRB,.193E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 21  10.0
+ZAER (:,21, 5) = (/&
+&.996E-03_JPRB,.103E-02_JPRB,.106E-02_JPRB,.111E-02_JPRB,.119E-02_JPRB,.130E-02_JPRB,.138E-02_JPRB,&
+&.142E-02_JPRB,.149E-02_JPRB,.155E-02_JPRB,.166E-02_JPRB,.180E-02_JPRB,.196E-02_JPRB,.210E-02_JPRB,&
+&.228E-02_JPRB,.249E-02_JPRB,.263E-02_JPRB,.272E-02_JPRB,.287E-02_JPRB,.304E-02_JPRB,.281E-02_JPRB,&
+&.258E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,.272E-02_JPRB,.309E-02_JPRB,.350E-02_JPRB,.382E-02_JPRB,&
+&.410E-02_JPRB,.477E-02_JPRB,.580E-02_JPRB,.678E-02_JPRB,.731E-02_JPRB,.729E-02_JPRB,.710E-02_JPRB,&
+&.708E-02_JPRB,.709E-02_JPRB,.673E-02_JPRB,.646E-02_JPRB,.671E-02_JPRB,.669E-02_JPRB,.654E-02_JPRB,&
+&.678E-02_JPRB,.650E-02_JPRB,.516E-02_JPRB,.376E-02_JPRB,.302E-02_JPRB,.259E-02_JPRB,.246E-02_JPRB,&
+&.246E-02_JPRB,.257E-02_JPRB,.267E-02_JPRB,.283E-02_JPRB,.318E-02_JPRB,.384E-02_JPRB,.493E-02_JPRB,&
+&.626E-02_JPRB,.754E-02_JPRB,.871E-02_JPRB,.962E-02_JPRB,.960E-02_JPRB,.756E-02_JPRB,.491E-02_JPRB,&
+&.268E-02_JPRB,.151E-02_JPRB,.130E-02_JPRB,.115E-02_JPRB,.103E-02_JPRB,.997E-03_JPRB,.990E-03_JPRB,&
+&.100E-02_JPRB,.970E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 22   6.0
+ZAER (:,22, 5) = (/&
+&.901E-03_JPRB,.995E-03_JPRB,.111E-02_JPRB,.124E-02_JPRB,.136E-02_JPRB,.147E-02_JPRB,.156E-02_JPRB,&
+&.165E-02_JPRB,.174E-02_JPRB,.183E-02_JPRB,.197E-02_JPRB,.213E-02_JPRB,.232E-02_JPRB,.248E-02_JPRB,&
+&.267E-02_JPRB,.284E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.284E-02_JPRB,.294E-02_JPRB,.256E-02_JPRB,&
+&.205E-02_JPRB,.196E-02_JPRB,.189E-02_JPRB,.199E-02_JPRB,.227E-02_JPRB,.264E-02_JPRB,.307E-02_JPRB,&
+&.364E-02_JPRB,.439E-02_JPRB,.529E-02_JPRB,.597E-02_JPRB,.624E-02_JPRB,.631E-02_JPRB,.643E-02_JPRB,&
+&.651E-02_JPRB,.652E-02_JPRB,.671E-02_JPRB,.690E-02_JPRB,.743E-02_JPRB,.778E-02_JPRB,.810E-02_JPRB,&
+&.806E-02_JPRB,.649E-02_JPRB,.371E-02_JPRB,.265E-02_JPRB,.245E-02_JPRB,.207E-02_JPRB,.190E-02_JPRB,&
+&.182E-02_JPRB,.174E-02_JPRB,.160E-02_JPRB,.156E-02_JPRB,.175E-02_JPRB,.210E-02_JPRB,.257E-02_JPRB,&
+&.307E-02_JPRB,.344E-02_JPRB,.352E-02_JPRB,.331E-02_JPRB,.273E-02_JPRB,.180E-02_JPRB,.102E-02_JPRB,&
+&.636E-03_JPRB,.548E-03_JPRB,.528E-03_JPRB,.490E-03_JPRB,.527E-03_JPRB,.605E-03_JPRB,.677E-03_JPRB,&
+&.751E-03_JPRB,.811E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 23   2.0
+ZAER (:,23, 5) = (/&
+&.977E-03_JPRB,.111E-02_JPRB,.125E-02_JPRB,.141E-02_JPRB,.156E-02_JPRB,.173E-02_JPRB,.189E-02_JPRB,&
+&.204E-02_JPRB,.219E-02_JPRB,.234E-02_JPRB,.250E-02_JPRB,.264E-02_JPRB,.278E-02_JPRB,.294E-02_JPRB,&
+&.308E-02_JPRB,.321E-02_JPRB,.329E-02_JPRB,.332E-02_JPRB,.340E-02_JPRB,.385E-02_JPRB,.356E-02_JPRB,&
+&.228E-02_JPRB,.228E-02_JPRB,.243E-02_JPRB,.267E-02_JPRB,.313E-02_JPRB,.369E-02_JPRB,.416E-02_JPRB,&
+&.469E-02_JPRB,.525E-02_JPRB,.581E-02_JPRB,.631E-02_JPRB,.677E-02_JPRB,.709E-02_JPRB,.748E-02_JPRB,&
+&.771E-02_JPRB,.803E-02_JPRB,.864E-02_JPRB,.949E-02_JPRB,.105E-01_JPRB,.118E-01_JPRB,.131E-01_JPRB,&
+&.138E-01_JPRB,.132E-01_JPRB,.107E-01_JPRB,.573E-02_JPRB,.352E-02_JPRB,.239E-02_JPRB,.197E-02_JPRB,&
+&.167E-02_JPRB,.140E-02_JPRB,.111E-02_JPRB,.924E-03_JPRB,.931E-03_JPRB,.102E-02_JPRB,.113E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.113E-02_JPRB,.959E-03_JPRB,.734E-03_JPRB,.538E-03_JPRB,.476E-03_JPRB,&
+&.456E-03_JPRB,.437E-03_JPRB,.428E-03_JPRB,.445E-03_JPRB,.490E-03_JPRB,.560E-03_JPRB,.654E-03_JPRB,&
+&.751E-03_JPRB,.854E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 24  -2.0
+ZAER (:,24, 5) = (/&
+&.947E-03_JPRB,.108E-02_JPRB,.121E-02_JPRB,.137E-02_JPRB,.159E-02_JPRB,.188E-02_JPRB,.217E-02_JPRB,&
+&.244E-02_JPRB,.270E-02_JPRB,.292E-02_JPRB,.309E-02_JPRB,.332E-02_JPRB,.344E-02_JPRB,.338E-02_JPRB,&
+&.352E-02_JPRB,.377E-02_JPRB,.399E-02_JPRB,.402E-02_JPRB,.410E-02_JPRB,.427E-02_JPRB,.435E-02_JPRB,&
+&.464E-02_JPRB,.499E-02_JPRB,.521E-02_JPRB,.554E-02_JPRB,.680E-02_JPRB,.848E-02_JPRB,.106E-01_JPRB,&
+&.120E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.113E-01_JPRB,.117E-01_JPRB,.129E-01_JPRB,.153E-01_JPRB,.173E-01_JPRB,.199E-01_JPRB,.250E-01_JPRB,&
+&.307E-01_JPRB,.350E-01_JPRB,.400E-01_JPRB,.405E-01_JPRB,.159E-01_JPRB,.676E-02_JPRB,.465E-02_JPRB,&
+&.335E-02_JPRB,.237E-02_JPRB,.173E-02_JPRB,.129E-02_JPRB,.102E-02_JPRB,.870E-03_JPRB,.945E-03_JPRB,&
+&.971E-03_JPRB,.926E-03_JPRB,.962E-03_JPRB,.958E-03_JPRB,.906E-03_JPRB,.844E-03_JPRB,.803E-03_JPRB,&
+&.836E-03_JPRB,.861E-03_JPRB,.871E-03_JPRB,.856E-03_JPRB,.810E-03_JPRB,.749E-03_JPRB,.729E-03_JPRB,&
+&.754E-03_JPRB,.832E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 25  -6.0
+ZAER (:,25, 5) = (/&
+&.145E-02_JPRB,.155E-02_JPRB,.175E-02_JPRB,.204E-02_JPRB,.241E-02_JPRB,.288E-02_JPRB,.338E-02_JPRB,&
+&.386E-02_JPRB,.440E-02_JPRB,.494E-02_JPRB,.522E-02_JPRB,.545E-02_JPRB,.561E-02_JPRB,.554E-02_JPRB,&
+&.562E-02_JPRB,.601E-02_JPRB,.650E-02_JPRB,.677E-02_JPRB,.709E-02_JPRB,.763E-02_JPRB,.843E-02_JPRB,&
+&.990E-02_JPRB,.106E-01_JPRB,.111E-01_JPRB,.120E-01_JPRB,.141E-01_JPRB,.179E-01_JPRB,.217E-01_JPRB,&
+&.250E-01_JPRB,.260E-01_JPRB,.275E-01_JPRB,.298E-01_JPRB,.320E-01_JPRB,.343E-01_JPRB,.335E-01_JPRB,&
+&.315E-01_JPRB,.314E-01_JPRB,.329E-01_JPRB,.374E-01_JPRB,.425E-01_JPRB,.473E-01_JPRB,.561E-01_JPRB,&
+&.714E-01_JPRB,.903E-01_JPRB,.114E+00_JPRB,.165E+00_JPRB,.181E+00_JPRB,.328E-01_JPRB,.174E-01_JPRB,&
+&.129E-01_JPRB,.102E-01_JPRB,.828E-02_JPRB,.617E-02_JPRB,.394E-02_JPRB,.232E-02_JPRB,.182E-02_JPRB,&
+&.178E-02_JPRB,.177E-02_JPRB,.188E-02_JPRB,.218E-02_JPRB,.239E-02_JPRB,.241E-02_JPRB,.226E-02_JPRB,&
+&.222E-02_JPRB,.218E-02_JPRB,.220E-02_JPRB,.213E-02_JPRB,.195E-02_JPRB,.173E-02_JPRB,.160E-02_JPRB,&
+&.148E-02_JPRB,.142E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 26 -10.0
+ZAER (:,26, 5) = (/&
+&.317E-02_JPRB,.325E-02_JPRB,.356E-02_JPRB,.415E-02_JPRB,.500E-02_JPRB,.600E-02_JPRB,.699E-02_JPRB,&
+&.785E-02_JPRB,.866E-02_JPRB,.955E-02_JPRB,.101E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,&
+&.102E-01_JPRB,.110E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.140E-01_JPRB,.155E-01_JPRB,&
+&.183E-01_JPRB,.204E-01_JPRB,.214E-01_JPRB,.230E-01_JPRB,.259E-01_JPRB,.316E-01_JPRB,.371E-01_JPRB,&
+&.411E-01_JPRB,.432E-01_JPRB,.471E-01_JPRB,.540E-01_JPRB,.649E-01_JPRB,.755E-01_JPRB,.837E-01_JPRB,&
+&.847E-01_JPRB,.858E-01_JPRB,.846E-01_JPRB,.788E-01_JPRB,.815E-01_JPRB,.893E-01_JPRB,.970E-01_JPRB,&
+&.115E+00_JPRB,.148E+00_JPRB,.186E+00_JPRB,.242E+00_JPRB,.336E+00_JPRB,.146E+00_JPRB,.512E-01_JPRB,&
+&.331E-01_JPRB,.312E-01_JPRB,.344E-01_JPRB,.321E-01_JPRB,.226E-01_JPRB,.118E-01_JPRB,.621E-02_JPRB,&
+&.436E-02_JPRB,.381E-02_JPRB,.415E-02_JPRB,.464E-02_JPRB,.528E-02_JPRB,.564E-02_JPRB,.582E-02_JPRB,&
+&.581E-02_JPRB,.544E-02_JPRB,.512E-02_JPRB,.482E-02_JPRB,.436E-02_JPRB,.385E-02_JPRB,.360E-02_JPRB,&
+&.338E-02_JPRB,.320E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 27 -14.0
+ZAER (:,27, 5) = (/&
+&.753E-02_JPRB,.748E-02_JPRB,.779E-02_JPRB,.822E-02_JPRB,.886E-02_JPRB,.994E-02_JPRB,.113E-01_JPRB,&
+&.125E-01_JPRB,.136E-01_JPRB,.154E-01_JPRB,.171E-01_JPRB,.182E-01_JPRB,.186E-01_JPRB,.178E-01_JPRB,&
+&.177E-01_JPRB,.192E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.201E-01_JPRB,.198E-01_JPRB,.202E-01_JPRB,&
+&.222E-01_JPRB,.246E-01_JPRB,.257E-01_JPRB,.274E-01_JPRB,.310E-01_JPRB,.357E-01_JPRB,.405E-01_JPRB,&
+&.462E-01_JPRB,.529E-01_JPRB,.620E-01_JPRB,.747E-01_JPRB,.904E-01_JPRB,.110E+00_JPRB,.137E+00_JPRB,&
+&.167E+00_JPRB,.180E+00_JPRB,.178E+00_JPRB,.149E+00_JPRB,.126E+00_JPRB,.120E+00_JPRB,.119E+00_JPRB,&
+&.126E+00_JPRB,.146E+00_JPRB,.169E+00_JPRB,.202E+00_JPRB,.264E+00_JPRB,.206E+00_JPRB,.965E-01_JPRB,&
+&.625E-01_JPRB,.645E-01_JPRB,.744E-01_JPRB,.733E-01_JPRB,.612E-01_JPRB,.411E-01_JPRB,.257E-01_JPRB,&
+&.129E-01_JPRB,.728E-02_JPRB,.671E-02_JPRB,.762E-02_JPRB,.928E-02_JPRB,.106E-01_JPRB,.115E-01_JPRB,&
+&.120E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.982E-02_JPRB,.913E-02_JPRB,.852E-02_JPRB,.831E-02_JPRB,&
+&.814E-02_JPRB,.790E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 28 -18.0
+ZAER (:,28, 5) = (/&
+&.191E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.146E-01_JPRB,&
+&.144E-01_JPRB,.153E-01_JPRB,.168E-01_JPRB,.185E-01_JPRB,.207E-01_JPRB,.252E-01_JPRB,.298E-01_JPRB,&
+&.327E-01_JPRB,.379E-01_JPRB,.403E-01_JPRB,.365E-01_JPRB,.306E-01_JPRB,.275E-01_JPRB,.248E-01_JPRB,&
+&.231E-01_JPRB,.234E-01_JPRB,.247E-01_JPRB,.269E-01_JPRB,.300E-01_JPRB,.333E-01_JPRB,.360E-01_JPRB,&
+&.394E-01_JPRB,.461E-01_JPRB,.586E-01_JPRB,.798E-01_JPRB,.109E+00_JPRB,.135E+00_JPRB,.172E+00_JPRB,&
+&.214E+00_JPRB,.212E+00_JPRB,.211E+00_JPRB,.195E+00_JPRB,.170E+00_JPRB,.148E+00_JPRB,.137E+00_JPRB,&
+&.134E+00_JPRB,.149E+00_JPRB,.170E+00_JPRB,.184E+00_JPRB,.195E+00_JPRB,.219E+00_JPRB,.174E+00_JPRB,&
+&.116E+00_JPRB,.106E+00_JPRB,.116E+00_JPRB,.111E+00_JPRB,.998E-01_JPRB,.774E-01_JPRB,.531E-01_JPRB,&
+&.313E-01_JPRB,.170E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.133E-01_JPRB,.160E-01_JPRB,.183E-01_JPRB,&
+&.201E-01_JPRB,.210E-01_JPRB,.215E-01_JPRB,.218E-01_JPRB,.214E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,&
+&.208E-01_JPRB,.204E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 29 -22.0
+ZAER (:,29, 5) = (/&
+&.337E-01_JPRB,.334E-01_JPRB,.333E-01_JPRB,.347E-01_JPRB,.344E-01_JPRB,.315E-01_JPRB,.260E-01_JPRB,&
+&.206E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.201E-01_JPRB,.280E-01_JPRB,.409E-01_JPRB,&
+&.515E-01_JPRB,.624E-01_JPRB,.719E-01_JPRB,.529E-01_JPRB,.445E-01_JPRB,.396E-01_JPRB,.358E-01_JPRB,&
+&.293E-01_JPRB,.253E-01_JPRB,.239E-01_JPRB,.247E-01_JPRB,.263E-01_JPRB,.290E-01_JPRB,.310E-01_JPRB,&
+&.327E-01_JPRB,.350E-01_JPRB,.448E-01_JPRB,.640E-01_JPRB,.967E-01_JPRB,.132E+00_JPRB,.163E+00_JPRB,&
+&.203E+00_JPRB,.202E+00_JPRB,.215E+00_JPRB,.228E+00_JPRB,.214E+00_JPRB,.205E+00_JPRB,.187E+00_JPRB,&
+&.150E+00_JPRB,.148E+00_JPRB,.163E+00_JPRB,.172E+00_JPRB,.178E+00_JPRB,.195E+00_JPRB,.198E+00_JPRB,&
+&.156E+00_JPRB,.127E+00_JPRB,.133E+00_JPRB,.132E+00_JPRB,.118E+00_JPRB,.991E-01_JPRB,.779E-01_JPRB,&
+&.574E-01_JPRB,.352E-01_JPRB,.194E-01_JPRB,.178E-01_JPRB,.184E-01_JPRB,.175E-01_JPRB,.201E-01_JPRB,&
+&.231E-01_JPRB,.265E-01_JPRB,.300E-01_JPRB,.317E-01_JPRB,.338E-01_JPRB,.342E-01_JPRB,.339E-01_JPRB,&
+&.341E-01_JPRB,.340E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 30 -26.0
+ZAER (:,30, 5) = (/&
+&.426E-01_JPRB,.460E-01_JPRB,.505E-01_JPRB,.530E-01_JPRB,.518E-01_JPRB,.476E-01_JPRB,.425E-01_JPRB,&
+&.368E-01_JPRB,.313E-01_JPRB,.274E-01_JPRB,.246E-01_JPRB,.222E-01_JPRB,.289E-01_JPRB,.496E-01_JPRB,&
+&.546E-01_JPRB,.697E-01_JPRB,.921E-01_JPRB,.620E-01_JPRB,.504E-01_JPRB,.450E-01_JPRB,.418E-01_JPRB,&
+&.375E-01_JPRB,.329E-01_JPRB,.286E-01_JPRB,.261E-01_JPRB,.251E-01_JPRB,.257E-01_JPRB,.274E-01_JPRB,&
+&.288E-01_JPRB,.295E-01_JPRB,.330E-01_JPRB,.421E-01_JPRB,.619E-01_JPRB,.101E+00_JPRB,.145E+00_JPRB,&
+&.182E+00_JPRB,.197E+00_JPRB,.201E+00_JPRB,.279E+00_JPRB,.265E+00_JPRB,.220E+00_JPRB,.189E+00_JPRB,&
+&.155E+00_JPRB,.149E+00_JPRB,.163E+00_JPRB,.179E+00_JPRB,.191E+00_JPRB,.184E+00_JPRB,.183E+00_JPRB,&
+&.168E+00_JPRB,.152E+00_JPRB,.152E+00_JPRB,.144E+00_JPRB,.122E+00_JPRB,.105E+00_JPRB,.932E-01_JPRB,&
+&.813E-01_JPRB,.624E-01_JPRB,.363E-01_JPRB,.260E-01_JPRB,.304E-01_JPRB,.307E-01_JPRB,.282E-01_JPRB,&
+&.312E-01_JPRB,.373E-01_JPRB,.410E-01_JPRB,.427E-01_JPRB,.444E-01_JPRB,.448E-01_JPRB,.434E-01_JPRB,&
+&.419E-01_JPRB,.415E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 31 -30.0
+ZAER (:,31, 5) = (/&
+&.518E-01_JPRB,.579E-01_JPRB,.607E-01_JPRB,.591E-01_JPRB,.565E-01_JPRB,.533E-01_JPRB,.514E-01_JPRB,&
+&.498E-01_JPRB,.459E-01_JPRB,.410E-01_JPRB,.372E-01_JPRB,.347E-01_JPRB,.357E-01_JPRB,.495E-01_JPRB,&
+&.562E-01_JPRB,.685E-01_JPRB,.827E-01_JPRB,.661E-01_JPRB,.548E-01_JPRB,.489E-01_JPRB,.461E-01_JPRB,&
+&.435E-01_JPRB,.402E-01_JPRB,.361E-01_JPRB,.324E-01_JPRB,.296E-01_JPRB,.287E-01_JPRB,.286E-01_JPRB,&
+&.278E-01_JPRB,.276E-01_JPRB,.282E-01_JPRB,.299E-01_JPRB,.365E-01_JPRB,.610E-01_JPRB,.111E+00_JPRB,&
+&.139E+00_JPRB,.155E+00_JPRB,.191E+00_JPRB,.317E+00_JPRB,.307E+00_JPRB,.186E+00_JPRB,.156E+00_JPRB,&
+&.134E+00_JPRB,.141E+00_JPRB,.170E+00_JPRB,.198E+00_JPRB,.207E+00_JPRB,.182E+00_JPRB,.163E+00_JPRB,&
+&.159E+00_JPRB,.165E+00_JPRB,.149E+00_JPRB,.127E+00_JPRB,.114E+00_JPRB,.106E+00_JPRB,.110E+00_JPRB,&
+&.107E+00_JPRB,.899E-01_JPRB,.657E-01_JPRB,.500E-01_JPRB,.518E-01_JPRB,.546E-01_JPRB,.506E-01_JPRB,&
+&.523E-01_JPRB,.610E-01_JPRB,.593E-01_JPRB,.594E-01_JPRB,.571E-01_JPRB,.557E-01_JPRB,.512E-01_JPRB,&
+&.456E-01_JPRB,.459E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 32 -34.0
+ZAER (:,32, 5) = (/&
+&.599E-01_JPRB,.638E-01_JPRB,.640E-01_JPRB,.595E-01_JPRB,.562E-01_JPRB,.542E-01_JPRB,.534E-01_JPRB,&
+&.534E-01_JPRB,.524E-01_JPRB,.504E-01_JPRB,.486E-01_JPRB,.477E-01_JPRB,.501E-01_JPRB,.557E-01_JPRB,&
+&.630E-01_JPRB,.771E-01_JPRB,.794E-01_JPRB,.648E-01_JPRB,.546E-01_JPRB,.487E-01_JPRB,.457E-01_JPRB,&
+&.431E-01_JPRB,.411E-01_JPRB,.386E-01_JPRB,.361E-01_JPRB,.340E-01_JPRB,.318E-01_JPRB,.298E-01_JPRB,&
+&.286E-01_JPRB,.278E-01_JPRB,.270E-01_JPRB,.261E-01_JPRB,.265E-01_JPRB,.348E-01_JPRB,.619E-01_JPRB,&
+&.886E-01_JPRB,.120E+00_JPRB,.172E+00_JPRB,.238E+00_JPRB,.264E+00_JPRB,.164E+00_JPRB,.127E+00_JPRB,&
+&.120E+00_JPRB,.119E+00_JPRB,.143E+00_JPRB,.165E+00_JPRB,.178E+00_JPRB,.193E+00_JPRB,.179E+00_JPRB,&
+&.162E+00_JPRB,.138E+00_JPRB,.133E+00_JPRB,.127E+00_JPRB,.122E+00_JPRB,.126E+00_JPRB,.140E+00_JPRB,&
+&.156E+00_JPRB,.142E+00_JPRB,.138E+00_JPRB,.128E+00_JPRB,.116E+00_JPRB,.110E+00_JPRB,.100E+00_JPRB,&
+&.975E-01_JPRB,.890E-01_JPRB,.753E-01_JPRB,.710E-01_JPRB,.650E-01_JPRB,.657E-01_JPRB,.600E-01_JPRB,&
+&.531E-01_JPRB,.550E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 33 -38.0
+ZAER (:,33, 5) = (/&
+&.646E-01_JPRB,.647E-01_JPRB,.633E-01_JPRB,.585E-01_JPRB,.530E-01_JPRB,.494E-01_JPRB,.497E-01_JPRB,&
+&.512E-01_JPRB,.518E-01_JPRB,.515E-01_JPRB,.514E-01_JPRB,.528E-01_JPRB,.565E-01_JPRB,.594E-01_JPRB,&
+&.622E-01_JPRB,.663E-01_JPRB,.657E-01_JPRB,.563E-01_JPRB,.493E-01_JPRB,.456E-01_JPRB,.434E-01_JPRB,&
+&.404E-01_JPRB,.380E-01_JPRB,.365E-01_JPRB,.349E-01_JPRB,.334E-01_JPRB,.315E-01_JPRB,.297E-01_JPRB,&
+&.286E-01_JPRB,.277E-01_JPRB,.263E-01_JPRB,.247E-01_JPRB,.243E-01_JPRB,.254E-01_JPRB,.330E-01_JPRB,&
+&.514E-01_JPRB,.711E-01_JPRB,.984E-01_JPRB,.127E+00_JPRB,.140E+00_JPRB,.131E+00_JPRB,.123E+00_JPRB,&
+&.109E+00_JPRB,.107E+00_JPRB,.117E+00_JPRB,.145E+00_JPRB,.206E+00_JPRB,.283E+00_JPRB,.257E+00_JPRB,&
+&.201E+00_JPRB,.150E+00_JPRB,.135E+00_JPRB,.168E+00_JPRB,.173E+00_JPRB,.170E+00_JPRB,.180E+00_JPRB,&
+&.221E+00_JPRB,.256E+00_JPRB,.252E+00_JPRB,.234E+00_JPRB,.201E+00_JPRB,.177E+00_JPRB,.156E+00_JPRB,&
+&.134E+00_JPRB,.114E+00_JPRB,.954E-01_JPRB,.861E-01_JPRB,.791E-01_JPRB,.769E-01_JPRB,.737E-01_JPRB,&
+&.689E-01_JPRB,.657E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 34 -42.0
+ZAER (:,34, 5) = (/&
+&.692E-01_JPRB,.657E-01_JPRB,.611E-01_JPRB,.556E-01_JPRB,.490E-01_JPRB,.449E-01_JPRB,.458E-01_JPRB,&
+&.474E-01_JPRB,.477E-01_JPRB,.467E-01_JPRB,.462E-01_JPRB,.477E-01_JPRB,.518E-01_JPRB,.545E-01_JPRB,&
+&.550E-01_JPRB,.543E-01_JPRB,.505E-01_JPRB,.473E-01_JPRB,.433E-01_JPRB,.397E-01_JPRB,.371E-01_JPRB,&
+&.354E-01_JPRB,.330E-01_JPRB,.320E-01_JPRB,.318E-01_JPRB,.310E-01_JPRB,.298E-01_JPRB,.284E-01_JPRB,&
+&.274E-01_JPRB,.267E-01_JPRB,.255E-01_JPRB,.234E-01_JPRB,.223E-01_JPRB,.216E-01_JPRB,.239E-01_JPRB,&
+&.352E-01_JPRB,.471E-01_JPRB,.640E-01_JPRB,.861E-01_JPRB,.923E-01_JPRB,.936E-01_JPRB,.970E-01_JPRB,&
+&.977E-01_JPRB,.101E+00_JPRB,.108E+00_JPRB,.154E+00_JPRB,.325E+00_JPRB,.444E+00_JPRB,.305E+00_JPRB,&
+&.228E+00_JPRB,.181E+00_JPRB,.145E+00_JPRB,.153E+00_JPRB,.159E+00_JPRB,.182E+00_JPRB,.240E+00_JPRB,&
+&.343E+00_JPRB,.387E+00_JPRB,.368E+00_JPRB,.340E+00_JPRB,.293E+00_JPRB,.236E+00_JPRB,.192E+00_JPRB,&
+&.154E+00_JPRB,.129E+00_JPRB,.114E+00_JPRB,.100E+00_JPRB,.875E-01_JPRB,.833E-01_JPRB,.811E-01_JPRB,&
+&.791E-01_JPRB,.740E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 35 -46.0
+ZAER (:,35, 5) = (/&
+&.718E-01_JPRB,.668E-01_JPRB,.598E-01_JPRB,.537E-01_JPRB,.479E-01_JPRB,.453E-01_JPRB,.448E-01_JPRB,&
+&.454E-01_JPRB,.443E-01_JPRB,.405E-01_JPRB,.403E-01_JPRB,.416E-01_JPRB,.443E-01_JPRB,.461E-01_JPRB,&
+&.461E-01_JPRB,.454E-01_JPRB,.426E-01_JPRB,.397E-01_JPRB,.358E-01_JPRB,.329E-01_JPRB,.320E-01_JPRB,&
+&.316E-01_JPRB,.296E-01_JPRB,.276E-01_JPRB,.274E-01_JPRB,.272E-01_JPRB,.264E-01_JPRB,.253E-01_JPRB,&
+&.246E-01_JPRB,.241E-01_JPRB,.235E-01_JPRB,.229E-01_JPRB,.221E-01_JPRB,.205E-01_JPRB,.203E-01_JPRB,&
+&.249E-01_JPRB,.333E-01_JPRB,.439E-01_JPRB,.627E-01_JPRB,.740E-01_JPRB,.726E-01_JPRB,.737E-01_JPRB,&
+&.774E-01_JPRB,.886E-01_JPRB,.129E+00_JPRB,.204E+00_JPRB,.357E+00_JPRB,.388E+00_JPRB,.286E+00_JPRB,&
+&.207E+00_JPRB,.173E+00_JPRB,.148E+00_JPRB,.135E+00_JPRB,.137E+00_JPRB,.164E+00_JPRB,.220E+00_JPRB,&
+&.262E+00_JPRB,.295E+00_JPRB,.299E+00_JPRB,.299E+00_JPRB,.264E+00_JPRB,.197E+00_JPRB,.154E+00_JPRB,&
+&.134E+00_JPRB,.120E+00_JPRB,.111E+00_JPRB,.101E+00_JPRB,.901E-01_JPRB,.830E-01_JPRB,.795E-01_JPRB,&
+&.774E-01_JPRB,.751E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 36 -50.0
+ZAER (:,36, 5) = (/&
+&.678E-01_JPRB,.646E-01_JPRB,.593E-01_JPRB,.539E-01_JPRB,.485E-01_JPRB,.465E-01_JPRB,.443E-01_JPRB,&
+&.424E-01_JPRB,.403E-01_JPRB,.377E-01_JPRB,.360E-01_JPRB,.364E-01_JPRB,.385E-01_JPRB,.395E-01_JPRB,&
+&.402E-01_JPRB,.391E-01_JPRB,.366E-01_JPRB,.349E-01_JPRB,.337E-01_JPRB,.321E-01_JPRB,.316E-01_JPRB,&
+&.308E-01_JPRB,.283E-01_JPRB,.265E-01_JPRB,.250E-01_JPRB,.240E-01_JPRB,.230E-01_JPRB,.225E-01_JPRB,&
+&.222E-01_JPRB,.220E-01_JPRB,.224E-01_JPRB,.226E-01_JPRB,.219E-01_JPRB,.210E-01_JPRB,.204E-01_JPRB,&
+&.219E-01_JPRB,.251E-01_JPRB,.310E-01_JPRB,.414E-01_JPRB,.577E-01_JPRB,.647E-01_JPRB,.645E-01_JPRB,&
+&.651E-01_JPRB,.771E-01_JPRB,.104E+00_JPRB,.127E+00_JPRB,.187E+00_JPRB,.216E+00_JPRB,.196E+00_JPRB,&
+&.169E+00_JPRB,.157E+00_JPRB,.141E+00_JPRB,.127E+00_JPRB,.120E+00_JPRB,.119E+00_JPRB,.129E+00_JPRB,&
+&.141E+00_JPRB,.162E+00_JPRB,.165E+00_JPRB,.162E+00_JPRB,.161E+00_JPRB,.128E+00_JPRB,.109E+00_JPRB,&
+&.997E-01_JPRB,.940E-01_JPRB,.864E-01_JPRB,.835E-01_JPRB,.812E-01_JPRB,.779E-01_JPRB,.749E-01_JPRB,&
+&.723E-01_JPRB,.700E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 37 -54.0
+ZAER (:,37, 5) = (/&
+&.620E-01_JPRB,.594E-01_JPRB,.570E-01_JPRB,.537E-01_JPRB,.483E-01_JPRB,.469E-01_JPRB,.458E-01_JPRB,&
+&.408E-01_JPRB,.369E-01_JPRB,.358E-01_JPRB,.336E-01_JPRB,.329E-01_JPRB,.342E-01_JPRB,.356E-01_JPRB,&
+&.360E-01_JPRB,.341E-01_JPRB,.327E-01_JPRB,.326E-01_JPRB,.334E-01_JPRB,.325E-01_JPRB,.317E-01_JPRB,&
+&.301E-01_JPRB,.276E-01_JPRB,.252E-01_JPRB,.228E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,.204E-01_JPRB,&
+&.205E-01_JPRB,.202E-01_JPRB,.202E-01_JPRB,.201E-01_JPRB,.198E-01_JPRB,.199E-01_JPRB,.201E-01_JPRB,&
+&.208E-01_JPRB,.216E-01_JPRB,.231E-01_JPRB,.273E-01_JPRB,.352E-01_JPRB,.461E-01_JPRB,.518E-01_JPRB,&
+&.554E-01_JPRB,.625E-01_JPRB,.731E-01_JPRB,.823E-01_JPRB,.104E+00_JPRB,.130E+00_JPRB,.141E+00_JPRB,&
+&.138E+00_JPRB,.128E+00_JPRB,.115E+00_JPRB,.105E+00_JPRB,.972E-01_JPRB,.894E-01_JPRB,.830E-01_JPRB,&
+&.827E-01_JPRB,.887E-01_JPRB,.899E-01_JPRB,.888E-01_JPRB,.893E-01_JPRB,.920E-01_JPRB,.879E-01_JPRB,&
+&.796E-01_JPRB,.710E-01_JPRB,.667E-01_JPRB,.654E-01_JPRB,.652E-01_JPRB,.646E-01_JPRB,.638E-01_JPRB,&
+&.642E-01_JPRB,.637E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 38 -58.0
+ZAER (:,38, 5) = (/&
+&.555E-01_JPRB,.543E-01_JPRB,.542E-01_JPRB,.522E-01_JPRB,.508E-01_JPRB,.482E-01_JPRB,.418E-01_JPRB,&
+&.373E-01_JPRB,.357E-01_JPRB,.359E-01_JPRB,.340E-01_JPRB,.319E-01_JPRB,.313E-01_JPRB,.330E-01_JPRB,&
+&.345E-01_JPRB,.334E-01_JPRB,.329E-01_JPRB,.326E-01_JPRB,.333E-01_JPRB,.332E-01_JPRB,.328E-01_JPRB,&
+&.310E-01_JPRB,.274E-01_JPRB,.232E-01_JPRB,.211E-01_JPRB,.189E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,&
+&.182E-01_JPRB,.175E-01_JPRB,.170E-01_JPRB,.172E-01_JPRB,.177E-01_JPRB,.183E-01_JPRB,.186E-01_JPRB,&
+&.193E-01_JPRB,.191E-01_JPRB,.191E-01_JPRB,.205E-01_JPRB,.231E-01_JPRB,.278E-01_JPRB,.354E-01_JPRB,&
+&.410E-01_JPRB,.468E-01_JPRB,.507E-01_JPRB,.536E-01_JPRB,.617E-01_JPRB,.760E-01_JPRB,.840E-01_JPRB,&
+&.841E-01_JPRB,.791E-01_JPRB,.753E-01_JPRB,.723E-01_JPRB,.682E-01_JPRB,.638E-01_JPRB,.594E-01_JPRB,&
+&.586E-01_JPRB,.578E-01_JPRB,.571E-01_JPRB,.573E-01_JPRB,.657E-01_JPRB,.731E-01_JPRB,.712E-01_JPRB,&
+&.642E-01_JPRB,.604E-01_JPRB,.609E-01_JPRB,.589E-01_JPRB,.558E-01_JPRB,.548E-01_JPRB,.547E-01_JPRB,&
+&.558E-01_JPRB,.563E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 39 -62.0
+ZAER (:,39, 5) = (/&
+&.479E-01_JPRB,.480E-01_JPRB,.485E-01_JPRB,.482E-01_JPRB,.478E-01_JPRB,.441E-01_JPRB,.406E-01_JPRB,&
+&.402E-01_JPRB,.386E-01_JPRB,.354E-01_JPRB,.327E-01_JPRB,.306E-01_JPRB,.294E-01_JPRB,.308E-01_JPRB,&
+&.322E-01_JPRB,.325E-01_JPRB,.328E-01_JPRB,.326E-01_JPRB,.329E-01_JPRB,.336E-01_JPRB,.329E-01_JPRB,&
+&.307E-01_JPRB,.277E-01_JPRB,.243E-01_JPRB,.206E-01_JPRB,.184E-01_JPRB,.175E-01_JPRB,.174E-01_JPRB,&
+&.161E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.164E-01_JPRB,.175E-01_JPRB,.180E-01_JPRB,.181E-01_JPRB,&
+&.185E-01_JPRB,.180E-01_JPRB,.173E-01_JPRB,.176E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,.215E-01_JPRB,&
+&.249E-01_JPRB,.294E-01_JPRB,.322E-01_JPRB,.341E-01_JPRB,.364E-01_JPRB,.387E-01_JPRB,.412E-01_JPRB,&
+&.419E-01_JPRB,.413E-01_JPRB,.416E-01_JPRB,.424E-01_JPRB,.435E-01_JPRB,.434E-01_JPRB,.455E-01_JPRB,&
+&.500E-01_JPRB,.529E-01_JPRB,.511E-01_JPRB,.517E-01_JPRB,.552E-01_JPRB,.613E-01_JPRB,.584E-01_JPRB,&
+&.507E-01_JPRB,.538E-01_JPRB,.549E-01_JPRB,.536E-01_JPRB,.527E-01_JPRB,.508E-01_JPRB,.509E-01_JPRB,&
+&.508E-01_JPRB,.494E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 40 -66.0
+ZAER (:,40, 5) = (/&
+&.427E-01_JPRB,.426E-01_JPRB,.427E-01_JPRB,.437E-01_JPRB,.452E-01_JPRB,.445E-01_JPRB,.431E-01_JPRB,&
+&.435E-01_JPRB,.423E-01_JPRB,.381E-01_JPRB,.337E-01_JPRB,.305E-01_JPRB,.291E-01_JPRB,.291E-01_JPRB,&
+&.296E-01_JPRB,.304E-01_JPRB,.314E-01_JPRB,.326E-01_JPRB,.338E-01_JPRB,.338E-01_JPRB,.323E-01_JPRB,&
+&.300E-01_JPRB,.274E-01_JPRB,.251E-01_JPRB,.221E-01_JPRB,.188E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,&
+&.165E-01_JPRB,.160E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,.169E-01_JPRB,.175E-01_JPRB,.174E-01_JPRB,&
+&.176E-01_JPRB,.177E-01_JPRB,.181E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.191E-01_JPRB,&
+&.206E-01_JPRB,.239E-01_JPRB,.262E-01_JPRB,.278E-01_JPRB,.287E-01_JPRB,.295E-01_JPRB,.308E-01_JPRB,&
+&.315E-01_JPRB,.309E-01_JPRB,.307E-01_JPRB,.322E-01_JPRB,.330E-01_JPRB,.340E-01_JPRB,.378E-01_JPRB,&
+&.434E-01_JPRB,.464E-01_JPRB,.453E-01_JPRB,.439E-01_JPRB,.441E-01_JPRB,.470E-01_JPRB,.466E-01_JPRB,&
+&.444E-01_JPRB,.453E-01_JPRB,.463E-01_JPRB,.480E-01_JPRB,.486E-01_JPRB,.478E-01_JPRB,.465E-01_JPRB,&
+&.454E-01_JPRB,.436E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 41 -70.0
+ZAER (:,41, 5) = (/&
+&.391E-01_JPRB,.402E-01_JPRB,.408E-01_JPRB,.417E-01_JPRB,.431E-01_JPRB,.431E-01_JPRB,.421E-01_JPRB,&
+&.420E-01_JPRB,.414E-01_JPRB,.391E-01_JPRB,.355E-01_JPRB,.324E-01_JPRB,.309E-01_JPRB,.305E-01_JPRB,&
+&.306E-01_JPRB,.310E-01_JPRB,.322E-01_JPRB,.337E-01_JPRB,.342E-01_JPRB,.331E-01_JPRB,.310E-01_JPRB,&
+&.286E-01_JPRB,.264E-01_JPRB,.247E-01_JPRB,.229E-01_JPRB,.201E-01_JPRB,.183E-01_JPRB,.180E-01_JPRB,&
+&.174E-01_JPRB,.172E-01_JPRB,.174E-01_JPRB,.169E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,&
+&.167E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.191E-01_JPRB,.191E-01_JPRB,.195E-01_JPRB,.201E-01_JPRB,&
+&.212E-01_JPRB,.227E-01_JPRB,.241E-01_JPRB,.257E-01_JPRB,.259E-01_JPRB,.260E-01_JPRB,.301E-01_JPRB,&
+&.319E-01_JPRB,.310E-01_JPRB,.304E-01_JPRB,.303E-01_JPRB,.312E-01_JPRB,.338E-01_JPRB,.387E-01_JPRB,&
+&.438E-01_JPRB,.457E-01_JPRB,.450E-01_JPRB,.446E-01_JPRB,.439E-01_JPRB,.431E-01_JPRB,.428E-01_JPRB,&
+&.431E-01_JPRB,.420E-01_JPRB,.418E-01_JPRB,.419E-01_JPRB,.423E-01_JPRB,.424E-01_JPRB,.415E-01_JPRB,&
+&.402E-01_JPRB,.390E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 42 -74.0
+ZAER (:,42, 5) = (/&
+&.387E-01_JPRB,.407E-01_JPRB,.417E-01_JPRB,.416E-01_JPRB,.414E-01_JPRB,.415E-01_JPRB,.413E-01_JPRB,&
+&.401E-01_JPRB,.390E-01_JPRB,.379E-01_JPRB,.363E-01_JPRB,.345E-01_JPRB,.332E-01_JPRB,.325E-01_JPRB,&
+&.324E-01_JPRB,.328E-01_JPRB,.332E-01_JPRB,.330E-01_JPRB,.320E-01_JPRB,.299E-01_JPRB,.277E-01_JPRB,&
+&.257E-01_JPRB,.243E-01_JPRB,.232E-01_JPRB,.223E-01_JPRB,.212E-01_JPRB,.205E-01_JPRB,.202E-01_JPRB,&
+&.199E-01_JPRB,.198E-01_JPRB,.198E-01_JPRB,.190E-01_JPRB,.174E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,&
+&.166E-01_JPRB,.181E-01_JPRB,.191E-01_JPRB,.197E-01_JPRB,.200E-01_JPRB,.206E-01_JPRB,.216E-01_JPRB,&
+&.231E-01_JPRB,.246E-01_JPRB,.259E-01_JPRB,.263E-01_JPRB,.262E-01_JPRB,.274E-01_JPRB,.289E-01_JPRB,&
+&.302E-01_JPRB,.303E-01_JPRB,.302E-01_JPRB,.309E-01_JPRB,.322E-01_JPRB,.344E-01_JPRB,.388E-01_JPRB,&
+&.435E-01_JPRB,.464E-01_JPRB,.467E-01_JPRB,.458E-01_JPRB,.441E-01_JPRB,.423E-01_JPRB,.412E-01_JPRB,&
+&.406E-01_JPRB,.399E-01_JPRB,.395E-01_JPRB,.389E-01_JPRB,.379E-01_JPRB,.372E-01_JPRB,.366E-01_JPRB,&
+&.368E-01_JPRB,.373E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 43 -78.0
+ZAER (:,43, 5) = (/&
+&.347E-01_JPRB,.355E-01_JPRB,.356E-01_JPRB,.353E-01_JPRB,.348E-01_JPRB,.344E-01_JPRB,.339E-01_JPRB,&
+&.333E-01_JPRB,.327E-01_JPRB,.319E-01_JPRB,.313E-01_JPRB,.309E-01_JPRB,.305E-01_JPRB,.301E-01_JPRB,&
+&.295E-01_JPRB,.287E-01_JPRB,.277E-01_JPRB,.262E-01_JPRB,.243E-01_JPRB,.225E-01_JPRB,.211E-01_JPRB,&
+&.201E-01_JPRB,.198E-01_JPRB,.199E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,.201E-01_JPRB,.205E-01_JPRB,&
+&.210E-01_JPRB,.212E-01_JPRB,.211E-01_JPRB,.206E-01_JPRB,.190E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,&
+&.165E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.170E-01_JPRB,.180E-01_JPRB,.197E-01_JPRB,.220E-01_JPRB,&
+&.238E-01_JPRB,.250E-01_JPRB,.254E-01_JPRB,.252E-01_JPRB,.254E-01_JPRB,.262E-01_JPRB,.271E-01_JPRB,&
+&.280E-01_JPRB,.286E-01_JPRB,.294E-01_JPRB,.303E-01_JPRB,.316E-01_JPRB,.335E-01_JPRB,.362E-01_JPRB,&
+&.394E-01_JPRB,.418E-01_JPRB,.424E-01_JPRB,.411E-01_JPRB,.394E-01_JPRB,.381E-01_JPRB,.376E-01_JPRB,&
+&.376E-01_JPRB,.374E-01_JPRB,.378E-01_JPRB,.386E-01_JPRB,.380E-01_JPRB,.371E-01_JPRB,.361E-01_JPRB,&
+&.353E-01_JPRB,.347E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 44 -82.0
+ZAER (:,44, 5) = (/&
+&.274E-01_JPRB,.272E-01_JPRB,.270E-01_JPRB,.269E-01_JPRB,.269E-01_JPRB,.268E-01_JPRB,.266E-01_JPRB,&
+&.261E-01_JPRB,.255E-01_JPRB,.250E-01_JPRB,.244E-01_JPRB,.237E-01_JPRB,.231E-01_JPRB,.223E-01_JPRB,&
+&.216E-01_JPRB,.208E-01_JPRB,.200E-01_JPRB,.192E-01_JPRB,.185E-01_JPRB,.179E-01_JPRB,.177E-01_JPRB,&
+&.176E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,.191E-01_JPRB,&
+&.197E-01_JPRB,.200E-01_JPRB,.200E-01_JPRB,.196E-01_JPRB,.187E-01_JPRB,.174E-01_JPRB,.167E-01_JPRB,&
+&.164E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,.177E-01_JPRB,.186E-01_JPRB,.196E-01_JPRB,&
+&.209E-01_JPRB,.220E-01_JPRB,.227E-01_JPRB,.233E-01_JPRB,.238E-01_JPRB,.242E-01_JPRB,.245E-01_JPRB,&
+&.249E-01_JPRB,.254E-01_JPRB,.260E-01_JPRB,.268E-01_JPRB,.274E-01_JPRB,.279E-01_JPRB,.288E-01_JPRB,&
+&.299E-01_JPRB,.310E-01_JPRB,.319E-01_JPRB,.321E-01_JPRB,.318E-01_JPRB,.313E-01_JPRB,.311E-01_JPRB,&
+&.310E-01_JPRB,.310E-01_JPRB,.311E-01_JPRB,.315E-01_JPRB,.314E-01_JPRB,.308E-01_JPRB,.302E-01_JPRB,&
+&.295E-01_JPRB,.284E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 45 -86.0
+ZAER (:,45, 5) = (/&
+&.226E-01_JPRB,.224E-01_JPRB,.222E-01_JPRB,.220E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.209E-01_JPRB,&
+&.204E-01_JPRB,.199E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.187E-01_JPRB,.186E-01_JPRB,.184E-01_JPRB,&
+&.184E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,&
+&.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,&
+&.185E-01_JPRB,.185E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,&
+&.181E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.187E-01_JPRB,.189E-01_JPRB,.192E-01_JPRB,.196E-01_JPRB,&
+&.203E-01_JPRB,.209E-01_JPRB,.214E-01_JPRB,.218E-01_JPRB,.218E-01_JPRB,.219E-01_JPRB,.222E-01_JPRB,&
+&.224E-01_JPRB,.225E-01_JPRB,.225E-01_JPRB,.225E-01_JPRB,.226E-01_JPRB,.227E-01_JPRB,.228E-01_JPRB,&
+&.230E-01_JPRB,.231E-01_JPRB,.234E-01_JPRB,.236E-01_JPRB,.237E-01_JPRB,.237E-01_JPRB,.238E-01_JPRB,&
+&.239E-01_JPRB,.240E-01_JPRB,.241E-01_JPRB,.242E-01_JPRB,.242E-01_JPRB,.241E-01_JPRB,.238E-01_JPRB,&
+&.233E-01_JPRB,.228E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  5 --- lat: 46 -90.0
+ZAER (:,46, 5) = (/&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.204E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=5   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_05
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_06.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_06.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_06.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_06
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      June
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,6:6)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  1  90.0
+ZAER (:, 1, 6) = (/&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  2  86.0
+ZAER (:, 2, 6) = (/&
+&.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.135E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.143E-02_JPRB,.146E-02_JPRB,.149E-02_JPRB,&
+&.151E-02_JPRB,.153E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.159E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,&
+&.158E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,.141E-02_JPRB,&
+&.137E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.131E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  3  82.0
+ZAER (:, 3, 6) = (/&
+&.118E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.122E-02_JPRB,.126E-02_JPRB,&
+&.130E-02_JPRB,.135E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.146E-02_JPRB,.148E-02_JPRB,.150E-02_JPRB,&
+&.153E-02_JPRB,.154E-02_JPRB,.157E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,&
+&.173E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.179E-02_JPRB,.189E-02_JPRB,&
+&.196E-02_JPRB,.197E-02_JPRB,.202E-02_JPRB,.208E-02_JPRB,.209E-02_JPRB,.202E-02_JPRB,.184E-02_JPRB,&
+&.163E-02_JPRB,.147E-02_JPRB,.135E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.121E-02_JPRB,&
+&.119E-02_JPRB,.119E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  4  78.0
+ZAER (:, 4, 6) = (/&
+&.111E-02_JPRB,.108E-02_JPRB,.104E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,.102E-02_JPRB,.106E-02_JPRB,&
+&.116E-02_JPRB,.127E-02_JPRB,.135E-02_JPRB,.144E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,.160E-02_JPRB,&
+&.165E-02_JPRB,.169E-02_JPRB,.174E-02_JPRB,.179E-02_JPRB,.182E-02_JPRB,.188E-02_JPRB,.198E-02_JPRB,&
+&.213E-02_JPRB,.227E-02_JPRB,.237E-02_JPRB,.247E-02_JPRB,.249E-02_JPRB,.262E-02_JPRB,.298E-02_JPRB,&
+&.326E-02_JPRB,.326E-02_JPRB,.312E-02_JPRB,.289E-02_JPRB,.271E-02_JPRB,.259E-02_JPRB,.243E-02_JPRB,&
+&.218E-02_JPRB,.185E-02_JPRB,.148E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,&
+&.134E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,&
+&.114E-02_JPRB,.112E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  5  74.0
+ZAER (:, 5, 6) = (/&
+&.112E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,.970E-03_JPRB,.960E-03_JPRB,.962E-03_JPRB,.952E-03_JPRB,&
+&.101E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.132E-02_JPRB,.147E-02_JPRB,.161E-02_JPRB,&
+&.167E-02_JPRB,.168E-02_JPRB,.170E-02_JPRB,.177E-02_JPRB,.184E-02_JPRB,.197E-02_JPRB,.220E-02_JPRB,&
+&.244E-02_JPRB,.271E-02_JPRB,.305E-02_JPRB,.340E-02_JPRB,.371E-02_JPRB,.417E-02_JPRB,.474E-02_JPRB,&
+&.482E-02_JPRB,.458E-02_JPRB,.417E-02_JPRB,.374E-02_JPRB,.332E-02_JPRB,.293E-02_JPRB,.263E-02_JPRB,&
+&.247E-02_JPRB,.226E-02_JPRB,.175E-02_JPRB,.135E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,&
+&.138E-02_JPRB,.146E-02_JPRB,.154E-02_JPRB,.161E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.160E-02_JPRB,&
+&.154E-02_JPRB,.150E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.144E-02_JPRB,.137E-02_JPRB,.133E-02_JPRB,&
+&.131E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,&
+&.117E-02_JPRB,.113E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  6  70.0
+ZAER (:, 6, 6) = (/&
+&.131E-02_JPRB,.129E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.110E-02_JPRB,.107E-02_JPRB,&
+&.105E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.122E-02_JPRB,.140E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.152E-02_JPRB,.144E-02_JPRB,.147E-02_JPRB,.161E-02_JPRB,.187E-02_JPRB,&
+&.220E-02_JPRB,.256E-02_JPRB,.272E-02_JPRB,.285E-02_JPRB,.317E-02_JPRB,.384E-02_JPRB,.490E-02_JPRB,&
+&.473E-02_JPRB,.432E-02_JPRB,.411E-02_JPRB,.388E-02_JPRB,.374E-02_JPRB,.344E-02_JPRB,.301E-02_JPRB,&
+&.267E-02_JPRB,.235E-02_JPRB,.191E-02_JPRB,.148E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,&
+&.132E-02_JPRB,.142E-02_JPRB,.154E-02_JPRB,.165E-02_JPRB,.172E-02_JPRB,.176E-02_JPRB,.172E-02_JPRB,&
+&.161E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.158E-02_JPRB,.157E-02_JPRB,.149E-02_JPRB,.141E-02_JPRB,&
+&.136E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,&
+&.133E-02_JPRB,.132E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  7  66.0
+ZAER (:, 7, 6) = (/&
+&.161E-02_JPRB,.156E-02_JPRB,.152E-02_JPRB,.144E-02_JPRB,.134E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,&
+&.119E-02_JPRB,.115E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.121E-02_JPRB,&
+&.125E-02_JPRB,.127E-02_JPRB,.121E-02_JPRB,.112E-02_JPRB,.114E-02_JPRB,.123E-02_JPRB,.141E-02_JPRB,&
+&.162E-02_JPRB,.185E-02_JPRB,.199E-02_JPRB,.221E-02_JPRB,.286E-02_JPRB,.378E-02_JPRB,.534E-02_JPRB,&
+&.536E-02_JPRB,.452E-02_JPRB,.418E-02_JPRB,.375E-02_JPRB,.354E-02_JPRB,.353E-02_JPRB,.342E-02_JPRB,&
+&.307E-02_JPRB,.257E-02_JPRB,.212E-02_JPRB,.179E-02_JPRB,.151E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,&
+&.132E-02_JPRB,.140E-02_JPRB,.154E-02_JPRB,.166E-02_JPRB,.172E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.172E-02_JPRB,.171E-02_JPRB,.165E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.153E-02_JPRB,.146E-02_JPRB,&
+&.140E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.135E-02_JPRB,&
+&.138E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.146E-02_JPRB,.155E-02_JPRB,.162E-02_JPRB,&
+&.167E-02_JPRB,.165E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  8  62.0
+ZAER (:, 8, 6) = (/&
+&.368E-02_JPRB,.329E-02_JPRB,.291E-02_JPRB,.254E-02_JPRB,.226E-02_JPRB,.204E-02_JPRB,.192E-02_JPRB,&
+&.185E-02_JPRB,.182E-02_JPRB,.184E-02_JPRB,.178E-02_JPRB,.163E-02_JPRB,.145E-02_JPRB,.132E-02_JPRB,&
+&.121E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.117E-02_JPRB,&
+&.125E-02_JPRB,.145E-02_JPRB,.170E-02_JPRB,.226E-02_JPRB,.334E-02_JPRB,.377E-02_JPRB,.546E-02_JPRB,&
+&.645E-02_JPRB,.567E-02_JPRB,.505E-02_JPRB,.471E-02_JPRB,.443E-02_JPRB,.404E-02_JPRB,.379E-02_JPRB,&
+&.350E-02_JPRB,.295E-02_JPRB,.240E-02_JPRB,.211E-02_JPRB,.195E-02_JPRB,.171E-02_JPRB,.152E-02_JPRB,&
+&.141E-02_JPRB,.147E-02_JPRB,.158E-02_JPRB,.167E-02_JPRB,.175E-02_JPRB,.179E-02_JPRB,.183E-02_JPRB,&
+&.189E-02_JPRB,.195E-02_JPRB,.191E-02_JPRB,.177E-02_JPRB,.168E-02_JPRB,.159E-02_JPRB,.150E-02_JPRB,&
+&.143E-02_JPRB,.136E-02_JPRB,.128E-02_JPRB,.120E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,.124E-02_JPRB,&
+&.141E-02_JPRB,.167E-02_JPRB,.177E-02_JPRB,.190E-02_JPRB,.238E-02_JPRB,.320E-02_JPRB,.388E-02_JPRB,&
+&.420E-02_JPRB,.406E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat:  9  58.0
+ZAER (:, 9, 6) = (/&
+&.648E-02_JPRB,.506E-02_JPRB,.402E-02_JPRB,.368E-02_JPRB,.373E-02_JPRB,.369E-02_JPRB,.351E-02_JPRB,&
+&.317E-02_JPRB,.280E-02_JPRB,.252E-02_JPRB,.232E-02_JPRB,.223E-02_JPRB,.212E-02_JPRB,.189E-02_JPRB,&
+&.164E-02_JPRB,.146E-02_JPRB,.135E-02_JPRB,.128E-02_JPRB,.122E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,&
+&.118E-02_JPRB,.133E-02_JPRB,.173E-02_JPRB,.306E-02_JPRB,.417E-02_JPRB,.448E-02_JPRB,.655E-02_JPRB,&
+&.896E-02_JPRB,.837E-02_JPRB,.687E-02_JPRB,.611E-02_JPRB,.565E-02_JPRB,.502E-02_JPRB,.468E-02_JPRB,&
+&.431E-02_JPRB,.376E-02_JPRB,.308E-02_JPRB,.257E-02_JPRB,.229E-02_JPRB,.213E-02_JPRB,.193E-02_JPRB,&
+&.180E-02_JPRB,.178E-02_JPRB,.182E-02_JPRB,.184E-02_JPRB,.191E-02_JPRB,.195E-02_JPRB,.200E-02_JPRB,&
+&.209E-02_JPRB,.215E-02_JPRB,.216E-02_JPRB,.209E-02_JPRB,.199E-02_JPRB,.188E-02_JPRB,.173E-02_JPRB,&
+&.160E-02_JPRB,.149E-02_JPRB,.138E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.151E-02_JPRB,.214E-02_JPRB,.286E-02_JPRB,.462E-02_JPRB,.693E-02_JPRB,.858E-02_JPRB,.917E-02_JPRB,&
+&.879E-02_JPRB,.781E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 10  54.0
+ZAER (:,10, 6) = (/&
+&.784E-02_JPRB,.637E-02_JPRB,.520E-02_JPRB,.484E-02_JPRB,.509E-02_JPRB,.545E-02_JPRB,.511E-02_JPRB,&
+&.404E-02_JPRB,.294E-02_JPRB,.223E-02_JPRB,.195E-02_JPRB,.196E-02_JPRB,.218E-02_JPRB,.238E-02_JPRB,&
+&.234E-02_JPRB,.207E-02_JPRB,.179E-02_JPRB,.158E-02_JPRB,.144E-02_JPRB,.135E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.165E-02_JPRB,.277E-02_JPRB,.559E-02_JPRB,.678E-02_JPRB,.861E-02_JPRB,.121E-01_JPRB,&
+&.137E-01_JPRB,.121E-01_JPRB,.894E-02_JPRB,.786E-02_JPRB,.703E-02_JPRB,.625E-02_JPRB,.573E-02_JPRB,&
+&.538E-02_JPRB,.481E-02_JPRB,.403E-02_JPRB,.331E-02_JPRB,.287E-02_JPRB,.260E-02_JPRB,.244E-02_JPRB,&
+&.234E-02_JPRB,.225E-02_JPRB,.220E-02_JPRB,.231E-02_JPRB,.241E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,&
+&.230E-02_JPRB,.222E-02_JPRB,.220E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.214E-02_JPRB,.196E-02_JPRB,&
+&.180E-02_JPRB,.165E-02_JPRB,.151E-02_JPRB,.142E-02_JPRB,.154E-02_JPRB,.164E-02_JPRB,.205E-02_JPRB,&
+&.255E-02_JPRB,.333E-02_JPRB,.741E-02_JPRB,.102E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.941E-02_JPRB,&
+&.861E-02_JPRB,.831E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 11  50.0
+ZAER (:,11, 6) = (/&
+&.911E-02_JPRB,.784E-02_JPRB,.681E-02_JPRB,.673E-02_JPRB,.695E-02_JPRB,.662E-02_JPRB,.562E-02_JPRB,&
+&.424E-02_JPRB,.307E-02_JPRB,.254E-02_JPRB,.214E-02_JPRB,.189E-02_JPRB,.193E-02_JPRB,.218E-02_JPRB,&
+&.241E-02_JPRB,.245E-02_JPRB,.227E-02_JPRB,.201E-02_JPRB,.182E-02_JPRB,.170E-02_JPRB,.165E-02_JPRB,&
+&.169E-02_JPRB,.341E-02_JPRB,.107E-01_JPRB,.196E-01_JPRB,.207E-01_JPRB,.217E-01_JPRB,.207E-01_JPRB,&
+&.183E-01_JPRB,.151E-01_JPRB,.125E-01_JPRB,.100E-01_JPRB,.839E-02_JPRB,.740E-02_JPRB,.659E-02_JPRB,&
+&.603E-02_JPRB,.552E-02_JPRB,.490E-02_JPRB,.417E-02_JPRB,.355E-02_JPRB,.320E-02_JPRB,.311E-02_JPRB,&
+&.298E-02_JPRB,.285E-02_JPRB,.287E-02_JPRB,.300E-02_JPRB,.303E-02_JPRB,.294E-02_JPRB,.281E-02_JPRB,&
+&.254E-02_JPRB,.240E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.227E-02_JPRB,.217E-02_JPRB,.207E-02_JPRB,&
+&.198E-02_JPRB,.185E-02_JPRB,.170E-02_JPRB,.159E-02_JPRB,.169E-02_JPRB,.235E-02_JPRB,.327E-02_JPRB,&
+&.381E-02_JPRB,.760E-02_JPRB,.116E-01_JPRB,.118E-01_JPRB,.993E-02_JPRB,.823E-02_JPRB,.843E-02_JPRB,&
+&.915E-02_JPRB,.937E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 12  46.0
+ZAER (:,12, 6) = (/&
+&.994E-02_JPRB,.847E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.705E-02_JPRB,.590E-02_JPRB,.514E-02_JPRB,&
+&.406E-02_JPRB,.310E-02_JPRB,.248E-02_JPRB,.217E-02_JPRB,.208E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,&
+&.215E-02_JPRB,.237E-02_JPRB,.249E-02_JPRB,.241E-02_JPRB,.225E-02_JPRB,.210E-02_JPRB,.202E-02_JPRB,&
+&.205E-02_JPRB,.406E-02_JPRB,.396E-01_JPRB,.657E-01_JPRB,.459E-01_JPRB,.297E-01_JPRB,.204E-01_JPRB,&
+&.158E-01_JPRB,.128E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.919E-02_JPRB,.773E-02_JPRB,.691E-02_JPRB,&
+&.617E-02_JPRB,.541E-02_JPRB,.485E-02_JPRB,.449E-02_JPRB,.423E-02_JPRB,.414E-02_JPRB,.396E-02_JPRB,&
+&.374E-02_JPRB,.367E-02_JPRB,.375E-02_JPRB,.380E-02_JPRB,.375E-02_JPRB,.358E-02_JPRB,.329E-02_JPRB,&
+&.287E-02_JPRB,.261E-02_JPRB,.251E-02_JPRB,.248E-02_JPRB,.231E-02_JPRB,.222E-02_JPRB,.215E-02_JPRB,&
+&.208E-02_JPRB,.197E-02_JPRB,.185E-02_JPRB,.175E-02_JPRB,.188E-02_JPRB,.274E-02_JPRB,.395E-02_JPRB,&
+&.813E-02_JPRB,.142E-01_JPRB,.147E-01_JPRB,.122E-01_JPRB,.906E-02_JPRB,.914E-02_JPRB,.110E-01_JPRB,&
+&.114E-01_JPRB,.108E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 13  42.0
+ZAER (:,13, 6) = (/&
+&.100E-01_JPRB,.819E-02_JPRB,.757E-02_JPRB,.755E-02_JPRB,.608E-02_JPRB,.572E-02_JPRB,.480E-02_JPRB,&
+&.378E-02_JPRB,.283E-02_JPRB,.236E-02_JPRB,.225E-02_JPRB,.217E-02_JPRB,.206E-02_JPRB,.205E-02_JPRB,&
+&.216E-02_JPRB,.224E-02_JPRB,.236E-02_JPRB,.241E-02_JPRB,.237E-02_JPRB,.228E-02_JPRB,.217E-02_JPRB,&
+&.212E-02_JPRB,.316E-02_JPRB,.628E-01_JPRB,.902E-01_JPRB,.522E-01_JPRB,.285E-01_JPRB,.166E-01_JPRB,&
+&.126E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.937E-02_JPRB,.850E-02_JPRB,.752E-02_JPRB,.661E-02_JPRB,&
+&.586E-02_JPRB,.507E-02_JPRB,.466E-02_JPRB,.453E-02_JPRB,.465E-02_JPRB,.494E-02_JPRB,.484E-02_JPRB,&
+&.483E-02_JPRB,.491E-02_JPRB,.486E-02_JPRB,.466E-02_JPRB,.444E-02_JPRB,.411E-02_JPRB,.368E-02_JPRB,&
+&.321E-02_JPRB,.289E-02_JPRB,.279E-02_JPRB,.271E-02_JPRB,.255E-02_JPRB,.247E-02_JPRB,.234E-02_JPRB,&
+&.224E-02_JPRB,.211E-02_JPRB,.199E-02_JPRB,.190E-02_JPRB,.224E-02_JPRB,.348E-02_JPRB,.735E-02_JPRB,&
+&.172E-01_JPRB,.229E-01_JPRB,.207E-01_JPRB,.149E-01_JPRB,.109E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.130E-01_JPRB,.119E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 14  38.0
+ZAER (:,14, 6) = (/&
+&.849E-02_JPRB,.691E-02_JPRB,.587E-02_JPRB,.567E-02_JPRB,.575E-02_JPRB,.591E-02_JPRB,.504E-02_JPRB,&
+&.393E-02_JPRB,.314E-02_JPRB,.278E-02_JPRB,.267E-02_JPRB,.251E-02_JPRB,.235E-02_JPRB,.228E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.231E-02_JPRB,.229E-02_JPRB,.226E-02_JPRB,.218E-02_JPRB,.205E-02_JPRB,&
+&.198E-02_JPRB,.348E-02_JPRB,.280E-01_JPRB,.410E-01_JPRB,.354E-01_JPRB,.280E-01_JPRB,.205E-01_JPRB,&
+&.149E-01_JPRB,.129E-01_JPRB,.112E-01_JPRB,.100E-01_JPRB,.888E-02_JPRB,.720E-02_JPRB,.587E-02_JPRB,&
+&.534E-02_JPRB,.487E-02_JPRB,.462E-02_JPRB,.458E-02_JPRB,.497E-02_JPRB,.564E-02_JPRB,.594E-02_JPRB,&
+&.644E-02_JPRB,.664E-02_JPRB,.630E-02_JPRB,.576E-02_JPRB,.527E-02_JPRB,.473E-02_JPRB,.421E-02_JPRB,&
+&.372E-02_JPRB,.340E-02_JPRB,.321E-02_JPRB,.311E-02_JPRB,.292E-02_JPRB,.282E-02_JPRB,.262E-02_JPRB,&
+&.243E-02_JPRB,.229E-02_JPRB,.222E-02_JPRB,.218E-02_JPRB,.307E-02_JPRB,.713E-02_JPRB,.228E-01_JPRB,&
+&.359E-01_JPRB,.428E-01_JPRB,.319E-01_JPRB,.202E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.121E-01_JPRB,.102E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 15  34.0
+ZAER (:,15, 6) = (/&
+&.736E-02_JPRB,.653E-02_JPRB,.595E-02_JPRB,.560E-02_JPRB,.557E-02_JPRB,.571E-02_JPRB,.527E-02_JPRB,&
+&.442E-02_JPRB,.374E-02_JPRB,.340E-02_JPRB,.316E-02_JPRB,.289E-02_JPRB,.269E-02_JPRB,.249E-02_JPRB,&
+&.241E-02_JPRB,.243E-02_JPRB,.236E-02_JPRB,.227E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,&
+&.268E-02_JPRB,.508E-02_JPRB,.114E-01_JPRB,.140E-01_JPRB,.156E-01_JPRB,.186E-01_JPRB,.193E-01_JPRB,&
+&.165E-01_JPRB,.142E-01_JPRB,.127E-01_JPRB,.114E-01_JPRB,.921E-02_JPRB,.694E-02_JPRB,.575E-02_JPRB,&
+&.518E-02_JPRB,.482E-02_JPRB,.466E-02_JPRB,.492E-02_JPRB,.631E-02_JPRB,.947E-02_JPRB,.136E-01_JPRB,&
+&.129E-01_JPRB,.109E-01_JPRB,.919E-02_JPRB,.784E-02_JPRB,.664E-02_JPRB,.546E-02_JPRB,.499E-02_JPRB,&
+&.468E-02_JPRB,.440E-02_JPRB,.431E-02_JPRB,.417E-02_JPRB,.375E-02_JPRB,.341E-02_JPRB,.305E-02_JPRB,&
+&.276E-02_JPRB,.269E-02_JPRB,.277E-02_JPRB,.294E-02_JPRB,.653E-02_JPRB,.239E-01_JPRB,.740E-01_JPRB,&
+&.829E-01_JPRB,.762E-01_JPRB,.393E-01_JPRB,.226E-01_JPRB,.145E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,&
+&.103E-01_JPRB,.878E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 16  30.0
+ZAER (:,16, 6) = (/&
+&.877E-02_JPRB,.781E-02_JPRB,.663E-02_JPRB,.583E-02_JPRB,.561E-02_JPRB,.556E-02_JPRB,.539E-02_JPRB,&
+&.489E-02_JPRB,.427E-02_JPRB,.391E-02_JPRB,.349E-02_JPRB,.324E-02_JPRB,.308E-02_JPRB,.276E-02_JPRB,&
+&.256E-02_JPRB,.259E-02_JPRB,.251E-02_JPRB,.236E-02_JPRB,.234E-02_JPRB,.264E-02_JPRB,.321E-02_JPRB,&
+&.435E-02_JPRB,.633E-02_JPRB,.919E-02_JPRB,.821E-02_JPRB,.787E-02_JPRB,.938E-02_JPRB,.115E-01_JPRB,&
+&.129E-01_JPRB,.126E-01_JPRB,.115E-01_JPRB,.993E-02_JPRB,.808E-02_JPRB,.657E-02_JPRB,.567E-02_JPRB,&
+&.532E-02_JPRB,.527E-02_JPRB,.526E-02_JPRB,.688E-02_JPRB,.137E-01_JPRB,.300E-01_JPRB,.323E-01_JPRB,&
+&.244E-01_JPRB,.167E-01_JPRB,.121E-01_JPRB,.961E-02_JPRB,.803E-02_JPRB,.675E-02_JPRB,.622E-02_JPRB,&
+&.592E-02_JPRB,.575E-02_JPRB,.569E-02_JPRB,.556E-02_JPRB,.520E-02_JPRB,.460E-02_JPRB,.407E-02_JPRB,&
+&.372E-02_JPRB,.413E-02_JPRB,.478E-02_JPRB,.700E-02_JPRB,.142E-01_JPRB,.367E-01_JPRB,.124E+00_JPRB,&
+&.120E+00_JPRB,.898E-01_JPRB,.374E-01_JPRB,.191E-01_JPRB,.138E-01_JPRB,.113E-01_JPRB,.105E-01_JPRB,&
+&.103E-01_JPRB,.953E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 17  26.0
+ZAER (:,17, 6) = (/&
+&.906E-02_JPRB,.724E-02_JPRB,.611E-02_JPRB,.568E-02_JPRB,.549E-02_JPRB,.539E-02_JPRB,.537E-02_JPRB,&
+&.516E-02_JPRB,.473E-02_JPRB,.432E-02_JPRB,.389E-02_JPRB,.363E-02_JPRB,.330E-02_JPRB,.289E-02_JPRB,&
+&.267E-02_JPRB,.261E-02_JPRB,.258E-02_JPRB,.252E-02_JPRB,.262E-02_JPRB,.320E-02_JPRB,.401E-02_JPRB,&
+&.404E-02_JPRB,.486E-02_JPRB,.897E-02_JPRB,.874E-02_JPRB,.726E-02_JPRB,.635E-02_JPRB,.678E-02_JPRB,&
+&.796E-02_JPRB,.830E-02_JPRB,.802E-02_JPRB,.704E-02_JPRB,.635E-02_JPRB,.596E-02_JPRB,.555E-02_JPRB,&
+&.560E-02_JPRB,.628E-02_JPRB,.805E-02_JPRB,.144E-01_JPRB,.281E-01_JPRB,.503E-01_JPRB,.601E-01_JPRB,&
+&.344E-01_JPRB,.185E-01_JPRB,.127E-01_JPRB,.112E-01_JPRB,.976E-02_JPRB,.866E-02_JPRB,.823E-02_JPRB,&
+&.813E-02_JPRB,.794E-02_JPRB,.743E-02_JPRB,.706E-02_JPRB,.670E-02_JPRB,.615E-02_JPRB,.561E-02_JPRB,&
+&.537E-02_JPRB,.676E-02_JPRB,.125E-01_JPRB,.228E-01_JPRB,.281E-01_JPRB,.405E-01_JPRB,.614E-01_JPRB,&
+&.560E-01_JPRB,.471E-01_JPRB,.289E-01_JPRB,.179E-01_JPRB,.142E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,&
+&.119E-01_JPRB,.110E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 18  22.0
+ZAER (:,18, 6) = (/&
+&.658E-02_JPRB,.571E-02_JPRB,.529E-02_JPRB,.498E-02_JPRB,.477E-02_JPRB,.472E-02_JPRB,.466E-02_JPRB,&
+&.465E-02_JPRB,.449E-02_JPRB,.417E-02_JPRB,.380E-02_JPRB,.346E-02_JPRB,.300E-02_JPRB,.274E-02_JPRB,&
+&.267E-02_JPRB,.266E-02_JPRB,.264E-02_JPRB,.262E-02_JPRB,.275E-02_JPRB,.314E-02_JPRB,.352E-02_JPRB,&
+&.340E-02_JPRB,.383E-02_JPRB,.818E-02_JPRB,.134E-01_JPRB,.638E-02_JPRB,.467E-02_JPRB,.487E-02_JPRB,&
+&.518E-02_JPRB,.546E-02_JPRB,.513E-02_JPRB,.494E-02_JPRB,.538E-02_JPRB,.583E-02_JPRB,.628E-02_JPRB,&
+&.723E-02_JPRB,.947E-02_JPRB,.141E-01_JPRB,.218E-01_JPRB,.331E-01_JPRB,.500E-01_JPRB,.544E-01_JPRB,&
+&.305E-01_JPRB,.209E-01_JPRB,.162E-01_JPRB,.159E-01_JPRB,.129E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,&
+&.103E-01_JPRB,.955E-02_JPRB,.893E-02_JPRB,.848E-02_JPRB,.787E-02_JPRB,.746E-02_JPRB,.762E-02_JPRB,&
+&.907E-02_JPRB,.131E-01_JPRB,.224E-01_JPRB,.329E-01_JPRB,.341E-01_JPRB,.286E-01_JPRB,.273E-01_JPRB,&
+&.271E-01_JPRB,.265E-01_JPRB,.217E-01_JPRB,.164E-01_JPRB,.139E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,&
+&.103E-01_JPRB,.837E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 19  18.0
+ZAER (:,19, 6) = (/&
+&.513E-02_JPRB,.480E-02_JPRB,.471E-02_JPRB,.433E-02_JPRB,.389E-02_JPRB,.366E-02_JPRB,.351E-02_JPRB,&
+&.347E-02_JPRB,.333E-02_JPRB,.312E-02_JPRB,.290E-02_JPRB,.264E-02_JPRB,.248E-02_JPRB,.240E-02_JPRB,&
+&.245E-02_JPRB,.256E-02_JPRB,.262E-02_JPRB,.265E-02_JPRB,.277E-02_JPRB,.296E-02_JPRB,.313E-02_JPRB,&
+&.349E-02_JPRB,.465E-02_JPRB,.859E-02_JPRB,.114E-01_JPRB,.446E-02_JPRB,.401E-02_JPRB,.417E-02_JPRB,&
+&.416E-02_JPRB,.406E-02_JPRB,.443E-02_JPRB,.524E-02_JPRB,.647E-02_JPRB,.764E-02_JPRB,.887E-02_JPRB,&
+&.110E-01_JPRB,.144E-01_JPRB,.193E-01_JPRB,.238E-01_JPRB,.258E-01_JPRB,.285E-01_JPRB,.274E-01_JPRB,&
+&.241E-01_JPRB,.217E-01_JPRB,.199E-01_JPRB,.193E-01_JPRB,.150E-01_JPRB,.128E-01_JPRB,.114E-01_JPRB,&
+&.102E-01_JPRB,.931E-02_JPRB,.889E-02_JPRB,.879E-02_JPRB,.882E-02_JPRB,.918E-02_JPRB,.102E-01_JPRB,&
+&.122E-01_JPRB,.143E-01_JPRB,.168E-01_JPRB,.209E-01_JPRB,.218E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,&
+&.184E-01_JPRB,.166E-01_JPRB,.147E-01_JPRB,.130E-01_JPRB,.113E-01_JPRB,.977E-02_JPRB,.845E-02_JPRB,&
+&.716E-02_JPRB,.599E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 20  14.0
+ZAER (:,20, 6) = (/&
+&.357E-02_JPRB,.354E-02_JPRB,.368E-02_JPRB,.337E-02_JPRB,.300E-02_JPRB,.269E-02_JPRB,.247E-02_JPRB,&
+&.237E-02_JPRB,.229E-02_JPRB,.227E-02_JPRB,.221E-02_JPRB,.216E-02_JPRB,.219E-02_JPRB,.223E-02_JPRB,&
+&.232E-02_JPRB,.243E-02_JPRB,.258E-02_JPRB,.272E-02_JPRB,.288E-02_JPRB,.309E-02_JPRB,.341E-02_JPRB,&
+&.410E-02_JPRB,.627E-02_JPRB,.720E-02_JPRB,.538E-02_JPRB,.401E-02_JPRB,.406E-02_JPRB,.404E-02_JPRB,&
+&.410E-02_JPRB,.496E-02_JPRB,.643E-02_JPRB,.830E-02_JPRB,.101E-01_JPRB,.117E-01_JPRB,.128E-01_JPRB,&
+&.148E-01_JPRB,.190E-01_JPRB,.231E-01_JPRB,.245E-01_JPRB,.227E-01_JPRB,.221E-01_JPRB,.226E-01_JPRB,&
+&.237E-01_JPRB,.232E-01_JPRB,.207E-01_JPRB,.164E-01_JPRB,.120E-01_JPRB,.102E-01_JPRB,.889E-02_JPRB,&
+&.799E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.794E-02_JPRB,.836E-02_JPRB,.868E-02_JPRB,.918E-02_JPRB,&
+&.963E-02_JPRB,.976E-02_JPRB,.106E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,&
+&.113E-01_JPRB,.997E-02_JPRB,.892E-02_JPRB,.818E-02_JPRB,.711E-02_JPRB,.598E-02_JPRB,.519E-02_JPRB,&
+&.466E-02_JPRB,.407E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 21  10.0
+ZAER (:,21, 6) = (/&
+&.202E-02_JPRB,.217E-02_JPRB,.228E-02_JPRB,.223E-02_JPRB,.213E-02_JPRB,.199E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.192E-02_JPRB,.197E-02_JPRB,.206E-02_JPRB,.217E-02_JPRB,.231E-02_JPRB,.238E-02_JPRB,&
+&.246E-02_JPRB,.262E-02_JPRB,.285E-02_JPRB,.305E-02_JPRB,.326E-02_JPRB,.367E-02_JPRB,.432E-02_JPRB,&
+&.533E-02_JPRB,.588E-02_JPRB,.521E-02_JPRB,.436E-02_JPRB,.480E-02_JPRB,.536E-02_JPRB,.579E-02_JPRB,&
+&.645E-02_JPRB,.851E-02_JPRB,.110E-01_JPRB,.132E-01_JPRB,.151E-01_JPRB,.166E-01_JPRB,.173E-01_JPRB,&
+&.200E-01_JPRB,.256E-01_JPRB,.278E-01_JPRB,.255E-01_JPRB,.222E-01_JPRB,.217E-01_JPRB,.241E-01_JPRB,&
+&.264E-01_JPRB,.233E-01_JPRB,.163E-01_JPRB,.963E-02_JPRB,.727E-02_JPRB,.622E-02_JPRB,.549E-02_JPRB,&
+&.516E-02_JPRB,.505E-02_JPRB,.531E-02_JPRB,.564E-02_JPRB,.560E-02_JPRB,.548E-02_JPRB,.556E-02_JPRB,&
+&.567E-02_JPRB,.608E-02_JPRB,.666E-02_JPRB,.711E-02_JPRB,.716E-02_JPRB,.635E-02_JPRB,.548E-02_JPRB,&
+&.532E-02_JPRB,.499E-02_JPRB,.470E-02_JPRB,.423E-02_JPRB,.378E-02_JPRB,.334E-02_JPRB,.305E-02_JPRB,&
+&.264E-02_JPRB,.221E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 22   6.0
+ZAER (:,22, 6) = (/&
+&.151E-02_JPRB,.162E-02_JPRB,.168E-02_JPRB,.172E-02_JPRB,.177E-02_JPRB,.179E-02_JPRB,.182E-02_JPRB,&
+&.186E-02_JPRB,.193E-02_JPRB,.206E-02_JPRB,.223E-02_JPRB,.239E-02_JPRB,.254E-02_JPRB,.264E-02_JPRB,&
+&.277E-02_JPRB,.294E-02_JPRB,.321E-02_JPRB,.352E-02_JPRB,.393E-02_JPRB,.451E-02_JPRB,.466E-02_JPRB,&
+&.466E-02_JPRB,.459E-02_JPRB,.467E-02_JPRB,.549E-02_JPRB,.660E-02_JPRB,.789E-02_JPRB,.943E-02_JPRB,&
+&.112E-01_JPRB,.135E-01_JPRB,.159E-01_JPRB,.180E-01_JPRB,.204E-01_JPRB,.224E-01_JPRB,.249E-01_JPRB,&
+&.285E-01_JPRB,.329E-01_JPRB,.340E-01_JPRB,.328E-01_JPRB,.301E-01_JPRB,.279E-01_JPRB,.281E-01_JPRB,&
+&.294E-01_JPRB,.236E-01_JPRB,.132E-01_JPRB,.527E-02_JPRB,.405E-02_JPRB,.375E-02_JPRB,.354E-02_JPRB,&
+&.323E-02_JPRB,.295E-02_JPRB,.283E-02_JPRB,.262E-02_JPRB,.243E-02_JPRB,.238E-02_JPRB,.257E-02_JPRB,&
+&.280E-02_JPRB,.294E-02_JPRB,.295E-02_JPRB,.286E-02_JPRB,.268E-02_JPRB,.228E-02_JPRB,.198E-02_JPRB,&
+&.195E-02_JPRB,.193E-02_JPRB,.186E-02_JPRB,.178E-02_JPRB,.170E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,&
+&.151E-02_JPRB,.145E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 23   2.0
+ZAER (:,23, 6) = (/&
+&.135E-02_JPRB,.143E-02_JPRB,.151E-02_JPRB,.162E-02_JPRB,.172E-02_JPRB,.178E-02_JPRB,.186E-02_JPRB,&
+&.195E-02_JPRB,.208E-02_JPRB,.221E-02_JPRB,.233E-02_JPRB,.243E-02_JPRB,.254E-02_JPRB,.265E-02_JPRB,&
+&.279E-02_JPRB,.299E-02_JPRB,.331E-02_JPRB,.370E-02_JPRB,.408E-02_JPRB,.456E-02_JPRB,.484E-02_JPRB,&
+&.496E-02_JPRB,.556E-02_JPRB,.653E-02_JPRB,.796E-02_JPRB,.949E-02_JPRB,.111E-01_JPRB,.128E-01_JPRB,&
+&.144E-01_JPRB,.162E-01_JPRB,.181E-01_JPRB,.204E-01_JPRB,.234E-01_JPRB,.264E-01_JPRB,.298E-01_JPRB,&
+&.345E-01_JPRB,.396E-01_JPRB,.446E-01_JPRB,.495E-01_JPRB,.516E-01_JPRB,.528E-01_JPRB,.547E-01_JPRB,&
+&.554E-01_JPRB,.502E-01_JPRB,.339E-01_JPRB,.119E-01_JPRB,.508E-02_JPRB,.403E-02_JPRB,.342E-02_JPRB,&
+&.306E-02_JPRB,.267E-02_JPRB,.225E-02_JPRB,.179E-02_JPRB,.131E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,&
+&.118E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,.986E-03_JPRB,.919E-03_JPRB,.809E-03_JPRB,.793E-03_JPRB,&
+&.833E-03_JPRB,.876E-03_JPRB,.889E-03_JPRB,.908E-03_JPRB,.941E-03_JPRB,.986E-03_JPRB,.107E-02_JPRB,&
+&.116E-02_JPRB,.125E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 24  -2.0
+ZAER (:,24, 6) = (/&
+&.138E-02_JPRB,.145E-02_JPRB,.156E-02_JPRB,.171E-02_JPRB,.186E-02_JPRB,.203E-02_JPRB,.214E-02_JPRB,&
+&.222E-02_JPRB,.232E-02_JPRB,.242E-02_JPRB,.250E-02_JPRB,.249E-02_JPRB,.248E-02_JPRB,.255E-02_JPRB,&
+&.265E-02_JPRB,.283E-02_JPRB,.313E-02_JPRB,.351E-02_JPRB,.387E-02_JPRB,.450E-02_JPRB,.532E-02_JPRB,&
+&.607E-02_JPRB,.688E-02_JPRB,.814E-02_JPRB,.969E-02_JPRB,.117E-01_JPRB,.137E-01_JPRB,.147E-01_JPRB,&
+&.151E-01_JPRB,.153E-01_JPRB,.156E-01_JPRB,.165E-01_JPRB,.188E-01_JPRB,.236E-01_JPRB,.289E-01_JPRB,&
+&.356E-01_JPRB,.418E-01_JPRB,.506E-01_JPRB,.658E-01_JPRB,.786E-01_JPRB,.899E-01_JPRB,.110E+00_JPRB,&
+&.130E+00_JPRB,.146E+00_JPRB,.144E+00_JPRB,.113E+00_JPRB,.501E-01_JPRB,.168E-01_JPRB,.747E-02_JPRB,&
+&.499E-02_JPRB,.498E-02_JPRB,.459E-02_JPRB,.349E-02_JPRB,.218E-02_JPRB,.117E-02_JPRB,.812E-03_JPRB,&
+&.683E-03_JPRB,.578E-03_JPRB,.516E-03_JPRB,.462E-03_JPRB,.406E-03_JPRB,.376E-03_JPRB,.385E-03_JPRB,&
+&.427E-03_JPRB,.471E-03_JPRB,.535E-03_JPRB,.623E-03_JPRB,.723E-03_JPRB,.842E-03_JPRB,.972E-03_JPRB,&
+&.111E-02_JPRB,.124E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 25  -6.0
+ZAER (:,25, 6) = (/&
+&.222E-02_JPRB,.239E-02_JPRB,.261E-02_JPRB,.291E-02_JPRB,.323E-02_JPRB,.367E-02_JPRB,.401E-02_JPRB,&
+&.410E-02_JPRB,.409E-02_JPRB,.411E-02_JPRB,.412E-02_JPRB,.387E-02_JPRB,.348E-02_JPRB,.323E-02_JPRB,&
+&.322E-02_JPRB,.334E-02_JPRB,.352E-02_JPRB,.393E-02_JPRB,.460E-02_JPRB,.559E-02_JPRB,.725E-02_JPRB,&
+&.972E-02_JPRB,.115E-01_JPRB,.132E-01_JPRB,.161E-01_JPRB,.204E-01_JPRB,.238E-01_JPRB,.264E-01_JPRB,&
+&.286E-01_JPRB,.284E-01_JPRB,.277E-01_JPRB,.272E-01_JPRB,.266E-01_JPRB,.313E-01_JPRB,.370E-01_JPRB,&
+&.448E-01_JPRB,.533E-01_JPRB,.683E-01_JPRB,.923E-01_JPRB,.116E+00_JPRB,.139E+00_JPRB,.178E+00_JPRB,&
+&.245E+00_JPRB,.338E+00_JPRB,.469E+00_JPRB,.602E+00_JPRB,.623E+00_JPRB,.172E+00_JPRB,.424E-01_JPRB,&
+&.173E-01_JPRB,.149E-01_JPRB,.160E-01_JPRB,.144E-01_JPRB,.957E-02_JPRB,.447E-02_JPRB,.190E-02_JPRB,&
+&.147E-02_JPRB,.140E-02_JPRB,.927E-03_JPRB,.752E-03_JPRB,.673E-03_JPRB,.619E-03_JPRB,.510E-03_JPRB,&
+&.494E-03_JPRB,.520E-03_JPRB,.632E-03_JPRB,.801E-03_JPRB,.100E-02_JPRB,.123E-02_JPRB,.149E-02_JPRB,&
+&.176E-02_JPRB,.201E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 26 -10.0
+ZAER (:,26, 6) = (/&
+&.435E-02_JPRB,.467E-02_JPRB,.518E-02_JPRB,.580E-02_JPRB,.647E-02_JPRB,.733E-02_JPRB,.814E-02_JPRB,&
+&.875E-02_JPRB,.910E-02_JPRB,.906E-02_JPRB,.889E-02_JPRB,.854E-02_JPRB,.744E-02_JPRB,.628E-02_JPRB,&
+&.559E-02_JPRB,.554E-02_JPRB,.509E-02_JPRB,.510E-02_JPRB,.593E-02_JPRB,.799E-02_JPRB,.111E-01_JPRB,&
+&.157E-01_JPRB,.206E-01_JPRB,.236E-01_JPRB,.279E-01_JPRB,.350E-01_JPRB,.418E-01_JPRB,.468E-01_JPRB,&
+&.504E-01_JPRB,.526E-01_JPRB,.563E-01_JPRB,.599E-01_JPRB,.607E-01_JPRB,.672E-01_JPRB,.695E-01_JPRB,&
+&.751E-01_JPRB,.854E-01_JPRB,.105E+00_JPRB,.126E+00_JPRB,.145E+00_JPRB,.172E+00_JPRB,.211E+00_JPRB,&
+&.278E+00_JPRB,.394E+00_JPRB,.629E+00_JPRB,.104E+01_JPRB,.138E+01_JPRB,.564E+00_JPRB,.122E+00_JPRB,&
+&.492E-01_JPRB,.443E-01_JPRB,.556E-01_JPRB,.572E-01_JPRB,.437E-01_JPRB,.195E-01_JPRB,.576E-02_JPRB,&
+&.506E-02_JPRB,.717E-02_JPRB,.594E-02_JPRB,.250E-02_JPRB,.196E-02_JPRB,.186E-02_JPRB,.150E-02_JPRB,&
+&.128E-02_JPRB,.125E-02_JPRB,.142E-02_JPRB,.174E-02_JPRB,.213E-02_JPRB,.257E-02_JPRB,.312E-02_JPRB,&
+&.365E-02_JPRB,.403E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 27 -14.0
+ZAER (:,27, 6) = (/&
+&.732E-02_JPRB,.787E-02_JPRB,.861E-02_JPRB,.958E-02_JPRB,.106E-01_JPRB,.119E-01_JPRB,.134E-01_JPRB,&
+&.150E-01_JPRB,.163E-01_JPRB,.170E-01_JPRB,.181E-01_JPRB,.193E-01_JPRB,.201E-01_JPRB,.197E-01_JPRB,&
+&.184E-01_JPRB,.165E-01_JPRB,.137E-01_JPRB,.110E-01_JPRB,.848E-02_JPRB,.908E-02_JPRB,.131E-01_JPRB,&
+&.181E-01_JPRB,.231E-01_JPRB,.259E-01_JPRB,.298E-01_JPRB,.363E-01_JPRB,.425E-01_JPRB,.473E-01_JPRB,&
+&.536E-01_JPRB,.619E-01_JPRB,.728E-01_JPRB,.880E-01_JPRB,.110E+00_JPRB,.133E+00_JPRB,.134E+00_JPRB,&
+&.131E+00_JPRB,.154E+00_JPRB,.170E+00_JPRB,.164E+00_JPRB,.163E+00_JPRB,.195E+00_JPRB,.222E+00_JPRB,&
+&.246E+00_JPRB,.331E+00_JPRB,.510E+00_JPRB,.705E+00_JPRB,.875E+00_JPRB,.482E+00_JPRB,.139E+00_JPRB,&
+&.875E-01_JPRB,.926E-01_JPRB,.121E+00_JPRB,.132E+00_JPRB,.101E+00_JPRB,.506E-01_JPRB,.194E-01_JPRB,&
+&.107E-01_JPRB,.846E-02_JPRB,.685E-02_JPRB,.525E-02_JPRB,.495E-02_JPRB,.459E-02_JPRB,.380E-02_JPRB,&
+&.296E-02_JPRB,.242E-02_JPRB,.235E-02_JPRB,.289E-02_JPRB,.372E-02_JPRB,.449E-02_JPRB,.529E-02_JPRB,&
+&.611E-02_JPRB,.674E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 28 -18.0
+ZAER (:,28, 6) = (/&
+&.125E-01_JPRB,.134E-01_JPRB,.144E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.155E-01_JPRB,.165E-01_JPRB,&
+&.183E-01_JPRB,.206E-01_JPRB,.225E-01_JPRB,.247E-01_JPRB,.285E-01_JPRB,.351E-01_JPRB,.435E-01_JPRB,&
+&.486E-01_JPRB,.423E-01_JPRB,.318E-01_JPRB,.250E-01_JPRB,.182E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,&
+&.185E-01_JPRB,.233E-01_JPRB,.275E-01_JPRB,.313E-01_JPRB,.342E-01_JPRB,.354E-01_JPRB,.365E-01_JPRB,&
+&.403E-01_JPRB,.460E-01_JPRB,.591E-01_JPRB,.871E-01_JPRB,.137E+00_JPRB,.193E+00_JPRB,.206E+00_JPRB,&
+&.196E+00_JPRB,.198E+00_JPRB,.200E+00_JPRB,.191E+00_JPRB,.192E+00_JPRB,.217E+00_JPRB,.231E+00_JPRB,&
+&.245E+00_JPRB,.291E+00_JPRB,.356E+00_JPRB,.448E+00_JPRB,.514E+00_JPRB,.395E+00_JPRB,.209E+00_JPRB,&
+&.155E+00_JPRB,.147E+00_JPRB,.187E+00_JPRB,.213E+00_JPRB,.168E+00_JPRB,.974E-01_JPRB,.493E-01_JPRB,&
+&.279E-01_JPRB,.163E-01_JPRB,.764E-02_JPRB,.742E-02_JPRB,.933E-02_JPRB,.906E-02_JPRB,.947E-02_JPRB,&
+&.955E-02_JPRB,.764E-02_JPRB,.544E-02_JPRB,.550E-02_JPRB,.712E-02_JPRB,.832E-02_JPRB,.910E-02_JPRB,&
+&.100E-01_JPRB,.113E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 29 -22.0
+ZAER (:,29, 6) = (/&
+&.203E-01_JPRB,.209E-01_JPRB,.217E-01_JPRB,.216E-01_JPRB,.205E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.207E-01_JPRB,.219E-01_JPRB,.234E-01_JPRB,.241E-01_JPRB,.267E-01_JPRB,.344E-01_JPRB,.484E-01_JPRB,&
+&.632E-01_JPRB,.660E-01_JPRB,.565E-01_JPRB,.403E-01_JPRB,.338E-01_JPRB,.273E-01_JPRB,.230E-01_JPRB,&
+&.213E-01_JPRB,.240E-01_JPRB,.277E-01_JPRB,.309E-01_JPRB,.316E-01_JPRB,.319E-01_JPRB,.311E-01_JPRB,&
+&.313E-01_JPRB,.324E-01_JPRB,.378E-01_JPRB,.545E-01_JPRB,.979E-01_JPRB,.187E+00_JPRB,.218E+00_JPRB,&
+&.216E+00_JPRB,.203E+00_JPRB,.198E+00_JPRB,.200E+00_JPRB,.221E+00_JPRB,.231E+00_JPRB,.218E+00_JPRB,&
+&.212E+00_JPRB,.242E+00_JPRB,.317E+00_JPRB,.391E+00_JPRB,.429E+00_JPRB,.394E+00_JPRB,.295E+00_JPRB,&
+&.244E+00_JPRB,.232E+00_JPRB,.251E+00_JPRB,.268E+00_JPRB,.195E+00_JPRB,.135E+00_JPRB,.889E-01_JPRB,&
+&.577E-01_JPRB,.331E-01_JPRB,.127E-01_JPRB,.837E-02_JPRB,.989E-02_JPRB,.125E-01_JPRB,.163E-01_JPRB,&
+&.201E-01_JPRB,.205E-01_JPRB,.162E-01_JPRB,.150E-01_JPRB,.173E-01_JPRB,.189E-01_JPRB,.191E-01_JPRB,&
+&.190E-01_JPRB,.195E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 30 -26.0
+ZAER (:,30, 6) = (/&
+&.340E-01_JPRB,.345E-01_JPRB,.361E-01_JPRB,.359E-01_JPRB,.337E-01_JPRB,.322E-01_JPRB,.320E-01_JPRB,&
+&.321E-01_JPRB,.315E-01_JPRB,.303E-01_JPRB,.296E-01_JPRB,.282E-01_JPRB,.308E-01_JPRB,.445E-01_JPRB,&
+&.595E-01_JPRB,.766E-01_JPRB,.829E-01_JPRB,.481E-01_JPRB,.423E-01_JPRB,.394E-01_JPRB,.373E-01_JPRB,&
+&.324E-01_JPRB,.308E-01_JPRB,.321E-01_JPRB,.340E-01_JPRB,.351E-01_JPRB,.346E-01_JPRB,.329E-01_JPRB,&
+&.312E-01_JPRB,.304E-01_JPRB,.305E-01_JPRB,.340E-01_JPRB,.498E-01_JPRB,.117E+00_JPRB,.199E+00_JPRB,&
+&.206E+00_JPRB,.212E+00_JPRB,.225E+00_JPRB,.245E+00_JPRB,.281E+00_JPRB,.251E+00_JPRB,.196E+00_JPRB,&
+&.175E+00_JPRB,.208E+00_JPRB,.308E+00_JPRB,.355E+00_JPRB,.361E+00_JPRB,.325E+00_JPRB,.296E+00_JPRB,&
+&.290E+00_JPRB,.330E+00_JPRB,.331E+00_JPRB,.274E+00_JPRB,.185E+00_JPRB,.129E+00_JPRB,.104E+00_JPRB,&
+&.855E-01_JPRB,.570E-01_JPRB,.216E-01_JPRB,.114E-01_JPRB,.142E-01_JPRB,.194E-01_JPRB,.272E-01_JPRB,&
+&.332E-01_JPRB,.345E-01_JPRB,.317E-01_JPRB,.311E-01_JPRB,.331E-01_JPRB,.357E-01_JPRB,.369E-01_JPRB,&
+&.365E-01_JPRB,.351E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 31 -30.0
+ZAER (:,31, 6) = (/&
+&.493E-01_JPRB,.509E-01_JPRB,.521E-01_JPRB,.521E-01_JPRB,.506E-01_JPRB,.483E-01_JPRB,.469E-01_JPRB,&
+&.457E-01_JPRB,.450E-01_JPRB,.438E-01_JPRB,.430E-01_JPRB,.411E-01_JPRB,.403E-01_JPRB,.446E-01_JPRB,&
+&.475E-01_JPRB,.744E-01_JPRB,.921E-01_JPRB,.545E-01_JPRB,.485E-01_JPRB,.451E-01_JPRB,.425E-01_JPRB,&
+&.376E-01_JPRB,.353E-01_JPRB,.338E-01_JPRB,.343E-01_JPRB,.354E-01_JPRB,.339E-01_JPRB,.309E-01_JPRB,&
+&.288E-01_JPRB,.275E-01_JPRB,.277E-01_JPRB,.288E-01_JPRB,.322E-01_JPRB,.513E-01_JPRB,.118E+00_JPRB,&
+&.173E+00_JPRB,.187E+00_JPRB,.207E+00_JPRB,.244E+00_JPRB,.258E+00_JPRB,.211E+00_JPRB,.162E+00_JPRB,&
+&.137E+00_JPRB,.172E+00_JPRB,.288E+00_JPRB,.335E+00_JPRB,.313E+00_JPRB,.271E+00_JPRB,.263E+00_JPRB,&
+&.259E+00_JPRB,.257E+00_JPRB,.221E+00_JPRB,.195E+00_JPRB,.163E+00_JPRB,.119E+00_JPRB,.109E+00_JPRB,&
+&.938E-01_JPRB,.697E-01_JPRB,.353E-01_JPRB,.209E-01_JPRB,.227E-01_JPRB,.292E-01_JPRB,.396E-01_JPRB,&
+&.496E-01_JPRB,.503E-01_JPRB,.477E-01_JPRB,.469E-01_JPRB,.468E-01_JPRB,.488E-01_JPRB,.511E-01_JPRB,&
+&.510E-01_JPRB,.499E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 32 -34.0
+ZAER (:,32, 6) = (/&
+&.621E-01_JPRB,.606E-01_JPRB,.581E-01_JPRB,.566E-01_JPRB,.557E-01_JPRB,.550E-01_JPRB,.525E-01_JPRB,&
+&.489E-01_JPRB,.480E-01_JPRB,.493E-01_JPRB,.512E-01_JPRB,.544E-01_JPRB,.601E-01_JPRB,.595E-01_JPRB,&
+&.554E-01_JPRB,.788E-01_JPRB,.113E+00_JPRB,.691E-01_JPRB,.554E-01_JPRB,.506E-01_JPRB,.461E-01_JPRB,&
+&.404E-01_JPRB,.373E-01_JPRB,.342E-01_JPRB,.314E-01_JPRB,.310E-01_JPRB,.310E-01_JPRB,.279E-01_JPRB,&
+&.259E-01_JPRB,.254E-01_JPRB,.259E-01_JPRB,.266E-01_JPRB,.273E-01_JPRB,.323E-01_JPRB,.549E-01_JPRB,&
+&.103E+00_JPRB,.135E+00_JPRB,.172E+00_JPRB,.187E+00_JPRB,.130E+00_JPRB,.104E+00_JPRB,.862E-01_JPRB,&
+&.904E-01_JPRB,.129E+00_JPRB,.217E+00_JPRB,.279E+00_JPRB,.267E+00_JPRB,.252E+00_JPRB,.248E+00_JPRB,&
+&.241E+00_JPRB,.208E+00_JPRB,.174E+00_JPRB,.156E+00_JPRB,.145E+00_JPRB,.141E+00_JPRB,.140E+00_JPRB,&
+&.123E+00_JPRB,.885E-01_JPRB,.580E-01_JPRB,.420E-01_JPRB,.418E-01_JPRB,.484E-01_JPRB,.597E-01_JPRB,&
+&.707E-01_JPRB,.723E-01_JPRB,.656E-01_JPRB,.601E-01_JPRB,.593E-01_JPRB,.579E-01_JPRB,.580E-01_JPRB,&
+&.612E-01_JPRB,.611E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 33 -38.0
+ZAER (:,33, 6) = (/&
+&.659E-01_JPRB,.582E-01_JPRB,.531E-01_JPRB,.503E-01_JPRB,.502E-01_JPRB,.513E-01_JPRB,.498E-01_JPRB,&
+&.470E-01_JPRB,.460E-01_JPRB,.482E-01_JPRB,.519E-01_JPRB,.578E-01_JPRB,.674E-01_JPRB,.709E-01_JPRB,&
+&.705E-01_JPRB,.755E-01_JPRB,.888E-01_JPRB,.719E-01_JPRB,.593E-01_JPRB,.523E-01_JPRB,.473E-01_JPRB,&
+&.424E-01_JPRB,.387E-01_JPRB,.345E-01_JPRB,.310E-01_JPRB,.289E-01_JPRB,.283E-01_JPRB,.262E-01_JPRB,&
+&.249E-01_JPRB,.249E-01_JPRB,.246E-01_JPRB,.246E-01_JPRB,.252E-01_JPRB,.274E-01_JPRB,.407E-01_JPRB,&
+&.570E-01_JPRB,.790E-01_JPRB,.110E+00_JPRB,.112E+00_JPRB,.731E-01_JPRB,.554E-01_JPRB,.553E-01_JPRB,&
+&.696E-01_JPRB,.105E+00_JPRB,.150E+00_JPRB,.199E+00_JPRB,.243E+00_JPRB,.254E+00_JPRB,.248E+00_JPRB,&
+&.225E+00_JPRB,.190E+00_JPRB,.146E+00_JPRB,.156E+00_JPRB,.165E+00_JPRB,.156E+00_JPRB,.171E+00_JPRB,&
+&.180E+00_JPRB,.160E+00_JPRB,.133E+00_JPRB,.137E+00_JPRB,.123E+00_JPRB,.112E+00_JPRB,.108E+00_JPRB,&
+&.942E-01_JPRB,.876E-01_JPRB,.790E-01_JPRB,.695E-01_JPRB,.681E-01_JPRB,.667E-01_JPRB,.701E-01_JPRB,&
+&.734E-01_JPRB,.711E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 34 -42.0
+ZAER (:,34, 6) = (/&
+&.616E-01_JPRB,.512E-01_JPRB,.454E-01_JPRB,.430E-01_JPRB,.420E-01_JPRB,.424E-01_JPRB,.425E-01_JPRB,&
+&.419E-01_JPRB,.423E-01_JPRB,.444E-01_JPRB,.472E-01_JPRB,.509E-01_JPRB,.581E-01_JPRB,.626E-01_JPRB,&
+&.641E-01_JPRB,.633E-01_JPRB,.626E-01_JPRB,.579E-01_JPRB,.504E-01_JPRB,.453E-01_JPRB,.422E-01_JPRB,&
+&.397E-01_JPRB,.371E-01_JPRB,.334E-01_JPRB,.297E-01_JPRB,.279E-01_JPRB,.265E-01_JPRB,.246E-01_JPRB,&
+&.236E-01_JPRB,.232E-01_JPRB,.226E-01_JPRB,.221E-01_JPRB,.224E-01_JPRB,.231E-01_JPRB,.292E-01_JPRB,&
+&.366E-01_JPRB,.416E-01_JPRB,.585E-01_JPRB,.736E-01_JPRB,.626E-01_JPRB,.523E-01_JPRB,.499E-01_JPRB,&
+&.600E-01_JPRB,.849E-01_JPRB,.104E+00_JPRB,.144E+00_JPRB,.253E+00_JPRB,.343E+00_JPRB,.288E+00_JPRB,&
+&.254E+00_JPRB,.213E+00_JPRB,.151E+00_JPRB,.149E+00_JPRB,.172E+00_JPRB,.193E+00_JPRB,.230E+00_JPRB,&
+&.289E+00_JPRB,.290E+00_JPRB,.285E+00_JPRB,.298E+00_JPRB,.240E+00_JPRB,.175E+00_JPRB,.140E+00_JPRB,&
+&.113E+00_JPRB,.983E-01_JPRB,.923E-01_JPRB,.818E-01_JPRB,.768E-01_JPRB,.773E-01_JPRB,.812E-01_JPRB,&
+&.800E-01_JPRB,.726E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 35 -46.0
+ZAER (:,35, 6) = (/&
+&.627E-01_JPRB,.518E-01_JPRB,.439E-01_JPRB,.395E-01_JPRB,.365E-01_JPRB,.354E-01_JPRB,.361E-01_JPRB,&
+&.379E-01_JPRB,.393E-01_JPRB,.395E-01_JPRB,.404E-01_JPRB,.420E-01_JPRB,.461E-01_JPRB,.483E-01_JPRB,&
+&.482E-01_JPRB,.472E-01_JPRB,.455E-01_JPRB,.435E-01_JPRB,.398E-01_JPRB,.363E-01_JPRB,.349E-01_JPRB,&
+&.332E-01_JPRB,.325E-01_JPRB,.306E-01_JPRB,.273E-01_JPRB,.261E-01_JPRB,.252E-01_JPRB,.233E-01_JPRB,&
+&.221E-01_JPRB,.213E-01_JPRB,.206E-01_JPRB,.202E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.206E-01_JPRB,&
+&.229E-01_JPRB,.264E-01_JPRB,.367E-01_JPRB,.519E-01_JPRB,.548E-01_JPRB,.523E-01_JPRB,.454E-01_JPRB,&
+&.510E-01_JPRB,.692E-01_JPRB,.979E-01_JPRB,.149E+00_JPRB,.201E+00_JPRB,.290E+00_JPRB,.255E+00_JPRB,&
+&.228E+00_JPRB,.210E+00_JPRB,.199E+00_JPRB,.161E+00_JPRB,.150E+00_JPRB,.196E+00_JPRB,.238E+00_JPRB,&
+&.255E+00_JPRB,.263E+00_JPRB,.286E+00_JPRB,.295E+00_JPRB,.234E+00_JPRB,.170E+00_JPRB,.137E+00_JPRB,&
+&.117E+00_JPRB,.103E+00_JPRB,.985E-01_JPRB,.943E-01_JPRB,.893E-01_JPRB,.860E-01_JPRB,.841E-01_JPRB,&
+&.812E-01_JPRB,.728E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 36 -50.0
+ZAER (:,36, 6) = (/&
+&.593E-01_JPRB,.481E-01_JPRB,.403E-01_JPRB,.355E-01_JPRB,.325E-01_JPRB,.309E-01_JPRB,.313E-01_JPRB,&
+&.336E-01_JPRB,.346E-01_JPRB,.348E-01_JPRB,.353E-01_JPRB,.365E-01_JPRB,.381E-01_JPRB,.374E-01_JPRB,&
+&.356E-01_JPRB,.345E-01_JPRB,.339E-01_JPRB,.333E-01_JPRB,.317E-01_JPRB,.299E-01_JPRB,.293E-01_JPRB,&
+&.286E-01_JPRB,.284E-01_JPRB,.272E-01_JPRB,.244E-01_JPRB,.234E-01_JPRB,.228E-01_JPRB,.218E-01_JPRB,&
+&.210E-01_JPRB,.201E-01_JPRB,.195E-01_JPRB,.190E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.190E-01_JPRB,&
+&.197E-01_JPRB,.206E-01_JPRB,.241E-01_JPRB,.325E-01_JPRB,.388E-01_JPRB,.408E-01_JPRB,.394E-01_JPRB,&
+&.484E-01_JPRB,.679E-01_JPRB,.980E-01_JPRB,.139E+00_JPRB,.141E+00_JPRB,.143E+00_JPRB,.156E+00_JPRB,&
+&.163E+00_JPRB,.163E+00_JPRB,.153E+00_JPRB,.141E+00_JPRB,.117E+00_JPRB,.119E+00_JPRB,.134E+00_JPRB,&
+&.144E+00_JPRB,.147E+00_JPRB,.142E+00_JPRB,.146E+00_JPRB,.145E+00_JPRB,.125E+00_JPRB,.106E+00_JPRB,&
+&.925E-01_JPRB,.857E-01_JPRB,.850E-01_JPRB,.858E-01_JPRB,.841E-01_JPRB,.807E-01_JPRB,.784E-01_JPRB,&
+&.754E-01_JPRB,.684E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 37 -54.0
+ZAER (:,37, 6) = (/&
+&.477E-01_JPRB,.395E-01_JPRB,.344E-01_JPRB,.310E-01_JPRB,.280E-01_JPRB,.269E-01_JPRB,.274E-01_JPRB,&
+&.290E-01_JPRB,.300E-01_JPRB,.307E-01_JPRB,.316E-01_JPRB,.320E-01_JPRB,.319E-01_JPRB,.316E-01_JPRB,&
+&.302E-01_JPRB,.286E-01_JPRB,.280E-01_JPRB,.272E-01_JPRB,.265E-01_JPRB,.259E-01_JPRB,.258E-01_JPRB,&
+&.259E-01_JPRB,.257E-01_JPRB,.252E-01_JPRB,.239E-01_JPRB,.223E-01_JPRB,.211E-01_JPRB,.207E-01_JPRB,&
+&.208E-01_JPRB,.198E-01_JPRB,.189E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,.176E-01_JPRB,&
+&.180E-01_JPRB,.184E-01_JPRB,.199E-01_JPRB,.240E-01_JPRB,.289E-01_JPRB,.338E-01_JPRB,.382E-01_JPRB,&
+&.475E-01_JPRB,.635E-01_JPRB,.742E-01_JPRB,.728E-01_JPRB,.891E-01_JPRB,.920E-01_JPRB,.968E-01_JPRB,&
+&.110E+00_JPRB,.115E+00_JPRB,.104E+00_JPRB,.893E-01_JPRB,.810E-01_JPRB,.776E-01_JPRB,.763E-01_JPRB,&
+&.766E-01_JPRB,.772E-01_JPRB,.724E-01_JPRB,.699E-01_JPRB,.723E-01_JPRB,.818E-01_JPRB,.828E-01_JPRB,&
+&.781E-01_JPRB,.717E-01_JPRB,.685E-01_JPRB,.684E-01_JPRB,.681E-01_JPRB,.657E-01_JPRB,.624E-01_JPRB,&
+&.595E-01_JPRB,.550E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 38 -58.0
+ZAER (:,38, 6) = (/&
+&.359E-01_JPRB,.315E-01_JPRB,.285E-01_JPRB,.278E-01_JPRB,.271E-01_JPRB,.260E-01_JPRB,.252E-01_JPRB,&
+&.256E-01_JPRB,.269E-01_JPRB,.287E-01_JPRB,.303E-01_JPRB,.293E-01_JPRB,.275E-01_JPRB,.276E-01_JPRB,&
+&.277E-01_JPRB,.269E-01_JPRB,.260E-01_JPRB,.249E-01_JPRB,.241E-01_JPRB,.238E-01_JPRB,.238E-01_JPRB,&
+&.238E-01_JPRB,.234E-01_JPRB,.228E-01_JPRB,.223E-01_JPRB,.218E-01_JPRB,.208E-01_JPRB,.200E-01_JPRB,&
+&.193E-01_JPRB,.177E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.162E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,&
+&.162E-01_JPRB,.170E-01_JPRB,.182E-01_JPRB,.207E-01_JPRB,.239E-01_JPRB,.286E-01_JPRB,.353E-01_JPRB,&
+&.450E-01_JPRB,.502E-01_JPRB,.472E-01_JPRB,.406E-01_JPRB,.510E-01_JPRB,.624E-01_JPRB,.658E-01_JPRB,&
+&.630E-01_JPRB,.601E-01_JPRB,.564E-01_JPRB,.507E-01_JPRB,.482E-01_JPRB,.490E-01_JPRB,.510E-01_JPRB,&
+&.528E-01_JPRB,.534E-01_JPRB,.532E-01_JPRB,.525E-01_JPRB,.522E-01_JPRB,.537E-01_JPRB,.582E-01_JPRB,&
+&.632E-01_JPRB,.607E-01_JPRB,.547E-01_JPRB,.512E-01_JPRB,.502E-01_JPRB,.486E-01_JPRB,.463E-01_JPRB,&
+&.437E-01_JPRB,.398E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 39 -62.0
+ZAER (:,39, 6) = (/&
+&.296E-01_JPRB,.280E-01_JPRB,.273E-01_JPRB,.273E-01_JPRB,.271E-01_JPRB,.260E-01_JPRB,.246E-01_JPRB,&
+&.254E-01_JPRB,.262E-01_JPRB,.274E-01_JPRB,.290E-01_JPRB,.284E-01_JPRB,.265E-01_JPRB,.261E-01_JPRB,&
+&.261E-01_JPRB,.256E-01_JPRB,.245E-01_JPRB,.233E-01_JPRB,.225E-01_JPRB,.222E-01_JPRB,.221E-01_JPRB,&
+&.219E-01_JPRB,.211E-01_JPRB,.206E-01_JPRB,.201E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.194E-01_JPRB,&
+&.175E-01_JPRB,.160E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,&
+&.147E-01_JPRB,.151E-01_JPRB,.161E-01_JPRB,.181E-01_JPRB,.200E-01_JPRB,.237E-01_JPRB,.273E-01_JPRB,&
+&.306E-01_JPRB,.327E-01_JPRB,.344E-01_JPRB,.339E-01_JPRB,.343E-01_JPRB,.380E-01_JPRB,.400E-01_JPRB,&
+&.370E-01_JPRB,.332E-01_JPRB,.313E-01_JPRB,.318E-01_JPRB,.330E-01_JPRB,.348E-01_JPRB,.372E-01_JPRB,&
+&.389E-01_JPRB,.399E-01_JPRB,.409E-01_JPRB,.413E-01_JPRB,.412E-01_JPRB,.423E-01_JPRB,.456E-01_JPRB,&
+&.489E-01_JPRB,.485E-01_JPRB,.449E-01_JPRB,.401E-01_JPRB,.366E-01_JPRB,.347E-01_JPRB,.337E-01_JPRB,&
+&.326E-01_JPRB,.308E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 40 -66.0
+ZAER (:,40, 6) = (/&
+&.262E-01_JPRB,.259E-01_JPRB,.267E-01_JPRB,.278E-01_JPRB,.279E-01_JPRB,.271E-01_JPRB,.272E-01_JPRB,&
+&.275E-01_JPRB,.276E-01_JPRB,.278E-01_JPRB,.273E-01_JPRB,.271E-01_JPRB,.269E-01_JPRB,.264E-01_JPRB,&
+&.255E-01_JPRB,.245E-01_JPRB,.235E-01_JPRB,.226E-01_JPRB,.219E-01_JPRB,.213E-01_JPRB,.207E-01_JPRB,&
+&.201E-01_JPRB,.196E-01_JPRB,.192E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.193E-01_JPRB,.191E-01_JPRB,&
+&.181E-01_JPRB,.169E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.143E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB,.145E-01_JPRB,.156E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.210E-01_JPRB,&
+&.217E-01_JPRB,.221E-01_JPRB,.240E-01_JPRB,.258E-01_JPRB,.262E-01_JPRB,.258E-01_JPRB,.250E-01_JPRB,&
+&.236E-01_JPRB,.228E-01_JPRB,.229E-01_JPRB,.249E-01_JPRB,.277E-01_JPRB,.298E-01_JPRB,.313E-01_JPRB,&
+&.320E-01_JPRB,.323E-01_JPRB,.324E-01_JPRB,.324E-01_JPRB,.336E-01_JPRB,.352E-01_JPRB,.360E-01_JPRB,&
+&.367E-01_JPRB,.375E-01_JPRB,.374E-01_JPRB,.356E-01_JPRB,.327E-01_JPRB,.313E-01_JPRB,.305E-01_JPRB,&
+&.297E-01_JPRB,.279E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 41 -70.0
+ZAER (:,41, 6) = (/&
+&.260E-01_JPRB,.258E-01_JPRB,.265E-01_JPRB,.274E-01_JPRB,.277E-01_JPRB,.275E-01_JPRB,.274E-01_JPRB,&
+&.272E-01_JPRB,.270E-01_JPRB,.268E-01_JPRB,.262E-01_JPRB,.257E-01_JPRB,.252E-01_JPRB,.246E-01_JPRB,&
+&.239E-01_JPRB,.233E-01_JPRB,.226E-01_JPRB,.218E-01_JPRB,.213E-01_JPRB,.206E-01_JPRB,.199E-01_JPRB,&
+&.195E-01_JPRB,.191E-01_JPRB,.187E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,&
+&.189E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,.177E-01_JPRB,&
+&.183E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,.191E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.188E-01_JPRB,&
+&.189E-01_JPRB,.190E-01_JPRB,.196E-01_JPRB,.209E-01_JPRB,.226E-01_JPRB,.249E-01_JPRB,.268E-01_JPRB,&
+&.281E-01_JPRB,.288E-01_JPRB,.281E-01_JPRB,.274E-01_JPRB,.276E-01_JPRB,.285E-01_JPRB,.291E-01_JPRB,&
+&.294E-01_JPRB,.303E-01_JPRB,.313E-01_JPRB,.317E-01_JPRB,.309E-01_JPRB,.307E-01_JPRB,.302E-01_JPRB,&
+&.291E-01_JPRB,.274E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 42 -74.0
+ZAER (:,42, 6) = (/&
+&.259E-01_JPRB,.254E-01_JPRB,.253E-01_JPRB,.255E-01_JPRB,.257E-01_JPRB,.257E-01_JPRB,.255E-01_JPRB,&
+&.253E-01_JPRB,.251E-01_JPRB,.248E-01_JPRB,.244E-01_JPRB,.239E-01_JPRB,.233E-01_JPRB,.228E-01_JPRB,&
+&.228E-01_JPRB,.227E-01_JPRB,.221E-01_JPRB,.218E-01_JPRB,.211E-01_JPRB,.202E-01_JPRB,.195E-01_JPRB,&
+&.191E-01_JPRB,.187E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,&
+&.188E-01_JPRB,.189E-01_JPRB,.187E-01_JPRB,.180E-01_JPRB,.166E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,&
+&.137E-01_JPRB,.136E-01_JPRB,.140E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,&
+&.165E-01_JPRB,.169E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.182E-01_JPRB,&
+&.185E-01_JPRB,.190E-01_JPRB,.200E-01_JPRB,.205E-01_JPRB,.211E-01_JPRB,.226E-01_JPRB,.238E-01_JPRB,&
+&.246E-01_JPRB,.251E-01_JPRB,.252E-01_JPRB,.253E-01_JPRB,.258E-01_JPRB,.265E-01_JPRB,.271E-01_JPRB,&
+&.280E-01_JPRB,.290E-01_JPRB,.300E-01_JPRB,.300E-01_JPRB,.295E-01_JPRB,.290E-01_JPRB,.286E-01_JPRB,&
+&.278E-01_JPRB,.268E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 43 -78.0
+ZAER (:,43, 6) = (/&
+&.246E-01_JPRB,.241E-01_JPRB,.238E-01_JPRB,.236E-01_JPRB,.236E-01_JPRB,.235E-01_JPRB,.235E-01_JPRB,&
+&.233E-01_JPRB,.230E-01_JPRB,.228E-01_JPRB,.225E-01_JPRB,.221E-01_JPRB,.216E-01_JPRB,.211E-01_JPRB,&
+&.209E-01_JPRB,.208E-01_JPRB,.203E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,.196E-01_JPRB,.191E-01_JPRB,&
+&.185E-01_JPRB,.178E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,.187E-01_JPRB,&
+&.182E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.174E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.143E-01_JPRB,&
+&.142E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,.155E-01_JPRB,&
+&.159E-01_JPRB,.163E-01_JPRB,.167E-01_JPRB,.170E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.183E-01_JPRB,&
+&.188E-01_JPRB,.194E-01_JPRB,.200E-01_JPRB,.204E-01_JPRB,.208E-01_JPRB,.220E-01_JPRB,.232E-01_JPRB,&
+&.235E-01_JPRB,.233E-01_JPRB,.234E-01_JPRB,.240E-01_JPRB,.247E-01_JPRB,.254E-01_JPRB,.260E-01_JPRB,&
+&.264E-01_JPRB,.271E-01_JPRB,.273E-01_JPRB,.269E-01_JPRB,.263E-01_JPRB,.260E-01_JPRB,.258E-01_JPRB,&
+&.257E-01_JPRB,.252E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 44 -82.0
+ZAER (:,44, 6) = (/&
+&.220E-01_JPRB,.219E-01_JPRB,.218E-01_JPRB,.216E-01_JPRB,.214E-01_JPRB,.214E-01_JPRB,.213E-01_JPRB,&
+&.213E-01_JPRB,.210E-01_JPRB,.206E-01_JPRB,.201E-01_JPRB,.196E-01_JPRB,.192E-01_JPRB,.188E-01_JPRB,&
+&.186E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,.177E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,&
+&.175E-01_JPRB,.172E-01_JPRB,.170E-01_JPRB,.171E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,&
+&.173E-01_JPRB,.170E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,.154E-01_JPRB,.149E-01_JPRB,&
+&.147E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,.155E-01_JPRB,.159E-01_JPRB,.163E-01_JPRB,.167E-01_JPRB,&
+&.169E-01_JPRB,.171E-01_JPRB,.173E-01_JPRB,.174E-01_JPRB,.177E-01_JPRB,.181E-01_JPRB,.182E-01_JPRB,&
+&.183E-01_JPRB,.185E-01_JPRB,.188E-01_JPRB,.190E-01_JPRB,.195E-01_JPRB,.200E-01_JPRB,.203E-01_JPRB,&
+&.203E-01_JPRB,.206E-01_JPRB,.211E-01_JPRB,.217E-01_JPRB,.221E-01_JPRB,.221E-01_JPRB,.221E-01_JPRB,&
+&.222E-01_JPRB,.225E-01_JPRB,.226E-01_JPRB,.228E-01_JPRB,.229E-01_JPRB,.229E-01_JPRB,.226E-01_JPRB,&
+&.224E-01_JPRB,.222E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 45 -86.0
+ZAER (:,45, 6) = (/&
+&.183E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,&
+&.176E-01_JPRB,.175E-01_JPRB,.174E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.171E-01_JPRB,&
+&.170E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,&
+&.165E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
+&.164E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
+&.165E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,&
+&.176E-01_JPRB,.176E-01_JPRB,.177E-01_JPRB,.177E-01_JPRB,.177E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,&
+&.177E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,.181E-01_JPRB,.182E-01_JPRB,.183E-01_JPRB,&
+&.183E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,&
+&.182E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,&
+&.184E-01_JPRB,.184E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  6 --- lat: 46 -90.0
+ZAER (:,46, 6) = (/&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.173E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=6   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_06
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_07.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_07.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_07.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_07
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      July
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,7:7)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  1  90.0
+ZAER (:, 1, 7) = (/&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  2  86.0
+ZAER (:, 2, 7) = (/&
+&.120E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,&
+&.124E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.122E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  3  82.0
+ZAER (:, 3, 7) = (/&
+&.105E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.105E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.112E-02_JPRB,.116E-02_JPRB,.121E-02_JPRB,.126E-02_JPRB,&
+&.129E-02_JPRB,.133E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,&
+&.137E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,&
+&.137E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,&
+&.136E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,&
+&.110E-02_JPRB,.107E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  4  78.0
+ZAER (:, 4, 7) = (/&
+&.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.127E-02_JPRB,&
+&.131E-02_JPRB,.135E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,&
+&.143E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.141E-02_JPRB,.145E-02_JPRB,&
+&.148E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.155E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.153E-02_JPRB,&
+&.147E-02_JPRB,.141E-02_JPRB,.134E-02_JPRB,.127E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,&
+&.117E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.121E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.107E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  5  74.0
+ZAER (:, 5, 7) = (/&
+&.115E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.130E-02_JPRB,.134E-02_JPRB,.131E-02_JPRB,&
+&.125E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.121E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.129E-02_JPRB,.134E-02_JPRB,.140E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.144E-02_JPRB,.148E-02_JPRB,.152E-02_JPRB,.158E-02_JPRB,.164E-02_JPRB,.168E-02_JPRB,&
+&.171E-02_JPRB,.173E-02_JPRB,.169E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.167E-02_JPRB,.166E-02_JPRB,&
+&.161E-02_JPRB,.153E-02_JPRB,.142E-02_JPRB,.130E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.127E-02_JPRB,&
+&.132E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,&
+&.127E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,&
+&.119E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,.109E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,&
+&.106E-02_JPRB,.110E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  6  70.0
+ZAER (:, 6, 7) = (/&
+&.135E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.149E-02_JPRB,.165E-02_JPRB,.172E-02_JPRB,&
+&.162E-02_JPRB,.147E-02_JPRB,.141E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.130E-02_JPRB,.125E-02_JPRB,&
+&.121E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.126E-02_JPRB,.135E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,&
+&.143E-02_JPRB,.153E-02_JPRB,.166E-02_JPRB,.170E-02_JPRB,.173E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.179E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.174E-02_JPRB,&
+&.169E-02_JPRB,.162E-02_JPRB,.148E-02_JPRB,.135E-02_JPRB,.131E-02_JPRB,.133E-02_JPRB,.140E-02_JPRB,&
+&.147E-02_JPRB,.151E-02_JPRB,.157E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,.165E-02_JPRB,.156E-02_JPRB,&
+&.145E-02_JPRB,.140E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,.135E-02_JPRB,.132E-02_JPRB,&
+&.129E-02_JPRB,.125E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,&
+&.123E-02_JPRB,.122E-02_JPRB,.118E-02_JPRB,.113E-02_JPRB,.107E-02_JPRB,.105E-02_JPRB,.107E-02_JPRB,&
+&.118E-02_JPRB,.130E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  7  66.0
+ZAER (:, 7, 7) = (/&
+&.188E-02_JPRB,.175E-02_JPRB,.165E-02_JPRB,.162E-02_JPRB,.168E-02_JPRB,.185E-02_JPRB,.197E-02_JPRB,&
+&.199E-02_JPRB,.183E-02_JPRB,.171E-02_JPRB,.164E-02_JPRB,.155E-02_JPRB,.145E-02_JPRB,.137E-02_JPRB,&
+&.134E-02_JPRB,.131E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.137E-02_JPRB,&
+&.140E-02_JPRB,.153E-02_JPRB,.181E-02_JPRB,.201E-02_JPRB,.193E-02_JPRB,.176E-02_JPRB,.173E-02_JPRB,&
+&.172E-02_JPRB,.175E-02_JPRB,.180E-02_JPRB,.185E-02_JPRB,.179E-02_JPRB,.176E-02_JPRB,.179E-02_JPRB,&
+&.178E-02_JPRB,.171E-02_JPRB,.162E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.155E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.168E-02_JPRB,.181E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.179E-02_JPRB,&
+&.170E-02_JPRB,.162E-02_JPRB,.157E-02_JPRB,.155E-02_JPRB,.150E-02_JPRB,.146E-02_JPRB,.139E-02_JPRB,&
+&.134E-02_JPRB,.129E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.120E-02_JPRB,&
+&.127E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.146E-02_JPRB,.162E-02_JPRB,.177E-02_JPRB,&
+&.193E-02_JPRB,.197E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  8  62.0
+ZAER (:, 8, 7) = (/&
+&.264E-02_JPRB,.243E-02_JPRB,.226E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,.228E-02_JPRB,.242E-02_JPRB,&
+&.253E-02_JPRB,.246E-02_JPRB,.224E-02_JPRB,.210E-02_JPRB,.195E-02_JPRB,.179E-02_JPRB,.168E-02_JPRB,&
+&.160E-02_JPRB,.152E-02_JPRB,.147E-02_JPRB,.141E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.136E-02_JPRB,&
+&.140E-02_JPRB,.149E-02_JPRB,.193E-02_JPRB,.251E-02_JPRB,.249E-02_JPRB,.211E-02_JPRB,.196E-02_JPRB,&
+&.189E-02_JPRB,.192E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.186E-02_JPRB,&
+&.192E-02_JPRB,.189E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.180E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,&
+&.187E-02_JPRB,.181E-02_JPRB,.186E-02_JPRB,.201E-02_JPRB,.213E-02_JPRB,.216E-02_JPRB,.208E-02_JPRB,&
+&.198E-02_JPRB,.189E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,.168E-02_JPRB,.159E-02_JPRB,.149E-02_JPRB,&
+&.143E-02_JPRB,.138E-02_JPRB,.130E-02_JPRB,.123E-02_JPRB,.118E-02_JPRB,.115E-02_JPRB,.119E-02_JPRB,&
+&.130E-02_JPRB,.148E-02_JPRB,.180E-02_JPRB,.249E-02_JPRB,.308E-02_JPRB,.321E-02_JPRB,.313E-02_JPRB,&
+&.298E-02_JPRB,.285E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat:  9  58.0
+ZAER (:, 9, 7) = (/&
+&.423E-02_JPRB,.391E-02_JPRB,.368E-02_JPRB,.341E-02_JPRB,.316E-02_JPRB,.308E-02_JPRB,.299E-02_JPRB,&
+&.284E-02_JPRB,.273E-02_JPRB,.260E-02_JPRB,.254E-02_JPRB,.246E-02_JPRB,.236E-02_JPRB,.229E-02_JPRB,&
+&.218E-02_JPRB,.205E-02_JPRB,.194E-02_JPRB,.177E-02_JPRB,.164E-02_JPRB,.157E-02_JPRB,.153E-02_JPRB,&
+&.158E-02_JPRB,.180E-02_JPRB,.234E-02_JPRB,.324E-02_JPRB,.327E-02_JPRB,.275E-02_JPRB,.261E-02_JPRB,&
+&.246E-02_JPRB,.242E-02_JPRB,.240E-02_JPRB,.248E-02_JPRB,.260E-02_JPRB,.273E-02_JPRB,.265E-02_JPRB,&
+&.243E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.238E-02_JPRB,.234E-02_JPRB,.225E-02_JPRB,.216E-02_JPRB,&
+&.219E-02_JPRB,.209E-02_JPRB,.204E-02_JPRB,.214E-02_JPRB,.226E-02_JPRB,.231E-02_JPRB,.230E-02_JPRB,&
+&.228E-02_JPRB,.222E-02_JPRB,.214E-02_JPRB,.210E-02_JPRB,.202E-02_JPRB,.194E-02_JPRB,.185E-02_JPRB,&
+&.177E-02_JPRB,.172E-02_JPRB,.165E-02_JPRB,.153E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,.141E-02_JPRB,&
+&.157E-02_JPRB,.195E-02_JPRB,.270E-02_JPRB,.428E-02_JPRB,.529E-02_JPRB,.547E-02_JPRB,.529E-02_JPRB,&
+&.496E-02_JPRB,.460E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 10  54.0
+ZAER (:,10, 7) = (/&
+&.597E-02_JPRB,.544E-02_JPRB,.516E-02_JPRB,.464E-02_JPRB,.412E-02_JPRB,.352E-02_JPRB,.316E-02_JPRB,&
+&.316E-02_JPRB,.324E-02_JPRB,.316E-02_JPRB,.310E-02_JPRB,.304E-02_JPRB,.296E-02_JPRB,.290E-02_JPRB,&
+&.275E-02_JPRB,.264E-02_JPRB,.253E-02_JPRB,.243E-02_JPRB,.232E-02_JPRB,.222E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.234E-02_JPRB,.304E-02_JPRB,.493E-02_JPRB,.473E-02_JPRB,.403E-02_JPRB,.360E-02_JPRB,&
+&.312E-02_JPRB,.301E-02_JPRB,.298E-02_JPRB,.382E-02_JPRB,.386E-02_JPRB,.362E-02_JPRB,.319E-02_JPRB,&
+&.303E-02_JPRB,.299E-02_JPRB,.302E-02_JPRB,.300E-02_JPRB,.290E-02_JPRB,.280E-02_JPRB,.268E-02_JPRB,&
+&.262E-02_JPRB,.246E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,.228E-02_JPRB,.231E-02_JPRB,.243E-02_JPRB,&
+&.255E-02_JPRB,.258E-02_JPRB,.248E-02_JPRB,.241E-02_JPRB,.235E-02_JPRB,.232E-02_JPRB,.230E-02_JPRB,&
+&.223E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.211E-02_JPRB,.200E-02_JPRB,.195E-02_JPRB,.204E-02_JPRB,&
+&.214E-02_JPRB,.290E-02_JPRB,.499E-02_JPRB,.856E-02_JPRB,.994E-02_JPRB,.941E-02_JPRB,.861E-02_JPRB,&
+&.782E-02_JPRB,.684E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 11  50.0
+ZAER (:,11, 7) = (/&
+&.773E-02_JPRB,.677E-02_JPRB,.601E-02_JPRB,.540E-02_JPRB,.494E-02_JPRB,.403E-02_JPRB,.360E-02_JPRB,&
+&.369E-02_JPRB,.381E-02_JPRB,.380E-02_JPRB,.373E-02_JPRB,.355E-02_JPRB,.344E-02_JPRB,.339E-02_JPRB,&
+&.335E-02_JPRB,.332E-02_JPRB,.330E-02_JPRB,.325E-02_JPRB,.312E-02_JPRB,.298E-02_JPRB,.286E-02_JPRB,&
+&.280E-02_JPRB,.428E-02_JPRB,.807E-02_JPRB,.910E-02_JPRB,.719E-02_JPRB,.727E-02_JPRB,.565E-02_JPRB,&
+&.422E-02_JPRB,.385E-02_JPRB,.365E-02_JPRB,.381E-02_JPRB,.437E-02_JPRB,.423E-02_JPRB,.365E-02_JPRB,&
+&.370E-02_JPRB,.377E-02_JPRB,.373E-02_JPRB,.372E-02_JPRB,.368E-02_JPRB,.347E-02_JPRB,.329E-02_JPRB,&
+&.312E-02_JPRB,.287E-02_JPRB,.265E-02_JPRB,.256E-02_JPRB,.263E-02_JPRB,.275E-02_JPRB,.295E-02_JPRB,&
+&.315E-02_JPRB,.324E-02_JPRB,.313E-02_JPRB,.299E-02_JPRB,.287E-02_JPRB,.277E-02_JPRB,.271E-02_JPRB,&
+&.273E-02_JPRB,.300E-02_JPRB,.313E-02_JPRB,.307E-02_JPRB,.283E-02_JPRB,.287E-02_JPRB,.285E-02_JPRB,&
+&.304E-02_JPRB,.582E-02_JPRB,.107E-01_JPRB,.134E-01_JPRB,.115E-01_JPRB,.878E-02_JPRB,.939E-02_JPRB,&
+&.104E-01_JPRB,.913E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 12  46.0
+ZAER (:,12, 7) = (/&
+&.847E-02_JPRB,.748E-02_JPRB,.685E-02_JPRB,.628E-02_JPRB,.562E-02_JPRB,.484E-02_JPRB,.429E-02_JPRB,&
+&.420E-02_JPRB,.427E-02_JPRB,.398E-02_JPRB,.369E-02_JPRB,.353E-02_JPRB,.343E-02_JPRB,.346E-02_JPRB,&
+&.355E-02_JPRB,.358E-02_JPRB,.360E-02_JPRB,.359E-02_JPRB,.358E-02_JPRB,.355E-02_JPRB,.347E-02_JPRB,&
+&.348E-02_JPRB,.496E-02_JPRB,.197E-01_JPRB,.218E-01_JPRB,.134E-01_JPRB,.106E-01_JPRB,.726E-02_JPRB,&
+&.493E-02_JPRB,.422E-02_JPRB,.398E-02_JPRB,.377E-02_JPRB,.395E-02_JPRB,.429E-02_JPRB,.445E-02_JPRB,&
+&.439E-02_JPRB,.420E-02_JPRB,.404E-02_JPRB,.415E-02_JPRB,.430E-02_JPRB,.423E-02_JPRB,.418E-02_JPRB,&
+&.388E-02_JPRB,.357E-02_JPRB,.346E-02_JPRB,.355E-02_JPRB,.392E-02_JPRB,.401E-02_JPRB,.388E-02_JPRB,&
+&.386E-02_JPRB,.388E-02_JPRB,.380E-02_JPRB,.363E-02_JPRB,.345E-02_JPRB,.331E-02_JPRB,.322E-02_JPRB,&
+&.361E-02_JPRB,.528E-02_JPRB,.683E-02_JPRB,.558E-02_JPRB,.457E-02_JPRB,.443E-02_JPRB,.415E-02_JPRB,&
+&.623E-02_JPRB,.124E-01_JPRB,.156E-01_JPRB,.128E-01_JPRB,.907E-02_JPRB,.920E-02_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.982E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 13  42.0
+ZAER (:,13, 7) = (/&
+&.818E-02_JPRB,.765E-02_JPRB,.759E-02_JPRB,.726E-02_JPRB,.651E-02_JPRB,.581E-02_JPRB,.530E-02_JPRB,&
+&.505E-02_JPRB,.492E-02_JPRB,.449E-02_JPRB,.418E-02_JPRB,.404E-02_JPRB,.380E-02_JPRB,.373E-02_JPRB,&
+&.379E-02_JPRB,.380E-02_JPRB,.371E-02_JPRB,.360E-02_JPRB,.363E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,&
+&.386E-02_JPRB,.727E-02_JPRB,.382E-01_JPRB,.373E-01_JPRB,.183E-01_JPRB,.114E-01_JPRB,.832E-02_JPRB,&
+&.623E-02_JPRB,.514E-02_JPRB,.465E-02_JPRB,.439E-02_JPRB,.446E-02_JPRB,.478E-02_JPRB,.498E-02_JPRB,&
+&.479E-02_JPRB,.448E-02_JPRB,.436E-02_JPRB,.464E-02_JPRB,.459E-02_JPRB,.486E-02_JPRB,.522E-02_JPRB,&
+&.523E-02_JPRB,.520E-02_JPRB,.533E-02_JPRB,.559E-02_JPRB,.559E-02_JPRB,.512E-02_JPRB,.478E-02_JPRB,&
+&.465E-02_JPRB,.461E-02_JPRB,.454E-02_JPRB,.443E-02_JPRB,.418E-02_JPRB,.397E-02_JPRB,.408E-02_JPRB,&
+&.564E-02_JPRB,.111E-01_JPRB,.179E-01_JPRB,.188E-01_JPRB,.141E-01_JPRB,.101E-01_JPRB,.920E-02_JPRB,&
+&.156E-01_JPRB,.199E-01_JPRB,.165E-01_JPRB,.112E-01_JPRB,.924E-02_JPRB,.106E-01_JPRB,.123E-01_JPRB,&
+&.113E-01_JPRB,.942E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 14  38.0
+ZAER (:,14, 7) = (/&
+&.906E-02_JPRB,.887E-02_JPRB,.891E-02_JPRB,.856E-02_JPRB,.796E-02_JPRB,.733E-02_JPRB,.677E-02_JPRB,&
+&.635E-02_JPRB,.600E-02_JPRB,.563E-02_JPRB,.525E-02_JPRB,.487E-02_JPRB,.465E-02_JPRB,.455E-02_JPRB,&
+&.441E-02_JPRB,.420E-02_JPRB,.403E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,&
+&.401E-02_JPRB,.612E-02_JPRB,.291E-01_JPRB,.336E-01_JPRB,.186E-01_JPRB,.117E-01_JPRB,.926E-02_JPRB,&
+&.783E-02_JPRB,.673E-02_JPRB,.606E-02_JPRB,.570E-02_JPRB,.551E-02_JPRB,.543E-02_JPRB,.523E-02_JPRB,&
+&.481E-02_JPRB,.465E-02_JPRB,.481E-02_JPRB,.556E-02_JPRB,.584E-02_JPRB,.700E-02_JPRB,.680E-02_JPRB,&
+&.749E-02_JPRB,.799E-02_JPRB,.800E-02_JPRB,.724E-02_JPRB,.609E-02_JPRB,.546E-02_JPRB,.544E-02_JPRB,&
+&.551E-02_JPRB,.553E-02_JPRB,.544E-02_JPRB,.540E-02_JPRB,.519E-02_JPRB,.493E-02_JPRB,.537E-02_JPRB,&
+&.792E-02_JPRB,.154E-01_JPRB,.243E-01_JPRB,.280E-01_JPRB,.299E-01_JPRB,.263E-01_JPRB,.290E-01_JPRB,&
+&.355E-01_JPRB,.326E-01_JPRB,.259E-01_JPRB,.187E-01_JPRB,.147E-01_JPRB,.128E-01_JPRB,.123E-01_JPRB,&
+&.107E-01_JPRB,.914E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 15  34.0
+ZAER (:,15, 7) = (/&
+&.120E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.106E-01_JPRB,.960E-02_JPRB,.879E-02_JPRB,.809E-02_JPRB,&
+&.762E-02_JPRB,.722E-02_JPRB,.687E-02_JPRB,.645E-02_JPRB,.613E-02_JPRB,.605E-02_JPRB,.591E-02_JPRB,&
+&.558E-02_JPRB,.528E-02_JPRB,.510E-02_JPRB,.501E-02_JPRB,.483E-02_JPRB,.463E-02_JPRB,.462E-02_JPRB,&
+&.475E-02_JPRB,.686E-02_JPRB,.130E-01_JPRB,.181E-01_JPRB,.144E-01_JPRB,.112E-01_JPRB,.955E-02_JPRB,&
+&.852E-02_JPRB,.782E-02_JPRB,.746E-02_JPRB,.690E-02_JPRB,.635E-02_JPRB,.629E-02_JPRB,.598E-02_JPRB,&
+&.544E-02_JPRB,.523E-02_JPRB,.594E-02_JPRB,.880E-02_JPRB,.119E-01_JPRB,.151E-01_JPRB,.166E-01_JPRB,&
+&.149E-01_JPRB,.122E-01_JPRB,.989E-02_JPRB,.797E-02_JPRB,.688E-02_JPRB,.647E-02_JPRB,.655E-02_JPRB,&
+&.671E-02_JPRB,.698E-02_JPRB,.719E-02_JPRB,.705E-02_JPRB,.662E-02_JPRB,.647E-02_JPRB,.721E-02_JPRB,&
+&.885E-02_JPRB,.174E-01_JPRB,.229E-01_JPRB,.282E-01_JPRB,.418E-01_JPRB,.609E-01_JPRB,.980E-01_JPRB,&
+&.113E+00_JPRB,.939E-01_JPRB,.558E-01_JPRB,.356E-01_JPRB,.266E-01_JPRB,.214E-01_JPRB,.183E-01_JPRB,&
+&.155E-01_JPRB,.130E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 16  30.0
+ZAER (:,16, 7) = (/&
+&.162E-01_JPRB,.152E-01_JPRB,.138E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,.103E-01_JPRB,.958E-02_JPRB,&
+&.901E-02_JPRB,.857E-02_JPRB,.831E-02_JPRB,.804E-02_JPRB,.763E-02_JPRB,.725E-02_JPRB,.686E-02_JPRB,&
+&.642E-02_JPRB,.615E-02_JPRB,.597E-02_JPRB,.570E-02_JPRB,.547E-02_JPRB,.536E-02_JPRB,.539E-02_JPRB,&
+&.631E-02_JPRB,.116E-01_JPRB,.133E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.933E-02_JPRB,.826E-02_JPRB,&
+&.806E-02_JPRB,.815E-02_JPRB,.812E-02_JPRB,.791E-02_JPRB,.761E-02_JPRB,.741E-02_JPRB,.699E-02_JPRB,&
+&.628E-02_JPRB,.623E-02_JPRB,.807E-02_JPRB,.137E-01_JPRB,.224E-01_JPRB,.341E-01_JPRB,.307E-01_JPRB,&
+&.216E-01_JPRB,.158E-01_JPRB,.119E-01_JPRB,.945E-02_JPRB,.824E-02_JPRB,.802E-02_JPRB,.844E-02_JPRB,&
+&.922E-02_JPRB,.100E-01_JPRB,.104E-01_JPRB,.995E-02_JPRB,.930E-02_JPRB,.925E-02_JPRB,.990E-02_JPRB,&
+&.107E-01_JPRB,.210E-01_JPRB,.301E-01_JPRB,.422E-01_JPRB,.656E-01_JPRB,.963E-01_JPRB,.192E+00_JPRB,&
+&.222E+00_JPRB,.140E+00_JPRB,.665E-01_JPRB,.427E-01_JPRB,.341E-01_JPRB,.289E-01_JPRB,.247E-01_JPRB,&
+&.208E-01_JPRB,.179E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 17  26.0
+ZAER (:,17, 7) = (/&
+&.179E-01_JPRB,.164E-01_JPRB,.153E-01_JPRB,.143E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,&
+&.106E-01_JPRB,.997E-02_JPRB,.917E-02_JPRB,.817E-02_JPRB,.707E-02_JPRB,.654E-02_JPRB,.636E-02_JPRB,&
+&.625E-02_JPRB,.619E-02_JPRB,.604E-02_JPRB,.575E-02_JPRB,.563E-02_JPRB,.568E-02_JPRB,.602E-02_JPRB,&
+&.741E-02_JPRB,.131E-01_JPRB,.172E-01_JPRB,.146E-01_JPRB,.119E-01_JPRB,.104E-01_JPRB,.922E-02_JPRB,&
+&.852E-02_JPRB,.843E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.816E-02_JPRB,.773E-02_JPRB,.709E-02_JPRB,&
+&.653E-02_JPRB,.726E-02_JPRB,.991E-02_JPRB,.150E-01_JPRB,.256E-01_JPRB,.387E-01_JPRB,.338E-01_JPRB,&
+&.265E-01_JPRB,.202E-01_JPRB,.149E-01_JPRB,.128E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.123E-01_JPRB,&
+&.128E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,&
+&.140E-01_JPRB,.251E-01_JPRB,.429E-01_JPRB,.728E-01_JPRB,.109E+00_JPRB,.125E+00_JPRB,.159E+00_JPRB,&
+&.154E+00_JPRB,.853E-01_JPRB,.508E-01_JPRB,.355E-01_JPRB,.291E-01_JPRB,.256E-01_JPRB,.236E-01_JPRB,&
+&.215E-01_JPRB,.197E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 18  22.0
+ZAER (:,18, 7) = (/&
+&.160E-01_JPRB,.150E-01_JPRB,.140E-01_JPRB,.126E-01_JPRB,.112E-01_JPRB,.100E-01_JPRB,.942E-02_JPRB,&
+&.888E-02_JPRB,.814E-02_JPRB,.720E-02_JPRB,.636E-02_JPRB,.571E-02_JPRB,.554E-02_JPRB,.566E-02_JPRB,&
+&.587E-02_JPRB,.603E-02_JPRB,.599E-02_JPRB,.577E-02_JPRB,.570E-02_JPRB,.583E-02_JPRB,.632E-02_JPRB,&
+&.798E-02_JPRB,.124E-01_JPRB,.187E-01_JPRB,.253E-01_JPRB,.144E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,&
+&.914E-02_JPRB,.882E-02_JPRB,.884E-02_JPRB,.868E-02_JPRB,.830E-02_JPRB,.795E-02_JPRB,.764E-02_JPRB,&
+&.784E-02_JPRB,.939E-02_JPRB,.119E-01_JPRB,.160E-01_JPRB,.274E-01_JPRB,.365E-01_JPRB,.349E-01_JPRB,&
+&.291E-01_JPRB,.243E-01_JPRB,.211E-01_JPRB,.250E-01_JPRB,.194E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,&
+&.167E-01_JPRB,.160E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,.155E-01_JPRB,&
+&.207E-01_JPRB,.343E-01_JPRB,.513E-01_JPRB,.755E-01_JPRB,.841E-01_JPRB,.789E-01_JPRB,.912E-01_JPRB,&
+&.776E-01_JPRB,.520E-01_JPRB,.389E-01_JPRB,.293E-01_JPRB,.216E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,&
+&.175E-01_JPRB,.168E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 19  18.0
+ZAER (:,19, 7) = (/&
+&.124E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.898E-02_JPRB,.779E-02_JPRB,.691E-02_JPRB,.635E-02_JPRB,&
+&.598E-02_JPRB,.557E-02_JPRB,.529E-02_JPRB,.511E-02_JPRB,.500E-02_JPRB,.515E-02_JPRB,.543E-02_JPRB,&
+&.577E-02_JPRB,.596E-02_JPRB,.605E-02_JPRB,.596E-02_JPRB,.587E-02_JPRB,.597E-02_JPRB,.640E-02_JPRB,&
+&.801E-02_JPRB,.135E-01_JPRB,.229E-01_JPRB,.235E-01_JPRB,.133E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,&
+&.960E-02_JPRB,.933E-02_JPRB,.911E-02_JPRB,.893E-02_JPRB,.891E-02_JPRB,.907E-02_JPRB,.951E-02_JPRB,&
+&.105E-01_JPRB,.123E-01_JPRB,.152E-01_JPRB,.211E-01_JPRB,.274E-01_JPRB,.311E-01_JPRB,.329E-01_JPRB,&
+&.312E-01_JPRB,.292E-01_JPRB,.347E-01_JPRB,.391E-01_JPRB,.269E-01_JPRB,.231E-01_JPRB,.210E-01_JPRB,&
+&.192E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,.175E-01_JPRB,.206E-01_JPRB,&
+&.275E-01_JPRB,.342E-01_JPRB,.432E-01_JPRB,.513E-01_JPRB,.528E-01_JPRB,.544E-01_JPRB,.535E-01_JPRB,&
+&.431E-01_JPRB,.326E-01_JPRB,.239E-01_JPRB,.194E-01_JPRB,.160E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,&
+&.136E-01_JPRB,.131E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 20  14.0
+ZAER (:,20, 7) = (/&
+&.889E-02_JPRB,.831E-02_JPRB,.746E-02_JPRB,.633E-02_JPRB,.547E-02_JPRB,.490E-02_JPRB,.468E-02_JPRB,&
+&.449E-02_JPRB,.444E-02_JPRB,.448E-02_JPRB,.456E-02_JPRB,.476E-02_JPRB,.521E-02_JPRB,.561E-02_JPRB,&
+&.600E-02_JPRB,.621E-02_JPRB,.642E-02_JPRB,.662E-02_JPRB,.686E-02_JPRB,.714E-02_JPRB,.745E-02_JPRB,&
+&.912E-02_JPRB,.170E-01_JPRB,.212E-01_JPRB,.143E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,&
+&.102E-01_JPRB,.107E-01_JPRB,.109E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,.128E-01_JPRB,.141E-01_JPRB,&
+&.161E-01_JPRB,.186E-01_JPRB,.234E-01_JPRB,.289E-01_JPRB,.317E-01_JPRB,.335E-01_JPRB,.346E-01_JPRB,&
+&.343E-01_JPRB,.370E-01_JPRB,.414E-01_JPRB,.353E-01_JPRB,.274E-01_JPRB,.232E-01_JPRB,.207E-01_JPRB,&
+&.183E-01_JPRB,.168E-01_JPRB,.153E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,.172E-01_JPRB,.207E-01_JPRB,&
+&.248E-01_JPRB,.278E-01_JPRB,.309E-01_JPRB,.315E-01_JPRB,.324E-01_JPRB,.323E-01_JPRB,.286E-01_JPRB,&
+&.236E-01_JPRB,.183E-01_JPRB,.144E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.998E-02_JPRB,.922E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 21  10.0
+ZAER (:,21, 7) = (/&
+&.594E-02_JPRB,.558E-02_JPRB,.506E-02_JPRB,.452E-02_JPRB,.423E-02_JPRB,.419E-02_JPRB,.427E-02_JPRB,&
+&.436E-02_JPRB,.449E-02_JPRB,.466E-02_JPRB,.490E-02_JPRB,.526E-02_JPRB,.567E-02_JPRB,.600E-02_JPRB,&
+&.632E-02_JPRB,.670E-02_JPRB,.719E-02_JPRB,.769E-02_JPRB,.833E-02_JPRB,.908E-02_JPRB,.101E-01_JPRB,&
+&.123E-01_JPRB,.144E-01_JPRB,.131E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,&
+&.130E-01_JPRB,.145E-01_JPRB,.157E-01_JPRB,.166E-01_JPRB,.179E-01_JPRB,.195E-01_JPRB,.220E-01_JPRB,&
+&.250E-01_JPRB,.281E-01_JPRB,.316E-01_JPRB,.357E-01_JPRB,.370E-01_JPRB,.380E-01_JPRB,.401E-01_JPRB,&
+&.414E-01_JPRB,.410E-01_JPRB,.331E-01_JPRB,.248E-01_JPRB,.208E-01_JPRB,.180E-01_JPRB,.160E-01_JPRB,&
+&.139E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.120E-01_JPRB,.139E-01_JPRB,&
+&.158E-01_JPRB,.177E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.185E-01_JPRB,.156E-01_JPRB,.126E-01_JPRB,&
+&.109E-01_JPRB,.951E-02_JPRB,.799E-02_JPRB,.690E-02_JPRB,.667E-02_JPRB,.627E-02_JPRB,.610E-02_JPRB,&
+&.612E-02_JPRB,.593E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 22   6.0
+ZAER (:,22, 7) = (/&
+&.393E-02_JPRB,.389E-02_JPRB,.387E-02_JPRB,.389E-02_JPRB,.410E-02_JPRB,.435E-02_JPRB,.459E-02_JPRB,&
+&.486E-02_JPRB,.515E-02_JPRB,.543E-02_JPRB,.564E-02_JPRB,.587E-02_JPRB,.609E-02_JPRB,.631E-02_JPRB,&
+&.662E-02_JPRB,.699E-02_JPRB,.749E-02_JPRB,.796E-02_JPRB,.848E-02_JPRB,.896E-02_JPRB,.939E-02_JPRB,&
+&.100E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,.115E-01_JPRB,.127E-01_JPRB,.140E-01_JPRB,.155E-01_JPRB,&
+&.173E-01_JPRB,.192E-01_JPRB,.211E-01_JPRB,.229E-01_JPRB,.250E-01_JPRB,.277E-01_JPRB,.323E-01_JPRB,&
+&.360E-01_JPRB,.399E-01_JPRB,.420E-01_JPRB,.438E-01_JPRB,.431E-01_JPRB,.425E-01_JPRB,.437E-01_JPRB,&
+&.453E-01_JPRB,.360E-01_JPRB,.210E-01_JPRB,.163E-01_JPRB,.137E-01_JPRB,.112E-01_JPRB,.921E-02_JPRB,&
+&.803E-02_JPRB,.723E-02_JPRB,.648E-02_JPRB,.612E-02_JPRB,.627E-02_JPRB,.664E-02_JPRB,.725E-02_JPRB,&
+&.781E-02_JPRB,.840E-02_JPRB,.845E-02_JPRB,.764E-02_JPRB,.647E-02_JPRB,.478E-02_JPRB,.360E-02_JPRB,&
+&.348E-02_JPRB,.354E-02_JPRB,.345E-02_JPRB,.346E-02_JPRB,.343E-02_JPRB,.332E-02_JPRB,.348E-02_JPRB,&
+&.379E-02_JPRB,.390E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 23   2.0
+ZAER (:,23, 7) = (/&
+&.282E-02_JPRB,.301E-02_JPRB,.326E-02_JPRB,.356E-02_JPRB,.390E-02_JPRB,.424E-02_JPRB,.462E-02_JPRB,&
+&.498E-02_JPRB,.527E-02_JPRB,.549E-02_JPRB,.563E-02_JPRB,.580E-02_JPRB,.601E-02_JPRB,.632E-02_JPRB,&
+&.665E-02_JPRB,.695E-02_JPRB,.723E-02_JPRB,.767E-02_JPRB,.839E-02_JPRB,.886E-02_JPRB,.881E-02_JPRB,&
+&.945E-02_JPRB,.102E-01_JPRB,.115E-01_JPRB,.132E-01_JPRB,.150E-01_JPRB,.167E-01_JPRB,.182E-01_JPRB,&
+&.199E-01_JPRB,.220E-01_JPRB,.244E-01_JPRB,.266E-01_JPRB,.290E-01_JPRB,.322E-01_JPRB,.364E-01_JPRB,&
+&.408E-01_JPRB,.464E-01_JPRB,.517E-01_JPRB,.558E-01_JPRB,.571E-01_JPRB,.590E-01_JPRB,.612E-01_JPRB,&
+&.617E-01_JPRB,.511E-01_JPRB,.260E-01_JPRB,.119E-01_JPRB,.884E-02_JPRB,.658E-02_JPRB,.556E-02_JPRB,&
+&.509E-02_JPRB,.468E-02_JPRB,.416E-02_JPRB,.377E-02_JPRB,.357E-02_JPRB,.336E-02_JPRB,.322E-02_JPRB,&
+&.327E-02_JPRB,.323E-02_JPRB,.295E-02_JPRB,.246E-02_JPRB,.193E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,&
+&.162E-02_JPRB,.172E-02_JPRB,.181E-02_JPRB,.192E-02_JPRB,.201E-02_JPRB,.215E-02_JPRB,.238E-02_JPRB,&
+&.260E-02_JPRB,.269E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 24  -2.0
+ZAER (:,24, 7) = (/&
+&.183E-02_JPRB,.198E-02_JPRB,.226E-02_JPRB,.268E-02_JPRB,.309E-02_JPRB,.343E-02_JPRB,.376E-02_JPRB,&
+&.407E-02_JPRB,.437E-02_JPRB,.461E-02_JPRB,.478E-02_JPRB,.496E-02_JPRB,.519E-02_JPRB,.534E-02_JPRB,&
+&.555E-02_JPRB,.574E-02_JPRB,.581E-02_JPRB,.625E-02_JPRB,.683E-02_JPRB,.701E-02_JPRB,.781E-02_JPRB,&
+&.893E-02_JPRB,.961E-02_JPRB,.102E-01_JPRB,.112E-01_JPRB,.137E-01_JPRB,.170E-01_JPRB,.186E-01_JPRB,&
+&.195E-01_JPRB,.199E-01_JPRB,.203E-01_JPRB,.203E-01_JPRB,.211E-01_JPRB,.242E-01_JPRB,.283E-01_JPRB,&
+&.319E-01_JPRB,.369E-01_JPRB,.444E-01_JPRB,.557E-01_JPRB,.681E-01_JPRB,.827E-01_JPRB,.103E+00_JPRB,&
+&.121E+00_JPRB,.126E+00_JPRB,.998E-01_JPRB,.579E-01_JPRB,.258E-01_JPRB,.140E-01_JPRB,.910E-02_JPRB,&
+&.780E-02_JPRB,.699E-02_JPRB,.618E-02_JPRB,.481E-02_JPRB,.348E-02_JPRB,.229E-02_JPRB,.175E-02_JPRB,&
+&.138E-02_JPRB,.121E-02_JPRB,.108E-02_JPRB,.913E-03_JPRB,.829E-03_JPRB,.820E-03_JPRB,.877E-03_JPRB,&
+&.966E-03_JPRB,.106E-02_JPRB,.115E-02_JPRB,.122E-02_JPRB,.128E-02_JPRB,.136E-02_JPRB,.150E-02_JPRB,&
+&.164E-02_JPRB,.174E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 25  -6.0
+ZAER (:,25, 7) = (/&
+&.161E-02_JPRB,.182E-02_JPRB,.214E-02_JPRB,.260E-02_JPRB,.306E-02_JPRB,.339E-02_JPRB,.364E-02_JPRB,&
+&.381E-02_JPRB,.397E-02_JPRB,.413E-02_JPRB,.422E-02_JPRB,.434E-02_JPRB,.452E-02_JPRB,.459E-02_JPRB,&
+&.469E-02_JPRB,.470E-02_JPRB,.476E-02_JPRB,.510E-02_JPRB,.562E-02_JPRB,.633E-02_JPRB,.733E-02_JPRB,&
+&.917E-02_JPRB,.106E-01_JPRB,.112E-01_JPRB,.130E-01_JPRB,.179E-01_JPRB,.238E-01_JPRB,.265E-01_JPRB,&
+&.286E-01_JPRB,.272E-01_JPRB,.237E-01_JPRB,.203E-01_JPRB,.192E-01_JPRB,.225E-01_JPRB,.268E-01_JPRB,&
+&.279E-01_JPRB,.296E-01_JPRB,.341E-01_JPRB,.468E-01_JPRB,.660E-01_JPRB,.908E-01_JPRB,.128E+00_JPRB,&
+&.179E+00_JPRB,.250E+00_JPRB,.317E+00_JPRB,.324E+00_JPRB,.345E+00_JPRB,.122E+00_JPRB,.362E-01_JPRB,&
+&.257E-01_JPRB,.202E-01_JPRB,.210E-01_JPRB,.202E-01_JPRB,.144E-01_JPRB,.663E-02_JPRB,.269E-02_JPRB,&
+&.136E-02_JPRB,.900E-03_JPRB,.715E-03_JPRB,.608E-03_JPRB,.559E-03_JPRB,.560E-03_JPRB,.591E-03_JPRB,&
+&.658E-03_JPRB,.752E-03_JPRB,.852E-03_JPRB,.917E-03_JPRB,.976E-03_JPRB,.103E-02_JPRB,.114E-02_JPRB,&
+&.129E-02_JPRB,.144E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 26 -10.0
+ZAER (:,26, 7) = (/&
+&.233E-02_JPRB,.272E-02_JPRB,.316E-02_JPRB,.369E-02_JPRB,.428E-02_JPRB,.485E-02_JPRB,.518E-02_JPRB,&
+&.514E-02_JPRB,.497E-02_JPRB,.460E-02_JPRB,.417E-02_JPRB,.402E-02_JPRB,.406E-02_JPRB,.414E-02_JPRB,&
+&.421E-02_JPRB,.420E-02_JPRB,.425E-02_JPRB,.438E-02_JPRB,.501E-02_JPRB,.631E-02_JPRB,.830E-02_JPRB,&
+&.113E-01_JPRB,.146E-01_JPRB,.180E-01_JPRB,.234E-01_JPRB,.323E-01_JPRB,.414E-01_JPRB,.479E-01_JPRB,&
+&.523E-01_JPRB,.534E-01_JPRB,.510E-01_JPRB,.458E-01_JPRB,.363E-01_JPRB,.399E-01_JPRB,.487E-01_JPRB,&
+&.469E-01_JPRB,.446E-01_JPRB,.458E-01_JPRB,.491E-01_JPRB,.610E-01_JPRB,.873E-01_JPRB,.125E+00_JPRB,&
+&.171E+00_JPRB,.276E+00_JPRB,.475E+00_JPRB,.699E+00_JPRB,.983E+00_JPRB,.547E+00_JPRB,.160E+00_JPRB,&
+&.971E-01_JPRB,.657E-01_JPRB,.698E-01_JPRB,.798E-01_JPRB,.674E-01_JPRB,.302E-01_JPRB,.775E-02_JPRB,&
+&.432E-02_JPRB,.380E-02_JPRB,.271E-02_JPRB,.165E-02_JPRB,.112E-02_JPRB,.856E-03_JPRB,.593E-03_JPRB,&
+&.678E-03_JPRB,.913E-03_JPRB,.123E-02_JPRB,.153E-02_JPRB,.167E-02_JPRB,.172E-02_JPRB,.168E-02_JPRB,&
+&.178E-02_JPRB,.201E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 27 -14.0
+ZAER (:,27, 7) = (/&
+&.315E-02_JPRB,.373E-02_JPRB,.453E-02_JPRB,.549E-02_JPRB,.668E-02_JPRB,.798E-02_JPRB,.895E-02_JPRB,&
+&.919E-02_JPRB,.908E-02_JPRB,.858E-02_JPRB,.793E-02_JPRB,.760E-02_JPRB,.764E-02_JPRB,.757E-02_JPRB,&
+&.750E-02_JPRB,.745E-02_JPRB,.691E-02_JPRB,.580E-02_JPRB,.575E-02_JPRB,.666E-02_JPRB,.920E-02_JPRB,&
+&.128E-01_JPRB,.178E-01_JPRB,.237E-01_JPRB,.312E-01_JPRB,.433E-01_JPRB,.564E-01_JPRB,.646E-01_JPRB,&
+&.717E-01_JPRB,.792E-01_JPRB,.854E-01_JPRB,.900E-01_JPRB,.932E-01_JPRB,.105E+00_JPRB,.110E+00_JPRB,&
+&.108E+00_JPRB,.998E-01_JPRB,.988E-01_JPRB,.920E-01_JPRB,.101E+00_JPRB,.123E+00_JPRB,.147E+00_JPRB,&
+&.207E+00_JPRB,.329E+00_JPRB,.480E+00_JPRB,.541E+00_JPRB,.671E+00_JPRB,.643E+00_JPRB,.383E+00_JPRB,&
+&.208E+00_JPRB,.135E+00_JPRB,.138E+00_JPRB,.169E+00_JPRB,.155E+00_JPRB,.850E-01_JPRB,.342E-01_JPRB,&
+&.177E-01_JPRB,.150E-01_JPRB,.108E-01_JPRB,.591E-02_JPRB,.364E-02_JPRB,.290E-02_JPRB,.193E-02_JPRB,&
+&.159E-02_JPRB,.186E-02_JPRB,.229E-02_JPRB,.289E-02_JPRB,.328E-02_JPRB,.331E-02_JPRB,.312E-02_JPRB,&
+&.284E-02_JPRB,.283E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 28 -18.0
+ZAER (:,28, 7) = (/&
+&.493E-02_JPRB,.529E-02_JPRB,.646E-02_JPRB,.809E-02_JPRB,.984E-02_JPRB,.116E-01_JPRB,.130E-01_JPRB,&
+&.141E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,.155E-01_JPRB,.164E-01_JPRB,.179E-01_JPRB,.200E-01_JPRB,&
+&.215E-01_JPRB,.213E-01_JPRB,.173E-01_JPRB,.134E-01_JPRB,.112E-01_JPRB,.979E-02_JPRB,.116E-01_JPRB,&
+&.146E-01_JPRB,.186E-01_JPRB,.252E-01_JPRB,.331E-01_JPRB,.414E-01_JPRB,.486E-01_JPRB,.545E-01_JPRB,&
+&.624E-01_JPRB,.751E-01_JPRB,.955E-01_JPRB,.125E+00_JPRB,.168E+00_JPRB,.196E+00_JPRB,.186E+00_JPRB,&
+&.183E+00_JPRB,.172E+00_JPRB,.165E+00_JPRB,.164E+00_JPRB,.177E+00_JPRB,.199E+00_JPRB,.223E+00_JPRB,&
+&.256E+00_JPRB,.341E+00_JPRB,.406E+00_JPRB,.395E+00_JPRB,.380E+00_JPRB,.489E+00_JPRB,.458E+00_JPRB,&
+&.364E+00_JPRB,.237E+00_JPRB,.202E+00_JPRB,.244E+00_JPRB,.216E+00_JPRB,.140E+00_JPRB,.759E-01_JPRB,&
+&.466E-01_JPRB,.351E-01_JPRB,.267E-01_JPRB,.160E-01_JPRB,.937E-02_JPRB,.707E-02_JPRB,.594E-02_JPRB,&
+&.494E-02_JPRB,.524E-02_JPRB,.581E-02_JPRB,.674E-02_JPRB,.783E-02_JPRB,.807E-02_JPRB,.774E-02_JPRB,&
+&.649E-02_JPRB,.529E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 29 -22.0
+ZAER (:,29, 7) = (/&
+&.103E-01_JPRB,.888E-02_JPRB,.861E-02_JPRB,.956E-02_JPRB,.112E-01_JPRB,.132E-01_JPRB,.155E-01_JPRB,&
+&.176E-01_JPRB,.190E-01_JPRB,.191E-01_JPRB,.192E-01_JPRB,.208E-01_JPRB,.241E-01_JPRB,.302E-01_JPRB,&
+&.383E-01_JPRB,.443E-01_JPRB,.374E-01_JPRB,.275E-01_JPRB,.232E-01_JPRB,.170E-01_JPRB,.139E-01_JPRB,&
+&.138E-01_JPRB,.164E-01_JPRB,.205E-01_JPRB,.251E-01_JPRB,.268E-01_JPRB,.273E-01_JPRB,.265E-01_JPRB,&
+&.292E-01_JPRB,.383E-01_JPRB,.571E-01_JPRB,.980E-01_JPRB,.166E+00_JPRB,.222E+00_JPRB,.213E+00_JPRB,&
+&.209E+00_JPRB,.209E+00_JPRB,.197E+00_JPRB,.203E+00_JPRB,.225E+00_JPRB,.219E+00_JPRB,.218E+00_JPRB,&
+&.230E+00_JPRB,.286E+00_JPRB,.344E+00_JPRB,.347E+00_JPRB,.368E+00_JPRB,.421E+00_JPRB,.446E+00_JPRB,&
+&.420E+00_JPRB,.353E+00_JPRB,.292E+00_JPRB,.271E+00_JPRB,.201E+00_JPRB,.146E+00_JPRB,.107E+00_JPRB,&
+&.674E-01_JPRB,.430E-01_JPRB,.321E-01_JPRB,.249E-01_JPRB,.178E-01_JPRB,.156E-01_JPRB,.145E-01_JPRB,&
+&.126E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.135E-01_JPRB,.154E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,&
+&.150E-01_JPRB,.122E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 30 -26.0
+ZAER (:,30, 7) = (/&
+&.213E-01_JPRB,.181E-01_JPRB,.156E-01_JPRB,.147E-01_JPRB,.153E-01_JPRB,.170E-01_JPRB,.191E-01_JPRB,&
+&.206E-01_JPRB,.222E-01_JPRB,.232E-01_JPRB,.229E-01_JPRB,.232E-01_JPRB,.260E-01_JPRB,.350E-01_JPRB,&
+&.468E-01_JPRB,.627E-01_JPRB,.593E-01_JPRB,.354E-01_JPRB,.316E-01_JPRB,.274E-01_JPRB,.218E-01_JPRB,&
+&.174E-01_JPRB,.161E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.187E-01_JPRB,.168E-01_JPRB,.153E-01_JPRB,&
+&.148E-01_JPRB,.163E-01_JPRB,.231E-01_JPRB,.403E-01_JPRB,.869E-01_JPRB,.156E+00_JPRB,.192E+00_JPRB,&
+&.207E+00_JPRB,.236E+00_JPRB,.210E+00_JPRB,.191E+00_JPRB,.214E+00_JPRB,.191E+00_JPRB,.166E+00_JPRB,&
+&.170E+00_JPRB,.234E+00_JPRB,.308E+00_JPRB,.338E+00_JPRB,.360E+00_JPRB,.359E+00_JPRB,.359E+00_JPRB,&
+&.346E+00_JPRB,.357E+00_JPRB,.338E+00_JPRB,.249E+00_JPRB,.156E+00_JPRB,.112E+00_JPRB,.989E-01_JPRB,&
+&.801E-01_JPRB,.539E-01_JPRB,.377E-01_JPRB,.303E-01_JPRB,.307E-01_JPRB,.345E-01_JPRB,.356E-01_JPRB,&
+&.322E-01_JPRB,.267E-01_JPRB,.230E-01_JPRB,.242E-01_JPRB,.262E-01_JPRB,.285E-01_JPRB,.292E-01_JPRB,&
+&.265E-01_JPRB,.239E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 31 -30.0
+ZAER (:,31, 7) = (/&
+&.306E-01_JPRB,.289E-01_JPRB,.271E-01_JPRB,.256E-01_JPRB,.244E-01_JPRB,.244E-01_JPRB,.249E-01_JPRB,&
+&.244E-01_JPRB,.253E-01_JPRB,.266E-01_JPRB,.273E-01_JPRB,.268E-01_JPRB,.270E-01_JPRB,.324E-01_JPRB,&
+&.427E-01_JPRB,.678E-01_JPRB,.665E-01_JPRB,.343E-01_JPRB,.293E-01_JPRB,.302E-01_JPRB,.274E-01_JPRB,&
+&.222E-01_JPRB,.183E-01_JPRB,.171E-01_JPRB,.182E-01_JPRB,.173E-01_JPRB,.156E-01_JPRB,.145E-01_JPRB,&
+&.142E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.168E-01_JPRB,.244E-01_JPRB,.548E-01_JPRB,.121E+00_JPRB,&
+&.185E+00_JPRB,.236E+00_JPRB,.232E+00_JPRB,.185E+00_JPRB,.164E+00_JPRB,.152E+00_JPRB,.117E+00_JPRB,&
+&.106E+00_JPRB,.169E+00_JPRB,.253E+00_JPRB,.320E+00_JPRB,.371E+00_JPRB,.337E+00_JPRB,.309E+00_JPRB,&
+&.299E+00_JPRB,.301E+00_JPRB,.245E+00_JPRB,.186E+00_JPRB,.142E+00_JPRB,.105E+00_JPRB,.897E-01_JPRB,&
+&.756E-01_JPRB,.552E-01_JPRB,.409E-01_JPRB,.378E-01_JPRB,.424E-01_JPRB,.462E-01_JPRB,.510E-01_JPRB,&
+&.505E-01_JPRB,.451E-01_JPRB,.368E-01_JPRB,.339E-01_JPRB,.334E-01_JPRB,.337E-01_JPRB,.325E-01_JPRB,&
+&.306E-01_JPRB,.299E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 32 -34.0
+ZAER (:,32, 7) = (/&
+&.332E-01_JPRB,.331E-01_JPRB,.316E-01_JPRB,.304E-01_JPRB,.294E-01_JPRB,.287E-01_JPRB,.281E-01_JPRB,&
+&.270E-01_JPRB,.267E-01_JPRB,.273E-01_JPRB,.297E-01_JPRB,.316E-01_JPRB,.315E-01_JPRB,.316E-01_JPRB,&
+&.351E-01_JPRB,.495E-01_JPRB,.570E-01_JPRB,.342E-01_JPRB,.273E-01_JPRB,.271E-01_JPRB,.252E-01_JPRB,&
+&.220E-01_JPRB,.193E-01_JPRB,.174E-01_JPRB,.178E-01_JPRB,.170E-01_JPRB,.156E-01_JPRB,.149E-01_JPRB,&
+&.147E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,.198E-01_JPRB,.434E-01_JPRB,&
+&.971E-01_JPRB,.167E+00_JPRB,.185E+00_JPRB,.135E+00_JPRB,.965E-01_JPRB,.842E-01_JPRB,.642E-01_JPRB,&
+&.584E-01_JPRB,.935E-01_JPRB,.152E+00_JPRB,.235E+00_JPRB,.282E+00_JPRB,.274E+00_JPRB,.242E+00_JPRB,&
+&.245E+00_JPRB,.233E+00_JPRB,.206E+00_JPRB,.172E+00_JPRB,.148E+00_JPRB,.137E+00_JPRB,.121E+00_JPRB,&
+&.807E-01_JPRB,.538E-01_JPRB,.415E-01_JPRB,.417E-01_JPRB,.469E-01_JPRB,.487E-01_JPRB,.520E-01_JPRB,&
+&.547E-01_JPRB,.499E-01_JPRB,.406E-01_JPRB,.350E-01_JPRB,.332E-01_JPRB,.367E-01_JPRB,.358E-01_JPRB,&
+&.331E-01_JPRB,.326E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 33 -38.0
+ZAER (:,33, 7) = (/&
+&.332E-01_JPRB,.316E-01_JPRB,.295E-01_JPRB,.281E-01_JPRB,.269E-01_JPRB,.263E-01_JPRB,.261E-01_JPRB,&
+&.258E-01_JPRB,.256E-01_JPRB,.260E-01_JPRB,.288E-01_JPRB,.343E-01_JPRB,.374E-01_JPRB,.351E-01_JPRB,&
+&.326E-01_JPRB,.357E-01_JPRB,.402E-01_JPRB,.330E-01_JPRB,.280E-01_JPRB,.269E-01_JPRB,.248E-01_JPRB,&
+&.218E-01_JPRB,.195E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.158E-01_JPRB,&
+&.153E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,.162E-01_JPRB,.222E-01_JPRB,&
+&.483E-01_JPRB,.901E-01_JPRB,.901E-01_JPRB,.821E-01_JPRB,.690E-01_JPRB,.582E-01_JPRB,.483E-01_JPRB,&
+&.451E-01_JPRB,.583E-01_JPRB,.800E-01_JPRB,.118E+00_JPRB,.176E+00_JPRB,.195E+00_JPRB,.160E+00_JPRB,&
+&.150E+00_JPRB,.144E+00_JPRB,.145E+00_JPRB,.177E+00_JPRB,.164E+00_JPRB,.155E+00_JPRB,.149E+00_JPRB,&
+&.108E+00_JPRB,.630E-01_JPRB,.552E-01_JPRB,.542E-01_JPRB,.571E-01_JPRB,.608E-01_JPRB,.665E-01_JPRB,&
+&.606E-01_JPRB,.493E-01_JPRB,.400E-01_JPRB,.357E-01_JPRB,.361E-01_JPRB,.421E-01_JPRB,.402E-01_JPRB,&
+&.362E-01_JPRB,.343E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 34 -42.0
+ZAER (:,34, 7) = (/&
+&.333E-01_JPRB,.295E-01_JPRB,.269E-01_JPRB,.246E-01_JPRB,.227E-01_JPRB,.220E-01_JPRB,.224E-01_JPRB,&
+&.229E-01_JPRB,.232E-01_JPRB,.236E-01_JPRB,.253E-01_JPRB,.307E-01_JPRB,.363E-01_JPRB,.373E-01_JPRB,&
+&.355E-01_JPRB,.373E-01_JPRB,.380E-01_JPRB,.315E-01_JPRB,.280E-01_JPRB,.264E-01_JPRB,.249E-01_JPRB,&
+&.226E-01_JPRB,.208E-01_JPRB,.193E-01_JPRB,.185E-01_JPRB,.178E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,&
+&.157E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,.172E-01_JPRB,&
+&.296E-01_JPRB,.497E-01_JPRB,.505E-01_JPRB,.527E-01_JPRB,.532E-01_JPRB,.462E-01_JPRB,.377E-01_JPRB,&
+&.332E-01_JPRB,.389E-01_JPRB,.512E-01_JPRB,.750E-01_JPRB,.136E+00_JPRB,.159E+00_JPRB,.135E+00_JPRB,&
+&.132E+00_JPRB,.130E+00_JPRB,.127E+00_JPRB,.152E+00_JPRB,.155E+00_JPRB,.168E+00_JPRB,.186E+00_JPRB,&
+&.205E+00_JPRB,.146E+00_JPRB,.125E+00_JPRB,.137E+00_JPRB,.106E+00_JPRB,.985E-01_JPRB,.951E-01_JPRB,&
+&.804E-01_JPRB,.619E-01_JPRB,.512E-01_JPRB,.443E-01_JPRB,.422E-01_JPRB,.457E-01_JPRB,.436E-01_JPRB,&
+&.408E-01_JPRB,.380E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 35 -46.0
+ZAER (:,35, 7) = (/&
+&.325E-01_JPRB,.274E-01_JPRB,.247E-01_JPRB,.215E-01_JPRB,.193E-01_JPRB,.189E-01_JPRB,.192E-01_JPRB,&
+&.200E-01_JPRB,.206E-01_JPRB,.211E-01_JPRB,.222E-01_JPRB,.256E-01_JPRB,.308E-01_JPRB,.344E-01_JPRB,&
+&.364E-01_JPRB,.387E-01_JPRB,.365E-01_JPRB,.298E-01_JPRB,.262E-01_JPRB,.243E-01_JPRB,.232E-01_JPRB,&
+&.220E-01_JPRB,.208E-01_JPRB,.196E-01_JPRB,.186E-01_JPRB,.178E-01_JPRB,.170E-01_JPRB,.163E-01_JPRB,&
+&.157E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,.141E-01_JPRB,.136E-01_JPRB,.140E-01_JPRB,&
+&.186E-01_JPRB,.308E-01_JPRB,.335E-01_JPRB,.340E-01_JPRB,.337E-01_JPRB,.325E-01_JPRB,.290E-01_JPRB,&
+&.263E-01_JPRB,.315E-01_JPRB,.569E-01_JPRB,.844E-01_JPRB,.951E-01_JPRB,.904E-01_JPRB,.114E+00_JPRB,&
+&.133E+00_JPRB,.132E+00_JPRB,.145E+00_JPRB,.168E+00_JPRB,.148E+00_JPRB,.171E+00_JPRB,.210E+00_JPRB,&
+&.242E+00_JPRB,.243E+00_JPRB,.243E+00_JPRB,.245E+00_JPRB,.194E+00_JPRB,.135E+00_JPRB,.112E+00_JPRB,&
+&.878E-01_JPRB,.652E-01_JPRB,.534E-01_JPRB,.479E-01_JPRB,.447E-01_JPRB,.439E-01_JPRB,.424E-01_JPRB,&
+&.407E-01_JPRB,.387E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 36 -50.0
+ZAER (:,36, 7) = (/&
+&.320E-01_JPRB,.269E-01_JPRB,.237E-01_JPRB,.216E-01_JPRB,.190E-01_JPRB,.172E-01_JPRB,.169E-01_JPRB,&
+&.174E-01_JPRB,.177E-01_JPRB,.182E-01_JPRB,.195E-01_JPRB,.223E-01_JPRB,.255E-01_JPRB,.278E-01_JPRB,&
+&.313E-01_JPRB,.329E-01_JPRB,.292E-01_JPRB,.255E-01_JPRB,.234E-01_JPRB,.216E-01_JPRB,.210E-01_JPRB,&
+&.209E-01_JPRB,.200E-01_JPRB,.191E-01_JPRB,.183E-01_JPRB,.174E-01_JPRB,.164E-01_JPRB,.158E-01_JPRB,&
+&.153E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.133E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,&
+&.140E-01_JPRB,.191E-01_JPRB,.239E-01_JPRB,.258E-01_JPRB,.252E-01_JPRB,.241E-01_JPRB,.231E-01_JPRB,&
+&.234E-01_JPRB,.293E-01_JPRB,.446E-01_JPRB,.571E-01_JPRB,.625E-01_JPRB,.568E-01_JPRB,.675E-01_JPRB,&
+&.847E-01_JPRB,.104E+00_JPRB,.123E+00_JPRB,.145E+00_JPRB,.146E+00_JPRB,.144E+00_JPRB,.155E+00_JPRB,&
+&.166E+00_JPRB,.173E+00_JPRB,.190E+00_JPRB,.212E+00_JPRB,.189E+00_JPRB,.138E+00_JPRB,.969E-01_JPRB,&
+&.660E-01_JPRB,.507E-01_JPRB,.431E-01_JPRB,.386E-01_JPRB,.360E-01_JPRB,.359E-01_JPRB,.363E-01_JPRB,&
+&.364E-01_JPRB,.365E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 37 -54.0
+ZAER (:,37, 7) = (/&
+&.307E-01_JPRB,.258E-01_JPRB,.227E-01_JPRB,.225E-01_JPRB,.203E-01_JPRB,.172E-01_JPRB,.164E-01_JPRB,&
+&.162E-01_JPRB,.161E-01_JPRB,.166E-01_JPRB,.184E-01_JPRB,.214E-01_JPRB,.231E-01_JPRB,.236E-01_JPRB,&
+&.242E-01_JPRB,.243E-01_JPRB,.231E-01_JPRB,.215E-01_JPRB,.208E-01_JPRB,.199E-01_JPRB,.196E-01_JPRB,&
+&.207E-01_JPRB,.196E-01_JPRB,.183E-01_JPRB,.170E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,&
+&.139E-01_JPRB,.133E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.126E-01_JPRB,.142E-01_JPRB,.171E-01_JPRB,.195E-01_JPRB,.207E-01_JPRB,.214E-01_JPRB,.217E-01_JPRB,&
+&.219E-01_JPRB,.240E-01_JPRB,.300E-01_JPRB,.337E-01_JPRB,.341E-01_JPRB,.337E-01_JPRB,.381E-01_JPRB,&
+&.467E-01_JPRB,.530E-01_JPRB,.561E-01_JPRB,.651E-01_JPRB,.807E-01_JPRB,.931E-01_JPRB,.995E-01_JPRB,&
+&.961E-01_JPRB,.943E-01_JPRB,.106E+00_JPRB,.109E+00_JPRB,.976E-01_JPRB,.706E-01_JPRB,.521E-01_JPRB,&
+&.412E-01_JPRB,.352E-01_JPRB,.311E-01_JPRB,.276E-01_JPRB,.277E-01_JPRB,.300E-01_JPRB,.315E-01_JPRB,&
+&.320E-01_JPRB,.324E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 38 -58.0
+ZAER (:,38, 7) = (/&
+&.260E-01_JPRB,.239E-01_JPRB,.222E-01_JPRB,.223E-01_JPRB,.209E-01_JPRB,.187E-01_JPRB,.176E-01_JPRB,&
+&.175E-01_JPRB,.174E-01_JPRB,.178E-01_JPRB,.191E-01_JPRB,.213E-01_JPRB,.227E-01_JPRB,.225E-01_JPRB,&
+&.222E-01_JPRB,.216E-01_JPRB,.211E-01_JPRB,.208E-01_JPRB,.202E-01_JPRB,.197E-01_JPRB,.190E-01_JPRB,&
+&.198E-01_JPRB,.183E-01_JPRB,.165E-01_JPRB,.147E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,&
+&.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,&
+&.119E-01_JPRB,.124E-01_JPRB,.138E-01_JPRB,.152E-01_JPRB,.165E-01_JPRB,.181E-01_JPRB,.194E-01_JPRB,&
+&.210E-01_JPRB,.217E-01_JPRB,.230E-01_JPRB,.263E-01_JPRB,.270E-01_JPRB,.286E-01_JPRB,.317E-01_JPRB,&
+&.329E-01_JPRB,.281E-01_JPRB,.247E-01_JPRB,.272E-01_JPRB,.313E-01_JPRB,.401E-01_JPRB,.474E-01_JPRB,&
+&.498E-01_JPRB,.499E-01_JPRB,.509E-01_JPRB,.501E-01_JPRB,.443E-01_JPRB,.380E-01_JPRB,.335E-01_JPRB,&
+&.294E-01_JPRB,.255E-01_JPRB,.224E-01_JPRB,.201E-01_JPRB,.203E-01_JPRB,.229E-01_JPRB,.251E-01_JPRB,&
+&.261E-01_JPRB,.268E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 39 -62.0
+ZAER (:,39, 7) = (/&
+&.225E-01_JPRB,.229E-01_JPRB,.221E-01_JPRB,.219E-01_JPRB,.224E-01_JPRB,.216E-01_JPRB,.202E-01_JPRB,&
+&.197E-01_JPRB,.199E-01_JPRB,.203E-01_JPRB,.210E-01_JPRB,.223E-01_JPRB,.234E-01_JPRB,.235E-01_JPRB,&
+&.233E-01_JPRB,.227E-01_JPRB,.225E-01_JPRB,.229E-01_JPRB,.215E-01_JPRB,.205E-01_JPRB,.195E-01_JPRB,&
+&.189E-01_JPRB,.171E-01_JPRB,.152E-01_JPRB,.134E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,&
+&.114E-01_JPRB,.107E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.107E-01_JPRB,.110E-01_JPRB,.118E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.142E-01_JPRB,.158E-01_JPRB,&
+&.174E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.210E-01_JPRB,.228E-01_JPRB,.235E-01_JPRB,.249E-01_JPRB,&
+&.249E-01_JPRB,.225E-01_JPRB,.226E-01_JPRB,.232E-01_JPRB,.231E-01_JPRB,.237E-01_JPRB,.247E-01_JPRB,&
+&.252E-01_JPRB,.248E-01_JPRB,.247E-01_JPRB,.252E-01_JPRB,.254E-01_JPRB,.248E-01_JPRB,.245E-01_JPRB,&
+&.234E-01_JPRB,.221E-01_JPRB,.198E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,.191E-01_JPRB,.214E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 40 -66.0
+ZAER (:,40, 7) = (/&
+&.212E-01_JPRB,.219E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.225E-01_JPRB,.235E-01_JPRB,.233E-01_JPRB,&
+&.226E-01_JPRB,.221E-01_JPRB,.217E-01_JPRB,.223E-01_JPRB,.232E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,&
+&.248E-01_JPRB,.254E-01_JPRB,.256E-01_JPRB,.265E-01_JPRB,.246E-01_JPRB,.211E-01_JPRB,.191E-01_JPRB,&
+&.178E-01_JPRB,.168E-01_JPRB,.153E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,&
+&.130E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,&
+&.105E-01_JPRB,.106E-01_JPRB,.108E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,&
+&.138E-01_JPRB,.144E-01_JPRB,.146E-01_JPRB,.159E-01_JPRB,.186E-01_JPRB,.209E-01_JPRB,.224E-01_JPRB,&
+&.231E-01_JPRB,.223E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.202E-01_JPRB,.188E-01_JPRB,.183E-01_JPRB,&
+&.182E-01_JPRB,.181E-01_JPRB,.184E-01_JPRB,.191E-01_JPRB,.198E-01_JPRB,.210E-01_JPRB,.216E-01_JPRB,&
+&.222E-01_JPRB,.220E-01_JPRB,.196E-01_JPRB,.182E-01_JPRB,.180E-01_JPRB,.186E-01_JPRB,.201E-01_JPRB,&
+&.207E-01_JPRB,.208E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 41 -70.0
+ZAER (:,41, 7) = (/&
+&.216E-01_JPRB,.216E-01_JPRB,.211E-01_JPRB,.218E-01_JPRB,.225E-01_JPRB,.231E-01_JPRB,.232E-01_JPRB,&
+&.231E-01_JPRB,.225E-01_JPRB,.220E-01_JPRB,.220E-01_JPRB,.222E-01_JPRB,.230E-01_JPRB,.241E-01_JPRB,&
+&.251E-01_JPRB,.252E-01_JPRB,.241E-01_JPRB,.226E-01_JPRB,.213E-01_JPRB,.198E-01_JPRB,.182E-01_JPRB,&
+&.169E-01_JPRB,.160E-01_JPRB,.153E-01_JPRB,.143E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.140E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,&
+&.124E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,.140E-01_JPRB,.156E-01_JPRB,.173E-01_JPRB,&
+&.187E-01_JPRB,.190E-01_JPRB,.187E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,&
+&.172E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.185E-01_JPRB,.197E-01_JPRB,.208E-01_JPRB,&
+&.230E-01_JPRB,.227E-01_JPRB,.194E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,.190E-01_JPRB,&
+&.193E-01_JPRB,.194E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 42 -74.0
+ZAER (:,42, 7) = (/&
+&.209E-01_JPRB,.205E-01_JPRB,.201E-01_JPRB,.205E-01_JPRB,.209E-01_JPRB,.211E-01_JPRB,.211E-01_JPRB,&
+&.209E-01_JPRB,.206E-01_JPRB,.205E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.212E-01_JPRB,.228E-01_JPRB,&
+&.228E-01_JPRB,.218E-01_JPRB,.217E-01_JPRB,.200E-01_JPRB,.198E-01_JPRB,.187E-01_JPRB,.171E-01_JPRB,&
+&.165E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,.143E-01_JPRB,&
+&.147E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.135E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,&
+&.120E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.130E-01_JPRB,.133E-01_JPRB,.138E-01_JPRB,.139E-01_JPRB,&
+&.145E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,.154E-01_JPRB,.169E-01_JPRB,.203E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.197E-01_JPRB,.187E-01_JPRB,.180E-01_JPRB,.184E-01_JPRB,.195E-01_JPRB,.211E-01_JPRB,&
+&.248E-01_JPRB,.276E-01_JPRB,.232E-01_JPRB,.190E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,&
+&.184E-01_JPRB,.193E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 43 -78.0
+ZAER (:,43, 7) = (/&
+&.191E-01_JPRB,.191E-01_JPRB,.191E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.188E-01_JPRB,.186E-01_JPRB,&
+&.185E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.202E-01_JPRB,.204E-01_JPRB,&
+&.196E-01_JPRB,.194E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.189E-01_JPRB,.185E-01_JPRB,.180E-01_JPRB,&
+&.181E-01_JPRB,.196E-01_JPRB,.187E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,&
+&.136E-01_JPRB,.137E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,&
+&.154E-01_JPRB,.158E-01_JPRB,.160E-01_JPRB,.164E-01_JPRB,.167E-01_JPRB,.172E-01_JPRB,.178E-01_JPRB,&
+&.185E-01_JPRB,.195E-01_JPRB,.202E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,&
+&.194E-01_JPRB,.193E-01_JPRB,.186E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.187E-01_JPRB,&
+&.187E-01_JPRB,.188E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 44 -82.0
+ZAER (:,44, 7) = (/&
+&.181E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.176E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,&
+&.172E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,.169E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.173E-01_JPRB,.174E-01_JPRB,.172E-01_JPRB,.162E-01_JPRB,.154E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,&
+&.148E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.134E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,.137E-01_JPRB,.140E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,&
+&.148E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,.156E-01_JPRB,&
+&.158E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.175E-01_JPRB,&
+&.178E-01_JPRB,.181E-01_JPRB,.179E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,&
+&.171E-01_JPRB,.172E-01_JPRB,.176E-01_JPRB,.179E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,&
+&.183E-01_JPRB,.183E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 45 -86.0
+ZAER (:,45, 7) = (/&
+&.160E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,&
+&.152E-01_JPRB,.151E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,&
+&.144E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.150E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,&
+&.153E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,&
+&.159E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,&
+&.162E-01_JPRB,.162E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,&
+&.162E-01_JPRB,.162E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  7 --- lat: 46 -90.0
+ZAER (:,46, 7) = (/&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=7  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_07
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_08.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_08.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_08.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_08
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      August
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,8:8)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  1  90.0
+ZAER (:, 1, 8) = (/&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  2  86.0
+ZAER (:, 2, 8) = (/&
+&.936E-03_JPRB,.938E-03_JPRB,.935E-03_JPRB,.928E-03_JPRB,.925E-03_JPRB,.919E-03_JPRB,.915E-03_JPRB,&
+&.914E-03_JPRB,.916E-03_JPRB,.924E-03_JPRB,.933E-03_JPRB,.939E-03_JPRB,.944E-03_JPRB,.951E-03_JPRB,&
+&.957E-03_JPRB,.965E-03_JPRB,.977E-03_JPRB,.984E-03_JPRB,.990E-03_JPRB,.992E-03_JPRB,.996E-03_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.999E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.100E-02_JPRB,&
+&.992E-03_JPRB,.987E-03_JPRB,.983E-03_JPRB,.978E-03_JPRB,.971E-03_JPRB,.959E-03_JPRB,.949E-03_JPRB,&
+&.940E-03_JPRB,.929E-03_JPRB,.920E-03_JPRB,.911E-03_JPRB,.903E-03_JPRB,.900E-03_JPRB,.902E-03_JPRB,&
+&.907E-03_JPRB,.911E-03_JPRB,.914E-03_JPRB,.915E-03_JPRB,.915E-03_JPRB,.916E-03_JPRB,.920E-03_JPRB,&
+&.924E-03_JPRB,.927E-03_JPRB,.931E-03_JPRB,.935E-03_JPRB,.935E-03_JPRB,.934E-03_JPRB,.933E-03_JPRB,&
+&.933E-03_JPRB,.932E-03_JPRB,.933E-03_JPRB,.930E-03_JPRB,.927E-03_JPRB,.928E-03_JPRB,.929E-03_JPRB,&
+&.929E-03_JPRB,.934E-03_JPRB,.936E-03_JPRB,.937E-03_JPRB,.935E-03_JPRB,.937E-03_JPRB,.940E-03_JPRB,&
+&.943E-03_JPRB,.941E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  3  82.0
+ZAER (:, 3, 8) = (/&
+&.825E-03_JPRB,.834E-03_JPRB,.846E-03_JPRB,.860E-03_JPRB,.878E-03_JPRB,.900E-03_JPRB,.916E-03_JPRB,&
+&.929E-03_JPRB,.945E-03_JPRB,.963E-03_JPRB,.985E-03_JPRB,.100E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,&
+&.103E-02_JPRB,.106E-02_JPRB,.112E-02_JPRB,.121E-02_JPRB,.129E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,&
+&.129E-02_JPRB,.125E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,&
+&.107E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,&
+&.109E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.998E-03_JPRB,.972E-03_JPRB,.938E-03_JPRB,.914E-03_JPRB,&
+&.904E-03_JPRB,.898E-03_JPRB,.892E-03_JPRB,.889E-03_JPRB,.887E-03_JPRB,.887E-03_JPRB,.889E-03_JPRB,&
+&.891E-03_JPRB,.895E-03_JPRB,.902E-03_JPRB,.903E-03_JPRB,.899E-03_JPRB,.900E-03_JPRB,.900E-03_JPRB,&
+&.899E-03_JPRB,.897E-03_JPRB,.895E-03_JPRB,.890E-03_JPRB,.882E-03_JPRB,.876E-03_JPRB,.868E-03_JPRB,&
+&.864E-03_JPRB,.864E-03_JPRB,.867E-03_JPRB,.875E-03_JPRB,.881E-03_JPRB,.881E-03_JPRB,.871E-03_JPRB,&
+&.846E-03_JPRB,.827E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  4  78.0
+ZAER (:, 4, 8) = (/&
+&.870E-03_JPRB,.882E-03_JPRB,.902E-03_JPRB,.924E-03_JPRB,.964E-03_JPRB,.102E-02_JPRB,.109E-02_JPRB,&
+&.113E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,&
+&.129E-02_JPRB,.137E-02_JPRB,.152E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.156E-02_JPRB,.149E-02_JPRB,&
+&.143E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,&
+&.132E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,&
+&.125E-02_JPRB,.121E-02_JPRB,.117E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,.976E-03_JPRB,.927E-03_JPRB,&
+&.909E-03_JPRB,.903E-03_JPRB,.897E-03_JPRB,.893E-03_JPRB,.893E-03_JPRB,.892E-03_JPRB,.884E-03_JPRB,&
+&.870E-03_JPRB,.858E-03_JPRB,.864E-03_JPRB,.874E-03_JPRB,.876E-03_JPRB,.873E-03_JPRB,.868E-03_JPRB,&
+&.862E-03_JPRB,.854E-03_JPRB,.846E-03_JPRB,.840E-03_JPRB,.833E-03_JPRB,.831E-03_JPRB,.834E-03_JPRB,&
+&.839E-03_JPRB,.841E-03_JPRB,.834E-03_JPRB,.833E-03_JPRB,.853E-03_JPRB,.876E-03_JPRB,.864E-03_JPRB,&
+&.841E-03_JPRB,.851E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  5  74.0
+ZAER (:, 5, 8) = (/&
+&.978E-03_JPRB,.998E-03_JPRB,.102E-02_JPRB,.106E-02_JPRB,.116E-02_JPRB,.128E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.148E-02_JPRB,.159E-02_JPRB,&
+&.164E-02_JPRB,.165E-02_JPRB,.173E-02_JPRB,.179E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.188E-02_JPRB,.199E-02_JPRB,&
+&.181E-02_JPRB,.170E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.151E-02_JPRB,.141E-02_JPRB,.134E-02_JPRB,&
+&.128E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.109E-02_JPRB,.102E-02_JPRB,.975E-03_JPRB,&
+&.958E-03_JPRB,.963E-03_JPRB,.969E-03_JPRB,.969E-03_JPRB,.962E-03_JPRB,.946E-03_JPRB,.913E-03_JPRB,&
+&.879E-03_JPRB,.870E-03_JPRB,.878E-03_JPRB,.887E-03_JPRB,.889E-03_JPRB,.879E-03_JPRB,.865E-03_JPRB,&
+&.857E-03_JPRB,.850E-03_JPRB,.843E-03_JPRB,.846E-03_JPRB,.850E-03_JPRB,.863E-03_JPRB,.890E-03_JPRB,&
+&.917E-03_JPRB,.928E-03_JPRB,.913E-03_JPRB,.902E-03_JPRB,.910E-03_JPRB,.903E-03_JPRB,.881E-03_JPRB,&
+&.882E-03_JPRB,.932E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  6  70.0
+ZAER (:, 6, 8) = (/&
+&.111E-02_JPRB,.112E-02_JPRB,.111E-02_JPRB,.119E-02_JPRB,.135E-02_JPRB,.151E-02_JPRB,.155E-02_JPRB,&
+&.151E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.153E-02_JPRB,.167E-02_JPRB,.183E-02_JPRB,&
+&.191E-02_JPRB,.188E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.210E-02_JPRB,.230E-02_JPRB,.240E-02_JPRB,&
+&.242E-02_JPRB,.236E-02_JPRB,.225E-02_JPRB,.231E-02_JPRB,.239E-02_JPRB,.255E-02_JPRB,.258E-02_JPRB,&
+&.242E-02_JPRB,.223E-02_JPRB,.211E-02_JPRB,.191E-02_JPRB,.157E-02_JPRB,.135E-02_JPRB,.115E-02_JPRB,&
+&.111E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.111E-02_JPRB,.107E-02_JPRB,.104E-02_JPRB,.101E-02_JPRB,&
+&.100E-02_JPRB,.103E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.108E-02_JPRB,.101E-02_JPRB,&
+&.935E-03_JPRB,.898E-03_JPRB,.914E-03_JPRB,.933E-03_JPRB,.941E-03_JPRB,.938E-03_JPRB,.921E-03_JPRB,&
+&.908E-03_JPRB,.906E-03_JPRB,.908E-03_JPRB,.924E-03_JPRB,.946E-03_JPRB,.987E-03_JPRB,.105E-02_JPRB,&
+&.112E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.113E-02_JPRB,.106E-02_JPRB,.981E-03_JPRB,.936E-03_JPRB,&
+&.953E-03_JPRB,.105E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  7  66.0
+ZAER (:, 7, 8) = (/&
+&.124E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.139E-02_JPRB,.156E-02_JPRB,.170E-02_JPRB,.171E-02_JPRB,&
+&.166E-02_JPRB,.158E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.156E-02_JPRB,.168E-02_JPRB,.183E-02_JPRB,&
+&.200E-02_JPRB,.199E-02_JPRB,.190E-02_JPRB,.187E-02_JPRB,.202E-02_JPRB,.219E-02_JPRB,.232E-02_JPRB,&
+&.255E-02_JPRB,.285E-02_JPRB,.315E-02_JPRB,.349E-02_JPRB,.359E-02_JPRB,.370E-02_JPRB,.335E-02_JPRB,&
+&.292E-02_JPRB,.275E-02_JPRB,.256E-02_JPRB,.208E-02_JPRB,.151E-02_JPRB,.124E-02_JPRB,.115E-02_JPRB,&
+&.114E-02_JPRB,.119E-02_JPRB,.122E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.125E-02_JPRB,&
+&.120E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.106E-02_JPRB,&
+&.100E-02_JPRB,.967E-03_JPRB,.938E-03_JPRB,.905E-03_JPRB,.911E-03_JPRB,.931E-03_JPRB,.940E-03_JPRB,&
+&.951E-03_JPRB,.943E-03_JPRB,.921E-03_JPRB,.914E-03_JPRB,.955E-03_JPRB,.104E-02_JPRB,.115E-02_JPRB,&
+&.131E-02_JPRB,.146E-02_JPRB,.150E-02_JPRB,.145E-02_JPRB,.131E-02_JPRB,.114E-02_JPRB,.104E-02_JPRB,&
+&.108E-02_JPRB,.123E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  8  62.0
+ZAER (:, 8, 8) = (/&
+&.154E-02_JPRB,.138E-02_JPRB,.141E-02_JPRB,.163E-02_JPRB,.182E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,&
+&.180E-02_JPRB,.168E-02_JPRB,.162E-02_JPRB,.160E-02_JPRB,.164E-02_JPRB,.167E-02_JPRB,.171E-02_JPRB,&
+&.186E-02_JPRB,.187E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.186E-02_JPRB,.203E-02_JPRB,.217E-02_JPRB,&
+&.210E-02_JPRB,.227E-02_JPRB,.357E-02_JPRB,.503E-02_JPRB,.556E-02_JPRB,.531E-02_JPRB,.467E-02_JPRB,&
+&.369E-02_JPRB,.317E-02_JPRB,.268E-02_JPRB,.197E-02_JPRB,.137E-02_JPRB,.126E-02_JPRB,.129E-02_JPRB,&
+&.127E-02_JPRB,.129E-02_JPRB,.137E-02_JPRB,.150E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,&
+&.160E-02_JPRB,.155E-02_JPRB,.146E-02_JPRB,.140E-02_JPRB,.135E-02_JPRB,.128E-02_JPRB,.122E-02_JPRB,&
+&.116E-02_JPRB,.110E-02_JPRB,.102E-02_JPRB,.951E-03_JPRB,.941E-03_JPRB,.959E-03_JPRB,.966E-03_JPRB,&
+&.967E-03_JPRB,.996E-03_JPRB,.998E-03_JPRB,.989E-03_JPRB,.103E-02_JPRB,.110E-02_JPRB,.123E-02_JPRB,&
+&.148E-02_JPRB,.192E-02_JPRB,.213E-02_JPRB,.200E-02_JPRB,.180E-02_JPRB,.158E-02_JPRB,.139E-02_JPRB,&
+&.141E-02_JPRB,.154E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat:  9  58.0
+ZAER (:, 9, 8) = (/&
+&.213E-02_JPRB,.208E-02_JPRB,.206E-02_JPRB,.217E-02_JPRB,.226E-02_JPRB,.231E-02_JPRB,.221E-02_JPRB,&
+&.208E-02_JPRB,.191E-02_JPRB,.180E-02_JPRB,.176E-02_JPRB,.174E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,&
+&.186E-02_JPRB,.190E-02_JPRB,.174E-02_JPRB,.158E-02_JPRB,.173E-02_JPRB,.209E-02_JPRB,.218E-02_JPRB,&
+&.228E-02_JPRB,.267E-02_JPRB,.527E-02_JPRB,.827E-02_JPRB,.771E-02_JPRB,.658E-02_JPRB,.603E-02_JPRB,&
+&.514E-02_JPRB,.380E-02_JPRB,.273E-02_JPRB,.192E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,.154E-02_JPRB,&
+&.157E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.165E-02_JPRB,.174E-02_JPRB,.180E-02_JPRB,.192E-02_JPRB,&
+&.205E-02_JPRB,.198E-02_JPRB,.190E-02_JPRB,.182E-02_JPRB,.172E-02_JPRB,.165E-02_JPRB,.157E-02_JPRB,&
+&.146E-02_JPRB,.136E-02_JPRB,.124E-02_JPRB,.117E-02_JPRB,.114E-02_JPRB,.111E-02_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.113E-02_JPRB,.118E-02_JPRB,.123E-02_JPRB,.128E-02_JPRB,.152E-02_JPRB,.227E-02_JPRB,&
+&.320E-02_JPRB,.381E-02_JPRB,.410E-02_JPRB,.383E-02_JPRB,.334E-02_JPRB,.290E-02_JPRB,.250E-02_JPRB,&
+&.229E-02_JPRB,.218E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 10  54.0
+ZAER (:,10, 8) = (/&
+&.318E-02_JPRB,.302E-02_JPRB,.285E-02_JPRB,.284E-02_JPRB,.288E-02_JPRB,.279E-02_JPRB,.268E-02_JPRB,&
+&.243E-02_JPRB,.207E-02_JPRB,.188E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,&
+&.187E-02_JPRB,.188E-02_JPRB,.174E-02_JPRB,.155E-02_JPRB,.160E-02_JPRB,.175E-02_JPRB,.173E-02_JPRB,&
+&.250E-02_JPRB,.611E-02_JPRB,.134E-01_JPRB,.137E-01_JPRB,.893E-02_JPRB,.788E-02_JPRB,.742E-02_JPRB,&
+&.670E-02_JPRB,.527E-02_JPRB,.375E-02_JPRB,.260E-02_JPRB,.197E-02_JPRB,.181E-02_JPRB,.185E-02_JPRB,&
+&.183E-02_JPRB,.175E-02_JPRB,.170E-02_JPRB,.183E-02_JPRB,.199E-02_JPRB,.220E-02_JPRB,.245E-02_JPRB,&
+&.262E-02_JPRB,.243E-02_JPRB,.236E-02_JPRB,.227E-02_JPRB,.212E-02_JPRB,.198E-02_JPRB,.189E-02_JPRB,&
+&.176E-02_JPRB,.163E-02_JPRB,.149E-02_JPRB,.144E-02_JPRB,.139E-02_JPRB,.134E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.142E-02_JPRB,.155E-02_JPRB,.175E-02_JPRB,.220E-02_JPRB,.390E-02_JPRB,.606E-02_JPRB,&
+&.610E-02_JPRB,.564E-02_JPRB,.606E-02_JPRB,.615E-02_JPRB,.560E-02_JPRB,.480E-02_JPRB,.394E-02_JPRB,&
+&.361E-02_JPRB,.339E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 11  50.0
+ZAER (:,11, 8) = (/&
+&.401E-02_JPRB,.363E-02_JPRB,.353E-02_JPRB,.360E-02_JPRB,.363E-02_JPRB,.343E-02_JPRB,.308E-02_JPRB,&
+&.252E-02_JPRB,.205E-02_JPRB,.190E-02_JPRB,.192E-02_JPRB,.194E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,&
+&.194E-02_JPRB,.189E-02_JPRB,.181E-02_JPRB,.172E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,&
+&.214E-02_JPRB,.954E-02_JPRB,.274E-01_JPRB,.201E-01_JPRB,.988E-02_JPRB,.773E-02_JPRB,.700E-02_JPRB,&
+&.662E-02_JPRB,.589E-02_JPRB,.495E-02_JPRB,.396E-02_JPRB,.319E-02_JPRB,.271E-02_JPRB,.246E-02_JPRB,&
+&.223E-02_JPRB,.213E-02_JPRB,.216E-02_JPRB,.227E-02_JPRB,.254E-02_JPRB,.300E-02_JPRB,.331E-02_JPRB,&
+&.343E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.318E-02_JPRB,.305E-02_JPRB,.285E-02_JPRB,.257E-02_JPRB,&
+&.225E-02_JPRB,.200E-02_JPRB,.184E-02_JPRB,.179E-02_JPRB,.176E-02_JPRB,.172E-02_JPRB,.167E-02_JPRB,&
+&.164E-02_JPRB,.175E-02_JPRB,.183E-02_JPRB,.211E-02_JPRB,.476E-02_JPRB,.870E-02_JPRB,.100E-01_JPRB,&
+&.815E-02_JPRB,.632E-02_JPRB,.678E-02_JPRB,.753E-02_JPRB,.686E-02_JPRB,.610E-02_JPRB,.514E-02_JPRB,&
+&.458E-02_JPRB,.438E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 12  46.0
+ZAER (:,12, 8) = (/&
+&.417E-02_JPRB,.398E-02_JPRB,.407E-02_JPRB,.444E-02_JPRB,.468E-02_JPRB,.432E-02_JPRB,.373E-02_JPRB,&
+&.299E-02_JPRB,.222E-02_JPRB,.206E-02_JPRB,.211E-02_JPRB,.213E-02_JPRB,.218E-02_JPRB,.217E-02_JPRB,&
+&.210E-02_JPRB,.200E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.190E-02_JPRB,.195E-02_JPRB,.188E-02_JPRB,&
+&.238E-02_JPRB,.856E-02_JPRB,.432E-01_JPRB,.303E-01_JPRB,.117E-01_JPRB,.720E-02_JPRB,.609E-02_JPRB,&
+&.572E-02_JPRB,.566E-02_JPRB,.533E-02_JPRB,.498E-02_JPRB,.455E-02_JPRB,.399E-02_JPRB,.345E-02_JPRB,&
+&.300E-02_JPRB,.282E-02_JPRB,.284E-02_JPRB,.321E-02_JPRB,.389E-02_JPRB,.431E-02_JPRB,.476E-02_JPRB,&
+&.468E-02_JPRB,.470E-02_JPRB,.460E-02_JPRB,.435E-02_JPRB,.408E-02_JPRB,.380E-02_JPRB,.347E-02_JPRB,&
+&.310E-02_JPRB,.273E-02_JPRB,.246E-02_JPRB,.230E-02_JPRB,.225E-02_JPRB,.220E-02_JPRB,.212E-02_JPRB,&
+&.204E-02_JPRB,.202E-02_JPRB,.207E-02_JPRB,.288E-02_JPRB,.952E-02_JPRB,.173E-01_JPRB,.172E-01_JPRB,&
+&.138E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.769E-02_JPRB,.605E-02_JPRB,&
+&.510E-02_JPRB,.458E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 13  42.0
+ZAER (:,13, 8) = (/&
+&.515E-02_JPRB,.472E-02_JPRB,.484E-02_JPRB,.550E-02_JPRB,.547E-02_JPRB,.484E-02_JPRB,.430E-02_JPRB,&
+&.362E-02_JPRB,.281E-02_JPRB,.249E-02_JPRB,.251E-02_JPRB,.254E-02_JPRB,.260E-02_JPRB,.257E-02_JPRB,&
+&.248E-02_JPRB,.237E-02_JPRB,.232E-02_JPRB,.229E-02_JPRB,.228E-02_JPRB,.251E-02_JPRB,.274E-02_JPRB,&
+&.336E-02_JPRB,.874E-02_JPRB,.607E-01_JPRB,.451E-01_JPRB,.190E-01_JPRB,.107E-01_JPRB,.825E-02_JPRB,&
+&.778E-02_JPRB,.716E-02_JPRB,.665E-02_JPRB,.603E-02_JPRB,.555E-02_JPRB,.493E-02_JPRB,.435E-02_JPRB,&
+&.395E-02_JPRB,.380E-02_JPRB,.424E-02_JPRB,.520E-02_JPRB,.573E-02_JPRB,.593E-02_JPRB,.619E-02_JPRB,&
+&.645E-02_JPRB,.635E-02_JPRB,.612E-02_JPRB,.586E-02_JPRB,.544E-02_JPRB,.483E-02_JPRB,.432E-02_JPRB,&
+&.398E-02_JPRB,.372E-02_JPRB,.347E-02_JPRB,.330E-02_JPRB,.310E-02_JPRB,.288E-02_JPRB,.267E-02_JPRB,&
+&.251E-02_JPRB,.249E-02_JPRB,.258E-02_JPRB,.369E-02_JPRB,.896E-02_JPRB,.192E-01_JPRB,.257E-01_JPRB,&
+&.241E-01_JPRB,.200E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.168E-01_JPRB,.132E-01_JPRB,.885E-02_JPRB,&
+&.683E-02_JPRB,.584E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 14  38.0
+ZAER (:,14, 8) = (/&
+&.726E-02_JPRB,.648E-02_JPRB,.659E-02_JPRB,.674E-02_JPRB,.606E-02_JPRB,.518E-02_JPRB,.465E-02_JPRB,&
+&.411E-02_JPRB,.357E-02_JPRB,.332E-02_JPRB,.319E-02_JPRB,.318E-02_JPRB,.321E-02_JPRB,.317E-02_JPRB,&
+&.311E-02_JPRB,.303E-02_JPRB,.302E-02_JPRB,.305E-02_JPRB,.309E-02_JPRB,.315E-02_JPRB,.314E-02_JPRB,&
+&.376E-02_JPRB,.889E-02_JPRB,.393E-01_JPRB,.414E-01_JPRB,.224E-01_JPRB,.145E-01_JPRB,.108E-01_JPRB,&
+&.896E-02_JPRB,.818E-02_JPRB,.738E-02_JPRB,.660E-02_JPRB,.620E-02_JPRB,.586E-02_JPRB,.557E-02_JPRB,&
+&.528E-02_JPRB,.550E-02_JPRB,.619E-02_JPRB,.676E-02_JPRB,.729E-02_JPRB,.821E-02_JPRB,.958E-02_JPRB,&
+&.929E-02_JPRB,.839E-02_JPRB,.841E-02_JPRB,.812E-02_JPRB,.707E-02_JPRB,.599E-02_JPRB,.539E-02_JPRB,&
+&.510E-02_JPRB,.498E-02_JPRB,.492E-02_JPRB,.487E-02_JPRB,.456E-02_JPRB,.412E-02_JPRB,.375E-02_JPRB,&
+&.349E-02_JPRB,.349E-02_JPRB,.390E-02_JPRB,.622E-02_JPRB,.118E-01_JPRB,.278E-01_JPRB,.543E-01_JPRB,&
+&.564E-01_JPRB,.462E-01_JPRB,.345E-01_JPRB,.262E-01_JPRB,.217E-01_JPRB,.180E-01_JPRB,.137E-01_JPRB,&
+&.108E-01_JPRB,.873E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 15  34.0
+ZAER (:,15, 8) = (/&
+&.103E-01_JPRB,.974E-02_JPRB,.961E-02_JPRB,.883E-02_JPRB,.748E-02_JPRB,.627E-02_JPRB,.557E-02_JPRB,&
+&.507E-02_JPRB,.467E-02_JPRB,.445E-02_JPRB,.435E-02_JPRB,.427E-02_JPRB,.420E-02_JPRB,.412E-02_JPRB,&
+&.412E-02_JPRB,.422E-02_JPRB,.429E-02_JPRB,.427E-02_JPRB,.418E-02_JPRB,.403E-02_JPRB,.385E-02_JPRB,&
+&.419E-02_JPRB,.980E-02_JPRB,.245E-01_JPRB,.299E-01_JPRB,.205E-01_JPRB,.148E-01_JPRB,.118E-01_JPRB,&
+&.992E-02_JPRB,.867E-02_JPRB,.760E-02_JPRB,.686E-02_JPRB,.661E-02_JPRB,.650E-02_JPRB,.636E-02_JPRB,&
+&.631E-02_JPRB,.693E-02_JPRB,.808E-02_JPRB,.976E-02_JPRB,.128E-01_JPRB,.173E-01_JPRB,.190E-01_JPRB,&
+&.153E-01_JPRB,.133E-01_JPRB,.116E-01_JPRB,.971E-02_JPRB,.842E-02_JPRB,.733E-02_JPRB,.684E-02_JPRB,&
+&.668E-02_JPRB,.677E-02_JPRB,.698E-02_JPRB,.710E-02_JPRB,.693E-02_JPRB,.643E-02_JPRB,.595E-02_JPRB,&
+&.583E-02_JPRB,.629E-02_JPRB,.843E-02_JPRB,.136E-01_JPRB,.237E-01_JPRB,.725E-01_JPRB,.169E+00_JPRB,&
+&.156E+00_JPRB,.109E+00_JPRB,.586E-01_JPRB,.346E-01_JPRB,.264E-01_JPRB,.219E-01_JPRB,.176E-01_JPRB,&
+&.141E-01_JPRB,.117E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 16  30.0
+ZAER (:,16, 8) = (/&
+&.144E-01_JPRB,.137E-01_JPRB,.126E-01_JPRB,.111E-01_JPRB,.968E-02_JPRB,.870E-02_JPRB,.774E-02_JPRB,&
+&.707E-02_JPRB,.655E-02_JPRB,.616E-02_JPRB,.598E-02_JPRB,.570E-02_JPRB,.545E-02_JPRB,.530E-02_JPRB,&
+&.525E-02_JPRB,.527E-02_JPRB,.526E-02_JPRB,.513E-02_JPRB,.496E-02_JPRB,.484E-02_JPRB,.482E-02_JPRB,&
+&.507E-02_JPRB,.899E-02_JPRB,.189E-01_JPRB,.211E-01_JPRB,.175E-01_JPRB,.139E-01_JPRB,.119E-01_JPRB,&
+&.107E-01_JPRB,.956E-02_JPRB,.841E-02_JPRB,.765E-02_JPRB,.724E-02_JPRB,.703E-02_JPRB,.695E-02_JPRB,&
+&.726E-02_JPRB,.824E-02_JPRB,.106E-01_JPRB,.156E-01_JPRB,.259E-01_JPRB,.394E-01_JPRB,.392E-01_JPRB,&
+&.297E-01_JPRB,.217E-01_JPRB,.157E-01_JPRB,.129E-01_JPRB,.108E-01_JPRB,.932E-02_JPRB,.880E-02_JPRB,&
+&.880E-02_JPRB,.928E-02_JPRB,.991E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.989E-02_JPRB,.929E-02_JPRB,&
+&.945E-02_JPRB,.106E-01_JPRB,.158E-01_JPRB,.253E-01_JPRB,.401E-01_JPRB,.900E-01_JPRB,.230E+00_JPRB,&
+&.220E+00_JPRB,.154E+00_JPRB,.715E-01_JPRB,.397E-01_JPRB,.297E-01_JPRB,.240E-01_JPRB,.206E-01_JPRB,&
+&.178E-01_JPRB,.158E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 17  26.0
+ZAER (:,17, 8) = (/&
+&.165E-01_JPRB,.152E-01_JPRB,.134E-01_JPRB,.117E-01_JPRB,.106E-01_JPRB,.992E-02_JPRB,.923E-02_JPRB,&
+&.864E-02_JPRB,.818E-02_JPRB,.770E-02_JPRB,.732E-02_JPRB,.695E-02_JPRB,.658E-02_JPRB,.611E-02_JPRB,&
+&.567E-02_JPRB,.543E-02_JPRB,.534E-02_JPRB,.517E-02_JPRB,.505E-02_JPRB,.504E-02_JPRB,.516E-02_JPRB,&
+&.582E-02_JPRB,.877E-02_JPRB,.183E-01_JPRB,.181E-01_JPRB,.138E-01_JPRB,.122E-01_JPRB,.116E-01_JPRB,&
+&.112E-01_JPRB,.107E-01_JPRB,.996E-02_JPRB,.903E-02_JPRB,.851E-02_JPRB,.818E-02_JPRB,.790E-02_JPRB,&
+&.840E-02_JPRB,.101E-01_JPRB,.139E-01_JPRB,.214E-01_JPRB,.346E-01_JPRB,.478E-01_JPRB,.623E-01_JPRB,&
+&.455E-01_JPRB,.268E-01_JPRB,.214E-01_JPRB,.185E-01_JPRB,.151E-01_JPRB,.133E-01_JPRB,.125E-01_JPRB,&
+&.123E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,&
+&.141E-01_JPRB,.153E-01_JPRB,.259E-01_JPRB,.427E-01_JPRB,.542E-01_JPRB,.734E-01_JPRB,.114E+00_JPRB,&
+&.121E+00_JPRB,.893E-01_JPRB,.522E-01_JPRB,.326E-01_JPRB,.266E-01_JPRB,.230E-01_JPRB,.209E-01_JPRB,&
+&.194E-01_JPRB,.179E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 18  22.0
+ZAER (:,18, 8) = (/&
+&.147E-01_JPRB,.135E-01_JPRB,.122E-01_JPRB,.108E-01_JPRB,.950E-02_JPRB,.869E-02_JPRB,.839E-02_JPRB,&
+&.809E-02_JPRB,.792E-02_JPRB,.769E-02_JPRB,.737E-02_JPRB,.695E-02_JPRB,.650E-02_JPRB,.597E-02_JPRB,&
+&.551E-02_JPRB,.535E-02_JPRB,.531E-02_JPRB,.522E-02_JPRB,.521E-02_JPRB,.528E-02_JPRB,.542E-02_JPRB,&
+&.651E-02_JPRB,.102E-01_JPRB,.177E-01_JPRB,.266E-01_JPRB,.160E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,&
+&.118E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.972E-02_JPRB,.953E-02_JPRB,&
+&.103E-01_JPRB,.128E-01_JPRB,.174E-01_JPRB,.241E-01_JPRB,.383E-01_JPRB,.570E-01_JPRB,.881E-01_JPRB,&
+&.431E-01_JPRB,.286E-01_JPRB,.285E-01_JPRB,.267E-01_JPRB,.201E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,&
+&.166E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.161E-01_JPRB,&
+&.183E-01_JPRB,.230E-01_JPRB,.343E-01_JPRB,.455E-01_JPRB,.507E-01_JPRB,.564E-01_JPRB,.587E-01_JPRB,&
+&.512E-01_JPRB,.406E-01_JPRB,.310E-01_JPRB,.253E-01_JPRB,.228E-01_JPRB,.206E-01_JPRB,.189E-01_JPRB,&
+&.178E-01_JPRB,.162E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 19  18.0
+ZAER (:,19, 8) = (/&
+&.104E-01_JPRB,.972E-02_JPRB,.917E-02_JPRB,.837E-02_JPRB,.756E-02_JPRB,.698E-02_JPRB,.675E-02_JPRB,&
+&.667E-02_JPRB,.671E-02_JPRB,.660E-02_JPRB,.647E-02_JPRB,.637E-02_JPRB,.621E-02_JPRB,.587E-02_JPRB,&
+&.568E-02_JPRB,.556E-02_JPRB,.554E-02_JPRB,.565E-02_JPRB,.579E-02_JPRB,.607E-02_JPRB,.677E-02_JPRB,&
+&.804E-02_JPRB,.105E-01_JPRB,.159E-01_JPRB,.225E-01_JPRB,.149E-01_JPRB,.140E-01_JPRB,.128E-01_JPRB,&
+&.115E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,&
+&.137E-01_JPRB,.170E-01_JPRB,.220E-01_JPRB,.263E-01_JPRB,.321E-01_JPRB,.419E-01_JPRB,.436E-01_JPRB,&
+&.333E-01_JPRB,.325E-01_JPRB,.366E-01_JPRB,.339E-01_JPRB,.243E-01_JPRB,.213E-01_JPRB,.200E-01_JPRB,&
+&.194E-01_JPRB,.191E-01_JPRB,.187E-01_JPRB,.179E-01_JPRB,.173E-01_JPRB,.176E-01_JPRB,.195E-01_JPRB,&
+&.221E-01_JPRB,.252E-01_JPRB,.282E-01_JPRB,.311E-01_JPRB,.325E-01_JPRB,.344E-01_JPRB,.340E-01_JPRB,&
+&.304E-01_JPRB,.251E-01_JPRB,.216E-01_JPRB,.200E-01_JPRB,.183E-01_JPRB,.162E-01_JPRB,.142E-01_JPRB,&
+&.126E-01_JPRB,.112E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 20  14.0
+ZAER (:,20, 8) = (/&
+&.660E-02_JPRB,.626E-02_JPRB,.583E-02_JPRB,.564E-02_JPRB,.576E-02_JPRB,.584E-02_JPRB,.585E-02_JPRB,&
+&.589E-02_JPRB,.592E-02_JPRB,.602E-02_JPRB,.627E-02_JPRB,.644E-02_JPRB,.648E-02_JPRB,.642E-02_JPRB,&
+&.640E-02_JPRB,.642E-02_JPRB,.646E-02_JPRB,.667E-02_JPRB,.705E-02_JPRB,.788E-02_JPRB,.937E-02_JPRB,&
+&.106E-01_JPRB,.132E-01_JPRB,.164E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.135E-01_JPRB,&
+&.128E-01_JPRB,.134E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.152E-01_JPRB,.158E-01_JPRB,.168E-01_JPRB,&
+&.190E-01_JPRB,.217E-01_JPRB,.246E-01_JPRB,.269E-01_JPRB,.299E-01_JPRB,.320E-01_JPRB,.327E-01_JPRB,&
+&.374E-01_JPRB,.402E-01_JPRB,.359E-01_JPRB,.283E-01_JPRB,.233E-01_JPRB,.203E-01_JPRB,.193E-01_JPRB,&
+&.182E-01_JPRB,.175E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.163E-01_JPRB,.175E-01_JPRB,.193E-01_JPRB,&
+&.205E-01_JPRB,.216E-01_JPRB,.233E-01_JPRB,.240E-01_JPRB,.242E-01_JPRB,.232E-01_JPRB,.215E-01_JPRB,&
+&.198E-01_JPRB,.174E-01_JPRB,.150E-01_JPRB,.135E-01_JPRB,.120E-01_JPRB,.982E-02_JPRB,.826E-02_JPRB,&
+&.723E-02_JPRB,.669E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 21  10.0
+ZAER (:,21, 8) = (/&
+&.450E-02_JPRB,.448E-02_JPRB,.455E-02_JPRB,.477E-02_JPRB,.509E-02_JPRB,.536E-02_JPRB,.560E-02_JPRB,&
+&.589E-02_JPRB,.620E-02_JPRB,.640E-02_JPRB,.664E-02_JPRB,.687E-02_JPRB,.697E-02_JPRB,.705E-02_JPRB,&
+&.726E-02_JPRB,.755E-02_JPRB,.793E-02_JPRB,.849E-02_JPRB,.932E-02_JPRB,.108E-01_JPRB,.129E-01_JPRB,&
+&.145E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.140E-01_JPRB,.151E-01_JPRB,.161E-01_JPRB,.171E-01_JPRB,&
+&.167E-01_JPRB,.171E-01_JPRB,.185E-01_JPRB,.192E-01_JPRB,.195E-01_JPRB,.199E-01_JPRB,.211E-01_JPRB,&
+&.229E-01_JPRB,.248E-01_JPRB,.264E-01_JPRB,.280E-01_JPRB,.301E-01_JPRB,.330E-01_JPRB,.403E-01_JPRB,&
+&.473E-01_JPRB,.434E-01_JPRB,.298E-01_JPRB,.218E-01_JPRB,.187E-01_JPRB,.173E-01_JPRB,.160E-01_JPRB,&
+&.146E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.129E-01_JPRB,.137E-01_JPRB,.146E-01_JPRB,.159E-01_JPRB,&
+&.174E-01_JPRB,.191E-01_JPRB,.203E-01_JPRB,.199E-01_JPRB,.189E-01_JPRB,.168E-01_JPRB,.146E-01_JPRB,&
+&.131E-01_JPRB,.114E-01_JPRB,.964E-02_JPRB,.816E-02_JPRB,.682E-02_JPRB,.539E-02_JPRB,.461E-02_JPRB,&
+&.439E-02_JPRB,.436E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 22   6.0
+ZAER (:,22, 8) = (/&
+&.391E-02_JPRB,.424E-02_JPRB,.462E-02_JPRB,.499E-02_JPRB,.533E-02_JPRB,.566E-02_JPRB,.604E-02_JPRB,&
+&.638E-02_JPRB,.667E-02_JPRB,.692E-02_JPRB,.714E-02_JPRB,.733E-02_JPRB,.743E-02_JPRB,.758E-02_JPRB,&
+&.793E-02_JPRB,.846E-02_JPRB,.915E-02_JPRB,.101E-01_JPRB,.112E-01_JPRB,.126E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.136E-01_JPRB,.145E-01_JPRB,.163E-01_JPRB,.179E-01_JPRB,.192E-01_JPRB,.204E-01_JPRB,&
+&.208E-01_JPRB,.213E-01_JPRB,.223E-01_JPRB,.230E-01_JPRB,.235E-01_JPRB,.245E-01_JPRB,.261E-01_JPRB,&
+&.273E-01_JPRB,.290E-01_JPRB,.300E-01_JPRB,.302E-01_JPRB,.314E-01_JPRB,.341E-01_JPRB,.411E-01_JPRB,&
+&.459E-01_JPRB,.362E-01_JPRB,.221E-01_JPRB,.153E-01_JPRB,.130E-01_JPRB,.118E-01_JPRB,.102E-01_JPRB,&
+&.902E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.886E-02_JPRB,.939E-02_JPRB,.998E-02_JPRB,.111E-01_JPRB,&
+&.125E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.123E-01_JPRB,.109E-01_JPRB,.902E-02_JPRB,.737E-02_JPRB,&
+&.627E-02_JPRB,.562E-02_JPRB,.480E-02_JPRB,.409E-02_JPRB,.370E-02_JPRB,.341E-02_JPRB,.334E-02_JPRB,&
+&.349E-02_JPRB,.365E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 23   2.0
+ZAER (:,23, 8) = (/&
+&.350E-02_JPRB,.393E-02_JPRB,.437E-02_JPRB,.477E-02_JPRB,.516E-02_JPRB,.555E-02_JPRB,.591E-02_JPRB,&
+&.614E-02_JPRB,.629E-02_JPRB,.639E-02_JPRB,.643E-02_JPRB,.652E-02_JPRB,.683E-02_JPRB,.724E-02_JPRB,&
+&.767E-02_JPRB,.823E-02_JPRB,.890E-02_JPRB,.960E-02_JPRB,.104E-01_JPRB,.117E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.139E-01_JPRB,.157E-01_JPRB,.176E-01_JPRB,.196E-01_JPRB,.218E-01_JPRB,.232E-01_JPRB,&
+&.227E-01_JPRB,.223E-01_JPRB,.232E-01_JPRB,.241E-01_JPRB,.254E-01_JPRB,.272E-01_JPRB,.293E-01_JPRB,&
+&.312E-01_JPRB,.330E-01_JPRB,.352E-01_JPRB,.375E-01_JPRB,.400E-01_JPRB,.430E-01_JPRB,.467E-01_JPRB,&
+&.506E-01_JPRB,.460E-01_JPRB,.283E-01_JPRB,.125E-01_JPRB,.976E-02_JPRB,.795E-02_JPRB,.719E-02_JPRB,&
+&.655E-02_JPRB,.603E-02_JPRB,.569E-02_JPRB,.550E-02_JPRB,.554E-02_JPRB,.579E-02_JPRB,.624E-02_JPRB,&
+&.672E-02_JPRB,.700E-02_JPRB,.680E-02_JPRB,.605E-02_JPRB,.498E-02_JPRB,.372E-02_JPRB,.297E-02_JPRB,&
+&.259E-02_JPRB,.234E-02_JPRB,.215E-02_JPRB,.216E-02_JPRB,.226E-02_JPRB,.238E-02_JPRB,.255E-02_JPRB,&
+&.282E-02_JPRB,.312E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 24  -2.0
+ZAER (:,24, 8) = (/&
+&.256E-02_JPRB,.286E-02_JPRB,.314E-02_JPRB,.343E-02_JPRB,.373E-02_JPRB,.403E-02_JPRB,.433E-02_JPRB,&
+&.455E-02_JPRB,.470E-02_JPRB,.482E-02_JPRB,.493E-02_JPRB,.505E-02_JPRB,.528E-02_JPRB,.545E-02_JPRB,&
+&.564E-02_JPRB,.606E-02_JPRB,.637E-02_JPRB,.663E-02_JPRB,.702E-02_JPRB,.770E-02_JPRB,.937E-02_JPRB,&
+&.109E-01_JPRB,.123E-01_JPRB,.139E-01_JPRB,.155E-01_JPRB,.176E-01_JPRB,.193E-01_JPRB,.203E-01_JPRB,&
+&.208E-01_JPRB,.206E-01_JPRB,.204E-01_JPRB,.199E-01_JPRB,.206E-01_JPRB,.238E-01_JPRB,.278E-01_JPRB,&
+&.312E-01_JPRB,.341E-01_JPRB,.356E-01_JPRB,.393E-01_JPRB,.456E-01_JPRB,.527E-01_JPRB,.642E-01_JPRB,&
+&.770E-01_JPRB,.917E-01_JPRB,.901E-01_JPRB,.559E-01_JPRB,.238E-01_JPRB,.156E-01_JPRB,.120E-01_JPRB,&
+&.991E-02_JPRB,.785E-02_JPRB,.629E-02_JPRB,.501E-02_JPRB,.437E-02_JPRB,.361E-02_JPRB,.338E-02_JPRB,&
+&.327E-02_JPRB,.306E-02_JPRB,.286E-02_JPRB,.240E-02_JPRB,.184E-02_JPRB,.138E-02_JPRB,.119E-02_JPRB,&
+&.111E-02_JPRB,.109E-02_JPRB,.114E-02_JPRB,.125E-02_JPRB,.138E-02_JPRB,.155E-02_JPRB,.175E-02_JPRB,&
+&.198E-02_JPRB,.225E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 25  -6.0
+ZAER (:,25, 8) = (/&
+&.169E-02_JPRB,.191E-02_JPRB,.211E-02_JPRB,.232E-02_JPRB,.254E-02_JPRB,.274E-02_JPRB,.293E-02_JPRB,&
+&.311E-02_JPRB,.324E-02_JPRB,.334E-02_JPRB,.344E-02_JPRB,.352E-02_JPRB,.362E-02_JPRB,.366E-02_JPRB,&
+&.365E-02_JPRB,.373E-02_JPRB,.389E-02_JPRB,.418E-02_JPRB,.469E-02_JPRB,.566E-02_JPRB,.723E-02_JPRB,&
+&.898E-02_JPRB,.105E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.176E-01_JPRB,.200E-01_JPRB,.211E-01_JPRB,&
+&.213E-01_JPRB,.203E-01_JPRB,.185E-01_JPRB,.164E-01_JPRB,.152E-01_JPRB,.175E-01_JPRB,.220E-01_JPRB,&
+&.276E-01_JPRB,.331E-01_JPRB,.380E-01_JPRB,.442E-01_JPRB,.560E-01_JPRB,.714E-01_JPRB,.969E-01_JPRB,&
+&.127E+00_JPRB,.165E+00_JPRB,.214E+00_JPRB,.227E+00_JPRB,.329E+00_JPRB,.142E+00_JPRB,.600E-01_JPRB,&
+&.409E-01_JPRB,.318E-01_JPRB,.276E-01_JPRB,.211E-01_JPRB,.156E-01_JPRB,.919E-02_JPRB,.414E-02_JPRB,&
+&.233E-02_JPRB,.160E-02_JPRB,.126E-02_JPRB,.931E-03_JPRB,.776E-03_JPRB,.643E-03_JPRB,.593E-03_JPRB,&
+&.571E-03_JPRB,.588E-03_JPRB,.658E-03_JPRB,.746E-03_JPRB,.845E-03_JPRB,.967E-03_JPRB,.111E-02_JPRB,&
+&.128E-02_JPRB,.146E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 26 -10.0
+ZAER (:,26, 8) = (/&
+&.117E-02_JPRB,.138E-02_JPRB,.158E-02_JPRB,.175E-02_JPRB,.187E-02_JPRB,.199E-02_JPRB,.207E-02_JPRB,&
+&.216E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.223E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,.208E-02_JPRB,&
+&.205E-02_JPRB,.216E-02_JPRB,.245E-02_JPRB,.279E-02_JPRB,.330E-02_JPRB,.419E-02_JPRB,.593E-02_JPRB,&
+&.874E-02_JPRB,.112E-01_JPRB,.132E-01_JPRB,.170E-01_JPRB,.221E-01_JPRB,.263E-01_JPRB,.292E-01_JPRB,&
+&.303E-01_JPRB,.298E-01_JPRB,.280E-01_JPRB,.237E-01_JPRB,.196E-01_JPRB,.205E-01_JPRB,.216E-01_JPRB,&
+&.270E-01_JPRB,.347E-01_JPRB,.424E-01_JPRB,.519E-01_JPRB,.699E-01_JPRB,.982E-01_JPRB,.129E+00_JPRB,&
+&.162E+00_JPRB,.224E+00_JPRB,.307E+00_JPRB,.417E+00_JPRB,.961E+00_JPRB,.695E+00_JPRB,.253E+00_JPRB,&
+&.168E+00_JPRB,.138E+00_JPRB,.137E+00_JPRB,.111E+00_JPRB,.760E-01_JPRB,.377E-01_JPRB,.111E-01_JPRB,&
+&.562E-02_JPRB,.382E-02_JPRB,.329E-02_JPRB,.893E-03_JPRB,.562E-03_JPRB,.429E-03_JPRB,.360E-03_JPRB,&
+&.368E-03_JPRB,.387E-03_JPRB,.452E-03_JPRB,.511E-03_JPRB,.541E-03_JPRB,.596E-03_JPRB,.733E-03_JPRB,&
+&.908E-03_JPRB,.102E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 27 -14.0
+ZAER (:,27, 8) = (/&
+&.126E-02_JPRB,.152E-02_JPRB,.180E-02_JPRB,.202E-02_JPRB,.223E-02_JPRB,.257E-02_JPRB,.292E-02_JPRB,&
+&.310E-02_JPRB,.313E-02_JPRB,.301E-02_JPRB,.311E-02_JPRB,.325E-02_JPRB,.340E-02_JPRB,.310E-02_JPRB,&
+&.276E-02_JPRB,.276E-02_JPRB,.287E-02_JPRB,.299E-02_JPRB,.337E-02_JPRB,.450E-02_JPRB,.654E-02_JPRB,&
+&.983E-02_JPRB,.140E-01_JPRB,.182E-01_JPRB,.234E-01_JPRB,.303E-01_JPRB,.389E-01_JPRB,.472E-01_JPRB,&
+&.541E-01_JPRB,.568E-01_JPRB,.568E-01_JPRB,.536E-01_JPRB,.553E-01_JPRB,.544E-01_JPRB,.479E-01_JPRB,&
+&.533E-01_JPRB,.656E-01_JPRB,.737E-01_JPRB,.800E-01_JPRB,.985E-01_JPRB,.131E+00_JPRB,.167E+00_JPRB,&
+&.203E+00_JPRB,.255E+00_JPRB,.295E+00_JPRB,.349E+00_JPRB,.705E+00_JPRB,.816E+00_JPRB,.556E+00_JPRB,&
+&.359E+00_JPRB,.277E+00_JPRB,.274E+00_JPRB,.258E+00_JPRB,.184E+00_JPRB,.980E-01_JPRB,.385E-01_JPRB,&
+&.187E-01_JPRB,.113E-01_JPRB,.722E-02_JPRB,.313E-02_JPRB,.172E-02_JPRB,.113E-02_JPRB,.775E-03_JPRB,&
+&.662E-03_JPRB,.658E-03_JPRB,.691E-03_JPRB,.715E-03_JPRB,.729E-03_JPRB,.700E-03_JPRB,.711E-03_JPRB,&
+&.888E-03_JPRB,.107E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 28 -18.0
+ZAER (:,28, 8) = (/&
+&.227E-02_JPRB,.289E-02_JPRB,.345E-02_JPRB,.379E-02_JPRB,.421E-02_JPRB,.476E-02_JPRB,.531E-02_JPRB,&
+&.570E-02_JPRB,.584E-02_JPRB,.575E-02_JPRB,.581E-02_JPRB,.605E-02_JPRB,.660E-02_JPRB,.716E-02_JPRB,&
+&.724E-02_JPRB,.617E-02_JPRB,.547E-02_JPRB,.533E-02_JPRB,.509E-02_JPRB,.593E-02_JPRB,.869E-02_JPRB,&
+&.119E-01_JPRB,.152E-01_JPRB,.199E-01_JPRB,.265E-01_JPRB,.348E-01_JPRB,.438E-01_JPRB,.494E-01_JPRB,&
+&.532E-01_JPRB,.590E-01_JPRB,.680E-01_JPRB,.795E-01_JPRB,.103E+00_JPRB,.116E+00_JPRB,.112E+00_JPRB,&
+&.115E+00_JPRB,.119E+00_JPRB,.127E+00_JPRB,.134E+00_JPRB,.147E+00_JPRB,.175E+00_JPRB,.206E+00_JPRB,&
+&.228E+00_JPRB,.258E+00_JPRB,.271E+00_JPRB,.306E+00_JPRB,.369E+00_JPRB,.605E+00_JPRB,.645E+00_JPRB,&
+&.527E+00_JPRB,.392E+00_JPRB,.348E+00_JPRB,.294E+00_JPRB,.233E+00_JPRB,.155E+00_JPRB,.817E-01_JPRB,&
+&.480E-01_JPRB,.316E-01_JPRB,.199E-01_JPRB,.110E-01_JPRB,.582E-02_JPRB,.396E-02_JPRB,.339E-02_JPRB,&
+&.292E-02_JPRB,.238E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.230E-02_JPRB,.200E-02_JPRB,.169E-02_JPRB,&
+&.161E-02_JPRB,.177E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 29 -22.0
+ZAER (:,29, 8) = (/&
+&.402E-02_JPRB,.465E-02_JPRB,.528E-02_JPRB,.557E-02_JPRB,.595E-02_JPRB,.650E-02_JPRB,.727E-02_JPRB,&
+&.830E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.920E-02_JPRB,.926E-02_JPRB,.100E-01_JPRB,.139E-01_JPRB,&
+&.180E-01_JPRB,.140E-01_JPRB,.946E-02_JPRB,.802E-02_JPRB,.822E-02_JPRB,.632E-02_JPRB,.743E-02_JPRB,&
+&.102E-01_JPRB,.125E-01_JPRB,.146E-01_JPRB,.205E-01_JPRB,.270E-01_JPRB,.313E-01_JPRB,.300E-01_JPRB,&
+&.317E-01_JPRB,.383E-01_JPRB,.512E-01_JPRB,.745E-01_JPRB,.113E+00_JPRB,.151E+00_JPRB,.143E+00_JPRB,&
+&.154E+00_JPRB,.156E+00_JPRB,.156E+00_JPRB,.168E+00_JPRB,.178E+00_JPRB,.195E+00_JPRB,.210E+00_JPRB,&
+&.220E+00_JPRB,.230E+00_JPRB,.235E+00_JPRB,.249E+00_JPRB,.273E+00_JPRB,.360E+00_JPRB,.450E+00_JPRB,&
+&.467E+00_JPRB,.443E+00_JPRB,.377E+00_JPRB,.284E+00_JPRB,.189E+00_JPRB,.148E+00_JPRB,.110E+00_JPRB,&
+&.754E-01_JPRB,.521E-01_JPRB,.311E-01_JPRB,.171E-01_JPRB,.117E-01_JPRB,.105E-01_JPRB,.111E-01_JPRB,&
+&.103E-01_JPRB,.893E-02_JPRB,.102E-01_JPRB,.952E-02_JPRB,.716E-02_JPRB,.550E-02_JPRB,.471E-02_JPRB,&
+&.418E-02_JPRB,.374E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 30 -26.0
+ZAER (:,30, 8) = (/&
+&.891E-02_JPRB,.933E-02_JPRB,.915E-02_JPRB,.878E-02_JPRB,.849E-02_JPRB,.846E-02_JPRB,.912E-02_JPRB,&
+&.108E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,.142E-01_JPRB,.239E-01_JPRB,&
+&.279E-01_JPRB,.236E-01_JPRB,.176E-01_JPRB,.909E-02_JPRB,.802E-02_JPRB,.704E-02_JPRB,.694E-02_JPRB,&
+&.839E-02_JPRB,.933E-02_JPRB,.987E-02_JPRB,.132E-01_JPRB,.171E-01_JPRB,.199E-01_JPRB,.186E-01_JPRB,&
+&.173E-01_JPRB,.177E-01_JPRB,.215E-01_JPRB,.365E-01_JPRB,.714E-01_JPRB,.119E+00_JPRB,.139E+00_JPRB,&
+&.159E+00_JPRB,.190E+00_JPRB,.179E+00_JPRB,.184E+00_JPRB,.186E+00_JPRB,.186E+00_JPRB,.194E+00_JPRB,&
+&.183E+00_JPRB,.173E+00_JPRB,.175E+00_JPRB,.190E+00_JPRB,.220E+00_JPRB,.247E+00_JPRB,.261E+00_JPRB,&
+&.317E+00_JPRB,.383E+00_JPRB,.358E+00_JPRB,.245E+00_JPRB,.138E+00_JPRB,.988E-01_JPRB,.933E-01_JPRB,&
+&.811E-01_JPRB,.601E-01_JPRB,.349E-01_JPRB,.201E-01_JPRB,.192E-01_JPRB,.226E-01_JPRB,.281E-01_JPRB,&
+&.296E-01_JPRB,.296E-01_JPRB,.283E-01_JPRB,.214E-01_JPRB,.154E-01_JPRB,.117E-01_JPRB,.102E-01_JPRB,&
+&.939E-02_JPRB,.864E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 31 -30.0
+ZAER (:,31, 8) = (/&
+&.185E-01_JPRB,.185E-01_JPRB,.169E-01_JPRB,.153E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,&
+&.136E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.161E-01_JPRB,.164E-01_JPRB,.178E-01_JPRB,.237E-01_JPRB,&
+&.220E-01_JPRB,.260E-01_JPRB,.228E-01_JPRB,.117E-01_JPRB,.919E-02_JPRB,.895E-02_JPRB,.817E-02_JPRB,&
+&.768E-02_JPRB,.781E-02_JPRB,.816E-02_JPRB,.924E-02_JPRB,.107E-01_JPRB,.133E-01_JPRB,.125E-01_JPRB,&
+&.104E-01_JPRB,.894E-02_JPRB,.885E-02_JPRB,.118E-01_JPRB,.210E-01_JPRB,.423E-01_JPRB,.822E-01_JPRB,&
+&.118E+00_JPRB,.152E+00_JPRB,.173E+00_JPRB,.201E+00_JPRB,.184E+00_JPRB,.153E+00_JPRB,.156E+00_JPRB,&
+&.122E+00_JPRB,.104E+00_JPRB,.123E+00_JPRB,.152E+00_JPRB,.185E+00_JPRB,.213E+00_JPRB,.226E+00_JPRB,&
+&.241E+00_JPRB,.241E+00_JPRB,.219E+00_JPRB,.170E+00_JPRB,.116E+00_JPRB,.846E-01_JPRB,.746E-01_JPRB,&
+&.715E-01_JPRB,.573E-01_JPRB,.337E-01_JPRB,.206E-01_JPRB,.202E-01_JPRB,.241E-01_JPRB,.328E-01_JPRB,&
+&.415E-01_JPRB,.439E-01_JPRB,.406E-01_JPRB,.312E-01_JPRB,.241E-01_JPRB,.197E-01_JPRB,.169E-01_JPRB,&
+&.157E-01_JPRB,.168E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 32 -34.0
+ZAER (:,32, 8) = (/&
+&.247E-01_JPRB,.234E-01_JPRB,.217E-01_JPRB,.206E-01_JPRB,.195E-01_JPRB,.187E-01_JPRB,.182E-01_JPRB,&
+&.171E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.174E-01_JPRB,.187E-01_JPRB,.210E-01_JPRB,.200E-01_JPRB,&
+&.188E-01_JPRB,.216E-01_JPRB,.240E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,&
+&.114E-01_JPRB,.105E-01_JPRB,.935E-02_JPRB,.909E-02_JPRB,.894E-02_JPRB,.980E-02_JPRB,.100E-01_JPRB,&
+&.936E-02_JPRB,.875E-02_JPRB,.852E-02_JPRB,.853E-02_JPRB,.976E-02_JPRB,.146E-01_JPRB,.298E-01_JPRB,&
+&.547E-01_JPRB,.807E-01_JPRB,.118E+00_JPRB,.154E+00_JPRB,.129E+00_JPRB,.884E-01_JPRB,.733E-01_JPRB,&
+&.581E-01_JPRB,.543E-01_JPRB,.908E-01_JPRB,.119E+00_JPRB,.144E+00_JPRB,.172E+00_JPRB,.189E+00_JPRB,&
+&.201E+00_JPRB,.190E+00_JPRB,.174E+00_JPRB,.146E+00_JPRB,.112E+00_JPRB,.103E+00_JPRB,.932E-01_JPRB,&
+&.726E-01_JPRB,.552E-01_JPRB,.335E-01_JPRB,.220E-01_JPRB,.178E-01_JPRB,.206E-01_JPRB,.275E-01_JPRB,&
+&.394E-01_JPRB,.437E-01_JPRB,.403E-01_JPRB,.336E-01_JPRB,.269E-01_JPRB,.243E-01_JPRB,.222E-01_JPRB,&
+&.218E-01_JPRB,.240E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 33 -38.0
+ZAER (:,33, 8) = (/&
+&.246E-01_JPRB,.230E-01_JPRB,.229E-01_JPRB,.226E-01_JPRB,.221E-01_JPRB,.218E-01_JPRB,.214E-01_JPRB,&
+&.198E-01_JPRB,.185E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.196E-01_JPRB,.220E-01_JPRB,.207E-01_JPRB,&
+&.177E-01_JPRB,.173E-01_JPRB,.184E-01_JPRB,.156E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.152E-01_JPRB,&
+&.154E-01_JPRB,.145E-01_JPRB,.126E-01_JPRB,.113E-01_JPRB,.100E-01_JPRB,.944E-02_JPRB,.934E-02_JPRB,&
+&.939E-02_JPRB,.940E-02_JPRB,.948E-02_JPRB,.975E-02_JPRB,.104E-01_JPRB,.115E-01_JPRB,.152E-01_JPRB,&
+&.239E-01_JPRB,.392E-01_JPRB,.620E-01_JPRB,.751E-01_JPRB,.683E-01_JPRB,.479E-01_JPRB,.387E-01_JPRB,&
+&.396E-01_JPRB,.411E-01_JPRB,.471E-01_JPRB,.689E-01_JPRB,.109E+00_JPRB,.132E+00_JPRB,.137E+00_JPRB,&
+&.144E+00_JPRB,.121E+00_JPRB,.116E+00_JPRB,.136E+00_JPRB,.112E+00_JPRB,.104E+00_JPRB,.100E+00_JPRB,&
+&.858E-01_JPRB,.604E-01_JPRB,.418E-01_JPRB,.329E-01_JPRB,.259E-01_JPRB,.253E-01_JPRB,.331E-01_JPRB,&
+&.435E-01_JPRB,.468E-01_JPRB,.405E-01_JPRB,.340E-01_JPRB,.288E-01_JPRB,.268E-01_JPRB,.260E-01_JPRB,&
+&.258E-01_JPRB,.262E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 34 -42.0
+ZAER (:,34, 8) = (/&
+&.240E-01_JPRB,.232E-01_JPRB,.221E-01_JPRB,.220E-01_JPRB,.220E-01_JPRB,.215E-01_JPRB,.213E-01_JPRB,&
+&.207E-01_JPRB,.197E-01_JPRB,.192E-01_JPRB,.196E-01_JPRB,.213E-01_JPRB,.224E-01_JPRB,.219E-01_JPRB,&
+&.203E-01_JPRB,.199E-01_JPRB,.199E-01_JPRB,.178E-01_JPRB,.170E-01_JPRB,.172E-01_JPRB,.175E-01_JPRB,&
+&.175E-01_JPRB,.170E-01_JPRB,.156E-01_JPRB,.137E-01_JPRB,.119E-01_JPRB,.105E-01_JPRB,.985E-02_JPRB,&
+&.985E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.126E-01_JPRB,&
+&.156E-01_JPRB,.243E-01_JPRB,.359E-01_JPRB,.430E-01_JPRB,.431E-01_JPRB,.369E-01_JPRB,.327E-01_JPRB,&
+&.350E-01_JPRB,.382E-01_JPRB,.387E-01_JPRB,.513E-01_JPRB,.924E-01_JPRB,.119E+00_JPRB,.111E+00_JPRB,&
+&.130E+00_JPRB,.121E+00_JPRB,.102E+00_JPRB,.105E+00_JPRB,.105E+00_JPRB,.105E+00_JPRB,.117E+00_JPRB,&
+&.137E+00_JPRB,.110E+00_JPRB,.785E-01_JPRB,.706E-01_JPRB,.599E-01_JPRB,.511E-01_JPRB,.539E-01_JPRB,&
+&.533E-01_JPRB,.466E-01_JPRB,.394E-01_JPRB,.348E-01_JPRB,.301E-01_JPRB,.276E-01_JPRB,.262E-01_JPRB,&
+&.248E-01_JPRB,.243E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 35 -46.0
+ZAER (:,35, 8) = (/&
+&.221E-01_JPRB,.215E-01_JPRB,.211E-01_JPRB,.212E-01_JPRB,.203E-01_JPRB,.192E-01_JPRB,.187E-01_JPRB,&
+&.190E-01_JPRB,.193E-01_JPRB,.193E-01_JPRB,.200E-01_JPRB,.221E-01_JPRB,.243E-01_JPRB,.254E-01_JPRB,&
+&.249E-01_JPRB,.240E-01_JPRB,.234E-01_JPRB,.207E-01_JPRB,.190E-01_JPRB,.180E-01_JPRB,.175E-01_JPRB,&
+&.171E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.157E-01_JPRB,.145E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.122E-01_JPRB,&
+&.129E-01_JPRB,.174E-01_JPRB,.245E-01_JPRB,.282E-01_JPRB,.274E-01_JPRB,.266E-01_JPRB,.270E-01_JPRB,&
+&.310E-01_JPRB,.402E-01_JPRB,.461E-01_JPRB,.563E-01_JPRB,.809E-01_JPRB,.952E-01_JPRB,.954E-01_JPRB,&
+&.117E+00_JPRB,.118E+00_JPRB,.118E+00_JPRB,.112E+00_JPRB,.963E-01_JPRB,.108E+00_JPRB,.146E+00_JPRB,&
+&.153E+00_JPRB,.135E+00_JPRB,.121E+00_JPRB,.116E+00_JPRB,.954E-01_JPRB,.742E-01_JPRB,.648E-01_JPRB,&
+&.532E-01_JPRB,.424E-01_JPRB,.350E-01_JPRB,.329E-01_JPRB,.300E-01_JPRB,.263E-01_JPRB,.235E-01_JPRB,&
+&.217E-01_JPRB,.214E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 36 -50.0
+ZAER (:,36, 8) = (/&
+&.213E-01_JPRB,.212E-01_JPRB,.218E-01_JPRB,.202E-01_JPRB,.185E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,&
+&.153E-01_JPRB,.156E-01_JPRB,.165E-01_JPRB,.174E-01_JPRB,.192E-01_JPRB,.214E-01_JPRB,.230E-01_JPRB,&
+&.236E-01_JPRB,.227E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,.171E-01_JPRB,.161E-01_JPRB,.155E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.142E-01_JPRB,.135E-01_JPRB,&
+&.128E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.123E-01_JPRB,.157E-01_JPRB,.178E-01_JPRB,.182E-01_JPRB,.190E-01_JPRB,.200E-01_JPRB,&
+&.243E-01_JPRB,.399E-01_JPRB,.535E-01_JPRB,.546E-01_JPRB,.664E-01_JPRB,.796E-01_JPRB,.818E-01_JPRB,&
+&.754E-01_JPRB,.717E-01_JPRB,.741E-01_JPRB,.720E-01_JPRB,.713E-01_JPRB,.749E-01_JPRB,.913E-01_JPRB,&
+&.960E-01_JPRB,.937E-01_JPRB,.854E-01_JPRB,.841E-01_JPRB,.730E-01_JPRB,.549E-01_JPRB,.460E-01_JPRB,&
+&.391E-01_JPRB,.344E-01_JPRB,.307E-01_JPRB,.300E-01_JPRB,.296E-01_JPRB,.252E-01_JPRB,.218E-01_JPRB,&
+&.205E-01_JPRB,.207E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 37 -54.0
+ZAER (:,37, 8) = (/&
+&.229E-01_JPRB,.224E-01_JPRB,.214E-01_JPRB,.195E-01_JPRB,.183E-01_JPRB,.166E-01_JPRB,.146E-01_JPRB,&
+&.134E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.147E-01_JPRB,.162E-01_JPRB,.171E-01_JPRB,.175E-01_JPRB,&
+&.176E-01_JPRB,.177E-01_JPRB,.168E-01_JPRB,.158E-01_JPRB,.153E-01_JPRB,.145E-01_JPRB,.137E-01_JPRB,&
+&.135E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,&
+&.123E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,&
+&.996E-02_JPRB,.100E-01_JPRB,.107E-01_JPRB,.123E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,.170E-01_JPRB,&
+&.194E-01_JPRB,.246E-01_JPRB,.358E-01_JPRB,.405E-01_JPRB,.421E-01_JPRB,.466E-01_JPRB,.564E-01_JPRB,&
+&.506E-01_JPRB,.356E-01_JPRB,.287E-01_JPRB,.293E-01_JPRB,.358E-01_JPRB,.393E-01_JPRB,.384E-01_JPRB,&
+&.390E-01_JPRB,.417E-01_JPRB,.423E-01_JPRB,.430E-01_JPRB,.412E-01_JPRB,.347E-01_JPRB,.317E-01_JPRB,&
+&.289E-01_JPRB,.272E-01_JPRB,.265E-01_JPRB,.267E-01_JPRB,.273E-01_JPRB,.254E-01_JPRB,.229E-01_JPRB,&
+&.226E-01_JPRB,.227E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 38 -58.0
+ZAER (:,38, 8) = (/&
+&.226E-01_JPRB,.214E-01_JPRB,.200E-01_JPRB,.194E-01_JPRB,.184E-01_JPRB,.170E-01_JPRB,.149E-01_JPRB,&
+&.136E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.138E-01_JPRB,.143E-01_JPRB,.147E-01_JPRB,&
+&.157E-01_JPRB,.164E-01_JPRB,.161E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,.153E-01_JPRB,.143E-01_JPRB,&
+&.139E-01_JPRB,.134E-01_JPRB,.127E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.112E-01_JPRB,.107E-01_JPRB,.996E-02_JPRB,.960E-02_JPRB,.947E-02_JPRB,.955E-02_JPRB,.954E-02_JPRB,&
+&.938E-02_JPRB,.929E-02_JPRB,.954E-02_JPRB,.100E-01_JPRB,.108E-01_JPRB,.124E-01_JPRB,.142E-01_JPRB,&
+&.152E-01_JPRB,.164E-01_JPRB,.193E-01_JPRB,.262E-01_JPRB,.289E-01_JPRB,.358E-01_JPRB,.474E-01_JPRB,&
+&.361E-01_JPRB,.242E-01_JPRB,.206E-01_JPRB,.219E-01_JPRB,.247E-01_JPRB,.237E-01_JPRB,.212E-01_JPRB,&
+&.209E-01_JPRB,.207E-01_JPRB,.216E-01_JPRB,.230E-01_JPRB,.240E-01_JPRB,.247E-01_JPRB,.248E-01_JPRB,&
+&.236E-01_JPRB,.220E-01_JPRB,.220E-01_JPRB,.225E-01_JPRB,.233E-01_JPRB,.249E-01_JPRB,.252E-01_JPRB,&
+&.244E-01_JPRB,.235E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 39 -62.0
+ZAER (:,39, 8) = (/&
+&.198E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.190E-01_JPRB,.183E-01_JPRB,.164E-01_JPRB,.154E-01_JPRB,&
+&.150E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.131E-01_JPRB,.142E-01_JPRB,&
+&.153E-01_JPRB,.162E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,.171E-01_JPRB,.182E-01_JPRB,.153E-01_JPRB,&
+&.141E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,&
+&.104E-01_JPRB,.957E-02_JPRB,.949E-02_JPRB,.944E-02_JPRB,.924E-02_JPRB,.944E-02_JPRB,.927E-02_JPRB,&
+&.905E-02_JPRB,.902E-02_JPRB,.916E-02_JPRB,.927E-02_JPRB,.933E-02_JPRB,.988E-02_JPRB,.113E-01_JPRB,&
+&.123E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.159E-01_JPRB,.209E-01_JPRB,.325E-01_JPRB,.383E-01_JPRB,&
+&.256E-01_JPRB,.191E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.207E-01_JPRB,.217E-01_JPRB,.210E-01_JPRB,&
+&.196E-01_JPRB,.171E-01_JPRB,.169E-01_JPRB,.178E-01_JPRB,.188E-01_JPRB,.191E-01_JPRB,.188E-01_JPRB,&
+&.186E-01_JPRB,.186E-01_JPRB,.190E-01_JPRB,.194E-01_JPRB,.197E-01_JPRB,.211E-01_JPRB,.222E-01_JPRB,&
+&.220E-01_JPRB,.209E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 40 -66.0
+ZAER (:,40, 8) = (/&
+&.177E-01_JPRB,.171E-01_JPRB,.163E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,&
+&.152E-01_JPRB,.151E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,&
+&.167E-01_JPRB,.190E-01_JPRB,.201E-01_JPRB,.208E-01_JPRB,.198E-01_JPRB,.174E-01_JPRB,.140E-01_JPRB,&
+&.134E-01_JPRB,.140E-01_JPRB,.131E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,&
+&.104E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.982E-02_JPRB,.975E-02_JPRB,.951E-02_JPRB,&
+&.909E-02_JPRB,.879E-02_JPRB,.888E-02_JPRB,.899E-02_JPRB,.905E-02_JPRB,.917E-02_JPRB,.959E-02_JPRB,&
+&.103E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.144E-01_JPRB,.208E-01_JPRB,.290E-01_JPRB,&
+&.228E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,.188E-01_JPRB,.201E-01_JPRB,.210E-01_JPRB,.207E-01_JPRB,&
+&.200E-01_JPRB,.174E-01_JPRB,.163E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,&
+&.154E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.158E-01_JPRB,.164E-01_JPRB,.174E-01_JPRB,.187E-01_JPRB,&
+&.194E-01_JPRB,.186E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 41 -70.0
+ZAER (:,41, 8) = (/&
+&.171E-01_JPRB,.158E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,&
+&.150E-01_JPRB,.149E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,.168E-01_JPRB,&
+&.194E-01_JPRB,.228E-01_JPRB,.241E-01_JPRB,.234E-01_JPRB,.181E-01_JPRB,.144E-01_JPRB,.123E-01_JPRB,&
+&.116E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.104E-01_JPRB,&
+&.111E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,&
+&.953E-02_JPRB,.905E-02_JPRB,.878E-02_JPRB,.862E-02_JPRB,.871E-02_JPRB,.896E-02_JPRB,.912E-02_JPRB,&
+&.928E-02_JPRB,.953E-02_JPRB,.998E-02_JPRB,.107E-01_JPRB,.120E-01_JPRB,.148E-01_JPRB,.216E-01_JPRB,&
+&.242E-01_JPRB,.234E-01_JPRB,.222E-01_JPRB,.214E-01_JPRB,.227E-01_JPRB,.249E-01_JPRB,.256E-01_JPRB,&
+&.244E-01_JPRB,.218E-01_JPRB,.194E-01_JPRB,.170E-01_JPRB,.154E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,&
+&.135E-01_JPRB,.137E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,&
+&.152E-01_JPRB,.157E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 42 -74.0
+ZAER (:,42, 8) = (/&
+&.142E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,&
+&.145E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,.154E-01_JPRB,.162E-01_JPRB,.174E-01_JPRB,&
+&.190E-01_JPRB,.219E-01_JPRB,.270E-01_JPRB,.248E-01_JPRB,.207E-01_JPRB,.181E-01_JPRB,.152E-01_JPRB,&
+&.134E-01_JPRB,.128E-01_JPRB,.115E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.981E-02_JPRB,.104E-01_JPRB,&
+&.111E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,&
+&.105E-01_JPRB,.977E-02_JPRB,.940E-02_JPRB,.928E-02_JPRB,.927E-02_JPRB,.921E-02_JPRB,.915E-02_JPRB,&
+&.928E-02_JPRB,.960E-02_JPRB,.102E-01_JPRB,.111E-01_JPRB,.123E-01_JPRB,.157E-01_JPRB,.196E-01_JPRB,&
+&.220E-01_JPRB,.243E-01_JPRB,.247E-01_JPRB,.236E-01_JPRB,.254E-01_JPRB,.345E-01_JPRB,.396E-01_JPRB,&
+&.384E-01_JPRB,.295E-01_JPRB,.240E-01_JPRB,.192E-01_JPRB,.158E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,&
+&.139E-01_JPRB,.165E-01_JPRB,.169E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 43 -78.0
+ZAER (:,43, 8) = (/&
+&.139E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,.149E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,&
+&.173E-01_JPRB,.189E-01_JPRB,.213E-01_JPRB,.205E-01_JPRB,.189E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,&
+&.188E-01_JPRB,.172E-01_JPRB,.151E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,.107E-01_JPRB,&
+&.109E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,&
+&.113E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,.127E-01_JPRB,.135E-01_JPRB,.148E-01_JPRB,&
+&.174E-01_JPRB,.206E-01_JPRB,.209E-01_JPRB,.214E-01_JPRB,.227E-01_JPRB,.235E-01_JPRB,.247E-01_JPRB,&
+&.246E-01_JPRB,.227E-01_JPRB,.206E-01_JPRB,.165E-01_JPRB,.145E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,&
+&.156E-01_JPRB,.182E-01_JPRB,.151E-01_JPRB,.145E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,&
+&.144E-01_JPRB,.142E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 44 -82.0
+ZAER (:,44, 8) = (/&
+&.133E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,&
+&.148E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.169E-01_JPRB,.174E-01_JPRB,&
+&.178E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.164E-01_JPRB,.150E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,&
+&.131E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.138E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,&
+&.130E-01_JPRB,.129E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.127E-01_JPRB,.130E-01_JPRB,.133E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,&
+&.149E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,&
+&.141E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,&
+&.138E-01_JPRB,.134E-01_JPRB,.130E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.126E-01_JPRB,&
+&.127E-01_JPRB,.130E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 45 -86.0
+ZAER (:,45, 8) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.134E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,&
+&.140E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,&
+&.154E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,&
+&.144E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,.138E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,&
+&.136E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.131E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,&
+&.127E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.127E-01_JPRB,.129E-01_JPRB,&
+&.130E-01_JPRB,.131E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  8 --- lat: 46 -90.0
+ZAER (:,46, 8) = (/&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=8   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_08
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_09.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_09.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_09.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_09
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      September
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,9:9)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  1  90.0
+ZAER (:, 1, 9) = (/&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.136E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  2  86.0
+ZAER (:, 2, 9) = (/&
+&.135E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,&
+&.141E-02_JPRB,.142E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,&
+&.150E-02_JPRB,.151E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.147E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,&
+&.138E-02_JPRB,.137E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.131E-02_JPRB,.129E-02_JPRB,&
+&.128E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,&
+&.136E-02_JPRB,.135E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  3  82.0
+ZAER (:, 3, 9) = (/&
+&.149E-02_JPRB,.155E-02_JPRB,.160E-02_JPRB,.162E-02_JPRB,.160E-02_JPRB,.155E-02_JPRB,.148E-02_JPRB,&
+&.140E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.137E-02_JPRB,.152E-02_JPRB,.169E-02_JPRB,.185E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.186E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,&
+&.183E-02_JPRB,.182E-02_JPRB,.177E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.158E-02_JPRB,.149E-02_JPRB,&
+&.145E-02_JPRB,.143E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,&
+&.146E-02_JPRB,.144E-02_JPRB,.141E-02_JPRB,.138E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,&
+&.131E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,&
+&.122E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,&
+&.136E-02_JPRB,.142E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  4  78.0
+ZAER (:, 4, 9) = (/&
+&.181E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,&
+&.174E-02_JPRB,.168E-02_JPRB,.156E-02_JPRB,.145E-02_JPRB,.140E-02_JPRB,.153E-02_JPRB,.185E-02_JPRB,&
+&.214E-02_JPRB,.226E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.226E-02_JPRB,.224E-02_JPRB,.240E-02_JPRB,&
+&.268E-02_JPRB,.284E-02_JPRB,.275E-02_JPRB,.248E-02_JPRB,.219E-02_JPRB,.193E-02_JPRB,.173E-02_JPRB,&
+&.161E-02_JPRB,.158E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.161E-02_JPRB,.158E-02_JPRB,&
+&.156E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.143E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,&
+&.136E-02_JPRB,.133E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.127E-02_JPRB,&
+&.126E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,&
+&.120E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.136E-02_JPRB,&
+&.149E-02_JPRB,.166E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  5  74.0
+ZAER (:, 5, 9) = (/&
+&.227E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.227E-02_JPRB,.218E-02_JPRB,.210E-02_JPRB,.203E-02_JPRB,&
+&.194E-02_JPRB,.186E-02_JPRB,.179E-02_JPRB,.168E-02_JPRB,.165E-02_JPRB,.169E-02_JPRB,.180E-02_JPRB,&
+&.198E-02_JPRB,.213E-02_JPRB,.217E-02_JPRB,.222E-02_JPRB,.232E-02_JPRB,.255E-02_JPRB,.312E-02_JPRB,&
+&.443E-02_JPRB,.489E-02_JPRB,.496E-02_JPRB,.482E-02_JPRB,.432E-02_JPRB,.351E-02_JPRB,.276E-02_JPRB,&
+&.232E-02_JPRB,.213E-02_JPRB,.207E-02_JPRB,.194E-02_JPRB,.185E-02_JPRB,.186E-02_JPRB,.184E-02_JPRB,&
+&.179E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,.160E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.144E-02_JPRB,&
+&.145E-02_JPRB,.147E-02_JPRB,.151E-02_JPRB,.155E-02_JPRB,.153E-02_JPRB,.148E-02_JPRB,.140E-02_JPRB,&
+&.132E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,&
+&.112E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.118E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.134E-02_JPRB,.149E-02_JPRB,.169E-02_JPRB,&
+&.197E-02_JPRB,.218E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  6  70.0
+ZAER (:, 6, 9) = (/&
+&.339E-02_JPRB,.339E-02_JPRB,.326E-02_JPRB,.307E-02_JPRB,.292E-02_JPRB,.278E-02_JPRB,.259E-02_JPRB,&
+&.240E-02_JPRB,.223E-02_JPRB,.211E-02_JPRB,.203E-02_JPRB,.200E-02_JPRB,.199E-02_JPRB,.195E-02_JPRB,&
+&.193E-02_JPRB,.184E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.192E-02_JPRB,.263E-02_JPRB,.406E-02_JPRB,&
+&.638E-02_JPRB,.632E-02_JPRB,.613E-02_JPRB,.639E-02_JPRB,.637E-02_JPRB,.563E-02_JPRB,.437E-02_JPRB,&
+&.337E-02_JPRB,.279E-02_JPRB,.237E-02_JPRB,.201E-02_JPRB,.195E-02_JPRB,.201E-02_JPRB,.197E-02_JPRB,&
+&.191E-02_JPRB,.187E-02_JPRB,.181E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.170E-02_JPRB,&
+&.170E-02_JPRB,.172E-02_JPRB,.180E-02_JPRB,.185E-02_JPRB,.181E-02_JPRB,.175E-02_JPRB,.162E-02_JPRB,&
+&.145E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.137E-02_JPRB,.133E-02_JPRB,.124E-02_JPRB,.117E-02_JPRB,&
+&.116E-02_JPRB,.120E-02_JPRB,.126E-02_JPRB,.130E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.137E-02_JPRB,&
+&.139E-02_JPRB,.143E-02_JPRB,.148E-02_JPRB,.161E-02_JPRB,.195E-02_JPRB,.245E-02_JPRB,.290E-02_JPRB,&
+&.312E-02_JPRB,.327E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  7  66.0
+ZAER (:, 7, 9) = (/&
+&.442E-02_JPRB,.417E-02_JPRB,.410E-02_JPRB,.406E-02_JPRB,.396E-02_JPRB,.381E-02_JPRB,.359E-02_JPRB,&
+&.330E-02_JPRB,.303E-02_JPRB,.280E-02_JPRB,.262E-02_JPRB,.246E-02_JPRB,.232E-02_JPRB,.219E-02_JPRB,&
+&.206E-02_JPRB,.189E-02_JPRB,.175E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.254E-02_JPRB,.544E-02_JPRB,&
+&.843E-02_JPRB,.659E-02_JPRB,.585E-02_JPRB,.654E-02_JPRB,.696E-02_JPRB,.692E-02_JPRB,.536E-02_JPRB,&
+&.401E-02_JPRB,.327E-02_JPRB,.254E-02_JPRB,.194E-02_JPRB,.190E-02_JPRB,.186E-02_JPRB,.180E-02_JPRB,&
+&.181E-02_JPRB,.184E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.191E-02_JPRB,.199E-02_JPRB,.207E-02_JPRB,&
+&.211E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,.201E-02_JPRB,.196E-02_JPRB,.187E-02_JPRB,.177E-02_JPRB,&
+&.168E-02_JPRB,.159E-02_JPRB,.153E-02_JPRB,.149E-02_JPRB,.144E-02_JPRB,.136E-02_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.134E-02_JPRB,.139E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.141E-02_JPRB,.145E-02_JPRB,&
+&.154E-02_JPRB,.165E-02_JPRB,.174E-02_JPRB,.238E-02_JPRB,.341E-02_JPRB,.428E-02_JPRB,.464E-02_JPRB,&
+&.479E-02_JPRB,.471E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  8  62.0
+ZAER (:, 8, 9) = (/&
+&.333E-02_JPRB,.365E-02_JPRB,.443E-02_JPRB,.491E-02_JPRB,.485E-02_JPRB,.467E-02_JPRB,.445E-02_JPRB,&
+&.416E-02_JPRB,.397E-02_JPRB,.375E-02_JPRB,.348E-02_JPRB,.318E-02_JPRB,.289E-02_JPRB,.263E-02_JPRB,&
+&.239E-02_JPRB,.214E-02_JPRB,.194E-02_JPRB,.180E-02_JPRB,.179E-02_JPRB,.267E-02_JPRB,.646E-02_JPRB,&
+&.103E-01_JPRB,.622E-02_JPRB,.577E-02_JPRB,.738E-02_JPRB,.749E-02_JPRB,.653E-02_JPRB,.508E-02_JPRB,&
+&.422E-02_JPRB,.380E-02_JPRB,.295E-02_JPRB,.226E-02_JPRB,.199E-02_JPRB,.183E-02_JPRB,.181E-02_JPRB,&
+&.187E-02_JPRB,.194E-02_JPRB,.195E-02_JPRB,.199E-02_JPRB,.213E-02_JPRB,.229E-02_JPRB,.244E-02_JPRB,&
+&.253E-02_JPRB,.250E-02_JPRB,.239E-02_JPRB,.224E-02_JPRB,.219E-02_JPRB,.216E-02_JPRB,.210E-02_JPRB,&
+&.205E-02_JPRB,.198E-02_JPRB,.190E-02_JPRB,.185E-02_JPRB,.183E-02_JPRB,.179E-02_JPRB,.174E-02_JPRB,&
+&.168E-02_JPRB,.163E-02_JPRB,.159E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.167E-02_JPRB,&
+&.185E-02_JPRB,.194E-02_JPRB,.232E-02_JPRB,.382E-02_JPRB,.571E-02_JPRB,.694E-02_JPRB,.671E-02_JPRB,&
+&.508E-02_JPRB,.369E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat:  9  58.0
+ZAER (:, 9, 9) = (/&
+&.337E-02_JPRB,.436E-02_JPRB,.596E-02_JPRB,.621E-02_JPRB,.596E-02_JPRB,.589E-02_JPRB,.569E-02_JPRB,&
+&.520E-02_JPRB,.483E-02_JPRB,.455E-02_JPRB,.420E-02_JPRB,.385E-02_JPRB,.349E-02_JPRB,.317E-02_JPRB,&
+&.287E-02_JPRB,.259E-02_JPRB,.237E-02_JPRB,.225E-02_JPRB,.214E-02_JPRB,.260E-02_JPRB,.649E-02_JPRB,&
+&.125E-01_JPRB,.782E-02_JPRB,.759E-02_JPRB,.859E-02_JPRB,.788E-02_JPRB,.613E-02_JPRB,.433E-02_JPRB,&
+&.393E-02_JPRB,.400E-02_JPRB,.345E-02_JPRB,.293E-02_JPRB,.250E-02_JPRB,.230E-02_JPRB,.228E-02_JPRB,&
+&.227E-02_JPRB,.230E-02_JPRB,.234E-02_JPRB,.243E-02_JPRB,.264E-02_JPRB,.282E-02_JPRB,.293E-02_JPRB,&
+&.295E-02_JPRB,.291E-02_JPRB,.282E-02_JPRB,.278E-02_JPRB,.281E-02_JPRB,.283E-02_JPRB,.275E-02_JPRB,&
+&.268E-02_JPRB,.267E-02_JPRB,.257E-02_JPRB,.245E-02_JPRB,.239E-02_JPRB,.233E-02_JPRB,.221E-02_JPRB,&
+&.209E-02_JPRB,.197E-02_JPRB,.191E-02_JPRB,.196E-02_JPRB,.202E-02_JPRB,.210E-02_JPRB,.237E-02_JPRB,&
+&.253E-02_JPRB,.273E-02_JPRB,.481E-02_JPRB,.875E-02_JPRB,.114E-01_JPRB,.106E-01_JPRB,.654E-02_JPRB,&
+&.342E-02_JPRB,.302E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 10  54.0
+ZAER (:,10, 9) = (/&
+&.396E-02_JPRB,.491E-02_JPRB,.614E-02_JPRB,.680E-02_JPRB,.701E-02_JPRB,.684E-02_JPRB,.654E-02_JPRB,&
+&.598E-02_JPRB,.545E-02_JPRB,.510E-02_JPRB,.457E-02_JPRB,.409E-02_JPRB,.364E-02_JPRB,.330E-02_JPRB,&
+&.307E-02_JPRB,.287E-02_JPRB,.275E-02_JPRB,.268E-02_JPRB,.260E-02_JPRB,.270E-02_JPRB,.604E-02_JPRB,&
+&.162E-01_JPRB,.159E-01_JPRB,.128E-01_JPRB,.957E-02_JPRB,.768E-02_JPRB,.564E-02_JPRB,.439E-02_JPRB,&
+&.452E-02_JPRB,.476E-02_JPRB,.463E-02_JPRB,.445E-02_JPRB,.409E-02_JPRB,.371E-02_JPRB,.342E-02_JPRB,&
+&.321E-02_JPRB,.301E-02_JPRB,.299E-02_JPRB,.309E-02_JPRB,.321E-02_JPRB,.343E-02_JPRB,.363E-02_JPRB,&
+&.356E-02_JPRB,.346E-02_JPRB,.340E-02_JPRB,.357E-02_JPRB,.376E-02_JPRB,.373E-02_JPRB,.369E-02_JPRB,&
+&.370E-02_JPRB,.364E-02_JPRB,.359E-02_JPRB,.337E-02_JPRB,.314E-02_JPRB,.297E-02_JPRB,.279E-02_JPRB,&
+&.266E-02_JPRB,.258E-02_JPRB,.259E-02_JPRB,.265E-02_JPRB,.271E-02_JPRB,.308E-02_JPRB,.326E-02_JPRB,&
+&.323E-02_JPRB,.679E-02_JPRB,.125E-01_JPRB,.159E-01_JPRB,.173E-01_JPRB,.107E-01_JPRB,.457E-02_JPRB,&
+&.361E-02_JPRB,.360E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 11  50.0
+ZAER (:,11, 9) = (/&
+&.419E-02_JPRB,.446E-02_JPRB,.550E-02_JPRB,.657E-02_JPRB,.712E-02_JPRB,.698E-02_JPRB,.690E-02_JPRB,&
+&.653E-02_JPRB,.601E-02_JPRB,.537E-02_JPRB,.461E-02_JPRB,.387E-02_JPRB,.344E-02_JPRB,.319E-02_JPRB,&
+&.305E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,.296E-02_JPRB,.285E-02_JPRB,.281E-02_JPRB,.628E-02_JPRB,&
+&.196E-01_JPRB,.297E-01_JPRB,.280E-01_JPRB,.110E-01_JPRB,.770E-02_JPRB,.626E-02_JPRB,.569E-02_JPRB,&
+&.604E-02_JPRB,.594E-02_JPRB,.547E-02_JPRB,.519E-02_JPRB,.489E-02_JPRB,.453E-02_JPRB,.429E-02_JPRB,&
+&.409E-02_JPRB,.389E-02_JPRB,.376E-02_JPRB,.377E-02_JPRB,.380E-02_JPRB,.413E-02_JPRB,.427E-02_JPRB,&
+&.411E-02_JPRB,.408E-02_JPRB,.419E-02_JPRB,.452E-02_JPRB,.484E-02_JPRB,.480E-02_JPRB,.477E-02_JPRB,&
+&.475E-02_JPRB,.465E-02_JPRB,.454E-02_JPRB,.427E-02_JPRB,.400E-02_JPRB,.378E-02_JPRB,.358E-02_JPRB,&
+&.345E-02_JPRB,.342E-02_JPRB,.338E-02_JPRB,.328E-02_JPRB,.342E-02_JPRB,.382E-02_JPRB,.398E-02_JPRB,&
+&.981E-02_JPRB,.180E-01_JPRB,.197E-01_JPRB,.189E-01_JPRB,.204E-01_JPRB,.112E-01_JPRB,.487E-02_JPRB,&
+&.424E-02_JPRB,.415E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 12  46.0
+ZAER (:,12, 9) = (/&
+&.505E-02_JPRB,.514E-02_JPRB,.542E-02_JPRB,.588E-02_JPRB,.616E-02_JPRB,.701E-02_JPRB,.693E-02_JPRB,&
+&.674E-02_JPRB,.630E-02_JPRB,.530E-02_JPRB,.433E-02_JPRB,.371E-02_JPRB,.343E-02_JPRB,.333E-02_JPRB,&
+&.337E-02_JPRB,.344E-02_JPRB,.348E-02_JPRB,.340E-02_JPRB,.323E-02_JPRB,.311E-02_JPRB,.516E-02_JPRB,&
+&.131E-01_JPRB,.349E-01_JPRB,.513E-01_JPRB,.255E-01_JPRB,.121E-01_JPRB,.961E-02_JPRB,.866E-02_JPRB,&
+&.819E-02_JPRB,.753E-02_JPRB,.691E-02_JPRB,.620E-02_JPRB,.561E-02_JPRB,.514E-02_JPRB,.480E-02_JPRB,&
+&.463E-02_JPRB,.465E-02_JPRB,.472E-02_JPRB,.475E-02_JPRB,.477E-02_JPRB,.519E-02_JPRB,.543E-02_JPRB,&
+&.535E-02_JPRB,.537E-02_JPRB,.564E-02_JPRB,.638E-02_JPRB,.651E-02_JPRB,.611E-02_JPRB,.576E-02_JPRB,&
+&.554E-02_JPRB,.557E-02_JPRB,.559E-02_JPRB,.553E-02_JPRB,.538E-02_JPRB,.509E-02_JPRB,.467E-02_JPRB,&
+&.431E-02_JPRB,.410E-02_JPRB,.385E-02_JPRB,.372E-02_JPRB,.417E-02_JPRB,.553E-02_JPRB,.145E-01_JPRB,&
+&.253E-01_JPRB,.237E-01_JPRB,.163E-01_JPRB,.141E-01_JPRB,.189E-01_JPRB,.143E-01_JPRB,.670E-02_JPRB,&
+&.588E-02_JPRB,.525E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 13  42.0
+ZAER (:,13, 9) = (/&
+&.680E-02_JPRB,.682E-02_JPRB,.677E-02_JPRB,.682E-02_JPRB,.652E-02_JPRB,.678E-02_JPRB,.690E-02_JPRB,&
+&.667E-02_JPRB,.613E-02_JPRB,.520E-02_JPRB,.443E-02_JPRB,.396E-02_JPRB,.377E-02_JPRB,.393E-02_JPRB,&
+&.419E-02_JPRB,.432E-02_JPRB,.424E-02_JPRB,.398E-02_JPRB,.368E-02_JPRB,.342E-02_JPRB,.366E-02_JPRB,&
+&.691E-02_JPRB,.199E-01_JPRB,.703E-01_JPRB,.436E-01_JPRB,.224E-01_JPRB,.151E-01_JPRB,.120E-01_JPRB,&
+&.108E-01_JPRB,.102E-01_JPRB,.932E-02_JPRB,.834E-02_JPRB,.747E-02_JPRB,.681E-02_JPRB,.640E-02_JPRB,&
+&.607E-02_JPRB,.596E-02_JPRB,.585E-02_JPRB,.581E-02_JPRB,.585E-02_JPRB,.637E-02_JPRB,.674E-02_JPRB,&
+&.698E-02_JPRB,.745E-02_JPRB,.829E-02_JPRB,.902E-02_JPRB,.835E-02_JPRB,.724E-02_JPRB,.656E-02_JPRB,&
+&.642E-02_JPRB,.656E-02_JPRB,.675E-02_JPRB,.700E-02_JPRB,.687E-02_JPRB,.640E-02_JPRB,.573E-02_JPRB,&
+&.513E-02_JPRB,.465E-02_JPRB,.423E-02_JPRB,.477E-02_JPRB,.820E-02_JPRB,.212E-01_JPRB,.358E-01_JPRB,&
+&.315E-01_JPRB,.197E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.178E-01_JPRB,.177E-01_JPRB,.103E-01_JPRB,&
+&.815E-02_JPRB,.721E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 14  38.0
+ZAER (:,14, 9) = (/&
+&.892E-02_JPRB,.899E-02_JPRB,.857E-02_JPRB,.788E-02_JPRB,.754E-02_JPRB,.735E-02_JPRB,.709E-02_JPRB,&
+&.664E-02_JPRB,.600E-02_JPRB,.514E-02_JPRB,.461E-02_JPRB,.431E-02_JPRB,.440E-02_JPRB,.488E-02_JPRB,&
+&.535E-02_JPRB,.553E-02_JPRB,.549E-02_JPRB,.519E-02_JPRB,.473E-02_JPRB,.422E-02_JPRB,.391E-02_JPRB,&
+&.461E-02_JPRB,.119E-01_JPRB,.491E-01_JPRB,.484E-01_JPRB,.303E-01_JPRB,.201E-01_JPRB,.150E-01_JPRB,&
+&.132E-01_JPRB,.121E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,.970E-02_JPRB,.871E-02_JPRB,.791E-02_JPRB,&
+&.736E-02_JPRB,.704E-02_JPRB,.684E-02_JPRB,.696E-02_JPRB,.728E-02_JPRB,.837E-02_JPRB,.932E-02_JPRB,&
+&.101E-01_JPRB,.106E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.922E-02_JPRB,.823E-02_JPRB,&
+&.784E-02_JPRB,.812E-02_JPRB,.852E-02_JPRB,.874E-02_JPRB,.834E-02_JPRB,.776E-02_JPRB,.696E-02_JPRB,&
+&.607E-02_JPRB,.520E-02_JPRB,.500E-02_JPRB,.725E-02_JPRB,.263E-01_JPRB,.619E-01_JPRB,.659E-01_JPRB,&
+&.405E-01_JPRB,.261E-01_JPRB,.205E-01_JPRB,.187E-01_JPRB,.200E-01_JPRB,.191E-01_JPRB,.131E-01_JPRB,&
+&.102E-01_JPRB,.916E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 15  34.0
+ZAER (:,15, 9) = (/&
+&.117E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.999E-02_JPRB,.946E-02_JPRB,.864E-02_JPRB,.791E-02_JPRB,&
+&.731E-02_JPRB,.660E-02_JPRB,.586E-02_JPRB,.552E-02_JPRB,.546E-02_JPRB,.586E-02_JPRB,.633E-02_JPRB,&
+&.657E-02_JPRB,.660E-02_JPRB,.653E-02_JPRB,.643E-02_JPRB,.605E-02_JPRB,.547E-02_JPRB,.523E-02_JPRB,&
+&.665E-02_JPRB,.120E-01_JPRB,.262E-01_JPRB,.335E-01_JPRB,.256E-01_JPRB,.196E-01_JPRB,.164E-01_JPRB,&
+&.143E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,.118E-01_JPRB,.109E-01_JPRB,.995E-02_JPRB,.909E-02_JPRB,&
+&.850E-02_JPRB,.829E-02_JPRB,.849E-02_JPRB,.909E-02_JPRB,.113E-01_JPRB,.156E-01_JPRB,.192E-01_JPRB,&
+&.193E-01_JPRB,.183E-01_JPRB,.170E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,.128E-01_JPRB,.109E-01_JPRB,&
+&.101E-01_JPRB,.107E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,.914E-02_JPRB,&
+&.789E-02_JPRB,.668E-02_JPRB,.673E-02_JPRB,.143E-01_JPRB,.542E-01_JPRB,.111E+00_JPRB,.105E+00_JPRB,&
+&.692E-01_JPRB,.599E-01_JPRB,.419E-01_JPRB,.322E-01_JPRB,.263E-01_JPRB,.211E-01_JPRB,.159E-01_JPRB,&
+&.131E-01_JPRB,.119E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 16  30.0
+ZAER (:,16, 9) = (/&
+&.151E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.127E-01_JPRB,.113E-01_JPRB,.101E-01_JPRB,&
+&.898E-02_JPRB,.816E-02_JPRB,.751E-02_JPRB,.727E-02_JPRB,.741E-02_JPRB,.785E-02_JPRB,.777E-02_JPRB,&
+&.754E-02_JPRB,.729E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.696E-02_JPRB,.683E-02_JPRB,.720E-02_JPRB,&
+&.911E-02_JPRB,.175E-01_JPRB,.322E-01_JPRB,.342E-01_JPRB,.254E-01_JPRB,.206E-01_JPRB,.179E-01_JPRB,&
+&.159E-01_JPRB,.148E-01_JPRB,.139E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,&
+&.107E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.148E-01_JPRB,.229E-01_JPRB,.366E-01_JPRB,.382E-01_JPRB,&
+&.343E-01_JPRB,.284E-01_JPRB,.254E-01_JPRB,.257E-01_JPRB,.243E-01_JPRB,.201E-01_JPRB,.173E-01_JPRB,&
+&.159E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,.161E-01_JPRB,.153E-01_JPRB,.140E-01_JPRB,&
+&.122E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.327E-01_JPRB,.812E-01_JPRB,.136E+00_JPRB,.147E+00_JPRB,&
+&.110E+00_JPRB,.864E-01_JPRB,.587E-01_JPRB,.437E-01_JPRB,.341E-01_JPRB,.257E-01_JPRB,.205E-01_JPRB,&
+&.176E-01_JPRB,.160E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 17  26.0
+ZAER (:,17, 9) = (/&
+&.182E-01_JPRB,.171E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,.146E-01_JPRB,.134E-01_JPRB,.123E-01_JPRB,&
+&.110E-01_JPRB,.991E-02_JPRB,.914E-02_JPRB,.889E-02_JPRB,.887E-02_JPRB,.867E-02_JPRB,.804E-02_JPRB,&
+&.770E-02_JPRB,.716E-02_JPRB,.694E-02_JPRB,.690E-02_JPRB,.709E-02_JPRB,.761E-02_JPRB,.831E-02_JPRB,&
+&.953E-02_JPRB,.164E-01_JPRB,.401E-01_JPRB,.511E-01_JPRB,.348E-01_JPRB,.272E-01_JPRB,.225E-01_JPRB,&
+&.190E-01_JPRB,.162E-01_JPRB,.146E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.122E-01_JPRB,.130E-01_JPRB,.146E-01_JPRB,.213E-01_JPRB,.362E-01_JPRB,.507E-01_JPRB,.616E-01_JPRB,&
+&.538E-01_JPRB,.414E-01_JPRB,.373E-01_JPRB,.453E-01_JPRB,.365E-01_JPRB,.283E-01_JPRB,.251E-01_JPRB,&
+&.232E-01_JPRB,.227E-01_JPRB,.229E-01_JPRB,.230E-01_JPRB,.215E-01_JPRB,.197E-01_JPRB,.179E-01_JPRB,&
+&.163E-01_JPRB,.158E-01_JPRB,.238E-01_JPRB,.618E-01_JPRB,.100E+00_JPRB,.132E+00_JPRB,.135E+00_JPRB,&
+&.110E+00_JPRB,.766E-01_JPRB,.570E-01_JPRB,.445E-01_JPRB,.358E-01_JPRB,.278E-01_JPRB,.232E-01_JPRB,&
+&.207E-01_JPRB,.193E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 18  22.0
+ZAER (:,18, 9) = (/&
+&.166E-01_JPRB,.154E-01_JPRB,.143E-01_JPRB,.135E-01_JPRB,.125E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,&
+&.106E-01_JPRB,.102E-01_JPRB,.973E-02_JPRB,.923E-02_JPRB,.845E-02_JPRB,.764E-02_JPRB,.722E-02_JPRB,&
+&.733E-02_JPRB,.701E-02_JPRB,.697E-02_JPRB,.705E-02_JPRB,.735E-02_JPRB,.793E-02_JPRB,.854E-02_JPRB,&
+&.924E-02_JPRB,.137E-01_JPRB,.406E-01_JPRB,.856E-01_JPRB,.456E-01_JPRB,.275E-01_JPRB,.212E-01_JPRB,&
+&.173E-01_JPRB,.145E-01_JPRB,.128E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,&
+&.128E-01_JPRB,.141E-01_JPRB,.163E-01_JPRB,.250E-01_JPRB,.451E-01_JPRB,.772E-01_JPRB,.117E+00_JPRB,&
+&.718E-01_JPRB,.447E-01_JPRB,.451E-01_JPRB,.592E-01_JPRB,.378E-01_JPRB,.291E-01_JPRB,.266E-01_JPRB,&
+&.246E-01_JPRB,.230E-01_JPRB,.229E-01_JPRB,.232E-01_JPRB,.217E-01_JPRB,.200E-01_JPRB,.186E-01_JPRB,&
+&.179E-01_JPRB,.197E-01_JPRB,.349E-01_JPRB,.686E-01_JPRB,.913E-01_JPRB,.106E+00_JPRB,.935E-01_JPRB,&
+&.779E-01_JPRB,.672E-01_JPRB,.548E-01_JPRB,.400E-01_JPRB,.304E-01_JPRB,.244E-01_JPRB,.212E-01_JPRB,&
+&.196E-01_JPRB,.181E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 19  18.0
+ZAER (:,19, 9) = (/&
+&.118E-01_JPRB,.106E-01_JPRB,.977E-02_JPRB,.895E-02_JPRB,.825E-02_JPRB,.783E-02_JPRB,.811E-02_JPRB,&
+&.835E-02_JPRB,.829E-02_JPRB,.798E-02_JPRB,.743E-02_JPRB,.693E-02_JPRB,.655E-02_JPRB,.657E-02_JPRB,&
+&.689E-02_JPRB,.683E-02_JPRB,.686E-02_JPRB,.704E-02_JPRB,.730E-02_JPRB,.763E-02_JPRB,.791E-02_JPRB,&
+&.870E-02_JPRB,.114E-01_JPRB,.263E-01_JPRB,.478E-01_JPRB,.314E-01_JPRB,.208E-01_JPRB,.169E-01_JPRB,&
+&.149E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.129E-01_JPRB,&
+&.143E-01_JPRB,.164E-01_JPRB,.199E-01_JPRB,.270E-01_JPRB,.400E-01_JPRB,.681E-01_JPRB,.860E-01_JPRB,&
+&.523E-01_JPRB,.434E-01_JPRB,.519E-01_JPRB,.543E-01_JPRB,.325E-01_JPRB,.268E-01_JPRB,.233E-01_JPRB,&
+&.199E-01_JPRB,.176E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.158E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,&
+&.161E-01_JPRB,.210E-01_JPRB,.320E-01_JPRB,.413E-01_JPRB,.512E-01_JPRB,.647E-01_JPRB,.645E-01_JPRB,&
+&.628E-01_JPRB,.498E-01_JPRB,.346E-01_JPRB,.284E-01_JPRB,.234E-01_JPRB,.193E-01_JPRB,.168E-01_JPRB,&
+&.154E-01_JPRB,.134E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 20  14.0
+ZAER (:,20, 9) = (/&
+&.618E-02_JPRB,.593E-02_JPRB,.574E-02_JPRB,.558E-02_JPRB,.573E-02_JPRB,.593E-02_JPRB,.634E-02_JPRB,&
+&.649E-02_JPRB,.632E-02_JPRB,.625E-02_JPRB,.630E-02_JPRB,.629E-02_JPRB,.640E-02_JPRB,.667E-02_JPRB,&
+&.681E-02_JPRB,.679E-02_JPRB,.692E-02_JPRB,.713E-02_JPRB,.726E-02_JPRB,.750E-02_JPRB,.795E-02_JPRB,&
+&.868E-02_JPRB,.110E-01_JPRB,.197E-01_JPRB,.206E-01_JPRB,.170E-01_JPRB,.164E-01_JPRB,.152E-01_JPRB,&
+&.139E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.140E-01_JPRB,.150E-01_JPRB,.160E-01_JPRB,&
+&.175E-01_JPRB,.202E-01_JPRB,.245E-01_JPRB,.297E-01_JPRB,.367E-01_JPRB,.430E-01_JPRB,.417E-01_JPRB,&
+&.400E-01_JPRB,.388E-01_JPRB,.380E-01_JPRB,.323E-01_JPRB,.255E-01_JPRB,.205E-01_JPRB,.167E-01_JPRB,&
+&.138E-01_JPRB,.126E-01_JPRB,.114E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.134E-01_JPRB,&
+&.164E-01_JPRB,.204E-01_JPRB,.238E-01_JPRB,.236E-01_JPRB,.265E-01_JPRB,.328E-01_JPRB,.356E-01_JPRB,&
+&.330E-01_JPRB,.245E-01_JPRB,.200E-01_JPRB,.173E-01_JPRB,.149E-01_JPRB,.120E-01_JPRB,.978E-02_JPRB,&
+&.862E-02_JPRB,.704E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 21  10.0
+ZAER (:,21, 9) = (/&
+&.410E-02_JPRB,.435E-02_JPRB,.447E-02_JPRB,.458E-02_JPRB,.489E-02_JPRB,.526E-02_JPRB,.570E-02_JPRB,&
+&.594E-02_JPRB,.596E-02_JPRB,.604E-02_JPRB,.629E-02_JPRB,.660E-02_JPRB,.684E-02_JPRB,.703E-02_JPRB,&
+&.732E-02_JPRB,.754E-02_JPRB,.768E-02_JPRB,.792E-02_JPRB,.837E-02_JPRB,.896E-02_JPRB,.937E-02_JPRB,&
+&.102E-01_JPRB,.125E-01_JPRB,.151E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,.152E-01_JPRB,.158E-01_JPRB,&
+&.153E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,.162E-01_JPRB,.170E-01_JPRB,.177E-01_JPRB,.185E-01_JPRB,&
+&.198E-01_JPRB,.223E-01_JPRB,.257E-01_JPRB,.286E-01_JPRB,.306E-01_JPRB,.294E-01_JPRB,.292E-01_JPRB,&
+&.305E-01_JPRB,.300E-01_JPRB,.261E-01_JPRB,.208E-01_JPRB,.167E-01_JPRB,.132E-01_JPRB,.106E-01_JPRB,&
+&.899E-02_JPRB,.824E-02_JPRB,.736E-02_JPRB,.720E-02_JPRB,.872E-02_JPRB,.108E-01_JPRB,.129E-01_JPRB,&
+&.152E-01_JPRB,.169E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.148E-01_JPRB,&
+&.125E-01_JPRB,.101E-01_JPRB,.890E-02_JPRB,.769E-02_JPRB,.614E-02_JPRB,.474E-02_JPRB,.410E-02_JPRB,&
+&.391E-02_JPRB,.375E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 22   6.0
+ZAER (:,22, 9) = (/&
+&.349E-02_JPRB,.385E-02_JPRB,.415E-02_JPRB,.450E-02_JPRB,.497E-02_JPRB,.542E-02_JPRB,.584E-02_JPRB,&
+&.615E-02_JPRB,.635E-02_JPRB,.649E-02_JPRB,.674E-02_JPRB,.701E-02_JPRB,.717E-02_JPRB,.736E-02_JPRB,&
+&.767E-02_JPRB,.800E-02_JPRB,.846E-02_JPRB,.896E-02_JPRB,.962E-02_JPRB,.100E-01_JPRB,.102E-01_JPRB,&
+&.101E-01_JPRB,.108E-01_JPRB,.119E-01_JPRB,.132E-01_JPRB,.150E-01_JPRB,.164E-01_JPRB,.173E-01_JPRB,&
+&.177E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.175E-01_JPRB,.181E-01_JPRB,.185E-01_JPRB,.190E-01_JPRB,&
+&.201E-01_JPRB,.216E-01_JPRB,.227E-01_JPRB,.229E-01_JPRB,.224E-01_JPRB,.211E-01_JPRB,.222E-01_JPRB,&
+&.260E-01_JPRB,.255E-01_JPRB,.191E-01_JPRB,.146E-01_JPRB,.111E-01_JPRB,.846E-02_JPRB,.628E-02_JPRB,&
+&.491E-02_JPRB,.395E-02_JPRB,.357E-02_JPRB,.394E-02_JPRB,.490E-02_JPRB,.587E-02_JPRB,.695E-02_JPRB,&
+&.825E-02_JPRB,.911E-02_JPRB,.911E-02_JPRB,.873E-02_JPRB,.799E-02_JPRB,.614E-02_JPRB,.472E-02_JPRB,&
+&.387E-02_JPRB,.332E-02_JPRB,.296E-02_JPRB,.255E-02_JPRB,.232E-02_JPRB,.231E-02_JPRB,.249E-02_JPRB,&
+&.275E-02_JPRB,.310E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 23   2.0
+ZAER (:,23, 9) = (/&
+&.295E-02_JPRB,.333E-02_JPRB,.371E-02_JPRB,.413E-02_JPRB,.457E-02_JPRB,.498E-02_JPRB,.531E-02_JPRB,&
+&.554E-02_JPRB,.569E-02_JPRB,.588E-02_JPRB,.609E-02_JPRB,.624E-02_JPRB,.644E-02_JPRB,.667E-02_JPRB,&
+&.687E-02_JPRB,.705E-02_JPRB,.753E-02_JPRB,.802E-02_JPRB,.844E-02_JPRB,.909E-02_JPRB,.937E-02_JPRB,&
+&.905E-02_JPRB,.973E-02_JPRB,.113E-01_JPRB,.131E-01_JPRB,.151E-01_JPRB,.172E-01_JPRB,.182E-01_JPRB,&
+&.163E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.157E-01_JPRB,.164E-01_JPRB,.171E-01_JPRB,.180E-01_JPRB,&
+&.195E-01_JPRB,.209E-01_JPRB,.225E-01_JPRB,.236E-01_JPRB,.252E-01_JPRB,.269E-01_JPRB,.310E-01_JPRB,&
+&.359E-01_JPRB,.354E-01_JPRB,.269E-01_JPRB,.171E-01_JPRB,.108E-01_JPRB,.681E-02_JPRB,.432E-02_JPRB,&
+&.296E-02_JPRB,.222E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,.218E-02_JPRB,.245E-02_JPRB,.289E-02_JPRB,&
+&.329E-02_JPRB,.343E-02_JPRB,.328E-02_JPRB,.294E-02_JPRB,.234E-02_JPRB,.167E-02_JPRB,.149E-02_JPRB,&
+&.139E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.149E-02_JPRB,.174E-02_JPRB,.202E-02_JPRB,&
+&.231E-02_JPRB,.261E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 24  -2.0
+ZAER (:,24, 9) = (/&
+&.201E-02_JPRB,.220E-02_JPRB,.243E-02_JPRB,.269E-02_JPRB,.299E-02_JPRB,.331E-02_JPRB,.362E-02_JPRB,&
+&.391E-02_JPRB,.418E-02_JPRB,.437E-02_JPRB,.448E-02_JPRB,.452E-02_JPRB,.456E-02_JPRB,.468E-02_JPRB,&
+&.482E-02_JPRB,.485E-02_JPRB,.498E-02_JPRB,.529E-02_JPRB,.564E-02_JPRB,.590E-02_JPRB,.659E-02_JPRB,&
+&.736E-02_JPRB,.826E-02_JPRB,.934E-02_JPRB,.104E-01_JPRB,.112E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,&
+&.110E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.141E-01_JPRB,&
+&.165E-01_JPRB,.192E-01_JPRB,.217E-01_JPRB,.260E-01_JPRB,.334E-01_JPRB,.424E-01_JPRB,.519E-01_JPRB,&
+&.617E-01_JPRB,.676E-01_JPRB,.618E-01_JPRB,.506E-01_JPRB,.303E-01_JPRB,.139E-01_JPRB,.835E-02_JPRB,&
+&.620E-02_JPRB,.446E-02_JPRB,.319E-02_JPRB,.240E-02_JPRB,.177E-02_JPRB,.136E-02_JPRB,.124E-02_JPRB,&
+&.119E-02_JPRB,.109E-02_JPRB,.103E-02_JPRB,.902E-03_JPRB,.765E-03_JPRB,.666E-03_JPRB,.664E-03_JPRB,&
+&.677E-03_JPRB,.703E-03_JPRB,.762E-03_JPRB,.851E-03_JPRB,.974E-03_JPRB,.114E-02_JPRB,.135E-02_JPRB,&
+&.156E-02_JPRB,.179E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 25  -6.0
+ZAER (:,25, 9) = (/&
+&.130E-02_JPRB,.142E-02_JPRB,.157E-02_JPRB,.176E-02_JPRB,.199E-02_JPRB,.223E-02_JPRB,.246E-02_JPRB,&
+&.272E-02_JPRB,.298E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.305E-02_JPRB,.298E-02_JPRB,.292E-02_JPRB,&
+&.286E-02_JPRB,.279E-02_JPRB,.274E-02_JPRB,.288E-02_JPRB,.303E-02_JPRB,.377E-02_JPRB,.492E-02_JPRB,&
+&.614E-02_JPRB,.701E-02_JPRB,.800E-02_JPRB,.909E-02_JPRB,.101E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.109E-01_JPRB,.130E-01_JPRB,&
+&.167E-01_JPRB,.211E-01_JPRB,.260E-01_JPRB,.343E-01_JPRB,.458E-01_JPRB,.616E-01_JPRB,.836E-01_JPRB,&
+&.109E+00_JPRB,.139E+00_JPRB,.167E+00_JPRB,.219E+00_JPRB,.287E+00_JPRB,.783E-01_JPRB,.307E-01_JPRB,&
+&.212E-01_JPRB,.177E-01_JPRB,.148E-01_JPRB,.102E-01_JPRB,.518E-02_JPRB,.239E-02_JPRB,.109E-02_JPRB,&
+&.646E-03_JPRB,.391E-03_JPRB,.405E-03_JPRB,.422E-03_JPRB,.412E-03_JPRB,.364E-03_JPRB,.341E-03_JPRB,&
+&.357E-03_JPRB,.394E-03_JPRB,.439E-03_JPRB,.504E-03_JPRB,.588E-03_JPRB,.686E-03_JPRB,.829E-03_JPRB,&
+&.985E-03_JPRB,.116E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 26 -10.0
+ZAER (:,26, 9) = (/&
+&.101E-02_JPRB,.110E-02_JPRB,.116E-02_JPRB,.125E-02_JPRB,.138E-02_JPRB,.157E-02_JPRB,.173E-02_JPRB,&
+&.192E-02_JPRB,.217E-02_JPRB,.237E-02_JPRB,.241E-02_JPRB,.221E-02_JPRB,.197E-02_JPRB,.166E-02_JPRB,&
+&.141E-02_JPRB,.133E-02_JPRB,.137E-02_JPRB,.151E-02_JPRB,.185E-02_JPRB,.265E-02_JPRB,.412E-02_JPRB,&
+&.597E-02_JPRB,.756E-02_JPRB,.870E-02_JPRB,.101E-01_JPRB,.118E-01_JPRB,.132E-01_JPRB,.135E-01_JPRB,&
+&.142E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.159E-01_JPRB,.188E-01_JPRB,&
+&.233E-01_JPRB,.297E-01_JPRB,.380E-01_JPRB,.519E-01_JPRB,.686E-01_JPRB,.912E-01_JPRB,.119E+00_JPRB,&
+&.154E+00_JPRB,.206E+00_JPRB,.267E+00_JPRB,.397E+00_JPRB,.697E+00_JPRB,.314E+00_JPRB,.117E+00_JPRB,&
+&.833E-01_JPRB,.811E-01_JPRB,.801E-01_JPRB,.538E-01_JPRB,.251E-01_JPRB,.967E-02_JPRB,.543E-02_JPRB,&
+&.260E-02_JPRB,.971E-03_JPRB,.566E-03_JPRB,.625E-03_JPRB,.772E-03_JPRB,.629E-03_JPRB,.404E-03_JPRB,&
+&.314E-03_JPRB,.281E-03_JPRB,.325E-03_JPRB,.428E-03_JPRB,.483E-03_JPRB,.545E-03_JPRB,.608E-03_JPRB,&
+&.678E-03_JPRB,.832E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 27 -14.0
+ZAER (:,27, 9) = (/&
+&.122E-02_JPRB,.131E-02_JPRB,.138E-02_JPRB,.148E-02_JPRB,.160E-02_JPRB,.183E-02_JPRB,.210E-02_JPRB,&
+&.243E-02_JPRB,.287E-02_JPRB,.341E-02_JPRB,.378E-02_JPRB,.370E-02_JPRB,.343E-02_JPRB,.298E-02_JPRB,&
+&.192E-02_JPRB,.170E-02_JPRB,.173E-02_JPRB,.180E-02_JPRB,.207E-02_JPRB,.307E-02_JPRB,.485E-02_JPRB,&
+&.715E-02_JPRB,.931E-02_JPRB,.107E-01_JPRB,.118E-01_JPRB,.132E-01_JPRB,.157E-01_JPRB,.186E-01_JPRB,&
+&.215E-01_JPRB,.240E-01_JPRB,.267E-01_JPRB,.296E-01_JPRB,.343E-01_JPRB,.381E-01_JPRB,.411E-01_JPRB,&
+&.488E-01_JPRB,.601E-01_JPRB,.717E-01_JPRB,.908E-01_JPRB,.111E+00_JPRB,.138E+00_JPRB,.161E+00_JPRB,&
+&.201E+00_JPRB,.253E+00_JPRB,.305E+00_JPRB,.368E+00_JPRB,.480E+00_JPRB,.388E+00_JPRB,.216E+00_JPRB,&
+&.157E+00_JPRB,.155E+00_JPRB,.151E+00_JPRB,.114E+00_JPRB,.698E-01_JPRB,.347E-01_JPRB,.208E-01_JPRB,&
+&.128E-01_JPRB,.594E-02_JPRB,.255E-02_JPRB,.235E-02_JPRB,.280E-02_JPRB,.271E-02_JPRB,.147E-02_JPRB,&
+&.736E-03_JPRB,.481E-03_JPRB,.473E-03_JPRB,.762E-03_JPRB,.958E-03_JPRB,.997E-03_JPRB,.918E-03_JPRB,&
+&.862E-03_JPRB,.100E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 28 -18.0
+ZAER (:,28, 9) = (/&
+&.241E-02_JPRB,.231E-02_JPRB,.235E-02_JPRB,.246E-02_JPRB,.277E-02_JPRB,.332E-02_JPRB,.377E-02_JPRB,&
+&.402E-02_JPRB,.442E-02_JPRB,.493E-02_JPRB,.555E-02_JPRB,.593E-02_JPRB,.652E-02_JPRB,.752E-02_JPRB,&
+&.769E-02_JPRB,.447E-02_JPRB,.381E-02_JPRB,.386E-02_JPRB,.358E-02_JPRB,.406E-02_JPRB,.520E-02_JPRB,&
+&.686E-02_JPRB,.896E-02_JPRB,.108E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.142E-01_JPRB,.177E-01_JPRB,&
+&.215E-01_JPRB,.256E-01_JPRB,.312E-01_JPRB,.408E-01_JPRB,.603E-01_JPRB,.705E-01_JPRB,.721E-01_JPRB,&
+&.823E-01_JPRB,.921E-01_JPRB,.107E+00_JPRB,.133E+00_JPRB,.161E+00_JPRB,.185E+00_JPRB,.213E+00_JPRB,&
+&.265E+00_JPRB,.288E+00_JPRB,.321E+00_JPRB,.387E+00_JPRB,.402E+00_JPRB,.416E+00_JPRB,.317E+00_JPRB,&
+&.220E+00_JPRB,.191E+00_JPRB,.176E+00_JPRB,.140E+00_JPRB,.108E+00_JPRB,.693E-01_JPRB,.445E-01_JPRB,&
+&.292E-01_JPRB,.144E-01_JPRB,.770E-02_JPRB,.668E-02_JPRB,.798E-02_JPRB,.859E-02_JPRB,.586E-02_JPRB,&
+&.336E-02_JPRB,.174E-02_JPRB,.112E-02_JPRB,.139E-02_JPRB,.190E-02_JPRB,.226E-02_JPRB,.221E-02_JPRB,&
+&.206E-02_JPRB,.225E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 29 -22.0
+ZAER (:,29, 9) = (/&
+&.504E-02_JPRB,.467E-02_JPRB,.453E-02_JPRB,.451E-02_JPRB,.485E-02_JPRB,.562E-02_JPRB,.635E-02_JPRB,&
+&.656E-02_JPRB,.634E-02_JPRB,.612E-02_JPRB,.627E-02_JPRB,.690E-02_JPRB,.822E-02_JPRB,.119E-01_JPRB,&
+&.146E-01_JPRB,.883E-02_JPRB,.669E-02_JPRB,.649E-02_JPRB,.643E-02_JPRB,.583E-02_JPRB,.571E-02_JPRB,&
+&.608E-02_JPRB,.806E-02_JPRB,.916E-02_JPRB,.961E-02_JPRB,.942E-02_JPRB,.106E-01_JPRB,.133E-01_JPRB,&
+&.154E-01_JPRB,.167E-01_JPRB,.196E-01_JPRB,.265E-01_JPRB,.492E-01_JPRB,.889E-01_JPRB,.962E-01_JPRB,&
+&.108E+00_JPRB,.118E+00_JPRB,.123E+00_JPRB,.159E+00_JPRB,.171E+00_JPRB,.170E+00_JPRB,.197E+00_JPRB,&
+&.253E+00_JPRB,.263E+00_JPRB,.279E+00_JPRB,.306E+00_JPRB,.290E+00_JPRB,.308E+00_JPRB,.326E+00_JPRB,&
+&.265E+00_JPRB,.216E+00_JPRB,.189E+00_JPRB,.155E+00_JPRB,.126E+00_JPRB,.895E-01_JPRB,.642E-01_JPRB,&
+&.426E-01_JPRB,.219E-01_JPRB,.139E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.165E-01_JPRB,.155E-01_JPRB,&
+&.115E-01_JPRB,.702E-02_JPRB,.369E-02_JPRB,.266E-02_JPRB,.328E-02_JPRB,.421E-02_JPRB,.479E-02_JPRB,&
+&.508E-02_JPRB,.518E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 30 -26.0
+ZAER (:,30, 9) = (/&
+&.956E-02_JPRB,.877E-02_JPRB,.859E-02_JPRB,.865E-02_JPRB,.884E-02_JPRB,.917E-02_JPRB,.101E-01_JPRB,&
+&.107E-01_JPRB,.103E-01_JPRB,.880E-02_JPRB,.793E-02_JPRB,.818E-02_JPRB,.104E-01_JPRB,.173E-01_JPRB,&
+&.153E-01_JPRB,.975E-02_JPRB,.866E-02_JPRB,.811E-02_JPRB,.901E-02_JPRB,.868E-02_JPRB,.785E-02_JPRB,&
+&.729E-02_JPRB,.770E-02_JPRB,.782E-02_JPRB,.820E-02_JPRB,.776E-02_JPRB,.785E-02_JPRB,.877E-02_JPRB,&
+&.885E-02_JPRB,.796E-02_JPRB,.804E-02_JPRB,.104E-01_JPRB,.217E-01_JPRB,.654E-01_JPRB,.102E+00_JPRB,&
+&.121E+00_JPRB,.133E+00_JPRB,.136E+00_JPRB,.171E+00_JPRB,.165E+00_JPRB,.158E+00_JPRB,.173E+00_JPRB,&
+&.189E+00_JPRB,.199E+00_JPRB,.216E+00_JPRB,.236E+00_JPRB,.254E+00_JPRB,.264E+00_JPRB,.278E+00_JPRB,&
+&.269E+00_JPRB,.235E+00_JPRB,.187E+00_JPRB,.153E+00_JPRB,.126E+00_JPRB,.872E-01_JPRB,.675E-01_JPRB,&
+&.520E-01_JPRB,.319E-01_JPRB,.203E-01_JPRB,.179E-01_JPRB,.204E-01_JPRB,.265E-01_JPRB,.306E-01_JPRB,&
+&.274E-01_JPRB,.204E-01_JPRB,.131E-01_JPRB,.899E-02_JPRB,.803E-02_JPRB,.883E-02_JPRB,.989E-02_JPRB,&
+&.106E-01_JPRB,.104E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 31 -30.0
+ZAER (:,31, 9) = (/&
+&.125E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,&
+&.144E-01_JPRB,.136E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.135E-01_JPRB,.179E-01_JPRB,&
+&.124E-01_JPRB,.121E-01_JPRB,.129E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.953E-02_JPRB,&
+&.838E-02_JPRB,.779E-02_JPRB,.720E-02_JPRB,.681E-02_JPRB,.683E-02_JPRB,.629E-02_JPRB,.641E-02_JPRB,&
+&.698E-02_JPRB,.695E-02_JPRB,.669E-02_JPRB,.738E-02_JPRB,.991E-02_JPRB,.199E-01_JPRB,.517E-01_JPRB,&
+&.771E-01_JPRB,.918E-01_JPRB,.119E+00_JPRB,.151E+00_JPRB,.127E+00_JPRB,.134E+00_JPRB,.148E+00_JPRB,&
+&.138E+00_JPRB,.138E+00_JPRB,.172E+00_JPRB,.223E+00_JPRB,.247E+00_JPRB,.239E+00_JPRB,.260E+00_JPRB,&
+&.261E+00_JPRB,.233E+00_JPRB,.175E+00_JPRB,.147E+00_JPRB,.123E+00_JPRB,.791E-01_JPRB,.654E-01_JPRB,&
+&.517E-01_JPRB,.370E-01_JPRB,.237E-01_JPRB,.202E-01_JPRB,.221E-01_JPRB,.316E-01_JPRB,.394E-01_JPRB,&
+&.373E-01_JPRB,.329E-01_JPRB,.257E-01_JPRB,.194E-01_JPRB,.164E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,&
+&.151E-01_JPRB,.135E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 32 -34.0
+ZAER (:,32, 9) = (/&
+&.143E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.149E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,.164E-01_JPRB,&
+&.157E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,.145E-01_JPRB,.154E-01_JPRB,.181E-01_JPRB,.170E-01_JPRB,&
+&.132E-01_JPRB,.138E-01_JPRB,.173E-01_JPRB,.146E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,&
+&.100E-01_JPRB,.894E-02_JPRB,.767E-02_JPRB,.675E-02_JPRB,.693E-02_JPRB,.652E-02_JPRB,.670E-02_JPRB,&
+&.743E-02_JPRB,.735E-02_JPRB,.713E-02_JPRB,.740E-02_JPRB,.801E-02_JPRB,.947E-02_JPRB,.194E-01_JPRB,&
+&.444E-01_JPRB,.743E-01_JPRB,.947E-01_JPRB,.107E+00_JPRB,.100E+00_JPRB,.106E+00_JPRB,.108E+00_JPRB,&
+&.103E+00_JPRB,.106E+00_JPRB,.134E+00_JPRB,.169E+00_JPRB,.202E+00_JPRB,.227E+00_JPRB,.233E+00_JPRB,&
+&.244E+00_JPRB,.211E+00_JPRB,.173E+00_JPRB,.144E+00_JPRB,.112E+00_JPRB,.884E-01_JPRB,.849E-01_JPRB,&
+&.657E-01_JPRB,.440E-01_JPRB,.259E-01_JPRB,.197E-01_JPRB,.234E-01_JPRB,.347E-01_JPRB,.393E-01_JPRB,&
+&.332E-01_JPRB,.319E-01_JPRB,.303E-01_JPRB,.263E-01_JPRB,.238E-01_JPRB,.214E-01_JPRB,.199E-01_JPRB,&
+&.182E-01_JPRB,.157E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 33 -38.0
+ZAER (:,33, 9) = (/&
+&.178E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.177E-01_JPRB,.184E-01_JPRB,.178E-01_JPRB,.166E-01_JPRB,&
+&.157E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.158E-01_JPRB,.185E-01_JPRB,.210E-01_JPRB,.189E-01_JPRB,&
+&.161E-01_JPRB,.181E-01_JPRB,.209E-01_JPRB,.176E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.134E-01_JPRB,&
+&.122E-01_JPRB,.114E-01_JPRB,.985E-02_JPRB,.862E-02_JPRB,.846E-02_JPRB,.849E-02_JPRB,.859E-02_JPRB,&
+&.859E-02_JPRB,.828E-02_JPRB,.814E-02_JPRB,.820E-02_JPRB,.840E-02_JPRB,.851E-02_JPRB,.140E-01_JPRB,&
+&.329E-01_JPRB,.594E-01_JPRB,.717E-01_JPRB,.723E-01_JPRB,.796E-01_JPRB,.841E-01_JPRB,.783E-01_JPRB,&
+&.845E-01_JPRB,.938E-01_JPRB,.104E+00_JPRB,.147E+00_JPRB,.258E+00_JPRB,.282E+00_JPRB,.223E+00_JPRB,&
+&.162E+00_JPRB,.140E+00_JPRB,.134E+00_JPRB,.137E+00_JPRB,.121E+00_JPRB,.101E+00_JPRB,.976E-01_JPRB,&
+&.949E-01_JPRB,.651E-01_JPRB,.425E-01_JPRB,.310E-01_JPRB,.303E-01_JPRB,.409E-01_JPRB,.445E-01_JPRB,&
+&.345E-01_JPRB,.294E-01_JPRB,.274E-01_JPRB,.276E-01_JPRB,.277E-01_JPRB,.253E-01_JPRB,.228E-01_JPRB,&
+&.202E-01_JPRB,.188E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 34 -42.0
+ZAER (:,34, 9) = (/&
+&.226E-01_JPRB,.221E-01_JPRB,.219E-01_JPRB,.214E-01_JPRB,.199E-01_JPRB,.179E-01_JPRB,.171E-01_JPRB,&
+&.167E-01_JPRB,.162E-01_JPRB,.158E-01_JPRB,.164E-01_JPRB,.184E-01_JPRB,.209E-01_JPRB,.216E-01_JPRB,&
+&.206E-01_JPRB,.286E-01_JPRB,.381E-01_JPRB,.255E-01_JPRB,.192E-01_JPRB,.165E-01_JPRB,.157E-01_JPRB,&
+&.151E-01_JPRB,.138E-01_JPRB,.126E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.997E-02_JPRB,&
+&.949E-02_JPRB,.921E-02_JPRB,.917E-02_JPRB,.912E-02_JPRB,.915E-02_JPRB,.924E-02_JPRB,.122E-01_JPRB,&
+&.203E-01_JPRB,.330E-01_JPRB,.472E-01_JPRB,.519E-01_JPRB,.545E-01_JPRB,.594E-01_JPRB,.686E-01_JPRB,&
+&.876E-01_JPRB,.107E+00_JPRB,.126E+00_JPRB,.214E+00_JPRB,.344E+00_JPRB,.345E+00_JPRB,.227E+00_JPRB,&
+&.140E+00_JPRB,.116E+00_JPRB,.119E+00_JPRB,.122E+00_JPRB,.116E+00_JPRB,.111E+00_JPRB,.117E+00_JPRB,&
+&.153E+00_JPRB,.149E+00_JPRB,.108E+00_JPRB,.851E-01_JPRB,.639E-01_JPRB,.557E-01_JPRB,.501E-01_JPRB,&
+&.409E-01_JPRB,.363E-01_JPRB,.327E-01_JPRB,.310E-01_JPRB,.294E-01_JPRB,.279E-01_JPRB,.252E-01_JPRB,&
+&.230E-01_JPRB,.226E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 35 -46.0
+ZAER (:,35, 9) = (/&
+&.255E-01_JPRB,.251E-01_JPRB,.246E-01_JPRB,.231E-01_JPRB,.211E-01_JPRB,.187E-01_JPRB,.176E-01_JPRB,&
+&.172E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.174E-01_JPRB,.190E-01_JPRB,.206E-01_JPRB,.218E-01_JPRB,&
+&.223E-01_JPRB,.287E-01_JPRB,.363E-01_JPRB,.285E-01_JPRB,.222E-01_JPRB,.187E-01_JPRB,.174E-01_JPRB,&
+&.168E-01_JPRB,.150E-01_JPRB,.139E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.111E-01_JPRB,.103E-01_JPRB,&
+&.974E-02_JPRB,.972E-02_JPRB,.994E-02_JPRB,.995E-02_JPRB,.987E-02_JPRB,.100E-01_JPRB,.112E-01_JPRB,&
+&.132E-01_JPRB,.197E-01_JPRB,.286E-01_JPRB,.333E-01_JPRB,.342E-01_JPRB,.329E-01_JPRB,.335E-01_JPRB,&
+&.503E-01_JPRB,.791E-01_JPRB,.123E+00_JPRB,.223E+00_JPRB,.279E+00_JPRB,.271E+00_JPRB,.226E+00_JPRB,&
+&.141E+00_JPRB,.117E+00_JPRB,.126E+00_JPRB,.129E+00_JPRB,.105E+00_JPRB,.111E+00_JPRB,.143E+00_JPRB,&
+&.157E+00_JPRB,.164E+00_JPRB,.174E+00_JPRB,.159E+00_JPRB,.109E+00_JPRB,.670E-01_JPRB,.531E-01_JPRB,&
+&.443E-01_JPRB,.401E-01_JPRB,.374E-01_JPRB,.361E-01_JPRB,.346E-01_JPRB,.319E-01_JPRB,.290E-01_JPRB,&
+&.269E-01_JPRB,.260E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 36 -50.0
+ZAER (:,36, 9) = (/&
+&.260E-01_JPRB,.250E-01_JPRB,.249E-01_JPRB,.241E-01_JPRB,.223E-01_JPRB,.205E-01_JPRB,.188E-01_JPRB,&
+&.179E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,.180E-01_JPRB,.188E-01_JPRB,.192E-01_JPRB,.195E-01_JPRB,&
+&.205E-01_JPRB,.221E-01_JPRB,.239E-01_JPRB,.223E-01_JPRB,.207E-01_JPRB,.195E-01_JPRB,.184E-01_JPRB,&
+&.170E-01_JPRB,.149E-01_JPRB,.135E-01_JPRB,.126E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,&
+&.103E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.976E-02_JPRB,.967E-02_JPRB,.972E-02_JPRB,.101E-01_JPRB,&
+&.107E-01_JPRB,.127E-01_JPRB,.178E-01_JPRB,.218E-01_JPRB,.239E-01_JPRB,.228E-01_JPRB,.213E-01_JPRB,&
+&.232E-01_JPRB,.289E-01_JPRB,.369E-01_JPRB,.659E-01_JPRB,.105E+00_JPRB,.151E+00_JPRB,.187E+00_JPRB,&
+&.185E+00_JPRB,.185E+00_JPRB,.139E+00_JPRB,.107E+00_JPRB,.855E-01_JPRB,.817E-01_JPRB,.935E-01_JPRB,&
+&.977E-01_JPRB,.103E+00_JPRB,.134E+00_JPRB,.147E+00_JPRB,.104E+00_JPRB,.679E-01_JPRB,.509E-01_JPRB,&
+&.420E-01_JPRB,.386E-01_JPRB,.361E-01_JPRB,.337E-01_JPRB,.319E-01_JPRB,.310E-01_JPRB,.302E-01_JPRB,&
+&.291E-01_JPRB,.275E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 37 -54.0
+ZAER (:,37, 9) = (/&
+&.245E-01_JPRB,.241E-01_JPRB,.235E-01_JPRB,.228E-01_JPRB,.218E-01_JPRB,.206E-01_JPRB,.192E-01_JPRB,&
+&.181E-01_JPRB,.175E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
+&.166E-01_JPRB,.167E-01_JPRB,.178E-01_JPRB,.181E-01_JPRB,.176E-01_JPRB,.170E-01_JPRB,.166E-01_JPRB,&
+&.160E-01_JPRB,.147E-01_JPRB,.134E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,&
+&.101E-01_JPRB,.967E-02_JPRB,.920E-02_JPRB,.873E-02_JPRB,.851E-02_JPRB,.847E-02_JPRB,.856E-02_JPRB,&
+&.903E-02_JPRB,.955E-02_JPRB,.110E-01_JPRB,.137E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,.171E-01_JPRB,&
+&.179E-01_JPRB,.196E-01_JPRB,.205E-01_JPRB,.230E-01_JPRB,.326E-01_JPRB,.546E-01_JPRB,.859E-01_JPRB,&
+&.125E+00_JPRB,.146E+00_JPRB,.119E+00_JPRB,.811E-01_JPRB,.654E-01_JPRB,.629E-01_JPRB,.635E-01_JPRB,&
+&.625E-01_JPRB,.692E-01_JPRB,.780E-01_JPRB,.735E-01_JPRB,.633E-01_JPRB,.533E-01_JPRB,.456E-01_JPRB,&
+&.391E-01_JPRB,.337E-01_JPRB,.294E-01_JPRB,.267E-01_JPRB,.255E-01_JPRB,.254E-01_JPRB,.253E-01_JPRB,&
+&.249E-01_JPRB,.247E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 38 -58.0
+ZAER (:,38, 9) = (/&
+&.188E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.188E-01_JPRB,.189E-01_JPRB,.184E-01_JPRB,.174E-01_JPRB,&
+&.163E-01_JPRB,.152E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.136E-01_JPRB,.144E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,&
+&.150E-01_JPRB,.151E-01_JPRB,.145E-01_JPRB,.135E-01_JPRB,.126E-01_JPRB,.114E-01_JPRB,.104E-01_JPRB,&
+&.949E-02_JPRB,.876E-02_JPRB,.859E-02_JPRB,.820E-02_JPRB,.786E-02_JPRB,.762E-02_JPRB,.764E-02_JPRB,&
+&.799E-02_JPRB,.832E-02_JPRB,.863E-02_JPRB,.939E-02_JPRB,.105E-01_JPRB,.114E-01_JPRB,.121E-01_JPRB,&
+&.125E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.157E-01_JPRB,.206E-01_JPRB,.298E-01_JPRB,&
+&.463E-01_JPRB,.701E-01_JPRB,.801E-01_JPRB,.658E-01_JPRB,.490E-01_JPRB,.434E-01_JPRB,.435E-01_JPRB,&
+&.420E-01_JPRB,.410E-01_JPRB,.415E-01_JPRB,.413E-01_JPRB,.385E-01_JPRB,.356E-01_JPRB,.323E-01_JPRB,&
+&.290E-01_JPRB,.256E-01_JPRB,.222E-01_JPRB,.201E-01_JPRB,.192E-01_JPRB,.198E-01_JPRB,.193E-01_JPRB,&
+&.184E-01_JPRB,.184E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 39 -62.0
+ZAER (:,39, 9) = (/&
+&.138E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,&
+&.139E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.130E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,&
+&.138E-01_JPRB,.141E-01_JPRB,.150E-01_JPRB,.154E-01_JPRB,.142E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,&
+&.146E-01_JPRB,.143E-01_JPRB,.138E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.105E-01_JPRB,&
+&.926E-02_JPRB,.820E-02_JPRB,.800E-02_JPRB,.774E-02_JPRB,.762E-02_JPRB,.782E-02_JPRB,.802E-02_JPRB,&
+&.798E-02_JPRB,.805E-02_JPRB,.821E-02_JPRB,.835E-02_JPRB,.849E-02_JPRB,.884E-02_JPRB,.917E-02_JPRB,&
+&.918E-02_JPRB,.920E-02_JPRB,.937E-02_JPRB,.928E-02_JPRB,.976E-02_JPRB,.109E-01_JPRB,.132E-01_JPRB,&
+&.183E-01_JPRB,.265E-01_JPRB,.401E-01_JPRB,.404E-01_JPRB,.379E-01_JPRB,.365E-01_JPRB,.352E-01_JPRB,&
+&.321E-01_JPRB,.299E-01_JPRB,.288E-01_JPRB,.283E-01_JPRB,.270E-01_JPRB,.253E-01_JPRB,.235E-01_JPRB,&
+&.214E-01_JPRB,.196E-01_JPRB,.183E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,.164E-01_JPRB,.175E-01_JPRB,&
+&.154E-01_JPRB,.144E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 40 -66.0
+ZAER (:,40, 9) = (/&
+&.119E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.124E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.143E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,&
+&.157E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.132E-01_JPRB,.119E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,&
+&.136E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,&
+&.970E-02_JPRB,.903E-02_JPRB,.851E-02_JPRB,.801E-02_JPRB,.799E-02_JPRB,.826E-02_JPRB,.848E-02_JPRB,&
+&.845E-02_JPRB,.848E-02_JPRB,.831E-02_JPRB,.804E-02_JPRB,.799E-02_JPRB,.800E-02_JPRB,.802E-02_JPRB,&
+&.806E-02_JPRB,.791E-02_JPRB,.777E-02_JPRB,.785E-02_JPRB,.792E-02_JPRB,.839E-02_JPRB,.974E-02_JPRB,&
+&.117E-01_JPRB,.143E-01_JPRB,.170E-01_JPRB,.206E-01_JPRB,.229E-01_JPRB,.235E-01_JPRB,.232E-01_JPRB,&
+&.239E-01_JPRB,.240E-01_JPRB,.231E-01_JPRB,.221E-01_JPRB,.209E-01_JPRB,.199E-01_JPRB,.190E-01_JPRB,&
+&.179E-01_JPRB,.168E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.144E-01_JPRB,&
+&.144E-01_JPRB,.134E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 41 -70.0
+ZAER (:,41, 9) = (/&
+&.113E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.113E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.137E-01_JPRB,.149E-01_JPRB,&
+&.156E-01_JPRB,.182E-01_JPRB,.161E-01_JPRB,.124E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.116E-01_JPRB,&
+&.117E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.993E-02_JPRB,.991E-02_JPRB,.975E-02_JPRB,&
+&.995E-02_JPRB,.100E-01_JPRB,.988E-02_JPRB,.905E-02_JPRB,.852E-02_JPRB,.885E-02_JPRB,.940E-02_JPRB,&
+&.938E-02_JPRB,.922E-02_JPRB,.887E-02_JPRB,.837E-02_JPRB,.828E-02_JPRB,.830E-02_JPRB,.833E-02_JPRB,&
+&.833E-02_JPRB,.831E-02_JPRB,.851E-02_JPRB,.890E-02_JPRB,.907E-02_JPRB,.933E-02_JPRB,.100E-01_JPRB,&
+&.107E-01_JPRB,.115E-01_JPRB,.125E-01_JPRB,.137E-01_JPRB,.156E-01_JPRB,.170E-01_JPRB,.164E-01_JPRB,&
+&.159E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.161E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,&
+&.144E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,&
+&.109E-01_JPRB,.111E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 42 -74.0
+ZAER (:,42, 9) = (/&
+&.120E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,&
+&.119E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.139E-01_JPRB,.191E-01_JPRB,.220E-01_JPRB,.168E-01_JPRB,.132E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,&
+&.104E-01_JPRB,.101E-01_JPRB,.969E-02_JPRB,.948E-02_JPRB,.945E-02_JPRB,.968E-02_JPRB,.985E-02_JPRB,&
+&.100E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.974E-02_JPRB,.912E-02_JPRB,.924E-02_JPRB,.101E-01_JPRB,&
+&.103E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,&
+&.110E-01_JPRB,.121E-01_JPRB,.128E-01_JPRB,.134E-01_JPRB,.143E-01_JPRB,.120E-01_JPRB,.103E-01_JPRB,&
+&.100E-01_JPRB,.106E-01_JPRB,.116E-01_JPRB,.133E-01_JPRB,.160E-01_JPRB,.175E-01_JPRB,.163E-01_JPRB,&
+&.142E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,.146E-01_JPRB,.151E-01_JPRB,&
+&.174E-01_JPRB,.190E-01_JPRB,.183E-01_JPRB,.149E-01_JPRB,.128E-01_JPRB,.117E-01_JPRB,.110E-01_JPRB,&
+&.106E-01_JPRB,.112E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 43 -78.0
+ZAER (:,43, 9) = (/&
+&.121E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,.140E-01_JPRB,&
+&.152E-01_JPRB,.180E-01_JPRB,.200E-01_JPRB,.198E-01_JPRB,.171E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,&
+&.997E-02_JPRB,.958E-02_JPRB,.940E-02_JPRB,.947E-02_JPRB,.946E-02_JPRB,.946E-02_JPRB,.947E-02_JPRB,&
+&.950E-02_JPRB,.959E-02_JPRB,.973E-02_JPRB,.970E-02_JPRB,.937E-02_JPRB,.933E-02_JPRB,.101E-01_JPRB,&
+&.105E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,&
+&.122E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,&
+&.112E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,.154E-01_JPRB,.164E-01_JPRB,.161E-01_JPRB,&
+&.149E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.146E-01_JPRB,.151E-01_JPRB,.159E-01_JPRB,&
+&.167E-01_JPRB,.172E-01_JPRB,.163E-01_JPRB,.139E-01_JPRB,.124E-01_JPRB,.113E-01_JPRB,.109E-01_JPRB,&
+&.110E-01_JPRB,.116E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 44 -82.0
+ZAER (:,44, 9) = (/&
+&.115E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.135E-01_JPRB,&
+&.138E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,&
+&.137E-01_JPRB,.134E-01_JPRB,.140E-01_JPRB,.151E-01_JPRB,.135E-01_JPRB,.119E-01_JPRB,.107E-01_JPRB,&
+&.996E-02_JPRB,.947E-02_JPRB,.930E-02_JPRB,.928E-02_JPRB,.928E-02_JPRB,.926E-02_JPRB,.928E-02_JPRB,&
+&.936E-02_JPRB,.950E-02_JPRB,.968E-02_JPRB,.980E-02_JPRB,.984E-02_JPRB,.998E-02_JPRB,.104E-01_JPRB,&
+&.108E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,&
+&.110E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,&
+&.120E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,&
+&.136E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,&
+&.120E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.109E-01_JPRB,&
+&.111E-01_JPRB,.113E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 45 -86.0
+ZAER (:,45, 9) = (/&
+&.114E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.112E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,&
+&.988E-02_JPRB,.986E-02_JPRB,.988E-02_JPRB,.987E-02_JPRB,.986E-02_JPRB,.988E-02_JPRB,.100E-01_JPRB,&
+&.102E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.109E-01_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.111E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month:  9 --- lat: 46 -90.0
+ZAER (:,46, 9) = (/&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=9   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_09
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_10.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_10
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      October
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,10:10)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  1  90.0
+ZAER (:, 1,10) = (/&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  2  86.0
+ZAER (:, 2,10) = (/&
+&.127E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.131E-02_JPRB,&
+&.132E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,&
+&.125E-02_JPRB,.121E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,&
+&.112E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,&
+&.119E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  3  82.0
+ZAER (:, 3,10) = (/&
+&.115E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.118E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,&
+&.122E-02_JPRB,.126E-02_JPRB,.130E-02_JPRB,.135E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,&
+&.138E-02_JPRB,.141E-02_JPRB,.145E-02_JPRB,.149E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.148E-02_JPRB,&
+&.143E-02_JPRB,.137E-02_JPRB,.131E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,&
+&.110E-02_JPRB,.107E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.107E-02_JPRB,&
+&.106E-02_JPRB,.105E-02_JPRB,.104E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.104E-02_JPRB,.105E-02_JPRB,&
+&.106E-02_JPRB,.107E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.111E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,&
+&.119E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,&
+&.126E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.127E-02_JPRB,&
+&.122E-02_JPRB,.118E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  4  78.0
+ZAER (:, 4,10) = (/&
+&.105E-02_JPRB,.101E-02_JPRB,.102E-02_JPRB,.106E-02_JPRB,.110E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,&
+&.118E-02_JPRB,.123E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.141E-02_JPRB,.146E-02_JPRB,.145E-02_JPRB,&
+&.144E-02_JPRB,.145E-02_JPRB,.147E-02_JPRB,.152E-02_JPRB,.157E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,&
+&.156E-02_JPRB,.154E-02_JPRB,.147E-02_JPRB,.138E-02_JPRB,.129E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,&
+&.116E-02_JPRB,.113E-02_JPRB,.111E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.113E-02_JPRB,.116E-02_JPRB,&
+&.118E-02_JPRB,.119E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,&
+&.125E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,.131E-02_JPRB,&
+&.120E-02_JPRB,.111E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  5  74.0
+ZAER (:, 5,10) = (/&
+&.119E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.117E-02_JPRB,&
+&.120E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.133E-02_JPRB,.144E-02_JPRB,.149E-02_JPRB,&
+&.147E-02_JPRB,.144E-02_JPRB,.142E-02_JPRB,.144E-02_JPRB,.150E-02_JPRB,.155E-02_JPRB,.160E-02_JPRB,&
+&.162E-02_JPRB,.163E-02_JPRB,.161E-02_JPRB,.152E-02_JPRB,.138E-02_JPRB,.129E-02_JPRB,.125E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.120E-02_JPRB,.118E-02_JPRB,.117E-02_JPRB,.119E-02_JPRB,.122E-02_JPRB,&
+&.126E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,.130E-02_JPRB,&
+&.135E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.140E-02_JPRB,.135E-02_JPRB,.129E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.124E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.123E-02_JPRB,.120E-02_JPRB,&
+&.118E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.117E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.119E-02_JPRB,&
+&.123E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.132E-02_JPRB,.140E-02_JPRB,.139E-02_JPRB,.131E-02_JPRB,&
+&.124E-02_JPRB,.121E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  6  70.0
+ZAER (:, 6,10) = (/&
+&.154E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.153E-02_JPRB,.156E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,&
+&.156E-02_JPRB,.152E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.141E-02_JPRB,.133E-02_JPRB,.128E-02_JPRB,.125E-02_JPRB,.130E-02_JPRB,.141E-02_JPRB,.151E-02_JPRB,&
+&.156E-02_JPRB,.162E-02_JPRB,.170E-02_JPRB,.167E-02_JPRB,.156E-02_JPRB,.144E-02_JPRB,.134E-02_JPRB,&
+&.131E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.128E-02_JPRB,.129E-02_JPRB,.134E-02_JPRB,.139E-02_JPRB,&
+&.143E-02_JPRB,.147E-02_JPRB,.150E-02_JPRB,.149E-02_JPRB,.145E-02_JPRB,.142E-02_JPRB,.141E-02_JPRB,&
+&.146E-02_JPRB,.152E-02_JPRB,.163E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,.163E-02_JPRB,.147E-02_JPRB,&
+&.132E-02_JPRB,.128E-02_JPRB,.133E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.137E-02_JPRB,.133E-02_JPRB,&
+&.129E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,&
+&.123E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.125E-02_JPRB,.135E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,&
+&.149E-02_JPRB,.154E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  7  66.0
+ZAER (:, 7,10) = (/&
+&.197E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.219E-02_JPRB,.221E-02_JPRB,.217E-02_JPRB,.207E-02_JPRB,&
+&.192E-02_JPRB,.179E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.165E-02_JPRB,.159E-02_JPRB,&
+&.138E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.136E-02_JPRB,.144E-02_JPRB,.151E-02_JPRB,&
+&.155E-02_JPRB,.160E-02_JPRB,.173E-02_JPRB,.183E-02_JPRB,.179E-02_JPRB,.167E-02_JPRB,.153E-02_JPRB,&
+&.144E-02_JPRB,.136E-02_JPRB,.132E-02_JPRB,.134E-02_JPRB,.140E-02_JPRB,.154E-02_JPRB,.166E-02_JPRB,&
+&.167E-02_JPRB,.166E-02_JPRB,.167E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.157E-02_JPRB,.158E-02_JPRB,&
+&.166E-02_JPRB,.172E-02_JPRB,.183E-02_JPRB,.193E-02_JPRB,.196E-02_JPRB,.187E-02_JPRB,.171E-02_JPRB,&
+&.158E-02_JPRB,.154E-02_JPRB,.149E-02_JPRB,.144E-02_JPRB,.140E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,&
+&.137E-02_JPRB,.135E-02_JPRB,.133E-02_JPRB,.131E-02_JPRB,.128E-02_JPRB,.124E-02_JPRB,.122E-02_JPRB,&
+&.121E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.138E-02_JPRB,.153E-02_JPRB,.160E-02_JPRB,.169E-02_JPRB,&
+&.178E-02_JPRB,.188E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  8  62.0
+ZAER (:, 8,10) = (/&
+&.272E-02_JPRB,.281E-02_JPRB,.289E-02_JPRB,.292E-02_JPRB,.288E-02_JPRB,.279E-02_JPRB,.264E-02_JPRB,&
+&.245E-02_JPRB,.227E-02_JPRB,.212E-02_JPRB,.201E-02_JPRB,.192E-02_JPRB,.189E-02_JPRB,.184E-02_JPRB,&
+&.171E-02_JPRB,.170E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.180E-02_JPRB,.190E-02_JPRB,.195E-02_JPRB,&
+&.195E-02_JPRB,.196E-02_JPRB,.213E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,.203E-02_JPRB,.183E-02_JPRB,&
+&.171E-02_JPRB,.160E-02_JPRB,.150E-02_JPRB,.145E-02_JPRB,.153E-02_JPRB,.178E-02_JPRB,.187E-02_JPRB,&
+&.184E-02_JPRB,.180E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.164E-02_JPRB,.166E-02_JPRB,.176E-02_JPRB,&
+&.188E-02_JPRB,.195E-02_JPRB,.199E-02_JPRB,.204E-02_JPRB,.206E-02_JPRB,.202E-02_JPRB,.194E-02_JPRB,&
+&.184E-02_JPRB,.175E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.161E-02_JPRB,.158E-02_JPRB,.156E-02_JPRB,&
+&.156E-02_JPRB,.155E-02_JPRB,.152E-02_JPRB,.148E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,.150E-02_JPRB,&
+&.163E-02_JPRB,.177E-02_JPRB,.193E-02_JPRB,.207E-02_JPRB,.213E-02_JPRB,.220E-02_JPRB,.235E-02_JPRB,&
+&.248E-02_JPRB,.261E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat:  9  58.0
+ZAER (:, 9,10) = (/&
+&.396E-02_JPRB,.394E-02_JPRB,.384E-02_JPRB,.368E-02_JPRB,.357E-02_JPRB,.350E-02_JPRB,.343E-02_JPRB,&
+&.328E-02_JPRB,.304E-02_JPRB,.281E-02_JPRB,.263E-02_JPRB,.249E-02_JPRB,.238E-02_JPRB,.231E-02_JPRB,&
+&.223E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,.232E-02_JPRB,.243E-02_JPRB,.251E-02_JPRB,&
+&.250E-02_JPRB,.266E-02_JPRB,.337E-02_JPRB,.431E-02_JPRB,.433E-02_JPRB,.377E-02_JPRB,.328E-02_JPRB,&
+&.289E-02_JPRB,.244E-02_JPRB,.213E-02_JPRB,.200E-02_JPRB,.207E-02_JPRB,.221E-02_JPRB,.227E-02_JPRB,&
+&.225E-02_JPRB,.211E-02_JPRB,.190E-02_JPRB,.179E-02_JPRB,.182E-02_JPRB,.195E-02_JPRB,.209E-02_JPRB,&
+&.219E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,.226E-02_JPRB,.236E-02_JPRB,.241E-02_JPRB,.238E-02_JPRB,&
+&.230E-02_JPRB,.224E-02_JPRB,.220E-02_JPRB,.219E-02_JPRB,.216E-02_JPRB,.209E-02_JPRB,.204E-02_JPRB,&
+&.200E-02_JPRB,.194E-02_JPRB,.188E-02_JPRB,.184E-02_JPRB,.185E-02_JPRB,.212E-02_JPRB,.261E-02_JPRB,&
+&.302E-02_JPRB,.328E-02_JPRB,.334E-02_JPRB,.341E-02_JPRB,.352E-02_JPRB,.376E-02_JPRB,.391E-02_JPRB,&
+&.393E-02_JPRB,.396E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 10  54.0
+ZAER (:,10,10) = (/&
+&.590E-02_JPRB,.553E-02_JPRB,.511E-02_JPRB,.474E-02_JPRB,.447E-02_JPRB,.427E-02_JPRB,.413E-02_JPRB,&
+&.398E-02_JPRB,.378E-02_JPRB,.358E-02_JPRB,.339E-02_JPRB,.319E-02_JPRB,.298E-02_JPRB,.279E-02_JPRB,&
+&.262E-02_JPRB,.252E-02_JPRB,.245E-02_JPRB,.251E-02_JPRB,.262E-02_JPRB,.279E-02_JPRB,.292E-02_JPRB,&
+&.298E-02_JPRB,.412E-02_JPRB,.738E-02_JPRB,.101E-01_JPRB,.851E-02_JPRB,.655E-02_JPRB,.529E-02_JPRB,&
+&.450E-02_JPRB,.417E-02_JPRB,.385E-02_JPRB,.343E-02_JPRB,.312E-02_JPRB,.291E-02_JPRB,.272E-02_JPRB,&
+&.258E-02_JPRB,.248E-02_JPRB,.245E-02_JPRB,.243E-02_JPRB,.245E-02_JPRB,.254E-02_JPRB,.263E-02_JPRB,&
+&.272E-02_JPRB,.278E-02_JPRB,.287E-02_JPRB,.300E-02_JPRB,.311E-02_JPRB,.320E-02_JPRB,.317E-02_JPRB,&
+&.308E-02_JPRB,.300E-02_JPRB,.297E-02_JPRB,.295E-02_JPRB,.287E-02_JPRB,.276E-02_JPRB,.266E-02_JPRB,&
+&.256E-02_JPRB,.248E-02_JPRB,.241E-02_JPRB,.235E-02_JPRB,.287E-02_JPRB,.480E-02_JPRB,.605E-02_JPRB,&
+&.666E-02_JPRB,.687E-02_JPRB,.675E-02_JPRB,.665E-02_JPRB,.644E-02_JPRB,.630E-02_JPRB,.610E-02_JPRB,&
+&.615E-02_JPRB,.618E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 11  50.0
+ZAER (:,11,10) = (/&
+&.804E-02_JPRB,.737E-02_JPRB,.637E-02_JPRB,.568E-02_JPRB,.537E-02_JPRB,.519E-02_JPRB,.497E-02_JPRB,&
+&.464E-02_JPRB,.446E-02_JPRB,.431E-02_JPRB,.416E-02_JPRB,.396E-02_JPRB,.364E-02_JPRB,.329E-02_JPRB,&
+&.304E-02_JPRB,.284E-02_JPRB,.277E-02_JPRB,.291E-02_JPRB,.311E-02_JPRB,.322E-02_JPRB,.331E-02_JPRB,&
+&.361E-02_JPRB,.103E-01_JPRB,.275E-01_JPRB,.281E-01_JPRB,.186E-01_JPRB,.129E-01_JPRB,.888E-02_JPRB,&
+&.621E-02_JPRB,.529E-02_JPRB,.504E-02_JPRB,.463E-02_JPRB,.429E-02_JPRB,.402E-02_JPRB,.371E-02_JPRB,&
+&.344E-02_JPRB,.328E-02_JPRB,.320E-02_JPRB,.315E-02_JPRB,.314E-02_JPRB,.319E-02_JPRB,.330E-02_JPRB,&
+&.357E-02_JPRB,.383E-02_JPRB,.407E-02_JPRB,.421E-02_JPRB,.427E-02_JPRB,.431E-02_JPRB,.424E-02_JPRB,&
+&.411E-02_JPRB,.400E-02_JPRB,.391E-02_JPRB,.373E-02_JPRB,.354E-02_JPRB,.341E-02_JPRB,.332E-02_JPRB,&
+&.324E-02_JPRB,.314E-02_JPRB,.302E-02_JPRB,.364E-02_JPRB,.846E-02_JPRB,.111E-01_JPRB,.102E-01_JPRB,&
+&.954E-02_JPRB,.919E-02_JPRB,.902E-02_JPRB,.910E-02_JPRB,.869E-02_JPRB,.814E-02_JPRB,.768E-02_JPRB,&
+&.801E-02_JPRB,.820E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 12  46.0
+ZAER (:,12,10) = (/&
+&.862E-02_JPRB,.772E-02_JPRB,.666E-02_JPRB,.563E-02_JPRB,.524E-02_JPRB,.518E-02_JPRB,.507E-02_JPRB,&
+&.493E-02_JPRB,.485E-02_JPRB,.480E-02_JPRB,.477E-02_JPRB,.457E-02_JPRB,.418E-02_JPRB,.378E-02_JPRB,&
+&.350E-02_JPRB,.326E-02_JPRB,.337E-02_JPRB,.363E-02_JPRB,.374E-02_JPRB,.380E-02_JPRB,.388E-02_JPRB,&
+&.444E-02_JPRB,.137E-01_JPRB,.593E-01_JPRB,.401E-01_JPRB,.221E-01_JPRB,.152E-01_JPRB,.117E-01_JPRB,&
+&.953E-02_JPRB,.780E-02_JPRB,.656E-02_JPRB,.604E-02_JPRB,.591E-02_JPRB,.578E-02_JPRB,.549E-02_JPRB,&
+&.511E-02_JPRB,.478E-02_JPRB,.450E-02_JPRB,.426E-02_JPRB,.410E-02_JPRB,.418E-02_JPRB,.462E-02_JPRB,&
+&.519E-02_JPRB,.550E-02_JPRB,.556E-02_JPRB,.557E-02_JPRB,.569E-02_JPRB,.564E-02_JPRB,.542E-02_JPRB,&
+&.524E-02_JPRB,.510E-02_JPRB,.487E-02_JPRB,.458E-02_JPRB,.436E-02_JPRB,.419E-02_JPRB,.409E-02_JPRB,&
+&.402E-02_JPRB,.392E-02_JPRB,.528E-02_JPRB,.113E-01_JPRB,.170E-01_JPRB,.133E-01_JPRB,.102E-01_JPRB,&
+&.973E-02_JPRB,.105E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.103E-01_JPRB,.971E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 13  42.0
+ZAER (:,13,10) = (/&
+&.880E-02_JPRB,.737E-02_JPRB,.674E-02_JPRB,.606E-02_JPRB,.523E-02_JPRB,.476E-02_JPRB,.470E-02_JPRB,&
+&.482E-02_JPRB,.488E-02_JPRB,.487E-02_JPRB,.491E-02_JPRB,.488E-02_JPRB,.460E-02_JPRB,.422E-02_JPRB,&
+&.398E-02_JPRB,.393E-02_JPRB,.422E-02_JPRB,.438E-02_JPRB,.442E-02_JPRB,.456E-02_JPRB,.466E-02_JPRB,&
+&.492E-02_JPRB,.111E-01_JPRB,.664E-01_JPRB,.475E-01_JPRB,.220E-01_JPRB,.148E-01_JPRB,.119E-01_JPRB,&
+&.104E-01_JPRB,.949E-02_JPRB,.883E-02_JPRB,.835E-02_JPRB,.798E-02_JPRB,.769E-02_JPRB,.748E-02_JPRB,&
+&.721E-02_JPRB,.683E-02_JPRB,.648E-02_JPRB,.617E-02_JPRB,.599E-02_JPRB,.657E-02_JPRB,.723E-02_JPRB,&
+&.760E-02_JPRB,.773E-02_JPRB,.772E-02_JPRB,.767E-02_JPRB,.737E-02_JPRB,.688E-02_JPRB,.657E-02_JPRB,&
+&.642E-02_JPRB,.614E-02_JPRB,.580E-02_JPRB,.551E-02_JPRB,.534E-02_JPRB,.524E-02_JPRB,.510E-02_JPRB,&
+&.504E-02_JPRB,.616E-02_JPRB,.123E-01_JPRB,.208E-01_JPRB,.246E-01_JPRB,.152E-01_JPRB,.128E-01_JPRB,&
+&.138E-01_JPRB,.153E-01_JPRB,.137E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.102E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 14  38.0
+ZAER (:,14,10) = (/&
+&.101E-01_JPRB,.852E-02_JPRB,.745E-02_JPRB,.651E-02_JPRB,.540E-02_JPRB,.501E-02_JPRB,.512E-02_JPRB,&
+&.526E-02_JPRB,.521E-02_JPRB,.519E-02_JPRB,.521E-02_JPRB,.526E-02_JPRB,.527E-02_JPRB,.494E-02_JPRB,&
+&.472E-02_JPRB,.488E-02_JPRB,.521E-02_JPRB,.526E-02_JPRB,.542E-02_JPRB,.569E-02_JPRB,.591E-02_JPRB,&
+&.660E-02_JPRB,.111E-01_JPRB,.378E-01_JPRB,.428E-01_JPRB,.265E-01_JPRB,.179E-01_JPRB,.142E-01_JPRB,&
+&.127E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.106E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.967E-02_JPRB,&
+&.925E-02_JPRB,.881E-02_JPRB,.842E-02_JPRB,.800E-02_JPRB,.828E-02_JPRB,.101E-01_JPRB,.111E-01_JPRB,&
+&.122E-01_JPRB,.119E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.950E-02_JPRB,.876E-02_JPRB,.819E-02_JPRB,&
+&.769E-02_JPRB,.726E-02_JPRB,.696E-02_JPRB,.678E-02_JPRB,.669E-02_JPRB,.664E-02_JPRB,.640E-02_JPRB,&
+&.629E-02_JPRB,.956E-02_JPRB,.169E-01_JPRB,.282E-01_JPRB,.429E-01_JPRB,.309E-01_JPRB,.285E-01_JPRB,&
+&.310E-01_JPRB,.290E-01_JPRB,.210E-01_JPRB,.171E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.151E-01_JPRB,&
+&.142E-01_JPRB,.117E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 15  34.0
+ZAER (:,15,10) = (/&
+&.125E-01_JPRB,.106E-01_JPRB,.926E-02_JPRB,.791E-02_JPRB,.708E-02_JPRB,.706E-02_JPRB,.695E-02_JPRB,&
+&.706E-02_JPRB,.725E-02_JPRB,.710E-02_JPRB,.679E-02_JPRB,.645E-02_JPRB,.625E-02_JPRB,.602E-02_JPRB,&
+&.598E-02_JPRB,.631E-02_JPRB,.655E-02_JPRB,.654E-02_JPRB,.666E-02_JPRB,.694E-02_JPRB,.736E-02_JPRB,&
+&.924E-02_JPRB,.146E-01_JPRB,.273E-01_JPRB,.325E-01_JPRB,.255E-01_JPRB,.218E-01_JPRB,.192E-01_JPRB,&
+&.169E-01_JPRB,.151E-01_JPRB,.139E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,&
+&.104E-01_JPRB,.980E-02_JPRB,.932E-02_JPRB,.918E-02_JPRB,.125E-01_JPRB,.213E-01_JPRB,.246E-01_JPRB,&
+&.221E-01_JPRB,.188E-01_JPRB,.162E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.118E-01_JPRB,.107E-01_JPRB,&
+&.959E-02_JPRB,.890E-02_JPRB,.873E-02_JPRB,.877E-02_JPRB,.867E-02_JPRB,.847E-02_JPRB,.812E-02_JPRB,&
+&.812E-02_JPRB,.112E-01_JPRB,.172E-01_JPRB,.312E-01_JPRB,.623E-01_JPRB,.852E-01_JPRB,.859E-01_JPRB,&
+&.749E-01_JPRB,.674E-01_JPRB,.398E-01_JPRB,.275E-01_JPRB,.235E-01_JPRB,.231E-01_JPRB,.221E-01_JPRB,&
+&.189E-01_JPRB,.153E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 16  30.0
+ZAER (:,16,10) = (/&
+&.165E-01_JPRB,.137E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.940E-02_JPRB,.865E-02_JPRB,.809E-02_JPRB,.782E-02_JPRB,&
+&.783E-02_JPRB,.801E-02_JPRB,.803E-02_JPRB,.799E-02_JPRB,.804E-02_JPRB,.820E-02_JPRB,.843E-02_JPRB,&
+&.108E-01_JPRB,.195E-01_JPRB,.252E-01_JPRB,.284E-01_JPRB,.207E-01_JPRB,.175E-01_JPRB,.171E-01_JPRB,&
+&.169E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.141E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,&
+&.115E-01_JPRB,.109E-01_JPRB,.105E-01_JPRB,.118E-01_JPRB,.244E-01_JPRB,.519E-01_JPRB,.495E-01_JPRB,&
+&.342E-01_JPRB,.259E-01_JPRB,.238E-01_JPRB,.217E-01_JPRB,.179E-01_JPRB,.144E-01_JPRB,.127E-01_JPRB,&
+&.117E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.129E-01_JPRB,.207E-01_JPRB,.321E-01_JPRB,.578E-01_JPRB,.117E+00_JPRB,.162E+00_JPRB,&
+&.147E+00_JPRB,.117E+00_JPRB,.747E-01_JPRB,.541E-01_JPRB,.436E-01_JPRB,.354E-01_JPRB,.299E-01_JPRB,&
+&.250E-01_JPRB,.207E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 17  26.0
+ZAER (:,17,10) = (/&
+&.190E-01_JPRB,.161E-01_JPRB,.147E-01_JPRB,.137E-01_JPRB,.130E-01_JPRB,.124E-01_JPRB,.117E-01_JPRB,&
+&.111E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.972E-02_JPRB,.942E-02_JPRB,.921E-02_JPRB,&
+&.914E-02_JPRB,.898E-02_JPRB,.886E-02_JPRB,.873E-02_JPRB,.862E-02_JPRB,.868E-02_JPRB,.894E-02_JPRB,&
+&.117E-01_JPRB,.269E-01_JPRB,.390E-01_JPRB,.480E-01_JPRB,.248E-01_JPRB,.189E-01_JPRB,.173E-01_JPRB,&
+&.169E-01_JPRB,.158E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,&
+&.120E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,.214E-01_JPRB,.416E-01_JPRB,.614E-01_JPRB,.561E-01_JPRB,&
+&.397E-01_JPRB,.328E-01_JPRB,.329E-01_JPRB,.303E-01_JPRB,.206E-01_JPRB,.171E-01_JPRB,.155E-01_JPRB,&
+&.147E-01_JPRB,.143E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.129E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,&
+&.121E-01_JPRB,.142E-01_JPRB,.256E-01_JPRB,.495E-01_JPRB,.609E-01_JPRB,.939E-01_JPRB,.137E+00_JPRB,&
+&.154E+00_JPRB,.125E+00_JPRB,.871E-01_JPRB,.637E-01_JPRB,.471E-01_JPRB,.378E-01_JPRB,.317E-01_JPRB,&
+&.264E-01_JPRB,.228E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 18  22.0
+ZAER (:,18,10) = (/&
+&.159E-01_JPRB,.138E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.946E-02_JPRB,&
+&.861E-02_JPRB,.814E-02_JPRB,.800E-02_JPRB,.802E-02_JPRB,.811E-02_JPRB,.821E-02_JPRB,.827E-02_JPRB,&
+&.849E-02_JPRB,.863E-02_JPRB,.849E-02_JPRB,.830E-02_JPRB,.829E-02_JPRB,.879E-02_JPRB,.108E-01_JPRB,&
+&.204E-01_JPRB,.338E-01_JPRB,.482E-01_JPRB,.630E-01_JPRB,.251E-01_JPRB,.183E-01_JPRB,.161E-01_JPRB,&
+&.141E-01_JPRB,.134E-01_JPRB,.140E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,&
+&.136E-01_JPRB,.153E-01_JPRB,.203E-01_JPRB,.292E-01_JPRB,.448E-01_JPRB,.566E-01_JPRB,.596E-01_JPRB,&
+&.436E-01_JPRB,.359E-01_JPRB,.379E-01_JPRB,.425E-01_JPRB,.238E-01_JPRB,.195E-01_JPRB,.178E-01_JPRB,&
+&.171E-01_JPRB,.158E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,&
+&.141E-01_JPRB,.182E-01_JPRB,.326E-01_JPRB,.614E-01_JPRB,.664E-01_JPRB,.745E-01_JPRB,.767E-01_JPRB,&
+&.760E-01_JPRB,.721E-01_JPRB,.680E-01_JPRB,.552E-01_JPRB,.423E-01_JPRB,.344E-01_JPRB,.273E-01_JPRB,&
+&.218E-01_JPRB,.184E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 19  18.0
+ZAER (:,19,10) = (/&
+&.107E-01_JPRB,.975E-02_JPRB,.892E-02_JPRB,.824E-02_JPRB,.791E-02_JPRB,.747E-02_JPRB,.687E-02_JPRB,&
+&.635E-02_JPRB,.631E-02_JPRB,.657E-02_JPRB,.686E-02_JPRB,.711E-02_JPRB,.722E-02_JPRB,.737E-02_JPRB,&
+&.775E-02_JPRB,.813E-02_JPRB,.822E-02_JPRB,.837E-02_JPRB,.907E-02_JPRB,.114E-01_JPRB,.166E-01_JPRB,&
+&.225E-01_JPRB,.250E-01_JPRB,.352E-01_JPRB,.380E-01_JPRB,.186E-01_JPRB,.141E-01_JPRB,.129E-01_JPRB,&
+&.127E-01_JPRB,.135E-01_JPRB,.151E-01_JPRB,.159E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,&
+&.170E-01_JPRB,.196E-01_JPRB,.245E-01_JPRB,.294E-01_JPRB,.349E-01_JPRB,.473E-01_JPRB,.468E-01_JPRB,&
+&.361E-01_JPRB,.329E-01_JPRB,.372E-01_JPRB,.406E-01_JPRB,.240E-01_JPRB,.195E-01_JPRB,.165E-01_JPRB,&
+&.144E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.126E-01_JPRB,.149E-01_JPRB,&
+&.188E-01_JPRB,.236E-01_JPRB,.336E-01_JPRB,.444E-01_JPRB,.489E-01_JPRB,.546E-01_JPRB,.473E-01_JPRB,&
+&.466E-01_JPRB,.454E-01_JPRB,.456E-01_JPRB,.412E-01_JPRB,.349E-01_JPRB,.275E-01_JPRB,.197E-01_JPRB,&
+&.148E-01_JPRB,.121E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 20  14.0
+ZAER (:,20,10) = (/&
+&.574E-02_JPRB,.558E-02_JPRB,.557E-02_JPRB,.542E-02_JPRB,.553E-02_JPRB,.550E-02_JPRB,.546E-02_JPRB,&
+&.559E-02_JPRB,.603E-02_JPRB,.655E-02_JPRB,.697E-02_JPRB,.721E-02_JPRB,.744E-02_JPRB,.772E-02_JPRB,&
+&.823E-02_JPRB,.889E-02_JPRB,.927E-02_JPRB,.974E-02_JPRB,.109E-01_JPRB,.130E-01_JPRB,.148E-01_JPRB,&
+&.175E-01_JPRB,.207E-01_JPRB,.240E-01_JPRB,.201E-01_JPRB,.157E-01_JPRB,.149E-01_JPRB,.161E-01_JPRB,&
+&.162E-01_JPRB,.160E-01_JPRB,.166E-01_JPRB,.172E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,.190E-01_JPRB,&
+&.205E-01_JPRB,.225E-01_JPRB,.244E-01_JPRB,.252E-01_JPRB,.284E-01_JPRB,.316E-01_JPRB,.327E-01_JPRB,&
+&.295E-01_JPRB,.273E-01_JPRB,.275E-01_JPRB,.247E-01_JPRB,.188E-01_JPRB,.134E-01_JPRB,.101E-01_JPRB,&
+&.871E-02_JPRB,.852E-02_JPRB,.838E-02_JPRB,.813E-02_JPRB,.904E-02_JPRB,.121E-01_JPRB,.165E-01_JPRB,&
+&.212E-01_JPRB,.238E-01_JPRB,.281E-01_JPRB,.350E-01_JPRB,.412E-01_JPRB,.399E-01_JPRB,.351E-01_JPRB,&
+&.351E-01_JPRB,.355E-01_JPRB,.344E-01_JPRB,.267E-01_JPRB,.194E-01_JPRB,.135E-01_JPRB,.980E-02_JPRB,&
+&.781E-02_JPRB,.649E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 21  10.0
+ZAER (:,21,10) = (/&
+&.344E-02_JPRB,.355E-02_JPRB,.397E-02_JPRB,.441E-02_JPRB,.488E-02_JPRB,.524E-02_JPRB,.568E-02_JPRB,&
+&.614E-02_JPRB,.674E-02_JPRB,.730E-02_JPRB,.766E-02_JPRB,.788E-02_JPRB,.807E-02_JPRB,.847E-02_JPRB,&
+&.901E-02_JPRB,.956E-02_JPRB,.101E-01_JPRB,.107E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.133E-01_JPRB,&
+&.155E-01_JPRB,.171E-01_JPRB,.165E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,.169E-01_JPRB,.204E-01_JPRB,&
+&.222E-01_JPRB,.188E-01_JPRB,.178E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,.191E-01_JPRB,.195E-01_JPRB,&
+&.203E-01_JPRB,.200E-01_JPRB,.195E-01_JPRB,.199E-01_JPRB,.212E-01_JPRB,.211E-01_JPRB,.225E-01_JPRB,&
+&.222E-01_JPRB,.206E-01_JPRB,.177E-01_JPRB,.140E-01_JPRB,.106E-01_JPRB,.752E-02_JPRB,.573E-02_JPRB,&
+&.486E-02_JPRB,.480E-02_JPRB,.492E-02_JPRB,.558E-02_JPRB,.718E-02_JPRB,.101E-01_JPRB,.138E-01_JPRB,&
+&.174E-01_JPRB,.203E-01_JPRB,.242E-01_JPRB,.273E-01_JPRB,.272E-01_JPRB,.248E-01_JPRB,.231E-01_JPRB,&
+&.214E-01_JPRB,.192E-01_JPRB,.154E-01_JPRB,.103E-01_JPRB,.768E-02_JPRB,.606E-02_JPRB,.497E-02_JPRB,&
+&.432E-02_JPRB,.370E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 22   6.0
+ZAER (:,22,10) = (/&
+&.343E-02_JPRB,.377E-02_JPRB,.422E-02_JPRB,.468E-02_JPRB,.516E-02_JPRB,.563E-02_JPRB,.615E-02_JPRB,&
+&.678E-02_JPRB,.737E-02_JPRB,.782E-02_JPRB,.806E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.819E-02_JPRB,&
+&.838E-02_JPRB,.876E-02_JPRB,.916E-02_JPRB,.960E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.105E-01_JPRB,&
+&.113E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,.149E-01_JPRB,.181E-01_JPRB,.205E-01_JPRB,.224E-01_JPRB,&
+&.226E-01_JPRB,.193E-01_JPRB,.169E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,&
+&.170E-01_JPRB,.156E-01_JPRB,.146E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.134E-01_JPRB,.148E-01_JPRB,&
+&.163E-01_JPRB,.155E-01_JPRB,.121E-01_JPRB,.912E-02_JPRB,.703E-02_JPRB,.505E-02_JPRB,.349E-02_JPRB,&
+&.267E-02_JPRB,.243E-02_JPRB,.245E-02_JPRB,.281E-02_JPRB,.363E-02_JPRB,.497E-02_JPRB,.647E-02_JPRB,&
+&.820E-02_JPRB,.982E-02_JPRB,.105E-01_JPRB,.998E-02_JPRB,.958E-02_JPRB,.894E-02_JPRB,.808E-02_JPRB,&
+&.664E-02_JPRB,.503E-02_JPRB,.406E-02_JPRB,.364E-02_JPRB,.345E-02_JPRB,.304E-02_JPRB,.292E-02_JPRB,&
+&.306E-02_JPRB,.322E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 23   2.0
+ZAER (:,23,10) = (/&
+&.317E-02_JPRB,.351E-02_JPRB,.392E-02_JPRB,.430E-02_JPRB,.465E-02_JPRB,.502E-02_JPRB,.540E-02_JPRB,&
+&.572E-02_JPRB,.591E-02_JPRB,.603E-02_JPRB,.611E-02_JPRB,.614E-02_JPRB,.622E-02_JPRB,.628E-02_JPRB,&
+&.641E-02_JPRB,.667E-02_JPRB,.704E-02_JPRB,.737E-02_JPRB,.770E-02_JPRB,.779E-02_JPRB,.813E-02_JPRB,&
+&.774E-02_JPRB,.920E-02_JPRB,.113E-01_JPRB,.143E-01_JPRB,.184E-01_JPRB,.226E-01_JPRB,.222E-01_JPRB,&
+&.176E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,&
+&.144E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.126E-01_JPRB,.148E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.146E-01_JPRB,.104E-01_JPRB,.737E-02_JPRB,.462E-02_JPRB,.277E-02_JPRB,&
+&.186E-02_JPRB,.144E-02_JPRB,.126E-02_JPRB,.128E-02_JPRB,.151E-02_JPRB,.191E-02_JPRB,.241E-02_JPRB,&
+&.297E-02_JPRB,.322E-02_JPRB,.303E-02_JPRB,.275E-02_JPRB,.249E-02_JPRB,.226E-02_JPRB,.211E-02_JPRB,&
+&.185E-02_JPRB,.167E-02_JPRB,.161E-02_JPRB,.165E-02_JPRB,.169E-02_JPRB,.186E-02_JPRB,.221E-02_JPRB,&
+&.259E-02_JPRB,.288E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 24  -2.0
+ZAER (:,24,10) = (/&
+&.197E-02_JPRB,.217E-02_JPRB,.240E-02_JPRB,.264E-02_JPRB,.288E-02_JPRB,.312E-02_JPRB,.334E-02_JPRB,&
+&.354E-02_JPRB,.368E-02_JPRB,.378E-02_JPRB,.392E-02_JPRB,.399E-02_JPRB,.403E-02_JPRB,.412E-02_JPRB,&
+&.423E-02_JPRB,.437E-02_JPRB,.465E-02_JPRB,.504E-02_JPRB,.523E-02_JPRB,.476E-02_JPRB,.493E-02_JPRB,&
+&.551E-02_JPRB,.700E-02_JPRB,.844E-02_JPRB,.992E-02_JPRB,.115E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,&
+&.111E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,&
+&.136E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.153E-01_JPRB,.187E-01_JPRB,.228E-01_JPRB,&
+&.265E-01_JPRB,.304E-01_JPRB,.331E-01_JPRB,.246E-01_JPRB,.102E-01_JPRB,.614E-02_JPRB,.454E-02_JPRB,&
+&.324E-02_JPRB,.236E-02_JPRB,.160E-02_JPRB,.104E-02_JPRB,.806E-03_JPRB,.837E-03_JPRB,.967E-03_JPRB,&
+&.106E-02_JPRB,.102E-02_JPRB,.976E-03_JPRB,.890E-03_JPRB,.815E-03_JPRB,.773E-03_JPRB,.776E-03_JPRB,&
+&.793E-03_JPRB,.839E-03_JPRB,.923E-03_JPRB,.103E-02_JPRB,.114E-02_JPRB,.129E-02_JPRB,.147E-02_JPRB,&
+&.164E-02_JPRB,.179E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 25  -6.0
+ZAER (:,25,10) = (/&
+&.134E-02_JPRB,.144E-02_JPRB,.156E-02_JPRB,.173E-02_JPRB,.193E-02_JPRB,.214E-02_JPRB,.236E-02_JPRB,&
+&.259E-02_JPRB,.277E-02_JPRB,.284E-02_JPRB,.288E-02_JPRB,.290E-02_JPRB,.287E-02_JPRB,.276E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.270E-02_JPRB,.289E-02_JPRB,.306E-02_JPRB,.307E-02_JPRB,.343E-02_JPRB,&
+&.460E-02_JPRB,.581E-02_JPRB,.674E-02_JPRB,.766E-02_JPRB,.876E-02_JPRB,.947E-02_JPRB,.992E-02_JPRB,&
+&.105E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.105E-01_JPRB,.130E-01_JPRB,.164E-01_JPRB,&
+&.201E-01_JPRB,.229E-01_JPRB,.233E-01_JPRB,.242E-01_JPRB,.291E-01_JPRB,.339E-01_JPRB,.398E-01_JPRB,&
+&.482E-01_JPRB,.586E-01_JPRB,.704E-01_JPRB,.761E-01_JPRB,.462E-01_JPRB,.131E-01_JPRB,.125E-01_JPRB,&
+&.113E-01_JPRB,.100E-01_JPRB,.825E-02_JPRB,.544E-02_JPRB,.252E-02_JPRB,.114E-02_JPRB,.785E-03_JPRB,&
+&.577E-03_JPRB,.536E-03_JPRB,.579E-03_JPRB,.605E-03_JPRB,.605E-03_JPRB,.558E-03_JPRB,.511E-03_JPRB,&
+&.535E-03_JPRB,.590E-03_JPRB,.649E-03_JPRB,.703E-03_JPRB,.766E-03_JPRB,.854E-03_JPRB,.981E-03_JPRB,&
+&.111E-02_JPRB,.123E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 26 -10.0
+ZAER (:,26,10) = (/&
+&.133E-02_JPRB,.129E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.124E-02_JPRB,.141E-02_JPRB,.163E-02_JPRB,&
+&.192E-02_JPRB,.216E-02_JPRB,.223E-02_JPRB,.219E-02_JPRB,.216E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,&
+&.228E-02_JPRB,.238E-02_JPRB,.245E-02_JPRB,.254E-02_JPRB,.271E-02_JPRB,.278E-02_JPRB,.303E-02_JPRB,&
+&.446E-02_JPRB,.626E-02_JPRB,.737E-02_JPRB,.837E-02_JPRB,.104E-01_JPRB,.123E-01_JPRB,.139E-01_JPRB,&
+&.153E-01_JPRB,.163E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.177E-01_JPRB,.215E-01_JPRB,.288E-01_JPRB,&
+&.385E-01_JPRB,.501E-01_JPRB,.576E-01_JPRB,.649E-01_JPRB,.776E-01_JPRB,.839E-01_JPRB,.826E-01_JPRB,&
+&.823E-01_JPRB,.878E-01_JPRB,.944E-01_JPRB,.103E+00_JPRB,.697E-01_JPRB,.338E-01_JPRB,.315E-01_JPRB,&
+&.320E-01_JPRB,.301E-01_JPRB,.278E-01_JPRB,.240E-01_JPRB,.179E-01_JPRB,.875E-02_JPRB,.393E-02_JPRB,&
+&.164E-02_JPRB,.114E-02_JPRB,.140E-02_JPRB,.160E-02_JPRB,.164E-02_JPRB,.144E-02_JPRB,.125E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.106E-02_JPRB,.944E-03_JPRB,.844E-03_JPRB,.896E-03_JPRB,&
+&.106E-02_JPRB,.124E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 27 -14.0
+ZAER (:,27,10) = (/&
+&.312E-02_JPRB,.279E-02_JPRB,.222E-02_JPRB,.180E-02_JPRB,.146E-02_JPRB,.147E-02_JPRB,.178E-02_JPRB,&
+&.226E-02_JPRB,.273E-02_JPRB,.300E-02_JPRB,.314E-02_JPRB,.310E-02_JPRB,.304E-02_JPRB,.319E-02_JPRB,&
+&.349E-02_JPRB,.382E-02_JPRB,.467E-02_JPRB,.514E-02_JPRB,.499E-02_JPRB,.476E-02_JPRB,.465E-02_JPRB,&
+&.568E-02_JPRB,.760E-02_JPRB,.945E-02_JPRB,.121E-01_JPRB,.148E-01_JPRB,.178E-01_JPRB,.207E-01_JPRB,&
+&.228E-01_JPRB,.259E-01_JPRB,.302E-01_JPRB,.338E-01_JPRB,.349E-01_JPRB,.393E-01_JPRB,.512E-01_JPRB,&
+&.731E-01_JPRB,.992E-01_JPRB,.122E+00_JPRB,.122E+00_JPRB,.138E+00_JPRB,.151E+00_JPRB,.136E+00_JPRB,&
+&.127E+00_JPRB,.121E+00_JPRB,.127E+00_JPRB,.124E+00_JPRB,.969E-01_JPRB,.723E-01_JPRB,.612E-01_JPRB,&
+&.599E-01_JPRB,.555E-01_JPRB,.535E-01_JPRB,.507E-01_JPRB,.454E-01_JPRB,.309E-01_JPRB,.154E-01_JPRB,&
+&.645E-02_JPRB,.343E-02_JPRB,.307E-02_JPRB,.362E-02_JPRB,.394E-02_JPRB,.389E-02_JPRB,.346E-02_JPRB,&
+&.314E-02_JPRB,.301E-02_JPRB,.310E-02_JPRB,.303E-02_JPRB,.278E-02_JPRB,.246E-02_JPRB,.243E-02_JPRB,&
+&.275E-02_JPRB,.306E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 28 -18.0
+ZAER (:,28,10) = (/&
+&.690E-02_JPRB,.671E-02_JPRB,.573E-02_JPRB,.441E-02_JPRB,.337E-02_JPRB,.303E-02_JPRB,.328E-02_JPRB,&
+&.371E-02_JPRB,.426E-02_JPRB,.463E-02_JPRB,.511E-02_JPRB,.561E-02_JPRB,.602E-02_JPRB,.664E-02_JPRB,&
+&.689E-02_JPRB,.723E-02_JPRB,.836E-02_JPRB,.957E-02_JPRB,.959E-02_JPRB,.913E-02_JPRB,.872E-02_JPRB,&
+&.860E-02_JPRB,.893E-02_JPRB,.104E-01_JPRB,.128E-01_JPRB,.155E-01_JPRB,.180E-01_JPRB,.194E-01_JPRB,&
+&.209E-01_JPRB,.253E-01_JPRB,.336E-01_JPRB,.441E-01_JPRB,.549E-01_JPRB,.576E-01_JPRB,.662E-01_JPRB,&
+&.935E-01_JPRB,.119E+00_JPRB,.127E+00_JPRB,.137E+00_JPRB,.151E+00_JPRB,.158E+00_JPRB,.159E+00_JPRB,&
+&.160E+00_JPRB,.144E+00_JPRB,.148E+00_JPRB,.171E+00_JPRB,.139E+00_JPRB,.117E+00_JPRB,.974E-01_JPRB,&
+&.876E-01_JPRB,.814E-01_JPRB,.760E-01_JPRB,.746E-01_JPRB,.722E-01_JPRB,.571E-01_JPRB,.364E-01_JPRB,&
+&.215E-01_JPRB,.108E-01_JPRB,.731E-02_JPRB,.663E-02_JPRB,.683E-02_JPRB,.665E-02_JPRB,.626E-02_JPRB,&
+&.594E-02_JPRB,.562E-02_JPRB,.566E-02_JPRB,.611E-02_JPRB,.635E-02_JPRB,.630E-02_JPRB,.647E-02_JPRB,&
+&.661E-02_JPRB,.679E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 29 -22.0
+ZAER (:,29,10) = (/&
+&.996E-02_JPRB,.107E-01_JPRB,.104E-01_JPRB,.923E-02_JPRB,.760E-02_JPRB,.666E-02_JPRB,.642E-02_JPRB,&
+&.611E-02_JPRB,.619E-02_JPRB,.664E-02_JPRB,.704E-02_JPRB,.751E-02_JPRB,.858E-02_JPRB,.112E-01_JPRB,&
+&.142E-01_JPRB,.143E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,&
+&.122E-01_JPRB,.101E-01_JPRB,.889E-02_JPRB,.949E-02_JPRB,.114E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,&
+&.145E-01_JPRB,.167E-01_JPRB,.223E-01_JPRB,.331E-01_JPRB,.509E-01_JPRB,.666E-01_JPRB,.699E-01_JPRB,&
+&.870E-01_JPRB,.956E-01_JPRB,.995E-01_JPRB,.128E+00_JPRB,.139E+00_JPRB,.132E+00_JPRB,.147E+00_JPRB,&
+&.166E+00_JPRB,.138E+00_JPRB,.143E+00_JPRB,.164E+00_JPRB,.137E+00_JPRB,.127E+00_JPRB,.119E+00_JPRB,&
+&.110E+00_JPRB,.950E-01_JPRB,.874E-01_JPRB,.838E-01_JPRB,.859E-01_JPRB,.770E-01_JPRB,.597E-01_JPRB,&
+&.387E-01_JPRB,.233E-01_JPRB,.163E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,.116E-01_JPRB,.103E-01_JPRB,&
+&.980E-02_JPRB,.905E-02_JPRB,.863E-02_JPRB,.914E-02_JPRB,.936E-02_JPRB,.962E-02_JPRB,.101E-01_JPRB,&
+&.981E-02_JPRB,.957E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 30 -26.0
+ZAER (:,30,10) = (/&
+&.112E-01_JPRB,.129E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.127E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,&
+&.101E-01_JPRB,.102E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,.125E-01_JPRB,.165E-01_JPRB,&
+&.173E-01_JPRB,.245E-01_JPRB,.330E-01_JPRB,.205E-01_JPRB,.165E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,&
+&.135E-01_JPRB,.122E-01_JPRB,.994E-02_JPRB,.858E-02_JPRB,.897E-02_JPRB,.989E-02_JPRB,.102E-01_JPRB,&
+&.101E-01_JPRB,.103E-01_JPRB,.122E-01_JPRB,.174E-01_JPRB,.330E-01_JPRB,.546E-01_JPRB,.578E-01_JPRB,&
+&.681E-01_JPRB,.737E-01_JPRB,.849E-01_JPRB,.124E+00_JPRB,.142E+00_JPRB,.132E+00_JPRB,.128E+00_JPRB,&
+&.123E+00_JPRB,.117E+00_JPRB,.132E+00_JPRB,.142E+00_JPRB,.135E+00_JPRB,.123E+00_JPRB,.122E+00_JPRB,&
+&.120E+00_JPRB,.103E+00_JPRB,.958E-01_JPRB,.953E-01_JPRB,.959E-01_JPRB,.798E-01_JPRB,.637E-01_JPRB,&
+&.510E-01_JPRB,.392E-01_JPRB,.314E-01_JPRB,.274E-01_JPRB,.239E-01_JPRB,.219E-01_JPRB,.209E-01_JPRB,&
+&.200E-01_JPRB,.180E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,.142E-01_JPRB,.128E-01_JPRB,.121E-01_JPRB,&
+&.114E-01_JPRB,.108E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 31 -30.0
+ZAER (:,31,10) = (/&
+&.117E-01_JPRB,.130E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,.140E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,&
+&.127E-01_JPRB,.131E-01_JPRB,.138E-01_JPRB,.147E-01_JPRB,.153E-01_JPRB,.163E-01_JPRB,.179E-01_JPRB,&
+&.182E-01_JPRB,.382E-01_JPRB,.705E-01_JPRB,.312E-01_JPRB,.194E-01_JPRB,.149E-01_JPRB,.136E-01_JPRB,&
+&.133E-01_JPRB,.123E-01_JPRB,.109E-01_JPRB,.945E-02_JPRB,.859E-02_JPRB,.841E-02_JPRB,.832E-02_JPRB,&
+&.827E-02_JPRB,.844E-02_JPRB,.878E-02_JPRB,.100E-01_JPRB,.158E-01_JPRB,.327E-01_JPRB,.441E-01_JPRB,&
+&.419E-01_JPRB,.509E-01_JPRB,.789E-01_JPRB,.164E+00_JPRB,.166E+00_JPRB,.160E+00_JPRB,.139E+00_JPRB,&
+&.111E+00_JPRB,.108E+00_JPRB,.130E+00_JPRB,.132E+00_JPRB,.134E+00_JPRB,.124E+00_JPRB,.133E+00_JPRB,&
+&.141E+00_JPRB,.124E+00_JPRB,.110E+00_JPRB,.101E+00_JPRB,.899E-01_JPRB,.692E-01_JPRB,.607E-01_JPRB,&
+&.581E-01_JPRB,.503E-01_JPRB,.457E-01_JPRB,.474E-01_JPRB,.428E-01_JPRB,.372E-01_JPRB,.342E-01_JPRB,&
+&.319E-01_JPRB,.288E-01_JPRB,.254E-01_JPRB,.219E-01_JPRB,.191E-01_JPRB,.164E-01_JPRB,.138E-01_JPRB,&
+&.122E-01_JPRB,.116E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 32 -34.0
+ZAER (:,32,10) = (/&
+&.134E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,&
+&.130E-01_JPRB,.143E-01_JPRB,.150E-01_JPRB,.162E-01_JPRB,.191E-01_JPRB,.204E-01_JPRB,.194E-01_JPRB,&
+&.220E-01_JPRB,.489E-01_JPRB,.774E-01_JPRB,.479E-01_JPRB,.236E-01_JPRB,.173E-01_JPRB,.164E-01_JPRB,&
+&.161E-01_JPRB,.151E-01_JPRB,.139E-01_JPRB,.122E-01_JPRB,.105E-01_JPRB,.937E-02_JPRB,.898E-02_JPRB,&
+&.903E-02_JPRB,.931E-02_JPRB,.975E-02_JPRB,.104E-01_JPRB,.125E-01_JPRB,.192E-01_JPRB,.247E-01_JPRB,&
+&.275E-01_JPRB,.367E-01_JPRB,.566E-01_JPRB,.906E-01_JPRB,.133E+00_JPRB,.136E+00_JPRB,.111E+00_JPRB,&
+&.872E-01_JPRB,.935E-01_JPRB,.113E+00_JPRB,.103E+00_JPRB,.112E+00_JPRB,.116E+00_JPRB,.134E+00_JPRB,&
+&.156E+00_JPRB,.131E+00_JPRB,.108E+00_JPRB,.923E-01_JPRB,.795E-01_JPRB,.674E-01_JPRB,.633E-01_JPRB,&
+&.630E-01_JPRB,.619E-01_JPRB,.655E-01_JPRB,.689E-01_JPRB,.621E-01_JPRB,.521E-01_JPRB,.437E-01_JPRB,&
+&.376E-01_JPRB,.324E-01_JPRB,.283E-01_JPRB,.253E-01_JPRB,.225E-01_JPRB,.208E-01_JPRB,.179E-01_JPRB,&
+&.155E-01_JPRB,.138E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 33 -38.0
+ZAER (:,33,10) = (/&
+&.161E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,&
+&.148E-01_JPRB,.154E-01_JPRB,.157E-01_JPRB,.168E-01_JPRB,.209E-01_JPRB,.222E-01_JPRB,.212E-01_JPRB,&
+&.221E-01_JPRB,.335E-01_JPRB,.477E-01_JPRB,.413E-01_JPRB,.281E-01_JPRB,.218E-01_JPRB,.196E-01_JPRB,&
+&.179E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.145E-01_JPRB,.132E-01_JPRB,.122E-01_JPRB,&
+&.118E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,&
+&.179E-01_JPRB,.252E-01_JPRB,.253E-01_JPRB,.327E-01_JPRB,.497E-01_JPRB,.658E-01_JPRB,.700E-01_JPRB,&
+&.650E-01_JPRB,.660E-01_JPRB,.726E-01_JPRB,.752E-01_JPRB,.117E+00_JPRB,.137E+00_JPRB,.144E+00_JPRB,&
+&.141E+00_JPRB,.129E+00_JPRB,.113E+00_JPRB,.108E+00_JPRB,.102E+00_JPRB,.885E-01_JPRB,.792E-01_JPRB,&
+&.796E-01_JPRB,.884E-01_JPRB,.925E-01_JPRB,.904E-01_JPRB,.760E-01_JPRB,.601E-01_JPRB,.482E-01_JPRB,&
+&.379E-01_JPRB,.302E-01_JPRB,.272E-01_JPRB,.256E-01_JPRB,.240E-01_JPRB,.239E-01_JPRB,.228E-01_JPRB,&
+&.207E-01_JPRB,.181E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 34 -42.0
+ZAER (:,34,10) = (/&
+&.191E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.178E-01_JPRB,.169E-01_JPRB,&
+&.167E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.163E-01_JPRB,.182E-01_JPRB,.213E-01_JPRB,.223E-01_JPRB,&
+&.251E-01_JPRB,.523E-01_JPRB,.659E-01_JPRB,.399E-01_JPRB,.293E-01_JPRB,.239E-01_JPRB,.203E-01_JPRB,&
+&.179E-01_JPRB,.171E-01_JPRB,.171E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,&
+&.146E-01_JPRB,.141E-01_JPRB,.138E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,&
+&.140E-01_JPRB,.151E-01_JPRB,.163E-01_JPRB,.189E-01_JPRB,.246E-01_JPRB,.339E-01_JPRB,.433E-01_JPRB,&
+&.499E-01_JPRB,.550E-01_JPRB,.609E-01_JPRB,.806E-01_JPRB,.174E+00_JPRB,.225E+00_JPRB,.212E+00_JPRB,&
+&.179E+00_JPRB,.166E+00_JPRB,.152E+00_JPRB,.141E+00_JPRB,.144E+00_JPRB,.127E+00_JPRB,.119E+00_JPRB,&
+&.118E+00_JPRB,.119E+00_JPRB,.123E+00_JPRB,.115E+00_JPRB,.932E-01_JPRB,.696E-01_JPRB,.506E-01_JPRB,&
+&.378E-01_JPRB,.292E-01_JPRB,.265E-01_JPRB,.260E-01_JPRB,.251E-01_JPRB,.249E-01_JPRB,.243E-01_JPRB,&
+&.233E-01_JPRB,.214E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 35 -46.0
+ZAER (:,35,10) = (/&
+&.223E-01_JPRB,.205E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.198E-01_JPRB,&
+&.177E-01_JPRB,.159E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,.173E-01_JPRB,.199E-01_JPRB,.228E-01_JPRB,&
+&.364E-01_JPRB,.629E-01_JPRB,.621E-01_JPRB,.378E-01_JPRB,.262E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,&
+&.172E-01_JPRB,.164E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,&
+&.150E-01_JPRB,.143E-01_JPRB,.139E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.131E-01_JPRB,.134E-01_JPRB,&
+&.124E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,.149E-01_JPRB,.172E-01_JPRB,.219E-01_JPRB,&
+&.370E-01_JPRB,.584E-01_JPRB,.842E-01_JPRB,.114E+00_JPRB,.204E+00_JPRB,.247E+00_JPRB,.262E+00_JPRB,&
+&.219E+00_JPRB,.198E+00_JPRB,.199E+00_JPRB,.191E+00_JPRB,.147E+00_JPRB,.129E+00_JPRB,.120E+00_JPRB,&
+&.114E+00_JPRB,.122E+00_JPRB,.133E+00_JPRB,.129E+00_JPRB,.995E-01_JPRB,.755E-01_JPRB,.581E-01_JPRB,&
+&.451E-01_JPRB,.346E-01_JPRB,.300E-01_JPRB,.282E-01_JPRB,.266E-01_JPRB,.256E-01_JPRB,.257E-01_JPRB,&
+&.251E-01_JPRB,.235E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 36 -50.0
+ZAER (:,36,10) = (/&
+&.252E-01_JPRB,.242E-01_JPRB,.234E-01_JPRB,.222E-01_JPRB,.215E-01_JPRB,.211E-01_JPRB,.203E-01_JPRB,&
+&.183E-01_JPRB,.167E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.158E-01_JPRB,.186E-01_JPRB,.268E-01_JPRB,&
+&.378E-01_JPRB,.407E-01_JPRB,.334E-01_JPRB,.253E-01_JPRB,.211E-01_JPRB,.187E-01_JPRB,.164E-01_JPRB,&
+&.155E-01_JPRB,.151E-01_JPRB,.148E-01_JPRB,.145E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,&
+&.130E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,&
+&.124E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.128E-01_JPRB,.137E-01_JPRB,.154E-01_JPRB,&
+&.253E-01_JPRB,.591E-01_JPRB,.107E+00_JPRB,.136E+00_JPRB,.187E+00_JPRB,.200E+00_JPRB,.235E+00_JPRB,&
+&.301E+00_JPRB,.378E+00_JPRB,.349E+00_JPRB,.238E+00_JPRB,.180E+00_JPRB,.153E+00_JPRB,.130E+00_JPRB,&
+&.121E+00_JPRB,.124E+00_JPRB,.119E+00_JPRB,.111E+00_JPRB,.974E-01_JPRB,.840E-01_JPRB,.679E-01_JPRB,&
+&.552E-01_JPRB,.488E-01_JPRB,.414E-01_JPRB,.358E-01_JPRB,.319E-01_JPRB,.292E-01_JPRB,.286E-01_JPRB,&
+&.276E-01_JPRB,.261E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 37 -54.0
+ZAER (:,37,10) = (/&
+&.273E-01_JPRB,.255E-01_JPRB,.242E-01_JPRB,.227E-01_JPRB,.211E-01_JPRB,.207E-01_JPRB,.195E-01_JPRB,&
+&.178E-01_JPRB,.167E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.160E-01_JPRB,.198E-01_JPRB,&
+&.241E-01_JPRB,.231E-01_JPRB,.204E-01_JPRB,.184E-01_JPRB,.167E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,&
+&.140E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,&
+&.114E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,&
+&.122E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,.134E-01_JPRB,&
+&.158E-01_JPRB,.318E-01_JPRB,.497E-01_JPRB,.570E-01_JPRB,.880E-01_JPRB,.127E+00_JPRB,.182E+00_JPRB,&
+&.331E+00_JPRB,.494E+00_JPRB,.453E+00_JPRB,.337E+00_JPRB,.255E+00_JPRB,.225E+00_JPRB,.193E+00_JPRB,&
+&.164E+00_JPRB,.144E+00_JPRB,.129E+00_JPRB,.122E+00_JPRB,.114E+00_JPRB,.930E-01_JPRB,.760E-01_JPRB,&
+&.670E-01_JPRB,.618E-01_JPRB,.554E-01_JPRB,.488E-01_JPRB,.416E-01_JPRB,.351E-01_JPRB,.308E-01_JPRB,&
+&.294E-01_JPRB,.285E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 38 -58.0
+ZAER (:,38,10) = (/&
+&.256E-01_JPRB,.242E-01_JPRB,.227E-01_JPRB,.215E-01_JPRB,.210E-01_JPRB,.206E-01_JPRB,.188E-01_JPRB,&
+&.174E-01_JPRB,.166E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,.150E-01_JPRB,.149E-01_JPRB,.170E-01_JPRB,&
+&.193E-01_JPRB,.193E-01_JPRB,.185E-01_JPRB,.168E-01_JPRB,.150E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.113E-01_JPRB,&
+&.125E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.134E-01_JPRB,&
+&.136E-01_JPRB,.154E-01_JPRB,.196E-01_JPRB,.210E-01_JPRB,.307E-01_JPRB,.512E-01_JPRB,.876E-01_JPRB,&
+&.171E+00_JPRB,.269E+00_JPRB,.309E+00_JPRB,.278E+00_JPRB,.240E+00_JPRB,.217E+00_JPRB,.186E+00_JPRB,&
+&.164E+00_JPRB,.147E+00_JPRB,.129E+00_JPRB,.115E+00_JPRB,.985E-01_JPRB,.873E-01_JPRB,.871E-01_JPRB,&
+&.828E-01_JPRB,.727E-01_JPRB,.658E-01_JPRB,.601E-01_JPRB,.526E-01_JPRB,.470E-01_JPRB,.403E-01_JPRB,&
+&.324E-01_JPRB,.274E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 39 -62.0
+ZAER (:,39,10) = (/&
+&.249E-01_JPRB,.233E-01_JPRB,.224E-01_JPRB,.216E-01_JPRB,.213E-01_JPRB,.203E-01_JPRB,.191E-01_JPRB,&
+&.183E-01_JPRB,.172E-01_JPRB,.162E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,.171E-01_JPRB,.187E-01_JPRB,&
+&.193E-01_JPRB,.193E-01_JPRB,.171E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.162E-01_JPRB,&
+&.160E-01_JPRB,.153E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,&
+&.110E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,.114E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,&
+&.137E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,&
+&.131E-01_JPRB,.137E-01_JPRB,.142E-01_JPRB,.141E-01_JPRB,.158E-01_JPRB,.242E-01_JPRB,.416E-01_JPRB,&
+&.724E-01_JPRB,.101E+00_JPRB,.122E+00_JPRB,.159E+00_JPRB,.165E+00_JPRB,.161E+00_JPRB,.153E+00_JPRB,&
+&.139E+00_JPRB,.124E+00_JPRB,.110E+00_JPRB,.999E-01_JPRB,.915E-01_JPRB,.863E-01_JPRB,.819E-01_JPRB,&
+&.801E-01_JPRB,.716E-01_JPRB,.676E-01_JPRB,.539E-01_JPRB,.436E-01_JPRB,.439E-01_JPRB,.425E-01_JPRB,&
+&.350E-01_JPRB,.284E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 40 -66.0
+ZAER (:,40,10) = (/&
+&.276E-01_JPRB,.254E-01_JPRB,.250E-01_JPRB,.249E-01_JPRB,.237E-01_JPRB,.217E-01_JPRB,.213E-01_JPRB,&
+&.209E-01_JPRB,.199E-01_JPRB,.198E-01_JPRB,.203E-01_JPRB,.208E-01_JPRB,.205E-01_JPRB,.203E-01_JPRB,&
+&.203E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.185E-01_JPRB,.173E-01_JPRB,.174E-01_JPRB,.187E-01_JPRB,&
+&.178E-01_JPRB,.166E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,&
+&.128E-01_JPRB,.126E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.131E-01_JPRB,.143E-01_JPRB,.155E-01_JPRB,&
+&.163E-01_JPRB,.162E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.151E-01_JPRB,.144E-01_JPRB,&
+&.138E-01_JPRB,.136E-01_JPRB,.134E-01_JPRB,.136E-01_JPRB,.150E-01_JPRB,.183E-01_JPRB,.242E-01_JPRB,&
+&.338E-01_JPRB,.558E-01_JPRB,.712E-01_JPRB,.918E-01_JPRB,.110E+00_JPRB,.115E+00_JPRB,.113E+00_JPRB,&
+&.110E+00_JPRB,.107E+00_JPRB,.103E+00_JPRB,.959E-01_JPRB,.900E-01_JPRB,.816E-01_JPRB,.769E-01_JPRB,&
+&.774E-01_JPRB,.734E-01_JPRB,.671E-01_JPRB,.512E-01_JPRB,.420E-01_JPRB,.423E-01_JPRB,.406E-01_JPRB,&
+&.369E-01_JPRB,.321E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 41 -70.0
+ZAER (:,41,10) = (/&
+&.309E-01_JPRB,.282E-01_JPRB,.284E-01_JPRB,.292E-01_JPRB,.281E-01_JPRB,.259E-01_JPRB,.251E-01_JPRB,&
+&.247E-01_JPRB,.238E-01_JPRB,.232E-01_JPRB,.233E-01_JPRB,.234E-01_JPRB,.232E-01_JPRB,.229E-01_JPRB,&
+&.225E-01_JPRB,.227E-01_JPRB,.228E-01_JPRB,.214E-01_JPRB,.194E-01_JPRB,.181E-01_JPRB,.187E-01_JPRB,&
+&.185E-01_JPRB,.178E-01_JPRB,.163E-01_JPRB,.141E-01_JPRB,.127E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,&
+&.138E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,.171E-01_JPRB,.184E-01_JPRB,&
+&.183E-01_JPRB,.176E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.165E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,&
+&.171E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.181E-01_JPRB,.208E-01_JPRB,.241E-01_JPRB,&
+&.277E-01_JPRB,.355E-01_JPRB,.482E-01_JPRB,.649E-01_JPRB,.791E-01_JPRB,.893E-01_JPRB,.951E-01_JPRB,&
+&.982E-01_JPRB,.991E-01_JPRB,.983E-01_JPRB,.950E-01_JPRB,.891E-01_JPRB,.839E-01_JPRB,.821E-01_JPRB,&
+&.824E-01_JPRB,.785E-01_JPRB,.706E-01_JPRB,.570E-01_JPRB,.468E-01_JPRB,.454E-01_JPRB,.434E-01_JPRB,&
+&.394E-01_JPRB,.353E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 42 -74.0
+ZAER (:,42,10) = (/&
+&.356E-01_JPRB,.330E-01_JPRB,.331E-01_JPRB,.343E-01_JPRB,.330E-01_JPRB,.304E-01_JPRB,.286E-01_JPRB,&
+&.273E-01_JPRB,.259E-01_JPRB,.249E-01_JPRB,.246E-01_JPRB,.245E-01_JPRB,.249E-01_JPRB,.248E-01_JPRB,&
+&.251E-01_JPRB,.258E-01_JPRB,.237E-01_JPRB,.212E-01_JPRB,.216E-01_JPRB,.214E-01_JPRB,.194E-01_JPRB,&
+&.189E-01_JPRB,.185E-01_JPRB,.173E-01_JPRB,.156E-01_JPRB,.141E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,&
+&.158E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.175E-01_JPRB,.185E-01_JPRB,.198E-01_JPRB,.205E-01_JPRB,&
+&.202E-01_JPRB,.196E-01_JPRB,.189E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,.197E-01_JPRB,.211E-01_JPRB,&
+&.218E-01_JPRB,.221E-01_JPRB,.233E-01_JPRB,.238E-01_JPRB,.251E-01_JPRB,.265E-01_JPRB,.281E-01_JPRB,&
+&.316E-01_JPRB,.409E-01_JPRB,.544E-01_JPRB,.711E-01_JPRB,.828E-01_JPRB,.893E-01_JPRB,.967E-01_JPRB,&
+&.104E+00_JPRB,.107E+00_JPRB,.106E+00_JPRB,.106E+00_JPRB,.991E-01_JPRB,.943E-01_JPRB,.882E-01_JPRB,&
+&.800E-01_JPRB,.748E-01_JPRB,.686E-01_JPRB,.593E-01_JPRB,.510E-01_JPRB,.492E-01_JPRB,.478E-01_JPRB,&
+&.428E-01_JPRB,.389E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 43 -78.0
+ZAER (:,43,10) = (/&
+&.411E-01_JPRB,.392E-01_JPRB,.375E-01_JPRB,.362E-01_JPRB,.342E-01_JPRB,.317E-01_JPRB,.293E-01_JPRB,&
+&.271E-01_JPRB,.253E-01_JPRB,.241E-01_JPRB,.237E-01_JPRB,.241E-01_JPRB,.253E-01_JPRB,.266E-01_JPRB,&
+&.273E-01_JPRB,.262E-01_JPRB,.243E-01_JPRB,.234E-01_JPRB,.231E-01_JPRB,.224E-01_JPRB,.211E-01_JPRB,&
+&.205E-01_JPRB,.197E-01_JPRB,.189E-01_JPRB,.180E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.177E-01_JPRB,&
+&.183E-01_JPRB,.189E-01_JPRB,.197E-01_JPRB,.206E-01_JPRB,.215E-01_JPRB,.220E-01_JPRB,.224E-01_JPRB,&
+&.222E-01_JPRB,.214E-01_JPRB,.208E-01_JPRB,.204E-01_JPRB,.211E-01_JPRB,.231E-01_JPRB,.252E-01_JPRB,&
+&.267E-01_JPRB,.282E-01_JPRB,.305E-01_JPRB,.332E-01_JPRB,.337E-01_JPRB,.343E-01_JPRB,.358E-01_JPRB,&
+&.428E-01_JPRB,.543E-01_JPRB,.639E-01_JPRB,.724E-01_JPRB,.779E-01_JPRB,.825E-01_JPRB,.877E-01_JPRB,&
+&.898E-01_JPRB,.905E-01_JPRB,.903E-01_JPRB,.873E-01_JPRB,.834E-01_JPRB,.801E-01_JPRB,.764E-01_JPRB,&
+&.720E-01_JPRB,.689E-01_JPRB,.655E-01_JPRB,.598E-01_JPRB,.525E-01_JPRB,.492E-01_JPRB,.473E-01_JPRB,&
+&.448E-01_JPRB,.428E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 44 -82.0
+ZAER (:,44,10) = (/&
+&.384E-01_JPRB,.365E-01_JPRB,.346E-01_JPRB,.330E-01_JPRB,.313E-01_JPRB,.297E-01_JPRB,.284E-01_JPRB,&
+&.274E-01_JPRB,.265E-01_JPRB,.258E-01_JPRB,.255E-01_JPRB,.254E-01_JPRB,.259E-01_JPRB,.270E-01_JPRB,&
+&.271E-01_JPRB,.268E-01_JPRB,.261E-01_JPRB,.254E-01_JPRB,.247E-01_JPRB,.239E-01_JPRB,.232E-01_JPRB,&
+&.225E-01_JPRB,.218E-01_JPRB,.213E-01_JPRB,.210E-01_JPRB,.209E-01_JPRB,.212E-01_JPRB,.220E-01_JPRB,&
+&.227E-01_JPRB,.234E-01_JPRB,.238E-01_JPRB,.243E-01_JPRB,.245E-01_JPRB,.242E-01_JPRB,.241E-01_JPRB,&
+&.242E-01_JPRB,.241E-01_JPRB,.242E-01_JPRB,.240E-01_JPRB,.245E-01_JPRB,.258E-01_JPRB,.276E-01_JPRB,&
+&.297E-01_JPRB,.323E-01_JPRB,.354E-01_JPRB,.383E-01_JPRB,.400E-01_JPRB,.408E-01_JPRB,.423E-01_JPRB,&
+&.456E-01_JPRB,.503E-01_JPRB,.540E-01_JPRB,.558E-01_JPRB,.570E-01_JPRB,.575E-01_JPRB,.572E-01_JPRB,&
+&.607E-01_JPRB,.642E-01_JPRB,.647E-01_JPRB,.642E-01_JPRB,.636E-01_JPRB,.636E-01_JPRB,.629E-01_JPRB,&
+&.607E-01_JPRB,.578E-01_JPRB,.551E-01_JPRB,.526E-01_JPRB,.498E-01_JPRB,.474E-01_JPRB,.451E-01_JPRB,&
+&.426E-01_JPRB,.404E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 45 -86.0
+ZAER (:,45,10) = (/&
+&.294E-01_JPRB,.289E-01_JPRB,.286E-01_JPRB,.283E-01_JPRB,.281E-01_JPRB,.279E-01_JPRB,.275E-01_JPRB,&
+&.270E-01_JPRB,.266E-01_JPRB,.266E-01_JPRB,.270E-01_JPRB,.269E-01_JPRB,.271E-01_JPRB,.272E-01_JPRB,&
+&.271E-01_JPRB,.273E-01_JPRB,.275E-01_JPRB,.278E-01_JPRB,.277E-01_JPRB,.275E-01_JPRB,.273E-01_JPRB,&
+&.268E-01_JPRB,.265E-01_JPRB,.262E-01_JPRB,.259E-01_JPRB,.260E-01_JPRB,.261E-01_JPRB,.261E-01_JPRB,&
+&.262E-01_JPRB,.262E-01_JPRB,.261E-01_JPRB,.263E-01_JPRB,.264E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,&
+&.265E-01_JPRB,.266E-01_JPRB,.266E-01_JPRB,.264E-01_JPRB,.268E-01_JPRB,.273E-01_JPRB,.274E-01_JPRB,&
+&.283E-01_JPRB,.293E-01_JPRB,.305E-01_JPRB,.319E-01_JPRB,.332E-01_JPRB,.346E-01_JPRB,.354E-01_JPRB,&
+&.360E-01_JPRB,.359E-01_JPRB,.357E-01_JPRB,.357E-01_JPRB,.355E-01_JPRB,.355E-01_JPRB,.358E-01_JPRB,&
+&.355E-01_JPRB,.351E-01_JPRB,.347E-01_JPRB,.343E-01_JPRB,.337E-01_JPRB,.333E-01_JPRB,.326E-01_JPRB,&
+&.321E-01_JPRB,.320E-01_JPRB,.319E-01_JPRB,.317E-01_JPRB,.313E-01_JPRB,.309E-01_JPRB,.305E-01_JPRB,&
+&.301E-01_JPRB,.298E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 10 --- lat: 46 -90.0
+ZAER (:,46,10) = (/&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,.270E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=10  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_10
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_11.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_11
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      November
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,11:11)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  1  90.0
+ZAER (:, 1,11) = (/&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  2  86.0
+ZAER (:, 2,11) = (/&
+&.120E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.110E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.109E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.117E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,&
+&.126E-02_JPRB,.130E-02_JPRB,.133E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.142E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.147E-02_JPRB,&
+&.149E-02_JPRB,.149E-02_JPRB,.148E-02_JPRB,.146E-02_JPRB,.143E-02_JPRB,.139E-02_JPRB,.135E-02_JPRB,&
+&.130E-02_JPRB,.126E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.127E-02_JPRB,&
+&.128E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,&
+&.122E-02_JPRB,.121E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  3  82.0
+ZAER (:, 3,11) = (/&
+&.864E-03_JPRB,.844E-03_JPRB,.822E-03_JPRB,.818E-03_JPRB,.823E-03_JPRB,.825E-03_JPRB,.832E-03_JPRB,&
+&.843E-03_JPRB,.860E-03_JPRB,.888E-03_JPRB,.922E-03_JPRB,.977E-03_JPRB,.105E-02_JPRB,.110E-02_JPRB,&
+&.116E-02_JPRB,.122E-02_JPRB,.127E-02_JPRB,.132E-02_JPRB,.135E-02_JPRB,.137E-02_JPRB,.139E-02_JPRB,&
+&.143E-02_JPRB,.150E-02_JPRB,.159E-02_JPRB,.167E-02_JPRB,.175E-02_JPRB,.186E-02_JPRB,.196E-02_JPRB,&
+&.203E-02_JPRB,.206E-02_JPRB,.211E-02_JPRB,.215E-02_JPRB,.216E-02_JPRB,.212E-02_JPRB,.196E-02_JPRB,&
+&.168E-02_JPRB,.145E-02_JPRB,.133E-02_JPRB,.129E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,.123E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.124E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,&
+&.123E-02_JPRB,.122E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.116E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,&
+&.956E-03_JPRB,.895E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  4  78.0
+ZAER (:, 4,11) = (/&
+&.766E-03_JPRB,.761E-03_JPRB,.754E-03_JPRB,.755E-03_JPRB,.764E-03_JPRB,.767E-03_JPRB,.773E-03_JPRB,&
+&.788E-03_JPRB,.814E-03_JPRB,.849E-03_JPRB,.889E-03_JPRB,.927E-03_JPRB,.959E-03_JPRB,.987E-03_JPRB,&
+&.103E-02_JPRB,.109E-02_JPRB,.117E-02_JPRB,.125E-02_JPRB,.132E-02_JPRB,.137E-02_JPRB,.144E-02_JPRB,&
+&.154E-02_JPRB,.167E-02_JPRB,.176E-02_JPRB,.185E-02_JPRB,.203E-02_JPRB,.215E-02_JPRB,.225E-02_JPRB,&
+&.234E-02_JPRB,.247E-02_JPRB,.263E-02_JPRB,.277E-02_JPRB,.291E-02_JPRB,.295E-02_JPRB,.283E-02_JPRB,&
+&.249E-02_JPRB,.205E-02_JPRB,.166E-02_JPRB,.143E-02_JPRB,.132E-02_JPRB,.127E-02_JPRB,.126E-02_JPRB,&
+&.124E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,&
+&.129E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.126E-02_JPRB,.123E-02_JPRB,.122E-02_JPRB,&
+&.123E-02_JPRB,.121E-02_JPRB,.119E-02_JPRB,.118E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.112E-02_JPRB,.107E-02_JPRB,.999E-03_JPRB,.897E-03_JPRB,&
+&.820E-03_JPRB,.783E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  5  74.0
+ZAER (:, 5,11) = (/&
+&.759E-03_JPRB,.752E-03_JPRB,.741E-03_JPRB,.731E-03_JPRB,.740E-03_JPRB,.738E-03_JPRB,.727E-03_JPRB,&
+&.721E-03_JPRB,.725E-03_JPRB,.748E-03_JPRB,.777E-03_JPRB,.807E-03_JPRB,.837E-03_JPRB,.853E-03_JPRB,&
+&.868E-03_JPRB,.898E-03_JPRB,.946E-03_JPRB,.103E-02_JPRB,.116E-02_JPRB,.126E-02_JPRB,.141E-02_JPRB,&
+&.157E-02_JPRB,.169E-02_JPRB,.180E-02_JPRB,.190E-02_JPRB,.212E-02_JPRB,.231E-02_JPRB,.245E-02_JPRB,&
+&.255E-02_JPRB,.266E-02_JPRB,.278E-02_JPRB,.288E-02_JPRB,.305E-02_JPRB,.326E-02_JPRB,.333E-02_JPRB,&
+&.315E-02_JPRB,.277E-02_JPRB,.217E-02_JPRB,.153E-02_JPRB,.124E-02_JPRB,.119E-02_JPRB,.117E-02_JPRB,&
+&.120E-02_JPRB,.124E-02_JPRB,.128E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,&
+&.128E-02_JPRB,.130E-02_JPRB,.135E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,.126E-02_JPRB,.122E-02_JPRB,&
+&.119E-02_JPRB,.117E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.108E-02_JPRB,.103E-02_JPRB,.958E-03_JPRB,.877E-03_JPRB,&
+&.810E-03_JPRB,.773E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  6  70.0
+ZAER (:, 6,11) = (/&
+&.834E-03_JPRB,.808E-03_JPRB,.785E-03_JPRB,.760E-03_JPRB,.737E-03_JPRB,.720E-03_JPRB,.706E-03_JPRB,&
+&.701E-03_JPRB,.704E-03_JPRB,.717E-03_JPRB,.743E-03_JPRB,.778E-03_JPRB,.819E-03_JPRB,.842E-03_JPRB,&
+&.859E-03_JPRB,.883E-03_JPRB,.921E-03_JPRB,.975E-03_JPRB,.106E-02_JPRB,.114E-02_JPRB,.124E-02_JPRB,&
+&.139E-02_JPRB,.154E-02_JPRB,.170E-02_JPRB,.176E-02_JPRB,.189E-02_JPRB,.213E-02_JPRB,.243E-02_JPRB,&
+&.272E-02_JPRB,.305E-02_JPRB,.320E-02_JPRB,.313E-02_JPRB,.318E-02_JPRB,.334E-02_JPRB,.350E-02_JPRB,&
+&.345E-02_JPRB,.310E-02_JPRB,.247E-02_JPRB,.169E-02_JPRB,.120E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,&
+&.107E-02_JPRB,.117E-02_JPRB,.126E-02_JPRB,.133E-02_JPRB,.134E-02_JPRB,.136E-02_JPRB,.134E-02_JPRB,&
+&.129E-02_JPRB,.128E-02_JPRB,.131E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.128E-02_JPRB,&
+&.123E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.119E-02_JPRB,.113E-02_JPRB,.109E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.979E-03_JPRB,&
+&.940E-03_JPRB,.880E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  7  66.0
+ZAER (:, 7,11) = (/&
+&.116E-02_JPRB,.107E-02_JPRB,.980E-03_JPRB,.899E-03_JPRB,.833E-03_JPRB,.773E-03_JPRB,.746E-03_JPRB,&
+&.741E-03_JPRB,.761E-03_JPRB,.803E-03_JPRB,.853E-03_JPRB,.891E-03_JPRB,.916E-03_JPRB,.932E-03_JPRB,&
+&.952E-03_JPRB,.963E-03_JPRB,.101E-02_JPRB,.108E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,.116E-02_JPRB,&
+&.120E-02_JPRB,.127E-02_JPRB,.150E-02_JPRB,.170E-02_JPRB,.177E-02_JPRB,.199E-02_JPRB,.256E-02_JPRB,&
+&.333E-02_JPRB,.409E-02_JPRB,.407E-02_JPRB,.378E-02_JPRB,.367E-02_JPRB,.364E-02_JPRB,.365E-02_JPRB,&
+&.365E-02_JPRB,.323E-02_JPRB,.258E-02_JPRB,.196E-02_JPRB,.145E-02_JPRB,.120E-02_JPRB,.113E-02_JPRB,&
+&.112E-02_JPRB,.115E-02_JPRB,.121E-02_JPRB,.125E-02_JPRB,.127E-02_JPRB,.130E-02_JPRB,.134E-02_JPRB,&
+&.135E-02_JPRB,.134E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,.133E-02_JPRB,.135E-02_JPRB,.136E-02_JPRB,&
+&.132E-02_JPRB,.126E-02_JPRB,.124E-02_JPRB,.126E-02_JPRB,.129E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,&
+&.128E-02_JPRB,.124E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  8  62.0
+ZAER (:, 8,11) = (/&
+&.179E-02_JPRB,.168E-02_JPRB,.153E-02_JPRB,.136E-02_JPRB,.119E-02_JPRB,.106E-02_JPRB,.987E-03_JPRB,&
+&.971E-03_JPRB,.990E-03_JPRB,.104E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.113E-02_JPRB,.115E-02_JPRB,&
+&.116E-02_JPRB,.118E-02_JPRB,.124E-02_JPRB,.131E-02_JPRB,.132E-02_JPRB,.130E-02_JPRB,.129E-02_JPRB,&
+&.127E-02_JPRB,.132E-02_JPRB,.164E-02_JPRB,.236E-02_JPRB,.269E-02_JPRB,.295E-02_JPRB,.376E-02_JPRB,&
+&.455E-02_JPRB,.501E-02_JPRB,.470E-02_JPRB,.415E-02_JPRB,.393E-02_JPRB,.381E-02_JPRB,.372E-02_JPRB,&
+&.358E-02_JPRB,.329E-02_JPRB,.277E-02_JPRB,.225E-02_JPRB,.179E-02_JPRB,.147E-02_JPRB,.130E-02_JPRB,&
+&.124E-02_JPRB,.121E-02_JPRB,.123E-02_JPRB,.127E-02_JPRB,.129E-02_JPRB,.137E-02_JPRB,.149E-02_JPRB,&
+&.153E-02_JPRB,.148E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.138E-02_JPRB,.140E-02_JPRB,&
+&.144E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.149E-02_JPRB,.152E-02_JPRB,.157E-02_JPRB,.159E-02_JPRB,&
+&.158E-02_JPRB,.157E-02_JPRB,.161E-02_JPRB,.170E-02_JPRB,.181E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,&
+&.188E-02_JPRB,.186E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat:  9  58.0
+ZAER (:, 9,11) = (/&
+&.252E-02_JPRB,.237E-02_JPRB,.223E-02_JPRB,.208E-02_JPRB,.190E-02_JPRB,.171E-02_JPRB,.157E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,.151E-02_JPRB,.152E-02_JPRB,&
+&.153E-02_JPRB,.160E-02_JPRB,.169E-02_JPRB,.168E-02_JPRB,.164E-02_JPRB,.162E-02_JPRB,.157E-02_JPRB,&
+&.152E-02_JPRB,.169E-02_JPRB,.260E-02_JPRB,.489E-02_JPRB,.561E-02_JPRB,.553E-02_JPRB,.608E-02_JPRB,&
+&.650E-02_JPRB,.624E-02_JPRB,.559E-02_JPRB,.475E-02_JPRB,.447E-02_JPRB,.419E-02_JPRB,.407E-02_JPRB,&
+&.384E-02_JPRB,.341E-02_JPRB,.306E-02_JPRB,.266E-02_JPRB,.221E-02_JPRB,.183E-02_JPRB,.153E-02_JPRB,&
+&.140E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.141E-02_JPRB,.148E-02_JPRB,.152E-02_JPRB,.161E-02_JPRB,&
+&.161E-02_JPRB,.154E-02_JPRB,.145E-02_JPRB,.143E-02_JPRB,.150E-02_JPRB,.154E-02_JPRB,.160E-02_JPRB,&
+&.166E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.172E-02_JPRB,.177E-02_JPRB,.183E-02_JPRB,.190E-02_JPRB,&
+&.195E-02_JPRB,.198E-02_JPRB,.206E-02_JPRB,.241E-02_JPRB,.282E-02_JPRB,.291E-02_JPRB,.285E-02_JPRB,&
+&.277E-02_JPRB,.268E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 10  54.0
+ZAER (:,10,11) = (/&
+&.330E-02_JPRB,.311E-02_JPRB,.299E-02_JPRB,.287E-02_JPRB,.277E-02_JPRB,.267E-02_JPRB,.257E-02_JPRB,&
+&.246E-02_JPRB,.236E-02_JPRB,.231E-02_JPRB,.229E-02_JPRB,.228E-02_JPRB,.223E-02_JPRB,.219E-02_JPRB,&
+&.220E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.215E-02_JPRB,.208E-02_JPRB,.202E-02_JPRB,.192E-02_JPRB,&
+&.191E-02_JPRB,.342E-02_JPRB,.736E-02_JPRB,.125E-01_JPRB,.109E-01_JPRB,.959E-02_JPRB,.893E-02_JPRB,&
+&.845E-02_JPRB,.784E-02_JPRB,.714E-02_JPRB,.640E-02_JPRB,.594E-02_JPRB,.534E-02_JPRB,.485E-02_JPRB,&
+&.445E-02_JPRB,.397E-02_JPRB,.364E-02_JPRB,.338E-02_JPRB,.295E-02_JPRB,.243E-02_JPRB,.199E-02_JPRB,&
+&.175E-02_JPRB,.166E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.167E-02_JPRB,.172E-02_JPRB,&
+&.173E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.179E-02_JPRB,.185E-02_JPRB,.193E-02_JPRB,.199E-02_JPRB,&
+&.202E-02_JPRB,.201E-02_JPRB,.200E-02_JPRB,.203E-02_JPRB,.215E-02_JPRB,.214E-02_JPRB,.220E-02_JPRB,&
+&.232E-02_JPRB,.252E-02_JPRB,.297E-02_JPRB,.364E-02_JPRB,.396E-02_JPRB,.399E-02_JPRB,.389E-02_JPRB,&
+&.375E-02_JPRB,.357E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 11  50.0
+ZAER (:,11,11) = (/&
+&.438E-02_JPRB,.410E-02_JPRB,.398E-02_JPRB,.396E-02_JPRB,.401E-02_JPRB,.406E-02_JPRB,.404E-02_JPRB,&
+&.393E-02_JPRB,.382E-02_JPRB,.375E-02_JPRB,.366E-02_JPRB,.354E-02_JPRB,.344E-02_JPRB,.335E-02_JPRB,&
+&.327E-02_JPRB,.313E-02_JPRB,.293E-02_JPRB,.274E-02_JPRB,.258E-02_JPRB,.244E-02_JPRB,.234E-02_JPRB,&
+&.264E-02_JPRB,.133E-01_JPRB,.267E-01_JPRB,.266E-01_JPRB,.186E-01_JPRB,.146E-01_JPRB,.122E-01_JPRB,&
+&.106E-01_JPRB,.977E-02_JPRB,.863E-02_JPRB,.760E-02_JPRB,.695E-02_JPRB,.652E-02_JPRB,.593E-02_JPRB,&
+&.544E-02_JPRB,.495E-02_JPRB,.444E-02_JPRB,.415E-02_JPRB,.385E-02_JPRB,.335E-02_JPRB,.286E-02_JPRB,&
+&.250E-02_JPRB,.230E-02_JPRB,.221E-02_JPRB,.218E-02_JPRB,.216E-02_JPRB,.217E-02_JPRB,.227E-02_JPRB,&
+&.238E-02_JPRB,.252E-02_JPRB,.264E-02_JPRB,.278E-02_JPRB,.287E-02_JPRB,.286E-02_JPRB,.278E-02_JPRB,&
+&.267E-02_JPRB,.255E-02_JPRB,.249E-02_JPRB,.268E-02_JPRB,.303E-02_JPRB,.298E-02_JPRB,.307E-02_JPRB,&
+&.338E-02_JPRB,.391E-02_JPRB,.442E-02_JPRB,.486E-02_JPRB,.513E-02_JPRB,.481E-02_JPRB,.460E-02_JPRB,&
+&.475E-02_JPRB,.471E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 12  46.0
+ZAER (:,12,11) = (/&
+&.658E-02_JPRB,.615E-02_JPRB,.588E-02_JPRB,.571E-02_JPRB,.560E-02_JPRB,.547E-02_JPRB,.541E-02_JPRB,&
+&.543E-02_JPRB,.548E-02_JPRB,.537E-02_JPRB,.511E-02_JPRB,.484E-02_JPRB,.468E-02_JPRB,.453E-02_JPRB,&
+&.434E-02_JPRB,.405E-02_JPRB,.375E-02_JPRB,.350E-02_JPRB,.328E-02_JPRB,.306E-02_JPRB,.292E-02_JPRB,&
+&.368E-02_JPRB,.130E-01_JPRB,.411E-01_JPRB,.450E-01_JPRB,.279E-01_JPRB,.188E-01_JPRB,.143E-01_JPRB,&
+&.124E-01_JPRB,.113E-01_JPRB,.103E-01_JPRB,.929E-02_JPRB,.835E-02_JPRB,.765E-02_JPRB,.720E-02_JPRB,&
+&.675E-02_JPRB,.632E-02_JPRB,.576E-02_JPRB,.529E-02_JPRB,.501E-02_JPRB,.462E-02_JPRB,.414E-02_JPRB,&
+&.379E-02_JPRB,.359E-02_JPRB,.349E-02_JPRB,.345E-02_JPRB,.347E-02_JPRB,.367E-02_JPRB,.402E-02_JPRB,&
+&.433E-02_JPRB,.459E-02_JPRB,.472E-02_JPRB,.470E-02_JPRB,.453E-02_JPRB,.427E-02_JPRB,.397E-02_JPRB,&
+&.370E-02_JPRB,.347E-02_JPRB,.331E-02_JPRB,.330E-02_JPRB,.426E-02_JPRB,.459E-02_JPRB,.495E-02_JPRB,&
+&.606E-02_JPRB,.619E-02_JPRB,.634E-02_JPRB,.689E-02_JPRB,.706E-02_JPRB,.617E-02_JPRB,.561E-02_JPRB,&
+&.598E-02_JPRB,.672E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 13  42.0
+ZAER (:,13,11) = (/&
+&.969E-02_JPRB,.842E-02_JPRB,.768E-02_JPRB,.724E-02_JPRB,.690E-02_JPRB,.677E-02_JPRB,.678E-02_JPRB,&
+&.686E-02_JPRB,.684E-02_JPRB,.656E-02_JPRB,.626E-02_JPRB,.602E-02_JPRB,.586E-02_JPRB,.558E-02_JPRB,&
+&.518E-02_JPRB,.477E-02_JPRB,.445E-02_JPRB,.415E-02_JPRB,.387E-02_JPRB,.362E-02_JPRB,.357E-02_JPRB,&
+&.630E-02_JPRB,.125E-01_JPRB,.456E-01_JPRB,.486E-01_JPRB,.272E-01_JPRB,.195E-01_JPRB,.158E-01_JPRB,&
+&.137E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.931E-02_JPRB,.888E-02_JPRB,&
+&.841E-02_JPRB,.791E-02_JPRB,.731E-02_JPRB,.676E-02_JPRB,.650E-02_JPRB,.626E-02_JPRB,.590E-02_JPRB,&
+&.582E-02_JPRB,.580E-02_JPRB,.570E-02_JPRB,.574E-02_JPRB,.613E-02_JPRB,.685E-02_JPRB,.741E-02_JPRB,&
+&.778E-02_JPRB,.790E-02_JPRB,.766E-02_JPRB,.726E-02_JPRB,.684E-02_JPRB,.631E-02_JPRB,.574E-02_JPRB,&
+&.521E-02_JPRB,.481E-02_JPRB,.452E-02_JPRB,.455E-02_JPRB,.656E-02_JPRB,.727E-02_JPRB,.904E-02_JPRB,&
+&.100E-01_JPRB,.961E-02_JPRB,.883E-02_JPRB,.900E-02_JPRB,.920E-02_JPRB,.944E-02_JPRB,.864E-02_JPRB,&
+&.100E-01_JPRB,.110E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 14  38.0
+ZAER (:,14,11) = (/&
+&.127E-01_JPRB,.109E-01_JPRB,.977E-02_JPRB,.909E-02_JPRB,.863E-02_JPRB,.843E-02_JPRB,.846E-02_JPRB,&
+&.815E-02_JPRB,.791E-02_JPRB,.792E-02_JPRB,.786E-02_JPRB,.746E-02_JPRB,.710E-02_JPRB,.667E-02_JPRB,&
+&.618E-02_JPRB,.573E-02_JPRB,.523E-02_JPRB,.481E-02_JPRB,.456E-02_JPRB,.441E-02_JPRB,.496E-02_JPRB,&
+&.855E-02_JPRB,.150E-01_JPRB,.389E-01_JPRB,.384E-01_JPRB,.266E-01_JPRB,.199E-01_JPRB,.163E-01_JPRB,&
+&.141E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,&
+&.102E-01_JPRB,.967E-02_JPRB,.902E-02_JPRB,.836E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.869E-02_JPRB,&
+&.975E-02_JPRB,.100E-01_JPRB,.999E-02_JPRB,.105E-01_JPRB,.114E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,&
+&.118E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.956E-02_JPRB,.875E-02_JPRB,&
+&.792E-02_JPRB,.713E-02_JPRB,.661E-02_JPRB,.784E-02_JPRB,.122E-01_JPRB,.182E-01_JPRB,.197E-01_JPRB,&
+&.185E-01_JPRB,.189E-01_JPRB,.170E-01_JPRB,.162E-01_JPRB,.167E-01_JPRB,.175E-01_JPRB,.168E-01_JPRB,&
+&.171E-01_JPRB,.165E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 15  34.0
+ZAER (:,15,11) = (/&
+&.192E-01_JPRB,.158E-01_JPRB,.138E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.948E-02_JPRB,.861E-02_JPRB,.793E-02_JPRB,&
+&.735E-02_JPRB,.679E-02_JPRB,.625E-02_JPRB,.584E-02_JPRB,.573E-02_JPRB,.593E-02_JPRB,.679E-02_JPRB,&
+&.924E-02_JPRB,.161E-01_JPRB,.275E-01_JPRB,.286E-01_JPRB,.243E-01_JPRB,.208E-01_JPRB,.183E-01_JPRB,&
+&.162E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.135E-01_JPRB,.129E-01_JPRB,&
+&.122E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.108E-01_JPRB,.175E-01_JPRB,.239E-01_JPRB,&
+&.235E-01_JPRB,.206E-01_JPRB,.202E-01_JPRB,.206E-01_JPRB,.207E-01_JPRB,.204E-01_JPRB,.195E-01_JPRB,&
+&.182E-01_JPRB,.171E-01_JPRB,.160E-01_JPRB,.153E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,.128E-01_JPRB,&
+&.119E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.140E-01_JPRB,.273E-01_JPRB,.503E-01_JPRB,.709E-01_JPRB,&
+&.738E-01_JPRB,.689E-01_JPRB,.590E-01_JPRB,.486E-01_JPRB,.405E-01_JPRB,.357E-01_JPRB,.323E-01_JPRB,&
+&.295E-01_JPRB,.256E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 16  30.0
+ZAER (:,16,11) = (/&
+&.283E-01_JPRB,.216E-01_JPRB,.182E-01_JPRB,.165E-01_JPRB,.157E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.127E-01_JPRB,.112E-01_JPRB,.102E-01_JPRB,.949E-02_JPRB,&
+&.899E-02_JPRB,.837E-02_JPRB,.792E-02_JPRB,.777E-02_JPRB,.786E-02_JPRB,.803E-02_JPRB,.835E-02_JPRB,&
+&.997E-02_JPRB,.179E-01_JPRB,.317E-01_JPRB,.298E-01_JPRB,.264E-01_JPRB,.231E-01_JPRB,.200E-01_JPRB,&
+&.180E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.155E-01_JPRB,.150E-01_JPRB,&
+&.141E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,.150E-01_JPRB,.271E-01_JPRB,.616E-01_JPRB,.778E-01_JPRB,&
+&.601E-01_JPRB,.480E-01_JPRB,.409E-01_JPRB,.360E-01_JPRB,.317E-01_JPRB,.293E-01_JPRB,.275E-01_JPRB,&
+&.257E-01_JPRB,.237E-01_JPRB,.219E-01_JPRB,.206E-01_JPRB,.194E-01_JPRB,.182E-01_JPRB,.173E-01_JPRB,&
+&.163E-01_JPRB,.162E-01_JPRB,.188E-01_JPRB,.303E-01_JPRB,.638E-01_JPRB,.120E+00_JPRB,.174E+00_JPRB,&
+&.169E+00_JPRB,.136E+00_JPRB,.112E+00_JPRB,.877E-01_JPRB,.701E-01_JPRB,.623E-01_JPRB,.566E-01_JPRB,&
+&.497E-01_JPRB,.397E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 17  26.0
+ZAER (:,17,11) = (/&
+&.355E-01_JPRB,.285E-01_JPRB,.241E-01_JPRB,.211E-01_JPRB,.191E-01_JPRB,.172E-01_JPRB,.162E-01_JPRB,&
+&.160E-01_JPRB,.152E-01_JPRB,.141E-01_JPRB,.128E-01_JPRB,.115E-01_JPRB,.103E-01_JPRB,.940E-02_JPRB,&
+&.896E-02_JPRB,.876E-02_JPRB,.865E-02_JPRB,.851E-02_JPRB,.823E-02_JPRB,.807E-02_JPRB,.833E-02_JPRB,&
+&.117E-01_JPRB,.291E-01_JPRB,.553E-01_JPRB,.711E-01_JPRB,.416E-01_JPRB,.275E-01_JPRB,.219E-01_JPRB,&
+&.194E-01_JPRB,.179E-01_JPRB,.174E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.162E-01_JPRB,.158E-01_JPRB,&
+&.157E-01_JPRB,.166E-01_JPRB,.196E-01_JPRB,.298E-01_JPRB,.601E-01_JPRB,.127E+00_JPRB,.168E+00_JPRB,&
+&.943E-01_JPRB,.619E-01_JPRB,.496E-01_JPRB,.454E-01_JPRB,.366E-01_JPRB,.339E-01_JPRB,.321E-01_JPRB,&
+&.297E-01_JPRB,.274E-01_JPRB,.257E-01_JPRB,.242E-01_JPRB,.222E-01_JPRB,.211E-01_JPRB,.208E-01_JPRB,&
+&.215E-01_JPRB,.270E-01_JPRB,.427E-01_JPRB,.730E-01_JPRB,.954E-01_JPRB,.125E+00_JPRB,.163E+00_JPRB,&
+&.163E+00_JPRB,.130E+00_JPRB,.117E+00_JPRB,.940E-01_JPRB,.765E-01_JPRB,.710E-01_JPRB,.644E-01_JPRB,&
+&.551E-01_JPRB,.453E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 18  22.0
+ZAER (:,18,11) = (/&
+&.316E-01_JPRB,.261E-01_JPRB,.217E-01_JPRB,.185E-01_JPRB,.166E-01_JPRB,.149E-01_JPRB,.140E-01_JPRB,&
+&.132E-01_JPRB,.117E-01_JPRB,.104E-01_JPRB,.947E-02_JPRB,.868E-02_JPRB,.820E-02_JPRB,.789E-02_JPRB,&
+&.770E-02_JPRB,.777E-02_JPRB,.791E-02_JPRB,.772E-02_JPRB,.726E-02_JPRB,.704E-02_JPRB,.849E-02_JPRB,&
+&.193E-01_JPRB,.484E-01_JPRB,.743E-01_JPRB,.102E+00_JPRB,.479E-01_JPRB,.278E-01_JPRB,.215E-01_JPRB,&
+&.187E-01_JPRB,.179E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,.180E-01_JPRB,.181E-01_JPRB,&
+&.195E-01_JPRB,.234E-01_JPRB,.309E-01_JPRB,.502E-01_JPRB,.102E+00_JPRB,.172E+00_JPRB,.164E+00_JPRB,&
+&.633E-01_JPRB,.497E-01_JPRB,.455E-01_JPRB,.496E-01_JPRB,.367E-01_JPRB,.332E-01_JPRB,.314E-01_JPRB,&
+&.303E-01_JPRB,.296E-01_JPRB,.286E-01_JPRB,.277E-01_JPRB,.260E-01_JPRB,.246E-01_JPRB,.253E-01_JPRB,&
+&.296E-01_JPRB,.395E-01_JPRB,.625E-01_JPRB,.105E+00_JPRB,.968E-01_JPRB,.851E-01_JPRB,.968E-01_JPRB,&
+&.105E+00_JPRB,.981E-01_JPRB,.952E-01_JPRB,.737E-01_JPRB,.602E-01_JPRB,.528E-01_JPRB,.473E-01_JPRB,&
+&.429E-01_JPRB,.378E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 19  18.0
+ZAER (:,19,11) = (/&
+&.209E-01_JPRB,.183E-01_JPRB,.154E-01_JPRB,.127E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,&
+&.916E-02_JPRB,.772E-02_JPRB,.679E-02_JPRB,.644E-02_JPRB,.623E-02_JPRB,.627E-02_JPRB,.651E-02_JPRB,&
+&.694E-02_JPRB,.702E-02_JPRB,.686E-02_JPRB,.642E-02_JPRB,.617E-02_JPRB,.719E-02_JPRB,.127E-01_JPRB,&
+&.223E-01_JPRB,.310E-01_JPRB,.453E-01_JPRB,.576E-01_JPRB,.333E-01_JPRB,.213E-01_JPRB,.181E-01_JPRB,&
+&.170E-01_JPRB,.181E-01_JPRB,.204E-01_JPRB,.210E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.221E-01_JPRB,&
+&.247E-01_JPRB,.294E-01_JPRB,.352E-01_JPRB,.437E-01_JPRB,.478E-01_JPRB,.558E-01_JPRB,.518E-01_JPRB,&
+&.346E-01_JPRB,.354E-01_JPRB,.370E-01_JPRB,.415E-01_JPRB,.311E-01_JPRB,.269E-01_JPRB,.259E-01_JPRB,&
+&.265E-01_JPRB,.267E-01_JPRB,.266E-01_JPRB,.261E-01_JPRB,.260E-01_JPRB,.271E-01_JPRB,.288E-01_JPRB,&
+&.324E-01_JPRB,.390E-01_JPRB,.494E-01_JPRB,.609E-01_JPRB,.657E-01_JPRB,.559E-01_JPRB,.564E-01_JPRB,&
+&.603E-01_JPRB,.593E-01_JPRB,.531E-01_JPRB,.440E-01_JPRB,.359E-01_JPRB,.302E-01_JPRB,.263E-01_JPRB,&
+&.241E-01_JPRB,.228E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 20  14.0
+ZAER (:,20,11) = (/&
+&.106E-01_JPRB,.950E-02_JPRB,.816E-02_JPRB,.668E-02_JPRB,.591E-02_JPRB,.616E-02_JPRB,.667E-02_JPRB,&
+&.635E-02_JPRB,.583E-02_JPRB,.554E-02_JPRB,.552E-02_JPRB,.548E-02_JPRB,.558E-02_JPRB,.584E-02_JPRB,&
+&.617E-02_JPRB,.612E-02_JPRB,.598E-02_JPRB,.593E-02_JPRB,.652E-02_JPRB,.828E-02_JPRB,.119E-01_JPRB,&
+&.132E-01_JPRB,.127E-01_JPRB,.179E-01_JPRB,.206E-01_JPRB,.177E-01_JPRB,.149E-01_JPRB,.170E-01_JPRB,&
+&.205E-01_JPRB,.219E-01_JPRB,.225E-01_JPRB,.234E-01_JPRB,.237E-01_JPRB,.233E-01_JPRB,.231E-01_JPRB,&
+&.235E-01_JPRB,.255E-01_JPRB,.273E-01_JPRB,.265E-01_JPRB,.224E-01_JPRB,.201E-01_JPRB,.189E-01_JPRB,&
+&.200E-01_JPRB,.223E-01_JPRB,.239E-01_JPRB,.222E-01_JPRB,.196E-01_JPRB,.173E-01_JPRB,.180E-01_JPRB,&
+&.188E-01_JPRB,.187E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,.192E-01_JPRB,.218E-01_JPRB,.248E-01_JPRB,&
+&.281E-01_JPRB,.303E-01_JPRB,.328E-01_JPRB,.363E-01_JPRB,.401E-01_JPRB,.363E-01_JPRB,.316E-01_JPRB,&
+&.315E-01_JPRB,.320E-01_JPRB,.296E-01_JPRB,.242E-01_JPRB,.185E-01_JPRB,.136E-01_JPRB,.111E-01_JPRB,&
+&.104E-01_JPRB,.105E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 21  10.0
+ZAER (:,21,11) = (/&
+&.496E-02_JPRB,.449E-02_JPRB,.406E-02_JPRB,.379E-02_JPRB,.395E-02_JPRB,.430E-02_JPRB,.458E-02_JPRB,&
+&.465E-02_JPRB,.485E-02_JPRB,.505E-02_JPRB,.531E-02_JPRB,.542E-02_JPRB,.556E-02_JPRB,.566E-02_JPRB,&
+&.581E-02_JPRB,.597E-02_JPRB,.612E-02_JPRB,.632E-02_JPRB,.695E-02_JPRB,.762E-02_JPRB,.790E-02_JPRB,&
+&.705E-02_JPRB,.672E-02_JPRB,.839E-02_JPRB,.104E-01_JPRB,.127E-01_JPRB,.158E-01_JPRB,.222E-01_JPRB,&
+&.334E-01_JPRB,.325E-01_JPRB,.232E-01_JPRB,.216E-01_JPRB,.210E-01_JPRB,.202E-01_JPRB,.190E-01_JPRB,&
+&.181E-01_JPRB,.182E-01_JPRB,.168E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,&
+&.124E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.104E-01_JPRB,.969E-02_JPRB,.993E-02_JPRB,.113E-01_JPRB,.134E-01_JPRB,.152E-01_JPRB,&
+&.169E-01_JPRB,.190E-01_JPRB,.221E-01_JPRB,.229E-01_JPRB,.218E-01_JPRB,.193E-01_JPRB,.168E-01_JPRB,&
+&.154E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.105E-01_JPRB,.792E-02_JPRB,.552E-02_JPRB,.479E-02_JPRB,&
+&.462E-02_JPRB,.488E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 22   6.0
+ZAER (:,22,11) = (/&
+&.293E-02_JPRB,.296E-02_JPRB,.305E-02_JPRB,.326E-02_JPRB,.359E-02_JPRB,.387E-02_JPRB,.411E-02_JPRB,&
+&.431E-02_JPRB,.453E-02_JPRB,.481E-02_JPRB,.510E-02_JPRB,.524E-02_JPRB,.526E-02_JPRB,.528E-02_JPRB,&
+&.533E-02_JPRB,.543E-02_JPRB,.564E-02_JPRB,.599E-02_JPRB,.637E-02_JPRB,.663E-02_JPRB,.606E-02_JPRB,&
+&.543E-02_JPRB,.597E-02_JPRB,.835E-02_JPRB,.115E-01_JPRB,.159E-01_JPRB,.215E-01_JPRB,.282E-01_JPRB,&
+&.354E-01_JPRB,.313E-01_JPRB,.201E-01_JPRB,.177E-01_JPRB,.162E-01_JPRB,.153E-01_JPRB,.144E-01_JPRB,&
+&.137E-01_JPRB,.128E-01_JPRB,.102E-01_JPRB,.718E-02_JPRB,.621E-02_JPRB,.588E-02_JPRB,.652E-02_JPRB,&
+&.803E-02_JPRB,.789E-02_JPRB,.601E-02_JPRB,.512E-02_JPRB,.497E-02_JPRB,.512E-02_JPRB,.506E-02_JPRB,&
+&.461E-02_JPRB,.385E-02_JPRB,.348E-02_JPRB,.356E-02_JPRB,.429E-02_JPRB,.511E-02_JPRB,.560E-02_JPRB,&
+&.611E-02_JPRB,.739E-02_JPRB,.818E-02_JPRB,.835E-02_JPRB,.899E-02_JPRB,.794E-02_JPRB,.607E-02_JPRB,&
+&.497E-02_JPRB,.426E-02_JPRB,.374E-02_JPRB,.330E-02_JPRB,.285E-02_JPRB,.253E-02_JPRB,.265E-02_JPRB,&
+&.280E-02_JPRB,.287E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 23   2.0
+ZAER (:,23,11) = (/&
+&.205E-02_JPRB,.222E-02_JPRB,.245E-02_JPRB,.272E-02_JPRB,.301E-02_JPRB,.322E-02_JPRB,.339E-02_JPRB,&
+&.348E-02_JPRB,.353E-02_JPRB,.363E-02_JPRB,.373E-02_JPRB,.397E-02_JPRB,.404E-02_JPRB,.407E-02_JPRB,&
+&.419E-02_JPRB,.429E-02_JPRB,.448E-02_JPRB,.465E-02_JPRB,.499E-02_JPRB,.547E-02_JPRB,.618E-02_JPRB,&
+&.544E-02_JPRB,.603E-02_JPRB,.824E-02_JPRB,.111E-01_JPRB,.153E-01_JPRB,.213E-01_JPRB,.252E-01_JPRB,&
+&.230E-01_JPRB,.174E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.112E-01_JPRB,&
+&.105E-01_JPRB,.946E-02_JPRB,.806E-02_JPRB,.653E-02_JPRB,.607E-02_JPRB,.623E-02_JPRB,.672E-02_JPRB,&
+&.712E-02_JPRB,.664E-02_JPRB,.550E-02_JPRB,.399E-02_JPRB,.334E-02_JPRB,.303E-02_JPRB,.261E-02_JPRB,&
+&.214E-02_JPRB,.167E-02_JPRB,.151E-02_JPRB,.154E-02_JPRB,.167E-02_JPRB,.181E-02_JPRB,.201E-02_JPRB,&
+&.223E-02_JPRB,.251E-02_JPRB,.268E-02_JPRB,.304E-02_JPRB,.337E-02_JPRB,.291E-02_JPRB,.241E-02_JPRB,&
+&.216E-02_JPRB,.188E-02_JPRB,.173E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.178E-02_JPRB,.196E-02_JPRB,&
+&.199E-02_JPRB,.194E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 24  -2.0
+ZAER (:,24,11) = (/&
+&.132E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.133E-02_JPRB,.143E-02_JPRB,.152E-02_JPRB,.166E-02_JPRB,&
+&.178E-02_JPRB,.188E-02_JPRB,.201E-02_JPRB,.222E-02_JPRB,.253E-02_JPRB,.279E-02_JPRB,.299E-02_JPRB,&
+&.312E-02_JPRB,.317E-02_JPRB,.311E-02_JPRB,.316E-02_JPRB,.334E-02_JPRB,.350E-02_JPRB,.412E-02_JPRB,&
+&.488E-02_JPRB,.607E-02_JPRB,.783E-02_JPRB,.979E-02_JPRB,.115E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,&
+&.116E-01_JPRB,.101E-01_JPRB,.963E-02_JPRB,.100E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,&
+&.104E-01_JPRB,.997E-02_JPRB,.943E-02_JPRB,.101E-01_JPRB,.113E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.151E-01_JPRB,.166E-01_JPRB,.162E-01_JPRB,.121E-01_JPRB,.651E-02_JPRB,.489E-02_JPRB,.434E-02_JPRB,&
+&.382E-02_JPRB,.328E-02_JPRB,.256E-02_JPRB,.192E-02_JPRB,.141E-02_JPRB,.107E-02_JPRB,.102E-02_JPRB,&
+&.115E-02_JPRB,.128E-02_JPRB,.157E-02_JPRB,.185E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,&
+&.205E-02_JPRB,.201E-02_JPRB,.202E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,.203E-02_JPRB,.192E-02_JPRB,&
+&.175E-02_JPRB,.144E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 25  -6.0
+ZAER (:,25,11) = (/&
+&.206E-02_JPRB,.140E-02_JPRB,.105E-02_JPRB,.100E-02_JPRB,.106E-02_JPRB,.116E-02_JPRB,.129E-02_JPRB,&
+&.144E-02_JPRB,.164E-02_JPRB,.193E-02_JPRB,.232E-02_JPRB,.271E-02_JPRB,.296E-02_JPRB,.313E-02_JPRB,&
+&.319E-02_JPRB,.317E-02_JPRB,.328E-02_JPRB,.343E-02_JPRB,.332E-02_JPRB,.345E-02_JPRB,.403E-02_JPRB,&
+&.529E-02_JPRB,.661E-02_JPRB,.790E-02_JPRB,.924E-02_JPRB,.104E-01_JPRB,.115E-01_JPRB,.122E-01_JPRB,&
+&.123E-01_JPRB,.124E-01_JPRB,.132E-01_JPRB,.147E-01_JPRB,.158E-01_JPRB,.162E-01_JPRB,.170E-01_JPRB,&
+&.185E-01_JPRB,.187E-01_JPRB,.189E-01_JPRB,.207E-01_JPRB,.233E-01_JPRB,.260E-01_JPRB,.292E-01_JPRB,&
+&.346E-01_JPRB,.424E-01_JPRB,.473E-01_JPRB,.445E-01_JPRB,.278E-01_JPRB,.127E-01_JPRB,.118E-01_JPRB,&
+&.114E-01_JPRB,.107E-01_JPRB,.908E-02_JPRB,.728E-02_JPRB,.594E-02_JPRB,.386E-02_JPRB,.219E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.167E-02_JPRB,.209E-02_JPRB,.244E-02_JPRB,.272E-02_JPRB,.296E-02_JPRB,&
+&.330E-02_JPRB,.359E-02_JPRB,.394E-02_JPRB,.427E-02_JPRB,.460E-02_JPRB,.480E-02_JPRB,.470E-02_JPRB,&
+&.416E-02_JPRB,.300E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 26 -10.0
+ZAER (:,26,11) = (/&
+&.535E-02_JPRB,.339E-02_JPRB,.192E-02_JPRB,.134E-02_JPRB,.121E-02_JPRB,.129E-02_JPRB,.137E-02_JPRB,&
+&.140E-02_JPRB,.147E-02_JPRB,.170E-02_JPRB,.219E-02_JPRB,.289E-02_JPRB,.351E-02_JPRB,.403E-02_JPRB,&
+&.466E-02_JPRB,.530E-02_JPRB,.571E-02_JPRB,.545E-02_JPRB,.483E-02_JPRB,.476E-02_JPRB,.510E-02_JPRB,&
+&.606E-02_JPRB,.762E-02_JPRB,.912E-02_JPRB,.110E-01_JPRB,.133E-01_JPRB,.157E-01_JPRB,.179E-01_JPRB,&
+&.203E-01_JPRB,.226E-01_JPRB,.256E-01_JPRB,.295E-01_JPRB,.339E-01_JPRB,.374E-01_JPRB,.398E-01_JPRB,&
+&.442E-01_JPRB,.471E-01_JPRB,.463E-01_JPRB,.484E-01_JPRB,.513E-01_JPRB,.517E-01_JPRB,.528E-01_JPRB,&
+&.552E-01_JPRB,.638E-01_JPRB,.799E-01_JPRB,.769E-01_JPRB,.437E-01_JPRB,.254E-01_JPRB,.247E-01_JPRB,&
+&.250E-01_JPRB,.247E-01_JPRB,.232E-01_JPRB,.211E-01_JPRB,.197E-01_JPRB,.151E-01_JPRB,.994E-02_JPRB,&
+&.487E-02_JPRB,.283E-02_JPRB,.275E-02_JPRB,.315E-02_JPRB,.372E-02_JPRB,.419E-02_JPRB,.469E-02_JPRB,&
+&.552E-02_JPRB,.659E-02_JPRB,.754E-02_JPRB,.833E-02_JPRB,.886E-02_JPRB,.922E-02_JPRB,.950E-02_JPRB,&
+&.916E-02_JPRB,.763E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 27 -14.0
+ZAER (:,27,11) = (/&
+&.109E-01_JPRB,.749E-02_JPRB,.478E-02_JPRB,.329E-02_JPRB,.278E-02_JPRB,.289E-02_JPRB,.329E-02_JPRB,&
+&.346E-02_JPRB,.319E-02_JPRB,.296E-02_JPRB,.319E-02_JPRB,.359E-02_JPRB,.416E-02_JPRB,.499E-02_JPRB,&
+&.649E-02_JPRB,.827E-02_JPRB,.925E-02_JPRB,.863E-02_JPRB,.714E-02_JPRB,.645E-02_JPRB,.633E-02_JPRB,&
+&.668E-02_JPRB,.786E-02_JPRB,.959E-02_JPRB,.118E-01_JPRB,.145E-01_JPRB,.174E-01_JPRB,.202E-01_JPRB,&
+&.233E-01_JPRB,.270E-01_JPRB,.330E-01_JPRB,.443E-01_JPRB,.558E-01_JPRB,.707E-01_JPRB,.874E-01_JPRB,&
+&.954E-01_JPRB,.100E+00_JPRB,.929E-01_JPRB,.857E-01_JPRB,.859E-01_JPRB,.805E-01_JPRB,.736E-01_JPRB,&
+&.682E-01_JPRB,.670E-01_JPRB,.677E-01_JPRB,.623E-01_JPRB,.480E-01_JPRB,.392E-01_JPRB,.392E-01_JPRB,&
+&.409E-01_JPRB,.418E-01_JPRB,.414E-01_JPRB,.392E-01_JPRB,.376E-01_JPRB,.338E-01_JPRB,.287E-01_JPRB,&
+&.190E-01_JPRB,.111E-01_JPRB,.643E-02_JPRB,.482E-02_JPRB,.524E-02_JPRB,.586E-02_JPRB,.671E-02_JPRB,&
+&.783E-02_JPRB,.926E-02_JPRB,.108E-01_JPRB,.121E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,&
+&.145E-01_JPRB,.137E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 28 -18.0
+ZAER (:,28,11) = (/&
+&.165E-01_JPRB,.132E-01_JPRB,.980E-02_JPRB,.748E-02_JPRB,.620E-02_JPRB,.617E-02_JPRB,.703E-02_JPRB,&
+&.795E-02_JPRB,.856E-02_JPRB,.834E-02_JPRB,.815E-02_JPRB,.766E-02_JPRB,.702E-02_JPRB,.731E-02_JPRB,&
+&.964E-02_JPRB,.141E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,.133E-01_JPRB,.101E-01_JPRB,.860E-02_JPRB,&
+&.826E-02_JPRB,.824E-02_JPRB,.892E-02_JPRB,.106E-01_JPRB,.131E-01_JPRB,.158E-01_JPRB,.182E-01_JPRB,&
+&.211E-01_JPRB,.252E-01_JPRB,.320E-01_JPRB,.428E-01_JPRB,.577E-01_JPRB,.683E-01_JPRB,.761E-01_JPRB,&
+&.880E-01_JPRB,.882E-01_JPRB,.771E-01_JPRB,.768E-01_JPRB,.798E-01_JPRB,.861E-01_JPRB,.910E-01_JPRB,&
+&.833E-01_JPRB,.729E-01_JPRB,.730E-01_JPRB,.751E-01_JPRB,.658E-01_JPRB,.551E-01_JPRB,.508E-01_JPRB,&
+&.538E-01_JPRB,.562E-01_JPRB,.550E-01_JPRB,.542E-01_JPRB,.548E-01_JPRB,.547E-01_JPRB,.520E-01_JPRB,&
+&.455E-01_JPRB,.372E-01_JPRB,.265E-01_JPRB,.149E-01_JPRB,.997E-02_JPRB,.933E-02_JPRB,.948E-02_JPRB,&
+&.115E-01_JPRB,.143E-01_JPRB,.169E-01_JPRB,.185E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,&
+&.184E-01_JPRB,.183E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 29 -22.0
+ZAER (:,29,11) = (/&
+&.193E-01_JPRB,.171E-01_JPRB,.141E-01_JPRB,.114E-01_JPRB,.942E-02_JPRB,.944E-02_JPRB,.101E-01_JPRB,&
+&.105E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,.130E-01_JPRB,.143E-01_JPRB,.123E-01_JPRB,.110E-01_JPRB,&
+&.153E-01_JPRB,.265E-01_JPRB,.281E-01_JPRB,.251E-01_JPRB,.217E-01_JPRB,.162E-01_JPRB,.132E-01_JPRB,&
+&.118E-01_JPRB,.109E-01_JPRB,.100E-01_JPRB,.102E-01_JPRB,.113E-01_JPRB,.137E-01_JPRB,.156E-01_JPRB,&
+&.174E-01_JPRB,.198E-01_JPRB,.231E-01_JPRB,.272E-01_JPRB,.352E-01_JPRB,.462E-01_JPRB,.581E-01_JPRB,&
+&.695E-01_JPRB,.709E-01_JPRB,.660E-01_JPRB,.645E-01_JPRB,.647E-01_JPRB,.659E-01_JPRB,.833E-01_JPRB,&
+&.906E-01_JPRB,.666E-01_JPRB,.715E-01_JPRB,.767E-01_JPRB,.678E-01_JPRB,.660E-01_JPRB,.605E-01_JPRB,&
+&.603E-01_JPRB,.605E-01_JPRB,.575E-01_JPRB,.575E-01_JPRB,.581E-01_JPRB,.589E-01_JPRB,.590E-01_JPRB,&
+&.578E-01_JPRB,.556E-01_JPRB,.526E-01_JPRB,.439E-01_JPRB,.295E-01_JPRB,.211E-01_JPRB,.179E-01_JPRB,&
+&.188E-01_JPRB,.222E-01_JPRB,.243E-01_JPRB,.246E-01_JPRB,.230E-01_JPRB,.211E-01_JPRB,.202E-01_JPRB,&
+&.200E-01_JPRB,.199E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 30 -26.0
+ZAER (:,30,11) = (/&
+&.206E-01_JPRB,.192E-01_JPRB,.165E-01_JPRB,.133E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,&
+&.117E-01_JPRB,.127E-01_JPRB,.136E-01_JPRB,.146E-01_JPRB,.187E-01_JPRB,.209E-01_JPRB,.195E-01_JPRB,&
+&.249E-01_JPRB,.504E-01_JPRB,.672E-01_JPRB,.350E-01_JPRB,.254E-01_JPRB,.222E-01_JPRB,.190E-01_JPRB,&
+&.166E-01_JPRB,.149E-01_JPRB,.132E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.117E-01_JPRB,.126E-01_JPRB,&
+&.132E-01_JPRB,.147E-01_JPRB,.165E-01_JPRB,.161E-01_JPRB,.166E-01_JPRB,.240E-01_JPRB,.405E-01_JPRB,&
+&.527E-01_JPRB,.582E-01_JPRB,.652E-01_JPRB,.748E-01_JPRB,.798E-01_JPRB,.753E-01_JPRB,.616E-01_JPRB,&
+&.625E-01_JPRB,.593E-01_JPRB,.717E-01_JPRB,.714E-01_JPRB,.647E-01_JPRB,.651E-01_JPRB,.656E-01_JPRB,&
+&.604E-01_JPRB,.583E-01_JPRB,.560E-01_JPRB,.561E-01_JPRB,.550E-01_JPRB,.556E-01_JPRB,.573E-01_JPRB,&
+&.575E-01_JPRB,.605E-01_JPRB,.671E-01_JPRB,.740E-01_JPRB,.682E-01_JPRB,.541E-01_JPRB,.444E-01_JPRB,&
+&.368E-01_JPRB,.324E-01_JPRB,.302E-01_JPRB,.280E-01_JPRB,.262E-01_JPRB,.246E-01_JPRB,.235E-01_JPRB,&
+&.220E-01_JPRB,.212E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 31 -30.0
+ZAER (:,31,11) = (/&
+&.216E-01_JPRB,.202E-01_JPRB,.178E-01_JPRB,.151E-01_JPRB,.131E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,&
+&.124E-01_JPRB,.135E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.190E-01_JPRB,.263E-01_JPRB,.293E-01_JPRB,&
+&.366E-01_JPRB,.859E-01_JPRB,.118E+00_JPRB,.559E-01_JPRB,.325E-01_JPRB,.284E-01_JPRB,.236E-01_JPRB,&
+&.196E-01_JPRB,.172E-01_JPRB,.155E-01_JPRB,.135E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.111E-01_JPRB,.116E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.108E-01_JPRB,.126E-01_JPRB,.196E-01_JPRB,&
+&.309E-01_JPRB,.440E-01_JPRB,.559E-01_JPRB,.869E-01_JPRB,.123E+00_JPRB,.142E+00_JPRB,.864E-01_JPRB,&
+&.541E-01_JPRB,.517E-01_JPRB,.655E-01_JPRB,.691E-01_JPRB,.641E-01_JPRB,.688E-01_JPRB,.767E-01_JPRB,&
+&.642E-01_JPRB,.583E-01_JPRB,.549E-01_JPRB,.513E-01_JPRB,.487E-01_JPRB,.491E-01_JPRB,.528E-01_JPRB,&
+&.554E-01_JPRB,.666E-01_JPRB,.781E-01_JPRB,.946E-01_JPRB,.962E-01_JPRB,.813E-01_JPRB,.643E-01_JPRB,&
+&.506E-01_JPRB,.410E-01_JPRB,.359E-01_JPRB,.335E-01_JPRB,.313E-01_JPRB,.288E-01_JPRB,.267E-01_JPRB,&
+&.245E-01_JPRB,.227E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 32 -34.0
+ZAER (:,32,11) = (/&
+&.226E-01_JPRB,.205E-01_JPRB,.182E-01_JPRB,.159E-01_JPRB,.146E-01_JPRB,.137E-01_JPRB,.132E-01_JPRB,&
+&.130E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.179E-01_JPRB,.264E-01_JPRB,.324E-01_JPRB,&
+&.440E-01_JPRB,.826E-01_JPRB,.100E+00_JPRB,.626E-01_JPRB,.425E-01_JPRB,.322E-01_JPRB,.240E-01_JPRB,&
+&.195E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.147E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,&
+&.111E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.120E-01_JPRB,&
+&.216E-01_JPRB,.402E-01_JPRB,.564E-01_JPRB,.623E-01_JPRB,.975E-01_JPRB,.129E+00_JPRB,.837E-01_JPRB,&
+&.471E-01_JPRB,.411E-01_JPRB,.488E-01_JPRB,.503E-01_JPRB,.668E-01_JPRB,.915E-01_JPRB,.996E-01_JPRB,&
+&.792E-01_JPRB,.625E-01_JPRB,.584E-01_JPRB,.543E-01_JPRB,.511E-01_JPRB,.521E-01_JPRB,.550E-01_JPRB,&
+&.618E-01_JPRB,.783E-01_JPRB,.973E-01_JPRB,.114E+00_JPRB,.106E+00_JPRB,.860E-01_JPRB,.658E-01_JPRB,&
+&.521E-01_JPRB,.434E-01_JPRB,.389E-01_JPRB,.364E-01_JPRB,.338E-01_JPRB,.314E-01_JPRB,.288E-01_JPRB,&
+&.267E-01_JPRB,.246E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 33 -38.0
+ZAER (:,33,11) = (/&
+&.233E-01_JPRB,.212E-01_JPRB,.188E-01_JPRB,.163E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,&
+&.134E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.134E-01_JPRB,.155E-01_JPRB,.212E-01_JPRB,.277E-01_JPRB,&
+&.339E-01_JPRB,.448E-01_JPRB,.571E-01_JPRB,.477E-01_JPRB,.356E-01_JPRB,.277E-01_JPRB,.216E-01_JPRB,&
+&.176E-01_JPRB,.155E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
+&.113E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.993E-02_JPRB,.103E-01_JPRB,&
+&.140E-01_JPRB,.297E-01_JPRB,.297E-01_JPRB,.298E-01_JPRB,.517E-01_JPRB,.815E-01_JPRB,.737E-01_JPRB,&
+&.455E-01_JPRB,.343E-01_JPRB,.370E-01_JPRB,.431E-01_JPRB,.802E-01_JPRB,.128E+00_JPRB,.142E+00_JPRB,&
+&.105E+00_JPRB,.754E-01_JPRB,.683E-01_JPRB,.682E-01_JPRB,.643E-01_JPRB,.610E-01_JPRB,.667E-01_JPRB,&
+&.843E-01_JPRB,.119E+00_JPRB,.137E+00_JPRB,.139E+00_JPRB,.131E+00_JPRB,.102E+00_JPRB,.792E-01_JPRB,&
+&.614E-01_JPRB,.498E-01_JPRB,.427E-01_JPRB,.375E-01_JPRB,.336E-01_JPRB,.314E-01_JPRB,.293E-01_JPRB,&
+&.273E-01_JPRB,.251E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 34 -42.0
+ZAER (:,34,11) = (/&
+&.225E-01_JPRB,.212E-01_JPRB,.197E-01_JPRB,.177E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,&
+&.136E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.162E-01_JPRB,.197E-01_JPRB,&
+&.226E-01_JPRB,.357E-01_JPRB,.472E-01_JPRB,.395E-01_JPRB,.301E-01_JPRB,.246E-01_JPRB,.205E-01_JPRB,&
+&.172E-01_JPRB,.146E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.967E-02_JPRB,&
+&.988E-02_JPRB,.107E-01_JPRB,.121E-01_JPRB,.153E-01_JPRB,.238E-01_JPRB,.397E-01_JPRB,.539E-01_JPRB,&
+&.482E-01_JPRB,.382E-01_JPRB,.361E-01_JPRB,.517E-01_JPRB,.118E+00_JPRB,.228E+00_JPRB,.233E+00_JPRB,&
+&.163E+00_JPRB,.119E+00_JPRB,.899E-01_JPRB,.777E-01_JPRB,.768E-01_JPRB,.832E-01_JPRB,.102E+00_JPRB,&
+&.140E+00_JPRB,.172E+00_JPRB,.188E+00_JPRB,.199E+00_JPRB,.176E+00_JPRB,.130E+00_JPRB,.924E-01_JPRB,&
+&.638E-01_JPRB,.463E-01_JPRB,.362E-01_JPRB,.303E-01_JPRB,.261E-01_JPRB,.245E-01_JPRB,.242E-01_JPRB,&
+&.242E-01_JPRB,.233E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 35 -46.0
+ZAER (:,35,11) = (/&
+&.191E-01_JPRB,.184E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,.149E-01_JPRB,&
+&.138E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.160E-01_JPRB,.214E-01_JPRB,.283E-01_JPRB,.259E-01_JPRB,.210E-01_JPRB,.185E-01_JPRB,.169E-01_JPRB,&
+&.152E-01_JPRB,.124E-01_JPRB,.106E-01_JPRB,.999E-02_JPRB,.969E-02_JPRB,.965E-02_JPRB,.971E-02_JPRB,&
+&.989E-02_JPRB,.983E-02_JPRB,.989E-02_JPRB,.993E-02_JPRB,.992E-02_JPRB,.971E-02_JPRB,.948E-02_JPRB,&
+&.923E-02_JPRB,.917E-02_JPRB,.963E-02_JPRB,.109E-01_JPRB,.135E-01_JPRB,.229E-01_JPRB,.360E-01_JPRB,&
+&.437E-01_JPRB,.423E-01_JPRB,.491E-01_JPRB,.781E-01_JPRB,.118E+00_JPRB,.174E+00_JPRB,.257E+00_JPRB,&
+&.192E+00_JPRB,.153E+00_JPRB,.137E+00_JPRB,.124E+00_JPRB,.103E+00_JPRB,.862E-01_JPRB,.890E-01_JPRB,&
+&.102E+00_JPRB,.129E+00_JPRB,.145E+00_JPRB,.157E+00_JPRB,.126E+00_JPRB,.931E-01_JPRB,.663E-01_JPRB,&
+&.464E-01_JPRB,.333E-01_JPRB,.259E-01_JPRB,.220E-01_JPRB,.192E-01_JPRB,.173E-01_JPRB,.168E-01_JPRB,&
+&.181E-01_JPRB,.190E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 36 -50.0
+ZAER (:,36,11) = (/&
+&.156E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.141E-01_JPRB,&
+&.130E-01_JPRB,.121E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.107E-01_JPRB,.110E-01_JPRB,&
+&.127E-01_JPRB,.142E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.137E-01_JPRB,.124E-01_JPRB,.114E-01_JPRB,&
+&.111E-01_JPRB,.104E-01_JPRB,.999E-02_JPRB,.944E-02_JPRB,.900E-02_JPRB,.885E-02_JPRB,.883E-02_JPRB,&
+&.882E-02_JPRB,.871E-02_JPRB,.887E-02_JPRB,.903E-02_JPRB,.906E-02_JPRB,.885E-02_JPRB,.864E-02_JPRB,&
+&.842E-02_JPRB,.830E-02_JPRB,.852E-02_JPRB,.901E-02_JPRB,.985E-02_JPRB,.130E-01_JPRB,.191E-01_JPRB,&
+&.262E-01_JPRB,.337E-01_JPRB,.726E-01_JPRB,.110E+00_JPRB,.740E-01_JPRB,.774E-01_JPRB,.131E+00_JPRB,&
+&.134E+00_JPRB,.116E+00_JPRB,.115E+00_JPRB,.103E+00_JPRB,.790E-01_JPRB,.640E-01_JPRB,.581E-01_JPRB,&
+&.554E-01_JPRB,.598E-01_JPRB,.635E-01_JPRB,.643E-01_JPRB,.625E-01_JPRB,.516E-01_JPRB,.429E-01_JPRB,&
+&.387E-01_JPRB,.277E-01_JPRB,.205E-01_JPRB,.176E-01_JPRB,.163E-01_JPRB,.147E-01_JPRB,.135E-01_JPRB,&
+&.139E-01_JPRB,.149E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 37 -54.0
+ZAER (:,37,11) = (/&
+&.136E-01_JPRB,.131E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,&
+&.119E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,&
+&.104E-01_JPRB,.106E-01_JPRB,.108E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,&
+&.104E-01_JPRB,.988E-02_JPRB,.970E-02_JPRB,.962E-02_JPRB,.932E-02_JPRB,.905E-02_JPRB,.864E-02_JPRB,&
+&.842E-02_JPRB,.847E-02_JPRB,.856E-02_JPRB,.869E-02_JPRB,.868E-02_JPRB,.841E-02_JPRB,.816E-02_JPRB,&
+&.802E-02_JPRB,.807E-02_JPRB,.829E-02_JPRB,.882E-02_JPRB,.930E-02_JPRB,.994E-02_JPRB,.113E-01_JPRB,&
+&.134E-01_JPRB,.174E-01_JPRB,.448E-01_JPRB,.705E-01_JPRB,.616E-01_JPRB,.582E-01_JPRB,.723E-01_JPRB,&
+&.797E-01_JPRB,.776E-01_JPRB,.690E-01_JPRB,.567E-01_JPRB,.482E-01_JPRB,.437E-01_JPRB,.419E-01_JPRB,&
+&.384E-01_JPRB,.349E-01_JPRB,.325E-01_JPRB,.324E-01_JPRB,.338E-01_JPRB,.316E-01_JPRB,.265E-01_JPRB,&
+&.239E-01_JPRB,.198E-01_JPRB,.163E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.128E-01_JPRB,&
+&.126E-01_JPRB,.129E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 38 -58.0
+ZAER (:,38,11) = (/&
+&.119E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,&
+&.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.113E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.998E-02_JPRB,.931E-02_JPRB,&
+&.899E-02_JPRB,.884E-02_JPRB,.887E-02_JPRB,.893E-02_JPRB,.873E-02_JPRB,.842E-02_JPRB,.830E-02_JPRB,&
+&.831E-02_JPRB,.844E-02_JPRB,.862E-02_JPRB,.898E-02_JPRB,.942E-02_JPRB,.100E-01_JPRB,.105E-01_JPRB,&
+&.110E-01_JPRB,.114E-01_JPRB,.142E-01_JPRB,.176E-01_JPRB,.202E-01_JPRB,.236E-01_JPRB,.269E-01_JPRB,&
+&.305E-01_JPRB,.381E-01_JPRB,.441E-01_JPRB,.446E-01_JPRB,.397E-01_JPRB,.349E-01_JPRB,.324E-01_JPRB,&
+&.291E-01_JPRB,.263E-01_JPRB,.264E-01_JPRB,.268E-01_JPRB,.255E-01_JPRB,.237E-01_JPRB,.206E-01_JPRB,&
+&.168E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.127E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.116E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 39 -62.0
+ZAER (:,39,11) = (/&
+&.118E-01_JPRB,.119E-01_JPRB,.116E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.110E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,&
+&.116E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,.133E-01_JPRB,&
+&.127E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.119E-01_JPRB,.111E-01_JPRB,.101E-01_JPRB,.968E-02_JPRB,&
+&.933E-02_JPRB,.908E-02_JPRB,.902E-02_JPRB,.881E-02_JPRB,.851E-02_JPRB,.831E-02_JPRB,.830E-02_JPRB,&
+&.822E-02_JPRB,.832E-02_JPRB,.861E-02_JPRB,.914E-02_JPRB,.974E-02_JPRB,.105E-01_JPRB,.113E-01_JPRB,&
+&.112E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,.121E-01_JPRB,.137E-01_JPRB,.153E-01_JPRB,&
+&.164E-01_JPRB,.197E-01_JPRB,.258E-01_JPRB,.319E-01_JPRB,.331E-01_JPRB,.324E-01_JPRB,.290E-01_JPRB,&
+&.257E-01_JPRB,.237E-01_JPRB,.237E-01_JPRB,.237E-01_JPRB,.228E-01_JPRB,.217E-01_JPRB,.183E-01_JPRB,&
+&.151E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.122E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,&
+&.110E-01_JPRB,.116E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 40 -66.0
+ZAER (:,40,11) = (/&
+&.124E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,&
+&.131E-01_JPRB,.136E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.138E-01_JPRB,&
+&.132E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.999E-02_JPRB,&
+&.994E-02_JPRB,.965E-02_JPRB,.919E-02_JPRB,.880E-02_JPRB,.875E-02_JPRB,.867E-02_JPRB,.850E-02_JPRB,&
+&.838E-02_JPRB,.850E-02_JPRB,.895E-02_JPRB,.988E-02_JPRB,.108E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,&
+&.121E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.128E-01_JPRB,.142E-01_JPRB,&
+&.150E-01_JPRB,.163E-01_JPRB,.203E-01_JPRB,.240E-01_JPRB,.264E-01_JPRB,.262E-01_JPRB,.242E-01_JPRB,&
+&.233E-01_JPRB,.231E-01_JPRB,.230E-01_JPRB,.223E-01_JPRB,.221E-01_JPRB,.211E-01_JPRB,.187E-01_JPRB,&
+&.174E-01_JPRB,.159E-01_JPRB,.141E-01_JPRB,.134E-01_JPRB,.127E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,&
+&.119E-01_JPRB,.123E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 41 -70.0
+ZAER (:,41,11) = (/&
+&.135E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,.141E-01_JPRB,&
+&.145E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,&
+&.130E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,&
+&.106E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.963E-02_JPRB,.912E-02_JPRB,.907E-02_JPRB,.915E-02_JPRB,&
+&.919E-02_JPRB,.935E-02_JPRB,.993E-02_JPRB,.108E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,&
+&.131E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.146E-01_JPRB,.154E-01_JPRB,&
+&.158E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.188E-01_JPRB,.192E-01_JPRB,&
+&.198E-01_JPRB,.207E-01_JPRB,.216E-01_JPRB,.213E-01_JPRB,.204E-01_JPRB,.192E-01_JPRB,.191E-01_JPRB,&
+&.184E-01_JPRB,.164E-01_JPRB,.146E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.134E-01_JPRB,.136E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 42 -74.0
+ZAER (:,42,11) = (/&
+&.144E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,&
+&.145E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,&
+&.155E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,&
+&.108E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.947E-02_JPRB,.937E-02_JPRB,.958E-02_JPRB,&
+&.966E-02_JPRB,.983E-02_JPRB,.106E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.127E-01_JPRB,.135E-01_JPRB,&
+&.141E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,.159E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,.164E-01_JPRB,&
+&.164E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,&
+&.171E-01_JPRB,.175E-01_JPRB,.188E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.182E-01_JPRB,.177E-01_JPRB,&
+&.171E-01_JPRB,.157E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.138E-01_JPRB,.139E-01_JPRB,&
+&.141E-01_JPRB,.143E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 43 -78.0
+ZAER (:,43,11) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,&
+&.152E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,&
+&.158E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,&
+&.132E-01_JPRB,.126E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.991E-02_JPRB,.927E-02_JPRB,.919E-02_JPRB,.958E-02_JPRB,&
+&.995E-02_JPRB,.103E-01_JPRB,.111E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,&
+&.153E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,.164E-01_JPRB,.166E-01_JPRB,.168E-01_JPRB,&
+&.169E-01_JPRB,.171E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.181E-01_JPRB,.178E-01_JPRB,.172E-01_JPRB,&
+&.168E-01_JPRB,.173E-01_JPRB,.181E-01_JPRB,.186E-01_JPRB,.182E-01_JPRB,.171E-01_JPRB,.163E-01_JPRB,&
+&.157E-01_JPRB,.145E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,.137E-01_JPRB,&
+&.140E-01_JPRB,.141E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 44 -82.0
+ZAER (:,44,11) = (/&
+&.138E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,.146E-01_JPRB,&
+&.148E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,&
+&.152E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.143E-01_JPRB,.139E-01_JPRB,&
+&.135E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,.103E-01_JPRB,&
+&.106E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,.131E-01_JPRB,.140E-01_JPRB,.146E-01_JPRB,.150E-01_JPRB,&
+&.153E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,&
+&.158E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,&
+&.158E-01_JPRB,.160E-01_JPRB,.162E-01_JPRB,.161E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,&
+&.141E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,&
+&.136E-01_JPRB,.137E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 45 -86.0
+ZAER (:,45,11) = (/&
+&.124E-01_JPRB,.125E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.130E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,&
+&.120E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,&
+&.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,&
+&.115E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.127E-01_JPRB,.129E-01_JPRB,.131E-01_JPRB,&
+&.133E-01_JPRB,.135E-01_JPRB,.137E-01_JPRB,.138E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.134E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.122E-01_JPRB,&
+&.123E-01_JPRB,.124E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 11 --- lat: 46 -90.0
+ZAER (:,46,11) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=11  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_11
Index: LMDZ5/branches/testing/libf/phymar/suecaesd_12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesd_12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesd_12.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESD_12
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SOIL-DUST ORIGIN
+!                                      December
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESD* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSD
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,12:12)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  1  90.0
+ZAER (:, 1,12) = (/&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.190E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  2  86.0
+ZAER (:, 2,12) = (/&
+&.161E-02_JPRB,.158E-02_JPRB,.154E-02_JPRB,.150E-02_JPRB,.146E-02_JPRB,.141E-02_JPRB,.137E-02_JPRB,&
+&.133E-02_JPRB,.132E-02_JPRB,.133E-02_JPRB,.136E-02_JPRB,.139E-02_JPRB,.142E-02_JPRB,.146E-02_JPRB,&
+&.150E-02_JPRB,.155E-02_JPRB,.160E-02_JPRB,.166E-02_JPRB,.170E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,&
+&.174E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.184E-02_JPRB,.189E-02_JPRB,.192E-02_JPRB,&
+&.196E-02_JPRB,.198E-02_JPRB,.201E-02_JPRB,.203E-02_JPRB,.206E-02_JPRB,.209E-02_JPRB,.211E-02_JPRB,&
+&.211E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.212E-02_JPRB,.214E-02_JPRB,&
+&.214E-02_JPRB,.214E-02_JPRB,.212E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,.209E-02_JPRB,.208E-02_JPRB,&
+&.206E-02_JPRB,.204E-02_JPRB,.201E-02_JPRB,.199E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,&
+&.190E-02_JPRB,.188E-02_JPRB,.186E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.180E-02_JPRB,&
+&.179E-02_JPRB,.178E-02_JPRB,.176E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.169E-02_JPRB,.167E-02_JPRB,&
+&.166E-02_JPRB,.164E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  3  82.0
+ZAER (:, 3,12) = (/&
+&.126E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.115E-02_JPRB,.113E-02_JPRB,.110E-02_JPRB,.109E-02_JPRB,&
+&.110E-02_JPRB,.112E-02_JPRB,.114E-02_JPRB,.118E-02_JPRB,.122E-02_JPRB,.123E-02_JPRB,.124E-02_JPRB,&
+&.128E-02_JPRB,.133E-02_JPRB,.138E-02_JPRB,.142E-02_JPRB,.145E-02_JPRB,.148E-02_JPRB,.149E-02_JPRB,&
+&.147E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,.151E-02_JPRB,.158E-02_JPRB,.165E-02_JPRB,.173E-02_JPRB,&
+&.182E-02_JPRB,.190E-02_JPRB,.199E-02_JPRB,.208E-02_JPRB,.218E-02_JPRB,.229E-02_JPRB,.232E-02_JPRB,&
+&.231E-02_JPRB,.226E-02_JPRB,.223E-02_JPRB,.222E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,.227E-02_JPRB,&
+&.230E-02_JPRB,.233E-02_JPRB,.237E-02_JPRB,.241E-02_JPRB,.244E-02_JPRB,.248E-02_JPRB,.247E-02_JPRB,&
+&.244E-02_JPRB,.239E-02_JPRB,.236E-02_JPRB,.233E-02_JPRB,.229E-02_JPRB,.223E-02_JPRB,.216E-02_JPRB,&
+&.210E-02_JPRB,.203E-02_JPRB,.196E-02_JPRB,.188E-02_JPRB,.181E-02_JPRB,.174E-02_JPRB,.169E-02_JPRB,&
+&.166E-02_JPRB,.163E-02_JPRB,.160E-02_JPRB,.157E-02_JPRB,.155E-02_JPRB,.149E-02_JPRB,.139E-02_JPRB,&
+&.130E-02_JPRB,.127E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  4  78.0
+ZAER (:, 4,12) = (/&
+&.117E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.114E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.114E-02_JPRB,.113E-02_JPRB,&
+&.111E-02_JPRB,.112E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,.128E-02_JPRB,.134E-02_JPRB,.141E-02_JPRB,&
+&.148E-02_JPRB,.154E-02_JPRB,.156E-02_JPRB,.158E-02_JPRB,.169E-02_JPRB,.183E-02_JPRB,.188E-02_JPRB,&
+&.191E-02_JPRB,.196E-02_JPRB,.202E-02_JPRB,.212E-02_JPRB,.229E-02_JPRB,.247E-02_JPRB,.254E-02_JPRB,&
+&.255E-02_JPRB,.249E-02_JPRB,.237E-02_JPRB,.223E-02_JPRB,.223E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,&
+&.224E-02_JPRB,.227E-02_JPRB,.230E-02_JPRB,.237E-02_JPRB,.245E-02_JPRB,.253E-02_JPRB,.258E-02_JPRB,&
+&.260E-02_JPRB,.261E-02_JPRB,.253E-02_JPRB,.245E-02_JPRB,.237E-02_JPRB,.230E-02_JPRB,.220E-02_JPRB,&
+&.207E-02_JPRB,.200E-02_JPRB,.192E-02_JPRB,.181E-02_JPRB,.173E-02_JPRB,.168E-02_JPRB,.165E-02_JPRB,&
+&.164E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.163E-02_JPRB,.157E-02_JPRB,.147E-02_JPRB,.130E-02_JPRB,&
+&.119E-02_JPRB,.117E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  5  74.0
+ZAER (:, 5,12) = (/&
+&.147E-02_JPRB,.145E-02_JPRB,.141E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.137E-02_JPRB,.136E-02_JPRB,&
+&.133E-02_JPRB,.125E-02_JPRB,.117E-02_JPRB,.109E-02_JPRB,.104E-02_JPRB,.990E-03_JPRB,.967E-03_JPRB,&
+&.925E-03_JPRB,.901E-03_JPRB,.924E-03_JPRB,.978E-03_JPRB,.104E-02_JPRB,.112E-02_JPRB,.122E-02_JPRB,&
+&.137E-02_JPRB,.153E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.167E-02_JPRB,.190E-02_JPRB,.206E-02_JPRB,&
+&.205E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,.212E-02_JPRB,.239E-02_JPRB,.270E-02_JPRB,.295E-02_JPRB,&
+&.308E-02_JPRB,.300E-02_JPRB,.260E-02_JPRB,.219E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,&
+&.205E-02_JPRB,.213E-02_JPRB,.226E-02_JPRB,.235E-02_JPRB,.245E-02_JPRB,.251E-02_JPRB,.253E-02_JPRB,&
+&.255E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,.251E-02_JPRB,.237E-02_JPRB,.220E-02_JPRB,.206E-02_JPRB,&
+&.197E-02_JPRB,.191E-02_JPRB,.185E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,&
+&.180E-02_JPRB,.186E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.191E-02_JPRB,.177E-02_JPRB,.159E-02_JPRB,&
+&.147E-02_JPRB,.147E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  6  70.0
+ZAER (:, 6,12) = (/&
+&.197E-02_JPRB,.192E-02_JPRB,.184E-02_JPRB,.178E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,.164E-02_JPRB,&
+&.154E-02_JPRB,.145E-02_JPRB,.135E-02_JPRB,.128E-02_JPRB,.123E-02_JPRB,.119E-02_JPRB,.114E-02_JPRB,&
+&.110E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.111E-02_JPRB,.114E-02_JPRB,.119E-02_JPRB,&
+&.128E-02_JPRB,.142E-02_JPRB,.155E-02_JPRB,.156E-02_JPRB,.160E-02_JPRB,.185E-02_JPRB,.223E-02_JPRB,&
+&.239E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.247E-02_JPRB,.265E-02_JPRB,.294E-02_JPRB,.330E-02_JPRB,&
+&.349E-02_JPRB,.330E-02_JPRB,.280E-02_JPRB,.223E-02_JPRB,.186E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,&
+&.178E-02_JPRB,.188E-02_JPRB,.208E-02_JPRB,.228E-02_JPRB,.238E-02_JPRB,.237E-02_JPRB,.239E-02_JPRB,&
+&.238E-02_JPRB,.240E-02_JPRB,.244E-02_JPRB,.241E-02_JPRB,.226E-02_JPRB,.203E-02_JPRB,.185E-02_JPRB,&
+&.181E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,.185E-02_JPRB,.188E-02_JPRB,.190E-02_JPRB,.193E-02_JPRB,&
+&.195E-02_JPRB,.200E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.200E-02_JPRB,.195E-02_JPRB,&
+&.194E-02_JPRB,.196E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  7  66.0
+ZAER (:, 7,12) = (/&
+&.224E-02_JPRB,.228E-02_JPRB,.225E-02_JPRB,.213E-02_JPRB,.206E-02_JPRB,.202E-02_JPRB,.192E-02_JPRB,&
+&.180E-02_JPRB,.168E-02_JPRB,.161E-02_JPRB,.160E-02_JPRB,.161E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,&
+&.157E-02_JPRB,.151E-02_JPRB,.146E-02_JPRB,.142E-02_JPRB,.139E-02_JPRB,.138E-02_JPRB,.139E-02_JPRB,&
+&.142E-02_JPRB,.147E-02_JPRB,.156E-02_JPRB,.157E-02_JPRB,.162E-02_JPRB,.196E-02_JPRB,.242E-02_JPRB,&
+&.275E-02_JPRB,.276E-02_JPRB,.263E-02_JPRB,.252E-02_JPRB,.249E-02_JPRB,.277E-02_JPRB,.322E-02_JPRB,&
+&.346E-02_JPRB,.330E-02_JPRB,.293E-02_JPRB,.256E-02_JPRB,.226E-02_JPRB,.202E-02_JPRB,.185E-02_JPRB,&
+&.178E-02_JPRB,.180E-02_JPRB,.197E-02_JPRB,.211E-02_JPRB,.218E-02_JPRB,.221E-02_JPRB,.227E-02_JPRB,&
+&.229E-02_JPRB,.227E-02_JPRB,.228E-02_JPRB,.224E-02_JPRB,.215E-02_JPRB,.196E-02_JPRB,.175E-02_JPRB,&
+&.167E-02_JPRB,.167E-02_JPRB,.171E-02_JPRB,.175E-02_JPRB,.177E-02_JPRB,.184E-02_JPRB,.192E-02_JPRB,&
+&.202E-02_JPRB,.204E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,.202E-02_JPRB,.210E-02_JPRB,.214E-02_JPRB,&
+&.217E-02_JPRB,.219E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  8  62.0
+ZAER (:, 8,12) = (/&
+&.228E-02_JPRB,.242E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.249E-02_JPRB,.246E-02_JPRB,.244E-02_JPRB,&
+&.240E-02_JPRB,.233E-02_JPRB,.224E-02_JPRB,.218E-02_JPRB,.216E-02_JPRB,.215E-02_JPRB,.212E-02_JPRB,&
+&.207E-02_JPRB,.200E-02_JPRB,.192E-02_JPRB,.184E-02_JPRB,.177E-02_JPRB,.171E-02_JPRB,.169E-02_JPRB,&
+&.165E-02_JPRB,.167E-02_JPRB,.175E-02_JPRB,.179E-02_JPRB,.199E-02_JPRB,.240E-02_JPRB,.262E-02_JPRB,&
+&.289E-02_JPRB,.305E-02_JPRB,.298E-02_JPRB,.270E-02_JPRB,.260E-02_JPRB,.290E-02_JPRB,.339E-02_JPRB,&
+&.359E-02_JPRB,.338E-02_JPRB,.307E-02_JPRB,.277E-02_JPRB,.255E-02_JPRB,.234E-02_JPRB,.211E-02_JPRB,&
+&.192E-02_JPRB,.187E-02_JPRB,.191E-02_JPRB,.200E-02_JPRB,.214E-02_JPRB,.227E-02_JPRB,.237E-02_JPRB,&
+&.238E-02_JPRB,.234E-02_JPRB,.230E-02_JPRB,.223E-02_JPRB,.218E-02_JPRB,.211E-02_JPRB,.198E-02_JPRB,&
+&.182E-02_JPRB,.180E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.194E-02_JPRB,&
+&.207E-02_JPRB,.206E-02_JPRB,.197E-02_JPRB,.192E-02_JPRB,.203E-02_JPRB,.217E-02_JPRB,.224E-02_JPRB,&
+&.222E-02_JPRB,.221E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat:  9  58.0
+ZAER (:, 9,12) = (/&
+&.250E-02_JPRB,.265E-02_JPRB,.273E-02_JPRB,.278E-02_JPRB,.289E-02_JPRB,.307E-02_JPRB,.316E-02_JPRB,&
+&.321E-02_JPRB,.320E-02_JPRB,.315E-02_JPRB,.302E-02_JPRB,.284E-02_JPRB,.270E-02_JPRB,.260E-02_JPRB,&
+&.252E-02_JPRB,.246E-02_JPRB,.240E-02_JPRB,.233E-02_JPRB,.223E-02_JPRB,.215E-02_JPRB,.221E-02_JPRB,&
+&.241E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.243E-02_JPRB,.270E-02_JPRB,.302E-02_JPRB,.289E-02_JPRB,&
+&.307E-02_JPRB,.346E-02_JPRB,.382E-02_JPRB,.386E-02_JPRB,.370E-02_JPRB,.401E-02_JPRB,.435E-02_JPRB,&
+&.424E-02_JPRB,.403E-02_JPRB,.374E-02_JPRB,.348E-02_JPRB,.319E-02_JPRB,.291E-02_JPRB,.262E-02_JPRB,&
+&.236E-02_JPRB,.220E-02_JPRB,.216E-02_JPRB,.225E-02_JPRB,.246E-02_JPRB,.265E-02_JPRB,.279E-02_JPRB,&
+&.282E-02_JPRB,.277E-02_JPRB,.264E-02_JPRB,.256E-02_JPRB,.249E-02_JPRB,.238E-02_JPRB,.237E-02_JPRB,&
+&.240E-02_JPRB,.240E-02_JPRB,.235E-02_JPRB,.229E-02_JPRB,.222E-02_JPRB,.215E-02_JPRB,.214E-02_JPRB,&
+&.215E-02_JPRB,.209E-02_JPRB,.207E-02_JPRB,.202E-02_JPRB,.208E-02_JPRB,.220E-02_JPRB,.227E-02_JPRB,&
+&.230E-02_JPRB,.233E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 10  54.0
+ZAER (:,10,12) = (/&
+&.317E-02_JPRB,.331E-02_JPRB,.344E-02_JPRB,.361E-02_JPRB,.377E-02_JPRB,.386E-02_JPRB,.388E-02_JPRB,&
+&.386E-02_JPRB,.382E-02_JPRB,.373E-02_JPRB,.366E-02_JPRB,.357E-02_JPRB,.345E-02_JPRB,.334E-02_JPRB,&
+&.323E-02_JPRB,.312E-02_JPRB,.303E-02_JPRB,.296E-02_JPRB,.288E-02_JPRB,.282E-02_JPRB,.290E-02_JPRB,&
+&.425E-02_JPRB,.576E-02_JPRB,.586E-02_JPRB,.553E-02_JPRB,.499E-02_JPRB,.522E-02_JPRB,.570E-02_JPRB,&
+&.619E-02_JPRB,.633E-02_JPRB,.643E-02_JPRB,.671E-02_JPRB,.646E-02_JPRB,.643E-02_JPRB,.628E-02_JPRB,&
+&.595E-02_JPRB,.569E-02_JPRB,.550E-02_JPRB,.520E-02_JPRB,.477E-02_JPRB,.430E-02_JPRB,.385E-02_JPRB,&
+&.340E-02_JPRB,.318E-02_JPRB,.322E-02_JPRB,.330E-02_JPRB,.348E-02_JPRB,.359E-02_JPRB,.366E-02_JPRB,&
+&.364E-02_JPRB,.371E-02_JPRB,.368E-02_JPRB,.356E-02_JPRB,.353E-02_JPRB,.359E-02_JPRB,.369E-02_JPRB,&
+&.367E-02_JPRB,.350E-02_JPRB,.328E-02_JPRB,.307E-02_JPRB,.292E-02_JPRB,.283E-02_JPRB,.273E-02_JPRB,&
+&.265E-02_JPRB,.257E-02_JPRB,.252E-02_JPRB,.249E-02_JPRB,.251E-02_JPRB,.252E-02_JPRB,.255E-02_JPRB,&
+&.269E-02_JPRB,.294E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 11  50.0
+ZAER (:,11,12) = (/&
+&.457E-02_JPRB,.475E-02_JPRB,.488E-02_JPRB,.492E-02_JPRB,.491E-02_JPRB,.484E-02_JPRB,.477E-02_JPRB,&
+&.472E-02_JPRB,.458E-02_JPRB,.433E-02_JPRB,.417E-02_JPRB,.402E-02_JPRB,.390E-02_JPRB,.385E-02_JPRB,&
+&.384E-02_JPRB,.387E-02_JPRB,.387E-02_JPRB,.383E-02_JPRB,.373E-02_JPRB,.360E-02_JPRB,.355E-02_JPRB,&
+&.491E-02_JPRB,.196E-01_JPRB,.252E-01_JPRB,.179E-01_JPRB,.140E-01_JPRB,.153E-01_JPRB,.157E-01_JPRB,&
+&.151E-01_JPRB,.139E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,.100E-01_JPRB,.913E-02_JPRB,&
+&.867E-02_JPRB,.843E-02_JPRB,.827E-02_JPRB,.783E-02_JPRB,.713E-02_JPRB,.647E-02_JPRB,.603E-02_JPRB,&
+&.587E-02_JPRB,.587E-02_JPRB,.579E-02_JPRB,.570E-02_JPRB,.565E-02_JPRB,.564E-02_JPRB,.564E-02_JPRB,&
+&.563E-02_JPRB,.587E-02_JPRB,.620E-02_JPRB,.624E-02_JPRB,.607E-02_JPRB,.577E-02_JPRB,.549E-02_JPRB,&
+&.530E-02_JPRB,.518E-02_JPRB,.508E-02_JPRB,.494E-02_JPRB,.469E-02_JPRB,.439E-02_JPRB,.413E-02_JPRB,&
+&.394E-02_JPRB,.378E-02_JPRB,.364E-02_JPRB,.361E-02_JPRB,.363E-02_JPRB,.366E-02_JPRB,.375E-02_JPRB,&
+&.403E-02_JPRB,.435E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 12  46.0
+ZAER (:,12,12) = (/&
+&.739E-02_JPRB,.747E-02_JPRB,.737E-02_JPRB,.714E-02_JPRB,.687E-02_JPRB,.659E-02_JPRB,.631E-02_JPRB,&
+&.598E-02_JPRB,.550E-02_JPRB,.497E-02_JPRB,.462E-02_JPRB,.447E-02_JPRB,.445E-02_JPRB,.449E-02_JPRB,&
+&.456E-02_JPRB,.464E-02_JPRB,.460E-02_JPRB,.448E-02_JPRB,.434E-02_JPRB,.417E-02_JPRB,.399E-02_JPRB,&
+&.584E-02_JPRB,.339E-01_JPRB,.756E-01_JPRB,.688E-01_JPRB,.470E-01_JPRB,.347E-01_JPRB,.267E-01_JPRB,&
+&.216E-01_JPRB,.184E-01_JPRB,.165E-01_JPRB,.153E-01_JPRB,.145E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,&
+&.121E-01_JPRB,.113E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.971E-02_JPRB,&
+&.934E-02_JPRB,.898E-02_JPRB,.864E-02_JPRB,.839E-02_JPRB,.823E-02_JPRB,.816E-02_JPRB,.812E-02_JPRB,&
+&.805E-02_JPRB,.809E-02_JPRB,.820E-02_JPRB,.796E-02_JPRB,.761E-02_JPRB,.726E-02_JPRB,.695E-02_JPRB,&
+&.672E-02_JPRB,.665E-02_JPRB,.658E-02_JPRB,.647E-02_JPRB,.652E-02_JPRB,.669E-02_JPRB,.661E-02_JPRB,&
+&.642E-02_JPRB,.619E-02_JPRB,.605E-02_JPRB,.596E-02_JPRB,.592E-02_JPRB,.616E-02_JPRB,.673E-02_JPRB,&
+&.717E-02_JPRB,.729E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 13  42.0
+ZAER (:,13,12) = (/&
+&.119E-01_JPRB,.119E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.937E-02_JPRB,.850E-02_JPRB,&
+&.766E-02_JPRB,.692E-02_JPRB,.627E-02_JPRB,.586E-02_JPRB,.569E-02_JPRB,.571E-02_JPRB,.573E-02_JPRB,&
+&.573E-02_JPRB,.562E-02_JPRB,.538E-02_JPRB,.516E-02_JPRB,.502E-02_JPRB,.484E-02_JPRB,.468E-02_JPRB,&
+&.635E-02_JPRB,.364E-01_JPRB,.126E+00_JPRB,.108E+00_JPRB,.624E-01_JPRB,.413E-01_JPRB,.298E-01_JPRB,&
+&.239E-01_JPRB,.205E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.176E-01_JPRB,&
+&.167E-01_JPRB,.154E-01_JPRB,.140E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,&
+&.108E-01_JPRB,.101E-01_JPRB,.942E-02_JPRB,.915E-02_JPRB,.916E-02_JPRB,.921E-02_JPRB,.927E-02_JPRB,&
+&.914E-02_JPRB,.899E-02_JPRB,.895E-02_JPRB,.866E-02_JPRB,.834E-02_JPRB,.805E-02_JPRB,.775E-02_JPRB,&
+&.760E-02_JPRB,.759E-02_JPRB,.757E-02_JPRB,.814E-02_JPRB,.103E-01_JPRB,.107E-01_JPRB,.991E-02_JPRB,&
+&.923E-02_JPRB,.909E-02_JPRB,.945E-02_JPRB,.102E-01_JPRB,.111E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,&
+&.122E-01_JPRB,.119E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 14  38.0
+ZAER (:,14,12) = (/&
+&.162E-01_JPRB,.161E-01_JPRB,.160E-01_JPRB,.155E-01_JPRB,.143E-01_JPRB,.127E-01_JPRB,.111E-01_JPRB,&
+&.994E-02_JPRB,.919E-02_JPRB,.857E-02_JPRB,.803E-02_JPRB,.769E-02_JPRB,.761E-02_JPRB,.743E-02_JPRB,&
+&.717E-02_JPRB,.682E-02_JPRB,.641E-02_JPRB,.603E-02_JPRB,.583E-02_JPRB,.572E-02_JPRB,.588E-02_JPRB,&
+&.965E-02_JPRB,.388E-01_JPRB,.944E-01_JPRB,.700E-01_JPRB,.411E-01_JPRB,.314E-01_JPRB,.270E-01_JPRB,&
+&.245E-01_JPRB,.228E-01_JPRB,.216E-01_JPRB,.204E-01_JPRB,.196E-01_JPRB,.188E-01_JPRB,.181E-01_JPRB,&
+&.171E-01_JPRB,.159E-01_JPRB,.144E-01_JPRB,.128E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.124E-01_JPRB,&
+&.117E-01_JPRB,.106E-01_JPRB,.967E-02_JPRB,.926E-02_JPRB,.919E-02_JPRB,.932E-02_JPRB,.958E-02_JPRB,&
+&.969E-02_JPRB,.975E-02_JPRB,.987E-02_JPRB,.966E-02_JPRB,.918E-02_JPRB,.881E-02_JPRB,.867E-02_JPRB,&
+&.936E-02_JPRB,.990E-02_JPRB,.119E-01_JPRB,.176E-01_JPRB,.236E-01_JPRB,.217E-01_JPRB,.171E-01_JPRB,&
+&.153E-01_JPRB,.187E-01_JPRB,.220E-01_JPRB,.227E-01_JPRB,.215E-01_JPRB,.193E-01_JPRB,.174E-01_JPRB,&
+&.165E-01_JPRB,.163E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 15  34.0
+ZAER (:,15,12) = (/&
+&.202E-01_JPRB,.192E-01_JPRB,.190E-01_JPRB,.185E-01_JPRB,.172E-01_JPRB,.153E-01_JPRB,.134E-01_JPRB,&
+&.120E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.998E-02_JPRB,.954E-02_JPRB,&
+&.899E-02_JPRB,.834E-02_JPRB,.770E-02_JPRB,.699E-02_JPRB,.651E-02_JPRB,.639E-02_JPRB,.724E-02_JPRB,&
+&.121E-01_JPRB,.308E-01_JPRB,.587E-01_JPRB,.413E-01_JPRB,.294E-01_JPRB,.261E-01_JPRB,.239E-01_JPRB,&
+&.226E-01_JPRB,.213E-01_JPRB,.201E-01_JPRB,.185E-01_JPRB,.181E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,&
+&.153E-01_JPRB,.137E-01_JPRB,.127E-01_JPRB,.121E-01_JPRB,.148E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,&
+&.163E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,&
+&.126E-01_JPRB,.150E-01_JPRB,.232E-01_JPRB,.427E-01_JPRB,.620E-01_JPRB,.597E-01_JPRB,.543E-01_JPRB,&
+&.646E-01_JPRB,.765E-01_JPRB,.596E-01_JPRB,.447E-01_JPRB,.330E-01_JPRB,.262E-01_JPRB,.241E-01_JPRB,&
+&.229E-01_JPRB,.214E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 16  30.0
+ZAER (:,16,12) = (/&
+&.238E-01_JPRB,.228E-01_JPRB,.218E-01_JPRB,.202E-01_JPRB,.182E-01_JPRB,.165E-01_JPRB,.145E-01_JPRB,&
+&.134E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,&
+&.996E-02_JPRB,.918E-02_JPRB,.823E-02_JPRB,.759E-02_JPRB,.731E-02_JPRB,.747E-02_JPRB,.850E-02_JPRB,&
+&.121E-01_JPRB,.224E-01_JPRB,.378E-01_JPRB,.304E-01_JPRB,.221E-01_JPRB,.183E-01_JPRB,.163E-01_JPRB,&
+&.155E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.148E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,&
+&.142E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.178E-01_JPRB,.362E-01_JPRB,.565E-01_JPRB,.404E-01_JPRB,&
+&.254E-01_JPRB,.200E-01_JPRB,.179E-01_JPRB,.170E-01_JPRB,.162E-01_JPRB,.156E-01_JPRB,.149E-01_JPRB,&
+&.142E-01_JPRB,.138E-01_JPRB,.141E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,&
+&.181E-01_JPRB,.236E-01_JPRB,.417E-01_JPRB,.836E-01_JPRB,.131E+00_JPRB,.138E+00_JPRB,.154E+00_JPRB,&
+&.160E+00_JPRB,.126E+00_JPRB,.839E-01_JPRB,.575E-01_JPRB,.425E-01_JPRB,.339E-01_JPRB,.312E-01_JPRB,&
+&.285E-01_JPRB,.255E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 17  26.0
+ZAER (:,17,12) = (/&
+&.232E-01_JPRB,.219E-01_JPRB,.198E-01_JPRB,.174E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.138E-01_JPRB,&
+&.130E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.108E-01_JPRB,.955E-02_JPRB,.911E-02_JPRB,&
+&.899E-02_JPRB,.840E-02_JPRB,.784E-02_JPRB,.759E-02_JPRB,.745E-02_JPRB,.767E-02_JPRB,.819E-02_JPRB,&
+&.102E-01_JPRB,.226E-01_JPRB,.276E-01_JPRB,.269E-01_JPRB,.199E-01_JPRB,.158E-01_JPRB,.137E-01_JPRB,&
+&.126E-01_JPRB,.124E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,&
+&.128E-01_JPRB,.126E-01_JPRB,.158E-01_JPRB,.292E-01_JPRB,.533E-01_JPRB,.604E-01_JPRB,.464E-01_JPRB,&
+&.331E-01_JPRB,.274E-01_JPRB,.240E-01_JPRB,.222E-01_JPRB,.188E-01_JPRB,.162E-01_JPRB,.144E-01_JPRB,&
+&.136E-01_JPRB,.141E-01_JPRB,.145E-01_JPRB,.159E-01_JPRB,.175E-01_JPRB,.192E-01_JPRB,.234E-01_JPRB,&
+&.285E-01_JPRB,.382E-01_JPRB,.700E-01_JPRB,.136E+00_JPRB,.171E+00_JPRB,.183E+00_JPRB,.179E+00_JPRB,&
+&.133E+00_JPRB,.938E-01_JPRB,.730E-01_JPRB,.538E-01_JPRB,.419E-01_JPRB,.339E-01_JPRB,.302E-01_JPRB,&
+&.275E-01_JPRB,.249E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 18  22.0
+ZAER (:,18,12) = (/&
+&.189E-01_JPRB,.165E-01_JPRB,.122E-01_JPRB,.988E-02_JPRB,.998E-02_JPRB,.105E-01_JPRB,.108E-01_JPRB,&
+&.107E-01_JPRB,.105E-01_JPRB,.992E-02_JPRB,.917E-02_JPRB,.798E-02_JPRB,.705E-02_JPRB,.674E-02_JPRB,&
+&.666E-02_JPRB,.671E-02_JPRB,.704E-02_JPRB,.705E-02_JPRB,.694E-02_JPRB,.700E-02_JPRB,.769E-02_JPRB,&
+&.136E-01_JPRB,.293E-01_JPRB,.291E-01_JPRB,.327E-01_JPRB,.170E-01_JPRB,.115E-01_JPRB,.973E-02_JPRB,&
+&.970E-02_JPRB,.106E-01_JPRB,.118E-01_JPRB,.127E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,&
+&.140E-01_JPRB,.170E-01_JPRB,.246E-01_JPRB,.427E-01_JPRB,.630E-01_JPRB,.678E-01_JPRB,.582E-01_JPRB,&
+&.309E-01_JPRB,.241E-01_JPRB,.210E-01_JPRB,.177E-01_JPRB,.138E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,&
+&.117E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,.194E-01_JPRB,.250E-01_JPRB,.329E-01_JPRB,&
+&.419E-01_JPRB,.561E-01_JPRB,.932E-01_JPRB,.166E+00_JPRB,.164E+00_JPRB,.142E+00_JPRB,.115E+00_JPRB,&
+&.802E-01_JPRB,.592E-01_JPRB,.493E-01_JPRB,.409E-01_JPRB,.337E-01_JPRB,.289E-01_JPRB,.249E-01_JPRB,&
+&.227E-01_JPRB,.205E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 19  18.0
+ZAER (:,19,12) = (/&
+&.124E-01_JPRB,.996E-02_JPRB,.617E-02_JPRB,.435E-02_JPRB,.482E-02_JPRB,.584E-02_JPRB,.704E-02_JPRB,&
+&.763E-02_JPRB,.771E-02_JPRB,.718E-02_JPRB,.644E-02_JPRB,.577E-02_JPRB,.543E-02_JPRB,.532E-02_JPRB,&
+&.537E-02_JPRB,.591E-02_JPRB,.658E-02_JPRB,.677E-02_JPRB,.718E-02_JPRB,.798E-02_JPRB,.103E-01_JPRB,&
+&.145E-01_JPRB,.157E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.946E-02_JPRB,.752E-02_JPRB,.767E-02_JPRB,&
+&.920E-02_JPRB,.107E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.165E-01_JPRB,&
+&.192E-01_JPRB,.232E-01_JPRB,.289E-01_JPRB,.371E-01_JPRB,.440E-01_JPRB,.461E-01_JPRB,.345E-01_JPRB,&
+&.175E-01_JPRB,.147E-01_JPRB,.128E-01_JPRB,.101E-01_JPRB,.936E-02_JPRB,.967E-02_JPRB,.103E-01_JPRB,&
+&.113E-01_JPRB,.127E-01_JPRB,.128E-01_JPRB,.149E-01_JPRB,.203E-01_JPRB,.293E-01_JPRB,.388E-01_JPRB,&
+&.490E-01_JPRB,.651E-01_JPRB,.899E-01_JPRB,.109E+00_JPRB,.104E+00_JPRB,.936E-01_JPRB,.726E-01_JPRB,&
+&.517E-01_JPRB,.357E-01_JPRB,.284E-01_JPRB,.237E-01_JPRB,.209E-01_JPRB,.180E-01_JPRB,.159E-01_JPRB,&
+&.149E-01_JPRB,.138E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 20  14.0
+ZAER (:,20,12) = (/&
+&.474E-02_JPRB,.374E-02_JPRB,.226E-02_JPRB,.178E-02_JPRB,.237E-02_JPRB,.307E-02_JPRB,.396E-02_JPRB,&
+&.447E-02_JPRB,.466E-02_JPRB,.468E-02_JPRB,.475E-02_JPRB,.475E-02_JPRB,.471E-02_JPRB,.477E-02_JPRB,&
+&.506E-02_JPRB,.567E-02_JPRB,.613E-02_JPRB,.649E-02_JPRB,.680E-02_JPRB,.741E-02_JPRB,.885E-02_JPRB,&
+&.973E-02_JPRB,.743E-02_JPRB,.565E-02_JPRB,.573E-02_JPRB,.594E-02_JPRB,.713E-02_JPRB,.103E-01_JPRB,&
+&.131E-01_JPRB,.132E-01_JPRB,.146E-01_JPRB,.161E-01_JPRB,.175E-01_JPRB,.182E-01_JPRB,.194E-01_JPRB,&
+&.213E-01_JPRB,.232E-01_JPRB,.237E-01_JPRB,.217E-01_JPRB,.212E-01_JPRB,.192E-01_JPRB,.122E-01_JPRB,&
+&.805E-02_JPRB,.775E-02_JPRB,.842E-02_JPRB,.812E-02_JPRB,.876E-02_JPRB,.944E-02_JPRB,.982E-02_JPRB,&
+&.101E-01_JPRB,.978E-02_JPRB,.103E-01_JPRB,.127E-01_JPRB,.172E-01_JPRB,.234E-01_JPRB,.314E-01_JPRB,&
+&.402E-01_JPRB,.467E-01_JPRB,.490E-01_JPRB,.456E-01_JPRB,.482E-01_JPRB,.488E-01_JPRB,.325E-01_JPRB,&
+&.233E-01_JPRB,.180E-01_JPRB,.136E-01_JPRB,.103E-01_JPRB,.802E-02_JPRB,.657E-02_JPRB,.609E-02_JPRB,&
+&.556E-02_JPRB,.501E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 21  10.0
+ZAER (:,21,12) = (/&
+&.160E-02_JPRB,.136E-02_JPRB,.121E-02_JPRB,.137E-02_JPRB,.185E-02_JPRB,.233E-02_JPRB,.289E-02_JPRB,&
+&.335E-02_JPRB,.377E-02_JPRB,.401E-02_JPRB,.431E-02_JPRB,.450E-02_JPRB,.458E-02_JPRB,.468E-02_JPRB,&
+&.508E-02_JPRB,.543E-02_JPRB,.571E-02_JPRB,.596E-02_JPRB,.607E-02_JPRB,.623E-02_JPRB,.654E-02_JPRB,&
+&.592E-02_JPRB,.495E-02_JPRB,.519E-02_JPRB,.583E-02_JPRB,.721E-02_JPRB,.980E-02_JPRB,.151E-01_JPRB,&
+&.227E-01_JPRB,.215E-01_JPRB,.160E-01_JPRB,.173E-01_JPRB,.186E-01_JPRB,.182E-01_JPRB,.176E-01_JPRB,&
+&.172E-01_JPRB,.169E-01_JPRB,.156E-01_JPRB,.125E-01_JPRB,.954E-02_JPRB,.762E-02_JPRB,.665E-02_JPRB,&
+&.632E-02_JPRB,.680E-02_JPRB,.743E-02_JPRB,.712E-02_JPRB,.762E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,&
+&.778E-02_JPRB,.798E-02_JPRB,.892E-02_JPRB,.103E-01_JPRB,.123E-01_JPRB,.142E-01_JPRB,.164E-01_JPRB,&
+&.201E-01_JPRB,.195E-01_JPRB,.191E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.178E-01_JPRB,.122E-01_JPRB,&
+&.917E-02_JPRB,.690E-02_JPRB,.494E-02_JPRB,.370E-02_JPRB,.242E-02_JPRB,.188E-02_JPRB,.182E-02_JPRB,&
+&.163E-02_JPRB,.152E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 22   6.0
+ZAER (:,22,12) = (/&
+&.959E-03_JPRB,.112E-02_JPRB,.138E-02_JPRB,.178E-02_JPRB,.224E-02_JPRB,.266E-02_JPRB,.309E-02_JPRB,&
+&.353E-02_JPRB,.394E-02_JPRB,.426E-02_JPRB,.453E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,.473E-02_JPRB,&
+&.498E-02_JPRB,.525E-02_JPRB,.555E-02_JPRB,.586E-02_JPRB,.598E-02_JPRB,.588E-02_JPRB,.516E-02_JPRB,&
+&.465E-02_JPRB,.464E-02_JPRB,.583E-02_JPRB,.755E-02_JPRB,.100E-01_JPRB,.133E-01_JPRB,.178E-01_JPRB,&
+&.241E-01_JPRB,.206E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.155E-01_JPRB,.146E-01_JPRB,.135E-01_JPRB,&
+&.130E-01_JPRB,.128E-01_JPRB,.111E-01_JPRB,.906E-02_JPRB,.763E-02_JPRB,.727E-02_JPRB,.770E-02_JPRB,&
+&.773E-02_JPRB,.701E-02_JPRB,.632E-02_JPRB,.577E-02_JPRB,.552E-02_JPRB,.519E-02_JPRB,.472E-02_JPRB,&
+&.473E-02_JPRB,.494E-02_JPRB,.522E-02_JPRB,.506E-02_JPRB,.513E-02_JPRB,.562E-02_JPRB,.587E-02_JPRB,&
+&.614E-02_JPRB,.586E-02_JPRB,.561E-02_JPRB,.571E-02_JPRB,.508E-02_JPRB,.389E-02_JPRB,.323E-02_JPRB,&
+&.264E-02_JPRB,.208E-02_JPRB,.160E-02_JPRB,.104E-02_JPRB,.706E-03_JPRB,.603E-03_JPRB,.609E-03_JPRB,&
+&.644E-03_JPRB,.765E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 23   2.0
+ZAER (:,23,12) = (/&
+&.912E-03_JPRB,.116E-02_JPRB,.143E-02_JPRB,.178E-02_JPRB,.218E-02_JPRB,.254E-02_JPRB,.291E-02_JPRB,&
+&.320E-02_JPRB,.348E-02_JPRB,.373E-02_JPRB,.393E-02_JPRB,.409E-02_JPRB,.416E-02_JPRB,.434E-02_JPRB,&
+&.454E-02_JPRB,.481E-02_JPRB,.512E-02_JPRB,.542E-02_JPRB,.561E-02_JPRB,.581E-02_JPRB,.605E-02_JPRB,&
+&.525E-02_JPRB,.525E-02_JPRB,.669E-02_JPRB,.848E-02_JPRB,.109E-01_JPRB,.147E-01_JPRB,.162E-01_JPRB,&
+&.148E-01_JPRB,.131E-01_JPRB,.134E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,&
+&.151E-01_JPRB,.145E-01_JPRB,.133E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.136E-01_JPRB,.149E-01_JPRB,&
+&.150E-01_JPRB,.125E-01_JPRB,.102E-01_JPRB,.652E-02_JPRB,.412E-02_JPRB,.351E-02_JPRB,.313E-02_JPRB,&
+&.298E-02_JPRB,.273E-02_JPRB,.248E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,.229E-02_JPRB,.229E-02_JPRB,&
+&.229E-02_JPRB,.201E-02_JPRB,.178E-02_JPRB,.184E-02_JPRB,.174E-02_JPRB,.147E-02_JPRB,.132E-02_JPRB,&
+&.126E-02_JPRB,.113E-02_JPRB,.943E-03_JPRB,.718E-03_JPRB,.594E-03_JPRB,.537E-03_JPRB,.502E-03_JPRB,&
+&.535E-03_JPRB,.669E-03_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 24  -2.0
+ZAER (:,24,12) = (/&
+&.154E-02_JPRB,.182E-02_JPRB,.209E-02_JPRB,.233E-02_JPRB,.272E-02_JPRB,.296E-02_JPRB,.307E-02_JPRB,&
+&.317E-02_JPRB,.323E-02_JPRB,.330E-02_JPRB,.343E-02_JPRB,.358E-02_JPRB,.371E-02_JPRB,.385E-02_JPRB,&
+&.399E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.435E-02_JPRB,.477E-02_JPRB,.502E-02_JPRB,.567E-02_JPRB,&
+&.638E-02_JPRB,.748E-02_JPRB,.893E-02_JPRB,.105E-01_JPRB,.120E-01_JPRB,.137E-01_JPRB,.142E-01_JPRB,&
+&.151E-01_JPRB,.162E-01_JPRB,.174E-01_JPRB,.184E-01_JPRB,.187E-01_JPRB,.189E-01_JPRB,.198E-01_JPRB,&
+&.207E-01_JPRB,.214E-01_JPRB,.225E-01_JPRB,.249E-01_JPRB,.284E-01_JPRB,.328E-01_JPRB,.381E-01_JPRB,&
+&.438E-01_JPRB,.482E-01_JPRB,.504E-01_JPRB,.376E-01_JPRB,.133E-01_JPRB,.613E-02_JPRB,.543E-02_JPRB,&
+&.538E-02_JPRB,.513E-02_JPRB,.420E-02_JPRB,.339E-02_JPRB,.317E-02_JPRB,.275E-02_JPRB,.206E-02_JPRB,&
+&.168E-02_JPRB,.130E-02_JPRB,.139E-02_JPRB,.171E-02_JPRB,.188E-02_JPRB,.189E-02_JPRB,.200E-02_JPRB,&
+&.210E-02_JPRB,.203E-02_JPRB,.201E-02_JPRB,.198E-02_JPRB,.185E-02_JPRB,.171E-02_JPRB,.156E-02_JPRB,&
+&.136E-02_JPRB,.132E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 25  -6.0
+ZAER (:,25,12) = (/&
+&.281E-02_JPRB,.304E-02_JPRB,.351E-02_JPRB,.394E-02_JPRB,.440E-02_JPRB,.460E-02_JPRB,.467E-02_JPRB,&
+&.465E-02_JPRB,.455E-02_JPRB,.445E-02_JPRB,.444E-02_JPRB,.450E-02_JPRB,.463E-02_JPRB,.484E-02_JPRB,&
+&.512E-02_JPRB,.528E-02_JPRB,.526E-02_JPRB,.534E-02_JPRB,.560E-02_JPRB,.595E-02_JPRB,.685E-02_JPRB,&
+&.852E-02_JPRB,.102E-01_JPRB,.119E-01_JPRB,.140E-01_JPRB,.162E-01_JPRB,.186E-01_JPRB,.211E-01_JPRB,&
+&.241E-01_JPRB,.268E-01_JPRB,.294E-01_JPRB,.317E-01_JPRB,.314E-01_JPRB,.313E-01_JPRB,.330E-01_JPRB,&
+&.347E-01_JPRB,.365E-01_JPRB,.393E-01_JPRB,.435E-01_JPRB,.484E-01_JPRB,.536E-01_JPRB,.599E-01_JPRB,&
+&.697E-01_JPRB,.833E-01_JPRB,.966E-01_JPRB,.109E+00_JPRB,.712E-01_JPRB,.147E-01_JPRB,.121E-01_JPRB,&
+&.120E-01_JPRB,.117E-01_JPRB,.104E-01_JPRB,.856E-02_JPRB,.761E-02_JPRB,.675E-02_JPRB,.487E-02_JPRB,&
+&.332E-02_JPRB,.232E-02_JPRB,.200E-02_JPRB,.245E-02_JPRB,.303E-02_JPRB,.354E-02_JPRB,.425E-02_JPRB,&
+&.474E-02_JPRB,.483E-02_JPRB,.499E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.496E-02_JPRB,.450E-02_JPRB,&
+&.374E-02_JPRB,.308E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 26 -10.0
+ZAER (:,26,12) = (/&
+&.579E-02_JPRB,.504E-02_JPRB,.513E-02_JPRB,.591E-02_JPRB,.646E-02_JPRB,.683E-02_JPRB,.720E-02_JPRB,&
+&.733E-02_JPRB,.717E-02_JPRB,.674E-02_JPRB,.636E-02_JPRB,.624E-02_JPRB,.633E-02_JPRB,.696E-02_JPRB,&
+&.835E-02_JPRB,.949E-02_JPRB,.961E-02_JPRB,.868E-02_JPRB,.826E-02_JPRB,.831E-02_JPRB,.889E-02_JPRB,&
+&.103E-01_JPRB,.126E-01_JPRB,.152E-01_JPRB,.188E-01_JPRB,.230E-01_JPRB,.277E-01_JPRB,.327E-01_JPRB,&
+&.388E-01_JPRB,.455E-01_JPRB,.530E-01_JPRB,.637E-01_JPRB,.696E-01_JPRB,.689E-01_JPRB,.720E-01_JPRB,&
+&.697E-01_JPRB,.621E-01_JPRB,.607E-01_JPRB,.635E-01_JPRB,.663E-01_JPRB,.691E-01_JPRB,.739E-01_JPRB,&
+&.806E-01_JPRB,.887E-01_JPRB,.987E-01_JPRB,.103E+00_JPRB,.711E-01_JPRB,.275E-01_JPRB,.226E-01_JPRB,&
+&.208E-01_JPRB,.209E-01_JPRB,.218E-01_JPRB,.208E-01_JPRB,.189E-01_JPRB,.155E-01_JPRB,.128E-01_JPRB,&
+&.101E-01_JPRB,.726E-02_JPRB,.476E-02_JPRB,.425E-02_JPRB,.490E-02_JPRB,.597E-02_JPRB,.710E-02_JPRB,&
+&.804E-02_JPRB,.879E-02_JPRB,.919E-02_JPRB,.948E-02_JPRB,.965E-02_JPRB,.973E-02_JPRB,.950E-02_JPRB,&
+&.877E-02_JPRB,.736E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 27 -14.0
+ZAER (:,27,12) = (/&
+&.109E-01_JPRB,.893E-02_JPRB,.771E-02_JPRB,.809E-02_JPRB,.895E-02_JPRB,.981E-02_JPRB,.108E-01_JPRB,&
+&.118E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,&
+&.124E-01_JPRB,.148E-01_JPRB,.160E-01_JPRB,.150E-01_JPRB,.127E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,&
+&.111E-01_JPRB,.127E-01_JPRB,.153E-01_JPRB,.195E-01_JPRB,.248E-01_JPRB,.309E-01_JPRB,.388E-01_JPRB,&
+&.485E-01_JPRB,.591E-01_JPRB,.712E-01_JPRB,.853E-01_JPRB,.970E-01_JPRB,.104E+00_JPRB,.113E+00_JPRB,&
+&.123E+00_JPRB,.102E+00_JPRB,.756E-01_JPRB,.742E-01_JPRB,.769E-01_JPRB,.742E-01_JPRB,.745E-01_JPRB,&
+&.797E-01_JPRB,.819E-01_JPRB,.812E-01_JPRB,.738E-01_JPRB,.555E-01_JPRB,.398E-01_JPRB,.341E-01_JPRB,&
+&.313E-01_JPRB,.318E-01_JPRB,.346E-01_JPRB,.353E-01_JPRB,.354E-01_JPRB,.333E-01_JPRB,.301E-01_JPRB,&
+&.247E-01_JPRB,.173E-01_JPRB,.109E-01_JPRB,.688E-02_JPRB,.657E-02_JPRB,.740E-02_JPRB,.837E-02_JPRB,&
+&.943E-02_JPRB,.108E-01_JPRB,.119E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,&
+&.141E-01_JPRB,.128E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 28 -18.0
+ZAER (:,28,12) = (/&
+&.154E-01_JPRB,.134E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,.115E-01_JPRB,.131E-01_JPRB,&
+&.145E-01_JPRB,.160E-01_JPRB,.173E-01_JPRB,.177E-01_JPRB,.166E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,&
+&.170E-01_JPRB,.225E-01_JPRB,.262E-01_JPRB,.242E-01_JPRB,.214E-01_JPRB,.175E-01_JPRB,.142E-01_JPRB,&
+&.122E-01_JPRB,.124E-01_JPRB,.143E-01_JPRB,.180E-01_JPRB,.237E-01_JPRB,.306E-01_JPRB,.376E-01_JPRB,&
+&.454E-01_JPRB,.521E-01_JPRB,.593E-01_JPRB,.703E-01_JPRB,.834E-01_JPRB,.876E-01_JPRB,.905E-01_JPRB,&
+&.947E-01_JPRB,.816E-01_JPRB,.718E-01_JPRB,.737E-01_JPRB,.775E-01_JPRB,.769E-01_JPRB,.762E-01_JPRB,&
+&.772E-01_JPRB,.757E-01_JPRB,.781E-01_JPRB,.742E-01_JPRB,.616E-01_JPRB,.489E-01_JPRB,.436E-01_JPRB,&
+&.421E-01_JPRB,.425E-01_JPRB,.437E-01_JPRB,.438E-01_JPRB,.456E-01_JPRB,.482E-01_JPRB,.482E-01_JPRB,&
+&.456E-01_JPRB,.352E-01_JPRB,.256E-01_JPRB,.170E-01_JPRB,.125E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,&
+&.113E-01_JPRB,.130E-01_JPRB,.149E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,&
+&.176E-01_JPRB,.169E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 29 -22.0
+ZAER (:,29,12) = (/&
+&.182E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,.123E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.123E-01_JPRB,&
+&.136E-01_JPRB,.149E-01_JPRB,.162E-01_JPRB,.183E-01_JPRB,.205E-01_JPRB,.198E-01_JPRB,.209E-01_JPRB,&
+&.253E-01_JPRB,.311E-01_JPRB,.350E-01_JPRB,.287E-01_JPRB,.255E-01_JPRB,.237E-01_JPRB,.181E-01_JPRB,&
+&.130E-01_JPRB,.121E-01_JPRB,.131E-01_JPRB,.163E-01_JPRB,.208E-01_JPRB,.245E-01_JPRB,.259E-01_JPRB,&
+&.303E-01_JPRB,.352E-01_JPRB,.395E-01_JPRB,.477E-01_JPRB,.598E-01_JPRB,.724E-01_JPRB,.745E-01_JPRB,&
+&.728E-01_JPRB,.673E-01_JPRB,.698E-01_JPRB,.729E-01_JPRB,.728E-01_JPRB,.713E-01_JPRB,.747E-01_JPRB,&
+&.747E-01_JPRB,.676E-01_JPRB,.669E-01_JPRB,.643E-01_JPRB,.595E-01_JPRB,.545E-01_JPRB,.509E-01_JPRB,&
+&.481E-01_JPRB,.475E-01_JPRB,.465E-01_JPRB,.449E-01_JPRB,.442E-01_JPRB,.468E-01_JPRB,.496E-01_JPRB,&
+&.519E-01_JPRB,.522E-01_JPRB,.452E-01_JPRB,.371E-01_JPRB,.301E-01_JPRB,.229E-01_JPRB,.182E-01_JPRB,&
+&.172E-01_JPRB,.177E-01_JPRB,.186E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.192E-01_JPRB,.196E-01_JPRB,&
+&.200E-01_JPRB,.195E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 30 -26.0
+ZAER (:,30,12) = (/&
+&.202E-01_JPRB,.190E-01_JPRB,.175E-01_JPRB,.151E-01_JPRB,.130E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,&
+&.128E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.151E-01_JPRB,.207E-01_JPRB,.256E-01_JPRB,.252E-01_JPRB,&
+&.272E-01_JPRB,.347E-01_JPRB,.480E-01_JPRB,.379E-01_JPRB,.234E-01_JPRB,.183E-01_JPRB,.154E-01_JPRB,&
+&.136E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.148E-01_JPRB,.169E-01_JPRB,.187E-01_JPRB,.179E-01_JPRB,&
+&.195E-01_JPRB,.246E-01_JPRB,.268E-01_JPRB,.303E-01_JPRB,.411E-01_JPRB,.610E-01_JPRB,.769E-01_JPRB,&
+&.712E-01_JPRB,.734E-01_JPRB,.726E-01_JPRB,.819E-01_JPRB,.897E-01_JPRB,.747E-01_JPRB,.611E-01_JPRB,&
+&.539E-01_JPRB,.563E-01_JPRB,.584E-01_JPRB,.575E-01_JPRB,.529E-01_JPRB,.541E-01_JPRB,.590E-01_JPRB,&
+&.524E-01_JPRB,.472E-01_JPRB,.442E-01_JPRB,.429E-01_JPRB,.394E-01_JPRB,.385E-01_JPRB,.424E-01_JPRB,&
+&.475E-01_JPRB,.586E-01_JPRB,.658E-01_JPRB,.597E-01_JPRB,.514E-01_JPRB,.411E-01_JPRB,.324E-01_JPRB,&
+&.283E-01_JPRB,.258E-01_JPRB,.243E-01_JPRB,.234E-01_JPRB,.230E-01_JPRB,.230E-01_JPRB,.227E-01_JPRB,&
+&.224E-01_JPRB,.218E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 31 -30.0
+ZAER (:,31,12) = (/&
+&.215E-01_JPRB,.202E-01_JPRB,.188E-01_JPRB,.170E-01_JPRB,.149E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.158E-01_JPRB,.324E-01_JPRB,.374E-01_JPRB,&
+&.351E-01_JPRB,.494E-01_JPRB,.687E-01_JPRB,.518E-01_JPRB,.308E-01_JPRB,.212E-01_JPRB,.172E-01_JPRB,&
+&.157E-01_JPRB,.141E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.146E-01_JPRB,.141E-01_JPRB,&
+&.149E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,.169E-01_JPRB,.156E-01_JPRB,.220E-01_JPRB,.439E-01_JPRB,&
+&.500E-01_JPRB,.677E-01_JPRB,.840E-01_JPRB,.104E+00_JPRB,.116E+00_JPRB,.917E-01_JPRB,.599E-01_JPRB,&
+&.451E-01_JPRB,.473E-01_JPRB,.471E-01_JPRB,.478E-01_JPRB,.514E-01_JPRB,.558E-01_JPRB,.516E-01_JPRB,&
+&.505E-01_JPRB,.467E-01_JPRB,.393E-01_JPRB,.359E-01_JPRB,.316E-01_JPRB,.290E-01_JPRB,.322E-01_JPRB,&
+&.440E-01_JPRB,.688E-01_JPRB,.839E-01_JPRB,.827E-01_JPRB,.726E-01_JPRB,.535E-01_JPRB,.422E-01_JPRB,&
+&.385E-01_JPRB,.348E-01_JPRB,.312E-01_JPRB,.295E-01_JPRB,.280E-01_JPRB,.266E-01_JPRB,.249E-01_JPRB,&
+&.239E-01_JPRB,.228E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 32 -34.0
+ZAER (:,32,12) = (/&
+&.192E-01_JPRB,.185E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.151E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,&
+&.123E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,.133E-01_JPRB,.297E-01_JPRB,.379E-01_JPRB,&
+&.450E-01_JPRB,.700E-01_JPRB,.697E-01_JPRB,.526E-01_JPRB,.320E-01_JPRB,.222E-01_JPRB,.167E-01_JPRB,&
+&.149E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,.138E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,&
+&.129E-01_JPRB,.140E-01_JPRB,.129E-01_JPRB,.106E-01_JPRB,.924E-02_JPRB,.928E-02_JPRB,.154E-01_JPRB,&
+&.252E-01_JPRB,.518E-01_JPRB,.799E-01_JPRB,.866E-01_JPRB,.101E+00_JPRB,.892E-01_JPRB,.542E-01_JPRB,&
+&.373E-01_JPRB,.377E-01_JPRB,.422E-01_JPRB,.444E-01_JPRB,.494E-01_JPRB,.522E-01_JPRB,.489E-01_JPRB,&
+&.449E-01_JPRB,.432E-01_JPRB,.375E-01_JPRB,.329E-01_JPRB,.286E-01_JPRB,.288E-01_JPRB,.310E-01_JPRB,&
+&.451E-01_JPRB,.721E-01_JPRB,.936E-01_JPRB,.116E+00_JPRB,.900E-01_JPRB,.604E-01_JPRB,.450E-01_JPRB,&
+&.403E-01_JPRB,.370E-01_JPRB,.329E-01_JPRB,.300E-01_JPRB,.265E-01_JPRB,.241E-01_JPRB,.223E-01_JPRB,&
+&.209E-01_JPRB,.194E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 33 -38.0
+ZAER (:,33,12) = (/&
+&.153E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.145E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,&
+&.120E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,.205E-01_JPRB,.216E-01_JPRB,&
+&.264E-01_JPRB,.364E-01_JPRB,.400E-01_JPRB,.362E-01_JPRB,.252E-01_JPRB,.190E-01_JPRB,.154E-01_JPRB,&
+&.135E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,&
+&.122E-01_JPRB,.123E-01_JPRB,.111E-01_JPRB,.959E-02_JPRB,.870E-02_JPRB,.820E-02_JPRB,.912E-02_JPRB,&
+&.133E-01_JPRB,.222E-01_JPRB,.307E-01_JPRB,.385E-01_JPRB,.525E-01_JPRB,.549E-01_JPRB,.459E-01_JPRB,&
+&.387E-01_JPRB,.334E-01_JPRB,.391E-01_JPRB,.411E-01_JPRB,.623E-01_JPRB,.655E-01_JPRB,.546E-01_JPRB,&
+&.492E-01_JPRB,.396E-01_JPRB,.365E-01_JPRB,.385E-01_JPRB,.374E-01_JPRB,.351E-01_JPRB,.403E-01_JPRB,&
+&.532E-01_JPRB,.945E-01_JPRB,.124E+00_JPRB,.132E+00_JPRB,.857E-01_JPRB,.552E-01_JPRB,.431E-01_JPRB,&
+&.368E-01_JPRB,.327E-01_JPRB,.292E-01_JPRB,.259E-01_JPRB,.227E-01_JPRB,.202E-01_JPRB,.187E-01_JPRB,&
+&.172E-01_JPRB,.157E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 34 -42.0
+ZAER (:,34,12) = (/&
+&.122E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.995E-02_JPRB,.106E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.183E-01_JPRB,.262E-01_JPRB,.246E-01_JPRB,.201E-01_JPRB,.161E-01_JPRB,.135E-01_JPRB,&
+&.120E-01_JPRB,.103E-01_JPRB,.951E-02_JPRB,.967E-02_JPRB,.979E-02_JPRB,.100E-01_JPRB,.103E-01_JPRB,&
+&.108E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.892E-02_JPRB,.808E-02_JPRB,.758E-02_JPRB,.743E-02_JPRB,&
+&.799E-02_JPRB,.101E-01_JPRB,.125E-01_JPRB,.161E-01_JPRB,.228E-01_JPRB,.297E-01_JPRB,.291E-01_JPRB,&
+&.295E-01_JPRB,.300E-01_JPRB,.310E-01_JPRB,.325E-01_JPRB,.847E-01_JPRB,.995E-01_JPRB,.551E-01_JPRB,&
+&.511E-01_JPRB,.453E-01_JPRB,.392E-01_JPRB,.407E-01_JPRB,.455E-01_JPRB,.480E-01_JPRB,.715E-01_JPRB,&
+&.109E+00_JPRB,.132E+00_JPRB,.148E+00_JPRB,.112E+00_JPRB,.686E-01_JPRB,.485E-01_JPRB,.378E-01_JPRB,&
+&.323E-01_JPRB,.283E-01_JPRB,.249E-01_JPRB,.211E-01_JPRB,.180E-01_JPRB,.165E-01_JPRB,.154E-01_JPRB,&
+&.143E-01_JPRB,.131E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 35 -46.0
+ZAER (:,35,12) = (/&
+&.102E-01_JPRB,.985E-02_JPRB,.978E-02_JPRB,.997E-02_JPRB,.101E-01_JPRB,.991E-02_JPRB,.965E-02_JPRB,&
+&.927E-02_JPRB,.900E-02_JPRB,.877E-02_JPRB,.851E-02_JPRB,.860E-02_JPRB,.948E-02_JPRB,.101E-01_JPRB,&
+&.998E-02_JPRB,.110E-01_JPRB,.161E-01_JPRB,.169E-01_JPRB,.138E-01_JPRB,.123E-01_JPRB,.114E-01_JPRB,&
+&.108E-01_JPRB,.982E-02_JPRB,.905E-02_JPRB,.861E-02_JPRB,.849E-02_JPRB,.878E-02_JPRB,.885E-02_JPRB,&
+&.885E-02_JPRB,.887E-02_JPRB,.821E-02_JPRB,.753E-02_JPRB,.707E-02_JPRB,.673E-02_JPRB,.655E-02_JPRB,&
+&.644E-02_JPRB,.700E-02_JPRB,.782E-02_JPRB,.892E-02_JPRB,.105E-01_JPRB,.151E-01_JPRB,.199E-01_JPRB,&
+&.247E-01_JPRB,.269E-01_JPRB,.268E-01_JPRB,.346E-01_JPRB,.894E-01_JPRB,.885E-01_JPRB,.555E-01_JPRB,&
+&.490E-01_JPRB,.453E-01_JPRB,.438E-01_JPRB,.486E-01_JPRB,.523E-01_JPRB,.524E-01_JPRB,.564E-01_JPRB,&
+&.617E-01_JPRB,.104E+00_JPRB,.121E+00_JPRB,.762E-01_JPRB,.529E-01_JPRB,.409E-01_JPRB,.312E-01_JPRB,&
+&.229E-01_JPRB,.172E-01_JPRB,.144E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,&
+&.126E-01_JPRB,.114E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 36 -50.0
+ZAER (:,36,12) = (/&
+&.930E-02_JPRB,.923E-02_JPRB,.943E-02_JPRB,.957E-02_JPRB,.959E-02_JPRB,.922E-02_JPRB,.875E-02_JPRB,&
+&.815E-02_JPRB,.784E-02_JPRB,.763E-02_JPRB,.750E-02_JPRB,.748E-02_JPRB,.773E-02_JPRB,.804E-02_JPRB,&
+&.807E-02_JPRB,.850E-02_JPRB,.107E-01_JPRB,.121E-01_JPRB,.107E-01_JPRB,.985E-02_JPRB,.948E-02_JPRB,&
+&.938E-02_JPRB,.915E-02_JPRB,.885E-02_JPRB,.826E-02_JPRB,.801E-02_JPRB,.804E-02_JPRB,.794E-02_JPRB,&
+&.783E-02_JPRB,.761E-02_JPRB,.732E-02_JPRB,.687E-02_JPRB,.642E-02_JPRB,.618E-02_JPRB,.604E-02_JPRB,&
+&.591E-02_JPRB,.613E-02_JPRB,.625E-02_JPRB,.660E-02_JPRB,.703E-02_JPRB,.789E-02_JPRB,.105E-01_JPRB,&
+&.196E-01_JPRB,.264E-01_JPRB,.281E-01_JPRB,.440E-01_JPRB,.665E-01_JPRB,.575E-01_JPRB,.460E-01_JPRB,&
+&.414E-01_JPRB,.370E-01_JPRB,.357E-01_JPRB,.390E-01_JPRB,.445E-01_JPRB,.404E-01_JPRB,.335E-01_JPRB,&
+&.340E-01_JPRB,.399E-01_JPRB,.448E-01_JPRB,.386E-01_JPRB,.285E-01_JPRB,.216E-01_JPRB,.180E-01_JPRB,&
+&.144E-01_JPRB,.122E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.111E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.101E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 37 -54.0
+ZAER (:,37,12) = (/&
+&.896E-02_JPRB,.914E-02_JPRB,.945E-02_JPRB,.971E-02_JPRB,.969E-02_JPRB,.921E-02_JPRB,.853E-02_JPRB,&
+&.794E-02_JPRB,.752E-02_JPRB,.724E-02_JPRB,.707E-02_JPRB,.708E-02_JPRB,.724E-02_JPRB,.720E-02_JPRB,&
+&.720E-02_JPRB,.755E-02_JPRB,.827E-02_JPRB,.935E-02_JPRB,.917E-02_JPRB,.859E-02_JPRB,.811E-02_JPRB,&
+&.803E-02_JPRB,.814E-02_JPRB,.804E-02_JPRB,.772E-02_JPRB,.734E-02_JPRB,.698E-02_JPRB,.670E-02_JPRB,&
+&.662E-02_JPRB,.659E-02_JPRB,.645E-02_JPRB,.620E-02_JPRB,.589E-02_JPRB,.567E-02_JPRB,.549E-02_JPRB,&
+&.529E-02_JPRB,.524E-02_JPRB,.523E-02_JPRB,.529E-02_JPRB,.535E-02_JPRB,.551E-02_JPRB,.649E-02_JPRB,&
+&.137E-01_JPRB,.260E-01_JPRB,.372E-01_JPRB,.442E-01_JPRB,.463E-01_JPRB,.438E-01_JPRB,.379E-01_JPRB,&
+&.351E-01_JPRB,.335E-01_JPRB,.301E-01_JPRB,.277E-01_JPRB,.272E-01_JPRB,.276E-01_JPRB,.271E-01_JPRB,&
+&.276E-01_JPRB,.268E-01_JPRB,.261E-01_JPRB,.243E-01_JPRB,.194E-01_JPRB,.162E-01_JPRB,.136E-01_JPRB,&
+&.130E-01_JPRB,.122E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,&
+&.105E-01_JPRB,.920E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 38 -58.0
+ZAER (:,38,12) = (/&
+&.921E-02_JPRB,.936E-02_JPRB,.966E-02_JPRB,.100E-01_JPRB,.102E-01_JPRB,.995E-02_JPRB,.911E-02_JPRB,&
+&.845E-02_JPRB,.786E-02_JPRB,.750E-02_JPRB,.755E-02_JPRB,.761E-02_JPRB,.746E-02_JPRB,.723E-02_JPRB,&
+&.721E-02_JPRB,.727E-02_JPRB,.734E-02_JPRB,.769E-02_JPRB,.804E-02_JPRB,.807E-02_JPRB,.774E-02_JPRB,&
+&.765E-02_JPRB,.763E-02_JPRB,.759E-02_JPRB,.745E-02_JPRB,.714E-02_JPRB,.656E-02_JPRB,.622E-02_JPRB,&
+&.601E-02_JPRB,.585E-02_JPRB,.580E-02_JPRB,.572E-02_JPRB,.553E-02_JPRB,.535E-02_JPRB,.524E-02_JPRB,&
+&.513E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.516E-02_JPRB,.521E-02_JPRB,.523E-02_JPRB,.536E-02_JPRB,&
+&.702E-02_JPRB,.106E-01_JPRB,.164E-01_JPRB,.187E-01_JPRB,.212E-01_JPRB,.275E-01_JPRB,.296E-01_JPRB,&
+&.312E-01_JPRB,.303E-01_JPRB,.277E-01_JPRB,.254E-01_JPRB,.240E-01_JPRB,.240E-01_JPRB,.242E-01_JPRB,&
+&.237E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,.193E-01_JPRB,.179E-01_JPRB,.150E-01_JPRB,.131E-01_JPRB,&
+&.133E-01_JPRB,.132E-01_JPRB,.119E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.107E-01_JPRB,.947E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 39 -62.0
+ZAER (:,39,12) = (/&
+&.948E-02_JPRB,.945E-02_JPRB,.966E-02_JPRB,.102E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.999E-02_JPRB,&
+&.960E-02_JPRB,.908E-02_JPRB,.822E-02_JPRB,.781E-02_JPRB,.750E-02_JPRB,.717E-02_JPRB,.704E-02_JPRB,&
+&.712E-02_JPRB,.720E-02_JPRB,.741E-02_JPRB,.759E-02_JPRB,.820E-02_JPRB,.838E-02_JPRB,.788E-02_JPRB,&
+&.770E-02_JPRB,.750E-02_JPRB,.740E-02_JPRB,.734E-02_JPRB,.714E-02_JPRB,.664E-02_JPRB,.629E-02_JPRB,&
+&.587E-02_JPRB,.564E-02_JPRB,.561E-02_JPRB,.562E-02_JPRB,.551E-02_JPRB,.524E-02_JPRB,.514E-02_JPRB,&
+&.513E-02_JPRB,.508E-02_JPRB,.505E-02_JPRB,.507E-02_JPRB,.515E-02_JPRB,.525E-02_JPRB,.525E-02_JPRB,&
+&.537E-02_JPRB,.602E-02_JPRB,.771E-02_JPRB,.925E-02_JPRB,.106E-01_JPRB,.134E-01_JPRB,.175E-01_JPRB,&
+&.218E-01_JPRB,.238E-01_JPRB,.240E-01_JPRB,.233E-01_JPRB,.222E-01_JPRB,.211E-01_JPRB,.196E-01_JPRB,&
+&.184E-01_JPRB,.181E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.161E-01_JPRB,.142E-01_JPRB,&
+&.135E-01_JPRB,.128E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,&
+&.118E-01_JPRB,.105E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 40 -66.0
+ZAER (:,40,12) = (/&
+&.105E-01_JPRB,.998E-02_JPRB,.986E-02_JPRB,.996E-02_JPRB,.102E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.100E-01_JPRB,.889E-02_JPRB,.804E-02_JPRB,.764E-02_JPRB,.721E-02_JPRB,.697E-02_JPRB,&
+&.712E-02_JPRB,.737E-02_JPRB,.761E-02_JPRB,.788E-02_JPRB,.820E-02_JPRB,.847E-02_JPRB,.844E-02_JPRB,&
+&.797E-02_JPRB,.745E-02_JPRB,.729E-02_JPRB,.728E-02_JPRB,.723E-02_JPRB,.689E-02_JPRB,.671E-02_JPRB,&
+&.627E-02_JPRB,.601E-02_JPRB,.593E-02_JPRB,.579E-02_JPRB,.558E-02_JPRB,.533E-02_JPRB,.519E-02_JPRB,&
+&.515E-02_JPRB,.507E-02_JPRB,.502E-02_JPRB,.502E-02_JPRB,.515E-02_JPRB,.528E-02_JPRB,.517E-02_JPRB,&
+&.528E-02_JPRB,.561E-02_JPRB,.602E-02_JPRB,.685E-02_JPRB,.789E-02_JPRB,.897E-02_JPRB,.101E-01_JPRB,&
+&.115E-01_JPRB,.136E-01_JPRB,.160E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,.154E-01_JPRB,.141E-01_JPRB,&
+&.138E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,.124E-01_JPRB,&
+&.116E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.122E-01_JPRB,&
+&.122E-01_JPRB,.115E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 41 -70.0
+ZAER (:,41,12) = (/&
+&.113E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.988E-02_JPRB,.880E-02_JPRB,.799E-02_JPRB,.759E-02_JPRB,.740E-02_JPRB,.721E-02_JPRB,&
+&.721E-02_JPRB,.736E-02_JPRB,.745E-02_JPRB,.754E-02_JPRB,.764E-02_JPRB,.773E-02_JPRB,.768E-02_JPRB,&
+&.752E-02_JPRB,.739E-02_JPRB,.728E-02_JPRB,.715E-02_JPRB,.704E-02_JPRB,.707E-02_JPRB,.712E-02_JPRB,&
+&.707E-02_JPRB,.706E-02_JPRB,.688E-02_JPRB,.620E-02_JPRB,.568E-02_JPRB,.549E-02_JPRB,.543E-02_JPRB,&
+&.540E-02_JPRB,.541E-02_JPRB,.536E-02_JPRB,.524E-02_JPRB,.521E-02_JPRB,.531E-02_JPRB,.537E-02_JPRB,&
+&.544E-02_JPRB,.566E-02_JPRB,.593E-02_JPRB,.621E-02_JPRB,.654E-02_JPRB,.696E-02_JPRB,.739E-02_JPRB,&
+&.756E-02_JPRB,.794E-02_JPRB,.884E-02_JPRB,.105E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.124E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,&
+&.110E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,&
+&.116E-01_JPRB,.117E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 42 -74.0
+ZAER (:,42,12) = (/&
+&.112E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.994E-02_JPRB,.969E-02_JPRB,&
+&.927E-02_JPRB,.886E-02_JPRB,.835E-02_JPRB,.795E-02_JPRB,.772E-02_JPRB,.757E-02_JPRB,.751E-02_JPRB,&
+&.747E-02_JPRB,.745E-02_JPRB,.751E-02_JPRB,.750E-02_JPRB,.749E-02_JPRB,.760E-02_JPRB,.773E-02_JPRB,&
+&.780E-02_JPRB,.758E-02_JPRB,.716E-02_JPRB,.689E-02_JPRB,.693E-02_JPRB,.717E-02_JPRB,.735E-02_JPRB,&
+&.741E-02_JPRB,.744E-02_JPRB,.731E-02_JPRB,.687E-02_JPRB,.622E-02_JPRB,.585E-02_JPRB,.574E-02_JPRB,&
+&.571E-02_JPRB,.573E-02_JPRB,.562E-02_JPRB,.548E-02_JPRB,.537E-02_JPRB,.534E-02_JPRB,.534E-02_JPRB,&
+&.539E-02_JPRB,.563E-02_JPRB,.585E-02_JPRB,.595E-02_JPRB,.610E-02_JPRB,.622E-02_JPRB,.633E-02_JPRB,&
+&.644E-02_JPRB,.667E-02_JPRB,.720E-02_JPRB,.787E-02_JPRB,.855E-02_JPRB,.938E-02_JPRB,.106E-01_JPRB,&
+&.114E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,&
+&.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 43 -78.0
+ZAER (:,43,12) = (/&
+&.983E-02_JPRB,.989E-02_JPRB,.974E-02_JPRB,.947E-02_JPRB,.926E-02_JPRB,.903E-02_JPRB,.874E-02_JPRB,&
+&.843E-02_JPRB,.831E-02_JPRB,.820E-02_JPRB,.810E-02_JPRB,.804E-02_JPRB,.798E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.800E-02_JPRB,.801E-02_JPRB,.793E-02_JPRB,.786E-02_JPRB,.783E-02_JPRB,.774E-02_JPRB,&
+&.759E-02_JPRB,.747E-02_JPRB,.724E-02_JPRB,.704E-02_JPRB,.699E-02_JPRB,.698E-02_JPRB,.702E-02_JPRB,&
+&.711E-02_JPRB,.720E-02_JPRB,.714E-02_JPRB,.691E-02_JPRB,.647E-02_JPRB,.610E-02_JPRB,.595E-02_JPRB,&
+&.589E-02_JPRB,.582E-02_JPRB,.569E-02_JPRB,.568E-02_JPRB,.571E-02_JPRB,.574E-02_JPRB,.572E-02_JPRB,&
+&.570E-02_JPRB,.577E-02_JPRB,.591E-02_JPRB,.596E-02_JPRB,.594E-02_JPRB,.582E-02_JPRB,.571E-02_JPRB,&
+&.569E-02_JPRB,.594E-02_JPRB,.643E-02_JPRB,.687E-02_JPRB,.727E-02_JPRB,.775E-02_JPRB,.867E-02_JPRB,&
+&.961E-02_JPRB,.988E-02_JPRB,.994E-02_JPRB,.103E-01_JPRB,.109E-01_JPRB,.111E-01_JPRB,.108E-01_JPRB,&
+&.104E-01_JPRB,.991E-02_JPRB,.942E-02_JPRB,.925E-02_JPRB,.932E-02_JPRB,.947E-02_JPRB,.961E-02_JPRB,&
+&.973E-02_JPRB,.978E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 44 -82.0
+ZAER (:,44,12) = (/&
+&.855E-02_JPRB,.853E-02_JPRB,.843E-02_JPRB,.831E-02_JPRB,.828E-02_JPRB,.824E-02_JPRB,.818E-02_JPRB,&
+&.813E-02_JPRB,.808E-02_JPRB,.802E-02_JPRB,.799E-02_JPRB,.798E-02_JPRB,.797E-02_JPRB,.791E-02_JPRB,&
+&.786E-02_JPRB,.780E-02_JPRB,.770E-02_JPRB,.757E-02_JPRB,.742E-02_JPRB,.726E-02_JPRB,.713E-02_JPRB,&
+&.708E-02_JPRB,.702E-02_JPRB,.693E-02_JPRB,.687E-02_JPRB,.682E-02_JPRB,.676E-02_JPRB,.677E-02_JPRB,&
+&.683E-02_JPRB,.687E-02_JPRB,.686E-02_JPRB,.676E-02_JPRB,.656E-02_JPRB,.631E-02_JPRB,.615E-02_JPRB,&
+&.604E-02_JPRB,.605E-02_JPRB,.610E-02_JPRB,.612E-02_JPRB,.618E-02_JPRB,.621E-02_JPRB,.620E-02_JPRB,&
+&.624E-02_JPRB,.629E-02_JPRB,.628E-02_JPRB,.632E-02_JPRB,.637E-02_JPRB,.639E-02_JPRB,.642E-02_JPRB,&
+&.651E-02_JPRB,.664E-02_JPRB,.686E-02_JPRB,.715E-02_JPRB,.751E-02_JPRB,.790E-02_JPRB,.836E-02_JPRB,&
+&.882E-02_JPRB,.916E-02_JPRB,.945E-02_JPRB,.966E-02_JPRB,.970E-02_JPRB,.967E-02_JPRB,.955E-02_JPRB,&
+&.928E-02_JPRB,.899E-02_JPRB,.875E-02_JPRB,.856E-02_JPRB,.848E-02_JPRB,.844E-02_JPRB,.842E-02_JPRB,&
+&.844E-02_JPRB,.848E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 45 -86.0
+ZAER (:,45,12) = (/&
+&.774E-02_JPRB,.768E-02_JPRB,.765E-02_JPRB,.763E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.761E-02_JPRB,&
+&.756E-02_JPRB,.750E-02_JPRB,.743E-02_JPRB,.738E-02_JPRB,.733E-02_JPRB,.726E-02_JPRB,.720E-02_JPRB,&
+&.712E-02_JPRB,.704E-02_JPRB,.699E-02_JPRB,.698E-02_JPRB,.693E-02_JPRB,.688E-02_JPRB,.689E-02_JPRB,&
+&.692E-02_JPRB,.695E-02_JPRB,.697E-02_JPRB,.696E-02_JPRB,.692E-02_JPRB,.690E-02_JPRB,.692E-02_JPRB,&
+&.691E-02_JPRB,.689E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.683E-02_JPRB,.680E-02_JPRB,.676E-02_JPRB,&
+&.675E-02_JPRB,.680E-02_JPRB,.686E-02_JPRB,.690E-02_JPRB,.693E-02_JPRB,.697E-02_JPRB,.701E-02_JPRB,&
+&.705E-02_JPRB,.709E-02_JPRB,.716E-02_JPRB,.721E-02_JPRB,.727E-02_JPRB,.735E-02_JPRB,.745E-02_JPRB,&
+&.754E-02_JPRB,.764E-02_JPRB,.771E-02_JPRB,.779E-02_JPRB,.787E-02_JPRB,.795E-02_JPRB,.797E-02_JPRB,&
+&.798E-02_JPRB,.798E-02_JPRB,.797E-02_JPRB,.798E-02_JPRB,.799E-02_JPRB,.798E-02_JPRB,.795E-02_JPRB,&
+&.793E-02_JPRB,.791E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.792E-02_JPRB,.795E-02_JPRB,&
+&.791E-02_JPRB,.783E-02_JPRB/)
+!-- Total Soil Dust Aerosol  month: 12 --- lat: 46 -90.0
+ZAER (:,46,12) = (/&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=12  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSD(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SOIL DUST AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESD_12
Index: LMDZ5/branches/testing/libf/phymar/suecaess.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess.F90	(revision 2160)
@@ -0,0 +1,61 @@
+SUBROUTINE SUECAESS
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+      call SUECAESS_01
+      call SUECAESS_02
+      call SUECAESS_03
+      call SUECAESS_04
+      call SUECAESS_05
+      call SUECAESS_06
+      call SUECAESS_07
+      call SUECAESS_08
+      call SUECAESS_09
+      call SUECAESS_10
+      call SUECAESS_11
+      call SUECAESS_12
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS
Index: LMDZ5/branches/testing/libf/phymar/suecaess_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_01.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_01
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      January
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,1:1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  1 --- lat:  1  90.0
+ZAER (:, 1, 1) = (/&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.103E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  2  86.0
+ZAER (:, 2, 1) = (/&
+&.330E-03_JPRB,.330E-03_JPRB,.376E-03_JPRB,.376E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.496E-03_JPRB,&
+&.496E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,&
+&.248E-03_JPRB,.248E-03_JPRB,.191E-03_JPRB,.191E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.108E-03_JPRB,&
+&.108E-03_JPRB,.723E-04_JPRB,.723E-04_JPRB,.660E-04_JPRB,.660E-04_JPRB,.687E-04_JPRB,.687E-04_JPRB,&
+&.753E-04_JPRB,.753E-04_JPRB,.817E-04_JPRB,.817E-04_JPRB,.816E-04_JPRB,.816E-04_JPRB,.774E-04_JPRB,&
+&.774E-04_JPRB,.771E-04_JPRB,.771E-04_JPRB,.869E-04_JPRB,.869E-04_JPRB,.100E-03_JPRB,.100E-03_JPRB,&
+&.111E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.107E-03_JPRB,&
+&.107E-03_JPRB,.881E-04_JPRB,.881E-04_JPRB,.787E-04_JPRB,.787E-04_JPRB,.722E-04_JPRB,.722E-04_JPRB,&
+&.718E-04_JPRB,.718E-04_JPRB,.758E-04_JPRB,.758E-04_JPRB,.855E-04_JPRB,.855E-04_JPRB,.997E-04_JPRB,&
+&.997E-04_JPRB,.119E-03_JPRB,.119E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,.195E-03_JPRB,.195E-03_JPRB,&
+&.276E-03_JPRB,.276E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  3  82.0
+ZAER (:, 3, 1) = (/&
+&.330E-03_JPRB,.330E-03_JPRB,.376E-03_JPRB,.376E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.496E-03_JPRB,&
+&.496E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,&
+&.248E-03_JPRB,.248E-03_JPRB,.191E-03_JPRB,.191E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.108E-03_JPRB,&
+&.108E-03_JPRB,.723E-04_JPRB,.723E-04_JPRB,.660E-04_JPRB,.660E-04_JPRB,.687E-04_JPRB,.687E-04_JPRB,&
+&.753E-04_JPRB,.753E-04_JPRB,.817E-04_JPRB,.817E-04_JPRB,.816E-04_JPRB,.816E-04_JPRB,.774E-04_JPRB,&
+&.774E-04_JPRB,.771E-04_JPRB,.771E-04_JPRB,.869E-04_JPRB,.869E-04_JPRB,.100E-03_JPRB,.100E-03_JPRB,&
+&.111E-03_JPRB,.111E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.107E-03_JPRB,&
+&.107E-03_JPRB,.881E-04_JPRB,.881E-04_JPRB,.787E-04_JPRB,.787E-04_JPRB,.722E-04_JPRB,.722E-04_JPRB,&
+&.718E-04_JPRB,.718E-04_JPRB,.758E-04_JPRB,.758E-04_JPRB,.855E-04_JPRB,.855E-04_JPRB,.997E-04_JPRB,&
+&.997E-04_JPRB,.119E-03_JPRB,.119E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,.195E-03_JPRB,.195E-03_JPRB,&
+&.276E-03_JPRB,.276E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  4  78.0
+ZAER (:, 4, 1) = (/&
+&.673E-03_JPRB,.673E-03_JPRB,.707E-03_JPRB,.707E-03_JPRB,.757E-03_JPRB,.757E-03_JPRB,.933E-03_JPRB,&
+&.933E-03_JPRB,.872E-03_JPRB,.872E-03_JPRB,.630E-03_JPRB,.630E-03_JPRB,.445E-03_JPRB,.445E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB,.360E-03_JPRB,.360E-03_JPRB,.387E-03_JPRB,.387E-03_JPRB,.420E-03_JPRB,&
+&.420E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.139E-03_JPRB,.139E-03_JPRB,&
+&.163E-03_JPRB,.163E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,.180E-03_JPRB,.180E-03_JPRB,.144E-03_JPRB,&
+&.144E-03_JPRB,.992E-04_JPRB,.992E-04_JPRB,.138E-03_JPRB,.138E-03_JPRB,.209E-03_JPRB,.209E-03_JPRB,&
+&.274E-03_JPRB,.274E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.267E-03_JPRB,.267E-03_JPRB,.327E-03_JPRB,&
+&.327E-03_JPRB,.270E-03_JPRB,.270E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,.106E-03_JPRB,.106E-03_JPRB,&
+&.809E-04_JPRB,.809E-04_JPRB,.105E-03_JPRB,.105E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.123E-03_JPRB,&
+&.123E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,.321E-03_JPRB,.321E-03_JPRB,&
+&.499E-03_JPRB,.499E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  5  74.0
+ZAER (:, 5, 1) = (/&
+&.673E-03_JPRB,.673E-03_JPRB,.707E-03_JPRB,.707E-03_JPRB,.757E-03_JPRB,.757E-03_JPRB,.933E-03_JPRB,&
+&.933E-03_JPRB,.872E-03_JPRB,.872E-03_JPRB,.630E-03_JPRB,.630E-03_JPRB,.445E-03_JPRB,.445E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB,.360E-03_JPRB,.360E-03_JPRB,.387E-03_JPRB,.387E-03_JPRB,.420E-03_JPRB,&
+&.420E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.132E-03_JPRB,.132E-03_JPRB,.139E-03_JPRB,.139E-03_JPRB,&
+&.163E-03_JPRB,.163E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,.180E-03_JPRB,.180E-03_JPRB,.144E-03_JPRB,&
+&.144E-03_JPRB,.992E-04_JPRB,.992E-04_JPRB,.138E-03_JPRB,.138E-03_JPRB,.209E-03_JPRB,.209E-03_JPRB,&
+&.274E-03_JPRB,.274E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.267E-03_JPRB,.267E-03_JPRB,.327E-03_JPRB,&
+&.327E-03_JPRB,.270E-03_JPRB,.270E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,.106E-03_JPRB,.106E-03_JPRB,&
+&.809E-04_JPRB,.809E-04_JPRB,.105E-03_JPRB,.105E-03_JPRB,.129E-03_JPRB,.129E-03_JPRB,.123E-03_JPRB,&
+&.123E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,.321E-03_JPRB,.321E-03_JPRB,&
+&.499E-03_JPRB,.499E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  6  70.0
+ZAER (:, 6, 1) = (/&
+&.306E-02_JPRB,.306E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.246E-02_JPRB,&
+&.246E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.221E-02_JPRB,.221E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.230E-02_JPRB,&
+&.230E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.743E-03_JPRB,.743E-03_JPRB,.700E-03_JPRB,.700E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.577E-03_JPRB,.577E-03_JPRB,.113E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.131E-02_JPRB,.131E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.174E-02_JPRB,&
+&.174E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.827E-03_JPRB,.827E-03_JPRB,.419E-03_JPRB,.419E-03_JPRB,&
+&.263E-03_JPRB,.263E-03_JPRB,.510E-03_JPRB,.510E-03_JPRB,.120E-02_JPRB,.120E-02_JPRB,.101E-02_JPRB,&
+&.101E-02_JPRB,.671E-03_JPRB,.671E-03_JPRB,.900E-03_JPRB,.900E-03_JPRB,.171E-02_JPRB,.171E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  7  66.0
+ZAER (:, 7, 1) = (/&
+&.306E-02_JPRB,.306E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.246E-02_JPRB,&
+&.246E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.221E-02_JPRB,.221E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.230E-02_JPRB,&
+&.230E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.743E-03_JPRB,.743E-03_JPRB,.700E-03_JPRB,.700E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.577E-03_JPRB,.577E-03_JPRB,.113E-02_JPRB,.113E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.131E-02_JPRB,.131E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.174E-02_JPRB,&
+&.174E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.827E-03_JPRB,.827E-03_JPRB,.419E-03_JPRB,.419E-03_JPRB,&
+&.263E-03_JPRB,.263E-03_JPRB,.510E-03_JPRB,.510E-03_JPRB,.120E-02_JPRB,.120E-02_JPRB,.101E-02_JPRB,&
+&.101E-02_JPRB,.671E-03_JPRB,.671E-03_JPRB,.900E-03_JPRB,.900E-03_JPRB,.171E-02_JPRB,.171E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  8  62.0
+ZAER (:, 8, 1) = (/&
+&.729E-02_JPRB,.729E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.622E-02_JPRB,&
+&.622E-02_JPRB,.602E-02_JPRB,.602E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,&
+&.579E-02_JPRB,.579E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.634E-02_JPRB,&
+&.634E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.338E-02_JPRB,&
+&.338E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,&
+&.465E-02_JPRB,.465E-02_JPRB,.539E-02_JPRB,.539E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.544E-02_JPRB,&
+&.544E-02_JPRB,.537E-02_JPRB,.537E-02_JPRB,.503E-02_JPRB,.503E-02_JPRB,.442E-02_JPRB,.442E-02_JPRB,&
+&.388E-02_JPRB,.388E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,.371E-02_JPRB,.371E-02_JPRB,.404E-02_JPRB,&
+&.404E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.526E-02_JPRB,.526E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,&
+&.770E-02_JPRB,.770E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat:  9  58.0
+ZAER (:, 9, 1) = (/&
+&.729E-02_JPRB,.729E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.622E-02_JPRB,&
+&.622E-02_JPRB,.602E-02_JPRB,.602E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,&
+&.579E-02_JPRB,.579E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.634E-02_JPRB,&
+&.634E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,&
+&.423E-02_JPRB,.423E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.338E-02_JPRB,&
+&.338E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,&
+&.465E-02_JPRB,.465E-02_JPRB,.539E-02_JPRB,.539E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.544E-02_JPRB,&
+&.544E-02_JPRB,.537E-02_JPRB,.537E-02_JPRB,.503E-02_JPRB,.503E-02_JPRB,.442E-02_JPRB,.442E-02_JPRB,&
+&.388E-02_JPRB,.388E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,.371E-02_JPRB,.371E-02_JPRB,.404E-02_JPRB,&
+&.404E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.526E-02_JPRB,.526E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,&
+&.770E-02_JPRB,.770E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 10  54.0
+ZAER (:,10, 1) = (/&
+&.893E-02_JPRB,.893E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.863E-02_JPRB,&
+&.863E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,&
+&.717E-02_JPRB,.717E-02_JPRB,.732E-02_JPRB,.732E-02_JPRB,.795E-02_JPRB,.795E-02_JPRB,.761E-02_JPRB,&
+&.761E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,&
+&.724E-02_JPRB,.724E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.636E-02_JPRB,&
+&.636E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,&
+&.719E-02_JPRB,.719E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.796E-02_JPRB,&
+&.796E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.795E-02_JPRB,.795E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,&
+&.760E-02_JPRB,.760E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.837E-02_JPRB,&
+&.837E-02_JPRB,.837E-02_JPRB,.837E-02_JPRB,.875E-02_JPRB,.875E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,&
+&.934E-02_JPRB,.934E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 11  50.0
+ZAER (:,11, 1) = (/&
+&.893E-02_JPRB,.893E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.863E-02_JPRB,&
+&.863E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,&
+&.717E-02_JPRB,.717E-02_JPRB,.732E-02_JPRB,.732E-02_JPRB,.795E-02_JPRB,.795E-02_JPRB,.761E-02_JPRB,&
+&.761E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,&
+&.724E-02_JPRB,.724E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.636E-02_JPRB,&
+&.636E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,&
+&.719E-02_JPRB,.719E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.796E-02_JPRB,&
+&.796E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.795E-02_JPRB,.795E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,&
+&.760E-02_JPRB,.760E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.837E-02_JPRB,&
+&.837E-02_JPRB,.837E-02_JPRB,.837E-02_JPRB,.875E-02_JPRB,.875E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,&
+&.934E-02_JPRB,.934E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 12  46.0
+ZAER (:,12, 1) = (/&
+&.705E-02_JPRB,.705E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,.798E-02_JPRB,&
+&.798E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,&
+&.550E-02_JPRB,.550E-02_JPRB,.526E-02_JPRB,.526E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.522E-02_JPRB,&
+&.522E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,.558E-02_JPRB,.558E-02_JPRB,.846E-02_JPRB,.846E-02_JPRB,&
+&.899E-02_JPRB,.899E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.929E-02_JPRB,&
+&.929E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,&
+&.708E-02_JPRB,.708E-02_JPRB,.716E-02_JPRB,.716E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.775E-02_JPRB,&
+&.775E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.789E-02_JPRB,.789E-02_JPRB,&
+&.828E-02_JPRB,.828E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,&
+&.580E-02_JPRB,.580E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 13  42.0
+ZAER (:,13, 1) = (/&
+&.705E-02_JPRB,.705E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,.798E-02_JPRB,&
+&.798E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,&
+&.550E-02_JPRB,.550E-02_JPRB,.526E-02_JPRB,.526E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.522E-02_JPRB,&
+&.522E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,.558E-02_JPRB,.558E-02_JPRB,.846E-02_JPRB,.846E-02_JPRB,&
+&.899E-02_JPRB,.899E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.929E-02_JPRB,&
+&.929E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,&
+&.708E-02_JPRB,.708E-02_JPRB,.716E-02_JPRB,.716E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.775E-02_JPRB,&
+&.775E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.789E-02_JPRB,.789E-02_JPRB,&
+&.828E-02_JPRB,.828E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,&
+&.580E-02_JPRB,.580E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 14  38.0
+ZAER (:,14, 1) = (/&
+&.563E-02_JPRB,.563E-02_JPRB,.579E-02_JPRB,.579E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.563E-02_JPRB,&
+&.563E-02_JPRB,.557E-02_JPRB,.557E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,&
+&.568E-02_JPRB,.568E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.571E-02_JPRB,&
+&.571E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,&
+&.733E-02_JPRB,.733E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,.860E-02_JPRB,&
+&.860E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.640E-02_JPRB,.640E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.646E-02_JPRB,&
+&.646E-02_JPRB,.656E-02_JPRB,.656E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.558E-02_JPRB,.558E-02_JPRB,&
+&.601E-02_JPRB,.601E-02_JPRB,.617E-02_JPRB,.617E-02_JPRB,.524E-02_JPRB,.524E-02_JPRB,.514E-02_JPRB,&
+&.514E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.491E-02_JPRB,.491E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,&
+&.553E-02_JPRB,.553E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 15  34.0
+ZAER (:,15, 1) = (/&
+&.563E-02_JPRB,.563E-02_JPRB,.579E-02_JPRB,.579E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.563E-02_JPRB,&
+&.563E-02_JPRB,.557E-02_JPRB,.557E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,&
+&.568E-02_JPRB,.568E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.571E-02_JPRB,&
+&.571E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,&
+&.733E-02_JPRB,.733E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,.860E-02_JPRB,&
+&.860E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,&
+&.640E-02_JPRB,.640E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.646E-02_JPRB,&
+&.646E-02_JPRB,.656E-02_JPRB,.656E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.558E-02_JPRB,.558E-02_JPRB,&
+&.601E-02_JPRB,.601E-02_JPRB,.617E-02_JPRB,.617E-02_JPRB,.524E-02_JPRB,.524E-02_JPRB,.514E-02_JPRB,&
+&.514E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.491E-02_JPRB,.491E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,&
+&.553E-02_JPRB,.553E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 16  30.0
+ZAER (:,16, 1) = (/&
+&.710E-02_JPRB,.710E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.904E-02_JPRB,.904E-02_JPRB,.992E-02_JPRB,.992E-02_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.903E-02_JPRB,.903E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,&
+&.597E-02_JPRB,.597E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,.767E-02_JPRB,&
+&.767E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,&
+&.409E-02_JPRB,.409E-02_JPRB,.704E-02_JPRB,.704E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.738E-02_JPRB,&
+&.738E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,&
+&.869E-02_JPRB,.869E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.224E-02_JPRB,&
+&.224E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.793E-02_JPRB,.793E-02_JPRB,&
+&.699E-02_JPRB,.699E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 17  26.0
+ZAER (:,17, 1) = (/&
+&.710E-02_JPRB,.710E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.904E-02_JPRB,.904E-02_JPRB,.992E-02_JPRB,.992E-02_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.903E-02_JPRB,.903E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,&
+&.597E-02_JPRB,.597E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,.767E-02_JPRB,&
+&.767E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,&
+&.409E-02_JPRB,.409E-02_JPRB,.704E-02_JPRB,.704E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.738E-02_JPRB,&
+&.738E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,&
+&.869E-02_JPRB,.869E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.224E-02_JPRB,&
+&.224E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.793E-02_JPRB,.793E-02_JPRB,&
+&.699E-02_JPRB,.699E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 18  22.0
+ZAER (:,18, 1) = (/&
+&.833E-02_JPRB,.833E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.732E-02_JPRB,.732E-02_JPRB,.817E-02_JPRB,&
+&.817E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.916E-02_JPRB,.916E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.456E-02_JPRB,&
+&.456E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.617E-03_JPRB,.617E-03_JPRB,.754E-03_JPRB,.754E-03_JPRB,&
+&.569E-02_JPRB,.569E-02_JPRB,.883E-02_JPRB,.883E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,.761E-02_JPRB,&
+&.761E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.334E-02_JPRB,.334E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.170E-02_JPRB,.170E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.782E-02_JPRB,&
+&.782E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.768E-02_JPRB,.768E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.373E-02_JPRB,.373E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,&
+&.747E-02_JPRB,.747E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 19  18.0
+ZAER (:,19, 1) = (/&
+&.833E-02_JPRB,.833E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.732E-02_JPRB,.732E-02_JPRB,.817E-02_JPRB,&
+&.817E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.916E-02_JPRB,.916E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.456E-02_JPRB,&
+&.456E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.617E-03_JPRB,.617E-03_JPRB,.754E-03_JPRB,.754E-03_JPRB,&
+&.569E-02_JPRB,.569E-02_JPRB,.883E-02_JPRB,.883E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,.761E-02_JPRB,&
+&.761E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.334E-02_JPRB,.334E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.170E-02_JPRB,.170E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.782E-02_JPRB,&
+&.782E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.768E-02_JPRB,.768E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.190E-02_JPRB,&
+&.190E-02_JPRB,.373E-02_JPRB,.373E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,&
+&.747E-02_JPRB,.747E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 20  14.0
+ZAER (:,20, 1) = (/&
+&.848E-02_JPRB,.848E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.839E-02_JPRB,.839E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.217E-02_JPRB,&
+&.217E-02_JPRB,.341E-03_JPRB,.341E-03_JPRB,.192E-03_JPRB,.192E-03_JPRB,.170E-02_JPRB,.170E-02_JPRB,&
+&.671E-02_JPRB,.671E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.875E-02_JPRB,.875E-02_JPRB,.607E-02_JPRB,&
+&.607E-02_JPRB,.413E-02_JPRB,.413E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.343E-03_JPRB,.343E-03_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.679E-02_JPRB,&
+&.679E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.874E-02_JPRB,.874E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,&
+&.699E-02_JPRB,.699E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.319E-02_JPRB,&
+&.319E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,&
+&.783E-02_JPRB,.783E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 21  10.0
+ZAER (:,21, 1) = (/&
+&.848E-02_JPRB,.848E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.839E-02_JPRB,.839E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.217E-02_JPRB,&
+&.217E-02_JPRB,.341E-03_JPRB,.341E-03_JPRB,.192E-03_JPRB,.192E-03_JPRB,.170E-02_JPRB,.170E-02_JPRB,&
+&.671E-02_JPRB,.671E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.875E-02_JPRB,.875E-02_JPRB,.607E-02_JPRB,&
+&.607E-02_JPRB,.413E-02_JPRB,.413E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.343E-03_JPRB,.343E-03_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.679E-02_JPRB,&
+&.679E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.874E-02_JPRB,.874E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,&
+&.699E-02_JPRB,.699E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.319E-02_JPRB,&
+&.319E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,&
+&.783E-02_JPRB,.783E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 22   6.0
+ZAER (:,22, 1) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.803E-02_JPRB,.803E-02_JPRB,&
+&.589E-02_JPRB,.589E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.861E-03_JPRB,&
+&.861E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,.294E-02_JPRB,.294E-02_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.792E-02_JPRB,.792E-02_JPRB,.557E-02_JPRB,&
+&.557E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.310E-02_JPRB,.310E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.562E-02_JPRB,&
+&.562E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.474E-02_JPRB,.474E-02_JPRB,.442E-02_JPRB,.442E-02_JPRB,&
+&.348E-02_JPRB,.348E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.460E-02_JPRB,&
+&.460E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.958E-02_JPRB,.958E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 23   2.0
+ZAER (:,23, 1) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.803E-02_JPRB,.803E-02_JPRB,&
+&.589E-02_JPRB,.589E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.861E-03_JPRB,&
+&.861E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,.294E-02_JPRB,.294E-02_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.792E-02_JPRB,.792E-02_JPRB,.557E-02_JPRB,&
+&.557E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.310E-02_JPRB,.310E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.562E-02_JPRB,&
+&.562E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.474E-02_JPRB,.474E-02_JPRB,.442E-02_JPRB,.442E-02_JPRB,&
+&.348E-02_JPRB,.348E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.460E-02_JPRB,&
+&.460E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.958E-02_JPRB,.958E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 24  -2.0
+ZAER (:,24, 1) = (/&
+&.121E-01_JPRB,.121E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.905E-02_JPRB,.905E-02_JPRB,&
+&.797E-02_JPRB,.797E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.371E-02_JPRB,&
+&.371E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.741E-02_JPRB,.741E-02_JPRB,.475E-02_JPRB,&
+&.475E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.302E-02_JPRB,.302E-02_JPRB,&
+&.455E-02_JPRB,.455E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.820E-02_JPRB,&
+&.820E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.634E-02_JPRB,.634E-02_JPRB,&
+&.682E-02_JPRB,.682E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.874E-02_JPRB,.874E-02_JPRB,.931E-02_JPRB,&
+&.931E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 25  -6.0
+ZAER (:,25, 1) = (/&
+&.121E-01_JPRB,.121E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.905E-02_JPRB,.905E-02_JPRB,&
+&.797E-02_JPRB,.797E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.371E-02_JPRB,&
+&.371E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.741E-02_JPRB,.741E-02_JPRB,.475E-02_JPRB,&
+&.475E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.302E-02_JPRB,.302E-02_JPRB,&
+&.455E-02_JPRB,.455E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.820E-02_JPRB,&
+&.820E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.634E-02_JPRB,.634E-02_JPRB,&
+&.682E-02_JPRB,.682E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.874E-02_JPRB,.874E-02_JPRB,.931E-02_JPRB,&
+&.931E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 26 -10.0
+ZAER (:,26, 1) = (/&
+&.125E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.974E-02_JPRB,.974E-02_JPRB,.914E-02_JPRB,.914E-02_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.738E-02_JPRB,.738E-02_JPRB,.430E-02_JPRB,&
+&.430E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,&
+&.377E-02_JPRB,.377E-02_JPRB,.593E-02_JPRB,.593E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,.920E-02_JPRB,&
+&.920E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.787E-02_JPRB,.787E-02_JPRB,&
+&.828E-02_JPRB,.828E-02_JPRB,.128E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.178E-01_JPRB,&
+&.178E-01_JPRB,.190E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 27 -14.0
+ZAER (:,27, 1) = (/&
+&.125E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.974E-02_JPRB,.974E-02_JPRB,.914E-02_JPRB,.914E-02_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,&
+&.135E-01_JPRB,.135E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.738E-02_JPRB,.738E-02_JPRB,.430E-02_JPRB,&
+&.430E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,&
+&.377E-02_JPRB,.377E-02_JPRB,.593E-02_JPRB,.593E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,.920E-02_JPRB,&
+&.920E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.787E-02_JPRB,.787E-02_JPRB,&
+&.828E-02_JPRB,.828E-02_JPRB,.128E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.178E-01_JPRB,&
+&.178E-01_JPRB,.190E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 28 -18.0
+ZAER (:,28, 1) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.994E-02_JPRB,.994E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.907E-02_JPRB,.907E-02_JPRB,&
+&.852E-02_JPRB,.852E-02_JPRB,.808E-02_JPRB,.808E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.946E-02_JPRB,.946E-02_JPRB,.537E-02_JPRB,.537E-02_JPRB,.343E-02_JPRB,&
+&.343E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,&
+&.260E-02_JPRB,.260E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.575E-02_JPRB,&
+&.575E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.344E-02_JPRB,.344E-02_JPRB,&
+&.461E-02_JPRB,.461E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.171E-01_JPRB,.171E-01_JPRB,.211E-01_JPRB,&
+&.211E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.181E-01_JPRB,.181E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 29 -22.0
+ZAER (:,29, 1) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.994E-02_JPRB,.994E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.907E-02_JPRB,.907E-02_JPRB,&
+&.852E-02_JPRB,.852E-02_JPRB,.808E-02_JPRB,.808E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.946E-02_JPRB,.946E-02_JPRB,.537E-02_JPRB,.537E-02_JPRB,.343E-02_JPRB,&
+&.343E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,&
+&.260E-02_JPRB,.260E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.575E-02_JPRB,&
+&.575E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.344E-02_JPRB,.344E-02_JPRB,&
+&.461E-02_JPRB,.461E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.171E-01_JPRB,.171E-01_JPRB,.211E-01_JPRB,&
+&.211E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.181E-01_JPRB,.181E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 30 -26.0
+ZAER (:,30, 1) = (/&
+&.134E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.909E-02_JPRB,.909E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,.475E-02_JPRB,.475E-02_JPRB,&
+&.353E-02_JPRB,.353E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.535E-02_JPRB,.535E-02_JPRB,.742E-02_JPRB,&
+&.742E-02_JPRB,.980E-02_JPRB,.980E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.990E-02_JPRB,.990E-02_JPRB,&
+&.961E-02_JPRB,.961E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.287E-02_JPRB,&
+&.287E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.244E-02_JPRB,.244E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.467E-02_JPRB,.467E-02_JPRB,.969E-02_JPRB,.969E-02_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 31 -30.0
+ZAER (:,31, 1) = (/&
+&.134E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.909E-02_JPRB,.909E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,.475E-02_JPRB,.475E-02_JPRB,&
+&.353E-02_JPRB,.353E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.535E-02_JPRB,.535E-02_JPRB,.742E-02_JPRB,&
+&.742E-02_JPRB,.980E-02_JPRB,.980E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.990E-02_JPRB,.990E-02_JPRB,&
+&.961E-02_JPRB,.961E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.287E-02_JPRB,&
+&.287E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.244E-02_JPRB,.244E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.226E-02_JPRB,&
+&.226E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.467E-02_JPRB,.467E-02_JPRB,.969E-02_JPRB,.969E-02_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 32 -34.0
+ZAER (:,32, 1) = (/&
+&.151E-01_JPRB,.151E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.946E-02_JPRB,&
+&.946E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.312E-02_JPRB,&
+&.312E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.961E-02_JPRB,.961E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.549E-02_JPRB,&
+&.549E-02_JPRB,.331E-02_JPRB,.331E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,.418E-02_JPRB,.418E-02_JPRB,&
+&.269E-02_JPRB,.269E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.969E-03_JPRB,.969E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.733E-03_JPRB,.733E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.406E-02_JPRB,&
+&.406E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 33 -38.0
+ZAER (:,33, 1) = (/&
+&.151E-01_JPRB,.151E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.946E-02_JPRB,&
+&.946E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.312E-02_JPRB,&
+&.312E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.961E-02_JPRB,.961E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.549E-02_JPRB,&
+&.549E-02_JPRB,.331E-02_JPRB,.331E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,.418E-02_JPRB,.418E-02_JPRB,&
+&.269E-02_JPRB,.269E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.969E-03_JPRB,.969E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,&
+&.733E-03_JPRB,.733E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.406E-02_JPRB,&
+&.406E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 34 -42.0
+ZAER (:,34, 1) = (/&
+&.198E-01_JPRB,.198E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.842E-02_JPRB,.842E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,&
+&.231E-02_JPRB,.231E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.659E-02_JPRB,.659E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.461E-02_JPRB,.461E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.963E-03_JPRB,.963E-03_JPRB,.775E-03_JPRB,.775E-03_JPRB,.662E-03_JPRB,.662E-03_JPRB,&
+&.606E-03_JPRB,.606E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.179E-01_JPRB,.179E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 35 -46.0
+ZAER (:,35, 1) = (/&
+&.198E-01_JPRB,.198E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.842E-02_JPRB,.842E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,&
+&.231E-02_JPRB,.231E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.659E-02_JPRB,.659E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.461E-02_JPRB,.461E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,&
+&.290E-02_JPRB,.290E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.963E-03_JPRB,.963E-03_JPRB,.775E-03_JPRB,.775E-03_JPRB,.662E-03_JPRB,.662E-03_JPRB,&
+&.606E-03_JPRB,.606E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.179E-01_JPRB,.179E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 36 -50.0
+ZAER (:,36, 1) = (/&
+&.152E-01_JPRB,.152E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.652E-02_JPRB,.652E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,&
+&.205E-02_JPRB,.205E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.991E-03_JPRB,&
+&.991E-03_JPRB,.968E-03_JPRB,.968E-03_JPRB,.340E-02_JPRB,.340E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.189E-01_JPRB,.189E-01_JPRB,.227E-01_JPRB,.227E-01_JPRB,.208E-01_JPRB,.208E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.814E-02_JPRB,.814E-02_JPRB,.522E-02_JPRB,.522E-02_JPRB,.392E-02_JPRB,.392E-02_JPRB,&
+&.313E-02_JPRB,.313E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.164E-02_JPRB,&
+&.164E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.931E-03_JPRB,.931E-03_JPRB,&
+&.857E-03_JPRB,.857E-03_JPRB,.775E-03_JPRB,.775E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.664E-03_JPRB,&
+&.664E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.130E-02_JPRB,.130E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 37 -54.0
+ZAER (:,37, 1) = (/&
+&.152E-01_JPRB,.152E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.652E-02_JPRB,.652E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,&
+&.205E-02_JPRB,.205E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.991E-03_JPRB,&
+&.991E-03_JPRB,.968E-03_JPRB,.968E-03_JPRB,.340E-02_JPRB,.340E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.189E-01_JPRB,.189E-01_JPRB,.227E-01_JPRB,.227E-01_JPRB,.208E-01_JPRB,.208E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.814E-02_JPRB,.814E-02_JPRB,.522E-02_JPRB,.522E-02_JPRB,.392E-02_JPRB,.392E-02_JPRB,&
+&.313E-02_JPRB,.313E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.164E-02_JPRB,&
+&.164E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.931E-03_JPRB,.931E-03_JPRB,&
+&.857E-03_JPRB,.857E-03_JPRB,.775E-03_JPRB,.775E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.664E-03_JPRB,&
+&.664E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.130E-02_JPRB,.130E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 38 -58.0
+ZAER (:,38, 1) = (/&
+&.632E-02_JPRB,.632E-02_JPRB,.471E-02_JPRB,.471E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.556E-02_JPRB,&
+&.556E-02_JPRB,.464E-02_JPRB,.464E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.683E-03_JPRB,.683E-03_JPRB,.582E-02_JPRB,.582E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,&
+&.178E-01_JPRB,.178E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.186E-01_JPRB,&
+&.186E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.860E-02_JPRB,.860E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,&
+&.441E-02_JPRB,.441E-02_JPRB,.331E-02_JPRB,.331E-02_JPRB,.263E-02_JPRB,.263E-02_JPRB,.209E-02_JPRB,&
+&.209E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.909E-03_JPRB,.909E-03_JPRB,.815E-03_JPRB,.815E-03_JPRB,.709E-03_JPRB,&
+&.709E-03_JPRB,.755E-03_JPRB,.755E-03_JPRB,.162E-02_JPRB,.162E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,&
+&.770E-02_JPRB,.770E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 39 -62.0
+ZAER (:,39, 1) = (/&
+&.632E-02_JPRB,.632E-02_JPRB,.471E-02_JPRB,.471E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.556E-02_JPRB,&
+&.556E-02_JPRB,.464E-02_JPRB,.464E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.683E-03_JPRB,.683E-03_JPRB,.582E-02_JPRB,.582E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,&
+&.178E-01_JPRB,.178E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.186E-01_JPRB,&
+&.186E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.860E-02_JPRB,.860E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,&
+&.441E-02_JPRB,.441E-02_JPRB,.331E-02_JPRB,.331E-02_JPRB,.263E-02_JPRB,.263E-02_JPRB,.209E-02_JPRB,&
+&.209E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.909E-03_JPRB,.909E-03_JPRB,.815E-03_JPRB,.815E-03_JPRB,.709E-03_JPRB,&
+&.709E-03_JPRB,.755E-03_JPRB,.755E-03_JPRB,.162E-02_JPRB,.162E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,&
+&.770E-02_JPRB,.770E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 40 -66.0
+ZAER (:,40, 1) = (/&
+&.151E-02_JPRB,.151E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,&
+&.158E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.969E-03_JPRB,.969E-03_JPRB,&
+&.713E-03_JPRB,.713E-03_JPRB,.859E-03_JPRB,.859E-03_JPRB,.878E-03_JPRB,.878E-03_JPRB,.553E-03_JPRB,&
+&.553E-03_JPRB,.358E-03_JPRB,.358E-03_JPRB,.136E-02_JPRB,.136E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,&
+&.464E-02_JPRB,.464E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.921E-02_JPRB,.921E-02_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.621E-02_JPRB,.621E-02_JPRB,&
+&.470E-02_JPRB,.470E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.331E-02_JPRB,.331E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.895E-03_JPRB,.895E-03_JPRB,.805E-03_JPRB,.805E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.749E-03_JPRB,&
+&.749E-03_JPRB,.795E-03_JPRB,.795E-03_JPRB,.836E-03_JPRB,.836E-03_JPRB,.919E-03_JPRB,.919E-03_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 41 -70.0
+ZAER (:,41, 1) = (/&
+&.151E-02_JPRB,.151E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,&
+&.158E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.969E-03_JPRB,.969E-03_JPRB,&
+&.713E-03_JPRB,.713E-03_JPRB,.859E-03_JPRB,.859E-03_JPRB,.878E-03_JPRB,.878E-03_JPRB,.553E-03_JPRB,&
+&.553E-03_JPRB,.358E-03_JPRB,.358E-03_JPRB,.136E-02_JPRB,.136E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,&
+&.464E-02_JPRB,.464E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.921E-02_JPRB,.921E-02_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.621E-02_JPRB,.621E-02_JPRB,&
+&.470E-02_JPRB,.470E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.331E-02_JPRB,.331E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.895E-03_JPRB,.895E-03_JPRB,.805E-03_JPRB,.805E-03_JPRB,.735E-03_JPRB,.735E-03_JPRB,.749E-03_JPRB,&
+&.749E-03_JPRB,.795E-03_JPRB,.795E-03_JPRB,.836E-03_JPRB,.836E-03_JPRB,.919E-03_JPRB,.919E-03_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 42 -74.0
+ZAER (:,42, 1) = (/&
+&.558E-03_JPRB,.558E-03_JPRB,.601E-03_JPRB,.601E-03_JPRB,.655E-03_JPRB,.655E-03_JPRB,.684E-03_JPRB,&
+&.684E-03_JPRB,.648E-03_JPRB,.648E-03_JPRB,.567E-03_JPRB,.567E-03_JPRB,.516E-03_JPRB,.516E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.401E-03_JPRB,.401E-03_JPRB,.362E-03_JPRB,&
+&.362E-03_JPRB,.331E-03_JPRB,.331E-03_JPRB,.511E-03_JPRB,.511E-03_JPRB,.939E-03_JPRB,.939E-03_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.214E-02_JPRB,&
+&.214E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,&
+&.562E-02_JPRB,.562E-02_JPRB,.325E-02_JPRB,.325E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.859E-03_JPRB,.859E-03_JPRB,.691E-03_JPRB,.691E-03_JPRB,&
+&.560E-03_JPRB,.560E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,.671E-03_JPRB,&
+&.671E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.659E-03_JPRB,.659E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,&
+&.541E-03_JPRB,.541E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 43 -78.0
+ZAER (:,43, 1) = (/&
+&.558E-03_JPRB,.558E-03_JPRB,.601E-03_JPRB,.601E-03_JPRB,.655E-03_JPRB,.655E-03_JPRB,.684E-03_JPRB,&
+&.684E-03_JPRB,.648E-03_JPRB,.648E-03_JPRB,.567E-03_JPRB,.567E-03_JPRB,.516E-03_JPRB,.516E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.401E-03_JPRB,.401E-03_JPRB,.362E-03_JPRB,&
+&.362E-03_JPRB,.331E-03_JPRB,.331E-03_JPRB,.511E-03_JPRB,.511E-03_JPRB,.939E-03_JPRB,.939E-03_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.214E-02_JPRB,&
+&.214E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,&
+&.562E-02_JPRB,.562E-02_JPRB,.325E-02_JPRB,.325E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.859E-03_JPRB,.859E-03_JPRB,.691E-03_JPRB,.691E-03_JPRB,&
+&.560E-03_JPRB,.560E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,.671E-03_JPRB,&
+&.671E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.659E-03_JPRB,.659E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,&
+&.541E-03_JPRB,.541E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 44 -82.0
+ZAER (:,44, 1) = (/&
+&.559E-03_JPRB,.559E-03_JPRB,.545E-03_JPRB,.545E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,&
+&.409E-03_JPRB,.409E-03_JPRB,.415E-03_JPRB,.415E-03_JPRB,.421E-03_JPRB,.421E-03_JPRB,.409E-03_JPRB,&
+&.409E-03_JPRB,.406E-03_JPRB,.406E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.530E-03_JPRB,.530E-03_JPRB,&
+&.649E-03_JPRB,.649E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.786E-03_JPRB,.786E-03_JPRB,.893E-03_JPRB,&
+&.893E-03_JPRB,.110E-02_JPRB,.110E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.995E-03_JPRB,.995E-03_JPRB,.880E-03_JPRB,.880E-03_JPRB,.779E-03_JPRB,.779E-03_JPRB,.686E-03_JPRB,&
+&.686E-03_JPRB,.605E-03_JPRB,.605E-03_JPRB,.529E-03_JPRB,.529E-03_JPRB,.479E-03_JPRB,.479E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,.494E-03_JPRB,.494E-03_JPRB,.538E-03_JPRB,&
+&.538E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.611E-03_JPRB,.611E-03_JPRB,.592E-03_JPRB,.592E-03_JPRB,&
+&.571E-03_JPRB,.571E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 45 -86.0
+ZAER (:,45, 1) = (/&
+&.559E-03_JPRB,.559E-03_JPRB,.545E-03_JPRB,.545E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,&
+&.409E-03_JPRB,.409E-03_JPRB,.415E-03_JPRB,.415E-03_JPRB,.421E-03_JPRB,.421E-03_JPRB,.409E-03_JPRB,&
+&.409E-03_JPRB,.406E-03_JPRB,.406E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.530E-03_JPRB,.530E-03_JPRB,&
+&.649E-03_JPRB,.649E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.786E-03_JPRB,.786E-03_JPRB,.893E-03_JPRB,&
+&.893E-03_JPRB,.110E-02_JPRB,.110E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.995E-03_JPRB,.995E-03_JPRB,.880E-03_JPRB,.880E-03_JPRB,.779E-03_JPRB,.779E-03_JPRB,.686E-03_JPRB,&
+&.686E-03_JPRB,.605E-03_JPRB,.605E-03_JPRB,.529E-03_JPRB,.529E-03_JPRB,.479E-03_JPRB,.479E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,.494E-03_JPRB,.494E-03_JPRB,.538E-03_JPRB,&
+&.538E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.611E-03_JPRB,.611E-03_JPRB,.592E-03_JPRB,.592E-03_JPRB,&
+&.571E-03_JPRB,.571E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  1 --- lat: 46 -90.0
+ZAER (:,46, 1) = (/&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=1   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_01
Index: LMDZ5/branches/testing/libf/phymar/suecaess_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_02.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_02
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      February
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,2:2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  2 --- lat:  1  90.0
+ZAER (:, 1, 2) = (/&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  2  86.0
+ZAER (:, 2, 2) = (/&
+&.337E-03_JPRB,.337E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.343E-03_JPRB,.343E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.296E-03_JPRB,.296E-03_JPRB,.281E-03_JPRB,.281E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,&
+&.329E-03_JPRB,.329E-03_JPRB,.379E-03_JPRB,.379E-03_JPRB,.446E-03_JPRB,.446E-03_JPRB,.454E-03_JPRB,&
+&.454E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.305E-03_JPRB,.305E-03_JPRB,.272E-03_JPRB,.272E-03_JPRB,&
+&.216E-03_JPRB,.216E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.116E-03_JPRB,.116E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,&
+&.155E-03_JPRB,.155E-03_JPRB,.161E-03_JPRB,.161E-03_JPRB,.173E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.142E-03_JPRB,.142E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,&
+&.110E-03_JPRB,.110E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,.121E-03_JPRB,&
+&.121E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.139E-03_JPRB,.139E-03_JPRB,.189E-03_JPRB,.189E-03_JPRB,&
+&.270E-03_JPRB,.270E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  3  82.0
+ZAER (:, 3, 2) = (/&
+&.337E-03_JPRB,.337E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.343E-03_JPRB,.343E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.296E-03_JPRB,.296E-03_JPRB,.281E-03_JPRB,.281E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,&
+&.329E-03_JPRB,.329E-03_JPRB,.379E-03_JPRB,.379E-03_JPRB,.446E-03_JPRB,.446E-03_JPRB,.454E-03_JPRB,&
+&.454E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.305E-03_JPRB,.305E-03_JPRB,.272E-03_JPRB,.272E-03_JPRB,&
+&.216E-03_JPRB,.216E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,.112E-03_JPRB,.112E-03_JPRB,.103E-03_JPRB,&
+&.103E-03_JPRB,.116E-03_JPRB,.116E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,&
+&.155E-03_JPRB,.155E-03_JPRB,.161E-03_JPRB,.161E-03_JPRB,.173E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,&
+&.177E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.142E-03_JPRB,.142E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,&
+&.110E-03_JPRB,.110E-03_JPRB,.111E-03_JPRB,.111E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,.121E-03_JPRB,&
+&.121E-03_JPRB,.123E-03_JPRB,.123E-03_JPRB,.139E-03_JPRB,.139E-03_JPRB,.189E-03_JPRB,.189E-03_JPRB,&
+&.270E-03_JPRB,.270E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  4  78.0
+ZAER (:, 4, 2) = (/&
+&.806E-03_JPRB,.806E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,.674E-03_JPRB,.674E-03_JPRB,.601E-03_JPRB,&
+&.601E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,.347E-03_JPRB,.347E-03_JPRB,.387E-03_JPRB,.387E-03_JPRB,&
+&.567E-03_JPRB,.567E-03_JPRB,.769E-03_JPRB,.769E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.713E-03_JPRB,.713E-03_JPRB,.559E-03_JPRB,.559E-03_JPRB,&
+&.404E-03_JPRB,.404E-03_JPRB,.294E-03_JPRB,.294E-03_JPRB,.256E-03_JPRB,.256E-03_JPRB,.170E-03_JPRB,&
+&.170E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,.295E-03_JPRB,.295E-03_JPRB,&
+&.316E-03_JPRB,.316E-03_JPRB,.258E-03_JPRB,.258E-03_JPRB,.279E-03_JPRB,.279E-03_JPRB,.341E-03_JPRB,&
+&.341E-03_JPRB,.327E-03_JPRB,.327E-03_JPRB,.247E-03_JPRB,.247E-03_JPRB,.198E-03_JPRB,.198E-03_JPRB,&
+&.158E-03_JPRB,.158E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.253E-03_JPRB,.253E-03_JPRB,.251E-03_JPRB,&
+&.251E-03_JPRB,.247E-03_JPRB,.247E-03_JPRB,.271E-03_JPRB,.271E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,&
+&.793E-03_JPRB,.793E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  5  74.0
+ZAER (:, 5, 2) = (/&
+&.806E-03_JPRB,.806E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,.674E-03_JPRB,.674E-03_JPRB,.601E-03_JPRB,&
+&.601E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,.347E-03_JPRB,.347E-03_JPRB,.387E-03_JPRB,.387E-03_JPRB,&
+&.567E-03_JPRB,.567E-03_JPRB,.769E-03_JPRB,.769E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.713E-03_JPRB,.713E-03_JPRB,.559E-03_JPRB,.559E-03_JPRB,&
+&.404E-03_JPRB,.404E-03_JPRB,.294E-03_JPRB,.294E-03_JPRB,.256E-03_JPRB,.256E-03_JPRB,.170E-03_JPRB,&
+&.170E-03_JPRB,.117E-03_JPRB,.117E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,.295E-03_JPRB,.295E-03_JPRB,&
+&.316E-03_JPRB,.316E-03_JPRB,.258E-03_JPRB,.258E-03_JPRB,.279E-03_JPRB,.279E-03_JPRB,.341E-03_JPRB,&
+&.341E-03_JPRB,.327E-03_JPRB,.327E-03_JPRB,.247E-03_JPRB,.247E-03_JPRB,.198E-03_JPRB,.198E-03_JPRB,&
+&.158E-03_JPRB,.158E-03_JPRB,.194E-03_JPRB,.194E-03_JPRB,.253E-03_JPRB,.253E-03_JPRB,.251E-03_JPRB,&
+&.251E-03_JPRB,.247E-03_JPRB,.247E-03_JPRB,.271E-03_JPRB,.271E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,&
+&.793E-03_JPRB,.793E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  6  70.0
+ZAER (:, 6, 2) = (/&
+&.437E-02_JPRB,.437E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.273E-02_JPRB,.273E-02_JPRB,&
+&.378E-02_JPRB,.378E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.505E-02_JPRB,&
+&.505E-02_JPRB,.421E-02_JPRB,.421E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.915E-03_JPRB,.915E-03_JPRB,.535E-03_JPRB,.535E-03_JPRB,.148E-02_JPRB,.148E-02_JPRB,.158E-02_JPRB,&
+&.158E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,&
+&.196E-02_JPRB,.196E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.160E-02_JPRB,&
+&.160E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.942E-03_JPRB,.942E-03_JPRB,.768E-03_JPRB,.768E-03_JPRB,&
+&.859E-03_JPRB,.859E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,&
+&.441E-02_JPRB,.441E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  7  66.0
+ZAER (:, 7, 2) = (/&
+&.437E-02_JPRB,.437E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.273E-02_JPRB,.273E-02_JPRB,&
+&.378E-02_JPRB,.378E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.505E-02_JPRB,&
+&.505E-02_JPRB,.421E-02_JPRB,.421E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.915E-03_JPRB,.915E-03_JPRB,.535E-03_JPRB,.535E-03_JPRB,.148E-02_JPRB,.148E-02_JPRB,.158E-02_JPRB,&
+&.158E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,&
+&.196E-02_JPRB,.196E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.160E-02_JPRB,&
+&.160E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.942E-03_JPRB,.942E-03_JPRB,.768E-03_JPRB,.768E-03_JPRB,&
+&.859E-03_JPRB,.859E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,&
+&.441E-02_JPRB,.441E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  8  62.0
+ZAER (:, 8, 2) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.916E-02_JPRB,.916E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.665E-02_JPRB,&
+&.665E-02_JPRB,.712E-02_JPRB,.712E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.966E-02_JPRB,.966E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.970E-02_JPRB,.970E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,&
+&.441E-02_JPRB,.441E-02_JPRB,.369E-02_JPRB,.369E-02_JPRB,.427E-02_JPRB,.427E-02_JPRB,.452E-02_JPRB,&
+&.452E-02_JPRB,.483E-02_JPRB,.483E-02_JPRB,.608E-02_JPRB,.608E-02_JPRB,.694E-02_JPRB,.694E-02_JPRB,&
+&.736E-02_JPRB,.736E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.630E-02_JPRB,&
+&.630E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,&
+&.543E-02_JPRB,.543E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.863E-02_JPRB,&
+&.863E-02_JPRB,.985E-02_JPRB,.985E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat:  9  58.0
+ZAER (:, 9, 2) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.916E-02_JPRB,.916E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.665E-02_JPRB,&
+&.665E-02_JPRB,.712E-02_JPRB,.712E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.966E-02_JPRB,.966E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.970E-02_JPRB,.970E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,&
+&.441E-02_JPRB,.441E-02_JPRB,.369E-02_JPRB,.369E-02_JPRB,.427E-02_JPRB,.427E-02_JPRB,.452E-02_JPRB,&
+&.452E-02_JPRB,.483E-02_JPRB,.483E-02_JPRB,.608E-02_JPRB,.608E-02_JPRB,.694E-02_JPRB,.694E-02_JPRB,&
+&.736E-02_JPRB,.736E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.630E-02_JPRB,&
+&.630E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,&
+&.543E-02_JPRB,.543E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.863E-02_JPRB,&
+&.863E-02_JPRB,.985E-02_JPRB,.985E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 10  54.0
+ZAER (:,10, 2) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.994E-02_JPRB,.994E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.985E-02_JPRB,.985E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,.822E-02_JPRB,&
+&.822E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,&
+&.781E-02_JPRB,.781E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.641E-02_JPRB,&
+&.641E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,&
+&.782E-02_JPRB,.782E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,&
+&.889E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB,.891E-02_JPRB,.891E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.953E-02_JPRB,&
+&.953E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 11  50.0
+ZAER (:,11, 2) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.994E-02_JPRB,.994E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.985E-02_JPRB,.985E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,.822E-02_JPRB,&
+&.822E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,&
+&.781E-02_JPRB,.781E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.641E-02_JPRB,&
+&.641E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,&
+&.782E-02_JPRB,.782E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,&
+&.889E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB,.891E-02_JPRB,.891E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.953E-02_JPRB,&
+&.953E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 12  46.0
+ZAER (:,12, 2) = (/&
+&.694E-02_JPRB,.694E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.802E-02_JPRB,.802E-02_JPRB,.814E-02_JPRB,&
+&.814E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,&
+&.757E-02_JPRB,.757E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,.511E-02_JPRB,&
+&.511E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.629E-02_JPRB,.629E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,&
+&.823E-02_JPRB,.823E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.752E-02_JPRB,.752E-02_JPRB,.744E-02_JPRB,&
+&.744E-02_JPRB,.760E-02_JPRB,.760E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,&
+&.725E-02_JPRB,.725E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.810E-02_JPRB,&
+&.810E-02_JPRB,.827E-02_JPRB,.827E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,&
+&.797E-02_JPRB,.797E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.735E-02_JPRB,&
+&.735E-02_JPRB,.698E-02_JPRB,.698E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,&
+&.614E-02_JPRB,.614E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 13  42.0
+ZAER (:,13, 2) = (/&
+&.694E-02_JPRB,.694E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.802E-02_JPRB,.802E-02_JPRB,.814E-02_JPRB,&
+&.814E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,&
+&.757E-02_JPRB,.757E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,.511E-02_JPRB,&
+&.511E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.629E-02_JPRB,.629E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,&
+&.823E-02_JPRB,.823E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.752E-02_JPRB,.752E-02_JPRB,.744E-02_JPRB,&
+&.744E-02_JPRB,.760E-02_JPRB,.760E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,&
+&.725E-02_JPRB,.725E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.810E-02_JPRB,&
+&.810E-02_JPRB,.827E-02_JPRB,.827E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,&
+&.797E-02_JPRB,.797E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.735E-02_JPRB,&
+&.735E-02_JPRB,.698E-02_JPRB,.698E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,&
+&.614E-02_JPRB,.614E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 14  38.0
+ZAER (:,14, 2) = (/&
+&.671E-02_JPRB,.671E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.677E-02_JPRB,&
+&.677E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.672E-02_JPRB,.672E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,&
+&.760E-02_JPRB,.760E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,.633E-02_JPRB,.633E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,&
+&.790E-02_JPRB,.790E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.798E-02_JPRB,&
+&.798E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.727E-02_JPRB,.727E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,&
+&.861E-02_JPRB,.861E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.747E-02_JPRB,&
+&.747E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,.800E-02_JPRB,.800E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,&
+&.756E-02_JPRB,.756E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,&
+&.653E-02_JPRB,.653E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 15  34.0
+ZAER (:,15, 2) = (/&
+&.671E-02_JPRB,.671E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.677E-02_JPRB,&
+&.677E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.672E-02_JPRB,.672E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,&
+&.760E-02_JPRB,.760E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,.633E-02_JPRB,.633E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,&
+&.790E-02_JPRB,.790E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.798E-02_JPRB,&
+&.798E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.727E-02_JPRB,.727E-02_JPRB,.632E-02_JPRB,.632E-02_JPRB,&
+&.861E-02_JPRB,.861E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.747E-02_JPRB,&
+&.747E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,.800E-02_JPRB,.800E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,&
+&.756E-02_JPRB,.756E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,&
+&.653E-02_JPRB,.653E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 16  30.0
+ZAER (:,16, 2) = (/&
+&.862E-02_JPRB,.862E-02_JPRB,.756E-02_JPRB,.756E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.817E-02_JPRB,&
+&.817E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.928E-02_JPRB,.928E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.599E-02_JPRB,&
+&.599E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,&
+&.711E-02_JPRB,.711E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.946E-02_JPRB,.946E-02_JPRB,.944E-02_JPRB,&
+&.944E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.479E-02_JPRB,.479E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.918E-02_JPRB,&
+&.918E-02_JPRB,.929E-02_JPRB,.929E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,&
+&.821E-02_JPRB,.821E-02_JPRB,.608E-02_JPRB,.608E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,&
+&.906E-02_JPRB,.906E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 17  26.0
+ZAER (:,17, 2) = (/&
+&.862E-02_JPRB,.862E-02_JPRB,.756E-02_JPRB,.756E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.817E-02_JPRB,&
+&.817E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.928E-02_JPRB,.928E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.599E-02_JPRB,&
+&.599E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,&
+&.711E-02_JPRB,.711E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.946E-02_JPRB,.946E-02_JPRB,.944E-02_JPRB,&
+&.944E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.479E-02_JPRB,.479E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.918E-02_JPRB,&
+&.918E-02_JPRB,.929E-02_JPRB,.929E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,&
+&.821E-02_JPRB,.821E-02_JPRB,.608E-02_JPRB,.608E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,&
+&.906E-02_JPRB,.906E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 18  22.0
+ZAER (:,18, 2) = (/&
+&.818E-02_JPRB,.818E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.937E-02_JPRB,.937E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.521E-02_JPRB,&
+&.521E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.507E-03_JPRB,.507E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.728E-02_JPRB,.728E-02_JPRB,.956E-02_JPRB,.956E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.793E-02_JPRB,&
+&.793E-02_JPRB,.577E-02_JPRB,.577E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,.681E-03_JPRB,.681E-03_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.694E-02_JPRB,.694E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.884E-02_JPRB,.884E-02_JPRB,.633E-02_JPRB,.633E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,.291E-02_JPRB,&
+&.291E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,&
+&.709E-02_JPRB,.709E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 19  18.0
+ZAER (:,19, 2) = (/&
+&.818E-02_JPRB,.818E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.937E-02_JPRB,.937E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.521E-02_JPRB,&
+&.521E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.507E-03_JPRB,.507E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.728E-02_JPRB,.728E-02_JPRB,.956E-02_JPRB,.956E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.793E-02_JPRB,&
+&.793E-02_JPRB,.577E-02_JPRB,.577E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,.681E-03_JPRB,.681E-03_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.694E-02_JPRB,.694E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.884E-02_JPRB,.884E-02_JPRB,.633E-02_JPRB,.633E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,.291E-02_JPRB,&
+&.291E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,&
+&.709E-02_JPRB,.709E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 20  14.0
+ZAER (:,20, 2) = (/&
+&.869E-02_JPRB,.869E-02_JPRB,.129E-01_JPRB,.129E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.936E-02_JPRB,.936E-02_JPRB,.711E-02_JPRB,.711E-02_JPRB,.520E-02_JPRB,.520E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.485E-03_JPRB,.485E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.780E-02_JPRB,.780E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.643E-02_JPRB,&
+&.643E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.544E-03_JPRB,.544E-03_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.473E-02_JPRB,.473E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.875E-02_JPRB,&
+&.875E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.462E-02_JPRB,.462E-02_JPRB,.361E-02_JPRB,&
+&.361E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,&
+&.559E-02_JPRB,.559E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 21  10.0
+ZAER (:,21, 2) = (/&
+&.869E-02_JPRB,.869E-02_JPRB,.129E-01_JPRB,.129E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.936E-02_JPRB,.936E-02_JPRB,.711E-02_JPRB,.711E-02_JPRB,.520E-02_JPRB,.520E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.485E-03_JPRB,.485E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.780E-02_JPRB,.780E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.643E-02_JPRB,&
+&.643E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.544E-03_JPRB,.544E-03_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.473E-02_JPRB,.473E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.875E-02_JPRB,&
+&.875E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.462E-02_JPRB,.462E-02_JPRB,.361E-02_JPRB,&
+&.361E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,&
+&.559E-02_JPRB,.559E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 22   6.0
+ZAER (:,22, 2) = (/&
+&.146E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,&
+&.149E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.445E-03_JPRB,.445E-03_JPRB,.505E-03_JPRB,.505E-03_JPRB,.217E-02_JPRB,.217E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.882E-02_JPRB,.882E-02_JPRB,.661E-02_JPRB,&
+&.661E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.398E-02_JPRB,.398E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,.814E-02_JPRB,.814E-02_JPRB,.766E-02_JPRB,&
+&.766E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.490E-02_JPRB,.490E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,&
+&.302E-02_JPRB,.302E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.416E-02_JPRB,&
+&.416E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 23   2.0
+ZAER (:,23, 2) = (/&
+&.146E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,&
+&.149E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.445E-03_JPRB,.445E-03_JPRB,.505E-03_JPRB,.505E-03_JPRB,.217E-02_JPRB,.217E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.882E-02_JPRB,.882E-02_JPRB,.661E-02_JPRB,&
+&.661E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.398E-02_JPRB,.398E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,.814E-02_JPRB,.814E-02_JPRB,.766E-02_JPRB,&
+&.766E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.490E-02_JPRB,.490E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,&
+&.302E-02_JPRB,.302E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.416E-02_JPRB,&
+&.416E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 24  -2.0
+ZAER (:,24, 2) = (/&
+&.148E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.913E-02_JPRB,.913E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.655E-02_JPRB,.655E-02_JPRB,.421E-02_JPRB,&
+&.421E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.952E-02_JPRB,.952E-02_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.929E-02_JPRB,.929E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.531E-02_JPRB,&
+&.531E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,&
+&.525E-02_JPRB,.525E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.963E-02_JPRB,&
+&.963E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.647E-02_JPRB,.647E-02_JPRB,&
+&.549E-02_JPRB,.549E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,&
+&.152E-01_JPRB,.152E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 25  -6.0
+ZAER (:,25, 2) = (/&
+&.148E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.913E-02_JPRB,.913E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.655E-02_JPRB,.655E-02_JPRB,.421E-02_JPRB,&
+&.421E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.952E-02_JPRB,.952E-02_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.929E-02_JPRB,.929E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.531E-02_JPRB,&
+&.531E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,&
+&.525E-02_JPRB,.525E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.963E-02_JPRB,&
+&.963E-02_JPRB,.782E-02_JPRB,.782E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.647E-02_JPRB,.647E-02_JPRB,&
+&.549E-02_JPRB,.549E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,&
+&.152E-01_JPRB,.152E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 26 -10.0
+ZAER (:,26, 2) = (/&
+&.146E-01_JPRB,.146E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.932E-02_JPRB,.932E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.931E-02_JPRB,.931E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,.489E-02_JPRB,&
+&.489E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,&
+&.385E-02_JPRB,.385E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.955E-02_JPRB,.955E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,&
+&.673E-02_JPRB,.673E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,.995E-02_JPRB,.995E-02_JPRB,.160E-01_JPRB,&
+&.160E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,&
+&.157E-01_JPRB,.157E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 27 -14.0
+ZAER (:,27, 2) = (/&
+&.146E-01_JPRB,.146E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.932E-02_JPRB,.932E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.931E-02_JPRB,.931E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,.489E-02_JPRB,&
+&.489E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,&
+&.385E-02_JPRB,.385E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.955E-02_JPRB,.955E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,&
+&.673E-02_JPRB,.673E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,.995E-02_JPRB,.995E-02_JPRB,.160E-01_JPRB,&
+&.160E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,&
+&.157E-01_JPRB,.157E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 28 -18.0
+ZAER (:,28, 2) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.967E-02_JPRB,.967E-02_JPRB,.857E-02_JPRB,.857E-02_JPRB,&
+&.857E-02_JPRB,.857E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.839E-02_JPRB,.839E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.372E-02_JPRB,&
+&.372E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.345E-02_JPRB,.345E-02_JPRB,.537E-02_JPRB,&
+&.537E-02_JPRB,.580E-02_JPRB,.580E-02_JPRB,.526E-02_JPRB,.526E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,&
+&.458E-02_JPRB,.458E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.157E-01_JPRB,&
+&.157E-01_JPRB,.193E-01_JPRB,.193E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 29 -22.0
+ZAER (:,29, 2) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.967E-02_JPRB,.967E-02_JPRB,.857E-02_JPRB,.857E-02_JPRB,&
+&.857E-02_JPRB,.857E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.839E-02_JPRB,.839E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.372E-02_JPRB,&
+&.372E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.345E-02_JPRB,.345E-02_JPRB,.537E-02_JPRB,&
+&.537E-02_JPRB,.580E-02_JPRB,.580E-02_JPRB,.526E-02_JPRB,.526E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,&
+&.458E-02_JPRB,.458E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.157E-01_JPRB,&
+&.157E-01_JPRB,.193E-01_JPRB,.193E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 30 -26.0
+ZAER (:,30, 2) = (/&
+&.123E-01_JPRB,.123E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.989E-02_JPRB,.989E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.998E-02_JPRB,.998E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,&
+&.404E-02_JPRB,.404E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.849E-02_JPRB,&
+&.849E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.955E-02_JPRB,.955E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.394E-02_JPRB,&
+&.394E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,&
+&.257E-02_JPRB,.257E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.204E-02_JPRB,&
+&.204E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.292E-02_JPRB,.292E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,&
+&.196E-02_JPRB,.196E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,.893E-02_JPRB,&
+&.893E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 31 -30.0
+ZAER (:,31, 2) = (/&
+&.123E-01_JPRB,.123E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.989E-02_JPRB,.989E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.998E-02_JPRB,.998E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,&
+&.404E-02_JPRB,.404E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.849E-02_JPRB,&
+&.849E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.955E-02_JPRB,.955E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.394E-02_JPRB,&
+&.394E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,&
+&.257E-02_JPRB,.257E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.204E-02_JPRB,&
+&.204E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.292E-02_JPRB,.292E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,&
+&.196E-02_JPRB,.196E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,.893E-02_JPRB,&
+&.893E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 32 -34.0
+ZAER (:,32, 2) = (/&
+&.123E-01_JPRB,.123E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.984E-02_JPRB,.984E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,&
+&.183E-02_JPRB,.183E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.336E-02_JPRB,&
+&.336E-02_JPRB,.894E-02_JPRB,.894E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.579E-02_JPRB,&
+&.579E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,&
+&.327E-02_JPRB,.327E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.970E-03_JPRB,&
+&.970E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.832E-03_JPRB,.832E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.243E-02_JPRB,.243E-02_JPRB,.337E-02_JPRB,&
+&.337E-02_JPRB,.551E-02_JPRB,.551E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 33 -38.0
+ZAER (:,33, 2) = (/&
+&.123E-01_JPRB,.123E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.984E-02_JPRB,.984E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,&
+&.183E-02_JPRB,.183E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.336E-02_JPRB,&
+&.336E-02_JPRB,.894E-02_JPRB,.894E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.579E-02_JPRB,&
+&.579E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,&
+&.327E-02_JPRB,.327E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.970E-03_JPRB,&
+&.970E-03_JPRB,.947E-03_JPRB,.947E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.832E-03_JPRB,.832E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.243E-02_JPRB,.243E-02_JPRB,.337E-02_JPRB,&
+&.337E-02_JPRB,.551E-02_JPRB,.551E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 34 -42.0
+ZAER (:,34, 2) = (/&
+&.143E-01_JPRB,.143E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.816E-02_JPRB,.816E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,&
+&.195E-02_JPRB,.195E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.911E-03_JPRB,&
+&.911E-03_JPRB,.286E-02_JPRB,.286E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.653E-02_JPRB,.653E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,.301E-02_JPRB,.301E-02_JPRB,&
+&.305E-02_JPRB,.305E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.787E-03_JPRB,.787E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.576E-03_JPRB,.576E-03_JPRB,&
+&.512E-03_JPRB,.512E-03_JPRB,.472E-03_JPRB,.472E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.479E-02_JPRB,.479E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 35 -46.0
+ZAER (:,35, 2) = (/&
+&.143E-01_JPRB,.143E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.816E-02_JPRB,.816E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,&
+&.195E-02_JPRB,.195E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.911E-03_JPRB,&
+&.911E-03_JPRB,.286E-02_JPRB,.286E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.653E-02_JPRB,.653E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,.301E-02_JPRB,.301E-02_JPRB,&
+&.305E-02_JPRB,.305E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.787E-03_JPRB,.787E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.576E-03_JPRB,.576E-03_JPRB,&
+&.512E-03_JPRB,.512E-03_JPRB,.472E-03_JPRB,.472E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.479E-02_JPRB,.479E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 36 -50.0
+ZAER (:,36, 2) = (/&
+&.138E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.632E-02_JPRB,.632E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,&
+&.161E-02_JPRB,.161E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.860E-03_JPRB,.860E-03_JPRB,.427E-02_JPRB,.427E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB,.192E-01_JPRB,.192E-01_JPRB,.234E-01_JPRB,.234E-01_JPRB,.174E-01_JPRB,&
+&.174E-01_JPRB,.995E-02_JPRB,.995E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.222E-02_JPRB,.222E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.913E-03_JPRB,.913E-03_JPRB,.747E-03_JPRB,.747E-03_JPRB,.597E-03_JPRB,.597E-03_JPRB,&
+&.548E-03_JPRB,.548E-03_JPRB,.624E-03_JPRB,.624E-03_JPRB,.822E-03_JPRB,.822E-03_JPRB,.928E-03_JPRB,&
+&.928E-03_JPRB,.972E-03_JPRB,.972E-03_JPRB,.209E-02_JPRB,.209E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 37 -54.0
+ZAER (:,37, 2) = (/&
+&.138E-01_JPRB,.138E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.632E-02_JPRB,.632E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,&
+&.161E-02_JPRB,.161E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.102E-02_JPRB,&
+&.102E-02_JPRB,.860E-03_JPRB,.860E-03_JPRB,.427E-02_JPRB,.427E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB,.192E-01_JPRB,.192E-01_JPRB,.234E-01_JPRB,.234E-01_JPRB,.174E-01_JPRB,&
+&.174E-01_JPRB,.995E-02_JPRB,.995E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.222E-02_JPRB,.222E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.913E-03_JPRB,.913E-03_JPRB,.747E-03_JPRB,.747E-03_JPRB,.597E-03_JPRB,.597E-03_JPRB,&
+&.548E-03_JPRB,.548E-03_JPRB,.624E-03_JPRB,.624E-03_JPRB,.822E-03_JPRB,.822E-03_JPRB,.928E-03_JPRB,&
+&.928E-03_JPRB,.972E-03_JPRB,.972E-03_JPRB,.209E-02_JPRB,.209E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 38 -58.0
+ZAER (:,38, 2) = (/&
+&.645E-02_JPRB,.645E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.636E-02_JPRB,.636E-02_JPRB,.822E-02_JPRB,&
+&.822E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.312E-02_JPRB,.312E-02_JPRB,.206E-02_JPRB,&
+&.206E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.162E-01_JPRB,&
+&.162E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.605E-02_JPRB,.605E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.995E-03_JPRB,&
+&.995E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,&
+&.730E-03_JPRB,.730E-03_JPRB,.975E-03_JPRB,.975E-03_JPRB,.119E-02_JPRB,.119E-02_JPRB,.147E-02_JPRB,&
+&.147E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.443E-02_JPRB,.443E-02_JPRB,&
+&.715E-02_JPRB,.715E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 39 -62.0
+ZAER (:,39, 2) = (/&
+&.645E-02_JPRB,.645E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.636E-02_JPRB,.636E-02_JPRB,.822E-02_JPRB,&
+&.822E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.312E-02_JPRB,.312E-02_JPRB,.206E-02_JPRB,&
+&.206E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.162E-01_JPRB,&
+&.162E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.605E-02_JPRB,.605E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.995E-03_JPRB,&
+&.995E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,&
+&.730E-03_JPRB,.730E-03_JPRB,.975E-03_JPRB,.975E-03_JPRB,.119E-02_JPRB,.119E-02_JPRB,.147E-02_JPRB,&
+&.147E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.443E-02_JPRB,.443E-02_JPRB,&
+&.715E-02_JPRB,.715E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 40 -66.0
+ZAER (:,40, 2) = (/&
+&.193E-02_JPRB,.193E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.253E-02_JPRB,&
+&.253E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.154E-02_JPRB,&
+&.154E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,.480E-02_JPRB,.480E-02_JPRB,&
+&.426E-02_JPRB,.426E-02_JPRB,.779E-02_JPRB,.779E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.439E-02_JPRB,.439E-02_JPRB,&
+&.325E-02_JPRB,.325E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.931E-03_JPRB,&
+&.931E-03_JPRB,.651E-03_JPRB,.651E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.797E-03_JPRB,.797E-03_JPRB,&
+&.944E-03_JPRB,.944E-03_JPRB,.117E-02_JPRB,.117E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 41 -70.0
+ZAER (:,41, 2) = (/&
+&.193E-02_JPRB,.193E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.253E-02_JPRB,&
+&.253E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.154E-02_JPRB,&
+&.154E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,.480E-02_JPRB,.480E-02_JPRB,&
+&.426E-02_JPRB,.426E-02_JPRB,.779E-02_JPRB,.779E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.439E-02_JPRB,.439E-02_JPRB,&
+&.325E-02_JPRB,.325E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.931E-03_JPRB,&
+&.931E-03_JPRB,.651E-03_JPRB,.651E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.797E-03_JPRB,.797E-03_JPRB,&
+&.944E-03_JPRB,.944E-03_JPRB,.117E-02_JPRB,.117E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 42 -74.0
+ZAER (:,42, 2) = (/&
+&.868E-03_JPRB,.868E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.951E-03_JPRB,&
+&.951E-03_JPRB,.970E-03_JPRB,.970E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.152E-02_JPRB,&
+&.152E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.272E-02_JPRB,.272E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.334E-02_JPRB,.334E-02_JPRB,.611E-02_JPRB,&
+&.611E-02_JPRB,.824E-02_JPRB,.824E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,&
+&.433E-02_JPRB,.433E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.912E-03_JPRB,.912E-03_JPRB,.667E-03_JPRB,&
+&.667E-03_JPRB,.678E-03_JPRB,.678E-03_JPRB,.755E-03_JPRB,.755E-03_JPRB,.738E-03_JPRB,.738E-03_JPRB,&
+&.752E-03_JPRB,.752E-03_JPRB,.842E-03_JPRB,.842E-03_JPRB,.942E-03_JPRB,.942E-03_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.884E-03_JPRB,.884E-03_JPRB,.846E-03_JPRB,.846E-03_JPRB,.835E-03_JPRB,.835E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 43 -78.0
+ZAER (:,43, 2) = (/&
+&.868E-03_JPRB,.868E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.976E-03_JPRB,.951E-03_JPRB,&
+&.951E-03_JPRB,.970E-03_JPRB,.970E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.152E-02_JPRB,&
+&.152E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.272E-02_JPRB,.272E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.334E-02_JPRB,.334E-02_JPRB,.611E-02_JPRB,&
+&.611E-02_JPRB,.824E-02_JPRB,.824E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,&
+&.433E-02_JPRB,.433E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.912E-03_JPRB,.912E-03_JPRB,.667E-03_JPRB,&
+&.667E-03_JPRB,.678E-03_JPRB,.678E-03_JPRB,.755E-03_JPRB,.755E-03_JPRB,.738E-03_JPRB,.738E-03_JPRB,&
+&.752E-03_JPRB,.752E-03_JPRB,.842E-03_JPRB,.842E-03_JPRB,.942E-03_JPRB,.942E-03_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.884E-03_JPRB,.884E-03_JPRB,.846E-03_JPRB,.846E-03_JPRB,.835E-03_JPRB,.835E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 44 -82.0
+ZAER (:,44, 2) = (/&
+&.808E-03_JPRB,.808E-03_JPRB,.829E-03_JPRB,.829E-03_JPRB,.874E-03_JPRB,.874E-03_JPRB,.926E-03_JPRB,&
+&.926E-03_JPRB,.979E-03_JPRB,.979E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.128E-02_JPRB,&
+&.128E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.989E-03_JPRB,.989E-03_JPRB,&
+&.979E-03_JPRB,.979E-03_JPRB,.105E-02_JPRB,.105E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.840E-03_JPRB,.840E-03_JPRB,.715E-03_JPRB,.715E-03_JPRB,.664E-03_JPRB,.664E-03_JPRB,.638E-03_JPRB,&
+&.638E-03_JPRB,.640E-03_JPRB,.640E-03_JPRB,.646E-03_JPRB,.646E-03_JPRB,.639E-03_JPRB,.639E-03_JPRB,&
+&.646E-03_JPRB,.646E-03_JPRB,.649E-03_JPRB,.649E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.664E-03_JPRB,&
+&.664E-03_JPRB,.688E-03_JPRB,.688E-03_JPRB,.716E-03_JPRB,.716E-03_JPRB,.749E-03_JPRB,.749E-03_JPRB,&
+&.786E-03_JPRB,.786E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 45 -86.0
+ZAER (:,45, 2) = (/&
+&.808E-03_JPRB,.808E-03_JPRB,.829E-03_JPRB,.829E-03_JPRB,.874E-03_JPRB,.874E-03_JPRB,.926E-03_JPRB,&
+&.926E-03_JPRB,.979E-03_JPRB,.979E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.128E-02_JPRB,&
+&.128E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.989E-03_JPRB,.989E-03_JPRB,&
+&.979E-03_JPRB,.979E-03_JPRB,.105E-02_JPRB,.105E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.840E-03_JPRB,.840E-03_JPRB,.715E-03_JPRB,.715E-03_JPRB,.664E-03_JPRB,.664E-03_JPRB,.638E-03_JPRB,&
+&.638E-03_JPRB,.640E-03_JPRB,.640E-03_JPRB,.646E-03_JPRB,.646E-03_JPRB,.639E-03_JPRB,.639E-03_JPRB,&
+&.646E-03_JPRB,.646E-03_JPRB,.649E-03_JPRB,.649E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.664E-03_JPRB,&
+&.664E-03_JPRB,.688E-03_JPRB,.688E-03_JPRB,.716E-03_JPRB,.716E-03_JPRB,.749E-03_JPRB,.749E-03_JPRB,&
+&.786E-03_JPRB,.786E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  2 --- lat: 46 -90.0
+ZAER (:,46, 2) = (/&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.612E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=2   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_02
Index: LMDZ5/branches/testing/libf/phymar/suecaess_03.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_03.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_03.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_03
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      March
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,3:3)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  3 --- lat:  1  90.0
+ZAER (:, 1, 3) = (/&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,&
+&.240E-03_JPRB,.240E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  2  86.0
+ZAER (:, 2, 3) = (/&
+&.400E-03_JPRB,.400E-03_JPRB,.450E-03_JPRB,.450E-03_JPRB,.486E-03_JPRB,.486E-03_JPRB,.523E-03_JPRB,&
+&.523E-03_JPRB,.558E-03_JPRB,.558E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,&
+&.585E-03_JPRB,.585E-03_JPRB,.555E-03_JPRB,.555E-03_JPRB,.534E-03_JPRB,.534E-03_JPRB,.526E-03_JPRB,&
+&.526E-03_JPRB,.520E-03_JPRB,.520E-03_JPRB,.508E-03_JPRB,.508E-03_JPRB,.488E-03_JPRB,.488E-03_JPRB,&
+&.448E-03_JPRB,.448E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,.251E-03_JPRB,&
+&.251E-03_JPRB,.192E-03_JPRB,.192E-03_JPRB,.169E-03_JPRB,.169E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,&
+&.159E-03_JPRB,.159E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.158E-03_JPRB,&
+&.158E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,&
+&.173E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.184E-03_JPRB,.184E-03_JPRB,.199E-03_JPRB,&
+&.199E-03_JPRB,.225E-03_JPRB,.225E-03_JPRB,.260E-03_JPRB,.260E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,&
+&.355E-03_JPRB,.355E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  3  82.0
+ZAER (:, 3, 3) = (/&
+&.400E-03_JPRB,.400E-03_JPRB,.450E-03_JPRB,.450E-03_JPRB,.486E-03_JPRB,.486E-03_JPRB,.523E-03_JPRB,&
+&.523E-03_JPRB,.558E-03_JPRB,.558E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,&
+&.585E-03_JPRB,.585E-03_JPRB,.555E-03_JPRB,.555E-03_JPRB,.534E-03_JPRB,.534E-03_JPRB,.526E-03_JPRB,&
+&.526E-03_JPRB,.520E-03_JPRB,.520E-03_JPRB,.508E-03_JPRB,.508E-03_JPRB,.488E-03_JPRB,.488E-03_JPRB,&
+&.448E-03_JPRB,.448E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,.251E-03_JPRB,&
+&.251E-03_JPRB,.192E-03_JPRB,.192E-03_JPRB,.169E-03_JPRB,.169E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,&
+&.159E-03_JPRB,.159E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,.158E-03_JPRB,&
+&.158E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,.156E-03_JPRB,.156E-03_JPRB,.164E-03_JPRB,.164E-03_JPRB,&
+&.173E-03_JPRB,.173E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.184E-03_JPRB,.184E-03_JPRB,.199E-03_JPRB,&
+&.199E-03_JPRB,.225E-03_JPRB,.225E-03_JPRB,.260E-03_JPRB,.260E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,&
+&.355E-03_JPRB,.355E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  4  78.0
+ZAER (:, 4, 3) = (/&
+&.429E-03_JPRB,.429E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.860E-03_JPRB,.860E-03_JPRB,.777E-03_JPRB,&
+&.777E-03_JPRB,.695E-03_JPRB,.695E-03_JPRB,.675E-03_JPRB,.675E-03_JPRB,.751E-03_JPRB,.751E-03_JPRB,&
+&.960E-03_JPRB,.960E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.962E-03_JPRB,.962E-03_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.889E-03_JPRB,.889E-03_JPRB,.736E-03_JPRB,.736E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.400E-03_JPRB,&
+&.400E-03_JPRB,.236E-03_JPRB,.236E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,&
+&.152E-03_JPRB,.152E-03_JPRB,.178E-03_JPRB,.178E-03_JPRB,.193E-03_JPRB,.193E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.214E-03_JPRB,.214E-03_JPRB,.243E-03_JPRB,.243E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,&
+&.270E-03_JPRB,.270E-03_JPRB,.244E-03_JPRB,.244E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.181E-03_JPRB,&
+&.181E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,.227E-03_JPRB,.227E-03_JPRB,.301E-03_JPRB,.301E-03_JPRB,&
+&.348E-03_JPRB,.348E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  5  74.0
+ZAER (:, 5, 3) = (/&
+&.429E-03_JPRB,.429E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.860E-03_JPRB,.860E-03_JPRB,.777E-03_JPRB,&
+&.777E-03_JPRB,.695E-03_JPRB,.695E-03_JPRB,.675E-03_JPRB,.675E-03_JPRB,.751E-03_JPRB,.751E-03_JPRB,&
+&.960E-03_JPRB,.960E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.962E-03_JPRB,.962E-03_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.889E-03_JPRB,.889E-03_JPRB,.736E-03_JPRB,.736E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.400E-03_JPRB,&
+&.400E-03_JPRB,.236E-03_JPRB,.236E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,&
+&.152E-03_JPRB,.152E-03_JPRB,.178E-03_JPRB,.178E-03_JPRB,.193E-03_JPRB,.193E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.214E-03_JPRB,.214E-03_JPRB,.243E-03_JPRB,.243E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,&
+&.270E-03_JPRB,.270E-03_JPRB,.244E-03_JPRB,.244E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.181E-03_JPRB,&
+&.181E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,.227E-03_JPRB,.227E-03_JPRB,.301E-03_JPRB,.301E-03_JPRB,&
+&.348E-03_JPRB,.348E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  6  70.0
+ZAER (:, 6, 3) = (/&
+&.308E-02_JPRB,.308E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,.224E-02_JPRB,&
+&.224E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.269E-02_JPRB,&
+&.269E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.941E-03_JPRB,.941E-03_JPRB,.764E-03_JPRB,.764E-03_JPRB,.564E-03_JPRB,&
+&.564E-03_JPRB,.364E-03_JPRB,.364E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,&
+&.299E-03_JPRB,.299E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,.543E-03_JPRB,&
+&.543E-03_JPRB,.718E-03_JPRB,.718E-03_JPRB,.942E-03_JPRB,.942E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.768E-03_JPRB,&
+&.768E-03_JPRB,.523E-03_JPRB,.523E-03_JPRB,.609E-03_JPRB,.609E-03_JPRB,.955E-03_JPRB,.955E-03_JPRB,&
+&.185E-02_JPRB,.185E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  7  66.0
+ZAER (:, 7, 3) = (/&
+&.308E-02_JPRB,.308E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,.224E-02_JPRB,&
+&.224E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,.268E-02_JPRB,.268E-02_JPRB,.269E-02_JPRB,&
+&.269E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.941E-03_JPRB,.941E-03_JPRB,.764E-03_JPRB,.764E-03_JPRB,.564E-03_JPRB,&
+&.564E-03_JPRB,.364E-03_JPRB,.364E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,&
+&.299E-03_JPRB,.299E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,.543E-03_JPRB,&
+&.543E-03_JPRB,.718E-03_JPRB,.718E-03_JPRB,.942E-03_JPRB,.942E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.768E-03_JPRB,&
+&.768E-03_JPRB,.523E-03_JPRB,.523E-03_JPRB,.609E-03_JPRB,.609E-03_JPRB,.955E-03_JPRB,.955E-03_JPRB,&
+&.185E-02_JPRB,.185E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  8  62.0
+ZAER (:, 8, 3) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.965E-02_JPRB,.965E-02_JPRB,.819E-02_JPRB,.819E-02_JPRB,.558E-02_JPRB,&
+&.558E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.957E-02_JPRB,.957E-02_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.989E-02_JPRB,&
+&.989E-02_JPRB,.642E-02_JPRB,.642E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,&
+&.171E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.949E-03_JPRB,.949E-03_JPRB,.844E-03_JPRB,.844E-03_JPRB,&
+&.957E-03_JPRB,.957E-03_JPRB,.247E-02_JPRB,.247E-02_JPRB,.362E-02_JPRB,.362E-02_JPRB,.332E-02_JPRB,&
+&.332E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,&
+&.713E-02_JPRB,.713E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.680E-02_JPRB,&
+&.680E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,&
+&.964E-02_JPRB,.964E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat:  9  58.0
+ZAER (:, 9, 3) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.965E-02_JPRB,.965E-02_JPRB,.819E-02_JPRB,.819E-02_JPRB,.558E-02_JPRB,&
+&.558E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.957E-02_JPRB,.957E-02_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.989E-02_JPRB,&
+&.989E-02_JPRB,.642E-02_JPRB,.642E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,&
+&.171E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.949E-03_JPRB,.949E-03_JPRB,.844E-03_JPRB,.844E-03_JPRB,&
+&.957E-03_JPRB,.957E-03_JPRB,.247E-02_JPRB,.247E-02_JPRB,.362E-02_JPRB,.362E-02_JPRB,.332E-02_JPRB,&
+&.332E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,&
+&.713E-02_JPRB,.713E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.680E-02_JPRB,&
+&.680E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,&
+&.964E-02_JPRB,.964E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 10  54.0
+ZAER (:,10, 3) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.939E-02_JPRB,.939E-02_JPRB,.882E-02_JPRB,&
+&.882E-02_JPRB,.829E-02_JPRB,.829E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.938E-02_JPRB,.938E-02_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.971E-02_JPRB,&
+&.971E-02_JPRB,.629E-02_JPRB,.629E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.733E-02_JPRB,.733E-02_JPRB,&
+&.771E-02_JPRB,.771E-02_JPRB,.802E-02_JPRB,.802E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.680E-02_JPRB,&
+&.680E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,&
+&.687E-02_JPRB,.687E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.878E-02_JPRB,.878E-02_JPRB,.876E-02_JPRB,&
+&.876E-02_JPRB,.931E-02_JPRB,.931E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 11  50.0
+ZAER (:,11, 3) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.939E-02_JPRB,.939E-02_JPRB,.882E-02_JPRB,&
+&.882E-02_JPRB,.829E-02_JPRB,.829E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.938E-02_JPRB,.938E-02_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.971E-02_JPRB,&
+&.971E-02_JPRB,.629E-02_JPRB,.629E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.733E-02_JPRB,.733E-02_JPRB,&
+&.771E-02_JPRB,.771E-02_JPRB,.802E-02_JPRB,.802E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.680E-02_JPRB,&
+&.680E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,&
+&.687E-02_JPRB,.687E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.878E-02_JPRB,.878E-02_JPRB,.876E-02_JPRB,&
+&.876E-02_JPRB,.931E-02_JPRB,.931E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 12  46.0
+ZAER (:,12, 3) = (/&
+&.828E-02_JPRB,.828E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,.743E-02_JPRB,&
+&.743E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.691E-02_JPRB,.691E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,&
+&.786E-02_JPRB,.786E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.628E-02_JPRB,&
+&.628E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.831E-02_JPRB,.831E-02_JPRB,&
+&.879E-02_JPRB,.879E-02_JPRB,.896E-02_JPRB,.896E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.821E-02_JPRB,&
+&.821E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.705E-02_JPRB,.705E-02_JPRB,.699E-02_JPRB,.699E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.819E-02_JPRB,&
+&.819E-02_JPRB,.898E-02_JPRB,.898E-02_JPRB,.954E-02_JPRB,.954E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.969E-02_JPRB,&
+&.969E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,&
+&.656E-02_JPRB,.656E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 13  42.0
+ZAER (:,13, 3) = (/&
+&.828E-02_JPRB,.828E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,.743E-02_JPRB,&
+&.743E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.691E-02_JPRB,.691E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,&
+&.786E-02_JPRB,.786E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.628E-02_JPRB,&
+&.628E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.831E-02_JPRB,.831E-02_JPRB,&
+&.879E-02_JPRB,.879E-02_JPRB,.896E-02_JPRB,.896E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.821E-02_JPRB,&
+&.821E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,&
+&.705E-02_JPRB,.705E-02_JPRB,.699E-02_JPRB,.699E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.819E-02_JPRB,&
+&.819E-02_JPRB,.898E-02_JPRB,.898E-02_JPRB,.954E-02_JPRB,.954E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.969E-02_JPRB,&
+&.969E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,&
+&.656E-02_JPRB,.656E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 14  38.0
+ZAER (:,14, 3) = (/&
+&.704E-02_JPRB,.704E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.756E-02_JPRB,&
+&.756E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.745E-02_JPRB,.745E-02_JPRB,&
+&.773E-02_JPRB,.773E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.605E-02_JPRB,&
+&.605E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.425E-02_JPRB,.425E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,&
+&.819E-02_JPRB,.819E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.845E-02_JPRB,&
+&.845E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,&
+&.736E-02_JPRB,.736E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,&
+&.802E-02_JPRB,.802E-02_JPRB,.705E-02_JPRB,.705E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.562E-02_JPRB,&
+&.562E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,.820E-02_JPRB,.820E-02_JPRB,&
+&.705E-02_JPRB,.705E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 15  34.0
+ZAER (:,15, 3) = (/&
+&.704E-02_JPRB,.704E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.756E-02_JPRB,&
+&.756E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.745E-02_JPRB,.745E-02_JPRB,&
+&.773E-02_JPRB,.773E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.605E-02_JPRB,&
+&.605E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.425E-02_JPRB,.425E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,&
+&.819E-02_JPRB,.819E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.845E-02_JPRB,&
+&.845E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,&
+&.736E-02_JPRB,.736E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,&
+&.802E-02_JPRB,.802E-02_JPRB,.705E-02_JPRB,.705E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.562E-02_JPRB,&
+&.562E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,.820E-02_JPRB,.820E-02_JPRB,&
+&.705E-02_JPRB,.705E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 16  30.0
+ZAER (:,16, 3) = (/&
+&.847E-02_JPRB,.847E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.771E-02_JPRB,&
+&.771E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.942E-02_JPRB,.942E-02_JPRB,.782E-02_JPRB,&
+&.782E-02_JPRB,.432E-02_JPRB,.432E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.427E-02_JPRB,.427E-02_JPRB,&
+&.752E-02_JPRB,.752E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.930E-02_JPRB,.930E-02_JPRB,.906E-02_JPRB,&
+&.906E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.289E-02_JPRB,.289E-02_JPRB,&
+&.477E-02_JPRB,.477E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,.847E-02_JPRB,.847E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.904E-02_JPRB,.904E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.299E-02_JPRB,&
+&.299E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.621E-02_JPRB,.621E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 17  26.0
+ZAER (:,17, 3) = (/&
+&.847E-02_JPRB,.847E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.771E-02_JPRB,&
+&.771E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.942E-02_JPRB,.942E-02_JPRB,.782E-02_JPRB,&
+&.782E-02_JPRB,.432E-02_JPRB,.432E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.427E-02_JPRB,.427E-02_JPRB,&
+&.752E-02_JPRB,.752E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.930E-02_JPRB,.930E-02_JPRB,.906E-02_JPRB,&
+&.906E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.289E-02_JPRB,.289E-02_JPRB,&
+&.477E-02_JPRB,.477E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,.847E-02_JPRB,.847E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.904E-02_JPRB,.904E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.299E-02_JPRB,&
+&.299E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.621E-02_JPRB,.621E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 18  22.0
+ZAER (:,18, 3) = (/&
+&.839E-02_JPRB,.839E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.851E-02_JPRB,&
+&.851E-02_JPRB,.908E-02_JPRB,.908E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.715E-03_JPRB,.715E-03_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.643E-02_JPRB,.643E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.918E-02_JPRB,&
+&.918E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.272E-02_JPRB,.272E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.766E-02_JPRB,.766E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.329E-02_JPRB,&
+&.329E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.953E-02_JPRB,.953E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 19  18.0
+ZAER (:,19, 3) = (/&
+&.839E-02_JPRB,.839E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.851E-02_JPRB,&
+&.851E-02_JPRB,.908E-02_JPRB,.908E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.715E-03_JPRB,.715E-03_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.643E-02_JPRB,.643E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.918E-02_JPRB,&
+&.918E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.272E-02_JPRB,.272E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.766E-02_JPRB,.766E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.329E-02_JPRB,&
+&.329E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.953E-02_JPRB,.953E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 20  14.0
+ZAER (:,20, 3) = (/&
+&.960E-02_JPRB,.960E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.845E-02_JPRB,.845E-02_JPRB,.653E-02_JPRB,.653E-02_JPRB,.368E-02_JPRB,&
+&.368E-02_JPRB,.549E-03_JPRB,.549E-03_JPRB,.248E-03_JPRB,.248E-03_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.671E-02_JPRB,.671E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.802E-02_JPRB,&
+&.802E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.262E-02_JPRB,.262E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.779E-02_JPRB,.779E-02_JPRB,.584E-02_JPRB,.584E-02_JPRB,.430E-02_JPRB,&
+&.430E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.861E-02_JPRB,.861E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,&
+&.979E-02_JPRB,.979E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 21  10.0
+ZAER (:,21, 3) = (/&
+&.960E-02_JPRB,.960E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.845E-02_JPRB,.845E-02_JPRB,.653E-02_JPRB,.653E-02_JPRB,.368E-02_JPRB,&
+&.368E-02_JPRB,.549E-03_JPRB,.549E-03_JPRB,.248E-03_JPRB,.248E-03_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.671E-02_JPRB,.671E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.802E-02_JPRB,&
+&.802E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.262E-02_JPRB,.262E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.779E-02_JPRB,.779E-02_JPRB,.584E-02_JPRB,.584E-02_JPRB,.430E-02_JPRB,&
+&.430E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.861E-02_JPRB,.861E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,&
+&.979E-02_JPRB,.979E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 22   6.0
+ZAER (:,22, 3) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.134E-01_JPRB,&
+&.134E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.882E-02_JPRB,.882E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,.850E-03_JPRB,&
+&.850E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.219E-02_JPRB,.219E-02_JPRB,&
+&.818E-02_JPRB,.818E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.828E-02_JPRB,.828E-02_JPRB,.620E-02_JPRB,&
+&.620E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.486E-02_JPRB,.486E-02_JPRB,.952E-02_JPRB,.952E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.953E-02_JPRB,.953E-02_JPRB,.800E-02_JPRB,.800E-02_JPRB,.621E-02_JPRB,.621E-02_JPRB,&
+&.400E-02_JPRB,.400E-02_JPRB,.443E-02_JPRB,.443E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.546E-02_JPRB,&
+&.546E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 23   2.0
+ZAER (:,23, 3) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.134E-01_JPRB,&
+&.134E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.882E-02_JPRB,.882E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,.850E-03_JPRB,&
+&.850E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.219E-02_JPRB,.219E-02_JPRB,&
+&.818E-02_JPRB,.818E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.828E-02_JPRB,.828E-02_JPRB,.620E-02_JPRB,&
+&.620E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.486E-02_JPRB,.486E-02_JPRB,.952E-02_JPRB,.952E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.953E-02_JPRB,.953E-02_JPRB,.800E-02_JPRB,.800E-02_JPRB,.621E-02_JPRB,.621E-02_JPRB,&
+&.400E-02_JPRB,.400E-02_JPRB,.443E-02_JPRB,.443E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.546E-02_JPRB,&
+&.546E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 24  -2.0
+ZAER (:,24, 3) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.154E-01_JPRB,&
+&.154E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.331E-02_JPRB,&
+&.331E-02_JPRB,.219E-02_JPRB,.219E-02_JPRB,.376E-02_JPRB,.376E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.883E-02_JPRB,.883E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.380E-02_JPRB,&
+&.380E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,&
+&.460E-02_JPRB,.460E-02_JPRB,.716E-02_JPRB,.716E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,.934E-02_JPRB,&
+&.934E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.642E-02_JPRB,.642E-02_JPRB,.562E-02_JPRB,.562E-02_JPRB,&
+&.495E-02_JPRB,.495E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.947E-02_JPRB,&
+&.947E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 25  -6.0
+ZAER (:,25, 3) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.154E-01_JPRB,&
+&.154E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.331E-02_JPRB,&
+&.331E-02_JPRB,.219E-02_JPRB,.219E-02_JPRB,.376E-02_JPRB,.376E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.883E-02_JPRB,.883E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.380E-02_JPRB,&
+&.380E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,&
+&.460E-02_JPRB,.460E-02_JPRB,.716E-02_JPRB,.716E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,.934E-02_JPRB,&
+&.934E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.642E-02_JPRB,.642E-02_JPRB,.562E-02_JPRB,.562E-02_JPRB,&
+&.495E-02_JPRB,.495E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.947E-02_JPRB,&
+&.947E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 26 -10.0
+ZAER (:,26, 3) = (/&
+&.141E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,&
+&.170E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.843E-02_JPRB,.843E-02_JPRB,.921E-02_JPRB,&
+&.921E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.985E-02_JPRB,.985E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.371E-02_JPRB,&
+&.371E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.271E-02_JPRB,.271E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,.659E-02_JPRB,.659E-02_JPRB,.772E-02_JPRB,&
+&.772E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,&
+&.737E-02_JPRB,.737E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 27 -14.0
+ZAER (:,27, 3) = (/&
+&.141E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,&
+&.170E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.843E-02_JPRB,.843E-02_JPRB,.921E-02_JPRB,&
+&.921E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.985E-02_JPRB,.985E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.371E-02_JPRB,&
+&.371E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.271E-02_JPRB,.271E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,.659E-02_JPRB,.659E-02_JPRB,.772E-02_JPRB,&
+&.772E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,&
+&.737E-02_JPRB,.737E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 28 -18.0
+ZAER (:,28, 3) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.993E-02_JPRB,.993E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.997E-02_JPRB,.997E-02_JPRB,.990E-02_JPRB,.990E-02_JPRB,.978E-02_JPRB,&
+&.978E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.872E-02_JPRB,.872E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.383E-02_JPRB,&
+&.383E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,&
+&.281E-02_JPRB,.281E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.461E-02_JPRB,&
+&.461E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.489E-02_JPRB,.489E-02_JPRB,&
+&.485E-02_JPRB,.485E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.144E-01_JPRB,&
+&.144E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 29 -22.0
+ZAER (:,29, 3) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.993E-02_JPRB,.993E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.997E-02_JPRB,.997E-02_JPRB,.990E-02_JPRB,.990E-02_JPRB,.978E-02_JPRB,&
+&.978E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.872E-02_JPRB,.872E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.383E-02_JPRB,&
+&.383E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,&
+&.281E-02_JPRB,.281E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.461E-02_JPRB,&
+&.461E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.489E-02_JPRB,.489E-02_JPRB,&
+&.485E-02_JPRB,.485E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.144E-01_JPRB,&
+&.144E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 30 -26.0
+ZAER (:,30, 3) = (/&
+&.918E-02_JPRB,.918E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.893E-02_JPRB,&
+&.893E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.637E-02_JPRB,.637E-02_JPRB,.510E-02_JPRB,.510E-02_JPRB,&
+&.440E-02_JPRB,.440E-02_JPRB,.608E-02_JPRB,.608E-02_JPRB,.814E-02_JPRB,.814E-02_JPRB,.856E-02_JPRB,&
+&.856E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.902E-02_JPRB,.902E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.932E-02_JPRB,.932E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,.370E-02_JPRB,&
+&.370E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,&
+&.241E-02_JPRB,.241E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,.845E-02_JPRB,&
+&.845E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 31 -30.0
+ZAER (:,31, 3) = (/&
+&.918E-02_JPRB,.918E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.893E-02_JPRB,&
+&.893E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.637E-02_JPRB,.637E-02_JPRB,.510E-02_JPRB,.510E-02_JPRB,&
+&.440E-02_JPRB,.440E-02_JPRB,.608E-02_JPRB,.608E-02_JPRB,.814E-02_JPRB,.814E-02_JPRB,.856E-02_JPRB,&
+&.856E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.902E-02_JPRB,.902E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.932E-02_JPRB,.932E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,.370E-02_JPRB,&
+&.370E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,&
+&.241E-02_JPRB,.241E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,.845E-02_JPRB,&
+&.845E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 32 -34.0
+ZAER (:,32, 3) = (/&
+&.131E-01_JPRB,.131E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.954E-02_JPRB,.954E-02_JPRB,.985E-02_JPRB,&
+&.985E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,&
+&.128E-02_JPRB,.128E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.367E-02_JPRB,&
+&.367E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.800E-02_JPRB,.800E-02_JPRB,&
+&.855E-02_JPRB,.855E-02_JPRB,.820E-02_JPRB,.820E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.464E-02_JPRB,&
+&.464E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,&
+&.270E-02_JPRB,.270E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.972E-03_JPRB,&
+&.972E-03_JPRB,.813E-03_JPRB,.813E-03_JPRB,.862E-03_JPRB,.862E-03_JPRB,.862E-03_JPRB,.862E-03_JPRB,&
+&.706E-03_JPRB,.706E-03_JPRB,.553E-03_JPRB,.553E-03_JPRB,.201E-02_JPRB,.201E-02_JPRB,.315E-02_JPRB,&
+&.315E-02_JPRB,.589E-02_JPRB,.589E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 33 -38.0
+ZAER (:,33, 3) = (/&
+&.131E-01_JPRB,.131E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.954E-02_JPRB,.954E-02_JPRB,.985E-02_JPRB,&
+&.985E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,&
+&.128E-02_JPRB,.128E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.367E-02_JPRB,&
+&.367E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.800E-02_JPRB,.800E-02_JPRB,&
+&.855E-02_JPRB,.855E-02_JPRB,.820E-02_JPRB,.820E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.464E-02_JPRB,&
+&.464E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,&
+&.270E-02_JPRB,.270E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.972E-03_JPRB,&
+&.972E-03_JPRB,.813E-03_JPRB,.813E-03_JPRB,.862E-03_JPRB,.862E-03_JPRB,.862E-03_JPRB,.862E-03_JPRB,&
+&.706E-03_JPRB,.706E-03_JPRB,.553E-03_JPRB,.553E-03_JPRB,.201E-02_JPRB,.201E-02_JPRB,.315E-02_JPRB,&
+&.315E-02_JPRB,.589E-02_JPRB,.589E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 34 -42.0
+ZAER (:,34, 3) = (/&
+&.149E-01_JPRB,.149E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.965E-02_JPRB,.965E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,&
+&.857E-03_JPRB,.857E-03_JPRB,.707E-03_JPRB,.707E-03_JPRB,.827E-03_JPRB,.827E-03_JPRB,.832E-03_JPRB,&
+&.832E-03_JPRB,.259E-02_JPRB,.259E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,&
+&.902E-02_JPRB,.902E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.606E-02_JPRB,&
+&.606E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.205E-02_JPRB,.205E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.719E-03_JPRB,&
+&.719E-03_JPRB,.567E-03_JPRB,.567E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.427E-03_JPRB,.427E-03_JPRB,&
+&.383E-03_JPRB,.383E-03_JPRB,.347E-03_JPRB,.347E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 35 -46.0
+ZAER (:,35, 3) = (/&
+&.149E-01_JPRB,.149E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.965E-02_JPRB,.965E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,&
+&.857E-03_JPRB,.857E-03_JPRB,.707E-03_JPRB,.707E-03_JPRB,.827E-03_JPRB,.827E-03_JPRB,.832E-03_JPRB,&
+&.832E-03_JPRB,.259E-02_JPRB,.259E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,&
+&.902E-02_JPRB,.902E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.606E-02_JPRB,&
+&.606E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.205E-02_JPRB,.205E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.719E-03_JPRB,&
+&.719E-03_JPRB,.567E-03_JPRB,.567E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.427E-03_JPRB,.427E-03_JPRB,&
+&.383E-03_JPRB,.383E-03_JPRB,.347E-03_JPRB,.347E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 36 -50.0
+ZAER (:,36, 3) = (/&
+&.141E-01_JPRB,.141E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.819E-02_JPRB,.819E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.732E-03_JPRB,.732E-03_JPRB,.738E-03_JPRB,.738E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.383E-02_JPRB,.383E-02_JPRB,.971E-02_JPRB,.971E-02_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.877E-02_JPRB,&
+&.877E-02_JPRB,.473E-02_JPRB,.473E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.846E-03_JPRB,.846E-03_JPRB,.700E-03_JPRB,.700E-03_JPRB,.615E-03_JPRB,&
+&.615E-03_JPRB,.545E-03_JPRB,.545E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.369E-03_JPRB,.369E-03_JPRB,&
+&.348E-03_JPRB,.348E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.520E-03_JPRB,&
+&.520E-03_JPRB,.239E-02_JPRB,.239E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.945E-02_JPRB,.945E-02_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 37 -54.0
+ZAER (:,37, 3) = (/&
+&.141E-01_JPRB,.141E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.819E-02_JPRB,.819E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.732E-03_JPRB,.732E-03_JPRB,.738E-03_JPRB,.738E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.383E-02_JPRB,.383E-02_JPRB,.971E-02_JPRB,.971E-02_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.877E-02_JPRB,&
+&.877E-02_JPRB,.473E-02_JPRB,.473E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.846E-03_JPRB,.846E-03_JPRB,.700E-03_JPRB,.700E-03_JPRB,.615E-03_JPRB,&
+&.615E-03_JPRB,.545E-03_JPRB,.545E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.369E-03_JPRB,.369E-03_JPRB,&
+&.348E-03_JPRB,.348E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.520E-03_JPRB,&
+&.520E-03_JPRB,.239E-02_JPRB,.239E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.945E-02_JPRB,.945E-02_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 38 -58.0
+ZAER (:,38, 3) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.881E-02_JPRB,.881E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.645E-02_JPRB,&
+&.645E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.916E-03_JPRB,.916E-03_JPRB,&
+&.736E-03_JPRB,.736E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.310E-02_JPRB,.310E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.931E-03_JPRB,.931E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.595E-03_JPRB,&
+&.595E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.385E-03_JPRB,.385E-03_JPRB,&
+&.455E-03_JPRB,.455E-03_JPRB,.520E-03_JPRB,.520E-03_JPRB,.557E-03_JPRB,.557E-03_JPRB,.740E-03_JPRB,&
+&.740E-03_JPRB,.162E-02_JPRB,.162E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,&
+&.814E-02_JPRB,.814E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 39 -62.0
+ZAER (:,39, 3) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.881E-02_JPRB,.881E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.645E-02_JPRB,&
+&.645E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.916E-03_JPRB,.916E-03_JPRB,&
+&.736E-03_JPRB,.736E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.310E-02_JPRB,.310E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.931E-03_JPRB,.931E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.595E-03_JPRB,&
+&.595E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.385E-03_JPRB,.385E-03_JPRB,&
+&.455E-03_JPRB,.455E-03_JPRB,.520E-03_JPRB,.520E-03_JPRB,.557E-03_JPRB,.557E-03_JPRB,.740E-03_JPRB,&
+&.740E-03_JPRB,.162E-02_JPRB,.162E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,&
+&.814E-02_JPRB,.814E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 40 -66.0
+ZAER (:,40, 3) = (/&
+&.497E-02_JPRB,.497E-02_JPRB,.484E-02_JPRB,.484E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.270E-02_JPRB,&
+&.270E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.982E-03_JPRB,.982E-03_JPRB,&
+&.772E-03_JPRB,.772E-03_JPRB,.115E-02_JPRB,.115E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.152E-02_JPRB,&
+&.152E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,&
+&.275E-02_JPRB,.275E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.158E-01_JPRB,&
+&.158E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.902E-02_JPRB,.902E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,&
+&.291E-02_JPRB,.291E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.644E-03_JPRB,.644E-03_JPRB,.496E-03_JPRB,.496E-03_JPRB,.486E-03_JPRB,.486E-03_JPRB,&
+&.581E-03_JPRB,.581E-03_JPRB,.721E-03_JPRB,.721E-03_JPRB,.849E-03_JPRB,.849E-03_JPRB,.988E-03_JPRB,&
+&.988E-03_JPRB,.124E-02_JPRB,.124E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.263E-02_JPRB,.263E-02_JPRB,&
+&.382E-02_JPRB,.382E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 41 -70.0
+ZAER (:,41, 3) = (/&
+&.497E-02_JPRB,.497E-02_JPRB,.484E-02_JPRB,.484E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.270E-02_JPRB,&
+&.270E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.982E-03_JPRB,.982E-03_JPRB,&
+&.772E-03_JPRB,.772E-03_JPRB,.115E-02_JPRB,.115E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.152E-02_JPRB,&
+&.152E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,&
+&.275E-02_JPRB,.275E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.158E-01_JPRB,&
+&.158E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.902E-02_JPRB,.902E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,&
+&.291E-02_JPRB,.291E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.644E-03_JPRB,.644E-03_JPRB,.496E-03_JPRB,.496E-03_JPRB,.486E-03_JPRB,.486E-03_JPRB,&
+&.581E-03_JPRB,.581E-03_JPRB,.721E-03_JPRB,.721E-03_JPRB,.849E-03_JPRB,.849E-03_JPRB,.988E-03_JPRB,&
+&.988E-03_JPRB,.124E-02_JPRB,.124E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.263E-02_JPRB,.263E-02_JPRB,&
+&.382E-02_JPRB,.382E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 42 -74.0
+ZAER (:,42, 3) = (/&
+&.200E-02_JPRB,.200E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.626E-03_JPRB,.626E-03_JPRB,&
+&.528E-03_JPRB,.528E-03_JPRB,.624E-03_JPRB,.624E-03_JPRB,.670E-03_JPRB,.670E-03_JPRB,.146E-02_JPRB,&
+&.146E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.949E-02_JPRB,&
+&.949E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.844E-02_JPRB,.844E-02_JPRB,.724E-02_JPRB,.724E-02_JPRB,&
+&.690E-02_JPRB,.690E-02_JPRB,.569E-02_JPRB,.569E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.629E-03_JPRB,.629E-03_JPRB,&
+&.649E-03_JPRB,.649E-03_JPRB,.911E-03_JPRB,.911E-03_JPRB,.227E-02_JPRB,.227E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.946E-03_JPRB,.946E-03_JPRB,.115E-02_JPRB,.115E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.186E-02_JPRB,.186E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 43 -78.0
+ZAER (:,43, 3) = (/&
+&.200E-02_JPRB,.200E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.626E-03_JPRB,.626E-03_JPRB,&
+&.528E-03_JPRB,.528E-03_JPRB,.624E-03_JPRB,.624E-03_JPRB,.670E-03_JPRB,.670E-03_JPRB,.146E-02_JPRB,&
+&.146E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.949E-02_JPRB,&
+&.949E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.844E-02_JPRB,.844E-02_JPRB,.724E-02_JPRB,.724E-02_JPRB,&
+&.690E-02_JPRB,.690E-02_JPRB,.569E-02_JPRB,.569E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.629E-03_JPRB,.629E-03_JPRB,&
+&.649E-03_JPRB,.649E-03_JPRB,.911E-03_JPRB,.911E-03_JPRB,.227E-02_JPRB,.227E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.946E-03_JPRB,.946E-03_JPRB,.115E-02_JPRB,.115E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.186E-02_JPRB,.186E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 44 -82.0
+ZAER (:,44, 3) = (/&
+&.476E-03_JPRB,.476E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.497E-03_JPRB,.497E-03_JPRB,.558E-03_JPRB,&
+&.558E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,.615E-03_JPRB,.615E-03_JPRB,.603E-03_JPRB,.603E-03_JPRB,&
+&.642E-03_JPRB,.642E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,.833E-03_JPRB,.833E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.107E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.239E-02_JPRB,&
+&.239E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.252E-02_JPRB,.252E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.808E-03_JPRB,.808E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.660E-03_JPRB,&
+&.660E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.622E-03_JPRB,.622E-03_JPRB,.598E-03_JPRB,.598E-03_JPRB,&
+&.657E-03_JPRB,.657E-03_JPRB,.784E-03_JPRB,.784E-03_JPRB,.940E-03_JPRB,.940E-03_JPRB,.942E-03_JPRB,&
+&.942E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.538E-03_JPRB,.538E-03_JPRB,&
+&.515E-03_JPRB,.515E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 45 -86.0
+ZAER (:,45, 3) = (/&
+&.476E-03_JPRB,.476E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.497E-03_JPRB,.497E-03_JPRB,.558E-03_JPRB,&
+&.558E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,.615E-03_JPRB,.615E-03_JPRB,.603E-03_JPRB,.603E-03_JPRB,&
+&.642E-03_JPRB,.642E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,.833E-03_JPRB,.833E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.107E-02_JPRB,.107E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.239E-02_JPRB,&
+&.239E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.252E-02_JPRB,.252E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,&
+&.950E-03_JPRB,.950E-03_JPRB,.808E-03_JPRB,.808E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.660E-03_JPRB,&
+&.660E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.622E-03_JPRB,.622E-03_JPRB,.598E-03_JPRB,.598E-03_JPRB,&
+&.657E-03_JPRB,.657E-03_JPRB,.784E-03_JPRB,.784E-03_JPRB,.940E-03_JPRB,.940E-03_JPRB,.942E-03_JPRB,&
+&.942E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.538E-03_JPRB,.538E-03_JPRB,&
+&.515E-03_JPRB,.515E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  3 --- lat: 46 -90.0
+ZAER (:,46, 3) = (/&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,.531E-03_JPRB,&
+&.531E-03_JPRB,.531E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=3   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_03
Index: LMDZ5/branches/testing/libf/phymar/suecaess_04.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_04.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_04.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_04
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      April
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,4:4)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  4 --- lat:  1  90.0
+ZAER (:, 1, 4) = (/&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,&
+&.257E-03_JPRB,.257E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  2  86.0
+ZAER (:, 2, 4) = (/&
+&.374E-03_JPRB,.374E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,.442E-03_JPRB,&
+&.442E-03_JPRB,.460E-03_JPRB,.460E-03_JPRB,.485E-03_JPRB,.485E-03_JPRB,.514E-03_JPRB,.514E-03_JPRB,&
+&.537E-03_JPRB,.537E-03_JPRB,.537E-03_JPRB,.537E-03_JPRB,.532E-03_JPRB,.532E-03_JPRB,.526E-03_JPRB,&
+&.526E-03_JPRB,.530E-03_JPRB,.530E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,.505E-03_JPRB,.505E-03_JPRB,&
+&.471E-03_JPRB,.471E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.365E-03_JPRB,.365E-03_JPRB,.285E-03_JPRB,&
+&.285E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,&
+&.152E-03_JPRB,.152E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,.183E-03_JPRB,&
+&.183E-03_JPRB,.186E-03_JPRB,.186E-03_JPRB,.187E-03_JPRB,.187E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,&
+&.194E-03_JPRB,.194E-03_JPRB,.206E-03_JPRB,.206E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.242E-03_JPRB,&
+&.242E-03_JPRB,.268E-03_JPRB,.268E-03_JPRB,.295E-03_JPRB,.295E-03_JPRB,.325E-03_JPRB,.325E-03_JPRB,&
+&.351E-03_JPRB,.351E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  3  82.0
+ZAER (:, 3, 4) = (/&
+&.374E-03_JPRB,.374E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,.442E-03_JPRB,&
+&.442E-03_JPRB,.460E-03_JPRB,.460E-03_JPRB,.485E-03_JPRB,.485E-03_JPRB,.514E-03_JPRB,.514E-03_JPRB,&
+&.537E-03_JPRB,.537E-03_JPRB,.537E-03_JPRB,.537E-03_JPRB,.532E-03_JPRB,.532E-03_JPRB,.526E-03_JPRB,&
+&.526E-03_JPRB,.530E-03_JPRB,.530E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,.505E-03_JPRB,.505E-03_JPRB,&
+&.471E-03_JPRB,.471E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.365E-03_JPRB,.365E-03_JPRB,.285E-03_JPRB,&
+&.285E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,.165E-03_JPRB,.165E-03_JPRB,.144E-03_JPRB,.144E-03_JPRB,&
+&.152E-03_JPRB,.152E-03_JPRB,.162E-03_JPRB,.162E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,.183E-03_JPRB,&
+&.183E-03_JPRB,.186E-03_JPRB,.186E-03_JPRB,.187E-03_JPRB,.187E-03_JPRB,.188E-03_JPRB,.188E-03_JPRB,&
+&.194E-03_JPRB,.194E-03_JPRB,.206E-03_JPRB,.206E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.242E-03_JPRB,&
+&.242E-03_JPRB,.268E-03_JPRB,.268E-03_JPRB,.295E-03_JPRB,.295E-03_JPRB,.325E-03_JPRB,.325E-03_JPRB,&
+&.351E-03_JPRB,.351E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  4  78.0
+ZAER (:, 4, 4) = (/&
+&.560E-03_JPRB,.560E-03_JPRB,.990E-03_JPRB,.990E-03_JPRB,.105E-02_JPRB,.105E-02_JPRB,.863E-03_JPRB,&
+&.863E-03_JPRB,.678E-03_JPRB,.678E-03_JPRB,.542E-03_JPRB,.542E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,&
+&.560E-03_JPRB,.560E-03_JPRB,.715E-03_JPRB,.715E-03_JPRB,.802E-03_JPRB,.802E-03_JPRB,.864E-03_JPRB,&
+&.864E-03_JPRB,.887E-03_JPRB,.887E-03_JPRB,.864E-03_JPRB,.864E-03_JPRB,.783E-03_JPRB,.783E-03_JPRB,&
+&.666E-03_JPRB,.666E-03_JPRB,.599E-03_JPRB,.599E-03_JPRB,.522E-03_JPRB,.522E-03_JPRB,.411E-03_JPRB,&
+&.411E-03_JPRB,.293E-03_JPRB,.293E-03_JPRB,.174E-03_JPRB,.174E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,&
+&.224E-03_JPRB,.224E-03_JPRB,.294E-03_JPRB,.294E-03_JPRB,.350E-03_JPRB,.350E-03_JPRB,.352E-03_JPRB,&
+&.352E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.322E-03_JPRB,.322E-03_JPRB,&
+&.314E-03_JPRB,.314E-03_JPRB,.280E-03_JPRB,.280E-03_JPRB,.246E-03_JPRB,.246E-03_JPRB,.274E-03_JPRB,&
+&.274E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,&
+&.437E-03_JPRB,.437E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  5  74.0
+ZAER (:, 5, 4) = (/&
+&.560E-03_JPRB,.560E-03_JPRB,.990E-03_JPRB,.990E-03_JPRB,.105E-02_JPRB,.105E-02_JPRB,.863E-03_JPRB,&
+&.863E-03_JPRB,.678E-03_JPRB,.678E-03_JPRB,.542E-03_JPRB,.542E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,&
+&.560E-03_JPRB,.560E-03_JPRB,.715E-03_JPRB,.715E-03_JPRB,.802E-03_JPRB,.802E-03_JPRB,.864E-03_JPRB,&
+&.864E-03_JPRB,.887E-03_JPRB,.887E-03_JPRB,.864E-03_JPRB,.864E-03_JPRB,.783E-03_JPRB,.783E-03_JPRB,&
+&.666E-03_JPRB,.666E-03_JPRB,.599E-03_JPRB,.599E-03_JPRB,.522E-03_JPRB,.522E-03_JPRB,.411E-03_JPRB,&
+&.411E-03_JPRB,.293E-03_JPRB,.293E-03_JPRB,.174E-03_JPRB,.174E-03_JPRB,.167E-03_JPRB,.167E-03_JPRB,&
+&.224E-03_JPRB,.224E-03_JPRB,.294E-03_JPRB,.294E-03_JPRB,.350E-03_JPRB,.350E-03_JPRB,.352E-03_JPRB,&
+&.352E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.322E-03_JPRB,.322E-03_JPRB,&
+&.314E-03_JPRB,.314E-03_JPRB,.280E-03_JPRB,.280E-03_JPRB,.246E-03_JPRB,.246E-03_JPRB,.274E-03_JPRB,&
+&.274E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,&
+&.437E-03_JPRB,.437E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  6  70.0
+ZAER (:, 6, 4) = (/&
+&.270E-02_JPRB,.270E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.376E-02_JPRB,.376E-02_JPRB,.227E-02_JPRB,&
+&.227E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.246E-02_JPRB,&
+&.246E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.839E-03_JPRB,.839E-03_JPRB,.662E-03_JPRB,.662E-03_JPRB,.527E-03_JPRB,&
+&.527E-03_JPRB,.412E-03_JPRB,.412E-03_JPRB,.306E-03_JPRB,.306E-03_JPRB,.294E-03_JPRB,.294E-03_JPRB,&
+&.405E-03_JPRB,.405E-03_JPRB,.672E-03_JPRB,.672E-03_JPRB,.811E-03_JPRB,.811E-03_JPRB,.867E-03_JPRB,&
+&.867E-03_JPRB,.975E-03_JPRB,.975E-03_JPRB,.969E-03_JPRB,.969E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.175E-02_JPRB,.175E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  7  66.0
+ZAER (:, 7, 4) = (/&
+&.270E-02_JPRB,.270E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.376E-02_JPRB,.376E-02_JPRB,.227E-02_JPRB,&
+&.227E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,&
+&.187E-02_JPRB,.187E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.246E-02_JPRB,&
+&.246E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.839E-03_JPRB,.839E-03_JPRB,.662E-03_JPRB,.662E-03_JPRB,.527E-03_JPRB,&
+&.527E-03_JPRB,.412E-03_JPRB,.412E-03_JPRB,.306E-03_JPRB,.306E-03_JPRB,.294E-03_JPRB,.294E-03_JPRB,&
+&.405E-03_JPRB,.405E-03_JPRB,.672E-03_JPRB,.672E-03_JPRB,.811E-03_JPRB,.811E-03_JPRB,.867E-03_JPRB,&
+&.867E-03_JPRB,.975E-03_JPRB,.975E-03_JPRB,.969E-03_JPRB,.969E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.175E-02_JPRB,.175E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  8  62.0
+ZAER (:, 8, 4) = (/&
+&.871E-02_JPRB,.871E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.586E-02_JPRB,&
+&.586E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,&
+&.982E-02_JPRB,.982E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.994E-02_JPRB,&
+&.994E-02_JPRB,.802E-02_JPRB,.802E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,&
+&.238E-02_JPRB,.238E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.397E-02_JPRB,&
+&.397E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.330E-02_JPRB,.330E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,&
+&.707E-02_JPRB,.707E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.781E-02_JPRB,&
+&.781E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,&
+&.841E-02_JPRB,.841E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat:  9  58.0
+ZAER (:, 9, 4) = (/&
+&.871E-02_JPRB,.871E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.586E-02_JPRB,&
+&.586E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,&
+&.982E-02_JPRB,.982E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.994E-02_JPRB,&
+&.994E-02_JPRB,.802E-02_JPRB,.802E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,&
+&.238E-02_JPRB,.238E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.397E-02_JPRB,&
+&.397E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.330E-02_JPRB,.330E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,&
+&.707E-02_JPRB,.707E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.781E-02_JPRB,&
+&.781E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,&
+&.841E-02_JPRB,.841E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 10  54.0
+ZAER (:,10, 4) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.845E-02_JPRB,.845E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,&
+&.864E-02_JPRB,.864E-02_JPRB,.966E-02_JPRB,.966E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.821E-02_JPRB,.821E-02_JPRB,.937E-02_JPRB,.937E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.885E-02_JPRB,.885E-02_JPRB,.714E-02_JPRB,&
+&.714E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.590E-02_JPRB,.590E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,&
+&.770E-02_JPRB,.770E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.962E-02_JPRB,.962E-02_JPRB,.952E-02_JPRB,&
+&.952E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,&
+&.836E-02_JPRB,.836E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 11  50.0
+ZAER (:,11, 4) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.845E-02_JPRB,.845E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,&
+&.864E-02_JPRB,.864E-02_JPRB,.966E-02_JPRB,.966E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.821E-02_JPRB,.821E-02_JPRB,.937E-02_JPRB,.937E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.885E-02_JPRB,.885E-02_JPRB,.714E-02_JPRB,&
+&.714E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.590E-02_JPRB,.590E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,&
+&.770E-02_JPRB,.770E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.962E-02_JPRB,.962E-02_JPRB,.952E-02_JPRB,&
+&.952E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,&
+&.836E-02_JPRB,.836E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 12  46.0
+ZAER (:,12, 4) = (/&
+&.995E-02_JPRB,.995E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.912E-02_JPRB,&
+&.912E-02_JPRB,.857E-02_JPRB,.857E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,&
+&.807E-02_JPRB,.807E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.801E-02_JPRB,&
+&.801E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.136E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.989E-02_JPRB,.989E-02_JPRB,.915E-02_JPRB,.915E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,&
+&.921E-02_JPRB,.921E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.861E-02_JPRB,&
+&.861E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,&
+&.857E-02_JPRB,.857E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.930E-02_JPRB,&
+&.930E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.788E-02_JPRB,.788E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 13  42.0
+ZAER (:,13, 4) = (/&
+&.995E-02_JPRB,.995E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.912E-02_JPRB,&
+&.912E-02_JPRB,.857E-02_JPRB,.857E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,&
+&.807E-02_JPRB,.807E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.801E-02_JPRB,&
+&.801E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.136E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.989E-02_JPRB,.989E-02_JPRB,.915E-02_JPRB,.915E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,&
+&.921E-02_JPRB,.921E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.861E-02_JPRB,&
+&.861E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,&
+&.857E-02_JPRB,.857E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.930E-02_JPRB,&
+&.930E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.788E-02_JPRB,.788E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 14  38.0
+ZAER (:,14, 4) = (/&
+&.829E-02_JPRB,.829E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.833E-02_JPRB,&
+&.833E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,&
+&.833E-02_JPRB,.833E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,.892E-02_JPRB,.892E-02_JPRB,.706E-02_JPRB,&
+&.706E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,&
+&.982E-02_JPRB,.982E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,.946E-02_JPRB,.946E-02_JPRB,.988E-02_JPRB,&
+&.988E-02_JPRB,.951E-02_JPRB,.951E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.712E-02_JPRB,.712E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB,.823E-02_JPRB,.823E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.751E-02_JPRB,&
+&.751E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,&
+&.867E-02_JPRB,.867E-02_JPRB,.817E-02_JPRB,.817E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.652E-02_JPRB,&
+&.652E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,&
+&.737E-02_JPRB,.737E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 15  34.0
+ZAER (:,15, 4) = (/&
+&.829E-02_JPRB,.829E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.833E-02_JPRB,&
+&.833E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,&
+&.833E-02_JPRB,.833E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,.892E-02_JPRB,.892E-02_JPRB,.706E-02_JPRB,&
+&.706E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,&
+&.982E-02_JPRB,.982E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,.946E-02_JPRB,.946E-02_JPRB,.988E-02_JPRB,&
+&.988E-02_JPRB,.951E-02_JPRB,.951E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.712E-02_JPRB,.712E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB,.823E-02_JPRB,.823E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.751E-02_JPRB,&
+&.751E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,&
+&.867E-02_JPRB,.867E-02_JPRB,.817E-02_JPRB,.817E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.652E-02_JPRB,&
+&.652E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,&
+&.737E-02_JPRB,.737E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 16  30.0
+ZAER (:,16, 4) = (/&
+&.816E-02_JPRB,.816E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.751E-02_JPRB,&
+&.751E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.945E-02_JPRB,.945E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.995E-02_JPRB,.995E-02_JPRB,.857E-02_JPRB,&
+&.857E-02_JPRB,.527E-02_JPRB,.527E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.555E-02_JPRB,.555E-02_JPRB,&
+&.802E-02_JPRB,.802E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.905E-02_JPRB,&
+&.905E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.389E-02_JPRB,.389E-02_JPRB,&
+&.650E-02_JPRB,.650E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,.938E-02_JPRB,&
+&.938E-02_JPRB,.913E-02_JPRB,.913E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.921E-02_JPRB,.921E-02_JPRB,.558E-02_JPRB,.558E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.395E-02_JPRB,.395E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,&
+&.850E-02_JPRB,.850E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 17  26.0
+ZAER (:,17, 4) = (/&
+&.816E-02_JPRB,.816E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.751E-02_JPRB,&
+&.751E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.945E-02_JPRB,.945E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.995E-02_JPRB,.995E-02_JPRB,.857E-02_JPRB,&
+&.857E-02_JPRB,.527E-02_JPRB,.527E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.555E-02_JPRB,.555E-02_JPRB,&
+&.802E-02_JPRB,.802E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.905E-02_JPRB,&
+&.905E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.389E-02_JPRB,.389E-02_JPRB,&
+&.650E-02_JPRB,.650E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,.938E-02_JPRB,&
+&.938E-02_JPRB,.913E-02_JPRB,.913E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.921E-02_JPRB,.921E-02_JPRB,.558E-02_JPRB,.558E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.395E-02_JPRB,.395E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,&
+&.850E-02_JPRB,.850E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 18  22.0
+ZAER (:,18, 4) = (/&
+&.887E-02_JPRB,.887E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.862E-02_JPRB,&
+&.862E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.901E-02_JPRB,&
+&.901E-02_JPRB,.487E-02_JPRB,.487E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,&
+&.715E-02_JPRB,.715E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.900E-02_JPRB,&
+&.900E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.521E-02_JPRB,.521E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,&
+&.429E-02_JPRB,.429E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.716E-02_JPRB,.716E-02_JPRB,.579E-02_JPRB,&
+&.579E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,&
+&.889E-02_JPRB,.889E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 19  18.0
+ZAER (:,19, 4) = (/&
+&.887E-02_JPRB,.887E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.862E-02_JPRB,&
+&.862E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.901E-02_JPRB,&
+&.901E-02_JPRB,.487E-02_JPRB,.487E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,&
+&.715E-02_JPRB,.715E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.900E-02_JPRB,&
+&.900E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.521E-02_JPRB,.521E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,&
+&.429E-02_JPRB,.429E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.716E-02_JPRB,.716E-02_JPRB,.579E-02_JPRB,&
+&.579E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,&
+&.889E-02_JPRB,.889E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 20  14.0
+ZAER (:,20, 4) = (/&
+&.925E-02_JPRB,.925E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.817E-02_JPRB,.817E-02_JPRB,.427E-02_JPRB,&
+&.427E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.302E-02_JPRB,.302E-02_JPRB,&
+&.756E-02_JPRB,.756E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.664E-02_JPRB,.664E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,&
+&.284E-02_JPRB,.284E-02_JPRB,.639E-02_JPRB,.639E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.972E-02_JPRB,.972E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.727E-02_JPRB,.727E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,&
+&.859E-02_JPRB,.859E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 21  10.0
+ZAER (:,21, 4) = (/&
+&.925E-02_JPRB,.925E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.817E-02_JPRB,.817E-02_JPRB,.427E-02_JPRB,&
+&.427E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.302E-02_JPRB,.302E-02_JPRB,&
+&.756E-02_JPRB,.756E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.664E-02_JPRB,.664E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,&
+&.284E-02_JPRB,.284E-02_JPRB,.639E-02_JPRB,.639E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.972E-02_JPRB,.972E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.727E-02_JPRB,.727E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,&
+&.859E-02_JPRB,.859E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 22   6.0
+ZAER (:,22, 4) = (/&
+&.111E-01_JPRB,.111E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.741E-02_JPRB,.741E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.969E-03_JPRB,&
+&.969E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.627E-02_JPRB,.627E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.760E-02_JPRB,&
+&.760E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.537E-02_JPRB,.537E-02_JPRB,.937E-02_JPRB,.937E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.935E-02_JPRB,&
+&.935E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.521E-02_JPRB,.521E-02_JPRB,&
+&.436E-02_JPRB,.436E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.397E-02_JPRB,&
+&.397E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 23   2.0
+ZAER (:,23, 4) = (/&
+&.111E-01_JPRB,.111E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.741E-02_JPRB,.741E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.969E-03_JPRB,&
+&.969E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.627E-02_JPRB,.627E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.760E-02_JPRB,&
+&.760E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,&
+&.537E-02_JPRB,.537E-02_JPRB,.937E-02_JPRB,.937E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.935E-02_JPRB,&
+&.935E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.521E-02_JPRB,.521E-02_JPRB,&
+&.436E-02_JPRB,.436E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.397E-02_JPRB,&
+&.397E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 24  -2.0
+ZAER (:,24, 4) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.876E-02_JPRB,.876E-02_JPRB,.696E-02_JPRB,.696E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,&
+&.998E-02_JPRB,.998E-02_JPRB,.818E-02_JPRB,.818E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.327E-02_JPRB,&
+&.327E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,&
+&.420E-02_JPRB,.420E-02_JPRB,.634E-02_JPRB,.634E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.772E-02_JPRB,&
+&.772E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,&
+&.478E-02_JPRB,.478E-02_JPRB,.572E-02_JPRB,.572E-02_JPRB,.704E-02_JPRB,.704E-02_JPRB,.773E-02_JPRB,&
+&.773E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.942E-02_JPRB,.942E-02_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 25  -6.0
+ZAER (:,25, 4) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.876E-02_JPRB,.876E-02_JPRB,.696E-02_JPRB,.696E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,&
+&.998E-02_JPRB,.998E-02_JPRB,.818E-02_JPRB,.818E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.327E-02_JPRB,&
+&.327E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,&
+&.420E-02_JPRB,.420E-02_JPRB,.634E-02_JPRB,.634E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.772E-02_JPRB,&
+&.772E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,&
+&.478E-02_JPRB,.478E-02_JPRB,.572E-02_JPRB,.572E-02_JPRB,.704E-02_JPRB,.704E-02_JPRB,.773E-02_JPRB,&
+&.773E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.942E-02_JPRB,.942E-02_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 26 -10.0
+ZAER (:,26, 4) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.145E-01_JPRB,&
+&.145E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.835E-02_JPRB,.835E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.853E-02_JPRB,&
+&.853E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,.970E-02_JPRB,.970E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.943E-02_JPRB,.943E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.253E-02_JPRB,&
+&.253E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.579E-02_JPRB,&
+&.579E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,.648E-02_JPRB,.648E-02_JPRB,&
+&.572E-02_JPRB,.572E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 27 -14.0
+ZAER (:,27, 4) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.145E-01_JPRB,&
+&.145E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.835E-02_JPRB,.835E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.853E-02_JPRB,&
+&.853E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,.970E-02_JPRB,.970E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.943E-02_JPRB,.943E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.253E-02_JPRB,&
+&.253E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.579E-02_JPRB,&
+&.579E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,.648E-02_JPRB,.648E-02_JPRB,&
+&.572E-02_JPRB,.572E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 28 -18.0
+ZAER (:,28, 4) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.988E-02_JPRB,.988E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,&
+&.940E-02_JPRB,.940E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.909E-02_JPRB,&
+&.909E-02_JPRB,.999E-02_JPRB,.999E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.966E-02_JPRB,.966E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,.274E-02_JPRB,&
+&.274E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.192E-02_JPRB,.192E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.432E-02_JPRB,&
+&.432E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,.352E-02_JPRB,.352E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,&
+&.373E-02_JPRB,.373E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 29 -22.0
+ZAER (:,29, 4) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.988E-02_JPRB,.988E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,&
+&.940E-02_JPRB,.940E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.909E-02_JPRB,&
+&.909E-02_JPRB,.999E-02_JPRB,.999E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.966E-02_JPRB,.966E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,.274E-02_JPRB,&
+&.274E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.192E-02_JPRB,.192E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.432E-02_JPRB,&
+&.432E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,.352E-02_JPRB,.352E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,&
+&.373E-02_JPRB,.373E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 30 -26.0
+ZAER (:,30, 4) = (/&
+&.783E-02_JPRB,.783E-02_JPRB,.779E-02_JPRB,.779E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.801E-02_JPRB,&
+&.801E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.640E-02_JPRB,.640E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,&
+&.411E-02_JPRB,.411E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.754E-02_JPRB,&
+&.754E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.847E-02_JPRB,.847E-02_JPRB,.942E-02_JPRB,.942E-02_JPRB,&
+&.953E-02_JPRB,.953E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.345E-02_JPRB,&
+&.345E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,.250E-02_JPRB,.250E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,&
+&.222E-02_JPRB,.222E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.173E-02_JPRB,&
+&.173E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.721E-02_JPRB,&
+&.721E-02_JPRB,.806E-02_JPRB,.806E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 31 -30.0
+ZAER (:,31, 4) = (/&
+&.783E-02_JPRB,.783E-02_JPRB,.779E-02_JPRB,.779E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.801E-02_JPRB,&
+&.801E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.640E-02_JPRB,.640E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,&
+&.411E-02_JPRB,.411E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.754E-02_JPRB,&
+&.754E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.847E-02_JPRB,.847E-02_JPRB,.942E-02_JPRB,.942E-02_JPRB,&
+&.953E-02_JPRB,.953E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.345E-02_JPRB,&
+&.345E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,.250E-02_JPRB,.250E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,&
+&.222E-02_JPRB,.222E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.173E-02_JPRB,&
+&.173E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,&
+&.154E-02_JPRB,.154E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.721E-02_JPRB,&
+&.721E-02_JPRB,.806E-02_JPRB,.806E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.876E-02_JPRB,.876E-02_JPRB,&
+&.845E-02_JPRB,.845E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 32 -34.0
+ZAER (:,32, 4) = (/&
+&.774E-02_JPRB,.774E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.789E-02_JPRB,&
+&.789E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.297E-02_JPRB,&
+&.297E-02_JPRB,.611E-02_JPRB,.611E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,&
+&.870E-02_JPRB,.870E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.500E-02_JPRB,&
+&.500E-02_JPRB,.327E-02_JPRB,.327E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,&
+&.295E-02_JPRB,.295E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.887E-03_JPRB,.887E-03_JPRB,.984E-03_JPRB,.984E-03_JPRB,.965E-03_JPRB,.965E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB,.674E-03_JPRB,.674E-03_JPRB,.206E-02_JPRB,.206E-02_JPRB,.349E-02_JPRB,&
+&.349E-02_JPRB,.560E-02_JPRB,.560E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.866E-02_JPRB,.866E-02_JPRB,&
+&.825E-02_JPRB,.825E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 33 -38.0
+ZAER (:,33, 4) = (/&
+&.774E-02_JPRB,.774E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.789E-02_JPRB,&
+&.789E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,&
+&.111E-02_JPRB,.111E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.297E-02_JPRB,&
+&.297E-02_JPRB,.611E-02_JPRB,.611E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,&
+&.870E-02_JPRB,.870E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.500E-02_JPRB,&
+&.500E-02_JPRB,.327E-02_JPRB,.327E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,&
+&.295E-02_JPRB,.295E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.887E-03_JPRB,.887E-03_JPRB,.984E-03_JPRB,.984E-03_JPRB,.965E-03_JPRB,.965E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB,.674E-03_JPRB,.674E-03_JPRB,.206E-02_JPRB,.206E-02_JPRB,.349E-02_JPRB,&
+&.349E-02_JPRB,.560E-02_JPRB,.560E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.866E-02_JPRB,.866E-02_JPRB,&
+&.825E-02_JPRB,.825E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 34 -42.0
+ZAER (:,34, 4) = (/&
+&.716E-02_JPRB,.716E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.864E-02_JPRB,&
+&.864E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.738E-03_JPRB,.738E-03_JPRB,.451E-03_JPRB,.451E-03_JPRB,.598E-03_JPRB,.598E-03_JPRB,.588E-03_JPRB,&
+&.588E-03_JPRB,.219E-02_JPRB,.219E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,&
+&.934E-02_JPRB,.934E-02_JPRB,.865E-02_JPRB,.865E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.615E-02_JPRB,&
+&.615E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.924E-03_JPRB,&
+&.924E-03_JPRB,.679E-03_JPRB,.679E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,&
+&.518E-03_JPRB,.518E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.175E-02_JPRB,&
+&.175E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,&
+&.693E-02_JPRB,.693E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 35 -46.0
+ZAER (:,35, 4) = (/&
+&.716E-02_JPRB,.716E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,.864E-02_JPRB,&
+&.864E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.738E-03_JPRB,.738E-03_JPRB,.451E-03_JPRB,.451E-03_JPRB,.598E-03_JPRB,.598E-03_JPRB,.588E-03_JPRB,&
+&.588E-03_JPRB,.219E-02_JPRB,.219E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,&
+&.934E-02_JPRB,.934E-02_JPRB,.865E-02_JPRB,.865E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.615E-02_JPRB,&
+&.615E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.924E-03_JPRB,&
+&.924E-03_JPRB,.679E-03_JPRB,.679E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,&
+&.518E-03_JPRB,.518E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.175E-02_JPRB,&
+&.175E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,&
+&.693E-02_JPRB,.693E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 36 -50.0
+ZAER (:,36, 4) = (/&
+&.646E-02_JPRB,.646E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.692E-02_JPRB,&
+&.692E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.570E-03_JPRB,.570E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.816E-03_JPRB,.816E-03_JPRB,.727E-03_JPRB,&
+&.727E-03_JPRB,.895E-03_JPRB,.895E-03_JPRB,.336E-02_JPRB,.336E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,&
+&.958E-02_JPRB,.958E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.999E-02_JPRB,.999E-02_JPRB,.724E-02_JPRB,&
+&.724E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,&
+&.989E-03_JPRB,.989E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.988E-03_JPRB,.988E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,.496E-03_JPRB,.496E-03_JPRB,&
+&.418E-03_JPRB,.418E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.349E-03_JPRB,.349E-03_JPRB,.603E-03_JPRB,&
+&.603E-03_JPRB,.236E-02_JPRB,.236E-02_JPRB,.457E-02_JPRB,.457E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,&
+&.570E-02_JPRB,.570E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 37 -54.0
+ZAER (:,37, 4) = (/&
+&.646E-02_JPRB,.646E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.692E-02_JPRB,&
+&.692E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,&
+&.570E-03_JPRB,.570E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.816E-03_JPRB,.816E-03_JPRB,.727E-03_JPRB,&
+&.727E-03_JPRB,.895E-03_JPRB,.895E-03_JPRB,.336E-02_JPRB,.336E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,&
+&.958E-02_JPRB,.958E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.999E-02_JPRB,.999E-02_JPRB,.724E-02_JPRB,&
+&.724E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,&
+&.989E-03_JPRB,.989E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.988E-03_JPRB,.988E-03_JPRB,.856E-03_JPRB,&
+&.856E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.583E-03_JPRB,.583E-03_JPRB,.496E-03_JPRB,.496E-03_JPRB,&
+&.418E-03_JPRB,.418E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.349E-03_JPRB,.349E-03_JPRB,.603E-03_JPRB,&
+&.603E-03_JPRB,.236E-02_JPRB,.236E-02_JPRB,.457E-02_JPRB,.457E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,&
+&.570E-02_JPRB,.570E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 38 -58.0
+ZAER (:,38, 4) = (/&
+&.432E-02_JPRB,.432E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.299E-02_JPRB,&
+&.299E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.812E-03_JPRB,.812E-03_JPRB,&
+&.570E-03_JPRB,.570E-03_JPRB,.808E-03_JPRB,.808E-03_JPRB,.287E-02_JPRB,.287E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,&
+&.920E-02_JPRB,.920E-02_JPRB,.123E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.990E-02_JPRB,&
+&.990E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.934E-03_JPRB,&
+&.934E-03_JPRB,.784E-03_JPRB,.784E-03_JPRB,.619E-03_JPRB,.619E-03_JPRB,.487E-03_JPRB,.487E-03_JPRB,&
+&.409E-03_JPRB,.409E-03_JPRB,.336E-03_JPRB,.336E-03_JPRB,.315E-03_JPRB,.315E-03_JPRB,.534E-03_JPRB,&
+&.534E-03_JPRB,.150E-02_JPRB,.150E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.338E-02_JPRB,.338E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 39 -62.0
+ZAER (:,39, 4) = (/&
+&.432E-02_JPRB,.432E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.299E-02_JPRB,&
+&.299E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.812E-03_JPRB,.812E-03_JPRB,&
+&.570E-03_JPRB,.570E-03_JPRB,.808E-03_JPRB,.808E-03_JPRB,.287E-02_JPRB,.287E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,&
+&.920E-02_JPRB,.920E-02_JPRB,.123E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.990E-02_JPRB,&
+&.990E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.934E-03_JPRB,&
+&.934E-03_JPRB,.784E-03_JPRB,.784E-03_JPRB,.619E-03_JPRB,.619E-03_JPRB,.487E-03_JPRB,.487E-03_JPRB,&
+&.409E-03_JPRB,.409E-03_JPRB,.336E-03_JPRB,.336E-03_JPRB,.315E-03_JPRB,.315E-03_JPRB,.534E-03_JPRB,&
+&.534E-03_JPRB,.150E-02_JPRB,.150E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.338E-02_JPRB,.338E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 40 -66.0
+ZAER (:,40, 4) = (/&
+&.169E-02_JPRB,.169E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.803E-03_JPRB,.803E-03_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.885E-03_JPRB,.885E-03_JPRB,&
+&.645E-03_JPRB,.645E-03_JPRB,.895E-03_JPRB,.895E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.832E-03_JPRB,&
+&.832E-03_JPRB,.142E-02_JPRB,.142E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.321E-02_JPRB,.321E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.974E-02_JPRB,&
+&.974E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.667E-02_JPRB,.667E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,&
+&.279E-02_JPRB,.279E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.147E-02_JPRB,&
+&.147E-02_JPRB,.934E-03_JPRB,.934E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.424E-03_JPRB,.424E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,.394E-03_JPRB,&
+&.394E-03_JPRB,.457E-03_JPRB,.457E-03_JPRB,.574E-03_JPRB,.574E-03_JPRB,.904E-03_JPRB,.904E-03_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 41 -70.0
+ZAER (:,41, 4) = (/&
+&.169E-02_JPRB,.169E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.803E-03_JPRB,.803E-03_JPRB,.108E-02_JPRB,&
+&.108E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.885E-03_JPRB,.885E-03_JPRB,&
+&.645E-03_JPRB,.645E-03_JPRB,.895E-03_JPRB,.895E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.832E-03_JPRB,&
+&.832E-03_JPRB,.142E-02_JPRB,.142E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,&
+&.321E-02_JPRB,.321E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.974E-02_JPRB,&
+&.974E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.667E-02_JPRB,.667E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,&
+&.279E-02_JPRB,.279E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.147E-02_JPRB,&
+&.147E-02_JPRB,.934E-03_JPRB,.934E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.424E-03_JPRB,.424E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,.394E-03_JPRB,&
+&.394E-03_JPRB,.457E-03_JPRB,.457E-03_JPRB,.574E-03_JPRB,.574E-03_JPRB,.904E-03_JPRB,.904E-03_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 42 -74.0
+ZAER (:,42, 4) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.608E-03_JPRB,.608E-03_JPRB,.672E-03_JPRB,&
+&.672E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.629E-03_JPRB,.629E-03_JPRB,&
+&.565E-03_JPRB,.565E-03_JPRB,.589E-03_JPRB,.589E-03_JPRB,.565E-03_JPRB,.565E-03_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.617E-02_JPRB,.617E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,&
+&.521E-02_JPRB,.521E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.485E-03_JPRB,.485E-03_JPRB,&
+&.481E-03_JPRB,.481E-03_JPRB,.726E-03_JPRB,.726E-03_JPRB,.212E-02_JPRB,.212E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.556E-03_JPRB,.556E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.650E-03_JPRB,.650E-03_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 43 -78.0
+ZAER (:,43, 4) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.608E-03_JPRB,.608E-03_JPRB,.672E-03_JPRB,&
+&.672E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.629E-03_JPRB,.629E-03_JPRB,&
+&.565E-03_JPRB,.565E-03_JPRB,.589E-03_JPRB,.589E-03_JPRB,.565E-03_JPRB,.565E-03_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.140E-02_JPRB,.140E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.617E-02_JPRB,.617E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,&
+&.521E-02_JPRB,.521E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,.195E-02_JPRB,.195E-02_JPRB,.485E-03_JPRB,.485E-03_JPRB,&
+&.481E-03_JPRB,.481E-03_JPRB,.726E-03_JPRB,.726E-03_JPRB,.212E-02_JPRB,.212E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.556E-03_JPRB,.556E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.650E-03_JPRB,.650E-03_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 44 -82.0
+ZAER (:,44, 4) = (/&
+&.476E-03_JPRB,.476E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,.448E-03_JPRB,.448E-03_JPRB,.470E-03_JPRB,&
+&.470E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.490E-03_JPRB,.490E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,.632E-03_JPRB,.632E-03_JPRB,.775E-03_JPRB,&
+&.775E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.968E-03_JPRB,.968E-03_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.212E-02_JPRB,&
+&.212E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.824E-03_JPRB,.824E-03_JPRB,.717E-03_JPRB,.717E-03_JPRB,.655E-03_JPRB,.655E-03_JPRB,.659E-03_JPRB,&
+&.659E-03_JPRB,.691E-03_JPRB,.691E-03_JPRB,.634E-03_JPRB,.634E-03_JPRB,.638E-03_JPRB,.638E-03_JPRB,&
+&.710E-03_JPRB,.710E-03_JPRB,.893E-03_JPRB,.893E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,.940E-03_JPRB,&
+&.940E-03_JPRB,.489E-03_JPRB,.489E-03_JPRB,.448E-03_JPRB,.448E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,&
+&.476E-03_JPRB,.476E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 45 -86.0
+ZAER (:,45, 4) = (/&
+&.476E-03_JPRB,.476E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,.448E-03_JPRB,.448E-03_JPRB,.470E-03_JPRB,&
+&.470E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.490E-03_JPRB,.490E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,.632E-03_JPRB,.632E-03_JPRB,.775E-03_JPRB,&
+&.775E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.968E-03_JPRB,.968E-03_JPRB,.108E-02_JPRB,.108E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.212E-02_JPRB,&
+&.212E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.824E-03_JPRB,.824E-03_JPRB,.717E-03_JPRB,.717E-03_JPRB,.655E-03_JPRB,.655E-03_JPRB,.659E-03_JPRB,&
+&.659E-03_JPRB,.691E-03_JPRB,.691E-03_JPRB,.634E-03_JPRB,.634E-03_JPRB,.638E-03_JPRB,.638E-03_JPRB,&
+&.710E-03_JPRB,.710E-03_JPRB,.893E-03_JPRB,.893E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,.940E-03_JPRB,&
+&.940E-03_JPRB,.489E-03_JPRB,.489E-03_JPRB,.448E-03_JPRB,.448E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,&
+&.476E-03_JPRB,.476E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  4 --- lat: 46 -90.0
+ZAER (:,46, 4) = (/&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,.690E-03_JPRB,&
+&.690E-03_JPRB,.690E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=4    
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_04
Index: LMDZ5/branches/testing/libf/phymar/suecaess_05.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_05.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_05.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_05
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      May
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,5:5)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  5 --- lat:  1  90.0
+ZAER (:, 1, 5) = (/&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,.320E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  2  86.0
+ZAER (:, 2, 5) = (/&
+&.505E-03_JPRB,.505E-03_JPRB,.524E-03_JPRB,.524E-03_JPRB,.524E-03_JPRB,.524E-03_JPRB,.525E-03_JPRB,&
+&.525E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,.503E-03_JPRB,.503E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,&
+&.494E-03_JPRB,.494E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.508E-03_JPRB,.508E-03_JPRB,.535E-03_JPRB,&
+&.535E-03_JPRB,.602E-03_JPRB,.602E-03_JPRB,.655E-03_JPRB,.655E-03_JPRB,.678E-03_JPRB,.678E-03_JPRB,&
+&.633E-03_JPRB,.633E-03_JPRB,.561E-03_JPRB,.561E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.387E-03_JPRB,&
+&.387E-03_JPRB,.349E-03_JPRB,.349E-03_JPRB,.348E-03_JPRB,.348E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,&
+&.371E-03_JPRB,.371E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,.398E-03_JPRB,&
+&.398E-03_JPRB,.386E-03_JPRB,.386E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.366E-03_JPRB,.366E-03_JPRB,&
+&.357E-03_JPRB,.357E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.339E-03_JPRB,&
+&.339E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.371E-03_JPRB,.371E-03_JPRB,.410E-03_JPRB,.410E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  3  82.0
+ZAER (:, 3, 5) = (/&
+&.505E-03_JPRB,.505E-03_JPRB,.524E-03_JPRB,.524E-03_JPRB,.524E-03_JPRB,.524E-03_JPRB,.525E-03_JPRB,&
+&.525E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,.503E-03_JPRB,.503E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,&
+&.494E-03_JPRB,.494E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.508E-03_JPRB,.508E-03_JPRB,.535E-03_JPRB,&
+&.535E-03_JPRB,.602E-03_JPRB,.602E-03_JPRB,.655E-03_JPRB,.655E-03_JPRB,.678E-03_JPRB,.678E-03_JPRB,&
+&.633E-03_JPRB,.633E-03_JPRB,.561E-03_JPRB,.561E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.387E-03_JPRB,&
+&.387E-03_JPRB,.349E-03_JPRB,.349E-03_JPRB,.348E-03_JPRB,.348E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,&
+&.371E-03_JPRB,.371E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,.398E-03_JPRB,&
+&.398E-03_JPRB,.386E-03_JPRB,.386E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.366E-03_JPRB,.366E-03_JPRB,&
+&.357E-03_JPRB,.357E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.339E-03_JPRB,&
+&.339E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.371E-03_JPRB,.371E-03_JPRB,.410E-03_JPRB,.410E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  4  78.0
+ZAER (:, 4, 5) = (/&
+&.114E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.909E-03_JPRB,.909E-03_JPRB,.848E-03_JPRB,&
+&.848E-03_JPRB,.831E-03_JPRB,.831E-03_JPRB,.821E-03_JPRB,.821E-03_JPRB,.746E-03_JPRB,.746E-03_JPRB,&
+&.671E-03_JPRB,.671E-03_JPRB,.639E-03_JPRB,.639E-03_JPRB,.604E-03_JPRB,.604E-03_JPRB,.760E-03_JPRB,&
+&.760E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.856E-03_JPRB,.856E-03_JPRB,.545E-03_JPRB,&
+&.545E-03_JPRB,.348E-03_JPRB,.348E-03_JPRB,.349E-03_JPRB,.349E-03_JPRB,.410E-03_JPRB,.410E-03_JPRB,&
+&.526E-03_JPRB,.526E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.644E-03_JPRB,&
+&.644E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.530E-03_JPRB,.530E-03_JPRB,&
+&.496E-03_JPRB,.496E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.491E-03_JPRB,&
+&.491E-03_JPRB,.539E-03_JPRB,.539E-03_JPRB,.556E-03_JPRB,.556E-03_JPRB,.597E-03_JPRB,.597E-03_JPRB,&
+&.757E-03_JPRB,.757E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  5  74.0
+ZAER (:, 5, 5) = (/&
+&.114E-02_JPRB,.114E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.909E-03_JPRB,.909E-03_JPRB,.848E-03_JPRB,&
+&.848E-03_JPRB,.831E-03_JPRB,.831E-03_JPRB,.821E-03_JPRB,.821E-03_JPRB,.746E-03_JPRB,.746E-03_JPRB,&
+&.671E-03_JPRB,.671E-03_JPRB,.639E-03_JPRB,.639E-03_JPRB,.604E-03_JPRB,.604E-03_JPRB,.760E-03_JPRB,&
+&.760E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.126E-02_JPRB,.126E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.856E-03_JPRB,.856E-03_JPRB,.545E-03_JPRB,&
+&.545E-03_JPRB,.348E-03_JPRB,.348E-03_JPRB,.349E-03_JPRB,.349E-03_JPRB,.410E-03_JPRB,.410E-03_JPRB,&
+&.526E-03_JPRB,.526E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.644E-03_JPRB,&
+&.644E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.530E-03_JPRB,.530E-03_JPRB,&
+&.496E-03_JPRB,.496E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.491E-03_JPRB,&
+&.491E-03_JPRB,.539E-03_JPRB,.539E-03_JPRB,.556E-03_JPRB,.556E-03_JPRB,.597E-03_JPRB,.597E-03_JPRB,&
+&.757E-03_JPRB,.757E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  6  70.0
+ZAER (:, 6, 5) = (/&
+&.337E-02_JPRB,.337E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.183E-02_JPRB,&
+&.183E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.167E-02_JPRB,.167E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.998E-03_JPRB,.998E-03_JPRB,.990E-03_JPRB,&
+&.990E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.180E-02_JPRB,.180E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.965E-03_JPRB,&
+&.965E-03_JPRB,.649E-03_JPRB,.649E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.483E-03_JPRB,.483E-03_JPRB,&
+&.659E-03_JPRB,.659E-03_JPRB,.927E-03_JPRB,.927E-03_JPRB,.116E-02_JPRB,.116E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,&
+&.138E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  7  66.0
+ZAER (:, 7, 5) = (/&
+&.337E-02_JPRB,.337E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.183E-02_JPRB,&
+&.183E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,&
+&.167E-02_JPRB,.167E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.998E-03_JPRB,.998E-03_JPRB,.990E-03_JPRB,&
+&.990E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.180E-02_JPRB,.180E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.965E-03_JPRB,&
+&.965E-03_JPRB,.649E-03_JPRB,.649E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.483E-03_JPRB,.483E-03_JPRB,&
+&.659E-03_JPRB,.659E-03_JPRB,.927E-03_JPRB,.927E-03_JPRB,.116E-02_JPRB,.116E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.138E-02_JPRB,&
+&.138E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  8  62.0
+ZAER (:, 8, 5) = (/&
+&.804E-02_JPRB,.804E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.664E-02_JPRB,.664E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.640E-02_JPRB,.640E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.929E-02_JPRB,.929E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.765E-02_JPRB,&
+&.765E-02_JPRB,.602E-02_JPRB,.602E-02_JPRB,.482E-02_JPRB,.482E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,&
+&.362E-02_JPRB,.362E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.186E-02_JPRB,&
+&.186E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.414E-02_JPRB,&
+&.414E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,&
+&.791E-02_JPRB,.791E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.820E-02_JPRB,.820E-02_JPRB,.709E-02_JPRB,&
+&.709E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,.484E-02_JPRB,.484E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,&
+&.813E-02_JPRB,.813E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat:  9  58.0
+ZAER (:, 9, 5) = (/&
+&.804E-02_JPRB,.804E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.664E-02_JPRB,.664E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.640E-02_JPRB,.640E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.929E-02_JPRB,.929E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.765E-02_JPRB,&
+&.765E-02_JPRB,.602E-02_JPRB,.602E-02_JPRB,.482E-02_JPRB,.482E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,&
+&.362E-02_JPRB,.362E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.186E-02_JPRB,&
+&.186E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.132E-02_JPRB,.132E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.414E-02_JPRB,&
+&.414E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,&
+&.791E-02_JPRB,.791E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.820E-02_JPRB,.820E-02_JPRB,.709E-02_JPRB,&
+&.709E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,.484E-02_JPRB,.484E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,&
+&.813E-02_JPRB,.813E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 10  54.0
+ZAER (:,10, 5) = (/&
+&.123E-01_JPRB,.123E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.963E-02_JPRB,.963E-02_JPRB,.872E-02_JPRB,&
+&.872E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.970E-02_JPRB,.970E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.826E-02_JPRB,.826E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.926E-02_JPRB,.926E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.801E-02_JPRB,&
+&.801E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,&
+&.872E-02_JPRB,.872E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,.903E-02_JPRB,.903E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,&
+&.947E-02_JPRB,.947E-02_JPRB,.912E-02_JPRB,.912E-02_JPRB,.983E-02_JPRB,.983E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 11  50.0
+ZAER (:,11, 5) = (/&
+&.123E-01_JPRB,.123E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.963E-02_JPRB,.963E-02_JPRB,.872E-02_JPRB,&
+&.872E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.970E-02_JPRB,.970E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.826E-02_JPRB,.826E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.926E-02_JPRB,.926E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.801E-02_JPRB,&
+&.801E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,&
+&.872E-02_JPRB,.872E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,.903E-02_JPRB,.903E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,&
+&.947E-02_JPRB,.947E-02_JPRB,.912E-02_JPRB,.912E-02_JPRB,.983E-02_JPRB,.983E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 12  46.0
+ZAER (:,12, 5) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.925E-02_JPRB,.925E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.916E-02_JPRB,&
+&.916E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,&
+&.139E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.969E-02_JPRB,.969E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 13  42.0
+ZAER (:,13, 5) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.925E-02_JPRB,.925E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.916E-02_JPRB,&
+&.916E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,&
+&.139E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.969E-02_JPRB,.969E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 14  38.0
+ZAER (:,14, 5) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.987E-02_JPRB,.987E-02_JPRB,.928E-02_JPRB,&
+&.928E-02_JPRB,.866E-02_JPRB,.866E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.750E-02_JPRB,&
+&.750E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.440E-02_JPRB,.440E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.889E-02_JPRB,.889E-02_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.913E-02_JPRB,.913E-02_JPRB,.904E-02_JPRB,.904E-02_JPRB,&
+&.894E-02_JPRB,.894E-02_JPRB,.860E-02_JPRB,.860E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,.667E-02_JPRB,&
+&.667E-02_JPRB,.432E-02_JPRB,.432E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 15  34.0
+ZAER (:,15, 5) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.987E-02_JPRB,.987E-02_JPRB,.928E-02_JPRB,&
+&.928E-02_JPRB,.866E-02_JPRB,.866E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.750E-02_JPRB,&
+&.750E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.440E-02_JPRB,.440E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.889E-02_JPRB,.889E-02_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.913E-02_JPRB,.913E-02_JPRB,.904E-02_JPRB,.904E-02_JPRB,&
+&.894E-02_JPRB,.894E-02_JPRB,.860E-02_JPRB,.860E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,.667E-02_JPRB,&
+&.667E-02_JPRB,.432E-02_JPRB,.432E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 16  30.0
+ZAER (:,16, 5) = (/&
+&.999E-02_JPRB,.999E-02_JPRB,.856E-02_JPRB,.856E-02_JPRB,.789E-02_JPRB,.789E-02_JPRB,.821E-02_JPRB,&
+&.821E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.921E-02_JPRB,.921E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.955E-02_JPRB,.955E-02_JPRB,.868E-02_JPRB,&
+&.868E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.611E-02_JPRB,.611E-02_JPRB,&
+&.887E-02_JPRB,.887E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.967E-02_JPRB,.967E-02_JPRB,.787E-02_JPRB,.787E-02_JPRB,.433E-02_JPRB,.433E-02_JPRB,&
+&.632E-02_JPRB,.632E-02_JPRB,.913E-02_JPRB,.913E-02_JPRB,.953E-02_JPRB,.953E-02_JPRB,.972E-02_JPRB,&
+&.972E-02_JPRB,.999E-02_JPRB,.999E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.826E-02_JPRB,.826E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.425E-02_JPRB,&
+&.425E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 17  26.0
+ZAER (:,17, 5) = (/&
+&.999E-02_JPRB,.999E-02_JPRB,.856E-02_JPRB,.856E-02_JPRB,.789E-02_JPRB,.789E-02_JPRB,.821E-02_JPRB,&
+&.821E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.921E-02_JPRB,.921E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.955E-02_JPRB,.955E-02_JPRB,.868E-02_JPRB,&
+&.868E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.611E-02_JPRB,.611E-02_JPRB,&
+&.887E-02_JPRB,.887E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.967E-02_JPRB,.967E-02_JPRB,.787E-02_JPRB,.787E-02_JPRB,.433E-02_JPRB,.433E-02_JPRB,&
+&.632E-02_JPRB,.632E-02_JPRB,.913E-02_JPRB,.913E-02_JPRB,.953E-02_JPRB,.953E-02_JPRB,.972E-02_JPRB,&
+&.972E-02_JPRB,.999E-02_JPRB,.999E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.826E-02_JPRB,.826E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.425E-02_JPRB,&
+&.425E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 18  22.0
+ZAER (:,18, 5) = (/&
+&.879E-02_JPRB,.879E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.879E-02_JPRB,&
+&.879E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.345E-02_JPRB,.345E-02_JPRB,&
+&.703E-02_JPRB,.703E-02_JPRB,.969E-02_JPRB,.969E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.894E-02_JPRB,&
+&.894E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.560E-02_JPRB,.560E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,&
+&.457E-02_JPRB,.457E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.834E-02_JPRB,.834E-02_JPRB,.643E-02_JPRB,&
+&.643E-02_JPRB,.711E-02_JPRB,.711E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.952E-02_JPRB,.952E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 19  18.0
+ZAER (:,19, 5) = (/&
+&.879E-02_JPRB,.879E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.879E-02_JPRB,&
+&.879E-02_JPRB,.506E-02_JPRB,.506E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.345E-02_JPRB,.345E-02_JPRB,&
+&.703E-02_JPRB,.703E-02_JPRB,.969E-02_JPRB,.969E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.894E-02_JPRB,&
+&.894E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.560E-02_JPRB,.560E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,&
+&.457E-02_JPRB,.457E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.834E-02_JPRB,.834E-02_JPRB,.643E-02_JPRB,&
+&.643E-02_JPRB,.711E-02_JPRB,.711E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.952E-02_JPRB,.952E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 20  14.0
+ZAER (:,20, 5) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.829E-02_JPRB,.829E-02_JPRB,.519E-02_JPRB,&
+&.519E-02_JPRB,.223E-02_JPRB,.223E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.433E-02_JPRB,.433E-02_JPRB,&
+&.843E-02_JPRB,.843E-02_JPRB,.126E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.830E-02_JPRB,&
+&.830E-02_JPRB,.570E-02_JPRB,.570E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,&
+&.375E-02_JPRB,.375E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.135E-01_JPRB,.135E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.974E-02_JPRB,.974E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,&
+&.958E-02_JPRB,.958E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 21  10.0
+ZAER (:,21, 5) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.829E-02_JPRB,.829E-02_JPRB,.519E-02_JPRB,&
+&.519E-02_JPRB,.223E-02_JPRB,.223E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.433E-02_JPRB,.433E-02_JPRB,&
+&.843E-02_JPRB,.843E-02_JPRB,.126E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.830E-02_JPRB,&
+&.830E-02_JPRB,.570E-02_JPRB,.570E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,&
+&.375E-02_JPRB,.375E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.135E-01_JPRB,.135E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.974E-02_JPRB,.974E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,&
+&.958E-02_JPRB,.958E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 22   6.0
+ZAER (:,22, 5) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,&
+&.150E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.860E-02_JPRB,.860E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.827E-03_JPRB,.827E-03_JPRB,.131E-02_JPRB,.131E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.996E-02_JPRB,.996E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.721E-02_JPRB,&
+&.721E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,&
+&.604E-02_JPRB,.604E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.832E-02_JPRB,.832E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,&
+&.568E-02_JPRB,.568E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,.591E-02_JPRB,&
+&.591E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.862E-02_JPRB,.862E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.120E-01_JPRB,.120E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 23   2.0
+ZAER (:,23, 5) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,&
+&.150E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.860E-02_JPRB,.860E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.827E-03_JPRB,.827E-03_JPRB,.131E-02_JPRB,.131E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.792E-02_JPRB,.792E-02_JPRB,.996E-02_JPRB,.996E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,.721E-02_JPRB,&
+&.721E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,&
+&.604E-02_JPRB,.604E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.832E-02_JPRB,.832E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,&
+&.568E-02_JPRB,.568E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,.591E-02_JPRB,&
+&.591E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.862E-02_JPRB,.862E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.120E-01_JPRB,.120E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 24  -2.0
+ZAER (:,24, 5) = (/&
+&.106E-01_JPRB,.106E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.233E-02_JPRB,&
+&.233E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,&
+&.863E-02_JPRB,.863E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,.376E-02_JPRB,.376E-02_JPRB,.267E-02_JPRB,&
+&.267E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,&
+&.422E-02_JPRB,.422E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.701E-02_JPRB,&
+&.701E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.465E-02_JPRB,.465E-02_JPRB,&
+&.399E-02_JPRB,.399E-02_JPRB,.536E-02_JPRB,.536E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.685E-02_JPRB,&
+&.685E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.831E-02_JPRB,.831E-02_JPRB,&
+&.959E-02_JPRB,.959E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 25  -6.0
+ZAER (:,25, 5) = (/&
+&.106E-01_JPRB,.106E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.233E-02_JPRB,&
+&.233E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,&
+&.863E-02_JPRB,.863E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,.376E-02_JPRB,.376E-02_JPRB,.267E-02_JPRB,&
+&.267E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,&
+&.422E-02_JPRB,.422E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.701E-02_JPRB,&
+&.701E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.465E-02_JPRB,.465E-02_JPRB,&
+&.399E-02_JPRB,.399E-02_JPRB,.536E-02_JPRB,.536E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.685E-02_JPRB,&
+&.685E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.831E-02_JPRB,.831E-02_JPRB,&
+&.959E-02_JPRB,.959E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 26 -10.0
+ZAER (:,26, 5) = (/&
+&.126E-01_JPRB,.126E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.941E-02_JPRB,.941E-02_JPRB,&
+&.811E-02_JPRB,.811E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.689E-02_JPRB,&
+&.689E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.962E-02_JPRB,.962E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.253E-02_JPRB,.253E-02_JPRB,.462E-02_JPRB,.462E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.864E-02_JPRB,&
+&.864E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.617E-02_JPRB,.617E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,&
+&.381E-02_JPRB,.381E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.827E-02_JPRB,.827E-02_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 27 -14.0
+ZAER (:,27, 5) = (/&
+&.126E-01_JPRB,.126E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,&
+&.141E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.941E-02_JPRB,.941E-02_JPRB,&
+&.811E-02_JPRB,.811E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.689E-02_JPRB,&
+&.689E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.962E-02_JPRB,.962E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.253E-02_JPRB,.253E-02_JPRB,.462E-02_JPRB,.462E-02_JPRB,.852E-02_JPRB,.852E-02_JPRB,.864E-02_JPRB,&
+&.864E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.617E-02_JPRB,.617E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,&
+&.381E-02_JPRB,.381E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.827E-02_JPRB,.827E-02_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 28 -18.0
+ZAER (:,28, 5) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.954E-02_JPRB,.954E-02_JPRB,&
+&.762E-02_JPRB,.762E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.664E-02_JPRB,.664E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.988E-02_JPRB,.988E-02_JPRB,.118E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.977E-02_JPRB,.977E-02_JPRB,.812E-02_JPRB,.812E-02_JPRB,.524E-02_JPRB,.524E-02_JPRB,.220E-02_JPRB,&
+&.220E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.202E-02_JPRB,.202E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.877E-02_JPRB,&
+&.877E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 29 -22.0
+ZAER (:,29, 5) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.954E-02_JPRB,.954E-02_JPRB,&
+&.762E-02_JPRB,.762E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.664E-02_JPRB,.664E-02_JPRB,.748E-02_JPRB,&
+&.748E-02_JPRB,.988E-02_JPRB,.988E-02_JPRB,.118E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.977E-02_JPRB,.977E-02_JPRB,.812E-02_JPRB,.812E-02_JPRB,.524E-02_JPRB,.524E-02_JPRB,.220E-02_JPRB,&
+&.220E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.202E-02_JPRB,.202E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.877E-02_JPRB,&
+&.877E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 30 -26.0
+ZAER (:,30, 5) = (/&
+&.548E-02_JPRB,.548E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,&
+&.468E-02_JPRB,.468E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.612E-02_JPRB,&
+&.612E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.892E-02_JPRB,.892E-02_JPRB,&
+&.850E-02_JPRB,.850E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.349E-02_JPRB,&
+&.349E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.352E-02_JPRB,.352E-02_JPRB,.524E-02_JPRB,&
+&.524E-02_JPRB,.616E-02_JPRB,.616E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,&
+&.617E-02_JPRB,.617E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 31 -30.0
+ZAER (:,31, 5) = (/&
+&.548E-02_JPRB,.548E-02_JPRB,.549E-02_JPRB,.549E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,&
+&.468E-02_JPRB,.468E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.612E-02_JPRB,&
+&.612E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.854E-02_JPRB,.854E-02_JPRB,.892E-02_JPRB,.892E-02_JPRB,&
+&.850E-02_JPRB,.850E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.349E-02_JPRB,&
+&.349E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.352E-02_JPRB,.352E-02_JPRB,.524E-02_JPRB,&
+&.524E-02_JPRB,.616E-02_JPRB,.616E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,&
+&.617E-02_JPRB,.617E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 32 -34.0
+ZAER (:,32, 5) = (/&
+&.539E-02_JPRB,.539E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,.642E-02_JPRB,&
+&.642E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.655E-02_JPRB,.655E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,&
+&.173E-02_JPRB,.173E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.250E-02_JPRB,&
+&.250E-02_JPRB,.590E-02_JPRB,.590E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,&
+&.833E-02_JPRB,.833E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.412E-02_JPRB,&
+&.412E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,&
+&.261E-02_JPRB,.261E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.101E-02_JPRB,&
+&.101E-02_JPRB,.920E-03_JPRB,.920E-03_JPRB,.948E-03_JPRB,.948E-03_JPRB,.829E-03_JPRB,.829E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.579E-03_JPRB,.579E-03_JPRB,.171E-02_JPRB,.171E-02_JPRB,.260E-02_JPRB,&
+&.260E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.733E-02_JPRB,.733E-02_JPRB,&
+&.732E-02_JPRB,.732E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 33 -38.0
+ZAER (:,33, 5) = (/&
+&.539E-02_JPRB,.539E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,.642E-02_JPRB,&
+&.642E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.655E-02_JPRB,.655E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,&
+&.173E-02_JPRB,.173E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,.250E-02_JPRB,&
+&.250E-02_JPRB,.590E-02_JPRB,.590E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,&
+&.833E-02_JPRB,.833E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.412E-02_JPRB,&
+&.412E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,&
+&.261E-02_JPRB,.261E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.101E-02_JPRB,&
+&.101E-02_JPRB,.920E-03_JPRB,.920E-03_JPRB,.948E-03_JPRB,.948E-03_JPRB,.829E-03_JPRB,.829E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.579E-03_JPRB,.579E-03_JPRB,.171E-02_JPRB,.171E-02_JPRB,.260E-02_JPRB,&
+&.260E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.733E-02_JPRB,.733E-02_JPRB,&
+&.732E-02_JPRB,.732E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 34 -42.0
+ZAER (:,34, 5) = (/&
+&.748E-02_JPRB,.748E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.683E-03_JPRB,.683E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,.560E-03_JPRB,.560E-03_JPRB,.472E-03_JPRB,&
+&.472E-03_JPRB,.209E-02_JPRB,.209E-02_JPRB,.464E-02_JPRB,.464E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,&
+&.789E-02_JPRB,.789E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.671E-02_JPRB,.671E-02_JPRB,.419E-02_JPRB,&
+&.419E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.219E-02_JPRB,.219E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.868E-03_JPRB,&
+&.868E-03_JPRB,.734E-03_JPRB,.734E-03_JPRB,.647E-03_JPRB,.647E-03_JPRB,.598E-03_JPRB,.598E-03_JPRB,&
+&.532E-03_JPRB,.532E-03_JPRB,.455E-03_JPRB,.455E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,&
+&.809E-02_JPRB,.809E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 35 -46.0
+ZAER (:,35, 5) = (/&
+&.748E-02_JPRB,.748E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,.142E-02_JPRB,.142E-02_JPRB,&
+&.683E-03_JPRB,.683E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,.560E-03_JPRB,.560E-03_JPRB,.472E-03_JPRB,&
+&.472E-03_JPRB,.209E-02_JPRB,.209E-02_JPRB,.464E-02_JPRB,.464E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,&
+&.789E-02_JPRB,.789E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.671E-02_JPRB,.671E-02_JPRB,.419E-02_JPRB,&
+&.419E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.219E-02_JPRB,.219E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.868E-03_JPRB,&
+&.868E-03_JPRB,.734E-03_JPRB,.734E-03_JPRB,.647E-03_JPRB,.647E-03_JPRB,.598E-03_JPRB,.598E-03_JPRB,&
+&.532E-03_JPRB,.532E-03_JPRB,.455E-03_JPRB,.455E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.115E-02_JPRB,&
+&.115E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,.644E-02_JPRB,.644E-02_JPRB,&
+&.809E-02_JPRB,.809E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 36 -50.0
+ZAER (:,36, 5) = (/&
+&.683E-02_JPRB,.683E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,.480E-02_JPRB,&
+&.480E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.882E-03_JPRB,.882E-03_JPRB,&
+&.457E-03_JPRB,.457E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.620E-03_JPRB,.620E-03_JPRB,.696E-03_JPRB,&
+&.696E-03_JPRB,.675E-03_JPRB,.675E-03_JPRB,.271E-02_JPRB,.271E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,&
+&.749E-02_JPRB,.749E-02_JPRB,.727E-02_JPRB,.727E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.404E-02_JPRB,&
+&.404E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.816E-03_JPRB,&
+&.816E-03_JPRB,.692E-03_JPRB,.692E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.491E-03_JPRB,.491E-03_JPRB,&
+&.406E-03_JPRB,.406E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.276E-03_JPRB,.276E-03_JPRB,.356E-03_JPRB,&
+&.356E-03_JPRB,.159E-02_JPRB,.159E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,&
+&.641E-02_JPRB,.641E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 37 -54.0
+ZAER (:,37, 5) = (/&
+&.683E-02_JPRB,.683E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,.480E-02_JPRB,&
+&.480E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.882E-03_JPRB,.882E-03_JPRB,&
+&.457E-03_JPRB,.457E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.620E-03_JPRB,.620E-03_JPRB,.696E-03_JPRB,&
+&.696E-03_JPRB,.675E-03_JPRB,.675E-03_JPRB,.271E-02_JPRB,.271E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,&
+&.749E-02_JPRB,.749E-02_JPRB,.727E-02_JPRB,.727E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.404E-02_JPRB,&
+&.404E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.816E-03_JPRB,&
+&.816E-03_JPRB,.692E-03_JPRB,.692E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.491E-03_JPRB,.491E-03_JPRB,&
+&.406E-03_JPRB,.406E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.276E-03_JPRB,.276E-03_JPRB,.356E-03_JPRB,&
+&.356E-03_JPRB,.159E-02_JPRB,.159E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,&
+&.641E-02_JPRB,.641E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 38 -58.0
+ZAER (:,38, 5) = (/&
+&.464E-02_JPRB,.464E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.173E-02_JPRB,&
+&.173E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.717E-03_JPRB,.717E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.279E-02_JPRB,.279E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,&
+&.588E-02_JPRB,.588E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,.422E-02_JPRB,&
+&.422E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.805E-03_JPRB,.805E-03_JPRB,.797E-03_JPRB,.797E-03_JPRB,.774E-03_JPRB,.774E-03_JPRB,.665E-03_JPRB,&
+&.665E-03_JPRB,.527E-03_JPRB,.527E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,&
+&.273E-03_JPRB,.273E-03_JPRB,.229E-03_JPRB,.229E-03_JPRB,.232E-03_JPRB,.232E-03_JPRB,.378E-03_JPRB,&
+&.378E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,&
+&.388E-02_JPRB,.388E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 39 -62.0
+ZAER (:,39, 5) = (/&
+&.464E-02_JPRB,.464E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.173E-02_JPRB,&
+&.173E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.717E-03_JPRB,.717E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.279E-02_JPRB,.279E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,&
+&.588E-02_JPRB,.588E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,.422E-02_JPRB,&
+&.422E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,&
+&.805E-03_JPRB,.805E-03_JPRB,.797E-03_JPRB,.797E-03_JPRB,.774E-03_JPRB,.774E-03_JPRB,.665E-03_JPRB,&
+&.665E-03_JPRB,.527E-03_JPRB,.527E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,&
+&.273E-03_JPRB,.273E-03_JPRB,.229E-03_JPRB,.229E-03_JPRB,.232E-03_JPRB,.232E-03_JPRB,.378E-03_JPRB,&
+&.378E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,&
+&.388E-02_JPRB,.388E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 40 -66.0
+ZAER (:,40, 5) = (/&
+&.188E-02_JPRB,.188E-02_JPRB,.223E-02_JPRB,.223E-02_JPRB,.621E-03_JPRB,.621E-03_JPRB,.506E-03_JPRB,&
+&.506E-03_JPRB,.827E-03_JPRB,.827E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.491E-03_JPRB,.491E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.693E-03_JPRB,.693E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.691E-03_JPRB,&
+&.691E-03_JPRB,.133E-02_JPRB,.133E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.212E-02_JPRB,.212E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.453E-02_JPRB,&
+&.453E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.371E-02_JPRB,.371E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.183E-02_JPRB,.183E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.673E-03_JPRB,.673E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.285E-03_JPRB,.285E-03_JPRB,&
+&.246E-03_JPRB,.246E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.406E-03_JPRB,&
+&.406E-03_JPRB,.447E-03_JPRB,.447E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,&
+&.144E-02_JPRB,.144E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 41 -70.0
+ZAER (:,41, 5) = (/&
+&.188E-02_JPRB,.188E-02_JPRB,.223E-02_JPRB,.223E-02_JPRB,.621E-03_JPRB,.621E-03_JPRB,.506E-03_JPRB,&
+&.506E-03_JPRB,.827E-03_JPRB,.827E-03_JPRB,.668E-03_JPRB,.668E-03_JPRB,.491E-03_JPRB,.491E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.693E-03_JPRB,.693E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.691E-03_JPRB,&
+&.691E-03_JPRB,.133E-02_JPRB,.133E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.212E-02_JPRB,.212E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.453E-02_JPRB,&
+&.453E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.371E-02_JPRB,.371E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.183E-02_JPRB,.183E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.673E-03_JPRB,.673E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.285E-03_JPRB,.285E-03_JPRB,&
+&.246E-03_JPRB,.246E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.406E-03_JPRB,&
+&.406E-03_JPRB,.447E-03_JPRB,.447E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,&
+&.144E-02_JPRB,.144E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 42 -74.0
+ZAER (:,42, 5) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.576E-03_JPRB,.576E-03_JPRB,.446E-03_JPRB,&
+&.446E-03_JPRB,.932E-03_JPRB,.932E-03_JPRB,.866E-03_JPRB,.866E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,&
+&.334E-03_JPRB,.334E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.376E-03_JPRB,.376E-03_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.740E-03_JPRB,.740E-03_JPRB,&
+&.647E-03_JPRB,.647E-03_JPRB,.644E-03_JPRB,.644E-03_JPRB,.157E-02_JPRB,.157E-02_JPRB,.298E-02_JPRB,&
+&.298E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.415E-02_JPRB,.415E-02_JPRB,.401E-02_JPRB,.401E-02_JPRB,&
+&.391E-02_JPRB,.391E-02_JPRB,.295E-02_JPRB,.295E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.310E-03_JPRB,.310E-03_JPRB,&
+&.345E-03_JPRB,.345E-03_JPRB,.673E-03_JPRB,.673E-03_JPRB,.253E-02_JPRB,.253E-02_JPRB,.223E-02_JPRB,&
+&.223E-02_JPRB,.420E-03_JPRB,.420E-03_JPRB,.468E-03_JPRB,.468E-03_JPRB,.732E-03_JPRB,.732E-03_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 43 -78.0
+ZAER (:,43, 5) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.128E-02_JPRB,.128E-02_JPRB,.576E-03_JPRB,.576E-03_JPRB,.446E-03_JPRB,&
+&.446E-03_JPRB,.932E-03_JPRB,.932E-03_JPRB,.866E-03_JPRB,.866E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,&
+&.334E-03_JPRB,.334E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,.376E-03_JPRB,.376E-03_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.740E-03_JPRB,.740E-03_JPRB,&
+&.647E-03_JPRB,.647E-03_JPRB,.644E-03_JPRB,.644E-03_JPRB,.157E-02_JPRB,.157E-02_JPRB,.298E-02_JPRB,&
+&.298E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.415E-02_JPRB,.415E-02_JPRB,.401E-02_JPRB,.401E-02_JPRB,&
+&.391E-02_JPRB,.391E-02_JPRB,.295E-02_JPRB,.295E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.142E-02_JPRB,&
+&.142E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.310E-03_JPRB,.310E-03_JPRB,&
+&.345E-03_JPRB,.345E-03_JPRB,.673E-03_JPRB,.673E-03_JPRB,.253E-02_JPRB,.253E-02_JPRB,.223E-02_JPRB,&
+&.223E-02_JPRB,.420E-03_JPRB,.420E-03_JPRB,.468E-03_JPRB,.468E-03_JPRB,.732E-03_JPRB,.732E-03_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 44 -82.0
+ZAER (:,44, 5) = (/&
+&.421E-03_JPRB,.421E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.356E-03_JPRB,&
+&.356E-03_JPRB,.364E-03_JPRB,.364E-03_JPRB,.339E-03_JPRB,.339E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,&
+&.332E-03_JPRB,.332E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,.440E-03_JPRB,&
+&.440E-03_JPRB,.485E-03_JPRB,.485E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.446E-03_JPRB,.446E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.150E-02_JPRB,.150E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.488E-03_JPRB,.488E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,.330E-03_JPRB,&
+&.330E-03_JPRB,.337E-03_JPRB,.337E-03_JPRB,.338E-03_JPRB,.338E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.610E-03_JPRB,.610E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.807E-03_JPRB,&
+&.807E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,.346E-03_JPRB,.346E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,&
+&.415E-03_JPRB,.415E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 45 -86.0
+ZAER (:,45, 5) = (/&
+&.421E-03_JPRB,.421E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.356E-03_JPRB,&
+&.356E-03_JPRB,.364E-03_JPRB,.364E-03_JPRB,.339E-03_JPRB,.339E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,&
+&.332E-03_JPRB,.332E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,.440E-03_JPRB,&
+&.440E-03_JPRB,.485E-03_JPRB,.485E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.446E-03_JPRB,.446E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.947E-03_JPRB,&
+&.947E-03_JPRB,.150E-02_JPRB,.150E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.488E-03_JPRB,.488E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,.330E-03_JPRB,&
+&.330E-03_JPRB,.337E-03_JPRB,.337E-03_JPRB,.338E-03_JPRB,.338E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.610E-03_JPRB,.610E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.807E-03_JPRB,&
+&.807E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,.346E-03_JPRB,.346E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,&
+&.415E-03_JPRB,.415E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  5 --- lat: 46 -90.0
+ZAER (:,46, 5) = (/&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.302E-03_JPRB,.302E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=5   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_05
Index: LMDZ5/branches/testing/libf/phymar/suecaess_06.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_06.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_06.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_06
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      June
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,6:6)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  6 --- lat:  1  90.0
+ZAER (:, 1, 6) = (/&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.438E-03_JPRB,.438E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  2  86.0
+ZAER (:, 2, 6) = (/&
+&.548E-03_JPRB,.548E-03_JPRB,.550E-03_JPRB,.550E-03_JPRB,.584E-03_JPRB,.584E-03_JPRB,.644E-03_JPRB,&
+&.644E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,.754E-03_JPRB,.754E-03_JPRB,.791E-03_JPRB,.791E-03_JPRB,&
+&.829E-03_JPRB,.829E-03_JPRB,.832E-03_JPRB,.832E-03_JPRB,.817E-03_JPRB,.817E-03_JPRB,.796E-03_JPRB,&
+&.796E-03_JPRB,.768E-03_JPRB,.768E-03_JPRB,.756E-03_JPRB,.756E-03_JPRB,.724E-03_JPRB,.724E-03_JPRB,&
+&.693E-03_JPRB,.693E-03_JPRB,.615E-03_JPRB,.615E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.401E-03_JPRB,&
+&.401E-03_JPRB,.343E-03_JPRB,.343E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,&
+&.288E-03_JPRB,.288E-03_JPRB,.286E-03_JPRB,.286E-03_JPRB,.290E-03_JPRB,.290E-03_JPRB,.292E-03_JPRB,&
+&.292E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.274E-03_JPRB,.274E-03_JPRB,&
+&.275E-03_JPRB,.275E-03_JPRB,.297E-03_JPRB,.297E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,.364E-03_JPRB,&
+&.364E-03_JPRB,.401E-03_JPRB,.401E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.489E-03_JPRB,.489E-03_JPRB,&
+&.541E-03_JPRB,.541E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  3  82.0
+ZAER (:, 3, 6) = (/&
+&.548E-03_JPRB,.548E-03_JPRB,.550E-03_JPRB,.550E-03_JPRB,.584E-03_JPRB,.584E-03_JPRB,.644E-03_JPRB,&
+&.644E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,.754E-03_JPRB,.754E-03_JPRB,.791E-03_JPRB,.791E-03_JPRB,&
+&.829E-03_JPRB,.829E-03_JPRB,.832E-03_JPRB,.832E-03_JPRB,.817E-03_JPRB,.817E-03_JPRB,.796E-03_JPRB,&
+&.796E-03_JPRB,.768E-03_JPRB,.768E-03_JPRB,.756E-03_JPRB,.756E-03_JPRB,.724E-03_JPRB,.724E-03_JPRB,&
+&.693E-03_JPRB,.693E-03_JPRB,.615E-03_JPRB,.615E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.401E-03_JPRB,&
+&.401E-03_JPRB,.343E-03_JPRB,.343E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,&
+&.288E-03_JPRB,.288E-03_JPRB,.286E-03_JPRB,.286E-03_JPRB,.290E-03_JPRB,.290E-03_JPRB,.292E-03_JPRB,&
+&.292E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.274E-03_JPRB,.274E-03_JPRB,&
+&.275E-03_JPRB,.275E-03_JPRB,.297E-03_JPRB,.297E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,.364E-03_JPRB,&
+&.364E-03_JPRB,.401E-03_JPRB,.401E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.489E-03_JPRB,.489E-03_JPRB,&
+&.541E-03_JPRB,.541E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  4  78.0
+ZAER (:, 4, 6) = (/&
+&.648E-03_JPRB,.648E-03_JPRB,.640E-03_JPRB,.640E-03_JPRB,.620E-03_JPRB,.620E-03_JPRB,.643E-03_JPRB,&
+&.643E-03_JPRB,.699E-03_JPRB,.699E-03_JPRB,.761E-03_JPRB,.761E-03_JPRB,.918E-03_JPRB,.918E-03_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.131E-02_JPRB,.131E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.989E-03_JPRB,.989E-03_JPRB,.744E-03_JPRB,&
+&.744E-03_JPRB,.477E-03_JPRB,.477E-03_JPRB,.345E-03_JPRB,.345E-03_JPRB,.413E-03_JPRB,.413E-03_JPRB,&
+&.549E-03_JPRB,.549E-03_JPRB,.653E-03_JPRB,.653E-03_JPRB,.667E-03_JPRB,.667E-03_JPRB,.640E-03_JPRB,&
+&.640E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.456E-03_JPRB,.456E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,&
+&.301E-03_JPRB,.301E-03_JPRB,.311E-03_JPRB,.311E-03_JPRB,.341E-03_JPRB,.341E-03_JPRB,.369E-03_JPRB,&
+&.369E-03_JPRB,.447E-03_JPRB,.447E-03_JPRB,.564E-03_JPRB,.564E-03_JPRB,.621E-03_JPRB,.621E-03_JPRB,&
+&.664E-03_JPRB,.664E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  5  74.0
+ZAER (:, 5, 6) = (/&
+&.648E-03_JPRB,.648E-03_JPRB,.640E-03_JPRB,.640E-03_JPRB,.620E-03_JPRB,.620E-03_JPRB,.643E-03_JPRB,&
+&.643E-03_JPRB,.699E-03_JPRB,.699E-03_JPRB,.761E-03_JPRB,.761E-03_JPRB,.918E-03_JPRB,.918E-03_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.125E-02_JPRB,&
+&.125E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,&
+&.131E-02_JPRB,.131E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.989E-03_JPRB,.989E-03_JPRB,.744E-03_JPRB,&
+&.744E-03_JPRB,.477E-03_JPRB,.477E-03_JPRB,.345E-03_JPRB,.345E-03_JPRB,.413E-03_JPRB,.413E-03_JPRB,&
+&.549E-03_JPRB,.549E-03_JPRB,.653E-03_JPRB,.653E-03_JPRB,.667E-03_JPRB,.667E-03_JPRB,.640E-03_JPRB,&
+&.640E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.456E-03_JPRB,.456E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,&
+&.301E-03_JPRB,.301E-03_JPRB,.311E-03_JPRB,.311E-03_JPRB,.341E-03_JPRB,.341E-03_JPRB,.369E-03_JPRB,&
+&.369E-03_JPRB,.447E-03_JPRB,.447E-03_JPRB,.564E-03_JPRB,.564E-03_JPRB,.621E-03_JPRB,.621E-03_JPRB,&
+&.664E-03_JPRB,.664E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  6  70.0
+ZAER (:, 6, 6) = (/&
+&.147E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,&
+&.272E-02_JPRB,.272E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.321E-02_JPRB,.321E-02_JPRB,.295E-02_JPRB,&
+&.295E-02_JPRB,.229E-02_JPRB,.229E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.721E-03_JPRB,.721E-03_JPRB,.559E-03_JPRB,.559E-03_JPRB,.579E-03_JPRB,.579E-03_JPRB,&
+&.772E-03_JPRB,.772E-03_JPRB,.110E-02_JPRB,.110E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.767E-03_JPRB,.767E-03_JPRB,&
+&.675E-03_JPRB,.675E-03_JPRB,.716E-03_JPRB,.716E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.934E-03_JPRB,&
+&.934E-03_JPRB,.130E-02_JPRB,.130E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,&
+&.181E-02_JPRB,.181E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  7  66.0
+ZAER (:, 7, 6) = (/&
+&.147E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,&
+&.272E-02_JPRB,.272E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.321E-02_JPRB,.321E-02_JPRB,.295E-02_JPRB,&
+&.295E-02_JPRB,.229E-02_JPRB,.229E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.103E-02_JPRB,&
+&.103E-02_JPRB,.721E-03_JPRB,.721E-03_JPRB,.559E-03_JPRB,.559E-03_JPRB,.579E-03_JPRB,.579E-03_JPRB,&
+&.772E-03_JPRB,.772E-03_JPRB,.110E-02_JPRB,.110E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.767E-03_JPRB,.767E-03_JPRB,&
+&.675E-03_JPRB,.675E-03_JPRB,.716E-03_JPRB,.716E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.934E-03_JPRB,&
+&.934E-03_JPRB,.130E-02_JPRB,.130E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,&
+&.181E-02_JPRB,.181E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  8  62.0
+ZAER (:, 8, 6) = (/&
+&.855E-02_JPRB,.855E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.361E-02_JPRB,&
+&.361E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.912E-02_JPRB,.912E-02_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.981E-02_JPRB,&
+&.981E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.344E-02_JPRB,.344E-02_JPRB,&
+&.333E-02_JPRB,.333E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.195E-02_JPRB,&
+&.195E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.963E-03_JPRB,.963E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.439E-02_JPRB,&
+&.439E-02_JPRB,.425E-02_JPRB,.425E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,.444E-02_JPRB,&
+&.444E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,&
+&.894E-02_JPRB,.894E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat:  9  58.0
+ZAER (:, 9, 6) = (/&
+&.855E-02_JPRB,.855E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.361E-02_JPRB,&
+&.361E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.912E-02_JPRB,.912E-02_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.981E-02_JPRB,&
+&.981E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.344E-02_JPRB,.344E-02_JPRB,&
+&.333E-02_JPRB,.333E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.195E-02_JPRB,&
+&.195E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.963E-03_JPRB,.963E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,&
+&.114E-02_JPRB,.114E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.439E-02_JPRB,&
+&.439E-02_JPRB,.425E-02_JPRB,.425E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,.444E-02_JPRB,&
+&.444E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,&
+&.894E-02_JPRB,.894E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 10  54.0
+ZAER (:,10, 6) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.930E-02_JPRB,.930E-02_JPRB,.853E-02_JPRB,&
+&.853E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.861E-02_JPRB,.861E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,&
+&.961E-02_JPRB,.961E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.804E-02_JPRB,.804E-02_JPRB,.960E-02_JPRB,.960E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.948E-02_JPRB,.948E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.596E-02_JPRB,&
+&.596E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.468E-02_JPRB,.468E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,&
+&.775E-02_JPRB,.775E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.930E-02_JPRB,.930E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 11  50.0
+ZAER (:,11, 6) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.930E-02_JPRB,.930E-02_JPRB,.853E-02_JPRB,&
+&.853E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.861E-02_JPRB,.861E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,&
+&.961E-02_JPRB,.961E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.804E-02_JPRB,.804E-02_JPRB,.960E-02_JPRB,.960E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.948E-02_JPRB,.948E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.596E-02_JPRB,&
+&.596E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.468E-02_JPRB,.468E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,&
+&.775E-02_JPRB,.775E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.135E-01_JPRB,&
+&.135E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.930E-02_JPRB,.930E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.129E-01_JPRB,&
+&.129E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 12  46.0
+ZAER (:,12, 6) = (/&
+&.947E-02_JPRB,.947E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.961E-02_JPRB,&
+&.961E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.896E-02_JPRB,&
+&.896E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.985E-02_JPRB,.985E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.172E-01_JPRB,&
+&.172E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,&
+&.139E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.797E-02_JPRB,.797E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 13  42.0
+ZAER (:,13, 6) = (/&
+&.947E-02_JPRB,.947E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.961E-02_JPRB,&
+&.961E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.896E-02_JPRB,&
+&.896E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.985E-02_JPRB,.985E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.172E-01_JPRB,&
+&.172E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,&
+&.139E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.797E-02_JPRB,.797E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 14  38.0
+ZAER (:,14, 6) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.935E-02_JPRB,.935E-02_JPRB,.760E-02_JPRB,&
+&.760E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.950E-02_JPRB,.950E-02_JPRB,.980E-02_JPRB,&
+&.980E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.975E-02_JPRB,.975E-02_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,&
+&.125E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.620E-02_JPRB,.620E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 15  34.0
+ZAER (:,15, 6) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.935E-02_JPRB,.935E-02_JPRB,.760E-02_JPRB,&
+&.760E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.416E-02_JPRB,.416E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.950E-02_JPRB,.950E-02_JPRB,.980E-02_JPRB,&
+&.980E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.975E-02_JPRB,.975E-02_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,&
+&.125E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.620E-02_JPRB,.620E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 16  30.0
+ZAER (:,16, 6) = (/&
+&.100E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.968E-02_JPRB,.968E-02_JPRB,.913E-02_JPRB,&
+&.913E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.995E-02_JPRB,.995E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.735E-02_JPRB,&
+&.735E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,&
+&.842E-02_JPRB,.842E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.907E-02_JPRB,&
+&.907E-02_JPRB,.904E-02_JPRB,.904E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,&
+&.611E-02_JPRB,.611E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.903E-02_JPRB,.903E-02_JPRB,&
+&.861E-02_JPRB,.861E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.492E-02_JPRB,.492E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.986E-02_JPRB,.986E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 17  26.0
+ZAER (:,17, 6) = (/&
+&.100E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.968E-02_JPRB,.968E-02_JPRB,.913E-02_JPRB,&
+&.913E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.995E-02_JPRB,.995E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.735E-02_JPRB,&
+&.735E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.348E-02_JPRB,.348E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,&
+&.842E-02_JPRB,.842E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.907E-02_JPRB,&
+&.907E-02_JPRB,.904E-02_JPRB,.904E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,&
+&.611E-02_JPRB,.611E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.903E-02_JPRB,.903E-02_JPRB,&
+&.861E-02_JPRB,.861E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.492E-02_JPRB,.492E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.986E-02_JPRB,.986E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 18  22.0
+ZAER (:,18, 6) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.960E-02_JPRB,.960E-02_JPRB,.784E-02_JPRB,&
+&.784E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,&
+&.690E-02_JPRB,.690E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.961E-02_JPRB,.961E-02_JPRB,.923E-02_JPRB,&
+&.923E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,&
+&.358E-02_JPRB,.358E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,.806E-02_JPRB,.806E-02_JPRB,.114E-01_JPRB,&
+&.114E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.799E-02_JPRB,.799E-02_JPRB,.694E-02_JPRB,&
+&.694E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 19  18.0
+ZAER (:,19, 6) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.960E-02_JPRB,.960E-02_JPRB,.784E-02_JPRB,&
+&.784E-02_JPRB,.472E-02_JPRB,.472E-02_JPRB,.349E-02_JPRB,.349E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,&
+&.690E-02_JPRB,.690E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.961E-02_JPRB,.961E-02_JPRB,.923E-02_JPRB,&
+&.923E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.255E-02_JPRB,.255E-02_JPRB,&
+&.358E-02_JPRB,.358E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,.806E-02_JPRB,.806E-02_JPRB,.114E-01_JPRB,&
+&.114E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.799E-02_JPRB,.799E-02_JPRB,.694E-02_JPRB,&
+&.694E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 20  14.0
+ZAER (:,20, 6) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.151E-01_JPRB,&
+&.151E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.841E-02_JPRB,.841E-02_JPRB,.550E-02_JPRB,&
+&.550E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.462E-02_JPRB,.462E-02_JPRB,&
+&.806E-02_JPRB,.806E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.779E-02_JPRB,&
+&.779E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,&
+&.447E-02_JPRB,.447E-02_JPRB,.824E-02_JPRB,.824E-02_JPRB,.124E-01_JPRB,.124E-01_JPRB,.154E-01_JPRB,&
+&.154E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.171E-01_JPRB,.171E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.838E-02_JPRB,&
+&.838E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 21  10.0
+ZAER (:,21, 6) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.151E-01_JPRB,&
+&.151E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.841E-02_JPRB,.841E-02_JPRB,.550E-02_JPRB,&
+&.550E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.462E-02_JPRB,.462E-02_JPRB,&
+&.806E-02_JPRB,.806E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.779E-02_JPRB,&
+&.779E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,&
+&.447E-02_JPRB,.447E-02_JPRB,.824E-02_JPRB,.824E-02_JPRB,.124E-01_JPRB,.124E-01_JPRB,.154E-01_JPRB,&
+&.154E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.171E-01_JPRB,.171E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.838E-02_JPRB,&
+&.838E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 22   6.0
+ZAER (:,22, 6) = (/&
+&.149E-01_JPRB,.149E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,&
+&.159E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.847E-02_JPRB,.847E-02_JPRB,.537E-02_JPRB,.537E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.633E-02_JPRB,.633E-02_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.868E-02_JPRB,.868E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.387E-02_JPRB,.387E-02_JPRB,.520E-02_JPRB,.520E-02_JPRB,&
+&.820E-02_JPRB,.820E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.900E-02_JPRB,.900E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,&
+&.666E-02_JPRB,.666E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.736E-02_JPRB,&
+&.736E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 23   2.0
+ZAER (:,23, 6) = (/&
+&.149E-01_JPRB,.149E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,&
+&.159E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.847E-02_JPRB,.847E-02_JPRB,.537E-02_JPRB,.537E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.633E-02_JPRB,.633E-02_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.868E-02_JPRB,.868E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.387E-02_JPRB,.387E-02_JPRB,.520E-02_JPRB,.520E-02_JPRB,&
+&.820E-02_JPRB,.820E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.900E-02_JPRB,.900E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,&
+&.666E-02_JPRB,.666E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.736E-02_JPRB,&
+&.736E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 24  -2.0
+ZAER (:,24, 6) = (/&
+&.111E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.988E-02_JPRB,.988E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.208E-02_JPRB,&
+&.208E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,&
+&.801E-02_JPRB,.801E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.482E-02_JPRB,.482E-02_JPRB,.359E-02_JPRB,&
+&.359E-02_JPRB,.292E-02_JPRB,.292E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,&
+&.626E-02_JPRB,.626E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.132E-01_JPRB,.132E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.930E-02_JPRB,.930E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.667E-02_JPRB,.667E-02_JPRB,&
+&.482E-02_JPRB,.482E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.753E-02_JPRB,&
+&.753E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.892E-02_JPRB,.892E-02_JPRB,.961E-02_JPRB,.961E-02_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 25  -6.0
+ZAER (:,25, 6) = (/&
+&.111E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.988E-02_JPRB,.988E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.208E-02_JPRB,&
+&.208E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,&
+&.801E-02_JPRB,.801E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.482E-02_JPRB,.482E-02_JPRB,.359E-02_JPRB,&
+&.359E-02_JPRB,.292E-02_JPRB,.292E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,&
+&.626E-02_JPRB,.626E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.132E-01_JPRB,.132E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.930E-02_JPRB,.930E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.667E-02_JPRB,.667E-02_JPRB,&
+&.482E-02_JPRB,.482E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.753E-02_JPRB,&
+&.753E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.892E-02_JPRB,.892E-02_JPRB,.961E-02_JPRB,.961E-02_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 26 -10.0
+ZAER (:,26, 6) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.150E-01_JPRB,&
+&.150E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.883E-02_JPRB,.883E-02_JPRB,&
+&.664E-02_JPRB,.664E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.649E-02_JPRB,&
+&.649E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.924E-02_JPRB,.924E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.913E-03_JPRB,.913E-03_JPRB,.908E-03_JPRB,.908E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.249E-02_JPRB,.249E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.143E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,&
+&.134E-01_JPRB,.806E-02_JPRB,.806E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,&
+&.367E-02_JPRB,.367E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.988E-02_JPRB,&
+&.988E-02_JPRB,.952E-02_JPRB,.952E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 27 -14.0
+ZAER (:,27, 6) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.150E-01_JPRB,&
+&.150E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.883E-02_JPRB,.883E-02_JPRB,&
+&.664E-02_JPRB,.664E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.649E-02_JPRB,&
+&.649E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.924E-02_JPRB,.924E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.913E-03_JPRB,.913E-03_JPRB,.908E-03_JPRB,.908E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.249E-02_JPRB,.249E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.143E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,&
+&.134E-01_JPRB,.806E-02_JPRB,.806E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,&
+&.367E-02_JPRB,.367E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.988E-02_JPRB,&
+&.988E-02_JPRB,.952E-02_JPRB,.952E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 28 -18.0
+ZAER (:,28, 6) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.946E-02_JPRB,.946E-02_JPRB,.775E-02_JPRB,.775E-02_JPRB,&
+&.550E-02_JPRB,.550E-02_JPRB,.412E-02_JPRB,.412E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.648E-02_JPRB,&
+&.648E-02_JPRB,.963E-02_JPRB,.963E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.889E-02_JPRB,.889E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.144E-02_JPRB,.144E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.841E-02_JPRB,&
+&.841E-02_JPRB,.504E-02_JPRB,.504E-02_JPRB,.283E-02_JPRB,.283E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,.714E-02_JPRB,&
+&.714E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 29 -22.0
+ZAER (:,29, 6) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.946E-02_JPRB,.946E-02_JPRB,.775E-02_JPRB,.775E-02_JPRB,&
+&.550E-02_JPRB,.550E-02_JPRB,.412E-02_JPRB,.412E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.648E-02_JPRB,&
+&.648E-02_JPRB,.963E-02_JPRB,.963E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.889E-02_JPRB,.889E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.144E-02_JPRB,.144E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.841E-02_JPRB,&
+&.841E-02_JPRB,.504E-02_JPRB,.504E-02_JPRB,.283E-02_JPRB,.283E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,.714E-02_JPRB,&
+&.714E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 30 -26.0
+ZAER (:,30, 6) = (/&
+&.904E-02_JPRB,.904E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.903E-02_JPRB,&
+&.903E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.666E-02_JPRB,.666E-02_JPRB,&
+&.443E-02_JPRB,.443E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.539E-02_JPRB,&
+&.539E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.951E-02_JPRB,.951E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.937E-02_JPRB,.937E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.340E-02_JPRB,&
+&.340E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,&
+&.184E-02_JPRB,.184E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.198E-02_JPRB,&
+&.198E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.952E-03_JPRB,.952E-03_JPRB,&
+&.833E-03_JPRB,.833E-03_JPRB,.140E-02_JPRB,.140E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.468E-02_JPRB,&
+&.468E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,&
+&.863E-02_JPRB,.863E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 31 -30.0
+ZAER (:,31, 6) = (/&
+&.904E-02_JPRB,.904E-02_JPRB,.889E-02_JPRB,.889E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.903E-02_JPRB,&
+&.903E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.666E-02_JPRB,.666E-02_JPRB,&
+&.443E-02_JPRB,.443E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.539E-02_JPRB,&
+&.539E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.951E-02_JPRB,.951E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.937E-02_JPRB,.937E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.340E-02_JPRB,&
+&.340E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,&
+&.184E-02_JPRB,.184E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,.198E-02_JPRB,&
+&.198E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.952E-03_JPRB,.952E-03_JPRB,&
+&.833E-03_JPRB,.833E-03_JPRB,.140E-02_JPRB,.140E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.468E-02_JPRB,&
+&.468E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,&
+&.863E-02_JPRB,.863E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 32 -34.0
+ZAER (:,32, 6) = (/&
+&.563E-02_JPRB,.563E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.643E-02_JPRB,&
+&.643E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.446E-02_JPRB,.446E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,&
+&.244E-02_JPRB,.244E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.259E-02_JPRB,&
+&.259E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.795E-02_JPRB,.795E-02_JPRB,&
+&.650E-02_JPRB,.650E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.389E-02_JPRB,&
+&.389E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,&
+&.268E-02_JPRB,.268E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.848E-03_JPRB,.848E-03_JPRB,.760E-03_JPRB,.760E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,&
+&.440E-03_JPRB,.440E-03_JPRB,.511E-03_JPRB,.511E-03_JPRB,.164E-02_JPRB,.164E-02_JPRB,.291E-02_JPRB,&
+&.291E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.584E-02_JPRB,.584E-02_JPRB,.570E-02_JPRB,.570E-02_JPRB,&
+&.631E-02_JPRB,.631E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 33 -38.0
+ZAER (:,33, 6) = (/&
+&.563E-02_JPRB,.563E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.643E-02_JPRB,&
+&.643E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.446E-02_JPRB,.446E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,&
+&.244E-02_JPRB,.244E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.259E-02_JPRB,&
+&.259E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.795E-02_JPRB,.795E-02_JPRB,&
+&.650E-02_JPRB,.650E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.389E-02_JPRB,&
+&.389E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,&
+&.268E-02_JPRB,.268E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,.106E-02_JPRB,&
+&.106E-02_JPRB,.848E-03_JPRB,.848E-03_JPRB,.760E-03_JPRB,.760E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,&
+&.440E-03_JPRB,.440E-03_JPRB,.511E-03_JPRB,.511E-03_JPRB,.164E-02_JPRB,.164E-02_JPRB,.291E-02_JPRB,&
+&.291E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.584E-02_JPRB,.584E-02_JPRB,.570E-02_JPRB,.570E-02_JPRB,&
+&.631E-02_JPRB,.631E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 34 -42.0
+ZAER (:,34, 6) = (/&
+&.573E-02_JPRB,.573E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.605E-02_JPRB,&
+&.605E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.742E-03_JPRB,.742E-03_JPRB,&
+&.623E-03_JPRB,.623E-03_JPRB,.603E-03_JPRB,.603E-03_JPRB,.627E-03_JPRB,.627E-03_JPRB,.587E-03_JPRB,&
+&.587E-03_JPRB,.237E-02_JPRB,.237E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,&
+&.675E-02_JPRB,.675E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.367E-02_JPRB,&
+&.367E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,&
+&.212E-02_JPRB,.212E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.924E-03_JPRB,&
+&.924E-03_JPRB,.652E-03_JPRB,.652E-03_JPRB,.554E-03_JPRB,.554E-03_JPRB,.516E-03_JPRB,.516E-03_JPRB,&
+&.456E-03_JPRB,.456E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,&
+&.515E-02_JPRB,.515E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 35 -46.0
+ZAER (:,35, 6) = (/&
+&.573E-02_JPRB,.573E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.605E-02_JPRB,&
+&.605E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,.742E-03_JPRB,.742E-03_JPRB,&
+&.623E-03_JPRB,.623E-03_JPRB,.603E-03_JPRB,.603E-03_JPRB,.627E-03_JPRB,.627E-03_JPRB,.587E-03_JPRB,&
+&.587E-03_JPRB,.237E-02_JPRB,.237E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,&
+&.675E-02_JPRB,.675E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.367E-02_JPRB,&
+&.367E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,&
+&.212E-02_JPRB,.212E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.924E-03_JPRB,&
+&.924E-03_JPRB,.652E-03_JPRB,.652E-03_JPRB,.554E-03_JPRB,.554E-03_JPRB,.516E-03_JPRB,.516E-03_JPRB,&
+&.456E-03_JPRB,.456E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,&
+&.515E-02_JPRB,.515E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 36 -50.0
+ZAER (:,36, 6) = (/&
+&.462E-02_JPRB,.462E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.495E-02_JPRB,.495E-02_JPRB,.538E-02_JPRB,&
+&.538E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.595E-03_JPRB,.595E-03_JPRB,&
+&.306E-03_JPRB,.306E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.624E-03_JPRB,&
+&.624E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.213E-02_JPRB,.213E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,&
+&.636E-02_JPRB,.636E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.414E-02_JPRB,&
+&.414E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.978E-03_JPRB,.978E-03_JPRB,&
+&.957E-03_JPRB,.957E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.887E-03_JPRB,.887E-03_JPRB,.693E-03_JPRB,&
+&.693E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.492E-03_JPRB,.492E-03_JPRB,.448E-03_JPRB,.448E-03_JPRB,&
+&.406E-03_JPRB,.406E-03_JPRB,.365E-03_JPRB,.365E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.390E-03_JPRB,&
+&.390E-03_JPRB,.147E-02_JPRB,.147E-02_JPRB,.266E-02_JPRB,.266E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.424E-02_JPRB,.424E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 37 -54.0
+ZAER (:,37, 6) = (/&
+&.462E-02_JPRB,.462E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.495E-02_JPRB,.495E-02_JPRB,.538E-02_JPRB,&
+&.538E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.595E-03_JPRB,.595E-03_JPRB,&
+&.306E-03_JPRB,.306E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.624E-03_JPRB,&
+&.624E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.213E-02_JPRB,.213E-02_JPRB,.497E-02_JPRB,.497E-02_JPRB,&
+&.636E-02_JPRB,.636E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.414E-02_JPRB,&
+&.414E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.978E-03_JPRB,.978E-03_JPRB,&
+&.957E-03_JPRB,.957E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.887E-03_JPRB,.887E-03_JPRB,.693E-03_JPRB,&
+&.693E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.492E-03_JPRB,.492E-03_JPRB,.448E-03_JPRB,.448E-03_JPRB,&
+&.406E-03_JPRB,.406E-03_JPRB,.365E-03_JPRB,.365E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.390E-03_JPRB,&
+&.390E-03_JPRB,.147E-02_JPRB,.147E-02_JPRB,.266E-02_JPRB,.266E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.424E-02_JPRB,.424E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 38 -58.0
+ZAER (:,38, 6) = (/&
+&.343E-02_JPRB,.343E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.231E-02_JPRB,&
+&.231E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.647E-03_JPRB,.647E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,&
+&.305E-03_JPRB,.305E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.233E-02_JPRB,.233E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,&
+&.494E-02_JPRB,.494E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,.485E-02_JPRB,&
+&.485E-02_JPRB,.395E-02_JPRB,.395E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.830E-03_JPRB,.830E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.738E-03_JPRB,.738E-03_JPRB,.576E-03_JPRB,&
+&.576E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.337E-03_JPRB,.337E-03_JPRB,&
+&.295E-03_JPRB,.295E-03_JPRB,.260E-03_JPRB,.260E-03_JPRB,.234E-03_JPRB,.234E-03_JPRB,.243E-03_JPRB,&
+&.243E-03_JPRB,.878E-03_JPRB,.878E-03_JPRB,.157E-02_JPRB,.157E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.281E-02_JPRB,.281E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 39 -62.0
+ZAER (:,39, 6) = (/&
+&.343E-02_JPRB,.343E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.231E-02_JPRB,&
+&.231E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.647E-03_JPRB,.647E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,&
+&.305E-03_JPRB,.305E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.233E-02_JPRB,.233E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,&
+&.494E-02_JPRB,.494E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,.485E-02_JPRB,&
+&.485E-02_JPRB,.395E-02_JPRB,.395E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.830E-03_JPRB,.830E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.738E-03_JPRB,.738E-03_JPRB,.576E-03_JPRB,&
+&.576E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.337E-03_JPRB,.337E-03_JPRB,&
+&.295E-03_JPRB,.295E-03_JPRB,.260E-03_JPRB,.260E-03_JPRB,.234E-03_JPRB,.234E-03_JPRB,.243E-03_JPRB,&
+&.243E-03_JPRB,.878E-03_JPRB,.878E-03_JPRB,.157E-02_JPRB,.157E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.281E-02_JPRB,.281E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 40 -66.0
+ZAER (:,40, 6) = (/&
+&.186E-02_JPRB,.186E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.988E-03_JPRB,.988E-03_JPRB,.830E-03_JPRB,&
+&.830E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.823E-03_JPRB,.823E-03_JPRB,.699E-03_JPRB,.699E-03_JPRB,&
+&.491E-03_JPRB,.491E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.689E-03_JPRB,.689E-03_JPRB,.928E-03_JPRB,&
+&.928E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.263E-02_JPRB,.263E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.334E-02_JPRB,.334E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.484E-02_JPRB,&
+&.484E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.383E-02_JPRB,.383E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.153E-02_JPRB,.153E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.669E-03_JPRB,.669E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.259E-03_JPRB,.259E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,.328E-03_JPRB,&
+&.328E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.581E-03_JPRB,.581E-03_JPRB,&
+&.903E-03_JPRB,.903E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 41 -70.0
+ZAER (:,41, 6) = (/&
+&.186E-02_JPRB,.186E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.988E-03_JPRB,.988E-03_JPRB,.830E-03_JPRB,&
+&.830E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.823E-03_JPRB,.823E-03_JPRB,.699E-03_JPRB,.699E-03_JPRB,&
+&.491E-03_JPRB,.491E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.689E-03_JPRB,.689E-03_JPRB,.928E-03_JPRB,&
+&.928E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.263E-02_JPRB,.263E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.334E-02_JPRB,.334E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.484E-02_JPRB,&
+&.484E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.383E-02_JPRB,.383E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,&
+&.153E-02_JPRB,.153E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.669E-03_JPRB,.669E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,&
+&.259E-03_JPRB,.259E-03_JPRB,.273E-03_JPRB,.273E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,.328E-03_JPRB,&
+&.328E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.581E-03_JPRB,.581E-03_JPRB,&
+&.903E-03_JPRB,.903E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 42 -74.0
+ZAER (:,42, 6) = (/&
+&.818E-03_JPRB,.818E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.812E-03_JPRB,.812E-03_JPRB,.663E-03_JPRB,&
+&.663E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.887E-03_JPRB,.887E-03_JPRB,.687E-03_JPRB,.687E-03_JPRB,&
+&.596E-03_JPRB,.596E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.560E-03_JPRB,.560E-03_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.696E-03_JPRB,.696E-03_JPRB,&
+&.516E-03_JPRB,.516E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.163E-02_JPRB,.163E-02_JPRB,.359E-02_JPRB,&
+&.359E-02_JPRB,.393E-02_JPRB,.393E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,&
+&.320E-02_JPRB,.320E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.179E-02_JPRB,&
+&.179E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.382E-03_JPRB,.382E-03_JPRB,&
+&.346E-03_JPRB,.346E-03_JPRB,.553E-03_JPRB,.553E-03_JPRB,.138E-02_JPRB,.138E-02_JPRB,.128E-02_JPRB,&
+&.128E-02_JPRB,.298E-03_JPRB,.298E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,&
+&.535E-03_JPRB,.535E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 43 -78.0
+ZAER (:,43, 6) = (/&
+&.818E-03_JPRB,.818E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.812E-03_JPRB,.812E-03_JPRB,.663E-03_JPRB,&
+&.663E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.887E-03_JPRB,.887E-03_JPRB,.687E-03_JPRB,.687E-03_JPRB,&
+&.596E-03_JPRB,.596E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.560E-03_JPRB,.560E-03_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.696E-03_JPRB,.696E-03_JPRB,&
+&.516E-03_JPRB,.516E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.163E-02_JPRB,.163E-02_JPRB,.359E-02_JPRB,&
+&.359E-02_JPRB,.393E-02_JPRB,.393E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,&
+&.320E-02_JPRB,.320E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.179E-02_JPRB,&
+&.179E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.382E-03_JPRB,.382E-03_JPRB,&
+&.346E-03_JPRB,.346E-03_JPRB,.553E-03_JPRB,.553E-03_JPRB,.138E-02_JPRB,.138E-02_JPRB,.128E-02_JPRB,&
+&.128E-02_JPRB,.298E-03_JPRB,.298E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,&
+&.535E-03_JPRB,.535E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 44 -82.0
+ZAER (:,44, 6) = (/&
+&.421E-03_JPRB,.421E-03_JPRB,.420E-03_JPRB,.420E-03_JPRB,.396E-03_JPRB,.396E-03_JPRB,.405E-03_JPRB,&
+&.405E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.489E-03_JPRB,.489E-03_JPRB,.525E-03_JPRB,.525E-03_JPRB,&
+&.564E-03_JPRB,.564E-03_JPRB,.628E-03_JPRB,.628E-03_JPRB,.724E-03_JPRB,.724E-03_JPRB,.843E-03_JPRB,&
+&.843E-03_JPRB,.845E-03_JPRB,.845E-03_JPRB,.684E-03_JPRB,.684E-03_JPRB,.626E-03_JPRB,.626E-03_JPRB,&
+&.691E-03_JPRB,.691E-03_JPRB,.808E-03_JPRB,.808E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.911E-03_JPRB,.911E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.687E-03_JPRB,&
+&.687E-03_JPRB,.582E-03_JPRB,.582E-03_JPRB,.475E-03_JPRB,.475E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,&
+&.435E-03_JPRB,.435E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,.383E-03_JPRB,&
+&.383E-03_JPRB,.366E-03_JPRB,.366E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,.386E-03_JPRB,.386E-03_JPRB,&
+&.394E-03_JPRB,.394E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 45 -86.0
+ZAER (:,45, 6) = (/&
+&.421E-03_JPRB,.421E-03_JPRB,.420E-03_JPRB,.420E-03_JPRB,.396E-03_JPRB,.396E-03_JPRB,.405E-03_JPRB,&
+&.405E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.489E-03_JPRB,.489E-03_JPRB,.525E-03_JPRB,.525E-03_JPRB,&
+&.564E-03_JPRB,.564E-03_JPRB,.628E-03_JPRB,.628E-03_JPRB,.724E-03_JPRB,.724E-03_JPRB,.843E-03_JPRB,&
+&.843E-03_JPRB,.845E-03_JPRB,.845E-03_JPRB,.684E-03_JPRB,.684E-03_JPRB,.626E-03_JPRB,.626E-03_JPRB,&
+&.691E-03_JPRB,.691E-03_JPRB,.808E-03_JPRB,.808E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.911E-03_JPRB,.911E-03_JPRB,.794E-03_JPRB,.794E-03_JPRB,.687E-03_JPRB,&
+&.687E-03_JPRB,.582E-03_JPRB,.582E-03_JPRB,.475E-03_JPRB,.475E-03_JPRB,.422E-03_JPRB,.422E-03_JPRB,&
+&.435E-03_JPRB,.435E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,.383E-03_JPRB,&
+&.383E-03_JPRB,.366E-03_JPRB,.366E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,.386E-03_JPRB,.386E-03_JPRB,&
+&.394E-03_JPRB,.394E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  6 --- lat: 46 -90.0
+ZAER (:,46, 6) = (/&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=6  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_06
Index: LMDZ5/branches/testing/libf/phymar/suecaess_07.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_07.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_07.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_07
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      July
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,7:7)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  7 --- lat:  1  90.0
+ZAER (:, 1, 7) = (/&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  2  86.0
+ZAER (:, 2, 7) = (/&
+&.782E-03_JPRB,.782E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,.904E-03_JPRB,.904E-03_JPRB,.948E-03_JPRB,&
+&.948E-03_JPRB,.972E-03_JPRB,.972E-03_JPRB,.977E-03_JPRB,.977E-03_JPRB,.963E-03_JPRB,.963E-03_JPRB,&
+&.906E-03_JPRB,.906E-03_JPRB,.844E-03_JPRB,.844E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,.756E-03_JPRB,&
+&.756E-03_JPRB,.720E-03_JPRB,.720E-03_JPRB,.708E-03_JPRB,.708E-03_JPRB,.694E-03_JPRB,.694E-03_JPRB,&
+&.661E-03_JPRB,.661E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.331E-03_JPRB,&
+&.331E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,&
+&.217E-03_JPRB,.217E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,.227E-03_JPRB,.227E-03_JPRB,.250E-03_JPRB,&
+&.250E-03_JPRB,.268E-03_JPRB,.268E-03_JPRB,.274E-03_JPRB,.274E-03_JPRB,.286E-03_JPRB,.286E-03_JPRB,&
+&.301E-03_JPRB,.301E-03_JPRB,.317E-03_JPRB,.317E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,.345E-03_JPRB,&
+&.345E-03_JPRB,.381E-03_JPRB,.381E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.517E-03_JPRB,.517E-03_JPRB,&
+&.670E-03_JPRB,.670E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  3  82.0
+ZAER (:, 3, 7) = (/&
+&.782E-03_JPRB,.782E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,.904E-03_JPRB,.904E-03_JPRB,.948E-03_JPRB,&
+&.948E-03_JPRB,.972E-03_JPRB,.972E-03_JPRB,.977E-03_JPRB,.977E-03_JPRB,.963E-03_JPRB,.963E-03_JPRB,&
+&.906E-03_JPRB,.906E-03_JPRB,.844E-03_JPRB,.844E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,.756E-03_JPRB,&
+&.756E-03_JPRB,.720E-03_JPRB,.720E-03_JPRB,.708E-03_JPRB,.708E-03_JPRB,.694E-03_JPRB,.694E-03_JPRB,&
+&.661E-03_JPRB,.661E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.331E-03_JPRB,&
+&.331E-03_JPRB,.257E-03_JPRB,.257E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,&
+&.217E-03_JPRB,.217E-03_JPRB,.216E-03_JPRB,.216E-03_JPRB,.227E-03_JPRB,.227E-03_JPRB,.250E-03_JPRB,&
+&.250E-03_JPRB,.268E-03_JPRB,.268E-03_JPRB,.274E-03_JPRB,.274E-03_JPRB,.286E-03_JPRB,.286E-03_JPRB,&
+&.301E-03_JPRB,.301E-03_JPRB,.317E-03_JPRB,.317E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,.345E-03_JPRB,&
+&.345E-03_JPRB,.381E-03_JPRB,.381E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.517E-03_JPRB,.517E-03_JPRB,&
+&.670E-03_JPRB,.670E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  4  78.0
+ZAER (:, 4, 7) = (/&
+&.113E-02_JPRB,.113E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.113E-02_JPRB,&
+&.113E-02_JPRB,.998E-03_JPRB,.998E-03_JPRB,.918E-03_JPRB,.918E-03_JPRB,.999E-03_JPRB,.999E-03_JPRB,&
+&.106E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.994E-03_JPRB,.994E-03_JPRB,.904E-03_JPRB,&
+&.904E-03_JPRB,.791E-03_JPRB,.791E-03_JPRB,.806E-03_JPRB,.806E-03_JPRB,.869E-03_JPRB,.869E-03_JPRB,&
+&.889E-03_JPRB,.889E-03_JPRB,.840E-03_JPRB,.840E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,.499E-03_JPRB,&
+&.499E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.245E-03_JPRB,.245E-03_JPRB,.283E-03_JPRB,.283E-03_JPRB,&
+&.349E-03_JPRB,.349E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.369E-03_JPRB,.369E-03_JPRB,.352E-03_JPRB,&
+&.352E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,&
+&.396E-03_JPRB,.396E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.477E-03_JPRB,&
+&.477E-03_JPRB,.534E-03_JPRB,.534E-03_JPRB,.617E-03_JPRB,.617E-03_JPRB,.778E-03_JPRB,.778E-03_JPRB,&
+&.997E-03_JPRB,.997E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  5  74.0
+ZAER (:, 5, 7) = (/&
+&.113E-02_JPRB,.113E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.123E-02_JPRB,.123E-02_JPRB,.113E-02_JPRB,&
+&.113E-02_JPRB,.998E-03_JPRB,.998E-03_JPRB,.918E-03_JPRB,.918E-03_JPRB,.999E-03_JPRB,.999E-03_JPRB,&
+&.106E-02_JPRB,.106E-02_JPRB,.103E-02_JPRB,.103E-02_JPRB,.994E-03_JPRB,.994E-03_JPRB,.904E-03_JPRB,&
+&.904E-03_JPRB,.791E-03_JPRB,.791E-03_JPRB,.806E-03_JPRB,.806E-03_JPRB,.869E-03_JPRB,.869E-03_JPRB,&
+&.889E-03_JPRB,.889E-03_JPRB,.840E-03_JPRB,.840E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,.499E-03_JPRB,&
+&.499E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.245E-03_JPRB,.245E-03_JPRB,.283E-03_JPRB,.283E-03_JPRB,&
+&.349E-03_JPRB,.349E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.369E-03_JPRB,.369E-03_JPRB,.352E-03_JPRB,&
+&.352E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.392E-03_JPRB,.392E-03_JPRB,&
+&.396E-03_JPRB,.396E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.477E-03_JPRB,&
+&.477E-03_JPRB,.534E-03_JPRB,.534E-03_JPRB,.617E-03_JPRB,.617E-03_JPRB,.778E-03_JPRB,.778E-03_JPRB,&
+&.997E-03_JPRB,.997E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  6  70.0
+ZAER (:, 6, 7) = (/&
+&.210E-02_JPRB,.210E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.181E-02_JPRB,&
+&.181E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.960E-03_JPRB,.960E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.707E-03_JPRB,&
+&.707E-03_JPRB,.587E-03_JPRB,.587E-03_JPRB,.460E-03_JPRB,.460E-03_JPRB,.510E-03_JPRB,.510E-03_JPRB,&
+&.685E-03_JPRB,.685E-03_JPRB,.853E-03_JPRB,.853E-03_JPRB,.829E-03_JPRB,.829E-03_JPRB,.638E-03_JPRB,&
+&.638E-03_JPRB,.611E-03_JPRB,.611E-03_JPRB,.702E-03_JPRB,.702E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.743E-03_JPRB,.743E-03_JPRB,.716E-03_JPRB,.716E-03_JPRB,.813E-03_JPRB,.813E-03_JPRB,.994E-03_JPRB,&
+&.994E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.162E-02_JPRB,.162E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  7  66.0
+ZAER (:, 7, 7) = (/&
+&.210E-02_JPRB,.210E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.181E-02_JPRB,&
+&.181E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.210E-02_JPRB,&
+&.210E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.100E-02_JPRB,.100E-02_JPRB,.960E-03_JPRB,.960E-03_JPRB,.818E-03_JPRB,.818E-03_JPRB,.707E-03_JPRB,&
+&.707E-03_JPRB,.587E-03_JPRB,.587E-03_JPRB,.460E-03_JPRB,.460E-03_JPRB,.510E-03_JPRB,.510E-03_JPRB,&
+&.685E-03_JPRB,.685E-03_JPRB,.853E-03_JPRB,.853E-03_JPRB,.829E-03_JPRB,.829E-03_JPRB,.638E-03_JPRB,&
+&.638E-03_JPRB,.611E-03_JPRB,.611E-03_JPRB,.702E-03_JPRB,.702E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.743E-03_JPRB,.743E-03_JPRB,.716E-03_JPRB,.716E-03_JPRB,.813E-03_JPRB,.813E-03_JPRB,.994E-03_JPRB,&
+&.994E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.162E-02_JPRB,.162E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  8  62.0
+ZAER (:, 8, 7) = (/&
+&.789E-02_JPRB,.789E-02_JPRB,.728E-02_JPRB,.728E-02_JPRB,.503E-02_JPRB,.503E-02_JPRB,.387E-02_JPRB,&
+&.387E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,&
+&.842E-02_JPRB,.842E-02_JPRB,.823E-02_JPRB,.823E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.850E-02_JPRB,&
+&.850E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,.213E-02_JPRB,&
+&.213E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.406E-02_JPRB,&
+&.406E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,&
+&.743E-02_JPRB,.743E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat:  9  58.0
+ZAER (:, 9, 7) = (/&
+&.789E-02_JPRB,.789E-02_JPRB,.728E-02_JPRB,.728E-02_JPRB,.503E-02_JPRB,.503E-02_JPRB,.387E-02_JPRB,&
+&.387E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,&
+&.842E-02_JPRB,.842E-02_JPRB,.823E-02_JPRB,.823E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.850E-02_JPRB,&
+&.850E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.194E-02_JPRB,&
+&.194E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.170E-02_JPRB,.170E-02_JPRB,&
+&.197E-02_JPRB,.197E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,.213E-02_JPRB,&
+&.213E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.406E-02_JPRB,&
+&.406E-02_JPRB,.469E-02_JPRB,.469E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,&
+&.743E-02_JPRB,.743E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 10  54.0
+ZAER (:,10, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.941E-02_JPRB,.941E-02_JPRB,.939E-02_JPRB,&
+&.939E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.155E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.831E-02_JPRB,.831E-02_JPRB,.974E-02_JPRB,.974E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.835E-02_JPRB,.835E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,.883E-02_JPRB,&
+&.883E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,&
+&.849E-02_JPRB,.849E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.944E-02_JPRB,&
+&.944E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.930E-02_JPRB,.930E-02_JPRB,&
+&.881E-02_JPRB,.881E-02_JPRB,.979E-02_JPRB,.979E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.999E-02_JPRB,.999E-02_JPRB,&
+&.983E-02_JPRB,.983E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 11  50.0
+ZAER (:,11, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.941E-02_JPRB,.941E-02_JPRB,.939E-02_JPRB,&
+&.939E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.155E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.831E-02_JPRB,.831E-02_JPRB,.974E-02_JPRB,.974E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.835E-02_JPRB,.835E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,.883E-02_JPRB,&
+&.883E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,&
+&.849E-02_JPRB,.849E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.944E-02_JPRB,&
+&.944E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.895E-02_JPRB,.895E-02_JPRB,.930E-02_JPRB,.930E-02_JPRB,&
+&.881E-02_JPRB,.881E-02_JPRB,.979E-02_JPRB,.979E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.999E-02_JPRB,.999E-02_JPRB,&
+&.983E-02_JPRB,.983E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 12  46.0
+ZAER (:,12, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.981E-02_JPRB,&
+&.981E-02_JPRB,.629E-02_JPRB,.629E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.120E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.822E-02_JPRB,.822E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 13  42.0
+ZAER (:,13, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.144E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.981E-02_JPRB,&
+&.981E-02_JPRB,.629E-02_JPRB,.629E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.120E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.822E-02_JPRB,.822E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 14  38.0
+ZAER (:,14, 7) = (/&
+&.106E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.813E-02_JPRB,&
+&.813E-02_JPRB,.454E-02_JPRB,.454E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,&
+&.922E-02_JPRB,.922E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.956E-02_JPRB,.956E-02_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.643E-02_JPRB,.643E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.974E-02_JPRB,.974E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 15  34.0
+ZAER (:,15, 7) = (/&
+&.106E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.813E-02_JPRB,&
+&.813E-02_JPRB,.454E-02_JPRB,.454E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,&
+&.922E-02_JPRB,.922E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.956E-02_JPRB,.956E-02_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.643E-02_JPRB,.643E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.974E-02_JPRB,.974E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 16  30.0
+ZAER (:,16, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.970E-02_JPRB,.970E-02_JPRB,.789E-02_JPRB,&
+&.789E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.541E-02_JPRB,.541E-02_JPRB,&
+&.807E-02_JPRB,.807E-02_JPRB,.908E-02_JPRB,.908E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.942E-02_JPRB,&
+&.942E-02_JPRB,.916E-02_JPRB,.916E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.600E-02_JPRB,.600E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.966E-02_JPRB,.966E-02_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.823E-02_JPRB,.823E-02_JPRB,.489E-02_JPRB,.489E-02_JPRB,.440E-02_JPRB,&
+&.440E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,&
+&.957E-02_JPRB,.957E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 17  26.0
+ZAER (:,17, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.970E-02_JPRB,.970E-02_JPRB,.789E-02_JPRB,&
+&.789E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.351E-02_JPRB,.351E-02_JPRB,.541E-02_JPRB,.541E-02_JPRB,&
+&.807E-02_JPRB,.807E-02_JPRB,.908E-02_JPRB,.908E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.942E-02_JPRB,&
+&.942E-02_JPRB,.916E-02_JPRB,.916E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.600E-02_JPRB,.600E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.966E-02_JPRB,.966E-02_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.823E-02_JPRB,.823E-02_JPRB,.489E-02_JPRB,.489E-02_JPRB,.440E-02_JPRB,&
+&.440E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,&
+&.957E-02_JPRB,.957E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 18  22.0
+ZAER (:,18, 7) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.793E-02_JPRB,&
+&.793E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,&
+&.703E-02_JPRB,.703E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,.898E-02_JPRB,&
+&.898E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.479E-02_JPRB,.479E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,&
+&.331E-02_JPRB,.331E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.915E-02_JPRB,.915E-02_JPRB,.564E-02_JPRB,.564E-02_JPRB,.485E-02_JPRB,&
+&.485E-02_JPRB,.560E-02_JPRB,.560E-02_JPRB,.914E-02_JPRB,.914E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 19  18.0
+ZAER (:,19, 7) = (/&
+&.112E-01_JPRB,.112E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.793E-02_JPRB,&
+&.793E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,&
+&.703E-02_JPRB,.703E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,.898E-02_JPRB,&
+&.898E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.479E-02_JPRB,.479E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,&
+&.331E-02_JPRB,.331E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.915E-02_JPRB,.915E-02_JPRB,.564E-02_JPRB,.564E-02_JPRB,.485E-02_JPRB,&
+&.485E-02_JPRB,.560E-02_JPRB,.560E-02_JPRB,.914E-02_JPRB,.914E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 20  14.0
+ZAER (:,20, 7) = (/&
+&.145E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.934E-02_JPRB,.934E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.571E-02_JPRB,&
+&.571E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,&
+&.863E-02_JPRB,.863E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.960E-02_JPRB,.960E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,&
+&.371E-02_JPRB,.371E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.850E-02_JPRB,.850E-02_JPRB,.765E-02_JPRB,&
+&.765E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,.123E-01_JPRB,.123E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 21  10.0
+ZAER (:,21, 7) = (/&
+&.145E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.934E-02_JPRB,.934E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.571E-02_JPRB,&
+&.571E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,&
+&.863E-02_JPRB,.863E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.960E-02_JPRB,.960E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,&
+&.371E-02_JPRB,.371E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.850E-02_JPRB,.850E-02_JPRB,.765E-02_JPRB,&
+&.765E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,.123E-01_JPRB,.123E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 22   6.0
+ZAER (:,22, 7) = (/&
+&.152E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.905E-02_JPRB,.905E-02_JPRB,.779E-02_JPRB,.779E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.314E-02_JPRB,&
+&.314E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,&
+&.945E-02_JPRB,.945E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.636E-02_JPRB,.636E-02_JPRB,.488E-02_JPRB,&
+&.488E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.389E-02_JPRB,.389E-02_JPRB,&
+&.646E-02_JPRB,.646E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.883E-02_JPRB,&
+&.883E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.756E-02_JPRB,.756E-02_JPRB,.684E-02_JPRB,.684E-02_JPRB,&
+&.642E-02_JPRB,.642E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.767E-02_JPRB,&
+&.767E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 23   2.0
+ZAER (:,23, 7) = (/&
+&.152E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.905E-02_JPRB,.905E-02_JPRB,.779E-02_JPRB,.779E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.314E-02_JPRB,&
+&.314E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,&
+&.945E-02_JPRB,.945E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,.636E-02_JPRB,.636E-02_JPRB,.488E-02_JPRB,&
+&.488E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.303E-02_JPRB,.303E-02_JPRB,.389E-02_JPRB,.389E-02_JPRB,&
+&.646E-02_JPRB,.646E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.883E-02_JPRB,&
+&.883E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.756E-02_JPRB,.756E-02_JPRB,.684E-02_JPRB,.684E-02_JPRB,&
+&.642E-02_JPRB,.642E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.767E-02_JPRB,&
+&.767E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.149E-01_JPRB,.149E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 24  -2.0
+ZAER (:,24, 7) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.833E-02_JPRB,.833E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.327E-02_JPRB,&
+&.327E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.939E-02_JPRB,.939E-02_JPRB,.680E-02_JPRB,.680E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.331E-02_JPRB,&
+&.331E-02_JPRB,.276E-02_JPRB,.276E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,&
+&.499E-02_JPRB,.499E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.850E-02_JPRB,&
+&.850E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,&
+&.484E-02_JPRB,.484E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.750E-02_JPRB,&
+&.750E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.832E-02_JPRB,.832E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.982E-02_JPRB,.982E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 25  -6.0
+ZAER (:,25, 7) = (/&
+&.102E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB,.833E-02_JPRB,.833E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.327E-02_JPRB,&
+&.327E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.939E-02_JPRB,.939E-02_JPRB,.680E-02_JPRB,.680E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.331E-02_JPRB,&
+&.331E-02_JPRB,.276E-02_JPRB,.276E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,&
+&.499E-02_JPRB,.499E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.850E-02_JPRB,&
+&.850E-02_JPRB,.767E-02_JPRB,.767E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,&
+&.484E-02_JPRB,.484E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.750E-02_JPRB,&
+&.750E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.832E-02_JPRB,.832E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.982E-02_JPRB,.982E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 26 -10.0
+ZAER (:,26, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.948E-02_JPRB,.948E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,&
+&.730E-02_JPRB,.730E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.669E-02_JPRB,&
+&.669E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,&
+&.907E-02_JPRB,.907E-02_JPRB,.523E-02_JPRB,.523E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.549E-03_JPRB,.549E-03_JPRB,.424E-03_JPRB,.424E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.703E-02_JPRB,.703E-02_JPRB,.637E-02_JPRB,.637E-02_JPRB,.658E-02_JPRB,.658E-02_JPRB,&
+&.307E-02_JPRB,.307E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.556E-02_JPRB,&
+&.556E-02_JPRB,.620E-02_JPRB,.620E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,.865E-02_JPRB,.865E-02_JPRB,&
+&.943E-02_JPRB,.943E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 27 -14.0
+ZAER (:,27, 7) = (/&
+&.101E-01_JPRB,.101E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.948E-02_JPRB,.948E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,&
+&.730E-02_JPRB,.730E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.669E-02_JPRB,&
+&.669E-02_JPRB,.850E-02_JPRB,.850E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,&
+&.907E-02_JPRB,.907E-02_JPRB,.523E-02_JPRB,.523E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,.107E-02_JPRB,&
+&.107E-02_JPRB,.549E-03_JPRB,.549E-03_JPRB,.424E-03_JPRB,.424E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,&
+&.210E-02_JPRB,.210E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.703E-02_JPRB,.703E-02_JPRB,.637E-02_JPRB,.637E-02_JPRB,.658E-02_JPRB,.658E-02_JPRB,&
+&.307E-02_JPRB,.307E-02_JPRB,.561E-02_JPRB,.561E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.556E-02_JPRB,&
+&.556E-02_JPRB,.620E-02_JPRB,.620E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,.865E-02_JPRB,.865E-02_JPRB,&
+&.943E-02_JPRB,.943E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 28 -18.0
+ZAER (:,28, 7) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.905E-02_JPRB,.905E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,&
+&.497E-02_JPRB,.497E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.752E-02_JPRB,&
+&.752E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.692E-02_JPRB,.692E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.849E-03_JPRB,&
+&.849E-03_JPRB,.789E-03_JPRB,.789E-03_JPRB,.819E-03_JPRB,.819E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.198E-02_JPRB,.198E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.920E-02_JPRB,&
+&.920E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,&
+&.149E-02_JPRB,.149E-02_JPRB,.269E-02_JPRB,.269E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.537E-02_JPRB,&
+&.537E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 29 -22.0
+ZAER (:,29, 7) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.905E-02_JPRB,.905E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,&
+&.497E-02_JPRB,.497E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.752E-02_JPRB,&
+&.752E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.692E-02_JPRB,.692E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.849E-03_JPRB,&
+&.849E-03_JPRB,.789E-03_JPRB,.789E-03_JPRB,.819E-03_JPRB,.819E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.198E-02_JPRB,.198E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.920E-02_JPRB,&
+&.920E-02_JPRB,.543E-02_JPRB,.543E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,&
+&.149E-02_JPRB,.149E-02_JPRB,.269E-02_JPRB,.269E-02_JPRB,.394E-02_JPRB,.394E-02_JPRB,.537E-02_JPRB,&
+&.537E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.926E-02_JPRB,.926E-02_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 30 -26.0
+ZAER (:,30, 7) = (/&
+&.996E-02_JPRB,.996E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.956E-02_JPRB,.956E-02_JPRB,.821E-02_JPRB,.821E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,&
+&.284E-02_JPRB,.284E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.630E-02_JPRB,&
+&.630E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.652E-02_JPRB,.652E-02_JPRB,.277E-02_JPRB,&
+&.277E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,&
+&.168E-02_JPRB,.168E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.221E-02_JPRB,&
+&.221E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.773E-03_JPRB,.773E-03_JPRB,.527E-03_JPRB,.527E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.537E-03_JPRB,.537E-03_JPRB,.273E-02_JPRB,.273E-02_JPRB,.424E-02_JPRB,&
+&.424E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,&
+&.888E-02_JPRB,.888E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 31 -30.0
+ZAER (:,31, 7) = (/&
+&.996E-02_JPRB,.996E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.956E-02_JPRB,.956E-02_JPRB,.821E-02_JPRB,.821E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,&
+&.284E-02_JPRB,.284E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.485E-02_JPRB,.485E-02_JPRB,.630E-02_JPRB,&
+&.630E-02_JPRB,.965E-02_JPRB,.965E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.652E-02_JPRB,.652E-02_JPRB,.277E-02_JPRB,&
+&.277E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,&
+&.168E-02_JPRB,.168E-02_JPRB,.186E-02_JPRB,.186E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.221E-02_JPRB,&
+&.221E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.773E-03_JPRB,.773E-03_JPRB,.527E-03_JPRB,.527E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.537E-03_JPRB,.537E-03_JPRB,.273E-02_JPRB,.273E-02_JPRB,.424E-02_JPRB,&
+&.424E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,&
+&.888E-02_JPRB,.888E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 32 -34.0
+ZAER (:,32, 7) = (/&
+&.519E-02_JPRB,.519E-02_JPRB,.555E-02_JPRB,.555E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.730E-02_JPRB,&
+&.730E-02_JPRB,.679E-02_JPRB,.679E-02_JPRB,.562E-02_JPRB,.562E-02_JPRB,.441E-02_JPRB,.441E-02_JPRB,&
+&.301E-02_JPRB,.301E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.307E-02_JPRB,&
+&.307E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,&
+&.747E-02_JPRB,.747E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.462E-02_JPRB,&
+&.462E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,&
+&.274E-02_JPRB,.274E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.935E-03_JPRB,.935E-03_JPRB,.781E-03_JPRB,.781E-03_JPRB,.509E-03_JPRB,.509E-03_JPRB,&
+&.274E-03_JPRB,.274E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,.186E-02_JPRB,.186E-02_JPRB,.292E-02_JPRB,&
+&.292E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.579E-02_JPRB,.579E-02_JPRB,.636E-02_JPRB,.636E-02_JPRB,&
+&.505E-02_JPRB,.505E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 33 -38.0
+ZAER (:,33, 7) = (/&
+&.519E-02_JPRB,.519E-02_JPRB,.555E-02_JPRB,.555E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.730E-02_JPRB,&
+&.730E-02_JPRB,.679E-02_JPRB,.679E-02_JPRB,.562E-02_JPRB,.562E-02_JPRB,.441E-02_JPRB,.441E-02_JPRB,&
+&.301E-02_JPRB,.301E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.307E-02_JPRB,&
+&.307E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,&
+&.747E-02_JPRB,.747E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.462E-02_JPRB,&
+&.462E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,&
+&.274E-02_JPRB,.274E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.935E-03_JPRB,.935E-03_JPRB,.781E-03_JPRB,.781E-03_JPRB,.509E-03_JPRB,.509E-03_JPRB,&
+&.274E-03_JPRB,.274E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,.186E-02_JPRB,.186E-02_JPRB,.292E-02_JPRB,&
+&.292E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.579E-02_JPRB,.579E-02_JPRB,.636E-02_JPRB,.636E-02_JPRB,&
+&.505E-02_JPRB,.505E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 34 -42.0
+ZAER (:,34, 7) = (/&
+&.488E-02_JPRB,.488E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.600E-02_JPRB,&
+&.600E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.887E-03_JPRB,&
+&.887E-03_JPRB,.233E-02_JPRB,.233E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,&
+&.677E-02_JPRB,.677E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.436E-02_JPRB,&
+&.436E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,&
+&.200E-02_JPRB,.200E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.870E-03_JPRB,&
+&.870E-03_JPRB,.672E-03_JPRB,.672E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.447E-03_JPRB,.447E-03_JPRB,&
+&.287E-03_JPRB,.287E-03_JPRB,.274E-03_JPRB,.274E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.392E-02_JPRB,.392E-02_JPRB,.467E-02_JPRB,.467E-02_JPRB,&
+&.430E-02_JPRB,.430E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 35 -46.0
+ZAER (:,35, 7) = (/&
+&.488E-02_JPRB,.488E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.600E-02_JPRB,&
+&.600E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,&
+&.194E-02_JPRB,.194E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.887E-03_JPRB,&
+&.887E-03_JPRB,.233E-02_JPRB,.233E-02_JPRB,.447E-02_JPRB,.447E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,&
+&.677E-02_JPRB,.677E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.436E-02_JPRB,&
+&.436E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,&
+&.200E-02_JPRB,.200E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.870E-03_JPRB,&
+&.870E-03_JPRB,.672E-03_JPRB,.672E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.447E-03_JPRB,.447E-03_JPRB,&
+&.287E-03_JPRB,.287E-03_JPRB,.274E-03_JPRB,.274E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,.122E-02_JPRB,&
+&.122E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.392E-02_JPRB,.392E-02_JPRB,.467E-02_JPRB,.467E-02_JPRB,&
+&.430E-02_JPRB,.430E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 36 -50.0
+ZAER (:,36, 7) = (/&
+&.428E-02_JPRB,.428E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.500E-02_JPRB,&
+&.500E-02_JPRB,.440E-02_JPRB,.440E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.678E-03_JPRB,.678E-03_JPRB,&
+&.576E-03_JPRB,.576E-03_JPRB,.588E-03_JPRB,.588E-03_JPRB,.805E-03_JPRB,.805E-03_JPRB,.904E-03_JPRB,&
+&.904E-03_JPRB,.609E-03_JPRB,.609E-03_JPRB,.178E-02_JPRB,.178E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,&
+&.566E-02_JPRB,.566E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.435E-02_JPRB,&
+&.435E-02_JPRB,.258E-02_JPRB,.258E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.849E-03_JPRB,.849E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,.523E-03_JPRB,&
+&.523E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,.437E-03_JPRB,.437E-03_JPRB,.423E-03_JPRB,.423E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,.341E-03_JPRB,&
+&.341E-03_JPRB,.138E-02_JPRB,.138E-02_JPRB,.284E-02_JPRB,.284E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,&
+&.370E-02_JPRB,.370E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 37 -54.0
+ZAER (:,37, 7) = (/&
+&.428E-02_JPRB,.428E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.500E-02_JPRB,&
+&.500E-02_JPRB,.440E-02_JPRB,.440E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.678E-03_JPRB,.678E-03_JPRB,&
+&.576E-03_JPRB,.576E-03_JPRB,.588E-03_JPRB,.588E-03_JPRB,.805E-03_JPRB,.805E-03_JPRB,.904E-03_JPRB,&
+&.904E-03_JPRB,.609E-03_JPRB,.609E-03_JPRB,.178E-02_JPRB,.178E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,&
+&.566E-02_JPRB,.566E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.435E-02_JPRB,&
+&.435E-02_JPRB,.258E-02_JPRB,.258E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB,.849E-03_JPRB,.849E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,.523E-03_JPRB,&
+&.523E-03_JPRB,.452E-03_JPRB,.452E-03_JPRB,.437E-03_JPRB,.437E-03_JPRB,.423E-03_JPRB,.423E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,.341E-03_JPRB,&
+&.341E-03_JPRB,.138E-02_JPRB,.138E-02_JPRB,.284E-02_JPRB,.284E-02_JPRB,.335E-02_JPRB,.335E-02_JPRB,&
+&.370E-02_JPRB,.370E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 38 -58.0
+ZAER (:,38, 7) = (/&
+&.340E-02_JPRB,.340E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.219E-02_JPRB,&
+&.219E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.684E-03_JPRB,.684E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.367E-03_JPRB,.367E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.246E-02_JPRB,.246E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,&
+&.462E-02_JPRB,.462E-02_JPRB,.559E-02_JPRB,.559E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.486E-02_JPRB,&
+&.486E-02_JPRB,.401E-02_JPRB,.401E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.945E-03_JPRB,.945E-03_JPRB,.739E-03_JPRB,.739E-03_JPRB,.578E-03_JPRB,.578E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.443E-03_JPRB,.443E-03_JPRB,.396E-03_JPRB,.396E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,&
+&.350E-03_JPRB,.350E-03_JPRB,.321E-03_JPRB,.321E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,.315E-03_JPRB,&
+&.315E-03_JPRB,.850E-03_JPRB,.850E-03_JPRB,.173E-02_JPRB,.173E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.271E-02_JPRB,.271E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 39 -62.0
+ZAER (:,39, 7) = (/&
+&.340E-02_JPRB,.340E-02_JPRB,.338E-02_JPRB,.338E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.219E-02_JPRB,&
+&.219E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.684E-03_JPRB,.684E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.367E-03_JPRB,.367E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.246E-02_JPRB,.246E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,&
+&.462E-02_JPRB,.462E-02_JPRB,.559E-02_JPRB,.559E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.486E-02_JPRB,&
+&.486E-02_JPRB,.401E-02_JPRB,.401E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,&
+&.945E-03_JPRB,.945E-03_JPRB,.739E-03_JPRB,.739E-03_JPRB,.578E-03_JPRB,.578E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.443E-03_JPRB,.443E-03_JPRB,.396E-03_JPRB,.396E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,&
+&.350E-03_JPRB,.350E-03_JPRB,.321E-03_JPRB,.321E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,.315E-03_JPRB,&
+&.315E-03_JPRB,.850E-03_JPRB,.850E-03_JPRB,.173E-02_JPRB,.173E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.271E-02_JPRB,.271E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 40 -66.0
+ZAER (:,40, 7) = (/&
+&.165E-02_JPRB,.165E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.739E-03_JPRB,&
+&.739E-03_JPRB,.933E-03_JPRB,.933E-03_JPRB,.721E-03_JPRB,.721E-03_JPRB,.617E-03_JPRB,.617E-03_JPRB,&
+&.486E-03_JPRB,.486E-03_JPRB,.684E-03_JPRB,.684E-03_JPRB,.787E-03_JPRB,.787E-03_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.912E-03_JPRB,.912E-03_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.440E-02_JPRB,&
+&.440E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.284E-02_JPRB,.284E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.675E-03_JPRB,.675E-03_JPRB,.516E-03_JPRB,.516E-03_JPRB,.391E-03_JPRB,.391E-03_JPRB,&
+&.318E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.507E-03_JPRB,.507E-03_JPRB,.492E-03_JPRB,&
+&.492E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,&
+&.867E-03_JPRB,.867E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 41 -70.0
+ZAER (:,41, 7) = (/&
+&.165E-02_JPRB,.165E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,.739E-03_JPRB,&
+&.739E-03_JPRB,.933E-03_JPRB,.933E-03_JPRB,.721E-03_JPRB,.721E-03_JPRB,.617E-03_JPRB,.617E-03_JPRB,&
+&.486E-03_JPRB,.486E-03_JPRB,.684E-03_JPRB,.684E-03_JPRB,.787E-03_JPRB,.787E-03_JPRB,.104E-02_JPRB,&
+&.104E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.912E-03_JPRB,.912E-03_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.440E-02_JPRB,&
+&.440E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.284E-02_JPRB,.284E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,&
+&.139E-02_JPRB,.139E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.163E-02_JPRB,.163E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.675E-03_JPRB,.675E-03_JPRB,.516E-03_JPRB,.516E-03_JPRB,.391E-03_JPRB,.391E-03_JPRB,&
+&.318E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.507E-03_JPRB,.507E-03_JPRB,.492E-03_JPRB,&
+&.492E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,.504E-03_JPRB,.504E-03_JPRB,.703E-03_JPRB,.703E-03_JPRB,&
+&.867E-03_JPRB,.867E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 42 -74.0
+ZAER (:,42, 7) = (/&
+&.766E-03_JPRB,.766E-03_JPRB,.113E-02_JPRB,.113E-02_JPRB,.800E-03_JPRB,.800E-03_JPRB,.613E-03_JPRB,&
+&.613E-03_JPRB,.686E-03_JPRB,.686E-03_JPRB,.820E-03_JPRB,.820E-03_JPRB,.614E-03_JPRB,.614E-03_JPRB,&
+&.543E-03_JPRB,.543E-03_JPRB,.535E-03_JPRB,.535E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.513E-03_JPRB,.513E-03_JPRB,&
+&.427E-03_JPRB,.427E-03_JPRB,.442E-03_JPRB,.442E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,.251E-02_JPRB,&
+&.251E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.248E-02_JPRB,.248E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.555E-03_JPRB,.555E-03_JPRB,&
+&.358E-03_JPRB,.358E-03_JPRB,.420E-03_JPRB,.420E-03_JPRB,.142E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.440E-03_JPRB,.440E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,.456E-03_JPRB,.456E-03_JPRB,&
+&.573E-03_JPRB,.573E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 43 -78.0
+ZAER (:,43, 7) = (/&
+&.766E-03_JPRB,.766E-03_JPRB,.113E-02_JPRB,.113E-02_JPRB,.800E-03_JPRB,.800E-03_JPRB,.613E-03_JPRB,&
+&.613E-03_JPRB,.686E-03_JPRB,.686E-03_JPRB,.820E-03_JPRB,.820E-03_JPRB,.614E-03_JPRB,.614E-03_JPRB,&
+&.543E-03_JPRB,.543E-03_JPRB,.535E-03_JPRB,.535E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.513E-03_JPRB,.513E-03_JPRB,&
+&.427E-03_JPRB,.427E-03_JPRB,.442E-03_JPRB,.442E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,.251E-02_JPRB,&
+&.251E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.248E-02_JPRB,.248E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,&
+&.243E-02_JPRB,.243E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.555E-03_JPRB,.555E-03_JPRB,&
+&.358E-03_JPRB,.358E-03_JPRB,.420E-03_JPRB,.420E-03_JPRB,.142E-02_JPRB,.142E-02_JPRB,.140E-02_JPRB,&
+&.140E-02_JPRB,.440E-03_JPRB,.440E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,.456E-03_JPRB,.456E-03_JPRB,&
+&.573E-03_JPRB,.573E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 44 -82.0
+ZAER (:,44, 7) = (/&
+&.398E-03_JPRB,.398E-03_JPRB,.378E-03_JPRB,.378E-03_JPRB,.350E-03_JPRB,.350E-03_JPRB,.348E-03_JPRB,&
+&.348E-03_JPRB,.356E-03_JPRB,.356E-03_JPRB,.360E-03_JPRB,.360E-03_JPRB,.352E-03_JPRB,.352E-03_JPRB,&
+&.362E-03_JPRB,.362E-03_JPRB,.386E-03_JPRB,.386E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.522E-03_JPRB,.522E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,.383E-03_JPRB,.383E-03_JPRB,&
+&.372E-03_JPRB,.372E-03_JPRB,.387E-03_JPRB,.387E-03_JPRB,.522E-03_JPRB,.522E-03_JPRB,.640E-03_JPRB,&
+&.640E-03_JPRB,.918E-03_JPRB,.918E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.622E-03_JPRB,.622E-03_JPRB,&
+&.499E-03_JPRB,.499E-03_JPRB,.469E-03_JPRB,.469E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.421E-03_JPRB,&
+&.421E-03_JPRB,.398E-03_JPRB,.398E-03_JPRB,.364E-03_JPRB,.364E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,&
+&.404E-03_JPRB,.404E-03_JPRB,.405E-03_JPRB,.405E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.401E-03_JPRB,&
+&.401E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,&
+&.400E-03_JPRB,.400E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 45 -86.0
+ZAER (:,45, 7) = (/&
+&.398E-03_JPRB,.398E-03_JPRB,.378E-03_JPRB,.378E-03_JPRB,.350E-03_JPRB,.350E-03_JPRB,.348E-03_JPRB,&
+&.348E-03_JPRB,.356E-03_JPRB,.356E-03_JPRB,.360E-03_JPRB,.360E-03_JPRB,.352E-03_JPRB,.352E-03_JPRB,&
+&.362E-03_JPRB,.362E-03_JPRB,.386E-03_JPRB,.386E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.504E-03_JPRB,&
+&.504E-03_JPRB,.522E-03_JPRB,.522E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,.383E-03_JPRB,.383E-03_JPRB,&
+&.372E-03_JPRB,.372E-03_JPRB,.387E-03_JPRB,.387E-03_JPRB,.522E-03_JPRB,.522E-03_JPRB,.640E-03_JPRB,&
+&.640E-03_JPRB,.918E-03_JPRB,.918E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.622E-03_JPRB,.622E-03_JPRB,&
+&.499E-03_JPRB,.499E-03_JPRB,.469E-03_JPRB,.469E-03_JPRB,.431E-03_JPRB,.431E-03_JPRB,.421E-03_JPRB,&
+&.421E-03_JPRB,.398E-03_JPRB,.398E-03_JPRB,.364E-03_JPRB,.364E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,&
+&.404E-03_JPRB,.404E-03_JPRB,.405E-03_JPRB,.405E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.401E-03_JPRB,&
+&.401E-03_JPRB,.377E-03_JPRB,.377E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,&
+&.400E-03_JPRB,.400E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  7 --- lat: 46 -90.0
+ZAER (:,46, 7) = (/&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,.265E-03_JPRB,&
+&.265E-03_JPRB,.265E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=7   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_07
Index: LMDZ5/branches/testing/libf/phymar/suecaess_08.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_08.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_08.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_08
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      August
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,8:8)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  8 --- lat:  1  90.0
+ZAER (:, 1, 8) = (/&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,.459E-03_JPRB,&
+&.459E-03_JPRB,.459E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  2  86.0
+ZAER (:, 2, 8) = (/&
+&.876E-03_JPRB,.876E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.932E-03_JPRB,.932E-03_JPRB,&
+&.837E-03_JPRB,.837E-03_JPRB,.733E-03_JPRB,.733E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.503E-03_JPRB,&
+&.503E-03_JPRB,.483E-03_JPRB,.483E-03_JPRB,.475E-03_JPRB,.475E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,&
+&.410E-03_JPRB,.410E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.319E-03_JPRB,.319E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,&
+&.359E-03_JPRB,.359E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.385E-03_JPRB,&
+&.385E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.400E-03_JPRB,.400E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,&
+&.375E-03_JPRB,.375E-03_JPRB,.382E-03_JPRB,.382E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.432E-03_JPRB,&
+&.432E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,.532E-03_JPRB,.532E-03_JPRB,.636E-03_JPRB,.636E-03_JPRB,&
+&.760E-03_JPRB,.760E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  3  82.0
+ZAER (:, 3, 8) = (/&
+&.876E-03_JPRB,.876E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.932E-03_JPRB,.932E-03_JPRB,&
+&.837E-03_JPRB,.837E-03_JPRB,.733E-03_JPRB,.733E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.503E-03_JPRB,&
+&.503E-03_JPRB,.483E-03_JPRB,.483E-03_JPRB,.475E-03_JPRB,.475E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,&
+&.410E-03_JPRB,.410E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.319E-03_JPRB,.319E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,&
+&.359E-03_JPRB,.359E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,.385E-03_JPRB,&
+&.385E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.400E-03_JPRB,.400E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,&
+&.375E-03_JPRB,.375E-03_JPRB,.382E-03_JPRB,.382E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.432E-03_JPRB,&
+&.432E-03_JPRB,.473E-03_JPRB,.473E-03_JPRB,.532E-03_JPRB,.532E-03_JPRB,.636E-03_JPRB,.636E-03_JPRB,&
+&.760E-03_JPRB,.760E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  4  78.0
+ZAER (:, 4, 8) = (/&
+&.744E-03_JPRB,.744E-03_JPRB,.972E-03_JPRB,.972E-03_JPRB,.139E-02_JPRB,.139E-02_JPRB,.170E-02_JPRB,&
+&.170E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.841E-03_JPRB,.841E-03_JPRB,.720E-03_JPRB,.720E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,.372E-03_JPRB,&
+&.372E-03_JPRB,.310E-03_JPRB,.310E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.352E-03_JPRB,.352E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,.492E-03_JPRB,.492E-03_JPRB,.545E-03_JPRB,&
+&.545E-03_JPRB,.589E-03_JPRB,.589E-03_JPRB,.597E-03_JPRB,.597E-03_JPRB,.497E-03_JPRB,.497E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,.361E-03_JPRB,&
+&.361E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,.494E-03_JPRB,.494E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,&
+&.698E-03_JPRB,.698E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  5  74.0
+ZAER (:, 5, 8) = (/&
+&.744E-03_JPRB,.744E-03_JPRB,.972E-03_JPRB,.972E-03_JPRB,.139E-02_JPRB,.139E-02_JPRB,.170E-02_JPRB,&
+&.170E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,.110E-02_JPRB,.110E-02_JPRB,.112E-02_JPRB,&
+&.112E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,&
+&.841E-03_JPRB,.841E-03_JPRB,.720E-03_JPRB,.720E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,.372E-03_JPRB,&
+&.372E-03_JPRB,.310E-03_JPRB,.310E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.352E-03_JPRB,.352E-03_JPRB,&
+&.426E-03_JPRB,.426E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,.492E-03_JPRB,.492E-03_JPRB,.545E-03_JPRB,&
+&.545E-03_JPRB,.589E-03_JPRB,.589E-03_JPRB,.597E-03_JPRB,.597E-03_JPRB,.497E-03_JPRB,.497E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.307E-03_JPRB,.307E-03_JPRB,.361E-03_JPRB,&
+&.361E-03_JPRB,.429E-03_JPRB,.429E-03_JPRB,.494E-03_JPRB,.494E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,&
+&.698E-03_JPRB,.698E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  6  70.0
+ZAER (:, 6, 8) = (/&
+&.171E-02_JPRB,.171E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.256E-02_JPRB,&
+&.256E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,&
+&.233E-02_JPRB,.233E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.278E-02_JPRB,&
+&.278E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.561E-03_JPRB,.561E-03_JPRB,.524E-03_JPRB,&
+&.524E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,&
+&.658E-03_JPRB,.658E-03_JPRB,.806E-03_JPRB,.806E-03_JPRB,.890E-03_JPRB,.890E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.108E-02_JPRB,.108E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.868E-03_JPRB,.868E-03_JPRB,.767E-03_JPRB,.767E-03_JPRB,.776E-03_JPRB,&
+&.776E-03_JPRB,.864E-03_JPRB,.864E-03_JPRB,.996E-03_JPRB,.996E-03_JPRB,.125E-02_JPRB,.125E-02_JPRB,&
+&.146E-02_JPRB,.146E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  7  66.0
+ZAER (:, 7, 8) = (/&
+&.171E-02_JPRB,.171E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.256E-02_JPRB,&
+&.256E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,&
+&.233E-02_JPRB,.233E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.278E-02_JPRB,&
+&.278E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,&
+&.159E-02_JPRB,.159E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.561E-03_JPRB,.561E-03_JPRB,.524E-03_JPRB,&
+&.524E-03_JPRB,.573E-03_JPRB,.573E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,.606E-03_JPRB,.606E-03_JPRB,&
+&.658E-03_JPRB,.658E-03_JPRB,.806E-03_JPRB,.806E-03_JPRB,.890E-03_JPRB,.890E-03_JPRB,.959E-03_JPRB,&
+&.959E-03_JPRB,.108E-02_JPRB,.108E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.868E-03_JPRB,.868E-03_JPRB,.767E-03_JPRB,.767E-03_JPRB,.776E-03_JPRB,&
+&.776E-03_JPRB,.864E-03_JPRB,.864E-03_JPRB,.996E-03_JPRB,.996E-03_JPRB,.125E-02_JPRB,.125E-02_JPRB,&
+&.146E-02_JPRB,.146E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  8  62.0
+ZAER (:, 8, 8) = (/&
+&.781E-02_JPRB,.781E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.465E-02_JPRB,&
+&.465E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.684E-02_JPRB,.684E-02_JPRB,.401E-02_JPRB,.401E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.785E-03_JPRB,.785E-03_JPRB,.900E-03_JPRB,&
+&.900E-03_JPRB,.131E-02_JPRB,.131E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.171E-02_JPRB,.171E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.263E-02_JPRB,&
+&.263E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,&
+&.312E-02_JPRB,.312E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.354E-02_JPRB,&
+&.354E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,.360E-02_JPRB,.360E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,&
+&.704E-02_JPRB,.704E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat:  9  58.0
+ZAER (:, 9, 8) = (/&
+&.781E-02_JPRB,.781E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.465E-02_JPRB,&
+&.465E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.684E-02_JPRB,.684E-02_JPRB,.401E-02_JPRB,.401E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.785E-03_JPRB,.785E-03_JPRB,.900E-03_JPRB,&
+&.900E-03_JPRB,.131E-02_JPRB,.131E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,&
+&.171E-02_JPRB,.171E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.263E-02_JPRB,&
+&.263E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.225E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,&
+&.312E-02_JPRB,.312E-02_JPRB,.424E-02_JPRB,.424E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.354E-02_JPRB,&
+&.354E-02_JPRB,.380E-02_JPRB,.380E-02_JPRB,.360E-02_JPRB,.360E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,&
+&.704E-02_JPRB,.704E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 10  54.0
+ZAER (:,10, 8) = (/&
+&.926E-02_JPRB,.926E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.850E-02_JPRB,.850E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.611E-02_JPRB,.611E-02_JPRB,.618E-02_JPRB,&
+&.618E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.724E-02_JPRB,.724E-02_JPRB,&
+&.924E-02_JPRB,.924E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.994E-02_JPRB,&
+&.994E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.867E-02_JPRB,.867E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 11  50.0
+ZAER (:,11, 8) = (/&
+&.926E-02_JPRB,.926E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.993E-02_JPRB,.993E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.850E-02_JPRB,.850E-02_JPRB,.681E-02_JPRB,.681E-02_JPRB,.611E-02_JPRB,.611E-02_JPRB,.618E-02_JPRB,&
+&.618E-02_JPRB,.635E-02_JPRB,.635E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.724E-02_JPRB,.724E-02_JPRB,&
+&.924E-02_JPRB,.924E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.994E-02_JPRB,&
+&.994E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,&
+&.867E-02_JPRB,.867E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 12  46.0
+ZAER (:,12, 8) = (/&
+&.979E-02_JPRB,.979E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.974E-02_JPRB,.974E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.922E-02_JPRB,&
+&.922E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.983E-02_JPRB,.983E-02_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.886E-02_JPRB,.886E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,&
+&.759E-02_JPRB,.759E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 13  42.0
+ZAER (:,13, 8) = (/&
+&.979E-02_JPRB,.979E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.974E-02_JPRB,.974E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.922E-02_JPRB,&
+&.922E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.983E-02_JPRB,.983E-02_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.130E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.886E-02_JPRB,.886E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,&
+&.759E-02_JPRB,.759E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 14  38.0
+ZAER (:,14, 8) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.996E-02_JPRB,.996E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.810E-02_JPRB,&
+&.810E-02_JPRB,.443E-02_JPRB,.443E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,.902E-02_JPRB,.902E-02_JPRB,.919E-02_JPRB,&
+&.919E-02_JPRB,.898E-02_JPRB,.898E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,&
+&.947E-02_JPRB,.947E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.996E-02_JPRB,.996E-02_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.994E-02_JPRB,.994E-02_JPRB,.963E-02_JPRB,.963E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.916E-02_JPRB,.916E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,.763E-02_JPRB,&
+&.763E-02_JPRB,.474E-02_JPRB,.474E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 15  34.0
+ZAER (:,15, 8) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.112E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.996E-02_JPRB,.996E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.810E-02_JPRB,&
+&.810E-02_JPRB,.443E-02_JPRB,.443E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,&
+&.993E-02_JPRB,.993E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,.902E-02_JPRB,.902E-02_JPRB,.919E-02_JPRB,&
+&.919E-02_JPRB,.898E-02_JPRB,.898E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,&
+&.947E-02_JPRB,.947E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.996E-02_JPRB,.996E-02_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.994E-02_JPRB,.994E-02_JPRB,.963E-02_JPRB,.963E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.916E-02_JPRB,.916E-02_JPRB,.870E-02_JPRB,.870E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,.763E-02_JPRB,&
+&.763E-02_JPRB,.474E-02_JPRB,.474E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 16  30.0
+ZAER (:,16, 8) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.996E-02_JPRB,.996E-02_JPRB,.977E-02_JPRB,.977E-02_JPRB,.997E-02_JPRB,.997E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.997E-02_JPRB,.997E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,.824E-02_JPRB,&
+&.824E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,&
+&.768E-02_JPRB,.768E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.846E-02_JPRB,&
+&.846E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,&
+&.513E-02_JPRB,.513E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.913E-02_JPRB,.913E-02_JPRB,.946E-02_JPRB,&
+&.946E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,&
+&.867E-02_JPRB,.867E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.123E-01_JPRB,.123E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 17  26.0
+ZAER (:,17, 8) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.996E-02_JPRB,.996E-02_JPRB,.977E-02_JPRB,.977E-02_JPRB,.997E-02_JPRB,.997E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.997E-02_JPRB,.997E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,.824E-02_JPRB,&
+&.824E-02_JPRB,.477E-02_JPRB,.477E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,.508E-02_JPRB,.508E-02_JPRB,&
+&.768E-02_JPRB,.768E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.846E-02_JPRB,&
+&.846E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,&
+&.513E-02_JPRB,.513E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.913E-02_JPRB,.913E-02_JPRB,.946E-02_JPRB,&
+&.946E-02_JPRB,.973E-02_JPRB,.973E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,&
+&.867E-02_JPRB,.867E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.309E-02_JPRB,.309E-02_JPRB,.600E-02_JPRB,.600E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,&
+&.123E-01_JPRB,.123E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 18  22.0
+ZAER (:,18, 8) = (/&
+&.129E-01_JPRB,.129E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.928E-02_JPRB,.928E-02_JPRB,.764E-02_JPRB,&
+&.764E-02_JPRB,.457E-02_JPRB,.457E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,.312E-02_JPRB,.312E-02_JPRB,&
+&.651E-02_JPRB,.651E-02_JPRB,.942E-02_JPRB,.942E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.791E-02_JPRB,&
+&.791E-02_JPRB,.698E-02_JPRB,.698E-02_JPRB,.473E-02_JPRB,.473E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,&
+&.314E-02_JPRB,.314E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.904E-02_JPRB,.904E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.457E-02_JPRB,&
+&.457E-02_JPRB,.551E-02_JPRB,.551E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.123E-01_JPRB,.123E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 19  18.0
+ZAER (:,19, 8) = (/&
+&.129E-01_JPRB,.129E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.928E-02_JPRB,.928E-02_JPRB,.764E-02_JPRB,&
+&.764E-02_JPRB,.457E-02_JPRB,.457E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,.312E-02_JPRB,.312E-02_JPRB,&
+&.651E-02_JPRB,.651E-02_JPRB,.942E-02_JPRB,.942E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.791E-02_JPRB,&
+&.791E-02_JPRB,.698E-02_JPRB,.698E-02_JPRB,.473E-02_JPRB,.473E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,&
+&.314E-02_JPRB,.314E-02_JPRB,.576E-02_JPRB,.576E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.904E-02_JPRB,.904E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.457E-02_JPRB,&
+&.457E-02_JPRB,.551E-02_JPRB,.551E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.123E-01_JPRB,.123E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 20  14.0
+ZAER (:,20, 8) = (/&
+&.163E-01_JPRB,.163E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.752E-02_JPRB,.752E-02_JPRB,.988E-02_JPRB,.988E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.596E-02_JPRB,&
+&.596E-02_JPRB,.451E-02_JPRB,.451E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.344E-02_JPRB,.344E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.877E-02_JPRB,.877E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.954E-02_JPRB,.954E-02_JPRB,.125E-01_JPRB,.125E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 21  10.0
+ZAER (:,21, 8) = (/&
+&.163E-01_JPRB,.163E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.752E-02_JPRB,.752E-02_JPRB,.988E-02_JPRB,.988E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.596E-02_JPRB,&
+&.596E-02_JPRB,.451E-02_JPRB,.451E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.344E-02_JPRB,.344E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.877E-02_JPRB,.877E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.954E-02_JPRB,.954E-02_JPRB,.125E-01_JPRB,.125E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 22   6.0
+ZAER (:,22, 8) = (/&
+&.167E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.900E-02_JPRB,.900E-02_JPRB,&
+&.746E-02_JPRB,.746E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.465E-02_JPRB,.465E-02_JPRB,.234E-02_JPRB,&
+&.234E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.415E-02_JPRB,.415E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,&
+&.851E-02_JPRB,.851E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.428E-02_JPRB,&
+&.428E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,&
+&.554E-02_JPRB,.554E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.918E-02_JPRB,&
+&.918E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,&
+&.700E-02_JPRB,.700E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.775E-02_JPRB,&
+&.775E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 23   2.0
+ZAER (:,23, 8) = (/&
+&.167E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.900E-02_JPRB,.900E-02_JPRB,&
+&.746E-02_JPRB,.746E-02_JPRB,.595E-02_JPRB,.595E-02_JPRB,.465E-02_JPRB,.465E-02_JPRB,.234E-02_JPRB,&
+&.234E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.415E-02_JPRB,.415E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,&
+&.851E-02_JPRB,.851E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.428E-02_JPRB,&
+&.428E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,&
+&.554E-02_JPRB,.554E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.918E-02_JPRB,&
+&.918E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,&
+&.700E-02_JPRB,.700E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.775E-02_JPRB,&
+&.775E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 24  -2.0
+ZAER (:,24, 8) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,&
+&.143E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.839E-02_JPRB,.839E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,.326E-02_JPRB,&
+&.326E-02_JPRB,.372E-02_JPRB,.372E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.908E-02_JPRB,.908E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,.510E-02_JPRB,.510E-02_JPRB,.319E-02_JPRB,&
+&.319E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.927E-03_JPRB,.927E-03_JPRB,.193E-02_JPRB,.193E-02_JPRB,&
+&.418E-02_JPRB,.418E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.766E-02_JPRB,&
+&.766E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,&
+&.478E-02_JPRB,.478E-02_JPRB,.596E-02_JPRB,.596E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.743E-02_JPRB,&
+&.743E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 25  -6.0
+ZAER (:,25, 8) = (/&
+&.116E-01_JPRB,.116E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,&
+&.143E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.839E-02_JPRB,.839E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,.326E-02_JPRB,&
+&.326E-02_JPRB,.372E-02_JPRB,.372E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.908E-02_JPRB,.908E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,.510E-02_JPRB,.510E-02_JPRB,.319E-02_JPRB,&
+&.319E-02_JPRB,.243E-02_JPRB,.243E-02_JPRB,.927E-03_JPRB,.927E-03_JPRB,.193E-02_JPRB,.193E-02_JPRB,&
+&.418E-02_JPRB,.418E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.766E-02_JPRB,&
+&.766E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.598E-02_JPRB,.598E-02_JPRB,&
+&.478E-02_JPRB,.478E-02_JPRB,.596E-02_JPRB,.596E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.743E-02_JPRB,&
+&.743E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 26 -10.0
+ZAER (:,26, 8) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.808E-02_JPRB,.808E-02_JPRB,&
+&.604E-02_JPRB,.604E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.699E-02_JPRB,&
+&.699E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.832E-02_JPRB,.832E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.646E-03_JPRB,&
+&.646E-03_JPRB,.371E-03_JPRB,.371E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.895E-03_JPRB,.895E-03_JPRB,&
+&.211E-02_JPRB,.211E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,.946E-02_JPRB,&
+&.946E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.334E-02_JPRB,.334E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.725E-02_JPRB,&
+&.725E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 27 -14.0
+ZAER (:,27, 8) = (/&
+&.103E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.808E-02_JPRB,.808E-02_JPRB,&
+&.604E-02_JPRB,.604E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.699E-02_JPRB,&
+&.699E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,.109E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.832E-02_JPRB,.832E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.646E-03_JPRB,&
+&.646E-03_JPRB,.371E-03_JPRB,.371E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.895E-03_JPRB,.895E-03_JPRB,&
+&.211E-02_JPRB,.211E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,.946E-02_JPRB,&
+&.946E-02_JPRB,.669E-02_JPRB,.669E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.334E-02_JPRB,.334E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.725E-02_JPRB,&
+&.725E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,&
+&.100E-01_JPRB,.100E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 28 -18.0
+ZAER (:,28, 8) = (/&
+&.127E-01_JPRB,.127E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.989E-02_JPRB,.989E-02_JPRB,.705E-02_JPRB,.705E-02_JPRB,&
+&.438E-02_JPRB,.438E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.933E-02_JPRB,&
+&.933E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.730E-02_JPRB,.730E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.755E-03_JPRB,&
+&.755E-03_JPRB,.645E-03_JPRB,.645E-03_JPRB,.754E-03_JPRB,.754E-03_JPRB,.892E-03_JPRB,.892E-03_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.635E-02_JPRB,&
+&.635E-02_JPRB,.378E-02_JPRB,.378E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.276E-02_JPRB,.276E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.404E-02_JPRB,.404E-02_JPRB,.759E-02_JPRB,.759E-02_JPRB,.962E-02_JPRB,&
+&.962E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.925E-02_JPRB,.925E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,&
+&.997E-02_JPRB,.997E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 29 -22.0
+ZAER (:,29, 8) = (/&
+&.127E-01_JPRB,.127E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.989E-02_JPRB,.989E-02_JPRB,.705E-02_JPRB,.705E-02_JPRB,&
+&.438E-02_JPRB,.438E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.933E-02_JPRB,&
+&.933E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.730E-02_JPRB,.730E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.755E-03_JPRB,&
+&.755E-03_JPRB,.645E-03_JPRB,.645E-03_JPRB,.754E-03_JPRB,.754E-03_JPRB,.892E-03_JPRB,.892E-03_JPRB,&
+&.129E-02_JPRB,.129E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.635E-02_JPRB,&
+&.635E-02_JPRB,.378E-02_JPRB,.378E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.276E-02_JPRB,.276E-02_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.404E-02_JPRB,.404E-02_JPRB,.759E-02_JPRB,.759E-02_JPRB,.962E-02_JPRB,&
+&.962E-02_JPRB,.968E-02_JPRB,.968E-02_JPRB,.925E-02_JPRB,.925E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,&
+&.997E-02_JPRB,.997E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 30 -26.0
+ZAER (:,30, 8) = (/&
+&.105E-01_JPRB,.105E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.790E-02_JPRB,.790E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.236E-02_JPRB,.236E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.605E-02_JPRB,&
+&.605E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.721E-02_JPRB,.721E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,&
+&.204E-02_JPRB,.204E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.702E-03_JPRB,.702E-03_JPRB,.662E-03_JPRB,.662E-03_JPRB,&
+&.704E-03_JPRB,.704E-03_JPRB,.200E-02_JPRB,.200E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,.675E-02_JPRB,&
+&.675E-02_JPRB,.793E-02_JPRB,.793E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,&
+&.937E-02_JPRB,.937E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 31 -30.0
+ZAER (:,31, 8) = (/&
+&.105E-01_JPRB,.105E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.790E-02_JPRB,.790E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.236E-02_JPRB,.236E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.449E-02_JPRB,.449E-02_JPRB,.605E-02_JPRB,&
+&.605E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.721E-02_JPRB,.721E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,&
+&.204E-02_JPRB,.204E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.187E-02_JPRB,&
+&.187E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.702E-03_JPRB,.702E-03_JPRB,.662E-03_JPRB,.662E-03_JPRB,&
+&.704E-03_JPRB,.704E-03_JPRB,.200E-02_JPRB,.200E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,.675E-02_JPRB,&
+&.675E-02_JPRB,.793E-02_JPRB,.793E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.835E-02_JPRB,.835E-02_JPRB,&
+&.937E-02_JPRB,.937E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 32 -34.0
+ZAER (:,32, 8) = (/&
+&.754E-02_JPRB,.754E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.932E-02_JPRB,&
+&.932E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.415E-02_JPRB,.415E-02_JPRB,&
+&.195E-02_JPRB,.195E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.273E-02_JPRB,&
+&.273E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,&
+&.951E-02_JPRB,.951E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.521E-02_JPRB,&
+&.521E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,&
+&.339E-02_JPRB,.339E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.902E-03_JPRB,.902E-03_JPRB,.720E-03_JPRB,.720E-03_JPRB,&
+&.495E-03_JPRB,.495E-03_JPRB,.847E-03_JPRB,.847E-03_JPRB,.232E-02_JPRB,.232E-02_JPRB,.267E-02_JPRB,&
+&.267E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.764E-02_JPRB,.764E-02_JPRB,&
+&.738E-02_JPRB,.738E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 33 -38.0
+ZAER (:,33, 8) = (/&
+&.754E-02_JPRB,.754E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.932E-02_JPRB,&
+&.932E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.415E-02_JPRB,.415E-02_JPRB,&
+&.195E-02_JPRB,.195E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.273E-02_JPRB,&
+&.273E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,&
+&.951E-02_JPRB,.951E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.748E-02_JPRB,.748E-02_JPRB,.521E-02_JPRB,&
+&.521E-02_JPRB,.388E-02_JPRB,.388E-02_JPRB,.400E-02_JPRB,.400E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,&
+&.339E-02_JPRB,.339E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.139E-02_JPRB,&
+&.139E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.902E-03_JPRB,.902E-03_JPRB,.720E-03_JPRB,.720E-03_JPRB,&
+&.495E-03_JPRB,.495E-03_JPRB,.847E-03_JPRB,.847E-03_JPRB,.232E-02_JPRB,.232E-02_JPRB,.267E-02_JPRB,&
+&.267E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.764E-02_JPRB,.764E-02_JPRB,&
+&.738E-02_JPRB,.738E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 34 -42.0
+ZAER (:,34, 8) = (/&
+&.556E-02_JPRB,.556E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.663E-02_JPRB,&
+&.663E-02_JPRB,.760E-02_JPRB,.760E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,&
+&.269E-02_JPRB,.269E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.113E-02_JPRB,&
+&.113E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,&
+&.760E-02_JPRB,.760E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.672E-02_JPRB,.672E-02_JPRB,.465E-02_JPRB,&
+&.465E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.250E-02_JPRB,.250E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.987E-03_JPRB,&
+&.987E-03_JPRB,.816E-03_JPRB,.816E-03_JPRB,.752E-03_JPRB,.752E-03_JPRB,.644E-03_JPRB,.644E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,&
+&.573E-02_JPRB,.573E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 35 -46.0
+ZAER (:,35, 8) = (/&
+&.556E-02_JPRB,.556E-02_JPRB,.529E-02_JPRB,.529E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.663E-02_JPRB,&
+&.663E-02_JPRB,.760E-02_JPRB,.760E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,&
+&.269E-02_JPRB,.269E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.113E-02_JPRB,&
+&.113E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,&
+&.760E-02_JPRB,.760E-02_JPRB,.730E-02_JPRB,.730E-02_JPRB,.672E-02_JPRB,.672E-02_JPRB,.465E-02_JPRB,&
+&.465E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,&
+&.250E-02_JPRB,.250E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.987E-03_JPRB,&
+&.987E-03_JPRB,.816E-03_JPRB,.816E-03_JPRB,.752E-03_JPRB,.752E-03_JPRB,.644E-03_JPRB,.644E-03_JPRB,&
+&.504E-03_JPRB,.504E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,&
+&.573E-02_JPRB,.573E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 36 -50.0
+ZAER (:,36, 8) = (/&
+&.488E-02_JPRB,.488E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.508E-02_JPRB,&
+&.508E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.842E-03_JPRB,.842E-03_JPRB,.904E-03_JPRB,.904E-03_JPRB,.871E-03_JPRB,&
+&.871E-03_JPRB,.702E-03_JPRB,.702E-03_JPRB,.210E-02_JPRB,.210E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,&
+&.631E-02_JPRB,.631E-02_JPRB,.707E-02_JPRB,.707E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.491E-02_JPRB,&
+&.491E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.932E-03_JPRB,.932E-03_JPRB,.677E-03_JPRB,.677E-03_JPRB,.609E-03_JPRB,&
+&.609E-03_JPRB,.577E-03_JPRB,.577E-03_JPRB,.546E-03_JPRB,.546E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,&
+&.465E-03_JPRB,.465E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.406E-03_JPRB,.406E-03_JPRB,.565E-03_JPRB,&
+&.565E-03_JPRB,.203E-02_JPRB,.203E-02_JPRB,.355E-02_JPRB,.355E-02_JPRB,.467E-02_JPRB,.467E-02_JPRB,&
+&.526E-02_JPRB,.526E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 37 -54.0
+ZAER (:,37, 8) = (/&
+&.488E-02_JPRB,.488E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.508E-02_JPRB,&
+&.508E-02_JPRB,.545E-02_JPRB,.545E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.105E-02_JPRB,.105E-02_JPRB,.842E-03_JPRB,.842E-03_JPRB,.904E-03_JPRB,.904E-03_JPRB,.871E-03_JPRB,&
+&.871E-03_JPRB,.702E-03_JPRB,.702E-03_JPRB,.210E-02_JPRB,.210E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,&
+&.631E-02_JPRB,.631E-02_JPRB,.707E-02_JPRB,.707E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.491E-02_JPRB,&
+&.491E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.153E-02_JPRB,.153E-02_JPRB,&
+&.120E-02_JPRB,.120E-02_JPRB,.932E-03_JPRB,.932E-03_JPRB,.677E-03_JPRB,.677E-03_JPRB,.609E-03_JPRB,&
+&.609E-03_JPRB,.577E-03_JPRB,.577E-03_JPRB,.546E-03_JPRB,.546E-03_JPRB,.515E-03_JPRB,.515E-03_JPRB,&
+&.465E-03_JPRB,.465E-03_JPRB,.428E-03_JPRB,.428E-03_JPRB,.406E-03_JPRB,.406E-03_JPRB,.565E-03_JPRB,&
+&.565E-03_JPRB,.203E-02_JPRB,.203E-02_JPRB,.355E-02_JPRB,.355E-02_JPRB,.467E-02_JPRB,.467E-02_JPRB,&
+&.526E-02_JPRB,.526E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 38 -58.0
+ZAER (:,38, 8) = (/&
+&.431E-02_JPRB,.431E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.560E-03_JPRB,.560E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.610E-03_JPRB,.610E-03_JPRB,.259E-02_JPRB,.259E-02_JPRB,.178E-02_JPRB,&
+&.178E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.397E-02_JPRB,.397E-02_JPRB,&
+&.595E-02_JPRB,.595E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,.695E-02_JPRB,.695E-02_JPRB,.581E-02_JPRB,&
+&.581E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.956E-03_JPRB,.956E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.689E-03_JPRB,&
+&.689E-03_JPRB,.660E-03_JPRB,.660E-03_JPRB,.567E-03_JPRB,.567E-03_JPRB,.488E-03_JPRB,.488E-03_JPRB,&
+&.433E-03_JPRB,.433E-03_JPRB,.398E-03_JPRB,.398E-03_JPRB,.363E-03_JPRB,.363E-03_JPRB,.381E-03_JPRB,&
+&.381E-03_JPRB,.111E-02_JPRB,.111E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,&
+&.363E-02_JPRB,.363E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 39 -62.0
+ZAER (:,39, 8) = (/&
+&.431E-02_JPRB,.431E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.560E-03_JPRB,.560E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.610E-03_JPRB,.610E-03_JPRB,.259E-02_JPRB,.259E-02_JPRB,.178E-02_JPRB,&
+&.178E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.397E-02_JPRB,.397E-02_JPRB,&
+&.595E-02_JPRB,.595E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,.695E-02_JPRB,.695E-02_JPRB,.581E-02_JPRB,&
+&.581E-02_JPRB,.505E-02_JPRB,.505E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,&
+&.122E-02_JPRB,.122E-02_JPRB,.956E-03_JPRB,.956E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,.689E-03_JPRB,&
+&.689E-03_JPRB,.660E-03_JPRB,.660E-03_JPRB,.567E-03_JPRB,.567E-03_JPRB,.488E-03_JPRB,.488E-03_JPRB,&
+&.433E-03_JPRB,.433E-03_JPRB,.398E-03_JPRB,.398E-03_JPRB,.363E-03_JPRB,.363E-03_JPRB,.381E-03_JPRB,&
+&.381E-03_JPRB,.111E-02_JPRB,.111E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,&
+&.363E-02_JPRB,.363E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 40 -66.0
+ZAER (:,40, 8) = (/&
+&.153E-02_JPRB,.153E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,.709E-03_JPRB,.709E-03_JPRB,.547E-03_JPRB,&
+&.547E-03_JPRB,.834E-03_JPRB,.834E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.554E-03_JPRB,.554E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.641E-03_JPRB,.641E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.111E-02_JPRB,&
+&.111E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.552E-02_JPRB,&
+&.552E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.935E-03_JPRB,.935E-03_JPRB,.713E-03_JPRB,.713E-03_JPRB,.505E-03_JPRB,.505E-03_JPRB,&
+&.398E-03_JPRB,.398E-03_JPRB,.356E-03_JPRB,.356E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.363E-03_JPRB,&
+&.363E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.455E-03_JPRB,.455E-03_JPRB,.601E-03_JPRB,.601E-03_JPRB,&
+&.749E-03_JPRB,.749E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 41 -70.0
+ZAER (:,41, 8) = (/&
+&.153E-02_JPRB,.153E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,.709E-03_JPRB,.709E-03_JPRB,.547E-03_JPRB,&
+&.547E-03_JPRB,.834E-03_JPRB,.834E-03_JPRB,.710E-03_JPRB,.710E-03_JPRB,.554E-03_JPRB,.554E-03_JPRB,&
+&.431E-03_JPRB,.431E-03_JPRB,.641E-03_JPRB,.641E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.111E-02_JPRB,&
+&.111E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,.152E-02_JPRB,.152E-02_JPRB,&
+&.133E-02_JPRB,.133E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.552E-02_JPRB,&
+&.552E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.144E-02_JPRB,&
+&.144E-02_JPRB,.935E-03_JPRB,.935E-03_JPRB,.713E-03_JPRB,.713E-03_JPRB,.505E-03_JPRB,.505E-03_JPRB,&
+&.398E-03_JPRB,.398E-03_JPRB,.356E-03_JPRB,.356E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.363E-03_JPRB,&
+&.363E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.455E-03_JPRB,.455E-03_JPRB,.601E-03_JPRB,.601E-03_JPRB,&
+&.749E-03_JPRB,.749E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 42 -74.0
+ZAER (:,42, 8) = (/&
+&.546E-03_JPRB,.546E-03_JPRB,.905E-03_JPRB,.905E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.360E-03_JPRB,&
+&.360E-03_JPRB,.518E-03_JPRB,.518E-03_JPRB,.687E-03_JPRB,.687E-03_JPRB,.498E-03_JPRB,.498E-03_JPRB,&
+&.465E-03_JPRB,.465E-03_JPRB,.479E-03_JPRB,.479E-03_JPRB,.509E-03_JPRB,.509E-03_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.843E-03_JPRB,.843E-03_JPRB,&
+&.575E-03_JPRB,.575E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.142E-02_JPRB,.142E-02_JPRB,.314E-02_JPRB,&
+&.314E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.373E-02_JPRB,.373E-02_JPRB,.332E-02_JPRB,.332E-02_JPRB,&
+&.327E-02_JPRB,.327E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.200E-02_JPRB,&
+&.200E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.566E-03_JPRB,.566E-03_JPRB,&
+&.403E-03_JPRB,.403E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.124E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.361E-03_JPRB,.361E-03_JPRB,.299E-03_JPRB,.299E-03_JPRB,.322E-03_JPRB,.322E-03_JPRB,&
+&.359E-03_JPRB,.359E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 43 -78.0
+ZAER (:,43, 8) = (/&
+&.546E-03_JPRB,.546E-03_JPRB,.905E-03_JPRB,.905E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.360E-03_JPRB,&
+&.360E-03_JPRB,.518E-03_JPRB,.518E-03_JPRB,.687E-03_JPRB,.687E-03_JPRB,.498E-03_JPRB,.498E-03_JPRB,&
+&.465E-03_JPRB,.465E-03_JPRB,.479E-03_JPRB,.479E-03_JPRB,.509E-03_JPRB,.509E-03_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.843E-03_JPRB,.843E-03_JPRB,&
+&.575E-03_JPRB,.575E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.142E-02_JPRB,.142E-02_JPRB,.314E-02_JPRB,&
+&.314E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.373E-02_JPRB,.373E-02_JPRB,.332E-02_JPRB,.332E-02_JPRB,&
+&.327E-02_JPRB,.327E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.200E-02_JPRB,&
+&.200E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.566E-03_JPRB,.566E-03_JPRB,&
+&.403E-03_JPRB,.403E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.124E-02_JPRB,.124E-02_JPRB,.121E-02_JPRB,&
+&.121E-02_JPRB,.361E-03_JPRB,.361E-03_JPRB,.299E-03_JPRB,.299E-03_JPRB,.322E-03_JPRB,.322E-03_JPRB,&
+&.359E-03_JPRB,.359E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 44 -82.0
+ZAER (:,44, 8) = (/&
+&.354E-03_JPRB,.354E-03_JPRB,.336E-03_JPRB,.336E-03_JPRB,.305E-03_JPRB,.305E-03_JPRB,.312E-03_JPRB,&
+&.312E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.506E-03_JPRB,.506E-03_JPRB,.622E-03_JPRB,&
+&.622E-03_JPRB,.828E-03_JPRB,.828E-03_JPRB,.830E-03_JPRB,.830E-03_JPRB,.680E-03_JPRB,.680E-03_JPRB,&
+&.575E-03_JPRB,.575E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.581E-03_JPRB,&
+&.581E-03_JPRB,.923E-03_JPRB,.923E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.644E-03_JPRB,.644E-03_JPRB,&
+&.482E-03_JPRB,.482E-03_JPRB,.450E-03_JPRB,.450E-03_JPRB,.475E-03_JPRB,.475E-03_JPRB,.507E-03_JPRB,&
+&.507E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,.345E-03_JPRB,.345E-03_JPRB,&
+&.370E-03_JPRB,.370E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,.391E-03_JPRB,.391E-03_JPRB,.338E-03_JPRB,&
+&.338E-03_JPRB,.277E-03_JPRB,.277E-03_JPRB,.282E-03_JPRB,.282E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 45 -86.0
+ZAER (:,45, 8) = (/&
+&.354E-03_JPRB,.354E-03_JPRB,.336E-03_JPRB,.336E-03_JPRB,.305E-03_JPRB,.305E-03_JPRB,.312E-03_JPRB,&
+&.312E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.353E-03_JPRB,.353E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.506E-03_JPRB,.506E-03_JPRB,.622E-03_JPRB,&
+&.622E-03_JPRB,.828E-03_JPRB,.828E-03_JPRB,.830E-03_JPRB,.830E-03_JPRB,.680E-03_JPRB,.680E-03_JPRB,&
+&.575E-03_JPRB,.575E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.581E-03_JPRB,&
+&.581E-03_JPRB,.923E-03_JPRB,.923E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.644E-03_JPRB,.644E-03_JPRB,&
+&.482E-03_JPRB,.482E-03_JPRB,.450E-03_JPRB,.450E-03_JPRB,.475E-03_JPRB,.475E-03_JPRB,.507E-03_JPRB,&
+&.507E-03_JPRB,.500E-03_JPRB,.500E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,.345E-03_JPRB,.345E-03_JPRB,&
+&.370E-03_JPRB,.370E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,.391E-03_JPRB,.391E-03_JPRB,.338E-03_JPRB,&
+&.338E-03_JPRB,.277E-03_JPRB,.277E-03_JPRB,.282E-03_JPRB,.282E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,&
+&.320E-03_JPRB,.320E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  8 --- lat: 46 -90.0
+ZAER (:,46, 8) = (/&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,.261E-03_JPRB,&
+&.261E-03_JPRB,.261E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=8   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_08
Index: LMDZ5/branches/testing/libf/phymar/suecaess_09.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_09.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_09.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_09
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      September
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,9:9)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month:  9 --- lat:  1  90.0
+ZAER (:, 1, 9) = (/&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,.600E-03_JPRB,&
+&.600E-03_JPRB,.600E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  2  86.0
+ZAER (:, 2, 9) = (/&
+&.749E-03_JPRB,.749E-03_JPRB,.750E-03_JPRB,.750E-03_JPRB,.775E-03_JPRB,.775E-03_JPRB,.809E-03_JPRB,&
+&.809E-03_JPRB,.867E-03_JPRB,.867E-03_JPRB,.944E-03_JPRB,.944E-03_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.898E-03_JPRB,.898E-03_JPRB,&
+&.758E-03_JPRB,.758E-03_JPRB,.604E-03_JPRB,.604E-03_JPRB,.465E-03_JPRB,.465E-03_JPRB,.357E-03_JPRB,&
+&.357E-03_JPRB,.275E-03_JPRB,.275E-03_JPRB,.243E-03_JPRB,.243E-03_JPRB,.239E-03_JPRB,.239E-03_JPRB,&
+&.255E-03_JPRB,.255E-03_JPRB,.277E-03_JPRB,.277E-03_JPRB,.286E-03_JPRB,.286E-03_JPRB,.289E-03_JPRB,&
+&.289E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.341E-03_JPRB,.341E-03_JPRB,&
+&.381E-03_JPRB,.381E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.439E-03_JPRB,.439E-03_JPRB,.465E-03_JPRB,&
+&.465E-03_JPRB,.507E-03_JPRB,.507E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,.682E-03_JPRB,.682E-03_JPRB,&
+&.726E-03_JPRB,.726E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  3  82.0
+ZAER (:, 3, 9) = (/&
+&.749E-03_JPRB,.749E-03_JPRB,.750E-03_JPRB,.750E-03_JPRB,.775E-03_JPRB,.775E-03_JPRB,.809E-03_JPRB,&
+&.809E-03_JPRB,.867E-03_JPRB,.867E-03_JPRB,.944E-03_JPRB,.944E-03_JPRB,.105E-02_JPRB,.105E-02_JPRB,&
+&.118E-02_JPRB,.118E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.129E-02_JPRB,&
+&.129E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.106E-02_JPRB,.106E-02_JPRB,.898E-03_JPRB,.898E-03_JPRB,&
+&.758E-03_JPRB,.758E-03_JPRB,.604E-03_JPRB,.604E-03_JPRB,.465E-03_JPRB,.465E-03_JPRB,.357E-03_JPRB,&
+&.357E-03_JPRB,.275E-03_JPRB,.275E-03_JPRB,.243E-03_JPRB,.243E-03_JPRB,.239E-03_JPRB,.239E-03_JPRB,&
+&.255E-03_JPRB,.255E-03_JPRB,.277E-03_JPRB,.277E-03_JPRB,.286E-03_JPRB,.286E-03_JPRB,.289E-03_JPRB,&
+&.289E-03_JPRB,.300E-03_JPRB,.300E-03_JPRB,.312E-03_JPRB,.312E-03_JPRB,.341E-03_JPRB,.341E-03_JPRB,&
+&.381E-03_JPRB,.381E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.439E-03_JPRB,.439E-03_JPRB,.465E-03_JPRB,&
+&.465E-03_JPRB,.507E-03_JPRB,.507E-03_JPRB,.586E-03_JPRB,.586E-03_JPRB,.682E-03_JPRB,.682E-03_JPRB,&
+&.726E-03_JPRB,.726E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  4  78.0
+ZAER (:, 4, 9) = (/&
+&.738E-03_JPRB,.738E-03_JPRB,.772E-03_JPRB,.772E-03_JPRB,.793E-03_JPRB,.793E-03_JPRB,.792E-03_JPRB,&
+&.792E-03_JPRB,.791E-03_JPRB,.791E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,.936E-03_JPRB,.936E-03_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.223E-02_JPRB,&
+&.223E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.885E-03_JPRB,.885E-03_JPRB,.799E-03_JPRB,.799E-03_JPRB,.728E-03_JPRB,&
+&.728E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.336E-03_JPRB,.336E-03_JPRB,.326E-03_JPRB,.326E-03_JPRB,&
+&.367E-03_JPRB,.367E-03_JPRB,.393E-03_JPRB,.393E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.511E-03_JPRB,&
+&.511E-03_JPRB,.544E-03_JPRB,.544E-03_JPRB,.406E-03_JPRB,.406E-03_JPRB,.379E-03_JPRB,.379E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB,.419E-03_JPRB,.419E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.421E-03_JPRB,&
+&.421E-03_JPRB,.418E-03_JPRB,.418E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.557E-03_JPRB,.557E-03_JPRB,&
+&.673E-03_JPRB,.673E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  5  74.0
+ZAER (:, 5, 9) = (/&
+&.738E-03_JPRB,.738E-03_JPRB,.772E-03_JPRB,.772E-03_JPRB,.793E-03_JPRB,.793E-03_JPRB,.792E-03_JPRB,&
+&.792E-03_JPRB,.791E-03_JPRB,.791E-03_JPRB,.798E-03_JPRB,.798E-03_JPRB,.936E-03_JPRB,.936E-03_JPRB,&
+&.137E-02_JPRB,.137E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.223E-02_JPRB,&
+&.223E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.104E-02_JPRB,.104E-02_JPRB,.885E-03_JPRB,.885E-03_JPRB,.799E-03_JPRB,.799E-03_JPRB,.728E-03_JPRB,&
+&.728E-03_JPRB,.471E-03_JPRB,.471E-03_JPRB,.336E-03_JPRB,.336E-03_JPRB,.326E-03_JPRB,.326E-03_JPRB,&
+&.367E-03_JPRB,.367E-03_JPRB,.393E-03_JPRB,.393E-03_JPRB,.403E-03_JPRB,.403E-03_JPRB,.511E-03_JPRB,&
+&.511E-03_JPRB,.544E-03_JPRB,.544E-03_JPRB,.406E-03_JPRB,.406E-03_JPRB,.379E-03_JPRB,.379E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB,.419E-03_JPRB,.419E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.421E-03_JPRB,&
+&.421E-03_JPRB,.418E-03_JPRB,.418E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.557E-03_JPRB,.557E-03_JPRB,&
+&.673E-03_JPRB,.673E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  6  70.0
+ZAER (:, 6, 9) = (/&
+&.196E-02_JPRB,.196E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.220E-02_JPRB,&
+&.220E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.336E-02_JPRB,.336E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.392E-02_JPRB,&
+&.392E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,&
+&.153E-02_JPRB,.153E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.865E-03_JPRB,.865E-03_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.705E-03_JPRB,.705E-03_JPRB,.774E-03_JPRB,.774E-03_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.223E-02_JPRB,&
+&.223E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.255E-02_JPRB,&
+&.255E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,&
+&.207E-02_JPRB,.207E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  7  66.0
+ZAER (:, 7, 9) = (/&
+&.196E-02_JPRB,.196E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,.230E-02_JPRB,.230E-02_JPRB,.220E-02_JPRB,&
+&.220E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.336E-02_JPRB,.336E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.392E-02_JPRB,&
+&.392E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.339E-02_JPRB,.339E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,&
+&.153E-02_JPRB,.153E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.865E-03_JPRB,.865E-03_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.705E-03_JPRB,.705E-03_JPRB,.774E-03_JPRB,.774E-03_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.223E-02_JPRB,&
+&.223E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,&
+&.110E-02_JPRB,.110E-02_JPRB,.136E-02_JPRB,.136E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.255E-02_JPRB,&
+&.255E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,&
+&.207E-02_JPRB,.207E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  8  62.0
+ZAER (:, 8, 9) = (/&
+&.948E-02_JPRB,.948E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.986E-02_JPRB,.986E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.965E-02_JPRB,&
+&.965E-02_JPRB,.903E-02_JPRB,.903E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,&
+&.278E-02_JPRB,.278E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.146E-02_JPRB,.146E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,&
+&.258E-02_JPRB,.258E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,.796E-02_JPRB,&
+&.796E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,&
+&.667E-02_JPRB,.667E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.861E-02_JPRB,.861E-02_JPRB,.970E-02_JPRB,.970E-02_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat:  9  58.0
+ZAER (:, 9, 9) = (/&
+&.948E-02_JPRB,.948E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.979E-02_JPRB,.979E-02_JPRB,.986E-02_JPRB,.986E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.965E-02_JPRB,&
+&.965E-02_JPRB,.903E-02_JPRB,.903E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,&
+&.278E-02_JPRB,.278E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,.953E-03_JPRB,&
+&.953E-03_JPRB,.146E-02_JPRB,.146E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,&
+&.258E-02_JPRB,.258E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,.796E-02_JPRB,&
+&.796E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,&
+&.667E-02_JPRB,.667E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.117E-01_JPRB,&
+&.117E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.861E-02_JPRB,.861E-02_JPRB,.970E-02_JPRB,.970E-02_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 10  54.0
+ZAER (:,10, 9) = (/&
+&.916E-02_JPRB,.916E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.951E-02_JPRB,.951E-02_JPRB,&
+&.927E-02_JPRB,.927E-02_JPRB,.909E-02_JPRB,.909E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.835E-02_JPRB,&
+&.835E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,&
+&.878E-02_JPRB,.878E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 11  50.0
+ZAER (:,11, 9) = (/&
+&.916E-02_JPRB,.916E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.993E-02_JPRB,&
+&.993E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.951E-02_JPRB,.951E-02_JPRB,&
+&.927E-02_JPRB,.927E-02_JPRB,.909E-02_JPRB,.909E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.835E-02_JPRB,&
+&.835E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,&
+&.878E-02_JPRB,.878E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 12  46.0
+ZAER (:,12, 9) = (/&
+&.768E-02_JPRB,.768E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.908E-02_JPRB,&
+&.908E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.982E-02_JPRB,.982E-02_JPRB,.984E-02_JPRB,&
+&.984E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.993E-02_JPRB,.993E-02_JPRB,.953E-02_JPRB,.953E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.874E-02_JPRB,.874E-02_JPRB,.916E-02_JPRB,.916E-02_JPRB,.902E-02_JPRB,.902E-02_JPRB,&
+&.649E-02_JPRB,.649E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 13  42.0
+ZAER (:,13, 9) = (/&
+&.768E-02_JPRB,.768E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.908E-02_JPRB,&
+&.908E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.111E-01_JPRB,.111E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.982E-02_JPRB,.982E-02_JPRB,.984E-02_JPRB,&
+&.984E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.993E-02_JPRB,.993E-02_JPRB,.953E-02_JPRB,.953E-02_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.874E-02_JPRB,.874E-02_JPRB,.916E-02_JPRB,.916E-02_JPRB,.902E-02_JPRB,.902E-02_JPRB,&
+&.649E-02_JPRB,.649E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 14  38.0
+ZAER (:,14, 9) = (/&
+&.759E-02_JPRB,.759E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.960E-02_JPRB,.960E-02_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.996E-02_JPRB,.996E-02_JPRB,.995E-02_JPRB,.995E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.438E-02_JPRB,.438E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,&
+&.996E-02_JPRB,.996E-02_JPRB,.931E-02_JPRB,.931E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,.804E-02_JPRB,&
+&.804E-02_JPRB,.764E-02_JPRB,.764E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,&
+&.801E-02_JPRB,.801E-02_JPRB,.928E-02_JPRB,.928E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.943E-02_JPRB,&
+&.943E-02_JPRB,.978E-02_JPRB,.978E-02_JPRB,.954E-02_JPRB,.954E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.641E-02_JPRB,&
+&.641E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,&
+&.715E-02_JPRB,.715E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 15  34.0
+ZAER (:,15, 9) = (/&
+&.759E-02_JPRB,.759E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.960E-02_JPRB,.960E-02_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.996E-02_JPRB,.996E-02_JPRB,.995E-02_JPRB,.995E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,.438E-02_JPRB,.438E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,&
+&.996E-02_JPRB,.996E-02_JPRB,.931E-02_JPRB,.931E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,.804E-02_JPRB,&
+&.804E-02_JPRB,.764E-02_JPRB,.764E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.654E-02_JPRB,.654E-02_JPRB,&
+&.801E-02_JPRB,.801E-02_JPRB,.928E-02_JPRB,.928E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.943E-02_JPRB,&
+&.943E-02_JPRB,.978E-02_JPRB,.978E-02_JPRB,.954E-02_JPRB,.954E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.641E-02_JPRB,&
+&.641E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,&
+&.715E-02_JPRB,.715E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 16  30.0
+ZAER (:,16, 9) = (/&
+&.797E-02_JPRB,.797E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.937E-02_JPRB,&
+&.937E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.926E-02_JPRB,.926E-02_JPRB,.804E-02_JPRB,&
+&.804E-02_JPRB,.434E-02_JPRB,.434E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.519E-02_JPRB,.519E-02_JPRB,&
+&.742E-02_JPRB,.742E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.778E-02_JPRB,&
+&.778E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,&
+&.446E-02_JPRB,.446E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,&
+&.741E-02_JPRB,.741E-02_JPRB,.559E-02_JPRB,.559E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.252E-02_JPRB,&
+&.252E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.516E-02_JPRB,.516E-02_JPRB,.837E-02_JPRB,.837E-02_JPRB,&
+&.823E-02_JPRB,.823E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 17  26.0
+ZAER (:,17, 9) = (/&
+&.797E-02_JPRB,.797E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.910E-02_JPRB,.910E-02_JPRB,.937E-02_JPRB,&
+&.937E-02_JPRB,.922E-02_JPRB,.922E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.926E-02_JPRB,.926E-02_JPRB,.804E-02_JPRB,&
+&.804E-02_JPRB,.434E-02_JPRB,.434E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.519E-02_JPRB,.519E-02_JPRB,&
+&.742E-02_JPRB,.742E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.778E-02_JPRB,&
+&.778E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,&
+&.446E-02_JPRB,.446E-02_JPRB,.685E-02_JPRB,.685E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,&
+&.741E-02_JPRB,.741E-02_JPRB,.559E-02_JPRB,.559E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.252E-02_JPRB,&
+&.252E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.516E-02_JPRB,.516E-02_JPRB,.837E-02_JPRB,.837E-02_JPRB,&
+&.823E-02_JPRB,.823E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 18  22.0
+ZAER (:,18, 9) = (/&
+&.961E-02_JPRB,.961E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.960E-02_JPRB,.960E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,&
+&.617E-02_JPRB,.617E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.754E-02_JPRB,&
+&.754E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.889E-02_JPRB,&
+&.889E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.816E-02_JPRB,.816E-02_JPRB,.524E-02_JPRB,.524E-02_JPRB,.453E-02_JPRB,&
+&.453E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.906E-02_JPRB,.906E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,&
+&.978E-02_JPRB,.978E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 19  18.0
+ZAER (:,19, 9) = (/&
+&.961E-02_JPRB,.961E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.960E-02_JPRB,.960E-02_JPRB,.794E-02_JPRB,&
+&.794E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,&
+&.617E-02_JPRB,.617E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.858E-02_JPRB,.858E-02_JPRB,.754E-02_JPRB,&
+&.754E-02_JPRB,.627E-02_JPRB,.627E-02_JPRB,.419E-02_JPRB,.419E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.514E-02_JPRB,.514E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.889E-02_JPRB,&
+&.889E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.816E-02_JPRB,.816E-02_JPRB,.524E-02_JPRB,.524E-02_JPRB,.453E-02_JPRB,&
+&.453E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.906E-02_JPRB,.906E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,&
+&.978E-02_JPRB,.978E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 20  14.0
+ZAER (:,20, 9) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,&
+&.673E-02_JPRB,.673E-02_JPRB,.919E-02_JPRB,.919E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.568E-02_JPRB,&
+&.568E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.297E-02_JPRB,.297E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.980E-02_JPRB,.980E-02_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.765E-02_JPRB,&
+&.765E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 21  10.0
+ZAER (:,21, 9) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.994E-02_JPRB,.994E-02_JPRB,.853E-02_JPRB,.853E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.472E-02_JPRB,&
+&.472E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,&
+&.673E-02_JPRB,.673E-02_JPRB,.919E-02_JPRB,.919E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.568E-02_JPRB,&
+&.568E-02_JPRB,.420E-02_JPRB,.420E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,&
+&.297E-02_JPRB,.297E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.980E-02_JPRB,.980E-02_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.139E-01_JPRB,.139E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.765E-02_JPRB,&
+&.765E-02_JPRB,.935E-02_JPRB,.935E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.124E-01_JPRB,.124E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 22   6.0
+ZAER (:,22, 9) = (/&
+&.144E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,&
+&.136E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.832E-02_JPRB,.832E-02_JPRB,&
+&.653E-02_JPRB,.653E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.557E-02_JPRB,.557E-02_JPRB,&
+&.823E-02_JPRB,.823E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.436E-02_JPRB,&
+&.436E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,&
+&.380E-02_JPRB,.380E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.965E-02_JPRB,&
+&.965E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.637E-02_JPRB,.637E-02_JPRB,&
+&.660E-02_JPRB,.660E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.772E-02_JPRB,&
+&.772E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 23   2.0
+ZAER (:,23, 9) = (/&
+&.144E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,&
+&.136E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.832E-02_JPRB,.832E-02_JPRB,&
+&.653E-02_JPRB,.653E-02_JPRB,.515E-02_JPRB,.515E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.557E-02_JPRB,.557E-02_JPRB,&
+&.823E-02_JPRB,.823E-02_JPRB,.805E-02_JPRB,.805E-02_JPRB,.582E-02_JPRB,.582E-02_JPRB,.436E-02_JPRB,&
+&.436E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.164E-02_JPRB,.164E-02_JPRB,&
+&.380E-02_JPRB,.380E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.965E-02_JPRB,&
+&.965E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.637E-02_JPRB,.637E-02_JPRB,&
+&.660E-02_JPRB,.660E-02_JPRB,.762E-02_JPRB,.762E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.772E-02_JPRB,&
+&.772E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 24  -2.0
+ZAER (:,24, 9) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.940E-02_JPRB,.940E-02_JPRB,&
+&.737E-02_JPRB,.737E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.770E-02_JPRB,.770E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.309E-02_JPRB,&
+&.309E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.676E-03_JPRB,.676E-03_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.316E-02_JPRB,.316E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.733E-02_JPRB,&
+&.733E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.590E-02_JPRB,.590E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,&
+&.395E-02_JPRB,.395E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.926E-02_JPRB,&
+&.926E-02_JPRB,.909E-02_JPRB,.909E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.930E-02_JPRB,.930E-02_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 25  -6.0
+ZAER (:,25, 9) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,&
+&.130E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.940E-02_JPRB,.940E-02_JPRB,&
+&.737E-02_JPRB,.737E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.770E-02_JPRB,.770E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.309E-02_JPRB,&
+&.309E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.676E-03_JPRB,.676E-03_JPRB,.132E-02_JPRB,.132E-02_JPRB,&
+&.316E-02_JPRB,.316E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.733E-02_JPRB,&
+&.733E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.590E-02_JPRB,.590E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,&
+&.395E-02_JPRB,.395E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.926E-02_JPRB,&
+&.926E-02_JPRB,.909E-02_JPRB,.909E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.930E-02_JPRB,.930E-02_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 26 -10.0
+ZAER (:,26, 9) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.804E-02_JPRB,.804E-02_JPRB,&
+&.579E-02_JPRB,.579E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.510E-02_JPRB,&
+&.510E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.998E-02_JPRB,.998E-02_JPRB,&
+&.965E-02_JPRB,.965E-02_JPRB,.670E-02_JPRB,.670E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.770E-03_JPRB,&
+&.770E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.661E-02_JPRB,&
+&.661E-02_JPRB,.519E-02_JPRB,.519E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,&
+&.298E-02_JPRB,.298E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.854E-02_JPRB,&
+&.854E-02_JPRB,.832E-02_JPRB,.832E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,&
+&.956E-02_JPRB,.956E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 27 -14.0
+ZAER (:,27, 9) = (/&
+&.113E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.116E-01_JPRB,&
+&.116E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.804E-02_JPRB,.804E-02_JPRB,&
+&.579E-02_JPRB,.579E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.510E-02_JPRB,&
+&.510E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.998E-02_JPRB,.998E-02_JPRB,&
+&.965E-02_JPRB,.965E-02_JPRB,.670E-02_JPRB,.670E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.770E-03_JPRB,&
+&.770E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.329E-03_JPRB,.329E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,&
+&.150E-02_JPRB,.150E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.661E-02_JPRB,&
+&.661E-02_JPRB,.519E-02_JPRB,.519E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,&
+&.298E-02_JPRB,.298E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.567E-02_JPRB,.567E-02_JPRB,.854E-02_JPRB,&
+&.854E-02_JPRB,.832E-02_JPRB,.832E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,&
+&.956E-02_JPRB,.956E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 28 -18.0
+ZAER (:,28, 9) = (/&
+&.119E-01_JPRB,.119E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,&
+&.146E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.770E-02_JPRB,.770E-02_JPRB,&
+&.475E-02_JPRB,.475E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.452E-02_JPRB,.452E-02_JPRB,.603E-02_JPRB,&
+&.603E-02_JPRB,.834E-02_JPRB,.834E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.559E-02_JPRB,.559E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.862E-03_JPRB,.862E-03_JPRB,&
+&.897E-03_JPRB,.897E-03_JPRB,.163E-02_JPRB,.163E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.429E-02_JPRB,&
+&.429E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.932E-02_JPRB,&
+&.932E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 29 -22.0
+ZAER (:,29, 9) = (/&
+&.119E-01_JPRB,.119E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,&
+&.146E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.770E-02_JPRB,.770E-02_JPRB,&
+&.475E-02_JPRB,.475E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.452E-02_JPRB,.452E-02_JPRB,.603E-02_JPRB,&
+&.603E-02_JPRB,.834E-02_JPRB,.834E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.559E-02_JPRB,.559E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.862E-03_JPRB,.862E-03_JPRB,&
+&.897E-03_JPRB,.897E-03_JPRB,.163E-02_JPRB,.163E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.429E-02_JPRB,&
+&.429E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,&
+&.151E-02_JPRB,.151E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.932E-02_JPRB,&
+&.932E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 30 -26.0
+ZAER (:,30, 9) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.919E-02_JPRB,.919E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,&
+&.374E-02_JPRB,.374E-02_JPRB,.404E-02_JPRB,.404E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.633E-02_JPRB,&
+&.633E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.998E-02_JPRB,.998E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.905E-02_JPRB,.905E-02_JPRB,.502E-02_JPRB,&
+&.502E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,&
+&.208E-02_JPRB,.208E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.174E-02_JPRB,&
+&.174E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.947E-03_JPRB,.947E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,&
+&.907E-03_JPRB,.907E-03_JPRB,.166E-02_JPRB,.166E-02_JPRB,.442E-02_JPRB,.442E-02_JPRB,.666E-02_JPRB,&
+&.666E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 31 -30.0
+ZAER (:,31, 9) = (/&
+&.120E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.919E-02_JPRB,.919E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,&
+&.374E-02_JPRB,.374E-02_JPRB,.404E-02_JPRB,.404E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.633E-02_JPRB,&
+&.633E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.998E-02_JPRB,.998E-02_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.905E-02_JPRB,.905E-02_JPRB,.502E-02_JPRB,&
+&.502E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,&
+&.208E-02_JPRB,.208E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.174E-02_JPRB,&
+&.174E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,.947E-03_JPRB,.947E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,&
+&.907E-03_JPRB,.907E-03_JPRB,.166E-02_JPRB,.166E-02_JPRB,.442E-02_JPRB,.442E-02_JPRB,.666E-02_JPRB,&
+&.666E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 32 -34.0
+ZAER (:,32, 9) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.936E-02_JPRB,.936E-02_JPRB,.929E-02_JPRB,&
+&.929E-02_JPRB,.878E-02_JPRB,.878E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,&
+&.404E-02_JPRB,.404E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.405E-02_JPRB,&
+&.405E-02_JPRB,.707E-02_JPRB,.707E-02_JPRB,.856E-02_JPRB,.856E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,&
+&.878E-02_JPRB,.878E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.636E-02_JPRB,&
+&.636E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,&
+&.391E-02_JPRB,.391E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.162E-02_JPRB,&
+&.162E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.860E-03_JPRB,.860E-03_JPRB,&
+&.635E-03_JPRB,.635E-03_JPRB,.891E-03_JPRB,.891E-03_JPRB,.252E-02_JPRB,.252E-02_JPRB,.351E-02_JPRB,&
+&.351E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.865E-02_JPRB,.865E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,&
+&.984E-02_JPRB,.984E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 33 -38.0
+ZAER (:,33, 9) = (/&
+&.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.936E-02_JPRB,.936E-02_JPRB,.929E-02_JPRB,&
+&.929E-02_JPRB,.878E-02_JPRB,.878E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,&
+&.404E-02_JPRB,.404E-02_JPRB,.308E-02_JPRB,.308E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.405E-02_JPRB,&
+&.405E-02_JPRB,.707E-02_JPRB,.707E-02_JPRB,.856E-02_JPRB,.856E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,&
+&.878E-02_JPRB,.878E-02_JPRB,.940E-02_JPRB,.940E-02_JPRB,.941E-02_JPRB,.941E-02_JPRB,.636E-02_JPRB,&
+&.636E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.493E-02_JPRB,.493E-02_JPRB,&
+&.391E-02_JPRB,.391E-02_JPRB,.226E-02_JPRB,.226E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.162E-02_JPRB,&
+&.162E-02_JPRB,.139E-02_JPRB,.139E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.860E-03_JPRB,.860E-03_JPRB,&
+&.635E-03_JPRB,.635E-03_JPRB,.891E-03_JPRB,.891E-03_JPRB,.252E-02_JPRB,.252E-02_JPRB,.351E-02_JPRB,&
+&.351E-02_JPRB,.592E-02_JPRB,.592E-02_JPRB,.865E-02_JPRB,.865E-02_JPRB,.881E-02_JPRB,.881E-02_JPRB,&
+&.984E-02_JPRB,.984E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 34 -42.0
+ZAER (:,34, 9) = (/&
+&.837E-02_JPRB,.837E-02_JPRB,.845E-02_JPRB,.845E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.868E-02_JPRB,&
+&.868E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,&
+&.303E-02_JPRB,.303E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.167E-02_JPRB,&
+&.167E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,&
+&.721E-02_JPRB,.721E-02_JPRB,.760E-02_JPRB,.760E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,&
+&.311E-02_JPRB,.311E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.859E-03_JPRB,.859E-03_JPRB,&
+&.691E-03_JPRB,.691E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.756E-03_JPRB,.756E-03_JPRB,.168E-02_JPRB,&
+&.168E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.606E-02_JPRB,.606E-02_JPRB,.696E-02_JPRB,.696E-02_JPRB,&
+&.786E-02_JPRB,.786E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 35 -46.0
+ZAER (:,35, 9) = (/&
+&.837E-02_JPRB,.837E-02_JPRB,.845E-02_JPRB,.845E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.868E-02_JPRB,&
+&.868E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,&
+&.303E-02_JPRB,.303E-02_JPRB,.241E-02_JPRB,.241E-02_JPRB,.191E-02_JPRB,.191E-02_JPRB,.167E-02_JPRB,&
+&.167E-02_JPRB,.315E-02_JPRB,.315E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,&
+&.721E-02_JPRB,.721E-02_JPRB,.760E-02_JPRB,.760E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.271E-02_JPRB,.271E-02_JPRB,&
+&.311E-02_JPRB,.311E-02_JPRB,.215E-02_JPRB,.215E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.859E-03_JPRB,.859E-03_JPRB,&
+&.691E-03_JPRB,.691E-03_JPRB,.585E-03_JPRB,.585E-03_JPRB,.756E-03_JPRB,.756E-03_JPRB,.168E-02_JPRB,&
+&.168E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.606E-02_JPRB,.606E-02_JPRB,.696E-02_JPRB,.696E-02_JPRB,&
+&.786E-02_JPRB,.786E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 36 -50.0
+ZAER (:,36, 9) = (/&
+&.561E-02_JPRB,.561E-02_JPRB,.650E-02_JPRB,.650E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.803E-02_JPRB,&
+&.803E-02_JPRB,.716E-02_JPRB,.716E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,&
+&.765E-02_JPRB,.765E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.664E-02_JPRB,&
+&.664E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,&
+&.225E-02_JPRB,.225E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.959E-03_JPRB,.959E-03_JPRB,.881E-03_JPRB,.881E-03_JPRB,&
+&.791E-03_JPRB,.791E-03_JPRB,.718E-03_JPRB,.718E-03_JPRB,.675E-03_JPRB,.675E-03_JPRB,.683E-03_JPRB,&
+&.683E-03_JPRB,.225E-02_JPRB,.225E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.441E-02_JPRB,.441E-02_JPRB,&
+&.508E-02_JPRB,.508E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 37 -54.0
+ZAER (:,37, 9) = (/&
+&.561E-02_JPRB,.561E-02_JPRB,.650E-02_JPRB,.650E-02_JPRB,.720E-02_JPRB,.720E-02_JPRB,.803E-02_JPRB,&
+&.803E-02_JPRB,.716E-02_JPRB,.716E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.134E-02_JPRB,&
+&.134E-02_JPRB,.112E-02_JPRB,.112E-02_JPRB,.304E-02_JPRB,.304E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,&
+&.765E-02_JPRB,.765E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.664E-02_JPRB,&
+&.664E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.318E-02_JPRB,.318E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,&
+&.225E-02_JPRB,.225E-02_JPRB,.184E-02_JPRB,.184E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.130E-02_JPRB,&
+&.130E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.959E-03_JPRB,.959E-03_JPRB,.881E-03_JPRB,.881E-03_JPRB,&
+&.791E-03_JPRB,.791E-03_JPRB,.718E-03_JPRB,.718E-03_JPRB,.675E-03_JPRB,.675E-03_JPRB,.683E-03_JPRB,&
+&.683E-03_JPRB,.225E-02_JPRB,.225E-02_JPRB,.402E-02_JPRB,.402E-02_JPRB,.441E-02_JPRB,.441E-02_JPRB,&
+&.508E-02_JPRB,.508E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 38 -58.0
+ZAER (:,38, 9) = (/&
+&.287E-02_JPRB,.287E-02_JPRB,.389E-02_JPRB,.389E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.276E-02_JPRB,&
+&.276E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.785E-03_JPRB,.785E-03_JPRB,&
+&.558E-03_JPRB,.558E-03_JPRB,.648E-03_JPRB,.648E-03_JPRB,.354E-02_JPRB,.354E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,&
+&.743E-02_JPRB,.743E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.984E-02_JPRB,&
+&.984E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.427E-02_JPRB,.427E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,&
+&.223E-02_JPRB,.223E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.970E-03_JPRB,.970E-03_JPRB,.844E-03_JPRB,.844E-03_JPRB,.788E-03_JPRB,.788E-03_JPRB,&
+&.736E-03_JPRB,.736E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.516E-03_JPRB,&
+&.516E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.238E-02_JPRB,.238E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 39 -62.0
+ZAER (:,39, 9) = (/&
+&.287E-02_JPRB,.287E-02_JPRB,.389E-02_JPRB,.389E-02_JPRB,.210E-02_JPRB,.210E-02_JPRB,.276E-02_JPRB,&
+&.276E-02_JPRB,.245E-02_JPRB,.245E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.785E-03_JPRB,.785E-03_JPRB,&
+&.558E-03_JPRB,.558E-03_JPRB,.648E-03_JPRB,.648E-03_JPRB,.354E-02_JPRB,.354E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,&
+&.743E-02_JPRB,.743E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.984E-02_JPRB,&
+&.984E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,.427E-02_JPRB,.427E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,&
+&.223E-02_JPRB,.223E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.970E-03_JPRB,.970E-03_JPRB,.844E-03_JPRB,.844E-03_JPRB,.788E-03_JPRB,.788E-03_JPRB,&
+&.736E-03_JPRB,.736E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.516E-03_JPRB,&
+&.516E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.178E-02_JPRB,.178E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,&
+&.238E-02_JPRB,.238E-02_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 40 -66.0
+ZAER (:,40, 9) = (/&
+&.722E-03_JPRB,.722E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.604E-03_JPRB,.604E-03_JPRB,.470E-03_JPRB,&
+&.470E-03_JPRB,.743E-03_JPRB,.743E-03_JPRB,.657E-03_JPRB,.657E-03_JPRB,.589E-03_JPRB,.589E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.677E-03_JPRB,.677E-03_JPRB,.790E-03_JPRB,.790E-03_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.130E-02_JPRB,.130E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.690E-02_JPRB,&
+&.690E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,&
+&.228E-02_JPRB,.228E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.156E-02_JPRB,&
+&.156E-02_JPRB,.860E-03_JPRB,.860E-03_JPRB,.619E-03_JPRB,.619E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,&
+&.477E-03_JPRB,.477E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.424E-03_JPRB,&
+&.424E-03_JPRB,.413E-03_JPRB,.413E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,&
+&.527E-03_JPRB,.527E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 41 -70.0
+ZAER (:,41, 9) = (/&
+&.722E-03_JPRB,.722E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.604E-03_JPRB,.604E-03_JPRB,.470E-03_JPRB,&
+&.470E-03_JPRB,.743E-03_JPRB,.743E-03_JPRB,.657E-03_JPRB,.657E-03_JPRB,.589E-03_JPRB,.589E-03_JPRB,&
+&.386E-03_JPRB,.386E-03_JPRB,.677E-03_JPRB,.677E-03_JPRB,.790E-03_JPRB,.790E-03_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.130E-02_JPRB,.130E-02_JPRB,.346E-02_JPRB,.346E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.690E-02_JPRB,&
+&.690E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,&
+&.228E-02_JPRB,.228E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.156E-02_JPRB,&
+&.156E-02_JPRB,.860E-03_JPRB,.860E-03_JPRB,.619E-03_JPRB,.619E-03_JPRB,.536E-03_JPRB,.536E-03_JPRB,&
+&.477E-03_JPRB,.477E-03_JPRB,.436E-03_JPRB,.436E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.424E-03_JPRB,&
+&.424E-03_JPRB,.413E-03_JPRB,.413E-03_JPRB,.397E-03_JPRB,.397E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,&
+&.527E-03_JPRB,.527E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 42 -74.0
+ZAER (:,42, 9) = (/&
+&.405E-03_JPRB,.405E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,.334E-03_JPRB,.334E-03_JPRB,.340E-03_JPRB,&
+&.340E-03_JPRB,.407E-03_JPRB,.407E-03_JPRB,.507E-03_JPRB,.507E-03_JPRB,.424E-03_JPRB,.424E-03_JPRB,&
+&.404E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.416E-03_JPRB,.416E-03_JPRB,.491E-03_JPRB,&
+&.491E-03_JPRB,.670E-03_JPRB,.670E-03_JPRB,.982E-03_JPRB,.982E-03_JPRB,.851E-03_JPRB,.851E-03_JPRB,&
+&.627E-03_JPRB,.627E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,.218E-02_JPRB,&
+&.218E-02_JPRB,.434E-02_JPRB,.434E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,&
+&.353E-02_JPRB,.353E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.801E-03_JPRB,.801E-03_JPRB,.558E-03_JPRB,.558E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,&
+&.369E-03_JPRB,.369E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.116E-02_JPRB,.116E-02_JPRB,.871E-03_JPRB,&
+&.871E-03_JPRB,.350E-03_JPRB,.350E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.308E-03_JPRB,.308E-03_JPRB,&
+&.337E-03_JPRB,.337E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 43 -78.0
+ZAER (:,43, 9) = (/&
+&.405E-03_JPRB,.405E-03_JPRB,.402E-03_JPRB,.402E-03_JPRB,.334E-03_JPRB,.334E-03_JPRB,.340E-03_JPRB,&
+&.340E-03_JPRB,.407E-03_JPRB,.407E-03_JPRB,.507E-03_JPRB,.507E-03_JPRB,.424E-03_JPRB,.424E-03_JPRB,&
+&.404E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.404E-03_JPRB,.416E-03_JPRB,.416E-03_JPRB,.491E-03_JPRB,&
+&.491E-03_JPRB,.670E-03_JPRB,.670E-03_JPRB,.982E-03_JPRB,.982E-03_JPRB,.851E-03_JPRB,.851E-03_JPRB,&
+&.627E-03_JPRB,.627E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.433E-03_JPRB,.433E-03_JPRB,.218E-02_JPRB,&
+&.218E-02_JPRB,.434E-02_JPRB,.434E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,&
+&.353E-02_JPRB,.353E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.155E-02_JPRB,&
+&.155E-02_JPRB,.801E-03_JPRB,.801E-03_JPRB,.558E-03_JPRB,.558E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,&
+&.369E-03_JPRB,.369E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.116E-02_JPRB,.116E-02_JPRB,.871E-03_JPRB,&
+&.871E-03_JPRB,.350E-03_JPRB,.350E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,.308E-03_JPRB,.308E-03_JPRB,&
+&.337E-03_JPRB,.337E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 44 -82.0
+ZAER (:,44, 9) = (/&
+&.341E-03_JPRB,.341E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.335E-03_JPRB,.335E-03_JPRB,.346E-03_JPRB,&
+&.346E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.361E-03_JPRB,.361E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.442E-03_JPRB,&
+&.442E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.533E-03_JPRB,.533E-03_JPRB,.446E-03_JPRB,.446E-03_JPRB,&
+&.360E-03_JPRB,.360E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,.365E-03_JPRB,&
+&.365E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.708E-03_JPRB,.708E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,&
+&.432E-03_JPRB,.432E-03_JPRB,.418E-03_JPRB,.418E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.358E-03_JPRB,&
+&.358E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.326E-03_JPRB,.326E-03_JPRB,.316E-03_JPRB,.316E-03_JPRB,&
+&.319E-03_JPRB,.319E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.339E-03_JPRB,.339E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.317E-03_JPRB,.317E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.331E-03_JPRB,.331E-03_JPRB,&
+&.340E-03_JPRB,.340E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 45 -86.0
+ZAER (:,45, 9) = (/&
+&.341E-03_JPRB,.341E-03_JPRB,.333E-03_JPRB,.333E-03_JPRB,.335E-03_JPRB,.335E-03_JPRB,.346E-03_JPRB,&
+&.346E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.361E-03_JPRB,.361E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.414E-03_JPRB,.414E-03_JPRB,.442E-03_JPRB,&
+&.442E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.533E-03_JPRB,.533E-03_JPRB,.446E-03_JPRB,.446E-03_JPRB,&
+&.360E-03_JPRB,.360E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.292E-03_JPRB,.292E-03_JPRB,.365E-03_JPRB,&
+&.365E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.708E-03_JPRB,.708E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,&
+&.432E-03_JPRB,.432E-03_JPRB,.418E-03_JPRB,.418E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.358E-03_JPRB,&
+&.358E-03_JPRB,.340E-03_JPRB,.340E-03_JPRB,.326E-03_JPRB,.326E-03_JPRB,.316E-03_JPRB,.316E-03_JPRB,&
+&.319E-03_JPRB,.319E-03_JPRB,.332E-03_JPRB,.332E-03_JPRB,.339E-03_JPRB,.339E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.317E-03_JPRB,.317E-03_JPRB,.323E-03_JPRB,.323E-03_JPRB,.331E-03_JPRB,.331E-03_JPRB,&
+&.340E-03_JPRB,.340E-03_JPRB/)
+!-- Sea Salt Aerosol         month:  9 --- lat: 46 -90.0
+ZAER (:,46, 9) = (/&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,.298E-03_JPRB,&
+&.298E-03_JPRB,.298E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=9   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_09
Index: LMDZ5/branches/testing/libf/phymar/suecaess_10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_10.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_10
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      October  
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,10:10)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month: 10 --- lat:  1  90.0
+ZAER (:, 1,10) = (/&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,.462E-03_JPRB,&
+&.462E-03_JPRB,.462E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  2  86.0
+ZAER (:, 2,10) = (/&
+&.512E-03_JPRB,.512E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.581E-03_JPRB,&
+&.581E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.721E-03_JPRB,.721E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.745E-03_JPRB,.745E-03_JPRB,.724E-03_JPRB,.724E-03_JPRB,.683E-03_JPRB,&
+&.683E-03_JPRB,.605E-03_JPRB,.605E-03_JPRB,.539E-03_JPRB,.539E-03_JPRB,.483E-03_JPRB,.483E-03_JPRB,&
+&.424E-03_JPRB,.424E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.295E-03_JPRB,.295E-03_JPRB,.243E-03_JPRB,&
+&.243E-03_JPRB,.212E-03_JPRB,.212E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,.241E-03_JPRB,.241E-03_JPRB,&
+&.268E-03_JPRB,.268E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.287E-03_JPRB,&
+&.287E-03_JPRB,.287E-03_JPRB,.287E-03_JPRB,.280E-03_JPRB,.280E-03_JPRB,.289E-03_JPRB,.289E-03_JPRB,&
+&.318E-03_JPRB,.318E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.396E-03_JPRB,.396E-03_JPRB,.434E-03_JPRB,&
+&.434E-03_JPRB,.450E-03_JPRB,.450E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.525E-03_JPRB,.525E-03_JPRB,&
+&.530E-03_JPRB,.530E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  3  82.0
+ZAER (:, 3,10) = (/&
+&.512E-03_JPRB,.512E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.543E-03_JPRB,.543E-03_JPRB,.581E-03_JPRB,&
+&.581E-03_JPRB,.612E-03_JPRB,.612E-03_JPRB,.665E-03_JPRB,.665E-03_JPRB,.721E-03_JPRB,.721E-03_JPRB,&
+&.735E-03_JPRB,.735E-03_JPRB,.745E-03_JPRB,.745E-03_JPRB,.724E-03_JPRB,.724E-03_JPRB,.683E-03_JPRB,&
+&.683E-03_JPRB,.605E-03_JPRB,.605E-03_JPRB,.539E-03_JPRB,.539E-03_JPRB,.483E-03_JPRB,.483E-03_JPRB,&
+&.424E-03_JPRB,.424E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.295E-03_JPRB,.295E-03_JPRB,.243E-03_JPRB,&
+&.243E-03_JPRB,.212E-03_JPRB,.212E-03_JPRB,.220E-03_JPRB,.220E-03_JPRB,.241E-03_JPRB,.241E-03_JPRB,&
+&.268E-03_JPRB,.268E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.284E-03_JPRB,.287E-03_JPRB,&
+&.287E-03_JPRB,.287E-03_JPRB,.287E-03_JPRB,.280E-03_JPRB,.280E-03_JPRB,.289E-03_JPRB,.289E-03_JPRB,&
+&.318E-03_JPRB,.318E-03_JPRB,.355E-03_JPRB,.355E-03_JPRB,.396E-03_JPRB,.396E-03_JPRB,.434E-03_JPRB,&
+&.434E-03_JPRB,.450E-03_JPRB,.450E-03_JPRB,.484E-03_JPRB,.484E-03_JPRB,.525E-03_JPRB,.525E-03_JPRB,&
+&.530E-03_JPRB,.530E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  4  78.0
+ZAER (:, 4,10) = (/&
+&.434E-03_JPRB,.434E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.374E-03_JPRB,&
+&.374E-03_JPRB,.383E-03_JPRB,.383E-03_JPRB,.421E-03_JPRB,.421E-03_JPRB,.641E-03_JPRB,.641E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.976E-03_JPRB,&
+&.976E-03_JPRB,.883E-03_JPRB,.883E-03_JPRB,.772E-03_JPRB,.772E-03_JPRB,.633E-03_JPRB,.633E-03_JPRB,&
+&.485E-03_JPRB,.485E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.296E-03_JPRB,.296E-03_JPRB,.269E-03_JPRB,&
+&.269E-03_JPRB,.199E-03_JPRB,.199E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.259E-03_JPRB,.259E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.407E-03_JPRB,&
+&.407E-03_JPRB,.409E-03_JPRB,.409E-03_JPRB,.283E-03_JPRB,.283E-03_JPRB,.226E-03_JPRB,.226E-03_JPRB,&
+&.191E-03_JPRB,.191E-03_JPRB,.185E-03_JPRB,.185E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.300E-03_JPRB,&
+&.300E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.385E-03_JPRB,.385E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,&
+&.441E-03_JPRB,.441E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  5  74.0
+ZAER (:, 5,10) = (/&
+&.434E-03_JPRB,.434E-03_JPRB,.461E-03_JPRB,.461E-03_JPRB,.389E-03_JPRB,.389E-03_JPRB,.374E-03_JPRB,&
+&.374E-03_JPRB,.383E-03_JPRB,.383E-03_JPRB,.421E-03_JPRB,.421E-03_JPRB,.641E-03_JPRB,.641E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB,.100E-02_JPRB,.100E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.976E-03_JPRB,&
+&.976E-03_JPRB,.883E-03_JPRB,.883E-03_JPRB,.772E-03_JPRB,.772E-03_JPRB,.633E-03_JPRB,.633E-03_JPRB,&
+&.485E-03_JPRB,.485E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.296E-03_JPRB,.296E-03_JPRB,.269E-03_JPRB,&
+&.269E-03_JPRB,.199E-03_JPRB,.199E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.259E-03_JPRB,.259E-03_JPRB,&
+&.365E-03_JPRB,.365E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.407E-03_JPRB,&
+&.407E-03_JPRB,.409E-03_JPRB,.409E-03_JPRB,.283E-03_JPRB,.283E-03_JPRB,.226E-03_JPRB,.226E-03_JPRB,&
+&.191E-03_JPRB,.191E-03_JPRB,.185E-03_JPRB,.185E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.300E-03_JPRB,&
+&.300E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.385E-03_JPRB,.385E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,&
+&.441E-03_JPRB,.441E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  6  70.0
+ZAER (:, 6,10) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.223E-02_JPRB,.223E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.559E-03_JPRB,.559E-03_JPRB,.338E-03_JPRB,.338E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,.708E-03_JPRB,&
+&.708E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.432E-03_JPRB,.432E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,&
+&.891E-03_JPRB,.891E-03_JPRB,.115E-02_JPRB,.115E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.185E-02_JPRB,&
+&.185E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.922E-03_JPRB,.922E-03_JPRB,&
+&.940E-03_JPRB,.940E-03_JPRB,.937E-03_JPRB,.937E-03_JPRB,.127E-02_JPRB,.127E-02_JPRB,.186E-02_JPRB,&
+&.186E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  7  66.0
+ZAER (:, 7,10) = (/&
+&.157E-02_JPRB,.157E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.131E-02_JPRB,&
+&.131E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,&
+&.223E-02_JPRB,.223E-02_JPRB,.294E-02_JPRB,.294E-02_JPRB,.323E-02_JPRB,.323E-02_JPRB,.282E-02_JPRB,&
+&.282E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,&
+&.559E-03_JPRB,.559E-03_JPRB,.338E-03_JPRB,.338E-03_JPRB,.384E-03_JPRB,.384E-03_JPRB,.708E-03_JPRB,&
+&.708E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.432E-03_JPRB,.432E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,&
+&.891E-03_JPRB,.891E-03_JPRB,.115E-02_JPRB,.115E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.185E-02_JPRB,&
+&.185E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.922E-03_JPRB,.922E-03_JPRB,&
+&.940E-03_JPRB,.940E-03_JPRB,.937E-03_JPRB,.937E-03_JPRB,.127E-02_JPRB,.127E-02_JPRB,.186E-02_JPRB,&
+&.186E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  8  62.0
+ZAER (:, 8,10) = (/&
+&.911E-02_JPRB,.911E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.906E-02_JPRB,.906E-02_JPRB,.837E-02_JPRB,&
+&.837E-02_JPRB,.821E-02_JPRB,.821E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.990E-02_JPRB,&
+&.990E-02_JPRB,.819E-02_JPRB,.819E-02_JPRB,.647E-02_JPRB,.647E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.665E-03_JPRB,.665E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.162E-02_JPRB,&
+&.162E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,&
+&.198E-02_JPRB,.198E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.670E-02_JPRB,&
+&.670E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,&
+&.627E-02_JPRB,.627E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.778E-02_JPRB,&
+&.778E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,&
+&.877E-02_JPRB,.877E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat:  9  58.0
+ZAER (:, 9,10) = (/&
+&.911E-02_JPRB,.911E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,.906E-02_JPRB,.906E-02_JPRB,.837E-02_JPRB,&
+&.837E-02_JPRB,.821E-02_JPRB,.821E-02_JPRB,.836E-02_JPRB,.836E-02_JPRB,.917E-02_JPRB,.917E-02_JPRB,&
+&.999E-02_JPRB,.999E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.990E-02_JPRB,&
+&.990E-02_JPRB,.819E-02_JPRB,.819E-02_JPRB,.647E-02_JPRB,.647E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.163E-02_JPRB,.163E-02_JPRB,.665E-03_JPRB,.665E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.162E-02_JPRB,&
+&.162E-02_JPRB,.167E-02_JPRB,.167E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,&
+&.198E-02_JPRB,.198E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.670E-02_JPRB,&
+&.670E-02_JPRB,.678E-02_JPRB,.678E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,&
+&.627E-02_JPRB,.627E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.778E-02_JPRB,&
+&.778E-02_JPRB,.618E-02_JPRB,.618E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,&
+&.877E-02_JPRB,.877E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 10  54.0
+ZAER (:,10,10) = (/&
+&.995E-02_JPRB,.995E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.722E-02_JPRB,.722E-02_JPRB,.862E-02_JPRB,.862E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.918E-02_JPRB,.918E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.913E-02_JPRB,.913E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,&
+&.717E-02_JPRB,.717E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.930E-02_JPRB,&
+&.930E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.919E-02_JPRB,.919E-02_JPRB,&
+&.914E-02_JPRB,.914E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.884E-02_JPRB,&
+&.884E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,&
+&.936E-02_JPRB,.936E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 11  50.0
+ZAER (:,11,10) = (/&
+&.995E-02_JPRB,.995E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.722E-02_JPRB,.722E-02_JPRB,.862E-02_JPRB,.862E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.918E-02_JPRB,.918E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.913E-02_JPRB,.913E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,&
+&.717E-02_JPRB,.717E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.930E-02_JPRB,&
+&.930E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.919E-02_JPRB,.919E-02_JPRB,&
+&.914E-02_JPRB,.914E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.887E-02_JPRB,.887E-02_JPRB,.884E-02_JPRB,&
+&.884E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.864E-02_JPRB,.864E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,&
+&.936E-02_JPRB,.936E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 12  46.0
+ZAER (:,12,10) = (/&
+&.763E-02_JPRB,.763E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.830E-02_JPRB,&
+&.830E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,&
+&.848E-02_JPRB,.848E-02_JPRB,.907E-02_JPRB,.907E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.723E-02_JPRB,&
+&.723E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.981E-02_JPRB,.981E-02_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.991E-02_JPRB,.991E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,&
+&.932E-02_JPRB,.932E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.753E-02_JPRB,&
+&.753E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,&
+&.557E-02_JPRB,.557E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 13  42.0
+ZAER (:,13,10) = (/&
+&.763E-02_JPRB,.763E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.830E-02_JPRB,&
+&.830E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,.781E-02_JPRB,.781E-02_JPRB,&
+&.848E-02_JPRB,.848E-02_JPRB,.907E-02_JPRB,.907E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,.723E-02_JPRB,&
+&.723E-02_JPRB,.456E-02_JPRB,.456E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.102E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.981E-02_JPRB,.981E-02_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.991E-02_JPRB,.991E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,&
+&.932E-02_JPRB,.932E-02_JPRB,.890E-02_JPRB,.890E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.753E-02_JPRB,&
+&.753E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.702E-02_JPRB,.702E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,&
+&.557E-02_JPRB,.557E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 14  38.0
+ZAER (:,14,10) = (/&
+&.746E-02_JPRB,.746E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.567E-02_JPRB,&
+&.567E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.838E-02_JPRB,&
+&.838E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,&
+&.912E-02_JPRB,.912E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.877E-02_JPRB,&
+&.877E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,&
+&.740E-02_JPRB,.740E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.626E-02_JPRB,&
+&.626E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.714E-02_JPRB,.714E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 15  34.0
+ZAER (:,15,10) = (/&
+&.746E-02_JPRB,.746E-02_JPRB,.754E-02_JPRB,.754E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.726E-02_JPRB,&
+&.726E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.714E-02_JPRB,.714E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.567E-02_JPRB,&
+&.567E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.739E-02_JPRB,.739E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.882E-02_JPRB,.882E-02_JPRB,.838E-02_JPRB,&
+&.838E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.772E-02_JPRB,.772E-02_JPRB,&
+&.912E-02_JPRB,.912E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.877E-02_JPRB,&
+&.877E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,&
+&.740E-02_JPRB,.740E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.626E-02_JPRB,&
+&.626E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,.624E-02_JPRB,.624E-02_JPRB,.792E-02_JPRB,.792E-02_JPRB,&
+&.714E-02_JPRB,.714E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 16  30.0
+ZAER (:,16,10) = (/&
+&.811E-02_JPRB,.811E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.787E-02_JPRB,&
+&.787E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.824E-02_JPRB,.824E-02_JPRB,&
+&.862E-02_JPRB,.862E-02_JPRB,.928E-02_JPRB,.928E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,&
+&.769E-02_JPRB,.769E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.686E-02_JPRB,&
+&.686E-02_JPRB,.712E-02_JPRB,.712E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,&
+&.491E-02_JPRB,.491E-02_JPRB,.759E-02_JPRB,.759E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.686E-02_JPRB,&
+&.686E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,&
+&.768E-02_JPRB,.768E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.337E-02_JPRB,&
+&.337E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.451E-02_JPRB,.451E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,&
+&.803E-02_JPRB,.803E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 17  26.0
+ZAER (:,17,10) = (/&
+&.811E-02_JPRB,.811E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.787E-02_JPRB,&
+&.787E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.815E-02_JPRB,.815E-02_JPRB,.824E-02_JPRB,.824E-02_JPRB,&
+&.862E-02_JPRB,.862E-02_JPRB,.928E-02_JPRB,.928E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.682E-02_JPRB,&
+&.682E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,.253E-02_JPRB,.253E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,&
+&.769E-02_JPRB,.769E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.686E-02_JPRB,&
+&.686E-02_JPRB,.712E-02_JPRB,.712E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,&
+&.491E-02_JPRB,.491E-02_JPRB,.759E-02_JPRB,.759E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.686E-02_JPRB,&
+&.686E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.738E-02_JPRB,.738E-02_JPRB,&
+&.768E-02_JPRB,.768E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,.337E-02_JPRB,&
+&.337E-02_JPRB,.270E-02_JPRB,.270E-02_JPRB,.451E-02_JPRB,.451E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,&
+&.803E-02_JPRB,.803E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 18  22.0
+ZAER (:,18,10) = (/&
+&.963E-02_JPRB,.963E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.961E-02_JPRB,.961E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.366E-02_JPRB,.366E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,&
+&.634E-02_JPRB,.634E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.619E-02_JPRB,&
+&.619E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,&
+&.270E-02_JPRB,.270E-02_JPRB,.519E-02_JPRB,.519E-02_JPRB,.728E-02_JPRB,.728E-02_JPRB,.902E-02_JPRB,&
+&.902E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.946E-02_JPRB,.946E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.458E-02_JPRB,&
+&.458E-02_JPRB,.454E-02_JPRB,.454E-02_JPRB,.667E-02_JPRB,.667E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,&
+&.869E-02_JPRB,.869E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 19  18.0
+ZAER (:,19,10) = (/&
+&.963E-02_JPRB,.963E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.992E-02_JPRB,.992E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.961E-02_JPRB,.961E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.366E-02_JPRB,.366E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,&
+&.634E-02_JPRB,.634E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.619E-02_JPRB,&
+&.619E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,&
+&.270E-02_JPRB,.270E-02_JPRB,.519E-02_JPRB,.519E-02_JPRB,.728E-02_JPRB,.728E-02_JPRB,.902E-02_JPRB,&
+&.902E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.946E-02_JPRB,.946E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.458E-02_JPRB,&
+&.458E-02_JPRB,.454E-02_JPRB,.454E-02_JPRB,.667E-02_JPRB,.667E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,&
+&.869E-02_JPRB,.869E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 20  14.0
+ZAER (:,20,10) = (/&
+&.118E-01_JPRB,.118E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.918E-02_JPRB,.918E-02_JPRB,.666E-02_JPRB,.666E-02_JPRB,.396E-02_JPRB,&
+&.396E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,&
+&.648E-02_JPRB,.648E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.499E-02_JPRB,&
+&.499E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.241E-02_JPRB,.241E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.939E-02_JPRB,.939E-02_JPRB,.759E-02_JPRB,.759E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.974E-02_JPRB,.974E-02_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 21  10.0
+ZAER (:,21,10) = (/&
+&.118E-01_JPRB,.118E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.918E-02_JPRB,.918E-02_JPRB,.666E-02_JPRB,.666E-02_JPRB,.396E-02_JPRB,&
+&.396E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,&
+&.648E-02_JPRB,.648E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.499E-02_JPRB,&
+&.499E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.121E-02_JPRB,.121E-02_JPRB,&
+&.241E-02_JPRB,.241E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB,.939E-02_JPRB,.939E-02_JPRB,.759E-02_JPRB,.759E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.974E-02_JPRB,.974E-02_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 22   6.0
+ZAER (:,22,10) = (/&
+&.135E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.886E-02_JPRB,.886E-02_JPRB,&
+&.710E-02_JPRB,.710E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.819E-03_JPRB,.819E-03_JPRB,.215E-02_JPRB,.215E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.687E-02_JPRB,.687E-02_JPRB,.480E-02_JPRB,&
+&.480E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.914E-03_JPRB,.914E-03_JPRB,&
+&.302E-02_JPRB,.302E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.925E-02_JPRB,.925E-02_JPRB,.986E-02_JPRB,&
+&.986E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,&
+&.470E-02_JPRB,.470E-02_JPRB,.492E-02_JPRB,.492E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,.487E-02_JPRB,&
+&.487E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.847E-02_JPRB,.847E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 23   2.0
+ZAER (:,23,10) = (/&
+&.135E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.886E-02_JPRB,.886E-02_JPRB,&
+&.710E-02_JPRB,.710E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.435E-02_JPRB,.435E-02_JPRB,.151E-02_JPRB,&
+&.151E-02_JPRB,.819E-03_JPRB,.819E-03_JPRB,.215E-02_JPRB,.215E-02_JPRB,.531E-02_JPRB,.531E-02_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.687E-02_JPRB,.687E-02_JPRB,.480E-02_JPRB,&
+&.480E-02_JPRB,.353E-02_JPRB,.353E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.914E-03_JPRB,.914E-03_JPRB,&
+&.302E-02_JPRB,.302E-02_JPRB,.689E-02_JPRB,.689E-02_JPRB,.925E-02_JPRB,.925E-02_JPRB,.986E-02_JPRB,&
+&.986E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,&
+&.470E-02_JPRB,.470E-02_JPRB,.492E-02_JPRB,.492E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,.487E-02_JPRB,&
+&.487E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.847E-02_JPRB,.847E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.129E-01_JPRB,.129E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 24  -2.0
+ZAER (:,24,10) = (/&
+&.949E-02_JPRB,.949E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.950E-02_JPRB,.950E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.650E-02_JPRB,.650E-02_JPRB,.287E-02_JPRB,&
+&.287E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.993E-02_JPRB,.993E-02_JPRB,.705E-02_JPRB,.705E-02_JPRB,.415E-02_JPRB,&
+&.415E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.643E-03_JPRB,.643E-03_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.292E-02_JPRB,.292E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.849E-02_JPRB,&
+&.849E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,&
+&.306E-02_JPRB,.306E-02_JPRB,.454E-02_JPRB,.454E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.618E-02_JPRB,&
+&.618E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,&
+&.941E-02_JPRB,.941E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 25  -6.0
+ZAER (:,25,10) = (/&
+&.949E-02_JPRB,.949E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.950E-02_JPRB,.950E-02_JPRB,&
+&.748E-02_JPRB,.748E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.650E-02_JPRB,.650E-02_JPRB,.287E-02_JPRB,&
+&.287E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.993E-02_JPRB,.993E-02_JPRB,.705E-02_JPRB,.705E-02_JPRB,.415E-02_JPRB,&
+&.415E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.643E-03_JPRB,.643E-03_JPRB,.107E-02_JPRB,.107E-02_JPRB,&
+&.292E-02_JPRB,.292E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.849E-02_JPRB,&
+&.849E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,&
+&.306E-02_JPRB,.306E-02_JPRB,.454E-02_JPRB,.454E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.618E-02_JPRB,&
+&.618E-02_JPRB,.687E-02_JPRB,.687E-02_JPRB,.788E-02_JPRB,.788E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,&
+&.941E-02_JPRB,.941E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 26 -10.0
+ZAER (:,26,10) = (/&
+&.801E-02_JPRB,.801E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.471E-02_JPRB,.471E-02_JPRB,.528E-02_JPRB,&
+&.528E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.992E-02_JPRB,.992E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.977E-02_JPRB,.977E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.961E-03_JPRB,.961E-03_JPRB,.850E-03_JPRB,.850E-03_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.216E-02_JPRB,.216E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.684E-02_JPRB,.684E-02_JPRB,.701E-02_JPRB,&
+&.701E-02_JPRB,.525E-02_JPRB,.525E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,&
+&.347E-02_JPRB,.347E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.819E-02_JPRB,&
+&.819E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.894E-02_JPRB,.894E-02_JPRB,&
+&.865E-02_JPRB,.865E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 27 -14.0
+ZAER (:,27,10) = (/&
+&.801E-02_JPRB,.801E-02_JPRB,.844E-02_JPRB,.844E-02_JPRB,.888E-02_JPRB,.888E-02_JPRB,.109E-01_JPRB,&
+&.109E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.471E-02_JPRB,.471E-02_JPRB,.528E-02_JPRB,&
+&.528E-02_JPRB,.697E-02_JPRB,.697E-02_JPRB,.992E-02_JPRB,.992E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.977E-02_JPRB,.977E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.182E-02_JPRB,&
+&.182E-02_JPRB,.961E-03_JPRB,.961E-03_JPRB,.850E-03_JPRB,.850E-03_JPRB,.129E-02_JPRB,.129E-02_JPRB,&
+&.216E-02_JPRB,.216E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.684E-02_JPRB,.684E-02_JPRB,.701E-02_JPRB,&
+&.701E-02_JPRB,.525E-02_JPRB,.525E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,&
+&.347E-02_JPRB,.347E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.726E-02_JPRB,.726E-02_JPRB,.819E-02_JPRB,&
+&.819E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.797E-02_JPRB,.797E-02_JPRB,.894E-02_JPRB,.894E-02_JPRB,&
+&.865E-02_JPRB,.865E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 28 -18.0
+ZAER (:,28,10) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.804E-02_JPRB,.804E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.900E-02_JPRB,&
+&.900E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.812E-02_JPRB,.812E-02_JPRB,.444E-02_JPRB,&
+&.444E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,&
+&.249E-02_JPRB,.249E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.453E-02_JPRB,&
+&.453E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,&
+&.232E-02_JPRB,.232E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 29 -22.0
+ZAER (:,29,10) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,&
+&.804E-02_JPRB,.804E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.900E-02_JPRB,&
+&.900E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.812E-02_JPRB,.812E-02_JPRB,.444E-02_JPRB,&
+&.444E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,&
+&.249E-02_JPRB,.249E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.453E-02_JPRB,&
+&.453E-02_JPRB,.342E-02_JPRB,.342E-02_JPRB,.254E-02_JPRB,.254E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,&
+&.232E-02_JPRB,.232E-02_JPRB,.630E-02_JPRB,.630E-02_JPRB,.981E-02_JPRB,.981E-02_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 30 -26.0
+ZAER (:,30,10) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.866E-02_JPRB,.866E-02_JPRB,&
+&.632E-02_JPRB,.632E-02_JPRB,.621E-02_JPRB,.621E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.894E-02_JPRB,&
+&.894E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.642E-02_JPRB,&
+&.642E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,&
+&.346E-02_JPRB,.346E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.237E-02_JPRB,&
+&.237E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.785E-02_JPRB,&
+&.785E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 31 -30.0
+ZAER (:,31,10) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.866E-02_JPRB,.866E-02_JPRB,&
+&.632E-02_JPRB,.632E-02_JPRB,.621E-02_JPRB,.621E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.894E-02_JPRB,&
+&.894E-02_JPRB,.114E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.642E-02_JPRB,&
+&.642E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.382E-02_JPRB,.382E-02_JPRB,.347E-02_JPRB,.347E-02_JPRB,&
+&.346E-02_JPRB,.346E-02_JPRB,.280E-02_JPRB,.280E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.237E-02_JPRB,&
+&.237E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,&
+&.117E-02_JPRB,.117E-02_JPRB,.218E-02_JPRB,.218E-02_JPRB,.575E-02_JPRB,.575E-02_JPRB,.785E-02_JPRB,&
+&.785E-02_JPRB,.886E-02_JPRB,.886E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 32 -34.0
+ZAER (:,32,10) = (/&
+&.999E-02_JPRB,.999E-02_JPRB,.896E-02_JPRB,.896E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.910E-02_JPRB,&
+&.910E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.478E-02_JPRB,.478E-02_JPRB,&
+&.394E-02_JPRB,.394E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.413E-02_JPRB,&
+&.413E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.774E-02_JPRB,&
+&.774E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,&
+&.455E-02_JPRB,.455E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.200E-02_JPRB,&
+&.200E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.998E-03_JPRB,.998E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.247E-02_JPRB,.247E-02_JPRB,.352E-02_JPRB,&
+&.352E-02_JPRB,.647E-02_JPRB,.647E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 33 -38.0
+ZAER (:,33,10) = (/&
+&.999E-02_JPRB,.999E-02_JPRB,.896E-02_JPRB,.896E-02_JPRB,.885E-02_JPRB,.885E-02_JPRB,.910E-02_JPRB,&
+&.910E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.478E-02_JPRB,.478E-02_JPRB,&
+&.394E-02_JPRB,.394E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.307E-02_JPRB,.307E-02_JPRB,.413E-02_JPRB,&
+&.413E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.774E-02_JPRB,&
+&.774E-02_JPRB,.581E-02_JPRB,.581E-02_JPRB,.566E-02_JPRB,.566E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,&
+&.455E-02_JPRB,.455E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.200E-02_JPRB,&
+&.200E-02_JPRB,.169E-02_JPRB,.169E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.998E-03_JPRB,.998E-03_JPRB,&
+&.807E-03_JPRB,.807E-03_JPRB,.953E-03_JPRB,.953E-03_JPRB,.247E-02_JPRB,.247E-02_JPRB,.352E-02_JPRB,&
+&.352E-02_JPRB,.647E-02_JPRB,.647E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.115E-01_JPRB,.115E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 34 -42.0
+ZAER (:,34,10) = (/&
+&.880E-02_JPRB,.880E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.713E-02_JPRB,.713E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,&
+&.205E-02_JPRB,.205E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.843E-02_JPRB,&
+&.843E-02_JPRB,.503E-02_JPRB,.503E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,&
+&.438E-02_JPRB,.438E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.999E-03_JPRB,.999E-03_JPRB,.930E-03_JPRB,.930E-03_JPRB,.870E-03_JPRB,.870E-03_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,&
+&.915E-02_JPRB,.915E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 35 -46.0
+ZAER (:,35,10) = (/&
+&.880E-02_JPRB,.880E-02_JPRB,.869E-02_JPRB,.869E-02_JPRB,.920E-02_JPRB,.920E-02_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.713E-02_JPRB,.713E-02_JPRB,.285E-02_JPRB,.285E-02_JPRB,&
+&.205E-02_JPRB,.205E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.286E-02_JPRB,.286E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,.871E-02_JPRB,.871E-02_JPRB,&
+&.109E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.843E-02_JPRB,&
+&.843E-02_JPRB,.503E-02_JPRB,.503E-02_JPRB,.386E-02_JPRB,.386E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,&
+&.438E-02_JPRB,.438E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.290E-02_JPRB,.290E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.155E-02_JPRB,.155E-02_JPRB,.127E-02_JPRB,.127E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.999E-03_JPRB,.999E-03_JPRB,.930E-03_JPRB,.930E-03_JPRB,.870E-03_JPRB,.870E-03_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,&
+&.915E-02_JPRB,.915E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 36 -50.0
+ZAER (:,36,10) = (/&
+&.794E-02_JPRB,.794E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.665E-02_JPRB,.665E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,&
+&.161E-02_JPRB,.161E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.332E-02_JPRB,.332E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.827E-02_JPRB,&
+&.827E-02_JPRB,.539E-02_JPRB,.539E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.273E-02_JPRB,.273E-02_JPRB,&
+&.251E-02_JPRB,.251E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.935E-03_JPRB,.935E-03_JPRB,.772E-03_JPRB,.772E-03_JPRB,.719E-03_JPRB,&
+&.719E-03_JPRB,.301E-02_JPRB,.301E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,&
+&.808E-02_JPRB,.808E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 37 -54.0
+ZAER (:,37,10) = (/&
+&.794E-02_JPRB,.794E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.825E-02_JPRB,.825E-02_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.665E-02_JPRB,.665E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,&
+&.161E-02_JPRB,.161E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,.172E-02_JPRB,&
+&.172E-02_JPRB,.158E-02_JPRB,.158E-02_JPRB,.332E-02_JPRB,.332E-02_JPRB,.868E-02_JPRB,.868E-02_JPRB,&
+&.113E-01_JPRB,.113E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.827E-02_JPRB,&
+&.827E-02_JPRB,.539E-02_JPRB,.539E-02_JPRB,.340E-02_JPRB,.340E-02_JPRB,.273E-02_JPRB,.273E-02_JPRB,&
+&.251E-02_JPRB,.251E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.935E-03_JPRB,.935E-03_JPRB,.772E-03_JPRB,.772E-03_JPRB,.719E-03_JPRB,&
+&.719E-03_JPRB,.301E-02_JPRB,.301E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,&
+&.808E-02_JPRB,.808E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 38 -58.0
+ZAER (:,38,10) = (/&
+&.461E-02_JPRB,.461E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.301E-02_JPRB,.301E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.989E-03_JPRB,.989E-03_JPRB,.104E-02_JPRB,.104E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,&
+&.925E-02_JPRB,.925E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.929E-02_JPRB,&
+&.929E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.359E-02_JPRB,.359E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.897E-03_JPRB,.897E-03_JPRB,.789E-03_JPRB,.789E-03_JPRB,.672E-03_JPRB,.672E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.170E-02_JPRB,.170E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,&
+&.367E-02_JPRB,.367E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 39 -62.0
+ZAER (:,39,10) = (/&
+&.461E-02_JPRB,.461E-02_JPRB,.546E-02_JPRB,.546E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.482E-02_JPRB,&
+&.482E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.301E-02_JPRB,.301E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.989E-03_JPRB,.989E-03_JPRB,.104E-02_JPRB,.104E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.303E-02_JPRB,&
+&.303E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,&
+&.925E-02_JPRB,.925E-02_JPRB,.108E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.929E-02_JPRB,&
+&.929E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,.359E-02_JPRB,.359E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,&
+&.193E-02_JPRB,.193E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.151E-02_JPRB,.151E-02_JPRB,.133E-02_JPRB,&
+&.133E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.109E-02_JPRB,.109E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,&
+&.897E-03_JPRB,.897E-03_JPRB,.789E-03_JPRB,.789E-03_JPRB,.672E-03_JPRB,.672E-03_JPRB,.612E-03_JPRB,&
+&.612E-03_JPRB,.170E-02_JPRB,.170E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,&
+&.367E-02_JPRB,.367E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 40 -66.0
+ZAER (:,40,10) = (/&
+&.117E-02_JPRB,.117E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.560E-03_JPRB,.560E-03_JPRB,.685E-03_JPRB,.685E-03_JPRB,.726E-03_JPRB,.726E-03_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,&
+&.267E-02_JPRB,.267E-02_JPRB,.440E-02_JPRB,.440E-02_JPRB,.551E-02_JPRB,.551E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,&
+&.318E-02_JPRB,.318E-02_JPRB,.372E-02_JPRB,.372E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.184E-02_JPRB,&
+&.184E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.839E-03_JPRB,.839E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,&
+&.633E-03_JPRB,.633E-03_JPRB,.587E-03_JPRB,.587E-03_JPRB,.548E-03_JPRB,.548E-03_JPRB,.470E-03_JPRB,&
+&.470E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.554E-03_JPRB,.554E-03_JPRB,.548E-03_JPRB,.548E-03_JPRB,&
+&.682E-03_JPRB,.682E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 41 -70.0
+ZAER (:,41,10) = (/&
+&.117E-02_JPRB,.117E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.124E-02_JPRB,&
+&.124E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.959E-03_JPRB,.959E-03_JPRB,&
+&.560E-03_JPRB,.560E-03_JPRB,.685E-03_JPRB,.685E-03_JPRB,.726E-03_JPRB,.726E-03_JPRB,.136E-02_JPRB,&
+&.136E-02_JPRB,.198E-02_JPRB,.198E-02_JPRB,.428E-02_JPRB,.428E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,&
+&.267E-02_JPRB,.267E-02_JPRB,.440E-02_JPRB,.440E-02_JPRB,.551E-02_JPRB,.551E-02_JPRB,.719E-02_JPRB,&
+&.719E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.350E-02_JPRB,.350E-02_JPRB,&
+&.318E-02_JPRB,.318E-02_JPRB,.372E-02_JPRB,.372E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.184E-02_JPRB,&
+&.184E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.839E-03_JPRB,.839E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,&
+&.633E-03_JPRB,.633E-03_JPRB,.587E-03_JPRB,.587E-03_JPRB,.548E-03_JPRB,.548E-03_JPRB,.470E-03_JPRB,&
+&.470E-03_JPRB,.549E-03_JPRB,.549E-03_JPRB,.554E-03_JPRB,.554E-03_JPRB,.548E-03_JPRB,.548E-03_JPRB,&
+&.682E-03_JPRB,.682E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 42 -74.0
+ZAER (:,42,10) = (/&
+&.439E-03_JPRB,.439E-03_JPRB,.503E-03_JPRB,.503E-03_JPRB,.556E-03_JPRB,.556E-03_JPRB,.581E-03_JPRB,&
+&.581E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,&
+&.445E-03_JPRB,.445E-03_JPRB,.415E-03_JPRB,.415E-03_JPRB,.468E-03_JPRB,.468E-03_JPRB,.585E-03_JPRB,&
+&.585E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,&
+&.148E-02_JPRB,.148E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.276E-02_JPRB,&
+&.276E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.527E-02_JPRB,.527E-02_JPRB,&
+&.539E-02_JPRB,.539E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.678E-03_JPRB,.678E-03_JPRB,.479E-03_JPRB,.479E-03_JPRB,&
+&.455E-03_JPRB,.455E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.954E-03_JPRB,&
+&.954E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 43 -78.0
+ZAER (:,43,10) = (/&
+&.439E-03_JPRB,.439E-03_JPRB,.503E-03_JPRB,.503E-03_JPRB,.556E-03_JPRB,.556E-03_JPRB,.581E-03_JPRB,&
+&.581E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.714E-03_JPRB,.714E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,&
+&.445E-03_JPRB,.445E-03_JPRB,.415E-03_JPRB,.415E-03_JPRB,.468E-03_JPRB,.468E-03_JPRB,.585E-03_JPRB,&
+&.585E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,.190E-02_JPRB,.190E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,&
+&.148E-02_JPRB,.148E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.276E-02_JPRB,&
+&.276E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,.548E-02_JPRB,.548E-02_JPRB,.527E-02_JPRB,.527E-02_JPRB,&
+&.539E-02_JPRB,.539E-02_JPRB,.439E-02_JPRB,.439E-02_JPRB,.298E-02_JPRB,.298E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,.678E-03_JPRB,.678E-03_JPRB,.479E-03_JPRB,.479E-03_JPRB,&
+&.455E-03_JPRB,.455E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.954E-03_JPRB,&
+&.954E-03_JPRB,.373E-03_JPRB,.373E-03_JPRB,.357E-03_JPRB,.357E-03_JPRB,.374E-03_JPRB,.374E-03_JPRB,&
+&.374E-03_JPRB,.374E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 44 -82.0
+ZAER (:,44,10) = (/&
+&.345E-03_JPRB,.345E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.416E-03_JPRB,&
+&.416E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.423E-03_JPRB,.423E-03_JPRB,&
+&.433E-03_JPRB,.433E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.534E-03_JPRB,&
+&.534E-03_JPRB,.638E-03_JPRB,.638E-03_JPRB,.857E-03_JPRB,.857E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.759E-03_JPRB,.759E-03_JPRB,.721E-03_JPRB,&
+&.721E-03_JPRB,.740E-03_JPRB,.740E-03_JPRB,.917E-03_JPRB,.917E-03_JPRB,.558E-03_JPRB,.558E-03_JPRB,&
+&.457E-03_JPRB,.457E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.428E-03_JPRB,&
+&.428E-03_JPRB,.411E-03_JPRB,.411E-03_JPRB,.412E-03_JPRB,.412E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.471E-03_JPRB,.471E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.514E-03_JPRB,.514E-03_JPRB,.424E-03_JPRB,&
+&.424E-03_JPRB,.343E-03_JPRB,.343E-03_JPRB,.334E-03_JPRB,.334E-03_JPRB,.345E-03_JPRB,.345E-03_JPRB,&
+&.345E-03_JPRB,.345E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 45 -86.0
+ZAER (:,45,10) = (/&
+&.345E-03_JPRB,.345E-03_JPRB,.362E-03_JPRB,.362E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.416E-03_JPRB,&
+&.416E-03_JPRB,.430E-03_JPRB,.430E-03_JPRB,.426E-03_JPRB,.426E-03_JPRB,.423E-03_JPRB,.423E-03_JPRB,&
+&.433E-03_JPRB,.433E-03_JPRB,.467E-03_JPRB,.467E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.534E-03_JPRB,&
+&.534E-03_JPRB,.638E-03_JPRB,.638E-03_JPRB,.857E-03_JPRB,.857E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.953E-03_JPRB,.953E-03_JPRB,.856E-03_JPRB,.856E-03_JPRB,.759E-03_JPRB,.759E-03_JPRB,.721E-03_JPRB,&
+&.721E-03_JPRB,.740E-03_JPRB,.740E-03_JPRB,.917E-03_JPRB,.917E-03_JPRB,.558E-03_JPRB,.558E-03_JPRB,&
+&.457E-03_JPRB,.457E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.440E-03_JPRB,.440E-03_JPRB,.428E-03_JPRB,&
+&.428E-03_JPRB,.411E-03_JPRB,.411E-03_JPRB,.412E-03_JPRB,.412E-03_JPRB,.438E-03_JPRB,.438E-03_JPRB,&
+&.471E-03_JPRB,.471E-03_JPRB,.519E-03_JPRB,.519E-03_JPRB,.514E-03_JPRB,.514E-03_JPRB,.424E-03_JPRB,&
+&.424E-03_JPRB,.343E-03_JPRB,.343E-03_JPRB,.334E-03_JPRB,.334E-03_JPRB,.345E-03_JPRB,.345E-03_JPRB,&
+&.345E-03_JPRB,.345E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 10 --- lat: 46 -90.0
+ZAER (:,46,10) = (/&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,.399E-03_JPRB,&
+&.399E-03_JPRB,.399E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=10   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_10
Index: LMDZ5/branches/testing/libf/phymar/suecaess_11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_11.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_11
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      November
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,11:11)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month: 11 --- lat:  1  90.0
+ZAER (:, 1,11) = (/&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,.138E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  2  86.0
+ZAER (:, 2,11) = (/&
+&.264E-03_JPRB,.264E-03_JPRB,.297E-03_JPRB,.297E-03_JPRB,.325E-03_JPRB,.325E-03_JPRB,.347E-03_JPRB,&
+&.347E-03_JPRB,.375E-03_JPRB,.375E-03_JPRB,.401E-03_JPRB,.401E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,&
+&.400E-03_JPRB,.400E-03_JPRB,.378E-03_JPRB,.378E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.306E-03_JPRB,.306E-03_JPRB,.296E-03_JPRB,.296E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.347E-03_JPRB,.347E-03_JPRB,.352E-03_JPRB,.352E-03_JPRB,.313E-03_JPRB,.313E-03_JPRB,.233E-03_JPRB,&
+&.233E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.149E-03_JPRB,.149E-03_JPRB,.150E-03_JPRB,.150E-03_JPRB,&
+&.165E-03_JPRB,.165E-03_JPRB,.180E-03_JPRB,.180E-03_JPRB,.182E-03_JPRB,.182E-03_JPRB,.165E-03_JPRB,&
+&.165E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,&
+&.997E-04_JPRB,.997E-04_JPRB,.905E-04_JPRB,.905E-04_JPRB,.938E-04_JPRB,.938E-04_JPRB,.985E-04_JPRB,&
+&.985E-04_JPRB,.108E-03_JPRB,.108E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,.166E-03_JPRB,.166E-03_JPRB,&
+&.220E-03_JPRB,.220E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  3  82.0
+ZAER (:, 3,11) = (/&
+&.264E-03_JPRB,.264E-03_JPRB,.297E-03_JPRB,.297E-03_JPRB,.325E-03_JPRB,.325E-03_JPRB,.347E-03_JPRB,&
+&.347E-03_JPRB,.375E-03_JPRB,.375E-03_JPRB,.401E-03_JPRB,.401E-03_JPRB,.417E-03_JPRB,.417E-03_JPRB,&
+&.400E-03_JPRB,.400E-03_JPRB,.378E-03_JPRB,.378E-03_JPRB,.344E-03_JPRB,.344E-03_JPRB,.322E-03_JPRB,&
+&.322E-03_JPRB,.306E-03_JPRB,.306E-03_JPRB,.296E-03_JPRB,.296E-03_JPRB,.309E-03_JPRB,.309E-03_JPRB,&
+&.347E-03_JPRB,.347E-03_JPRB,.352E-03_JPRB,.352E-03_JPRB,.313E-03_JPRB,.313E-03_JPRB,.233E-03_JPRB,&
+&.233E-03_JPRB,.168E-03_JPRB,.168E-03_JPRB,.149E-03_JPRB,.149E-03_JPRB,.150E-03_JPRB,.150E-03_JPRB,&
+&.165E-03_JPRB,.165E-03_JPRB,.180E-03_JPRB,.180E-03_JPRB,.182E-03_JPRB,.182E-03_JPRB,.165E-03_JPRB,&
+&.165E-03_JPRB,.151E-03_JPRB,.151E-03_JPRB,.136E-03_JPRB,.136E-03_JPRB,.118E-03_JPRB,.118E-03_JPRB,&
+&.997E-04_JPRB,.997E-04_JPRB,.905E-04_JPRB,.905E-04_JPRB,.938E-04_JPRB,.938E-04_JPRB,.985E-04_JPRB,&
+&.985E-04_JPRB,.108E-03_JPRB,.108E-03_JPRB,.128E-03_JPRB,.128E-03_JPRB,.166E-03_JPRB,.166E-03_JPRB,&
+&.220E-03_JPRB,.220E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  4  78.0
+ZAER (:, 4,11) = (/&
+&.246E-03_JPRB,.246E-03_JPRB,.314E-03_JPRB,.314E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.420E-03_JPRB,&
+&.420E-03_JPRB,.476E-03_JPRB,.476E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.680E-03_JPRB,.680E-03_JPRB,&
+&.777E-03_JPRB,.777E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.777E-03_JPRB,.777E-03_JPRB,.640E-03_JPRB,&
+&.640E-03_JPRB,.576E-03_JPRB,.576E-03_JPRB,.509E-03_JPRB,.509E-03_JPRB,.613E-03_JPRB,.613E-03_JPRB,&
+&.744E-03_JPRB,.744E-03_JPRB,.719E-03_JPRB,.719E-03_JPRB,.635E-03_JPRB,.635E-03_JPRB,.513E-03_JPRB,&
+&.513E-03_JPRB,.277E-03_JPRB,.277E-03_JPRB,.160E-03_JPRB,.160E-03_JPRB,.178E-03_JPRB,.178E-03_JPRB,&
+&.238E-03_JPRB,.238E-03_JPRB,.278E-03_JPRB,.278E-03_JPRB,.305E-03_JPRB,.305E-03_JPRB,.338E-03_JPRB,&
+&.338E-03_JPRB,.360E-03_JPRB,.360E-03_JPRB,.266E-03_JPRB,.266E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.182E-03_JPRB,&
+&.182E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,.170E-03_JPRB,.170E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,&
+&.205E-03_JPRB,.205E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  5  74.0
+ZAER (:, 5,11) = (/&
+&.246E-03_JPRB,.246E-03_JPRB,.314E-03_JPRB,.314E-03_JPRB,.359E-03_JPRB,.359E-03_JPRB,.420E-03_JPRB,&
+&.420E-03_JPRB,.476E-03_JPRB,.476E-03_JPRB,.563E-03_JPRB,.563E-03_JPRB,.680E-03_JPRB,.680E-03_JPRB,&
+&.777E-03_JPRB,.777E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.777E-03_JPRB,.777E-03_JPRB,.640E-03_JPRB,&
+&.640E-03_JPRB,.576E-03_JPRB,.576E-03_JPRB,.509E-03_JPRB,.509E-03_JPRB,.613E-03_JPRB,.613E-03_JPRB,&
+&.744E-03_JPRB,.744E-03_JPRB,.719E-03_JPRB,.719E-03_JPRB,.635E-03_JPRB,.635E-03_JPRB,.513E-03_JPRB,&
+&.513E-03_JPRB,.277E-03_JPRB,.277E-03_JPRB,.160E-03_JPRB,.160E-03_JPRB,.178E-03_JPRB,.178E-03_JPRB,&
+&.238E-03_JPRB,.238E-03_JPRB,.278E-03_JPRB,.278E-03_JPRB,.305E-03_JPRB,.305E-03_JPRB,.338E-03_JPRB,&
+&.338E-03_JPRB,.360E-03_JPRB,.360E-03_JPRB,.266E-03_JPRB,.266E-03_JPRB,.183E-03_JPRB,.183E-03_JPRB,&
+&.138E-03_JPRB,.138E-03_JPRB,.121E-03_JPRB,.121E-03_JPRB,.135E-03_JPRB,.135E-03_JPRB,.182E-03_JPRB,&
+&.182E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,.170E-03_JPRB,.170E-03_JPRB,.175E-03_JPRB,.175E-03_JPRB,&
+&.205E-03_JPRB,.205E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  6  70.0
+ZAER (:, 6,11) = (/&
+&.732E-03_JPRB,.732E-03_JPRB,.174E-02_JPRB,.174E-02_JPRB,.976E-03_JPRB,.976E-03_JPRB,.894E-03_JPRB,&
+&.894E-03_JPRB,.116E-02_JPRB,.116E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.297E-02_JPRB,.297E-02_JPRB,.276E-02_JPRB,.276E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.992E-03_JPRB,.992E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.967E-03_JPRB,.967E-03_JPRB,.849E-03_JPRB,.849E-03_JPRB,.786E-03_JPRB,&
+&.786E-03_JPRB,.107E-02_JPRB,.107E-02_JPRB,.325E-03_JPRB,.325E-03_JPRB,.263E-03_JPRB,.263E-03_JPRB,&
+&.556E-03_JPRB,.556E-03_JPRB,.851E-03_JPRB,.851E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.861E-03_JPRB,.861E-03_JPRB,&
+&.915E-03_JPRB,.915E-03_JPRB,.850E-03_JPRB,.850E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  7  66.0
+ZAER (:, 7,11) = (/&
+&.732E-03_JPRB,.732E-03_JPRB,.174E-02_JPRB,.174E-02_JPRB,.976E-03_JPRB,.976E-03_JPRB,.894E-03_JPRB,&
+&.894E-03_JPRB,.116E-02_JPRB,.116E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,&
+&.259E-02_JPRB,.259E-02_JPRB,.297E-02_JPRB,.297E-02_JPRB,.276E-02_JPRB,.276E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,.992E-03_JPRB,.992E-03_JPRB,.106E-02_JPRB,.106E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.967E-03_JPRB,.967E-03_JPRB,.849E-03_JPRB,.849E-03_JPRB,.786E-03_JPRB,&
+&.786E-03_JPRB,.107E-02_JPRB,.107E-02_JPRB,.325E-03_JPRB,.325E-03_JPRB,.263E-03_JPRB,.263E-03_JPRB,&
+&.556E-03_JPRB,.556E-03_JPRB,.851E-03_JPRB,.851E-03_JPRB,.102E-02_JPRB,.102E-02_JPRB,.169E-02_JPRB,&
+&.169E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.861E-03_JPRB,.861E-03_JPRB,&
+&.915E-03_JPRB,.915E-03_JPRB,.850E-03_JPRB,.850E-03_JPRB,.121E-02_JPRB,.121E-02_JPRB,.159E-02_JPRB,&
+&.159E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.101E-02_JPRB,.101E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  8  62.0
+ZAER (:, 8,11) = (/&
+&.744E-02_JPRB,.744E-02_JPRB,.653E-02_JPRB,.653E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.613E-02_JPRB,&
+&.613E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,&
+&.317E-02_JPRB,.317E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.546E-03_JPRB,.546E-03_JPRB,.713E-03_JPRB,.713E-03_JPRB,&
+&.995E-03_JPRB,.995E-03_JPRB,.360E-02_JPRB,.360E-02_JPRB,.504E-02_JPRB,.504E-02_JPRB,.541E-02_JPRB,&
+&.541E-02_JPRB,.535E-02_JPRB,.535E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,.520E-02_JPRB,.520E-02_JPRB,&
+&.521E-02_JPRB,.521E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.593E-02_JPRB,&
+&.593E-02_JPRB,.461E-02_JPRB,.461E-02_JPRB,.522E-02_JPRB,.522E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,&
+&.811E-02_JPRB,.811E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat:  9  58.0
+ZAER (:, 9,11) = (/&
+&.744E-02_JPRB,.744E-02_JPRB,.653E-02_JPRB,.653E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.613E-02_JPRB,&
+&.613E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,.751E-02_JPRB,.751E-02_JPRB,.872E-02_JPRB,.872E-02_JPRB,&
+&.104E-01_JPRB,.104E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.966E-02_JPRB,.966E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,&
+&.317E-02_JPRB,.317E-02_JPRB,.234E-02_JPRB,.234E-02_JPRB,.179E-02_JPRB,.179E-02_JPRB,.137E-02_JPRB,&
+&.137E-02_JPRB,.100E-02_JPRB,.100E-02_JPRB,.546E-03_JPRB,.546E-03_JPRB,.713E-03_JPRB,.713E-03_JPRB,&
+&.995E-03_JPRB,.995E-03_JPRB,.360E-02_JPRB,.360E-02_JPRB,.504E-02_JPRB,.504E-02_JPRB,.541E-02_JPRB,&
+&.541E-02_JPRB,.535E-02_JPRB,.535E-02_JPRB,.533E-02_JPRB,.533E-02_JPRB,.520E-02_JPRB,.520E-02_JPRB,&
+&.521E-02_JPRB,.521E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,.604E-02_JPRB,.604E-02_JPRB,.593E-02_JPRB,&
+&.593E-02_JPRB,.461E-02_JPRB,.461E-02_JPRB,.522E-02_JPRB,.522E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,&
+&.811E-02_JPRB,.811E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 10  54.0
+ZAER (:,10,11) = (/&
+&.739E-02_JPRB,.739E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.797E-02_JPRB,&
+&.797E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.968E-02_JPRB,.968E-02_JPRB,.990E-02_JPRB,.990E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.585E-02_JPRB,&
+&.585E-02_JPRB,.518E-02_JPRB,.518E-02_JPRB,.502E-02_JPRB,.502E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,&
+&.456E-02_JPRB,.456E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,&
+&.874E-02_JPRB,.874E-02_JPRB,.918E-02_JPRB,.918E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,.941E-02_JPRB,&
+&.941E-02_JPRB,.879E-02_JPRB,.879E-02_JPRB,.874E-02_JPRB,.874E-02_JPRB,.832E-02_JPRB,.832E-02_JPRB,&
+&.724E-02_JPRB,.724E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 11  50.0
+ZAER (:,11,11) = (/&
+&.739E-02_JPRB,.739E-02_JPRB,.763E-02_JPRB,.763E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.797E-02_JPRB,&
+&.797E-02_JPRB,.840E-02_JPRB,.840E-02_JPRB,.948E-02_JPRB,.948E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.131E-01_JPRB,&
+&.131E-01_JPRB,.968E-02_JPRB,.968E-02_JPRB,.990E-02_JPRB,.990E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,&
+&.895E-02_JPRB,.895E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.585E-02_JPRB,&
+&.585E-02_JPRB,.518E-02_JPRB,.518E-02_JPRB,.502E-02_JPRB,.502E-02_JPRB,.398E-02_JPRB,.398E-02_JPRB,&
+&.456E-02_JPRB,.456E-02_JPRB,.708E-02_JPRB,.708E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,&
+&.770E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,.774E-02_JPRB,.774E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,&
+&.874E-02_JPRB,.874E-02_JPRB,.918E-02_JPRB,.918E-02_JPRB,.949E-02_JPRB,.949E-02_JPRB,.941E-02_JPRB,&
+&.941E-02_JPRB,.879E-02_JPRB,.879E-02_JPRB,.874E-02_JPRB,.874E-02_JPRB,.832E-02_JPRB,.832E-02_JPRB,&
+&.724E-02_JPRB,.724E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 12  46.0
+ZAER (:,12,11) = (/&
+&.678E-02_JPRB,.678E-02_JPRB,.680E-02_JPRB,.680E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.695E-02_JPRB,&
+&.695E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,&
+&.666E-02_JPRB,.666E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.732E-02_JPRB,&
+&.732E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.659E-02_JPRB,.659E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,&
+&.938E-02_JPRB,.938E-02_JPRB,.866E-02_JPRB,.866E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.757E-02_JPRB,&
+&.757E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,&
+&.678E-02_JPRB,.678E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.901E-02_JPRB,&
+&.901E-02_JPRB,.994E-02_JPRB,.994E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.978E-02_JPRB,.978E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,.948E-02_JPRB,&
+&.948E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.818E-02_JPRB,.818E-02_JPRB,.733E-02_JPRB,.733E-02_JPRB,&
+&.534E-02_JPRB,.534E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 13  42.0
+ZAER (:,13,11) = (/&
+&.678E-02_JPRB,.678E-02_JPRB,.680E-02_JPRB,.680E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.695E-02_JPRB,&
+&.695E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.660E-02_JPRB,.660E-02_JPRB,&
+&.666E-02_JPRB,.666E-02_JPRB,.718E-02_JPRB,.718E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.732E-02_JPRB,&
+&.732E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.659E-02_JPRB,.659E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,&
+&.938E-02_JPRB,.938E-02_JPRB,.866E-02_JPRB,.866E-02_JPRB,.833E-02_JPRB,.833E-02_JPRB,.757E-02_JPRB,&
+&.757E-02_JPRB,.723E-02_JPRB,.723E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,&
+&.678E-02_JPRB,.678E-02_JPRB,.719E-02_JPRB,.719E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.901E-02_JPRB,&
+&.901E-02_JPRB,.994E-02_JPRB,.994E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.978E-02_JPRB,.978E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,.948E-02_JPRB,&
+&.948E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.818E-02_JPRB,.818E-02_JPRB,.733E-02_JPRB,.733E-02_JPRB,&
+&.534E-02_JPRB,.534E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 14  38.0
+ZAER (:,14,11) = (/&
+&.626E-02_JPRB,.626E-02_JPRB,.648E-02_JPRB,.648E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.680E-02_JPRB,&
+&.680E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.580E-02_JPRB,.580E-02_JPRB,&
+&.563E-02_JPRB,.563E-02_JPRB,.541E-02_JPRB,.541E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.511E-02_JPRB,&
+&.511E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,&
+&.723E-02_JPRB,.723E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.673E-02_JPRB,&
+&.673E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,&
+&.687E-02_JPRB,.687E-02_JPRB,.741E-02_JPRB,.741E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.797E-02_JPRB,&
+&.797E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.846E-02_JPRB,.846E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,&
+&.753E-02_JPRB,.753E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.524E-02_JPRB,&
+&.524E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,&
+&.646E-02_JPRB,.646E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 15  34.0
+ZAER (:,15,11) = (/&
+&.626E-02_JPRB,.626E-02_JPRB,.648E-02_JPRB,.648E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,.680E-02_JPRB,&
+&.680E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.580E-02_JPRB,.580E-02_JPRB,&
+&.563E-02_JPRB,.563E-02_JPRB,.541E-02_JPRB,.541E-02_JPRB,.547E-02_JPRB,.547E-02_JPRB,.511E-02_JPRB,&
+&.511E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,&
+&.723E-02_JPRB,.723E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.747E-02_JPRB,.747E-02_JPRB,.673E-02_JPRB,&
+&.673E-02_JPRB,.645E-02_JPRB,.645E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,.585E-02_JPRB,.585E-02_JPRB,&
+&.687E-02_JPRB,.687E-02_JPRB,.741E-02_JPRB,.741E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,.797E-02_JPRB,&
+&.797E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.846E-02_JPRB,.846E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,&
+&.753E-02_JPRB,.753E-02_JPRB,.649E-02_JPRB,.649E-02_JPRB,.538E-02_JPRB,.538E-02_JPRB,.524E-02_JPRB,&
+&.524E-02_JPRB,.343E-02_JPRB,.343E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.690E-02_JPRB,.690E-02_JPRB,&
+&.646E-02_JPRB,.646E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 16  30.0
+ZAER (:,16,11) = (/&
+&.683E-02_JPRB,.683E-02_JPRB,.691E-02_JPRB,.691E-02_JPRB,.704E-02_JPRB,.704E-02_JPRB,.762E-02_JPRB,&
+&.762E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.808E-02_JPRB,.808E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,&
+&.838E-02_JPRB,.838E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.565E-02_JPRB,&
+&.565E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,&
+&.630E-02_JPRB,.630E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,.655E-02_JPRB,&
+&.655E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,&
+&.443E-02_JPRB,.443E-02_JPRB,.703E-02_JPRB,.703E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.732E-02_JPRB,&
+&.732E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,&
+&.729E-02_JPRB,.729E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,.251E-02_JPRB,&
+&.251E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 17  26.0
+ZAER (:,17,11) = (/&
+&.683E-02_JPRB,.683E-02_JPRB,.691E-02_JPRB,.691E-02_JPRB,.704E-02_JPRB,.704E-02_JPRB,.762E-02_JPRB,&
+&.762E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.808E-02_JPRB,.808E-02_JPRB,.838E-02_JPRB,.838E-02_JPRB,&
+&.838E-02_JPRB,.838E-02_JPRB,.731E-02_JPRB,.731E-02_JPRB,.668E-02_JPRB,.668E-02_JPRB,.565E-02_JPRB,&
+&.565E-02_JPRB,.275E-02_JPRB,.275E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,&
+&.630E-02_JPRB,.630E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,.655E-02_JPRB,&
+&.655E-02_JPRB,.626E-02_JPRB,.626E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,&
+&.443E-02_JPRB,.443E-02_JPRB,.703E-02_JPRB,.703E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,.732E-02_JPRB,&
+&.732E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,.776E-02_JPRB,.776E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,&
+&.729E-02_JPRB,.729E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.316E-02_JPRB,.316E-02_JPRB,.251E-02_JPRB,&
+&.251E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.384E-02_JPRB,.384E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,&
+&.726E-02_JPRB,.726E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 18  22.0
+ZAER (:,18,11) = (/&
+&.977E-02_JPRB,.977E-02_JPRB,.987E-02_JPRB,.987E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.863E-02_JPRB,&
+&.863E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.912E-02_JPRB,.912E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.541E-02_JPRB,&
+&.541E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,.902E-03_JPRB,.902E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.457E-02_JPRB,.457E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.585E-02_JPRB,&
+&.585E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.211E-02_JPRB,.211E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.808E-02_JPRB,.808E-02_JPRB,.938E-02_JPRB,&
+&.938E-02_JPRB,.977E-02_JPRB,.977E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.402E-02_JPRB,&
+&.402E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,&
+&.930E-02_JPRB,.930E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 19  18.0
+ZAER (:,19,11) = (/&
+&.977E-02_JPRB,.977E-02_JPRB,.987E-02_JPRB,.987E-02_JPRB,.899E-02_JPRB,.899E-02_JPRB,.863E-02_JPRB,&
+&.863E-02_JPRB,.950E-02_JPRB,.950E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.107E-01_JPRB,.107E-01_JPRB,.912E-02_JPRB,.912E-02_JPRB,.746E-02_JPRB,.746E-02_JPRB,.541E-02_JPRB,&
+&.541E-02_JPRB,.211E-02_JPRB,.211E-02_JPRB,.902E-03_JPRB,.902E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,&
+&.457E-02_JPRB,.457E-02_JPRB,.673E-02_JPRB,.673E-02_JPRB,.662E-02_JPRB,.662E-02_JPRB,.585E-02_JPRB,&
+&.585E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,&
+&.211E-02_JPRB,.211E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.808E-02_JPRB,.808E-02_JPRB,.938E-02_JPRB,&
+&.938E-02_JPRB,.977E-02_JPRB,.977E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.991E-02_JPRB,.991E-02_JPRB,.877E-02_JPRB,.877E-02_JPRB,.544E-02_JPRB,.544E-02_JPRB,.402E-02_JPRB,&
+&.402E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.771E-02_JPRB,.771E-02_JPRB,&
+&.930E-02_JPRB,.930E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 20  14.0
+ZAER (:,20,11) = (/&
+&.970E-02_JPRB,.970E-02_JPRB,.944E-02_JPRB,.944E-02_JPRB,.986E-02_JPRB,.986E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.794E-02_JPRB,.794E-02_JPRB,.534E-02_JPRB,.534E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.462E-03_JPRB,.462E-03_JPRB,.338E-03_JPRB,.338E-03_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.442E-02_JPRB,.442E-02_JPRB,.821E-02_JPRB,.821E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,.539E-02_JPRB,&
+&.539E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.982E-03_JPRB,.982E-03_JPRB,&
+&.308E-02_JPRB,.308E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.850E-02_JPRB,.850E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.567E-02_JPRB,&
+&.567E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,&
+&.939E-02_JPRB,.939E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 21  10.0
+ZAER (:,21,11) = (/&
+&.970E-02_JPRB,.970E-02_JPRB,.944E-02_JPRB,.944E-02_JPRB,.986E-02_JPRB,.986E-02_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,&
+&.103E-01_JPRB,.103E-01_JPRB,.794E-02_JPRB,.794E-02_JPRB,.534E-02_JPRB,.534E-02_JPRB,.290E-02_JPRB,&
+&.290E-02_JPRB,.462E-03_JPRB,.462E-03_JPRB,.338E-03_JPRB,.338E-03_JPRB,.110E-02_JPRB,.110E-02_JPRB,&
+&.442E-02_JPRB,.442E-02_JPRB,.821E-02_JPRB,.821E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,.539E-02_JPRB,&
+&.539E-02_JPRB,.370E-02_JPRB,.370E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.982E-03_JPRB,.982E-03_JPRB,&
+&.308E-02_JPRB,.308E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.112E-01_JPRB,.112E-01_JPRB,.124E-01_JPRB,&
+&.124E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.850E-02_JPRB,.850E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.567E-02_JPRB,&
+&.567E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,.849E-02_JPRB,.849E-02_JPRB,.927E-02_JPRB,.927E-02_JPRB,&
+&.939E-02_JPRB,.939E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 22   6.0
+ZAER (:,22,11) = (/&
+&.107E-01_JPRB,.107E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.778E-02_JPRB,.778E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.444E-03_JPRB,.444E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,&
+&.798E-02_JPRB,.798E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.799E-02_JPRB,.799E-02_JPRB,.536E-02_JPRB,&
+&.536E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.999E-03_JPRB,.999E-03_JPRB,&
+&.410E-02_JPRB,.410E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,.888E-02_JPRB,&
+&.888E-02_JPRB,.727E-02_JPRB,.727E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,&
+&.397E-02_JPRB,.397E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.477E-02_JPRB,&
+&.477E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,&
+&.907E-02_JPRB,.907E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 23   2.0
+ZAER (:,23,11) = (/&
+&.107E-01_JPRB,.107E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,&
+&.778E-02_JPRB,.778E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.444E-03_JPRB,.444E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.368E-02_JPRB,.368E-02_JPRB,&
+&.798E-02_JPRB,.798E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.799E-02_JPRB,.799E-02_JPRB,.536E-02_JPRB,&
+&.536E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.999E-03_JPRB,.999E-03_JPRB,&
+&.410E-02_JPRB,.410E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,.888E-02_JPRB,&
+&.888E-02_JPRB,.727E-02_JPRB,.727E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,&
+&.397E-02_JPRB,.397E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.594E-02_JPRB,.594E-02_JPRB,.477E-02_JPRB,&
+&.477E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,.675E-02_JPRB,.675E-02_JPRB,.801E-02_JPRB,.801E-02_JPRB,&
+&.907E-02_JPRB,.907E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 24  -2.0
+ZAER (:,24,11) = (/&
+&.922E-02_JPRB,.922E-02_JPRB,.997E-02_JPRB,.997E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.998E-02_JPRB,.998E-02_JPRB,&
+&.814E-02_JPRB,.814E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.701E-02_JPRB,.701E-02_JPRB,.336E-02_JPRB,&
+&.336E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.430E-02_JPRB,.430E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,&
+&.975E-02_JPRB,.975E-02_JPRB,.960E-02_JPRB,.960E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.507E-02_JPRB,&
+&.507E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,&
+&.446E-02_JPRB,.446E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.907E-02_JPRB,.907E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.707E-02_JPRB,.707E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.490E-02_JPRB,.490E-02_JPRB,&
+&.421E-02_JPRB,.421E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.881E-02_JPRB,&
+&.881E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.787E-02_JPRB,.787E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,&
+&.842E-02_JPRB,.842E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 25  -6.0
+ZAER (:,25,11) = (/&
+&.922E-02_JPRB,.922E-02_JPRB,.997E-02_JPRB,.997E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.998E-02_JPRB,.998E-02_JPRB,&
+&.814E-02_JPRB,.814E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.701E-02_JPRB,.701E-02_JPRB,.336E-02_JPRB,&
+&.336E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,.430E-02_JPRB,.430E-02_JPRB,.794E-02_JPRB,.794E-02_JPRB,&
+&.975E-02_JPRB,.975E-02_JPRB,.960E-02_JPRB,.960E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.507E-02_JPRB,&
+&.507E-02_JPRB,.293E-02_JPRB,.293E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,&
+&.446E-02_JPRB,.446E-02_JPRB,.729E-02_JPRB,.729E-02_JPRB,.907E-02_JPRB,.907E-02_JPRB,.792E-02_JPRB,&
+&.792E-02_JPRB,.707E-02_JPRB,.707E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.490E-02_JPRB,.490E-02_JPRB,&
+&.421E-02_JPRB,.421E-02_JPRB,.605E-02_JPRB,.605E-02_JPRB,.810E-02_JPRB,.810E-02_JPRB,.881E-02_JPRB,&
+&.881E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.787E-02_JPRB,.787E-02_JPRB,.791E-02_JPRB,.791E-02_JPRB,&
+&.842E-02_JPRB,.842E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 26 -10.0
+ZAER (:,26,11) = (/&
+&.902E-02_JPRB,.902E-02_JPRB,.831E-02_JPRB,.831E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.936E-02_JPRB,.936E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,.751E-02_JPRB,&
+&.751E-02_JPRB,.862E-02_JPRB,.862E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.752E-02_JPRB,.752E-02_JPRB,.414E-02_JPRB,&
+&.414E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.297E-02_JPRB,.297E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,.932E-02_JPRB,&
+&.932E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.658E-02_JPRB,.658E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,&
+&.663E-02_JPRB,.663E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 27 -14.0
+ZAER (:,27,11) = (/&
+&.902E-02_JPRB,.902E-02_JPRB,.831E-02_JPRB,.831E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.936E-02_JPRB,.936E-02_JPRB,.790E-02_JPRB,.790E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,.751E-02_JPRB,&
+&.751E-02_JPRB,.862E-02_JPRB,.862E-02_JPRB,.105E-01_JPRB,.105E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.752E-02_JPRB,.752E-02_JPRB,.414E-02_JPRB,&
+&.414E-02_JPRB,.246E-02_JPRB,.246E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,&
+&.297E-02_JPRB,.297E-02_JPRB,.554E-02_JPRB,.554E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,.932E-02_JPRB,&
+&.932E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.658E-02_JPRB,.658E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,&
+&.663E-02_JPRB,.663E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.106E-01_JPRB,.106E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 28 -18.0
+ZAER (:,28,11) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.876E-02_JPRB,.876E-02_JPRB,.775E-02_JPRB,.775E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.912E-02_JPRB,&
+&.912E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.794E-02_JPRB,.794E-02_JPRB,.502E-02_JPRB,&
+&.502E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,&
+&.291E-02_JPRB,.291E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.200E-01_JPRB,&
+&.200E-01_JPRB,.196E-01_JPRB,.196E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 29 -22.0
+ZAER (:,29,11) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.876E-02_JPRB,.876E-02_JPRB,.775E-02_JPRB,.775E-02_JPRB,.828E-02_JPRB,.828E-02_JPRB,.912E-02_JPRB,&
+&.912E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.131E-01_JPRB,.131E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.794E-02_JPRB,.794E-02_JPRB,.502E-02_JPRB,&
+&.502E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,&
+&.291E-02_JPRB,.291E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.496E-02_JPRB,.496E-02_JPRB,.408E-02_JPRB,.408E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.200E-01_JPRB,&
+&.200E-01_JPRB,.196E-01_JPRB,.196E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 30 -26.0
+ZAER (:,30,11) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.945E-02_JPRB,.945E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,&
+&.669E-02_JPRB,.669E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.840E-02_JPRB,&
+&.840E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.501E-02_JPRB,.501E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.403E-02_JPRB,.403E-02_JPRB,&
+&.355E-02_JPRB,.355E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.263E-02_JPRB,&
+&.263E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,&
+&.209E-02_JPRB,.209E-02_JPRB,.360E-02_JPRB,.360E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 31 -30.0
+ZAER (:,31,11) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.945E-02_JPRB,.945E-02_JPRB,.826E-02_JPRB,.826E-02_JPRB,&
+&.669E-02_JPRB,.669E-02_JPRB,.700E-02_JPRB,.700E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.840E-02_JPRB,&
+&.840E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.128E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.653E-02_JPRB,&
+&.653E-02_JPRB,.501E-02_JPRB,.501E-02_JPRB,.423E-02_JPRB,.423E-02_JPRB,.403E-02_JPRB,.403E-02_JPRB,&
+&.355E-02_JPRB,.355E-02_JPRB,.287E-02_JPRB,.287E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.263E-02_JPRB,&
+&.263E-02_JPRB,.247E-02_JPRB,.247E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,&
+&.209E-02_JPRB,.209E-02_JPRB,.360E-02_JPRB,.360E-02_JPRB,.848E-02_JPRB,.848E-02_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.138E-01_JPRB,.138E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 32 -34.0
+ZAER (:,32,11) = (/&
+&.125E-01_JPRB,.125E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.843E-02_JPRB,.843E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,&
+&.358E-02_JPRB,.358E-02_JPRB,.336E-02_JPRB,.336E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,.352E-02_JPRB,&
+&.352E-02_JPRB,.829E-02_JPRB,.829E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.823E-02_JPRB,&
+&.823E-02_JPRB,.616E-02_JPRB,.616E-02_JPRB,.589E-02_JPRB,.589E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,&
+&.434E-02_JPRB,.434E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.219E-02_JPRB,&
+&.219E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.279E-02_JPRB,.279E-02_JPRB,.427E-02_JPRB,&
+&.427E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.976E-02_JPRB,.976E-02_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 33 -38.0
+ZAER (:,33,11) = (/&
+&.125E-01_JPRB,.125E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.843E-02_JPRB,.843E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,&
+&.358E-02_JPRB,.358E-02_JPRB,.336E-02_JPRB,.336E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,.352E-02_JPRB,&
+&.352E-02_JPRB,.829E-02_JPRB,.829E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.141E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.823E-02_JPRB,&
+&.823E-02_JPRB,.616E-02_JPRB,.616E-02_JPRB,.589E-02_JPRB,.589E-02_JPRB,.591E-02_JPRB,.591E-02_JPRB,&
+&.434E-02_JPRB,.434E-02_JPRB,.282E-02_JPRB,.282E-02_JPRB,.265E-02_JPRB,.265E-02_JPRB,.219E-02_JPRB,&
+&.219E-02_JPRB,.187E-02_JPRB,.187E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.109E-02_JPRB,.109E-02_JPRB,.107E-02_JPRB,.107E-02_JPRB,.279E-02_JPRB,.279E-02_JPRB,.427E-02_JPRB,&
+&.427E-02_JPRB,.674E-02_JPRB,.674E-02_JPRB,.976E-02_JPRB,.976E-02_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.132E-01_JPRB,.132E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 34 -42.0
+ZAER (:,34,11) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.792E-02_JPRB,.792E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,&
+&.209E-02_JPRB,.209E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.657E-02_JPRB,.657E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,&
+&.399E-02_JPRB,.399E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.200E-02_JPRB,&
+&.200E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,&
+&.128E-02_JPRB,.128E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.956E-03_JPRB,.956E-03_JPRB,.183E-02_JPRB,&
+&.183E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.126E-01_JPRB,.126E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 35 -46.0
+ZAER (:,35,11) = (/&
+&.117E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,&
+&.123E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.792E-02_JPRB,.792E-02_JPRB,.313E-02_JPRB,.313E-02_JPRB,&
+&.209E-02_JPRB,.209E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.126E-02_JPRB,&
+&.126E-02_JPRB,.361E-02_JPRB,.361E-02_JPRB,.851E-02_JPRB,.851E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.657E-02_JPRB,.657E-02_JPRB,.494E-02_JPRB,.494E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,&
+&.399E-02_JPRB,.399E-02_JPRB,.277E-02_JPRB,.277E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.200E-02_JPRB,&
+&.200E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.154E-02_JPRB,.154E-02_JPRB,.140E-02_JPRB,.140E-02_JPRB,&
+&.128E-02_JPRB,.128E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.956E-03_JPRB,.956E-03_JPRB,.183E-02_JPRB,&
+&.183E-02_JPRB,.409E-02_JPRB,.409E-02_JPRB,.822E-02_JPRB,.822E-02_JPRB,.115E-01_JPRB,.115E-01_JPRB,&
+&.126E-01_JPRB,.126E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 36 -50.0
+ZAER (:,36,11) = (/&
+&.121E-01_JPRB,.121E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.580E-02_JPRB,.580E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,&
+&.178E-02_JPRB,.178E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.404E-02_JPRB,.404E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.677E-02_JPRB,.677E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,&
+&.253E-02_JPRB,.253E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.175E-02_JPRB,&
+&.175E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.952E-03_JPRB,.952E-03_JPRB,.831E-03_JPRB,.831E-03_JPRB,.862E-03_JPRB,&
+&.862E-03_JPRB,.396E-02_JPRB,.396E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 37 -54.0
+ZAER (:,37,11) = (/&
+&.121E-01_JPRB,.121E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.580E-02_JPRB,.580E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,&
+&.178E-02_JPRB,.178E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.145E-02_JPRB,&
+&.145E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.404E-02_JPRB,.404E-02_JPRB,.943E-02_JPRB,.943E-02_JPRB,&
+&.114E-01_JPRB,.114E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.677E-02_JPRB,.677E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,&
+&.253E-02_JPRB,.253E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.175E-02_JPRB,&
+&.175E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.141E-02_JPRB,.141E-02_JPRB,.126E-02_JPRB,.126E-02_JPRB,&
+&.112E-02_JPRB,.112E-02_JPRB,.952E-03_JPRB,.952E-03_JPRB,.831E-03_JPRB,.831E-03_JPRB,.862E-03_JPRB,&
+&.862E-03_JPRB,.396E-02_JPRB,.396E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.107E-01_JPRB,.107E-01_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 38 -58.0
+ZAER (:,38,11) = (/&
+&.751E-02_JPRB,.751E-02_JPRB,.818E-02_JPRB,.818E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.656E-02_JPRB,&
+&.656E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.278E-02_JPRB,.278E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,&
+&.138E-02_JPRB,.138E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,.259E-02_JPRB,&
+&.259E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.614E-02_JPRB,.614E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.917E-02_JPRB,.917E-02_JPRB,.484E-02_JPRB,.484E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.171E-02_JPRB,&
+&.171E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.995E-03_JPRB,.995E-03_JPRB,&
+&.872E-03_JPRB,.872E-03_JPRB,.787E-03_JPRB,.787E-03_JPRB,.777E-03_JPRB,.777E-03_JPRB,.977E-03_JPRB,&
+&.977E-03_JPRB,.299E-02_JPRB,.299E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.847E-02_JPRB,.847E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 39 -62.0
+ZAER (:,39,11) = (/&
+&.751E-02_JPRB,.751E-02_JPRB,.818E-02_JPRB,.818E-02_JPRB,.550E-02_JPRB,.550E-02_JPRB,.656E-02_JPRB,&
+&.656E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.278E-02_JPRB,.278E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,&
+&.138E-02_JPRB,.138E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.470E-02_JPRB,.470E-02_JPRB,.259E-02_JPRB,&
+&.259E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.614E-02_JPRB,.614E-02_JPRB,.798E-02_JPRB,.798E-02_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.917E-02_JPRB,.917E-02_JPRB,.484E-02_JPRB,.484E-02_JPRB,.358E-02_JPRB,.358E-02_JPRB,&
+&.229E-02_JPRB,.229E-02_JPRB,.209E-02_JPRB,.209E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.171E-02_JPRB,&
+&.171E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.995E-03_JPRB,.995E-03_JPRB,&
+&.872E-03_JPRB,.872E-03_JPRB,.787E-03_JPRB,.787E-03_JPRB,.777E-03_JPRB,.777E-03_JPRB,.977E-03_JPRB,&
+&.977E-03_JPRB,.299E-02_JPRB,.299E-02_JPRB,.511E-02_JPRB,.511E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.847E-02_JPRB,.847E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 40 -66.0
+ZAER (:,40,11) = (/&
+&.250E-02_JPRB,.250E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.215E-02_JPRB,&
+&.215E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.819E-03_JPRB,.819E-03_JPRB,.958E-03_JPRB,.958E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.820E-03_JPRB,.820E-03_JPRB,.324E-02_JPRB,.324E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,&
+&.494E-02_JPRB,.494E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,.979E-02_JPRB,.979E-02_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.764E-02_JPRB,.764E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,&
+&.370E-02_JPRB,.370E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,.197E-02_JPRB,&
+&.197E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.828E-03_JPRB,.828E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.731E-03_JPRB,.731E-03_JPRB,.760E-03_JPRB,.760E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,&
+&.262E-02_JPRB,.262E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 41 -70.0
+ZAER (:,41,11) = (/&
+&.250E-02_JPRB,.250E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.215E-02_JPRB,&
+&.215E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.150E-02_JPRB,.150E-02_JPRB,.115E-02_JPRB,.115E-02_JPRB,&
+&.819E-03_JPRB,.819E-03_JPRB,.958E-03_JPRB,.958E-03_JPRB,.112E-02_JPRB,.112E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.820E-03_JPRB,.820E-03_JPRB,.324E-02_JPRB,.324E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,&
+&.494E-02_JPRB,.494E-02_JPRB,.740E-02_JPRB,.740E-02_JPRB,.979E-02_JPRB,.979E-02_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.764E-02_JPRB,.764E-02_JPRB,.411E-02_JPRB,.411E-02_JPRB,&
+&.370E-02_JPRB,.370E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,.197E-02_JPRB,&
+&.197E-02_JPRB,.108E-02_JPRB,.108E-02_JPRB,.828E-03_JPRB,.828E-03_JPRB,.765E-03_JPRB,.765E-03_JPRB,&
+&.731E-03_JPRB,.731E-03_JPRB,.760E-03_JPRB,.760E-03_JPRB,.886E-03_JPRB,.886E-03_JPRB,.109E-02_JPRB,&
+&.109E-02_JPRB,.159E-02_JPRB,.159E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.261E-02_JPRB,.261E-02_JPRB,&
+&.262E-02_JPRB,.262E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 42 -74.0
+ZAER (:,42,11) = (/&
+&.954E-03_JPRB,.954E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.700E-03_JPRB,.700E-03_JPRB,.590E-03_JPRB,&
+&.590E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.577E-03_JPRB,.577E-03_JPRB,.518E-03_JPRB,.518E-03_JPRB,&
+&.499E-03_JPRB,.499E-03_JPRB,.510E-03_JPRB,.510E-03_JPRB,.508E-03_JPRB,.508E-03_JPRB,.615E-03_JPRB,&
+&.615E-03_JPRB,.800E-03_JPRB,.800E-03_JPRB,.176E-02_JPRB,.176E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,&
+&.230E-02_JPRB,.230E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.279E-02_JPRB,.279E-02_JPRB,.463E-02_JPRB,&
+&.463E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.616E-02_JPRB,.616E-02_JPRB,.570E-02_JPRB,.570E-02_JPRB,&
+&.528E-02_JPRB,.528E-02_JPRB,.397E-02_JPRB,.397E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.932E-03_JPRB,.932E-03_JPRB,.787E-03_JPRB,.787E-03_JPRB,.667E-03_JPRB,.667E-03_JPRB,&
+&.636E-03_JPRB,.636E-03_JPRB,.752E-03_JPRB,.752E-03_JPRB,.133E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 43 -78.0
+ZAER (:,43,11) = (/&
+&.954E-03_JPRB,.954E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.700E-03_JPRB,.700E-03_JPRB,.590E-03_JPRB,&
+&.590E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.577E-03_JPRB,.577E-03_JPRB,.518E-03_JPRB,.518E-03_JPRB,&
+&.499E-03_JPRB,.499E-03_JPRB,.510E-03_JPRB,.510E-03_JPRB,.508E-03_JPRB,.508E-03_JPRB,.615E-03_JPRB,&
+&.615E-03_JPRB,.800E-03_JPRB,.800E-03_JPRB,.176E-02_JPRB,.176E-02_JPRB,.244E-02_JPRB,.244E-02_JPRB,&
+&.230E-02_JPRB,.230E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.279E-02_JPRB,.279E-02_JPRB,.463E-02_JPRB,&
+&.463E-02_JPRB,.677E-02_JPRB,.677E-02_JPRB,.616E-02_JPRB,.616E-02_JPRB,.570E-02_JPRB,.570E-02_JPRB,&
+&.528E-02_JPRB,.528E-02_JPRB,.397E-02_JPRB,.397E-02_JPRB,.228E-02_JPRB,.228E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.932E-03_JPRB,.932E-03_JPRB,.787E-03_JPRB,.787E-03_JPRB,.667E-03_JPRB,.667E-03_JPRB,&
+&.636E-03_JPRB,.636E-03_JPRB,.752E-03_JPRB,.752E-03_JPRB,.133E-02_JPRB,.133E-02_JPRB,.127E-02_JPRB,&
+&.127E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.122E-02_JPRB,.122E-02_JPRB,.117E-02_JPRB,.117E-02_JPRB,&
+&.108E-02_JPRB,.108E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 44 -82.0
+ZAER (:,44,11) = (/&
+&.662E-03_JPRB,.662E-03_JPRB,.631E-03_JPRB,.631E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,.572E-03_JPRB,&
+&.572E-03_JPRB,.566E-03_JPRB,.566E-03_JPRB,.579E-03_JPRB,.579E-03_JPRB,.609E-03_JPRB,.609E-03_JPRB,&
+&.660E-03_JPRB,.660E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.212E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.890E-03_JPRB,.890E-03_JPRB,.770E-03_JPRB,.770E-03_JPRB,.723E-03_JPRB,.723E-03_JPRB,.698E-03_JPRB,&
+&.698E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.768E-03_JPRB,.768E-03_JPRB,&
+&.794E-03_JPRB,.794E-03_JPRB,.840E-03_JPRB,.840E-03_JPRB,.867E-03_JPRB,.867E-03_JPRB,.853E-03_JPRB,&
+&.853E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.778E-03_JPRB,.778E-03_JPRB,.726E-03_JPRB,.726E-03_JPRB,&
+&.689E-03_JPRB,.689E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 45 -86.0
+ZAER (:,45,11) = (/&
+&.662E-03_JPRB,.662E-03_JPRB,.631E-03_JPRB,.631E-03_JPRB,.595E-03_JPRB,.595E-03_JPRB,.572E-03_JPRB,&
+&.572E-03_JPRB,.566E-03_JPRB,.566E-03_JPRB,.579E-03_JPRB,.579E-03_JPRB,.609E-03_JPRB,.609E-03_JPRB,&
+&.660E-03_JPRB,.660E-03_JPRB,.731E-03_JPRB,.731E-03_JPRB,.854E-03_JPRB,.854E-03_JPRB,.105E-02_JPRB,&
+&.105E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,&
+&.212E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.102E-02_JPRB,.102E-02_JPRB,&
+&.890E-03_JPRB,.890E-03_JPRB,.770E-03_JPRB,.770E-03_JPRB,.723E-03_JPRB,.723E-03_JPRB,.698E-03_JPRB,&
+&.698E-03_JPRB,.704E-03_JPRB,.704E-03_JPRB,.741E-03_JPRB,.741E-03_JPRB,.768E-03_JPRB,.768E-03_JPRB,&
+&.794E-03_JPRB,.794E-03_JPRB,.840E-03_JPRB,.840E-03_JPRB,.867E-03_JPRB,.867E-03_JPRB,.853E-03_JPRB,&
+&.853E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.778E-03_JPRB,.778E-03_JPRB,.726E-03_JPRB,.726E-03_JPRB,&
+&.689E-03_JPRB,.689E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 11 --- lat: 46 -90.0
+ZAER (:,46,11) = (/&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.116E-02_JPRB,.116E-02_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=11  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_11
Index: LMDZ5/branches/testing/libf/phymar/suecaess_12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaess_12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaess_12.F90	(revision 2160)
@@ -0,0 +1,694 @@
+SUBROUTINE SUECAESS_12
+
+!**   OPTICAL THICKNESS OF AEROSOLS OF SEA-SALT ORIGIN
+!                                      December
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESS* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSS
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,12:12)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Sea Salt Aerosol         month: 12 --- lat:  1  90.0
+ZAER (:, 1,12) = (/&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,.211E-03_JPRB,&
+&.211E-03_JPRB,.211E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  2  86.0
+ZAER (:, 2,12) = (/&
+&.248E-03_JPRB,.248E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.272E-03_JPRB,.272E-03_JPRB,.324E-03_JPRB,&
+&.324E-03_JPRB,.358E-03_JPRB,.358E-03_JPRB,.368E-03_JPRB,.368E-03_JPRB,.381E-03_JPRB,.381E-03_JPRB,&
+&.388E-03_JPRB,.388E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,&
+&.394E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.366E-03_JPRB,.366E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,&
+&.285E-03_JPRB,.285E-03_JPRB,.250E-03_JPRB,.250E-03_JPRB,.212E-03_JPRB,.212E-03_JPRB,.165E-03_JPRB,&
+&.165E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,.176E-03_JPRB,.176E-03_JPRB,.185E-03_JPRB,.185E-03_JPRB,&
+&.189E-03_JPRB,.189E-03_JPRB,.182E-03_JPRB,.182E-03_JPRB,.180E-03_JPRB,.180E-03_JPRB,.183E-03_JPRB,&
+&.183E-03_JPRB,.181E-03_JPRB,.181E-03_JPRB,.171E-03_JPRB,.171E-03_JPRB,.160E-03_JPRB,.160E-03_JPRB,&
+&.152E-03_JPRB,.152E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,.162E-03_JPRB,&
+&.162E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.198E-03_JPRB,.198E-03_JPRB,.230E-03_JPRB,.230E-03_JPRB,&
+&.264E-03_JPRB,.264E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  3  82.0
+ZAER (:, 3,12) = (/&
+&.248E-03_JPRB,.248E-03_JPRB,.240E-03_JPRB,.240E-03_JPRB,.272E-03_JPRB,.272E-03_JPRB,.324E-03_JPRB,&
+&.324E-03_JPRB,.358E-03_JPRB,.358E-03_JPRB,.368E-03_JPRB,.368E-03_JPRB,.381E-03_JPRB,.381E-03_JPRB,&
+&.388E-03_JPRB,.388E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,.394E-03_JPRB,&
+&.394E-03_JPRB,.388E-03_JPRB,.388E-03_JPRB,.366E-03_JPRB,.366E-03_JPRB,.330E-03_JPRB,.330E-03_JPRB,&
+&.285E-03_JPRB,.285E-03_JPRB,.250E-03_JPRB,.250E-03_JPRB,.212E-03_JPRB,.212E-03_JPRB,.165E-03_JPRB,&
+&.165E-03_JPRB,.159E-03_JPRB,.159E-03_JPRB,.176E-03_JPRB,.176E-03_JPRB,.185E-03_JPRB,.185E-03_JPRB,&
+&.189E-03_JPRB,.189E-03_JPRB,.182E-03_JPRB,.182E-03_JPRB,.180E-03_JPRB,.180E-03_JPRB,.183E-03_JPRB,&
+&.183E-03_JPRB,.181E-03_JPRB,.181E-03_JPRB,.171E-03_JPRB,.171E-03_JPRB,.160E-03_JPRB,.160E-03_JPRB,&
+&.152E-03_JPRB,.152E-03_JPRB,.148E-03_JPRB,.148E-03_JPRB,.152E-03_JPRB,.152E-03_JPRB,.162E-03_JPRB,&
+&.162E-03_JPRB,.177E-03_JPRB,.177E-03_JPRB,.198E-03_JPRB,.198E-03_JPRB,.230E-03_JPRB,.230E-03_JPRB,&
+&.264E-03_JPRB,.264E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  4  78.0
+ZAER (:, 4,12) = (/&
+&.535E-03_JPRB,.535E-03_JPRB,.437E-03_JPRB,.437E-03_JPRB,.368E-03_JPRB,.368E-03_JPRB,.406E-03_JPRB,&
+&.406E-03_JPRB,.420E-03_JPRB,.420E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,.528E-03_JPRB,.528E-03_JPRB,&
+&.613E-03_JPRB,.613E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.627E-03_JPRB,.627E-03_JPRB,.641E-03_JPRB,&
+&.641E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,&
+&.332E-03_JPRB,.332E-03_JPRB,.390E-03_JPRB,.390E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.378E-03_JPRB,&
+&.378E-03_JPRB,.228E-03_JPRB,.228E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.279E-03_JPRB,.279E-03_JPRB,&
+&.344E-03_JPRB,.344E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.397E-03_JPRB,&
+&.397E-03_JPRB,.314E-03_JPRB,.314E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,&
+&.125E-03_JPRB,.125E-03_JPRB,.161E-03_JPRB,.161E-03_JPRB,.206E-03_JPRB,.206E-03_JPRB,.216E-03_JPRB,&
+&.216E-03_JPRB,.263E-03_JPRB,.263E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.393E-03_JPRB,.393E-03_JPRB,&
+&.584E-03_JPRB,.584E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  5  74.0
+ZAER (:, 5,12) = (/&
+&.535E-03_JPRB,.535E-03_JPRB,.437E-03_JPRB,.437E-03_JPRB,.368E-03_JPRB,.368E-03_JPRB,.406E-03_JPRB,&
+&.406E-03_JPRB,.420E-03_JPRB,.420E-03_JPRB,.453E-03_JPRB,.453E-03_JPRB,.528E-03_JPRB,.528E-03_JPRB,&
+&.613E-03_JPRB,.613E-03_JPRB,.590E-03_JPRB,.590E-03_JPRB,.627E-03_JPRB,.627E-03_JPRB,.641E-03_JPRB,&
+&.641E-03_JPRB,.540E-03_JPRB,.540E-03_JPRB,.435E-03_JPRB,.435E-03_JPRB,.354E-03_JPRB,.354E-03_JPRB,&
+&.332E-03_JPRB,.332E-03_JPRB,.390E-03_JPRB,.390E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.378E-03_JPRB,&
+&.378E-03_JPRB,.228E-03_JPRB,.228E-03_JPRB,.205E-03_JPRB,.205E-03_JPRB,.279E-03_JPRB,.279E-03_JPRB,&
+&.344E-03_JPRB,.344E-03_JPRB,.370E-03_JPRB,.370E-03_JPRB,.372E-03_JPRB,.372E-03_JPRB,.397E-03_JPRB,&
+&.397E-03_JPRB,.314E-03_JPRB,.314E-03_JPRB,.224E-03_JPRB,.224E-03_JPRB,.147E-03_JPRB,.147E-03_JPRB,&
+&.125E-03_JPRB,.125E-03_JPRB,.161E-03_JPRB,.161E-03_JPRB,.206E-03_JPRB,.206E-03_JPRB,.216E-03_JPRB,&
+&.216E-03_JPRB,.263E-03_JPRB,.263E-03_JPRB,.302E-03_JPRB,.302E-03_JPRB,.393E-03_JPRB,.393E-03_JPRB,&
+&.584E-03_JPRB,.584E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  6  70.0
+ZAER (:, 6,12) = (/&
+&.314E-02_JPRB,.314E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.797E-03_JPRB,.797E-03_JPRB,.163E-02_JPRB,&
+&.163E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,&
+&.261E-02_JPRB,.261E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.240E-02_JPRB,&
+&.240E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.921E-03_JPRB,.921E-03_JPRB,.696E-03_JPRB,.696E-03_JPRB,&
+&.685E-03_JPRB,.685E-03_JPRB,.819E-03_JPRB,.819E-03_JPRB,.204E-02_JPRB,.204E-02_JPRB,.184E-02_JPRB,&
+&.184E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.847E-03_JPRB,.847E-03_JPRB,.421E-03_JPRB,.421E-03_JPRB,&
+&.562E-03_JPRB,.562E-03_JPRB,.993E-03_JPRB,.993E-03_JPRB,.172E-02_JPRB,.172E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,&
+&.321E-02_JPRB,.321E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  7  66.0
+ZAER (:, 7,12) = (/&
+&.314E-02_JPRB,.314E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.797E-03_JPRB,.797E-03_JPRB,.163E-02_JPRB,&
+&.163E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,&
+&.261E-02_JPRB,.261E-02_JPRB,.257E-02_JPRB,.257E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.240E-02_JPRB,&
+&.240E-02_JPRB,.185E-02_JPRB,.185E-02_JPRB,.921E-03_JPRB,.921E-03_JPRB,.696E-03_JPRB,.696E-03_JPRB,&
+&.685E-03_JPRB,.685E-03_JPRB,.819E-03_JPRB,.819E-03_JPRB,.204E-02_JPRB,.204E-02_JPRB,.184E-02_JPRB,&
+&.184E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,.148E-02_JPRB,.148E-02_JPRB,.118E-02_JPRB,.118E-02_JPRB,&
+&.124E-02_JPRB,.124E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.847E-03_JPRB,.847E-03_JPRB,.421E-03_JPRB,.421E-03_JPRB,&
+&.562E-03_JPRB,.562E-03_JPRB,.993E-03_JPRB,.993E-03_JPRB,.172E-02_JPRB,.172E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.133E-02_JPRB,.133E-02_JPRB,.156E-02_JPRB,.156E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,&
+&.321E-02_JPRB,.321E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  8  62.0
+ZAER (:, 8,12) = (/&
+&.794E-02_JPRB,.794E-02_JPRB,.691E-02_JPRB,.691E-02_JPRB,.587E-02_JPRB,.587E-02_JPRB,.582E-02_JPRB,&
+&.582E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.638E-02_JPRB,.638E-02_JPRB,&
+&.663E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.630E-02_JPRB,&
+&.630E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,&
+&.431E-02_JPRB,.431E-02_JPRB,.441E-02_JPRB,.441E-02_JPRB,.510E-02_JPRB,.510E-02_JPRB,.471E-02_JPRB,&
+&.471E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,&
+&.465E-02_JPRB,.465E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.502E-02_JPRB,.502E-02_JPRB,.537E-02_JPRB,&
+&.537E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,.540E-02_JPRB,&
+&.540E-02_JPRB,.522E-02_JPRB,.522E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,&
+&.815E-02_JPRB,.815E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat:  9  58.0
+ZAER (:, 9,12) = (/&
+&.794E-02_JPRB,.794E-02_JPRB,.691E-02_JPRB,.691E-02_JPRB,.587E-02_JPRB,.587E-02_JPRB,.582E-02_JPRB,&
+&.582E-02_JPRB,.623E-02_JPRB,.623E-02_JPRB,.628E-02_JPRB,.628E-02_JPRB,.638E-02_JPRB,.638E-02_JPRB,&
+&.663E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.663E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.630E-02_JPRB,&
+&.630E-02_JPRB,.563E-02_JPRB,.563E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,&
+&.431E-02_JPRB,.431E-02_JPRB,.441E-02_JPRB,.441E-02_JPRB,.510E-02_JPRB,.510E-02_JPRB,.471E-02_JPRB,&
+&.471E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.445E-02_JPRB,.445E-02_JPRB,.426E-02_JPRB,.426E-02_JPRB,&
+&.465E-02_JPRB,.465E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.502E-02_JPRB,.502E-02_JPRB,.537E-02_JPRB,&
+&.537E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.528E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.500E-02_JPRB,.500E-02_JPRB,.573E-02_JPRB,.573E-02_JPRB,.540E-02_JPRB,&
+&.540E-02_JPRB,.522E-02_JPRB,.522E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,&
+&.815E-02_JPRB,.815E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 10  54.0
+ZAER (:,10,12) = (/&
+&.975E-02_JPRB,.975E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.805E-02_JPRB,&
+&.805E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,&
+&.751E-02_JPRB,.751E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,.648E-02_JPRB,&
+&.648E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,&
+&.711E-02_JPRB,.711E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.686E-02_JPRB,&
+&.686E-02_JPRB,.684E-02_JPRB,.684E-02_JPRB,.634E-02_JPRB,.634E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,&
+&.646E-02_JPRB,.646E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.800E-02_JPRB,&
+&.800E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,&
+&.679E-02_JPRB,.679E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.883E-02_JPRB,&
+&.883E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 11  50.0
+ZAER (:,11,12) = (/&
+&.975E-02_JPRB,.975E-02_JPRB,.880E-02_JPRB,.880E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.805E-02_JPRB,&
+&.805E-02_JPRB,.803E-02_JPRB,.803E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.758E-02_JPRB,.758E-02_JPRB,&
+&.751E-02_JPRB,.751E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,.736E-02_JPRB,.736E-02_JPRB,.648E-02_JPRB,&
+&.648E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.613E-02_JPRB,.613E-02_JPRB,.742E-02_JPRB,.742E-02_JPRB,&
+&.711E-02_JPRB,.711E-02_JPRB,.709E-02_JPRB,.709E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.686E-02_JPRB,&
+&.686E-02_JPRB,.684E-02_JPRB,.684E-02_JPRB,.634E-02_JPRB,.634E-02_JPRB,.599E-02_JPRB,.599E-02_JPRB,&
+&.646E-02_JPRB,.646E-02_JPRB,.686E-02_JPRB,.686E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.800E-02_JPRB,&
+&.800E-02_JPRB,.809E-02_JPRB,.809E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.783E-02_JPRB,.783E-02_JPRB,&
+&.679E-02_JPRB,.679E-02_JPRB,.682E-02_JPRB,.682E-02_JPRB,.786E-02_JPRB,.786E-02_JPRB,.883E-02_JPRB,&
+&.883E-02_JPRB,.934E-02_JPRB,.934E-02_JPRB,.933E-02_JPRB,.933E-02_JPRB,.958E-02_JPRB,.958E-02_JPRB,&
+&.973E-02_JPRB,.973E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 12  46.0
+ZAER (:,12,12) = (/&
+&.702E-02_JPRB,.702E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.692E-02_JPRB,&
+&.692E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.596E-02_JPRB,.596E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,&
+&.604E-02_JPRB,.604E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.656E-02_JPRB,.656E-02_JPRB,.541E-02_JPRB,&
+&.541E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,&
+&.884E-02_JPRB,.884E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.911E-02_JPRB,&
+&.911E-02_JPRB,.891E-02_JPRB,.891E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,&
+&.710E-02_JPRB,.710E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.913E-02_JPRB,&
+&.913E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,&
+&.783E-02_JPRB,.783E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,.786E-02_JPRB,&
+&.786E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,&
+&.655E-02_JPRB,.655E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 13  42.0
+ZAER (:,13,12) = (/&
+&.702E-02_JPRB,.702E-02_JPRB,.735E-02_JPRB,.735E-02_JPRB,.717E-02_JPRB,.717E-02_JPRB,.692E-02_JPRB,&
+&.692E-02_JPRB,.615E-02_JPRB,.615E-02_JPRB,.596E-02_JPRB,.596E-02_JPRB,.586E-02_JPRB,.586E-02_JPRB,&
+&.604E-02_JPRB,.604E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.656E-02_JPRB,.656E-02_JPRB,.541E-02_JPRB,&
+&.541E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.830E-02_JPRB,.830E-02_JPRB,&
+&.884E-02_JPRB,.884E-02_JPRB,.900E-02_JPRB,.900E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.911E-02_JPRB,&
+&.911E-02_JPRB,.891E-02_JPRB,.891E-02_JPRB,.799E-02_JPRB,.799E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,&
+&.710E-02_JPRB,.710E-02_JPRB,.770E-02_JPRB,.770E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.913E-02_JPRB,&
+&.913E-02_JPRB,.932E-02_JPRB,.932E-02_JPRB,.884E-02_JPRB,.884E-02_JPRB,.841E-02_JPRB,.841E-02_JPRB,&
+&.783E-02_JPRB,.783E-02_JPRB,.769E-02_JPRB,.769E-02_JPRB,.755E-02_JPRB,.755E-02_JPRB,.786E-02_JPRB,&
+&.786E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,.813E-02_JPRB,.813E-02_JPRB,.867E-02_JPRB,.867E-02_JPRB,&
+&.655E-02_JPRB,.655E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 14  38.0
+ZAER (:,14,12) = (/&
+&.626E-02_JPRB,.626E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.699E-02_JPRB,&
+&.699E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,&
+&.650E-02_JPRB,.650E-02_JPRB,.648E-02_JPRB,.648E-02_JPRB,.620E-02_JPRB,.620E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.671E-02_JPRB,.671E-02_JPRB,&
+&.785E-02_JPRB,.785E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.767E-02_JPRB,&
+&.767E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.584E-02_JPRB,.584E-02_JPRB,&
+&.694E-02_JPRB,.694E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,.764E-02_JPRB,&
+&.764E-02_JPRB,.756E-02_JPRB,.756E-02_JPRB,.699E-02_JPRB,.699E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,&
+&.660E-02_JPRB,.660E-02_JPRB,.614E-02_JPRB,.614E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.521E-02_JPRB,&
+&.521E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,.501E-02_JPRB,.501E-02_JPRB,.642E-02_JPRB,.642E-02_JPRB,&
+&.569E-02_JPRB,.569E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 15  34.0
+ZAER (:,15,12) = (/&
+&.626E-02_JPRB,.626E-02_JPRB,.721E-02_JPRB,.721E-02_JPRB,.715E-02_JPRB,.715E-02_JPRB,.699E-02_JPRB,&
+&.699E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.607E-02_JPRB,.607E-02_JPRB,.612E-02_JPRB,.612E-02_JPRB,&
+&.650E-02_JPRB,.650E-02_JPRB,.648E-02_JPRB,.648E-02_JPRB,.620E-02_JPRB,.620E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.306E-02_JPRB,.306E-02_JPRB,.671E-02_JPRB,.671E-02_JPRB,&
+&.785E-02_JPRB,.785E-02_JPRB,.773E-02_JPRB,.773E-02_JPRB,.804E-02_JPRB,.804E-02_JPRB,.767E-02_JPRB,&
+&.767E-02_JPRB,.710E-02_JPRB,.710E-02_JPRB,.688E-02_JPRB,.688E-02_JPRB,.584E-02_JPRB,.584E-02_JPRB,&
+&.694E-02_JPRB,.694E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.761E-02_JPRB,.761E-02_JPRB,.764E-02_JPRB,&
+&.764E-02_JPRB,.756E-02_JPRB,.756E-02_JPRB,.699E-02_JPRB,.699E-02_JPRB,.665E-02_JPRB,.665E-02_JPRB,&
+&.660E-02_JPRB,.660E-02_JPRB,.614E-02_JPRB,.614E-02_JPRB,.509E-02_JPRB,.509E-02_JPRB,.521E-02_JPRB,&
+&.521E-02_JPRB,.328E-02_JPRB,.328E-02_JPRB,.501E-02_JPRB,.501E-02_JPRB,.642E-02_JPRB,.642E-02_JPRB,&
+&.569E-02_JPRB,.569E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 16  30.0
+ZAER (:,16,12) = (/&
+&.826E-02_JPRB,.826E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.736E-02_JPRB,&
+&.736E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,&
+&.908E-02_JPRB,.908E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.752E-02_JPRB,.752E-02_JPRB,.647E-02_JPRB,&
+&.647E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,&
+&.679E-02_JPRB,.679E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.713E-02_JPRB,&
+&.713E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,&
+&.411E-02_JPRB,.411E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.833E-02_JPRB,&
+&.833E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,&
+&.774E-02_JPRB,.774E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.258E-02_JPRB,&
+&.258E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.639E-02_JPRB,.639E-02_JPRB,&
+&.705E-02_JPRB,.705E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 17  26.0
+ZAER (:,17,12) = (/&
+&.826E-02_JPRB,.826E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.855E-02_JPRB,.736E-02_JPRB,&
+&.736E-02_JPRB,.683E-02_JPRB,.683E-02_JPRB,.784E-02_JPRB,.784E-02_JPRB,.893E-02_JPRB,.893E-02_JPRB,&
+&.908E-02_JPRB,.908E-02_JPRB,.843E-02_JPRB,.843E-02_JPRB,.752E-02_JPRB,.752E-02_JPRB,.647E-02_JPRB,&
+&.647E-02_JPRB,.337E-02_JPRB,.337E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.429E-02_JPRB,.429E-02_JPRB,&
+&.679E-02_JPRB,.679E-02_JPRB,.744E-02_JPRB,.744E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.713E-02_JPRB,&
+&.713E-02_JPRB,.661E-02_JPRB,.661E-02_JPRB,.565E-02_JPRB,.565E-02_JPRB,.251E-02_JPRB,.251E-02_JPRB,&
+&.411E-02_JPRB,.411E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.749E-02_JPRB,.749E-02_JPRB,.833E-02_JPRB,&
+&.833E-02_JPRB,.839E-02_JPRB,.839E-02_JPRB,.796E-02_JPRB,.796E-02_JPRB,.757E-02_JPRB,.757E-02_JPRB,&
+&.774E-02_JPRB,.774E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.258E-02_JPRB,&
+&.258E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.399E-02_JPRB,.399E-02_JPRB,.639E-02_JPRB,.639E-02_JPRB,&
+&.705E-02_JPRB,.705E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 18  22.0
+ZAER (:,18,12) = (/&
+&.973E-02_JPRB,.973E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.806E-02_JPRB,&
+&.806E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.732E-02_JPRB,.732E-02_JPRB,.544E-02_JPRB,&
+&.544E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.938E-03_JPRB,.938E-03_JPRB,.859E-03_JPRB,.859E-03_JPRB,&
+&.478E-02_JPRB,.478E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.652E-02_JPRB,&
+&.652E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.169E-02_JPRB,.169E-02_JPRB,.344E-02_JPRB,.344E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,.775E-02_JPRB,&
+&.775E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,.998E-02_JPRB,.998E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.851E-02_JPRB,.851E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,.309E-02_JPRB,&
+&.309E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.812E-02_JPRB,.812E-02_JPRB,&
+&.969E-02_JPRB,.969E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 19  18.0
+ZAER (:,19,12) = (/&
+&.973E-02_JPRB,.973E-02_JPRB,.923E-02_JPRB,.923E-02_JPRB,.859E-02_JPRB,.859E-02_JPRB,.806E-02_JPRB,&
+&.806E-02_JPRB,.816E-02_JPRB,.816E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.108E-01_JPRB,.108E-01_JPRB,.899E-02_JPRB,.899E-02_JPRB,.732E-02_JPRB,.732E-02_JPRB,.544E-02_JPRB,&
+&.544E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.938E-03_JPRB,.938E-03_JPRB,.859E-03_JPRB,.859E-03_JPRB,&
+&.478E-02_JPRB,.478E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.652E-02_JPRB,&
+&.652E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.396E-02_JPRB,.396E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.169E-02_JPRB,.169E-02_JPRB,.344E-02_JPRB,.344E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,.775E-02_JPRB,&
+&.775E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,.998E-02_JPRB,.998E-02_JPRB,.104E-01_JPRB,.104E-01_JPRB,&
+&.101E-01_JPRB,.101E-01_JPRB,.851E-02_JPRB,.851E-02_JPRB,.460E-02_JPRB,.460E-02_JPRB,.309E-02_JPRB,&
+&.309E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.768E-02_JPRB,.768E-02_JPRB,.812E-02_JPRB,.812E-02_JPRB,&
+&.969E-02_JPRB,.969E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 20  14.0
+ZAER (:,20,12) = (/&
+&.802E-02_JPRB,.802E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.823E-02_JPRB,.823E-02_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.978E-02_JPRB,.978E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,.254E-02_JPRB,&
+&.254E-02_JPRB,.400E-03_JPRB,.400E-03_JPRB,.316E-03_JPRB,.316E-03_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.525E-02_JPRB,.525E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.834E-02_JPRB,.834E-02_JPRB,.580E-02_JPRB,&
+&.580E-02_JPRB,.369E-02_JPRB,.369E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.596E-03_JPRB,.596E-03_JPRB,&
+&.168E-02_JPRB,.168E-02_JPRB,.539E-02_JPRB,.539E-02_JPRB,.671E-02_JPRB,.671E-02_JPRB,.841E-02_JPRB,&
+&.841E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.940E-02_JPRB,.940E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.876E-02_JPRB,.876E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.440E-02_JPRB,&
+&.440E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,&
+&.780E-02_JPRB,.780E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 21  10.0
+ZAER (:,21,12) = (/&
+&.802E-02_JPRB,.802E-02_JPRB,.753E-02_JPRB,.753E-02_JPRB,.823E-02_JPRB,.823E-02_JPRB,.101E-01_JPRB,&
+&.101E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.978E-02_JPRB,.978E-02_JPRB,.693E-02_JPRB,.693E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,.254E-02_JPRB,&
+&.254E-02_JPRB,.400E-03_JPRB,.400E-03_JPRB,.316E-03_JPRB,.316E-03_JPRB,.133E-02_JPRB,.133E-02_JPRB,&
+&.525E-02_JPRB,.525E-02_JPRB,.901E-02_JPRB,.901E-02_JPRB,.834E-02_JPRB,.834E-02_JPRB,.580E-02_JPRB,&
+&.580E-02_JPRB,.369E-02_JPRB,.369E-02_JPRB,.197E-02_JPRB,.197E-02_JPRB,.596E-03_JPRB,.596E-03_JPRB,&
+&.168E-02_JPRB,.168E-02_JPRB,.539E-02_JPRB,.539E-02_JPRB,.671E-02_JPRB,.671E-02_JPRB,.841E-02_JPRB,&
+&.841E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.940E-02_JPRB,.940E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.876E-02_JPRB,.876E-02_JPRB,.641E-02_JPRB,.641E-02_JPRB,.440E-02_JPRB,&
+&.440E-02_JPRB,.622E-02_JPRB,.622E-02_JPRB,.807E-02_JPRB,.807E-02_JPRB,.713E-02_JPRB,.713E-02_JPRB,&
+&.780E-02_JPRB,.780E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 22   6.0
+ZAER (:,22,12) = (/&
+&.822E-02_JPRB,.822E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.127E-01_JPRB,.127E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.771E-02_JPRB,.771E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.392E-03_JPRB,.392E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.869E-02_JPRB,.869E-02_JPRB,.578E-02_JPRB,&
+&.578E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.387E-02_JPRB,.387E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.745E-02_JPRB,.745E-02_JPRB,.730E-02_JPRB,&
+&.730E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.518E-02_JPRB,.518E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,&
+&.736E-02_JPRB,.736E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 23   2.0
+ZAER (:,23,12) = (/&
+&.822E-02_JPRB,.822E-02_JPRB,.991E-02_JPRB,.991E-02_JPRB,.127E-01_JPRB,.127E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.771E-02_JPRB,.771E-02_JPRB,.556E-02_JPRB,.556E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.119E-02_JPRB,&
+&.119E-02_JPRB,.392E-03_JPRB,.392E-03_JPRB,.109E-02_JPRB,.109E-02_JPRB,.341E-02_JPRB,.341E-02_JPRB,&
+&.827E-02_JPRB,.827E-02_JPRB,.110E-01_JPRB,.110E-01_JPRB,.869E-02_JPRB,.869E-02_JPRB,.578E-02_JPRB,&
+&.578E-02_JPRB,.374E-02_JPRB,.374E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.119E-02_JPRB,.119E-02_JPRB,&
+&.387E-02_JPRB,.387E-02_JPRB,.765E-02_JPRB,.765E-02_JPRB,.745E-02_JPRB,.745E-02_JPRB,.730E-02_JPRB,&
+&.730E-02_JPRB,.725E-02_JPRB,.725E-02_JPRB,.518E-02_JPRB,.518E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.498E-02_JPRB,.498E-02_JPRB,.530E-02_JPRB,.530E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.481E-02_JPRB,.481E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.651E-02_JPRB,.651E-02_JPRB,&
+&.736E-02_JPRB,.736E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 24  -2.0
+ZAER (:,24,12) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.151E-01_JPRB,&
+&.151E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.923E-02_JPRB,.923E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.375E-02_JPRB,&
+&.375E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,.512E-02_JPRB,.512E-02_JPRB,.977E-02_JPRB,.977E-02_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.856E-02_JPRB,.856E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,&
+&.487E-02_JPRB,.487E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.966E-02_JPRB,&
+&.966E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.679E-02_JPRB,.679E-02_JPRB,.701E-02_JPRB,.701E-02_JPRB,&
+&.724E-02_JPRB,.724E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.952E-02_JPRB,.952E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 25  -6.0
+ZAER (:,25,12) = (/&
+&.128E-01_JPRB,.128E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.151E-01_JPRB,&
+&.151E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,&
+&.923E-02_JPRB,.923E-02_JPRB,.750E-02_JPRB,.750E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.375E-02_JPRB,&
+&.375E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,.512E-02_JPRB,.512E-02_JPRB,.977E-02_JPRB,.977E-02_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.856E-02_JPRB,.856E-02_JPRB,.512E-02_JPRB,&
+&.512E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,&
+&.487E-02_JPRB,.487E-02_JPRB,.785E-02_JPRB,.785E-02_JPRB,.106E-01_JPRB,.106E-01_JPRB,.966E-02_JPRB,&
+&.966E-02_JPRB,.780E-02_JPRB,.780E-02_JPRB,.679E-02_JPRB,.679E-02_JPRB,.701E-02_JPRB,.701E-02_JPRB,&
+&.724E-02_JPRB,.724E-02_JPRB,.863E-02_JPRB,.863E-02_JPRB,.967E-02_JPRB,.967E-02_JPRB,.100E-01_JPRB,&
+&.100E-01_JPRB,.952E-02_JPRB,.952E-02_JPRB,.936E-02_JPRB,.936E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 26 -10.0
+ZAER (:,26,12) = (/&
+&.151E-01_JPRB,.151E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.155E-01_JPRB,&
+&.155E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.805E-02_JPRB,.805E-02_JPRB,.991E-02_JPRB,&
+&.991E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,&
+&.165E-01_JPRB,.165E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.896E-02_JPRB,.896E-02_JPRB,.474E-02_JPRB,&
+&.474E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,&
+&.375E-02_JPRB,.375E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.907E-02_JPRB,.907E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.938E-02_JPRB,.938E-02_JPRB,&
+&.941E-02_JPRB,.941E-02_JPRB,.133E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.143E-01_JPRB,.143E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 27 -14.0
+ZAER (:,27,12) = (/&
+&.151E-01_JPRB,.151E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.155E-01_JPRB,&
+&.155E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.119E-01_JPRB,.119E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.805E-02_JPRB,.805E-02_JPRB,.991E-02_JPRB,&
+&.991E-02_JPRB,.103E-01_JPRB,.103E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,&
+&.165E-01_JPRB,.165E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.896E-02_JPRB,.896E-02_JPRB,.474E-02_JPRB,&
+&.474E-02_JPRB,.305E-02_JPRB,.305E-02_JPRB,.238E-02_JPRB,.238E-02_JPRB,.281E-02_JPRB,.281E-02_JPRB,&
+&.375E-02_JPRB,.375E-02_JPRB,.646E-02_JPRB,.646E-02_JPRB,.111E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,&
+&.115E-01_JPRB,.907E-02_JPRB,.907E-02_JPRB,.955E-02_JPRB,.955E-02_JPRB,.938E-02_JPRB,.938E-02_JPRB,&
+&.941E-02_JPRB,.941E-02_JPRB,.133E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.140E-01_JPRB,&
+&.140E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.143E-01_JPRB,.143E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 28 -18.0
+ZAER (:,28,12) = (/&
+&.134E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.981E-02_JPRB,.981E-02_JPRB,.921E-02_JPRB,.921E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,&
+&.153E-01_JPRB,.153E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.927E-02_JPRB,.927E-02_JPRB,.614E-02_JPRB,&
+&.614E-02_JPRB,.523E-02_JPRB,.523E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,&
+&.340E-02_JPRB,.340E-02_JPRB,.362E-02_JPRB,.362E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.739E-02_JPRB,&
+&.739E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,&
+&.619E-02_JPRB,.619E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.182E-01_JPRB,&
+&.182E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 29 -22.0
+ZAER (:,29,12) = (/&
+&.134E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,&
+&.142E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,&
+&.981E-02_JPRB,.981E-02_JPRB,.921E-02_JPRB,.921E-02_JPRB,.924E-02_JPRB,.924E-02_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,&
+&.153E-01_JPRB,.153E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.927E-02_JPRB,.927E-02_JPRB,.614E-02_JPRB,&
+&.614E-02_JPRB,.523E-02_JPRB,.523E-02_JPRB,.450E-02_JPRB,.450E-02_JPRB,.375E-02_JPRB,.375E-02_JPRB,&
+&.340E-02_JPRB,.340E-02_JPRB,.362E-02_JPRB,.362E-02_JPRB,.488E-02_JPRB,.488E-02_JPRB,.739E-02_JPRB,&
+&.739E-02_JPRB,.568E-02_JPRB,.568E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,&
+&.619E-02_JPRB,.619E-02_JPRB,.116E-01_JPRB,.116E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.182E-01_JPRB,&
+&.182E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 30 -26.0
+ZAER (:,30,12) = (/&
+&.126E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.983E-02_JPRB,.983E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,&
+&.543E-02_JPRB,.543E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.913E-02_JPRB,&
+&.913E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.587E-02_JPRB,&
+&.587E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.452E-02_JPRB,.452E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,&
+&.382E-02_JPRB,.382E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,.302E-02_JPRB,&
+&.302E-02_JPRB,.289E-02_JPRB,.289E-02_JPRB,.256E-02_JPRB,.256E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,&
+&.223E-02_JPRB,.223E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.829E-02_JPRB,.829E-02_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 31 -30.0
+ZAER (:,31,12) = (/&
+&.126E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,&
+&.127E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.983E-02_JPRB,.983E-02_JPRB,.734E-02_JPRB,.734E-02_JPRB,&
+&.543E-02_JPRB,.543E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,.737E-02_JPRB,.737E-02_JPRB,.913E-02_JPRB,&
+&.913E-02_JPRB,.113E-01_JPRB,.113E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.587E-02_JPRB,&
+&.587E-02_JPRB,.466E-02_JPRB,.466E-02_JPRB,.452E-02_JPRB,.452E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,&
+&.382E-02_JPRB,.382E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,.302E-02_JPRB,&
+&.302E-02_JPRB,.289E-02_JPRB,.289E-02_JPRB,.256E-02_JPRB,.256E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,&
+&.223E-02_JPRB,.223E-02_JPRB,.407E-02_JPRB,.407E-02_JPRB,.829E-02_JPRB,.829E-02_JPRB,.126E-01_JPRB,&
+&.126E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 32 -34.0
+ZAER (:,32,12) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.976E-02_JPRB,.976E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,&
+&.365E-02_JPRB,.365E-02_JPRB,.330E-02_JPRB,.330E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.430E-02_JPRB,&
+&.430E-02_JPRB,.969E-02_JPRB,.969E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.670E-02_JPRB,&
+&.670E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,&
+&.404E-02_JPRB,.404E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.207E-02_JPRB,&
+&.207E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.905E-03_JPRB,.905E-03_JPRB,.933E-03_JPRB,.933E-03_JPRB,.289E-02_JPRB,.289E-02_JPRB,.492E-02_JPRB,&
+&.492E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.152E-01_JPRB,.152E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 33 -38.0
+ZAER (:,33,12) = (/&
+&.130E-01_JPRB,.130E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.976E-02_JPRB,.976E-02_JPRB,.540E-02_JPRB,.540E-02_JPRB,&
+&.365E-02_JPRB,.365E-02_JPRB,.330E-02_JPRB,.330E-02_JPRB,.300E-02_JPRB,.300E-02_JPRB,.430E-02_JPRB,&
+&.430E-02_JPRB,.969E-02_JPRB,.969E-02_JPRB,.117E-01_JPRB,.117E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.127E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.670E-02_JPRB,&
+&.670E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,.552E-02_JPRB,.552E-02_JPRB,.588E-02_JPRB,.588E-02_JPRB,&
+&.404E-02_JPRB,.404E-02_JPRB,.259E-02_JPRB,.259E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.207E-02_JPRB,&
+&.207E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.147E-02_JPRB,.147E-02_JPRB,.116E-02_JPRB,.116E-02_JPRB,&
+&.905E-03_JPRB,.905E-03_JPRB,.933E-03_JPRB,.933E-03_JPRB,.289E-02_JPRB,.289E-02_JPRB,.492E-02_JPRB,&
+&.492E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,.119E-01_JPRB,.119E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.152E-01_JPRB,.152E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 34 -42.0
+ZAER (:,34,12) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.980E-02_JPRB,.980E-02_JPRB,.569E-02_JPRB,.569E-02_JPRB,&
+&.367E-02_JPRB,.367E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.170E-02_JPRB,&
+&.170E-02_JPRB,.403E-02_JPRB,.403E-02_JPRB,.752E-02_JPRB,.752E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.549E-02_JPRB,.549E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,&
+&.345E-02_JPRB,.345E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.160E-02_JPRB,&
+&.160E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.773E-03_JPRB,.773E-03_JPRB,.739E-03_JPRB,.739E-03_JPRB,.181E-02_JPRB,&
+&.181E-02_JPRB,.325E-02_JPRB,.325E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.151E-01_JPRB,.151E-01_JPRB,&
+&.164E-01_JPRB,.164E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 35 -46.0
+ZAER (:,35,12) = (/&
+&.132E-01_JPRB,.132E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,&
+&.108E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.980E-02_JPRB,.980E-02_JPRB,.569E-02_JPRB,.569E-02_JPRB,&
+&.367E-02_JPRB,.367E-02_JPRB,.296E-02_JPRB,.296E-02_JPRB,.232E-02_JPRB,.232E-02_JPRB,.170E-02_JPRB,&
+&.170E-02_JPRB,.403E-02_JPRB,.403E-02_JPRB,.752E-02_JPRB,.752E-02_JPRB,.972E-02_JPRB,.972E-02_JPRB,&
+&.133E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.549E-02_JPRB,.549E-02_JPRB,.406E-02_JPRB,.406E-02_JPRB,.326E-02_JPRB,.326E-02_JPRB,&
+&.345E-02_JPRB,.345E-02_JPRB,.233E-02_JPRB,.233E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.160E-02_JPRB,&
+&.160E-02_JPRB,.130E-02_JPRB,.130E-02_JPRB,.114E-02_JPRB,.114E-02_JPRB,.101E-02_JPRB,.101E-02_JPRB,&
+&.886E-03_JPRB,.886E-03_JPRB,.773E-03_JPRB,.773E-03_JPRB,.739E-03_JPRB,.739E-03_JPRB,.181E-02_JPRB,&
+&.181E-02_JPRB,.325E-02_JPRB,.325E-02_JPRB,.777E-02_JPRB,.777E-02_JPRB,.151E-01_JPRB,.151E-01_JPRB,&
+&.164E-01_JPRB,.164E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 36 -50.0
+ZAER (:,36,12) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.971E-02_JPRB,.971E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,.967E-02_JPRB,&
+&.967E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,&
+&.247E-02_JPRB,.247E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.148E-01_JPRB,.148E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.732E-02_JPRB,.732E-02_JPRB,.461E-02_JPRB,.461E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,&
+&.224E-02_JPRB,.224E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.965E-03_JPRB,.965E-03_JPRB,&
+&.882E-03_JPRB,.882E-03_JPRB,.745E-03_JPRB,.745E-03_JPRB,.660E-03_JPRB,.660E-03_JPRB,.656E-03_JPRB,&
+&.656E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 37 -54.0
+ZAER (:,37,12) = (/&
+&.110E-01_JPRB,.110E-01_JPRB,.971E-02_JPRB,.971E-02_JPRB,.897E-02_JPRB,.897E-02_JPRB,.967E-02_JPRB,&
+&.967E-02_JPRB,.939E-02_JPRB,.939E-02_JPRB,.574E-02_JPRB,.574E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,&
+&.247E-02_JPRB,.247E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.160E-02_JPRB,.160E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.146E-02_JPRB,.146E-02_JPRB,.356E-02_JPRB,.356E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,&
+&.148E-01_JPRB,.148E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.732E-02_JPRB,.732E-02_JPRB,.461E-02_JPRB,.461E-02_JPRB,.311E-02_JPRB,.311E-02_JPRB,&
+&.224E-02_JPRB,.224E-02_JPRB,.175E-02_JPRB,.175E-02_JPRB,.149E-02_JPRB,.149E-02_JPRB,.132E-02_JPRB,&
+&.132E-02_JPRB,.120E-02_JPRB,.120E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.965E-03_JPRB,.965E-03_JPRB,&
+&.882E-03_JPRB,.882E-03_JPRB,.745E-03_JPRB,.745E-03_JPRB,.660E-03_JPRB,.660E-03_JPRB,.656E-03_JPRB,&
+&.656E-03_JPRB,.103E-02_JPRB,.103E-02_JPRB,.322E-02_JPRB,.322E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.134E-01_JPRB,.134E-01_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 38 -58.0
+ZAER (:,38,12) = (/&
+&.626E-02_JPRB,.626E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.272E-02_JPRB,.272E-02_JPRB,.355E-02_JPRB,&
+&.355E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.206E-02_JPRB,&
+&.206E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,.148E-01_JPRB,&
+&.148E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.817E-02_JPRB,.817E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,&
+&.294E-02_JPRB,.294E-02_JPRB,.219E-02_JPRB,.219E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.154E-02_JPRB,&
+&.154E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.952E-03_JPRB,.952E-03_JPRB,&
+&.829E-03_JPRB,.829E-03_JPRB,.696E-03_JPRB,.696E-03_JPRB,.638E-03_JPRB,.638E-03_JPRB,.814E-03_JPRB,&
+&.814E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,&
+&.860E-02_JPRB,.860E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 39 -62.0
+ZAER (:,39,12) = (/&
+&.626E-02_JPRB,.626E-02_JPRB,.436E-02_JPRB,.436E-02_JPRB,.272E-02_JPRB,.272E-02_JPRB,.355E-02_JPRB,&
+&.355E-02_JPRB,.216E-02_JPRB,.216E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,.144E-02_JPRB,&
+&.127E-02_JPRB,.127E-02_JPRB,.135E-02_JPRB,.135E-02_JPRB,.354E-02_JPRB,.354E-02_JPRB,.206E-02_JPRB,&
+&.206E-02_JPRB,.125E-02_JPRB,.125E-02_JPRB,.643E-02_JPRB,.643E-02_JPRB,.905E-02_JPRB,.905E-02_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.161E-01_JPRB,.161E-01_JPRB,.148E-01_JPRB,&
+&.148E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.817E-02_JPRB,.817E-02_JPRB,.513E-02_JPRB,.513E-02_JPRB,&
+&.294E-02_JPRB,.294E-02_JPRB,.219E-02_JPRB,.219E-02_JPRB,.182E-02_JPRB,.182E-02_JPRB,.154E-02_JPRB,&
+&.154E-02_JPRB,.131E-02_JPRB,.131E-02_JPRB,.111E-02_JPRB,.111E-02_JPRB,.952E-03_JPRB,.952E-03_JPRB,&
+&.829E-03_JPRB,.829E-03_JPRB,.696E-03_JPRB,.696E-03_JPRB,.638E-03_JPRB,.638E-03_JPRB,.814E-03_JPRB,&
+&.814E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.274E-02_JPRB,.274E-02_JPRB,.507E-02_JPRB,.507E-02_JPRB,&
+&.860E-02_JPRB,.860E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 40 -66.0
+ZAER (:,40,12) = (/&
+&.306E-02_JPRB,.306E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.727E-03_JPRB,.727E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.900E-03_JPRB,.900E-03_JPRB,.185E-02_JPRB,.185E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,&
+&.327E-02_JPRB,.327E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.518E-02_JPRB,.518E-02_JPRB,&
+&.409E-02_JPRB,.409E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.858E-03_JPRB,.858E-03_JPRB,&
+&.738E-03_JPRB,.738E-03_JPRB,.647E-03_JPRB,.647E-03_JPRB,.707E-03_JPRB,.707E-03_JPRB,.862E-03_JPRB,&
+&.862E-03_JPRB,.119E-02_JPRB,.119E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.266E-02_JPRB,.266E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 41 -70.0
+ZAER (:,41,12) = (/&
+&.306E-02_JPRB,.306E-02_JPRB,.329E-02_JPRB,.329E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.117E-02_JPRB,&
+&.117E-02_JPRB,.727E-03_JPRB,.727E-03_JPRB,.810E-03_JPRB,.810E-03_JPRB,.114E-02_JPRB,.114E-02_JPRB,&
+&.113E-02_JPRB,.113E-02_JPRB,.134E-02_JPRB,.134E-02_JPRB,.129E-02_JPRB,.129E-02_JPRB,.114E-02_JPRB,&
+&.114E-02_JPRB,.900E-03_JPRB,.900E-03_JPRB,.185E-02_JPRB,.185E-02_JPRB,.224E-02_JPRB,.224E-02_JPRB,&
+&.327E-02_JPRB,.327E-02_JPRB,.571E-02_JPRB,.571E-02_JPRB,.609E-02_JPRB,.609E-02_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.518E-02_JPRB,.518E-02_JPRB,&
+&.409E-02_JPRB,.409E-02_JPRB,.476E-02_JPRB,.476E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,.191E-02_JPRB,&
+&.191E-02_JPRB,.132E-02_JPRB,.132E-02_JPRB,.105E-02_JPRB,.105E-02_JPRB,.858E-03_JPRB,.858E-03_JPRB,&
+&.738E-03_JPRB,.738E-03_JPRB,.647E-03_JPRB,.647E-03_JPRB,.707E-03_JPRB,.707E-03_JPRB,.862E-03_JPRB,&
+&.862E-03_JPRB,.119E-02_JPRB,.119E-02_JPRB,.180E-02_JPRB,.180E-02_JPRB,.266E-02_JPRB,.266E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 42 -74.0
+ZAER (:,42,12) = (/&
+&.149E-02_JPRB,.149E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.862E-03_JPRB,&
+&.862E-03_JPRB,.717E-03_JPRB,.717E-03_JPRB,.732E-03_JPRB,.732E-03_JPRB,.894E-03_JPRB,.894E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.999E-03_JPRB,.999E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.910E-03_JPRB,&
+&.910E-03_JPRB,.804E-03_JPRB,.804E-03_JPRB,.803E-03_JPRB,.803E-03_JPRB,.870E-03_JPRB,.870E-03_JPRB,&
+&.845E-03_JPRB,.845E-03_JPRB,.828E-03_JPRB,.828E-03_JPRB,.915E-03_JPRB,.915E-03_JPRB,.164E-02_JPRB,&
+&.164E-02_JPRB,.695E-02_JPRB,.695E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,&
+&.590E-02_JPRB,.590E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.843E-03_JPRB,.843E-03_JPRB,.676E-03_JPRB,.676E-03_JPRB,&
+&.610E-03_JPRB,.610E-03_JPRB,.592E-03_JPRB,.592E-03_JPRB,.657E-03_JPRB,.657E-03_JPRB,.825E-03_JPRB,&
+&.825E-03_JPRB,.858E-03_JPRB,.858E-03_JPRB,.958E-03_JPRB,.958E-03_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.146E-02_JPRB,.146E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 43 -78.0
+ZAER (:,43,12) = (/&
+&.149E-02_JPRB,.149E-02_JPRB,.137E-02_JPRB,.137E-02_JPRB,.113E-02_JPRB,.113E-02_JPRB,.862E-03_JPRB,&
+&.862E-03_JPRB,.717E-03_JPRB,.717E-03_JPRB,.732E-03_JPRB,.732E-03_JPRB,.894E-03_JPRB,.894E-03_JPRB,&
+&.959E-03_JPRB,.959E-03_JPRB,.999E-03_JPRB,.999E-03_JPRB,.101E-02_JPRB,.101E-02_JPRB,.910E-03_JPRB,&
+&.910E-03_JPRB,.804E-03_JPRB,.804E-03_JPRB,.803E-03_JPRB,.803E-03_JPRB,.870E-03_JPRB,.870E-03_JPRB,&
+&.845E-03_JPRB,.845E-03_JPRB,.828E-03_JPRB,.828E-03_JPRB,.915E-03_JPRB,.915E-03_JPRB,.164E-02_JPRB,&
+&.164E-02_JPRB,.695E-02_JPRB,.695E-02_JPRB,.811E-02_JPRB,.811E-02_JPRB,.692E-02_JPRB,.692E-02_JPRB,&
+&.590E-02_JPRB,.590E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.138E-02_JPRB,.138E-02_JPRB,.120E-02_JPRB,&
+&.120E-02_JPRB,.104E-02_JPRB,.104E-02_JPRB,.843E-03_JPRB,.843E-03_JPRB,.676E-03_JPRB,.676E-03_JPRB,&
+&.610E-03_JPRB,.610E-03_JPRB,.592E-03_JPRB,.592E-03_JPRB,.657E-03_JPRB,.657E-03_JPRB,.825E-03_JPRB,&
+&.825E-03_JPRB,.858E-03_JPRB,.858E-03_JPRB,.958E-03_JPRB,.958E-03_JPRB,.124E-02_JPRB,.124E-02_JPRB,&
+&.146E-02_JPRB,.146E-02_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 44 -82.0
+ZAER (:,44,12) = (/&
+&.714E-03_JPRB,.714E-03_JPRB,.740E-03_JPRB,.740E-03_JPRB,.755E-03_JPRB,.755E-03_JPRB,.792E-03_JPRB,&
+&.792E-03_JPRB,.812E-03_JPRB,.812E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.836E-03_JPRB,.836E-03_JPRB,&
+&.825E-03_JPRB,.825E-03_JPRB,.814E-03_JPRB,.814E-03_JPRB,.773E-03_JPRB,.773E-03_JPRB,.678E-03_JPRB,&
+&.678E-03_JPRB,.631E-03_JPRB,.631E-03_JPRB,.632E-03_JPRB,.632E-03_JPRB,.660E-03_JPRB,.660E-03_JPRB,&
+&.650E-03_JPRB,.650E-03_JPRB,.621E-03_JPRB,.621E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.652E-03_JPRB,&
+&.652E-03_JPRB,.917E-03_JPRB,.917E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.839E-03_JPRB,.839E-03_JPRB,&
+&.623E-03_JPRB,.623E-03_JPRB,.547E-03_JPRB,.547E-03_JPRB,.533E-03_JPRB,.533E-03_JPRB,.526E-03_JPRB,&
+&.526E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.497E-03_JPRB,.497E-03_JPRB,&
+&.507E-03_JPRB,.507E-03_JPRB,.544E-03_JPRB,.544E-03_JPRB,.618E-03_JPRB,.618E-03_JPRB,.679E-03_JPRB,&
+&.679E-03_JPRB,.686E-03_JPRB,.686E-03_JPRB,.696E-03_JPRB,.696E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,&
+&.713E-03_JPRB,.713E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 45 -86.0
+ZAER (:,45,12) = (/&
+&.714E-03_JPRB,.714E-03_JPRB,.740E-03_JPRB,.740E-03_JPRB,.755E-03_JPRB,.755E-03_JPRB,.792E-03_JPRB,&
+&.792E-03_JPRB,.812E-03_JPRB,.812E-03_JPRB,.825E-03_JPRB,.825E-03_JPRB,.836E-03_JPRB,.836E-03_JPRB,&
+&.825E-03_JPRB,.825E-03_JPRB,.814E-03_JPRB,.814E-03_JPRB,.773E-03_JPRB,.773E-03_JPRB,.678E-03_JPRB,&
+&.678E-03_JPRB,.631E-03_JPRB,.631E-03_JPRB,.632E-03_JPRB,.632E-03_JPRB,.660E-03_JPRB,.660E-03_JPRB,&
+&.650E-03_JPRB,.650E-03_JPRB,.621E-03_JPRB,.621E-03_JPRB,.591E-03_JPRB,.591E-03_JPRB,.652E-03_JPRB,&
+&.652E-03_JPRB,.917E-03_JPRB,.917E-03_JPRB,.122E-02_JPRB,.122E-02_JPRB,.839E-03_JPRB,.839E-03_JPRB,&
+&.623E-03_JPRB,.623E-03_JPRB,.547E-03_JPRB,.547E-03_JPRB,.533E-03_JPRB,.533E-03_JPRB,.526E-03_JPRB,&
+&.526E-03_JPRB,.512E-03_JPRB,.512E-03_JPRB,.499E-03_JPRB,.499E-03_JPRB,.497E-03_JPRB,.497E-03_JPRB,&
+&.507E-03_JPRB,.507E-03_JPRB,.544E-03_JPRB,.544E-03_JPRB,.618E-03_JPRB,.618E-03_JPRB,.679E-03_JPRB,&
+&.679E-03_JPRB,.686E-03_JPRB,.686E-03_JPRB,.696E-03_JPRB,.696E-03_JPRB,.725E-03_JPRB,.725E-03_JPRB,&
+&.713E-03_JPRB,.713E-03_JPRB/)
+!-- Sea Salt Aerosol         month: 12 --- lat: 46 -90.0
+ZAER (:,46,12) = (/&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,.625E-03_JPRB,&
+&.625E-03_JPRB,.625E-03_JPRB/)
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=12  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSS(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SEA-SALT AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESS_12
Index: LMDZ5/branches/testing/libf/phymar/suecaesu.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu.F90	(revision 2160)
@@ -0,0 +1,61 @@
+SUBROUTINE SUECAESU
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+      call SUECAESU_01
+      call SUECAESU_02
+      call SUECAESU_03
+      call SUECAESU_04
+      call SUECAESU_05
+      call SUECAESU_06
+      call SUECAESU_07
+      call SUECAESU_08
+      call SUECAESU_09
+      call SUECAESU_10
+      call SUECAESU_11
+      call SUECAESU_12
+
+!-----------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_01.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_01.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_01.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_01
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          January
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,1:1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  1 --- lat:  1  90.0
+ZAER (:, 1, 1) = (/&
+&.571E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,&
+&.583E-02_JPRB,.583E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  2  86.0
+ZAER (:, 2, 1) = (/&
+&.974E-02_JPRB,.106E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.127E-01_JPRB,&
+&.129E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.105E-01_JPRB,.965E-02_JPRB,&
+&.869E-02_JPRB,.797E-02_JPRB,.738E-02_JPRB,.691E-02_JPRB,.642E-02_JPRB,.602E-02_JPRB,.580E-02_JPRB,&
+&.560E-02_JPRB,.555E-02_JPRB,.559E-02_JPRB,.512E-02_JPRB,.517E-02_JPRB,.528E-02_JPRB,.540E-02_JPRB,&
+&.551E-02_JPRB,.560E-02_JPRB,.569E-02_JPRB,.576E-02_JPRB,.581E-02_JPRB,.593E-02_JPRB,.598E-02_JPRB,&
+&.598E-02_JPRB,.546E-02_JPRB,.541E-02_JPRB,.534E-02_JPRB,.532E-02_JPRB,.532E-02_JPRB,.535E-02_JPRB,&
+&.538E-02_JPRB,.539E-02_JPRB,.550E-02_JPRB,.556E-02_JPRB,.563E-02_JPRB,.569E-02_JPRB,.551E-02_JPRB,&
+&.543E-02_JPRB,.533E-02_JPRB,.525E-02_JPRB,.516E-02_JPRB,.509E-02_JPRB,.507E-02_JPRB,.499E-02_JPRB,&
+&.499E-02_JPRB,.497E-02_JPRB,.498E-02_JPRB,.500E-02_JPRB,.533E-02_JPRB,.536E-02_JPRB,.540E-02_JPRB,&
+&.549E-02_JPRB,.568E-02_JPRB,.584E-02_JPRB,.604E-02_JPRB,.629E-02_JPRB,.661E-02_JPRB,.700E-02_JPRB,&
+&.740E-02_JPRB,.792E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  3  82.0
+ZAER (:, 3, 1) = (/&
+&.211E-01_JPRB,.229E-01_JPRB,.247E-01_JPRB,.260E-01_JPRB,.277E-01_JPRB,.287E-01_JPRB,.269E-01_JPRB,&
+&.239E-01_JPRB,.215E-01_JPRB,.195E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.144E-01_JPRB,.137E-01_JPRB,&
+&.132E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.943E-02_JPRB,&
+&.856E-02_JPRB,.750E-02_JPRB,.628E-02_JPRB,.715E-02_JPRB,.753E-02_JPRB,.787E-02_JPRB,.813E-02_JPRB,&
+&.843E-02_JPRB,.864E-02_JPRB,.742E-02_JPRB,.720E-02_JPRB,.713E-02_JPRB,.714E-02_JPRB,.738E-02_JPRB,&
+&.767E-02_JPRB,.634E-02_JPRB,.627E-02_JPRB,.625E-02_JPRB,.624E-02_JPRB,.627E-02_JPRB,.623E-02_JPRB,&
+&.573E-02_JPRB,.558E-02_JPRB,.559E-02_JPRB,.557E-02_JPRB,.565E-02_JPRB,.574E-02_JPRB,.570E-02_JPRB,&
+&.567E-02_JPRB,.560E-02_JPRB,.555E-02_JPRB,.545E-02_JPRB,.531E-02_JPRB,.549E-02_JPRB,.545E-02_JPRB,&
+&.530E-02_JPRB,.516E-02_JPRB,.505E-02_JPRB,.492E-02_JPRB,.533E-02_JPRB,.525E-02_JPRB,.534E-02_JPRB,&
+&.554E-02_JPRB,.588E-02_JPRB,.627E-02_JPRB,.790E-02_JPRB,.774E-02_JPRB,.829E-02_JPRB,.981E-02_JPRB,&
+&.122E-01_JPRB,.157E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  4  78.0
+ZAER (:, 4, 1) = (/&
+&.306E-01_JPRB,.322E-01_JPRB,.332E-01_JPRB,.323E-01_JPRB,.337E-01_JPRB,.366E-01_JPRB,.348E-01_JPRB,&
+&.296E-01_JPRB,.252E-01_JPRB,.175E-01_JPRB,.148E-01_JPRB,.131E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,&
+&.122E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,&
+&.101E-01_JPRB,.848E-02_JPRB,.777E-02_JPRB,.860E-02_JPRB,.906E-02_JPRB,.105E-01_JPRB,.108E-01_JPRB,&
+&.106E-01_JPRB,.102E-01_JPRB,.931E-02_JPRB,.917E-02_JPRB,.884E-02_JPRB,.705E-02_JPRB,.693E-02_JPRB,&
+&.698E-02_JPRB,.629E-02_JPRB,.647E-02_JPRB,.662E-02_JPRB,.655E-02_JPRB,.659E-02_JPRB,.677E-02_JPRB,&
+&.691E-02_JPRB,.705E-02_JPRB,.729E-02_JPRB,.792E-02_JPRB,.786E-02_JPRB,.780E-02_JPRB,.787E-02_JPRB,&
+&.749E-02_JPRB,.693E-02_JPRB,.595E-02_JPRB,.593E-02_JPRB,.623E-02_JPRB,.610E-02_JPRB,.589E-02_JPRB,&
+&.571E-02_JPRB,.575E-02_JPRB,.555E-02_JPRB,.544E-02_JPRB,.583E-02_JPRB,.612E-02_JPRB,.671E-02_JPRB,&
+&.727E-02_JPRB,.775E-02_JPRB,.884E-02_JPRB,.101E-01_JPRB,.106E-01_JPRB,.128E-01_JPRB,.193E-01_JPRB,&
+&.243E-01_JPRB,.276E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  5  74.0
+ZAER (:, 5, 1) = (/&
+&.317E-01_JPRB,.338E-01_JPRB,.327E-01_JPRB,.341E-01_JPRB,.372E-01_JPRB,.417E-01_JPRB,.423E-01_JPRB,&
+&.364E-01_JPRB,.319E-01_JPRB,.277E-01_JPRB,.242E-01_JPRB,.201E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,&
+&.178E-01_JPRB,.187E-01_JPRB,.205E-01_JPRB,.216E-01_JPRB,.193E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,&
+&.156E-01_JPRB,.112E-01_JPRB,.914E-02_JPRB,.959E-02_JPRB,.123E-01_JPRB,.157E-01_JPRB,.167E-01_JPRB,&
+&.148E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.135E-01_JPRB,.117E-01_JPRB,.885E-02_JPRB,.752E-02_JPRB,&
+&.701E-02_JPRB,.668E-02_JPRB,.640E-02_JPRB,.635E-02_JPRB,.662E-02_JPRB,.739E-02_JPRB,.868E-02_JPRB,&
+&.949E-02_JPRB,.966E-02_JPRB,.903E-02_JPRB,.862E-02_JPRB,.867E-02_JPRB,.947E-02_JPRB,.108E-01_JPRB,&
+&.121E-01_JPRB,.113E-01_JPRB,.890E-02_JPRB,.762E-02_JPRB,.765E-02_JPRB,.748E-02_JPRB,.720E-02_JPRB,&
+&.723E-02_JPRB,.719E-02_JPRB,.711E-02_JPRB,.723E-02_JPRB,.750E-02_JPRB,.847E-02_JPRB,.968E-02_JPRB,&
+&.105E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.138E-01_JPRB,.155E-01_JPRB,.175E-01_JPRB,.216E-01_JPRB,&
+&.273E-01_JPRB,.305E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  6  70.0
+ZAER (:, 6, 1) = (/&
+&.274E-01_JPRB,.318E-01_JPRB,.358E-01_JPRB,.372E-01_JPRB,.382E-01_JPRB,.417E-01_JPRB,.445E-01_JPRB,&
+&.393E-01_JPRB,.364E-01_JPRB,.362E-01_JPRB,.349E-01_JPRB,.315E-01_JPRB,.272E-01_JPRB,.260E-01_JPRB,&
+&.252E-01_JPRB,.209E-01_JPRB,.235E-01_JPRB,.259E-01_JPRB,.240E-01_JPRB,.278E-01_JPRB,.284E-01_JPRB,&
+&.268E-01_JPRB,.223E-01_JPRB,.163E-01_JPRB,.142E-01_JPRB,.156E-01_JPRB,.170E-01_JPRB,.214E-01_JPRB,&
+&.245E-01_JPRB,.200E-01_JPRB,.185E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.112E-01_JPRB,.981E-02_JPRB,&
+&.854E-02_JPRB,.829E-02_JPRB,.884E-02_JPRB,.110E-01_JPRB,.158E-01_JPRB,.220E-01_JPRB,.283E-01_JPRB,&
+&.279E-01_JPRB,.235E-01_JPRB,.192E-01_JPRB,.150E-01_JPRB,.118E-01_JPRB,.100E-01_JPRB,.123E-01_JPRB,&
+&.184E-01_JPRB,.245E-01_JPRB,.191E-01_JPRB,.135E-01_JPRB,.999E-02_JPRB,.867E-02_JPRB,.722E-02_JPRB,&
+&.688E-02_JPRB,.725E-02_JPRB,.777E-02_JPRB,.850E-02_JPRB,.948E-02_JPRB,.103E-01_JPRB,.110E-01_JPRB,&
+&.112E-01_JPRB,.117E-01_JPRB,.139E-01_JPRB,.160E-01_JPRB,.177E-01_JPRB,.202E-01_JPRB,.243E-01_JPRB,&
+&.285E-01_JPRB,.282E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  7  66.0
+ZAER (:, 7, 1) = (/&
+&.336E-01_JPRB,.373E-01_JPRB,.384E-01_JPRB,.403E-01_JPRB,.404E-01_JPRB,.411E-01_JPRB,.385E-01_JPRB,&
+&.388E-01_JPRB,.409E-01_JPRB,.450E-01_JPRB,.447E-01_JPRB,.392E-01_JPRB,.340E-01_JPRB,.266E-01_JPRB,&
+&.240E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.236E-01_JPRB,.246E-01_JPRB,.237E-01_JPRB,.236E-01_JPRB,&
+&.247E-01_JPRB,.264E-01_JPRB,.220E-01_JPRB,.225E-01_JPRB,.250E-01_JPRB,.249E-01_JPRB,.280E-01_JPRB,&
+&.314E-01_JPRB,.301E-01_JPRB,.254E-01_JPRB,.242E-01_JPRB,.220E-01_JPRB,.177E-01_JPRB,.152E-01_JPRB,&
+&.138E-01_JPRB,.148E-01_JPRB,.195E-01_JPRB,.235E-01_JPRB,.296E-01_JPRB,.324E-01_JPRB,.335E-01_JPRB,&
+&.389E-01_JPRB,.395E-01_JPRB,.353E-01_JPRB,.323E-01_JPRB,.337E-01_JPRB,.311E-01_JPRB,.312E-01_JPRB,&
+&.307E-01_JPRB,.309E-01_JPRB,.289E-01_JPRB,.259E-01_JPRB,.211E-01_JPRB,.171E-01_JPRB,.147E-01_JPRB,&
+&.130E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.125E-01_JPRB,.139E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,&
+&.149E-01_JPRB,.173E-01_JPRB,.211E-01_JPRB,.228E-01_JPRB,.249E-01_JPRB,.279E-01_JPRB,.301E-01_JPRB,&
+&.299E-01_JPRB,.306E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  8  62.0
+ZAER (:, 8, 1) = (/&
+&.339E-01_JPRB,.349E-01_JPRB,.337E-01_JPRB,.329E-01_JPRB,.334E-01_JPRB,.344E-01_JPRB,.335E-01_JPRB,&
+&.324E-01_JPRB,.332E-01_JPRB,.348E-01_JPRB,.364E-01_JPRB,.353E-01_JPRB,.310E-01_JPRB,.240E-01_JPRB,&
+&.235E-01_JPRB,.237E-01_JPRB,.254E-01_JPRB,.252E-01_JPRB,.244E-01_JPRB,.233E-01_JPRB,.223E-01_JPRB,&
+&.199E-01_JPRB,.194E-01_JPRB,.208E-01_JPRB,.235E-01_JPRB,.267E-01_JPRB,.299E-01_JPRB,.261E-01_JPRB,&
+&.257E-01_JPRB,.290E-01_JPRB,.283E-01_JPRB,.248E-01_JPRB,.247E-01_JPRB,.272E-01_JPRB,.268E-01_JPRB,&
+&.267E-01_JPRB,.262E-01_JPRB,.291E-01_JPRB,.340E-01_JPRB,.376E-01_JPRB,.382E-01_JPRB,.372E-01_JPRB,&
+&.367E-01_JPRB,.391E-01_JPRB,.413E-01_JPRB,.405E-01_JPRB,.362E-01_JPRB,.338E-01_JPRB,.313E-01_JPRB,&
+&.306E-01_JPRB,.294E-01_JPRB,.294E-01_JPRB,.324E-01_JPRB,.352E-01_JPRB,.360E-01_JPRB,.297E-01_JPRB,&
+&.278E-01_JPRB,.247E-01_JPRB,.200E-01_JPRB,.179E-01_JPRB,.228E-01_JPRB,.256E-01_JPRB,.210E-01_JPRB,&
+&.212E-01_JPRB,.241E-01_JPRB,.258E-01_JPRB,.259E-01_JPRB,.265E-01_JPRB,.257E-01_JPRB,.267E-01_JPRB,&
+&.269E-01_JPRB,.299E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat:  9  58.0
+ZAER (:, 9, 1) = (/&
+&.248E-01_JPRB,.254E-01_JPRB,.263E-01_JPRB,.277E-01_JPRB,.294E-01_JPRB,.301E-01_JPRB,.299E-01_JPRB,&
+&.305E-01_JPRB,.297E-01_JPRB,.277E-01_JPRB,.280E-01_JPRB,.302E-01_JPRB,.289E-01_JPRB,.249E-01_JPRB,&
+&.226E-01_JPRB,.215E-01_JPRB,.224E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.208E-01_JPRB,.209E-01_JPRB,&
+&.208E-01_JPRB,.206E-01_JPRB,.200E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.197E-01_JPRB,.212E-01_JPRB,&
+&.230E-01_JPRB,.247E-01_JPRB,.249E-01_JPRB,.233E-01_JPRB,.288E-01_JPRB,.299E-01_JPRB,.319E-01_JPRB,&
+&.334E-01_JPRB,.345E-01_JPRB,.373E-01_JPRB,.384E-01_JPRB,.398E-01_JPRB,.402E-01_JPRB,.369E-01_JPRB,&
+&.332E-01_JPRB,.323E-01_JPRB,.311E-01_JPRB,.308E-01_JPRB,.300E-01_JPRB,.298E-01_JPRB,.263E-01_JPRB,&
+&.281E-01_JPRB,.295E-01_JPRB,.307E-01_JPRB,.310E-01_JPRB,.307E-01_JPRB,.320E-01_JPRB,.313E-01_JPRB,&
+&.307E-01_JPRB,.294E-01_JPRB,.289E-01_JPRB,.267E-01_JPRB,.298E-01_JPRB,.295E-01_JPRB,.228E-01_JPRB,&
+&.207E-01_JPRB,.225E-01_JPRB,.232E-01_JPRB,.242E-01_JPRB,.236E-01_JPRB,.228E-01_JPRB,.230E-01_JPRB,&
+&.244E-01_JPRB,.248E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 10  54.0
+ZAER (:,10, 1) = (/&
+&.209E-01_JPRB,.225E-01_JPRB,.237E-01_JPRB,.246E-01_JPRB,.250E-01_JPRB,.253E-01_JPRB,.265E-01_JPRB,&
+&.277E-01_JPRB,.266E-01_JPRB,.256E-01_JPRB,.262E-01_JPRB,.277E-01_JPRB,.270E-01_JPRB,.242E-01_JPRB,&
+&.230E-01_JPRB,.231E-01_JPRB,.226E-01_JPRB,.213E-01_JPRB,.207E-01_JPRB,.201E-01_JPRB,.207E-01_JPRB,&
+&.204E-01_JPRB,.111E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.180E-01_JPRB,.194E-01_JPRB,&
+&.209E-01_JPRB,.218E-01_JPRB,.223E-01_JPRB,.238E-01_JPRB,.265E-01_JPRB,.255E-01_JPRB,.260E-01_JPRB,&
+&.307E-01_JPRB,.314E-01_JPRB,.318E-01_JPRB,.313E-01_JPRB,.305E-01_JPRB,.287E-01_JPRB,.275E-01_JPRB,&
+&.256E-01_JPRB,.217E-01_JPRB,.205E-01_JPRB,.211E-01_JPRB,.235E-01_JPRB,.260E-01_JPRB,.260E-01_JPRB,&
+&.258E-01_JPRB,.259E-01_JPRB,.248E-01_JPRB,.245E-01_JPRB,.247E-01_JPRB,.233E-01_JPRB,.224E-01_JPRB,&
+&.236E-01_JPRB,.234E-01_JPRB,.245E-01_JPRB,.258E-01_JPRB,.258E-01_JPRB,.244E-01_JPRB,.245E-01_JPRB,&
+&.225E-01_JPRB,.208E-01_JPRB,.209E-01_JPRB,.212E-01_JPRB,.212E-01_JPRB,.209E-01_JPRB,.203E-01_JPRB,&
+&.208E-01_JPRB,.210E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 11  50.0
+ZAER (:,11, 1) = (/&
+&.206E-01_JPRB,.216E-01_JPRB,.224E-01_JPRB,.222E-01_JPRB,.218E-01_JPRB,.217E-01_JPRB,.217E-01_JPRB,&
+&.221E-01_JPRB,.231E-01_JPRB,.227E-01_JPRB,.219E-01_JPRB,.226E-01_JPRB,.224E-01_JPRB,.203E-01_JPRB,&
+&.196E-01_JPRB,.199E-01_JPRB,.200E-01_JPRB,.182E-01_JPRB,.168E-01_JPRB,.164E-01_JPRB,.161E-01_JPRB,&
+&.149E-01_JPRB,.864E-02_JPRB,.145E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.152E-01_JPRB,.167E-01_JPRB,&
+&.184E-01_JPRB,.201E-01_JPRB,.213E-01_JPRB,.232E-01_JPRB,.244E-01_JPRB,.242E-01_JPRB,.225E-01_JPRB,&
+&.227E-01_JPRB,.235E-01_JPRB,.230E-01_JPRB,.218E-01_JPRB,.211E-01_JPRB,.210E-01_JPRB,.186E-01_JPRB,&
+&.169E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.214E-01_JPRB,.228E-01_JPRB,.212E-01_JPRB,&
+&.215E-01_JPRB,.226E-01_JPRB,.213E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.190E-01_JPRB,.174E-01_JPRB,&
+&.175E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.195E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,.214E-01_JPRB,&
+&.219E-01_JPRB,.214E-01_JPRB,.200E-01_JPRB,.193E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,.197E-01_JPRB,&
+&.195E-01_JPRB,.196E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 12  46.0
+ZAER (:,12, 1) = (/&
+&.202E-01_JPRB,.202E-01_JPRB,.192E-01_JPRB,.187E-01_JPRB,.190E-01_JPRB,.185E-01_JPRB,.179E-01_JPRB,&
+&.175E-01_JPRB,.174E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.188E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,&
+&.155E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.154E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.150E-01_JPRB,&
+&.144E-01_JPRB,.813E-02_JPRB,.145E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,&
+&.167E-01_JPRB,.170E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.180E-01_JPRB,.177E-01_JPRB,.182E-01_JPRB,&
+&.186E-01_JPRB,.187E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.181E-01_JPRB,.174E-01_JPRB,&
+&.165E-01_JPRB,.168E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.193E-01_JPRB,.207E-01_JPRB,.202E-01_JPRB,&
+&.212E-01_JPRB,.207E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.161E-01_JPRB,&
+&.155E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.164E-01_JPRB,.181E-01_JPRB,.195E-01_JPRB,&
+&.191E-01_JPRB,.186E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,.186E-01_JPRB,.188E-01_JPRB,.190E-01_JPRB,&
+&.181E-01_JPRB,.188E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 13  42.0
+ZAER (:,13, 1) = (/&
+&.201E-01_JPRB,.189E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.173E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,&
+&.136E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,&
+&.146E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,&
+&.144E-01_JPRB,.879E-02_JPRB,.106E-01_JPRB,.191E-01_JPRB,.198E-01_JPRB,.176E-01_JPRB,.172E-01_JPRB,&
+&.171E-01_JPRB,.174E-01_JPRB,.168E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,&
+&.161E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.152E-01_JPRB,.158E-01_JPRB,.162E-01_JPRB,&
+&.158E-01_JPRB,.171E-01_JPRB,.179E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.174E-01_JPRB,&
+&.169E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,.144E-01_JPRB,.121E-01_JPRB,.130E-01_JPRB,&
+&.147E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.147E-01_JPRB,.168E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,&
+&.173E-01_JPRB,.177E-01_JPRB,.175E-01_JPRB,.181E-01_JPRB,.184E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,&
+&.169E-01_JPRB,.173E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 14  38.0
+ZAER (:,14, 1) = (/&
+&.176E-01_JPRB,.145E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,.158E-01_JPRB,.134E-01_JPRB,.121E-01_JPRB,&
+&.136E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,&
+&.169E-01_JPRB,.120E-01_JPRB,.153E-01_JPRB,.154E-01_JPRB,.269E-01_JPRB,.232E-01_JPRB,.215E-01_JPRB,&
+&.203E-01_JPRB,.201E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.170E-01_JPRB,.155E-01_JPRB,&
+&.150E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.150E-01_JPRB,.181E-01_JPRB,.188E-01_JPRB,&
+&.176E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,&
+&.149E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,&
+&.120E-01_JPRB,.132E-01_JPRB,.146E-01_JPRB,.181E-01_JPRB,.177E-01_JPRB,.189E-01_JPRB,.179E-01_JPRB,&
+&.182E-01_JPRB,.191E-01_JPRB,.117E-01_JPRB,.222E-01_JPRB,.214E-01_JPRB,.183E-01_JPRB,.165E-01_JPRB,&
+&.158E-01_JPRB,.147E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 15  34.0
+ZAER (:,15, 1) = (/&
+&.149E-01_JPRB,.154E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,&
+&.147E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,&
+&.140E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,&
+&.175E-01_JPRB,.146E-01_JPRB,.213E-01_JPRB,.188E-01_JPRB,.188E-01_JPRB,.275E-01_JPRB,.228E-01_JPRB,&
+&.215E-01_JPRB,.206E-01_JPRB,.199E-01_JPRB,.192E-01_JPRB,.178E-01_JPRB,.159E-01_JPRB,.147E-01_JPRB,&
+&.134E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.149E-01_JPRB,.175E-01_JPRB,.116E-01_JPRB,.216E-01_JPRB,&
+&.213E-01_JPRB,.186E-01_JPRB,.170E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,&
+&.149E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,.118E-01_JPRB,.100E-01_JPRB,&
+&.104E-01_JPRB,.123E-01_JPRB,.167E-01_JPRB,.220E-01_JPRB,.123E-01_JPRB,.196E-01_JPRB,.173E-01_JPRB,&
+&.186E-01_JPRB,.111E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.186E-01_JPRB,.161E-01_JPRB,.152E-01_JPRB,&
+&.148E-01_JPRB,.153E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 16  30.0
+ZAER (:,16, 1) = (/&
+&.150E-01_JPRB,.154E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,&
+&.157E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.154E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,&
+&.147E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,&
+&.229E-01_JPRB,.190E-01_JPRB,.215E-01_JPRB,.199E-01_JPRB,.192E-01_JPRB,.292E-01_JPRB,.250E-01_JPRB,&
+&.214E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.186E-01_JPRB,.173E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,&
+&.146E-01_JPRB,.151E-01_JPRB,.168E-01_JPRB,.194E-01_JPRB,.216E-01_JPRB,.128E-01_JPRB,.172E-01_JPRB,&
+&.164E-01_JPRB,.246E-01_JPRB,.180E-01_JPRB,.161E-01_JPRB,.150E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,&
+&.163E-01_JPRB,.150E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,.135E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.144E-01_JPRB,.224E-01_JPRB,.166E-01_JPRB,.124E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,&
+&.126E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.109E-01_JPRB,.174E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,&
+&.148E-01_JPRB,.149E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 17  26.0
+ZAER (:,17, 1) = (/&
+&.157E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,&
+&.153E-01_JPRB,.153E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.180E-01_JPRB,.189E-01_JPRB,.197E-01_JPRB,&
+&.175E-01_JPRB,.155E-01_JPRB,.145E-01_JPRB,.123E-01_JPRB,.132E-01_JPRB,.154E-01_JPRB,.189E-01_JPRB,&
+&.325E-01_JPRB,.190E-01_JPRB,.186E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.180E-01_JPRB,.304E-01_JPRB,&
+&.204E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.156E-01_JPRB,.159E-01_JPRB,&
+&.167E-01_JPRB,.161E-01_JPRB,.188E-01_JPRB,.226E-01_JPRB,.126E-01_JPRB,.137E-01_JPRB,.210E-01_JPRB,&
+&.177E-01_JPRB,.254E-01_JPRB,.180E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,&
+&.165E-01_JPRB,.156E-01_JPRB,.143E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.151E-01_JPRB,.237E-01_JPRB,.346E-01_JPRB,.202E-01_JPRB,.135E-01_JPRB,.123E-01_JPRB,.138E-01_JPRB,&
+&.167E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.108E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.192E-01_JPRB,&
+&.178E-01_JPRB,.167E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 18  22.0
+ZAER (:,18, 1) = (/&
+&.183E-01_JPRB,.164E-01_JPRB,.157E-01_JPRB,.148E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,&
+&.159E-01_JPRB,.166E-01_JPRB,.175E-01_JPRB,.185E-01_JPRB,.198E-01_JPRB,.205E-01_JPRB,.207E-01_JPRB,&
+&.205E-01_JPRB,.223E-01_JPRB,.224E-01_JPRB,.230E-01_JPRB,.273E-01_JPRB,.313E-01_JPRB,.366E-01_JPRB,&
+&.491E-01_JPRB,.263E-01_JPRB,.182E-01_JPRB,.174E-01_JPRB,.145E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,&
+&.184E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,&
+&.177E-01_JPRB,.203E-01_JPRB,.239E-01_JPRB,.251E-01_JPRB,.112E-01_JPRB,.114E-01_JPRB,.164E-01_JPRB,&
+&.157E-01_JPRB,.136E-01_JPRB,.161E-01_JPRB,.855E-02_JPRB,.145E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,&
+&.152E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.167E-01_JPRB,&
+&.227E-01_JPRB,.316E-01_JPRB,.379E-01_JPRB,.324E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.153E-01_JPRB,&
+&.185E-01_JPRB,.146E-01_JPRB,.126E-01_JPRB,.196E-01_JPRB,.223E-01_JPRB,.274E-01_JPRB,.313E-01_JPRB,&
+&.267E-01_JPRB,.216E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 19  18.0
+ZAER (:,19, 1) = (/&
+&.180E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,.169E-01_JPRB,.177E-01_JPRB,.183E-01_JPRB,&
+&.188E-01_JPRB,.195E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.199E-01_JPRB,.183E-01_JPRB,.190E-01_JPRB,&
+&.207E-01_JPRB,.250E-01_JPRB,.275E-01_JPRB,.304E-01_JPRB,.337E-01_JPRB,.394E-01_JPRB,.526E-01_JPRB,&
+&.962E-01_JPRB,.318E-01_JPRB,.205E-01_JPRB,.155E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.126E-01_JPRB,&
+&.106E-01_JPRB,.156E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.167E-01_JPRB,&
+&.196E-01_JPRB,.259E-01_JPRB,.299E-01_JPRB,.300E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.149E-01_JPRB,&
+&.116E-01_JPRB,.916E-02_JPRB,.130E-01_JPRB,.781E-02_JPRB,.126E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,&
+&.143E-01_JPRB,.149E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,.182E-01_JPRB,.190E-01_JPRB,.211E-01_JPRB,&
+&.268E-01_JPRB,.326E-01_JPRB,.386E-01_JPRB,.361E-01_JPRB,.297E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,&
+&.172E-01_JPRB,.158E-01_JPRB,.135E-01_JPRB,.240E-01_JPRB,.295E-01_JPRB,.353E-01_JPRB,.468E-01_JPRB,&
+&.386E-01_JPRB,.226E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 20  14.0
+ZAER (:,20, 1) = (/&
+&.181E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.188E-01_JPRB,.197E-01_JPRB,.211E-01_JPRB,.222E-01_JPRB,&
+&.230E-01_JPRB,.238E-01_JPRB,.241E-01_JPRB,.233E-01_JPRB,.219E-01_JPRB,.197E-01_JPRB,.207E-01_JPRB,&
+&.242E-01_JPRB,.265E-01_JPRB,.280E-01_JPRB,.296E-01_JPRB,.338E-01_JPRB,.447E-01_JPRB,.652E-01_JPRB,&
+&.390E-01_JPRB,.269E-01_JPRB,.184E-01_JPRB,.133E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.121E-01_JPRB,&
+&.110E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,&
+&.197E-01_JPRB,.225E-01_JPRB,.279E-01_JPRB,.274E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.150E-01_JPRB,&
+&.113E-01_JPRB,.793E-02_JPRB,.685E-02_JPRB,.123E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,.131E-01_JPRB,&
+&.142E-01_JPRB,.152E-01_JPRB,.168E-01_JPRB,.184E-01_JPRB,.207E-01_JPRB,.233E-01_JPRB,.269E-01_JPRB,&
+&.319E-01_JPRB,.388E-01_JPRB,.442E-01_JPRB,.352E-01_JPRB,.343E-01_JPRB,.331E-01_JPRB,.189E-01_JPRB,&
+&.200E-01_JPRB,.343E-01_JPRB,.327E-01_JPRB,.331E-01_JPRB,.354E-01_JPRB,.399E-01_JPRB,.492E-01_JPRB,&
+&.366E-01_JPRB,.223E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 21  10.0
+ZAER (:,21, 1) = (/&
+&.200E-01_JPRB,.203E-01_JPRB,.212E-01_JPRB,.219E-01_JPRB,.232E-01_JPRB,.248E-01_JPRB,.261E-01_JPRB,&
+&.271E-01_JPRB,.284E-01_JPRB,.286E-01_JPRB,.281E-01_JPRB,.272E-01_JPRB,.270E-01_JPRB,.266E-01_JPRB,&
+&.283E-01_JPRB,.313E-01_JPRB,.315E-01_JPRB,.310E-01_JPRB,.418E-01_JPRB,.569E-01_JPRB,.457E-01_JPRB,&
+&.204E-01_JPRB,.196E-01_JPRB,.140E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.120E-01_JPRB,.177E-01_JPRB,.171E-01_JPRB,.170E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,&
+&.153E-01_JPRB,.190E-01_JPRB,.206E-01_JPRB,.221E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.129E-01_JPRB,&
+&.102E-01_JPRB,.788E-02_JPRB,.114E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,&
+&.147E-01_JPRB,.161E-01_JPRB,.181E-01_JPRB,.202E-01_JPRB,.238E-01_JPRB,.271E-01_JPRB,.316E-01_JPRB,&
+&.402E-01_JPRB,.637E-01_JPRB,.814E-01_JPRB,.517E-01_JPRB,.424E-01_JPRB,.426E-01_JPRB,.406E-01_JPRB,&
+&.455E-01_JPRB,.510E-01_JPRB,.498E-01_JPRB,.445E-01_JPRB,.435E-01_JPRB,.418E-01_JPRB,.414E-01_JPRB,&
+&.308E-01_JPRB,.219E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 22   6.0
+ZAER (:,22, 1) = (/&
+&.234E-01_JPRB,.241E-01_JPRB,.250E-01_JPRB,.259E-01_JPRB,.274E-01_JPRB,.293E-01_JPRB,.308E-01_JPRB,&
+&.320E-01_JPRB,.342E-01_JPRB,.348E-01_JPRB,.345E-01_JPRB,.325E-01_JPRB,.316E-01_JPRB,.326E-01_JPRB,&
+&.344E-01_JPRB,.376E-01_JPRB,.407E-01_JPRB,.424E-01_JPRB,.482E-01_JPRB,.489E-01_JPRB,.242E-01_JPRB,&
+&.192E-01_JPRB,.163E-01_JPRB,.145E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.148E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.191E-01_JPRB,.195E-01_JPRB,.190E-01_JPRB,.178E-01_JPRB,.169E-01_JPRB,.172E-01_JPRB,&
+&.189E-01_JPRB,.211E-01_JPRB,.209E-01_JPRB,.213E-01_JPRB,.121E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,&
+&.109E-01_JPRB,.891E-02_JPRB,.129E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,&
+&.158E-01_JPRB,.173E-01_JPRB,.201E-01_JPRB,.234E-01_JPRB,.283E-01_JPRB,.325E-01_JPRB,.392E-01_JPRB,&
+&.536E-01_JPRB,.791E-01_JPRB,.855E-01_JPRB,.651E-01_JPRB,.554E-01_JPRB,.540E-01_JPRB,.534E-01_JPRB,&
+&.567E-01_JPRB,.334E-01_JPRB,.370E-01_JPRB,.589E-01_JPRB,.479E-01_JPRB,.409E-01_JPRB,.335E-01_JPRB,&
+&.273E-01_JPRB,.236E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 23   2.0
+ZAER (:,23, 1) = (/&
+&.288E-01_JPRB,.304E-01_JPRB,.325E-01_JPRB,.338E-01_JPRB,.357E-01_JPRB,.388E-01_JPRB,.410E-01_JPRB,&
+&.428E-01_JPRB,.474E-01_JPRB,.495E-01_JPRB,.500E-01_JPRB,.526E-01_JPRB,.545E-01_JPRB,.562E-01_JPRB,&
+&.583E-01_JPRB,.563E-01_JPRB,.575E-01_JPRB,.566E-01_JPRB,.604E-01_JPRB,.495E-01_JPRB,.271E-01_JPRB,&
+&.229E-01_JPRB,.174E-01_JPRB,.166E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.173E-01_JPRB,.159E-01_JPRB,&
+&.252E-01_JPRB,.253E-01_JPRB,.251E-01_JPRB,.243E-01_JPRB,.235E-01_JPRB,.222E-01_JPRB,.211E-01_JPRB,&
+&.213E-01_JPRB,.210E-01_JPRB,.213E-01_JPRB,.132E-01_JPRB,.139E-01_JPRB,.152E-01_JPRB,.178E-01_JPRB,&
+&.129E-01_JPRB,.103E-01_JPRB,.863E-02_JPRB,.153E-01_JPRB,.161E-01_JPRB,.167E-01_JPRB,.172E-01_JPRB,&
+&.183E-01_JPRB,.198E-01_JPRB,.225E-01_JPRB,.268E-01_JPRB,.310E-01_JPRB,.357E-01_JPRB,.402E-01_JPRB,&
+&.504E-01_JPRB,.387E-01_JPRB,.604E-01_JPRB,.321E-01_JPRB,.566E-01_JPRB,.626E-01_JPRB,.652E-01_JPRB,&
+&.330E-01_JPRB,.549E-01_JPRB,.565E-01_JPRB,.507E-01_JPRB,.394E-01_JPRB,.340E-01_JPRB,.304E-01_JPRB,&
+&.286E-01_JPRB,.279E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 24  -2.0
+ZAER (:,24, 1) = (/&
+&.372E-01_JPRB,.409E-01_JPRB,.440E-01_JPRB,.475E-01_JPRB,.502E-01_JPRB,.538E-01_JPRB,.569E-01_JPRB,&
+&.608E-01_JPRB,.661E-01_JPRB,.675E-01_JPRB,.697E-01_JPRB,.729E-01_JPRB,.753E-01_JPRB,.758E-01_JPRB,&
+&.748E-01_JPRB,.754E-01_JPRB,.769E-01_JPRB,.638E-01_JPRB,.523E-01_JPRB,.417E-01_JPRB,.406E-01_JPRB,&
+&.205E-01_JPRB,.186E-01_JPRB,.185E-01_JPRB,.183E-01_JPRB,.189E-01_JPRB,.306E-01_JPRB,.304E-01_JPRB,&
+&.306E-01_JPRB,.291E-01_JPRB,.283E-01_JPRB,.263E-01_JPRB,.252E-01_JPRB,.235E-01_JPRB,.223E-01_JPRB,&
+&.215E-01_JPRB,.213E-01_JPRB,.221E-01_JPRB,.137E-01_JPRB,.148E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,&
+&.147E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.190E-01_JPRB,.198E-01_JPRB,.207E-01_JPRB,&
+&.219E-01_JPRB,.231E-01_JPRB,.244E-01_JPRB,.258E-01_JPRB,.279E-01_JPRB,.310E-01_JPRB,.372E-01_JPRB,&
+&.261E-01_JPRB,.526E-01_JPRB,.504E-01_JPRB,.280E-01_JPRB,.641E-01_JPRB,.913E-01_JPRB,.723E-01_JPRB,&
+&.568E-01_JPRB,.515E-01_JPRB,.459E-01_JPRB,.416E-01_JPRB,.348E-01_JPRB,.326E-01_JPRB,.318E-01_JPRB,&
+&.326E-01_JPRB,.346E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 25  -6.0
+ZAER (:,25, 1) = (/&
+&.389E-01_JPRB,.416E-01_JPRB,.442E-01_JPRB,.468E-01_JPRB,.494E-01_JPRB,.518E-01_JPRB,.549E-01_JPRB,&
+&.594E-01_JPRB,.636E-01_JPRB,.665E-01_JPRB,.677E-01_JPRB,.687E-01_JPRB,.704E-01_JPRB,.734E-01_JPRB,&
+&.752E-01_JPRB,.754E-01_JPRB,.733E-01_JPRB,.636E-01_JPRB,.529E-01_JPRB,.433E-01_JPRB,.362E-01_JPRB,&
+&.201E-01_JPRB,.208E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,.335E-01_JPRB,.334E-01_JPRB,.339E-01_JPRB,&
+&.328E-01_JPRB,.325E-01_JPRB,.328E-01_JPRB,.313E-01_JPRB,.297E-01_JPRB,.278E-01_JPRB,.165E-01_JPRB,&
+&.161E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.152E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,&
+&.151E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.141E-01_JPRB,.222E-01_JPRB,.231E-01_JPRB,.238E-01_JPRB,&
+&.249E-01_JPRB,.260E-01_JPRB,.273E-01_JPRB,.262E-01_JPRB,.264E-01_JPRB,.271E-01_JPRB,.311E-01_JPRB,&
+&.360E-01_JPRB,.382E-01_JPRB,.439E-01_JPRB,.488E-01_JPRB,.657E-01_JPRB,.629E-01_JPRB,.514E-01_JPRB,&
+&.470E-01_JPRB,.433E-01_JPRB,.401E-01_JPRB,.376E-01_JPRB,.335E-01_JPRB,.326E-01_JPRB,.329E-01_JPRB,&
+&.344E-01_JPRB,.365E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 26 -10.0
+ZAER (:,26, 1) = (/&
+&.382E-01_JPRB,.410E-01_JPRB,.433E-01_JPRB,.447E-01_JPRB,.450E-01_JPRB,.461E-01_JPRB,.487E-01_JPRB,&
+&.542E-01_JPRB,.591E-01_JPRB,.629E-01_JPRB,.655E-01_JPRB,.690E-01_JPRB,.724E-01_JPRB,.758E-01_JPRB,&
+&.790E-01_JPRB,.804E-01_JPRB,.811E-01_JPRB,.823E-01_JPRB,.908E-01_JPRB,.521E-01_JPRB,.353E-01_JPRB,&
+&.211E-01_JPRB,.207E-01_JPRB,.195E-01_JPRB,.333E-01_JPRB,.335E-01_JPRB,.335E-01_JPRB,.338E-01_JPRB,&
+&.349E-01_JPRB,.376E-01_JPRB,.410E-01_JPRB,.437E-01_JPRB,.430E-01_JPRB,.393E-01_JPRB,.220E-01_JPRB,&
+&.230E-01_JPRB,.244E-01_JPRB,.224E-01_JPRB,.196E-01_JPRB,.176E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,&
+&.140E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.264E-01_JPRB,.270E-01_JPRB,&
+&.274E-01_JPRB,.277E-01_JPRB,.283E-01_JPRB,.284E-01_JPRB,.289E-01_JPRB,.291E-01_JPRB,.317E-01_JPRB,&
+&.317E-01_JPRB,.331E-01_JPRB,.388E-01_JPRB,.476E-01_JPRB,.526E-01_JPRB,.459E-01_JPRB,.428E-01_JPRB,&
+&.412E-01_JPRB,.391E-01_JPRB,.368E-01_JPRB,.348E-01_JPRB,.322E-01_JPRB,.319E-01_JPRB,.328E-01_JPRB,&
+&.344E-01_JPRB,.360E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 27 -14.0
+ZAER (:,27, 1) = (/&
+&.374E-01_JPRB,.420E-01_JPRB,.472E-01_JPRB,.486E-01_JPRB,.423E-01_JPRB,.345E-01_JPRB,.345E-01_JPRB,&
+&.365E-01_JPRB,.425E-01_JPRB,.490E-01_JPRB,.553E-01_JPRB,.629E-01_JPRB,.730E-01_JPRB,.778E-01_JPRB,&
+&.805E-01_JPRB,.800E-01_JPRB,.772E-01_JPRB,.812E-01_JPRB,.373E-01_JPRB,.227E-01_JPRB,.337E-01_JPRB,&
+&.340E-01_JPRB,.347E-01_JPRB,.327E-01_JPRB,.320E-01_JPRB,.319E-01_JPRB,.319E-01_JPRB,.326E-01_JPRB,&
+&.342E-01_JPRB,.380E-01_JPRB,.429E-01_JPRB,.454E-01_JPRB,.467E-01_JPRB,.287E-01_JPRB,.268E-01_JPRB,&
+&.247E-01_JPRB,.234E-01_JPRB,.219E-01_JPRB,.207E-01_JPRB,.221E-01_JPRB,.193E-01_JPRB,.146E-01_JPRB,&
+&.131E-01_JPRB,.143E-01_JPRB,.149E-01_JPRB,.134E-01_JPRB,.243E-01_JPRB,.267E-01_JPRB,.290E-01_JPRB,&
+&.326E-01_JPRB,.342E-01_JPRB,.183E-01_JPRB,.301E-01_JPRB,.336E-01_JPRB,.358E-01_JPRB,.409E-01_JPRB,&
+&.212E-01_JPRB,.200E-01_JPRB,.368E-01_JPRB,.441E-01_JPRB,.444E-01_JPRB,.401E-01_JPRB,.393E-01_JPRB,&
+&.387E-01_JPRB,.376E-01_JPRB,.350E-01_JPRB,.321E-01_JPRB,.306E-01_JPRB,.303E-01_JPRB,.311E-01_JPRB,&
+&.326E-01_JPRB,.346E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 28 -18.0
+ZAER (:,28, 1) = (/&
+&.350E-01_JPRB,.436E-01_JPRB,.592E-01_JPRB,.731E-01_JPRB,.807E-01_JPRB,.255E-01_JPRB,.200E-01_JPRB,&
+&.200E-01_JPRB,.243E-01_JPRB,.298E-01_JPRB,.380E-01_JPRB,.492E-01_JPRB,.637E-01_JPRB,.731E-01_JPRB,&
+&.718E-01_JPRB,.723E-01_JPRB,.348E-01_JPRB,.309E-01_JPRB,.246E-01_JPRB,.344E-01_JPRB,.325E-01_JPRB,&
+&.312E-01_JPRB,.329E-01_JPRB,.319E-01_JPRB,.311E-01_JPRB,.306E-01_JPRB,.312E-01_JPRB,.340E-01_JPRB,&
+&.369E-01_JPRB,.388E-01_JPRB,.404E-01_JPRB,.431E-01_JPRB,.464E-01_JPRB,.280E-01_JPRB,.268E-01_JPRB,&
+&.252E-01_JPRB,.225E-01_JPRB,.208E-01_JPRB,.199E-01_JPRB,.189E-01_JPRB,.201E-01_JPRB,.237E-01_JPRB,&
+&.186E-01_JPRB,.162E-01_JPRB,.282E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.277E-01_JPRB,&
+&.318E-01_JPRB,.417E-01_JPRB,.228E-01_JPRB,.213E-01_JPRB,.376E-01_JPRB,.535E-01_JPRB,.438E-01_JPRB,&
+&.423E-01_JPRB,.283E-01_JPRB,.412E-01_JPRB,.383E-01_JPRB,.360E-01_JPRB,.356E-01_JPRB,.359E-01_JPRB,&
+&.357E-01_JPRB,.361E-01_JPRB,.334E-01_JPRB,.281E-01_JPRB,.262E-01_JPRB,.259E-01_JPRB,.264E-01_JPRB,&
+&.281E-01_JPRB,.314E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 29 -22.0
+ZAER (:,29, 1) = (/&
+&.361E-01_JPRB,.444E-01_JPRB,.552E-01_JPRB,.547E-01_JPRB,.331E-01_JPRB,.171E-01_JPRB,.152E-01_JPRB,&
+&.148E-01_JPRB,.149E-01_JPRB,.170E-01_JPRB,.233E-01_JPRB,.345E-01_JPRB,.480E-01_JPRB,.606E-01_JPRB,&
+&.645E-01_JPRB,.365E-01_JPRB,.287E-01_JPRB,.460E-01_JPRB,.421E-01_JPRB,.395E-01_JPRB,.342E-01_JPRB,&
+&.311E-01_JPRB,.305E-01_JPRB,.309E-01_JPRB,.304E-01_JPRB,.306E-01_JPRB,.316E-01_JPRB,.339E-01_JPRB,&
+&.337E-01_JPRB,.337E-01_JPRB,.350E-01_JPRB,.384E-01_JPRB,.415E-01_JPRB,.248E-01_JPRB,.259E-01_JPRB,&
+&.236E-01_JPRB,.211E-01_JPRB,.205E-01_JPRB,.223E-01_JPRB,.229E-01_JPRB,.216E-01_JPRB,.276E-01_JPRB,&
+&.269E-01_JPRB,.231E-01_JPRB,.242E-01_JPRB,.351E-01_JPRB,.272E-01_JPRB,.207E-01_JPRB,.339E-01_JPRB,&
+&.415E-01_JPRB,.299E-01_JPRB,.284E-01_JPRB,.299E-01_JPRB,.254E-01_JPRB,.307E-01_JPRB,.514E-01_JPRB,&
+&.587E-01_JPRB,.545E-01_JPRB,.413E-01_JPRB,.458E-01_JPRB,.332E-01_JPRB,.317E-01_JPRB,.314E-01_JPRB,&
+&.316E-01_JPRB,.323E-01_JPRB,.280E-01_JPRB,.231E-01_JPRB,.216E-01_JPRB,.213E-01_JPRB,.214E-01_JPRB,&
+&.232E-01_JPRB,.283E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 30 -26.0
+ZAER (:,30, 1) = (/&
+&.240E-01_JPRB,.252E-01_JPRB,.289E-01_JPRB,.310E-01_JPRB,.224E-01_JPRB,.162E-01_JPRB,.147E-01_JPRB,&
+&.147E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.147E-01_JPRB,.211E-01_JPRB,.385E-01_JPRB,.491E-01_JPRB,&
+&.307E-01_JPRB,.258E-01_JPRB,.287E-01_JPRB,.541E-01_JPRB,.459E-01_JPRB,.443E-01_JPRB,.397E-01_JPRB,&
+&.381E-01_JPRB,.314E-01_JPRB,.297E-01_JPRB,.276E-01_JPRB,.271E-01_JPRB,.275E-01_JPRB,.262E-01_JPRB,&
+&.231E-01_JPRB,.227E-01_JPRB,.279E-01_JPRB,.317E-01_JPRB,.375E-01_JPRB,.358E-01_JPRB,.169E-01_JPRB,&
+&.159E-01_JPRB,.149E-01_JPRB,.130E-01_JPRB,.151E-01_JPRB,.203E-01_JPRB,.250E-01_JPRB,.318E-01_JPRB,&
+&.376E-01_JPRB,.305E-01_JPRB,.363E-01_JPRB,.464E-01_JPRB,.378E-01_JPRB,.507E-01_JPRB,.293E-01_JPRB,&
+&.311E-01_JPRB,.399E-01_JPRB,.389E-01_JPRB,.312E-01_JPRB,.198E-01_JPRB,.292E-01_JPRB,.433E-01_JPRB,&
+&.534E-01_JPRB,.647E-01_JPRB,.696E-01_JPRB,.563E-01_JPRB,.493E-01_JPRB,.336E-01_JPRB,.356E-01_JPRB,&
+&.399E-01_JPRB,.398E-01_JPRB,.332E-01_JPRB,.284E-01_JPRB,.247E-01_JPRB,.215E-01_JPRB,.193E-01_JPRB,&
+&.204E-01_JPRB,.229E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 31 -30.0
+ZAER (:,31, 1) = (/&
+&.203E-01_JPRB,.193E-01_JPRB,.210E-01_JPRB,.226E-01_JPRB,.190E-01_JPRB,.171E-01_JPRB,.162E-01_JPRB,&
+&.151E-01_JPRB,.140E-01_JPRB,.132E-01_JPRB,.145E-01_JPRB,.181E-01_JPRB,.294E-01_JPRB,.396E-01_JPRB,&
+&.194E-01_JPRB,.187E-01_JPRB,.198E-01_JPRB,.216E-01_JPRB,.269E-01_JPRB,.235E-01_JPRB,.433E-01_JPRB,&
+&.457E-01_JPRB,.383E-01_JPRB,.340E-01_JPRB,.283E-01_JPRB,.237E-01_JPRB,.236E-01_JPRB,.223E-01_JPRB,&
+&.202E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.209E-01_JPRB,.246E-01_JPRB,.286E-01_JPRB,.126E-01_JPRB,&
+&.122E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.145E-01_JPRB,.179E-01_JPRB,.249E-01_JPRB,.252E-01_JPRB,&
+&.268E-01_JPRB,.339E-01_JPRB,.388E-01_JPRB,.485E-01_JPRB,.381E-01_JPRB,.327E-01_JPRB,.365E-01_JPRB,&
+&.321E-01_JPRB,.371E-01_JPRB,.302E-01_JPRB,.143E-01_JPRB,.852E-02_JPRB,.679E-02_JPRB,.894E-02_JPRB,&
+&.213E-01_JPRB,.842E-01_JPRB,.893E-01_JPRB,.814E-01_JPRB,.544E-01_JPRB,.650E-01_JPRB,.540E-01_JPRB,&
+&.650E-01_JPRB,.484E-01_JPRB,.408E-01_JPRB,.332E-01_JPRB,.301E-01_JPRB,.273E-01_JPRB,.246E-01_JPRB,&
+&.222E-01_JPRB,.217E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 32 -34.0
+ZAER (:,32, 1) = (/&
+&.207E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.204E-01_JPRB,.199E-01_JPRB,.186E-01_JPRB,.172E-01_JPRB,&
+&.160E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.159E-01_JPRB,.228E-01_JPRB,.305E-01_JPRB,.210E-01_JPRB,&
+&.175E-01_JPRB,.153E-01_JPRB,.137E-01_JPRB,.213E-01_JPRB,.290E-01_JPRB,.292E-01_JPRB,.381E-01_JPRB,&
+&.565E-01_JPRB,.539E-01_JPRB,.420E-01_JPRB,.323E-01_JPRB,.260E-01_JPRB,.217E-01_JPRB,.207E-01_JPRB,&
+&.201E-01_JPRB,.169E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,.202E-01_JPRB,.234E-01_JPRB,.266E-01_JPRB,&
+&.172E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.191E-01_JPRB,.435E-01_JPRB,.481E-01_JPRB,.426E-01_JPRB,&
+&.415E-01_JPRB,.448E-01_JPRB,.382E-01_JPRB,.436E-01_JPRB,.332E-01_JPRB,.445E-01_JPRB,.446E-01_JPRB,&
+&.292E-01_JPRB,.293E-01_JPRB,.244E-01_JPRB,.107E-01_JPRB,.691E-02_JPRB,.615E-02_JPRB,.542E-02_JPRB,&
+&.107E-01_JPRB,.544E-01_JPRB,.785E-01_JPRB,.803E-01_JPRB,.636E-01_JPRB,.892E-01_JPRB,.671E-01_JPRB,&
+&.363E-01_JPRB,.446E-01_JPRB,.398E-01_JPRB,.337E-01_JPRB,.308E-01_JPRB,.286E-01_JPRB,.261E-01_JPRB,&
+&.240E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 33 -38.0
+ZAER (:,33, 1) = (/&
+&.187E-01_JPRB,.183E-01_JPRB,.172E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.176E-01_JPRB,&
+&.161E-01_JPRB,.146E-01_JPRB,.139E-01_JPRB,.160E-01_JPRB,.250E-01_JPRB,.153E-01_JPRB,.136E-01_JPRB,&
+&.145E-01_JPRB,.132E-01_JPRB,.145E-01_JPRB,.188E-01_JPRB,.281E-01_JPRB,.405E-01_JPRB,.468E-01_JPRB,&
+&.906E-01_JPRB,.547E-01_JPRB,.428E-01_JPRB,.330E-01_JPRB,.258E-01_JPRB,.223E-01_JPRB,.187E-01_JPRB,&
+&.173E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.138E-01_JPRB,.150E-01_JPRB,.175E-01_JPRB,.268E-01_JPRB,&
+&.181E-01_JPRB,.282E-01_JPRB,.352E-01_JPRB,.355E-01_JPRB,.418E-01_JPRB,.518E-01_JPRB,.482E-01_JPRB,&
+&.279E-01_JPRB,.289E-01_JPRB,.343E-01_JPRB,.320E-01_JPRB,.408E-01_JPRB,.426E-01_JPRB,.432E-01_JPRB,&
+&.514E-01_JPRB,.255E-01_JPRB,.197E-01_JPRB,.210E-01_JPRB,.140E-01_JPRB,.950E-02_JPRB,.785E-02_JPRB,&
+&.107E-01_JPRB,.269E-01_JPRB,.436E-01_JPRB,.427E-01_JPRB,.663E-01_JPRB,.505E-01_JPRB,.531E-01_JPRB,&
+&.549E-01_JPRB,.264E-01_JPRB,.383E-01_JPRB,.333E-01_JPRB,.290E-01_JPRB,.256E-01_JPRB,.237E-01_JPRB,&
+&.224E-01_JPRB,.202E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 34 -42.0
+ZAER (:,34, 1) = (/&
+&.176E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.162E-01_JPRB,.160E-01_JPRB,.163E-01_JPRB,&
+&.158E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,.156E-01_JPRB,.194E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
+&.111E-01_JPRB,.129E-01_JPRB,.144E-01_JPRB,.209E-01_JPRB,.307E-01_JPRB,.389E-01_JPRB,.427E-01_JPRB,&
+&.503E-01_JPRB,.595E-01_JPRB,.498E-01_JPRB,.364E-01_JPRB,.301E-01_JPRB,.249E-01_JPRB,.202E-01_JPRB,&
+&.169E-01_JPRB,.147E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,.127E-01_JPRB,.134E-01_JPRB,.189E-01_JPRB,&
+&.156E-01_JPRB,.155E-01_JPRB,.358E-01_JPRB,.277E-01_JPRB,.307E-01_JPRB,.252E-01_JPRB,.252E-01_JPRB,&
+&.408E-01_JPRB,.428E-01_JPRB,.225E-01_JPRB,.226E-01_JPRB,.494E-01_JPRB,.359E-01_JPRB,.432E-01_JPRB,&
+&.576E-01_JPRB,.405E-01_JPRB,.211E-01_JPRB,.152E-01_JPRB,.206E-01_JPRB,.237E-01_JPRB,.177E-01_JPRB,&
+&.207E-01_JPRB,.211E-01_JPRB,.181E-01_JPRB,.175E-01_JPRB,.216E-01_JPRB,.184E-01_JPRB,.233E-01_JPRB,&
+&.439E-01_JPRB,.337E-01_JPRB,.341E-01_JPRB,.348E-01_JPRB,.297E-01_JPRB,.252E-01_JPRB,.226E-01_JPRB,&
+&.205E-01_JPRB,.191E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 35 -46.0
+ZAER (:,35, 1) = (/&
+&.184E-01_JPRB,.174E-01_JPRB,.170E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,&
+&.155E-01_JPRB,.147E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.158E-01_JPRB,.105E-01_JPRB,.972E-02_JPRB,&
+&.101E-01_JPRB,.120E-01_JPRB,.144E-01_JPRB,.183E-01_JPRB,.252E-01_JPRB,.267E-01_JPRB,.375E-01_JPRB,&
+&.479E-01_JPRB,.340E-01_JPRB,.263E-01_JPRB,.398E-01_JPRB,.368E-01_JPRB,.339E-01_JPRB,.271E-01_JPRB,&
+&.211E-01_JPRB,.171E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.161E-01_JPRB,&
+&.290E-01_JPRB,.228E-01_JPRB,.205E-01_JPRB,.225E-01_JPRB,.225E-01_JPRB,.256E-01_JPRB,.339E-01_JPRB,&
+&.400E-01_JPRB,.271E-01_JPRB,.250E-01_JPRB,.304E-01_JPRB,.441E-01_JPRB,.373E-01_JPRB,.402E-01_JPRB,&
+&.411E-01_JPRB,.456E-01_JPRB,.406E-01_JPRB,.267E-01_JPRB,.247E-01_JPRB,.206E-01_JPRB,.178E-01_JPRB,&
+&.157E-01_JPRB,.133E-01_JPRB,.136E-01_JPRB,.159E-01_JPRB,.179E-01_JPRB,.175E-01_JPRB,.193E-01_JPRB,&
+&.202E-01_JPRB,.325E-01_JPRB,.274E-01_JPRB,.247E-01_JPRB,.260E-01_JPRB,.262E-01_JPRB,.241E-01_JPRB,&
+&.222E-01_JPRB,.204E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 36 -50.0
+ZAER (:,36, 1) = (/&
+&.193E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.162E-01_JPRB,&
+&.171E-01_JPRB,.160E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,.948E-02_JPRB,.115E-01_JPRB,.109E-01_JPRB,&
+&.139E-01_JPRB,.150E-01_JPRB,.185E-01_JPRB,.210E-01_JPRB,.235E-01_JPRB,.255E-01_JPRB,.363E-01_JPRB,&
+&.339E-01_JPRB,.297E-01_JPRB,.229E-01_JPRB,.333E-01_JPRB,.341E-01_JPRB,.291E-01_JPRB,.234E-01_JPRB,&
+&.206E-01_JPRB,.174E-01_JPRB,.149E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.130E-01_JPRB,&
+&.176E-01_JPRB,.134E-01_JPRB,.160E-01_JPRB,.159E-01_JPRB,.191E-01_JPRB,.237E-01_JPRB,.296E-01_JPRB,&
+&.264E-01_JPRB,.315E-01_JPRB,.297E-01_JPRB,.364E-01_JPRB,.389E-01_JPRB,.339E-01_JPRB,.387E-01_JPRB,&
+&.381E-01_JPRB,.371E-01_JPRB,.448E-01_JPRB,.495E-01_JPRB,.273E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,&
+&.139E-01_JPRB,.152E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.167E-01_JPRB,.171E-01_JPRB,.194E-01_JPRB,&
+&.210E-01_JPRB,.177E-01_JPRB,.250E-01_JPRB,.227E-01_JPRB,.219E-01_JPRB,.269E-01_JPRB,.267E-01_JPRB,&
+&.242E-01_JPRB,.211E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 37 -54.0
+ZAER (:,37, 1) = (/&
+&.191E-01_JPRB,.193E-01_JPRB,.167E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,.152E-01_JPRB,.163E-01_JPRB,&
+&.160E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,.900E-02_JPRB,.944E-02_JPRB,.130E-01_JPRB,.131E-01_JPRB,&
+&.135E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,.193E-01_JPRB,.209E-01_JPRB,.182E-01_JPRB,.333E-01_JPRB,&
+&.270E-01_JPRB,.238E-01_JPRB,.193E-01_JPRB,.171E-01_JPRB,.287E-01_JPRB,.237E-01_JPRB,.204E-01_JPRB,&
+&.188E-01_JPRB,.176E-01_JPRB,.157E-01_JPRB,.143E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
+&.863E-02_JPRB,.178E-01_JPRB,.296E-01_JPRB,.213E-01_JPRB,.227E-01_JPRB,.281E-01_JPRB,.271E-01_JPRB,&
+&.268E-01_JPRB,.304E-01_JPRB,.277E-01_JPRB,.337E-01_JPRB,.283E-01_JPRB,.292E-01_JPRB,.308E-01_JPRB,&
+&.390E-01_JPRB,.378E-01_JPRB,.370E-01_JPRB,.498E-01_JPRB,.438E-01_JPRB,.249E-01_JPRB,.207E-01_JPRB,&
+&.183E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,.183E-01_JPRB,.194E-01_JPRB,.227E-01_JPRB,&
+&.228E-01_JPRB,.266E-01_JPRB,.245E-01_JPRB,.205E-01_JPRB,.191E-01_JPRB,.131E-01_JPRB,.225E-01_JPRB,&
+&.206E-01_JPRB,.205E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 38 -58.0
+ZAER (:,38, 1) = (/&
+&.206E-01_JPRB,.205E-01_JPRB,.170E-01_JPRB,.176E-01_JPRB,.197E-01_JPRB,.171E-01_JPRB,.166E-01_JPRB,&
+&.171E-01_JPRB,.177E-01_JPRB,.985E-02_JPRB,.872E-02_JPRB,.917E-02_JPRB,.137E-01_JPRB,.151E-01_JPRB,&
+&.147E-01_JPRB,.158E-01_JPRB,.169E-01_JPRB,.198E-01_JPRB,.338E-01_JPRB,.326E-01_JPRB,.365E-01_JPRB,&
+&.242E-01_JPRB,.221E-01_JPRB,.159E-01_JPRB,.286E-01_JPRB,.266E-01_JPRB,.200E-01_JPRB,.181E-01_JPRB,&
+&.169E-01_JPRB,.164E-01_JPRB,.156E-01_JPRB,.142E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,&
+&.142E-01_JPRB,.160E-01_JPRB,.207E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.212E-01_JPRB,.141E-01_JPRB,&
+&.163E-01_JPRB,.184E-01_JPRB,.219E-01_JPRB,.289E-01_JPRB,.288E-01_JPRB,.295E-01_JPRB,.308E-01_JPRB,&
+&.347E-01_JPRB,.390E-01_JPRB,.385E-01_JPRB,.397E-01_JPRB,.436E-01_JPRB,.412E-01_JPRB,.382E-01_JPRB,&
+&.289E-01_JPRB,.254E-01_JPRB,.210E-01_JPRB,.194E-01_JPRB,.196E-01_JPRB,.204E-01_JPRB,.251E-01_JPRB,&
+&.228E-01_JPRB,.195E-01_JPRB,.303E-01_JPRB,.260E-01_JPRB,.232E-01_JPRB,.141E-01_JPRB,.231E-01_JPRB,&
+&.230E-01_JPRB,.212E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 39 -62.0
+ZAER (:,39, 1) = (/&
+&.234E-01_JPRB,.264E-01_JPRB,.228E-01_JPRB,.209E-01_JPRB,.124E-01_JPRB,.113E-01_JPRB,.908E-02_JPRB,&
+&.805E-02_JPRB,.753E-02_JPRB,.835E-02_JPRB,.849E-02_JPRB,.988E-02_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
+&.131E-01_JPRB,.139E-01_JPRB,.149E-01_JPRB,.174E-01_JPRB,.349E-01_JPRB,.405E-01_JPRB,.343E-01_JPRB,&
+&.183E-01_JPRB,.299E-01_JPRB,.313E-01_JPRB,.276E-01_JPRB,.258E-01_JPRB,.202E-01_JPRB,.881E-02_JPRB,&
+&.162E-01_JPRB,.170E-01_JPRB,.160E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,&
+&.123E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.708E-02_JPRB,.723E-02_JPRB,.129E-01_JPRB,.799E-02_JPRB,&
+&.891E-02_JPRB,.112E-01_JPRB,.113E-01_JPRB,.158E-01_JPRB,.195E-01_JPRB,.216E-01_JPRB,.255E-01_JPRB,&
+&.294E-01_JPRB,.327E-01_JPRB,.330E-01_JPRB,.318E-01_JPRB,.357E-01_JPRB,.349E-01_JPRB,.386E-01_JPRB,&
+&.415E-01_JPRB,.366E-01_JPRB,.346E-01_JPRB,.309E-01_JPRB,.290E-01_JPRB,.305E-01_JPRB,.284E-01_JPRB,&
+&.215E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.136E-01_JPRB,.146E-01_JPRB,.159E-01_JPRB,.143E-01_JPRB,&
+&.135E-01_JPRB,.240E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 40 -66.0
+ZAER (:,40, 1) = (/&
+&.172E-01_JPRB,.151E-01_JPRB,.253E-01_JPRB,.262E-01_JPRB,.141E-01_JPRB,.127E-01_JPRB,.111E-01_JPRB,&
+&.975E-02_JPRB,.894E-02_JPRB,.936E-02_JPRB,.101E-01_JPRB,.105E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
+&.128E-01_JPRB,.135E-01_JPRB,.173E-01_JPRB,.194E-01_JPRB,.241E-01_JPRB,.247E-01_JPRB,.314E-01_JPRB,&
+&.154E-01_JPRB,.150E-01_JPRB,.158E-01_JPRB,.267E-01_JPRB,.232E-01_JPRB,.102E-01_JPRB,.709E-02_JPRB,&
+&.700E-02_JPRB,.140E-01_JPRB,.168E-01_JPRB,.172E-01_JPRB,.161E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,&
+&.134E-01_JPRB,.121E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.607E-02_JPRB,.682E-02_JPRB,.704E-02_JPRB,&
+&.754E-02_JPRB,.902E-02_JPRB,.933E-02_JPRB,.989E-02_JPRB,.128E-01_JPRB,.180E-01_JPRB,.189E-01_JPRB,&
+&.222E-01_JPRB,.230E-01_JPRB,.262E-01_JPRB,.284E-01_JPRB,.338E-01_JPRB,.352E-01_JPRB,.360E-01_JPRB,&
+&.396E-01_JPRB,.391E-01_JPRB,.361E-01_JPRB,.351E-01_JPRB,.366E-01_JPRB,.348E-01_JPRB,.280E-01_JPRB,&
+&.197E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,.168E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,&
+&.190E-01_JPRB,.188E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 41 -70.0
+ZAER (:,41, 1) = (/&
+&.312E-01_JPRB,.311E-01_JPRB,.296E-01_JPRB,.308E-01_JPRB,.185E-01_JPRB,.155E-01_JPRB,.139E-01_JPRB,&
+&.124E-01_JPRB,.188E-01_JPRB,.191E-01_JPRB,.120E-01_JPRB,.218E-01_JPRB,.242E-01_JPRB,.155E-01_JPRB,&
+&.148E-01_JPRB,.149E-01_JPRB,.290E-01_JPRB,.216E-01_JPRB,.231E-01_JPRB,.198E-01_JPRB,.176E-01_JPRB,&
+&.160E-01_JPRB,.143E-01_JPRB,.247E-01_JPRB,.222E-01_JPRB,.189E-01_JPRB,.877E-02_JPRB,.652E-02_JPRB,&
+&.550E-02_JPRB,.469E-02_JPRB,.489E-02_JPRB,.724E-02_JPRB,.159E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,&
+&.160E-01_JPRB,.151E-01_JPRB,.132E-01_JPRB,.116E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,.754E-02_JPRB,&
+&.770E-02_JPRB,.127E-01_JPRB,.131E-01_JPRB,.174E-01_JPRB,.240E-01_JPRB,.290E-01_JPRB,.324E-01_JPRB,&
+&.312E-01_JPRB,.178E-01_JPRB,.200E-01_JPRB,.263E-01_JPRB,.287E-01_JPRB,.349E-01_JPRB,.388E-01_JPRB,&
+&.340E-01_JPRB,.342E-01_JPRB,.357E-01_JPRB,.379E-01_JPRB,.361E-01_JPRB,.321E-01_JPRB,.288E-01_JPRB,&
+&.232E-01_JPRB,.205E-01_JPRB,.199E-01_JPRB,.201E-01_JPRB,.196E-01_JPRB,.209E-01_JPRB,.202E-01_JPRB,&
+&.345E-01_JPRB,.202E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 42 -74.0
+ZAER (:,42, 1) = (/&
+&.330E-01_JPRB,.317E-01_JPRB,.321E-01_JPRB,.344E-01_JPRB,.338E-01_JPRB,.314E-01_JPRB,.293E-01_JPRB,&
+&.245E-01_JPRB,.228E-01_JPRB,.229E-01_JPRB,.235E-01_JPRB,.238E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,&
+&.288E-01_JPRB,.316E-01_JPRB,.312E-01_JPRB,.324E-01_JPRB,.314E-01_JPRB,.168E-01_JPRB,.284E-01_JPRB,&
+&.294E-01_JPRB,.293E-01_JPRB,.267E-01_JPRB,.209E-01_JPRB,.971E-02_JPRB,.735E-02_JPRB,.592E-02_JPRB,&
+&.499E-02_JPRB,.457E-02_JPRB,.470E-02_JPRB,.589E-02_JPRB,.159E-01_JPRB,.201E-01_JPRB,.218E-01_JPRB,&
+&.215E-01_JPRB,.206E-01_JPRB,.198E-01_JPRB,.189E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.175E-01_JPRB,&
+&.183E-01_JPRB,.186E-01_JPRB,.202E-01_JPRB,.221E-01_JPRB,.218E-01_JPRB,.229E-01_JPRB,.274E-01_JPRB,&
+&.312E-01_JPRB,.297E-01_JPRB,.392E-01_JPRB,.456E-01_JPRB,.271E-01_JPRB,.310E-01_JPRB,.482E-01_JPRB,&
+&.438E-01_JPRB,.430E-01_JPRB,.413E-01_JPRB,.395E-01_JPRB,.617E-01_JPRB,.571E-01_JPRB,.488E-01_JPRB,&
+&.419E-01_JPRB,.420E-01_JPRB,.430E-01_JPRB,.438E-01_JPRB,.400E-01_JPRB,.372E-01_JPRB,.373E-01_JPRB,&
+&.386E-01_JPRB,.371E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 43 -78.0
+ZAER (:,43, 1) = (/&
+&.311E-01_JPRB,.294E-01_JPRB,.288E-01_JPRB,.308E-01_JPRB,.325E-01_JPRB,.334E-01_JPRB,.327E-01_JPRB,&
+&.304E-01_JPRB,.302E-01_JPRB,.300E-01_JPRB,.287E-01_JPRB,.276E-01_JPRB,.268E-01_JPRB,.266E-01_JPRB,&
+&.276E-01_JPRB,.287E-01_JPRB,.298E-01_JPRB,.306E-01_JPRB,.176E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,&
+&.296E-01_JPRB,.294E-01_JPRB,.162E-01_JPRB,.111E-01_JPRB,.941E-02_JPRB,.818E-02_JPRB,.691E-02_JPRB,&
+&.676E-02_JPRB,.674E-02_JPRB,.788E-02_JPRB,.878E-02_JPRB,.168E-01_JPRB,.221E-01_JPRB,.247E-01_JPRB,&
+&.263E-01_JPRB,.252E-01_JPRB,.246E-01_JPRB,.244E-01_JPRB,.145E-01_JPRB,.250E-01_JPRB,.248E-01_JPRB,&
+&.256E-01_JPRB,.268E-01_JPRB,.289E-01_JPRB,.332E-01_JPRB,.312E-01_JPRB,.307E-01_JPRB,.312E-01_JPRB,&
+&.324E-01_JPRB,.341E-01_JPRB,.341E-01_JPRB,.336E-01_JPRB,.368E-01_JPRB,.427E-01_JPRB,.495E-01_JPRB,&
+&.563E-01_JPRB,.387E-01_JPRB,.626E-01_JPRB,.575E-01_JPRB,.533E-01_JPRB,.494E-01_JPRB,.482E-01_JPRB,&
+&.490E-01_JPRB,.472E-01_JPRB,.482E-01_JPRB,.474E-01_JPRB,.426E-01_JPRB,.393E-01_JPRB,.376E-01_JPRB,&
+&.350E-01_JPRB,.330E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 44 -82.0
+ZAER (:,44, 1) = (/&
+&.287E-01_JPRB,.286E-01_JPRB,.289E-01_JPRB,.296E-01_JPRB,.309E-01_JPRB,.325E-01_JPRB,.332E-01_JPRB,&
+&.321E-01_JPRB,.317E-01_JPRB,.314E-01_JPRB,.315E-01_JPRB,.317E-01_JPRB,.315E-01_JPRB,.296E-01_JPRB,&
+&.283E-01_JPRB,.274E-01_JPRB,.269E-01_JPRB,.273E-01_JPRB,.272E-01_JPRB,.268E-01_JPRB,.158E-01_JPRB,&
+&.156E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,&
+&.120E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.215E-01_JPRB,.230E-01_JPRB,&
+&.257E-01_JPRB,.277E-01_JPRB,.282E-01_JPRB,.284E-01_JPRB,.285E-01_JPRB,.292E-01_JPRB,.296E-01_JPRB,&
+&.308E-01_JPRB,.321E-01_JPRB,.332E-01_JPRB,.341E-01_JPRB,.347E-01_JPRB,.352E-01_JPRB,.357E-01_JPRB,&
+&.360E-01_JPRB,.367E-01_JPRB,.376E-01_JPRB,.384E-01_JPRB,.394E-01_JPRB,.405E-01_JPRB,.422E-01_JPRB,&
+&.430E-01_JPRB,.438E-01_JPRB,.439E-01_JPRB,.432E-01_JPRB,.408E-01_JPRB,.389E-01_JPRB,.384E-01_JPRB,&
+&.386E-01_JPRB,.405E-01_JPRB,.431E-01_JPRB,.421E-01_JPRB,.377E-01_JPRB,.345E-01_JPRB,.320E-01_JPRB,&
+&.304E-01_JPRB,.296E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 45 -86.0
+ZAER (:,45, 1) = (/&
+&.306E-01_JPRB,.307E-01_JPRB,.303E-01_JPRB,.303E-01_JPRB,.300E-01_JPRB,.302E-01_JPRB,.304E-01_JPRB,&
+&.305E-01_JPRB,.308E-01_JPRB,.311E-01_JPRB,.313E-01_JPRB,.317E-01_JPRB,.318E-01_JPRB,.311E-01_JPRB,&
+&.303E-01_JPRB,.295E-01_JPRB,.289E-01_JPRB,.287E-01_JPRB,.283E-01_JPRB,.282E-01_JPRB,.282E-01_JPRB,&
+&.284E-01_JPRB,.288E-01_JPRB,.291E-01_JPRB,.285E-01_JPRB,.283E-01_JPRB,.281E-01_JPRB,.281E-01_JPRB,&
+&.281E-01_JPRB,.281E-01_JPRB,.283E-01_JPRB,.282E-01_JPRB,.286E-01_JPRB,.290E-01_JPRB,.293E-01_JPRB,&
+&.298E-01_JPRB,.296E-01_JPRB,.299E-01_JPRB,.299E-01_JPRB,.302E-01_JPRB,.307E-01_JPRB,.312E-01_JPRB,&
+&.316E-01_JPRB,.320E-01_JPRB,.326E-01_JPRB,.332E-01_JPRB,.337E-01_JPRB,.345E-01_JPRB,.347E-01_JPRB,&
+&.350E-01_JPRB,.351E-01_JPRB,.351E-01_JPRB,.350E-01_JPRB,.347E-01_JPRB,.345E-01_JPRB,.341E-01_JPRB,&
+&.336E-01_JPRB,.331E-01_JPRB,.322E-01_JPRB,.316E-01_JPRB,.306E-01_JPRB,.307E-01_JPRB,.308E-01_JPRB,&
+&.308E-01_JPRB,.310E-01_JPRB,.309E-01_JPRB,.308E-01_JPRB,.308E-01_JPRB,.308E-01_JPRB,.307E-01_JPRB,&
+&.304E-01_JPRB,.303E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  1 --- lat: 46 -90.0
+ZAER (:,46, 1) = (/&
+&.320E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,.327E-01_JPRB,&
+&.327E-01_JPRB,.327E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=1   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_01
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_02.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_02.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_02.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_02
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          February
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,2:2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  2 --- lat:  1  90.0
+ZAER (:, 1, 2) = (/&
+&.535E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,.542E-02_JPRB,&
+&.542E-02_JPRB,.542E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  2  86.0
+ZAER (:, 2, 2) = (/&
+&.653E-02_JPRB,.710E-02_JPRB,.760E-02_JPRB,.806E-02_JPRB,.836E-02_JPRB,.858E-02_JPRB,.876E-02_JPRB,&
+&.881E-02_JPRB,.886E-02_JPRB,.878E-02_JPRB,.871E-02_JPRB,.855E-02_JPRB,.762E-02_JPRB,.711E-02_JPRB,&
+&.650E-02_JPRB,.613E-02_JPRB,.569E-02_JPRB,.535E-02_JPRB,.504E-02_JPRB,.480E-02_JPRB,.465E-02_JPRB,&
+&.451E-02_JPRB,.448E-02_JPRB,.448E-02_JPRB,.434E-02_JPRB,.444E-02_JPRB,.455E-02_JPRB,.467E-02_JPRB,&
+&.476E-02_JPRB,.481E-02_JPRB,.491E-02_JPRB,.493E-02_JPRB,.496E-02_JPRB,.502E-02_JPRB,.505E-02_JPRB,&
+&.507E-02_JPRB,.466E-02_JPRB,.490E-02_JPRB,.514E-02_JPRB,.529E-02_JPRB,.546E-02_JPRB,.555E-02_JPRB,&
+&.568E-02_JPRB,.580E-02_JPRB,.584E-02_JPRB,.591E-02_JPRB,.583E-02_JPRB,.583E-02_JPRB,.536E-02_JPRB,&
+&.503E-02_JPRB,.477E-02_JPRB,.453E-02_JPRB,.431E-02_JPRB,.417E-02_JPRB,.405E-02_JPRB,.401E-02_JPRB,&
+&.400E-02_JPRB,.401E-02_JPRB,.409E-02_JPRB,.424E-02_JPRB,.453E-02_JPRB,.452E-02_JPRB,.459E-02_JPRB,&
+&.466E-02_JPRB,.474E-02_JPRB,.478E-02_JPRB,.492E-02_JPRB,.496E-02_JPRB,.506E-02_JPRB,.515E-02_JPRB,&
+&.529E-02_JPRB,.545E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  3  82.0
+ZAER (:, 3, 2) = (/&
+&.115E-01_JPRB,.130E-01_JPRB,.140E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.129E-01_JPRB,&
+&.127E-01_JPRB,.129E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.157E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,&
+&.129E-01_JPRB,.124E-01_JPRB,.117E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,.950E-02_JPRB,.864E-02_JPRB,&
+&.801E-02_JPRB,.756E-02_JPRB,.709E-02_JPRB,.834E-02_JPRB,.806E-02_JPRB,.788E-02_JPRB,.782E-02_JPRB,&
+&.790E-02_JPRB,.814E-02_JPRB,.838E-02_JPRB,.736E-02_JPRB,.654E-02_JPRB,.596E-02_JPRB,.550E-02_JPRB,&
+&.525E-02_JPRB,.438E-02_JPRB,.453E-02_JPRB,.470E-02_JPRB,.512E-02_JPRB,.560E-02_JPRB,.618E-02_JPRB,&
+&.631E-02_JPRB,.658E-02_JPRB,.656E-02_JPRB,.648E-02_JPRB,.630E-02_JPRB,.590E-02_JPRB,.576E-02_JPRB,&
+&.569E-02_JPRB,.565E-02_JPRB,.559E-02_JPRB,.553E-02_JPRB,.553E-02_JPRB,.562E-02_JPRB,.516E-02_JPRB,&
+&.480E-02_JPRB,.450E-02_JPRB,.430E-02_JPRB,.416E-02_JPRB,.460E-02_JPRB,.474E-02_JPRB,.486E-02_JPRB,&
+&.494E-02_JPRB,.502E-02_JPRB,.510E-02_JPRB,.619E-02_JPRB,.599E-02_JPRB,.613E-02_JPRB,.659E-02_JPRB,&
+&.742E-02_JPRB,.853E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  4  78.0
+ZAER (:, 4, 2) = (/&
+&.131E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.141E-01_JPRB,&
+&.133E-01_JPRB,.131E-01_JPRB,.106E-01_JPRB,.112E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,&
+&.174E-01_JPRB,.189E-01_JPRB,.188E-01_JPRB,.178E-01_JPRB,.154E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,&
+&.157E-01_JPRB,.156E-01_JPRB,.144E-01_JPRB,.137E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,&
+&.122E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,.101E-01_JPRB,.858E-02_JPRB,.641E-02_JPRB,.580E-02_JPRB,&
+&.544E-02_JPRB,.464E-02_JPRB,.474E-02_JPRB,.514E-02_JPRB,.528E-02_JPRB,.557E-02_JPRB,.605E-02_JPRB,&
+&.619E-02_JPRB,.627E-02_JPRB,.637E-02_JPRB,.700E-02_JPRB,.693E-02_JPRB,.651E-02_JPRB,.637E-02_JPRB,&
+&.593E-02_JPRB,.585E-02_JPRB,.558E-02_JPRB,.589E-02_JPRB,.613E-02_JPRB,.596E-02_JPRB,.576E-02_JPRB,&
+&.556E-02_JPRB,.545E-02_JPRB,.503E-02_JPRB,.495E-02_JPRB,.521E-02_JPRB,.515E-02_JPRB,.510E-02_JPRB,&
+&.539E-02_JPRB,.510E-02_JPRB,.496E-02_JPRB,.460E-02_JPRB,.424E-02_JPRB,.549E-02_JPRB,.788E-02_JPRB,&
+&.951E-02_JPRB,.119E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  5  74.0
+ZAER (:, 5, 2) = (/&
+&.158E-01_JPRB,.166E-01_JPRB,.169E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,.157E-01_JPRB,.168E-01_JPRB,&
+&.178E-01_JPRB,.174E-01_JPRB,.157E-01_JPRB,.133E-01_JPRB,.150E-01_JPRB,.166E-01_JPRB,.206E-01_JPRB,&
+&.259E-01_JPRB,.308E-01_JPRB,.379E-01_JPRB,.355E-01_JPRB,.318E-01_JPRB,.282E-01_JPRB,.271E-01_JPRB,&
+&.265E-01_JPRB,.224E-01_JPRB,.183E-01_JPRB,.175E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.154E-01_JPRB,&
+&.130E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.973E-02_JPRB,.833E-02_JPRB,.773E-02_JPRB,&
+&.765E-02_JPRB,.695E-02_JPRB,.526E-02_JPRB,.515E-02_JPRB,.591E-02_JPRB,.614E-02_JPRB,.663E-02_JPRB,&
+&.694E-02_JPRB,.707E-02_JPRB,.657E-02_JPRB,.664E-02_JPRB,.685E-02_JPRB,.747E-02_JPRB,.779E-02_JPRB,&
+&.795E-02_JPRB,.722E-02_JPRB,.617E-02_JPRB,.557E-02_JPRB,.564E-02_JPRB,.562E-02_JPRB,.559E-02_JPRB,&
+&.595E-02_JPRB,.652E-02_JPRB,.578E-02_JPRB,.548E-02_JPRB,.570E-02_JPRB,.589E-02_JPRB,.626E-02_JPRB,&
+&.583E-02_JPRB,.547E-02_JPRB,.570E-02_JPRB,.579E-02_JPRB,.626E-02_JPRB,.782E-02_JPRB,.105E-01_JPRB,&
+&.137E-01_JPRB,.152E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  6  70.0
+ZAER (:, 6, 2) = (/&
+&.220E-01_JPRB,.238E-01_JPRB,.262E-01_JPRB,.251E-01_JPRB,.259E-01_JPRB,.250E-01_JPRB,.218E-01_JPRB,&
+&.203E-01_JPRB,.209E-01_JPRB,.258E-01_JPRB,.232E-01_JPRB,.219E-01_JPRB,.263E-01_JPRB,.293E-01_JPRB,&
+&.345E-01_JPRB,.386E-01_JPRB,.436E-01_JPRB,.465E-01_JPRB,.474E-01_JPRB,.401E-01_JPRB,.342E-01_JPRB,&
+&.361E-01_JPRB,.350E-01_JPRB,.269E-01_JPRB,.231E-01_JPRB,.219E-01_JPRB,.219E-01_JPRB,.184E-01_JPRB,&
+&.151E-01_JPRB,.140E-01_JPRB,.115E-01_JPRB,.972E-02_JPRB,.878E-02_JPRB,.833E-02_JPRB,.766E-02_JPRB,&
+&.738E-02_JPRB,.842E-02_JPRB,.832E-02_JPRB,.101E-01_JPRB,.127E-01_JPRB,.169E-01_JPRB,.200E-01_JPRB,&
+&.185E-01_JPRB,.161E-01_JPRB,.123E-01_JPRB,.916E-02_JPRB,.781E-02_JPRB,.725E-02_JPRB,.837E-02_JPRB,&
+&.122E-01_JPRB,.132E-01_JPRB,.103E-01_JPRB,.769E-02_JPRB,.551E-02_JPRB,.571E-02_JPRB,.621E-02_JPRB,&
+&.678E-02_JPRB,.661E-02_JPRB,.658E-02_JPRB,.731E-02_JPRB,.807E-02_JPRB,.101E-01_JPRB,.125E-01_JPRB,&
+&.998E-02_JPRB,.987E-02_JPRB,.112E-01_JPRB,.137E-01_JPRB,.161E-01_JPRB,.203E-01_JPRB,.214E-01_JPRB,&
+&.212E-01_JPRB,.210E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  7  66.0
+ZAER (:, 7, 2) = (/&
+&.325E-01_JPRB,.306E-01_JPRB,.281E-01_JPRB,.265E-01_JPRB,.286E-01_JPRB,.308E-01_JPRB,.272E-01_JPRB,&
+&.235E-01_JPRB,.218E-01_JPRB,.228E-01_JPRB,.260E-01_JPRB,.262E-01_JPRB,.280E-01_JPRB,.299E-01_JPRB,&
+&.292E-01_JPRB,.324E-01_JPRB,.360E-01_JPRB,.376E-01_JPRB,.355E-01_JPRB,.338E-01_JPRB,.319E-01_JPRB,&
+&.331E-01_JPRB,.335E-01_JPRB,.327E-01_JPRB,.302E-01_JPRB,.295E-01_JPRB,.299E-01_JPRB,.281E-01_JPRB,&
+&.266E-01_JPRB,.213E-01_JPRB,.173E-01_JPRB,.144E-01_JPRB,.129E-01_JPRB,.106E-01_JPRB,.123E-01_JPRB,&
+&.152E-01_JPRB,.192E-01_JPRB,.233E-01_JPRB,.262E-01_JPRB,.287E-01_JPRB,.314E-01_JPRB,.336E-01_JPRB,&
+&.368E-01_JPRB,.313E-01_JPRB,.268E-01_JPRB,.248E-01_JPRB,.233E-01_JPRB,.233E-01_JPRB,.264E-01_JPRB,&
+&.279E-01_JPRB,.300E-01_JPRB,.236E-01_JPRB,.175E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,&
+&.142E-01_JPRB,.127E-01_JPRB,.131E-01_JPRB,.159E-01_JPRB,.189E-01_JPRB,.218E-01_JPRB,.228E-01_JPRB,&
+&.219E-01_JPRB,.246E-01_JPRB,.297E-01_JPRB,.313E-01_JPRB,.295E-01_JPRB,.296E-01_JPRB,.303E-01_JPRB,&
+&.305E-01_JPRB,.318E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  8  62.0
+ZAER (:, 8, 2) = (/&
+&.249E-01_JPRB,.244E-01_JPRB,.249E-01_JPRB,.253E-01_JPRB,.255E-01_JPRB,.265E-01_JPRB,.254E-01_JPRB,&
+&.234E-01_JPRB,.235E-01_JPRB,.219E-01_JPRB,.259E-01_JPRB,.275E-01_JPRB,.265E-01_JPRB,.265E-01_JPRB,&
+&.267E-01_JPRB,.272E-01_JPRB,.269E-01_JPRB,.278E-01_JPRB,.276E-01_JPRB,.276E-01_JPRB,.271E-01_JPRB,&
+&.264E-01_JPRB,.261E-01_JPRB,.266E-01_JPRB,.265E-01_JPRB,.288E-01_JPRB,.291E-01_JPRB,.291E-01_JPRB,&
+&.305E-01_JPRB,.307E-01_JPRB,.266E-01_JPRB,.249E-01_JPRB,.235E-01_JPRB,.270E-01_JPRB,.269E-01_JPRB,&
+&.256E-01_JPRB,.264E-01_JPRB,.282E-01_JPRB,.282E-01_JPRB,.263E-01_JPRB,.323E-01_JPRB,.342E-01_JPRB,&
+&.393E-01_JPRB,.386E-01_JPRB,.365E-01_JPRB,.365E-01_JPRB,.339E-01_JPRB,.339E-01_JPRB,.331E-01_JPRB,&
+&.303E-01_JPRB,.302E-01_JPRB,.277E-01_JPRB,.241E-01_JPRB,.260E-01_JPRB,.327E-01_JPRB,.333E-01_JPRB,&
+&.306E-01_JPRB,.270E-01_JPRB,.238E-01_JPRB,.223E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,.242E-01_JPRB,&
+&.264E-01_JPRB,.297E-01_JPRB,.307E-01_JPRB,.289E-01_JPRB,.276E-01_JPRB,.259E-01_JPRB,.253E-01_JPRB,&
+&.244E-01_JPRB,.252E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat:  9  58.0
+ZAER (:, 9, 2) = (/&
+&.185E-01_JPRB,.185E-01_JPRB,.192E-01_JPRB,.209E-01_JPRB,.212E-01_JPRB,.212E-01_JPRB,.215E-01_JPRB,&
+&.211E-01_JPRB,.215E-01_JPRB,.219E-01_JPRB,.240E-01_JPRB,.228E-01_JPRB,.227E-01_JPRB,.223E-01_JPRB,&
+&.237E-01_JPRB,.245E-01_JPRB,.249E-01_JPRB,.244E-01_JPRB,.237E-01_JPRB,.236E-01_JPRB,.227E-01_JPRB,&
+&.207E-01_JPRB,.196E-01_JPRB,.195E-01_JPRB,.201E-01_JPRB,.202E-01_JPRB,.235E-01_JPRB,.242E-01_JPRB,&
+&.253E-01_JPRB,.272E-01_JPRB,.259E-01_JPRB,.254E-01_JPRB,.328E-01_JPRB,.321E-01_JPRB,.261E-01_JPRB,&
+&.286E-01_JPRB,.325E-01_JPRB,.309E-01_JPRB,.311E-01_JPRB,.311E-01_JPRB,.320E-01_JPRB,.318E-01_JPRB,&
+&.318E-01_JPRB,.294E-01_JPRB,.300E-01_JPRB,.331E-01_JPRB,.299E-01_JPRB,.317E-01_JPRB,.333E-01_JPRB,&
+&.330E-01_JPRB,.302E-01_JPRB,.305E-01_JPRB,.282E-01_JPRB,.262E-01_JPRB,.285E-01_JPRB,.307E-01_JPRB,&
+&.332E-01_JPRB,.305E-01_JPRB,.269E-01_JPRB,.262E-01_JPRB,.253E-01_JPRB,.207E-01_JPRB,.188E-01_JPRB,&
+&.221E-01_JPRB,.228E-01_JPRB,.235E-01_JPRB,.226E-01_JPRB,.213E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,&
+&.201E-01_JPRB,.199E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 10  54.0
+ZAER (:,10, 2) = (/&
+&.182E-01_JPRB,.176E-01_JPRB,.178E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,.183E-01_JPRB,.188E-01_JPRB,&
+&.188E-01_JPRB,.197E-01_JPRB,.210E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.217E-01_JPRB,.221E-01_JPRB,&
+&.224E-01_JPRB,.223E-01_JPRB,.220E-01_JPRB,.213E-01_JPRB,.210E-01_JPRB,.205E-01_JPRB,.187E-01_JPRB,&
+&.171E-01_JPRB,.101E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.169E-01_JPRB,.173E-01_JPRB,.188E-01_JPRB,&
+&.217E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.239E-01_JPRB,.287E-01_JPRB,.314E-01_JPRB,.304E-01_JPRB,&
+&.293E-01_JPRB,.293E-01_JPRB,.314E-01_JPRB,.312E-01_JPRB,.299E-01_JPRB,.279E-01_JPRB,.268E-01_JPRB,&
+&.265E-01_JPRB,.262E-01_JPRB,.267E-01_JPRB,.295E-01_JPRB,.294E-01_JPRB,.267E-01_JPRB,.289E-01_JPRB,&
+&.299E-01_JPRB,.291E-01_JPRB,.268E-01_JPRB,.240E-01_JPRB,.224E-01_JPRB,.215E-01_JPRB,.216E-01_JPRB,&
+&.218E-01_JPRB,.222E-01_JPRB,.220E-01_JPRB,.228E-01_JPRB,.240E-01_JPRB,.242E-01_JPRB,.226E-01_JPRB,&
+&.214E-01_JPRB,.225E-01_JPRB,.212E-01_JPRB,.210E-01_JPRB,.205E-01_JPRB,.198E-01_JPRB,.197E-01_JPRB,&
+&.200E-01_JPRB,.192E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 11  50.0
+ZAER (:,11, 2) = (/&
+&.173E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.159E-01_JPRB,&
+&.163E-01_JPRB,.171E-01_JPRB,.180E-01_JPRB,.188E-01_JPRB,.189E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,&
+&.178E-01_JPRB,.175E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,.161E-01_JPRB,.155E-01_JPRB,.139E-01_JPRB,&
+&.125E-01_JPRB,.802E-02_JPRB,.142E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,&
+&.161E-01_JPRB,.175E-01_JPRB,.179E-01_JPRB,.196E-01_JPRB,.226E-01_JPRB,.232E-01_JPRB,.211E-01_JPRB,&
+&.208E-01_JPRB,.209E-01_JPRB,.209E-01_JPRB,.206E-01_JPRB,.209E-01_JPRB,.203E-01_JPRB,.198E-01_JPRB,&
+&.195E-01_JPRB,.202E-01_JPRB,.212E-01_JPRB,.231E-01_JPRB,.239E-01_JPRB,.248E-01_JPRB,.235E-01_JPRB,&
+&.225E-01_JPRB,.221E-01_JPRB,.209E-01_JPRB,.191E-01_JPRB,.201E-01_JPRB,.192E-01_JPRB,.187E-01_JPRB,&
+&.183E-01_JPRB,.181E-01_JPRB,.190E-01_JPRB,.195E-01_JPRB,.192E-01_JPRB,.186E-01_JPRB,.192E-01_JPRB,&
+&.190E-01_JPRB,.185E-01_JPRB,.193E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.184E-01_JPRB,&
+&.178E-01_JPRB,.167E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 12  46.0
+ZAER (:,12, 2) = (/&
+&.173E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.147E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,.132E-01_JPRB,&
+&.133E-01_JPRB,.140E-01_JPRB,.137E-01_JPRB,.142E-01_JPRB,.147E-01_JPRB,.162E-01_JPRB,.168E-01_JPRB,&
+&.161E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.773E-02_JPRB,.150E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,&
+&.133E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.159E-01_JPRB,.172E-01_JPRB,&
+&.179E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.170E-01_JPRB,.177E-01_JPRB,&
+&.185E-01_JPRB,.181E-01_JPRB,.173E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,&
+&.192E-01_JPRB,.187E-01_JPRB,.185E-01_JPRB,.192E-01_JPRB,.191E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,&
+&.182E-01_JPRB,.172E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.175E-01_JPRB,.174E-01_JPRB,&
+&.172E-01_JPRB,.171E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,.175E-01_JPRB,.166E-01_JPRB,.161E-01_JPRB,&
+&.151E-01_JPRB,.164E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 13  42.0
+ZAER (:,13, 2) = (/&
+&.190E-01_JPRB,.158E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.112E-01_JPRB,&
+&.123E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.134E-01_JPRB,.154E-01_JPRB,.143E-01_JPRB,&
+&.139E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.110E-01_JPRB,.121E-01_JPRB,&
+&.173E-01_JPRB,.119E-01_JPRB,.135E-01_JPRB,.215E-01_JPRB,.186E-01_JPRB,.163E-01_JPRB,.153E-01_JPRB,&
+&.144E-01_JPRB,.143E-01_JPRB,.138E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.143E-01_JPRB,.154E-01_JPRB,&
+&.161E-01_JPRB,.164E-01_JPRB,.162E-01_JPRB,.164E-01_JPRB,.159E-01_JPRB,.163E-01_JPRB,.166E-01_JPRB,&
+&.179E-01_JPRB,.179E-01_JPRB,.174E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.144E-01_JPRB,.150E-01_JPRB,&
+&.158E-01_JPRB,.158E-01_JPRB,.154E-01_JPRB,.156E-01_JPRB,.162E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,&
+&.162E-01_JPRB,.148E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,&
+&.165E-01_JPRB,.161E-01_JPRB,.173E-01_JPRB,.164E-01_JPRB,.157E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,&
+&.153E-01_JPRB,.161E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 14  38.0
+ZAER (:,14, 2) = (/&
+&.153E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.119E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,&
+&.108E-01_JPRB,.125E-01_JPRB,.138E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,&
+&.118E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.928E-02_JPRB,.106E-01_JPRB,.116E-01_JPRB,.152E-01_JPRB,&
+&.243E-01_JPRB,.149E-01_JPRB,.167E-01_JPRB,.129E-01_JPRB,.203E-01_JPRB,.188E-01_JPRB,.176E-01_JPRB,&
+&.168E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.155E-01_JPRB,.162E-01_JPRB,&
+&.162E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.165E-01_JPRB,.183E-01_JPRB,&
+&.194E-01_JPRB,.184E-01_JPRB,.166E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,&
+&.150E-01_JPRB,.150E-01_JPRB,.138E-01_JPRB,.143E-01_JPRB,.152E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,&
+&.144E-01_JPRB,.134E-01_JPRB,.127E-01_JPRB,.139E-01_JPRB,.154E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,&
+&.158E-01_JPRB,.166E-01_JPRB,.968E-02_JPRB,.165E-01_JPRB,.170E-01_JPRB,.163E-01_JPRB,.154E-01_JPRB,&
+&.157E-01_JPRB,.148E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 15  34.0
+ZAER (:,15, 2) = (/&
+&.126E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,.136E-01_JPRB,.149E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,&
+&.123E-01_JPRB,.128E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.137E-01_JPRB,&
+&.130E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.121E-01_JPRB,.149E-01_JPRB,&
+&.226E-01_JPRB,.157E-01_JPRB,.171E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.196E-01_JPRB,.181E-01_JPRB,&
+&.174E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.167E-01_JPRB,.171E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.166E-01_JPRB,.157E-01_JPRB,.148E-01_JPRB,.154E-01_JPRB,.163E-01_JPRB,.112E-01_JPRB,.220E-01_JPRB,&
+&.201E-01_JPRB,.182E-01_JPRB,.156E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.138E-01_JPRB,&
+&.135E-01_JPRB,.132E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.155E-01_JPRB,.150E-01_JPRB,.152E-01_JPRB,&
+&.139E-01_JPRB,.130E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,.986E-02_JPRB,.165E-01_JPRB,.155E-01_JPRB,&
+&.167E-01_JPRB,.958E-02_JPRB,.117E-01_JPRB,.108E-01_JPRB,.196E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,&
+&.157E-01_JPRB,.147E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 16  30.0
+ZAER (:,16, 2) = (/&
+&.149E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,.151E-01_JPRB,.154E-01_JPRB,&
+&.158E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,&
+&.138E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,.114E-01_JPRB,.105E-01_JPRB,.120E-01_JPRB,.140E-01_JPRB,&
+&.244E-01_JPRB,.173E-01_JPRB,.179E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,.208E-01_JPRB,.183E-01_JPRB,&
+&.176E-01_JPRB,.166E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,&
+&.151E-01_JPRB,.152E-01_JPRB,.164E-01_JPRB,.183E-01_JPRB,.202E-01_JPRB,.117E-01_JPRB,.150E-01_JPRB,&
+&.132E-01_JPRB,.180E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,&
+&.136E-01_JPRB,.130E-01_JPRB,.143E-01_JPRB,.165E-01_JPRB,.169E-01_JPRB,.156E-01_JPRB,.176E-01_JPRB,&
+&.177E-01_JPRB,.183E-01_JPRB,.190E-01_JPRB,.106E-01_JPRB,.956E-02_JPRB,.101E-01_JPRB,.876E-02_JPRB,&
+&.105E-01_JPRB,.113E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.218E-01_JPRB,.186E-01_JPRB,.193E-01_JPRB,&
+&.182E-01_JPRB,.156E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 17  26.0
+ZAER (:,17, 2) = (/&
+&.152E-01_JPRB,.141E-01_JPRB,.150E-01_JPRB,.155E-01_JPRB,.153E-01_JPRB,.152E-01_JPRB,.156E-01_JPRB,&
+&.161E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.154E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,&
+&.138E-01_JPRB,.137E-01_JPRB,.129E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.120E-01_JPRB,.143E-01_JPRB,&
+&.255E-01_JPRB,.158E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.133E-01_JPRB,.134E-01_JPRB,.210E-01_JPRB,&
+&.153E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.146E-01_JPRB,.153E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,&
+&.144E-01_JPRB,.152E-01_JPRB,.172E-01_JPRB,.208E-01_JPRB,.103E-01_JPRB,.996E-02_JPRB,.137E-01_JPRB,&
+&.148E-01_JPRB,.168E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,&
+&.146E-01_JPRB,.143E-01_JPRB,.148E-01_JPRB,.177E-01_JPRB,.198E-01_JPRB,.216E-01_JPRB,.224E-01_JPRB,&
+&.226E-01_JPRB,.248E-01_JPRB,.209E-01_JPRB,.120E-01_JPRB,.128E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,&
+&.137E-01_JPRB,.154E-01_JPRB,.170E-01_JPRB,.136E-01_JPRB,.221E-01_JPRB,.252E-01_JPRB,.255E-01_JPRB,&
+&.216E-01_JPRB,.176E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 18  22.0
+ZAER (:,18, 2) = (/&
+&.175E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.162E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.160E-01_JPRB,&
+&.165E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.149E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.146E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.139E-01_JPRB,.164E-01_JPRB,.221E-01_JPRB,&
+&.410E-01_JPRB,.210E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.107E-01_JPRB,.124E-01_JPRB,.105E-01_JPRB,&
+&.141E-01_JPRB,.136E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.155E-01_JPRB,.160E-01_JPRB,&
+&.145E-01_JPRB,.149E-01_JPRB,.173E-01_JPRB,.217E-01_JPRB,.880E-02_JPRB,.772E-02_JPRB,.103E-01_JPRB,&
+&.106E-01_JPRB,.747E-02_JPRB,.128E-01_JPRB,.808E-02_JPRB,.144E-01_JPRB,.148E-01_JPRB,.144E-01_JPRB,&
+&.145E-01_JPRB,.151E-01_JPRB,.163E-01_JPRB,.181E-01_JPRB,.218E-01_JPRB,.260E-01_JPRB,.303E-01_JPRB,&
+&.323E-01_JPRB,.318E-01_JPRB,.262E-01_JPRB,.225E-01_JPRB,.128E-01_JPRB,.135E-01_JPRB,.158E-01_JPRB,&
+&.194E-01_JPRB,.184E-01_JPRB,.189E-01_JPRB,.288E-01_JPRB,.365E-01_JPRB,.419E-01_JPRB,.393E-01_JPRB,&
+&.279E-01_JPRB,.211E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 19  18.0
+ZAER (:,19, 2) = (/&
+&.177E-01_JPRB,.169E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,.160E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,&
+&.172E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.174E-01_JPRB,.171E-01_JPRB,.152E-01_JPRB,.150E-01_JPRB,&
+&.154E-01_JPRB,.160E-01_JPRB,.169E-01_JPRB,.181E-01_JPRB,.237E-01_JPRB,.307E-01_JPRB,.416E-01_JPRB,&
+&.708E-01_JPRB,.200E-01_JPRB,.123E-01_JPRB,.107E-01_JPRB,.916E-02_JPRB,.940E-02_JPRB,.964E-02_JPRB,&
+&.881E-02_JPRB,.138E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,.150E-01_JPRB,.142E-01_JPRB,&
+&.144E-01_JPRB,.168E-01_JPRB,.211E-01_JPRB,.244E-01_JPRB,.897E-02_JPRB,.808E-02_JPRB,.105E-01_JPRB,&
+&.101E-01_JPRB,.833E-02_JPRB,.127E-01_JPRB,.792E-02_JPRB,.134E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,&
+&.143E-01_JPRB,.150E-01_JPRB,.167E-01_JPRB,.191E-01_JPRB,.229E-01_JPRB,.271E-01_JPRB,.318E-01_JPRB,&
+&.361E-01_JPRB,.351E-01_JPRB,.331E-01_JPRB,.305E-01_JPRB,.291E-01_JPRB,.182E-01_JPRB,.215E-01_JPRB,&
+&.279E-01_JPRB,.281E-01_JPRB,.277E-01_JPRB,.545E-01_JPRB,.532E-01_JPRB,.513E-01_JPRB,.630E-01_JPRB,&
+&.343E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 20  14.0
+ZAER (:,20, 2) = (/&
+&.171E-01_JPRB,.164E-01_JPRB,.167E-01_JPRB,.171E-01_JPRB,.173E-01_JPRB,.180E-01_JPRB,.186E-01_JPRB,&
+&.190E-01_JPRB,.190E-01_JPRB,.189E-01_JPRB,.185E-01_JPRB,.184E-01_JPRB,.177E-01_JPRB,.182E-01_JPRB,&
+&.191E-01_JPRB,.205E-01_JPRB,.229E-01_JPRB,.263E-01_JPRB,.308E-01_JPRB,.354E-01_JPRB,.472E-01_JPRB,&
+&.259E-01_JPRB,.188E-01_JPRB,.133E-01_JPRB,.957E-02_JPRB,.880E-02_JPRB,.885E-02_JPRB,.964E-02_JPRB,&
+&.960E-02_JPRB,.144E-01_JPRB,.143E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.137E-01_JPRB,&
+&.132E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,.193E-01_JPRB,.820E-02_JPRB,.809E-02_JPRB,.102E-01_JPRB,&
+&.111E-01_JPRB,.798E-02_JPRB,.733E-02_JPRB,.130E-01_JPRB,.127E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,&
+&.141E-01_JPRB,.152E-01_JPRB,.173E-01_JPRB,.206E-01_JPRB,.252E-01_JPRB,.309E-01_JPRB,.378E-01_JPRB,&
+&.450E-01_JPRB,.475E-01_JPRB,.455E-01_JPRB,.400E-01_JPRB,.373E-01_JPRB,.407E-01_JPRB,.315E-01_JPRB,&
+&.403E-01_JPRB,.727E-01_JPRB,.817E-01_JPRB,.697E-01_JPRB,.543E-01_JPRB,.503E-01_JPRB,.559E-01_JPRB,&
+&.320E-01_JPRB,.205E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 21  10.0
+ZAER (:,21, 2) = (/&
+&.173E-01_JPRB,.174E-01_JPRB,.180E-01_JPRB,.187E-01_JPRB,.193E-01_JPRB,.203E-01_JPRB,.210E-01_JPRB,&
+&.212E-01_JPRB,.209E-01_JPRB,.208E-01_JPRB,.205E-01_JPRB,.207E-01_JPRB,.210E-01_JPRB,.210E-01_JPRB,&
+&.212E-01_JPRB,.240E-01_JPRB,.273E-01_JPRB,.289E-01_JPRB,.288E-01_JPRB,.347E-01_JPRB,.347E-01_JPRB,&
+&.156E-01_JPRB,.175E-01_JPRB,.112E-01_JPRB,.102E-01_JPRB,.969E-02_JPRB,.984E-02_JPRB,.101E-01_JPRB,&
+&.106E-01_JPRB,.158E-01_JPRB,.154E-01_JPRB,.158E-01_JPRB,.159E-01_JPRB,.150E-01_JPRB,.135E-01_JPRB,&
+&.122E-01_JPRB,.117E-01_JPRB,.123E-01_JPRB,.166E-01_JPRB,.915E-02_JPRB,.937E-02_JPRB,.113E-01_JPRB,&
+&.103E-01_JPRB,.793E-02_JPRB,.118E-01_JPRB,.123E-01_JPRB,.129E-01_JPRB,.133E-01_JPRB,.142E-01_JPRB,&
+&.152E-01_JPRB,.166E-01_JPRB,.193E-01_JPRB,.239E-01_JPRB,.311E-01_JPRB,.403E-01_JPRB,.531E-01_JPRB,&
+&.686E-01_JPRB,.883E-01_JPRB,.890E-01_JPRB,.771E-01_JPRB,.766E-01_JPRB,.728E-01_JPRB,.946E-01_JPRB,&
+&.126E+00_JPRB,.146E+00_JPRB,.120E+00_JPRB,.707E-01_JPRB,.535E-01_JPRB,.429E-01_JPRB,.404E-01_JPRB,&
+&.262E-01_JPRB,.192E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 22   6.0
+ZAER (:,22, 2) = (/&
+&.192E-01_JPRB,.193E-01_JPRB,.203E-01_JPRB,.212E-01_JPRB,.215E-01_JPRB,.225E-01_JPRB,.240E-01_JPRB,&
+&.243E-01_JPRB,.242E-01_JPRB,.241E-01_JPRB,.239E-01_JPRB,.242E-01_JPRB,.245E-01_JPRB,.240E-01_JPRB,&
+&.221E-01_JPRB,.227E-01_JPRB,.246E-01_JPRB,.269E-01_JPRB,.305E-01_JPRB,.353E-01_JPRB,.212E-01_JPRB,&
+&.155E-01_JPRB,.135E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.178E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,.170E-01_JPRB,.159E-01_JPRB,&
+&.152E-01_JPRB,.152E-01_JPRB,.165E-01_JPRB,.189E-01_JPRB,.111E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,&
+&.107E-01_JPRB,.866E-02_JPRB,.132E-01_JPRB,.134E-01_JPRB,.142E-01_JPRB,.155E-01_JPRB,.171E-01_JPRB,&
+&.190E-01_JPRB,.215E-01_JPRB,.256E-01_JPRB,.323E-01_JPRB,.418E-01_JPRB,.538E-01_JPRB,.714E-01_JPRB,&
+&.880E-01_JPRB,.111E+00_JPRB,.105E+00_JPRB,.123E+00_JPRB,.120E+00_JPRB,.124E+00_JPRB,.149E+00_JPRB,&
+&.170E+00_JPRB,.981E-01_JPRB,.891E-01_JPRB,.851E-01_JPRB,.515E-01_JPRB,.375E-01_JPRB,.290E-01_JPRB,&
+&.223E-01_JPRB,.196E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 23   2.0
+ZAER (:,23, 2) = (/&
+&.248E-01_JPRB,.261E-01_JPRB,.289E-01_JPRB,.298E-01_JPRB,.288E-01_JPRB,.296E-01_JPRB,.300E-01_JPRB,&
+&.304E-01_JPRB,.304E-01_JPRB,.309E-01_JPRB,.312E-01_JPRB,.321E-01_JPRB,.314E-01_JPRB,.311E-01_JPRB,&
+&.302E-01_JPRB,.320E-01_JPRB,.348E-01_JPRB,.363E-01_JPRB,.357E-01_JPRB,.359E-01_JPRB,.246E-01_JPRB,&
+&.182E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.146E-01_JPRB,.143E-01_JPRB,&
+&.224E-01_JPRB,.230E-01_JPRB,.231E-01_JPRB,.232E-01_JPRB,.226E-01_JPRB,.217E-01_JPRB,.203E-01_JPRB,&
+&.190E-01_JPRB,.188E-01_JPRB,.191E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,.142E-01_JPRB,.170E-01_JPRB,&
+&.126E-01_JPRB,.100E-01_JPRB,.894E-02_JPRB,.155E-01_JPRB,.163E-01_JPRB,.179E-01_JPRB,.199E-01_JPRB,&
+&.224E-01_JPRB,.259E-01_JPRB,.307E-01_JPRB,.379E-01_JPRB,.475E-01_JPRB,.607E-01_JPRB,.741E-01_JPRB,&
+&.859E-01_JPRB,.599E-01_JPRB,.108E+00_JPRB,.741E-01_JPRB,.131E+00_JPRB,.137E+00_JPRB,.140E+00_JPRB,&
+&.833E-01_JPRB,.137E+00_JPRB,.969E-01_JPRB,.494E-01_JPRB,.327E-01_JPRB,.283E-01_JPRB,.253E-01_JPRB,&
+&.241E-01_JPRB,.240E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 24  -2.0
+ZAER (:,24, 2) = (/&
+&.311E-01_JPRB,.337E-01_JPRB,.365E-01_JPRB,.401E-01_JPRB,.432E-01_JPRB,.459E-01_JPRB,.466E-01_JPRB,&
+&.473E-01_JPRB,.484E-01_JPRB,.496E-01_JPRB,.493E-01_JPRB,.498E-01_JPRB,.505E-01_JPRB,.515E-01_JPRB,&
+&.504E-01_JPRB,.485E-01_JPRB,.461E-01_JPRB,.419E-01_JPRB,.375E-01_JPRB,.385E-01_JPRB,.402E-01_JPRB,&
+&.180E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,.267E-01_JPRB,.265E-01_JPRB,&
+&.270E-01_JPRB,.270E-01_JPRB,.274E-01_JPRB,.271E-01_JPRB,.268E-01_JPRB,.261E-01_JPRB,.251E-01_JPRB,&
+&.232E-01_JPRB,.217E-01_JPRB,.219E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.147E-01_JPRB,.161E-01_JPRB,&
+&.135E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.181E-01_JPRB,.198E-01_JPRB,.221E-01_JPRB,&
+&.248E-01_JPRB,.280E-01_JPRB,.326E-01_JPRB,.387E-01_JPRB,.473E-01_JPRB,.568E-01_JPRB,.673E-01_JPRB,&
+&.460E-01_JPRB,.933E-01_JPRB,.102E+00_JPRB,.644E-01_JPRB,.135E+00_JPRB,.111E+00_JPRB,.899E-01_JPRB,&
+&.810E-01_JPRB,.566E-01_JPRB,.338E-01_JPRB,.290E-01_JPRB,.263E-01_JPRB,.259E-01_JPRB,.260E-01_JPRB,&
+&.268E-01_JPRB,.284E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 25  -6.0
+ZAER (:,25, 2) = (/&
+&.303E-01_JPRB,.326E-01_JPRB,.353E-01_JPRB,.390E-01_JPRB,.426E-01_JPRB,.462E-01_JPRB,.482E-01_JPRB,&
+&.506E-01_JPRB,.524E-01_JPRB,.536E-01_JPRB,.547E-01_JPRB,.564E-01_JPRB,.579E-01_JPRB,.598E-01_JPRB,&
+&.616E-01_JPRB,.620E-01_JPRB,.592E-01_JPRB,.536E-01_JPRB,.466E-01_JPRB,.414E-01_JPRB,.376E-01_JPRB,&
+&.198E-01_JPRB,.202E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.295E-01_JPRB,.289E-01_JPRB,.296E-01_JPRB,&
+&.308E-01_JPRB,.327E-01_JPRB,.339E-01_JPRB,.351E-01_JPRB,.385E-01_JPRB,.365E-01_JPRB,.208E-01_JPRB,&
+&.194E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.146E-01_JPRB,&
+&.141E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,.131E-01_JPRB,.192E-01_JPRB,.202E-01_JPRB,.223E-01_JPRB,&
+&.246E-01_JPRB,.279E-01_JPRB,.325E-01_JPRB,.347E-01_JPRB,.414E-01_JPRB,.467E-01_JPRB,.542E-01_JPRB,&
+&.588E-01_JPRB,.663E-01_JPRB,.802E-01_JPRB,.821E-01_JPRB,.809E-01_JPRB,.499E-01_JPRB,.444E-01_JPRB,&
+&.392E-01_JPRB,.316E-01_JPRB,.270E-01_JPRB,.256E-01_JPRB,.250E-01_JPRB,.250E-01_JPRB,.254E-01_JPRB,&
+&.264E-01_JPRB,.281E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 26 -10.0
+ZAER (:,26, 2) = (/&
+&.288E-01_JPRB,.319E-01_JPRB,.352E-01_JPRB,.379E-01_JPRB,.403E-01_JPRB,.435E-01_JPRB,.461E-01_JPRB,&
+&.499E-01_JPRB,.537E-01_JPRB,.566E-01_JPRB,.582E-01_JPRB,.613E-01_JPRB,.646E-01_JPRB,.688E-01_JPRB,&
+&.727E-01_JPRB,.762E-01_JPRB,.770E-01_JPRB,.742E-01_JPRB,.739E-01_JPRB,.476E-01_JPRB,.369E-01_JPRB,&
+&.215E-01_JPRB,.209E-01_JPRB,.186E-01_JPRB,.301E-01_JPRB,.297E-01_JPRB,.300E-01_JPRB,.311E-01_JPRB,&
+&.348E-01_JPRB,.418E-01_JPRB,.475E-01_JPRB,.512E-01_JPRB,.601E-01_JPRB,.550E-01_JPRB,.311E-01_JPRB,&
+&.305E-01_JPRB,.296E-01_JPRB,.269E-01_JPRB,.265E-01_JPRB,.220E-01_JPRB,.230E-01_JPRB,.209E-01_JPRB,&
+&.158E-01_JPRB,.144E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,&
+&.233E-01_JPRB,.269E-01_JPRB,.311E-01_JPRB,.296E-01_JPRB,.350E-01_JPRB,.391E-01_JPRB,.441E-01_JPRB,&
+&.434E-01_JPRB,.414E-01_JPRB,.454E-01_JPRB,.550E-01_JPRB,.560E-01_JPRB,.385E-01_JPRB,.348E-01_JPRB,&
+&.319E-01_JPRB,.285E-01_JPRB,.259E-01_JPRB,.247E-01_JPRB,.242E-01_JPRB,.241E-01_JPRB,.244E-01_JPRB,&
+&.253E-01_JPRB,.268E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 27 -14.0
+ZAER (:,27, 2) = (/&
+&.257E-01_JPRB,.307E-01_JPRB,.379E-01_JPRB,.413E-01_JPRB,.402E-01_JPRB,.371E-01_JPRB,.385E-01_JPRB,&
+&.393E-01_JPRB,.429E-01_JPRB,.464E-01_JPRB,.513E-01_JPRB,.588E-01_JPRB,.646E-01_JPRB,.721E-01_JPRB,&
+&.798E-01_JPRB,.862E-01_JPRB,.898E-01_JPRB,.107E+00_JPRB,.439E-01_JPRB,.257E-01_JPRB,.380E-01_JPRB,&
+&.377E-01_JPRB,.367E-01_JPRB,.314E-01_JPRB,.292E-01_JPRB,.291E-01_JPRB,.295E-01_JPRB,.312E-01_JPRB,&
+&.340E-01_JPRB,.369E-01_JPRB,.382E-01_JPRB,.404E-01_JPRB,.456E-01_JPRB,.287E-01_JPRB,.313E-01_JPRB,&
+&.299E-01_JPRB,.297E-01_JPRB,.305E-01_JPRB,.285E-01_JPRB,.284E-01_JPRB,.246E-01_JPRB,.200E-01_JPRB,&
+&.201E-01_JPRB,.179E-01_JPRB,.159E-01_JPRB,.149E-01_JPRB,.263E-01_JPRB,.244E-01_JPRB,.224E-01_JPRB,&
+&.234E-01_JPRB,.300E-01_JPRB,.206E-01_JPRB,.274E-01_JPRB,.283E-01_JPRB,.322E-01_JPRB,.389E-01_JPRB,&
+&.205E-01_JPRB,.212E-01_JPRB,.347E-01_JPRB,.401E-01_JPRB,.440E-01_JPRB,.339E-01_JPRB,.321E-01_JPRB,&
+&.303E-01_JPRB,.289E-01_JPRB,.265E-01_JPRB,.241E-01_JPRB,.229E-01_JPRB,.225E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.234E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 28 -18.0
+ZAER (:,28, 2) = (/&
+&.191E-01_JPRB,.230E-01_JPRB,.342E-01_JPRB,.537E-01_JPRB,.674E-01_JPRB,.331E-01_JPRB,.280E-01_JPRB,&
+&.272E-01_JPRB,.283E-01_JPRB,.313E-01_JPRB,.374E-01_JPRB,.453E-01_JPRB,.535E-01_JPRB,.631E-01_JPRB,&
+&.758E-01_JPRB,.895E-01_JPRB,.498E-01_JPRB,.596E-01_JPRB,.388E-01_JPRB,.429E-01_JPRB,.386E-01_JPRB,&
+&.368E-01_JPRB,.356E-01_JPRB,.304E-01_JPRB,.289E-01_JPRB,.278E-01_JPRB,.286E-01_JPRB,.277E-01_JPRB,&
+&.274E-01_JPRB,.286E-01_JPRB,.309E-01_JPRB,.319E-01_JPRB,.327E-01_JPRB,.189E-01_JPRB,.171E-01_JPRB,&
+&.157E-01_JPRB,.191E-01_JPRB,.250E-01_JPRB,.257E-01_JPRB,.256E-01_JPRB,.238E-01_JPRB,.219E-01_JPRB,&
+&.238E-01_JPRB,.243E-01_JPRB,.277E-01_JPRB,.151E-01_JPRB,.170E-01_JPRB,.156E-01_JPRB,.266E-01_JPRB,&
+&.269E-01_JPRB,.339E-01_JPRB,.223E-01_JPRB,.206E-01_JPRB,.287E-01_JPRB,.345E-01_JPRB,.267E-01_JPRB,&
+&.294E-01_JPRB,.249E-01_JPRB,.377E-01_JPRB,.340E-01_JPRB,.307E-01_JPRB,.298E-01_JPRB,.298E-01_JPRB,&
+&.302E-01_JPRB,.304E-01_JPRB,.291E-01_JPRB,.240E-01_JPRB,.212E-01_JPRB,.195E-01_JPRB,.184E-01_JPRB,&
+&.180E-01_JPRB,.177E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 29 -22.0
+ZAER (:,29, 2) = (/&
+&.145E-01_JPRB,.170E-01_JPRB,.205E-01_JPRB,.398E-01_JPRB,.925E-01_JPRB,.779E-01_JPRB,.270E-01_JPRB,&
+&.195E-01_JPRB,.199E-01_JPRB,.199E-01_JPRB,.232E-01_JPRB,.301E-01_JPRB,.379E-01_JPRB,.498E-01_JPRB,&
+&.663E-01_JPRB,.444E-01_JPRB,.417E-01_JPRB,.697E-01_JPRB,.602E-01_JPRB,.483E-01_JPRB,.386E-01_JPRB,&
+&.360E-01_JPRB,.357E-01_JPRB,.331E-01_JPRB,.303E-01_JPRB,.287E-01_JPRB,.281E-01_JPRB,.258E-01_JPRB,&
+&.245E-01_JPRB,.249E-01_JPRB,.275E-01_JPRB,.261E-01_JPRB,.237E-01_JPRB,.135E-01_JPRB,.127E-01_JPRB,&
+&.119E-01_JPRB,.124E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.208E-01_JPRB,.253E-01_JPRB,.246E-01_JPRB,&
+&.237E-01_JPRB,.276E-01_JPRB,.211E-01_JPRB,.250E-01_JPRB,.227E-01_JPRB,.198E-01_JPRB,.309E-01_JPRB,&
+&.324E-01_JPRB,.207E-01_JPRB,.255E-01_JPRB,.261E-01_JPRB,.202E-01_JPRB,.217E-01_JPRB,.232E-01_JPRB,&
+&.330E-01_JPRB,.476E-01_JPRB,.382E-01_JPRB,.403E-01_JPRB,.296E-01_JPRB,.270E-01_JPRB,.258E-01_JPRB,&
+&.280E-01_JPRB,.319E-01_JPRB,.311E-01_JPRB,.254E-01_JPRB,.208E-01_JPRB,.188E-01_JPRB,.172E-01_JPRB,&
+&.170E-01_JPRB,.157E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 30 -26.0
+ZAER (:,30, 2) = (/&
+&.174E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,.195E-01_JPRB,.317E-01_JPRB,.451E-01_JPRB,.265E-01_JPRB,&
+&.182E-01_JPRB,.170E-01_JPRB,.151E-01_JPRB,.145E-01_JPRB,.163E-01_JPRB,.227E-01_JPRB,.338E-01_JPRB,&
+&.260E-01_JPRB,.301E-01_JPRB,.380E-01_JPRB,.686E-01_JPRB,.697E-01_JPRB,.634E-01_JPRB,.486E-01_JPRB,&
+&.400E-01_JPRB,.356E-01_JPRB,.343E-01_JPRB,.307E-01_JPRB,.279E-01_JPRB,.253E-01_JPRB,.241E-01_JPRB,&
+&.234E-01_JPRB,.224E-01_JPRB,.225E-01_JPRB,.201E-01_JPRB,.192E-01_JPRB,.182E-01_JPRB,.105E-01_JPRB,&
+&.110E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,.162E-01_JPRB,.176E-01_JPRB,.255E-01_JPRB,.279E-01_JPRB,&
+&.277E-01_JPRB,.317E-01_JPRB,.297E-01_JPRB,.295E-01_JPRB,.226E-01_JPRB,.367E-01_JPRB,.190E-01_JPRB,&
+&.181E-01_JPRB,.217E-01_JPRB,.300E-01_JPRB,.278E-01_JPRB,.178E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,&
+&.189E-01_JPRB,.554E-01_JPRB,.797E-01_JPRB,.613E-01_JPRB,.607E-01_JPRB,.396E-01_JPRB,.256E-01_JPRB,&
+&.255E-01_JPRB,.307E-01_JPRB,.271E-01_JPRB,.247E-01_JPRB,.239E-01_JPRB,.207E-01_JPRB,.190E-01_JPRB,&
+&.187E-01_JPRB,.183E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 31 -30.0
+ZAER (:,31, 2) = (/&
+&.199E-01_JPRB,.186E-01_JPRB,.174E-01_JPRB,.166E-01_JPRB,.198E-01_JPRB,.300E-01_JPRB,.269E-01_JPRB,&
+&.177E-01_JPRB,.155E-01_JPRB,.132E-01_JPRB,.120E-01_JPRB,.130E-01_JPRB,.206E-01_JPRB,.283E-01_JPRB,&
+&.175E-01_JPRB,.280E-01_JPRB,.415E-01_JPRB,.480E-01_JPRB,.478E-01_JPRB,.430E-01_JPRB,.534E-01_JPRB,&
+&.465E-01_JPRB,.437E-01_JPRB,.323E-01_JPRB,.270E-01_JPRB,.244E-01_JPRB,.221E-01_JPRB,.202E-01_JPRB,&
+&.201E-01_JPRB,.192E-01_JPRB,.194E-01_JPRB,.174E-01_JPRB,.175E-01_JPRB,.156E-01_JPRB,.884E-02_JPRB,&
+&.936E-02_JPRB,.109E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,.168E-01_JPRB,.217E-01_JPRB,.241E-01_JPRB,&
+&.232E-01_JPRB,.258E-01_JPRB,.309E-01_JPRB,.362E-01_JPRB,.223E-01_JPRB,.173E-01_JPRB,.174E-01_JPRB,&
+&.184E-01_JPRB,.210E-01_JPRB,.245E-01_JPRB,.146E-01_JPRB,.809E-02_JPRB,.698E-02_JPRB,.743E-02_JPRB,&
+&.140E-01_JPRB,.946E-01_JPRB,.118E+00_JPRB,.101E+00_JPRB,.887E-01_JPRB,.933E-01_JPRB,.531E-01_JPRB,&
+&.538E-01_JPRB,.466E-01_JPRB,.351E-01_JPRB,.301E-01_JPRB,.277E-01_JPRB,.245E-01_JPRB,.229E-01_JPRB,&
+&.229E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 32 -34.0
+ZAER (:,32, 2) = (/&
+&.173E-01_JPRB,.163E-01_JPRB,.161E-01_JPRB,.157E-01_JPRB,.159E-01_JPRB,.209E-01_JPRB,.234E-01_JPRB,&
+&.176E-01_JPRB,.151E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.134E-01_JPRB,.247E-01_JPRB,.183E-01_JPRB,&
+&.192E-01_JPRB,.267E-01_JPRB,.494E-01_JPRB,.565E-01_JPRB,.506E-01_JPRB,.451E-01_JPRB,.480E-01_JPRB,&
+&.740E-01_JPRB,.497E-01_JPRB,.328E-01_JPRB,.255E-01_JPRB,.209E-01_JPRB,.187E-01_JPRB,.175E-01_JPRB,&
+&.169E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,.158E-01_JPRB,.160E-01_JPRB,.145E-01_JPRB,.159E-01_JPRB,&
+&.938E-02_JPRB,.113E-01_JPRB,.129E-01_JPRB,.143E-01_JPRB,.315E-01_JPRB,.357E-01_JPRB,.317E-01_JPRB,&
+&.372E-01_JPRB,.317E-01_JPRB,.230E-01_JPRB,.282E-01_JPRB,.237E-01_JPRB,.192E-01_JPRB,.204E-01_JPRB,&
+&.185E-01_JPRB,.182E-01_JPRB,.126E-01_JPRB,.741E-02_JPRB,.589E-02_JPRB,.531E-02_JPRB,.488E-02_JPRB,&
+&.102E-01_JPRB,.935E-01_JPRB,.104E+00_JPRB,.989E-01_JPRB,.861E-01_JPRB,.105E+00_JPRB,.734E-01_JPRB,&
+&.357E-01_JPRB,.469E-01_JPRB,.404E-01_JPRB,.336E-01_JPRB,.290E-01_JPRB,.262E-01_JPRB,.232E-01_JPRB,&
+&.211E-01_JPRB,.194E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 33 -38.0
+ZAER (:,33, 2) = (/&
+&.142E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,.141E-01_JPRB,.159E-01_JPRB,.178E-01_JPRB,&
+&.163E-01_JPRB,.144E-01_JPRB,.125E-01_JPRB,.108E-01_JPRB,.119E-01_JPRB,.102E-01_JPRB,.134E-01_JPRB,&
+&.140E-01_JPRB,.135E-01_JPRB,.335E-01_JPRB,.466E-01_JPRB,.456E-01_JPRB,.559E-01_JPRB,.588E-01_JPRB,&
+&.945E-01_JPRB,.549E-01_JPRB,.339E-01_JPRB,.251E-01_JPRB,.207E-01_JPRB,.182E-01_JPRB,.151E-01_JPRB,&
+&.139E-01_JPRB,.140E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,.128E-01_JPRB,.130E-01_JPRB,.151E-01_JPRB,&
+&.109E-01_JPRB,.237E-01_JPRB,.271E-01_JPRB,.310E-01_JPRB,.336E-01_JPRB,.369E-01_JPRB,.351E-01_JPRB,&
+&.262E-01_JPRB,.233E-01_JPRB,.222E-01_JPRB,.205E-01_JPRB,.273E-01_JPRB,.250E-01_JPRB,.244E-01_JPRB,&
+&.268E-01_JPRB,.165E-01_JPRB,.108E-01_JPRB,.992E-02_JPRB,.813E-02_JPRB,.604E-02_JPRB,.539E-02_JPRB,&
+&.769E-02_JPRB,.259E-01_JPRB,.282E-01_JPRB,.412E-01_JPRB,.915E-01_JPRB,.786E-01_JPRB,.571E-01_JPRB,&
+&.546E-01_JPRB,.288E-01_JPRB,.367E-01_JPRB,.280E-01_JPRB,.237E-01_JPRB,.208E-01_JPRB,.181E-01_JPRB,&
+&.163E-01_JPRB,.152E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 34 -42.0
+ZAER (:,34, 2) = (/&
+&.119E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.130E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,&
+&.127E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.122E-01_JPRB,.741E-02_JPRB,.845E-02_JPRB,&
+&.856E-02_JPRB,.115E-01_JPRB,.224E-01_JPRB,.352E-01_JPRB,.355E-01_JPRB,.392E-01_JPRB,.382E-01_JPRB,&
+&.378E-01_JPRB,.566E-01_JPRB,.458E-01_JPRB,.373E-01_JPRB,.273E-01_JPRB,.224E-01_JPRB,.163E-01_JPRB,&
+&.135E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.137E-01_JPRB,&
+&.103E-01_JPRB,.147E-01_JPRB,.289E-01_JPRB,.306E-01_JPRB,.374E-01_JPRB,.263E-01_JPRB,.295E-01_JPRB,&
+&.712E-01_JPRB,.561E-01_JPRB,.237E-01_JPRB,.259E-01_JPRB,.438E-01_JPRB,.288E-01_JPRB,.235E-01_JPRB,&
+&.241E-01_JPRB,.190E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.156E-01_JPRB,.161E-01_JPRB,.114E-01_JPRB,&
+&.145E-01_JPRB,.129E-01_JPRB,.115E-01_JPRB,.187E-01_JPRB,.399E-01_JPRB,.381E-01_JPRB,.355E-01_JPRB,&
+&.478E-01_JPRB,.329E-01_JPRB,.324E-01_JPRB,.279E-01_JPRB,.235E-01_JPRB,.199E-01_JPRB,.171E-01_JPRB,&
+&.144E-01_JPRB,.129E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 35 -46.0
+ZAER (:,35, 2) = (/&
+&.115E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.128E-01_JPRB,.119E-01_JPRB,&
+&.115E-01_JPRB,.120E-01_JPRB,.106E-01_JPRB,.114E-01_JPRB,.156E-01_JPRB,.994E-02_JPRB,.950E-02_JPRB,&
+&.105E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,.150E-01_JPRB,.217E-01_JPRB,.271E-01_JPRB,.336E-01_JPRB,&
+&.360E-01_JPRB,.279E-01_JPRB,.223E-01_JPRB,.375E-01_JPRB,.328E-01_JPRB,.262E-01_JPRB,.190E-01_JPRB,&
+&.148E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.139E-01_JPRB,&
+&.196E-01_JPRB,.155E-01_JPRB,.186E-01_JPRB,.212E-01_JPRB,.250E-01_JPRB,.336E-01_JPRB,.535E-01_JPRB,&
+&.650E-01_JPRB,.510E-01_JPRB,.287E-01_JPRB,.362E-01_JPRB,.420E-01_JPRB,.315E-01_JPRB,.276E-01_JPRB,&
+&.291E-01_JPRB,.360E-01_JPRB,.249E-01_JPRB,.267E-01_JPRB,.212E-01_JPRB,.172E-01_JPRB,.156E-01_JPRB,&
+&.143E-01_JPRB,.126E-01_JPRB,.144E-01_JPRB,.190E-01_JPRB,.255E-01_JPRB,.160E-01_JPRB,.171E-01_JPRB,&
+&.143E-01_JPRB,.238E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,.231E-01_JPRB,.204E-01_JPRB,.175E-01_JPRB,&
+&.149E-01_JPRB,.129E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 36 -50.0
+ZAER (:,36, 2) = (/&
+&.119E-01_JPRB,.107E-01_JPRB,.100E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,&
+&.119E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,.845E-02_JPRB,.100E-01_JPRB,.960E-02_JPRB,&
+&.118E-01_JPRB,.131E-01_JPRB,.137E-01_JPRB,.193E-01_JPRB,.227E-01_JPRB,.219E-01_JPRB,.262E-01_JPRB,&
+&.293E-01_JPRB,.280E-01_JPRB,.259E-01_JPRB,.349E-01_JPRB,.328E-01_JPRB,.284E-01_JPRB,.206E-01_JPRB,&
+&.148E-01_JPRB,.133E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.121E-01_JPRB,.135E-01_JPRB,&
+&.147E-01_JPRB,.111E-01_JPRB,.159E-01_JPRB,.197E-01_JPRB,.242E-01_JPRB,.331E-01_JPRB,.480E-01_JPRB,&
+&.446E-01_JPRB,.520E-01_JPRB,.507E-01_JPRB,.518E-01_JPRB,.367E-01_JPRB,.372E-01_JPRB,.338E-01_JPRB,&
+&.351E-01_JPRB,.365E-01_JPRB,.325E-01_JPRB,.489E-01_JPRB,.289E-01_JPRB,.168E-01_JPRB,.165E-01_JPRB,&
+&.131E-01_JPRB,.137E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,&
+&.123E-01_JPRB,.118E-01_JPRB,.235E-01_JPRB,.247E-01_JPRB,.212E-01_JPRB,.189E-01_JPRB,.171E-01_JPRB,&
+&.142E-01_JPRB,.135E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 37 -54.0
+ZAER (:,37, 2) = (/&
+&.143E-01_JPRB,.118E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,.945E-02_JPRB,&
+&.109E-01_JPRB,.110E-01_JPRB,.122E-01_JPRB,.736E-02_JPRB,.719E-02_JPRB,.873E-02_JPRB,.929E-02_JPRB,&
+&.122E-01_JPRB,.135E-01_JPRB,.152E-01_JPRB,.211E-01_JPRB,.225E-01_JPRB,.210E-01_JPRB,.376E-01_JPRB,&
+&.227E-01_JPRB,.234E-01_JPRB,.211E-01_JPRB,.236E-01_JPRB,.362E-01_JPRB,.267E-01_JPRB,.184E-01_JPRB,&
+&.156E-01_JPRB,.132E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,.145E-01_JPRB,&
+&.936E-02_JPRB,.215E-01_JPRB,.442E-01_JPRB,.311E-01_JPRB,.420E-01_JPRB,.533E-01_JPRB,.660E-01_JPRB,&
+&.567E-01_JPRB,.589E-01_JPRB,.465E-01_JPRB,.543E-01_JPRB,.498E-01_JPRB,.410E-01_JPRB,.327E-01_JPRB,&
+&.273E-01_JPRB,.296E-01_JPRB,.335E-01_JPRB,.497E-01_JPRB,.431E-01_JPRB,.272E-01_JPRB,.221E-01_JPRB,&
+&.167E-01_JPRB,.182E-01_JPRB,.190E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.994E-02_JPRB,.101E-01_JPRB,&
+&.112E-01_JPRB,.187E-01_JPRB,.197E-01_JPRB,.190E-01_JPRB,.207E-01_JPRB,.106E-01_JPRB,.170E-01_JPRB,&
+&.150E-01_JPRB,.136E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 38 -58.0
+ZAER (:,38, 2) = (/&
+&.163E-01_JPRB,.149E-01_JPRB,.136E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.997E-02_JPRB,&
+&.108E-01_JPRB,.116E-01_JPRB,.672E-02_JPRB,.603E-02_JPRB,.636E-02_JPRB,.762E-02_JPRB,.886E-02_JPRB,&
+&.979E-02_JPRB,.128E-01_JPRB,.164E-01_JPRB,.166E-01_JPRB,.351E-01_JPRB,.329E-01_JPRB,.371E-01_JPRB,&
+&.290E-01_JPRB,.209E-01_JPRB,.192E-01_JPRB,.374E-01_JPRB,.351E-01_JPRB,.243E-01_JPRB,.197E-01_JPRB,&
+&.171E-01_JPRB,.144E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.119E-01_JPRB,.142E-01_JPRB,.168E-01_JPRB,&
+&.230E-01_JPRB,.315E-01_JPRB,.414E-01_JPRB,.315E-01_JPRB,.449E-01_JPRB,.910E-01_JPRB,.534E-01_JPRB,&
+&.589E-01_JPRB,.598E-01_JPRB,.461E-01_JPRB,.486E-01_JPRB,.545E-01_JPRB,.593E-01_JPRB,.435E-01_JPRB,&
+&.345E-01_JPRB,.330E-01_JPRB,.301E-01_JPRB,.335E-01_JPRB,.405E-01_JPRB,.317E-01_JPRB,.309E-01_JPRB,&
+&.250E-01_JPRB,.178E-01_JPRB,.130E-01_JPRB,.992E-02_JPRB,.916E-02_JPRB,.960E-02_JPRB,.986E-02_JPRB,&
+&.100E-01_JPRB,.113E-01_JPRB,.216E-01_JPRB,.201E-01_JPRB,.197E-01_JPRB,.103E-01_JPRB,.160E-01_JPRB,&
+&.168E-01_JPRB,.178E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 39 -62.0
+ZAER (:,39, 2) = (/&
+&.160E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.150E-01_JPRB,.948E-02_JPRB,.100E-01_JPRB,.760E-02_JPRB,&
+&.647E-02_JPRB,.551E-02_JPRB,.602E-02_JPRB,.569E-02_JPRB,.734E-02_JPRB,.102E-01_JPRB,.110E-01_JPRB,&
+&.106E-01_JPRB,.115E-01_JPRB,.149E-01_JPRB,.159E-01_JPRB,.347E-01_JPRB,.314E-01_JPRB,.340E-01_JPRB,&
+&.214E-01_JPRB,.361E-01_JPRB,.310E-01_JPRB,.319E-01_JPRB,.255E-01_JPRB,.221E-01_JPRB,.990E-02_JPRB,&
+&.185E-01_JPRB,.203E-01_JPRB,.188E-01_JPRB,.160E-01_JPRB,.143E-01_JPRB,.155E-01_JPRB,.195E-01_JPRB,&
+&.233E-01_JPRB,.282E-01_JPRB,.316E-01_JPRB,.237E-01_JPRB,.258E-01_JPRB,.673E-01_JPRB,.400E-01_JPRB,&
+&.421E-01_JPRB,.473E-01_JPRB,.433E-01_JPRB,.492E-01_JPRB,.533E-01_JPRB,.494E-01_JPRB,.392E-01_JPRB,&
+&.433E-01_JPRB,.393E-01_JPRB,.303E-01_JPRB,.301E-01_JPRB,.330E-01_JPRB,.357E-01_JPRB,.290E-01_JPRB,&
+&.235E-01_JPRB,.171E-01_JPRB,.107E-01_JPRB,.927E-02_JPRB,.101E-01_JPRB,.974E-02_JPRB,.909E-02_JPRB,&
+&.973E-02_JPRB,.932E-02_JPRB,.878E-02_JPRB,.903E-02_JPRB,.946E-02_JPRB,.907E-02_JPRB,.830E-02_JPRB,&
+&.942E-02_JPRB,.177E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 40 -66.0
+ZAER (:,40, 2) = (/&
+&.858E-02_JPRB,.862E-02_JPRB,.143E-01_JPRB,.152E-01_JPRB,.929E-02_JPRB,.932E-02_JPRB,.926E-02_JPRB,&
+&.852E-02_JPRB,.782E-02_JPRB,.750E-02_JPRB,.840E-02_JPRB,.988E-02_JPRB,.108E-01_JPRB,.115E-01_JPRB,&
+&.124E-01_JPRB,.114E-01_JPRB,.130E-01_JPRB,.140E-01_JPRB,.182E-01_JPRB,.194E-01_JPRB,.296E-01_JPRB,&
+&.172E-01_JPRB,.218E-01_JPRB,.195E-01_JPRB,.244E-01_JPRB,.242E-01_JPRB,.132E-01_JPRB,.932E-02_JPRB,&
+&.748E-02_JPRB,.145E-01_JPRB,.198E-01_JPRB,.242E-01_JPRB,.219E-01_JPRB,.184E-01_JPRB,.217E-01_JPRB,&
+&.267E-01_JPRB,.240E-01_JPRB,.233E-01_JPRB,.289E-01_JPRB,.179E-01_JPRB,.354E-01_JPRB,.408E-01_JPRB,&
+&.372E-01_JPRB,.381E-01_JPRB,.406E-01_JPRB,.445E-01_JPRB,.394E-01_JPRB,.344E-01_JPRB,.304E-01_JPRB,&
+&.304E-01_JPRB,.308E-01_JPRB,.351E-01_JPRB,.371E-01_JPRB,.346E-01_JPRB,.300E-01_JPRB,.220E-01_JPRB,&
+&.143E-01_JPRB,.941E-02_JPRB,.967E-02_JPRB,.111E-01_JPRB,.884E-02_JPRB,.823E-02_JPRB,.795E-02_JPRB,&
+&.849E-02_JPRB,.920E-02_JPRB,.967E-02_JPRB,.944E-02_JPRB,.939E-02_JPRB,.918E-02_JPRB,.898E-02_JPRB,&
+&.927E-02_JPRB,.929E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 41 -70.0
+ZAER (:,41, 2) = (/&
+&.183E-01_JPRB,.176E-01_JPRB,.175E-01_JPRB,.167E-01_JPRB,.979E-02_JPRB,.965E-02_JPRB,.914E-02_JPRB,&
+&.894E-02_JPRB,.154E-01_JPRB,.168E-01_JPRB,.107E-01_JPRB,.176E-01_JPRB,.177E-01_JPRB,.115E-01_JPRB,&
+&.125E-01_JPRB,.120E-01_JPRB,.218E-01_JPRB,.141E-01_JPRB,.158E-01_JPRB,.192E-01_JPRB,.192E-01_JPRB,&
+&.217E-01_JPRB,.189E-01_JPRB,.256E-01_JPRB,.230E-01_JPRB,.244E-01_JPRB,.123E-01_JPRB,.720E-02_JPRB,&
+&.431E-02_JPRB,.350E-02_JPRB,.453E-02_JPRB,.818E-02_JPRB,.214E-01_JPRB,.228E-01_JPRB,.200E-01_JPRB,&
+&.163E-01_JPRB,.157E-01_JPRB,.166E-01_JPRB,.176E-01_JPRB,.206E-01_JPRB,.293E-01_JPRB,.213E-01_JPRB,&
+&.255E-01_JPRB,.557E-01_JPRB,.745E-01_JPRB,.799E-01_JPRB,.826E-01_JPRB,.750E-01_JPRB,.672E-01_JPRB,&
+&.562E-01_JPRB,.300E-01_JPRB,.301E-01_JPRB,.281E-01_JPRB,.222E-01_JPRB,.153E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.101E-01_JPRB,.944E-02_JPRB,.979E-02_JPRB,.913E-02_JPRB,&
+&.897E-02_JPRB,.944E-02_JPRB,.100E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,.105E-01_JPRB,&
+&.184E-01_JPRB,.117E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 42 -74.0
+ZAER (:,42, 2) = (/&
+&.199E-01_JPRB,.199E-01_JPRB,.203E-01_JPRB,.195E-01_JPRB,.195E-01_JPRB,.194E-01_JPRB,.197E-01_JPRB,&
+&.201E-01_JPRB,.194E-01_JPRB,.187E-01_JPRB,.188E-01_JPRB,.193E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,&
+&.236E-01_JPRB,.251E-01_JPRB,.267E-01_JPRB,.264E-01_JPRB,.257E-01_JPRB,.154E-01_JPRB,.256E-01_JPRB,&
+&.239E-01_JPRB,.214E-01_JPRB,.233E-01_JPRB,.225E-01_JPRB,.134E-01_JPRB,.102E-01_JPRB,.659E-02_JPRB,&
+&.449E-02_JPRB,.414E-02_JPRB,.412E-02_JPRB,.534E-02_JPRB,.165E-01_JPRB,.223E-01_JPRB,.235E-01_JPRB,&
+&.214E-01_JPRB,.202E-01_JPRB,.203E-01_JPRB,.213E-01_JPRB,.227E-01_JPRB,.260E-01_JPRB,.310E-01_JPRB,&
+&.398E-01_JPRB,.496E-01_JPRB,.665E-01_JPRB,.731E-01_JPRB,.697E-01_JPRB,.613E-01_JPRB,.483E-01_JPRB,&
+&.459E-01_JPRB,.446E-01_JPRB,.459E-01_JPRB,.396E-01_JPRB,.189E-01_JPRB,.154E-01_JPRB,.142E-01_JPRB,&
+&.126E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.191E-01_JPRB,.168E-01_JPRB,.164E-01_JPRB,&
+&.169E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,.185E-01_JPRB,.199E-01_JPRB,&
+&.204E-01_JPRB,.201E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 43 -78.0
+ZAER (:,43, 2) = (/&
+&.214E-01_JPRB,.212E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,.212E-01_JPRB,.214E-01_JPRB,.216E-01_JPRB,&
+&.216E-01_JPRB,.213E-01_JPRB,.215E-01_JPRB,.222E-01_JPRB,.230E-01_JPRB,.235E-01_JPRB,.249E-01_JPRB,&
+&.262E-01_JPRB,.263E-01_JPRB,.260E-01_JPRB,.252E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,&
+&.223E-01_JPRB,.216E-01_JPRB,.133E-01_JPRB,.117E-01_JPRB,.109E-01_JPRB,.906E-02_JPRB,.684E-02_JPRB,&
+&.594E-02_JPRB,.560E-02_JPRB,.607E-02_JPRB,.671E-02_JPRB,.138E-01_JPRB,.188E-01_JPRB,.207E-01_JPRB,&
+&.213E-01_JPRB,.233E-01_JPRB,.251E-01_JPRB,.267E-01_JPRB,.163E-01_JPRB,.281E-01_JPRB,.304E-01_JPRB,&
+&.329E-01_JPRB,.355E-01_JPRB,.370E-01_JPRB,.383E-01_JPRB,.380E-01_JPRB,.372E-01_JPRB,.358E-01_JPRB,&
+&.351E-01_JPRB,.340E-01_JPRB,.289E-01_JPRB,.249E-01_JPRB,.241E-01_JPRB,.238E-01_JPRB,.234E-01_JPRB,&
+&.221E-01_JPRB,.124E-01_JPRB,.198E-01_JPRB,.187E-01_JPRB,.176E-01_JPRB,.162E-01_JPRB,.158E-01_JPRB,&
+&.165E-01_JPRB,.172E-01_JPRB,.187E-01_JPRB,.193E-01_JPRB,.194E-01_JPRB,.194E-01_JPRB,.195E-01_JPRB,&
+&.198E-01_JPRB,.207E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 44 -82.0
+ZAER (:,44, 2) = (/&
+&.204E-01_JPRB,.203E-01_JPRB,.201E-01_JPRB,.202E-01_JPRB,.202E-01_JPRB,.203E-01_JPRB,.206E-01_JPRB,&
+&.214E-01_JPRB,.220E-01_JPRB,.228E-01_JPRB,.234E-01_JPRB,.240E-01_JPRB,.237E-01_JPRB,.236E-01_JPRB,&
+&.234E-01_JPRB,.232E-01_JPRB,.229E-01_JPRB,.226E-01_JPRB,.218E-01_JPRB,.208E-01_JPRB,.121E-01_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,.920E-02_JPRB,.870E-02_JPRB,&
+&.828E-02_JPRB,.806E-02_JPRB,.844E-02_JPRB,.930E-02_JPRB,.999E-02_JPRB,.178E-01_JPRB,.186E-01_JPRB,&
+&.196E-01_JPRB,.208E-01_JPRB,.211E-01_JPRB,.211E-01_JPRB,.214E-01_JPRB,.217E-01_JPRB,.219E-01_JPRB,&
+&.214E-01_JPRB,.213E-01_JPRB,.209E-01_JPRB,.206E-01_JPRB,.203E-01_JPRB,.198E-01_JPRB,.180E-01_JPRB,&
+&.174E-01_JPRB,.170E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.170E-01_JPRB,.168E-01_JPRB,.166E-01_JPRB,&
+&.167E-01_JPRB,.170E-01_JPRB,.178E-01_JPRB,.187E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,.176E-01_JPRB,&
+&.175E-01_JPRB,.176E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.179E-01_JPRB,.183E-01_JPRB,&
+&.191E-01_JPRB,.202E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 45 -86.0
+ZAER (:,45, 2) = (/&
+&.187E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,&
+&.177E-01_JPRB,.176E-01_JPRB,.175E-01_JPRB,.173E-01_JPRB,.171E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.165E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,.161E-01_JPRB,&
+&.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,&
+&.162E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,.167E-01_JPRB,&
+&.169E-01_JPRB,.165E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.150E-01_JPRB,.149E-01_JPRB,&
+&.146E-01_JPRB,.143E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,&
+&.137E-01_JPRB,.138E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.147E-01_JPRB,&
+&.150E-01_JPRB,.154E-01_JPRB,.159E-01_JPRB,.163E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,&
+&.156E-01_JPRB,.154E-01_JPRB,.158E-01_JPRB,.160E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.175E-01_JPRB,&
+&.181E-01_JPRB,.188E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  2 --- lat: 46 -90.0
+ZAER (:,46, 2) = (/&
+&.163E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=2   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_02
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_03.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_03.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_03.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_03
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          March
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,3:3)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  3 --- lat:  1  90.0
+ZAER (:, 1, 3) = (/&
+&.464E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,.459E-02_JPRB,&
+&.459E-02_JPRB,.459E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  2  86.0
+ZAER (:, 2, 3) = (/&
+&.713E-02_JPRB,.760E-02_JPRB,.807E-02_JPRB,.841E-02_JPRB,.873E-02_JPRB,.878E-02_JPRB,.895E-02_JPRB,&
+&.895E-02_JPRB,.897E-02_JPRB,.896E-02_JPRB,.886E-02_JPRB,.870E-02_JPRB,.776E-02_JPRB,.742E-02_JPRB,&
+&.709E-02_JPRB,.695E-02_JPRB,.675E-02_JPRB,.660E-02_JPRB,.664E-02_JPRB,.672E-02_JPRB,.680E-02_JPRB,&
+&.694E-02_JPRB,.707E-02_JPRB,.735E-02_JPRB,.672E-02_JPRB,.674E-02_JPRB,.657E-02_JPRB,.659E-02_JPRB,&
+&.653E-02_JPRB,.644E-02_JPRB,.656E-02_JPRB,.659E-02_JPRB,.651E-02_JPRB,.673E-02_JPRB,.674E-02_JPRB,&
+&.690E-02_JPRB,.606E-02_JPRB,.582E-02_JPRB,.567E-02_JPRB,.555E-02_JPRB,.541E-02_JPRB,.529E-02_JPRB,&
+&.520E-02_JPRB,.510E-02_JPRB,.502E-02_JPRB,.495E-02_JPRB,.492E-02_JPRB,.484E-02_JPRB,.453E-02_JPRB,&
+&.440E-02_JPRB,.431E-02_JPRB,.424E-02_JPRB,.421E-02_JPRB,.417E-02_JPRB,.416E-02_JPRB,.411E-02_JPRB,&
+&.416E-02_JPRB,.418E-02_JPRB,.421E-02_JPRB,.429E-02_JPRB,.433E-02_JPRB,.438E-02_JPRB,.446E-02_JPRB,&
+&.454E-02_JPRB,.466E-02_JPRB,.476E-02_JPRB,.488E-02_JPRB,.504E-02_JPRB,.517E-02_JPRB,.535E-02_JPRB,&
+&.556E-02_JPRB,.582E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  3  82.0
+ZAER (:, 3, 3) = (/&
+&.167E-01_JPRB,.181E-01_JPRB,.194E-01_JPRB,.207E-01_JPRB,.221E-01_JPRB,.233E-01_JPRB,.224E-01_JPRB,&
+&.214E-01_JPRB,.203E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.173E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,&
+&.131E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,.104E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,&
+&.105E-01_JPRB,.108E-01_JPRB,.113E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,&
+&.112E-01_JPRB,.110E-01_JPRB,.888E-02_JPRB,.795E-02_JPRB,.728E-02_JPRB,.688E-02_JPRB,.687E-02_JPRB,&
+&.703E-02_JPRB,.557E-02_JPRB,.565E-02_JPRB,.569E-02_JPRB,.600E-02_JPRB,.628E-02_JPRB,.656E-02_JPRB,&
+&.616E-02_JPRB,.616E-02_JPRB,.617E-02_JPRB,.616E-02_JPRB,.625E-02_JPRB,.625E-02_JPRB,.606E-02_JPRB,&
+&.551E-02_JPRB,.513E-02_JPRB,.491E-02_JPRB,.484E-02_JPRB,.494E-02_JPRB,.488E-02_JPRB,.486E-02_JPRB,&
+&.481E-02_JPRB,.474E-02_JPRB,.473E-02_JPRB,.470E-02_JPRB,.545E-02_JPRB,.551E-02_JPRB,.573E-02_JPRB,&
+&.604E-02_JPRB,.650E-02_JPRB,.693E-02_JPRB,.844E-02_JPRB,.818E-02_JPRB,.842E-02_JPRB,.912E-02_JPRB,&
+&.103E-01_JPRB,.122E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  4  78.0
+ZAER (:, 4, 3) = (/&
+&.270E-01_JPRB,.270E-01_JPRB,.259E-01_JPRB,.251E-01_JPRB,.240E-01_JPRB,.246E-01_JPRB,.246E-01_JPRB,&
+&.253E-01_JPRB,.269E-01_JPRB,.214E-01_JPRB,.204E-01_JPRB,.213E-01_JPRB,.216E-01_JPRB,.221E-01_JPRB,&
+&.230E-01_JPRB,.211E-01_JPRB,.175E-01_JPRB,.153E-01_JPRB,.141E-01_JPRB,.135E-01_JPRB,.139E-01_JPRB,&
+&.152E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.190E-01_JPRB,.199E-01_JPRB,.216E-01_JPRB,.218E-01_JPRB,&
+&.203E-01_JPRB,.194E-01_JPRB,.151E-01_JPRB,.126E-01_JPRB,.105E-01_JPRB,.688E-02_JPRB,.588E-02_JPRB,&
+&.527E-02_JPRB,.405E-02_JPRB,.360E-02_JPRB,.384E-02_JPRB,.413E-02_JPRB,.459E-02_JPRB,.507E-02_JPRB,&
+&.515E-02_JPRB,.554E-02_JPRB,.619E-02_JPRB,.683E-02_JPRB,.706E-02_JPRB,.715E-02_JPRB,.708E-02_JPRB,&
+&.647E-02_JPRB,.635E-02_JPRB,.574E-02_JPRB,.567E-02_JPRB,.585E-02_JPRB,.596E-02_JPRB,.580E-02_JPRB,&
+&.551E-02_JPRB,.541E-02_JPRB,.521E-02_JPRB,.513E-02_JPRB,.547E-02_JPRB,.513E-02_JPRB,.529E-02_JPRB,&
+&.561E-02_JPRB,.573E-02_JPRB,.601E-02_JPRB,.601E-02_JPRB,.560E-02_JPRB,.646E-02_JPRB,.994E-02_JPRB,&
+&.138E-01_JPRB,.216E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  5  74.0
+ZAER (:, 5, 3) = (/&
+&.230E-01_JPRB,.202E-01_JPRB,.189E-01_JPRB,.163E-01_JPRB,.167E-01_JPRB,.200E-01_JPRB,.252E-01_JPRB,&
+&.263E-01_JPRB,.274E-01_JPRB,.283E-01_JPRB,.265E-01_JPRB,.262E-01_JPRB,.266E-01_JPRB,.281E-01_JPRB,&
+&.303E-01_JPRB,.319E-01_JPRB,.330E-01_JPRB,.290E-01_JPRB,.242E-01_JPRB,.202E-01_JPRB,.186E-01_JPRB,&
+&.186E-01_JPRB,.180E-01_JPRB,.181E-01_JPRB,.218E-01_JPRB,.285E-01_JPRB,.308E-01_JPRB,.276E-01_JPRB,&
+&.251E-01_JPRB,.238E-01_JPRB,.246E-01_JPRB,.258E-01_JPRB,.197E-01_JPRB,.132E-01_JPRB,.805E-02_JPRB,&
+&.621E-02_JPRB,.466E-02_JPRB,.358E-02_JPRB,.367E-02_JPRB,.450E-02_JPRB,.504E-02_JPRB,.535E-02_JPRB,&
+&.594E-02_JPRB,.614E-02_JPRB,.599E-02_JPRB,.585E-02_JPRB,.554E-02_JPRB,.635E-02_JPRB,.856E-02_JPRB,&
+&.992E-02_JPRB,.977E-02_JPRB,.815E-02_JPRB,.672E-02_JPRB,.637E-02_JPRB,.649E-02_JPRB,.665E-02_JPRB,&
+&.657E-02_JPRB,.708E-02_JPRB,.719E-02_JPRB,.648E-02_JPRB,.588E-02_JPRB,.576E-02_JPRB,.552E-02_JPRB,&
+&.465E-02_JPRB,.405E-02_JPRB,.519E-02_JPRB,.579E-02_JPRB,.672E-02_JPRB,.873E-02_JPRB,.125E-01_JPRB,&
+&.193E-01_JPRB,.266E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  6  70.0
+ZAER (:, 6, 3) = (/&
+&.217E-01_JPRB,.192E-01_JPRB,.182E-01_JPRB,.200E-01_JPRB,.215E-01_JPRB,.233E-01_JPRB,.249E-01_JPRB,&
+&.264E-01_JPRB,.295E-01_JPRB,.307E-01_JPRB,.275E-01_JPRB,.298E-01_JPRB,.345E-01_JPRB,.320E-01_JPRB,&
+&.294E-01_JPRB,.315E-01_JPRB,.311E-01_JPRB,.312E-01_JPRB,.365E-01_JPRB,.330E-01_JPRB,.338E-01_JPRB,&
+&.345E-01_JPRB,.295E-01_JPRB,.238E-01_JPRB,.262E-01_JPRB,.291E-01_JPRB,.279E-01_JPRB,.255E-01_JPRB,&
+&.243E-01_JPRB,.253E-01_JPRB,.244E-01_JPRB,.246E-01_JPRB,.244E-01_JPRB,.189E-01_JPRB,.127E-01_JPRB,&
+&.811E-02_JPRB,.621E-02_JPRB,.540E-02_JPRB,.596E-02_JPRB,.694E-02_JPRB,.860E-02_JPRB,.919E-02_JPRB,&
+&.922E-02_JPRB,.893E-02_JPRB,.837E-02_JPRB,.739E-02_JPRB,.620E-02_JPRB,.621E-02_JPRB,.785E-02_JPRB,&
+&.102E-01_JPRB,.123E-01_JPRB,.114E-01_JPRB,.908E-02_JPRB,.814E-02_JPRB,.813E-02_JPRB,.753E-02_JPRB,&
+&.756E-02_JPRB,.752E-02_JPRB,.722E-02_JPRB,.615E-02_JPRB,.644E-02_JPRB,.666E-02_JPRB,.637E-02_JPRB,&
+&.575E-02_JPRB,.561E-02_JPRB,.686E-02_JPRB,.780E-02_JPRB,.953E-02_JPRB,.116E-01_JPRB,.149E-01_JPRB,&
+&.224E-01_JPRB,.255E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  7  66.0
+ZAER (:, 7, 3) = (/&
+&.220E-01_JPRB,.238E-01_JPRB,.220E-01_JPRB,.219E-01_JPRB,.224E-01_JPRB,.233E-01_JPRB,.235E-01_JPRB,&
+&.242E-01_JPRB,.247E-01_JPRB,.254E-01_JPRB,.258E-01_JPRB,.284E-01_JPRB,.305E-01_JPRB,.276E-01_JPRB,&
+&.291E-01_JPRB,.278E-01_JPRB,.240E-01_JPRB,.231E-01_JPRB,.241E-01_JPRB,.244E-01_JPRB,.263E-01_JPRB,&
+&.252E-01_JPRB,.256E-01_JPRB,.256E-01_JPRB,.246E-01_JPRB,.232E-01_JPRB,.248E-01_JPRB,.264E-01_JPRB,&
+&.271E-01_JPRB,.271E-01_JPRB,.280E-01_JPRB,.264E-01_JPRB,.235E-01_JPRB,.201E-01_JPRB,.158E-01_JPRB,&
+&.131E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,.144E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,.141E-01_JPRB,&
+&.144E-01_JPRB,.126E-01_JPRB,.106E-01_JPRB,.109E-01_JPRB,.114E-01_JPRB,.131E-01_JPRB,.155E-01_JPRB,&
+&.151E-01_JPRB,.171E-01_JPRB,.178E-01_JPRB,.197E-01_JPRB,.196E-01_JPRB,.179E-01_JPRB,.152E-01_JPRB,&
+&.133E-01_JPRB,.130E-01_JPRB,.128E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.127E-01_JPRB,&
+&.114E-01_JPRB,.119E-01_JPRB,.144E-01_JPRB,.155E-01_JPRB,.171E-01_JPRB,.187E-01_JPRB,.203E-01_JPRB,&
+&.221E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  8  62.0
+ZAER (:, 8, 3) = (/&
+&.209E-01_JPRB,.206E-01_JPRB,.205E-01_JPRB,.210E-01_JPRB,.212E-01_JPRB,.208E-01_JPRB,.206E-01_JPRB,&
+&.211E-01_JPRB,.210E-01_JPRB,.202E-01_JPRB,.195E-01_JPRB,.189E-01_JPRB,.189E-01_JPRB,.200E-01_JPRB,&
+&.224E-01_JPRB,.231E-01_JPRB,.224E-01_JPRB,.215E-01_JPRB,.210E-01_JPRB,.210E-01_JPRB,.213E-01_JPRB,&
+&.227E-01_JPRB,.214E-01_JPRB,.196E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.180E-01_JPRB,.199E-01_JPRB,&
+&.232E-01_JPRB,.222E-01_JPRB,.237E-01_JPRB,.238E-01_JPRB,.241E-01_JPRB,.232E-01_JPRB,.206E-01_JPRB,&
+&.205E-01_JPRB,.205E-01_JPRB,.239E-01_JPRB,.218E-01_JPRB,.199E-01_JPRB,.189E-01_JPRB,.188E-01_JPRB,&
+&.201E-01_JPRB,.220E-01_JPRB,.190E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,.193E-01_JPRB,.204E-01_JPRB,&
+&.165E-01_JPRB,.160E-01_JPRB,.204E-01_JPRB,.252E-01_JPRB,.260E-01_JPRB,.259E-01_JPRB,.221E-01_JPRB,&
+&.197E-01_JPRB,.220E-01_JPRB,.231E-01_JPRB,.237E-01_JPRB,.237E-01_JPRB,.225E-01_JPRB,.215E-01_JPRB,&
+&.214E-01_JPRB,.211E-01_JPRB,.221E-01_JPRB,.222E-01_JPRB,.206E-01_JPRB,.191E-01_JPRB,.188E-01_JPRB,&
+&.191E-01_JPRB,.203E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat:  9  58.0
+ZAER (:, 9, 3) = (/&
+&.180E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,&
+&.168E-01_JPRB,.168E-01_JPRB,.170E-01_JPRB,.168E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,&
+&.159E-01_JPRB,.170E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.174E-01_JPRB,&
+&.176E-01_JPRB,.161E-01_JPRB,.157E-01_JPRB,.144E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,.150E-01_JPRB,&
+&.179E-01_JPRB,.182E-01_JPRB,.177E-01_JPRB,.181E-01_JPRB,.185E-01_JPRB,.204E-01_JPRB,.197E-01_JPRB,&
+&.213E-01_JPRB,.203E-01_JPRB,.193E-01_JPRB,.189E-01_JPRB,.188E-01_JPRB,.172E-01_JPRB,.164E-01_JPRB,&
+&.165E-01_JPRB,.174E-01_JPRB,.174E-01_JPRB,.190E-01_JPRB,.203E-01_JPRB,.221E-01_JPRB,.214E-01_JPRB,&
+&.182E-01_JPRB,.176E-01_JPRB,.184E-01_JPRB,.206E-01_JPRB,.234E-01_JPRB,.237E-01_JPRB,.249E-01_JPRB,&
+&.251E-01_JPRB,.235E-01_JPRB,.223E-01_JPRB,.222E-01_JPRB,.219E-01_JPRB,.229E-01_JPRB,.229E-01_JPRB,&
+&.217E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.209E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.188E-01_JPRB,&
+&.182E-01_JPRB,.179E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 10  54.0
+ZAER (:,10, 3) = (/&
+&.169E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.154E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,&
+&.154E-01_JPRB,.151E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.148E-01_JPRB,.150E-01_JPRB,&
+&.158E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,.171E-01_JPRB,.166E-01_JPRB,.168E-01_JPRB,.163E-01_JPRB,&
+&.143E-01_JPRB,.971E-02_JPRB,.168E-01_JPRB,.165E-01_JPRB,.143E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,&
+&.133E-01_JPRB,.145E-01_JPRB,.149E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.161E-01_JPRB,.180E-01_JPRB,&
+&.194E-01_JPRB,.172E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.198E-01_JPRB,&
+&.192E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,.186E-01_JPRB,.184E-01_JPRB,.191E-01_JPRB,.206E-01_JPRB,&
+&.201E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,.192E-01_JPRB,.200E-01_JPRB,.206E-01_JPRB,.205E-01_JPRB,&
+&.200E-01_JPRB,.200E-01_JPRB,.193E-01_JPRB,.194E-01_JPRB,.192E-01_JPRB,.193E-01_JPRB,.192E-01_JPRB,&
+&.191E-01_JPRB,.184E-01_JPRB,.174E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.181E-01_JPRB,.174E-01_JPRB,&
+&.173E-01_JPRB,.174E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 11  50.0
+ZAER (:,11, 3) = (/&
+&.137E-01_JPRB,.144E-01_JPRB,.140E-01_JPRB,.131E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.134E-01_JPRB,&
+&.130E-01_JPRB,.135E-01_JPRB,.142E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,&
+&.133E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.123E-01_JPRB,.116E-01_JPRB,&
+&.121E-01_JPRB,.790E-02_JPRB,.146E-01_JPRB,.156E-01_JPRB,.145E-01_JPRB,.133E-01_JPRB,.128E-01_JPRB,&
+&.125E-01_JPRB,.124E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,&
+&.158E-01_JPRB,.158E-01_JPRB,.161E-01_JPRB,.167E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,&
+&.172E-01_JPRB,.166E-01_JPRB,.171E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.165E-01_JPRB,&
+&.165E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.155E-01_JPRB,.165E-01_JPRB,.175E-01_JPRB,&
+&.178E-01_JPRB,.186E-01_JPRB,.187E-01_JPRB,.187E-01_JPRB,.183E-01_JPRB,.179E-01_JPRB,.173E-01_JPRB,&
+&.169E-01_JPRB,.159E-01_JPRB,.152E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,&
+&.142E-01_JPRB,.137E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 12  46.0
+ZAER (:,12, 3) = (/&
+&.140E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.125E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,&
+&.111E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.110E-01_JPRB,.995E-02_JPRB,&
+&.110E-01_JPRB,.725E-02_JPRB,.138E-01_JPRB,.146E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.135E-01_JPRB,&
+&.134E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.133E-01_JPRB,.136E-01_JPRB,.143E-01_JPRB,&
+&.150E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,&
+&.138E-01_JPRB,.136E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.141E-01_JPRB,&
+&.148E-01_JPRB,.154E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.172E-01_JPRB,&
+&.177E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,.167E-01_JPRB,.156E-01_JPRB,.140E-01_JPRB,.148E-01_JPRB,&
+&.148E-01_JPRB,.141E-01_JPRB,.135E-01_JPRB,.133E-01_JPRB,.145E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,&
+&.142E-01_JPRB,.142E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 13  42.0
+ZAER (:,13, 3) = (/&
+&.148E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,&
+&.102E-01_JPRB,.971E-02_JPRB,.935E-02_JPRB,.954E-02_JPRB,.988E-02_JPRB,.114E-01_JPRB,.120E-01_JPRB,&
+&.124E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.956E-02_JPRB,&
+&.112E-01_JPRB,.737E-02_JPRB,.868E-02_JPRB,.156E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,&
+&.149E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,&
+&.140E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,.131E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,&
+&.125E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,&
+&.132E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,&
+&.168E-01_JPRB,.168E-01_JPRB,.155E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,&
+&.135E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.134E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.143E-01_JPRB,&
+&.144E-01_JPRB,.145E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 14  38.0
+ZAER (:,14, 3) = (/&
+&.151E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,&
+&.114E-01_JPRB,.111E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.114E-01_JPRB,&
+&.142E-01_JPRB,.106E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.173E-01_JPRB,.171E-01_JPRB,.178E-01_JPRB,&
+&.164E-01_JPRB,.149E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,&
+&.139E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.125E-01_JPRB,.128E-01_JPRB,.139E-01_JPRB,.146E-01_JPRB,&
+&.138E-01_JPRB,.135E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,&
+&.133E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,.149E-01_JPRB,.169E-01_JPRB,&
+&.179E-01_JPRB,.150E-01_JPRB,.152E-01_JPRB,.145E-01_JPRB,.142E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,&
+&.140E-01_JPRB,.146E-01_JPRB,.875E-02_JPRB,.166E-01_JPRB,.174E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,&
+&.150E-01_JPRB,.128E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 15  34.0
+ZAER (:,15, 3) = (/&
+&.137E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.131E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,&
+&.135E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.130E-01_JPRB,.128E-01_JPRB,.118E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.118E-01_JPRB,&
+&.187E-01_JPRB,.145E-01_JPRB,.161E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,.196E-01_JPRB,.182E-01_JPRB,&
+&.170E-01_JPRB,.152E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,&
+&.146E-01_JPRB,.144E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.139E-01_JPRB,.903E-02_JPRB,.165E-01_JPRB,&
+&.161E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.142E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,.142E-01_JPRB,&
+&.140E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.133E-01_JPRB,.145E-01_JPRB,.157E-01_JPRB,.177E-01_JPRB,&
+&.168E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.161E-01_JPRB,.864E-02_JPRB,.146E-01_JPRB,.147E-01_JPRB,&
+&.160E-01_JPRB,.997E-02_JPRB,.116E-01_JPRB,.107E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.155E-01_JPRB,.157E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 16  30.0
+ZAER (:,16, 3) = (/&
+&.159E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,&
+&.155E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.144E-01_JPRB,.128E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.139E-01_JPRB,&
+&.259E-01_JPRB,.181E-01_JPRB,.176E-01_JPRB,.146E-01_JPRB,.129E-01_JPRB,.193E-01_JPRB,.173E-01_JPRB,&
+&.151E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,&
+&.150E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.161E-01_JPRB,.171E-01_JPRB,.960E-02_JPRB,.105E-01_JPRB,&
+&.107E-01_JPRB,.171E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.141E-01_JPRB,.156E-01_JPRB,.151E-01_JPRB,&
+&.146E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,.137E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.160E-01_JPRB,.182E-01_JPRB,.105E-01_JPRB,.904E-02_JPRB,.990E-02_JPRB,.966E-02_JPRB,&
+&.116E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.107E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,.190E-01_JPRB,&
+&.191E-01_JPRB,.181E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 17  26.0
+ZAER (:,17, 3) = (/&
+&.197E-01_JPRB,.175E-01_JPRB,.169E-01_JPRB,.176E-01_JPRB,.177E-01_JPRB,.174E-01_JPRB,.167E-01_JPRB,&
+&.166E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,.137E-01_JPRB,&
+&.141E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,.141E-01_JPRB,.166E-01_JPRB,&
+&.268E-01_JPRB,.159E-01_JPRB,.147E-01_JPRB,.135E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,.208E-01_JPRB,&
+&.139E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.140E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,&
+&.151E-01_JPRB,.150E-01_JPRB,.172E-01_JPRB,.174E-01_JPRB,.853E-02_JPRB,.996E-02_JPRB,.157E-01_JPRB,&
+&.146E-01_JPRB,.178E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,&
+&.147E-01_JPRB,.154E-01_JPRB,.159E-01_JPRB,.175E-01_JPRB,.186E-01_JPRB,.200E-01_JPRB,.211E-01_JPRB,&
+&.209E-01_JPRB,.208E-01_JPRB,.212E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,&
+&.151E-01_JPRB,.141E-01_JPRB,.126E-01_JPRB,.113E-01_JPRB,.212E-01_JPRB,.249E-01_JPRB,.264E-01_JPRB,&
+&.259E-01_JPRB,.230E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 18  22.0
+ZAER (:,18, 3) = (/&
+&.219E-01_JPRB,.196E-01_JPRB,.186E-01_JPRB,.184E-01_JPRB,.181E-01_JPRB,.178E-01_JPRB,.175E-01_JPRB,&
+&.171E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,.154E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,&
+&.134E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.156E-01_JPRB,.166E-01_JPRB,.178E-01_JPRB,.268E-01_JPRB,&
+&.479E-01_JPRB,.243E-01_JPRB,.138E-01_JPRB,.119E-01_JPRB,.101E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,&
+&.135E-01_JPRB,.126E-01_JPRB,.127E-01_JPRB,.130E-01_JPRB,.135E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,&
+&.134E-01_JPRB,.151E-01_JPRB,.186E-01_JPRB,.161E-01_JPRB,.784E-02_JPRB,.821E-02_JPRB,.128E-01_JPRB,&
+&.124E-01_JPRB,.897E-02_JPRB,.136E-01_JPRB,.810E-02_JPRB,.139E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,&
+&.158E-01_JPRB,.171E-01_JPRB,.193E-01_JPRB,.216E-01_JPRB,.234E-01_JPRB,.255E-01_JPRB,.284E-01_JPRB,&
+&.300E-01_JPRB,.290E-01_JPRB,.303E-01_JPRB,.267E-01_JPRB,.176E-01_JPRB,.194E-01_JPRB,.214E-01_JPRB,&
+&.279E-01_JPRB,.158E-01_JPRB,.170E-01_JPRB,.292E-01_JPRB,.349E-01_JPRB,.383E-01_JPRB,.378E-01_JPRB,&
+&.341E-01_JPRB,.260E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 19  18.0
+ZAER (:,19, 3) = (/&
+&.229E-01_JPRB,.214E-01_JPRB,.202E-01_JPRB,.196E-01_JPRB,.190E-01_JPRB,.185E-01_JPRB,.182E-01_JPRB,&
+&.178E-01_JPRB,.172E-01_JPRB,.170E-01_JPRB,.166E-01_JPRB,.161E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,&
+&.151E-01_JPRB,.155E-01_JPRB,.163E-01_JPRB,.168E-01_JPRB,.187E-01_JPRB,.261E-01_JPRB,.512E-01_JPRB,&
+&.943E-01_JPRB,.243E-01_JPRB,.134E-01_JPRB,.105E-01_JPRB,.910E-02_JPRB,.947E-02_JPRB,.919E-02_JPRB,&
+&.753E-02_JPRB,.120E-01_JPRB,.119E-01_JPRB,.120E-01_JPRB,.123E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,&
+&.135E-01_JPRB,.181E-01_JPRB,.198E-01_JPRB,.150E-01_JPRB,.761E-02_JPRB,.786E-02_JPRB,.105E-01_JPRB,&
+&.891E-02_JPRB,.790E-02_JPRB,.129E-01_JPRB,.799E-02_JPRB,.135E-01_JPRB,.148E-01_JPRB,.156E-01_JPRB,&
+&.166E-01_JPRB,.185E-01_JPRB,.210E-01_JPRB,.241E-01_JPRB,.276E-01_JPRB,.308E-01_JPRB,.348E-01_JPRB,&
+&.395E-01_JPRB,.426E-01_JPRB,.452E-01_JPRB,.454E-01_JPRB,.470E-01_JPRB,.298E-01_JPRB,.313E-01_JPRB,&
+&.321E-01_JPRB,.265E-01_JPRB,.271E-01_JPRB,.467E-01_JPRB,.504E-01_JPRB,.501E-01_JPRB,.578E-01_JPRB,&
+&.351E-01_JPRB,.262E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 20  14.0
+ZAER (:,20, 3) = (/&
+&.217E-01_JPRB,.209E-01_JPRB,.207E-01_JPRB,.203E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.190E-01_JPRB,&
+&.187E-01_JPRB,.187E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.179E-01_JPRB,.169E-01_JPRB,&
+&.179E-01_JPRB,.181E-01_JPRB,.185E-01_JPRB,.216E-01_JPRB,.262E-01_JPRB,.378E-01_JPRB,.702E-01_JPRB,&
+&.392E-01_JPRB,.186E-01_JPRB,.114E-01_JPRB,.929E-02_JPRB,.856E-02_JPRB,.829E-02_JPRB,.897E-02_JPRB,&
+&.814E-02_JPRB,.122E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.119E-01_JPRB,&
+&.120E-01_JPRB,.121E-01_JPRB,.138E-01_JPRB,.143E-01_JPRB,.764E-02_JPRB,.828E-02_JPRB,.129E-01_JPRB,&
+&.959E-02_JPRB,.742E-02_JPRB,.734E-02_JPRB,.133E-01_JPRB,.136E-01_JPRB,.148E-01_JPRB,.159E-01_JPRB,&
+&.175E-01_JPRB,.197E-01_JPRB,.231E-01_JPRB,.274E-01_JPRB,.331E-01_JPRB,.392E-01_JPRB,.468E-01_JPRB,&
+&.554E-01_JPRB,.630E-01_JPRB,.627E-01_JPRB,.595E-01_JPRB,.666E-01_JPRB,.729E-01_JPRB,.423E-01_JPRB,&
+&.445E-01_JPRB,.718E-01_JPRB,.632E-01_JPRB,.581E-01_JPRB,.542E-01_JPRB,.528E-01_JPRB,.589E-01_JPRB,&
+&.329E-01_JPRB,.245E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 21  10.0
+ZAER (:,21, 3) = (/&
+&.210E-01_JPRB,.210E-01_JPRB,.212E-01_JPRB,.213E-01_JPRB,.211E-01_JPRB,.212E-01_JPRB,.210E-01_JPRB,&
+&.209E-01_JPRB,.210E-01_JPRB,.214E-01_JPRB,.217E-01_JPRB,.224E-01_JPRB,.226E-01_JPRB,.219E-01_JPRB,&
+&.224E-01_JPRB,.231E-01_JPRB,.241E-01_JPRB,.261E-01_JPRB,.313E-01_JPRB,.431E-01_JPRB,.457E-01_JPRB,&
+&.203E-01_JPRB,.150E-01_JPRB,.103E-01_JPRB,.942E-02_JPRB,.915E-02_JPRB,.921E-02_JPRB,.911E-02_JPRB,&
+&.959E-02_JPRB,.138E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.121E-01_JPRB,.101E-01_JPRB,&
+&.950E-02_JPRB,.113E-01_JPRB,.127E-01_JPRB,.146E-01_JPRB,.862E-02_JPRB,.938E-02_JPRB,.128E-01_JPRB,&
+&.934E-02_JPRB,.751E-02_JPRB,.115E-01_JPRB,.128E-01_JPRB,.143E-01_JPRB,.155E-01_JPRB,.170E-01_JPRB,&
+&.193E-01_JPRB,.225E-01_JPRB,.277E-01_JPRB,.342E-01_JPRB,.428E-01_JPRB,.533E-01_JPRB,.666E-01_JPRB,&
+&.818E-01_JPRB,.991E-01_JPRB,.953E-01_JPRB,.715E-01_JPRB,.883E-01_JPRB,.907E-01_JPRB,.934E-01_JPRB,&
+&.101E+00_JPRB,.104E+00_JPRB,.844E-01_JPRB,.555E-01_JPRB,.501E-01_JPRB,.463E-01_JPRB,.480E-01_JPRB,&
+&.288E-01_JPRB,.225E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 22   6.0
+ZAER (:,22, 3) = (/&
+&.222E-01_JPRB,.222E-01_JPRB,.228E-01_JPRB,.232E-01_JPRB,.232E-01_JPRB,.234E-01_JPRB,.234E-01_JPRB,&
+&.237E-01_JPRB,.239E-01_JPRB,.245E-01_JPRB,.252E-01_JPRB,.257E-01_JPRB,.264E-01_JPRB,.265E-01_JPRB,&
+&.262E-01_JPRB,.268E-01_JPRB,.276E-01_JPRB,.287E-01_JPRB,.334E-01_JPRB,.383E-01_JPRB,.183E-01_JPRB,&
+&.145E-01_JPRB,.122E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.108E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,&
+&.106E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.150E-01_JPRB,.139E-01_JPRB,.129E-01_JPRB,&
+&.133E-01_JPRB,.144E-01_JPRB,.156E-01_JPRB,.172E-01_JPRB,.103E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,&
+&.987E-02_JPRB,.842E-02_JPRB,.133E-01_JPRB,.146E-01_JPRB,.157E-01_JPRB,.174E-01_JPRB,.198E-01_JPRB,&
+&.230E-01_JPRB,.279E-01_JPRB,.351E-01_JPRB,.449E-01_JPRB,.566E-01_JPRB,.703E-01_JPRB,.866E-01_JPRB,&
+&.101E+00_JPRB,.116E+00_JPRB,.102E+00_JPRB,.102E+00_JPRB,.106E+00_JPRB,.101E+00_JPRB,.100E+00_JPRB,&
+&.106E+00_JPRB,.618E-01_JPRB,.586E-01_JPRB,.595E-01_JPRB,.456E-01_JPRB,.377E-01_JPRB,.322E-01_JPRB,&
+&.247E-01_JPRB,.224E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 23   2.0
+ZAER (:,23, 3) = (/&
+&.250E-01_JPRB,.253E-01_JPRB,.256E-01_JPRB,.261E-01_JPRB,.268E-01_JPRB,.273E-01_JPRB,.279E-01_JPRB,&
+&.281E-01_JPRB,.284E-01_JPRB,.290E-01_JPRB,.302E-01_JPRB,.307E-01_JPRB,.308E-01_JPRB,.311E-01_JPRB,&
+&.317E-01_JPRB,.321E-01_JPRB,.329E-01_JPRB,.340E-01_JPRB,.364E-01_JPRB,.393E-01_JPRB,.218E-01_JPRB,&
+&.165E-01_JPRB,.133E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.131E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,&
+&.197E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.202E-01_JPRB,.197E-01_JPRB,.188E-01_JPRB,.179E-01_JPRB,&
+&.179E-01_JPRB,.183E-01_JPRB,.193E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.138E-01_JPRB,.169E-01_JPRB,&
+&.128E-01_JPRB,.101E-01_JPRB,.896E-02_JPRB,.160E-01_JPRB,.174E-01_JPRB,.194E-01_JPRB,.225E-01_JPRB,&
+&.266E-01_JPRB,.327E-01_JPRB,.412E-01_JPRB,.524E-01_JPRB,.651E-01_JPRB,.795E-01_JPRB,.895E-01_JPRB,&
+&.958E-01_JPRB,.627E-01_JPRB,.969E-01_JPRB,.591E-01_JPRB,.998E-01_JPRB,.952E-01_JPRB,.901E-01_JPRB,&
+&.508E-01_JPRB,.852E-01_JPRB,.657E-01_JPRB,.414E-01_JPRB,.325E-01_JPRB,.296E-01_JPRB,.265E-01_JPRB,&
+&.246E-01_JPRB,.244E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 24  -2.0
+ZAER (:,24, 3) = (/&
+&.272E-01_JPRB,.291E-01_JPRB,.310E-01_JPRB,.321E-01_JPRB,.338E-01_JPRB,.349E-01_JPRB,.355E-01_JPRB,&
+&.363E-01_JPRB,.358E-01_JPRB,.372E-01_JPRB,.394E-01_JPRB,.417E-01_JPRB,.423E-01_JPRB,.417E-01_JPRB,&
+&.416E-01_JPRB,.423E-01_JPRB,.413E-01_JPRB,.397E-01_JPRB,.384E-01_JPRB,.396E-01_JPRB,.365E-01_JPRB,&
+&.174E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.150E-01_JPRB,.254E-01_JPRB,.251E-01_JPRB,&
+&.249E-01_JPRB,.254E-01_JPRB,.263E-01_JPRB,.261E-01_JPRB,.253E-01_JPRB,.243E-01_JPRB,.237E-01_JPRB,&
+&.231E-01_JPRB,.229E-01_JPRB,.236E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.147E-01_JPRB,.158E-01_JPRB,&
+&.135E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,.187E-01_JPRB,.211E-01_JPRB,.245E-01_JPRB,&
+&.291E-01_JPRB,.347E-01_JPRB,.430E-01_JPRB,.531E-01_JPRB,.649E-01_JPRB,.742E-01_JPRB,.815E-01_JPRB,&
+&.510E-01_JPRB,.913E-01_JPRB,.902E-01_JPRB,.506E-01_JPRB,.100E+00_JPRB,.731E-01_JPRB,.548E-01_JPRB,&
+&.553E-01_JPRB,.448E-01_JPRB,.298E-01_JPRB,.271E-01_JPRB,.256E-01_JPRB,.252E-01_JPRB,.248E-01_JPRB,&
+&.248E-01_JPRB,.257E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 25  -6.0
+ZAER (:,25, 3) = (/&
+&.258E-01_JPRB,.275E-01_JPRB,.296E-01_JPRB,.315E-01_JPRB,.339E-01_JPRB,.362E-01_JPRB,.369E-01_JPRB,&
+&.380E-01_JPRB,.386E-01_JPRB,.393E-01_JPRB,.405E-01_JPRB,.428E-01_JPRB,.444E-01_JPRB,.455E-01_JPRB,&
+&.473E-01_JPRB,.496E-01_JPRB,.500E-01_JPRB,.489E-01_JPRB,.462E-01_JPRB,.424E-01_JPRB,.381E-01_JPRB,&
+&.198E-01_JPRB,.191E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,.274E-01_JPRB,.271E-01_JPRB,.288E-01_JPRB,&
+&.301E-01_JPRB,.322E-01_JPRB,.359E-01_JPRB,.385E-01_JPRB,.374E-01_JPRB,.351E-01_JPRB,.200E-01_JPRB,&
+&.191E-01_JPRB,.194E-01_JPRB,.208E-01_JPRB,.194E-01_JPRB,.175E-01_JPRB,.168E-01_JPRB,.181E-01_JPRB,&
+&.160E-01_JPRB,.128E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.186E-01_JPRB,.212E-01_JPRB,.246E-01_JPRB,&
+&.279E-01_JPRB,.325E-01_JPRB,.401E-01_JPRB,.440E-01_JPRB,.542E-01_JPRB,.600E-01_JPRB,.672E-01_JPRB,&
+&.711E-01_JPRB,.734E-01_JPRB,.762E-01_JPRB,.713E-01_JPRB,.699E-01_JPRB,.440E-01_JPRB,.396E-01_JPRB,&
+&.371E-01_JPRB,.311E-01_JPRB,.265E-01_JPRB,.250E-01_JPRB,.245E-01_JPRB,.241E-01_JPRB,.240E-01_JPRB,&
+&.242E-01_JPRB,.248E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 26 -10.0
+ZAER (:,26, 3) = (/&
+&.238E-01_JPRB,.248E-01_JPRB,.267E-01_JPRB,.286E-01_JPRB,.308E-01_JPRB,.332E-01_JPRB,.350E-01_JPRB,&
+&.354E-01_JPRB,.359E-01_JPRB,.375E-01_JPRB,.399E-01_JPRB,.418E-01_JPRB,.452E-01_JPRB,.492E-01_JPRB,&
+&.526E-01_JPRB,.575E-01_JPRB,.614E-01_JPRB,.630E-01_JPRB,.631E-01_JPRB,.464E-01_JPRB,.350E-01_JPRB,&
+&.206E-01_JPRB,.201E-01_JPRB,.164E-01_JPRB,.270E-01_JPRB,.279E-01_JPRB,.277E-01_JPRB,.280E-01_JPRB,&
+&.311E-01_JPRB,.338E-01_JPRB,.389E-01_JPRB,.471E-01_JPRB,.630E-01_JPRB,.670E-01_JPRB,.345E-01_JPRB,&
+&.325E-01_JPRB,.335E-01_JPRB,.332E-01_JPRB,.324E-01_JPRB,.288E-01_JPRB,.241E-01_JPRB,.252E-01_JPRB,&
+&.217E-01_JPRB,.148E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,.108E-01_JPRB,.193E-01_JPRB,.244E-01_JPRB,&
+&.282E-01_JPRB,.289E-01_JPRB,.349E-01_JPRB,.349E-01_JPRB,.410E-01_JPRB,.466E-01_JPRB,.545E-01_JPRB,&
+&.553E-01_JPRB,.515E-01_JPRB,.570E-01_JPRB,.598E-01_JPRB,.564E-01_JPRB,.369E-01_JPRB,.333E-01_JPRB,&
+&.324E-01_JPRB,.292E-01_JPRB,.261E-01_JPRB,.244E-01_JPRB,.236E-01_JPRB,.232E-01_JPRB,.230E-01_JPRB,&
+&.230E-01_JPRB,.233E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 27 -14.0
+ZAER (:,27, 3) = (/&
+&.203E-01_JPRB,.202E-01_JPRB,.207E-01_JPRB,.220E-01_JPRB,.245E-01_JPRB,.268E-01_JPRB,.272E-01_JPRB,&
+&.264E-01_JPRB,.257E-01_JPRB,.278E-01_JPRB,.325E-01_JPRB,.362E-01_JPRB,.405E-01_JPRB,.460E-01_JPRB,&
+&.539E-01_JPRB,.654E-01_JPRB,.691E-01_JPRB,.828E-01_JPRB,.434E-01_JPRB,.245E-01_JPRB,.338E-01_JPRB,&
+&.344E-01_JPRB,.327E-01_JPRB,.284E-01_JPRB,.256E-01_JPRB,.270E-01_JPRB,.262E-01_JPRB,.241E-01_JPRB,&
+&.233E-01_JPRB,.253E-01_JPRB,.281E-01_JPRB,.309E-01_JPRB,.362E-01_JPRB,.276E-01_JPRB,.400E-01_JPRB,&
+&.348E-01_JPRB,.355E-01_JPRB,.369E-01_JPRB,.368E-01_JPRB,.351E-01_JPRB,.268E-01_JPRB,.257E-01_JPRB,&
+&.232E-01_JPRB,.190E-01_JPRB,.160E-01_JPRB,.168E-01_JPRB,.277E-01_JPRB,.239E-01_JPRB,.261E-01_JPRB,&
+&.375E-01_JPRB,.398E-01_JPRB,.237E-01_JPRB,.321E-01_JPRB,.326E-01_JPRB,.363E-01_JPRB,.462E-01_JPRB,&
+&.241E-01_JPRB,.240E-01_JPRB,.433E-01_JPRB,.477E-01_JPRB,.438E-01_JPRB,.326E-01_JPRB,.301E-01_JPRB,&
+&.302E-01_JPRB,.297E-01_JPRB,.268E-01_JPRB,.241E-01_JPRB,.226E-01_JPRB,.220E-01_JPRB,.216E-01_JPRB,&
+&.211E-01_JPRB,.210E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 28 -18.0
+ZAER (:,28, 3) = (/&
+&.174E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.174E-01_JPRB,.206E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,&
+&.179E-01_JPRB,.172E-01_JPRB,.179E-01_JPRB,.211E-01_JPRB,.261E-01_JPRB,.350E-01_JPRB,.425E-01_JPRB,&
+&.494E-01_JPRB,.699E-01_JPRB,.396E-01_JPRB,.430E-01_JPRB,.355E-01_JPRB,.401E-01_JPRB,.335E-01_JPRB,&
+&.286E-01_JPRB,.324E-01_JPRB,.285E-01_JPRB,.245E-01_JPRB,.249E-01_JPRB,.235E-01_JPRB,.212E-01_JPRB,&
+&.207E-01_JPRB,.211E-01_JPRB,.224E-01_JPRB,.240E-01_JPRB,.236E-01_JPRB,.163E-01_JPRB,.261E-01_JPRB,&
+&.268E-01_JPRB,.283E-01_JPRB,.282E-01_JPRB,.309E-01_JPRB,.324E-01_JPRB,.299E-01_JPRB,.260E-01_JPRB,&
+&.265E-01_JPRB,.290E-01_JPRB,.379E-01_JPRB,.194E-01_JPRB,.219E-01_JPRB,.218E-01_JPRB,.373E-01_JPRB,&
+&.492E-01_JPRB,.643E-01_JPRB,.375E-01_JPRB,.278E-01_JPRB,.392E-01_JPRB,.364E-01_JPRB,.232E-01_JPRB,&
+&.212E-01_JPRB,.235E-01_JPRB,.440E-01_JPRB,.393E-01_JPRB,.317E-01_JPRB,.271E-01_JPRB,.263E-01_JPRB,&
+&.275E-01_JPRB,.309E-01_JPRB,.302E-01_JPRB,.252E-01_JPRB,.216E-01_JPRB,.194E-01_JPRB,.187E-01_JPRB,&
+&.184E-01_JPRB,.179E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 29 -22.0
+ZAER (:,29, 3) = (/&
+&.157E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.154E-01_JPRB,.150E-01_JPRB,.157E-01_JPRB,.144E-01_JPRB,&
+&.134E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.140E-01_JPRB,.202E-01_JPRB,.248E-01_JPRB,.336E-01_JPRB,&
+&.460E-01_JPRB,.326E-01_JPRB,.386E-01_JPRB,.620E-01_JPRB,.504E-01_JPRB,.431E-01_JPRB,.328E-01_JPRB,&
+&.275E-01_JPRB,.253E-01_JPRB,.228E-01_JPRB,.213E-01_JPRB,.213E-01_JPRB,.206E-01_JPRB,.196E-01_JPRB,&
+&.182E-01_JPRB,.183E-01_JPRB,.185E-01_JPRB,.189E-01_JPRB,.211E-01_JPRB,.130E-01_JPRB,.159E-01_JPRB,&
+&.176E-01_JPRB,.190E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.239E-01_JPRB,.281E-01_JPRB,.274E-01_JPRB,&
+&.247E-01_JPRB,.305E-01_JPRB,.257E-01_JPRB,.225E-01_JPRB,.271E-01_JPRB,.266E-01_JPRB,.445E-01_JPRB,&
+&.455E-01_JPRB,.310E-01_JPRB,.365E-01_JPRB,.368E-01_JPRB,.273E-01_JPRB,.229E-01_JPRB,.177E-01_JPRB,&
+&.205E-01_JPRB,.306E-01_JPRB,.351E-01_JPRB,.522E-01_JPRB,.380E-01_JPRB,.254E-01_JPRB,.230E-01_JPRB,&
+&.243E-01_JPRB,.276E-01_JPRB,.303E-01_JPRB,.307E-01_JPRB,.236E-01_JPRB,.191E-01_JPRB,.181E-01_JPRB,&
+&.176E-01_JPRB,.163E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 30 -26.0
+ZAER (:,30, 3) = (/&
+&.164E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,&
+&.116E-01_JPRB,.107E-01_JPRB,.100E-01_JPRB,.113E-01_JPRB,.132E-01_JPRB,.175E-01_JPRB,.232E-01_JPRB,&
+&.179E-01_JPRB,.198E-01_JPRB,.301E-01_JPRB,.588E-01_JPRB,.549E-01_JPRB,.528E-01_JPRB,.376E-01_JPRB,&
+&.313E-01_JPRB,.243E-01_JPRB,.200E-01_JPRB,.178E-01_JPRB,.173E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,&
+&.161E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,.137E-01_JPRB,.160E-01_JPRB,.183E-01_JPRB,.116E-01_JPRB,&
+&.142E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.157E-01_JPRB,.184E-01_JPRB,.228E-01_JPRB,.269E-01_JPRB,&
+&.257E-01_JPRB,.264E-01_JPRB,.260E-01_JPRB,.302E-01_JPRB,.332E-01_JPRB,.480E-01_JPRB,.224E-01_JPRB,&
+&.219E-01_JPRB,.307E-01_JPRB,.353E-01_JPRB,.286E-01_JPRB,.191E-01_JPRB,.188E-01_JPRB,.164E-01_JPRB,&
+&.161E-01_JPRB,.438E-01_JPRB,.600E-01_JPRB,.572E-01_JPRB,.879E-01_JPRB,.525E-01_JPRB,.362E-01_JPRB,&
+&.311E-01_JPRB,.283E-01_JPRB,.264E-01_JPRB,.238E-01_JPRB,.238E-01_JPRB,.242E-01_JPRB,.225E-01_JPRB,&
+&.202E-01_JPRB,.177E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 31 -30.0
+ZAER (:,31, 3) = (/&
+&.184E-01_JPRB,.165E-01_JPRB,.154E-01_JPRB,.136E-01_JPRB,.122E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,&
+&.104E-01_JPRB,.964E-02_JPRB,.900E-02_JPRB,.858E-02_JPRB,.887E-02_JPRB,.139E-01_JPRB,.232E-01_JPRB,&
+&.163E-01_JPRB,.198E-01_JPRB,.283E-01_JPRB,.316E-01_JPRB,.377E-01_JPRB,.365E-01_JPRB,.495E-01_JPRB,&
+&.382E-01_JPRB,.291E-01_JPRB,.211E-01_JPRB,.168E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.133E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.148E-01_JPRB,.903E-02_JPRB,&
+&.998E-02_JPRB,.119E-01_JPRB,.132E-01_JPRB,.146E-01_JPRB,.174E-01_JPRB,.200E-01_JPRB,.256E-01_JPRB,&
+&.248E-01_JPRB,.225E-01_JPRB,.291E-01_JPRB,.366E-01_JPRB,.327E-01_JPRB,.244E-01_JPRB,.224E-01_JPRB,&
+&.216E-01_JPRB,.266E-01_JPRB,.219E-01_JPRB,.137E-01_JPRB,.682E-02_JPRB,.593E-02_JPRB,.751E-02_JPRB,&
+&.178E-01_JPRB,.899E-01_JPRB,.102E+00_JPRB,.856E-01_JPRB,.975E-01_JPRB,.955E-01_JPRB,.672E-01_JPRB,&
+&.650E-01_JPRB,.501E-01_JPRB,.400E-01_JPRB,.328E-01_JPRB,.285E-01_JPRB,.264E-01_JPRB,.255E-01_JPRB,&
+&.230E-01_JPRB,.206E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 32 -34.0
+ZAER (:,32, 3) = (/&
+&.188E-01_JPRB,.166E-01_JPRB,.152E-01_JPRB,.129E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.970E-02_JPRB,.863E-02_JPRB,.801E-02_JPRB,.828E-02_JPRB,.937E-02_JPRB,.134E-01_JPRB,.126E-01_JPRB,&
+&.137E-01_JPRB,.164E-01_JPRB,.222E-01_JPRB,.313E-01_JPRB,.485E-01_JPRB,.489E-01_JPRB,.458E-01_JPRB,&
+&.588E-01_JPRB,.391E-01_JPRB,.240E-01_JPRB,.180E-01_JPRB,.150E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,&
+&.121E-01_JPRB,.119E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.139E-01_JPRB,.155E-01_JPRB,&
+&.116E-01_JPRB,.164E-01_JPRB,.183E-01_JPRB,.195E-01_JPRB,.361E-01_JPRB,.460E-01_JPRB,.495E-01_JPRB,&
+&.541E-01_JPRB,.428E-01_JPRB,.274E-01_JPRB,.296E-01_JPRB,.278E-01_JPRB,.325E-01_JPRB,.267E-01_JPRB,&
+&.216E-01_JPRB,.183E-01_JPRB,.138E-01_JPRB,.665E-02_JPRB,.510E-02_JPRB,.478E-02_JPRB,.490E-02_JPRB,&
+&.108E-01_JPRB,.589E-01_JPRB,.840E-01_JPRB,.944E-01_JPRB,.980E-01_JPRB,.134E+00_JPRB,.965E-01_JPRB,&
+&.455E-01_JPRB,.586E-01_JPRB,.485E-01_JPRB,.398E-01_JPRB,.329E-01_JPRB,.273E-01_JPRB,.252E-01_JPRB,&
+&.231E-01_JPRB,.209E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 33 -38.0
+ZAER (:,33, 3) = (/&
+&.174E-01_JPRB,.160E-01_JPRB,.142E-01_JPRB,.125E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,&
+&.991E-02_JPRB,.851E-02_JPRB,.813E-02_JPRB,.871E-02_JPRB,.110E-01_JPRB,.718E-02_JPRB,.919E-02_JPRB,&
+&.110E-01_JPRB,.128E-01_JPRB,.213E-01_JPRB,.361E-01_JPRB,.490E-01_JPRB,.590E-01_JPRB,.544E-01_JPRB,&
+&.100E+00_JPRB,.593E-01_JPRB,.307E-01_JPRB,.225E-01_JPRB,.183E-01_JPRB,.144E-01_JPRB,.137E-01_JPRB,&
+&.125E-01_JPRB,.118E-01_JPRB,.109E-01_JPRB,.115E-01_JPRB,.142E-01_JPRB,.185E-01_JPRB,.195E-01_JPRB,&
+&.160E-01_JPRB,.376E-01_JPRB,.433E-01_JPRB,.490E-01_JPRB,.547E-01_JPRB,.596E-01_JPRB,.526E-01_JPRB,&
+&.284E-01_JPRB,.232E-01_JPRB,.244E-01_JPRB,.236E-01_JPRB,.324E-01_JPRB,.348E-01_JPRB,.357E-01_JPRB,&
+&.392E-01_JPRB,.236E-01_JPRB,.159E-01_JPRB,.143E-01_JPRB,.106E-01_JPRB,.809E-02_JPRB,.799E-02_JPRB,&
+&.896E-02_JPRB,.222E-01_JPRB,.409E-01_JPRB,.485E-01_JPRB,.128E+00_JPRB,.118E+00_JPRB,.941E-01_JPRB,&
+&.708E-01_JPRB,.321E-01_JPRB,.450E-01_JPRB,.379E-01_JPRB,.332E-01_JPRB,.278E-01_JPRB,.239E-01_JPRB,&
+&.208E-01_JPRB,.195E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 34 -42.0
+ZAER (:,34, 3) = (/&
+&.171E-01_JPRB,.150E-01_JPRB,.138E-01_JPRB,.120E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,&
+&.103E-01_JPRB,.906E-02_JPRB,.925E-02_JPRB,.988E-02_JPRB,.130E-01_JPRB,.779E-02_JPRB,.821E-02_JPRB,&
+&.914E-02_JPRB,.140E-01_JPRB,.290E-01_JPRB,.544E-01_JPRB,.590E-01_JPRB,.654E-01_JPRB,.572E-01_JPRB,&
+&.513E-01_JPRB,.708E-01_JPRB,.522E-01_JPRB,.377E-01_JPRB,.264E-01_JPRB,.201E-01_JPRB,.157E-01_JPRB,&
+&.123E-01_JPRB,.109E-01_JPRB,.114E-01_JPRB,.131E-01_JPRB,.200E-01_JPRB,.188E-01_JPRB,.185E-01_JPRB,&
+&.171E-01_JPRB,.219E-01_JPRB,.462E-01_JPRB,.659E-01_JPRB,.830E-01_JPRB,.428E-01_JPRB,.409E-01_JPRB,&
+&.753E-01_JPRB,.648E-01_JPRB,.301E-01_JPRB,.276E-01_JPRB,.547E-01_JPRB,.339E-01_JPRB,.337E-01_JPRB,&
+&.451E-01_JPRB,.457E-01_JPRB,.406E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,.243E-01_JPRB,.201E-01_JPRB,&
+&.181E-01_JPRB,.184E-01_JPRB,.212E-01_JPRB,.228E-01_JPRB,.390E-01_JPRB,.514E-01_JPRB,.441E-01_JPRB,&
+&.607E-01_JPRB,.477E-01_JPRB,.490E-01_JPRB,.430E-01_JPRB,.341E-01_JPRB,.270E-01_JPRB,.227E-01_JPRB,&
+&.201E-01_JPRB,.193E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 35 -46.0
+ZAER (:,35, 3) = (/&
+&.188E-01_JPRB,.161E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.121E-01_JPRB,&
+&.107E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.129E-01_JPRB,.175E-01_JPRB,.116E-01_JPRB,.107E-01_JPRB,&
+&.139E-01_JPRB,.185E-01_JPRB,.302E-01_JPRB,.416E-01_JPRB,.519E-01_JPRB,.578E-01_JPRB,.614E-01_JPRB,&
+&.599E-01_JPRB,.468E-01_JPRB,.418E-01_JPRB,.553E-01_JPRB,.366E-01_JPRB,.270E-01_JPRB,.185E-01_JPRB,&
+&.141E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,.125E-01_JPRB,.133E-01_JPRB,.145E-01_JPRB,.205E-01_JPRB,&
+&.341E-01_JPRB,.272E-01_JPRB,.369E-01_JPRB,.449E-01_JPRB,.460E-01_JPRB,.495E-01_JPRB,.444E-01_JPRB,&
+&.502E-01_JPRB,.528E-01_JPRB,.407E-01_JPRB,.462E-01_JPRB,.684E-01_JPRB,.361E-01_JPRB,.389E-01_JPRB,&
+&.414E-01_JPRB,.455E-01_JPRB,.466E-01_JPRB,.449E-01_JPRB,.377E-01_JPRB,.268E-01_JPRB,.213E-01_JPRB,&
+&.195E-01_JPRB,.185E-01_JPRB,.206E-01_JPRB,.184E-01_JPRB,.218E-01_JPRB,.284E-01_JPRB,.312E-01_JPRB,&
+&.279E-01_JPRB,.408E-01_JPRB,.372E-01_JPRB,.334E-01_JPRB,.289E-01_JPRB,.256E-01_JPRB,.228E-01_JPRB,&
+&.220E-01_JPRB,.204E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 36 -50.0
+ZAER (:,36, 3) = (/&
+&.167E-01_JPRB,.162E-01_JPRB,.154E-01_JPRB,.145E-01_JPRB,.140E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,&
+&.118E-01_JPRB,.130E-01_JPRB,.138E-01_JPRB,.155E-01_JPRB,.923E-02_JPRB,.105E-01_JPRB,.115E-01_JPRB,&
+&.169E-01_JPRB,.237E-01_JPRB,.228E-01_JPRB,.235E-01_JPRB,.346E-01_JPRB,.539E-01_JPRB,.652E-01_JPRB,&
+&.592E-01_JPRB,.408E-01_JPRB,.370E-01_JPRB,.438E-01_JPRB,.344E-01_JPRB,.256E-01_JPRB,.164E-01_JPRB,&
+&.111E-01_JPRB,.995E-02_JPRB,.108E-01_JPRB,.105E-01_JPRB,.119E-01_JPRB,.133E-01_JPRB,.155E-01_JPRB,&
+&.276E-01_JPRB,.240E-01_JPRB,.319E-01_JPRB,.440E-01_JPRB,.536E-01_JPRB,.577E-01_JPRB,.531E-01_JPRB,&
+&.454E-01_JPRB,.470E-01_JPRB,.444E-01_JPRB,.526E-01_JPRB,.516E-01_JPRB,.553E-01_JPRB,.504E-01_JPRB,&
+&.438E-01_JPRB,.512E-01_JPRB,.488E-01_JPRB,.492E-01_JPRB,.403E-01_JPRB,.282E-01_JPRB,.287E-01_JPRB,&
+&.244E-01_JPRB,.225E-01_JPRB,.172E-01_JPRB,.142E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.168E-01_JPRB,&
+&.180E-01_JPRB,.174E-01_JPRB,.261E-01_JPRB,.260E-01_JPRB,.241E-01_JPRB,.282E-01_JPRB,.242E-01_JPRB,&
+&.208E-01_JPRB,.175E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 37 -54.0
+ZAER (:,37, 3) = (/&
+&.151E-01_JPRB,.150E-01_JPRB,.142E-01_JPRB,.145E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,.137E-01_JPRB,&
+&.141E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.991E-02_JPRB,.877E-02_JPRB,.114E-01_JPRB,.141E-01_JPRB,&
+&.185E-01_JPRB,.247E-01_JPRB,.258E-01_JPRB,.325E-01_JPRB,.379E-01_JPRB,.489E-01_JPRB,.848E-01_JPRB,&
+&.365E-01_JPRB,.241E-01_JPRB,.191E-01_JPRB,.177E-01_JPRB,.268E-01_JPRB,.209E-01_JPRB,.148E-01_JPRB,&
+&.108E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.135E-01_JPRB,.158E-01_JPRB,.229E-01_JPRB,&
+&.255E-01_JPRB,.553E-01_JPRB,.862E-01_JPRB,.667E-01_JPRB,.755E-01_JPRB,.616E-01_JPRB,.578E-01_JPRB,&
+&.481E-01_JPRB,.563E-01_JPRB,.449E-01_JPRB,.545E-01_JPRB,.640E-01_JPRB,.661E-01_JPRB,.586E-01_JPRB,&
+&.577E-01_JPRB,.530E-01_JPRB,.380E-01_JPRB,.393E-01_JPRB,.296E-01_JPRB,.254E-01_JPRB,.232E-01_JPRB,&
+&.209E-01_JPRB,.211E-01_JPRB,.146E-01_JPRB,.113E-01_JPRB,.128E-01_JPRB,.112E-01_JPRB,.117E-01_JPRB,&
+&.116E-01_JPRB,.210E-01_JPRB,.225E-01_JPRB,.264E-01_JPRB,.260E-01_JPRB,.158E-01_JPRB,.259E-01_JPRB,&
+&.211E-01_JPRB,.162E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 38 -58.0
+ZAER (:,38, 3) = (/&
+&.145E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,.158E-01_JPRB,.191E-01_JPRB,.180E-01_JPRB,&
+&.162E-01_JPRB,.179E-01_JPRB,.982E-02_JPRB,.878E-02_JPRB,.818E-02_JPRB,.123E-01_JPRB,.151E-01_JPRB,&
+&.189E-01_JPRB,.193E-01_JPRB,.231E-01_JPRB,.306E-01_JPRB,.636E-01_JPRB,.695E-01_JPRB,.607E-01_JPRB,&
+&.302E-01_JPRB,.224E-01_JPRB,.155E-01_JPRB,.272E-01_JPRB,.246E-01_JPRB,.155E-01_JPRB,.148E-01_JPRB,&
+&.155E-01_JPRB,.146E-01_JPRB,.157E-01_JPRB,.175E-01_JPRB,.199E-01_JPRB,.252E-01_JPRB,.329E-01_JPRB,&
+&.435E-01_JPRB,.513E-01_JPRB,.864E-01_JPRB,.540E-01_JPRB,.449E-01_JPRB,.660E-01_JPRB,.416E-01_JPRB,&
+&.471E-01_JPRB,.509E-01_JPRB,.445E-01_JPRB,.554E-01_JPRB,.663E-01_JPRB,.679E-01_JPRB,.661E-01_JPRB,&
+&.514E-01_JPRB,.283E-01_JPRB,.223E-01_JPRB,.215E-01_JPRB,.153E-01_JPRB,.136E-01_JPRB,.171E-01_JPRB,&
+&.172E-01_JPRB,.125E-01_JPRB,.107E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.103E-01_JPRB,.109E-01_JPRB,&
+&.993E-02_JPRB,.109E-01_JPRB,.194E-01_JPRB,.235E-01_JPRB,.228E-01_JPRB,.131E-01_JPRB,.222E-01_JPRB,&
+&.189E-01_JPRB,.154E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 39 -62.0
+ZAER (:,39, 3) = (/&
+&.156E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.104E-01_JPRB,&
+&.832E-02_JPRB,.820E-02_JPRB,.853E-02_JPRB,.823E-02_JPRB,.871E-02_JPRB,.124E-01_JPRB,.168E-01_JPRB,&
+&.168E-01_JPRB,.206E-01_JPRB,.246E-01_JPRB,.266E-01_JPRB,.473E-01_JPRB,.573E-01_JPRB,.529E-01_JPRB,&
+&.266E-01_JPRB,.308E-01_JPRB,.227E-01_JPRB,.212E-01_JPRB,.198E-01_JPRB,.141E-01_JPRB,.754E-02_JPRB,&
+&.161E-01_JPRB,.183E-01_JPRB,.193E-01_JPRB,.204E-01_JPRB,.246E-01_JPRB,.288E-01_JPRB,.343E-01_JPRB,&
+&.453E-01_JPRB,.552E-01_JPRB,.632E-01_JPRB,.271E-01_JPRB,.224E-01_JPRB,.452E-01_JPRB,.350E-01_JPRB,&
+&.431E-01_JPRB,.474E-01_JPRB,.522E-01_JPRB,.531E-01_JPRB,.574E-01_JPRB,.539E-01_JPRB,.410E-01_JPRB,&
+&.345E-01_JPRB,.277E-01_JPRB,.233E-01_JPRB,.151E-01_JPRB,.818E-02_JPRB,.933E-02_JPRB,.126E-01_JPRB,&
+&.136E-01_JPRB,.965E-02_JPRB,.956E-02_JPRB,.107E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,&
+&.114E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.112E-01_JPRB,&
+&.981E-02_JPRB,.160E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 40 -66.0
+ZAER (:,40, 3) = (/&
+&.101E-01_JPRB,.108E-01_JPRB,.193E-01_JPRB,.204E-01_JPRB,.120E-01_JPRB,.113E-01_JPRB,.103E-01_JPRB,&
+&.982E-02_JPRB,.853E-02_JPRB,.771E-02_JPRB,.930E-02_JPRB,.103E-01_JPRB,.121E-01_JPRB,.132E-01_JPRB,&
+&.135E-01_JPRB,.183E-01_JPRB,.224E-01_JPRB,.238E-01_JPRB,.251E-01_JPRB,.268E-01_JPRB,.514E-01_JPRB,&
+&.265E-01_JPRB,.174E-01_JPRB,.143E-01_JPRB,.208E-01_JPRB,.170E-01_JPRB,.914E-02_JPRB,.611E-02_JPRB,&
+&.511E-02_JPRB,.117E-01_JPRB,.181E-01_JPRB,.207E-01_JPRB,.212E-01_JPRB,.219E-01_JPRB,.263E-01_JPRB,&
+&.320E-01_JPRB,.368E-01_JPRB,.386E-01_JPRB,.417E-01_JPRB,.181E-01_JPRB,.184E-01_JPRB,.238E-01_JPRB,&
+&.315E-01_JPRB,.362E-01_JPRB,.390E-01_JPRB,.432E-01_JPRB,.384E-01_JPRB,.387E-01_JPRB,.313E-01_JPRB,&
+&.268E-01_JPRB,.287E-01_JPRB,.263E-01_JPRB,.183E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,.113E-01_JPRB,&
+&.973E-02_JPRB,.108E-01_JPRB,.110E-01_JPRB,.112E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,&
+&.124E-01_JPRB,.129E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,&
+&.975E-02_JPRB,.971E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 41 -70.0
+ZAER (:,41, 3) = (/&
+&.217E-01_JPRB,.214E-01_JPRB,.209E-01_JPRB,.209E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,&
+&.104E-01_JPRB,.180E-01_JPRB,.187E-01_JPRB,.115E-01_JPRB,.204E-01_JPRB,.209E-01_JPRB,.133E-01_JPRB,&
+&.148E-01_JPRB,.152E-01_JPRB,.253E-01_JPRB,.177E-01_JPRB,.213E-01_JPRB,.206E-01_JPRB,.223E-01_JPRB,&
+&.258E-01_JPRB,.194E-01_JPRB,.275E-01_JPRB,.221E-01_JPRB,.188E-01_JPRB,.935E-02_JPRB,.578E-02_JPRB,&
+&.422E-02_JPRB,.420E-02_JPRB,.589E-02_JPRB,.117E-01_JPRB,.243E-01_JPRB,.195E-01_JPRB,.173E-01_JPRB,&
+&.171E-01_JPRB,.170E-01_JPRB,.178E-01_JPRB,.222E-01_JPRB,.256E-01_JPRB,.243E-01_JPRB,.151E-01_JPRB,&
+&.170E-01_JPRB,.445E-01_JPRB,.567E-01_JPRB,.563E-01_JPRB,.466E-01_JPRB,.415E-01_JPRB,.431E-01_JPRB,&
+&.378E-01_JPRB,.236E-01_JPRB,.224E-01_JPRB,.203E-01_JPRB,.181E-01_JPRB,.131E-01_JPRB,.112E-01_JPRB,&
+&.115E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.122E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,&
+&.133E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.207E-01_JPRB,.127E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 42 -74.0
+ZAER (:,42, 3) = (/&
+&.234E-01_JPRB,.236E-01_JPRB,.238E-01_JPRB,.238E-01_JPRB,.244E-01_JPRB,.240E-01_JPRB,.242E-01_JPRB,&
+&.249E-01_JPRB,.247E-01_JPRB,.254E-01_JPRB,.246E-01_JPRB,.263E-01_JPRB,.164E-01_JPRB,.175E-01_JPRB,&
+&.306E-01_JPRB,.351E-01_JPRB,.359E-01_JPRB,.376E-01_JPRB,.365E-01_JPRB,.199E-01_JPRB,.314E-01_JPRB,&
+&.315E-01_JPRB,.359E-01_JPRB,.316E-01_JPRB,.248E-01_JPRB,.122E-01_JPRB,.882E-02_JPRB,.641E-02_JPRB,&
+&.541E-02_JPRB,.485E-02_JPRB,.578E-02_JPRB,.886E-02_JPRB,.204E-01_JPRB,.219E-01_JPRB,.215E-01_JPRB,&
+&.199E-01_JPRB,.164E-01_JPRB,.148E-01_JPRB,.152E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.216E-01_JPRB,&
+&.245E-01_JPRB,.372E-01_JPRB,.447E-01_JPRB,.387E-01_JPRB,.346E-01_JPRB,.352E-01_JPRB,.401E-01_JPRB,&
+&.461E-01_JPRB,.478E-01_JPRB,.432E-01_JPRB,.349E-01_JPRB,.195E-01_JPRB,.170E-01_JPRB,.146E-01_JPRB,&
+&.113E-01_JPRB,.110E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,.241E-01_JPRB,.250E-01_JPRB,.232E-01_JPRB,&
+&.224E-01_JPRB,.212E-01_JPRB,.221E-01_JPRB,.216E-01_JPRB,.219E-01_JPRB,.218E-01_JPRB,.216E-01_JPRB,&
+&.214E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 43 -78.0
+ZAER (:,43, 3) = (/&
+&.242E-01_JPRB,.242E-01_JPRB,.247E-01_JPRB,.250E-01_JPRB,.259E-01_JPRB,.271E-01_JPRB,.266E-01_JPRB,&
+&.261E-01_JPRB,.256E-01_JPRB,.252E-01_JPRB,.255E-01_JPRB,.252E-01_JPRB,.250E-01_JPRB,.260E-01_JPRB,&
+&.291E-01_JPRB,.316E-01_JPRB,.330E-01_JPRB,.355E-01_JPRB,.210E-01_JPRB,.200E-01_JPRB,.194E-01_JPRB,&
+&.306E-01_JPRB,.295E-01_JPRB,.192E-01_JPRB,.176E-01_JPRB,.151E-01_JPRB,.124E-01_JPRB,.103E-01_JPRB,&
+&.924E-02_JPRB,.862E-02_JPRB,.105E-01_JPRB,.112E-01_JPRB,.192E-01_JPRB,.224E-01_JPRB,.231E-01_JPRB,&
+&.210E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.112E-01_JPRB,.190E-01_JPRB,.191E-01_JPRB,&
+&.189E-01_JPRB,.197E-01_JPRB,.258E-01_JPRB,.263E-01_JPRB,.243E-01_JPRB,.274E-01_JPRB,.308E-01_JPRB,&
+&.342E-01_JPRB,.394E-01_JPRB,.392E-01_JPRB,.368E-01_JPRB,.335E-01_JPRB,.303E-01_JPRB,.266E-01_JPRB,&
+&.225E-01_JPRB,.115E-01_JPRB,.178E-01_JPRB,.185E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,.196E-01_JPRB,&
+&.201E-01_JPRB,.197E-01_JPRB,.200E-01_JPRB,.209E-01_JPRB,.221E-01_JPRB,.232E-01_JPRB,.237E-01_JPRB,&
+&.241E-01_JPRB,.244E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 44 -82.0
+ZAER (:,44, 3) = (/&
+&.254E-01_JPRB,.254E-01_JPRB,.254E-01_JPRB,.255E-01_JPRB,.260E-01_JPRB,.263E-01_JPRB,.267E-01_JPRB,&
+&.270E-01_JPRB,.273E-01_JPRB,.274E-01_JPRB,.273E-01_JPRB,.273E-01_JPRB,.268E-01_JPRB,.270E-01_JPRB,&
+&.274E-01_JPRB,.283E-01_JPRB,.297E-01_JPRB,.312E-01_JPRB,.309E-01_JPRB,.303E-01_JPRB,.179E-01_JPRB,&
+&.176E-01_JPRB,.172E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,.156E-01_JPRB,.150E-01_JPRB,.142E-01_JPRB,&
+&.136E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.166E-01_JPRB,.172E-01_JPRB,&
+&.188E-01_JPRB,.184E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,.182E-01_JPRB,.187E-01_JPRB,.193E-01_JPRB,&
+&.198E-01_JPRB,.198E-01_JPRB,.204E-01_JPRB,.216E-01_JPRB,.235E-01_JPRB,.259E-01_JPRB,.267E-01_JPRB,&
+&.263E-01_JPRB,.260E-01_JPRB,.255E-01_JPRB,.249E-01_JPRB,.244E-01_JPRB,.231E-01_JPRB,.220E-01_JPRB,&
+&.213E-01_JPRB,.212E-01_JPRB,.215E-01_JPRB,.221E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.202E-01_JPRB,&
+&.201E-01_JPRB,.205E-01_JPRB,.211E-01_JPRB,.217E-01_JPRB,.225E-01_JPRB,.232E-01_JPRB,.236E-01_JPRB,&
+&.244E-01_JPRB,.250E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 45 -86.0
+ZAER (:,45, 3) = (/&
+&.193E-01_JPRB,.196E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,&
+&.208E-01_JPRB,.209E-01_JPRB,.212E-01_JPRB,.215E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.216E-01_JPRB,&
+&.217E-01_JPRB,.217E-01_JPRB,.216E-01_JPRB,.216E-01_JPRB,.214E-01_JPRB,.214E-01_JPRB,.214E-01_JPRB,&
+&.211E-01_JPRB,.210E-01_JPRB,.208E-01_JPRB,.204E-01_JPRB,.198E-01_JPRB,.191E-01_JPRB,.186E-01_JPRB,&
+&.181E-01_JPRB,.176E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.167E-01_JPRB,.161E-01_JPRB,.160E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,&
+&.159E-01_JPRB,.160E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,&
+&.178E-01_JPRB,.179E-01_JPRB,.185E-01_JPRB,.186E-01_JPRB,.187E-01_JPRB,.187E-01_JPRB,.188E-01_JPRB,&
+&.189E-01_JPRB,.189E-01_JPRB,.188E-01_JPRB,.190E-01_JPRB,.190E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,&
+&.193E-01_JPRB,.193E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  3 --- lat: 46 -90.0
+ZAER (:,46, 3) = (/&
+&.162E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.166E-01_JPRB,.166E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=3   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_03
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_04.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_04.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_04.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_04
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          April
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,4:4)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  4 --- lat:  1  90.0
+ZAER (:, 1, 4) = (/&
+&.331E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,.324E-02_JPRB,&
+&.324E-02_JPRB,.324E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  2  86.0
+ZAER (:, 2, 4) = (/&
+&.499E-02_JPRB,.524E-02_JPRB,.538E-02_JPRB,.551E-02_JPRB,.562E-02_JPRB,.572E-02_JPRB,.581E-02_JPRB,&
+&.578E-02_JPRB,.589E-02_JPRB,.593E-02_JPRB,.595E-02_JPRB,.597E-02_JPRB,.553E-02_JPRB,.541E-02_JPRB,&
+&.523E-02_JPRB,.504E-02_JPRB,.487E-02_JPRB,.478E-02_JPRB,.460E-02_JPRB,.448E-02_JPRB,.431E-02_JPRB,&
+&.428E-02_JPRB,.411E-02_JPRB,.400E-02_JPRB,.364E-02_JPRB,.358E-02_JPRB,.355E-02_JPRB,.347E-02_JPRB,&
+&.351E-02_JPRB,.348E-02_JPRB,.342E-02_JPRB,.349E-02_JPRB,.357E-02_JPRB,.360E-02_JPRB,.367E-02_JPRB,&
+&.369E-02_JPRB,.332E-02_JPRB,.329E-02_JPRB,.326E-02_JPRB,.323E-02_JPRB,.321E-02_JPRB,.315E-02_JPRB,&
+&.312E-02_JPRB,.310E-02_JPRB,.310E-02_JPRB,.305E-02_JPRB,.304E-02_JPRB,.303E-02_JPRB,.287E-02_JPRB,&
+&.278E-02_JPRB,.269E-02_JPRB,.262E-02_JPRB,.259E-02_JPRB,.253E-02_JPRB,.254E-02_JPRB,.256E-02_JPRB,&
+&.259E-02_JPRB,.263E-02_JPRB,.271E-02_JPRB,.275E-02_JPRB,.295E-02_JPRB,.304E-02_JPRB,.312E-02_JPRB,&
+&.317E-02_JPRB,.326E-02_JPRB,.335E-02_JPRB,.344E-02_JPRB,.356E-02_JPRB,.364E-02_JPRB,.381E-02_JPRB,&
+&.395E-02_JPRB,.412E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  3  82.0
+ZAER (:, 3, 4) = (/&
+&.836E-02_JPRB,.858E-02_JPRB,.897E-02_JPRB,.964E-02_JPRB,.105E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,&
+&.107E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.104E-01_JPRB,.898E-02_JPRB,.865E-02_JPRB,&
+&.833E-02_JPRB,.798E-02_JPRB,.751E-02_JPRB,.738E-02_JPRB,.720E-02_JPRB,.696E-02_JPRB,.683E-02_JPRB,&
+&.663E-02_JPRB,.649E-02_JPRB,.640E-02_JPRB,.716E-02_JPRB,.684E-02_JPRB,.666E-02_JPRB,.653E-02_JPRB,&
+&.652E-02_JPRB,.653E-02_JPRB,.534E-02_JPRB,.495E-02_JPRB,.467E-02_JPRB,.458E-02_JPRB,.462E-02_JPRB,&
+&.494E-02_JPRB,.419E-02_JPRB,.402E-02_JPRB,.378E-02_JPRB,.372E-02_JPRB,.367E-02_JPRB,.360E-02_JPRB,&
+&.330E-02_JPRB,.332E-02_JPRB,.335E-02_JPRB,.336E-02_JPRB,.342E-02_JPRB,.346E-02_JPRB,.332E-02_JPRB,&
+&.324E-02_JPRB,.316E-02_JPRB,.310E-02_JPRB,.306E-02_JPRB,.295E-02_JPRB,.299E-02_JPRB,.280E-02_JPRB,&
+&.264E-02_JPRB,.258E-02_JPRB,.261E-02_JPRB,.274E-02_JPRB,.320E-02_JPRB,.335E-02_JPRB,.356E-02_JPRB,&
+&.377E-02_JPRB,.398E-02_JPRB,.413E-02_JPRB,.534E-02_JPRB,.549E-02_JPRB,.573E-02_JPRB,.602E-02_JPRB,&
+&.634E-02_JPRB,.680E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  4  78.0
+ZAER (:, 4, 4) = (/&
+&.106E-01_JPRB,.110E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,&
+&.103E-01_JPRB,.981E-02_JPRB,.733E-02_JPRB,.741E-02_JPRB,.847E-02_JPRB,.886E-02_JPRB,.960E-02_JPRB,&
+&.985E-02_JPRB,.909E-02_JPRB,.818E-02_JPRB,.781E-02_JPRB,.793E-02_JPRB,.787E-02_JPRB,.774E-02_JPRB,&
+&.785E-02_JPRB,.794E-02_JPRB,.817E-02_JPRB,.975E-02_JPRB,.102E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,&
+&.105E-01_JPRB,.111E-01_JPRB,.784E-02_JPRB,.613E-02_JPRB,.598E-02_JPRB,.481E-02_JPRB,.407E-02_JPRB,&
+&.387E-02_JPRB,.327E-02_JPRB,.294E-02_JPRB,.306E-02_JPRB,.311E-02_JPRB,.335E-02_JPRB,.348E-02_JPRB,&
+&.348E-02_JPRB,.329E-02_JPRB,.332E-02_JPRB,.354E-02_JPRB,.343E-02_JPRB,.341E-02_JPRB,.361E-02_JPRB,&
+&.370E-02_JPRB,.394E-02_JPRB,.347E-02_JPRB,.332E-02_JPRB,.333E-02_JPRB,.322E-02_JPRB,.314E-02_JPRB,&
+&.300E-02_JPRB,.290E-02_JPRB,.281E-02_JPRB,.302E-02_JPRB,.351E-02_JPRB,.367E-02_JPRB,.381E-02_JPRB,&
+&.415E-02_JPRB,.424E-02_JPRB,.422E-02_JPRB,.456E-02_JPRB,.454E-02_JPRB,.488E-02_JPRB,.646E-02_JPRB,&
+&.685E-02_JPRB,.886E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  5  74.0
+ZAER (:, 5, 4) = (/&
+&.108E-01_JPRB,.112E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
+&.106E-01_JPRB,.103E-01_JPRB,.874E-02_JPRB,.827E-02_JPRB,.836E-02_JPRB,.852E-02_JPRB,.972E-02_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.995E-02_JPRB,.937E-02_JPRB,.892E-02_JPRB,.940E-02_JPRB,.908E-02_JPRB,&
+&.830E-02_JPRB,.758E-02_JPRB,.800E-02_JPRB,.994E-02_JPRB,.128E-01_JPRB,.140E-01_JPRB,.134E-01_JPRB,&
+&.139E-01_JPRB,.140E-01_JPRB,.117E-01_JPRB,.945E-02_JPRB,.752E-02_JPRB,.702E-02_JPRB,.558E-02_JPRB,&
+&.454E-02_JPRB,.347E-02_JPRB,.257E-02_JPRB,.244E-02_JPRB,.290E-02_JPRB,.328E-02_JPRB,.359E-02_JPRB,&
+&.358E-02_JPRB,.376E-02_JPRB,.372E-02_JPRB,.337E-02_JPRB,.331E-02_JPRB,.327E-02_JPRB,.366E-02_JPRB,&
+&.435E-02_JPRB,.458E-02_JPRB,.398E-02_JPRB,.354E-02_JPRB,.333E-02_JPRB,.331E-02_JPRB,.311E-02_JPRB,&
+&.302E-02_JPRB,.302E-02_JPRB,.304E-02_JPRB,.312E-02_JPRB,.344E-02_JPRB,.345E-02_JPRB,.324E-02_JPRB,&
+&.327E-02_JPRB,.353E-02_JPRB,.447E-02_JPRB,.510E-02_JPRB,.513E-02_JPRB,.590E-02_JPRB,.696E-02_JPRB,&
+&.843E-02_JPRB,.103E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  6  70.0
+ZAER (:, 6, 4) = (/&
+&.115E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.981E-02_JPRB,.921E-02_JPRB,.956E-02_JPRB,.108E-01_JPRB,&
+&.112E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,.985E-02_JPRB,.985E-02_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.993E-02_JPRB,.987E-02_JPRB,.103E-01_JPRB,.104E-01_JPRB,.999E-02_JPRB,.102E-01_JPRB,.987E-02_JPRB,&
+&.930E-02_JPRB,.867E-02_JPRB,.822E-02_JPRB,.939E-02_JPRB,.107E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,&
+&.120E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,.134E-01_JPRB,.120E-01_JPRB,.923E-02_JPRB,&
+&.636E-02_JPRB,.552E-02_JPRB,.485E-02_JPRB,.478E-02_JPRB,.548E-02_JPRB,.672E-02_JPRB,.664E-02_JPRB,&
+&.673E-02_JPRB,.599E-02_JPRB,.543E-02_JPRB,.518E-02_JPRB,.439E-02_JPRB,.354E-02_JPRB,.352E-02_JPRB,&
+&.447E-02_JPRB,.587E-02_JPRB,.559E-02_JPRB,.475E-02_JPRB,.423E-02_JPRB,.450E-02_JPRB,.430E-02_JPRB,&
+&.391E-02_JPRB,.379E-02_JPRB,.387E-02_JPRB,.402E-02_JPRB,.418E-02_JPRB,.442E-02_JPRB,.446E-02_JPRB,&
+&.409E-02_JPRB,.396E-02_JPRB,.469E-02_JPRB,.555E-02_JPRB,.696E-02_JPRB,.826E-02_JPRB,.957E-02_JPRB,&
+&.105E-01_JPRB,.112E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  7  66.0
+ZAER (:, 7, 4) = (/&
+&.120E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.104E-01_JPRB,.980E-02_JPRB,.969E-02_JPRB,.951E-02_JPRB,&
+&.103E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,&
+&.981E-02_JPRB,.918E-02_JPRB,.871E-02_JPRB,.817E-02_JPRB,.786E-02_JPRB,.833E-02_JPRB,.927E-02_JPRB,&
+&.928E-02_JPRB,.917E-02_JPRB,.903E-02_JPRB,.946E-02_JPRB,.992E-02_JPRB,.110E-01_JPRB,.130E-01_JPRB,&
+&.144E-01_JPRB,.148E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,.170E-01_JPRB,.149E-01_JPRB,.130E-01_JPRB,&
+&.110E-01_JPRB,.885E-02_JPRB,.834E-02_JPRB,.100E-01_JPRB,.116E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,&
+&.108E-01_JPRB,.949E-02_JPRB,.949E-02_JPRB,.995E-02_JPRB,.958E-02_JPRB,.866E-02_JPRB,.821E-02_JPRB,&
+&.873E-02_JPRB,.866E-02_JPRB,.874E-02_JPRB,.945E-02_JPRB,.798E-02_JPRB,.741E-02_JPRB,.705E-02_JPRB,&
+&.719E-02_JPRB,.773E-02_JPRB,.804E-02_JPRB,.866E-02_JPRB,.941E-02_JPRB,.955E-02_JPRB,.894E-02_JPRB,&
+&.803E-02_JPRB,.785E-02_JPRB,.849E-02_JPRB,.927E-02_JPRB,.113E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,&
+&.130E-01_JPRB,.127E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  8  62.0
+ZAER (:, 8, 4) = (/&
+&.111E-01_JPRB,.100E-01_JPRB,.976E-02_JPRB,.937E-02_JPRB,.911E-02_JPRB,.937E-02_JPRB,.104E-01_JPRB,&
+&.111E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.115E-01_JPRB,.112E-01_JPRB,.105E-01_JPRB,.978E-02_JPRB,&
+&.948E-02_JPRB,.934E-02_JPRB,.913E-02_JPRB,.860E-02_JPRB,.834E-02_JPRB,.823E-02_JPRB,.898E-02_JPRB,&
+&.102E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.106E-01_JPRB,&
+&.124E-01_JPRB,.136E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.134E-01_JPRB,.122E-01_JPRB,&
+&.121E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.111E-01_JPRB,.105E-01_JPRB,.962E-02_JPRB,&
+&.933E-02_JPRB,.102E-01_JPRB,.124E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,&
+&.129E-01_JPRB,.125E-01_JPRB,.118E-01_JPRB,.125E-01_JPRB,.141E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,&
+&.104E-01_JPRB,.107E-01_JPRB,.118E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,.148E-01_JPRB,.155E-01_JPRB,&
+&.153E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,.154E-01_JPRB,&
+&.149E-01_JPRB,.132E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat:  9  58.0
+ZAER (:, 9, 4) = (/&
+&.105E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.966E-02_JPRB,.962E-02_JPRB,.102E-01_JPRB,.990E-02_JPRB,&
+&.961E-02_JPRB,.953E-02_JPRB,.988E-02_JPRB,.101E-01_JPRB,.980E-02_JPRB,.972E-02_JPRB,.960E-02_JPRB,&
+&.974E-02_JPRB,.988E-02_JPRB,.941E-02_JPRB,.905E-02_JPRB,.893E-02_JPRB,.911E-02_JPRB,.966E-02_JPRB,&
+&.100E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.990E-02_JPRB,.102E-01_JPRB,&
+&.112E-01_JPRB,.124E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.112E-01_JPRB,.980E-02_JPRB,&
+&.105E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.108E-01_JPRB,.100E-01_JPRB,.884E-02_JPRB,&
+&.863E-02_JPRB,.868E-02_JPRB,.991E-02_JPRB,.111E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,.131E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,&
+&.129E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.141E-01_JPRB,.144E-01_JPRB,.144E-01_JPRB,&
+&.141E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.126E-01_JPRB,.119E-01_JPRB,&
+&.116E-01_JPRB,.112E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 10  54.0
+ZAER (:,10, 4) = (/&
+&.104E-01_JPRB,.995E-02_JPRB,.102E-01_JPRB,.102E-01_JPRB,.989E-02_JPRB,.912E-02_JPRB,.848E-02_JPRB,&
+&.829E-02_JPRB,.862E-02_JPRB,.878E-02_JPRB,.860E-02_JPRB,.833E-02_JPRB,.819E-02_JPRB,.860E-02_JPRB,&
+&.866E-02_JPRB,.883E-02_JPRB,.932E-02_JPRB,.100E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.984E-02_JPRB,&
+&.980E-02_JPRB,.638E-02_JPRB,.112E-01_JPRB,.104E-01_JPRB,.924E-02_JPRB,.921E-02_JPRB,.102E-01_JPRB,&
+&.121E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.116E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.104E-01_JPRB,&
+&.108E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.963E-02_JPRB,.962E-02_JPRB,&
+&.977E-02_JPRB,.942E-02_JPRB,.899E-02_JPRB,.895E-02_JPRB,.939E-02_JPRB,.957E-02_JPRB,.102E-01_JPRB,&
+&.103E-01_JPRB,.108E-01_JPRB,.117E-01_JPRB,.128E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,&
+&.137E-01_JPRB,.135E-01_JPRB,.133E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,&
+&.120E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,.106E-01_JPRB,.103E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,&
+&.107E-01_JPRB,.105E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 11  50.0
+ZAER (:,11, 4) = (/&
+&.962E-02_JPRB,.900E-02_JPRB,.887E-02_JPRB,.885E-02_JPRB,.784E-02_JPRB,.776E-02_JPRB,.782E-02_JPRB,&
+&.826E-02_JPRB,.818E-02_JPRB,.797E-02_JPRB,.782E-02_JPRB,.797E-02_JPRB,.816E-02_JPRB,.835E-02_JPRB,&
+&.813E-02_JPRB,.839E-02_JPRB,.908E-02_JPRB,.971E-02_JPRB,.950E-02_JPRB,.958E-02_JPRB,.921E-02_JPRB,&
+&.849E-02_JPRB,.512E-02_JPRB,.975E-02_JPRB,.960E-02_JPRB,.862E-02_JPRB,.897E-02_JPRB,.898E-02_JPRB,&
+&.929E-02_JPRB,.950E-02_JPRB,.934E-02_JPRB,.103E-01_JPRB,.105E-01_JPRB,.995E-02_JPRB,.105E-01_JPRB,&
+&.103E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,&
+&.971E-02_JPRB,.979E-02_JPRB,.102E-01_JPRB,.983E-02_JPRB,.947E-02_JPRB,.834E-02_JPRB,.852E-02_JPRB,&
+&.888E-02_JPRB,.934E-02_JPRB,.996E-02_JPRB,.113E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,&
+&.119E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,&
+&.989E-02_JPRB,.953E-02_JPRB,.940E-02_JPRB,.895E-02_JPRB,.903E-02_JPRB,.954E-02_JPRB,.966E-02_JPRB,&
+&.975E-02_JPRB,.970E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 12  46.0
+ZAER (:,12, 4) = (/&
+&.906E-02_JPRB,.864E-02_JPRB,.863E-02_JPRB,.787E-02_JPRB,.732E-02_JPRB,.780E-02_JPRB,.835E-02_JPRB,&
+&.804E-02_JPRB,.767E-02_JPRB,.727E-02_JPRB,.673E-02_JPRB,.718E-02_JPRB,.740E-02_JPRB,.774E-02_JPRB,&
+&.879E-02_JPRB,.911E-02_JPRB,.909E-02_JPRB,.870E-02_JPRB,.818E-02_JPRB,.778E-02_JPRB,.786E-02_JPRB,&
+&.789E-02_JPRB,.498E-02_JPRB,.873E-02_JPRB,.996E-02_JPRB,.993E-02_JPRB,.960E-02_JPRB,.928E-02_JPRB,&
+&.838E-02_JPRB,.786E-02_JPRB,.871E-02_JPRB,.104E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,&
+&.106E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,.997E-02_JPRB,&
+&.964E-02_JPRB,.958E-02_JPRB,.982E-02_JPRB,.949E-02_JPRB,.869E-02_JPRB,.794E-02_JPRB,.771E-02_JPRB,&
+&.814E-02_JPRB,.858E-02_JPRB,.904E-02_JPRB,.937E-02_JPRB,.986E-02_JPRB,.100E-01_JPRB,.109E-01_JPRB,&
+&.115E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.937E-02_JPRB,&
+&.900E-02_JPRB,.886E-02_JPRB,.866E-02_JPRB,.859E-02_JPRB,.846E-02_JPRB,.822E-02_JPRB,.815E-02_JPRB,&
+&.817E-02_JPRB,.834E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 13  42.0
+ZAER (:,13, 4) = (/&
+&.906E-02_JPRB,.822E-02_JPRB,.877E-02_JPRB,.845E-02_JPRB,.767E-02_JPRB,.788E-02_JPRB,.827E-02_JPRB,&
+&.769E-02_JPRB,.720E-02_JPRB,.632E-02_JPRB,.604E-02_JPRB,.632E-02_JPRB,.700E-02_JPRB,.790E-02_JPRB,&
+&.833E-02_JPRB,.756E-02_JPRB,.683E-02_JPRB,.749E-02_JPRB,.700E-02_JPRB,.706E-02_JPRB,.775E-02_JPRB,&
+&.992E-02_JPRB,.727E-02_JPRB,.739E-02_JPRB,.117E-01_JPRB,.105E-01_JPRB,.971E-02_JPRB,.971E-02_JPRB,&
+&.972E-02_JPRB,.990E-02_JPRB,.974E-02_JPRB,.100E-01_JPRB,.101E-01_JPRB,.104E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.996E-02_JPRB,.989E-02_JPRB,.993E-02_JPRB,.107E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,&
+&.120E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,.914E-02_JPRB,.873E-02_JPRB,.830E-02_JPRB,.825E-02_JPRB,&
+&.833E-02_JPRB,.889E-02_JPRB,.931E-02_JPRB,.102E-01_JPRB,.998E-02_JPRB,.937E-02_JPRB,.973E-02_JPRB,&
+&.917E-02_JPRB,.865E-02_JPRB,.802E-02_JPRB,.893E-02_JPRB,.948E-02_JPRB,.982E-02_JPRB,.965E-02_JPRB,&
+&.826E-02_JPRB,.873E-02_JPRB,.811E-02_JPRB,.833E-02_JPRB,.781E-02_JPRB,.766E-02_JPRB,.766E-02_JPRB,&
+&.731E-02_JPRB,.747E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 14  38.0
+ZAER (:,14, 4) = (/&
+&.920E-02_JPRB,.734E-02_JPRB,.787E-02_JPRB,.801E-02_JPRB,.802E-02_JPRB,.809E-02_JPRB,.874E-02_JPRB,&
+&.843E-02_JPRB,.830E-02_JPRB,.817E-02_JPRB,.741E-02_JPRB,.719E-02_JPRB,.779E-02_JPRB,.808E-02_JPRB,&
+&.775E-02_JPRB,.752E-02_JPRB,.706E-02_JPRB,.741E-02_JPRB,.707E-02_JPRB,.670E-02_JPRB,.821E-02_JPRB,&
+&.122E-01_JPRB,.698E-02_JPRB,.925E-02_JPRB,.714E-02_JPRB,.123E-01_JPRB,.137E-01_JPRB,.132E-01_JPRB,&
+&.114E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.988E-02_JPRB,&
+&.934E-02_JPRB,.876E-02_JPRB,.837E-02_JPRB,.919E-02_JPRB,.112E-01_JPRB,.136E-01_JPRB,.161E-01_JPRB,&
+&.163E-01_JPRB,.137E-01_JPRB,.111E-01_JPRB,.935E-02_JPRB,.860E-02_JPRB,.879E-02_JPRB,.869E-02_JPRB,&
+&.901E-02_JPRB,.903E-02_JPRB,.942E-02_JPRB,.956E-02_JPRB,.884E-02_JPRB,.743E-02_JPRB,.725E-02_JPRB,&
+&.783E-02_JPRB,.782E-02_JPRB,.822E-02_JPRB,.802E-02_JPRB,.849E-02_JPRB,.996E-02_JPRB,.100E-01_JPRB,&
+&.900E-02_JPRB,.102E-01_JPRB,.563E-02_JPRB,.849E-02_JPRB,.835E-02_JPRB,.782E-02_JPRB,.763E-02_JPRB,&
+&.761E-02_JPRB,.679E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 15  34.0
+ZAER (:,15, 4) = (/&
+&.893E-02_JPRB,.815E-02_JPRB,.842E-02_JPRB,.857E-02_JPRB,.880E-02_JPRB,.875E-02_JPRB,.942E-02_JPRB,&
+&.990E-02_JPRB,.100E-01_JPRB,.100E-01_JPRB,.962E-02_JPRB,.103E-01_JPRB,.962E-02_JPRB,.964E-02_JPRB,&
+&.877E-02_JPRB,.809E-02_JPRB,.789E-02_JPRB,.778E-02_JPRB,.707E-02_JPRB,.675E-02_JPRB,.847E-02_JPRB,&
+&.163E-01_JPRB,.931E-02_JPRB,.115E-01_JPRB,.101E-01_JPRB,.104E-01_JPRB,.181E-01_JPRB,.150E-01_JPRB,&
+&.127E-01_JPRB,.123E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.982E-02_JPRB,&
+&.940E-02_JPRB,.877E-02_JPRB,.850E-02_JPRB,.107E-01_JPRB,.175E-01_JPRB,.124E-01_JPRB,.234E-01_JPRB,&
+&.188E-01_JPRB,.155E-01_JPRB,.131E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,.937E-02_JPRB,&
+&.950E-02_JPRB,.844E-02_JPRB,.823E-02_JPRB,.888E-02_JPRB,.900E-02_JPRB,.822E-02_JPRB,.830E-02_JPRB,&
+&.923E-02_JPRB,.898E-02_JPRB,.881E-02_JPRB,.946E-02_JPRB,.616E-02_JPRB,.120E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.598E-02_JPRB,.681E-02_JPRB,.546E-02_JPRB,.878E-02_JPRB,.812E-02_JPRB,.776E-02_JPRB,&
+&.893E-02_JPRB,.895E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 16  30.0
+ZAER (:,16, 4) = (/&
+&.965E-02_JPRB,.896E-02_JPRB,.880E-02_JPRB,.982E-02_JPRB,.104E-01_JPRB,.108E-01_JPRB,.112E-01_JPRB,&
+&.118E-01_JPRB,.117E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,&
+&.106E-01_JPRB,.980E-02_JPRB,.937E-02_JPRB,.847E-02_JPRB,.776E-02_JPRB,.772E-02_JPRB,.843E-02_JPRB,&
+&.220E-01_JPRB,.116E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.146E-01_JPRB,.227E-01_JPRB,.173E-01_JPRB,&
+&.140E-01_JPRB,.127E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.111E-01_JPRB,&
+&.107E-01_JPRB,.102E-01_JPRB,.117E-01_JPRB,.169E-01_JPRB,.270E-01_JPRB,.178E-01_JPRB,.195E-01_JPRB,&
+&.132E-01_JPRB,.168E-01_JPRB,.136E-01_JPRB,.123E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.117E-01_JPRB,&
+&.112E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,&
+&.125E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.968E-02_JPRB,.854E-02_JPRB,.871E-02_JPRB,.817E-02_JPRB,&
+&.794E-02_JPRB,.744E-02_JPRB,.885E-02_JPRB,.775E-02_JPRB,.116E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,&
+&.107E-01_JPRB,.104E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 17  26.0
+ZAER (:,17, 4) = (/&
+&.125E-01_JPRB,.118E-01_JPRB,.113E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.123E-01_JPRB,.133E-01_JPRB,&
+&.140E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.114E-01_JPRB,&
+&.112E-01_JPRB,.103E-01_JPRB,.968E-02_JPRB,.922E-02_JPRB,.885E-02_JPRB,.943E-02_JPRB,.112E-01_JPRB,&
+&.259E-01_JPRB,.158E-01_JPRB,.140E-01_JPRB,.167E-01_JPRB,.191E-01_JPRB,.176E-01_JPRB,.225E-01_JPRB,&
+&.165E-01_JPRB,.144E-01_JPRB,.131E-01_JPRB,.126E-01_JPRB,.123E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,&
+&.122E-01_JPRB,.149E-01_JPRB,.209E-01_JPRB,.247E-01_JPRB,.168E-01_JPRB,.238E-01_JPRB,.292E-01_JPRB,&
+&.142E-01_JPRB,.164E-01_JPRB,.135E-01_JPRB,.127E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.126E-01_JPRB,&
+&.124E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.134E-01_JPRB,&
+&.143E-01_JPRB,.151E-01_JPRB,.199E-01_JPRB,.123E-01_JPRB,.114E-01_JPRB,.913E-02_JPRB,.992E-02_JPRB,&
+&.746E-02_JPRB,.680E-02_JPRB,.873E-02_JPRB,.743E-02_JPRB,.123E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.147E-01_JPRB,.147E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 18  22.0
+ZAER (:,18, 4) = (/&
+&.149E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,.131E-01_JPRB,.139E-01_JPRB,.155E-01_JPRB,&
+&.163E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.150E-01_JPRB,.140E-01_JPRB,.127E-01_JPRB,.115E-01_JPRB,&
+&.112E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.126E-01_JPRB,.181E-01_JPRB,&
+&.551E-01_JPRB,.206E-01_JPRB,.130E-01_JPRB,.152E-01_JPRB,.195E-01_JPRB,.230E-01_JPRB,.140E-01_JPRB,&
+&.177E-01_JPRB,.157E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.144E-01_JPRB,.138E-01_JPRB,&
+&.177E-01_JPRB,.237E-01_JPRB,.330E-01_JPRB,.383E-01_JPRB,.215E-01_JPRB,.237E-01_JPRB,.318E-01_JPRB,&
+&.129E-01_JPRB,.896E-02_JPRB,.138E-01_JPRB,.802E-02_JPRB,.134E-01_JPRB,.135E-01_JPRB,.133E-01_JPRB,&
+&.125E-01_JPRB,.129E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.141E-01_JPRB,.151E-01_JPRB,.162E-01_JPRB,&
+&.159E-01_JPRB,.175E-01_JPRB,.214E-01_JPRB,.237E-01_JPRB,.145E-01_JPRB,.142E-01_JPRB,.143E-01_JPRB,&
+&.161E-01_JPRB,.108E-01_JPRB,.904E-02_JPRB,.135E-01_JPRB,.156E-01_JPRB,.195E-01_JPRB,.222E-01_JPRB,&
+&.240E-01_JPRB,.201E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 19  18.0
+ZAER (:,19, 4) = (/&
+&.189E-01_JPRB,.166E-01_JPRB,.162E-01_JPRB,.151E-01_JPRB,.158E-01_JPRB,.166E-01_JPRB,.179E-01_JPRB,&
+&.184E-01_JPRB,.181E-01_JPRB,.177E-01_JPRB,.174E-01_JPRB,.169E-01_JPRB,.146E-01_JPRB,.133E-01_JPRB,&
+&.132E-01_JPRB,.127E-01_JPRB,.134E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.155E-01_JPRB,.336E-01_JPRB,&
+&.714E-01_JPRB,.153E-01_JPRB,.115E-01_JPRB,.134E-01_JPRB,.144E-01_JPRB,.155E-01_JPRB,.121E-01_JPRB,&
+&.101E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,.150E-01_JPRB,.153E-01_JPRB,.157E-01_JPRB,.174E-01_JPRB,&
+&.206E-01_JPRB,.274E-01_JPRB,.336E-01_JPRB,.314E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,.186E-01_JPRB,&
+&.986E-02_JPRB,.886E-02_JPRB,.134E-01_JPRB,.818E-02_JPRB,.132E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,&
+&.131E-01_JPRB,.142E-01_JPRB,.154E-01_JPRB,.156E-01_JPRB,.170E-01_JPRB,.191E-01_JPRB,.204E-01_JPRB,&
+&.203E-01_JPRB,.226E-01_JPRB,.233E-01_JPRB,.274E-01_JPRB,.273E-01_JPRB,.167E-01_JPRB,.175E-01_JPRB,&
+&.150E-01_JPRB,.101E-01_JPRB,.914E-02_JPRB,.188E-01_JPRB,.251E-01_JPRB,.327E-01_JPRB,.438E-01_JPRB,&
+&.420E-01_JPRB,.242E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 20  14.0
+ZAER (:,20, 4) = (/&
+&.203E-01_JPRB,.190E-01_JPRB,.190E-01_JPRB,.184E-01_JPRB,.193E-01_JPRB,.204E-01_JPRB,.208E-01_JPRB,&
+&.208E-01_JPRB,.213E-01_JPRB,.212E-01_JPRB,.214E-01_JPRB,.214E-01_JPRB,.205E-01_JPRB,.177E-01_JPRB,&
+&.168E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,.153E-01_JPRB,.172E-01_JPRB,.273E-01_JPRB,.458E-01_JPRB,&
+&.151E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.123E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,&
+&.101E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,.174E-01_JPRB,.181E-01_JPRB,&
+&.202E-01_JPRB,.277E-01_JPRB,.286E-01_JPRB,.230E-01_JPRB,.131E-01_JPRB,.143E-01_JPRB,.213E-01_JPRB,&
+&.111E-01_JPRB,.844E-02_JPRB,.782E-02_JPRB,.137E-01_JPRB,.132E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,&
+&.138E-01_JPRB,.146E-01_JPRB,.162E-01_JPRB,.186E-01_JPRB,.218E-01_JPRB,.248E-01_JPRB,.275E-01_JPRB,&
+&.290E-01_JPRB,.289E-01_JPRB,.249E-01_JPRB,.235E-01_JPRB,.280E-01_JPRB,.259E-01_JPRB,.144E-01_JPRB,&
+&.990E-02_JPRB,.187E-01_JPRB,.199E-01_JPRB,.232E-01_JPRB,.315E-01_JPRB,.384E-01_JPRB,.471E-01_JPRB,&
+&.319E-01_JPRB,.243E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 21  10.0
+ZAER (:,21, 4) = (/&
+&.222E-01_JPRB,.218E-01_JPRB,.222E-01_JPRB,.228E-01_JPRB,.235E-01_JPRB,.243E-01_JPRB,.244E-01_JPRB,&
+&.248E-01_JPRB,.255E-01_JPRB,.264E-01_JPRB,.273E-01_JPRB,.281E-01_JPRB,.280E-01_JPRB,.273E-01_JPRB,&
+&.263E-01_JPRB,.228E-01_JPRB,.210E-01_JPRB,.224E-01_JPRB,.288E-01_JPRB,.380E-01_JPRB,.374E-01_JPRB,&
+&.129E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.109E-01_JPRB,&
+&.104E-01_JPRB,.154E-01_JPRB,.163E-01_JPRB,.172E-01_JPRB,.175E-01_JPRB,.186E-01_JPRB,.203E-01_JPRB,&
+&.213E-01_JPRB,.230E-01_JPRB,.224E-01_JPRB,.199E-01_JPRB,.122E-01_JPRB,.181E-01_JPRB,.201E-01_JPRB,&
+&.104E-01_JPRB,.771E-02_JPRB,.128E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,.133E-01_JPRB,&
+&.141E-01_JPRB,.152E-01_JPRB,.176E-01_JPRB,.210E-01_JPRB,.254E-01_JPRB,.296E-01_JPRB,.339E-01_JPRB,&
+&.395E-01_JPRB,.412E-01_JPRB,.331E-01_JPRB,.206E-01_JPRB,.232E-01_JPRB,.186E-01_JPRB,.211E-01_JPRB,&
+&.257E-01_JPRB,.293E-01_JPRB,.316E-01_JPRB,.306E-01_JPRB,.350E-01_JPRB,.377E-01_JPRB,.360E-01_JPRB,&
+&.273E-01_JPRB,.237E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 22   6.0
+ZAER (:,22, 4) = (/&
+&.248E-01_JPRB,.244E-01_JPRB,.253E-01_JPRB,.259E-01_JPRB,.272E-01_JPRB,.279E-01_JPRB,.282E-01_JPRB,&
+&.287E-01_JPRB,.299E-01_JPRB,.305E-01_JPRB,.315E-01_JPRB,.325E-01_JPRB,.328E-01_JPRB,.332E-01_JPRB,&
+&.313E-01_JPRB,.308E-01_JPRB,.302E-01_JPRB,.317E-01_JPRB,.355E-01_JPRB,.369E-01_JPRB,.171E-01_JPRB,&
+&.129E-01_JPRB,.120E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.129E-01_JPRB,.131E-01_JPRB,.114E-01_JPRB,&
+&.104E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.176E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,.184E-01_JPRB,&
+&.192E-01_JPRB,.197E-01_JPRB,.191E-01_JPRB,.204E-01_JPRB,.121E-01_JPRB,.150E-01_JPRB,.140E-01_JPRB,&
+&.106E-01_JPRB,.844E-02_JPRB,.131E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,&
+&.144E-01_JPRB,.160E-01_JPRB,.185E-01_JPRB,.224E-01_JPRB,.275E-01_JPRB,.321E-01_JPRB,.379E-01_JPRB,&
+&.442E-01_JPRB,.530E-01_JPRB,.320E-01_JPRB,.260E-01_JPRB,.252E-01_JPRB,.237E-01_JPRB,.286E-01_JPRB,&
+&.331E-01_JPRB,.209E-01_JPRB,.214E-01_JPRB,.415E-01_JPRB,.374E-01_JPRB,.341E-01_JPRB,.291E-01_JPRB,&
+&.263E-01_JPRB,.250E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 23   2.0
+ZAER (:,23, 4) = (/&
+&.290E-01_JPRB,.289E-01_JPRB,.294E-01_JPRB,.302E-01_JPRB,.315E-01_JPRB,.322E-01_JPRB,.329E-01_JPRB,&
+&.344E-01_JPRB,.359E-01_JPRB,.364E-01_JPRB,.369E-01_JPRB,.375E-01_JPRB,.373E-01_JPRB,.385E-01_JPRB,&
+&.370E-01_JPRB,.382E-01_JPRB,.365E-01_JPRB,.375E-01_JPRB,.387E-01_JPRB,.417E-01_JPRB,.215E-01_JPRB,&
+&.144E-01_JPRB,.129E-01_JPRB,.138E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,&
+&.185E-01_JPRB,.193E-01_JPRB,.189E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,.178E-01_JPRB,&
+&.182E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,.144E-01_JPRB,.166E-01_JPRB,&
+&.124E-01_JPRB,.930E-02_JPRB,.858E-02_JPRB,.133E-01_JPRB,.134E-01_JPRB,.133E-01_JPRB,.137E-01_JPRB,&
+&.145E-01_JPRB,.161E-01_JPRB,.191E-01_JPRB,.230E-01_JPRB,.273E-01_JPRB,.321E-01_JPRB,.352E-01_JPRB,&
+&.393E-01_JPRB,.226E-01_JPRB,.304E-01_JPRB,.176E-01_JPRB,.281E-01_JPRB,.285E-01_JPRB,.298E-01_JPRB,&
+&.184E-01_JPRB,.370E-01_JPRB,.359E-01_JPRB,.357E-01_JPRB,.324E-01_JPRB,.304E-01_JPRB,.291E-01_JPRB,&
+&.286E-01_JPRB,.282E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 24  -2.0
+ZAER (:,24, 4) = (/&
+&.312E-01_JPRB,.328E-01_JPRB,.344E-01_JPRB,.352E-01_JPRB,.373E-01_JPRB,.379E-01_JPRB,.394E-01_JPRB,&
+&.401E-01_JPRB,.405E-01_JPRB,.416E-01_JPRB,.425E-01_JPRB,.455E-01_JPRB,.451E-01_JPRB,.457E-01_JPRB,&
+&.443E-01_JPRB,.433E-01_JPRB,.410E-01_JPRB,.411E-01_JPRB,.382E-01_JPRB,.396E-01_JPRB,.333E-01_JPRB,&
+&.154E-01_JPRB,.145E-01_JPRB,.153E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.251E-01_JPRB,.239E-01_JPRB,&
+&.233E-01_JPRB,.235E-01_JPRB,.222E-01_JPRB,.224E-01_JPRB,.215E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,&
+&.199E-01_JPRB,.192E-01_JPRB,.199E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,&
+&.110E-01_JPRB,.945E-02_JPRB,.977E-02_JPRB,.914E-02_JPRB,.147E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,&
+&.152E-01_JPRB,.165E-01_JPRB,.192E-01_JPRB,.216E-01_JPRB,.251E-01_JPRB,.277E-01_JPRB,.312E-01_JPRB,&
+&.194E-01_JPRB,.306E-01_JPRB,.318E-01_JPRB,.191E-01_JPRB,.426E-01_JPRB,.426E-01_JPRB,.244E-01_JPRB,&
+&.280E-01_JPRB,.283E-01_JPRB,.273E-01_JPRB,.284E-01_JPRB,.278E-01_JPRB,.283E-01_JPRB,.289E-01_JPRB,&
+&.295E-01_JPRB,.296E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 25  -6.0
+ZAER (:,25, 4) = (/&
+&.314E-01_JPRB,.332E-01_JPRB,.349E-01_JPRB,.361E-01_JPRB,.381E-01_JPRB,.392E-01_JPRB,.395E-01_JPRB,&
+&.403E-01_JPRB,.413E-01_JPRB,.413E-01_JPRB,.426E-01_JPRB,.446E-01_JPRB,.452E-01_JPRB,.464E-01_JPRB,&
+&.460E-01_JPRB,.455E-01_JPRB,.459E-01_JPRB,.462E-01_JPRB,.462E-01_JPRB,.439E-01_JPRB,.408E-01_JPRB,&
+&.195E-01_JPRB,.181E-01_JPRB,.158E-01_JPRB,.162E-01_JPRB,.279E-01_JPRB,.278E-01_JPRB,.296E-01_JPRB,&
+&.305E-01_JPRB,.316E-01_JPRB,.324E-01_JPRB,.330E-01_JPRB,.308E-01_JPRB,.298E-01_JPRB,.151E-01_JPRB,&
+&.143E-01_JPRB,.132E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.118E-01_JPRB,&
+&.119E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.108E-01_JPRB,.187E-01_JPRB,.186E-01_JPRB,.185E-01_JPRB,&
+&.199E-01_JPRB,.221E-01_JPRB,.242E-01_JPRB,.219E-01_JPRB,.217E-01_JPRB,.222E-01_JPRB,.251E-01_JPRB,&
+&.275E-01_JPRB,.298E-01_JPRB,.341E-01_JPRB,.385E-01_JPRB,.434E-01_JPRB,.291E-01_JPRB,.246E-01_JPRB,&
+&.254E-01_JPRB,.251E-01_JPRB,.246E-01_JPRB,.253E-01_JPRB,.257E-01_JPRB,.266E-01_JPRB,.277E-01_JPRB,&
+&.289E-01_JPRB,.301E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 26 -10.0
+ZAER (:,26, 4) = (/&
+&.297E-01_JPRB,.313E-01_JPRB,.328E-01_JPRB,.339E-01_JPRB,.346E-01_JPRB,.350E-01_JPRB,.365E-01_JPRB,&
+&.378E-01_JPRB,.393E-01_JPRB,.399E-01_JPRB,.424E-01_JPRB,.442E-01_JPRB,.458E-01_JPRB,.485E-01_JPRB,&
+&.499E-01_JPRB,.505E-01_JPRB,.516E-01_JPRB,.505E-01_JPRB,.566E-01_JPRB,.458E-01_JPRB,.366E-01_JPRB,&
+&.214E-01_JPRB,.215E-01_JPRB,.159E-01_JPRB,.239E-01_JPRB,.258E-01_JPRB,.265E-01_JPRB,.290E-01_JPRB,&
+&.358E-01_JPRB,.391E-01_JPRB,.398E-01_JPRB,.401E-01_JPRB,.426E-01_JPRB,.410E-01_JPRB,.223E-01_JPRB,&
+&.169E-01_JPRB,.174E-01_JPRB,.161E-01_JPRB,.152E-01_JPRB,.145E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,&
+&.133E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.127E-01_JPRB,.137E-01_JPRB,.233E-01_JPRB,.248E-01_JPRB,&
+&.296E-01_JPRB,.349E-01_JPRB,.347E-01_JPRB,.310E-01_JPRB,.238E-01_JPRB,.206E-01_JPRB,.242E-01_JPRB,&
+&.253E-01_JPRB,.262E-01_JPRB,.303E-01_JPRB,.351E-01_JPRB,.365E-01_JPRB,.265E-01_JPRB,.250E-01_JPRB,&
+&.252E-01_JPRB,.251E-01_JPRB,.239E-01_JPRB,.237E-01_JPRB,.242E-01_JPRB,.252E-01_JPRB,.263E-01_JPRB,&
+&.270E-01_JPRB,.280E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 27 -14.0
+ZAER (:,27, 4) = (/&
+&.236E-01_JPRB,.241E-01_JPRB,.244E-01_JPRB,.263E-01_JPRB,.262E-01_JPRB,.257E-01_JPRB,.268E-01_JPRB,&
+&.283E-01_JPRB,.307E-01_JPRB,.319E-01_JPRB,.355E-01_JPRB,.398E-01_JPRB,.457E-01_JPRB,.508E-01_JPRB,&
+&.531E-01_JPRB,.568E-01_JPRB,.556E-01_JPRB,.597E-01_JPRB,.313E-01_JPRB,.201E-01_JPRB,.309E-01_JPRB,&
+&.335E-01_JPRB,.330E-01_JPRB,.274E-01_JPRB,.242E-01_JPRB,.245E-01_JPRB,.241E-01_JPRB,.265E-01_JPRB,&
+&.321E-01_JPRB,.345E-01_JPRB,.350E-01_JPRB,.336E-01_JPRB,.414E-01_JPRB,.238E-01_JPRB,.230E-01_JPRB,&
+&.176E-01_JPRB,.169E-01_JPRB,.169E-01_JPRB,.146E-01_JPRB,.151E-01_JPRB,.158E-01_JPRB,.151E-01_JPRB,&
+&.162E-01_JPRB,.201E-01_JPRB,.213E-01_JPRB,.199E-01_JPRB,.321E-01_JPRB,.307E-01_JPRB,.287E-01_JPRB,&
+&.412E-01_JPRB,.498E-01_JPRB,.280E-01_JPRB,.487E-01_JPRB,.442E-01_JPRB,.290E-01_JPRB,.289E-01_JPRB,&
+&.167E-01_JPRB,.157E-01_JPRB,.278E-01_JPRB,.320E-01_JPRB,.327E-01_JPRB,.238E-01_JPRB,.250E-01_JPRB,&
+&.260E-01_JPRB,.266E-01_JPRB,.240E-01_JPRB,.223E-01_JPRB,.222E-01_JPRB,.223E-01_JPRB,.235E-01_JPRB,&
+&.238E-01_JPRB,.243E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 28 -18.0
+ZAER (:,28, 4) = (/&
+&.182E-01_JPRB,.162E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,.195E-01_JPRB,.144E-01_JPRB,.151E-01_JPRB,&
+&.160E-01_JPRB,.168E-01_JPRB,.193E-01_JPRB,.215E-01_JPRB,.268E-01_JPRB,.353E-01_JPRB,.437E-01_JPRB,&
+&.529E-01_JPRB,.666E-01_JPRB,.319E-01_JPRB,.277E-01_JPRB,.223E-01_JPRB,.303E-01_JPRB,.286E-01_JPRB,&
+&.277E-01_JPRB,.291E-01_JPRB,.251E-01_JPRB,.227E-01_JPRB,.230E-01_JPRB,.218E-01_JPRB,.231E-01_JPRB,&
+&.279E-01_JPRB,.291E-01_JPRB,.310E-01_JPRB,.314E-01_JPRB,.337E-01_JPRB,.204E-01_JPRB,.210E-01_JPRB,&
+&.176E-01_JPRB,.152E-01_JPRB,.140E-01_JPRB,.150E-01_JPRB,.146E-01_JPRB,.158E-01_JPRB,.184E-01_JPRB,&
+&.214E-01_JPRB,.298E-01_JPRB,.567E-01_JPRB,.268E-01_JPRB,.243E-01_JPRB,.217E-01_JPRB,.314E-01_JPRB,&
+&.388E-01_JPRB,.435E-01_JPRB,.339E-01_JPRB,.441E-01_JPRB,.707E-01_JPRB,.477E-01_JPRB,.245E-01_JPRB,&
+&.203E-01_JPRB,.186E-01_JPRB,.335E-01_JPRB,.296E-01_JPRB,.242E-01_JPRB,.220E-01_JPRB,.243E-01_JPRB,&
+&.264E-01_JPRB,.285E-01_JPRB,.257E-01_JPRB,.209E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,&
+&.189E-01_JPRB,.195E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 29 -22.0
+ZAER (:,29, 4) = (/&
+&.163E-01_JPRB,.167E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.144E-01_JPRB,.116E-01_JPRB,.115E-01_JPRB,&
+&.112E-01_JPRB,.109E-01_JPRB,.119E-01_JPRB,.136E-01_JPRB,.167E-01_JPRB,.209E-01_JPRB,.292E-01_JPRB,&
+&.493E-01_JPRB,.385E-01_JPRB,.360E-01_JPRB,.495E-01_JPRB,.411E-01_JPRB,.343E-01_JPRB,.274E-01_JPRB,&
+&.253E-01_JPRB,.229E-01_JPRB,.202E-01_JPRB,.197E-01_JPRB,.202E-01_JPRB,.198E-01_JPRB,.224E-01_JPRB,&
+&.247E-01_JPRB,.241E-01_JPRB,.251E-01_JPRB,.271E-01_JPRB,.275E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,&
+&.137E-01_JPRB,.143E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.164E-01_JPRB,.180E-01_JPRB,.231E-01_JPRB,&
+&.265E-01_JPRB,.352E-01_JPRB,.370E-01_JPRB,.401E-01_JPRB,.283E-01_JPRB,.303E-01_JPRB,.485E-01_JPRB,&
+&.484E-01_JPRB,.254E-01_JPRB,.344E-01_JPRB,.552E-01_JPRB,.508E-01_JPRB,.370E-01_JPRB,.288E-01_JPRB,&
+&.253E-01_JPRB,.262E-01_JPRB,.267E-01_JPRB,.442E-01_JPRB,.254E-01_JPRB,.205E-01_JPRB,.224E-01_JPRB,&
+&.251E-01_JPRB,.281E-01_JPRB,.257E-01_JPRB,.209E-01_JPRB,.183E-01_JPRB,.169E-01_JPRB,.162E-01_JPRB,&
+&.156E-01_JPRB,.157E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 30 -26.0
+ZAER (:,30, 4) = (/&
+&.171E-01_JPRB,.162E-01_JPRB,.148E-01_JPRB,.134E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,&
+&.103E-01_JPRB,.971E-02_JPRB,.995E-02_JPRB,.103E-01_JPRB,.116E-01_JPRB,.138E-01_JPRB,.223E-01_JPRB,&
+&.245E-01_JPRB,.294E-01_JPRB,.429E-01_JPRB,.597E-01_JPRB,.434E-01_JPRB,.378E-01_JPRB,.314E-01_JPRB,&
+&.265E-01_JPRB,.219E-01_JPRB,.188E-01_JPRB,.170E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,.180E-01_JPRB,&
+&.204E-01_JPRB,.180E-01_JPRB,.168E-01_JPRB,.183E-01_JPRB,.212E-01_JPRB,.196E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.142E-01_JPRB,.178E-01_JPRB,.186E-01_JPRB,.216E-01_JPRB,&
+&.312E-01_JPRB,.385E-01_JPRB,.404E-01_JPRB,.423E-01_JPRB,.411E-01_JPRB,.736E-01_JPRB,.388E-01_JPRB,&
+&.338E-01_JPRB,.341E-01_JPRB,.375E-01_JPRB,.451E-01_JPRB,.277E-01_JPRB,.291E-01_JPRB,.250E-01_JPRB,&
+&.228E-01_JPRB,.274E-01_JPRB,.307E-01_JPRB,.264E-01_JPRB,.415E-01_JPRB,.410E-01_JPRB,.322E-01_JPRB,&
+&.355E-01_JPRB,.361E-01_JPRB,.293E-01_JPRB,.238E-01_JPRB,.223E-01_JPRB,.207E-01_JPRB,.204E-01_JPRB,&
+&.196E-01_JPRB,.186E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 31 -30.0
+ZAER (:,31, 4) = (/&
+&.226E-01_JPRB,.224E-01_JPRB,.191E-01_JPRB,.170E-01_JPRB,.160E-01_JPRB,.157E-01_JPRB,.148E-01_JPRB,&
+&.127E-01_JPRB,.114E-01_JPRB,.103E-01_JPRB,.953E-02_JPRB,.101E-01_JPRB,.126E-01_JPRB,.225E-01_JPRB,&
+&.187E-01_JPRB,.216E-01_JPRB,.359E-01_JPRB,.409E-01_JPRB,.359E-01_JPRB,.302E-01_JPRB,.410E-01_JPRB,&
+&.366E-01_JPRB,.268E-01_JPRB,.227E-01_JPRB,.184E-01_JPRB,.152E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,&
+&.169E-01_JPRB,.141E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.159E-01_JPRB,.191E-01_JPRB,.109E-01_JPRB,&
+&.912E-02_JPRB,.104E-01_JPRB,.111E-01_JPRB,.136E-01_JPRB,.165E-01_JPRB,.186E-01_JPRB,.204E-01_JPRB,&
+&.318E-01_JPRB,.402E-01_JPRB,.426E-01_JPRB,.489E-01_JPRB,.514E-01_JPRB,.391E-01_JPRB,.385E-01_JPRB,&
+&.349E-01_JPRB,.354E-01_JPRB,.335E-01_JPRB,.235E-01_JPRB,.119E-01_JPRB,.102E-01_JPRB,.101E-01_JPRB,&
+&.138E-01_JPRB,.323E-01_JPRB,.387E-01_JPRB,.343E-01_JPRB,.349E-01_JPRB,.807E-01_JPRB,.561E-01_JPRB,&
+&.760E-01_JPRB,.581E-01_JPRB,.454E-01_JPRB,.360E-01_JPRB,.302E-01_JPRB,.254E-01_JPRB,.240E-01_JPRB,&
+&.226E-01_JPRB,.211E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 32 -34.0
+ZAER (:,32, 4) = (/&
+&.318E-01_JPRB,.263E-01_JPRB,.232E-01_JPRB,.222E-01_JPRB,.218E-01_JPRB,.211E-01_JPRB,.175E-01_JPRB,&
+&.138E-01_JPRB,.115E-01_JPRB,.968E-02_JPRB,.938E-02_JPRB,.108E-01_JPRB,.128E-01_JPRB,.106E-01_JPRB,&
+&.167E-01_JPRB,.241E-01_JPRB,.331E-01_JPRB,.381E-01_JPRB,.405E-01_JPRB,.376E-01_JPRB,.401E-01_JPRB,&
+&.576E-01_JPRB,.424E-01_JPRB,.303E-01_JPRB,.213E-01_JPRB,.167E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,&
+&.162E-01_JPRB,.140E-01_JPRB,.130E-01_JPRB,.124E-01_JPRB,.133E-01_JPRB,.169E-01_JPRB,.222E-01_JPRB,&
+&.117E-01_JPRB,.123E-01_JPRB,.131E-01_JPRB,.162E-01_JPRB,.359E-01_JPRB,.418E-01_JPRB,.498E-01_JPRB,&
+&.580E-01_JPRB,.776E-01_JPRB,.386E-01_JPRB,.390E-01_JPRB,.402E-01_JPRB,.452E-01_JPRB,.395E-01_JPRB,&
+&.420E-01_JPRB,.283E-01_JPRB,.205E-01_JPRB,.125E-01_JPRB,.943E-02_JPRB,.807E-02_JPRB,.767E-02_JPRB,&
+&.971E-02_JPRB,.279E-01_JPRB,.387E-01_JPRB,.371E-01_JPRB,.401E-01_JPRB,.103E+00_JPRB,.924E-01_JPRB,&
+&.532E-01_JPRB,.793E-01_JPRB,.703E-01_JPRB,.589E-01_JPRB,.453E-01_JPRB,.368E-01_JPRB,.333E-01_JPRB,&
+&.287E-01_JPRB,.272E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 33 -38.0
+ZAER (:,33, 4) = (/&
+&.448E-01_JPRB,.314E-01_JPRB,.276E-01_JPRB,.275E-01_JPRB,.254E-01_JPRB,.214E-01_JPRB,.184E-01_JPRB,&
+&.148E-01_JPRB,.124E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.117E-01_JPRB,.766E-02_JPRB,.895E-02_JPRB,&
+&.118E-01_JPRB,.167E-01_JPRB,.302E-01_JPRB,.505E-01_JPRB,.480E-01_JPRB,.480E-01_JPRB,.494E-01_JPRB,&
+&.710E-01_JPRB,.544E-01_JPRB,.344E-01_JPRB,.242E-01_JPRB,.185E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,&
+&.157E-01_JPRB,.143E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,.156E-01_JPRB,.320E-01_JPRB,&
+&.180E-01_JPRB,.296E-01_JPRB,.368E-01_JPRB,.446E-01_JPRB,.421E-01_JPRB,.483E-01_JPRB,.513E-01_JPRB,&
+&.278E-01_JPRB,.353E-01_JPRB,.350E-01_JPRB,.353E-01_JPRB,.534E-01_JPRB,.523E-01_JPRB,.481E-01_JPRB,&
+&.748E-01_JPRB,.325E-01_JPRB,.208E-01_JPRB,.231E-01_JPRB,.167E-01_JPRB,.118E-01_JPRB,.122E-01_JPRB,&
+&.136E-01_JPRB,.195E-01_JPRB,.306E-01_JPRB,.376E-01_JPRB,.680E-01_JPRB,.808E-01_JPRB,.899E-01_JPRB,&
+&.906E-01_JPRB,.471E-01_JPRB,.735E-01_JPRB,.657E-01_JPRB,.563E-01_JPRB,.467E-01_JPRB,.409E-01_JPRB,&
+&.405E-01_JPRB,.471E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 34 -42.0
+ZAER (:,34, 4) = (/&
+&.418E-01_JPRB,.310E-01_JPRB,.291E-01_JPRB,.299E-01_JPRB,.239E-01_JPRB,.188E-01_JPRB,.170E-01_JPRB,&
+&.167E-01_JPRB,.139E-01_JPRB,.120E-01_JPRB,.110E-01_JPRB,.131E-01_JPRB,.766E-02_JPRB,.864E-02_JPRB,&
+&.105E-01_JPRB,.141E-01_JPRB,.288E-01_JPRB,.567E-01_JPRB,.599E-01_JPRB,.554E-01_JPRB,.547E-01_JPRB,&
+&.431E-01_JPRB,.690E-01_JPRB,.527E-01_JPRB,.339E-01_JPRB,.240E-01_JPRB,.191E-01_JPRB,.158E-01_JPRB,&
+&.140E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,.127E-01_JPRB,.110E-01_JPRB,.119E-01_JPRB,.230E-01_JPRB,&
+&.218E-01_JPRB,.214E-01_JPRB,.553E-01_JPRB,.718E-01_JPRB,.785E-01_JPRB,.465E-01_JPRB,.526E-01_JPRB,&
+&.806E-01_JPRB,.755E-01_JPRB,.458E-01_JPRB,.459E-01_JPRB,.900E-01_JPRB,.506E-01_JPRB,.471E-01_JPRB,&
+&.611E-01_JPRB,.628E-01_JPRB,.525E-01_JPRB,.311E-01_JPRB,.346E-01_JPRB,.330E-01_JPRB,.272E-01_JPRB,&
+&.231E-01_JPRB,.214E-01_JPRB,.223E-01_JPRB,.286E-01_JPRB,.458E-01_JPRB,.552E-01_JPRB,.626E-01_JPRB,&
+&.108E+00_JPRB,.891E-01_JPRB,.787E-01_JPRB,.685E-01_JPRB,.595E-01_JPRB,.514E-01_JPRB,.462E-01_JPRB,&
+&.420E-01_JPRB,.407E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 35 -46.0
+ZAER (:,35, 4) = (/&
+&.318E-01_JPRB,.319E-01_JPRB,.316E-01_JPRB,.345E-01_JPRB,.280E-01_JPRB,.204E-01_JPRB,.167E-01_JPRB,&
+&.173E-01_JPRB,.162E-01_JPRB,.134E-01_JPRB,.126E-01_JPRB,.155E-01_JPRB,.885E-02_JPRB,.839E-02_JPRB,&
+&.106E-01_JPRB,.179E-01_JPRB,.305E-01_JPRB,.457E-01_JPRB,.477E-01_JPRB,.430E-01_JPRB,.450E-01_JPRB,&
+&.445E-01_JPRB,.357E-01_JPRB,.274E-01_JPRB,.402E-01_JPRB,.260E-01_JPRB,.188E-01_JPRB,.149E-01_JPRB,&
+&.120E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.983E-02_JPRB,.950E-02_JPRB,.113E-01_JPRB,&
+&.220E-01_JPRB,.193E-01_JPRB,.409E-01_JPRB,.608E-01_JPRB,.671E-01_JPRB,.679E-01_JPRB,.717E-01_JPRB,&
+&.770E-01_JPRB,.674E-01_JPRB,.667E-01_JPRB,.533E-01_JPRB,.822E-01_JPRB,.567E-01_JPRB,.536E-01_JPRB,&
+&.565E-01_JPRB,.758E-01_JPRB,.849E-01_JPRB,.734E-01_JPRB,.637E-01_JPRB,.374E-01_JPRB,.285E-01_JPRB,&
+&.245E-01_JPRB,.249E-01_JPRB,.277E-01_JPRB,.337E-01_JPRB,.440E-01_JPRB,.532E-01_JPRB,.558E-01_JPRB,&
+&.466E-01_JPRB,.607E-01_JPRB,.549E-01_JPRB,.484E-01_JPRB,.448E-01_JPRB,.433E-01_JPRB,.394E-01_JPRB,&
+&.371E-01_JPRB,.330E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 36 -50.0
+ZAER (:,36, 4) = (/&
+&.284E-01_JPRB,.295E-01_JPRB,.302E-01_JPRB,.332E-01_JPRB,.307E-01_JPRB,.236E-01_JPRB,.213E-01_JPRB,&
+&.184E-01_JPRB,.151E-01_JPRB,.141E-01_JPRB,.146E-01_JPRB,.904E-02_JPRB,.109E-01_JPRB,.111E-01_JPRB,&
+&.131E-01_JPRB,.199E-01_JPRB,.308E-01_JPRB,.274E-01_JPRB,.221E-01_JPRB,.254E-01_JPRB,.249E-01_JPRB,&
+&.223E-01_JPRB,.190E-01_JPRB,.172E-01_JPRB,.200E-01_JPRB,.145E-01_JPRB,.117E-01_JPRB,.900E-02_JPRB,&
+&.800E-02_JPRB,.781E-02_JPRB,.839E-02_JPRB,.799E-02_JPRB,.719E-02_JPRB,.729E-02_JPRB,.984E-02_JPRB,&
+&.222E-01_JPRB,.293E-01_JPRB,.553E-01_JPRB,.738E-01_JPRB,.832E-01_JPRB,.843E-01_JPRB,.886E-01_JPRB,&
+&.741E-01_JPRB,.896E-01_JPRB,.767E-01_JPRB,.660E-01_JPRB,.564E-01_JPRB,.536E-01_JPRB,.584E-01_JPRB,&
+&.586E-01_JPRB,.787E-01_JPRB,.864E-01_JPRB,.929E-01_JPRB,.601E-01_JPRB,.459E-01_JPRB,.420E-01_JPRB,&
+&.350E-01_JPRB,.330E-01_JPRB,.282E-01_JPRB,.280E-01_JPRB,.309E-01_JPRB,.334E-01_JPRB,.327E-01_JPRB,&
+&.268E-01_JPRB,.209E-01_JPRB,.323E-01_JPRB,.322E-01_JPRB,.303E-01_JPRB,.326E-01_JPRB,.314E-01_JPRB,&
+&.296E-01_JPRB,.266E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 37 -54.0
+ZAER (:,37, 4) = (/&
+&.227E-01_JPRB,.222E-01_JPRB,.235E-01_JPRB,.277E-01_JPRB,.316E-01_JPRB,.240E-01_JPRB,.221E-01_JPRB,&
+&.261E-01_JPRB,.252E-01_JPRB,.202E-01_JPRB,.108E-01_JPRB,.938E-02_JPRB,.112E-01_JPRB,.134E-01_JPRB,&
+&.138E-01_JPRB,.161E-01_JPRB,.198E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,.162E-01_JPRB,.289E-01_JPRB,&
+&.136E-01_JPRB,.107E-01_JPRB,.962E-02_JPRB,.728E-02_JPRB,.111E-01_JPRB,.964E-02_JPRB,.741E-02_JPRB,&
+&.668E-02_JPRB,.655E-02_JPRB,.710E-02_JPRB,.739E-02_JPRB,.726E-02_JPRB,.796E-02_JPRB,.153E-01_JPRB,&
+&.235E-01_JPRB,.691E-01_JPRB,.121E+00_JPRB,.865E-01_JPRB,.121E+00_JPRB,.930E-01_JPRB,.917E-01_JPRB,&
+&.691E-01_JPRB,.767E-01_JPRB,.659E-01_JPRB,.712E-01_JPRB,.663E-01_JPRB,.653E-01_JPRB,.638E-01_JPRB,&
+&.589E-01_JPRB,.638E-01_JPRB,.686E-01_JPRB,.816E-01_JPRB,.713E-01_JPRB,.665E-01_JPRB,.553E-01_JPRB,&
+&.416E-01_JPRB,.376E-01_JPRB,.327E-01_JPRB,.298E-01_JPRB,.271E-01_JPRB,.247E-01_JPRB,.228E-01_JPRB,&
+&.181E-01_JPRB,.239E-01_JPRB,.180E-01_JPRB,.179E-01_JPRB,.240E-01_JPRB,.160E-01_JPRB,.266E-01_JPRB,&
+&.245E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 38 -58.0
+ZAER (:,38, 4) = (/&
+&.174E-01_JPRB,.184E-01_JPRB,.202E-01_JPRB,.227E-01_JPRB,.299E-01_JPRB,.320E-01_JPRB,.335E-01_JPRB,&
+&.281E-01_JPRB,.198E-01_JPRB,.103E-01_JPRB,.917E-02_JPRB,.831E-02_JPRB,.897E-02_JPRB,.117E-01_JPRB,&
+&.129E-01_JPRB,.138E-01_JPRB,.172E-01_JPRB,.138E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,.246E-01_JPRB,&
+&.120E-01_JPRB,.102E-01_JPRB,.827E-02_JPRB,.110E-01_JPRB,.108E-01_JPRB,.936E-02_JPRB,.929E-02_JPRB,&
+&.846E-02_JPRB,.801E-02_JPRB,.761E-02_JPRB,.790E-02_JPRB,.930E-02_JPRB,.133E-01_JPRB,.276E-01_JPRB,&
+&.608E-01_JPRB,.957E-01_JPRB,.111E+00_JPRB,.835E-01_JPRB,.100E+00_JPRB,.121E+00_JPRB,.590E-01_JPRB,&
+&.557E-01_JPRB,.611E-01_JPRB,.531E-01_JPRB,.593E-01_JPRB,.629E-01_JPRB,.689E-01_JPRB,.713E-01_JPRB,&
+&.708E-01_JPRB,.578E-01_JPRB,.536E-01_JPRB,.588E-01_JPRB,.605E-01_JPRB,.684E-01_JPRB,.667E-01_JPRB,&
+&.566E-01_JPRB,.489E-01_JPRB,.396E-01_JPRB,.316E-01_JPRB,.246E-01_JPRB,.208E-01_JPRB,.173E-01_JPRB,&
+&.128E-01_JPRB,.101E-01_JPRB,.172E-01_JPRB,.227E-01_JPRB,.256E-01_JPRB,.150E-01_JPRB,.246E-01_JPRB,&
+&.223E-01_JPRB,.197E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 39 -62.0
+ZAER (:,39, 4) = (/&
+&.201E-01_JPRB,.192E-01_JPRB,.190E-01_JPRB,.204E-01_JPRB,.150E-01_JPRB,.176E-01_JPRB,.128E-01_JPRB,&
+&.832E-02_JPRB,.637E-02_JPRB,.644E-02_JPRB,.671E-02_JPRB,.754E-02_JPRB,.942E-02_JPRB,.122E-01_JPRB,&
+&.115E-01_JPRB,.122E-01_JPRB,.135E-01_JPRB,.129E-01_JPRB,.191E-01_JPRB,.204E-01_JPRB,.226E-01_JPRB,&
+&.110E-01_JPRB,.146E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,.119E-01_JPRB,.930E-02_JPRB,.563E-02_JPRB,&
+&.109E-01_JPRB,.107E-01_JPRB,.955E-02_JPRB,.936E-02_JPRB,.112E-01_JPRB,.212E-01_JPRB,.315E-01_JPRB,&
+&.513E-01_JPRB,.780E-01_JPRB,.929E-01_JPRB,.533E-01_JPRB,.583E-01_JPRB,.939E-01_JPRB,.479E-01_JPRB,&
+&.520E-01_JPRB,.542E-01_JPRB,.519E-01_JPRB,.479E-01_JPRB,.494E-01_JPRB,.549E-01_JPRB,.554E-01_JPRB,&
+&.519E-01_JPRB,.484E-01_JPRB,.437E-01_JPRB,.395E-01_JPRB,.373E-01_JPRB,.409E-01_JPRB,.492E-01_JPRB,&
+&.429E-01_JPRB,.344E-01_JPRB,.277E-01_JPRB,.214E-01_JPRB,.184E-01_JPRB,.168E-01_JPRB,.130E-01_JPRB,&
+&.100E-01_JPRB,.871E-02_JPRB,.972E-02_JPRB,.121E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.135E-01_JPRB,&
+&.129E-01_JPRB,.214E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 40 -66.0
+ZAER (:,40, 4) = (/&
+&.116E-01_JPRB,.103E-01_JPRB,.167E-01_JPRB,.182E-01_JPRB,.120E-01_JPRB,.130E-01_JPRB,.130E-01_JPRB,&
+&.103E-01_JPRB,.870E-02_JPRB,.715E-02_JPRB,.689E-02_JPRB,.758E-02_JPRB,.913E-02_JPRB,.109E-01_JPRB,&
+&.113E-01_JPRB,.127E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.192E-01_JPRB,&
+&.955E-02_JPRB,.880E-02_JPRB,.929E-02_JPRB,.146E-01_JPRB,.124E-01_JPRB,.581E-02_JPRB,.501E-02_JPRB,&
+&.534E-02_JPRB,.117E-01_JPRB,.144E-01_JPRB,.130E-01_JPRB,.116E-01_JPRB,.176E-01_JPRB,.254E-01_JPRB,&
+&.311E-01_JPRB,.382E-01_JPRB,.356E-01_JPRB,.412E-01_JPRB,.275E-01_JPRB,.365E-01_JPRB,.419E-01_JPRB,&
+&.402E-01_JPRB,.419E-01_JPRB,.396E-01_JPRB,.398E-01_JPRB,.417E-01_JPRB,.423E-01_JPRB,.403E-01_JPRB,&
+&.360E-01_JPRB,.369E-01_JPRB,.392E-01_JPRB,.425E-01_JPRB,.400E-01_JPRB,.360E-01_JPRB,.389E-01_JPRB,&
+&.355E-01_JPRB,.301E-01_JPRB,.261E-01_JPRB,.192E-01_JPRB,.146E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,&
+&.111E-01_JPRB,.940E-02_JPRB,.950E-02_JPRB,.106E-01_JPRB,.118E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,&
+&.137E-01_JPRB,.129E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 41 -70.0
+ZAER (:,41, 4) = (/&
+&.187E-01_JPRB,.185E-01_JPRB,.173E-01_JPRB,.178E-01_JPRB,.109E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,&
+&.105E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,.911E-02_JPRB,.150E-01_JPRB,.179E-01_JPRB,.111E-01_JPRB,&
+&.115E-01_JPRB,.135E-01_JPRB,.243E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,&
+&.114E-01_JPRB,.994E-02_JPRB,.162E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,.753E-02_JPRB,.525E-02_JPRB,&
+&.493E-02_JPRB,.502E-02_JPRB,.692E-02_JPRB,.942E-02_JPRB,.189E-01_JPRB,.166E-01_JPRB,.170E-01_JPRB,&
+&.226E-01_JPRB,.236E-01_JPRB,.234E-01_JPRB,.291E-01_JPRB,.375E-01_JPRB,.414E-01_JPRB,.274E-01_JPRB,&
+&.275E-01_JPRB,.451E-01_JPRB,.454E-01_JPRB,.495E-01_JPRB,.525E-01_JPRB,.562E-01_JPRB,.559E-01_JPRB,&
+&.499E-01_JPRB,.313E-01_JPRB,.374E-01_JPRB,.433E-01_JPRB,.433E-01_JPRB,.330E-01_JPRB,.320E-01_JPRB,&
+&.268E-01_JPRB,.259E-01_JPRB,.233E-01_JPRB,.203E-01_JPRB,.134E-01_JPRB,.114E-01_JPRB,.119E-01_JPRB,&
+&.112E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.117E-01_JPRB,.134E-01_JPRB,.149E-01_JPRB,&
+&.222E-01_JPRB,.116E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 42 -74.0
+ZAER (:,42, 4) = (/&
+&.170E-01_JPRB,.170E-01_JPRB,.170E-01_JPRB,.175E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,&
+&.183E-01_JPRB,.191E-01_JPRB,.186E-01_JPRB,.189E-01_JPRB,.193E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,&
+&.201E-01_JPRB,.212E-01_JPRB,.213E-01_JPRB,.189E-01_JPRB,.168E-01_JPRB,.100E-01_JPRB,.163E-01_JPRB,&
+&.166E-01_JPRB,.170E-01_JPRB,.165E-01_JPRB,.155E-01_JPRB,.901E-02_JPRB,.744E-02_JPRB,.636E-02_JPRB,&
+&.601E-02_JPRB,.590E-02_JPRB,.651E-02_JPRB,.847E-02_JPRB,.203E-01_JPRB,.230E-01_JPRB,.217E-01_JPRB,&
+&.214E-01_JPRB,.221E-01_JPRB,.225E-01_JPRB,.228E-01_JPRB,.252E-01_JPRB,.274E-01_JPRB,.314E-01_JPRB,&
+&.323E-01_JPRB,.323E-01_JPRB,.341E-01_JPRB,.370E-01_JPRB,.356E-01_JPRB,.359E-01_JPRB,.393E-01_JPRB,&
+&.386E-01_JPRB,.417E-01_JPRB,.500E-01_JPRB,.547E-01_JPRB,.333E-01_JPRB,.307E-01_JPRB,.263E-01_JPRB,&
+&.243E-01_JPRB,.236E-01_JPRB,.210E-01_JPRB,.194E-01_JPRB,.285E-01_JPRB,.250E-01_JPRB,.229E-01_JPRB,&
+&.230E-01_JPRB,.250E-01_JPRB,.260E-01_JPRB,.246E-01_JPRB,.226E-01_JPRB,.215E-01_JPRB,.212E-01_JPRB,&
+&.202E-01_JPRB,.180E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 43 -78.0
+ZAER (:,43, 4) = (/&
+&.222E-01_JPRB,.210E-01_JPRB,.201E-01_JPRB,.198E-01_JPRB,.192E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,&
+&.201E-01_JPRB,.211E-01_JPRB,.216E-01_JPRB,.213E-01_JPRB,.218E-01_JPRB,.219E-01_JPRB,.207E-01_JPRB,&
+&.211E-01_JPRB,.225E-01_JPRB,.219E-01_JPRB,.195E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.110E-01_JPRB,&
+&.170E-01_JPRB,.147E-01_JPRB,.930E-02_JPRB,.777E-02_JPRB,.747E-02_JPRB,.783E-02_JPRB,.736E-02_JPRB,&
+&.750E-02_JPRB,.761E-02_JPRB,.918E-02_JPRB,.107E-01_JPRB,.198E-01_JPRB,.257E-01_JPRB,.253E-01_JPRB,&
+&.243E-01_JPRB,.243E-01_JPRB,.255E-01_JPRB,.276E-01_JPRB,.173E-01_JPRB,.290E-01_JPRB,.302E-01_JPRB,&
+&.305E-01_JPRB,.297E-01_JPRB,.302E-01_JPRB,.305E-01_JPRB,.307E-01_JPRB,.310E-01_JPRB,.325E-01_JPRB,&
+&.344E-01_JPRB,.388E-01_JPRB,.437E-01_JPRB,.437E-01_JPRB,.443E-01_JPRB,.450E-01_JPRB,.456E-01_JPRB,&
+&.471E-01_JPRB,.269E-01_JPRB,.424E-01_JPRB,.398E-01_JPRB,.366E-01_JPRB,.326E-01_JPRB,.294E-01_JPRB,&
+&.270E-01_JPRB,.254E-01_JPRB,.235E-01_JPRB,.235E-01_JPRB,.230E-01_JPRB,.224E-01_JPRB,.222E-01_JPRB,&
+&.223E-01_JPRB,.227E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 44 -82.0
+ZAER (:,44, 4) = (/&
+&.220E-01_JPRB,.213E-01_JPRB,.209E-01_JPRB,.203E-01_JPRB,.198E-01_JPRB,.195E-01_JPRB,.196E-01_JPRB,&
+&.203E-01_JPRB,.209E-01_JPRB,.217E-01_JPRB,.225E-01_JPRB,.234E-01_JPRB,.239E-01_JPRB,.240E-01_JPRB,&
+&.240E-01_JPRB,.237E-01_JPRB,.235E-01_JPRB,.232E-01_JPRB,.215E-01_JPRB,.210E-01_JPRB,.125E-01_JPRB,&
+&.122E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,.111E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.126E-01_JPRB,&
+&.133E-01_JPRB,.139E-01_JPRB,.155E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.283E-01_JPRB,.277E-01_JPRB,&
+&.268E-01_JPRB,.266E-01_JPRB,.253E-01_JPRB,.251E-01_JPRB,.254E-01_JPRB,.261E-01_JPRB,.279E-01_JPRB,&
+&.273E-01_JPRB,.246E-01_JPRB,.230E-01_JPRB,.228E-01_JPRB,.238E-01_JPRB,.261E-01_JPRB,.272E-01_JPRB,&
+&.279E-01_JPRB,.287E-01_JPRB,.295E-01_JPRB,.302E-01_JPRB,.310E-01_JPRB,.310E-01_JPRB,.317E-01_JPRB,&
+&.318E-01_JPRB,.310E-01_JPRB,.297E-01_JPRB,.275E-01_JPRB,.244E-01_JPRB,.233E-01_JPRB,.224E-01_JPRB,&
+&.218E-01_JPRB,.213E-01_JPRB,.212E-01_JPRB,.208E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.209E-01_JPRB,&
+&.211E-01_JPRB,.214E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 45 -86.0
+ZAER (:,45, 4) = (/&
+&.218E-01_JPRB,.213E-01_JPRB,.209E-01_JPRB,.208E-01_JPRB,.206E-01_JPRB,.204E-01_JPRB,.203E-01_JPRB,&
+&.202E-01_JPRB,.202E-01_JPRB,.202E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.206E-01_JPRB,.203E-01_JPRB,&
+&.203E-01_JPRB,.203E-01_JPRB,.203E-01_JPRB,.202E-01_JPRB,.203E-01_JPRB,.202E-01_JPRB,.203E-01_JPRB,&
+&.202E-01_JPRB,.205E-01_JPRB,.206E-01_JPRB,.206E-01_JPRB,.206E-01_JPRB,.207E-01_JPRB,.206E-01_JPRB,&
+&.206E-01_JPRB,.205E-01_JPRB,.204E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,.207E-01_JPRB,.209E-01_JPRB,&
+&.208E-01_JPRB,.210E-01_JPRB,.209E-01_JPRB,.209E-01_JPRB,.208E-01_JPRB,.209E-01_JPRB,.208E-01_JPRB,&
+&.208E-01_JPRB,.210E-01_JPRB,.211E-01_JPRB,.210E-01_JPRB,.212E-01_JPRB,.215E-01_JPRB,.213E-01_JPRB,&
+&.212E-01_JPRB,.212E-01_JPRB,.211E-01_JPRB,.210E-01_JPRB,.207E-01_JPRB,.206E-01_JPRB,.205E-01_JPRB,&
+&.203E-01_JPRB,.204E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,.192E-01_JPRB,.191E-01_JPRB,.194E-01_JPRB,&
+&.194E-01_JPRB,.196E-01_JPRB,.197E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,.203E-01_JPRB,.205E-01_JPRB,&
+&.208E-01_JPRB,.211E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  4 --- lat: 46 -90.0
+ZAER (:,46, 4) = (/&
+&.212E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=4   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_04
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_05.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_05.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_05.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_05
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          May
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,5:5)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  5 --- lat:  1  90.0
+ZAER (:, 1, 5) = (/&
+&.204E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,.199E-02_JPRB,&
+&.199E-02_JPRB,.199E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  2  86.0
+ZAER (:, 2, 5) = (/&
+&.260E-02_JPRB,.265E-02_JPRB,.267E-02_JPRB,.269E-02_JPRB,.267E-02_JPRB,.267E-02_JPRB,.266E-02_JPRB,&
+&.265E-02_JPRB,.264E-02_JPRB,.261E-02_JPRB,.259E-02_JPRB,.254E-02_JPRB,.235E-02_JPRB,.231E-02_JPRB,&
+&.227E-02_JPRB,.222E-02_JPRB,.220E-02_JPRB,.219E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.212E-02_JPRB,&
+&.211E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,&
+&.201E-02_JPRB,.204E-02_JPRB,.205E-02_JPRB,.205E-02_JPRB,.207E-02_JPRB,.208E-02_JPRB,.212E-02_JPRB,&
+&.215E-02_JPRB,.195E-02_JPRB,.197E-02_JPRB,.200E-02_JPRB,.204E-02_JPRB,.205E-02_JPRB,.208E-02_JPRB,&
+&.211E-02_JPRB,.214E-02_JPRB,.217E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.224E-02_JPRB,.221E-02_JPRB,&
+&.219E-02_JPRB,.216E-02_JPRB,.213E-02_JPRB,.209E-02_JPRB,.206E-02_JPRB,.204E-02_JPRB,.200E-02_JPRB,&
+&.197E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.191E-02_JPRB,.198E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,&
+&.196E-02_JPRB,.197E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.205E-02_JPRB,.207E-02_JPRB,.212E-02_JPRB,&
+&.216E-02_JPRB,.222E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  3  82.0
+ZAER (:, 3, 5) = (/&
+&.349E-02_JPRB,.367E-02_JPRB,.380E-02_JPRB,.398E-02_JPRB,.408E-02_JPRB,.416E-02_JPRB,.410E-02_JPRB,&
+&.405E-02_JPRB,.398E-02_JPRB,.392E-02_JPRB,.388E-02_JPRB,.381E-02_JPRB,.334E-02_JPRB,.321E-02_JPRB,&
+&.314E-02_JPRB,.306E-02_JPRB,.299E-02_JPRB,.294E-02_JPRB,.273E-02_JPRB,.260E-02_JPRB,.255E-02_JPRB,&
+&.262E-02_JPRB,.271E-02_JPRB,.295E-02_JPRB,.328E-02_JPRB,.326E-02_JPRB,.318E-02_JPRB,.310E-02_JPRB,&
+&.304E-02_JPRB,.297E-02_JPRB,.249E-02_JPRB,.235E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,.232E-02_JPRB,&
+&.246E-02_JPRB,.202E-02_JPRB,.206E-02_JPRB,.211E-02_JPRB,.218E-02_JPRB,.229E-02_JPRB,.239E-02_JPRB,&
+&.218E-02_JPRB,.221E-02_JPRB,.221E-02_JPRB,.222E-02_JPRB,.222E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,&
+&.218E-02_JPRB,.218E-02_JPRB,.222E-02_JPRB,.223E-02_JPRB,.222E-02_JPRB,.233E-02_JPRB,.228E-02_JPRB,&
+&.223E-02_JPRB,.217E-02_JPRB,.212E-02_JPRB,.206E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,.209E-02_JPRB,&
+&.205E-02_JPRB,.203E-02_JPRB,.202E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,.241E-02_JPRB,.253E-02_JPRB,&
+&.266E-02_JPRB,.289E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  4  78.0
+ZAER (:, 4, 5) = (/&
+&.456E-02_JPRB,.483E-02_JPRB,.504E-02_JPRB,.488E-02_JPRB,.468E-02_JPRB,.472E-02_JPRB,.449E-02_JPRB,&
+&.436E-02_JPRB,.435E-02_JPRB,.379E-02_JPRB,.367E-02_JPRB,.372E-02_JPRB,.350E-02_JPRB,.331E-02_JPRB,&
+&.319E-02_JPRB,.319E-02_JPRB,.300E-02_JPRB,.291E-02_JPRB,.291E-02_JPRB,.300E-02_JPRB,.307E-02_JPRB,&
+&.332E-02_JPRB,.335E-02_JPRB,.347E-02_JPRB,.396E-02_JPRB,.413E-02_JPRB,.423E-02_JPRB,.414E-02_JPRB,&
+&.401E-02_JPRB,.385E-02_JPRB,.328E-02_JPRB,.288E-02_JPRB,.259E-02_JPRB,.201E-02_JPRB,.200E-02_JPRB,&
+&.209E-02_JPRB,.199E-02_JPRB,.210E-02_JPRB,.226E-02_JPRB,.225E-02_JPRB,.232E-02_JPRB,.233E-02_JPRB,&
+&.231E-02_JPRB,.228E-02_JPRB,.227E-02_JPRB,.236E-02_JPRB,.229E-02_JPRB,.218E-02_JPRB,.222E-02_JPRB,&
+&.216E-02_JPRB,.216E-02_JPRB,.199E-02_JPRB,.204E-02_JPRB,.207E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,&
+&.205E-02_JPRB,.214E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.218E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,&
+&.218E-02_JPRB,.217E-02_JPRB,.217E-02_JPRB,.232E-02_JPRB,.236E-02_JPRB,.244E-02_JPRB,.332E-02_JPRB,&
+&.368E-02_JPRB,.410E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  5  74.0
+ZAER (:, 5, 5) = (/&
+&.435E-02_JPRB,.468E-02_JPRB,.490E-02_JPRB,.497E-02_JPRB,.491E-02_JPRB,.475E-02_JPRB,.480E-02_JPRB,&
+&.486E-02_JPRB,.484E-02_JPRB,.432E-02_JPRB,.409E-02_JPRB,.401E-02_JPRB,.397E-02_JPRB,.423E-02_JPRB,&
+&.429E-02_JPRB,.398E-02_JPRB,.386E-02_JPRB,.379E-02_JPRB,.354E-02_JPRB,.348E-02_JPRB,.371E-02_JPRB,&
+&.383E-02_JPRB,.370E-02_JPRB,.383E-02_JPRB,.402E-02_JPRB,.454E-02_JPRB,.451E-02_JPRB,.438E-02_JPRB,&
+&.418E-02_JPRB,.409E-02_JPRB,.411E-02_JPRB,.401E-02_JPRB,.351E-02_JPRB,.270E-02_JPRB,.215E-02_JPRB,&
+&.200E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.203E-02_JPRB,.219E-02_JPRB,.225E-02_JPRB,.226E-02_JPRB,&
+&.229E-02_JPRB,.228E-02_JPRB,.231E-02_JPRB,.219E-02_JPRB,.207E-02_JPRB,.210E-02_JPRB,.215E-02_JPRB,&
+&.221E-02_JPRB,.220E-02_JPRB,.207E-02_JPRB,.197E-02_JPRB,.196E-02_JPRB,.199E-02_JPRB,.200E-02_JPRB,&
+&.205E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,.209E-02_JPRB,.208E-02_JPRB,.212E-02_JPRB,.217E-02_JPRB,&
+&.213E-02_JPRB,.216E-02_JPRB,.225E-02_JPRB,.228E-02_JPRB,.236E-02_JPRB,.268E-02_JPRB,.323E-02_JPRB,&
+&.391E-02_JPRB,.433E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  6  70.0
+ZAER (:, 6, 5) = (/&
+&.444E-02_JPRB,.447E-02_JPRB,.467E-02_JPRB,.480E-02_JPRB,.468E-02_JPRB,.445E-02_JPRB,.452E-02_JPRB,&
+&.491E-02_JPRB,.469E-02_JPRB,.444E-02_JPRB,.434E-02_JPRB,.439E-02_JPRB,.443E-02_JPRB,.455E-02_JPRB,&
+&.455E-02_JPRB,.457E-02_JPRB,.448E-02_JPRB,.444E-02_JPRB,.433E-02_JPRB,.404E-02_JPRB,.430E-02_JPRB,&
+&.451E-02_JPRB,.414E-02_JPRB,.401E-02_JPRB,.432E-02_JPRB,.445E-02_JPRB,.423E-02_JPRB,.418E-02_JPRB,&
+&.413E-02_JPRB,.399E-02_JPRB,.395E-02_JPRB,.386E-02_JPRB,.397E-02_JPRB,.373E-02_JPRB,.296E-02_JPRB,&
+&.248E-02_JPRB,.212E-02_JPRB,.212E-02_JPRB,.239E-02_JPRB,.279E-02_JPRB,.310E-02_JPRB,.305E-02_JPRB,&
+&.290E-02_JPRB,.297E-02_JPRB,.279E-02_JPRB,.244E-02_JPRB,.228E-02_JPRB,.219E-02_JPRB,.231E-02_JPRB,&
+&.243E-02_JPRB,.272E-02_JPRB,.263E-02_JPRB,.218E-02_JPRB,.203E-02_JPRB,.203E-02_JPRB,.205E-02_JPRB,&
+&.215E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.217E-02_JPRB,.229E-02_JPRB,.239E-02_JPRB,.239E-02_JPRB,&
+&.218E-02_JPRB,.216E-02_JPRB,.234E-02_JPRB,.251E-02_JPRB,.270E-02_JPRB,.311E-02_JPRB,.373E-02_JPRB,&
+&.450E-02_JPRB,.451E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  7  66.0
+ZAER (:, 7, 5) = (/&
+&.404E-02_JPRB,.418E-02_JPRB,.439E-02_JPRB,.464E-02_JPRB,.465E-02_JPRB,.454E-02_JPRB,.456E-02_JPRB,&
+&.432E-02_JPRB,.417E-02_JPRB,.423E-02_JPRB,.451E-02_JPRB,.467E-02_JPRB,.450E-02_JPRB,.435E-02_JPRB,&
+&.409E-02_JPRB,.393E-02_JPRB,.397E-02_JPRB,.383E-02_JPRB,.361E-02_JPRB,.355E-02_JPRB,.394E-02_JPRB,&
+&.440E-02_JPRB,.446E-02_JPRB,.483E-02_JPRB,.501E-02_JPRB,.454E-02_JPRB,.410E-02_JPRB,.410E-02_JPRB,&
+&.421E-02_JPRB,.407E-02_JPRB,.396E-02_JPRB,.408E-02_JPRB,.411E-02_JPRB,.412E-02_JPRB,.393E-02_JPRB,&
+&.363E-02_JPRB,.320E-02_JPRB,.298E-02_JPRB,.325E-02_JPRB,.380E-02_JPRB,.441E-02_JPRB,.381E-02_JPRB,&
+&.352E-02_JPRB,.336E-02_JPRB,.390E-02_JPRB,.388E-02_JPRB,.373E-02_JPRB,.374E-02_JPRB,.377E-02_JPRB,&
+&.371E-02_JPRB,.365E-02_JPRB,.342E-02_JPRB,.321E-02_JPRB,.299E-02_JPRB,.311E-02_JPRB,.318E-02_JPRB,&
+&.313E-02_JPRB,.284E-02_JPRB,.282E-02_JPRB,.295E-02_JPRB,.328E-02_JPRB,.364E-02_JPRB,.388E-02_JPRB,&
+&.369E-02_JPRB,.371E-02_JPRB,.373E-02_JPRB,.362E-02_JPRB,.375E-02_JPRB,.394E-02_JPRB,.438E-02_JPRB,&
+&.436E-02_JPRB,.409E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  8  62.0
+ZAER (:, 8, 5) = (/&
+&.367E-02_JPRB,.375E-02_JPRB,.390E-02_JPRB,.428E-02_JPRB,.432E-02_JPRB,.448E-02_JPRB,.440E-02_JPRB,&
+&.437E-02_JPRB,.415E-02_JPRB,.406E-02_JPRB,.434E-02_JPRB,.466E-02_JPRB,.408E-02_JPRB,.407E-02_JPRB,&
+&.423E-02_JPRB,.422E-02_JPRB,.393E-02_JPRB,.381E-02_JPRB,.345E-02_JPRB,.334E-02_JPRB,.358E-02_JPRB,&
+&.417E-02_JPRB,.443E-02_JPRB,.453E-02_JPRB,.461E-02_JPRB,.457E-02_JPRB,.441E-02_JPRB,.446E-02_JPRB,&
+&.422E-02_JPRB,.423E-02_JPRB,.407E-02_JPRB,.425E-02_JPRB,.428E-02_JPRB,.446E-02_JPRB,.451E-02_JPRB,&
+&.433E-02_JPRB,.432E-02_JPRB,.437E-02_JPRB,.425E-02_JPRB,.452E-02_JPRB,.521E-02_JPRB,.496E-02_JPRB,&
+&.450E-02_JPRB,.439E-02_JPRB,.484E-02_JPRB,.541E-02_JPRB,.567E-02_JPRB,.553E-02_JPRB,.562E-02_JPRB,&
+&.516E-02_JPRB,.466E-02_JPRB,.413E-02_JPRB,.440E-02_JPRB,.495E-02_JPRB,.492E-02_JPRB,.461E-02_JPRB,&
+&.436E-02_JPRB,.503E-02_JPRB,.498E-02_JPRB,.470E-02_JPRB,.463E-02_JPRB,.465E-02_JPRB,.495E-02_JPRB,&
+&.547E-02_JPRB,.536E-02_JPRB,.567E-02_JPRB,.541E-02_JPRB,.503E-02_JPRB,.481E-02_JPRB,.444E-02_JPRB,&
+&.419E-02_JPRB,.386E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat:  9  58.0
+ZAER (:, 9, 5) = (/&
+&.409E-02_JPRB,.376E-02_JPRB,.365E-02_JPRB,.380E-02_JPRB,.379E-02_JPRB,.363E-02_JPRB,.398E-02_JPRB,&
+&.435E-02_JPRB,.447E-02_JPRB,.436E-02_JPRB,.419E-02_JPRB,.436E-02_JPRB,.456E-02_JPRB,.457E-02_JPRB,&
+&.511E-02_JPRB,.512E-02_JPRB,.453E-02_JPRB,.431E-02_JPRB,.427E-02_JPRB,.423E-02_JPRB,.415E-02_JPRB,&
+&.421E-02_JPRB,.439E-02_JPRB,.457E-02_JPRB,.501E-02_JPRB,.525E-02_JPRB,.451E-02_JPRB,.403E-02_JPRB,&
+&.441E-02_JPRB,.445E-02_JPRB,.428E-02_JPRB,.420E-02_JPRB,.409E-02_JPRB,.407E-02_JPRB,.410E-02_JPRB,&
+&.416E-02_JPRB,.443E-02_JPRB,.473E-02_JPRB,.464E-02_JPRB,.434E-02_JPRB,.433E-02_JPRB,.426E-02_JPRB,&
+&.402E-02_JPRB,.409E-02_JPRB,.452E-02_JPRB,.479E-02_JPRB,.497E-02_JPRB,.503E-02_JPRB,.526E-02_JPRB,&
+&.508E-02_JPRB,.468E-02_JPRB,.461E-02_JPRB,.470E-02_JPRB,.456E-02_JPRB,.442E-02_JPRB,.409E-02_JPRB,&
+&.416E-02_JPRB,.462E-02_JPRB,.455E-02_JPRB,.468E-02_JPRB,.484E-02_JPRB,.500E-02_JPRB,.493E-02_JPRB,&
+&.513E-02_JPRB,.511E-02_JPRB,.532E-02_JPRB,.482E-02_JPRB,.444E-02_JPRB,.431E-02_JPRB,.447E-02_JPRB,&
+&.465E-02_JPRB,.441E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 10  54.0
+ZAER (:,10, 5) = (/&
+&.431E-02_JPRB,.425E-02_JPRB,.402E-02_JPRB,.395E-02_JPRB,.387E-02_JPRB,.363E-02_JPRB,.382E-02_JPRB,&
+&.420E-02_JPRB,.445E-02_JPRB,.433E-02_JPRB,.430E-02_JPRB,.403E-02_JPRB,.427E-02_JPRB,.467E-02_JPRB,&
+&.491E-02_JPRB,.476E-02_JPRB,.477E-02_JPRB,.461E-02_JPRB,.459E-02_JPRB,.463E-02_JPRB,.463E-02_JPRB,&
+&.449E-02_JPRB,.284E-02_JPRB,.477E-02_JPRB,.498E-02_JPRB,.578E-02_JPRB,.581E-02_JPRB,.478E-02_JPRB,&
+&.494E-02_JPRB,.514E-02_JPRB,.499E-02_JPRB,.484E-02_JPRB,.468E-02_JPRB,.457E-02_JPRB,.424E-02_JPRB,&
+&.399E-02_JPRB,.394E-02_JPRB,.406E-02_JPRB,.407E-02_JPRB,.391E-02_JPRB,.383E-02_JPRB,.391E-02_JPRB,&
+&.405E-02_JPRB,.422E-02_JPRB,.450E-02_JPRB,.481E-02_JPRB,.486E-02_JPRB,.459E-02_JPRB,.445E-02_JPRB,&
+&.476E-02_JPRB,.498E-02_JPRB,.518E-02_JPRB,.511E-02_JPRB,.508E-02_JPRB,.487E-02_JPRB,.457E-02_JPRB,&
+&.457E-02_JPRB,.472E-02_JPRB,.484E-02_JPRB,.493E-02_JPRB,.492E-02_JPRB,.499E-02_JPRB,.511E-02_JPRB,&
+&.515E-02_JPRB,.508E-02_JPRB,.493E-02_JPRB,.472E-02_JPRB,.428E-02_JPRB,.446E-02_JPRB,.447E-02_JPRB,&
+&.428E-02_JPRB,.424E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 11  50.0
+ZAER (:,11, 5) = (/&
+&.455E-02_JPRB,.469E-02_JPRB,.464E-02_JPRB,.461E-02_JPRB,.416E-02_JPRB,.394E-02_JPRB,.401E-02_JPRB,&
+&.421E-02_JPRB,.453E-02_JPRB,.429E-02_JPRB,.400E-02_JPRB,.394E-02_JPRB,.393E-02_JPRB,.413E-02_JPRB,&
+&.446E-02_JPRB,.473E-02_JPRB,.470E-02_JPRB,.449E-02_JPRB,.443E-02_JPRB,.446E-02_JPRB,.406E-02_JPRB,&
+&.369E-02_JPRB,.246E-02_JPRB,.463E-02_JPRB,.563E-02_JPRB,.683E-02_JPRB,.636E-02_JPRB,.534E-02_JPRB,&
+&.521E-02_JPRB,.529E-02_JPRB,.526E-02_JPRB,.507E-02_JPRB,.470E-02_JPRB,.454E-02_JPRB,.447E-02_JPRB,&
+&.418E-02_JPRB,.420E-02_JPRB,.447E-02_JPRB,.439E-02_JPRB,.438E-02_JPRB,.430E-02_JPRB,.416E-02_JPRB,&
+&.421E-02_JPRB,.482E-02_JPRB,.532E-02_JPRB,.530E-02_JPRB,.529E-02_JPRB,.520E-02_JPRB,.498E-02_JPRB,&
+&.503E-02_JPRB,.538E-02_JPRB,.530E-02_JPRB,.563E-02_JPRB,.582E-02_JPRB,.565E-02_JPRB,.509E-02_JPRB,&
+&.493E-02_JPRB,.512E-02_JPRB,.525E-02_JPRB,.521E-02_JPRB,.500E-02_JPRB,.491E-02_JPRB,.497E-02_JPRB,&
+&.496E-02_JPRB,.503E-02_JPRB,.495E-02_JPRB,.473E-02_JPRB,.460E-02_JPRB,.454E-02_JPRB,.436E-02_JPRB,&
+&.443E-02_JPRB,.437E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 12  46.0
+ZAER (:,12, 5) = (/&
+&.471E-02_JPRB,.531E-02_JPRB,.537E-02_JPRB,.500E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.432E-02_JPRB,&
+&.423E-02_JPRB,.405E-02_JPRB,.381E-02_JPRB,.353E-02_JPRB,.391E-02_JPRB,.419E-02_JPRB,.466E-02_JPRB,&
+&.498E-02_JPRB,.513E-02_JPRB,.482E-02_JPRB,.443E-02_JPRB,.439E-02_JPRB,.409E-02_JPRB,.354E-02_JPRB,&
+&.351E-02_JPRB,.278E-02_JPRB,.687E-02_JPRB,.768E-02_JPRB,.918E-02_JPRB,.803E-02_JPRB,.641E-02_JPRB,&
+&.553E-02_JPRB,.508E-02_JPRB,.538E-02_JPRB,.544E-02_JPRB,.569E-02_JPRB,.572E-02_JPRB,.569E-02_JPRB,&
+&.573E-02_JPRB,.554E-02_JPRB,.573E-02_JPRB,.553E-02_JPRB,.552E-02_JPRB,.501E-02_JPRB,.502E-02_JPRB,&
+&.657E-02_JPRB,.668E-02_JPRB,.666E-02_JPRB,.670E-02_JPRB,.634E-02_JPRB,.613E-02_JPRB,.628E-02_JPRB,&
+&.642E-02_JPRB,.674E-02_JPRB,.676E-02_JPRB,.658E-02_JPRB,.648E-02_JPRB,.611E-02_JPRB,.623E-02_JPRB,&
+&.612E-02_JPRB,.598E-02_JPRB,.572E-02_JPRB,.521E-02_JPRB,.479E-02_JPRB,.480E-02_JPRB,.505E-02_JPRB,&
+&.543E-02_JPRB,.549E-02_JPRB,.534E-02_JPRB,.471E-02_JPRB,.450E-02_JPRB,.439E-02_JPRB,.435E-02_JPRB,&
+&.425E-02_JPRB,.439E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 13  42.0
+ZAER (:,13, 5) = (/&
+&.644E-02_JPRB,.587E-02_JPRB,.546E-02_JPRB,.526E-02_JPRB,.498E-02_JPRB,.471E-02_JPRB,.461E-02_JPRB,&
+&.437E-02_JPRB,.406E-02_JPRB,.412E-02_JPRB,.403E-02_JPRB,.438E-02_JPRB,.487E-02_JPRB,.510E-02_JPRB,&
+&.516E-02_JPRB,.489E-02_JPRB,.496E-02_JPRB,.465E-02_JPRB,.427E-02_JPRB,.388E-02_JPRB,.366E-02_JPRB,&
+&.441E-02_JPRB,.396E-02_JPRB,.550E-02_JPRB,.100E-01_JPRB,.948E-02_JPRB,.802E-02_JPRB,.717E-02_JPRB,&
+&.675E-02_JPRB,.639E-02_JPRB,.641E-02_JPRB,.622E-02_JPRB,.620E-02_JPRB,.631E-02_JPRB,.636E-02_JPRB,&
+&.630E-02_JPRB,.644E-02_JPRB,.659E-02_JPRB,.655E-02_JPRB,.649E-02_JPRB,.645E-02_JPRB,.815E-02_JPRB,&
+&.962E-02_JPRB,.895E-02_JPRB,.831E-02_JPRB,.785E-02_JPRB,.729E-02_JPRB,.676E-02_JPRB,.642E-02_JPRB,&
+&.644E-02_JPRB,.790E-02_JPRB,.751E-02_JPRB,.651E-02_JPRB,.639E-02_JPRB,.641E-02_JPRB,.659E-02_JPRB,&
+&.592E-02_JPRB,.539E-02_JPRB,.513E-02_JPRB,.514E-02_JPRB,.499E-02_JPRB,.523E-02_JPRB,.539E-02_JPRB,&
+&.541E-02_JPRB,.574E-02_JPRB,.535E-02_JPRB,.514E-02_JPRB,.473E-02_JPRB,.444E-02_JPRB,.426E-02_JPRB,&
+&.442E-02_JPRB,.455E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 14  38.0
+ZAER (:,14, 5) = (/&
+&.720E-02_JPRB,.547E-02_JPRB,.539E-02_JPRB,.537E-02_JPRB,.554E-02_JPRB,.510E-02_JPRB,.501E-02_JPRB,&
+&.495E-02_JPRB,.483E-02_JPRB,.485E-02_JPRB,.484E-02_JPRB,.500E-02_JPRB,.509E-02_JPRB,.554E-02_JPRB,&
+&.539E-02_JPRB,.504E-02_JPRB,.477E-02_JPRB,.449E-02_JPRB,.417E-02_JPRB,.410E-02_JPRB,.464E-02_JPRB,&
+&.568E-02_JPRB,.433E-02_JPRB,.892E-02_JPRB,.662E-02_JPRB,.105E-01_JPRB,.883E-02_JPRB,.877E-02_JPRB,&
+&.829E-02_JPRB,.791E-02_JPRB,.752E-02_JPRB,.719E-02_JPRB,.708E-02_JPRB,.710E-02_JPRB,.695E-02_JPRB,&
+&.674E-02_JPRB,.695E-02_JPRB,.745E-02_JPRB,.757E-02_JPRB,.786E-02_JPRB,.935E-02_JPRB,.135E-01_JPRB,&
+&.167E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.935E-02_JPRB,.809E-02_JPRB,.764E-02_JPRB,.705E-02_JPRB,&
+&.660E-02_JPRB,.723E-02_JPRB,.658E-02_JPRB,.597E-02_JPRB,.597E-02_JPRB,.587E-02_JPRB,.613E-02_JPRB,&
+&.564E-02_JPRB,.516E-02_JPRB,.535E-02_JPRB,.555E-02_JPRB,.615E-02_JPRB,.643E-02_JPRB,.593E-02_JPRB,&
+&.555E-02_JPRB,.652E-02_JPRB,.357E-02_JPRB,.527E-02_JPRB,.516E-02_JPRB,.488E-02_JPRB,.443E-02_JPRB,&
+&.439E-02_JPRB,.462E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 15  34.0
+ZAER (:,15, 5) = (/&
+&.624E-02_JPRB,.606E-02_JPRB,.614E-02_JPRB,.632E-02_JPRB,.625E-02_JPRB,.576E-02_JPRB,.570E-02_JPRB,&
+&.575E-02_JPRB,.572E-02_JPRB,.587E-02_JPRB,.581E-02_JPRB,.578E-02_JPRB,.592E-02_JPRB,.620E-02_JPRB,&
+&.594E-02_JPRB,.520E-02_JPRB,.488E-02_JPRB,.465E-02_JPRB,.415E-02_JPRB,.408E-02_JPRB,.459E-02_JPRB,&
+&.941E-02_JPRB,.654E-02_JPRB,.109E-01_JPRB,.990E-02_JPRB,.111E-01_JPRB,.141E-01_JPRB,.123E-01_JPRB,&
+&.113E-01_JPRB,.105E-01_JPRB,.964E-02_JPRB,.887E-02_JPRB,.848E-02_JPRB,.833E-02_JPRB,.818E-02_JPRB,&
+&.789E-02_JPRB,.777E-02_JPRB,.792E-02_JPRB,.886E-02_JPRB,.112E-01_JPRB,.916E-02_JPRB,.245E-01_JPRB,&
+&.273E-01_JPRB,.168E-01_JPRB,.126E-01_JPRB,.115E-01_JPRB,.106E-01_JPRB,.910E-02_JPRB,.733E-02_JPRB,&
+&.683E-02_JPRB,.642E-02_JPRB,.571E-02_JPRB,.590E-02_JPRB,.578E-02_JPRB,.578E-02_JPRB,.587E-02_JPRB,&
+&.590E-02_JPRB,.574E-02_JPRB,.684E-02_JPRB,.717E-02_JPRB,.458E-02_JPRB,.839E-02_JPRB,.672E-02_JPRB,&
+&.649E-02_JPRB,.390E-02_JPRB,.446E-02_JPRB,.370E-02_JPRB,.569E-02_JPRB,.551E-02_JPRB,.517E-02_JPRB,&
+&.513E-02_JPRB,.533E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 16  30.0
+ZAER (:,16, 5) = (/&
+&.704E-02_JPRB,.729E-02_JPRB,.739E-02_JPRB,.746E-02_JPRB,.749E-02_JPRB,.751E-02_JPRB,.732E-02_JPRB,&
+&.736E-02_JPRB,.729E-02_JPRB,.745E-02_JPRB,.737E-02_JPRB,.752E-02_JPRB,.787E-02_JPRB,.741E-02_JPRB,&
+&.696E-02_JPRB,.589E-02_JPRB,.528E-02_JPRB,.482E-02_JPRB,.436E-02_JPRB,.453E-02_JPRB,.519E-02_JPRB,&
+&.117E-01_JPRB,.791E-02_JPRB,.139E-01_JPRB,.158E-01_JPRB,.166E-01_JPRB,.223E-01_JPRB,.192E-01_JPRB,&
+&.166E-01_JPRB,.140E-01_JPRB,.124E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,&
+&.105E-01_JPRB,.102E-01_JPRB,.117E-01_JPRB,.144E-01_JPRB,.197E-01_JPRB,.188E-01_JPRB,.313E-01_JPRB,&
+&.231E-01_JPRB,.242E-01_JPRB,.167E-01_JPRB,.130E-01_JPRB,.103E-01_JPRB,.870E-02_JPRB,.815E-02_JPRB,&
+&.771E-02_JPRB,.740E-02_JPRB,.710E-02_JPRB,.707E-02_JPRB,.721E-02_JPRB,.714E-02_JPRB,.708E-02_JPRB,&
+&.756E-02_JPRB,.863E-02_JPRB,.979E-02_JPRB,.530E-02_JPRB,.521E-02_JPRB,.553E-02_JPRB,.578E-02_JPRB,&
+&.580E-02_JPRB,.586E-02_JPRB,.591E-02_JPRB,.500E-02_JPRB,.759E-02_JPRB,.680E-02_JPRB,.665E-02_JPRB,&
+&.648E-02_JPRB,.654E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 17  26.0
+ZAER (:,17, 5) = (/&
+&.983E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.992E-02_JPRB,.989E-02_JPRB,&
+&.102E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,.997E-02_JPRB,.962E-02_JPRB,.912E-02_JPRB,.846E-02_JPRB,&
+&.759E-02_JPRB,.628E-02_JPRB,.585E-02_JPRB,.597E-02_JPRB,.600E-02_JPRB,.645E-02_JPRB,.775E-02_JPRB,&
+&.146E-01_JPRB,.149E-01_JPRB,.181E-01_JPRB,.194E-01_JPRB,.210E-01_JPRB,.202E-01_JPRB,.317E-01_JPRB,&
+&.243E-01_JPRB,.196E-01_JPRB,.174E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,&
+&.149E-01_JPRB,.156E-01_JPRB,.214E-01_JPRB,.266E-01_JPRB,.178E-01_JPRB,.335E-01_JPRB,.602E-01_JPRB,&
+&.270E-01_JPRB,.365E-01_JPRB,.184E-01_JPRB,.134E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,.107E-01_JPRB,&
+&.105E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.104E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.982E-02_JPRB,&
+&.999E-02_JPRB,.111E-01_JPRB,.127E-01_JPRB,.737E-02_JPRB,.810E-02_JPRB,.785E-02_JPRB,.740E-02_JPRB,&
+&.793E-02_JPRB,.713E-02_JPRB,.740E-02_JPRB,.654E-02_JPRB,.101E-01_JPRB,.959E-02_JPRB,.909E-02_JPRB,&
+&.913E-02_JPRB,.965E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 18  22.0
+ZAER (:,18, 5) = (/&
+&.159E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,.133E-01_JPRB,&
+&.139E-01_JPRB,.132E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,&
+&.924E-02_JPRB,.817E-02_JPRB,.715E-02_JPRB,.740E-02_JPRB,.797E-02_JPRB,.989E-02_JPRB,.183E-01_JPRB,&
+&.402E-01_JPRB,.297E-01_JPRB,.220E-01_JPRB,.209E-01_JPRB,.278E-01_JPRB,.288E-01_JPRB,.211E-01_JPRB,&
+&.268E-01_JPRB,.227E-01_JPRB,.217E-01_JPRB,.212E-01_JPRB,.191E-01_JPRB,.182E-01_JPRB,.187E-01_JPRB,&
+&.200E-01_JPRB,.237E-01_JPRB,.300E-01_JPRB,.341E-01_JPRB,.207E-01_JPRB,.271E-01_JPRB,.362E-01_JPRB,&
+&.218E-01_JPRB,.141E-01_JPRB,.176E-01_JPRB,.899E-02_JPRB,.137E-01_JPRB,.133E-01_JPRB,.126E-01_JPRB,&
+&.121E-01_JPRB,.127E-01_JPRB,.136E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.134E-01_JPRB,.127E-01_JPRB,&
+&.131E-01_JPRB,.142E-01_JPRB,.149E-01_JPRB,.163E-01_JPRB,.110E-01_JPRB,.105E-01_JPRB,.940E-02_JPRB,&
+&.111E-01_JPRB,.814E-02_JPRB,.918E-02_JPRB,.135E-01_JPRB,.141E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,&
+&.145E-01_JPRB,.167E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 19  18.0
+ZAER (:,19, 5) = (/&
+&.178E-01_JPRB,.166E-01_JPRB,.167E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,&
+&.172E-01_JPRB,.169E-01_JPRB,.171E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.134E-01_JPRB,.121E-01_JPRB,&
+&.116E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,.107E-01_JPRB,.115E-01_JPRB,.182E-01_JPRB,.444E-01_JPRB,&
+&.702E-01_JPRB,.196E-01_JPRB,.143E-01_JPRB,.180E-01_JPRB,.219E-01_JPRB,.236E-01_JPRB,.190E-01_JPRB,&
+&.153E-01_JPRB,.224E-01_JPRB,.217E-01_JPRB,.225E-01_JPRB,.221E-01_JPRB,.208E-01_JPRB,.220E-01_JPRB,&
+&.260E-01_JPRB,.303E-01_JPRB,.332E-01_JPRB,.324E-01_JPRB,.175E-01_JPRB,.172E-01_JPRB,.161E-01_JPRB,&
+&.107E-01_JPRB,.110E-01_JPRB,.168E-01_JPRB,.939E-02_JPRB,.139E-01_JPRB,.134E-01_JPRB,.130E-01_JPRB,&
+&.132E-01_JPRB,.145E-01_JPRB,.158E-01_JPRB,.169E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.192E-01_JPRB,&
+&.189E-01_JPRB,.184E-01_JPRB,.196E-01_JPRB,.208E-01_JPRB,.212E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,&
+&.109E-01_JPRB,.986E-02_JPRB,.100E-01_JPRB,.195E-01_JPRB,.234E-01_JPRB,.282E-01_JPRB,.356E-01_JPRB,&
+&.386E-01_JPRB,.220E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 20  14.0
+ZAER (:,20, 5) = (/&
+&.216E-01_JPRB,.207E-01_JPRB,.208E-01_JPRB,.204E-01_JPRB,.210E-01_JPRB,.211E-01_JPRB,.207E-01_JPRB,&
+&.208E-01_JPRB,.219E-01_JPRB,.220E-01_JPRB,.220E-01_JPRB,.215E-01_JPRB,.201E-01_JPRB,.168E-01_JPRB,&
+&.160E-01_JPRB,.149E-01_JPRB,.163E-01_JPRB,.184E-01_JPRB,.265E-01_JPRB,.439E-01_JPRB,.576E-01_JPRB,&
+&.194E-01_JPRB,.133E-01_JPRB,.143E-01_JPRB,.148E-01_JPRB,.157E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,&
+&.149E-01_JPRB,.233E-01_JPRB,.227E-01_JPRB,.234E-01_JPRB,.217E-01_JPRB,.218E-01_JPRB,.255E-01_JPRB,&
+&.323E-01_JPRB,.358E-01_JPRB,.391E-01_JPRB,.400E-01_JPRB,.225E-01_JPRB,.227E-01_JPRB,.261E-01_JPRB,&
+&.117E-01_JPRB,.103E-01_JPRB,.954E-02_JPRB,.154E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,.138E-01_JPRB,&
+&.143E-01_JPRB,.153E-01_JPRB,.170E-01_JPRB,.197E-01_JPRB,.224E-01_JPRB,.252E-01_JPRB,.284E-01_JPRB,&
+&.308E-01_JPRB,.309E-01_JPRB,.277E-01_JPRB,.251E-01_JPRB,.255E-01_JPRB,.264E-01_JPRB,.164E-01_JPRB,&
+&.119E-01_JPRB,.209E-01_JPRB,.221E-01_JPRB,.249E-01_JPRB,.302E-01_JPRB,.345E-01_JPRB,.420E-01_JPRB,&
+&.316E-01_JPRB,.247E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 21  10.0
+ZAER (:,21, 5) = (/&
+&.246E-01_JPRB,.246E-01_JPRB,.252E-01_JPRB,.255E-01_JPRB,.257E-01_JPRB,.258E-01_JPRB,.255E-01_JPRB,&
+&.258E-01_JPRB,.267E-01_JPRB,.276E-01_JPRB,.281E-01_JPRB,.284E-01_JPRB,.276E-01_JPRB,.265E-01_JPRB,&
+&.260E-01_JPRB,.248E-01_JPRB,.271E-01_JPRB,.345E-01_JPRB,.453E-01_JPRB,.489E-01_JPRB,.457E-01_JPRB,&
+&.167E-01_JPRB,.157E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.156E-01_JPRB,.163E-01_JPRB,&
+&.152E-01_JPRB,.222E-01_JPRB,.233E-01_JPRB,.237E-01_JPRB,.230E-01_JPRB,.226E-01_JPRB,.263E-01_JPRB,&
+&.301E-01_JPRB,.332E-01_JPRB,.336E-01_JPRB,.311E-01_JPRB,.188E-01_JPRB,.248E-01_JPRB,.233E-01_JPRB,&
+&.115E-01_JPRB,.885E-02_JPRB,.144E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.140E-01_JPRB,&
+&.148E-01_JPRB,.159E-01_JPRB,.183E-01_JPRB,.216E-01_JPRB,.258E-01_JPRB,.308E-01_JPRB,.364E-01_JPRB,&
+&.437E-01_JPRB,.471E-01_JPRB,.408E-01_JPRB,.303E-01_JPRB,.288E-01_JPRB,.230E-01_JPRB,.237E-01_JPRB,&
+&.270E-01_JPRB,.300E-01_JPRB,.320E-01_JPRB,.304E-01_JPRB,.342E-01_JPRB,.355E-01_JPRB,.350E-01_JPRB,&
+&.291E-01_JPRB,.256E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 22   6.0
+ZAER (:,22, 5) = (/&
+&.277E-01_JPRB,.275E-01_JPRB,.285E-01_JPRB,.287E-01_JPRB,.295E-01_JPRB,.295E-01_JPRB,.293E-01_JPRB,&
+&.295E-01_JPRB,.307E-01_JPRB,.314E-01_JPRB,.326E-01_JPRB,.334E-01_JPRB,.333E-01_JPRB,.339E-01_JPRB,&
+&.331E-01_JPRB,.362E-01_JPRB,.410E-01_JPRB,.452E-01_JPRB,.462E-01_JPRB,.424E-01_JPRB,.192E-01_JPRB,&
+&.151E-01_JPRB,.145E-01_JPRB,.150E-01_JPRB,.154E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.155E-01_JPRB,&
+&.140E-01_JPRB,.222E-01_JPRB,.228E-01_JPRB,.236E-01_JPRB,.242E-01_JPRB,.228E-01_JPRB,.234E-01_JPRB,&
+&.250E-01_JPRB,.268E-01_JPRB,.264E-01_JPRB,.266E-01_JPRB,.150E-01_JPRB,.178E-01_JPRB,.157E-01_JPRB,&
+&.114E-01_JPRB,.934E-02_JPRB,.140E-01_JPRB,.140E-01_JPRB,.141E-01_JPRB,.137E-01_JPRB,.140E-01_JPRB,&
+&.148E-01_JPRB,.165E-01_JPRB,.190E-01_JPRB,.231E-01_JPRB,.287E-01_JPRB,.351E-01_JPRB,.434E-01_JPRB,&
+&.544E-01_JPRB,.659E-01_JPRB,.501E-01_JPRB,.504E-01_JPRB,.387E-01_JPRB,.268E-01_JPRB,.290E-01_JPRB,&
+&.324E-01_JPRB,.202E-01_JPRB,.203E-01_JPRB,.399E-01_JPRB,.367E-01_JPRB,.340E-01_JPRB,.308E-01_JPRB,&
+&.288E-01_JPRB,.277E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 23   2.0
+ZAER (:,23, 5) = (/&
+&.309E-01_JPRB,.310E-01_JPRB,.313E-01_JPRB,.319E-01_JPRB,.326E-01_JPRB,.327E-01_JPRB,.328E-01_JPRB,&
+&.334E-01_JPRB,.349E-01_JPRB,.361E-01_JPRB,.375E-01_JPRB,.398E-01_JPRB,.402E-01_JPRB,.417E-01_JPRB,&
+&.420E-01_JPRB,.454E-01_JPRB,.453E-01_JPRB,.459E-01_JPRB,.467E-01_JPRB,.507E-01_JPRB,.254E-01_JPRB,&
+&.154E-01_JPRB,.148E-01_JPRB,.157E-01_JPRB,.156E-01_JPRB,.163E-01_JPRB,.171E-01_JPRB,.153E-01_JPRB,&
+&.218E-01_JPRB,.227E-01_JPRB,.225E-01_JPRB,.219E-01_JPRB,.219E-01_JPRB,.211E-01_JPRB,.207E-01_JPRB,&
+&.216E-01_JPRB,.222E-01_JPRB,.223E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.160E-01_JPRB,.186E-01_JPRB,&
+&.144E-01_JPRB,.114E-01_JPRB,.100E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,.138E-01_JPRB,.139E-01_JPRB,&
+&.147E-01_JPRB,.161E-01_JPRB,.193E-01_JPRB,.242E-01_JPRB,.299E-01_JPRB,.379E-01_JPRB,.451E-01_JPRB,&
+&.535E-01_JPRB,.367E-01_JPRB,.667E-01_JPRB,.427E-01_JPRB,.520E-01_JPRB,.323E-01_JPRB,.295E-01_JPRB,&
+&.175E-01_JPRB,.331E-01_JPRB,.333E-01_JPRB,.343E-01_JPRB,.325E-01_JPRB,.313E-01_JPRB,.307E-01_JPRB,&
+&.305E-01_JPRB,.303E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 24  -2.0
+ZAER (:,24, 5) = (/&
+&.331E-01_JPRB,.349E-01_JPRB,.365E-01_JPRB,.379E-01_JPRB,.396E-01_JPRB,.396E-01_JPRB,.406E-01_JPRB,&
+&.406E-01_JPRB,.405E-01_JPRB,.407E-01_JPRB,.412E-01_JPRB,.436E-01_JPRB,.427E-01_JPRB,.442E-01_JPRB,&
+&.441E-01_JPRB,.456E-01_JPRB,.450E-01_JPRB,.454E-01_JPRB,.427E-01_JPRB,.426E-01_JPRB,.336E-01_JPRB,&
+&.149E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.245E-01_JPRB,.236E-01_JPRB,&
+&.232E-01_JPRB,.241E-01_JPRB,.233E-01_JPRB,.229E-01_JPRB,.221E-01_JPRB,.213E-01_JPRB,.204E-01_JPRB,&
+&.202E-01_JPRB,.205E-01_JPRB,.212E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,&
+&.136E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.183E-01_JPRB,.158E-01_JPRB,.149E-01_JPRB,&
+&.154E-01_JPRB,.169E-01_JPRB,.195E-01_JPRB,.237E-01_JPRB,.290E-01_JPRB,.355E-01_JPRB,.416E-01_JPRB,&
+&.286E-01_JPRB,.619E-01_JPRB,.750E-01_JPRB,.450E-01_JPRB,.676E-01_JPRB,.405E-01_JPRB,.241E-01_JPRB,&
+&.267E-01_JPRB,.280E-01_JPRB,.278E-01_JPRB,.289E-01_JPRB,.290E-01_JPRB,.297E-01_JPRB,.307E-01_JPRB,&
+&.313E-01_JPRB,.316E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 25  -6.0
+ZAER (:,25, 5) = (/&
+&.328E-01_JPRB,.354E-01_JPRB,.377E-01_JPRB,.392E-01_JPRB,.412E-01_JPRB,.416E-01_JPRB,.412E-01_JPRB,&
+&.411E-01_JPRB,.413E-01_JPRB,.404E-01_JPRB,.407E-01_JPRB,.424E-01_JPRB,.421E-01_JPRB,.435E-01_JPRB,&
+&.441E-01_JPRB,.449E-01_JPRB,.458E-01_JPRB,.462E-01_JPRB,.459E-01_JPRB,.428E-01_JPRB,.357E-01_JPRB,&
+&.170E-01_JPRB,.157E-01_JPRB,.147E-01_JPRB,.148E-01_JPRB,.239E-01_JPRB,.232E-01_JPRB,.237E-01_JPRB,&
+&.234E-01_JPRB,.250E-01_JPRB,.274E-01_JPRB,.299E-01_JPRB,.302E-01_JPRB,.280E-01_JPRB,.141E-01_JPRB,&
+&.124E-01_JPRB,.121E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,.137E-01_JPRB,&
+&.145E-01_JPRB,.147E-01_JPRB,.157E-01_JPRB,.167E-01_JPRB,.275E-01_JPRB,.229E-01_JPRB,.208E-01_JPRB,&
+&.213E-01_JPRB,.229E-01_JPRB,.241E-01_JPRB,.243E-01_JPRB,.260E-01_JPRB,.276E-01_JPRB,.334E-01_JPRB,&
+&.389E-01_JPRB,.532E-01_JPRB,.741E-01_JPRB,.872E-01_JPRB,.633E-01_JPRB,.311E-01_JPRB,.232E-01_JPRB,&
+&.239E-01_JPRB,.244E-01_JPRB,.240E-01_JPRB,.249E-01_JPRB,.257E-01_JPRB,.269E-01_JPRB,.283E-01_JPRB,&
+&.299E-01_JPRB,.313E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 26 -10.0
+ZAER (:,26, 5) = (/&
+&.307E-01_JPRB,.331E-01_JPRB,.354E-01_JPRB,.373E-01_JPRB,.382E-01_JPRB,.386E-01_JPRB,.392E-01_JPRB,&
+&.395E-01_JPRB,.406E-01_JPRB,.414E-01_JPRB,.421E-01_JPRB,.430E-01_JPRB,.438E-01_JPRB,.455E-01_JPRB,&
+&.472E-01_JPRB,.489E-01_JPRB,.513E-01_JPRB,.506E-01_JPRB,.622E-01_JPRB,.477E-01_JPRB,.343E-01_JPRB,&
+&.192E-01_JPRB,.195E-01_JPRB,.138E-01_JPRB,.202E-01_JPRB,.208E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,&
+&.213E-01_JPRB,.243E-01_JPRB,.276E-01_JPRB,.296E-01_JPRB,.329E-01_JPRB,.346E-01_JPRB,.202E-01_JPRB,&
+&.165E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.156E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,&
+&.159E-01_JPRB,.172E-01_JPRB,.197E-01_JPRB,.239E-01_JPRB,.246E-01_JPRB,.339E-01_JPRB,.308E-01_JPRB,&
+&.332E-01_JPRB,.372E-01_JPRB,.372E-01_JPRB,.362E-01_JPRB,.324E-01_JPRB,.259E-01_JPRB,.271E-01_JPRB,&
+&.277E-01_JPRB,.304E-01_JPRB,.456E-01_JPRB,.651E-01_JPRB,.463E-01_JPRB,.277E-01_JPRB,.219E-01_JPRB,&
+&.219E-01_JPRB,.229E-01_JPRB,.221E-01_JPRB,.223E-01_JPRB,.231E-01_JPRB,.245E-01_JPRB,.259E-01_JPRB,&
+&.270E-01_JPRB,.286E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 27 -14.0
+ZAER (:,27, 5) = (/&
+&.240E-01_JPRB,.256E-01_JPRB,.273E-01_JPRB,.298E-01_JPRB,.300E-01_JPRB,.304E-01_JPRB,.329E-01_JPRB,&
+&.340E-01_JPRB,.357E-01_JPRB,.390E-01_JPRB,.419E-01_JPRB,.459E-01_JPRB,.486E-01_JPRB,.500E-01_JPRB,&
+&.522E-01_JPRB,.558E-01_JPRB,.573E-01_JPRB,.627E-01_JPRB,.392E-01_JPRB,.226E-01_JPRB,.317E-01_JPRB,&
+&.325E-01_JPRB,.294E-01_JPRB,.233E-01_JPRB,.199E-01_JPRB,.198E-01_JPRB,.191E-01_JPRB,.167E-01_JPRB,&
+&.158E-01_JPRB,.182E-01_JPRB,.243E-01_JPRB,.269E-01_JPRB,.275E-01_JPRB,.176E-01_JPRB,.206E-01_JPRB,&
+&.182E-01_JPRB,.188E-01_JPRB,.196E-01_JPRB,.211E-01_JPRB,.224E-01_JPRB,.216E-01_JPRB,.197E-01_JPRB,&
+&.188E-01_JPRB,.249E-01_JPRB,.302E-01_JPRB,.353E-01_JPRB,.595E-01_JPRB,.535E-01_JPRB,.498E-01_JPRB,&
+&.478E-01_JPRB,.518E-01_JPRB,.333E-01_JPRB,.586E-01_JPRB,.508E-01_JPRB,.391E-01_JPRB,.317E-01_JPRB,&
+&.162E-01_JPRB,.145E-01_JPRB,.285E-01_JPRB,.325E-01_JPRB,.334E-01_JPRB,.197E-01_JPRB,.206E-01_JPRB,&
+&.221E-01_JPRB,.240E-01_JPRB,.221E-01_JPRB,.200E-01_JPRB,.202E-01_JPRB,.208E-01_JPRB,.220E-01_JPRB,&
+&.227E-01_JPRB,.238E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 28 -18.0
+ZAER (:,28, 5) = (/&
+&.173E-01_JPRB,.166E-01_JPRB,.170E-01_JPRB,.185E-01_JPRB,.243E-01_JPRB,.213E-01_JPRB,.243E-01_JPRB,&
+&.280E-01_JPRB,.317E-01_JPRB,.361E-01_JPRB,.382E-01_JPRB,.413E-01_JPRB,.453E-01_JPRB,.520E-01_JPRB,&
+&.652E-01_JPRB,.731E-01_JPRB,.346E-01_JPRB,.319E-01_JPRB,.271E-01_JPRB,.336E-01_JPRB,.292E-01_JPRB,&
+&.261E-01_JPRB,.269E-01_JPRB,.225E-01_JPRB,.196E-01_JPRB,.187E-01_JPRB,.161E-01_JPRB,.146E-01_JPRB,&
+&.148E-01_JPRB,.147E-01_JPRB,.181E-01_JPRB,.215E-01_JPRB,.230E-01_JPRB,.169E-01_JPRB,.177E-01_JPRB,&
+&.158E-01_JPRB,.185E-01_JPRB,.206E-01_JPRB,.232E-01_JPRB,.286E-01_JPRB,.273E-01_JPRB,.283E-01_JPRB,&
+&.236E-01_JPRB,.277E-01_JPRB,.706E-01_JPRB,.455E-01_JPRB,.427E-01_JPRB,.425E-01_JPRB,.631E-01_JPRB,&
+&.572E-01_JPRB,.658E-01_JPRB,.479E-01_JPRB,.492E-01_JPRB,.727E-01_JPRB,.560E-01_JPRB,.259E-01_JPRB,&
+&.185E-01_JPRB,.144E-01_JPRB,.260E-01_JPRB,.252E-01_JPRB,.205E-01_JPRB,.178E-01_JPRB,.202E-01_JPRB,&
+&.233E-01_JPRB,.255E-01_JPRB,.241E-01_JPRB,.190E-01_JPRB,.165E-01_JPRB,.166E-01_JPRB,.173E-01_JPRB,&
+&.175E-01_JPRB,.177E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 29 -22.0
+ZAER (:,29, 5) = (/&
+&.134E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.133E-01_JPRB,.145E-01_JPRB,.155E-01_JPRB,.170E-01_JPRB,&
+&.196E-01_JPRB,.248E-01_JPRB,.299E-01_JPRB,.323E-01_JPRB,.356E-01_JPRB,.427E-01_JPRB,.535E-01_JPRB,&
+&.758E-01_JPRB,.507E-01_JPRB,.422E-01_JPRB,.617E-01_JPRB,.491E-01_JPRB,.367E-01_JPRB,.281E-01_JPRB,&
+&.271E-01_JPRB,.243E-01_JPRB,.204E-01_JPRB,.193E-01_JPRB,.181E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,&
+&.135E-01_JPRB,.127E-01_JPRB,.135E-01_JPRB,.179E-01_JPRB,.226E-01_JPRB,.131E-01_JPRB,.155E-01_JPRB,&
+&.171E-01_JPRB,.200E-01_JPRB,.205E-01_JPRB,.258E-01_JPRB,.345E-01_JPRB,.351E-01_JPRB,.350E-01_JPRB,&
+&.355E-01_JPRB,.435E-01_JPRB,.534E-01_JPRB,.785E-01_JPRB,.543E-01_JPRB,.507E-01_JPRB,.760E-01_JPRB,&
+&.566E-01_JPRB,.421E-01_JPRB,.530E-01_JPRB,.535E-01_JPRB,.420E-01_JPRB,.387E-01_JPRB,.276E-01_JPRB,&
+&.210E-01_JPRB,.171E-01_JPRB,.178E-01_JPRB,.342E-01_JPRB,.214E-01_JPRB,.177E-01_JPRB,.201E-01_JPRB,&
+&.250E-01_JPRB,.253E-01_JPRB,.196E-01_JPRB,.165E-01_JPRB,.149E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,&
+&.144E-01_JPRB,.141E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 30 -26.0
+ZAER (:,30, 5) = (/&
+&.126E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.114E-01_JPRB,&
+&.120E-01_JPRB,.147E-01_JPRB,.183E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.219E-01_JPRB,.366E-01_JPRB,&
+&.353E-01_JPRB,.437E-01_JPRB,.489E-01_JPRB,.663E-01_JPRB,.444E-01_JPRB,.346E-01_JPRB,.254E-01_JPRB,&
+&.228E-01_JPRB,.208E-01_JPRB,.187E-01_JPRB,.179E-01_JPRB,.166E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,&
+&.117E-01_JPRB,.993E-02_JPRB,.896E-02_JPRB,.107E-01_JPRB,.172E-01_JPRB,.214E-01_JPRB,.127E-01_JPRB,&
+&.142E-01_JPRB,.172E-01_JPRB,.181E-01_JPRB,.222E-01_JPRB,.297E-01_JPRB,.352E-01_JPRB,.410E-01_JPRB,&
+&.380E-01_JPRB,.442E-01_JPRB,.594E-01_JPRB,.781E-01_JPRB,.762E-01_JPRB,.977E-01_JPRB,.426E-01_JPRB,&
+&.326E-01_JPRB,.322E-01_JPRB,.389E-01_JPRB,.389E-01_JPRB,.243E-01_JPRB,.260E-01_JPRB,.241E-01_JPRB,&
+&.183E-01_JPRB,.190E-01_JPRB,.182E-01_JPRB,.179E-01_JPRB,.377E-01_JPRB,.380E-01_JPRB,.317E-01_JPRB,&
+&.407E-01_JPRB,.358E-01_JPRB,.228E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,&
+&.146E-01_JPRB,.135E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 31 -30.0
+ZAER (:,31, 5) = (/&
+&.145E-01_JPRB,.132E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,&
+&.122E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.146E-01_JPRB,.196E-01_JPRB,&
+&.226E-01_JPRB,.333E-01_JPRB,.460E-01_JPRB,.441E-01_JPRB,.329E-01_JPRB,.253E-01_JPRB,.313E-01_JPRB,&
+&.238E-01_JPRB,.181E-01_JPRB,.164E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,.113E-01_JPRB,&
+&.105E-01_JPRB,.868E-02_JPRB,.750E-02_JPRB,.759E-02_JPRB,.116E-01_JPRB,.162E-01_JPRB,.101E-01_JPRB,&
+&.100E-01_JPRB,.118E-01_JPRB,.145E-01_JPRB,.173E-01_JPRB,.232E-01_JPRB,.377E-01_JPRB,.365E-01_JPRB,&
+&.382E-01_JPRB,.402E-01_JPRB,.557E-01_JPRB,.676E-01_JPRB,.760E-01_JPRB,.508E-01_JPRB,.366E-01_JPRB,&
+&.270E-01_JPRB,.265E-01_JPRB,.246E-01_JPRB,.180E-01_JPRB,.979E-02_JPRB,.846E-02_JPRB,.897E-02_JPRB,&
+&.131E-01_JPRB,.212E-01_JPRB,.214E-01_JPRB,.206E-01_JPRB,.322E-01_JPRB,.840E-01_JPRB,.652E-01_JPRB,&
+&.713E-01_JPRB,.489E-01_JPRB,.306E-01_JPRB,.232E-01_JPRB,.216E-01_JPRB,.183E-01_JPRB,.155E-01_JPRB,&
+&.149E-01_JPRB,.159E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 32 -34.0
+ZAER (:,32, 5) = (/&
+&.186E-01_JPRB,.167E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,&
+&.131E-01_JPRB,.122E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,.960E-02_JPRB,&
+&.168E-01_JPRB,.233E-01_JPRB,.322E-01_JPRB,.418E-01_JPRB,.432E-01_JPRB,.309E-01_JPRB,.273E-01_JPRB,&
+&.357E-01_JPRB,.254E-01_JPRB,.182E-01_JPRB,.140E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.116E-01_JPRB,&
+&.105E-01_JPRB,.863E-02_JPRB,.890E-02_JPRB,.108E-01_JPRB,.114E-01_JPRB,.141E-01_JPRB,.186E-01_JPRB,&
+&.969E-02_JPRB,.979E-02_JPRB,.122E-01_JPRB,.154E-01_JPRB,.337E-01_JPRB,.736E-01_JPRB,.765E-01_JPRB,&
+&.655E-01_JPRB,.710E-01_JPRB,.436E-01_JPRB,.487E-01_JPRB,.435E-01_JPRB,.450E-01_JPRB,.399E-01_JPRB,&
+&.295E-01_JPRB,.252E-01_JPRB,.202E-01_JPRB,.106E-01_JPRB,.773E-02_JPRB,.634E-02_JPRB,.565E-02_JPRB,&
+&.809E-02_JPRB,.167E-01_JPRB,.200E-01_JPRB,.230E-01_JPRB,.339E-01_JPRB,.834E-01_JPRB,.626E-01_JPRB,&
+&.360E-01_JPRB,.546E-01_JPRB,.405E-01_JPRB,.327E-01_JPRB,.271E-01_JPRB,.212E-01_JPRB,.186E-01_JPRB,&
+&.183E-01_JPRB,.207E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 33 -38.0
+ZAER (:,33, 5) = (/&
+&.212E-01_JPRB,.191E-01_JPRB,.172E-01_JPRB,.181E-01_JPRB,.170E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,&
+&.150E-01_JPRB,.147E-01_JPRB,.141E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,.670E-02_JPRB,.754E-02_JPRB,&
+&.106E-01_JPRB,.143E-01_JPRB,.261E-01_JPRB,.420E-01_JPRB,.415E-01_JPRB,.407E-01_JPRB,.419E-01_JPRB,&
+&.652E-01_JPRB,.467E-01_JPRB,.272E-01_JPRB,.179E-01_JPRB,.127E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,&
+&.103E-01_JPRB,.972E-02_JPRB,.956E-02_JPRB,.115E-01_JPRB,.122E-01_JPRB,.155E-01_JPRB,.268E-01_JPRB,&
+&.136E-01_JPRB,.196E-01_JPRB,.234E-01_JPRB,.287E-01_JPRB,.459E-01_JPRB,.800E-01_JPRB,.754E-01_JPRB,&
+&.353E-01_JPRB,.349E-01_JPRB,.362E-01_JPRB,.338E-01_JPRB,.465E-01_JPRB,.470E-01_JPRB,.472E-01_JPRB,&
+&.658E-01_JPRB,.290E-01_JPRB,.173E-01_JPRB,.145E-01_JPRB,.119E-01_JPRB,.883E-02_JPRB,.855E-02_JPRB,&
+&.102E-01_JPRB,.130E-01_JPRB,.147E-01_JPRB,.221E-01_JPRB,.720E-01_JPRB,.863E-01_JPRB,.746E-01_JPRB,&
+&.551E-01_JPRB,.289E-01_JPRB,.430E-01_JPRB,.353E-01_JPRB,.288E-01_JPRB,.254E-01_JPRB,.240E-01_JPRB,&
+&.241E-01_JPRB,.237E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 34 -42.0
+ZAER (:,34, 5) = (/&
+&.253E-01_JPRB,.216E-01_JPRB,.197E-01_JPRB,.191E-01_JPRB,.176E-01_JPRB,.159E-01_JPRB,.159E-01_JPRB,&
+&.160E-01_JPRB,.161E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.148E-01_JPRB,.769E-02_JPRB,.798E-02_JPRB,&
+&.940E-02_JPRB,.127E-01_JPRB,.259E-01_JPRB,.403E-01_JPRB,.464E-01_JPRB,.495E-01_JPRB,.455E-01_JPRB,&
+&.470E-01_JPRB,.755E-01_JPRB,.421E-01_JPRB,.223E-01_JPRB,.148E-01_JPRB,.121E-01_JPRB,.105E-01_JPRB,&
+&.907E-02_JPRB,.920E-02_JPRB,.974E-02_JPRB,.110E-01_JPRB,.129E-01_JPRB,.165E-01_JPRB,.288E-01_JPRB,&
+&.164E-01_JPRB,.152E-01_JPRB,.332E-01_JPRB,.392E-01_JPRB,.449E-01_JPRB,.404E-01_JPRB,.470E-01_JPRB,&
+&.800E-01_JPRB,.696E-01_JPRB,.374E-01_JPRB,.345E-01_JPRB,.669E-01_JPRB,.398E-01_JPRB,.460E-01_JPRB,&
+&.634E-01_JPRB,.468E-01_JPRB,.268E-01_JPRB,.171E-01_JPRB,.221E-01_JPRB,.202E-01_JPRB,.161E-01_JPRB,&
+&.165E-01_JPRB,.169E-01_JPRB,.182E-01_JPRB,.208E-01_JPRB,.387E-01_JPRB,.478E-01_JPRB,.498E-01_JPRB,&
+&.643E-01_JPRB,.449E-01_JPRB,.447E-01_JPRB,.413E-01_JPRB,.319E-01_JPRB,.266E-01_JPRB,.255E-01_JPRB,&
+&.243E-01_JPRB,.257E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 35 -46.0
+ZAER (:,35, 5) = (/&
+&.260E-01_JPRB,.242E-01_JPRB,.219E-01_JPRB,.204E-01_JPRB,.215E-01_JPRB,.208E-01_JPRB,.186E-01_JPRB,&
+&.178E-01_JPRB,.166E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.159E-01_JPRB,.874E-02_JPRB,.771E-02_JPRB,&
+&.991E-02_JPRB,.154E-01_JPRB,.269E-01_JPRB,.347E-01_JPRB,.397E-01_JPRB,.462E-01_JPRB,.425E-01_JPRB,&
+&.309E-01_JPRB,.215E-01_JPRB,.182E-01_JPRB,.279E-01_JPRB,.203E-01_JPRB,.140E-01_JPRB,.104E-01_JPRB,&
+&.804E-02_JPRB,.800E-02_JPRB,.922E-02_JPRB,.114E-01_JPRB,.147E-01_JPRB,.207E-01_JPRB,.303E-01_JPRB,&
+&.381E-01_JPRB,.207E-01_JPRB,.275E-01_JPRB,.308E-01_JPRB,.308E-01_JPRB,.401E-01_JPRB,.523E-01_JPRB,&
+&.606E-01_JPRB,.509E-01_JPRB,.429E-01_JPRB,.410E-01_JPRB,.562E-01_JPRB,.351E-01_JPRB,.450E-01_JPRB,&
+&.506E-01_JPRB,.638E-01_JPRB,.442E-01_JPRB,.442E-01_JPRB,.440E-01_JPRB,.285E-01_JPRB,.215E-01_JPRB,&
+&.181E-01_JPRB,.192E-01_JPRB,.231E-01_JPRB,.291E-01_JPRB,.349E-01_JPRB,.413E-01_JPRB,.376E-01_JPRB,&
+&.310E-01_JPRB,.440E-01_JPRB,.380E-01_JPRB,.315E-01_JPRB,.246E-01_JPRB,.233E-01_JPRB,.229E-01_JPRB,&
+&.243E-01_JPRB,.245E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 36 -50.0
+ZAER (:,36, 5) = (/&
+&.232E-01_JPRB,.228E-01_JPRB,.213E-01_JPRB,.228E-01_JPRB,.243E-01_JPRB,.223E-01_JPRB,.218E-01_JPRB,&
+&.220E-01_JPRB,.150E-01_JPRB,.125E-01_JPRB,.136E-01_JPRB,.806E-02_JPRB,.874E-02_JPRB,.905E-02_JPRB,&
+&.116E-01_JPRB,.165E-01_JPRB,.240E-01_JPRB,.253E-01_JPRB,.212E-01_JPRB,.199E-01_JPRB,.183E-01_JPRB,&
+&.138E-01_JPRB,.128E-01_JPRB,.123E-01_JPRB,.168E-01_JPRB,.147E-01_JPRB,.115E-01_JPRB,.934E-02_JPRB,&
+&.767E-02_JPRB,.816E-02_JPRB,.105E-01_JPRB,.121E-01_JPRB,.141E-01_JPRB,.226E-01_JPRB,.429E-01_JPRB,&
+&.693E-01_JPRB,.365E-01_JPRB,.385E-01_JPRB,.422E-01_JPRB,.455E-01_JPRB,.527E-01_JPRB,.639E-01_JPRB,&
+&.564E-01_JPRB,.476E-01_JPRB,.437E-01_JPRB,.464E-01_JPRB,.364E-01_JPRB,.322E-01_JPRB,.365E-01_JPRB,&
+&.380E-01_JPRB,.462E-01_JPRB,.493E-01_JPRB,.583E-01_JPRB,.410E-01_JPRB,.354E-01_JPRB,.336E-01_JPRB,&
+&.288E-01_JPRB,.283E-01_JPRB,.250E-01_JPRB,.248E-01_JPRB,.240E-01_JPRB,.241E-01_JPRB,.218E-01_JPRB,&
+&.194E-01_JPRB,.179E-01_JPRB,.242E-01_JPRB,.226E-01_JPRB,.232E-01_JPRB,.229E-01_JPRB,.198E-01_JPRB,&
+&.217E-01_JPRB,.221E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 37 -54.0
+ZAER (:,37, 5) = (/&
+&.239E-01_JPRB,.234E-01_JPRB,.218E-01_JPRB,.264E-01_JPRB,.300E-01_JPRB,.243E-01_JPRB,.260E-01_JPRB,&
+&.216E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.803E-02_JPRB,.701E-02_JPRB,.810E-02_JPRB,.111E-01_JPRB,&
+&.135E-01_JPRB,.148E-01_JPRB,.162E-01_JPRB,.140E-01_JPRB,.106E-01_JPRB,.831E-02_JPRB,.149E-01_JPRB,&
+&.937E-02_JPRB,.915E-02_JPRB,.722E-02_JPRB,.562E-02_JPRB,.802E-02_JPRB,.786E-02_JPRB,.933E-02_JPRB,&
+&.882E-02_JPRB,.938E-02_JPRB,.122E-01_JPRB,.145E-01_JPRB,.180E-01_JPRB,.281E-01_JPRB,.436E-01_JPRB,&
+&.369E-01_JPRB,.624E-01_JPRB,.776E-01_JPRB,.425E-01_JPRB,.494E-01_JPRB,.536E-01_JPRB,.553E-01_JPRB,&
+&.482E-01_JPRB,.472E-01_JPRB,.422E-01_JPRB,.428E-01_JPRB,.422E-01_JPRB,.427E-01_JPRB,.398E-01_JPRB,&
+&.418E-01_JPRB,.402E-01_JPRB,.426E-01_JPRB,.550E-01_JPRB,.522E-01_JPRB,.539E-01_JPRB,.450E-01_JPRB,&
+&.327E-01_JPRB,.299E-01_JPRB,.249E-01_JPRB,.196E-01_JPRB,.161E-01_JPRB,.134E-01_JPRB,.107E-01_JPRB,&
+&.107E-01_JPRB,.185E-01_JPRB,.178E-01_JPRB,.196E-01_JPRB,.214E-01_JPRB,.174E-01_JPRB,.290E-01_JPRB,&
+&.242E-01_JPRB,.229E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 38 -58.0
+ZAER (:,38, 5) = (/&
+&.271E-01_JPRB,.270E-01_JPRB,.262E-01_JPRB,.305E-01_JPRB,.356E-01_JPRB,.412E-01_JPRB,.366E-01_JPRB,&
+&.239E-01_JPRB,.189E-01_JPRB,.990E-02_JPRB,.706E-02_JPRB,.681E-02_JPRB,.797E-02_JPRB,.969E-02_JPRB,&
+&.104E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.111E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.132E-01_JPRB,&
+&.760E-02_JPRB,.647E-02_JPRB,.502E-02_JPRB,.775E-02_JPRB,.644E-02_JPRB,.720E-02_JPRB,.819E-02_JPRB,&
+&.898E-02_JPRB,.905E-02_JPRB,.114E-01_JPRB,.151E-01_JPRB,.185E-01_JPRB,.264E-01_JPRB,.343E-01_JPRB,&
+&.391E-01_JPRB,.393E-01_JPRB,.449E-01_JPRB,.313E-01_JPRB,.339E-01_JPRB,.604E-01_JPRB,.360E-01_JPRB,&
+&.314E-01_JPRB,.358E-01_JPRB,.383E-01_JPRB,.386E-01_JPRB,.367E-01_JPRB,.394E-01_JPRB,.390E-01_JPRB,&
+&.351E-01_JPRB,.310E-01_JPRB,.261E-01_JPRB,.320E-01_JPRB,.362E-01_JPRB,.456E-01_JPRB,.437E-01_JPRB,&
+&.348E-01_JPRB,.293E-01_JPRB,.232E-01_JPRB,.187E-01_JPRB,.137E-01_JPRB,.104E-01_JPRB,.100E-01_JPRB,&
+&.788E-02_JPRB,.749E-02_JPRB,.140E-01_JPRB,.180E-01_JPRB,.217E-01_JPRB,.173E-01_JPRB,.299E-01_JPRB,&
+&.251E-01_JPRB,.269E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 39 -62.0
+ZAER (:,39, 5) = (/&
+&.265E-01_JPRB,.271E-01_JPRB,.283E-01_JPRB,.310E-01_JPRB,.187E-01_JPRB,.203E-01_JPRB,.191E-01_JPRB,&
+&.124E-01_JPRB,.842E-02_JPRB,.773E-02_JPRB,.676E-02_JPRB,.639E-02_JPRB,.714E-02_JPRB,.896E-02_JPRB,&
+&.888E-02_JPRB,.887E-02_JPRB,.917E-02_JPRB,.882E-02_JPRB,.138E-01_JPRB,.144E-01_JPRB,.139E-01_JPRB,&
+&.828E-02_JPRB,.116E-01_JPRB,.101E-01_JPRB,.764E-02_JPRB,.679E-02_JPRB,.653E-02_JPRB,.379E-02_JPRB,&
+&.596E-02_JPRB,.742E-02_JPRB,.844E-02_JPRB,.118E-01_JPRB,.152E-01_JPRB,.311E-01_JPRB,.381E-01_JPRB,&
+&.287E-01_JPRB,.280E-01_JPRB,.295E-01_JPRB,.170E-01_JPRB,.203E-01_JPRB,.350E-01_JPRB,.206E-01_JPRB,&
+&.237E-01_JPRB,.273E-01_JPRB,.286E-01_JPRB,.303E-01_JPRB,.317E-01_JPRB,.323E-01_JPRB,.310E-01_JPRB,&
+&.290E-01_JPRB,.265E-01_JPRB,.250E-01_JPRB,.232E-01_JPRB,.239E-01_JPRB,.275E-01_JPRB,.310E-01_JPRB,&
+&.321E-01_JPRB,.268E-01_JPRB,.235E-01_JPRB,.196E-01_JPRB,.134E-01_JPRB,.104E-01_JPRB,.883E-02_JPRB,&
+&.776E-02_JPRB,.814E-02_JPRB,.832E-02_JPRB,.952E-02_JPRB,.111E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.248E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 40 -66.0
+ZAER (:,40, 5) = (/&
+&.133E-01_JPRB,.157E-01_JPRB,.280E-01_JPRB,.258E-01_JPRB,.136E-01_JPRB,.143E-01_JPRB,.156E-01_JPRB,&
+&.159E-01_JPRB,.141E-01_JPRB,.966E-02_JPRB,.748E-02_JPRB,.676E-02_JPRB,.702E-02_JPRB,.745E-02_JPRB,&
+&.732E-02_JPRB,.786E-02_JPRB,.839E-02_JPRB,.796E-02_JPRB,.782E-02_JPRB,.822E-02_JPRB,.129E-01_JPRB,&
+&.728E-02_JPRB,.641E-02_JPRB,.608E-02_JPRB,.938E-02_JPRB,.755E-02_JPRB,.327E-02_JPRB,.264E-02_JPRB,&
+&.215E-02_JPRB,.494E-02_JPRB,.653E-02_JPRB,.887E-02_JPRB,.103E-01_JPRB,.163E-01_JPRB,.223E-01_JPRB,&
+&.196E-01_JPRB,.192E-01_JPRB,.196E-01_JPRB,.193E-01_JPRB,.127E-01_JPRB,.150E-01_JPRB,.167E-01_JPRB,&
+&.183E-01_JPRB,.211E-01_JPRB,.217E-01_JPRB,.224E-01_JPRB,.229E-01_JPRB,.238E-01_JPRB,.232E-01_JPRB,&
+&.238E-01_JPRB,.275E-01_JPRB,.243E-01_JPRB,.246E-01_JPRB,.244E-01_JPRB,.258E-01_JPRB,.289E-01_JPRB,&
+&.327E-01_JPRB,.278E-01_JPRB,.234E-01_JPRB,.197E-01_JPRB,.164E-01_JPRB,.116E-01_JPRB,.839E-02_JPRB,&
+&.744E-02_JPRB,.773E-02_JPRB,.868E-02_JPRB,.103E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,.109E-01_JPRB,&
+&.120E-01_JPRB,.138E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 41 -70.0
+ZAER (:,41, 5) = (/&
+&.225E-01_JPRB,.253E-01_JPRB,.283E-01_JPRB,.279E-01_JPRB,.156E-01_JPRB,.148E-01_JPRB,.138E-01_JPRB,&
+&.139E-01_JPRB,.237E-01_JPRB,.224E-01_JPRB,.111E-01_JPRB,.161E-01_JPRB,.144E-01_JPRB,.813E-02_JPRB,&
+&.793E-02_JPRB,.815E-02_JPRB,.140E-01_JPRB,.830E-02_JPRB,.782E-02_JPRB,.730E-02_JPRB,.686E-02_JPRB,&
+&.689E-02_JPRB,.655E-02_JPRB,.104E-01_JPRB,.105E-01_JPRB,.930E-02_JPRB,.376E-02_JPRB,.289E-02_JPRB,&
+&.186E-02_JPRB,.157E-02_JPRB,.205E-02_JPRB,.319E-02_JPRB,.821E-02_JPRB,.100E-01_JPRB,.109E-01_JPRB,&
+&.123E-01_JPRB,.132E-01_JPRB,.141E-01_JPRB,.154E-01_JPRB,.159E-01_JPRB,.175E-01_JPRB,.126E-01_JPRB,&
+&.152E-01_JPRB,.287E-01_JPRB,.274E-01_JPRB,.252E-01_JPRB,.271E-01_JPRB,.270E-01_JPRB,.256E-01_JPRB,&
+&.253E-01_JPRB,.208E-01_JPRB,.253E-01_JPRB,.235E-01_JPRB,.291E-01_JPRB,.246E-01_JPRB,.294E-01_JPRB,&
+&.265E-01_JPRB,.235E-01_JPRB,.179E-01_JPRB,.157E-01_JPRB,.154E-01_JPRB,.124E-01_JPRB,.109E-01_JPRB,&
+&.113E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.972E-02_JPRB,.108E-01_JPRB,.129E-01_JPRB,.119E-01_JPRB,&
+&.177E-01_JPRB,.122E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 42 -74.0
+ZAER (:,42, 5) = (/&
+&.251E-01_JPRB,.246E-01_JPRB,.227E-01_JPRB,.234E-01_JPRB,.242E-01_JPRB,.250E-01_JPRB,.228E-01_JPRB,&
+&.215E-01_JPRB,.207E-01_JPRB,.193E-01_JPRB,.184E-01_JPRB,.179E-01_JPRB,.102E-01_JPRB,.967E-02_JPRB,&
+&.152E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.142E-01_JPRB,.803E-02_JPRB,.124E-01_JPRB,&
+&.115E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.960E-02_JPRB,.547E-02_JPRB,.465E-02_JPRB,.376E-02_JPRB,&
+&.338E-02_JPRB,.279E-02_JPRB,.263E-02_JPRB,.306E-02_JPRB,.780E-02_JPRB,.889E-02_JPRB,.904E-02_JPRB,&
+&.112E-01_JPRB,.132E-01_JPRB,.142E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.172E-01_JPRB,.195E-01_JPRB,&
+&.194E-01_JPRB,.192E-01_JPRB,.195E-01_JPRB,.202E-01_JPRB,.215E-01_JPRB,.218E-01_JPRB,.206E-01_JPRB,&
+&.201E-01_JPRB,.250E-01_JPRB,.277E-01_JPRB,.273E-01_JPRB,.203E-01_JPRB,.226E-01_JPRB,.235E-01_JPRB,&
+&.241E-01_JPRB,.216E-01_JPRB,.173E-01_JPRB,.152E-01_JPRB,.242E-01_JPRB,.229E-01_JPRB,.219E-01_JPRB,&
+&.222E-01_JPRB,.227E-01_JPRB,.222E-01_JPRB,.210E-01_JPRB,.189E-01_JPRB,.177E-01_JPRB,.177E-01_JPRB,&
+&.206E-01_JPRB,.239E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 43 -78.0
+ZAER (:,43, 5) = (/&
+&.211E-01_JPRB,.212E-01_JPRB,.210E-01_JPRB,.214E-01_JPRB,.213E-01_JPRB,.202E-01_JPRB,.188E-01_JPRB,&
+&.180E-01_JPRB,.178E-01_JPRB,.174E-01_JPRB,.163E-01_JPRB,.153E-01_JPRB,.150E-01_JPRB,.152E-01_JPRB,&
+&.153E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.820E-02_JPRB,.751E-02_JPRB,.688E-02_JPRB,&
+&.105E-01_JPRB,.993E-02_JPRB,.579E-02_JPRB,.473E-02_JPRB,.417E-02_JPRB,.408E-02_JPRB,.379E-02_JPRB,&
+&.393E-02_JPRB,.427E-02_JPRB,.522E-02_JPRB,.518E-02_JPRB,.838E-02_JPRB,.954E-02_JPRB,.868E-02_JPRB,&
+&.904E-02_JPRB,.103E-01_JPRB,.108E-01_JPRB,.120E-01_JPRB,.809E-02_JPRB,.142E-01_JPRB,.146E-01_JPRB,&
+&.154E-01_JPRB,.164E-01_JPRB,.158E-01_JPRB,.153E-01_JPRB,.155E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,&
+&.156E-01_JPRB,.183E-01_JPRB,.199E-01_JPRB,.205E-01_JPRB,.205E-01_JPRB,.223E-01_JPRB,.238E-01_JPRB,&
+&.261E-01_JPRB,.167E-01_JPRB,.267E-01_JPRB,.265E-01_JPRB,.274E-01_JPRB,.275E-01_JPRB,.263E-01_JPRB,&
+&.253E-01_JPRB,.259E-01_JPRB,.265E-01_JPRB,.250E-01_JPRB,.221E-01_JPRB,.202E-01_JPRB,.194E-01_JPRB,&
+&.207E-01_JPRB,.213E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 44 -82.0
+ZAER (:,44, 5) = (/&
+&.191E-01_JPRB,.191E-01_JPRB,.189E-01_JPRB,.188E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.178E-01_JPRB,&
+&.176E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.160E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,.145E-01_JPRB,&
+&.142E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,.118E-01_JPRB,.664E-02_JPRB,&
+&.622E-02_JPRB,.586E-02_JPRB,.556E-02_JPRB,.512E-02_JPRB,.501E-02_JPRB,.501E-02_JPRB,.508E-02_JPRB,&
+&.520E-02_JPRB,.547E-02_JPRB,.588E-02_JPRB,.592E-02_JPRB,.600E-02_JPRB,.990E-02_JPRB,.992E-02_JPRB,&
+&.981E-02_JPRB,.115E-01_JPRB,.125E-01_JPRB,.134E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,.172E-01_JPRB,&
+&.168E-01_JPRB,.169E-01_JPRB,.174E-01_JPRB,.178E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.181E-01_JPRB,&
+&.178E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,.183E-01_JPRB,.186E-01_JPRB,.199E-01_JPRB,.209E-01_JPRB,&
+&.217E-01_JPRB,.225E-01_JPRB,.235E-01_JPRB,.244E-01_JPRB,.255E-01_JPRB,.251E-01_JPRB,.252E-01_JPRB,&
+&.249E-01_JPRB,.248E-01_JPRB,.245E-01_JPRB,.238E-01_JPRB,.220E-01_JPRB,.205E-01_JPRB,.200E-01_JPRB,&
+&.196E-01_JPRB,.199E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 45 -86.0
+ZAER (:,45, 5) = (/&
+&.160E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.154E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,&
+&.157E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,&
+&.152E-01_JPRB,.151E-01_JPRB,.148E-01_JPRB,.147E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,&
+&.138E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,&
+&.141E-01_JPRB,.143E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.146E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,&
+&.156E-01_JPRB,.160E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.175E-01_JPRB,.178E-01_JPRB,.179E-01_JPRB,&
+&.182E-01_JPRB,.183E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,&
+&.182E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.189E-01_JPRB,.191E-01_JPRB,.193E-01_JPRB,.196E-01_JPRB,&
+&.200E-01_JPRB,.200E-01_JPRB,.206E-01_JPRB,.213E-01_JPRB,.212E-01_JPRB,.206E-01_JPRB,.204E-01_JPRB,&
+&.200E-01_JPRB,.196E-01_JPRB,.192E-01_JPRB,.189E-01_JPRB,.179E-01_JPRB,.178E-01_JPRB,.171E-01_JPRB,&
+&.169E-01_JPRB,.165E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  5 --- lat: 46 -90.0
+ZAER (:,46, 5) = (/&
+&.189E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,&
+&.201E-01_JPRB,.201E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=5   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_05
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_06.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_06.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_06.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_06
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          June
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,6:6)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  6 --- lat:  1  90.0
+ZAER (:, 1, 6) = (/&
+&.161E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,.157E-02_JPRB,&
+&.157E-02_JPRB,.157E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  2  86.0
+ZAER (:, 2, 6) = (/&
+&.229E-02_JPRB,.232E-02_JPRB,.235E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,.237E-02_JPRB,&
+&.236E-02_JPRB,.232E-02_JPRB,.234E-02_JPRB,.231E-02_JPRB,.231E-02_JPRB,.211E-02_JPRB,.205E-02_JPRB,&
+&.205E-02_JPRB,.198E-02_JPRB,.196E-02_JPRB,.192E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.181E-02_JPRB,&
+&.176E-02_JPRB,.171E-02_JPRB,.169E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,&
+&.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.166E-02_JPRB,.168E-02_JPRB,.171E-02_JPRB,&
+&.174E-02_JPRB,.160E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.166E-02_JPRB,.167E-02_JPRB,.170E-02_JPRB,&
+&.170E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.169E-02_JPRB,&
+&.167E-02_JPRB,.165E-02_JPRB,.164E-02_JPRB,.163E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.161E-02_JPRB,&
+&.160E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,.158E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,.168E-02_JPRB,&
+&.170E-02_JPRB,.171E-02_JPRB,.172E-02_JPRB,.175E-02_JPRB,.177E-02_JPRB,.180E-02_JPRB,.183E-02_JPRB,&
+&.187E-02_JPRB,.193E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  3  82.0
+ZAER (:, 3, 6) = (/&
+&.303E-02_JPRB,.311E-02_JPRB,.317E-02_JPRB,.325E-02_JPRB,.336E-02_JPRB,.344E-02_JPRB,.339E-02_JPRB,&
+&.342E-02_JPRB,.341E-02_JPRB,.337E-02_JPRB,.334E-02_JPRB,.329E-02_JPRB,.285E-02_JPRB,.283E-02_JPRB,&
+&.284E-02_JPRB,.282E-02_JPRB,.285E-02_JPRB,.284E-02_JPRB,.274E-02_JPRB,.253E-02_JPRB,.240E-02_JPRB,&
+&.231E-02_JPRB,.229E-02_JPRB,.228E-02_JPRB,.261E-02_JPRB,.259E-02_JPRB,.262E-02_JPRB,.262E-02_JPRB,&
+&.263E-02_JPRB,.265E-02_JPRB,.215E-02_JPRB,.194E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.191E-02_JPRB,&
+&.212E-02_JPRB,.176E-02_JPRB,.178E-02_JPRB,.180E-02_JPRB,.181E-02_JPRB,.181E-02_JPRB,.180E-02_JPRB,&
+&.167E-02_JPRB,.170E-02_JPRB,.172E-02_JPRB,.175E-02_JPRB,.176E-02_JPRB,.179E-02_JPRB,.174E-02_JPRB,&
+&.171E-02_JPRB,.171E-02_JPRB,.170E-02_JPRB,.172E-02_JPRB,.172E-02_JPRB,.181E-02_JPRB,.179E-02_JPRB,&
+&.176E-02_JPRB,.174E-02_JPRB,.174E-02_JPRB,.175E-02_JPRB,.192E-02_JPRB,.194E-02_JPRB,.195E-02_JPRB,&
+&.194E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,.233E-02_JPRB,.230E-02_JPRB,.231E-02_JPRB,.233E-02_JPRB,&
+&.242E-02_JPRB,.253E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  4  78.0
+ZAER (:, 4, 6) = (/&
+&.349E-02_JPRB,.357E-02_JPRB,.349E-02_JPRB,.335E-02_JPRB,.345E-02_JPRB,.367E-02_JPRB,.393E-02_JPRB,&
+&.408E-02_JPRB,.410E-02_JPRB,.328E-02_JPRB,.314E-02_JPRB,.314E-02_JPRB,.304E-02_JPRB,.302E-02_JPRB,&
+&.299E-02_JPRB,.305E-02_JPRB,.304E-02_JPRB,.311E-02_JPRB,.305E-02_JPRB,.291E-02_JPRB,.287E-02_JPRB,&
+&.303E-02_JPRB,.301E-02_JPRB,.309E-02_JPRB,.351E-02_JPRB,.369E-02_JPRB,.395E-02_JPRB,.418E-02_JPRB,&
+&.409E-02_JPRB,.397E-02_JPRB,.345E-02_JPRB,.305E-02_JPRB,.269E-02_JPRB,.185E-02_JPRB,.169E-02_JPRB,&
+&.180E-02_JPRB,.172E-02_JPRB,.179E-02_JPRB,.190E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,.188E-02_JPRB,&
+&.191E-02_JPRB,.190E-02_JPRB,.191E-02_JPRB,.198E-02_JPRB,.193E-02_JPRB,.185E-02_JPRB,.188E-02_JPRB,&
+&.189E-02_JPRB,.194E-02_JPRB,.183E-02_JPRB,.187E-02_JPRB,.193E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,&
+&.190E-02_JPRB,.197E-02_JPRB,.194E-02_JPRB,.197E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,&
+&.217E-02_JPRB,.215E-02_JPRB,.207E-02_JPRB,.217E-02_JPRB,.211E-02_JPRB,.213E-02_JPRB,.280E-02_JPRB,&
+&.300E-02_JPRB,.323E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  5  74.0
+ZAER (:, 5, 6) = (/&
+&.324E-02_JPRB,.331E-02_JPRB,.343E-02_JPRB,.356E-02_JPRB,.371E-02_JPRB,.346E-02_JPRB,.343E-02_JPRB,&
+&.392E-02_JPRB,.445E-02_JPRB,.418E-02_JPRB,.399E-02_JPRB,.390E-02_JPRB,.381E-02_JPRB,.381E-02_JPRB,&
+&.397E-02_JPRB,.406E-02_JPRB,.419E-02_JPRB,.431E-02_JPRB,.404E-02_JPRB,.388E-02_JPRB,.385E-02_JPRB,&
+&.374E-02_JPRB,.357E-02_JPRB,.373E-02_JPRB,.435E-02_JPRB,.493E-02_JPRB,.524E-02_JPRB,.531E-02_JPRB,&
+&.484E-02_JPRB,.437E-02_JPRB,.426E-02_JPRB,.406E-02_JPRB,.362E-02_JPRB,.279E-02_JPRB,.215E-02_JPRB,&
+&.191E-02_JPRB,.181E-02_JPRB,.178E-02_JPRB,.181E-02_JPRB,.192E-02_JPRB,.203E-02_JPRB,.216E-02_JPRB,&
+&.219E-02_JPRB,.212E-02_JPRB,.203E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,.203E-02_JPRB,.204E-02_JPRB,&
+&.218E-02_JPRB,.213E-02_JPRB,.191E-02_JPRB,.184E-02_JPRB,.188E-02_JPRB,.196E-02_JPRB,.202E-02_JPRB,&
+&.209E-02_JPRB,.214E-02_JPRB,.219E-02_JPRB,.223E-02_JPRB,.226E-02_JPRB,.227E-02_JPRB,.227E-02_JPRB,&
+&.220E-02_JPRB,.217E-02_JPRB,.218E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,.245E-02_JPRB,.278E-02_JPRB,&
+&.308E-02_JPRB,.327E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  6  70.0
+ZAER (:, 6, 6) = (/&
+&.335E-02_JPRB,.342E-02_JPRB,.373E-02_JPRB,.378E-02_JPRB,.394E-02_JPRB,.347E-02_JPRB,.332E-02_JPRB,&
+&.348E-02_JPRB,.364E-02_JPRB,.392E-02_JPRB,.416E-02_JPRB,.426E-02_JPRB,.431E-02_JPRB,.442E-02_JPRB,&
+&.456E-02_JPRB,.458E-02_JPRB,.451E-02_JPRB,.416E-02_JPRB,.420E-02_JPRB,.419E-02_JPRB,.460E-02_JPRB,&
+&.477E-02_JPRB,.471E-02_JPRB,.444E-02_JPRB,.477E-02_JPRB,.504E-02_JPRB,.532E-02_JPRB,.529E-02_JPRB,&
+&.554E-02_JPRB,.482E-02_JPRB,.444E-02_JPRB,.441E-02_JPRB,.433E-02_JPRB,.378E-02_JPRB,.311E-02_JPRB,&
+&.253E-02_JPRB,.223E-02_JPRB,.244E-02_JPRB,.268E-02_JPRB,.291E-02_JPRB,.304E-02_JPRB,.311E-02_JPRB,&
+&.307E-02_JPRB,.303E-02_JPRB,.293E-02_JPRB,.262E-02_JPRB,.233E-02_JPRB,.228E-02_JPRB,.233E-02_JPRB,&
+&.270E-02_JPRB,.309E-02_JPRB,.275E-02_JPRB,.214E-02_JPRB,.191E-02_JPRB,.208E-02_JPRB,.224E-02_JPRB,&
+&.234E-02_JPRB,.234E-02_JPRB,.237E-02_JPRB,.248E-02_JPRB,.257E-02_JPRB,.255E-02_JPRB,.249E-02_JPRB,&
+&.236E-02_JPRB,.238E-02_JPRB,.264E-02_JPRB,.295E-02_JPRB,.306E-02_JPRB,.323E-02_JPRB,.330E-02_JPRB,&
+&.351E-02_JPRB,.364E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  7  66.0
+ZAER (:, 7, 6) = (/&
+&.398E-02_JPRB,.376E-02_JPRB,.388E-02_JPRB,.382E-02_JPRB,.364E-02_JPRB,.363E-02_JPRB,.356E-02_JPRB,&
+&.348E-02_JPRB,.335E-02_JPRB,.360E-02_JPRB,.372E-02_JPRB,.360E-02_JPRB,.351E-02_JPRB,.355E-02_JPRB,&
+&.359E-02_JPRB,.356E-02_JPRB,.336E-02_JPRB,.326E-02_JPRB,.358E-02_JPRB,.380E-02_JPRB,.391E-02_JPRB,&
+&.434E-02_JPRB,.465E-02_JPRB,.466E-02_JPRB,.458E-02_JPRB,.538E-02_JPRB,.550E-02_JPRB,.526E-02_JPRB,&
+&.540E-02_JPRB,.468E-02_JPRB,.435E-02_JPRB,.444E-02_JPRB,.444E-02_JPRB,.422E-02_JPRB,.399E-02_JPRB,&
+&.359E-02_JPRB,.334E-02_JPRB,.324E-02_JPRB,.343E-02_JPRB,.344E-02_JPRB,.341E-02_JPRB,.319E-02_JPRB,&
+&.413E-02_JPRB,.446E-02_JPRB,.432E-02_JPRB,.425E-02_JPRB,.430E-02_JPRB,.431E-02_JPRB,.459E-02_JPRB,&
+&.470E-02_JPRB,.481E-02_JPRB,.437E-02_JPRB,.367E-02_JPRB,.331E-02_JPRB,.325E-02_JPRB,.308E-02_JPRB,&
+&.298E-02_JPRB,.290E-02_JPRB,.327E-02_JPRB,.384E-02_JPRB,.392E-02_JPRB,.366E-02_JPRB,.373E-02_JPRB,&
+&.357E-02_JPRB,.373E-02_JPRB,.393E-02_JPRB,.429E-02_JPRB,.451E-02_JPRB,.445E-02_JPRB,.437E-02_JPRB,&
+&.426E-02_JPRB,.425E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  8  62.0
+ZAER (:, 8, 6) = (/&
+&.385E-02_JPRB,.360E-02_JPRB,.357E-02_JPRB,.352E-02_JPRB,.361E-02_JPRB,.371E-02_JPRB,.348E-02_JPRB,&
+&.344E-02_JPRB,.356E-02_JPRB,.357E-02_JPRB,.359E-02_JPRB,.336E-02_JPRB,.309E-02_JPRB,.305E-02_JPRB,&
+&.331E-02_JPRB,.329E-02_JPRB,.332E-02_JPRB,.339E-02_JPRB,.374E-02_JPRB,.413E-02_JPRB,.392E-02_JPRB,&
+&.398E-02_JPRB,.457E-02_JPRB,.476E-02_JPRB,.493E-02_JPRB,.460E-02_JPRB,.519E-02_JPRB,.559E-02_JPRB,&
+&.502E-02_JPRB,.438E-02_JPRB,.442E-02_JPRB,.475E-02_JPRB,.459E-02_JPRB,.432E-02_JPRB,.427E-02_JPRB,&
+&.400E-02_JPRB,.395E-02_JPRB,.412E-02_JPRB,.447E-02_JPRB,.417E-02_JPRB,.372E-02_JPRB,.358E-02_JPRB,&
+&.394E-02_JPRB,.489E-02_JPRB,.475E-02_JPRB,.442E-02_JPRB,.473E-02_JPRB,.482E-02_JPRB,.510E-02_JPRB,&
+&.525E-02_JPRB,.549E-02_JPRB,.551E-02_JPRB,.493E-02_JPRB,.506E-02_JPRB,.465E-02_JPRB,.395E-02_JPRB,&
+&.361E-02_JPRB,.341E-02_JPRB,.364E-02_JPRB,.465E-02_JPRB,.484E-02_JPRB,.423E-02_JPRB,.441E-02_JPRB,&
+&.441E-02_JPRB,.469E-02_JPRB,.490E-02_JPRB,.506E-02_JPRB,.483E-02_JPRB,.473E-02_JPRB,.443E-02_JPRB,&
+&.423E-02_JPRB,.401E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat:  9  58.0
+ZAER (:, 9, 6) = (/&
+&.412E-02_JPRB,.388E-02_JPRB,.359E-02_JPRB,.343E-02_JPRB,.349E-02_JPRB,.363E-02_JPRB,.351E-02_JPRB,&
+&.333E-02_JPRB,.316E-02_JPRB,.332E-02_JPRB,.332E-02_JPRB,.318E-02_JPRB,.328E-02_JPRB,.341E-02_JPRB,&
+&.360E-02_JPRB,.366E-02_JPRB,.369E-02_JPRB,.366E-02_JPRB,.357E-02_JPRB,.363E-02_JPRB,.372E-02_JPRB,&
+&.392E-02_JPRB,.437E-02_JPRB,.444E-02_JPRB,.470E-02_JPRB,.432E-02_JPRB,.456E-02_JPRB,.529E-02_JPRB,&
+&.436E-02_JPRB,.413E-02_JPRB,.465E-02_JPRB,.476E-02_JPRB,.478E-02_JPRB,.442E-02_JPRB,.417E-02_JPRB,&
+&.424E-02_JPRB,.442E-02_JPRB,.431E-02_JPRB,.458E-02_JPRB,.467E-02_JPRB,.455E-02_JPRB,.430E-02_JPRB,&
+&.372E-02_JPRB,.388E-02_JPRB,.405E-02_JPRB,.392E-02_JPRB,.429E-02_JPRB,.438E-02_JPRB,.443E-02_JPRB,&
+&.478E-02_JPRB,.521E-02_JPRB,.543E-02_JPRB,.541E-02_JPRB,.486E-02_JPRB,.435E-02_JPRB,.390E-02_JPRB,&
+&.356E-02_JPRB,.351E-02_JPRB,.348E-02_JPRB,.372E-02_JPRB,.384E-02_JPRB,.386E-02_JPRB,.413E-02_JPRB,&
+&.435E-02_JPRB,.457E-02_JPRB,.480E-02_JPRB,.483E-02_JPRB,.453E-02_JPRB,.424E-02_JPRB,.425E-02_JPRB,&
+&.436E-02_JPRB,.437E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 10  54.0
+ZAER (:,10, 6) = (/&
+&.426E-02_JPRB,.394E-02_JPRB,.350E-02_JPRB,.329E-02_JPRB,.298E-02_JPRB,.290E-02_JPRB,.291E-02_JPRB,&
+&.288E-02_JPRB,.297E-02_JPRB,.287E-02_JPRB,.302E-02_JPRB,.319E-02_JPRB,.337E-02_JPRB,.359E-02_JPRB,&
+&.388E-02_JPRB,.402E-02_JPRB,.404E-02_JPRB,.409E-02_JPRB,.408E-02_JPRB,.396E-02_JPRB,.378E-02_JPRB,&
+&.377E-02_JPRB,.263E-02_JPRB,.471E-02_JPRB,.461E-02_JPRB,.458E-02_JPRB,.571E-02_JPRB,.596E-02_JPRB,&
+&.476E-02_JPRB,.446E-02_JPRB,.471E-02_JPRB,.490E-02_JPRB,.487E-02_JPRB,.457E-02_JPRB,.467E-02_JPRB,&
+&.462E-02_JPRB,.442E-02_JPRB,.426E-02_JPRB,.416E-02_JPRB,.404E-02_JPRB,.398E-02_JPRB,.406E-02_JPRB,&
+&.420E-02_JPRB,.418E-02_JPRB,.398E-02_JPRB,.401E-02_JPRB,.451E-02_JPRB,.460E-02_JPRB,.465E-02_JPRB,&
+&.482E-02_JPRB,.485E-02_JPRB,.490E-02_JPRB,.493E-02_JPRB,.504E-02_JPRB,.495E-02_JPRB,.442E-02_JPRB,&
+&.411E-02_JPRB,.401E-02_JPRB,.398E-02_JPRB,.393E-02_JPRB,.392E-02_JPRB,.416E-02_JPRB,.441E-02_JPRB,&
+&.445E-02_JPRB,.425E-02_JPRB,.402E-02_JPRB,.425E-02_JPRB,.448E-02_JPRB,.430E-02_JPRB,.404E-02_JPRB,&
+&.407E-02_JPRB,.418E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 11  50.0
+ZAER (:,11, 6) = (/&
+&.378E-02_JPRB,.389E-02_JPRB,.346E-02_JPRB,.317E-02_JPRB,.284E-02_JPRB,.270E-02_JPRB,.256E-02_JPRB,&
+&.268E-02_JPRB,.290E-02_JPRB,.286E-02_JPRB,.314E-02_JPRB,.334E-02_JPRB,.344E-02_JPRB,.377E-02_JPRB,&
+&.403E-02_JPRB,.449E-02_JPRB,.460E-02_JPRB,.435E-02_JPRB,.434E-02_JPRB,.418E-02_JPRB,.382E-02_JPRB,&
+&.368E-02_JPRB,.238E-02_JPRB,.439E-02_JPRB,.476E-02_JPRB,.624E-02_JPRB,.733E-02_JPRB,.685E-02_JPRB,&
+&.616E-02_JPRB,.562E-02_JPRB,.519E-02_JPRB,.522E-02_JPRB,.551E-02_JPRB,.553E-02_JPRB,.551E-02_JPRB,&
+&.549E-02_JPRB,.525E-02_JPRB,.477E-02_JPRB,.457E-02_JPRB,.440E-02_JPRB,.434E-02_JPRB,.444E-02_JPRB,&
+&.419E-02_JPRB,.437E-02_JPRB,.438E-02_JPRB,.462E-02_JPRB,.500E-02_JPRB,.477E-02_JPRB,.446E-02_JPRB,&
+&.443E-02_JPRB,.425E-02_JPRB,.413E-02_JPRB,.453E-02_JPRB,.508E-02_JPRB,.469E-02_JPRB,.461E-02_JPRB,&
+&.480E-02_JPRB,.503E-02_JPRB,.496E-02_JPRB,.448E-02_JPRB,.444E-02_JPRB,.450E-02_JPRB,.426E-02_JPRB,&
+&.434E-02_JPRB,.410E-02_JPRB,.392E-02_JPRB,.422E-02_JPRB,.463E-02_JPRB,.432E-02_JPRB,.449E-02_JPRB,&
+&.378E-02_JPRB,.354E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 12  46.0
+ZAER (:,12, 6) = (/&
+&.446E-02_JPRB,.436E-02_JPRB,.391E-02_JPRB,.376E-02_JPRB,.346E-02_JPRB,.330E-02_JPRB,.306E-02_JPRB,&
+&.309E-02_JPRB,.319E-02_JPRB,.319E-02_JPRB,.314E-02_JPRB,.336E-02_JPRB,.360E-02_JPRB,.394E-02_JPRB,&
+&.438E-02_JPRB,.478E-02_JPRB,.487E-02_JPRB,.465E-02_JPRB,.463E-02_JPRB,.434E-02_JPRB,.389E-02_JPRB,&
+&.361E-02_JPRB,.241E-02_JPRB,.502E-02_JPRB,.698E-02_JPRB,.932E-02_JPRB,.909E-02_JPRB,.875E-02_JPRB,&
+&.771E-02_JPRB,.733E-02_JPRB,.718E-02_JPRB,.734E-02_JPRB,.719E-02_JPRB,.728E-02_JPRB,.683E-02_JPRB,&
+&.628E-02_JPRB,.572E-02_JPRB,.546E-02_JPRB,.510E-02_JPRB,.493E-02_JPRB,.512E-02_JPRB,.488E-02_JPRB,&
+&.495E-02_JPRB,.529E-02_JPRB,.569E-02_JPRB,.586E-02_JPRB,.572E-02_JPRB,.538E-02_JPRB,.509E-02_JPRB,&
+&.468E-02_JPRB,.430E-02_JPRB,.411E-02_JPRB,.449E-02_JPRB,.454E-02_JPRB,.477E-02_JPRB,.491E-02_JPRB,&
+&.510E-02_JPRB,.512E-02_JPRB,.520E-02_JPRB,.499E-02_JPRB,.483E-02_JPRB,.447E-02_JPRB,.423E-02_JPRB,&
+&.434E-02_JPRB,.422E-02_JPRB,.419E-02_JPRB,.451E-02_JPRB,.467E-02_JPRB,.494E-02_JPRB,.513E-02_JPRB,&
+&.441E-02_JPRB,.420E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 13  42.0
+ZAER (:,13, 6) = (/&
+&.579E-02_JPRB,.469E-02_JPRB,.465E-02_JPRB,.448E-02_JPRB,.381E-02_JPRB,.367E-02_JPRB,.343E-02_JPRB,&
+&.336E-02_JPRB,.350E-02_JPRB,.358E-02_JPRB,.384E-02_JPRB,.416E-02_JPRB,.449E-02_JPRB,.491E-02_JPRB,&
+&.507E-02_JPRB,.509E-02_JPRB,.501E-02_JPRB,.496E-02_JPRB,.489E-02_JPRB,.442E-02_JPRB,.404E-02_JPRB,&
+&.399E-02_JPRB,.338E-02_JPRB,.506E-02_JPRB,.103E-01_JPRB,.909E-02_JPRB,.870E-02_JPRB,.828E-02_JPRB,&
+&.829E-02_JPRB,.838E-02_JPRB,.846E-02_JPRB,.831E-02_JPRB,.791E-02_JPRB,.740E-02_JPRB,.688E-02_JPRB,&
+&.649E-02_JPRB,.640E-02_JPRB,.625E-02_JPRB,.612E-02_JPRB,.627E-02_JPRB,.654E-02_JPRB,.608E-02_JPRB,&
+&.653E-02_JPRB,.735E-02_JPRB,.767E-02_JPRB,.714E-02_JPRB,.663E-02_JPRB,.604E-02_JPRB,.574E-02_JPRB,&
+&.526E-02_JPRB,.513E-02_JPRB,.488E-02_JPRB,.501E-02_JPRB,.489E-02_JPRB,.513E-02_JPRB,.503E-02_JPRB,&
+&.492E-02_JPRB,.475E-02_JPRB,.434E-02_JPRB,.432E-02_JPRB,.471E-02_JPRB,.444E-02_JPRB,.411E-02_JPRB,&
+&.420E-02_JPRB,.441E-02_JPRB,.470E-02_JPRB,.492E-02_JPRB,.492E-02_JPRB,.597E-02_JPRB,.661E-02_JPRB,&
+&.584E-02_JPRB,.512E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 14  38.0
+ZAER (:,14, 6) = (/&
+&.560E-02_JPRB,.517E-02_JPRB,.516E-02_JPRB,.502E-02_JPRB,.463E-02_JPRB,.422E-02_JPRB,.422E-02_JPRB,&
+&.423E-02_JPRB,.424E-02_JPRB,.462E-02_JPRB,.489E-02_JPRB,.518E-02_JPRB,.543E-02_JPRB,.550E-02_JPRB,&
+&.543E-02_JPRB,.538E-02_JPRB,.542E-02_JPRB,.532E-02_JPRB,.490E-02_JPRB,.457E-02_JPRB,.446E-02_JPRB,&
+&.548E-02_JPRB,.490E-02_JPRB,.901E-02_JPRB,.741E-02_JPRB,.118E-01_JPRB,.103E-01_JPRB,.100E-01_JPRB,&
+&.102E-01_JPRB,.103E-01_JPRB,.986E-02_JPRB,.923E-02_JPRB,.807E-02_JPRB,.720E-02_JPRB,.670E-02_JPRB,&
+&.633E-02_JPRB,.631E-02_JPRB,.633E-02_JPRB,.630E-02_JPRB,.737E-02_JPRB,.776E-02_JPRB,.846E-02_JPRB,&
+&.959E-02_JPRB,.101E-01_JPRB,.953E-02_JPRB,.856E-02_JPRB,.753E-02_JPRB,.676E-02_JPRB,.652E-02_JPRB,&
+&.634E-02_JPRB,.577E-02_JPRB,.525E-02_JPRB,.525E-02_JPRB,.524E-02_JPRB,.547E-02_JPRB,.521E-02_JPRB,&
+&.481E-02_JPRB,.438E-02_JPRB,.421E-02_JPRB,.427E-02_JPRB,.454E-02_JPRB,.474E-02_JPRB,.451E-02_JPRB,&
+&.472E-02_JPRB,.561E-02_JPRB,.363E-02_JPRB,.591E-02_JPRB,.570E-02_JPRB,.625E-02_JPRB,.687E-02_JPRB,&
+&.703E-02_JPRB,.573E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 15  34.0
+ZAER (:,15, 6) = (/&
+&.622E-02_JPRB,.714E-02_JPRB,.760E-02_JPRB,.744E-02_JPRB,.702E-02_JPRB,.626E-02_JPRB,.583E-02_JPRB,&
+&.553E-02_JPRB,.552E-02_JPRB,.588E-02_JPRB,.617E-02_JPRB,.671E-02_JPRB,.678E-02_JPRB,.695E-02_JPRB,&
+&.663E-02_JPRB,.591E-02_JPRB,.570E-02_JPRB,.539E-02_JPRB,.475E-02_JPRB,.468E-02_JPRB,.532E-02_JPRB,&
+&.110E-01_JPRB,.969E-02_JPRB,.148E-01_JPRB,.916E-02_JPRB,.934E-02_JPRB,.148E-01_JPRB,.145E-01_JPRB,&
+&.136E-01_JPRB,.115E-01_JPRB,.101E-01_JPRB,.940E-02_JPRB,.870E-02_JPRB,.776E-02_JPRB,.711E-02_JPRB,&
+&.675E-02_JPRB,.654E-02_JPRB,.648E-02_JPRB,.691E-02_JPRB,.974E-02_JPRB,.660E-02_JPRB,.142E-01_JPRB,&
+&.158E-01_JPRB,.161E-01_JPRB,.123E-01_JPRB,.105E-01_JPRB,.932E-02_JPRB,.800E-02_JPRB,.761E-02_JPRB,&
+&.716E-02_JPRB,.658E-02_JPRB,.635E-02_JPRB,.656E-02_JPRB,.633E-02_JPRB,.595E-02_JPRB,.590E-02_JPRB,&
+&.554E-02_JPRB,.502E-02_JPRB,.478E-02_JPRB,.484E-02_JPRB,.324E-02_JPRB,.636E-02_JPRB,.584E-02_JPRB,&
+&.625E-02_JPRB,.439E-02_JPRB,.548E-02_JPRB,.514E-02_JPRB,.659E-02_JPRB,.639E-02_JPRB,.696E-02_JPRB,&
+&.699E-02_JPRB,.588E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 16  30.0
+ZAER (:,16, 6) = (/&
+&.944E-02_JPRB,.120E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.110E-01_JPRB,.976E-02_JPRB,.865E-02_JPRB,&
+&.785E-02_JPRB,.751E-02_JPRB,.736E-02_JPRB,.798E-02_JPRB,.887E-02_JPRB,.965E-02_JPRB,.947E-02_JPRB,&
+&.791E-02_JPRB,.683E-02_JPRB,.614E-02_JPRB,.554E-02_JPRB,.537E-02_JPRB,.567E-02_JPRB,.880E-02_JPRB,&
+&.222E-01_JPRB,.136E-01_JPRB,.146E-01_JPRB,.149E-01_JPRB,.176E-01_JPRB,.244E-01_JPRB,.225E-01_JPRB,&
+&.168E-01_JPRB,.142E-01_JPRB,.119E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.932E-02_JPRB,.881E-02_JPRB,&
+&.857E-02_JPRB,.899E-02_JPRB,.910E-02_JPRB,.108E-01_JPRB,.178E-01_JPRB,.168E-01_JPRB,.205E-01_JPRB,&
+&.201E-01_JPRB,.345E-01_JPRB,.188E-01_JPRB,.129E-01_JPRB,.106E-01_JPRB,.962E-02_JPRB,.927E-02_JPRB,&
+&.914E-02_JPRB,.927E-02_JPRB,.992E-02_JPRB,.987E-02_JPRB,.878E-02_JPRB,.805E-02_JPRB,.766E-02_JPRB,&
+&.710E-02_JPRB,.652E-02_JPRB,.672E-02_JPRB,.468E-02_JPRB,.527E-02_JPRB,.581E-02_JPRB,.523E-02_JPRB,&
+&.681E-02_JPRB,.723E-02_JPRB,.772E-02_JPRB,.719E-02_JPRB,.873E-02_JPRB,.734E-02_JPRB,.753E-02_JPRB,&
+&.787E-02_JPRB,.789E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 17  26.0
+ZAER (:,17, 6) = (/&
+&.159E-01_JPRB,.194E-01_JPRB,.185E-01_JPRB,.172E-01_JPRB,.160E-01_JPRB,.141E-01_JPRB,.124E-01_JPRB,&
+&.114E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,.108E-01_JPRB,.116E-01_JPRB,.128E-01_JPRB,.110E-01_JPRB,&
+&.891E-02_JPRB,.762E-02_JPRB,.704E-02_JPRB,.701E-02_JPRB,.695E-02_JPRB,.804E-02_JPRB,.113E-01_JPRB,&
+&.215E-01_JPRB,.182E-01_JPRB,.220E-01_JPRB,.262E-01_JPRB,.247E-01_JPRB,.237E-01_JPRB,.393E-01_JPRB,&
+&.238E-01_JPRB,.195E-01_JPRB,.168E-01_JPRB,.149E-01_JPRB,.138E-01_JPRB,.120E-01_JPRB,.112E-01_JPRB,&
+&.116E-01_JPRB,.140E-01_JPRB,.186E-01_JPRB,.286E-01_JPRB,.210E-01_JPRB,.243E-01_JPRB,.374E-01_JPRB,&
+&.368E-01_JPRB,.545E-01_JPRB,.242E-01_JPRB,.166E-01_JPRB,.141E-01_JPRB,.132E-01_JPRB,.136E-01_JPRB,&
+&.149E-01_JPRB,.158E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,.138E-01_JPRB,.125E-01_JPRB,.114E-01_JPRB,&
+&.104E-01_JPRB,.100E-01_JPRB,.115E-01_JPRB,.889E-02_JPRB,.102E-01_JPRB,.966E-02_JPRB,.112E-01_JPRB,&
+&.123E-01_JPRB,.856E-02_JPRB,.796E-02_JPRB,.768E-02_JPRB,.115E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,&
+&.113E-01_JPRB,.125E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 18  22.0
+ZAER (:,18, 6) = (/&
+&.252E-01_JPRB,.254E-01_JPRB,.229E-01_JPRB,.206E-01_JPRB,.194E-01_JPRB,.174E-01_JPRB,.165E-01_JPRB,&
+&.162E-01_JPRB,.155E-01_JPRB,.144E-01_JPRB,.150E-01_JPRB,.157E-01_JPRB,.154E-01_JPRB,.124E-01_JPRB,&
+&.107E-01_JPRB,.981E-02_JPRB,.902E-02_JPRB,.946E-02_JPRB,.924E-02_JPRB,.102E-01_JPRB,.150E-01_JPRB,&
+&.403E-01_JPRB,.328E-01_JPRB,.227E-01_JPRB,.243E-01_JPRB,.282E-01_JPRB,.302E-01_JPRB,.229E-01_JPRB,&
+&.276E-01_JPRB,.249E-01_JPRB,.226E-01_JPRB,.207E-01_JPRB,.183E-01_JPRB,.175E-01_JPRB,.175E-01_JPRB,&
+&.203E-01_JPRB,.276E-01_JPRB,.390E-01_JPRB,.493E-01_JPRB,.301E-01_JPRB,.259E-01_JPRB,.294E-01_JPRB,&
+&.347E-01_JPRB,.262E-01_JPRB,.251E-01_JPRB,.119E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.207E-01_JPRB,&
+&.197E-01_JPRB,.198E-01_JPRB,.197E-01_JPRB,.179E-01_JPRB,.164E-01_JPRB,.149E-01_JPRB,.137E-01_JPRB,&
+&.133E-01_JPRB,.142E-01_JPRB,.170E-01_JPRB,.224E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.148E-01_JPRB,&
+&.139E-01_JPRB,.929E-02_JPRB,.884E-02_JPRB,.134E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.129E-01_JPRB,&
+&.161E-01_JPRB,.219E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 19  18.0
+ZAER (:,19, 6) = (/&
+&.294E-01_JPRB,.285E-01_JPRB,.262E-01_JPRB,.231E-01_JPRB,.225E-01_JPRB,.213E-01_JPRB,.208E-01_JPRB,&
+&.205E-01_JPRB,.202E-01_JPRB,.199E-01_JPRB,.196E-01_JPRB,.202E-01_JPRB,.191E-01_JPRB,.160E-01_JPRB,&
+&.146E-01_JPRB,.133E-01_JPRB,.135E-01_JPRB,.141E-01_JPRB,.141E-01_JPRB,.158E-01_JPRB,.273E-01_JPRB,&
+&.624E-01_JPRB,.207E-01_JPRB,.171E-01_JPRB,.242E-01_JPRB,.262E-01_JPRB,.276E-01_JPRB,.222E-01_JPRB,&
+&.165E-01_JPRB,.243E-01_JPRB,.237E-01_JPRB,.241E-01_JPRB,.251E-01_JPRB,.256E-01_JPRB,.278E-01_JPRB,&
+&.352E-01_JPRB,.465E-01_JPRB,.603E-01_JPRB,.690E-01_JPRB,.340E-01_JPRB,.279E-01_JPRB,.256E-01_JPRB,&
+&.199E-01_JPRB,.171E-01_JPRB,.224E-01_JPRB,.126E-01_JPRB,.201E-01_JPRB,.219E-01_JPRB,.221E-01_JPRB,&
+&.214E-01_JPRB,.216E-01_JPRB,.212E-01_JPRB,.198E-01_JPRB,.194E-01_JPRB,.177E-01_JPRB,.171E-01_JPRB,&
+&.173E-01_JPRB,.193E-01_JPRB,.226E-01_JPRB,.262E-01_JPRB,.264E-01_JPRB,.140E-01_JPRB,.128E-01_JPRB,&
+&.118E-01_JPRB,.924E-02_JPRB,.907E-02_JPRB,.142E-01_JPRB,.145E-01_JPRB,.165E-01_JPRB,.222E-01_JPRB,&
+&.328E-01_JPRB,.330E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 20  14.0
+ZAER (:,20, 6) = (/&
+&.344E-01_JPRB,.310E-01_JPRB,.284E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,.266E-01_JPRB,.267E-01_JPRB,&
+&.270E-01_JPRB,.280E-01_JPRB,.274E-01_JPRB,.265E-01_JPRB,.268E-01_JPRB,.256E-01_JPRB,.213E-01_JPRB,&
+&.198E-01_JPRB,.194E-01_JPRB,.203E-01_JPRB,.244E-01_JPRB,.264E-01_JPRB,.312E-01_JPRB,.480E-01_JPRB,&
+&.232E-01_JPRB,.164E-01_JPRB,.209E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.201E-01_JPRB,.181E-01_JPRB,&
+&.157E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,.270E-01_JPRB,.276E-01_JPRB,.324E-01_JPRB,.402E-01_JPRB,&
+&.473E-01_JPRB,.533E-01_JPRB,.649E-01_JPRB,.728E-01_JPRB,.392E-01_JPRB,.312E-01_JPRB,.258E-01_JPRB,&
+&.132E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.206E-01_JPRB,.199E-01_JPRB,.208E-01_JPRB,.212E-01_JPRB,&
+&.208E-01_JPRB,.202E-01_JPRB,.202E-01_JPRB,.216E-01_JPRB,.220E-01_JPRB,.223E-01_JPRB,.241E-01_JPRB,&
+&.264E-01_JPRB,.287E-01_JPRB,.279E-01_JPRB,.266E-01_JPRB,.260E-01_JPRB,.231E-01_JPRB,.126E-01_JPRB,&
+&.107E-01_JPRB,.174E-01_JPRB,.186E-01_JPRB,.202E-01_JPRB,.227E-01_JPRB,.296E-01_JPRB,.428E-01_JPRB,&
+&.457E-01_JPRB,.404E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 21  10.0
+ZAER (:,21, 6) = (/&
+&.354E-01_JPRB,.337E-01_JPRB,.324E-01_JPRB,.317E-01_JPRB,.320E-01_JPRB,.330E-01_JPRB,.332E-01_JPRB,&
+&.335E-01_JPRB,.342E-01_JPRB,.343E-01_JPRB,.336E-01_JPRB,.337E-01_JPRB,.326E-01_JPRB,.309E-01_JPRB,&
+&.311E-01_JPRB,.293E-01_JPRB,.313E-01_JPRB,.365E-01_JPRB,.420E-01_JPRB,.483E-01_JPRB,.528E-01_JPRB,&
+&.212E-01_JPRB,.206E-01_JPRB,.204E-01_JPRB,.201E-01_JPRB,.195E-01_JPRB,.198E-01_JPRB,.196E-01_JPRB,&
+&.180E-01_JPRB,.269E-01_JPRB,.290E-01_JPRB,.301E-01_JPRB,.305E-01_JPRB,.338E-01_JPRB,.404E-01_JPRB,&
+&.425E-01_JPRB,.443E-01_JPRB,.466E-01_JPRB,.476E-01_JPRB,.269E-01_JPRB,.290E-01_JPRB,.215E-01_JPRB,&
+&.119E-01_JPRB,.109E-01_JPRB,.204E-01_JPRB,.203E-01_JPRB,.200E-01_JPRB,.196E-01_JPRB,.196E-01_JPRB,&
+&.197E-01_JPRB,.194E-01_JPRB,.206E-01_JPRB,.224E-01_JPRB,.248E-01_JPRB,.275E-01_JPRB,.313E-01_JPRB,&
+&.381E-01_JPRB,.431E-01_JPRB,.372E-01_JPRB,.290E-01_JPRB,.282E-01_JPRB,.248E-01_JPRB,.258E-01_JPRB,&
+&.271E-01_JPRB,.294E-01_JPRB,.316E-01_JPRB,.301E-01_JPRB,.343E-01_JPRB,.369E-01_JPRB,.416E-01_JPRB,&
+&.397E-01_JPRB,.372E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 22   6.0
+ZAER (:,22, 6) = (/&
+&.377E-01_JPRB,.361E-01_JPRB,.364E-01_JPRB,.362E-01_JPRB,.374E-01_JPRB,.380E-01_JPRB,.378E-01_JPRB,&
+&.377E-01_JPRB,.385E-01_JPRB,.384E-01_JPRB,.392E-01_JPRB,.396E-01_JPRB,.395E-01_JPRB,.401E-01_JPRB,&
+&.385E-01_JPRB,.426E-01_JPRB,.472E-01_JPRB,.531E-01_JPRB,.572E-01_JPRB,.565E-01_JPRB,.262E-01_JPRB,&
+&.211E-01_JPRB,.196E-01_JPRB,.197E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,.208E-01_JPRB,.196E-01_JPRB,&
+&.176E-01_JPRB,.288E-01_JPRB,.296E-01_JPRB,.310E-01_JPRB,.318E-01_JPRB,.298E-01_JPRB,.320E-01_JPRB,&
+&.339E-01_JPRB,.342E-01_JPRB,.347E-01_JPRB,.333E-01_JPRB,.174E-01_JPRB,.168E-01_JPRB,.140E-01_JPRB,&
+&.118E-01_JPRB,.114E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,.180E-01_JPRB,.182E-01_JPRB,&
+&.184E-01_JPRB,.190E-01_JPRB,.200E-01_JPRB,.225E-01_JPRB,.263E-01_JPRB,.311E-01_JPRB,.370E-01_JPRB,&
+&.466E-01_JPRB,.576E-01_JPRB,.369E-01_JPRB,.328E-01_JPRB,.308E-01_JPRB,.294E-01_JPRB,.343E-01_JPRB,&
+&.366E-01_JPRB,.221E-01_JPRB,.216E-01_JPRB,.426E-01_JPRB,.420E-01_JPRB,.405E-01_JPRB,.394E-01_JPRB,&
+&.391E-01_JPRB,.383E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 23   2.0
+ZAER (:,23, 6) = (/&
+&.398E-01_JPRB,.394E-01_JPRB,.395E-01_JPRB,.403E-01_JPRB,.412E-01_JPRB,.412E-01_JPRB,.412E-01_JPRB,&
+&.421E-01_JPRB,.437E-01_JPRB,.454E-01_JPRB,.482E-01_JPRB,.514E-01_JPRB,.517E-01_JPRB,.541E-01_JPRB,&
+&.540E-01_JPRB,.581E-01_JPRB,.595E-01_JPRB,.605E-01_JPRB,.603E-01_JPRB,.596E-01_JPRB,.307E-01_JPRB,&
+&.210E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,.201E-01_JPRB,.207E-01_JPRB,.214E-01_JPRB,.191E-01_JPRB,&
+&.288E-01_JPRB,.303E-01_JPRB,.301E-01_JPRB,.298E-01_JPRB,.299E-01_JPRB,.286E-01_JPRB,.287E-01_JPRB,&
+&.294E-01_JPRB,.293E-01_JPRB,.295E-01_JPRB,.163E-01_JPRB,.161E-01_JPRB,.169E-01_JPRB,.186E-01_JPRB,&
+&.148E-01_JPRB,.120E-01_JPRB,.106E-01_JPRB,.166E-01_JPRB,.164E-01_JPRB,.162E-01_JPRB,.167E-01_JPRB,&
+&.173E-01_JPRB,.183E-01_JPRB,.201E-01_JPRB,.228E-01_JPRB,.266E-01_JPRB,.323E-01_JPRB,.362E-01_JPRB,&
+&.407E-01_JPRB,.250E-01_JPRB,.366E-01_JPRB,.215E-01_JPRB,.354E-01_JPRB,.330E-01_JPRB,.341E-01_JPRB,&
+&.206E-01_JPRB,.390E-01_JPRB,.412E-01_JPRB,.424E-01_JPRB,.401E-01_JPRB,.395E-01_JPRB,.398E-01_JPRB,&
+&.401E-01_JPRB,.397E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 24  -2.0
+ZAER (:,24, 6) = (/&
+&.423E-01_JPRB,.439E-01_JPRB,.450E-01_JPRB,.459E-01_JPRB,.475E-01_JPRB,.470E-01_JPRB,.487E-01_JPRB,&
+&.492E-01_JPRB,.499E-01_JPRB,.504E-01_JPRB,.495E-01_JPRB,.516E-01_JPRB,.497E-01_JPRB,.486E-01_JPRB,&
+&.470E-01_JPRB,.480E-01_JPRB,.481E-01_JPRB,.480E-01_JPRB,.469E-01_JPRB,.463E-01_JPRB,.378E-01_JPRB,&
+&.177E-01_JPRB,.187E-01_JPRB,.193E-01_JPRB,.194E-01_JPRB,.194E-01_JPRB,.308E-01_JPRB,.299E-01_JPRB,&
+&.296E-01_JPRB,.301E-01_JPRB,.291E-01_JPRB,.300E-01_JPRB,.301E-01_JPRB,.280E-01_JPRB,.272E-01_JPRB,&
+&.262E-01_JPRB,.260E-01_JPRB,.242E-01_JPRB,.140E-01_JPRB,.153E-01_JPRB,.163E-01_JPRB,.164E-01_JPRB,&
+&.137E-01_JPRB,.105E-01_JPRB,.105E-01_JPRB,.111E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,&
+&.172E-01_JPRB,.200E-01_JPRB,.215E-01_JPRB,.234E-01_JPRB,.261E-01_JPRB,.295E-01_JPRB,.340E-01_JPRB,&
+&.207E-01_JPRB,.349E-01_JPRB,.367E-01_JPRB,.222E-01_JPRB,.463E-01_JPRB,.419E-01_JPRB,.290E-01_JPRB,&
+&.336E-01_JPRB,.362E-01_JPRB,.366E-01_JPRB,.379E-01_JPRB,.380E-01_JPRB,.391E-01_JPRB,.403E-01_JPRB,&
+&.409E-01_JPRB,.410E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 25  -6.0
+ZAER (:,25, 6) = (/&
+&.431E-01_JPRB,.453E-01_JPRB,.468E-01_JPRB,.474E-01_JPRB,.484E-01_JPRB,.482E-01_JPRB,.480E-01_JPRB,&
+&.482E-01_JPRB,.487E-01_JPRB,.478E-01_JPRB,.475E-01_JPRB,.481E-01_JPRB,.464E-01_JPRB,.462E-01_JPRB,&
+&.451E-01_JPRB,.455E-01_JPRB,.473E-01_JPRB,.469E-01_JPRB,.462E-01_JPRB,.457E-01_JPRB,.368E-01_JPRB,&
+&.180E-01_JPRB,.178E-01_JPRB,.174E-01_JPRB,.177E-01_JPRB,.279E-01_JPRB,.275E-01_JPRB,.284E-01_JPRB,&
+&.279E-01_JPRB,.276E-01_JPRB,.281E-01_JPRB,.305E-01_JPRB,.308E-01_JPRB,.318E-01_JPRB,.177E-01_JPRB,&
+&.148E-01_JPRB,.141E-01_JPRB,.143E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,&
+&.140E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,.134E-01_JPRB,.208E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,&
+&.218E-01_JPRB,.263E-01_JPRB,.298E-01_JPRB,.303E-01_JPRB,.296E-01_JPRB,.274E-01_JPRB,.273E-01_JPRB,&
+&.290E-01_JPRB,.277E-01_JPRB,.322E-01_JPRB,.392E-01_JPRB,.449E-01_JPRB,.285E-01_JPRB,.274E-01_JPRB,&
+&.301E-01_JPRB,.317E-01_JPRB,.320E-01_JPRB,.333E-01_JPRB,.347E-01_JPRB,.365E-01_JPRB,.384E-01_JPRB,&
+&.401E-01_JPRB,.416E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 26 -10.0
+ZAER (:,26, 6) = (/&
+&.411E-01_JPRB,.436E-01_JPRB,.455E-01_JPRB,.458E-01_JPRB,.450E-01_JPRB,.440E-01_JPRB,.441E-01_JPRB,&
+&.447E-01_JPRB,.459E-01_JPRB,.468E-01_JPRB,.483E-01_JPRB,.487E-01_JPRB,.487E-01_JPRB,.493E-01_JPRB,&
+&.495E-01_JPRB,.507E-01_JPRB,.532E-01_JPRB,.541E-01_JPRB,.615E-01_JPRB,.536E-01_JPRB,.349E-01_JPRB,&
+&.194E-01_JPRB,.207E-01_JPRB,.149E-01_JPRB,.235E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,.246E-01_JPRB,&
+&.257E-01_JPRB,.276E-01_JPRB,.324E-01_JPRB,.372E-01_JPRB,.407E-01_JPRB,.431E-01_JPRB,.241E-01_JPRB,&
+&.179E-01_JPRB,.174E-01_JPRB,.177E-01_JPRB,.178E-01_JPRB,.176E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,&
+&.168E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.161E-01_JPRB,.152E-01_JPRB,.242E-01_JPRB,.263E-01_JPRB,&
+&.350E-01_JPRB,.406E-01_JPRB,.421E-01_JPRB,.434E-01_JPRB,.397E-01_JPRB,.317E-01_JPRB,.258E-01_JPRB,&
+&.233E-01_JPRB,.213E-01_JPRB,.239E-01_JPRB,.320E-01_JPRB,.376E-01_JPRB,.273E-01_JPRB,.255E-01_JPRB,&
+&.273E-01_JPRB,.294E-01_JPRB,.291E-01_JPRB,.293E-01_JPRB,.304E-01_JPRB,.323E-01_JPRB,.346E-01_JPRB,&
+&.364E-01_JPRB,.383E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 27 -14.0
+ZAER (:,27, 6) = (/&
+&.334E-01_JPRB,.357E-01_JPRB,.372E-01_JPRB,.388E-01_JPRB,.375E-01_JPRB,.366E-01_JPRB,.371E-01_JPRB,&
+&.386E-01_JPRB,.422E-01_JPRB,.475E-01_JPRB,.528E-01_JPRB,.575E-01_JPRB,.598E-01_JPRB,.606E-01_JPRB,&
+&.593E-01_JPRB,.632E-01_JPRB,.654E-01_JPRB,.672E-01_JPRB,.419E-01_JPRB,.255E-01_JPRB,.298E-01_JPRB,&
+&.322E-01_JPRB,.317E-01_JPRB,.239E-01_JPRB,.208E-01_JPRB,.216E-01_JPRB,.215E-01_JPRB,.204E-01_JPRB,&
+&.209E-01_JPRB,.224E-01_JPRB,.258E-01_JPRB,.328E-01_JPRB,.376E-01_JPRB,.288E-01_JPRB,.301E-01_JPRB,&
+&.224E-01_JPRB,.200E-01_JPRB,.215E-01_JPRB,.229E-01_JPRB,.239E-01_JPRB,.250E-01_JPRB,.255E-01_JPRB,&
+&.251E-01_JPRB,.251E-01_JPRB,.249E-01_JPRB,.241E-01_JPRB,.322E-01_JPRB,.285E-01_JPRB,.363E-01_JPRB,&
+&.500E-01_JPRB,.514E-01_JPRB,.319E-01_JPRB,.562E-01_JPRB,.575E-01_JPRB,.433E-01_JPRB,.318E-01_JPRB,&
+&.161E-01_JPRB,.136E-01_JPRB,.212E-01_JPRB,.249E-01_JPRB,.325E-01_JPRB,.238E-01_JPRB,.233E-01_JPRB,&
+&.261E-01_JPRB,.301E-01_JPRB,.295E-01_JPRB,.269E-01_JPRB,.264E-01_JPRB,.270E-01_JPRB,.287E-01_JPRB,&
+&.301E-01_JPRB,.321E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 28 -18.0
+ZAER (:,28, 6) = (/&
+&.254E-01_JPRB,.265E-01_JPRB,.280E-01_JPRB,.291E-01_JPRB,.299E-01_JPRB,.250E-01_JPRB,.274E-01_JPRB,&
+&.307E-01_JPRB,.372E-01_JPRB,.442E-01_JPRB,.507E-01_JPRB,.609E-01_JPRB,.783E-01_JPRB,.901E-01_JPRB,&
+&.940E-01_JPRB,.916E-01_JPRB,.424E-01_JPRB,.384E-01_JPRB,.316E-01_JPRB,.353E-01_JPRB,.262E-01_JPRB,&
+&.244E-01_JPRB,.267E-01_JPRB,.232E-01_JPRB,.199E-01_JPRB,.195E-01_JPRB,.171E-01_JPRB,.156E-01_JPRB,&
+&.158E-01_JPRB,.155E-01_JPRB,.180E-01_JPRB,.249E-01_JPRB,.315E-01_JPRB,.202E-01_JPRB,.239E-01_JPRB,&
+&.206E-01_JPRB,.198E-01_JPRB,.220E-01_JPRB,.276E-01_JPRB,.309E-01_JPRB,.322E-01_JPRB,.388E-01_JPRB,&
+&.396E-01_JPRB,.391E-01_JPRB,.759E-01_JPRB,.423E-01_JPRB,.318E-01_JPRB,.218E-01_JPRB,.388E-01_JPRB,&
+&.483E-01_JPRB,.591E-01_JPRB,.404E-01_JPRB,.479E-01_JPRB,.945E-01_JPRB,.671E-01_JPRB,.269E-01_JPRB,&
+&.202E-01_JPRB,.163E-01_JPRB,.233E-01_JPRB,.245E-01_JPRB,.250E-01_JPRB,.225E-01_JPRB,.229E-01_JPRB,&
+&.271E-01_JPRB,.313E-01_JPRB,.341E-01_JPRB,.274E-01_JPRB,.222E-01_JPRB,.210E-01_JPRB,.219E-01_JPRB,&
+&.230E-01_JPRB,.243E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 29 -22.0
+ZAER (:,29, 6) = (/&
+&.201E-01_JPRB,.211E-01_JPRB,.213E-01_JPRB,.234E-01_JPRB,.216E-01_JPRB,.179E-01_JPRB,.188E-01_JPRB,&
+&.219E-01_JPRB,.289E-01_JPRB,.361E-01_JPRB,.357E-01_JPRB,.401E-01_JPRB,.647E-01_JPRB,.104E+00_JPRB,&
+&.115E+00_JPRB,.712E-01_JPRB,.536E-01_JPRB,.731E-01_JPRB,.648E-01_JPRB,.466E-01_JPRB,.292E-01_JPRB,&
+&.236E-01_JPRB,.239E-01_JPRB,.203E-01_JPRB,.193E-01_JPRB,.184E-01_JPRB,.160E-01_JPRB,.144E-01_JPRB,&
+&.132E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,.159E-01_JPRB,.232E-01_JPRB,.156E-01_JPRB,.191E-01_JPRB,&
+&.192E-01_JPRB,.192E-01_JPRB,.218E-01_JPRB,.289E-01_JPRB,.332E-01_JPRB,.372E-01_JPRB,.438E-01_JPRB,&
+&.470E-01_JPRB,.455E-01_JPRB,.570E-01_JPRB,.674E-01_JPRB,.522E-01_JPRB,.356E-01_JPRB,.522E-01_JPRB,&
+&.537E-01_JPRB,.363E-01_JPRB,.463E-01_JPRB,.537E-01_JPRB,.563E-01_JPRB,.511E-01_JPRB,.339E-01_JPRB,&
+&.250E-01_JPRB,.201E-01_JPRB,.171E-01_JPRB,.437E-01_JPRB,.327E-01_JPRB,.287E-01_JPRB,.287E-01_JPRB,&
+&.347E-01_JPRB,.351E-01_JPRB,.345E-01_JPRB,.317E-01_JPRB,.203E-01_JPRB,.169E-01_JPRB,.170E-01_JPRB,&
+&.180E-01_JPRB,.190E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 30 -26.0
+ZAER (:,30, 6) = (/&
+&.168E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.149E-01_JPRB,.138E-01_JPRB,.131E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.161E-01_JPRB,.202E-01_JPRB,.205E-01_JPRB,.230E-01_JPRB,.325E-01_JPRB,.626E-01_JPRB,&
+&.612E-01_JPRB,.720E-01_JPRB,.663E-01_JPRB,.943E-01_JPRB,.845E-01_JPRB,.581E-01_JPRB,.347E-01_JPRB,&
+&.223E-01_JPRB,.205E-01_JPRB,.187E-01_JPRB,.176E-01_JPRB,.163E-01_JPRB,.145E-01_JPRB,.128E-01_JPRB,&
+&.111E-01_JPRB,.104E-01_JPRB,.972E-02_JPRB,.133E-01_JPRB,.184E-01_JPRB,.250E-01_JPRB,.171E-01_JPRB,&
+&.220E-01_JPRB,.226E-01_JPRB,.259E-01_JPRB,.308E-01_JPRB,.337E-01_JPRB,.383E-01_JPRB,.423E-01_JPRB,&
+&.466E-01_JPRB,.432E-01_JPRB,.618E-01_JPRB,.720E-01_JPRB,.700E-01_JPRB,.106E+00_JPRB,.571E-01_JPRB,&
+&.534E-01_JPRB,.546E-01_JPRB,.515E-01_JPRB,.501E-01_JPRB,.371E-01_JPRB,.367E-01_JPRB,.285E-01_JPRB,&
+&.207E-01_JPRB,.214E-01_JPRB,.193E-01_JPRB,.219E-01_JPRB,.578E-01_JPRB,.600E-01_JPRB,.602E-01_JPRB,&
+&.598E-01_JPRB,.520E-01_JPRB,.432E-01_JPRB,.309E-01_JPRB,.217E-01_JPRB,.167E-01_JPRB,.153E-01_JPRB,&
+&.164E-01_JPRB,.171E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 31 -30.0
+ZAER (:,31, 6) = (/&
+&.159E-01_JPRB,.158E-01_JPRB,.163E-01_JPRB,.157E-01_JPRB,.131E-01_JPRB,.125E-01_JPRB,.109E-01_JPRB,&
+&.896E-02_JPRB,.100E-01_JPRB,.127E-01_JPRB,.152E-01_JPRB,.184E-01_JPRB,.214E-01_JPRB,.353E-01_JPRB,&
+&.437E-01_JPRB,.568E-01_JPRB,.726E-01_JPRB,.744E-01_JPRB,.573E-01_JPRB,.404E-01_JPRB,.471E-01_JPRB,&
+&.324E-01_JPRB,.223E-01_JPRB,.191E-01_JPRB,.171E-01_JPRB,.161E-01_JPRB,.145E-01_JPRB,.122E-01_JPRB,&
+&.108E-01_JPRB,.997E-02_JPRB,.924E-02_JPRB,.964E-02_JPRB,.140E-01_JPRB,.233E-01_JPRB,.180E-01_JPRB,&
+&.179E-01_JPRB,.203E-01_JPRB,.263E-01_JPRB,.382E-01_JPRB,.400E-01_JPRB,.423E-01_JPRB,.438E-01_JPRB,&
+&.453E-01_JPRB,.488E-01_JPRB,.734E-01_JPRB,.836E-01_JPRB,.995E-01_JPRB,.715E-01_JPRB,.648E-01_JPRB,&
+&.631E-01_JPRB,.760E-01_JPRB,.588E-01_JPRB,.321E-01_JPRB,.170E-01_JPRB,.125E-01_JPRB,.102E-01_JPRB,&
+&.138E-01_JPRB,.234E-01_JPRB,.217E-01_JPRB,.191E-01_JPRB,.300E-01_JPRB,.809E-01_JPRB,.105E+00_JPRB,&
+&.724E-01_JPRB,.441E-01_JPRB,.438E-01_JPRB,.346E-01_JPRB,.236E-01_JPRB,.172E-01_JPRB,.158E-01_JPRB,&
+&.160E-01_JPRB,.169E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 32 -34.0
+ZAER (:,32, 6) = (/&
+&.201E-01_JPRB,.198E-01_JPRB,.184E-01_JPRB,.170E-01_JPRB,.161E-01_JPRB,.138E-01_JPRB,.122E-01_JPRB,&
+&.922E-02_JPRB,.860E-02_JPRB,.115E-01_JPRB,.128E-01_JPRB,.156E-01_JPRB,.141E-01_JPRB,.121E-01_JPRB,&
+&.252E-01_JPRB,.413E-01_JPRB,.630E-01_JPRB,.689E-01_JPRB,.537E-01_JPRB,.477E-01_JPRB,.351E-01_JPRB,&
+&.388E-01_JPRB,.269E-01_JPRB,.203E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,.142E-01_JPRB,.129E-01_JPRB,&
+&.112E-01_JPRB,.102E-01_JPRB,.115E-01_JPRB,.104E-01_JPRB,.116E-01_JPRB,.195E-01_JPRB,.352E-01_JPRB,&
+&.188E-01_JPRB,.186E-01_JPRB,.278E-01_JPRB,.401E-01_JPRB,.105E+00_JPRB,.124E+00_JPRB,.100E+00_JPRB,&
+&.998E-01_JPRB,.108E+00_JPRB,.694E-01_JPRB,.809E-01_JPRB,.713E-01_JPRB,.733E-01_JPRB,.697E-01_JPRB,&
+&.634E-01_JPRB,.585E-01_JPRB,.440E-01_JPRB,.235E-01_JPRB,.163E-01_JPRB,.115E-01_JPRB,.871E-02_JPRB,&
+&.974E-02_JPRB,.205E-01_JPRB,.276E-01_JPRB,.227E-01_JPRB,.284E-01_JPRB,.849E-01_JPRB,.858E-01_JPRB,&
+&.418E-01_JPRB,.540E-01_JPRB,.435E-01_JPRB,.364E-01_JPRB,.269E-01_JPRB,.202E-01_JPRB,.177E-01_JPRB,&
+&.182E-01_JPRB,.196E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 33 -38.0
+ZAER (:,33, 6) = (/&
+&.240E-01_JPRB,.206E-01_JPRB,.178E-01_JPRB,.204E-01_JPRB,.196E-01_JPRB,.154E-01_JPRB,.138E-01_JPRB,&
+&.118E-01_JPRB,.114E-01_JPRB,.122E-01_JPRB,.132E-01_JPRB,.173E-01_JPRB,.978E-02_JPRB,.996E-02_JPRB,&
+&.156E-01_JPRB,.261E-01_JPRB,.428E-01_JPRB,.579E-01_JPRB,.479E-01_JPRB,.466E-01_JPRB,.430E-01_JPRB,&
+&.527E-01_JPRB,.416E-01_JPRB,.244E-01_JPRB,.173E-01_JPRB,.146E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,&
+&.137E-01_JPRB,.116E-01_JPRB,.112E-01_JPRB,.123E-01_JPRB,.153E-01_JPRB,.229E-01_JPRB,.533E-01_JPRB,&
+&.282E-01_JPRB,.432E-01_JPRB,.601E-01_JPRB,.679E-01_JPRB,.115E+00_JPRB,.144E+00_JPRB,.125E+00_JPRB,&
+&.614E-01_JPRB,.610E-01_JPRB,.684E-01_JPRB,.688E-01_JPRB,.893E-01_JPRB,.810E-01_JPRB,.702E-01_JPRB,&
+&.994E-01_JPRB,.638E-01_JPRB,.435E-01_JPRB,.386E-01_JPRB,.275E-01_JPRB,.164E-01_JPRB,.127E-01_JPRB,&
+&.111E-01_JPRB,.170E-01_JPRB,.207E-01_JPRB,.254E-01_JPRB,.536E-01_JPRB,.702E-01_JPRB,.673E-01_JPRB,&
+&.645E-01_JPRB,.284E-01_JPRB,.448E-01_JPRB,.390E-01_JPRB,.299E-01_JPRB,.253E-01_JPRB,.264E-01_JPRB,&
+&.280E-01_JPRB,.260E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 34 -42.0
+ZAER (:,34, 6) = (/&
+&.267E-01_JPRB,.249E-01_JPRB,.262E-01_JPRB,.248E-01_JPRB,.211E-01_JPRB,.179E-01_JPRB,.160E-01_JPRB,&
+&.165E-01_JPRB,.155E-01_JPRB,.137E-01_JPRB,.137E-01_JPRB,.201E-01_JPRB,.105E-01_JPRB,.116E-01_JPRB,&
+&.140E-01_JPRB,.188E-01_JPRB,.297E-01_JPRB,.429E-01_JPRB,.456E-01_JPRB,.438E-01_JPRB,.408E-01_JPRB,&
+&.358E-01_JPRB,.649E-01_JPRB,.365E-01_JPRB,.230E-01_JPRB,.167E-01_JPRB,.145E-01_JPRB,.123E-01_JPRB,&
+&.126E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.104E-01_JPRB,.140E-01_JPRB,.222E-01_JPRB,.429E-01_JPRB,&
+&.258E-01_JPRB,.254E-01_JPRB,.551E-01_JPRB,.737E-01_JPRB,.966E-01_JPRB,.666E-01_JPRB,.789E-01_JPRB,&
+&.135E+00_JPRB,.158E+00_JPRB,.769E-01_JPRB,.650E-01_JPRB,.119E+00_JPRB,.663E-01_JPRB,.749E-01_JPRB,&
+&.103E+00_JPRB,.977E-01_JPRB,.538E-01_JPRB,.330E-01_JPRB,.311E-01_JPRB,.279E-01_JPRB,.199E-01_JPRB,&
+&.192E-01_JPRB,.208E-01_JPRB,.219E-01_JPRB,.264E-01_JPRB,.405E-01_JPRB,.422E-01_JPRB,.402E-01_JPRB,&
+&.658E-01_JPRB,.485E-01_JPRB,.499E-01_JPRB,.408E-01_JPRB,.305E-01_JPRB,.290E-01_JPRB,.330E-01_JPRB,&
+&.344E-01_JPRB,.310E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 35 -46.0
+ZAER (:,35, 6) = (/&
+&.271E-01_JPRB,.276E-01_JPRB,.271E-01_JPRB,.260E-01_JPRB,.217E-01_JPRB,.217E-01_JPRB,.186E-01_JPRB,&
+&.176E-01_JPRB,.149E-01_JPRB,.120E-01_JPRB,.143E-01_JPRB,.175E-01_JPRB,.108E-01_JPRB,.103E-01_JPRB,&
+&.122E-01_JPRB,.160E-01_JPRB,.247E-01_JPRB,.352E-01_JPRB,.400E-01_JPRB,.465E-01_JPRB,.472E-01_JPRB,&
+&.350E-01_JPRB,.276E-01_JPRB,.234E-01_JPRB,.346E-01_JPRB,.233E-01_JPRB,.179E-01_JPRB,.136E-01_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.138E-01_JPRB,.178E-01_JPRB,.331E-01_JPRB,&
+&.439E-01_JPRB,.329E-01_JPRB,.403E-01_JPRB,.497E-01_JPRB,.568E-01_JPRB,.623E-01_JPRB,.638E-01_JPRB,&
+&.832E-01_JPRB,.103E+00_JPRB,.865E-01_JPRB,.575E-01_JPRB,.773E-01_JPRB,.446E-01_JPRB,.556E-01_JPRB,&
+&.851E-01_JPRB,.106E+00_JPRB,.746E-01_JPRB,.553E-01_JPRB,.421E-01_JPRB,.301E-01_JPRB,.269E-01_JPRB,&
+&.250E-01_JPRB,.276E-01_JPRB,.302E-01_JPRB,.316E-01_JPRB,.364E-01_JPRB,.442E-01_JPRB,.394E-01_JPRB,&
+&.316E-01_JPRB,.490E-01_JPRB,.471E-01_JPRB,.388E-01_JPRB,.299E-01_JPRB,.295E-01_JPRB,.342E-01_JPRB,&
+&.327E-01_JPRB,.302E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 36 -50.0
+ZAER (:,36, 6) = (/&
+&.292E-01_JPRB,.283E-01_JPRB,.222E-01_JPRB,.248E-01_JPRB,.238E-01_JPRB,.197E-01_JPRB,.216E-01_JPRB,&
+&.189E-01_JPRB,.145E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.809E-02_JPRB,.967E-02_JPRB,.107E-01_JPRB,&
+&.123E-01_JPRB,.149E-01_JPRB,.187E-01_JPRB,.255E-01_JPRB,.319E-01_JPRB,.355E-01_JPRB,.403E-01_JPRB,&
+&.297E-01_JPRB,.188E-01_JPRB,.154E-01_JPRB,.225E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.145E-01_JPRB,&
+&.105E-01_JPRB,.999E-02_JPRB,.108E-01_JPRB,.123E-01_JPRB,.148E-01_JPRB,.217E-01_JPRB,.372E-01_JPRB,&
+&.579E-01_JPRB,.455E-01_JPRB,.440E-01_JPRB,.479E-01_JPRB,.549E-01_JPRB,.559E-01_JPRB,.601E-01_JPRB,&
+&.662E-01_JPRB,.803E-01_JPRB,.706E-01_JPRB,.561E-01_JPRB,.433E-01_JPRB,.417E-01_JPRB,.444E-01_JPRB,&
+&.510E-01_JPRB,.913E-01_JPRB,.934E-01_JPRB,.856E-01_JPRB,.579E-01_JPRB,.438E-01_JPRB,.410E-01_JPRB,&
+&.330E-01_JPRB,.308E-01_JPRB,.257E-01_JPRB,.243E-01_JPRB,.255E-01_JPRB,.283E-01_JPRB,.294E-01_JPRB,&
+&.268E-01_JPRB,.227E-01_JPRB,.312E-01_JPRB,.281E-01_JPRB,.312E-01_JPRB,.374E-01_JPRB,.397E-01_JPRB,&
+&.377E-01_JPRB,.340E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 37 -54.0
+ZAER (:,37, 6) = (/&
+&.361E-01_JPRB,.312E-01_JPRB,.222E-01_JPRB,.232E-01_JPRB,.272E-01_JPRB,.236E-01_JPRB,.216E-01_JPRB,&
+&.196E-01_JPRB,.157E-01_JPRB,.132E-01_JPRB,.695E-02_JPRB,.695E-02_JPRB,.919E-02_JPRB,.114E-01_JPRB,&
+&.130E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,.164E-01_JPRB,.186E-01_JPRB,.232E-01_JPRB,.402E-01_JPRB,&
+&.175E-01_JPRB,.126E-01_JPRB,.101E-01_JPRB,.887E-02_JPRB,.143E-01_JPRB,.121E-01_JPRB,.109E-01_JPRB,&
+&.975E-02_JPRB,.118E-01_JPRB,.139E-01_JPRB,.159E-01_JPRB,.190E-01_JPRB,.250E-01_JPRB,.311E-01_JPRB,&
+&.258E-01_JPRB,.624E-01_JPRB,.920E-01_JPRB,.432E-01_JPRB,.490E-01_JPRB,.546E-01_JPRB,.556E-01_JPRB,&
+&.577E-01_JPRB,.655E-01_JPRB,.589E-01_JPRB,.506E-01_JPRB,.426E-01_JPRB,.448E-01_JPRB,.444E-01_JPRB,&
+&.495E-01_JPRB,.570E-01_JPRB,.636E-01_JPRB,.683E-01_JPRB,.631E-01_JPRB,.548E-01_JPRB,.394E-01_JPRB,&
+&.281E-01_JPRB,.231E-01_JPRB,.187E-01_JPRB,.157E-01_JPRB,.151E-01_JPRB,.163E-01_JPRB,.177E-01_JPRB,&
+&.184E-01_JPRB,.307E-01_JPRB,.227E-01_JPRB,.211E-01_JPRB,.223E-01_JPRB,.261E-01_JPRB,.531E-01_JPRB,&
+&.426E-01_JPRB,.389E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 38 -58.0
+ZAER (:,38, 6) = (/&
+&.326E-01_JPRB,.310E-01_JPRB,.278E-01_JPRB,.279E-01_JPRB,.374E-01_JPRB,.416E-01_JPRB,.305E-01_JPRB,&
+&.233E-01_JPRB,.177E-01_JPRB,.805E-02_JPRB,.609E-02_JPRB,.671E-02_JPRB,.897E-02_JPRB,.110E-01_JPRB,&
+&.115E-01_JPRB,.122E-01_JPRB,.111E-01_JPRB,.112E-01_JPRB,.192E-01_JPRB,.201E-01_JPRB,.208E-01_JPRB,&
+&.119E-01_JPRB,.986E-02_JPRB,.773E-02_JPRB,.118E-01_JPRB,.114E-01_JPRB,.974E-02_JPRB,.796E-02_JPRB,&
+&.747E-02_JPRB,.911E-02_JPRB,.134E-01_JPRB,.142E-01_JPRB,.165E-01_JPRB,.205E-01_JPRB,.255E-01_JPRB,&
+&.343E-01_JPRB,.457E-01_JPRB,.536E-01_JPRB,.308E-01_JPRB,.332E-01_JPRB,.652E-01_JPRB,.398E-01_JPRB,&
+&.428E-01_JPRB,.467E-01_JPRB,.419E-01_JPRB,.368E-01_JPRB,.370E-01_JPRB,.384E-01_JPRB,.376E-01_JPRB,&
+&.322E-01_JPRB,.313E-01_JPRB,.314E-01_JPRB,.344E-01_JPRB,.386E-01_JPRB,.468E-01_JPRB,.354E-01_JPRB,&
+&.246E-01_JPRB,.185E-01_JPRB,.146E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,&
+&.126E-01_JPRB,.138E-01_JPRB,.232E-01_JPRB,.258E-01_JPRB,.318E-01_JPRB,.385E-01_JPRB,.642E-01_JPRB,&
+&.383E-01_JPRB,.349E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 39 -62.0
+ZAER (:,39, 6) = (/&
+&.369E-01_JPRB,.404E-01_JPRB,.311E-01_JPRB,.257E-01_JPRB,.170E-01_JPRB,.200E-01_JPRB,.155E-01_JPRB,&
+&.113E-01_JPRB,.826E-02_JPRB,.747E-02_JPRB,.654E-02_JPRB,.647E-02_JPRB,.774E-02_JPRB,.920E-02_JPRB,&
+&.974E-02_JPRB,.872E-02_JPRB,.806E-02_JPRB,.795E-02_JPRB,.142E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,&
+&.740E-02_JPRB,.106E-01_JPRB,.102E-01_JPRB,.962E-02_JPRB,.907E-02_JPRB,.730E-02_JPRB,.331E-02_JPRB,&
+&.595E-02_JPRB,.724E-02_JPRB,.846E-02_JPRB,.105E-01_JPRB,.134E-01_JPRB,.174E-01_JPRB,.175E-01_JPRB,&
+&.205E-01_JPRB,.255E-01_JPRB,.269E-01_JPRB,.168E-01_JPRB,.206E-01_JPRB,.406E-01_JPRB,.258E-01_JPRB,&
+&.281E-01_JPRB,.294E-01_JPRB,.271E-01_JPRB,.283E-01_JPRB,.291E-01_JPRB,.279E-01_JPRB,.248E-01_JPRB,&
+&.221E-01_JPRB,.210E-01_JPRB,.202E-01_JPRB,.226E-01_JPRB,.257E-01_JPRB,.276E-01_JPRB,.256E-01_JPRB,&
+&.224E-01_JPRB,.194E-01_JPRB,.159E-01_JPRB,.131E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,&
+&.946E-02_JPRB,.935E-02_JPRB,.103E-01_JPRB,.124E-01_JPRB,.189E-01_JPRB,.271E-01_JPRB,.259E-01_JPRB,&
+&.188E-01_JPRB,.321E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 40 -66.0
+ZAER (:,40, 6) = (/&
+&.220E-01_JPRB,.192E-01_JPRB,.235E-01_JPRB,.199E-01_JPRB,.129E-01_JPRB,.137E-01_JPRB,.129E-01_JPRB,&
+&.108E-01_JPRB,.911E-02_JPRB,.783E-02_JPRB,.740E-02_JPRB,.705E-02_JPRB,.707E-02_JPRB,.678E-02_JPRB,&
+&.642E-02_JPRB,.659E-02_JPRB,.693E-02_JPRB,.703E-02_JPRB,.694E-02_JPRB,.670E-02_JPRB,.951E-02_JPRB,&
+&.503E-02_JPRB,.450E-02_JPRB,.418E-02_JPRB,.649E-02_JPRB,.567E-02_JPRB,.276E-02_JPRB,.217E-02_JPRB,&
+&.254E-02_JPRB,.499E-02_JPRB,.790E-02_JPRB,.874E-02_JPRB,.955E-02_JPRB,.133E-01_JPRB,.127E-01_JPRB,&
+&.125E-01_JPRB,.172E-01_JPRB,.208E-01_JPRB,.209E-01_JPRB,.127E-01_JPRB,.163E-01_JPRB,.202E-01_JPRB,&
+&.202E-01_JPRB,.224E-01_JPRB,.204E-01_JPRB,.213E-01_JPRB,.222E-01_JPRB,.216E-01_JPRB,.185E-01_JPRB,&
+&.148E-01_JPRB,.140E-01_JPRB,.155E-01_JPRB,.196E-01_JPRB,.223E-01_JPRB,.226E-01_JPRB,.247E-01_JPRB,&
+&.234E-01_JPRB,.188E-01_JPRB,.127E-01_JPRB,.101E-01_JPRB,.908E-02_JPRB,.784E-02_JPRB,.712E-02_JPRB,&
+&.664E-02_JPRB,.671E-02_JPRB,.758E-02_JPRB,.946E-02_JPRB,.128E-01_JPRB,.146E-01_JPRB,.148E-01_JPRB,&
+&.133E-01_JPRB,.172E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 41 -70.0
+ZAER (:,41, 6) = (/&
+&.254E-01_JPRB,.214E-01_JPRB,.183E-01_JPRB,.167E-01_JPRB,.101E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,&
+&.970E-02_JPRB,.147E-01_JPRB,.136E-01_JPRB,.766E-02_JPRB,.122E-01_JPRB,.111E-01_JPRB,.613E-02_JPRB,&
+&.627E-02_JPRB,.652E-02_JPRB,.101E-01_JPRB,.576E-02_JPRB,.525E-02_JPRB,.433E-02_JPRB,.302E-02_JPRB,&
+&.277E-02_JPRB,.275E-02_JPRB,.449E-02_JPRB,.405E-02_JPRB,.422E-02_JPRB,.253E-02_JPRB,.236E-02_JPRB,&
+&.247E-02_JPRB,.179E-02_JPRB,.208E-02_JPRB,.369E-02_JPRB,.880E-02_JPRB,.128E-01_JPRB,.117E-01_JPRB,&
+&.124E-01_JPRB,.168E-01_JPRB,.199E-01_JPRB,.204E-01_JPRB,.219E-01_JPRB,.236E-01_JPRB,.181E-01_JPRB,&
+&.212E-01_JPRB,.324E-01_JPRB,.247E-01_JPRB,.226E-01_JPRB,.216E-01_JPRB,.204E-01_JPRB,.184E-01_JPRB,&
+&.184E-01_JPRB,.967E-02_JPRB,.993E-02_JPRB,.133E-01_JPRB,.150E-01_JPRB,.131E-01_JPRB,.129E-01_JPRB,&
+&.106E-01_JPRB,.843E-02_JPRB,.725E-02_JPRB,.645E-02_JPRB,.524E-02_JPRB,.422E-02_JPRB,.403E-02_JPRB,&
+&.444E-02_JPRB,.521E-02_JPRB,.594E-02_JPRB,.727E-02_JPRB,.892E-02_JPRB,.113E-01_JPRB,.123E-01_JPRB,&
+&.239E-01_JPRB,.149E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 42 -74.0
+ZAER (:,42, 6) = (/&
+&.197E-01_JPRB,.194E-01_JPRB,.189E-01_JPRB,.172E-01_JPRB,.162E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,&
+&.166E-01_JPRB,.164E-01_JPRB,.160E-01_JPRB,.152E-01_JPRB,.137E-01_JPRB,.764E-02_JPRB,.718E-02_JPRB,&
+&.115E-01_JPRB,.108E-01_JPRB,.949E-02_JPRB,.843E-02_JPRB,.714E-02_JPRB,.312E-02_JPRB,.407E-02_JPRB,&
+&.348E-02_JPRB,.321E-02_JPRB,.365E-02_JPRB,.377E-02_JPRB,.224E-02_JPRB,.246E-02_JPRB,.274E-02_JPRB,&
+&.244E-02_JPRB,.194E-02_JPRB,.208E-02_JPRB,.265E-02_JPRB,.728E-02_JPRB,.116E-01_JPRB,.142E-01_JPRB,&
+&.157E-01_JPRB,.181E-01_JPRB,.204E-01_JPRB,.211E-01_JPRB,.213E-01_JPRB,.225E-01_JPRB,.272E-01_JPRB,&
+&.295E-01_JPRB,.273E-01_JPRB,.222E-01_JPRB,.192E-01_JPRB,.166E-01_JPRB,.142E-01_JPRB,.118E-01_JPRB,&
+&.115E-01_JPRB,.128E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.867E-02_JPRB,.740E-02_JPRB,.467E-02_JPRB,&
+&.383E-02_JPRB,.341E-02_JPRB,.306E-02_JPRB,.321E-02_JPRB,.574E-02_JPRB,.537E-02_JPRB,.573E-02_JPRB,&
+&.579E-02_JPRB,.664E-02_JPRB,.744E-02_JPRB,.881E-02_JPRB,.875E-02_JPRB,.108E-01_JPRB,.148E-01_JPRB,&
+&.176E-01_JPRB,.195E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 43 -78.0
+ZAER (:,43, 6) = (/&
+&.129E-01_JPRB,.131E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,&
+&.143E-01_JPRB,.143E-01_JPRB,.139E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.122E-01_JPRB,.112E-01_JPRB,&
+&.982E-02_JPRB,.894E-02_JPRB,.874E-02_JPRB,.851E-02_JPRB,.430E-02_JPRB,.332E-02_JPRB,.294E-02_JPRB,&
+&.439E-02_JPRB,.386E-02_JPRB,.253E-02_JPRB,.229E-02_JPRB,.237E-02_JPRB,.260E-02_JPRB,.234E-02_JPRB,&
+&.224E-02_JPRB,.228E-02_JPRB,.243E-02_JPRB,.264E-02_JPRB,.715E-02_JPRB,.106E-01_JPRB,.124E-01_JPRB,&
+&.153E-01_JPRB,.175E-01_JPRB,.188E-01_JPRB,.193E-01_JPRB,.105E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,&
+&.167E-01_JPRB,.154E-01_JPRB,.139E-01_JPRB,.121E-01_JPRB,.946E-02_JPRB,.829E-02_JPRB,.779E-02_JPRB,&
+&.731E-02_JPRB,.737E-02_JPRB,.716E-02_JPRB,.707E-02_JPRB,.765E-02_JPRB,.601E-02_JPRB,.570E-02_JPRB,&
+&.619E-02_JPRB,.403E-02_JPRB,.619E-02_JPRB,.695E-02_JPRB,.734E-02_JPRB,.653E-02_JPRB,.641E-02_JPRB,&
+&.597E-02_JPRB,.596E-02_JPRB,.675E-02_JPRB,.731E-02_JPRB,.807E-02_JPRB,.101E-01_JPRB,.116E-01_JPRB,&
+&.120E-01_JPRB,.123E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 44 -82.0
+ZAER (:,44, 6) = (/&
+&.761E-02_JPRB,.796E-02_JPRB,.831E-02_JPRB,.870E-02_JPRB,.906E-02_JPRB,.941E-02_JPRB,.948E-02_JPRB,&
+&.869E-02_JPRB,.822E-02_JPRB,.803E-02_JPRB,.816E-02_JPRB,.850E-02_JPRB,.843E-02_JPRB,.818E-02_JPRB,&
+&.800E-02_JPRB,.786E-02_JPRB,.797E-02_JPRB,.804E-02_JPRB,.751E-02_JPRB,.725E-02_JPRB,.428E-02_JPRB,&
+&.411E-02_JPRB,.388E-02_JPRB,.360E-02_JPRB,.318E-02_JPRB,.295E-02_JPRB,.281E-02_JPRB,.285E-02_JPRB,&
+&.295E-02_JPRB,.317E-02_JPRB,.374E-02_JPRB,.420E-02_JPRB,.477E-02_JPRB,.919E-02_JPRB,.105E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.112E-01_JPRB,.102E-01_JPRB,.936E-02_JPRB,.844E-02_JPRB,.734E-02_JPRB,&
+&.698E-02_JPRB,.690E-02_JPRB,.678E-02_JPRB,.671E-02_JPRB,.673E-02_JPRB,.681E-02_JPRB,.704E-02_JPRB,&
+&.694E-02_JPRB,.694E-02_JPRB,.682E-02_JPRB,.668E-02_JPRB,.649E-02_JPRB,.640E-02_JPRB,.637E-02_JPRB,&
+&.640E-02_JPRB,.637E-02_JPRB,.632E-02_JPRB,.631E-02_JPRB,.621E-02_JPRB,.605E-02_JPRB,.610E-02_JPRB,&
+&.618E-02_JPRB,.636E-02_JPRB,.660E-02_JPRB,.685E-02_JPRB,.713E-02_JPRB,.734E-02_JPRB,.746E-02_JPRB,&
+&.741E-02_JPRB,.740E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 45 -86.0
+ZAER (:,45, 6) = (/&
+&.457E-02_JPRB,.447E-02_JPRB,.436E-02_JPRB,.428E-02_JPRB,.418E-02_JPRB,.414E-02_JPRB,.409E-02_JPRB,&
+&.404E-02_JPRB,.403E-02_JPRB,.399E-02_JPRB,.404E-02_JPRB,.406E-02_JPRB,.422E-02_JPRB,.453E-02_JPRB,&
+&.484E-02_JPRB,.509E-02_JPRB,.532E-02_JPRB,.559E-02_JPRB,.575E-02_JPRB,.597E-02_JPRB,.607E-02_JPRB,&
+&.621E-02_JPRB,.627E-02_JPRB,.633E-02_JPRB,.618E-02_JPRB,.627E-02_JPRB,.639E-02_JPRB,.652E-02_JPRB,&
+&.662E-02_JPRB,.677E-02_JPRB,.696E-02_JPRB,.714E-02_JPRB,.736E-02_JPRB,.757E-02_JPRB,.775E-02_JPRB,&
+&.808E-02_JPRB,.740E-02_JPRB,.715E-02_JPRB,.700E-02_JPRB,.679E-02_JPRB,.670E-02_JPRB,.654E-02_JPRB,&
+&.652E-02_JPRB,.657E-02_JPRB,.657E-02_JPRB,.659E-02_JPRB,.668E-02_JPRB,.683E-02_JPRB,.689E-02_JPRB,&
+&.678E-02_JPRB,.666E-02_JPRB,.651E-02_JPRB,.644E-02_JPRB,.639E-02_JPRB,.636E-02_JPRB,.634E-02_JPRB,&
+&.633E-02_JPRB,.632E-02_JPRB,.631E-02_JPRB,.637E-02_JPRB,.628E-02_JPRB,.622E-02_JPRB,.613E-02_JPRB,&
+&.600E-02_JPRB,.595E-02_JPRB,.577E-02_JPRB,.565E-02_JPRB,.550E-02_JPRB,.531E-02_JPRB,.514E-02_JPRB,&
+&.489E-02_JPRB,.468E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  6 --- lat: 46 -90.0
+ZAER (:,46, 6) = (/&
+&.622E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,.676E-02_JPRB,&
+&.676E-02_JPRB,.676E-02_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=6   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_06
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_07.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_07.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_07.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_07
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          July
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,7:7)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  7 --- lat:  1  90.0
+ZAER (:, 1, 7) = (/&
+&.181E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,.176E-02_JPRB,&
+&.176E-02_JPRB,.176E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  2  86.0
+ZAER (:, 2, 7) = (/&
+&.196E-02_JPRB,.196E-02_JPRB,.195E-02_JPRB,.194E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.192E-02_JPRB,&
+&.191E-02_JPRB,.186E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,&
+&.174E-02_JPRB,.174E-02_JPRB,.173E-02_JPRB,.175E-02_JPRB,.173E-02_JPRB,.172E-02_JPRB,.173E-02_JPRB,&
+&.173E-02_JPRB,.172E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.171E-02_JPRB,.173E-02_JPRB,.173E-02_JPRB,&
+&.175E-02_JPRB,.178E-02_JPRB,.181E-02_JPRB,.184E-02_JPRB,.190E-02_JPRB,.195E-02_JPRB,.201E-02_JPRB,&
+&.208E-02_JPRB,.193E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,.198E-02_JPRB,.199E-02_JPRB,.200E-02_JPRB,&
+&.201E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.200E-02_JPRB,.200E-02_JPRB,.194E-02_JPRB,&
+&.195E-02_JPRB,.194E-02_JPRB,.194E-02_JPRB,.191E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.186E-02_JPRB,&
+&.184E-02_JPRB,.181E-02_JPRB,.177E-02_JPRB,.176E-02_JPRB,.179E-02_JPRB,.175E-02_JPRB,.172E-02_JPRB,&
+&.171E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,.166E-02_JPRB,.165E-02_JPRB,.165E-02_JPRB,.166E-02_JPRB,&
+&.167E-02_JPRB,.169E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  3  82.0
+ZAER (:, 3, 7) = (/&
+&.236E-02_JPRB,.247E-02_JPRB,.254E-02_JPRB,.267E-02_JPRB,.277E-02_JPRB,.287E-02_JPRB,.273E-02_JPRB,&
+&.261E-02_JPRB,.252E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.250E-02_JPRB,.220E-02_JPRB,.223E-02_JPRB,&
+&.226E-02_JPRB,.233E-02_JPRB,.235E-02_JPRB,.243E-02_JPRB,.226E-02_JPRB,.208E-02_JPRB,.195E-02_JPRB,&
+&.185E-02_JPRB,.183E-02_JPRB,.183E-02_JPRB,.205E-02_JPRB,.206E-02_JPRB,.207E-02_JPRB,.208E-02_JPRB,&
+&.207E-02_JPRB,.209E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,.198E-02_JPRB,.207E-02_JPRB,.219E-02_JPRB,&
+&.234E-02_JPRB,.195E-02_JPRB,.204E-02_JPRB,.213E-02_JPRB,.220E-02_JPRB,.230E-02_JPRB,.239E-02_JPRB,&
+&.219E-02_JPRB,.218E-02_JPRB,.219E-02_JPRB,.216E-02_JPRB,.212E-02_JPRB,.209E-02_JPRB,.203E-02_JPRB,&
+&.202E-02_JPRB,.199E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.209E-02_JPRB,&
+&.202E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,.184E-02_JPRB,.200E-02_JPRB,.193E-02_JPRB,.187E-02_JPRB,&
+&.181E-02_JPRB,.176E-02_JPRB,.171E-02_JPRB,.201E-02_JPRB,.188E-02_JPRB,.182E-02_JPRB,.181E-02_JPRB,&
+&.186E-02_JPRB,.194E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  4  78.0
+ZAER (:, 4, 7) = (/&
+&.324E-02_JPRB,.345E-02_JPRB,.372E-02_JPRB,.383E-02_JPRB,.393E-02_JPRB,.385E-02_JPRB,.336E-02_JPRB,&
+&.302E-02_JPRB,.288E-02_JPRB,.234E-02_JPRB,.228E-02_JPRB,.226E-02_JPRB,.219E-02_JPRB,.225E-02_JPRB,&
+&.221E-02_JPRB,.222E-02_JPRB,.220E-02_JPRB,.224E-02_JPRB,.219E-02_JPRB,.216E-02_JPRB,.218E-02_JPRB,&
+&.229E-02_JPRB,.222E-02_JPRB,.210E-02_JPRB,.231E-02_JPRB,.236E-02_JPRB,.246E-02_JPRB,.251E-02_JPRB,&
+&.255E-02_JPRB,.258E-02_JPRB,.236E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,.185E-02_JPRB,.194E-02_JPRB,&
+&.210E-02_JPRB,.193E-02_JPRB,.203E-02_JPRB,.222E-02_JPRB,.226E-02_JPRB,.236E-02_JPRB,.245E-02_JPRB,&
+&.245E-02_JPRB,.249E-02_JPRB,.249E-02_JPRB,.250E-02_JPRB,.236E-02_JPRB,.223E-02_JPRB,.225E-02_JPRB,&
+&.225E-02_JPRB,.224E-02_JPRB,.218E-02_JPRB,.225E-02_JPRB,.233E-02_JPRB,.224E-02_JPRB,.215E-02_JPRB,&
+&.210E-02_JPRB,.214E-02_JPRB,.208E-02_JPRB,.206E-02_JPRB,.214E-02_JPRB,.205E-02_JPRB,.196E-02_JPRB,&
+&.200E-02_JPRB,.190E-02_JPRB,.183E-02_JPRB,.187E-02_JPRB,.174E-02_JPRB,.183E-02_JPRB,.252E-02_JPRB,&
+&.275E-02_JPRB,.297E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  5  74.0
+ZAER (:, 5, 7) = (/&
+&.342E-02_JPRB,.369E-02_JPRB,.395E-02_JPRB,.407E-02_JPRB,.428E-02_JPRB,.434E-02_JPRB,.385E-02_JPRB,&
+&.341E-02_JPRB,.317E-02_JPRB,.293E-02_JPRB,.267E-02_JPRB,.252E-02_JPRB,.253E-02_JPRB,.264E-02_JPRB,&
+&.271E-02_JPRB,.251E-02_JPRB,.238E-02_JPRB,.233E-02_JPRB,.238E-02_JPRB,.235E-02_JPRB,.230E-02_JPRB,&
+&.224E-02_JPRB,.213E-02_JPRB,.204E-02_JPRB,.226E-02_JPRB,.264E-02_JPRB,.258E-02_JPRB,.260E-02_JPRB,&
+&.272E-02_JPRB,.279E-02_JPRB,.279E-02_JPRB,.267E-02_JPRB,.248E-02_JPRB,.225E-02_JPRB,.207E-02_JPRB,&
+&.206E-02_JPRB,.205E-02_JPRB,.203E-02_JPRB,.210E-02_JPRB,.224E-02_JPRB,.228E-02_JPRB,.232E-02_JPRB,&
+&.237E-02_JPRB,.239E-02_JPRB,.244E-02_JPRB,.237E-02_JPRB,.230E-02_JPRB,.217E-02_JPRB,.223E-02_JPRB,&
+&.237E-02_JPRB,.247E-02_JPRB,.228E-02_JPRB,.223E-02_JPRB,.214E-02_JPRB,.213E-02_JPRB,.211E-02_JPRB,&
+&.214E-02_JPRB,.218E-02_JPRB,.219E-02_JPRB,.217E-02_JPRB,.218E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,&
+&.213E-02_JPRB,.215E-02_JPRB,.213E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.226E-02_JPRB,.250E-02_JPRB,&
+&.282E-02_JPRB,.311E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  6  70.0
+ZAER (:, 6, 7) = (/&
+&.411E-02_JPRB,.432E-02_JPRB,.438E-02_JPRB,.423E-02_JPRB,.408E-02_JPRB,.375E-02_JPRB,.345E-02_JPRB,&
+&.345E-02_JPRB,.332E-02_JPRB,.318E-02_JPRB,.312E-02_JPRB,.288E-02_JPRB,.299E-02_JPRB,.303E-02_JPRB,&
+&.308E-02_JPRB,.299E-02_JPRB,.284E-02_JPRB,.272E-02_JPRB,.287E-02_JPRB,.293E-02_JPRB,.280E-02_JPRB,&
+&.250E-02_JPRB,.225E-02_JPRB,.223E-02_JPRB,.260E-02_JPRB,.285E-02_JPRB,.271E-02_JPRB,.268E-02_JPRB,&
+&.279E-02_JPRB,.280E-02_JPRB,.284E-02_JPRB,.286E-02_JPRB,.288E-02_JPRB,.272E-02_JPRB,.266E-02_JPRB,&
+&.264E-02_JPRB,.251E-02_JPRB,.261E-02_JPRB,.291E-02_JPRB,.333E-02_JPRB,.351E-02_JPRB,.346E-02_JPRB,&
+&.323E-02_JPRB,.317E-02_JPRB,.310E-02_JPRB,.292E-02_JPRB,.264E-02_JPRB,.241E-02_JPRB,.231E-02_JPRB,&
+&.243E-02_JPRB,.276E-02_JPRB,.272E-02_JPRB,.241E-02_JPRB,.227E-02_JPRB,.219E-02_JPRB,.223E-02_JPRB,&
+&.231E-02_JPRB,.221E-02_JPRB,.216E-02_JPRB,.224E-02_JPRB,.232E-02_JPRB,.233E-02_JPRB,.234E-02_JPRB,&
+&.232E-02_JPRB,.222E-02_JPRB,.223E-02_JPRB,.227E-02_JPRB,.235E-02_JPRB,.260E-02_JPRB,.281E-02_JPRB,&
+&.323E-02_JPRB,.375E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  7  66.0
+ZAER (:, 7, 7) = (/&
+&.410E-02_JPRB,.388E-02_JPRB,.398E-02_JPRB,.387E-02_JPRB,.389E-02_JPRB,.383E-02_JPRB,.360E-02_JPRB,&
+&.349E-02_JPRB,.350E-02_JPRB,.338E-02_JPRB,.325E-02_JPRB,.325E-02_JPRB,.312E-02_JPRB,.299E-02_JPRB,&
+&.289E-02_JPRB,.288E-02_JPRB,.292E-02_JPRB,.287E-02_JPRB,.318E-02_JPRB,.326E-02_JPRB,.316E-02_JPRB,&
+&.294E-02_JPRB,.268E-02_JPRB,.258E-02_JPRB,.263E-02_JPRB,.265E-02_JPRB,.293E-02_JPRB,.332E-02_JPRB,&
+&.340E-02_JPRB,.339E-02_JPRB,.356E-02_JPRB,.378E-02_JPRB,.382E-02_JPRB,.366E-02_JPRB,.343E-02_JPRB,&
+&.343E-02_JPRB,.351E-02_JPRB,.379E-02_JPRB,.427E-02_JPRB,.486E-02_JPRB,.560E-02_JPRB,.579E-02_JPRB,&
+&.501E-02_JPRB,.430E-02_JPRB,.400E-02_JPRB,.408E-02_JPRB,.402E-02_JPRB,.353E-02_JPRB,.336E-02_JPRB,&
+&.314E-02_JPRB,.303E-02_JPRB,.322E-02_JPRB,.351E-02_JPRB,.329E-02_JPRB,.301E-02_JPRB,.304E-02_JPRB,&
+&.313E-02_JPRB,.297E-02_JPRB,.296E-02_JPRB,.317E-02_JPRB,.357E-02_JPRB,.364E-02_JPRB,.354E-02_JPRB,&
+&.329E-02_JPRB,.308E-02_JPRB,.297E-02_JPRB,.292E-02_JPRB,.295E-02_JPRB,.315E-02_JPRB,.327E-02_JPRB,&
+&.356E-02_JPRB,.403E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  8  62.0
+ZAER (:, 8, 7) = (/&
+&.356E-02_JPRB,.352E-02_JPRB,.342E-02_JPRB,.344E-02_JPRB,.366E-02_JPRB,.361E-02_JPRB,.370E-02_JPRB,&
+&.365E-02_JPRB,.351E-02_JPRB,.339E-02_JPRB,.333E-02_JPRB,.310E-02_JPRB,.292E-02_JPRB,.274E-02_JPRB,&
+&.267E-02_JPRB,.266E-02_JPRB,.275E-02_JPRB,.279E-02_JPRB,.298E-02_JPRB,.329E-02_JPRB,.337E-02_JPRB,&
+&.339E-02_JPRB,.359E-02_JPRB,.342E-02_JPRB,.298E-02_JPRB,.285E-02_JPRB,.314E-02_JPRB,.357E-02_JPRB,&
+&.361E-02_JPRB,.351E-02_JPRB,.355E-02_JPRB,.451E-02_JPRB,.526E-02_JPRB,.553E-02_JPRB,.504E-02_JPRB,&
+&.489E-02_JPRB,.488E-02_JPRB,.477E-02_JPRB,.405E-02_JPRB,.455E-02_JPRB,.501E-02_JPRB,.504E-02_JPRB,&
+&.602E-02_JPRB,.566E-02_JPRB,.510E-02_JPRB,.555E-02_JPRB,.524E-02_JPRB,.478E-02_JPRB,.443E-02_JPRB,&
+&.403E-02_JPRB,.397E-02_JPRB,.412E-02_JPRB,.491E-02_JPRB,.529E-02_JPRB,.509E-02_JPRB,.442E-02_JPRB,&
+&.401E-02_JPRB,.374E-02_JPRB,.335E-02_JPRB,.353E-02_JPRB,.403E-02_JPRB,.412E-02_JPRB,.430E-02_JPRB,&
+&.450E-02_JPRB,.456E-02_JPRB,.453E-02_JPRB,.424E-02_JPRB,.391E-02_JPRB,.385E-02_JPRB,.362E-02_JPRB,&
+&.357E-02_JPRB,.371E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat:  9  58.0
+ZAER (:, 9, 7) = (/&
+&.362E-02_JPRB,.369E-02_JPRB,.384E-02_JPRB,.366E-02_JPRB,.351E-02_JPRB,.350E-02_JPRB,.349E-02_JPRB,&
+&.332E-02_JPRB,.282E-02_JPRB,.287E-02_JPRB,.289E-02_JPRB,.280E-02_JPRB,.267E-02_JPRB,.274E-02_JPRB,&
+&.281E-02_JPRB,.276E-02_JPRB,.263E-02_JPRB,.250E-02_JPRB,.259E-02_JPRB,.274E-02_JPRB,.299E-02_JPRB,&
+&.323E-02_JPRB,.369E-02_JPRB,.389E-02_JPRB,.348E-02_JPRB,.317E-02_JPRB,.317E-02_JPRB,.325E-02_JPRB,&
+&.369E-02_JPRB,.376E-02_JPRB,.391E-02_JPRB,.491E-02_JPRB,.580E-02_JPRB,.560E-02_JPRB,.515E-02_JPRB,&
+&.472E-02_JPRB,.522E-02_JPRB,.570E-02_JPRB,.521E-02_JPRB,.487E-02_JPRB,.526E-02_JPRB,.571E-02_JPRB,&
+&.634E-02_JPRB,.601E-02_JPRB,.592E-02_JPRB,.598E-02_JPRB,.536E-02_JPRB,.490E-02_JPRB,.495E-02_JPRB,&
+&.465E-02_JPRB,.487E-02_JPRB,.540E-02_JPRB,.544E-02_JPRB,.583E-02_JPRB,.619E-02_JPRB,.542E-02_JPRB,&
+&.473E-02_JPRB,.441E-02_JPRB,.411E-02_JPRB,.429E-02_JPRB,.447E-02_JPRB,.410E-02_JPRB,.414E-02_JPRB,&
+&.452E-02_JPRB,.467E-02_JPRB,.463E-02_JPRB,.421E-02_JPRB,.388E-02_JPRB,.373E-02_JPRB,.358E-02_JPRB,&
+&.360E-02_JPRB,.366E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 10  54.0
+ZAER (:,10, 7) = (/&
+&.371E-02_JPRB,.380E-02_JPRB,.399E-02_JPRB,.413E-02_JPRB,.367E-02_JPRB,.333E-02_JPRB,.316E-02_JPRB,&
+&.298E-02_JPRB,.270E-02_JPRB,.272E-02_JPRB,.275E-02_JPRB,.284E-02_JPRB,.291E-02_JPRB,.290E-02_JPRB,&
+&.285E-02_JPRB,.300E-02_JPRB,.292E-02_JPRB,.289E-02_JPRB,.278E-02_JPRB,.278E-02_JPRB,.288E-02_JPRB,&
+&.315E-02_JPRB,.238E-02_JPRB,.409E-02_JPRB,.416E-02_JPRB,.430E-02_JPRB,.354E-02_JPRB,.324E-02_JPRB,&
+&.359E-02_JPRB,.393E-02_JPRB,.390E-02_JPRB,.435E-02_JPRB,.479E-02_JPRB,.468E-02_JPRB,.490E-02_JPRB,&
+&.486E-02_JPRB,.544E-02_JPRB,.605E-02_JPRB,.642E-02_JPRB,.605E-02_JPRB,.612E-02_JPRB,.634E-02_JPRB,&
+&.631E-02_JPRB,.626E-02_JPRB,.608E-02_JPRB,.633E-02_JPRB,.615E-02_JPRB,.534E-02_JPRB,.509E-02_JPRB,&
+&.463E-02_JPRB,.472E-02_JPRB,.533E-02_JPRB,.509E-02_JPRB,.514E-02_JPRB,.526E-02_JPRB,.560E-02_JPRB,&
+&.527E-02_JPRB,.490E-02_JPRB,.476E-02_JPRB,.486E-02_JPRB,.473E-02_JPRB,.440E-02_JPRB,.417E-02_JPRB,&
+&.427E-02_JPRB,.456E-02_JPRB,.433E-02_JPRB,.401E-02_JPRB,.392E-02_JPRB,.387E-02_JPRB,.384E-02_JPRB,&
+&.372E-02_JPRB,.357E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 11  50.0
+ZAER (:,11, 7) = (/&
+&.392E-02_JPRB,.387E-02_JPRB,.392E-02_JPRB,.375E-02_JPRB,.338E-02_JPRB,.325E-02_JPRB,.309E-02_JPRB,&
+&.309E-02_JPRB,.299E-02_JPRB,.299E-02_JPRB,.309E-02_JPRB,.289E-02_JPRB,.296E-02_JPRB,.314E-02_JPRB,&
+&.321E-02_JPRB,.345E-02_JPRB,.360E-02_JPRB,.348E-02_JPRB,.329E-02_JPRB,.319E-02_JPRB,.313E-02_JPRB,&
+&.321E-02_JPRB,.222E-02_JPRB,.426E-02_JPRB,.517E-02_JPRB,.559E-02_JPRB,.454E-02_JPRB,.407E-02_JPRB,&
+&.381E-02_JPRB,.367E-02_JPRB,.383E-02_JPRB,.452E-02_JPRB,.466E-02_JPRB,.465E-02_JPRB,.483E-02_JPRB,&
+&.540E-02_JPRB,.569E-02_JPRB,.581E-02_JPRB,.634E-02_JPRB,.711E-02_JPRB,.787E-02_JPRB,.724E-02_JPRB,&
+&.674E-02_JPRB,.683E-02_JPRB,.625E-02_JPRB,.566E-02_JPRB,.527E-02_JPRB,.452E-02_JPRB,.414E-02_JPRB,&
+&.423E-02_JPRB,.440E-02_JPRB,.470E-02_JPRB,.492E-02_JPRB,.489E-02_JPRB,.502E-02_JPRB,.548E-02_JPRB,&
+&.536E-02_JPRB,.500E-02_JPRB,.453E-02_JPRB,.461E-02_JPRB,.446E-02_JPRB,.437E-02_JPRB,.437E-02_JPRB,&
+&.446E-02_JPRB,.442E-02_JPRB,.423E-02_JPRB,.405E-02_JPRB,.402E-02_JPRB,.396E-02_JPRB,.379E-02_JPRB,&
+&.363E-02_JPRB,.373E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 12  46.0
+ZAER (:,12, 7) = (/&
+&.430E-02_JPRB,.425E-02_JPRB,.428E-02_JPRB,.392E-02_JPRB,.364E-02_JPRB,.364E-02_JPRB,.346E-02_JPRB,&
+&.340E-02_JPRB,.330E-02_JPRB,.316E-02_JPRB,.309E-02_JPRB,.322E-02_JPRB,.330E-02_JPRB,.336E-02_JPRB,&
+&.357E-02_JPRB,.383E-02_JPRB,.375E-02_JPRB,.355E-02_JPRB,.346E-02_JPRB,.349E-02_JPRB,.356E-02_JPRB,&
+&.356E-02_JPRB,.259E-02_JPRB,.565E-02_JPRB,.824E-02_JPRB,.941E-02_JPRB,.815E-02_JPRB,.631E-02_JPRB,&
+&.522E-02_JPRB,.497E-02_JPRB,.521E-02_JPRB,.556E-02_JPRB,.547E-02_JPRB,.546E-02_JPRB,.569E-02_JPRB,&
+&.593E-02_JPRB,.618E-02_JPRB,.663E-02_JPRB,.775E-02_JPRB,.866E-02_JPRB,.851E-02_JPRB,.803E-02_JPRB,&
+&.794E-02_JPRB,.772E-02_JPRB,.745E-02_JPRB,.659E-02_JPRB,.529E-02_JPRB,.497E-02_JPRB,.509E-02_JPRB,&
+&.508E-02_JPRB,.506E-02_JPRB,.503E-02_JPRB,.491E-02_JPRB,.505E-02_JPRB,.533E-02_JPRB,.557E-02_JPRB,&
+&.498E-02_JPRB,.471E-02_JPRB,.452E-02_JPRB,.441E-02_JPRB,.433E-02_JPRB,.438E-02_JPRB,.458E-02_JPRB,&
+&.459E-02_JPRB,.468E-02_JPRB,.481E-02_JPRB,.432E-02_JPRB,.379E-02_JPRB,.352E-02_JPRB,.368E-02_JPRB,&
+&.385E-02_JPRB,.403E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 13  42.0
+ZAER (:,13, 7) = (/&
+&.489E-02_JPRB,.420E-02_JPRB,.416E-02_JPRB,.393E-02_JPRB,.361E-02_JPRB,.360E-02_JPRB,.379E-02_JPRB,&
+&.384E-02_JPRB,.363E-02_JPRB,.351E-02_JPRB,.345E-02_JPRB,.364E-02_JPRB,.380E-02_JPRB,.403E-02_JPRB,&
+&.421E-02_JPRB,.409E-02_JPRB,.421E-02_JPRB,.425E-02_JPRB,.408E-02_JPRB,.381E-02_JPRB,.398E-02_JPRB,&
+&.555E-02_JPRB,.419E-02_JPRB,.584E-02_JPRB,.125E-01_JPRB,.144E-01_JPRB,.113E-01_JPRB,.964E-02_JPRB,&
+&.816E-02_JPRB,.722E-02_JPRB,.706E-02_JPRB,.664E-02_JPRB,.648E-02_JPRB,.656E-02_JPRB,.660E-02_JPRB,&
+&.676E-02_JPRB,.707E-02_JPRB,.798E-02_JPRB,.994E-02_JPRB,.980E-02_JPRB,.892E-02_JPRB,.866E-02_JPRB,&
+&.887E-02_JPRB,.848E-02_JPRB,.791E-02_JPRB,.751E-02_JPRB,.689E-02_JPRB,.636E-02_JPRB,.614E-02_JPRB,&
+&.619E-02_JPRB,.608E-02_JPRB,.570E-02_JPRB,.577E-02_JPRB,.603E-02_JPRB,.631E-02_JPRB,.631E-02_JPRB,&
+&.509E-02_JPRB,.490E-02_JPRB,.535E-02_JPRB,.528E-02_JPRB,.486E-02_JPRB,.488E-02_JPRB,.461E-02_JPRB,&
+&.465E-02_JPRB,.537E-02_JPRB,.436E-02_JPRB,.420E-02_JPRB,.411E-02_JPRB,.373E-02_JPRB,.371E-02_JPRB,&
+&.385E-02_JPRB,.404E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 14  38.0
+ZAER (:,14, 7) = (/&
+&.458E-02_JPRB,.391E-02_JPRB,.400E-02_JPRB,.404E-02_JPRB,.410E-02_JPRB,.439E-02_JPRB,.481E-02_JPRB,&
+&.485E-02_JPRB,.476E-02_JPRB,.464E-02_JPRB,.439E-02_JPRB,.431E-02_JPRB,.440E-02_JPRB,.486E-02_JPRB,&
+&.485E-02_JPRB,.473E-02_JPRB,.482E-02_JPRB,.461E-02_JPRB,.449E-02_JPRB,.426E-02_JPRB,.458E-02_JPRB,&
+&.717E-02_JPRB,.542E-02_JPRB,.956E-02_JPRB,.793E-02_JPRB,.164E-01_JPRB,.127E-01_JPRB,.108E-01_JPRB,&
+&.992E-02_JPRB,.928E-02_JPRB,.891E-02_JPRB,.846E-02_JPRB,.829E-02_JPRB,.807E-02_JPRB,.789E-02_JPRB,&
+&.770E-02_JPRB,.788E-02_JPRB,.938E-02_JPRB,.120E-01_JPRB,.128E-01_JPRB,.110E-01_JPRB,.101E-01_JPRB,&
+&.107E-01_JPRB,.108E-01_JPRB,.886E-02_JPRB,.786E-02_JPRB,.664E-02_JPRB,.610E-02_JPRB,.619E-02_JPRB,&
+&.650E-02_JPRB,.672E-02_JPRB,.661E-02_JPRB,.686E-02_JPRB,.674E-02_JPRB,.659E-02_JPRB,.633E-02_JPRB,&
+&.567E-02_JPRB,.594E-02_JPRB,.708E-02_JPRB,.757E-02_JPRB,.599E-02_JPRB,.596E-02_JPRB,.568E-02_JPRB,&
+&.547E-02_JPRB,.556E-02_JPRB,.261E-02_JPRB,.428E-02_JPRB,.483E-02_JPRB,.440E-02_JPRB,.415E-02_JPRB,&
+&.406E-02_JPRB,.383E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 15  34.0
+ZAER (:,15, 7) = (/&
+&.467E-02_JPRB,.444E-02_JPRB,.485E-02_JPRB,.532E-02_JPRB,.581E-02_JPRB,.626E-02_JPRB,.639E-02_JPRB,&
+&.636E-02_JPRB,.633E-02_JPRB,.608E-02_JPRB,.568E-02_JPRB,.557E-02_JPRB,.560E-02_JPRB,.571E-02_JPRB,&
+&.555E-02_JPRB,.528E-02_JPRB,.540E-02_JPRB,.525E-02_JPRB,.494E-02_JPRB,.497E-02_JPRB,.583E-02_JPRB,&
+&.940E-02_JPRB,.802E-02_JPRB,.138E-01_JPRB,.825E-02_JPRB,.103E-01_JPRB,.152E-01_JPRB,.125E-01_JPRB,&
+&.114E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.991E-02_JPRB,.976E-02_JPRB,.944E-02_JPRB,.938E-02_JPRB,&
+&.882E-02_JPRB,.837E-02_JPRB,.115E-01_JPRB,.187E-01_JPRB,.213E-01_JPRB,.122E-01_JPRB,.154E-01_JPRB,&
+&.153E-01_JPRB,.149E-01_JPRB,.110E-01_JPRB,.841E-02_JPRB,.756E-02_JPRB,.730E-02_JPRB,.734E-02_JPRB,&
+&.777E-02_JPRB,.789E-02_JPRB,.829E-02_JPRB,.834E-02_JPRB,.773E-02_JPRB,.744E-02_JPRB,.679E-02_JPRB,&
+&.655E-02_JPRB,.692E-02_JPRB,.758E-02_JPRB,.749E-02_JPRB,.471E-02_JPRB,.847E-02_JPRB,.826E-02_JPRB,&
+&.689E-02_JPRB,.372E-02_JPRB,.444E-02_JPRB,.338E-02_JPRB,.598E-02_JPRB,.534E-02_JPRB,.472E-02_JPRB,&
+&.463E-02_JPRB,.449E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 16  30.0
+ZAER (:,16, 7) = (/&
+&.598E-02_JPRB,.608E-02_JPRB,.668E-02_JPRB,.786E-02_JPRB,.891E-02_JPRB,.926E-02_JPRB,.913E-02_JPRB,&
+&.899E-02_JPRB,.877E-02_JPRB,.822E-02_JPRB,.790E-02_JPRB,.777E-02_JPRB,.780E-02_JPRB,.758E-02_JPRB,&
+&.714E-02_JPRB,.675E-02_JPRB,.638E-02_JPRB,.600E-02_JPRB,.619E-02_JPRB,.614E-02_JPRB,.761E-02_JPRB,&
+&.151E-01_JPRB,.136E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.148E-01_JPRB,.198E-01_JPRB,.167E-01_JPRB,&
+&.150E-01_JPRB,.136E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.120E-01_JPRB,.114E-01_JPRB,&
+&.107E-01_JPRB,.109E-01_JPRB,.179E-01_JPRB,.299E-01_JPRB,.457E-01_JPRB,.258E-01_JPRB,.207E-01_JPRB,&
+&.170E-01_JPRB,.274E-01_JPRB,.150E-01_JPRB,.103E-01_JPRB,.912E-02_JPRB,.900E-02_JPRB,.998E-02_JPRB,&
+&.108E-01_JPRB,.115E-01_JPRB,.121E-01_JPRB,.114E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,&
+&.930E-02_JPRB,.917E-02_JPRB,.964E-02_JPRB,.626E-02_JPRB,.599E-02_JPRB,.656E-02_JPRB,.601E-02_JPRB,&
+&.607E-02_JPRB,.700E-02_JPRB,.847E-02_JPRB,.787E-02_JPRB,.999E-02_JPRB,.808E-02_JPRB,.706E-02_JPRB,&
+&.644E-02_JPRB,.593E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 17  26.0
+ZAER (:,17, 7) = (/&
+&.989E-02_JPRB,.104E-01_JPRB,.116E-01_JPRB,.130E-01_JPRB,.138E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,&
+&.137E-01_JPRB,.132E-01_JPRB,.125E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,.106E-01_JPRB,&
+&.995E-02_JPRB,.900E-02_JPRB,.825E-02_JPRB,.824E-02_JPRB,.835E-02_JPRB,.866E-02_JPRB,.108E-01_JPRB,&
+&.220E-01_JPRB,.206E-01_JPRB,.198E-01_JPRB,.210E-01_JPRB,.217E-01_JPRB,.220E-01_JPRB,.333E-01_JPRB,&
+&.254E-01_JPRB,.210E-01_JPRB,.194E-01_JPRB,.187E-01_JPRB,.177E-01_JPRB,.160E-01_JPRB,.145E-01_JPRB,&
+&.139E-01_JPRB,.159E-01_JPRB,.254E-01_JPRB,.387E-01_JPRB,.325E-01_JPRB,.413E-01_JPRB,.417E-01_JPRB,&
+&.280E-01_JPRB,.426E-01_JPRB,.208E-01_JPRB,.145E-01_JPRB,.134E-01_JPRB,.138E-01_JPRB,.158E-01_JPRB,&
+&.165E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,.148E-01_JPRB,&
+&.134E-01_JPRB,.127E-01_JPRB,.138E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.915E-02_JPRB,.921E-02_JPRB,&
+&.929E-02_JPRB,.888E-02_JPRB,.915E-02_JPRB,.914E-02_JPRB,.145E-01_JPRB,.128E-01_JPRB,.114E-01_JPRB,&
+&.105E-01_JPRB,.101E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 18  22.0
+ZAER (:,18, 7) = (/&
+&.148E-01_JPRB,.167E-01_JPRB,.182E-01_JPRB,.186E-01_JPRB,.197E-01_JPRB,.206E-01_JPRB,.211E-01_JPRB,&
+&.205E-01_JPRB,.189E-01_JPRB,.180E-01_JPRB,.168E-01_JPRB,.161E-01_JPRB,.153E-01_JPRB,.144E-01_JPRB,&
+&.141E-01_JPRB,.131E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,.120E-01_JPRB,.133E-01_JPRB,.216E-01_JPRB,&
+&.574E-01_JPRB,.398E-01_JPRB,.227E-01_JPRB,.237E-01_JPRB,.331E-01_JPRB,.343E-01_JPRB,.285E-01_JPRB,&
+&.316E-01_JPRB,.258E-01_JPRB,.236E-01_JPRB,.237E-01_JPRB,.233E-01_JPRB,.221E-01_JPRB,.194E-01_JPRB,&
+&.182E-01_JPRB,.197E-01_JPRB,.297E-01_JPRB,.511E-01_JPRB,.491E-01_JPRB,.538E-01_JPRB,.472E-01_JPRB,&
+&.364E-01_JPRB,.299E-01_JPRB,.265E-01_JPRB,.135E-01_JPRB,.207E-01_JPRB,.216E-01_JPRB,.261E-01_JPRB,&
+&.215E-01_JPRB,.216E-01_JPRB,.212E-01_JPRB,.197E-01_JPRB,.194E-01_JPRB,.188E-01_JPRB,.172E-01_JPRB,&
+&.167E-01_JPRB,.169E-01_JPRB,.202E-01_JPRB,.236E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,&
+&.124E-01_JPRB,.996E-02_JPRB,.107E-01_JPRB,.190E-01_JPRB,.189E-01_JPRB,.182E-01_JPRB,.161E-01_JPRB,&
+&.152E-01_JPRB,.146E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 19  18.0
+ZAER (:,19, 7) = (/&
+&.236E-01_JPRB,.226E-01_JPRB,.230E-01_JPRB,.241E-01_JPRB,.267E-01_JPRB,.280E-01_JPRB,.281E-01_JPRB,&
+&.277E-01_JPRB,.267E-01_JPRB,.247E-01_JPRB,.222E-01_JPRB,.210E-01_JPRB,.187E-01_JPRB,.186E-01_JPRB,&
+&.198E-01_JPRB,.199E-01_JPRB,.194E-01_JPRB,.186E-01_JPRB,.189E-01_JPRB,.234E-01_JPRB,.482E-01_JPRB,&
+&.111E+00_JPRB,.357E-01_JPRB,.226E-01_JPRB,.317E-01_JPRB,.351E-01_JPRB,.327E-01_JPRB,.259E-01_JPRB,&
+&.182E-01_JPRB,.266E-01_JPRB,.251E-01_JPRB,.253E-01_JPRB,.252E-01_JPRB,.247E-01_JPRB,.230E-01_JPRB,&
+&.222E-01_JPRB,.252E-01_JPRB,.413E-01_JPRB,.814E-01_JPRB,.544E-01_JPRB,.509E-01_JPRB,.348E-01_JPRB,&
+&.247E-01_JPRB,.202E-01_JPRB,.276E-01_JPRB,.159E-01_JPRB,.241E-01_JPRB,.270E-01_JPRB,.274E-01_JPRB,&
+&.249E-01_JPRB,.236E-01_JPRB,.215E-01_JPRB,.213E-01_JPRB,.222E-01_JPRB,.210E-01_JPRB,.207E-01_JPRB,&
+&.203E-01_JPRB,.198E-01_JPRB,.210E-01_JPRB,.243E-01_JPRB,.280E-01_JPRB,.173E-01_JPRB,.155E-01_JPRB,&
+&.134E-01_JPRB,.110E-01_JPRB,.118E-01_JPRB,.229E-01_JPRB,.250E-01_JPRB,.268E-01_JPRB,.286E-01_JPRB,&
+&.305E-01_JPRB,.249E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 20  14.0
+ZAER (:,20, 7) = (/&
+&.309E-01_JPRB,.280E-01_JPRB,.297E-01_JPRB,.321E-01_JPRB,.345E-01_JPRB,.360E-01_JPRB,.352E-01_JPRB,&
+&.334E-01_JPRB,.328E-01_JPRB,.299E-01_JPRB,.272E-01_JPRB,.259E-01_JPRB,.260E-01_JPRB,.251E-01_JPRB,&
+&.259E-01_JPRB,.264E-01_JPRB,.273E-01_JPRB,.289E-01_JPRB,.347E-01_JPRB,.515E-01_JPRB,.765E-01_JPRB,&
+&.354E-01_JPRB,.242E-01_JPRB,.311E-01_JPRB,.380E-01_JPRB,.304E-01_JPRB,.235E-01_JPRB,.199E-01_JPRB,&
+&.185E-01_JPRB,.296E-01_JPRB,.276E-01_JPRB,.258E-01_JPRB,.249E-01_JPRB,.263E-01_JPRB,.277E-01_JPRB,&
+&.311E-01_JPRB,.449E-01_JPRB,.707E-01_JPRB,.107E+00_JPRB,.608E-01_JPRB,.459E-01_JPRB,.351E-01_JPRB,&
+&.186E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,.267E-01_JPRB,.242E-01_JPRB,.248E-01_JPRB,.255E-01_JPRB,&
+&.250E-01_JPRB,.231E-01_JPRB,.227E-01_JPRB,.250E-01_JPRB,.260E-01_JPRB,.259E-01_JPRB,.279E-01_JPRB,&
+&.285E-01_JPRB,.280E-01_JPRB,.268E-01_JPRB,.308E-01_JPRB,.328E-01_JPRB,.322E-01_JPRB,.165E-01_JPRB,&
+&.121E-01_JPRB,.216E-01_JPRB,.255E-01_JPRB,.290E-01_JPRB,.316E-01_JPRB,.341E-01_JPRB,.405E-01_JPRB,&
+&.427E-01_JPRB,.383E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 21  10.0
+ZAER (:,21, 7) = (/&
+&.350E-01_JPRB,.359E-01_JPRB,.387E-01_JPRB,.404E-01_JPRB,.415E-01_JPRB,.420E-01_JPRB,.403E-01_JPRB,&
+&.388E-01_JPRB,.373E-01_JPRB,.353E-01_JPRB,.332E-01_JPRB,.329E-01_JPRB,.331E-01_JPRB,.337E-01_JPRB,&
+&.352E-01_JPRB,.363E-01_JPRB,.399E-01_JPRB,.464E-01_JPRB,.599E-01_JPRB,.750E-01_JPRB,.756E-01_JPRB,&
+&.306E-01_JPRB,.314E-01_JPRB,.311E-01_JPRB,.268E-01_JPRB,.239E-01_JPRB,.232E-01_JPRB,.220E-01_JPRB,&
+&.207E-01_JPRB,.297E-01_JPRB,.308E-01_JPRB,.304E-01_JPRB,.294E-01_JPRB,.314E-01_JPRB,.381E-01_JPRB,&
+&.486E-01_JPRB,.611E-01_JPRB,.731E-01_JPRB,.763E-01_JPRB,.411E-01_JPRB,.375E-01_JPRB,.250E-01_JPRB,&
+&.162E-01_JPRB,.157E-01_JPRB,.271E-01_JPRB,.256E-01_JPRB,.258E-01_JPRB,.256E-01_JPRB,.259E-01_JPRB,&
+&.255E-01_JPRB,.245E-01_JPRB,.260E-01_JPRB,.273E-01_JPRB,.294E-01_JPRB,.317E-01_JPRB,.349E-01_JPRB,&
+&.398E-01_JPRB,.438E-01_JPRB,.407E-01_JPRB,.352E-01_JPRB,.346E-01_JPRB,.294E-01_JPRB,.273E-01_JPRB,&
+&.291E-01_JPRB,.342E-01_JPRB,.389E-01_JPRB,.363E-01_JPRB,.398E-01_JPRB,.413E-01_JPRB,.427E-01_JPRB,&
+&.395E-01_JPRB,.360E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 22   6.0
+ZAER (:,22, 7) = (/&
+&.417E-01_JPRB,.418E-01_JPRB,.445E-01_JPRB,.447E-01_JPRB,.460E-01_JPRB,.453E-01_JPRB,.437E-01_JPRB,&
+&.419E-01_JPRB,.412E-01_JPRB,.393E-01_JPRB,.394E-01_JPRB,.398E-01_JPRB,.405E-01_JPRB,.420E-01_JPRB,&
+&.451E-01_JPRB,.518E-01_JPRB,.574E-01_JPRB,.650E-01_JPRB,.776E-01_JPRB,.747E-01_JPRB,.334E-01_JPRB,&
+&.264E-01_JPRB,.241E-01_JPRB,.232E-01_JPRB,.227E-01_JPRB,.243E-01_JPRB,.235E-01_JPRB,.220E-01_JPRB,&
+&.201E-01_JPRB,.329E-01_JPRB,.333E-01_JPRB,.345E-01_JPRB,.363E-01_JPRB,.361E-01_JPRB,.412E-01_JPRB,&
+&.477E-01_JPRB,.495E-01_JPRB,.474E-01_JPRB,.475E-01_JPRB,.237E-01_JPRB,.227E-01_JPRB,.191E-01_JPRB,&
+&.163E-01_JPRB,.150E-01_JPRB,.255E-01_JPRB,.261E-01_JPRB,.260E-01_JPRB,.242E-01_JPRB,.241E-01_JPRB,&
+&.242E-01_JPRB,.246E-01_JPRB,.253E-01_JPRB,.273E-01_JPRB,.309E-01_JPRB,.349E-01_JPRB,.401E-01_JPRB,&
+&.486E-01_JPRB,.562E-01_JPRB,.400E-01_JPRB,.378E-01_JPRB,.351E-01_JPRB,.334E-01_JPRB,.392E-01_JPRB,&
+&.429E-01_JPRB,.258E-01_JPRB,.261E-01_JPRB,.505E-01_JPRB,.474E-01_JPRB,.450E-01_JPRB,.430E-01_JPRB,&
+&.417E-01_JPRB,.408E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 23   2.0
+ZAER (:,23, 7) = (/&
+&.458E-01_JPRB,.462E-01_JPRB,.467E-01_JPRB,.472E-01_JPRB,.479E-01_JPRB,.469E-01_JPRB,.460E-01_JPRB,&
+&.448E-01_JPRB,.446E-01_JPRB,.443E-01_JPRB,.463E-01_JPRB,.488E-01_JPRB,.496E-01_JPRB,.521E-01_JPRB,&
+&.548E-01_JPRB,.602E-01_JPRB,.635E-01_JPRB,.643E-01_JPRB,.613E-01_JPRB,.553E-01_JPRB,.301E-01_JPRB,&
+&.222E-01_JPRB,.211E-01_JPRB,.215E-01_JPRB,.222E-01_JPRB,.236E-01_JPRB,.242E-01_JPRB,.230E-01_JPRB,&
+&.347E-01_JPRB,.364E-01_JPRB,.361E-01_JPRB,.363E-01_JPRB,.360E-01_JPRB,.357E-01_JPRB,.369E-01_JPRB,&
+&.371E-01_JPRB,.356E-01_JPRB,.351E-01_JPRB,.225E-01_JPRB,.203E-01_JPRB,.218E-01_JPRB,.235E-01_JPRB,&
+&.192E-01_JPRB,.153E-01_JPRB,.149E-01_JPRB,.242E-01_JPRB,.224E-01_JPRB,.216E-01_JPRB,.226E-01_JPRB,&
+&.239E-01_JPRB,.251E-01_JPRB,.262E-01_JPRB,.285E-01_JPRB,.320E-01_JPRB,.374E-01_JPRB,.411E-01_JPRB,&
+&.442E-01_JPRB,.263E-01_JPRB,.404E-01_JPRB,.239E-01_JPRB,.382E-01_JPRB,.384E-01_JPRB,.407E-01_JPRB,&
+&.247E-01_JPRB,.464E-01_JPRB,.486E-01_JPRB,.488E-01_JPRB,.465E-01_JPRB,.457E-01_JPRB,.454E-01_JPRB,&
+&.450E-01_JPRB,.447E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 24  -2.0
+ZAER (:,24, 7) = (/&
+&.465E-01_JPRB,.478E-01_JPRB,.488E-01_JPRB,.492E-01_JPRB,.500E-01_JPRB,.499E-01_JPRB,.519E-01_JPRB,&
+&.525E-01_JPRB,.536E-01_JPRB,.537E-01_JPRB,.524E-01_JPRB,.527E-01_JPRB,.496E-01_JPRB,.509E-01_JPRB,&
+&.510E-01_JPRB,.519E-01_JPRB,.487E-01_JPRB,.478E-01_JPRB,.464E-01_JPRB,.494E-01_JPRB,.407E-01_JPRB,&
+&.185E-01_JPRB,.193E-01_JPRB,.202E-01_JPRB,.215E-01_JPRB,.219E-01_JPRB,.354E-01_JPRB,.347E-01_JPRB,&
+&.350E-01_JPRB,.358E-01_JPRB,.327E-01_JPRB,.328E-01_JPRB,.335E-01_JPRB,.308E-01_JPRB,.309E-01_JPRB,&
+&.258E-01_JPRB,.275E-01_JPRB,.252E-01_JPRB,.162E-01_JPRB,.177E-01_JPRB,.196E-01_JPRB,.200E-01_JPRB,&
+&.168E-01_JPRB,.127E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.206E-01_JPRB,.207E-01_JPRB,.225E-01_JPRB,&
+&.260E-01_JPRB,.301E-01_JPRB,.314E-01_JPRB,.322E-01_JPRB,.344E-01_JPRB,.370E-01_JPRB,.401E-01_JPRB,&
+&.237E-01_JPRB,.405E-01_JPRB,.420E-01_JPRB,.246E-01_JPRB,.464E-01_JPRB,.435E-01_JPRB,.365E-01_JPRB,&
+&.406E-01_JPRB,.432E-01_JPRB,.437E-01_JPRB,.447E-01_JPRB,.447E-01_JPRB,.455E-01_JPRB,.462E-01_JPRB,&
+&.459E-01_JPRB,.453E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 25  -6.0
+ZAER (:,25, 7) = (/&
+&.459E-01_JPRB,.475E-01_JPRB,.487E-01_JPRB,.487E-01_JPRB,.490E-01_JPRB,.484E-01_JPRB,.484E-01_JPRB,&
+&.489E-01_JPRB,.496E-01_JPRB,.482E-01_JPRB,.476E-01_JPRB,.478E-01_JPRB,.458E-01_JPRB,.459E-01_JPRB,&
+&.437E-01_JPRB,.426E-01_JPRB,.433E-01_JPRB,.433E-01_JPRB,.469E-01_JPRB,.492E-01_JPRB,.392E-01_JPRB,&
+&.177E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,.181E-01_JPRB,.281E-01_JPRB,.289E-01_JPRB,.303E-01_JPRB,&
+&.300E-01_JPRB,.290E-01_JPRB,.277E-01_JPRB,.298E-01_JPRB,.287E-01_JPRB,.278E-01_JPRB,.169E-01_JPRB,&
+&.146E-01_JPRB,.133E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,.145E-01_JPRB,.162E-01_JPRB,.170E-01_JPRB,&
+&.168E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,.169E-01_JPRB,.276E-01_JPRB,.247E-01_JPRB,.279E-01_JPRB,&
+&.366E-01_JPRB,.422E-01_JPRB,.465E-01_JPRB,.474E-01_JPRB,.460E-01_JPRB,.389E-01_JPRB,.350E-01_JPRB,&
+&.378E-01_JPRB,.385E-01_JPRB,.411E-01_JPRB,.444E-01_JPRB,.471E-01_JPRB,.351E-01_JPRB,.351E-01_JPRB,&
+&.379E-01_JPRB,.394E-01_JPRB,.397E-01_JPRB,.408E-01_JPRB,.417E-01_JPRB,.428E-01_JPRB,.442E-01_JPRB,&
+&.451E-01_JPRB,.456E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 26 -10.0
+ZAER (:,26, 7) = (/&
+&.427E-01_JPRB,.442E-01_JPRB,.459E-01_JPRB,.459E-01_JPRB,.442E-01_JPRB,.427E-01_JPRB,.431E-01_JPRB,&
+&.443E-01_JPRB,.459E-01_JPRB,.461E-01_JPRB,.474E-01_JPRB,.464E-01_JPRB,.458E-01_JPRB,.463E-01_JPRB,&
+&.466E-01_JPRB,.462E-01_JPRB,.498E-01_JPRB,.530E-01_JPRB,.655E-01_JPRB,.583E-01_JPRB,.341E-01_JPRB,&
+&.178E-01_JPRB,.194E-01_JPRB,.144E-01_JPRB,.216E-01_JPRB,.212E-01_JPRB,.226E-01_JPRB,.222E-01_JPRB,&
+&.224E-01_JPRB,.243E-01_JPRB,.265E-01_JPRB,.286E-01_JPRB,.274E-01_JPRB,.268E-01_JPRB,.192E-01_JPRB,&
+&.172E-01_JPRB,.138E-01_JPRB,.129E-01_JPRB,.135E-01_JPRB,.150E-01_JPRB,.170E-01_JPRB,.183E-01_JPRB,&
+&.191E-01_JPRB,.186E-01_JPRB,.191E-01_JPRB,.212E-01_JPRB,.227E-01_JPRB,.391E-01_JPRB,.424E-01_JPRB,&
+&.526E-01_JPRB,.601E-01_JPRB,.638E-01_JPRB,.665E-01_JPRB,.619E-01_JPRB,.495E-01_JPRB,.381E-01_JPRB,&
+&.356E-01_JPRB,.312E-01_JPRB,.309E-01_JPRB,.363E-01_JPRB,.420E-01_JPRB,.368E-01_JPRB,.310E-01_JPRB,&
+&.326E-01_JPRB,.361E-01_JPRB,.355E-01_JPRB,.348E-01_JPRB,.355E-01_JPRB,.370E-01_JPRB,.387E-01_JPRB,&
+&.400E-01_JPRB,.408E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 27 -14.0
+ZAER (:,27, 7) = (/&
+&.341E-01_JPRB,.356E-01_JPRB,.355E-01_JPRB,.377E-01_JPRB,.360E-01_JPRB,.335E-01_JPRB,.337E-01_JPRB,&
+&.355E-01_JPRB,.388E-01_JPRB,.430E-01_JPRB,.459E-01_JPRB,.466E-01_JPRB,.494E-01_JPRB,.524E-01_JPRB,&
+&.546E-01_JPRB,.578E-01_JPRB,.611E-01_JPRB,.688E-01_JPRB,.412E-01_JPRB,.228E-01_JPRB,.257E-01_JPRB,&
+&.266E-01_JPRB,.295E-01_JPRB,.223E-01_JPRB,.175E-01_JPRB,.184E-01_JPRB,.185E-01_JPRB,.177E-01_JPRB,&
+&.180E-01_JPRB,.209E-01_JPRB,.269E-01_JPRB,.392E-01_JPRB,.412E-01_JPRB,.236E-01_JPRB,.246E-01_JPRB,&
+&.214E-01_JPRB,.160E-01_JPRB,.152E-01_JPRB,.163E-01_JPRB,.203E-01_JPRB,.244E-01_JPRB,.255E-01_JPRB,&
+&.268E-01_JPRB,.270E-01_JPRB,.280E-01_JPRB,.327E-01_JPRB,.573E-01_JPRB,.575E-01_JPRB,.598E-01_JPRB,&
+&.671E-01_JPRB,.691E-01_JPRB,.420E-01_JPRB,.783E-01_JPRB,.875E-01_JPRB,.687E-01_JPRB,.514E-01_JPRB,&
+&.258E-01_JPRB,.240E-01_JPRB,.350E-01_JPRB,.313E-01_JPRB,.347E-01_JPRB,.314E-01_JPRB,.254E-01_JPRB,&
+&.276E-01_JPRB,.331E-01_JPRB,.338E-01_JPRB,.290E-01_JPRB,.277E-01_JPRB,.288E-01_JPRB,.307E-01_JPRB,&
+&.318E-01_JPRB,.333E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 28 -18.0
+ZAER (:,28, 7) = (/&
+&.267E-01_JPRB,.273E-01_JPRB,.271E-01_JPRB,.276E-01_JPRB,.305E-01_JPRB,.236E-01_JPRB,.258E-01_JPRB,&
+&.291E-01_JPRB,.314E-01_JPRB,.357E-01_JPRB,.471E-01_JPRB,.568E-01_JPRB,.663E-01_JPRB,.758E-01_JPRB,&
+&.820E-01_JPRB,.748E-01_JPRB,.322E-01_JPRB,.289E-01_JPRB,.242E-01_JPRB,.283E-01_JPRB,.201E-01_JPRB,&
+&.199E-01_JPRB,.232E-01_JPRB,.204E-01_JPRB,.169E-01_JPRB,.164E-01_JPRB,.148E-01_JPRB,.132E-01_JPRB,&
+&.136E-01_JPRB,.148E-01_JPRB,.194E-01_JPRB,.345E-01_JPRB,.476E-01_JPRB,.265E-01_JPRB,.224E-01_JPRB,&
+&.215E-01_JPRB,.203E-01_JPRB,.203E-01_JPRB,.220E-01_JPRB,.312E-01_JPRB,.434E-01_JPRB,.417E-01_JPRB,&
+&.400E-01_JPRB,.322E-01_JPRB,.658E-01_JPRB,.498E-01_JPRB,.476E-01_JPRB,.399E-01_JPRB,.625E-01_JPRB,&
+&.581E-01_JPRB,.621E-01_JPRB,.413E-01_JPRB,.546E-01_JPRB,.123E+00_JPRB,.109E+00_JPRB,.423E-01_JPRB,&
+&.348E-01_JPRB,.300E-01_JPRB,.424E-01_JPRB,.345E-01_JPRB,.296E-01_JPRB,.249E-01_JPRB,.212E-01_JPRB,&
+&.256E-01_JPRB,.316E-01_JPRB,.381E-01_JPRB,.298E-01_JPRB,.215E-01_JPRB,.218E-01_JPRB,.231E-01_JPRB,&
+&.242E-01_JPRB,.254E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 29 -22.0
+ZAER (:,29, 7) = (/&
+&.219E-01_JPRB,.237E-01_JPRB,.260E-01_JPRB,.281E-01_JPRB,.273E-01_JPRB,.253E-01_JPRB,.256E-01_JPRB,&
+&.290E-01_JPRB,.323E-01_JPRB,.361E-01_JPRB,.374E-01_JPRB,.501E-01_JPRB,.710E-01_JPRB,.100E+00_JPRB,&
+&.117E+00_JPRB,.612E-01_JPRB,.398E-01_JPRB,.502E-01_JPRB,.492E-01_JPRB,.381E-01_JPRB,.248E-01_JPRB,&
+&.190E-01_JPRB,.197E-01_JPRB,.170E-01_JPRB,.160E-01_JPRB,.154E-01_JPRB,.136E-01_JPRB,.128E-01_JPRB,&
+&.126E-01_JPRB,.118E-01_JPRB,.133E-01_JPRB,.204E-01_JPRB,.359E-01_JPRB,.275E-01_JPRB,.247E-01_JPRB,&
+&.248E-01_JPRB,.263E-01_JPRB,.292E-01_JPRB,.336E-01_JPRB,.461E-01_JPRB,.669E-01_JPRB,.697E-01_JPRB,&
+&.643E-01_JPRB,.526E-01_JPRB,.519E-01_JPRB,.653E-01_JPRB,.616E-01_JPRB,.563E-01_JPRB,.774E-01_JPRB,&
+&.732E-01_JPRB,.504E-01_JPRB,.553E-01_JPRB,.719E-01_JPRB,.819E-01_JPRB,.736E-01_JPRB,.487E-01_JPRB,&
+&.398E-01_JPRB,.347E-01_JPRB,.277E-01_JPRB,.458E-01_JPRB,.396E-01_JPRB,.279E-01_JPRB,.252E-01_JPRB,&
+&.273E-01_JPRB,.296E-01_JPRB,.294E-01_JPRB,.258E-01_JPRB,.196E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,&
+&.190E-01_JPRB,.205E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 30 -26.0
+ZAER (:,30, 7) = (/&
+&.189E-01_JPRB,.196E-01_JPRB,.204E-01_JPRB,.196E-01_JPRB,.196E-01_JPRB,.203E-01_JPRB,.214E-01_JPRB,&
+&.208E-01_JPRB,.225E-01_JPRB,.236E-01_JPRB,.249E-01_JPRB,.398E-01_JPRB,.700E-01_JPRB,.106E+00_JPRB,&
+&.871E-01_JPRB,.661E-01_JPRB,.573E-01_JPRB,.776E-01_JPRB,.696E-01_JPRB,.543E-01_JPRB,.384E-01_JPRB,&
+&.218E-01_JPRB,.182E-01_JPRB,.165E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,&
+&.125E-01_JPRB,.131E-01_JPRB,.114E-01_JPRB,.138E-01_JPRB,.230E-01_JPRB,.427E-01_JPRB,.282E-01_JPRB,&
+&.259E-01_JPRB,.315E-01_JPRB,.398E-01_JPRB,.499E-01_JPRB,.704E-01_JPRB,.823E-01_JPRB,.832E-01_JPRB,&
+&.671E-01_JPRB,.774E-01_JPRB,.645E-01_JPRB,.734E-01_JPRB,.944E-01_JPRB,.139E+00_JPRB,.743E-01_JPRB,&
+&.767E-01_JPRB,.807E-01_JPRB,.744E-01_JPRB,.699E-01_JPRB,.571E-01_JPRB,.481E-01_JPRB,.380E-01_JPRB,&
+&.307E-01_JPRB,.321E-01_JPRB,.297E-01_JPRB,.244E-01_JPRB,.475E-01_JPRB,.390E-01_JPRB,.390E-01_JPRB,&
+&.435E-01_JPRB,.385E-01_JPRB,.337E-01_JPRB,.238E-01_JPRB,.197E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,&
+&.167E-01_JPRB,.178E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 31 -30.0
+ZAER (:,31, 7) = (/&
+&.188E-01_JPRB,.196E-01_JPRB,.203E-01_JPRB,.205E-01_JPRB,.208E-01_JPRB,.204E-01_JPRB,.196E-01_JPRB,&
+&.150E-01_JPRB,.141E-01_JPRB,.177E-01_JPRB,.211E-01_JPRB,.410E-01_JPRB,.653E-01_JPRB,.901E-01_JPRB,&
+&.715E-01_JPRB,.645E-01_JPRB,.791E-01_JPRB,.798E-01_JPRB,.802E-01_JPRB,.532E-01_JPRB,.637E-01_JPRB,&
+&.330E-01_JPRB,.208E-01_JPRB,.174E-01_JPRB,.162E-01_JPRB,.155E-01_JPRB,.153E-01_JPRB,.143E-01_JPRB,&
+&.132E-01_JPRB,.138E-01_JPRB,.122E-01_JPRB,.134E-01_JPRB,.197E-01_JPRB,.365E-01_JPRB,.300E-01_JPRB,&
+&.242E-01_JPRB,.312E-01_JPRB,.485E-01_JPRB,.652E-01_JPRB,.810E-01_JPRB,.923E-01_JPRB,.831E-01_JPRB,&
+&.722E-01_JPRB,.830E-01_JPRB,.763E-01_JPRB,.999E-01_JPRB,.102E+00_JPRB,.753E-01_JPRB,.792E-01_JPRB,&
+&.703E-01_JPRB,.727E-01_JPRB,.699E-01_JPRB,.416E-01_JPRB,.229E-01_JPRB,.149E-01_JPRB,.119E-01_JPRB,&
+&.170E-01_JPRB,.313E-01_JPRB,.292E-01_JPRB,.263E-01_JPRB,.271E-01_JPRB,.599E-01_JPRB,.878E-01_JPRB,&
+&.756E-01_JPRB,.504E-01_JPRB,.371E-01_JPRB,.263E-01_JPRB,.212E-01_JPRB,.172E-01_JPRB,.163E-01_JPRB,&
+&.170E-01_JPRB,.176E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 32 -34.0
+ZAER (:,32, 7) = (/&
+&.264E-01_JPRB,.266E-01_JPRB,.259E-01_JPRB,.239E-01_JPRB,.214E-01_JPRB,.204E-01_JPRB,.184E-01_JPRB,&
+&.150E-01_JPRB,.122E-01_JPRB,.135E-01_JPRB,.132E-01_JPRB,.250E-01_JPRB,.451E-01_JPRB,.358E-01_JPRB,&
+&.604E-01_JPRB,.676E-01_JPRB,.735E-01_JPRB,.833E-01_JPRB,.911E-01_JPRB,.657E-01_JPRB,.354E-01_JPRB,&
+&.413E-01_JPRB,.286E-01_JPRB,.208E-01_JPRB,.174E-01_JPRB,.165E-01_JPRB,.167E-01_JPRB,.160E-01_JPRB,&
+&.147E-01_JPRB,.159E-01_JPRB,.162E-01_JPRB,.139E-01_JPRB,.188E-01_JPRB,.319E-01_JPRB,.573E-01_JPRB,&
+&.300E-01_JPRB,.312E-01_JPRB,.507E-01_JPRB,.769E-01_JPRB,.163E+00_JPRB,.198E+00_JPRB,.166E+00_JPRB,&
+&.147E+00_JPRB,.171E+00_JPRB,.827E-01_JPRB,.918E-01_JPRB,.702E-01_JPRB,.867E-01_JPRB,.880E-01_JPRB,&
+&.700E-01_JPRB,.569E-01_JPRB,.512E-01_JPRB,.261E-01_JPRB,.160E-01_JPRB,.113E-01_JPRB,.806E-02_JPRB,&
+&.111E-01_JPRB,.268E-01_JPRB,.274E-01_JPRB,.285E-01_JPRB,.279E-01_JPRB,.801E-01_JPRB,.113E+00_JPRB,&
+&.535E-01_JPRB,.734E-01_JPRB,.487E-01_JPRB,.327E-01_JPRB,.250E-01_JPRB,.210E-01_JPRB,.203E-01_JPRB,&
+&.231E-01_JPRB,.250E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 33 -38.0
+ZAER (:,33, 7) = (/&
+&.382E-01_JPRB,.375E-01_JPRB,.349E-01_JPRB,.317E-01_JPRB,.261E-01_JPRB,.231E-01_JPRB,.199E-01_JPRB,&
+&.167E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.127E-01_JPRB,.194E-01_JPRB,.147E-01_JPRB,.193E-01_JPRB,&
+&.313E-01_JPRB,.424E-01_JPRB,.559E-01_JPRB,.916E-01_JPRB,.943E-01_JPRB,.782E-01_JPRB,.537E-01_JPRB,&
+&.591E-01_JPRB,.412E-01_JPRB,.272E-01_JPRB,.206E-01_JPRB,.182E-01_JPRB,.173E-01_JPRB,.164E-01_JPRB,&
+&.148E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.152E-01_JPRB,.181E-01_JPRB,.320E-01_JPRB,.593E-01_JPRB,&
+&.417E-01_JPRB,.722E-01_JPRB,.102E+00_JPRB,.132E+00_JPRB,.193E+00_JPRB,.222E+00_JPRB,.161E+00_JPRB,&
+&.799E-01_JPRB,.883E-01_JPRB,.813E-01_JPRB,.783E-01_JPRB,.103E+00_JPRB,.107E+00_JPRB,.930E-01_JPRB,&
+&.108E+00_JPRB,.686E-01_JPRB,.464E-01_JPRB,.442E-01_JPRB,.311E-01_JPRB,.167E-01_JPRB,.107E-01_JPRB,&
+&.110E-01_JPRB,.211E-01_JPRB,.232E-01_JPRB,.259E-01_JPRB,.564E-01_JPRB,.694E-01_JPRB,.793E-01_JPRB,&
+&.748E-01_JPRB,.445E-01_JPRB,.548E-01_JPRB,.403E-01_JPRB,.318E-01_JPRB,.271E-01_JPRB,.286E-01_JPRB,&
+&.336E-01_JPRB,.396E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 34 -42.0
+ZAER (:,34, 7) = (/&
+&.410E-01_JPRB,.375E-01_JPRB,.355E-01_JPRB,.373E-01_JPRB,.386E-01_JPRB,.344E-01_JPRB,.294E-01_JPRB,&
+&.225E-01_JPRB,.172E-01_JPRB,.147E-01_JPRB,.164E-01_JPRB,.252E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,&
+&.229E-01_JPRB,.291E-01_JPRB,.402E-01_JPRB,.625E-01_JPRB,.900E-01_JPRB,.100E+00_JPRB,.726E-01_JPRB,&
+&.507E-01_JPRB,.812E-01_JPRB,.521E-01_JPRB,.354E-01_JPRB,.306E-01_JPRB,.233E-01_JPRB,.191E-01_JPRB,&
+&.168E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.170E-01_JPRB,.247E-01_JPRB,.504E-01_JPRB,&
+&.387E-01_JPRB,.504E-01_JPRB,.121E+00_JPRB,.135E+00_JPRB,.164E+00_JPRB,.115E+00_JPRB,.104E+00_JPRB,&
+&.135E+00_JPRB,.175E+00_JPRB,.101E+00_JPRB,.836E-01_JPRB,.164E+00_JPRB,.920E-01_JPRB,.723E-01_JPRB,&
+&.869E-01_JPRB,.105E+00_JPRB,.664E-01_JPRB,.453E-01_JPRB,.417E-01_JPRB,.290E-01_JPRB,.174E-01_JPRB,&
+&.165E-01_JPRB,.198E-01_JPRB,.184E-01_JPRB,.200E-01_JPRB,.346E-01_JPRB,.441E-01_JPRB,.516E-01_JPRB,&
+&.749E-01_JPRB,.683E-01_JPRB,.605E-01_JPRB,.419E-01_JPRB,.314E-01_JPRB,.286E-01_JPRB,.318E-01_JPRB,&
+&.368E-01_JPRB,.435E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 35 -46.0
+ZAER (:,35, 7) = (/&
+&.383E-01_JPRB,.315E-01_JPRB,.322E-01_JPRB,.333E-01_JPRB,.330E-01_JPRB,.372E-01_JPRB,.376E-01_JPRB,&
+&.308E-01_JPRB,.247E-01_JPRB,.219E-01_JPRB,.219E-01_JPRB,.297E-01_JPRB,.202E-01_JPRB,.183E-01_JPRB,&
+&.210E-01_JPRB,.242E-01_JPRB,.314E-01_JPRB,.417E-01_JPRB,.616E-01_JPRB,.898E-01_JPRB,.839E-01_JPRB,&
+&.620E-01_JPRB,.494E-01_JPRB,.410E-01_JPRB,.543E-01_JPRB,.413E-01_JPRB,.333E-01_JPRB,.269E-01_JPRB,&
+&.224E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.185E-01_JPRB,.205E-01_JPRB,.257E-01_JPRB,.480E-01_JPRB,&
+&.671E-01_JPRB,.593E-01_JPRB,.674E-01_JPRB,.607E-01_JPRB,.670E-01_JPRB,.811E-01_JPRB,.790E-01_JPRB,&
+&.769E-01_JPRB,.908E-01_JPRB,.117E+00_JPRB,.952E-01_JPRB,.121E+00_JPRB,.576E-01_JPRB,.628E-01_JPRB,&
+&.878E-01_JPRB,.110E+00_JPRB,.999E-01_JPRB,.902E-01_JPRB,.737E-01_JPRB,.433E-01_JPRB,.250E-01_JPRB,&
+&.199E-01_JPRB,.192E-01_JPRB,.194E-01_JPRB,.261E-01_JPRB,.374E-01_JPRB,.430E-01_JPRB,.428E-01_JPRB,&
+&.394E-01_JPRB,.597E-01_JPRB,.614E-01_JPRB,.450E-01_JPRB,.292E-01_JPRB,.263E-01_JPRB,.301E-01_JPRB,&
+&.316E-01_JPRB,.388E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 36 -50.0
+ZAER (:,36, 7) = (/&
+&.342E-01_JPRB,.285E-01_JPRB,.348E-01_JPRB,.366E-01_JPRB,.311E-01_JPRB,.355E-01_JPRB,.368E-01_JPRB,&
+&.270E-01_JPRB,.210E-01_JPRB,.192E-01_JPRB,.246E-01_JPRB,.166E-01_JPRB,.201E-01_JPRB,.216E-01_JPRB,&
+&.229E-01_JPRB,.240E-01_JPRB,.268E-01_JPRB,.291E-01_JPRB,.423E-01_JPRB,.621E-01_JPRB,.663E-01_JPRB,&
+&.532E-01_JPRB,.387E-01_JPRB,.320E-01_JPRB,.485E-01_JPRB,.439E-01_JPRB,.367E-01_JPRB,.273E-01_JPRB,&
+&.210E-01_JPRB,.191E-01_JPRB,.229E-01_JPRB,.242E-01_JPRB,.258E-01_JPRB,.304E-01_JPRB,.544E-01_JPRB,&
+&.844E-01_JPRB,.590E-01_JPRB,.649E-01_JPRB,.636E-01_JPRB,.686E-01_JPRB,.806E-01_JPRB,.887E-01_JPRB,&
+&.671E-01_JPRB,.933E-01_JPRB,.106E+00_JPRB,.835E-01_JPRB,.610E-01_JPRB,.554E-01_JPRB,.572E-01_JPRB,&
+&.692E-01_JPRB,.110E+00_JPRB,.140E+00_JPRB,.152E+00_JPRB,.917E-01_JPRB,.575E-01_JPRB,.398E-01_JPRB,&
+&.296E-01_JPRB,.268E-01_JPRB,.239E-01_JPRB,.276E-01_JPRB,.342E-01_JPRB,.354E-01_JPRB,.310E-01_JPRB,&
+&.263E-01_JPRB,.219E-01_JPRB,.335E-01_JPRB,.321E-01_JPRB,.362E-01_JPRB,.274E-01_JPRB,.223E-01_JPRB,&
+&.220E-01_JPRB,.349E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 37 -54.0
+ZAER (:,37, 7) = (/&
+&.327E-01_JPRB,.380E-01_JPRB,.383E-01_JPRB,.405E-01_JPRB,.375E-01_JPRB,.497E-01_JPRB,.463E-01_JPRB,&
+&.316E-01_JPRB,.227E-01_JPRB,.227E-01_JPRB,.140E-01_JPRB,.148E-01_JPRB,.176E-01_JPRB,.205E-01_JPRB,&
+&.226E-01_JPRB,.224E-01_JPRB,.247E-01_JPRB,.254E-01_JPRB,.276E-01_JPRB,.328E-01_JPRB,.653E-01_JPRB,&
+&.355E-01_JPRB,.280E-01_JPRB,.236E-01_JPRB,.213E-01_JPRB,.355E-01_JPRB,.299E-01_JPRB,.246E-01_JPRB,&
+&.246E-01_JPRB,.279E-01_JPRB,.272E-01_JPRB,.275E-01_JPRB,.298E-01_JPRB,.336E-01_JPRB,.531E-01_JPRB,&
+&.457E-01_JPRB,.107E+00_JPRB,.127E+00_JPRB,.683E-01_JPRB,.768E-01_JPRB,.904E-01_JPRB,.758E-01_JPRB,&
+&.661E-01_JPRB,.763E-01_JPRB,.922E-01_JPRB,.749E-01_JPRB,.666E-01_JPRB,.737E-01_JPRB,.659E-01_JPRB,&
+&.701E-01_JPRB,.983E-01_JPRB,.978E-01_JPRB,.998E-01_JPRB,.102E+00_JPRB,.866E-01_JPRB,.607E-01_JPRB,&
+&.457E-01_JPRB,.387E-01_JPRB,.294E-01_JPRB,.258E-01_JPRB,.245E-01_JPRB,.226E-01_JPRB,.192E-01_JPRB,&
+&.169E-01_JPRB,.288E-01_JPRB,.261E-01_JPRB,.229E-01_JPRB,.288E-01_JPRB,.291E-01_JPRB,.446E-01_JPRB,&
+&.312E-01_JPRB,.279E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 38 -58.0
+ZAER (:,38, 7) = (/&
+&.419E-01_JPRB,.403E-01_JPRB,.423E-01_JPRB,.456E-01_JPRB,.544E-01_JPRB,.691E-01_JPRB,.574E-01_JPRB,&
+&.405E-01_JPRB,.298E-01_JPRB,.139E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,.152E-01_JPRB,.168E-01_JPRB,&
+&.185E-01_JPRB,.196E-01_JPRB,.221E-01_JPRB,.256E-01_JPRB,.434E-01_JPRB,.434E-01_JPRB,.454E-01_JPRB,&
+&.267E-01_JPRB,.242E-01_JPRB,.198E-01_JPRB,.275E-01_JPRB,.225E-01_JPRB,.202E-01_JPRB,.175E-01_JPRB,&
+&.180E-01_JPRB,.199E-01_JPRB,.243E-01_JPRB,.232E-01_JPRB,.261E-01_JPRB,.320E-01_JPRB,.446E-01_JPRB,&
+&.558E-01_JPRB,.697E-01_JPRB,.830E-01_JPRB,.517E-01_JPRB,.521E-01_JPRB,.101E+00_JPRB,.627E-01_JPRB,&
+&.576E-01_JPRB,.621E-01_JPRB,.733E-01_JPRB,.735E-01_JPRB,.691E-01_JPRB,.709E-01_JPRB,.766E-01_JPRB,&
+&.772E-01_JPRB,.618E-01_JPRB,.487E-01_JPRB,.538E-01_JPRB,.604E-01_JPRB,.685E-01_JPRB,.564E-01_JPRB,&
+&.455E-01_JPRB,.352E-01_JPRB,.275E-01_JPRB,.226E-01_JPRB,.199E-01_JPRB,.178E-01_JPRB,.161E-01_JPRB,&
+&.136E-01_JPRB,.130E-01_JPRB,.228E-01_JPRB,.221E-01_JPRB,.231E-01_JPRB,.227E-01_JPRB,.573E-01_JPRB,&
+&.479E-01_JPRB,.410E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 39 -62.0
+ZAER (:,39, 7) = (/&
+&.357E-01_JPRB,.318E-01_JPRB,.376E-01_JPRB,.465E-01_JPRB,.291E-01_JPRB,.279E-01_JPRB,.245E-01_JPRB,&
+&.204E-01_JPRB,.151E-01_JPRB,.139E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.141E-01_JPRB,.157E-01_JPRB,&
+&.163E-01_JPRB,.163E-01_JPRB,.179E-01_JPRB,.196E-01_JPRB,.307E-01_JPRB,.302E-01_JPRB,.298E-01_JPRB,&
+&.175E-01_JPRB,.263E-01_JPRB,.237E-01_JPRB,.181E-01_JPRB,.157E-01_JPRB,.150E-01_JPRB,.792E-02_JPRB,&
+&.150E-01_JPRB,.188E-01_JPRB,.186E-01_JPRB,.187E-01_JPRB,.196E-01_JPRB,.242E-01_JPRB,.273E-01_JPRB,&
+&.273E-01_JPRB,.369E-01_JPRB,.431E-01_JPRB,.288E-01_JPRB,.330E-01_JPRB,.633E-01_JPRB,.389E-01_JPRB,&
+&.386E-01_JPRB,.423E-01_JPRB,.467E-01_JPRB,.563E-01_JPRB,.592E-01_JPRB,.625E-01_JPRB,.614E-01_JPRB,&
+&.574E-01_JPRB,.478E-01_JPRB,.425E-01_JPRB,.410E-01_JPRB,.410E-01_JPRB,.417E-01_JPRB,.365E-01_JPRB,&
+&.312E-01_JPRB,.276E-01_JPRB,.241E-01_JPRB,.206E-01_JPRB,.178E-01_JPRB,.159E-01_JPRB,.140E-01_JPRB,&
+&.127E-01_JPRB,.105E-01_JPRB,.102E-01_JPRB,.100E-01_JPRB,.111E-01_JPRB,.163E-01_JPRB,.199E-01_JPRB,&
+&.214E-01_JPRB,.373E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 40 -66.0
+ZAER (:,40, 7) = (/&
+&.172E-01_JPRB,.178E-01_JPRB,.331E-01_JPRB,.411E-01_JPRB,.259E-01_JPRB,.234E-01_JPRB,.210E-01_JPRB,&
+&.183E-01_JPRB,.158E-01_JPRB,.141E-01_JPRB,.135E-01_JPRB,.138E-01_JPRB,.134E-01_JPRB,.124E-01_JPRB,&
+&.119E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,.130E-01_JPRB,.109E-01_JPRB,.818E-02_JPRB,.116E-01_JPRB,&
+&.805E-02_JPRB,.896E-02_JPRB,.102E-01_JPRB,.166E-01_JPRB,.149E-01_JPRB,.801E-02_JPRB,.699E-02_JPRB,&
+&.764E-02_JPRB,.144E-01_JPRB,.188E-01_JPRB,.191E-01_JPRB,.174E-01_JPRB,.187E-01_JPRB,.155E-01_JPRB,&
+&.208E-01_JPRB,.260E-01_JPRB,.283E-01_JPRB,.341E-01_JPRB,.202E-01_JPRB,.222E-01_JPRB,.266E-01_JPRB,&
+&.285E-01_JPRB,.311E-01_JPRB,.328E-01_JPRB,.389E-01_JPRB,.478E-01_JPRB,.515E-01_JPRB,.506E-01_JPRB,&
+&.462E-01_JPRB,.412E-01_JPRB,.368E-01_JPRB,.318E-01_JPRB,.309E-01_JPRB,.327E-01_JPRB,.315E-01_JPRB,&
+&.282E-01_JPRB,.250E-01_JPRB,.210E-01_JPRB,.170E-01_JPRB,.144E-01_JPRB,.119E-01_JPRB,.114E-01_JPRB,&
+&.113E-01_JPRB,.109E-01_JPRB,.103E-01_JPRB,.101E-01_JPRB,.111E-01_JPRB,.133E-01_JPRB,.144E-01_JPRB,&
+&.172E-01_JPRB,.177E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 41 -70.0
+ZAER (:,41, 7) = (/&
+&.251E-01_JPRB,.267E-01_JPRB,.262E-01_JPRB,.275E-01_JPRB,.188E-01_JPRB,.184E-01_JPRB,.169E-01_JPRB,&
+&.151E-01_JPRB,.223E-01_JPRB,.219E-01_JPRB,.133E-01_JPRB,.196E-01_JPRB,.174E-01_JPRB,.982E-02_JPRB,&
+&.913E-02_JPRB,.859E-02_JPRB,.146E-01_JPRB,.831E-02_JPRB,.758E-02_JPRB,.704E-02_JPRB,.588E-02_JPRB,&
+&.723E-02_JPRB,.818E-02_JPRB,.141E-01_JPRB,.128E-01_JPRB,.134E-01_JPRB,.765E-02_JPRB,.763E-02_JPRB,&
+&.652E-02_JPRB,.519E-02_JPRB,.581E-02_JPRB,.712E-02_JPRB,.153E-01_JPRB,.147E-01_JPRB,.130E-01_JPRB,&
+&.154E-01_JPRB,.190E-01_JPRB,.218E-01_JPRB,.251E-01_JPRB,.256E-01_JPRB,.284E-01_JPRB,.186E-01_JPRB,&
+&.228E-01_JPRB,.427E-01_JPRB,.467E-01_JPRB,.466E-01_JPRB,.473E-01_JPRB,.492E-01_JPRB,.525E-01_JPRB,&
+&.518E-01_JPRB,.298E-01_JPRB,.298E-01_JPRB,.276E-01_JPRB,.291E-01_JPRB,.256E-01_JPRB,.231E-01_JPRB,&
+&.197E-01_JPRB,.183E-01_JPRB,.141E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.995E-02_JPRB,.915E-02_JPRB,&
+&.894E-02_JPRB,.900E-02_JPRB,.947E-02_JPRB,.102E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,.120E-01_JPRB,&
+&.241E-01_JPRB,.151E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 42 -74.0
+ZAER (:,42, 7) = (/&
+&.227E-01_JPRB,.252E-01_JPRB,.276E-01_JPRB,.271E-01_JPRB,.274E-01_JPRB,.291E-01_JPRB,.272E-01_JPRB,&
+&.249E-01_JPRB,.235E-01_JPRB,.217E-01_JPRB,.197E-01_JPRB,.176E-01_JPRB,.934E-02_JPRB,.846E-02_JPRB,&
+&.139E-01_JPRB,.145E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,.128E-01_JPRB,.738E-02_JPRB,.119E-01_JPRB,&
+&.132E-01_JPRB,.137E-01_JPRB,.135E-01_JPRB,.121E-01_JPRB,.711E-02_JPRB,.636E-02_JPRB,.624E-02_JPRB,&
+&.624E-02_JPRB,.508E-02_JPRB,.471E-02_JPRB,.489E-02_JPRB,.108E-01_JPRB,.155E-01_JPRB,.156E-01_JPRB,&
+&.150E-01_JPRB,.162E-01_JPRB,.169E-01_JPRB,.173E-01_JPRB,.182E-01_JPRB,.198E-01_JPRB,.213E-01_JPRB,&
+&.221E-01_JPRB,.242E-01_JPRB,.256E-01_JPRB,.239E-01_JPRB,.248E-01_JPRB,.264E-01_JPRB,.271E-01_JPRB,&
+&.291E-01_JPRB,.313E-01_JPRB,.327E-01_JPRB,.333E-01_JPRB,.211E-01_JPRB,.196E-01_JPRB,.161E-01_JPRB,&
+&.128E-01_JPRB,.109E-01_JPRB,.879E-02_JPRB,.826E-02_JPRB,.146E-01_JPRB,.137E-01_JPRB,.139E-01_JPRB,&
+&.143E-01_JPRB,.139E-01_JPRB,.149E-01_JPRB,.164E-01_JPRB,.177E-01_JPRB,.188E-01_JPRB,.194E-01_JPRB,&
+&.205E-01_JPRB,.218E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 43 -78.0
+ZAER (:,43, 7) = (/&
+&.199E-01_JPRB,.222E-01_JPRB,.248E-01_JPRB,.266E-01_JPRB,.259E-01_JPRB,.246E-01_JPRB,.225E-01_JPRB,&
+&.199E-01_JPRB,.185E-01_JPRB,.179E-01_JPRB,.171E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,.138E-01_JPRB,&
+&.126E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,.119E-01_JPRB,.720E-02_JPRB,.712E-02_JPRB,.765E-02_JPRB,&
+&.137E-01_JPRB,.137E-01_JPRB,.803E-02_JPRB,.593E-02_JPRB,.497E-02_JPRB,.522E-02_JPRB,.536E-02_JPRB,&
+&.618E-02_JPRB,.722E-02_JPRB,.773E-02_JPRB,.705E-02_JPRB,.133E-01_JPRB,.183E-01_JPRB,.177E-01_JPRB,&
+&.175E-01_JPRB,.161E-01_JPRB,.153E-01_JPRB,.157E-01_JPRB,.969E-02_JPRB,.159E-01_JPRB,.156E-01_JPRB,&
+&.151E-01_JPRB,.150E-01_JPRB,.149E-01_JPRB,.148E-01_JPRB,.162E-01_JPRB,.184E-01_JPRB,.194E-01_JPRB,&
+&.198E-01_JPRB,.199E-01_JPRB,.178E-01_JPRB,.153E-01_JPRB,.143E-01_JPRB,.121E-01_JPRB,.888E-02_JPRB,&
+&.808E-02_JPRB,.394E-02_JPRB,.640E-02_JPRB,.860E-02_JPRB,.983E-02_JPRB,.106E-01_JPRB,.121E-01_JPRB,&
+&.129E-01_JPRB,.128E-01_JPRB,.140E-01_JPRB,.154E-01_JPRB,.166E-01_JPRB,.179E-01_JPRB,.179E-01_JPRB,&
+&.176E-01_JPRB,.182E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 44 -82.0
+ZAER (:,44, 7) = (/&
+&.151E-01_JPRB,.137E-01_JPRB,.125E-01_JPRB,.117E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.108E-01_JPRB,&
+&.102E-01_JPRB,.976E-02_JPRB,.947E-02_JPRB,.937E-02_JPRB,.940E-02_JPRB,.995E-02_JPRB,.964E-02_JPRB,&
+&.952E-02_JPRB,.988E-02_JPRB,.105E-01_JPRB,.114E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.720E-02_JPRB,&
+&.712E-02_JPRB,.684E-02_JPRB,.633E-02_JPRB,.588E-02_JPRB,.587E-02_JPRB,.607E-02_JPRB,.634E-02_JPRB,&
+&.682E-02_JPRB,.743E-02_JPRB,.817E-02_JPRB,.829E-02_JPRB,.846E-02_JPRB,.145E-01_JPRB,.152E-01_JPRB,&
+&.159E-01_JPRB,.161E-01_JPRB,.149E-01_JPRB,.139E-01_JPRB,.128E-01_JPRB,.120E-01_JPRB,.113E-01_JPRB,&
+&.105E-01_JPRB,.100E-01_JPRB,.100E-01_JPRB,.101E-01_JPRB,.106E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,&
+&.114E-01_JPRB,.113E-01_JPRB,.109E-01_JPRB,.105E-01_JPRB,.998E-02_JPRB,.906E-02_JPRB,.855E-02_JPRB,&
+&.814E-02_JPRB,.777E-02_JPRB,.806E-02_JPRB,.848E-02_JPRB,.831E-02_JPRB,.841E-02_JPRB,.889E-02_JPRB,&
+&.968E-02_JPRB,.108E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,&
+&.150E-01_JPRB,.151E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 45 -86.0
+ZAER (:,45, 7) = (/&
+&.828E-02_JPRB,.826E-02_JPRB,.824E-02_JPRB,.817E-02_JPRB,.820E-02_JPRB,.817E-02_JPRB,.818E-02_JPRB,&
+&.821E-02_JPRB,.828E-02_JPRB,.826E-02_JPRB,.832E-02_JPRB,.839E-02_JPRB,.850E-02_JPRB,.867E-02_JPRB,&
+&.885E-02_JPRB,.901E-02_JPRB,.919E-02_JPRB,.930E-02_JPRB,.940E-02_JPRB,.951E-02_JPRB,.961E-02_JPRB,&
+&.961E-02_JPRB,.966E-02_JPRB,.969E-02_JPRB,.983E-02_JPRB,.994E-02_JPRB,.101E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.102E-01_JPRB,&
+&.101E-01_JPRB,.896E-02_JPRB,.849E-02_JPRB,.820E-02_JPRB,.799E-02_JPRB,.784E-02_JPRB,.788E-02_JPRB,&
+&.797E-02_JPRB,.823E-02_JPRB,.856E-02_JPRB,.894E-02_JPRB,.944E-02_JPRB,.101E-01_JPRB,.983E-02_JPRB,&
+&.988E-02_JPRB,.990E-02_JPRB,.993E-02_JPRB,.992E-02_JPRB,.987E-02_JPRB,.980E-02_JPRB,.976E-02_JPRB,&
+&.961E-02_JPRB,.965E-02_JPRB,.961E-02_JPRB,.940E-02_JPRB,.937E-02_JPRB,.930E-02_JPRB,.921E-02_JPRB,&
+&.926E-02_JPRB,.918E-02_JPRB,.914E-02_JPRB,.901E-02_JPRB,.902E-02_JPRB,.887E-02_JPRB,.880E-02_JPRB,&
+&.875E-02_JPRB,.860E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  7 --- lat: 46 -90.0
+ZAER (:,46, 7) = (/&
+&.111E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,&
+&.121E-01_JPRB,.121E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=7   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_07
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_08.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_08.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_08.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_08
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          August
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,8:8)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  8 --- lat:  1  90.0
+ZAER (:, 1, 8) = (/&
+&.195E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,.189E-02_JPRB,&
+&.189E-02_JPRB,.189E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  2  86.0
+ZAER (:, 2, 8) = (/&
+&.244E-02_JPRB,.249E-02_JPRB,.255E-02_JPRB,.259E-02_JPRB,.261E-02_JPRB,.262E-02_JPRB,.263E-02_JPRB,&
+&.262E-02_JPRB,.262E-02_JPRB,.260E-02_JPRB,.260E-02_JPRB,.258E-02_JPRB,.232E-02_JPRB,.227E-02_JPRB,&
+&.222E-02_JPRB,.219E-02_JPRB,.215E-02_JPRB,.211E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.206E-02_JPRB,&
+&.206E-02_JPRB,.206E-02_JPRB,.207E-02_JPRB,.195E-02_JPRB,.196E-02_JPRB,.196E-02_JPRB,.197E-02_JPRB,&
+&.198E-02_JPRB,.200E-02_JPRB,.202E-02_JPRB,.205E-02_JPRB,.208E-02_JPRB,.211E-02_JPRB,.216E-02_JPRB,&
+&.221E-02_JPRB,.207E-02_JPRB,.215E-02_JPRB,.220E-02_JPRB,.226E-02_JPRB,.231E-02_JPRB,.234E-02_JPRB,&
+&.235E-02_JPRB,.236E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.235E-02_JPRB,.231E-02_JPRB,.224E-02_JPRB,&
+&.220E-02_JPRB,.217E-02_JPRB,.213E-02_JPRB,.211E-02_JPRB,.207E-02_JPRB,.206E-02_JPRB,.204E-02_JPRB,&
+&.201E-02_JPRB,.202E-02_JPRB,.201E-02_JPRB,.201E-02_JPRB,.209E-02_JPRB,.210E-02_JPRB,.209E-02_JPRB,&
+&.207E-02_JPRB,.207E-02_JPRB,.208E-02_JPRB,.208E-02_JPRB,.206E-02_JPRB,.206E-02_JPRB,.205E-02_JPRB,&
+&.206E-02_JPRB,.207E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  3  82.0
+ZAER (:, 3, 8) = (/&
+&.350E-02_JPRB,.371E-02_JPRB,.393E-02_JPRB,.413E-02_JPRB,.438E-02_JPRB,.462E-02_JPRB,.441E-02_JPRB,&
+&.422E-02_JPRB,.405E-02_JPRB,.393E-02_JPRB,.383E-02_JPRB,.381E-02_JPRB,.331E-02_JPRB,.319E-02_JPRB,&
+&.311E-02_JPRB,.301E-02_JPRB,.294E-02_JPRB,.286E-02_JPRB,.268E-02_JPRB,.252E-02_JPRB,.236E-02_JPRB,&
+&.225E-02_JPRB,.220E-02_JPRB,.221E-02_JPRB,.248E-02_JPRB,.247E-02_JPRB,.245E-02_JPRB,.244E-02_JPRB,&
+&.242E-02_JPRB,.242E-02_JPRB,.210E-02_JPRB,.211E-02_JPRB,.217E-02_JPRB,.225E-02_JPRB,.238E-02_JPRB,&
+&.251E-02_JPRB,.217E-02_JPRB,.227E-02_JPRB,.236E-02_JPRB,.249E-02_JPRB,.259E-02_JPRB,.269E-02_JPRB,&
+&.256E-02_JPRB,.254E-02_JPRB,.250E-02_JPRB,.245E-02_JPRB,.242E-02_JPRB,.235E-02_JPRB,.226E-02_JPRB,&
+&.222E-02_JPRB,.218E-02_JPRB,.214E-02_JPRB,.210E-02_JPRB,.208E-02_JPRB,.218E-02_JPRB,.216E-02_JPRB,&
+&.216E-02_JPRB,.216E-02_JPRB,.214E-02_JPRB,.214E-02_JPRB,.241E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,&
+&.230E-02_JPRB,.231E-02_JPRB,.228E-02_JPRB,.269E-02_JPRB,.259E-02_JPRB,.254E-02_JPRB,.257E-02_JPRB,&
+&.269E-02_JPRB,.291E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  4  78.0
+ZAER (:, 4, 8) = (/&
+&.484E-02_JPRB,.532E-02_JPRB,.589E-02_JPRB,.607E-02_JPRB,.581E-02_JPRB,.562E-02_JPRB,.516E-02_JPRB,&
+&.475E-02_JPRB,.454E-02_JPRB,.369E-02_JPRB,.349E-02_JPRB,.343E-02_JPRB,.329E-02_JPRB,.312E-02_JPRB,&
+&.295E-02_JPRB,.290E-02_JPRB,.276E-02_JPRB,.266E-02_JPRB,.258E-02_JPRB,.244E-02_JPRB,.233E-02_JPRB,&
+&.243E-02_JPRB,.239E-02_JPRB,.240E-02_JPRB,.282E-02_JPRB,.280E-02_JPRB,.281E-02_JPRB,.271E-02_JPRB,&
+&.265E-02_JPRB,.265E-02_JPRB,.235E-02_JPRB,.225E-02_JPRB,.236E-02_JPRB,.199E-02_JPRB,.207E-02_JPRB,&
+&.223E-02_JPRB,.212E-02_JPRB,.233E-02_JPRB,.261E-02_JPRB,.263E-02_JPRB,.269E-02_JPRB,.271E-02_JPRB,&
+&.272E-02_JPRB,.270E-02_JPRB,.257E-02_JPRB,.249E-02_JPRB,.237E-02_JPRB,.238E-02_JPRB,.248E-02_JPRB,&
+&.244E-02_JPRB,.239E-02_JPRB,.218E-02_JPRB,.221E-02_JPRB,.220E-02_JPRB,.218E-02_JPRB,.215E-02_JPRB,&
+&.216E-02_JPRB,.221E-02_JPRB,.219E-02_JPRB,.222E-02_JPRB,.235E-02_JPRB,.233E-02_JPRB,.226E-02_JPRB,&
+&.233E-02_JPRB,.230E-02_JPRB,.233E-02_JPRB,.252E-02_JPRB,.246E-02_JPRB,.255E-02_JPRB,.331E-02_JPRB,&
+&.360E-02_JPRB,.423E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  5  74.0
+ZAER (:, 5, 8) = (/&
+&.497E-02_JPRB,.547E-02_JPRB,.576E-02_JPRB,.655E-02_JPRB,.694E-02_JPRB,.583E-02_JPRB,.501E-02_JPRB,&
+&.467E-02_JPRB,.472E-02_JPRB,.450E-02_JPRB,.402E-02_JPRB,.381E-02_JPRB,.380E-02_JPRB,.367E-02_JPRB,&
+&.342E-02_JPRB,.332E-02_JPRB,.305E-02_JPRB,.279E-02_JPRB,.266E-02_JPRB,.270E-02_JPRB,.255E-02_JPRB,&
+&.247E-02_JPRB,.241E-02_JPRB,.239E-02_JPRB,.257E-02_JPRB,.299E-02_JPRB,.296E-02_JPRB,.276E-02_JPRB,&
+&.269E-02_JPRB,.275E-02_JPRB,.272E-02_JPRB,.258E-02_JPRB,.263E-02_JPRB,.243E-02_JPRB,.233E-02_JPRB,&
+&.237E-02_JPRB,.233E-02_JPRB,.236E-02_JPRB,.251E-02_JPRB,.269E-02_JPRB,.276E-02_JPRB,.275E-02_JPRB,&
+&.281E-02_JPRB,.284E-02_JPRB,.279E-02_JPRB,.265E-02_JPRB,.250E-02_JPRB,.263E-02_JPRB,.272E-02_JPRB,&
+&.272E-02_JPRB,.276E-02_JPRB,.258E-02_JPRB,.245E-02_JPRB,.238E-02_JPRB,.226E-02_JPRB,.217E-02_JPRB,&
+&.222E-02_JPRB,.229E-02_JPRB,.234E-02_JPRB,.240E-02_JPRB,.252E-02_JPRB,.254E-02_JPRB,.249E-02_JPRB,&
+&.253E-02_JPRB,.271E-02_JPRB,.275E-02_JPRB,.288E-02_JPRB,.288E-02_JPRB,.293E-02_JPRB,.320E-02_JPRB,&
+&.383E-02_JPRB,.441E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  6  70.0
+ZAER (:, 6, 8) = (/&
+&.494E-02_JPRB,.574E-02_JPRB,.552E-02_JPRB,.507E-02_JPRB,.585E-02_JPRB,.598E-02_JPRB,.503E-02_JPRB,&
+&.455E-02_JPRB,.483E-02_JPRB,.454E-02_JPRB,.410E-02_JPRB,.407E-02_JPRB,.416E-02_JPRB,.415E-02_JPRB,&
+&.388E-02_JPRB,.398E-02_JPRB,.371E-02_JPRB,.319E-02_JPRB,.303E-02_JPRB,.298E-02_JPRB,.308E-02_JPRB,&
+&.299E-02_JPRB,.289E-02_JPRB,.262E-02_JPRB,.276E-02_JPRB,.297E-02_JPRB,.280E-02_JPRB,.270E-02_JPRB,&
+&.294E-02_JPRB,.317E-02_JPRB,.337E-02_JPRB,.329E-02_JPRB,.320E-02_JPRB,.317E-02_JPRB,.275E-02_JPRB,&
+&.287E-02_JPRB,.309E-02_JPRB,.314E-02_JPRB,.328E-02_JPRB,.342E-02_JPRB,.348E-02_JPRB,.355E-02_JPRB,&
+&.338E-02_JPRB,.331E-02_JPRB,.328E-02_JPRB,.312E-02_JPRB,.294E-02_JPRB,.276E-02_JPRB,.274E-02_JPRB,&
+&.288E-02_JPRB,.300E-02_JPRB,.299E-02_JPRB,.280E-02_JPRB,.279E-02_JPRB,.273E-02_JPRB,.266E-02_JPRB,&
+&.258E-02_JPRB,.253E-02_JPRB,.255E-02_JPRB,.263E-02_JPRB,.279E-02_JPRB,.294E-02_JPRB,.298E-02_JPRB,&
+&.304E-02_JPRB,.326E-02_JPRB,.350E-02_JPRB,.344E-02_JPRB,.354E-02_JPRB,.365E-02_JPRB,.379E-02_JPRB,&
+&.426E-02_JPRB,.455E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  7  66.0
+ZAER (:, 7, 8) = (/&
+&.508E-02_JPRB,.500E-02_JPRB,.465E-02_JPRB,.474E-02_JPRB,.472E-02_JPRB,.444E-02_JPRB,.465E-02_JPRB,&
+&.451E-02_JPRB,.459E-02_JPRB,.436E-02_JPRB,.413E-02_JPRB,.401E-02_JPRB,.399E-02_JPRB,.386E-02_JPRB,&
+&.371E-02_JPRB,.398E-02_JPRB,.410E-02_JPRB,.362E-02_JPRB,.340E-02_JPRB,.341E-02_JPRB,.357E-02_JPRB,&
+&.379E-02_JPRB,.368E-02_JPRB,.337E-02_JPRB,.336E-02_JPRB,.361E-02_JPRB,.358E-02_JPRB,.319E-02_JPRB,&
+&.309E-02_JPRB,.325E-02_JPRB,.349E-02_JPRB,.346E-02_JPRB,.342E-02_JPRB,.368E-02_JPRB,.420E-02_JPRB,&
+&.481E-02_JPRB,.505E-02_JPRB,.512E-02_JPRB,.514E-02_JPRB,.507E-02_JPRB,.518E-02_JPRB,.519E-02_JPRB,&
+&.468E-02_JPRB,.387E-02_JPRB,.390E-02_JPRB,.435E-02_JPRB,.397E-02_JPRB,.358E-02_JPRB,.354E-02_JPRB,&
+&.366E-02_JPRB,.375E-02_JPRB,.374E-02_JPRB,.398E-02_JPRB,.384E-02_JPRB,.385E-02_JPRB,.373E-02_JPRB,&
+&.366E-02_JPRB,.352E-02_JPRB,.356E-02_JPRB,.360E-02_JPRB,.376E-02_JPRB,.413E-02_JPRB,.404E-02_JPRB,&
+&.390E-02_JPRB,.406E-02_JPRB,.402E-02_JPRB,.428E-02_JPRB,.432E-02_JPRB,.432E-02_JPRB,.450E-02_JPRB,&
+&.484E-02_JPRB,.492E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  8  62.0
+ZAER (:, 8, 8) = (/&
+&.454E-02_JPRB,.438E-02_JPRB,.425E-02_JPRB,.419E-02_JPRB,.396E-02_JPRB,.360E-02_JPRB,.431E-02_JPRB,&
+&.493E-02_JPRB,.503E-02_JPRB,.414E-02_JPRB,.414E-02_JPRB,.401E-02_JPRB,.387E-02_JPRB,.361E-02_JPRB,&
+&.356E-02_JPRB,.360E-02_JPRB,.339E-02_JPRB,.343E-02_JPRB,.344E-02_JPRB,.359E-02_JPRB,.390E-02_JPRB,&
+&.401E-02_JPRB,.384E-02_JPRB,.390E-02_JPRB,.390E-02_JPRB,.368E-02_JPRB,.381E-02_JPRB,.387E-02_JPRB,&
+&.364E-02_JPRB,.360E-02_JPRB,.357E-02_JPRB,.357E-02_JPRB,.338E-02_JPRB,.392E-02_JPRB,.527E-02_JPRB,&
+&.667E-02_JPRB,.745E-02_JPRB,.719E-02_JPRB,.612E-02_JPRB,.585E-02_JPRB,.525E-02_JPRB,.476E-02_JPRB,&
+&.454E-02_JPRB,.488E-02_JPRB,.536E-02_JPRB,.610E-02_JPRB,.625E-02_JPRB,.538E-02_JPRB,.451E-02_JPRB,&
+&.484E-02_JPRB,.544E-02_JPRB,.517E-02_JPRB,.534E-02_JPRB,.569E-02_JPRB,.586E-02_JPRB,.531E-02_JPRB,&
+&.492E-02_JPRB,.517E-02_JPRB,.501E-02_JPRB,.477E-02_JPRB,.493E-02_JPRB,.529E-02_JPRB,.568E-02_JPRB,&
+&.543E-02_JPRB,.553E-02_JPRB,.574E-02_JPRB,.564E-02_JPRB,.534E-02_JPRB,.497E-02_JPRB,.504E-02_JPRB,&
+&.539E-02_JPRB,.520E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat:  9  58.0
+ZAER (:, 9, 8) = (/&
+&.427E-02_JPRB,.410E-02_JPRB,.395E-02_JPRB,.412E-02_JPRB,.406E-02_JPRB,.377E-02_JPRB,.398E-02_JPRB,&
+&.449E-02_JPRB,.419E-02_JPRB,.374E-02_JPRB,.372E-02_JPRB,.370E-02_JPRB,.394E-02_JPRB,.388E-02_JPRB,&
+&.368E-02_JPRB,.348E-02_JPRB,.330E-02_JPRB,.299E-02_JPRB,.329E-02_JPRB,.357E-02_JPRB,.356E-02_JPRB,&
+&.358E-02_JPRB,.369E-02_JPRB,.370E-02_JPRB,.377E-02_JPRB,.371E-02_JPRB,.412E-02_JPRB,.407E-02_JPRB,&
+&.379E-02_JPRB,.381E-02_JPRB,.384E-02_JPRB,.370E-02_JPRB,.378E-02_JPRB,.418E-02_JPRB,.538E-02_JPRB,&
+&.756E-02_JPRB,.775E-02_JPRB,.663E-02_JPRB,.521E-02_JPRB,.484E-02_JPRB,.517E-02_JPRB,.524E-02_JPRB,&
+&.537E-02_JPRB,.649E-02_JPRB,.814E-02_JPRB,.761E-02_JPRB,.648E-02_JPRB,.588E-02_JPRB,.512E-02_JPRB,&
+&.477E-02_JPRB,.517E-02_JPRB,.540E-02_JPRB,.583E-02_JPRB,.574E-02_JPRB,.503E-02_JPRB,.476E-02_JPRB,&
+&.487E-02_JPRB,.508E-02_JPRB,.516E-02_JPRB,.537E-02_JPRB,.523E-02_JPRB,.522E-02_JPRB,.553E-02_JPRB,&
+&.535E-02_JPRB,.534E-02_JPRB,.522E-02_JPRB,.514E-02_JPRB,.485E-02_JPRB,.440E-02_JPRB,.418E-02_JPRB,&
+&.456E-02_JPRB,.464E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 10  54.0
+ZAER (:,10, 8) = (/&
+&.455E-02_JPRB,.398E-02_JPRB,.404E-02_JPRB,.400E-02_JPRB,.386E-02_JPRB,.351E-02_JPRB,.345E-02_JPRB,&
+&.382E-02_JPRB,.381E-02_JPRB,.384E-02_JPRB,.369E-02_JPRB,.355E-02_JPRB,.351E-02_JPRB,.354E-02_JPRB,&
+&.370E-02_JPRB,.383E-02_JPRB,.367E-02_JPRB,.338E-02_JPRB,.325E-02_JPRB,.318E-02_JPRB,.317E-02_JPRB,&
+&.346E-02_JPRB,.235E-02_JPRB,.350E-02_JPRB,.352E-02_JPRB,.446E-02_JPRB,.535E-02_JPRB,.565E-02_JPRB,&
+&.529E-02_JPRB,.473E-02_JPRB,.449E-02_JPRB,.433E-02_JPRB,.423E-02_JPRB,.421E-02_JPRB,.497E-02_JPRB,&
+&.558E-02_JPRB,.525E-02_JPRB,.459E-02_JPRB,.474E-02_JPRB,.549E-02_JPRB,.576E-02_JPRB,.615E-02_JPRB,&
+&.691E-02_JPRB,.706E-02_JPRB,.775E-02_JPRB,.761E-02_JPRB,.638E-02_JPRB,.550E-02_JPRB,.555E-02_JPRB,&
+&.525E-02_JPRB,.496E-02_JPRB,.513E-02_JPRB,.530E-02_JPRB,.522E-02_JPRB,.492E-02_JPRB,.494E-02_JPRB,&
+&.511E-02_JPRB,.526E-02_JPRB,.539E-02_JPRB,.545E-02_JPRB,.556E-02_JPRB,.576E-02_JPRB,.573E-02_JPRB,&
+&.577E-02_JPRB,.585E-02_JPRB,.525E-02_JPRB,.449E-02_JPRB,.435E-02_JPRB,.442E-02_JPRB,.438E-02_JPRB,&
+&.441E-02_JPRB,.451E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 11  50.0
+ZAER (:,11, 8) = (/&
+&.471E-02_JPRB,.429E-02_JPRB,.431E-02_JPRB,.409E-02_JPRB,.381E-02_JPRB,.366E-02_JPRB,.373E-02_JPRB,&
+&.386E-02_JPRB,.428E-02_JPRB,.399E-02_JPRB,.394E-02_JPRB,.381E-02_JPRB,.362E-02_JPRB,.368E-02_JPRB,&
+&.366E-02_JPRB,.395E-02_JPRB,.400E-02_JPRB,.372E-02_JPRB,.354E-02_JPRB,.313E-02_JPRB,.306E-02_JPRB,&
+&.336E-02_JPRB,.229E-02_JPRB,.356E-02_JPRB,.403E-02_JPRB,.577E-02_JPRB,.697E-02_JPRB,.675E-02_JPRB,&
+&.647E-02_JPRB,.581E-02_JPRB,.554E-02_JPRB,.526E-02_JPRB,.484E-02_JPRB,.461E-02_JPRB,.459E-02_JPRB,&
+&.467E-02_JPRB,.487E-02_JPRB,.490E-02_JPRB,.514E-02_JPRB,.584E-02_JPRB,.718E-02_JPRB,.795E-02_JPRB,&
+&.822E-02_JPRB,.805E-02_JPRB,.784E-02_JPRB,.737E-02_JPRB,.662E-02_JPRB,.660E-02_JPRB,.613E-02_JPRB,&
+&.514E-02_JPRB,.526E-02_JPRB,.540E-02_JPRB,.554E-02_JPRB,.529E-02_JPRB,.528E-02_JPRB,.525E-02_JPRB,&
+&.552E-02_JPRB,.567E-02_JPRB,.604E-02_JPRB,.610E-02_JPRB,.658E-02_JPRB,.697E-02_JPRB,.651E-02_JPRB,&
+&.601E-02_JPRB,.600E-02_JPRB,.558E-02_JPRB,.511E-02_JPRB,.496E-02_JPRB,.488E-02_JPRB,.489E-02_JPRB,&
+&.495E-02_JPRB,.478E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 12  46.0
+ZAER (:,12, 8) = (/&
+&.452E-02_JPRB,.449E-02_JPRB,.458E-02_JPRB,.446E-02_JPRB,.429E-02_JPRB,.417E-02_JPRB,.396E-02_JPRB,&
+&.406E-02_JPRB,.411E-02_JPRB,.397E-02_JPRB,.381E-02_JPRB,.389E-02_JPRB,.373E-02_JPRB,.387E-02_JPRB,&
+&.395E-02_JPRB,.413E-02_JPRB,.397E-02_JPRB,.364E-02_JPRB,.354E-02_JPRB,.347E-02_JPRB,.353E-02_JPRB,&
+&.403E-02_JPRB,.238E-02_JPRB,.412E-02_JPRB,.543E-02_JPRB,.867E-02_JPRB,.814E-02_JPRB,.666E-02_JPRB,&
+&.572E-02_JPRB,.556E-02_JPRB,.607E-02_JPRB,.678E-02_JPRB,.669E-02_JPRB,.626E-02_JPRB,.578E-02_JPRB,&
+&.533E-02_JPRB,.546E-02_JPRB,.588E-02_JPRB,.616E-02_JPRB,.734E-02_JPRB,.883E-02_JPRB,.101E-01_JPRB,&
+&.919E-02_JPRB,.951E-02_JPRB,.103E-01_JPRB,.961E-02_JPRB,.907E-02_JPRB,.839E-02_JPRB,.758E-02_JPRB,&
+&.672E-02_JPRB,.589E-02_JPRB,.599E-02_JPRB,.565E-02_JPRB,.576E-02_JPRB,.596E-02_JPRB,.584E-02_JPRB,&
+&.580E-02_JPRB,.585E-02_JPRB,.630E-02_JPRB,.627E-02_JPRB,.730E-02_JPRB,.786E-02_JPRB,.765E-02_JPRB,&
+&.703E-02_JPRB,.657E-02_JPRB,.631E-02_JPRB,.613E-02_JPRB,.576E-02_JPRB,.541E-02_JPRB,.513E-02_JPRB,&
+&.484E-02_JPRB,.462E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 13  42.0
+ZAER (:,13, 8) = (/&
+&.532E-02_JPRB,.497E-02_JPRB,.481E-02_JPRB,.473E-02_JPRB,.439E-02_JPRB,.424E-02_JPRB,.430E-02_JPRB,&
+&.424E-02_JPRB,.412E-02_JPRB,.388E-02_JPRB,.393E-02_JPRB,.374E-02_JPRB,.410E-02_JPRB,.459E-02_JPRB,&
+&.423E-02_JPRB,.407E-02_JPRB,.409E-02_JPRB,.419E-02_JPRB,.424E-02_JPRB,.488E-02_JPRB,.569E-02_JPRB,&
+&.758E-02_JPRB,.408E-02_JPRB,.421E-02_JPRB,.914E-02_JPRB,.112E-01_JPRB,.793E-02_JPRB,.725E-02_JPRB,&
+&.691E-02_JPRB,.673E-02_JPRB,.753E-02_JPRB,.745E-02_JPRB,.746E-02_JPRB,.730E-02_JPRB,.715E-02_JPRB,&
+&.663E-02_JPRB,.653E-02_JPRB,.702E-02_JPRB,.823E-02_JPRB,.975E-02_JPRB,.106E-01_JPRB,.110E-01_JPRB,&
+&.117E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.127E-01_JPRB,.119E-01_JPRB,.984E-02_JPRB,.879E-02_JPRB,&
+&.807E-02_JPRB,.731E-02_JPRB,.700E-02_JPRB,.661E-02_JPRB,.651E-02_JPRB,.630E-02_JPRB,.617E-02_JPRB,&
+&.599E-02_JPRB,.580E-02_JPRB,.583E-02_JPRB,.618E-02_JPRB,.745E-02_JPRB,.780E-02_JPRB,.788E-02_JPRB,&
+&.790E-02_JPRB,.737E-02_JPRB,.664E-02_JPRB,.647E-02_JPRB,.610E-02_JPRB,.601E-02_JPRB,.550E-02_JPRB,&
+&.479E-02_JPRB,.455E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 14  38.0
+ZAER (:,14, 8) = (/&
+&.579E-02_JPRB,.518E-02_JPRB,.514E-02_JPRB,.497E-02_JPRB,.486E-02_JPRB,.465E-02_JPRB,.484E-02_JPRB,&
+&.473E-02_JPRB,.455E-02_JPRB,.459E-02_JPRB,.433E-02_JPRB,.432E-02_JPRB,.495E-02_JPRB,.523E-02_JPRB,&
+&.480E-02_JPRB,.469E-02_JPRB,.480E-02_JPRB,.497E-02_JPRB,.507E-02_JPRB,.512E-02_JPRB,.508E-02_JPRB,&
+&.551E-02_JPRB,.455E-02_JPRB,.870E-02_JPRB,.768E-02_JPRB,.123E-01_JPRB,.953E-02_JPRB,.871E-02_JPRB,&
+&.910E-02_JPRB,.935E-02_JPRB,.899E-02_JPRB,.867E-02_JPRB,.870E-02_JPRB,.881E-02_JPRB,.861E-02_JPRB,&
+&.824E-02_JPRB,.828E-02_JPRB,.861E-02_JPRB,.989E-02_JPRB,.111E-01_JPRB,.129E-01_JPRB,.156E-01_JPRB,&
+&.176E-01_JPRB,.180E-01_JPRB,.186E-01_JPRB,.169E-01_JPRB,.132E-01_JPRB,.114E-01_JPRB,.101E-01_JPRB,&
+&.911E-02_JPRB,.870E-02_JPRB,.856E-02_JPRB,.765E-02_JPRB,.725E-02_JPRB,.708E-02_JPRB,.681E-02_JPRB,&
+&.663E-02_JPRB,.654E-02_JPRB,.648E-02_JPRB,.748E-02_JPRB,.891E-02_JPRB,.896E-02_JPRB,.103E-01_JPRB,&
+&.103E-01_JPRB,.885E-02_JPRB,.463E-02_JPRB,.754E-02_JPRB,.772E-02_JPRB,.742E-02_JPRB,.651E-02_JPRB,&
+&.572E-02_JPRB,.505E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 15  34.0
+ZAER (:,15, 8) = (/&
+&.657E-02_JPRB,.621E-02_JPRB,.626E-02_JPRB,.632E-02_JPRB,.607E-02_JPRB,.562E-02_JPRB,.566E-02_JPRB,&
+&.573E-02_JPRB,.587E-02_JPRB,.566E-02_JPRB,.551E-02_JPRB,.594E-02_JPRB,.608E-02_JPRB,.613E-02_JPRB,&
+&.585E-02_JPRB,.551E-02_JPRB,.596E-02_JPRB,.632E-02_JPRB,.620E-02_JPRB,.609E-02_JPRB,.644E-02_JPRB,&
+&.798E-02_JPRB,.628E-02_JPRB,.159E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.167E-01_JPRB,.145E-01_JPRB,&
+&.141E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.114E-01_JPRB,.111E-01_JPRB,.109E-01_JPRB,&
+&.105E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,.131E-01_JPRB,.173E-01_JPRB,.126E-01_JPRB,.227E-01_JPRB,&
+&.271E-01_JPRB,.276E-01_JPRB,.241E-01_JPRB,.182E-01_JPRB,.140E-01_JPRB,.121E-01_JPRB,.110E-01_JPRB,&
+&.104E-01_JPRB,.980E-02_JPRB,.946E-02_JPRB,.912E-02_JPRB,.884E-02_JPRB,.836E-02_JPRB,.834E-02_JPRB,&
+&.802E-02_JPRB,.787E-02_JPRB,.854E-02_JPRB,.110E-01_JPRB,.759E-02_JPRB,.139E-01_JPRB,.136E-01_JPRB,&
+&.128E-01_JPRB,.711E-02_JPRB,.762E-02_JPRB,.653E-02_JPRB,.109E-01_JPRB,.919E-02_JPRB,.773E-02_JPRB,&
+&.683E-02_JPRB,.622E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 16  30.0
+ZAER (:,16, 8) = (/&
+&.875E-02_JPRB,.898E-02_JPRB,.905E-02_JPRB,.918E-02_JPRB,.911E-02_JPRB,.874E-02_JPRB,.849E-02_JPRB,&
+&.824E-02_JPRB,.791E-02_JPRB,.772E-02_JPRB,.815E-02_JPRB,.805E-02_JPRB,.792E-02_JPRB,.778E-02_JPRB,&
+&.794E-02_JPRB,.807E-02_JPRB,.818E-02_JPRB,.847E-02_JPRB,.853E-02_JPRB,.848E-02_JPRB,.852E-02_JPRB,&
+&.101E-01_JPRB,.881E-02_JPRB,.178E-01_JPRB,.199E-01_JPRB,.204E-01_JPRB,.304E-01_JPRB,.263E-01_JPRB,&
+&.225E-01_JPRB,.192E-01_JPRB,.177E-01_JPRB,.163E-01_JPRB,.152E-01_JPRB,.142E-01_JPRB,.136E-01_JPRB,&
+&.131E-01_JPRB,.130E-01_JPRB,.152E-01_JPRB,.214E-01_JPRB,.302E-01_JPRB,.202E-01_JPRB,.264E-01_JPRB,&
+&.290E-01_JPRB,.461E-01_JPRB,.312E-01_JPRB,.220E-01_JPRB,.162E-01_JPRB,.139E-01_JPRB,.130E-01_JPRB,&
+&.124E-01_JPRB,.119E-01_JPRB,.121E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,&
+&.108E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,.915E-02_JPRB,.103E-01_JPRB,.112E-01_JPRB,.114E-01_JPRB,&
+&.108E-01_JPRB,.101E-01_JPRB,.114E-01_JPRB,.107E-01_JPRB,.147E-01_JPRB,.115E-01_JPRB,.101E-01_JPRB,&
+&.935E-02_JPRB,.863E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 17  26.0
+ZAER (:,17, 8) = (/&
+&.132E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,&
+&.129E-01_JPRB,.125E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,.109E-01_JPRB,.110E-01_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,.128E-01_JPRB,.123E-01_JPRB,.122E-01_JPRB,&
+&.146E-01_JPRB,.140E-01_JPRB,.254E-01_JPRB,.333E-01_JPRB,.323E-01_JPRB,.318E-01_JPRB,.501E-01_JPRB,&
+&.409E-01_JPRB,.298E-01_JPRB,.250E-01_JPRB,.219E-01_JPRB,.201E-01_JPRB,.194E-01_JPRB,.183E-01_JPRB,&
+&.176E-01_JPRB,.186E-01_JPRB,.229E-01_JPRB,.329E-01_JPRB,.241E-01_JPRB,.292E-01_JPRB,.484E-01_JPRB,&
+&.343E-01_JPRB,.541E-01_JPRB,.392E-01_JPRB,.266E-01_JPRB,.228E-01_JPRB,.187E-01_JPRB,.165E-01_JPRB,&
+&.159E-01_JPRB,.169E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,.154E-01_JPRB,&
+&.155E-01_JPRB,.159E-01_JPRB,.163E-01_JPRB,.129E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.149E-01_JPRB,&
+&.138E-01_JPRB,.116E-01_JPRB,.118E-01_JPRB,.104E-01_JPRB,.161E-01_JPRB,.153E-01_JPRB,.148E-01_JPRB,&
+&.144E-01_JPRB,.136E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 18  22.0
+ZAER (:,18, 8) = (/&
+&.192E-01_JPRB,.191E-01_JPRB,.199E-01_JPRB,.209E-01_JPRB,.205E-01_JPRB,.195E-01_JPRB,.188E-01_JPRB,&
+&.184E-01_JPRB,.180E-01_JPRB,.177E-01_JPRB,.175E-01_JPRB,.166E-01_JPRB,.157E-01_JPRB,.152E-01_JPRB,&
+&.149E-01_JPRB,.154E-01_JPRB,.155E-01_JPRB,.162E-01_JPRB,.172E-01_JPRB,.180E-01_JPRB,.195E-01_JPRB,&
+&.330E-01_JPRB,.352E-01_JPRB,.358E-01_JPRB,.374E-01_JPRB,.382E-01_JPRB,.422E-01_JPRB,.397E-01_JPRB,&
+&.487E-01_JPRB,.363E-01_JPRB,.309E-01_JPRB,.279E-01_JPRB,.263E-01_JPRB,.256E-01_JPRB,.241E-01_JPRB,&
+&.248E-01_JPRB,.276E-01_JPRB,.364E-01_JPRB,.548E-01_JPRB,.337E-01_JPRB,.384E-01_JPRB,.455E-01_JPRB,&
+&.307E-01_JPRB,.254E-01_JPRB,.382E-01_JPRB,.174E-01_JPRB,.256E-01_JPRB,.237E-01_JPRB,.265E-01_JPRB,&
+&.233E-01_JPRB,.228E-01_JPRB,.221E-01_JPRB,.216E-01_JPRB,.206E-01_JPRB,.196E-01_JPRB,.193E-01_JPRB,&
+&.197E-01_JPRB,.198E-01_JPRB,.218E-01_JPRB,.236E-01_JPRB,.137E-01_JPRB,.149E-01_JPRB,.160E-01_JPRB,&
+&.159E-01_JPRB,.128E-01_JPRB,.127E-01_JPRB,.197E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.194E-01_JPRB,&
+&.202E-01_JPRB,.198E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 19  18.0
+ZAER (:,19, 8) = (/&
+&.293E-01_JPRB,.289E-01_JPRB,.285E-01_JPRB,.272E-01_JPRB,.277E-01_JPRB,.268E-01_JPRB,.262E-01_JPRB,&
+&.248E-01_JPRB,.239E-01_JPRB,.237E-01_JPRB,.227E-01_JPRB,.239E-01_JPRB,.233E-01_JPRB,.216E-01_JPRB,&
+&.221E-01_JPRB,.212E-01_JPRB,.212E-01_JPRB,.229E-01_JPRB,.254E-01_JPRB,.286E-01_JPRB,.410E-01_JPRB,&
+&.889E-01_JPRB,.447E-01_JPRB,.250E-01_JPRB,.326E-01_JPRB,.398E-01_JPRB,.436E-01_JPRB,.372E-01_JPRB,&
+&.270E-01_JPRB,.346E-01_JPRB,.315E-01_JPRB,.309E-01_JPRB,.303E-01_JPRB,.302E-01_JPRB,.308E-01_JPRB,&
+&.347E-01_JPRB,.456E-01_JPRB,.603E-01_JPRB,.683E-01_JPRB,.373E-01_JPRB,.363E-01_JPRB,.329E-01_JPRB,&
+&.205E-01_JPRB,.195E-01_JPRB,.359E-01_JPRB,.192E-01_JPRB,.271E-01_JPRB,.308E-01_JPRB,.287E-01_JPRB,&
+&.260E-01_JPRB,.258E-01_JPRB,.256E-01_JPRB,.246E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.227E-01_JPRB,&
+&.223E-01_JPRB,.234E-01_JPRB,.253E-01_JPRB,.281E-01_JPRB,.277E-01_JPRB,.158E-01_JPRB,.171E-01_JPRB,&
+&.161E-01_JPRB,.148E-01_JPRB,.139E-01_JPRB,.229E-01_JPRB,.240E-01_JPRB,.279E-01_JPRB,.338E-01_JPRB,&
+&.398E-01_JPRB,.323E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 20  14.0
+ZAER (:,20, 8) = (/&
+&.347E-01_JPRB,.326E-01_JPRB,.325E-01_JPRB,.324E-01_JPRB,.323E-01_JPRB,.319E-01_JPRB,.299E-01_JPRB,&
+&.286E-01_JPRB,.291E-01_JPRB,.281E-01_JPRB,.279E-01_JPRB,.286E-01_JPRB,.286E-01_JPRB,.273E-01_JPRB,&
+&.272E-01_JPRB,.269E-01_JPRB,.288E-01_JPRB,.331E-01_JPRB,.401E-01_JPRB,.520E-01_JPRB,.754E-01_JPRB,&
+&.428E-01_JPRB,.336E-01_JPRB,.340E-01_JPRB,.327E-01_JPRB,.358E-01_JPRB,.298E-01_JPRB,.259E-01_JPRB,&
+&.219E-01_JPRB,.349E-01_JPRB,.341E-01_JPRB,.341E-01_JPRB,.363E-01_JPRB,.419E-01_JPRB,.492E-01_JPRB,&
+&.594E-01_JPRB,.749E-01_JPRB,.889E-01_JPRB,.978E-01_JPRB,.510E-01_JPRB,.391E-01_JPRB,.303E-01_JPRB,&
+&.162E-01_JPRB,.168E-01_JPRB,.184E-01_JPRB,.285E-01_JPRB,.273E-01_JPRB,.304E-01_JPRB,.295E-01_JPRB,&
+&.284E-01_JPRB,.270E-01_JPRB,.272E-01_JPRB,.282E-01_JPRB,.294E-01_JPRB,.302E-01_JPRB,.315E-01_JPRB,&
+&.324E-01_JPRB,.312E-01_JPRB,.295E-01_JPRB,.325E-01_JPRB,.354E-01_JPRB,.344E-01_JPRB,.192E-01_JPRB,&
+&.153E-01_JPRB,.284E-01_JPRB,.295E-01_JPRB,.317E-01_JPRB,.351E-01_JPRB,.406E-01_JPRB,.498E-01_JPRB,&
+&.447E-01_JPRB,.385E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 21  10.0
+ZAER (:,21, 8) = (/&
+&.380E-01_JPRB,.376E-01_JPRB,.386E-01_JPRB,.385E-01_JPRB,.377E-01_JPRB,.366E-01_JPRB,.344E-01_JPRB,&
+&.336E-01_JPRB,.340E-01_JPRB,.341E-01_JPRB,.324E-01_JPRB,.326E-01_JPRB,.321E-01_JPRB,.319E-01_JPRB,&
+&.331E-01_JPRB,.354E-01_JPRB,.406E-01_JPRB,.473E-01_JPRB,.559E-01_JPRB,.672E-01_JPRB,.736E-01_JPRB,&
+&.306E-01_JPRB,.306E-01_JPRB,.280E-01_JPRB,.266E-01_JPRB,.256E-01_JPRB,.257E-01_JPRB,.246E-01_JPRB,&
+&.223E-01_JPRB,.336E-01_JPRB,.377E-01_JPRB,.412E-01_JPRB,.453E-01_JPRB,.529E-01_JPRB,.643E-01_JPRB,&
+&.763E-01_JPRB,.856E-01_JPRB,.924E-01_JPRB,.930E-01_JPRB,.490E-01_JPRB,.410E-01_JPRB,.261E-01_JPRB,&
+&.154E-01_JPRB,.156E-01_JPRB,.273E-01_JPRB,.291E-01_JPRB,.305E-01_JPRB,.308E-01_JPRB,.311E-01_JPRB,&
+&.307E-01_JPRB,.300E-01_JPRB,.318E-01_JPRB,.337E-01_JPRB,.375E-01_JPRB,.405E-01_JPRB,.437E-01_JPRB,&
+&.486E-01_JPRB,.496E-01_JPRB,.487E-01_JPRB,.471E-01_JPRB,.443E-01_JPRB,.354E-01_JPRB,.347E-01_JPRB,&
+&.356E-01_JPRB,.389E-01_JPRB,.407E-01_JPRB,.387E-01_JPRB,.433E-01_JPRB,.462E-01_JPRB,.477E-01_JPRB,&
+&.423E-01_JPRB,.394E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 22   6.0
+ZAER (:,22, 8) = (/&
+&.415E-01_JPRB,.406E-01_JPRB,.417E-01_JPRB,.408E-01_JPRB,.409E-01_JPRB,.395E-01_JPRB,.375E-01_JPRB,&
+&.365E-01_JPRB,.369E-01_JPRB,.360E-01_JPRB,.358E-01_JPRB,.369E-01_JPRB,.388E-01_JPRB,.411E-01_JPRB,&
+&.435E-01_JPRB,.474E-01_JPRB,.543E-01_JPRB,.640E-01_JPRB,.737E-01_JPRB,.743E-01_JPRB,.299E-01_JPRB,&
+&.256E-01_JPRB,.254E-01_JPRB,.245E-01_JPRB,.242E-01_JPRB,.254E-01_JPRB,.262E-01_JPRB,.244E-01_JPRB,&
+&.226E-01_JPRB,.375E-01_JPRB,.393E-01_JPRB,.434E-01_JPRB,.476E-01_JPRB,.524E-01_JPRB,.613E-01_JPRB,&
+&.640E-01_JPRB,.627E-01_JPRB,.587E-01_JPRB,.570E-01_JPRB,.269E-01_JPRB,.240E-01_JPRB,.190E-01_JPRB,&
+&.163E-01_JPRB,.153E-01_JPRB,.287E-01_JPRB,.301E-01_JPRB,.316E-01_JPRB,.301E-01_JPRB,.298E-01_JPRB,&
+&.302E-01_JPRB,.311E-01_JPRB,.326E-01_JPRB,.362E-01_JPRB,.415E-01_JPRB,.468E-01_JPRB,.531E-01_JPRB,&
+&.636E-01_JPRB,.716E-01_JPRB,.560E-01_JPRB,.503E-01_JPRB,.418E-01_JPRB,.377E-01_JPRB,.423E-01_JPRB,&
+&.449E-01_JPRB,.267E-01_JPRB,.266E-01_JPRB,.519E-01_JPRB,.498E-01_JPRB,.479E-01_JPRB,.451E-01_JPRB,&
+&.436E-01_JPRB,.419E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 23   2.0
+ZAER (:,23, 8) = (/&
+&.435E-01_JPRB,.431E-01_JPRB,.428E-01_JPRB,.424E-01_JPRB,.422E-01_JPRB,.402E-01_JPRB,.387E-01_JPRB,&
+&.385E-01_JPRB,.397E-01_JPRB,.401E-01_JPRB,.420E-01_JPRB,.455E-01_JPRB,.472E-01_JPRB,.483E-01_JPRB,&
+&.494E-01_JPRB,.533E-01_JPRB,.579E-01_JPRB,.610E-01_JPRB,.618E-01_JPRB,.593E-01_JPRB,.286E-01_JPRB,&
+&.230E-01_JPRB,.234E-01_JPRB,.238E-01_JPRB,.244E-01_JPRB,.253E-01_JPRB,.264E-01_JPRB,.243E-01_JPRB,&
+&.378E-01_JPRB,.393E-01_JPRB,.394E-01_JPRB,.389E-01_JPRB,.405E-01_JPRB,.426E-01_JPRB,.453E-01_JPRB,&
+&.449E-01_JPRB,.436E-01_JPRB,.421E-01_JPRB,.245E-01_JPRB,.217E-01_JPRB,.230E-01_JPRB,.258E-01_JPRB,&
+&.220E-01_JPRB,.172E-01_JPRB,.180E-01_JPRB,.296E-01_JPRB,.281E-01_JPRB,.274E-01_JPRB,.287E-01_JPRB,&
+&.300E-01_JPRB,.319E-01_JPRB,.347E-01_JPRB,.388E-01_JPRB,.444E-01_JPRB,.510E-01_JPRB,.550E-01_JPRB,&
+&.574E-01_JPRB,.341E-01_JPRB,.502E-01_JPRB,.279E-01_JPRB,.419E-01_JPRB,.399E-01_JPRB,.406E-01_JPRB,&
+&.246E-01_JPRB,.468E-01_JPRB,.492E-01_JPRB,.494E-01_JPRB,.471E-01_JPRB,.460E-01_JPRB,.452E-01_JPRB,&
+&.445E-01_JPRB,.434E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 24  -2.0
+ZAER (:,24, 8) = (/&
+&.430E-01_JPRB,.445E-01_JPRB,.455E-01_JPRB,.454E-01_JPRB,.451E-01_JPRB,.442E-01_JPRB,.458E-01_JPRB,&
+&.468E-01_JPRB,.476E-01_JPRB,.485E-01_JPRB,.480E-01_JPRB,.492E-01_JPRB,.475E-01_JPRB,.488E-01_JPRB,&
+&.464E-01_JPRB,.448E-01_JPRB,.461E-01_JPRB,.453E-01_JPRB,.459E-01_JPRB,.469E-01_JPRB,.394E-01_JPRB,&
+&.192E-01_JPRB,.212E-01_JPRB,.216E-01_JPRB,.220E-01_JPRB,.218E-01_JPRB,.344E-01_JPRB,.338E-01_JPRB,&
+&.342E-01_JPRB,.349E-01_JPRB,.329E-01_JPRB,.337E-01_JPRB,.339E-01_JPRB,.323E-01_JPRB,.315E-01_JPRB,&
+&.298E-01_JPRB,.319E-01_JPRB,.324E-01_JPRB,.188E-01_JPRB,.199E-01_JPRB,.223E-01_JPRB,.231E-01_JPRB,&
+&.194E-01_JPRB,.160E-01_JPRB,.175E-01_JPRB,.177E-01_JPRB,.263E-01_JPRB,.269E-01_JPRB,.291E-01_JPRB,&
+&.322E-01_JPRB,.355E-01_JPRB,.379E-01_JPRB,.404E-01_JPRB,.448E-01_JPRB,.484E-01_JPRB,.518E-01_JPRB,&
+&.295E-01_JPRB,.496E-01_JPRB,.473E-01_JPRB,.260E-01_JPRB,.479E-01_JPRB,.451E-01_JPRB,.354E-01_JPRB,&
+&.396E-01_JPRB,.419E-01_JPRB,.420E-01_JPRB,.429E-01_JPRB,.428E-01_JPRB,.432E-01_JPRB,.432E-01_JPRB,&
+&.424E-01_JPRB,.418E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 25  -6.0
+ZAER (:,25, 8) = (/&
+&.421E-01_JPRB,.440E-01_JPRB,.452E-01_JPRB,.454E-01_JPRB,.456E-01_JPRB,.444E-01_JPRB,.439E-01_JPRB,&
+&.440E-01_JPRB,.444E-01_JPRB,.428E-01_JPRB,.427E-01_JPRB,.434E-01_JPRB,.412E-01_JPRB,.408E-01_JPRB,&
+&.390E-01_JPRB,.397E-01_JPRB,.422E-01_JPRB,.430E-01_JPRB,.457E-01_JPRB,.482E-01_JPRB,.393E-01_JPRB,&
+&.181E-01_JPRB,.184E-01_JPRB,.178E-01_JPRB,.186E-01_JPRB,.287E-01_JPRB,.290E-01_JPRB,.295E-01_JPRB,&
+&.289E-01_JPRB,.285E-01_JPRB,.273E-01_JPRB,.288E-01_JPRB,.261E-01_JPRB,.244E-01_JPRB,.133E-01_JPRB,&
+&.131E-01_JPRB,.137E-01_JPRB,.152E-01_JPRB,.164E-01_JPRB,.178E-01_JPRB,.199E-01_JPRB,.200E-01_JPRB,&
+&.199E-01_JPRB,.185E-01_JPRB,.184E-01_JPRB,.200E-01_JPRB,.340E-01_JPRB,.337E-01_JPRB,.371E-01_JPRB,&
+&.421E-01_JPRB,.465E-01_JPRB,.486E-01_JPRB,.492E-01_JPRB,.510E-01_JPRB,.464E-01_JPRB,.438E-01_JPRB,&
+&.433E-01_JPRB,.434E-01_JPRB,.437E-01_JPRB,.445E-01_JPRB,.498E-01_JPRB,.370E-01_JPRB,.338E-01_JPRB,&
+&.362E-01_JPRB,.377E-01_JPRB,.377E-01_JPRB,.383E-01_JPRB,.388E-01_JPRB,.395E-01_JPRB,.402E-01_JPRB,&
+&.407E-01_JPRB,.413E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 26 -10.0
+ZAER (:,26, 8) = (/&
+&.381E-01_JPRB,.397E-01_JPRB,.415E-01_JPRB,.424E-01_JPRB,.418E-01_JPRB,.404E-01_JPRB,.405E-01_JPRB,&
+&.406E-01_JPRB,.406E-01_JPRB,.397E-01_JPRB,.409E-01_JPRB,.408E-01_JPRB,.397E-01_JPRB,.395E-01_JPRB,&
+&.412E-01_JPRB,.444E-01_JPRB,.527E-01_JPRB,.598E-01_JPRB,.689E-01_JPRB,.601E-01_JPRB,.335E-01_JPRB,&
+&.182E-01_JPRB,.196E-01_JPRB,.161E-01_JPRB,.233E-01_JPRB,.226E-01_JPRB,.242E-01_JPRB,.236E-01_JPRB,&
+&.235E-01_JPRB,.233E-01_JPRB,.229E-01_JPRB,.245E-01_JPRB,.259E-01_JPRB,.254E-01_JPRB,.128E-01_JPRB,&
+&.113E-01_JPRB,.123E-01_JPRB,.143E-01_JPRB,.167E-01_JPRB,.197E-01_JPRB,.231E-01_JPRB,.246E-01_JPRB,&
+&.234E-01_JPRB,.216E-01_JPRB,.218E-01_JPRB,.248E-01_JPRB,.288E-01_JPRB,.533E-01_JPRB,.547E-01_JPRB,&
+&.578E-01_JPRB,.621E-01_JPRB,.646E-01_JPRB,.680E-01_JPRB,.636E-01_JPRB,.527E-01_JPRB,.454E-01_JPRB,&
+&.447E-01_JPRB,.386E-01_JPRB,.338E-01_JPRB,.392E-01_JPRB,.480E-01_JPRB,.365E-01_JPRB,.301E-01_JPRB,&
+&.317E-01_JPRB,.346E-01_JPRB,.340E-01_JPRB,.329E-01_JPRB,.328E-01_JPRB,.338E-01_JPRB,.349E-01_JPRB,&
+&.358E-01_JPRB,.363E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 27 -14.0
+ZAER (:,27, 8) = (/&
+&.290E-01_JPRB,.299E-01_JPRB,.301E-01_JPRB,.329E-01_JPRB,.338E-01_JPRB,.333E-01_JPRB,.339E-01_JPRB,&
+&.343E-01_JPRB,.355E-01_JPRB,.370E-01_JPRB,.391E-01_JPRB,.409E-01_JPRB,.432E-01_JPRB,.438E-01_JPRB,&
+&.446E-01_JPRB,.533E-01_JPRB,.598E-01_JPRB,.715E-01_JPRB,.441E-01_JPRB,.258E-01_JPRB,.262E-01_JPRB,&
+&.250E-01_JPRB,.292E-01_JPRB,.236E-01_JPRB,.188E-01_JPRB,.197E-01_JPRB,.194E-01_JPRB,.181E-01_JPRB,&
+&.181E-01_JPRB,.198E-01_JPRB,.242E-01_JPRB,.309E-01_JPRB,.417E-01_JPRB,.268E-01_JPRB,.176E-01_JPRB,&
+&.132E-01_JPRB,.137E-01_JPRB,.159E-01_JPRB,.185E-01_JPRB,.219E-01_JPRB,.251E-01_JPRB,.296E-01_JPRB,&
+&.322E-01_JPRB,.317E-01_JPRB,.342E-01_JPRB,.395E-01_JPRB,.714E-01_JPRB,.763E-01_JPRB,.699E-01_JPRB,&
+&.724E-01_JPRB,.724E-01_JPRB,.453E-01_JPRB,.818E-01_JPRB,.858E-01_JPRB,.695E-01_JPRB,.576E-01_JPRB,&
+&.303E-01_JPRB,.258E-01_JPRB,.324E-01_JPRB,.316E-01_JPRB,.420E-01_JPRB,.298E-01_JPRB,.269E-01_JPRB,&
+&.291E-01_JPRB,.336E-01_JPRB,.337E-01_JPRB,.283E-01_JPRB,.260E-01_JPRB,.260E-01_JPRB,.275E-01_JPRB,&
+&.282E-01_JPRB,.289E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 28 -18.0
+ZAER (:,28, 8) = (/&
+&.225E-01_JPRB,.219E-01_JPRB,.224E-01_JPRB,.233E-01_JPRB,.278E-01_JPRB,.231E-01_JPRB,.241E-01_JPRB,&
+&.262E-01_JPRB,.294E-01_JPRB,.363E-01_JPRB,.403E-01_JPRB,.478E-01_JPRB,.575E-01_JPRB,.610E-01_JPRB,&
+&.563E-01_JPRB,.643E-01_JPRB,.310E-01_JPRB,.307E-01_JPRB,.272E-01_JPRB,.282E-01_JPRB,.186E-01_JPRB,&
+&.186E-01_JPRB,.220E-01_JPRB,.210E-01_JPRB,.179E-01_JPRB,.177E-01_JPRB,.160E-01_JPRB,.148E-01_JPRB,&
+&.152E-01_JPRB,.152E-01_JPRB,.224E-01_JPRB,.318E-01_JPRB,.452E-01_JPRB,.287E-01_JPRB,.211E-01_JPRB,&
+&.191E-01_JPRB,.182E-01_JPRB,.199E-01_JPRB,.233E-01_JPRB,.272E-01_JPRB,.296E-01_JPRB,.364E-01_JPRB,&
+&.404E-01_JPRB,.394E-01_JPRB,.879E-01_JPRB,.566E-01_JPRB,.539E-01_JPRB,.538E-01_JPRB,.867E-01_JPRB,&
+&.832E-01_JPRB,.840E-01_JPRB,.513E-01_JPRB,.592E-01_JPRB,.111E+00_JPRB,.970E-01_JPRB,.419E-01_JPRB,&
+&.342E-01_JPRB,.285E-01_JPRB,.382E-01_JPRB,.333E-01_JPRB,.320E-01_JPRB,.305E-01_JPRB,.288E-01_JPRB,&
+&.313E-01_JPRB,.346E-01_JPRB,.379E-01_JPRB,.296E-01_JPRB,.213E-01_JPRB,.206E-01_JPRB,.214E-01_JPRB,&
+&.219E-01_JPRB,.223E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 29 -22.0
+ZAER (:,29, 8) = (/&
+&.197E-01_JPRB,.198E-01_JPRB,.206E-01_JPRB,.235E-01_JPRB,.225E-01_JPRB,.184E-01_JPRB,.199E-01_JPRB,&
+&.283E-01_JPRB,.382E-01_JPRB,.506E-01_JPRB,.500E-01_JPRB,.544E-01_JPRB,.715E-01_JPRB,.892E-01_JPRB,&
+&.808E-01_JPRB,.428E-01_JPRB,.339E-01_JPRB,.483E-01_JPRB,.416E-01_JPRB,.368E-01_JPRB,.200E-01_JPRB,&
+&.179E-01_JPRB,.192E-01_JPRB,.175E-01_JPRB,.168E-01_JPRB,.168E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,&
+&.139E-01_JPRB,.151E-01_JPRB,.217E-01_JPRB,.284E-01_JPRB,.413E-01_JPRB,.247E-01_JPRB,.227E-01_JPRB,&
+&.226E-01_JPRB,.222E-01_JPRB,.224E-01_JPRB,.269E-01_JPRB,.325E-01_JPRB,.403E-01_JPRB,.564E-01_JPRB,&
+&.649E-01_JPRB,.521E-01_JPRB,.592E-01_JPRB,.686E-01_JPRB,.680E-01_JPRB,.699E-01_JPRB,.117E+00_JPRB,&
+&.112E+00_JPRB,.650E-01_JPRB,.643E-01_JPRB,.711E-01_JPRB,.720E-01_JPRB,.657E-01_JPRB,.462E-01_JPRB,&
+&.366E-01_JPRB,.328E-01_JPRB,.275E-01_JPRB,.448E-01_JPRB,.391E-01_JPRB,.401E-01_JPRB,.435E-01_JPRB,&
+&.398E-01_JPRB,.376E-01_JPRB,.340E-01_JPRB,.304E-01_JPRB,.202E-01_JPRB,.190E-01_JPRB,.193E-01_JPRB,&
+&.196E-01_JPRB,.198E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 30 -26.0
+ZAER (:,30, 8) = (/&
+&.205E-01_JPRB,.198E-01_JPRB,.197E-01_JPRB,.192E-01_JPRB,.165E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,&
+&.158E-01_JPRB,.217E-01_JPRB,.369E-01_JPRB,.459E-01_JPRB,.554E-01_JPRB,.754E-01_JPRB,.111E+00_JPRB,&
+&.706E-01_JPRB,.524E-01_JPRB,.526E-01_JPRB,.616E-01_JPRB,.593E-01_JPRB,.513E-01_JPRB,.264E-01_JPRB,&
+&.223E-01_JPRB,.198E-01_JPRB,.182E-01_JPRB,.177E-01_JPRB,.173E-01_JPRB,.160E-01_JPRB,.153E-01_JPRB,&
+&.158E-01_JPRB,.175E-01_JPRB,.210E-01_JPRB,.249E-01_JPRB,.344E-01_JPRB,.409E-01_JPRB,.201E-01_JPRB,&
+&.220E-01_JPRB,.257E-01_JPRB,.285E-01_JPRB,.356E-01_JPRB,.436E-01_JPRB,.521E-01_JPRB,.824E-01_JPRB,&
+&.881E-01_JPRB,.704E-01_JPRB,.606E-01_JPRB,.563E-01_JPRB,.887E-01_JPRB,.155E+00_JPRB,.879E-01_JPRB,&
+&.838E-01_JPRB,.804E-01_JPRB,.751E-01_JPRB,.688E-01_JPRB,.577E-01_JPRB,.462E-01_JPRB,.354E-01_JPRB,&
+&.284E-01_JPRB,.331E-01_JPRB,.310E-01_JPRB,.288E-01_JPRB,.552E-01_JPRB,.786E-01_JPRB,.851E-01_JPRB,&
+&.599E-01_JPRB,.456E-01_JPRB,.365E-01_JPRB,.262E-01_JPRB,.215E-01_JPRB,.211E-01_JPRB,.215E-01_JPRB,&
+&.215E-01_JPRB,.211E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 31 -30.0
+ZAER (:,31, 8) = (/&
+&.252E-01_JPRB,.239E-01_JPRB,.225E-01_JPRB,.215E-01_JPRB,.197E-01_JPRB,.177E-01_JPRB,.163E-01_JPRB,&
+&.155E-01_JPRB,.168E-01_JPRB,.217E-01_JPRB,.353E-01_JPRB,.552E-01_JPRB,.787E-01_JPRB,.124E+00_JPRB,&
+&.698E-01_JPRB,.700E-01_JPRB,.105E+00_JPRB,.117E+00_JPRB,.864E-01_JPRB,.598E-01_JPRB,.595E-01_JPRB,&
+&.398E-01_JPRB,.301E-01_JPRB,.249E-01_JPRB,.222E-01_JPRB,.195E-01_JPRB,.180E-01_JPRB,.170E-01_JPRB,&
+&.168E-01_JPRB,.176E-01_JPRB,.181E-01_JPRB,.215E-01_JPRB,.307E-01_JPRB,.435E-01_JPRB,.231E-01_JPRB,&
+&.221E-01_JPRB,.262E-01_JPRB,.259E-01_JPRB,.405E-01_JPRB,.559E-01_JPRB,.651E-01_JPRB,.934E-01_JPRB,&
+&.878E-01_JPRB,.681E-01_JPRB,.733E-01_JPRB,.845E-01_JPRB,.107E+00_JPRB,.102E+00_JPRB,.929E-01_JPRB,&
+&.764E-01_JPRB,.729E-01_JPRB,.707E-01_JPRB,.476E-01_JPRB,.263E-01_JPRB,.154E-01_JPRB,.123E-01_JPRB,&
+&.167E-01_JPRB,.358E-01_JPRB,.352E-01_JPRB,.406E-01_JPRB,.505E-01_JPRB,.138E+00_JPRB,.160E+00_JPRB,&
+&.748E-01_JPRB,.541E-01_JPRB,.405E-01_JPRB,.293E-01_JPRB,.246E-01_JPRB,.243E-01_JPRB,.250E-01_JPRB,&
+&.259E-01_JPRB,.259E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 32 -34.0
+ZAER (:,32, 8) = (/&
+&.325E-01_JPRB,.308E-01_JPRB,.279E-01_JPRB,.263E-01_JPRB,.239E-01_JPRB,.230E-01_JPRB,.234E-01_JPRB,&
+&.213E-01_JPRB,.204E-01_JPRB,.187E-01_JPRB,.254E-01_JPRB,.405E-01_JPRB,.724E-01_JPRB,.613E-01_JPRB,&
+&.627E-01_JPRB,.635E-01_JPRB,.913E-01_JPRB,.153E+00_JPRB,.141E+00_JPRB,.999E-01_JPRB,.704E-01_JPRB,&
+&.841E-01_JPRB,.598E-01_JPRB,.403E-01_JPRB,.318E-01_JPRB,.251E-01_JPRB,.216E-01_JPRB,.199E-01_JPRB,&
+&.190E-01_JPRB,.194E-01_JPRB,.210E-01_JPRB,.208E-01_JPRB,.256E-01_JPRB,.438E-01_JPRB,.616E-01_JPRB,&
+&.272E-01_JPRB,.275E-01_JPRB,.298E-01_JPRB,.463E-01_JPRB,.123E+00_JPRB,.154E+00_JPRB,.189E+00_JPRB,&
+&.173E+00_JPRB,.167E+00_JPRB,.768E-01_JPRB,.851E-01_JPRB,.732E-01_JPRB,.106E+00_JPRB,.963E-01_JPRB,&
+&.786E-01_JPRB,.688E-01_JPRB,.605E-01_JPRB,.310E-01_JPRB,.195E-01_JPRB,.149E-01_JPRB,.112E-01_JPRB,&
+&.124E-01_JPRB,.287E-01_JPRB,.331E-01_JPRB,.568E-01_JPRB,.772E-01_JPRB,.176E+00_JPRB,.187E+00_JPRB,&
+&.491E-01_JPRB,.667E-01_JPRB,.482E-01_JPRB,.355E-01_JPRB,.309E-01_JPRB,.306E-01_JPRB,.318E-01_JPRB,&
+&.328E-01_JPRB,.330E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 33 -38.0
+ZAER (:,33, 8) = (/&
+&.385E-01_JPRB,.373E-01_JPRB,.360E-01_JPRB,.355E-01_JPRB,.358E-01_JPRB,.400E-01_JPRB,.384E-01_JPRB,&
+&.336E-01_JPRB,.274E-01_JPRB,.231E-01_JPRB,.244E-01_JPRB,.329E-01_JPRB,.332E-01_JPRB,.388E-01_JPRB,&
+&.397E-01_JPRB,.395E-01_JPRB,.636E-01_JPRB,.132E+00_JPRB,.139E+00_JPRB,.129E+00_JPRB,.111E+00_JPRB,&
+&.155E+00_JPRB,.993E-01_JPRB,.620E-01_JPRB,.431E-01_JPRB,.335E-01_JPRB,.277E-01_JPRB,.250E-01_JPRB,&
+&.228E-01_JPRB,.209E-01_JPRB,.215E-01_JPRB,.240E-01_JPRB,.283E-01_JPRB,.482E-01_JPRB,.737E-01_JPRB,&
+&.387E-01_JPRB,.579E-01_JPRB,.844E-01_JPRB,.104E+00_JPRB,.128E+00_JPRB,.214E+00_JPRB,.226E+00_JPRB,&
+&.981E-01_JPRB,.967E-01_JPRB,.734E-01_JPRB,.632E-01_JPRB,.904E-01_JPRB,.880E-01_JPRB,.957E-01_JPRB,&
+&.156E+00_JPRB,.807E-01_JPRB,.505E-01_JPRB,.511E-01_JPRB,.376E-01_JPRB,.240E-01_JPRB,.163E-01_JPRB,&
+&.137E-01_JPRB,.214E-01_JPRB,.294E-01_JPRB,.453E-01_JPRB,.150E+00_JPRB,.170E+00_JPRB,.105E+00_JPRB,&
+&.654E-01_JPRB,.338E-01_JPRB,.482E-01_JPRB,.357E-01_JPRB,.333E-01_JPRB,.388E-01_JPRB,.419E-01_JPRB,&
+&.433E-01_JPRB,.406E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 34 -42.0
+ZAER (:,34, 8) = (/&
+&.443E-01_JPRB,.436E-01_JPRB,.429E-01_JPRB,.463E-01_JPRB,.604E-01_JPRB,.614E-01_JPRB,.524E-01_JPRB,&
+&.440E-01_JPRB,.345E-01_JPRB,.306E-01_JPRB,.289E-01_JPRB,.326E-01_JPRB,.212E-01_JPRB,.279E-01_JPRB,&
+&.294E-01_JPRB,.315E-01_JPRB,.476E-01_JPRB,.918E-01_JPRB,.108E+00_JPRB,.128E+00_JPRB,.131E+00_JPRB,&
+&.125E+00_JPRB,.185E+00_JPRB,.124E+00_JPRB,.721E-01_JPRB,.487E-01_JPRB,.378E-01_JPRB,.283E-01_JPRB,&
+&.243E-01_JPRB,.219E-01_JPRB,.219E-01_JPRB,.244E-01_JPRB,.244E-01_JPRB,.334E-01_JPRB,.560E-01_JPRB,&
+&.377E-01_JPRB,.456E-01_JPRB,.105E+00_JPRB,.123E+00_JPRB,.175E+00_JPRB,.158E+00_JPRB,.186E+00_JPRB,&
+&.238E+00_JPRB,.212E+00_JPRB,.896E-01_JPRB,.753E-01_JPRB,.147E+00_JPRB,.879E-01_JPRB,.104E+00_JPRB,&
+&.146E+00_JPRB,.158E+00_JPRB,.827E-01_JPRB,.527E-01_JPRB,.488E-01_JPRB,.323E-01_JPRB,.277E-01_JPRB,&
+&.264E-01_JPRB,.232E-01_JPRB,.211E-01_JPRB,.243E-01_JPRB,.508E-01_JPRB,.668E-01_JPRB,.574E-01_JPRB,&
+&.763E-01_JPRB,.630E-01_JPRB,.535E-01_JPRB,.370E-01_JPRB,.334E-01_JPRB,.349E-01_JPRB,.438E-01_JPRB,&
+&.564E-01_JPRB,.532E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 35 -46.0
+ZAER (:,35, 8) = (/&
+&.555E-01_JPRB,.506E-01_JPRB,.521E-01_JPRB,.591E-01_JPRB,.630E-01_JPRB,.587E-01_JPRB,.589E-01_JPRB,&
+&.556E-01_JPRB,.497E-01_JPRB,.411E-01_JPRB,.342E-01_JPRB,.399E-01_JPRB,.268E-01_JPRB,.265E-01_JPRB,&
+&.307E-01_JPRB,.358E-01_JPRB,.466E-01_JPRB,.710E-01_JPRB,.842E-01_JPRB,.902E-01_JPRB,.114E+00_JPRB,&
+&.107E+00_JPRB,.858E-01_JPRB,.700E-01_JPRB,.960E-01_JPRB,.779E-01_JPRB,.651E-01_JPRB,.501E-01_JPRB,&
+&.313E-01_JPRB,.272E-01_JPRB,.288E-01_JPRB,.279E-01_JPRB,.278E-01_JPRB,.322E-01_JPRB,.421E-01_JPRB,&
+&.692E-01_JPRB,.521E-01_JPRB,.579E-01_JPRB,.667E-01_JPRB,.870E-01_JPRB,.116E+00_JPRB,.144E+00_JPRB,&
+&.152E+00_JPRB,.140E+00_JPRB,.106E+00_JPRB,.832E-01_JPRB,.152E+00_JPRB,.979E-01_JPRB,.110E+00_JPRB,&
+&.142E+00_JPRB,.173E+00_JPRB,.112E+00_JPRB,.906E-01_JPRB,.688E-01_JPRB,.479E-01_JPRB,.402E-01_JPRB,&
+&.351E-01_JPRB,.293E-01_JPRB,.250E-01_JPRB,.278E-01_JPRB,.398E-01_JPRB,.508E-01_JPRB,.446E-01_JPRB,&
+&.387E-01_JPRB,.603E-01_JPRB,.620E-01_JPRB,.386E-01_JPRB,.284E-01_JPRB,.318E-01_JPRB,.479E-01_JPRB,&
+&.632E-01_JPRB,.699E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 36 -50.0
+ZAER (:,36, 8) = (/&
+&.555E-01_JPRB,.515E-01_JPRB,.589E-01_JPRB,.609E-01_JPRB,.577E-01_JPRB,.526E-01_JPRB,.453E-01_JPRB,&
+&.405E-01_JPRB,.423E-01_JPRB,.445E-01_JPRB,.471E-01_JPRB,.270E-01_JPRB,.290E-01_JPRB,.301E-01_JPRB,&
+&.328E-01_JPRB,.358E-01_JPRB,.421E-01_JPRB,.548E-01_JPRB,.590E-01_JPRB,.671E-01_JPRB,.655E-01_JPRB,&
+&.601E-01_JPRB,.500E-01_JPRB,.438E-01_JPRB,.716E-01_JPRB,.659E-01_JPRB,.638E-01_JPRB,.557E-01_JPRB,&
+&.418E-01_JPRB,.335E-01_JPRB,.327E-01_JPRB,.331E-01_JPRB,.344E-01_JPRB,.377E-01_JPRB,.461E-01_JPRB,&
+&.792E-01_JPRB,.576E-01_JPRB,.612E-01_JPRB,.765E-01_JPRB,.100E+00_JPRB,.111E+00_JPRB,.129E+00_JPRB,&
+&.144E+00_JPRB,.124E+00_JPRB,.930E-01_JPRB,.898E-01_JPRB,.817E-01_JPRB,.899E-01_JPRB,.108E+00_JPRB,&
+&.129E+00_JPRB,.153E+00_JPRB,.112E+00_JPRB,.104E+00_JPRB,.884E-01_JPRB,.719E-01_JPRB,.590E-01_JPRB,&
+&.453E-01_JPRB,.416E-01_JPRB,.319E-01_JPRB,.288E-01_JPRB,.293E-01_JPRB,.303E-01_JPRB,.281E-01_JPRB,&
+&.274E-01_JPRB,.270E-01_JPRB,.476E-01_JPRB,.443E-01_JPRB,.428E-01_JPRB,.363E-01_JPRB,.476E-01_JPRB,&
+&.651E-01_JPRB,.702E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 37 -54.0
+ZAER (:,37, 8) = (/&
+&.606E-01_JPRB,.589E-01_JPRB,.560E-01_JPRB,.564E-01_JPRB,.567E-01_JPRB,.541E-01_JPRB,.479E-01_JPRB,&
+&.432E-01_JPRB,.417E-01_JPRB,.341E-01_JPRB,.229E-01_JPRB,.237E-01_JPRB,.253E-01_JPRB,.288E-01_JPRB,&
+&.323E-01_JPRB,.316E-01_JPRB,.353E-01_JPRB,.417E-01_JPRB,.412E-01_JPRB,.398E-01_JPRB,.603E-01_JPRB,&
+&.306E-01_JPRB,.258E-01_JPRB,.257E-01_JPRB,.297E-01_JPRB,.537E-01_JPRB,.516E-01_JPRB,.484E-01_JPRB,&
+&.392E-01_JPRB,.368E-01_JPRB,.347E-01_JPRB,.318E-01_JPRB,.318E-01_JPRB,.361E-01_JPRB,.456E-01_JPRB,&
+&.399E-01_JPRB,.938E-01_JPRB,.109E+00_JPRB,.717E-01_JPRB,.987E-01_JPRB,.128E+00_JPRB,.124E+00_JPRB,&
+&.122E+00_JPRB,.117E+00_JPRB,.101E+00_JPRB,.887E-01_JPRB,.867E-01_JPRB,.956E-01_JPRB,.905E-01_JPRB,&
+&.924E-01_JPRB,.878E-01_JPRB,.847E-01_JPRB,.762E-01_JPRB,.818E-01_JPRB,.840E-01_JPRB,.648E-01_JPRB,&
+&.495E-01_JPRB,.434E-01_JPRB,.323E-01_JPRB,.272E-01_JPRB,.264E-01_JPRB,.233E-01_JPRB,.202E-01_JPRB,&
+&.192E-01_JPRB,.357E-01_JPRB,.382E-01_JPRB,.419E-01_JPRB,.461E-01_JPRB,.408E-01_JPRB,.728E-01_JPRB,&
+&.755E-01_JPRB,.711E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 38 -58.0
+ZAER (:,38, 8) = (/&
+&.631E-01_JPRB,.553E-01_JPRB,.486E-01_JPRB,.454E-01_JPRB,.479E-01_JPRB,.614E-01_JPRB,.517E-01_JPRB,&
+&.428E-01_JPRB,.364E-01_JPRB,.187E-01_JPRB,.152E-01_JPRB,.159E-01_JPRB,.193E-01_JPRB,.211E-01_JPRB,&
+&.228E-01_JPRB,.235E-01_JPRB,.239E-01_JPRB,.248E-01_JPRB,.414E-01_JPRB,.359E-01_JPRB,.285E-01_JPRB,&
+&.165E-01_JPRB,.176E-01_JPRB,.186E-01_JPRB,.369E-01_JPRB,.402E-01_JPRB,.354E-01_JPRB,.311E-01_JPRB,&
+&.274E-01_JPRB,.254E-01_JPRB,.237E-01_JPRB,.235E-01_JPRB,.234E-01_JPRB,.276E-01_JPRB,.359E-01_JPRB,&
+&.531E-01_JPRB,.735E-01_JPRB,.840E-01_JPRB,.542E-01_JPRB,.676E-01_JPRB,.151E+00_JPRB,.106E+00_JPRB,&
+&.107E+00_JPRB,.112E+00_JPRB,.107E+00_JPRB,.103E+00_JPRB,.995E-01_JPRB,.964E-01_JPRB,.861E-01_JPRB,&
+&.754E-01_JPRB,.670E-01_JPRB,.626E-01_JPRB,.619E-01_JPRB,.619E-01_JPRB,.548E-01_JPRB,.464E-01_JPRB,&
+&.414E-01_JPRB,.366E-01_JPRB,.314E-01_JPRB,.276E-01_JPRB,.243E-01_JPRB,.216E-01_JPRB,.196E-01_JPRB,&
+&.170E-01_JPRB,.168E-01_JPRB,.359E-01_JPRB,.438E-01_JPRB,.431E-01_JPRB,.269E-01_JPRB,.727E-01_JPRB,&
+&.727E-01_JPRB,.714E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 39 -62.0
+ZAER (:,39, 8) = (/&
+&.410E-01_JPRB,.387E-01_JPRB,.372E-01_JPRB,.350E-01_JPRB,.215E-01_JPRB,.235E-01_JPRB,.246E-01_JPRB,&
+&.216E-01_JPRB,.175E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.157E-01_JPRB,.165E-01_JPRB,&
+&.167E-01_JPRB,.168E-01_JPRB,.159E-01_JPRB,.152E-01_JPRB,.240E-01_JPRB,.231E-01_JPRB,.223E-01_JPRB,&
+&.125E-01_JPRB,.228E-01_JPRB,.246E-01_JPRB,.268E-01_JPRB,.266E-01_JPRB,.202E-01_JPRB,.989E-02_JPRB,&
+&.168E-01_JPRB,.164E-01_JPRB,.160E-01_JPRB,.183E-01_JPRB,.195E-01_JPRB,.211E-01_JPRB,.258E-01_JPRB,&
+&.343E-01_JPRB,.478E-01_JPRB,.546E-01_JPRB,.373E-01_JPRB,.439E-01_JPRB,.937E-01_JPRB,.662E-01_JPRB,&
+&.802E-01_JPRB,.926E-01_JPRB,.882E-01_JPRB,.915E-01_JPRB,.960E-01_JPRB,.973E-01_JPRB,.875E-01_JPRB,&
+&.700E-01_JPRB,.550E-01_JPRB,.482E-01_JPRB,.435E-01_JPRB,.399E-01_JPRB,.359E-01_JPRB,.310E-01_JPRB,&
+&.284E-01_JPRB,.264E-01_JPRB,.262E-01_JPRB,.251E-01_JPRB,.230E-01_JPRB,.214E-01_JPRB,.184E-01_JPRB,&
+&.157E-01_JPRB,.134E-01_JPRB,.141E-01_JPRB,.165E-01_JPRB,.184E-01_JPRB,.193E-01_JPRB,.221E-01_JPRB,&
+&.258E-01_JPRB,.427E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 40 -66.0
+ZAER (:,40, 8) = (/&
+&.195E-01_JPRB,.190E-01_JPRB,.304E-01_JPRB,.303E-01_JPRB,.187E-01_JPRB,.187E-01_JPRB,.188E-01_JPRB,&
+&.178E-01_JPRB,.166E-01_JPRB,.146E-01_JPRB,.134E-01_JPRB,.120E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,&
+&.119E-01_JPRB,.113E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.935E-02_JPRB,.106E-01_JPRB,.194E-01_JPRB,&
+&.128E-01_JPRB,.134E-01_JPRB,.136E-01_JPRB,.218E-01_JPRB,.182E-01_JPRB,.888E-02_JPRB,.817E-02_JPRB,&
+&.756E-02_JPRB,.120E-01_JPRB,.159E-01_JPRB,.167E-01_JPRB,.141E-01_JPRB,.149E-01_JPRB,.171E-01_JPRB,&
+&.222E-01_JPRB,.345E-01_JPRB,.448E-01_JPRB,.529E-01_JPRB,.321E-01_JPRB,.355E-01_JPRB,.430E-01_JPRB,&
+&.511E-01_JPRB,.642E-01_JPRB,.663E-01_JPRB,.678E-01_JPRB,.697E-01_JPRB,.717E-01_JPRB,.650E-01_JPRB,&
+&.503E-01_JPRB,.401E-01_JPRB,.363E-01_JPRB,.330E-01_JPRB,.328E-01_JPRB,.325E-01_JPRB,.316E-01_JPRB,&
+&.305E-01_JPRB,.283E-01_JPRB,.253E-01_JPRB,.225E-01_JPRB,.195E-01_JPRB,.167E-01_JPRB,.153E-01_JPRB,&
+&.138E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.134E-01_JPRB,.143E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,&
+&.166E-01_JPRB,.185E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 41 -70.0
+ZAER (:,41, 8) = (/&
+&.275E-01_JPRB,.298E-01_JPRB,.305E-01_JPRB,.283E-01_JPRB,.147E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,&
+&.108E-01_JPRB,.173E-01_JPRB,.172E-01_JPRB,.100E-01_JPRB,.162E-01_JPRB,.162E-01_JPRB,.939E-02_JPRB,&
+&.849E-02_JPRB,.851E-02_JPRB,.148E-01_JPRB,.828E-02_JPRB,.763E-02_JPRB,.774E-02_JPRB,.857E-02_JPRB,&
+&.952E-02_JPRB,.108E-01_JPRB,.190E-01_JPRB,.179E-01_JPRB,.155E-01_JPRB,.828E-02_JPRB,.781E-02_JPRB,&
+&.627E-02_JPRB,.568E-02_JPRB,.661E-02_JPRB,.767E-02_JPRB,.137E-01_JPRB,.138E-01_JPRB,.147E-01_JPRB,&
+&.175E-01_JPRB,.237E-01_JPRB,.308E-01_JPRB,.335E-01_JPRB,.359E-01_JPRB,.387E-01_JPRB,.290E-01_JPRB,&
+&.381E-01_JPRB,.744E-01_JPRB,.756E-01_JPRB,.767E-01_JPRB,.726E-01_JPRB,.677E-01_JPRB,.607E-01_JPRB,&
+&.555E-01_JPRB,.312E-01_JPRB,.296E-01_JPRB,.279E-01_JPRB,.290E-01_JPRB,.296E-01_JPRB,.281E-01_JPRB,&
+&.304E-01_JPRB,.263E-01_JPRB,.205E-01_JPRB,.172E-01_JPRB,.160E-01_JPRB,.139E-01_JPRB,.123E-01_JPRB,&
+&.113E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.113E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,&
+&.199E-01_JPRB,.137E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 42 -74.0
+ZAER (:,42, 8) = (/&
+&.191E-01_JPRB,.213E-01_JPRB,.232E-01_JPRB,.238E-01_JPRB,.225E-01_JPRB,.212E-01_JPRB,.190E-01_JPRB,&
+&.163E-01_JPRB,.161E-01_JPRB,.156E-01_JPRB,.150E-01_JPRB,.157E-01_JPRB,.956E-02_JPRB,.917E-02_JPRB,&
+&.154E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,.723E-02_JPRB,.128E-01_JPRB,&
+&.155E-01_JPRB,.152E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.866E-02_JPRB,.783E-02_JPRB,.684E-02_JPRB,&
+&.663E-02_JPRB,.585E-02_JPRB,.547E-02_JPRB,.656E-02_JPRB,.145E-01_JPRB,.161E-01_JPRB,.160E-01_JPRB,&
+&.172E-01_JPRB,.200E-01_JPRB,.219E-01_JPRB,.236E-01_JPRB,.246E-01_JPRB,.276E-01_JPRB,.314E-01_JPRB,&
+&.349E-01_JPRB,.389E-01_JPRB,.391E-01_JPRB,.418E-01_JPRB,.425E-01_JPRB,.426E-01_JPRB,.399E-01_JPRB,&
+&.370E-01_JPRB,.360E-01_JPRB,.364E-01_JPRB,.355E-01_JPRB,.219E-01_JPRB,.217E-01_JPRB,.210E-01_JPRB,&
+&.184E-01_JPRB,.164E-01_JPRB,.134E-01_JPRB,.124E-01_JPRB,.214E-01_JPRB,.180E-01_JPRB,.159E-01_JPRB,&
+&.153E-01_JPRB,.156E-01_JPRB,.160E-01_JPRB,.158E-01_JPRB,.162E-01_JPRB,.170E-01_JPRB,.176E-01_JPRB,&
+&.180E-01_JPRB,.178E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 43 -78.0
+ZAER (:,43, 8) = (/&
+&.180E-01_JPRB,.182E-01_JPRB,.191E-01_JPRB,.206E-01_JPRB,.204E-01_JPRB,.216E-01_JPRB,.201E-01_JPRB,&
+&.177E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.165E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,.172E-01_JPRB,&
+&.168E-01_JPRB,.160E-01_JPRB,.150E-01_JPRB,.153E-01_JPRB,.878E-02_JPRB,.848E-02_JPRB,.890E-02_JPRB,&
+&.153E-01_JPRB,.147E-01_JPRB,.881E-02_JPRB,.759E-02_JPRB,.756E-02_JPRB,.807E-02_JPRB,.738E-02_JPRB,&
+&.739E-02_JPRB,.763E-02_JPRB,.802E-02_JPRB,.808E-02_JPRB,.136E-01_JPRB,.172E-01_JPRB,.169E-01_JPRB,&
+&.171E-01_JPRB,.168E-01_JPRB,.163E-01_JPRB,.172E-01_JPRB,.112E-01_JPRB,.193E-01_JPRB,.211E-01_JPRB,&
+&.222E-01_JPRB,.222E-01_JPRB,.240E-01_JPRB,.273E-01_JPRB,.285E-01_JPRB,.285E-01_JPRB,.269E-01_JPRB,&
+&.276E-01_JPRB,.291E-01_JPRB,.287E-01_JPRB,.270E-01_JPRB,.277E-01_JPRB,.256E-01_JPRB,.229E-01_JPRB,&
+&.223E-01_JPRB,.131E-01_JPRB,.199E-01_JPRB,.190E-01_JPRB,.169E-01_JPRB,.135E-01_JPRB,.120E-01_JPRB,&
+&.116E-01_JPRB,.113E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,.143E-01_JPRB,.154E-01_JPRB,&
+&.168E-01_JPRB,.178E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 44 -82.0
+ZAER (:,44, 8) = (/&
+&.172E-01_JPRB,.179E-01_JPRB,.186E-01_JPRB,.192E-01_JPRB,.199E-01_JPRB,.206E-01_JPRB,.201E-01_JPRB,&
+&.193E-01_JPRB,.188E-01_JPRB,.185E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.188E-01_JPRB,.183E-01_JPRB,&
+&.179E-01_JPRB,.175E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.166E-01_JPRB,.162E-01_JPRB,.954E-02_JPRB,&
+&.919E-02_JPRB,.883E-02_JPRB,.844E-02_JPRB,.828E-02_JPRB,.845E-02_JPRB,.861E-02_JPRB,.869E-02_JPRB,&
+&.871E-02_JPRB,.866E-02_JPRB,.885E-02_JPRB,.831E-02_JPRB,.794E-02_JPRB,.128E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.144E-01_JPRB,.151E-01_JPRB,.158E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.162E-01_JPRB,&
+&.163E-01_JPRB,.165E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,.180E-01_JPRB,.188E-01_JPRB,.199E-01_JPRB,&
+&.201E-01_JPRB,.200E-01_JPRB,.197E-01_JPRB,.192E-01_JPRB,.184E-01_JPRB,.179E-01_JPRB,.174E-01_JPRB,&
+&.168E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.145E-01_JPRB,.121E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.116E-01_JPRB,.122E-01_JPRB,.123E-01_JPRB,.129E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,&
+&.153E-01_JPRB,.164E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 45 -86.0
+ZAER (:,45, 8) = (/&
+&.161E-01_JPRB,.164E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.171E-01_JPRB,.173E-01_JPRB,.175E-01_JPRB,&
+&.174E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,.175E-01_JPRB,.180E-01_JPRB,.181E-01_JPRB,&
+&.182E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,&
+&.182E-01_JPRB,.180E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.170E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,&
+&.157E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,.151E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,&
+&.156E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,&
+&.150E-01_JPRB,.147E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.138E-01_JPRB,.134E-01_JPRB,.137E-01_JPRB,&
+&.133E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,&
+&.119E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,&
+&.130E-01_JPRB,.134E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.146E-01_JPRB,.150E-01_JPRB,.154E-01_JPRB,&
+&.158E-01_JPRB,.162E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  8 --- lat: 46 -90.0
+ZAER (:,46, 8) = (/&
+&.159E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,.167E-01_JPRB,&
+&.167E-01_JPRB,.167E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=8   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_08
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_09.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_09.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_09.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_09
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          September
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,9:9)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month:  9 --- lat:  1  90.0
+ZAER (:, 1, 9) = (/&
+&.181E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,.177E-02_JPRB,&
+&.177E-02_JPRB,.177E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  2  86.0
+ZAER (:, 2, 9) = (/&
+&.254E-02_JPRB,.258E-02_JPRB,.260E-02_JPRB,.263E-02_JPRB,.262E-02_JPRB,.263E-02_JPRB,.259E-02_JPRB,&
+&.258E-02_JPRB,.255E-02_JPRB,.251E-02_JPRB,.249E-02_JPRB,.241E-02_JPRB,.221E-02_JPRB,.219E-02_JPRB,&
+&.214E-02_JPRB,.208E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.198E-02_JPRB,.195E-02_JPRB,.189E-02_JPRB,&
+&.186E-02_JPRB,.185E-02_JPRB,.184E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,.179E-02_JPRB,.180E-02_JPRB,&
+&.180E-02_JPRB,.182E-02_JPRB,.184E-02_JPRB,.186E-02_JPRB,.189E-02_JPRB,.194E-02_JPRB,.199E-02_JPRB,&
+&.205E-02_JPRB,.189E-02_JPRB,.190E-02_JPRB,.192E-02_JPRB,.194E-02_JPRB,.197E-02_JPRB,.199E-02_JPRB,&
+&.202E-02_JPRB,.204E-02_JPRB,.209E-02_JPRB,.211E-02_JPRB,.215E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,&
+&.209E-02_JPRB,.208E-02_JPRB,.203E-02_JPRB,.200E-02_JPRB,.197E-02_JPRB,.195E-02_JPRB,.194E-02_JPRB,&
+&.192E-02_JPRB,.190E-02_JPRB,.188E-02_JPRB,.187E-02_JPRB,.195E-02_JPRB,.192E-02_JPRB,.192E-02_JPRB,&
+&.192E-02_JPRB,.191E-02_JPRB,.192E-02_JPRB,.193E-02_JPRB,.193E-02_JPRB,.195E-02_JPRB,.199E-02_JPRB,&
+&.203E-02_JPRB,.208E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  3  82.0
+ZAER (:, 3, 9) = (/&
+&.320E-02_JPRB,.333E-02_JPRB,.349E-02_JPRB,.365E-02_JPRB,.381E-02_JPRB,.402E-02_JPRB,.395E-02_JPRB,&
+&.399E-02_JPRB,.397E-02_JPRB,.390E-02_JPRB,.383E-02_JPRB,.371E-02_JPRB,.315E-02_JPRB,.301E-02_JPRB,&
+&.294E-02_JPRB,.291E-02_JPRB,.293E-02_JPRB,.294E-02_JPRB,.277E-02_JPRB,.257E-02_JPRB,.239E-02_JPRB,&
+&.228E-02_JPRB,.220E-02_JPRB,.220E-02_JPRB,.257E-02_JPRB,.244E-02_JPRB,.238E-02_JPRB,.231E-02_JPRB,&
+&.224E-02_JPRB,.220E-02_JPRB,.192E-02_JPRB,.197E-02_JPRB,.206E-02_JPRB,.215E-02_JPRB,.227E-02_JPRB,&
+&.240E-02_JPRB,.200E-02_JPRB,.205E-02_JPRB,.211E-02_JPRB,.216E-02_JPRB,.222E-02_JPRB,.228E-02_JPRB,&
+&.208E-02_JPRB,.204E-02_JPRB,.202E-02_JPRB,.203E-02_JPRB,.205E-02_JPRB,.208E-02_JPRB,.211E-02_JPRB,&
+&.213E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.213E-02_JPRB,.211E-02_JPRB,.219E-02_JPRB,.213E-02_JPRB,&
+&.207E-02_JPRB,.205E-02_JPRB,.202E-02_JPRB,.202E-02_JPRB,.225E-02_JPRB,.227E-02_JPRB,.226E-02_JPRB,&
+&.222E-02_JPRB,.219E-02_JPRB,.214E-02_JPRB,.245E-02_JPRB,.228E-02_JPRB,.226E-02_JPRB,.232E-02_JPRB,&
+&.245E-02_JPRB,.267E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  4  78.0
+ZAER (:, 4, 9) = (/&
+&.400E-02_JPRB,.416E-02_JPRB,.442E-02_JPRB,.452E-02_JPRB,.450E-02_JPRB,.474E-02_JPRB,.461E-02_JPRB,&
+&.444E-02_JPRB,.496E-02_JPRB,.433E-02_JPRB,.402E-02_JPRB,.400E-02_JPRB,.374E-02_JPRB,.352E-02_JPRB,&
+&.356E-02_JPRB,.364E-02_JPRB,.345E-02_JPRB,.330E-02_JPRB,.303E-02_JPRB,.279E-02_JPRB,.272E-02_JPRB,&
+&.278E-02_JPRB,.261E-02_JPRB,.243E-02_JPRB,.270E-02_JPRB,.258E-02_JPRB,.259E-02_JPRB,.260E-02_JPRB,&
+&.246E-02_JPRB,.252E-02_JPRB,.212E-02_JPRB,.203E-02_JPRB,.227E-02_JPRB,.195E-02_JPRB,.202E-02_JPRB,&
+&.224E-02_JPRB,.206E-02_JPRB,.225E-02_JPRB,.252E-02_JPRB,.243E-02_JPRB,.240E-02_JPRB,.237E-02_JPRB,&
+&.232E-02_JPRB,.222E-02_JPRB,.216E-02_JPRB,.218E-02_JPRB,.207E-02_JPRB,.207E-02_JPRB,.218E-02_JPRB,&
+&.217E-02_JPRB,.222E-02_JPRB,.213E-02_JPRB,.221E-02_JPRB,.228E-02_JPRB,.224E-02_JPRB,.223E-02_JPRB,&
+&.220E-02_JPRB,.227E-02_JPRB,.225E-02_JPRB,.232E-02_JPRB,.248E-02_JPRB,.251E-02_JPRB,.245E-02_JPRB,&
+&.236E-02_JPRB,.218E-02_JPRB,.219E-02_JPRB,.236E-02_JPRB,.213E-02_JPRB,.202E-02_JPRB,.255E-02_JPRB,&
+&.290E-02_JPRB,.362E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  5  74.0
+ZAER (:, 5, 9) = (/&
+&.402E-02_JPRB,.400E-02_JPRB,.427E-02_JPRB,.443E-02_JPRB,.432E-02_JPRB,.422E-02_JPRB,.415E-02_JPRB,&
+&.419E-02_JPRB,.453E-02_JPRB,.468E-02_JPRB,.445E-02_JPRB,.423E-02_JPRB,.407E-02_JPRB,.406E-02_JPRB,&
+&.422E-02_JPRB,.442E-02_JPRB,.478E-02_JPRB,.469E-02_JPRB,.417E-02_JPRB,.373E-02_JPRB,.329E-02_JPRB,&
+&.312E-02_JPRB,.266E-02_JPRB,.230E-02_JPRB,.234E-02_JPRB,.259E-02_JPRB,.281E-02_JPRB,.285E-02_JPRB,&
+&.271E-02_JPRB,.301E-02_JPRB,.288E-02_JPRB,.270E-02_JPRB,.238E-02_JPRB,.230E-02_JPRB,.223E-02_JPRB,&
+&.226E-02_JPRB,.226E-02_JPRB,.227E-02_JPRB,.229E-02_JPRB,.240E-02_JPRB,.247E-02_JPRB,.246E-02_JPRB,&
+&.247E-02_JPRB,.249E-02_JPRB,.240E-02_JPRB,.229E-02_JPRB,.230E-02_JPRB,.237E-02_JPRB,.225E-02_JPRB,&
+&.239E-02_JPRB,.243E-02_JPRB,.228E-02_JPRB,.219E-02_JPRB,.217E-02_JPRB,.225E-02_JPRB,.233E-02_JPRB,&
+&.245E-02_JPRB,.254E-02_JPRB,.260E-02_JPRB,.250E-02_JPRB,.248E-02_JPRB,.244E-02_JPRB,.251E-02_JPRB,&
+&.242E-02_JPRB,.237E-02_JPRB,.235E-02_JPRB,.240E-02_JPRB,.228E-02_JPRB,.234E-02_JPRB,.260E-02_JPRB,&
+&.315E-02_JPRB,.384E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  6  70.0
+ZAER (:, 6, 9) = (/&
+&.425E-02_JPRB,.460E-02_JPRB,.490E-02_JPRB,.483E-02_JPRB,.496E-02_JPRB,.479E-02_JPRB,.459E-02_JPRB,&
+&.440E-02_JPRB,.437E-02_JPRB,.444E-02_JPRB,.455E-02_JPRB,.455E-02_JPRB,.456E-02_JPRB,.459E-02_JPRB,&
+&.447E-02_JPRB,.442E-02_JPRB,.468E-02_JPRB,.516E-02_JPRB,.481E-02_JPRB,.401E-02_JPRB,.375E-02_JPRB,&
+&.355E-02_JPRB,.310E-02_JPRB,.261E-02_JPRB,.263E-02_JPRB,.310E-02_JPRB,.323E-02_JPRB,.321E-02_JPRB,&
+&.324E-02_JPRB,.340E-02_JPRB,.324E-02_JPRB,.319E-02_JPRB,.282E-02_JPRB,.265E-02_JPRB,.267E-02_JPRB,&
+&.284E-02_JPRB,.326E-02_JPRB,.360E-02_JPRB,.395E-02_JPRB,.421E-02_JPRB,.425E-02_JPRB,.402E-02_JPRB,&
+&.371E-02_JPRB,.357E-02_JPRB,.323E-02_JPRB,.270E-02_JPRB,.257E-02_JPRB,.245E-02_JPRB,.246E-02_JPRB,&
+&.243E-02_JPRB,.255E-02_JPRB,.267E-02_JPRB,.251E-02_JPRB,.240E-02_JPRB,.240E-02_JPRB,.248E-02_JPRB,&
+&.255E-02_JPRB,.269E-02_JPRB,.271E-02_JPRB,.264E-02_JPRB,.264E-02_JPRB,.263E-02_JPRB,.258E-02_JPRB,&
+&.248E-02_JPRB,.255E-02_JPRB,.268E-02_JPRB,.280E-02_JPRB,.284E-02_JPRB,.295E-02_JPRB,.317E-02_JPRB,&
+&.374E-02_JPRB,.399E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  7  66.0
+ZAER (:, 7, 9) = (/&
+&.441E-02_JPRB,.510E-02_JPRB,.554E-02_JPRB,.525E-02_JPRB,.495E-02_JPRB,.509E-02_JPRB,.523E-02_JPRB,&
+&.473E-02_JPRB,.453E-02_JPRB,.472E-02_JPRB,.483E-02_JPRB,.484E-02_JPRB,.462E-02_JPRB,.453E-02_JPRB,&
+&.470E-02_JPRB,.432E-02_JPRB,.401E-02_JPRB,.394E-02_JPRB,.411E-02_JPRB,.415E-02_JPRB,.379E-02_JPRB,&
+&.335E-02_JPRB,.312E-02_JPRB,.278E-02_JPRB,.266E-02_JPRB,.281E-02_JPRB,.291E-02_JPRB,.295E-02_JPRB,&
+&.302E-02_JPRB,.328E-02_JPRB,.348E-02_JPRB,.330E-02_JPRB,.312E-02_JPRB,.379E-02_JPRB,.417E-02_JPRB,&
+&.481E-02_JPRB,.568E-02_JPRB,.749E-02_JPRB,.967E-02_JPRB,.883E-02_JPRB,.716E-02_JPRB,.554E-02_JPRB,&
+&.465E-02_JPRB,.432E-02_JPRB,.427E-02_JPRB,.440E-02_JPRB,.435E-02_JPRB,.391E-02_JPRB,.356E-02_JPRB,&
+&.318E-02_JPRB,.326E-02_JPRB,.323E-02_JPRB,.309E-02_JPRB,.312E-02_JPRB,.335E-02_JPRB,.333E-02_JPRB,&
+&.323E-02_JPRB,.314E-02_JPRB,.341E-02_JPRB,.365E-02_JPRB,.358E-02_JPRB,.346E-02_JPRB,.355E-02_JPRB,&
+&.357E-02_JPRB,.380E-02_JPRB,.404E-02_JPRB,.433E-02_JPRB,.454E-02_JPRB,.465E-02_JPRB,.465E-02_JPRB,&
+&.459E-02_JPRB,.441E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  8  62.0
+ZAER (:, 8, 9) = (/&
+&.416E-02_JPRB,.397E-02_JPRB,.397E-02_JPRB,.407E-02_JPRB,.434E-02_JPRB,.468E-02_JPRB,.444E-02_JPRB,&
+&.420E-02_JPRB,.412E-02_JPRB,.408E-02_JPRB,.421E-02_JPRB,.426E-02_JPRB,.417E-02_JPRB,.381E-02_JPRB,&
+&.365E-02_JPRB,.368E-02_JPRB,.363E-02_JPRB,.369E-02_JPRB,.353E-02_JPRB,.343E-02_JPRB,.341E-02_JPRB,&
+&.320E-02_JPRB,.298E-02_JPRB,.257E-02_JPRB,.265E-02_JPRB,.281E-02_JPRB,.325E-02_JPRB,.373E-02_JPRB,&
+&.393E-02_JPRB,.387E-02_JPRB,.360E-02_JPRB,.343E-02_JPRB,.334E-02_JPRB,.445E-02_JPRB,.484E-02_JPRB,&
+&.520E-02_JPRB,.593E-02_JPRB,.723E-02_JPRB,.927E-02_JPRB,.813E-02_JPRB,.666E-02_JPRB,.583E-02_JPRB,&
+&.579E-02_JPRB,.587E-02_JPRB,.646E-02_JPRB,.743E-02_JPRB,.755E-02_JPRB,.691E-02_JPRB,.566E-02_JPRB,&
+&.511E-02_JPRB,.436E-02_JPRB,.448E-02_JPRB,.445E-02_JPRB,.436E-02_JPRB,.410E-02_JPRB,.414E-02_JPRB,&
+&.450E-02_JPRB,.415E-02_JPRB,.430E-02_JPRB,.459E-02_JPRB,.502E-02_JPRB,.483E-02_JPRB,.474E-02_JPRB,&
+&.525E-02_JPRB,.559E-02_JPRB,.582E-02_JPRB,.574E-02_JPRB,.557E-02_JPRB,.562E-02_JPRB,.511E-02_JPRB,&
+&.469E-02_JPRB,.433E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat:  9  58.0
+ZAER (:, 9, 9) = (/&
+&.397E-02_JPRB,.395E-02_JPRB,.384E-02_JPRB,.388E-02_JPRB,.385E-02_JPRB,.385E-02_JPRB,.388E-02_JPRB,&
+&.402E-02_JPRB,.369E-02_JPRB,.362E-02_JPRB,.369E-02_JPRB,.361E-02_JPRB,.355E-02_JPRB,.357E-02_JPRB,&
+&.351E-02_JPRB,.357E-02_JPRB,.363E-02_JPRB,.363E-02_JPRB,.348E-02_JPRB,.344E-02_JPRB,.315E-02_JPRB,&
+&.315E-02_JPRB,.298E-02_JPRB,.269E-02_JPRB,.255E-02_JPRB,.290E-02_JPRB,.323E-02_JPRB,.313E-02_JPRB,&
+&.316E-02_JPRB,.391E-02_JPRB,.384E-02_JPRB,.385E-02_JPRB,.395E-02_JPRB,.452E-02_JPRB,.537E-02_JPRB,&
+&.608E-02_JPRB,.627E-02_JPRB,.632E-02_JPRB,.669E-02_JPRB,.617E-02_JPRB,.536E-02_JPRB,.597E-02_JPRB,&
+&.624E-02_JPRB,.659E-02_JPRB,.713E-02_JPRB,.743E-02_JPRB,.765E-02_JPRB,.720E-02_JPRB,.632E-02_JPRB,&
+&.564E-02_JPRB,.511E-02_JPRB,.468E-02_JPRB,.461E-02_JPRB,.474E-02_JPRB,.476E-02_JPRB,.472E-02_JPRB,&
+&.454E-02_JPRB,.456E-02_JPRB,.469E-02_JPRB,.475E-02_JPRB,.505E-02_JPRB,.498E-02_JPRB,.525E-02_JPRB,&
+&.558E-02_JPRB,.581E-02_JPRB,.564E-02_JPRB,.544E-02_JPRB,.522E-02_JPRB,.472E-02_JPRB,.424E-02_JPRB,&
+&.430E-02_JPRB,.408E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 10  54.0
+ZAER (:,10, 9) = (/&
+&.412E-02_JPRB,.395E-02_JPRB,.387E-02_JPRB,.419E-02_JPRB,.388E-02_JPRB,.362E-02_JPRB,.340E-02_JPRB,&
+&.316E-02_JPRB,.311E-02_JPRB,.301E-02_JPRB,.327E-02_JPRB,.321E-02_JPRB,.318E-02_JPRB,.323E-02_JPRB,&
+&.338E-02_JPRB,.359E-02_JPRB,.379E-02_JPRB,.387E-02_JPRB,.378E-02_JPRB,.376E-02_JPRB,.349E-02_JPRB,&
+&.343E-02_JPRB,.207E-02_JPRB,.315E-02_JPRB,.314E-02_JPRB,.361E-02_JPRB,.342E-02_JPRB,.350E-02_JPRB,&
+&.383E-02_JPRB,.407E-02_JPRB,.449E-02_JPRB,.481E-02_JPRB,.497E-02_JPRB,.525E-02_JPRB,.572E-02_JPRB,&
+&.584E-02_JPRB,.542E-02_JPRB,.497E-02_JPRB,.530E-02_JPRB,.531E-02_JPRB,.544E-02_JPRB,.593E-02_JPRB,&
+&.597E-02_JPRB,.600E-02_JPRB,.607E-02_JPRB,.636E-02_JPRB,.643E-02_JPRB,.630E-02_JPRB,.605E-02_JPRB,&
+&.550E-02_JPRB,.533E-02_JPRB,.524E-02_JPRB,.509E-02_JPRB,.458E-02_JPRB,.463E-02_JPRB,.496E-02_JPRB,&
+&.512E-02_JPRB,.484E-02_JPRB,.495E-02_JPRB,.527E-02_JPRB,.572E-02_JPRB,.589E-02_JPRB,.548E-02_JPRB,&
+&.538E-02_JPRB,.550E-02_JPRB,.560E-02_JPRB,.520E-02_JPRB,.486E-02_JPRB,.433E-02_JPRB,.420E-02_JPRB,&
+&.419E-02_JPRB,.400E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 11  50.0
+ZAER (:,11, 9) = (/&
+&.437E-02_JPRB,.408E-02_JPRB,.393E-02_JPRB,.404E-02_JPRB,.364E-02_JPRB,.330E-02_JPRB,.289E-02_JPRB,&
+&.298E-02_JPRB,.328E-02_JPRB,.339E-02_JPRB,.344E-02_JPRB,.327E-02_JPRB,.306E-02_JPRB,.311E-02_JPRB,&
+&.354E-02_JPRB,.380E-02_JPRB,.396E-02_JPRB,.399E-02_JPRB,.390E-02_JPRB,.377E-02_JPRB,.357E-02_JPRB,&
+&.346E-02_JPRB,.195E-02_JPRB,.368E-02_JPRB,.467E-02_JPRB,.540E-02_JPRB,.534E-02_JPRB,.525E-02_JPRB,&
+&.549E-02_JPRB,.567E-02_JPRB,.552E-02_JPRB,.520E-02_JPRB,.510E-02_JPRB,.478E-02_JPRB,.475E-02_JPRB,&
+&.489E-02_JPRB,.501E-02_JPRB,.542E-02_JPRB,.545E-02_JPRB,.541E-02_JPRB,.582E-02_JPRB,.610E-02_JPRB,&
+&.614E-02_JPRB,.614E-02_JPRB,.652E-02_JPRB,.652E-02_JPRB,.643E-02_JPRB,.582E-02_JPRB,.545E-02_JPRB,&
+&.527E-02_JPRB,.548E-02_JPRB,.580E-02_JPRB,.598E-02_JPRB,.582E-02_JPRB,.515E-02_JPRB,.510E-02_JPRB,&
+&.516E-02_JPRB,.514E-02_JPRB,.530E-02_JPRB,.581E-02_JPRB,.623E-02_JPRB,.588E-02_JPRB,.547E-02_JPRB,&
+&.590E-02_JPRB,.607E-02_JPRB,.567E-02_JPRB,.532E-02_JPRB,.501E-02_JPRB,.457E-02_JPRB,.425E-02_JPRB,&
+&.442E-02_JPRB,.428E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 12  46.0
+ZAER (:,12, 9) = (/&
+&.488E-02_JPRB,.503E-02_JPRB,.453E-02_JPRB,.454E-02_JPRB,.414E-02_JPRB,.346E-02_JPRB,.301E-02_JPRB,&
+&.347E-02_JPRB,.342E-02_JPRB,.327E-02_JPRB,.311E-02_JPRB,.305E-02_JPRB,.315E-02_JPRB,.347E-02_JPRB,&
+&.389E-02_JPRB,.395E-02_JPRB,.379E-02_JPRB,.370E-02_JPRB,.364E-02_JPRB,.330E-02_JPRB,.322E-02_JPRB,&
+&.315E-02_JPRB,.202E-02_JPRB,.491E-02_JPRB,.698E-02_JPRB,.740E-02_JPRB,.754E-02_JPRB,.737E-02_JPRB,&
+&.685E-02_JPRB,.623E-02_JPRB,.615E-02_JPRB,.599E-02_JPRB,.541E-02_JPRB,.535E-02_JPRB,.524E-02_JPRB,&
+&.556E-02_JPRB,.593E-02_JPRB,.646E-02_JPRB,.650E-02_JPRB,.665E-02_JPRB,.689E-02_JPRB,.706E-02_JPRB,&
+&.750E-02_JPRB,.801E-02_JPRB,.831E-02_JPRB,.794E-02_JPRB,.662E-02_JPRB,.590E-02_JPRB,.583E-02_JPRB,&
+&.584E-02_JPRB,.609E-02_JPRB,.627E-02_JPRB,.591E-02_JPRB,.556E-02_JPRB,.550E-02_JPRB,.590E-02_JPRB,&
+&.624E-02_JPRB,.636E-02_JPRB,.627E-02_JPRB,.632E-02_JPRB,.651E-02_JPRB,.610E-02_JPRB,.613E-02_JPRB,&
+&.639E-02_JPRB,.579E-02_JPRB,.568E-02_JPRB,.505E-02_JPRB,.481E-02_JPRB,.471E-02_JPRB,.453E-02_JPRB,&
+&.442E-02_JPRB,.445E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 13  42.0
+ZAER (:,13, 9) = (/&
+&.519E-02_JPRB,.457E-02_JPRB,.451E-02_JPRB,.445E-02_JPRB,.416E-02_JPRB,.367E-02_JPRB,.355E-02_JPRB,&
+&.335E-02_JPRB,.325E-02_JPRB,.337E-02_JPRB,.342E-02_JPRB,.354E-02_JPRB,.390E-02_JPRB,.454E-02_JPRB,&
+&.469E-02_JPRB,.447E-02_JPRB,.430E-02_JPRB,.428E-02_JPRB,.405E-02_JPRB,.357E-02_JPRB,.330E-02_JPRB,&
+&.344E-02_JPRB,.280E-02_JPRB,.474E-02_JPRB,.108E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.104E-01_JPRB,&
+&.889E-02_JPRB,.824E-02_JPRB,.785E-02_JPRB,.714E-02_JPRB,.706E-02_JPRB,.706E-02_JPRB,.694E-02_JPRB,&
+&.679E-02_JPRB,.686E-02_JPRB,.693E-02_JPRB,.708E-02_JPRB,.729E-02_JPRB,.785E-02_JPRB,.904E-02_JPRB,&
+&.107E-01_JPRB,.106E-01_JPRB,.110E-01_JPRB,.974E-02_JPRB,.814E-02_JPRB,.730E-02_JPRB,.701E-02_JPRB,&
+&.703E-02_JPRB,.714E-02_JPRB,.665E-02_JPRB,.628E-02_JPRB,.652E-02_JPRB,.630E-02_JPRB,.628E-02_JPRB,&
+&.647E-02_JPRB,.672E-02_JPRB,.614E-02_JPRB,.686E-02_JPRB,.704E-02_JPRB,.674E-02_JPRB,.658E-02_JPRB,&
+&.631E-02_JPRB,.697E-02_JPRB,.590E-02_JPRB,.572E-02_JPRB,.492E-02_JPRB,.464E-02_JPRB,.425E-02_JPRB,&
+&.407E-02_JPRB,.419E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 14  38.0
+ZAER (:,14, 9) = (/&
+&.497E-02_JPRB,.421E-02_JPRB,.446E-02_JPRB,.466E-02_JPRB,.463E-02_JPRB,.420E-02_JPRB,.396E-02_JPRB,&
+&.372E-02_JPRB,.370E-02_JPRB,.390E-02_JPRB,.388E-02_JPRB,.405E-02_JPRB,.459E-02_JPRB,.504E-02_JPRB,&
+&.510E-02_JPRB,.505E-02_JPRB,.497E-02_JPRB,.494E-02_JPRB,.466E-02_JPRB,.408E-02_JPRB,.377E-02_JPRB,&
+&.427E-02_JPRB,.356E-02_JPRB,.923E-02_JPRB,.111E-01_JPRB,.190E-01_JPRB,.153E-01_JPRB,.130E-01_JPRB,&
+&.113E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.100E-01_JPRB,.937E-02_JPRB,.881E-02_JPRB,.814E-02_JPRB,&
+&.770E-02_JPRB,.757E-02_JPRB,.768E-02_JPRB,.807E-02_JPRB,.874E-02_JPRB,.101E-01_JPRB,.121E-01_JPRB,&
+&.141E-01_JPRB,.150E-01_JPRB,.141E-01_JPRB,.127E-01_JPRB,.105E-01_JPRB,.912E-02_JPRB,.859E-02_JPRB,&
+&.832E-02_JPRB,.842E-02_JPRB,.791E-02_JPRB,.784E-02_JPRB,.755E-02_JPRB,.715E-02_JPRB,.688E-02_JPRB,&
+&.693E-02_JPRB,.634E-02_JPRB,.637E-02_JPRB,.701E-02_JPRB,.719E-02_JPRB,.804E-02_JPRB,.797E-02_JPRB,&
+&.858E-02_JPRB,.817E-02_JPRB,.362E-02_JPRB,.558E-02_JPRB,.553E-02_JPRB,.470E-02_JPRB,.432E-02_JPRB,&
+&.403E-02_JPRB,.401E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 15  34.0
+ZAER (:,15, 9) = (/&
+&.522E-02_JPRB,.488E-02_JPRB,.534E-02_JPRB,.587E-02_JPRB,.603E-02_JPRB,.528E-02_JPRB,.488E-02_JPRB,&
+&.468E-02_JPRB,.454E-02_JPRB,.453E-02_JPRB,.479E-02_JPRB,.519E-02_JPRB,.562E-02_JPRB,.602E-02_JPRB,&
+&.653E-02_JPRB,.649E-02_JPRB,.645E-02_JPRB,.637E-02_JPRB,.581E-02_JPRB,.521E-02_JPRB,.473E-02_JPRB,&
+&.567E-02_JPRB,.538E-02_JPRB,.146E-01_JPRB,.139E-01_JPRB,.140E-01_JPRB,.182E-01_JPRB,.164E-01_JPRB,&
+&.142E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,&
+&.989E-02_JPRB,.978E-02_JPRB,.963E-02_JPRB,.100E-01_JPRB,.120E-01_JPRB,.899E-02_JPRB,.202E-01_JPRB,&
+&.238E-01_JPRB,.224E-01_JPRB,.186E-01_JPRB,.173E-01_JPRB,.150E-01_JPRB,.126E-01_JPRB,.112E-01_JPRB,&
+&.107E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,.933E-02_JPRB,.848E-02_JPRB,.805E-02_JPRB,.769E-02_JPRB,&
+&.741E-02_JPRB,.663E-02_JPRB,.688E-02_JPRB,.707E-02_JPRB,.496E-02_JPRB,.950E-02_JPRB,.903E-02_JPRB,&
+&.818E-02_JPRB,.432E-02_JPRB,.468E-02_JPRB,.405E-02_JPRB,.642E-02_JPRB,.534E-02_JPRB,.485E-02_JPRB,&
+&.478E-02_JPRB,.500E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 16  30.0
+ZAER (:,16, 9) = (/&
+&.633E-02_JPRB,.678E-02_JPRB,.736E-02_JPRB,.763E-02_JPRB,.845E-02_JPRB,.819E-02_JPRB,.740E-02_JPRB,&
+&.665E-02_JPRB,.616E-02_JPRB,.594E-02_JPRB,.620E-02_JPRB,.690E-02_JPRB,.815E-02_JPRB,.922E-02_JPRB,&
+&.988E-02_JPRB,.939E-02_JPRB,.948E-02_JPRB,.996E-02_JPRB,.952E-02_JPRB,.850E-02_JPRB,.762E-02_JPRB,&
+&.978E-02_JPRB,.950E-02_JPRB,.172E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.253E-01_JPRB,.229E-01_JPRB,&
+&.192E-01_JPRB,.180E-01_JPRB,.172E-01_JPRB,.166E-01_JPRB,.165E-01_JPRB,.160E-01_JPRB,.150E-01_JPRB,&
+&.144E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.168E-01_JPRB,.208E-01_JPRB,.185E-01_JPRB,.246E-01_JPRB,&
+&.237E-01_JPRB,.367E-01_JPRB,.312E-01_JPRB,.290E-01_JPRB,.234E-01_JPRB,.183E-01_JPRB,.160E-01_JPRB,&
+&.142E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,.121E-01_JPRB,.121E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,&
+&.983E-02_JPRB,.817E-02_JPRB,.853E-02_JPRB,.550E-02_JPRB,.567E-02_JPRB,.605E-02_JPRB,.640E-02_JPRB,&
+&.650E-02_JPRB,.658E-02_JPRB,.780E-02_JPRB,.734E-02_JPRB,.929E-02_JPRB,.730E-02_JPRB,.685E-02_JPRB,&
+&.636E-02_JPRB,.607E-02_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 17  26.0
+ZAER (:,17, 9) = (/&
+&.102E-01_JPRB,.113E-01_JPRB,.125E-01_JPRB,.134E-01_JPRB,.142E-01_JPRB,.142E-01_JPRB,.125E-01_JPRB,&
+&.114E-01_JPRB,.104E-01_JPRB,.973E-02_JPRB,.953E-02_JPRB,.102E-01_JPRB,.114E-01_JPRB,.124E-01_JPRB,&
+&.133E-01_JPRB,.140E-01_JPRB,.155E-01_JPRB,.157E-01_JPRB,.142E-01_JPRB,.128E-01_JPRB,.131E-01_JPRB,&
+&.149E-01_JPRB,.122E-01_JPRB,.204E-01_JPRB,.261E-01_JPRB,.245E-01_JPRB,.242E-01_JPRB,.395E-01_JPRB,&
+&.302E-01_JPRB,.240E-01_JPRB,.215E-01_JPRB,.201E-01_JPRB,.206E-01_JPRB,.204E-01_JPRB,.194E-01_JPRB,&
+&.191E-01_JPRB,.183E-01_JPRB,.189E-01_JPRB,.259E-01_JPRB,.201E-01_JPRB,.275E-01_JPRB,.382E-01_JPRB,&
+&.299E-01_JPRB,.637E-01_JPRB,.480E-01_JPRB,.369E-01_JPRB,.288E-01_JPRB,.232E-01_JPRB,.209E-01_JPRB,&
+&.178E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.158E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.141E-01_JPRB,&
+&.121E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.743E-02_JPRB,.830E-02_JPRB,.872E-02_JPRB,.903E-02_JPRB,&
+&.109E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.102E-01_JPRB,.141E-01_JPRB,.120E-01_JPRB,.111E-01_JPRB,&
+&.106E-01_JPRB,.102E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 18  22.0
+ZAER (:,18, 9) = (/&
+&.199E-01_JPRB,.214E-01_JPRB,.218E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.220E-01_JPRB,.202E-01_JPRB,&
+&.186E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,.156E-01_JPRB,&
+&.171E-01_JPRB,.188E-01_JPRB,.206E-01_JPRB,.194E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.194E-01_JPRB,&
+&.292E-01_JPRB,.305E-01_JPRB,.297E-01_JPRB,.359E-01_JPRB,.321E-01_JPRB,.309E-01_JPRB,.266E-01_JPRB,&
+&.329E-01_JPRB,.268E-01_JPRB,.241E-01_JPRB,.234E-01_JPRB,.241E-01_JPRB,.239E-01_JPRB,.218E-01_JPRB,&
+&.214E-01_JPRB,.211E-01_JPRB,.228E-01_JPRB,.337E-01_JPRB,.326E-01_JPRB,.410E-01_JPRB,.439E-01_JPRB,&
+&.364E-01_JPRB,.333E-01_JPRB,.454E-01_JPRB,.225E-01_JPRB,.292E-01_JPRB,.280E-01_JPRB,.277E-01_JPRB,&
+&.200E-01_JPRB,.197E-01_JPRB,.194E-01_JPRB,.200E-01_JPRB,.200E-01_JPRB,.185E-01_JPRB,.167E-01_JPRB,&
+&.157E-01_JPRB,.153E-01_JPRB,.160E-01_JPRB,.167E-01_JPRB,.112E-01_JPRB,.128E-01_JPRB,.146E-01_JPRB,&
+&.175E-01_JPRB,.167E-01_JPRB,.154E-01_JPRB,.244E-01_JPRB,.205E-01_JPRB,.192E-01_JPRB,.187E-01_JPRB,&
+&.170E-01_JPRB,.170E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 19  18.0
+ZAER (:,19, 9) = (/&
+&.270E-01_JPRB,.258E-01_JPRB,.257E-01_JPRB,.266E-01_JPRB,.277E-01_JPRB,.275E-01_JPRB,.266E-01_JPRB,&
+&.246E-01_JPRB,.227E-01_JPRB,.208E-01_JPRB,.201E-01_JPRB,.201E-01_JPRB,.200E-01_JPRB,.208E-01_JPRB,&
+&.226E-01_JPRB,.237E-01_JPRB,.255E-01_JPRB,.248E-01_JPRB,.222E-01_JPRB,.220E-01_JPRB,.309E-01_JPRB,&
+&.712E-01_JPRB,.434E-01_JPRB,.272E-01_JPRB,.285E-01_JPRB,.310E-01_JPRB,.302E-01_JPRB,.240E-01_JPRB,&
+&.191E-01_JPRB,.245E-01_JPRB,.221E-01_JPRB,.236E-01_JPRB,.251E-01_JPRB,.237E-01_JPRB,.242E-01_JPRB,&
+&.253E-01_JPRB,.265E-01_JPRB,.320E-01_JPRB,.494E-01_JPRB,.447E-01_JPRB,.527E-01_JPRB,.537E-01_JPRB,&
+&.336E-01_JPRB,.226E-01_JPRB,.338E-01_JPRB,.204E-01_JPRB,.282E-01_JPRB,.324E-01_JPRB,.277E-01_JPRB,&
+&.211E-01_JPRB,.227E-01_JPRB,.220E-01_JPRB,.214E-01_JPRB,.220E-01_JPRB,.211E-01_JPRB,.204E-01_JPRB,&
+&.204E-01_JPRB,.207E-01_JPRB,.221E-01_JPRB,.229E-01_JPRB,.292E-01_JPRB,.187E-01_JPRB,.191E-01_JPRB,&
+&.187E-01_JPRB,.169E-01_JPRB,.161E-01_JPRB,.275E-01_JPRB,.278E-01_JPRB,.309E-01_JPRB,.349E-01_JPRB,&
+&.347E-01_JPRB,.295E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 20  14.0
+ZAER (:,20, 9) = (/&
+&.292E-01_JPRB,.287E-01_JPRB,.305E-01_JPRB,.317E-01_JPRB,.326E-01_JPRB,.328E-01_JPRB,.319E-01_JPRB,&
+&.299E-01_JPRB,.297E-01_JPRB,.281E-01_JPRB,.274E-01_JPRB,.272E-01_JPRB,.272E-01_JPRB,.258E-01_JPRB,&
+&.259E-01_JPRB,.274E-01_JPRB,.294E-01_JPRB,.291E-01_JPRB,.292E-01_JPRB,.370E-01_JPRB,.590E-01_JPRB,&
+&.383E-01_JPRB,.286E-01_JPRB,.309E-01_JPRB,.280E-01_JPRB,.287E-01_JPRB,.248E-01_JPRB,.227E-01_JPRB,&
+&.177E-01_JPRB,.258E-01_JPRB,.256E-01_JPRB,.270E-01_JPRB,.273E-01_JPRB,.292E-01_JPRB,.316E-01_JPRB,&
+&.346E-01_JPRB,.404E-01_JPRB,.518E-01_JPRB,.669E-01_JPRB,.500E-01_JPRB,.509E-01_JPRB,.510E-01_JPRB,&
+&.235E-01_JPRB,.192E-01_JPRB,.182E-01_JPRB,.294E-01_JPRB,.267E-01_JPRB,.278E-01_JPRB,.245E-01_JPRB,&
+&.240E-01_JPRB,.251E-01_JPRB,.263E-01_JPRB,.280E-01_JPRB,.286E-01_JPRB,.293E-01_JPRB,.303E-01_JPRB,&
+&.290E-01_JPRB,.278E-01_JPRB,.272E-01_JPRB,.360E-01_JPRB,.426E-01_JPRB,.442E-01_JPRB,.269E-01_JPRB,&
+&.174E-01_JPRB,.293E-01_JPRB,.282E-01_JPRB,.306E-01_JPRB,.343E-01_JPRB,.409E-01_JPRB,.527E-01_JPRB,&
+&.476E-01_JPRB,.350E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 21  10.0
+ZAER (:,21, 9) = (/&
+&.323E-01_JPRB,.325E-01_JPRB,.349E-01_JPRB,.366E-01_JPRB,.375E-01_JPRB,.378E-01_JPRB,.369E-01_JPRB,&
+&.360E-01_JPRB,.358E-01_JPRB,.358E-01_JPRB,.341E-01_JPRB,.344E-01_JPRB,.350E-01_JPRB,.356E-01_JPRB,&
+&.360E-01_JPRB,.373E-01_JPRB,.394E-01_JPRB,.429E-01_JPRB,.508E-01_JPRB,.617E-01_JPRB,.666E-01_JPRB,&
+&.268E-01_JPRB,.251E-01_JPRB,.239E-01_JPRB,.222E-01_JPRB,.227E-01_JPRB,.229E-01_JPRB,.209E-01_JPRB,&
+&.187E-01_JPRB,.283E-01_JPRB,.300E-01_JPRB,.312E-01_JPRB,.315E-01_JPRB,.350E-01_JPRB,.410E-01_JPRB,&
+&.442E-01_JPRB,.483E-01_JPRB,.548E-01_JPRB,.607E-01_JPRB,.330E-01_JPRB,.341E-01_JPRB,.291E-01_JPRB,&
+&.178E-01_JPRB,.169E-01_JPRB,.272E-01_JPRB,.277E-01_JPRB,.272E-01_JPRB,.262E-01_JPRB,.264E-01_JPRB,&
+&.275E-01_JPRB,.289E-01_JPRB,.320E-01_JPRB,.348E-01_JPRB,.387E-01_JPRB,.428E-01_JPRB,.469E-01_JPRB,&
+&.526E-01_JPRB,.556E-01_JPRB,.658E-01_JPRB,.522E-01_JPRB,.467E-01_JPRB,.416E-01_JPRB,.386E-01_JPRB,&
+&.362E-01_JPRB,.379E-01_JPRB,.381E-01_JPRB,.365E-01_JPRB,.436E-01_JPRB,.447E-01_JPRB,.481E-01_JPRB,&
+&.401E-01_JPRB,.342E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 22   6.0
+ZAER (:,22, 9) = (/&
+&.363E-01_JPRB,.362E-01_JPRB,.389E-01_JPRB,.395E-01_JPRB,.415E-01_JPRB,.415E-01_JPRB,.409E-01_JPRB,&
+&.407E-01_JPRB,.415E-01_JPRB,.412E-01_JPRB,.403E-01_JPRB,.398E-01_JPRB,.422E-01_JPRB,.467E-01_JPRB,&
+&.484E-01_JPRB,.519E-01_JPRB,.549E-01_JPRB,.610E-01_JPRB,.673E-01_JPRB,.697E-01_JPRB,.311E-01_JPRB,&
+&.225E-01_JPRB,.212E-01_JPRB,.208E-01_JPRB,.219E-01_JPRB,.230E-01_JPRB,.240E-01_JPRB,.221E-01_JPRB,&
+&.194E-01_JPRB,.305E-01_JPRB,.317E-01_JPRB,.326E-01_JPRB,.343E-01_JPRB,.357E-01_JPRB,.395E-01_JPRB,&
+&.407E-01_JPRB,.413E-01_JPRB,.395E-01_JPRB,.412E-01_JPRB,.217E-01_JPRB,.230E-01_JPRB,.204E-01_JPRB,&
+&.163E-01_JPRB,.139E-01_JPRB,.259E-01_JPRB,.289E-01_JPRB,.281E-01_JPRB,.266E-01_JPRB,.266E-01_JPRB,&
+&.282E-01_JPRB,.308E-01_JPRB,.337E-01_JPRB,.381E-01_JPRB,.438E-01_JPRB,.494E-01_JPRB,.559E-01_JPRB,&
+&.666E-01_JPRB,.730E-01_JPRB,.598E-01_JPRB,.482E-01_JPRB,.397E-01_JPRB,.349E-01_JPRB,.399E-01_JPRB,&
+&.418E-01_JPRB,.243E-01_JPRB,.246E-01_JPRB,.491E-01_JPRB,.486E-01_JPRB,.456E-01_JPRB,.419E-01_JPRB,&
+&.388E-01_JPRB,.366E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 23   2.0
+ZAER (:,23, 9) = (/&
+&.388E-01_JPRB,.396E-01_JPRB,.408E-01_JPRB,.416E-01_JPRB,.431E-01_JPRB,.426E-01_JPRB,.432E-01_JPRB,&
+&.446E-01_JPRB,.484E-01_JPRB,.490E-01_JPRB,.488E-01_JPRB,.516E-01_JPRB,.550E-01_JPRB,.579E-01_JPRB,&
+&.581E-01_JPRB,.590E-01_JPRB,.613E-01_JPRB,.624E-01_JPRB,.596E-01_JPRB,.539E-01_JPRB,.301E-01_JPRB,&
+&.230E-01_JPRB,.196E-01_JPRB,.198E-01_JPRB,.206E-01_JPRB,.220E-01_JPRB,.241E-01_JPRB,.212E-01_JPRB,&
+&.303E-01_JPRB,.326E-01_JPRB,.328E-01_JPRB,.318E-01_JPRB,.311E-01_JPRB,.318E-01_JPRB,.331E-01_JPRB,&
+&.342E-01_JPRB,.332E-01_JPRB,.335E-01_JPRB,.215E-01_JPRB,.190E-01_JPRB,.205E-01_JPRB,.234E-01_JPRB,&
+&.202E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,.259E-01_JPRB,.248E-01_JPRB,.248E-01_JPRB,.261E-01_JPRB,&
+&.283E-01_JPRB,.310E-01_JPRB,.348E-01_JPRB,.396E-01_JPRB,.449E-01_JPRB,.506E-01_JPRB,.546E-01_JPRB,&
+&.558E-01_JPRB,.331E-01_JPRB,.477E-01_JPRB,.253E-01_JPRB,.383E-01_JPRB,.346E-01_JPRB,.362E-01_JPRB,&
+&.216E-01_JPRB,.417E-01_JPRB,.432E-01_JPRB,.449E-01_JPRB,.425E-01_JPRB,.410E-01_JPRB,.397E-01_JPRB,&
+&.388E-01_JPRB,.380E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 24  -2.0
+ZAER (:,24, 9) = (/&
+&.377E-01_JPRB,.393E-01_JPRB,.403E-01_JPRB,.408E-01_JPRB,.422E-01_JPRB,.420E-01_JPRB,.440E-01_JPRB,&
+&.454E-01_JPRB,.476E-01_JPRB,.495E-01_JPRB,.495E-01_JPRB,.521E-01_JPRB,.528E-01_JPRB,.552E-01_JPRB,&
+&.557E-01_JPRB,.552E-01_JPRB,.528E-01_JPRB,.545E-01_JPRB,.523E-01_JPRB,.533E-01_JPRB,.578E-01_JPRB,&
+&.294E-01_JPRB,.199E-01_JPRB,.169E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.257E-01_JPRB,.245E-01_JPRB,&
+&.264E-01_JPRB,.269E-01_JPRB,.255E-01_JPRB,.245E-01_JPRB,.243E-01_JPRB,.241E-01_JPRB,.239E-01_JPRB,&
+&.239E-01_JPRB,.237E-01_JPRB,.257E-01_JPRB,.155E-01_JPRB,.165E-01_JPRB,.183E-01_JPRB,.198E-01_JPRB,&
+&.172E-01_JPRB,.141E-01_JPRB,.142E-01_JPRB,.144E-01_JPRB,.242E-01_JPRB,.256E-01_JPRB,.265E-01_JPRB,&
+&.289E-01_JPRB,.319E-01_JPRB,.351E-01_JPRB,.387E-01_JPRB,.424E-01_JPRB,.454E-01_JPRB,.482E-01_JPRB,&
+&.264E-01_JPRB,.436E-01_JPRB,.416E-01_JPRB,.234E-01_JPRB,.445E-01_JPRB,.407E-01_JPRB,.297E-01_JPRB,&
+&.335E-01_JPRB,.357E-01_JPRB,.356E-01_JPRB,.366E-01_JPRB,.362E-01_JPRB,.366E-01_JPRB,.369E-01_JPRB,&
+&.367E-01_JPRB,.364E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 25  -6.0
+ZAER (:,25, 9) = (/&
+&.363E-01_JPRB,.379E-01_JPRB,.388E-01_JPRB,.395E-01_JPRB,.409E-01_JPRB,.405E-01_JPRB,.401E-01_JPRB,&
+&.404E-01_JPRB,.414E-01_JPRB,.410E-01_JPRB,.417E-01_JPRB,.437E-01_JPRB,.428E-01_JPRB,.436E-01_JPRB,&
+&.430E-01_JPRB,.439E-01_JPRB,.479E-01_JPRB,.534E-01_JPRB,.608E-01_JPRB,.664E-01_JPRB,.763E-01_JPRB,&
+&.397E-01_JPRB,.249E-01_JPRB,.165E-01_JPRB,.153E-01_JPRB,.234E-01_JPRB,.220E-01_JPRB,.220E-01_JPRB,&
+&.220E-01_JPRB,.215E-01_JPRB,.200E-01_JPRB,.188E-01_JPRB,.176E-01_JPRB,.174E-01_JPRB,.101E-01_JPRB,&
+&.104E-01_JPRB,.111E-01_JPRB,.119E-01_JPRB,.128E-01_JPRB,.134E-01_JPRB,.146E-01_JPRB,.155E-01_JPRB,&
+&.159E-01_JPRB,.144E-01_JPRB,.148E-01_JPRB,.165E-01_JPRB,.303E-01_JPRB,.319E-01_JPRB,.321E-01_JPRB,&
+&.361E-01_JPRB,.384E-01_JPRB,.406E-01_JPRB,.389E-01_JPRB,.377E-01_JPRB,.360E-01_JPRB,.344E-01_JPRB,&
+&.348E-01_JPRB,.337E-01_JPRB,.346E-01_JPRB,.385E-01_JPRB,.442E-01_JPRB,.317E-01_JPRB,.274E-01_JPRB,&
+&.293E-01_JPRB,.305E-01_JPRB,.303E-01_JPRB,.308E-01_JPRB,.314E-01_JPRB,.322E-01_JPRB,.333E-01_JPRB,&
+&.344E-01_JPRB,.353E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 26 -10.0
+ZAER (:,26, 9) = (/&
+&.329E-01_JPRB,.343E-01_JPRB,.354E-01_JPRB,.364E-01_JPRB,.371E-01_JPRB,.365E-01_JPRB,.364E-01_JPRB,&
+&.362E-01_JPRB,.364E-01_JPRB,.359E-01_JPRB,.366E-01_JPRB,.368E-01_JPRB,.373E-01_JPRB,.377E-01_JPRB,&
+&.382E-01_JPRB,.414E-01_JPRB,.530E-01_JPRB,.637E-01_JPRB,.864E-01_JPRB,.897E-01_JPRB,.623E-01_JPRB,&
+&.330E-01_JPRB,.224E-01_JPRB,.161E-01_JPRB,.191E-01_JPRB,.181E-01_JPRB,.189E-01_JPRB,.182E-01_JPRB,&
+&.174E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,.163E-01_JPRB,.972E-02_JPRB,&
+&.980E-02_JPRB,.108E-01_JPRB,.118E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.136E-01_JPRB,&
+&.151E-01_JPRB,.157E-01_JPRB,.174E-01_JPRB,.224E-01_JPRB,.271E-01_JPRB,.487E-01_JPRB,.519E-01_JPRB,&
+&.601E-01_JPRB,.633E-01_JPRB,.603E-01_JPRB,.593E-01_JPRB,.489E-01_JPRB,.335E-01_JPRB,.316E-01_JPRB,&
+&.391E-01_JPRB,.229E-01_JPRB,.233E-01_JPRB,.359E-01_JPRB,.432E-01_JPRB,.313E-01_JPRB,.238E-01_JPRB,&
+&.246E-01_JPRB,.263E-01_JPRB,.257E-01_JPRB,.249E-01_JPRB,.253E-01_JPRB,.262E-01_JPRB,.279E-01_JPRB,&
+&.297E-01_JPRB,.307E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 27 -14.0
+ZAER (:,27, 9) = (/&
+&.248E-01_JPRB,.262E-01_JPRB,.267E-01_JPRB,.285E-01_JPRB,.301E-01_JPRB,.298E-01_JPRB,.307E-01_JPRB,&
+&.310E-01_JPRB,.308E-01_JPRB,.309E-01_JPRB,.325E-01_JPRB,.341E-01_JPRB,.370E-01_JPRB,.403E-01_JPRB,&
+&.439E-01_JPRB,.540E-01_JPRB,.605E-01_JPRB,.720E-01_JPRB,.495E-01_JPRB,.354E-01_JPRB,.408E-01_JPRB,&
+&.341E-01_JPRB,.303E-01_JPRB,.235E-01_JPRB,.166E-01_JPRB,.169E-01_JPRB,.166E-01_JPRB,.150E-01_JPRB,&
+&.138E-01_JPRB,.130E-01_JPRB,.137E-01_JPRB,.183E-01_JPRB,.223E-01_JPRB,.125E-01_JPRB,.119E-01_JPRB,&
+&.113E-01_JPRB,.123E-01_JPRB,.145E-01_JPRB,.175E-01_JPRB,.176E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,&
+&.178E-01_JPRB,.232E-01_JPRB,.278E-01_JPRB,.343E-01_JPRB,.691E-01_JPRB,.795E-01_JPRB,.755E-01_JPRB,&
+&.751E-01_JPRB,.782E-01_JPRB,.499E-01_JPRB,.800E-01_JPRB,.704E-01_JPRB,.511E-01_JPRB,.464E-01_JPRB,&
+&.245E-01_JPRB,.137E-01_JPRB,.204E-01_JPRB,.245E-01_JPRB,.358E-01_JPRB,.220E-01_JPRB,.214E-01_JPRB,&
+&.231E-01_JPRB,.256E-01_JPRB,.253E-01_JPRB,.207E-01_JPRB,.194E-01_JPRB,.194E-01_JPRB,.208E-01_JPRB,&
+&.223E-01_JPRB,.240E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 28 -18.0
+ZAER (:,28, 9) = (/&
+&.189E-01_JPRB,.192E-01_JPRB,.198E-01_JPRB,.205E-01_JPRB,.252E-01_JPRB,.220E-01_JPRB,.253E-01_JPRB,&
+&.265E-01_JPRB,.282E-01_JPRB,.316E-01_JPRB,.363E-01_JPRB,.409E-01_JPRB,.472E-01_JPRB,.559E-01_JPRB,&
+&.678E-01_JPRB,.749E-01_JPRB,.300E-01_JPRB,.328E-01_JPRB,.339E-01_JPRB,.435E-01_JPRB,.283E-01_JPRB,&
+&.241E-01_JPRB,.238E-01_JPRB,.208E-01_JPRB,.166E-01_JPRB,.160E-01_JPRB,.147E-01_JPRB,.135E-01_JPRB,&
+&.131E-01_JPRB,.115E-01_JPRB,.130E-01_JPRB,.219E-01_JPRB,.313E-01_JPRB,.161E-01_JPRB,.136E-01_JPRB,&
+&.124E-01_JPRB,.133E-01_JPRB,.161E-01_JPRB,.242E-01_JPRB,.313E-01_JPRB,.258E-01_JPRB,.222E-01_JPRB,&
+&.308E-01_JPRB,.384E-01_JPRB,.830E-01_JPRB,.498E-01_JPRB,.454E-01_JPRB,.463E-01_JPRB,.770E-01_JPRB,&
+&.775E-01_JPRB,.806E-01_JPRB,.492E-01_JPRB,.572E-01_JPRB,.951E-01_JPRB,.728E-01_JPRB,.355E-01_JPRB,&
+&.264E-01_JPRB,.161E-01_JPRB,.273E-01_JPRB,.283E-01_JPRB,.253E-01_JPRB,.242E-01_JPRB,.241E-01_JPRB,&
+&.256E-01_JPRB,.282E-01_JPRB,.280E-01_JPRB,.198E-01_JPRB,.159E-01_JPRB,.152E-01_JPRB,.161E-01_JPRB,&
+&.172E-01_JPRB,.184E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 29 -22.0
+ZAER (:,29, 9) = (/&
+&.159E-01_JPRB,.161E-01_JPRB,.170E-01_JPRB,.183E-01_JPRB,.197E-01_JPRB,.176E-01_JPRB,.194E-01_JPRB,&
+&.216E-01_JPRB,.238E-01_JPRB,.355E-01_JPRB,.418E-01_JPRB,.497E-01_JPRB,.640E-01_JPRB,.909E-01_JPRB,&
+&.113E+00_JPRB,.613E-01_JPRB,.426E-01_JPRB,.663E-01_JPRB,.647E-01_JPRB,.468E-01_JPRB,.324E-01_JPRB,&
+&.234E-01_JPRB,.208E-01_JPRB,.172E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.140E-01_JPRB,.133E-01_JPRB,&
+&.131E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,.177E-01_JPRB,.325E-01_JPRB,.183E-01_JPRB,.159E-01_JPRB,&
+&.148E-01_JPRB,.156E-01_JPRB,.213E-01_JPRB,.348E-01_JPRB,.412E-01_JPRB,.449E-01_JPRB,.500E-01_JPRB,&
+&.590E-01_JPRB,.681E-01_JPRB,.685E-01_JPRB,.661E-01_JPRB,.520E-01_JPRB,.453E-01_JPRB,.777E-01_JPRB,&
+&.821E-01_JPRB,.498E-01_JPRB,.457E-01_JPRB,.551E-01_JPRB,.592E-01_JPRB,.507E-01_JPRB,.354E-01_JPRB,&
+&.248E-01_JPRB,.194E-01_JPRB,.204E-01_JPRB,.406E-01_JPRB,.332E-01_JPRB,.350E-01_JPRB,.377E-01_JPRB,&
+&.362E-01_JPRB,.335E-01_JPRB,.293E-01_JPRB,.219E-01_JPRB,.155E-01_JPRB,.135E-01_JPRB,.136E-01_JPRB,&
+&.145E-01_JPRB,.156E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 30 -26.0
+ZAER (:,30, 9) = (/&
+&.150E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,.151E-01_JPRB,&
+&.153E-01_JPRB,.157E-01_JPRB,.220E-01_JPRB,.279E-01_JPRB,.355E-01_JPRB,.549E-01_JPRB,.115E+00_JPRB,&
+&.106E+00_JPRB,.973E-01_JPRB,.113E+00_JPRB,.157E+00_JPRB,.125E+00_JPRB,.762E-01_JPRB,.469E-01_JPRB,&
+&.313E-01_JPRB,.233E-01_JPRB,.188E-01_JPRB,.174E-01_JPRB,.173E-01_JPRB,.154E-01_JPRB,.143E-01_JPRB,&
+&.136E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,.153E-01_JPRB,.221E-01_JPRB,.392E-01_JPRB,.206E-01_JPRB,&
+&.266E-01_JPRB,.359E-01_JPRB,.299E-01_JPRB,.426E-01_JPRB,.592E-01_JPRB,.610E-01_JPRB,.729E-01_JPRB,&
+&.746E-01_JPRB,.835E-01_JPRB,.847E-01_JPRB,.775E-01_JPRB,.705E-01_JPRB,.921E-01_JPRB,.524E-01_JPRB,&
+&.506E-01_JPRB,.528E-01_JPRB,.533E-01_JPRB,.463E-01_JPRB,.419E-01_JPRB,.358E-01_JPRB,.255E-01_JPRB,&
+&.204E-01_JPRB,.235E-01_JPRB,.221E-01_JPRB,.298E-01_JPRB,.447E-01_JPRB,.583E-01_JPRB,.667E-01_JPRB,&
+&.638E-01_JPRB,.460E-01_JPRB,.336E-01_JPRB,.233E-01_JPRB,.177E-01_JPRB,.146E-01_JPRB,.138E-01_JPRB,&
+&.143E-01_JPRB,.149E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 31 -30.0
+ZAER (:,31, 9) = (/&
+&.159E-01_JPRB,.160E-01_JPRB,.164E-01_JPRB,.169E-01_JPRB,.173E-01_JPRB,.173E-01_JPRB,.165E-01_JPRB,&
+&.158E-01_JPRB,.156E-01_JPRB,.180E-01_JPRB,.207E-01_JPRB,.261E-01_JPRB,.574E-01_JPRB,.130E+00_JPRB,&
+&.111E+00_JPRB,.112E+00_JPRB,.159E+00_JPRB,.169E+00_JPRB,.130E+00_JPRB,.773E-01_JPRB,.704E-01_JPRB,&
+&.494E-01_JPRB,.351E-01_JPRB,.274E-01_JPRB,.228E-01_JPRB,.198E-01_JPRB,.180E-01_JPRB,.164E-01_JPRB,&
+&.154E-01_JPRB,.161E-01_JPRB,.162E-01_JPRB,.152E-01_JPRB,.189E-01_JPRB,.353E-01_JPRB,.250E-01_JPRB,&
+&.346E-01_JPRB,.735E-01_JPRB,.728E-01_JPRB,.886E-01_JPRB,.840E-01_JPRB,.656E-01_JPRB,.759E-01_JPRB,&
+&.101E+00_JPRB,.926E-01_JPRB,.895E-01_JPRB,.947E-01_JPRB,.937E-01_JPRB,.625E-01_JPRB,.656E-01_JPRB,&
+&.609E-01_JPRB,.598E-01_JPRB,.467E-01_JPRB,.278E-01_JPRB,.155E-01_JPRB,.104E-01_JPRB,.862E-02_JPRB,&
+&.126E-01_JPRB,.256E-01_JPRB,.290E-01_JPRB,.515E-01_JPRB,.433E-01_JPRB,.884E-01_JPRB,.124E+00_JPRB,&
+&.956E-01_JPRB,.580E-01_JPRB,.412E-01_JPRB,.288E-01_JPRB,.208E-01_JPRB,.168E-01_JPRB,.155E-01_JPRB,&
+&.162E-01_JPRB,.160E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 32 -34.0
+ZAER (:,32, 9) = (/&
+&.183E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.202E-01_JPRB,.209E-01_JPRB,.204E-01_JPRB,.199E-01_JPRB,&
+&.184E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.203E-01_JPRB,.230E-01_JPRB,.397E-01_JPRB,.565E-01_JPRB,&
+&.798E-01_JPRB,.918E-01_JPRB,.153E+00_JPRB,.191E+00_JPRB,.165E+00_JPRB,.121E+00_JPRB,.759E-01_JPRB,&
+&.784E-01_JPRB,.491E-01_JPRB,.404E-01_JPRB,.323E-01_JPRB,.251E-01_JPRB,.211E-01_JPRB,.194E-01_JPRB,&
+&.190E-01_JPRB,.186E-01_JPRB,.193E-01_JPRB,.177E-01_JPRB,.183E-01_JPRB,.325E-01_JPRB,.565E-01_JPRB,&
+&.305E-01_JPRB,.624E-01_JPRB,.809E-01_JPRB,.108E+00_JPRB,.176E+00_JPRB,.129E+00_JPRB,.134E+00_JPRB,&
+&.142E+00_JPRB,.174E+00_JPRB,.873E-01_JPRB,.960E-01_JPRB,.764E-01_JPRB,.774E-01_JPRB,.713E-01_JPRB,&
+&.629E-01_JPRB,.514E-01_JPRB,.427E-01_JPRB,.228E-01_JPRB,.120E-01_JPRB,.914E-02_JPRB,.869E-02_JPRB,&
+&.986E-02_JPRB,.229E-01_JPRB,.338E-01_JPRB,.701E-01_JPRB,.702E-01_JPRB,.107E+00_JPRB,.116E+00_JPRB,&
+&.506E-01_JPRB,.618E-01_JPRB,.458E-01_JPRB,.333E-01_JPRB,.241E-01_JPRB,.205E-01_JPRB,.200E-01_JPRB,&
+&.196E-01_JPRB,.183E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 33 -38.0
+ZAER (:,33, 9) = (/&
+&.209E-01_JPRB,.199E-01_JPRB,.204E-01_JPRB,.235E-01_JPRB,.233E-01_JPRB,.247E-01_JPRB,.234E-01_JPRB,&
+&.224E-01_JPRB,.218E-01_JPRB,.205E-01_JPRB,.201E-01_JPRB,.220E-01_JPRB,.151E-01_JPRB,.250E-01_JPRB,&
+&.396E-01_JPRB,.517E-01_JPRB,.937E-01_JPRB,.188E+00_JPRB,.174E+00_JPRB,.160E+00_JPRB,.117E+00_JPRB,&
+&.997E-01_JPRB,.654E-01_JPRB,.562E-01_JPRB,.439E-01_JPRB,.293E-01_JPRB,.227E-01_JPRB,.226E-01_JPRB,&
+&.234E-01_JPRB,.219E-01_JPRB,.202E-01_JPRB,.203E-01_JPRB,.207E-01_JPRB,.311E-01_JPRB,.742E-01_JPRB,&
+&.440E-01_JPRB,.976E-01_JPRB,.170E+00_JPRB,.207E+00_JPRB,.207E+00_JPRB,.193E+00_JPRB,.136E+00_JPRB,&
+&.751E-01_JPRB,.859E-01_JPRB,.888E-01_JPRB,.853E-01_JPRB,.102E+00_JPRB,.773E-01_JPRB,.844E-01_JPRB,&
+&.104E+00_JPRB,.601E-01_JPRB,.512E-01_JPRB,.483E-01_JPRB,.294E-01_JPRB,.177E-01_JPRB,.142E-01_JPRB,&
+&.131E-01_JPRB,.188E-01_JPRB,.275E-01_JPRB,.674E-01_JPRB,.152E+00_JPRB,.971E-01_JPRB,.704E-01_JPRB,&
+&.617E-01_JPRB,.324E-01_JPRB,.460E-01_JPRB,.350E-01_JPRB,.280E-01_JPRB,.250E-01_JPRB,.237E-01_JPRB,&
+&.233E-01_JPRB,.226E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 34 -42.0
+ZAER (:,34, 9) = (/&
+&.253E-01_JPRB,.211E-01_JPRB,.240E-01_JPRB,.272E-01_JPRB,.243E-01_JPRB,.249E-01_JPRB,.257E-01_JPRB,&
+&.241E-01_JPRB,.236E-01_JPRB,.231E-01_JPRB,.221E-01_JPRB,.246E-01_JPRB,.162E-01_JPRB,.193E-01_JPRB,&
+&.241E-01_JPRB,.323E-01_JPRB,.571E-01_JPRB,.110E+00_JPRB,.149E+00_JPRB,.157E+00_JPRB,.116E+00_JPRB,&
+&.822E-01_JPRB,.105E+00_JPRB,.793E-01_JPRB,.540E-01_JPRB,.331E-01_JPRB,.260E-01_JPRB,.271E-01_JPRB,&
+&.250E-01_JPRB,.224E-01_JPRB,.214E-01_JPRB,.219E-01_JPRB,.232E-01_JPRB,.349E-01_JPRB,.763E-01_JPRB,&
+&.522E-01_JPRB,.580E-01_JPRB,.185E+00_JPRB,.240E+00_JPRB,.257E+00_JPRB,.155E+00_JPRB,.136E+00_JPRB,&
+&.185E+00_JPRB,.193E+00_JPRB,.983E-01_JPRB,.895E-01_JPRB,.159E+00_JPRB,.764E-01_JPRB,.840E-01_JPRB,&
+&.152E+00_JPRB,.113E+00_JPRB,.735E-01_JPRB,.528E-01_JPRB,.498E-01_JPRB,.398E-01_JPRB,.274E-01_JPRB,&
+&.252E-01_JPRB,.241E-01_JPRB,.251E-01_JPRB,.340E-01_JPRB,.717E-01_JPRB,.620E-01_JPRB,.469E-01_JPRB,&
+&.634E-01_JPRB,.685E-01_JPRB,.554E-01_JPRB,.402E-01_JPRB,.358E-01_JPRB,.318E-01_JPRB,.299E-01_JPRB,&
+&.288E-01_JPRB,.279E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 35 -46.0
+ZAER (:,35, 9) = (/&
+&.347E-01_JPRB,.309E-01_JPRB,.299E-01_JPRB,.314E-01_JPRB,.294E-01_JPRB,.276E-01_JPRB,.294E-01_JPRB,&
+&.295E-01_JPRB,.280E-01_JPRB,.261E-01_JPRB,.245E-01_JPRB,.262E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,&
+&.237E-01_JPRB,.314E-01_JPRB,.485E-01_JPRB,.736E-01_JPRB,.953E-01_JPRB,.126E+00_JPRB,.104E+00_JPRB,&
+&.944E-01_JPRB,.839E-01_JPRB,.665E-01_JPRB,.692E-01_JPRB,.460E-01_JPRB,.401E-01_JPRB,.340E-01_JPRB,&
+&.251E-01_JPRB,.219E-01_JPRB,.218E-01_JPRB,.227E-01_JPRB,.261E-01_JPRB,.367E-01_JPRB,.590E-01_JPRB,&
+&.668E-01_JPRB,.549E-01_JPRB,.796E-01_JPRB,.132E+00_JPRB,.151E+00_JPRB,.166E+00_JPRB,.169E+00_JPRB,&
+&.138E+00_JPRB,.137E+00_JPRB,.108E+00_JPRB,.907E-01_JPRB,.153E+00_JPRB,.832E-01_JPRB,.777E-01_JPRB,&
+&.118E+00_JPRB,.136E+00_JPRB,.943E-01_JPRB,.786E-01_JPRB,.659E-01_JPRB,.517E-01_JPRB,.412E-01_JPRB,&
+&.383E-01_JPRB,.378E-01_JPRB,.358E-01_JPRB,.489E-01_JPRB,.670E-01_JPRB,.770E-01_JPRB,.601E-01_JPRB,&
+&.511E-01_JPRB,.763E-01_JPRB,.756E-01_JPRB,.598E-01_JPRB,.506E-01_JPRB,.396E-01_JPRB,.391E-01_JPRB,&
+&.380E-01_JPRB,.386E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 36 -50.0
+ZAER (:,36, 9) = (/&
+&.462E-01_JPRB,.399E-01_JPRB,.369E-01_JPRB,.355E-01_JPRB,.342E-01_JPRB,.331E-01_JPRB,.342E-01_JPRB,&
+&.348E-01_JPRB,.344E-01_JPRB,.321E-01_JPRB,.292E-01_JPRB,.191E-01_JPRB,.220E-01_JPRB,.222E-01_JPRB,&
+&.239E-01_JPRB,.294E-01_JPRB,.407E-01_JPRB,.534E-01_JPRB,.596E-01_JPRB,.797E-01_JPRB,.942E-01_JPRB,&
+&.875E-01_JPRB,.766E-01_JPRB,.572E-01_JPRB,.752E-01_JPRB,.547E-01_JPRB,.420E-01_JPRB,.354E-01_JPRB,&
+&.249E-01_JPRB,.212E-01_JPRB,.211E-01_JPRB,.221E-01_JPRB,.248E-01_JPRB,.332E-01_JPRB,.482E-01_JPRB,&
+&.599E-01_JPRB,.480E-01_JPRB,.678E-01_JPRB,.926E-01_JPRB,.126E+00_JPRB,.157E+00_JPRB,.168E+00_JPRB,&
+&.148E+00_JPRB,.135E+00_JPRB,.134E+00_JPRB,.123E+00_JPRB,.102E+00_JPRB,.809E-01_JPRB,.786E-01_JPRB,&
+&.104E+00_JPRB,.110E+00_JPRB,.106E+00_JPRB,.108E+00_JPRB,.775E-01_JPRB,.652E-01_JPRB,.637E-01_JPRB,&
+&.655E-01_JPRB,.633E-01_JPRB,.532E-01_JPRB,.511E-01_JPRB,.544E-01_JPRB,.543E-01_JPRB,.507E-01_JPRB,&
+&.484E-01_JPRB,.456E-01_JPRB,.694E-01_JPRB,.606E-01_JPRB,.655E-01_JPRB,.660E-01_JPRB,.550E-01_JPRB,&
+&.495E-01_JPRB,.496E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 37 -54.0
+ZAER (:,37, 9) = (/&
+&.495E-01_JPRB,.470E-01_JPRB,.413E-01_JPRB,.418E-01_JPRB,.380E-01_JPRB,.388E-01_JPRB,.427E-01_JPRB,&
+&.410E-01_JPRB,.362E-01_JPRB,.340E-01_JPRB,.191E-01_JPRB,.172E-01_JPRB,.184E-01_JPRB,.210E-01_JPRB,&
+&.240E-01_JPRB,.244E-01_JPRB,.296E-01_JPRB,.383E-01_JPRB,.385E-01_JPRB,.485E-01_JPRB,.104E+00_JPRB,&
+&.567E-01_JPRB,.465E-01_JPRB,.374E-01_JPRB,.332E-01_JPRB,.442E-01_JPRB,.326E-01_JPRB,.243E-01_JPRB,&
+&.190E-01_JPRB,.194E-01_JPRB,.202E-01_JPRB,.216E-01_JPRB,.243E-01_JPRB,.302E-01_JPRB,.414E-01_JPRB,&
+&.328E-01_JPRB,.759E-01_JPRB,.943E-01_JPRB,.657E-01_JPRB,.869E-01_JPRB,.130E+00_JPRB,.153E+00_JPRB,&
+&.126E+00_JPRB,.114E+00_JPRB,.112E+00_JPRB,.116E+00_JPRB,.994E-01_JPRB,.901E-01_JPRB,.843E-01_JPRB,&
+&.984E-01_JPRB,.101E+00_JPRB,.104E+00_JPRB,.119E+00_JPRB,.105E+00_JPRB,.959E-01_JPRB,.844E-01_JPRB,&
+&.809E-01_JPRB,.763E-01_JPRB,.604E-01_JPRB,.485E-01_JPRB,.455E-01_JPRB,.446E-01_JPRB,.457E-01_JPRB,&
+&.462E-01_JPRB,.723E-01_JPRB,.598E-01_JPRB,.513E-01_JPRB,.484E-01_JPRB,.347E-01_JPRB,.666E-01_JPRB,&
+&.564E-01_JPRB,.502E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 38 -58.0
+ZAER (:,38, 9) = (/&
+&.486E-01_JPRB,.482E-01_JPRB,.456E-01_JPRB,.398E-01_JPRB,.369E-01_JPRB,.494E-01_JPRB,.555E-01_JPRB,&
+&.455E-01_JPRB,.356E-01_JPRB,.179E-01_JPRB,.150E-01_JPRB,.136E-01_JPRB,.154E-01_JPRB,.169E-01_JPRB,&
+&.185E-01_JPRB,.188E-01_JPRB,.176E-01_JPRB,.217E-01_JPRB,.503E-01_JPRB,.604E-01_JPRB,.724E-01_JPRB,&
+&.379E-01_JPRB,.313E-01_JPRB,.249E-01_JPRB,.335E-01_JPRB,.276E-01_JPRB,.239E-01_JPRB,.198E-01_JPRB,&
+&.184E-01_JPRB,.186E-01_JPRB,.203E-01_JPRB,.230E-01_JPRB,.257E-01_JPRB,.295E-01_JPRB,.356E-01_JPRB,&
+&.480E-01_JPRB,.576E-01_JPRB,.643E-01_JPRB,.440E-01_JPRB,.547E-01_JPRB,.111E+00_JPRB,.761E-01_JPRB,&
+&.782E-01_JPRB,.760E-01_JPRB,.716E-01_JPRB,.771E-01_JPRB,.814E-01_JPRB,.826E-01_JPRB,.889E-01_JPRB,&
+&.992E-01_JPRB,.962E-01_JPRB,.982E-01_JPRB,.106E+00_JPRB,.113E+00_JPRB,.970E-01_JPRB,.850E-01_JPRB,&
+&.746E-01_JPRB,.703E-01_JPRB,.626E-01_JPRB,.546E-01_JPRB,.525E-01_JPRB,.498E-01_JPRB,.454E-01_JPRB,&
+&.385E-01_JPRB,.323E-01_JPRB,.490E-01_JPRB,.458E-01_JPRB,.425E-01_JPRB,.236E-01_JPRB,.478E-01_JPRB,&
+&.532E-01_JPRB,.523E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 39 -62.0
+ZAER (:,39, 9) = (/&
+&.400E-01_JPRB,.371E-01_JPRB,.335E-01_JPRB,.315E-01_JPRB,.181E-01_JPRB,.183E-01_JPRB,.196E-01_JPRB,&
+&.163E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.128E-01_JPRB,.141E-01_JPRB,&
+&.150E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.169E-01_JPRB,.295E-01_JPRB,.442E-01_JPRB,.535E-01_JPRB,&
+&.250E-01_JPRB,.381E-01_JPRB,.359E-01_JPRB,.265E-01_JPRB,.221E-01_JPRB,.180E-01_JPRB,.853E-02_JPRB,&
+&.144E-01_JPRB,.148E-01_JPRB,.173E-01_JPRB,.196E-01_JPRB,.201E-01_JPRB,.211E-01_JPRB,.233E-01_JPRB,&
+&.270E-01_JPRB,.353E-01_JPRB,.411E-01_JPRB,.253E-01_JPRB,.282E-01_JPRB,.507E-01_JPRB,.358E-01_JPRB,&
+&.369E-01_JPRB,.432E-01_JPRB,.497E-01_JPRB,.519E-01_JPRB,.577E-01_JPRB,.618E-01_JPRB,.667E-01_JPRB,&
+&.744E-01_JPRB,.755E-01_JPRB,.731E-01_JPRB,.820E-01_JPRB,.946E-01_JPRB,.971E-01_JPRB,.787E-01_JPRB,&
+&.715E-01_JPRB,.675E-01_JPRB,.648E-01_JPRB,.614E-01_JPRB,.555E-01_JPRB,.500E-01_JPRB,.456E-01_JPRB,&
+&.383E-01_JPRB,.286E-01_JPRB,.232E-01_JPRB,.204E-01_JPRB,.199E-01_JPRB,.189E-01_JPRB,.183E-01_JPRB,&
+&.198E-01_JPRB,.380E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 40 -66.0
+ZAER (:,40, 9) = (/&
+&.176E-01_JPRB,.177E-01_JPRB,.269E-01_JPRB,.260E-01_JPRB,.164E-01_JPRB,.159E-01_JPRB,.151E-01_JPRB,&
+&.141E-01_JPRB,.124E-01_JPRB,.112E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.108E-01_JPRB,.117E-01_JPRB,&
+&.122E-01_JPRB,.130E-01_JPRB,.149E-01_JPRB,.161E-01_JPRB,.171E-01_JPRB,.191E-01_JPRB,.397E-01_JPRB,&
+&.221E-01_JPRB,.206E-01_JPRB,.195E-01_JPRB,.239E-01_JPRB,.192E-01_JPRB,.925E-02_JPRB,.670E-02_JPRB,&
+&.644E-02_JPRB,.109E-01_JPRB,.154E-01_JPRB,.162E-01_JPRB,.164E-01_JPRB,.159E-01_JPRB,.158E-01_JPRB,&
+&.162E-01_JPRB,.192E-01_JPRB,.231E-01_JPRB,.264E-01_JPRB,.163E-01_JPRB,.180E-01_JPRB,.199E-01_JPRB,&
+&.212E-01_JPRB,.218E-01_JPRB,.233E-01_JPRB,.262E-01_JPRB,.312E-01_JPRB,.379E-01_JPRB,.390E-01_JPRB,&
+&.427E-01_JPRB,.503E-01_JPRB,.515E-01_JPRB,.511E-01_JPRB,.579E-01_JPRB,.619E-01_JPRB,.596E-01_JPRB,&
+&.588E-01_JPRB,.599E-01_JPRB,.566E-01_JPRB,.512E-01_JPRB,.450E-01_JPRB,.374E-01_JPRB,.298E-01_JPRB,&
+&.255E-01_JPRB,.233E-01_JPRB,.204E-01_JPRB,.175E-01_JPRB,.163E-01_JPRB,.151E-01_JPRB,.156E-01_JPRB,&
+&.164E-01_JPRB,.180E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 41 -70.0
+ZAER (:,41, 9) = (/&
+&.258E-01_JPRB,.247E-01_JPRB,.262E-01_JPRB,.252E-01_JPRB,.143E-01_JPRB,.123E-01_JPRB,.121E-01_JPRB,&
+&.118E-01_JPRB,.189E-01_JPRB,.172E-01_JPRB,.962E-02_JPRB,.184E-01_JPRB,.190E-01_JPRB,.114E-01_JPRB,&
+&.124E-01_JPRB,.122E-01_JPRB,.205E-01_JPRB,.126E-01_JPRB,.150E-01_JPRB,.165E-01_JPRB,.174E-01_JPRB,&
+&.171E-01_JPRB,.166E-01_JPRB,.274E-01_JPRB,.236E-01_JPRB,.211E-01_JPRB,.102E-01_JPRB,.763E-02_JPRB,&
+&.609E-02_JPRB,.514E-02_JPRB,.681E-02_JPRB,.815E-02_JPRB,.155E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,&
+&.149E-01_JPRB,.150E-01_JPRB,.162E-01_JPRB,.183E-01_JPRB,.204E-01_JPRB,.225E-01_JPRB,.133E-01_JPRB,&
+&.148E-01_JPRB,.294E-01_JPRB,.312E-01_JPRB,.352E-01_JPRB,.401E-01_JPRB,.412E-01_JPRB,.452E-01_JPRB,&
+&.497E-01_JPRB,.342E-01_JPRB,.385E-01_JPRB,.374E-01_JPRB,.396E-01_JPRB,.335E-01_JPRB,.365E-01_JPRB,&
+&.381E-01_JPRB,.399E-01_JPRB,.348E-01_JPRB,.320E-01_JPRB,.302E-01_JPRB,.265E-01_JPRB,.205E-01_JPRB,&
+&.168E-01_JPRB,.166E-01_JPRB,.156E-01_JPRB,.144E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,.119E-01_JPRB,&
+&.220E-01_JPRB,.153E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 42 -74.0
+ZAER (:,42, 9) = (/&
+&.212E-01_JPRB,.230E-01_JPRB,.236E-01_JPRB,.221E-01_JPRB,.203E-01_JPRB,.198E-01_JPRB,.217E-01_JPRB,&
+&.218E-01_JPRB,.224E-01_JPRB,.228E-01_JPRB,.208E-01_JPRB,.199E-01_JPRB,.117E-01_JPRB,.114E-01_JPRB,&
+&.194E-01_JPRB,.176E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.163E-01_JPRB,.102E-01_JPRB,.189E-01_JPRB,&
+&.205E-01_JPRB,.196E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,.928E-02_JPRB,.803E-02_JPRB,.669E-02_JPRB,&
+&.592E-02_JPRB,.563E-02_JPRB,.605E-02_JPRB,.667E-02_JPRB,.144E-01_JPRB,.160E-01_JPRB,.161E-01_JPRB,&
+&.160E-01_JPRB,.159E-01_JPRB,.160E-01_JPRB,.164E-01_JPRB,.170E-01_JPRB,.175E-01_JPRB,.180E-01_JPRB,&
+&.206E-01_JPRB,.241E-01_JPRB,.284E-01_JPRB,.334E-01_JPRB,.341E-01_JPRB,.369E-01_JPRB,.414E-01_JPRB,&
+&.444E-01_JPRB,.503E-01_JPRB,.489E-01_JPRB,.480E-01_JPRB,.297E-01_JPRB,.254E-01_JPRB,.230E-01_JPRB,&
+&.252E-01_JPRB,.221E-01_JPRB,.175E-01_JPRB,.167E-01_JPRB,.268E-01_JPRB,.236E-01_JPRB,.205E-01_JPRB,&
+&.204E-01_JPRB,.207E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,.187E-01_JPRB,.171E-01_JPRB,.180E-01_JPRB,&
+&.193E-01_JPRB,.203E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 43 -78.0
+ZAER (:,43, 9) = (/&
+&.199E-01_JPRB,.204E-01_JPRB,.209E-01_JPRB,.213E-01_JPRB,.231E-01_JPRB,.259E-01_JPRB,.253E-01_JPRB,&
+&.256E-01_JPRB,.278E-01_JPRB,.281E-01_JPRB,.258E-01_JPRB,.237E-01_JPRB,.205E-01_JPRB,.177E-01_JPRB,&
+&.168E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.147E-01_JPRB,.815E-02_JPRB,.789E-02_JPRB,.783E-02_JPRB,&
+&.138E-01_JPRB,.150E-01_JPRB,.937E-02_JPRB,.795E-02_JPRB,.747E-02_JPRB,.734E-02_JPRB,.640E-02_JPRB,&
+&.630E-02_JPRB,.618E-02_JPRB,.685E-02_JPRB,.747E-02_JPRB,.128E-01_JPRB,.161E-01_JPRB,.169E-01_JPRB,&
+&.166E-01_JPRB,.160E-01_JPRB,.154E-01_JPRB,.151E-01_JPRB,.910E-02_JPRB,.158E-01_JPRB,.165E-01_JPRB,&
+&.175E-01_JPRB,.191E-01_JPRB,.219E-01_JPRB,.236E-01_JPRB,.250E-01_JPRB,.270E-01_JPRB,.278E-01_JPRB,&
+&.290E-01_JPRB,.290E-01_JPRB,.268E-01_JPRB,.255E-01_JPRB,.245E-01_JPRB,.204E-01_JPRB,.182E-01_JPRB,&
+&.188E-01_JPRB,.107E-01_JPRB,.165E-01_JPRB,.159E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.159E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB,.158E-01_JPRB,.167E-01_JPRB,.169E-01_JPRB,.174E-01_JPRB,.175E-01_JPRB,&
+&.174E-01_JPRB,.188E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 44 -82.0
+ZAER (:,44, 9) = (/&
+&.195E-01_JPRB,.193E-01_JPRB,.196E-01_JPRB,.209E-01_JPRB,.226E-01_JPRB,.252E-01_JPRB,.267E-01_JPRB,&
+&.272E-01_JPRB,.271E-01_JPRB,.261E-01_JPRB,.248E-01_JPRB,.227E-01_JPRB,.187E-01_JPRB,.166E-01_JPRB,&
+&.152E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,.152E-01_JPRB,.141E-01_JPRB,.134E-01_JPRB,.778E-02_JPRB,&
+&.762E-02_JPRB,.763E-02_JPRB,.766E-02_JPRB,.748E-02_JPRB,.754E-02_JPRB,.770E-02_JPRB,.781E-02_JPRB,&
+&.791E-02_JPRB,.800E-02_JPRB,.829E-02_JPRB,.827E-02_JPRB,.825E-02_JPRB,.138E-01_JPRB,.142E-01_JPRB,&
+&.146E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,&
+&.159E-01_JPRB,.165E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.177E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,&
+&.173E-01_JPRB,.170E-01_JPRB,.166E-01_JPRB,.163E-01_JPRB,.158E-01_JPRB,.152E-01_JPRB,.148E-01_JPRB,&
+&.143E-01_JPRB,.137E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.131E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,&
+&.140E-01_JPRB,.148E-01_JPRB,.153E-01_JPRB,.161E-01_JPRB,.168E-01_JPRB,.176E-01_JPRB,.182E-01_JPRB,&
+&.189E-01_JPRB,.194E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 45 -86.0
+ZAER (:,45, 9) = (/&
+&.181E-01_JPRB,.182E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.182E-01_JPRB,.178E-01_JPRB,.176E-01_JPRB,&
+&.175E-01_JPRB,.172E-01_JPRB,.167E-01_JPRB,.161E-01_JPRB,.155E-01_JPRB,.152E-01_JPRB,.146E-01_JPRB,&
+&.142E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.133E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.128E-01_JPRB,&
+&.129E-01_JPRB,.128E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.130E-01_JPRB,.131E-01_JPRB,&
+&.132E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,.139E-01_JPRB,.142E-01_JPRB,.145E-01_JPRB,.149E-01_JPRB,&
+&.152E-01_JPRB,.162E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.172E-01_JPRB,.174E-01_JPRB,.177E-01_JPRB,&
+&.178E-01_JPRB,.178E-01_JPRB,.181E-01_JPRB,.181E-01_JPRB,.181E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.181E-01_JPRB,.182E-01_JPRB,.182E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,.183E-01_JPRB,&
+&.183E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.185E-01_JPRB,.186E-01_JPRB,.184E-01_JPRB,&
+&.185E-01_JPRB,.186E-01_JPRB,.185E-01_JPRB,.184E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.184E-01_JPRB,&
+&.181E-01_JPRB,.184E-01_JPRB/)
+!-- Total Sulfate Aerosol    month:  9 --- lat: 46 -90.0
+ZAER (:,46, 9) = (/&
+&.171E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,.180E-01_JPRB,&
+&.180E-01_JPRB,.180E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=9   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_09
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_10.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_10
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          October
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,10:10)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month: 10 --- lat:  1  90.0
+ZAER (:, 1,10) = (/&
+&.144E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,.143E-02_JPRB,&
+&.143E-02_JPRB,.143E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  2  86.0
+ZAER (:, 2,10) = (/&
+&.222E-02_JPRB,.233E-02_JPRB,.243E-02_JPRB,.251E-02_JPRB,.254E-02_JPRB,.260E-02_JPRB,.262E-02_JPRB,&
+&.262E-02_JPRB,.260E-02_JPRB,.259E-02_JPRB,.253E-02_JPRB,.251E-02_JPRB,.217E-02_JPRB,.205E-02_JPRB,&
+&.198E-02_JPRB,.190E-02_JPRB,.184E-02_JPRB,.176E-02_JPRB,.172E-02_JPRB,.167E-02_JPRB,.163E-02_JPRB,&
+&.161E-02_JPRB,.160E-02_JPRB,.159E-02_JPRB,.147E-02_JPRB,.145E-02_JPRB,.145E-02_JPRB,.144E-02_JPRB,&
+&.146E-02_JPRB,.147E-02_JPRB,.149E-02_JPRB,.153E-02_JPRB,.156E-02_JPRB,.161E-02_JPRB,.167E-02_JPRB,&
+&.174E-02_JPRB,.153E-02_JPRB,.156E-02_JPRB,.159E-02_JPRB,.161E-02_JPRB,.164E-02_JPRB,.167E-02_JPRB,&
+&.170E-02_JPRB,.175E-02_JPRB,.178E-02_JPRB,.183E-02_JPRB,.188E-02_JPRB,.192E-02_JPRB,.187E-02_JPRB,&
+&.182E-02_JPRB,.179E-02_JPRB,.177E-02_JPRB,.173E-02_JPRB,.170E-02_JPRB,.168E-02_JPRB,.166E-02_JPRB,&
+&.166E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.173E-02_JPRB,.169E-02_JPRB,.166E-02_JPRB,&
+&.162E-02_JPRB,.162E-02_JPRB,.162E-02_JPRB,.161E-02_JPRB,.165E-02_JPRB,.168E-02_JPRB,.174E-02_JPRB,&
+&.181E-02_JPRB,.188E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  3  82.0
+ZAER (:, 3,10) = (/&
+&.391E-02_JPRB,.409E-02_JPRB,.420E-02_JPRB,.432E-02_JPRB,.443E-02_JPRB,.452E-02_JPRB,.433E-02_JPRB,&
+&.421E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,.418E-02_JPRB,.425E-02_JPRB,.349E-02_JPRB,.324E-02_JPRB,&
+&.308E-02_JPRB,.300E-02_JPRB,.296E-02_JPRB,.298E-02_JPRB,.291E-02_JPRB,.283E-02_JPRB,.271E-02_JPRB,&
+&.263E-02_JPRB,.250E-02_JPRB,.246E-02_JPRB,.284E-02_JPRB,.290E-02_JPRB,.305E-02_JPRB,.332E-02_JPRB,&
+&.370E-02_JPRB,.419E-02_JPRB,.339E-02_JPRB,.291E-02_JPRB,.262E-02_JPRB,.241E-02_JPRB,.232E-02_JPRB,&
+&.234E-02_JPRB,.186E-02_JPRB,.187E-02_JPRB,.186E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,.188E-02_JPRB,&
+&.176E-02_JPRB,.177E-02_JPRB,.178E-02_JPRB,.177E-02_JPRB,.175E-02_JPRB,.171E-02_JPRB,.166E-02_JPRB,&
+&.167E-02_JPRB,.168E-02_JPRB,.168E-02_JPRB,.169E-02_JPRB,.171E-02_JPRB,.184E-02_JPRB,.173E-02_JPRB,&
+&.167E-02_JPRB,.167E-02_JPRB,.168E-02_JPRB,.173E-02_JPRB,.185E-02_JPRB,.187E-02_JPRB,.189E-02_JPRB,&
+&.190E-02_JPRB,.201E-02_JPRB,.207E-02_JPRB,.274E-02_JPRB,.284E-02_JPRB,.312E-02_JPRB,.326E-02_JPRB,&
+&.337E-02_JPRB,.343E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  4  78.0
+ZAER (:, 4,10) = (/&
+&.440E-02_JPRB,.488E-02_JPRB,.567E-02_JPRB,.619E-02_JPRB,.619E-02_JPRB,.582E-02_JPRB,.452E-02_JPRB,&
+&.383E-02_JPRB,.393E-02_JPRB,.360E-02_JPRB,.379E-02_JPRB,.427E-02_JPRB,.422E-02_JPRB,.409E-02_JPRB,&
+&.397E-02_JPRB,.385E-02_JPRB,.358E-02_JPRB,.345E-02_JPRB,.340E-02_JPRB,.351E-02_JPRB,.362E-02_JPRB,&
+&.353E-02_JPRB,.331E-02_JPRB,.341E-02_JPRB,.400E-02_JPRB,.407E-02_JPRB,.442E-02_JPRB,.502E-02_JPRB,&
+&.520E-02_JPRB,.591E-02_JPRB,.618E-02_JPRB,.512E-02_JPRB,.452E-02_JPRB,.322E-02_JPRB,.246E-02_JPRB,&
+&.216E-02_JPRB,.190E-02_JPRB,.189E-02_JPRB,.210E-02_JPRB,.215E-02_JPRB,.195E-02_JPRB,.193E-02_JPRB,&
+&.188E-02_JPRB,.181E-02_JPRB,.175E-02_JPRB,.174E-02_JPRB,.158E-02_JPRB,.147E-02_JPRB,.148E-02_JPRB,&
+&.148E-02_JPRB,.156E-02_JPRB,.153E-02_JPRB,.163E-02_JPRB,.169E-02_JPRB,.170E-02_JPRB,.177E-02_JPRB,&
+&.185E-02_JPRB,.177E-02_JPRB,.158E-02_JPRB,.153E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,&
+&.166E-02_JPRB,.164E-02_JPRB,.168E-02_JPRB,.182E-02_JPRB,.172E-02_JPRB,.193E-02_JPRB,.275E-02_JPRB,&
+&.304E-02_JPRB,.378E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  5  74.0
+ZAER (:, 5,10) = (/&
+&.495E-02_JPRB,.492E-02_JPRB,.520E-02_JPRB,.554E-02_JPRB,.579E-02_JPRB,.571E-02_JPRB,.474E-02_JPRB,&
+&.434E-02_JPRB,.490E-02_JPRB,.495E-02_JPRB,.448E-02_JPRB,.414E-02_JPRB,.435E-02_JPRB,.528E-02_JPRB,&
+&.520E-02_JPRB,.505E-02_JPRB,.466E-02_JPRB,.457E-02_JPRB,.422E-02_JPRB,.417E-02_JPRB,.417E-02_JPRB,&
+&.396E-02_JPRB,.360E-02_JPRB,.349E-02_JPRB,.397E-02_JPRB,.460E-02_JPRB,.500E-02_JPRB,.548E-02_JPRB,&
+&.488E-02_JPRB,.475E-02_JPRB,.607E-02_JPRB,.821E-02_JPRB,.774E-02_JPRB,.576E-02_JPRB,.323E-02_JPRB,&
+&.233E-02_JPRB,.213E-02_JPRB,.206E-02_JPRB,.220E-02_JPRB,.223E-02_JPRB,.231E-02_JPRB,.235E-02_JPRB,&
+&.231E-02_JPRB,.220E-02_JPRB,.207E-02_JPRB,.189E-02_JPRB,.177E-02_JPRB,.169E-02_JPRB,.174E-02_JPRB,&
+&.184E-02_JPRB,.186E-02_JPRB,.181E-02_JPRB,.175E-02_JPRB,.183E-02_JPRB,.187E-02_JPRB,.190E-02_JPRB,&
+&.193E-02_JPRB,.198E-02_JPRB,.179E-02_JPRB,.163E-02_JPRB,.164E-02_JPRB,.179E-02_JPRB,.189E-02_JPRB,&
+&.191E-02_JPRB,.188E-02_JPRB,.191E-02_JPRB,.198E-02_JPRB,.194E-02_JPRB,.218E-02_JPRB,.285E-02_JPRB,&
+&.365E-02_JPRB,.455E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  6  70.0
+ZAER (:, 6,10) = (/&
+&.516E-02_JPRB,.520E-02_JPRB,.551E-02_JPRB,.574E-02_JPRB,.581E-02_JPRB,.575E-02_JPRB,.522E-02_JPRB,&
+&.478E-02_JPRB,.539E-02_JPRB,.596E-02_JPRB,.577E-02_JPRB,.524E-02_JPRB,.523E-02_JPRB,.592E-02_JPRB,&
+&.602E-02_JPRB,.562E-02_JPRB,.501E-02_JPRB,.490E-02_JPRB,.488E-02_JPRB,.495E-02_JPRB,.521E-02_JPRB,&
+&.490E-02_JPRB,.424E-02_JPRB,.421E-02_JPRB,.444E-02_JPRB,.445E-02_JPRB,.460E-02_JPRB,.579E-02_JPRB,&
+&.589E-02_JPRB,.528E-02_JPRB,.548E-02_JPRB,.830E-02_JPRB,.865E-02_JPRB,.515E-02_JPRB,.284E-02_JPRB,&
+&.256E-02_JPRB,.247E-02_JPRB,.271E-02_JPRB,.323E-02_JPRB,.336E-02_JPRB,.361E-02_JPRB,.359E-02_JPRB,&
+&.352E-02_JPRB,.350E-02_JPRB,.324E-02_JPRB,.277E-02_JPRB,.236E-02_JPRB,.235E-02_JPRB,.237E-02_JPRB,&
+&.259E-02_JPRB,.266E-02_JPRB,.237E-02_JPRB,.210E-02_JPRB,.213E-02_JPRB,.218E-02_JPRB,.217E-02_JPRB,&
+&.216E-02_JPRB,.214E-02_JPRB,.213E-02_JPRB,.229E-02_JPRB,.248E-02_JPRB,.252E-02_JPRB,.242E-02_JPRB,&
+&.229E-02_JPRB,.230E-02_JPRB,.237E-02_JPRB,.247E-02_JPRB,.258E-02_JPRB,.306E-02_JPRB,.335E-02_JPRB,&
+&.417E-02_JPRB,.498E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  7  66.0
+ZAER (:, 7,10) = (/&
+&.551E-02_JPRB,.559E-02_JPRB,.565E-02_JPRB,.561E-02_JPRB,.559E-02_JPRB,.586E-02_JPRB,.576E-02_JPRB,&
+&.543E-02_JPRB,.538E-02_JPRB,.528E-02_JPRB,.523E-02_JPRB,.545E-02_JPRB,.559E-02_JPRB,.533E-02_JPRB,&
+&.460E-02_JPRB,.415E-02_JPRB,.392E-02_JPRB,.392E-02_JPRB,.420E-02_JPRB,.436E-02_JPRB,.450E-02_JPRB,&
+&.450E-02_JPRB,.448E-02_JPRB,.452E-02_JPRB,.440E-02_JPRB,.436E-02_JPRB,.470E-02_JPRB,.517E-02_JPRB,&
+&.574E-02_JPRB,.628E-02_JPRB,.606E-02_JPRB,.639E-02_JPRB,.425E-02_JPRB,.389E-02_JPRB,.369E-02_JPRB,&
+&.328E-02_JPRB,.343E-02_JPRB,.377E-02_JPRB,.414E-02_JPRB,.473E-02_JPRB,.547E-02_JPRB,.528E-02_JPRB,&
+&.481E-02_JPRB,.467E-02_JPRB,.480E-02_JPRB,.476E-02_JPRB,.416E-02_JPRB,.387E-02_JPRB,.386E-02_JPRB,&
+&.403E-02_JPRB,.406E-02_JPRB,.349E-02_JPRB,.371E-02_JPRB,.376E-02_JPRB,.409E-02_JPRB,.418E-02_JPRB,&
+&.394E-02_JPRB,.400E-02_JPRB,.406E-02_JPRB,.446E-02_JPRB,.512E-02_JPRB,.577E-02_JPRB,.555E-02_JPRB,&
+&.483E-02_JPRB,.468E-02_JPRB,.493E-02_JPRB,.511E-02_JPRB,.529E-02_JPRB,.553E-02_JPRB,.577E-02_JPRB,&
+&.582E-02_JPRB,.575E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  8  62.0
+ZAER (:, 8,10) = (/&
+&.489E-02_JPRB,.466E-02_JPRB,.453E-02_JPRB,.450E-02_JPRB,.451E-02_JPRB,.451E-02_JPRB,.475E-02_JPRB,&
+&.500E-02_JPRB,.513E-02_JPRB,.504E-02_JPRB,.482E-02_JPRB,.458E-02_JPRB,.431E-02_JPRB,.422E-02_JPRB,&
+&.426E-02_JPRB,.413E-02_JPRB,.401E-02_JPRB,.415E-02_JPRB,.425E-02_JPRB,.451E-02_JPRB,.447E-02_JPRB,&
+&.436E-02_JPRB,.469E-02_JPRB,.462E-02_JPRB,.484E-02_JPRB,.438E-02_JPRB,.443E-02_JPRB,.454E-02_JPRB,&
+&.499E-02_JPRB,.550E-02_JPRB,.496E-02_JPRB,.466E-02_JPRB,.432E-02_JPRB,.448E-02_JPRB,.505E-02_JPRB,&
+&.469E-02_JPRB,.444E-02_JPRB,.445E-02_JPRB,.518E-02_JPRB,.593E-02_JPRB,.679E-02_JPRB,.667E-02_JPRB,&
+&.623E-02_JPRB,.657E-02_JPRB,.678E-02_JPRB,.646E-02_JPRB,.654E-02_JPRB,.639E-02_JPRB,.642E-02_JPRB,&
+&.640E-02_JPRB,.656E-02_JPRB,.652E-02_JPRB,.650E-02_JPRB,.715E-02_JPRB,.645E-02_JPRB,.658E-02_JPRB,&
+&.602E-02_JPRB,.594E-02_JPRB,.589E-02_JPRB,.599E-02_JPRB,.674E-02_JPRB,.738E-02_JPRB,.709E-02_JPRB,&
+&.678E-02_JPRB,.647E-02_JPRB,.633E-02_JPRB,.601E-02_JPRB,.579E-02_JPRB,.551E-02_JPRB,.536E-02_JPRB,&
+&.536E-02_JPRB,.523E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat:  9  58.0
+ZAER (:, 9,10) = (/&
+&.473E-02_JPRB,.470E-02_JPRB,.457E-02_JPRB,.441E-02_JPRB,.442E-02_JPRB,.444E-02_JPRB,.446E-02_JPRB,&
+&.457E-02_JPRB,.470E-02_JPRB,.476E-02_JPRB,.450E-02_JPRB,.418E-02_JPRB,.383E-02_JPRB,.382E-02_JPRB,&
+&.396E-02_JPRB,.403E-02_JPRB,.418E-02_JPRB,.470E-02_JPRB,.445E-02_JPRB,.459E-02_JPRB,.441E-02_JPRB,&
+&.448E-02_JPRB,.484E-02_JPRB,.488E-02_JPRB,.469E-02_JPRB,.464E-02_JPRB,.444E-02_JPRB,.451E-02_JPRB,&
+&.530E-02_JPRB,.606E-02_JPRB,.609E-02_JPRB,.569E-02_JPRB,.533E-02_JPRB,.530E-02_JPRB,.601E-02_JPRB,&
+&.673E-02_JPRB,.640E-02_JPRB,.546E-02_JPRB,.538E-02_JPRB,.530E-02_JPRB,.607E-02_JPRB,.649E-02_JPRB,&
+&.608E-02_JPRB,.639E-02_JPRB,.679E-02_JPRB,.680E-02_JPRB,.666E-02_JPRB,.670E-02_JPRB,.643E-02_JPRB,&
+&.598E-02_JPRB,.574E-02_JPRB,.577E-02_JPRB,.563E-02_JPRB,.637E-02_JPRB,.668E-02_JPRB,.615E-02_JPRB,&
+&.560E-02_JPRB,.604E-02_JPRB,.608E-02_JPRB,.593E-02_JPRB,.581E-02_JPRB,.561E-02_JPRB,.588E-02_JPRB,&
+&.583E-02_JPRB,.614E-02_JPRB,.614E-02_JPRB,.568E-02_JPRB,.509E-02_JPRB,.473E-02_JPRB,.445E-02_JPRB,&
+&.439E-02_JPRB,.451E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 10  54.0
+ZAER (:,10,10) = (/&
+&.498E-02_JPRB,.486E-02_JPRB,.460E-02_JPRB,.457E-02_JPRB,.432E-02_JPRB,.418E-02_JPRB,.405E-02_JPRB,&
+&.386E-02_JPRB,.385E-02_JPRB,.374E-02_JPRB,.388E-02_JPRB,.395E-02_JPRB,.411E-02_JPRB,.430E-02_JPRB,&
+&.434E-02_JPRB,.444E-02_JPRB,.478E-02_JPRB,.509E-02_JPRB,.499E-02_JPRB,.483E-02_JPRB,.461E-02_JPRB,&
+&.467E-02_JPRB,.332E-02_JPRB,.587E-02_JPRB,.613E-02_JPRB,.650E-02_JPRB,.665E-02_JPRB,.589E-02_JPRB,&
+&.582E-02_JPRB,.607E-02_JPRB,.645E-02_JPRB,.646E-02_JPRB,.684E-02_JPRB,.669E-02_JPRB,.591E-02_JPRB,&
+&.545E-02_JPRB,.520E-02_JPRB,.501E-02_JPRB,.508E-02_JPRB,.517E-02_JPRB,.543E-02_JPRB,.561E-02_JPRB,&
+&.545E-02_JPRB,.551E-02_JPRB,.588E-02_JPRB,.586E-02_JPRB,.563E-02_JPRB,.525E-02_JPRB,.535E-02_JPRB,&
+&.550E-02_JPRB,.539E-02_JPRB,.530E-02_JPRB,.507E-02_JPRB,.572E-02_JPRB,.602E-02_JPRB,.611E-02_JPRB,&
+&.626E-02_JPRB,.624E-02_JPRB,.644E-02_JPRB,.631E-02_JPRB,.621E-02_JPRB,.617E-02_JPRB,.608E-02_JPRB,&
+&.648E-02_JPRB,.691E-02_JPRB,.626E-02_JPRB,.551E-02_JPRB,.498E-02_JPRB,.485E-02_JPRB,.494E-02_JPRB,&
+&.482E-02_JPRB,.509E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 11  50.0
+ZAER (:,11,10) = (/&
+&.468E-02_JPRB,.483E-02_JPRB,.452E-02_JPRB,.435E-02_JPRB,.394E-02_JPRB,.374E-02_JPRB,.357E-02_JPRB,&
+&.347E-02_JPRB,.358E-02_JPRB,.364E-02_JPRB,.404E-02_JPRB,.420E-02_JPRB,.418E-02_JPRB,.378E-02_JPRB,&
+&.389E-02_JPRB,.449E-02_JPRB,.503E-02_JPRB,.554E-02_JPRB,.506E-02_JPRB,.472E-02_JPRB,.426E-02_JPRB,&
+&.450E-02_JPRB,.324E-02_JPRB,.702E-02_JPRB,.680E-02_JPRB,.673E-02_JPRB,.690E-02_JPRB,.637E-02_JPRB,&
+&.591E-02_JPRB,.582E-02_JPRB,.555E-02_JPRB,.535E-02_JPRB,.582E-02_JPRB,.597E-02_JPRB,.581E-02_JPRB,&
+&.570E-02_JPRB,.564E-02_JPRB,.567E-02_JPRB,.573E-02_JPRB,.595E-02_JPRB,.588E-02_JPRB,.562E-02_JPRB,&
+&.548E-02_JPRB,.560E-02_JPRB,.566E-02_JPRB,.576E-02_JPRB,.575E-02_JPRB,.547E-02_JPRB,.519E-02_JPRB,&
+&.520E-02_JPRB,.528E-02_JPRB,.518E-02_JPRB,.557E-02_JPRB,.604E-02_JPRB,.565E-02_JPRB,.539E-02_JPRB,&
+&.565E-02_JPRB,.573E-02_JPRB,.593E-02_JPRB,.608E-02_JPRB,.591E-02_JPRB,.592E-02_JPRB,.645E-02_JPRB,&
+&.674E-02_JPRB,.639E-02_JPRB,.567E-02_JPRB,.521E-02_JPRB,.487E-02_JPRB,.538E-02_JPRB,.550E-02_JPRB,&
+&.504E-02_JPRB,.478E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 12  46.0
+ZAER (:,12,10) = (/&
+&.523E-02_JPRB,.519E-02_JPRB,.484E-02_JPRB,.395E-02_JPRB,.359E-02_JPRB,.362E-02_JPRB,.331E-02_JPRB,&
+&.330E-02_JPRB,.347E-02_JPRB,.352E-02_JPRB,.385E-02_JPRB,.398E-02_JPRB,.356E-02_JPRB,.359E-02_JPRB,&
+&.395E-02_JPRB,.430E-02_JPRB,.484E-02_JPRB,.540E-02_JPRB,.499E-02_JPRB,.469E-02_JPRB,.436E-02_JPRB,&
+&.458E-02_JPRB,.316E-02_JPRB,.873E-02_JPRB,.837E-02_JPRB,.872E-02_JPRB,.816E-02_JPRB,.716E-02_JPRB,&
+&.627E-02_JPRB,.599E-02_JPRB,.588E-02_JPRB,.589E-02_JPRB,.627E-02_JPRB,.639E-02_JPRB,.658E-02_JPRB,&
+&.698E-02_JPRB,.717E-02_JPRB,.699E-02_JPRB,.671E-02_JPRB,.657E-02_JPRB,.639E-02_JPRB,.633E-02_JPRB,&
+&.654E-02_JPRB,.646E-02_JPRB,.681E-02_JPRB,.724E-02_JPRB,.673E-02_JPRB,.628E-02_JPRB,.618E-02_JPRB,&
+&.615E-02_JPRB,.626E-02_JPRB,.615E-02_JPRB,.645E-02_JPRB,.603E-02_JPRB,.599E-02_JPRB,.617E-02_JPRB,&
+&.614E-02_JPRB,.585E-02_JPRB,.561E-02_JPRB,.575E-02_JPRB,.616E-02_JPRB,.596E-02_JPRB,.666E-02_JPRB,&
+&.683E-02_JPRB,.693E-02_JPRB,.621E-02_JPRB,.545E-02_JPRB,.515E-02_JPRB,.567E-02_JPRB,.532E-02_JPRB,&
+&.495E-02_JPRB,.546E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 13  42.0
+ZAER (:,13,10) = (/&
+&.636E-02_JPRB,.495E-02_JPRB,.445E-02_JPRB,.391E-02_JPRB,.329E-02_JPRB,.300E-02_JPRB,.308E-02_JPRB,&
+&.304E-02_JPRB,.317E-02_JPRB,.329E-02_JPRB,.360E-02_JPRB,.365E-02_JPRB,.365E-02_JPRB,.402E-02_JPRB,&
+&.413E-02_JPRB,.413E-02_JPRB,.476E-02_JPRB,.518E-02_JPRB,.531E-02_JPRB,.529E-02_JPRB,.537E-02_JPRB,&
+&.595E-02_JPRB,.466E-02_JPRB,.757E-02_JPRB,.161E-01_JPRB,.164E-01_JPRB,.136E-01_JPRB,.108E-01_JPRB,&
+&.851E-02_JPRB,.762E-02_JPRB,.741E-02_JPRB,.735E-02_JPRB,.752E-02_JPRB,.771E-02_JPRB,.773E-02_JPRB,&
+&.751E-02_JPRB,.738E-02_JPRB,.734E-02_JPRB,.730E-02_JPRB,.723E-02_JPRB,.739E-02_JPRB,.779E-02_JPRB,&
+&.831E-02_JPRB,.909E-02_JPRB,.920E-02_JPRB,.905E-02_JPRB,.801E-02_JPRB,.713E-02_JPRB,.677E-02_JPRB,&
+&.664E-02_JPRB,.670E-02_JPRB,.697E-02_JPRB,.699E-02_JPRB,.680E-02_JPRB,.646E-02_JPRB,.619E-02_JPRB,&
+&.589E-02_JPRB,.555E-02_JPRB,.565E-02_JPRB,.607E-02_JPRB,.683E-02_JPRB,.661E-02_JPRB,.738E-02_JPRB,&
+&.775E-02_JPRB,.759E-02_JPRB,.639E-02_JPRB,.598E-02_JPRB,.599E-02_JPRB,.506E-02_JPRB,.485E-02_JPRB,&
+&.535E-02_JPRB,.571E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 14  38.0
+ZAER (:,14,10) = (/&
+&.689E-02_JPRB,.597E-02_JPRB,.530E-02_JPRB,.420E-02_JPRB,.349E-02_JPRB,.368E-02_JPRB,.404E-02_JPRB,&
+&.409E-02_JPRB,.416E-02_JPRB,.410E-02_JPRB,.372E-02_JPRB,.361E-02_JPRB,.379E-02_JPRB,.422E-02_JPRB,&
+&.451E-02_JPRB,.445E-02_JPRB,.464E-02_JPRB,.479E-02_JPRB,.499E-02_JPRB,.623E-02_JPRB,.870E-02_JPRB,&
+&.978E-02_JPRB,.808E-02_JPRB,.129E-01_JPRB,.123E-01_JPRB,.170E-01_JPRB,.141E-01_JPRB,.123E-01_JPRB,&
+&.103E-01_JPRB,.963E-02_JPRB,.970E-02_JPRB,.916E-02_JPRB,.898E-02_JPRB,.862E-02_JPRB,.824E-02_JPRB,&
+&.807E-02_JPRB,.814E-02_JPRB,.813E-02_JPRB,.781E-02_JPRB,.814E-02_JPRB,.881E-02_JPRB,.970E-02_JPRB,&
+&.107E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.895E-02_JPRB,.816E-02_JPRB,.767E-02_JPRB,&
+&.773E-02_JPRB,.766E-02_JPRB,.743E-02_JPRB,.731E-02_JPRB,.720E-02_JPRB,.669E-02_JPRB,.636E-02_JPRB,&
+&.634E-02_JPRB,.576E-02_JPRB,.688E-02_JPRB,.773E-02_JPRB,.777E-02_JPRB,.845E-02_JPRB,.858E-02_JPRB,&
+&.898E-02_JPRB,.813E-02_JPRB,.416E-02_JPRB,.682E-02_JPRB,.685E-02_JPRB,.573E-02_JPRB,.529E-02_JPRB,&
+&.582E-02_JPRB,.518E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 15  34.0
+ZAER (:,15,10) = (/&
+&.987E-02_JPRB,.817E-02_JPRB,.670E-02_JPRB,.590E-02_JPRB,.479E-02_JPRB,.444E-02_JPRB,.471E-02_JPRB,&
+&.496E-02_JPRB,.519E-02_JPRB,.526E-02_JPRB,.504E-02_JPRB,.485E-02_JPRB,.463E-02_JPRB,.493E-02_JPRB,&
+&.496E-02_JPRB,.517E-02_JPRB,.530E-02_JPRB,.528E-02_JPRB,.519E-02_JPRB,.697E-02_JPRB,.131E-01_JPRB,&
+&.170E-01_JPRB,.113E-01_JPRB,.146E-01_JPRB,.122E-01_JPRB,.113E-01_JPRB,.172E-01_JPRB,.154E-01_JPRB,&
+&.133E-01_JPRB,.120E-01_JPRB,.108E-01_JPRB,.109E-01_JPRB,.112E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,&
+&.104E-01_JPRB,.999E-02_JPRB,.933E-02_JPRB,.925E-02_JPRB,.103E-01_JPRB,.671E-02_JPRB,.135E-01_JPRB,&
+&.149E-01_JPRB,.145E-01_JPRB,.143E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.963E-02_JPRB,.904E-02_JPRB,&
+&.882E-02_JPRB,.828E-02_JPRB,.790E-02_JPRB,.758E-02_JPRB,.762E-02_JPRB,.742E-02_JPRB,.701E-02_JPRB,&
+&.725E-02_JPRB,.697E-02_JPRB,.802E-02_JPRB,.902E-02_JPRB,.565E-02_JPRB,.111E-01_JPRB,.109E-01_JPRB,&
+&.114E-01_JPRB,.575E-02_JPRB,.575E-02_JPRB,.510E-02_JPRB,.791E-02_JPRB,.670E-02_JPRB,.605E-02_JPRB,&
+&.643E-02_JPRB,.753E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 16  30.0
+ZAER (:,16,10) = (/&
+&.143E-01_JPRB,.124E-01_JPRB,.103E-01_JPRB,.864E-02_JPRB,.672E-02_JPRB,.653E-02_JPRB,.689E-02_JPRB,&
+&.689E-02_JPRB,.728E-02_JPRB,.750E-02_JPRB,.777E-02_JPRB,.744E-02_JPRB,.697E-02_JPRB,.665E-02_JPRB,&
+&.667E-02_JPRB,.653E-02_JPRB,.629E-02_JPRB,.627E-02_JPRB,.651E-02_JPRB,.902E-02_JPRB,.170E-01_JPRB,&
+&.250E-01_JPRB,.148E-01_JPRB,.158E-01_JPRB,.133E-01_JPRB,.140E-01_JPRB,.222E-01_JPRB,.212E-01_JPRB,&
+&.174E-01_JPRB,.153E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.133E-01_JPRB,&
+&.123E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.111E-01_JPRB,.143E-01_JPRB,.105E-01_JPRB,.145E-01_JPRB,&
+&.134E-01_JPRB,.265E-01_JPRB,.191E-01_JPRB,.145E-01_JPRB,.120E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,&
+&.999E-02_JPRB,.936E-02_JPRB,.930E-02_JPRB,.951E-02_JPRB,.910E-02_JPRB,.908E-02_JPRB,.857E-02_JPRB,&
+&.877E-02_JPRB,.100E-01_JPRB,.119E-01_JPRB,.673E-02_JPRB,.722E-02_JPRB,.879E-02_JPRB,.981E-02_JPRB,&
+&.977E-02_JPRB,.936E-02_JPRB,.950E-02_JPRB,.755E-02_JPRB,.105E-01_JPRB,.833E-02_JPRB,.757E-02_JPRB,&
+&.886E-02_JPRB,.133E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 17  26.0
+ZAER (:,17,10) = (/&
+&.212E-01_JPRB,.190E-01_JPRB,.165E-01_JPRB,.145E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,.116E-01_JPRB,&
+&.126E-01_JPRB,.134E-01_JPRB,.132E-01_JPRB,.124E-01_JPRB,.109E-01_JPRB,.102E-01_JPRB,.955E-02_JPRB,&
+&.896E-02_JPRB,.869E-02_JPRB,.858E-02_JPRB,.887E-02_JPRB,.102E-01_JPRB,.122E-01_JPRB,.180E-01_JPRB,&
+&.235E-01_JPRB,.178E-01_JPRB,.171E-01_JPRB,.176E-01_JPRB,.163E-01_JPRB,.169E-01_JPRB,.295E-01_JPRB,&
+&.226E-01_JPRB,.191E-01_JPRB,.169E-01_JPRB,.160E-01_JPRB,.150E-01_JPRB,.143E-01_JPRB,.132E-01_JPRB,&
+&.129E-01_JPRB,.128E-01_JPRB,.128E-01_JPRB,.161E-01_JPRB,.133E-01_JPRB,.168E-01_JPRB,.243E-01_JPRB,&
+&.155E-01_JPRB,.300E-01_JPRB,.198E-01_JPRB,.157E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,&
+&.124E-01_JPRB,.118E-01_JPRB,.121E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,.114E-01_JPRB,.110E-01_JPRB,&
+&.108E-01_JPRB,.120E-01_JPRB,.141E-01_JPRB,.100E-01_JPRB,.110E-01_JPRB,.138E-01_JPRB,.153E-01_JPRB,&
+&.137E-01_JPRB,.133E-01_JPRB,.112E-01_JPRB,.912E-02_JPRB,.123E-01_JPRB,.104E-01_JPRB,.103E-01_JPRB,&
+&.142E-01_JPRB,.222E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 18  22.0
+ZAER (:,18,10) = (/&
+&.326E-01_JPRB,.270E-01_JPRB,.219E-01_JPRB,.187E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,.171E-01_JPRB,&
+&.192E-01_JPRB,.201E-01_JPRB,.183E-01_JPRB,.160E-01_JPRB,.140E-01_JPRB,.124E-01_JPRB,.117E-01_JPRB,&
+&.119E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,.133E-01_JPRB,.154E-01_JPRB,.170E-01_JPRB,.214E-01_JPRB,&
+&.372E-01_JPRB,.274E-01_JPRB,.179E-01_JPRB,.187E-01_JPRB,.173E-01_JPRB,.197E-01_JPRB,.182E-01_JPRB,&
+&.234E-01_JPRB,.187E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.145E-01_JPRB,&
+&.146E-01_JPRB,.149E-01_JPRB,.183E-01_JPRB,.282E-01_JPRB,.196E-01_JPRB,.202E-01_JPRB,.193E-01_JPRB,&
+&.145E-01_JPRB,.127E-01_JPRB,.223E-01_JPRB,.119E-01_JPRB,.177E-01_JPRB,.233E-01_JPRB,.206E-01_JPRB,&
+&.165E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,.140E-01_JPRB,.134E-01_JPRB,.134E-01_JPRB,&
+&.134E-01_JPRB,.155E-01_JPRB,.192E-01_JPRB,.223E-01_JPRB,.129E-01_JPRB,.172E-01_JPRB,.182E-01_JPRB,&
+&.159E-01_JPRB,.136E-01_JPRB,.118E-01_JPRB,.175E-01_JPRB,.141E-01_JPRB,.134E-01_JPRB,.164E-01_JPRB,&
+&.253E-01_JPRB,.376E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 19  18.0
+ZAER (:,19,10) = (/&
+&.316E-01_JPRB,.265E-01_JPRB,.243E-01_JPRB,.224E-01_JPRB,.221E-01_JPRB,.225E-01_JPRB,.237E-01_JPRB,&
+&.243E-01_JPRB,.236E-01_JPRB,.212E-01_JPRB,.193E-01_JPRB,.176E-01_JPRB,.158E-01_JPRB,.154E-01_JPRB,&
+&.164E-01_JPRB,.164E-01_JPRB,.174E-01_JPRB,.195E-01_JPRB,.213E-01_JPRB,.243E-01_JPRB,.425E-01_JPRB,&
+&.835E-01_JPRB,.242E-01_JPRB,.153E-01_JPRB,.164E-01_JPRB,.167E-01_JPRB,.181E-01_JPRB,.171E-01_JPRB,&
+&.138E-01_JPRB,.181E-01_JPRB,.166E-01_JPRB,.169E-01_JPRB,.176E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,&
+&.171E-01_JPRB,.200E-01_JPRB,.264E-01_JPRB,.357E-01_JPRB,.246E-01_JPRB,.277E-01_JPRB,.222E-01_JPRB,&
+&.160E-01_JPRB,.129E-01_JPRB,.224E-01_JPRB,.137E-01_JPRB,.206E-01_JPRB,.233E-01_JPRB,.207E-01_JPRB,&
+&.181E-01_JPRB,.188E-01_JPRB,.199E-01_JPRB,.193E-01_JPRB,.184E-01_JPRB,.173E-01_JPRB,.186E-01_JPRB,&
+&.206E-01_JPRB,.248E-01_JPRB,.269E-01_JPRB,.277E-01_JPRB,.254E-01_JPRB,.170E-01_JPRB,.188E-01_JPRB,&
+&.175E-01_JPRB,.156E-01_JPRB,.115E-01_JPRB,.176E-01_JPRB,.177E-01_JPRB,.213E-01_JPRB,.324E-01_JPRB,&
+&.497E-01_JPRB,.449E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 20  14.0
+ZAER (:,20,10) = (/&
+&.305E-01_JPRB,.272E-01_JPRB,.257E-01_JPRB,.251E-01_JPRB,.264E-01_JPRB,.272E-01_JPRB,.274E-01_JPRB,&
+&.272E-01_JPRB,.264E-01_JPRB,.238E-01_JPRB,.217E-01_JPRB,.214E-01_JPRB,.214E-01_JPRB,.207E-01_JPRB,&
+&.221E-01_JPRB,.230E-01_JPRB,.253E-01_JPRB,.286E-01_JPRB,.322E-01_JPRB,.436E-01_JPRB,.704E-01_JPRB,&
+&.338E-01_JPRB,.201E-01_JPRB,.175E-01_JPRB,.152E-01_JPRB,.150E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,&
+&.138E-01_JPRB,.204E-01_JPRB,.196E-01_JPRB,.178E-01_JPRB,.163E-01_JPRB,.178E-01_JPRB,.202E-01_JPRB,&
+&.245E-01_JPRB,.291E-01_JPRB,.339E-01_JPRB,.359E-01_JPRB,.216E-01_JPRB,.304E-01_JPRB,.360E-01_JPRB,&
+&.171E-01_JPRB,.131E-01_JPRB,.126E-01_JPRB,.211E-01_JPRB,.201E-01_JPRB,.218E-01_JPRB,.220E-01_JPRB,&
+&.223E-01_JPRB,.229E-01_JPRB,.242E-01_JPRB,.253E-01_JPRB,.259E-01_JPRB,.272E-01_JPRB,.307E-01_JPRB,&
+&.360E-01_JPRB,.374E-01_JPRB,.383E-01_JPRB,.325E-01_JPRB,.328E-01_JPRB,.330E-01_JPRB,.182E-01_JPRB,&
+&.143E-01_JPRB,.220E-01_JPRB,.171E-01_JPRB,.192E-01_JPRB,.232E-01_JPRB,.324E-01_JPRB,.480E-01_JPRB,&
+&.449E-01_JPRB,.366E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 21  10.0
+ZAER (:,21,10) = (/&
+&.302E-01_JPRB,.292E-01_JPRB,.292E-01_JPRB,.296E-01_JPRB,.302E-01_JPRB,.308E-01_JPRB,.307E-01_JPRB,&
+&.301E-01_JPRB,.293E-01_JPRB,.279E-01_JPRB,.264E-01_JPRB,.269E-01_JPRB,.271E-01_JPRB,.265E-01_JPRB,&
+&.275E-01_JPRB,.285E-01_JPRB,.326E-01_JPRB,.365E-01_JPRB,.444E-01_JPRB,.574E-01_JPRB,.538E-01_JPRB,&
+&.239E-01_JPRB,.198E-01_JPRB,.155E-01_JPRB,.147E-01_JPRB,.151E-01_JPRB,.166E-01_JPRB,.166E-01_JPRB,&
+&.146E-01_JPRB,.219E-01_JPRB,.233E-01_JPRB,.229E-01_JPRB,.204E-01_JPRB,.216E-01_JPRB,.272E-01_JPRB,&
+&.312E-01_JPRB,.324E-01_JPRB,.347E-01_JPRB,.319E-01_JPRB,.173E-01_JPRB,.222E-01_JPRB,.257E-01_JPRB,&
+&.148E-01_JPRB,.124E-01_JPRB,.197E-01_JPRB,.213E-01_JPRB,.222E-01_JPRB,.218E-01_JPRB,.221E-01_JPRB,&
+&.230E-01_JPRB,.245E-01_JPRB,.270E-01_JPRB,.302E-01_JPRB,.342E-01_JPRB,.393E-01_JPRB,.467E-01_JPRB,&
+&.581E-01_JPRB,.654E-01_JPRB,.692E-01_JPRB,.400E-01_JPRB,.424E-01_JPRB,.301E-01_JPRB,.251E-01_JPRB,&
+&.261E-01_JPRB,.269E-01_JPRB,.284E-01_JPRB,.255E-01_JPRB,.339E-01_JPRB,.386E-01_JPRB,.434E-01_JPRB,&
+&.371E-01_JPRB,.326E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 22   6.0
+ZAER (:,22,10) = (/&
+&.316E-01_JPRB,.309E-01_JPRB,.320E-01_JPRB,.322E-01_JPRB,.340E-01_JPRB,.343E-01_JPRB,.337E-01_JPRB,&
+&.328E-01_JPRB,.329E-01_JPRB,.318E-01_JPRB,.316E-01_JPRB,.319E-01_JPRB,.331E-01_JPRB,.351E-01_JPRB,&
+&.375E-01_JPRB,.439E-01_JPRB,.489E-01_JPRB,.562E-01_JPRB,.608E-01_JPRB,.574E-01_JPRB,.273E-01_JPRB,&
+&.212E-01_JPRB,.170E-01_JPRB,.157E-01_JPRB,.162E-01_JPRB,.173E-01_JPRB,.196E-01_JPRB,.184E-01_JPRB,&
+&.153E-01_JPRB,.252E-01_JPRB,.259E-01_JPRB,.253E-01_JPRB,.252E-01_JPRB,.240E-01_JPRB,.274E-01_JPRB,&
+&.278E-01_JPRB,.280E-01_JPRB,.272E-01_JPRB,.241E-01_JPRB,.135E-01_JPRB,.166E-01_JPRB,.174E-01_JPRB,&
+&.150E-01_JPRB,.109E-01_JPRB,.190E-01_JPRB,.209E-01_JPRB,.210E-01_JPRB,.208E-01_JPRB,.215E-01_JPRB,&
+&.228E-01_JPRB,.252E-01_JPRB,.285E-01_JPRB,.330E-01_JPRB,.388E-01_JPRB,.459E-01_JPRB,.553E-01_JPRB,&
+&.694E-01_JPRB,.822E-01_JPRB,.624E-01_JPRB,.474E-01_JPRB,.388E-01_JPRB,.283E-01_JPRB,.295E-01_JPRB,&
+&.323E-01_JPRB,.195E-01_JPRB,.207E-01_JPRB,.411E-01_JPRB,.424E-01_JPRB,.401E-01_JPRB,.366E-01_JPRB,&
+&.341E-01_JPRB,.322E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 23   2.0
+ZAER (:,23,10) = (/&
+&.348E-01_JPRB,.349E-01_JPRB,.357E-01_JPRB,.372E-01_JPRB,.390E-01_JPRB,.388E-01_JPRB,.377E-01_JPRB,&
+&.374E-01_JPRB,.389E-01_JPRB,.407E-01_JPRB,.423E-01_JPRB,.464E-01_JPRB,.483E-01_JPRB,.504E-01_JPRB,&
+&.519E-01_JPRB,.550E-01_JPRB,.570E-01_JPRB,.574E-01_JPRB,.529E-01_JPRB,.523E-01_JPRB,.316E-01_JPRB,&
+&.285E-01_JPRB,.207E-01_JPRB,.178E-01_JPRB,.168E-01_JPRB,.176E-01_JPRB,.204E-01_JPRB,.177E-01_JPRB,&
+&.251E-01_JPRB,.275E-01_JPRB,.270E-01_JPRB,.261E-01_JPRB,.263E-01_JPRB,.261E-01_JPRB,.257E-01_JPRB,&
+&.260E-01_JPRB,.267E-01_JPRB,.235E-01_JPRB,.124E-01_JPRB,.124E-01_JPRB,.154E-01_JPRB,.191E-01_JPRB,&
+&.187E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.204E-01_JPRB,.200E-01_JPRB,.200E-01_JPRB,.210E-01_JPRB,&
+&.223E-01_JPRB,.245E-01_JPRB,.286E-01_JPRB,.336E-01_JPRB,.392E-01_JPRB,.467E-01_JPRB,.529E-01_JPRB,&
+&.582E-01_JPRB,.369E-01_JPRB,.517E-01_JPRB,.264E-01_JPRB,.380E-01_JPRB,.289E-01_JPRB,.288E-01_JPRB,&
+&.173E-01_JPRB,.350E-01_JPRB,.370E-01_JPRB,.384E-01_JPRB,.363E-01_JPRB,.357E-01_JPRB,.350E-01_JPRB,&
+&.346E-01_JPRB,.342E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 24  -2.0
+ZAER (:,24,10) = (/&
+&.354E-01_JPRB,.376E-01_JPRB,.394E-01_JPRB,.405E-01_JPRB,.421E-01_JPRB,.417E-01_JPRB,.430E-01_JPRB,&
+&.429E-01_JPRB,.442E-01_JPRB,.455E-01_JPRB,.471E-01_JPRB,.524E-01_JPRB,.544E-01_JPRB,.561E-01_JPRB,&
+&.570E-01_JPRB,.600E-01_JPRB,.618E-01_JPRB,.655E-01_JPRB,.615E-01_JPRB,.609E-01_JPRB,.656E-01_JPRB,&
+&.422E-01_JPRB,.276E-01_JPRB,.191E-01_JPRB,.160E-01_JPRB,.155E-01_JPRB,.232E-01_JPRB,.223E-01_JPRB,&
+&.237E-01_JPRB,.245E-01_JPRB,.236E-01_JPRB,.240E-01_JPRB,.242E-01_JPRB,.225E-01_JPRB,.212E-01_JPRB,&
+&.217E-01_JPRB,.212E-01_JPRB,.194E-01_JPRB,.107E-01_JPRB,.118E-01_JPRB,.143E-01_JPRB,.163E-01_JPRB,&
+&.147E-01_JPRB,.112E-01_JPRB,.120E-01_JPRB,.124E-01_JPRB,.195E-01_JPRB,.201E-01_JPRB,.208E-01_JPRB,&
+&.217E-01_JPRB,.233E-01_JPRB,.265E-01_JPRB,.295E-01_JPRB,.346E-01_JPRB,.394E-01_JPRB,.453E-01_JPRB,&
+&.271E-01_JPRB,.476E-01_JPRB,.463E-01_JPRB,.261E-01_JPRB,.473E-01_JPRB,.401E-01_JPRB,.249E-01_JPRB,&
+&.270E-01_JPRB,.291E-01_JPRB,.289E-01_JPRB,.304E-01_JPRB,.305E-01_JPRB,.314E-01_JPRB,.322E-01_JPRB,&
+&.329E-01_JPRB,.335E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 25  -6.0
+ZAER (:,25,10) = (/&
+&.328E-01_JPRB,.351E-01_JPRB,.367E-01_JPRB,.380E-01_JPRB,.397E-01_JPRB,.394E-01_JPRB,.389E-01_JPRB,&
+&.390E-01_JPRB,.396E-01_JPRB,.395E-01_JPRB,.407E-01_JPRB,.442E-01_JPRB,.444E-01_JPRB,.475E-01_JPRB,&
+&.498E-01_JPRB,.554E-01_JPRB,.623E-01_JPRB,.669E-01_JPRB,.789E-01_JPRB,.867E-01_JPRB,.101E+00_JPRB,&
+&.623E-01_JPRB,.372E-01_JPRB,.202E-01_JPRB,.148E-01_JPRB,.208E-01_JPRB,.200E-01_JPRB,.205E-01_JPRB,&
+&.206E-01_JPRB,.201E-01_JPRB,.189E-01_JPRB,.190E-01_JPRB,.177E-01_JPRB,.166E-01_JPRB,.935E-02_JPRB,&
+&.958E-02_JPRB,.975E-02_JPRB,.975E-02_JPRB,.972E-02_JPRB,.105E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,&
+&.124E-01_JPRB,.110E-01_JPRB,.117E-01_JPRB,.139E-01_JPRB,.246E-01_JPRB,.240E-01_JPRB,.249E-01_JPRB,&
+&.263E-01_JPRB,.258E-01_JPRB,.278E-01_JPRB,.244E-01_JPRB,.254E-01_JPRB,.273E-01_JPRB,.310E-01_JPRB,&
+&.344E-01_JPRB,.371E-01_JPRB,.424E-01_JPRB,.497E-01_JPRB,.574E-01_JPRB,.356E-01_JPRB,.248E-01_JPRB,&
+&.243E-01_JPRB,.250E-01_JPRB,.246E-01_JPRB,.253E-01_JPRB,.262E-01_JPRB,.274E-01_JPRB,.286E-01_JPRB,&
+&.300E-01_JPRB,.313E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 26 -10.0
+ZAER (:,26,10) = (/&
+&.278E-01_JPRB,.299E-01_JPRB,.319E-01_JPRB,.333E-01_JPRB,.346E-01_JPRB,.351E-01_JPRB,.354E-01_JPRB,&
+&.353E-01_JPRB,.355E-01_JPRB,.354E-01_JPRB,.366E-01_JPRB,.376E-01_JPRB,.392E-01_JPRB,.436E-01_JPRB,&
+&.541E-01_JPRB,.641E-01_JPRB,.763E-01_JPRB,.838E-01_JPRB,.112E+00_JPRB,.108E+00_JPRB,.874E-01_JPRB,&
+&.492E-01_JPRB,.311E-01_JPRB,.192E-01_JPRB,.194E-01_JPRB,.158E-01_JPRB,.165E-01_JPRB,.163E-01_JPRB,&
+&.163E-01_JPRB,.157E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.155E-01_JPRB,.138E-01_JPRB,.798E-02_JPRB,&
+&.834E-02_JPRB,.904E-02_JPRB,.943E-02_JPRB,.100E-01_JPRB,.105E-01_JPRB,.108E-01_JPRB,.106E-01_JPRB,&
+&.107E-01_JPRB,.102E-01_JPRB,.109E-01_JPRB,.141E-01_JPRB,.164E-01_JPRB,.321E-01_JPRB,.353E-01_JPRB,&
+&.378E-01_JPRB,.391E-01_JPRB,.366E-01_JPRB,.264E-01_JPRB,.194E-01_JPRB,.196E-01_JPRB,.264E-01_JPRB,&
+&.275E-01_JPRB,.230E-01_JPRB,.295E-01_JPRB,.521E-01_JPRB,.681E-01_JPRB,.470E-01_JPRB,.265E-01_JPRB,&
+&.220E-01_JPRB,.228E-01_JPRB,.220E-01_JPRB,.204E-01_JPRB,.205E-01_JPRB,.217E-01_JPRB,.233E-01_JPRB,&
+&.244E-01_JPRB,.257E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 27 -14.0
+ZAER (:,27,10) = (/&
+&.187E-01_JPRB,.204E-01_JPRB,.222E-01_JPRB,.245E-01_JPRB,.267E-01_JPRB,.276E-01_JPRB,.293E-01_JPRB,&
+&.300E-01_JPRB,.297E-01_JPRB,.296E-01_JPRB,.311E-01_JPRB,.335E-01_JPRB,.393E-01_JPRB,.467E-01_JPRB,&
+&.536E-01_JPRB,.688E-01_JPRB,.706E-01_JPRB,.803E-01_JPRB,.507E-01_JPRB,.376E-01_JPRB,.539E-01_JPRB,&
+&.479E-01_JPRB,.398E-01_JPRB,.271E-01_JPRB,.165E-01_JPRB,.149E-01_JPRB,.144E-01_JPRB,.135E-01_JPRB,&
+&.131E-01_JPRB,.127E-01_JPRB,.125E-01_JPRB,.132E-01_JPRB,.161E-01_JPRB,.853E-02_JPRB,.805E-02_JPRB,&
+&.870E-02_JPRB,.952E-02_JPRB,.106E-01_JPRB,.124E-01_JPRB,.142E-01_JPRB,.151E-01_JPRB,.143E-01_JPRB,&
+&.128E-01_JPRB,.136E-01_JPRB,.156E-01_JPRB,.175E-01_JPRB,.369E-01_JPRB,.436E-01_JPRB,.485E-01_JPRB,&
+&.592E-01_JPRB,.691E-01_JPRB,.351E-01_JPRB,.358E-01_JPRB,.262E-01_JPRB,.211E-01_JPRB,.252E-01_JPRB,&
+&.133E-01_JPRB,.116E-01_JPRB,.226E-01_JPRB,.294E-01_JPRB,.408E-01_JPRB,.237E-01_JPRB,.206E-01_JPRB,&
+&.210E-01_JPRB,.239E-01_JPRB,.236E-01_JPRB,.172E-01_JPRB,.156E-01_JPRB,.155E-01_JPRB,.164E-01_JPRB,&
+&.167E-01_JPRB,.178E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 28 -18.0
+ZAER (:,28,10) = (/&
+&.127E-01_JPRB,.137E-01_JPRB,.156E-01_JPRB,.179E-01_JPRB,.223E-01_JPRB,.209E-01_JPRB,.229E-01_JPRB,&
+&.240E-01_JPRB,.239E-01_JPRB,.249E-01_JPRB,.265E-01_JPRB,.298E-01_JPRB,.370E-01_JPRB,.514E-01_JPRB,&
+&.588E-01_JPRB,.692E-01_JPRB,.312E-01_JPRB,.343E-01_JPRB,.304E-01_JPRB,.416E-01_JPRB,.345E-01_JPRB,&
+&.295E-01_JPRB,.262E-01_JPRB,.208E-01_JPRB,.158E-01_JPRB,.141E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,&
+&.125E-01_JPRB,.125E-01_JPRB,.136E-01_JPRB,.153E-01_JPRB,.200E-01_JPRB,.977E-02_JPRB,.850E-02_JPRB,&
+&.948E-02_JPRB,.112E-01_JPRB,.115E-01_JPRB,.144E-01_JPRB,.183E-01_JPRB,.214E-01_JPRB,.260E-01_JPRB,&
+&.260E-01_JPRB,.278E-01_JPRB,.388E-01_JPRB,.216E-01_JPRB,.283E-01_JPRB,.279E-01_JPRB,.471E-01_JPRB,&
+&.574E-01_JPRB,.866E-01_JPRB,.622E-01_JPRB,.408E-01_JPRB,.453E-01_JPRB,.310E-01_JPRB,.165E-01_JPRB,&
+&.175E-01_JPRB,.152E-01_JPRB,.266E-01_JPRB,.276E-01_JPRB,.247E-01_JPRB,.208E-01_JPRB,.207E-01_JPRB,&
+&.223E-01_JPRB,.250E-01_JPRB,.264E-01_JPRB,.170E-01_JPRB,.132E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,&
+&.121E-01_JPRB,.123E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 29 -22.0
+ZAER (:,29,10) = (/&
+&.101E-01_JPRB,.110E-01_JPRB,.134E-01_JPRB,.169E-01_JPRB,.209E-01_JPRB,.192E-01_JPRB,.148E-01_JPRB,&
+&.132E-01_JPRB,.121E-01_JPRB,.124E-01_JPRB,.140E-01_JPRB,.210E-01_JPRB,.321E-01_JPRB,.563E-01_JPRB,&
+&.722E-01_JPRB,.447E-01_JPRB,.328E-01_JPRB,.605E-01_JPRB,.632E-01_JPRB,.393E-01_JPRB,.292E-01_JPRB,&
+&.258E-01_JPRB,.232E-01_JPRB,.192E-01_JPRB,.161E-01_JPRB,.143E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
+&.118E-01_JPRB,.125E-01_JPRB,.149E-01_JPRB,.176E-01_JPRB,.220E-01_JPRB,.109E-01_JPRB,.957E-02_JPRB,&
+&.942E-02_JPRB,.118E-01_JPRB,.121E-01_JPRB,.160E-01_JPRB,.220E-01_JPRB,.276E-01_JPRB,.275E-01_JPRB,&
+&.364E-01_JPRB,.466E-01_JPRB,.347E-01_JPRB,.319E-01_JPRB,.418E-01_JPRB,.465E-01_JPRB,.575E-01_JPRB,&
+&.552E-01_JPRB,.513E-01_JPRB,.707E-01_JPRB,.549E-01_JPRB,.364E-01_JPRB,.252E-01_JPRB,.192E-01_JPRB,&
+&.210E-01_JPRB,.257E-01_JPRB,.237E-01_JPRB,.394E-01_JPRB,.270E-01_JPRB,.257E-01_JPRB,.276E-01_JPRB,&
+&.285E-01_JPRB,.302E-01_JPRB,.254E-01_JPRB,.200E-01_JPRB,.141E-01_JPRB,.117E-01_JPRB,.108E-01_JPRB,&
+&.105E-01_JPRB,.102E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 30 -26.0
+ZAER (:,30,10) = (/&
+&.103E-01_JPRB,.106E-01_JPRB,.116E-01_JPRB,.129E-01_JPRB,.139E-01_JPRB,.134E-01_JPRB,.117E-01_JPRB,&
+&.975E-02_JPRB,.878E-02_JPRB,.896E-02_JPRB,.860E-02_JPRB,.115E-01_JPRB,.198E-01_JPRB,.499E-01_JPRB,&
+&.387E-01_JPRB,.445E-01_JPRB,.544E-01_JPRB,.950E-01_JPRB,.934E-01_JPRB,.615E-01_JPRB,.343E-01_JPRB,&
+&.301E-01_JPRB,.269E-01_JPRB,.233E-01_JPRB,.199E-01_JPRB,.167E-01_JPRB,.143E-01_JPRB,.130E-01_JPRB,&
+&.116E-01_JPRB,.121E-01_JPRB,.125E-01_JPRB,.136E-01_JPRB,.194E-01_JPRB,.222E-01_JPRB,.109E-01_JPRB,&
+&.100E-01_JPRB,.968E-02_JPRB,.121E-01_JPRB,.163E-01_JPRB,.312E-01_JPRB,.460E-01_JPRB,.433E-01_JPRB,&
+&.443E-01_JPRB,.445E-01_JPRB,.468E-01_JPRB,.618E-01_JPRB,.900E-01_JPRB,.103E+00_JPRB,.397E-01_JPRB,&
+&.343E-01_JPRB,.481E-01_JPRB,.673E-01_JPRB,.573E-01_JPRB,.241E-01_JPRB,.181E-01_JPRB,.133E-01_JPRB,&
+&.156E-01_JPRB,.280E-01_JPRB,.354E-01_JPRB,.365E-01_JPRB,.487E-01_JPRB,.438E-01_JPRB,.465E-01_JPRB,&
+&.486E-01_JPRB,.327E-01_JPRB,.257E-01_JPRB,.200E-01_JPRB,.168E-01_JPRB,.139E-01_JPRB,.117E-01_JPRB,&
+&.107E-01_JPRB,.103E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 31 -30.0
+ZAER (:,31,10) = (/&
+&.119E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.115E-01_JPRB,&
+&.994E-02_JPRB,.946E-02_JPRB,.925E-02_JPRB,.916E-02_JPRB,.108E-01_JPRB,.183E-01_JPRB,.466E-01_JPRB,&
+&.309E-01_JPRB,.444E-01_JPRB,.811E-01_JPRB,.932E-01_JPRB,.792E-01_JPRB,.574E-01_JPRB,.674E-01_JPRB,&
+&.487E-01_JPRB,.370E-01_JPRB,.297E-01_JPRB,.242E-01_JPRB,.200E-01_JPRB,.179E-01_JPRB,.170E-01_JPRB,&
+&.162E-01_JPRB,.155E-01_JPRB,.141E-01_JPRB,.131E-01_JPRB,.151E-01_JPRB,.204E-01_JPRB,.115E-01_JPRB,&
+&.100E-01_JPRB,.126E-01_JPRB,.160E-01_JPRB,.194E-01_JPRB,.286E-01_JPRB,.460E-01_JPRB,.520E-01_JPRB,&
+&.459E-01_JPRB,.453E-01_JPRB,.534E-01_JPRB,.834E-01_JPRB,.802E-01_JPRB,.570E-01_JPRB,.447E-01_JPRB,&
+&.408E-01_JPRB,.453E-01_JPRB,.364E-01_JPRB,.201E-01_JPRB,.801E-02_JPRB,.492E-02_JPRB,.458E-02_JPRB,&
+&.866E-02_JPRB,.254E-01_JPRB,.467E-01_JPRB,.498E-01_JPRB,.435E-01_JPRB,.720E-01_JPRB,.826E-01_JPRB,&
+&.746E-01_JPRB,.422E-01_JPRB,.297E-01_JPRB,.228E-01_JPRB,.193E-01_JPRB,.164E-01_JPRB,.139E-01_JPRB,&
+&.124E-01_JPRB,.122E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 32 -34.0
+ZAER (:,32,10) = (/&
+&.141E-01_JPRB,.131E-01_JPRB,.131E-01_JPRB,.127E-01_JPRB,.122E-01_JPRB,.124E-01_JPRB,.118E-01_JPRB,&
+&.114E-01_JPRB,.104E-01_JPRB,.966E-02_JPRB,.102E-01_JPRB,.123E-01_JPRB,.223E-01_JPRB,.278E-01_JPRB,&
+&.310E-01_JPRB,.398E-01_JPRB,.770E-01_JPRB,.111E+00_JPRB,.102E+00_JPRB,.758E-01_JPRB,.710E-01_JPRB,&
+&.826E-01_JPRB,.507E-01_JPRB,.344E-01_JPRB,.272E-01_JPRB,.250E-01_JPRB,.223E-01_JPRB,.200E-01_JPRB,&
+&.177E-01_JPRB,.163E-01_JPRB,.145E-01_JPRB,.144E-01_JPRB,.153E-01_JPRB,.174E-01_JPRB,.226E-01_JPRB,&
+&.128E-01_JPRB,.120E-01_JPRB,.133E-01_JPRB,.185E-01_JPRB,.470E-01_JPRB,.645E-01_JPRB,.813E-01_JPRB,&
+&.861E-01_JPRB,.103E+00_JPRB,.639E-01_JPRB,.720E-01_JPRB,.469E-01_JPRB,.565E-01_JPRB,.480E-01_JPRB,&
+&.321E-01_JPRB,.267E-01_JPRB,.231E-01_JPRB,.104E-01_JPRB,.591E-02_JPRB,.475E-02_JPRB,.462E-02_JPRB,&
+&.633E-02_JPRB,.225E-01_JPRB,.437E-01_JPRB,.487E-01_JPRB,.440E-01_JPRB,.102E+00_JPRB,.848E-01_JPRB,&
+&.411E-01_JPRB,.451E-01_JPRB,.328E-01_JPRB,.259E-01_JPRB,.216E-01_JPRB,.191E-01_JPRB,.167E-01_JPRB,&
+&.153E-01_JPRB,.149E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 33 -38.0
+ZAER (:,33,10) = (/&
+&.158E-01_JPRB,.152E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,.138E-01_JPRB,.127E-01_JPRB,&
+&.121E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.123E-01_JPRB,.164E-01_JPRB,.133E-01_JPRB,.198E-01_JPRB,&
+&.214E-01_JPRB,.277E-01_JPRB,.637E-01_JPRB,.110E+00_JPRB,.107E+00_JPRB,.865E-01_JPRB,.729E-01_JPRB,&
+&.996E-01_JPRB,.648E-01_JPRB,.431E-01_JPRB,.360E-01_JPRB,.299E-01_JPRB,.242E-01_JPRB,.202E-01_JPRB,&
+&.182E-01_JPRB,.168E-01_JPRB,.151E-01_JPRB,.168E-01_JPRB,.177E-01_JPRB,.181E-01_JPRB,.261E-01_JPRB,&
+&.176E-01_JPRB,.268E-01_JPRB,.323E-01_JPRB,.361E-01_JPRB,.469E-01_JPRB,.612E-01_JPRB,.674E-01_JPRB,&
+&.497E-01_JPRB,.592E-01_JPRB,.632E-01_JPRB,.643E-01_JPRB,.644E-01_JPRB,.542E-01_JPRB,.462E-01_JPRB,&
+&.595E-01_JPRB,.304E-01_JPRB,.188E-01_JPRB,.212E-01_JPRB,.197E-01_JPRB,.114E-01_JPRB,.102E-01_JPRB,&
+&.117E-01_JPRB,.157E-01_JPRB,.305E-01_JPRB,.429E-01_JPRB,.825E-01_JPRB,.802E-01_JPRB,.786E-01_JPRB,&
+&.608E-01_JPRB,.279E-01_JPRB,.355E-01_JPRB,.259E-01_JPRB,.222E-01_JPRB,.203E-01_JPRB,.187E-01_JPRB,&
+&.178E-01_JPRB,.165E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 34 -42.0
+ZAER (:,34,10) = (/&
+&.180E-01_JPRB,.162E-01_JPRB,.172E-01_JPRB,.180E-01_JPRB,.170E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,&
+&.139E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.155E-01_JPRB,.208E-01_JPRB,.139E-01_JPRB,.156E-01_JPRB,&
+&.199E-01_JPRB,.238E-01_JPRB,.492E-01_JPRB,.853E-01_JPRB,.780E-01_JPRB,.708E-01_JPRB,.606E-01_JPRB,&
+&.606E-01_JPRB,.827E-01_JPRB,.622E-01_JPRB,.442E-01_JPRB,.323E-01_JPRB,.274E-01_JPRB,.208E-01_JPRB,&
+&.176E-01_JPRB,.167E-01_JPRB,.164E-01_JPRB,.162E-01_JPRB,.169E-01_JPRB,.198E-01_JPRB,.265E-01_JPRB,&
+&.229E-01_JPRB,.274E-01_JPRB,.459E-01_JPRB,.575E-01_JPRB,.868E-01_JPRB,.658E-01_JPRB,.607E-01_JPRB,&
+&.992E-01_JPRB,.127E+00_JPRB,.746E-01_JPRB,.766E-01_JPRB,.130E+00_JPRB,.460E-01_JPRB,.534E-01_JPRB,&
+&.828E-01_JPRB,.604E-01_JPRB,.372E-01_JPRB,.336E-01_JPRB,.421E-01_JPRB,.315E-01_JPRB,.228E-01_JPRB,&
+&.211E-01_JPRB,.182E-01_JPRB,.217E-01_JPRB,.302E-01_JPRB,.493E-01_JPRB,.526E-01_JPRB,.602E-01_JPRB,&
+&.692E-01_JPRB,.503E-01_JPRB,.432E-01_JPRB,.280E-01_JPRB,.240E-01_JPRB,.221E-01_JPRB,.208E-01_JPRB,&
+&.209E-01_JPRB,.199E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 35 -46.0
+ZAER (:,35,10) = (/&
+&.264E-01_JPRB,.239E-01_JPRB,.227E-01_JPRB,.212E-01_JPRB,.204E-01_JPRB,.202E-01_JPRB,.188E-01_JPRB,&
+&.170E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.169E-01_JPRB,.229E-01_JPRB,.169E-01_JPRB,.158E-01_JPRB,&
+&.198E-01_JPRB,.225E-01_JPRB,.384E-01_JPRB,.484E-01_JPRB,.477E-01_JPRB,.615E-01_JPRB,.590E-01_JPRB,&
+&.618E-01_JPRB,.527E-01_JPRB,.448E-01_JPRB,.514E-01_JPRB,.353E-01_JPRB,.270E-01_JPRB,.198E-01_JPRB,&
+&.160E-01_JPRB,.155E-01_JPRB,.158E-01_JPRB,.151E-01_JPRB,.157E-01_JPRB,.172E-01_JPRB,.237E-01_JPRB,&
+&.391E-01_JPRB,.277E-01_JPRB,.310E-01_JPRB,.349E-01_JPRB,.465E-01_JPRB,.597E-01_JPRB,.654E-01_JPRB,&
+&.809E-01_JPRB,.908E-01_JPRB,.799E-01_JPRB,.792E-01_JPRB,.116E+00_JPRB,.493E-01_JPRB,.546E-01_JPRB,&
+&.694E-01_JPRB,.650E-01_JPRB,.451E-01_JPRB,.629E-01_JPRB,.609E-01_JPRB,.339E-01_JPRB,.287E-01_JPRB,&
+&.247E-01_JPRB,.253E-01_JPRB,.299E-01_JPRB,.375E-01_JPRB,.423E-01_JPRB,.537E-01_JPRB,.544E-01_JPRB,&
+&.383E-01_JPRB,.454E-01_JPRB,.411E-01_JPRB,.335E-01_JPRB,.343E-01_JPRB,.302E-01_JPRB,.275E-01_JPRB,&
+&.270E-01_JPRB,.272E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 36 -50.0
+ZAER (:,36,10) = (/&
+&.283E-01_JPRB,.269E-01_JPRB,.235E-01_JPRB,.222E-01_JPRB,.222E-01_JPRB,.241E-01_JPRB,.230E-01_JPRB,&
+&.213E-01_JPRB,.183E-01_JPRB,.176E-01_JPRB,.188E-01_JPRB,.119E-01_JPRB,.143E-01_JPRB,.141E-01_JPRB,&
+&.190E-01_JPRB,.238E-01_JPRB,.270E-01_JPRB,.298E-01_JPRB,.298E-01_JPRB,.422E-01_JPRB,.408E-01_JPRB,&
+&.504E-01_JPRB,.503E-01_JPRB,.387E-01_JPRB,.423E-01_JPRB,.320E-01_JPRB,.215E-01_JPRB,.156E-01_JPRB,&
+&.143E-01_JPRB,.147E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.158E-01_JPRB,.172E-01_JPRB,.213E-01_JPRB,&
+&.314E-01_JPRB,.251E-01_JPRB,.313E-01_JPRB,.325E-01_JPRB,.400E-01_JPRB,.583E-01_JPRB,.650E-01_JPRB,&
+&.673E-01_JPRB,.807E-01_JPRB,.846E-01_JPRB,.739E-01_JPRB,.660E-01_JPRB,.611E-01_JPRB,.568E-01_JPRB,&
+&.520E-01_JPRB,.600E-01_JPRB,.538E-01_JPRB,.717E-01_JPRB,.538E-01_JPRB,.446E-01_JPRB,.426E-01_JPRB,&
+&.391E-01_JPRB,.424E-01_JPRB,.415E-01_JPRB,.368E-01_JPRB,.344E-01_JPRB,.369E-01_JPRB,.381E-01_JPRB,&
+&.343E-01_JPRB,.293E-01_JPRB,.406E-01_JPRB,.328E-01_JPRB,.359E-01_JPRB,.351E-01_JPRB,.330E-01_JPRB,&
+&.314E-01_JPRB,.293E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 37 -54.0
+ZAER (:,37,10) = (/&
+&.275E-01_JPRB,.256E-01_JPRB,.239E-01_JPRB,.229E-01_JPRB,.228E-01_JPRB,.286E-01_JPRB,.270E-01_JPRB,&
+&.226E-01_JPRB,.194E-01_JPRB,.188E-01_JPRB,.112E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.131E-01_JPRB,&
+&.181E-01_JPRB,.226E-01_JPRB,.211E-01_JPRB,.252E-01_JPRB,.198E-01_JPRB,.206E-01_JPRB,.391E-01_JPRB,&
+&.289E-01_JPRB,.300E-01_JPRB,.243E-01_JPRB,.194E-01_JPRB,.272E-01_JPRB,.173E-01_JPRB,.133E-01_JPRB,&
+&.136E-01_JPRB,.142E-01_JPRB,.147E-01_JPRB,.159E-01_JPRB,.189E-01_JPRB,.209E-01_JPRB,.257E-01_JPRB,&
+&.196E-01_JPRB,.402E-01_JPRB,.521E-01_JPRB,.337E-01_JPRB,.440E-01_JPRB,.626E-01_JPRB,.642E-01_JPRB,&
+&.650E-01_JPRB,.662E-01_JPRB,.656E-01_JPRB,.801E-01_JPRB,.689E-01_JPRB,.598E-01_JPRB,.580E-01_JPRB,&
+&.563E-01_JPRB,.582E-01_JPRB,.674E-01_JPRB,.878E-01_JPRB,.728E-01_JPRB,.676E-01_JPRB,.689E-01_JPRB,&
+&.581E-01_JPRB,.526E-01_JPRB,.439E-01_JPRB,.372E-01_JPRB,.362E-01_JPRB,.329E-01_JPRB,.298E-01_JPRB,&
+&.276E-01_JPRB,.476E-01_JPRB,.444E-01_JPRB,.385E-01_JPRB,.378E-01_JPRB,.227E-01_JPRB,.373E-01_JPRB,&
+&.330E-01_JPRB,.293E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 38 -58.0
+ZAER (:,38,10) = (/&
+&.258E-01_JPRB,.248E-01_JPRB,.222E-01_JPRB,.223E-01_JPRB,.239E-01_JPRB,.321E-01_JPRB,.288E-01_JPRB,&
+&.236E-01_JPRB,.206E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.111E-01_JPRB,.125E-01_JPRB,.129E-01_JPRB,&
+&.154E-01_JPRB,.182E-01_JPRB,.178E-01_JPRB,.153E-01_JPRB,.192E-01_JPRB,.183E-01_JPRB,.220E-01_JPRB,&
+&.161E-01_JPRB,.171E-01_JPRB,.148E-01_JPRB,.232E-01_JPRB,.175E-01_JPRB,.147E-01_JPRB,.140E-01_JPRB,&
+&.129E-01_JPRB,.133E-01_JPRB,.149E-01_JPRB,.168E-01_JPRB,.203E-01_JPRB,.241E-01_JPRB,.285E-01_JPRB,&
+&.375E-01_JPRB,.430E-01_JPRB,.535E-01_JPRB,.337E-01_JPRB,.370E-01_JPRB,.624E-01_JPRB,.360E-01_JPRB,&
+&.414E-01_JPRB,.460E-01_JPRB,.445E-01_JPRB,.541E-01_JPRB,.585E-01_JPRB,.588E-01_JPRB,.621E-01_JPRB,&
+&.668E-01_JPRB,.616E-01_JPRB,.560E-01_JPRB,.650E-01_JPRB,.662E-01_JPRB,.655E-01_JPRB,.686E-01_JPRB,&
+&.635E-01_JPRB,.593E-01_JPRB,.542E-01_JPRB,.474E-01_JPRB,.429E-01_JPRB,.398E-01_JPRB,.376E-01_JPRB,&
+&.308E-01_JPRB,.272E-01_JPRB,.432E-01_JPRB,.414E-01_JPRB,.345E-01_JPRB,.174E-01_JPRB,.303E-01_JPRB,&
+&.298E-01_JPRB,.275E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 39 -62.0
+ZAER (:,39,10) = (/&
+&.251E-01_JPRB,.230E-01_JPRB,.227E-01_JPRB,.254E-01_JPRB,.159E-01_JPRB,.156E-01_JPRB,.161E-01_JPRB,&
+&.129E-01_JPRB,.105E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.116E-01_JPRB,.135E-01_JPRB,.146E-01_JPRB,&
+&.143E-01_JPRB,.140E-01_JPRB,.123E-01_JPRB,.132E-01_JPRB,.205E-01_JPRB,.213E-01_JPRB,.209E-01_JPRB,&
+&.124E-01_JPRB,.214E-01_JPRB,.213E-01_JPRB,.183E-01_JPRB,.151E-01_JPRB,.123E-01_JPRB,.768E-02_JPRB,&
+&.136E-01_JPRB,.136E-01_JPRB,.145E-01_JPRB,.148E-01_JPRB,.165E-01_JPRB,.191E-01_JPRB,.213E-01_JPRB,&
+&.259E-01_JPRB,.302E-01_JPRB,.348E-01_JPRB,.207E-01_JPRB,.226E-01_JPRB,.357E-01_JPRB,.262E-01_JPRB,&
+&.306E-01_JPRB,.378E-01_JPRB,.394E-01_JPRB,.403E-01_JPRB,.424E-01_JPRB,.474E-01_JPRB,.526E-01_JPRB,&
+&.605E-01_JPRB,.601E-01_JPRB,.572E-01_JPRB,.561E-01_JPRB,.624E-01_JPRB,.677E-01_JPRB,.716E-01_JPRB,&
+&.684E-01_JPRB,.663E-01_JPRB,.609E-01_JPRB,.553E-01_JPRB,.500E-01_JPRB,.469E-01_JPRB,.401E-01_JPRB,&
+&.318E-01_JPRB,.260E-01_JPRB,.248E-01_JPRB,.224E-01_JPRB,.196E-01_JPRB,.170E-01_JPRB,.147E-01_JPRB,&
+&.148E-01_JPRB,.245E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 40 -66.0
+ZAER (:,40,10) = (/&
+&.166E-01_JPRB,.160E-01_JPRB,.256E-01_JPRB,.264E-01_JPRB,.164E-01_JPRB,.163E-01_JPRB,.160E-01_JPRB,&
+&.145E-01_JPRB,.131E-01_JPRB,.117E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,.120E-01_JPRB,.117E-01_JPRB,&
+&.124E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,.121E-01_JPRB,.133E-01_JPRB,.134E-01_JPRB,.221E-01_JPRB,&
+&.131E-01_JPRB,.138E-01_JPRB,.149E-01_JPRB,.195E-01_JPRB,.148E-01_JPRB,.773E-02_JPRB,.815E-02_JPRB,&
+&.815E-02_JPRB,.139E-01_JPRB,.161E-01_JPRB,.179E-01_JPRB,.188E-01_JPRB,.195E-01_JPRB,.191E-01_JPRB,&
+&.189E-01_JPRB,.191E-01_JPRB,.196E-01_JPRB,.199E-01_JPRB,.121E-01_JPRB,.129E-01_JPRB,.157E-01_JPRB,&
+&.182E-01_JPRB,.207E-01_JPRB,.240E-01_JPRB,.258E-01_JPRB,.288E-01_JPRB,.417E-01_JPRB,.462E-01_JPRB,&
+&.485E-01_JPRB,.499E-01_JPRB,.502E-01_JPRB,.486E-01_JPRB,.516E-01_JPRB,.607E-01_JPRB,.727E-01_JPRB,&
+&.685E-01_JPRB,.627E-01_JPRB,.585E-01_JPRB,.538E-01_JPRB,.486E-01_JPRB,.437E-01_JPRB,.351E-01_JPRB,&
+&.276E-01_JPRB,.234E-01_JPRB,.211E-01_JPRB,.185E-01_JPRB,.167E-01_JPRB,.168E-01_JPRB,.157E-01_JPRB,&
+&.168E-01_JPRB,.168E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 41 -70.0
+ZAER (:,41,10) = (/&
+&.317E-01_JPRB,.309E-01_JPRB,.293E-01_JPRB,.272E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,.147E-01_JPRB,&
+&.141E-01_JPRB,.237E-01_JPRB,.230E-01_JPRB,.133E-01_JPRB,.215E-01_JPRB,.213E-01_JPRB,.128E-01_JPRB,&
+&.130E-01_JPRB,.123E-01_JPRB,.198E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.109E-01_JPRB,.111E-01_JPRB,&
+&.117E-01_JPRB,.128E-01_JPRB,.239E-01_JPRB,.202E-01_JPRB,.170E-01_JPRB,.992E-02_JPRB,.935E-02_JPRB,&
+&.834E-02_JPRB,.688E-02_JPRB,.763E-02_JPRB,.109E-01_JPRB,.223E-01_JPRB,.231E-01_JPRB,.215E-01_JPRB,&
+&.205E-01_JPRB,.197E-01_JPRB,.186E-01_JPRB,.180E-01_JPRB,.184E-01_JPRB,.188E-01_JPRB,.132E-01_JPRB,&
+&.141E-01_JPRB,.249E-01_JPRB,.270E-01_JPRB,.318E-01_JPRB,.394E-01_JPRB,.477E-01_JPRB,.544E-01_JPRB,&
+&.526E-01_JPRB,.336E-01_JPRB,.389E-01_JPRB,.421E-01_JPRB,.397E-01_JPRB,.376E-01_JPRB,.463E-01_JPRB,&
+&.501E-01_JPRB,.478E-01_JPRB,.445E-01_JPRB,.425E-01_JPRB,.397E-01_JPRB,.355E-01_JPRB,.293E-01_JPRB,&
+&.240E-01_JPRB,.213E-01_JPRB,.191E-01_JPRB,.179E-01_JPRB,.171E-01_JPRB,.173E-01_JPRB,.165E-01_JPRB,&
+&.291E-01_JPRB,.190E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 42 -74.0
+ZAER (:,42,10) = (/&
+&.305E-01_JPRB,.287E-01_JPRB,.286E-01_JPRB,.288E-01_JPRB,.280E-01_JPRB,.267E-01_JPRB,.262E-01_JPRB,&
+&.260E-01_JPRB,.265E-01_JPRB,.269E-01_JPRB,.256E-01_JPRB,.242E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,&
+&.233E-01_JPRB,.224E-01_JPRB,.213E-01_JPRB,.206E-01_JPRB,.192E-01_JPRB,.110E-01_JPRB,.194E-01_JPRB,&
+&.195E-01_JPRB,.205E-01_JPRB,.222E-01_JPRB,.197E-01_JPRB,.103E-01_JPRB,.985E-02_JPRB,.840E-02_JPRB,&
+&.778E-02_JPRB,.754E-02_JPRB,.771E-02_JPRB,.924E-02_JPRB,.207E-01_JPRB,.236E-01_JPRB,.233E-01_JPRB,&
+&.214E-01_JPRB,.205E-01_JPRB,.199E-01_JPRB,.199E-01_JPRB,.208E-01_JPRB,.223E-01_JPRB,.237E-01_JPRB,&
+&.237E-01_JPRB,.224E-01_JPRB,.226E-01_JPRB,.232E-01_JPRB,.284E-01_JPRB,.337E-01_JPRB,.363E-01_JPRB,&
+&.445E-01_JPRB,.518E-01_JPRB,.542E-01_JPRB,.627E-01_JPRB,.469E-01_JPRB,.449E-01_JPRB,.413E-01_JPRB,&
+&.367E-01_JPRB,.331E-01_JPRB,.306E-01_JPRB,.318E-01_JPRB,.502E-01_JPRB,.492E-01_JPRB,.470E-01_JPRB,&
+&.410E-01_JPRB,.376E-01_JPRB,.328E-01_JPRB,.314E-01_JPRB,.289E-01_JPRB,.283E-01_JPRB,.291E-01_JPRB,&
+&.309E-01_JPRB,.322E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 43 -78.0
+ZAER (:,43,10) = (/&
+&.281E-01_JPRB,.276E-01_JPRB,.272E-01_JPRB,.278E-01_JPRB,.272E-01_JPRB,.266E-01_JPRB,.255E-01_JPRB,&
+&.248E-01_JPRB,.247E-01_JPRB,.252E-01_JPRB,.254E-01_JPRB,.253E-01_JPRB,.242E-01_JPRB,.221E-01_JPRB,&
+&.206E-01_JPRB,.200E-01_JPRB,.204E-01_JPRB,.215E-01_JPRB,.134E-01_JPRB,.131E-01_JPRB,.135E-01_JPRB,&
+&.225E-01_JPRB,.212E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.938E-02_JPRB,&
+&.949E-02_JPRB,.965E-02_JPRB,.108E-01_JPRB,.118E-01_JPRB,.200E-01_JPRB,.247E-01_JPRB,.241E-01_JPRB,&
+&.230E-01_JPRB,.219E-01_JPRB,.224E-01_JPRB,.231E-01_JPRB,.150E-01_JPRB,.273E-01_JPRB,.283E-01_JPRB,&
+&.275E-01_JPRB,.277E-01_JPRB,.283E-01_JPRB,.290E-01_JPRB,.304E-01_JPRB,.330E-01_JPRB,.386E-01_JPRB,&
+&.427E-01_JPRB,.448E-01_JPRB,.457E-01_JPRB,.473E-01_JPRB,.478E-01_JPRB,.443E-01_JPRB,.425E-01_JPRB,&
+&.419E-01_JPRB,.244E-01_JPRB,.411E-01_JPRB,.424E-01_JPRB,.418E-01_JPRB,.404E-01_JPRB,.408E-01_JPRB,&
+&.386E-01_JPRB,.368E-01_JPRB,.347E-01_JPRB,.322E-01_JPRB,.293E-01_JPRB,.280E-01_JPRB,.272E-01_JPRB,&
+&.271E-01_JPRB,.276E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 44 -82.0
+ZAER (:,44,10) = (/&
+&.276E-01_JPRB,.272E-01_JPRB,.269E-01_JPRB,.268E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,.261E-01_JPRB,&
+&.254E-01_JPRB,.247E-01_JPRB,.242E-01_JPRB,.238E-01_JPRB,.235E-01_JPRB,.229E-01_JPRB,.223E-01_JPRB,&
+&.222E-01_JPRB,.225E-01_JPRB,.233E-01_JPRB,.246E-01_JPRB,.240E-01_JPRB,.236E-01_JPRB,.140E-01_JPRB,&
+&.138E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,.135E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,.145E-01_JPRB,&
+&.147E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.156E-01_JPRB,.156E-01_JPRB,.261E-01_JPRB,.257E-01_JPRB,&
+&.256E-01_JPRB,.274E-01_JPRB,.272E-01_JPRB,.278E-01_JPRB,.283E-01_JPRB,.295E-01_JPRB,.313E-01_JPRB,&
+&.329E-01_JPRB,.339E-01_JPRB,.349E-01_JPRB,.365E-01_JPRB,.377E-01_JPRB,.393E-01_JPRB,.395E-01_JPRB,&
+&.383E-01_JPRB,.377E-01_JPRB,.382E-01_JPRB,.392E-01_JPRB,.411E-01_JPRB,.408E-01_JPRB,.372E-01_JPRB,&
+&.349E-01_JPRB,.339E-01_JPRB,.344E-01_JPRB,.354E-01_JPRB,.342E-01_JPRB,.335E-01_JPRB,.328E-01_JPRB,&
+&.323E-01_JPRB,.317E-01_JPRB,.311E-01_JPRB,.313E-01_JPRB,.291E-01_JPRB,.279E-01_JPRB,.271E-01_JPRB,&
+&.270E-01_JPRB,.275E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 45 -86.0
+ZAER (:,45,10) = (/&
+&.245E-01_JPRB,.243E-01_JPRB,.241E-01_JPRB,.244E-01_JPRB,.243E-01_JPRB,.240E-01_JPRB,.238E-01_JPRB,&
+&.237E-01_JPRB,.233E-01_JPRB,.229E-01_JPRB,.223E-01_JPRB,.218E-01_JPRB,.222E-01_JPRB,.224E-01_JPRB,&
+&.227E-01_JPRB,.227E-01_JPRB,.234E-01_JPRB,.238E-01_JPRB,.239E-01_JPRB,.241E-01_JPRB,.242E-01_JPRB,&
+&.243E-01_JPRB,.247E-01_JPRB,.246E-01_JPRB,.256E-01_JPRB,.255E-01_JPRB,.247E-01_JPRB,.250E-01_JPRB,&
+&.249E-01_JPRB,.248E-01_JPRB,.240E-01_JPRB,.244E-01_JPRB,.242E-01_JPRB,.245E-01_JPRB,.246E-01_JPRB,&
+&.247E-01_JPRB,.246E-01_JPRB,.248E-01_JPRB,.250E-01_JPRB,.253E-01_JPRB,.257E-01_JPRB,.260E-01_JPRB,&
+&.263E-01_JPRB,.267E-01_JPRB,.271E-01_JPRB,.276E-01_JPRB,.278E-01_JPRB,.279E-01_JPRB,.279E-01_JPRB,&
+&.276E-01_JPRB,.275E-01_JPRB,.273E-01_JPRB,.271E-01_JPRB,.271E-01_JPRB,.268E-01_JPRB,.265E-01_JPRB,&
+&.266E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,.264E-01_JPRB,.261E-01_JPRB,.259E-01_JPRB,&
+&.255E-01_JPRB,.252E-01_JPRB,.248E-01_JPRB,.250E-01_JPRB,.248E-01_JPRB,.246E-01_JPRB,.243E-01_JPRB,&
+&.242E-01_JPRB,.239E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 10 --- lat: 46 -90.0
+ZAER (:,46,10) = (/&
+&.252E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,&
+&.264E-01_JPRB,.264E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=10  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_10
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_11.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_11
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          November
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,11:11)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month: 11 --- lat:  1  90.0
+ZAER (:, 1,11) = (/&
+&.419E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,.425E-03_JPRB,&
+&.425E-03_JPRB,.425E-03_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  2  86.0
+ZAER (:, 2,11) = (/&
+&.823E-03_JPRB,.102E-02_JPRB,.119E-02_JPRB,.133E-02_JPRB,.146E-02_JPRB,.162E-02_JPRB,.172E-02_JPRB,&
+&.184E-02_JPRB,.194E-02_JPRB,.206E-02_JPRB,.212E-02_JPRB,.219E-02_JPRB,.166E-02_JPRB,.147E-02_JPRB,&
+&.130E-02_JPRB,.114E-02_JPRB,.102E-02_JPRB,.946E-03_JPRB,.838E-03_JPRB,.812E-03_JPRB,.781E-03_JPRB,&
+&.724E-03_JPRB,.723E-03_JPRB,.740E-03_JPRB,.629E-03_JPRB,.576E-03_JPRB,.547E-03_JPRB,.517E-03_JPRB,&
+&.492E-03_JPRB,.489E-03_JPRB,.487E-03_JPRB,.494E-03_JPRB,.509E-03_JPRB,.534E-03_JPRB,.557E-03_JPRB,&
+&.589E-03_JPRB,.550E-03_JPRB,.551E-03_JPRB,.548E-03_JPRB,.536E-03_JPRB,.524E-03_JPRB,.526E-03_JPRB,&
+&.514E-03_JPRB,.525E-03_JPRB,.524E-03_JPRB,.531E-03_JPRB,.532E-03_JPRB,.533E-03_JPRB,.506E-03_JPRB,&
+&.462E-03_JPRB,.426E-03_JPRB,.391E-03_JPRB,.362E-03_JPRB,.348E-03_JPRB,.332E-03_JPRB,.321E-03_JPRB,&
+&.316E-03_JPRB,.316E-03_JPRB,.324E-03_JPRB,.333E-03_JPRB,.346E-03_JPRB,.332E-03_JPRB,.330E-03_JPRB,&
+&.327E-03_JPRB,.343E-03_JPRB,.352E-03_JPRB,.385E-03_JPRB,.414E-03_JPRB,.452E-03_JPRB,.499E-03_JPRB,&
+&.557E-03_JPRB,.623E-03_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  3  82.0
+ZAER (:, 3,11) = (/&
+&.285E-02_JPRB,.327E-02_JPRB,.358E-02_JPRB,.384E-02_JPRB,.401E-02_JPRB,.414E-02_JPRB,.370E-02_JPRB,&
+&.315E-02_JPRB,.277E-02_JPRB,.255E-02_JPRB,.250E-02_JPRB,.260E-02_JPRB,.228E-02_JPRB,.227E-02_JPRB,&
+&.230E-02_JPRB,.239E-02_JPRB,.255E-02_JPRB,.279E-02_JPRB,.260E-02_JPRB,.214E-02_JPRB,.183E-02_JPRB,&
+&.158E-02_JPRB,.157E-02_JPRB,.163E-02_JPRB,.233E-02_JPRB,.203E-02_JPRB,.183E-02_JPRB,.185E-02_JPRB,&
+&.197E-02_JPRB,.224E-02_JPRB,.221E-02_JPRB,.165E-02_JPRB,.122E-02_JPRB,.958E-03_JPRB,.854E-03_JPRB,&
+&.894E-03_JPRB,.689E-03_JPRB,.639E-03_JPRB,.610E-03_JPRB,.614E-03_JPRB,.643E-03_JPRB,.712E-03_JPRB,&
+&.679E-03_JPRB,.694E-03_JPRB,.702E-03_JPRB,.697E-03_JPRB,.684E-03_JPRB,.641E-03_JPRB,.545E-03_JPRB,&
+&.490E-03_JPRB,.459E-03_JPRB,.433E-03_JPRB,.423E-03_JPRB,.423E-03_JPRB,.434E-03_JPRB,.385E-03_JPRB,&
+&.356E-03_JPRB,.342E-03_JPRB,.347E-03_JPRB,.368E-03_JPRB,.446E-03_JPRB,.412E-03_JPRB,.416E-03_JPRB,&
+&.442E-03_JPRB,.505E-03_JPRB,.575E-03_JPRB,.785E-03_JPRB,.873E-03_JPRB,.105E-02_JPRB,.132E-02_JPRB,&
+&.168E-02_JPRB,.214E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  4  78.0
+ZAER (:, 4,11) = (/&
+&.630E-02_JPRB,.597E-02_JPRB,.605E-02_JPRB,.635E-02_JPRB,.634E-02_JPRB,.635E-02_JPRB,.548E-02_JPRB,&
+&.505E-02_JPRB,.491E-02_JPRB,.330E-02_JPRB,.292E-02_JPRB,.326E-02_JPRB,.279E-02_JPRB,.249E-02_JPRB,&
+&.266E-02_JPRB,.276E-02_JPRB,.294E-02_JPRB,.336E-02_JPRB,.313E-02_JPRB,.272E-02_JPRB,.268E-02_JPRB,&
+&.360E-02_JPRB,.340E-02_JPRB,.350E-02_JPRB,.419E-02_JPRB,.382E-02_JPRB,.411E-02_JPRB,.449E-02_JPRB,&
+&.470E-02_JPRB,.462E-02_JPRB,.373E-02_JPRB,.264E-02_JPRB,.224E-02_JPRB,.154E-02_JPRB,.128E-02_JPRB,&
+&.120E-02_JPRB,.803E-03_JPRB,.750E-03_JPRB,.777E-03_JPRB,.674E-03_JPRB,.701E-03_JPRB,.731E-03_JPRB,&
+&.675E-03_JPRB,.666E-03_JPRB,.700E-03_JPRB,.746E-03_JPRB,.742E-03_JPRB,.729E-03_JPRB,.579E-03_JPRB,&
+&.601E-03_JPRB,.780E-03_JPRB,.721E-03_JPRB,.645E-03_JPRB,.636E-03_JPRB,.553E-03_JPRB,.460E-03_JPRB,&
+&.448E-03_JPRB,.467E-03_JPRB,.465E-03_JPRB,.488E-03_JPRB,.460E-03_JPRB,.417E-03_JPRB,.497E-03_JPRB,&
+&.551E-03_JPRB,.554E-03_JPRB,.646E-03_JPRB,.669E-03_JPRB,.584E-03_JPRB,.100E-02_JPRB,.243E-02_JPRB,&
+&.379E-02_JPRB,.538E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  5  74.0
+ZAER (:, 5,11) = (/&
+&.669E-02_JPRB,.629E-02_JPRB,.602E-02_JPRB,.484E-02_JPRB,.442E-02_JPRB,.461E-02_JPRB,.472E-02_JPRB,&
+&.562E-02_JPRB,.661E-02_JPRB,.567E-02_JPRB,.499E-02_JPRB,.478E-02_JPRB,.447E-02_JPRB,.438E-02_JPRB,&
+&.472E-02_JPRB,.531E-02_JPRB,.514E-02_JPRB,.491E-02_JPRB,.437E-02_JPRB,.383E-02_JPRB,.414E-02_JPRB,&
+&.391E-02_JPRB,.309E-02_JPRB,.275E-02_JPRB,.329E-02_JPRB,.410E-02_JPRB,.505E-02_JPRB,.620E-02_JPRB,&
+&.604E-02_JPRB,.625E-02_JPRB,.640E-02_JPRB,.476E-02_JPRB,.350E-02_JPRB,.270E-02_JPRB,.211E-02_JPRB,&
+&.160E-02_JPRB,.122E-02_JPRB,.998E-03_JPRB,.843E-03_JPRB,.804E-03_JPRB,.965E-03_JPRB,.114E-02_JPRB,&
+&.123E-02_JPRB,.109E-02_JPRB,.768E-03_JPRB,.678E-03_JPRB,.858E-03_JPRB,.113E-02_JPRB,.154E-02_JPRB,&
+&.173E-02_JPRB,.178E-02_JPRB,.136E-02_JPRB,.121E-02_JPRB,.959E-03_JPRB,.821E-03_JPRB,.754E-03_JPRB,&
+&.756E-03_JPRB,.681E-03_JPRB,.685E-03_JPRB,.695E-03_JPRB,.819E-03_JPRB,.969E-03_JPRB,.106E-02_JPRB,&
+&.101E-02_JPRB,.954E-03_JPRB,.969E-03_JPRB,.107E-02_JPRB,.135E-02_JPRB,.222E-02_JPRB,.399E-02_JPRB,&
+&.626E-02_JPRB,.703E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  6  70.0
+ZAER (:, 6,11) = (/&
+&.574E-02_JPRB,.629E-02_JPRB,.716E-02_JPRB,.585E-02_JPRB,.480E-02_JPRB,.530E-02_JPRB,.564E-02_JPRB,&
+&.543E-02_JPRB,.539E-02_JPRB,.611E-02_JPRB,.816E-02_JPRB,.870E-02_JPRB,.823E-02_JPRB,.711E-02_JPRB,&
+&.650E-02_JPRB,.649E-02_JPRB,.621E-02_JPRB,.598E-02_JPRB,.534E-02_JPRB,.477E-02_JPRB,.430E-02_JPRB,&
+&.447E-02_JPRB,.399E-02_JPRB,.357E-02_JPRB,.412E-02_JPRB,.523E-02_JPRB,.601E-02_JPRB,.663E-02_JPRB,&
+&.698E-02_JPRB,.713E-02_JPRB,.749E-02_JPRB,.666E-02_JPRB,.593E-02_JPRB,.475E-02_JPRB,.358E-02_JPRB,&
+&.249E-02_JPRB,.187E-02_JPRB,.162E-02_JPRB,.163E-02_JPRB,.224E-02_JPRB,.279E-02_JPRB,.331E-02_JPRB,&
+&.392E-02_JPRB,.412E-02_JPRB,.332E-02_JPRB,.191E-02_JPRB,.159E-02_JPRB,.168E-02_JPRB,.213E-02_JPRB,&
+&.323E-02_JPRB,.441E-02_JPRB,.403E-02_JPRB,.262E-02_JPRB,.198E-02_JPRB,.182E-02_JPRB,.178E-02_JPRB,&
+&.201E-02_JPRB,.204E-02_JPRB,.204E-02_JPRB,.214E-02_JPRB,.238E-02_JPRB,.290E-02_JPRB,.268E-02_JPRB,&
+&.218E-02_JPRB,.231E-02_JPRB,.303E-02_JPRB,.372E-02_JPRB,.380E-02_JPRB,.472E-02_JPRB,.530E-02_JPRB,&
+&.605E-02_JPRB,.564E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  7  66.0
+ZAER (:, 7,11) = (/&
+&.519E-02_JPRB,.569E-02_JPRB,.545E-02_JPRB,.498E-02_JPRB,.447E-02_JPRB,.488E-02_JPRB,.659E-02_JPRB,&
+&.652E-02_JPRB,.585E-02_JPRB,.514E-02_JPRB,.518E-02_JPRB,.545E-02_JPRB,.598E-02_JPRB,.677E-02_JPRB,&
+&.803E-02_JPRB,.851E-02_JPRB,.720E-02_JPRB,.686E-02_JPRB,.704E-02_JPRB,.645E-02_JPRB,.587E-02_JPRB,&
+&.580E-02_JPRB,.565E-02_JPRB,.459E-02_JPRB,.552E-02_JPRB,.598E-02_JPRB,.543E-02_JPRB,.640E-02_JPRB,&
+&.806E-02_JPRB,.831E-02_JPRB,.844E-02_JPRB,.653E-02_JPRB,.526E-02_JPRB,.503E-02_JPRB,.478E-02_JPRB,&
+&.402E-02_JPRB,.358E-02_JPRB,.241E-02_JPRB,.262E-02_JPRB,.346E-02_JPRB,.360E-02_JPRB,.460E-02_JPRB,&
+&.512E-02_JPRB,.585E-02_JPRB,.701E-02_JPRB,.673E-02_JPRB,.617E-02_JPRB,.510E-02_JPRB,.547E-02_JPRB,&
+&.554E-02_JPRB,.552E-02_JPRB,.539E-02_JPRB,.573E-02_JPRB,.472E-02_JPRB,.470E-02_JPRB,.487E-02_JPRB,&
+&.514E-02_JPRB,.549E-02_JPRB,.621E-02_JPRB,.634E-02_JPRB,.753E-02_JPRB,.813E-02_JPRB,.784E-02_JPRB,&
+&.665E-02_JPRB,.674E-02_JPRB,.717E-02_JPRB,.787E-02_JPRB,.765E-02_JPRB,.673E-02_JPRB,.607E-02_JPRB,&
+&.576E-02_JPRB,.546E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  8  62.0
+ZAER (:, 8,11) = (/&
+&.519E-02_JPRB,.489E-02_JPRB,.519E-02_JPRB,.459E-02_JPRB,.463E-02_JPRB,.539E-02_JPRB,.563E-02_JPRB,&
+&.590E-02_JPRB,.584E-02_JPRB,.521E-02_JPRB,.498E-02_JPRB,.448E-02_JPRB,.446E-02_JPRB,.500E-02_JPRB,&
+&.639E-02_JPRB,.860E-02_JPRB,.913E-02_JPRB,.812E-02_JPRB,.753E-02_JPRB,.755E-02_JPRB,.767E-02_JPRB,&
+&.796E-02_JPRB,.600E-02_JPRB,.521E-02_JPRB,.516E-02_JPRB,.444E-02_JPRB,.456E-02_JPRB,.669E-02_JPRB,&
+&.822E-02_JPRB,.909E-02_JPRB,.833E-02_JPRB,.748E-02_JPRB,.629E-02_JPRB,.567E-02_JPRB,.519E-02_JPRB,&
+&.499E-02_JPRB,.450E-02_JPRB,.389E-02_JPRB,.441E-02_JPRB,.483E-02_JPRB,.463E-02_JPRB,.605E-02_JPRB,&
+&.657E-02_JPRB,.680E-02_JPRB,.854E-02_JPRB,.774E-02_JPRB,.812E-02_JPRB,.881E-02_JPRB,.778E-02_JPRB,&
+&.795E-02_JPRB,.901E-02_JPRB,.805E-02_JPRB,.876E-02_JPRB,.957E-02_JPRB,.877E-02_JPRB,.859E-02_JPRB,&
+&.940E-02_JPRB,.874E-02_JPRB,.919E-02_JPRB,.925E-02_JPRB,.101E-01_JPRB,.980E-02_JPRB,.969E-02_JPRB,&
+&.928E-02_JPRB,.102E-01_JPRB,.104E-01_JPRB,.916E-02_JPRB,.894E-02_JPRB,.850E-02_JPRB,.748E-02_JPRB,&
+&.682E-02_JPRB,.586E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat:  9  58.0
+ZAER (:, 9,11) = (/&
+&.540E-02_JPRB,.502E-02_JPRB,.527E-02_JPRB,.513E-02_JPRB,.539E-02_JPRB,.589E-02_JPRB,.582E-02_JPRB,&
+&.565E-02_JPRB,.590E-02_JPRB,.570E-02_JPRB,.497E-02_JPRB,.487E-02_JPRB,.608E-02_JPRB,.684E-02_JPRB,&
+&.727E-02_JPRB,.828E-02_JPRB,.804E-02_JPRB,.798E-02_JPRB,.743E-02_JPRB,.698E-02_JPRB,.756E-02_JPRB,&
+&.806E-02_JPRB,.752E-02_JPRB,.737E-02_JPRB,.641E-02_JPRB,.543E-02_JPRB,.565E-02_JPRB,.788E-02_JPRB,&
+&.818E-02_JPRB,.669E-02_JPRB,.611E-02_JPRB,.641E-02_JPRB,.702E-02_JPRB,.669E-02_JPRB,.610E-02_JPRB,&
+&.527E-02_JPRB,.475E-02_JPRB,.496E-02_JPRB,.621E-02_JPRB,.698E-02_JPRB,.683E-02_JPRB,.731E-02_JPRB,&
+&.771E-02_JPRB,.884E-02_JPRB,.911E-02_JPRB,.792E-02_JPRB,.833E-02_JPRB,.803E-02_JPRB,.943E-02_JPRB,&
+&.938E-02_JPRB,.108E-01_JPRB,.105E-01_JPRB,.956E-02_JPRB,.108E-01_JPRB,.105E-01_JPRB,.926E-02_JPRB,&
+&.924E-02_JPRB,.969E-02_JPRB,.103E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.965E-02_JPRB,.901E-02_JPRB,&
+&.754E-02_JPRB,.814E-02_JPRB,.899E-02_JPRB,.736E-02_JPRB,.740E-02_JPRB,.649E-02_JPRB,.652E-02_JPRB,&
+&.569E-02_JPRB,.566E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 10  54.0
+ZAER (:,10,11) = (/&
+&.504E-02_JPRB,.545E-02_JPRB,.581E-02_JPRB,.586E-02_JPRB,.555E-02_JPRB,.510E-02_JPRB,.487E-02_JPRB,&
+&.490E-02_JPRB,.542E-02_JPRB,.548E-02_JPRB,.522E-02_JPRB,.591E-02_JPRB,.685E-02_JPRB,.690E-02_JPRB,&
+&.703E-02_JPRB,.785E-02_JPRB,.730E-02_JPRB,.693E-02_JPRB,.709E-02_JPRB,.735E-02_JPRB,.727E-02_JPRB,&
+&.741E-02_JPRB,.474E-02_JPRB,.858E-02_JPRB,.794E-02_JPRB,.729E-02_JPRB,.742E-02_JPRB,.832E-02_JPRB,&
+&.760E-02_JPRB,.684E-02_JPRB,.716E-02_JPRB,.632E-02_JPRB,.685E-02_JPRB,.711E-02_JPRB,.665E-02_JPRB,&
+&.614E-02_JPRB,.552E-02_JPRB,.559E-02_JPRB,.569E-02_JPRB,.576E-02_JPRB,.579E-02_JPRB,.604E-02_JPRB,&
+&.634E-02_JPRB,.723E-02_JPRB,.801E-02_JPRB,.808E-02_JPRB,.909E-02_JPRB,.798E-02_JPRB,.761E-02_JPRB,&
+&.829E-02_JPRB,.847E-02_JPRB,.844E-02_JPRB,.836E-02_JPRB,.970E-02_JPRB,.947E-02_JPRB,.844E-02_JPRB,&
+&.840E-02_JPRB,.871E-02_JPRB,.103E-01_JPRB,.994E-02_JPRB,.988E-02_JPRB,.955E-02_JPRB,.892E-02_JPRB,&
+&.778E-02_JPRB,.648E-02_JPRB,.640E-02_JPRB,.457E-02_JPRB,.466E-02_JPRB,.551E-02_JPRB,.569E-02_JPRB,&
+&.588E-02_JPRB,.545E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 11  50.0
+ZAER (:,11,11) = (/&
+&.579E-02_JPRB,.567E-02_JPRB,.546E-02_JPRB,.577E-02_JPRB,.571E-02_JPRB,.574E-02_JPRB,.567E-02_JPRB,&
+&.537E-02_JPRB,.538E-02_JPRB,.546E-02_JPRB,.537E-02_JPRB,.573E-02_JPRB,.603E-02_JPRB,.622E-02_JPRB,&
+&.666E-02_JPRB,.704E-02_JPRB,.685E-02_JPRB,.640E-02_JPRB,.659E-02_JPRB,.647E-02_JPRB,.590E-02_JPRB,&
+&.539E-02_JPRB,.345E-02_JPRB,.702E-02_JPRB,.694E-02_JPRB,.742E-02_JPRB,.809E-02_JPRB,.841E-02_JPRB,&
+&.830E-02_JPRB,.829E-02_JPRB,.773E-02_JPRB,.761E-02_JPRB,.793E-02_JPRB,.761E-02_JPRB,.763E-02_JPRB,&
+&.745E-02_JPRB,.743E-02_JPRB,.734E-02_JPRB,.676E-02_JPRB,.647E-02_JPRB,.594E-02_JPRB,.589E-02_JPRB,&
+&.616E-02_JPRB,.682E-02_JPRB,.686E-02_JPRB,.661E-02_JPRB,.631E-02_JPRB,.580E-02_JPRB,.547E-02_JPRB,&
+&.565E-02_JPRB,.568E-02_JPRB,.631E-02_JPRB,.680E-02_JPRB,.712E-02_JPRB,.678E-02_JPRB,.731E-02_JPRB,&
+&.778E-02_JPRB,.820E-02_JPRB,.887E-02_JPRB,.885E-02_JPRB,.847E-02_JPRB,.881E-02_JPRB,.805E-02_JPRB,&
+&.678E-02_JPRB,.599E-02_JPRB,.539E-02_JPRB,.530E-02_JPRB,.529E-02_JPRB,.524E-02_JPRB,.590E-02_JPRB,&
+&.658E-02_JPRB,.597E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 12  46.0
+ZAER (:,12,11) = (/&
+&.655E-02_JPRB,.662E-02_JPRB,.628E-02_JPRB,.588E-02_JPRB,.557E-02_JPRB,.558E-02_JPRB,.517E-02_JPRB,&
+&.486E-02_JPRB,.480E-02_JPRB,.482E-02_JPRB,.497E-02_JPRB,.510E-02_JPRB,.493E-02_JPRB,.517E-02_JPRB,&
+&.584E-02_JPRB,.644E-02_JPRB,.632E-02_JPRB,.629E-02_JPRB,.639E-02_JPRB,.561E-02_JPRB,.475E-02_JPRB,&
+&.434E-02_JPRB,.283E-02_JPRB,.653E-02_JPRB,.781E-02_JPRB,.890E-02_JPRB,.935E-02_JPRB,.911E-02_JPRB,&
+&.893E-02_JPRB,.890E-02_JPRB,.878E-02_JPRB,.822E-02_JPRB,.739E-02_JPRB,.759E-02_JPRB,.843E-02_JPRB,&
+&.816E-02_JPRB,.767E-02_JPRB,.809E-02_JPRB,.745E-02_JPRB,.716E-02_JPRB,.686E-02_JPRB,.609E-02_JPRB,&
+&.619E-02_JPRB,.648E-02_JPRB,.687E-02_JPRB,.682E-02_JPRB,.579E-02_JPRB,.500E-02_JPRB,.530E-02_JPRB,&
+&.585E-02_JPRB,.620E-02_JPRB,.647E-02_JPRB,.685E-02_JPRB,.684E-02_JPRB,.729E-02_JPRB,.767E-02_JPRB,&
+&.775E-02_JPRB,.818E-02_JPRB,.838E-02_JPRB,.855E-02_JPRB,.878E-02_JPRB,.834E-02_JPRB,.802E-02_JPRB,&
+&.716E-02_JPRB,.598E-02_JPRB,.523E-02_JPRB,.495E-02_JPRB,.542E-02_JPRB,.533E-02_JPRB,.599E-02_JPRB,&
+&.643E-02_JPRB,.632E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 13  42.0
+ZAER (:,13,11) = (/&
+&.799E-02_JPRB,.666E-02_JPRB,.633E-02_JPRB,.585E-02_JPRB,.523E-02_JPRB,.479E-02_JPRB,.476E-02_JPRB,&
+&.451E-02_JPRB,.435E-02_JPRB,.430E-02_JPRB,.456E-02_JPRB,.490E-02_JPRB,.493E-02_JPRB,.516E-02_JPRB,&
+&.524E-02_JPRB,.525E-02_JPRB,.496E-02_JPRB,.518E-02_JPRB,.533E-02_JPRB,.480E-02_JPRB,.412E-02_JPRB,&
+&.390E-02_JPRB,.277E-02_JPRB,.378E-02_JPRB,.812E-02_JPRB,.948E-02_JPRB,.101E-01_JPRB,.962E-02_JPRB,&
+&.919E-02_JPRB,.881E-02_JPRB,.884E-02_JPRB,.775E-02_JPRB,.755E-02_JPRB,.722E-02_JPRB,.664E-02_JPRB,&
+&.620E-02_JPRB,.646E-02_JPRB,.613E-02_JPRB,.641E-02_JPRB,.697E-02_JPRB,.664E-02_JPRB,.622E-02_JPRB,&
+&.673E-02_JPRB,.729E-02_JPRB,.735E-02_JPRB,.734E-02_JPRB,.723E-02_JPRB,.696E-02_JPRB,.746E-02_JPRB,&
+&.784E-02_JPRB,.794E-02_JPRB,.779E-02_JPRB,.751E-02_JPRB,.755E-02_JPRB,.718E-02_JPRB,.731E-02_JPRB,&
+&.751E-02_JPRB,.702E-02_JPRB,.693E-02_JPRB,.696E-02_JPRB,.758E-02_JPRB,.722E-02_JPRB,.698E-02_JPRB,&
+&.636E-02_JPRB,.618E-02_JPRB,.548E-02_JPRB,.551E-02_JPRB,.584E-02_JPRB,.616E-02_JPRB,.631E-02_JPRB,&
+&.672E-02_JPRB,.667E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 14  38.0
+ZAER (:,14,11) = (/&
+&.796E-02_JPRB,.691E-02_JPRB,.668E-02_JPRB,.609E-02_JPRB,.589E-02_JPRB,.604E-02_JPRB,.639E-02_JPRB,&
+&.618E-02_JPRB,.547E-02_JPRB,.566E-02_JPRB,.512E-02_JPRB,.552E-02_JPRB,.498E-02_JPRB,.524E-02_JPRB,&
+&.511E-02_JPRB,.510E-02_JPRB,.428E-02_JPRB,.419E-02_JPRB,.448E-02_JPRB,.452E-02_JPRB,.451E-02_JPRB,&
+&.447E-02_JPRB,.371E-02_JPRB,.610E-02_JPRB,.645E-02_JPRB,.122E-01_JPRB,.121E-01_JPRB,.111E-01_JPRB,&
+&.980E-02_JPRB,.933E-02_JPRB,.880E-02_JPRB,.857E-02_JPRB,.799E-02_JPRB,.672E-02_JPRB,.624E-02_JPRB,&
+&.618E-02_JPRB,.654E-02_JPRB,.608E-02_JPRB,.627E-02_JPRB,.677E-02_JPRB,.712E-02_JPRB,.777E-02_JPRB,&
+&.838E-02_JPRB,.873E-02_JPRB,.917E-02_JPRB,.932E-02_JPRB,.887E-02_JPRB,.863E-02_JPRB,.861E-02_JPRB,&
+&.868E-02_JPRB,.888E-02_JPRB,.903E-02_JPRB,.874E-02_JPRB,.834E-02_JPRB,.810E-02_JPRB,.775E-02_JPRB,&
+&.721E-02_JPRB,.675E-02_JPRB,.617E-02_JPRB,.608E-02_JPRB,.616E-02_JPRB,.719E-02_JPRB,.752E-02_JPRB,&
+&.739E-02_JPRB,.712E-02_JPRB,.390E-02_JPRB,.678E-02_JPRB,.799E-02_JPRB,.849E-02_JPRB,.863E-02_JPRB,&
+&.817E-02_JPRB,.667E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 15  34.0
+ZAER (:,15,11) = (/&
+&.899E-02_JPRB,.820E-02_JPRB,.806E-02_JPRB,.762E-02_JPRB,.740E-02_JPRB,.711E-02_JPRB,.736E-02_JPRB,&
+&.724E-02_JPRB,.717E-02_JPRB,.640E-02_JPRB,.611E-02_JPRB,.624E-02_JPRB,.569E-02_JPRB,.561E-02_JPRB,&
+&.542E-02_JPRB,.522E-02_JPRB,.474E-02_JPRB,.436E-02_JPRB,.414E-02_JPRB,.422E-02_JPRB,.463E-02_JPRB,&
+&.824E-02_JPRB,.648E-02_JPRB,.112E-01_JPRB,.106E-01_JPRB,.100E-01_JPRB,.166E-01_JPRB,.157E-01_JPRB,&
+&.146E-01_JPRB,.131E-01_JPRB,.105E-01_JPRB,.942E-02_JPRB,.833E-02_JPRB,.730E-02_JPRB,.742E-02_JPRB,&
+&.711E-02_JPRB,.738E-02_JPRB,.733E-02_JPRB,.782E-02_JPRB,.872E-02_JPRB,.554E-02_JPRB,.128E-01_JPRB,&
+&.138E-01_JPRB,.141E-01_JPRB,.134E-01_JPRB,.125E-01_JPRB,.115E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,&
+&.997E-02_JPRB,.920E-02_JPRB,.916E-02_JPRB,.904E-02_JPRB,.879E-02_JPRB,.840E-02_JPRB,.773E-02_JPRB,&
+&.734E-02_JPRB,.653E-02_JPRB,.630E-02_JPRB,.718E-02_JPRB,.457E-02_JPRB,.891E-02_JPRB,.922E-02_JPRB,&
+&.945E-02_JPRB,.572E-02_JPRB,.609E-02_JPRB,.621E-02_JPRB,.121E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,&
+&.100E-01_JPRB,.895E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 16  30.0
+ZAER (:,16,11) = (/&
+&.116E-01_JPRB,.108E-01_JPRB,.976E-02_JPRB,.933E-02_JPRB,.913E-02_JPRB,.993E-02_JPRB,.986E-02_JPRB,&
+&.901E-02_JPRB,.914E-02_JPRB,.899E-02_JPRB,.869E-02_JPRB,.834E-02_JPRB,.779E-02_JPRB,.748E-02_JPRB,&
+&.763E-02_JPRB,.705E-02_JPRB,.591E-02_JPRB,.540E-02_JPRB,.559E-02_JPRB,.569E-02_JPRB,.627E-02_JPRB,&
+&.139E-01_JPRB,.108E-01_JPRB,.150E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,.236E-01_JPRB,.224E-01_JPRB,&
+&.194E-01_JPRB,.156E-01_JPRB,.125E-01_JPRB,.118E-01_JPRB,.104E-01_JPRB,.955E-02_JPRB,.959E-02_JPRB,&
+&.927E-02_JPRB,.936E-02_JPRB,.950E-02_JPRB,.104E-01_JPRB,.130E-01_JPRB,.110E-01_JPRB,.161E-01_JPRB,&
+&.158E-01_JPRB,.284E-01_JPRB,.198E-01_JPRB,.161E-01_JPRB,.148E-01_JPRB,.146E-01_JPRB,.129E-01_JPRB,&
+&.109E-01_JPRB,.103E-01_JPRB,.102E-01_JPRB,.963E-02_JPRB,.900E-02_JPRB,.988E-02_JPRB,.945E-02_JPRB,&
+&.855E-02_JPRB,.756E-02_JPRB,.827E-02_JPRB,.567E-02_JPRB,.684E-02_JPRB,.759E-02_JPRB,.813E-02_JPRB,&
+&.883E-02_JPRB,.894E-02_JPRB,.974E-02_JPRB,.104E-01_JPRB,.189E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,&
+&.129E-01_JPRB,.115E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 17  26.0
+ZAER (:,17,11) = (/&
+&.143E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.129E-01_JPRB,.126E-01_JPRB,.118E-01_JPRB,.118E-01_JPRB,&
+&.115E-01_JPRB,.125E-01_JPRB,.130E-01_JPRB,.129E-01_JPRB,.125E-01_JPRB,.111E-01_JPRB,.978E-02_JPRB,&
+&.970E-02_JPRB,.856E-02_JPRB,.730E-02_JPRB,.713E-02_JPRB,.720E-02_JPRB,.847E-02_JPRB,.982E-02_JPRB,&
+&.190E-01_JPRB,.135E-01_JPRB,.151E-01_JPRB,.193E-01_JPRB,.182E-01_JPRB,.189E-01_JPRB,.289E-01_JPRB,&
+&.213E-01_JPRB,.167E-01_JPRB,.146E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,&
+&.115E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,.167E-01_JPRB,.117E-01_JPRB,.145E-01_JPRB,.219E-01_JPRB,&
+&.175E-01_JPRB,.324E-01_JPRB,.198E-01_JPRB,.161E-01_JPRB,.176E-01_JPRB,.177E-01_JPRB,.137E-01_JPRB,&
+&.115E-01_JPRB,.110E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.965E-02_JPRB,&
+&.953E-02_JPRB,.109E-01_JPRB,.136E-01_JPRB,.117E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.108E-01_JPRB,&
+&.106E-01_JPRB,.116E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.191E-01_JPRB,.177E-01_JPRB,.152E-01_JPRB,&
+&.149E-01_JPRB,.148E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 18  22.0
+ZAER (:,18,11) = (/&
+&.171E-01_JPRB,.160E-01_JPRB,.154E-01_JPRB,.141E-01_JPRB,.140E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,&
+&.143E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.142E-01_JPRB,.119E-01_JPRB,.112E-01_JPRB,&
+&.109E-01_JPRB,.101E-01_JPRB,.101E-01_JPRB,.112E-01_JPRB,.121E-01_JPRB,.128E-01_JPRB,.162E-01_JPRB,&
+&.381E-01_JPRB,.228E-01_JPRB,.155E-01_JPRB,.169E-01_JPRB,.161E-01_JPRB,.246E-01_JPRB,.184E-01_JPRB,&
+&.208E-01_JPRB,.172E-01_JPRB,.163E-01_JPRB,.155E-01_JPRB,.138E-01_JPRB,.127E-01_JPRB,.135E-01_JPRB,&
+&.155E-01_JPRB,.172E-01_JPRB,.203E-01_JPRB,.231E-01_JPRB,.137E-01_JPRB,.146E-01_JPRB,.189E-01_JPRB,&
+&.156E-01_JPRB,.126E-01_JPRB,.155E-01_JPRB,.943E-02_JPRB,.198E-01_JPRB,.262E-01_JPRB,.196E-01_JPRB,&
+&.128E-01_JPRB,.123E-01_JPRB,.134E-01_JPRB,.135E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.126E-01_JPRB,&
+&.143E-01_JPRB,.183E-01_JPRB,.241E-01_JPRB,.295E-01_JPRB,.152E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,&
+&.103E-01_JPRB,.108E-01_JPRB,.114E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,.209E-01_JPRB,.232E-01_JPRB,&
+&.232E-01_JPRB,.199E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 19  18.0
+ZAER (:,19,11) = (/&
+&.193E-01_JPRB,.172E-01_JPRB,.165E-01_JPRB,.151E-01_JPRB,.153E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,&
+&.164E-01_JPRB,.169E-01_JPRB,.170E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.133E-01_JPRB,.133E-01_JPRB,&
+&.147E-01_JPRB,.155E-01_JPRB,.175E-01_JPRB,.184E-01_JPRB,.180E-01_JPRB,.191E-01_JPRB,.318E-01_JPRB,&
+&.849E-01_JPRB,.266E-01_JPRB,.162E-01_JPRB,.139E-01_JPRB,.132E-01_JPRB,.176E-01_JPRB,.176E-01_JPRB,&
+&.137E-01_JPRB,.176E-01_JPRB,.155E-01_JPRB,.162E-01_JPRB,.159E-01_JPRB,.148E-01_JPRB,.166E-01_JPRB,&
+&.198E-01_JPRB,.220E-01_JPRB,.254E-01_JPRB,.229E-01_JPRB,.128E-01_JPRB,.155E-01_JPRB,.210E-01_JPRB,&
+&.131E-01_JPRB,.993E-02_JPRB,.141E-01_JPRB,.955E-02_JPRB,.178E-01_JPRB,.209E-01_JPRB,.187E-01_JPRB,&
+&.158E-01_JPRB,.171E-01_JPRB,.186E-01_JPRB,.195E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.226E-01_JPRB,&
+&.263E-01_JPRB,.307E-01_JPRB,.341E-01_JPRB,.345E-01_JPRB,.287E-01_JPRB,.135E-01_JPRB,.134E-01_JPRB,&
+&.131E-01_JPRB,.130E-01_JPRB,.127E-01_JPRB,.230E-01_JPRB,.284E-01_JPRB,.353E-01_JPRB,.460E-01_JPRB,&
+&.416E-01_JPRB,.259E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 20  14.0
+ZAER (:,20,11) = (/&
+&.190E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.161E-01_JPRB,.166E-01_JPRB,.172E-01_JPRB,.177E-01_JPRB,&
+&.182E-01_JPRB,.193E-01_JPRB,.192E-01_JPRB,.184E-01_JPRB,.177E-01_JPRB,.173E-01_JPRB,.169E-01_JPRB,&
+&.187E-01_JPRB,.220E-01_JPRB,.249E-01_JPRB,.249E-01_JPRB,.246E-01_JPRB,.330E-01_JPRB,.604E-01_JPRB,&
+&.423E-01_JPRB,.262E-01_JPRB,.167E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.125E-01_JPRB,.142E-01_JPRB,&
+&.134E-01_JPRB,.177E-01_JPRB,.170E-01_JPRB,.167E-01_JPRB,.157E-01_JPRB,.170E-01_JPRB,.199E-01_JPRB,&
+&.245E-01_JPRB,.265E-01_JPRB,.282E-01_JPRB,.224E-01_JPRB,.120E-01_JPRB,.130E-01_JPRB,.212E-01_JPRB,&
+&.143E-01_JPRB,.914E-02_JPRB,.818E-02_JPRB,.154E-01_JPRB,.159E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,&
+&.172E-01_JPRB,.186E-01_JPRB,.208E-01_JPRB,.238E-01_JPRB,.277E-01_JPRB,.329E-01_JPRB,.399E-01_JPRB,&
+&.479E-01_JPRB,.526E-01_JPRB,.528E-01_JPRB,.475E-01_JPRB,.434E-01_JPRB,.410E-01_JPRB,.243E-01_JPRB,&
+&.209E-01_JPRB,.349E-01_JPRB,.372E-01_JPRB,.395E-01_JPRB,.411E-01_JPRB,.436E-01_JPRB,.500E-01_JPRB,&
+&.321E-01_JPRB,.234E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 21  10.0
+ZAER (:,21,11) = (/&
+&.184E-01_JPRB,.178E-01_JPRB,.181E-01_JPRB,.187E-01_JPRB,.195E-01_JPRB,.201E-01_JPRB,.204E-01_JPRB,&
+&.212E-01_JPRB,.222E-01_JPRB,.226E-01_JPRB,.216E-01_JPRB,.217E-01_JPRB,.227E-01_JPRB,.234E-01_JPRB,&
+&.242E-01_JPRB,.283E-01_JPRB,.329E-01_JPRB,.356E-01_JPRB,.419E-01_JPRB,.564E-01_JPRB,.572E-01_JPRB,&
+&.278E-01_JPRB,.207E-01_JPRB,.127E-01_JPRB,.109E-01_JPRB,.113E-01_JPRB,.121E-01_JPRB,.133E-01_JPRB,&
+&.126E-01_JPRB,.179E-01_JPRB,.186E-01_JPRB,.190E-01_JPRB,.181E-01_JPRB,.191E-01_JPRB,.219E-01_JPRB,&
+&.251E-01_JPRB,.271E-01_JPRB,.254E-01_JPRB,.188E-01_JPRB,.105E-01_JPRB,.116E-01_JPRB,.170E-01_JPRB,&
+&.120E-01_JPRB,.855E-02_JPRB,.127E-01_JPRB,.141E-01_JPRB,.149E-01_JPRB,.153E-01_JPRB,.160E-01_JPRB,&
+&.170E-01_JPRB,.186E-01_JPRB,.217E-01_JPRB,.264E-01_JPRB,.336E-01_JPRB,.432E-01_JPRB,.555E-01_JPRB,&
+&.744E-01_JPRB,.863E-01_JPRB,.903E-01_JPRB,.611E-01_JPRB,.694E-01_JPRB,.713E-01_JPRB,.755E-01_JPRB,&
+&.818E-01_JPRB,.905E-01_JPRB,.943E-01_JPRB,.652E-01_JPRB,.528E-01_JPRB,.425E-01_JPRB,.388E-01_JPRB,&
+&.259E-01_JPRB,.205E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 22   6.0
+ZAER (:,22,11) = (/&
+&.189E-01_JPRB,.188E-01_JPRB,.201E-01_JPRB,.207E-01_JPRB,.226E-01_JPRB,.234E-01_JPRB,.236E-01_JPRB,&
+&.242E-01_JPRB,.256E-01_JPRB,.262E-01_JPRB,.262E-01_JPRB,.264E-01_JPRB,.267E-01_JPRB,.319E-01_JPRB,&
+&.294E-01_JPRB,.321E-01_JPRB,.433E-01_JPRB,.503E-01_JPRB,.553E-01_JPRB,.633E-01_JPRB,.337E-01_JPRB,&
+&.246E-01_JPRB,.167E-01_JPRB,.129E-01_JPRB,.118E-01_JPRB,.129E-01_JPRB,.146E-01_JPRB,.140E-01_JPRB,&
+&.126E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,.206E-01_JPRB,.210E-01_JPRB,.199E-01_JPRB,.213E-01_JPRB,&
+&.242E-01_JPRB,.239E-01_JPRB,.204E-01_JPRB,.173E-01_JPRB,.104E-01_JPRB,.117E-01_JPRB,.135E-01_JPRB,&
+&.115E-01_JPRB,.854E-02_JPRB,.131E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,.145E-01_JPRB,.152E-01_JPRB,&
+&.165E-01_JPRB,.186E-01_JPRB,.218E-01_JPRB,.273E-01_JPRB,.363E-01_JPRB,.475E-01_JPRB,.596E-01_JPRB,&
+&.761E-01_JPRB,.912E-01_JPRB,.790E-01_JPRB,.757E-01_JPRB,.811E-01_JPRB,.847E-01_JPRB,.923E-01_JPRB,&
+&.105E+00_JPRB,.650E-01_JPRB,.640E-01_JPRB,.840E-01_JPRB,.578E-01_JPRB,.392E-01_JPRB,.280E-01_JPRB,&
+&.221E-01_JPRB,.195E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 23   2.0
+ZAER (:,23,11) = (/&
+&.202E-01_JPRB,.207E-01_JPRB,.225E-01_JPRB,.239E-01_JPRB,.272E-01_JPRB,.293E-01_JPRB,.289E-01_JPRB,&
+&.309E-01_JPRB,.325E-01_JPRB,.329E-01_JPRB,.342E-01_JPRB,.351E-01_JPRB,.365E-01_JPRB,.475E-01_JPRB,&
+&.480E-01_JPRB,.504E-01_JPRB,.535E-01_JPRB,.604E-01_JPRB,.589E-01_JPRB,.601E-01_JPRB,.384E-01_JPRB,&
+&.288E-01_JPRB,.195E-01_JPRB,.146E-01_JPRB,.128E-01_JPRB,.133E-01_JPRB,.164E-01_JPRB,.152E-01_JPRB,&
+&.204E-01_JPRB,.218E-01_JPRB,.217E-01_JPRB,.203E-01_JPRB,.210E-01_JPRB,.196E-01_JPRB,.203E-01_JPRB,&
+&.223E-01_JPRB,.207E-01_JPRB,.170E-01_JPRB,.960E-02_JPRB,.108E-01_JPRB,.126E-01_JPRB,.159E-01_JPRB,&
+&.127E-01_JPRB,.980E-02_JPRB,.891E-02_JPRB,.135E-01_JPRB,.136E-01_JPRB,.139E-01_JPRB,.149E-01_JPRB,&
+&.160E-01_JPRB,.177E-01_JPRB,.207E-01_JPRB,.258E-01_JPRB,.329E-01_JPRB,.433E-01_JPRB,.506E-01_JPRB,&
+&.580E-01_JPRB,.404E-01_JPRB,.629E-01_JPRB,.377E-01_JPRB,.716E-01_JPRB,.813E-01_JPRB,.841E-01_JPRB,&
+&.518E-01_JPRB,.957E-01_JPRB,.955E-01_JPRB,.759E-01_JPRB,.489E-01_JPRB,.296E-01_JPRB,.228E-01_JPRB,&
+&.206E-01_JPRB,.197E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 24  -2.0
+ZAER (:,24,11) = (/&
+&.215E-01_JPRB,.238E-01_JPRB,.262E-01_JPRB,.285E-01_JPRB,.332E-01_JPRB,.362E-01_JPRB,.404E-01_JPRB,&
+&.422E-01_JPRB,.465E-01_JPRB,.522E-01_JPRB,.565E-01_JPRB,.584E-01_JPRB,.557E-01_JPRB,.676E-01_JPRB,&
+&.681E-01_JPRB,.739E-01_JPRB,.783E-01_JPRB,.862E-01_JPRB,.695E-01_JPRB,.668E-01_JPRB,.600E-01_JPRB,&
+&.301E-01_JPRB,.218E-01_JPRB,.154E-01_JPRB,.124E-01_JPRB,.122E-01_JPRB,.189E-01_JPRB,.181E-01_JPRB,&
+&.183E-01_JPRB,.192E-01_JPRB,.184E-01_JPRB,.186E-01_JPRB,.190E-01_JPRB,.176E-01_JPRB,.163E-01_JPRB,&
+&.162E-01_JPRB,.159E-01_JPRB,.154E-01_JPRB,.938E-02_JPRB,.105E-01_JPRB,.118E-01_JPRB,.126E-01_JPRB,&
+&.106E-01_JPRB,.851E-02_JPRB,.803E-02_JPRB,.782E-02_JPRB,.128E-01_JPRB,.136E-01_JPRB,.142E-01_JPRB,&
+&.145E-01_JPRB,.162E-01_JPRB,.180E-01_JPRB,.209E-01_JPRB,.256E-01_JPRB,.308E-01_JPRB,.379E-01_JPRB,&
+&.244E-01_JPRB,.460E-01_JPRB,.475E-01_JPRB,.280E-01_JPRB,.607E-01_JPRB,.781E-01_JPRB,.631E-01_JPRB,&
+&.604E-01_JPRB,.575E-01_JPRB,.477E-01_JPRB,.502E-01_JPRB,.325E-01_JPRB,.220E-01_JPRB,.187E-01_JPRB,&
+&.185E-01_JPRB,.194E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 25  -6.0
+ZAER (:,25,11) = (/&
+&.200E-01_JPRB,.225E-01_JPRB,.250E-01_JPRB,.279E-01_JPRB,.310E-01_JPRB,.335E-01_JPRB,.361E-01_JPRB,&
+&.398E-01_JPRB,.441E-01_JPRB,.481E-01_JPRB,.519E-01_JPRB,.563E-01_JPRB,.587E-01_JPRB,.630E-01_JPRB,&
+&.666E-01_JPRB,.719E-01_JPRB,.742E-01_JPRB,.686E-01_JPRB,.718E-01_JPRB,.657E-01_JPRB,.780E-01_JPRB,&
+&.408E-01_JPRB,.259E-01_JPRB,.155E-01_JPRB,.117E-01_JPRB,.158E-01_JPRB,.157E-01_JPRB,.163E-01_JPRB,&
+&.162E-01_JPRB,.157E-01_JPRB,.150E-01_JPRB,.154E-01_JPRB,.152E-01_JPRB,.149E-01_JPRB,.831E-02_JPRB,&
+&.817E-02_JPRB,.802E-02_JPRB,.832E-02_JPRB,.854E-02_JPRB,.890E-02_JPRB,.949E-02_JPRB,.960E-02_JPRB,&
+&.933E-02_JPRB,.795E-02_JPRB,.754E-02_JPRB,.744E-02_JPRB,.133E-01_JPRB,.143E-01_JPRB,.152E-01_JPRB,&
+&.159E-01_JPRB,.164E-01_JPRB,.183E-01_JPRB,.168E-01_JPRB,.190E-01_JPRB,.209E-01_JPRB,.256E-01_JPRB,&
+&.285E-01_JPRB,.278E-01_JPRB,.330E-01_JPRB,.369E-01_JPRB,.457E-01_JPRB,.441E-01_JPRB,.403E-01_JPRB,&
+&.375E-01_JPRB,.335E-01_JPRB,.278E-01_JPRB,.276E-01_JPRB,.213E-01_JPRB,.176E-01_JPRB,.167E-01_JPRB,&
+&.172E-01_JPRB,.183E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 26 -10.0
+ZAER (:,26,11) = (/&
+&.178E-01_JPRB,.200E-01_JPRB,.224E-01_JPRB,.249E-01_JPRB,.269E-01_JPRB,.283E-01_JPRB,.307E-01_JPRB,&
+&.349E-01_JPRB,.394E-01_JPRB,.436E-01_JPRB,.481E-01_JPRB,.507E-01_JPRB,.513E-01_JPRB,.549E-01_JPRB,&
+&.609E-01_JPRB,.648E-01_JPRB,.715E-01_JPRB,.750E-01_JPRB,.920E-01_JPRB,.762E-01_JPRB,.620E-01_JPRB,&
+&.334E-01_JPRB,.227E-01_JPRB,.150E-01_JPRB,.163E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.136E-01_JPRB,&
+&.132E-01_JPRB,.127E-01_JPRB,.127E-01_JPRB,.133E-01_JPRB,.136E-01_JPRB,.136E-01_JPRB,.809E-02_JPRB,&
+&.829E-02_JPRB,.866E-02_JPRB,.861E-02_JPRB,.855E-02_JPRB,.811E-02_JPRB,.785E-02_JPRB,.764E-02_JPRB,&
+&.760E-02_JPRB,.680E-02_JPRB,.662E-02_JPRB,.687E-02_JPRB,.787E-02_JPRB,.150E-01_JPRB,.168E-01_JPRB,&
+&.185E-01_JPRB,.181E-01_JPRB,.196E-01_JPRB,.157E-01_JPRB,.160E-01_JPRB,.186E-01_JPRB,.231E-01_JPRB,&
+&.220E-01_JPRB,.185E-01_JPRB,.220E-01_JPRB,.295E-01_JPRB,.369E-01_JPRB,.301E-01_JPRB,.270E-01_JPRB,&
+&.255E-01_JPRB,.231E-01_JPRB,.196E-01_JPRB,.172E-01_JPRB,.151E-01_JPRB,.143E-01_JPRB,.147E-01_JPRB,&
+&.153E-01_JPRB,.162E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 27 -14.0
+ZAER (:,27,11) = (/&
+&.147E-01_JPRB,.161E-01_JPRB,.177E-01_JPRB,.194E-01_JPRB,.204E-01_JPRB,.204E-01_JPRB,.219E-01_JPRB,&
+&.243E-01_JPRB,.287E-01_JPRB,.341E-01_JPRB,.405E-01_JPRB,.449E-01_JPRB,.480E-01_JPRB,.531E-01_JPRB,&
+&.572E-01_JPRB,.616E-01_JPRB,.615E-01_JPRB,.660E-01_JPRB,.390E-01_JPRB,.275E-01_JPRB,.426E-01_JPRB,&
+&.385E-01_JPRB,.322E-01_JPRB,.227E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,.133E-01_JPRB,.121E-01_JPRB,&
+&.114E-01_JPRB,.109E-01_JPRB,.117E-01_JPRB,.131E-01_JPRB,.147E-01_JPRB,.849E-02_JPRB,.930E-02_JPRB,&
+&.103E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.937E-02_JPRB,.871E-02_JPRB,.821E-02_JPRB,.730E-02_JPRB,&
+&.727E-02_JPRB,.718E-02_JPRB,.737E-02_JPRB,.703E-02_JPRB,.144E-01_JPRB,.162E-01_JPRB,.197E-01_JPRB,&
+&.254E-01_JPRB,.280E-01_JPRB,.118E-01_JPRB,.155E-01_JPRB,.170E-01_JPRB,.194E-01_JPRB,.240E-01_JPRB,&
+&.126E-01_JPRB,.112E-01_JPRB,.201E-01_JPRB,.226E-01_JPRB,.288E-01_JPRB,.211E-01_JPRB,.215E-01_JPRB,&
+&.215E-01_JPRB,.207E-01_JPRB,.175E-01_JPRB,.145E-01_JPRB,.130E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,&
+&.129E-01_JPRB,.140E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 28 -18.0
+ZAER (:,28,11) = (/&
+&.124E-01_JPRB,.133E-01_JPRB,.147E-01_JPRB,.150E-01_JPRB,.163E-01_JPRB,.138E-01_JPRB,.135E-01_JPRB,&
+&.137E-01_JPRB,.158E-01_JPRB,.212E-01_JPRB,.288E-01_JPRB,.372E-01_JPRB,.469E-01_JPRB,.527E-01_JPRB,&
+&.518E-01_JPRB,.570E-01_JPRB,.280E-01_JPRB,.258E-01_JPRB,.231E-01_JPRB,.322E-01_JPRB,.303E-01_JPRB,&
+&.273E-01_JPRB,.247E-01_JPRB,.207E-01_JPRB,.164E-01_JPRB,.145E-01_JPRB,.127E-01_JPRB,.117E-01_JPRB,&
+&.116E-01_JPRB,.116E-01_JPRB,.130E-01_JPRB,.136E-01_JPRB,.135E-01_JPRB,.806E-02_JPRB,.900E-02_JPRB,&
+&.108E-01_JPRB,.152E-01_JPRB,.170E-01_JPRB,.177E-01_JPRB,.159E-01_JPRB,.142E-01_JPRB,.120E-01_JPRB,&
+&.109E-01_JPRB,.106E-01_JPRB,.163E-01_JPRB,.114E-01_JPRB,.157E-01_JPRB,.139E-01_JPRB,.281E-01_JPRB,&
+&.359E-01_JPRB,.524E-01_JPRB,.244E-01_JPRB,.182E-01_JPRB,.214E-01_JPRB,.254E-01_JPRB,.216E-01_JPRB,&
+&.242E-01_JPRB,.167E-01_JPRB,.263E-01_JPRB,.203E-01_JPRB,.180E-01_JPRB,.173E-01_JPRB,.188E-01_JPRB,&
+&.201E-01_JPRB,.206E-01_JPRB,.184E-01_JPRB,.143E-01_JPRB,.124E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,&
+&.113E-01_JPRB,.116E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 29 -22.0
+ZAER (:,29,11) = (/&
+&.114E-01_JPRB,.120E-01_JPRB,.135E-01_JPRB,.152E-01_JPRB,.144E-01_JPRB,.108E-01_JPRB,.901E-02_JPRB,&
+&.855E-02_JPRB,.816E-02_JPRB,.960E-02_JPRB,.124E-01_JPRB,.227E-01_JPRB,.447E-01_JPRB,.586E-01_JPRB,&
+&.636E-01_JPRB,.362E-01_JPRB,.313E-01_JPRB,.429E-01_JPRB,.347E-01_JPRB,.279E-01_JPRB,.225E-01_JPRB,&
+&.229E-01_JPRB,.223E-01_JPRB,.194E-01_JPRB,.169E-01_JPRB,.153E-01_JPRB,.131E-01_JPRB,.120E-01_JPRB,&
+&.117E-01_JPRB,.121E-01_JPRB,.135E-01_JPRB,.143E-01_JPRB,.136E-01_JPRB,.766E-02_JPRB,.829E-02_JPRB,&
+&.123E-01_JPRB,.200E-01_JPRB,.173E-01_JPRB,.201E-01_JPRB,.228E-01_JPRB,.222E-01_JPRB,.218E-01_JPRB,&
+&.190E-01_JPRB,.235E-01_JPRB,.165E-01_JPRB,.238E-01_JPRB,.286E-01_JPRB,.259E-01_JPRB,.378E-01_JPRB,&
+&.444E-01_JPRB,.329E-01_JPRB,.409E-01_JPRB,.375E-01_JPRB,.194E-01_JPRB,.152E-01_JPRB,.204E-01_JPRB,&
+&.281E-01_JPRB,.425E-01_JPRB,.305E-01_JPRB,.417E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,.177E-01_JPRB,&
+&.193E-01_JPRB,.221E-01_JPRB,.189E-01_JPRB,.155E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.130E-01_JPRB,&
+&.127E-01_JPRB,.120E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 30 -26.0
+ZAER (:,30,11) = (/&
+&.122E-01_JPRB,.115E-01_JPRB,.120E-01_JPRB,.116E-01_JPRB,.104E-01_JPRB,.860E-02_JPRB,.800E-02_JPRB,&
+&.773E-02_JPRB,.690E-02_JPRB,.637E-02_JPRB,.679E-02_JPRB,.107E-01_JPRB,.304E-01_JPRB,.495E-01_JPRB,&
+&.366E-01_JPRB,.360E-01_JPRB,.433E-01_JPRB,.722E-01_JPRB,.497E-01_JPRB,.314E-01_JPRB,.229E-01_JPRB,&
+&.238E-01_JPRB,.250E-01_JPRB,.226E-01_JPRB,.190E-01_JPRB,.165E-01_JPRB,.142E-01_JPRB,.127E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.119E-01_JPRB,.137E-01_JPRB,.144E-01_JPRB,.795E-02_JPRB,&
+&.127E-01_JPRB,.143E-01_JPRB,.130E-01_JPRB,.150E-01_JPRB,.221E-01_JPRB,.242E-01_JPRB,.256E-01_JPRB,&
+&.230E-01_JPRB,.210E-01_JPRB,.233E-01_JPRB,.301E-01_JPRB,.393E-01_JPRB,.436E-01_JPRB,.242E-01_JPRB,&
+&.278E-01_JPRB,.427E-01_JPRB,.516E-01_JPRB,.425E-01_JPRB,.140E-01_JPRB,.114E-01_JPRB,.151E-01_JPRB,&
+&.231E-01_JPRB,.457E-01_JPRB,.520E-01_JPRB,.591E-01_JPRB,.609E-01_JPRB,.302E-01_JPRB,.238E-01_JPRB,&
+&.218E-01_JPRB,.274E-01_JPRB,.262E-01_JPRB,.213E-01_JPRB,.183E-01_JPRB,.161E-01_JPRB,.151E-01_JPRB,&
+&.145E-01_JPRB,.132E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 31 -30.0
+ZAER (:,31,11) = (/&
+&.123E-01_JPRB,.119E-01_JPRB,.118E-01_JPRB,.111E-01_JPRB,.968E-02_JPRB,.864E-02_JPRB,.814E-02_JPRB,&
+&.753E-02_JPRB,.688E-02_JPRB,.601E-02_JPRB,.587E-02_JPRB,.906E-02_JPRB,.174E-01_JPRB,.344E-01_JPRB,&
+&.242E-01_JPRB,.294E-01_JPRB,.457E-01_JPRB,.610E-01_JPRB,.600E-01_JPRB,.435E-01_JPRB,.554E-01_JPRB,&
+&.447E-01_JPRB,.320E-01_JPRB,.232E-01_JPRB,.177E-01_JPRB,.153E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,&
+&.118E-01_JPRB,.107E-01_JPRB,.103E-01_JPRB,.993E-02_JPRB,.106E-01_JPRB,.121E-01_JPRB,.703E-02_JPRB,&
+&.875E-02_JPRB,.121E-01_JPRB,.130E-01_JPRB,.146E-01_JPRB,.197E-01_JPRB,.244E-01_JPRB,.285E-01_JPRB,&
+&.277E-01_JPRB,.228E-01_JPRB,.342E-01_JPRB,.594E-01_JPRB,.445E-01_JPRB,.270E-01_JPRB,.229E-01_JPRB,&
+&.252E-01_JPRB,.372E-01_JPRB,.318E-01_JPRB,.149E-01_JPRB,.513E-02_JPRB,.253E-02_JPRB,.366E-02_JPRB,&
+&.842E-02_JPRB,.383E-01_JPRB,.670E-01_JPRB,.756E-01_JPRB,.761E-01_JPRB,.678E-01_JPRB,.466E-01_JPRB,&
+&.585E-01_JPRB,.469E-01_JPRB,.354E-01_JPRB,.265E-01_JPRB,.217E-01_JPRB,.184E-01_JPRB,.165E-01_JPRB,&
+&.143E-01_JPRB,.131E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 32 -34.0
+ZAER (:,32,11) = (/&
+&.120E-01_JPRB,.115E-01_JPRB,.113E-01_JPRB,.108E-01_JPRB,.101E-01_JPRB,.952E-02_JPRB,.887E-02_JPRB,&
+&.772E-02_JPRB,.683E-02_JPRB,.605E-02_JPRB,.683E-02_JPRB,.112E-01_JPRB,.170E-01_JPRB,.185E-01_JPRB,&
+&.217E-01_JPRB,.251E-01_JPRB,.379E-01_JPRB,.431E-01_JPRB,.538E-01_JPRB,.517E-01_JPRB,.628E-01_JPRB,&
+&.845E-01_JPRB,.485E-01_JPRB,.256E-01_JPRB,.173E-01_JPRB,.130E-01_JPRB,.116E-01_JPRB,.113E-01_JPRB,&
+&.112E-01_JPRB,.109E-01_JPRB,.106E-01_JPRB,.936E-02_JPRB,.881E-02_JPRB,.970E-02_JPRB,.127E-01_JPRB,&
+&.695E-02_JPRB,.765E-02_JPRB,.102E-01_JPRB,.133E-01_JPRB,.297E-01_JPRB,.438E-01_JPRB,.505E-01_JPRB,&
+&.432E-01_JPRB,.417E-01_JPRB,.324E-01_JPRB,.369E-01_JPRB,.242E-01_JPRB,.349E-01_JPRB,.279E-01_JPRB,&
+&.177E-01_JPRB,.183E-01_JPRB,.170E-01_JPRB,.554E-02_JPRB,.336E-02_JPRB,.257E-02_JPRB,.266E-02_JPRB,&
+&.384E-02_JPRB,.248E-01_JPRB,.556E-01_JPRB,.651E-01_JPRB,.471E-01_JPRB,.763E-01_JPRB,.722E-01_JPRB,&
+&.338E-01_JPRB,.401E-01_JPRB,.306E-01_JPRB,.247E-01_JPRB,.217E-01_JPRB,.190E-01_JPRB,.163E-01_JPRB,&
+&.144E-01_JPRB,.130E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 33 -38.0
+ZAER (:,33,11) = (/&
+&.116E-01_JPRB,.111E-01_JPRB,.107E-01_JPRB,.102E-01_JPRB,.988E-02_JPRB,.975E-02_JPRB,.895E-02_JPRB,&
+&.763E-02_JPRB,.730E-02_JPRB,.677E-02_JPRB,.823E-02_JPRB,.128E-01_JPRB,.757E-02_JPRB,.965E-02_JPRB,&
+&.149E-01_JPRB,.153E-01_JPRB,.211E-01_JPRB,.299E-01_JPRB,.365E-01_JPRB,.446E-01_JPRB,.787E-01_JPRB,&
+&.101E+00_JPRB,.542E-01_JPRB,.282E-01_JPRB,.178E-01_JPRB,.121E-01_JPRB,.980E-02_JPRB,.931E-02_JPRB,&
+&.942E-02_JPRB,.975E-02_JPRB,.903E-02_JPRB,.919E-02_JPRB,.904E-02_JPRB,.907E-02_JPRB,.126E-01_JPRB,&
+&.924E-02_JPRB,.174E-01_JPRB,.175E-01_JPRB,.198E-01_JPRB,.263E-01_JPRB,.425E-01_JPRB,.463E-01_JPRB,&
+&.236E-01_JPRB,.219E-01_JPRB,.197E-01_JPRB,.227E-01_JPRB,.269E-01_JPRB,.362E-01_JPRB,.394E-01_JPRB,&
+&.362E-01_JPRB,.139E-01_JPRB,.110E-01_JPRB,.118E-01_JPRB,.727E-02_JPRB,.474E-02_JPRB,.434E-02_JPRB,&
+&.639E-02_JPRB,.136E-01_JPRB,.220E-01_JPRB,.227E-01_JPRB,.488E-01_JPRB,.611E-01_JPRB,.540E-01_JPRB,&
+&.409E-01_JPRB,.204E-01_JPRB,.275E-01_JPRB,.220E-01_JPRB,.185E-01_JPRB,.165E-01_JPRB,.149E-01_JPRB,&
+&.137E-01_JPRB,.127E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 34 -42.0
+ZAER (:,34,11) = (/&
+&.115E-01_JPRB,.108E-01_JPRB,.105E-01_JPRB,.996E-02_JPRB,.954E-02_JPRB,.930E-02_JPRB,.882E-02_JPRB,&
+&.850E-02_JPRB,.780E-02_JPRB,.776E-02_JPRB,.998E-02_JPRB,.122E-01_JPRB,.597E-02_JPRB,.731E-02_JPRB,&
+&.103E-01_JPRB,.137E-01_JPRB,.186E-01_JPRB,.341E-01_JPRB,.530E-01_JPRB,.736E-01_JPRB,.592E-01_JPRB,&
+&.447E-01_JPRB,.431E-01_JPRB,.299E-01_JPRB,.226E-01_JPRB,.146E-01_JPRB,.104E-01_JPRB,.826E-02_JPRB,&
+&.769E-02_JPRB,.798E-02_JPRB,.827E-02_JPRB,.848E-02_JPRB,.878E-02_JPRB,.935E-02_JPRB,.121E-01_JPRB,&
+&.124E-01_JPRB,.142E-01_JPRB,.216E-01_JPRB,.243E-01_JPRB,.354E-01_JPRB,.326E-01_JPRB,.430E-01_JPRB,&
+&.503E-01_JPRB,.459E-01_JPRB,.207E-01_JPRB,.193E-01_JPRB,.451E-01_JPRB,.286E-01_JPRB,.291E-01_JPRB,&
+&.456E-01_JPRB,.310E-01_JPRB,.175E-01_JPRB,.124E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.114E-01_JPRB,&
+&.128E-01_JPRB,.149E-01_JPRB,.163E-01_JPRB,.221E-01_JPRB,.305E-01_JPRB,.318E-01_JPRB,.401E-01_JPRB,&
+&.528E-01_JPRB,.347E-01_JPRB,.312E-01_JPRB,.256E-01_JPRB,.194E-01_JPRB,.163E-01_JPRB,.150E-01_JPRB,&
+&.137E-01_JPRB,.125E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 35 -46.0
+ZAER (:,35,11) = (/&
+&.123E-01_JPRB,.113E-01_JPRB,.106E-01_JPRB,.105E-01_JPRB,.100E-01_JPRB,.946E-02_JPRB,.102E-01_JPRB,&
+&.934E-02_JPRB,.876E-02_JPRB,.922E-02_JPRB,.117E-01_JPRB,.141E-01_JPRB,.823E-02_JPRB,.710E-02_JPRB,&
+&.966E-02_JPRB,.140E-01_JPRB,.180E-01_JPRB,.291E-01_JPRB,.352E-01_JPRB,.415E-01_JPRB,.375E-01_JPRB,&
+&.491E-01_JPRB,.317E-01_JPRB,.197E-01_JPRB,.192E-01_JPRB,.156E-01_JPRB,.117E-01_JPRB,.821E-02_JPRB,&
+&.720E-02_JPRB,.720E-02_JPRB,.775E-02_JPRB,.817E-02_JPRB,.857E-02_JPRB,.100E-01_JPRB,.121E-01_JPRB,&
+&.171E-01_JPRB,.114E-01_JPRB,.153E-01_JPRB,.198E-01_JPRB,.210E-01_JPRB,.343E-01_JPRB,.556E-01_JPRB,&
+&.395E-01_JPRB,.343E-01_JPRB,.264E-01_JPRB,.250E-01_JPRB,.428E-01_JPRB,.323E-01_JPRB,.401E-01_JPRB,&
+&.590E-01_JPRB,.647E-01_JPRB,.504E-01_JPRB,.309E-01_JPRB,.282E-01_JPRB,.209E-01_JPRB,.150E-01_JPRB,&
+&.143E-01_JPRB,.176E-01_JPRB,.261E-01_JPRB,.321E-01_JPRB,.330E-01_JPRB,.317E-01_JPRB,.355E-01_JPRB,&
+&.315E-01_JPRB,.444E-01_JPRB,.303E-01_JPRB,.234E-01_JPRB,.191E-01_JPRB,.168E-01_JPRB,.156E-01_JPRB,&
+&.151E-01_JPRB,.129E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 36 -50.0
+ZAER (:,36,11) = (/&
+&.131E-01_JPRB,.116E-01_JPRB,.105E-01_JPRB,.101E-01_JPRB,.104E-01_JPRB,.116E-01_JPRB,.123E-01_JPRB,&
+&.114E-01_JPRB,.982E-02_JPRB,.979E-02_JPRB,.114E-01_JPRB,.789E-02_JPRB,.913E-02_JPRB,.771E-02_JPRB,&
+&.124E-01_JPRB,.158E-01_JPRB,.193E-01_JPRB,.298E-01_JPRB,.342E-01_JPRB,.368E-01_JPRB,.314E-01_JPRB,&
+&.367E-01_JPRB,.322E-01_JPRB,.220E-01_JPRB,.203E-01_JPRB,.143E-01_JPRB,.113E-01_JPRB,.945E-02_JPRB,&
+&.782E-02_JPRB,.776E-02_JPRB,.801E-02_JPRB,.917E-02_JPRB,.104E-01_JPRB,.129E-01_JPRB,.184E-01_JPRB,&
+&.238E-01_JPRB,.144E-01_JPRB,.210E-01_JPRB,.248E-01_JPRB,.280E-01_JPRB,.401E-01_JPRB,.561E-01_JPRB,&
+&.400E-01_JPRB,.462E-01_JPRB,.388E-01_JPRB,.442E-01_JPRB,.354E-01_JPRB,.351E-01_JPRB,.470E-01_JPRB,&
+&.575E-01_JPRB,.707E-01_JPRB,.737E-01_JPRB,.692E-01_JPRB,.448E-01_JPRB,.294E-01_JPRB,.268E-01_JPRB,&
+&.257E-01_JPRB,.292E-01_JPRB,.314E-01_JPRB,.262E-01_JPRB,.256E-01_JPRB,.320E-01_JPRB,.275E-01_JPRB,&
+&.241E-01_JPRB,.228E-01_JPRB,.238E-01_JPRB,.190E-01_JPRB,.175E-01_JPRB,.169E-01_JPRB,.155E-01_JPRB,&
+&.159E-01_JPRB,.146E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 37 -54.0
+ZAER (:,37,11) = (/&
+&.139E-01_JPRB,.107E-01_JPRB,.950E-02_JPRB,.990E-02_JPRB,.117E-01_JPRB,.146E-01_JPRB,.152E-01_JPRB,&
+&.146E-01_JPRB,.113E-01_JPRB,.107E-01_JPRB,.632E-02_JPRB,.676E-02_JPRB,.777E-02_JPRB,.767E-02_JPRB,&
+&.108E-01_JPRB,.143E-01_JPRB,.132E-01_JPRB,.154E-01_JPRB,.226E-01_JPRB,.319E-01_JPRB,.382E-01_JPRB,&
+&.209E-01_JPRB,.182E-01_JPRB,.139E-01_JPRB,.115E-01_JPRB,.126E-01_JPRB,.974E-02_JPRB,.832E-02_JPRB,&
+&.750E-02_JPRB,.732E-02_JPRB,.802E-02_JPRB,.104E-01_JPRB,.140E-01_JPRB,.187E-01_JPRB,.283E-01_JPRB,&
+&.184E-01_JPRB,.335E-01_JPRB,.429E-01_JPRB,.260E-01_JPRB,.357E-01_JPRB,.574E-01_JPRB,.506E-01_JPRB,&
+&.394E-01_JPRB,.480E-01_JPRB,.438E-01_JPRB,.500E-01_JPRB,.427E-01_JPRB,.432E-01_JPRB,.429E-01_JPRB,&
+&.485E-01_JPRB,.474E-01_JPRB,.525E-01_JPRB,.678E-01_JPRB,.577E-01_JPRB,.472E-01_JPRB,.435E-01_JPRB,&
+&.413E-01_JPRB,.378E-01_JPRB,.299E-01_JPRB,.265E-01_JPRB,.312E-01_JPRB,.273E-01_JPRB,.224E-01_JPRB,&
+&.213E-01_JPRB,.287E-01_JPRB,.209E-01_JPRB,.179E-01_JPRB,.180E-01_JPRB,.111E-01_JPRB,.169E-01_JPRB,&
+&.149E-01_JPRB,.144E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 38 -58.0
+ZAER (:,38,11) = (/&
+&.142E-01_JPRB,.142E-01_JPRB,.123E-01_JPRB,.125E-01_JPRB,.144E-01_JPRB,.219E-01_JPRB,.194E-01_JPRB,&
+&.135E-01_JPRB,.981E-02_JPRB,.560E-02_JPRB,.519E-02_JPRB,.482E-02_JPRB,.596E-02_JPRB,.637E-02_JPRB,&
+&.714E-02_JPRB,.107E-01_JPRB,.130E-01_JPRB,.170E-01_JPRB,.231E-01_JPRB,.276E-01_JPRB,.367E-01_JPRB,&
+&.157E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,.158E-01_JPRB,.108E-01_JPRB,.869E-02_JPRB,.739E-02_JPRB,&
+&.687E-02_JPRB,.699E-02_JPRB,.826E-02_JPRB,.106E-01_JPRB,.138E-01_JPRB,.190E-01_JPRB,.259E-01_JPRB,&
+&.334E-01_JPRB,.329E-01_JPRB,.349E-01_JPRB,.199E-01_JPRB,.285E-01_JPRB,.559E-01_JPRB,.326E-01_JPRB,&
+&.320E-01_JPRB,.408E-01_JPRB,.393E-01_JPRB,.450E-01_JPRB,.398E-01_JPRB,.387E-01_JPRB,.406E-01_JPRB,&
+&.418E-01_JPRB,.378E-01_JPRB,.386E-01_JPRB,.464E-01_JPRB,.433E-01_JPRB,.510E-01_JPRB,.598E-01_JPRB,&
+&.435E-01_JPRB,.381E-01_JPRB,.341E-01_JPRB,.330E-01_JPRB,.307E-01_JPRB,.240E-01_JPRB,.220E-01_JPRB,&
+&.179E-01_JPRB,.113E-01_JPRB,.195E-01_JPRB,.193E-01_JPRB,.183E-01_JPRB,.106E-01_JPRB,.164E-01_JPRB,&
+&.146E-01_JPRB,.144E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 39 -62.0
+ZAER (:,39,11) = (/&
+&.147E-01_JPRB,.147E-01_JPRB,.152E-01_JPRB,.157E-01_JPRB,.910E-02_JPRB,.110E-01_JPRB,.104E-01_JPRB,&
+&.703E-02_JPRB,.569E-02_JPRB,.564E-02_JPRB,.542E-02_JPRB,.574E-02_JPRB,.654E-02_JPRB,.690E-02_JPRB,&
+&.773E-02_JPRB,.103E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,.198E-01_JPRB,.245E-01_JPRB,.273E-01_JPRB,&
+&.131E-01_JPRB,.236E-01_JPRB,.245E-01_JPRB,.180E-01_JPRB,.146E-01_JPRB,.895E-02_JPRB,.408E-02_JPRB,&
+&.899E-02_JPRB,.103E-01_JPRB,.116E-01_JPRB,.141E-01_JPRB,.168E-01_JPRB,.187E-01_JPRB,.220E-01_JPRB,&
+&.220E-01_JPRB,.226E-01_JPRB,.265E-01_JPRB,.155E-01_JPRB,.164E-01_JPRB,.268E-01_JPRB,.178E-01_JPRB,&
+&.174E-01_JPRB,.220E-01_JPRB,.239E-01_JPRB,.272E-01_JPRB,.287E-01_JPRB,.327E-01_JPRB,.369E-01_JPRB,&
+&.371E-01_JPRB,.347E-01_JPRB,.307E-01_JPRB,.329E-01_JPRB,.385E-01_JPRB,.375E-01_JPRB,.401E-01_JPRB,&
+&.367E-01_JPRB,.358E-01_JPRB,.326E-01_JPRB,.325E-01_JPRB,.332E-01_JPRB,.314E-01_JPRB,.256E-01_JPRB,&
+&.138E-01_JPRB,.840E-02_JPRB,.809E-02_JPRB,.820E-02_JPRB,.770E-02_JPRB,.835E-02_JPRB,.880E-02_JPRB,&
+&.885E-02_JPRB,.150E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 40 -66.0
+ZAER (:,40,11) = (/&
+&.109E-01_JPRB,.105E-01_JPRB,.168E-01_JPRB,.171E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.986E-02_JPRB,&
+&.880E-02_JPRB,.753E-02_JPRB,.680E-02_JPRB,.713E-02_JPRB,.842E-02_JPRB,.897E-02_JPRB,.975E-02_JPRB,&
+&.111E-01_JPRB,.148E-01_JPRB,.141E-01_JPRB,.116E-01_JPRB,.121E-01_JPRB,.151E-01_JPRB,.215E-01_JPRB,&
+&.115E-01_JPRB,.128E-01_JPRB,.142E-01_JPRB,.190E-01_JPRB,.163E-01_JPRB,.548E-02_JPRB,.444E-02_JPRB,&
+&.573E-02_JPRB,.121E-01_JPRB,.137E-01_JPRB,.138E-01_JPRB,.136E-01_JPRB,.125E-01_JPRB,.146E-01_JPRB,&
+&.174E-01_JPRB,.207E-01_JPRB,.210E-01_JPRB,.204E-01_JPRB,.116E-01_JPRB,.128E-01_JPRB,.138E-01_JPRB,&
+&.156E-01_JPRB,.182E-01_JPRB,.189E-01_JPRB,.223E-01_JPRB,.268E-01_JPRB,.271E-01_JPRB,.245E-01_JPRB,&
+&.251E-01_JPRB,.285E-01_JPRB,.305E-01_JPRB,.289E-01_JPRB,.291E-01_JPRB,.302E-01_JPRB,.361E-01_JPRB,&
+&.392E-01_JPRB,.389E-01_JPRB,.347E-01_JPRB,.334E-01_JPRB,.336E-01_JPRB,.280E-01_JPRB,.225E-01_JPRB,&
+&.212E-01_JPRB,.141E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.105E-01_JPRB,.103E-01_JPRB,.106E-01_JPRB,&
+&.110E-01_JPRB,.110E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 41 -70.0
+ZAER (:,41,11) = (/&
+&.234E-01_JPRB,.212E-01_JPRB,.209E-01_JPRB,.198E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.990E-02_JPRB,&
+&.962E-02_JPRB,.166E-01_JPRB,.172E-01_JPRB,.108E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.119E-01_JPRB,&
+&.129E-01_JPRB,.126E-01_JPRB,.188E-01_JPRB,.107E-01_JPRB,.107E-01_JPRB,.138E-01_JPRB,.131E-01_JPRB,&
+&.110E-01_JPRB,.124E-01_JPRB,.236E-01_JPRB,.186E-01_JPRB,.156E-01_JPRB,.756E-02_JPRB,.579E-02_JPRB,&
+&.580E-02_JPRB,.556E-02_JPRB,.586E-02_JPRB,.739E-02_JPRB,.150E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,&
+&.153E-01_JPRB,.173E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.178E-01_JPRB,.184E-01_JPRB,.118E-01_JPRB,&
+&.119E-01_JPRB,.198E-01_JPRB,.228E-01_JPRB,.257E-01_JPRB,.280E-01_JPRB,.286E-01_JPRB,.294E-01_JPRB,&
+&.301E-01_JPRB,.193E-01_JPRB,.261E-01_JPRB,.264E-01_JPRB,.264E-01_JPRB,.231E-01_JPRB,.241E-01_JPRB,&
+&.247E-01_JPRB,.262E-01_JPRB,.302E-01_JPRB,.353E-01_JPRB,.343E-01_JPRB,.306E-01_JPRB,.295E-01_JPRB,&
+&.265E-01_JPRB,.197E-01_JPRB,.138E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.133E-01_JPRB,.141E-01_JPRB,&
+&.248E-01_JPRB,.152E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 42 -74.0
+ZAER (:,42,11) = (/&
+&.239E-01_JPRB,.232E-01_JPRB,.231E-01_JPRB,.224E-01_JPRB,.216E-01_JPRB,.218E-01_JPRB,.223E-01_JPRB,&
+&.220E-01_JPRB,.214E-01_JPRB,.204E-01_JPRB,.201E-01_JPRB,.194E-01_JPRB,.118E-01_JPRB,.115E-01_JPRB,&
+&.191E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.173E-01_JPRB,.120E-01_JPRB,.221E-01_JPRB,&
+&.220E-01_JPRB,.214E-01_JPRB,.215E-01_JPRB,.175E-01_JPRB,.969E-02_JPRB,.815E-02_JPRB,.644E-02_JPRB,&
+&.534E-02_JPRB,.474E-02_JPRB,.484E-02_JPRB,.559E-02_JPRB,.121E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,&
+&.156E-01_JPRB,.156E-01_JPRB,.153E-01_JPRB,.160E-01_JPRB,.168E-01_JPRB,.174E-01_JPRB,.176E-01_JPRB,&
+&.185E-01_JPRB,.209E-01_JPRB,.236E-01_JPRB,.269E-01_JPRB,.296E-01_JPRB,.327E-01_JPRB,.319E-01_JPRB,&
+&.286E-01_JPRB,.313E-01_JPRB,.380E-01_JPRB,.462E-01_JPRB,.269E-01_JPRB,.250E-01_JPRB,.255E-01_JPRB,&
+&.244E-01_JPRB,.236E-01_JPRB,.336E-01_JPRB,.391E-01_JPRB,.610E-01_JPRB,.558E-01_JPRB,.511E-01_JPRB,&
+&.441E-01_JPRB,.368E-01_JPRB,.307E-01_JPRB,.278E-01_JPRB,.269E-01_JPRB,.264E-01_JPRB,.260E-01_JPRB,&
+&.265E-01_JPRB,.257E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 43 -78.0
+ZAER (:,43,11) = (/&
+&.273E-01_JPRB,.260E-01_JPRB,.254E-01_JPRB,.241E-01_JPRB,.227E-01_JPRB,.218E-01_JPRB,.213E-01_JPRB,&
+&.207E-01_JPRB,.199E-01_JPRB,.193E-01_JPRB,.191E-01_JPRB,.192E-01_JPRB,.199E-01_JPRB,.198E-01_JPRB,&
+&.200E-01_JPRB,.201E-01_JPRB,.186E-01_JPRB,.171E-01_JPRB,.960E-02_JPRB,.103E-01_JPRB,.110E-01_JPRB,&
+&.201E-01_JPRB,.202E-01_JPRB,.122E-01_JPRB,.939E-02_JPRB,.820E-02_JPRB,.779E-02_JPRB,.681E-02_JPRB,&
+&.650E-02_JPRB,.632E-02_JPRB,.671E-02_JPRB,.666E-02_JPRB,.113E-01_JPRB,.143E-01_JPRB,.149E-01_JPRB,&
+&.156E-01_JPRB,.160E-01_JPRB,.168E-01_JPRB,.185E-01_JPRB,.125E-01_JPRB,.231E-01_JPRB,.245E-01_JPRB,&
+&.249E-01_JPRB,.262E-01_JPRB,.281E-01_JPRB,.317E-01_JPRB,.358E-01_JPRB,.403E-01_JPRB,.423E-01_JPRB,&
+&.416E-01_JPRB,.428E-01_JPRB,.439E-01_JPRB,.425E-01_JPRB,.407E-01_JPRB,.365E-01_JPRB,.358E-01_JPRB,&
+&.391E-01_JPRB,.275E-01_JPRB,.474E-01_JPRB,.470E-01_JPRB,.454E-01_JPRB,.412E-01_JPRB,.400E-01_JPRB,&
+&.388E-01_JPRB,.340E-01_JPRB,.324E-01_JPRB,.309E-01_JPRB,.293E-01_JPRB,.293E-01_JPRB,.305E-01_JPRB,&
+&.303E-01_JPRB,.289E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 44 -82.0
+ZAER (:,44,11) = (/&
+&.250E-01_JPRB,.237E-01_JPRB,.226E-01_JPRB,.219E-01_JPRB,.214E-01_JPRB,.211E-01_JPRB,.206E-01_JPRB,&
+&.200E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,.201E-01_JPRB,.204E-01_JPRB,.209E-01_JPRB,.208E-01_JPRB,&
+&.206E-01_JPRB,.200E-01_JPRB,.191E-01_JPRB,.185E-01_JPRB,.176E-01_JPRB,.171E-01_JPRB,.102E-01_JPRB,&
+&.102E-01_JPRB,.104E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.962E-02_JPRB,&
+&.920E-02_JPRB,.886E-02_JPRB,.877E-02_JPRB,.879E-02_JPRB,.885E-02_JPRB,.148E-01_JPRB,.151E-01_JPRB,&
+&.155E-01_JPRB,.173E-01_JPRB,.192E-01_JPRB,.208E-01_JPRB,.226E-01_JPRB,.246E-01_JPRB,.265E-01_JPRB,&
+&.265E-01_JPRB,.279E-01_JPRB,.292E-01_JPRB,.303E-01_JPRB,.319E-01_JPRB,.329E-01_JPRB,.321E-01_JPRB,&
+&.320E-01_JPRB,.325E-01_JPRB,.326E-01_JPRB,.331E-01_JPRB,.336E-01_JPRB,.338E-01_JPRB,.348E-01_JPRB,&
+&.353E-01_JPRB,.356E-01_JPRB,.354E-01_JPRB,.355E-01_JPRB,.340E-01_JPRB,.336E-01_JPRB,.334E-01_JPRB,&
+&.325E-01_JPRB,.325E-01_JPRB,.320E-01_JPRB,.312E-01_JPRB,.296E-01_JPRB,.284E-01_JPRB,.274E-01_JPRB,&
+&.266E-01_JPRB,.261E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 45 -86.0
+ZAER (:,45,11) = (/&
+&.181E-01_JPRB,.177E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,.159E-01_JPRB,&
+&.160E-01_JPRB,.160E-01_JPRB,.161E-01_JPRB,.163E-01_JPRB,.166E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,&
+&.152E-01_JPRB,.151E-01_JPRB,.150E-01_JPRB,.148E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.150E-01_JPRB,&
+&.150E-01_JPRB,.152E-01_JPRB,.154E-01_JPRB,.163E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.162E-01_JPRB,&
+&.163E-01_JPRB,.163E-01_JPRB,.165E-01_JPRB,.169E-01_JPRB,.172E-01_JPRB,.176E-01_JPRB,.179E-01_JPRB,&
+&.184E-01_JPRB,.190E-01_JPRB,.195E-01_JPRB,.204E-01_JPRB,.214E-01_JPRB,.222E-01_JPRB,.234E-01_JPRB,&
+&.242E-01_JPRB,.249E-01_JPRB,.259E-01_JPRB,.267E-01_JPRB,.276E-01_JPRB,.278E-01_JPRB,.278E-01_JPRB,&
+&.279E-01_JPRB,.281E-01_JPRB,.282E-01_JPRB,.280E-01_JPRB,.280E-01_JPRB,.278E-01_JPRB,.277E-01_JPRB,&
+&.274E-01_JPRB,.273E-01_JPRB,.271E-01_JPRB,.265E-01_JPRB,.258E-01_JPRB,.258E-01_JPRB,.259E-01_JPRB,&
+&.255E-01_JPRB,.256E-01_JPRB,.250E-01_JPRB,.243E-01_JPRB,.235E-01_JPRB,.228E-01_JPRB,.219E-01_JPRB,&
+&.208E-01_JPRB,.199E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 11 --- lat: 46 -90.0
+ZAER (:,46,11) = (/&
+&.198E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,.207E-01_JPRB,&
+&.207E-01_JPRB,.207E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=11  
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_11
Index: LMDZ5/branches/testing/libf/phymar/suecaesu_12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecaesu_12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecaesu_12.F90	(revision 2160)
@@ -0,0 +1,695 @@
+SUBROUTINE SUECAESU_12
+
+!**   OPTICAL THICKNESS OF SULFATE-TYPE AEROSOLS
+!                          December
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECAESU* FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    98/12/21
+
+!     MODIFICATIONS.
+!     --------------
+!     H. GALLEE        L.G.G.E.      04/01/15:  split for the NEC SX5
+
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEAERC  , ONLY : RAERSU
+
+
+IMPLICIT NONE
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+!     ----------------------------------------------------------------- 
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZAER(72,46,12:12)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JI, JL, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZMAX, ZMIN
+
+!     ------------------------------------------------------------------
+
+!-- Tegen et al., 1997
+
+!-- Total Sulfate Aerosol    month: 12 --- lat:  1  90.0
+ZAER (:, 1,12) = (/&
+&.443E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,.463E-03_JPRB,&
+&.463E-03_JPRB,.463E-03_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  2  86.0
+ZAER (:, 2,12) = (/&
+&.995E-03_JPRB,.126E-02_JPRB,.169E-02_JPRB,.207E-02_JPRB,.253E-02_JPRB,.282E-02_JPRB,.319E-02_JPRB,&
+&.367E-02_JPRB,.404E-02_JPRB,.434E-02_JPRB,.458E-02_JPRB,.498E-02_JPRB,.364E-02_JPRB,.286E-02_JPRB,&
+&.231E-02_JPRB,.184E-02_JPRB,.150E-02_JPRB,.118E-02_JPRB,.947E-03_JPRB,.872E-03_JPRB,.870E-03_JPRB,&
+&.100E-02_JPRB,.114E-02_JPRB,.119E-02_JPRB,.102E-02_JPRB,.101E-02_JPRB,.984E-03_JPRB,.946E-03_JPRB,&
+&.901E-03_JPRB,.823E-03_JPRB,.775E-03_JPRB,.731E-03_JPRB,.626E-03_JPRB,.595E-03_JPRB,.538E-03_JPRB,&
+&.445E-03_JPRB,.345E-03_JPRB,.304E-03_JPRB,.291E-03_JPRB,.270E-03_JPRB,.266E-03_JPRB,.269E-03_JPRB,&
+&.257E-03_JPRB,.251E-03_JPRB,.243E-03_JPRB,.238E-03_JPRB,.242E-03_JPRB,.225E-03_JPRB,.207E-03_JPRB,&
+&.200E-03_JPRB,.185E-03_JPRB,.182E-03_JPRB,.176E-03_JPRB,.174E-03_JPRB,.173E-03_JPRB,.178E-03_JPRB,&
+&.181E-03_JPRB,.188E-03_JPRB,.202E-03_JPRB,.223E-03_JPRB,.219E-03_JPRB,.232E-03_JPRB,.224E-03_JPRB,&
+&.228E-03_JPRB,.248E-03_JPRB,.268E-03_JPRB,.296E-03_JPRB,.353E-03_JPRB,.369E-03_JPRB,.434E-03_JPRB,&
+&.487E-03_JPRB,.674E-03_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  3  82.0
+ZAER (:, 3,12) = (/&
+&.712E-02_JPRB,.635E-02_JPRB,.604E-02_JPRB,.592E-02_JPRB,.612E-02_JPRB,.653E-02_JPRB,.700E-02_JPRB,&
+&.702E-02_JPRB,.715E-02_JPRB,.730E-02_JPRB,.739E-02_JPRB,.771E-02_JPRB,.693E-02_JPRB,.550E-02_JPRB,&
+&.431E-02_JPRB,.334E-02_JPRB,.255E-02_JPRB,.197E-02_JPRB,.201E-02_JPRB,.193E-02_JPRB,.201E-02_JPRB,&
+&.224E-02_JPRB,.265E-02_JPRB,.317E-02_JPRB,.385E-02_JPRB,.306E-02_JPRB,.248E-02_JPRB,.210E-02_JPRB,&
+&.195E-02_JPRB,.203E-02_JPRB,.196E-02_JPRB,.148E-02_JPRB,.107E-02_JPRB,.788E-03_JPRB,.551E-03_JPRB,&
+&.407E-03_JPRB,.268E-03_JPRB,.233E-03_JPRB,.220E-03_JPRB,.238E-03_JPRB,.276E-03_JPRB,.329E-03_JPRB,&
+&.361E-03_JPRB,.356E-03_JPRB,.343E-03_JPRB,.321E-03_JPRB,.304E-03_JPRB,.279E-03_JPRB,.317E-03_JPRB,&
+&.316E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.318E-03_JPRB,.297E-03_JPRB,.265E-03_JPRB,&
+&.240E-03_JPRB,.228E-03_JPRB,.248E-03_JPRB,.263E-03_JPRB,.288E-03_JPRB,.290E-03_JPRB,.329E-03_JPRB,&
+&.472E-03_JPRB,.694E-03_JPRB,.997E-03_JPRB,.217E-02_JPRB,.367E-02_JPRB,.470E-02_JPRB,.594E-02_JPRB,&
+&.726E-02_JPRB,.844E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  4  78.0
+ZAER (:, 4,12) = (/&
+&.117E-01_JPRB,.960E-02_JPRB,.874E-02_JPRB,.933E-02_JPRB,.936E-02_JPRB,.930E-02_JPRB,.923E-02_JPRB,&
+&.814E-02_JPRB,.890E-02_JPRB,.730E-02_JPRB,.695E-02_JPRB,.768E-02_JPRB,.615E-02_JPRB,.635E-02_JPRB,&
+&.735E-02_JPRB,.625E-02_JPRB,.440E-02_JPRB,.388E-02_JPRB,.308E-02_JPRB,.249E-02_JPRB,.305E-02_JPRB,&
+&.353E-02_JPRB,.397E-02_JPRB,.549E-02_JPRB,.569E-02_JPRB,.431E-02_JPRB,.553E-02_JPRB,.493E-02_JPRB,&
+&.394E-02_JPRB,.372E-02_JPRB,.339E-02_JPRB,.264E-02_JPRB,.245E-02_JPRB,.139E-02_JPRB,.844E-03_JPRB,&
+&.663E-03_JPRB,.475E-03_JPRB,.304E-03_JPRB,.313E-03_JPRB,.334E-03_JPRB,.365E-03_JPRB,.463E-03_JPRB,&
+&.506E-03_JPRB,.518E-03_JPRB,.579E-03_JPRB,.599E-03_JPRB,.626E-03_JPRB,.678E-03_JPRB,.709E-03_JPRB,&
+&.714E-03_JPRB,.757E-03_JPRB,.615E-03_JPRB,.521E-03_JPRB,.502E-03_JPRB,.432E-03_JPRB,.420E-03_JPRB,&
+&.420E-03_JPRB,.341E-03_JPRB,.320E-03_JPRB,.374E-03_JPRB,.384E-03_JPRB,.400E-03_JPRB,.545E-03_JPRB,&
+&.715E-03_JPRB,.969E-03_JPRB,.133E-02_JPRB,.163E-02_JPRB,.228E-02_JPRB,.518E-02_JPRB,.139E-01_JPRB,&
+&.137E-01_JPRB,.130E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  5  74.0
+ZAER (:, 5,12) = (/&
+&.995E-02_JPRB,.104E-01_JPRB,.120E-01_JPRB,.136E-01_JPRB,.131E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,&
+&.109E-01_JPRB,.108E-01_JPRB,.114E-01_JPRB,.116E-01_JPRB,.106E-01_JPRB,.121E-01_JPRB,.136E-01_JPRB,&
+&.149E-01_JPRB,.163E-01_JPRB,.149E-01_JPRB,.116E-01_JPRB,.865E-02_JPRB,.736E-02_JPRB,.789E-02_JPRB,&
+&.666E-02_JPRB,.476E-02_JPRB,.517E-02_JPRB,.679E-02_JPRB,.741E-02_JPRB,.729E-02_JPRB,.815E-02_JPRB,&
+&.778E-02_JPRB,.741E-02_JPRB,.778E-02_JPRB,.778E-02_JPRB,.731E-02_JPRB,.524E-02_JPRB,.241E-02_JPRB,&
+&.115E-02_JPRB,.801E-03_JPRB,.464E-03_JPRB,.361E-03_JPRB,.456E-03_JPRB,.631E-03_JPRB,.944E-03_JPRB,&
+&.126E-02_JPRB,.142E-02_JPRB,.120E-02_JPRB,.102E-02_JPRB,.951E-03_JPRB,.130E-02_JPRB,.146E-02_JPRB,&
+&.184E-02_JPRB,.164E-02_JPRB,.100E-02_JPRB,.840E-03_JPRB,.613E-03_JPRB,.479E-03_JPRB,.504E-03_JPRB,&
+&.505E-03_JPRB,.475E-03_JPRB,.522E-03_JPRB,.639E-03_JPRB,.659E-03_JPRB,.674E-03_JPRB,.703E-03_JPRB,&
+&.884E-03_JPRB,.110E-02_JPRB,.159E-02_JPRB,.218E-02_JPRB,.302E-02_JPRB,.467E-02_JPRB,.815E-02_JPRB,&
+&.113E-01_JPRB,.103E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  6  70.0
+ZAER (:, 6,12) = (/&
+&.143E-01_JPRB,.152E-01_JPRB,.160E-01_JPRB,.146E-01_JPRB,.126E-01_JPRB,.116E-01_JPRB,.119E-01_JPRB,&
+&.102E-01_JPRB,.113E-01_JPRB,.120E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.136E-01_JPRB,.114E-01_JPRB,&
+&.120E-01_JPRB,.146E-01_JPRB,.145E-01_JPRB,.120E-01_JPRB,.936E-02_JPRB,.830E-02_JPRB,.889E-02_JPRB,&
+&.956E-02_JPRB,.771E-02_JPRB,.768E-02_JPRB,.865E-02_JPRB,.974E-02_JPRB,.933E-02_JPRB,.100E-01_JPRB,&
+&.104E-01_JPRB,.109E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.115E-01_JPRB,.102E-01_JPRB,.856E-02_JPRB,&
+&.430E-02_JPRB,.233E-02_JPRB,.188E-02_JPRB,.216E-02_JPRB,.351E-02_JPRB,.422E-02_JPRB,.394E-02_JPRB,&
+&.488E-02_JPRB,.527E-02_JPRB,.585E-02_JPRB,.347E-02_JPRB,.266E-02_JPRB,.188E-02_JPRB,.328E-02_JPRB,&
+&.511E-02_JPRB,.570E-02_JPRB,.313E-02_JPRB,.185E-02_JPRB,.123E-02_JPRB,.112E-02_JPRB,.124E-02_JPRB,&
+&.121E-02_JPRB,.125E-02_JPRB,.136E-02_JPRB,.175E-02_JPRB,.230E-02_JPRB,.238E-02_JPRB,.215E-02_JPRB,&
+&.170E-02_JPRB,.182E-02_JPRB,.302E-02_JPRB,.539E-02_JPRB,.885E-02_JPRB,.999E-02_JPRB,.917E-02_JPRB,&
+&.117E-01_JPRB,.124E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  7  66.0
+ZAER (:, 7,12) = (/&
+&.142E-01_JPRB,.147E-01_JPRB,.155E-01_JPRB,.142E-01_JPRB,.126E-01_JPRB,.111E-01_JPRB,.113E-01_JPRB,&
+&.121E-01_JPRB,.110E-01_JPRB,.109E-01_JPRB,.128E-01_JPRB,.148E-01_JPRB,.140E-01_JPRB,.135E-01_JPRB,&
+&.126E-01_JPRB,.134E-01_JPRB,.123E-01_JPRB,.108E-01_JPRB,.102E-01_JPRB,.123E-01_JPRB,.177E-01_JPRB,&
+&.217E-01_JPRB,.198E-01_JPRB,.131E-01_JPRB,.118E-01_JPRB,.124E-01_JPRB,.143E-01_JPRB,.158E-01_JPRB,&
+&.142E-01_JPRB,.130E-01_JPRB,.122E-01_JPRB,.141E-01_JPRB,.147E-01_JPRB,.152E-01_JPRB,.133E-01_JPRB,&
+&.106E-01_JPRB,.975E-02_JPRB,.887E-02_JPRB,.925E-02_JPRB,.105E-01_JPRB,.132E-01_JPRB,.121E-01_JPRB,&
+&.905E-02_JPRB,.770E-02_JPRB,.118E-01_JPRB,.162E-01_JPRB,.153E-01_JPRB,.151E-01_JPRB,.175E-01_JPRB,&
+&.192E-01_JPRB,.163E-01_JPRB,.102E-01_JPRB,.688E-02_JPRB,.477E-02_JPRB,.427E-02_JPRB,.571E-02_JPRB,&
+&.633E-02_JPRB,.657E-02_JPRB,.715E-02_JPRB,.731E-02_JPRB,.850E-02_JPRB,.979E-02_JPRB,.925E-02_JPRB,&
+&.820E-02_JPRB,.103E-01_JPRB,.147E-01_JPRB,.169E-01_JPRB,.164E-01_JPRB,.168E-01_JPRB,.193E-01_JPRB,&
+&.181E-01_JPRB,.153E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  8  62.0
+ZAER (:, 8,12) = (/&
+&.131E-01_JPRB,.144E-01_JPRB,.157E-01_JPRB,.158E-01_JPRB,.160E-01_JPRB,.143E-01_JPRB,.110E-01_JPRB,&
+&.120E-01_JPRB,.129E-01_JPRB,.136E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,.125E-01_JPRB,.103E-01_JPRB,&
+&.112E-01_JPRB,.128E-01_JPRB,.146E-01_JPRB,.134E-01_JPRB,.124E-01_JPRB,.141E-01_JPRB,.168E-01_JPRB,&
+&.216E-01_JPRB,.218E-01_JPRB,.172E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,.159E-01_JPRB,.170E-01_JPRB,&
+&.176E-01_JPRB,.145E-01_JPRB,.120E-01_JPRB,.131E-01_JPRB,.164E-01_JPRB,.153E-01_JPRB,.134E-01_JPRB,&
+&.129E-01_JPRB,.143E-01_JPRB,.154E-01_JPRB,.153E-01_JPRB,.158E-01_JPRB,.153E-01_JPRB,.180E-01_JPRB,&
+&.210E-01_JPRB,.216E-01_JPRB,.216E-01_JPRB,.235E-01_JPRB,.271E-01_JPRB,.247E-01_JPRB,.275E-01_JPRB,&
+&.261E-01_JPRB,.233E-01_JPRB,.156E-01_JPRB,.108E-01_JPRB,.915E-02_JPRB,.115E-01_JPRB,.162E-01_JPRB,&
+&.177E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,.179E-01_JPRB,.191E-01_JPRB,.188E-01_JPRB,.200E-01_JPRB,&
+&.212E-01_JPRB,.216E-01_JPRB,.267E-01_JPRB,.302E-01_JPRB,.224E-01_JPRB,.208E-01_JPRB,.256E-01_JPRB,&
+&.207E-01_JPRB,.124E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat:  9  58.0
+ZAER (:, 9,12) = (/&
+&.129E-01_JPRB,.140E-01_JPRB,.145E-01_JPRB,.160E-01_JPRB,.156E-01_JPRB,.142E-01_JPRB,.123E-01_JPRB,&
+&.109E-01_JPRB,.111E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.107E-01_JPRB,.108E-01_JPRB,.125E-01_JPRB,&
+&.133E-01_JPRB,.140E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.145E-01_JPRB,.159E-01_JPRB,.148E-01_JPRB,&
+&.138E-01_JPRB,.129E-01_JPRB,.129E-01_JPRB,.120E-01_JPRB,.123E-01_JPRB,.131E-01_JPRB,.175E-01_JPRB,&
+&.169E-01_JPRB,.180E-01_JPRB,.171E-01_JPRB,.143E-01_JPRB,.158E-01_JPRB,.148E-01_JPRB,.136E-01_JPRB,&
+&.146E-01_JPRB,.150E-01_JPRB,.151E-01_JPRB,.157E-01_JPRB,.153E-01_JPRB,.153E-01_JPRB,.191E-01_JPRB,&
+&.249E-01_JPRB,.289E-01_JPRB,.287E-01_JPRB,.268E-01_JPRB,.272E-01_JPRB,.266E-01_JPRB,.202E-01_JPRB,&
+&.230E-01_JPRB,.214E-01_JPRB,.240E-01_JPRB,.229E-01_JPRB,.200E-01_JPRB,.203E-01_JPRB,.205E-01_JPRB,&
+&.202E-01_JPRB,.195E-01_JPRB,.198E-01_JPRB,.237E-01_JPRB,.246E-01_JPRB,.229E-01_JPRB,.263E-01_JPRB,&
+&.258E-01_JPRB,.249E-01_JPRB,.251E-01_JPRB,.248E-01_JPRB,.182E-01_JPRB,.155E-01_JPRB,.174E-01_JPRB,&
+&.162E-01_JPRB,.139E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 10  54.0
+ZAER (:,10,12) = (/&
+&.147E-01_JPRB,.151E-01_JPRB,.151E-01_JPRB,.146E-01_JPRB,.134E-01_JPRB,.116E-01_JPRB,.117E-01_JPRB,&
+&.114E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.120E-01_JPRB,.123E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.126E-01_JPRB,.122E-01_JPRB,.122E-01_JPRB,.119E-01_JPRB,.113E-01_JPRB,&
+&.117E-01_JPRB,.774E-02_JPRB,.133E-01_JPRB,.139E-01_JPRB,.143E-01_JPRB,.131E-01_JPRB,.134E-01_JPRB,&
+&.140E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.141E-01_JPRB,.168E-01_JPRB,.167E-01_JPRB,.161E-01_JPRB,&
+&.164E-01_JPRB,.161E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.149E-01_JPRB,.147E-01_JPRB,.153E-01_JPRB,&
+&.184E-01_JPRB,.208E-01_JPRB,.196E-01_JPRB,.192E-01_JPRB,.229E-01_JPRB,.257E-01_JPRB,.251E-01_JPRB,&
+&.240E-01_JPRB,.244E-01_JPRB,.231E-01_JPRB,.235E-01_JPRB,.254E-01_JPRB,.253E-01_JPRB,.211E-01_JPRB,&
+&.190E-01_JPRB,.187E-01_JPRB,.193E-01_JPRB,.193E-01_JPRB,.206E-01_JPRB,.219E-01_JPRB,.224E-01_JPRB,&
+&.210E-01_JPRB,.204E-01_JPRB,.180E-01_JPRB,.169E-01_JPRB,.163E-01_JPRB,.163E-01_JPRB,.156E-01_JPRB,&
+&.163E-01_JPRB,.160E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 11  50.0
+ZAER (:,11,12) = (/&
+&.138E-01_JPRB,.143E-01_JPRB,.131E-01_JPRB,.119E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.111E-01_JPRB,&
+&.111E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.112E-01_JPRB,.104E-01_JPRB,.868E-02_JPRB,.803E-02_JPRB,&
+&.817E-02_JPRB,.931E-02_JPRB,.110E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,.109E-01_JPRB,.929E-02_JPRB,&
+&.862E-02_JPRB,.555E-02_JPRB,.108E-01_JPRB,.990E-02_JPRB,.979E-02_JPRB,.104E-01_JPRB,.102E-01_JPRB,&
+&.974E-02_JPRB,.113E-01_JPRB,.123E-01_JPRB,.134E-01_JPRB,.154E-01_JPRB,.158E-01_JPRB,.155E-01_JPRB,&
+&.153E-01_JPRB,.147E-01_JPRB,.154E-01_JPRB,.150E-01_JPRB,.153E-01_JPRB,.141E-01_JPRB,.136E-01_JPRB,&
+&.130E-01_JPRB,.136E-01_JPRB,.149E-01_JPRB,.127E-01_JPRB,.126E-01_JPRB,.136E-01_JPRB,.137E-01_JPRB,&
+&.123E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,.137E-01_JPRB,.144E-01_JPRB,.143E-01_JPRB,.149E-01_JPRB,&
+&.169E-01_JPRB,.172E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.170E-01_JPRB,.169E-01_JPRB,.167E-01_JPRB,&
+&.162E-01_JPRB,.159E-01_JPRB,.149E-01_JPRB,.135E-01_JPRB,.130E-01_JPRB,.134E-01_JPRB,.137E-01_JPRB,&
+&.139E-01_JPRB,.138E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 12  46.0
+ZAER (:,12,12) = (/&
+&.121E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.113E-01_JPRB,.113E-01_JPRB,.116E-01_JPRB,.106E-01_JPRB,&
+&.101E-01_JPRB,.981E-02_JPRB,.901E-02_JPRB,.880E-02_JPRB,.892E-02_JPRB,.771E-02_JPRB,.694E-02_JPRB,&
+&.830E-02_JPRB,.966E-02_JPRB,.915E-02_JPRB,.946E-02_JPRB,.919E-02_JPRB,.830E-02_JPRB,.837E-02_JPRB,&
+&.819E-02_JPRB,.489E-02_JPRB,.103E-01_JPRB,.106E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.102E-01_JPRB,&
+&.105E-01_JPRB,.109E-01_JPRB,.127E-01_JPRB,.140E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,.142E-01_JPRB,&
+&.133E-01_JPRB,.130E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.132E-01_JPRB,.127E-01_JPRB,.115E-01_JPRB,&
+&.122E-01_JPRB,.129E-01_JPRB,.146E-01_JPRB,.132E-01_JPRB,.109E-01_JPRB,.972E-02_JPRB,.106E-01_JPRB,&
+&.103E-01_JPRB,.107E-01_JPRB,.113E-01_JPRB,.120E-01_JPRB,.104E-01_JPRB,.992E-02_JPRB,.104E-01_JPRB,&
+&.111E-01_JPRB,.123E-01_JPRB,.132E-01_JPRB,.137E-01_JPRB,.140E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,&
+&.145E-01_JPRB,.137E-01_JPRB,.130E-01_JPRB,.124E-01_JPRB,.119E-01_JPRB,.115E-01_JPRB,.116E-01_JPRB,&
+&.118E-01_JPRB,.118E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 13  42.0
+ZAER (:,13,12) = (/&
+&.112E-01_JPRB,.115E-01_JPRB,.111E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.108E-01_JPRB,.113E-01_JPRB,&
+&.108E-01_JPRB,.855E-02_JPRB,.849E-02_JPRB,.757E-02_JPRB,.842E-02_JPRB,.899E-02_JPRB,.927E-02_JPRB,&
+&.894E-02_JPRB,.863E-02_JPRB,.867E-02_JPRB,.920E-02_JPRB,.908E-02_JPRB,.816E-02_JPRB,.728E-02_JPRB,&
+&.642E-02_JPRB,.469E-02_JPRB,.642E-02_JPRB,.147E-01_JPRB,.165E-01_JPRB,.148E-01_JPRB,.129E-01_JPRB,&
+&.115E-01_JPRB,.112E-01_JPRB,.117E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,.126E-01_JPRB,.120E-01_JPRB,&
+&.122E-01_JPRB,.122E-01_JPRB,.118E-01_JPRB,.116E-01_JPRB,.110E-01_JPRB,.108E-01_JPRB,.107E-01_JPRB,&
+&.114E-01_JPRB,.135E-01_JPRB,.140E-01_JPRB,.120E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.109E-01_JPRB,&
+&.105E-01_JPRB,.114E-01_JPRB,.122E-01_JPRB,.118E-01_JPRB,.106E-01_JPRB,.107E-01_JPRB,.111E-01_JPRB,&
+&.103E-01_JPRB,.923E-02_JPRB,.924E-02_JPRB,.102E-01_JPRB,.112E-01_JPRB,.115E-01_JPRB,.119E-01_JPRB,&
+&.120E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.104E-01_JPRB,.101E-01_JPRB,.113E-01_JPRB,.112E-01_JPRB,&
+&.102E-01_JPRB,.100E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 14  38.0
+ZAER (:,14,12) = (/&
+&.130E-01_JPRB,.118E-01_JPRB,.124E-01_JPRB,.123E-01_JPRB,.123E-01_JPRB,.109E-01_JPRB,.114E-01_JPRB,&
+&.113E-01_JPRB,.965E-02_JPRB,.105E-01_JPRB,.941E-02_JPRB,.105E-01_JPRB,.101E-01_JPRB,.997E-02_JPRB,&
+&.950E-02_JPRB,.931E-02_JPRB,.808E-02_JPRB,.850E-02_JPRB,.790E-02_JPRB,.777E-02_JPRB,.850E-02_JPRB,&
+&.767E-02_JPRB,.617E-02_JPRB,.102E-01_JPRB,.978E-02_JPRB,.155E-01_JPRB,.148E-01_JPRB,.151E-01_JPRB,&
+&.138E-01_JPRB,.135E-01_JPRB,.127E-01_JPRB,.123E-01_JPRB,.117E-01_JPRB,.115E-01_JPRB,.119E-01_JPRB,&
+&.110E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.112E-01_JPRB,.111E-01_JPRB,.136E-01_JPRB,.158E-01_JPRB,&
+&.171E-01_JPRB,.159E-01_JPRB,.136E-01_JPRB,.118E-01_JPRB,.107E-01_JPRB,.106E-01_JPRB,.108E-01_JPRB,&
+&.110E-01_JPRB,.112E-01_JPRB,.109E-01_JPRB,.108E-01_JPRB,.114E-01_JPRB,.109E-01_JPRB,.986E-02_JPRB,&
+&.917E-02_JPRB,.828E-02_JPRB,.898E-02_JPRB,.107E-01_JPRB,.108E-01_JPRB,.124E-01_JPRB,.120E-01_JPRB,&
+&.121E-01_JPRB,.118E-01_JPRB,.658E-02_JPRB,.119E-01_JPRB,.138E-01_JPRB,.140E-01_JPRB,.128E-01_JPRB,&
+&.118E-01_JPRB,.971E-02_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 15  34.0
+ZAER (:,15,12) = (/&
+&.124E-01_JPRB,.120E-01_JPRB,.133E-01_JPRB,.134E-01_JPRB,.128E-01_JPRB,.103E-01_JPRB,.954E-02_JPRB,&
+&.955E-02_JPRB,.939E-02_JPRB,.993E-02_JPRB,.102E-01_JPRB,.104E-01_JPRB,.896E-02_JPRB,.872E-02_JPRB,&
+&.850E-02_JPRB,.786E-02_JPRB,.837E-02_JPRB,.852E-02_JPRB,.703E-02_JPRB,.657E-02_JPRB,.773E-02_JPRB,&
+&.126E-01_JPRB,.829E-02_JPRB,.137E-01_JPRB,.122E-01_JPRB,.117E-01_JPRB,.184E-01_JPRB,.193E-01_JPRB,&
+&.176E-01_JPRB,.165E-01_JPRB,.158E-01_JPRB,.139E-01_JPRB,.128E-01_JPRB,.119E-01_JPRB,.122E-01_JPRB,&
+&.113E-01_JPRB,.102E-01_JPRB,.112E-01_JPRB,.113E-01_JPRB,.148E-01_JPRB,.106E-01_JPRB,.212E-01_JPRB,&
+&.215E-01_JPRB,.182E-01_JPRB,.150E-01_JPRB,.135E-01_JPRB,.137E-01_JPRB,.131E-01_JPRB,.113E-01_JPRB,&
+&.109E-01_JPRB,.104E-01_JPRB,.106E-01_JPRB,.106E-01_JPRB,.104E-01_JPRB,.102E-01_JPRB,.898E-02_JPRB,&
+&.103E-01_JPRB,.104E-01_JPRB,.133E-01_JPRB,.139E-01_JPRB,.915E-02_JPRB,.171E-01_JPRB,.152E-01_JPRB,&
+&.141E-01_JPRB,.883E-02_JPRB,.958E-02_JPRB,.912E-02_JPRB,.157E-01_JPRB,.137E-01_JPRB,.127E-01_JPRB,&
+&.124E-01_JPRB,.119E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 16  30.0
+ZAER (:,16,12) = (/&
+&.142E-01_JPRB,.147E-01_JPRB,.143E-01_JPRB,.133E-01_JPRB,.129E-01_JPRB,.117E-01_JPRB,.117E-01_JPRB,&
+&.106E-01_JPRB,.100E-01_JPRB,.958E-02_JPRB,.103E-01_JPRB,.117E-01_JPRB,.123E-01_JPRB,.104E-01_JPRB,&
+&.956E-02_JPRB,.869E-02_JPRB,.839E-02_JPRB,.876E-02_JPRB,.860E-02_JPRB,.801E-02_JPRB,.858E-02_JPRB,&
+&.154E-01_JPRB,.125E-01_JPRB,.172E-01_JPRB,.171E-01_JPRB,.167E-01_JPRB,.259E-01_JPRB,.264E-01_JPRB,&
+&.222E-01_JPRB,.190E-01_JPRB,.180E-01_JPRB,.166E-01_JPRB,.148E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,&
+&.124E-01_JPRB,.112E-01_JPRB,.122E-01_JPRB,.161E-01_JPRB,.194E-01_JPRB,.147E-01_JPRB,.198E-01_JPRB,&
+&.176E-01_JPRB,.286E-01_JPRB,.215E-01_JPRB,.179E-01_JPRB,.162E-01_JPRB,.154E-01_JPRB,.148E-01_JPRB,&
+&.146E-01_JPRB,.129E-01_JPRB,.132E-01_JPRB,.120E-01_JPRB,.118E-01_JPRB,.114E-01_JPRB,.125E-01_JPRB,&
+&.143E-01_JPRB,.174E-01_JPRB,.204E-01_JPRB,.122E-01_JPRB,.109E-01_JPRB,.118E-01_JPRB,.104E-01_JPRB,&
+&.109E-01_JPRB,.119E-01_JPRB,.127E-01_JPRB,.108E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,&
+&.137E-01_JPRB,.135E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 17  26.0
+ZAER (:,17,12) = (/&
+&.179E-01_JPRB,.184E-01_JPRB,.175E-01_JPRB,.161E-01_JPRB,.144E-01_JPRB,.133E-01_JPRB,.128E-01_JPRB,&
+&.129E-01_JPRB,.118E-01_JPRB,.124E-01_JPRB,.135E-01_JPRB,.144E-01_JPRB,.136E-01_JPRB,.117E-01_JPRB,&
+&.101E-01_JPRB,.890E-02_JPRB,.884E-02_JPRB,.947E-02_JPRB,.989E-02_JPRB,.116E-01_JPRB,.126E-01_JPRB,&
+&.240E-01_JPRB,.198E-01_JPRB,.199E-01_JPRB,.211E-01_JPRB,.201E-01_JPRB,.207E-01_JPRB,.373E-01_JPRB,&
+&.268E-01_JPRB,.218E-01_JPRB,.188E-01_JPRB,.174E-01_JPRB,.162E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,&
+&.142E-01_JPRB,.141E-01_JPRB,.167E-01_JPRB,.211E-01_JPRB,.127E-01_JPRB,.176E-01_JPRB,.317E-01_JPRB,&
+&.191E-01_JPRB,.378E-01_JPRB,.251E-01_JPRB,.200E-01_JPRB,.193E-01_JPRB,.185E-01_JPRB,.181E-01_JPRB,&
+&.164E-01_JPRB,.155E-01_JPRB,.154E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,.147E-01_JPRB,.168E-01_JPRB,&
+&.195E-01_JPRB,.229E-01_JPRB,.275E-01_JPRB,.147E-01_JPRB,.106E-01_JPRB,.102E-01_JPRB,.114E-01_JPRB,&
+&.157E-01_JPRB,.158E-01_JPRB,.136E-01_JPRB,.107E-01_JPRB,.182E-01_JPRB,.196E-01_JPRB,.163E-01_JPRB,&
+&.165E-01_JPRB,.174E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 18  22.0
+ZAER (:,18,12) = (/&
+&.197E-01_JPRB,.188E-01_JPRB,.182E-01_JPRB,.162E-01_JPRB,.155E-01_JPRB,.149E-01_JPRB,.151E-01_JPRB,&
+&.145E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.150E-01_JPRB,.156E-01_JPRB,.137E-01_JPRB,.124E-01_JPRB,&
+&.122E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.125E-01_JPRB,.178E-01_JPRB,.230E-01_JPRB,.277E-01_JPRB,&
+&.591E-01_JPRB,.317E-01_JPRB,.193E-01_JPRB,.200E-01_JPRB,.184E-01_JPRB,.210E-01_JPRB,.190E-01_JPRB,&
+&.264E-01_JPRB,.216E-01_JPRB,.196E-01_JPRB,.188E-01_JPRB,.166E-01_JPRB,.167E-01_JPRB,.153E-01_JPRB,&
+&.156E-01_JPRB,.182E-01_JPRB,.232E-01_JPRB,.220E-01_JPRB,.119E-01_JPRB,.140E-01_JPRB,.193E-01_JPRB,&
+&.171E-01_JPRB,.152E-01_JPRB,.198E-01_JPRB,.107E-01_JPRB,.194E-01_JPRB,.224E-01_JPRB,.250E-01_JPRB,&
+&.152E-01_JPRB,.151E-01_JPRB,.179E-01_JPRB,.176E-01_JPRB,.174E-01_JPRB,.194E-01_JPRB,.221E-01_JPRB,&
+&.257E-01_JPRB,.299E-01_JPRB,.355E-01_JPRB,.304E-01_JPRB,.146E-01_JPRB,.137E-01_JPRB,.167E-01_JPRB,&
+&.214E-01_JPRB,.172E-01_JPRB,.144E-01_JPRB,.228E-01_JPRB,.248E-01_JPRB,.305E-01_JPRB,.290E-01_JPRB,&
+&.237E-01_JPRB,.212E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 19  18.0
+ZAER (:,19,12) = (/&
+&.201E-01_JPRB,.188E-01_JPRB,.180E-01_JPRB,.171E-01_JPRB,.173E-01_JPRB,.170E-01_JPRB,.171E-01_JPRB,&
+&.167E-01_JPRB,.164E-01_JPRB,.164E-01_JPRB,.170E-01_JPRB,.173E-01_JPRB,.156E-01_JPRB,.149E-01_JPRB,&
+&.179E-01_JPRB,.187E-01_JPRB,.205E-01_JPRB,.274E-01_JPRB,.312E-01_JPRB,.362E-01_JPRB,.512E-01_JPRB,&
+&.102E+00_JPRB,.301E-01_JPRB,.189E-01_JPRB,.176E-01_JPRB,.164E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,&
+&.143E-01_JPRB,.202E-01_JPRB,.194E-01_JPRB,.191E-01_JPRB,.180E-01_JPRB,.174E-01_JPRB,.179E-01_JPRB,&
+&.205E-01_JPRB,.247E-01_JPRB,.276E-01_JPRB,.211E-01_JPRB,.107E-01_JPRB,.136E-01_JPRB,.165E-01_JPRB,&
+&.135E-01_JPRB,.112E-01_JPRB,.141E-01_JPRB,.941E-02_JPRB,.168E-01_JPRB,.222E-01_JPRB,.190E-01_JPRB,&
+&.150E-01_JPRB,.173E-01_JPRB,.197E-01_JPRB,.212E-01_JPRB,.235E-01_JPRB,.260E-01_JPRB,.302E-01_JPRB,&
+&.343E-01_JPRB,.449E-01_JPRB,.496E-01_JPRB,.455E-01_JPRB,.397E-01_JPRB,.224E-01_JPRB,.253E-01_JPRB,&
+&.284E-01_JPRB,.257E-01_JPRB,.238E-01_JPRB,.449E-01_JPRB,.493E-01_JPRB,.524E-01_JPRB,.585E-01_JPRB,&
+&.379E-01_JPRB,.238E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 20  14.0
+ZAER (:,20,12) = (/&
+&.193E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.182E-01_JPRB,.188E-01_JPRB,.194E-01_JPRB,.198E-01_JPRB,&
+&.199E-01_JPRB,.203E-01_JPRB,.200E-01_JPRB,.201E-01_JPRB,.202E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,&
+&.266E-01_JPRB,.323E-01_JPRB,.386E-01_JPRB,.412E-01_JPRB,.439E-01_JPRB,.482E-01_JPRB,.642E-01_JPRB,&
+&.421E-01_JPRB,.286E-01_JPRB,.190E-01_JPRB,.151E-01_JPRB,.146E-01_JPRB,.146E-01_JPRB,.160E-01_JPRB,&
+&.148E-01_JPRB,.210E-01_JPRB,.204E-01_JPRB,.198E-01_JPRB,.187E-01_JPRB,.200E-01_JPRB,.219E-01_JPRB,&
+&.252E-01_JPRB,.287E-01_JPRB,.272E-01_JPRB,.185E-01_JPRB,.101E-01_JPRB,.114E-01_JPRB,.153E-01_JPRB,&
+&.142E-01_JPRB,.921E-02_JPRB,.774E-02_JPRB,.147E-01_JPRB,.152E-01_JPRB,.165E-01_JPRB,.162E-01_JPRB,&
+&.172E-01_JPRB,.196E-01_JPRB,.232E-01_JPRB,.287E-01_JPRB,.350E-01_JPRB,.419E-01_JPRB,.504E-01_JPRB,&
+&.566E-01_JPRB,.649E-01_JPRB,.668E-01_JPRB,.594E-01_JPRB,.578E-01_JPRB,.586E-01_JPRB,.396E-01_JPRB,&
+&.401E-01_JPRB,.801E-01_JPRB,.829E-01_JPRB,.800E-01_JPRB,.667E-01_JPRB,.600E-01_JPRB,.599E-01_JPRB,&
+&.319E-01_JPRB,.227E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 21  10.0
+ZAER (:,21,12) = (/&
+&.189E-01_JPRB,.185E-01_JPRB,.195E-01_JPRB,.206E-01_JPRB,.213E-01_JPRB,.224E-01_JPRB,.233E-01_JPRB,&
+&.241E-01_JPRB,.246E-01_JPRB,.250E-01_JPRB,.253E-01_JPRB,.260E-01_JPRB,.259E-01_JPRB,.280E-01_JPRB,&
+&.358E-01_JPRB,.429E-01_JPRB,.471E-01_JPRB,.504E-01_JPRB,.496E-01_JPRB,.584E-01_JPRB,.570E-01_JPRB,&
+&.291E-01_JPRB,.239E-01_JPRB,.165E-01_JPRB,.142E-01_JPRB,.139E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,&
+&.140E-01_JPRB,.203E-01_JPRB,.205E-01_JPRB,.209E-01_JPRB,.198E-01_JPRB,.195E-01_JPRB,.217E-01_JPRB,&
+&.230E-01_JPRB,.240E-01_JPRB,.208E-01_JPRB,.159E-01_JPRB,.937E-02_JPRB,.104E-01_JPRB,.134E-01_JPRB,&
+&.121E-01_JPRB,.851E-02_JPRB,.121E-01_JPRB,.132E-01_JPRB,.144E-01_JPRB,.149E-01_JPRB,.165E-01_JPRB,&
+&.189E-01_JPRB,.225E-01_JPRB,.288E-01_JPRB,.381E-01_JPRB,.511E-01_JPRB,.670E-01_JPRB,.838E-01_JPRB,&
+&.107E+00_JPRB,.135E+00_JPRB,.151E+00_JPRB,.821E-01_JPRB,.105E+00_JPRB,.103E+00_JPRB,.106E+00_JPRB,&
+&.123E+00_JPRB,.147E+00_JPRB,.140E+00_JPRB,.103E+00_JPRB,.782E-01_JPRB,.572E-01_JPRB,.452E-01_JPRB,&
+&.270E-01_JPRB,.207E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 22   6.0
+ZAER (:,22,12) = (/&
+&.200E-01_JPRB,.197E-01_JPRB,.218E-01_JPRB,.230E-01_JPRB,.248E-01_JPRB,.265E-01_JPRB,.276E-01_JPRB,&
+&.290E-01_JPRB,.297E-01_JPRB,.296E-01_JPRB,.318E-01_JPRB,.352E-01_JPRB,.377E-01_JPRB,.404E-01_JPRB,&
+&.479E-01_JPRB,.555E-01_JPRB,.624E-01_JPRB,.654E-01_JPRB,.685E-01_JPRB,.852E-01_JPRB,.422E-01_JPRB,&
+&.298E-01_JPRB,.216E-01_JPRB,.164E-01_JPRB,.144E-01_JPRB,.147E-01_JPRB,.163E-01_JPRB,.153E-01_JPRB,&
+&.136E-01_JPRB,.212E-01_JPRB,.215E-01_JPRB,.223E-01_JPRB,.210E-01_JPRB,.180E-01_JPRB,.183E-01_JPRB,&
+&.194E-01_JPRB,.209E-01_JPRB,.186E-01_JPRB,.162E-01_JPRB,.993E-02_JPRB,.113E-01_JPRB,.125E-01_JPRB,&
+&.114E-01_JPRB,.891E-02_JPRB,.127E-01_JPRB,.132E-01_JPRB,.142E-01_JPRB,.152E-01_JPRB,.172E-01_JPRB,&
+&.203E-01_JPRB,.252E-01_JPRB,.329E-01_JPRB,.454E-01_JPRB,.626E-01_JPRB,.827E-01_JPRB,.104E+00_JPRB,&
+&.132E+00_JPRB,.160E+00_JPRB,.155E+00_JPRB,.143E+00_JPRB,.144E+00_JPRB,.144E+00_JPRB,.155E+00_JPRB,&
+&.171E+00_JPRB,.965E-01_JPRB,.885E-01_JPRB,.110E+00_JPRB,.823E-01_JPRB,.518E-01_JPRB,.331E-01_JPRB,&
+&.239E-01_JPRB,.199E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 23   2.0
+ZAER (:,23,12) = (/&
+&.248E-01_JPRB,.260E-01_JPRB,.274E-01_JPRB,.296E-01_JPRB,.346E-01_JPRB,.351E-01_JPRB,.353E-01_JPRB,&
+&.390E-01_JPRB,.415E-01_JPRB,.435E-01_JPRB,.488E-01_JPRB,.557E-01_JPRB,.616E-01_JPRB,.701E-01_JPRB,&
+&.748E-01_JPRB,.782E-01_JPRB,.809E-01_JPRB,.933E-01_JPRB,.104E+00_JPRB,.990E-01_JPRB,.592E-01_JPRB,&
+&.441E-01_JPRB,.263E-01_JPRB,.180E-01_JPRB,.151E-01_JPRB,.152E-01_JPRB,.180E-01_JPRB,.162E-01_JPRB,&
+&.226E-01_JPRB,.236E-01_JPRB,.227E-01_JPRB,.213E-01_JPRB,.210E-01_JPRB,.201E-01_JPRB,.199E-01_JPRB,&
+&.197E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.961E-02_JPRB,.105E-01_JPRB,.121E-01_JPRB,.151E-01_JPRB,&
+&.125E-01_JPRB,.982E-02_JPRB,.903E-02_JPRB,.140E-01_JPRB,.146E-01_JPRB,.158E-01_JPRB,.183E-01_JPRB,&
+&.213E-01_JPRB,.264E-01_JPRB,.342E-01_JPRB,.458E-01_JPRB,.610E-01_JPRB,.823E-01_JPRB,.100E+00_JPRB,&
+&.114E+00_JPRB,.788E-01_JPRB,.132E+00_JPRB,.810E-01_JPRB,.148E+00_JPRB,.166E+00_JPRB,.157E+00_JPRB,&
+&.898E-01_JPRB,.152E+00_JPRB,.122E+00_JPRB,.718E-01_JPRB,.620E-01_JPRB,.402E-01_JPRB,.304E-01_JPRB,&
+&.254E-01_JPRB,.230E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 24  -2.0
+ZAER (:,24,12) = (/&
+&.346E-01_JPRB,.396E-01_JPRB,.435E-01_JPRB,.461E-01_JPRB,.515E-01_JPRB,.531E-01_JPRB,.560E-01_JPRB,&
+&.593E-01_JPRB,.650E-01_JPRB,.695E-01_JPRB,.749E-01_JPRB,.856E-01_JPRB,.979E-01_JPRB,.113E+00_JPRB,&
+&.126E+00_JPRB,.138E+00_JPRB,.147E+00_JPRB,.147E+00_JPRB,.138E+00_JPRB,.132E+00_JPRB,.123E+00_JPRB,&
+&.498E-01_JPRB,.277E-01_JPRB,.182E-01_JPRB,.151E-01_JPRB,.147E-01_JPRB,.237E-01_JPRB,.226E-01_JPRB,&
+&.226E-01_JPRB,.223E-01_JPRB,.207E-01_JPRB,.202E-01_JPRB,.198E-01_JPRB,.183E-01_JPRB,.175E-01_JPRB,&
+&.159E-01_JPRB,.157E-01_JPRB,.161E-01_JPRB,.952E-02_JPRB,.101E-01_JPRB,.113E-01_JPRB,.122E-01_JPRB,&
+&.105E-01_JPRB,.918E-02_JPRB,.896E-02_JPRB,.878E-02_JPRB,.147E-01_JPRB,.162E-01_JPRB,.180E-01_JPRB,&
+&.205E-01_JPRB,.244E-01_JPRB,.295E-01_JPRB,.368E-01_JPRB,.478E-01_JPRB,.637E-01_JPRB,.793E-01_JPRB,&
+&.535E-01_JPRB,.109E+00_JPRB,.114E+00_JPRB,.674E-01_JPRB,.141E+00_JPRB,.162E+00_JPRB,.109E+00_JPRB,&
+&.939E-01_JPRB,.665E-01_JPRB,.372E-01_JPRB,.367E-01_JPRB,.394E-01_JPRB,.321E-01_JPRB,.291E-01_JPRB,&
+&.295E-01_JPRB,.308E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 25  -6.0
+ZAER (:,25,12) = (/&
+&.328E-01_JPRB,.372E-01_JPRB,.406E-01_JPRB,.427E-01_JPRB,.465E-01_JPRB,.488E-01_JPRB,.519E-01_JPRB,&
+&.568E-01_JPRB,.619E-01_JPRB,.672E-01_JPRB,.748E-01_JPRB,.863E-01_JPRB,.980E-01_JPRB,.115E+00_JPRB,&
+&.133E+00_JPRB,.147E+00_JPRB,.170E+00_JPRB,.177E+00_JPRB,.172E+00_JPRB,.144E+00_JPRB,.147E+00_JPRB,&
+&.545E-01_JPRB,.299E-01_JPRB,.181E-01_JPRB,.145E-01_JPRB,.217E-01_JPRB,.219E-01_JPRB,.219E-01_JPRB,&
+&.210E-01_JPRB,.199E-01_JPRB,.191E-01_JPRB,.190E-01_JPRB,.181E-01_JPRB,.172E-01_JPRB,.990E-02_JPRB,&
+&.984E-02_JPRB,.101E-01_JPRB,.101E-01_JPRB,.945E-02_JPRB,.904E-02_JPRB,.938E-02_JPRB,.947E-02_JPRB,&
+&.935E-02_JPRB,.856E-02_JPRB,.819E-02_JPRB,.839E-02_JPRB,.159E-01_JPRB,.167E-01_JPRB,.185E-01_JPRB,&
+&.206E-01_JPRB,.221E-01_JPRB,.258E-01_JPRB,.289E-01_JPRB,.347E-01_JPRB,.433E-01_JPRB,.541E-01_JPRB,&
+&.657E-01_JPRB,.742E-01_JPRB,.840E-01_JPRB,.872E-01_JPRB,.871E-01_JPRB,.807E-01_JPRB,.561E-01_JPRB,&
+&.435E-01_JPRB,.313E-01_JPRB,.244E-01_JPRB,.260E-01_JPRB,.269E-01_JPRB,.235E-01_JPRB,.244E-01_JPRB,&
+&.263E-01_JPRB,.290E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 26 -10.0
+ZAER (:,26,12) = (/&
+&.298E-01_JPRB,.336E-01_JPRB,.367E-01_JPRB,.391E-01_JPRB,.410E-01_JPRB,.427E-01_JPRB,.458E-01_JPRB,&
+&.521E-01_JPRB,.576E-01_JPRB,.630E-01_JPRB,.714E-01_JPRB,.811E-01_JPRB,.911E-01_JPRB,.105E+00_JPRB,&
+&.117E+00_JPRB,.126E+00_JPRB,.139E+00_JPRB,.142E+00_JPRB,.154E+00_JPRB,.120E+00_JPRB,.954E-01_JPRB,&
+&.458E-01_JPRB,.290E-01_JPRB,.177E-01_JPRB,.211E-01_JPRB,.211E-01_JPRB,.211E-01_JPRB,.202E-01_JPRB,&
+&.199E-01_JPRB,.199E-01_JPRB,.207E-01_JPRB,.225E-01_JPRB,.235E-01_JPRB,.213E-01_JPRB,.125E-01_JPRB,&
+&.134E-01_JPRB,.149E-01_JPRB,.149E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.959E-02_JPRB,.897E-02_JPRB,&
+&.803E-02_JPRB,.825E-02_JPRB,.838E-02_JPRB,.806E-02_JPRB,.951E-02_JPRB,.176E-01_JPRB,.187E-01_JPRB,&
+&.199E-01_JPRB,.201E-01_JPRB,.215E-01_JPRB,.236E-01_JPRB,.269E-01_JPRB,.314E-01_JPRB,.375E-01_JPRB,&
+&.401E-01_JPRB,.423E-01_JPRB,.509E-01_JPRB,.593E-01_JPRB,.562E-01_JPRB,.459E-01_JPRB,.351E-01_JPRB,&
+&.294E-01_JPRB,.247E-01_JPRB,.211E-01_JPRB,.206E-01_JPRB,.202E-01_JPRB,.200E-01_JPRB,.216E-01_JPRB,&
+&.237E-01_JPRB,.263E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 27 -14.0
+ZAER (:,27,12) = (/&
+&.245E-01_JPRB,.277E-01_JPRB,.305E-01_JPRB,.333E-01_JPRB,.343E-01_JPRB,.347E-01_JPRB,.363E-01_JPRB,&
+&.400E-01_JPRB,.452E-01_JPRB,.498E-01_JPRB,.571E-01_JPRB,.663E-01_JPRB,.776E-01_JPRB,.914E-01_JPRB,&
+&.101E+00_JPRB,.108E+00_JPRB,.112E+00_JPRB,.114E+00_JPRB,.657E-01_JPRB,.453E-01_JPRB,.619E-01_JPRB,&
+&.514E-01_JPRB,.430E-01_JPRB,.296E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.212E-01_JPRB,.207E-01_JPRB,&
+&.216E-01_JPRB,.228E-01_JPRB,.263E-01_JPRB,.306E-01_JPRB,.322E-01_JPRB,.185E-01_JPRB,.185E-01_JPRB,&
+&.196E-01_JPRB,.198E-01_JPRB,.191E-01_JPRB,.178E-01_JPRB,.178E-01_JPRB,.161E-01_JPRB,.128E-01_JPRB,&
+&.104E-01_JPRB,.912E-02_JPRB,.873E-02_JPRB,.794E-02_JPRB,.166E-01_JPRB,.184E-01_JPRB,.199E-01_JPRB,&
+&.209E-01_JPRB,.197E-01_JPRB,.112E-01_JPRB,.191E-01_JPRB,.231E-01_JPRB,.309E-01_JPRB,.354E-01_JPRB,&
+&.189E-01_JPRB,.184E-01_JPRB,.357E-01_JPRB,.419E-01_JPRB,.416E-01_JPRB,.316E-01_JPRB,.274E-01_JPRB,&
+&.251E-01_JPRB,.238E-01_JPRB,.211E-01_JPRB,.185E-01_JPRB,.175E-01_JPRB,.170E-01_JPRB,.181E-01_JPRB,&
+&.195E-01_JPRB,.219E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 28 -18.0
+ZAER (:,28,12) = (/&
+&.184E-01_JPRB,.220E-01_JPRB,.250E-01_JPRB,.258E-01_JPRB,.271E-01_JPRB,.252E-01_JPRB,.246E-01_JPRB,&
+&.244E-01_JPRB,.264E-01_JPRB,.318E-01_JPRB,.413E-01_JPRB,.534E-01_JPRB,.656E-01_JPRB,.792E-01_JPRB,&
+&.882E-01_JPRB,.952E-01_JPRB,.504E-01_JPRB,.439E-01_JPRB,.441E-01_JPRB,.558E-01_JPRB,.437E-01_JPRB,&
+&.374E-01_JPRB,.352E-01_JPRB,.282E-01_JPRB,.222E-01_JPRB,.217E-01_JPRB,.212E-01_JPRB,.225E-01_JPRB,&
+&.253E-01_JPRB,.258E-01_JPRB,.282E-01_JPRB,.301E-01_JPRB,.309E-01_JPRB,.184E-01_JPRB,.200E-01_JPRB,&
+&.195E-01_JPRB,.186E-01_JPRB,.188E-01_JPRB,.183E-01_JPRB,.185E-01_JPRB,.187E-01_JPRB,.197E-01_JPRB,&
+&.155E-01_JPRB,.148E-01_JPRB,.189E-01_JPRB,.104E-01_JPRB,.119E-01_JPRB,.130E-01_JPRB,.251E-01_JPRB,&
+&.313E-01_JPRB,.288E-01_JPRB,.143E-01_JPRB,.134E-01_JPRB,.224E-01_JPRB,.376E-01_JPRB,.337E-01_JPRB,&
+&.336E-01_JPRB,.199E-01_JPRB,.325E-01_JPRB,.318E-01_JPRB,.290E-01_JPRB,.250E-01_JPRB,.232E-01_JPRB,&
+&.228E-01_JPRB,.222E-01_JPRB,.214E-01_JPRB,.180E-01_JPRB,.156E-01_JPRB,.149E-01_JPRB,.152E-01_JPRB,&
+&.155E-01_JPRB,.164E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 29 -22.0
+ZAER (:,29,12) = (/&
+&.154E-01_JPRB,.179E-01_JPRB,.218E-01_JPRB,.249E-01_JPRB,.224E-01_JPRB,.207E-01_JPRB,.182E-01_JPRB,&
+&.160E-01_JPRB,.160E-01_JPRB,.189E-01_JPRB,.239E-01_JPRB,.400E-01_JPRB,.584E-01_JPRB,.689E-01_JPRB,&
+&.835E-01_JPRB,.532E-01_JPRB,.426E-01_JPRB,.596E-01_JPRB,.454E-01_JPRB,.435E-01_JPRB,.359E-01_JPRB,&
+&.327E-01_JPRB,.305E-01_JPRB,.270E-01_JPRB,.230E-01_JPRB,.224E-01_JPRB,.214E-01_JPRB,.232E-01_JPRB,&
+&.250E-01_JPRB,.239E-01_JPRB,.228E-01_JPRB,.237E-01_JPRB,.263E-01_JPRB,.140E-01_JPRB,.136E-01_JPRB,&
+&.169E-01_JPRB,.205E-01_JPRB,.213E-01_JPRB,.249E-01_JPRB,.269E-01_JPRB,.270E-01_JPRB,.297E-01_JPRB,&
+&.225E-01_JPRB,.254E-01_JPRB,.167E-01_JPRB,.195E-01_JPRB,.166E-01_JPRB,.157E-01_JPRB,.297E-01_JPRB,&
+&.403E-01_JPRB,.269E-01_JPRB,.251E-01_JPRB,.246E-01_JPRB,.147E-01_JPRB,.196E-01_JPRB,.310E-01_JPRB,&
+&.411E-01_JPRB,.356E-01_JPRB,.320E-01_JPRB,.412E-01_JPRB,.271E-01_JPRB,.246E-01_JPRB,.217E-01_JPRB,&
+&.220E-01_JPRB,.226E-01_JPRB,.210E-01_JPRB,.184E-01_JPRB,.158E-01_JPRB,.140E-01_JPRB,.138E-01_JPRB,&
+&.141E-01_JPRB,.145E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 30 -26.0
+ZAER (:,30,12) = (/&
+&.142E-01_JPRB,.154E-01_JPRB,.179E-01_JPRB,.169E-01_JPRB,.133E-01_JPRB,.136E-01_JPRB,.139E-01_JPRB,&
+&.125E-01_JPRB,.114E-01_JPRB,.103E-01_JPRB,.107E-01_JPRB,.189E-01_JPRB,.430E-01_JPRB,.577E-01_JPRB,&
+&.408E-01_JPRB,.362E-01_JPRB,.402E-01_JPRB,.656E-01_JPRB,.382E-01_JPRB,.277E-01_JPRB,.252E-01_JPRB,&
+&.236E-01_JPRB,.239E-01_JPRB,.235E-01_JPRB,.237E-01_JPRB,.226E-01_JPRB,.205E-01_JPRB,.194E-01_JPRB,&
+&.194E-01_JPRB,.189E-01_JPRB,.160E-01_JPRB,.151E-01_JPRB,.183E-01_JPRB,.207E-01_JPRB,.110E-01_JPRB,&
+&.117E-01_JPRB,.152E-01_JPRB,.155E-01_JPRB,.189E-01_JPRB,.285E-01_JPRB,.380E-01_JPRB,.446E-01_JPRB,&
+&.378E-01_JPRB,.317E-01_JPRB,.339E-01_JPRB,.326E-01_JPRB,.280E-01_JPRB,.375E-01_JPRB,.193E-01_JPRB,&
+&.218E-01_JPRB,.339E-01_JPRB,.389E-01_JPRB,.299E-01_JPRB,.123E-01_JPRB,.146E-01_JPRB,.271E-01_JPRB,&
+&.344E-01_JPRB,.388E-01_JPRB,.413E-01_JPRB,.462E-01_JPRB,.518E-01_JPRB,.382E-01_JPRB,.293E-01_JPRB,&
+&.270E-01_JPRB,.284E-01_JPRB,.243E-01_JPRB,.205E-01_JPRB,.178E-01_JPRB,.162E-01_JPRB,.150E-01_JPRB,&
+&.150E-01_JPRB,.146E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 31 -30.0
+ZAER (:,31,12) = (/&
+&.154E-01_JPRB,.148E-01_JPRB,.154E-01_JPRB,.146E-01_JPRB,.128E-01_JPRB,.106E-01_JPRB,.917E-02_JPRB,&
+&.834E-02_JPRB,.832E-02_JPRB,.806E-02_JPRB,.783E-02_JPRB,.100E-01_JPRB,.267E-01_JPRB,.391E-01_JPRB,&
+&.195E-01_JPRB,.201E-01_JPRB,.286E-01_JPRB,.406E-01_JPRB,.321E-01_JPRB,.204E-01_JPRB,.253E-01_JPRB,&
+&.247E-01_JPRB,.198E-01_JPRB,.201E-01_JPRB,.198E-01_JPRB,.191E-01_JPRB,.177E-01_JPRB,.169E-01_JPRB,&
+&.160E-01_JPRB,.157E-01_JPRB,.138E-01_JPRB,.110E-01_JPRB,.102E-01_JPRB,.142E-01_JPRB,.961E-02_JPRB,&
+&.971E-02_JPRB,.121E-01_JPRB,.160E-01_JPRB,.181E-01_JPRB,.285E-01_JPRB,.344E-01_JPRB,.406E-01_JPRB,&
+&.516E-01_JPRB,.405E-01_JPRB,.396E-01_JPRB,.370E-01_JPRB,.338E-01_JPRB,.244E-01_JPRB,.220E-01_JPRB,&
+&.226E-01_JPRB,.295E-01_JPRB,.281E-01_JPRB,.144E-01_JPRB,.483E-02_JPRB,.305E-02_JPRB,.527E-02_JPRB,&
+&.105E-01_JPRB,.263E-01_JPRB,.405E-01_JPRB,.540E-01_JPRB,.420E-01_JPRB,.570E-01_JPRB,.497E-01_JPRB,&
+&.529E-01_JPRB,.416E-01_JPRB,.320E-01_JPRB,.255E-01_JPRB,.216E-01_JPRB,.191E-01_JPRB,.173E-01_JPRB,&
+&.166E-01_JPRB,.161E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 32 -34.0
+ZAER (:,32,12) = (/&
+&.154E-01_JPRB,.147E-01_JPRB,.139E-01_JPRB,.133E-01_JPRB,.114E-01_JPRB,.961E-02_JPRB,.804E-02_JPRB,&
+&.734E-02_JPRB,.692E-02_JPRB,.725E-02_JPRB,.769E-02_JPRB,.927E-02_JPRB,.188E-01_JPRB,.165E-01_JPRB,&
+&.142E-01_JPRB,.156E-01_JPRB,.194E-01_JPRB,.283E-01_JPRB,.482E-01_JPRB,.358E-01_JPRB,.276E-01_JPRB,&
+&.369E-01_JPRB,.293E-01_JPRB,.241E-01_JPRB,.186E-01_JPRB,.154E-01_JPRB,.142E-01_JPRB,.138E-01_JPRB,&
+&.135E-01_JPRB,.128E-01_JPRB,.108E-01_JPRB,.882E-02_JPRB,.860E-02_JPRB,.968E-02_JPRB,.143E-01_JPRB,&
+&.800E-02_JPRB,.937E-02_JPRB,.128E-01_JPRB,.155E-01_JPRB,.378E-01_JPRB,.480E-01_JPRB,.613E-01_JPRB,&
+&.860E-01_JPRB,.826E-01_JPRB,.359E-01_JPRB,.345E-01_JPRB,.277E-01_JPRB,.317E-01_JPRB,.270E-01_JPRB,&
+&.188E-01_JPRB,.170E-01_JPRB,.167E-01_JPRB,.614E-02_JPRB,.303E-02_JPRB,.340E-02_JPRB,.320E-02_JPRB,&
+&.574E-02_JPRB,.208E-01_JPRB,.298E-01_JPRB,.355E-01_JPRB,.325E-01_JPRB,.572E-01_JPRB,.646E-01_JPRB,&
+&.369E-01_JPRB,.447E-01_JPRB,.318E-01_JPRB,.253E-01_JPRB,.226E-01_JPRB,.207E-01_JPRB,.189E-01_JPRB,&
+&.180E-01_JPRB,.167E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 33 -38.0
+ZAER (:,33,12) = (/&
+&.156E-01_JPRB,.148E-01_JPRB,.143E-01_JPRB,.131E-01_JPRB,.113E-01_JPRB,.984E-02_JPRB,.902E-02_JPRB,&
+&.804E-02_JPRB,.818E-02_JPRB,.836E-02_JPRB,.863E-02_JPRB,.105E-01_JPRB,.739E-02_JPRB,.940E-02_JPRB,&
+&.937E-02_JPRB,.962E-02_JPRB,.133E-01_JPRB,.222E-01_JPRB,.386E-01_JPRB,.456E-01_JPRB,.439E-01_JPRB,&
+&.684E-01_JPRB,.417E-01_JPRB,.264E-01_JPRB,.182E-01_JPRB,.146E-01_JPRB,.131E-01_JPRB,.122E-01_JPRB,&
+&.114E-01_JPRB,.104E-01_JPRB,.878E-02_JPRB,.911E-02_JPRB,.852E-02_JPRB,.923E-02_JPRB,.137E-01_JPRB,&
+&.895E-02_JPRB,.173E-01_JPRB,.199E-01_JPRB,.246E-01_JPRB,.288E-01_JPRB,.462E-01_JPRB,.525E-01_JPRB,&
+&.281E-01_JPRB,.312E-01_JPRB,.381E-01_JPRB,.355E-01_JPRB,.312E-01_JPRB,.335E-01_JPRB,.316E-01_JPRB,&
+&.340E-01_JPRB,.127E-01_JPRB,.115E-01_JPRB,.122E-01_JPRB,.785E-02_JPRB,.598E-02_JPRB,.604E-02_JPRB,&
+&.907E-02_JPRB,.131E-01_JPRB,.192E-01_JPRB,.227E-01_JPRB,.427E-01_JPRB,.372E-01_JPRB,.348E-01_JPRB,&
+&.367E-01_JPRB,.179E-01_JPRB,.245E-01_JPRB,.220E-01_JPRB,.217E-01_JPRB,.199E-01_JPRB,.185E-01_JPRB,&
+&.177E-01_JPRB,.166E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 34 -42.0
+ZAER (:,34,12) = (/&
+&.149E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.140E-01_JPRB,.132E-01_JPRB,.128E-01_JPRB,.120E-01_JPRB,&
+&.109E-01_JPRB,.104E-01_JPRB,.962E-02_JPRB,.942E-02_JPRB,.976E-02_JPRB,.564E-02_JPRB,.632E-02_JPRB,&
+&.681E-02_JPRB,.864E-02_JPRB,.118E-01_JPRB,.213E-01_JPRB,.459E-01_JPRB,.598E-01_JPRB,.500E-01_JPRB,&
+&.476E-01_JPRB,.547E-01_JPRB,.385E-01_JPRB,.245E-01_JPRB,.158E-01_JPRB,.139E-01_JPRB,.119E-01_JPRB,&
+&.109E-01_JPRB,.937E-02_JPRB,.832E-02_JPRB,.865E-02_JPRB,.909E-02_JPRB,.116E-01_JPRB,.183E-01_JPRB,&
+&.139E-01_JPRB,.153E-01_JPRB,.234E-01_JPRB,.254E-01_JPRB,.254E-01_JPRB,.263E-01_JPRB,.340E-01_JPRB,&
+&.568E-01_JPRB,.510E-01_JPRB,.297E-01_JPRB,.353E-01_JPRB,.549E-01_JPRB,.314E-01_JPRB,.322E-01_JPRB,&
+&.482E-01_JPRB,.326E-01_JPRB,.177E-01_JPRB,.127E-01_JPRB,.166E-01_JPRB,.162E-01_JPRB,.143E-01_JPRB,&
+&.167E-01_JPRB,.174E-01_JPRB,.201E-01_JPRB,.190E-01_JPRB,.229E-01_JPRB,.216E-01_JPRB,.233E-01_JPRB,&
+&.365E-01_JPRB,.228E-01_JPRB,.243E-01_JPRB,.225E-01_JPRB,.192E-01_JPRB,.177E-01_JPRB,.162E-01_JPRB,&
+&.151E-01_JPRB,.157E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 35 -46.0
+ZAER (:,35,12) = (/&
+&.149E-01_JPRB,.144E-01_JPRB,.141E-01_JPRB,.139E-01_JPRB,.151E-01_JPRB,.161E-01_JPRB,.157E-01_JPRB,&
+&.143E-01_JPRB,.124E-01_JPRB,.109E-01_JPRB,.997E-02_JPRB,.937E-02_JPRB,.532E-02_JPRB,.504E-02_JPRB,&
+&.533E-02_JPRB,.797E-02_JPRB,.118E-01_JPRB,.198E-01_JPRB,.303E-01_JPRB,.374E-01_JPRB,.547E-01_JPRB,&
+&.484E-01_JPRB,.390E-01_JPRB,.298E-01_JPRB,.332E-01_JPRB,.245E-01_JPRB,.191E-01_JPRB,.140E-01_JPRB,&
+&.102E-01_JPRB,.964E-02_JPRB,.928E-02_JPRB,.891E-02_JPRB,.101E-01_JPRB,.110E-01_JPRB,.185E-01_JPRB,&
+&.226E-01_JPRB,.123E-01_JPRB,.176E-01_JPRB,.202E-01_JPRB,.200E-01_JPRB,.231E-01_JPRB,.278E-01_JPRB,&
+&.317E-01_JPRB,.271E-01_JPRB,.251E-01_JPRB,.322E-01_JPRB,.462E-01_JPRB,.303E-01_JPRB,.324E-01_JPRB,&
+&.373E-01_JPRB,.450E-01_JPRB,.412E-01_JPRB,.275E-01_JPRB,.299E-01_JPRB,.263E-01_JPRB,.232E-01_JPRB,&
+&.217E-01_JPRB,.208E-01_JPRB,.241E-01_JPRB,.239E-01_JPRB,.214E-01_JPRB,.205E-01_JPRB,.186E-01_JPRB,&
+&.166E-01_JPRB,.253E-01_JPRB,.189E-01_JPRB,.154E-01_JPRB,.145E-01_JPRB,.147E-01_JPRB,.140E-01_JPRB,&
+&.126E-01_JPRB,.138E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 36 -50.0
+ZAER (:,36,12) = (/&
+&.152E-01_JPRB,.157E-01_JPRB,.147E-01_JPRB,.156E-01_JPRB,.174E-01_JPRB,.168E-01_JPRB,.153E-01_JPRB,&
+&.133E-01_JPRB,.112E-01_JPRB,.103E-01_JPRB,.103E-01_JPRB,.587E-02_JPRB,.597E-02_JPRB,.566E-02_JPRB,&
+&.777E-02_JPRB,.114E-01_JPRB,.158E-01_JPRB,.257E-01_JPRB,.255E-01_JPRB,.358E-01_JPRB,.441E-01_JPRB,&
+&.371E-01_JPRB,.300E-01_JPRB,.251E-01_JPRB,.334E-01_JPRB,.286E-01_JPRB,.196E-01_JPRB,.125E-01_JPRB,&
+&.119E-01_JPRB,.121E-01_JPRB,.119E-01_JPRB,.117E-01_JPRB,.125E-01_JPRB,.142E-01_JPRB,.215E-01_JPRB,&
+&.239E-01_JPRB,.135E-01_JPRB,.145E-01_JPRB,.198E-01_JPRB,.198E-01_JPRB,.265E-01_JPRB,.335E-01_JPRB,&
+&.276E-01_JPRB,.312E-01_JPRB,.298E-01_JPRB,.355E-01_JPRB,.316E-01_JPRB,.299E-01_JPRB,.357E-01_JPRB,&
+&.366E-01_JPRB,.443E-01_JPRB,.478E-01_JPRB,.504E-01_JPRB,.438E-01_JPRB,.328E-01_JPRB,.289E-01_JPRB,&
+&.273E-01_JPRB,.281E-01_JPRB,.275E-01_JPRB,.258E-01_JPRB,.209E-01_JPRB,.197E-01_JPRB,.193E-01_JPRB,&
+&.171E-01_JPRB,.139E-01_JPRB,.161E-01_JPRB,.159E-01_JPRB,.152E-01_JPRB,.122E-01_JPRB,.120E-01_JPRB,&
+&.127E-01_JPRB,.137E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 37 -54.0
+ZAER (:,37,12) = (/&
+&.159E-01_JPRB,.152E-01_JPRB,.147E-01_JPRB,.175E-01_JPRB,.188E-01_JPRB,.183E-01_JPRB,.153E-01_JPRB,&
+&.128E-01_JPRB,.109E-01_JPRB,.107E-01_JPRB,.682E-02_JPRB,.681E-02_JPRB,.736E-02_JPRB,.785E-02_JPRB,&
+&.998E-02_JPRB,.128E-01_JPRB,.148E-01_JPRB,.187E-01_JPRB,.209E-01_JPRB,.261E-01_JPRB,.421E-01_JPRB,&
+&.247E-01_JPRB,.212E-01_JPRB,.194E-01_JPRB,.179E-01_JPRB,.266E-01_JPRB,.165E-01_JPRB,.117E-01_JPRB,&
+&.111E-01_JPRB,.120E-01_JPRB,.129E-01_JPRB,.138E-01_JPRB,.137E-01_JPRB,.149E-01_JPRB,.203E-01_JPRB,&
+&.132E-01_JPRB,.202E-01_JPRB,.213E-01_JPRB,.171E-01_JPRB,.198E-01_JPRB,.220E-01_JPRB,.285E-01_JPRB,&
+&.275E-01_JPRB,.233E-01_JPRB,.209E-01_JPRB,.263E-01_JPRB,.247E-01_JPRB,.276E-01_JPRB,.341E-01_JPRB,&
+&.381E-01_JPRB,.442E-01_JPRB,.423E-01_JPRB,.484E-01_JPRB,.424E-01_JPRB,.328E-01_JPRB,.310E-01_JPRB,&
+&.310E-01_JPRB,.314E-01_JPRB,.254E-01_JPRB,.226E-01_JPRB,.221E-01_JPRB,.205E-01_JPRB,.185E-01_JPRB,&
+&.156E-01_JPRB,.213E-01_JPRB,.178E-01_JPRB,.187E-01_JPRB,.164E-01_JPRB,.935E-02_JPRB,.153E-01_JPRB,&
+&.153E-01_JPRB,.157E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 38 -58.0
+ZAER (:,38,12) = (/&
+&.184E-01_JPRB,.171E-01_JPRB,.166E-01_JPRB,.184E-01_JPRB,.189E-01_JPRB,.182E-01_JPRB,.145E-01_JPRB,&
+&.105E-01_JPRB,.119E-01_JPRB,.729E-02_JPRB,.620E-02_JPRB,.663E-02_JPRB,.986E-02_JPRB,.106E-01_JPRB,&
+&.128E-01_JPRB,.144E-01_JPRB,.127E-01_JPRB,.145E-01_JPRB,.251E-01_JPRB,.238E-01_JPRB,.247E-01_JPRB,&
+&.161E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.302E-01_JPRB,.239E-01_JPRB,.161E-01_JPRB,.130E-01_JPRB,&
+&.115E-01_JPRB,.119E-01_JPRB,.133E-01_JPRB,.140E-01_JPRB,.140E-01_JPRB,.143E-01_JPRB,.205E-01_JPRB,&
+&.169E-01_JPRB,.184E-01_JPRB,.145E-01_JPRB,.883E-02_JPRB,.991E-02_JPRB,.150E-01_JPRB,.145E-01_JPRB,&
+&.176E-01_JPRB,.199E-01_JPRB,.200E-01_JPRB,.268E-01_JPRB,.260E-01_JPRB,.232E-01_JPRB,.257E-01_JPRB,&
+&.339E-01_JPRB,.419E-01_JPRB,.404E-01_JPRB,.400E-01_JPRB,.319E-01_JPRB,.312E-01_JPRB,.350E-01_JPRB,&
+&.331E-01_JPRB,.292E-01_JPRB,.286E-01_JPRB,.252E-01_JPRB,.280E-01_JPRB,.264E-01_JPRB,.221E-01_JPRB,&
+&.181E-01_JPRB,.124E-01_JPRB,.206E-01_JPRB,.197E-01_JPRB,.184E-01_JPRB,.988E-02_JPRB,.177E-01_JPRB,&
+&.181E-01_JPRB,.184E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 39 -62.0
+ZAER (:,39,12) = (/&
+&.223E-01_JPRB,.203E-01_JPRB,.193E-01_JPRB,.193E-01_JPRB,.116E-01_JPRB,.101E-01_JPRB,.775E-02_JPRB,&
+&.665E-02_JPRB,.671E-02_JPRB,.800E-02_JPRB,.837E-02_JPRB,.908E-02_JPRB,.114E-01_JPRB,.131E-01_JPRB,&
+&.136E-01_JPRB,.117E-01_JPRB,.113E-01_JPRB,.124E-01_JPRB,.208E-01_JPRB,.225E-01_JPRB,.255E-01_JPRB,&
+&.150E-01_JPRB,.264E-01_JPRB,.251E-01_JPRB,.210E-01_JPRB,.177E-01_JPRB,.142E-01_JPRB,.581E-02_JPRB,&
+&.106E-01_JPRB,.121E-01_JPRB,.135E-01_JPRB,.145E-01_JPRB,.139E-01_JPRB,.130E-01_JPRB,.120E-01_JPRB,&
+&.111E-01_JPRB,.114E-01_JPRB,.113E-01_JPRB,.569E-02_JPRB,.616E-02_JPRB,.104E-01_JPRB,.950E-02_JPRB,&
+&.137E-01_JPRB,.171E-01_JPRB,.165E-01_JPRB,.217E-01_JPRB,.248E-01_JPRB,.238E-01_JPRB,.234E-01_JPRB,&
+&.258E-01_JPRB,.327E-01_JPRB,.373E-01_JPRB,.413E-01_JPRB,.343E-01_JPRB,.304E-01_JPRB,.339E-01_JPRB,&
+&.337E-01_JPRB,.304E-01_JPRB,.292E-01_JPRB,.287E-01_JPRB,.299E-01_JPRB,.257E-01_JPRB,.203E-01_JPRB,&
+&.175E-01_JPRB,.120E-01_JPRB,.115E-01_JPRB,.115E-01_JPRB,.124E-01_JPRB,.127E-01_JPRB,.131E-01_JPRB,&
+&.125E-01_JPRB,.234E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 40 -66.0
+ZAER (:,40,12) = (/&
+&.144E-01_JPRB,.142E-01_JPRB,.205E-01_JPRB,.184E-01_JPRB,.109E-01_JPRB,.967E-02_JPRB,.911E-02_JPRB,&
+&.881E-02_JPRB,.837E-02_JPRB,.885E-02_JPRB,.961E-02_JPRB,.106E-01_JPRB,.101E-01_JPRB,.105E-01_JPRB,&
+&.102E-01_JPRB,.114E-01_JPRB,.131E-01_JPRB,.128E-01_JPRB,.132E-01_JPRB,.150E-01_JPRB,.261E-01_JPRB,&
+&.151E-01_JPRB,.152E-01_JPRB,.136E-01_JPRB,.202E-01_JPRB,.160E-01_JPRB,.637E-02_JPRB,.419E-02_JPRB,&
+&.472E-02_JPRB,.108E-01_JPRB,.145E-01_JPRB,.145E-01_JPRB,.141E-01_JPRB,.121E-01_JPRB,.102E-01_JPRB,&
+&.936E-02_JPRB,.875E-02_JPRB,.902E-02_JPRB,.868E-02_JPRB,.542E-02_JPRB,.670E-02_JPRB,.783E-02_JPRB,&
+&.810E-02_JPRB,.974E-02_JPRB,.116E-01_JPRB,.150E-01_JPRB,.195E-01_JPRB,.210E-01_JPRB,.211E-01_JPRB,&
+&.226E-01_JPRB,.256E-01_JPRB,.354E-01_JPRB,.442E-01_JPRB,.401E-01_JPRB,.329E-01_JPRB,.348E-01_JPRB,&
+&.372E-01_JPRB,.352E-01_JPRB,.302E-01_JPRB,.237E-01_JPRB,.192E-01_JPRB,.212E-01_JPRB,.192E-01_JPRB,&
+&.194E-01_JPRB,.162E-01_JPRB,.150E-01_JPRB,.147E-01_JPRB,.157E-01_JPRB,.157E-01_JPRB,.155E-01_JPRB,&
+&.157E-01_JPRB,.150E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 41 -70.0
+ZAER (:,41,12) = (/&
+&.253E-01_JPRB,.214E-01_JPRB,.194E-01_JPRB,.164E-01_JPRB,.938E-02_JPRB,.999E-02_JPRB,.101E-01_JPRB,&
+&.102E-01_JPRB,.167E-01_JPRB,.159E-01_JPRB,.940E-02_JPRB,.175E-01_JPRB,.195E-01_JPRB,.117E-01_JPRB,&
+&.112E-01_JPRB,.113E-01_JPRB,.199E-01_JPRB,.125E-01_JPRB,.126E-01_JPRB,.124E-01_JPRB,.131E-01_JPRB,&
+&.150E-01_JPRB,.145E-01_JPRB,.231E-01_JPRB,.195E-01_JPRB,.148E-01_JPRB,.725E-02_JPRB,.510E-02_JPRB,&
+&.411E-02_JPRB,.391E-02_JPRB,.458E-02_JPRB,.691E-02_JPRB,.140E-01_JPRB,.126E-01_JPRB,.107E-01_JPRB,&
+&.966E-02_JPRB,.857E-02_JPRB,.844E-02_JPRB,.870E-02_JPRB,.952E-02_JPRB,.101E-01_JPRB,.637E-02_JPRB,&
+&.640E-02_JPRB,.111E-01_JPRB,.130E-01_JPRB,.161E-01_JPRB,.213E-01_JPRB,.311E-01_JPRB,.294E-01_JPRB,&
+&.317E-01_JPRB,.208E-01_JPRB,.238E-01_JPRB,.271E-01_JPRB,.263E-01_JPRB,.262E-01_JPRB,.264E-01_JPRB,&
+&.270E-01_JPRB,.354E-01_JPRB,.311E-01_JPRB,.259E-01_JPRB,.240E-01_JPRB,.216E-01_JPRB,.220E-01_JPRB,&
+&.233E-01_JPRB,.226E-01_JPRB,.226E-01_JPRB,.236E-01_JPRB,.190E-01_JPRB,.200E-01_JPRB,.209E-01_JPRB,&
+&.335E-01_JPRB,.178E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 42 -74.0
+ZAER (:,42,12) = (/&
+&.225E-01_JPRB,.200E-01_JPRB,.191E-01_JPRB,.178E-01_JPRB,.173E-01_JPRB,.178E-01_JPRB,.190E-01_JPRB,&
+&.186E-01_JPRB,.179E-01_JPRB,.172E-01_JPRB,.173E-01_JPRB,.177E-01_JPRB,.108E-01_JPRB,.110E-01_JPRB,&
+&.195E-01_JPRB,.205E-01_JPRB,.220E-01_JPRB,.218E-01_JPRB,.215E-01_JPRB,.125E-01_JPRB,.214E-01_JPRB,&
+&.221E-01_JPRB,.218E-01_JPRB,.197E-01_JPRB,.161E-01_JPRB,.840E-02_JPRB,.612E-02_JPRB,.479E-02_JPRB,&
+&.410E-02_JPRB,.393E-02_JPRB,.402E-02_JPRB,.527E-02_JPRB,.128E-01_JPRB,.141E-01_JPRB,.126E-01_JPRB,&
+&.124E-01_JPRB,.119E-01_JPRB,.119E-01_JPRB,.123E-01_JPRB,.126E-01_JPRB,.128E-01_JPRB,.122E-01_JPRB,&
+&.107E-01_JPRB,.111E-01_JPRB,.132E-01_JPRB,.184E-01_JPRB,.213E-01_JPRB,.260E-01_JPRB,.263E-01_JPRB,&
+&.260E-01_JPRB,.281E-01_JPRB,.341E-01_JPRB,.334E-01_JPRB,.231E-01_JPRB,.257E-01_JPRB,.260E-01_JPRB,&
+&.275E-01_JPRB,.294E-01_JPRB,.264E-01_JPRB,.261E-01_JPRB,.441E-01_JPRB,.427E-01_JPRB,.417E-01_JPRB,&
+&.438E-01_JPRB,.450E-01_JPRB,.400E-01_JPRB,.392E-01_JPRB,.332E-01_JPRB,.331E-01_JPRB,.344E-01_JPRB,&
+&.333E-01_JPRB,.264E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 43 -78.0
+ZAER (:,43,12) = (/&
+&.258E-01_JPRB,.257E-01_JPRB,.247E-01_JPRB,.237E-01_JPRB,.226E-01_JPRB,.219E-01_JPRB,.208E-01_JPRB,&
+&.194E-01_JPRB,.189E-01_JPRB,.183E-01_JPRB,.179E-01_JPRB,.183E-01_JPRB,.186E-01_JPRB,.192E-01_JPRB,&
+&.198E-01_JPRB,.210E-01_JPRB,.208E-01_JPRB,.208E-01_JPRB,.126E-01_JPRB,.125E-01_JPRB,.124E-01_JPRB,&
+&.203E-01_JPRB,.195E-01_JPRB,.113E-01_JPRB,.846E-02_JPRB,.730E-02_JPRB,.641E-02_JPRB,.526E-02_JPRB,&
+&.500E-02_JPRB,.499E-02_JPRB,.584E-02_JPRB,.649E-02_JPRB,.113E-01_JPRB,.143E-01_JPRB,.151E-01_JPRB,&
+&.167E-01_JPRB,.185E-01_JPRB,.197E-01_JPRB,.198E-01_JPRB,.120E-01_JPRB,.215E-01_JPRB,.217E-01_JPRB,&
+&.203E-01_JPRB,.201E-01_JPRB,.209E-01_JPRB,.219E-01_JPRB,.245E-01_JPRB,.278E-01_JPRB,.289E-01_JPRB,&
+&.296E-01_JPRB,.322E-01_JPRB,.351E-01_JPRB,.362E-01_JPRB,.384E-01_JPRB,.331E-01_JPRB,.305E-01_JPRB,&
+&.323E-01_JPRB,.195E-01_JPRB,.326E-01_JPRB,.347E-01_JPRB,.346E-01_JPRB,.345E-01_JPRB,.375E-01_JPRB,&
+&.396E-01_JPRB,.370E-01_JPRB,.364E-01_JPRB,.344E-01_JPRB,.316E-01_JPRB,.302E-01_JPRB,.290E-01_JPRB,&
+&.271E-01_JPRB,.258E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 44 -82.0
+ZAER (:,44,12) = (/&
+&.260E-01_JPRB,.263E-01_JPRB,.263E-01_JPRB,.260E-01_JPRB,.253E-01_JPRB,.244E-01_JPRB,.236E-01_JPRB,&
+&.223E-01_JPRB,.216E-01_JPRB,.207E-01_JPRB,.203E-01_JPRB,.198E-01_JPRB,.193E-01_JPRB,.192E-01_JPRB,&
+&.193E-01_JPRB,.197E-01_JPRB,.202E-01_JPRB,.207E-01_JPRB,.202E-01_JPRB,.198E-01_JPRB,.116E-01_JPRB,&
+&.117E-01_JPRB,.117E-01_JPRB,.118E-01_JPRB,.110E-01_JPRB,.103E-01_JPRB,.971E-02_JPRB,.915E-02_JPRB,&
+&.881E-02_JPRB,.865E-02_JPRB,.914E-02_JPRB,.921E-02_JPRB,.909E-02_JPRB,.157E-01_JPRB,.163E-01_JPRB,&
+&.174E-01_JPRB,.201E-01_JPRB,.218E-01_JPRB,.234E-01_JPRB,.242E-01_JPRB,.251E-01_JPRB,.254E-01_JPRB,&
+&.246E-01_JPRB,.239E-01_JPRB,.238E-01_JPRB,.239E-01_JPRB,.248E-01_JPRB,.259E-01_JPRB,.269E-01_JPRB,&
+&.276E-01_JPRB,.282E-01_JPRB,.282E-01_JPRB,.281E-01_JPRB,.275E-01_JPRB,.270E-01_JPRB,.263E-01_JPRB,&
+&.263E-01_JPRB,.269E-01_JPRB,.286E-01_JPRB,.308E-01_JPRB,.338E-01_JPRB,.331E-01_JPRB,.322E-01_JPRB,&
+&.311E-01_JPRB,.299E-01_JPRB,.283E-01_JPRB,.273E-01_JPRB,.258E-01_JPRB,.248E-01_JPRB,.247E-01_JPRB,&
+&.249E-01_JPRB,.258E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 45 -86.0
+ZAER (:,45,12) = (/&
+&.231E-01_JPRB,.221E-01_JPRB,.211E-01_JPRB,.203E-01_JPRB,.197E-01_JPRB,.191E-01_JPRB,.186E-01_JPRB,&
+&.182E-01_JPRB,.182E-01_JPRB,.181E-01_JPRB,.182E-01_JPRB,.184E-01_JPRB,.183E-01_JPRB,.184E-01_JPRB,&
+&.183E-01_JPRB,.185E-01_JPRB,.186E-01_JPRB,.187E-01_JPRB,.186E-01_JPRB,.187E-01_JPRB,.188E-01_JPRB,&
+&.188E-01_JPRB,.190E-01_JPRB,.190E-01_JPRB,.194E-01_JPRB,.187E-01_JPRB,.184E-01_JPRB,.182E-01_JPRB,&
+&.180E-01_JPRB,.178E-01_JPRB,.177E-01_JPRB,.174E-01_JPRB,.175E-01_JPRB,.176E-01_JPRB,.180E-01_JPRB,&
+&.184E-01_JPRB,.190E-01_JPRB,.193E-01_JPRB,.198E-01_JPRB,.200E-01_JPRB,.203E-01_JPRB,.206E-01_JPRB,&
+&.208E-01_JPRB,.212E-01_JPRB,.214E-01_JPRB,.219E-01_JPRB,.220E-01_JPRB,.226E-01_JPRB,.226E-01_JPRB,&
+&.230E-01_JPRB,.234E-01_JPRB,.236E-01_JPRB,.240E-01_JPRB,.242E-01_JPRB,.245E-01_JPRB,.247E-01_JPRB,&
+&.248E-01_JPRB,.251E-01_JPRB,.253E-01_JPRB,.253E-01_JPRB,.250E-01_JPRB,.251E-01_JPRB,.250E-01_JPRB,&
+&.250E-01_JPRB,.250E-01_JPRB,.247E-01_JPRB,.247E-01_JPRB,.245E-01_JPRB,.244E-01_JPRB,.242E-01_JPRB,&
+&.240E-01_JPRB,.238E-01_JPRB/)
+!-- Total Sulfate Aerosol    month: 12 --- lat: 46 -90.0
+ZAER (:,46,12) = (/&
+&.218E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,.224E-01_JPRB,&
+&.224E-01_JPRB,.224E-01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!ZMAX=-1.E+8_JPRB
+!ZMIN= 1.E+8_JPRB
+   JM=12   
+  DO JI=1,46
+    DO JL=1,72
+      RAERSU(JL,JI,JM)=ZAER(JL,JI,JM)
+!      ZMAX=MAX(ZMAX,ZAER(JL,JI,JM))
+!      ZMIN=MIN(ZMIN,ZAER(JL,JI,JM))
+    ENDDO
+  ENDDO
+
+!PRINT 9000,ZMIN,ZMAX
+9000 FORMAT(1x,'SULFATE AEROSOLS ',2E12.5)
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUECAESU_12
Index: LMDZ5/branches/testing/libf/phymar/suecozc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecozc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecozc.F90	(revision 2160)
@@ -0,0 +1,1851 @@
+SUBROUTINE SUECOZC ( KINDAT, KMINUT )
+
+
+!**** *SUECOZC* - DEFINES CLIMATOLOGICAL DISTRIBUTION OF OZONE
+!                 (FORTUIN LANGEMATZ CLIMATOLOGY OF OZONE)
+
+!     PURPOSE.
+!     --------
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECOZC* FROM *UPDTIM*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+! ROZT    :                : AMOUNT OF OZONE (KG/KG) 
+
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
+
+!     AUTHOR.
+!     -------
+!     J.-J. MORCRETTE  E.C.M.W.F.    95/01/25
+
+!     MODIFICATIONS.
+!     --------------
+!     JJMorcrette 971117 Cy18
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RPI      ,RDAY
+USE YOERDI   , ONLY : RO3
+USE YOEOZOC  , ONLY : RSINC    ,ROZT     ,RPROC
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KINDAT
+INTEGER_M :: KMINUT
+
+
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+
+REAL_B :: ZOZCL(19,34,12)
+REAL_B :: ZYTIME(12), ZMDAY(12)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IDY, IM, IM1, IM2, IMN, JK, JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZTIMI, ZXTIME
+
+
+#include "fcttim.h"      
+!     ------------------------------------------------------------------
+
+ZMDAY = (/&
+      &31._JPRB,    59.25_JPRB,  90.25_JPRB, 120.25_JPRB, 151.25_JPRB, 181.25_JPRB &
+  &,  212.25_JPRB, 243.25_JPRB, 273.25_JPRB, 304.25_JPRB, 334.25_JPRB, 365.25_JPRB &
+        &/)
+ZYTIME= (/&
+     &22320._JPRB,  64980._JPRB, 107640._JPRB, 151560._JPRB, 195480._JPRB, 239400._JPRB &
+  &, 283320._JPRB, 327960._JPRB, 371880._JPRB, 415800._JPRB, 459720._JPRB, 503640._JPRB &
+        &/)
+
+!* Ozone climatological mixing ratio (ppmv)
+!        from Langematz and Fortuin 
+
+! Month:  1
+ZOZCL(:, 1, 1) = (/&
+ &0.5500_JPRB, 0.5500_JPRB, 0.7200_JPRB, 0.8000_JPRB, 0.7700_JPRB, 0.7000_JPRB, 0.6300_JPRB, 0.5600_JPRB,&
+ &0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5200_JPRB, 0.6600_JPRB, 0.8100_JPRB, 0.8400_JPRB, 0.8300_JPRB,&
+ &0.7700_JPRB, 0.7200_JPRB, 0.7200_JPRB /)
+ZOZCL(:, 2, 1) = (/&
+ &0.2500_JPRB, 0.2500_JPRB, 0.3500_JPRB, 0.4500_JPRB, 0.5100_JPRB, 0.4900_JPRB, 0.4600_JPRB, 0.4300_JPRB,&
+ &0.4200_JPRB, 0.4100_JPRB, 0.3800_JPRB, 0.3500_JPRB, 0.4100_JPRB, 0.5000_JPRB, 0.5200_JPRB, 0.5000_JPRB,&
+ &0.4600_JPRB, 0.4300_JPRB, 0.4300_JPRB /)
+ZOZCL(:, 3, 1) = (/&
+ &0.1800_JPRB, 0.1800_JPRB, 0.2100_JPRB, 0.2800_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3600_JPRB, 0.3700_JPRB,&
+ &0.3800_JPRB, 0.3900_JPRB, 0.3700_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2700_JPRB,&
+ &0.2500_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
+ZOZCL(:, 4, 1) = (/&
+ &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1700_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2500_JPRB, 0.2800_JPRB,&
+ &0.3100_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3200_JPRB, 0.2800_JPRB, 0.2300_JPRB, 0.1900_JPRB, 0.1400_JPRB,&
+ &0.1300_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
+ZOZCL(:, 5, 1) = (/&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1900_JPRB,&
+ &0.2000_JPRB, 0.2100_JPRB, 0.2300_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2300_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1500_JPRB, 0.1500_JPRB /)
+ZOZCL(:, 6, 1) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1300_JPRB, 0.1400_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.2100_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2400_JPRB,&
+ &0.2200_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 7, 1) = (/&
+ &0.2100_JPRB, 0.2100_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB,&
+ &0.1500_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.3700_JPRB,&
+ &0.3400_JPRB, 0.3200_JPRB, 0.3200_JPRB /)
+ZOZCL(:, 8, 1) = (/&
+ &0.3100_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB,&
+ &0.2200_JPRB, 0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2700_JPRB, 0.3000_JPRB, 0.3700_JPRB, 0.4700_JPRB,&
+ &0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
+ZOZCL(:, 9, 1) = (/&
+ &0.4100_JPRB, 0.4100_JPRB, 0.3800_JPRB, 0.3700_JPRB, 0.3600_JPRB, 0.3400_JPRB, 0.3200_JPRB, 0.3100_JPRB,&
+ &0.3200_JPRB, 0.3200_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.4100_JPRB, 0.4600_JPRB, 0.4900_JPRB, 0.5300_JPRB,&
+ &0.4900_JPRB, 0.4600_JPRB, 0.4600_JPRB /)
+ZOZCL(:,10, 1) = (/&
+ &0.5400_JPRB, 0.5400_JPRB, 0.5200_JPRB, 0.5100_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4800_JPRB, 0.4900_JPRB,&
+ &0.4900_JPRB, 0.4700_JPRB, 0.4600_JPRB, 0.4900_JPRB, 0.5200_JPRB, 0.6900_JPRB, 0.6900_JPRB, 0.6700_JPRB,&
+ &0.6200_JPRB, 0.5800_JPRB, 0.5800_JPRB /)
+ZOZCL(:,11, 1) = (/&
+ &0.7500_JPRB, 0.7500_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7300_JPRB, 0.7400_JPRB, 0.7500_JPRB, 0.7400_JPRB,&
+ &0.7100_JPRB, 0.6800_JPRB, 0.6800_JPRB, 0.6900_JPRB, 0.7500_JPRB, 0.7900_JPRB, 1.0100_JPRB, 0.9300_JPRB,&
+ &0.8600_JPRB, 0.8000_JPRB, 0.8000_JPRB /)
+ZOZCL(:,12, 1) = (/&
+ &0.8900_JPRB, 0.8900_JPRB, 0.9000_JPRB, 0.9200_JPRB, 0.9200_JPRB, 0.9600_JPRB, 0.9800_JPRB, 0.9600_JPRB,&
+ &0.9200_JPRB, 0.8900_JPRB, 0.8900_JPRB, 0.9200_JPRB, 0.9900_JPRB, 1.0300_JPRB, 1.2800_JPRB, 1.1900_JPRB,&
+ &1.1000_JPRB, 1.0300_JPRB, 1.0300_JPRB /)
+ZOZCL(:,13, 1) = (/&
+ &1.1300_JPRB, 1.1300_JPRB, 1.1700_JPRB, 1.2100_JPRB, 1.2500_JPRB, 1.3200_JPRB, 1.3700_JPRB, 1.3500_JPRB,&
+ &1.3000_JPRB, 1.2600_JPRB, 1.2700_JPRB, 1.3300_JPRB, 1.4200_JPRB, 1.4800_JPRB, 1.7700_JPRB, 1.6300_JPRB,&
+ &1.5000_JPRB, 1.4100_JPRB, 1.4100_JPRB /)
+ZOZCL(:,14, 1) = (/&
+ &1.4100_JPRB, 1.4100_JPRB, 1.5000_JPRB, 1.6200_JPRB, 1.7500_JPRB, 1.8600_JPRB, 1.9300_JPRB, 1.9100_JPRB,&
+ &1.8500_JPRB, 1.8300_JPRB, 1.8400_JPRB, 1.8800_JPRB, 1.9900_JPRB, 2.1600_JPRB, 2.2600_JPRB, 2.0700_JPRB,&
+ &1.9100_JPRB, 1.7800_JPRB, 1.7800_JPRB /)
+ZOZCL(:,15, 1) = (/&
+ &1.6600_JPRB, 1.6600_JPRB, 1.7900_JPRB, 1.9700_JPRB, 2.1400_JPRB, 2.2800_JPRB, 2.3600_JPRB, 2.3500_JPRB,&
+ &2.3000_JPRB, 2.2900_JPRB, 2.2900_JPRB, 2.3100_JPRB, 2.4500_JPRB, 2.7100_JPRB, 2.8000_JPRB, 2.7000_JPRB,&
+ &2.3600_JPRB, 2.2200_JPRB, 2.2200_JPRB /)
+ZOZCL(:,16, 1) = (/&
+ &2.1500_JPRB, 2.1500_JPRB, 2.2800_JPRB, 2.4600_JPRB, 2.6300_JPRB, 2.8200_JPRB, 2.9700_JPRB, 3.0300_JPRB,&
+ &3.0300_JPRB, 3.0400_JPRB, 3.0500_JPRB, 3.1000_JPRB, 3.3300_JPRB, 3.6700_JPRB, 3.7500_JPRB, 3.5500_JPRB,&
+ &3.0400_JPRB, 2.8900_JPRB, 2.8900_JPRB /)
+ZOZCL(:,17, 1) = (/&
+ &2.9900_JPRB, 2.9900_JPRB, 3.0700_JPRB, 3.2600_JPRB, 3.4300_JPRB, 3.6700_JPRB, 3.9200_JPRB, 4.1000_JPRB,&
+ &4.1900_JPRB, 4.2300_JPRB, 4.2800_JPRB, 4.4200_JPRB, 4.7400_JPRB, 5.0500_JPRB, 5.0400_JPRB, 4.6500_JPRB,&
+ &3.9800_JPRB, 3.7500_JPRB, 3.7500_JPRB /)
+
+ZOZCL(:,18, 1) = (/&
+ &3.9200_JPRB, 3.9200_JPRB, 3.9600_JPRB, 4.1700_JPRB, 4.3800_JPRB, 4.6600_JPRB, 4.9500_JPRB, 5.2000_JPRB,&
+ &5.3500_JPRB, 5.4000_JPRB, 5.4600_JPRB, 5.6000_JPRB, 5.8700_JPRB, 6.0300_JPRB, 5.8800_JPRB, 5.3300_JPRB,&
+ &4.6500_JPRB, 4.3400_JPRB, 4.3400_JPRB /)
+ZOZCL(:,19, 1) = (/&
+ &5.4500_JPRB, 5.4500_JPRB, 5.4800_JPRB, 5.7700_JPRB, 6.1300_JPRB, 6.4800_JPRB, 6.8200_JPRB, 7.1300_JPRB,&
+ &7.3400_JPRB, 7.3500_JPRB, 7.3100_JPRB, 7.2700_JPRB, 7.2100_JPRB, 7.0400_JPRB, 6.6400_JPRB, 5.9600_JPRB,&
+ &5.3400_JPRB, 5.0600_JPRB, 5.0600_JPRB /)
+ZOZCL(:,20, 1) = (/&
+ &5.9900_JPRB, 5.9900_JPRB, 6.0600_JPRB, 6.7300_JPRB, 7.3900_JPRB, 8.0400_JPRB, 8.5500_JPRB, 8.9100_JPRB,&
+ &9.2500_JPRB, 8.9400_JPRB, 8.7000_JPRB, 8.3200_JPRB, 7.7900_JPRB, 7.3100_JPRB, 6.7000_JPRB, 6.1400_JPRB,&
+ &5.5500_JPRB, 5.3900_JPRB, 5.3900_JPRB /)
+ZOZCL(:,21, 1) = (/&
+ &5.4900_JPRB, 5.4900_JPRB, 5.7400_JPRB, 6.7300_JPRB, 7.6100_JPRB, 8.3800_JPRB, 8.9400_JPRB, 9.3700_JPRB,&
+ &9.8400_JPRB, 9.5400_JPRB, 9.0200_JPRB, 8.2900_JPRB, 7.6000_JPRB, 7.0100_JPRB, 6.3500_JPRB, 6.0200_JPRB,&
+ &5.3700_JPRB, 5.2700_JPRB, 5.2700_JPRB /)
+ZOZCL(:,22, 1) = (/&
+ &4.6200_JPRB, 4.6200_JPRB, 5.1400_JPRB, 6.2500_JPRB, 7.2600_JPRB, 8.0600_JPRB, 8.6200_JPRB, 9.1000_JPRB,&
+ &9.7500_JPRB, 9.6500_JPRB, 8.9000_JPRB, 7.8900_JPRB, 7.1200_JPRB, 6.5200_JPRB, 5.9100_JPRB, 5.8300_JPRB,&
+ &5.0100_JPRB, 4.9100_JPRB, 4.9100_JPRB /)
+ZOZCL(:,23, 1) = (/&
+ &3.8600_JPRB, 3.8600_JPRB, 4.3700_JPRB, 5.5300_JPRB, 6.4200_JPRB, 7.0900_JPRB, 7.4500_JPRB, 7.7700_JPRB,&
+ &8.1700_JPRB, 8.1200_JPRB, 7.5600_JPRB, 6.8500_JPRB, 6.4300_JPRB, 6.1000_JPRB, 5.7400_JPRB, 5.5200_JPRB,&
+ &4.6200_JPRB, 4.4500_JPRB, 4.4500_JPRB /)
+ZOZCL(:,24, 1) = (/&
+ &3.5200_JPRB, 3.5200_JPRB, 3.9800_JPRB, 5.0200_JPRB, 5.7300_JPRB, 6.1700_JPRB, 6.3200_JPRB, 6.4600_JPRB,&
+ &6.6000_JPRB, 6.4900_JPRB, 6.1600_JPRB, 5.8800_JPRB, 5.8200_JPRB, 5.7600_JPRB, 5.5700_JPRB, 5.1900_JPRB,&
+ &4.3400_JPRB, 4.1400_JPRB, 4.1400_JPRB /)
+ZOZCL(:,25, 1) = (/&
+ &3.1583_JPRB, 3.1583_JPRB, 3.4234_JPRB, 4.0208_JPRB, 4.4000_JPRB, 4.5357_JPRB, 4.5075_JPRB, 4.4100_JPRB,&
+ &4.0617_JPRB, 3.9694_JPRB, 4.0400_JPRB, 4.0400_JPRB, 4.6674_JPRB, 4.9255_JPRB, 5.0897_JPRB, 4.7433_JPRB,&
+ &4.0426_JPRB, 3.8076_JPRB, 3.8076_JPRB /)
+ZOZCL(:,26, 1) = (/&
+ &2.7966_JPRB, 2.7966_JPRB, 2.9248_JPRB, 2.8100_JPRB, 2.7300_JPRB, 2.2675_JPRB, 1.8250_JPRB, 1.7800_JPRB,&
+ &1.4507_JPRB, 1.4660_JPRB, 1.4200_JPRB, 1.7600_JPRB, 2.2840_JPRB, 3.0940_JPRB, 3.4392_JPRB, 3.3920_JPRB,&
+ &3.1930_JPRB, 3.0524_JPRB, 3.0524_JPRB /)
+ZOZCL(:,27, 1) = (/&
+ &2.0098_JPRB, 2.0098_JPRB, 1.9997_JPRB, 1.9061_JPRB, 1.7000_JPRB, 1.0890_JPRB, 0.6650_JPRB, 0.7000_JPRB,&
+ &0.4262_JPRB, 0.4404_JPRB, 0.5600_JPRB, 0.7400_JPRB, 0.9924_JPRB, 1.7507_JPRB, 2.1023_JPRB, 2.6257_JPRB,&
+ &2.1653_JPRB, 2.3068_JPRB, 2.3068_JPRB /)
+ZOZCL(:,28, 1) = (/&
+ &1.0717_JPRB, 1.0717_JPRB, 0.9591_JPRB, 0.9040_JPRB, 0.4530_JPRB, 0.3100_JPRB, 0.1690_JPRB, 0.1608_JPRB,&
+ &0.1179_JPRB, 0.1440_JPRB, 0.1650_JPRB, 0.1439_JPRB, 0.2560_JPRB, 0.8109_JPRB, 1.0131_JPRB, 1.6720_JPRB,&
+ &1.2675_JPRB, 1.6752_JPRB, 1.6752_JPRB /)
+ZOZCL(:,29, 1) = (/&
+ &0.4372_JPRB, 0.4372_JPRB, 0.4127_JPRB, 0.3820_JPRB, 0.1893_JPRB, 0.1654_JPRB, 0.0933_JPRB, 0.0885_JPRB,&
+ &0.0626_JPRB, 0.0781_JPRB, 0.0923_JPRB, 0.0892_JPRB, 0.0999_JPRB, 0.4074_JPRB, 0.5184_JPRB, 0.8047_JPRB,&
+ &0.5976_JPRB, 0.7238_JPRB, 0.7238_JPRB /)
+ZOZCL(:,30, 1) = (/&
+ &0.3147_JPRB, 0.3147_JPRB, 0.2824_JPRB, 0.2924_JPRB, 0.1360_JPRB, 0.0735_JPRB, 0.0805_JPRB, 0.0748_JPRB,&
+ &0.0441_JPRB, 0.0555_JPRB, 0.0608_JPRB, 0.0650_JPRB, 0.0710_JPRB, 0.2430_JPRB, 0.2822_JPRB, 0.4525_JPRB,&
+ &0.3080_JPRB, 0.3950_JPRB, 0.3950_JPRB /)
+ZOZCL(:,31, 1) = (/&
+ &0.0827_JPRB, 0.0827_JPRB, 0.0859_JPRB, 0.1133_JPRB, 0.0513_JPRB, 0.0565_JPRB, 0.0620_JPRB, 0.0574_JPRB,&
+ &0.0367_JPRB, 0.0479_JPRB, 0.0467_JPRB, 0.0498_JPRB, 0.0609_JPRB, 0.0785_JPRB, 0.0848_JPRB, 0.1037_JPRB,&
+ &0.0876_JPRB, 0.1068_JPRB, 0.1068_JPRB /)
+ZOZCL(:,32, 1) = (/&
+ &0.0266_JPRB, 0.0266_JPRB, 0.0351_JPRB, 0.0262_JPRB, 0.0320_JPRB, 0.0417_JPRB, 0.0518_JPRB, 0.0495_JPRB,&
+ &0.0445_JPRB, 0.0492_JPRB, 0.0342_JPRB, 0.0469_JPRB, 0.0435_JPRB, 0.0447_JPRB, 0.0486_JPRB, 0.0466_JPRB,&
+ &0.0475_JPRB, 0.0488_JPRB, 0.0488_JPRB /)
+ZOZCL(:,33, 1) = (/&
+ &0.0173_JPRB, 0.0173_JPRB, 0.0252_JPRB, 0.0169_JPRB, 0.0233_JPRB, 0.0311_JPRB, 0.0424_JPRB, 0.0399_JPRB,&
+ &0.0274_JPRB, 0.0313_JPRB, 0.0293_JPRB, 0.0409_JPRB, 0.0403_JPRB, 0.0393_JPRB, 0.0406_JPRB, 0.0419_JPRB,&
+ &0.0408_JPRB, 0.0404_JPRB, 0.0404_JPRB /)
+ZOZCL(:,34, 1) = (/&
+ &0.0173_JPRB, 0.0173_JPRB, 0.0252_JPRB, 0.0169_JPRB, 0.0233_JPRB, 0.0311_JPRB, 0.0424_JPRB, 0.0399_JPRB,&
+ &0.0274_JPRB, 0.0313_JPRB, 0.0293_JPRB, 0.0409_JPRB, 0.0403_JPRB, 0.0393_JPRB, 0.0406_JPRB, 0.0419_JPRB,&
+ &0.0408_JPRB, 0.0404_JPRB, 0.0404_JPRB /)
+
+! Month:  2
+ZOZCL(:, 1, 2) = (/&
+ &0.4300_JPRB, 0.4300_JPRB, 0.5600_JPRB, 0.6400_JPRB, 0.6400_JPRB, 0.6000_JPRB, 0.5700_JPRB, 0.6000_JPRB,&
+ &0.6900_JPRB, 0.7300_JPRB, 0.7000_JPRB, 0.6500_JPRB, 0.6300_JPRB, 0.6600_JPRB, 0.7300_JPRB, 0.7500_JPRB,&
+ &0.7700_JPRB, 0.7400_JPRB, 0.7400_JPRB /)
+ZOZCL(:, 2, 2) = (/&
+ &0.2100_JPRB, 0.2100_JPRB, 0.2900_JPRB, 0.3700_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.4400_JPRB,&
+ &0.4700_JPRB, 0.4700_JPRB, 0.4700_JPRB, 0.4400_JPRB, 0.4200_JPRB, 0.4200_JPRB, 0.4300_JPRB, 0.4100_JPRB,&
+ &0.3700_JPRB, 0.3600_JPRB, 0.3600_JPRB /)
+ZOZCL(:, 3, 2) = (/&
+ &0.1400_JPRB, 0.1400_JPRB, 0.1800_JPRB, 0.2400_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3500_JPRB, 0.4100_JPRB,&
+ &0.4200_JPRB, 0.4200_JPRB, 0.4200_JPRB, 0.3900_JPRB, 0.3300_JPRB, 0.3000_JPRB, 0.2700_JPRB, 0.2300_JPRB,&
+ &0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
+ZOZCL(:, 4, 2) = (/&
+ &0.1300_JPRB, 0.1300_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1900_JPRB, 0.2300_JPRB, 0.2900_JPRB, 0.3400_JPRB,&
+ &0.3500_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3300_JPRB, 0.2700_JPRB, 0.2200_JPRB, 0.1700_JPRB,&
+ &0.1200_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
+ZOZCL(:, 5, 2) = (/&
+ &0.1400_JPRB, 0.1400_JPRB, 0.1300_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.2100_JPRB,&
+ &0.2200_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.3000_JPRB, 0.3200_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2400_JPRB,&
+ &0.2000_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
+ZOZCL(:, 6, 2) = (/&
+ &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1300_JPRB, 0.1400_JPRB, 0.1500_JPRB,&
+ &0.1600_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2100_JPRB, 0.2600_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.3000_JPRB,&
+ &0.2700_JPRB, 0.2600_JPRB, 0.2600_JPRB /)
+ZOZCL(:, 7, 2) = (/&
+ &0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2300_JPRB, 0.2800_JPRB, 0.3500_JPRB,&
+ &0.3800_JPRB, 0.3600_JPRB, 0.3600_JPRB /)
+ZOZCL(:, 8, 2) = (/&
+ &0.3000_JPRB, 0.3000_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2300_JPRB,&
+ &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3900_JPRB,&
+ &0.4600_JPRB, 0.4400_JPRB, 0.4400_JPRB /)
+ZOZCL(:, 9, 2) = (/&
+ &0.4000_JPRB, 0.4000_JPRB, 0.4000_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3400_JPRB, 0.3300_JPRB,&
+ &0.3200_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3600_JPRB, 0.4000_JPRB, 0.4300_JPRB, 0.4500_JPRB, 0.4700_JPRB,&
+ &0.5200_JPRB, 0.5000_JPRB, 0.5000_JPRB /)
+ZOZCL(:,10, 2) = (/&
+ &0.5600_JPRB, 0.5600_JPRB, 0.5400_JPRB, 0.5300_JPRB, 0.5100_JPRB, 0.5000_JPRB, 0.5000_JPRB, 0.5000_JPRB,&
+ &0.5000_JPRB, 0.4800_JPRB, 0.4600_JPRB, 0.4700_JPRB, 0.5100_JPRB, 0.5200_JPRB, 0.6400_JPRB, 0.6300_JPRB,&
+ &0.6300_JPRB, 0.6100_JPRB, 0.6100_JPRB /)
+ZOZCL(:,11, 2) = (/&
+ &0.7600_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7700_JPRB, 0.7800_JPRB, 0.7700_JPRB, 0.7500_JPRB,&
+ &0.7300_JPRB, 0.7100_JPRB, 0.7000_JPRB, 0.7000_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7500_JPRB, 0.7400_JPRB,&
+ &0.8500_JPRB, 0.8200_JPRB, 0.8200_JPRB /)
+ZOZCL(:,12, 2) = (/&
+ &0.9200_JPRB, 0.9200_JPRB, 0.9200_JPRB, 0.9400_JPRB, 0.9700_JPRB, 1.0100_JPRB, 1.0100_JPRB, 0.9800_JPRB,&
+ &0.9400_JPRB, 0.9200_JPRB, 0.9100_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9500_JPRB, 0.9500_JPRB, 0.9300_JPRB,&
+ &1.0400_JPRB, 1.0000_JPRB, 1.0000_JPRB /)
+ZOZCL(:,13, 2) = (/&
+ &1.2000_JPRB, 1.2000_JPRB, 1.2200_JPRB, 1.2600_JPRB, 1.3100_JPRB, 1.3900_JPRB, 1.4100_JPRB, 1.3600_JPRB,&
+ &1.3000_JPRB, 1.2900_JPRB, 1.3000_JPRB, 1.3400_JPRB, 1.3700_JPRB, 1.3700_JPRB, 1.3500_JPRB, 1.3200_JPRB,&
+ &1.5000_JPRB, 1.4400_JPRB, 1.4400_JPRB /)
+ZOZCL(:,14, 2) = (/&
+ &1.5900_JPRB, 1.5900_JPRB, 1.6300_JPRB, 1.7300_JPRB, 1.8300_JPRB, 1.9300_JPRB, 1.9600_JPRB, 1.9000_JPRB,&
+ &1.8300_JPRB, 1.8200_JPRB, 1.8500_JPRB, 1.8800_JPRB, 1.9400_JPRB, 2.0200_JPRB, 2.1400_JPRB, 2.2200_JPRB,&
+ &2.2500_JPRB, 2.1600_JPRB, 2.1600_JPRB /)
+ZOZCL(:,15, 2) = (/&
+ &2.0000_JPRB, 2.0000_JPRB, 2.0100_JPRB, 2.1200_JPRB, 2.2500_JPRB, 2.3700_JPRB, 2.4200_JPRB, 2.3400_JPRB,&
+ &2.2400_JPRB, 2.2200_JPRB, 2.2500_JPRB, 2.2900_JPRB, 2.4000_JPRB, 2.6000_JPRB, 2.8600_JPRB, 2.9800_JPRB,&
+ &2.9500_JPRB, 2.6000_JPRB, 2.6000_JPRB /)
+ZOZCL(:,16, 2) = (/&
+ &2.7300_JPRB, 2.7300_JPRB, 2.6800_JPRB, 2.7300_JPRB, 2.8600_JPRB, 3.0000_JPRB, 3.0900_JPRB, 3.0300_JPRB,&
+ &2.9000_JPRB, 2.8600_JPRB, 2.9100_JPRB, 3.0200_JPRB, 3.2400_JPRB, 3.5800_JPRB, 3.9300_JPRB, 4.0000_JPRB,&
+ &3.8000_JPRB, 3.2200_JPRB, 3.2200_JPRB /)
+ZOZCL(:,17, 2) = (/&
+ &3.8100_JPRB, 3.8100_JPRB, 3.7100_JPRB, 3.7100_JPRB, 3.8100_JPRB, 3.9700_JPRB, 4.1100_JPRB, 4.1000_JPRB,&
+ &3.9500_JPRB, 3.8700_JPRB, 3.9800_JPRB, 4.2000_JPRB, 4.5800_JPRB, 5.1000_JPRB, 5.3800_JPRB, 5.2200_JPRB,&
+ &4.7900_JPRB, 4.1100_JPRB, 4.1100_JPRB /)
+
+ZOZCL(:,18, 2) = (/&
+ &4.6500_JPRB, 4.6500_JPRB, 4.6100_JPRB, 4.6800_JPRB, 4.8000_JPRB, 4.9800_JPRB, 5.1500_JPRB, 5.1700_JPRB,&
+ &5.0500_JPRB, 4.9900_JPRB, 5.0900_JPRB, 5.3000_JPRB, 5.7300_JPRB, 6.2400_JPRB, 6.2900_JPRB, 5.9200_JPRB,&
+ &5.4100_JPRB, 4.8200_JPRB, 4.8200_JPRB /)
+ZOZCL(:,19, 2) = (/&
+ &5.5900_JPRB, 5.5900_JPRB, 5.8400_JPRB, 6.1600_JPRB, 6.4200_JPRB, 6.6800_JPRB, 6.9100_JPRB, 7.0300_JPRB,&
+ &7.0800_JPRB, 7.0500_JPRB, 7.0400_JPRB, 7.0900_JPRB, 7.3700_JPRB, 7.4500_JPRB, 7.0400_JPRB, 6.4700_JPRB,&
+ &6.0700_JPRB, 5.6900_JPRB, 5.6900_JPRB /)
+ZOZCL(:,20, 2) = (/&
+ &5.5100_JPRB, 5.5100_JPRB, 6.2800_JPRB, 6.7600_JPRB, 7.5800_JPRB, 8.0500_JPRB, 8.5100_JPRB, 8.9700_JPRB,&
+ &9.3600_JPRB, 9.2400_JPRB, 8.9200_JPRB, 8.7000_JPRB, 8.3300_JPRB, 7.7400_JPRB, 7.0600_JPRB, 6.4900_JPRB,&
+ &6.4200_JPRB, 6.3000_JPRB, 6.3000_JPRB /)
+ZOZCL(:,21, 2) = (/&
+ &4.8400_JPRB, 4.8400_JPRB, 5.7800_JPRB, 6.5500_JPRB, 7.6000_JPRB, 8.2800_JPRB, 8.9000_JPRB, 9.5400_JPRB,&
+ &10.1000_JPRB,10.0400_JPRB, 9.5400_JPRB, 8.9100_JPRB, 8.1200_JPRB, 7.3500_JPRB, 6.7200_JPRB, 6.3100_JPRB,&
+ &6.4600_JPRB, 6.3100_JPRB, 6.3100_JPRB /)
+ZOZCL(:,22, 2) = (/&
+ &3.9800_JPRB, 3.9800_JPRB, 4.8400_JPRB, 5.9100_JPRB, 7.0800_JPRB, 7.9400_JPRB, 8.6700_JPRB, 9.4300_JPRB,&
+ &10.0300_JPRB,10.1400_JPRB, 9.5200_JPRB, 8.5500_JPRB, 7.4700_JPRB, 6.7300_JPRB, 6.2600_JPRB, 6.1500_JPRB,&
+ &6.4200_JPRB, 6.0700_JPRB, 6.0700_JPRB /)
+ZOZCL(:,23, 2) = (/&
+ &3.3900_JPRB, 3.3900_JPRB, 4.0800_JPRB, 5.1000_JPRB, 6.1900_JPRB, 6.9700_JPRB, 7.5100_JPRB, 8.0200_JPRB,&
+ &8.3900_JPRB, 8.4300_JPRB, 7.9400_JPRB, 7.2600_JPRB, 6.6300_JPRB, 6.2100_JPRB, 5.9800_JPRB, 6.0100_JPRB,&
+ &6.0600_JPRB, 5.7200_JPRB, 5.7200_JPRB /)
+ZOZCL(:,24, 2) = (/&
+ &3.2200_JPRB, 3.2200_JPRB, 3.7800_JPRB, 4.6000_JPRB, 5.4900_JPRB, 6.0500_JPRB, 6.3400_JPRB, 6.5800_JPRB,&
+ &6.6900_JPRB, 6.6400_JPRB, 6.3600_JPRB, 6.0900_JPRB, 5.9300_JPRB, 5.8200_JPRB, 5.7800_JPRB, 5.8000_JPRB,&
+ &5.5400_JPRB, 5.3000_JPRB, 5.3000_JPRB /)
+ZOZCL(:,25, 2) = (/&
+ &3.0003_JPRB, 3.0003_JPRB, 3.5474_JPRB, 3.1658_JPRB, 4.1800_JPRB, 4.3948_JPRB, 4.4725_JPRB, 4.3000_JPRB,&
+ &4.3085_JPRB, 4.2517_JPRB, 4.0900_JPRB, 4.2500_JPRB, 4.7925_JPRB, 5.0370_JPRB, 5.0522_JPRB, 5.6167_JPRB,&
+ &5.0366_JPRB, 4.8128_JPRB, 4.8128_JPRB /)
+ZOZCL(:,26, 2) = (/&
+ &2.7806_JPRB, 2.7806_JPRB, 2.8474_JPRB, 2.4030_JPRB, 2.5500_JPRB, 2.1512_JPRB, 1.8790_JPRB, 1.7200_JPRB,&
+ &1.3503_JPRB, 1.2765_JPRB, 1.4200_JPRB, 2.0100_JPRB, 2.4662_JPRB, 3.2013_JPRB, 3.5803_JPRB, 4.0760_JPRB,&
+ &3.5538_JPRB, 3.3464_JPRB, 3.3464_JPRB /)
+ZOZCL(:,27, 2) = (/&
+ &2.0816_JPRB, 2.0816_JPRB, 2.0919_JPRB, 1.6632_JPRB, 1.6600_JPRB, 1.0644_JPRB, 0.6293_JPRB, 0.6900_JPRB,&
+ &0.4460_JPRB, 0.4129_JPRB, 0.5400_JPRB, 0.7800_JPRB, 1.0097_JPRB, 1.8169_JPRB, 2.2099_JPRB, 2.6986_JPRB,&
+ &2.5496_JPRB, 2.7674_JPRB, 2.7674_JPRB /)
+ZOZCL(:,28, 2) = (/&
+ &1.1115_JPRB, 1.1115_JPRB, 1.0466_JPRB, 0.8470_JPRB, 0.4340_JPRB, 0.3083_JPRB, 0.1470_JPRB, 0.1402_JPRB,&
+ &0.0730_JPRB, 0.1244_JPRB, 0.1460_JPRB, 0.1402_JPRB, 0.2737_JPRB, 0.8487_JPRB, 1.1139_JPRB, 1.6160_JPRB,&
+ &1.5777_JPRB, 1.7738_JPRB, 1.7738_JPRB /)
+ZOZCL(:,29, 2) = (/&
+ &0.4523_JPRB, 0.4523_JPRB, 0.4153_JPRB, 0.2980_JPRB, 0.1827_JPRB, 0.1452_JPRB, 0.0900_JPRB, 0.0857_JPRB,&
+ &0.0410_JPRB, 0.0631_JPRB, 0.0707_JPRB, 0.0789_JPRB, 0.1307_JPRB, 0.5048_JPRB, 0.6104_JPRB, 0.7773_JPRB,&
+ &0.7942_JPRB, 0.9243_JPRB, 0.9243_JPRB /)
+ZOZCL(:,30, 2) = (/&
+ &0.3011_JPRB, 0.3011_JPRB, 0.2841_JPRB, 0.2348_JPRB, 0.1190_JPRB, 0.0620_JPRB, 0.0770_JPRB, 0.0732_JPRB,&
+ &0.0302_JPRB, 0.0446_JPRB, 0.0515_JPRB, 0.0643_JPRB, 0.0864_JPRB, 0.3351_JPRB, 0.3536_JPRB, 0.5345_JPRB,&
+ &0.4412_JPRB, 0.4547_JPRB, 0.4547_JPRB /)
+ZOZCL(:,31, 2) = (/&
+ &0.1151_JPRB, 0.1151_JPRB, 0.0983_JPRB, 0.1083_JPRB, 0.0503_JPRB, 0.0461_JPRB, 0.0730_JPRB, 0.0698_JPRB,&
+ &0.0308_JPRB, 0.0374_JPRB, 0.0450_JPRB, 0.0457_JPRB, 0.0681_JPRB, 0.0962_JPRB, 0.0882_JPRB, 0.1167_JPRB,&
+ &0.1221_JPRB, 0.1011_JPRB, 0.1011_JPRB /)
+ZOZCL(:,32, 2) = (/&
+ &0.0214_JPRB, 0.0214_JPRB, 0.0319_JPRB, 0.0236_JPRB, 0.0360_JPRB, 0.0395_JPRB, 0.0518_JPRB, 0.0499_JPRB,&
+ &0.0277_JPRB, 0.0309_JPRB, 0.0322_JPRB, 0.0447_JPRB, 0.0439_JPRB, 0.0484_JPRB, 0.0503_JPRB, 0.0484_JPRB,&
+ &0.0507_JPRB, 0.0452_JPRB, 0.0452_JPRB /)
+ZOZCL(:,33, 2) = (/&
+ &0.0172_JPRB, 0.0172_JPRB, 0.0237_JPRB, 0.0167_JPRB, 0.0269_JPRB, 0.0359_JPRB, 0.0436_JPRB, 0.0416_JPRB,&
+ &0.0222_JPRB, 0.0309_JPRB, 0.0286_JPRB, 0.0397_JPRB, 0.0397_JPRB, 0.0434_JPRB, 0.0428_JPRB, 0.0423_JPRB,&
+ &0.0434_JPRB, 0.0392_JPRB, 0.0392_JPRB /)
+ZOZCL(:,34, 2) = (/&
+ &0.0172_JPRB, 0.0172_JPRB, 0.0237_JPRB, 0.0167_JPRB, 0.0269_JPRB, 0.0359_JPRB, 0.0436_JPRB, 0.0416_JPRB,&
+ &0.0222_JPRB, 0.0309_JPRB, 0.0286_JPRB, 0.0397_JPRB, 0.0397_JPRB, 0.0434_JPRB, 0.0428_JPRB, 0.0423_JPRB,&
+ &0.0434_JPRB, 0.0392_JPRB, 0.0392_JPRB /)
+
+! Month:  3
+ZOZCL(:, 1, 3) = (/&
+ &0.3700_JPRB, 0.3700_JPRB, 0.5800_JPRB, 0.6600_JPRB, 0.6800_JPRB, 0.7400_JPRB, 0.8200_JPRB, 0.8100_JPRB,&
+ &0.7400_JPRB, 0.6900_JPRB, 0.7100_JPRB, 0.7600_JPRB, 0.7600_JPRB, 0.6800_JPRB, 0.5800_JPRB, 0.5700_JPRB,&
+ &0.6000_JPRB, 0.6100_JPRB, 0.6100_JPRB /)
+ZOZCL(:, 2, 3) = (/&
+ &0.2100_JPRB, 0.2100_JPRB, 0.2800_JPRB, 0.3100_JPRB, 0.3800_JPRB, 0.4800_JPRB, 0.5300_JPRB, 0.5200_JPRB,&
+ &0.4700_JPRB, 0.4400_JPRB, 0.4600_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4200_JPRB, 0.3500_JPRB, 0.3300_JPRB,&
+ &0.3100_JPRB, 0.2700_JPRB, 0.2700_JPRB /)
+ZOZCL(:, 3, 3) = (/&
+ &0.1500_JPRB, 0.1500_JPRB, 0.2100_JPRB, 0.2400_JPRB, 0.3000_JPRB, 0.3800_JPRB, 0.4300_JPRB, 0.4300_JPRB,&
+ &0.4100_JPRB, 0.4000_JPRB, 0.4100_JPRB, 0.4200_JPRB, 0.4100_JPRB, 0.3600_JPRB, 0.3000_JPRB, 0.2600_JPRB,&
+ &0.2200_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
+ZOZCL(:, 4, 3) = (/&
+ &0.1200_JPRB, 0.1200_JPRB, 0.1900_JPRB, 0.2200_JPRB, 0.2600_JPRB, 0.3300_JPRB, 0.3800_JPRB, 0.3700_JPRB,&
+ &0.3400_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3700_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3400_JPRB, 0.2800_JPRB,&
+ &0.2200_JPRB, 0.1500_JPRB, 0.1500_JPRB /)
+ZOZCL(:, 5, 3) = (/&
+ &0.1200_JPRB, 0.1200_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.2000_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2300_JPRB,&
+ &0.2100_JPRB, 0.2000_JPRB, 0.2200_JPRB, 0.2600_JPRB, 0.3200_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.3500_JPRB,&
+ &0.3100_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
+ZOZCL(:, 6, 3) = (/&
+ &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB,&
+ &0.1500_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1900_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.3800_JPRB, 0.3900_JPRB,&
+ &0.3700_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
+ZOZCL(:, 7, 3) = (/&
+ &0.2000_JPRB, 0.2000_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1700_JPRB,&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2300_JPRB, 0.2900_JPRB, 0.3700_JPRB,&
+ &0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
+ZOZCL(:, 8, 3) = (/&
+ &0.3000_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB,&
+ &0.2400_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3700_JPRB,&
+ &0.4600_JPRB, 0.4800_JPRB, 0.4800_JPRB /)
+ZOZCL(:, 9, 3) = (/&
+ &0.4000_JPRB, 0.4000_JPRB, 0.4000_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3500_JPRB, 0.3400_JPRB,&
+ &0.3200_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3600_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4600_JPRB,&
+ &0.5000_JPRB, 0.5200_JPRB, 0.5200_JPRB /)
+ZOZCL(:,10, 3) = (/&
+ &0.5500_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5100_JPRB, 0.5000_JPRB, 0.5100_JPRB,&
+ &0.5000_JPRB, 0.4800_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.4900_JPRB, 0.5200_JPRB, 0.5400_JPRB, 0.5500_JPRB,&
+ &0.5700_JPRB, 0.6100_JPRB, 0.6100_JPRB /)
+ZOZCL(:,11, 3) = (/&
+ &0.7900_JPRB, 0.7900_JPRB, 0.7600_JPRB, 0.7700_JPRB, 0.7800_JPRB, 0.7700_JPRB, 0.7500_JPRB, 0.7500_JPRB,&
+ &0.7400_JPRB, 0.7300_JPRB, 0.7200_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7400_JPRB, 0.7400_JPRB, 0.7300_JPRB,&
+ &0.7400_JPRB, 0.7500_JPRB, 0.7500_JPRB /)
+ZOZCL(:,12, 3) = (/&
+ &0.9900_JPRB, 0.9900_JPRB, 0.9700_JPRB, 0.9800_JPRB, 1.0000_JPRB, 0.9900_JPRB, 0.9700_JPRB, 0.9600_JPRB,&
+ &0.9600_JPRB, 0.9500_JPRB, 0.9400_JPRB, 0.9300_JPRB, 0.9200_JPRB, 0.9400_JPRB, 0.9400_JPRB, 0.9000_JPRB,&
+ &0.9100_JPRB, 0.9300_JPRB, 0.9300_JPRB /)
+ZOZCL(:,13, 3) = (/&
+ &1.3300_JPRB, 1.3300_JPRB, 1.3500_JPRB, 1.3600_JPRB, 1.3800_JPRB, 1.3900_JPRB, 1.3700_JPRB, 1.3300_JPRB,&
+ &1.3300_JPRB, 1.3400_JPRB, 1.3300_JPRB, 1.3200_JPRB, 1.3200_JPRB, 1.3300_JPRB, 1.3200_JPRB, 1.2800_JPRB,&
+ &1.2900_JPRB, 1.3500_JPRB, 1.3500_JPRB /)
+ZOZCL(:,14, 3) = (/&
+ &1.9700_JPRB, 1.9700_JPRB, 1.9600_JPRB, 1.9200_JPRB, 1.9300_JPRB, 1.9500_JPRB, 1.9200_JPRB, 1.8900_JPRB,&
+ &1.8800_JPRB, 1.8900_JPRB, 1.8900_JPRB, 1.9200_JPRB, 1.9400_JPRB, 1.9400_JPRB, 1.9600_JPRB, 2.0200_JPRB,&
+ &2.1200_JPRB, 2.2700_JPRB, 2.2700_JPRB /)
+ZOZCL(:,15, 3) = (/&
+ &2.8200_JPRB, 2.8200_JPRB, 2.5800_JPRB, 2.4200_JPRB, 2.4000_JPRB, 2.4000_JPRB, 2.3700_JPRB, 2.3200_JPRB,&
+ &2.3000_JPRB, 2.3000_JPRB, 2.3100_JPRB, 2.3500_JPRB, 2.4100_JPRB, 2.4200_JPRB, 2.5000_JPRB, 2.6800_JPRB,&
+ &2.8900_JPRB, 3.0000_JPRB, 3.0000_JPRB /)
+ZOZCL(:,16, 3) = (/&
+ &3.8600_JPRB, 3.8600_JPRB, 3.6200_JPRB, 3.3000_JPRB, 3.2000_JPRB, 3.1700_JPRB, 3.1100_JPRB, 2.9900_JPRB,&
+ &2.9000_JPRB, 2.8800_JPRB, 2.9200_JPRB, 3.0300_JPRB, 3.1700_JPRB, 3.2700_JPRB, 3.4500_JPRB, 3.7500_JPRB,&
+ &3.9600_JPRB, 3.9300_JPRB, 3.9300_JPRB /)
+ZOZCL(:,17, 3) = (/&
+ &5.0100_JPRB, 5.0100_JPRB, 5.0400_JPRB, 4.6600_JPRB, 4.4600_JPRB, 4.3600_JPRB, 4.2800_JPRB, 4.0600_JPRB,&
+ &3.8300_JPRB, 3.7700_JPRB, 3.8600_JPRB, 4.1000_JPRB, 4.3900_JPRB, 4.6700_JPRB, 5.0200_JPRB, 5.3300_JPRB,&
+ &5.3200_JPRB, 5.0000_JPRB, 5.0000_JPRB /)
+
+ZOZCL(:,18, 3) = (/&
+ &5.4100_JPRB, 5.4100_JPRB, 5.8000_JPRB, 5.6800_JPRB, 5.5300_JPRB, 5.4500_JPRB, 5.3700_JPRB, 5.1200_JPRB,&
+ &4.8000_JPRB, 4.7100_JPRB, 4.8500_JPRB, 5.1500_JPRB, 5.5100_JPRB, 5.9200_JPRB, 6.2800_JPRB, 6.4200_JPRB,&
+ &6.1800_JPRB, 5.7400_JPRB, 5.7400_JPRB /)
+ZOZCL(:,19, 3) = (/&
+ &5.3900_JPRB, 5.3900_JPRB, 6.2600_JPRB, 6.7600_JPRB, 6.9300_JPRB, 7.0000_JPRB, 7.0600_JPRB, 6.9300_JPRB,&
+ &6.6000_JPRB, 6.4800_JPRB, 6.6300_JPRB, 6.9100_JPRB, 7.2100_JPRB, 7.6100_JPRB, 7.7300_JPRB, 7.4100_JPRB,&
+ &6.8800_JPRB, 6.4900_JPRB, 6.4900_JPRB /)
+ZOZCL(:,20, 3) = (/&
+ &5.0800_JPRB, 5.0800_JPRB, 6.0500_JPRB, 6.8800_JPRB, 7.5300_JPRB, 7.9800_JPRB, 8.4100_JPRB, 8.7200_JPRB,&
+ &8.8900_JPRB, 8.7600_JPRB, 8.6400_JPRB, 8.5200_JPRB, 8.4500_JPRB, 8.4200_JPRB, 7.9600_JPRB, 7.2500_JPRB,&
+ &6.6500_JPRB, 6.5000_JPRB, 6.5000_JPRB /)
+ZOZCL(:,21, 3) = (/&
+ &4.6500_JPRB, 4.6500_JPRB, 5.4000_JPRB, 6.4000_JPRB, 7.3000_JPRB, 7.9900_JPRB, 8.6900_JPRB, 9.3100_JPRB,&
+ &9.8800_JPRB, 9.9200_JPRB, 9.5300_JPRB, 9.0600_JPRB, 8.6000_JPRB, 8.0800_JPRB, 7.4200_JPRB, 6.7000_JPRB,&
+ &6.2800_JPRB, 6.3000_JPRB, 6.3000_JPRB /)
+ZOZCL(:,22, 3) = (/&
+ &4.0900_JPRB, 4.0900_JPRB, 4.5200_JPRB, 5.6100_JPRB, 6.6400_JPRB, 7.5300_JPRB, 8.4300_JPRB, 9.2700_JPRB,&
+ &10.1800_JPRB,10.4300_JPRB, 9.8000_JPRB, 9.0300_JPRB, 8.1800_JPRB, 7.3100_JPRB, 6.6500_JPRB, 6.1500_JPRB,&
+ &6.0300_JPRB, 6.1800_JPRB, 6.1800_JPRB /)
+ZOZCL(:,23, 3) = (/&
+ &3.7300_JPRB, 3.7300_JPRB, 3.9800_JPRB, 4.8800_JPRB, 5.8300_JPRB, 6.6300_JPRB, 7.3900_JPRB, 8.0300_JPRB,&
+ &8.6500_JPRB, 8.8000_JPRB, 8.3400_JPRB, 7.8100_JPRB, 7.1800_JPRB, 6.4600_JPRB, 6.0500_JPRB, 5.8200_JPRB,&
+ &5.8600_JPRB, 5.9500_JPRB, 5.9500_JPRB /)
+ZOZCL(:,24, 3) = (/&
+ &3.6100_JPRB, 3.6100_JPRB, 3.8500_JPRB, 4.4800_JPRB, 5.2200_JPRB, 5.8100_JPRB, 6.2800_JPRB, 6.6300_JPRB,&
+ &6.9400_JPRB, 6.9800_JPRB, 6.7600_JPRB, 6.5900_JPRB, 6.3300_JPRB, 5.9100_JPRB, 5.6800_JPRB, 5.6600_JPRB,&
+ &5.6800_JPRB, 5.5800_JPRB, 5.5800_JPRB /)
+ZOZCL(:,25, 3) = (/&
+ &3.1224_JPRB, 3.1224_JPRB, 3.6151_JPRB, 3.7775_JPRB, 4.1300_JPRB, 4.3723_JPRB, 4.4483_JPRB, 4.4100_JPRB,&
+ &4.1969_JPRB, 4.0694_JPRB, 4.1500_JPRB, 4.4000_JPRB, 4.8127_JPRB, 4.9401_JPRB, 4.9680_JPRB, 5.3133_JPRB,&
+ &5.0041_JPRB, 4.9122_JPRB, 4.9122_JPRB /)
+ZOZCL(:,26, 3) = (/&
+ &2.6334_JPRB, 2.6334_JPRB, 2.7121_JPRB, 2.6930_JPRB, 2.5200_JPRB, 2.2178_JPRB, 1.8100_JPRB, 1.7700_JPRB,&
+ &1.4103_JPRB, 1.4057_JPRB, 1.6100_JPRB, 2.0200_JPRB, 2.5684_JPRB, 3.3099_JPRB, 3.5610_JPRB, 3.9360_JPRB,&
+ &3.8361_JPRB, 4.1727_JPRB, 4.1727_JPRB /)
+ZOZCL(:,27, 3) = (/&
+ &2.0332_JPRB, 2.0332_JPRB, 1.9125_JPRB, 1.8489_JPRB, 1.6700_JPRB, 1.1312_JPRB, 0.5907_JPRB, 0.7700_JPRB,&
+ &0.4366_JPRB, 0.4548_JPRB, 0.6900_JPRB, 0.8800_JPRB, 1.1434_JPRB, 1.9708_JPRB, 2.2482_JPRB, 2.6371_JPRB,&
+ &2.6979_JPRB, 3.0926_JPRB, 3.0926_JPRB /)
+ZOZCL(:,28, 3) = (/&
+ &1.1385_JPRB, 1.1385_JPRB, 0.9831_JPRB, 0.8470_JPRB, 0.4810_JPRB, 0.3561_JPRB, 0.1400_JPRB, 0.1253_JPRB,&
+ &0.0974_JPRB, 0.1627_JPRB, 0.2000_JPRB, 0.1653_JPRB, 0.3618_JPRB, 0.9371_JPRB, 1.0914_JPRB, 1.5090_JPRB,&
+ &1.6604_JPRB, 2.0711_JPRB, 2.0711_JPRB /)
+ZOZCL(:,29, 3) = (/&
+ &0.4663_JPRB, 0.4663_JPRB, 0.4136_JPRB, 0.2400_JPRB, 0.1867_JPRB, 0.1333_JPRB, 0.0967_JPRB, 0.0849_JPRB,&
+ &0.0506_JPRB, 0.0800_JPRB, 0.1020_JPRB, 0.0796_JPRB, 0.1820_JPRB, 0.5252_JPRB, 0.6249_JPRB, 0.8747_JPRB,&
+ &0.8605_JPRB, 1.1893_JPRB, 1.1893_JPRB /)
+ZOZCL(:,30, 3) = (/&
+ &0.2737_JPRB, 0.2737_JPRB, 0.2403_JPRB, 0.1800_JPRB, 0.1205_JPRB, 0.0946_JPRB, 0.0740_JPRB, 0.0662_JPRB,&
+ &0.0375_JPRB, 0.0530_JPRB, 0.0740_JPRB, 0.0561_JPRB, 0.1221_JPRB, 0.3503_JPRB, 0.3935_JPRB, 0.5720_JPRB,&
+ &0.5387_JPRB, 0.6621_JPRB, 0.6621_JPRB /)
+ZOZCL(:,31, 3) = (/&
+ &0.0813_JPRB, 0.0813_JPRB, 0.0808_JPRB, 0.0600_JPRB, 0.0493_JPRB, 0.0642_JPRB, 0.0617_JPRB, 0.0560_JPRB,&
+ &0.0363_JPRB, 0.0436_JPRB, 0.0510_JPRB, 0.0466_JPRB, 0.0676_JPRB, 0.0846_JPRB, 0.0938_JPRB, 0.1320_JPRB,&
+ &0.1410_JPRB, 0.1591_JPRB, 0.1591_JPRB /)
+ZOZCL(:,32, 3) = (/&
+ &0.0285_JPRB, 0.0285_JPRB, 0.0364_JPRB, 0.0294_JPRB, 0.0320_JPRB, 0.0354_JPRB, 0.0586_JPRB, 0.0538_JPRB,&
+ &0.0366_JPRB, 0.0472_JPRB, 0.0610_JPRB, 0.0460_JPRB, 0.0515_JPRB, 0.0539_JPRB, 0.0573_JPRB, 0.0522_JPRB,&
+ &0.0549_JPRB, 0.0467_JPRB, 0.0467_JPRB /)
+ZOZCL(:,33, 3) = (/&
+ &0.0220_JPRB, 0.0220_JPRB, 0.0279_JPRB, 0.0243_JPRB, 0.0254_JPRB, 0.0318_JPRB, 0.0404_JPRB, 0.0373_JPRB,&
+ &0.0268_JPRB, 0.0363_JPRB, 0.0471_JPRB, 0.0443_JPRB, 0.0465_JPRB, 0.0492_JPRB, 0.0480_JPRB, 0.0470_JPRB,&
+ &0.0471_JPRB, 0.0386_JPRB, 0.0386_JPRB /)
+ZOZCL(:,34, 3) = (/&
+ &0.0220_JPRB, 0.0220_JPRB, 0.0279_JPRB, 0.0243_JPRB, 0.0254_JPRB, 0.0318_JPRB, 0.0404_JPRB, 0.0373_JPRB,&
+ &0.0268_JPRB, 0.0363_JPRB, 0.0471_JPRB, 0.0443_JPRB, 0.0465_JPRB, 0.0492_JPRB, 0.0480_JPRB, 0.0470_JPRB,&
+ &0.0471_JPRB, 0.0386_JPRB, 0.0386_JPRB /)
+
+! Month:  4
+ZOZCL(:, 1, 4) = (/&
+ &0.8500_JPRB, 0.8500_JPRB, 0.8100_JPRB, 0.7700_JPRB, 0.8300_JPRB, 0.9200_JPRB, 0.9300_JPRB, 0.8400_JPRB,&
+ &0.7700_JPRB, 0.7600_JPRB, 0.7900_JPRB, 0.9300_JPRB, 1.0100_JPRB, 0.8300_JPRB, 0.5800_JPRB, 0.5200_JPRB,&
+ &0.5600_JPRB, 0.6300_JPRB, 0.6300_JPRB /)
+ZOZCL(:, 2, 4) = (/&
+ &0.3900_JPRB, 0.3900_JPRB, 0.3700_JPRB, 0.3500_JPRB, 0.4300_JPRB, 0.5400_JPRB, 0.5700_JPRB, 0.5000_JPRB,&
+ &0.4400_JPRB, 0.4300_JPRB, 0.4700_JPRB, 0.6200_JPRB, 0.7200_JPRB, 0.6100_JPRB, 0.4300_JPRB, 0.3600_JPRB,&
+ &0.3800_JPRB, 0.4200_JPRB, 0.4200_JPRB /)
+ZOZCL(:, 3, 4) = (/&
+ &0.2600_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.4100_JPRB,&
+ &0.3900_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4900_JPRB, 0.5600_JPRB, 0.5100_JPRB, 0.4100_JPRB, 0.3400_JPRB,&
+ &0.3200_JPRB, 0.3000_JPRB, 0.3000_JPRB /)
+ZOZCL(:, 4, 4) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.3000_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3400_JPRB,&
+ &0.3500_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.4600_JPRB, 0.4800_JPRB, 0.4400_JPRB, 0.4100_JPRB,&
+ &0.3500_JPRB, 0.2500_JPRB, 0.2500_JPRB /)
+ZOZCL(:, 5, 4) = (/&
+ &0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2200_JPRB, 0.2000_JPRB,&
+ &0.2200_JPRB, 0.2300_JPRB, 0.2200_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.4300_JPRB,&
+ &0.3900_JPRB, 0.2900_JPRB, 0.2900_JPRB /)
+ZOZCL(:, 6, 4) = (/&
+ &0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2200_JPRB, 0.1900_JPRB, 0.1600_JPRB, 0.1500_JPRB,&
+ &0.1500_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.2300_JPRB, 0.3100_JPRB, 0.3500_JPRB, 0.3700_JPRB,&
+ &0.3700_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
+ZOZCL(:, 7, 4) = (/&
+ &0.2900_JPRB, 0.2900_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.1800_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2300_JPRB, 0.2600_JPRB,&
+ &0.3000_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
+ZOZCL(:, 8, 4) = (/&
+ &0.3500_JPRB, 0.3500_JPRB, 0.3400_JPRB, 0.3200_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2600_JPRB,&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2900_JPRB, 0.3100_JPRB,&
+ &0.3500_JPRB, 0.3900_JPRB, 0.3900_JPRB /)
+ZOZCL(:, 9, 4) = (/&
+ &0.4600_JPRB, 0.4600_JPRB, 0.4400_JPRB, 0.4200_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3700_JPRB,&
+ &0.3500_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4300_JPRB,&
+ &0.4600_JPRB, 0.4900_JPRB, 0.4900_JPRB /)
+ZOZCL(:,10, 4) = (/&
+ &0.6200_JPRB, 0.6200_JPRB, 0.5900_JPRB, 0.5600_JPRB, 0.5600_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5400_JPRB,&
+ &0.5200_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.4900_JPRB, 0.5000_JPRB, 0.5300_JPRB,&
+ &0.5500_JPRB, 0.5600_JPRB, 0.5600_JPRB /)
+ZOZCL(:,11, 4) = (/&
+ &0.8800_JPRB, 0.8800_JPRB, 0.8400_JPRB, 0.8000_JPRB, 0.8100_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.7900_JPRB,&
+ &0.7800_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7300_JPRB, 0.7300_JPRB,&
+ &0.7300_JPRB, 0.7300_JPRB, 0.7300_JPRB /)
+ZOZCL(:,12, 4) = (/&
+ &1.1700_JPRB, 1.1700_JPRB, 1.1100_JPRB, 1.0600_JPRB, 1.0500_JPRB, 1.0100_JPRB, 1.0000_JPRB, 1.0100_JPRB,&
+ &1.0000_JPRB, 0.9800_JPRB, 0.9700_JPRB, 0.9600_JPRB, 0.9500_JPRB, 0.9400_JPRB, 0.9300_JPRB, 0.9100_JPRB,&
+ &0.9000_JPRB, 0.8900_JPRB, 0.8900_JPRB /)
+ZOZCL(:,13, 4) = (/&
+ &1.7000_JPRB, 1.7000_JPRB, 1.6100_JPRB, 1.5400_JPRB, 1.5000_JPRB, 1.4300_JPRB, 1.4000_JPRB, 1.3900_JPRB,&
+ &1.3800_JPRB, 1.3600_JPRB, 1.3500_JPRB, 1.3500_JPRB, 1.3300_JPRB, 1.3200_JPRB, 1.2900_JPRB, 1.2600_JPRB,&
+ &1.2400_JPRB, 1.2400_JPRB, 1.2400_JPRB /)
+ZOZCL(:,14, 4) = (/&
+ &2.5000_JPRB, 2.5000_JPRB, 2.3800_JPRB, 2.2700_JPRB, 2.1700_JPRB, 2.0400_JPRB, 1.9600_JPRB, 1.9300_JPRB,&
+ &1.9400_JPRB, 1.9400_JPRB, 1.9300_JPRB, 1.9400_JPRB, 1.9400_JPRB, 1.8900_JPRB, 1.8400_JPRB, 1.8300_JPRB,&
+ &1.8600_JPRB, 1.9000_JPRB, 1.9000_JPRB /)
+ZOZCL(:,15, 4) = (/&
+ &3.4900_JPRB, 3.4900_JPRB, 3.3400_JPRB, 2.9600_JPRB, 2.7700_JPRB, 2.5600_JPRB, 2.4200_JPRB, 2.3600_JPRB,&
+ &2.3700_JPRB, 2.3700_JPRB, 2.3700_JPRB, 2.4000_JPRB, 2.4100_JPRB, 2.3300_JPRB, 2.2600_JPRB, 2.2800_JPRB,&
+ &2.3700_JPRB, 2.4800_JPRB, 2.4800_JPRB /)
+ZOZCL(:,16, 4) = (/&
+ &4.6400_JPRB, 4.6400_JPRB, 4.6400_JPRB, 4.1900_JPRB, 3.8700_JPRB, 3.5200_JPRB, 3.2500_JPRB, 3.0700_JPRB,&
+ &2.9900_JPRB, 2.9700_JPRB, 2.9900_JPRB, 3.0600_JPRB, 3.1100_JPRB, 3.0300_JPRB, 2.9600_JPRB, 3.0300_JPRB,&
+ &3.1800_JPRB, 3.3500_JPRB, 3.3500_JPRB /)
+ZOZCL(:,17, 4) = (/&
+ &5.5900_JPRB, 5.5900_JPRB, 6.0600_JPRB, 5.8400_JPRB, 5.4800_JPRB, 5.0100_JPRB, 4.5700_JPRB, 4.1600_JPRB,&
+ &3.9300_JPRB, 3.8800_JPRB, 3.9400_JPRB, 4.0800_JPRB, 4.2100_JPRB, 4.1800_JPRB, 4.1600_JPRB, 4.3000_JPRB,&
+ &4.4800_JPRB, 4.5700_JPRB, 4.5700_JPRB /)
+
+ZOZCL(:,18, 4) = (/&
+ &5.6500_JPRB, 5.6500_JPRB, 6.3900_JPRB, 6.6500_JPRB, 6.5100_JPRB, 6.1400_JPRB, 5.7100_JPRB, 5.2300_JPRB,&
+ &4.9000_JPRB, 4.8300_JPRB, 4.9300_JPRB, 5.1300_JPRB, 5.3100_JPRB, 5.3500_JPRB, 5.3900_JPRB, 5.5500_JPRB,&
+ &5.6300_JPRB, 5.4900_JPRB, 5.4900_JPRB /)
+ZOZCL(:,19, 4) = (/&
+ &5.1800_JPRB, 5.1800_JPRB, 5.9800_JPRB, 6.9300_JPRB, 7.3400_JPRB, 7.4000_JPRB, 7.3000_JPRB, 6.9900_JPRB,&
+ &6.5800_JPRB, 6.4900_JPRB, 6.6600_JPRB, 6.9500_JPRB, 7.1200_JPRB, 7.2500_JPRB, 7.3100_JPRB, 7.3000_JPRB,&
+ &7.0200_JPRB, 6.4200_JPRB, 6.4200_JPRB /)
+ZOZCL(:,20, 4) = (/&
+ &4.9400_JPRB, 4.9400_JPRB, 5.5400_JPRB, 6.4800_JPRB, 6.9800_JPRB, 7.8100_JPRB, 8.3300_JPRB, 8.5800_JPRB,&
+ &8.4600_JPRB, 8.4400_JPRB, 8.3600_JPRB, 8.5700_JPRB, 8.5700_JPRB, 8.6400_JPRB, 8.4100_JPRB, 7.6400_JPRB,&
+ &6.9900_JPRB, 6.1400_JPRB, 6.1400_JPRB /)
+ZOZCL(:,21, 4) = (/&
+ &4.6600_JPRB, 4.6600_JPRB, 5.0900_JPRB, 5.9000_JPRB, 6.5300_JPRB, 7.5700_JPRB, 8.4200_JPRB, 9.1000_JPRB,&
+ &9.4700_JPRB, 9.5600_JPRB, 9.3000_JPRB, 9.1100_JPRB, 8.8600_JPRB, 8.5900_JPRB, 8.0400_JPRB, 7.1700_JPRB,&
+ &6.3700_JPRB, 5.6800_JPRB, 5.6800_JPRB /)
+ZOZCL(:,22, 4) = (/&
+ &4.1800_JPRB, 4.1800_JPRB, 4.5000_JPRB, 5.2300_JPRB, 5.8700_JPRB, 6.9900_JPRB, 8.0400_JPRB, 9.0300_JPRB,&
+ &9.9400_JPRB,10.2500_JPRB, 9.7100_JPRB, 9.0500_JPRB, 8.5700_JPRB, 7.9100_JPRB, 7.1600_JPRB, 6.4400_JPRB,&
+ &5.7800_JPRB, 5.4000_JPRB, 5.4000_JPRB /)
+ZOZCL(:,23, 4) = (/&
+ &3.7300_JPRB, 3.7300_JPRB, 4.1500_JPRB, 4.8200_JPRB, 5.3000_JPRB, 6.2100_JPRB, 7.1300_JPRB, 7.9400_JPRB,&
+ &8.6900_JPRB, 8.8900_JPRB, 8.5000_JPRB, 7.9700_JPRB, 7.5700_JPRB, 6.9000_JPRB, 6.2800_JPRB, 5.8000_JPRB,&
+ &5.4000_JPRB, 5.3000_JPRB, 5.3000_JPRB /)
+ZOZCL(:,24, 4) = (/&
+ &3.4600_JPRB, 3.4600_JPRB, 4.0300_JPRB, 4.6300_JPRB, 4.8800_JPRB, 5.5400_JPRB, 6.1700_JPRB, 6.6300_JPRB,&
+ &7.0600_JPRB, 7.1500_JPRB, 7.0200_JPRB, 6.8100_JPRB, 6.6500_JPRB, 6.1900_JPRB, 5.7400_JPRB, 5.4200_JPRB,&
+ &5.2400_JPRB, 5.2600_JPRB, 5.2600_JPRB /)
+ZOZCL(:,25, 4) = (/&
+ &3.0632_JPRB, 3.0632_JPRB, 3.4158_JPRB, 3.5100_JPRB, 4.3100_JPRB, 4.3752_JPRB, 4.5208_JPRB, 4.4600_JPRB,&
+ &4.2765_JPRB, 4.1155_JPRB, 4.5100_JPRB, 4.7700_JPRB, 4.8950_JPRB, 4.9389_JPRB, 4.9170_JPRB, 4.8658_JPRB,&
+ &4.6739_JPRB, 4.4704_JPRB, 4.4704_JPRB /)
+ZOZCL(:,26, 4) = (/&
+ &2.7866_JPRB, 2.7866_JPRB, 2.8827_JPRB, 2.2940_JPRB, 2.3100_JPRB, 2.3000_JPRB, 1.8480_JPRB, 1.7500_JPRB,&
+ &1.4017_JPRB, 1.3223_JPRB, 1.9100_JPRB, 2.1500_JPRB, 2.4873_JPRB, 3.0727_JPRB, 3.3838_JPRB, 3.6860_JPRB,&
+ &3.4798_JPRB, 3.6792_JPRB, 3.6792_JPRB /)
+ZOZCL(:,27, 4) = (/&
+ &2.0170_JPRB, 2.0170_JPRB, 2.1027_JPRB, 1.5043_JPRB, 1.2057_JPRB, 1.2311_JPRB, 0.6146_JPRB, 0.7500_JPRB,&
+ &0.4326_JPRB, 0.4324_JPRB, 0.8300_JPRB, 0.9200_JPRB, 1.0115_JPRB, 1.7445_JPRB, 2.1317_JPRB, 2.5600_JPRB,&
+ &2.4715_JPRB, 2.6507_JPRB, 2.6507_JPRB /)
+ZOZCL(:,28, 4) = (/&
+ &1.0687_JPRB, 1.0687_JPRB, 1.1158_JPRB, 0.8870_JPRB, 0.4880_JPRB, 0.4550_JPRB, 0.1530_JPRB, 0.1371_JPRB,&
+ &0.0946_JPRB, 0.1433_JPRB, 0.2040_JPRB, 0.1863_JPRB, 0.3347_JPRB, 0.8332_JPRB, 1.1081_JPRB, 1.4170_JPRB,&
+ &1.3721_JPRB, 1.5628_JPRB, 1.5628_JPRB /)
+ZOZCL(:,29, 4) = (/&
+ &0.4071_JPRB, 0.4071_JPRB, 0.4014_JPRB, 0.2647_JPRB, 0.1933_JPRB, 0.1891_JPRB, 0.0920_JPRB, 0.0776_JPRB,&
+ &0.0395_JPRB, 0.0654_JPRB, 0.0907_JPRB, 0.0952_JPRB, 0.1664_JPRB, 0.4858_JPRB, 0.6369_JPRB, 0.7840_JPRB,&
+ &0.8782_JPRB, 1.0681_JPRB, 1.0681_JPRB /)
+ZOZCL(:,30, 4) = (/&
+ &0.2599_JPRB, 0.2599_JPRB, 0.2491_JPRB, 0.1898_JPRB, 0.0915_JPRB, 0.0924_JPRB, 0.0690_JPRB, 0.0586_JPRB,&
+ &0.0327_JPRB, 0.0566_JPRB, 0.0740_JPRB, 0.0723_JPRB, 0.1213_JPRB, 0.3358_JPRB, 0.4177_JPRB, 0.5340_JPRB,&
+ &0.6533_JPRB, 0.6759_JPRB, 0.6759_JPRB /)
+ZOZCL(:,31, 4) = (/&
+ &0.0723_JPRB, 0.0723_JPRB, 0.0732_JPRB, 0.0400_JPRB, 0.0433_JPRB, 0.0441_JPRB, 0.0517_JPRB, 0.0451_JPRB,&
+ &0.0301_JPRB, 0.0512_JPRB, 0.0647_JPRB, 0.0615_JPRB, 0.0745_JPRB, 0.0995_JPRB, 0.1084_JPRB, 0.1423_JPRB,&
+ &0.1592_JPRB, 0.1711_JPRB, 0.1711_JPRB /)
+ZOZCL(:,32, 4) = (/&
+ &0.0306_JPRB, 0.0306_JPRB, 0.0345_JPRB, 0.0334_JPRB, 0.0346_JPRB, 0.0344_JPRB, 0.0400_JPRB, 0.0366_JPRB,&
+ &0.0300_JPRB, 0.0491_JPRB, 0.0620_JPRB, 0.0554_JPRB, 0.0574_JPRB, 0.0620_JPRB, 0.0659_JPRB, 0.0626_JPRB,&
+ &0.0634_JPRB, 0.0558_JPRB, 0.0558_JPRB /)
+ZOZCL(:,33, 4) = (/&
+ &0.0251_JPRB, 0.0251_JPRB, 0.0280_JPRB, 0.0281_JPRB, 0.0269_JPRB, 0.0290_JPRB, 0.0376_JPRB, 0.0341_JPRB,&
+ &0.0280_JPRB, 0.0385_JPRB, 0.0357_JPRB, 0.0480_JPRB, 0.0493_JPRB, 0.0564_JPRB, 0.0559_JPRB, 0.0556_JPRB,&
+ &0.0570_JPRB, 0.0493_JPRB, 0.0493_JPRB /)
+ZOZCL(:,34, 4) = (/&
+ &0.0251_JPRB, 0.0251_JPRB, 0.0280_JPRB, 0.0281_JPRB, 0.0269_JPRB, 0.0290_JPRB, 0.0376_JPRB, 0.0341_JPRB,&
+ &0.0280_JPRB, 0.0385_JPRB, 0.0357_JPRB, 0.0480_JPRB, 0.0493_JPRB, 0.0564_JPRB, 0.0559_JPRB, 0.0556_JPRB,&
+ &0.0570_JPRB, 0.0493_JPRB, 0.0493_JPRB /)
+
+! Month:  5
+ZOZCL(:, 1, 5) = (/&
+ &0.9400_JPRB, 0.9400_JPRB, 1.0600_JPRB, 0.9900_JPRB, 0.9900_JPRB, 1.0200_JPRB, 0.9200_JPRB, 0.7500_JPRB,&
+ &0.6500_JPRB, 0.6300_JPRB, 0.6700_JPRB, 0.7500_JPRB, 0.8500_JPRB, 0.8400_JPRB, 0.7400_JPRB, 0.6400_JPRB,&
+ &0.5600_JPRB, 0.4800_JPRB, 0.4800_JPRB /)
+ZOZCL(:, 2, 5) = (/&
+ &0.4800_JPRB, 0.4800_JPRB, 0.5500_JPRB, 0.5100_JPRB, 0.5100_JPRB, 0.5700_JPRB, 0.5300_JPRB, 0.4600_JPRB,&
+ &0.4200_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.5200_JPRB, 0.6200_JPRB, 0.6300_JPRB, 0.5600_JPRB, 0.4900_JPRB,&
+ &0.4100_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
+ZOZCL(:, 3, 5) = (/&
+ &0.3100_JPRB, 0.3100_JPRB, 0.3500_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.4000_JPRB,&
+ &0.4200_JPRB, 0.4300_JPRB, 0.4300_JPRB, 0.4500_JPRB, 0.5000_JPRB, 0.5000_JPRB, 0.4600_JPRB, 0.4100_JPRB,&
+ &0.3300_JPRB, 0.2500_JPRB, 0.2500_JPRB /)
+ZOZCL(:, 4, 5) = (/&
+ &0.2600_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3700_JPRB,&
+ &0.4100_JPRB, 0.4200_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3500_JPRB, 0.3300_JPRB,&
+ &0.2800_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 5, 5) = (/&
+ &0.2300_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2400_JPRB,&
+ &0.2600_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB,&
+ &0.2100_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
+ZOZCL(:, 6, 5) = (/&
+ &0.2100_JPRB, 0.2100_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
+ &0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.1900_JPRB,&
+ &0.1900_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
+ZOZCL(:, 7, 5) = (/&
+ &0.2100_JPRB, 0.2100_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.1900_JPRB,&
+ &0.1900_JPRB, 0.2000_JPRB, 0.2000_JPRB /)
+ZOZCL(:, 8, 5) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2800_JPRB, 0.2700_JPRB,&
+ &0.2600_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2900_JPRB, 0.2800_JPRB,&
+ &0.2900_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
+ZOZCL(:, 9, 5) = (/&
+ &0.3900_JPRB, 0.3900_JPRB, 0.4400_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3900_JPRB,&
+ &0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.3900_JPRB,&
+ &0.4000_JPRB, 0.4300_JPRB, 0.4300_JPRB /)
+ZOZCL(:,10, 5) = (/&
+ &0.5600_JPRB, 0.5600_JPRB, 0.6300_JPRB, 0.5900_JPRB, 0.5800_JPRB, 0.5700_JPRB, 0.5600_JPRB, 0.5600_JPRB,&
+ &0.5500_JPRB, 0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.5100_JPRB, 0.5300_JPRB,&
+ &0.5400_JPRB, 0.5400_JPRB, 0.5400_JPRB /)
+ZOZCL(:,11, 5) = (/&
+ &0.8000_JPRB, 0.8000_JPRB, 0.9100_JPRB, 0.8500_JPRB, 0.8500_JPRB, 0.8100_JPRB, 0.8100_JPRB, 0.8300_JPRB,&
+ &0.8100_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.7800_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7600_JPRB,&
+ &0.7500_JPRB, 0.7300_JPRB, 0.7300_JPRB /)
+ZOZCL(:,12, 5) = (/&
+ &1.0600_JPRB, 1.0600_JPRB, 1.2000_JPRB, 1.1200_JPRB, 1.1200_JPRB, 1.0500_JPRB, 1.0300_JPRB, 1.0500_JPRB,&
+ &1.0300_JPRB, 1.0100_JPRB, 1.0200_JPRB, 1.0200_JPRB, 1.0000_JPRB, 0.9700_JPRB, 0.9500_JPRB, 0.9400_JPRB,&
+ &0.9100_JPRB, 0.8800_JPRB, 0.8800_JPRB /)
+ZOZCL(:,13, 5) = (/&
+ &1.5800_JPRB, 1.5800_JPRB, 1.7900_JPRB, 1.6800_JPRB, 1.6700_JPRB, 1.5200_JPRB, 1.4300_JPRB, 1.4200_JPRB,&
+ &1.4100_JPRB, 1.3900_JPRB, 1.4000_JPRB, 1.3900_JPRB, 1.3600_JPRB, 1.3300_JPRB, 1.2900_JPRB, 1.2500_JPRB,&
+ &1.2000_JPRB, 1.1600_JPRB, 1.1600_JPRB /)
+ZOZCL(:,14, 5) = (/&
+ &2.3200_JPRB, 2.3200_JPRB, 2.6400_JPRB, 2.4700_JPRB, 2.4600_JPRB, 2.2400_JPRB, 2.0200_JPRB, 1.9600_JPRB,&
+ &1.9700_JPRB, 1.9700_JPRB, 1.9700_JPRB, 1.9600_JPRB, 1.9500_JPRB, 1.8900_JPRB, 1.8200_JPRB, 1.7400_JPRB,&
+ &1.6500_JPRB, 1.5900_JPRB, 1.5900_JPRB /)
+ZOZCL(:,15, 5) = (/&
+ &3.0600_JPRB, 3.0600_JPRB, 3.6600_JPRB, 3.5000_JPRB, 3.3500_JPRB, 2.8900_JPRB, 2.5400_JPRB, 2.4300_JPRB,&
+ &2.4200_JPRB, 2.4200_JPRB, 2.4200_JPRB, 2.4200_JPRB, 2.4000_JPRB, 2.3300_JPRB, 2.2300_JPRB, 2.1200_JPRB,&
+ &2.0400_JPRB, 1.9700_JPRB, 1.9700_JPRB /)
+ZOZCL(:,16, 5) = (/&
+ &4.0500_JPRB, 4.0500_JPRB, 4.9700_JPRB, 4.9100_JPRB, 4.7900_JPRB, 4.0900_JPRB, 3.4900_JPRB, 3.1800_JPRB,&
+ &3.0900_JPRB, 3.0700_JPRB, 3.0600_JPRB, 3.0700_JPRB, 3.0300_JPRB, 2.9200_JPRB, 2.7900_JPRB, 2.6700_JPRB,&
+ &2.5900_JPRB, 2.5900_JPRB, 2.5900_JPRB /)
+ZOZCL(:,17, 5) = (/&
+ &4.9600_JPRB, 4.9600_JPRB, 6.3000_JPRB, 6.3900_JPRB, 6.6100_JPRB, 5.8500_JPRB, 4.9800_JPRB, 4.3300_JPRB,&
+ &4.1000_JPRB, 4.0500_JPRB, 4.0400_JPRB, 4.0600_JPRB, 4.0200_JPRB, 3.8800_JPRB, 3.7300_JPRB, 3.6200_JPRB,&
+ &3.5400_JPRB, 3.6400_JPRB, 3.6400_JPRB /)
+
+ZOZCL(:,18, 5) = (/&
+ &5.1300_JPRB, 5.1300_JPRB, 6.5200_JPRB, 6.7700_JPRB, 7.3800_JPRB, 6.9400_JPRB, 6.1500_JPRB, 5.4100_JPRB,&
+ &5.1000_JPRB, 5.0300_JPRB, 5.0500_JPRB, 5.1100_JPRB, 5.0700_JPRB, 4.9400_JPRB, 4.8100_JPRB, 4.7200_JPRB,&
+ &4.6200_JPRB, 4.7500_JPRB, 4.7500_JPRB /)
+ZOZCL(:,19, 5) = (/&
+ &4.8900_JPRB, 4.8900_JPRB, 6.0700_JPRB, 6.3900_JPRB, 7.4600_JPRB, 7.7600_JPRB, 7.5400_JPRB, 7.0600_JPRB,&
+ &6.7400_JPRB, 6.6800_JPRB, 6.7700_JPRB, 6.9300_JPRB, 6.9200_JPRB, 6.8200_JPRB, 6.7300_JPRB, 6.6000_JPRB,&
+ &6.3100_JPRB, 6.3000_JPRB, 6.3000_JPRB /)
+ZOZCL(:,20, 5) = (/&
+ &4.3800_JPRB, 4.3800_JPRB, 5.7900_JPRB, 5.7300_JPRB, 6.7400_JPRB, 7.6000_JPRB, 8.1900_JPRB, 8.4000_JPRB,&
+ &8.2700_JPRB, 8.2200_JPRB, 8.4500_JPRB, 8.5700_JPRB, 8.4800_JPRB, 8.3900_JPRB, 8.1700_JPRB, 7.5400_JPRB,&
+ &6.7500_JPRB, 6.1900_JPRB, 6.1900_JPRB /)
+ZOZCL(:,21, 5) = (/&
+ &3.8700_JPRB, 3.8700_JPRB, 5.4600_JPRB, 5.3100_JPRB, 6.1900_JPRB, 7.1700_JPRB, 8.0700_JPRB, 8.7900_JPRB,&
+ &9.1300_JPRB, 9.1000_JPRB, 9.2400_JPRB, 9.0900_JPRB, 8.8600_JPRB, 8.5900_JPRB, 8.1300_JPRB, 7.3100_JPRB,&
+ &6.2600_JPRB, 5.4700_JPRB, 5.4700_JPRB /)
+ZOZCL(:,22, 5) = (/&
+ &3.3700_JPRB, 3.3700_JPRB, 4.9300_JPRB, 4.9300_JPRB, 5.6200_JPRB, 6.5700_JPRB, 7.5700_JPRB, 8.6900_JPRB,&
+ &9.6300_JPRB, 9.7700_JPRB, 9.5700_JPRB, 8.9800_JPRB, 8.6100_JPRB, 8.1500_JPRB, 7.5200_JPRB, 6.6900_JPRB,&
+ &5.6300_JPRB, 4.8400_JPRB, 4.8400_JPRB /)
+ZOZCL(:,23, 5) = (/&
+ &3.1200_JPRB, 3.1200_JPRB, 4.4300_JPRB, 4.7400_JPRB, 5.3300_JPRB, 6.0400_JPRB, 6.8000_JPRB, 7.7200_JPRB,&
+ &8.4800_JPRB, 8.6400_JPRB, 8.4400_JPRB, 7.9500_JPRB, 7.6400_JPRB, 7.1700_JPRB, 6.5900_JPRB, 5.9200_JPRB,&
+ &5.0600_JPRB, 4.4300_JPRB, 4.4300_JPRB /)
+ZOZCL(:,24, 5) = (/&
+ &3.0200_JPRB, 3.0200_JPRB, 4.1300_JPRB, 4.6100_JPRB, 5.0700_JPRB, 5.5500_JPRB, 6.0100_JPRB, 6.5600_JPRB,&
+ &6.9800_JPRB, 7.0700_JPRB, 7.0400_JPRB, 6.8200_JPRB, 6.6900_JPRB, 6.3900_JPRB, 5.9200_JPRB, 5.4100_JPRB,&
+ &4.7600_JPRB, 4.3200_JPRB, 4.3200_JPRB /)
+ZOZCL(:,25, 5) = (/&
+ &2.9516_JPRB, 2.9516_JPRB, 3.4781_JPRB, 3.6833_JPRB, 4.4667_JPRB, 4.8018_JPRB, 4.7850_JPRB, 4.5500_JPRB,&
+ &4.2181_JPRB, 4.1108_JPRB, 4.5700_JPRB, 4.8100_JPRB, 5.0088_JPRB, 4.8876_JPRB, 4.7114_JPRB, 4.5625_JPRB,&
+ &4.0898_JPRB, 4.1086_JPRB, 4.1086_JPRB /)
+ZOZCL(:,26, 5) = (/&
+ &2.8832_JPRB, 2.8832_JPRB, 2.7087_JPRB, 2.6900_JPRB, 2.3040_JPRB, 2.5666_JPRB, 1.9860_JPRB, 1.8200_JPRB,&
+ &1.5096_JPRB, 1.4102_JPRB, 1.7700_JPRB, 2.1900_JPRB, 2.5664_JPRB, 2.8653_JPRB, 3.0488_JPRB, 3.2530_JPRB,&
+ &3.2127_JPRB, 3.2361_JPRB, 3.2361_JPRB /)
+ZOZCL(:,27, 5) = (/&
+ &2.0883_JPRB, 2.0883_JPRB, 1.8960_JPRB, 1.9786_JPRB, 1.3543_JPRB, 1.4206_JPRB, 0.7654_JPRB, 0.7400_JPRB,&
+ &0.4328_JPRB, 0.4241_JPRB, 0.6800_JPRB, 1.0200_JPRB, 1.0424_JPRB, 1.5531_JPRB, 1.8924_JPRB, 2.2554_JPRB,&
+ &2.3132_JPRB, 2.4103_JPRB, 2.4103_JPRB /)
+ZOZCL(:,28, 5) = (/&
+ &1.1625_JPRB, 1.1625_JPRB, 1.0276_JPRB, 0.9200_JPRB, 0.5320_JPRB, 0.5041_JPRB, 0.1900_JPRB, 0.1769_JPRB,&
+ &0.1036_JPRB, 0.1433_JPRB, 0.1935_JPRB, 0.2574_JPRB, 0.3144_JPRB, 0.7746_JPRB, 0.9693_JPRB, 1.1890_JPRB,&
+ &1.3057_JPRB, 1.4491_JPRB, 1.4491_JPRB /)
+ZOZCL(:,29, 5) = (/&
+ &0.4193_JPRB, 0.4193_JPRB, 0.3927_JPRB, 0.4000_JPRB, 0.3267_JPRB, 0.2070_JPRB, 0.1120_JPRB, 0.1028_JPRB,&
+ &0.0514_JPRB, 0.0754_JPRB, 0.0987_JPRB, 0.1170_JPRB, 0.1789_JPRB, 0.4257_JPRB, 0.5698_JPRB, 0.7120_JPRB,&
+ &0.7996_JPRB, 0.8829_JPRB, 0.8829_JPRB /)
+ZOZCL(:,30, 5) = (/&
+ &0.2230_JPRB, 0.2230_JPRB, 0.2099_JPRB, 0.2939_JPRB, 0.1485_JPRB, 0.1130_JPRB, 0.0840_JPRB, 0.0767_JPRB,&
+ &0.0367_JPRB, 0.0658_JPRB, 0.0820_JPRB, 0.0748_JPRB, 0.1186_JPRB, 0.2669_JPRB, 0.3765_JPRB, 0.5405_JPRB,&
+ &0.6006_JPRB, 0.6398_JPRB, 0.6398_JPRB /)
+ZOZCL(:,31, 5) = (/&
+ &0.0655_JPRB, 0.0655_JPRB, 0.0684_JPRB, 0.0817_JPRB, 0.0553_JPRB, 0.0403_JPRB, 0.0480_JPRB, 0.0450_JPRB,&
+ &0.0287_JPRB, 0.0469_JPRB, 0.0673_JPRB, 0.0601_JPRB, 0.0723_JPRB, 0.0953_JPRB, 0.1043_JPRB, 0.1463_JPRB,&
+ &0.2142_JPRB, 0.2053_JPRB, 0.2053_JPRB /)
+ZOZCL(:,32, 5) = (/&
+ &0.0340_JPRB, 0.0340_JPRB, 0.0374_JPRB, 0.0290_JPRB, 0.0324_JPRB, 0.0353_JPRB, 0.0408_JPRB, 0.0392_JPRB,&
+ &0.0312_JPRB, 0.0474_JPRB, 0.0555_JPRB, 0.0564_JPRB, 0.0634_JPRB, 0.0663_JPRB, 0.0679_JPRB, 0.0658_JPRB,&
+ &0.0669_JPRB, 0.0658_JPRB, 0.0658_JPRB /)
+ZOZCL(:,33, 5) = (/&
+ &0.0291_JPRB, 0.0291_JPRB, 0.0310_JPRB, 0.0279_JPRB, 0.0276_JPRB, 0.0307_JPRB, 0.0397_JPRB, 0.0378_JPRB,&
+ &0.0271_JPRB, 0.0307_JPRB, 0.0318_JPRB, 0.0465_JPRB, 0.0547_JPRB, 0.0581_JPRB, 0.0590_JPRB, 0.0570_JPRB,&
+ &0.0535_JPRB, 0.0531_JPRB, 0.0531_JPRB /)
+ZOZCL(:,34, 5) = (/&
+ &0.0291_JPRB, 0.0291_JPRB, 0.0310_JPRB, 0.0279_JPRB, 0.0276_JPRB, 0.0307_JPRB, 0.0397_JPRB, 0.0378_JPRB,&
+ &0.0271_JPRB, 0.0307_JPRB, 0.0318_JPRB, 0.0465_JPRB, 0.0547_JPRB, 0.0581_JPRB, 0.0590_JPRB, 0.0570_JPRB,&
+ &0.0535_JPRB, 0.0531_JPRB, 0.0531_JPRB /)
+
+! Month:  6
+ZOZCL(:, 1, 6) = (/&
+ &0.7500_JPRB, 0.7500_JPRB, 0.7700_JPRB, 0.8700_JPRB, 0.8600_JPRB, 0.8000_JPRB, 0.7800_JPRB, 0.5900_JPRB,&
+ &0.4700_JPRB, 0.4700_JPRB, 0.5400_JPRB, 0.6200_JPRB, 0.7300_JPRB, 0.8700_JPRB, 0.9400_JPRB, 0.8800_JPRB,&
+ &0.7200_JPRB, 0.5700_JPRB, 0.5700_JPRB /)
+ZOZCL(:, 2, 6) = (/&
+ &0.4700_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.5400_JPRB, 0.5400_JPRB, 0.5000_JPRB, 0.5000_JPRB, 0.3800_JPRB,&
+ &0.3400_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.5100_JPRB, 0.6300_JPRB, 0.6300_JPRB, 0.5000_JPRB,&
+ &0.3900_JPRB, 0.3200_JPRB, 0.3200_JPRB /)
+ZOZCL(:, 3, 6) = (/&
+ &0.3300_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.3800_JPRB, 0.3700_JPRB, 0.3500_JPRB, 0.3700_JPRB, 0.3400_JPRB,&
+ &0.3500_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.4600_JPRB, 0.4200_JPRB, 0.3000_JPRB,&
+ &0.2500_JPRB, 0.2200_JPRB, 0.2200_JPRB /)
+ZOZCL(:, 4, 6) = (/&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.2900_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3000_JPRB,&
+ &0.3100_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2500_JPRB, 0.1900_JPRB,&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
+ZOZCL(:, 5, 6) = (/&
+ &0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2300_JPRB, 0.2200_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.2100_JPRB,&
+ &0.2000_JPRB, 0.1900_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
+ZOZCL(:, 6, 6) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1600_JPRB,&
+ &0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
+ZOZCL(:, 7, 6) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2000_JPRB,&
+ &0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB /)
+ZOZCL(:, 8, 6) = (/&
+ &0.2900_JPRB, 0.2900_JPRB, 0.3000_JPRB, 0.3400_JPRB, 0.3300_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2800_JPRB,&
+ &0.2600_JPRB, 0.2600_JPRB, 0.2600_JPRB, 0.2600_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2700_JPRB,&
+ &0.2800_JPRB, 0.3000_JPRB, 0.3000_JPRB /)
+ZOZCL(:, 9, 6) = (/&
+ &0.4200_JPRB, 0.4200_JPRB, 0.4300_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4500_JPRB, 0.4500_JPRB, 0.4100_JPRB,&
+ &0.3800_JPRB, 0.3700_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB,&
+ &0.3900_JPRB, 0.4000_JPRB, 0.4000_JPRB /)
+ZOZCL(:,10, 6) = (/&
+ &0.5400_JPRB, 0.5400_JPRB, 0.5600_JPRB, 0.6300_JPRB, 0.6200_JPRB, 0.5700_JPRB, 0.5600_JPRB, 0.5600_JPRB,&
+ &0.5600_JPRB, 0.5700_JPRB, 0.5800_JPRB, 0.5800_JPRB, 0.5500_JPRB, 0.5200_JPRB, 0.5300_JPRB, 0.5600_JPRB,&
+ &0.5500_JPRB, 0.5600_JPRB, 0.5600_JPRB /)
+ZOZCL(:,11, 6) = (/&
+ &0.7600_JPRB, 0.7600_JPRB, 0.7900_JPRB, 0.8900_JPRB, 0.8800_JPRB, 0.8200_JPRB, 0.8200_JPRB, 0.8300_JPRB,&
+ &0.8300_JPRB, 0.8300_JPRB, 0.8500_JPRB, 0.8800_JPRB, 0.8400_JPRB, 0.8000_JPRB, 0.8000_JPRB, 0.8000_JPRB,&
+ &0.8000_JPRB, 0.7800_JPRB, 0.7800_JPRB /)
+ZOZCL(:,12, 6) = (/&
+ &0.9900_JPRB, 0.9900_JPRB, 1.0200_JPRB, 1.1500_JPRB, 1.1400_JPRB, 1.0600_JPRB, 1.0400_JPRB, 1.0500_JPRB,&
+ &1.0600_JPRB, 1.0600_JPRB, 1.0800_JPRB, 1.1100_JPRB, 1.0800_JPRB, 1.0300_JPRB, 1.0100_JPRB, 0.9900_JPRB,&
+ &0.9600_JPRB, 0.9300_JPRB, 0.9300_JPRB /)
+ZOZCL(:,13, 6) = (/&
+ &1.4300_JPRB, 1.4300_JPRB, 1.4700_JPRB, 1.6700_JPRB, 1.6400_JPRB, 1.5300_JPRB, 1.4400_JPRB, 1.4400_JPRB,&
+ &1.4700_JPRB, 1.4700_JPRB, 1.4800_JPRB, 1.4900_JPRB, 1.4400_JPRB, 1.3900_JPRB, 1.3500_JPRB, 1.3000_JPRB,&
+ &1.2400_JPRB, 1.1800_JPRB, 1.1800_JPRB /)
+ZOZCL(:,14, 6) = (/&
+ &2.1000_JPRB, 2.1000_JPRB, 2.1700_JPRB, 2.4600_JPRB, 2.4200_JPRB, 2.2600_JPRB, 2.0200_JPRB, 1.9800_JPRB,&
+ &2.0000_JPRB, 2.0000_JPRB, 1.9900_JPRB, 1.9800_JPRB, 1.9500_JPRB, 1.8700_JPRB, 1.7800_JPRB, 1.6700_JPRB,&
+ &1.5500_JPRB, 1.4600_JPRB, 1.4600_JPRB /)
+ZOZCL(:,15, 6) = (/&
+ &2.8600_JPRB, 2.8600_JPRB, 2.9400_JPRB, 3.5600_JPRB, 3.5400_JPRB, 2.9600_JPRB, 2.5600_JPRB, 2.4600_JPRB,&
+ &2.4600_JPRB, 2.4600_JPRB, 2.4500_JPRB, 2.4400_JPRB, 2.4100_JPRB, 2.3000_JPRB, 2.1600_JPRB, 1.9900_JPRB,&
+ &1.8300_JPRB, 1.7100_JPRB, 1.7100_JPRB /)
+ZOZCL(:,16, 6) = (/&
+ &3.9200_JPRB, 3.9200_JPRB, 4.0200_JPRB, 5.0100_JPRB, 5.1600_JPRB, 4.2900_JPRB, 3.5600_JPRB, 3.3000_JPRB,&
+ &3.2200_JPRB, 3.1900_JPRB, 3.1600_JPRB, 3.1300_JPRB, 3.0500_JPRB, 2.8800_JPRB, 2.6800_JPRB, 2.4700_JPRB,&
+ &2.2800_JPRB, 2.1600_JPRB, 2.1600_JPRB /)
+ZOZCL(:,17, 6) = (/&
+ &5.1400_JPRB, 5.1400_JPRB, 5.2800_JPRB, 6.5000_JPRB, 7.1100_JPRB, 6.1800_JPRB, 5.0600_JPRB, 4.5100_JPRB,&
+ &4.3000_JPRB, 4.2400_JPRB, 4.1900_JPRB, 4.1500_JPRB, 3.9800_JPRB, 3.7300_JPRB, 3.4900_JPRB, 3.2400_JPRB,&
+ &3.0500_JPRB, 2.9700_JPRB, 2.9700_JPRB /) 
+
+ZOZCL(:,18, 6) = (/&
+ &5.5200_JPRB, 5.5200_JPRB, 5.6800_JPRB, 6.7700_JPRB, 7.7400_JPRB, 7.2700_JPRB, 6.1600_JPRB, 5.5500_JPRB,&
+ &5.3000_JPRB, 5.2300_JPRB, 5.2100_JPRB, 5.2000_JPRB, 5.0100_JPRB, 4.7300_JPRB, 4.4900_JPRB, 4.2400_JPRB,&
+ &4.0500_JPRB, 4.0300_JPRB, 4.0300_JPRB /)
+ZOZCL(:,19, 6) = (/&
+ &5.3000_JPRB, 5.3000_JPRB, 5.4800_JPRB, 6.2000_JPRB, 7.3600_JPRB, 7.9600_JPRB, 7.4300_JPRB, 7.0500_JPRB,&
+ &6.9100_JPRB, 6.8800_JPRB, 6.9400_JPRB, 7.0200_JPRB, 6.8400_JPRB, 6.5900_JPRB, 6.3800_JPRB, 6.0700_JPRB,&
+ &5.8300_JPRB, 5.8700_JPRB, 5.8700_JPRB /)
+ZOZCL(:,20, 6) = (/&
+ &4.7300_JPRB, 4.7300_JPRB, 4.9300_JPRB, 5.6400_JPRB, 6.3100_JPRB, 7.4700_JPRB, 7.8600_JPRB, 8.1400_JPRB,&
+ &8.4500_JPRB, 8.4900_JPRB, 8.5700_JPRB, 8.5600_JPRB, 8.3800_JPRB, 8.1600_JPRB, 7.8800_JPRB, 7.1400_JPRB,&
+ &6.3500_JPRB, 6.0800_JPRB, 6.0800_JPRB /)
+ZOZCL(:,21, 6) = (/&
+ &4.3200_JPRB, 4.3200_JPRB, 4.5000_JPRB, 5.3200_JPRB, 5.7000_JPRB, 6.9600_JPRB, 7.7100_JPRB, 8.4200_JPRB,&
+ &8.9600_JPRB, 9.1200_JPRB, 9.1600_JPRB, 8.9800_JPRB, 8.8100_JPRB, 8.4600_JPRB, 7.9800_JPRB, 7.0100_JPRB,&
+ &5.9300_JPRB, 5.3700_JPRB, 5.3700_JPRB /)
+ZOZCL(:,22, 6) = (/&
+ &3.9400_JPRB, 3.9400_JPRB, 4.0500_JPRB, 5.0200_JPRB, 5.1000_JPRB, 6.3100_JPRB, 7.1900_JPRB, 8.2200_JPRB,&
+ &9.0000_JPRB, 9.2500_JPRB, 9.1600_JPRB, 8.6800_JPRB, 8.5500_JPRB, 8.0800_JPRB, 7.4800_JPRB, 6.5100_JPRB,&
+ &5.4300_JPRB, 4.7100_JPRB, 4.7100_JPRB /)
+ZOZCL(:,23, 6) = (/&
+ &3.7800_JPRB, 3.7800_JPRB, 3.8600_JPRB, 4.8200_JPRB, 5.0700_JPRB, 5.8700_JPRB, 6.4500_JPRB, 7.2000_JPRB,&
+ &7.7800_JPRB, 8.0500_JPRB, 7.9600_JPRB, 7.5000_JPRB, 7.4100_JPRB, 7.0200_JPRB, 6.4900_JPRB, 5.6900_JPRB,&
+ &4.7500_JPRB, 4.1800_JPRB, 4.1800_JPRB /)
+ZOZCL(:,24, 6) = (/&
+ &3.7000_JPRB, 3.7000_JPRB, 3.7900_JPRB, 4.6800_JPRB, 5.0000_JPRB, 5.5100_JPRB, 5.7800_JPRB, 6.1900_JPRB,&
+ &6.4500_JPRB, 6.6400_JPRB, 6.6800_JPRB, 6.4200_JPRB, 6.4300_JPRB, 6.2200_JPRB, 5.8200_JPRB, 5.1700_JPRB,&
+ &4.3800_JPRB, 3.9400_JPRB, 3.9400_JPRB /)
+ZOZCL(:,25, 6) = (/&
+ &3.2554_JPRB, 3.2554_JPRB, 3.5115_JPRB, 3.8000_JPRB, 4.5633_JPRB, 4.9030_JPRB, 4.8933_JPRB, 4.6000_JPRB,&
+ &4.3704_JPRB, 4.5273_JPRB, 4.8100_JPRB, 4.8000_JPRB, 4.8910_JPRB, 4.8032_JPRB, 4.4982_JPRB, 4.1575_JPRB,&
+ &3.6667_JPRB, 3.5714_JPRB, 3.5714_JPRB /)
+ZOZCL(:,26, 6) = (/&
+ &2.8571_JPRB, 2.8571_JPRB, 2.7376_JPRB, 2.9200_JPRB, 2.5300_JPRB, 2.6316_JPRB, 2.1180_JPRB, 1.9200_JPRB,&
+ &1.5042_JPRB, 1.5932_JPRB, 1.8100_JPRB, 2.1200_JPRB, 2.3813_JPRB, 2.7239_JPRB, 2.8073_JPRB, 2.9790_JPRB,&
+ &2.8574_JPRB, 2.9008_JPRB, 2.9008_JPRB /)
+ZOZCL(:,27, 6) = (/&
+ &2.1443_JPRB, 2.1443_JPRB, 2.0070_JPRB, 2.0500_JPRB, 1.5029_JPRB, 1.5219_JPRB, 0.7621_JPRB, 0.7800_JPRB,&
+ &0.4756_JPRB, 0.5596_JPRB, 0.6700_JPRB, 0.9900_JPRB, 1.0350_JPRB, 1.4139_JPRB, 1.6538_JPRB, 1.9796_JPRB,&
+ &2.0081_JPRB, 2.1384_JPRB, 2.1384_JPRB /)
+ZOZCL(:,28, 6) = (/&
+ &1.1405_JPRB, 1.1405_JPRB, 1.0828_JPRB, 0.9800_JPRB, 0.7300_JPRB, 0.6089_JPRB, 0.2110_JPRB, 0.1911_JPRB,&
+ &0.1132_JPRB, 0.1752_JPRB, 0.1830_JPRB, 0.2386_JPRB, 0.2869_JPRB, 0.5876_JPRB, 0.8400_JPRB, 1.0000_JPRB,&
+ &1.1505_JPRB, 1.1950_JPRB, 1.1950_JPRB /)
+ZOZCL(:,29, 6) = (/&
+ &0.4485_JPRB, 0.4485_JPRB, 0.3870_JPRB, 0.4187_JPRB, 0.3760_JPRB, 0.3635_JPRB, 0.1067_JPRB, 0.0965_JPRB,&
+ &0.0605_JPRB, 0.1267_JPRB, 0.1067_JPRB, 0.1310_JPRB, 0.1509_JPRB, 0.3484_JPRB, 0.4746_JPRB, 0.5433_JPRB,&
+ &0.6391_JPRB, 0.6481_JPRB, 0.6481_JPRB /)
+ZOZCL(:,30, 6) = (/&
+ &0.2079_JPRB, 0.2079_JPRB, 0.1828_JPRB, 0.2929_JPRB, 0.2540_JPRB, 0.2042_JPRB, 0.0855_JPRB, 0.0775_JPRB,&
+ &0.0487_JPRB, 0.0990_JPRB, 0.0900_JPRB, 0.0729_JPRB, 0.1079_JPRB, 0.1876_JPRB, 0.3129_JPRB, 0.4250_JPRB,&
+ &0.5245_JPRB, 0.5229_JPRB, 0.5229_JPRB /)
+ZOZCL(:,31, 6) = (/&
+ &0.0536_JPRB, 0.0536_JPRB, 0.0557_JPRB, 0.0413_JPRB, 0.0500_JPRB, 0.0645_JPRB, 0.0503_JPRB, 0.0490_JPRB,&
+ &0.0452_JPRB, 0.0680_JPRB, 0.0700_JPRB, 0.0552_JPRB, 0.0754_JPRB, 0.0816_JPRB, 0.1056_JPRB, 0.1360_JPRB,&
+ &0.1443_JPRB, 0.1905_JPRB, 0.1905_JPRB /)
+ZOZCL(:,32, 6) = (/&
+ &0.0372_JPRB, 0.0372_JPRB, 0.0384_JPRB, 0.0340_JPRB, 0.0340_JPRB, 0.0406_JPRB, 0.0426_JPRB, 0.0422_JPRB,&
+ &0.0413_JPRB, 0.0520_JPRB, 0.0490_JPRB, 0.0509_JPRB, 0.0590_JPRB, 0.0627_JPRB, 0.0704_JPRB, 0.0678_JPRB,&
+ &0.0703_JPRB, 0.0628_JPRB, 0.0628_JPRB /)
+ZOZCL(:,33, 6) = (/&
+ &0.0315_JPRB, 0.0315_JPRB, 0.0332_JPRB, 0.0326_JPRB, 0.0304_JPRB, 0.0351_JPRB, 0.0373_JPRB, 0.0363_JPRB,&
+ &0.0331_JPRB, 0.0377_JPRB, 0.0279_JPRB, 0.0438_JPRB, 0.0537_JPRB, 0.0538_JPRB, 0.0587_JPRB, 0.0533_JPRB,&
+ &0.0534_JPRB, 0.0438_JPRB, 0.0438_JPRB /)
+ZOZCL(:,34, 6) = (/&
+ &0.0315_JPRB, 0.0315_JPRB, 0.0332_JPRB, 0.0326_JPRB, 0.0304_JPRB, 0.0351_JPRB, 0.0373_JPRB, 0.0363_JPRB,&
+ &0.0331_JPRB, 0.0377_JPRB, 0.0279_JPRB, 0.0438_JPRB, 0.0537_JPRB, 0.0538_JPRB, 0.0587_JPRB, 0.0533_JPRB,&
+ &0.0534_JPRB, 0.0438_JPRB, 0.0438_JPRB /) 
+
+! Month:  7
+ZOZCL(:, 1, 7) = (/&
+ &0.4800_JPRB, 0.4800_JPRB, 0.5100_JPRB, 0.5600_JPRB, 0.5800_JPRB, 0.6600_JPRB, 0.6300_JPRB, 0.5300_JPRB,&
+ &0.4800_JPRB, 0.4700_JPRB, 0.5100_JPRB, 0.6000_JPRB, 0.6600_JPRB, 0.7100_JPRB, 0.8500_JPRB, 0.9300_JPRB,&
+ &0.8000_JPRB, 0.5800_JPRB, 0.5800_JPRB /)
+ZOZCL(:, 2, 7) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.3700_JPRB,&
+ &0.3400_JPRB, 0.3700_JPRB, 0.4000_JPRB, 0.4200_JPRB, 0.4400_JPRB, 0.4900_JPRB, 0.5500_JPRB, 0.5200_JPRB,&
+ &0.4000_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
+ZOZCL(:, 3, 7) = (/&
+ &0.2000_JPRB, 0.2000_JPRB, 0.2100_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2800_JPRB, 0.3200_JPRB, 0.3200_JPRB,&
+ &0.3300_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3400_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3000_JPRB,&
+ &0.2300_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 4, 7) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2300_JPRB, 0.2700_JPRB, 0.2800_JPRB,&
+ &0.2800_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.1900_JPRB,&
+ &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
+ZOZCL(:, 5, 7) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2100_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB,&
+ &0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
+ZOZCL(:, 6, 7) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2100_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB,&
+ &0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1700_JPRB,&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
+ZOZCL(:, 7, 7) = (/&
+ &0.1800_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
+ &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2000_JPRB,&
+ &0.2000_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 8, 7) = (/&
+ &0.2600_JPRB, 0.2600_JPRB, 0.2700_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2600_JPRB,&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2800_JPRB,&
+ &0.2800_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
+ZOZCL(:, 9, 7) = (/&
+ &0.3600_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4600_JPRB, 0.4400_JPRB, 0.3900_JPRB,&
+ &0.3600_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3900_JPRB, 0.3900_JPRB, 0.3800_JPRB,&
+ &0.3800_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
+ZOZCL(:,10, 7) = (/&
+ &0.5100_JPRB, 0.5100_JPRB, 0.5400_JPRB, 0.5800_JPRB, 0.6100_JPRB, 0.6000_JPRB, 0.6000_JPRB, 0.5600_JPRB,&
+ &0.5500_JPRB, 0.5500_JPRB, 0.5600_JPRB, 0.5700_JPRB, 0.5700_JPRB, 0.5500_JPRB, 0.5500_JPRB, 0.5700_JPRB,&
+ &0.5500_JPRB, 0.5600_JPRB, 0.5600_JPRB /)
+ZOZCL(:,11, 7) = (/&
+ &0.7400_JPRB, 0.7400_JPRB, 0.7900_JPRB, 0.8500_JPRB, 0.8900_JPRB, 0.8500_JPRB, 0.8600_JPRB, 0.8300_JPRB,&
+ &0.8100_JPRB, 0.8100_JPRB, 0.8300_JPRB, 0.8700_JPRB, 0.8800_JPRB, 0.8500_JPRB, 0.8200_JPRB, 0.8100_JPRB,&
+ &0.8100_JPRB, 0.7900_JPRB, 0.7900_JPRB /)
+ZOZCL(:,12, 7) = (/&
+ &0.9400_JPRB, 0.9400_JPRB, 1.0100_JPRB, 1.0900_JPRB, 1.1400_JPRB, 1.0900_JPRB, 1.0800_JPRB, 1.0500_JPRB,&
+ &1.0400_JPRB, 1.0400_JPRB, 1.0600_JPRB, 1.1100_JPRB, 1.1200_JPRB, 1.0900_JPRB, 1.0400_JPRB, 1.0000_JPRB,&
+ &0.9800_JPRB, 0.9500_JPRB, 0.9500_JPRB /)
+ZOZCL(:,13, 7) = (/&
+ &1.2200_JPRB, 1.2200_JPRB, 1.3000_JPRB, 1.4100_JPRB, 1.4700_JPRB, 1.5300_JPRB, 1.4900_JPRB, 1.4500_JPRB,&
+ &1.4400_JPRB, 1.4400_JPRB, 1.4600_JPRB, 1.5000_JPRB, 1.5100_JPRB, 1.4600_JPRB, 1.3900_JPRB, 1.3200_JPRB,&
+ &1.2600_JPRB, 1.1900_JPRB, 1.1900_JPRB /)
+ZOZCL(:,14, 7) = (/&
+ &1.7700_JPRB, 1.7700_JPRB, 1.8900_JPRB, 2.0500_JPRB, 2.1400_JPRB, 2.2200_JPRB, 2.0700_JPRB, 2.0000_JPRB,&
+ &1.9900_JPRB, 1.9900_JPRB, 1.9900_JPRB, 2.0000_JPRB, 2.0000_JPRB, 1.9300_JPRB, 1.8100_JPRB, 1.6800_JPRB,&
+ &1.5500_JPRB, 1.4400_JPRB, 1.4400_JPRB /)
+ZOZCL(:,15, 7) = (/&
+ &2.3400_JPRB, 2.3400_JPRB, 2.4900_JPRB, 2.8500_JPRB, 3.0300_JPRB, 2.8600_JPRB, 2.6000_JPRB, 2.4800_JPRB,&
+ &2.4400_JPRB, 2.4400_JPRB, 2.4400_JPRB, 2.4800_JPRB, 2.4900_JPRB, 2.3900_JPRB, 2.2000_JPRB, 2.0000_JPRB,&
+ &1.8200_JPRB, 1.6600_JPRB, 1.6600_JPRB /)
+ZOZCL(:,16, 7) = (/&
+ &3.3100_JPRB, 3.3100_JPRB, 3.4800_JPRB, 4.0600_JPRB, 4.4000_JPRB, 4.0500_JPRB, 3.5800_JPRB, 3.3400_JPRB,&
+ &3.2300_JPRB, 3.1900_JPRB, 3.1800_JPRB, 3.2200_JPRB, 3.1900_JPRB, 3.0100_JPRB, 2.7600_JPRB, 2.5200_JPRB,&
+ &2.3000_JPRB, 2.1400_JPRB, 2.1400_JPRB /)
+ZOZCL(:,17, 7) = (/&
+ &4.5300_JPRB, 4.5300_JPRB, 4.8100_JPRB, 5.6200_JPRB, 6.2800_JPRB, 5.7600_JPRB, 5.0400_JPRB, 4.6100_JPRB,&
+ &4.3900_JPRB, 4.3100_JPRB, 4.2900_JPRB, 4.3100_JPRB, 4.1800_JPRB, 3.9100_JPRB, 3.6100_JPRB, 3.3200_JPRB,&
+ &3.0800_JPRB, 2.9700_JPRB, 2.9700_JPRB /) 
+
+ZOZCL(:,18, 7) = (/&
+ &5.0800_JPRB, 5.0800_JPRB, 5.4400_JPRB, 6.2400_JPRB, 7.1700_JPRB, 6.8600_JPRB, 6.1300_JPRB, 5.6900_JPRB,&
+ &5.4700_JPRB, 5.3800_JPRB, 5.3700_JPRB, 5.3800_JPRB, 5.2000_JPRB, 4.9000_JPRB, 4.5900_JPRB, 4.2800_JPRB,&
+ &4.0300_JPRB, 3.9700_JPRB, 3.9700_JPRB /)
+ZOZCL(:,19, 7) = (/&
+ &5.2800_JPRB, 5.2800_JPRB, 5.5700_JPRB, 6.2200_JPRB, 7.3900_JPRB, 7.7900_JPRB, 7.4300_JPRB, 7.2300_JPRB,&
+ &7.1600_JPRB, 7.1200_JPRB, 7.1500_JPRB, 7.1800_JPRB, 6.9800_JPRB, 6.6800_JPRB, 6.3700_JPRB, 6.0000_JPRB,&
+ &5.6600_JPRB, 5.6400_JPRB, 5.6400_JPRB /)
+ZOZCL(:,20, 7) = (/&
+ &5.0800_JPRB, 5.0800_JPRB, 5.2300_JPRB, 5.7900_JPRB, 6.6700_JPRB, 7.5300_JPRB, 7.9200_JPRB, 8.2000_JPRB,&
+ &8.6400_JPRB, 8.6300_JPRB, 8.6100_JPRB, 8.6300_JPRB, 8.3900_JPRB, 8.0600_JPRB, 7.7000_JPRB, 6.9900_JPRB,&
+ &6.1400_JPRB, 5.8400_JPRB, 5.8400_JPRB /)
+ZOZCL(:,21, 7) = (/&
+ &4.7200_JPRB, 4.7200_JPRB, 4.8100_JPRB, 5.3900_JPRB, 6.0700_JPRB, 7.0900_JPRB, 7.8200_JPRB, 8.3200_JPRB,&
+ &8.9500_JPRB, 9.0900_JPRB, 9.1600_JPRB, 9.0100_JPRB, 8.8100_JPRB, 8.3800_JPRB, 7.7900_JPRB, 6.8600_JPRB,&
+ &5.7500_JPRB, 5.1800_JPRB, 5.1800_JPRB /)
+ZOZCL(:,22, 7) = (/&
+ &4.1900_JPRB, 4.1900_JPRB, 4.2800_JPRB, 4.9800_JPRB, 5.4600_JPRB, 6.4700_JPRB, 7.3400_JPRB, 7.9800_JPRB,&
+ &8.8100_JPRB, 9.0200_JPRB, 9.1000_JPRB, 8.7200_JPRB, 8.5500_JPRB, 8.0400_JPRB, 7.2800_JPRB, 6.3300_JPRB,&
+ &5.2300_JPRB, 4.5000_JPRB, 4.5000_JPRB /)
+ZOZCL(:,23, 7) = (/&
+ &3.8200_JPRB, 3.8200_JPRB, 3.9700_JPRB, 4.7400_JPRB, 5.2600_JPRB, 5.9600_JPRB, 6.5700_JPRB, 6.9900_JPRB,&
+ &7.5400_JPRB, 7.7800_JPRB, 7.9000_JPRB, 7.5300_JPRB, 7.4000_JPRB, 6.9700_JPRB, 6.3300_JPRB, 5.5000_JPRB,&
+ &4.5300_JPRB, 3.9400_JPRB, 3.9400_JPRB /)
+ZOZCL(:,24, 7) = (/&
+ &3.7100_JPRB, 3.7100_JPRB, 3.8900_JPRB, 4.6500_JPRB, 5.1700_JPRB, 5.6000_JPRB, 5.9100_JPRB, 6.0600_JPRB,&
+ &6.2700_JPRB, 6.4500_JPRB, 6.6600_JPRB, 6.4300_JPRB, 6.3800_JPRB, 6.1300_JPRB, 5.6600_JPRB, 4.9800_JPRB,&
+ &4.1400_JPRB, 3.6800_JPRB, 3.6800_JPRB /)
+ZOZCL(:,25, 7) = (/&
+ &3.4701_JPRB, 3.4701_JPRB, 3.5162_JPRB, 3.9933_JPRB, 4.6133_JPRB, 5.0536_JPRB, 4.9825_JPRB, 4.5500_JPRB,&
+ &4.1718_JPRB, 4.4264_JPRB, 4.7800_JPRB, 4.8400_JPRB, 4.8924_JPRB, 4.7025_JPRB, 4.4212_JPRB, 3.9383_JPRB,&
+ &3.5126_JPRB, 3.1965_JPRB, 3.1965_JPRB /)
+ZOZCL(:,26, 7) = (/&
+ &2.9388_JPRB, 2.9388_JPRB, 2.7899_JPRB, 2.9840_JPRB, 2.7140_JPRB, 2.9684_JPRB, 2.3390_JPRB, 2.0700_JPRB,&
+ &1.6414_JPRB, 1.6086_JPRB, 1.9200_JPRB, 2.1400_JPRB, 2.2499_JPRB, 2.5745_JPRB, 2.6698_JPRB, 2.7470_JPRB,&
+ &2.6827_JPRB, 2.6723_JPRB, 2.6723_JPRB /)
+ZOZCL(:,27, 7) = (/&
+ &1.9786_JPRB, 1.9786_JPRB, 2.0127_JPRB, 2.0657_JPRB, 1.6057_JPRB, 1.6493_JPRB, 0.8961_JPRB, 0.8600_JPRB,&
+ &0.5157_JPRB, 0.5622_JPRB, 0.8200_JPRB, 1.0500_JPRB, 0.9857_JPRB, 1.2802_JPRB, 1.5339_JPRB, 1.8314_JPRB,&
+ &1.8882_JPRB, 2.0093_JPRB, 2.0093_JPRB /)
+ZOZCL(:,28, 7) = (/&
+ &1.2198_JPRB, 1.2198_JPRB, 1.1289_JPRB, 0.8280_JPRB, 0.7900_JPRB, 0.6996_JPRB, 0.2260_JPRB, 0.2119_JPRB,&
+ &0.1338_JPRB, 0.1909_JPRB, 0.2510_JPRB, 0.2425_JPRB, 0.2364_JPRB, 0.4753_JPRB, 0.7528_JPRB, 0.9720_JPRB,&
+ &1.0715_JPRB, 1.1551_JPRB, 1.1551_JPRB /)
+ZOZCL(:,29, 7) = (/&
+ &0.4683_JPRB, 0.4683_JPRB, 0.4347_JPRB, 0.5000_JPRB, 0.3573_JPRB, 0.3828_JPRB, 0.1227_JPRB, 0.1129_JPRB,&
+ &0.0627_JPRB, 0.0932_JPRB, 0.1120_JPRB, 0.0643_JPRB, 0.0984_JPRB, 0.2115_JPRB, 0.3913_JPRB, 0.4927_JPRB,&
+ &0.5340_JPRB, 0.5590_JPRB, 0.5590_JPRB /)
+ZOZCL(:,30, 7) = (/&
+ &0.2218_JPRB, 0.2218_JPRB, 0.1946_JPRB, 0.3528_JPRB, 0.2505_JPRB, 0.2352_JPRB, 0.0930_JPRB, 0.0859_JPRB,&
+ &0.0536_JPRB, 0.0781_JPRB, 0.0850_JPRB, 0.0484_JPRB, 0.0767_JPRB, 0.1375_JPRB, 0.2833_JPRB, 0.3725_JPRB,&
+ &0.4364_JPRB, 0.4529_JPRB, 0.4529_JPRB /)
+ZOZCL(:,31, 7) = (/&
+ &0.0448_JPRB, 0.0448_JPRB, 0.0520_JPRB, 0.0583_JPRB, 0.0640_JPRB, 0.0620_JPRB, 0.0693_JPRB, 0.0642_JPRB,&
+ &0.0442_JPRB, 0.0606_JPRB, 0.0560_JPRB, 0.0391_JPRB, 0.0618_JPRB, 0.0840_JPRB, 0.1020_JPRB, 0.1090_JPRB,&
+ &0.1481_JPRB, 0.1344_JPRB, 0.1344_JPRB /)
+ZOZCL(:,32, 7) = (/&
+ &0.0361_JPRB, 0.0361_JPRB, 0.0398_JPRB, 0.0390_JPRB, 0.0362_JPRB, 0.0367_JPRB, 0.0572_JPRB, 0.0539_JPRB,&
+ &0.0400_JPRB, 0.0499_JPRB, 0.0476_JPRB, 0.0394_JPRB, 0.0482_JPRB, 0.0667_JPRB, 0.0718_JPRB, 0.0686_JPRB,&
+ &0.0652_JPRB, 0.0560_JPRB, 0.0560_JPRB /)
+ZOZCL(:,33, 7) = (/&
+ &0.0312_JPRB, 0.0312_JPRB, 0.0337_JPRB, 0.0334_JPRB, 0.0329_JPRB, 0.0350_JPRB, 0.0493_JPRB, 0.0465_JPRB,&
+ &0.0319_JPRB, 0.0340_JPRB, 0.0307_JPRB, 0.0343_JPRB, 0.0299_JPRB, 0.0549_JPRB, 0.0563_JPRB, 0.0479_JPRB,&
+ &0.0495_JPRB, 0.0394_JPRB, 0.0394_JPRB /)
+ZOZCL(:,34, 7) = (/&
+ &0.0312_JPRB, 0.0312_JPRB, 0.0337_JPRB, 0.0334_JPRB, 0.0329_JPRB, 0.0350_JPRB, 0.0493_JPRB, 0.0465_JPRB,&
+ &0.0319_JPRB, 0.0340_JPRB, 0.0307_JPRB, 0.0343_JPRB, 0.0299_JPRB, 0.0549_JPRB, 0.0563_JPRB, 0.0479_JPRB,&
+ &0.0495_JPRB, 0.0394_JPRB, 0.0394_JPRB /) 
+
+! Month:  8
+ZOZCL(:, 1, 8) = (/&
+ &0.6000_JPRB, 0.6000_JPRB, 0.6200_JPRB, 0.6200_JPRB, 0.6600_JPRB, 0.6900_JPRB, 0.6700_JPRB, 0.6100_JPRB,&
+ &0.6000_JPRB, 0.6100_JPRB, 0.6200_JPRB, 0.6500_JPRB, 0.6800_JPRB, 0.6700_JPRB, 0.6400_JPRB, 0.6700_JPRB,&
+ &0.6000_JPRB, 0.4400_JPRB, 0.4400_JPRB /)
+ZOZCL(:, 2, 8) = (/&
+ &0.3600_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3700_JPRB, 0.4000_JPRB, 0.4300_JPRB, 0.4300_JPRB, 0.4100_JPRB,&
+ &0.4000_JPRB, 0.4000_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.4600_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB,&
+ &0.3500_JPRB, 0.2400_JPRB, 0.2400_JPRB /)
+ZOZCL(:, 3, 8) = (/&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3500_JPRB,&
+ &0.3500_JPRB, 0.3600_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3200_JPRB, 0.2900_JPRB, 0.2800_JPRB,&
+ &0.2200_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
+ZOZCL(:, 4, 8) = (/&
+ &0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2200_JPRB, 0.2500_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3100_JPRB,&
+ &0.3100_JPRB, 0.2900_JPRB, 0.2900_JPRB, 0.3100_JPRB, 0.2700_JPRB, 0.2300_JPRB, 0.2000_JPRB, 0.1700_JPRB,&
+ &0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB /)
+ZOZCL(:, 5, 8) = (/&
+ &0.2400_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2200_JPRB,&
+ &0.1900_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1400_JPRB,&
+ &0.1400_JPRB, 0.1300_JPRB, 0.1300_JPRB /)
+ZOZCL(:, 6, 8) = (/&
+ &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1600_JPRB,&
+ &0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB,&
+ &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB /)
+ZOZCL(:, 7, 8) = (/&
+ &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1800_JPRB,&
+ &0.1800_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
+ZOZCL(:, 8, 8) = (/&
+ &0.3200_JPRB, 0.3200_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3200_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2600_JPRB,&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2700_JPRB,&
+ &0.2700_JPRB, 0.2900_JPRB, 0.2900_JPRB /)
+ZOZCL(:, 9, 8) = (/&
+ &0.4200_JPRB, 0.4200_JPRB, 0.4400_JPRB, 0.4400_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.4400_JPRB, 0.3800_JPRB,&
+ &0.3500_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.3800_JPRB,&
+ &0.3800_JPRB, 0.3900_JPRB, 0.3900_JPRB /)
+ZOZCL(:,10, 8) = (/&
+ &0.5800_JPRB, 0.5800_JPRB, 0.6000_JPRB, 0.6000_JPRB, 0.6100_JPRB, 0.6200_JPRB, 0.5900_JPRB, 0.5400_JPRB,&
+ &0.5200_JPRB, 0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5200_JPRB, 0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB,&
+ &0.5200_JPRB, 0.5400_JPRB, 0.5400_JPRB /)
+ZOZCL(:,11, 8) = (/&
+ &0.8100_JPRB, 0.8100_JPRB, 0.8400_JPRB, 0.8400_JPRB, 0.8500_JPRB, 0.8800_JPRB, 0.8700_JPRB, 0.8200_JPRB,&
+ &0.7900_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.8100_JPRB, 0.8000_JPRB, 0.7600_JPRB,&
+ &0.7500_JPRB, 0.7300_JPRB, 0.7300_JPRB /)
+ZOZCL(:,12, 8) = (/&
+ &0.9700_JPRB, 0.9700_JPRB, 1.0100_JPRB, 1.0100_JPRB, 1.0900_JPRB, 1.1200_JPRB, 1.1100_JPRB, 1.0500_JPRB,&
+ &1.0200_JPRB, 1.0100_JPRB, 1.0100_JPRB, 1.0300_JPRB, 1.0400_JPRB, 1.0500_JPRB, 1.0200_JPRB, 0.9600_JPRB,&
+ &0.9200_JPRB, 0.8900_JPRB, 0.8900_JPRB /)
+ZOZCL(:,13, 8) = (/&
+ &1.1300_JPRB, 1.1300_JPRB, 1.1800_JPRB, 1.1800_JPRB, 1.5600_JPRB, 1.5800_JPRB, 1.5400_JPRB, 1.4700_JPRB,&
+ &1.4300_JPRB, 1.4000_JPRB, 1.3900_JPRB, 1.4200_JPRB, 1.4600_JPRB, 1.4500_JPRB, 1.3800_JPRB, 1.3000_JPRB,&
+ &1.2300_JPRB, 1.1800_JPRB, 1.1800_JPRB /)
+ZOZCL(:,14, 8) = (/&
+ &1.8200_JPRB, 1.8200_JPRB, 1.9000_JPRB, 1.9000_JPRB, 2.1900_JPRB, 2.2200_JPRB, 2.1100_JPRB, 2.0000_JPRB,&
+ &1.9700_JPRB, 1.9500_JPRB, 1.9400_JPRB, 1.9700_JPRB, 2.0200_JPRB, 1.9800_JPRB, 1.8500_JPRB, 1.7400_JPRB,&
+ &1.6400_JPRB, 1.5600_JPRB, 1.5600_JPRB /)
+ZOZCL(:,15, 8) = (/&
+ &2.2000_JPRB, 2.2000_JPRB, 2.5000_JPRB, 2.5500_JPRB, 2.7600_JPRB, 2.7900_JPRB, 2.6000_JPRB, 2.4500_JPRB,&
+ &2.4000_JPRB, 2.3900_JPRB, 2.4000_JPRB, 2.4400_JPRB, 2.5000_JPRB, 2.4400_JPRB, 2.2600_JPRB, 2.1100_JPRB,&
+ &2.0100_JPRB, 1.9200_JPRB, 1.9200_JPRB /)
+ZOZCL(:,16, 8) = (/&
+ &2.8400_JPRB, 2.8400_JPRB, 3.3500_JPRB, 3.5400_JPRB, 3.8700_JPRB, 3.8700_JPRB, 3.5500_JPRB, 3.2900_JPRB,&
+ &3.1700_JPRB, 3.1300_JPRB, 3.1400_JPRB, 3.2200_JPRB, 3.2800_JPRB, 3.1800_JPRB, 2.9500_JPRB, 2.7700_JPRB,&
+ &2.6500_JPRB, 2.5500_JPRB, 2.5500_JPRB /)
+ZOZCL(:,17, 8) = (/&
+ &3.7800_JPRB, 3.7800_JPRB, 4.4100_JPRB, 4.9700_JPRB, 5.5100_JPRB, 5.4300_JPRB, 4.9700_JPRB, 4.5500_JPRB,&
+ &4.3100_JPRB, 4.2400_JPRB, 4.2700_JPRB, 4.3900_JPRB, 4.4200_JPRB, 4.2500_JPRB, 3.9800_JPRB, 3.7800_JPRB,&
+ &3.6100_JPRB, 3.4800_JPRB, 3.4800_JPRB /) 
+
+ZOZCL(:,18, 8) = (/&
+ &4.3800_JPRB, 4.3800_JPRB, 4.9200_JPRB, 5.7900_JPRB, 6.6000_JPRB, 6.5500_JPRB, 6.0900_JPRB, 5.6800_JPRB,&
+ &5.4200_JPRB, 5.3300_JPRB, 5.3700_JPRB, 5.5100_JPRB, 5.4900_JPRB, 5.2700_JPRB, 4.9900_JPRB, 4.7700_JPRB,&
+ &4.5300_JPRB, 4.3200_JPRB, 4.3200_JPRB /)
+ZOZCL(:,19, 8) = (/&
+ &4.8800_JPRB, 4.8800_JPRB, 5.2100_JPRB, 6.3500_JPRB, 7.5700_JPRB, 7.7800_JPRB, 7.5400_JPRB, 7.3700_JPRB,&
+ &7.2300_JPRB, 7.1600_JPRB, 7.2000_JPRB, 7.3200_JPRB, 7.2300_JPRB, 6.9400_JPRB, 6.6400_JPRB, 6.3400_JPRB,&
+ &5.8600_JPRB, 5.4300_JPRB, 5.4300_JPRB /)
+ZOZCL(:,20, 8) = (/&
+ &5.2400_JPRB, 5.2400_JPRB, 5.3400_JPRB, 6.1400_JPRB, 7.2600_JPRB, 7.9400_JPRB, 8.1700_JPRB, 8.5200_JPRB,&
+ &8.8400_JPRB, 8.9000_JPRB, 8.9100_JPRB, 8.7400_JPRB, 8.5500_JPRB, 8.2000_JPRB, 7.7500_JPRB, 7.1100_JPRB,&
+ &6.1300_JPRB, 5.3000_JPRB, 5.3000_JPRB /)
+ZOZCL(:,21, 8) = (/&
+ &5.1700_JPRB, 5.1700_JPRB, 5.2900_JPRB, 5.5900_JPRB, 6.5700_JPRB, 7.5000_JPRB, 7.9800_JPRB, 8.6200_JPRB,&
+ &9.2200_JPRB, 9.3700_JPRB, 9.4200_JPRB, 9.1600_JPRB, 8.8300_JPRB, 8.3600_JPRB, 7.7000_JPRB, 6.8700_JPRB,&
+ &5.6600_JPRB, 4.6800_JPRB, 4.6800_JPRB /)
+ZOZCL(:,22, 8) = (/&
+ &4.8300_JPRB, 4.8300_JPRB, 5.1100_JPRB, 4.9400_JPRB, 5.7000_JPRB, 6.7600_JPRB, 7.3600_JPRB, 8.2000_JPRB,&
+ &9.0800_JPRB, 9.2400_JPRB, 9.3100_JPRB, 8.9200_JPRB, 8.4600_JPRB, 7.8800_JPRB, 7.0800_JPRB, 6.2200_JPRB,&
+ &5.0300_JPRB, 4.0600_JPRB, 4.0600_JPRB /)
+ZOZCL(:,23, 8) = (/&
+ &4.4114_JPRB, 4.4114_JPRB, 4.3392_JPRB, 3.8500_JPRB, 5.2000_JPRB, 6.0800_JPRB, 6.5300_JPRB, 7.0900_JPRB,&
+ &7.7200_JPRB, 7.8900_JPRB, 8.0000_JPRB, 7.6600_JPRB, 7.2800_JPRB, 6.8400_JPRB, 6.1300_JPRB, 5.3300_JPRB,&
+ &4.3300_JPRB, 3.6200_JPRB, 3.6200_JPRB /)
+ZOZCL(:,24, 8) = (/&
+ &3.8642_JPRB, 3.8642_JPRB, 3.7532_JPRB, 3.3850_JPRB, 4.9400_JPRB, 5.6200_JPRB, 5.8700_JPRB, 6.1300_JPRB,&
+ &6.4200_JPRB, 6.5400_JPRB, 6.7200_JPRB, 6.5200_JPRB, 6.2600_JPRB, 5.9800_JPRB, 5.4700_JPRB, 4.8100_JPRB,&
+ &3.9600_JPRB, 3.4500_JPRB, 3.4500_JPRB /)
+ZOZCL(:,25, 8) = (/&
+ &3.2527_JPRB, 3.2527_JPRB, 3.1107_JPRB, 3.1000_JPRB, 4.9600_JPRB, 4.9954_JPRB, 4.9525_JPRB, 4.6300_JPRB,&
+ &4.2568_JPRB, 4.4121_JPRB, 4.7500_JPRB, 4.8600_JPRB, 4.7875_JPRB, 4.6815_JPRB, 4.3089_JPRB, 3.7158_JPRB,&
+ &3.3159_JPRB, 3.1320_JPRB, 3.1320_JPRB /)
+ZOZCL(:,26, 8) = (/&
+ &2.8269_JPRB, 2.8269_JPRB, 2.5633_JPRB, 2.3880_JPRB, 3.0680_JPRB, 3.0094_JPRB, 2.5760_JPRB, 2.2800_JPRB,&
+ &1.6597_JPRB, 1.6279_JPRB, 1.9500_JPRB, 2.1300_JPRB, 2.1947_JPRB, 2.4610_JPRB, 2.5566_JPRB, 2.5730_JPRB,&
+ &2.5703_JPRB, 2.6306_JPRB, 2.6306_JPRB /)
+ZOZCL(:,27, 8) = (/&
+ &2.0124_JPRB, 2.0124_JPRB, 1.7867_JPRB, 1.4700_JPRB, 1.7214_JPRB, 1.6495_JPRB, 0.9482_JPRB, 1.0400_JPRB,&
+ &0.6012_JPRB, 0.6575_JPRB, 0.8800_JPRB, 1.0100_JPRB, 0.9167_JPRB, 1.2381_JPRB, 1.4940_JPRB, 1.7246_JPRB,&
+ &1.8416_JPRB, 1.9963_JPRB, 1.9963_JPRB /)
+ZOZCL(:,28, 8) = (/&
+ &1.0946_JPRB, 1.0946_JPRB, 1.0225_JPRB, 0.9160_JPRB, 0.8850_JPRB, 0.7602_JPRB, 0.2500_JPRB, 0.2237_JPRB,&
+ &0.1148_JPRB, 0.1680_JPRB, 0.1830_JPRB, 0.1922_JPRB, 0.1848_JPRB, 0.4119_JPRB, 0.6847_JPRB, 0.8300_JPRB,&
+ &0.9963_JPRB, 1.0967_JPRB, 1.0967_JPRB /)
+ZOZCL(:,29, 8) = (/&
+ &0.4743_JPRB, 0.4743_JPRB, 0.4304_JPRB, 0.3907_JPRB, 0.3920_JPRB, 0.3548_JPRB, 0.1347_JPRB, 0.1200_JPRB,&
+ &0.0588_JPRB, 0.0724_JPRB, 0.0580_JPRB, 0.0565_JPRB, 0.0841_JPRB, 0.1486_JPRB, 0.3128_JPRB, 0.3640_JPRB,&
+ &0.4621_JPRB, 0.5082_JPRB, 0.5082_JPRB /)
+ZOZCL(:,30, 8) = (/&
+ &0.2241_JPRB, 0.2241_JPRB, 0.2028_JPRB, 0.2759_JPRB, 0.2695_JPRB, 0.2556_JPRB, 0.1030_JPRB, 0.0919_JPRB,&
+ &0.0441_JPRB, 0.0555_JPRB, 0.0540_JPRB, 0.0374_JPRB, 0.0641_JPRB, 0.1085_JPRB, 0.1991_JPRB, 0.2510_JPRB,&
+ &0.3501_JPRB, 0.3990_JPRB, 0.3990_JPRB /)
+ZOZCL(:,31, 8) = (/&
+ &0.0529_JPRB, 0.0529_JPRB, 0.0549_JPRB, 0.0463_JPRB, 0.0600_JPRB, 0.0714_JPRB, 0.0710_JPRB, 0.0651_JPRB,&
+ &0.0403_JPRB, 0.0451_JPRB, 0.0387_JPRB, 0.0299_JPRB, 0.0512_JPRB, 0.0798_JPRB, 0.0908_JPRB, 0.0883_JPRB,&
+ &0.1016_JPRB, 0.1352_JPRB, 0.1352_JPRB /)
+ZOZCL(:,32, 8) = (/&
+ &0.0373_JPRB, 0.0373_JPRB, 0.0374_JPRB, 0.0390_JPRB, 0.0406_JPRB, 0.0402_JPRB, 0.0606_JPRB, 0.0559_JPRB,&
+ &0.0394_JPRB, 0.0454_JPRB, 0.0280_JPRB, 0.0336_JPRB, 0.0450_JPRB, 0.0673_JPRB, 0.0685_JPRB, 0.0632_JPRB,&
+ &0.0622_JPRB, 0.0549_JPRB, 0.0549_JPRB /)
+ZOZCL(:,33, 8) = (/&
+ &0.0311_JPRB, 0.0311_JPRB, 0.0313_JPRB, 0.0353_JPRB, 0.0357_JPRB, 0.0353_JPRB, 0.0543_JPRB, 0.0502_JPRB,&
+ &0.0337_JPRB, 0.0366_JPRB, 0.0286_JPRB, 0.0355_JPRB, 0.0340_JPRB, 0.0563_JPRB, 0.0561_JPRB, 0.0500_JPRB,&
+ &0.0496_JPRB, 0.0427_JPRB, 0.0427_JPRB /)
+ZOZCL(:,34, 8) = (/&
+ &0.0311_JPRB, 0.0311_JPRB, 0.0313_JPRB, 0.0353_JPRB, 0.0357_JPRB, 0.0353_JPRB, 0.0543_JPRB, 0.0502_JPRB,&
+ &0.0337_JPRB, 0.0366_JPRB, 0.0286_JPRB, 0.0355_JPRB, 0.0340_JPRB, 0.0563_JPRB, 0.0561_JPRB, 0.0500_JPRB,&
+ &0.0496_JPRB, 0.0427_JPRB, 0.0427_JPRB /) 
+
+! Month:  9
+ZOZCL(:, 1, 9) = (/&
+ &0.4200_JPRB, 0.4200_JPRB, 0.5800_JPRB, 0.5900_JPRB, 0.6400_JPRB, 0.7400_JPRB, 0.7900_JPRB, 0.7700_JPRB,&
+ &0.7700_JPRB, 0.7700_JPRB, 0.7500_JPRB, 0.7600_JPRB, 0.7600_JPRB, 0.6900_JPRB, 0.6100_JPRB, 0.6000_JPRB,&
+ &0.5600_JPRB, 0.4600_JPRB, 0.4600_JPRB /)
+ZOZCL(:, 2, 9) = (/&
+ &0.2700_JPRB, 0.2700_JPRB, 0.3300_JPRB, 0.3600_JPRB, 0.3900_JPRB, 0.4600_JPRB, 0.5200_JPRB, 0.5100_JPRB,&
+ &0.4800_JPRB, 0.4800_JPRB, 0.4700_JPRB, 0.4900_JPRB, 0.5300_JPRB, 0.4700_JPRB, 0.3700_JPRB, 0.3100_JPRB,&
+ &0.2800_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 3, 9) = (/&
+ &0.2300_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3300_JPRB, 0.3800_JPRB, 0.4300_JPRB, 0.4300_JPRB,&
+ &0.4000_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.4000_JPRB, 0.4200_JPRB, 0.3800_JPRB, 0.2900_JPRB, 0.2300_JPRB,&
+ &0.2000_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
+ZOZCL(:, 4, 9) = (/&
+ &0.2400_JPRB, 0.2400_JPRB, 0.2800_JPRB, 0.3100_JPRB, 0.3400_JPRB, 0.3700_JPRB, 0.3700_JPRB, 0.3500_JPRB,&
+ &0.3200_JPRB, 0.2900_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3100_JPRB, 0.2500_JPRB, 0.2000_JPRB,&
+ &0.1900_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
+ZOZCL(:, 5, 9) = (/&
+ &0.2700_JPRB, 0.2700_JPRB, 0.3100_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.2700_JPRB, 0.2300_JPRB,&
+ &0.2100_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.1900_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
+ZOZCL(:, 6, 9) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2300_JPRB, 0.1900_JPRB, 0.1700_JPRB,&
+ &0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB,&
+ &0.1500_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
+ZOZCL(:, 7, 9) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.2800_JPRB, 0.2200_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1700_JPRB,&
+ &0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
+ &0.1700_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 8, 9) = (/&
+ &0.3300_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2600_JPRB,&
+ &0.2400_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2300_JPRB, 0.2300_JPRB, 0.2500_JPRB, 0.2600_JPRB,&
+ &0.2700_JPRB, 0.2900_JPRB, 0.2900_JPRB /)
+ZOZCL(:, 9, 9) = (/&
+ &0.4100_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4400_JPRB, 0.4500_JPRB, 0.4400_JPRB, 0.4100_JPRB, 0.3700_JPRB,&
+ &0.3400_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.3900_JPRB,&
+ &0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB /)
+ZOZCL(:,10, 9) = (/&
+ &0.5200_JPRB, 0.5200_JPRB, 0.5700_JPRB, 0.5800_JPRB, 0.5900_JPRB, 0.5800_JPRB, 0.5400_JPRB, 0.5000_JPRB,&
+ &0.4900_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.4700_JPRB, 0.4600_JPRB, 0.4700_JPRB, 0.4900_JPRB, 0.4800_JPRB,&
+ &0.4900_JPRB, 0.5000_JPRB, 0.5000_JPRB /)
+ZOZCL(:,11, 9) = (/&
+ &0.7000_JPRB, 0.7000_JPRB, 0.8000_JPRB, 0.8000_JPRB, 0.8300_JPRB, 0.8400_JPRB, 0.8000_JPRB, 0.7700_JPRB,&
+ &0.7600_JPRB, 0.7600_JPRB, 0.7400_JPRB, 0.7200_JPRB, 0.7000_JPRB, 0.7200_JPRB, 0.7300_JPRB, 0.7000_JPRB,&
+ &0.6700_JPRB, 0.6700_JPRB, 0.6700_JPRB /)
+ZOZCL(:,12, 9) = (/&
+ &0.8700_JPRB, 0.8700_JPRB, 0.9900_JPRB, 1.0100_JPRB, 1.0500_JPRB, 1.0600_JPRB, 1.0300_JPRB, 1.0000_JPRB,&
+ &0.9900_JPRB, 0.9800_JPRB, 0.9700_JPRB, 0.9600_JPRB, 0.9600_JPRB, 0.9700_JPRB, 0.9700_JPRB, 0.9400_JPRB,&
+ &0.8900_JPRB, 0.8600_JPRB, 0.8600_JPRB /)
+ZOZCL(:,13, 9) = (/&
+ &1.2800_JPRB, 1.2800_JPRB, 1.3500_JPRB, 1.4000_JPRB, 1.4700_JPRB, 1.4800_JPRB, 1.4300_JPRB, 1.4100_JPRB,&
+ &1.4100_JPRB, 1.3800_JPRB, 1.3600_JPRB, 1.3800_JPRB, 1.4000_JPRB, 1.4000_JPRB, 1.4000_JPRB, 1.3600_JPRB,&
+ &1.2800_JPRB, 1.2500_JPRB, 1.2500_JPRB /)
+ZOZCL(:,14, 9) = (/&
+ &1.7800_JPRB, 1.7800_JPRB, 1.8800_JPRB, 1.9800_JPRB, 2.1000_JPRB, 2.1000_JPRB, 2.0200_JPRB, 1.9600_JPRB,&
+ &1.9500_JPRB, 1.9300_JPRB, 1.9200_JPRB, 1.9400_JPRB, 1.9600_JPRB, 1.9500_JPRB, 1.9200_JPRB, 1.8900_JPRB,&
+ &1.8700_JPRB, 1.9300_JPRB, 1.9300_JPRB /)
+ZOZCL(:,15, 9) = (/&
+ &2.3800_JPRB, 2.3800_JPRB, 2.3400_JPRB, 2.4800_JPRB, 2.6700_JPRB, 2.6400_JPRB, 2.4700_JPRB, 2.3800_JPRB,&
+ &2.3600_JPRB, 2.3500_JPRB, 2.3600_JPRB, 2.3800_JPRB, 2.4000_JPRB, 2.3800_JPRB, 2.3600_JPRB, 2.3700_JPRB,&
+ &2.4100_JPRB, 2.4800_JPRB, 2.4800_JPRB /)
+ZOZCL(:,16, 9) = (/&
+ &3.1900_JPRB, 3.1900_JPRB, 3.1800_JPRB, 3.3800_JPRB, 3.6600_JPRB, 3.6200_JPRB, 3.3600_JPRB, 3.1500_JPRB,&
+ &3.0600_JPRB, 3.0400_JPRB, 3.0700_JPRB, 3.1500_JPRB, 3.2300_JPRB, 3.2300_JPRB, 3.2300_JPRB, 3.3000_JPRB,&
+ &3.3700_JPRB, 3.3400_JPRB, 3.3400_JPRB /)
+ZOZCL(:,17, 9) = (/&
+ &4.2600_JPRB, 4.2600_JPRB, 4.3800_JPRB, 4.7200_JPRB, 5.1000_JPRB, 5.0700_JPRB, 4.7100_JPRB, 4.3500_JPRB,&
+ &4.1300_JPRB, 4.0700_JPRB, 4.1500_JPRB, 4.3400_JPRB, 4.4800_JPRB, 4.5100_JPRB, 4.5400_JPRB, 4.6600_JPRB,&
+ &4.6900_JPRB, 4.3300_JPRB, 4.3300_JPRB /) 
+
+ZOZCL(:,18, 9) = (/&
+ &4.8600_JPRB, 4.8600_JPRB, 5.1600_JPRB, 5.7200_JPRB, 6.2300_JPRB, 6.2600_JPRB, 5.9000_JPRB, 5.5000_JPRB,&
+ &5.2100_JPRB, 5.1300_JPRB, 5.2100_JPRB, 5.4500_JPRB, 5.6000_JPRB, 5.5900_JPRB, 5.6000_JPRB, 5.6700_JPRB,&
+ &5.5200_JPRB, 4.8700_JPRB, 4.8700_JPRB /)
+ZOZCL(:,19, 9) = (/&
+ &5.3400_JPRB, 5.3400_JPRB, 5.8900_JPRB, 6.8600_JPRB, 7.5800_JPRB, 7.8000_JPRB, 7.6300_JPRB, 7.3600_JPRB,&
+ &7.0800_JPRB, 6.9700_JPRB, 7.0400_JPRB, 7.2500_JPRB, 7.3100_JPRB, 7.1700_JPRB, 7.0300_JPRB, 6.8200_JPRB,&
+ &6.2300_JPRB, 5.2200_JPRB, 5.2200_JPRB /)
+ZOZCL(:,20, 9) = (/&
+ &5.3600_JPRB, 5.3600_JPRB, 5.9400_JPRB, 6.7700_JPRB, 7.8900_JPRB, 8.3600_JPRB, 8.7000_JPRB, 8.9000_JPRB,&
+ &8.9000_JPRB, 8.8200_JPRB, 8.8300_JPRB, 8.7300_JPRB, 8.6200_JPRB, 8.2000_JPRB, 7.7200_JPRB, 7.0700_JPRB,&
+ &6.0700_JPRB, 4.9700_JPRB, 4.9700_JPRB /)
+ZOZCL(:,21, 9) = (/&
+ &5.2800_JPRB, 5.2800_JPRB, 5.6200_JPRB, 6.3600_JPRB, 7.3900_JPRB, 8.0400_JPRB, 8.5700_JPRB, 9.0700_JPRB,&
+ &9.4700_JPRB, 9.4700_JPRB, 9.5000_JPRB, 9.2000_JPRB, 8.8300_JPRB, 8.2500_JPRB, 7.4800_JPRB, 6.6000_JPRB,&
+ &5.4700_JPRB, 4.5800_JPRB, 4.5800_JPRB /)
+ZOZCL(:,22, 9) = (/&
+ &5.1500_JPRB, 5.1500_JPRB, 5.1800_JPRB, 5.7500_JPRB, 6.5900_JPRB, 7.3200_JPRB, 7.9000_JPRB, 8.6000_JPRB,&
+ &9.4100_JPRB, 9.4800_JPRB, 9.5200_JPRB, 9.0100_JPRB, 8.4200_JPRB, 7.7400_JPRB, 6.7700_JPRB, 5.8200_JPRB,&
+ &4.7100_JPRB, 4.1400_JPRB, 4.1400_JPRB /)
+ZOZCL(:,23, 9) = (/&
+ &4.6717_JPRB, 4.6717_JPRB, 4.8458_JPRB, 3.7400_JPRB, 5.8700_JPRB, 6.4500_JPRB, 6.8700_JPRB, 7.3500_JPRB,&
+ &7.9500_JPRB, 8.0500_JPRB, 8.1400_JPRB, 7.7000_JPRB, 7.2100_JPRB, 6.6900_JPRB, 5.8500_JPRB, 5.0300_JPRB,&
+ &4.1300_JPRB, 3.7500_JPRB, 3.7500_JPRB /)
+ZOZCL(:,24, 9) = (/&
+ &3.8037_JPRB, 3.8037_JPRB, 3.8848_JPRB, 2.9500_JPRB, 5.4400_JPRB, 5.8800_JPRB, 6.1100_JPRB, 6.3000_JPRB,&
+ &6.5900_JPRB, 6.6600_JPRB, 6.8000_JPRB, 6.5100_JPRB, 6.1700_JPRB, 5.8600_JPRB, 5.2400_JPRB, 4.5800_JPRB,&
+ &3.8900_JPRB, 3.5300_JPRB, 3.5300_JPRB /)
+ZOZCL(:,25, 9) = (/&
+ &2.3519_JPRB, 2.3519_JPRB, 2.4684_JPRB, 2.5767_JPRB, 5.0900_JPRB, 5.0874_JPRB, 4.8300_JPRB, 4.6000_JPRB,&
+ &4.2822_JPRB, 4.4093_JPRB, 4.7200_JPRB, 4.7400_JPRB, 4.7275_JPRB, 4.5475_JPRB, 4.1553_JPRB, 3.7417_JPRB,&
+ &3.4637_JPRB, 3.1593_JPRB, 3.1593_JPRB /)
+ZOZCL(:,26, 9) = (/&
+ &1.6783_JPRB, 1.6783_JPRB, 1.8105_JPRB, 1.8080_JPRB, 3.2640_JPRB, 3.1160_JPRB, 2.5420_JPRB, 2.1000_JPRB,&
+ &1.6258_JPRB, 1.6928_JPRB, 1.9000_JPRB, 2.0000_JPRB, 2.0931_JPRB, 2.3483_JPRB, 2.4707_JPRB, 2.5830_JPRB,&
+ &2.5729_JPRB, 2.5568_JPRB, 2.5568_JPRB /)
+ZOZCL(:,27, 9) = (/&
+ &1.2168_JPRB, 1.2168_JPRB, 1.2714_JPRB, 1.0043_JPRB, 1.8843_JPRB, 1.7599_JPRB, 1.1100_JPRB, 0.9300_JPRB,&
+ &0.5827_JPRB, 0.6564_JPRB, 0.7900_JPRB, 0.8800_JPRB, 0.8406_JPRB, 1.2144_JPRB, 1.4516_JPRB, 1.7825_JPRB,&
+ &1.9065_JPRB, 2.1061_JPRB, 2.1061_JPRB /)
+ZOZCL(:,28, 9) = (/&
+ &0.7290_JPRB, 0.7290_JPRB, 0.7549_JPRB, 0.6280_JPRB, 0.8840_JPRB, 0.7060_JPRB, 0.2840_JPRB, 0.2657_JPRB,&
+ &0.1308_JPRB, 0.1540_JPRB, 0.1600_JPRB, 0.1884_JPRB, 0.1743_JPRB, 0.4245_JPRB, 0.6122_JPRB, 0.8520_JPRB,&
+ &1.0364_JPRB, 1.1360_JPRB, 1.1360_JPRB /)
+ZOZCL(:,29, 9) = (/&
+ &0.3900_JPRB, 0.3900_JPRB, 0.3966_JPRB, 0.3887_JPRB, 0.4313_JPRB, 0.3504_JPRB, 0.1280_JPRB, 0.1188_JPRB,&
+ &0.0577_JPRB, 0.0775_JPRB, 0.0687_JPRB, 0.0665_JPRB, 0.0818_JPRB, 0.1571_JPRB, 0.2472_JPRB, 0.3527_JPRB,&
+ &0.4632_JPRB, 0.5169_JPRB, 0.5169_JPRB /)
+ZOZCL(:,30, 9) = (/&
+ &0.1897_JPRB, 0.1897_JPRB, 0.1921_JPRB, 0.2789_JPRB, 0.2805_JPRB, 0.2363_JPRB, 0.1080_JPRB, 0.1004_JPRB,&
+ &0.0515_JPRB, 0.0685_JPRB, 0.0550_JPRB, 0.0409_JPRB, 0.0646_JPRB, 0.1032_JPRB, 0.1543_JPRB, 0.2500_JPRB,&
+ &0.2984_JPRB, 0.3550_JPRB, 0.3550_JPRB /)
+ZOZCL(:,31, 9) = (/&
+ &0.0479_JPRB, 0.0479_JPRB, 0.0560_JPRB, 0.0593_JPRB, 0.0707_JPRB, 0.0820_JPRB, 0.0993_JPRB, 0.0918_JPRB,&
+ &0.0458_JPRB, 0.0618_JPRB, 0.0393_JPRB, 0.0401_JPRB, 0.0538_JPRB, 0.0639_JPRB, 0.0778_JPRB, 0.0907_JPRB,&
+ &0.0977_JPRB, 0.1328_JPRB, 0.1328_JPRB /)
+ZOZCL(:,32, 9) = (/&
+ &0.0367_JPRB, 0.0367_JPRB, 0.0404_JPRB, 0.0436_JPRB, 0.0488_JPRB, 0.0421_JPRB, 0.0834_JPRB, 0.0781_JPRB,&
+ &0.0480_JPRB, 0.0545_JPRB, 0.0236_JPRB, 0.0382_JPRB, 0.0543_JPRB, 0.0546_JPRB, 0.0595_JPRB, 0.0560_JPRB,&
+ &0.0579_JPRB, 0.0574_JPRB, 0.0574_JPRB /)
+ZOZCL(:,33, 9) = (/&
+ &0.0316_JPRB, 0.0316_JPRB, 0.0346_JPRB, 0.0357_JPRB, 0.0379_JPRB, 0.0368_JPRB, 0.0790_JPRB, 0.0735_JPRB,&
+ &0.0401_JPRB, 0.0458_JPRB, 0.0190_JPRB, 0.0343_JPRB, 0.0441_JPRB, 0.0496_JPRB, 0.0498_JPRB, 0.0431_JPRB,&
+ &0.0462_JPRB, 0.0475_JPRB, 0.0475_JPRB /)
+ZOZCL(:,34, 9) = (/&
+ &0.0316_JPRB, 0.0316_JPRB, 0.0346_JPRB, 0.0357_JPRB, 0.0379_JPRB, 0.0368_JPRB, 0.0790_JPRB, 0.0735_JPRB,&
+ &0.0401_JPRB, 0.0458_JPRB, 0.0190_JPRB, 0.0343_JPRB, 0.0441_JPRB, 0.0496_JPRB, 0.0498_JPRB, 0.0431_JPRB,&
+ &0.0462_JPRB, 0.0475_JPRB, 0.0475_JPRB /) 
+
+! Month: 10
+ZOZCL(:, 1,10) = (/&
+ &0.5700_JPRB, 0.5700_JPRB, 0.5600_JPRB, 0.5400_JPRB, 0.6100_JPRB, 0.8000_JPRB, 0.9300_JPRB, 0.8700_JPRB,&
+ &0.8000_JPRB, 0.8400_JPRB, 0.8100_JPRB, 0.7600_JPRB, 0.8400_JPRB, 0.8700_JPRB, 0.7500_JPRB, 0.6600_JPRB,&
+ &0.6500_JPRB, 0.6300_JPRB, 0.6300_JPRB /)
+ZOZCL(:, 2,10) = (/&
+ &0.3800_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4500_JPRB, 0.5800_JPRB, 0.6600_JPRB, 0.6000_JPRB,&
+ &0.5300_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5100_JPRB, 0.5500_JPRB, 0.5500_JPRB, 0.4400_JPRB, 0.3400_JPRB,&
+ &0.3000_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
+ZOZCL(:, 3,10) = (/&
+ &0.3100_JPRB, 0.3100_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.5000_JPRB, 0.5200_JPRB, 0.4700_JPRB,&
+ &0.4200_JPRB, 0.4300_JPRB, 0.4200_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.3300_JPRB, 0.2500_JPRB,&
+ &0.1900_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
+ZOZCL(:, 4,10) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.3800_JPRB, 0.4300_JPRB, 0.4500_JPRB, 0.4400_JPRB, 0.3900_JPRB, 0.3400_JPRB,&
+ &0.3300_JPRB, 0.3300_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2300_JPRB,&
+ &0.1900_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
+ZOZCL(:, 5,10) = (/&
+ &0.2600_JPRB, 0.2600_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3100_JPRB, 0.2600_JPRB, 0.2300_JPRB,&
+ &0.2400_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2500_JPRB,&
+ &0.2500_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
+ZOZCL(:, 6,10) = (/&
+ &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2300_JPRB, 0.1900_JPRB, 0.1900_JPRB,&
+ &0.1900_JPRB, 0.2000_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2000_JPRB, 0.2500_JPRB,&
+ &0.2900_JPRB, 0.2500_JPRB, 0.2500_JPRB /)
+ZOZCL(:, 7,10) = (/&
+ &0.2400_JPRB, 0.2400_JPRB, 0.2100_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
+ &0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.2400_JPRB,&
+ &0.3300_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
+ZOZCL(:, 8,10) = (/&
+ &0.3500_JPRB, 0.3500_JPRB, 0.3300_JPRB, 0.3200_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2600_JPRB,&
+ &0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2800_JPRB,&
+ &0.3500_JPRB, 0.3700_JPRB, 0.3700_JPRB /)
+ZOZCL(:, 9,10) = (/&
+ &0.4500_JPRB, 0.4500_JPRB, 0.4500_JPRB, 0.4400_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.3900_JPRB, 0.3800_JPRB,&
+ &0.3700_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3800_JPRB,&
+ &0.4000_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
+ZOZCL(:,10,10) = (/&
+ &0.5600_JPRB, 0.5600_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5200_JPRB, 0.5000_JPRB, 0.4800_JPRB, 0.4800_JPRB,&
+ &0.4600_JPRB, 0.4600_JPRB, 0.4500_JPRB, 0.5200_JPRB, 0.5300_JPRB, 0.5500_JPRB, 0.5600_JPRB, 0.5400_JPRB,&
+ &0.5100_JPRB, 0.4900_JPRB, 0.4900_JPRB /)
+ZOZCL(:,11,10) = (/&
+ &0.7800_JPRB, 0.7800_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7400_JPRB, 0.7400_JPRB, 0.7300_JPRB,&
+ &0.7100_JPRB, 0.6800_JPRB, 0.6900_JPRB, 0.7900_JPRB, 0.6500_JPRB, 0.6800_JPRB, 0.7000_JPRB, 0.6900_JPRB,&
+ &0.7200_JPRB, 0.6900_JPRB, 0.6900_JPRB /)
+ZOZCL(:,12,10) = (/&
+ &0.9700_JPRB, 0.9700_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9500_JPRB, 0.9600_JPRB, 0.9600_JPRB, 0.9600_JPRB,&
+ &0.9400_JPRB, 0.9200_JPRB, 0.9200_JPRB, 0.9300_JPRB, 0.9200_JPRB, 0.9300_JPRB, 0.9200_JPRB, 0.9100_JPRB,&
+ &0.9400_JPRB, 0.9000_JPRB, 0.9000_JPRB /)
+ZOZCL(:,13,10) = (/&
+ &1.3100_JPRB, 1.3100_JPRB, 1.2800_JPRB, 1.3000_JPRB, 1.3300_JPRB, 1.3700_JPRB, 1.3900_JPRB, 1.3900_JPRB,&
+ &1.3900_JPRB, 1.3700_JPRB, 1.3800_JPRB, 1.4100_JPRB, 1.3900_JPRB, 1.3700_JPRB, 1.3600_JPRB, 1.3600_JPRB,&
+ &1.3700_JPRB, 1.3100_JPRB, 1.3100_JPRB /)
+ZOZCL(:,14,10) = (/&
+ &1.7600_JPRB, 1.7600_JPRB, 1.7900_JPRB, 1.8600_JPRB, 1.9100_JPRB, 1.9300_JPRB, 1.9400_JPRB, 1.9500_JPRB,&
+ &1.9700_JPRB, 1.9700_JPRB, 1.9700_JPRB, 1.9600_JPRB, 1.9400_JPRB, 1.9700_JPRB, 2.0700_JPRB, 2.1600_JPRB,&
+ &2.1600_JPRB, 2.0900_JPRB, 2.0900_JPRB /)
+ZOZCL(:,15,10) = (/&
+ &2.1600_JPRB, 2.1600_JPRB, 2.1800_JPRB, 2.3300_JPRB, 2.4000_JPRB, 2.3600_JPRB, 2.3100_JPRB, 2.3300_JPRB,&
+ &2.3500_JPRB, 2.3700_JPRB, 2.3700_JPRB, 2.3400_JPRB, 2.3200_JPRB, 2.4400_JPRB, 2.6800_JPRB, 2.8400_JPRB,&
+ &2.8800_JPRB, 2.9400_JPRB, 2.9400_JPRB /)
+ZOZCL(:,16,10) = (/&
+ &2.8300_JPRB, 2.8300_JPRB, 2.8700_JPRB, 3.1000_JPRB, 3.2200_JPRB, 3.1700_JPRB, 3.0700_JPRB, 3.0400_JPRB,&
+ &3.0300_JPRB, 3.0400_JPRB, 3.0600_JPRB, 3.1000_JPRB, 3.1800_JPRB, 3.4400_JPRB, 3.8000_JPRB, 4.0500_JPRB,&
+ &4.0600_JPRB, 3.9600_JPRB, 3.9600_JPRB /)
+ZOZCL(:,17,10) = (/&
+ &3.8600_JPRB, 3.8600_JPRB, 3.9300_JPRB, 4.2600_JPRB, 4.4700_JPRB, 4.4300_JPRB, 4.2600_JPRB, 4.1400_JPRB,&
+ &4.0500_JPRB, 4.0300_JPRB, 4.0900_JPRB, 4.2600_JPRB, 4.5300_JPRB, 4.9600_JPRB, 5.4100_JPRB, 5.6600_JPRB,&
+ &5.4900_JPRB, 4.9600_JPRB, 4.9600_JPRB /) 
+
+ZOZCL(:,18,10) = (/&
+ &4.7500_JPRB, 4.7500_JPRB, 4.9100_JPRB, 5.3400_JPRB, 5.6400_JPRB, 5.6600_JPRB, 5.4700_JPRB, 5.2700_JPRB,&
+ &5.1100_JPRB, 5.0300_JPRB, 5.1100_JPRB, 5.3400_JPRB, 5.6700_JPRB, 6.0900_JPRB, 6.4200_JPRB, 6.4900_JPRB,&
+ &6.0700_JPRB, 5.2600_JPRB, 5.2600_JPRB /)
+ZOZCL(:,19,10) = (/&
+ &5.9200_JPRB, 5.9200_JPRB, 6.3300_JPRB, 6.9300_JPRB, 7.3900_JPRB, 7.5800_JPRB, 7.4700_JPRB, 7.2400_JPRB,&
+ &6.9800_JPRB, 6.8200_JPRB, 6.8600_JPRB, 7.1000_JPRB, 7.3200_JPRB, 7.4100_JPRB, 7.3000_JPRB, 6.9200_JPRB,&
+ &6.1800_JPRB, 5.1800_JPRB, 5.1800_JPRB /)
+ZOZCL(:,20,10) = (/&
+ &6.1800_JPRB, 6.1800_JPRB, 6.6100_JPRB, 7.3800_JPRB, 8.0400_JPRB, 8.5000_JPRB, 8.8700_JPRB, 9.0500_JPRB,&
+ &8.8300_JPRB, 8.7100_JPRB, 8.7600_JPRB, 8.7000_JPRB, 8.5300_JPRB, 7.9900_JPRB, 7.3800_JPRB, 6.7500_JPRB,&
+ &5.9200_JPRB, 5.0300_JPRB, 5.0300_JPRB /)
+ZOZCL(:,21,10) = (/&
+ &6.0000_JPRB, 6.0000_JPRB, 6.4300_JPRB, 7.2000_JPRB, 7.8300_JPRB, 8.3700_JPRB, 8.9500_JPRB, 9.4600_JPRB,&
+ &9.5800_JPRB, 9.6000_JPRB, 9.5900_JPRB, 9.2900_JPRB, 8.7500_JPRB, 7.7900_JPRB, 6.9600_JPRB, 6.2400_JPRB,&
+ &5.5200_JPRB, 4.8100_JPRB, 4.8100_JPRB /)
+ZOZCL(:,22,10) = (/&
+ &5.7600_JPRB, 5.7600_JPRB, 6.0700_JPRB, 6.7200_JPRB, 7.2100_JPRB, 7.7200_JPRB, 8.3700_JPRB, 9.1400_JPRB,&
+ &9.6500_JPRB, 9.8700_JPRB, 9.8100_JPRB, 9.2500_JPRB, 8.4100_JPRB, 7.2000_JPRB, 6.2600_JPRB, 5.5400_JPRB,&
+ &4.9900_JPRB, 4.4500_JPRB, 4.4500_JPRB /)
+ZOZCL(:,23,10) = (/&
+ &5.2232_JPRB, 5.2232_JPRB, 5.5374_JPRB, 5.2400_JPRB, 6.4300_JPRB, 6.7200_JPRB, 7.1800_JPRB, 7.7400_JPRB,&
+ &8.1300_JPRB, 8.3600_JPRB, 8.3600_JPRB, 7.8600_JPRB, 7.1900_JPRB, 6.2900_JPRB, 5.5800_JPRB, 4.9700_JPRB,&
+ &4.4900_JPRB, 3.9800_JPRB, 3.9800_JPRB /)
+ZOZCL(:,24,10) = (/&
+ &4.1747_JPRB, 4.1747_JPRB, 4.6023_JPRB, 4.3050_JPRB, 5.9400_JPRB, 6.0800_JPRB, 6.3100_JPRB, 6.5900_JPRB,&
+ &6.6800_JPRB, 6.7700_JPRB, 6.8000_JPRB, 6.5300_JPRB, 6.1200_JPRB, 5.5800_JPRB, 5.1000_JPRB, 4.7000_JPRB,&
+ &4.1900_JPRB, 3.6200_JPRB, 3.6200_JPRB /)
+ZOZCL(:,25,10) = (/&
+ &2.7866_JPRB, 2.7866_JPRB, 3.1177_JPRB, 3.2367_JPRB, 4.9933_JPRB, 5.0993_JPRB, 4.9783_JPRB, 4.7000_JPRB,&
+ &4.2500_JPRB, 4.3832_JPRB, 4.4600_JPRB, 4.4700_JPRB, 4.4959_JPRB, 4.4443_JPRB, 4.2617_JPRB, 4.1667_JPRB,&
+ &3.4780_JPRB, 3.1447_JPRB, 3.1447_JPRB /)
+ZOZCL(:,26,10) = (/&
+ &0.9992_JPRB, 0.9992_JPRB, 1.3984_JPRB, 1.7960_JPRB, 3.1540_JPRB, 3.2618_JPRB, 2.5540_JPRB, 2.1500_JPRB,&
+ &1.6459_JPRB, 1.5903_JPRB, 1.6300_JPRB, 1.8000_JPRB, 1.9871_JPRB, 2.2845_JPRB, 2.4964_JPRB, 2.5960_JPRB,&
+ &2.5710_JPRB, 2.6438_JPRB, 2.6438_JPRB /)
+ZOZCL(:,27,10) = (/&
+ &0.5779_JPRB, 0.5779_JPRB, 0.7611_JPRB, 1.0371_JPRB, 1.8243_JPRB, 1.7040_JPRB, 1.0114_JPRB, 0.8600_JPRB,&
+ &0.6233_JPRB, 0.5728_JPRB, 0.5700_JPRB, 0.7500_JPRB, 0.8863_JPRB, 1.2364_JPRB, 1.4982_JPRB, 1.7757_JPRB,&
+ &1.9050_JPRB, 2.0538_JPRB, 2.0538_JPRB /)
+ZOZCL(:,28,10) = (/&
+ &0.3652_JPRB, 0.3652_JPRB, 0.4404_JPRB, 0.4940_JPRB, 0.8220_JPRB, 0.6328_JPRB, 0.2510_JPRB, 0.2327_JPRB,&
+ &0.1303_JPRB, 0.1350_JPRB, 0.1380_JPRB, 0.1498_JPRB, 0.2285_JPRB, 0.4636_JPRB, 0.6430_JPRB, 0.8710_JPRB,&
+ &1.0466_JPRB, 1.2723_JPRB, 1.2723_JPRB /)
+ZOZCL(:,29,10) = (/&
+ &0.3389_JPRB, 0.3389_JPRB, 0.3542_JPRB, 0.2953_JPRB, 0.3893_JPRB, 0.3197_JPRB, 0.1213_JPRB, 0.1104_JPRB,&
+ &0.0632_JPRB, 0.0823_JPRB, 0.0647_JPRB, 0.0665_JPRB, 0.1016_JPRB, 0.1857_JPRB, 0.2449_JPRB, 0.3827_JPRB,&
+ &0.4579_JPRB, 0.4815_JPRB, 0.4815_JPRB /)
+ZOZCL(:,30,10) = (/&
+ &0.1870_JPRB, 0.1870_JPRB, 0.2085_JPRB, 0.2174_JPRB, 0.2435_JPRB, 0.2014_JPRB, 0.1030_JPRB, 0.0932_JPRB,&
+ &0.0541_JPRB, 0.0718_JPRB, 0.0475_JPRB, 0.0496_JPRB, 0.0732_JPRB, 0.1118_JPRB, 0.1368_JPRB, 0.2495_JPRB,&
+ &0.2686_JPRB, 0.3042_JPRB, 0.3042_JPRB /)
+ZOZCL(:,31,10) = (/&
+ &0.0500_JPRB, 0.0500_JPRB, 0.0650_JPRB, 0.0617_JPRB, 0.0787_JPRB, 0.0777_JPRB, 0.0897_JPRB, 0.0823_JPRB,&
+ &0.0509_JPRB, 0.0618_JPRB, 0.0443_JPRB, 0.0411_JPRB, 0.0544_JPRB, 0.0596_JPRB, 0.0680_JPRB, 0.1030_JPRB,&
+ &0.0955_JPRB, 0.1119_JPRB, 0.1119_JPRB /)
+ZOZCL(:,32,10) = (/&
+ &0.0336_JPRB, 0.0336_JPRB, 0.0420_JPRB, 0.0396_JPRB, 0.0458_JPRB, 0.0480_JPRB, 0.0698_JPRB, 0.0658_JPRB,&
+ &0.0539_JPRB, 0.0641_JPRB, 0.0462_JPRB, 0.0411_JPRB, 0.0496_JPRB, 0.0501_JPRB, 0.0543_JPRB, 0.0592_JPRB,&
+ &0.0524_JPRB, 0.0541_JPRB, 0.0541_JPRB /)
+ZOZCL(:,33,10) = (/&
+ &0.0273_JPRB, 0.0273_JPRB, 0.0336_JPRB, 0.0323_JPRB, 0.0376_JPRB, 0.0347_JPRB, 0.0579_JPRB, 0.0540_JPRB,&
+ &0.0438_JPRB, 0.0563_JPRB, 0.0390_JPRB, 0.0351_JPRB, 0.0453_JPRB, 0.0459_JPRB, 0.0470_JPRB, 0.0487_JPRB,&
+ &0.0453_JPRB, 0.0401_JPRB, 0.0401_JPRB /)
+ZOZCL(:,34,10) = (/&
+ &0.0273_JPRB, 0.0273_JPRB, 0.0336_JPRB, 0.0323_JPRB, 0.0376_JPRB, 0.0347_JPRB, 0.0579_JPRB, 0.0540_JPRB,&
+ &0.0438_JPRB, 0.0563_JPRB, 0.0390_JPRB, 0.0351_JPRB, 0.0453_JPRB, 0.0459_JPRB, 0.0470_JPRB, 0.0487_JPRB,&
+ &0.0453_JPRB, 0.0401_JPRB, 0.0401_JPRB /) 
+
+! Month: 11
+ZOZCL(:, 1,11) = (/&
+ &0.5000_JPRB, 0.5000_JPRB, 0.6000_JPRB, 0.6700_JPRB, 0.7400_JPRB, 0.8200_JPRB, 0.8400_JPRB, 0.7700_JPRB,&
+ &0.7600_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.7700_JPRB, 0.8400_JPRB, 0.9800_JPRB, 0.9700_JPRB, 0.8800_JPRB,&
+ &0.8800_JPRB, 0.7700_JPRB, 0.7700_JPRB /)
+ZOZCL(:, 2,11) = (/&
+ &0.3300_JPRB, 0.3300_JPRB, 0.4100_JPRB, 0.4800_JPRB, 0.5400_JPRB, 0.5900_JPRB, 0.5900_JPRB, 0.5500_JPRB,&
+ &0.5300_JPRB, 0.5500_JPRB, 0.5700_JPRB, 0.5400_JPRB, 0.5400_JPRB, 0.5900_JPRB, 0.5200_JPRB, 0.4500_JPRB,&
+ &0.4500_JPRB, 0.4000_JPRB, 0.4000_JPRB /)
+ZOZCL(:, 3,11) = (/&
+ &0.2400_JPRB, 0.2400_JPRB, 0.3000_JPRB, 0.3700_JPRB, 0.4200_JPRB, 0.4500_JPRB, 0.4500_JPRB, 0.4300_JPRB,&
+ &0.4300_JPRB, 0.4500_JPRB, 0.4700_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.3200_JPRB, 0.2400_JPRB,&
+ &0.2400_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 4,11) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.2200_JPRB, 0.2600_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3300_JPRB, 0.3200_JPRB,&
+ &0.3300_JPRB, 0.3500_JPRB, 0.3700_JPRB, 0.3500_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.2400_JPRB, 0.1700_JPRB,&
+ &0.1800_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
+ZOZCL(:, 5,11) = (/&
+ &0.1500_JPRB, 0.1500_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB,&
+ &0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2200_JPRB,&
+ &0.2200_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
+ZOZCL(:, 6,11) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB,&
+ &0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2400_JPRB, 0.2600_JPRB,&
+ &0.2600_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
+ZOZCL(:, 7,11) = (/&
+ &0.2100_JPRB, 0.2100_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB,&
+ &0.1800_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2400_JPRB, 0.3100_JPRB,&
+ &0.3100_JPRB, 0.2700_JPRB, 0.2700_JPRB /)
+ZOZCL(:, 8,11) = (/&
+ &0.3100_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2600_JPRB,&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.3100_JPRB, 0.3800_JPRB,&
+ &0.3800_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
+ZOZCL(:, 9,11) = (/&
+ &0.4300_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3900_JPRB, 0.3800_JPRB,&
+ &0.3700_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4400_JPRB,&
+ &0.4400_JPRB, 0.3900_JPRB, 0.3900_JPRB /)
+ZOZCL(:,10,11) = (/&
+ &0.5400_JPRB, 0.5400_JPRB, 0.5200_JPRB, 0.5100_JPRB, 0.4900_JPRB, 0.4600_JPRB, 0.4600_JPRB, 0.4600_JPRB,&
+ &0.4600_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.5700_JPRB, 0.5700_JPRB, 0.5800_JPRB, 0.5900_JPRB, 0.5700_JPRB,&
+ &0.5800_JPRB, 0.5100_JPRB, 0.5100_JPRB /)
+ZOZCL(:,11,11) = (/&
+ &0.7400_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7100_JPRB,&
+ &0.7000_JPRB, 0.7000_JPRB, 0.7100_JPRB, 0.7300_JPRB, 0.7000_JPRB, 0.7000_JPRB, 0.7100_JPRB, 0.7900_JPRB,&
+ &0.7900_JPRB, 0.7000_JPRB, 0.7000_JPRB /)
+ZOZCL(:,12,11) = (/&
+ &0.9100_JPRB, 0.9100_JPRB, 0.9100_JPRB, 0.9100_JPRB, 0.9300_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9400_JPRB,&
+ &0.9400_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9500_JPRB, 0.9600_JPRB, 0.9500_JPRB, 0.9100_JPRB, 0.9100_JPRB,&
+ &0.9100_JPRB, 0.8000_JPRB, 0.8000_JPRB /)
+ZOZCL(:,13,11) = (/&
+ &1.2000_JPRB, 1.2000_JPRB, 1.2100_JPRB, 1.2400_JPRB, 1.2800_JPRB, 1.3200_JPRB, 1.3500_JPRB, 1.3800_JPRB,&
+ &1.4000_JPRB, 1.3800_JPRB, 1.3800_JPRB, 1.4100_JPRB, 1.4500_JPRB, 1.4200_JPRB, 1.3700_JPRB, 1.2700_JPRB,&
+ &1.2700_JPRB, 1.1200_JPRB, 1.1200_JPRB /)
+ZOZCL(:,14,11) = (/&
+ &1.5900_JPRB, 1.5900_JPRB, 1.6400_JPRB, 1.7200_JPRB, 1.7900_JPRB, 1.8500_JPRB, 1.9000_JPRB, 1.9400_JPRB,&
+ &1.9800_JPRB, 1.9800_JPRB, 1.9800_JPRB, 1.9600_JPRB, 1.9900_JPRB, 2.0800_JPRB, 2.1900_JPRB, 2.0900_JPRB,&
+ &2.0900_JPRB, 1.8400_JPRB, 1.8400_JPRB /)
+ZOZCL(:,15,11) = (/&
+ &1.8600_JPRB, 1.8600_JPRB, 1.9300_JPRB, 2.0700_JPRB, 2.1500_JPRB, 2.2100_JPRB, 2.2600_JPRB, 2.3000_JPRB,&
+ &2.3600_JPRB, 2.3900_JPRB, 2.3700_JPRB, 2.3100_JPRB, 2.3700_JPRB, 2.6000_JPRB, 2.8700_JPRB, 2.9800_JPRB,&
+ &2.8900_JPRB, 2.4200_JPRB, 2.4200_JPRB /)
+ZOZCL(:,16,11) = (/&
+ &2.4200_JPRB, 2.4200_JPRB, 2.4700_JPRB, 2.6300_JPRB, 2.7200_JPRB, 2.7800_JPRB, 2.8600_JPRB, 2.9400_JPRB,&
+ &3.0200_JPRB, 3.0700_JPRB, 3.0600_JPRB, 3.0400_JPRB, 3.2200_JPRB, 3.6800_JPRB, 4.1400_JPRB, 4.2400_JPRB,&
+ &3.9800_JPRB, 3.2400_JPRB, 3.2400_JPRB /)
+ZOZCL(:,17,11) = (/&
+ &3.3700_JPRB, 3.3700_JPRB, 3.3800_JPRB, 3.5500_JPRB, 3.6400_JPRB, 3.7100_JPRB, 3.8200_JPRB, 3.9400_JPRB,&
+ &4.0200_JPRB, 4.0600_JPRB, 4.0900_JPRB, 4.1900_JPRB, 4.6000_JPRB, 5.3400_JPRB, 5.8700_JPRB, 5.7600_JPRB,&
+ &5.2600_JPRB, 4.1400_JPRB, 4.1400_JPRB /) 
+
+ZOZCL(:,18,11) = (/&
+ &4.3800_JPRB, 4.3800_JPRB, 4.3900_JPRB, 4.5900_JPRB, 4.7100_JPRB, 4.7900_JPRB, 4.8900_JPRB, 5.0100_JPRB,&
+ &5.0400_JPRB, 5.0500_JPRB, 5.0900_JPRB, 5.2600_JPRB, 5.7600_JPRB, 6.4600_JPRB, 6.7700_JPRB, 6.3800_JPRB,&
+ &5.7800_JPRB, 4.5500_JPRB, 4.5500_JPRB /)
+ZOZCL(:,19,11) = (/&
+ &5.9600_JPRB, 5.9600_JPRB, 6.0600_JPRB, 6.3200_JPRB, 6.6100_JPRB, 6.7600_JPRB, 6.8500_JPRB, 6.9000_JPRB,&
+ &6.8100_JPRB, 6.7000_JPRB, 6.7200_JPRB, 6.9200_JPRB, 7.2500_JPRB, 7.4300_JPRB, 7.1800_JPRB, 6.4500_JPRB,&
+ &5.8800_JPRB, 4.7400_JPRB, 4.7400_JPRB /)
+ZOZCL(:,20,11) = (/&
+ &6.3900_JPRB, 6.3900_JPRB, 6.4800_JPRB, 7.1500_JPRB, 7.7700_JPRB, 8.2100_JPRB, 8.5200_JPRB, 8.6800_JPRB,&
+ &8.5100_JPRB, 8.2700_JPRB, 8.2500_JPRB, 8.2200_JPRB, 7.9900_JPRB, 7.5200_JPRB, 6.8200_JPRB, 6.0400_JPRB,&
+ &5.6700_JPRB, 4.2900_JPRB, 4.2900_JPRB /)
+ZOZCL(:,21,11) = (/&
+ &6.0300_JPRB, 6.0300_JPRB, 6.2400_JPRB, 7.0000_JPRB, 7.7200_JPRB, 8.3000_JPRB, 8.8100_JPRB, 9.1800_JPRB,&
+ &9.2600_JPRB, 9.1100_JPRB, 8.9400_JPRB, 8.6200_JPRB, 8.0200_JPRB, 7.1400_JPRB, 6.3300_JPRB, 5.6700_JPRB,&
+ &5.3900_JPRB, 3.8200_JPRB, 3.8200_JPRB /)
+ZOZCL(:,22,11) = (/&
+ &5.5800_JPRB, 5.5800_JPRB, 5.7800_JPRB, 6.5000_JPRB, 7.1600_JPRB, 7.7000_JPRB, 8.4000_JPRB, 8.9800_JPRB,&
+ &9.4400_JPRB, 9.5900_JPRB, 9.2100_JPRB, 8.5300_JPRB, 7.6800_JPRB, 6.5700_JPRB, 5.7600_JPRB, 5.3100_JPRB,&
+ &4.9900_JPRB, 3.4200_JPRB, 3.4200_JPRB /)
+ZOZCL(:,23,11) = (/&
+ &5.2715_JPRB, 5.2715_JPRB, 5.3393_JPRB, 5.9000_JPRB, 6.3100_JPRB, 6.7100_JPRB, 7.2900_JPRB, 7.7600_JPRB,&
+ &8.1600_JPRB, 8.3100_JPRB, 8.0600_JPRB, 7.5100_JPRB, 6.8200_JPRB, 5.9300_JPRB, 5.3900_JPRB, 4.9800_JPRB,&
+ &4.5200_JPRB, 3.1800_JPRB, 3.1800_JPRB /)
+ZOZCL(:,24,11) = (/&
+ &5.0164_JPRB, 5.0164_JPRB, 5.1827_JPRB, 5.2200_JPRB, 5.7300_JPRB, 5.9600_JPRB, 6.3300_JPRB, 6.5700_JPRB,&
+ &6.7500_JPRB, 6.7700_JPRB, 6.6400_JPRB, 6.3600_JPRB, 5.9600_JPRB, 5.3900_JPRB, 5.0500_JPRB, 4.6800_JPRB,&
+ &4.1100_JPRB, 3.0100_JPRB, 3.0100_JPRB /)
+ZOZCL(:,25,11) = (/&
+ &3.8180_JPRB, 3.8180_JPRB, 4.0890_JPRB, 4.4433_JPRB, 4.6700_JPRB, 4.8787_JPRB, 4.7767_JPRB, 4.6600_JPRB,&
+ &4.3413_JPRB, 4.1637_JPRB, 4.3100_JPRB, 4.3700_JPRB, 4.4538_JPRB, 4.5045_JPRB, 4.5130_JPRB, 3.8410_JPRB,&
+ &3.4766_JPRB, 2.9674_JPRB, 2.9674_JPRB /)
+ZOZCL(:,26,11) = (/&
+ &1.8826_JPRB, 1.8826_JPRB, 2.0512_JPRB, 2.7920_JPRB, 2.9240_JPRB, 2.9289_JPRB, 2.2350_JPRB, 2.0200_JPRB,&
+ &1.6868_JPRB, 1.5394_JPRB, 1.6600_JPRB, 1.8100_JPRB, 1.9540_JPRB, 2.4411_JPRB, 2.6708_JPRB, 3.0020_JPRB,&
+ &2.8432_JPRB, 2.9248_JPRB, 2.9248_JPRB /)
+ZOZCL(:,27,11) = (/&
+ &1.0698_JPRB, 1.0698_JPRB, 1.1287_JPRB, 1.9386_JPRB, 1.6729_JPRB, 1.5172_JPRB, 0.8607_JPRB, 0.8600_JPRB,&
+ &0.6016_JPRB, 0.5556_JPRB, 0.6600_JPRB, 0.8100_JPRB, 0.8538_JPRB, 1.3784_JPRB, 1.6005_JPRB, 1.9543_JPRB,&
+ &2.0807_JPRB, 2.1844_JPRB, 2.1844_JPRB /)
+ZOZCL(:,28,11) = (/&
+ &0.5528_JPRB, 0.5528_JPRB, 0.5834_JPRB, 0.8250_JPRB, 0.6770_JPRB, 0.6063_JPRB, 0.1660_JPRB, 0.1592_JPRB,&
+ &0.1180_JPRB, 0.1394_JPRB, 0.1610_JPRB, 0.1603_JPRB, 0.2309_JPRB, 0.5118_JPRB, 0.6898_JPRB, 1.1380_JPRB,&
+ &1.2988_JPRB, 1.4342_JPRB, 1.4342_JPRB /)
+ZOZCL(:,29,11) = (/&
+ &0.3854_JPRB, 0.3854_JPRB, 0.3701_JPRB, 0.3700_JPRB, 0.3027_JPRB, 0.3665_JPRB, 0.1187_JPRB, 0.1093_JPRB,&
+ &0.0550_JPRB, 0.0837_JPRB, 0.0893_JPRB, 0.0756_JPRB, 0.1015_JPRB, 0.2158_JPRB, 0.2926_JPRB, 0.5020_JPRB,&
+ &0.5740_JPRB, 0.6050_JPRB, 0.6050_JPRB /)
+ZOZCL(:,30,11) = (/&
+ &0.2489_JPRB, 0.2489_JPRB, 0.2443_JPRB, 0.2711_JPRB, 0.2035_JPRB, 0.2187_JPRB, 0.0980_JPRB, 0.0910_JPRB,&
+ &0.0491_JPRB, 0.0595_JPRB, 0.0587_JPRB, 0.0516_JPRB, 0.0680_JPRB, 0.1358_JPRB, 0.1652_JPRB, 0.2735_JPRB,&
+ &0.3147_JPRB, 0.3034_JPRB, 0.3034_JPRB /)
+ZOZCL(:,31,11) = (/&
+ &0.0634_JPRB, 0.0634_JPRB, 0.0734_JPRB, 0.0733_JPRB, 0.0687_JPRB, 0.0717_JPRB, 0.0807_JPRB, 0.0749_JPRB,&
+ &0.0420_JPRB, 0.0545_JPRB, 0.0463_JPRB, 0.0464_JPRB, 0.0556_JPRB, 0.0645_JPRB, 0.0703_JPRB, 0.0897_JPRB,&
+ &0.1083_JPRB, 0.0987_JPRB, 0.0987_JPRB /)
+ZOZCL(:,32,11) = (/&
+ &0.0297_JPRB, 0.0297_JPRB, 0.0362_JPRB, 0.0356_JPRB, 0.0432_JPRB, 0.0435_JPRB, 0.0682_JPRB, 0.0645_JPRB,&
+ &0.0441_JPRB, 0.0525_JPRB, 0.0412_JPRB, 0.0434_JPRB, 0.0487_JPRB, 0.0479_JPRB, 0.0513_JPRB, 0.0498_JPRB,&
+ &0.0487_JPRB, 0.0490_JPRB, 0.0490_JPRB /)
+ZOZCL(:,33,11) = (/&
+ &0.0238_JPRB, 0.0238_JPRB, 0.0277_JPRB, 0.0271_JPRB, 0.0351_JPRB, 0.0343_JPRB, 0.0571_JPRB, 0.0542_JPRB,&
+ &0.0375_JPRB, 0.0434_JPRB, 0.0345_JPRB, 0.0362_JPRB, 0.0434_JPRB, 0.0439_JPRB, 0.0445_JPRB, 0.0443_JPRB,&
+ &0.0422_JPRB, 0.0414_JPRB, 0.0414_JPRB /)
+ZOZCL(:,34,11) = (/&
+ &0.0238_JPRB, 0.0238_JPRB, 0.0277_JPRB, 0.0271_JPRB, 0.0351_JPRB, 0.0343_JPRB, 0.0571_JPRB, 0.0542_JPRB,&
+ &0.0375_JPRB, 0.0434_JPRB, 0.0345_JPRB, 0.0362_JPRB, 0.0434_JPRB, 0.0439_JPRB, 0.0445_JPRB, 0.0443_JPRB,&
+ &0.0422_JPRB, 0.0414_JPRB, 0.0414_JPRB /) 
+
+! Month: 12
+ZOZCL(:, 1,12) = (/&
+ &0.5400_JPRB, 0.5400_JPRB, 0.7000_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.7500_JPRB, 0.6600_JPRB, 0.5800_JPRB,&
+ &0.5700_JPRB, 0.5500_JPRB, 0.5200_JPRB, 0.6000_JPRB, 0.7900_JPRB, 0.9400_JPRB, 0.9600_JPRB, 0.9600_JPRB,&
+ &0.8500_JPRB, 0.8200_JPRB, 0.8200_JPRB /)
+ZOZCL(:, 2,12) = (/&
+ &0.2800_JPRB, 0.2800_JPRB, 0.3500_JPRB, 0.4400_JPRB, 0.5200_JPRB, 0.5200_JPRB, 0.4700_JPRB, 0.4400_JPRB,&
+ &0.4500_JPRB, 0.4400_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4900_JPRB, 0.5800_JPRB, 0.5600_JPRB, 0.5700_JPRB,&
+ &0.5000_JPRB, 0.4900_JPRB, 0.4900_JPRB /)
+ZOZCL(:, 3,12) = (/&
+ &0.2000_JPRB, 0.2000_JPRB, 0.2200_JPRB, 0.2700_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3700_JPRB,&
+ &0.4000_JPRB, 0.4100_JPRB, 0.3900_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3700_JPRB, 0.3300_JPRB, 0.3300_JPRB,&
+ &0.2900_JPRB, 0.2800_JPRB, 0.2800_JPRB /)
+ZOZCL(:, 4,12) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2200_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2800_JPRB,&
+ &0.3200_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.3100_JPRB, 0.2600_JPRB, 0.2100_JPRB, 0.2100_JPRB,&
+ &0.1900_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
+ZOZCL(:, 5,12) = (/&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2000_JPRB,&
+ &0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2400_JPRB, 0.2400_JPRB,&
+ &0.2100_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
+ZOZCL(:, 6,12) = (/&
+ &0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1600_JPRB,&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2000_JPRB, 0.2300_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2700_JPRB,&
+ &0.2400_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
+ZOZCL(:, 7,12) = (/&
+ &0.2200_JPRB, 0.2200_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
+ &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2300_JPRB, 0.3100_JPRB, 0.3100_JPRB,&
+ &0.2700_JPRB, 0.2700_JPRB, 0.2700_JPRB /)
+ZOZCL(:, 8,12) = (/&
+ &0.3300_JPRB, 0.3300_JPRB, 0.3000_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2400_JPRB,&
+ &0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2600_JPRB, 0.3000_JPRB, 0.3400_JPRB, 0.3900_JPRB, 0.3900_JPRB,&
+ &0.3400_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
+ZOZCL(:, 9,12) = (/&
+ &0.4300_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3900_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3600_JPRB,&
+ &0.3500_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.4500_JPRB, 0.4900_JPRB, 0.5100_JPRB, 0.5100_JPRB,&
+ &0.4500_JPRB, 0.4400_JPRB, 0.4400_JPRB /)
+ZOZCL(:,10,12) = (/&
+ &0.5800_JPRB, 0.5800_JPRB, 0.5700_JPRB, 0.5200_JPRB, 0.5000_JPRB, 0.4800_JPRB, 0.4900_JPRB, 0.5100_JPRB,&
+ &0.5000_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4900_JPRB, 0.6500_JPRB, 0.7100_JPRB, 0.6900_JPRB, 0.7000_JPRB,&
+ &0.6200_JPRB, 0.6000_JPRB, 0.6000_JPRB /)
+ZOZCL(:,11,12) = (/&
+ &0.7800_JPRB, 0.7800_JPRB, 0.7700_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7700_JPRB, 0.7700_JPRB,&
+ &0.7400_JPRB, 0.7100_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7600_JPRB, 0.8000_JPRB, 0.9900_JPRB, 0.9900_JPRB,&
+ &0.8700_JPRB, 0.8500_JPRB, 0.8500_JPRB /)
+ZOZCL(:,12,12) = (/&
+ &0.9400_JPRB, 0.9400_JPRB, 0.9300_JPRB, 0.9500_JPRB, 0.9500_JPRB, 0.9600_JPRB, 1.0000_JPRB, 1.0100_JPRB,&
+ &0.9600_JPRB, 0.9400_JPRB, 0.9400_JPRB, 0.9700_JPRB, 1.0200_JPRB, 1.0400_JPRB, 1.2500_JPRB, 1.2500_JPRB,&
+ &1.1000_JPRB, 1.0700_JPRB, 1.0700_JPRB /)
+ZOZCL(:,13,12) = (/&
+ &1.2000_JPRB, 1.2000_JPRB, 1.2200_JPRB, 1.2600_JPRB, 1.2900_JPRB, 1.3300_JPRB, 1.3900_JPRB, 1.4200_JPRB,&
+ &1.3900_JPRB, 1.3600_JPRB, 1.3700_JPRB, 1.4200_JPRB, 1.4800_JPRB, 1.5000_JPRB, 1.7800_JPRB, 1.7800_JPRB,&
+ &1.5700_JPRB, 1.5200_JPRB, 1.5200_JPRB /)
+ZOZCL(:,14,12) = (/&
+ &1.4700_JPRB, 1.4700_JPRB, 1.5500_JPRB, 1.6500_JPRB, 1.7700_JPRB, 1.8600_JPRB, 1.9300_JPRB, 1.9700_JPRB,&
+ &1.9800_JPRB, 1.9800_JPRB, 1.9800_JPRB, 1.9700_JPRB, 1.9900_JPRB, 2.0900_JPRB, 1.9400_JPRB, 1.9400_JPRB,&
+ &1.7100_JPRB, 1.6600_JPRB, 1.6600_JPRB /)
+ZOZCL(:,15,12) = (/&
+ &1.6500_JPRB, 1.6500_JPRB, 1.7700_JPRB, 1.9400_JPRB, 2.1000_JPRB, 2.2100_JPRB, 2.2900_JPRB, 2.3400_JPRB,&
+ &2.4000_JPRB, 2.4400_JPRB, 2.4100_JPRB, 2.3500_JPRB, 2.3800_JPRB, 2.5700_JPRB, 2.7100_JPRB, 2.6800_JPRB,&
+ &2.2100_JPRB, 2.1500_JPRB, 2.1500_JPRB /)
+ZOZCL(:,16,12) = (/&
+ &2.1100_JPRB, 2.1100_JPRB, 2.2300_JPRB, 2.4200_JPRB, 2.5700_JPRB, 2.7200_JPRB, 2.8600_JPRB, 2.9900_JPRB,&
+ &3.1100_JPRB, 3.1800_JPRB, 3.1500_JPRB, 3.1300_JPRB, 3.2500_JPRB, 3.6300_JPRB, 3.9200_JPRB, 3.7300_JPRB,&
+ &3.0000_JPRB, 2.9300_JPRB, 2.9300_JPRB /)
+ZOZCL(:,17,12) = (/&
+ &2.9200_JPRB, 2.9200_JPRB, 3.0000_JPRB, 3.1900_JPRB, 3.3400_JPRB, 3.5300_JPRB, 3.7700_JPRB, 4.0100_JPRB,&
+ &4.1800_JPRB, 4.2700_JPRB, 4.2900_JPRB, 4.3500_JPRB, 4.6600_JPRB, 5.2600_JPRB, 5.5900_JPRB, 5.1000_JPRB,&
+ &4.1400_JPRB, 4.0300_JPRB, 4.0300_JPRB /)  
+
+ZOZCL(:,18,12) = (/&
+ &3.9000_JPRB, 3.9000_JPRB, 3.9500_JPRB, 4.1300_JPRB, 4.3100_JPRB, 4.5400_JPRB, 4.8100_JPRB, 5.0800_JPRB,&
+ &5.2500_JPRB, 5.3200_JPRB, 5.3500_JPRB, 5.4500_JPRB, 5.8000_JPRB, 6.3600_JPRB, 6.4900_JPRB, 5.7900_JPRB,&
+ &4.8600_JPRB, 4.7200_JPRB, 4.7200_JPRB /)
+ZOZCL(:,19,12) = (/&
+ &5.6100_JPRB, 5.6100_JPRB, 5.6400_JPRB, 5.8300_JPRB, 6.1600_JPRB, 6.4500_JPRB, 6.7100_JPRB, 6.9600_JPRB,&
+ &7.0400_JPRB, 6.9900_JPRB, 6.9700_JPRB, 7.0200_JPRB, 7.1800_JPRB, 7.3100_JPRB, 6.9200_JPRB, 6.1000_JPRB,&
+ &5.3900_JPRB, 5.2100_JPRB, 5.2100_JPRB /)
+ZOZCL(:,20,12) = (/&
+ &6.2700_JPRB, 6.2700_JPRB, 6.2300_JPRB, 6.8800_JPRB, 7.6200_JPRB, 7.9400_JPRB, 8.4000_JPRB, 8.7500_JPRB,&
+ &8.7200_JPRB, 8.4800_JPRB, 8.1600_JPRB, 7.9900_JPRB, 7.8000_JPRB, 7.3300_JPRB, 6.5300_JPRB, 5.9400_JPRB,&
+ &5.1900_JPRB, 4.9800_JPRB, 4.9800_JPRB /)
+ZOZCL(:,21,12) = (/&
+ &5.7900_JPRB, 5.7900_JPRB, 5.9500_JPRB, 6.8600_JPRB, 7.7600_JPRB, 8.2900_JPRB, 8.8600_JPRB, 9.2900_JPRB,&
+ &9.3700_JPRB, 9.0300_JPRB, 8.6000_JPRB, 8.1500_JPRB, 7.7100_JPRB, 6.9600_JPRB, 6.0900_JPRB, 5.6900_JPRB,&
+ &4.8100_JPRB, 4.6200_JPRB, 4.6200_JPRB /)
+ZOZCL(:,22,12) = (/&
+ &4.9900_JPRB, 4.9900_JPRB, 5.3900_JPRB, 6.3800_JPRB, 7.3500_JPRB, 8.0200_JPRB, 8.6600_JPRB, 9.1400_JPRB,&
+ &9.4500_JPRB, 9.2400_JPRB, 8.6900_JPRB, 7.9100_JPRB, 7.2800_JPRB, 6.4100_JPRB, 5.6000_JPRB, 5.4200_JPRB,&
+ &4.3700_JPRB, 4.2500_JPRB, 4.2500_JPRB /)
+ZOZCL(:,23,12) = (/&
+ &4.6332_JPRB, 4.6332_JPRB, 4.9550_JPRB, 5.8500_JPRB, 6.4400_JPRB, 7.0100_JPRB, 7.5100_JPRB, 7.8800_JPRB,&
+ &8.1500_JPRB, 8.0800_JPRB, 7.6500_JPRB, 7.0200_JPRB, 6.5700_JPRB, 5.9400_JPRB, 5.4200_JPRB, 5.1000_JPRB,&
+ &4.0800_JPRB, 4.0000_JPRB, 4.0000_JPRB /)
+ZOZCL(:,24,12) = (/&
+ &4.8574_JPRB, 4.8574_JPRB, 4.9240_JPRB, 5.4500_JPRB, 5.7500_JPRB, 6.1500_JPRB, 6.4700_JPRB, 6.6400_JPRB,&
+ &6.6900_JPRB, 6.5500_JPRB, 6.3400_JPRB, 6.0500_JPRB, 5.8600_JPRB, 5.5400_JPRB, 5.2300_JPRB, 4.7700_JPRB,&
+ &3.8600_JPRB, 3.7700_JPRB, 3.7700_JPRB /)
+ZOZCL(:,25,12) = (/&
+ &4.7325_JPRB, 4.7325_JPRB, 4.4182_JPRB, 4.3533_JPRB, 4.2633_JPRB, 4.4898_JPRB, 4.5542_JPRB, 4.6100_JPRB,&
+ &4.4068_JPRB, 4.3667_JPRB, 4.3200_JPRB, 4.4100_JPRB, 4.6224_JPRB, 4.8237_JPRB, 4.8392_JPRB, 3.9730_JPRB,&
+ &3.3764_JPRB, 3.4643_JPRB, 3.4643_JPRB /)
+ZOZCL(:,26,12) = (/&
+ &3.0907_JPRB, 3.0907_JPRB, 2.8831_JPRB, 2.4640_JPRB, 2.4420_JPRB, 2.6292_JPRB, 2.1590_JPRB, 2.0700_JPRB,&
+ &1.5686_JPRB, 1.4776_JPRB, 1.5800_JPRB, 1.9000_JPRB, 2.1818_JPRB, 2.7110_JPRB, 3.0231_JPRB, 3.1760_JPRB,&
+ &2.8928_JPRB, 3.1586_JPRB, 3.1586_JPRB /)
+ZOZCL(:,27,12) = (/&
+ &1.7454_JPRB, 1.7454_JPRB, 1.5773_JPRB, 1.6300_JPRB, 1.2857_JPRB, 1.3283_JPRB, 0.7750_JPRB, 0.9300_JPRB,&
+ &0.5321_JPRB, 0.4725_JPRB, 0.6400_JPRB, 0.8800_JPRB, 0.9425_JPRB, 1.5350_JPRB, 1.8095_JPRB, 2.1829_JPRB,&
+ &2.1034_JPRB, 2.3644_JPRB, 2.3644_JPRB /)
+ZOZCL(:,28,12) = (/&
+ &0.7455_JPRB, 0.7455_JPRB, 0.7238_JPRB, 0.8030_JPRB, 0.4890_JPRB, 0.4723_JPRB, 0.1650_JPRB, 0.1559_JPRB,&
+ &0.0825_JPRB, 0.1756_JPRB, 0.1840_JPRB, 0.1397_JPRB, 0.3389_JPRB, 0.6753_JPRB, 0.8529_JPRB, 1.3150_JPRB,&
+ &1.2478_JPRB, 1.4815_JPRB, 1.4815_JPRB /)
+ZOZCL(:,29,12) = (/&
+ &0.3825_JPRB, 0.3825_JPRB, 0.3773_JPRB, 0.3720_JPRB, 0.2427_JPRB, 0.1998_JPRB, 0.1060_JPRB, 0.0997_JPRB,&
+ &0.0485_JPRB, 0.1056_JPRB, 0.1140_JPRB, 0.0693_JPRB, 0.1087_JPRB, 0.2997_JPRB, 0.3720_JPRB, 0.6467_JPRB,&
+ &0.6166_JPRB, 0.6367_JPRB, 0.6367_JPRB /)
+ZOZCL(:,30,12) = (/&
+ &0.2977_JPRB, 0.2977_JPRB, 0.2726_JPRB, 0.2711_JPRB, 0.1600_JPRB, 0.1016_JPRB, 0.0905_JPRB, 0.0847_JPRB,&
+ &0.0374_JPRB, 0.0820_JPRB, 0.0700_JPRB, 0.0536_JPRB, 0.0939_JPRB, 0.1798_JPRB, 0.2019_JPRB, 0.3510_JPRB,&
+ &0.2935_JPRB, 0.3471_JPRB, 0.3471_JPRB /)
+ZOZCL(:,31,12) = (/&
+ &0.0783_JPRB, 0.0783_JPRB, 0.0717_JPRB, 0.0693_JPRB, 0.0600_JPRB, 0.0517_JPRB, 0.0713_JPRB, 0.0676_JPRB,&
+ &0.0371_JPRB, 0.0614_JPRB, 0.0483_JPRB, 0.0488_JPRB, 0.0639_JPRB, 0.0688_JPRB, 0.0764_JPRB, 0.0943_JPRB,&
+ &0.0892_JPRB, 0.1108_JPRB, 0.1108_JPRB /)
+ZOZCL(:,32,12) = (/&
+ &0.0262_JPRB, 0.0262_JPRB, 0.0372_JPRB, 0.0300_JPRB, 0.0378_JPRB, 0.0365_JPRB, 0.0552_JPRB, 0.0530_JPRB,&
+ &0.0373_JPRB, 0.0685_JPRB, 0.0362_JPRB, 0.0437_JPRB, 0.0419_JPRB, 0.0452_JPRB, 0.0515_JPRB, 0.0458_JPRB,&
+ &0.0440_JPRB, 0.0453_JPRB, 0.0453_JPRB /)
+ZOZCL(:,33,12) = (/&
+ &0.0220_JPRB, 0.0220_JPRB, 0.0281_JPRB, 0.0234_JPRB, 0.0307_JPRB, 0.0337_JPRB, 0.0520_JPRB, 0.0494_JPRB,&
+ &0.0280_JPRB, 0.0420_JPRB, 0.0300_JPRB, 0.0379_JPRB, 0.0426_JPRB, 0.0409_JPRB, 0.0453_JPRB, 0.0411_JPRB,&
+ &0.0391_JPRB, 0.0393_JPRB, 0.0393_JPRB /)
+ZOZCL(:,34,12) = (/&
+ &0.0220_JPRB, 0.0220_JPRB, 0.0281_JPRB, 0.0234_JPRB, 0.0307_JPRB, 0.0337_JPRB, 0.0520_JPRB, 0.0494_JPRB,&
+ &0.0280_JPRB, 0.0420_JPRB, 0.0300_JPRB, 0.0379_JPRB, 0.0426_JPRB, 0.0409_JPRB, 0.0453_JPRB, 0.0411_JPRB,&
+ &0.0391_JPRB, 0.0393_JPRB, 0.0393_JPRB /) 
+
+
+! PRESSURE LEVELS FOR O3 CLIMATOLOGY
+
+RPROC = (/&
+            &_ZERO_ &
+           &,                    0.3_JPRB,    _HALF_,    0.7_JPRB,      _ONE_ &
+           &,     1.5_JPRB,    _TWO_,     3._JPRB,     5._JPRB,     7._JPRB,     10._JPRB &
+           &,    15._JPRB,    20._JPRB,    30._JPRB,    50._JPRB,    70._JPRB,    100._JPRB &
+           &,   150._JPRB,   200._JPRB,   300._JPRB,   500._JPRB,   700._JPRB,   1000._JPRB &
+           &,  1500._JPRB,  2000._JPRB,  3000._JPRB,  5000._JPRB,  7000._JPRB,  10000._JPRB &
+           &, 15000._JPRB, 20000._JPRB, 30000._JPRB, 50000._JPRB, 70000._JPRB, 100000._JPRB &
+           &,                                         110000._JPRB &
+           &/)
+
+!     ------------------------------------------------------------------
+
+!*         1.     TIME INDEX WITHIN OZONE CLIMATOLOGY
+!                 -----------------------------------
+
+
+IDY=NDD(KINDAT)-1
+IMN=NMM(KINDAT)
+IF (IMN == 1) THEN
+  ZXTIME=REAL(IDY,KIND(ZXTIME))*1440._JPRB + KMINUT
+ELSEIF (IMN == 2) THEN
+  IF(IDY == 28) IDY=IDY-1
+! A DAY IN FEB. IS 28.25*24*60/28=1452.8571min LONG.
+  ZXTIME=44640._JPRB+REAL(IDY,KIND(ZXTIME))*1452.8571_JPRB+KMINUT
+ELSE
+  ZXTIME=(ZMDAY(IMN-1)+REAL(IDY,KIND(ZXTIME)))*1440._JPRB+KMINUT
+ENDIF
+! 525960=MINUTES IN A SIDERAL YEAR (365.25d)
+ZXTIME=MOD(ZXTIME,525960._JPRB)
+
+IM1=0
+IM2=0
+IF (ZXTIME <= ZYTIME(1)) THEN
+  IM1=12
+  IM2=1
+  ZTIMI=(ZYTIME(1)-ZXTIME)/44640._JPRB
+ELSEIF(ZXTIME > ZYTIME(12)) THEN
+  IM1=12
+  IM2=1
+  ZTIMI=(548280._JPRB-ZXTIME)/44640._JPRB
+! 548280.=(365.25d + 15.5d)*24*60
+ELSE
+  DO IM=1,11
+    IF (ZXTIME > ZYTIME(IM) .AND. ZXTIME <= ZYTIME(IM+1)) THEN
+      IM1=IM
+      IM2=IM+1
+      ZTIMI=(ZXTIME-ZYTIME(IM2))/(ZYTIME(IM1)-ZYTIME(IM2))
+    ENDIF
+  ENDDO
+  IF (IM1 == 0.OR. IM2 == 0 ) THEN
+!    CALL ABOR1('Problem with time interpolation in suecozc!')
+    PRINT *,'Problem with time interpolation in suecozc!'
+    STOP
+  ENDIF
+ENDIF
+
+
+!*         2.0    TIME INTERPOLATED FIELD
+!                 -----------------------
+
+
+!*( Field is also transformed in kg/kg! )
+
+DO JL=1,19
+  DO JK=1,34
+    ROZT(JL,JK)=RO3 * (ZOZCL(JL,JK,IM2)&
+     &+ZTIMI*(ZOZCL(JL,JK,IM1)-ZOZCL(JL,JK,IM2)))
+  ENDDO
+  ROZT(JL, 0)=_ZERO_
+  ROZT(JL,35)=ROZT(JL,34)
+ENDDO
+
+
+!     VECTOR OF LATITUDES FOR OZONE CLIMATOLOGY:
+
+DO JL=1,19
+  RSINC(JL)=SIN((-90._JPRB+(JL-1)*10._JPRB)*RPI/180._JPRB)
+ENDDO
+
+RETURN
+END SUBROUTINE SUECOZC
Index: LMDZ5/branches/testing/libf/phymar/suecozo.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suecozo.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suecozo.F90	(revision 2160)
@@ -0,0 +1,239 @@
+SUBROUTINE SUECOZO (PYTIME)
+
+!**** *SUECOZO* - FOR THE YEARLY CYCLE OF THE OZONE DISTIBUTION.
+
+!     J.F.GELEYN     E.C.M.W.F.     03/06/82.
+
+!     J.-J. MORCRETTE               93/03/22   ADAPTATION TO I.F.S.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES INSTANTANEOUS VALUES OF A T5 SPETRAL
+!     DISTRIBUTION FOR TWO OZONE PARAMETERS (TOTAL QUANTITY AND PRESSURE
+!     AT THE MAXIMUM OF CONCENTRATION,BOTH IN *PASCAL) FROM THE TIME
+!     OF THE YEAR (SEE *UPDTIER*).
+
+!**   INTERFACE.
+!     ----------
+
+!          *OZONE* IS CALLED FROM *PHYSC* AT THE FIRST LATITUDE ROW AT
+!     THE TIME OF A FULL RADIATION COMPUTATION.
+!          THERE ARE FIVE DUMMY ARGUMENTS: *PYTIME* IS THE TIME OF THE
+!     YEAR (IN RADIANS).
+!                                          *POZQC*, *POZQS*, *POZHC* AND
+!     *POZHS* ARE ARRAYS FOR THE T5 DISTRIBUTIONS (*Q FOR QUANTITY, *H
+!     FOR HEIGHT, *C FOR COSINE AND *S FOR SINE).
+
+!     METHOD.
+!     -------
+
+!          STAIGHTFORWARD, A SECOND ORDER *FOURIER DEVELOPMENT FOR THE
+!     TIME OF THE YEAR.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOEOZOC  , ONLY : COZQC    ,COZQS    ,COZHC    ,COZHS
+
+
+IMPLICIT NONE
+
+
+!     DUMMY REAL SCALARS
+REAL_B :: PYTIME
+
+
+!     ------------------------------------------------------------------
+
+!*    DATA STATEMENTS.
+!     ---- -----------
+
+!          *ZOZ Q/H C/S N* (N=0,4) CORRESPONDS TO THE *POZ Q/H C/S*
+!     (SEE ABOVE) AND TO THE FIVE TERMS OF THE *FOURIER DEVELOPMENT.
+
+REAL_B ,DIMENSION(21) :: ZOZQC0=(/&
+&+.6012E-01_JPRB,+.1887E-02_JPRB,+.7410E-02_JPRB,+.9950E-03_JPRB,-.1426E-02_JPRB,-.2072E-03_JPRB,&
+          &-.4954E-03_JPRB,+.7955E-05_JPRB,-.3701E-03_JPRB,+.4116E-04_JPRB,-.4163E-04_JPRB,&
+                     &-.2933E-03_JPRB,+.2154E-04_JPRB,-.2849E-03_JPRB,-.1604E-03_JPRB,&
+                                &-.1054E-03_JPRB,+.4974E-03_JPRB,+.1047E-03_JPRB,&
+                                           &+.8323E-04_JPRB,+.2874E-03_JPRB,&
+                                                      &+.1333E-03_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZQS0=(/&
+           &+.4210E-03_JPRB,-.9591E-03_JPRB,+.2811E-03_JPRB,-.2257E-03_JPRB,-.1713E-03_JPRB,&
+                      &-.3538E-03_JPRB,+.1095E-03_JPRB,-.4390E-03_JPRB,-.5605E-05_JPRB,&
+                                 &+.1478E-03_JPRB,+.2849E-03_JPRB,+.3430E-03_JPRB,&
+                                            &+.8248E-04_JPRB,+.1442E-03_JPRB,&
+                                                      &-.1375E-04_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZHC0=(/&
+&+.3166E+04_JPRB,+.8663E+02_JPRB,+.9401E+03_JPRB,+.1999E+02_JPRB,-.3530E+03_JPRB,-.3311E+02_JPRB,&
+           &-.4903E+02_JPRB,-.4015E+00_JPRB,-.1333E+02_JPRB,+.5675E+01_JPRB,+.7221E+01_JPRB,&
+                      &-.3001E+02_JPRB,+.7570E+01_JPRB,-.1142E+02_JPRB,-.1365E+02_JPRB,&
+                                 &-.1502E+02_JPRB,+.4911E+02_JPRB,+.1425E+02_JPRB,&
+                                            &+.8983E+01_JPRB,+.3064E+02_JPRB,&
+                                                      &+.1693E+02_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZHS0=(/&
+           &+.4231E+02_JPRB,-.7391E+02_JPRB,+.1273E+02_JPRB,+.2086E+02_JPRB,-.1597E+02_JPRB,&
+                      &-.3591E+02_JPRB,+.1059E+02_JPRB,-.2779E+02_JPRB,-.6923E+01_JPRB,&
+                                 &+.1397E+02_JPRB,+.2387E+02_JPRB,+.2883E+02_JPRB,&
+                                            &+.8626E+01_JPRB,+.1607E+02_JPRB,&
+                                                      &-.2676E+01_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZQC1=(/&
+&+.7090E-04_JPRB,+.4930E-05_JPRB,+.6829E-03_JPRB,+.1897E-03_JPRB,+.7226E-04_JPRB,-.2807E-03_JPRB,&
+           &+.4970E-04_JPRB,-.1753E-03_JPRB,-.7843E-04_JPRB,-.1649E-03_JPRB,-.1037E-03_JPRB,&
+                      &-.4830E-04_JPRB,-.6304E-04_JPRB,-.1100E-03_JPRB,-.7952E-04_JPRB,&
+                                 &+.1326E-04_JPRB,+.2599E-04_JPRB,+.9926E-05_JPRB,&
+                                            &-.9247E-05_JPRB,-.3521E-05_JPRB,&
+                                                      &-.1780E-04_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZQS1=(/&
+           &+.6333E-04_JPRB,+.1145E-03_JPRB,+.1192E-03_JPRB,+.4934E-04_JPRB,+.2699E-04_JPRB,&
+                      &+.3684E-04_JPRB,-.2395E-05_JPRB,+.2045E-04_JPRB,-.8684E-04_JPRB,&
+                                 &+.5301E-04_JPRB,-.4176E-05_JPRB,+.4103E-04_JPRB,&
+                                            &+.2783E-04_JPRB,+.1754E-04_JPRB,&
+                                                      &+.1116E-04_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZHC1=(/&
+&-.3450E+02_JPRB,+.2148E+03_JPRB,+.3376E+02_JPRB,+.6535E+02_JPRB,-.1564E+02_JPRB,-.4273E+02_JPRB,&
+           &+.9553E+01_JPRB,-.4647E+01_JPRB,-.6129E+01_JPRB,-.6727E+01_JPRB,-.6761E+01_JPRB,&
+                      &-.2467E+01_JPRB,-.2181E+01_JPRB,-.5361E+01_JPRB,-.2395E+01_JPRB,&
+                                 &+.5952E+00_JPRB,+.2106E+01_JPRB,-.1367E+01_JPRB,&
+                                            &-.2349E+01_JPRB,+.3532E+00_JPRB,&
+                                                      &-.3169E+01_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZHS1=(/&
+           &+.3977E+01_JPRB,+.5032E+01_JPRB,+.6226E+01_JPRB,-.3625E+00_JPRB,-.1373E+01_JPRB,&
+                      &+.4600E+01_JPRB,+.4312E+01_JPRB,+.2882E+01_JPRB,-.6351E+01_JPRB,&
+                                 &+.5731E+01_JPRB,-.2574E+01_JPRB,+.3235E+00_JPRB,&
+                                            &+.2806E+01_JPRB,+.8133E+00_JPRB,&
+                                                      &+.2032E+01_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZQC2=(/&
+&+.8571E-03_JPRB,+.3086E-02_JPRB,+.9287E-03_JPRB,+.2787E-03_JPRB,+.1826E-03_JPRB,-.1006E-03_JPRB,&
+           &+.1092E-03_JPRB,-.1266E-03_JPRB,+.5372E-04_JPRB,-.1188E-03_JPRB,-.3285E-04_JPRB,&
+                      &-.1783E-04_JPRB,-.3018E-05_JPRB,-.8709E-04_JPRB,-.8707E-04_JPRB,&
+                                 &+.8633E-04_JPRB,+.3530E-04_JPRB,+.4863E-04_JPRB,&
+                                            &+.3917E-05_JPRB,-.3252E-04_JPRB,&
+                                                      &-.1936E-06_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZQS2=(/&
+           &-.8822E-04_JPRB,+.1341E-03_JPRB,+.3095E-04_JPRB,+.8230E-04_JPRB,+.2735E-04_JPRB,&
+                      &+.1714E-04_JPRB,-.9406E-04_JPRB,+.1912E-04_JPRB,-.5402E-04_JPRB,&
+                                 &+.3571E-04_JPRB,+.3897E-04_JPRB,+.4487E-04_JPRB,&
+                                            &+.3079E-04_JPRB,+.3196E-04_JPRB,&
+                                                      &-.2391E-05_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZHC2=(/&
+&+.5216E+02_JPRB,+.1613E+03_JPRB,+.3284E+02_JPRB,-.7670E+02_JPRB,-.9548E+01_JPRB,+.1608E+02_JPRB,&
+           &+.1023E+02_JPRB,-.1090E+02_JPRB,+.2748E+01_JPRB,-.3846E+01_JPRB,-.4135E+01_JPRB,&
+                      &+.1255E+01_JPRB,-.3301E-01_JPRB,-.5273E+01_JPRB,-.7247E+01_JPRB,&
+                                 &+.1387E+02_JPRB,+.4184E+01_JPRB,+.6495E+01_JPRB,&
+                                            &+.2944E+01_JPRB,-.1947E+01_JPRB,&
+                                                      &+.1132E+01_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZHS2=(/&
+           &-.1968E+02_JPRB,+.1192E+02_JPRB,-.1194E+01_JPRB,+.1084E+01_JPRB,+.2946E+01_JPRB,&
+                      &+.2630E+01_JPRB,-.1256E+02_JPRB,+.1395E+01_JPRB,-.2222E+01_JPRB,&
+                                 &+.4864E+01_JPRB,+.6450E+01_JPRB,+.5568E+01_JPRB,&
+                                            &+.5292E+01_JPRB,+.4876E+01_JPRB,&
+                                                      &-.7579E+00_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZQC3=(/&
+&-.2759E-03_JPRB,-.2781E-03_JPRB,-.1087E-03_JPRB,-.1633E-03_JPRB,-.3627E-04_JPRB,-.4242E-04_JPRB,&
+           &+.6045E-05_JPRB,-.1703E-04_JPRB,+.4562E-04_JPRB,-.1009E-04_JPRB,+.2663E-04_JPRB,&
+                      &-.1786E-04_JPRB,+.1550E-04_JPRB,-.9135E-06_JPRB,+.2372E-04_JPRB,&
+                                 &+.1100E-05_JPRB,+.2299E-04_JPRB,+.4659E-05_JPRB,&
+                                            &+.2423E-05_JPRB,+.7321E-05_JPRB,&
+                                                      &+.8852E-05_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZQS3=(/&
+           &-.3678E-04_JPRB,-.2219E-04_JPRB,-.3911E-04_JPRB,-.4398E-04_JPRB,-.1142E-04_JPRB,&
+                      &-.9121E-05_JPRB,-.2011E-04_JPRB,+.4711E-06_JPRB,-.3775E-05_JPRB,&
+                                 &+.3866E-05_JPRB,+.2400E-04_JPRB,+.2043E-04_JPRB,&
+                                            &-.1824E-05_JPRB,-.5550E-05_JPRB,&
+                                                      &+.2506E-05_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZHC3=(/&
+&-.1534E+03_JPRB,-.2095E+02_JPRB,-.1006E+03_JPRB,-.7385E+01_JPRB,+.5203E+01_JPRB,+.9434E+00_JPRB,&
+           &-.3814E+00_JPRB,-.3175E+01_JPRB,+.3366E+01_JPRB,+.3378E+00_JPRB,+.2740E+00_JPRB,&
+                      &-.2669E+01_JPRB,+.8452E+00_JPRB,+.3498E+00_JPRB,+.2192E+01_JPRB,&
+                                 &-.4024E+00_JPRB,+.1544E+01_JPRB,-.4588E+00_JPRB,&
+                                            &+.6998E+00_JPRB,+.6263E+00_JPRB,&
+                                                      &+.1228E+01_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZHS3=(/&
+           &-.3588E+01_JPRB,+.2076E+00_JPRB,-.2088E+01_JPRB,-.4159E+01_JPRB,+.2244E+00_JPRB,&
+                      &-.7751E+00_JPRB,-.2749E+01_JPRB,+.7234E+00_JPRB,+.4390E+00_JPRB,&
+                                 &-.1646E+00_JPRB,+.1700E+01_JPRB,+.1046E+01_JPRB,&
+                                            &-.7856E+00_JPRB,-.1644E+01_JPRB,&
+                                                      &+.2648E+00_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZQC4=(/&
+&-.1460E-03_JPRB,+.3422E-03_JPRB,-.3529E-04_JPRB,+.1791E-03_JPRB,-.1917E-03_JPRB,-.2558E-04_JPRB,&
+           &+.6547E-04_JPRB,+.6401E-04_JPRB,+.4823E-04_JPRB,+.7084E-05_JPRB,+.2895E-04_JPRB,&
+                      &-.1561E-04_JPRB,+.8179E-06_JPRB,+.1028E-04_JPRB,-.7667E-05_JPRB,&
+                                 &-.4347E-05_JPRB,+.7293E-05_JPRB,-.5735E-05_JPRB,&
+                                            &+.7838E-05_JPRB,-.2933E-05_JPRB,&
+                                                      &+.3686E-05_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZQS4=(/&
+           &-.4560E-05_JPRB,-.5292E-04_JPRB,-.1252E-04_JPRB,+.1850E-04_JPRB,-.2273E-04_JPRB,&
+                      &+.6552E-05_JPRB,+.1422E-04_JPRB,-.6545E-05_JPRB,+.7998E-06_JPRB,&
+                                 &+.2845E-04_JPRB,+.2497E-04_JPRB,+.2844E-04_JPRB,&
+                                            &+.3855E-06_JPRB,-.1487E-04_JPRB,&
+                                                      &+.1954E-05_JPRB/)
+REAL_B ,DIMENSION(21) :: ZOZHC4=(/&
+&+.9260E+01_JPRB,-.9055E+01_JPRB,+.5460E+01_JPRB,-.7603E+01_JPRB,-.3329E+02_JPRB,-.1048E+02_JPRB,&
+           &+.9328E+01_JPRB,+.4597E+01_JPRB,+.3827E+01_JPRB,-.3201E+01_JPRB,+.1708E+01_JPRB,&
+                      &-.1548E+01_JPRB,-.5323E+00_JPRB,+.3039E+01_JPRB,+.5740E+00_JPRB,&
+                                 &+.1353E+00_JPRB,-.2354E+01_JPRB,+.2818E+00_JPRB,&
+                                            &+.1113E+01_JPRB,-.1891E+01_JPRB,&
+                                                      &-.3074E+00_JPRB/)
+REAL_B ,DIMENSION(15) :: ZOZHS4=(/&
+           &-.2446E+01_JPRB,+.4199E+01_JPRB,-.2571E+01_JPRB,+.8194E+01_JPRB,+.4206E+00_JPRB,&
+                      &+.3856E+01_JPRB,+.1159E+01_JPRB,+.2547E+01_JPRB,-.1314E+01_JPRB,&
+                                 &+.2331E+01_JPRB,+.1144E+01_JPRB,-.4408E+00_JPRB,&
+                                            &-.6797E+00_JPRB,-.2598E+01_JPRB,&
+                                                      &+.8953E+00_JPRB/)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JMN
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZC1YT, ZC2YT, ZS1YT, ZS2YT, ZYTIME
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     PRELIMINARY SETTING.
+!                 ----------- --------
+
+
+ZYTIME=PYTIME
+
+!     ------------------------------------------------------------------
+
+!*         2.     COMPUTATIONS.
+!                 -------------
+
+
+ZC1YT=COS(ZYTIME)
+ZS1YT=SIN(ZYTIME)
+ZC2YT=ZC1YT**2-ZS1YT**2
+ZS2YT=_TWO_*ZS1YT*ZC1YT
+DO JMN=1,21
+  COZQC(JMN)=ZOZQC0(JMN)+_TWO_*(ZOZQC1(JMN)*ZC1YT+ZOZQC2(JMN)*ZS1YT &
+   &+ZOZQC3(JMN)*ZC2YT+ZOZQC4(JMN)*ZS2YT)
+  COZHC(JMN)=ZOZHC0(JMN)+_TWO_*(ZOZHC1(JMN)*ZC1YT+ZOZHC2(JMN)*ZS1YT &
+   &+ZOZHC3(JMN)*ZC2YT+ZOZHC4(JMN)*ZS2YT)
+ENDDO
+DO JMN=1,15
+  COZQS(JMN)=ZOZQS0(JMN)+_TWO_*(ZOZQS1(JMN)*ZC1YT+ZOZQS2(JMN)*ZS1YT &
+   &+ZOZQS3(JMN)*ZC2YT+ZOZQS4(JMN)*ZS2YT)
+  COZHS(JMN)=ZOZHS0(JMN)+_TWO_*(ZOZHS1(JMN)*ZC1YT+ZOZHS2(JMN)*ZS1YT &
+   &+ZOZHS3(JMN)*ZC2YT+ZOZHS4(JMN)*ZS2YT)
+ENDDO
+!     ------------------------------------------------------------------
+
+
+
+RETURN
+END SUBROUTINE SUECOZO
Index: LMDZ5/branches/testing/libf/phymar/sulw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sulw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sulw.F90	(revision 2160)
@@ -0,0 +1,1289 @@
+SUBROUTINE SULW
+
+!**** *SULW*   - INITIALIZE COMMON YOELW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SULW
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOELW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,NIPD2    ,&
+            &NTR      ,NTRA     ,NUA      ,NG1      ,NG1P1    ,&
+            &ALWT     ,BLWT     ,RNTNU    ,PDGA     ,PDGB     ,&
+            &RO3T     ,RO1H     ,RO2H     ,RPIALF0  ,RT1      ,&
+            &TINTP    ,TREF     ,TSTAND   ,TSTP     ,WG1      ,&
+            &XP       ,RVGCO2   ,RVGH2O   ,RVGO3
+
+
+IMPLICIT NONE
+
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES.
+!              -----------
+
+NG1=2
+NG1P1=NG1+1
+NSIL=6
+NIPD=8
+NIPD2=2*NIPD
+NTR=11
+NTRA=15
+NUA=24
+
+
+!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
+
+RVGCO2= 60._JPRB
+RVGH2O= 30._JPRB
+RVGO3 =400._JPRB
+
+
+
+
+
+!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
+!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
+TSTAND = 250.0_JPRB
+TREF   = 250.0_JPRB
+
+!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
+RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
+WG1 = (/  _ONE_        ,  _ONE_         /)
+
+!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
+TSTP = 12.5_JPRB
+MXIXT= 10
+
+!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
+TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB,  &
+ &250._JPRB,&
+           &262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
+
+XP( :, 1) = (/&
+ &0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
+ &0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)
+XP( :, 2) = (/&
+ &0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
+&-0.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)
+XP( :, 3) = (/&
+ &0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
+ &0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)
+XP( :, 4) = (/&
+ &0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
+ &0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)
+XP( :, 5) = (/&
+ &0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
+&-0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)
+XP( :, 6) = (/&
+ &0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
+ &0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
+!     THE ABSORPTION
+ALWT(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
+BLWT(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
+ALWT(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
+BLWT(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
+ALWT(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
+BLWT(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
+ALWT(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
+BLWT(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
+ALWT(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
+BLWT(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
+ALWT(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
+BLWT(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
+ALWT(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
+BLWT(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
+ALWT(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
+BLWT(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
+
+!--  COEFFICIENTS FOR OZONE ABSORPTION
+RO1H = 2230._JPRB
+RO2H = 100._JPRB
+RPIALF0 = 2._JPRB
+RO3T(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
+
+!--  COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
+
+RNTNU(:) = (/   70.0_JPRB, 26.77_JPRB, 8.45_JPRB, 5.78_JPRB  /)
+
+!-----------------------------------------------------------------------
+!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
+!  ==========================================
+!-----------------------------------------------------------------------
+!-- WATER VAPOR -- INT.1 -- 0- 500 CM-1 -- FROM ABS225 ----------------
+
+
+
+
+!-- R.D. -- G = - 0.2 SLA
+
+
+!----- INTERVAL = 1 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 1, 1,:) = (/&
+ &0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 1,:) = (/&
+ &0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 2,:) = (/&
+ &0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 2,:) = (/&
+ &0.77266491E-02_JPRB, 0.10681591E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 2, 1,:) = (/&
+ &0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 1,:) = (/&
+ &0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 2,:) = (/&
+ &0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 2,:) = (/&
+ &0.81323287E-02_JPRB, 0.10921298E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 3, 1,:) = (/&
+ &0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 1,:) = (/&
+ &0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 2,:) = (/&
+ &0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 2,:) = (/&
+ &0.86507620E-02_JPRB, 0.11198225E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 4, 1,:) = (/&
+ &0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 1,:) = (/&
+ &0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 2,:) = (/&
+ &0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 2,:) = (/&
+ &0.92776391E-02_JPRB, 0.11487826E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 5, 1,:) = (/&
+ &0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 1,:) = (/&
+ &0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 2,:) = (/&
+ &0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 2,:) = (/&
+ &0.99806312E-02_JPRB, 0.11751113E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 6, 1,:) = (/&
+ &0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 1,:) = (/&
+ &0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 2,:) = (/&
+ &0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 2,:) = (/&
+ &0.10709803E-01_JPRB, 0.11951535E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 7, 1,:) = (/&
+ &0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 1,:) = (/&
+ &0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 2,:) = (/&
+ &0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 2,:) = (/&
+ &0.11414739E-01_JPRB, 0.12069945E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 8, 1,:) = (/&
+ &0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 1,:) = (/&
+ &0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 2,:) = (/&
+ &0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 2,:) = (/&
+ &0.12058772E-01_JPRB, 0.12108524E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 9, 1,:) = (/&
+ &0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 1,:) = (/&
+ &0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 2,:) = (/&
+ &0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 2,:) = (/&
+ &0.12623992E-01_JPRB, 0.12084229E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(10, 1,:) = (/&
+ &0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 1,:) = (/&
+ &0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 2,:) = (/&
+ &0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 2,:) = (/&
+ &0.13108146E-01_JPRB, 0.12019005E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(11, 1,:) = (/&
+ &0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 1,:) = (/&
+ &0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 2,:) = (/&
+ &0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 2,:) = (/&
+ &0.13518390E-01_JPRB, 0.11932684E+00_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+!--- WATER VAPOR --- INTERVAL 2 -- 500-800 CM-1--- FROM ABS225 ---------
+
+
+
+
+!--- R.D.  ---  G = 0.02 + 0.50 / ( 1 + 4.5 U )
+
+
+!----- INTERVAL = 2 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 1, 3,:) = (/&
+ &0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 3,:) = (/&
+ &0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 4,:) = (/&
+ &0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 4,:) = (/&
+ &0.12006968E+01_JPRB, 0.10626130E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 2, 3,:) = (/&
+ &0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 3,:) = (/&
+ &0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 4,:) = (/&
+ &0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 4,:) = (/&
+ &0.12108196E+01_JPRB, 0.10716026E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 3, 3,:) = (/&
+ &0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 3,:) = (/&
+ &0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 4,:) = (/&
+ &0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 4,:) = (/&
+ &0.12196717E+01_JPRB, 0.10795108E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 4, 3,:) = (/&
+ &0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 3,:) = (/&
+ &0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 4,:) = (/&
+ &0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 4,:) = (/&
+ &0.12274493E+01_JPRB, 0.10865006E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 5, 3,:) = (/&
+ &0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 3,:) = (/&
+ &0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 4,:) = (/&
+ &0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 4,:) = (/&
+ &0.12343189E+01_JPRB, 0.10927103E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 6, 3,:) = (/&
+ &0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 3,:) = (/&
+ &0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 4,:) = (/&
+ &0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 4,:) = (/&
+ &0.12404147E+01_JPRB, 0.10982489E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 7, 3,:) = (/&
+ &0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 3,:) = (/&
+ &0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 4,:) = (/&
+ &0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 4,:) = (/&
+ &0.12458431E+01_JPRB, 0.11032019E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 8, 3,:) = (/&
+ &0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 3,:) = (/&
+ &0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 4,:) = (/&
+ &0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 4,:) = (/&
+ &0.12506907E+01_JPRB, 0.11076379E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 9, 3,:) = (/&
+ &0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 3,:) = (/&
+ &0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 4,:) = (/&
+ &0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 4,:) = (/&
+ &0.12550299E+01_JPRB, 0.11116160E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA(10, 3,:) = (/&
+ &0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 3,:) = (/&
+ &0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 4,:) = (/&
+ &0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 4,:) = (/&
+ &0.12589256E+01_JPRB, 0.11151910E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA(11, 3,:) = (/&
+ &0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 3,:) = (/&
+ &0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 4,:) = (/&
+ &0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 4,:) = (/&
+ &0.12624402E+01_JPRB, 0.11184188E+01_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+
+
+
+!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 -- FIT FROM 215 IS -
+
+
+!-- WATER VAPOR LINES IN THE WINDOW REGION (800-1250 CM-1)
+
+
+
+!--- G = 3.875E-03 ---------------
+
+!----- INTERVAL = 3 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 1, 7,:) = (/&
+ &0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 7,:) = (/&
+ &0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 8,:) = (/&
+ &0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 8,:) = (/&
+ &0.92439050E+01_JPRB, 0.79342219E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 2, 7,:) = (/&
+ &0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 7,:) = (/&
+ &0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 8,:) = (/&
+ &0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 8,:) = (/&
+ &0.87567422E+01_JPRB, 0.77373458E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 3, 7,:) = (/&
+ &0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 7,:) = (/&
+ &0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 8,:) = (/&
+ &0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 8,:) = (/&
+ &0.83270144E+01_JPRB, 0.75467334E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 4, 7,:) = (/&
+ &0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 7,:) = (/&
+ &0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 8,:) = (/&
+ &0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 8,:) = (/&
+ &0.79528337E+01_JPRB, 0.73661786E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 5, 7,:) = (/&
+ &0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 7,:) = (/&
+ &0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 8,:) = (/&
+ &0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 8,:) = (/&
+ &0.76286839E+01_JPRB, 0.71974319E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 6, 7,:) = (/&
+ &0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 7,:) = (/&
+ &0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 8,:) = (/&
+ &0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 8,:) = (/&
+ &0.73477879E+01_JPRB, 0.70408543E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 7, 7,:) = (/&
+ &0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 7,:) = (/&
+ &0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 8,:) = (/&
+ &0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 8,:) = (/&
+ &0.71035818E+01_JPRB, 0.68960649E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 8, 7,:) = (/&
+ &0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 7,:) = (/&
+ &0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 8,:) = (/&
+ &0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 8,:) = (/&
+ &0.68903312E+01_JPRB, 0.67623672E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 9, 7,:) = (/&
+ &0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 7,:) = (/&
+ &0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 8,:) = (/&
+ &0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 8,:) = (/&
+ &0.67032875E+01_JPRB, 0.66389989E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA(10, 7,:) = (/&
+ &0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 7,:) = (/&
+ &0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 8,:) = (/&
+ &0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 8,:) = (/&
+ &0.65386461E+01_JPRB, 0.65252707E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA(11, 7,:) = (/&
+ &0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 7,:) = (/&
+ &0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 8,:) = (/&
+ &0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 8,:) = (/&
+ &0.63934377E+01_JPRB, 0.64206412E+01_JPRB, 0.10000000E+01_JPRB/)
+
+
+!-- WATER VAPOR -- 970-1110 CM-1 ----------------------------------------
+
+!-- G = 3.6E-03
+
+!----- INTERVAL = 4 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 1, 9,:) = (/&
+ &0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 9,:) = (/&
+ &0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,10,:) = (/&
+ &0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,10,:) = (/&
+ &0.24586283E+02_JPRB, 0.10605856E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 2, 9,:) = (/&
+ &0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 9,:) = (/&
+ &0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,10,:) = (/&
+ &0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,10,:) = (/&
+ &0.24441465E+02_JPRB, 0.10579514E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 3, 9,:) = (/&
+ &0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 9,:) = (/&
+ &0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,10,:) = (/&
+ &0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,10,:) = (/&
+ &0.24311657E+02_JPRB, 0.10555632E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 4, 9,:) = (/&
+ &0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 9,:) = (/&
+ &0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,10,:) = (/&
+ &0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,10,:) = (/&
+ &0.24196167E+02_JPRB, 0.10534169E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 5, 9,:) = (/&
+ &0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 9,:) = (/&
+ &0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,10,:) = (/&
+ &0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,10,:) = (/&
+ &0.24093406E+02_JPRB, 0.10514900E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 6, 9,:) = (/&
+ &0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 9,:) = (/&
+ &0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,10,:) = (/&
+ &0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,10,:) = (/&
+ &0.24001597E+02_JPRB, 0.10497547E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 7, 9,:) = (/&
+ &0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 9,:) = (/&
+ &0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,10,:) = (/&
+ &0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,10,:) = (/&
+ &0.23919098E+02_JPRB, 0.10481842E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 8, 9,:) = (/&
+ &0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 9,:) = (/&
+ &0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,10,:) = (/&
+ &0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,10,:) = (/&
+ &0.23844511E+02_JPRB, 0.10467553E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA( 9, 9,:) = (/&
+ &0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 9,:) = (/&
+ &0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,10,:) = (/&
+ &0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,10,:) = (/&
+ &0.23776708E+02_JPRB, 0.10454488E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA(10, 9,:) = (/&
+ &0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 9,:) = (/&
+ &0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,10,:) = (/&
+ &0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,10,:) = (/&
+ &0.23714816E+02_JPRB, 0.10442501E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+PDGA(11, 9,:) = (/&
+ &0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 9,:) = (/&
+ &0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,10,:) = (/&
+ &0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,10,:) = (/&
+ &0.23658197E+02_JPRB, 0.10431483E+02_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+!-- H2O -- WEAKER PARTS OF THE STRONG BANDS  -- FROM ABS225 ----
+
+!-- WATER VAPOR --- 350 - 500 CM-1
+
+!-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U)
+
+!----- INTERVAL = 5 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 1, 5,:) = (/&
+ &0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 5,:) = (/&
+ &0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 6,:) = (/&
+ &0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 6,:) = (/&
+ &0.17770551E+00_JPRB, 0.41646579E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 2, 5,:) = (/&
+ &0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 5,:) = (/&
+ &0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 6,:) = (/&
+ &0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 6,:) = (/&
+ &0.18176757E+00_JPRB, 0.42345095E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 3, 5,:) = (/&
+ &0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 5,:) = (/&
+ &0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 6,:) = (/&
+ &0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 6,:) = (/&
+ &0.18527967E+00_JPRB, 0.42937476E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 4, 5,:) = (/&
+ &0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 5,:) = (/&
+ &0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 6,:) = (/&
+ &0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 6,:) = (/&
+ &0.18833348E+00_JPRB, 0.43444062E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 5, 5,:) = (/&
+ &0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 5,:) = (/&
+ &0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 6,:) = (/&
+ &0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 6,:) = (/&
+ &0.19100108E+00_JPRB, 0.43880316E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 6, 5,:) = (/&
+ &0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 5,:) = (/&
+ &0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 6,:) = (/&
+ &0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 6,:) = (/&
+ &0.19334122E+00_JPRB, 0.44258354E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 7, 5,:) = (/&
+ &0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 5,:) = (/&
+ &0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 6,:) = (/&
+ &0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 6,:) = (/&
+ &0.19540288E+00_JPRB, 0.44587882E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 8, 5,:) = (/&
+ &0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 5,:) = (/&
+ &0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 6,:) = (/&
+ &0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 6,:) = (/&
+ &0.19722732E+00_JPRB, 0.44876776E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 9, 5,:) = (/&
+ &0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 5,:) = (/&
+ &0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 6,:) = (/&
+ &0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 6,:) = (/&
+ &0.19884918E+00_JPRB, 0.45131451E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA(10, 5,:) = (/&
+ &0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 5,:) = (/&
+ &0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 6,:) = (/&
+ &0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 6,:) = (/&
+ &0.20029696E+00_JPRB, 0.45357095E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA(11, 5,:) = (/&
+ &0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 5,:) = (/&
+ &0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 6,:) = (/&
+ &0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 6,:) = (/&
+ &0.20159300E+00_JPRB, 0.45557797E+00_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+
+!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
+!--- G = 0.0
+
+
+!----- INTERVAL = 6 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 1,11,:) = (/&
+ &0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,11,:) = (/&
+ &0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,12,:) = (/&
+ &0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,12,:) = (/&
+ &0.79709806E+01_JPRB, 0.18377807E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 2,11,:) = (/&
+ &0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,11,:) = (/&
+ &0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,12,:) = (/&
+ &0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,12,:) = (/&
+ &0.75400737E+01_JPRB, 0.17643148E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 3,11,:) = (/&
+ &0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,11,:) = (/&
+ &0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,12,:) = (/&
+ &0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,12,:) = (/&
+ &0.81804377E+01_JPRB, 0.19296161E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 4,11,:) = (/&
+ &0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,11,:) = (/&
+ &0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,12,:) = (/&
+ &0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,12,:) = (/&
+ &0.10564339E+02_JPRB, 0.24951120E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 5,11,:) = (/&
+ &0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,11,:) = (/&
+ &0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,12,:) = (/&
+ &0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,12,:) = (/&
+ &0.46896789E+02_JPRB, 0.10957372E+03_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 6,11,:) = (/&
+ &0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,11,:) = (/&
+ &0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,12,:) = (/&
+&-0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,12,:) = (/&
+&-0.30926524E+01_JPRB,-0.67432659E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 7,11,:) = (/&
+&-0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,11,:) = (/&
+&-0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,12,:) = (/&
+ &0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,12,:) = (/&
+ &0.85742941E+00_JPRB, 0.24550746E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 8,11,:) = (/&
+&-0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,11,:) = (/&
+&-0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,12,:) = (/&
+ &0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,12,:) = (/&
+ &0.19164038E+01_JPRB, 0.49089917E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA( 9,11,:) = (/&
+ &0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,11,:) = (/&
+ &0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,12,:) = (/&
+ &0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,12,:) = (/&
+ &0.23513199E+01_JPRB, 0.59008712E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA(10,11,:) = (/&
+ &0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,11,:) = (/&
+ &0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,12,:) = (/&
+ &0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,12,:) = (/&
+ &0.25566644E+01_JPRB, 0.63532616E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+PDGA(11,11,:) = (/&
+ &0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,11,:) = (/&
+ &0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,12,:) = (/&
+ &0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,12,:) = (/&
+ &0.26555181E+01_JPRB, 0.65558627E+01_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+
+
+!-- END WATER VAPOR
+
+
+!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ----------------------
+
+
+
+!-- FIU = 0.8 + MAX(0.35,(7-IU)*0.9)  , X/T,  9
+
+!----- INTERVAL = 2 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 1,13,:) = (/&
+ &0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,13,:) = (/&
+ &0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,14,:) = (/&
+ &0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,14,:) = (/&
+ &0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 2,13,:) = (/&
+ &0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,13,:) = (/&
+ &0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,14,:) = (/&
+ &0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,14,:) = (/&
+ &0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 3,13,:) = (/&
+ &0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,13,:) = (/&
+ &0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,14,:) = (/&
+ &0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,14,:) = (/&
+ &0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 4,13,:) = (/&
+ &0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,13,:) = (/&
+ &0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,14,:) = (/&
+ &0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,14,:) = (/&
+ &0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 5,13,:) = (/&
+ &0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,13,:) = (/&
+ &0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,14,:) = (/&
+ &0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,14,:) = (/&
+ &0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 6,13,:) = (/&
+ &0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,13,:) = (/&
+ &0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,14,:) = (/&
+ &0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,14,:) = (/&
+ &0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 7,13,:) = (/&
+ &0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,13,:) = (/&
+ &0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,14,:) = (/&
+ &0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,14,:) = (/&
+ &0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 8,13,:) = (/&
+ &0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,13,:) = (/&
+ &0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,14,:) = (/&
+ &0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,14,:) = (/&
+ &0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 9,13,:) = (/&
+ &0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,13,:) = (/&
+ &0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,14,:) = (/&
+ &0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,14,:) = (/&
+ &0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA(10,13,:) = (/&
+ &0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,13,:) = (/&
+ &0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,14,:) = (/&
+ &0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,14,:) = (/&
+ &0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA(11,13,:) = (/&
+ &0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,13,:) = (/&
+ &0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,14,:) = (/&
+ &0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,14,:) = (/&
+ &0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+
+
+
+
+
+
+
+!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
+
+
+!-- G = 0.0
+
+
+!----- INTERVAL = 4 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 1,15,:) = (/&
+ &0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,15,:) = (/&
+ &0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,16,:) = (/&
+ &0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,16,:) = (/&
+ &0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 2,15,:) = (/&
+ &0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,15,:) = (/&
+ &0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,16,:) = (/&
+ &0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,16,:) = (/&
+ &0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 3,15,:) = (/&
+ &0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,15,:) = (/&
+ &0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,16,:) = (/&
+ &0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,16,:) = (/&
+ &0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 4,15,:) = (/&
+ &0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,15,:) = (/&
+ &0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,16,:) = (/&
+ &0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,16,:) = (/&
+ &0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 5,15,:) = (/&
+ &0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,15,:) = (/&
+ &0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,16,:) = (/&
+ &0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,16,:) = (/&
+ &0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 6,15,:) = (/&
+ &0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,15,:) = (/&
+ &0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,16,:) = (/&
+ &0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,16,:) = (/&
+ &0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 7,15,:) = (/&
+ &0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,15,:) = (/&
+ &0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,16,:) = (/&
+ &0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,16,:) = (/&
+ &0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 8,15,:) = (/&
+ &0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,15,:) = (/&
+ &0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,16,:) = (/&
+ &0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,16,:) = (/&
+ &0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 9,15,:) = (/&
+ &0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,15,:) = (/&
+ &0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,16,:) = (/&
+ &0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,16,:) = (/&
+ &0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(10,15,:) = (/&
+ &0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,15,:) = (/&
+ &0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,16,:) = (/&
+ &0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,16,:) = (/&
+ &0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(11,15,:) = (/&
+ &0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,15,:) = (/&
+ &0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,16,:) = (/&
+ &0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,16,:) = (/&
+ &0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
+RETURN
+END SUBROUTINE SULW
Index: LMDZ5/branches/testing/libf/phymar/sulwn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sulwn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sulwn.F90	(revision 2160)
@@ -0,0 +1,1229 @@
+SUBROUTINE SULWN
+
+!**** *SULWN*   - INITIALIZE COMMON YOELW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE LONGWAVE RADIATION ROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SULWN
+
+!        EXPLICIT ARGUMENTS
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS
+!        --------------------
+!        COMMON YOELW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
+!        97-04-25 J.J. Morcrette Revised Continuum coefficients
+!        97-10-30 J.J. Morcrette cy18
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,NIPD2    ,&
+            &NTR      ,NTRA     ,NUA      ,NG1      ,NG1P1    ,&
+            &ALWT     ,BLWT     ,PDGA     ,PDGB     ,RPTYPE   ,&
+            &RETYPE   ,RO1H     ,RO2H     ,RO3T     ,RPIALF0  ,&
+            &RT1      ,TINTP    ,TREF     ,TSTAND   ,TSTP     ,&
+            &WG1      ,XP       ,RVGCO2   ,RVGH2O   ,RVGO3
+
+
+IMPLICIT NONE
+
+
+!     ------------------------------------------------------------------ 
+
+!*       1.    FILL BLOCK DATA
+!              ---------------
+
+!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
+
+TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB,  &
+ &250._JPRB,&
+           &262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
+
+XP( :, 1) = (/&
+ &0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
+ &0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)
+XP( :, 2) = (/&
+ &0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
+ &-.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)
+XP( :, 3) = (/&
+ &0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
+ &0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)
+XP( :, 4) = (/&
+ &0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
+ &0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)
+XP( :, 5) = (/&
+ &0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
+&-0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)
+XP( :, 6) = (/&
+ &0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
+ &0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)
+
+!-----------------------------------------------------------------------
+!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
+
+
+!--- WATER VAPOUR FROM ZHONG & HAIGH  (revision3 96-11-15)
+
+!- H2O  0-350 cm-1
+
+
+!----- INTERVAL = 1 ----- T =    187.50
+
+PDGA( 1, 1,:) = (/&
+ &0.25000224E-02_JPRB, 0.18701843E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 1,:) = (/&
+ &0.25000224E-02_JPRB, 0.61593968E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 2,:) = (/&
+ &0.34131105E-02_JPRB, 0.55153039E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 2,:) = (/&
+ &0.34131105E-02_JPRB, 0.73127832E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    200.00
+
+PDGA( 2, 1,:) = (/&
+ &0.26344616E-02_JPRB, 0.16894582E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 1,:) = (/&
+ &0.26344616E-02_JPRB, 0.63633167E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 2,:) = (/&
+ &0.36120928E-02_JPRB, 0.44720171E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 2,:) = (/&
+ &0.36120928E-02_JPRB, 0.75062171E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    212.50
+
+PDGA( 3, 1,:) = (/&
+ &0.27743234E-02_JPRB, 0.15245487E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 1,:) = (/&
+ &0.27743234E-02_JPRB, 0.65651733E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 2,:) = (/&
+ &0.38453121E-02_JPRB, 0.42382776E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 2,:) = (/&
+ &0.38453121E-02_JPRB, 0.77088315E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    225.00
+
+PDGA( 4, 1,:) = (/&
+ &0.29265376E-02_JPRB, 0.13719090E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 1,:) = (/&
+ &0.29265376E-02_JPRB, 0.67739270E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 2,:) = (/&
+ &0.41211460E-02_JPRB, 0.42401401E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 2,:) = (/&
+ &0.41211460E-02_JPRB, 0.79241307E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    237.50
+
+PDGA( 5, 1,:) = (/&
+ &0.30979053E-02_JPRB, 0.12223308E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 1,:) = (/&
+ &0.30979053E-02_JPRB, 0.69968340E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 2,:) = (/&
+ &0.43966504E-02_JPRB, 0.67198946E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 2,:) = (/&
+ &0.43966504E-02_JPRB, 0.80947310E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    250.00
+
+PDGA( 6, 1,:) = (/&
+ &0.32813184E-02_JPRB, 0.11573810E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 1,:) = (/&
+ &0.32813184E-02_JPRB, 0.72183750E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 2,:) = (/&
+ &0.46792452E-02_JPRB, 0.99691013E-03_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 2,:) = (/&
+ &0.46792452E-02_JPRB, 0.82404099E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    262.50
+
+PDGA( 7, 1,:) = (/&
+ &0.34869261E-02_JPRB, 0.11110812E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 1,:) = (/&
+ &0.34869261E-02_JPRB, 0.74507149E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 2,:) = (/&
+ &0.49313571E-02_JPRB, 0.15144806E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 2,:) = (/&
+ &0.49313571E-02_JPRB, 0.83301687E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    275.00
+
+PDGA( 8, 1,:) = (/&
+ &0.37169013E-02_JPRB, 0.10586459E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 1,:) = (/&
+ &0.37169013E-02_JPRB, 0.76930655E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 2,:) = (/&
+ &0.51606177E-02_JPRB, 0.20799953E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 2,:) = (/&
+ &0.51606177E-02_JPRB, 0.83904484E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    287.50
+
+PDGA( 9, 1,:) = (/&
+ &0.39482491E-02_JPRB, 0.11280761E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 1,:) = (/&
+ &0.39482491E-02_JPRB, 0.79096624E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 2,:) = (/&
+ &0.53608496E-02_JPRB, 0.26755638E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 2,:) = (/&
+ &0.53608496E-02_JPRB, 0.84271466E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    300.00
+
+PDGA(10, 1,:) = (/&
+ &0.41849825E-02_JPRB, 0.12500965E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 1,:) = (/&
+ &0.41849825E-02_JPRB, 0.81087000E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 2,:) = (/&
+ &0.55372909E-02_JPRB, 0.32512851E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 2,:) = (/&
+ &0.55372909E-02_JPRB, 0.84546756E-01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 1 ----- T =    312.50
+
+PDGA(11, 1,:) = (/&
+ &0.44204714E-02_JPRB, 0.14195697E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 1,:) = (/&
+ &0.44204714E-02_JPRB, 0.82840020E-01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 2,:) = (/&
+ &0.56935299E-02_JPRB, 0.38054592E-02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 2,:) = (/&
+ &0.56935299E-02_JPRB, 0.84847060E-01_JPRB, 0.10000000E+01_JPRB/)
+
+
+!- H2O  500-800 cm-1
+
+!----- INTERVAL = 2 ----- T =    187.50
+
+PDGA( 1, 3,:) = (/&
+ &0.15053751E+01_JPRB, 0.45361026E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 3,:) = (/&
+ &0.15053751E+01_JPRB, 0.15789584E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 4,:) = (/&
+ &0.18920793E+01_JPRB, 0.53457554E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 4,:) = (/&
+ &0.18920793E+01_JPRB, 0.18418304E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    200.00
+
+PDGA( 2, 3,:) = (/&
+ &0.15977537E+01_JPRB, 0.48084314E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 3,:) = (/&
+ &0.15977537E+01_JPRB, 0.16476468E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 4,:) = (/&
+ &0.20435568E+01_JPRB, 0.55893717E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 4,:) = (/&
+ &0.20435568E+01_JPRB, 0.19386656E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    212.50
+
+PDGA( 3, 3,:) = (/&
+ &0.16913237E+01_JPRB, 0.50454053E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 3,:) = (/&
+ &0.16913237E+01_JPRB, 0.17144170E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 4,:) = (/&
+ &0.21978186E+01_JPRB, 0.57905459E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 4,:) = (/&
+ &0.21978186E+01_JPRB, 0.20334044E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    225.00
+
+PDGA( 4, 3,:) = (/&
+ &0.17856476E+01_JPRB, 0.52514194E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 3,:) = (/&
+ &0.17856476E+01_JPRB, 0.17792823E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 4,:) = (/&
+ &0.23533355E+01_JPRB, 0.59558005E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 4,:) = (/&
+ &0.23533355E+01_JPRB, 0.21256517E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    237.50
+
+PDGA( 5, 3,:) = (/&
+ &0.18802811E+01_JPRB, 0.54304459E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 3,:) = (/&
+ &0.18802811E+01_JPRB, 0.18422412E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 4,:) = (/&
+ &0.25086500E+01_JPRB, 0.60908958E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 4,:) = (/&
+ &0.25086500E+01_JPRB, 0.22150389E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    250.00
+
+PDGA( 6, 3,:) = (/&
+ &0.19747954E+01_JPRB, 0.55860186E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 3,:) = (/&
+ &0.19747954E+01_JPRB, 0.19032856E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 4,:) = (/&
+ &0.26624407E+01_JPRB, 0.62008317E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 4,:) = (/&
+ &0.26624407E+01_JPRB, 0.23012482E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    262.50
+
+PDGA( 7, 3,:) = (/&
+ &0.20687911E+01_JPRB, 0.57212480E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 3,:) = (/&
+ &0.20687911E+01_JPRB, 0.19624068E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 4,:) = (/&
+ &0.28135635E+01_JPRB, 0.62898892E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 4,:) = (/&
+ &0.28135635E+01_JPRB, 0.23840281E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    275.00
+
+PDGA( 8, 3,:) = (/&
+ &0.21619083E+01_JPRB, 0.58388519E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 3,:) = (/&
+ &0.21619083E+01_JPRB, 0.20195993E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 4,:) = (/&
+ &0.29610693E+01_JPRB, 0.63616954E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 4,:) = (/&
+ &0.29610693E+01_JPRB, 0.24631984E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    287.50
+
+PDGA( 9, 3,:) = (/&
+ &0.22538305E+01_JPRB, 0.59411934E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 3,:) = (/&
+ &0.22538305E+01_JPRB, 0.20748638E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 4,:) = (/&
+ &0.31042087E+01_JPRB, 0.64192944E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 4,:) = (/&
+ &0.31042087E+01_JPRB, 0.25386513E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    300.00
+
+PDGA(10, 3,:) = (/&
+ &0.23442867E+01_JPRB, 0.60303198E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 3,:) = (/&
+ &0.23442867E+01_JPRB, 0.21282086E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 4,:) = (/&
+ &0.32424163E+01_JPRB, 0.64652280E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 4,:) = (/&
+ &0.32424163E+01_JPRB, 0.26103424E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =    312.50
+
+PDGA(11, 3,:) = (/&
+ &0.24330507E+01_JPRB, 0.61080006E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 3,:) = (/&
+ &0.24330507E+01_JPRB, 0.21796505E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 4,:) = (/&
+ &0.33752974E+01_JPRB, 0.65016031E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 4,:) = (/&
+ &0.33752974E+01_JPRB, 0.26782849E+01_JPRB, 0.10000000E+01_JPRB/)
+
+
+!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 
+
+
+!----- INTERVAL = 3 ----- T =    187.50
+
+PDGA( 1, 7,:) = (/&
+ &0.14334746E+02_JPRB, 0.11649992E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 7,:) = (/&
+ &0.14334746E+02_JPRB, 0.12059903E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 8,:) = (/&
+ &0.11596027E+02_JPRB, 0.11051587E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 8,:) = (/&
+ &0.11596027E+02_JPRB, 0.11390898E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    200.00
+
+PDGA( 2, 7,:) = (/&
+ &0.12924521E+02_JPRB, 0.11365906E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 7,:) = (/&
+ &0.12924521E+02_JPRB, 0.11739611E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 8,:) = (/&
+ &0.10445365E+02_JPRB, 0.10682810E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 8,:) = (/&
+ &0.10445365E+02_JPRB, 0.10993927E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    212.50
+
+PDGA( 3, 7,:) = (/&
+ &0.11774060E+02_JPRB, 0.11080218E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 7,:) = (/&
+ &0.11774060E+02_JPRB, 0.11424740E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 8,:) = (/&
+ &0.95571840E+01_JPRB, 0.10328058E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 8,:) = (/&
+ &0.95571840E+01_JPRB, 0.10618404E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    225.00
+
+PDGA( 4, 7,:) = (/&
+ &0.10839967E+02_JPRB, 0.10800025E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 7,:) = (/&
+ &0.10839967E+02_JPRB, 0.11121318E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 8,:) = (/&
+ &0.88719975E+01_JPRB, 0.99930444E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 8,:) = (/&
+ &0.88719975E+01_JPRB, 0.10268470E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    237.50
+
+PDGA( 5, 7,:) = (/&
+ &0.10082160E+02_JPRB, 0.10529965E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 7,:) = (/&
+ &0.10082160E+02_JPRB, 0.10832955E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 8,:) = (/&
+ &0.83425443E+01_JPRB, 0.96805504E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 8,:) = (/&
+ &0.83425443E+01_JPRB, 0.99456138E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    250.00
+
+PDGA( 6, 7,:) = (/&
+ &0.94663507E+01_JPRB, 0.10272823E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 7,:) = (/&
+ &0.94663507E+01_JPRB, 0.10561525E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 8,:) = (/&
+ &0.79324712E+01_JPRB, 0.93914198E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 8,:) = (/&
+ &0.79324712E+01_JPRB, 0.96496576E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    262.50
+
+PDGA( 7, 7,:) = (/&
+ &0.89643981E+01_JPRB, 0.10030051E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 7,:) = (/&
+ &0.89643981E+01_JPRB, 0.10307714E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 8,:) = (/&
+ &0.76141974E+01_JPRB, 0.91252916E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 8,:) = (/&
+ &0.76141974E+01_JPRB, 0.93794463E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    275.00
+
+PDGA( 8, 7,:) = (/&
+ &0.85537123E+01_JPRB, 0.98021793E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 7,:) = (/&
+ &0.85537123E+01_JPRB, 0.10071426E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 8,:) = (/&
+ &0.73668729E+01_JPRB, 0.88811055E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 8,:) = (/&
+ &0.73668729E+01_JPRB, 0.91333042E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    287.50
+
+PDGA( 9, 7,:) = (/&
+ &0.82163567E+01_JPRB, 0.95891296E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 7,:) = (/&
+ &0.82163567E+01_JPRB, 0.98520772E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 8,:) = (/&
+ &0.71747025E+01_JPRB, 0.86574340E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 8,:) = (/&
+ &0.71747025E+01_JPRB, 0.89093260E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    300.00
+
+PDGA(10, 7,:) = (/&
+ &0.79381525E+01_JPRB, 0.93904375E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 7,:) = (/&
+ &0.79381525E+01_JPRB, 0.96487960E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 8,:) = (/&
+ &0.70256573E+01_JPRB, 0.84526940E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 8,:) = (/&
+ &0.70256573E+01_JPRB, 0.87055560E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 3 ----- T =    312.50
+
+PDGA(11, 7,:) = (/&
+ &0.77078849E+01_JPRB, 0.92054098E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 7,:) = (/&
+ &0.77078849E+01_JPRB, 0.94605633E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 8,:) = (/&
+ &0.69105145E+01_JPRB, 0.82652769E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 8,:) = (/&
+ &0.69105145E+01_JPRB, 0.85200926E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!-- WATER VAPOR --- 970 -1110 CM-1
+
+
+!----- INTERVAL = 4 ----- T =    187.500
+
+PDGA( 1, 9,:) = (/&
+ &0.94868790E+02_JPRB, 0.17437229E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 9,:) = (/&
+ &0.94868790E+02_JPRB, 0.18796329E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,10,:) = (/&
+ &0.95419113E+02_JPRB, 0.17234291E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,10,:) = (/&
+ &0.95419113E+02_JPRB, 0.18632164E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    200.000
+
+PDGA( 2, 9,:) = (/&
+ &0.95143959E+02_JPRB, 0.17335575E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 9,:) = (/&
+ &0.95143959E+02_JPRB, 0.18714111E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,10,:) = (/&
+ &0.95675995E+02_JPRB, 0.17129913E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,10,:) = (/&
+ &0.95675995E+02_JPRB, 0.18547161E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    212.500
+
+PDGA( 3, 9,:) = (/&
+ &0.95363609E+02_JPRB, 0.17245064E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 9,:) = (/&
+ &0.95363609E+02_JPRB, 0.18640270E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,10,:) = (/&
+ &0.95911537E+02_JPRB, 0.17036016E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,10,:) = (/&
+ &0.95911537E+02_JPRB, 0.18470697E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    225.000
+
+PDGA( 4, 9,:) = (/&
+ &0.95551239E+02_JPRB, 0.17163479E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 9,:) = (/&
+ &0.95551239E+02_JPRB, 0.18573282E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,10,:) = (/&
+ &0.96128136E+02_JPRB, 0.16952074E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,10,:) = (/&
+ &0.96128136E+02_JPRB, 0.18402708E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    237.500
+
+PDGA( 5, 9,:) = (/&
+ &0.95763680E+02_JPRB, 0.17089018E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 9,:) = (/&
+ &0.95763680E+02_JPRB, 0.18513403E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,10,:) = (/&
+ &0.96294296E+02_JPRB, 0.16877150E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,10,:) = (/&
+ &0.96294296E+02_JPRB, 0.18341324E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    250.000
+
+PDGA( 6, 9,:) = (/&
+ &0.95913246E+02_JPRB, 0.17022213E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 9,:) = (/&
+ &0.95913246E+02_JPRB, 0.18458538E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,10,:) = (/&
+ &0.96462036E+02_JPRB, 0.16808561E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,10,:) = (/&
+ &0.96462036E+02_JPRB, 0.18285398E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    262.500
+
+PDGA( 7, 9,:) = (/&
+ &0.96069473E+02_JPRB, 0.16961018E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 9,:) = (/&
+ &0.96069473E+02_JPRB, 0.18408932E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,10,:) = (/&
+ &0.96610298E+02_JPRB, 0.16746571E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,10,:) = (/&
+ &0.96610298E+02_JPRB, 0.18234850E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    275.000
+
+PDGA( 8, 9,:) = (/&
+ &0.96201309E+02_JPRB, 0.16905493E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 9,:) = (/&
+ &0.96201309E+02_JPRB, 0.18363655E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,10,:) = (/&
+ &0.96754684E+02_JPRB, 0.16690109E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,10,:) = (/&
+ &0.96754684E+02_JPRB, 0.18189079E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    287.500
+
+PDGA( 9, 9,:) = (/&
+ &0.96342339E+02_JPRB, 0.16853893E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 9,:) = (/&
+ &0.96342339E+02_JPRB, 0.18321957E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,10,:) = (/&
+ &0.96883301E+02_JPRB, 0.16638573E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,10,:) = (/&
+ &0.96883301E+02_JPRB, 0.18147303E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    300.000
+
+PDGA(10, 9,:) = (/&
+ &0.96457764E+02_JPRB, 0.16806755E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 9,:) = (/&
+ &0.96457764E+02_JPRB, 0.18283590E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,10,:) = (/&
+ &0.96989792E+02_JPRB, 0.16591677E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,10,:) = (/&
+ &0.96989792E+02_JPRB, 0.18108814E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =    312.500
+
+PDGA(11, 9,:) = (/&
+ &0.96549957E+02_JPRB, 0.16763689E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 9,:) = (/&
+ &0.96549957E+02_JPRB, 0.18248074E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,10,:) = (/&
+ &0.97097275E+02_JPRB, 0.16548479E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,10,:) = (/&
+ &0.97097275E+02_JPRB, 0.18073788E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!-- WATER VAPOR -- INT.5 --  350- 500 CM-1 
+
+
+!----- INTERVAL = 5 ----- T =    187.500
+
+PDGA( 1, 5,:) = (/&
+ &0.13134047E+00_JPRB,-0.23649048E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 5,:) = (/&
+ &0.13134047E+00_JPRB, 0.54008597E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1, 6,:) = (/&
+ &0.14049581E+00_JPRB,-0.26231026E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1, 6,:) = (/&
+ &0.14049581E+00_JPRB, 0.54143775E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    200.000
+
+PDGA( 2, 5,:) = (/&
+ &0.13330981E+00_JPRB,-0.24178915E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 5,:) = (/&
+ &0.13330981E+00_JPRB, 0.54094988E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2, 6,:) = (/&
+ &0.14229582E+00_JPRB,-0.26725627E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2, 6,:) = (/&
+ &0.14229582E+00_JPRB, 0.54189402E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    212.500
+
+PDGA( 3, 5,:) = (/&
+ &0.13504511E+00_JPRB,-0.24650861E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 5,:) = (/&
+ &0.13504511E+00_JPRB, 0.54169583E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3, 6,:) = (/&
+ &0.14384151E+00_JPRB,-0.27153090E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3, 6,:) = (/&
+ &0.14384151E+00_JPRB, 0.54222512E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    225.000
+
+PDGA( 4, 5,:) = (/&
+ &0.13651314E+00_JPRB,-0.25044570E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 5,:) = (/&
+ &0.13651314E+00_JPRB, 0.54191625E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4, 6,:) = (/&
+ &0.14517485E+00_JPRB,-0.27523417E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4, 6,:) = (/&
+ &0.14517485E+00_JPRB, 0.54246801E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    237.500
+
+PDGA( 5, 5,:) = (/&
+ &0.13790466E+00_JPRB,-0.25431205E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 5,:) = (/&
+ &0.13790466E+00_JPRB, 0.54262739E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5, 6,:) = (/&
+ &0.14633319E+00_JPRB,-0.27845515E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5, 6,:) = (/&
+ &0.14633319E+00_JPRB, 0.54265642E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    250.000
+
+PDGA( 6, 5,:) = (/&
+ &0.13909847E+00_JPRB,-0.25759069E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 5,:) = (/&
+ &0.13909847E+00_JPRB, 0.54293746E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6, 6,:) = (/&
+ &0.14734478E+00_JPRB,-0.28128289E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6, 6,:) = (/&
+ &0.14734478E+00_JPRB, 0.54279846E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    262.500
+
+PDGA( 7, 5,:) = (/&
+ &0.14014673E+00_JPRB,-0.26045626E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 5,:) = (/&
+ &0.14014673E+00_JPRB, 0.54306209E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7, 6,:) = (/&
+ &0.14823231E+00_JPRB,-0.28376250E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7, 6,:) = (/&
+ &0.14823231E+00_JPRB, 0.54290944E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    275.000
+
+PDGA( 8, 5,:) = (/&
+ &0.14110570E+00_JPRB,-0.26310772E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 5,:) = (/&
+ &0.14110570E+00_JPRB, 0.54324186E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8, 6,:) = (/&
+ &0.14901793E+00_JPRB,-0.28597040E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8, 6,:) = (/&
+ &0.14901793E+00_JPRB, 0.54300690E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    287.500
+
+PDGA( 9, 5,:) = (/&
+ &0.14198618E+00_JPRB,-0.26556855E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 5,:) = (/&
+ &0.14198618E+00_JPRB, 0.54346353E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9, 6,:) = (/&
+ &0.14971229E+00_JPRB,-0.28792191E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9, 6,:) = (/&
+ &0.14971229E+00_JPRB, 0.54307669E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    300.000
+
+PDGA(10, 5,:) = (/&
+ &0.14277160E+00_JPRB,-0.26774861E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 5,:) = (/&
+ &0.14277160E+00_JPRB, 0.54357564E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10, 6,:) = (/&
+ &0.15033126E+00_JPRB,-0.28966904E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10, 6,:) = (/&
+ &0.15033126E+00_JPRB, 0.54313493E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 5 ----- T =    312.500
+
+PDGA(11, 5,:) = (/&
+ &0.14349319E+00_JPRB,-0.26976623E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 5,:) = (/&
+ &0.14349319E+00_JPRB, 0.54369903E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11, 6,:) = (/&
+ &0.15088280E+00_JPRB,-0.29121898E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11, 6,:) = (/&
+ &0.15088280E+00_JPRB, 0.54318237E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
+
+
+!----- INTERVAL = 6 ----- T =    187.50
+
+PDGA( 1,11,:) = (/&
+ &0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,11,:) = (/&
+ &0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,12,:) = (/&
+ &0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,12,:) = (/&
+ &0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    200.00
+
+PDGA( 2,11,:) = (/&
+ &0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,11,:) = (/&
+ &0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,12,:) = (/&
+ &0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,12,:) = (/&
+ &0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    212.50
+
+PDGA( 3,11,:) = (/&
+ &0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,11,:) = (/&
+ &0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,12,:) = (/&
+ &0.44063067E+00_JPRB, 0.91024989E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,12,:) = (/&
+ &0.44063067E+00_JPRB, 0.12039660E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    225.00
+
+PDGA( 4,11,:) = (/&
+ &0.51061614E+00_JPRB, 0.59883548E-01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,11,:) = (/&
+ &0.51061614E+00_JPRB, 0.13461757E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,12,:) = (/&
+ &0.30439727E+00_JPRB, 0.15980470E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,12,:) = (/&
+ &0.30439727E+00_JPRB, 0.91241774E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    237.50
+
+PDGA( 5,11,:) = (/&
+ &0.40673842E+00_JPRB, 0.11398935E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,11,:) = (/&
+ &0.40673842E+00_JPRB, 0.11289965E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,12,:) = (/&
+ &0.15005620E+00_JPRB, 0.23446409E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,12,:) = (/&
+ &0.15005620E+00_JPRB, 0.58547602E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    250.00
+
+PDGA( 6,11,:) = (/&
+ &0.28375203E+00_JPRB, 0.17444874E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,11,:) = (/&
+ &0.28375203E+00_JPRB, 0.86693115E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,12,:) = (/&
+ &0.51658133E-01_JPRB, 0.29464628E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,12,:) = (/&
+ &0.51658133E-01_JPRB, 0.40170363E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    262.50
+
+PDGA( 7,11,:) = (/&
+ &0.15136005E+00_JPRB, 0.23761536E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,11,:) = (/&
+ &0.15136005E+00_JPRB, 0.58911683E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,12,:) = (/&
+ &0.18932679E-01_JPRB, 0.33516250E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,12,:) = (/&
+ &0.18932679E-01_JPRB, 0.36796152E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    275.00
+
+PDGA( 8,11,:) = (/&
+ &0.61752765E-01_JPRB, 0.28965454E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,11,:) = (/&
+ &0.61752765E-01_JPRB, 0.41975793E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,12,:) = (/&
+ &0.79619427E-02_JPRB, 0.36873141E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,12,:) = (/&
+ &0.79619427E-02_JPRB, 0.37964009E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    287.50
+
+PDGA( 9,11,:) = (/&
+ &0.26192233E-01_JPRB, 0.32568668E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,11,:) = (/&
+ &0.26192233E-01_JPRB, 0.37385106E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,12,:) = (/&
+ &0.40764469E-02_JPRB, 0.40137572E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,12,:) = (/&
+ &0.40764469E-02_JPRB, 0.40608889E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    300.00
+
+PDGA(10,11,:) = (/&
+ &0.12168738E-01_JPRB, 0.35455148E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,11,:) = (/&
+ &0.12168738E-01_JPRB, 0.37329084E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,12,:) = (/&
+ &0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,12,:) = (/&
+ &0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 6 ----- T =    312.50
+
+PDGA(11,11,:) = (/&
+ &0.64195381E-02_JPRB, 0.38088067E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,11,:) = (/&
+ &0.64195381E-02_JPRB, 0.38906156E+00_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,12,:) = (/&
+ &0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,12,:) = (/&
+ &0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+!=======================================================================
+
+!-- CARBON DIOXIDE       
+!   ==============
+
+!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ------------
+
+!-- FIU = 0.8 + DMAX1(0.35,(7-IU)*0.9)  , X/T,  9
+
+!----- INTERVAL = 2 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 1,13,:) = (/&
+ &0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,13,:) = (/&
+ &0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,14,:) = (/&
+ &0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,14,:) = (/&
+ &0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 2,13,:) = (/&
+ &0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,13,:) = (/&
+ &0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,14,:) = (/&
+ &0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,14,:) = (/&
+ &0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 3,13,:) = (/&
+ &0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,13,:) = (/&
+ &0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,14,:) = (/&
+ &0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,14,:) = (/&
+ &0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 4,13,:) = (/&
+ &0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,13,:) = (/&
+ &0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,14,:) = (/&
+ &0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,14,:) = (/&
+ &0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 5,13,:) = (/&
+ &0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,13,:) = (/&
+ &0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,14,:) = (/&
+ &0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,14,:) = (/&
+ &0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 6,13,:) = (/&
+ &0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,13,:) = (/&
+ &0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,14,:) = (/&
+ &0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,14,:) = (/&
+ &0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 7,13,:) = (/&
+ &0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,13,:) = (/&
+ &0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,14,:) = (/&
+ &0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,14,:) = (/&
+ &0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 8,13,:) = (/&
+ &0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,13,:) = (/&
+ &0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,14,:) = (/&
+ &0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,14,:) = (/&
+ &0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 9,13,:) = (/&
+ &0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,13,:) = (/&
+ &0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,14,:) = (/&
+ &0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,14,:) = (/&
+ &0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA(10,13,:) = (/&
+ &0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,13,:) = (/&
+ &0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,14,:) = (/&
+ &0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,14,:) = (/&
+ &0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 2 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA(11,13,:) = (/&
+ &0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,13,:) = (/&
+ &0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,14,:) = (/&
+ &0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,14,:) = (/&
+ &0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
+
+
+
+!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
+
+!----- INTERVAL = 4 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 1,15,:) = (/&
+ &0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,15,:) = (/&
+ &0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 1,16,:) = (/&
+ &0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 1,16,:) = (/&
+ &0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 2,15,:) = (/&
+ &0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,15,:) = (/&
+ &0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 2,16,:) = (/&
+ &0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 2,16,:) = (/&
+ &0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 3,15,:) = (/&
+ &0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,15,:) = (/&
+ &0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 3,16,:) = (/&
+ &0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 3,16,:) = (/&
+ &0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 4,15,:) = (/&
+ &0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,15,:) = (/&
+ &0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 4,16,:) = (/&
+ &0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 4,16,:) = (/&
+ &0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 5,15,:) = (/&
+ &0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,15,:) = (/&
+ &0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 5,16,:) = (/&
+ &0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 5,16,:) = (/&
+ &0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 6,15,:) = (/&
+ &0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,15,:) = (/&
+ &0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 6,16,:) = (/&
+ &0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 6,16,:) = (/&
+ &0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 7,15,:) = (/&
+ &0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,15,:) = (/&
+ &0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 7,16,:) = (/&
+ &0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 7,16,:) = (/&
+ &0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 8,15,:) = (/&
+ &0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,15,:) = (/&
+ &0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 8,16,:) = (/&
+ &0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 8,16,:) = (/&
+ &0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 9,15,:) = (/&
+ &0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,15,:) = (/&
+ &0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA( 9,16,:) = (/&
+ &0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB( 9,16,:) = (/&
+ &0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(10,15,:) = (/&
+ &0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,15,:) = (/&
+ &0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(10,16,:) = (/&
+ &0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(10,16,:) = (/&
+ &0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
+
+!----- INTERVAL = 4 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(11,15,:) = (/&
+ &0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,15,:) = (/&
+ &0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
+PDGA(11,16,:) = (/&
+ &0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
+PDGB(11,16,:) = (/&
+ &0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
+
+
+!     ------------------------------------------------------------------
+
+!-----  (CONTINUUM ABSORPTION)
+
+!-----  (CONTINUUM ABSORPTION: e-type COMPONENT)
+
+RETYPE(1:4)= (/  12._JPRB,   5.5_JPRB,   4.25_JPRB,  45._JPRB /)
+
+!-----  (CONTINUUM ABSORPTION: p-type COMPONENT)
+
+RPTYPE(1:4)= (/ 0.22_JPRB, 0.012_JPRB, 0.0071_JPRB, 3.96_JPRB /)
+
+!     ------------------------------------------------------------------
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
+!     THE ABSORPTION
+
+!--------H2O
+
+!    revised in Zhong 961108
+ALWT(1,:)= (/&
+  &2.34995778846E-03_JPRB, -2.76713384294E-04_JPRB,  1.16480338097E-06_JPRB/)
+BLWT(1,:)= (/&
+ &-1.58165952771E-05_JPRB, -2.39167473702E-05_JPRB,  1.80148335147E-07_JPRB/)
+ALWT(2,:)= (/&
+  &2.52595953359E-02_JPRB, -6.72079319635E-04_JPRB,  5.74103783815E-06_JPRB/)
+BLWT(2,:)= (/&
+ &-8.26196996910E-05_JPRB, -1.05514645370E-05_JPRB,  7.02984234993E-08_JPRB/)
+ALWT(3,:)= (/&
+  &3.55525229363E-02_JPRB, -7.94992134865E-04_JPRB,  6.64848193374E-06_JPRB/)
+BLWT(3,:)= (/&
+ &-9.71124908025E-05_JPRB, -2.95218285256E-06_JPRB,  2.23374952695E-08_JPRB/)
+ALWT(4,:)= (/&
+  &5.47044522259E-02_JPRB, -1.19105877667E-03_JPRB,  9.74676865100E-06_JPRB/)
+BLWT(4,:)= (/&
+ &-2.10153035427E-04_JPRB, -6.93815560155E-06_JPRB,  5.50381928956E-08_JPRB/)
+ALWT(5,:)= (/&
+  &1.88063066950E-02_JPRB, -1.11250846983E-04_JPRB,  1.66977895508E-06_JPRB/)
+BLWT(5,:)= (/&
+ &-5.72683436311E-05_JPRB, -2.48448308453E-05_JPRB,  1.88450887138E-07_JPRB/)
+ALWT(6,:)= (/&
+  &1.29526952131E-02_JPRB, -3.81424455035E-04_JPRB,  3.07118138204E-06_JPRB/)
+BLWT(6,:)= (/&
+ &-4.20789327775E-05_JPRB, -1.25055291318E-05_JPRB,  8.58839668934E-08_JPRB/)
+
+
+!-------CO2
+
+ALWT(7,:)= (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
+BLWT(7,:)= (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
+ALWT(8,:)= (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
+BLWT(8,:)= (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
+
+
+!     ------------------------------------------------------------------ 
+
+!*       2.    SET VALUES.
+!              -----------
+
+
+!-number of spectral intervals
+NSIL  = 6
+!-number of intervals with Pade approximants transmission functions
+NIPD  = 8
+NIPD2 = 2*NIPD
+!-number of reference temperatures      
+NTR   = 11
+!-number of absorber amounts
+NUA   = 24
+!-number of transmission functions      
+NTRA  = 15
+!-number of Gauss angles      
+NG1   = 2
+NG1P1 = NG1+1
+
+!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
+!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
+TSTAND = 250.0_JPRB
+TREF   = 250.0_JPRB
+
+!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
+RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
+WG1 = (/  _ONE_        ,  _ONE_         /)
+
+!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
+TSTP  = 12.5_JPRB
+MXIXT = 10
+
+!--  COEFFICIENTS FOR OZONE ABSORPTION
+
+RO1H = 2230._JPRB
+RO2H =  100._JPRB
+RPIALF0 = 2._JPRB
+RO3T(1) = -.326E-03_JPRB
+RO3T(2) = -.102E-05_JPRB
+RO3T(3) = 0.137E-02_JPRB
+RO3T(4) = -.535E-05_JPRB
+
+!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
+
+RVGCO2= 60._JPRB
+RVGH2O= 30._JPRB
+RVGO3 =400._JPRB
+
+!     ------------------------------------------------------------------ 
+
+RETURN
+END SUBROUTINE SULWN
Index: LMDZ5/branches/testing/libf/phymar/suolwn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suolwn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suolwn.F90	(revision 2160)
@@ -0,0 +1,1314 @@
+SUBROUTINE SUOLW
+!
+!**** *SULW*   - INITIALIZE COMMON YOELW
+!
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES
+!
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SULW
+!
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+!
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOELW
+!
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+!
+!     EXTERNALS.
+!     ----------
+!
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+!
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
+!     ------------------------------------------------------------------
+!      IMPLICIT LOGICAL (L)
+!      
+!#include "yomlun.h"
+!#include "yoerad.h"
+!#include "yoelw.h"
+
+#include "tsmbkind.h"
+
+USE YOEOLW   , ONLY : MXIXT    ,NISP     ,NIPD     ,NIPD2    ,&
+            &NTR      ,NTRA     ,NUA      ,NG1      ,NG1P1    ,&
+            &AT       ,BT       ,GA       ,GB     ,&
+            &O1H      ,O2H      ,OCT      ,RPIALF0  ,&
+            &RT1      ,TINTP    ,TREF     ,TSTAND   ,TSTP     ,&
+            &WG1      ,XP       ,RVGCO2   ,RVGH2O   ,RVGO3
+
+
+IMPLICIT NONE
+
+
+!      ----------------------------------------------------------------
+!
+!*       1.    SET VALUES.
+!              -----------
+!
+NG1=2
+NG1P1=NG1+1
+NISP=6
+NIPD=8
+NIPD2=2*NIPD
+NTR=11
+NTRA=15
+NUA=24
+!
+!      
+!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
+!
+RVGCO2= 60.
+RVGH2O= 30.
+RVGO3 =400.
+!
+!
+!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
+!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
+TSTAND= 250.00
+TREF  = 250.00
+!
+
+!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
+RT1 = (/ -0.577350269, +0.577350269 /)
+WG1 = (/  1.         ,  1.          /)
+
+!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
+TSTP  = 12.5
+MXIXT = 10
+
+!
+!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
+
+TINTP = (/ 187.5, 200., 212.5, 225., 237.5,  &
+ &250.,&
+           &262.5, 275., 287.5, 300., 312.5 /)
+!
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
+!
+XP( :, 1) = (/&
+ &0.46430621E+02, 0.12928299E+03, 0.20732648E+03,&
+ &0.31398411E+03, 0.18373177E+03,-0.11412303E+03/)
+XP( :, 2) = (/&
+ &0.73604774E+02, 0.27887914E+03, 0.27076947E+03,&
+ &-.57322111E+02,-0.64742459E+02, 0.87238280E+02/)
+XP( :, 3) = (/&
+ &0.37050866E+02, 0.20498759E+03, 0.37558029E+03,&
+ &0.17401171E+03,-0.13350302E+03,-0.37651795E+02/)
+XP( :, 4) = (/&
+ &0.14930141E+02, 0.89161160E+02, 0.17793062E+03,&
+ &0.93433860E+02,-0.70646020E+02,-0.26373150E+02/)
+XP( :, 5) = (/&
+ &0.40386780E+02, 0.10855270E+03, 0.50755010E+02,&
+&-0.31496190E+02, 0.12791300E+00, 0.18017770E+01/)
+XP( :, 6) = (/&
+ &0.90811926E+01, 0.75073923E+02, 0.24654438E+03,&
+ &0.39332612E+03, 0.29385281E+03, 0.89107921E+02/)
+
+!
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
+!     THE ABSORPTION
+!
+!- from Zhong & Haigh 
+!
+!-- H2O --    0 - 350
+AT(1,:)= (/ 0.298199E-02,-.394023E-03,0.319566E-04 /)
+BT(1,:)= (/-0.106432E-04,0.660324E-06,0.174356E-06 /)
+!
+!-- H2O --  500 -  800
+AT(2,:)= (/ 0.143676E-01,0.366501E-02,-.160822E-02 /)
+BT(2,:)= (/-0.553979E-04,-.101701E-04,0.920868E-05 /)
+!
+!-- H2O --  800 - 970 + 1110 - 1250
+AT(3,:)= (/ 0.197861E-01,0.315541E-02,-.174547E-02 /)
+BT(3,:)= (/-0.877012E-04,0.513302E-04,0.523138E-06 /)
+!
+!-- H2O --  970 - 1110
+AT(4,:)= (/ 0.289560E-01,-.208807E-02,-.121943E-02 /)
+BT(4,:)= (/-0.165960E-03,0.157704E-03,-.146427E-04 /)
+!
+!-- H2O --  350 -  500
+AT(5,:)= (/ 0.103800E-01,0.436296E-02,-.161431E-02 /)
+BT(5,:)= (/ -.276744E-04,-.327381E-04,0.127646E-04 /)
+!
+!-- H2O -- 1250 - 1450 + 1880 - 2820
+AT(6,:)= (/ 0.868859E-02,-.972752E-03,0.000000E-00 /)
+BT(6,:)= (/ -.278412E-04,-.713940E-06,0.117469E-05 /)
+!
+
+!-------CO2
+
+AT(7,:)= (/&
+     & 0.250073E-03,0.455875E-03,0.109242E-03 /)
+BT(7,:)= (/&
+     & 0.199846E-05,-.216313E-05,0.175991E-06 /)
+AT(8,:)= (/&
+     & 0.307423E-01,0.110879E-02,-.322172E-03 /)
+BT(8,:)= (/&
+     &-0.108482E-03,0.258096E-05,-.814575E-06 /)
+!
+!--  COEFFICIENTS FOR OZONE ABSORPTION
+!
+O1H = 2230.
+O2H =  100.
+RPIALF0= 2.
+OCT(1)= -.326E-03
+OCT(2)= -.102E-05
+OCT(3)=  .137E-02
+OCT(4)= -.535E-05     
+!
+!--  COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
+!
+!      DATA RNTNU /   70.0, 26.77, 8.45, 5.78  /
+!      
+!-----------------------------------------------------------------------
+!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
+!  ==========================================
+!-----------------------------------------------------------------------
+!
+!
+!
+!
+!-----------------------------------------------------------------------
+!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
+!
+!- H2O  0-350 cm-1
+!
+!-- R.D. -- G = - 0.2 SLA
+!
+!
+!----- INTERVAL = 1 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 1, 1, :) = (/&
+     & 0.63499072E-02,-0.99506586E-03, 0.00000000E+00/)
+GB( 1, 1, :) = (/&
+     & 0.63499072E-02, 0.97222852E-01, 0.10000000E+01/)
+GA( 1, 2, :) = (/&
+     & 0.77266491E-02,-0.11661515E-02, 0.00000000E+00/)
+GB( 1, 2, :) = (/&
+     & 0.77266491E-02, 0.10681591E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 2, 1, :) = (/&
+     & 0.65566348E-02,-0.10184169E-02, 0.00000000E+00/)
+GB( 2, 1, :) = (/&
+     & 0.65566348E-02, 0.98862238E-01, 0.10000000E+01/)
+GA( 2, 2, :) = (/&
+     & 0.81323287E-02,-0.11886130E-02, 0.00000000E+00/)
+GB( 2, 2, :) = (/&
+     & 0.81323287E-02, 0.10921298E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 3, 1, :) = (/&
+     & 0.67849730E-02,-0.10404730E-02, 0.00000000E+00/)
+GB( 3, 1, :) = (/&
+     & 0.67849730E-02, 0.10061504E+00, 0.10000000E+01/)
+GA( 3, 2, :) = (/&
+     & 0.86507620E-02,-0.12139929E-02, 0.00000000E+00/)
+GB( 3, 2, :) = (/&
+     & 0.86507620E-02, 0.11198225E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 4, 1, :) = (/&
+     & 0.70481947E-02,-0.10621792E-02, 0.00000000E+00/)
+GB( 4, 1, :) = (/&
+     & 0.70481947E-02, 0.10256222E+00, 0.10000000E+01/)
+GA( 4, 2, :) = (/&
+     & 0.92776391E-02,-0.12445811E-02, 0.00000000E+00/)
+GB( 4, 2, :) = (/&
+     & 0.92776391E-02, 0.11487826E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 5, 1, :) = (/&
+     & 0.73585943E-02,-0.10847662E-02, 0.00000000E+00/)
+GB( 5, 1, :) = (/&
+     & 0.73585943E-02, 0.10475952E+00, 0.10000000E+01/)
+GA( 5, 2, :) = (/&
+     & 0.99806312E-02,-0.12807672E-02, 0.00000000E+00/)
+GB( 5, 2, :) = (/&
+     & 0.99806312E-02, 0.11751113E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 6, 1, :) = (/&
+     & 0.77242818E-02,-0.11094726E-02, 0.00000000E+00/)
+GB( 6, 1, :) = (/&
+     & 0.77242818E-02, 0.10720986E+00, 0.10000000E+01/)
+GA( 6, 2, :) = (/&
+     & 0.10709803E-01,-0.13208251E-02, 0.00000000E+00/)
+GB( 6, 2, :) = (/&
+     & 0.10709803E-01, 0.11951535E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 7, 1, :) = (/&
+     & 0.81472693E-02,-0.11372949E-02, 0.00000000E+00/)
+GB( 7, 1, :) = (/&
+     & 0.81472693E-02, 0.10985370E+00, 0.10000000E+01/)
+GA( 7, 2, :) = (/&
+     & 0.11414739E-01,-0.13619034E-02, 0.00000000E+00/)
+GB( 7, 2, :) = (/&
+     & 0.11414739E-01, 0.12069945E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 8, 1, :) = (/&
+     & 0.86227527E-02,-0.11687683E-02, 0.00000000E+00/)
+GB( 8, 1, :) = (/&
+     & 0.86227527E-02, 0.11257633E+00, 0.10000000E+01/)
+GA( 8, 2, :) = (/&
+     & 0.12058772E-01,-0.14014165E-02, 0.00000000E+00/)
+GB( 8, 2, :) = (/&
+     & 0.12058772E-01, 0.12108524E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 9, 1, :) = (/&
+     & 0.91396814E-02,-0.12038314E-02, 0.00000000E+00/)
+GB( 9, 1, :) = (/&
+     & 0.91396814E-02, 0.11522980E+00, 0.10000000E+01/)
+GA( 9, 2, :) = (/&
+     & 0.12623992E-01,-0.14378639E-02, 0.00000000E+00/)
+GB( 9, 2, :) = (/&
+     & 0.12623992E-01, 0.12084229E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA(10, 1, :) = (/&
+     & 0.96825438E-02,-0.12418367E-02, 0.00000000E+00/)
+GB(10, 1, :) = (/&
+     & 0.96825438E-02, 0.11766343E+00, 0.10000000E+01/)
+GA(10, 2, :) = (/&
+     & 0.13108146E-01,-0.14708488E-02, 0.00000000E+00/)
+GB(10, 2, :) = (/&
+     & 0.13108146E-01, 0.12019005E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 1 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA(11, 1, :) = (/&
+     & 0.10233955E-01,-0.12817135E-02, 0.00000000E+00/)
+GB(11, 1, :) = (/&
+     & 0.10233955E-01, 0.11975320E+00, 0.10000000E+01/)
+GA(11, 2, :) = (/&
+     & 0.13518390E-01,-0.15006791E-02, 0.00000000E+00/)
+GB(11, 2, :) = (/&
+     & 0.13518390E-01, 0.11932684E+00, 0.10000000E+01/)
+!
+!!
+!- H2O  500-800 cm-1
+!
+!--- R.D.  ---  G = 0.02 + 0.50 / ( 1 + 4.5 U )
+!
+!
+!----- INTERVAL = 2 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 1, 3, :) = (/&
+     & 0.11644593E+01, 0.41243390E+00, 0.00000000E+00/)
+GB( 1, 3, :) = (/&
+     & 0.11644593E+01, 0.10346097E+01, 0.10000000E+01/)
+GA( 1, 4, :) = (/&
+     & 0.12006968E+01, 0.48318936E+00, 0.00000000E+00/)
+GB( 1, 4, :) = (/&
+     & 0.12006968E+01, 0.10626130E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 2, 3, :) = (/&
+     & 0.11747203E+01, 0.43407282E+00, 0.00000000E+00/)
+GB( 2, 3, :) = (/&
+     & 0.11747203E+01, 0.10433655E+01, 0.10000000E+01/)
+GA( 2, 4, :) = (/&
+     & 0.12108196E+01, 0.50501827E+00, 0.00000000E+00/)
+GB( 2, 4, :) = (/&
+     & 0.12108196E+01, 0.10716026E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 3, 3, :) = (/&
+     & 0.11837872E+01, 0.45331413E+00, 0.00000000E+00/)
+GB( 3, 3, :) = (/&
+     & 0.11837872E+01, 0.10511933E+01, 0.10000000E+01/)
+GA( 3, 4, :) = (/&
+     & 0.12196717E+01, 0.52409502E+00, 0.00000000E+00/)
+GB( 3, 4, :) = (/&
+     & 0.12196717E+01, 0.10795108E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 4, 3, :) = (/&
+     & 0.11918561E+01, 0.47048604E+00, 0.00000000E+00/)
+GB( 4, 3, :) = (/&
+     & 0.11918561E+01, 0.10582150E+01, 0.10000000E+01/)
+GA( 4, 4, :) = (/&
+     & 0.12274493E+01, 0.54085277E+00, 0.00000000E+00/)
+GB( 4, 4, :) = (/&
+     & 0.12274493E+01, 0.10865006E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 5, 3, :) = (/&
+     & 0.11990757E+01, 0.48586286E+00, 0.00000000E+00/)
+GB( 5, 3, :) = (/&
+     & 0.11990757E+01, 0.10645317E+01, 0.10000000E+01/)
+GA( 5, 4, :) = (/&
+     & 0.12343189E+01, 0.55565422E+00, 0.00000000E+00/)
+GB( 5, 4, :) = (/&
+     & 0.12343189E+01, 0.10927103E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 6, 3, :) = (/&
+     & 0.12055643E+01, 0.49968044E+00, 0.00000000E+00/)
+GB( 6, 3, :) = (/&
+     & 0.12055643E+01, 0.10702313E+01, 0.10000000E+01/)
+GA( 6, 4, :) = (/&
+     & 0.12404147E+01, 0.56878618E+00, 0.00000000E+00/)
+GB( 6, 4, :) = (/&
+     & 0.12404147E+01, 0.10982489E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 7, 3, :) = (/&
+     & 0.12114186E+01, 0.51214132E+00, 0.00000000E+00/)
+GB( 7, 3, :) = (/&
+     & 0.12114186E+01, 0.10753907E+01, 0.10000000E+01/)
+GA( 7, 4, :) = (/&
+     & 0.12458431E+01, 0.58047395E+00, 0.00000000E+00/)
+GB( 7, 4, :) = (/&
+     & 0.12458431E+01, 0.11032019E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 8, 3, :) = (/&
+     & 0.12167192E+01, 0.52341830E+00, 0.00000000E+00/)
+GB( 8, 3, :) = (/&
+     & 0.12167192E+01, 0.10800762E+01, 0.10000000E+01/)
+GA( 8, 4, :) = (/&
+     & 0.12506907E+01, 0.59089894E+00, 0.00000000E+00/)
+GB( 8, 4, :) = (/&
+     & 0.12506907E+01, 0.11076379E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 9, 3, :) = (/&
+     & 0.12215344E+01, 0.53365803E+00, 0.00000000E+00/)
+GB( 9, 3, :) = (/&
+     & 0.12215344E+01, 0.10843446E+01, 0.10000000E+01/)
+GA( 9, 4, :) = (/&
+     & 0.12550299E+01, 0.60021475E+00, 0.00000000E+00/)
+GB( 9, 4, :) = (/&
+     & 0.12550299E+01, 0.11116160E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA(10, 3, :) = (/&
+     & 0.12259226E+01, 0.54298448E+00, 0.00000000E+00/)
+GB(10, 3, :) = (/&
+     & 0.12259226E+01, 0.10882439E+01, 0.10000000E+01/)
+GA(10, 4, :) = (/&
+     & 0.12589256E+01, 0.60856112E+00, 0.00000000E+00/)
+GB(10, 4, :) = (/&
+     & 0.12589256E+01, 0.11151910E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA(11, 3, :) = (/&
+     & 0.12299344E+01, 0.55150227E+00, 0.00000000E+00/)
+GB(11, 3, :) = (/&
+     & 0.12299344E+01, 0.10918144E+01, 0.10000000E+01/)
+GA(11, 4, :) = (/&
+     & 0.12624402E+01, 0.61607594E+00, 0.00000000E+00/)
+GB(11, 4, :) = (/&
+     & 0.12624402E+01, 0.11184188E+01, 0.10000000E+01/)
+!
+!
+!
+!
+!- H2O  350-500 cm-1
+!
+!-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U)
+!
+!----- INTERVAL = 5 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 1, 5, :) = (/&
+     & 0.15750172E+00,-0.22159303E-01, 0.00000000E+00/)
+GB( 1, 5, :) = (/&
+     & 0.15750172E+00, 0.38103212E+00, 0.10000000E+01/)
+GA( 1, 6, :) = (/&
+     & 0.17770551E+00,-0.24972399E-01, 0.00000000E+00/)
+GB( 1, 6, :) = (/&
+     & 0.17770551E+00, 0.41646579E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 2, 5, :) = (/&
+     & 0.16174076E+00,-0.22748917E-01, 0.00000000E+00/)
+GB( 2, 5, :) = (/&
+     & 0.16174076E+00, 0.38913800E+00, 0.10000000E+01/)
+GA( 2, 6, :) = (/&
+     & 0.18176757E+00,-0.25537247E-01, 0.00000000E+00/)
+GB( 2, 6, :) = (/&
+     & 0.18176757E+00, 0.42345095E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 3, 5, :) = (/&
+     & 0.16548628E+00,-0.23269898E-01, 0.00000000E+00/)
+GB( 3, 5, :) = (/&
+     & 0.16548628E+00, 0.39613651E+00, 0.10000000E+01/)
+GA( 3, 6, :) = (/&
+     & 0.18527967E+00,-0.26025624E-01, 0.00000000E+00/)
+GB( 3, 6, :) = (/&
+     & 0.18527967E+00, 0.42937476E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 4, 5, :) = (/&
+     & 0.16881124E+00,-0.23732392E-01, 0.00000000E+00/)
+GB( 4, 5, :) = (/&
+     & 0.16881124E+00, 0.40222421E+00, 0.10000000E+01/)
+GA( 4, 6, :) = (/&
+     & 0.18833348E+00,-0.26450280E-01, 0.00000000E+00/)
+GB( 4, 6, :) = (/&
+     & 0.18833348E+00, 0.43444062E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 5, 5, :) = (/&
+     & 0.17177839E+00,-0.24145123E-01, 0.00000000E+00/)
+GB( 5, 5, :) = (/&
+     & 0.17177839E+00, 0.40756010E+00, 0.10000000E+01/)
+GA( 5, 6, :) = (/&
+     & 0.19100108E+00,-0.26821236E-01, 0.00000000E+00/)
+GB( 5, 6, :) = (/&
+     & 0.19100108E+00, 0.43880316E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 6, 5, :) = (/&
+     & 0.17443933E+00,-0.24515269E-01, 0.00000000E+00/)
+GB( 6, 5, :) = (/&
+     & 0.17443933E+00, 0.41226954E+00, 0.10000000E+01/)
+GA( 6, 6, :) = (/&
+     & 0.19334122E+00,-0.27146657E-01, 0.00000000E+00/)
+GB( 6, 6, :) = (/&
+     & 0.19334122E+00, 0.44258354E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 7, 5, :) = (/&
+     & 0.17683622E+00,-0.24848690E-01, 0.00000000E+00/)
+GB( 7, 5, :) = (/&
+     & 0.17683622E+00, 0.41645142E+00, 0.10000000E+01/)
+GA( 7, 6, :) = (/&
+     & 0.19540288E+00,-0.27433354E-01, 0.00000000E+00/)
+GB( 7, 6, :) = (/&
+     & 0.19540288E+00, 0.44587882E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 8, 5, :) = (/&
+     & 0.17900375E+00,-0.25150210E-01, 0.00000000E+00/)
+GB( 8, 5, :) = (/&
+     & 0.17900375E+00, 0.42018474E+00, 0.10000000E+01/)
+GA( 8, 6, :) = (/&
+     & 0.19722732E+00,-0.27687065E-01, 0.00000000E+00/)
+GB( 8, 6, :) = (/&
+     & 0.19722732E+00, 0.44876776E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 9, 5, :) = (/&
+     & 0.18097099E+00,-0.25423873E-01, 0.00000000E+00/)
+GB( 9, 5, :) = (/&
+     & 0.18097099E+00, 0.42353379E+00, 0.10000000E+01/)
+GA( 9, 6, :) = (/&
+     & 0.19884918E+00,-0.27912608E-01, 0.00000000E+00/)
+GB( 9, 6, :) = (/&
+     & 0.19884918E+00, 0.45131451E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA(10, 5, :) = (/&
+     & 0.18276283E+00,-0.25673139E-01, 0.00000000E+00/)
+GB(10, 5, :) = (/&
+     & 0.18276283E+00, 0.42655211E+00, 0.10000000E+01/)
+GA(10, 6, :) = (/&
+     & 0.20029696E+00,-0.28113944E-01, 0.00000000E+00/)
+GB(10, 6, :) = (/&
+     & 0.20029696E+00, 0.45357095E+00, 0.10000000E+01/)
+!
+!----- INTERVAL = 5 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA(11, 5, :) = (/&
+     & 0.18440117E+00,-0.25901055E-01, 0.00000000E+00/)
+GB(11, 5, :) = (/&
+     & 0.18440117E+00, 0.42928533E+00, 0.10000000E+01/)
+GA(11, 6, :) = (/&
+     & 0.20159300E+00,-0.28294180E-01, 0.00000000E+00/)
+GB(11, 6, :) = (/&
+     & 0.20159300E+00, 0.45557797E+00, 0.10000000E+01/)
+     
+     
+
+!
+!
+!- H2O  800-970 + 1110-1250 cm-1
+!
+!--- G = 3.875E-03 ---------------
+!
+!----- INTERVAL = 3 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 1, 7, :) = (/&
+     & 0.10192131E+02, 0.80737799E+01, 0.00000000E+00/)
+GB( 1, 7, :) = (/&
+     & 0.10192131E+02, 0.82623280E+01, 0.10000000E+01/)
+GA( 1, 8, :) = (/&
+     & 0.92439050E+01, 0.77425778E+01, 0.00000000E+00/)
+GB( 1, 8, :) = (/&
+     & 0.92439050E+01, 0.79342219E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 2, 7, :) = (/&
+     & 0.97258602E+01, 0.79171158E+01, 0.00000000E+00/)
+GB( 2, 7, :) = (/&
+     & 0.97258602E+01, 0.81072291E+01, 0.10000000E+01/)
+GA( 2, 8, :) = (/&
+     & 0.87567422E+01, 0.75443460E+01, 0.00000000E+00/)
+GB( 2, 8, :) = (/&
+     & 0.87567422E+01, 0.77373458E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 3, 7, :) = (/&
+     & 0.92992890E+01, 0.77609605E+01, 0.00000000E+00/)
+GB( 3, 7, :) = (/&
+     & 0.92992890E+01, 0.79523834E+01, 0.10000000E+01/)
+GA( 3, 8, :) = (/&
+     & 0.83270144E+01, 0.73526151E+01, 0.00000000E+00/)
+GB( 3, 8, :) = (/&
+     & 0.83270144E+01, 0.75467334E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 4, 7, :) = (/&
+     & 0.89154021E+01, 0.76087371E+01, 0.00000000E+00/)
+GB( 4, 7, :) = (/&
+     & 0.89154021E+01, 0.78012527E+01, 0.10000000E+01/)
+GA( 4, 8, :) = (/&
+     & 0.79528337E+01, 0.71711188E+01, 0.00000000E+00/)
+GB( 4, 8, :) = (/&
+     & 0.79528337E+01, 0.73661786E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 5, 7, :) = (/&
+     & 0.85730084E+01, 0.74627112E+01, 0.00000000E+00/)
+GB( 5, 7, :) = (/&
+     & 0.85730084E+01, 0.76561458E+01, 0.10000000E+01/)
+GA( 5, 8, :) = (/&
+     & 0.76286839E+01, 0.70015571E+01, 0.00000000E+00/)
+GB( 5, 8, :) = (/&
+     & 0.76286839E+01, 0.71974319E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 6, 7, :) = (/&
+     & 0.82685838E+01, 0.73239981E+01, 0.00000000E+00/)
+GB( 6, 7, :) = (/&
+     & 0.82685838E+01, 0.75182174E+01, 0.10000000E+01/)
+GA( 6, 8, :) = (/&
+     & 0.73477879E+01, 0.68442532E+01, 0.00000000E+00/)
+GB( 6, 8, :) = (/&
+     & 0.73477879E+01, 0.70408543E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 7, 7, :) = (/&
+     & 0.79978921E+01, 0.71929934E+01, 0.00000000E+00/)
+GB( 7, 7, :) = (/&
+     & 0.79978921E+01, 0.73878952E+01, 0.10000000E+01/)
+GA( 7, 8, :) = (/&
+     & 0.71035818E+01, 0.66987996E+01, 0.00000000E+00/)
+GB( 7, 8, :) = (/&
+     & 0.71035818E+01, 0.68960649E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 8, 7, :) = (/&
+     & 0.77568055E+01, 0.70697065E+01, 0.00000000E+00/)
+GB( 8, 7, :) = (/&
+     & 0.77568055E+01, 0.72652133E+01, 0.10000000E+01/)
+GA( 8, 8, :) = (/&
+     & 0.68903312E+01, 0.65644820E+01, 0.00000000E+00/)
+GB( 8, 8, :) = (/&
+     & 0.68903312E+01, 0.67623672E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 9, 7, :) = (/&
+     & 0.75416266E+01, 0.69539626E+01, 0.00000000E+00/)
+GB( 9, 7, :) = (/&
+     & 0.75416266E+01, 0.71500151E+01, 0.10000000E+01/)
+GA( 9, 8, :) = (/&
+     & 0.67032875E+01, 0.64405267E+01, 0.00000000E+00/)
+GB( 9, 8, :) = (/&
+     & 0.67032875E+01, 0.66389989E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA(10, 7, :) = (/&
+     & 0.73491694E+01, 0.68455144E+01, 0.00000000E+00/)
+GB(10, 7, :) = (/&
+     & 0.73491694E+01, 0.70420667E+01, 0.10000000E+01/)
+GA(10, 8, :) = (/&
+     & 0.65386461E+01, 0.63262376E+01, 0.00000000E+00/)
+GB(10, 8, :) = (/&
+     & 0.65386461E+01, 0.65252707E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 3 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA(11, 7, :) = (/&
+     & 0.71767400E+01, 0.67441020E+01, 0.00000000E+00/)
+GB(11, 7, :) = (/&
+     & 0.71767400E+01, 0.69411177E+01, 0.10000000E+01/)
+GA(11, 8, :) = (/&
+     & 0.63934377E+01, 0.62210701E+01, 0.00000000E+00/)
+GB(11, 8, :) = (/&
+     & 0.63934377E+01, 0.64206412E+01, 0.10000000E+01/)
+!
+!
+!
+!- H2O  970 - 1110 cm-1
+!
+!!-- G = 3.6E-03
+!
+!----- INTERVAL = 4 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 1, 9, :) = (/&
+     & 0.24870635E+02, 0.10542131E+02, 0.00000000E+00/)
+GB( 1, 9, :) = (/&
+     & 0.24870635E+02, 0.10656640E+02, 0.10000000E+01/)
+GA( 1,10, :) = (/&
+     & 0.24586283E+02, 0.10490353E+02, 0.00000000E+00/)
+GB( 1,10, :) = (/&
+     & 0.24586283E+02, 0.10605856E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 2, 9, :) = (/&
+     & 0.24725591E+02, 0.10515895E+02, 0.00000000E+00/)
+GB( 2, 9, :) = (/&
+     & 0.24725591E+02, 0.10630910E+02, 0.10000000E+01/)
+GA( 2,10, :) = (/&
+     & 0.24441465E+02, 0.10463512E+02, 0.00000000E+00/)
+GB( 2,10, :) = (/&
+     & 0.24441465E+02, 0.10579514E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 3, 9, :) = (/&
+     & 0.24600320E+02, 0.10492949E+02, 0.00000000E+00/)
+GB( 3, 9, :) = (/&
+     & 0.24600320E+02, 0.10608399E+02, 0.10000000E+01/)
+GA( 3,10, :) = (/&
+     & 0.24311657E+02, 0.10439183E+02, 0.00000000E+00/)
+GB( 3,10, :) = (/&
+     & 0.24311657E+02, 0.10555632E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 4, 9, :) = (/&
+     & 0.24487300E+02, 0.10472049E+02, 0.00000000E+00/)
+GB( 4, 9, :) = (/&
+     & 0.24487300E+02, 0.10587891E+02, 0.10000000E+01/)
+GA( 4,10, :) = (/&
+     & 0.24196167E+02, 0.10417324E+02, 0.00000000E+00/)
+GB( 4,10, :) = (/&
+     & 0.24196167E+02, 0.10534169E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 5, 9, :) = (/&
+     & 0.24384935E+02, 0.10452961E+02, 0.00000000E+00/)
+GB( 5, 9, :) = (/&
+     & 0.24384935E+02, 0.10569156E+02, 0.10000000E+01/)
+GA( 5,10, :) = (/&
+     & 0.24093406E+02, 0.10397704E+02, 0.00000000E+00/)
+GB( 5,10, :) = (/&
+     & 0.24093406E+02, 0.10514900E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 6, 9, :) = (/&
+     & 0.24292341E+02, 0.10435562E+02, 0.00000000E+00/)
+GB( 6, 9, :) = (/&
+     & 0.24292341E+02, 0.10552075E+02, 0.10000000E+01/)
+GA( 6,10, :) = (/&
+     & 0.24001597E+02, 0.10380038E+02, 0.00000000E+00/)
+GB( 6,10, :) = (/&
+     & 0.24001597E+02, 0.10497547E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 7, 9, :) = (/&
+     & 0.24208572E+02, 0.10419710E+02, 0.00000000E+00/)
+GB( 7, 9, :) = (/&
+     & 0.24208572E+02, 0.10536510E+02, 0.10000000E+01/)
+GA( 7,10, :) = (/&
+     & 0.23919098E+02, 0.10364052E+02, 0.00000000E+00/)
+GB( 7,10, :) = (/&
+     & 0.23919098E+02, 0.10481842E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 8, 9, :) = (/&
+     & 0.24132642E+02, 0.10405247E+02, 0.00000000E+00/)
+GB( 8, 9, :) = (/&
+     & 0.24132642E+02, 0.10522307E+02, 0.10000000E+01/)
+GA( 8,10, :) = (/&
+     & 0.23844511E+02, 0.10349509E+02, 0.00000000E+00/)
+GB( 8,10, :) = (/&
+     & 0.23844511E+02, 0.10467553E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA( 9, 9, :) = (/&
+     & 0.24063614E+02, 0.10392022E+02, 0.00000000E+00/)
+GB( 9, 9, :) = (/&
+     & 0.24063614E+02, 0.10509317E+02, 0.10000000E+01/)
+GA( 9,10, :) = (/&
+     & 0.23776708E+02, 0.10336215E+02, 0.00000000E+00/)
+GB( 9,10, :) = (/&
+     & 0.23776708E+02, 0.10454488E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA(10, 9, :) = (/&
+     & 0.24000649E+02, 0.10379892E+02, 0.00000000E+00/)
+GB(10, 9, :) = (/&
+     & 0.24000649E+02, 0.10497402E+02, 0.10000000E+01/)
+GA(10,10, :) = (/&
+     & 0.23714816E+02, 0.10324018E+02, 0.00000000E+00/)
+GB(10,10, :) = (/&
+     & 0.23714816E+02, 0.10442501E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA(11, 9, :) = (/&
+     & 0.23943021E+02, 0.10368736E+02, 0.00000000E+00/)
+GB(11, 9, :) = (/&
+     & 0.23943021E+02, 0.10486443E+02, 0.10000000E+01/)
+GA(11,10, :) = (/&
+     & 0.23658197E+02, 0.10312808E+02, 0.00000000E+00/)
+GB(11,10, :) = (/&
+     & 0.23658197E+02, 0.10431483E+02, 0.10000000E+01/)
+!
+!
+!
+!- H2O  1250-1450 + 1880-2820 cm-1
+!
+!--- G = 0.0
+!
+!
+!----- INTERVAL = 6 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 1,11, :) = (/&
+     & 0.11990218E+02,-0.12823142E+01, 0.00000000E+00/)
+GB( 1,11, :) = (/&
+     & 0.11990218E+02, 0.26681588E+02, 0.10000000E+01/)
+GA( 1,12, :) = (/&
+     & 0.79709806E+01,-0.74805226E+00, 0.00000000E+00/)
+GB( 1,12, :) = (/&
+     & 0.79709806E+01, 0.18377807E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 2,11, :) = (/&
+     & 0.10904073E+02,-0.10571588E+01, 0.00000000E+00/)
+GB( 2,11, :) = (/&
+     & 0.10904073E+02, 0.24728346E+02, 0.10000000E+01/)
+GA( 2,12, :) = (/&
+     & 0.75400737E+01,-0.56252739E+00, 0.00000000E+00/)
+GB( 2,12, :) = (/&
+     & 0.75400737E+01, 0.17643148E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 3,11, :) = (/&
+     & 0.89126838E+01,-0.74864953E+00, 0.00000000E+00/)
+GB( 3,11, :) = (/&
+     & 0.89126838E+01, 0.20551342E+02, 0.10000000E+01/)
+GA( 3,12, :) = (/&
+     & 0.81804377E+01,-0.46188072E+00, 0.00000000E+00/)
+GB( 3,12, :) = (/&
+     & 0.81804377E+01, 0.19296161E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 4,11, :) = (/&
+     & 0.85622405E+01,-0.58705980E+00, 0.00000000E+00/)
+GB( 4,11, :) = (/&
+     & 0.85622405E+01, 0.19955244E+02, 0.10000000E+01/)
+GA( 4,12, :) = (/&
+     & 0.10564339E+02,-0.40712065E+00, 0.00000000E+00/)
+GB( 4,12, :) = (/&
+     & 0.10564339E+02, 0.24951120E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 5,11, :) = (/&
+     & 0.94892164E+01,-0.49305772E+00, 0.00000000E+00/)
+GB( 5,11, :) = (/&
+     & 0.94892164E+01, 0.22227100E+02, 0.10000000E+01/)
+GA( 5,12, :) = (/&
+     & 0.46896789E+02,-0.15295996E+01, 0.00000000E+00/)
+GB( 5,12, :) = (/&
+     & 0.46896789E+02, 0.10957372E+03, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 6,11, :) = (/&
+     & 0.13580937E+02,-0.51461431E+00, 0.00000000E+00/)
+GB( 6,11, :) = (/&
+     & 0.13580937E+02, 0.31770288E+02, 0.10000000E+01/)
+GA( 6,12, :) = (/&
+     &-0.30926524E+01, 0.43555255E+00, 0.00000000E+00/)
+GB( 6,12, :) = (/&
+     &-0.30926524E+01,-0.67432659E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 7,11, :) = (/&
+     &-0.32050918E+03, 0.12373350E+02, 0.00000000E+00/)
+GB( 7,11, :) = (/&
+     &-0.32050918E+03,-0.74061287E+03, 0.10000000E+01/)
+GA( 7,12, :) = (/&
+     & 0.85742941E+00, 0.50380874E+00, 0.00000000E+00/)
+GB( 7,12, :) = (/&
+     & 0.85742941E+00, 0.24550746E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 8,11, :) = (/&
+     &-0.37133165E+01, 0.44809588E+00, 0.00000000E+00/)
+GB( 8,11, :) = (/&
+     &-0.37133165E+01,-0.81329826E+01, 0.10000000E+01/)
+GA( 8,12, :) = (/&
+     & 0.19164038E+01, 0.68537352E+00, 0.00000000E+00/)
+GB( 8,12, :) = (/&
+     & 0.19164038E+01, 0.49089917E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA( 9,11, :) = (/&
+     & 0.18890836E+00, 0.46548918E+00, 0.00000000E+00/)
+GB( 9,11, :) = (/&
+     & 0.18890836E+00, 0.90279822E+00, 0.10000000E+01/)
+GA( 9,12, :) = (/&
+     & 0.23513199E+01, 0.89437630E+00, 0.00000000E+00/)
+GB( 9,12, :) = (/&
+     & 0.23513199E+01, 0.59008712E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA(10,11, :) = (/&
+     & 0.14209226E+01, 0.59121475E+00, 0.00000000E+00/)
+GB(10,11, :) = (/&
+     & 0.14209226E+01, 0.37532746E+01, 0.10000000E+01/)
+GA(10,12, :) = (/&
+     & 0.25566644E+01, 0.11127003E+01, 0.00000000E+00/)
+GB(10,12, :) = (/&
+     & 0.25566644E+01, 0.63532616E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 6 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA(11,11, :) = (/&
+     & 0.19817679E+01, 0.74676119E+00, 0.00000000E+00/)
+GB(11,11, :) = (/&
+     & 0.19817679E+01, 0.50437916E+01, 0.10000000E+01/)
+GA(11,12, :) = (/&
+     & 0.26555181E+01, 0.13329782E+01, 0.00000000E+00/)
+GB(11,12, :) = (/&
+     & 0.26555181E+01, 0.65558627E+01, 0.10000000E+01/)
+!
+!
+
+!
+!
+!
+!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ----------------------
+!
+!
+!
+!-- FIU = 0.8 + MAX(0.35,(7-IU)*0.9)  , X/T,  9
+!
+!----- INTERVAL = 2 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 1,13, :) = (/&
+     & 0.87668459E-01, 0.13845511E+01, 0.00000000E+00/)
+GB( 1,13, :) = (/&
+     & 0.87668459E-01, 0.23203798E+01, 0.10000000E+01/)
+GA( 1,14, :) = (/&
+     & 0.74878820E-01, 0.11718758E+01, 0.00000000E+00/)
+GB( 1,14, :) = (/&
+     & 0.74878820E-01, 0.20206726E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 2,13, :) = (/&
+     & 0.83754276E-01, 0.13187042E+01, 0.00000000E+00/)
+GB( 2,13, :) = (/&
+     & 0.83754276E-01, 0.22288925E+01, 0.10000000E+01/)
+GA( 2,14, :) = (/&
+     & 0.71650966E-01, 0.11216131E+01, 0.00000000E+00/)
+GB( 2,14, :) = (/&
+     & 0.71650966E-01, 0.19441824E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 3,13, :) = (/&
+     & 0.80460283E-01, 0.12644396E+01, 0.00000000E+00/)
+GB( 3,13, :) = (/&
+     & 0.80460283E-01, 0.21515593E+01, 0.10000000E+01/)
+GA( 3,14, :) = (/&
+     & 0.68979615E-01, 0.10809473E+01, 0.00000000E+00/)
+GB( 3,14, :) = (/&
+     & 0.68979615E-01, 0.18807257E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 4,13, :) = (/&
+     & 0.77659686E-01, 0.12191543E+01, 0.00000000E+00/)
+GB( 4,13, :) = (/&
+     & 0.77659686E-01, 0.20855896E+01, 0.10000000E+01/)
+GA( 4,14, :) = (/&
+     & 0.66745345E-01, 0.10476396E+01, 0.00000000E+00/)
+GB( 4,14, :) = (/&
+     & 0.66745345E-01, 0.18275618E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 5,13, :) = (/&
+     & 0.75257056E-01, 0.11809511E+01, 0.00000000E+00/)
+GB( 5,13, :) = (/&
+     & 0.75257056E-01, 0.20288489E+01, 0.10000000E+01/)
+GA( 5,14, :) = (/&
+     & 0.64857571E-01, 0.10200373E+01, 0.00000000E+00/)
+GB( 5,14, :) = (/&
+     & 0.64857571E-01, 0.17825910E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 6,13, :) = (/&
+     & 0.73179175E-01, 0.11484154E+01, 0.00000000E+00/)
+GB( 6,13, :) = (/&
+     & 0.73179175E-01, 0.19796791E+01, 0.10000000E+01/)
+GA( 6,14, :) = (/&
+     & 0.63248495E-01, 0.99692726E+00, 0.00000000E+00/)
+GB( 6,14, :) = (/&
+     & 0.63248495E-01, 0.17442308E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 7,13, :) = (/&
+     & 0.71369063E-01, 0.11204723E+01, 0.00000000E+00/)
+GB( 7,13, :) = (/&
+     & 0.71369063E-01, 0.19367778E+01, 0.10000000E+01/)
+GA( 7,14, :) = (/&
+     & 0.61866970E-01, 0.97740923E+00, 0.00000000E+00/)
+GB( 7,14, :) = (/&
+     & 0.61866970E-01, 0.17112809E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 8,13, :) = (/&
+     & 0.69781812E-01, 0.10962918E+01, 0.00000000E+00/)
+GB( 8,13, :) = (/&
+     & 0.69781812E-01, 0.18991112E+01, 0.10000000E+01/)
+GA( 8,14, :) = (/&
+     & 0.60673632E-01, 0.96080188E+00, 0.00000000E+00/)
+GB( 8,14, :) = (/&
+     & 0.60673632E-01, 0.16828137E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA( 9,13, :) = (/&
+     & 0.68381606E-01, 0.10752229E+01, 0.00000000E+00/)
+GB( 9,13, :) = (/&
+     & 0.68381606E-01, 0.18658501E+01, 0.10000000E+01/)
+GA( 9,14, :) = (/&
+     & 0.59637277E-01, 0.94657562E+00, 0.00000000E+00/)
+GB( 9,14, :) = (/&
+     & 0.59637277E-01, 0.16580908E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA(10,13, :) = (/&
+     & 0.67139539E-01, 0.10567474E+01, 0.00000000E+00/)
+GB(10,13, :) = (/&
+     & 0.67139539E-01, 0.18363226E+01, 0.10000000E+01/)
+GA(10,14, :) = (/&
+     & 0.58732178E-01, 0.93430511E+00, 0.00000000E+00/)
+GB(10,14, :) = (/&
+     & 0.58732178E-01, 0.16365014E+01, 0.10000000E+01/)
+!
+!----- INTERVAL = 2 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA(11,13, :) = (/&
+     & 0.66032012E-01, 0.10404465E+01, 0.00000000E+00/)
+GB(11,13, :) = (/&
+     & 0.66032012E-01, 0.18099779E+01, 0.10000000E+01/)
+GA(11,14, :) = (/&
+     & 0.57936092E-01, 0.92363528E+00, 0.00000000E+00/)
+GB(11,14, :) = (/&
+     & 0.57936092E-01, 0.16175164E+01, 0.10000000E+01/)
+!
+!
+!
+!
+!
+!
+!
+!
+!
+!
+!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
+!
+!
+!-- G = 0.0
+!
+!
+!----- INTERVAL = 4 ----- T =  187.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 1,15, :) = (/&
+     & 0.13230067E+02, 0.22042132E+02, 0.00000000E+00/)
+GB( 1,15, :) = (/&
+     & 0.13230067E+02, 0.22051750E+02, 0.10000000E+01/)
+GA( 1,16, :) = (/&
+     & 0.13183816E+02, 0.22169501E+02, 0.00000000E+00/)
+GB( 1,16, :) = (/&
+     & 0.13183816E+02, 0.22178972E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  200.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 2,15, :) = (/&
+     & 0.13213564E+02, 0.22107298E+02, 0.00000000E+00/)
+GB( 2,15, :) = (/&
+     & 0.13213564E+02, 0.22116850E+02, 0.10000000E+01/)
+GA( 2,16, :) = (/&
+     & 0.13189991E+02, 0.22270075E+02, 0.00000000E+00/)
+GB( 2,16, :) = (/&
+     & 0.13189991E+02, 0.22279484E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  212.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 3,15, :) = (/&
+     & 0.13209140E+02, 0.22180915E+02, 0.00000000E+00/)
+GB( 3,15, :) = (/&
+     & 0.13209140E+02, 0.22190410E+02, 0.10000000E+01/)
+GA( 3,16, :) = (/&
+     & 0.13209485E+02, 0.22379193E+02, 0.00000000E+00/)
+GB( 3,16, :) = (/&
+     & 0.13209485E+02, 0.22388551E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  225.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 4,15, :) = (/&
+     & 0.13213894E+02, 0.22259478E+02, 0.00000000E+00/)
+GB( 4,15, :) = (/&
+     & 0.13213894E+02, 0.22268925E+02, 0.10000000E+01/)
+GA( 4,16, :) = (/&
+     & 0.13238789E+02, 0.22492992E+02, 0.00000000E+00/)
+GB( 4,16, :) = (/&
+     & 0.13238789E+02, 0.22502309E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  237.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 5,15, :) = (/&
+     & 0.13225963E+02, 0.22341039E+02, 0.00000000E+00/)
+GB( 5,15, :) = (/&
+     & 0.13225963E+02, 0.22350445E+02, 0.10000000E+01/)
+GA( 5,16, :) = (/&
+     & 0.13275017E+02, 0.22608508E+02, 0.00000000E+00/)
+GB( 5,16, :) = (/&
+     & 0.13275017E+02, 0.22617792E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  250.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 6,15, :) = (/&
+     & 0.13243806E+02, 0.22424247E+02, 0.00000000E+00/)
+GB( 6,15, :) = (/&
+     & 0.13243806E+02, 0.22433617E+02, 0.10000000E+01/)
+GA( 6,16, :) = (/&
+     & 0.13316096E+02, 0.22723843E+02, 0.00000000E+00/)
+GB( 6,16, :) = (/&
+     & 0.13316096E+02, 0.22733099E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  262.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 7,15, :) = (/&
+     & 0.13266104E+02, 0.22508089E+02, 0.00000000E+00/)
+GB( 7,15, :) = (/&
+     & 0.13266104E+02, 0.22517429E+02, 0.10000000E+01/)
+GA( 7,16, :) = (/&
+     & 0.13360555E+02, 0.22837837E+02, 0.00000000E+00/)
+GB( 7,16, :) = (/&
+     & 0.13360555E+02, 0.22847071E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  275.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 8,15, :) = (/&
+     & 0.13291782E+02, 0.22591771E+02, 0.00000000E+00/)
+GB( 8,15, :) = (/&
+     & 0.13291782E+02, 0.22601086E+02, 0.10000000E+01/)
+GA( 8,16, :) = (/&
+     & 0.13407324E+02, 0.22949751E+02, 0.00000000E+00/)
+GB( 8,16, :) = (/&
+     & 0.13407324E+02, 0.22958967E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  287.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA( 9,15, :) = (/&
+     & 0.13319961E+02, 0.22674661E+02, 0.00000000E+00/)
+GB( 9,15, :) = (/&
+     & 0.13319961E+02, 0.22683956E+02, 0.10000000E+01/)
+GA( 9,16, :) = (/&
+     & 0.13455544E+02, 0.23059032E+02, 0.00000000E+00/)
+GB( 9,16, :) = (/&
+     & 0.13455544E+02, 0.23068234E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  300.0
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA(10,15, :) = (/&
+     & 0.13349927E+02, 0.22756246E+02, 0.00000000E+00/)
+GB(10,15, :) = (/&
+     & 0.13349927E+02, 0.22765522E+02, 0.10000000E+01/)
+GA(10,16, :) = (/&
+     & 0.13504450E+02, 0.23165146E+02, 0.00000000E+00/)
+GB(10,16, :) = (/&
+     & 0.13504450E+02, 0.23174336E+02, 0.10000000E+01/)
+!
+!----- INTERVAL = 4 ----- T =  312.5
+!
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA(11,15, :) = (/&
+     & 0.13381108E+02, 0.22836093E+02, 0.00000000E+00/)
+GB(11,15, :) = (/&
+     & 0.13381108E+02, 0.22845354E+02, 0.10000000E+01/)
+GA(11,16, :) = (/&
+     & 0.13553282E+02, 0.23267456E+02, 0.00000000E+00/)
+GB(11,16, :) = (/&
+     & 0.13553282E+02, 0.23276638E+02, 0.10000000E+01/)
+!     
+RETURN
+END SUBROUTINE SUOLW
Index: LMDZ5/branches/testing/libf/phymar/suovlp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suovlp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suovlp.F90	(revision 2160)
@@ -0,0 +1,51 @@
+SUBROUTINE SUOVLP ( KLEV, PAZ )
+  
+!***** *SUOVLP*   -INITIALIZE PROFILE OF ALPHA1
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUOVLP* FROM *SUECRAD*
+!              ------        -------
+!
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 01-02-16
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERAD   , ONLY : RAOVLP, RBOVLP
+USE YOEOVLP  , ONLY : RA1OVLP
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER_M :: KLEV
+
+REAL_B :: PAZ(KLEV)
+
+!     ------------------------------------------------------------------
+
+!     LOCAL INTEGER PARAMETERS
+
+INTEGER_M :: JK
+
+DO JK=1,KLEV
+  RA1OVLP(JK)=RAOVLP*PAZ(JK)+RBOVLP
+END DO  
+
+!     ------------------------------------------------------------------
+RETURN
+END SUBROUTINE SUOVLP
Index: LMDZ5/branches/testing/libf/phymar/surdi.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/surdi.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/surdi.F90	(revision 2160)
@@ -0,0 +1,128 @@
+SUBROUTINE SURDI
+
+
+!**** *SURDI*   - INITIALIZE COMMON YOERDI CONTROLLING RADINT
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOERDI, THE COMMON THAT CONTROLS THE
+!           RADIATION INTERFACE
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SURDI* FROM *SURAD*
+!              ------        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOERDI
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS MODEL
+
+!     AUTHOR.
+!     -------
+!        Original  JEAN-JACQUES MORCRETTE  *ECMWF*
+!        Modified   P. Viterbo   99-03-26    Tiling of the land surface
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERDI   , ONLY : RRAE     ,RALBSEAD ,&
+            &RALBICEVS_AR,RALBICENI_AR,RALBICEVS_AN,RALBICENI_AN,&
+            &RALBSFO  ,REMISD   ,REMISL   ,REMISN   ,REMISS   ,&
+            &RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
+            &RCFC12   ,REPALB   ,REPCLC   ,REPH2O   ,RSUNDUR
+
+IMPLICIT NONE
+
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
+INTEGER_M :: JM, IM
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+RRAE = 0.1277E-02_JPRB
+
+!* Threshold for computing sunshine duration (W/m2)
+RSUNDUR=120._JPRB
+
+!*  Ocean surface albedo for diffuse radiation (Taylor et al., 1997)      
+RALBSEAD = 0.06_JPRB
+!*  For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2.
+!   We take dry snow albedo as the representative value for non-summer
+!   months, and bare sea-ice as the representative value for summer
+!   months. The values for Antarctic are shifted six-months.
+!*  Sea ice surf. albedo for visible rad. (snow covered; Ebert and Curry, 1993)
+RALBICEVS_AR(1:12) = (/0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB,&
+                      &0.975_JPRB,0.876_JPRB,0.778_JPRB,0.778_JPRB,&
+                      &0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB/)
+!*  Sea ice surf. albedo for near-IR rad. (snow covered; Ebert and Curry, 1993)
+RALBICENI_AR(1:12) = (/0.664_JPRB,0.664_JPRB,0.664_JPRB,0.664_JPRB,&
+                      &0.664_JPRB,0.476_JPRB,0.288_JPRB,0.288_JPRB,&
+                      &0.664_JPRB,0.664_JPRB,0.664_JPRB,0.664_JPRB/)
+DO JM=1,12
+  IM=MOD(JM+5,12)+1
+  RALBICEVS_AN(JM)=RALBICEVS_AR(IM)
+  RALBICENI_AN(JM)=RALBICENI_AR(IM)
+ENDDO
+!*  Snow albedo in the presence of high vegetation
+RALBSFO=0.15_JPRB
+
+!- sea surface emissivity and other surfaces outside the window region     
+REMISS  = 0.99_JPRB
+!- snow window emissivity      
+REMISN  = 0.98_JPRB
+!- land window emissivity      
+REMISL  = 0.96_JPRB
+!- desert window emissivity (lower bound when dry)      
+REMISD  = 0.93_JPRB
+
+!*  Concentration of the various trace gases (IPCC/SACC values for 1990)
+!        CO2         CH4        N2O        CFC11       CFC12
+!      353ppmv     1.72ppmv   310ppbv     280pptv     484pptv
+
+ZAIRMWG = 28.970_JPRB
+ZCO2MWG = 44.011_JPRB
+ZCH4MWG = 16.043_JPRB
+ZN2OMWG = 44.013_JPRB
+ZO3MWG  = 47.9982_JPRB
+ZC11MWG = 137.3686_JPRB
+ZC12MWG = 120.9140_JPRB
+
+RCARDI  = 353.E-06_JPRB*ZCO2MWG/ZAIRMWG
+RCH4    = 1.72E-06_JPRB*ZCH4MWG/ZAIRMWG
+RN2O    = 310.E-09_JPRB*ZN2OMWG/ZAIRMWG
+RO3     =   1.E-06_JPRB*ZO3MWG /ZAIRMWG
+RCFC11  = 280.E-12_JPRB*ZC11MWG/ZAIRMWG
+RCFC12  = 484.E-12_JPRB*ZC12MWG/ZAIRMWG
+
+REPCLC=1.E-12_JPRB
+REPH2O=1.E-12_JPRB
+REPALB=1.E-12_JPRB
+
+!     -----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SURDI
Index: LMDZ5/branches/testing/libf/phymar/surrtab.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/surrtab.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/surrtab.F90	(revision 2160)
@@ -0,0 +1,40 @@
+SUBROUTINE SURRTAB
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** AER'S RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!     -----------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTAB , ONLY : TRANS, BPADE
+
+IMPLICIT NONE
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: ITR
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZTAU, ZTFN
+
+
+BPADE=_ONE_/0.278_JPRB
+TRANS(0)   =_ONE_
+TRANS(5000)=_ZERO_
+DO ITR=1,4970
+  ZTFN=REAL(ITR)/5000._JPRB
+  ZTAU=BPADE*ZTFN/(_ONE_-ZTFN)
+  TRANS(ITR)=EXP(-ZTAU)
+! write(6,*) ITR,TRANS(ITR)
+ENDDO
+DO ITR=4971,4999
+  TRANS(ITR)=_ZERO_
+! write(6,*) ITR,TRANS(ITR)
+ENDDO
+
+!     -----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SURRTAB
Index: LMDZ5/branches/testing/libf/phymar/surrtftr.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/surrtftr.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/surrtftr.F90	(revision 2160)
@@ -0,0 +1,82 @@
+SUBROUTINE SURRTFTR
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+NGC( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
+
+NGS( :) = (/&
+             &8,  22,  38,  52,  68,  76,  88,  96, &
+           &108, 114, 122, 130, 134, 136, 138, 140/)
+NGM( :) = (/&
+           &1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 1
+           &1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14,      &! Band 2
+           &1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,      &! Band 3
+           &1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14,      &! Band 4
+           &1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,      &! Band 5
+           &1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 6
+           &1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12,        &! Band 7
+           &1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 8
+           &1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12,       &! Band 9
+           &1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6,             &! Band 10
+           &1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8,             &! Band 11
+           &1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8,             &! Band 12
+           &1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4,             &! Band 13
+           &1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,             &! Band 14
+           &1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,             &! Band 15
+           &1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/)           ! Band 16
+
+NGN( :) = (/&
+           &2,2,2,2,2,2,2,2,                             &! Band 1
+           &1,1,1,1,1,1,1,1,1,1,1,1,2,2,                 &! Band 2
+           &1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,             &! Band 3
+           &1,1,1,1,1,1,1,1,1,1,1,1,1,3,                 &! Band 4
+           &1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,             &! Band 5
+           &2,2,2,2,2,2,2,2,                             &! Band 6
+           &2,2,1,1,1,1,1,1,1,1,2,2,                     &! Band 7
+           &2,2,2,2,2,2,2,2,                             &! Band 8
+           &1,1,1,1,1,1,1,1,2,2,2,2,                     &! Band 9
+           &2,2,2,2,4,4,                                 &! Band 10
+           &1,1,2,2,2,2,3,3,                             &! Band 11
+           &1,1,1,1,2,2,4,4,                             &! Band 12
+           &3,3,4,6,                                     &! Band 13
+           &8,8,                                         &! Band 14
+           &8,8,                                         &! Band 15
+           &8,8/)                                       ! Band 16
+
+NGB( :) = (/&
+            &1,1,1,1,1,1,1,1,                            &! Band 1
+            &2,2,2,2,2,2,2,2,2,2,2,2,2,2,                &! Band 2
+            &3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,            &! Band 3
+            &4,4,4,4,4,4,4,4,4,4,4,4,4,4,                &! Band 4
+            &5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,            &! Band 5
+            &6,6,6,6,6,6,6,6,                            &! Band 6
+            &7,7,7,7,7,7,7,7,7,7,7,7,                    &! Band 7
+            &8,8,8,8,8,8,8,8,                            &! Band 8
+            &9,9,9,9,9,9,9,9,9,9,9,9,                    &! Band 9
+           &10,10,10,10,10,10,                           &! Band 10
+           &11,11,11,11,11,11,11,11,                     &! Band 11
+           &12,12,12,12,12,12,12,12,                     &! Band 12
+           &13,13,13,13,                                 &! Band 13
+           &14,14,                                       &! Band 14
+           &15,15,                                       &! Band 15
+           &16,16/)                                     ! Band 16
+
+WT( :) = (/&
+     &0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
+     &0.1181945205_JPRB,0.1019300893_JPRB,0.0832767040_JPRB,0.0626720116_JPRB,&
+     &0.0424925_JPRB   ,0.0046269894_JPRB,0.0038279891_JPRB,0.0030260086_JPRB,&
+     &0.0022199750_JPRB,0.0014140010_JPRB,0.000533_JPRB    ,0.000075_JPRB    /)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE SURRTFTR
Index: LMDZ5/branches/testing/libf/phymar/surrtpk.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/surrtpk.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/surrtpk.F90	(revision 2160)
@@ -0,0 +1,744 @@
+SUBROUTINE SURRTPK
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
+           &WAVENUM2  ,DELWAVE   ,TOTPLNK   ,TOTPLK16
+
+!     ------------------------------------------------------------------
+
+
+IMPLICIT NONE
+NG( :) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/)
+NSPA( :) = (/1, 1,10, 9, 9, 1, 9, 1,11, 1, 1, 9, 9, 1, 9, 9/)
+NSPB( :) = (/1, 1, 5, 6, 5, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0/)
+WAVENUM1( :) = (/&
+    &10._JPRB, 250._JPRB, 500._JPRB, 630._JPRB, 700._JPRB, 820._JPRB, 980._JPRB,1080._JPRB &
+ &,1180._JPRB,1390._JPRB,1480._JPRB,1800._JPRB,2080._JPRB,2250._JPRB,2380._JPRB,2600._JPRB/)
+WAVENUM2( :) = (/&
+   &250._JPRB, 500._JPRB, 630._JPRB, 700._JPRB, 820._JPRB, 980._JPRB,1080._JPRB,1180._JPRB &
+ &,1390._JPRB,1480._JPRB,1800._JPRB,2080._JPRB,2250._JPRB,2380._JPRB,2600._JPRB,3000._JPRB/)
+DELWAVE( :) = (/&
+   &240._JPRB, 250._JPRB, 130._JPRB,  70._JPRB, 120._JPRB, 160._JPRB, 100._JPRB, 100._JPRB &
+ &, 210._JPRB,  90._JPRB, 320._JPRB, 280._JPRB, 170._JPRB, 130._JPRB, 220._JPRB, 400._JPRB/)
+
+TOTPLNK( :, 1) = (/&
+&1.13735E-06_JPRB,1.15150E-06_JPRB,1.16569E-06_JPRB,1.17992E-06_JPRB,1.19419E-06_JPRB,&
+&1.20850E-06_JPRB,1.22285E-06_JPRB,1.23723E-06_JPRB,1.25164E-06_JPRB,1.26610E-06_JPRB,&
+&1.28059E-06_JPRB,1.29511E-06_JPRB,1.30967E-06_JPRB,1.32426E-06_JPRB,1.33889E-06_JPRB,&
+&1.35355E-06_JPRB,1.36824E-06_JPRB,1.38296E-06_JPRB,1.39772E-06_JPRB,1.41250E-06_JPRB,&
+&1.42732E-06_JPRB,1.44217E-06_JPRB,1.45704E-06_JPRB,1.47195E-06_JPRB,1.48689E-06_JPRB,&
+&1.50185E-06_JPRB,1.51684E-06_JPRB,1.53186E-06_JPRB,1.54691E-06_JPRB,1.56198E-06_JPRB,&
+&1.57709E-06_JPRB,1.59222E-06_JPRB,1.60737E-06_JPRB,1.62255E-06_JPRB,1.63776E-06_JPRB,&
+&1.65299E-06_JPRB,1.66825E-06_JPRB,1.68352E-06_JPRB,1.69883E-06_JPRB,1.71416E-06_JPRB,&
+&1.72951E-06_JPRB,1.74488E-06_JPRB,1.76028E-06_JPRB,1.77570E-06_JPRB,1.79114E-06_JPRB,&
+&1.80661E-06_JPRB,1.82210E-06_JPRB,1.83760E-06_JPRB,1.85313E-06_JPRB,1.86868E-06_JPRB,&
+
+&1.88425E-06_JPRB,1.89985E-06_JPRB,1.91546E-06_JPRB,1.93109E-06_JPRB,1.94674E-06_JPRB,&
+&1.96241E-06_JPRB,1.97811E-06_JPRB,1.99381E-06_JPRB,2.00954E-06_JPRB,2.02529E-06_JPRB,&
+&2.04105E-06_JPRB,2.05684E-06_JPRB,2.07264E-06_JPRB,2.08846E-06_JPRB,2.10429E-06_JPRB,&
+&2.12015E-06_JPRB,2.13602E-06_JPRB,2.15190E-06_JPRB,2.16781E-06_JPRB,2.18373E-06_JPRB,&
+&2.19966E-06_JPRB,2.21562E-06_JPRB,2.23159E-06_JPRB,2.24758E-06_JPRB,2.26358E-06_JPRB,&
+&2.27959E-06_JPRB,2.29562E-06_JPRB,2.31167E-06_JPRB,2.32773E-06_JPRB,2.34381E-06_JPRB,&
+&2.35990E-06_JPRB,2.37601E-06_JPRB,2.39212E-06_JPRB,2.40825E-06_JPRB,2.42440E-06_JPRB,&
+&2.44056E-06_JPRB,2.45673E-06_JPRB,2.47292E-06_JPRB,2.48912E-06_JPRB,2.50533E-06_JPRB,&
+&2.52157E-06_JPRB,2.53781E-06_JPRB,2.55406E-06_JPRB,2.57032E-06_JPRB,2.58660E-06_JPRB,&
+&2.60289E-06_JPRB,2.61919E-06_JPRB,2.63550E-06_JPRB,2.65183E-06_JPRB,2.66817E-06_JPRB,&
+
+&2.68452E-06_JPRB,2.70088E-06_JPRB,2.71726E-06_JPRB,2.73364E-06_JPRB,2.75003E-06_JPRB,&
+&2.76644E-06_JPRB,2.78286E-06_JPRB,2.79929E-06_JPRB,2.81572E-06_JPRB,2.83218E-06_JPRB,&
+&2.84864E-06_JPRB,2.86510E-06_JPRB,2.88159E-06_JPRB,2.89807E-06_JPRB,2.91458E-06_JPRB,&
+&2.93109E-06_JPRB,2.94762E-06_JPRB,2.96415E-06_JPRB,2.98068E-06_JPRB,2.99724E-06_JPRB,&
+&3.01379E-06_JPRB,3.03036E-06_JPRB,3.04693E-06_JPRB,3.06353E-06_JPRB,3.08013E-06_JPRB,&
+&3.09674E-06_JPRB,3.11335E-06_JPRB,3.12998E-06_JPRB,3.14661E-06_JPRB,3.16324E-06_JPRB,&
+&3.17989E-06_JPRB,3.19656E-06_JPRB,3.21323E-06_JPRB,3.22991E-06_JPRB,3.24658E-06_JPRB,&
+&3.26328E-06_JPRB,3.27998E-06_JPRB,3.29669E-06_JPRB,3.31341E-06_JPRB,3.33013E-06_JPRB,&
+&3.34686E-06_JPRB,3.36360E-06_JPRB,3.38034E-06_JPRB,3.39709E-06_JPRB,3.41387E-06_JPRB,&
+&3.43063E-06_JPRB,3.44742E-06_JPRB,3.46420E-06_JPRB,3.48099E-06_JPRB,3.49779E-06_JPRB,&
+
+&3.51461E-06_JPRB,3.53141E-06_JPRB,3.54824E-06_JPRB,3.56506E-06_JPRB,3.58191E-06_JPRB,&
+&3.59875E-06_JPRB,3.61559E-06_JPRB,3.63244E-06_JPRB,3.64931E-06_JPRB,3.66617E-06_JPRB,&
+&3.68305E-06_JPRB,3.69992E-06_JPRB,3.71682E-06_JPRB,3.73372E-06_JPRB,3.75061E-06_JPRB,&
+&3.76753E-06_JPRB,3.78443E-06_JPRB,3.80136E-06_JPRB,3.81829E-06_JPRB,3.83522E-06_JPRB,&
+&3.85215E-06_JPRB,3.86910E-06_JPRB,3.88605E-06_JPRB,3.90301E-06_JPRB,3.91997E-06_JPRB,&
+&3.93694E-06_JPRB,3.95390E-06_JPRB,3.97087E-06_JPRB,3.98788E-06_JPRB,4.00485E-06_JPRB,&
+&4.02187E-06_JPRB/)
+
+TOTPLNK( :, 2) = (/&
+&2.13441E-06_JPRB,2.18076E-06_JPRB,2.22758E-06_JPRB,2.27489E-06_JPRB,2.32268E-06_JPRB,&
+&2.37093E-06_JPRB,2.41966E-06_JPRB,2.46886E-06_JPRB,2.51852E-06_JPRB,2.56864E-06_JPRB,&
+&2.61922E-06_JPRB,2.67026E-06_JPRB,2.72175E-06_JPRB,2.77370E-06_JPRB,2.82609E-06_JPRB,&
+&2.87893E-06_JPRB,2.93221E-06_JPRB,2.98593E-06_JPRB,3.04008E-06_JPRB,3.09468E-06_JPRB,&
+&3.14970E-06_JPRB,3.20515E-06_JPRB,3.26103E-06_JPRB,3.31732E-06_JPRB,3.37404E-06_JPRB,&
+&3.43118E-06_JPRB,3.48873E-06_JPRB,3.54669E-06_JPRB,3.60506E-06_JPRB,3.66383E-06_JPRB,&
+&3.72301E-06_JPRB,3.78259E-06_JPRB,3.84256E-06_JPRB,3.90293E-06_JPRB,3.96368E-06_JPRB,&
+&4.02483E-06_JPRB,4.08636E-06_JPRB,4.14828E-06_JPRB,4.21057E-06_JPRB,4.27324E-06_JPRB,&
+&4.33629E-06_JPRB,4.39971E-06_JPRB,4.46350E-06_JPRB,4.52765E-06_JPRB,4.59217E-06_JPRB,&
+&4.65705E-06_JPRB,4.72228E-06_JPRB,4.78787E-06_JPRB,4.85382E-06_JPRB,4.92011E-06_JPRB,&
+
+&4.98675E-06_JPRB,5.05374E-06_JPRB,5.12106E-06_JPRB,5.18873E-06_JPRB,5.25674E-06_JPRB,&
+&5.32507E-06_JPRB,5.39374E-06_JPRB,5.46274E-06_JPRB,5.53207E-06_JPRB,5.60172E-06_JPRB,&
+&5.67169E-06_JPRB,5.74198E-06_JPRB,5.81259E-06_JPRB,5.88352E-06_JPRB,5.95475E-06_JPRB,&
+&6.02629E-06_JPRB,6.09815E-06_JPRB,6.17030E-06_JPRB,6.24276E-06_JPRB,6.31552E-06_JPRB,&
+&6.38858E-06_JPRB,6.46192E-06_JPRB,6.53557E-06_JPRB,6.60950E-06_JPRB,6.68373E-06_JPRB,&
+&6.75824E-06_JPRB,6.83303E-06_JPRB,6.90810E-06_JPRB,6.98346E-06_JPRB,7.05909E-06_JPRB,&
+&7.13500E-06_JPRB,7.21117E-06_JPRB,7.28763E-06_JPRB,7.36435E-06_JPRB,7.44134E-06_JPRB,&
+&7.51859E-06_JPRB,7.59611E-06_JPRB,7.67388E-06_JPRB,7.75192E-06_JPRB,7.83021E-06_JPRB,&
+&7.90875E-06_JPRB,7.98755E-06_JPRB,8.06660E-06_JPRB,8.14589E-06_JPRB,8.22544E-06_JPRB,&
+&8.30522E-06_JPRB,8.38526E-06_JPRB,8.46553E-06_JPRB,8.54604E-06_JPRB,8.62679E-06_JPRB,&
+
+&8.70777E-06_JPRB,8.78899E-06_JPRB,8.87043E-06_JPRB,8.95211E-06_JPRB,9.03402E-06_JPRB,&
+&9.11616E-06_JPRB,9.19852E-06_JPRB,9.28109E-06_JPRB,9.36390E-06_JPRB,9.44692E-06_JPRB,&
+&9.53015E-06_JPRB,9.61361E-06_JPRB,9.69729E-06_JPRB,9.78117E-06_JPRB,9.86526E-06_JPRB,&
+&9.94957E-06_JPRB,1.00341E-05_JPRB,1.01188E-05_JPRB,1.02037E-05_JPRB,1.02888E-05_JPRB,&
+&1.03742E-05_JPRB,1.04597E-05_JPRB,1.05454E-05_JPRB,1.06313E-05_JPRB,1.07175E-05_JPRB,&
+&1.08038E-05_JPRB,1.08903E-05_JPRB,1.09770E-05_JPRB,1.10639E-05_JPRB,1.11509E-05_JPRB,&
+&1.12382E-05_JPRB,1.13257E-05_JPRB,1.14133E-05_JPRB,1.15011E-05_JPRB,1.15891E-05_JPRB,&
+&1.16773E-05_JPRB,1.17656E-05_JPRB,1.18542E-05_JPRB,1.19429E-05_JPRB,1.20317E-05_JPRB,&
+&1.21208E-05_JPRB,1.22100E-05_JPRB,1.22994E-05_JPRB,1.23890E-05_JPRB,1.24787E-05_JPRB,&
+&1.25686E-05_JPRB,1.26587E-05_JPRB,1.27489E-05_JPRB,1.28393E-05_JPRB,1.29299E-05_JPRB,&
+
+&1.30206E-05_JPRB,1.31115E-05_JPRB,1.32025E-05_JPRB,1.32937E-05_JPRB,1.33850E-05_JPRB,&
+&1.34765E-05_JPRB,1.35682E-05_JPRB,1.36600E-05_JPRB,1.37520E-05_JPRB,1.38441E-05_JPRB,&
+&1.39364E-05_JPRB,1.40288E-05_JPRB,1.41213E-05_JPRB,1.42140E-05_JPRB,1.43069E-05_JPRB,&
+&1.43999E-05_JPRB,1.44930E-05_JPRB,1.45863E-05_JPRB,1.46797E-05_JPRB,1.47733E-05_JPRB,&
+&1.48670E-05_JPRB,1.49608E-05_JPRB,1.50548E-05_JPRB,1.51489E-05_JPRB,1.52431E-05_JPRB,&
+&1.53375E-05_JPRB,1.54320E-05_JPRB,1.55267E-05_JPRB,1.56214E-05_JPRB,1.57164E-05_JPRB,&
+&1.58114E-05_JPRB/)
+
+TOTPLNK( :, 3) = (/&
+&1.34822E-06_JPRB,1.39134E-06_JPRB,1.43530E-06_JPRB,1.48010E-06_JPRB,1.52574E-06_JPRB,&
+&1.57222E-06_JPRB,1.61956E-06_JPRB,1.66774E-06_JPRB,1.71678E-06_JPRB,1.76666E-06_JPRB,&
+&1.81741E-06_JPRB,1.86901E-06_JPRB,1.92147E-06_JPRB,1.97479E-06_JPRB,2.02898E-06_JPRB,&
+&2.08402E-06_JPRB,2.13993E-06_JPRB,2.19671E-06_JPRB,2.25435E-06_JPRB,2.31285E-06_JPRB,&
+&2.37222E-06_JPRB,2.43246E-06_JPRB,2.49356E-06_JPRB,2.55553E-06_JPRB,2.61837E-06_JPRB,&
+&2.68207E-06_JPRB,2.74664E-06_JPRB,2.81207E-06_JPRB,2.87837E-06_JPRB,2.94554E-06_JPRB,&
+&3.01356E-06_JPRB,3.08245E-06_JPRB,3.15221E-06_JPRB,3.22282E-06_JPRB,3.29429E-06_JPRB,&
+&3.36662E-06_JPRB,3.43982E-06_JPRB,3.51386E-06_JPRB,3.58876E-06_JPRB,3.66451E-06_JPRB,&
+&3.74112E-06_JPRB,3.81857E-06_JPRB,3.89688E-06_JPRB,3.97602E-06_JPRB,4.05601E-06_JPRB,&
+&4.13685E-06_JPRB,4.21852E-06_JPRB,4.30104E-06_JPRB,4.38438E-06_JPRB,4.46857E-06_JPRB,&
+
+&4.55358E-06_JPRB,4.63943E-06_JPRB,4.72610E-06_JPRB,4.81359E-06_JPRB,4.90191E-06_JPRB,&
+&4.99105E-06_JPRB,5.08100E-06_JPRB,5.17176E-06_JPRB,5.26335E-06_JPRB,5.35573E-06_JPRB,&
+&5.44892E-06_JPRB,5.54292E-06_JPRB,5.63772E-06_JPRB,5.73331E-06_JPRB,5.82970E-06_JPRB,&
+&5.92688E-06_JPRB,6.02485E-06_JPRB,6.12360E-06_JPRB,6.22314E-06_JPRB,6.32346E-06_JPRB,&
+&6.42455E-06_JPRB,6.52641E-06_JPRB,6.62906E-06_JPRB,6.73247E-06_JPRB,6.83664E-06_JPRB,&
+&6.94156E-06_JPRB,7.04725E-06_JPRB,7.15370E-06_JPRB,7.26089E-06_JPRB,7.36883E-06_JPRB,&
+&7.47752E-06_JPRB,7.58695E-06_JPRB,7.69712E-06_JPRB,7.80801E-06_JPRB,7.91965E-06_JPRB,&
+&8.03201E-06_JPRB,8.14510E-06_JPRB,8.25891E-06_JPRB,8.37343E-06_JPRB,8.48867E-06_JPRB,&
+&8.60463E-06_JPRB,8.72128E-06_JPRB,8.83865E-06_JPRB,8.95672E-06_JPRB,9.07548E-06_JPRB,&
+&9.19495E-06_JPRB,9.31510E-06_JPRB,9.43594E-06_JPRB,9.55745E-06_JPRB,9.67966E-06_JPRB,&
+
+&9.80254E-06_JPRB,9.92609E-06_JPRB,1.00503E-05_JPRB,1.01752E-05_JPRB,1.03008E-05_JPRB,&
+&1.04270E-05_JPRB,1.05539E-05_JPRB,1.06814E-05_JPRB,1.08096E-05_JPRB,1.09384E-05_JPRB,&
+&1.10679E-05_JPRB,1.11980E-05_JPRB,1.13288E-05_JPRB,1.14601E-05_JPRB,1.15922E-05_JPRB,&
+&1.17248E-05_JPRB,1.18581E-05_JPRB,1.19920E-05_JPRB,1.21265E-05_JPRB,1.22616E-05_JPRB,&
+&1.23973E-05_JPRB,1.25337E-05_JPRB,1.26706E-05_JPRB,1.28081E-05_JPRB,1.29463E-05_JPRB,&
+&1.30850E-05_JPRB,1.32243E-05_JPRB,1.33642E-05_JPRB,1.35047E-05_JPRB,1.36458E-05_JPRB,&
+&1.37875E-05_JPRB,1.39297E-05_JPRB,1.40725E-05_JPRB,1.42159E-05_JPRB,1.43598E-05_JPRB,&
+&1.45044E-05_JPRB,1.46494E-05_JPRB,1.47950E-05_JPRB,1.49412E-05_JPRB,1.50879E-05_JPRB,&
+&1.52352E-05_JPRB,1.53830E-05_JPRB,1.55314E-05_JPRB,1.56803E-05_JPRB,1.58297E-05_JPRB,&
+&1.59797E-05_JPRB,1.61302E-05_JPRB,1.62812E-05_JPRB,1.64327E-05_JPRB,1.65848E-05_JPRB,&
+
+&1.67374E-05_JPRB,1.68904E-05_JPRB,1.70441E-05_JPRB,1.71982E-05_JPRB,1.73528E-05_JPRB,&
+&1.75079E-05_JPRB,1.76635E-05_JPRB,1.78197E-05_JPRB,1.79763E-05_JPRB,1.81334E-05_JPRB,&
+&1.82910E-05_JPRB,1.84491E-05_JPRB,1.86076E-05_JPRB,1.87667E-05_JPRB,1.89262E-05_JPRB,&
+&1.90862E-05_JPRB,1.92467E-05_JPRB,1.94076E-05_JPRB,1.95690E-05_JPRB,1.97309E-05_JPRB,&
+&1.98932E-05_JPRB,2.00560E-05_JPRB,2.02193E-05_JPRB,2.03830E-05_JPRB,2.05472E-05_JPRB,&
+&2.07118E-05_JPRB,2.08768E-05_JPRB,2.10423E-05_JPRB,2.12083E-05_JPRB,2.13747E-05_JPRB,&
+&2.15414E-05_JPRB/)
+
+TOTPLNK( :, 4) = (/&
+&8.90528E-07_JPRB,9.24222E-07_JPRB,9.58757E-07_JPRB,9.94141E-07_JPRB,1.03038E-06_JPRB,&
+&1.06748E-06_JPRB,1.10545E-06_JPRB,1.14430E-06_JPRB,1.18403E-06_JPRB,1.22465E-06_JPRB,&
+&1.26618E-06_JPRB,1.30860E-06_JPRB,1.35193E-06_JPRB,1.39619E-06_JPRB,1.44136E-06_JPRB,&
+&1.48746E-06_JPRB,1.53449E-06_JPRB,1.58246E-06_JPRB,1.63138E-06_JPRB,1.68124E-06_JPRB,&
+&1.73206E-06_JPRB,1.78383E-06_JPRB,1.83657E-06_JPRB,1.89028E-06_JPRB,1.94495E-06_JPRB,&
+&2.00060E-06_JPRB,2.05724E-06_JPRB,2.11485E-06_JPRB,2.17344E-06_JPRB,2.23303E-06_JPRB,&
+&2.29361E-06_JPRB,2.35519E-06_JPRB,2.41777E-06_JPRB,2.48134E-06_JPRB,2.54592E-06_JPRB,&
+&2.61151E-06_JPRB,2.67810E-06_JPRB,2.74571E-06_JPRB,2.81433E-06_JPRB,2.88396E-06_JPRB,&
+&2.95461E-06_JPRB,3.02628E-06_JPRB,3.09896E-06_JPRB,3.17267E-06_JPRB,3.24741E-06_JPRB,&
+&3.32316E-06_JPRB,3.39994E-06_JPRB,3.47774E-06_JPRB,3.55657E-06_JPRB,3.63642E-06_JPRB,&
+
+&3.71731E-06_JPRB,3.79922E-06_JPRB,3.88216E-06_JPRB,3.96612E-06_JPRB,4.05112E-06_JPRB,&
+&4.13714E-06_JPRB,4.22419E-06_JPRB,4.31227E-06_JPRB,4.40137E-06_JPRB,4.49151E-06_JPRB,&
+&4.58266E-06_JPRB,4.67485E-06_JPRB,4.76806E-06_JPRB,4.86229E-06_JPRB,4.95754E-06_JPRB,&
+&5.05383E-06_JPRB,5.15113E-06_JPRB,5.24946E-06_JPRB,5.34879E-06_JPRB,5.44916E-06_JPRB,&
+&5.55053E-06_JPRB,5.65292E-06_JPRB,5.75632E-06_JPRB,5.86073E-06_JPRB,5.96616E-06_JPRB,&
+&6.07260E-06_JPRB,6.18003E-06_JPRB,6.28848E-06_JPRB,6.39794E-06_JPRB,6.50838E-06_JPRB,&
+&6.61983E-06_JPRB,6.73229E-06_JPRB,6.84573E-06_JPRB,6.96016E-06_JPRB,7.07559E-06_JPRB,&
+&7.19200E-06_JPRB,7.30940E-06_JPRB,7.42779E-06_JPRB,7.54715E-06_JPRB,7.66749E-06_JPRB,&
+&7.78882E-06_JPRB,7.91110E-06_JPRB,8.03436E-06_JPRB,8.15859E-06_JPRB,8.28379E-06_JPRB,&
+&8.40994E-06_JPRB,8.53706E-06_JPRB,8.66515E-06_JPRB,8.79418E-06_JPRB,8.92416E-06_JPRB,&
+
+&9.05510E-06_JPRB,9.18697E-06_JPRB,9.31979E-06_JPRB,9.45356E-06_JPRB,9.58826E-06_JPRB,&
+&9.72389E-06_JPRB,9.86046E-06_JPRB,9.99793E-06_JPRB,1.01364E-05_JPRB,1.02757E-05_JPRB,&
+&1.04159E-05_JPRB,1.05571E-05_JPRB,1.06992E-05_JPRB,1.08422E-05_JPRB,1.09861E-05_JPRB,&
+&1.11309E-05_JPRB,1.12766E-05_JPRB,1.14232E-05_JPRB,1.15707E-05_JPRB,1.17190E-05_JPRB,&
+&1.18683E-05_JPRB,1.20184E-05_JPRB,1.21695E-05_JPRB,1.23214E-05_JPRB,1.24741E-05_JPRB,&
+&1.26277E-05_JPRB,1.27822E-05_JPRB,1.29376E-05_JPRB,1.30939E-05_JPRB,1.32509E-05_JPRB,&
+&1.34088E-05_JPRB,1.35676E-05_JPRB,1.37273E-05_JPRB,1.38877E-05_JPRB,1.40490E-05_JPRB,&
+&1.42112E-05_JPRB,1.43742E-05_JPRB,1.45380E-05_JPRB,1.47026E-05_JPRB,1.48680E-05_JPRB,&
+&1.50343E-05_JPRB,1.52014E-05_JPRB,1.53692E-05_JPRB,1.55379E-05_JPRB,1.57074E-05_JPRB,&
+&1.58778E-05_JPRB,1.60488E-05_JPRB,1.62207E-05_JPRB,1.63934E-05_JPRB,1.65669E-05_JPRB,&
+
+&1.67411E-05_JPRB,1.69162E-05_JPRB,1.70920E-05_JPRB,1.72685E-05_JPRB,1.74459E-05_JPRB,&
+&1.76240E-05_JPRB,1.78029E-05_JPRB,1.79825E-05_JPRB,1.81629E-05_JPRB,1.83440E-05_JPRB,&
+&1.85259E-05_JPRB,1.87086E-05_JPRB,1.88919E-05_JPRB,1.90760E-05_JPRB,1.92609E-05_JPRB,&
+&1.94465E-05_JPRB,1.96327E-05_JPRB,1.98199E-05_JPRB,2.00076E-05_JPRB,2.01961E-05_JPRB,&
+&2.03853E-05_JPRB,2.05752E-05_JPRB,2.07658E-05_JPRB,2.09571E-05_JPRB,2.11491E-05_JPRB,&
+&2.13418E-05_JPRB,2.15352E-05_JPRB,2.17294E-05_JPRB,2.19241E-05_JPRB,2.21196E-05_JPRB,&
+&2.23158E-05_JPRB/)
+
+TOTPLNK( :, 5) = (/&
+&5.70230E-07_JPRB,5.94788E-07_JPRB,6.20085E-07_JPRB,6.46130E-07_JPRB,6.72936E-07_JPRB,&
+&7.00512E-07_JPRB,7.28869E-07_JPRB,7.58019E-07_JPRB,7.87971E-07_JPRB,8.18734E-07_JPRB,&
+&8.50320E-07_JPRB,8.82738E-07_JPRB,9.15999E-07_JPRB,9.50110E-07_JPRB,9.85084E-07_JPRB,&
+&1.02093E-06_JPRB,1.05765E-06_JPRB,1.09527E-06_JPRB,1.13378E-06_JPRB,1.17320E-06_JPRB,&
+&1.21353E-06_JPRB,1.25479E-06_JPRB,1.29698E-06_JPRB,1.34011E-06_JPRB,1.38419E-06_JPRB,&
+&1.42923E-06_JPRB,1.47523E-06_JPRB,1.52221E-06_JPRB,1.57016E-06_JPRB,1.61910E-06_JPRB,&
+&1.66904E-06_JPRB,1.71997E-06_JPRB,1.77192E-06_JPRB,1.82488E-06_JPRB,1.87886E-06_JPRB,&
+&1.93387E-06_JPRB,1.98991E-06_JPRB,2.04699E-06_JPRB,2.10512E-06_JPRB,2.16430E-06_JPRB,&
+&2.22454E-06_JPRB,2.28584E-06_JPRB,2.34821E-06_JPRB,2.41166E-06_JPRB,2.47618E-06_JPRB,&
+&2.54178E-06_JPRB,2.60847E-06_JPRB,2.67626E-06_JPRB,2.74514E-06_JPRB,2.81512E-06_JPRB,&
+
+&2.88621E-06_JPRB,2.95841E-06_JPRB,3.03172E-06_JPRB,3.10615E-06_JPRB,3.18170E-06_JPRB,&
+&3.25838E-06_JPRB,3.33618E-06_JPRB,3.41511E-06_JPRB,3.49518E-06_JPRB,3.57639E-06_JPRB,&
+&3.65873E-06_JPRB,3.74221E-06_JPRB,3.82684E-06_JPRB,3.91262E-06_JPRB,3.99955E-06_JPRB,&
+&4.08763E-06_JPRB,4.17686E-06_JPRB,4.26725E-06_JPRB,4.35880E-06_JPRB,4.45150E-06_JPRB,&
+&4.54537E-06_JPRB,4.64039E-06_JPRB,4.73659E-06_JPRB,4.83394E-06_JPRB,4.93246E-06_JPRB,&
+&5.03215E-06_JPRB,5.13301E-06_JPRB,5.23504E-06_JPRB,5.33823E-06_JPRB,5.44260E-06_JPRB,&
+&5.54814E-06_JPRB,5.65484E-06_JPRB,5.76272E-06_JPRB,5.87177E-06_JPRB,5.98199E-06_JPRB,&
+&6.09339E-06_JPRB,6.20596E-06_JPRB,6.31969E-06_JPRB,6.43460E-06_JPRB,6.55068E-06_JPRB,&
+&6.66793E-06_JPRB,6.78636E-06_JPRB,6.90595E-06_JPRB,7.02670E-06_JPRB,7.14863E-06_JPRB,&
+&7.27173E-06_JPRB,7.39599E-06_JPRB,7.52142E-06_JPRB,7.64802E-06_JPRB,7.77577E-06_JPRB,&
+
+&7.90469E-06_JPRB,8.03477E-06_JPRB,8.16601E-06_JPRB,8.29841E-06_JPRB,8.43198E-06_JPRB,&
+&8.56669E-06_JPRB,8.70256E-06_JPRB,8.83957E-06_JPRB,8.97775E-06_JPRB,9.11706E-06_JPRB,&
+&9.25753E-06_JPRB,9.39915E-06_JPRB,9.54190E-06_JPRB,9.68580E-06_JPRB,9.83085E-06_JPRB,&
+&9.97704E-06_JPRB,1.01243E-05_JPRB,1.02728E-05_JPRB,1.04224E-05_JPRB,1.05731E-05_JPRB,&
+&1.07249E-05_JPRB,1.08779E-05_JPRB,1.10320E-05_JPRB,1.11872E-05_JPRB,1.13435E-05_JPRB,&
+&1.15009E-05_JPRB,1.16595E-05_JPRB,1.18191E-05_JPRB,1.19799E-05_JPRB,1.21418E-05_JPRB,&
+&1.23048E-05_JPRB,1.24688E-05_JPRB,1.26340E-05_JPRB,1.28003E-05_JPRB,1.29676E-05_JPRB,&
+&1.31361E-05_JPRB,1.33056E-05_JPRB,1.34762E-05_JPRB,1.36479E-05_JPRB,1.38207E-05_JPRB,&
+&1.39945E-05_JPRB,1.41694E-05_JPRB,1.43454E-05_JPRB,1.45225E-05_JPRB,1.47006E-05_JPRB,&
+&1.48797E-05_JPRB,1.50600E-05_JPRB,1.52413E-05_JPRB,1.54236E-05_JPRB,1.56070E-05_JPRB,&
+
+&1.57914E-05_JPRB,1.59768E-05_JPRB,1.61633E-05_JPRB,1.63509E-05_JPRB,1.65394E-05_JPRB,&
+&1.67290E-05_JPRB,1.69197E-05_JPRB,1.71113E-05_JPRB,1.73040E-05_JPRB,1.74976E-05_JPRB,&
+&1.76923E-05_JPRB,1.78880E-05_JPRB,1.80847E-05_JPRB,1.82824E-05_JPRB,1.84811E-05_JPRB,&
+&1.86808E-05_JPRB,1.88814E-05_JPRB,1.90831E-05_JPRB,1.92857E-05_JPRB,1.94894E-05_JPRB,&
+&1.96940E-05_JPRB,1.98996E-05_JPRB,2.01061E-05_JPRB,2.03136E-05_JPRB,2.05221E-05_JPRB,&
+&2.07316E-05_JPRB,2.09420E-05_JPRB,2.11533E-05_JPRB,2.13657E-05_JPRB,2.15789E-05_JPRB,&
+&2.17931E-05_JPRB/)
+
+TOTPLNK( :, 6) = (/&
+&2.73493E-07_JPRB,2.87408E-07_JPRB,3.01848E-07_JPRB,3.16825E-07_JPRB,3.32352E-07_JPRB,&
+&3.48439E-07_JPRB,3.65100E-07_JPRB,3.82346E-07_JPRB,4.00189E-07_JPRB,4.18641E-07_JPRB,&
+&4.37715E-07_JPRB,4.57422E-07_JPRB,4.77774E-07_JPRB,4.98784E-07_JPRB,5.20464E-07_JPRB,&
+&5.42824E-07_JPRB,5.65879E-07_JPRB,5.89638E-07_JPRB,6.14115E-07_JPRB,6.39320E-07_JPRB,&
+&6.65266E-07_JPRB,6.91965E-07_JPRB,7.19427E-07_JPRB,7.47666E-07_JPRB,7.76691E-07_JPRB,&
+&8.06516E-07_JPRB,8.37151E-07_JPRB,8.68607E-07_JPRB,9.00896E-07_JPRB,9.34029E-07_JPRB,&
+&9.68018E-07_JPRB,1.00287E-06_JPRB,1.03860E-06_JPRB,1.07522E-06_JPRB,1.11274E-06_JPRB,&
+&1.15117E-06_JPRB,1.19052E-06_JPRB,1.23079E-06_JPRB,1.27201E-06_JPRB,1.31418E-06_JPRB,&
+&1.35731E-06_JPRB,1.40141E-06_JPRB,1.44650E-06_JPRB,1.49257E-06_JPRB,1.53965E-06_JPRB,&
+&1.58773E-06_JPRB,1.63684E-06_JPRB,1.68697E-06_JPRB,1.73815E-06_JPRB,1.79037E-06_JPRB,&
+
+&1.84365E-06_JPRB,1.89799E-06_JPRB,1.95341E-06_JPRB,2.00991E-06_JPRB,2.06750E-06_JPRB,&
+&2.12619E-06_JPRB,2.18599E-06_JPRB,2.24691E-06_JPRB,2.30895E-06_JPRB,2.37212E-06_JPRB,&
+&2.43643E-06_JPRB,2.50189E-06_JPRB,2.56851E-06_JPRB,2.63628E-06_JPRB,2.70523E-06_JPRB,&
+&2.77536E-06_JPRB,2.84666E-06_JPRB,2.91916E-06_JPRB,2.99286E-06_JPRB,3.06776E-06_JPRB,&
+&3.14387E-06_JPRB,3.22120E-06_JPRB,3.29975E-06_JPRB,3.37953E-06_JPRB,3.46054E-06_JPRB,&
+&3.54280E-06_JPRB,3.62630E-06_JPRB,3.71105E-06_JPRB,3.79707E-06_JPRB,3.88434E-06_JPRB,&
+&3.97288E-06_JPRB,4.06270E-06_JPRB,4.15380E-06_JPRB,4.24617E-06_JPRB,4.33984E-06_JPRB,&
+&4.43479E-06_JPRB,4.53104E-06_JPRB,4.62860E-06_JPRB,4.72746E-06_JPRB,4.82763E-06_JPRB,&
+&4.92911E-06_JPRB,5.03191E-06_JPRB,5.13603E-06_JPRB,5.24147E-06_JPRB,5.34824E-06_JPRB,&
+&5.45634E-06_JPRB,5.56578E-06_JPRB,5.67656E-06_JPRB,5.78867E-06_JPRB,5.90213E-06_JPRB,&
+
+&6.01694E-06_JPRB,6.13309E-06_JPRB,6.25060E-06_JPRB,6.36947E-06_JPRB,6.48968E-06_JPRB,&
+&6.61126E-06_JPRB,6.73420E-06_JPRB,6.85850E-06_JPRB,6.98417E-06_JPRB,7.11120E-06_JPRB,&
+&7.23961E-06_JPRB,7.36938E-06_JPRB,7.50053E-06_JPRB,7.63305E-06_JPRB,7.76694E-06_JPRB,&
+&7.90221E-06_JPRB,8.03887E-06_JPRB,8.17690E-06_JPRB,8.31632E-06_JPRB,8.45710E-06_JPRB,&
+&8.59928E-06_JPRB,8.74282E-06_JPRB,8.88776E-06_JPRB,9.03409E-06_JPRB,9.18179E-06_JPRB,&
+&9.33088E-06_JPRB,9.48136E-06_JPRB,9.63323E-06_JPRB,9.78648E-06_JPRB,9.94111E-06_JPRB,&
+&1.00971E-05_JPRB,1.02545E-05_JPRB,1.04133E-05_JPRB,1.05735E-05_JPRB,1.07351E-05_JPRB,&
+&1.08980E-05_JPRB,1.10624E-05_JPRB,1.12281E-05_JPRB,1.13952E-05_JPRB,1.15637E-05_JPRB,&
+&1.17335E-05_JPRB,1.19048E-05_JPRB,1.20774E-05_JPRB,1.22514E-05_JPRB,1.24268E-05_JPRB,&
+&1.26036E-05_JPRB,1.27817E-05_JPRB,1.29612E-05_JPRB,1.31421E-05_JPRB,1.33244E-05_JPRB,&
+
+&1.35080E-05_JPRB,1.36930E-05_JPRB,1.38794E-05_JPRB,1.40672E-05_JPRB,1.42563E-05_JPRB,&
+&1.44468E-05_JPRB,1.46386E-05_JPRB,1.48318E-05_JPRB,1.50264E-05_JPRB,1.52223E-05_JPRB,&
+&1.54196E-05_JPRB,1.56182E-05_JPRB,1.58182E-05_JPRB,1.60196E-05_JPRB,1.62223E-05_JPRB,&
+&1.64263E-05_JPRB,1.66317E-05_JPRB,1.68384E-05_JPRB,1.70465E-05_JPRB,1.72559E-05_JPRB,&
+&1.74666E-05_JPRB,1.76787E-05_JPRB,1.78921E-05_JPRB,1.81069E-05_JPRB,1.83230E-05_JPRB,&
+&1.85404E-05_JPRB,1.87591E-05_JPRB,1.89791E-05_JPRB,1.92005E-05_JPRB,1.94232E-05_JPRB,&
+&1.96471E-05_JPRB/)
+
+TOTPLNK( :, 7) = (/&
+&1.25349E-07_JPRB,1.32735E-07_JPRB,1.40458E-07_JPRB,1.48527E-07_JPRB,1.56954E-07_JPRB,&
+&1.65748E-07_JPRB,1.74920E-07_JPRB,1.84481E-07_JPRB,1.94443E-07_JPRB,2.04814E-07_JPRB,&
+&2.15608E-07_JPRB,2.26835E-07_JPRB,2.38507E-07_JPRB,2.50634E-07_JPRB,2.63229E-07_JPRB,&
+&2.76301E-07_JPRB,2.89864E-07_JPRB,3.03930E-07_JPRB,3.18508E-07_JPRB,3.33612E-07_JPRB,&
+&3.49253E-07_JPRB,3.65443E-07_JPRB,3.82195E-07_JPRB,3.99519E-07_JPRB,4.17428E-07_JPRB,&
+&4.35934E-07_JPRB,4.55050E-07_JPRB,4.74785E-07_JPRB,4.95155E-07_JPRB,5.16170E-07_JPRB,&
+&5.37844E-07_JPRB,5.60186E-07_JPRB,5.83211E-07_JPRB,6.06929E-07_JPRB,6.31355E-07_JPRB,&
+&6.56498E-07_JPRB,6.82373E-07_JPRB,7.08990E-07_JPRB,7.36362E-07_JPRB,7.64501E-07_JPRB,&
+&7.93420E-07_JPRB,8.23130E-07_JPRB,8.53643E-07_JPRB,8.84971E-07_JPRB,9.17128E-07_JPRB,&
+&9.50123E-07_JPRB,9.83969E-07_JPRB,1.01868E-06_JPRB,1.05426E-06_JPRB,1.09073E-06_JPRB,&
+
+&1.12810E-06_JPRB,1.16638E-06_JPRB,1.20558E-06_JPRB,1.24572E-06_JPRB,1.28680E-06_JPRB,&
+&1.32883E-06_JPRB,1.37183E-06_JPRB,1.41581E-06_JPRB,1.46078E-06_JPRB,1.50675E-06_JPRB,&
+&1.55374E-06_JPRB,1.60174E-06_JPRB,1.65078E-06_JPRB,1.70087E-06_JPRB,1.75200E-06_JPRB,&
+&1.80421E-06_JPRB,1.85749E-06_JPRB,1.91186E-06_JPRB,1.96732E-06_JPRB,2.02389E-06_JPRB,&
+&2.08159E-06_JPRB,2.14040E-06_JPRB,2.20035E-06_JPRB,2.26146E-06_JPRB,2.32372E-06_JPRB,&
+&2.38714E-06_JPRB,2.45174E-06_JPRB,2.51753E-06_JPRB,2.58451E-06_JPRB,2.65270E-06_JPRB,&
+&2.72210E-06_JPRB,2.79272E-06_JPRB,2.86457E-06_JPRB,2.93767E-06_JPRB,3.01201E-06_JPRB,&
+&3.08761E-06_JPRB,3.16448E-06_JPRB,3.24261E-06_JPRB,3.32204E-06_JPRB,3.40275E-06_JPRB,&
+&3.48476E-06_JPRB,3.56808E-06_JPRB,3.65271E-06_JPRB,3.73866E-06_JPRB,3.82595E-06_JPRB,&
+&3.91456E-06_JPRB,4.00453E-06_JPRB,4.09584E-06_JPRB,4.18851E-06_JPRB,4.28254E-06_JPRB,&
+
+&4.37796E-06_JPRB,4.47475E-06_JPRB,4.57293E-06_JPRB,4.67249E-06_JPRB,4.77346E-06_JPRB,&
+&4.87583E-06_JPRB,4.97961E-06_JPRB,5.08481E-06_JPRB,5.19143E-06_JPRB,5.29948E-06_JPRB,&
+&5.40896E-06_JPRB,5.51989E-06_JPRB,5.63226E-06_JPRB,5.74608E-06_JPRB,5.86136E-06_JPRB,&
+&5.97810E-06_JPRB,6.09631E-06_JPRB,6.21597E-06_JPRB,6.33713E-06_JPRB,6.45976E-06_JPRB,&
+&6.58388E-06_JPRB,6.70950E-06_JPRB,6.83661E-06_JPRB,6.96521E-06_JPRB,7.09531E-06_JPRB,&
+&7.22692E-06_JPRB,7.36005E-06_JPRB,7.49468E-06_JPRB,7.63084E-06_JPRB,7.76851E-06_JPRB,&
+&7.90773E-06_JPRB,8.04846E-06_JPRB,8.19072E-06_JPRB,8.33452E-06_JPRB,8.47985E-06_JPRB,&
+&8.62674E-06_JPRB,8.77517E-06_JPRB,8.92514E-06_JPRB,9.07666E-06_JPRB,9.22975E-06_JPRB,&
+&9.38437E-06_JPRB,9.54057E-06_JPRB,9.69832E-06_JPRB,9.85762E-06_JPRB,1.00185E-05_JPRB,&
+&1.01810E-05_JPRB,1.03450E-05_JPRB,1.05106E-05_JPRB,1.06777E-05_JPRB,1.08465E-05_JPRB,&
+
+&1.10168E-05_JPRB,1.11887E-05_JPRB,1.13621E-05_JPRB,1.15372E-05_JPRB,1.17138E-05_JPRB,&
+&1.18920E-05_JPRB,1.20718E-05_JPRB,1.22532E-05_JPRB,1.24362E-05_JPRB,1.26207E-05_JPRB,&
+&1.28069E-05_JPRB,1.29946E-05_JPRB,1.31839E-05_JPRB,1.33749E-05_JPRB,1.35674E-05_JPRB,&
+&1.37615E-05_JPRB,1.39572E-05_JPRB,1.41544E-05_JPRB,1.43533E-05_JPRB,1.45538E-05_JPRB,&
+&1.47558E-05_JPRB,1.49595E-05_JPRB,1.51647E-05_JPRB,1.53716E-05_JPRB,1.55800E-05_JPRB,&
+&1.57900E-05_JPRB,1.60017E-05_JPRB,1.62149E-05_JPRB,1.64296E-05_JPRB,1.66460E-05_JPRB,&
+&1.68640E-05_JPRB/)
+
+TOTPLNK( :, 8) = (/&
+&6.74445E-08_JPRB,7.18176E-08_JPRB,7.64153E-08_JPRB,8.12456E-08_JPRB,8.63170E-08_JPRB,&
+&9.16378E-08_JPRB,9.72168E-08_JPRB,1.03063E-07_JPRB,1.09184E-07_JPRB,1.15591E-07_JPRB,&
+&1.22292E-07_JPRB,1.29296E-07_JPRB,1.36613E-07_JPRB,1.44253E-07_JPRB,1.52226E-07_JPRB,&
+&1.60540E-07_JPRB,1.69207E-07_JPRB,1.78236E-07_JPRB,1.87637E-07_JPRB,1.97421E-07_JPRB,&
+&2.07599E-07_JPRB,2.18181E-07_JPRB,2.29177E-07_JPRB,2.40598E-07_JPRB,2.52456E-07_JPRB,&
+&2.64761E-07_JPRB,2.77523E-07_JPRB,2.90755E-07_JPRB,3.04468E-07_JPRB,3.18673E-07_JPRB,&
+&3.33381E-07_JPRB,3.48603E-07_JPRB,3.64352E-07_JPRB,3.80638E-07_JPRB,3.97474E-07_JPRB,&
+&4.14871E-07_JPRB,4.32841E-07_JPRB,4.51395E-07_JPRB,4.70547E-07_JPRB,4.90306E-07_JPRB,&
+&5.10687E-07_JPRB,5.31699E-07_JPRB,5.53357E-07_JPRB,5.75670E-07_JPRB,5.98652E-07_JPRB,&
+&6.22315E-07_JPRB,6.46672E-07_JPRB,6.71731E-07_JPRB,6.97511E-07_JPRB,7.24018E-07_JPRB,&
+
+&7.51266E-07_JPRB,7.79269E-07_JPRB,8.08038E-07_JPRB,8.37584E-07_JPRB,8.67922E-07_JPRB,&
+&8.99061E-07_JPRB,9.31016E-07_JPRB,9.63797E-07_JPRB,9.97417E-07_JPRB,1.03189E-06_JPRB,&
+&1.06722E-06_JPRB,1.10343E-06_JPRB,1.14053E-06_JPRB,1.17853E-06_JPRB,1.21743E-06_JPRB,&
+&1.25726E-06_JPRB,1.29803E-06_JPRB,1.33974E-06_JPRB,1.38241E-06_JPRB,1.42606E-06_JPRB,&
+&1.47068E-06_JPRB,1.51630E-06_JPRB,1.56293E-06_JPRB,1.61056E-06_JPRB,1.65924E-06_JPRB,&
+&1.70894E-06_JPRB,1.75971E-06_JPRB,1.81153E-06_JPRB,1.86443E-06_JPRB,1.91841E-06_JPRB,&
+&1.97350E-06_JPRB,2.02968E-06_JPRB,2.08699E-06_JPRB,2.14543E-06_JPRB,2.20500E-06_JPRB,&
+&2.26573E-06_JPRB,2.32762E-06_JPRB,2.39068E-06_JPRB,2.45492E-06_JPRB,2.52036E-06_JPRB,&
+&2.58700E-06_JPRB,2.65485E-06_JPRB,2.72393E-06_JPRB,2.79424E-06_JPRB,2.86580E-06_JPRB,&
+&2.93861E-06_JPRB,3.01269E-06_JPRB,3.08803E-06_JPRB,3.16467E-06_JPRB,3.24259E-06_JPRB,&
+
+&3.32181E-06_JPRB,3.40235E-06_JPRB,3.48420E-06_JPRB,3.56739E-06_JPRB,3.65192E-06_JPRB,&
+&3.73779E-06_JPRB,3.82502E-06_JPRB,3.91362E-06_JPRB,4.00359E-06_JPRB,4.09494E-06_JPRB,&
+&4.18768E-06_JPRB,4.28182E-06_JPRB,4.37737E-06_JPRB,4.47434E-06_JPRB,4.57273E-06_JPRB,&
+&4.67254E-06_JPRB,4.77380E-06_JPRB,4.87651E-06_JPRB,4.98067E-06_JPRB,5.08630E-06_JPRB,&
+&5.19339E-06_JPRB,5.30196E-06_JPRB,5.41201E-06_JPRB,5.52356E-06_JPRB,5.63660E-06_JPRB,&
+&5.75116E-06_JPRB,5.86722E-06_JPRB,5.98479E-06_JPRB,6.10390E-06_JPRB,6.22453E-06_JPRB,&
+&6.34669E-06_JPRB,6.47042E-06_JPRB,6.59569E-06_JPRB,6.72252E-06_JPRB,6.85090E-06_JPRB,&
+&6.98085E-06_JPRB,7.11238E-06_JPRB,7.24549E-06_JPRB,7.38019E-06_JPRB,7.51646E-06_JPRB,&
+&7.65434E-06_JPRB,7.79382E-06_JPRB,7.93490E-06_JPRB,8.07760E-06_JPRB,8.22192E-06_JPRB,&
+&8.36784E-06_JPRB,8.51540E-06_JPRB,8.66459E-06_JPRB,8.81542E-06_JPRB,8.96786E-06_JPRB,&
+
+&9.12197E-06_JPRB,9.27772E-06_JPRB,9.43513E-06_JPRB,9.59419E-06_JPRB,9.75490E-06_JPRB,&
+&9.91728E-06_JPRB,1.00813E-05_JPRB,1.02471E-05_JPRB,1.04144E-05_JPRB,1.05835E-05_JPRB,&
+&1.07543E-05_JPRB,1.09267E-05_JPRB,1.11008E-05_JPRB,1.12766E-05_JPRB,1.14541E-05_JPRB,&
+&1.16333E-05_JPRB,1.18142E-05_JPRB,1.19969E-05_JPRB,1.21812E-05_JPRB,1.23672E-05_JPRB,&
+&1.25549E-05_JPRB,1.27443E-05_JPRB,1.29355E-05_JPRB,1.31284E-05_JPRB,1.33229E-05_JPRB,&
+&1.35193E-05_JPRB,1.37173E-05_JPRB,1.39170E-05_JPRB,1.41185E-05_JPRB,1.43217E-05_JPRB,&
+&1.45267E-05_JPRB/)
+
+TOTPLNK( :, 9) = (/&
+&2.61522E-08_JPRB,2.80613E-08_JPRB,3.00838E-08_JPRB,3.22250E-08_JPRB,3.44899E-08_JPRB,&
+&3.68841E-08_JPRB,3.94129E-08_JPRB,4.20820E-08_JPRB,4.48973E-08_JPRB,4.78646E-08_JPRB,&
+&5.09901E-08_JPRB,5.42799E-08_JPRB,5.77405E-08_JPRB,6.13784E-08_JPRB,6.52001E-08_JPRB,&
+&6.92126E-08_JPRB,7.34227E-08_JPRB,7.78375E-08_JPRB,8.24643E-08_JPRB,8.73103E-08_JPRB,&
+&9.23832E-08_JPRB,9.76905E-08_JPRB,1.03240E-07_JPRB,1.09039E-07_JPRB,1.15097E-07_JPRB,&
+&1.21421E-07_JPRB,1.28020E-07_JPRB,1.34902E-07_JPRB,1.42075E-07_JPRB,1.49548E-07_JPRB,&
+&1.57331E-07_JPRB,1.65432E-07_JPRB,1.73860E-07_JPRB,1.82624E-07_JPRB,1.91734E-07_JPRB,&
+&2.01198E-07_JPRB,2.11028E-07_JPRB,2.21231E-07_JPRB,2.31818E-07_JPRB,2.42799E-07_JPRB,&
+&2.54184E-07_JPRB,2.65983E-07_JPRB,2.78205E-07_JPRB,2.90862E-07_JPRB,3.03963E-07_JPRB,&
+&3.17519E-07_JPRB,3.31541E-07_JPRB,3.46039E-07_JPRB,3.61024E-07_JPRB,3.76507E-07_JPRB,&
+
+&3.92498E-07_JPRB,4.09008E-07_JPRB,4.26050E-07_JPRB,4.43633E-07_JPRB,4.61769E-07_JPRB,&
+&4.80469E-07_JPRB,4.99744E-07_JPRB,5.19606E-07_JPRB,5.40067E-07_JPRB,5.61136E-07_JPRB,&
+&5.82828E-07_JPRB,6.05152E-07_JPRB,6.28120E-07_JPRB,6.51745E-07_JPRB,6.76038E-07_JPRB,&
+&7.01010E-07_JPRB,7.26674E-07_JPRB,7.53041E-07_JPRB,7.80124E-07_JPRB,8.07933E-07_JPRB,&
+&8.36482E-07_JPRB,8.65781E-07_JPRB,8.95845E-07_JPRB,9.26683E-07_JPRB,9.58308E-07_JPRB,&
+&9.90732E-07_JPRB,1.02397E-06_JPRB,1.05803E-06_JPRB,1.09292E-06_JPRB,1.12866E-06_JPRB,&
+&1.16526E-06_JPRB,1.20274E-06_JPRB,1.24109E-06_JPRB,1.28034E-06_JPRB,1.32050E-06_JPRB,&
+&1.36158E-06_JPRB,1.40359E-06_JPRB,1.44655E-06_JPRB,1.49046E-06_JPRB,1.53534E-06_JPRB,&
+&1.58120E-06_JPRB,1.62805E-06_JPRB,1.67591E-06_JPRB,1.72478E-06_JPRB,1.77468E-06_JPRB,&
+&1.82561E-06_JPRB,1.87760E-06_JPRB,1.93066E-06_JPRB,1.98479E-06_JPRB,2.04000E-06_JPRB,&
+
+&2.09631E-06_JPRB,2.15373E-06_JPRB,2.21228E-06_JPRB,2.27196E-06_JPRB,2.33278E-06_JPRB,&
+&2.39475E-06_JPRB,2.45790E-06_JPRB,2.52222E-06_JPRB,2.58773E-06_JPRB,2.65445E-06_JPRB,&
+&2.72238E-06_JPRB,2.79152E-06_JPRB,2.86191E-06_JPRB,2.93354E-06_JPRB,3.00643E-06_JPRB,&
+&3.08058E-06_JPRB,3.15601E-06_JPRB,3.23273E-06_JPRB,3.31075E-06_JPRB,3.39009E-06_JPRB,&
+&3.47074E-06_JPRB,3.55272E-06_JPRB,3.63605E-06_JPRB,3.72072E-06_JPRB,3.80676E-06_JPRB,&
+&3.89417E-06_JPRB,3.98297E-06_JPRB,4.07315E-06_JPRB,4.16474E-06_JPRB,4.25774E-06_JPRB,&
+&4.35217E-06_JPRB,4.44802E-06_JPRB,4.54532E-06_JPRB,4.64406E-06_JPRB,4.74428E-06_JPRB,&
+&4.84595E-06_JPRB,4.94911E-06_JPRB,5.05376E-06_JPRB,5.15990E-06_JPRB,5.26755E-06_JPRB,&
+&5.37671E-06_JPRB,5.48741E-06_JPRB,5.59963E-06_JPRB,5.71340E-06_JPRB,5.82871E-06_JPRB,&
+&5.94559E-06_JPRB,6.06403E-06_JPRB,6.18404E-06_JPRB,6.30565E-06_JPRB,6.42885E-06_JPRB,&
+
+&6.55364E-06_JPRB,6.68004E-06_JPRB,6.80806E-06_JPRB,6.93771E-06_JPRB,7.06898E-06_JPRB,&
+&7.20190E-06_JPRB,7.33646E-06_JPRB,7.47267E-06_JPRB,7.61056E-06_JPRB,7.75010E-06_JPRB,&
+&7.89133E-06_JPRB,8.03423E-06_JPRB,8.17884E-06_JPRB,8.32514E-06_JPRB,8.47314E-06_JPRB,&
+&8.62284E-06_JPRB,8.77427E-06_JPRB,8.92743E-06_JPRB,9.08231E-06_JPRB,9.23893E-06_JPRB,&
+&9.39729E-06_JPRB,9.55741E-06_JPRB,9.71927E-06_JPRB,9.88291E-06_JPRB,1.00483E-05_JPRB,&
+&1.02155E-05_JPRB,1.03844E-05_JPRB,1.05552E-05_JPRB,1.07277E-05_JPRB,1.09020E-05_JPRB,&
+&1.10781E-05_JPRB/)
+
+TOTPLNK( :,10) = (/&
+&8.89300E-09_JPRB,9.63263E-09_JPRB,1.04235E-08_JPRB,1.12685E-08_JPRB,1.21703E-08_JPRB,&
+&1.31321E-08_JPRB,1.41570E-08_JPRB,1.52482E-08_JPRB,1.64090E-08_JPRB,1.76428E-08_JPRB,&
+&1.89533E-08_JPRB,2.03441E-08_JPRB,2.18190E-08_JPRB,2.33820E-08_JPRB,2.50370E-08_JPRB,&
+&2.67884E-08_JPRB,2.86402E-08_JPRB,3.05969E-08_JPRB,3.26632E-08_JPRB,3.48436E-08_JPRB,&
+&3.71429E-08_JPRB,3.95660E-08_JPRB,4.21179E-08_JPRB,4.48040E-08_JPRB,4.76294E-08_JPRB,&
+&5.05996E-08_JPRB,5.37201E-08_JPRB,5.69966E-08_JPRB,6.04349E-08_JPRB,6.40411E-08_JPRB,&
+&6.78211E-08_JPRB,7.17812E-08_JPRB,7.59276E-08_JPRB,8.02670E-08_JPRB,8.48059E-08_JPRB,&
+&8.95508E-08_JPRB,9.45090E-08_JPRB,9.96873E-08_JPRB,1.05093E-07_JPRB,1.10733E-07_JPRB,&
+&1.16614E-07_JPRB,1.22745E-07_JPRB,1.29133E-07_JPRB,1.35786E-07_JPRB,1.42711E-07_JPRB,&
+&1.49916E-07_JPRB,1.57410E-07_JPRB,1.65202E-07_JPRB,1.73298E-07_JPRB,1.81709E-07_JPRB,&
+
+&1.90441E-07_JPRB,1.99505E-07_JPRB,2.08908E-07_JPRB,2.18660E-07_JPRB,2.28770E-07_JPRB,&
+&2.39247E-07_JPRB,2.50101E-07_JPRB,2.61340E-07_JPRB,2.72974E-07_JPRB,2.85013E-07_JPRB,&
+&2.97467E-07_JPRB,3.10345E-07_JPRB,3.23657E-07_JPRB,3.37413E-07_JPRB,3.51623E-07_JPRB,&
+&3.66298E-07_JPRB,3.81448E-07_JPRB,3.97082E-07_JPRB,4.13212E-07_JPRB,4.29848E-07_JPRB,&
+&4.47000E-07_JPRB,4.64680E-07_JPRB,4.82898E-07_JPRB,5.01664E-07_JPRB,5.20991E-07_JPRB,&
+&5.40888E-07_JPRB,5.61369E-07_JPRB,5.82440E-07_JPRB,6.04118E-07_JPRB,6.26410E-07_JPRB,&
+&6.49329E-07_JPRB,6.72887E-07_JPRB,6.97095E-07_JPRB,7.21964E-07_JPRB,7.47506E-07_JPRB,&
+&7.73732E-07_JPRB,8.00655E-07_JPRB,8.28287E-07_JPRB,8.56635E-07_JPRB,8.85717E-07_JPRB,&
+&9.15542E-07_JPRB,9.46122E-07_JPRB,9.77469E-07_JPRB,1.00960E-06_JPRB,1.04251E-06_JPRB,&
+&1.07623E-06_JPRB,1.11077E-06_JPRB,1.14613E-06_JPRB,1.18233E-06_JPRB,1.21939E-06_JPRB,&
+
+&1.25730E-06_JPRB,1.29610E-06_JPRB,1.33578E-06_JPRB,1.37636E-06_JPRB,1.41785E-06_JPRB,&
+&1.46027E-06_JPRB,1.50362E-06_JPRB,1.54792E-06_JPRB,1.59319E-06_JPRB,1.63942E-06_JPRB,&
+&1.68665E-06_JPRB,1.73487E-06_JPRB,1.78410E-06_JPRB,1.83435E-06_JPRB,1.88564E-06_JPRB,&
+&1.93797E-06_JPRB,1.99136E-06_JPRB,2.04582E-06_JPRB,2.10137E-06_JPRB,2.15801E-06_JPRB,&
+&2.21576E-06_JPRB,2.27463E-06_JPRB,2.33462E-06_JPRB,2.39577E-06_JPRB,2.45806E-06_JPRB,&
+&2.52153E-06_JPRB,2.58617E-06_JPRB,2.65201E-06_JPRB,2.71905E-06_JPRB,2.78730E-06_JPRB,&
+&2.85678E-06_JPRB,2.92749E-06_JPRB,2.99946E-06_JPRB,3.07269E-06_JPRB,3.14720E-06_JPRB,&
+&3.22299E-06_JPRB,3.30007E-06_JPRB,3.37847E-06_JPRB,3.45818E-06_JPRB,3.53923E-06_JPRB,&
+&3.62161E-06_JPRB,3.70535E-06_JPRB,3.79046E-06_JPRB,3.87695E-06_JPRB,3.96481E-06_JPRB,&
+&4.05409E-06_JPRB,4.14477E-06_JPRB,4.23687E-06_JPRB,4.33040E-06_JPRB,4.42538E-06_JPRB,&
+
+&4.52180E-06_JPRB,4.61969E-06_JPRB,4.71905E-06_JPRB,4.81991E-06_JPRB,4.92226E-06_JPRB,&
+&5.02611E-06_JPRB,5.13148E-06_JPRB,5.23839E-06_JPRB,5.34681E-06_JPRB,5.45681E-06_JPRB,&
+&5.56835E-06_JPRB,5.68146E-06_JPRB,5.79614E-06_JPRB,5.91242E-06_JPRB,6.03030E-06_JPRB,&
+&6.14978E-06_JPRB,6.27088E-06_JPRB,6.39360E-06_JPRB,6.51798E-06_JPRB,6.64398E-06_JPRB,&
+&6.77165E-06_JPRB,6.90099E-06_JPRB,7.03198E-06_JPRB,7.16468E-06_JPRB,7.29906E-06_JPRB,&
+&7.43514E-06_JPRB,7.57294E-06_JPRB,7.71244E-06_JPRB,7.85369E-06_JPRB,7.99666E-06_JPRB,&
+&8.14138E-06_JPRB/)
+
+TOTPLNK( :,11) = (/&
+&2.53767E-09_JPRB,2.77242E-09_JPRB,3.02564E-09_JPRB,3.29851E-09_JPRB,3.59228E-09_JPRB,&
+&3.90825E-09_JPRB,4.24777E-09_JPRB,4.61227E-09_JPRB,5.00322E-09_JPRB,5.42219E-09_JPRB,&
+&5.87080E-09_JPRB,6.35072E-09_JPRB,6.86370E-09_JPRB,7.41159E-09_JPRB,7.99628E-09_JPRB,&
+&8.61974E-09_JPRB,9.28404E-09_JPRB,9.99130E-09_JPRB,1.07437E-08_JPRB,1.15436E-08_JPRB,&
+&1.23933E-08_JPRB,1.32953E-08_JPRB,1.42522E-08_JPRB,1.52665E-08_JPRB,1.63410E-08_JPRB,&
+&1.74786E-08_JPRB,1.86820E-08_JPRB,1.99542E-08_JPRB,2.12985E-08_JPRB,2.27179E-08_JPRB,&
+&2.42158E-08_JPRB,2.57954E-08_JPRB,2.74604E-08_JPRB,2.92141E-08_JPRB,3.10604E-08_JPRB,&
+&3.30029E-08_JPRB,3.50457E-08_JPRB,3.71925E-08_JPRB,3.94476E-08_JPRB,4.18149E-08_JPRB,&
+&4.42991E-08_JPRB,4.69043E-08_JPRB,4.96352E-08_JPRB,5.24961E-08_JPRB,5.54921E-08_JPRB,&
+&5.86277E-08_JPRB,6.19081E-08_JPRB,6.53381E-08_JPRB,6.89231E-08_JPRB,7.26681E-08_JPRB,&
+
+&7.65788E-08_JPRB,8.06604E-08_JPRB,8.49187E-08_JPRB,8.93591E-08_JPRB,9.39879E-08_JPRB,&
+&9.88106E-08_JPRB,1.03834E-07_JPRB,1.09063E-07_JPRB,1.14504E-07_JPRB,1.20165E-07_JPRB,&
+&1.26051E-07_JPRB,1.32169E-07_JPRB,1.38525E-07_JPRB,1.45128E-07_JPRB,1.51982E-07_JPRB,&
+&1.59096E-07_JPRB,1.66477E-07_JPRB,1.74132E-07_JPRB,1.82068E-07_JPRB,1.90292E-07_JPRB,&
+&1.98813E-07_JPRB,2.07638E-07_JPRB,2.16775E-07_JPRB,2.26231E-07_JPRB,2.36015E-07_JPRB,&
+&2.46135E-07_JPRB,2.56599E-07_JPRB,2.67415E-07_JPRB,2.78592E-07_JPRB,2.90137E-07_JPRB,&
+&3.02061E-07_JPRB,3.14371E-07_JPRB,3.27077E-07_JPRB,3.40186E-07_JPRB,3.53710E-07_JPRB,&
+&3.67655E-07_JPRB,3.82031E-07_JPRB,3.96848E-07_JPRB,4.12116E-07_JPRB,4.27842E-07_JPRB,&
+&4.44039E-07_JPRB,4.60713E-07_JPRB,4.77876E-07_JPRB,4.95537E-07_JPRB,5.13706E-07_JPRB,&
+&5.32392E-07_JPRB,5.51608E-07_JPRB,5.71360E-07_JPRB,5.91662E-07_JPRB,6.12521E-07_JPRB,&
+
+&6.33950E-07_JPRB,6.55958E-07_JPRB,6.78556E-07_JPRB,7.01753E-07_JPRB,7.25562E-07_JPRB,&
+&7.49992E-07_JPRB,7.75055E-07_JPRB,8.00760E-07_JPRB,8.27120E-07_JPRB,8.54145E-07_JPRB,&
+&8.81845E-07_JPRB,9.10233E-07_JPRB,9.39318E-07_JPRB,9.69113E-07_JPRB,9.99627E-07_JPRB,&
+&1.03087E-06_JPRB,1.06286E-06_JPRB,1.09561E-06_JPRB,1.12912E-06_JPRB,1.16340E-06_JPRB,&
+&1.19848E-06_JPRB,1.23435E-06_JPRB,1.27104E-06_JPRB,1.30855E-06_JPRB,1.34690E-06_JPRB,&
+&1.38609E-06_JPRB,1.42614E-06_JPRB,1.46706E-06_JPRB,1.50886E-06_JPRB,1.55155E-06_JPRB,&
+&1.59515E-06_JPRB,1.63967E-06_JPRB,1.68512E-06_JPRB,1.73150E-06_JPRB,1.77884E-06_JPRB,&
+&1.82715E-06_JPRB,1.87643E-06_JPRB,1.92670E-06_JPRB,1.97797E-06_JPRB,2.03026E-06_JPRB,&
+&2.08356E-06_JPRB,2.13791E-06_JPRB,2.19330E-06_JPRB,2.24975E-06_JPRB,2.30728E-06_JPRB,&
+&2.36589E-06_JPRB,2.42560E-06_JPRB,2.48641E-06_JPRB,2.54835E-06_JPRB,2.61142E-06_JPRB,&
+
+&2.67563E-06_JPRB,2.74100E-06_JPRB,2.80754E-06_JPRB,2.87526E-06_JPRB,2.94417E-06_JPRB,&
+&3.01429E-06_JPRB,3.08562E-06_JPRB,3.15819E-06_JPRB,3.23199E-06_JPRB,3.30704E-06_JPRB,&
+&3.38336E-06_JPRB,3.46096E-06_JPRB,3.53984E-06_JPRB,3.62002E-06_JPRB,3.70151E-06_JPRB,&
+&3.78433E-06_JPRB,3.86848E-06_JPRB,3.95399E-06_JPRB,4.04084E-06_JPRB,4.12907E-06_JPRB,&
+&4.21868E-06_JPRB,4.30968E-06_JPRB,4.40209E-06_JPRB,4.49592E-06_JPRB,4.59117E-06_JPRB,&
+&4.68786E-06_JPRB,4.78600E-06_JPRB,4.88561E-06_JPRB,4.98669E-06_JPRB,5.08926E-06_JPRB,&
+&5.19332E-06_JPRB/)
+
+TOTPLNK( :,12) = (/&
+&2.73921E-10_JPRB,3.04500E-10_JPRB,3.38056E-10_JPRB,3.74835E-10_JPRB,4.15099E-10_JPRB,&
+&4.59126E-10_JPRB,5.07214E-10_JPRB,5.59679E-10_JPRB,6.16857E-10_JPRB,6.79103E-10_JPRB,&
+&7.46796E-10_JPRB,8.20335E-10_JPRB,9.00144E-10_JPRB,9.86671E-10_JPRB,1.08039E-09_JPRB,&
+&1.18180E-09_JPRB,1.29142E-09_JPRB,1.40982E-09_JPRB,1.53757E-09_JPRB,1.67529E-09_JPRB,&
+&1.82363E-09_JPRB,1.98327E-09_JPRB,2.15492E-09_JPRB,2.33932E-09_JPRB,2.53726E-09_JPRB,&
+&2.74957E-09_JPRB,2.97710E-09_JPRB,3.22075E-09_JPRB,3.48145E-09_JPRB,3.76020E-09_JPRB,&
+&4.05801E-09_JPRB,4.37595E-09_JPRB,4.71513E-09_JPRB,5.07672E-09_JPRB,5.46193E-09_JPRB,&
+&5.87201E-09_JPRB,6.30827E-09_JPRB,6.77205E-09_JPRB,7.26480E-09_JPRB,7.78794E-09_JPRB,&
+&8.34304E-09_JPRB,8.93163E-09_JPRB,9.55537E-09_JPRB,1.02159E-08_JPRB,1.09151E-08_JPRB,&
+&1.16547E-08_JPRB,1.24365E-08_JPRB,1.32625E-08_JPRB,1.41348E-08_JPRB,1.50554E-08_JPRB,&
+
+&1.60264E-08_JPRB,1.70500E-08_JPRB,1.81285E-08_JPRB,1.92642E-08_JPRB,2.04596E-08_JPRB,&
+&2.17171E-08_JPRB,2.30394E-08_JPRB,2.44289E-08_JPRB,2.58885E-08_JPRB,2.74209E-08_JPRB,&
+&2.90290E-08_JPRB,3.07157E-08_JPRB,3.24841E-08_JPRB,3.43371E-08_JPRB,3.62782E-08_JPRB,&
+&3.83103E-08_JPRB,4.04371E-08_JPRB,4.26617E-08_JPRB,4.49878E-08_JPRB,4.74190E-08_JPRB,&
+&4.99589E-08_JPRB,5.26113E-08_JPRB,5.53801E-08_JPRB,5.82692E-08_JPRB,6.12826E-08_JPRB,&
+&6.44245E-08_JPRB,6.76991E-08_JPRB,7.11105E-08_JPRB,7.46634E-08_JPRB,7.83621E-08_JPRB,&
+&8.22112E-08_JPRB,8.62154E-08_JPRB,9.03795E-08_JPRB,9.47081E-08_JPRB,9.92066E-08_JPRB,&
+&1.03879E-07_JPRB,1.08732E-07_JPRB,1.13770E-07_JPRB,1.18998E-07_JPRB,1.24422E-07_JPRB,&
+&1.30048E-07_JPRB,1.35880E-07_JPRB,1.41924E-07_JPRB,1.48187E-07_JPRB,1.54675E-07_JPRB,&
+&1.61392E-07_JPRB,1.68346E-07_JPRB,1.75543E-07_JPRB,1.82988E-07_JPRB,1.90688E-07_JPRB,&
+
+&1.98650E-07_JPRB,2.06880E-07_JPRB,2.15385E-07_JPRB,2.24172E-07_JPRB,2.33247E-07_JPRB,&
+&2.42617E-07_JPRB,2.52289E-07_JPRB,2.62272E-07_JPRB,2.72571E-07_JPRB,2.83193E-07_JPRB,&
+&2.94147E-07_JPRB,3.05440E-07_JPRB,3.17080E-07_JPRB,3.29074E-07_JPRB,3.41430E-07_JPRB,&
+&3.54155E-07_JPRB,3.67259E-07_JPRB,3.80747E-07_JPRB,3.94631E-07_JPRB,4.08916E-07_JPRB,&
+&4.23611E-07_JPRB,4.38725E-07_JPRB,4.54267E-07_JPRB,4.70245E-07_JPRB,4.86666E-07_JPRB,&
+&5.03541E-07_JPRB,5.20879E-07_JPRB,5.38687E-07_JPRB,5.56975E-07_JPRB,5.75751E-07_JPRB,&
+&5.95026E-07_JPRB,6.14808E-07_JPRB,6.35107E-07_JPRB,6.55932E-07_JPRB,6.77293E-07_JPRB,&
+&6.99197E-07_JPRB,7.21656E-07_JPRB,7.44681E-07_JPRB,7.68278E-07_JPRB,7.92460E-07_JPRB,&
+&8.17235E-07_JPRB,8.42614E-07_JPRB,8.68606E-07_JPRB,8.95223E-07_JPRB,9.22473E-07_JPRB,&
+&9.50366E-07_JPRB,9.78915E-07_JPRB,1.00813E-06_JPRB,1.03802E-06_JPRB,1.06859E-06_JPRB,&
+
+&1.09986E-06_JPRB,1.13184E-06_JPRB,1.16453E-06_JPRB,1.19796E-06_JPRB,1.23212E-06_JPRB,&
+&1.26703E-06_JPRB,1.30270E-06_JPRB,1.33915E-06_JPRB,1.37637E-06_JPRB,1.41440E-06_JPRB,&
+&1.45322E-06_JPRB,1.49286E-06_JPRB,1.53333E-06_JPRB,1.57464E-06_JPRB,1.61679E-06_JPRB,&
+&1.65981E-06_JPRB,1.70370E-06_JPRB,1.74847E-06_JPRB,1.79414E-06_JPRB,1.84071E-06_JPRB,&
+&1.88821E-06_JPRB,1.93663E-06_JPRB,1.98599E-06_JPRB,2.03631E-06_JPRB,2.08759E-06_JPRB,&
+&2.13985E-06_JPRB,2.19310E-06_JPRB,2.24734E-06_JPRB,2.30260E-06_JPRB,2.35888E-06_JPRB,&
+&2.41619E-06_JPRB/)
+
+TOTPLNK( :,13) = (/&
+&4.53634E-11_JPRB,5.11435E-11_JPRB,5.75754E-11_JPRB,6.47222E-11_JPRB,7.26531E-11_JPRB,&
+&8.14420E-11_JPRB,9.11690E-11_JPRB,1.01921E-10_JPRB,1.13790E-10_JPRB,1.26877E-10_JPRB,&
+&1.41288E-10_JPRB,1.57140E-10_JPRB,1.74555E-10_JPRB,1.93665E-10_JPRB,2.14613E-10_JPRB,&
+&2.37548E-10_JPRB,2.62633E-10_JPRB,2.90039E-10_JPRB,3.19948E-10_JPRB,3.52558E-10_JPRB,&
+&3.88073E-10_JPRB,4.26716E-10_JPRB,4.68719E-10_JPRB,5.14331E-10_JPRB,5.63815E-10_JPRB,&
+&6.17448E-10_JPRB,6.75526E-10_JPRB,7.38358E-10_JPRB,8.06277E-10_JPRB,8.79625E-10_JPRB,&
+&9.58770E-10_JPRB,1.04410E-09_JPRB,1.13602E-09_JPRB,1.23495E-09_JPRB,1.34135E-09_JPRB,&
+&1.45568E-09_JPRB,1.57845E-09_JPRB,1.71017E-09_JPRB,1.85139E-09_JPRB,2.00268E-09_JPRB,&
+&2.16464E-09_JPRB,2.33789E-09_JPRB,2.52309E-09_JPRB,2.72093E-09_JPRB,2.93212E-09_JPRB,&
+&3.15740E-09_JPRB,3.39757E-09_JPRB,3.65341E-09_JPRB,3.92579E-09_JPRB,4.21559E-09_JPRB,&
+
+&4.52372E-09_JPRB,4.85115E-09_JPRB,5.19886E-09_JPRB,5.56788E-09_JPRB,5.95928E-09_JPRB,&
+&6.37419E-09_JPRB,6.81375E-09_JPRB,7.27917E-09_JPRB,7.77168E-09_JPRB,8.29256E-09_JPRB,&
+&8.84317E-09_JPRB,9.42487E-09_JPRB,1.00391E-08_JPRB,1.06873E-08_JPRB,1.13710E-08_JPRB,&
+&1.20919E-08_JPRB,1.28515E-08_JPRB,1.36514E-08_JPRB,1.44935E-08_JPRB,1.53796E-08_JPRB,&
+&1.63114E-08_JPRB,1.72909E-08_JPRB,1.83201E-08_JPRB,1.94008E-08_JPRB,2.05354E-08_JPRB,&
+&2.17258E-08_JPRB,2.29742E-08_JPRB,2.42830E-08_JPRB,2.56545E-08_JPRB,2.70910E-08_JPRB,&
+&2.85950E-08_JPRB,3.01689E-08_JPRB,3.18155E-08_JPRB,3.35373E-08_JPRB,3.53372E-08_JPRB,&
+&3.72177E-08_JPRB,3.91818E-08_JPRB,4.12325E-08_JPRB,4.33727E-08_JPRB,4.56056E-08_JPRB,&
+&4.79342E-08_JPRB,5.03617E-08_JPRB,5.28915E-08_JPRB,5.55270E-08_JPRB,5.82715E-08_JPRB,&
+&6.11286E-08_JPRB,6.41019E-08_JPRB,6.71951E-08_JPRB,7.04119E-08_JPRB,7.37560E-08_JPRB,&
+
+&7.72315E-08_JPRB,8.08424E-08_JPRB,8.45927E-08_JPRB,8.84866E-08_JPRB,9.25281E-08_JPRB,&
+&9.67218E-08_JPRB,1.01072E-07_JPRB,1.05583E-07_JPRB,1.10260E-07_JPRB,1.15107E-07_JPRB,&
+&1.20128E-07_JPRB,1.25330E-07_JPRB,1.30716E-07_JPRB,1.36291E-07_JPRB,1.42061E-07_JPRB,&
+&1.48031E-07_JPRB,1.54206E-07_JPRB,1.60592E-07_JPRB,1.67192E-07_JPRB,1.74015E-07_JPRB,&
+&1.81064E-07_JPRB,1.88345E-07_JPRB,1.95865E-07_JPRB,2.03628E-07_JPRB,2.11643E-07_JPRB,&
+&2.19912E-07_JPRB,2.28443E-07_JPRB,2.37244E-07_JPRB,2.46318E-07_JPRB,2.55673E-07_JPRB,&
+&2.65316E-07_JPRB,2.75252E-07_JPRB,2.85489E-07_JPRB,2.96033E-07_JPRB,3.06891E-07_JPRB,&
+&3.18070E-07_JPRB,3.29576E-07_JPRB,3.41417E-07_JPRB,3.53600E-07_JPRB,3.66133E-07_JPRB,&
+&3.79021E-07_JPRB,3.92274E-07_JPRB,4.05897E-07_JPRB,4.19899E-07_JPRB,4.34288E-07_JPRB,&
+&4.49071E-07_JPRB,4.64255E-07_JPRB,4.79850E-07_JPRB,4.95863E-07_JPRB,5.12300E-07_JPRB,&
+
+&5.29172E-07_JPRB,5.46486E-07_JPRB,5.64250E-07_JPRB,5.82473E-07_JPRB,6.01164E-07_JPRB,&
+&6.20329E-07_JPRB,6.39979E-07_JPRB,6.60122E-07_JPRB,6.80767E-07_JPRB,7.01922E-07_JPRB,&
+&7.23596E-07_JPRB,7.45800E-07_JPRB,7.68539E-07_JPRB,7.91826E-07_JPRB,8.15669E-07_JPRB,&
+&8.40076E-07_JPRB,8.65058E-07_JPRB,8.90623E-07_JPRB,9.16783E-07_JPRB,9.43544E-07_JPRB,&
+&9.70917E-07_JPRB,9.98912E-07_JPRB,1.02754E-06_JPRB,1.05681E-06_JPRB,1.08673E-06_JPRB,&
+&1.11731E-06_JPRB,1.14856E-06_JPRB,1.18050E-06_JPRB,1.21312E-06_JPRB,1.24645E-06_JPRB,&
+&1.28049E-06_JPRB/)
+
+TOTPLNK( :,14) = (/&
+&1.40113E-11_JPRB,1.59358E-11_JPRB,1.80960E-11_JPRB,2.05171E-11_JPRB,2.32266E-11_JPRB,&
+&2.62546E-11_JPRB,2.96335E-11_JPRB,3.33990E-11_JPRB,3.75896E-11_JPRB,4.22469E-11_JPRB,&
+&4.74164E-11_JPRB,5.31466E-11_JPRB,5.94905E-11_JPRB,6.65054E-11_JPRB,7.42522E-11_JPRB,&
+&8.27975E-11_JPRB,9.22122E-11_JPRB,1.02573E-10_JPRB,1.13961E-10_JPRB,1.26466E-10_JPRB,&
+&1.40181E-10_JPRB,1.55206E-10_JPRB,1.71651E-10_JPRB,1.89630E-10_JPRB,2.09265E-10_JPRB,&
+&2.30689E-10_JPRB,2.54040E-10_JPRB,2.79467E-10_JPRB,3.07128E-10_JPRB,3.37190E-10_JPRB,&
+&3.69833E-10_JPRB,4.05243E-10_JPRB,4.43623E-10_JPRB,4.85183E-10_JPRB,5.30149E-10_JPRB,&
+&5.78755E-10_JPRB,6.31255E-10_JPRB,6.87910E-10_JPRB,7.49002E-10_JPRB,8.14824E-10_JPRB,&
+&8.85687E-10_JPRB,9.61914E-10_JPRB,1.04385E-09_JPRB,1.13186E-09_JPRB,1.22631E-09_JPRB,&
+&1.32761E-09_JPRB,1.43617E-09_JPRB,1.55243E-09_JPRB,1.67686E-09_JPRB,1.80992E-09_JPRB,&
+
+&1.95212E-09_JPRB,2.10399E-09_JPRB,2.26607E-09_JPRB,2.43895E-09_JPRB,2.62321E-09_JPRB,&
+&2.81949E-09_JPRB,3.02844E-09_JPRB,3.25073E-09_JPRB,3.48707E-09_JPRB,3.73820E-09_JPRB,&
+&4.00490E-09_JPRB,4.28794E-09_JPRB,4.58819E-09_JPRB,4.90647E-09_JPRB,5.24371E-09_JPRB,&
+&5.60081E-09_JPRB,5.97875E-09_JPRB,6.37854E-09_JPRB,6.80120E-09_JPRB,7.24782E-09_JPRB,&
+&7.71950E-09_JPRB,8.21740E-09_JPRB,8.74271E-09_JPRB,9.29666E-09_JPRB,9.88054E-09_JPRB,&
+&1.04956E-08_JPRB,1.11434E-08_JPRB,1.18251E-08_JPRB,1.25422E-08_JPRB,1.32964E-08_JPRB,&
+&1.40890E-08_JPRB,1.49217E-08_JPRB,1.57961E-08_JPRB,1.67140E-08_JPRB,1.76771E-08_JPRB,&
+&1.86870E-08_JPRB,1.97458E-08_JPRB,2.08553E-08_JPRB,2.20175E-08_JPRB,2.32342E-08_JPRB,&
+&2.45077E-08_JPRB,2.58401E-08_JPRB,2.72334E-08_JPRB,2.86900E-08_JPRB,3.02122E-08_JPRB,&
+&3.18021E-08_JPRB,3.34624E-08_JPRB,3.51954E-08_JPRB,3.70037E-08_JPRB,3.88899E-08_JPRB,&
+
+&4.08568E-08_JPRB,4.29068E-08_JPRB,4.50429E-08_JPRB,4.72678E-08_JPRB,4.95847E-08_JPRB,&
+&5.19963E-08_JPRB,5.45058E-08_JPRB,5.71161E-08_JPRB,5.98309E-08_JPRB,6.26529E-08_JPRB,&
+&6.55857E-08_JPRB,6.86327E-08_JPRB,7.17971E-08_JPRB,7.50829E-08_JPRB,7.84933E-08_JPRB,&
+&8.20323E-08_JPRB,8.57035E-08_JPRB,8.95105E-08_JPRB,9.34579E-08_JPRB,9.75488E-08_JPRB,&
+&1.01788E-07_JPRB,1.06179E-07_JPRB,1.10727E-07_JPRB,1.15434E-07_JPRB,1.20307E-07_JPRB,&
+&1.25350E-07_JPRB,1.30566E-07_JPRB,1.35961E-07_JPRB,1.41539E-07_JPRB,1.47304E-07_JPRB,&
+&1.53263E-07_JPRB,1.59419E-07_JPRB,1.65778E-07_JPRB,1.72345E-07_JPRB,1.79124E-07_JPRB,&
+&1.86122E-07_JPRB,1.93343E-07_JPRB,2.00792E-07_JPRB,2.08476E-07_JPRB,2.16400E-07_JPRB,&
+&2.24568E-07_JPRB,2.32988E-07_JPRB,2.41666E-07_JPRB,2.50605E-07_JPRB,2.59813E-07_JPRB,&
+&2.69297E-07_JPRB,2.79060E-07_JPRB,2.89111E-07_JPRB,2.99455E-07_JPRB,3.10099E-07_JPRB,&
+
+&3.21049E-07_JPRB,3.32311E-07_JPRB,3.43893E-07_JPRB,3.55801E-07_JPRB,3.68041E-07_JPRB,&
+&3.80621E-07_JPRB,3.93547E-07_JPRB,4.06826E-07_JPRB,4.20465E-07_JPRB,4.34473E-07_JPRB,&
+&4.48856E-07_JPRB,4.63620E-07_JPRB,4.78774E-07_JPRB,4.94325E-07_JPRB,5.10280E-07_JPRB,&
+&5.26648E-07_JPRB,5.43436E-07_JPRB,5.60652E-07_JPRB,5.78302E-07_JPRB,5.96397E-07_JPRB,&
+&6.14943E-07_JPRB,6.33949E-07_JPRB,6.53421E-07_JPRB,6.73370E-07_JPRB,6.93803E-07_JPRB,&
+&7.14731E-07_JPRB,7.36157E-07_JPRB,7.58095E-07_JPRB,7.80549E-07_JPRB,8.03533E-07_JPRB,&
+&8.27050E-07_JPRB/)
+
+TOTPLNK( :,15) = (/&
+&3.90483E-12_JPRB,4.47999E-12_JPRB,5.13122E-12_JPRB,5.86739E-12_JPRB,6.69829E-12_JPRB,&
+&7.63467E-12_JPRB,8.68833E-12_JPRB,9.87221E-12_JPRB,1.12005E-11_JPRB,1.26885E-11_JPRB,&
+&1.43534E-11_JPRB,1.62134E-11_JPRB,1.82888E-11_JPRB,2.06012E-11_JPRB,2.31745E-11_JPRB,&
+&2.60343E-11_JPRB,2.92087E-11_JPRB,3.27277E-11_JPRB,3.66242E-11_JPRB,4.09334E-11_JPRB,&
+&4.56935E-11_JPRB,5.09455E-11_JPRB,5.67338E-11_JPRB,6.31057E-11_JPRB,7.01127E-11_JPRB,&
+&7.78096E-11_JPRB,8.62554E-11_JPRB,9.55130E-11_JPRB,1.05651E-10_JPRB,1.16740E-10_JPRB,&
+&1.28858E-10_JPRB,1.42089E-10_JPRB,1.56519E-10_JPRB,1.72243E-10_JPRB,1.89361E-10_JPRB,&
+&2.07978E-10_JPRB,2.28209E-10_JPRB,2.50173E-10_JPRB,2.73999E-10_JPRB,2.99820E-10_JPRB,&
+&3.27782E-10_JPRB,3.58034E-10_JPRB,3.90739E-10_JPRB,4.26067E-10_JPRB,4.64196E-10_JPRB,&
+&5.05317E-10_JPRB,5.49631E-10_JPRB,5.97347E-10_JPRB,6.48689E-10_JPRB,7.03891E-10_JPRB,&
+
+&7.63201E-10_JPRB,8.26876E-10_JPRB,8.95192E-10_JPRB,9.68430E-10_JPRB,1.04690E-09_JPRB,&
+&1.13091E-09_JPRB,1.22079E-09_JPRB,1.31689E-09_JPRB,1.41957E-09_JPRB,1.52922E-09_JPRB,&
+&1.64623E-09_JPRB,1.77101E-09_JPRB,1.90401E-09_JPRB,2.04567E-09_JPRB,2.19647E-09_JPRB,&
+&2.35690E-09_JPRB,2.52749E-09_JPRB,2.70875E-09_JPRB,2.90127E-09_JPRB,3.10560E-09_JPRB,&
+&3.32238E-09_JPRB,3.55222E-09_JPRB,3.79578E-09_JPRB,4.05375E-09_JPRB,4.32682E-09_JPRB,&
+&4.61574E-09_JPRB,4.92128E-09_JPRB,5.24420E-09_JPRB,5.58536E-09_JPRB,5.94558E-09_JPRB,&
+&6.32575E-09_JPRB,6.72678E-09_JPRB,7.14964E-09_JPRB,7.59526E-09_JPRB,8.06470E-09_JPRB,&
+&8.55897E-09_JPRB,9.07916E-09_JPRB,9.62638E-09_JPRB,1.02018E-08_JPRB,1.08066E-08_JPRB,&
+&1.14420E-08_JPRB,1.21092E-08_JPRB,1.28097E-08_JPRB,1.35446E-08_JPRB,1.43155E-08_JPRB,&
+&1.51237E-08_JPRB,1.59708E-08_JPRB,1.68581E-08_JPRB,1.77873E-08_JPRB,1.87599E-08_JPRB,&
+
+&1.97777E-08_JPRB,2.08423E-08_JPRB,2.19555E-08_JPRB,2.31190E-08_JPRB,2.43348E-08_JPRB,&
+&2.56045E-08_JPRB,2.69302E-08_JPRB,2.83140E-08_JPRB,2.97578E-08_JPRB,3.12636E-08_JPRB,&
+&3.28337E-08_JPRB,3.44702E-08_JPRB,3.61755E-08_JPRB,3.79516E-08_JPRB,3.98012E-08_JPRB,&
+&4.17265E-08_JPRB,4.37300E-08_JPRB,4.58143E-08_JPRB,4.79819E-08_JPRB,5.02355E-08_JPRB,&
+&5.25777E-08_JPRB,5.50114E-08_JPRB,5.75393E-08_JPRB,6.01644E-08_JPRB,6.28896E-08_JPRB,&
+&6.57177E-08_JPRB,6.86521E-08_JPRB,7.16959E-08_JPRB,7.48520E-08_JPRB,7.81239E-08_JPRB,&
+&8.15148E-08_JPRB,8.50282E-08_JPRB,8.86675E-08_JPRB,9.24362E-08_JPRB,9.63380E-08_JPRB,&
+&1.00376E-07_JPRB,1.04555E-07_JPRB,1.08878E-07_JPRB,1.13349E-07_JPRB,1.17972E-07_JPRB,&
+&1.22751E-07_JPRB,1.27690E-07_JPRB,1.32793E-07_JPRB,1.38064E-07_JPRB,1.43508E-07_JPRB,&
+&1.49129E-07_JPRB,1.54931E-07_JPRB,1.60920E-07_JPRB,1.67099E-07_JPRB,1.73473E-07_JPRB,&
+
+&1.80046E-07_JPRB,1.86825E-07_JPRB,1.93812E-07_JPRB,2.01014E-07_JPRB,2.08436E-07_JPRB,&
+&2.16082E-07_JPRB,2.23957E-07_JPRB,2.32067E-07_JPRB,2.40418E-07_JPRB,2.49013E-07_JPRB,&
+&2.57860E-07_JPRB,2.66963E-07_JPRB,2.76328E-07_JPRB,2.85961E-07_JPRB,2.95868E-07_JPRB,&
+&3.06053E-07_JPRB,3.16524E-07_JPRB,3.27286E-07_JPRB,3.38345E-07_JPRB,3.49707E-07_JPRB,&
+&3.61379E-07_JPRB,3.73367E-07_JPRB,3.85676E-07_JPRB,3.98315E-07_JPRB,4.11287E-07_JPRB,&
+&4.24602E-07_JPRB,4.38265E-07_JPRB,4.52283E-07_JPRB,4.66662E-07_JPRB,4.81410E-07_JPRB,&
+&4.96535E-07_JPRB/)
+
+TOTPLNK( :,16) = (/&
+&4.65378E-13_JPRB,5.41927E-13_JPRB,6.29913E-13_JPRB,7.30869E-13_JPRB,8.46510E-13_JPRB,&
+&9.78750E-13_JPRB,1.12972E-12_JPRB,1.30181E-12_JPRB,1.49764E-12_JPRB,1.72016E-12_JPRB,&
+&1.97260E-12_JPRB,2.25858E-12_JPRB,2.58206E-12_JPRB,2.94744E-12_JPRB,3.35955E-12_JPRB,&
+&3.82372E-12_JPRB,4.34581E-12_JPRB,4.93225E-12_JPRB,5.59010E-12_JPRB,6.32711E-12_JPRB,&
+&7.15171E-12_JPRB,8.07317E-12_JPRB,9.10159E-12_JPRB,1.02480E-11_JPRB,1.15244E-11_JPRB,&
+&1.29438E-11_JPRB,1.45204E-11_JPRB,1.62697E-11_JPRB,1.82084E-11_JPRB,2.03545E-11_JPRB,&
+&2.27278E-11_JPRB,2.53494E-11_JPRB,2.82424E-11_JPRB,3.14313E-11_JPRB,3.49431E-11_JPRB,&
+&3.88064E-11_JPRB,4.30522E-11_JPRB,4.77139E-11_JPRB,5.28273E-11_JPRB,5.84308E-11_JPRB,&
+&6.45658E-11_JPRB,7.12764E-11_JPRB,7.86103E-11_JPRB,8.66176E-11_JPRB,9.53534E-11_JPRB,&
+&1.04875E-10_JPRB,1.15245E-10_JPRB,1.26528E-10_JPRB,1.38796E-10_JPRB,1.52123E-10_JPRB,&
+
+&1.66590E-10_JPRB,1.82281E-10_JPRB,1.99287E-10_JPRB,2.17704E-10_JPRB,2.37632E-10_JPRB,&
+&2.59182E-10_JPRB,2.82468E-10_JPRB,3.07610E-10_JPRB,3.34738E-10_JPRB,3.63988E-10_JPRB,&
+&3.95504E-10_JPRB,4.29438E-10_JPRB,4.65951E-10_JPRB,5.05212E-10_JPRB,5.47402E-10_JPRB,&
+&5.92707E-10_JPRB,6.41329E-10_JPRB,6.93477E-10_JPRB,7.49371E-10_JPRB,8.09242E-10_JPRB,&
+&8.73338E-10_JPRB,9.41911E-10_JPRB,1.01524E-09_JPRB,1.09359E-09_JPRB,1.17728E-09_JPRB,&
+&1.26660E-09_JPRB,1.36190E-09_JPRB,1.46350E-09_JPRB,1.57177E-09_JPRB,1.68709E-09_JPRB,&
+&1.80984E-09_JPRB,1.94044E-09_JPRB,2.07932E-09_JPRB,2.22693E-09_JPRB,2.38373E-09_JPRB,&
+&2.55021E-09_JPRB,2.72689E-09_JPRB,2.91429E-09_JPRB,3.11298E-09_JPRB,3.32353E-09_JPRB,&
+&3.54655E-09_JPRB,3.78265E-09_JPRB,4.03251E-09_JPRB,4.29679E-09_JPRB,4.57620E-09_JPRB,&
+&4.87148E-09_JPRB,5.18341E-09_JPRB,5.51276E-09_JPRB,5.86037E-09_JPRB,6.22708E-09_JPRB,&
+
+&6.61381E-09_JPRB,7.02145E-09_JPRB,7.45097E-09_JPRB,7.90336E-09_JPRB,8.37967E-09_JPRB,&
+&8.88092E-09_JPRB,9.40827E-09_JPRB,9.96280E-09_JPRB,1.05457E-08_JPRB,1.11583E-08_JPRB,&
+&1.18017E-08_JPRB,1.24773E-08_JPRB,1.31865E-08_JPRB,1.39306E-08_JPRB,1.47111E-08_JPRB,&
+&1.55295E-08_JPRB,1.63872E-08_JPRB,1.72860E-08_JPRB,1.82274E-08_JPRB,1.92132E-08_JPRB,&
+&2.02450E-08_JPRB,2.13247E-08_JPRB,2.24541E-08_JPRB,2.36352E-08_JPRB,2.48699E-08_JPRB,&
+&2.61602E-08_JPRB,2.75082E-08_JPRB,2.89161E-08_JPRB,3.03860E-08_JPRB,3.19203E-08_JPRB,&
+&3.35213E-08_JPRB,3.51913E-08_JPRB,3.69330E-08_JPRB,3.87486E-08_JPRB,4.06411E-08_JPRB,&
+&4.26129E-08_JPRB,4.46668E-08_JPRB,4.68058E-08_JPRB,4.90325E-08_JPRB,5.13502E-08_JPRB,&
+&5.37617E-08_JPRB,5.62703E-08_JPRB,5.88791E-08_JPRB,6.15915E-08_JPRB,6.44107E-08_JPRB,&
+&6.73404E-08_JPRB,7.03841E-08_JPRB,7.35453E-08_JPRB,7.68278E-08_JPRB,8.02355E-08_JPRB,&
+
+&8.37721E-08_JPRB,8.74419E-08_JPRB,9.12486E-08_JPRB,9.51968E-08_JPRB,9.92905E-08_JPRB,&
+&1.03534E-07_JPRB,1.07932E-07_JPRB,1.12490E-07_JPRB,1.17211E-07_JPRB,1.22100E-07_JPRB,&
+&1.27163E-07_JPRB,1.32404E-07_JPRB,1.37829E-07_JPRB,1.43443E-07_JPRB,1.49250E-07_JPRB,&
+&1.55257E-07_JPRB,1.61470E-07_JPRB,1.67893E-07_JPRB,1.74532E-07_JPRB,1.81394E-07_JPRB,&
+&1.88485E-07_JPRB,1.95810E-07_JPRB,2.03375E-07_JPRB,2.11189E-07_JPRB,2.19256E-07_JPRB,&
+&2.27583E-07_JPRB,2.36177E-07_JPRB,2.45046E-07_JPRB,2.54196E-07_JPRB,2.63634E-07_JPRB,&
+&2.73367E-07_JPRB/)
+
+TOTPLK16( :) = (/&
+&4.46128E-13_JPRB,5.19008E-13_JPRB,6.02681E-13_JPRB,6.98580E-13_JPRB,8.08302E-13_JPRB,&
+&9.33629E-13_JPRB,1.07654E-12_JPRB,1.23925E-12_JPRB,1.42419E-12_JPRB,1.63407E-12_JPRB,&
+&1.87190E-12_JPRB,2.14099E-12_JPRB,2.44498E-12_JPRB,2.78793E-12_JPRB,3.17424E-12_JPRB,&
+&3.60881E-12_JPRB,4.09698E-12_JPRB,4.64461E-12_JPRB,5.25813E-12_JPRB,5.94456E-12_JPRB,&
+&6.71156E-12_JPRB,7.56752E-12_JPRB,8.52154E-12_JPRB,9.58357E-12_JPRB,1.07644E-11_JPRB,&
+&1.20758E-11_JPRB,1.35304E-11_JPRB,1.51420E-11_JPRB,1.69256E-11_JPRB,1.88973E-11_JPRB,&
+&2.10746E-11_JPRB,2.34762E-11_JPRB,2.61227E-11_JPRB,2.90356E-11_JPRB,3.22388E-11_JPRB,&
+&3.57574E-11_JPRB,3.96187E-11_JPRB,4.38519E-11_JPRB,4.84883E-11_JPRB,5.35616E-11_JPRB,&
+&5.91075E-11_JPRB,6.51647E-11_JPRB,7.17743E-11_JPRB,7.89797E-11_JPRB,8.68284E-11_JPRB,&
+&9.53697E-11_JPRB,1.04658E-10_JPRB,1.14748E-10_JPRB,1.25701E-10_JPRB,1.37582E-10_JPRB,&
+
+&1.50457E-10_JPRB,1.64400E-10_JPRB,1.79487E-10_JPRB,1.95799E-10_JPRB,2.13422E-10_JPRB,&
+&2.32446E-10_JPRB,2.52970E-10_JPRB,2.75094E-10_JPRB,2.98925E-10_JPRB,3.24578E-10_JPRB,&
+&3.52172E-10_JPRB,3.81833E-10_JPRB,4.13695E-10_JPRB,4.47897E-10_JPRB,4.84588E-10_JPRB,&
+&5.23922E-10_JPRB,5.66063E-10_JPRB,6.11182E-10_JPRB,6.59459E-10_JPRB,7.11081E-10_JPRB,&
+&7.66251E-10_JPRB,8.25172E-10_JPRB,8.88065E-10_JPRB,9.55155E-10_JPRB,1.02668E-09_JPRB,&
+&1.10290E-09_JPRB,1.18406E-09_JPRB,1.27044E-09_JPRB,1.36233E-09_JPRB,1.46002E-09_JPRB,&
+&1.56382E-09_JPRB,1.67406E-09_JPRB,1.79108E-09_JPRB,1.91522E-09_JPRB,2.04686E-09_JPRB,&
+&2.18637E-09_JPRB,2.33416E-09_JPRB,2.49063E-09_JPRB,2.65622E-09_JPRB,2.83136E-09_JPRB,&
+&3.01653E-09_JPRB,3.21221E-09_JPRB,3.41890E-09_JPRB,3.63712E-09_JPRB,3.86740E-09_JPRB,&
+&4.11030E-09_JPRB,4.36641E-09_JPRB,4.63631E-09_JPRB,4.92064E-09_JPRB,5.22003E-09_JPRB,&
+
+&5.53516E-09_JPRB,5.86670E-09_JPRB,6.21538E-09_JPRB,6.58191E-09_JPRB,6.96708E-09_JPRB,&
+&7.37165E-09_JPRB,7.79645E-09_JPRB,8.24229E-09_JPRB,8.71007E-09_JPRB,9.20066E-09_JPRB,&
+&9.71498E-09_JPRB,1.02540E-08_JPRB,1.08186E-08_JPRB,1.14100E-08_JPRB,1.20290E-08_JPRB,&
+&1.26767E-08_JPRB,1.33544E-08_JPRB,1.40630E-08_JPRB,1.48038E-08_JPRB,1.55780E-08_JPRB,&
+&1.63867E-08_JPRB,1.72313E-08_JPRB,1.81130E-08_JPRB,1.90332E-08_JPRB,1.99932E-08_JPRB,&
+&2.09945E-08_JPRB,2.20385E-08_JPRB,2.31267E-08_JPRB,2.42605E-08_JPRB,2.54416E-08_JPRB,&
+&2.66716E-08_JPRB,2.79520E-08_JPRB,2.92846E-08_JPRB,3.06711E-08_JPRB,3.21133E-08_JPRB,&
+&3.36128E-08_JPRB,3.51717E-08_JPRB,3.67918E-08_JPRB,3.84749E-08_JPRB,4.02232E-08_JPRB,&
+&4.20386E-08_JPRB,4.39231E-08_JPRB,4.58790E-08_JPRB,4.79083E-08_JPRB,5.00132E-08_JPRB,&
+&5.21961E-08_JPRB,5.44592E-08_JPRB,5.68049E-08_JPRB,5.92356E-08_JPRB,6.17537E-08_JPRB,&
+
+&6.43617E-08_JPRB,6.70622E-08_JPRB,6.98578E-08_JPRB,7.27511E-08_JPRB,7.57449E-08_JPRB,&
+&7.88419E-08_JPRB,8.20449E-08_JPRB,8.53568E-08_JPRB,8.87805E-08_JPRB,9.23190E-08_JPRB,&
+&9.59753E-08_JPRB,9.97526E-08_JPRB,1.03654E-07_JPRB,1.07682E-07_JPRB,1.11841E-07_JPRB,&
+&1.16134E-07_JPRB,1.20564E-07_JPRB,1.25135E-07_JPRB,1.29850E-07_JPRB,1.34712E-07_JPRB,&
+&1.39726E-07_JPRB,1.44894E-07_JPRB,1.50221E-07_JPRB,1.55711E-07_JPRB,1.61367E-07_JPRB,&
+&1.67193E-07_JPRB,1.73193E-07_JPRB,1.79371E-07_JPRB,1.85732E-07_JPRB,1.92279E-07_JPRB,&
+&1.99016E-07_JPRB/)
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE SURRTPK
Index: LMDZ5/branches/testing/libf/phymar/surrtrf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/surrtrf.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/surrtrf.F90	(revision 2160)
@@ -0,0 +1,64 @@
+SUBROUTINE SURRTRF
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
+
+!     ------------------------------------------------------------------
+
+!     These pressures are chosen such that the ln of the first pressure
+!     has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and
+!     each subsequent ln(pressure) differs from the previous one by 0.2.
+
+IMPLICIT NONE
+PREF( :) = (/&
+    &1.05363E+03_JPRB,8.62642E+02_JPRB,7.06272E+02_JPRB,5.78246E+02_JPRB,4.73428E+02_JPRB,&
+    &3.87610E+02_JPRB,3.17348E+02_JPRB,2.59823E+02_JPRB,2.12725E+02_JPRB,1.74164E+02_JPRB,&
+    &1.42594E+02_JPRB,1.16746E+02_JPRB,9.55835E+01_JPRB,7.82571E+01_JPRB,6.40715E+01_JPRB,&
+    &5.24573E+01_JPRB,4.29484E+01_JPRB,3.51632E+01_JPRB,2.87892E+01_JPRB,2.35706E+01_JPRB,&
+    &1.92980E+01_JPRB,1.57998E+01_JPRB,1.29358E+01_JPRB,1.05910E+01_JPRB,8.67114E+00_JPRB,&
+    &7.09933E+00_JPRB,5.81244E+00_JPRB,4.75882E+00_JPRB,3.89619E+00_JPRB,3.18993E+00_JPRB,&
+    &2.61170E+00_JPRB,2.13828E+00_JPRB,1.75067E+00_JPRB,1.43333E+00_JPRB,1.17351E+00_JPRB,&
+    &9.60789E-01_JPRB,7.86628E-01_JPRB,6.44036E-01_JPRB,5.27292E-01_JPRB,4.31710E-01_JPRB,&
+    &3.53455E-01_JPRB,2.89384E-01_JPRB,2.36928E-01_JPRB,1.93980E-01_JPRB,1.58817E-01_JPRB,&
+    &1.30029E-01_JPRB,1.06458E-01_JPRB,8.71608E-02_JPRB,7.13612E-02_JPRB,5.84256E-02_JPRB,&
+    &4.78349E-02_JPRB,3.91639E-02_JPRB,3.20647E-02_JPRB,2.62523E-02_JPRB,2.14936E-02_JPRB,&
+    &1.75975E-02_JPRB,1.44076E-02_JPRB,1.17959E-02_JPRB,9.65769E-03_JPRB/)
+
+PREFLOG( :) = (/&
+     &6.9600E+00_JPRB, 6.7600E+00_JPRB, 6.5600E+00_JPRB, 6.3600E+00_JPRB, 6.1600E+00_JPRB,&
+     &5.9600E+00_JPRB, 5.7600E+00_JPRB, 5.5600E+00_JPRB, 5.3600E+00_JPRB, 5.1600E+00_JPRB,&
+     &4.9600E+00_JPRB, 4.7600E+00_JPRB, 4.5600E+00_JPRB, 4.3600E+00_JPRB, 4.1600E+00_JPRB,&
+     &3.9600E+00_JPRB, 3.7600E+00_JPRB, 3.5600E+00_JPRB, 3.3600E+00_JPRB, 3.1600E+00_JPRB,&
+     &2.9600E+00_JPRB, 2.7600E+00_JPRB, 2.5600E+00_JPRB, 2.3600E+00_JPRB, 2.1600E+00_JPRB,&
+     &1.9600E+00_JPRB, 1.7600E+00_JPRB, 1.5600E+00_JPRB, 1.3600E+00_JPRB, 1.1600E+00_JPRB,&
+     &9.6000E-01_JPRB, 7.6000E-01_JPRB, 5.6000E-01_JPRB, 3.6000E-01_JPRB, 1.6000E-01_JPRB,&
+    &-4.0000E-02_JPRB,-2.4000E-01_JPRB,-4.4000E-01_JPRB,-6.4000E-01_JPRB,-8.4000E-01_JPRB,&
+    &-1.0400E+00_JPRB,-1.2400E+00_JPRB,-1.4400E+00_JPRB,-1.6400E+00_JPRB,-1.8400E+00_JPRB,&
+    &-2.0400E+00_JPRB,-2.2400E+00_JPRB,-2.4400E+00_JPRB,-2.6400E+00_JPRB,-2.8400E+00_JPRB,&
+    &-3.0400E+00_JPRB,-3.2400E+00_JPRB,-3.4400E+00_JPRB,-3.6400E+00_JPRB,-3.8400E+00_JPRB,&
+    &-4.0400E+00_JPRB,-4.2400E+00_JPRB,-4.4400E+00_JPRB,-4.6400E+00_JPRB/)
+
+!     These are the temperatures associated with the respective 
+!     pressures for the MLS standard atmosphere. 
+TREF( :) = (/&
+     &2.9420E+02_JPRB, 2.8799E+02_JPRB, 2.7894E+02_JPRB, 2.6925E+02_JPRB, 2.5983E+02_JPRB,&
+     &2.5017E+02_JPRB, 2.4077E+02_JPRB, 2.3179E+02_JPRB, 2.2306E+02_JPRB, 2.1578E+02_JPRB,&
+     &2.1570E+02_JPRB, 2.1570E+02_JPRB, 2.1570E+02_JPRB, 2.1706E+02_JPRB, 2.1858E+02_JPRB,&
+     &2.2018E+02_JPRB, 2.2174E+02_JPRB, 2.2328E+02_JPRB, 2.2479E+02_JPRB, 2.2655E+02_JPRB,&
+     &2.2834E+02_JPRB, 2.3113E+02_JPRB, 2.3401E+02_JPRB, 2.3703E+02_JPRB, 2.4022E+02_JPRB,&
+     &2.4371E+02_JPRB, 2.4726E+02_JPRB, 2.5085E+02_JPRB, 2.5457E+02_JPRB, 2.5832E+02_JPRB,&
+     &2.6216E+02_JPRB, 2.6606E+02_JPRB, 2.6999E+02_JPRB, 2.7340E+02_JPRB, 2.7536E+02_JPRB,&
+     &2.7568E+02_JPRB, 2.7372E+02_JPRB, 2.7163E+02_JPRB, 2.6955E+02_JPRB, 2.6593E+02_JPRB,&
+     &2.6211E+02_JPRB, 2.5828E+02_JPRB, 2.5360E+02_JPRB, 2.4854E+02_JPRB, 2.4348E+02_JPRB,&
+     &2.3809E+02_JPRB, 2.3206E+02_JPRB, 2.2603E+02_JPRB, 2.2000E+02_JPRB, 2.1435E+02_JPRB,&
+     &2.0887E+02_JPRB, 2.0340E+02_JPRB, 1.9792E+02_JPRB, 1.9290E+02_JPRB, 1.8809E+02_JPRB,&
+     &1.8329E+02_JPRB, 1.7849E+02_JPRB, 1.7394E+02_JPRB, 1.7212E+02_JPRB/)
+
+!     -----------------------------------------------------------------
+RETURN
+END SUBROUTINE SURRTRF
Index: LMDZ5/branches/testing/libf/phymar/susw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/susw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/susw.F90	(revision 2160)
@@ -0,0 +1,207 @@
+SUBROUTINE SUSW
+
+!**** *SUSW*   - INITIALIZE COMMON YOESW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE SHORTWAVE RADIATION SUBROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSW
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RG
+USE YOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
+            &RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,RSWCE    ,&
+            &RSWCP    ,RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG    ,D
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES.
+!              -----------
+
+
+
+IMPLICIT NONE
+REAL_B   :: ZPDH2O=0.8_JPRB
+REAL_B   :: ZPDUMG=0.75_JPRB
+REAL_B   :: ZPRH2O=30000._JPRB
+REAL_B   :: ZPRUMG=30000._JPRB
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZH2O, ZUMG
+
+RPDH1=ZPDH2O+_ONE_
+RPDU1=ZPDUMG+_ONE_
+ZH2O=_ONE_/( 10._JPRB* RG * RPDH1 )
+ZUMG=_ONE_/( 10._JPRB* RG * RPDU1 )
+RPNU = ZUMG/(ZPRUMG**ZPDUMG)
+RPNH = ZH2O/(ZPRH2O**ZPDH2O)
+
+!      RSWCP=0.002*RSWCE
+
+
+RTDH2O = 0.40_JPRB
+RTDUMG = 0.375_JPRB
+RTH2O = 240._JPRB
+RTUMG = 240._JPRB
+RSWCE = 0._JPRB
+RSWCP = 0._JPRB
+
+RSUN(1) = 0.441676_JPRB
+D(1,:) = (/ 0.00_JPRB, 0.00_JPRB, 0.00_JPRB /)
+!* DERIVED FROM HITRAN APRIL 1991
+!       H2O:  Pref=300 hPa, Tref=240K, Pdep=0.8
+!       O3 :  unchanged
+
+APAD(1, 1, :) = (/&
+ &0.912418292E+05_JPRB,&
+ &0.723613782E+05_JPRB,&
+ &0.596037057E+04_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+APAD(1, 2, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+APAD(1, 3, :) = (/&
+ &0.925887084E-04_JPRB,&
+ &0.129353723E-01_JPRB,&
+ &0.800821928E+00_JPRB,&
+ &0.242715973E+02_JPRB,&
+ &0.878331486E+02_JPRB,&
+ &0.191559725E+02_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+BPAD(1, 1, :) = (/&
+ &0.912418292E+05_JPRB,&
+ &0.724555318E+05_JPRB,&
+ &0.602593328E+04_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+BPAD(1, 2, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+BPAD(1, 3, :) = (/&
+ &0.925887084E-04_JPRB,&
+ &0.131812683E-01_JPRB,&
+ &0.812706117E+00_JPRB,&
+ &0.249863591E+02_JPRB,&
+ &0.931071925E+02_JPRB,&
+ &0.252233437E+02_JPRB,&
+ &0.100000000E+01_JPRB/)
+
+RRAY(1,1:6) = (/&
+ &.428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ &.522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)
+
+RSUN(2) = 0.558324_JPRB
+
+D(2,1:3) = (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.800000000_JPRB /)
+
+!* INTERVAL 2:  0.68 - 4.00 MICRONS
+!* DERIVED FROM HITRAN APRIL 1991
+!       H2O:  Pref=300 hPa, Tref=240K, Pdep=0.80
+!       UMG:  Pref=300 hPa, Tref=240K, Pdep=0.75 (CO2+O2+CH4+N2O+CO)
+!       O3 :  unchanged
+
+APAD(2, 1, :) = (/&
+ &0.376655383E-08_JPRB,&
+ &0.978576773E-04_JPRB,&
+ &0.387714006E+00_JPRB,&
+ &0.118461660E+03_JPRB,&
+ &0.119079797E+04_JPRB,&
+ &0.293353397E+03_JPRB,&
+ &0.000000000E+00_JPRB/)
+APAD(2, 2, :) = (/&
+ &0.739646016E-08_JPRB,&
+ &0.131849595E-03_JPRB,&
+ &0.437772681E+00_JPRB,&
+ &0.151345118E+03_JPRB,&
+ &0.233628890E+04_JPRB,&
+ &0.797219934E+03_JPRB,&
+ &0.000000000E+00_JPRB/)
+APAD(2, 3, :) = (/&
+ &0.410177786E+03_JPRB,&
+ &0.672595424E+02_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+BPAD(2, 1, :) = (/&
+ &0.376655383E-08_JPRB,&
+ &0.979023421E-04_JPRB,&
+ &0.388611139E+00_JPRB,&
+ &0.120291383E+03_JPRB,&
+ &0.130531005E+04_JPRB,&
+ &0.415049409E+03_JPRB,&
+ &0.100000000E+01_JPRB/)
+BPAD(2, 2, :) = (/&
+ &0.739646016E-08_JPRB,&
+ &0.131861712E-03_JPRB,&
+ &0.437949001E+00_JPRB,&
+ &0.151692730E+03_JPRB,&
+ &0.237071130E+04_JPRB,&
+ &0.867914360E+03_JPRB,&
+ &0.100000000E+01_JPRB/)
+BPAD(2, 3, :) = (/&
+ &0.410177786E+03_JPRB,&
+ &0.731185438E+02_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+RRAY(2,1:6) = (/&
+ &.697200E-02_JPRB, .173297E-01_JPRB,-.850903E-01_JPRB,&
+ &.248261E+00_JPRB,-.302031E+00_JPRB, .129662E+00_JPRB/)
+RETURN
+END SUBROUTINE SUSW
Index: LMDZ5/branches/testing/libf/phymar/suswn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/suswn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/suswn.F90	(revision 2160)
@@ -0,0 +1,1389 @@
+SUBROUTINE SUSWN (KTSW,KSW)
+
+!**** *SUSW*   - INITIALIZE COMMON YOESW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE SHORTWAVE RADIATION SUBROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSW
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        97-04-16 JJ Morcrette  2 and 4 interval spectral resolution
+!        00-10-24 JJ Morcrette  sea-ice albedo revisited
+!        00-12-14 JJ Morcrette 
+!               and Ph.Dubuisson B.Bonnel 6 spectral interval resolution
+
+!     ------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOMCST   , ONLY : RG
+USE YOERAD   , ONLY : NTSW     ,LONEWSW
+USE YOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
+           &RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,RSWCE    ,&
+           &RSWCP    ,RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG    ,&
+           &D        ,RROMA    ,RROMB    ,RRASY    ,RHSRA    ,&
+           &RHSRB    ,RHSRC    ,RHSRD    ,RHSRE    ,RHSRF    ,&
+           &RHSRTA   ,RHSRTB   ,REXPO3   ,&
+           &RALBICE_AR         ,RALBICE_AN         ,RWEIGHT  ,&
+           &RADJUST  ,NTYPS    ,NEXPO3
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KSW
+INTEGER_M :: KTSW
+
+
+
+!     ----------------------------------------------------------------
+REAL_B :: ZAPAD2(2,3,7)  , ZBPAD2(2,3,7)  , ZD2(2,3)&
+  &,  ZRAY2(2,6)     , ZSUN2(2)       , ZSWCE2(2)  , ZSWCP2(2)&
+  &,  ZWEIGHT2(2,8)  , ZROMA2(2)      , ZROMB2(2)  , ZRASY2(2)&
+  &,  ZRA2(2)        , ZRB2(2)        , ZRC2(2)&
+  &,  ZRD2(2)        , ZRE2(2)        , ZRF2(2)    , ZALBICE2(12,2)
+
+REAL_B :: ZAPAD4(4,3,7)  , ZBPAD4(4,3,7)  , ZD4(4,3)&
+  &,  ZRAY4(4,6)     , ZSUN4(4)       , ZSWCE4(4)  , ZSWCP4(4)&
+  &,  ZWEIGHT4(4,8)  , ZROMA4(4)      , ZROMB4(4)  , ZRASY4(4)&
+  &,  ZRA4(4)        , ZRB4(4)        , ZRC4(4)&
+  &,  ZRD4(4)        , ZRE4(4)        , ZRF4(4)    , ZALBICE4(12,4)
+  
+REAL_B :: ZAPAD6(6,3,7)  , ZBPAD6(6,3,7)  , ZD6(6,3)&
+  &,  ZRAY6(6,6)     , ZSUN6(6)       , ZSWCE6(6)  , ZSWCP6(6)&
+  &,  ZWEIGHT6(6,8)  , ZROMA6(6)      , ZROMB6(6)  , ZRASY6(6)&
+  &,  ZRA6(6)        , ZRB6(6)        , ZRC6(6)&
+  &,  ZRD6(6)        , ZRE6(6)        , ZRF6(6)    , ZALBICE6(12,6)
+  
+REAL_B :: ZTWEIGHT(8)  
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JC3, JC6, JI, JJ, JW, K, JTYPS, IM, JM
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZH2O, ZPDHNIS, ZPDH2O, ZPDUNIS,&
+          &ZPDUMG, ZPRHNIS, ZPRH2O, &
+          &ZPRUNIS, ZPRUMG, ZRTO1, ZRTO2, ZTDHNIS, &
+          &ZTDUNIS, ZTHNIS, &
+          &ZTUNIS, ZUMG, ZADJUS2, ZADJUS4, ZADJUS6
+
+
+!     ----------------------------------------------------------------
+
+!*        1.  CLEAR-SKY ABSORPTION COEFFICIENTS FOR N SPECTRAL INTERVALS
+!             --------------------------------------------------------
+
+!* spectrally independent
+
+ZTDHNIS = 0.450_JPRB
+ZTDUNIS = 0.375_JPRB
+ZTHNIS  = 296._JPRB
+ZTUNIS  = 296._JPRB
+ZPDHNIS = 0.90_JPRB
+ZPDUNIS = 0.75_JPRB
+ZPRHNIS = 100000._JPRB
+ZPRUNIS = 100000._JPRB
+
+!     ----------------------------------------------------------------
+
+!*        1.1  COEFFICIENTS FOR TWO SPECTRAL INTERVALS
+!              ---------------------------------------
+
+
+!* DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING
+!       H2O:  Pref=1000hPa, Tref=296K, Pdep=0.9
+!       UMG:  Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2)
+!       O3 :  unchanged in interval 1, from HITRAN 92 in interval 4
+
+ZADJUS2 = _ONE_
+
+!* 1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)
+
+ZSUN2(1) = 0.459760_JPRB
+
+ZD2(1,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD2(1, 1, :) = (/&
+ &0.184678379E+06_JPRB,&
+ &0.553080884E+05_JPRB,&
+ &0.248143712E+04_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD2(1, 2, :) = (/&
+ &0.715303869E+01_JPRB,&
+ &0.219386847E+03_JPRB,&
+ &0.830001089E+03_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD2(1, 3, :) = (/&
+ &0.925887084E-04_JPRB,&
+ &0.129353723E-01_JPRB,&
+ &0.800821928E+00_JPRB,&
+ &0.242715973E+02_JPRB,&
+ &0.878331486E+02_JPRB,&
+ &0.191559725E+02_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD2(1, 1, :) = (/&
+ &0.184678379E+06_JPRB,&
+ &0.555188347E+05_JPRB,&
+ &0.253257443E+04_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD2(1, 2, :) = (/&
+ &0.715303869E+01_JPRB,&
+ &0.219441875E+03_JPRB,&
+ &0.831119997E+03_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD2(1, 3, :) = (/&
+ &0.925887084E-04_JPRB,&
+ &0.131812683E-01_JPRB,&
+ &0.812706117E+00_JPRB,&
+ &0.249863591E+02_JPRB,&
+ &0.931071925E+02_JPRB,&
+ &0.252233437E+02_JPRB,&
+ &0.100000000E+01_JPRB/)
+
+ZRAY2(1,:)= (/&
+ &.428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ &.522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)
+
+ZSWCE2(1) = _ZERO_
+ZSWCP2(1) = _ZERO_
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is not sub-divided
+
+!     ----------------------------------------------------------------
+
+!* 0.68 - 4.00 Micron
+
+ZSUN2(2) = 0.540240_JPRB
+
+ZD2(2,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB/)
+
+ZAPAD2(2, 1, :) = (/&
+ &0.577160808E-06_JPRB,&
+ &0.681760991E-02_JPRB,&
+ &0.502416370E+01_JPRB,&
+ &0.209771270E+03_JPRB,&
+ &0.644493139E+03_JPRB,&
+ &0.120654163E+03_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD2(2, 2, :) = (/&
+ &0.422874202E-09_JPRB,&
+ &0.257499477E-05_JPRB,&
+ &0.349570458E-02_JPRB,&
+ &0.917758876E+00_JPRB,&
+ &0.327669989E+02_JPRB,&
+ &0.874155115E+02_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD2(2, 3, :) = (/&
+ &0.932012720E+02_JPRB,&
+ &0.437866983E+03_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD2(2, 1, :) = (/&
+ &0.577160808E-06_JPRB,&
+ &0.682595589E-02_JPRB,&
+ &0.508797283E+01_JPRB,&
+ &0.223901000E+03_JPRB,&
+ &0.770640908E+03_JPRB,&
+ &0.186812480E+03_JPRB,&
+ &0.100000000E+01_JPRB/)
+ZBPAD2(2, 2, :) = (/&
+ &0.422874202E-09_JPRB,&
+ &0.257567242E-05_JPRB,&
+ &0.349912408E-02_JPRB,&
+ &0.920770481E+00_JPRB,&
+ &0.330990960E+02_JPRB,&
+ &0.903249595E+02_JPRB,&
+ &0.100000000E+01_JPRB/)
+ZBPAD2(2, 3, :) = (/&
+ &0.932012720E+02_JPRB,&
+ &0.439078599E+03_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZRAY2(2,:)= (/&
+ &.697200E-02_JPRB, .173297E-01_JPRB,-.850903E-01_JPRB,&
+ &.248261E+00_JPRB,-.302031E+00_JPRB, .129662E+00_JPRB/)
+
+ZSWCE2(2) = _ZERO_
+ZSWCP2(2) = _ZERO_
+
+!=====================================================================
+
+!*        1.2  COEFFICIENTS FOR FOUR SPECTRAL INTERVALS
+!              ----------------------------------------
+
+
+!* DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING
+!       H2O:  Pref=1000hPa, Tref=296K, Pdep=0.9
+!       UMG:  Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2)
+!       O3 :  unchanged in interval 1, from HITRAN 92 in interval 4
+
+ZADJUS4 = _ONE_
+
+!* 1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)
+
+ZSUN4(1) = 0.459760_JPRB
+
+ZD4(1,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD4(1, 1, :) = (/&
+ &0.184678379E+06_JPRB,&
+ &0.553080884E+05_JPRB,&
+ &0.248143712E+04_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD4(1, 2, :) = (/&
+ &0.715303869E+01_JPRB,&
+ &0.219386847E+03_JPRB,&
+ &0.830001089E+03_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD4(1, 3, :) = (/&
+ &0.925887084E-04_JPRB,&
+ &0.129353723E-01_JPRB,&
+ &0.800821928E+00_JPRB,&
+ &0.242715973E+02_JPRB,&
+ &0.878331486E+02_JPRB,&
+ &0.191559725E+02_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD4(1, 1, :) = (/&
+ &0.184678379E+06_JPRB,&
+ &0.555188347E+05_JPRB,&
+ &0.253257443E+04_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD4(1, 2, :) = (/&
+ &0.715303869E+01_JPRB,&
+ &0.219441875E+03_JPRB,&
+ &0.831119997E+03_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD4(1, 3, :) = (/&
+ &0.925887084E-04_JPRB,&
+ &0.131812683E-01_JPRB,&
+ &0.812706117E+00_JPRB,&
+ &0.249863591E+02_JPRB,&
+ &0.931071925E+02_JPRB,&
+ &0.252233437E+02_JPRB,&
+ &0.100000000E+01_JPRB/)
+
+ZRAY4(1,:)= (/&
+ &.428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ &.522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)
+
+ZSWCE4(1) = _ZERO_
+ZSWCP4(1) = _ZERO_
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:
+
+!     ----------------------------------------------------------------
+
+!* 0.69 - 1.19 Micron
+
+ZSUN4(2) = 0.326158_JPRB
+
+ZD4(2,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD4(2, 1, :) = (/&
+ &0.690730834E-02_JPRB,&
+ &0.151704275E+01_JPRB,&
+ &0.751477543E+02_JPRB,&
+ &0.759770236E+03_JPRB,&
+ &0.109800326E+04_JPRB,&
+ &0.148407574E+03_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD4(2, 2, :) = (/&
+ &0.863790752E-03_JPRB,&
+ &0.448762291E+00_JPRB,&
+ &0.332530367E+02_JPRB,&
+ &0.190914146E+03_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD4(2, 3, :) = (/&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD4(2, 1, :) = (/&
+ &0.690730834E-02_JPRB,&
+ &0.151954406E+01_JPRB,&
+ &0.756512527E+02_JPRB,&
+ &0.779384997E+03_JPRB,&
+ &0.121113108E+04_JPRB,&
+ &0.207678436E+03_JPRB,&
+ &0.100000000E+01_JPRB/)
+ZBPAD4(2, 2, :) = (/&
+ &0.863790752E-03_JPRB,&
+ &0.448948107E+00_JPRB,&
+ &0.333186750E+02_JPRB,&
+ &0.192727216E+03_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZBPAD4(2, 3, :) = (/&
+ &1.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+ 
+DATA (ZRAY4(2,K),K=1,6) /&
+ &.164261E-01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/
+
+ZSWCE4(2) = _ZERO_
+ZSWCP4(2) = _ZERO_
+
+!     ----------------------------------------------------------------
+
+!* 1.19 - 2.38 Microns
+
+ZSUN4(3) = 0.180608_JPRB
+
+ZD4(3,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD4(3, 1, :) = (/&
+ &0.837531303E-05_JPRB,&
+ &0.173886341E-01_JPRB,&
+ &0.518852799E+01_JPRB,&
+ &0.159078416E+03_JPRB,&
+ &0.493273523E+03_JPRB,&
+ &0.102567293E+03_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD4(3, 2, :) = (/&
+ &0.657978575E-02_JPRB,&
+ &0.752617872E+00_JPRB,&
+ &0.158209734E+02_JPRB,&
+ &0.410274915E+02_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD4(3, 3, :) = (/&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD4(3, 1, :) = (/&
+ &0.837531303E-05_JPRB,&
+ &0.174882536E-01_JPRB,&
+ &0.534536580E+01_JPRB,&
+ &0.180351767E+03_JPRB,&
+ &0.673126838E+03_JPRB,&
+ &0.182718543E+03_JPRB,&
+ &0.100000000E+01_JPRB/)
+ZBPAD4(3, 2, :) = (/&
+ &0.657978575E-02_JPRB,&
+ &0.753752065E+00_JPRB,&
+ &0.159286262E+02_JPRB,&
+ &0.424278450E+02_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZBPAD4(3, 3, :) = (/&
+ &1.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZRAY4(3,:)= (/&
+ &.180438E-02_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE4(3) = _ZERO_
+ZSWCP4(3) = _ZERO_
+
+!     ----------------------------------------------------------------
+
+!* 2.38 - 4.00 Microns
+
+ZSUN4(4) = 0.033474_JPRB
+
+ZD4(4,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD4(4, 1, :) = (/&
+ &0.122118185E-06_JPRB,&
+ &0.154042531E-02_JPRB,&
+ &0.141152193E+01_JPRB,&
+ &0.685368761E+02_JPRB,&
+ &0.216522281E+03_JPRB,&
+ &0.421228746E+02_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD4(4, 2, :) = (/&
+ &0.364233560E-10_JPRB,&
+ &0.217340835E-06_JPRB,&
+ &0.292623386E-03_JPRB,&
+ &0.797100631E-01_JPRB,&
+ &0.319103672E+01_JPRB,&
+ &0.110530283E+02_JPRB,&
+ &0.000000000E+00_JPRB/)
+ZAPAD4(4, 3, :) = (/&
+ &0.263068898E+02_JPRB,&
+ &0.146425875E+03_JPRB,&
+ &0.860137809E+02_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD4(4, 1, :) = (/&
+ &0.122118185E-06_JPRB,&
+ &0.156287582E-02_JPRB,&
+ &0.156994562E+01_JPRB,&
+ &0.102304103E+03_JPRB,&
+ &0.475479878E+03_JPRB,&
+ &0.188714799E+03_JPRB,&
+ &0.100000000E+01_JPRB/)
+ZBPAD4(4, 2, :) = (/&
+ &0.364233560E-10_JPRB,&
+ &0.218265806E-06_JPRB,&
+ &0.297085917E-03_JPRB,&
+ &0.834253403E-01_JPRB,&
+ &0.358290002E+01_JPRB,&
+ &0.139206164E+02_JPRB,&
+ &0.100000000E+01_JPRB/)
+ZBPAD4(4, 3, :) = (/&
+ &0.263068898E+02_JPRB,&
+ &0.152569217E+03_JPRB,&
+ &0.976791971E+02_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZRAY4(4,:)= (/&
+ &.136020E-03_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE4(4) = _ZERO_
+ZSWCP4(4) = _ZERO_
+
+!=====================================================================
+
+!*        1.3  COEFFICIENTS FOR SIX SPECTRAL INTERVALS
+!              ---------------------------------------
+
+
+!* DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING
+!       H2O:  Pref=1000hPa, Tref=296K, Pdep=0.9
+!       UMG:  Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2)
+!       O3 :  unchanged in interval 1, from HITRAN 92 in interval 4
+
+ZADJUS6 = 0.9905709_JPRB
+
+!* 1st spectral interval: U.V.  (0.18 - 0.25 Micron)
+
+ZSUN6(1) = 0.0019124_JPRB
+
+ZD6(1,:)= (/ 1.000000000_JPRB, 1.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(1, 1, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD6(1, 2, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD6(1, 3, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ 
+ZBPAD6(1, 1, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD6(1, 2, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD6(1, 3, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ 
+ZRAY6(1,:)= (/&
+ &.43959002E+01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE6(1) = _ZERO_
+ZSWCP6(1) = _ZERO_
+
+NEXPO3(1) = 6
+REXPO3(1, 1, :) =(/&
+  &0.000334E+00_JPRB, 0.011131E+00_JPRB, 0.000064E+00_JPRB,&
+  &0.218900E+00_JPRB, 0.134118E+00_JPRB, 0.635453E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+REXPO3(1, 2, :) =(/&
+  &0.467737E+03_JPRB, 0.389056E+02_JPRB, 0.223872E+04_JPRB,&
+  &0.102346E+02_JPRB, 0.794561E+01_JPRB, 0.138054E+02_JPRB,&
+  &0.000000E+00_JPRB /)
+  
+
+
+!* 2nd spectral interval: U.V.  (0.25 - 0.44 Micron)
+
+ZSUN6(2) = 0.1353560_JPRB
+
+ZD6(2,:)= (/ 1.000000000_JPRB, 1.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(2, 1, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD6(2, 2, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZAPAD6(2, 3, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ 
+ZBPAD6(2, 1, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD6(2, 2, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ZBPAD6(2, 3, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ 
+ZRAY6(2,:)= (/&
+ &.55503070E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE6(2) = _ZERO_
+ZSWCP6(2) = _ZERO_
+
+NEXPO3(2) = 7
+REXPO3(2, 1, :) =(/&
+  &0.043801E+00_JPRB, 0.078893E+00_JPRB, 0.036839E+00_JPRB,&
+  &0.022503E+00_JPRB, 0.042333E+00_JPRB, 0.037870E+00_JPRB,&
+  &0.737762E+00_JPRB /)
+REXPO3(2, 2, :) =(/&
+  &0.234249E+01_JPRB, 0.125170E+00_JPRB, 0.549527E+02_JPRB,&
+  &0.257041E+03_JPRB, 0.476838E+00_JPRB, 0.911993E+01_JPRB,&
+  &0.000000E+00_JPRB /)
+
+
+!* 3rd spectral interval: Visible  (0.44 - 0.69 Micron)
+
+ZSUN6(3) = 0.3213000_JPRB
+
+ZD6(3,:)= (/ 0.800000000_JPRB, 1.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(3, 1, :) = (/&
+ &0.3682644E+02_JPRB,&
+ &0.6491415E+03_JPRB,&
+ &0.8720916E+02_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB/)
+ZAPAD6(3, 2, :) = (/&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB/)
+ZAPAD6(3, 3, :) = (/&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ 
+ZBPAD6(3, 1, :) = (/&
+ &0.3682644E+02_JPRB,&
+ &0.6495968E+03_JPRB,&
+ &0.9637657E+02_JPRB,&
+ &0.1000000E+01_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB/)
+ZBPAD6(3, 2, :) = (/&
+ &0.1000000E+01_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB,&
+ &0.0000000E-00_JPRB/)
+ZBPAD6(3, 3, :) = (/&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB,&
+ &0.000000000E-00_JPRB/)
+ 
+ZRAY6(3,:)= (/&
+ &.10528199E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE6(3) = _ZERO_
+ZSWCP6(3) = _ZERO_
+
+NEXPO3(3) = 6
+REXPO3(3, 1, :) =(/&
+  &0.063442E+00_JPRB, 0.058550E+00_JPRB, 0.237534E+00_JPRB,&
+  &0.412292E+00_JPRB, 0.126141E+00_JPRB, 0.102041E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+REXPO3(3, 2, :) =(/&
+  &0.125170E+00_JPRB, 0.119209E-01_JPRB, 0.119209E+00_JPRB,&
+  &0.417233E-01_JPRB, 0.894070E-01_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:
+
+!     ----------------------------------------------------------------
+
+!* 0.69 - 1.19 Micron
+
+!* UMG is O2 only
+
+ZSUN6(4) = 0.3211833_JPRB
+
+ZD6(4,:)= (/ 0.000000000_JPRB, 0.800000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD6(4, 1, :) = (/&
+ &0.9969941E+02_JPRB,&
+ &0.7496307E+04_JPRB,&
+ &0.7003009E+05_JPRB,&
+ &0.9381446E+05_JPRB,&
+ &0.1827735E+05_JPRB,&
+ &0.3459400E+03_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZAPAD6(4, 2, :) = (/&
+ &0.1567941E+10_JPRB,&
+ &0.3094160E+09_JPRB,&
+ &0.3650192E+07_JPRB,&
+ &0.5026130E+04_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZAPAD6(4, 3, :) = (/&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD6(4, 1, :) = (/&
+ &0.9969941E+02_JPRB,&
+ &0.7517916E+04_JPRB,&
+ &0.7149485E+05_JPRB,&
+ &0.1020564E+06_JPRB,&
+ &0.2337706E+05_JPRB,&
+ &0.6874490E+03_JPRB,&
+ &0.1000000E+01_JPRB/)
+ZBPAD6(4, 2, :) = (/&
+ &0.1567941E+10_JPRB,&
+ &0.3332380E+09_JPRB,&
+ &0.4940093E+07_JPRB,&
+ &0.1026382E+05_JPRB,&
+ &0.1000000E+01_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZBPAD6(4, 3, :) = (/&
+ &1.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+ 
+DATA (ZRAY6(4,K),K=1,6) /&
+ &.16436996E-01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/
+
+ZSWCE6(4) = _ZERO_
+ZSWCP6(4) = _ZERO_
+
+NEXPO3(4) = 4
+REXPO3(4, 1, :) =(/&
+  &0.000074E+00_JPRB, 0.320194E+00_JPRB, 0.082915E+00_JPRB,&
+  &0.596816E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+REXPO3(4, 2, :) =(/&
+  &0.232458E+00_JPRB, 0.119209E-01_JPRB, 0.178814E-01_JPRB,&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+
+
+!     ----------------------------------------------------------------
+
+!* 1.19 - 2.38 Microns
+
+!* UMG is CO2 only
+
+ZSUN6(5) = 0.1778533_JPRB
+
+ZD6(5,:)= (/ 0.000000000_JPRB, 0.800000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD6(5, 1, :) = (/&
+ &0.3325841E-03_JPRB,&
+ &0.6194496E+00_JPRB,&
+ &0.1497138E+03_JPRB,&
+ &0.2314864E+04_JPRB,&
+ &0.2380109E+04_JPRB,&
+ &0.9553823E+02_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZAPAD6(5, 2, :) = (/&
+ &0.2419549E-02_JPRB,&
+ &0.1504652E+01_JPRB,&
+ &0.1339335E+02_JPRB,&
+ &0.8932533E+01_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZAPAD6(5, 3, :) = (/&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD6(5, 1, :) = (/&
+ &0.3325841E-03_JPRB,&
+ &0.6231947E+00_JPRB,&
+ &0.1553098E+03_JPRB,&
+ &0.2822458E+04_JPRB,&
+ &0.3885194E+04_JPRB,&
+ &0.2700235E+03_JPRB,&
+ &0.1000000E+01_JPRB/)
+ZBPAD6(5, 2, :) = (/&
+ &0.2419549E-02_JPRB,&
+ &0.1507850E+01_JPRB,&
+ &0.1489144E+03_JPRB,&
+ &0.1425322E+02_JPRB,&
+ &0.1000000E+01_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZBPAD6(5, 3, :) = (/&
+ &1.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZRAY6(5,:)= (/&
+ &.18073079E-02_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE6(5) = _ZERO_
+ZSWCP6(5) = _ZERO_
+
+NEXPO3(5) = 0
+REXPO3(5, 1, :) =(/&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+REXPO3(5, 2, :) =(/&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+
+!     ----------------------------------------------------------------
+
+!* 2.38 - 4.00 Microns
+
+ZSUN6(6) = 0.0329659_JPRB
+
+ZD6(6,:)= (/ 0.000000000_JPRB, 0.600000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(6, 1, :) = (/&
+ &0.2122889E-06_JPRB,&
+ &0.9030576E-03_JPRB,&
+ &0.2431282E+00_JPRB,&
+ &0.4901345E+01_JPRB,&
+ &0.3996347E+01_JPRB,&
+ &0.3910227E+01_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZAPAD6(6, 2, :) = (/&
+ &0.2051629E-02_JPRB,&
+ &0.8053325E+00_JPRB,&
+ &0.1826847E+02_JPRB,&
+ &0.1991453E+02_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZAPAD6(6, 3, :) = (/&
+ &0.263068898E+02_JPRB,&
+ &0.146425875E+03_JPRB,&
+ &0.860137809E+02_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZBPAD6(6, 1, :) = (/&
+ &0.2122889E-06_JPRB,&
+ &0.9379083E-03_JPRB,&
+ &0.2957335E+00_JPRB,&
+ &0.8747190E+01_JPRB,&
+ &0.1015794E+02_JPRB,&
+ &0.1361277E+02_JPRB,&
+ &0.1000000E+01_JPRB/)
+ZBPAD6(6, 2, :) = (/&
+ &0.2051629E-02_JPRB,&
+ &0.9455932E+00_JPRB,&
+ &0.3030076E+02_JPRB,&
+ &0.4307387E+02_JPRB,&
+ &0.1000000E+01_JPRB,&
+ &0.0000000E+00_JPRB,&
+ &0.0000000E+00_JPRB/)
+ZBPAD6(6, 3, :) = (/&
+ &0.263068898E+02_JPRB,&
+ &0.152569217E+03_JPRB,&
+ &0.976791971E+02_JPRB,&
+ &0.100000000E+01_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB,&
+ &0.000000000E+00_JPRB/)
+
+ZRAY6(6,:)= (/&
+ &.13618247E-03_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ &.000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)
+
+ZSWCE6(6) = _ZERO_
+ZSWCP6(6) = _ZERO_
+
+NEXPO3(6) = 0
+REXPO3(6, 1, :) =(/&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+REXPO3(6, 2, :) =(/&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+  &0.000000E+00_JPRB /)
+
+!=====================================================================
+!     ----------------------------------------------------------------
+
+!*    2.3   WEIGHTS FOR SPECTRAL SURFACE ALBEDO
+!           Water
+!           Sea-Ice (Ebert, Curry, 1993)
+!           Wet skin
+!           Low vegetation (snow free) (BR, 1982)
+!           Snow on low vegetation (Warren, 1982)
+!           High vegetation (snow free) (BR, 1982)
+!           Snow under high vegetation  (Warren, 1982)
+!           Bare soil (Briegleb & Ramanathan, 1982)
+
+NTYPS = 8
+ZWEIGHT2(:,1)= (/ 1._JPRB, 1._JPRB /)
+ZWEIGHT2(:,2)= (/ 1._JPRB, 1._JPRB /)
+ZWEIGHT2(:,3)= (/ 1._JPRB, 1._JPRB /)
+ZWEIGHT2(:,4)= (/ 1._JPRB, 3._JPRB /)
+ZWEIGHT2(:,5)= (/ 0.920_JPRB, 0.537_JPRB /)
+ZWEIGHT2(:,6)= (/ 1._JPRB, 3._JPRB /)
+ZWEIGHT2(:,7)= (/ 0.860_JPRB, 0.432_JPRB /)
+ZWEIGHT2(:,8)= (/ 1._JPRB, 2._JPRB /)
+
+ZWEIGHT4(:,1)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB /)
+ZWEIGHT4(:,2)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB /)
+ZWEIGHT4(:,3)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB /)
+ZWEIGHT4(:,4)= (/ 1._JPRB, 4._JPRB, 2._JPRB, 1._JPRB /)
+ZWEIGHT4(:,5)= (/ 0.920_JPRB, 0.798_JPRB , 0.159_JPRB, 0.010_JPRB /)
+ZWEIGHT4(:,6)= (/ 1._JPRB, 4._JPRB, 2._JPRB, 1._JPRB /)
+ZWEIGHT4(:,7)= (/ 0.860_JPRB, 0.664_JPRB , 0.092_JPRB, 0.010_JPRB /)
+ZWEIGHT4(:,8)= (/ 1._JPRB, 2._JPRB, 2._JPRB, 1._JPRB /)
+
+ZWEIGHT6(:,1)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB /)
+ZWEIGHT6(:,2)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB /)
+ZWEIGHT6(:,3)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB, 1._JPRB /)
+ZWEIGHT6(:,4)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 4._JPRB, 2._JPRB, 1._JPRB /)
+ZWEIGHT6(:,5)= (/ 0.920_JPRB, 0.920_JPRB, 0.920_JPRB, 0.798_JPRB , 0.159_JPRB, 0.010_JPRB /)
+ZWEIGHT6(:,6)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 4._JPRB, 2._JPRB, 1._JPRB /)
+ZWEIGHT6(:,7)= (/ 0.860_JPRB, 0.860_JPRB, 0.860_JPRB, 0.664_JPRB , 0.092_JPRB, 0.010_JPRB /)
+ZWEIGHT6(:,8)= (/ 1._JPRB, 1._JPRB, 1._JPRB, 2._JPRB, 2._JPRB, 1._JPRB /)
+
+!*  For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2.
+!   We take dry snow albedo as the representative value for non-summer
+!   months, and bare sea-ice as the representative value for summer
+!   months. The values for Antarctic are shifted six-months.
+
+!- 2-spectral intervals
+
+!*  Sea ice surf. albedo for 0.25-0.69 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE2(1:12,1) = (/0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB,&
+                   &0.975_JPRB,0.876_JPRB,0.778_JPRB,0.778_JPRB,&
+                   &0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB/)
+!*  Sea ice surf. albedo for 0.69-4.00 microns (snow covered; Ebert and Curry, 1993)
+!ZALBICE2(1:12,2) = (/0.664_JPRB,0.664_JPRB,0.664_JPRB,0.664_JPRB,&
+!                    &0.664_JPRB,0.476_JPRB,0.288_JPRB,0.288_JPRB,&
+!                    &0.664_JPRB,0.664_JPRB,0.664_JPRB,0.664_JPRB/)
+ZALBICE2(1:12,2) = (/0.587_JPRB,0.587_JPRB,0.587_JPRB,0.587_JPRB,&
+                    &0.587_JPRB,0.438_JPRB,0.288_JPRB,0.288_JPRB,&
+                    &0.587_JPRB,0.587_JPRB,0.587_JPRB,0.587_JPRB/)
+                      
+!- 4-spectral intervals
+
+!*  Sea ice surf. albedo for 0.25-0.69 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE4(1:12,1) = (/0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB,&
+                    &0.975_JPRB,0.876_JPRB,0.778_JPRB,0.778_JPRB,&
+                    &0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB/)
+!*  Sea ice surf. albedo for 0.69-1.19 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE4(1:12,2) = (/0.832_JPRB,0.832_JPRB,0.832_JPRB,0.832_JPRB,&
+                    &0.832_JPRB,0.638_JPRB,0.443_JPRB,0.443_JPRB,&
+                    &0.832_JPRB,0.832_JPRB,0.832_JPRB,0.832_JPRB/)
+!*  Sea ice surf. albedo for 1.19-2.38 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE4(1:12,3) = (/0.250_JPRB,0.250_JPRB,0.250_JPRB,0.250_JPRB,&
+                    &0.250_JPRB,0.153_JPRB,0.055_JPRB,0.055_JPRB,&
+                    &0.250_JPRB,0.250_JPRB,0.250_JPRB,0.250_JPRB/)
+!*  Sea ice surf. albedo for 2.38-4.00 microns (snow covered; Ebert and Curry, 1993)
+ZALBICE4(1:12,4) = (/0.025_JPRB,0.025_JPRB,0.025_JPRB,0.025_JPRB,&
+                    &0.025_JPRB,0.030_JPRB,0.036_JPRB,0.036_JPRB,&
+                    &0.025_JPRB,0.025_JPRB,0.025_JPRB,0.025_JPRB/)
+                      
+!- 6-spectral intervals
+
+!*  Sea ice surf. albedo for 0.185-0.25 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE6(1:12,1) = (/0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB,&
+                    &0.975_JPRB,0.876_JPRB,0.778_JPRB,0.778_JPRB,&
+                    &0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB/)
+!*  Sea ice surf. albedo for 0.25-0.44 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE6(1:12,2) = (/0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB,&
+                    &0.975_JPRB,0.876_JPRB,0.778_JPRB,0.778_JPRB,&
+                    &0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB/)
+!*  Sea ice surf. albedo for 0.44-0.69 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE6(1:12,3) = (/0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB,&
+                    &0.975_JPRB,0.876_JPRB,0.778_JPRB,0.778_JPRB,&
+                    &0.975_JPRB,0.975_JPRB,0.975_JPRB,0.975_JPRB/)
+!*  Sea ice surf. albedo for 0.69-1.19 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE6(1:12,4) = (/0.832_JPRB,0.832_JPRB,0.832_JPRB,0.832_JPRB,&
+                    &0.832_JPRB,0.638_JPRB,0.443_JPRB,0.443_JPRB,&
+                    &0.832_JPRB,0.832_JPRB,0.832_JPRB,0.832_JPRB/)
+!*  Sea ice surf. albedo for 1.19-2.38 micron (snow covered; Ebert and Curry, 1993)
+ZALBICE6(1:12,5) = (/0.250_JPRB,0.250_JPRB,0.250_JPRB,0.250_JPRB,&
+                    &0.250_JPRB,0.153_JPRB,0.055_JPRB,0.055_JPRB,&
+                    &0.250_JPRB,0.250_JPRB,0.250_JPRB,0.250_JPRB/)
+!*  Sea ice surf. albedo for 2.38-4.00 microns (snow covered; Ebert and Curry, 1993)
+ZALBICE6(1:12,6) = (/0.025_JPRB,0.025_JPRB,0.025_JPRB,0.025_JPRB,&
+                    &0.025_JPRB,0.030_JPRB,0.036_JPRB,0.036_JPRB,&
+                    &0.025_JPRB,0.025_JPRB,0.025_JPRB,0.025_JPRB/)
+                                            
+!     ----------------------------------------------------------------
+
+!*    2.4   OPTICAL PARAMETERS FOR RAIN DROPS
+!           Savijarvi et al. (1996)
+
+ZRTO1 =  0.003_JPRB
+ZRTO2 = -0.22_JPRB
+! CAUTION JUST TEMPORARY PARAMETERS      
+ZROMA2(1:2)= (/ 0.00008_JPRB , 0.264_JPRB  /)
+ZROMB2(1:2)= (/ 0.23_JPRB    , 0.09_JPRB   /)
+ZRASY2(1:2)= (/ 0.88_JPRB    , 0.94_JPRB   /)
+
+ZRA2(1:2)= (/ 1.5_JPRB     , 1.5_JPRB    /)
+ZRB2(1:2)= (/ 0.50_JPRB    , 1.13_JPRB   /)
+ZRC2(1:2)= (/ 5.58E-7_JPRB , 8.55E-4_JPRB/)
+ZRD2(1:2)= (/ 1.25E-7_JPRB , 1.28E-3_JPRB/)
+ZRE2(1:2)= (/ 0.841_JPRB   , 0.786_JPRB  /)
+ZRF2(1:2)= (/ 2.08E-3_JPRB , 5.32E-3_JPRB/)
+
+ZROMA4(1:4)= (/ 0.00008_JPRB , 0.0105_JPRB , 0.264_JPRB  , 0.465_JPRB   /)
+ZROMB4(1:4)= (/ 0.23_JPRB    , 0.22_JPRB   , 0.09_JPRB   , 0.001_JPRB   /)
+ZRASY4(1:4)= (/ 0.88_JPRB    , 0.89_JPRB   , 0.94_JPRB   , 0.97_JPRB    /)
+
+ZRA4(1:4)= (/ 1.5_JPRB     , 1.5_JPRB    , 1.5_JPRB    , 1.5_JPRB     /)
+ZRB4(1:4)= (/ 0.50_JPRB    , 0.78_JPRB   , 1.13_JPRB   , 2.00_JPRB    /)
+ZRC4(1:4)= (/ 5.58E-7_JPRB , 2.18E-5_JPRB, 8.55E-4_JPRB, 1.94E-1_JPRB /)
+ZRD4(1:4)= (/ 1.25E-7_JPRB , 2.25E-5_JPRB, 1.28E-3_JPRB, 8.04E-3_JPRB /)
+ZRE4(1:4)= (/ 0.841_JPRB   , 0.821_JPRB  , 0.786_JPRB  , 0.820_JPRB   /)
+ZRF4(1:4)= (/ 2.08E-3_JPRB , 3.06E-3_JPRB, 5.32E-3_JPRB, 5.59E-3_JPRB /)
+
+ZROMA6(1:6)= (/ 0.00008_JPRB , 0.00008_JPRB , 0.00008_JPRB , 0.0105_JPRB , 0.264_JPRB  , 0.465_JPRB   /)
+ZROMB6(1:6)= (/ 0.23_JPRB    , 0.23_JPRB    , 0.23_JPRB    , 0.22_JPRB   , 0.09_JPRB   , 0.001_JPRB   /)
+ZRASY6(1:6)= (/ 0.88_JPRB    , 0.88_JPRB    , 0.88_JPRB    , 0.89_JPRB   , 0.94_JPRB   , 0.97_JPRB    /)
+
+ZRA6(1:6)= (/ 1.5_JPRB     , 1.5_JPRB     , 1.5_JPRB     , 1.5_JPRB    , 1.5_JPRB    , 1.5_JPRB     /)
+ZRB6(1:6)= (/ 0.50_JPRB    , 0.50_JPRB    , 0.50_JPRB    , 0.78_JPRB   , 1.13_JPRB   , 2.00_JPRB    /)
+ZRC6(1:6)= (/ 5.58E-7_JPRB , 5.58E-7_JPRB , 5.58E-7_JPRB , 2.18E-5_JPRB, 8.55E-4_JPRB, 1.94E-1_JPRB /)
+ZRD6(1:6)= (/ 1.25E-7_JPRB , 1.25E-7_JPRB , 1.25E-7_JPRB , 2.25E-5_JPRB, 1.28E-3_JPRB, 8.04E-3_JPRB /)
+ZRE6(1:6)= (/ 0.841_JPRB   , 0.841_JPRB   , 0.841_JPRB   , 0.821_JPRB  , 0.786_JPRB  , 0.820_JPRB   /)
+ZRF6(1:6)= (/ 2.08E-3_JPRB , 2.08E-3_JPRB , 2.08E-3_JPRB , 3.06E-3_JPRB, 5.32E-3_JPRB, 5.59E-3_JPRB /)
+
+
+!=====================================================================
+
+!*       2.    SET VALUES.
+!              -----------
+
+
+IF (LONEWSW) THEN
+  ZPDH2O = ZPDHNIS
+  ZPDUMG = ZPDUNIS
+  ZPRH2O = ZPRHNIS
+  ZPRUMG = ZPRUNIS
+  RTDH2O = ZTDHNIS
+  RTDUMG = ZTDUNIS
+  RTH2O  = ZTHNIS
+  RTUMG  = ZTUNIS
+ENDIF
+
+RPDH1=ZPDH2O+_ONE_
+RPDU1=ZPDUMG+_ONE_
+ZH2O=_ONE_/( 10._JPRB* RG * RPDH1 )
+ZUMG=_ONE_/( 10._JPRB* RG * RPDU1 )
+RPNU = ZUMG/(ZPRUMG**ZPDUMG)
+RPNH = ZH2O/(ZPRH2O**ZPDH2O)
+
+DO JTYPS=1,NTYPS
+  ZTWEIGHT(JTYPS)=_ZERO_
+END DO
+  
+DO JW=1,NTSW
+  RSUN(JW)=_ZERO_
+  RSWCE(JW)=_ZERO_
+  RSWCP(JW)=_ZERO_
+  
+  DO JTYPS=1,NTYPS
+    RWEIGHT(JW,JTYPS)=_ZERO_
+  END DO
+  
+  DO JC3=1,3
+    D(JW,JC3)=_ZERO_
+  ENDDO
+  DO JC6=1,6
+    RRAY(JW,JC6)=_ZERO_
+  ENDDO
+  DO JI=1,3
+    DO JJ=1,7
+      APAD(JW,JI,JJ)=_ZERO_
+      BPAD(JW,JI,JJ)=_ZERO_
+    ENDDO
+  ENDDO
+ENDDO
+
+IF (KSW == 2) THEN
+  RADJUST=ZADJUS2
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN2(JW)
+
+    RSWCE(JW)=ZSWCE2(JW)
+    RSWCP(JW)=ZSWCP2(JW)
+
+    DO JTYPS=1,NTYPS
+      ZTWEIGHT(JTYPS)=ZTWEIGHT(JTYPS)+ZWEIGHT2(JW,JTYPS)*ZSUN2(JW)
+    END DO
+
+    RROMA(JW)=ZROMA2(JW)
+    RROMB(JW)=ZROMB2(JW)
+    RRASY(JW)=ZRASY2(JW)
+    RHSRA(JW)=ZRA2(JW)
+    RHSRB(JW)=ZRB2(JW)
+    RHSRC(JW)=ZRC2(JW)
+    RHSRD(JW)=ZRD2(JW)
+    RHSRE(JW)=ZRE2(JW)
+    RHSRF(JW)=ZRF2(JW)
+
+    DO JC3=1,3
+      D(JW,JC3)=ZD2(JW,JC3)
+    ENDDO
+    DO JC6=1,6
+      RRAY(JW,JC6)=ZRAY2(JW,JC6)
+    ENDDO
+    DO JI=1,3
+      DO JJ=1,7
+        APAD(JW,JI,JJ)=ZAPAD2(JW,JI,JJ)
+        BPAD(JW,JI,JJ)=ZBPAD2(JW,JI,JJ)
+      ENDDO
+    ENDDO
+  ENDDO
+  
+  DO JW=1,KSW
+    DO JTYPS=1,NTYPS
+      RWEIGHT(JW,JTYPS)=ZWEIGHT2(JW,JTYPS)/ZTWEIGHT(JTYPS)
+    END DO
+  
+    DO JM=1,12
+      IM=MOD(JM+5,12)+1
+      RALBICE_AR(IM,JW)=ZALBICE2(IM,JW)
+      RALBICE_AN(JM,JW)=RALBICE_AR(IM,JW)
+    END DO  
+  END DO    
+
+ELSEIF (KSW == 4) THEN
+  RADJUST=ZADJUS4
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN4(JW)
+
+    RSWCE(JW)=ZSWCE4(JW)
+    RSWCP(JW)=ZSWCP4(JW)
+
+    DO JTYPS=1,NTYPS
+      ZTWEIGHT(JTYPS)=ZTWEIGHT(JTYPS)+ZWEIGHT4(JW,JTYPS)*ZSUN4(JW)
+    END DO
+
+    RROMA(JW)=ZROMA4(JW)
+    RROMB(JW)=ZROMB4(JW)
+    RRASY(JW)=ZRASY4(JW)
+    RHSRA(JW)=ZRA4(JW)
+    RHSRB(JW)=ZRB4(JW)
+    RHSRC(JW)=ZRC4(JW)
+    RHSRD(JW)=ZRD4(JW)
+    RHSRE(JW)=ZRE4(JW)
+    RHSRF(JW)=ZRF4(JW)
+
+    DO JC3=1,3
+      D(JW,JC3)=ZD4(JW,JC3)
+    ENDDO
+    DO JC6=1,6
+      RRAY(JW,JC6)=ZRAY4(JW,JC6)
+    ENDDO
+    DO JI=1,3
+      DO JJ=1,7
+        APAD(JW,JI,JJ)=ZAPAD4(JW,JI,JJ)
+        BPAD(JW,JI,JJ)=ZBPAD4(JW,JI,JJ)
+      ENDDO
+    ENDDO
+  ENDDO
+  
+  DO JW=1,KSW
+    DO JTYPS=1,NTYPS
+      RWEIGHT(JW,JTYPS)=ZWEIGHT4(JW,JTYPS)/ZTWEIGHT(JTYPS)
+    END DO
+    
+    DO JM=1,12
+      IM=MOD(JM+5,12)+1
+      RALBICE_AR(IM,JW)=ZALBICE4(IM,JW)
+      RALBICE_AN(JM,JW)=RALBICE_AR(IM,JW)
+    END DO  
+  END DO    
+  
+ELSEIF (KSW == 6) THEN
+  RADJUST=ZADJUS6
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN6(JW)
+
+    RSWCE(JW)=ZSWCE6(JW)
+    RSWCP(JW)=ZSWCP6(JW)
+
+    DO JTYPS=1,NTYPS
+      ZTWEIGHT(JTYPS)=ZTWEIGHT(JTYPS)+ZWEIGHT6(JW,JTYPS)*ZSUN6(JW)
+    END DO
+
+    RROMA(JW)=ZROMA6(JW)
+    RROMB(JW)=ZROMB6(JW)
+    RRASY(JW)=ZRASY6(JW)
+    RHSRA(JW)=ZRA6(JW)
+    RHSRB(JW)=ZRB6(JW)
+    RHSRC(JW)=ZRC6(JW)
+    RHSRD(JW)=ZRD6(JW)
+    RHSRE(JW)=ZRE6(JW)
+    RHSRF(JW)=ZRF6(JW)
+
+    DO JC3=1,3
+      D(JW,JC3)=ZD6(JW,JC3)
+    ENDDO
+    DO JC6=1,6
+      RRAY(JW,JC6)=ZRAY6(JW,JC6)
+    ENDDO
+    DO JI=1,3
+      DO JJ=1,7
+        APAD(JW,JI,JJ)=ZAPAD6(JW,JI,JJ)
+        BPAD(JW,JI,JJ)=ZBPAD6(JW,JI,JJ)
+      ENDDO
+    ENDDO
+  ENDDO
+  
+  DO JW=1,KSW
+    DO JTYPS=1,NTYPS
+      RWEIGHT(JW,JTYPS)=ZWEIGHT6(JW,JTYPS)/ZTWEIGHT(JTYPS)
+    END DO
+    
+    DO JM=1,12
+      IM=MOD(JM+5,12)+1
+      RALBICE_AR(IM,JW)=ZALBICE6(IM,JW)
+      RALBICE_AN(JM,JW)=RALBICE_AR(IM,JW)
+    END DO  
+  END DO    
+  
+ELSE
+!  CALL ABOR1('SUSWN: WRONG NUMBER OF SW INTERVALS')
+  STOP 'SUSWN: WRONG NUMBER OF SW INTERVALS'
+ENDIF
+
+!     ----------------------------------------------------------------
+
+!*       7.    PRINT VALUES.
+!              ------------
+
+
+!     PRINT 9700,RPDH1,RPDU1,RPNU,RPNH
+!9700 FORMAT(1X,'RPDH1,RPDU1,RPNU,RPNH ',4F10.5)      
+!     DO JW=1,KSW      
+!       PRINT *,' SW INTERVAL ',JW
+!       PRINT 9701,JW,RSUN(JW),RSWCE(JW),RSWCP(JW)
+!9701   FORMAT(1X,I3,F10.7,2F10.5)
+!       PRINT 9702,JW,(D(JW,JC3),JC3=1,3)
+!9702   FORMAT(1X,I3,3F10.5)
+!       PRINT 9703,JW,(RRAY(JW,JC6),JC6=1,6)
+!9703   FORMAT(1X,I3,6E15.8)
+!       PRINT 9704,JW,(JABS,(APAD(JW,JABS,JJ),JJ=1,7),JABS=1,3)
+!9704   FORMAT(1X,I3,(I3,7E15.8))
+!       PRINT 9706,JW,RROMA(JW),RROMB(JW),RRASY(JW),RHSRTA,RHSRTB
+!9706   FORMAT(1X,I3,' Rain Optics from Rain Rate: ',F8.5,F6.3,3F6.3)
+!       PRINT 9707,JW,RHSRA(JW),RHSRB(JW),RHSRC(JW),RHSRD(JW)
+!    &   ,RHSRE(JW),RHSRF(JW)  
+!9707   FORMAT(1X,I3,' Rain Optics as function of Reff: ',6E11.4)
+!     ENDDO
+
+!     ----------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SUSWN
Index: LMDZ5/branches/testing/libf/phymar/sw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sw.F90	(revision 2160)
@@ -0,0 +1,291 @@
+SUBROUTINE SW &
+ &( KIDIA, KFDIA , KLON  , KLEV , KAER &
+ &, PSCT , PCARDI, PPSOL , PALBD, PALBP , PWV, PQS &
+ &, PRMU0, PCG   , PCLDSW, PDP  , POMEGA, POZ, PPMB &
+ &, PTAU , PTAVE , PAER &
+ &, PHEAT, PFDOWN, PFUP  &
+ &, PCEAT, PCDOWN, PCUP  &
+ &, PFDNN, PFDNV , PFUPN, PFUPV &
+ &, PCDNN, PCDNV , PCUPN, PCUPV &
+ &, PSUDU, PUVDF , PPARF &
+ &)
+
+!**** *SW* - COMPUTES THE SHORTWAVE RADIATION FLUXES.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+!     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SW* IS CALLED FROM *RADLSW*
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES ABSORBER AMOUNTS                 (SWU)
+!          2. COMPUTES FLUXES IN U.V./VISIBLE  SPECTRAL INTERVAL (SW1S)
+!          3. COMPUTES FLUXES IN NEAR-INFRARED SPECTRAL INTERVAL (SWNI)
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWU*, *SW1S*, *SWNI*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        95-01-01   J.-J. MORCRETTE  Direct/Diffuse Albedo
+!        95-12-07   J.-J. MORCRETTE  Near-Infrared in nsw-1 Intervals
+!        990128     JJMorcrette      sunshine duration
+!        99-05-25   JJMorcrette      Revised aerosols
+!        00-12-18   JJMorcrette      6 spectral intervals
+
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOERAD   , ONLY : NSW
+USE YOERDU   , ONLY : RCDAY
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KAER
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!     DUMMY REAL SCALARS
+REAL_B :: PCARDI
+REAL_B :: PSCT
+
+
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PPSOL(KLON), PAER(KLON,6,KLEV),PRMU0(KLON)&
+  &,  PWV(KLON,KLEV),PQS(KLON,KLEV)
+
+REAL_B :: PALBD(KLON,NSW)      , PALBP(KLON,NSW)&
+  &,  PCG(KLON,NSW,KLEV)   , PCLDSW(KLON,KLEV)&
+  &,  PDP(KLON,KLEV)  &
+  &,  POMEGA(KLON,NSW,KLEV), POZ(KLON,KLEV)&
+  &,  PPMB(KLON,KLEV+1)&
+  &,  PTAU(KLON,NSW,KLEV)  , PTAVE(KLON,KLEV)
+
+REAL_B :: PHEAT(KLON,KLEV), PFDOWN(KLON,KLEV+1), PFUP(KLON,KLEV+1),&
+     &PFUPV(KLON), PFUPN(KLON), PFDNV(KLON), PFDNN(KLON)&
+  &,  PCEAT(KLON,KLEV), PCDOWN(KLON,KLEV+1), PCUP(KLON,KLEV+1)&
+  &,  PCUPV(KLON), PCUPN(KLON), PCDNV(KLON), PCDNN(KLON)&
+  &,  PSUDU(KLON), PUVDF(KLON), PPARF(KLON)
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZAKI(KLON,2,NSW)&
+  &,  ZCLD(KLON,KLEV)    , ZCLEAR(KLON) &
+  &,  ZDSIG(KLON,KLEV)   , ZFACT(KLON)&
+  &,  ZFD(KLON,KLEV+1)   , ZCD(KLON,KLEV+1)&
+  &,  ZCDOWN(KLON,KLEV+1), ZCDNIR(KLON,KLEV+1), ZCDUVS(KLON,KLEV+1)&
+  &,  ZFDOWN(KLON,KLEV+1), ZFDNIR(KLON,KLEV+1), ZFDUVS(KLON,KLEV+1)&
+  &,  ZFU(KLON,KLEV+1)   , ZCU(KLON,KLEV+1)&
+  &,  ZCUP(KLON,KLEV+1)  , ZCUNIR(KLON,KLEV+1), ZCUUVS(KLON,KLEV+1)&
+  &,  ZFUP(KLON,KLEV+1)  , ZFUNIR(KLON,KLEV+1), ZFUUVS(KLON,KLEV+1)&
+  &,  ZRMU(KLON)         , ZSEC(KLON)         &
+  &,  ZSUDU1(KLON)       , ZSUDU2(KLON)       &
+  &,  ZSUDU1T(KLON)      , ZSUDU2T(KLON)      &
+  &,  ZUD(KLON,5,KLEV+1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: INU, JK, JKL, JL, JNU, INUVS, INUIR
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZDCNET, ZDFNET
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     ABSORBER AMOUNTS AND OTHER USEFUL QUANTITIES
+!                 --------------------------------------------
+
+CALL SWU ( KIDIA,KFDIA ,KLON  ,KLEV &
+         &, PSCT ,PCARDI,PCLDSW,PPMB ,PPSOL &
+         &, PRMU0,PTAVE ,PWV &
+         &, ZAKI ,ZCLD  ,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD )
+         
+!print *,'After SWU'         
+
+!     ------------------------------------------------------------------
+
+!*         2.     INTERVAL (0.185/0.25-0.68 MICRON): U.V. AND VISIBLE
+!                 ---------------------------------------------------
+
+IF (NSW.LE.4) THEN
+  INUVS=1
+  INUIR=2
+ELSE IF (NSW.EQ.6) THEN
+  INUVS=1
+  INUIR=4
+END IF     
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZFD(JL,JK) =_ZERO_
+    ZFU(JL,JK) =_ZERO_
+    ZCD(JL,JK) =_ZERO_
+    ZCU(JL,JK) =_ZERO_
+    ZSUDU1T(JL)=_ZERO_
+    PUVDF(JL)  =_ZERO_
+    PPARF(JL)  =_ZERO_
+  ENDDO
+ENDDO
+
+DO JNU = INUVS , INUIR-1
+
+  CALL SW1S &
+    &( KIDIA , KFDIA, KLON , KLEV , KAER  , JNU &
+    &,  PAER , PALBD , PALBP, PCG  , ZCLD , ZCLEAR &
+    &,  ZDSIG, POMEGA, POZ  , ZRMU , ZSEC , PTAU  , ZUD  &
+    &,  ZFDUVS,ZFUUVS, ZCDUVS,ZCUUVS, ZSUDU1 &
+    &)
+
+  DO JK = 1 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZFD(JL,JK)=ZFD(JL,JK)+ZFDUVS(JL,JK)
+      ZFU(JL,JK)=ZFU(JL,JK)+ZFUUVS(JL,JK)
+      ZCD(JL,JK)=ZCD(JL,JK)+ZCDUVS(JL,JK)
+      ZCU(JL,JK)=ZCU(JL,JK)+ZCUUVS(JL,JK)
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZSUDU1T(JL)=ZSUDU1T(JL)+ZSUDU1(JL)
+  ENDDO
+  
+  IF (NSW.EQ.6) THEN
+    IF (JNU.LT.INUIR-1) THEN
+      DO JL=KIDIA,KFDIA
+        PUVDF(JL)=PUVDF(JL)+ZFDUVS(JL,1)
+      END DO
+    ELSE     
+      DO JL=KIDIA,KFDIA
+        PPARF(JL)=PPARF(JL)+ZFDUVS(JL,1)
+      END DO
+    END IF
+  END IF    
+  
+ENDDO
+!print *,'After SW1S'
+!     ------------------------------------------------------------------
+
+!*         3.     INTERVAL (0.68-4.00 MICRON): NEAR-INFRARED
+!                 ------------------------------------------
+
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZFDOWN(JL,JK)=_ZERO_
+    ZFUP  (JL,JK)=_ZERO_
+    ZCDOWN(JL,JK)=_ZERO_
+    ZCUP  (JL,JK)=_ZERO_
+    ZSUDU2T(JL)  =_ZERO_
+  ENDDO
+ENDDO
+
+DO JNU = INUIR , NSW
+
+  CALL SWNI &
+   &(  KIDIA ,KFDIA , KLON , KLEV , KAER , JNU &
+   &,  PAER  ,ZAKI  , PALBD, PALBP, PCG  , ZCLD, ZCLEAR &
+   &,  ZDSIG ,POMEGA, POZ  , ZRMU , ZSEC , PTAU, ZUD      &
+   &,  PWV   ,PQS &
+   &,  ZFDNIR,ZFUNIR,ZCDNIR,ZCUNIR,ZSUDU2 &
+   &)
+
+  DO JK = 1 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZFDOWN(JL,JK)=ZFDOWN(JL,JK)+ZFDNIR(JL,JK)
+      ZFUP  (JL,JK)=ZFUP  (JL,JK)+ZFUNIR(JL,JK)
+      ZCDOWN(JL,JK)=ZCDOWN(JL,JK)+ZCDNIR(JL,JK)
+      ZCUP  (JL,JK)=ZCUP  (JL,JK)+ZCUNIR(JL,JK)
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZSUDU2T(JL)=ZSUDU2T(JL)+ZSUDU2(JL)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         4.     FILL THE DIAGNOSTIC ARRAYS
+!                 --------------------------
+
+
+DO JL = KIDIA,KFDIA
+  PFDNN(JL)=ZFDOWN(JL,1)*ZFACT(JL)
+  PFDNV(JL)=ZFD(JL,1)*ZFACT(JL)
+  PFUPN(JL)=ZFUP(JL,KLEV+1)*ZFACT(JL)
+  PFUPV(JL)=ZFU(JL,KLEV+1)*ZFACT(JL)
+
+  PCDNN(JL)=ZCDOWN(JL,1)*ZFACT(JL)
+  PCDNV(JL)=ZCD(JL,1)*ZFACT(JL)
+  PCUPN(JL)=ZCUP(JL,KLEV+1)*ZFACT(JL)
+  PCUPV(JL)=ZCU(JL,KLEV+1)*ZFACT(JL)
+
+  PSUDU(JL)=(ZSUDU1T(JL)+ZSUDU2T(JL))*ZFACT(JL) 
+  PUVDF(JL)=PUVDF(JL)*ZFACT(JL)
+  PPARF(JL)=PPARF(JL)*ZFACT(JL)
+ENDDO
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFUP(JL,JK)   = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+    PFDOWN(JL,JK) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL)
+    PCUP(JL,JK)   = (ZCUP(JL,JK)   + ZCU(JL,JK)) * ZFACT(JL)
+    PCDOWN(JL,JK) = (ZCDOWN(JL,JK) + ZCD(JL,JK)) * ZFACT(JL)
+  ENDDO
+ENDDO
+
+DO JKL = 1 , KLEV
+  JK = KLEV+1 - JKL
+  DO JL = KIDIA,KFDIA
+    ZDFNET = PFUP(JL,JK+1) - PFDOWN(JL,JK+1)-PFUP(JL,JK  ) + PFDOWN(JL,JK  )
+    PHEAT(JL,JK) = RCDAY * ZDFNET / PDP(JL,JKL)
+    ZDCNET = PCUP(JL,JK+1) - PCDOWN(JL,JK+1)-PCUP(JL,JK  ) + PCDOWN(JL,JK  )
+    PCEAT(JL,JK) = RCDAY * ZDCNET / PDP(JL,JKL)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SW
Index: LMDZ5/branches/testing/libf/phymar/sw1s.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sw1s.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sw1s.F90	(revision 2160)
@@ -0,0 +1,411 @@
+SUBROUTINE SW1S &
+ &( KIDIA , KFDIA , KLON , KLEV , KAER , KNU &
+ &, PAER  , PALBD , PALBP, PCG  , PCLD , PCLEAR &
+ &, PDSIG , POMEGA, POZ  , PRMU , PSEC , PTAU  , PUD  &
+ &, PFD   , PFU   , PCD  , PCU  , PSUDU1 &
+ &)
+
+!**** *SW1S* - SHORTWAVE RADIATION, FIRST SPECTRAL INTERVAL
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+!     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SW1S* IS CALLED FROM *SW*.
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES QUANTITIES FOR THE CLEAR-SKY FRACTION OF THE
+!     COLUMN
+!          2. COMPUTES UPWARD AND DOWNWARD FLUXES CORRESPONDING TO
+!     CONTINUUM SCATTERING
+!          3. MULTIPLY BY OZONE TRANSMISSION FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWCLR*, *SWR*, *SWTT*, *SWUVO3*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        94-11-15   J.-J. MORCRETTE    DIRECT/DIFFUSE ALBEDO
+!        96-01-15   J.-J. MORCRETTE    SW in nsw SPECTRAL INTERVALS 
+!        990128     JJMorcrette        sunshine duration
+!        99-05-25   JJMorcrette        Revised aerosols
+!        00-12-18   JJMorcrette        6 spectral intervals
+
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RRAY     ,RSUN
+USE YOERAD   , ONLY : NSW
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KAER
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KKIND
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PAER(KLON,6,KLEV)&
+  &,  PALBD(KLON,NSW)      , PALBP(KLON,NSW)&
+  &,  PCG(KLON,NSW,KLEV)   , PCLD(KLON,KLEV) &
+  &,  PCLEAR(KLON)&
+  &,  PDSIG(KLON,KLEV)&
+  &,  POMEGA(KLON,NSW,KLEV), POZ(KLON,KLEV)&
+  &,  PRMU(KLON)           , PSEC(KLON)&
+  &,  PTAU(KLON,NSW,KLEV)  , PUD(KLON,5,KLEV+1)
+
+REAL_B :: PFD(KLON,KLEV+1) , PFU(KLON,KLEV+1)&
+  &,  PCD(KLON,KLEV+1)     , PCU(KLON,KLEV+1)&
+  &,  PSUDU1(KLON)
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+INTEGER_M :: IIND6(6), IIND4(4)
+
+REAL_B :: ZCGAZ(KLON,KLEV)&
+  &,  ZDIFF(KLON)        , ZDIRF(KLON)        &
+  &,  ZDIFT(KLON)        , ZDIRT(KLON)        &
+  &,  ZPIZAZ(KLON,KLEV)&
+  &,  ZRAYL(KLON), ZRAY1(KLON,KLEV+1), ZRAY2(KLON,KLEV+1)&
+  &,  ZREFZ(KLON,2,KLEV+1)&
+  &,  ZRJ(KLON,6,KLEV+1), ZRJ0(KLON,6,KLEV+1)&
+  &,  ZRK(KLON,6,KLEV+1), ZRK0(KLON,6,KLEV+1)&
+  &,  ZRMUE(KLON,KLEV+1), ZRMU0(KLON,KLEV+1)&
+  &,  ZR6(KLON,6)       , ZR4(KLON,4)&
+  &,  ZTAUAZ(KLON,KLEV)&
+  &,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
+  &,  ZTRCLD(KLON)      , ZTRCLR(KLON)&
+  &,  ZW6(KLON,6)       , ZW4(KLON,4), ZO(KLON,2) ,ZT(KLON,2) 
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IKL, IKM1, JAJ, JK, JL
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     FIRST SPECTRAL INTERVAL (0.25-0.68 MICRON)
+!                 ----------------------- ------------------
+
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  ZRAYL(JL) =  RRAY(KNU,1) + PRMU(JL) * (RRAY(KNU,2) + PRMU(JL)&
+   &* (RRAY(KNU,3) + PRMU(JL) * (RRAY(KNU,4) + PRMU(JL)&
+   &* (RRAY(KNU,5) + PRMU(JL) *  RRAY(KNU,6)       ))))
+ENDDO
+!print *,'SW1S After Rayleigh'
+
+
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+
+CALL SWCLR &
+  &( KIDIA  , KFDIA , KLON  , KLEV , KAER , KNU &
+  &, PAER   , PALBP , PDSIG , ZRAYL, PSEC &
+  &, ZCGAZ  , ZPIZAZ, ZRAY1 , ZRAY2, ZREFZ, ZRJ0 &
+  &, ZRK0   , ZRMU0 , ZTAUAZ, ZTRA1, ZTRA2, ZTRCLR &
+  &)
+!print *,'SW1S After SWCLR'
+
+
+!*         2.2   CLOUDY FRACTION OF THE COLUMN
+!                -----------------------------
+
+
+CALL SWR &
+  &( KIDIA ,KFDIA ,KLON  ,KLEV  , KNU &
+  &, PALBD ,PCG   ,PCLD  ,POMEGA, PSEC , PTAU &
+  &, ZCGAZ ,ZPIZAZ,ZRAY1 ,ZRAY2 , ZREFZ, ZRJ  ,ZRK , ZRMUE &
+  &, ZTAUAZ,ZTRA1 ,ZTRA2 ,ZTRCLD &
+  &)
+!print *,'SW1S After SWR'
+
+
+!     ------------------------------------------------------------------
+
+!*         3.    OZONE ABSORPTION
+!                ----------------
+
+IF (NSW <= 4) THEN
+
+!*         3.1   TWO OR FOUR SPECTRAL INTERVALS
+!                ------------------------------
+
+  IIND6(1)=1
+  IIND6(2)=2
+  IIND6(3)=3
+  IIND6(4)=1
+  IIND6(5)=2
+  IIND6(6)=3
+
+
+!*         3.1.1  DOWNWARD FLUXES
+!                 ---------------
+
+
+  JAJ = 2
+
+  DO JL = KIDIA,KFDIA
+    ZW6(JL,1)=_ZERO_
+    ZW6(JL,2)=_ZERO_
+    ZW6(JL,3)=_ZERO_
+    ZW6(JL,4)=_ZERO_
+    ZW6(JL,5)=_ZERO_
+    ZW6(JL,6)=_ZERO_
+    PFD(JL,KLEV+1)=((_ONE_-PCLEAR(JL))*ZRJ(JL,JAJ,KLEV+1)&
+     &+ PCLEAR(JL) *ZRJ0(JL,JAJ,KLEV+1)) * RSUN(KNU)
+    PCD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1) * RSUN(KNU)
+  ENDDO
+  DO JK = 1 , KLEV
+    IKL = KLEV+1-JK
+    DO JL = KIDIA,KFDIA
+      ZW6(JL,1)=ZW6(JL,1)+PUD(JL,1,IKL)/ZRMUE(JL,IKL)
+      ZW6(JL,2)=ZW6(JL,2)+PUD(JL,2,IKL)/ZRMUE(JL,IKL)
+      ZW6(JL,3)=ZW6(JL,3)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+      ZW6(JL,4)=ZW6(JL,4)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+      ZW6(JL,5)=ZW6(JL,5)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+      ZW6(JL,6)=ZW6(JL,6)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ENDDO
+    
+    KKIND=6
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, KKIND &
+      &, IIND6 &
+      &, ZW6  &
+      &, ZR6                          )
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR6(JL,1)*ZR6(JL,2)*ZR6(JL,3)*ZRJ(JL,JAJ,IKL)
+      ZDIRF(JL) = ZR6(JL,4)*ZR6(JL,5)*ZR6(JL,6)*ZRJ0(JL,JAJ,IKL)
+      PFD(JL,IKL) = ((_ONE_-PCLEAR(JL)) * ZDIFF(JL)&
+       &+PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)
+      PCD(JL,IKL) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+
+  DO JL=KIDIA,KFDIA
+    ZDIFT(JL) = ZR6(JL,1)*ZR6(JL,2)*ZR6(JL,3)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR6(JL,4)*ZR6(JL,5)*ZR6(JL,6)*ZTRCLR(JL)
+    PSUDU1(JL) = ((_ONE_-PCLEAR(JL)) * ZDIFT(JL)&
+     &+PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)
+  ENDDO
+
+
+!*         3.1.2  UPWARD FLUXES
+!                 -------------
+
+
+  DO JL = KIDIA,KFDIA
+    PFU(JL,1) = ((_ONE_-PCLEAR(JL))*ZDIFF(JL)*PALBD(JL,KNU)&
+     &+ PCLEAR(JL) *ZDIRF(JL)*PALBP(JL,KNU))&
+     &* RSUN(KNU)
+    PCU(JL,1) = ZDIRF(JL) * PALBP(JL,KNU) * RSUN(KNU)
+  ENDDO
+
+  DO JK = 2 , KLEV+1
+    IKM1=JK-1
+    DO JL = KIDIA,KFDIA
+      ZW6(JL,1)=ZW6(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW6(JL,2)=ZW6(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW6(JL,3)=ZW6(JL,3)+POZ(JL,  IKM1)*1.66_JPRB
+      ZW6(JL,4)=ZW6(JL,4)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW6(JL,5)=ZW6(JL,5)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW6(JL,6)=ZW6(JL,6)+POZ(JL,  IKM1)*1.66_JPRB
+    ENDDO
+    
+    KKIND=6
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, KKIND &
+      &, IIND6 &
+      &, ZW6  &
+      &, ZR6                          )
+  
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR6(JL,1)*ZR6(JL,2)*ZR6(JL,3)*ZRK(JL,JAJ,JK)
+      ZDIRF(JL) = ZR6(JL,4)*ZR6(JL,5)*ZR6(JL,6)*ZRK0(JL,JAJ,JK)
+      PFU(JL,JK) = ((_ONE_-PCLEAR(JL)) * ZDIFF(JL)&
+       &+PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)
+      PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+
+
+
+
+ELSE IF (NSW == 6) THEN
+!print *,'SW1S ozone 6SI'
+
+!*         3.2   SIX SPECTRAL INTERVALS
+!                ----------------------
+
+  IIND4(1)=1
+  IIND4(2)=2
+  IIND4(3)=1
+  IIND4(4)=2
+
+
+!*         3.2,1  DOWNWARD FLUXES
+!                 ---------------
+
+
+  JAJ = 2
+
+  DO JL = KIDIA,KFDIA
+    ZW4(JL,1)=_ZERO_
+    ZW4(JL,2)=_ZERO_
+    ZW4(JL,3)=_ZERO_
+    ZW4(JL,4)=_ZERO_
+  
+    ZO(JL,1)=_ZERO_
+    ZO(JL,2)=_ZERO_
+    PFD(JL,KLEV+1)=((_ONE_-PCLEAR(JL))*ZRJ(JL,JAJ,KLEV+1)&
+      &+ PCLEAR(JL) *ZRJ0(JL,JAJ,KLEV+1)) * RSUN(KNU)
+    PCD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1) * RSUN(KNU)
+  ENDDO
+  DO JK = 1 , KLEV
+    IKL = KLEV+1-JK
+    DO JL = KIDIA,KFDIA
+      ZW4(JL,1)=ZW4(JL,1)+PUD(JL,1,IKL)/ZRMUE(JL,IKL)
+      ZW4(JL,2)=ZW4(JL,2)+PUD(JL,2,IKL)/ZRMUE(JL,IKL)
+      ZW4(JL,3)=ZW4(JL,3)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+      ZW4(JL,4)=ZW4(JL,4)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+    
+      ZO(JL,1)=ZO(JL,1)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+      ZO(JL,2)=ZO(JL,2)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ENDDO
+ 
+    KKIND=4
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, KKIND &
+      &, IIND4 &
+      &, ZW4  &
+      &, ZR4  &
+      & )
+!    print *,'SW1S after SWTT1 JK=',JK  
+
+    KKIND=2
+    CALL SWUVO3 ( KIDIA, KFDIA, KLON, KNU, KKIND &
+      &, ZO  &
+      &, ZT  &
+      & )
+!    print *,'SW1S after SWUVO3 JK=',JK
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR4(JL,1)*ZR4(JL,2)*ZT(JL,1)*ZRJ(JL,JAJ,IKL)
+      ZDIRF(JL) = ZR4(JL,3)*ZR4(JL,4)*ZT(JL,2)*ZRJ0(JL,JAJ,IKL)
+      PFD(JL,IKL) = ((_ONE_-PCLEAR(JL)) * ZDIFF(JL)&
+        &+PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)
+      PCD(JL,IKL) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+
+  DO JL=KIDIA,KFDIA
+    ZDIFT(JL) = ZR4(JL,1)*ZR4(JL,2)*ZT(JL,1)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR4(JL,3)*ZR4(JL,4)*ZT(JL,2)*ZTRCLR(JL)
+    PSUDU1(JL) = ((_ONE_-PCLEAR(JL)) * ZDIFT(JL)&
+      &+PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)
+  ENDDO
+
+
+!*         3.2.2  UPWARD FLUXES
+!                 -------------
+
+
+  DO JL = KIDIA,KFDIA
+    PFU(JL,1) = ((_ONE_-PCLEAR(JL))*ZDIFF(JL)*PALBD(JL,KNU)&
+      &+ PCLEAR(JL) *ZDIRF(JL)*PALBP(JL,KNU))&
+      &* RSUN(KNU)
+    PCU(JL,1) = ZDIRF(JL) * PALBP(JL,KNU) * RSUN(KNU)
+  ENDDO
+
+  DO JK = 2 , KLEV+1
+    IKM1=JK-1
+    DO JL = KIDIA,KFDIA
+      ZW4(JL,1)=ZW4(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW4(JL,2)=ZW4(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW4(JL,3)=ZW4(JL,3)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW4(JL,4)=ZW4(JL,4)+PUD(JL,2,IKM1)*1.66_JPRB
+      
+      ZO(JL,1)=ZO(JL,1)+POZ(JL,  IKM1)*1.66_JPRB
+      ZO(JL,2)=ZO(JL,2)+POZ(JL,  IKM1)*1.66_JPRB
+    ENDDO
+
+    KKIND=4
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, KKIND &
+      &, IIND4 &
+      &, ZW4  &
+      &, ZR4  &
+      & )
+
+    KKIND=2
+    CALL SWUVO3 ( KIDIA, KFDIA, KLON, KNU, KKIND &
+      &, ZO  &
+      &, ZT  &
+      & )
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR4(JL,1)*ZR4(JL,2)*ZT(JL,1)*ZRK(JL,JAJ,JK)
+      ZDIRF(JL) = ZR4(JL,3)*ZR4(JL,4)*ZT(JL,2)*ZRK0(JL,JAJ,JK)
+      PFU(JL,JK) = ((_ONE_-PCLEAR(JL)) * ZDIFF(JL)&
+        &+PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)
+      PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+  
+END IF  
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SW1S
Index: LMDZ5/branches/testing/libf/phymar/sw2s.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/sw2s.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/sw2s.F90	(revision 2160)
@@ -0,0 +1,528 @@
+SUBROUTINE SW2S ( KIDIA, KFDIA, KLON , KLEV , KAER, KNU &
+  &,  PAER  ,PAKI, PALBD, PALBP, PCG   , PCLD, PCLEAR, PCLDSW &
+  &,  PDSIG ,POMEGA,POZ , PRMU , PSEC  , PTAU &
+  &,  PUD   ,PWV , PQS &
+  &,  PFDOWN,PFUP,PFDOWNC,PFUPC                               )
+
+!**** *SW2* - SHORTWAVE RADIATION, 2ND SPECTRAL INTERVAL
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN THE
+!     SECOND SPECTRAL INTERVAL FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SW2S* IS CALLED FROM *SW*.
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING TO
+!     CONTINUUM SCATTERING
+!          2. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING FOR
+!     A GREY MOLECULAR ABSORPTION
+!          3. LAPLACE TRANSFORM ON THE PREVIOUS TO GET EFFECTIVE AMOUNTS
+!     OF ABSORBERS
+!          4. APPLY H2O AND U.M.G. TRANSMISSION FUNCTIONS
+!          5. MULTIPLY BY OZONE TRANSMISSION FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWCLR*, *SWR*, *SWDE*, *SWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        94-11-15   J.-J. MORCRETTE    DIRECT/DIFFUSE ALBEDO
+!        96-05-30 Michel Deque (security in EXP()) 
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RRAY     ,RSUN
+USE YOERDU   , ONLY : REPLOG
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KAER
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+
+!#include "yoeaer.h"
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PAER(KLON,KLEV,5), PAKI(KLON,2)&
+  &,  PALBD(KLON,2)     , PALBP(KLON,2)&
+  &,  PCG(KLON,2,KLEV) , PCLD(KLON,KLEV)&
+  &,  PCLDSW(KLON,KLEV)&
+  &,  PCLEAR(KLON)      , PDSIG(KLON,KLEV)&
+  &,  POMEGA(KLON,2,KLEV),POZ(KLON,KLEV)&
+  &,  PQS(KLON,KLEV)&
+  &,  PRMU(KLON)        , PSEC(KLON)&
+  &,  PTAU(KLON,2,KLEV), PUD(KLON,5,KLEV+1)&
+  &,  PWV(KLON,KLEV)
+
+REAL_B :: PFDOWN(KLON,KLEV+1),PFUP(KLON,KLEV+1)
+REAL_B :: PFDOWNC(KLON,KLEV+1),PFUPC(KLON,KLEV+1)
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+INTEGER_M :: IIND2(2), IIND3(3)
+REAL_B :: ZCGAZ(KLON,KLEV)&
+  &,  ZFD(KLON,KLEV+1), ZFU(KLON,KLEV+1) &
+  &,  ZG(KLON), ZGG(KLON)&
+  &,  ZPIZAZ(KLON,KLEV)&
+  &,  ZRAYL(KLON), ZRAY1(KLON,KLEV+1)&
+  &,  ZRAY2(KLON,KLEV+1), ZREF(KLON), ZREFZ(KLON,2,KLEV+1)&
+  &,  ZRE1(KLON), ZRE2(KLON)&
+  &,  ZRJ(KLON,6,KLEV+1), ZRJ0(KLON,6,KLEV+1)&
+  &,  ZRK(KLON,6,KLEV+1), ZRK0(KLON,6,KLEV+1)&
+  &,  ZRL(KLON,8)&
+  &,  ZRMUE(KLON,KLEV+1), ZRMU0(KLON,KLEV+1)&
+  &,  ZRMUZ(KLON), ZRNEB(KLON),  ZRUEF(KLON,8)&
+  &,  ZR1(KLON) , ZR2(KLON,2), ZR3(KLON,3), ZR4(KLON)&
+  &,  ZR21(KLON), ZR22(KLON)&
+  &,  ZS(KLON)&
+  &,  ZTAUAZ(KLON,KLEV), ZTO1(KLON), ZTR(KLON,2,KLEV+1)&
+  &,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
+  &,  ZTR1(KLON), ZTR2(KLON)&
+  &,  ZW(KLON)   , ZW1(KLON), ZW2(KLON,2)&
+  &,  ZW3(KLON,3), ZW4(KLON), ZW5(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IABS, IKL, IKM1, JABS, JAJ, JAJP, JK, JKKI,&
+             &JKKP4, JKL, JKLP1, JKM1, JL, JN, JN2J, JREF
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZAA, ZBB, ZCNEB, ZRE11, ZRKI, ZRMUM1, ZWH2O
+
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     SECOND SPECTRAL INTERVAL (0.68-4.00 MICRON)
+!                 -------------------------------------------
+
+
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  ZRMUM1 = _ONE_ - PRMU(JL)
+  ZRAYL(JL) =  RRAY(KNU,1) + ZRMUM1   * (RRAY(KNU,2) + ZRMUM1 &
+   &* (RRAY(KNU,3) + ZRMUM1   * (RRAY(KNU,4) + ZRMUM1 &
+   &* (RRAY(KNU,5) + ZRMUM1   *  RRAY(KNU,6)     ))))
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+
+CALL SWCLR ( KIDIA , KFDIA , KLON, KLEV, KAER, KNU &
+  &, PAER   , PALBP , PDSIG , ZRAYL, PSEC &
+  &, ZCGAZ  , ZPIZAZ, ZRAY1 , ZRAY2, ZREFZ, ZRJ0 &
+  &, ZRK0   , ZRMU0 , ZTAUAZ, ZTRA1, ZTRA2           )
+
+
+!*         2.2   CLOUDY FRACTION OF THE COLUMN
+!                -----------------------------
+
+
+CALL SWR  ( KIDIA , KFDIA, KLON, KLEV , KAER , KNU &
+  &, PALBD , PCG   , PCLD , PDSIG, POMEGA, PSEC , PTAU &
+  &, ZCGAZ , ZPIZAZ, ZRAY1, ZRAY2, ZREFZ , ZRJ  , ZRK, ZRMUE &
+  &, ZTAUAZ, ZTRA1 , ZTRA2 )
+
+
+!     ------------------------------------------------------------------
+
+!*         3.    SCATTERING CALCULATIONS WITH GREY MOLECULAR ABSORPTION
+!                ------------------------------------------------------
+
+
+JN = 2
+
+DO JABS=1,2
+
+
+!*         3.1  SURFACE CONDITIONS
+!               ------------------
+
+
+  DO JL = KIDIA,KFDIA
+    ZREFZ(JL,2,1) = PALBD(JL,KNU)
+    ZREFZ(JL,1,1) = PALBD(JL,KNU)
+  ENDDO
+
+
+!*         3.2  INTRODUCING CLOUD EFFECTS
+!               -------------------------
+
+
+  DO JK = 2 , KLEV+1
+    JKM1 = JK - 1
+    IKL=KLEV+1-JKM1
+    DO JL = KIDIA,KFDIA
+      ZRNEB(JL) = PCLD(JL,JKM1)
+      IF (JABS == 1.AND. ZRNEB(JL) > _TWO_*REPLOG) THEN
+        ZWH2O=MAX(PWV(JL,IKL),REPLOG)
+        ZCNEB=MAX(REPLOG,MIN(ZRNEB(JL),_ONE_-REPLOG))
+        ZBB=PUD(JL,JABS,JKM1)*PQS(JL,IKL)/ZWH2O
+        ZAA=MAX((PUD(JL,JABS,JKM1)-ZCNEB*ZBB)/(_ONE_-ZCNEB),REPLOG)
+      ELSE
+        ZAA=PUD(JL,JABS,JKM1)
+        ZBB=ZAA
+      ENDIF
+      ZRKI = PAKI(JL,JABS)
+      ZS(JL) = EXP(MIN(200._JPRB,-ZRKI * ZAA * 1.66_JPRB))
+      ZG(JL) = EXP(MIN(200._JPRB,-ZRKI * ZAA / ZRMUE(JL,JK)))
+      ZTR1(JL) = _ZERO_
+      ZRE1(JL) = _ZERO_
+      ZTR2(JL) = _ZERO_
+      ZRE2(JL) = _ZERO_
+
+      ZW(JL)= POMEGA(JL,KNU,JKM1)
+      ZTO1(JL) = PTAU(JL,KNU,JKM1) / ZW(JL)&
+       &+ ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)&
+       &+ ZBB * ZRKI
+
+      ZR21(JL) = PTAU(JL,KNU,JKM1) + ZTAUAZ(JL,JKM1)
+      ZR22(JL) = PTAU(JL,KNU,JKM1) / ZR21(JL)
+      ZGG(JL) = ZR22(JL) * PCG(JL,KNU,JKM1)&
+       &+ (_ONE_ - ZR22(JL)) * ZCGAZ(JL,JKM1)
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+      ZREF(JL) = ZREFZ(JL,1,JKM1)
+      ZRMUZ(JL) = ZRMUE(JL,JK)
+    ENDDO
+
+    CALL SWDE ( KIDIA, KFDIA, KLON &
+     &, ZGG  , ZREF , ZRMUZ, ZTO1, ZW &
+     &, ZRE1 , ZRE2 , ZTR1 , ZTR2     )
+
+    DO JL = KIDIA,KFDIA
+
+      ZREFZ(JL,2,JK) = (_ONE_-ZRNEB(JL)) * (ZRAY1(JL,JKM1)&
+       &+ ZREFZ(JL,2,JKM1) * ZTRA1(JL,JKM1)&
+       &* ZTRA2(JL,JKM1) ) * ZG(JL) * ZS(JL)&
+       &+ ZRNEB(JL) * ZRE1(JL)
+
+      ZTR(JL,2,JKM1)=ZRNEB(JL)*ZTR1(JL)&
+       &+ (ZTRA1(JL,JKM1)) * ZG(JL) * (_ONE_-ZRNEB(JL))
+
+      ZREFZ(JL,1,JK)=(_ONE_-ZRNEB(JL))*(ZRAY1(JL,JKM1)&
+       &+ZREFZ(JL,1,JKM1)*ZTRA1(JL,JKM1)*ZTRA2(JL,JKM1)&
+       &/(_ONE_-ZRAY2(JL,JKM1)*ZREFZ(JL,1,JKM1)))*ZG(JL)*ZS(JL)&
+       &+ ZRNEB(JL) * ZRE2(JL)
+
+      ZTR(JL,1,JKM1)= ZRNEB(JL) * ZTR2(JL)&
+       &+ (ZTRA1(JL,JKM1)/(_ONE_-ZRAY2(JL,JKM1)&
+       &* ZREFZ(JL,1,JKM1)))&
+       &* ZG(JL) * (_ONE_ -ZRNEB(JL))
+
+    ENDDO
+  ENDDO
+
+!*         3.3  REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!               -------------------------------------------------
+
+
+  DO JREF=1,2
+
+    JN = JN + 1
+
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JN,KLEV+1) = _ONE_
+      ZRK(JL,JN,KLEV+1) = ZREFZ(JL,JREF,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      JKL = KLEV+1 - JK
+      JKLP1 = JKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11 = ZRJ(JL,JN,JKLP1) * ZTR(JL,JREF,JKL)
+        ZRJ(JL,JN,JKL) = ZRE11
+        ZRK(JL,JN,JKL) = ZRE11 * ZREFZ(JL,JREF,JKL)
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         4.    INVERT GREY AND CONTINUUM FLUXES
+!                --------------------------------
+
+
+
+!*         4.1   UPWARD (ZRK) AND DOWNWARD (ZRJ) PSEUDO-FLUXES
+!                ---------------------------------------------
+
+
+DO JK = 1 , KLEV+1
+  DO JAJ = 1 , 5 , 2
+    JAJP = JAJ + 1
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JAJ,JK)=        ZRJ(JL,JAJ,JK) - ZRJ(JL,JAJP,JK)
+      ZRK(JL,JAJ,JK)=        ZRK(JL,JAJ,JK) - ZRK(JL,JAJP,JK)
+      ZRJ(JL,JAJ,JK)= MAX( ZRJ(JL,JAJ,JK) , REPLOG )
+      ZRK(JL,JAJ,JK)= MAX( ZRK(JL,JAJ,JK) , REPLOG )
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV+1
+  DO JAJ = 2 , 6 , 2
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JAJ,JK)= MAX( ZRJ(JL,JAJ,JK) , REPLOG )
+      ZRK(JL,JAJ,JK)= MAX( ZRK(JL,JAJ,JK) , REPLOG )
+    ENDDO
+  ENDDO
+ENDDO
+
+!*         4.2    EFFECTIVE ABSORBER AMOUNTS BY INVERSE LAPLACE
+!                 ---------------------------------------------
+
+
+DO JK = 1 , KLEV+1
+  JKKI = 1
+  DO JAJ = 1 , 2
+    IIND2(1)=JAJ
+    IIND2(2)=JAJ
+    DO JN = 1 , 2
+      JN2J = JN + 2 * JAJ
+      JKKP4 = JKKI + 4
+
+!*         4.2.1  EFFECTIVE ABSORBER AMOUNTS
+!                 --------------------------
+
+
+      DO JL = KIDIA,KFDIA
+        ZW2(JL,1) = LOG( ZRJ(JL,JN,JK) / ZRJ(JL,JN2J,JK))/ PAKI(JL,JAJ)
+        ZW2(JL,2) = LOG( ZRK(JL,JN,JK) / ZRK(JL,JN2J,JK))/ PAKI(JL,JAJ)
+      ENDDO
+
+!*         4.2.2  TRANSMISSION FUNCTION
+!                 ---------------------
+
+
+      CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 2, IIND2 &
+       &, ZW2 &
+       &, ZR2                              )
+
+      DO JL = KIDIA,KFDIA
+        ZRL(JL,JKKI) = ZR2(JL,1)
+        ZRUEF(JL,JKKI) = ZW2(JL,1)
+        ZRL(JL,JKKP4) = ZR2(JL,2)
+        ZRUEF(JL,JKKP4) = ZW2(JL,2)
+      ENDDO
+
+      JKKI=JKKI+1
+    ENDDO
+  ENDDO
+
+!*         4.3    UPWARD AND DOWNWARD FLUXES WITH H2O AND UMG ABSORPTION
+!                 ------------------------------------------------------
+
+
+  DO JL = KIDIA,KFDIA
+    PFDOWN(JL,JK) = ZRJ(JL,1,JK) * ZRL(JL,1) * ZRL(JL,3)&
+     &+ ZRJ(JL,2,JK) * ZRL(JL,2) * ZRL(JL,4)
+    PFUP(JL,JK)   = ZRK(JL,1,JK) * ZRL(JL,5) * ZRL(JL,7)&
+     &+ ZRK(JL,2,JK) * ZRL(JL,6) * ZRL(JL,8)
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         5.    MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
+!                ----------------------------------------
+
+
+
+!*         5.1   DOWNWARD FLUXES
+!                ---------------
+
+
+JAJ = 2
+IIND3(1)=1
+IIND3(2)=2
+IIND3(3)=3
+
+DO JL = KIDIA,KFDIA
+  ZW3(JL,1)=_ZERO_
+  ZW3(JL,2)=_ZERO_
+  ZW3(JL,3)=_ZERO_
+  ZW4(JL)  =_ZERO_
+  ZW5(JL)  =_ZERO_
+  ZR4(JL)  =_ONE_
+  ZFD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1)
+ENDDO
+DO JK = 1 , KLEV
+  IKL = KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ZW4(JL)  =ZW4(JL)  +PUD(JL,4,IKL)/ZRMU0(JL,IKL)
+    ZW5(JL)  =ZW5(JL)  +PUD(JL,5,IKL)/ZRMU0(JL,IKL)
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 3, IIND3 &
+   &, ZW3 &
+   &, ZR3                              )
+
+  DO JL = KIDIA,KFDIA
+!     ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
+    ZFD(JL,IKL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL)* ZRJ0(JL,JAJ,IKL)
+  ENDDO
+ENDDO
+
+
+!*         5.2   UPWARD FLUXES
+!                -------------
+
+
+DO JL = KIDIA,KFDIA
+  ZFU(JL,1) = ZFD(JL,1)*PALBP(JL,KNU)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IKM1=JK-1
+  DO JL = KIDIA,KFDIA
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKM1)*1.66_JPRB
+    ZW4(JL)  =ZW4(JL)  +PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL)  =ZW5(JL)  +PUD(JL,5,IKM1)*1.66_JPRB
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 3, IIND3 &
+   &, ZW3 &
+   &, ZR3                              )
+
+  DO JL = KIDIA,KFDIA
+!     ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
+    ZFU(JL,JK) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL)* ZRK0(JL,JAJ,JK)
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         6.     INTRODUCTION OF OZONE AND H2O CONTINUUM ABSORPTION
+!                 --------------------------------------------------
+
+IABS=3
+
+!*         6.1    DOWNWARD FLUXES
+!                 ---------------
+
+DO JL = KIDIA,KFDIA
+  ZW1(JL)=_ZERO_
+  ZW4(JL)=_ZERO_
+  ZW5(JL)=_ZERO_
+  ZR1(JL)=_ZERO_
+  PFDOWN(JL,KLEV+1) = ((_ONE_-PCLEAR(JL))*PFDOWN(JL,KLEV+1)&
+   &+ PCLEAR(JL) * ZFD(JL,KLEV+1)) * RSUN(KNU)
+  PFDOWNC(JL,KLEV+1) = ZFD(JL,KLEV+1) * RSUN(KNU)
+ENDDO
+
+DO JK = 1 , KLEV
+  IKL=KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZW1(JL) = ZW1(JL)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+    ZW4(JL) = ZW4(JL)+PUD(JL,4,IKL)/ZRMUE(JL,IKL)
+    ZW5(JL) = ZW5(JL)+PUD(JL,5,IKL)/ZRMUE(JL,IKL)
+!     ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PFDOWN(JL,IKL) = ((_ONE_-PCLEAR(JL))*ZR1(JL)*ZR4(JL)*PFDOWN(JL,&
+     &IKL)&
+     &+PCLEAR(JL)*ZFD(JL,IKL)) * RSUN(KNU)
+    PFDOWNC(JL,IKL) = ZFD(JL,IKL) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+
+!*         6.2    UPWARD FLUXES
+!                 -------------
+
+DO JL = KIDIA,KFDIA
+  PFUP(JL,1) = ((_ONE_-PCLEAR(JL))*ZR1(JL)*ZR4(JL) * PFUP(JL,1)&
+   &+PCLEAR(JL)*ZFU(JL,1)) * RSUN(KNU)
+  PFUPC(JL,1) = ZFU(JL,1) * RSUN(KNU)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IKM1=JK-1
+  DO JL = KIDIA,KFDIA
+    ZW1(JL) = ZW1(JL)+POZ(JL  ,IKM1)*1.66_JPRB
+    ZW4(JL) = ZW4(JL)+PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL) = ZW5(JL)+PUD(JL,5,IKM1)*1.66_JPRB
+!     ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PFUP(JL,JK) = ((_ONE_-PCLEAR(JL))*ZR1(JL)*ZR4(JL) * PFUP(JL,JK)&
+     &+PCLEAR(JL)*ZFU(JL,JK)) * RSUN(KNU)
+    PFUPC(JL,JK) = ZFU(JL,JK) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SW2S
Index: LMDZ5/branches/testing/libf/phymar/swclr.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swclr.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swclr.F90	(revision 2160)
@@ -0,0 +1,375 @@
+SUBROUTINE SWCLR &
+  &( KIDIA , KFDIA , KLON  , KLEV  , KAER  , KNU &
+  &, PAER  , PALBP , PDSIG , PRAYL , PSEC &
+  &, PCGAZ , PPIZAZ, PRAY1 , PRAY2 , PREFZ , PRJ  &
+  &, PRK   , PRMU0 , PTAUAZ, PTRA1 , PTRA2 , PTRCLR &
+  &)
+
+!**** *SWCLR* - CLEAR-SKY COLUMN COMPUTATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY IN CASE OF
+!     CLEAR-SKY COLUMN
+
+!**   INTERFACE.
+!     ----------
+
+!          *SWCLR* IS CALLED EITHER FROM *SW1S*
+!                                OR FROM *SWNI*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 94-11-15
+!        Modified : 96-03-19 JJM-PhD (loop 107 in absence of aerosols)
+!        JJMorcrette 990128 : sunshine duration
+!        JJMorcrette 990128 : sunshine duration
+!        99-05-25   JJMorcrette    Revised aerosols
+!        JJMorcrette 001218 : 6 spectral intervals
+   
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RTAUA    ,RPIZA    ,RCGA
+USE YOERAD   , ONLY : NOVLP    ,NSW
+USE YOERDI   , ONLY : REPCLC
+USE YOERDU   , ONLY : REPSCT
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KAER
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PAER(KLON,6,KLEV), PALBP(KLON,NSW)&
+  &,  PDSIG(KLON,KLEV)&
+  &,  PRAYL(KLON)&
+  &,  PSEC(KLON)
+
+REAL_B ::&
+     &PCGAZ(KLON,KLEV)     &
+  &,  PPIZAZ(KLON,KLEV)&
+  &,  PRAY1(KLON,KLEV+1)  , PRAY2(KLON,KLEV+1)&
+  &,  PREFZ(KLON,2,KLEV+1), PRJ(KLON,6,KLEV+1)&
+  &,  PRK(KLON,6,KLEV+1)  , PRMU0(KLON,KLEV+1)&
+  &,  PTAUAZ(KLON,KLEV)&
+  &,  PTRA1(KLON,KLEV+1)  , PTRA2(KLON,KLEV+1)&
+  &,  PTRCLR(KLON)
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZC0I(KLON,KLEV+1)&
+  &,  ZCLE0(KLON,KLEV), ZCLEAR(KLON) &
+  &,  ZR21(KLON)&
+  &,  ZR23(KLON) , ZSS0(KLON) , ZSCAT(KLON)&
+  &,  ZTR(KLON,2,KLEV+1)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IKL, JA, JAE, JAJ, JK, JKL, JKLP1, JKM1, JL, INU1
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZBMU0, ZBMU1, ZCORAE, ZDEN, ZDEN1, ZFACOA,&
+          &ZFF, ZGAP, ZGAR, ZMU1, ZMUE, ZRATIO, ZRE11, &
+          &ZTO, ZTRAY, ZWW
+
+
+!     ------------------------------------------------------------------
+
+!*         1.    OPTICAL PARAMETERS FOR AEROSOLS AND RAYLEIGH
+!                --------------------------------------------
+
+
+DO JK = 1 , KLEV+1
+  DO JA = 1 , 6
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JA,JK) = _ZERO_
+      PRK(JL,JA,JK) = _ZERO_
+    ENDDO
+  ENDDO
+ENDDO
+
+! ------   NB: 'PAER' AEROSOLS ARE ENTERED FROM TOP TO BOTTOM
+
+DO JK = 1 , KLEV
+  IKL=KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    PCGAZ(JL,JK) = _ZERO_
+    PPIZAZ(JL,JK) =  _ZERO_
+    PTAUAZ(JL,JK) = _ZERO_
+  ENDDO
+  DO JAE=1,6
+    DO JL = KIDIA,KFDIA
+      PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL, JAE, IKL)*RTAUA(KNU,JAE)
+      PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL, JAE, IKL)&
+       &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)
+      PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL, JAE, IKL)&
+       &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)
+    ENDDO
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    IF (KAER /= 0) THEN
+      PCGAZ(JL,JK)=PCGAZ(JL,JK)/PPIZAZ(JL,JK)
+      PPIZAZ(JL,JK)=PPIZAZ(JL,JK)/PTAUAZ(JL,JK)
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      ZRATIO = ZTRAY / (ZTRAY + PTAUAZ(JL,JK))
+      ZGAR = PCGAZ(JL,JK)
+      ZFF = ZGAR * ZGAR
+      PTAUAZ(JL,JK)=ZTRAY+PTAUAZ(JL,JK)*(_ONE_-PPIZAZ(JL,JK)*ZFF)
+      PCGAZ(JL,JK) = ZGAR * (_ONE_ - ZRATIO) / (_ONE_ + ZGAR)
+      PPIZAZ(JL,JK) =ZRATIO+(_ONE_-ZRATIO)*PPIZAZ(JL,JK)*(_ONE_-ZFF)&
+       &/ (_ONE_ - PPIZAZ(JL,JK) * ZFF)
+    ELSE
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      PTAUAZ(JL,JK) = ZTRAY
+      PCGAZ(JL,JK) = _ZERO_
+      PPIZAZ(JL,JK) = _ONE_-REPSCT
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+!                ----------------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  ZR23(JL) = _ZERO_
+  ZC0I(JL,KLEV+1) = _ZERO_
+  ZCLEAR(JL) = _ONE_
+  ZSCAT(JL) = _ZERO_
+ENDDO
+
+JK = 1
+JKL = KLEV+1 - JK
+JKLP1 = JKL + 1
+DO JL = KIDIA,KFDIA
+  ZFACOA = _ONE_ - PPIZAZ(JL,JKL)*PCGAZ(JL,JKL)*PCGAZ(JL,JKL)
+  ZCORAE = ZFACOA * PTAUAZ(JL,JKL) * PSEC(JL)
+  ZR21(JL) = EXP(-ZCORAE   )
+  ZSS0(JL) = _ONE_-ZR21(JL)
+  ZCLE0(JL,JKL) = ZSS0(JL)
+
+  IF (NOVLP == 1 .OR. NOVLP == 4) THEN
+!* maximum-random      
+    ZCLEAR(JL) = ZCLEAR(JL)&
+     &*(_ONE_-MAX(ZSS0(JL),ZSCAT(JL)))&
+     &/(_ONE_-MIN(ZSCAT(JL),_ONE_-REPCLC))
+    ZC0I(JL,JKL) = _ONE_ - ZCLEAR(JL)
+    ZSCAT(JL) = ZSS0(JL)
+  ELSEIF (NOVLP == 2) THEN
+!* maximum
+    ZSCAT(JL) = MAX( ZSS0(JL) , ZSCAT(JL) )
+    ZC0I(JL,JKL) = ZSCAT(JL)
+  ELSEIF (NOVLP == 3) THEN
+!* random
+    ZCLEAR(JL)=ZCLEAR(JL)*(_ONE_-ZSS0(JL))
+    ZSCAT(JL) = _ONE_ - ZCLEAR(JL)
+    ZC0I(JL,JKL) = ZSCAT(JL)
+  ENDIF
+ENDDO
+
+DO JK = 2 , KLEV
+  JKL = KLEV+1 - JK
+  JKLP1 = JKL + 1
+  DO JL = KIDIA,KFDIA
+    ZFACOA = _ONE_ - PPIZAZ(JL,JKL)*PCGAZ(JL,JKL)*PCGAZ(JL,JKL)
+    ZCORAE = ZFACOA * PTAUAZ(JL,JKL) * PSEC(JL)
+    ZR21(JL) = EXP(-ZCORAE   )
+    ZSS0(JL) = _ONE_-ZR21(JL)
+    ZCLE0(JL,JKL) = ZSS0(JL)
+
+    IF (NOVLP == 1 .OR. NOVLP == 4) THEN
+!* maximum-random      
+      ZCLEAR(JL) = ZCLEAR(JL)&
+       &*(_ONE_-MAX(ZSS0(JL),ZSCAT(JL)))&
+       &/(_ONE_-MIN(ZSCAT(JL),_ONE_-REPCLC))
+      ZC0I(JL,JKL) = _ONE_ - ZCLEAR(JL)
+      ZSCAT(JL) = ZSS0(JL)
+    ELSEIF (NOVLP == 2) THEN
+!* maximum
+      ZSCAT(JL) = MAX( ZSS0(JL) , ZSCAT(JL) )
+      ZC0I(JL,JKL) = ZSCAT(JL)
+    ELSEIF (NOVLP == 3) THEN
+!* random
+      ZCLEAR(JL)=ZCLEAR(JL)*(_ONE_-ZSS0(JL))
+      ZSCAT(JL) = _ONE_ - ZCLEAR(JL)
+      ZC0I(JL,JKL) = ZSCAT(JL)
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+!                -----------------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  PRAY1(JL,KLEV+1) = _ZERO_
+  PRAY2(JL,KLEV+1) = _ZERO_
+  PREFZ(JL,2,1) = PALBP(JL,KNU)
+  PREFZ(JL,1,1) = PALBP(JL,KNU)
+  PTRA1(JL,KLEV+1) = _ONE_
+  PTRA2(JL,KLEV+1) = _ONE_
+ENDDO
+
+DO JK = 2 , KLEV+1
+  JKM1 = JK-1
+  DO JL = KIDIA,KFDIA
+
+
+!     ------------------------------------------------------------------
+
+!*         3.1  EQUIVALENT ZENITH ANGLE
+!               -----------------------
+
+
+    ZMUE = (_ONE_-ZC0I(JL,JK)) * PSEC(JL)+ ZC0I(JL,JK) * 1.66_JPRB
+    PRMU0(JL,JK) = _ONE_/ZMUE
+
+
+!     ------------------------------------------------------------------
+
+!*         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+!               ----------------------------------------------------
+
+
+    ZGAP = PCGAZ(JL,JKM1)
+    ZBMU0 = _HALF_ - 0.75_JPRB * ZGAP / ZMUE
+    ZWW = PPIZAZ(JL,JKM1)
+    ZTO = PTAUAZ(JL,JKM1)
+    ZDEN = _ONE_ + (_ONE_ - ZWW + ZBMU0 * ZWW) * ZTO * ZMUE &
+     &+ (1-ZWW) * (_ONE_ - ZWW +_TWO_*ZBMU0*ZWW)*ZTO*ZTO*ZMUE*ZMUE
+    PRAY1(JL,JKM1) = ZBMU0 * ZWW * ZTO * ZMUE / ZDEN
+    PTRA1(JL,JKM1) = _ONE_ / ZDEN
+
+    ZMU1 = _HALF_
+    ZBMU1 = _HALF_ - 0.75_JPRB * ZGAP * ZMU1
+    ZDEN1= _ONE_ + (_ONE_ - ZWW + ZBMU1 * ZWW) * ZTO / ZMU1 &
+     &+ (1-ZWW) * (_ONE_ - ZWW +_TWO_*ZBMU1*ZWW)*ZTO*ZTO/ZMU1/ZMU1
+    PRAY2(JL,JKM1) = ZBMU1 * ZWW * ZTO / ZMU1 / ZDEN1
+    PTRA2(JL,JKM1) = _ONE_ / ZDEN1
+
+
+
+    PREFZ(JL,1,JK) = (PRAY1(JL,JKM1)&
+     &+ PREFZ(JL,1,JKM1) * PTRA1(JL,JKM1)&
+     &* PTRA2(JL,JKM1)&
+     &/ (_ONE_-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1)))
+
+    ZTR(JL,1,JKM1) = (PTRA1(JL,JKM1)&
+     &/ (_ONE_-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1)))
+
+    PREFZ(JL,2,JK) = (PRAY1(JL,JKM1)&
+     &+ PREFZ(JL,2,JKM1) * PTRA1(JL,JKM1)&
+     &* PTRA2(JL,JKM1) )
+
+    ZTR(JL,2,JKM1) = PTRA1(JL,JKM1)
+
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZMUE = (_ONE_-ZC0I(JL,1))*PSEC(JL)+ZC0I(JL,1)*1.66_JPRB
+  PRMU0(JL,1)=_ONE_/ZMUE
+  PTRCLR(JL)=_ONE_-ZC0I(JL,1)
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!                 -------------------------------------------------
+
+IF (NSW <= 4) THEN
+  INU1=1
+ELSE IF (NSW == 6) THEN
+  INU1=3
+END IF    
+
+IF (KNU <= INU1) THEN
+  JAJ = 2
+  DO JL = KIDIA,KFDIA
+    PRJ(JL,JAJ,KLEV+1) = _ONE_
+    PRK(JL,JAJ,KLEV+1) = PREFZ(JL, 1,KLEV+1)
+  ENDDO
+
+  DO JK = 1 , KLEV
+    JKL = KLEV+1 - JK
+    JKLP1 = JKL + 1
+    DO JL = KIDIA,KFDIA
+      ZRE11= PRJ(JL,JAJ,JKLP1) * ZTR(JL,  1,JKL)
+      PRJ(JL,JAJ,JKL) = ZRE11
+      PRK(JL,JAJ,JKL) = ZRE11 * PREFZ(JL,  1,JKL)
+    ENDDO
+  ENDDO
+
+ELSE
+
+  DO JAJ = 1 , 2
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JAJ,KLEV+1) = _ONE_
+      PRK(JL,JAJ,KLEV+1) = PREFZ(JL,JAJ,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      JKL = KLEV+1 - JK
+      JKLP1 = JKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11= PRJ(JL,JAJ,JKLP1) * ZTR(JL,JAJ,JKL)
+        PRJ(JL,JAJ,JKL) = ZRE11
+        PRK(JL,JAJ,JKL) = ZRE11 * PREFZ(JL,JAJ,JKL)
+      ENDDO
+    ENDDO
+  ENDDO
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SWCLR
Index: LMDZ5/branches/testing/libf/phymar/swde.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swde.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swde.F90	(revision 2160)
@@ -0,0 +1,179 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE SWDE &
+  &( KIDIA, KFDIA, KLON &
+  &, PGG  , PREF , PRMUZ, PTO1, PW &
+  &, PRE1 , PRE2 , PTR1 , PTR2 &
+  &)
+
+!**** *SWDE* - DELTA-EDDINGTON IN A CLOUDY LAYER
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY
+!     LAYER USING THE DELTA-EDDINGTON'S APPROXIMATION.
+
+!**   INTERFACE.
+!     ----------
+!          *SWDE* IS CALLED BY *SWR*, *SWNI*
+
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PGG    : (KLON)             ; ASSYMETRY FACTOR
+! PREF   : (KLON)             ; REFLECTIVITY OF THE UNDERLYING LAYER
+! PRMUZ  : (KLON)             ; COSINE OF SOLAR ZENITH ANGLE
+! PTO1   : (KLON)             ; OPTICAL THICKNESS
+! PW     : (KLON)             ; SINGLE SCATTERING ALBEDO
+!     ==== OUTPUTS ===
+! PRE1   : (KLON)             ; LAYER REFLECTIVITY ASSUMING NO
+!                             ; REFLECTION FROM UNDERLYING LAYER
+! PTR1   : (KLON)             ; LAYER TRANSMISSIVITY ASSUMING NO
+!                             ; REFLECTION FROM UNDERLYING LAYER
+! PRE2   : (KLON)             ; LAYER REFLECTIVITY ASSUMING
+!                             ; REFLECTION FROM UNDERLYING LAYER
+! PTR2   : (KLON)             ; LAYER TRANSMISSIVITY ASSUMING
+!                             ; REFLECTION FROM UNDERLYING LAYER
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          STANDARD DELTA-EDDINGTON LAYER CALCULATIONS.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!                   96-05-30 Michel Deque (security in EXP()) 
+!                   08-03-28 Hubert Gallee(lower/upper limit on PTR1,2)
+    
+!     ------------------------------------------------------------------
+
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+
+REAL_B :: PGG(KLON),PREF(KLON),PRMUZ(KLON),PTO1(KLON),PW(KLON)
+REAL_B :: PRE1(KLON),PRE2(KLON),PTR1(KLON),PTR2(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JL
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZA11, ZA12, ZA13, ZA21, ZA22, ZA23, ZALPHA,&
+          &ZAM2B, ZAP2B, ZARG, ZARG2, ZB21, ZB22, ZB23, &
+          &ZBETA, ZC1A, ZC1B, ZC2A, ZC2B, ZDENA, ZDENB, &
+          &ZDT, ZEXKM, ZEXKP, ZEXMU0, ZFF, ZGP, ZRI0A, &
+          &ZRI0B, ZRI0C, ZRI0D, ZRI1A, ZRI1B, ZRI1C, &
+          &ZRI1D, ZRK, ZRM2, ZRP, ZTOP, ZWCP, ZWM, ZX1, &
+          &ZX2, ZXM2P, ZXP2P
+
+
+
+!     ------------------------------------------------------------------
+
+!*         1.      DELTA-EDDINGTON CALCULATIONS
+
+
+DO JL   =   KIDIA,KFDIA
+
+!*         1.1     SET UP THE DELTA-MODIFIED PARAMETERS
+
+
+  ZFF = PGG(JL)*PGG(JL)
+  ZGP = PGG(JL)/(_ONE_+PGG(JL))
+  ZTOP = (_ONE_- PW(JL) * ZFF) * PTO1(JL)
+  ZWCP = (1-ZFF)* PW(JL) /(_ONE_- PW(JL) * ZFF)
+  ZDT = _TWO_/3._JPRB
+  ZX1 = _ONE_-ZWCP*ZGP
+  ZWM = _ONE_-ZWCP
+  ZRM2 =  PRMUZ(JL) * PRMUZ(JL)
+  ZRK = SQRT(3._JPRB*ZWM*ZX1)
+  ZX2 = 4._JPRB*(_ONE_-ZRK*ZRK*ZRM2)
+  ZRP=ZRK/ZX1
+  ZALPHA = 3._JPRB*ZWCP*ZRM2*(_ONE_+ZGP*ZWM)/ZX2
+  ZBETA = 3._JPRB*ZWCP* PRMUZ(JL) *(_ONE_+3._JPRB*ZGP*ZRM2*ZWM)/ZX2
+!     ZARG=MIN(ZTOP/PRMUZ(JL),200.)
+  ZARG=MAX(-085._JPRB,MIN(ZTOP/PRMUZ(JL),085._JPRB))
+  ZEXMU0=EXP(-ZARG)
+  ZARG2=MIN(ZRK*ZTOP,085._JPRB)
+  ZEXKP=EXP(ZARG2)
+  ZEXKM = _ONE_/ZEXKP
+  ZXP2P = _ONE_+ZDT*ZRP
+  ZXM2P = _ONE_-ZDT*ZRP
+  ZAP2B = ZALPHA+ZDT*ZBETA
+  ZAM2B = ZALPHA-ZDT*ZBETA
+
+!*         1.2     WITHOUT REFLECTION FROM THE UNDERLYING LAYER
+
+
+  ZA11 = ZXP2P
+  ZA12 = ZXM2P
+  ZA13 = ZAP2B
+  ZA22 = ZXP2P*ZEXKP
+  ZA21 = ZXM2P*ZEXKM
+  ZA23 = ZAM2B*ZEXMU0
+  ZDENA = ZA11 * ZA22 - ZA21 * ZA12
+  ZC1A = (ZA22*ZA13-ZA12*ZA23)/ZDENA
+  ZC2A = (ZA11*ZA23-ZA21*ZA13)/ZDENA
+  ZRI0A = ZC1A+ZC2A-ZALPHA
+  ZRI1A = ZRP*(ZC1A-ZC2A)-ZBETA
+  PRE1(JL) = (ZRI0A-ZDT*ZRI1A)/ PRMUZ(JL)
+  ZRI0B = ZC1A*ZEXKM+ZC2A*ZEXKP-ZALPHA*ZEXMU0
+  ZRI1B = ZRP*(ZC1A*ZEXKM-ZC2A*ZEXKP)-ZBETA*ZEXMU0
+  PTR1(JL) = ZEXMU0+(ZRI0B+ZDT*ZRI1B)/ PRMUZ(JL)
+
+  PRE1(JL) = MAX(_ZERO_,MIN(PRE1(JL),_ONE_))   ! lower/upper limit (Hubert Gallee, LGGE, 28-03-2008)
+  PTR1(JL) = MAX(_ZERO_,MIN(PTR1(JL),_ONE_))   ! lower/upper limit (Hubert Gallee, LGGE, 28-03-2008)
+
+!*         1.3     WITH REFLECTION FROM THE UNDERLYING LAYER
+
+
+  ZB21 = ZA21- PREF(JL) *ZXP2P*ZEXKM
+  ZB22 = ZA22- PREF(JL) *ZXM2P*ZEXKP
+  ZB23 = ZA23- PREF(JL) *ZEXMU0*(ZAP2B - PRMUZ(JL) )
+  ZDENB = ZA11 * ZB22 - ZB21 * ZA12
+  ZC1B = (ZB22*ZA13-ZA12*ZB23)/ZDENB
+  ZC2B = (ZA11*ZB23-ZB21*ZA13)/ZDENB
+  ZRI0C = ZC1B+ZC2B-ZALPHA
+  ZRI1C = ZRP*(ZC1B-ZC2B)-ZBETA
+  PRE2(JL) = (ZRI0C-ZDT*ZRI1C) / PRMUZ(JL)
+  ZRI0D = ZC1B*ZEXKM + ZC2B*ZEXKP - ZALPHA*ZEXMU0
+  ZRI1D = ZRP * (ZC1B*ZEXKM - ZC2B*ZEXKP) - ZBETA*ZEXMU0
+  PTR2(JL) = ZEXMU0 + (ZRI0D + ZDT*ZRI1D) / PRMUZ(JL)
+
+  PRE2(JL) = MAX(_ZERO_,MIN(PRE2(JL),_ONE_))   ! lower/upper limit (Hubert Gallee, LGGE, 28-03-2008)
+  PTR2(JL) = MAX(_ZERO_,MIN(PTR2(JL),_ONE_))   ! lower/upper limit (Hubert Gallee, LGGE, 28-03-2008)
+
+ENDDO
+RETURN
+END SUBROUTINE SWDE
Index: LMDZ5/branches/testing/libf/phymar/swni.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swni.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swni.F90	(revision 2160)
@@ -0,0 +1,551 @@
+SUBROUTINE SWNI &
+ &( KIDIA , KFDIA , KLON  , KLEV , KAER  , KNU &
+ &, PAER  , PAKI  , PALBD , PALBP, PCG   , PCLD, PCLEAR &
+ &, PDSIG , POMEGA, POZ   , PRMU , PSEC  , PTAU &
+ &, PUD   , PWV   , PQS &
+ &, PFDOWN, PFUP  , PCDOWN, PCUP , PSUDU2 &
+ &)
+
+!**** *SWNI* - SHORTWAVE RADIATION, NEAR-INFRARED SPECTRAL INTERVALS
+
+!     PURPOSE.
+!     --------
+
+!          COMPUTES THE SHORTWAVE RADIATION FLUXES IN THE NEAR-INFRARED 
+!     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SWNI* IS CALLED FROM *SW*.
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING TO
+!     CONTINUUM SCATTERING
+!          2. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING FOR
+!     A GREY MOLECULAR ABSORPTION
+!          3. LAPLACE TRANSFORM ON THE PREVIOUS TO GET EFFECTIVE AMOUNTS
+!     OF ABSORBERS
+!          4. APPLY H2O AND U.M.G. TRANSMISSION FUNCTIONS
+!          5. MULTIPLY BY OZONE TRANSMISSION FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWCLR*, *SWR*, *SWDE*, *SWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        94-11-15   J.-J. MORCRETTE    DIRECT/DIFFUSE ALBEDO
+!        95-12-07   J.-J. MORCRETTE    NEAR-INFRARED SW
+!        990128     JJMorcrette        Sunshine duration
+!        99-05-25   JJMorcrette        Revised aerosols
+
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : RRAY     ,RSUN     ,RSWCE    ,RSWCP
+USE YOERAD   , ONLY : NSW
+USE YOERDU   , ONLY : REPLOG
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KAER
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KKIND
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+
+!#include "yoeaer.h"
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PAER(KLON,6,KLEV)    , PAKI(KLON,2,NSW)&
+  &,  PALBD(KLON,NSW)      , PALBP(KLON,NSW)&
+  &,  PCG(KLON,NSW,KLEV)   , PCLD(KLON,KLEV)&
+  &,  PCLEAR(KLON)         , PDSIG(KLON,KLEV)&
+  &,  POMEGA(KLON,NSW,KLEV), POZ(KLON,KLEV)&
+  &,  PQS(KLON,KLEV)&
+  &,  PRMU(KLON)           , PSEC(KLON)&
+  &,  PTAU(KLON,NSW,KLEV)  , PUD(KLON,5,KLEV+1)&
+  &,  PWV(KLON,KLEV)
+
+REAL_B :: PFDOWN(KLON,KLEV+1)  , PFUP(KLON,KLEV+1)&
+  &,  PCDOWN(KLON,KLEV+1)  , PCUP(KLON,KLEV+1)&
+  &,  PSUDU2(KLON)
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+INTEGER_M :: IIND2(2), IIND3(3)
+REAL_B :: ZCGAZ(KLON,KLEV)  , ZDIFF(KLON)         , ZDIRF(KLON)&
+  &,  ZFD(KLON,KLEV+1)  , ZFU(KLON,KLEV+1) &
+  &,  ZG(KLON)          , ZGG(KLON)
+REAL_B :: ZPIZAZ(KLON,KLEV)&
+  &,  ZRAYL(KLON)       , ZRAY1(KLON,KLEV+1)  , ZRAY2(KLON,KLEV+1)&
+  &,  ZREF(KLON)        , ZREFZ(KLON,2,KLEV+1)&
+  &,  ZRE1(KLON)        , ZRE2(KLON)&
+  &,  ZRJ(KLON,6,KLEV+1), ZRJ0(KLON,6,KLEV+1)&
+  &,  ZRK(KLON,6,KLEV+1), ZRK0(KLON,6,KLEV+1)&
+  &,  ZRL(KLON,8)&
+  &,  ZRMUE(KLON,KLEV+1), ZRMU0(KLON,KLEV+1)  , ZRMUZ(KLON)&
+  &,  ZRNEB(KLON)       , ZRUEF(KLON,8)       , ZR1(KLON) &
+  &,  ZR2(KLON,2)       , ZR3(KLON,3)         , ZR4(KLON)&
+  &,  ZR21(KLON)        , ZR22(KLON)
+REAL_B :: ZS(KLON)&
+  &,  ZTAUAZ(KLON,KLEV) , ZTO1(KLON)          , ZTR(KLON,2,KLEV+1)&
+  &,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
+  &,  ZTRCLD(KLON)      , ZTRCLR(KLON)&
+  &,  ZTR1(KLON)        , ZTR2(KLON)&
+  &,  ZW(KLON)          , ZW1(KLON)           , ZW2(KLON,2)&
+  &,  ZW3(KLON,3)       , ZW4(KLON)           , ZW5(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IABS, IKL, IKM1, JABS, JAJ, JAJP, JK, JKKI,&
+             &JKKP4, JKL, JKLP1, JKM1, JL, JN, JN2J, JREF
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZAA, ZBB, ZCNEB, ZRE11, ZRKI, ZRMUM1, ZWH2O
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     NEAR-INFRARED SPECTRAL INTERVAL (0.68-4.00 MICRON)
+!                 --------------------------------------------------
+
+
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  ZRMUM1 = _ONE_ - PRMU(JL)
+  ZRAYL(JL) =  RRAY(KNU,1) + ZRMUM1   * (RRAY(KNU,2) + ZRMUM1 &
+   &* (RRAY(KNU,3) + ZRMUM1   * (RRAY(KNU,4) + ZRMUM1 &
+   &* (RRAY(KNU,5) + ZRMUM1   *  RRAY(KNU,6)     ))))
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+
+CALL SWCLR &
+  &( KIDIA , KFDIA , KLON ,  KLEV , KAER , KNU &
+  &, PAER  , PALBP , PDSIG , ZRAYL, PSEC &
+  &, ZCGAZ , ZPIZAZ, ZRAY1 , ZRAY2, ZREFZ, ZRJ0 &
+  &, ZRK0  , ZRMU0 , ZTAUAZ, ZTRA1, ZTRA2, ZTRCLR &
+  &)
+
+
+!*         2.2   CLOUDY FRACTION OF THE COLUMN
+!                -----------------------------
+
+
+CALL SWR &
+  &( KIDIA , KFDIA , KLON , KLEV  , KNU &
+  &, PALBD , PCG   , PCLD , POMEGA, PSEC , PTAU &
+  &, ZCGAZ , ZPIZAZ, ZRAY1, ZRAY2 , ZREFZ, ZRJ  , ZRK, ZRMUE &
+  &, ZTAUAZ, ZTRA1 , ZTRA2, ZTRCLD &
+  &)
+
+
+!     ------------------------------------------------------------------
+
+!*         3.    SCATTERING CALCULATIONS WITH GREY MOLECULAR ABSORPTION
+!                ------------------------------------------------------
+
+
+JN = 2
+
+DO JABS=1,2
+
+
+!*         3.1  SURFACE CONDITIONS
+!               ------------------
+
+
+  DO JL = KIDIA,KFDIA
+    ZREFZ(JL,2,1) = PALBD(JL,KNU)
+    ZREFZ(JL,1,1) = PALBD(JL,KNU)
+  ENDDO
+
+
+!*         3.2  INTRODUCING CLOUD EFFECTS
+!               -------------------------
+
+
+  DO JK = 2 , KLEV+1
+    JKM1 = JK - 1
+    IKL=KLEV+1-JKM1
+    DO JL = KIDIA,KFDIA
+      ZRNEB(JL) = PCLD(JL,JKM1)
+      IF (JABS == 1.AND. ZRNEB(JL) > _TWO_*REPLOG) THEN
+        ZWH2O=MAX(PWV(JL,IKL),REPLOG)
+        ZCNEB=MAX(REPLOG,MIN(ZRNEB(JL),_ONE_-REPLOG))
+        ZBB=PUD(JL,JABS,JKM1)*PQS(JL,IKL)/ZWH2O
+        ZAA=MAX((PUD(JL,JABS,JKM1)-ZCNEB*ZBB)/(_ONE_-ZCNEB),REPLOG)
+!-- just to test Box-type computations
+!        ZAA=PUD(JL,JABS,JKM1)
+!        ZBB=ZAA
+      ELSE
+        ZAA=PUD(JL,JABS,JKM1)
+        ZBB=ZAA
+      ENDIF
+      ZRKI = PAKI(JL,JABS,KNU)
+      ZS(JL) = EXP(-ZRKI * ZAA * 1.66_JPRB)
+      ZG(JL) = EXP(-ZRKI * ZAA / ZRMUE(JL,JK))
+      ZTR1(JL) = _ZERO_
+      ZRE1(JL) = _ZERO_
+      ZTR2(JL) = _ZERO_
+      ZRE2(JL) = _ZERO_
+
+      ZW(JL)= POMEGA(JL,KNU,JKM1)
+      ZTO1(JL) = PTAU(JL,KNU,JKM1) / ZW(JL)&
+       &+ ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)&
+       &+ ZBB * ZRKI
+
+      ZR21(JL) = PTAU(JL,KNU,JKM1) + ZTAUAZ(JL,JKM1)
+      ZR22(JL) = PTAU(JL,KNU,JKM1) / ZR21(JL)
+      ZGG(JL) = ZR22(JL) * PCG(JL,KNU,JKM1)&
+       &+ (_ONE_ - ZR22(JL)) * ZCGAZ(JL,JKM1)
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+      ZREF(JL) = ZREFZ(JL,1,JKM1)
+      ZRMUZ(JL) = ZRMUE(JL,JK)
+    ENDDO
+
+    CALL SWDE ( KIDIA, KFDIA, KLON &
+     &, ZGG  , ZREF , ZRMUZ, ZTO1, ZW &
+     &, ZRE1 , ZRE2 , ZTR1 , ZTR2     )
+
+    DO JL = KIDIA,KFDIA
+
+      ZREFZ(JL,2,JK) = (_ONE_-ZRNEB(JL)) * (ZRAY1(JL,JKM1)&
+       &+ ZREFZ(JL,2,JKM1) * ZTRA1(JL,JKM1)&
+       &* ZTRA2(JL,JKM1) ) * ZG(JL) * ZS(JL)&
+       &+ ZRNEB(JL) * ZRE1(JL)
+
+      ZTR(JL,2,JKM1)=ZRNEB(JL)*ZTR1(JL)&
+       &+ (ZTRA1(JL,JKM1)) * ZG(JL) * (_ONE_-ZRNEB(JL))
+
+      ZREFZ(JL,1,JK)=(_ONE_-ZRNEB(JL))*(ZRAY1(JL,JKM1)&
+       &+ZREFZ(JL,1,JKM1)*ZTRA1(JL,JKM1)*ZTRA2(JL,JKM1)&
+       &/(_ONE_-ZRAY2(JL,JKM1)*ZREFZ(JL,1,JKM1)))*ZG(JL)*ZS(JL)&
+       &+ ZRNEB(JL) * ZRE2(JL)
+
+      ZTR(JL,1,JKM1)= ZRNEB(JL) * ZTR2(JL)&
+       &+ (ZTRA1(JL,JKM1)/(_ONE_-ZRAY2(JL,JKM1)&
+       &* ZREFZ(JL,1,JKM1)))&
+       &* ZG(JL) * (_ONE_ -ZRNEB(JL))
+
+    ENDDO
+  ENDDO
+
+!*         3.3  REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!               -------------------------------------------------
+
+
+  DO JREF=1,2
+
+    JN = JN + 1
+
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JN,KLEV+1) = _ONE_
+      ZRK(JL,JN,KLEV+1) = ZREFZ(JL,JREF,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      JKL = KLEV+1 - JK
+      JKLP1 = JKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11 = ZRJ(JL,JN,JKLP1) * ZTR(JL,JREF,JKL)
+        ZRJ(JL,JN,JKL) = ZRE11
+        ZRK(JL,JN,JKL) = ZRE11 * ZREFZ(JL,JREF,JKL)
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         4.    INVERT GREY AND CONTINUUM FLUXES
+!                --------------------------------
+
+
+
+!*         4.1   UPWARD (ZRK) AND DOWNWARD (ZRJ) PSEUDO-FLUXES
+!                ---------------------------------------------
+
+
+DO JK = 1 , KLEV+1
+  DO JAJ = 1 , 5 , 2
+    JAJP = JAJ + 1
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JAJ,JK)=        ZRJ(JL,JAJ,JK) - ZRJ(JL,JAJP,JK)
+      ZRK(JL,JAJ,JK)=        ZRK(JL,JAJ,JK) - ZRK(JL,JAJP,JK)
+      ZRJ(JL,JAJ,JK)= MAX( ZRJ(JL,JAJ,JK) , REPLOG )
+      ZRK(JL,JAJ,JK)= MAX( ZRK(JL,JAJ,JK) , REPLOG )
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV+1
+  DO JAJ = 2 , 6 , 2
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JAJ,JK)= MAX( ZRJ(JL,JAJ,JK) , REPLOG )
+      ZRK(JL,JAJ,JK)= MAX( ZRK(JL,JAJ,JK) , REPLOG )
+    ENDDO
+  ENDDO
+ENDDO
+
+!*         4.2    EFFECTIVE ABSORBER AMOUNTS BY INVERSE LAPLACE
+!                 ---------------------------------------------
+
+
+DO JK = 1 , KLEV+1
+  JKKI = 1
+  DO JAJ = 1 , 2
+    IIND2(1)=JAJ
+    IIND2(2)=JAJ
+    DO JN = 1 , 2
+      JN2J = JN + 2 * JAJ
+      JKKP4 = JKKI + 4
+
+!*         4.2.1  EFFECTIVE ABSORBER AMOUNTS
+!                 --------------------------
+
+
+      DO JL = KIDIA,KFDIA
+        ZW2(JL,1) = LOG( ZRJ(JL,JN,JK) / ZRJ(JL,JN2J,JK))/ PAKI(JL,JAJ,KNU)
+        ZW2(JL,2) = LOG( ZRK(JL,JN,JK) / ZRK(JL,JN2J,JK))/ PAKI(JL,JAJ,KNU)
+      ENDDO
+
+!*         4.2.2  TRANSMISSION FUNCTION
+!                 ---------------------
+
+
+      KKIND=2
+      CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, KKIND, IIND2 &
+       &, ZW2 &
+       &, ZR2                              )
+
+      DO JL = KIDIA,KFDIA
+        ZRL(JL,JKKI) = ZR2(JL,1)
+        ZRUEF(JL,JKKI) = ZW2(JL,1)
+        ZRL(JL,JKKP4) = ZR2(JL,2)
+        ZRUEF(JL,JKKP4) = ZW2(JL,2)
+      ENDDO
+
+      JKKI=JKKI+1
+    ENDDO
+  ENDDO
+
+!*         4.3    UPWARD AND DOWNWARD FLUXES WITH H2O AND UMG ABSORPTION
+!                 ------------------------------------------------------
+
+
+  DO JL = KIDIA,KFDIA
+    PFDOWN(JL,JK) = ZRJ(JL,1,JK) * ZRL(JL,1) * ZRL(JL,3)&
+     &+ ZRJ(JL,2,JK) * ZRL(JL,2) * ZRL(JL,4)
+    PFUP(JL,JK)   = ZRK(JL,1,JK) * ZRL(JL,5) * ZRL(JL,7)&
+     &+ ZRK(JL,2,JK) * ZRL(JL,6) * ZRL(JL,8)
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         5.    MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
+!                ----------------------------------------
+
+
+
+!*         5.1   DOWNWARD FLUXES
+!                ---------------
+
+
+JAJ = 2
+IIND3(1)=1
+IIND3(2)=2
+IIND3(3)=3
+
+DO JL = KIDIA,KFDIA
+  ZW3(JL,1)=_ZERO_
+  ZW3(JL,2)=_ZERO_
+  ZW3(JL,3)=_ZERO_
+  ZW4(JL)  =_ZERO_
+  ZW5(JL)  =_ZERO_
+  ZR4(JL)  =_ONE_
+  ZFD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1)
+ENDDO
+DO JK = 1 , KLEV
+  IKL = KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ZW4(JL)  =ZW4(JL)  +PUD(JL,4,IKL)/ZRMU0(JL,IKL)
+    ZW5(JL)  =ZW5(JL)  +PUD(JL,5,IKL)/ZRMU0(JL,IKL)
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 3, IIND3 &
+   &, ZW3 &
+   &, ZR3                              )
+
+  DO JL = KIDIA,KFDIA
+    ZR4(JL) = EXP(-RSWCE(KNU)*ZW4(JL)-RSWCP(KNU)*ZW5(JL))
+    ZFD(JL,IKL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL)* ZRJ0(JL,JAJ,IKL)
+  ENDDO
+ENDDO
+
+DO JL=KIDIA,KFDIA
+  ZDIFF(JL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL)*ZTRCLD(JL)
+  ZDIRF(JL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL)*ZTRCLR(JL)
+  PSUDU2(JL) = ((_ONE_-PCLEAR(JL)) * ZDIFF(JL)&
+   &+PCLEAR(JL) * ZDIRF(JL)) * RSUN(KNU)
+ENDDO
+
+
+!*         5.2   UPWARD FLUXES
+!                -------------
+
+
+DO JL = KIDIA,KFDIA
+  ZFU(JL,1) = ZFD(JL,1)*PALBP(JL,KNU)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IKM1=JK-1
+  DO JL = KIDIA,KFDIA
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKM1)*1.66_JPRB
+    ZW4(JL)  =ZW4(JL)  +PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL)  =ZW5(JL)  +PUD(JL,5,IKM1)*1.66_JPRB
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 3, IIND3 &
+   &, ZW3 &
+   &, ZR3                              )
+
+  DO JL = KIDIA,KFDIA
+    ZR4(JL) = EXP(-RSWCE(KNU)*ZW4(JL)-RSWCP(KNU)*ZW5(JL))
+    ZFU(JL,JK) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL)* ZRK0(JL,JAJ,JK)
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         6.     INTRODUCTION OF OZONE AND H2O CONTINUUM ABSORPTION
+!                 --------------------------------------------------
+
+IABS=3
+
+!*         6.1    DOWNWARD FLUXES
+!                 ---------------
+
+DO JL = KIDIA,KFDIA
+  ZW1(JL)=_ZERO_
+  ZW4(JL)=_ZERO_
+  ZW5(JL)=_ZERO_
+  ZR1(JL)=_ZERO_
+  PFDOWN(JL,KLEV+1) = ((_ONE_-PCLEAR(JL))*PFDOWN(JL,KLEV+1)&
+   &+ PCLEAR(JL) * ZFD(JL,KLEV+1)) * RSUN(KNU)
+  PCDOWN(JL,KLEV+1) = ZFD(JL,KLEV+1) * RSUN(KNU)
+ENDDO
+
+DO JK = 1 , KLEV
+  IKL=KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZW1(JL) = ZW1(JL)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+    ZW4(JL) = ZW4(JL)+PUD(JL,4,IKL)/ZRMUE(JL,IKL)
+    ZW5(JL) = ZW5(JL)+PUD(JL,5,IKL)/ZRMUE(JL,IKL)
+    ZR4(JL) = EXP(-RSWCE(KNU)*ZW4(JL)-RSWCP(KNU)*ZW5(JL))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PFDOWN(JL,IKL) = ((_ONE_-PCLEAR(JL))*ZR1(JL)*ZR4(JL)*PFDOWN(JL,&
+     &IKL)&
+     &+PCLEAR(JL)*ZFD(JL,IKL)) * RSUN(KNU)
+    PCDOWN(JL,IKL) = ZFD(JL,IKL) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+
+
+!*         6.2    UPWARD FLUXES
+!                 -------------
+
+DO JL = KIDIA,KFDIA
+  PFUP(JL,1) = ((_ONE_-PCLEAR(JL))*ZR1(JL)*ZR4(JL) * PFUP(JL,1)&
+   &+PCLEAR(JL)*ZFU(JL,1)) * RSUN(KNU)
+  PCUP(JL,1) = ZFU(JL,1) * RSUN(KNU)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IKM1=JK-1
+  DO JL = KIDIA,KFDIA
+    ZW1(JL) = ZW1(JL)+POZ(JL  ,IKM1)*1.66_JPRB
+    ZW4(JL) = ZW4(JL)+PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL) = ZW5(JL)+PUD(JL,5,IKM1)*1.66_JPRB
+    ZR4(JL) = EXP(-RSWCE(KNU)*ZW4(JL)-RSWCP(KNU)*ZW5(JL))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PFUP(JL,JK) = ((_ONE_-PCLEAR(JL))*ZR1(JL)*ZR4(JL) * PFUP(JL,JK)&
+     &+PCLEAR(JL)*ZFU(JL,JK)) * RSUN(KNU)
+    PCUP(JL,JK) = ZFU(JL,JK) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SWNI
Index: LMDZ5/branches/testing/libf/phymar/swr.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swr.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swr.F90	(revision 2160)
@@ -0,0 +1,403 @@
+SUBROUTINE SWR &
+ &( KIDIA , KFDIA , KLON , KLEV  , KNU &
+ &, PALBD , PCG   , PCLD , POMEGA, PSEC , PTAU &
+ &, PCGAZ , PPIZAZ, PRAY1, PRAY2 , PREFZ, PRJ  , PRK , PRMUE &
+ &, PTAUAZ, PTRA1 , PTRA2, PTRCLD &
+ &)
+
+!**** *SWR* - CONTINUUM SCATTERING COMPUTATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY IN CASE OF
+!     CONTINUUM SCATTERING
+
+!**   INTERFACE.
+!     ----------
+
+!          *SWR* IS CALLED EITHER FROM *SW1S*
+!                              OR FROM *SWNI*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES CONTINUUM FLUXES CORRESPONDING TO AEROSOL
+!     OR/AND RAYLEIGH SCATTERING (NO MOLECULAR GAS ABSORPTION)
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWDE*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        Ph. DANDIN Meteo-France 05-96 : Effect of cloud layer
+!        JJMorcrette 990128 : sunshine duration
+!        JJMorcrette 001218 : 6 spectral intervals
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOERAD   , ONLY : NOVLP    ,NSW
+USE YOECLD   , ONLY : REPSEC
+USE YOEOVLP  , ONLY : RA1OVLP
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PALBD(KLON,NSW)      , PCG(KLON,NSW,KLEV)&
+  &,  PCLD(KLON,KLEV)&
+  &,  POMEGA(KLON,NSW,KLEV)&
+  &,  PSEC(KLON)           , PTAU(KLON,NSW,KLEV)
+
+REAL_B :: PRAY1(KLON,KLEV+1)   , PRAY2(KLON,KLEV+1)&
+  &,  PREFZ(KLON,2,KLEV+1) , PRJ(KLON,6,KLEV+1)&
+  &,  PRK(KLON,6,KLEV+1)   , PRMUE(KLON,KLEV+1)&
+  &,  PCGAZ(KLON,KLEV)     , PPIZAZ(KLON,KLEV)&
+  &,  PTAUAZ(KLON,KLEV)&
+  &,  PTRA1(KLON,KLEV+1)   , PTRA2(KLON,KLEV+1)&
+  &,  PTRCLD(KLON)
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZC1I(KLON,KLEV+1)    , ZCLEQ(KLON,KLEV)&
+  &,  ZCLEAR(KLON)         , ZCLOUD(KLON) &
+  &,  ZGG(KLON)            , ZREF(KLON)&
+  &,  ZRE1(KLON)           , ZRE2(KLON)&
+  &,  ZRMUZ(KLON)          , ZRNEB(KLON)&
+  &,  ZR21(KLON)           , ZR22(KLON)&
+  &,  ZR23(KLON)           , ZSS1(KLON)&
+  &,  ZTO1(KLON)           , ZTR(KLON,2,KLEV+1)&
+  &,  ZTR1(KLON)           , ZTR2(KLON)&
+  &,  ZW(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IKL, IKLP1, JA, JAJ, JK, JKM1, JL, INU1
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZBMU0, ZBMU1, ZCORAE, ZCORCD, ZDEN, ZDEN1,&
+          &ZFACOA, ZFACOC, ZGAP, ZMU1, ZMUE, ZRE11, &
+          &ZTO, ZWW, ZALPHA1
+
+
+
+
+!     ------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+
+DO JK = 1 , KLEV+1
+  DO JA = 1 , 6
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JA,JK) = _ZERO_
+      PRK(JL,JA,JK) = _ZERO_
+    ENDDO
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+!                ----------------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  ZR23(JL) = _ZERO_
+  ZC1I(JL,KLEV+1) = _ZERO_
+  ZCLEAR(JL) = _ONE_
+  ZCLOUD(JL) = _ZERO_
+ENDDO
+
+JK = 1
+IKL = KLEV+1 - JK
+IKLP1 = IKL + 1
+DO JL = KIDIA,KFDIA
+  ZFACOA = _ONE_ - PPIZAZ(JL,IKL)*PCGAZ(JL,IKL)*PCGAZ(JL,IKL)
+  ZFACOC = _ONE_ - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+  ZCORAE = ZFACOA * PTAUAZ(JL,IKL) * PSEC(JL)
+  ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+  ZR21(JL) = EXP(MIN(-ZCORAE,500.)   )
+  ZR22(JL) = EXP(MIN(-ZCORCD,500.)   )
+  ZSS1(JL) = PCLD(JL,IKL)*(_ONE_-ZR21(JL)*ZR22(JL))&
+   &+ (_ONE_-PCLD(JL,IKL))*(_ONE_-ZR21(JL))
+  ZCLEQ(JL,IKL) = ZSS1(JL)
+
+  IF (NOVLP == 1) THEN
+!* maximum-random      
+    ZCLEAR(JL) = ZCLEAR(JL)&
+     &*(_ONE_-MAX(ZSS1(JL),ZCLOUD(JL)))&
+     &/(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPSEC))
+    ZC1I(JL,IKL) = _ONE_ - ZCLEAR(JL)
+    ZCLOUD(JL) = ZSS1(JL)
+  ELSEIF (NOVLP == 2) THEN
+!* maximum
+    ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
+    ZC1I(JL,IKL) = ZCLOUD(JL)
+  ELSEIF (NOVLP == 3) THEN
+!* random
+    ZCLEAR(JL) = ZCLEAR(JL)*(_ONE_ - ZSS1(JL))
+    ZCLOUD(JL) = _ONE_ - ZCLEAR(JL)
+    ZC1I(JL,IKL) = ZCLOUD(JL)
+  ELSEIF (NOVLP == 4) THEN
+!* Hogan & Illingworth, 2001  
+    ZALPHA1=RA1OVLP(KLEV+1-JK)
+    ZCLEAR(JL)=ZCLEAR(JL)*( &
+      & ZALPHA1*(_ONE_-MAX(ZSS1(JL),ZCLOUD(JL))) &
+      &        /(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPSEC)) &
+      & +(_ONE_-ZALPHA1)*(_ONE_-ZSS1(JL)) )
+    ZC1I(JL,IKL) = _ONE_ - ZCLEAR(JL) 
+    ZCLOUD(JL) = ZSS1(JL)
+  ENDIF
+ENDDO
+
+DO JK = 2 , KLEV
+  IKL = KLEV+1 - JK
+  IKLP1 = IKL + 1
+  DO JL = KIDIA,KFDIA
+    ZFACOA = _ONE_ - PPIZAZ(JL,IKL)*PCGAZ(JL,IKL)*PCGAZ(JL,IKL)
+    ZFACOC = _ONE_ - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+    ZCORAE = ZFACOA * PTAUAZ(JL,IKL) * PSEC(JL)
+    ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+    ZR21(JL) = EXP(MIN(-ZCORAE,500.)   )
+    ZR22(JL) = EXP(MIN(-ZCORCD,500.)   )
+    ZSS1(JL) = PCLD(JL,IKL)*(_ONE_-ZR21(JL)*ZR22(JL))&
+     &+ (_ONE_-PCLD(JL,IKL))*(_ONE_-ZR21(JL))
+    ZCLEQ(JL,IKL) = ZSS1(JL)
+
+    IF (NOVLP == 1) THEN
+!* maximum-random      
+      ZCLEAR(JL) = ZCLEAR(JL)&
+       &*(_ONE_-MAX(ZSS1(JL),ZCLOUD(JL)))&
+       &/(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPSEC))
+      ZC1I(JL,IKL) = _ONE_ - ZCLEAR(JL)
+      ZCLOUD(JL) = ZSS1(JL)
+    ELSEIF (NOVLP == 2) THEN
+!* maximum
+      ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
+      ZC1I(JL,IKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 3) THEN
+!* random
+      ZCLEAR(JL) = ZCLEAR(JL)*(_ONE_ - ZSS1(JL))
+      ZCLOUD(JL) = _ONE_ - ZCLEAR(JL)
+      ZC1I(JL,IKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 4) THEN
+!* Hogan & Illingworth, 2001  
+      ZALPHA1=RA1OVLP(KLEV+1-JK)
+      ZCLEAR(JL)=ZCLEAR(JL)*( &
+        & ZALPHA1*(_ONE_-MAX(ZSS1(JL),ZCLOUD(JL))) &
+        &        /(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPSEC)) &
+        & +(_ONE_-ZALPHA1)*(_ONE_-ZSS1(JL)) )
+      ZC1I(JL,IKL) = _ONE_ - ZCLEAR(JL) 
+      ZCLOUD(JL) = ZSS1(JL)
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+!                -----------------------------------------------
+
+
+DO JL = KIDIA,KFDIA
+  PRAY1(JL,KLEV+1) = _ZERO_
+  PRAY2(JL,KLEV+1) = _ZERO_
+  PREFZ(JL,2,1) = PALBD(JL,KNU)
+  PREFZ(JL,1,1) = PALBD(JL,KNU)
+  PTRA1(JL,KLEV+1) = _ONE_
+  PTRA2(JL,KLEV+1) = _ONE_
+ENDDO
+
+DO JK = 2 , KLEV+1
+  JKM1 = JK-1
+  DO JL = KIDIA,KFDIA
+    ZRNEB(JL)= PCLD(JL,JKM1)
+    ZRE1(JL)=_ZERO_
+    ZTR1(JL)=_ZERO_
+    ZRE2(JL)=_ZERO_
+    ZTR2(JL)=_ZERO_
+
+
+!     ------------------------------------------------------------------
+
+!*         3.1  EQUIVALENT ZENITH ANGLE
+!               -----------------------
+
+
+    ZMUE = (_ONE_-ZC1I(JL,JK)) * PSEC(JL)+ ZC1I(JL,JK) * 1.66_JPRB
+!-- just to test Box-type computations
+!    ZMUE = PSEC(JL)
+    PRMUE(JL,JK) = _ONE_/ZMUE
+
+
+!     ------------------------------------------------------------------
+
+!*         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+!               ----------------------------------------------------
+
+
+    ZGAP = PCGAZ(JL,JKM1)
+    ZBMU0 = _HALF_ - 0.75_JPRB * ZGAP / ZMUE
+    ZWW = PPIZAZ(JL,JKM1)
+    ZTO = PTAUAZ(JL,JKM1)
+    ZDEN = _ONE_ + (_ONE_ - ZWW + ZBMU0 * ZWW) * ZTO * ZMUE &
+     &+ (1-ZWW) * (_ONE_ - ZWW +_TWO_*ZBMU0*ZWW)*ZTO*ZTO*ZMUE*ZMUE
+    PRAY1(JL,JKM1) = ZBMU0 * ZWW * ZTO * ZMUE / ZDEN
+    PTRA1(JL,JKM1) = _ONE_ / ZDEN
+
+    ZMU1 = _HALF_
+    ZBMU1 = _HALF_ - 0.75_JPRB * ZGAP * ZMU1
+    ZDEN1= _ONE_ + (_ONE_ - ZWW + ZBMU1 * ZWW) * ZTO / ZMU1 &
+     &+ (1-ZWW) * (_ONE_ - ZWW +_TWO_*ZBMU1*ZWW)*ZTO*ZTO/ZMU1/ZMU1
+    PRAY2(JL,JKM1) = ZBMU1 * ZWW * ZTO / ZMU1 / ZDEN1
+    PTRA2(JL,JKM1) = _ONE_ / ZDEN1
+
+
+!     ------------------------------------------------------------------
+
+!*         3.3  EFFECT OF CLOUD LAYER
+!               ---------------------
+
+
+    ZW(JL) = POMEGA(JL,KNU,JKM1)
+    ZTO1(JL) = PTAU(JL,KNU,JKM1)/ZW(JL)+ PTAUAZ(JL,JKM1)/PPIZAZ(JL,JKM1)
+    ZR21(JL) = PTAU(JL,KNU,JKM1) + PTAUAZ(JL,JKM1)
+    ZR22(JL) = PTAU(JL,KNU,JKM1) / ZR21(JL)
+    ZGG(JL) = ZR22(JL) * PCG(JL,KNU,JKM1)&
+     &+ (_ONE_ - ZR22(JL)) * PCGAZ(JL,JKM1)
+    IF (ZW(JL) == _ONE_ .AND. PPIZAZ(JL,JKM1) == _ONE_) THEN
+      ZW(JL)=_ONE_
+    ELSE
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+    ENDIF
+    ZREF(JL) = PREFZ(JL,1,JKM1)
+    ZRMUZ(JL) = PRMUE(JL,JK)
+  ENDDO
+
+  CALL SWDE ( KIDIA, KFDIA , KLON &
+   &, ZGG  , ZREF  , ZRMUZ , ZTO1 , ZW &
+   &, ZRE1 , ZRE2  , ZTR1  , ZTR2      )
+
+  DO JL = KIDIA,KFDIA
+
+    PREFZ(JL,1,JK) = (_ONE_-ZRNEB(JL)) * (PRAY1(JL,JKM1)&
+     &+ PREFZ(JL,1,JKM1) * PTRA1(JL,JKM1)&
+     &* PTRA2(JL,JKM1)&
+     &/ (_ONE_-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1)))&
+     &+ ZRNEB(JL) * ZRE2(JL)
+
+    ZTR(JL,1,JKM1) = ZRNEB(JL) * ZTR2(JL) + (PTRA1(JL,JKM1)&
+     &/ (_ONE_-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1)))&
+     &* (_ONE_-ZRNEB(JL))
+
+    PREFZ(JL,2,JK) = (_ONE_-ZRNEB(JL)) * (PRAY1(JL,JKM1)&
+     &+ PREFZ(JL,2,JKM1) * PTRA1(JL,JKM1)&
+     &* PTRA2(JL,JKM1) )&
+     &+ ZRNEB(JL) * ZRE1(JL)
+
+    ZTR(JL,2,JKM1) = ZRNEB(JL) * ZTR1(JL)+ PTRA1(JL,JKM1) * (_ONE_-ZRNEB(JL))
+
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZMUE = (_ONE_-ZC1I(JL,1))*PSEC(JL)+ZC1I(JL,1)*1.66_JPRB
+!-- just to test Box-type computations
+!  ZMUE = PSEC(JL)
+  PRMUE(JL,1)=_ONE_/ZMUE
+  PTRCLD(JL)=_ONE_-ZC1I(JL,1)
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!*         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!                 -------------------------------------------------
+
+
+IF (NSW <= 4) THEN
+  INU1=1
+ELSE IF (NSW == 6) THEN
+  INU1=3
+END IF    
+
+IF (KNU <= INU1) THEN
+  JAJ = 2
+  DO JL = KIDIA,KFDIA
+    PRJ(JL,JAJ,KLEV+1) = _ONE_
+    PRK(JL,JAJ,KLEV+1) = PREFZ(JL, 1,KLEV+1)
+  ENDDO
+
+  DO JK = 1 , KLEV
+    IKL = KLEV+1 - JK
+    IKLP1 = IKL + 1
+    DO JL = KIDIA,KFDIA
+      ZRE11= PRJ(JL,JAJ,IKLP1) * ZTR(JL,  1,IKL)
+      PRJ(JL,JAJ,IKL) = ZRE11
+      PRK(JL,JAJ,IKL) = ZRE11 * PREFZ(JL,  1,IKL)
+    ENDDO
+  ENDDO
+
+ELSE
+
+  DO JAJ = 1 , 2
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JAJ,KLEV+1) = _ONE_
+      PRK(JL,JAJ,KLEV+1) = PREFZ(JL,JAJ,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      IKL = KLEV+1 - JK
+      IKLP1 = IKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11= PRJ(JL,JAJ,IKLP1) * ZTR(JL,JAJ,IKL)
+        PRJ(JL,JAJ,IKL) = ZRE11
+        PRK(JL,JAJ,IKL) = ZRE11 * PREFZ(JL,JAJ,IKL)
+      ENDDO
+    ENDDO
+  ENDDO
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SWR
Index: LMDZ5/branches/testing/libf/phymar/swtt.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swtt.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swtt.F90	(revision 2160)
@@ -0,0 +1,114 @@
+SUBROUTINE SWTT ( KIDIA, KFDIA, KLON, KNU, KA , PU, PTR)
+
+!**** *SWTT* - COMPUTES THE SHORTWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN THE TWO SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *SWTT* IS CALLED FROM *SW1S*, *SWNI*.
+
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! KNU    :                     ; INDEX OF THE SPECTRAL INTERVAL
+! KA     :                     ; INDEX OF THE ABSORBER
+! PU     : (KLON)             ; ABSORBER AMOUNT
+!     ==== OUTPUTS ===
+! PTR    : (KLON)             ; TRANSMISSION FUNCTION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          TRANSMISSION FUNCTION ARE COMPUTED USING PADE APPROXIMANTS
+!     AND HORNER'S ALGORITHM.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+   
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : APAD     ,BPAD     ,D
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KA
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PU(KLON), PTR(KLON)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZR1(KLON), ZR2(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JL
+
+
+!-----------------------------------------------------------------------
+
+!*         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+
+DO JL = KIDIA,KFDIA
+  ZR1(JL) = APAD(KNU,KA,1) + PU(JL) * (APAD(KNU,KA,2) + PU(JL)&
+   &* ( APAD(KNU,KA,3) + PU(JL) * (APAD(KNU,KA,4) + PU(JL)&
+   &* ( APAD(KNU,KA,5) + PU(JL) * (APAD(KNU,KA,6) + PU(JL)&
+   &* ( APAD(KNU,KA,7) ))))))
+
+  ZR2(JL) = BPAD(KNU,KA,1) + PU(JL) * (BPAD(KNU,KA,2) + PU(JL)&
+   &* ( BPAD(KNU,KA,3) + PU(JL) * (BPAD(KNU,KA,4) + PU(JL)&
+   &* ( BPAD(KNU,KA,5) + PU(JL) * (BPAD(KNU,KA,6) + PU(JL)&
+   &* ( BPAD(KNU,KA,7) ))))))
+
+
+!*         2.      ADD THE BACKGROUND TRANSMISSION
+
+
+
+  PTR(JL) = (ZR1(JL) / ZR2(JL)) * (_ONE_ - D(KNU,KA)) + D(KNU,KA)
+ENDDO
+
+RETURN
+END SUBROUTINE SWTT
Index: LMDZ5/branches/testing/libf/phymar/swtt1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swtt1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swtt1.F90	(revision 2160)
@@ -0,0 +1,120 @@
+SUBROUTINE SWTT1 ( KIDIA,KFDIA,KLON,KNU,KABS,KIND, PU, PTR )
+
+!**** *SWTT1* - COMPUTES THE SHORTWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN THE TWO SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *SWTT1* IS CALLED FROM *SW1S*.
+
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! KNU    :                     ; INDEX OF THE SPECTRAL INTERVAL
+! KABS   :                     ; NUMBER OF ABSORBERS
+! KIND   : (KABS)              ; INDICES OF THE ABSORBERS
+! PU     : (KLON,KABS)         ; ABSORBER AMOUNT
+!     ==== OUTPUTS ===
+! PTR    : (KLON,KABS)         ; TRANSMISSION FUNCTION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          TRANSMISSION FUNCTION ARE COMPUTED USING PADE APPROXIMANTS
+!     AND HORNER'S ALGORITHM.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 95-01-20
+   
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : APAD     ,BPAD     ,D
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KABS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER_M :: KIND(KABS)
+REAL_B :: PU(KLON,KABS)
+REAL_B :: PTR(KLON,KABS)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+REAL_B :: ZR1(KLON), ZR2(KLON), ZU(KLON)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: IA, JA, JL
+
+
+!-----------------------------------------------------------------------
+
+!*         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+
+DO JA = 1,KABS
+  IA=KIND(JA)
+  DO JL = KIDIA,KFDIA
+    ZU(JL) = PU(JL,JA)
+    ZR1(JL) = APAD(KNU,IA,1) + ZU(JL) * (APAD(KNU,IA,2) + ZU(JL)&
+     &* ( APAD(KNU,IA,3) + ZU(JL) * (APAD(KNU,IA,4) + ZU(JL)&
+     &* ( APAD(KNU,IA,5) + ZU(JL) * (APAD(KNU,IA,6) + ZU(JL)&
+     &* ( APAD(KNU,IA,7) ))))))
+
+    ZR2(JL) = BPAD(KNU,IA,1) + ZU(JL) * (BPAD(KNU,IA,2) + ZU(JL)&
+     &* ( BPAD(KNU,IA,3) + ZU(JL) * (BPAD(KNU,IA,4) + ZU(JL)&
+     &* ( BPAD(KNU,IA,5) + ZU(JL) * (BPAD(KNU,IA,6) + ZU(JL)&
+     &* ( BPAD(KNU,IA,7) ))))))
+
+
+!*         2.      ADD THE BACKGROUND TRANSMISSION
+
+
+    PTR(JL,JA) = (ZR1(JL)/ZR2(JL)) * (_ONE_-D(KNU,IA)) + D(KNU,IA)
+  ENDDO
+ENDDO
+
+RETURN
+END SUBROUTINE SWTT1
Index: LMDZ5/branches/testing/libf/phymar/swu.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swu.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swu.F90	(revision 2160)
@@ -0,0 +1,258 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE SWU &
+  &( KIDIA, KFDIA , KLON  , KLEV &
+  &, PSCT , PCARDI, PCLDSW, PPMB , PPSOL, PRMU0, PTAVE, PWV &
+  &, PAKI , PCLD  , PCLEAR, PDSIG, PFACT, PRMU , PSEC , PUD &
+  &)
+
+!**** *SWU* - SHORTWAVE RADIATION, ABSORBER AMOUNTS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE ABSORBER AMOUNTS USED IN SHORTWAVE RADIATION
+!     CALCULATIONS
+
+!**   INTERFACE.
+!     ----------
+!          *SWU* IS CALLED BY *SW*
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES ABSORBER AMOUNTS WITH TEMPERATURE AND PRESSURE
+!     SCALING.
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+
+!     ------------------------------------------------------------------
+
+
+#include "tsmbkind.h"
+
+USE YOECLD   , ONLY : REPSEC
+USE YOERAD   , ONLY : NOVLP    ,NSW
+USE YOERDU   , ONLY : REPSCQ
+USE YOESW    , ONLY : RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,&
+            &RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG
+USE YOEOVLP  , ONLY : RA1OVLP
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KKIND
+INTEGER_M :: KLEV
+INTEGER_M :: KLON
+
+!     DUMMY REAL SCALARS
+REAL_B :: PCARDI
+REAL_B :: PSCT
+
+
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PCLDSW(KLON,KLEV), PPMB(KLON,KLEV+1), PPSOL(KLON)&
+  &,  PRMU0(KLON)      , PTAVE(KLON,KLEV) , PWV(KLON,KLEV)
+
+REAL_B :: PAKI(KLON,2,NSW)&
+  &,  PCLD(KLON,KLEV)  , PCLEAR(KLON)&
+  &,  PDSIG(KLON,KLEV) , PFACT(KLON)      , PRMU(KLON)&
+  &,  PSEC(KLON)       , PUD(KLON,5,KLEV+1)
+  
+INTEGER_M :: INUIR  
+
+!     ------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+INTEGER_M :: IIND(2)
+REAL_B :: ZC1J(KLON,KLEV+1),ZCLEAR(KLON),ZCLOUD(KLON)&
+  &,  ZN175(KLON), ZN190(KLON), ZO175(KLON)&
+  &,  ZO190(KLON), ZSIGN(KLON)&
+  &,  ZR(KLON,2) , ZSIGO(KLON), ZUD(KLON,2)
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JK, JKL, JKLP1, JKP1, JL, JNU
+
+!     LOCAL REAL SCALARS
+REAL_B :: ZDSCO2, ZDSH2O, ZFPPW, ZRTH, ZRTU, ZWH2O, ZALPHA1
+
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTES AMOUNTS OF ABSORBERS
+!                 -----------------------------
+
+
+IIND(1)=1
+IIND(2)=2
+
+
+!*         1.1    INITIALIZES QUANTITIES
+!                 ----------------------
+
+
+DO JL = KIDIA,KFDIA
+  PUD(JL,1,KLEV+1)=_ZERO_
+  PUD(JL,2,KLEV+1)=_ZERO_
+  PUD(JL,3,KLEV+1)=_ZERO_
+  PUD(JL,4,KLEV+1)=_ZERO_
+  PUD(JL,5,KLEV+1)=_ZERO_
+  PFACT(JL)= PRMU0(JL) * PSCT
+!- already accounted for in RADINT      
+!      PRMU(JL)=SQRT(1224.* PRMU0(JL) * PRMU0(JL) + 1.) / 35.
+  PRMU(JL)=PRMU0(JL)
+! Martin control
+!  PRINT*,'PRMU(',JL,')=',PRMU(JL)
+! Martin modif to avoid cos(sza)=0 for LMDZ:
+  IF (PRMU(JL) .LE. 1E-3) PRMU(JL) = 1E-3
+  PSEC(JL)=_ONE_/PRMU(JL)
+  ZC1J(JL,KLEV+1)=_ZERO_
+ENDDO
+
+!*          1.3    AMOUNTS OF ABSORBERS
+!                  --------------------
+
+
+DO JL= KIDIA,KFDIA
+  ZUD(JL,1) = _ZERO_
+  ZUD(JL,2) = _ZERO_
+  ZO175(JL) = PPSOL(JL)** RPDU1
+  ZO190(JL) = PPSOL(JL)** RPDH1
+  ZSIGO(JL) = PPSOL(JL)
+  ZCLEAR(JL)=_ONE_
+  ZCLOUD(JL)=_ZERO_
+ENDDO
+
+DO JK = 1 , KLEV
+  JKP1 = JK + 1
+  JKL = KLEV+1 - JK
+  JKLP1 = JKL+1
+  DO JL = KIDIA,KFDIA
+    ZRTH=(RTH2O/PTAVE(JL,JK))**RTDH2O
+    ZRTU=(RTUMG/PTAVE(JL,JK))**RTDUMG
+    ZWH2O = MAX (PWV(JL,JKL) , REPSCQ )
+    ZSIGN(JL) = 100._JPRB * PPMB(JL,JKP1)
+    PDSIG(JL,JK) = (ZSIGO(JL) - ZSIGN(JL))/PPSOL(JL)
+    ZN175(JL) = ZSIGN(JL) ** RPDU1
+    ZN190(JL) = ZSIGN(JL) ** RPDH1
+    ZDSCO2 = ZO175(JL) - ZN175(JL)
+    ZDSH2O = ZO190(JL) - ZN190(JL)
+    PUD(JL,1,JK) = RPNH * ZDSH2O * ZWH2O  * ZRTH
+    PUD(JL,2,JK) = RPNU * ZDSCO2 * PCARDI * ZRTU
+    ZFPPW=1.6078_JPRB*ZWH2O/(_ONE_+0.608_JPRB*ZWH2O)
+    PUD(JL,4,JK)=PUD(JL,1,JK)*ZFPPW
+    PUD(JL,5,JK)=PUD(JL,1,JK)*(_ONE_-ZFPPW)
+    ZUD(JL,1) = ZUD(JL,1) + PUD(JL,1,JK)
+    ZUD(JL,2) = ZUD(JL,2) + PUD(JL,2,JK)
+    ZSIGO(JL) = ZSIGN(JL)
+    ZO175(JL) = ZN175(JL)
+    ZO190(JL) = ZN190(JL)
+
+    IF (NOVLP == 1) THEN
+      ZCLEAR(JL)=ZCLEAR(JL)&
+       &*(_ONE_-MAX(PCLDSW(JL,JKL),ZCLOUD(JL)))&
+       &/(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPSEC))
+      ZC1J(JL,JKL)= _ONE_ - ZCLEAR(JL)
+      ZCLOUD(JL) = PCLDSW(JL,JKL)
+    ELSEIF (NOVLP == 2) THEN
+      ZCLOUD(JL) = MAX(PCLDSW(JL,JKL),ZCLOUD(JL))
+      ZC1J(JL,JKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 3) THEN
+      ZCLEAR(JL) = ZCLEAR(JL)*(_ONE_-PCLDSW(JL,JKL))
+      ZCLOUD(JL) = _ONE_ - ZCLEAR(JL)
+      ZC1J(JL,JKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+      ZALPHA1=RA1OVLP(KLEV+1-JK)
+      ZCLEAR(JL)=ZCLEAR(JL)*( &
+        & ZALPHA1*(_ONE_-MAX(PCLDSW(JL,JKL),ZCLOUD(JL))) &
+        &        /(_ONE_-MIN(ZCLOUD(JL),_ONE_-REPSEC)) &
+        & +(_ONE_-ZALPHA1)*(_ONE_-PCLDSW(JL,JKL)) )
+      ZC1J(JL,JKL) = _ONE_ - ZCLEAR(JL) 
+      ZCLOUD(JL) = PCLDSW(JL,JKL)
+    ENDIF
+  ENDDO
+ENDDO
+DO JL=KIDIA,KFDIA
+  PCLEAR(JL)=_ONE_-ZC1J(JL,1)
+ENDDO
+DO JK=1,KLEV
+  DO JL=KIDIA,KFDIA
+    IF (PCLEAR(JL) < _ONE_) THEN
+      PCLD(JL,JK)=PCLDSW(JL,JK)/(_ONE_-PCLEAR(JL))
+    ELSE
+      PCLD(JL,JK)=_ZERO_
+    ENDIF
+  ENDDO
+ENDDO
+
+
+!*         1.4    COMPUTES CLEAR-SKY GREY ABSORPTION COEFFICIENTS
+!                 -----------------------------------------------
+
+
+DO JA = 1,2
+  DO JL = KIDIA,KFDIA
+    ZUD(JL,JA) = ZUD(JL,JA) * PSEC(JL)
+  ENDDO
+ENDDO
+
+IF (NSW.LE.4) THEN
+  INUIR=2
+ELSE IF (NSW.EQ.6) THEN
+  INUIR=4
+END IF     
+
+
+DO JNU= INUIR,NSW
+
+  KKIND=2
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, JNU, KKIND, IIND &
+   &, ZUD &
+   &, ZR                            )
+
+  DO JA = 1,2
+    DO JL = KIDIA,KFDIA
+      PAKI(JL,JA,JNU) = -LOG( ZR(JL,JA) ) / ZUD(JL,JA)
+    ENDDO
+  ENDDO
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+RETURN
+END SUBROUTINE SWU
Index: LMDZ5/branches/testing/libf/phymar/swuvo3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/swuvo3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/swuvo3.F90	(revision 2160)
@@ -0,0 +1,106 @@
+SUBROUTINE SWUVO3 &
+  &( KIDIA,KFDIA,KLON,KNU,KABS &
+  &, PU, PTR &
+  & )
+  
+!**** *SWUVO3* - COMPUTES THE SHORTWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR OZONE
+!     IN THE UV and VISIBLE SPECTRAL INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *SWUVO3* IS CALLED FROM *SW1S*.
+
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! KNU    :                     ; INDEX OF THE SPECTRAL INTERVAL
+! KABS   :                     ; NUMBER OF ABSORBERS
+! PU     : (KLON,KABS)         ; ABSORBER AMOUNT
+!     ==== OUTPUTS ===
+! PTR    : (KLON,KABS)         ; TRANSMISSION FUNCTION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          TRANSMISSION FUNCTION ARE COMPUTED USING SUMS OF EXPONENTIALS
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!        Ph.DUBUISSON/B.BONNEL L.O.A.
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 00-12-18
+   
+!-----------------------------------------------------------------------
+
+#include "tsmbkind.h"
+
+USE YOESW    , ONLY : NEXPO3, REXPO3
+
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER_M :: KABS
+INTEGER_M :: KFDIA
+INTEGER_M :: KIDIA
+INTEGER_M :: KLON
+INTEGER_M :: KNU
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+REAL_B :: PU(KLON,KABS)
+REAL_B :: PTR(KLON,KABS)
+
+!-----------------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS
+!              ------------
+
+!     LOCAL INTEGER SCALARS
+INTEGER_M :: JA, JL, IEXP, JX
+
+
+IEXP=NEXPO3(KNU)
+!print *,'IEXP(',KNU,')=',IEXP
+!print *,(REXPO3(KNU,1,JX),JX=1,IEXP)
+!print *,(REXPO3(KNU,2,JX),JX=1,IEXP)
+
+DO JA = 1,KABS
+  DO JL=KIDIA,KFDIA
+    PTR(JL,JA)=_ZERO_
+  END DO
+    
+  DO JX=1,IEXP
+    DO JL = KIDIA,KFDIA
+      PTR(JL,JA) = PTR(JL,JA) &
+        &+REXPO3(KNU,1,JX)*EXP(-min(REXPO3(KNU,2,JX)*PU(JL,JA),200.0_JPRB))
+    END DO
+  END DO    
+ENDDO
+
+RETURN
+END SUBROUTINE SWUVO3
Index: LMDZ5/branches/testing/libf/phymar/tsmbkind.h
===================================================================
--- LMDZ5/branches/testing/libf/phymar/tsmbkind.h	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/tsmbkind.h	(revision 2160)
@@ -0,0 +1,59 @@
+!*    kindef: define default KIND macros
+! --------------------------------------
+
+
+USE PARKIND1, ONLY :&
+ &JPIT, JPIS, JPIM, JPIB,&
+ &JPRT, JPRS, JPRM, JPRB,&
+ &JPRD
+
+
+#ifndef INTEGER_T
+#define INTEGER_T INTEGER(KIND=JPIT)
+#define INTEGER_S INTEGER(KIND=JPIS)
+#define INTEGER_M INTEGER(KIND=JPIM)
+#define INTEGER_B INTEGER(KIND=JPIB)
+#endif
+
+#ifndef REAL_T
+#define REAL_T REAL(KIND=JPRT)
+#define REAL_S REAL(KIND=JPRS)
+#define REAL_M REAL(KIND=JPRM)
+#define REAL_B REAL(KIND=JPRB)
+#define REAL_D REAL(KIND=JPRD)
+#endif
+
+#ifndef _0T
+#define _0T  0.0_JPRT
+#define _0S  0.0_JPRS
+#define _0M  0.0_JPRM
+#define _0B  0.0_JPRB
+#endif
+
+#ifndef _05T
+#define _05T 0.5_JPRT
+#define _05S 0.5_JPRS
+#define _05M 0.5_JPRM
+#define _05B 0.5_JPRB
+#endif
+
+#ifndef _1T
+#define _1T  1.0_JPRT
+#define _1S  1.0_JPRS
+#define _1M  1.0_JPRM
+#define _1B  1.0_JPRB
+#endif
+
+#ifndef _2T
+#define _2T  2.0_JPRT
+#define _2S  2.0_JPRS
+#define _2M  2.0_JPRM
+#define _2B  2.0_JPRB
+#endif
+
+#define _ZERO_   _0B
+#define _HALF_   _05B
+#define _ONE_    _1B
+#define _TWO_    _2B
+
+! --------------------------------------
Index: LMDZ5/branches/testing/libf/phymar/yoeaer.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeaer.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeaer.F90	(revision 2160)
@@ -0,0 +1,64 @@
+MODULE YOEAER
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOEAER* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+!     -----------------------------------------------------------------
+
+
+!*       1.    SHORTWAVE COEFFICIENTS
+!              ----------------------
+
+REAL_B , DIMENSION(4,5)   :: RTAUA=RESHAPE((/&
+ &.730719_JPRB,.730719_JPRB,.730719_JPRB,.730719_JPRB,&
+ &.912819_JPRB,.912819_JPRB,.912819_JPRB,.912819_JPRB,&
+ &.725059_JPRB,.725059_JPRB,.725059_JPRB,.725059_JPRB,&
+ &.745405_JPRB,.745405_JPRB,.745405_JPRB,.745405_JPRB,&
+ &.682188_JPRB,.682188_JPRB,.682188_JPRB,.682188_JPRB /)&
+ &,SHAPE=(/4,5/))
+REAL_B , DIMENSION(4,5)   :: RPIZA=RESHAPE((/&
+ &.872212_JPRB,.872212_JPRB,.872212_JPRB,.872212_JPRB,&
+ &.982545_JPRB,.982545_JPRB,.982545_JPRB,.982545_JPRB,&
+ &.623143_JPRB,.623143_JPRB,.623143_JPRB,.623143_JPRB,&
+ &.944887_JPRB,.944887_JPRB,.944887_JPRB,.944887_JPRB,&
+ &.997975_JPRB,.997975_JPRB,.997975_JPRB,.997975_JPRB /)&
+ &,SHAPE=(/4,5/))
+REAL_B , DIMENSION(4,5)   :: RCGA=RESHAPE((/&
+ &.647596_JPRB,.647596_JPRB,.647596_JPRB,.647596_JPRB,&
+ &.739002_JPRB,.739002_JPRB,.739002_JPRB,.739002_JPRB,&
+ &.580845_JPRB,.580845_JPRB,.580845_JPRB,.580845_JPRB,&
+ &.662657_JPRB,.662657_JPRB,.662657_JPRB,.662657_JPRB,&
+ &.624246_JPRB,.624246_JPRB,.624246_JPRB,.624246_JPRB /)&
+ &,SHAPE=(/4,5/))
+
+!*       2.    LONGWAVE COEFFICIENTS
+!              ---------------------
+
+
+REAL_B , DIMENSION(5,5)   :: RAER=RESHAPE((/&
+ &.038520_JPRB, .037196_JPRB, .040532_JPRB, .054934_JPRB, .038520_JPRB ,&
+ &.12613_JPRB , .18313_JPRB , .10357_JPRB , .064106_JPRB, .126130_JPRB ,&
+ &.012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB ,&
+ &.011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB ,&
+ &.013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB /&
+       &),SHAPE=(/5,5/))
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!  RTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!  RPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
+!  RCGA  :  REAL     S.W. ASSYMETRY FACTOR
+!  RAER  :  REAL     L.W. ABSORPTION COEFFICIENTS
+!     -----------------------------------------------------------------
+END MODULE YOEAER
Index: LMDZ5/branches/testing/libf/phymar/yoeaerc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeaerc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeaerc.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE YOEAERC
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERC* - TEGEN/GISS AEROSOL CLIMATOLOGY
+!     ------------------------------------------------------------------
+
+REAL_B :: RAERBC(72,46,12), RAEROR(72,46,12), RAERSD(72,46,12)
+REAL_B :: RAERSS(72,46,12), RAERSU(72,46,12)
+REAL_B :: REPAER
+REAL_B :: RSINCT(46)      , RSINCV(24)
+REAL_B :: RTAEBC(72,46)   , RTAEOR(72,46)   , RTAESD(72,46)
+REAL_B :: RTAESS(72,46)   , RTAESU(72,46)   , RTAEVO(46)
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/12/21
+
+!  NAME     TYPE    PURPOSE
+!  ----  :  ----  : ---------------------------------------------------
+! RAERBC : REAL   : OPTICAL THICKNESS BLACK CARBON TYPE AEROSOL
+! RAEROR : REAL   : OPTICAL THICKNESS ORGANIC TYPE AEROSOL
+! RAERSD : REAL   : OPTICAL THICKNESS SOIL-DUST TYPE AEROSOL
+! RAERSS : REAL   : OPTICAL THICKNESS SEA-SALT TYPE AEROSOL
+! RAERSU : REAL   : OPTICAL THICKNESS SULFATE-TYPE AEROSOL
+! REPAER : REAL   : SECURITY PARAMETER FOR AEROSOLS
+! RSINCT : REAL   : SINE OF LATITUDE IN TEGEN CLIMATOLOGY
+! RSINCV : REAL   : SINE OF LATITUDE IN GISS VOLCANIC CLIMATOLOGY
+! RTAEBC : REAL   : TIME-INTERPOLATED BLACK CARBON OPTICAL THICKNESS
+! RTAEOR : REAL   : TIME-INTERPOLATED ORGANIC OPTICAL THICKNESS
+! RTAESD : REAL   : TIME-INTERPOLATED SOIL-DUST OPTICAL THICKNESS
+! RTAESS : REAL   : TIME-INTERPOLATED SEA-SALT OPTICAL THICKNESS
+! RTAESU : REAL   : TIME-INTERPOLATED SULFATE CARBON OPTICAL THICKNESS
+! RTAEVO : REAL   : TIME-INTERPOLATED STRATOS.VOLCANIC OPTICAL THICKNESS
+!     ------------------------------------------------------------------
+END MODULE YOEAERC
+
+
Index: LMDZ5/branches/testing/libf/phymar/yoeaerd.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeaerd.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeaerd.F90	(revision 2160)
@@ -0,0 +1,74 @@
+MODULE YOEAERD
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS
+!     ------------------------------------------------------------------
+
+!REAL_B,ALLOCATABLE:: CVDAES(:)
+!REAL_B,ALLOCATABLE:: CVDAEL(:)
+!REAL_B,ALLOCATABLE:: CVDAEU(:)
+!REAL_B,ALLOCATABLE:: CVDAED(:)
+
+REAL_B :: CVDAES(601)
+REAL_B :: CVDAEL(601)
+REAL_B :: CVDAEU(601)
+REAL_B :: CVDAED(601)
+
+REAL_B :: RAESC(66)
+REAL_B :: RAESS(55)
+REAL_B :: RAELC(66)
+REAL_B :: RAELS(55)
+REAL_B :: RAEUC(66)
+REAL_B :: RAEUS(55)
+REAL_B :: RAEDC(66)
+REAL_B :: RAEDS(55)
+
+REAL_B :: RCAEOPS
+REAL_B :: RCAEOPL
+REAL_B :: RCAEOPU
+REAL_B :: RCAEOPD
+REAL_B :: RCTRBGA
+REAL_B :: RCVOBGA
+REAL_B :: RCSTBGA
+REAL_B :: RCTRPT
+REAL_B :: RCAEADK(3)
+REAL_B :: RCAEADM
+REAL_B :: RCAEROS
+
+
+!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS.
+!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
+
+!     R.G AND M.J        E.C.M.W.F.     29/11/82.
+!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
+!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
+!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
+!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
+!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
+!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
+!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
+!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
+!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
+!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
+!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.(NFLEV+1)
+!     *RCTRPT*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADK*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADM*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEROS*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
+
+!     ------------------------------------------------------------------
+END MODULE YOEAERD
Index: LMDZ5/branches/testing/libf/phymar/yoeast.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeast.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeast.F90	(revision 2160)
@@ -0,0 +1,20 @@
+MODULE YOEAST
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+REAL_B :: RDISSE
+REAL_B :: RZEN1
+REAL_B :: RZEN2
+REAL_B :: RZEN3
+REAL_B :: RDISSEM
+REAL_B :: RZEN1M
+REAL_B :: RZEN2M
+REAL_B :: RZEN3M
+!     ------------------------------------------------------------------
+END MODULE YOEAST
Index: LMDZ5/branches/testing/libf/phymar/yoecld.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoecld.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoecld.F90	(revision 2160)
@@ -0,0 +1,76 @@
+MODULE YOECLD
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOECLD* - CONTROL PARAMETERS FOR DIAGNOSTIC CLOUDS
+!     -----------------------------------------------------------------
+
+!REAL_B,ALLOCATABLE:: CETA(:)
+REAL_B :: CETA(600)
+
+REAL_B :: RANVA
+REAL_B :: RANVB
+REAL_B :: RANVH
+REAL_B :: RCCA
+REAL_B :: RCCB
+REAL_B :: RCCC
+REAL_B :: RCFCT
+REAL_B :: RCLWMR
+REAL_B :: RCSCAL
+REAL_B :: RETAHB
+REAL_B :: RETAMB
+REAL_B :: RLOIA
+REAL_B :: RLOIB
+REAL_B :: RLOIC
+REAL_B :: RLOID
+REAL_B :: RLONIA
+REAL_B :: RLONIB
+REAL_B :: RRHH
+REAL_B :: RRHL
+REAL_B :: RRHM
+REAL_B :: RGAMMAS
+REAL_B :: REPSCR
+REAL_B :: REPSEC
+LOGICAL LOMEGA
+
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  RANVA :  REAL     COEFFICIENT FOR ANVIL CLOUDS
+!  RANVB :  REAL     COEFFICIENT FOR ANVIL CLOUDS
+!  RANVH :  REAL     MINIMUM HIGH CLOUD COVER FOR ANVIL CLOUDS
+!  RCCA  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
+!  RCCB  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
+!  RCCC  :  REAL     MAXIMUM COVER BY CONVECTIVE CLOUD
+!  RCFCT :  REAL     WEIGHTING FACTOR FOR CONVECTIVE CLOUD TOWER
+!  RCLWMR:  REAL     LIQUID WATER MIXING RATIO FOR CONVECTIVE CLOUD
+!  RCSCAL:  REAL     SCALING FACTOR FOR CONVECTIVE RAIN
+!  CETA(NFLEV) REAL  MODEL REFERENCE ETA-LEVEL
+!  RETAHB:  REAL     ETA-LEVEL LIMIT FOR HIGH CLOUDS
+!  RETAMB:  REAL     ETA-LEVEL LIMIT FOR MEDIUM CLOUDS
+!  RLOIA :  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
+!  RLOIB :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLOIC :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLOID :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLONIA:  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLONIB:  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
+!  RRHH  :  REAL     CRITICAL RELATIVE HUMIDITY FOR HIGH CLOUDS
+!  RRHL  :  REAL     CRITICAL RELATIVE HUMIDITY FOR LOW CLOUDS
+!  RRHM  :  REAL     CRITICAL RELATIVE HUMIDITY FOR MEDIUM CLOUDS
+!  GAMMAS:  REAL     PROPORTIONALITY FACTOR FOR LIQUID WATER CONTENT
+!  REPSCR:  REAL     MINIMUM CONVECTIVE PRECIPITATION (SECURITY FACTOR)
+!  REPSEC:  REAL     MINIMUM HORIZONTAL CLOUD COVER (SECURITY FACTOR)
+!  LOMEGA:  LOGICAL  SWITCH FOR OMEGA-FILTER ON MIDDLE CLOUD
+!     ------------------------------------------------------------------
+END MODULE YOECLD
Index: LMDZ5/branches/testing/libf/phymar/yoecldp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoecldp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoecldp.F90	(revision 2160)
@@ -0,0 +1,60 @@
+MODULE YOECLDP
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+
+!     -----------------------------------------------------------------
+!     ** YOECLDP - CONTROL PARAMETERS FOR PROGNOSTIC CLOUD SCHEME
+!     -----------------------------------------------------------------
+
+!     * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     C. JAKOB        E.C.M.W.F.          94/02/07
+
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *RAMID*   REAL      BASE VALUE FOR CALCULATION OF RELATIVE 
+!                         HUMIDITY THRESHOLD FOR ONSET OF STRATIFORM
+!                         CONDENSATION (TIEDTKE, 1993, EQUATION 24)
+!     *RCLDIFF* REAL      DIFFUSION-COEFFICIENT FOR EVAPORATION BY
+!                         TURBULENT MIXING (IBID., EQU. 30)
+!     *RCLCRIT* REAL      BASE VALUE OF CRITICAL CLOUD WATER CONTENT 
+!                         FOR CONVERSION TO RAIN (SUNDQUIST, 1988)
+!     *RKCONV*  REAL      BASE VALUE FOR CONVERSION COEFFICIENT (IBID.)
+!     *RPRC1*   REAL      COALESCENCE CONSTANT (IBID.)
+!     *RPRC2*   REAL      BERGERON-FINDEISEN CONSTANT (IBID.)
+!     *RCLDMAX* REAL      MAXIMUM CLOUD WATER CONTENT
+!     *RPECONS* REAL      EVAPORATION CONSTANT AFTER KESSLER 
+!                         (TIEDTKE, 1993, EQU.35)
+!     *RTAUMEL* REAL      RELAXATION TIME FOR MELTING OF SNOW
+!     *RENTRTU* REAL      ENTRAINMENT PARAMETER (DEARDOFF, 1976)
+!     *RENTRRA* REAL      ENTRAINMENT PARAMETER FOR RADIATION EFFECT
+!     *RAMIN*   REAL      LIMIT FOR A
+!     *RLMIN*   REAL      LIMIT FOR L
+!     *RASMICE*   REAL    COEFFICIENT FOR "SMALL ICE" CALCULATION 
+!                         (MACFARQUHAR AND HEYMSFIELD, JAS, 1997)
+!     *RBSMICE*   REAL    COEFFICIENT FOR "SMALL ICE" CALCULATION 
+!                         (MACFARQUHAR AND HEYMSFIELD, JAS, 1997)
+REAL_B :: RAMID
+REAL_B :: RCLDIFF
+REAL_B :: RCLCRIT
+REAL_B :: RKCONV
+REAL_B :: RPRC1
+REAL_B :: RPRC2
+REAL_B :: RCLDMAX
+REAL_B :: RPECONS
+REAL_B :: RTAUMEL
+REAL_B :: RENTRTU
+REAL_B :: RENTRRA
+REAL_B :: RAMIN
+REAL_B :: RLMIN
+REAL_B :: RASMICE
+REAL_B :: RBSMICE
+END MODULE YOECLDP
Index: LMDZ5/branches/testing/libf/phymar/yoeclop.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeclop.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeclop.F90	(revision 2160)
@@ -0,0 +1,87 @@
+MODULE YOECLOP
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     * YOECLOP* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
+!     ------------------------------------------------------------------
+
+REAL_B :: RYFWCA(4)
+REAL_B :: RYFWCB(4)
+REAL_B :: RYFWCC(4)
+REAL_B :: RYFWCD(4)
+REAL_B :: RYFWCE(4)
+REAL_B :: RYFWCF(4)
+REAL_B :: REBCUA(4)
+REAL_B :: REBCUB(4)
+REAL_B :: REBCUC(4)
+REAL_B :: REBCUD(4)
+REAL_B :: REBCUE(4)
+REAL_B :: REBCUF(4)
+REAL_B :: RASWCA(4)
+REAL_B :: RASWCB(4)
+REAL_B :: RASWCC(4)
+REAL_B :: RASWCD(4)
+REAL_B :: RASWCE(4)
+REAL_B :: RASWCF(4)
+REAL_B :: REBCUG
+REAL_B :: REBCUH
+REAL_B :: REBCUI(6)
+REAL_B :: REBCUJ(6)
+REAL_B :: REFFIA
+REAL_B :: REFFIB
+REAL_B :: RTIW
+REAL_B :: RRIW
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCF :  REAL   : ASSYMETRY FACTOR
+
+!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
+
+! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCF :  REAL   : ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUI :  REAL   : C7 IN LW MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUJ :  REAL   : C8 IN LW MASS ABSORPTION COEFFICIENT FORMULA
+
+! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
+! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
+
+!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
+
+! RTIW   :  REAL   : TEMPERATURE THRESHOLD
+! RRIW   :  REAL   : TRANSITION RANGE
+!     -----------------------------------------------------------------
+END MODULE YOECLOP
Index: LMDZ5/branches/testing/libf/phymar/yoedbug.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoedbug.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoedbug.F90	(revision 2160)
@@ -0,0 +1,25 @@
+MODULE YOEDBUG
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEDBUG* - HELP FOR "MANUAL" DEBUGGING
+!     ------------------------------------------------------------------
+
+LOGICAL LDEBUG
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+
+!     ------------------------------------------------------------------
+END MODULE YOEDBUG
Index: LMDZ5/branches/testing/libf/phymar/yoelw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoelw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoelw.F90	(revision 2160)
@@ -0,0 +1,84 @@
+MODULE YOELW
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOELW* - COEFFICIENTS OF THE LONGWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+
+INTEGER_M :: MXIXT
+INTEGER_M :: NSIL
+INTEGER_M :: NIPD
+INTEGER_M :: NIPD2
+INTEGER_M :: NTR
+INTEGER_M :: NTRA
+INTEGER_M :: NUA
+INTEGER_M :: NG1
+INTEGER_M :: NG1P1
+REAL_B :: ALWT(8,3)
+REAL_B :: BLWT(8,3)
+REAL_B :: PDGA(11,16,3)
+REAL_B :: PDGB(11,16,3)
+REAL_B :: RPTYPE(4)
+REAL_B :: RETYPE(4)
+REAL_B :: RNTNU(4)
+REAL_B :: RO1H
+REAL_B :: RO2H
+REAL_B :: RO3T(4)
+REAL_B :: RPIALF0
+REAL_B :: RT1(2)
+REAL_B :: TINTP(11)
+REAL_B :: TREF
+REAL_B :: TSTAND
+REAL_B :: TSTP
+REAL_B :: WG1(2)
+REAL_B :: XP(6,6)
+REAL_B :: RVGCO2
+REAL_B :: RVGH2O
+REAL_B :: RVGO3
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  MXIXT :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
+!  NSIL  :  INTEGER  NUMBER OF SPECTRAL INTERVALS
+!  NIPD  :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
+!  NIPD2 :  INTEGER  NIPD*2
+!  NTR   :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
+!  NTRA  :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
+!  NUA   :  INTEGER  NUMBER OF ABSORBER AMOUNTS
+!  NG1   :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
+!  NG1P1 :  INTEGER  NG1+1
+!  ALWT  :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  BLWT  :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  RNTNU :  REAL     ABSORPTION COEFFICIENT E-TYPE
+!  PDGA  :  REAL     PADE APPROXIMANTS - NUMERATOR
+!  PDGB  :  REAL     PADE APPROXIMANTS - DENOMINATOR
+!  RPTYPE:  REAL     P-TYPE COEFFICIENTS
+!  RETYPE:  REAL     E-TYPE COEFFICIENTS
+!  RO1H  :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
+!  RO2H  :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
+!  RO3T  :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
+!  RPIALF0: REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
+!  RT1   :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
+!  TINTP :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
+!  TREF  :  REAL     REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
+!  TSTAND:  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!  TSTP  :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
+!  WG1   :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
+!  XP    :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!  RVGCO2:  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
+!  RVGH2O:  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
+!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
+
+!     ------------------------------------------------------------------
+END MODULE YOELW
Index: LMDZ5/branches/testing/libf/phymar/yoemeth.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoemeth.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoemeth.F90	(revision 2160)
@@ -0,0 +1,48 @@
+MODULE YOEMETH
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+
+!     -----------------------------------------------------------------
+!     ** YOEMETH - CONTROL PARAMETERS FOR METHANE OXIDATION
+!     -----------------------------------------------------------------
+
+!     * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     C. JAKOB        E.C.M.W.F.          98/04/07
+
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *RALPHA1* REAL      CONSTANT IN TIME SCALE 1 CALCULATIONS
+!     *RALPHA2* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
+!     *RQLIM*   REAL      UPPERLIMIT OD SPECIFIC HUMIDITY FOR 
+!                         METHANE OXIDATION TO BE ACTIVE
+!     *RPBOTOX* REAL      PRESSURE BELOW WHICH METHANE OXIDATION
+!                         IS CONSIDERED ACTIVE
+!     *RPBOTPH* REAL      PRESSURE BELOW WHICH H2O PHOTOLYSIS
+!                         IS CONSIDERED ACTIVE
+!     *RPTOPOX* REAL      PRESSURE BELOW WHICH SHORTEST TIME SCALE
+!                         IS USED IN METHANE OXIDATION
+!     *RPTOPPH* REAL      PRESSURE BELOW WHICH SHORTEST TIME SCALE
+!                         IS USED IN H2O PHOTOLYISIS
+!     *RALPHA3* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
+!     *RLOGPPH* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
+
+REAL_B :: RALPHA1
+REAL_B :: RALPHA2
+REAL_B :: RQLIM
+REAL_B :: RPBOTOX
+REAL_B :: RPBOTPH
+REAL_B :: RPTOPOX
+REAL_B :: RPTOPPH
+REAL_B :: RALPHA3
+REAL_B :: RLOGPPH
+
+END MODULE YOEMETH
Index: LMDZ5/branches/testing/libf/phymar/yoencst.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoencst.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoencst.F90	(revision 2160)
@@ -0,0 +1,64 @@
+MODULE YOENCST
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*     OF PHYSICAL CONSTANTS
+!     YOU WILL FIND THE MEANINGS IN THE ANNEX 1 OF THE DOCUMENTATION
+
+! A1.0 FUNDAMENTAL CONSTANTS
+REAL_B :: RPI
+REAL_B :: RCLUM
+REAL_B :: RHPLA
+REAL_B :: RKBOL
+REAL_B :: RNAVO
+! A1.1 ASTRONOMICAL CONSTANTS
+REAL_B :: RDAY
+REAL_B :: REA
+REAL_B :: REPSM
+REAL_B :: RSIYEA
+REAL_B :: RSIDAY
+REAL_B :: ROMEGA
+! A1.2 GEOIDE
+REAL_B :: RA
+REAL_B :: RG
+REAL_B :: R1SA
+! A1.3 RADIATION
+REAL_B :: RSIGMA
+REAL_B :: RI0
+! A1.4 THERMODYNAMIC GAS PHASE
+REAL_B :: R
+REAL_B :: RMD
+REAL_B :: RMV
+REAL_B :: RD
+REAL_B :: RV
+REAL_B :: RCPD
+REAL_B :: RCPV
+REAL_B :: RCVD
+REAL_B :: RCVV
+REAL_B :: RKAPPA
+! A1.5,6 THERMODYNAMIC LIQUID,SOLID PHASES
+REAL_B :: RCW
+REAL_B :: RCS
+! A1.7 THERMODYNAMIC TRANSITION OF PHASE
+REAL_B :: RLVTT
+REAL_B :: RLSTT
+REAL_B :: RTT
+REAL_B :: RATM
+! A1.8 CURVE OF SATURATION
+REAL_B :: RESTT
+REAL_B :: RALPW
+REAL_B :: RBETW
+REAL_B :: RGAMW
+REAL_B :: RALPS
+REAL_B :: RBETS
+REAL_B :: RGAMS
+
+!    ------------------------------------------------------------------
+END MODULE YOENCST
Index: LMDZ5/branches/testing/libf/phymar/yoeolw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeolw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeolw.F90	(revision 2160)
@@ -0,0 +1,57 @@
+MODULE YOEOLW
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    *COMMON* *YOEOLW* - COEFFICIENTS OF THE OLD LONGWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+!
+INTEGER_M :: MXIXT    , NISP     , NIPD     , NIPD2    , NTR      , &
+     & NTRA     , NUA      , NG1      , NG1P1
+     
+REAL_B :: AT(8,3)  , BT(8,3)  , RNTNU(4) , GA(11,16,3), GB(11,16,3), &
+     & OCT(4)   , O1H      , O2H      , RPIALF0  , RT1(2)   , TINTP(11), &
+     & TREF     , TSTAND   , TSTP     , WG1(2)   , XP(6,6)  , &
+     & RVGCO2   , RVGH2O   , RVGO3
+!
+!
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+!
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+!
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  MXIXT :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
+!  NISP  :  INTEGER  NUMBER OF SPECTRAL INTERVALS
+!  NIPD  :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
+!  NIPD2 :  INTEGER  NIPD*2
+!  NTR   :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
+!  NTRA  :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
+!  NUA   :  INTEGER  NUMBER OF ABSORBER AMOUNTS
+!  NG1   :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
+!  NG1P1 :  INTEGER  NG1+1
+!  AT    :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  BT    :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  RNTNU :  REAL     ABSORPTION COEFFICIENT E-TYPE
+!  GA    :  REAL     PADE APPROXIMANTS - NUMERATOR
+!  GB    :  REAL     PADE APPROXIMANTS - DENOMINATOR
+!  OCT   :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
+!  O1H   :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
+!  O2H   :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
+!  RPIALF0:  REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
+!  RT1   :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
+!  TINTP :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
+!  TREF  :  REAL     REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
+!  TSTAND:  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!  TSTP  :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
+!  WG1   :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
+!  XP    :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!  RVGCO2:  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
+!  RVGH2O:  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
+!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
+!     ------------------------------------------------------------------
+END MODULE YOEOLW
Index: LMDZ5/branches/testing/libf/phymar/yoeovlp.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeovlp.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeovlp.F90	(revision 2160)
@@ -0,0 +1,24 @@
+MODULE YOEOVLP
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEOVLP* VERTICAL DISTRIBUTION OF CLOUD OVERLAP PARAMETER
+!     ------------------------------------------------------------------
+
+!REAL_B,ALLOCATABLE:: RA1OVLP(:)
+REAL_B :: RA1OVLP(601)
+
+!     J.-J. MORCRETTE    E.C.M.W.F.     01/02/16
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *RA1OVLP* REAL      Alpha1 (Hogan, Illingworth, 2001)
+
+!     ------------------------------------------------------------------
+END MODULE YOEOVLP
Index: LMDZ5/branches/testing/libf/phymar/yoeozoc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeozoc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeozoc.F90	(revision 2160)
@@ -0,0 +1,36 @@
+MODULE YOEOZOC
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEOZOC* SPECTRAL DISTRIBUTION OF OZONE
+!     ------------------------------------------------------------------
+
+
+REAL_B :: COZQC(21)
+REAL_B :: COZQS(15)
+REAL_B :: COZHC(21)
+REAL_B :: COZHS(15)
+
+REAL_B :: RSINC(19)
+REAL_B :: ROZT(19,0:35)
+REAL_B :: RPROC(0:35)
+
+!*     *YOEOZOC* SPECTRAL DISTRIBUTION OF OZONE
+!                     (TRIANGULAR *T5* TRUNCATION FOR OZONE).
+
+!     R.G AND M.J        E.C.M.W.F.     29/11/82.
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *COZ__*   REAL      *REFERS TO *OZONE.
+!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
+!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
+!       ----------------------------------------------------------------
+END MODULE YOEOZOC
Index: LMDZ5/branches/testing/libf/phymar/yoephli.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoephli.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoephli.F90	(revision 2160)
@@ -0,0 +1,53 @@
+MODULE YOEPHLI
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEPHLI* CONTAINS CONSTANTS FOR THE LINEARIZED PHYSICS
+!     ------------------------------------------------------------------
+
+LOGICAL LPHYLIN
+
+REAL_B :: RLPTRC
+REAL_B :: RLPAL1
+REAL_B :: RLPAL2
+REAL_B :: RLPBB
+REAL_B :: RLPCC
+REAL_B :: RLPDD
+REAL_B :: RLPMIXL
+REAL_B :: RLPBETA
+REAL_B :: RLPDRAG
+REAL_B :: RLPEVAP
+REAL_B :: RLPP00
+
+!*     *YOEPHLI* CONTAINS CONSTANTS NEEDED BY 
+!     THE LINEARIZED PHYSICS
+
+
+!     J.F. MAHFOUF        E.C.M.W.F.    23/06/96
+
+
+!     NAME        TYPE     DESCRIPTION
+!     ----        ----     -----------
+
+!     *RLPTRC*    REAL     CRITICAL TEMPERATURE FOR MIXED PHASE PROPERTIES
+!                          OF WATER 
+!     *RLPAL1*    REAL     SMOOTHING COEFFICIENT
+!     *RLPAL2*    REAL     SMOOTHING COEFFICIENT
+!     *RLPBB*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
+!     *RLPCC*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
+!     *RLPDD*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
+!     *RLPMIXL*   REAL     PSEUDO DEPTH OF THE PLANETARY BOUNDARY LAYER
+!     *RLPBETA*   REAL     REDUCTION FACTOR OF THE ASYMPTOTIC MIXING LENGTH
+!     *RLPDRAG*   REAL     COEFFICIENT FOR THE ESTIMATION OF SURFACE DRAG
+!     *RLPEVAP*   REAL     FRACTION OF POSSIBLE RAINFALL EVAPORATION
+!     *RLPP00*    REAL     PRESSURE ABOVE WHICH RADIATION IS NOT APPLIED
+!     *LPHYLIN*   LOGICAL  TRUE WHEN LINEARIZED PHYSICS IS ACTIVATED 
+
+!     ------------------------------------------------------------------
+END MODULE YOEPHLI
Index: LMDZ5/branches/testing/libf/phymar/yoephy.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoephy.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoephy.F90	(revision 2160)
@@ -0,0 +1,92 @@
+MODULE YOEPHY
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOEPHY* - SWITCHES RELATED TO DIABATIC PROCESSES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+INTEGER_M :: NDBUG
+LOGICAL LEPHYS
+LOGICAL LEOCON
+LOGICAL LEAERO
+LOGICAL LECOND
+LOGICAL LECUMF
+LOGICAL LEDCLD
+LOGICAL LEEVAP
+LOGICAL LEGWDG
+LOGICAL LEOZOC
+LOGICAL LEQNGT
+LOGICAL LERADC
+LOGICAL LERADI
+LOGICAL LERADS
+LOGICAL LESATU
+LOGICAL LESHCV
+LOGICAL LESICE
+LOGICAL LESURF
+LOGICAL LEVDIF
+LOGICAL LEDYNT
+LOGICAL LEZERO
+LOGICAL LEDBUG
+LOGICAL LTEAERO
+LOGICAL LTECOND
+LOGICAL LTECUMF
+LOGICAL LTEDCLD
+LOGICAL LTEEVAP
+LOGICAL LTEGWDG
+LOGICAL LTEOZOC
+LOGICAL LTEQNGT
+LOGICAL LTERADI
+LOGICAL LTERADS
+LOGICAL LTESATU
+LOGICAL LTESHCV
+LOGICAL LTESICE
+LOGICAL LTESURF
+LOGICAL LTEVDIF
+LOGICAL LAGPHY
+LOGICAL LEPCLD
+LOGICAL LEO3CH
+LOGICAL LBUD23
+LOGICAL LEMETHOX
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      91/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LEPHYS : LOGICAL : SWITCH THE FULL E.C.M.W.F. PHYSICS PACKAGE ON
+! LAGPHY : LOGICAL : IF TRUE, PHYSICS PACKAGE CALLED IN LAGGED MODE
+! LEOCON : LOGICAL : IF TRUE, KEEP THE "OLD" CONSTANTS WITHIN PHYSICS !
+! LEAERO : LOGICAL : TURN THE CLIMATOLOGICAL AEROSOLS ON
+! LECOND : LOGICAL : TURN THE LARGE-SCALE CONDENSATION ON
+! LECUMF : LOGICAL : TURN THE MASS-FLUX CUMULUS CONVECTION SCHEME ON
+! LEDCLD : LOGICAL : TURN THE DIAGNOSTIC CLOUD SCHEME ON
+! LEPCLD : LOGICAL : TURN THE PROGNOSTIC CLOUD SCHEME ON
+! LEEVAP : LOGICAL : TURN THE EVAPORATION OF PRECIPITATION ON
+! LEGWDG : LOGICAL : TURN THE GRAVITY WAVE DRAG ON
+! LEOZOC : LOGICAL : TURN THE CLIMATOLOGICAL OZONE ON
+! LEQNGT : LOGICAL : TURN THE NEGATIVE HUMIDITY FIXER ON
+! LERADC : LOGICAL : SWITCH THE INTERPOLATION SCHEME FOR RADIATION
+! LERADI : LOGICAL : TURN THE RADIATION SCHEME ON
+! LERADS : LOGICAL : TURN THE INTERACTIVE SURFACE RADIATIVE PROPERTIESON
+! LESATU : LOGICAL : TURN THE ECMWF CY39 THERMODYNAMIC FUNCTIONS ON
+! LESHCV : LOGICAL : TURN THE SHALLOW CONV. IN THE MASS-FLUX SCHEME ON
+! LESICE : LOGICAL : TURN THE INTERACTIVE SEA ICE PROCESSES ON
+! LESURF : LOGICAL : TURN THE INTERACTIVE SURFACE PROCESSES ON
+! LEVDIF : LOGICAL : TURN THE VERTICAL DIFFUSION ON
+! LEO3CH : LOGICAL : TURN THE O3 CHEMISTRY ON (for EC prog. ozone)
+! LEDYNT : LOGICAL : TO USE DYNAMICAL TENDENCIES AS INPUT TO PHYSICS
+! LEZERO : LOGICAL : KEEP PURE T-DT INPUTS WITHIN ALL PHYS. ROUTINES
+! LEDBUG : LOGICAL : SWITCH THE DEBUGGING AID PRINTS ON
+! LBUD23 : LOGICAL : SWITCH FOR 3 AND 2 DIMENSIONAL BUDGETS 
+! LEMETHOX: LOGICAL : TURN THE METHANE OXIDATION ON
+
+! LTE... : LOGICAL : CHECK OF I/O ARGUMENTS FOR EVERY PHYSICS ROUTINE
+!     -----------------------------------------------------------------
+END MODULE YOEPHY
Index: LMDZ5/branches/testing/libf/phymar/yoerad.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerad.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerad.F90	(revision 2160)
@@ -0,0 +1,119 @@
+MODULE YOERAD
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERAD* - CONTROL OPTIONS FOR RADIATION CONFIGURATION
+!     ------------------------------------------------------------------
+
+INTEGER_M :: NAER
+INTEGER_M :: NMODE
+INTEGER_M :: NOZOCL
+INTEGER_M :: NRADFR
+INTEGER_M :: NRADPFR
+INTEGER_M :: NRADPLA
+INTEGER_M :: NRINT
+INTEGER_M :: NRADNFR
+INTEGER_M :: NRADSFR
+INTEGER_M :: NRPROMA
+INTEGER_M :: NRADF2C
+INTEGER_M :: NRADC2F
+INTEGER_M :: NLW
+INTEGER_M :: NSW
+INTEGER_M :: NTSW
+INTEGER_M :: NCSRADF
+INTEGER_M :: NHOWINH
+INTEGER_M :: NOVLP
+
+INTEGER_M :: NICEOPT
+INTEGER_M :: NLIQOPT
+INTEGER_M :: NRADIP
+INTEGER_M :: NRADLP
+
+LOGICAL LERAD6H
+LOGICAL LERADHS
+LOGICAL LEPO3RA
+LOGICAL LRADLB
+LOGICAL LONEWSW
+
+LOGICAL LOWASYF
+LOGICAL LOWHSSS
+LOGICAL LOIFUEC
+
+LOGICAL LECSRAD
+LOGICAL LRRTM
+LOGICAL LINHOM
+LOGICAL LHVOLCA
+LOGICAL LNEWAER
+LOGICAL LRADLP
+LOGICAL LTEMPDS
+
+LOGICAL LDICESR
+REAL_B :: RMINICE
+
+REAL_B :: RAOVLP, RBOVLP
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LERAD6H: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS
+!                  : DURING FIRST 6 HOURS OF FORECAST
+! LERADHS: LOGICAL : .T. IF RAD.COMPUTED ON A COARSER SAMPLED GRID
+! LEPO3RA: LOGICAL : .T. IF PROGNOSTIC OZONE (EC) IS PASSED TO RADIATION
+! NAER   : INTEGER : CONFIGURATION INDEX FOR AEROSOLS
+! NMODE  : INTEGER : CONFIGURATION FOR RADIATION CODE: FLUX VS. RADIANCE
+! NOZOCL : INTEGER : CHOICE OF OZONE CLIMATOLOGY (0 old, 1 new)
+! NRADFR : INTEGER : FREQUENCY OF FULL RADIATION COMPUTATIONS
+!                    IF(NRADFR.GT.0): RAD EVERY 'NRADFR' TIME-STEPS
+!                    IF(NRADFR.LT.0): RAD EVERY '-NRADFR' HOURS
+! NRADPFR: INTEGER : PRINT FREQUENCY FOR RAD.STATISTICS (in RAD.T.STEPS)
+! NRADPLA: INTEGER : PRINT RAD.STATISTICS EVERY 'NRADPLA' ROWS
+! NRINT  : INTEGER : INTERPOLATION DISTANCE (in points)
+! NRADNFR: INTEGER : NORMAL   FREQUENCY OF RADIATION STEPS
+! NRADSFR: INTEGER : START-UP FREQUENCY OF RADIATION STEPS
+! NOVLP  : INTEGER : CLOUD OVERLAP CONFIGURATION
+! NRPROMA: INTEGER : VECTOR LENGTH FOR RADIATION CALCULATIONS
+! NRADF2C: INTEGER : INTERPOLATION SCHEME FOR FINE TO COURSE GRID TO BE
+!                  : USED WHEN NRINT IS GREATER THAN 1
+! NRADC2F: INTEGER : INTERPOLATION SCHEME FOR COURSE TO FINE GRID TO BE
+!                  : USED WHEN NRINT IS GREATER THAN 1
+! NLW    : INTEGER : NUMBER OF LONGWAVE SPECTRAL INTERVALS    
+! NSW    : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS    
+! NTSW   : INTEGER : MAXIMUM POSSIBLE NUMBER OF SW SPECTRAL INTERVALS    
+! LRADLB : LOGICAL : .T. IF RADIATION COURSER GRID IS TO BE LOAD BALANCED
+!                  : OVER PROCESSORS (I.E. WHEN NRINT>1)
+!
+! LOWASYF: LOGICAL : .F. IF WATER CLOUDS AS FOUQUART (SW)
+!                  : .T. IF WATER CLOUDS AS SLINGO   (SW)
+! LOWHSSS: LOGICAL : .F. IF WATER CLOUDS AS SMITH-SHI (LW)
+!                  : .T. IF WATER CLOUDS AS SAVIJARVI (LW)
+! LOIFUEC: LOGICAL : .F. IF ICE CLOUDS AS EBERT-CURRY (LW & SW)
+!                  : .T. IF ICE CLOUDS AS FU-LIOU / FU ET AL. (LW & SW)
+!
+! LONEWSW: LOGICAL : .T. IF NEW SW CODE IS ACTIVE
+! LECSRAD: LOGICAL : .T. IF CLEAR-SKY RADIATION IS ARCHIVED AS PEXTR2
+! NCSRADF: INTEGER : 1 IF ACCUMULATED, 2 IF INSTANTANEOUS
+! LRRTM  : LOGICAL : .T. IF RRTM140MR IS USED FOR LW RADIATION TRANSFER
+! LINHOM : LOGICAL : .T. INHOMOGENEITY EFFECT, ON BOTH LW & SW RADIATION
+!                    ON BOTH STRATIFORM & CONVECTIVE CLOUDS
+! LHVOLCA: LOGICAL : .T. IF GISS HISTORY OF VOLCANIC AEROSOLS IS ON
+! LNEWAER: LOGICAL : .T. IF AEROSOL MONTHLY DISTRIBUTIONS ARE USED
+! LRADLP : LOGICAL : .T. IF CLOUD WATER EFFECTIVE RADIUS IS COMPUTED
+! LRADIP : LOGICAL : .F. IF CHRIS'S 21R3 ICE EFFECTIVE RADIUS IS USED
+! LTEMPDS: LOGICAL : .T. ALLOWS FOR SURFACE T DISCONTINUITY IN RAD.COMP.
+
+! LDICESR: LOGICAL : .T. ICE EFFECETIVE DIAMETER A LA SUN-RIKUS, 1999
+
+! RAOVLP : REAL    : COEFFICIENTS FOR ALPHA1 FACTOR IN HOGAN & 
+! RBOVLP : REAL    : ILLINGWORTH's PARAMETRIZATION
+!     ------------------------------------------------------------------
+END MODULE YOERAD
Index: LMDZ5/branches/testing/libf/phymar/yoerdi.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerdi.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerdi.F90	(revision 2160)
@@ -0,0 +1,64 @@
+MODULE YOERDI
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
+!     -----------------------------------------------------------------
+
+REAL_B :: RRAE
+REAL_B :: RSUNDUR
+REAL_B :: RALBSEAD
+REAL_B :: RALBICEVS_AR(12)
+REAL_B :: RALBICENI_AR(12)
+REAL_B :: RALBICEVS_AN(12)
+REAL_B :: RALBICENI_AN(12)
+REAL_B :: RALBSFO
+REAL_B :: REMISD
+REAL_B :: REMISL
+REAL_B :: REMISN
+REAL_B :: REMISS
+REAL_B :: RCARDI
+REAL_B :: RCH4
+REAL_B :: RN2O
+REAL_B :: RO3
+REAL_B :: RCFC11
+REAL_B :: RCFC12
+REAL_B :: REPALB
+REAL_B :: REPCLC
+REAL_B :: REPH2O
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+!     Modified  P. Viterbo    99/03/26    Surface tiling
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
+! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
+! RALBSEAD: OPEN SEA ALBEDO FOR DIFFUSE RADIATION
+! RALBICEVS_AR: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ARCTIC)
+! RALBICENI_AR: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ARCTIC)
+! RALBICEVS_AN: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ANTARCTIC)
+! RALBICENI_AN: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ANTARCTIC)
+! RALBSFO: SNOW ALBEDO IN THE PRESENCE OF FOREST
+
+! REMISD : LONGWAVE EMISSIVITY OF DESERT LAND SURFACE
+! REMISL : LONGWAVE EMISSIVITY OF LAND
+! REMISN : LONGWAVE EMISSIVITY OF SNOW
+! REMISS : LONGWAVE EMISSIVITY OF SEA
+
+! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
+
+! REPALB : SECURITY TO AVOID ZERO ALBEDOS.
+! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
+! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
+!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
+!     -----------------------------------------------------------------
+END MODULE YOERDI
Index: LMDZ5/branches/testing/libf/phymar/yoerdu.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerdu.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerdu.F90	(revision 2160)
@@ -0,0 +1,53 @@
+MODULE YOERDU
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERDU* - CONTROL, PARAMETERS AND SECURITY IN RADIATION
+!     ------------------------------------------------------------------
+
+INTEGER_M :: NUAER
+INTEGER_M :: NTRAER
+INTEGER_M :: NIMP
+INTEGER_M :: NOUT
+REAL_B :: RCDAY
+REAL_B :: R10E
+REAL_B :: REPLOG
+REAL_B :: REPSC
+REAL_B :: REPSCO
+REAL_B :: REPSCQ
+REAL_B :: REPSCT
+REAL_B :: REPSCW
+REAL_B :: DIFF
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! NUAER  : INTEGER   NUMBER OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
+! NTRAER : INTEGER   NUMBER OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
+! NIMP   : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
+! NOUT   : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
+! RCDAY  : REAL
+! CCO2   : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
+! CH2O   : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
+! R10E   : REAL      DECIMAL/NATURAL LOG.FACTOR
+! DIFF   : REAL      DIFFUSIVITY FACTOR
+!-SECURITY THRESHOLDS
+! REPLOG : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
+! REPSC  : REAL      SEC. EPSILON FOR CLOUD COVER
+! REPSCO : REAL      SEC. EPSILON FOR OZONE AMOUNT
+! REPSCQ : REAL      SEC. EPSILON FOR WATER VAPOR
+! REPSCT : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
+! REPSCW : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
+
+!     -----------------------------------------------------------------
+END MODULE YOERDU
Index: LMDZ5/branches/testing/libf/phymar/yoerip.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerip.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerip.F90	(revision 2160)
@@ -0,0 +1,28 @@
+MODULE YOERIP
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Real time related variables for ECMWF radiation: updated UPDTIER
+
+!     RIP0M  : I0 WEIGHTED BY THE DISTANCE EARTH-SUN
+
+!     RCODECM: COSINE OF THE DECLINATION
+!     RSIDECM:   SINE OF THE DECLINATION
+
+!     RCOVSRM: COSINE OF TRUE SOLAR TIME
+!     RSIVSRM:   SINE OF TRUE SOLAR TIME
+
+REAL_B :: RIP0M
+REAL_B :: RCODECM
+REAL_B :: RSIDECM
+REAL_B :: RCOVSRM
+REAL_B :: RSIVSRM
+!     ------------------------------------------------------------------
+END MODULE YOERIP
Index: LMDZ5/branches/testing/libf/phymar/yoerrta1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta1.F90	(revision 2160)
@@ -0,0 +1,44 @@
+MODULE YOERRTA1
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA1* - RRTM COEFFICIENTS FOR INTERVAL 1
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG1  = 8
+
+REAL_B :: FRACREFA(NG1)  , FRACREFB(NG1)
+REAL_B :: KA(5,13,NG1)   , ABSA(65,NG1)
+REAL_B :: KB(5,13:59,NG1), ABSB(235,NG1)
+REAL_B :: SELFREF(10,NG1), FORREF(NG1)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB1    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))     ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! FORREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA1
Index: LMDZ5/branches/testing/libf/phymar/yoerrta10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta10.F90	(revision 2160)
@@ -0,0 +1,43 @@
+MODULE YOERRTA10
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA14* - RRTM COEFFICIENTS FOR INTERVAL 10
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG10 = 6
+
+REAL_B , DIMENSION(NG10) :: FRACREFA
+REAL_B , DIMENSION(NG10) :: FRACREFB
+
+REAL_B :: KA(5,13,NG10)   , ABSA(65,NG10)
+REAL_B :: KB(5,13:59,NG10), ABSB(235,NG10)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB10   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))      ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA10
Index: LMDZ5/branches/testing/libf/phymar/yoerrta11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta11.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE YOERRTA11
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA11* - RRTM COEFFICIENTS FOR INTERVAL 11
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG11 = 8
+
+REAL_B , DIMENSION(NG11) :: FRACREFA
+REAL_B , DIMENSION(NG11) :: FRACREFB
+
+REAL_B :: KA(5,13,NG11)   , ABSA(65,NG11)
+REAL_B :: KB(5,13:59,NG11), ABSB(235,NG11)
+REAL_B :: SELFREF(10,NG11)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB11   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))      ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA11
Index: LMDZ5/branches/testing/libf/phymar/yoerrta12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta12.F90	(revision 2160)
@@ -0,0 +1,43 @@
+MODULE YOERRTA12
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA12* - RRTM COEFFICIENTS FOR INTERVAL 12
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG12 = 8
+
+REAL_B :: FRACREFA(NG12,9)
+REAL_B :: KA(9,5,13,NG12) ,ABSA(585,NG12)
+REAL_B :: SELFREF(10,NG12)
+
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB12   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))                           ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+! STRRAT1 : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA12
Index: LMDZ5/branches/testing/libf/phymar/yoerrta13.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta13.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta13.F90	(revision 2160)
@@ -0,0 +1,41 @@
+MODULE YOERRTA13
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA13* - RRTM COEFFICIENTS FOR INTERVAL 13
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG13 = 4
+
+REAL_B :: FRACREFA(NG13,9)
+
+REAL_B :: KA(9,5,13,NG13) ,ABSA(585,NG13)
+REAL_B :: SELFREF(10,NG13)
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB13   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))                           ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+! STRRAT1 : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA13
Index: LMDZ5/branches/testing/libf/phymar/yoerrta14.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta14.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta14.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE YOERRTA14
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA14* - RRTM COEFFICIENTS FOR INTERVAL 14
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG14 = 2
+
+REAL_B , DIMENSION(NG14) :: FRACREFA
+REAL_B , DIMENSION(NG14) :: FRACREFB
+
+REAL_B :: KA(5,13,NG14)   ,ABSA(65,NG14)
+REAL_B :: KB(5,13:59,NG14),ABSB(235,NG14)
+REAL_B :: SELFREF(10,NG14)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB14   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))     ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA14
+
+
Index: LMDZ5/branches/testing/libf/phymar/yoerrta15.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta15.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta15.F90	(revision 2160)
@@ -0,0 +1,41 @@
+MODULE YOERRTA15
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA15* - RRTM COEFFICIENTS FOR INTERVAL 15
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG15 = 2
+
+REAL_B :: FRACREFA(NG15,9)
+
+REAL_B :: KA(9,5,13,NG15) ,ABSA(585,NG15)
+REAL_B :: SELFREF(10,NG15)
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB15   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))                           ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL 
+! STRRAT  : REAL    
+!     -----------------------------------------------------------------
+END MODULE YOERRTA15
Index: LMDZ5/branches/testing/libf/phymar/yoerrta16.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta16.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta16.F90	(revision 2160)
@@ -0,0 +1,41 @@
+MODULE YOERRTA16
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA16* - RRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG16 = 2
+
+REAL_B :: FRACREFA(NG16,9)
+
+REAL_B :: KA(9,5,13,NG16) ,ABSA(585,NG16)
+REAL_B :: SELFREF(10,NG16)
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB16   (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))                           ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL     
+! STRRAT  : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTA16
Index: LMDZ5/branches/testing/libf/phymar/yoerrta2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta2.F90	(revision 2160)
@@ -0,0 +1,49 @@
+MODULE YOERRTA2
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA2* - RRTM COEFFICIENTS FOR INTERVAL 2
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG2  = 14
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+REAL_B :: FRACREFA(NG2,13), FRACREFB(NG2), REFPARAM(13)
+REAL_B :: KA(5,13,NG2)   , ABSA(65,NG2)
+REAL_B :: KB(5,13:59,NG2), ABSB(235,NG2)
+REAL_B :: SELFREF(10,NG2), FORREF(NG2)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB2    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))      ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! REFPARAM: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL
+! FORREF  : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA2
+
+
Index: LMDZ5/branches/testing/libf/phymar/yoerrta3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta3.F90	(revision 2160)
@@ -0,0 +1,60 @@
+MODULE YOERRTA3
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA3* - RRTM COEFFICIENTS FOR INTERVAL 3
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG3  = 16
+
+REAL_B :: FRACREFA(NG3,10) ,FRACREFB(NG3,5)
+
+REAL_B , DIMENSION(16) :: FORREF
+REAL_B , DIMENSION(16) :: ABSN2OA
+REAL_B , DIMENSION(16) :: ABSN2OB
+REAL_B , DIMENSION(10) :: ETAREF
+REAL_B , DIMENSION(59) :: H2OREF
+REAL_B , DIMENSION(59) :: N2OREF
+REAL_B , DIMENSION(59) :: CO2REF
+
+REAL_B :: KA(10,5,13,NG3)  ,ABSA(650,NG3)
+REAL_B :: KB(5,5,13:59,NG3),ABSB(1175,NG3)
+REAL_B :: SELFREF(10,NG3)
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB3    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))  ! (OLD
+!     -----------------------------------------------------------------
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! ABSN2OA : REAL
+! ABSN2OB : REAL
+! CO2REF  : REAL
+! ETAREF  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! H2OREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! N2OREF  : REAL
+! SELFREF : REAL     
+! STRRAT  : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTA3
Index: LMDZ5/branches/testing/libf/phymar/yoerrta4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta4.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE YOERRTA4
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA4* - RRTM COEFFICIENTS FOR INTERVAL 5
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG4  = 14
+
+REAL_B :: FRACREFA(NG4,9)  ,FRACREFB(NG4,6)
+REAL_B :: KA(9,5,13,NG4)   ,ABSA(585,NG4)
+REAL_B :: KB(6,5,13:59,NG4),ABSB(1410,NG4)
+REAL_B :: SELFREF(10,NG4)
+REAL_B :: STRRAT1
+REAL_B :: STRRAT2
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB4    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))  ! (OLD)
+!     -----------------------------------------------------------------
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA4
Index: LMDZ5/branches/testing/libf/phymar/yoerrta5.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta5.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta5.F90	(revision 2160)
@@ -0,0 +1,51 @@
+MODULE YOERRTA5
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA5* - RRTM COEFFICIENTS FOR INTERVAL 5
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG5  = 16
+
+REAL_B :: FRACREFA(NG5,9) ,FRACREFB(NG5,5)
+
+REAL_B , DIMENSION(NG5) :: CCL4
+
+REAL_B :: KA(9,5,13,NG5)   ,ABSA(585,NG5)
+REAL_B :: KB(5,5,13:59,NG5),ABSB(1175,NG5)
+REAL_B :: SELFREF(10,NG5)
+REAL_B :: STRRAT1
+REAL_B :: STRRAT2
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB5    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))    (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! CCL4    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+! STRRAT1 : REAL
+! STRRAT2 : REAL    
+!     -----------------------------------------------------------------
+END MODULE YOERRTA5
Index: LMDZ5/branches/testing/libf/phymar/yoerrta6.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta6.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta6.F90	(revision 2160)
@@ -0,0 +1,48 @@
+MODULE YOERRTA6
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA6* - RRTM COEFFICIENTS FOR INTERVAL 6
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG6  = 8
+
+REAL_B , DIMENSION(NG6) :: FRACREFA
+
+REAL_B , DIMENSION(NG6) :: CFC11ADJ
+REAL_B , DIMENSION(NG6) :: CFC12
+REAL_B , DIMENSION(NG6) :: ABSCO2
+
+REAL_B :: KA(5,13,NG6),ABSA(65,NG6)
+REAL_B :: SELFREF(10,NG6)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB6  ! (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1))                 !             (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSCO2  : REAL 
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! CFC11ADJ: REAL
+! CFC12   : REAL
+! KA      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA6
Index: LMDZ5/branches/testing/libf/phymar/yoerrta7.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta7.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta7.F90	(revision 2160)
@@ -0,0 +1,50 @@
+MODULE YOERRTA7
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA7* - RRTM COEFFICIENTS FOR INTERVAL 7
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG7  = 12
+
+REAL_B :: FRACREFA(NG7,9)
+
+REAL_B , DIMENSION(NG7) :: FRACREFB
+REAL_B , DIMENSION(NG7) :: ABSCO2
+REAL_B :: KA(9,5,13,NG7) ,ABSA(585,NG7)
+REAL_B :: KB(5,13:59,NG7),ABSB(235,NG7)
+REAL_B :: SELFREF(10,NG7)
+
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB7    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))    ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL 
+! ABSCO2  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL  
+! STRRAT  : REAL   
+!     -----------------------------------------------------------------
+END MODULE YOERRTA7
Index: LMDZ5/branches/testing/libf/phymar/yoerrta8.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta8.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta8.F90	(revision 2160)
@@ -0,0 +1,63 @@
+MODULE YOERRTA8
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA8* - RRTM COEFFICIENTS FOR INTERVAL 8
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG8  = 8
+
+REAL_B , DIMENSION(NG8) :: FRACREFA
+REAL_B , DIMENSION(NG8) :: FRACREFB
+REAL_B , DIMENSION(NG8) :: CFC12
+REAL_B , DIMENSION(NG8) :: CFC22ADJ
+REAL_B , DIMENSION(NG8) :: ABSCO2A
+REAL_B , DIMENSION(NG8) :: ABSCO2B
+REAL_B , DIMENSION(NG8) :: ABSN2OA
+REAL_B , DIMENSION(NG8) :: ABSN2OB
+REAL_B , DIMENSION(59)  :: H2OREF
+REAL_B , DIMENSION(59)  :: N2OREF
+REAL_B , DIMENSION(59)  :: O3REF
+
+REAL_B :: KA(5,7,NG8)    ,ABSA(35,NG8)
+REAL_B :: KB(5,7:59,NG8) ,ABSB(265,NG8)
+REAL_B :: SELFREF(10,NG8)
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB8    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,7,1),ABSB(1,1))
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! ABSCO2A : REAL     
+! ABSCO2B : REAL     
+! ABSN2OA : REAL     
+! ABSN2OB : REAL 
+! CFC12   : REAL     
+! CFC22ADJ: REAL     
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! H2OREF  : REAL    
+! KA      : REAL     
+! KB      : REAL     
+! N2OREF  : REAL    
+! O3REF   : REAL    
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA8
Index: LMDZ5/branches/testing/libf/phymar/yoerrta9.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrta9.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrta9.F90	(revision 2160)
@@ -0,0 +1,59 @@
+MODULE YOERRTA9
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA9* - RRTM COEFFICIENTS FOR INTERVAL 9
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NG9  = 12
+
+REAL_B :: FRACREFA(NG9,9)
+
+REAL_B , DIMENSION(NG9) :: FRACREFB
+REAL_B , DIMENSION(13) :: N2OREF
+REAL_B , DIMENSION(13) :: H2OREF
+REAL_B , DIMENSION(13) :: CH4REF
+REAL_B , DIMENSION(11) :: ETAREF
+! 36 = 3*NG9      
+REAL_B , DIMENSION(36) :: ABSN2O
+
+REAL_B :: KA(11,5,13,NG9) ,ABSA(715,NG9)
+REAL_B :: KB(5,13:59,NG9) ,ABSB(235,NG9)
+REAL_B :: SELFREF(10,NG9)
+REAL_B :: STRRAT
+
+!     -----------------------------------------------------------------
+! EQUIVALENCE Instruction is suppressed and
+! EQUIVALENCE             is FORCED in RRTM_CMBGB9    (HG, 13-DEC-2003)
+! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))    ! (OLD)
+!     -----------------------------------------------------------------
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! ABSN2O  : REAL    
+! CH4REF  : REAL
+! ETAREF  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! H2OREF  : REAL
+! N2OREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+! STRRAT  : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTA9
Index: LMDZ5/branches/testing/libf/phymar/yoerrtab.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtab.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtab.F90	(revision 2160)
@@ -0,0 +1,29 @@
+MODULE YOERRTAB
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL_B , DIMENSION(0:5000) :: TRANS
+REAL_B :: BPADE
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! TRANS  :  REAL    
+! BPADE  :  REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTAB
+
+
Index: LMDZ5/branches/testing/libf/phymar/yoerrtam.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtam.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtam.F90	(revision 2160)
@@ -0,0 +1,55 @@
+MODULE YOERRTAM
+
+#include "tsmbkind.h"
+
+USE PARRRTM
+
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERRTAM* - RRTM definition of atmospheric profiles
+!     includes all commons with arrays depending on vertical coordinate
+!     ------------------------------------------------------------------
+
+REAL_B   , ALLOCATABLE, DIMENSION(:,:,:) :: TAU
+
+REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: TAUAERL
+
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: FAC00 , FAC01 , FAC10 , FAC11
+INTEGER_M, ALLOCATABLE, DIMENSION(:) :: JP    , JT    , JT1
+REAL_B    :: ONEMINUS
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: COLH2O, COLCO2, COLO3 &
+                                    &, COLN2O, COLCH4, COLO2 &
+                                    &, CO2MULT 
+INTEGER_M :: LAYTROP, LAYSWTCH, LAYLOW
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: PAVEL , TAVEL
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: PZ    , TZ
+REAL_B    :: TBOUND
+INTEGER_M :: NLAYERS
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: SELFFAC, SELFFRAC
+INTEGER_M, ALLOCATABLE, DIMENSION(:) :: INDSELF
+REAL_B   , ALLOCATABLE, DIMENSION(:,:,:) :: PFRAC
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: SEMISS
+REAL_B    :: SEMISLW
+INTEGER_M :: IREFLECT
+INTEGER_M :: NUMANGS, IOUT, ISTART, IEND
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: COLDRY , WBRODL
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: CLDFRAC
+REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: TAUCLDU, TAUCLDD
+INTEGER_M :: NMOL, IXSECT, NXMOL
+REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: WKL
+INTEGER_M, ALLOCATABLE, DIMENSION(:) :: IXINDX
+REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: WX
+REAL_B   , ALLOCATABLE, DIMENSION(:) :: FORFAC
+INTEGER_M, ALLOCATABLE, DIMENSION(:) :: INDLAY
+INTEGER_M, ALLOCATABLE, DIMENSION(:) :: INDLEV
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+!     -----------------------------------------------------------------
+END MODULE YOERRTAM
Index: LMDZ5/branches/testing/libf/phymar/yoerrtbg2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtbg2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtbg2.F90	(revision 2160)
@@ -0,0 +1,31 @@
+MODULE YOERRTBG2
+
+#include "tsmbkind.h"
+
+USE PARRRTM
+
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL_B :: CORR1(0:200)
+REAL_B :: CORR2(0:200)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! CORR1  :  REAL   : 
+! CORR2  :  REAL   :
+!    -------------------------------------------------------------------
+END MODULE YOERRTBG2
+
+
Index: LMDZ5/branches/testing/libf/phymar/yoerrtftr.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtftr.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtftr.F90	(revision 2160)
@@ -0,0 +1,40 @@
+MODULE YOERRTFTR
+
+#include "tsmbkind.h"
+
+USE PARRRTM
+
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+INTEGER_M :: NGC(JPBAND)
+INTEGER_M :: NGS(JPBAND)
+INTEGER_M :: NGN(JPGPT)
+INTEGER_M :: NGB(JPGPT)
+
+INTEGER_M :: NGM(JPG*JPBAND)
+REAL_B ::    WT(JPG)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  NGC   : INTEGER :
+!  NGS   : INTEGER :
+!  NGN   : INTEGER :
+!  NGB   : INTEGER :
+!  NGM   : INTEGER :
+!  WT    : REAL    :
+!    -------------------------------------------------------------------
+END MODULE YOERRTFTR
+
+
Index: LMDZ5/branches/testing/libf/phymar/yoerrto1.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto1.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto1.F90	(revision 2160)
@@ -0,0 +1,36 @@
+MODULE YOERRTO1
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO1* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 1
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO1  = 16
+
+REAL_B :: FRACREFAO(NO1)  , FRACREFBO(NO1)
+REAL_B :: KAO(5,13,NO1)
+REAL_B :: KBO(5,13:59,NO1)
+REAL_B :: SELFREFO(10,NO1), FORREFO(NO1)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+!FRACREFAO: REAL    
+!FRACREFBO: REAL
+! FORREFO : REAL
+! KAO     : REAL     
+! KBO     : REAL     
+! SELFREFO: REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO1
Index: LMDZ5/branches/testing/libf/phymar/yoerrto10.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto10.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto10.F90	(revision 2160)
@@ -0,0 +1,35 @@
+MODULE YOERRTO10
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO14* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 10
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO10 = 16
+
+REAL_B , DIMENSION(NO10) :: FRACREFAO
+REAL_B , DIMENSION(NO10) :: FRACREFBO
+
+REAL_B :: KAO(5,13,NO10)
+REAL_B :: KBO(5,13:59,NO10)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO10
Index: LMDZ5/branches/testing/libf/phymar/yoerrto11.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto11.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto11.F90	(revision 2160)
@@ -0,0 +1,37 @@
+MODULE YOERRTO11
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO11* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 11
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO11 = 16
+
+REAL_B , DIMENSION(NO11) :: FRACREFAO
+REAL_B , DIMENSION(NO11) :: FRACREFBO
+
+REAL_B :: KAO(5,13,NO11)
+REAL_B :: KBO(5,13:59,NO11)
+REAL_B :: SELFREFO(10,NO11)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO11
Index: LMDZ5/branches/testing/libf/phymar/yoerrto12.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto12.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto12.F90	(revision 2160)
@@ -0,0 +1,32 @@
+MODULE YOERRTO12
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO12* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 12
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO12 = 16
+
+REAL_B :: FRACREFAO(NO12,9)
+REAL_B :: KAO(9,5,13,NO12)
+REAL_B :: SELFREFO(10,NO12)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTO12
Index: LMDZ5/branches/testing/libf/phymar/yoerrto13.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto13.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto13.F90	(revision 2160)
@@ -0,0 +1,33 @@
+MODULE YOERRTO13
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO13* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 13
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO13 = 16
+
+REAL_B :: FRACREFAO(NO13,9)
+
+REAL_B :: KAO(9,5,13,NO13)
+REAL_B :: SELFREFO(10,NO13)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTO13
Index: LMDZ5/branches/testing/libf/phymar/yoerrto14.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto14.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto14.F90	(revision 2160)
@@ -0,0 +1,37 @@
+MODULE YOERRTO14
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO14* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 14
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO14 = 16
+
+REAL_B , DIMENSION(NO14) :: FRACREFAO
+REAL_B , DIMENSION(NO14) :: FRACREFBO
+
+REAL_B :: KAO(5,13,NO14)
+REAL_B :: KBO(5,13:59,NO14)
+REAL_B :: SELFREFO(10,NO14)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO14
Index: LMDZ5/branches/testing/libf/phymar/yoerrto15.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto15.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto15.F90	(revision 2160)
@@ -0,0 +1,33 @@
+MODULE YOERRTO15
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO15* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 15
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO15 = 16
+
+REAL_B :: FRACREFAO(NO15,9)
+
+REAL_B :: KAO(9,5,13,NO15)
+REAL_B :: SELFREFO(10,NO15)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL 
+!     -----------------------------------------------------------------
+END MODULE YOERRTO15
Index: LMDZ5/branches/testing/libf/phymar/yoerrto16.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto16.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto16.F90	(revision 2160)
@@ -0,0 +1,33 @@
+MODULE YOERRTO16
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO16* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO16 = 16
+
+REAL_B :: FRACREFAO(NO16,9)
+
+REAL_B :: KAO(9,5,13,NO16)
+REAL_B :: SELFREFO(10,NO16)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO16
Index: LMDZ5/branches/testing/libf/phymar/yoerrto2.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto2.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto2.F90	(revision 2160)
@@ -0,0 +1,38 @@
+MODULE YOERRTO2
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO2* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 2
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO2  = 16
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+REAL_B :: FRACREFAO(NO2,13), FRACREFBO(NO2)
+REAL_B :: KAO(5,13,NO2)
+REAL_B :: KBO(5,13:59,NO2)
+REAL_B :: SELFREFO(10,NO2) , FORREFO(NO2)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+!FRACREFAO: REAL    
+!FRACREFBO: REAL
+! KAO     : REAL     
+! KBO     : REAL     
+! SELFREFO: REAL
+! FORREFO : REAL  
+!     -----------------------------------------------------------------
+END MODULE YOERRTO2
Index: LMDZ5/branches/testing/libf/phymar/yoerrto3.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto3.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto3.F90	(revision 2160)
@@ -0,0 +1,42 @@
+MODULE YOERRTO3
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO3* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 3
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO3  = 16
+
+REAL_B :: FRACREFAO(NO3,10) ,FRACREFBO(NO3,5)
+
+REAL_B , DIMENSION(NO3) :: FORREFO
+REAL_B , DIMENSION(NO3) :: ABSN2OAO
+REAL_B , DIMENSION(NO3) :: ABSN2OBO
+
+REAL_B :: KAO(10,5,13,NO3)
+REAL_B :: KBO(5,5,13:59,NO3)
+REAL_B :: SELFREFO(10,NO3)
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSN2OAO: REAL
+! ABSN2OBO: REAL
+!FRACREFAO: REAL    
+!FRACREFBO: REAL
+! KAO     : REAL     
+! KBO     : REAL     
+! SELFREFO: REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO3
Index: LMDZ5/branches/testing/libf/phymar/yoerrto4.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto4.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto4.F90	(revision 2160)
@@ -0,0 +1,35 @@
+MODULE YOERRTO4
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO4* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 4
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO4  = 16
+
+REAL_B :: FRACREFAO(NO4,9)  ,FRACREFBO(NO4,6)
+REAL_B :: KAO(9,5,13,NO4)
+REAL_B :: KBO(6,5,13:59,NO4)
+REAL_B :: SELFREFO(10,NO4)
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO4
Index: LMDZ5/branches/testing/libf/phymar/yoerrto5.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto5.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto5.F90	(revision 2160)
@@ -0,0 +1,38 @@
+MODULE YOERRTO5
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO5* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 5
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO5  = 16
+
+REAL_B :: FRACREFAO(NO5,9) ,FRACREFBO(NO5,5)
+
+REAL_B , DIMENSION(NO5) :: CCL4O
+
+REAL_B :: KAO(9,5,13,NO5)
+REAL_B :: KBO(5,5,13:59,NO5)
+REAL_B :: SELFREFO(10,NO5)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO5
Index: LMDZ5/branches/testing/libf/phymar/yoerrto6.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto6.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto6.F90	(revision 2160)
@@ -0,0 +1,37 @@
+MODULE YOERRTO6
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO6* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 6
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO6  = 16
+
+REAL_B , DIMENSION(NO6) :: FRACREFAO
+
+REAL_B , DIMENSION(NO6) :: CFC11ADJO
+REAL_B , DIMENSION(NO6) :: CFC12O
+REAL_B , DIMENSION(NO6) :: ABSCO2O
+
+REAL_B :: KAO(5,13,NO6)
+REAL_B :: SELFREFO(10,NO6)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO6
Index: LMDZ5/branches/testing/libf/phymar/yoerrto7.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto7.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto7.F90	(revision 2160)
@@ -0,0 +1,38 @@
+MODULE YOERRTO7
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO7* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 7
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO7  = 16
+
+REAL_B :: FRACREFAO(NO7,9)
+
+REAL_B , DIMENSION(NO7) :: FRACREFBO
+REAL_B , DIMENSION(NO7) :: ABSCO2O
+REAL_B :: KAO(9,5,13,NO7)
+REAL_B :: KBO(5,13:59,NO7)
+REAL_B :: SELFREFO(10,NO7)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL  
+!     -----------------------------------------------------------------
+END MODULE YOERRTO7
Index: LMDZ5/branches/testing/libf/phymar/yoerrto8.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto8.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto8.F90	(revision 2160)
@@ -0,0 +1,49 @@
+MODULE YOERRTO8
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO8* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 8
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO8  = 16
+
+REAL_B , DIMENSION(NO8) :: FRACREFAO
+REAL_B , DIMENSION(NO8) :: FRACREFBO
+REAL_B , DIMENSION(NO8) :: CFC12O
+REAL_B , DIMENSION(NO8) :: CFC22ADJO
+REAL_B , DIMENSION(NO8) :: ABSCO2AO
+REAL_B , DIMENSION(NO8) :: ABSCO2BO
+REAL_B , DIMENSION(NO8) :: ABSN2OAO
+REAL_B , DIMENSION(NO8) :: ABSN2OBO
+
+REAL_B :: KAO(5,7,NO8)
+REAL_B :: KBO(5,7:59,NO8)
+REAL_B :: SELFREFO(10,NO8)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSCO2A : REAL     
+! ABSCO2B : REAL     
+! ABSN2OA : REAL     
+! ABSN2OB : REAL 
+! CFC12   : REAL     
+! CFC22ADJ: REAL     
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO8
Index: LMDZ5/branches/testing/libf/phymar/yoerrto9.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrto9.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrto9.F90	(revision 2160)
@@ -0,0 +1,45 @@
+MODULE YOERRTO9
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO9* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 9
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: NO9  = 16
+
+REAL_B :: FRACREFAO(NO9,9)
+
+REAL_B , DIMENSION(NO9) :: FRACREFBO
+! 48 = 3*NO9      
+REAL_B , DIMENSION(48) :: ABSN2OO
+
+REAL_B :: KAO(11,5,13,NO9)
+REAL_B :: KBO(5,13:59,NO9)
+REAL_B :: SELFREFO(10,NO9)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSN2O  : REAL    
+! CH4REF  : REAL
+! ETAREF  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! H2OREF  : REAL
+! N2OREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO9
Index: LMDZ5/branches/testing/libf/phymar/yoerrtrf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtrf.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtrf.F90	(revision 2160)
@@ -0,0 +1,29 @@
+MODULE YOERRTRF
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTRF* - RRTM REFERENCE ATMOSPHERE
+!     -----------------------------------------------------------------
+
+REAL_B , DIMENSION(59) :: PREF
+REAL_B , DIMENSION(59) :: PREFLOG
+REAL_B , DIMENSION(59) :: TREF
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! PREF   :  REAL    
+! PREFLOG: REAL
+! TREF   : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTRF
Index: LMDZ5/branches/testing/libf/phymar/yoerrtrwt.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtrwt.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtrwt.F90	(revision 2160)
@@ -0,0 +1,35 @@
+MODULE YOERRTRWT
+
+#include "tsmbkind.h"
+
+USE PARRRTM
+
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL_B :: FREFA  (JPGPT,13)
+REAL_B :: FREFB  (JPGPT,6)
+REAL_B :: FREFADF(JPGPT,13)
+REAL_B :: FREFBDF(JPGPT,6)
+REAL_B :: RWGT   (JPG*JPBAND)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! FREFA  :  REAL   :
+! FREFB  :  REAL   :
+! FREFADF:  REAL   :
+! FREFBDF:  REAL   :
+! RWT    :  REAL   : 
+!    -------------------------------------------------------------------
+END MODULE YOERRTRWT
Index: LMDZ5/branches/testing/libf/phymar/yoerrtwn.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoerrtwn.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoerrtwn.F90	(revision 2160)
@@ -0,0 +1,39 @@
+MODULE YOERRTWN
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+INTEGER_M , DIMENSION(16) :: NG
+INTEGER_M , DIMENSION(16) :: NSPA
+INTEGER_M , DIMENSION(16) :: NSPB
+
+REAL_B , DIMENSION(16) :: WAVENUM1
+REAL_B , DIMENSION(16) :: WAVENUM2
+REAL_B , DIMENSION(16) :: DELWAVE
+
+REAL_B , DIMENSION(181,16) :: TOTPLNK
+REAL_B , DIMENSION(181)    :: TOTPLK16
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----    : -------
+!  NG     : INTEGER : Number of k-coefficients in spectral intervals
+!  NSPA   : INTEGER :
+!  NSPB   : INTEGER :
+! WAVENUM1: REAL    : Lower wavenumber spectral limit
+! WAVENUM2: REAL    : Higher wavenumber spectral limit
+! DELWAVE : REAL    : Spectral interval width
+! TOTPLNK : REAL    :
+! TOTPLK16: REAL    :
+!     -----------------------------------------------------------------
+END MODULE YOERRTWN
Index: LMDZ5/branches/testing/libf/phymar/yoesat.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoesat.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoesat.F90	(revision 2160)
@@ -0,0 +1,57 @@
+MODULE YOESAT
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESAT* - CONTROL OF SIMULATION OF SATELLITE RADIANCES
+!     -----------------------------------------------------------------
+
+INTEGER_M :: NGEO
+INTEGER_M :: NPOLO
+REAL_B :: RGALT(5)
+REAL_B :: RGNAD(5)
+REAL_B :: RGNOR(5)
+REAL_B :: RGSOU(5)
+REAL_B :: RGWST(5)
+REAL_B :: RGEAS(5)
+LOGICAL LGEOSE
+LOGICAL LGEOSW
+LOGICAL LGMS
+LOGICAL LINDSA
+LOGICAL LMTO
+LOGICAL LNOAA
+LOGICAL LNOAB
+LOGICAL LNOAC
+LOGICAL LNOAD
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME    TYPE     PURPOSE
+!  ---- :  ----   : ---------------------------------------------------
+! NGEO  : INTEGER : NUMBER OF GEOSTATIONARY SATELLITES
+! NPOLO : INTEGER : NUMBER OF POLAR-ORBITER SATELLITES
+! LGEOSE: LOGICAL : SWITCH FOR GEOS-EAST
+! LGEOSW: LOGICAL : SWITCH FOR GEOS-WEST
+! LGMS  : LOGICAL : SWITCH FOR GMS
+! LINDSA: LOGICAL : SWITCH FOR INDSAT
+! LMTO  : LOGICAL : SWITCH FOR METEOSAT
+! LNOAA : LOGICAL : SWITCH FOR NOAA-A
+! LNOAB : LOGICAL : SWITCH FOR NOAA-B
+! LNOAC : LOGICAL : SWITCH FOR NOAA-C
+! LNOAD : LOGICAL : SWITCH FOR NOAA-D
+! RGALT : REAL    : ALTITUDE ABOVE EARTH'S SURFACE OF GEOSTAT. SATELLITE
+! RGNAD : REAL    : LONGITUDE OF NADIR OF GEOSTATIONARY SATELLITE
+! RGNOR : REAL    : LATITUDE OF NORTH LIMIT OF FIELD OF VIEW
+! RGSOU : REAL    : LATITUDE OF SOUTH LIMIT OF FIELD OF VIEW
+! RGWST : REAL    : LATITUDE OF WEST  LIMIT OF FIELD OF VIEW
+! RGEAS : REAL    : LATITUDE OF EAST  LIMIT OF FIELD OF VIEW
+!     -----------------------------------------------------------------
+END MODULE YOESAT
Index: LMDZ5/branches/testing/libf/phymar/yoesw.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoesw.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoesw.F90	(revision 2160)
@@ -0,0 +1,278 @@
+MODULE YOESW
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESW* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+
+REAL_B :: APAD(6,3,7)
+REAL_B :: BPAD(6,3,7)
+REAL_B :: RRAY(6,6)
+REAL_B :: RSUN(6)
+REAL_B :: RPDH1
+REAL_B :: RPDU1
+REAL_B :: RPNH
+REAL_B :: RPNU
+REAL_B :: RSWCE(6)
+REAL_B :: RSWCP(6)
+REAL_B :: RTDH2O
+REAL_B :: RTDUMG
+REAL_B :: RTH2O
+REAL_B :: RTUMG
+REAL_B :: D(6,3)
+REAL_B :: REXPO3(6,2,7)
+INTEGER_M :: NEXPO3(6)
+
+REAL_B :: RYFWCA(6)
+REAL_B :: RYFWCB(6)
+REAL_B :: RYFWCC(6)
+REAL_B :: RYFWCD(6)
+REAL_B :: RYFWCE(6)
+REAL_B :: RYFWCF(6)
+
+REAL_B :: REBCUA(6)
+REAL_B :: REBCUB(6)
+REAL_B :: REBCUC(6)
+REAL_B :: REBCUD(6)
+REAL_B :: REBCUE(6)
+REAL_B :: REBCUF(6)
+REAL_B :: REBCUG(16)
+REAL_B :: REBCUH(16)
+REAL_B :: REBCUI(6)
+REAL_B :: REBCUJ(6)
+
+REAL_B :: RASWCA(6)
+REAL_B :: RASWCB(6)
+REAL_B :: RASWCC(6)
+REAL_B :: RASWCD(6)
+REAL_B :: RASWCE(6)
+REAL_B :: RASWCF(6)
+
+REAL_B :: RFUETA(16,3)
+REAL_B :: RFULIO(16,3)
+REAL_B :: RLINLI(16,5)
+
+REAL_B :: RFUAA0(6)
+REAL_B :: RFUAA1(6)
+REAL_B :: RFUBB0(6)
+REAL_B :: RFUBB1(6)
+REAL_B :: RFUBB2(6)
+REAL_B :: RFUBB3(6)
+REAL_B :: RFUCC0(6)
+REAL_B :: RFUCC1(6)
+REAL_B :: RFUCC2(6)
+REAL_B :: RFUCC3(6)
+
+REAL_B :: RFLAA0(6)
+REAL_B :: RFLAA1(6)
+REAL_B :: RFLBB0(6)
+REAL_B :: RFLBB1(6)
+REAL_B :: RFLBB2(6)
+REAL_B :: RFLBB3(6)
+REAL_B :: RFLCC0(6)
+REAL_B :: RFLCC1(6)
+REAL_B :: RFLCC2(6)
+REAL_B :: RFLCC3(6)
+REAL_B :: RFLDD0(6)
+REAL_B :: RFLDD1(6)
+REAL_B :: RFLDD2(6)
+REAL_B :: RFLDD3(6)
+
+REAL_B :: RHSAVI(16,3)
+
+REAL_B :: RSUSHE(6)
+REAL_B :: RSUSHF(6)
+REAL_B :: RSUSHH(6)
+REAL_B :: RSUSHK(6)
+REAL_B :: RSUSHA(6)
+REAL_B :: RSUSHG(6)
+REAL_B :: RSUSHFA(4)
+REAL_B :: RSUSHC
+REAL_B :: RSUSHD
+
+REAL_B :: REFFIA
+REAL_B :: REFFIB
+REAL_B :: RTIW
+REAL_B :: RRIW
+REAL_B :: RROMA(6)
+REAL_B :: RROMB(6)
+REAL_B :: RRASY(6)
+
+REAL_B :: RHSRA(6)
+REAL_B :: RHSRB(6)
+REAL_B :: RHSRC(6)
+REAL_B :: RHSRD(6)
+REAL_B :: RHSRE(6)
+REAL_B :: RHSRF(6)
+REAL_B :: RHSRTA
+REAL_B :: RHSRTB
+
+REAL_B :: RTAUA(6,6)
+REAL_B :: RPIZA(6,6)
+REAL_B :: RCGA(6,6)
+REAL_B :: RAER(6,6)
+
+REAL_B :: RALBICE_AR(12,6)
+REAL_B :: RALBICE_AN(12,6)
+REAL_B :: RTWEIGHT(8)
+REAL_B :: RWEIGHT(6,8)
+INTEGER_M :: NTYPS
+REAL_B :: RWEIGS(6)
+REAL_B :: RWEIGV(6)
+
+REAL_B :: RADJUST
+
+LOGICAL LO3ONLY
+
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  APAD  :  REAL     PADE APPROXIMANTS NUMERATOR
+!  BPAD  :  REAL     PADE APPROXIMANTS DENOMINATOR
+!  D     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
+!  RRAY  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
+!  RSUN  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
+!  RPDH1 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
+!  RPDU1 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RPNH  :  REFERENCE PRESSURE FACTOR FOR H2O
+!  RPNU  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
+!  RSWCE :  E-TYPE, H2O CONTINUUM ABSORPTION COEFFICIENT 
+!  RSWCP :  P-TYPE, H2O CONTINUUM ABSORPTION COEFFICIENT 
+!  RTDH2O:  EXPONENT TEMPERATURE DEPENDENCE H2O
+!  RTDUMG:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RTH2O :  REFERENCE TEMPERATURE H2O
+!  RTUMG :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCF :  REAL   : ASSYMETRY FACTOR
+
+!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
+
+! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCF :  REAL   : ASSYMETRY FACTOR
+
+!*   SAVIJARVI (1998) WATER CLOUD OPTICAL PROPERTIES (RRTM)
+
+! RHSAVI : REAL    : MASS ABSORPTION COEFFICIENTS (POLYNOMIAL DEVELOPM)
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUI :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT SPECTRAL FORMULA
+! REBCUJ :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT SPECTRAL FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)
+
+! RSHSUE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
+! RSHSUF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
+! RSHSUH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
+! RSHSUK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
+! RSHSUA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
+! RSHSUG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA
+! RSHSUFA:  REAL   : COEFFICIENTS IN TEMPERATURE CORRECTION FACTOR
+
+! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
+! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)
+
+! RFULIO :  REAL   : COEFFICIENTS IN EXPRESSION FOR LW EXTINCTION COEFF.
+! RFLAA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RFLBB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RFLCC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+! RFLDD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)
+
+! RFUETA :  REAL   : COEFFICIENTS IN EXPRESSION FOR LW EXTINCTION COEFF.
+! RFUAA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RFUBB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RFUCC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
+
+! RTIW   :  REAL   : TEMPERATURE THRESHOLD
+! RRIW   :  REAL   : TRANSITION RANGE
+
+!*    RAIN OPTICAL PROPERTIES FROM SAVIJARVI (1996)
+
+! RROMA  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RROMB  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RRASY  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
+! RHSRA  :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+! RHSRB  :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+! RHSRC  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RHSRD  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RHSRE  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR 
+! RHSRF  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
+! RHSRTA :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+! RHSRTB :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!  RTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!  RPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
+!  RCGA  :  REAL     S.W. ASSYMETRY FACTOR
+!  RAER  :  REAL     L.W. ABSORPTION COEFFICIENTS
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!RTWEIGHT:  REAL     S.W. INTEGRATED WEIGHT 
+! RWEIGHT:  REAL     S.W. SPECTR WEIGHT 
+!                     1 - ocean (flat response)
+!                     2 - sea-ice (as snow or ice depending on month)
+!                     3 - wet skin (flat)
+!                     4 - vegetation low and snow-free (BR, 1986)
+!                     5 - snow on low vegetation       (Warren, 1982)
+!                     6 - vegetation high and snow-free (BR, 1986)
+!                     7 - snow under high vegetation   (Warren, 1982)
+!                     8 - bare soil (Briegleb, Ramanathan, 1986)
+! RALBICE_AN : REAL : monthly sea-ice albedo in SW spectral intervals
+!                     for Antarctica
+! RALBICE_AN : REAL : for Arctic
+!     -----------------------------------------------------------------
+END MODULE YOESW
Index: LMDZ5/branches/testing/libf/phymar/yoethf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoethf.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoethf.F90	(revision 2160)
@@ -0,0 +1,56 @@
+MODULE YOETHF
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
+!     ------------------------------------------------------------------
+
+REAL_B :: R2ES
+REAL_B :: R3LES
+REAL_B :: R3IES
+REAL_B :: R4LES
+REAL_B :: R4IES
+REAL_B :: R5LES
+REAL_B :: R5IES
+REAL_B :: RVTMP2
+REAL_B :: RHOH2O
+REAL_B :: R5ALVCP
+REAL_B :: R5ALSCP
+REAL_B :: RALVDCP
+REAL_B :: RALSDCP
+REAL_B :: RALFDCP
+REAL_B :: RTWAT
+REAL_B :: RTBER
+REAL_B :: RTBERCU
+REAL_B :: RTICE
+REAL_B :: RTICECU
+
+!     J.-J. MORCRETTE                   91/07/14  ADAPTED TO I.F.S.
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *R__ES*   REAL      *CONSTANTS USED FOR COMPUTATION OF SATURATION
+!                         MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
+!                         ICE(*R_IES*).
+!     *RVTMP2*  REAL      *RVTMP2=RCPV/RCPD-1.
+!     *RHOH2O*  REAL      *DENSITY OF LIQUID WATER.   (RATM/100.)
+!     *R5ALVCP* REAL      *R5LES*RLVTT/RCPD
+!     *R5ALSCP* REAL      *R5IES*RLSTT/RCPD
+!     *RALVDCP* REAL      *RLVTT/RCPD
+!     *RALSDCP* REAL      *RLSTT/RCPD
+!     *RALFDCP* REAL      *RLMLT/RCPD
+!     *RTWAT*   REAL      *RTWAT=RTT
+!     *RTBER*   REAL      *RTBER=RTT-0.05
+!     *RTBERCU  REAL      *RTBERCU=RTT-5.0
+!     *RTICE*   REAL      *RTICE=RTT-0.1
+!     *RTICECU* REAL      *RTICECU=RTT-23.0
+
+!       ----------------------------------------------------------------
+END MODULE YOETHF
Index: LMDZ5/branches/testing/libf/phymar/yoetluc.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoetluc.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoetluc.F90	(revision 2160)
@@ -0,0 +1,34 @@
+MODULE YOETLUC
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    *YOETLUC* - Look-up tables for thermodynamic functions
+!     ------------------------------------------------------------------
+!     PARAMETER( JPTLUCU1=100000 , JPTLUCU2=370000 )
+
+!     REAL TLUCUA(JPTLUCU1:JPTLUCU2),TLUCUB(JPTLUCU1:JPTLUCU2)
+!    +  ,  TLUCUC(JPTLUCU1:JPTLUCU2)
+
+!     /POETLUC/ MTLUCUA,MTLUCUB,MTLUCUC
+
+!     POINTER (MTLUCUA,TLUCUA),(MTLUCUB,TLUCUB),(MTLUCUC,TLUCUC)
+
+
+!          D.SALMOND  CRAY (UK)   12/8/91
+!          J.J. MORCRETTE ECMWF   92-09-18  Update to Cy44
+
+!     NAME      TYPE     DEFINITION
+!     ----      ----     ----------
+
+!     TLUCUA    REAL     TABLE 1
+!     TLUCUB    REAL     TABLE 1
+!     TLUCUC    REAL     TABLE 1
+
+!     ------------------------------------------------------------------
+END MODULE YOETLUC
Index: LMDZ5/branches/testing/libf/phymar/yoevdf.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoevdf.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoevdf.F90	(revision 2160)
@@ -0,0 +1,71 @@
+MODULE YOEVDF
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
+!     ------------------------------------------------------------------
+
+REAL_B :: RLAM
+REAL_B :: RKAP
+REAL_B :: RCHAR
+REAL_B :: RVDIFTS
+REAL_B :: RTFREEZ
+REAL_B :: RZ0ICE
+REAL_B :: REPDU2
+REAL_B :: REPUST
+REAL_B :: RSEZ0H
+REAL_B :: RSEZ0Q
+REAL_B :: RNUM
+REAL_B :: RNUH
+REAL_B :: RNUQ
+REAL_B :: RENTR
+REAL_B :: RPAR
+REAL_B :: RPAR1
+REAL_B :: RPARSRF
+REAL_B :: RPARZI
+REAL_B :: RLAMSK
+LOGICAL LELWDD
+
+!*     *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
+!     FOR THE COMPUTATION OF VERTICAL DIFFUSION
+
+
+!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89
+
+!     OBUKHOV-L UPDATE     ACMB          26/03/90.   
+
+!     NAME        TYPE     DESCRIPTION
+!     ----        ----     -----------
+
+!     *RLAM*      REAL     *ASYMPTOTIC MIXING LENGTH FOR MOMENTUM
+!     *RKAP*      REAL     *VONKARMAN CONSTANT
+!     *RCHAR*     REAL     *CHARNOCK CONSTANT
+!     *RVDIFTS*   REAL     *FACTOR FOR TIME STEP WEIGHTING IN *VDF....*
+!     *RTFREEZ*   REAL     *TEMPERATURE AT WHICH SEA STARTS
+!                           MELTING/FREEZING
+!     *RZ0ICE*    REAL     *ROUGHNESS OVER SEA ICE
+!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER
+!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER  
+!     *REPUST*    REAL     *MINIMUM FRICTION VELOCITY (SECURITY PARAMETER)
+!     *RSEZ0H*    REAL     *ROUGHNESS LENGTH FOR HEAT OVER ROUGH SEA   
+!     *RSEZ0Q*    REAL     *ROUGHNESS LENGTH FOR MOISTURE OVER ROUGH SEA 
+!     *RNUM*      REAL     *SMOOTH SURFACE CONSTANT IN Z0M=RNUM/U*    
+!     *RNUH*      REAL     *SMOOTH SURFACE CONSTANT IN Z0H=RNUH/U*  
+!     *RNUQ*      REAL     *SMOOTH SURFACE CONSTANT IN Z0Q=RNUQ/U*    
+!     *RENTR*     REAL     *ENTRAINMENT CONSTANT          
+!     *RPAR*      REAL     *PARAMETER FOR TEMPERATURE EXCESS IN THERMAL 
+!                           AT BOUNDARY LAYER TOP      
+!     *RPAR1*     REAL     *COEFFICIENT OF (W*)**3 IN WS         
+!     *RPARSRF*   REAL     *DEPTH OF SURFACE LAYER AS FRACTION OF PBL-H 
+!     *RPARZI*    REAL     *ANSATZ FOR PBL-H IN W* COMPUTATION  
+!     *RLAMSK*    REAL     *SKIN LAYER THERMAL BULK CONDUCTIVITY (W/M2/K)
+!     *LELWDD*    LOGICAL  *TRUE WHEN LONGWAVE DOWNWARD DERIVATIVE IS
+!                           FOR SKIN TEMPERATURE  
+!     ------------------------------------------------------------------
+END MODULE YOEVDF
Index: LMDZ5/branches/testing/libf/phymar/yoevdfs.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoevdfs.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoevdfs.F90	(revision 2160)
@@ -0,0 +1,66 @@
+MODULE YOEVDFS
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEVDFS* CONTAINS STABILITY FUNCTION TABLES FOR *VDF...*
+!     ------------------------------------------------------------------
+
+INTEGER_M, PARAMETER :: JPRITBL=101
+REAL_B :: RITBL(JPRITBL)
+REAL_B :: ARITBL(JPRITBL)
+REAL_B :: RCHBA
+REAL_B :: RCHBB
+REAL_B :: RCHBC
+REAL_B :: RCHBD
+REAL_B :: RCHB23A
+REAL_B :: RCHBBCD
+REAL_B :: RCHBCD
+REAL_B :: RCHETA
+REAL_B :: RCHETB
+REAL_B :: RCHETC
+REAL_B :: RCHBHDL
+REAL_B :: RCDHALF
+REAL_B :: RCDHPI2
+REAL_B :: RIMAX
+REAL_B :: DRITBL
+REAL_B :: DRI26
+
+!**   ** *YOEDFS* CONTAINS STABILITY FUNCTION TABLES FOR *VDF...*
+
+!     A.C.M. BELJAARS   E.C.M.W.F.       26/03/90.
+
+!      NAME      TYPE        PURPOSE
+!      ----      ----        -------
+
+!     *RCHBA*     REAL       *CONSTANT A IN *HOLTSLAG AND *DEBRUIN
+!                            FUNCTIONS FOR STABLE SITUATIONS
+!     *RCHBB*     REAL       *CONSTANT B IN *HB* FUNCTIONS
+!     *RCHBC*     REAL       *CONSTANT C IN *HB* FUNCTIONS
+!     *RCHBD*     REAL       *CONSTANT D IN *HB* FUNCTIONS
+!     *RCHB23A    REAL       2./3.*A IN *HB* FUNCTIONS
+!     *RCHBBCD    REAL       B*C/D IN *HB* FUNCTIONS
+!     *RCHBCD     REAL       C/D IN *HB* FUNCTIONS
+!     *RCHETA*    REAL       CONSTANT IN THE *HOGSTROM *ELLISON *TURNER
+!                            FUNCTIONS FOR STABLY STRATIFIED TURBULENCE 
+!     *RCHETB*    REAL       CONSTANT IN THE *HET* FUNCTIONS     
+!     *RCHETC*    REAL       CONSTANT IN *HET* FUNCTIONS  
+!     *RCHBHDL*   REAL       MAXIM ZNLEV/L FOR STABLE BOUNDARY LAYER  
+!     *RCDHALF    REAL       CONSTANT IN *DYER AND *HICKS FORMULAE
+!                            FOR UNSTABLE SITUATIONS
+!     *RCDHPI2    REAL       PI/2.
+!     *RIMAX*     REAL       *MAXIMIM RICHARDSON NUMBER TABULATED
+!     *DRITBL*    REAL       *INCREMENT OF THE RICHARDSON NUMBER
+!                            BETWEEN TABULATED VALUES.
+!     *DRI26*     REAL       DRITBL**2/6.
+!     *RITBL*     REAL ARRAY *TABULATED ETA-VALUES (Z/L) AS A FUNCTION
+!                            OF THE RICHARDSON NUMBER FOR STABLE CASES.
+!     *ARITBL*    REAL ARRAY *SECOND DERIVATIVES OF TABULATED FUNCTION
+!                            FOR SPLINE INTERPOLATION.
+!     ------------------------------------------------------------------
+END MODULE YOEVDFS
Index: LMDZ5/branches/testing/libf/phymar/yoeveg.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoeveg.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoeveg.F90	(revision 2160)
@@ -0,0 +1,60 @@
+MODULE YOEVEG
+
+#include "tsmbkind.h"
+
+USE PARDIM
+
+
+IMPLICIT NONE
+
+SAVE
+
+!       ----------------------------------------------------------------
+!**    ** *YOEVEG* CONTAINS CONSTANTS VEGETATION PARAMETERS
+!       ----------------------------------------------------------------
+
+REAL_B :: RCVA
+REAL_B :: RCVB
+REAL_B :: RCVC
+REAL_B :: RCVBC
+REAL_B :: RVLT
+REAL_B :: RVXPKLT
+REAL_B :: RVXMKLT
+REAL_B :: RVKC
+REAL_B :: RVABC
+REAL_B :: RVRAD
+REAL_B :: RVINTER
+REAL_B :: RVZ0SN
+REAL_B :: RCEPSW
+REAL_B :: REPSR
+REAL_B :: REPEVAP
+
+REAL_B :: RVROOTSA(JPCSS)
+!*     *YOEVEG* CONTAINS VEGETATION PARAMETERS,
+!     USED IN *VDF...* AND *SRF...*.
+
+!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89
+
+!     NAME        TYPE     DESCRIPTION
+!     ----        ----     -----------
+
+!     *RCVA*      REAL     *CONSTANT TO DEFINE THE STOMATAL RESISTANCE
+!     *RCVB*      REAL     *CONSTANT TO DEFINE THE STOMATAL RESISTANCE
+!     *RCVC*      REAL     *MINIMUM STOMATAL RESITANCE
+!     *RCVBC*     REAL     * RCVB X RCVC
+!     *RVLT*      REAL     *LEAF AREA INDEX
+!     *RVXPKLT*   REAL     *EXP(RCVKLT)
+!     *RVXMKLT*   REAL     *EXP(-RCVKLT)
+!     *RVKC*      REAL     * CVK X RCVC
+!     *RVABC*     REAL     * (RCVA+RCVBC)/RCVC
+!     *RVROOTSA*  REAL     *PERCENTAGE OF ROOTS IN EACH SOIL LAYER
+!     *RVRAD*     REAL     *FRACTION OF THE NET S.W. RADIATION
+!                           CONTRIBUTING TO P.A.R.
+!     *RVINTER*   REAL     *EFFICIENCY OF INTERCEPTION OF PRECIPITATION
+!     *RVZ0SN*    REAL     *FRACTION OF VEGETATION COVERED BY SNOW
+!     *RCEPSW*     REAL     *MINIMUM RELATIVE HUMIDITY
+!     *REPSR*     REAL     *MINIMUM VALUE FOR SHORT WAVE RADIATION IN
+!                          THE CANOPY RESISTANCE COMPUTATION
+!     *REPEVAP*   REAL     *MINIMUM ATMOSPHERIC DEMAND
+!     ------------------------------------------------------------------
+END MODULE YOEVEG
Index: LMDZ5/branches/testing/libf/phymar/yoewcou.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yoewcou.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yoewcou.F90	(revision 2160)
@@ -0,0 +1,62 @@
+MODULE YOEWCOU
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+
+!*    ** *YOEWCOU* - VARIABLES FOR COUPLING WITH THE WAVE MODEL
+
+!     P. VITERBO     E.C.M.W.F.       07/10/88
+!     P. VITERBO     E.C.M.W.F.       03/02/92
+!     J. DOYLE       E.C.M.W.F.       21/11/96 
+!     J. BIDLOT      E.C.M.W.F.       13/06/97 
+!     J. BIDLOT      E.C.M.W.F.       11/08/98 
+
+!      NAME      TYPE       PURPOSE
+!      ----      ----       -------
+
+!     *NLONW*    INTEGER    NUMBER OF POINTS IN A LATITUDE LINE IN
+!                           THE WAVE MODEL
+!     *NLATW*    INTEGER    NUMBER OF LATITUDES IN THE WAVE MODEL.
+!     *NLON1W*   INTEGER    *NLONW*
+!     *NLAT1W*   INTEGER    TOTAL NUMBER OF LATITUDES WITH THE WAVE
+!                           MODEL RESOLUTION.
+!     *NNORXW*   INTEGER    NUMBER OF EXTRA POINTS NORTHWARDS OF THE
+!                           NORTHERN BOUNDARY OF THE WAVE MODEL.
+!     *CBEGDAT*  CHARACTER  INITIAL DATE OF FORECAST (YYYYMMDDHHmm)
+!     *NDURAT*   INTEGER    DURATION (IN MINUTES) OF TOTAL WAVE INTEGRATION
+!                              (OR FORECAST TIME IN MINUTES).
+!     *NSTPW*    INTEGER    FREQUENCY OF CALL TO THE WAVE MODEL.
+!     *NRESUM*   INTEGER    TIME STEP OF A RESTART EVENT
+!     *LWCOU*    LOGICAL    TRUE IF THE WAVE MODEL IS TO BE RUN.
+!     *LWCOU2W*  LOGICAL    TRUE IF TWO-WAY INTERACTION WITH THE WAVE MODEL.
+!                           FALSE IF ONE-WAY INTERACTION WITH THE WAVE MODEL
+!     *RSOUTW*   REAL       SOUTH BOUNDARY OF THE WAVE MODEL.
+!     *RNORTW*   REAL       NORTH BOUNDARY OF THE WAVE MODEL.
+!     *RDEGREW*  REAL       RESOLUTION OF THE WAVE MODEL (DEGREES).
+
+
+INTEGER_M :: NLONW
+INTEGER_M :: NLATW
+INTEGER_M :: NLON1W
+INTEGER_M :: NLAT1W
+INTEGER_M :: NNORXW
+INTEGER_M :: NDURAT
+INTEGER_M :: NSTPW
+INTEGER_M :: NRESUM
+
+
+REAL_B :: RSOUTW
+REAL_B :: RNORTW
+REAL_B :: RDEGREW
+
+LOGICAL LWCOU
+LOGICAL LWCOU2W
+CHARACTER CBEGDAT*12
+
+!     ------------------------------------------------------------------
+END MODULE YOEWCOU
Index: LMDZ5/branches/testing/libf/phymar/yomcst.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yomcst.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yomcst.F90	(revision 2160)
@@ -0,0 +1,74 @@
+MODULE YOMCST
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Common of physical constants
+!     You will find the meanings in the annex 1 of the documentation
+
+! A1.0 Fundamental constants
+REAL_B :: RPI
+REAL_B :: RCLUM
+REAL_B :: RHPLA
+REAL_B :: RKBOL
+REAL_B :: RNAVO
+! A1.1 Astronomical constants
+REAL_B :: RDAY
+REAL_B :: REA
+REAL_B :: REPSM
+REAL_B :: RSIYEA
+REAL_B :: RSIDAY
+REAL_B :: ROMEGA
+! A1.2 Geoide
+REAL_B :: RA
+REAL_B :: RG
+REAL_B :: R1SA
+! A1.3 Radiation
+REAL_B :: RSIGMA
+REAL_B :: RI0
+! A1.4 Thermodynamic gas phase
+REAL_B :: R
+REAL_B :: RMD
+REAL_B :: RMV
+REAL_B :: RMO3
+REAL_B :: RD
+REAL_B :: RV
+REAL_B :: RCPD
+REAL_B :: RCPV
+REAL_B :: RCVD
+REAL_B :: RCVV
+REAL_B :: RKAPPA
+REAL_B :: RETV
+! A1.5,6 Thermodynamic liquid,solid phases
+REAL_B :: RCW
+REAL_B :: RCS
+! A1.7 Thermodynamic transition of phase
+REAL_B :: RLVTT
+REAL_B :: RLSTT
+REAL_B :: RLVZER
+REAL_B :: RLSZER
+REAL_B :: RLMLT
+REAL_B :: RTT
+REAL_B :: RATM
+REAL_B :: RDT
+! A1.8 Curve of saturation
+REAL_B :: RESTT
+REAL_B :: RALPW
+REAL_B :: RBETW
+REAL_B :: RGAMW
+REAL_B :: RALPS
+REAL_B :: RBETS
+REAL_B :: RGAMS
+REAL_B :: RALPD
+REAL_B :: RBETD
+REAL_B :: RGAMD
+
+
+!    ------------------------------------------------------------------
+END MODULE YOMCST
Index: LMDZ5/branches/testing/libf/phymar/yomlun.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yomlun.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yomlun.F90	(revision 2160)
@@ -0,0 +1,185 @@
+MODULE YOMLUN
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Logical units used by code
+
+!     NULOUT :   output unit
+!     NULNAM :   unit number for namelist
+!     NORZUN :   UNIT NO. FOR TEMP HEIGHT ERROR CORRELATION
+!     NCMAFL :   UNIT NUMBERS FOR CMA FILES
+!     NULCL1 :   unit number for climatological fields (month before)
+!     NULCL2 :   unit number for climatological fields (month after)
+!     NTRJSH :   unit number for trajectory spectral data          WRTRA
+!     NTRJGG :   unit number for trajectory grid-point data        WRTRA
+!     NINMSH :   unit number for initial point of the minimization SUVAZX
+!     NINMGG :   unit number for initial point of the minimization SUVAZX
+!     NINISH :   unit number for initial spectral data             SUSPEC
+!     NINIGG :   unit number for initial grid-point data           SUSPEC
+!     NFGISH :   unit number for first-guess spectral data
+!     NFGIGG :   unit number for first-guess grid-point data
+!     NPOSSH :   output unit number (spectral fields)              CPREP1
+!     NPOSGG :   output unit number (grid point fields)            CPREP1
+!     NSPHMO :   unit number for conversion matrix (to normal mode space)
+!     NHOUMO :   unit number for conversion matrix (from normal mode space)
+!     NPINMI :   unit number for partially implicit NMI help arrays
+!     NFREQ2 :   unit number for freqencies arrays FREQ and FREQ2 (YOMNMI)
+!     NSAVSP :   unit number for saving spectral arrays           (CNMI)
+!     NTIDE  :   unit number for the LFI file containing the total tendencies
+!     NLTYPE :   unit number for LTYPGR, LTYPDB and LTYPTD arrays (YOMNMI)
+!     NPDIRL :   unit number for post-processing directory listing
+!     NPPPSH :   unit number for post-processed spherical harmonics WRPLPP
+!     NPPGG  :   unit number for post-processed grid-point fields   WRPLPP
+!     NFCER0 :   unit number for forecast errors on standard error grid
+!     NFCERZ :   unit number for horizontally interpolated forecast errors
+!                in field form.
+!     NFCERH :   unit number for horizontally interpolated forecast errors
+!                in line form.
+!     NFCEVC :   unit number for compressed error climatology file
+!     NFCSPG :   unit number for spectral first guess field
+
+!     NFFUNC :   unit number for Fspalt(1,jlev,jvar) and Fspsur(1,1) with the
+!                number of simulations.                             EVCOST
+!     NFSPNC :   unit number for Fspalt(jlev,jvar,jn) and Fspsur(1,jn)
+!                with the number of simulations.                    EVCOST
+!     NFDIT0 :   unit number for global distance at t0 with the
+!                number of simulations.                              SIM4D
+!     NFSPT0 :   unit number for distance at t0 (by field and wave number)
+!                at the begining and at the end of the minimisation COSTRA
+
+!     NULZDID:   unit number for zonal diagnostics of dynamics (ZODIA).
+!     NULZDIF:   unit number for zonal diagnostics of physical fluxes (ZODIA).
+
+!     NULDILA:   unit number for dilatation matrix (SUDIL,DILAT,SPDILA)
+!     NULCONT:   unit number for contraction matrix (SUDIL,DILAT,SPDILA)
+!     NULROTS:   unit number for lower troncature rotation matrix (SUROT,SPORTS)
+!     NULROTC:   unit number for upper troncature rotation matrix (SUROT,SPORTS)
+
+!     NULLEG :   unit number for Legendre polynomials
+!     NULCO  :   unit number for coupled fields (ICMCO)
+!     NPODDH :   unit number for mask diagnostic files (DDH)
+!     NULRCF :   unit number for restart control file
+!     NULHWF :   unit number for history witness file
+!     NBIAS  :   unit number for bias (dig. filt. guess - guess)
+
+!     NEFLS  :   unit number for coupling ALADIN file
+!     NEFLSS :   unit number for coupling ALADIN file (initialisation)
+
+!     NULUSR1:   unit numbers for user defined files
+!     NULDISP:   unit number for display file
+!     NULSTAT:   unit number for status  file
+
+!     NULASE :   unit number for CANARI statistics (forecast error s.d.)
+!     NULASS :   unit number for CANARI statistics (analysis error s.d.)
+
+!     NULUSR2
+!     NULUSR3
+!     NULUSR4
+!     NULUSR5
+!     NULTMP :   unit numbers for file opened and closed in the same routine
+
+!     NULFPxx    unit numbers for Full-POS output files
+!     NSCRTCH:   unit number for Full-POS scratch file (for in-line post-proc.)
+!     NULFPOS:   unit number for Full-POS control file (end of post-processing
+!                in conf. 001 ; auxilary namelist file in conf. 927)
+!     NULDIA :   unit number for error diagnostics
+!     NULERR :   unit number for comparison with reference run
+!     NULREF :   unit number for storing reference run
+!     NULTIM :   unit number for storing timing information for DM run
+!     NULRAD :   unit number for writing radiation diagnostics
+!     NUO3CH1:   unit number for reading ozone chemistry file 1
+!     NUO3CH2:   unit number for reading ozone chemistry file 2
+!     NTCSR  :   unit number for fields of radiation coefficients
+INTEGER_M :: NULOUT
+INTEGER_M :: NULNAM
+INTEGER_M :: NCMAFL(26)
+INTEGER_M :: NPOSSH
+INTEGER_M :: NPOSGG
+INTEGER_M :: NSPHMO
+INTEGER_M :: NHOUMO
+INTEGER_M :: NPINMI
+INTEGER_M :: NFREQ2
+INTEGER_M :: NLTYPE
+INTEGER_M :: NTIDE
+INTEGER_M :: NTRJSH
+INTEGER_M :: NTRJGG
+INTEGER_M :: NINMSH
+INTEGER_M :: NINMGG
+INTEGER_M :: NINISH
+INTEGER_M :: NINIGG
+INTEGER_M :: NFGISH
+INTEGER_M :: NFGIGG
+INTEGER_M :: NPPPSH
+INTEGER_M :: NPPGG
+INTEGER_M :: NULTMP
+INTEGER_M :: NFCER0
+INTEGER_M :: NFCERZ
+INTEGER_M :: NFCERH
+INTEGER_M :: NFCEVC
+INTEGER_M :: NFCSPG
+INTEGER_M :: NPODDH
+INTEGER_M :: NULLEG
+INTEGER_M :: NORZUN
+INTEGER_M :: NSAVSP
+INTEGER_M :: NFFUNC
+INTEGER_M :: NFSPNC
+INTEGER_M :: NFDIT0
+INTEGER_M :: NFSPT0
+INTEGER_M :: NULZDID
+INTEGER_M :: NULZDIF
+INTEGER_M :: NULCL1
+INTEGER_M :: NULCL2
+INTEGER_M :: NULASE
+INTEGER_M :: NULASS
+INTEGER_M :: NULDILA
+INTEGER_M :: NULCONT
+INTEGER_M :: NULROTS
+INTEGER_M :: NULROTC
+INTEGER_M :: NULRCF
+INTEGER_M :: NULHWF
+INTEGER_M :: NULUSR1
+INTEGER_M :: NULUSR2
+INTEGER_M :: NULUSR3
+INTEGER_M :: NULUSR4
+INTEGER_M :: NULUSR5
+INTEGER_M :: NULCO
+INTEGER_M :: NEFLS
+INTEGER_M :: NEFLSS
+INTEGER_M :: NBIAS
+INTEGER_M :: NPDIRL
+INTEGER_M :: NULDISP
+INTEGER_M :: NULSTAT
+INTEGER_M :: NULFP01
+INTEGER_M :: NULFP02
+INTEGER_M :: NULFP03
+INTEGER_M :: NULFP04
+INTEGER_M :: NULFP05
+INTEGER_M :: NULFP06
+INTEGER_M :: NULFP07
+INTEGER_M :: NULFP08
+INTEGER_M :: NULFP09
+INTEGER_M :: NULFP10
+INTEGER_M :: NULFP11
+INTEGER_M :: NULFP12
+INTEGER_M :: NULFP13
+INTEGER_M :: NULFP14
+INTEGER_M :: NULFP15
+INTEGER_M :: NULFPOS
+INTEGER_M :: NSCRTCH
+INTEGER_M :: NULDIA
+INTEGER_M :: NULERR
+INTEGER_M :: NULREF
+INTEGER_M :: NULTIM
+INTEGER_M :: NULRAD
+INTEGER_M :: NUO3CH1
+INTEGER_M :: NUO3CH2
+INTEGER_M :: NTCSR
+!     ------------------------------------------------------------------
+END MODULE YOMLUN
Index: LMDZ5/branches/testing/libf/phymar/yomrip.F90
===================================================================
--- LMDZ5/branches/testing/libf/phymar/yomrip.F90	(revision 2160)
+++ LMDZ5/branches/testing/libf/phymar/yomrip.F90	(revision 2160)
@@ -0,0 +1,70 @@
+MODULE YOMRIP
+
+
+#include "tsmbkind.h"
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Real time related variables (updated in UPDTIM)
+
+!     NINDAT : run initial date in the form AAAAMMDD
+!     NSSSSS : initial time in seconds (e.g. for 12h, 43200)
+!     RTIMST : ABSOLUTE TIME OF THE MODEL AT START
+
+!     NSTADD : NUMBER OF DAYS SINCE START OF THE MODEL
+!     NSTASS : NUMBER OF SECONDS since start of model modulo(86400)
+!     RSTATI : NUMBER OF SECONDS SINCE START OF THE MODEL
+!     RTIMTR : ABSOLUTE TIME OF THE MODEL
+
+!     RHGMT  : GMT TIME OF THE MODEL  (BETWEEN 0 AND 86400)
+!     REQTIM : EQUATION OF TIME
+!     RSOVR  : TRUE SOLAR TIME (GMT+EQUATION OF TIME)
+
+!     RDEASO : DISTANCE EARTH-SUN
+!     RDECLI : DECLINATION
+!     RWSOVR : IN RADIANS, TRUE SOLAR TIME (GMT+EQUATION OF TIME)
+!     RIP0   : I0 WEIGHTED BY THE DISTANCE EARTH-SUN
+
+!     RCODEC : COSINE OF THE DECLINATION
+!     RSIDEC :   SINE OF THE DECLINATION
+
+!     RCOVSR : COSINE OF TRUE SOLAR TIME
+!     RSIVSR :   SINE OF TRUE SOLAR TIME
+
+!     RDTSA  : TDT  /RA
+!     RDTSA2 : RDTSA**2
+!     RDTS62 : RDTSA**2/6
+!     RDTS22 : RDTSA**2/2
+
+!     RTDT   : TDT
+
+
+INTEGER_M :: NINDAT
+INTEGER_M :: NSSSSS
+INTEGER_M :: NSTADD
+INTEGER_M :: NSTASS
+REAL_B :: RTIMST
+REAL_B :: RSTATI
+REAL_B :: RTIMTR
+REAL_B :: RHGMT
+REAL_B :: REQTIM
+REAL_B :: RSOVR
+REAL_B :: RDEASO
+REAL_B :: RDECLI
+REAL_B :: RWSOVR
+REAL_B :: RIP0
+REAL_B :: RCODEC
+REAL_B :: RSIDEC
+REAL_B :: RCOVSR
+REAL_B :: RSIVSR
+REAL_B :: RDTSA
+REAL_B :: RDTSA2
+REAL_B :: RDTS62
+REAL_B :: RDTS22
+REAL_B :: RTDT
+!     ------------------------------------------------------------------
+END MODULE YOMRIP
Index: LMDZ5/branches/testing/makelmdz
===================================================================
--- LMDZ5/branches/testing/makelmdz	(revision 2116)
+++ LMDZ5/branches/testing/makelmdz	(revision 2160)
@@ -27,4 +27,5 @@
 sisvat=false
 rrtm=false
+full=""
 
 # guess a default 'arch'
@@ -107,5 +108,5 @@
 [-parallel none/mpi/omp/mpi_omp] : parallelism (default: none) : mpi, openmp or mixted mpi_openmp
 [-g GRI]                   : grid configuration in dyn3d/GRI_xy.h  (default: reg, inclues a zoom)
-[-io IO]                   : Input/Output library (default: ioipsl)
+[-io ioipsl/mix/xios]                   : Input/Output library (default: ioipsl)
 [-include INCLUDES]        : extra include path to add
 [-cpp CPP_KEY]             : additional preprocessing definitions
@@ -113,4 +114,5 @@
 [-mem]                     : reduced memory dynamics (if in parallel mode)
 [-filtre NOMFILTRE]        : use filtre from libf/NOMFILTRE (default: filtrez)
+[-full]                    : Full (re)compilation (from scratch)
 [-link LINKS]              : additional links with other libraries
 [-fcm_path path]           : path to the fcm tool (default: tools/fcm/bin)
@@ -174,4 +176,7 @@
 	  filtre=$2 ; shift ; shift ;;
 
+      "-full")
+      full="full" ; shift ;;
+
       "-link")
 	  LIB="$LIB $2" ; shift ; shift ;;
@@ -192,5 +197,5 @@
 
 ###############################################################
-# lecture des chemins propres à l'architecture de la machine #
+# lecture des chemins propres \`a l'architecture de la machine #
 ###############################################################
 rm -f .void_file
@@ -384,8 +389,14 @@
    INCLUDE="$INCLUDE -I${IOIPSL_INCDIR}"
    LIB="$LIB -L${IOIPSL_LIBDIR} -l${LIBPREFIX}ioipsl"
-elif [[ $io == xios ]]
+elif [[ $io == mix ]]
 then
    # For now, xios implies also using ioipsl
    CPP_KEY="$CPP_KEY CPP_IOIPSL CPP_XIOS"
+   INCLUDE="$INCLUDE -I${IOIPSL_INCDIR} -I${XIOS_INCDIR}"
+   LIB="$LIB -L${IOIPSL_LIBDIR} -l${LIBPREFIX}ioipsl -L${XIOS_LIBDIR} -l${LIBPREFIX}stdc++ -l${LIBPREFIX}xios"
+elif [[ $io == xios ]]
+then
+   # For now, xios implies also using ioipsl
+   CPP_KEY="$CPP_KEY CPP_IOIPSL CPP_XIOS CPP_IOIPSL_NO_OUTPUT"
    INCLUDE="$INCLUDE -I${IOIPSL_INCDIR} -I${XIOS_INCDIR}"
    LIB="$LIB -L${IOIPSL_LIBDIR} -l${LIBPREFIX}ioipsl -L${XIOS_LIBDIR} -l${LIBPREFIX}stdc++ -l${LIBPREFIX}xios"
@@ -428,5 +439,4 @@
 echo dim $dim
 echo dimc $dimc
-
 
 ########################################################################
@@ -458,10 +468,8 @@
 fi
 
-
 cd $LIBFGCM/grid/dimension
 ./makdim $dim
 cat $LIBFGCM/grid/dimensions.h
 cd $LMDGCM
-
 
 ########################################################################
@@ -486,7 +494,24 @@
 fi
 
-
 cd $LMDGCM
 
+########################################################################
+# library directory name:
+########################################################################
+
+nomlib=`echo ${arch}_${physique}_${dim_full}_${grille}_${compil_mod}_parall${parallel}_${CPP_KEY}_${FLAG_PARA} | sed -e 's/ //g' -e 's/-//g ' | sed -e 's/CPP_//g'`
+echo "Path to library: "$nomlib
+
+########################################################################
+#  Cleanup for a full recompilation, if requested
+########################################################################
+
+if [[ $full == "full" ]]
+then
+# remove makefile and librairies
+  echo "-full option: recompiling from scratch"
+  \rm -f makefile
+  \rm -rf "${LIBOGCM}/${nomlib}"
+fi
 
 ########################################################################
@@ -532,8 +557,4 @@
   source_code=${code}.F90
 fi
-
-# library directory name:
-nomlib=`echo ${arch}_${physique}_${dim_full}_${grille}_${compil_mod}_parall${parallel}_${CPP_KEY}_${FLAG_PARA} | sed -e 's/ //g' -e 's/-//g ' | sed -e 's/CPP_//g'`
-echo $nomlib
 
 if [[ ! -d "${LIBOGCM}/${nomlib}" ]]
Index: LMDZ5/branches/testing/makelmdz_fcm
===================================================================
--- LMDZ5/branches/testing/makelmdz_fcm	(revision 2116)
+++ LMDZ5/branches/testing/makelmdz_fcm	(revision 2160)
@@ -3,11 +3,11 @@
 # This is a script in Bash.
 
-# FH : on ne crée plus le fichier arch.mk qui est supposé exister par
+# FH : on ne cr\'ee plus le fichier arch.mk qui est suppos\'e exister par
 # FH : ailleurs.
-# FH : ulterieurement, ce fichier sera pré-existant pour une série
-# FH : de configurations en versions optimisées et debug qui seront
-# FH : liés (ln -s) avec arch.mk en fonction de l'architecture.
-# FH : Pour le moment, cette version est en test et on peut créer les
-# FH : arch.mk en lançant une première fois makegcm.
+# FH : ulterieurement, ce fichier sera pr\'e-existant pour une s\'erie
+# FH : de configurations en versions optimis\'ees et debug qui seront
+# FH : li\'es (ln -s) avec arch.mk en fonction de l'architecture.
+# FH : Pour le moment, cette version est en test et on peut cr\'eer les
+# FH : arch.mk en lan\c{}cant une premi\`ere fois makegcm.
 #
 ##set -x
@@ -37,4 +37,7 @@
 LIBOGCM=$LMDGCM/libo
 LIBFGCM=$LMDGCM/libf
+# path for optional packages, but default set to ".void_dir"
+RRTM_PATH=$LMDGCM/.void_dir
+SISVAT_PATH=$LMDGCM/.void_dir
 COSP_PATH=$LMDGCM/.void_dir
 fcm_path=$LMDGCM/tools/fcm/bin
@@ -76,5 +79,5 @@
 [-parallel none/mpi/omp/mpi_omp] : parallelism (default: none) : mpi, openmp or mixted mpi_openmp
 [-g GRI]                   : grid configuration in dyn3d/GRI_xy.h  (default: reg, inclues a zoom)
-[-io IO]                   : Input/Output library (default: ioipsl)
+[-io ioipsl/mix/xios]                   : Input/Output library (default: ioipsl)
 [-include INCLUDES]        : extra include path to add
 [-cpp CPP_KEY]             : additional preprocessing definitions
@@ -189,5 +192,5 @@
 
 ###############################################################
-# lecture des chemins propres à l'architecture de la machine #
+# lecture des chemins propres \`a l'architecture de la machine #
 ###############################################################
 rm -f .void_file
@@ -304,6 +307,5 @@
 then
    CPP_KEY="$CPP_KEY CPP_SISVAT"
-   sed -e 's/^#src::sisvat/src::sisvat/' bld.cfg > bld.tmp
-   mv bld.tmp bld.cfg
+   SISVAT_PATH="$LIBFGCM/%PHYS/sisvat"
 fi
 
@@ -311,6 +313,5 @@
 then
    CPP_KEY="$CPP_KEY CPP_RRTM"
-   sed -e 's/^#src::rrtm/src::rrtm/' bld.cfg > bld.tmp
-   mv bld.tmp bld.cfg
+   RRTM_PATH="$LIBFGCM/%PHYS/rrtm"
 fi
 
@@ -320,8 +321,14 @@
    INCLUDE="$INCLUDE -I${IOIPSL_INCDIR}"
    LIB="$LIB -L${IOIPSL_LIBDIR} -l${LIBPREFIX}ioipsl"
-elif [[ $io == xios ]]
+elif [[ $io == mix ]]
 then
    # For now, xios implies also using ioipsl
    CPP_KEY="$CPP_KEY CPP_IOIPSL CPP_XIOS"
+   INCLUDE="$INCLUDE -I${IOIPSL_INCDIR} -I${XIOS_INCDIR}"
+   LIB="$LIB -L${IOIPSL_LIBDIR} -l${LIBPREFIX}ioipsl -L${XIOS_LIBDIR} -l${LIBPREFIX}stdc++ -l${LIBPREFIX}xios"
+elif [[ $io == xios ]]
+then
+   # For now, xios implies also using ioipsl
+   CPP_KEY="$CPP_KEY CPP_IOIPSL CPP_XIOS CPP_IOIPSL_NO_OUTPUT"
    INCLUDE="$INCLUDE -I${IOIPSL_INCDIR} -I${XIOS_INCDIR}"
    LIB="$LIB -L${IOIPSL_LIBDIR} -l${LIBPREFIX}ioipsl -L${XIOS_LIBDIR} -l${LIBPREFIX}stdc++ -l${LIBPREFIX}xios"
@@ -492,4 +499,6 @@
 echo "%DYN           $DYN"           >> $config_fcm
 echo "%PHYS          phy${physique}" >> $config_fcm
+echo "%RRTM          $RRTM_PATH"     >> $config_fcm
+echo "%SISVAT        $SISVAT_PATH"   >> $config_fcm
 echo "%COSP          $COSP_PATH"     >> $config_fcm
 echo "%CPP_KEY       $CPP_KEY"       >> $config_fcm
@@ -520,12 +529,4 @@
 ln -s $LIBOGCM/${arch}${SUFF_NAME}/.config/tmp tmp_src
 
-#eventual cleanup for SISVAT
-sed -e 's/^src::sisvat/#src::sisvat/' bld.cfg > bld.tmp
-mv bld.tmp bld.cfg
-
-#eventual cleanup for RRTM
-sed -e 's/^src::rrtm/#src::rrtm/' bld.cfg > bld.tmp
-mv bld.tmp bld.cfg
-
 
 if [[ -r $LIBFGCM/grid/dimensions.h ]]
Index: LMDZ5/branches/testing/tools/compare_real.py
===================================================================
--- LMDZ5/branches/testing/tools/compare_real.py	(revision 2160)
+++ LMDZ5/branches/testing/tools/compare_real.py	(revision 2160)
@@ -0,0 +1,36 @@
+#!/usr/bin/env python
+
+# Author: Lionel GUEZ
+
+# This script should be called by "diffdef.sh". It operates on
+# different lines with common variables. It requires version 2.7 or
+# higher of Python (it also works with Python 3).
+
+import sys, os.path
+
+with open(os.path.join(sys.argv[1], "common_var")) as common_var1, \
+        open(os.path.join(sys.argv[2], "common_var")) as common_var2, \
+        open("common_lines", "a") as common_lines, \
+        open("uniq_val", "w") as uniq_val:
+    uniq_val.write("Comparison of " + sys.argv[1] + " and " +  sys.argv[2] 
+                   + ":\n") # title line
+    for line1, line2 in zip(common_var1, common_var2):
+        i = line1.index("=")
+        var_name = line1[:i]
+        value1 = line1[i + 1:-1]
+        value2 = line2[i + 1:-1]
+        try:
+            value1_num = float(value1)
+            value2_num = float(value2)
+        except ValueError:
+            uniq_val.write(var_name + "=\t" + value1 + "\t" + value2 + "\n")
+        else:
+            if (value1_num, value2_num) == (0, 0) \
+                    or abs(value2_num - value1_num) \
+                    / max(abs(value1_num), abs(value2_num)) <= 1e-5:
+                # These should not be integer values, write a formatted value:
+                common_lines.write(var_name + "=" + str(value1_num) + "\n")
+            else:
+                # These could be integer values, write the original strings:
+                uniq_val.write(var_name + "=\t" + value1 + "\t" + value2 
+                               + "\n")
Index: LMDZ5/branches/testing/tools/diffdef.sh
===================================================================
--- LMDZ5/branches/testing/tools/diffdef.sh	(revision 2160)
+++ LMDZ5/branches/testing/tools/diffdef.sh	(revision 2160)
@@ -0,0 +1,91 @@
+# This is a script in Bash.
+# Author: Lionel GUEZ
+
+# This script compares files "*.def" other than "traceur.def" and
+# "out.def" in two directories. The script uses GNU versions of the
+# utilities cut, sort and uniq.
+
+# See guide:
+# http://lmdz.lmd.jussieu.fr/utilisateurs/outils/utilisation-de-lmdz#section-5
+
+USAGE="usage: `basename $0` directory_1 directory_2"
+
+if (($# != 2))
+    then
+    echo "$USAGE" >&2
+    exit 1
+fi
+
+##set -x
+set -e
+
+script_dir=`dirname $0`
+
+# Let us make sure we know what the sort order is:
+export LC_ALL=C
+
+# Enable extended pattern matching features:
+shopt -s extglob
+
+for my_directory in $*
+  do
+  cd $my_directory
+  rm -f all.def
+  echo "def files in $my_directory:"
+  ls !(traceur|out).def
+
+  # Concatenate and format the def files:
+  cat !(traceur|out).def | tr -d " " | grep -v -E '(^#|^!|INCLUDEDEF|^$)' \
+      | tr '[:lower:]' '[:upper:]' | sed 's/=[NF]$/=FALSE/' \
+      | sed 's/=[YT]$/=TRUE/' | sort >all.def
+
+  # Check that no variable is repeated:
+  cut --fields=1 --delimiter="=" all.def | uniq --repeated >plouf_$$
+  if [[ -s plouf_$$ ]]
+      then
+      echo
+      echo "Error: a variable is repeated in directory \"$my_directory\"."
+      echo
+      echo "Here is the list of repeated variables in directory \"$my_directory\":"
+      echo
+      cat plouf_$$
+      rm plouf_$$
+      exit 1
+  fi
+  rm plouf_$$
+
+  cd - >/dev/null
+done
+
+
+sort $1/all.def $2/all.def | uniq --repeated >common_lines
+
+for my_directory in $*
+  do
+  sort $my_directory/all.def common_lines | uniq --unique \
+      >$my_directory/uniq_lines
+done
+
+sort --field-separator="=" --key=1,1 --unique $2/uniq_lines $1/uniq_lines \
+    | sort - $2/uniq_lines | uniq --unique >$1/uniq_var
+sort --field-separator="=" --key=1,1 --unique $1/uniq_lines $2/uniq_lines \
+    | sort - $1/uniq_lines | uniq --unique >$2/uniq_var
+
+for my_directory in $*
+  do
+  cd $my_directory
+  echo "Created file \"$my_directory/uniq_var\"."
+  sort uniq_lines uniq_var | uniq --unique >common_var
+  rm uniq_lines
+  cd - >/dev/null
+done
+
+$script_dir/compare_real.py $*
+sort common_lines --output=common_lines # was modified by the Python script
+echo "Created files \"./common_lines\" and \"./uniq_val\"."
+
+# Clean up:
+for my_directory in $*
+  do
+    rm $my_directory/common_var $my_directory/all.def
+done
